118	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4256	4412	
==>----------------------------------------------------------------------------

## ---------------------------------------------------------------------------- <==
118	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10064	10175	
==>-----------------------------------------------    
      
    # ----------------------------------------------- <==
118	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10064	10175	
==>-----------------------------------------------    
      
    # ----------------------------------------------- <==
118	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10064	10175	
==>-----------------------------------------------    
      
    # ----------------------------------------------- <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4808	4957	
==>O - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: <==
113	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4808	4957	
==>O - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: <==
113	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4808	4957	
==>O - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: <==
113	/Users/nnunley/pugs/inc/Test/Harness.pm	31110	31208	
==>rogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2658	2756	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1950	2048	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2658	2756	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1836	1934	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9160	9258	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1397	1494	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/CGI.pm	11934	12031	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1300	1397	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1295	1392	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6054	6151	
==>rogram is free software; you can redistribute it
and/or modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Date.pm	4998	5095	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1996	2093	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	626	723	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1764	1861	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4131	4228	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7109	7206	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9179	9276	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3529	3626	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3835	3932	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25373	25470	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	811	908	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24137	24234	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1936	2033	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7977	8074	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10555	10652	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7012	7109	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4364	4461	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9262	9359	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14072	14169	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11014	11111	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5035	5132	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Span.pm	17913	18010	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6281	6378	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3492	3589	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6874	6971	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Test.pm	16489	16586	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Tree.pm	11852	11949	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	941	1038	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/lib/lib.pm	1701	1798	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6754	6851	
==>rogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl its <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3019	3116	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1677	1774	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21531	21628	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2149	2246	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1397	1494	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11934	12031	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1300	1397	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1295	1392	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6054	6151	
==>rogram is free software; you can redistribute it
and/or modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1996	2093	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	626	723	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1764	1861	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4998	5095	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4131	4228	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7109	7206	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9179	9276	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25373	25470	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	811	908	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24137	24234	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1936	2033	
==>rogram is free software; you can redistribute it and/or modify it under
the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7977	8074	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10555	10652	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7012	7109	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4364	4461	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9262	9359	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14072	14169	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11014	11111	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5035	5132	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17913	18010	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6281	6378	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3492	3589	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6874	6971	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16547	16644	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11852	11949	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	941	1038	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1701	1798	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3529	3626	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3835	3932	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	595	692	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5157	5254	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5030	5127	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	844	941	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1865	1962	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6694	6791	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1871	1968	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5204	5301	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1161	1258	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23412	23509	
==>rogram is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41336	41433	
==>rogram is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37362	37459	
==>rogram is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3019	3116	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3366	3463	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1677	1774	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21531	21628	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6754	6851	
==>rogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl its <==
113	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2149	2246	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6754	6851	
==>rogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl its <==
113	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2149	2246	
==>rogram is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1021	1118	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4457	4554	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3726	3823	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5297	5394	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5280	5377	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	844	941	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1871	1968	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5204	5301	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1161	1258	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1230	1327	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
113	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4126	4223	
==>rogram is free software; you can redistribute it and/or modify it
under the same terms as Perl its <==
110	/Users/nnunley/pugs/inc/Test/Harness.pm	31111	31212	
==>ogram is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2659	2760	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1951	2052	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2659	2760	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1837	1938	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9161	9262	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1398	1498	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/CGI.pm	11935	12035	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1301	1401	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1296	1396	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6055	6155	
==>ogram is free software; you can redistribute it
and/or modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Date.pm	4999	5099	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1997	2097	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	627	727	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1765	1865	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4132	4232	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7110	7210	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9180	9280	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3530	3630	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3836	3936	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25374	25474	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	812	912	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24138	24238	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1937	2037	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7978	8078	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10556	10656	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7013	7113	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4365	4465	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9263	9363	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14073	14173	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11015	11115	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5036	5136	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Span.pm	17914	18014	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6282	6382	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3493	3593	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6875	6975	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Test.pm	16490	16590	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Tree.pm	11853	11953	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	942	1042	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/lib/lib.pm	1702	1802	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6755	6855	
==>ogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3020	3120	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1678	1778	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21532	21632	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2150	2250	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1398	1498	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11935	12035	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1301	1401	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1296	1396	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6055	6155	
==>ogram is free software; you can redistribute it
and/or modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1997	2097	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	627	727	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1765	1865	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4999	5099	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4132	4232	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7110	7210	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9180	9280	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25374	25474	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	812	912	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24138	24238	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1937	2037	
==>ogram is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7978	8078	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10556	10656	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7013	7113	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4365	4465	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9263	9363	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14073	14173	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11015	11115	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5036	5136	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17914	18014	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6282	6382	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3493	3593	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6875	6975	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16548	16648	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11853	11953	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	942	1042	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1702	1802	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3530	3630	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3836	3936	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	596	696	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5158	5258	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5031	5131	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	845	945	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1866	1966	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6695	6795	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1872	1972	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5205	5305	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1162	1262	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23413	23513	
==>ogram is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41337	41437	
==>ogram is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37363	37463	
==>ogram is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3020	3120	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3367	3467	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1678	1778	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21532	21632	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6755	6855	
==>ogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2150	2250	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6755	6855	
==>ogram is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2150	2250	
==>ogram is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1022	1122	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4458	4558	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3727	3827	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5298	5398	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5281	5381	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	845	945	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1872	1972	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5205	5305	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1162	1262	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1231	1331	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4127	4227	
==>ogram is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. <==
110	/Users/nnunley/pugs/inc/Test/Harness.pm	31104	31207	
==>This program is free software; you can redistribute it and/or 
modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2652	2755	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1944	2047	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2652	2755	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1830	1933	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9154	9257	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1391	1493	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/CGI.pm	11928	12030	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1294	1396	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1289	1391	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6048	6150	
==>This program is free software; you can redistribute it
and/or modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Date.pm	4992	5094	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1990	2092	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	620	722	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1758	1860	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4125	4227	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7103	7205	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9173	9275	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3523	3625	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3829	3931	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25367	25469	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	805	907	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24131	24233	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1930	2032	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7971	8073	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10549	10651	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7006	7108	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4358	4460	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9256	9358	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14066	14168	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11008	11110	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5029	5131	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Span.pm	17907	18009	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6275	6377	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3486	3588	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6868	6970	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Test.pm	16483	16585	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Tree.pm	11846	11948	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	935	1037	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/lib/lib.pm	1695	1797	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6748	6850	
==>This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl it <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3013	3115	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1671	1773	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21525	21627	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2143	2245	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1391	1493	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11928	12030	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1294	1396	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1289	1391	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6048	6150	
==>This program is free software; you can redistribute it
and/or modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1990	2092	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	620	722	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1758	1860	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4992	5094	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4125	4227	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7103	7205	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9173	9275	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25367	25469	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	805	907	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24131	24233	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1930	2032	
==>This program is free software; you can redistribute it and/or modify it under
the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7971	8073	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10549	10651	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7006	7108	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4358	4460	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9256	9358	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14066	14168	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11008	11110	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5029	5131	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17907	18009	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6275	6377	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3486	3588	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6868	6970	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16541	16643	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11846	11948	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	935	1037	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1695	1797	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3523	3625	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3829	3931	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	589	691	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5151	5253	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5024	5126	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	838	940	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1859	1961	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6688	6790	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1865	1967	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5198	5300	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1155	1257	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23406	23508	
==>This program is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41330	41432	
==>This program is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37356	37458	
==>This program is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3013	3115	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3360	3462	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1671	1773	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21525	21627	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6748	6850	
==>This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl it <==
110	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2143	2245	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6748	6850	
==>This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl it <==
110	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2143	2245	
==>This program is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1015	1117	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4451	4553	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3720	3822	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5291	5393	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5274	5376	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	838	940	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1865	1967	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5198	5300	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1155	1257	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1224	1326	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
110	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4120	4222	
==>This program is free software; you can redistribute it and/or modify it
under the same terms as Perl it <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2647	2749	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1939	2041	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2647	2749	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1825	1927	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9149	9251	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/inc/Test/Harness.pm	31101	31201	
==>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1388	1487	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/CGI.pm	11925	12024	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1291	1390	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1286	1385	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Date.pm	4989	5088	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1987	2086	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	617	716	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1755	1854	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4122	4221	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7100	7199	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9170	9269	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7968	8067	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10546	10645	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7003	7102	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4355	4454	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9253	9352	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14063	14162	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11005	11104	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5026	5125	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Span.pm	17904	18003	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6272	6371	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3483	3582	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6865	6964	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Test.pm	16480	16579	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Tree.pm	11843	11942	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	932	1031	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/lib.pm	1692	1791	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6745	6844	
==>.  This program is
free software; you can redistribute it and/or modify it under the same
terms as P <==
98	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3010	3109	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1668	1767	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21522	21621	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2140	2239	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1388	1487	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11925	12024	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1291	1390	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1286	1385	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1987	2086	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	617	716	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1755	1854	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4989	5088	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4122	4221	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7100	7199	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9170	9269	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7968	8067	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10546	10645	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7003	7102	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4355	4454	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9253	9352	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14063	14162	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11005	11104	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5026	5125	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17904	18003	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6272	6371	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3483	3582	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6865	6964	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16538	16637	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11843	11942	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	932	1031	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1692	1791	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	586	685	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5148	5247	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5021	5120	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	835	934	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1856	1955	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6685	6784	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1862	1961	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5195	5294	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1152	1251	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3010	3109	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3357	3456	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1668	1767	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21522	21621	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6745	6844	
==>.  This program is
free software; you can redistribute it and/or modify it under the same
terms as P <==
98	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2140	2239	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6745	6844	
==>.  This program is
free software; you can redistribute it and/or modify it under the same
terms as P <==
98	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2140	2239	
==>.

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1012	1111	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4448	4547	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3717	3816	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5288	5387	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5271	5370	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	835	934	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1862	1961	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5195	5294	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1152	1251	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1221	1320	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4117	4216	
==>.

This program is free software; you can redistribute it and/or modify it
under the same terms as P <==
98	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6046	6144	
==>.
This program is free software; you can redistribute it
and/or modify it under the same terms as P <==
98	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6046	6144	
==>.
This program is free software; you can redistribute it
and/or modify it under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23404	23502	
==>.
This program is free software; you can redistribute it and/or
modify it under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41328	41426	
==>.
This program is free software; you can redistribute it and/or
modify it under the same terms as P <==
98	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37354	37452	
==>.
This program is free software; you can redistribute it and/or
modify it under the same terms as P <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2663	2767	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1955	2059	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2663	2767	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1841	1945	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9165	9269	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/inc/Test/Harness.pm	31115	31217	
==>m is free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1402	1503	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/CGI.pm	11939	12040	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1305	1406	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1300	1401	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4136	4237	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7114	7215	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9184	9285	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3534	3635	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3840	3941	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7017	7118	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4369	4470	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9267	9368	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Test.pm	16494	16595	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Tree.pm	11857	11958	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	946	1047	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/lib.pm	1706	1807	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3024	3125	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1682	1783	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21536	21637	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2154	2255	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1402	1503	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11939	12040	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1305	1406	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1300	1401	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4136	4237	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7114	7215	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9184	9285	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7017	7118	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4369	4470	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9267	9368	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16552	16653	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11857	11958	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	946	1047	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1706	1807	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3534	3635	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3840	3941	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	600	701	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5162	5263	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5035	5136	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	849	950	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1870	1971	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6699	6800	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1876	1977	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5209	5310	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1166	1267	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3024	3125	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3371	3472	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1682	1783	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21536	21637	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2154	2255	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2154	2255	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1026	1127	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4462	4563	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3731	3832	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5302	5403	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5285	5386	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	849	950	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1876	1977	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5209	5310	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1166	1267	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1235	1336	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4131	4232	
==>m is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See <==
76	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25378	25478	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	816	916	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24142	24242	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1941	2041	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25378	25478	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	816	916	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24142	24242	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
76	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1941	2041	
==>m is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See <==
69	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1374	1470	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/CGI.pm	11911	12007	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1277	1373	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1272	1368	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Date.pm	4975	5071	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1973	2069	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	603	699	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1741	1837	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4108	4204	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7086	7182	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9156	9252	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7954	8050	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10532	10628	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6989	7085	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4341	4437	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9239	9335	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14049	14145	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10991	11087	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5012	5108	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Span.pm	17890	17986	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6258	6354	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3469	3565	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6851	6947	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Test.pm	16466	16562	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/blib6/lib/Tree.pm	11829	11925	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	918	1014	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/blib6/lib/lib.pm	1678	1774	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6731	6827	
==>ights reserved.  This program is
free software; you can redistribute it and/or modify it under th <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2996	3092	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21508	21604	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1374	1470	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11911	12007	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1277	1373	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1272	1368	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1973	2069	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	603	699	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1741	1837	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4975	5071	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4108	4204	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7086	7182	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9156	9252	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7954	8050	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10532	10628	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6989	7085	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4341	4437	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9239	9335	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14049	14145	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10991	11087	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5012	5108	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17890	17986	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6258	6354	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3469	3565	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6851	6947	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16524	16620	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11829	11925	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	918	1014	
==>ights reserved.

This program is free software; you can redistribute it and/or modify
it under th <==
69	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1678	1774	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	572	668	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2996	3092	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3343	3439	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21508	21604	
==>ights reserved.

This program is free software; you can redistribute it and/or modify it
under th <==
69	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6731	6827	
==>ights reserved.  This program is
free software; you can redistribute it and/or modify it under th <==
69	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6731	6827	
==>ights reserved.  This program is
free software; you can redistribute it and/or modify it under th <==
69	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6032	6127	
==>ights reserved.
This program is free software; you can redistribute it
and/or modify it under th <==
69	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6032	6127	
==>ights reserved.
This program is free software; you can redistribute it
and/or modify it under th <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23390	23485	
==>ights reserved.
This program is free software; you can redistribute it and/or
modify it under th <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41314	41409	
==>ights reserved.
This program is free software; you can redistribute it and/or
modify it under th <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37340	37435	
==>ights reserved.
This program is free software; you can redistribute it and/or
modify it under th <==
69	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11670	11763	
==>tem Pair(KeyExtractor, Comparator)

A combination of the two methods above, for when one wishs <==
69	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14425	14536	
==>c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().map:{
            %attrs{$_.me <==
69	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1386	1484	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/CGI.pm	11923	12021	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1289	1387	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1284	1382	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Date.pm	4987	5085	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1985	2083	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	615	713	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1753	1851	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4120	4218	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7098	7196	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9168	9266	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7966	8064	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10544	10642	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7001	7099	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4353	4451	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9251	9349	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14061	14159	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11003	11101	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5024	5122	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Span.pm	17902	18000	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6270	6368	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3481	3579	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6863	6961	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Test.pm	16478	16576	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Tree.pm	11841	11939	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	930	1028	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/blib6/lib/lib.pm	1690	1788	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6743	6841	
==>ed.  This program is
free software; you can redistribute it and/or modify it under the same
terms a <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3008	3106	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21520	21618	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1386	1484	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11923	12021	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1289	1387	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1284	1382	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1985	2083	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	615	713	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1753	1851	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4987	5085	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4120	4218	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7098	7196	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9168	9266	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7966	8064	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10544	10642	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7001	7099	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4353	4451	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9251	9349	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14061	14159	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11003	11101	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5024	5122	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17902	18000	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6270	6368	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3481	3579	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6863	6961	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16536	16634	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11841	11939	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	930	1028	
==>ed.

This program is free software; you can redistribute it and/or modify
it under the same terms a <==
69	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1690	1788	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	584	682	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3008	3106	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3355	3453	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21520	21618	
==>ed.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
69	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6743	6841	
==>ed.  This program is
free software; you can redistribute it and/or modify it under the same
terms a <==
69	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6743	6841	
==>ed.  This program is
free software; you can redistribute it and/or modify it under the same
terms a <==
69	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6044	6141	
==>ed.
This program is free software; you can redistribute it
and/or modify it under the same terms a <==
69	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6044	6141	
==>ed.
This program is free software; you can redistribute it
and/or modify it under the same terms a <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23402	23499	
==>ed.
This program is free software; you can redistribute it and/or
modify it under the same terms a <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41326	41423	
==>ed.
This program is free software; you can redistribute it and/or
modify it under the same terms a <==
69	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37352	37449	
==>ed.
This program is free software; you can redistribute it and/or
modify it under the same terms a <==
68	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1387	1485	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/CGI.pm	11924	12022	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1290	1388	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1285	1383	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Date.pm	4988	5086	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1986	2084	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	616	714	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1754	1852	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4121	4219	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7099	7197	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9169	9267	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7967	8065	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10545	10643	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7002	7100	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4354	4452	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9252	9350	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14062	14160	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11004	11102	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5025	5123	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Span.pm	17903	18001	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6271	6369	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3482	3580	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6864	6962	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Test.pm	16479	16577	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Tree.pm	11842	11940	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	931	1029	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/lib.pm	1691	1789	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6744	6842	
==>d.  This program is
free software; you can redistribute it and/or modify it under the same
terms as <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3009	3107	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21521	21619	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1387	1485	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11924	12022	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1290	1388	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1285	1383	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1986	2084	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	616	714	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1754	1852	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4988	5086	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4121	4219	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7099	7197	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9169	9267	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7967	8065	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10545	10643	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7002	7100	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4354	4452	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9252	9350	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14062	14160	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11004	11102	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5025	5123	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17903	18001	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6271	6369	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3482	3580	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6864	6962	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16537	16635	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11842	11940	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	931	1029	
==>d.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
68	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1691	1789	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	585	683	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3009	3107	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3356	3454	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21521	21619	
==>d.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
68	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6744	6842	
==>d.  This program is
free software; you can redistribute it and/or modify it under the same
terms as <==
68	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6744	6842	
==>d.  This program is
free software; you can redistribute it and/or modify it under the same
terms as <==
68	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6045	6142	
==>d.
This program is free software; you can redistribute it
and/or modify it under the same terms as <==
68	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6045	6142	
==>d.
This program is free software; you can redistribute it
and/or modify it under the same terms as <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23403	23500	
==>d.
This program is free software; you can redistribute it and/or
modify it under the same terms as <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41327	41424	
==>d.
This program is free software; you can redistribute it and/or
modify it under the same terms as <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37353	37450	
==>d.
This program is free software; you can redistribute it and/or
modify it under the same terms as <==
68	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1375	1482	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/CGI.pm	11912	12019	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1278	1385	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1273	1380	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Date.pm	4976	5083	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1974	2081	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	604	711	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1742	1849	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4109	4216	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7087	7194	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9157	9264	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7955	8062	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10533	10640	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6990	7097	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4342	4449	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9240	9347	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14050	14157	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10992	11099	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5013	5120	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Span.pm	17891	17998	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6259	6366	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3470	3577	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6852	6959	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Test.pm	16467	16574	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Tree.pm	11830	11937	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	919	1026	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/lib.pm	1679	1786	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6732	6839	
==>ghts reserved.  This program is
free software; you can redistribute it and/or modify it under the same
terms <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2997	3104	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21509	21616	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1375	1482	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11912	12019	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1278	1385	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1273	1380	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1974	2081	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	604	711	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1742	1849	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4976	5083	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4109	4216	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7087	7194	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9157	9264	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7955	8062	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10533	10640	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6990	7097	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4342	4449	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9240	9347	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14050	14157	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10992	11099	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5013	5120	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17891	17998	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6259	6366	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3470	3577	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6852	6959	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16525	16632	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11830	11937	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	919	1026	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
68	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1679	1786	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	573	680	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2997	3104	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3344	3451	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21509	21616	
==>ghts reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
68	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6732	6839	
==>ghts reserved.  This program is
free software; you can redistribute it and/or modify it under the same
terms <==
68	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6732	6839	
==>ghts reserved.  This program is
free software; you can redistribute it and/or modify it under the same
terms <==
68	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6033	6139	
==>ghts reserved.
This program is free software; you can redistribute it
and/or modify it under the same terms <==
68	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6033	6139	
==>ghts reserved.
This program is free software; you can redistribute it
and/or modify it under the same terms <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23391	23497	
==>ghts reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41315	41421	
==>ghts reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37341	37447	
==>ghts reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms <==
68	/Users/nnunley/pugs/blib6/lib/Date.pm	4967	5070	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1965	2068	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	595	698	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1733	1836	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7946	8049	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10524	10627	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14041	14144	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10983	11086	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5004	5107	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Span.pm	17882	17985	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6250	6353	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3461	3564	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6843	6946	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1965	2068	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	595	698	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1733	1836	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4967	5070	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7946	8049	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10524	10627	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14041	14144	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10983	11086	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5004	5107	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17882	17985	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6250	6353	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3461	3564	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6843	6946	
==>.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1367	1469	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/CGI.pm	11904	12006	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1270	1372	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1265	1367	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4101	4203	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7079	7181	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9149	9251	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6982	7084	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4334	4436	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9232	9334	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Test.pm	16459	16561	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/blib6/lib/Tree.pm	11822	11924	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	911	1013	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/blib6/lib/lib.pm	1671	1773	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6724	6826	
==>. All rights reserved.  This program is
free software; you can redistribute it and/or modify it under t <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2989	3091	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21501	21603	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1367	1469	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11904	12006	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1270	1372	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1265	1367	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4101	4203	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7079	7181	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9149	9251	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6982	7084	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4334	4436	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9232	9334	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16517	16619	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11822	11924	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	911	1013	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify
it under t <==
68	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1671	1773	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	565	667	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2989	3091	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3336	3438	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21501	21603	
==>. All rights reserved.

This program is free software; you can redistribute it and/or modify it
under t <==
68	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6724	6826	
==>. All rights reserved.  This program is
free software; you can redistribute it and/or modify it under t <==
68	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6724	6826	
==>. All rights reserved.  This program is
free software; you can redistribute it and/or modify it under t <==
68	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6025	6126	
==>. All rights reserved.
This program is free software; you can redistribute it
and/or modify it under t <==
68	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6025	6126	
==>. All rights reserved.
This program is free software; you can redistribute it
and/or modify it under t <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23383	23484	
==>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under t <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41307	41408	
==>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under t <==
68	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37333	37434	
==>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under t <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2668	2769	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1960	2061	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2668	2769	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1846	1947	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9170	9271	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/inc/Test/Harness.pm	31120	31219	
==>free software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9272	9370	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/lib/Tree.pm	11862	11960	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	951	1049	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3029	3127	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1687	1785	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21541	21639	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2159	2257	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9272	9370	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11862	11960	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	951	1049	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5167	5265	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5040	5138	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	854	952	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1875	1973	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6704	6802	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1881	1979	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5214	5312	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1171	1269	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3029	3127	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3376	3474	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1687	1785	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21541	21639	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2159	2257	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2159	2257	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1031	1129	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4467	4565	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3736	3834	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5307	5405	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5290	5388	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	854	952	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1881	1979	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5214	5312	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1171	1269	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1240	1338	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4136	4234	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L <==
52	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25383	25480	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	821	918	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24147	24244	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1946	2043	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25383	25480	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	821	918	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24147	24244	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1946	2043	
==>free software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L <==
52	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4678	4774	
==>r($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}) <==
52	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4678	4774	
==>r($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}) <==
52	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4678	4774	
==>r($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}) <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2669	2770	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1961	2062	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2669	2770	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1847	1948	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9171	9272	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/inc/Test/Harness.pm	31121	31220	
==>ree software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9273	9371	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/lib/Tree.pm	11863	11961	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	952	1050	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3030	3128	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1688	1786	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21542	21640	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2160	2258	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9273	9371	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11863	11961	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	952	1050	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5168	5266	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5041	5139	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	855	953	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1876	1974	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6705	6803	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1882	1980	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5215	5313	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1172	1270	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3030	3128	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3377	3475	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1688	1786	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21542	21640	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2160	2258	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2160	2258	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1032	1130	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4468	4566	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3737	3835	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5308	5406	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5291	5389	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	855	953	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1882	1980	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5215	5313	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1172	1270	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1241	1339	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4137	4235	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L< <==
49	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25384	25481	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	822	919	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24148	24245	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1947	2044	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25384	25481	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	822	919	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24148	24245	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
49	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1947	2044	
==>ree software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L< <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1896	2038	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2982	3124	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5821	5963	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6374	6516	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6949	7091	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7958	8100	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8500	8642	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9178	9320	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10227	10369	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11678	11820	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12531	12673	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14033	14175	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16785	16927	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19312	19454	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20529	20671	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21621	21763	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22553	22695	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23918	24060	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25039	25181	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26627	26769	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28367	28509	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29374	29516	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2089	2231	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3175	3317	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6014	6156	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6567	6709	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7142	7284	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8151	8293	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8693	8835	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9371	9513	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10506	10648	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11957	12099	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12810	12952	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14312	14454	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17064	17206	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19591	19733	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20808	20950	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21900	22042	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22832	22974	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24197	24339	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25318	25460	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26906	27048	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28646	28788	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29653	29795	
==>", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    } <==
48	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1063	1175	
==>body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs:: <==
48	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1063	1175	
==>body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs:: <==
48	/Users/nnunley/pugs/blib6/lib/Set.pm	12956	13050	
==>=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new <==
48	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12956	13050	
==>=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new <==
47	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27513	27693	
==>tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sampl <==
47	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27513	27693	
==>tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sampl <==
47	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27513	27693	
==>tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sampl <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1849	1984	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2935	3070	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5774	5909	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6327	6462	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6902	7037	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7911	8046	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8453	8588	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9131	9266	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10180	10315	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11631	11766	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12484	12619	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13986	14121	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16738	16873	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19265	19400	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20482	20617	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21574	21709	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22506	22641	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23871	24006	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24992	25127	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26580	26715	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28320	28455	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29327	29462	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2042	2177	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3128	3263	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5967	6102	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6520	6655	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7095	7230	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8104	8239	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8646	8781	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9324	9459	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10459	10594	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11910	12045	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12763	12898	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14265	14400	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17017	17152	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19544	19679	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20761	20896	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21853	21988	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22785	22920	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24150	24285	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25271	25406	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26859	26994	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28599	28734	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29606	29741	
==>use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captur <==
47	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32272	32416	
==>AY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $d <==
47	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32272	32416	
==>AY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $d <==
47	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32272	32416	
==>AY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $d <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1857	1994	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2943	3080	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5782	5919	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6335	6472	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6910	7047	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7919	8056	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8461	8598	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9139	9276	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10188	10325	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11639	11776	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12492	12629	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13994	14131	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16746	16883	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19273	19410	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20490	20627	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21582	21719	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22514	22651	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23879	24016	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25000	25137	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26588	26725	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28328	28465	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29335	29472	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2050	2187	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3136	3273	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5975	6112	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6528	6665	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7103	7240	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8112	8249	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8654	8791	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9332	9469	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10467	10604	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11918	12055	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12771	12908	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14273	14410	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17025	17162	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19552	19689	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20769	20906	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21861	21998	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22793	22930	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24158	24295	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25279	25416	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26867	27004	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28607	28744	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29614	29751	
==>::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $ca <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1864	2001	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2950	3087	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5789	5926	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6342	6479	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6917	7054	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7926	8063	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8468	8605	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9146	9283	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10195	10332	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11646	11783	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12499	12636	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14001	14138	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16753	16890	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19280	19417	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20497	20634	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21589	21726	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22521	22658	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23886	24023	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25007	25144	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26595	26732	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28335	28472	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29342	29479	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2057	2194	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3143	3280	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5982	6119	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6535	6672	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7110	7247	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8119	8256	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8661	8798	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9339	9476	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10474	10611	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11925	12062	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12778	12915	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14280	14417	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17032	17169	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19559	19696	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20776	20913	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21868	22005	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22800	22937	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24165	24302	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25286	25423	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26874	27011	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28614	28751	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29621	29758	
==>r;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_b <==
47	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1295	1386	
==>IL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) i <==
47	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1295	1386	
==>IL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) i <==
47	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1295	1386	
==>IL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) i <==
46	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20007	20149	
==>ttr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_' <==
46	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40467	40609	
==>ttr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_' <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1882	2007	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2968	3093	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5807	5932	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6360	6485	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6935	7060	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7944	8069	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8486	8611	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9164	9289	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10213	10338	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11664	11789	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12517	12642	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14019	14144	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16771	16896	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19298	19423	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20515	20640	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21607	21732	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22539	22664	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23904	24029	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25025	25150	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26613	26738	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28353	28478	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29360	29485	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2075	2200	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3161	3286	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6000	6125	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6553	6678	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7128	7253	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8137	8262	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8679	8804	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9357	9482	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10492	10617	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11943	12068	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12796	12921	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14298	14423	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17050	17175	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19577	19702	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20794	20919	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21886	22011	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22818	22943	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24183	24308	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25304	25429	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26892	27017	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28632	28757	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
46	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29639	29764	
==>"capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block-> <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1885	2011	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2971	3097	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5810	5936	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6363	6489	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6938	7064	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7947	8073	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8489	8615	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9167	9293	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10216	10342	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11667	11793	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12520	12646	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14022	14148	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16774	16900	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19301	19427	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20518	20644	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21610	21736	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22542	22668	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23907	24033	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25028	25154	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26616	26742	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28356	28482	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29363	29489	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2078	2204	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3164	3290	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6003	6129	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6556	6682	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7131	7257	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8140	8266	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8682	8808	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9360	9486	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10495	10621	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11946	12072	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12799	12925	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14301	14427	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17053	17179	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19580	19706	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20797	20923	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21889	22015	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22821	22947	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24186	24312	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25307	25433	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26895	27021	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28635	28761	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29642	29768	
==>pture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $m <==
45	/Users/nnunley/pugs/misc/Blondie/milner.pl	24418	24509	
==>ype::variable::free->new,
	);
	$a->instantiate($b);
	is($type->stringify, "∀α. α → α" <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1858	2000	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2944	3086	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5783	5925	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6336	6478	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6911	7053	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7920	8062	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8462	8604	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9140	9282	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10189	10331	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11640	11782	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12493	12635	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13995	14137	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16747	16889	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19274	19416	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20491	20633	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21583	21725	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22515	22657	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23880	24022	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25001	25143	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26589	26731	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28329	28471	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29336	29478	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2051	2193	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3137	3279	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5976	6118	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6529	6671	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7104	7246	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8113	8255	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8655	8797	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9333	9475	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10468	10610	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11919	12061	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12772	12914	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14274	14416	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17026	17168	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19553	19695	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20770	20912	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21862	22004	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22794	22936	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24159	24301	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25280	25422	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26868	27010	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28608	28750	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29615	29757	
==>:Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1886	2030	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2972	3116	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5811	5955	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6364	6508	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6939	7083	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7948	8092	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8490	8634	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9168	9312	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10217	10361	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11668	11812	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12521	12665	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14023	14167	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16775	16919	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19302	19446	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20519	20663	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21611	21755	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22543	22687	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23908	24052	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25029	25173	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26617	26761	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28357	28501	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29364	29508	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2079	2223	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3165	3309	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6004	6148	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6557	6701	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7132	7276	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8141	8285	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8683	8827	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9361	9505	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10496	10640	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11947	12091	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12800	12944	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14302	14446	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17054	17198	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19581	19725	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20798	20942	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21890	22034	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22822	22966	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24187	24331	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25308	25452	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26896	27040	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28636	28780	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29643	29787	
==>ture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        } <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2707	2801	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1999	2093	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2707	2801	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1885	1979	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9209	9303	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/inc/Test/Harness.pm	31159	31251	
==>and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9311	9402	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/lib/Tree.pm	11901	11992	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	990	1081	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3068	3159	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1726	1817	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21580	21671	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2198	2289	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9311	9402	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11901	11992	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	990	1081	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5206	5297	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5079	5170	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	893	984	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1914	2005	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6743	6834	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1920	2011	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5253	5344	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1210	1301	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3068	3159	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3415	3506	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1726	1817	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21580	21671	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2198	2289	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2198	2289	
==>and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1070	1161	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4506	4597	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3775	3866	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5346	5437	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5329	5420	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	893	984	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1920	2011	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5253	5344	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1210	1301	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1279	1370	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4175	4266	
==>and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/A <==
44	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2095	2176	
==>doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|s <==
44	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2095	2176	
==>doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|s <==
44	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2095	2176	
==>doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|s <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1883	2010	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2969	3096	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5808	5935	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6361	6488	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6936	7063	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7945	8072	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8487	8614	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9165	9292	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10214	10341	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11665	11792	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12518	12645	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14020	14147	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16772	16899	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19299	19426	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20516	20643	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21608	21735	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22540	22667	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23905	24032	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25026	25153	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26614	26741	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28354	28481	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29361	29488	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2076	2203	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3162	3289	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6001	6128	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6554	6681	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7129	7256	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8138	8265	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8680	8807	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9358	9485	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10493	10620	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11944	12071	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12797	12924	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14299	14426	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17051	17178	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19578	19705	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20795	20922	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21887	22014	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22819	22946	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24184	24311	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25305	25432	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26893	27020	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28633	28760	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29640	29767	
==>capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $ <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1825	1983	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2911	3069	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5750	5908	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6303	6461	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6878	7036	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7887	8045	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8429	8587	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9107	9265	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10156	10314	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11607	11765	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12460	12618	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13962	14120	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16714	16872	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19241	19399	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20458	20616	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21550	21708	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22482	22640	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23847	24005	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24968	25126	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26556	26714	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28296	28454	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29303	29461	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2018	2176	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3104	3262	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5943	6101	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6496	6654	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7071	7229	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8080	8238	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8622	8780	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9300	9458	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10435	10593	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11886	12044	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12739	12897	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14241	14399	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16993	17151	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19520	19678	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20737	20895	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21829	21987	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22761	22919	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24126	24284	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25247	25405	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26835	26993	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28575	28733	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29582	29740	
==>} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            captu <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1809	1941	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2895	3027	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5734	5866	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6287	6419	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6862	6994	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7871	8003	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8413	8545	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9091	9223	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10140	10272	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11591	11723	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12444	12576	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13946	14078	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19225	19357	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20442	20574	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21534	21666	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22466	22598	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23831	23963	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24952	25084	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26540	26672	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29287	29419	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2002	2134	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3088	3220	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5927	6059	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6480	6612	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7055	7187	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8064	8196	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8606	8738	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9284	9416	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10419	10551	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11870	12002	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12723	12855	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14225	14357	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19504	19636	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20721	20853	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21813	21945	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22745	22877	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24110	24242	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25231	25363	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26819	26951	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29566	29698	
==>_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
44	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7701	7811	
==>e $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she fr <==
44	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7701	7811	
==>e $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she fr <==
44	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17914	18008	
==>server program handling the request.

=item $h.from

This header should contain an Internet e-m <==
44	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17914	18008	
==>server program handling the request.

=item $h.from

This header should contain an Internet e-m <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1876	2006	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2962	3092	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5801	5931	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6354	6484	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6929	7059	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7938	8068	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8480	8610	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9158	9288	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10207	10337	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11658	11788	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12511	12641	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14013	14143	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16765	16895	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19292	19422	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20509	20639	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21601	21731	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22533	22663	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23898	24028	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25019	25149	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26607	26737	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28347	28477	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29354	29484	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2069	2199	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3155	3285	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5994	6124	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6547	6677	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7122	7252	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8131	8261	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8673	8803	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9351	9481	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10486	10616	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11937	12067	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12790	12920	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14292	14422	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17044	17174	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19571	19701	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20788	20918	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21880	22010	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22812	22942	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24177	24307	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25298	25428	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26886	27016	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28626	28756	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29633	29763	
==>print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block- <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1850	1993	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2936	3079	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5775	5918	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6328	6471	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6903	7046	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7912	8055	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8454	8597	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9132	9275	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10181	10324	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11632	11775	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12485	12628	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13987	14130	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16739	16882	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19266	19409	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20483	20626	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21575	21718	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22507	22650	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23872	24015	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24993	25136	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26581	26724	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28321	28464	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29328	29471	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2043	2186	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3129	3272	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5968	6111	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6521	6664	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7096	7239	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8105	8248	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8647	8790	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9325	9468	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10460	10603	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11911	12054	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12764	12907	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14266	14409	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17018	17161	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19545	19688	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20762	20905	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21854	21997	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22786	22929	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24151	24294	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25272	25415	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26860	27003	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28600	28743	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
44	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29607	29750	
==>se Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $c <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2671	2772	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1963	2064	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2671	2772	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1849	1950	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9173	9274	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	236	335	
==>EXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE <==
43	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	236	335	
==>EXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE <==
43	/Users/nnunley/pugs/inc/Test/Harness.pm	31123	31222	
==>e software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9275	9373	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/lib/Tree.pm	11865	11963	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	954	1052	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3032	3130	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1690	1788	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21544	21642	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2162	2260	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9275	9373	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11865	11963	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	954	1052	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5170	5268	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5043	5141	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	857	955	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1878	1976	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6707	6805	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1884	1982	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5217	5315	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1174	1272	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3032	3130	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3379	3477	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1690	1788	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21544	21642	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2162	2260	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2162	2260	
==>e software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1034	1132	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4470	4568	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3739	3837	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5310	5408	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5293	5391	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	857	955	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1884	1982	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5217	5315	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1174	1272	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1243	1341	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4139	4237	
==>e software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<ht <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6624	6779	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7801	7956	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8748	8903	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9707	9862	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17620	17775	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19378	19533	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24228	24383	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29476	29631	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31126	31281	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33434	33589	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35419	35574	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36344	36499	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37879	38034	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39830	39985	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40889	41044	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43094	43249	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45594	45749	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46438	46593	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47559	47714	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48822	48977	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49684	49839	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26739	26892	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10651	10776	
==>w(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32268	32393	
==>w(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32923	33048	
==>w(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20988	21112	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22418	22542	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23034	23158	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25994	26118	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27476	27600	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28260	28384	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38624	38748	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39151	39275	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42207	42331	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42637	42761	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43912	44036	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50569	50693	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	306	402	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	630	726	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	306	402	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	630	726	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	306	402	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	630	726	
==>IKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"), <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5178	5286	
==>ical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self-> <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5178	5286	
==>ical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self-> <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5178	5286	
==>ical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self-> <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1796	1919	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2882	3005	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5721	5844	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6274	6397	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6849	6972	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7858	7981	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8400	8523	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9078	9201	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10127	10250	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11578	11701	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12431	12554	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13933	14056	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19212	19335	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20429	20552	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21521	21644	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22453	22576	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23818	23941	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24939	25062	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26527	26650	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29274	29397	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1989	2112	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3075	3198	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5914	6037	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6467	6590	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7042	7165	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8051	8174	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8593	8716	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9271	9394	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10406	10529	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11857	11980	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12710	12833	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14212	14335	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19491	19614	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20708	20831	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21800	21923	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22732	22855	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24097	24220	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25218	25341	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26806	26929	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29553	29676	
==>match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
43	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4146	4242	
==>ODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cre <==
43	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4146	4242	
==>ODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cre <==
43	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5670	5766	
==>ODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cre <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2695	2791	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1987	2083	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2695	2791	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1873	1969	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9197	9293	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/inc/Test/Harness.pm	31147	31241	
==>stribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9299	9392	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/lib/Tree.pm	11889	11982	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	978	1071	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3056	3149	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1714	1807	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21568	21661	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2186	2279	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9299	9392	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11889	11982	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	978	1071	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5194	5287	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5067	5160	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	881	974	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1902	1995	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6731	6824	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1908	2001	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5241	5334	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1198	1291	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3056	3149	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3403	3496	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1714	1807	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21568	21661	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2186	2279	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2186	2279	
==>stribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1058	1151	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4494	4587	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3763	3856	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5334	5427	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5317	5410	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	881	974	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1908	2001	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5241	5334	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1198	1291	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1267	1360	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4163	4256	
==>stribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/p <==
43	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5501	5593	
==>'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $ <==
43	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9099	9191	
==>'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $ <==
43	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1579	1675	
==>hlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writin <==
43	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1579	1675	
==>hlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writin <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2697	2793	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1989	2085	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2697	2793	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1875	1971	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9199	9295	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/inc/Test/Harness.pm	31149	31243	
==>ribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9301	9394	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/lib/Tree.pm	11891	11984	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	980	1073	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3058	3151	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1716	1809	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21570	21663	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2188	2281	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9301	9394	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11891	11984	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	980	1073	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5196	5289	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5069	5162	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	883	976	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1904	1997	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6733	6826	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1910	2003	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5243	5336	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1200	1293	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3058	3151	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3405	3498	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1716	1809	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21570	21663	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2188	2281	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2188	2281	
==>ribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1060	1153	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4496	4589	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3765	3858	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5336	5429	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5319	5412	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	883	976	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1910	2003	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5243	5336	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1200	1293	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1269	1362	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4165	4258	
==>ribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/per <==
43	/Users/nnunley/pugs/blib6/lib/Date.pm	1349	1478	
==>?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i <==
43	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1349	1478	
==>?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2692	2788	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1984	2080	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2692	2788	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1870	1966	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9194	9290	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/inc/Test/Harness.pm	31144	31238	
==>edistribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9296	9389	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/lib/Tree.pm	11886	11979	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	975	1068	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3053	3146	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1711	1804	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21565	21658	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2183	2276	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9296	9389	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11886	11979	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	975	1068	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5191	5284	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5064	5157	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	878	971	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1899	1992	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6728	6821	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1905	1998	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5238	5331	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1195	1288	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3053	3146	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3400	3493	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1711	1804	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21565	21658	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2183	2276	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2183	2276	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1055	1148	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4491	4584	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3760	3853	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5331	5424	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5314	5407	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	878	971	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1905	1998	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5238	5331	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1195	1288	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1264	1357	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
43	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4160	4253	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.co <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1802	1925	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2888	3011	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5727	5850	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6280	6403	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6855	6978	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7864	7987	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8406	8529	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9084	9207	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10133	10256	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11584	11707	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12437	12560	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13939	14062	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19218	19341	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20435	20558	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21527	21650	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22459	22582	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23824	23947	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24945	25068	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26533	26656	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29280	29403	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1995	2118	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3081	3204	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5920	6043	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6473	6596	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7048	7171	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8057	8180	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8599	8722	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9277	9400	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10412	10535	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11863	11986	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12716	12839	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14218	14341	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19497	19620	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20714	20837	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21806	21929	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22738	22861	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24103	24226	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25224	25347	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26812	26935	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29559	29682	
==>:get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} ) <==
42	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1847	1939	
==>constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BU <==
42	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1847	1939	
==>constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BU <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2687	2784	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1979	2076	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2687	2784	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1865	1962	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9189	9286	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/inc/Test/Harness.pm	31139	31234	
==>can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9291	9385	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/lib/Tree.pm	11881	11975	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	970	1064	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3048	3142	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1706	1800	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21560	21654	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2178	2272	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9291	9385	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11881	11975	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	970	1064	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5186	5280	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5059	5153	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	873	967	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1894	1988	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6723	6817	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1900	1994	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5233	5327	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1190	1284	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3048	3142	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3395	3489	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1706	1800	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21560	21654	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2178	2272	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2178	2272	
==>can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1050	1144	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4486	4580	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3755	3849	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5326	5420	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5309	5403	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	873	967	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1900	1994	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5233	5327	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1190	1284	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1259	1353	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4155	4249	
==>can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.per <==
42	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15686	15775	
==>lExpression> <'>='> <ShiftExpression>
    | <RelationalExpression> <'instanceof'> <ShiftEx <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10611	10754	
==>), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7761	7903	
==>), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8708	8850	
==>), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9667	9809	
==>), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32229	32371	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32884	33026	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11447	11588	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12768	12909	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15198	15339	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17581	17722	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19339	19480	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20949	21090	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22379	22520	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22995	23136	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24189	24330	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25955	26096	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26700	26841	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27437	27578	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28221	28362	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29437	29578	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31087	31228	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33395	33536	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35380	35521	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36305	36446	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37840	37981	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38585	38726	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39112	39253	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39791	39932	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40850	40991	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42168	42309	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42598	42739	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43055	43196	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43873	44014	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45555	45696	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46399	46540	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47520	47661	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48783	48924	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49645	49786	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50530	50671	
==>),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->ne <==
42	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2102	2205	
==>ef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Roo <==
42	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2102	2205	
==>ef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Roo <==
42	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2102	2205	
==>ef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Roo <==
42	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5044	5206	
==>version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = sh <==
42	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4903	5065	
==>version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = sh <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1817	1963	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2903	3049	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5742	5888	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6295	6441	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6870	7016	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7879	8025	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8421	8567	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9099	9245	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10148	10294	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11599	11745	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12452	12598	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13954	14100	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19233	19379	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20450	20596	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21542	21688	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22474	22620	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23839	23985	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24960	25106	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26548	26694	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29295	29441	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2010	2156	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3096	3242	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5935	6081	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6488	6634	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7063	7209	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8072	8218	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8614	8760	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9292	9438	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10427	10573	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11878	12024	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12731	12877	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14233	14379	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19512	19658	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20729	20875	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21821	21967	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22753	22899	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24118	24264	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25239	25385	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26827	26973	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29574	29720	
==>()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10083	10214	
==>'$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not im <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10083	10214	
==>'$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not im <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2726	2820	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2018	2112	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2726	2820	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1904	1998	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9228	9322	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9329	9419	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/lib/Tree.pm	11919	12009	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	1008	1098	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3086	3176	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1744	1834	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21598	21688	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2216	2306	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9329	9419	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11919	12009	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	1008	1098	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5224	5314	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5097	5187	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	911	1001	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1932	2022	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6761	6851	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1938	2028	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5271	5361	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1228	1318	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3086	3176	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3433	3523	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1744	1834	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21598	21688	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2216	2306	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2216	2306	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1088	1178	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4524	4614	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3793	3883	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5364	5454	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5347	5437	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	911	1001	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1938	2028	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5271	5361	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1228	1318	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1297	1387	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4193	4283	
==>nder the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=c <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1810	1943	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2896	3029	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5735	5868	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6288	6421	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6863	6996	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7872	8005	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8414	8547	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9092	9225	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10141	10274	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11592	11725	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12445	12578	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13947	14080	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19226	19359	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20443	20576	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21535	21668	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22467	22600	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23832	23965	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24953	25086	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26541	26674	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29288	29421	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2003	2136	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3089	3222	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5928	6061	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6481	6614	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7056	7189	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8065	8198	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8607	8740	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9285	9418	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10420	10553	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11871	12004	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12724	12857	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14226	14359	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19505	19638	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20722	20855	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21814	21947	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22746	22879	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24111	24244	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25232	25365	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26820	26953	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29567	29700	
==>[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
42	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6256	6354	
==>ser is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B <==
42	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6256	6354	
==>ser is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B <==
42	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12800	12923	
==>t, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  scan:
    if pos >= lastpos goto <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2712	2806	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2004	2098	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2712	2806	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1890	1984	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9214	9308	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/inc/Test/Harness.pm	31164	31256	
==>r 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9316	9407	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/lib/Tree.pm	11906	11997	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	995	1086	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3073	3164	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1731	1822	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21585	21676	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2203	2294	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9316	9407	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11906	11997	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	995	1086	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5211	5302	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5084	5175	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	898	989	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1919	2010	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6748	6839	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1925	2016	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5258	5349	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1215	1306	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3073	3164	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3420	3511	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1731	1822	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21585	21676	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2203	2294	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2203	2294	
==>r modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1075	1166	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4511	4602	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3780	3871	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5351	5442	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5334	5425	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	898	989	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1925	2016	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5258	5349	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1215	1306	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1284	1375	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4180	4271	
==>r modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artist <==
42	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3881	4062	
==>age_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $pa <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6616	6771	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7793	7948	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8740	8895	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9699	9854	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11478	11633	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12799	12954	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15229	15384	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17612	17767	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19370	19525	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24220	24375	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29468	29623	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31118	31273	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33426	33581	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35411	35566	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36336	36491	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37871	38026	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39822	39977	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40881	41036	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43086	43241	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45586	45741	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46430	46585	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47551	47706	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48814	48969	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49676	49831	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26731	26884	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10643	10768	
==>thod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32260	32385	
==>thod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32915	33040	
==>thod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20980	21104	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22410	22534	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23026	23150	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25986	26110	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27468	27592	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28252	28376	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38616	38740	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39143	39267	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42199	42323	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42629	42753	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43904	44028	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50561	50685	
==>thod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new( <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3404	3495	
==>($left->params->equal_to($right->params) == bit->new(1) && 
     $left->returns eq $right->r <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1819	1980	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2905	3066	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5744	5905	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6297	6458	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6872	7033	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7881	8042	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8423	8584	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9101	9262	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10150	10311	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11601	11762	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12454	12615	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13956	14117	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16708	16869	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19235	19396	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20452	20613	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21544	21705	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22476	22637	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23841	24002	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24962	25123	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26550	26711	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29297	29458	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2012	2173	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3098	3259	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5937	6098	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6490	6651	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7065	7226	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8074	8235	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8616	8777	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9294	9455	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10429	10590	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11880	12041	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12733	12894	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14235	14396	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16987	17148	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19514	19675	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20731	20892	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21823	21984	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22755	22916	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24120	24281	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25241	25402	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26829	26990	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29576	29737	
==>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
42	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4566	4770	
==>}
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALKME <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2700	2796	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1992	2088	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2700	2796	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1878	1974	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9202	9298	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/inc/Test/Harness.pm	31152	31246	
==>ute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9304	9397	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/lib/Tree.pm	11894	11987	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	983	1076	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3061	3154	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1719	1812	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21573	21666	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2191	2284	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9304	9397	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11894	11987	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	983	1076	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5199	5292	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5072	5165	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	886	979	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1907	2000	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6736	6829	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1913	2006	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5246	5339	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1203	1296	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3061	3154	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3408	3501	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1719	1812	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21573	21666	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2191	2284	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2191	2284	
==>ute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1063	1156	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4499	4592	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3768	3861	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5339	5432	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5322	5415	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	886	979	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1913	2006	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5246	5339	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1203	1296	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1272	1365	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
42	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4168	4261	
==>ute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/m <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2698	2795	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1990	2087	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2698	2795	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1876	1973	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9200	9297	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31150	31245	
==>ibute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9302	9396	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11892	11986	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	981	1075	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3059	3153	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1717	1811	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21571	21665	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2189	2283	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9302	9396	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11892	11986	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	981	1075	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5197	5291	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5070	5164	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	884	978	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1905	1999	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6734	6828	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1911	2005	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5244	5338	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1201	1295	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3059	3153	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3406	3500	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1717	1811	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21571	21665	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2189	2283	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2189	2283	
==>ibute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1061	1155	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4497	4591	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3766	3860	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5337	5431	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5320	5414	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	884	978	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1911	2005	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5244	5338	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1201	1295	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1270	1364	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4166	4260	
==>ibute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2708	2805	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2000	2097	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2708	2805	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1886	1983	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9210	9307	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31160	31255	
==>nd/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9312	9406	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11902	11996	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	991	1085	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3069	3163	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1727	1821	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21581	21675	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2199	2293	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9312	9406	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11902	11996	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	991	1085	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5207	5301	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5080	5174	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	894	988	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1915	2009	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6744	6838	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1921	2015	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5254	5348	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1211	1305	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3069	3163	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3416	3510	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1727	1821	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21581	21675	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2199	2293	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2199	2293	
==>nd/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1071	1165	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4507	4601	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3776	3870	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5347	5441	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5330	5424	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	894	988	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1921	2015	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5254	5348	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1211	1305	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1280	1374	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4176	4270	
==>nd/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artis <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2693	2790	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1985	2082	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2693	2790	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1871	1968	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9195	9292	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31145	31240	
==>distribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9297	9391	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11887	11981	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	976	1070	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3054	3148	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1712	1806	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21566	21660	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2184	2278	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9297	9391	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11887	11981	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	976	1070	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5192	5286	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5065	5159	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	879	973	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1900	1994	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6729	6823	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1906	2000	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5239	5333	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1196	1290	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3054	3148	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3401	3495	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1712	1806	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21566	21660	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2184	2278	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2184	2278	
==>distribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1056	1150	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4492	4586	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3761	3855	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5332	5426	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5315	5409	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	879	973	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1906	2000	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5239	5333	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1196	1290	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1265	1359	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4161	4255	
==>distribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2670	2771	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1962	2063	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2670	2771	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1848	1949	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9172	9273	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31122	31221	
==>ee software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9274	9372	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11864	11962	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	953	1051	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3031	3129	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1689	1787	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21543	21641	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2161	2259	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9274	9372	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11864	11962	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	953	1051	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5169	5267	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5042	5140	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	856	954	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1877	1975	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6706	6804	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1883	1981	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5216	5314	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1173	1271	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3031	3129	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3378	3476	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1689	1787	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21543	21641	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2161	2259	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2161	2259	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1033	1131	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4469	4567	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3738	3836	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5309	5407	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5292	5390	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	856	954	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1883	1981	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5216	5314	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1173	1271	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1242	1340	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4138	4236	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<h <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1815	1961	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2901	3047	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5740	5886	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6293	6439	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6868	7014	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7877	8023	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8419	8565	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9097	9243	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10146	10292	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11597	11743	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12450	12596	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13952	14098	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19231	19377	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20448	20594	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21540	21686	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22472	22618	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23837	23983	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24958	25104	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26546	26692	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29293	29439	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2008	2154	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3094	3240	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5933	6079	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6486	6632	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7061	7207	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8070	8216	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8612	8758	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9290	9436	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10425	10571	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11876	12022	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12729	12875	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14231	14377	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19510	19656	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20727	20873	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21819	21965	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22751	22897	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24116	24262	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25237	25383	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26825	26971	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29572	29718	
==>'$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
41	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2606	2709	
==>>_stages) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==",join(" " <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2688	2787	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1980	2079	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2688	2787	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1866	1965	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9190	9289	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31140	31237	
==>an redistribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9292	9388	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11882	11978	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	971	1067	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3049	3145	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1707	1803	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21561	21657	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2179	2275	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9292	9388	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11882	11978	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	971	1067	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5187	5283	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5060	5156	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	874	970	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1895	1991	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6724	6820	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1901	1997	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5234	5330	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1191	1287	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3049	3145	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3396	3492	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1707	1803	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21561	21657	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2179	2275	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2179	2275	
==>an redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1051	1147	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4487	4583	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3756	3852	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5327	5423	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5310	5406	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	874	970	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1901	1997	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5234	5330	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1191	1287	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1260	1356	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4156	4252	
==>an redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.c <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2696	2792	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1988	2084	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2696	2792	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1874	1970	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9198	9294	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31148	31242	
==>tribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9300	9393	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11890	11983	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	979	1072	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3057	3150	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1715	1808	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21569	21662	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2187	2280	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9300	9393	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11890	11983	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	979	1072	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5195	5288	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5068	5161	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	882	975	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1903	1996	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6732	6825	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1909	2002	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5242	5335	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1199	1292	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3057	3150	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3404	3497	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1715	1808	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21569	21662	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2187	2280	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2187	2280	
==>tribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1059	1152	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4495	4588	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3764	3857	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5335	5428	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5318	5411	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	882	975	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1909	2002	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5242	5335	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1199	1292	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1268	1361	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4164	4257	
==>tribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2701	2800	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1993	2092	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2701	2800	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1879	1978	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9203	9302	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31153	31250	
==>te it and/or 
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9305	9401	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11895	11991	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	984	1080	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3062	3158	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1720	1816	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21574	21670	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2192	2288	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9305	9401	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11895	11991	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	984	1080	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5200	5296	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5073	5169	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	887	983	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1908	2004	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6737	6833	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1914	2010	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5247	5343	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1204	1300	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3062	3158	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3409	3505	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1720	1816	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21574	21670	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2192	2288	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2192	2288	
==>te it and/or modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1064	1160	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4500	4596	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3769	3865	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5340	5436	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5323	5419	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	887	983	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1914	2010	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5247	5343	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1204	1300	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1273	1369	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4169	4265	
==>te it and/or modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/ <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2714	2814	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2006	2106	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2714	2814	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1892	1992	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9216	9316	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9318	9415	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11908	12005	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	997	1094	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3075	3172	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1733	1830	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21587	21684	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2205	2302	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9318	9415	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11908	12005	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	997	1094	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31167	31264	
==>modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5213	5310	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5086	5183	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	900	997	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1921	2018	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6750	6847	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1927	2024	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5260	5357	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1217	1314	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3075	3172	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3422	3519	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1733	1830	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21587	21684	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2205	2302	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2205	2302	
==>modify
it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1077	1174	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4513	4610	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3782	3879	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5353	5450	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5336	5433	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	900	997	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1927	2024	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5260	5357	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1217	1314	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1286	1383	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4182	4279	
==>modify it
under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html> <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2673	2783	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1965	2075	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2673	2783	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1851	1961	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9175	9285	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/inc/Test/Harness.pm	31125	31233	
==>software; you can redistribute it and/or 
modify it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9277	9384	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/lib/Tree.pm	11867	11974	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	956	1063	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3034	3141	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1692	1799	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21546	21653	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2164	2271	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9277	9384	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11867	11974	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	956	1063	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5172	5279	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5045	5152	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	859	966	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1880	1987	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6709	6816	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1886	1993	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5219	5326	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1176	1283	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3034	3141	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3381	3488	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1692	1799	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21546	21653	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2164	2271	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2164	2271	
==>software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1036	1143	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4472	4579	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3741	3848	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5312	5419	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5295	5402	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	859	966	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1886	1993	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5219	5326	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1176	1283	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1245	1352	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4141	4248	
==>software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See L<http://www.pe <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7774	7939	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8721	8886	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9680	9845	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11459	11624	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12780	12945	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15210	15375	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17593	17758	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19351	19516	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24201	24366	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29449	29614	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31099	31264	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33407	33572	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35392	35557	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36317	36482	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37852	38017	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39803	39968	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40862	41027	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43067	43232	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45567	45732	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46411	46576	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47532	47697	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48795	48960	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49657	49822	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26712	26875	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10624	10759	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32241	32376	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32896	33031	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20961	21095	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22391	22525	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23007	23141	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25967	26101	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27449	27583	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28233	28367	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38597	38731	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39124	39258	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42180	42314	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42610	42744	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43885	44019	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50542	50676	
==>hod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sym <==
41	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14188	14317	
==>);

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the op <==
41	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14188	14317	
==>);

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the op <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6614	6770	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7791	7947	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8738	8894	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9697	9853	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11476	11632	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12797	12953	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15227	15383	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17610	17766	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19368	19524	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24218	24374	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29466	29622	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31116	31272	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33424	33580	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35409	35565	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36334	36490	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37869	38025	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39820	39976	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40879	41035	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43084	43240	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45584	45740	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46428	46584	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47549	47705	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48812	48968	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49674	49830	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26729	26883	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10641	10767	
==>method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32258	32384	
==>method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32913	33039	
==>method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20978	21103	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22408	22533	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23024	23149	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25984	26109	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27466	27591	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28250	28375	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38614	38739	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39141	39266	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42197	42322	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42627	42752	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43902	44027	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50559	50684	
==>method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2725	2819	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2017	2111	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2725	2819	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1903	1997	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9227	9321	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9328	9418	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/lib/Tree.pm	11918	12008	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	1007	1097	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3085	3175	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1743	1833	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21597	21687	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2215	2305	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9328	9418	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11918	12008	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	1007	1097	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5223	5313	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5096	5186	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	910	1000	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1931	2021	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6760	6850	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1937	2027	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5270	5360	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1227	1317	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3085	3175	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3432	3522	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1743	1833	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21597	21687	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2215	2305	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2215	2305	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1087	1177	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4523	4613	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3792	3882	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5363	5453	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5346	5436	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	910	1000	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1937	2027	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5270	5360	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1227	1317	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1296	1386	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4192	4282	
==>under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

= <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1803	1940	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2889	3026	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5728	5865	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6281	6418	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6856	6993	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7865	8002	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8407	8544	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9085	9222	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10134	10271	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11585	11722	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12438	12575	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13940	14077	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19219	19356	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20436	20573	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21528	21665	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22460	22597	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23825	23962	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24946	25083	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26534	26671	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29281	29418	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1996	2133	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3082	3219	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5921	6058	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6474	6611	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7049	7186	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8058	8195	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8600	8737	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9278	9415	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10413	10550	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11864	12001	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12717	12854	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14219	14356	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19498	19635	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20715	20852	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21807	21944	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22739	22876	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24104	24241	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25225	25362	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26813	26950	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29560	29697	
==>get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1816	1962	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2902	3048	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5741	5887	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6294	6440	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6869	7015	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7878	8024	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8420	8566	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9098	9244	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10147	10293	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11598	11744	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12451	12597	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13953	14099	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19232	19378	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20449	20595	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21541	21687	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22473	22619	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23838	23984	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24959	25105	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26547	26693	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29294	29440	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2009	2155	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3095	3241	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5934	6080	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6487	6633	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7062	7208	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8071	8217	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8613	8759	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9291	9437	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10426	10572	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11877	12023	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12730	12876	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14232	14378	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19511	19657	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20728	20874	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21820	21966	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22752	22898	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24117	24263	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25238	25384	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26826	26972	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29573	29719	
==>$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1811	1960	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2897	3046	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5736	5885	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6289	6438	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6864	7013	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7873	8022	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8415	8564	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9093	9242	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10142	10291	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11593	11742	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12446	12595	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13948	14097	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19227	19376	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20444	20593	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21536	21685	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22468	22617	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23833	23982	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24954	25103	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26542	26691	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29289	29438	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2004	2153	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3090	3239	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5929	6078	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6482	6631	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7057	7206	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8066	8215	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8608	8757	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9286	9435	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10421	10570	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11872	12021	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12725	12874	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14227	14376	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19506	19655	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20723	20872	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21815	21964	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22747	22896	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24112	24261	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25233	25382	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26821	26970	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29568	29717	
==>0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10621	10756	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32238	32373	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32893	33028	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7771	7905	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8718	8852	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9677	9811	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11456	11590	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12777	12911	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15207	15341	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17590	17724	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19348	19482	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20958	21092	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22388	22522	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23004	23138	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24198	24332	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25964	26098	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26709	26843	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27446	27580	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28230	28364	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29446	29580	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31096	31230	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33404	33538	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35389	35523	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36314	36448	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37849	37983	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38594	38728	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39121	39255	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39800	39934	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40859	40993	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42177	42311	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42607	42741	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43064	43198	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43882	44016	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45564	45698	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46408	46542	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47529	47663	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48792	48926	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49654	49788	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50539	50673	
==>method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new( <==
40	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3045	3144	
==>self->guess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type";
			return Blondi <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7779	7943	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8726	8890	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9685	9849	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11464	11628	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12785	12949	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15215	15379	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17598	17762	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19356	19520	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24206	24370	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29454	29618	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31104	31268	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33412	33576	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35397	35561	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36322	36486	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37857	38021	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39808	39972	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40867	41031	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43072	43236	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45572	45736	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46416	46580	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47537	47701	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48800	48964	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49662	49826	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26717	26879	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10629	10763	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32246	32380	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32901	33035	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20966	21099	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22396	22529	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23012	23145	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25972	26105	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27454	27587	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28238	28371	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38602	38735	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39129	39262	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42185	42318	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42615	42748	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43890	44023	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50547	50680	
==>ody
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol- <==
40	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9800	9907	
==>g = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environment variable.\ <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1818	1964	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2904	3050	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5743	5889	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6296	6442	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6871	7017	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7880	8026	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8422	8568	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9100	9246	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10149	10295	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11600	11746	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12453	12599	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13955	14101	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19234	19380	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20451	20597	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21543	21689	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22475	22621	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23840	23986	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24961	25107	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26549	26695	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29296	29442	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2011	2157	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3097	3243	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5936	6082	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6489	6635	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7064	7210	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8073	8219	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8615	8761	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9293	9439	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10428	10574	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11879	12025	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12732	12878	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14234	14380	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19513	19659	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20730	20876	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21822	21968	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22754	22900	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24119	24265	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25240	25386	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26828	26974	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29575	29721	
==>)' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1798	1923	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2884	3009	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5723	5848	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6276	6401	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6851	6976	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7860	7985	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8402	8527	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9080	9205	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10129	10254	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11580	11705	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12433	12558	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13935	14060	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19214	19339	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20431	20556	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21523	21648	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22455	22580	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23820	23945	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24941	25066	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26529	26654	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29276	29401	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1991	2116	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3077	3202	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5916	6041	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6469	6594	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7044	7169	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8053	8178	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8595	8720	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9273	9398	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10408	10533	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11859	11984	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12712	12837	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14214	14339	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19493	19618	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20710	20835	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21802	21927	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22734	22859	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24099	24224	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25220	25345	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26808	26933	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29555	29680	
==>tch::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6621	6776	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7798	7953	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8745	8900	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9704	9859	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17617	17772	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19375	19530	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24225	24380	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29473	29628	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31123	31278	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33431	33586	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35416	35571	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36341	36496	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37876	38031	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39827	39982	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40886	41041	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43091	43246	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45591	45746	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46435	46590	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47556	47711	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48819	48974	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49681	49836	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26736	26889	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10648	10773	
==>>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32265	32390	
==>>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32920	33045	
==>>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20985	21109	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22415	22539	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23031	23155	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25991	26115	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27473	27597	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28257	28381	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38621	38745	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39148	39272	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42204	42328	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42634	42758	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43909	44033	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50566	50690	
==>>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$sel <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	306	409	
==>g;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pri <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	267	370	
==>g;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pri <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	267	370	
==>g;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pri <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2727	2822	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	2019	2114	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2727	2822	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1905	2000	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9229	9324	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9330	9421	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/lib/Tree.pm	11920	12011	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	1009	1100	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3087	3178	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1745	1836	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21599	21690	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2217	2308	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9330	9421	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11920	12011	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	1009	1100	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5225	5316	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5098	5189	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	912	1003	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1933	2024	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6762	6853	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1939	2030	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5272	5363	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1229	1320	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3087	3178	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3434	3525	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1745	1836	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21599	21690	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2217	2308	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2217	2308	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1089	1180	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4525	4616	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3794	3885	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5365	5456	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5348	5439	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	912	1003	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1939	2030	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5272	5363	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1229	1320	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1298	1389	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4194	4285	
==>der the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6617	6773	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7794	7950	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8741	8897	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9700	9856	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11479	11635	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12800	12956	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15230	15386	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17613	17769	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19371	19527	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24221	24377	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29469	29625	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31119	31275	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33427	33583	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35412	35568	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36337	36493	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37872	38028	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39823	39979	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40882	41038	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43087	43243	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45587	45743	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46431	46587	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47552	47708	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48815	48971	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49677	49833	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26732	26886	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10644	10770	
==>hod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32261	32387	
==>hod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32916	33042	
==>hod->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20981	21106	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22411	22536	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23027	23152	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25987	26112	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27469	27594	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28253	28378	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38617	38742	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39144	39269	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42200	42325	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42630	42755	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43905	44030	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50562	50687	
==>hod->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$ <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1792	1917	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2878	3003	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5717	5842	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6270	6395	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6845	6970	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7854	7979	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8396	8521	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9074	9199	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10123	10248	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11574	11699	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12427	12552	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13929	14054	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19208	19333	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20425	20550	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21517	21642	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22449	22574	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23814	23939	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24935	25060	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26523	26648	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29270	29395	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1985	2110	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3071	3196	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5910	6035	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6463	6588	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7038	7163	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8047	8172	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8589	8714	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9267	9392	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10402	10527	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11853	11978	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12706	12831	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14208	14333	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19487	19612	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20704	20829	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21796	21921	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22728	22853	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24093	24218	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25214	25339	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26802	26927	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
40	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29549	29674	
==>=>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10610	10753	
==>'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7760	7902	
==>'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8707	8849	
==>'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9666	9808	
==>'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32228	32370	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32883	33025	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11446	11587	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12767	12908	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15197	15338	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17580	17721	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19338	19479	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20948	21089	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22378	22519	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22994	23135	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24188	24329	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25954	26095	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26699	26840	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27436	27577	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28220	28361	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29436	29577	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31086	31227	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33394	33535	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35379	35520	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36304	36445	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37839	37980	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38584	38725	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39111	39252	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39790	39931	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40849	40990	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42167	42308	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42597	42738	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43054	43195	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43872	44013	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45554	45695	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46398	46539	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47519	47660	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48782	48923	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49644	49785	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50529	50670	
==>'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24246	24398	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35437	35585	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6642	6787	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17638	17783	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19396	19541	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26757	26902	
==>ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31144	31289	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7819	7963	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8766	8910	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9725	9869	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29494	29638	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33452	33596	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36362	36506	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37897	38041	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39848	39992	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40907	41051	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43112	43256	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45612	45756	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46456	46600	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47577	47721	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48840	48984	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49702	49846	
==>ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/blib6/lib/CGI.pm	7089	7210	
==>ED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYP <==
39	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7089	7210	
==>ED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYP <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32286	32401	
==>ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32941	33056	
==>ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10669	10783	
==>ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21006	21119	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22436	22549	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23052	23165	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26012	26125	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27494	27607	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28278	28391	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38642	38755	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39169	39282	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42225	42338	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42655	42768	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43930	44043	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50587	50700	
==>ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'op <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7780	7945	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8727	8892	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9686	9851	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11465	11630	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12786	12951	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15216	15381	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17599	17764	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19357	19522	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24207	24372	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29455	29620	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31105	31270	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33413	33578	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35398	35563	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36323	36488	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37858	38023	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39809	39974	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40868	41033	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43073	43238	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45573	45738	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46417	46582	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47538	47703	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48801	48966	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49663	49828	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26718	26881	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10630	10765	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32247	32382	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32902	33037	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20967	21101	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22397	22531	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23013	23147	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25973	26107	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27455	27589	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28239	28373	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38603	38737	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39130	39264	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42186	42320	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42616	42750	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43891	44025	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50548	50682	
==>dy
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->n <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10612	10755	
==>, 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7762	7904	
==>, 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8709	8851	
==>, 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9668	9810	
==>, 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32230	32372	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32885	33027	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11448	11589	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12769	12910	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15199	15340	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17582	17723	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19340	19481	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20950	21091	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22380	22521	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22996	23137	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24190	24331	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25956	26097	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26701	26842	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27438	27579	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28222	28363	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29438	29579	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31088	31229	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33396	33537	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35381	35522	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36306	36447	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37841	37982	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38586	38727	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39113	39254	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39792	39933	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40851	40992	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42169	42310	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42599	42740	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43056	43197	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43874	44015	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45556	45697	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46400	46541	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47521	47662	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48784	48925	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49646	49787	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50531	50672	
==>,
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7772	7938	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8719	8885	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9678	9844	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11457	11623	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12778	12944	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15208	15374	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17591	17757	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19349	19515	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24199	24365	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29447	29613	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31097	31263	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33405	33571	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35390	35556	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36315	36481	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37850	38016	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39801	39967	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40860	41026	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43065	43231	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45565	45731	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46409	46575	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47530	47696	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48793	48959	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49655	49821	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26710	26874	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10622	10758	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32239	32375	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32894	33030	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20959	21094	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22389	22524	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23005	23140	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25965	26100	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27447	27582	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28231	28366	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38595	38730	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39122	39257	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42178	42313	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42608	42743	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43883	44018	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50540	50675	
==>ethod body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(sy <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7775	7942	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8722	8889	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9681	9848	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11460	11627	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12781	12948	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15211	15378	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17594	17761	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19352	19519	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24202	24369	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29450	29617	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31100	31267	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33408	33575	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35393	35560	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36318	36485	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37853	38020	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39804	39971	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40863	41030	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43068	43235	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45568	45735	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46412	46579	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47533	47700	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48796	48963	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49658	49825	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26713	26878	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10625	10762	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32242	32379	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32897	33034	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20962	21098	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22392	22528	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23008	23144	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25968	26104	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27450	27586	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28234	28370	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38598	38734	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39125	39261	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42181	42317	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42611	42747	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43886	44022	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
39	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50543	50679	
==>od body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24249	24401	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35440	35588	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6645	6790	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17641	17786	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19399	19544	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26760	26905	
==>,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31147	31292	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7822	7966	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8769	8913	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9728	9872	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29497	29641	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33455	33599	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36365	36509	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37900	38044	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39851	39995	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40910	41054	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43115	43259	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45615	45759	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46459	46603	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47580	47724	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48843	48987	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49705	49849	
==>,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32289	32404	
==>,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32944	33059	
==>,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10672	10786	
==>,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21009	21122	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22439	22552	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23055	23168	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26015	26128	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27497	27610	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28281	28394	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38645	38758	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39172	39285	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42228	42341	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42658	42771	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43933	44046	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50590	50703	
==>,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaqu <==
38	/Users/nnunley/pugs/inc/Test/Harness.pm	29207	29301	
==>ning tests quietly (ie. no printing) for automated
validation of tests.  This will probably tak <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6619	6775	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7796	7952	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8743	8899	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9702	9858	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17615	17771	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19373	19529	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24223	24379	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29471	29627	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31121	31277	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33429	33585	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35414	35570	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36339	36495	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37874	38030	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39825	39981	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40884	41040	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43089	43245	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45589	45745	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46433	46589	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47554	47710	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48817	48973	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49679	49835	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26734	26888	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10646	10772	
==>d->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32263	32389	
==>d->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32918	33044	
==>d->new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20983	21108	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22413	22538	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23029	23154	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25989	26114	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27471	27596	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28255	28380	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38619	38744	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39146	39271	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42202	42327	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42632	42757	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43907	44032	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50564	50689	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$se <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24247	24400	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35438	35587	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6643	6789	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17639	17785	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19397	19543	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26758	26904	
==>NV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31145	31291	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7820	7965	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8767	8912	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9726	9871	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29495	29640	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33453	33598	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36363	36508	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37898	38043	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39849	39994	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40908	41053	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43113	43258	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45613	45758	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46457	46602	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47578	47723	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48841	48986	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49703	49848	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32287	32403	
==>NV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32942	33058	
==>NV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10670	10785	
==>NV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21007	21121	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22437	22551	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23053	23167	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26013	26127	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27495	27609	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28279	28393	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38643	38757	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39170	39284	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42226	42340	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42656	42770	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43931	44045	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50588	50702	
==>NV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaq <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24263	24404	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35454	35591	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6659	6793	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17655	17789	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19413	19547	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26774	26908	
==>method::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31161	31295	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7836	7969	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8783	8916	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9742	9875	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29511	29644	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33469	33602	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36379	36512	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37914	38047	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39865	39998	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40924	41057	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43129	43262	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45629	45762	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46473	46606	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47594	47727	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48857	48990	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49719	49852	
==>method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32303	32407	
==>method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32958	33062	
==>method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10686	10789	
==>method::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21023	21125	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22453	22555	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23069	23171	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26029	26131	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27511	27613	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28295	28397	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38659	38761	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39186	39288	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42242	42344	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42672	42774	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43947	44049	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50604	50706	
==>method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque') <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6622	6778	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7799	7955	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8746	8902	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9705	9861	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17618	17774	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19376	19532	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24226	24382	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29474	29630	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31124	31280	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33432	33588	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35417	35573	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36342	36498	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37877	38033	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39828	39984	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40887	41043	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43092	43248	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45592	45748	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46436	46592	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47557	47713	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48820	48976	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49682	49838	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26737	26891	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10649	10775	
==>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32266	32392	
==>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32921	33047	
==>new(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20986	21111	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22416	22541	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23032	23157	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25992	26117	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27474	27599	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28258	28383	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38622	38747	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39149	39274	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42205	42330	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42635	42760	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43910	44035	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50567	50692	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self: <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24229	24397	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35420	35584	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6625	6786	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17621	17782	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19379	19540	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26740	26901	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31127	31288	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7802	7962	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8749	8909	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9708	9868	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29477	29637	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33435	33595	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36345	36505	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37880	38040	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39831	39991	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40890	41050	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43095	43255	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45595	45755	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46439	46599	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47560	47720	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48823	48983	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49685	49845	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32269	32400	
==>(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32924	33055	
==>(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10652	10782	
==>(
            $::ENV,
            method::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20989	21118	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22419	22548	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23035	23164	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25995	26124	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27477	27606	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28261	28390	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38625	38754	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39152	39281	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42208	42337	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42638	42767	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43913	44042	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
37	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50570	50699	
==>(
            $::ENV,
            method::signature->new(
                params => method::params->new(symbol->new('$self:' => 'o <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6239	6379	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10821	10961	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2486	2626	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4300	4440	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5229	5369	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6190	6330	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7405	7545	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8805	8945	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10196	10336	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12050	12190	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10821	10961	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2486	2626	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4300	4440	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10821	10961	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2486	2626	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4300	4440	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6239	6379	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5229	5369	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6190	6330	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7405	7545	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8805	8945	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10196	10336	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12050	12190	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6239	6379	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5229	5369	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6190	6330	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7405	7545	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8805	8945	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10196	10336	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12050	12190	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attr <==
34	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	414	547	
==>ng") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self- <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	247	351	
==>SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $ <==
34	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	247	351	
==>SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $ <==
34	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	247	351	
==>SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $ <==
34	/Users/nnunley/pugs/util/combine_tests.pl	1464	1616	
==>rn 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for( <==
34	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6064	6161	
==>free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Date.pm	5008	5105	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	2006	2103	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	636	733	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1774	1871	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15865	15962	
==>free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7987	8084	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10565	10662	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14082	14179	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11024	11121	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5045	5142	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Span.pm	17923	18020	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6291	6388	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3502	3599	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6884	6981	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6764	6861	
==>free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6064	6161	
==>free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	2006	2103	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	636	733	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1774	1871	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	5008	5105	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15865	15962	
==>free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7987	8084	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10565	10662	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14082	14179	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11024	11121	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5045	5142	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17923	18020	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6291	6388	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3502	3599	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6884	6981	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6764	6861	
==>free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut <==
34	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6764	6861	
==>free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut <==
33	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6061	6160	
==>is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Date.pm	5005	5104	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	2003	2102	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	633	732	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1771	1870	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15862	15961	
==>is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7984	8083	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10562	10661	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14079	14178	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11021	11120	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5042	5141	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Span.pm	17920	18019	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6288	6387	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3499	3598	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6881	6980	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6761	6860	
==>is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6061	6160	
==>is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	2003	2102	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	633	732	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1771	1870	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	5005	5104	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15862	15961	
==>is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7984	8083	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10562	10661	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14079	14178	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11021	11120	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5042	5141	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17920	18019	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6288	6387	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3499	3598	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6881	6980	
==>is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6761	6860	
==>is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cu <==
33	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6761	6860	
==>is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cu <==
31	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6059	6158	
==>m is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Date.pm	5003	5102	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	2001	2100	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	631	730	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1769	1868	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7982	8081	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10560	10659	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14077	14176	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	11019	11118	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5040	5139	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Span.pm	17918	18017	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6286	6385	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3497	3596	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6879	6978	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6759	6858	
==>m is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6059	6158	
==>m is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	2001	2100	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	631	730	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1769	1868	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	5003	5102	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7982	8081	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10560	10659	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14077	14176	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	11019	11118	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5040	5139	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17918	18017	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6286	6385	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3497	3596	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6879	6978	
==>m is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

= <==
31	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6759	6858	
==>m is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

= <==
31	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6759	6858	
==>m is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.

= <==
31	/Users/nnunley/pugs/src/perl6/Prelude.pm	13968	14130	
==>tring.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ( <==
31	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4069	4207	
==>tring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ( <==
31	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4069	4207	
==>tring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ( <==
31	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4069	4207	
==>tring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ( <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39329	39420	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5064	5155	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Relation.pm	38774	38865	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24066	24157	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2220	2311	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1647	1738	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1566	1657	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19912	20003	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2579	2670	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4516	4607	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2093	2184	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2183	2274	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1621	1712	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39329	39420	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5064	5155	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43588	43679	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43122	43213	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24066	24157	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2220	2311	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1647	1738	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1566	1657	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19912	20003	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2579	2670	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4516	4607	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2093	2184	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2183	2274	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1621	1712	
==>cumentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 <==
31	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21559	21655	
==>vents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contain <==
31	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20440	20536	
==>vents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contain <==
31	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21559	21655	
==>vents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contain <==
31	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20440	20536	
==>vents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contain <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38901	38994	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4755	4848	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Relation.pm	38516	38609	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23013	23106	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1586	1679	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1248	1341	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1167	1260	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19383	19476	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2180	2273	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3877	3970	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1694	1787	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1549	1642	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1222	1315	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38901	38994	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4755	4848	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43065	43158	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42715	42808	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23013	23106	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1586	1679	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1248	1341	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1167	1260	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19383	19476	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2180	2273	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3877	3970	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1694	1787	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1549	1642	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1222	1315	
==>GURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file re <==
31	/Users/nnunley/pugs/blib6/lib/Set.pm	10352	10452	
==>s into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alr <==
31	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8245	8345	
==>s into the set. Returns the number of items inserted.

It is not fatal to insert an item which is alr <==
31	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10352	10452	
==>s into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alr <==
31	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8245	8345	
==>s into the set. Returns the number of items inserted.

It is not fatal to insert an item which is alr <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38856	38946	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4710	4800	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Relation.pm	38471	38561	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22968	23058	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1541	1631	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1203	1293	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1122	1212	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19338	19428	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2135	2225	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3832	3922	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1649	1739	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1504	1594	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1177	1267	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38856	38946	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4710	4800	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43020	43110	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42670	42760	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22968	23058	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1541	1631	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1203	1293	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1122	1212	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19338	19428	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2135	2225	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3832	3922	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1649	1739	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1504	1594	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1177	1267	
==>This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6243	6385	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10825	10967	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2490	2632	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4304	4446	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5233	5375	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6194	6336	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7409	7551	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8809	8951	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10200	10342	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12054	12196	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10825	10967	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2490	2632	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4304	4446	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10825	10967	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2490	2632	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4304	4446	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6243	6385	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5233	5375	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6194	6336	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7409	7551	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8809	8951	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10200	10342	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12054	12196	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6243	6385	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5233	5375	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6194	6336	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7409	7551	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8809	8951	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10200	10342	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12054	12196	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ <==
31	/Users/nnunley/pugs/util/version_h.pl	1751	1856	
==>sion != $old_revision) {
  # As we've closed STDIN (filehandle #0), slot #0 is available for new
  # fileh <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	21	127	
==>angeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sign <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	21	127	
==>angeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sign <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	21	127	
==>angeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sign <==
30	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1463	1553	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/CGI.pm	12000	12090	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1366	1456	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1361	1451	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4197	4287	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7175	7265	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9245	9335	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3595	3685	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3901	3991	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7078	7168	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4430	4520	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/Test.pm	16555	16645	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/lib.pm	1767	1857	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1463	1553	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	12000	12090	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1366	1456	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1361	1451	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4197	4287	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7175	7265	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9245	9335	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7078	7168	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4430	4520	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16613	16703	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1767	1857	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3595	3685	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3901	3991	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	661	751	
==>under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cut <==
30	/Users/nnunley/pugs/blib6/lib/CGI.pm	2212	2349	
==>_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" <==
30	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2212	2349	
==>_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" <==
30	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	289	392	
==>> removals.
#     Several "SourceCharacter but not ..." have been expressed as
#     complemented charac <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39307	39399	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5042	5134	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Relation.pm	38752	38844	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24044	24136	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2198	2290	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1625	1717	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1544	1636	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19890	19982	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2557	2649	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4494	4586	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2071	2163	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2161	2253	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1599	1691	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39307	39399	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5042	5134	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43566	43658	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43100	43192	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24044	24136	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2198	2290	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1625	1717	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1544	1636	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19890	19982	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2557	2649	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4494	4586	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2071	2163	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2161	2253	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1599	1691	
==>LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darre <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6234	6378	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10816	10960	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2481	2625	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4295	4439	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5224	5368	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6185	6329	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7400	7544	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8800	8944	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10191	10335	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12045	12189	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10816	10960	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2481	2625	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4295	4439	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10816	10960	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2481	2625	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4295	4439	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6234	6378	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5224	5368	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6185	6329	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7400	7544	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8800	8944	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10191	10335	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12045	12189	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6234	6378	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5224	5368	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6185	6329	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7400	7544	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8800	8944	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10191	10335	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12045	12189	
==>'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        att <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14278	14385	
==>no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6:: <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14278	14385	
==>no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6:: <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14278	14385	
==>no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6:: <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39344	39436	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5079	5171	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Relation.pm	38789	38881	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24081	24173	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2235	2327	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1662	1754	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1581	1673	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19927	20019	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2594	2686	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4531	4623	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2108	2200	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2198	2290	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1636	1728	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39344	39436	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5079	5171	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43603	43695	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43137	43229	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24081	24173	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2235	2327	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1662	1754	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1581	1673	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19927	20019	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2594	2686	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4531	4623	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2108	2200	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2198	2290	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1636	1728	
==>pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COP <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39317	39409	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5052	5144	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Relation.pm	38762	38854	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24054	24146	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2208	2300	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1635	1727	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1554	1646	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19900	19992	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2567	2659	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4504	4596	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2081	2173	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2171	2263	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1609	1701	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39317	39409	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5052	5144	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43576	43668	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43110	43202	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24054	24146	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2208	2300	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1635	1727	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1554	1646	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19900	19992	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2567	2659	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4504	4596	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2081	2173	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2171	2263	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1609	1701	
==>S

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.ne <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16983	17070	
==>gs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {.. <==
30	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16983	17070	
==>gs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {.. <==
30	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16983	17070	
==>gs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {.. <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	53	149	
==>s PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings <==
30	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	53	149	
==>s PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings <==
30	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	53	149	
==>s PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38898	38990	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4752	4844	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Relation.pm	38513	38605	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23010	23102	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1583	1675	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1245	1337	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1164	1256	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19380	19472	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2177	2269	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3874	3966	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1691	1783	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1546	1638	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1219	1311	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38898	38990	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4752	4844	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43062	43154	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42712	42804	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23010	23102	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1583	1675	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1245	1337	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1164	1256	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19380	19472	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2177	2269	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3874	3966	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1691	1783	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1546	1638	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1219	1311	
==>NFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fil <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6240	6383	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10822	10965	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2487	2630	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4301	4444	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5230	5373	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6191	6334	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7406	7549	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8806	8949	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10197	10340	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12051	12194	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10822	10965	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2487	2630	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4301	4444	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10822	10965	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2487	2630	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4301	4444	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6240	6383	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5230	5373	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6191	6334	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7406	7549	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8806	8949	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10197	10340	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12051	12194	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6240	6383	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5230	5373	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6191	6334	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7406	7549	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8806	8949	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10197	10340	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
30	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12051	12194	
==>ss_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	37494	37593	
==>nd the order of its arguments is not significant to the result;
the new Relation is the result of co <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42043	42142	
==>nd the order of its arguments is not significant to the result;
the new Relation is the result of co <==
29	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1431	1524	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI.pm	11968	12061	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1334	1427	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1329	1422	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4165	4258	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7143	7236	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9213	9306	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3563	3656	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3869	3962	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7046	7139	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4398	4491	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/Test.pm	16523	16616	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/lib.pm	1735	1828	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1431	1524	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11968	12061	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1334	1427	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1329	1422	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4165	4258	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7143	7236	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9213	9306	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7046	7139	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4398	4491	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16581	16674	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1735	1828	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3563	3656	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3869	3962	
==>edistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	629	722	
==>edistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/ <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3021	3130	
==>ent, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_co <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3021	3130	
==>ent, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_co <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38837	38929	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4691	4783	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38452	38544	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22949	23041	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1522	1614	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1184	1276	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1103	1195	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19319	19411	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2116	2208	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3813	3905	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1630	1722	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1485	1577	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1158	1250	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38837	38929	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4691	4783	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43001	43093	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42651	42743	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22949	23041	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1522	1614	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1184	1276	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1103	1195	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19319	19411	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2116	2208	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3813	3905	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1630	1722	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1485	1577	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1158	1250	
==>ad1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<T <==
29	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3399	3511	
==>e {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
su <==
29	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3399	3511	
==>e {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
su <==
29	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3399	3511	
==>e {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
su <==
29	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	726	826	
==>$rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compi <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	726	826	
==>$rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compi <==
29	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1960	2056	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	590	686	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1728	1824	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7941	8037	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10519	10615	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14036	14132	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10978	11074	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4999	5095	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Span.pm	17877	17973	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6245	6341	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3456	3552	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6838	6934	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1960	2056	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	590	686	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1728	1824	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7941	8037	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10519	10615	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14036	14132	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10978	11074	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4999	5095	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17877	17973	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6245	6341	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3456	3552	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6838	6934	
==>Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modif <==
29	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1408	1506	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/CGI.pm	11945	12043	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1311	1409	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1306	1404	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4142	4240	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7120	7218	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9190	9288	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3540	3638	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3846	3944	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7023	7121	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4375	4473	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/Test.pm	16500	16598	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/lib.pm	1712	1810	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1408	1506	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11945	12043	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1311	1409	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1306	1404	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4142	4240	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7120	7218	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9190	9288	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7023	7121	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4375	4473	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16558	16656	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1712	1810	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3540	3638	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3846	3944	
==>ree software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	606	704	
==>ree software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See ht <==
29	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1027	1113	
==>lass Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
c <==
29	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1027	1113	
==>lass Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
c <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	908	1006	
==>r( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	908	1006	
==>r( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39373	39467	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5108	5202	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38818	38912	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24110	24204	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2264	2358	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1691	1785	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1610	1704	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19956	20050	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2623	2717	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4560	4654	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2137	2231	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2227	2321	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1665	1759	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39373	39467	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5108	5202	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43632	43726	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43166	43260	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24110	24204	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2264	2358	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1691	1785	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1610	1704	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19956	20050	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2623	2717	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4560	4654	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2137	2231	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2227	2321	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1665	1759	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of th <==
29	/Users/nnunley/pugs/util/catalog_tests.pl	14352	14452	
==>>look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "styleshee <==
29	/Users/nnunley/pugs/inc/Test/Harness.pm	368	465	
==>rap
);

=head1 NAME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VERSIO <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38842	38934	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4696	4788	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38457	38549	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22954	23046	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1527	1619	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1189	1281	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1108	1200	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19324	19416	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2121	2213	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3818	3910	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1635	1727	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1490	1582	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1163	1255	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38842	38934	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4696	4788	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43006	43098	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42656	42748	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22954	23046	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1527	1619	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1189	1281	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1108	1200	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19324	19416	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2121	2213	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3818	3910	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1635	1727	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1490	1582	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1163	1255	
==>IAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This d <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	243	354	
==>is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir ( <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	243	354	
==>is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir ( <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38863	38954	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4717	4808	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38478	38569	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22975	23066	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1548	1639	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1210	1301	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1129	1220	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19345	19436	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2142	2233	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3839	3930	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1656	1747	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1511	1602	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1184	1275	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38863	38954	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4717	4808	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43027	43118	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42677	42768	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22975	23066	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1548	1639	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1210	1301	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1129	1220	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19345	19436	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2142	2233	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3839	3930	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1656	1747	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1511	1602	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1184	1275	
==>cumentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pend <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2312	2449	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11180	11317	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12139	12276	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13188	13325	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13648	13785	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20143	20280	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21238	21375	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26232	26369	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26945	27082	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27302	27439	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27466	27603	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27807	27944	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27971	28108	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2505	2642	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11459	11596	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12418	12555	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13467	13604	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13927	14064	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20422	20559	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21517	21654	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26511	26648	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27224	27361	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27581	27718	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27745	27882	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28086	28223	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28250	28387	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\ <==
29	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7726	7841	
==>$/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g" <==
29	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7726	7841	
==>$/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g" <==
29	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7726	7841	
==>$/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g" <==
29	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6855	6959	
==>'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' , <==
29	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6855	6959	
==>'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' , <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39338	39431	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5073	5166	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38783	38876	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24075	24168	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2229	2322	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1656	1749	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1575	1668	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19921	20014	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2588	2681	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4525	4618	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2102	2195	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2192	2285	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1630	1723	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39338	39431	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5073	5166	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43597	43690	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43131	43224	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24075	24168	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2229	2322	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1656	1749	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1575	1668	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19921	20014	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2588	2681	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4525	4618	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2102	2195	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2192	2285	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1630	1723	
==>on is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AN <==
29	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12365	12462	
==>rk in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entit <==
29	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12365	12462	
==>rk in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entit <==
29	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1441	1534	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI.pm	11978	12071	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1344	1437	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1339	1432	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4175	4268	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7153	7246	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9223	9316	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3573	3666	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3879	3972	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7056	7149	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4408	4501	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/Test.pm	16533	16626	
==>e it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib6/lib/lib.pm	1745	1838	
==>e it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1441	1534	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11978	12071	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1344	1437	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1339	1432	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4175	4268	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7153	7246	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9223	9316	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7056	7149	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4408	4501	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16591	16684	
==>e it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1745	1838	
==>e it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3573	3666	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3879	3972	
==>e it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	639	732	
==>e it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/ <==
29	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	96	191	
==>- A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, relea <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38924	39019	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4778	4873	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38539	38634	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23036	23131	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1609	1704	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1271	1366	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1190	1285	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19406	19501	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2203	2298	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3900	3995	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1717	1812	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1572	1667	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1245	1340	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38924	39019	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4778	4873	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43088	43183	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42738	42833	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23036	23131	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1609	1704	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1271	1366	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1190	1285	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19406	19501	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2203	2298	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3900	3995	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1717	1812	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1572	1667	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1245	1340	
==>T

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Per <==
29	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	96	191	
==>- A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, relea <==
29	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9891	9987	
==>ift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::Lis <==
29	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9891	9987	
==>ift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::Lis <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39334	39426	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5069	5161	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Relation.pm	38779	38871	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24071	24163	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2225	2317	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1652	1744	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1571	1663	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19917	20009	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2584	2676	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4521	4613	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2098	2190	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2188	2280	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1626	1718	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39334	39426	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5069	5161	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43593	43685	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43127	43219	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24071	24163	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2225	2317	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1652	1744	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1571	1663	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19917	20009	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2584	2676	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4521	4613	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2098	2190	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2188	2280	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
29	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1626	1718	
==>tation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICEN <==
28	/Users/nnunley/pugs/inc/Test/Harness.pm	927	1026	
==>{ return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($verbose $switc <==
28	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1439	1532	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/CGI.pm	11976	12069	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1342	1435	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1337	1430	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4173	4266	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7151	7244	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9221	9314	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3571	3664	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3877	3970	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7054	7147	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4406	4499	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/Test.pm	16531	16624	
==>ute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/blib6/lib/lib.pm	1743	1836	
==>ute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1439	1532	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11976	12069	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1342	1435	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1337	1430	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4173	4266	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7151	7244	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9221	9314	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7054	7147	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4406	4499	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16589	16682	
==>ute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1743	1836	
==>ute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3571	3664	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3877	3970	
==>ute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	637	730	
==>ute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mis <==
28	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3944	4071	
==>s = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    f <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38868	38959	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4722	4813	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38483	38574	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22980	23071	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1553	1644	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1215	1306	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1134	1225	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19350	19441	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2147	2238	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3844	3935	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1661	1752	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1516	1607	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1189	1280	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38868	38959	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4722	4813	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43032	43123	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42682	42773	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22980	23071	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1553	1644	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1215	1306	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1134	1225	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19350	19441	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2147	2238	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3844	3935	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1661	1752	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1516	1607	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1189	1280	
==>tation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.> <==
28	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	842	947	
==>nodes, $program);

	$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node} <==
28	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1430	1523	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/CGI.pm	11967	12060	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1333	1426	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1328	1421	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4164	4257	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7142	7235	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9212	9305	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3562	3655	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3868	3961	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7045	7138	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4397	4490	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/Test.pm	16522	16615	
==>redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/blib6/lib/lib.pm	1734	1827	
==>redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1430	1523	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11967	12060	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1333	1426	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1328	1421	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4164	4257	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7142	7235	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9212	9305	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7045	7138	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4397	4490	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16580	16673	
==>redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1734	1827	
==>redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3562	3655	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3868	3961	
==>redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	628	721	
==>redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com <==
28	/Users/nnunley/pugs/util/build_pugs.pl	7901	8019	
==>ding.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr( <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39363	39456	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5098	5191	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38808	38901	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24100	24193	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2254	2347	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1681	1774	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1600	1693	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19946	20039	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2613	2706	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4550	4643	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2127	2220	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2217	2310	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1655	1748	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39363	39456	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5098	5191	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43622	43715	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43156	43249	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24100	24193	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2254	2347	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1681	1774	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1600	1693	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19946	20039	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2613	2706	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4550	4643	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2127	2220	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2217	2310	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1655	1748	
==>UTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is <==
28	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	254	353	
==>|| 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compil <==
28	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1434	1527	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/CGI.pm	11971	12064	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1337	1430	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1332	1425	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4168	4261	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7146	7239	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9216	9309	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3566	3659	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3872	3965	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7049	7142	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4401	4494	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/Test.pm	16526	16619	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/lib.pm	1738	1831	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1434	1527	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11971	12064	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1337	1430	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1332	1425	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4168	4261	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7146	7239	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9216	9309	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7049	7142	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4401	4494	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16584	16677	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1738	1831	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3566	3659	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3872	3965	
==>stribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	632	725	
==>stribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/per <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38836	38928	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4690	4782	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38451	38543	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22948	23040	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1521	1613	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1183	1275	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1102	1194	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19318	19410	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2115	2207	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3812	3904	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1629	1721	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1484	1576	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1157	1249	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38836	38928	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4690	4782	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43000	43092	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42650	42742	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22948	23040	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1521	1613	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1183	1275	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1102	1194	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19318	19410	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2115	2207	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3812	3904	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1629	1721	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1484	1576	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1157	1249	
==>ead1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I< <==
28	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3803	3891	
==>.
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z) --> p5_ran <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38885	38977	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4739	4831	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38500	38592	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22997	23089	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1570	1662	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1232	1324	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1151	1243	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19367	19459	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2164	2256	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3861	3953	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1678	1770	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1533	1625	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1206	1298	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38885	38977	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4739	4831	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43049	43141	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42699	42791	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22997	23089	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1570	1662	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1232	1324	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1151	1243	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19367	19459	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2164	2256	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3861	3953	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1678	1770	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1533	1625	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1206	1298	
==>.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENC <==
28	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	706	797	
==>AME

Blondie::Reducer::DuplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1880	2015	
==>m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m ) {
                    #print "Match: " <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38834	38924	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4688	4778	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38449	38539	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22946	23036	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1519	1609	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1181	1271	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1100	1190	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19316	19406	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2113	2203	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3810	3900	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1627	1717	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1482	1572	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1155	1245	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38834	38924	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4688	4778	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42998	43088	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42648	42738	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22946	23036	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1519	1609	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1181	1271	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1100	1190	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19316	19406	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2113	2203	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3810	3900	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1627	1717	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1482	1572	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1155	1245	
==>=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT <==
28	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15608	15724	
==>ame
    pos = $I0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar")
  end:
    m <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38931	39025	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4785	4879	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38546	38640	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23043	23137	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1616	1710	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1278	1372	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1197	1291	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19413	19507	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2210	2304	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3907	4001	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1724	1818	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1579	1673	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1252	1346	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38931	39025	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4785	4879	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43095	43189	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42745	42839	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23043	23137	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1616	1710	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1278	1372	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1197	1291	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19413	19507	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2210	2304	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3907	4001	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1724	1818	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1579	1673	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1252	1346	
==>is documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x. <==
28	/Users/nnunley/pugs/t/builtins/system/create_files.pl	863	970	
==>T';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
" <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38849	38941	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4703	4795	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Relation.pm	38464	38556	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22961	23053	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1534	1626	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1196	1288	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1115	1207	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19331	19423	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2128	2220	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3825	3917	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1642	1734	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1497	1589	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1170	1262	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38849	38941	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4703	4795	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43013	43105	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42663	42755	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22961	23053	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1534	1626	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1196	1288	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1115	1207	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19331	19423	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2128	2220	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3825	3917	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1642	1734	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1497	1589	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1170	1262	
==>ICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This document <==
28	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3242	3375	
==>ected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expected;
    }
    else {
        $pass = $go <==
28	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1455	1545	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/CGI.pm	11992	12082	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1358	1448	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1353	1443	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4189	4279	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7167	7257	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9237	9327	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3587	3677	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3893	3983	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7070	7160	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4422	4512	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/Test.pm	16547	16637	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/blib6/lib/lib.pm	1759	1849	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1455	1545	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11992	12082	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1358	1448	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1353	1443	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4189	4279	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7167	7257	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9237	9327	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7070	7160	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4422	4512	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16605	16695	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1759	1849	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3587	3677	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3893	3983	
==>dify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	653	743	
==>dify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.ht <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2988	3137	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11684	11833	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12537	12686	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14039	14188	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16791	16940	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19318	19467	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20535	20684	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21627	21776	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22559	22708	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23924	24073	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26633	26782	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28373	28522	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29380	29529	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3181	3330	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11963	12112	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12816	12965	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14318	14467	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17070	17219	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19597	19746	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20814	20963	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21906	22055	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22838	22987	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24203	24352	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26912	27061	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28652	28801	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29659	29808	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @ <==
28	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13346	13451	
==>satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ <==
28	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13346	13451	
==>satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38932	39050	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4786	4904	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38547	38665	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23044	23162	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1617	1735	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1279	1397	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1198	1316	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19414	19532	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2211	2329	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3908	4026	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1725	1843	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1580	1698	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1253	1371	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38932	39050	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4786	4904	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43096	43214	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42746	42864	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23044	23162	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1617	1735	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1279	1397	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1198	1316	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19414	19532	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2211	2329	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3908	4026	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1725	1843	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1580	1698	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1253	1371	
==>s documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0. <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1456	1552	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11993	12089	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1359	1455	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1354	1450	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4190	4286	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7168	7264	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9238	9334	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3588	3684	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3894	3990	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7071	7167	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4423	4519	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16548	16644	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1760	1856	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1456	1552	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11993	12089	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1359	1455	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1354	1450	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4190	4286	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7168	7264	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9238	9334	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7071	7167	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4423	4519	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16606	16702	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1760	1856	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3588	3684	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3894	3990	
==>ify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	654	750	
==>ify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

=cu <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38838	38932	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4692	4786	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38453	38547	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22950	23044	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1523	1617	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1185	1279	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1104	1198	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19320	19414	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2117	2211	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3814	3908	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1631	1725	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1486	1580	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1159	1253	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38838	38932	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4692	4786	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43002	43096	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42652	42746	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22950	23044	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1523	1617	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1185	1279	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1104	1198	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19320	19414	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2117	2211	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3814	3908	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1631	1725	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1486	1580	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1159	1253	
==>d1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39335	39430	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5070	5165	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38780	38875	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24072	24167	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2226	2321	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1653	1748	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1572	1667	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19918	20013	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2585	2680	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4522	4617	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2099	2194	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2189	2284	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1627	1722	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39335	39430	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5070	5165	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43594	43689	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43128	43223	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24072	24167	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2226	2321	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1653	1748	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1572	1667	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19918	20013	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2585	2680	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4522	4617	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2099	2194	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2189	2284	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1627	1722	
==>ation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE A <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38886	38989	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4740	4843	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38501	38604	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22998	23101	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1571	1674	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1233	1336	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1152	1255	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19368	19471	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2165	2268	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3862	3965	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1679	1782	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1534	1637	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1207	1310	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38886	38989	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4740	4843	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43050	43153	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42700	42803	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22998	23101	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1571	1674	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1233	1336	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1152	1255	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19368	19471	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2165	2268	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3862	3965	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1679	1782	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1534	1637	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1207	1310	
==>>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This fi <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39345	39455	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5080	5190	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38790	38900	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24082	24192	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2236	2346	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1663	1773	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1582	1692	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19928	20038	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2595	2705	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4532	4642	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2109	2219	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2199	2309	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1637	1747	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39345	39455	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5080	5190	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43604	43714	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43138	43248	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24082	24192	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2236	2346	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1663	1773	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1582	1692	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19928	20038	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2595	2705	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4532	4642	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2109	2219	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2199	2309	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1637	1747	
==>ending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file i <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39320	39419	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5055	5154	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38765	38864	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24057	24156	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2211	2310	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1638	1737	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1557	1656	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19903	20002	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2570	2669	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4507	4606	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2084	2183	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2174	2273	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1612	1711	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39320	39419	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5055	5154	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43579	43678	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43113	43212	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24057	24156	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2211	2310	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1638	1737	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1557	1656	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19903	20002	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2570	2669	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4507	4606	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2084	2183	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2174	2273	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1612	1711	
==>I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38843	38940	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4697	4794	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38458	38555	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22955	23052	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1528	1625	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1190	1287	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1109	1206	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19325	19422	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2122	2219	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3819	3916	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1636	1733	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1491	1588	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1164	1261	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38843	38940	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4697	4794	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43007	43104	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42657	42754	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22955	23052	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1528	1625	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1190	1287	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1109	1206	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19325	19422	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2122	2219	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3819	3916	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1636	1733	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1491	1588	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1164	1261	
==>AGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documen <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1435	1531	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11972	12068	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1338	1434	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1333	1429	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4169	4265	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7147	7243	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9217	9313	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3567	3663	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3873	3969	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7050	7146	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4402	4498	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16527	16623	
==>tribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1739	1835	
==>tribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1435	1531	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11972	12068	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1338	1434	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1333	1429	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4169	4265	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7147	7243	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9217	9313	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7050	7146	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4402	4498	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16585	16681	
==>tribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1739	1835	
==>tribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3567	3663	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3873	3969	
==>tribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	633	729	
==>tribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/mi <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38927	39024	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4781	4878	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38542	38639	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23039	23136	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1612	1709	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1274	1371	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1193	1290	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19409	19506	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2206	2303	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3903	4000	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1720	1817	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1575	1672	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1248	1345	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38927	39024	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4781	4878	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43091	43188	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42741	42838	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23039	23136	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1612	1709	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1274	1371	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1193	1290	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19409	19506	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2206	2303	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3903	4000	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1720	1817	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1575	1672	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1248	1345	
==>I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39330	39425	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5065	5160	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38775	38870	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24067	24162	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2221	2316	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1648	1743	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1567	1662	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19913	20008	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2580	2675	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4517	4612	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2094	2189	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2184	2279	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1622	1717	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39330	39425	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5065	5160	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43589	43684	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43123	43218	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24067	24162	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2221	2316	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1648	1743	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1567	1662	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19913	20008	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2580	2675	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4517	4612	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2094	2189	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2184	2279	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1622	1717	
==>umentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICE <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1432	1526	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11969	12063	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1335	1429	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1330	1424	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4166	4260	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7144	7238	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9214	9308	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3564	3658	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3870	3964	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7047	7141	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4399	4493	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16524	16618	
==>distribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1736	1830	
==>distribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1432	1526	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11969	12063	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1335	1429	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1330	1424	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4166	4260	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7144	7238	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9214	9308	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7047	7141	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4399	4493	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16582	16676	
==>distribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1736	1830	
==>distribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3564	3658	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3870	3964	
==>distribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	630	724	
==>distribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/pe <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1407	1505	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11944	12042	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1310	1408	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1305	1403	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4141	4239	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7119	7217	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9189	9287	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3539	3637	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3845	3943	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7022	7120	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4374	4472	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16499	16597	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1711	1809	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1407	1505	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11944	12042	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1310	1408	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1305	1403	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4141	4239	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7119	7217	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9189	9287	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7022	7120	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4374	4472	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16557	16655	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1711	1809	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3539	3637	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3845	3943	
==>free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	605	703	
==>free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See h <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39308	39408	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5043	5143	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38753	38853	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24045	24145	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2199	2299	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1626	1726	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1545	1645	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19891	19991	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2558	2658	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4495	4595	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2072	2172	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2162	2262	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1600	1700	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39308	39408	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5043	5143	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43567	43667	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43101	43201	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24045	24145	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2199	2299	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1626	1726	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1545	1645	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19891	19991	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2558	2658	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4495	4595	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2072	2172	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2162	2262	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1600	1700	
==>IMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.n <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38850	38945	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4704	4799	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38465	38560	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22962	23057	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1535	1630	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1197	1292	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1116	1211	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19332	19427	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2129	2224	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3826	3921	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1643	1738	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1498	1593	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1171	1266	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38850	38945	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4704	4799	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43014	43109	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42664	42759	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22962	23057	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1535	1630	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1197	1292	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1116	1211	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19332	19427	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2129	2224	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3826	3921	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1643	1738	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1498	1593	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1171	1266	
==>CS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentatio <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39288	39398	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5023	5133	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38733	38843	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24025	24135	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2179	2289	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1606	1716	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1525	1635	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19871	19981	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2538	2648	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4475	4585	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2052	2162	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2142	2252	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1580	1690	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39288	39398	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5023	5133	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43547	43657	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43081	43191	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24025	24135	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2179	2289	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1606	1716	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1525	1635	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19871	19981	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2538	2648	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4475	4585	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2052	2162	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2142	2252	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1580	1690	
==>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@Darr <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38902	39018	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4756	4872	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38517	38633	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23014	23130	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1587	1703	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1249	1365	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1168	1284	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19384	19500	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2181	2297	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3878	3994	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1695	1811	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1550	1666	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1223	1339	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38902	39018	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4756	4872	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43066	43182	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42716	42832	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23014	23130	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1587	1703	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1249	1365	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1168	1284	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19384	19500	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2181	2297	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3878	3994	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1695	1811	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1550	1666	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1223	1339	
==>URATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file requires any version of Pe <==
27	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14461	14562	
==>andlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_hash_compl <==
27	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1955	2053	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	585	683	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1723	1821	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7936	8034	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10514	10612	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14031	14129	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10973	11071	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4994	5092	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Span.pm	17872	17970	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6240	6338	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3451	3549	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6833	6931	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1955	2053	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	585	683	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1723	1821	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7936	8034	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10514	10612	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14031	14129	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10973	11071	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4994	5092	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17872	17970	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6240	6338	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3451	3549	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6833	6931	
==>o S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17013	17109	
==>in their other language(s) of choice.  Assuming the main
application is written in Perl, it is th <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17013	17109	
==>in their other language(s) of choice.  Assuming the main
application is written in Perl, it is th <==
27	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3316	3452	
==>$offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      } <==
27	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3316	3452	
==>$offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      } <==
27	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3316	3452	
==>$offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      } <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11899	11994	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1265	1360	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1260	1355	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4096	4191	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7074	7169	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9144	9239	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6977	7072	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4329	4424	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9227	9322	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Tree.pm	11817	11912	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	906	1001	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1666	1761	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11899	11994	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1265	1360	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1260	1355	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4096	4191	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7074	7169	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9144	9239	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6977	7072	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4329	4424	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9227	9322	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11817	11912	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	906	1001	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1666	1761	
==>ittle. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38835	38927	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4689	4781	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38450	38542	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22947	23039	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1520	1612	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1182	1274	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1101	1193	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19317	19409	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2114	2206	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3811	3903	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1628	1720	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1483	1575	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1156	1248	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38835	38927	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4689	4781	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42999	43091	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42649	42741	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22947	23039	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1520	1612	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1182	1274	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1101	1193	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19317	19409	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2114	2206	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3811	3903	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1628	1720	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1483	1575	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1156	1248	
==>head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38857	38953	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4711	4807	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38472	38568	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22969	23065	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1542	1638	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1204	1300	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1123	1219	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19339	19435	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2136	2232	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3833	3929	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1650	1746	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1505	1601	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1178	1274	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38857	38953	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4711	4807	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43021	43117	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42671	42767	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22969	23065	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1542	1638	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1204	1300	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1123	1219	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19339	19435	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2136	2232	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3833	3929	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1650	1746	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1505	1601	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1178	1274	
==>his documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pen <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1409	1522	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11946	12059	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1312	1425	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1307	1420	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4143	4256	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7121	7234	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9191	9304	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3541	3654	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3847	3960	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7024	7137	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4376	4489	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16501	16614	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1713	1826	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1409	1522	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11946	12059	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1312	1425	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1307	1420	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4143	4256	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7121	7234	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9191	9304	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7024	7137	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4376	4489	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16559	16672	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1713	1826	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3541	3654	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3847	3960	
==>ee software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	607	720	
==>ee software; you can redistribute it and/or modify it
under the same terms as Perl itself.

See http://www.perl.co <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38869	38976	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4723	4830	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38484	38591	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22981	23088	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1554	1661	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1216	1323	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1135	1242	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19351	19458	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2148	2255	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3845	3952	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1662	1769	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1517	1624	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1190	1297	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38869	38976	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4723	4830	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43033	43140	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42683	42790	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22981	23088	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1554	1661	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1216	1323	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1135	1242	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19351	19458	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2148	2255	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3845	3952	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1662	1769	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1517	1624	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1190	1297	
==>ation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDEN <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1443	1544	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11980	12081	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1346	1447	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1341	1442	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4177	4278	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7155	7256	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9225	9326	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3575	3676	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3881	3982	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7058	7159	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4410	4511	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16535	16636	
==>it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1747	1848	
==>it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1443	1544	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11980	12081	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1346	1447	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1341	1442	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4177	4278	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7155	7256	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9225	9326	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7058	7159	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4410	4511	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16593	16694	
==>it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1747	1848	
==>it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3575	3676	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3881	3982	
==>it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	641	742	
==>it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.h <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39364	39466	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5099	5201	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38809	38911	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24101	24203	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2255	2357	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1682	1784	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1601	1703	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19947	20049	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2614	2716	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4551	4653	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2128	2230	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2218	2320	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1656	1758	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39364	39466	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5099	5201	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43623	43725	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43157	43259	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24101	24203	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2255	2357	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1682	1784	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1601	1703	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19947	20049	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2614	2716	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4551	4653	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2128	2230	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2218	2320	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1656	1758	
==>THOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of t <==
27	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1440	1533	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/CGI.pm	11977	12070	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1343	1436	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1338	1431	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4174	4267	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7152	7245	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9222	9315	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3572	3665	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3878	3971	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	7055	7148	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4407	4500	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/Test.pm	16532	16625	
==>te it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/lib.pm	1744	1837	
==>te it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1440	1533	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11977	12070	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1343	1436	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1338	1431	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4174	4267	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7152	7245	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9222	9315	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	7055	7148	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4407	4500	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16590	16683	
==>te it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1744	1837	
==>te it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3572	3665	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3878	3971	
==>te it and/or modify
it under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	638	731	
==>te it and/or modify it
under the same terms as Perl itself.

See http://www.perl.com/perl/misc <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38899	38993	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4753	4847	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38514	38608	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23011	23105	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1584	1678	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1246	1340	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1165	1259	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19381	19475	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2178	2272	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3875	3969	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1692	1786	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1547	1641	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1220	1314	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38899	38993	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4753	4847	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43063	43157	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42713	42807	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23011	23105	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1584	1678	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1246	1340	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1165	1259	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19381	19475	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2178	2272	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3875	3969	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1692	1786	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1547	1641	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1220	1314	
==>FIGURATION AND ENVIRONMENT

I<This documentation is pending.>

=head1 DEPENDENCIES

This file r <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38864	38958	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4718	4812	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38479	38573	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22976	23070	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1549	1643	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1211	1305	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1130	1224	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19346	19440	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2143	2237	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3840	3934	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1657	1751	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1512	1606	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1185	1279	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38864	38958	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4718	4812	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43028	43122	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42678	42772	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22976	23070	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1549	1643	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1211	1305	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1130	1224	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19346	19440	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2143	2237	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3840	3934	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1657	1751	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1512	1606	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1185	1279	
==>umentation is pending.>

=head1 CONFIGURATION AND ENVIRONMENT

I<This documentation is pending. <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39339	39435	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5074	5170	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38784	38880	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24076	24172	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2230	2326	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1657	1753	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1576	1672	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19922	20018	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2589	2685	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4526	4622	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2103	2199	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2193	2289	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1631	1727	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39339	39435	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5074	5170	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43598	43694	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43132	43228	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24076	24172	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2230	2326	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1657	1753	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1576	1672	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19922	20018	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2589	2685	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4526	4622	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2103	2199	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2193	2289	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1631	1727	
==>n is pending.>

=head1 AUTHOR

Darren R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND CO <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39374	39468	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5109	5203	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Relation.pm	38819	38913	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24111	24205	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2265	2359	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1692	1786	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1611	1705	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19957	20051	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2624	2718	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4561	4655	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2138	2232	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2228	2322	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1666	1760	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39374	39468	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5109	5203	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43633	43727	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43167	43261	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24111	24205	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2265	2359	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1692	1786	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1611	1705	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19957	20051	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2624	2718	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4561	4655	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2138	2232	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2228	2322	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
27	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1666	1760	
==>en R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the <==
26	/Users/nnunley/pugs/blib6/lib/CGI.pm	11878	11974	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1244	1340	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1239	1335	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4075	4171	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7053	7149	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9123	9219	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6956	7052	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4308	4404	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9206	9302	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	11796	11892	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	885	981	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/blib6/lib/lib.pm	1645	1741	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11878	11974	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1244	1340	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1239	1335	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4075	4171	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7053	7149	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9123	9219	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6956	7052	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4308	4404	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9206	9302	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11796	11892	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	885	981	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1645	1741	
==>ht (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistri <==
26	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6475	6564	
==>is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', ' <==
26	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11533	11622	
==>is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', ' <==
26	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4016	4109	
==>ymmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for " <==
26	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4016	4109	
==>ymmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for " <==
26	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1957	2054	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	587	684	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1725	1822	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7938	8035	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10516	10613	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14033	14130	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10975	11072	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4996	5093	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Span.pm	17874	17971	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6242	6339	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3453	3550	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6835	6932	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1957	2054	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	587	684	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1725	1822	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7938	8035	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10516	10613	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14033	14130	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10975	11072	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4996	5093	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17874	17971	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6242	6339	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3453	3550	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6835	6932	
==>S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or mod <==
26	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23857	23951	
==>Rosetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

G <==
26	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23857	23951	
==>Rosetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

G <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2289	2448	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11157	11316	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12116	12275	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13165	13324	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13625	13784	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20120	20279	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21215	21374	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26209	26368	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26922	27081	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27279	27438	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27443	27602	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27784	27943	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27948	28107	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2482	2641	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11436	11595	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12395	12554	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13444	13603	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13904	14063	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20399	20558	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21494	21653	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26488	26647	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27201	27360	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27558	27717	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27722	27881	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28063	28222	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28227	28386	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( " <==
26	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	393	509	
==>.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      E <==
26	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	393	509	
==>.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      E <==
26	/Users/nnunley/pugs/blib6/lib/CGI.pm	11874	11970	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1240	1336	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1235	1331	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4071	4167	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7049	7145	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9119	9215	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6952	7048	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4304	4400	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9202	9298	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	11792	11888	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	881	977	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/lib.pm	1641	1737	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11874	11970	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1240	1336	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1235	1331	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4071	4167	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7049	7145	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9119	9215	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6952	7048	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4304	4400	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9202	9298	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11792	11888	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	881	977	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1641	1737	
==>yright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4300	4428	
==>_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $cl <==
26	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4300	4428	
==>_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $cl <==
26	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1924	2022	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	554	652	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1692	1790	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7905	8003	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10483	10581	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14000	14098	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10942	11040	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4963	5061	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Span.pm	17841	17939	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6209	6307	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3420	3518	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6802	6900	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1924	2022	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	554	652	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1692	1790	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7905	8003	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10483	10581	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14000	14098	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10942	11040	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4963	5061	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17841	17939	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6209	6307	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3420	3518	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6802	6900	
==>IGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6672	6823	
==>y_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_in <==
26	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6672	6823	
==>y_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_in <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4059	4157	
==>YRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4059	4157	
==>YRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/CGI.pm	11863	11960	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1229	1326	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1224	1321	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7038	7135	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9108	9205	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6941	7038	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4293	4390	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9191	9288	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	11781	11878	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	870	967	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/lib.pm	1630	1727	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11863	11960	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1229	1326	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1224	1321	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7038	7135	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9108	9205	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6941	7038	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4293	4390	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9191	9288	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11781	11878	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	870	967	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1630	1727	
==>YRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; yo <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	5681	5790	
==>rn $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($chil <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5681	5790	
==>rn $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($chil <==
26	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1921	2017	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	551	647	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1689	1785	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7902	7998	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10480	10576	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13997	14093	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10939	11035	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4960	5056	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Span.pm	17838	17934	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6206	6302	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3417	3513	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6799	6895	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1921	2017	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	551	647	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1689	1785	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7902	7998	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10480	10576	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13997	14093	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10939	11035	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4960	5056	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17838	17934	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6206	6302	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3417	3513	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6799	6895	
==>PYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwar <==
26	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1022	1148	
==>t',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Enti <==
26	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1022	1148	
==>t',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Enti <==
26	/Users/nnunley/pugs/blib6/lib/CGI.pm	11892	11987	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1258	1353	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1253	1348	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4089	4184	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7067	7162	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9137	9232	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6970	7065	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4322	4417	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9220	9315	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	11810	11905	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	899	994	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/blib6/lib/lib.pm	1659	1754	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11892	11987	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1258	1353	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1253	1348	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4089	4184	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7067	7162	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9137	9232	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6970	7065	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4322	4417	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9220	9315	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11810	11905	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	899	994	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1659	1754	
==>tevan Little. All rights reserved.

This program is free software; you can redistribute it and/o <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2983	3135	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11679	11831	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12532	12684	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14034	14186	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16786	16938	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19313	19465	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20530	20682	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21622	21774	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22554	22706	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23919	24071	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26628	26780	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28368	28520	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29375	29527	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3176	3328	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11958	12110	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12811	12963	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14313	14465	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17065	17217	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19592	19744	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20809	20961	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21901	22053	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22833	22985	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24198	24350	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26907	27059	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28647	28799	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29654	29806	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push <==
26	/Users/nnunley/pugs/blib6/lib/Tree.pm	8265	8368	
==>always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since e <==
26	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8265	8368	
==>always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since e <==
26	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1934	2032	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	564	662	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1702	1800	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7915	8013	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10493	10591	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14010	14108	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10952	11050	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4973	5071	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Span.pm	17851	17949	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6219	6317	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3430	3528	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6812	6910	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1934	2032	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	564	662	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1702	1800	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7915	8013	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10493	10591	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14010	14108	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10952	11050	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4973	5071	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17851	17949	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6219	6317	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3430	3528	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
26	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6812	6910	
==>right (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redi <==
25	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32	282	
==>nal packages used by packages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Co <==
25	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1958	2055	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	588	685	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1726	1823	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7939	8036	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10517	10614	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14034	14131	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10976	11073	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4997	5094	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Span.pm	17875	17972	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6243	6340	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3454	3551	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6836	6933	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1958	2055	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	588	685	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1726	1823	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7939	8036	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10517	10614	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14034	14131	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10976	11073	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4997	5094	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17875	17972	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6243	6340	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3454	3551	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6836	6933	
==>. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14670	14782	
==>s} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @p <==
25	/Users/nnunley/pugs/blib6/lib/CGI.pm	11898	11993	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1264	1359	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1259	1354	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4095	4190	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7073	7168	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9143	9238	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6976	7071	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4328	4423	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9226	9321	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Tree.pm	11816	11911	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	905	1000	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/blib6/lib/lib.pm	1665	1760	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11898	11993	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1264	1359	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1259	1354	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4095	4190	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7073	7168	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9143	9238	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6976	7071	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4328	4423	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9226	9321	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11816	11911	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	905	1000	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1665	1760	
==>Little. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12550	12699	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14052	14201	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16804	16953	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19331	19480	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20548	20697	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21640	21789	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22572	22721	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23937	24086	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26646	26795	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28386	28535	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29393	29542	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12829	12978	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14331	14480	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17083	17232	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19610	19759	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20827	20976	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21919	22068	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22851	23000	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24216	24365	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26925	27074	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28665	28814	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29672	29821	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \ <==
25	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5841	5937	
==>alues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=ba <==
25	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5841	5937	
==>alues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=ba <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8038	8134	
==>alues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=ba <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12544	12692	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14046	14194	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16798	16946	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19325	19473	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20542	20690	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21634	21782	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22566	22714	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23931	24079	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26640	26788	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28380	28528	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29387	29535	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12823	12971	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14325	14473	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17077	17225	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19604	19752	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20821	20969	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21913	22061	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22845	22993	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24210	24358	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26919	27067	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28659	28807	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29666	29814	
==>atch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statem <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10999	11082	
==>hts on Role state:
----------------------------------------------------------------- <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10999	11082	
==>hts on Role state:
----------------------------------------------------------------- <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10999	11082	
==>hts on Role state:
----------------------------------------------------------------- <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6479	6603	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6861	6985	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8005	8129	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9449	9573	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9831	9955	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10928	11052	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6479	6603	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6861	6985	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8005	8129	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9449	9573	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9831	9955	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10928	11052	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6479	6603	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6861	6985	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8005	8129	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9449	9573	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9831	9955	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10928	11052	
==>);        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5900	6016	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8870	8986	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5900	6016	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8870	8986	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5900	6016	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8870	8986	
==>);
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'unde <==
25	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1592	1700	
==>elf->params;

    # the body is a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $ <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4056	4151	
==>COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4056	4151	
==>COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/CGI.pm	11860	11954	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1226	1320	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1221	1315	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7035	7129	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9105	9199	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6938	7032	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4290	4384	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9188	9282	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/Tree.pm	11778	11872	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	867	961	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/blib6/lib/lib.pm	1627	1721	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11860	11954	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1226	1320	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1221	1315	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7035	7129	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9105	9199	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6938	7032	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4290	4384	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9188	9282	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11778	11872	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	867	961	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1627	1721	
==>COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softwa <==
25	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8339	8427	
==>odifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i <==
25	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	120	220	
==>uming(:offset(-1) :length(1));

multi sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 mult <==
25	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1941	2038	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	571	668	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1709	1806	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7922	8019	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10500	10597	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14017	14114	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10959	11056	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4980	5077	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Span.pm	17858	17955	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6226	6323	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3437	3534	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6819	6916	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1941	2038	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	571	668	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1709	1806	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7922	8019	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10500	10597	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14017	14114	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10959	11056	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4980	5077	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17858	17955	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6226	6323	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3437	3534	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6819	6916	
==>c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribu <==
25	/Users/nnunley/pugs/misc/S29_round.pl	1388	1505	
==>_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign <==
25	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1948	2046	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	578	676	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1716	1814	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7929	8027	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10507	10605	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14024	14122	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10966	11064	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4987	5085	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Span.pm	17865	17963	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6233	6331	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3444	3542	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6826	6924	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1948	2046	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	578	676	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1716	1814	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7929	8027	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10507	10605	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14024	14122	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10966	11064	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4987	5085	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17865	17963	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6233	6331	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3444	3542	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6826	6924	
==>, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it an <==
25	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3185	3284	
==>die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $ <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4064	4162	
==>T 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4064	4162	
==>T 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/CGI.pm	11868	11965	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1234	1331	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1229	1326	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7043	7140	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9113	9210	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6946	7043	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4298	4395	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9196	9293	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Tree.pm	11786	11883	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	875	972	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/lib.pm	1635	1732	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11868	11965	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1234	1331	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1229	1326	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7043	7140	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9113	9210	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6946	7043	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4298	4395	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9196	9293	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11786	11883	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	875	972	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1635	1732	
==>T

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can <==
25	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1925	2023	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	555	653	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1693	1791	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7906	8004	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10484	10582	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14001	14099	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10943	11041	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4964	5062	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Span.pm	17842	17940	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6210	6308	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3421	3519	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6803	6901	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1925	2023	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	555	653	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1693	1791	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7906	8004	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10484	10582	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14001	14099	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10943	11041	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4964	5062	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17842	17940	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6210	6308	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3421	3519	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6803	6901	
==>GHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you <==
25	/Users/nnunley/pugs/inc/Test/Harness.pm	29467	29561	
==>ocument the format.

Fix HARNESS_COMPILE_TEST without breaking its core usage.

Figure a way to <==
24	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9536	9647	
==>ecure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('dis <==
24	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9536	9647	
==>ecure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('dis <==
24	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6344	6450	
==>d to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5417	5523	
==>d to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ <==
24	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6344	6450	
==>d to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5417	5523	
==>d to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2427	2521	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1854	1948	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1773	1867	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20119	20213	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2786	2880	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4723	4817	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2300	2394	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2390	2484	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1828	1922	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2427	2521	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1854	1948	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1773	1867	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20119	20213	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2786	2880	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4723	4817	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2300	2394	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2390	2484	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1828	1922	
==>n R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11871	11969	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1237	1335	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1232	1330	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4068	4166	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7046	7144	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9116	9214	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6949	7047	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4301	4399	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9199	9297	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11789	11887	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	878	976	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1638	1736	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11871	11969	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1237	1335	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1232	1330	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4068	4166	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7046	7144	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9116	9214	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6949	7047	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4301	4399	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9199	9297	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11789	11887	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	878	976	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1638	1736	
==>Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4057	4153	
==>OPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4057	4153	
==>OPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11861	11956	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1227	1322	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1222	1317	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7036	7131	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9106	9201	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6939	7034	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4291	4386	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9189	9284	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11779	11874	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	868	963	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1628	1723	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11861	11956	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1227	1322	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1222	1317	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7036	7131	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9106	9201	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6939	7034	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4291	4386	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9189	9284	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11779	11874	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	868	963	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1628	1723	
==>OPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software <==
24	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23018	23115	
==>Declaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParameterList>? <==
24	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5020	5116	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24022	24118	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2176	2272	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1603	1699	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1522	1618	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19868	19964	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2535	2631	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4472	4568	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2049	2145	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2139	2235	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1577	1673	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5020	5116	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43078	43174	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24022	24118	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2176	2272	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1603	1699	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1522	1618	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19868	19964	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2535	2631	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4472	4568	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2049	2145	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2139	2235	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1577	1673	
==>ces.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1922	2021	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	552	651	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1690	1789	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7903	8002	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10481	10580	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13998	14097	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10940	11039	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4961	5060	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17839	17938	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6207	6306	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3418	3517	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6800	6899	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1922	2021	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	552	651	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1690	1789	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7903	8002	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10481	10580	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13998	14097	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10940	11039	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4961	5060	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17839	17938	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6207	6306	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3418	3517	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6800	6899	
==>YRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; y <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11900	12000	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1266	1366	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1261	1361	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4097	4197	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7075	7175	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9145	9245	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6978	7078	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4330	4430	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9228	9328	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11818	11918	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	907	1007	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1667	1767	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11900	12000	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1266	1366	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1261	1361	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4097	4197	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7075	7175	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9145	9245	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6978	7078	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4330	4430	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9228	9328	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11818	11918	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	907	1007	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1667	1767	
==>ttle. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11875	11973	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1241	1339	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1236	1334	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4072	4170	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7050	7148	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9120	9218	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6953	7051	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4305	4403	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9203	9301	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11793	11891	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	882	980	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1642	1740	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11875	11973	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1241	1339	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1236	1334	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4072	4170	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7050	7148	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9120	9218	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6953	7051	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4305	4403	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9203	9301	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11793	11891	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	882	980	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1642	1740	
==>right (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistr <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43140	43318	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46484	46662	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47605	47783	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24274	24444	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35465	35632	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6670	6834	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17666	17830	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19424	19588	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36390	36554	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37925	38089	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7847	8010	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8794	8957	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31172	31335	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33480	33643	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39876	40039	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40935	41098	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9753	9915	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29522	29684	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45640	45802	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48868	49030	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49730	49892	
==>nature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol-> <==
24	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26785	26946	
==>nature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol-> <==
24	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1296	1391	
==>rithm is based on statistics. This was my main motivation to
implement it. Other rate limiters o <==
24	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1296	1391	
==>rithm is based on statistics. This was my main motivation to
implement it. Other rate limiters o <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6473	6602	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6855	6984	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7999	8128	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9443	9572	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9825	9954	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10922	11051	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6473	6602	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6855	6984	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7999	8128	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9443	9572	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9825	9954	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10922	11051	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6473	6602	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6855	6984	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7999	8128	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9443	9572	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9825	9954	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10922	11051	
==>ethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5894	6015	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8864	8985	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5894	6015	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8864	8985	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5894	6015	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8864	8985	
==>ethod');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'und <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11879	11986	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1245	1352	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1240	1347	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4076	4183	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7054	7161	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9124	9231	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6957	7064	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4309	4416	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9207	9314	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11797	11904	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	886	993	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1646	1753	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11879	11986	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1245	1352	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1240	1347	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4076	4183	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7054	7161	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9124	9231	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6957	7064	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4309	4416	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9207	9314	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11797	11904	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	886	993	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1646	1753	
==>t (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/ <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11893	11992	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1259	1358	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1254	1353	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4090	4189	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7068	7167	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9138	9237	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6971	7070	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4323	4422	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9221	9320	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11811	11910	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	900	999	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1660	1759	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11893	11992	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1259	1358	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1254	1353	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4090	4189	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7068	7167	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9138	9237	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6971	7070	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4323	4422	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9221	9320	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11811	11910	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	900	999	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1660	1759	
==>evan Little. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1935	2037	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	565	667	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1703	1805	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7916	8018	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10494	10596	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14011	14113	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10953	11055	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4974	5076	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17852	17954	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6220	6322	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3431	3533	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6813	6915	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1935	2037	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	565	667	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1703	1805	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7916	8018	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10494	10596	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14011	14113	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10953	11055	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4974	5076	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17852	17954	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6220	6322	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3431	3533	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6813	6915	
==>ight (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistrib <==
24	/Users/nnunley/pugs/blib6/lib/Test.pm	2769	2888	
==>s);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($re <==
24	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2827	2946	
==>s);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($re <==
24	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15855	15952	
==>ibrary is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21394	21491	
==>ibrary is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41330	41427	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13718	13815	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9510	9607	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4139	4236	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17586	17683	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17008	17105	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15855	15952	
==>ibrary is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
24	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21394	21491	
==>ibrary is free software; you can redistribute it and/or
modify it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41330	41427	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13718	13815	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9510	9607	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41330	41427	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13718	13815	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9510	9607	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4139	4236	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17586	17683	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17008	17105	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4139	4236	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17586	17683	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17008	17105	
==>ibrary is free software; you can redistribute it and/or modify
it under the same terms as Perl its <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1914	2016	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	544	646	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1682	1784	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7895	7997	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10473	10575	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13990	14092	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10932	11034	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4953	5055	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17831	17933	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6199	6301	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3410	3512	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6792	6894	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1914	2016	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	544	646	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1682	1784	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7895	7997	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10473	10575	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13990	14092	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10932	11034	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4953	5055	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17831	17933	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6199	6301	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3410	3512	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6792	6894	
==>>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free softwa <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1926	2031	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	556	661	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1694	1799	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7907	8012	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10485	10590	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14002	14107	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10944	11049	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4965	5070	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17843	17948	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6211	6316	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3422	3527	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6804	6909	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1926	2031	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	556	661	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1694	1799	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7907	8012	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10485	10590	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14002	14107	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10944	11049	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4965	5070	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17843	17948	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6211	6316	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3422	3527	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6804	6909	
==>HT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can red <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12546	12694	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14048	14196	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16800	16948	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19327	19475	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20544	20692	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21636	21784	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22568	22716	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23933	24081	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26642	26790	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28382	28530	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29389	29537	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12825	12973	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14327	14475	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17079	17227	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19606	19754	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20823	20971	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21915	22063	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22847	22995	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24212	24360	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26921	27069	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28661	28809	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29668	29816	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statemen <==
24	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19375	19504	
==>or (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f <==
24	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15796	15925	
==>or (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4061	4161	
==>IGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4061	4161	
==>IGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/CGI.pm	11865	11964	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1231	1330	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1226	1325	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7040	7139	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9110	9209	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6943	7042	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4295	4394	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9193	9292	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Tree.pm	11783	11882	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	872	971	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/lib.pm	1632	1731	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11865	11964	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1231	1330	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1226	1325	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7040	7139	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9110	9209	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6943	7042	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4295	4394	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9193	9292	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11783	11882	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	872	971	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1632	1731	
==>IGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you ca <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1942	2045	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	572	675	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1710	1813	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7923	8026	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10501	10604	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14018	14121	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10960	11063	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4981	5084	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17859	17962	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6227	6330	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3438	3541	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6820	6923	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1942	2045	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	572	675	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1710	1813	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7923	8026	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10501	10604	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14018	14121	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10960	11063	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4981	5084	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17859	17962	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6227	6330	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3438	3541	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6820	6923	
==>) 2005, Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it a <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1950	2052	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	580	682	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1718	1820	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7931	8033	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10509	10611	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14026	14128	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10968	11070	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4989	5091	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17867	17969	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6235	6337	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3446	3548	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6828	6930	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1950	2052	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	580	682	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1718	1820	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7931	8033	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10509	10611	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14026	14128	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10968	11070	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4989	5091	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17867	17969	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6235	6337	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3446	3548	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6828	6930	
==>Flavio S. Glock.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5911	6025	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6498	6612	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6880	6994	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8024	8138	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8881	8995	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9468	9582	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9850	9964	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10947	11061	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5911	6025	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6498	6612	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6880	6994	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8024	8138	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8881	8995	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9468	9582	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9850	9964	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10947	11061	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5911	6025	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6498	6612	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6880	6994	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8024	8138	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8881	8995	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9468	9582	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9850	9964	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10947	11061	
==>(defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")" <==
24	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1961	2062	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	591	692	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1729	1830	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7942	8043	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10520	10621	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14037	14138	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10979	11080	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	5000	5101	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Span.pm	17878	17979	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6246	6347	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3457	3558	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6839	6940	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1961	2062	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	591	692	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1729	1830	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7942	8043	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10520	10621	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14037	14138	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10979	11080	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	5000	5101	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17878	17979	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6246	6347	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3457	3558	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6839	6940	
==>lock.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
24	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8525	8651	
==>param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $cl <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8525	8651	
==>param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $cl <==
24	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8525	8651	
==>param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $cl <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24141	24237	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2295	2391	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1722	1818	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1641	1737	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19987	20083	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2654	2750	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4591	4687	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2168	2264	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2258	2354	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1696	1792	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24141	24237	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2295	2391	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1722	1818	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1641	1737	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19987	20083	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2654	2750	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4591	4687	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2168	2264	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2258	2354	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1696	1792	
==>can.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosett <==
24	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2755	2850	
==>rrently has some issues with Perl 5 interoperability.

Parrot Perl 6 is the best performing impl <==
23	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26123	26247	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::string <==
23	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26123	26247	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::string <==
23	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26123	26247	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::string <==
23	/Users/nnunley/pugs/blib6/lib/Test.pm	1299	1404	
==>perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::pro <==
23	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1357	1462	
==>perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::pro <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2358	2453	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1785	1880	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1704	1799	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20050	20145	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2717	2812	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4654	4749	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2231	2326	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2321	2416	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1759	1854	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2358	2453	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1785	1880	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1704	1799	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20050	20145	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2717	2812	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4654	4749	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2231	2326	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2321	2416	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1759	1854	
==>he Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICEN <==
23	/Users/nnunley/pugs/blib6/lib/Relation.pm	38820	38915	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24112	24207	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2266	2361	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1693	1788	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1612	1707	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19958	20053	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2625	2720	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4562	4657	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2139	2234	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2229	2324	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1667	1762	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43634	43729	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43168	43263	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24112	24207	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2266	2361	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1693	1788	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1612	1707	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19958	20053	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2625	2720	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4562	4657	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2139	2234	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2229	2324	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1667	1762	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the R <==
23	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5021	5118	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24023	24120	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2177	2274	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1604	1701	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1523	1620	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19869	19966	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2536	2633	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4473	4570	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2050	2147	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2140	2237	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1578	1675	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5021	5118	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43079	43176	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24023	24120	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2177	2274	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1604	1701	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1523	1620	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19869	19966	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2536	2633	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4473	4570	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2050	2147	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2140	2237	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1578	1675	
==>es.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
23	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4489	4613	
==>eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of so <==
23	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4489	4613	
==>eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of so <==
23	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4489	4613	
==>eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of so <==
23	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4487	4580	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1318	1411	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	980	1073	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	899	992	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9115	9208	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1912	2005	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3609	3702	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1426	1519	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1281	1374	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	954	1047	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4487	4580	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1318	1411	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	980	1073	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	899	992	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9115	9208	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1912	2005	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3609	3702	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1426	1519	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1281	1374	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	954	1047	
==>d1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pe <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43139	43317	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46483	46661	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47604	47782	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24273	24443	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35464	35631	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6669	6833	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17665	17829	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19423	19587	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36389	36553	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37924	38088	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7846	8009	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8793	8956	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31171	31334	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33479	33642	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39875	40038	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40934	41097	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9752	9914	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29521	29683	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45639	45801	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48867	49029	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49729	49891	
==>gnature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol- <==
23	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26784	26945	
==>gnature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol- <==
23	/Users/nnunley/pugs/util/file_to_hs.pl	8	108	
==>in/perl
use IPC::Open2;
use File::Basename;
use FindBin qw<$Bin>;

# XXX - This is not at all portabl <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12540	12689	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14042	14191	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16794	16943	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19321	19470	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20538	20687	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21630	21779	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22562	22711	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23927	24076	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26636	26785	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28376	28525	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29383	29532	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12819	12968	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14321	14470	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17073	17222	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19600	19749	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20817	20966	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21909	22058	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22841	22990	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24206	24355	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26915	27064	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28655	28804	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29662	29811	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @sta <==
23	/Users/nnunley/pugs/util/catalog_tests.pl	11134	11265	
==>e closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $lin <==
23	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5013	5115	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24015	24117	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2169	2271	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1596	1698	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1515	1617	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19861	19963	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2528	2630	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4465	4567	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2042	2144	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2132	2234	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1570	1672	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5013	5115	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43071	43173	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24015	24117	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2169	2271	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1596	1698	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1515	1617	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19861	19963	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2528	2630	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4465	4567	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2042	2144	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2132	2234	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1570	1672	
==>references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
23	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13923	14037	
==>attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now <==
23	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13923	14037	
==>attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now <==
23	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13923	14037	
==>attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now <==
23	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4494	4586	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1325	1417	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	987	1079	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	906	998	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9122	9214	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1919	2011	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3616	3708	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1433	1525	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1288	1380	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	961	1053	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4494	4586	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1325	1417	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	987	1079	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	906	998	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9122	9214	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1919	2011	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3616	3708	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1433	1525	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1288	1380	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
23	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	961	1053	
==>PSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending. <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12538	12688	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14040	14190	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16792	16942	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19319	19469	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20536	20686	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21628	21778	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22560	22710	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23925	24075	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26634	26784	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28374	28524	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29381	29531	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12817	12967	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14319	14469	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17071	17221	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19598	19748	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20815	20965	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21907	22057	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22839	22989	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24204	24354	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26913	27063	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28653	28803	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29660	29810	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @st <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3146	3294	
==>[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3023	3166	
==>[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16602	16698	
==>set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the option <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16602	16698	
==>set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the option <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41216	41309	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13604	13697	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9396	9489	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4025	4118	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17472	17565	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16894	16987	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41216	41309	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13604	13697	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9396	9489	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41216	41309	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13604	13697	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9396	9489	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4025	4118	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17472	17565	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16894	16987	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4025	4118	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17472	17565	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16894	16987	
==>o S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fla <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43141	43323	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46485	46667	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47606	47788	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24275	24449	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35466	35637	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6671	6839	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17667	17835	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19425	19593	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36391	36559	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37926	38094	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7848	8015	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8795	8962	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31173	31340	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33481	33648	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39877	40044	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40936	41103	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9754	9920	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29523	29689	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45641	45807	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48869	49035	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49731	49897	
==>ature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new(' <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26786	26951	
==>ature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol->new(' <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12542	12691	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14044	14193	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16796	16945	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19323	19472	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20540	20689	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21632	21781	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22564	22713	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23929	24078	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26638	26787	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28378	28527	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29385	29534	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12821	12970	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14323	14472	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17075	17224	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19602	19751	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20819	20968	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21911	22060	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22843	22992	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24208	24357	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26917	27066	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28657	28806	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29664	29813	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @state <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29136	29263	
==>{
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29715	29842	
==>{
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29136	29263	
==>{
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29715	29842	
==>{
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4001	4112	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	466	577	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	451	562	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1436	1547	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	952	1063	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	462	573	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	479	590	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	511	622	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	726	837	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	563	674	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	575	686	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	726	837	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4001	4112	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	466	577	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	451	562	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1436	1547	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	952	1063	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	462	573	
==>{
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24161	24258	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2315	2412	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1742	1839	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1661	1758	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20007	20104	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2674	2771	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4611	4708	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2188	2285	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2278	2375	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1716	1813	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9707	9804	
==>hift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @bloc <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24161	24258	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2315	2412	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1742	1839	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1661	1758	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20007	20104	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2674	2771	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4611	4708	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2188	2285	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2278	2375	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1716	1813	
==>CENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 20 <==
22	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9707	9804	
==>hift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @bloc <==
22	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15856	15955	
==>brary is free software; you can redistribute it and/or
modify it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21395	21494	
==>brary is free software; you can redistribute it and/or
modify it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41331	41430	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13719	13818	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9511	9610	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4140	4239	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17587	17686	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17009	17108	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15856	15955	
==>brary is free software; you can redistribute it and/or
modify it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21395	21494	
==>brary is free software; you can redistribute it and/or
modify it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41331	41430	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13719	13818	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9511	9610	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41331	41430	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13719	13818	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9511	9610	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4140	4239	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17587	17686	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17009	17108	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4140	4239	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17587	17686	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17009	17108	
==>brary is free software; you can redistribute it and/or modify
it under the same terms as Perl itself <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24008	24101	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2162	2255	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1589	1682	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1508	1601	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19854	19947	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2521	2614	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4458	4551	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2035	2128	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2125	2218	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1563	1656	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24008	24101	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2162	2255	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1589	1682	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1508	1601	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19854	19947	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2521	2614	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4458	4551	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2035	2128	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2125	2218	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1563	1656	
==>ternal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
22	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5836	5927	
==>y.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/ <==
22	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5836	5927	
==>y.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/ <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2169	2291	
==>$opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this does <==
22	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2169	2291	
==>$opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this does <==
22	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2169	2291	
==>$opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this does <==
22	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15962	16081	
==>e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $results = runper <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41364	41459	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13752	13847	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9544	9639	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4173	4268	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17620	17715	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17042	17137	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41364	41459	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13752	13847	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9544	9639	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41364	41459	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13752	13847	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9544	9639	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4173	4268	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17620	17715	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17042	17137	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4173	4268	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17620	17715	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17042	17137	
==>edistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 o <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4906	5025	
==>xample: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      = <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4737	4851	
==>xample: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      = <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24172	24268	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2326	2422	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1753	1849	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1672	1768	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20018	20114	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2685	2781	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4622	4718	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2199	2295	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2289	2385	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1727	1823	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24172	24268	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2326	2422	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1753	1849	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1672	1768	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20018	20114	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2685	2781	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4622	4718	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2199	2295	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2289	2385	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1727	1823	
==>OPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, D <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43132	43316	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46476	46660	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47597	47781	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24266	24442	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35457	35630	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6662	6832	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17658	17828	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19416	19586	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36382	36552	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37917	38087	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7839	8008	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8786	8955	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31164	31333	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33472	33641	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39868	40037	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40927	41096	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9745	9913	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29514	29682	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45632	45800	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48860	49028	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49722	49890	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol <==
22	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26777	26944	
==>hod::signature->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12547	12697	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14049	14199	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16801	16951	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19328	19478	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20545	20695	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21637	21787	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22569	22719	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23934	24084	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26643	26793	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28383	28533	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29390	29540	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12826	12976	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14328	14478	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17080	17230	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19607	19757	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20824	20974	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21916	22066	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22848	22998	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24213	24363	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26922	27072	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28662	28812	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29669	29819	
==>h->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	746	858	
==>ry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # att <==
22	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	746	858	
==>ry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # att <==
22	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	746	858	
==>ry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # att <==
22	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4896	5000	
==>he final ISO9660 image name will be --iso.

Options may be abbreviated to uniqueness.

Author:         In <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41199	41291	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13587	13679	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9379	9471	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4008	4100	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17455	17547	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16877	16969	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41199	41291	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13587	13679	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9379	9471	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41199	41291	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13587	13679	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9379	9471	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4008	4100	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17455	17547	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16877	16969	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4008	4100	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17455	17547	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16877	16969	
==>ad1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrig <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12545	12693	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14047	14195	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16799	16947	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19326	19474	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20543	20691	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21635	21783	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22567	22715	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23932	24080	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26641	26789	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28381	28529	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29388	29536	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12824	12972	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14326	14474	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17078	17226	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19605	19753	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20822	20970	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21914	22062	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22846	22994	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24211	24359	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26920	27068	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28660	28808	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29667	29815	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @stateme <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24829	24924	
==>utine
simply returns, you can assume that it has succeeded, even if the return
value is undefine <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22443	22538	
==>utine simply
returns, you can assume that it has succeeded, even if the return value is
undefine <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9729	9824	
==>utine
simply returns, you can assume that it has succeeded, even if the return
value is undefine <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24829	24924	
==>utine
simply returns, you can assume that it has succeeded, even if the return
value is undefine <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22443	22538	
==>utine simply
returns, you can assume that it has succeeded, even if the return value is
undefine <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9729	9824	
==>utine
simply returns, you can assume that it has succeeded, even if the return
value is undefine <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	569	662	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	824	917	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1079	1172	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1334	1427	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1590	1683	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1846	1939	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2101	2194	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2356	2449	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2611	2704	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2866	2959	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3121	3214	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3376	3469	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3628	3721	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3872	3965	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4116	4209	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4361	4454	
==>chObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ <==
22	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	580	681	
==>ON

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for t <==
22	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	580	681	
==>ON

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for t <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41250	41348	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13638	13736	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9430	9528	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4059	4157	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17506	17604	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16928	17026	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41250	41348	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13638	13736	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9430	9528	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41250	41348	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13638	13736	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9430	9528	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4059	4157	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17506	17604	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16928	17026	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4059	4157	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17506	17604	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16928	17026	
==>gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free soft <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10896	10991	
==>osetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' = <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10896	10991	
==>osetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' = <==
22	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12386	12492	
==>5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnec <==
22	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12386	12492	
==>5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnec <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6394	6499	
==>return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_pro <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6406	6511	
==>return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_pro <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41196	41288	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13584	13676	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9376	9468	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4005	4097	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17452	17544	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16874	16966	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41196	41288	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13584	13676	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9376	9468	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41196	41288	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13584	13676	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9376	9468	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4005	4097	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17452	17544	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16874	16966	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4005	4097	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17452	17544	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16874	16966	
==>=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copy <==
22	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2206	2316	
==>Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { di <==
22	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2206	2316	
==>Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { di <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4511	4603	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1342	1434	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1004	1096	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	923	1015	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9139	9231	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1936	2028	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3633	3725	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1450	1542	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1305	1397	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	978	1070	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4511	4603	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1342	1434	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1004	1096	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	923	1015	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9139	9231	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1936	2028	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3633	3725	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1450	1542	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1305	1397	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	978	1070	
==>mentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFA <==
22	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20338	20437	
==>s a true value if the bot's socket to the server is currently connected.

Note that you might want t <==
22	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19286	19385	
==>s a true value if the bot's socket to the server is currently connected.

Note that you might want t <==
22	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7894	7993	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10472	10571	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10931	11030	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4952	5051	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Span.pm	17830	17929	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6198	6297	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3409	3508	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6791	6890	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20338	20437	
==>s a true value if the bot's socket to the server is currently connected.

Note that you might want t <==
22	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19286	19385	
==>s a true value if the bot's socket to the server is currently connected.

Note that you might want t <==
22	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7894	7993	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10472	10571	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10931	11030	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4952	5051	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17830	17929	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6198	6297	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3409	3508	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6791	6890	
==>m>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
22	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30236	30333	
==>ge Variables, which will be substituted at run-time before the text
is shown to the user.

Each Te <==
22	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30236	30333	
==>ge Variables, which will be substituted at run-time before the text
is shown to the user.

Each Te <==
22	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15849	15951	
==>This library is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21388	21490	
==>This library is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41324	41426	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13712	13814	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9504	9606	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4133	4235	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17580	17682	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17002	17104	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15849	15951	
==>This library is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
22	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21388	21490	
==>This library is free software; you can redistribute it and/or
modify it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41324	41426	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13712	13814	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9504	9606	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41324	41426	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13712	13814	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9504	9606	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4133	4235	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17580	17682	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17002	17104	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4133	4235	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17580	17682	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17002	17104	
==>This library is free software; you can redistribute it and/or modify
it under the same terms as Perl it <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12551	12700	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14053	14202	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16805	16954	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19332	19481	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20549	20698	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21641	21790	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22573	22722	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23938	24087	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26647	26796	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28387	28536	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29394	29543	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12830	12979	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14332	14481	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17084	17233	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19611	19760	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20828	20977	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21920	22069	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22852	23001	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24217	24366	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26926	27075	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28666	28815	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
22	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29673	29822	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \& <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3748	3849	
==>K! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3748	3849	
==>K! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3748	3849	
==>K! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2139	2229	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1566	1656	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1485	1575	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19831	19921	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2498	2588	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4435	4525	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2012	2102	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2102	2192	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1540	1630	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2139	2229	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1566	1656	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1485	1575	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19831	19921	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2498	2588	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4435	4525	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2012	2102	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2102	2192	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1540	1630	
==>rity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7508	7630	
==>->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infi <==
21	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4508	4600	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1339	1431	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1001	1093	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	920	1012	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9136	9228	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1933	2025	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3630	3722	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1447	1539	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1302	1394	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	975	1067	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4508	4600	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1339	1431	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1001	1093	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	920	1012	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9136	9228	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1933	2025	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3630	3722	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1447	1539	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1302	1394	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	975	1067	
==>ocumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTE <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10140	10241	
==>'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar <==
21	/Users/nnunley/pugs/blib6/lib/Set.pm	13297	13392	
==>et1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set co <==
21	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13297	13392	
==>et1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set co <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2152	2242	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1579	1669	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1498	1588	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19844	19934	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2511	2601	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4448	4538	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2025	2115	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2115	2205	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1553	1643	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2152	2242	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1579	1669	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1498	1588	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19844	19934	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2511	2601	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4448	4538	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2025	2115	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2115	2205	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1553	1643	
==>ibution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2015	2118	
==>$js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path( <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2015	2118	
==>$js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path( <==
21	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2015	2118	
==>$js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path( <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2116	2206	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1543	1633	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1462	1552	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19808	19898	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2475	2565	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4412	4502	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1989	2079	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2079	2169	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1517	1607	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2116	2206	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1543	1633	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1462	1552	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19808	19898	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2475	2565	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4412	4502	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1989	2079	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2079	2169	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1517	1607	
==>::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIO <==
21	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2172	2269	
==>ably let
L<Blondie::Runtime> load it for you.

Inherits Map.

=back

=head2 Nodes

Nodes are parts <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24187	24282	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2341	2436	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1768	1863	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1687	1782	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20033	20128	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2700	2795	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4637	4732	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2214	2309	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2304	2399	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1742	1837	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24187	24282	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2341	2436	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1768	1863	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1687	1782	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20033	20128	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2700	2795	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4637	4732	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2214	2309	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2304	2399	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1742	1837	
==>file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunca <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6244	6389	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5234	5379	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6195	6340	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7410	7555	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8810	8955	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10201	10346	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12055	12200	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6244	6389	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5234	5379	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6195	6340	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7410	7555	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8810	8955	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10201	10346	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12055	12200	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6244	6389	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5234	5379	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6195	6340	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7410	7555	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8810	8955	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10201	10346	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12055	12200	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$. <==
21	/Users/nnunley/pugs/src/perl6/Prelude.pm	16993	17111	
==>o_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41296	41394	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13684	13782	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9476	9574	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4105	4203	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17552	17650	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16974	17072	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41296	41394	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13684	13782	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9476	9574	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41296	41394	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13684	13782	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9476	9574	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4105	4203	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17552	17650	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16974	17072	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4105	4203	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17552	17650	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16974	17072	
==>C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it <==
21	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14603	14697	
==>thod kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reaso <==
21	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14603	14697	
==>thod kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reaso <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1929	2029	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1815	1915	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9139	9239	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5138	5235	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5011	5108	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	825	922	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6675	6772	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1852	1949	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5185	5282	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1142	1239	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1002	1099	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4438	4535	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5278	5375	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5261	5358	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	825	922	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1852	1949	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5185	5282	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1142	1239	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4107	4204	
==>and others.

This program is free software; you can redistribute it and/or modify it
under the sam <==
21	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1506	1602	
==>takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betwe <==
21	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1506	1602	
==>takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betwe <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9297	9457	
==>f.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  me <==
21	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1417	1559	
==>f.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

me <==
21	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1417	1559	
==>f.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

me <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2388	2482	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1815	1909	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1734	1828	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20080	20174	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2747	2841	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4684	4778	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2261	2355	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2351	2445	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1789	1883	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2388	2482	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1815	1909	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1734	1828	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20080	20174	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2747	2841	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4684	4778	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2261	2355	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2351	2445	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1789	1883	
==>setta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	742	836	
==>nt) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$ <==
21	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	742	836	
==>nt) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$ <==
21	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	742	836	
==>nt) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$ <==
21	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4563	4656	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1394	1487	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1056	1149	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	975	1068	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1988	2081	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3685	3778	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1502	1595	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1357	1450	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1030	1123	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4563	4656	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1394	1487	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1056	1149	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	975	1068	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1988	2081	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3685	3778	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1502	1595	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1357	1450	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1030	1123	
==>ocumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may <==
21	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6896	6994	
==>ame) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThun <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24173	24269	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2327	2423	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1754	1850	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1673	1769	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20019	20115	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2686	2782	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4623	4719	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2200	2296	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2290	2386	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1728	1824	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24173	24269	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2327	2423	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1754	1850	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1673	1769	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20019	20115	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2686	2782	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4623	4719	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2200	2296	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2290	2386	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1728	1824	
==>PYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Da <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41286	41383	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13674	13771	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9466	9563	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4095	4192	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17542	17639	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16964	17061	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41286	41383	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13674	13771	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9466	9563	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41286	41383	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13674	13771	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9466	9563	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4095	4192	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17542	17639	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16964	17061	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4095	4192	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17542	17639	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16964	17061	
==>opyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/o <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2704	2800	
==>abel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object- <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2704	2800	
==>abel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object- <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2704	2800	
==>abel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object- <==
21	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7185	7363	
==>m}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{sel <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24140	24236	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2294	2390	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1721	1817	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1640	1736	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19986	20082	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2653	2749	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4590	4686	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2167	2263	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2257	2353	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1695	1791	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24140	24236	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2294	2390	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1721	1817	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1640	1736	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19986	20082	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2653	2749	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4590	4686	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2167	2263	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2257	2353	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1695	1791	
==>ncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Roset <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2079	2182	
==>new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } el <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2079	2182	
==>new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } el <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2079	2182	
==>new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } el <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2087	2175	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1514	1602	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1433	1521	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19779	19867	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2446	2534	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4383	4471	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1960	2048	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2050	2138	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1488	1576	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2087	2175	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1514	1602	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1433	1521	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19779	19867	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2446	2534	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4383	4471	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1960	2048	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2050	2138	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1488	1576	
==>nal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referen <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2143	2247	
==>";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $ <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2143	2247	
==>";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $ <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2143	2247	
==>";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $ <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2405	2501	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1832	1928	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1751	1847	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20097	20193	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2764	2860	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4701	4797	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2278	2374	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2368	2464	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1806	1902	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2405	2501	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1832	1928	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1751	1847	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20097	20193	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2764	2860	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4701	4797	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2278	2374	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2368	2464	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1806	1902	
==>t (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=he <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2243	2358	
==>e) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        ret <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2243	2358	
==>e) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        ret <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2243	2358	
==>e) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        ret <==
21	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4636	4732	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1467	1563	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1129	1225	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1048	1144	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2061	2157	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3758	3854	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1575	1671	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1430	1526	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1103	1199	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4636	4732	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1467	1563	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1129	1225	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1048	1144	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2061	2157	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3758	3854	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1575	1671	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1430	1526	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1103	1199	
==>ing; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is p <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3232	3339	
==>s.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5L <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3232	3339	
==>s.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5L <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3232	3339	
==>s.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5L <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41351	41448	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13739	13836	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9531	9628	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4160	4257	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17607	17704	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17029	17126	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41351	41448	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13739	13836	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9531	9628	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41351	41448	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13739	13836	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9531	9628	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4160	4257	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17607	17704	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17029	17126	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4160	4257	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17607	17704	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17029	17126	
==>re; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl vers <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7955	8077	
==>ded) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no <==
21	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7955	8077	
==>ded) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no <==
21	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7955	8077	
==>ded) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41393	41490	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13781	13878	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9573	9670	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4202	4299	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17649	17746	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17071	17168	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41393	41490	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13781	13878	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9573	9670	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41393	41490	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13781	13878	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9573	9670	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4202	4299	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17649	17746	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17071	17168	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4202	4299	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17649	17746	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17071	17168	
==>it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later ve <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5329	5429	
==>chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_ <==
21	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5329	5429	
==>chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_ <==
21	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5329	5429	
==>chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_ <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2475	2566	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1902	1993	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1821	1912	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20167	20258	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2834	2925	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4771	4862	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2348	2439	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2438	2529	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1876	1967	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2475	2566	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1902	1993	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1821	1912	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20167	20258	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2834	2925	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4771	4862	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2348	2439	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2438	2529	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1876	1967	
==><Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3885	3989	
==>code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.s <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3885	3989	
==>code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.s <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3885	3989	
==>code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.s <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41435	41534	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13823	13922	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9615	9714	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17113	17212	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41435	41534	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13823	13922	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9615	9714	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41435	41534	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13823	13922	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9615	9714	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17113	17212	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17113	17212	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4244	4342	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17691	17789	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4244	4342	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17691	17789	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4244	4342	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17691	17789	
==>ther Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=c <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3248	3358	
==>e eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val ( <==
21	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3248	3358	
==>e eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val ( <==
21	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3248	3358	
==>e eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val ( <==
21	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4548	4642	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1379	1473	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1041	1135	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	960	1054	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1973	2067	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3670	3764	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1487	1581	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1342	1436	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1015	1109	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4548	4642	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1379	1473	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1041	1135	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	960	1054	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1973	2067	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3670	3764	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1487	1581	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1342	1436	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1015	1109	
==>PTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; th <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10873	11058	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2538	2723	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4352	4537	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10873	11058	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2538	2723	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4352	4537	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10873	11058	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2538	2723	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4352	4537	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10726	10831	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11776	11881	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8277	8382	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9329	9434	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10726	10831	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11776	11881	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8277	8382	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9329	9434	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10726	10831	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11776	11881	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8277	8382	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9329	9434	
==>::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cla <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24118	24211	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2272	2365	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1699	1792	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1618	1711	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19964	20057	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2631	2724	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4568	4661	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2145	2238	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2235	2328	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1673	1766	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24118	24211	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2272	2365	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1699	1792	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1618	1711	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19964	20057	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2631	2724	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4568	4661	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2145	2238	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2235	2328	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1673	1766	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Roset <==
21	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27534	27620	
==>INTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_set(p <==
21	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15063	15172	
==>] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scala <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24162	24259	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2316	2413	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1743	1840	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1662	1759	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20008	20105	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2675	2772	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4612	4709	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2189	2286	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2279	2376	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1717	1814	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24162	24259	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2316	2413	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1743	1840	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1662	1759	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20008	20105	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2675	2772	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4612	4709	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2189	2286	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2279	2376	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1717	1814	
==>ENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 200 <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23749	23944	
==>$scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return I <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23749	23944	
==>$scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return I <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23749	23944	
==>$scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return I <==
21	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4598	4693	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1429	1524	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1091	1186	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1010	1105	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2023	2118	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3720	3815	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1537	1632	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1392	1487	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1065	1160	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4598	4693	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1429	1524	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1091	1186	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1010	1105	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2023	2118	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3720	3815	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1537	1632	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1392	1487	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1065	1160	
==>NTERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41269	41368	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13657	13756	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9449	9548	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4078	4177	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17525	17624	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16947	17046	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41269	41368	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13657	13756	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9449	9548	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41269	41368	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13657	13756	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9449	9548	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4078	4177	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17525	17624	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16947	17046	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4078	4177	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17525	17624	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16947	17046	
==>HT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redist <==
21	/Users/nnunley/pugs/misc/Blondie/milner.pl	27970	28067	
==>list α → list β", ":t map");
is(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 <==
21	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2578	2671	
==>turn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->obje <==
21	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3533	3626	
==>turn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->obje <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13957	14071	
==>'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attr <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13957	14071	
==>'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attr <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13957	14071	
==>'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attr <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2424	2518	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1851	1945	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1770	1864	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20116	20210	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2783	2877	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4720	4814	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2297	2391	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2387	2481	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1825	1919	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2424	2518	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1851	1945	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1770	1864	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20116	20210	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2783	2877	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4720	4814	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2297	2391	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2387	2481	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1825	1919	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEME <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41252	41350	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13640	13738	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9432	9530	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4061	4159	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17508	17606	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16930	17028	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	181	279	
==>build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fil <==
21	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	181	279	
==>build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fil <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41252	41350	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13640	13738	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9432	9530	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41252	41350	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13640	13738	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9432	9530	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	181	279	
==>build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fil <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4061	4159	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17508	17606	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16930	17028	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4061	4159	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17508	17606	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16930	17028	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwa <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4800	4925	
==>_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4800	4925	
==>_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4800	4925	
==>_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41235	41330	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13623	13718	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9415	9510	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4044	4139	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17491	17586	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16913	17008	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41235	41330	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13623	13718	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9415	9510	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41235	41330	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13623	13718	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9415	9510	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4044	4139	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17491	17586	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16913	17008	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4044	4139	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17491	17586	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16913	17008	
==>lock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This li <==
21	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49824	49997	
==>ol->new('$self:' => 'opaque'),
                              symbol->new('?$authority' => 'str'),
                          ),
                returns => 'str'
            ), <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24011	24104	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2165	2258	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1592	1685	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1511	1604	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19857	19950	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2524	2617	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4461	4554	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2038	2131	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2128	2221	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1566	1659	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24011	24104	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2165	2258	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1592	1685	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1511	1604	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19857	19950	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2524	2617	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4461	4554	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2038	2131	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2128	2221	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1566	1659	
==>nal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
21	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	644	745	
==>@params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # profilin <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24157	24254	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2311	2408	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1738	1835	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1657	1754	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20003	20100	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2670	2767	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4607	4704	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2184	2281	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2274	2371	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1712	1809	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24157	24254	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2311	2408	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1738	1835	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1657	1754	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20003	20100	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2670	2767	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4607	4704	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2184	2281	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2274	2371	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1712	1809	
==>1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c <==
21	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	488	596	
==>);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers a <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	488	596	
==>);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers a <==
21	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	488	596	
==>);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers a <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41425	41522	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13813	13910	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9605	9702	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4234	4331	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17681	17778	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17103	17200	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41425	41522	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13813	13910	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9605	9702	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41425	41522	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13813	13910	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9605	9702	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4234	4331	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17681	17778	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17103	17200	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4234	4331	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17681	17778	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
21	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17103	17200	
==>itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have ava <==
20	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	612	738	
==>ule_name($1) if /^\s*package\s+(\w[\w:]*)\s*;\s*$/;
            last;
        }
    }

    return if $self->module_name;

    m <==
20	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1055	1157	
==>.
Then, 
  - aid in prototyping the regexp system - the regexp tree, its
  compilation to pil, how rege <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4635	4730	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1466	1561	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1128	1223	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1047	1142	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2060	2155	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3757	3852	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1574	1669	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1429	1524	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1102	1197	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4635	4730	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1466	1561	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1128	1223	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1047	1142	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2060	2155	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3757	3852	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1574	1669	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1429	1524	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1102	1197	
==>ding; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is <==
20	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2027	2135	
==>_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($q <==
20	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1013	1121	
==>_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($q <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2477	2569	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1904	1996	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1823	1915	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20169	20261	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2836	2928	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4773	4865	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2350	2442	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2440	2532	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1878	1970	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2477	2569	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1904	1996	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1823	1915	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20169	20261	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2836	2928	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4773	4865	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2350	2442	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2440	2532	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1878	1970	
==>osetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to th <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1938	2039	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1824	1925	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9148	9249	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5147	5245	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5020	5118	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	834	932	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6684	6782	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1861	1959	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5194	5292	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1151	1249	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1011	1109	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4447	4545	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5287	5385	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5270	5368	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	834	932	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1861	1959	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5194	5292	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1151	1249	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1220	1318	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4116	4214	
==>s.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
20	/Users/nnunley/pugs/blib6/lib/Span.pm	147	266	
==>se Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_sp <==
20	/Users/nnunley/pugs/ext/Span/lib/Span.pm	147	266	
==>se Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_sp <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41314	41412	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13702	13800	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9494	9592	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4123	4221	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17570	17668	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16992	17090	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41314	41412	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13702	13800	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9494	9592	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41314	41412	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13702	13800	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9494	9592	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4123	4221	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17570	17668	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16992	17090	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4123	4221	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17570	17668	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16992	17090	
==>S. Glock

This library is free software; you can redistribute it and/or modify
it under the same te <==
20	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16078	16183	
==>t which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $l <==
20	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16078	16183	
==>t which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $l <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2450	2541	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1877	1968	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1796	1887	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20142	20233	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2809	2900	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4746	4837	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2323	2414	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2413	2504	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1851	1942	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2450	2541	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1877	1968	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1796	1887	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20142	20233	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2809	2900	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4746	4837	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2323	2414	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2413	2504	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1851	1942	
==>ICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
20	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11211	11316	
==>t we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $i <==
20	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11211	11316	
==>t we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $i <==
20	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10456	10557	
==>t we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $i <==
20	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10456	10557	
==>t we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $i <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39011	39108	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4865	4962	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Relation.pm	38626	38723	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1358	1455	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1277	1374	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2290	2387	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1804	1901	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1332	1429	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39011	39108	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4865	4962	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43175	43272	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1358	1455	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1277	1374	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2290	2387	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1804	1901	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1332	1429	
==>on of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
20	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4849	5039	
==>c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5071	5261	
==>c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2445	2537	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1872	1964	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1791	1883	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20137	20229	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2804	2896	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4741	4833	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2318	2410	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2408	2500	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1846	1938	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2445	2537	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1872	1964	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1791	1883	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20137	20229	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2804	2896	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4741	4833	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2318	2410	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2408	2500	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1846	1938	
==>the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDG <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24114	24210	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2268	2364	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1695	1791	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1614	1710	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19960	20056	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2627	2723	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4564	4660	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2141	2237	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2231	2327	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1669	1765	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24114	24210	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2268	2364	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1695	1791	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1614	1710	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19960	20056	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2627	2723	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4564	4660	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2141	2237	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2231	2327	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1669	1765	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24012	24108	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2166	2262	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1593	1689	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1512	1608	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19858	19954	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2525	2621	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4462	4558	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2039	2135	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2129	2225	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1567	1663	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24012	24108	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2166	2262	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1593	1689	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1512	1608	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19858	19954	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2525	2621	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4462	4558	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2039	2135	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2129	2225	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1567	1663	
==>al references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1648	1764	
==>_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each % <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1933	2033	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1819	1919	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9143	9243	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5142	5239	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5015	5112	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	829	926	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6679	6776	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1856	1953	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5189	5286	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1146	1243	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1006	1103	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4442	4539	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5282	5379	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5265	5362	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	829	926	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1856	1953	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5189	5286	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1146	1243	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4111	4208	
==>others.

This program is free software; you can redistribute it and/or modify it
under the same te <==
20	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3398	3533	
==>/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oc <==
20	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3398	3533	
==>/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oc <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4591	4685	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1422	1516	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1084	1178	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1003	1097	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2016	2110	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3713	3807	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1530	1624	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1385	1479	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1058	1152	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4591	4685	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1422	1516	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1084	1178	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1003	1097	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2016	2110	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3713	3807	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1530	1624	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1385	1479	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1058	1152	
==>head1 INTERFACE

I<This documentation is pending; this section may also be split into several.> <==
20	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3649	3748	
==>se Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans <==
20	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3649	3748	
==>se Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41285	41382	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13673	13770	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9465	9562	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4094	4191	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17541	17638	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16963	17060	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41285	41382	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13673	13770	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9465	9562	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41285	41382	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13673	13770	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9465	9562	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4094	4191	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17541	17638	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16963	17060	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4094	4191	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17541	17638	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16963	17060	
==>Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/ <==
20	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4482	4772	
==>raph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start <==
20	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4482	4772	
==>raph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2029	2120	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1456	1547	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1375	1466	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19721	19812	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2388	2479	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4325	4416	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1902	1993	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1992	2083	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1430	1521	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2029	2120	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1456	1547	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1375	1466	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19721	19812	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2388	2479	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4325	4416	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1902	1993	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1992	2083	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1430	1521	
==>O

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::See <==
20	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1152	1425	
==>$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'parag <==
20	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1152	1425	
==>$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'parag <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4638	4734	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1469	1565	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1131	1227	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1050	1146	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2063	2159	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3760	3856	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1577	1673	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1432	1528	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1105	1201	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4638	4734	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1469	1565	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1131	1227	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1050	1146	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2063	2159	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3760	3856	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1577	1673	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1432	1528	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1105	1201	
==>g; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pen <==
20	/Users/nnunley/pugs/blib6/lib/Relation.pm	30966	31059	
==>the original, in which case
this method returns the identity-one Relation or the invocant rela <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2483	2576	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1910	2003	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1829	1922	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20175	20268	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2842	2935	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4779	4872	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2356	2449	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2446	2539	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1884	1977	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35516	35609	
==>the original, in which case
this method returns the identity-one Relation or the invocant rela <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2483	2576	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1910	2003	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1829	1922	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20175	20268	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2842	2935	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4779	4872	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2356	2449	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2446	2539	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1884	1977	
==>> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file <==
20	/Users/nnunley/pugs/blib6/lib/Relation.pm	5813	5908	
==>ethod map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new <==
20	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9290	9385	
==>ethod map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41230	41324	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13618	13712	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9410	9504	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4039	4133	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17486	17580	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16908	17002	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41230	41324	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13618	13712	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9410	9504	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41230	41324	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13618	13712	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9410	9504	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4039	4133	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17486	17580	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16908	17002	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4039	4133	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17486	17580	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16908	17002	
==>lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

T <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4483	4579	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1314	1410	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	976	1072	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	895	991	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9111	9207	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1908	2004	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3605	3701	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1422	1518	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1277	1373	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	950	1046	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4483	4579	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1314	1410	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	976	1072	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	895	991	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9111	9207	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1908	2004	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3605	3701	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1422	1518	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1277	1373	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	950	1046	
==>=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is p <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24142	24253	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2296	2407	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1723	1834	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1642	1753	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19988	20099	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2655	2766	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4592	4703	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2169	2280	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2259	2370	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1697	1808	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24142	24253	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2296	2407	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1723	1834	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1642	1753	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19988	20099	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2655	2766	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4592	4703	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2169	2280	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2259	2370	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1697	1808	
==>an.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright ( <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6374	6473	
==>of the rule, which unsets the flag before returning.

- this can also be used to do fail() and asser <==
20	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6168	6266	
==>of the rule, which unsets the flag before returning.
- this can also be used to do fail() and asser <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4538	4630	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1369	1461	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1031	1123	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	950	1042	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1963	2055	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3660	3752	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1477	1569	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1332	1424	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1005	1097	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4538	4630	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1369	1461	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1031	1123	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	950	1042	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1963	2055	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3660	3752	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1477	1569	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1332	1424	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1005	1097	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4684	4777	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22942	23035	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1515	1608	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1177	1270	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1096	1189	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2109	2202	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3806	3899	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1623	1716	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1478	1571	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1151	1244	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4684	4777	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22942	23035	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1515	1608	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1177	1270	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1096	1189	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2109	2202	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3806	3899	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1623	1716	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1478	1571	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1151	1244	
==>.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
20	/Users/nnunley/pugs/util/p5_to_p6.pl	3679	3801	
==>he file. The script appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($a <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4643	4737	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1474	1568	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1136	1230	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1055	1149	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2068	2162	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3765	3859	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1582	1676	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1437	1531	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1110	1204	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4643	4737	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1474	1568	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1136	1230	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1055	1149	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2068	2162	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3765	3859	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1582	1676	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1437	1531	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1110	1204	
==>is section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
20	/Users/nnunley/pugs/inc/Test/Harness.pm	30308	30402	
==>t rid of those damned formats.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run fr <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4495	4599	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1326	1430	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	988	1092	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	907	1011	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9123	9227	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1920	2024	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3617	3721	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1434	1538	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1289	1393	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	962	1066	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4495	4599	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1326	1430	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	988	1092	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	907	1011	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9123	9227	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1920	2024	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3617	3721	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1434	1538	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1289	1393	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	962	1066	
==>SIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INT <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24119	24235	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2273	2389	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1700	1816	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1619	1735	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19965	20081	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2632	2748	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4569	4685	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2146	2262	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2236	2352	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1674	1790	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24119	24235	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2273	2389	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1700	1816	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1619	1735	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19965	20081	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2632	2748	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4569	4685	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2146	2262	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2236	2352	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1674	1790	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rose <==
20	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3566	3675	
==>n canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our a <==
20	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3566	3675	
==>n canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our a <==
20	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13197	13342	
==>:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest <==
20	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13197	13342	
==>:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest <==
20	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12293	12428	
==>:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest <==
20	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12293	12428	
==>:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	585	678	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	840	933	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1095	1188	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1350	1443	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1606	1699	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1862	1955	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2117	2210	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2372	2465	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2627	2720	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2882	2975	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3137	3230	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3392	3485	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3644	3737	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3888	3981	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4132	4225	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4377	4470	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24163	24266	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2317	2420	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1744	1847	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1663	1766	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20009	20112	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2676	2779	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4613	4716	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2190	2293	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2280	2383	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1718	1821	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24163	24266	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2317	2420	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1744	1847	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1663	1766	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20009	20112	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2676	2779	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4613	4716	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2190	2293	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2280	2383	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1718	1821	
==>NCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4360	4472	
==>}
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = <==
20	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4360	4472	
==>}
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1822	1918	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4110	4206	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4114	4210	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10257	10353	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14788	14884	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	962	1058	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1806	1902	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5029	5125	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	123	219	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1325	1421	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2224	2320	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5210	5306	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8396	8492	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	950	1046	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4708	4804	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7847	7943	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	565	661	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	473	569	
==>ndentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwi <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	896	1047	
==>)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  = <==
20	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	861	1004	
==>)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  = <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2363	2458	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1790	1885	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1709	1804	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20055	20150	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2722	2817	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4659	4754	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2236	2331	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2326	2421	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1764	1859	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2363	2458	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1790	1885	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1709	1804	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20055	20150	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2722	2817	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4659	4754	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2236	2331	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2326	2421	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1764	1859	
==>setta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AN <==
20	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22826	22959	
==>eop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternat <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23105	23238	
==>eop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternat <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2035	2123	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1462	1550	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1381	1469	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19727	19815	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2394	2482	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4331	4419	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1908	1996	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1998	2086	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1436	1524	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2035	2123	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1462	1550	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1381	1469	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19727	19815	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2394	2482	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4331	4419	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1908	1996	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1998	2086	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1436	1524	
==>to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAls <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41426	41523	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13814	13911	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9606	9703	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4235	4332	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17682	17779	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17104	17201	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41426	41523	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13814	13911	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9606	9703	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41426	41523	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13814	13911	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9606	9703	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4235	4332	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17682	17779	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17104	17201	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4235	4332	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17682	17779	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17104	17201	
==>tself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have avai <==
20	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1296	1391	
==>ional> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quanti <==
20	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1296	1391	
==>ional> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quanti <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5178	5309	
==>ame' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Cre <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5178	5309	
==>ame' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Cre <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2441	2535	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1868	1962	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1787	1881	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20133	20227	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2800	2894	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4737	4831	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2314	2408	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2404	2498	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1842	1936	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2441	2535	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1868	1962	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1787	1881	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20133	20227	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2800	2894	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4737	4831	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2314	2408	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2404	2498	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1842	1936	
==>See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
20	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9835	9930	
==>> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is <==
20	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9835	9930	
==>> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4527	4620	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1358	1451	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1020	1113	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	939	1032	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1952	2045	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3649	3742	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1466	1559	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1321	1414	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	994	1087	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4527	4620	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1358	1451	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1020	1113	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	939	1032	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1952	2045	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3649	3742	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1466	1559	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1321	1414	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	994	1087	
==>ding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docume <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41412	41509	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13800	13897	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9592	9689	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4221	4318	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17668	17765	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17090	17187	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41412	41509	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13800	13897	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9592	9689	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41412	41509	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13800	13897	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9592	9689	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4221	4318	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17668	17765	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17090	17187	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4221	4318	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17668	17765	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17090	17187	
==>erms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you <==
20	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	23	119	
==>Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use s <==
20	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	23	119	
==>Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use s <==
20	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5134	5264	
==>lt != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse <==
20	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5134	5264	
==>lt != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4678	4770	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1509	1601	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1171	1263	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1090	1182	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2103	2195	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3800	3892	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1617	1709	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1472	1564	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1145	1237	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4678	4770	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1509	1601	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1171	1263	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1090	1182	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2103	2195	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3800	3892	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1617	1709	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1472	1564	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1145	1237	
==>everal.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24009	24103	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2163	2257	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1590	1684	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1509	1603	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19855	19949	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2522	2616	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4459	4553	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2036	2130	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2126	2220	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1564	1658	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24009	24103	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2163	2257	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1590	1684	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1509	1603	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19855	19949	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2522	2616	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4459	4553	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2036	2130	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2126	2220	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1564	1658	
==>ernal references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHO <==
20	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13211	13317	
==>erything for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had probl <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41414	41512	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13802	13900	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9594	9692	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4223	4321	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17670	17768	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17092	17190	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41414	41512	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13802	13900	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9594	9692	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41414	41512	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13802	13900	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9594	9692	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4223	4321	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17670	17768	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17092	17190	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4223	4321	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17670	17768	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17092	17190	
==>ms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you ma <==
20	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7626	7723	
==>symbol new (%:methods))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # method l <==
20	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20057	20151	
==>hannels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot. <==
20	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20057	20151	
==>hannels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2453	2545	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1880	1972	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1799	1891	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20145	20237	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2812	2904	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4749	4841	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2326	2418	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2416	2508	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1854	1946	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2453	2545	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1880	1972	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1799	1891	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20145	20237	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2812	2904	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4749	4841	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2326	2418	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2416	2508	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1854	1946	
==>NCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
20	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5262	5367	
==>!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content <==
20	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5262	5367	
==>!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41370	41467	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13758	13855	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9550	9647	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4179	4276	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17626	17723	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17048	17145	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41370	41467	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13758	13855	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9550	9647	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41370	41467	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13758	13855	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9550	9647	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4179	4276	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17626	17723	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17048	17145	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4179	4276	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17626	17723	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17048	17145	
==>ibute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at yo <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	259	364	
==>'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push th <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	259	364	
==>'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push th <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2105	2195	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1532	1622	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1451	1541	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19797	19887	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2464	2554	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4401	4491	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1978	2068	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2068	2158	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1506	1596	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2105	2195	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1532	1622	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1451	1541	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19797	19887	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2464	2554	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4401	4491	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1978	2068	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2068	2158	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1506	1596	
==>d
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AN <==
20	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	121	236	
==>alid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expec <==
20	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	121	236	
==>alid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expec <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2367	2463	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1794	1890	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1713	1809	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20059	20155	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2726	2822	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4663	4759	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2240	2336	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2330	2426	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1768	1864	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2367	2463	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1794	1890	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1713	1809	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20059	20155	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2726	2822	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4663	4759	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2240	2336	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2330	2426	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1768	1864	
==>a DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COP <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1808	1906	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4096	4194	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4100	4198	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10243	10341	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14774	14872	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	948	1046	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1792	1890	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5015	5113	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	109	207	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1311	1409	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2210	2308	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5196	5294	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8382	8480	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	936	1034	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4694	4792	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7833	7931	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	551	649	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	459	557	
==>riables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expan <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15523	15620	
==>, a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and dat <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15523	15620	
==>, a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and dat <==
20	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12884	13000	
==>f = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self-> <==
20	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27023	27139	
==>f = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self-> <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2376	2471	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1803	1898	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1722	1817	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20068	20163	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2735	2830	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4672	4767	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2249	2344	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2339	2434	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1777	1872	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2376	2471	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1803	1898	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1722	1817	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20068	20163	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2735	2830	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4672	4767	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2249	2344	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2339	2434	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1777	1872	
==>amework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT o <==
20	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	407	505	
==>> 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTab <==
20	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3570	3665	
==>se Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp::Parser::VE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2471	2562	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1898	1989	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1817	1908	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20163	20254	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2830	2921	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4767	4858	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2344	2435	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2434	2525	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1872	1963	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2471	2562	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1898	1989	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1817	1908	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20163	20254	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2830	2921	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4767	4858	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2344	2435	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2434	2525	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1872	1963	
==>of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> appl <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24006	24100	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2160	2254	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1587	1681	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1506	1600	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19852	19946	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2519	2613	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4456	4550	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2033	2127	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2123	2217	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1561	1655	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24006	24100	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2160	2254	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1587	1681	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1506	1600	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19852	19946	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2519	2613	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4456	4550	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2033	2127	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2123	2217	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1561	1655	
==>external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4488	4585	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1319	1416	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	981	1078	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	900	997	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9116	9213	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1913	2010	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3610	3707	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1427	1524	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1282	1379	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	955	1052	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4488	4585	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1319	1416	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	981	1078	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	900	997	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9116	9213	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1913	2010	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3610	3707	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1427	1524	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1282	1379	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	955	1052	
==>1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending <==
20	/Users/nnunley/pugs/blib6/lib/Relation.pm	32176	32272	
==>elation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relation <==
20	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36726	36822	
==>elation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relation <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2371	2466	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1798	1893	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1717	1812	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20063	20158	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2730	2825	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4667	4762	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2244	2339	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2334	2429	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1772	1867	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2371	2466	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1798	1893	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1717	1812	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20063	20158	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2730	2825	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4667	4762	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2244	2339	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2334	2429	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1772	1867	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRI <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4512	4605	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1343	1436	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1005	1098	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	924	1017	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9140	9233	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1937	2030	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3634	3727	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1451	1544	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1306	1399	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	979	1072	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4512	4605	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1343	1436	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1005	1098	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	924	1017	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9140	9233	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1937	2030	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3634	3727	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1451	1544	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1306	1399	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	979	1072	
==>entation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4509	4602	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1340	1433	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1002	1095	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	921	1014	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9137	9230	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1934	2027	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3631	3724	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1448	1541	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1303	1396	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	976	1069	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4509	4602	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1340	1433	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1002	1095	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	921	1014	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9137	9230	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1934	2027	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3631	3724	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1448	1541	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1303	1396	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	976	1069	
==>cumentation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERF <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24174	24281	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2328	2435	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1755	1862	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1674	1781	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20020	20127	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2687	2794	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4624	4731	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2201	2308	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2291	2398	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1729	1836	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24174	24281	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2328	2435	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1755	1862	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1674	1781	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20020	20127	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2687	2794	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4624	4731	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2201	2308	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2291	2398	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1729	1836	
==>YRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Dunc <==
20	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5386	5547	
==>se {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fres <==
20	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5386	5547	
==>se {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fres <==
20	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4558	4651	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1389	1482	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1051	1144	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	970	1063	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1983	2076	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3680	3773	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1497	1590	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1352	1445	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1025	1118	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4558	4651	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1389	1482	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1051	1144	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	970	1063	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1983	2076	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3680	3773	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1497	1590	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1352	1445	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1025	1118	
==>his documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sectio <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24159	24257	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2313	2411	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1740	1838	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1659	1757	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20005	20103	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2672	2770	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4609	4707	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2186	2284	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2276	2374	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1714	1812	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24159	24257	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2313	2411	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1740	1838	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1659	1757	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20005	20103	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2672	2770	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4609	4707	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2186	2284	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2276	2374	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1714	1812	
==>LICENCE AND COPYRIGHT

This file is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2 <==
20	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1454	1557	
==>t uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex ide <==
20	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1454	1557	
==>t uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex ide <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2075	2162	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1502	1589	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1421	1508	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19767	19854	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2434	2521	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4371	4458	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1948	2035	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2038	2125	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1476	1563	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2075	2162	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1502	1589	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1421	1508	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19767	19854	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2434	2521	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4371	4458	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1948	2035	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2038	2125	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1476	1563	
==>bution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ext <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24188	24284	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2342	2438	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1769	1865	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1688	1784	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20034	20130	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2701	2797	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4638	4734	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2215	2311	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2305	2401	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1743	1839	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24188	24284	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2342	2438	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1769	1865	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1688	1784	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20034	20130	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2701	2797	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4638	4734	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2215	2311	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2305	2401	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
20	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1743	1839	
==>ile is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan. <==
19	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22370	22478	
==>".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_absolute_name && $pkg;
    $mn;
}    

sub p6_app <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41201	41293	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13589	13681	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9381	9473	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4010	4102	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17457	17549	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16879	16971	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41201	41293	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13589	13681	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9381	9473	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41201	41293	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13589	13681	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9381	9473	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4010	4102	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17457	17549	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16879	16971	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4010	4102	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17457	17549	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16879	16971	
==>1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright <==
19	/Users/nnunley/pugs/util/package-osx.pl	3460	3557	
==>/usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/man/man3/I <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2046	2136	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1473	1563	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1392	1482	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19738	19828	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2405	2495	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4342	4432	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1919	2009	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2009	2099	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1447	1537	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2046	2136	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1473	1563	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1392	1482	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19738	19828	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2405	2495	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4342	4432	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1919	2009	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2009	2099	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1447	1537	
==>a> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the ma <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1811	1909	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4099	4197	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4103	4201	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10246	10344	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14777	14875	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	951	1049	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1795	1893	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5018	5116	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	112	210	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1314	1412	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2213	2311	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5199	5297	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8385	8483	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	939	1037	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4697	4795	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7836	7934	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	554	652	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	462	560	
==>bles:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandta <==
19	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25157	25238	
==>get('$self:')->set_attr(symbol->new('@:superclasses') => $e->get('?@superclasses') <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4536	4627	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1367	1458	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1029	1120	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	948	1039	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1961	2052	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3658	3749	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1475	1566	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1330	1421	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1003	1094	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4536	4627	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1367	1458	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1029	1120	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	948	1039	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1961	2052	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3658	3749	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1475	1566	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1330	1421	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1003	1094	
==>head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation <==
19	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9908	9997	
==>_metachar([C]))}.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - sh <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9779	9882	
==>- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runpe <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41218	41310	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13606	13698	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9398	9490	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4027	4119	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17474	17566	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16896	16988	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41218	41310	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13606	13698	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9398	9490	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41218	41310	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13606	13698	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9398	9490	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4027	4119	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17474	17566	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16896	16988	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4027	4119	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17474	17566	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16896	16988	
==>S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flav <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1795	1962	
==>[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $stat <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2017	2110	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1444	1537	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1363	1456	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19709	19802	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2376	2469	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4313	4406	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1890	1983	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1980	2073	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1418	1511	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2017	2110	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1444	1537	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1363	1456	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19709	19802	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2376	2469	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4313	4406	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1890	1983	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1980	2073	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1418	1511	
==>ead1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Ro <==
19	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1781	1901	
==>f->license_from($file);
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self-> <==
19	/Users/nnunley/pugs/misc/Blondie/milner.pl	18894	18995	
==>both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won't wor <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41225	41318	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13613	13706	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9405	9498	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4034	4127	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17481	17574	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16903	16996	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41225	41318	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13613	13706	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9405	9498	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41225	41318	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13613	13706	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9405	9498	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4034	4127	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17481	17574	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16903	16996	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4034	4127	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17481	17574	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16903	16996	
==>k, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Gl <==
19	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	623	738	
==>k, $v) {
	push(@ret, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature f <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41409	41507	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13797	13895	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9589	9687	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4218	4316	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17665	17763	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17087	17185	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41409	41507	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13797	13895	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9589	9687	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41409	41507	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13797	13895	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9589	9687	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4218	4316	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17665	17763	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17087	17185	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4218	4316	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17665	17763	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17087	17185	
==>e terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 y <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6604	6711	
==>r -
sub unlike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $ <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41355	41450	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13743	13838	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9535	9630	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4164	4259	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17611	17706	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17033	17128	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41355	41450	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13743	13838	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9535	9630	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41355	41450	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13743	13838	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9535	9630	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4164	4259	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17611	17706	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17033	17128	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4164	4259	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17611	17706	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17033	17128	
==>you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versio <==
19	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	798	907	
==>name = " . $self->reduce($_) . ";\n\n";
	} @nodes, $program);

	$out;
}

sub make_name {
	my $self = shift;
	m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41255	41351	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13643	13739	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9435	9531	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4064	4160	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17511	17607	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16933	17029	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41255	41351	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13643	13739	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9435	9531	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41255	41351	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13643	13739	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9435	9531	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4064	4160	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17511	17607	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16933	17029	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4064	4160	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17511	17607	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16933	17029	
==>=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softwar <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	170	264	
==>E::Exp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE::Exp::Cut");
    $optab <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2088	2176	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1515	1603	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1434	1522	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19780	19868	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2447	2535	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4384	4472	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1961	2049	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2051	2139	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1489	1577	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2088	2176	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1515	1603	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1434	1522	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19780	19868	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2447	2535	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4384	4472	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1961	2049	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2051	2139	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1489	1577	
==>al references, and
L<Rosetta::SeeAlso> for the majority of distribution-external referenc <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10281	10387	
==>n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /- <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2059	2148	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1486	1575	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1405	1494	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19751	19840	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2418	2507	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4355	4444	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1932	2021	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2022	2111	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1460	1549	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2059	2148	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1486	1575	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1405	1494	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19751	19840	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2418	2507	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4355	4444	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1932	2021	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2022	2111	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1460	1549	
==>jority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of di <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2234	2340	
==>); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') { <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2234	2340	
==>); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') { <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2234	2340	
==>); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') { <==
19	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7864	7960	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10442	10538	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10901	10997	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4922	5018	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Span.pm	17800	17896	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6168	6264	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3379	3475	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6761	6857	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7864	7960	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10442	10538	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10901	10997	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4922	5018	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17800	17896	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6168	6264	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3379	3475	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6761	6857	
==>vio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights r <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	964	1071	
==>s.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# note: alternation is first mat <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2032	2121	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1459	1548	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1378	1467	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19724	19813	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2391	2480	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4328	4417	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1905	1994	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1995	2084	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1433	1522	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2032	2121	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1459	1548	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1378	1467	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19724	19813	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2391	2480	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4328	4417	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1905	1994	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1995	2084	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1433	1522	
==>Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeA <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4650	4745	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1481	1576	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1143	1238	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1062	1157	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2075	2170	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3772	3867	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1589	1684	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1444	1539	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1117	1212	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4650	4745	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1481	1576	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1143	1238	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1062	1157	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2075	2170	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3772	3867	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1589	1684	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1444	1539	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1117	1212	
==>ion may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
19	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	36	120	
==>ckend::Perl::Interpreter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScopi <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	595	689	
==>sition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:upp <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2148	2238	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1575	1665	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1494	1584	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19840	19930	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2507	2597	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4444	4534	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2021	2111	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2111	2201	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1549	1639	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2148	2238	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1575	1665	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1494	1584	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19840	19930	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2507	2597	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4444	4534	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2021	2111	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2111	2201	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1549	1639	
==>istribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	382	493	
==>e ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	587	698	
==>e ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	643	754	
==>e ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39004	39100	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4858	4954	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Relation.pm	38619	38715	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1351	1447	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1270	1366	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2283	2379	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1797	1893	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1325	1421	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39004	39100	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4858	4954	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43168	43264	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1351	1447	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1270	1366	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2283	2379	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1797	1893	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1325	1421	
==>y version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
19	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	295	409	
==>smoke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => 0,
    precompile_prelude <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4597	4692	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1428	1523	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1090	1185	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1009	1104	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2022	2117	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3719	3814	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1536	1631	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1391	1486	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1064	1159	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4597	4692	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1428	1523	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1090	1185	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1009	1104	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2022	2117	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3719	3814	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1536	1631	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1391	1486	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1064	1159	
==>INTERFACE

I<This documentation is pending; this section may also be split into several.>

=head <==
19	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8356	8455	
==>ng!, Code $replacements!) returns Relation::Example {
    return Relation::Example.new(
        head <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2095	2185	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1522	1612	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1441	1531	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19787	19877	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2454	2544	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4391	4481	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1968	2058	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2058	2148	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1496	1586	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2095	2185	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1522	1612	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1441	1531	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19787	19877	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2454	2544	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4391	4481	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1968	2058	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2058	2148	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1496	1586	
==>rences, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=hea <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3090	3246	
==>for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    syste <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4521	4615	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1352	1446	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1014	1108	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	933	1027	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1946	2040	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3643	3737	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1460	1554	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1315	1409	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	988	1082	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4521	4615	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1352	1446	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1014	1108	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	933	1027	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1946	2040	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3643	3737	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1460	1554	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1315	1409	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	988	1082	
==>is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This d <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41418	41516	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13806	13904	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9598	9696	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4227	4325	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17674	17772	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17096	17194	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41418	41516	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13806	13904	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9598	9696	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41418	41516	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13806	13904	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9598	9696	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4227	4325	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17674	17772	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17096	17194	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4227	4325	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17674	17772	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17096	17194	
==>s Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may ha <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7572	7666	
==>ring this
initial pass.

=head3 Fatal Errors

B<If there is a compilation-stopping error>, $par <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14872	14967	
==>e
of them may be absorbed into the core functionality of F<Regexp::Parser>
in the future.  Modul <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4557	4650	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1388	1481	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1050	1143	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	969	1062	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1982	2075	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3679	3772	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1496	1589	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1351	1444	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1024	1117	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4557	4650	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1388	1481	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1050	1143	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	969	1062	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1982	2075	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3679	3772	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1496	1589	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1351	1444	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1024	1117	
==>This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this secti <==
19	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8749	8872	
==>aram,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END_ <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4544	4636	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1375	1467	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1037	1129	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	956	1048	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1969	2061	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3666	3758	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1483	1575	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1338	1430	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1011	1103	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4544	4636	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1375	1467	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1037	1129	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	956	1048	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1969	2061	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3666	3758	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1483	1575	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1338	1430	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1011	1103	
==>SCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pendi <==
19	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3688	3800	
==>re Runtime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::R <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41334	41431	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13722	13819	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9514	9611	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4143	4240	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17590	17687	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17012	17109	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41334	41431	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13722	13819	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9514	9611	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41334	41431	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13722	13819	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9514	9611	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4143	4240	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17590	17687	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17012	17109	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4143	4240	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17590	17687	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17012	17109	
==>ry is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, <==
19	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4678	4817	
==>> Thunk(
            Stub(
                'Addition must be implemented as a runtime primitive.' .
                'No, Blondie will not ha <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6507	6634	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9477	9604	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6507	6634	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9477	9604	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6507	6634	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9477	9604	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5920	6042	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8033	8155	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8890	9012	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10956	11078	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5920	6042	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8033	8155	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8890	9012	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10956	11078	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5920	6042	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8033	8155	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8890	9012	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10956	11078	
==>$method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        re <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41273	41371	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13661	13759	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9453	9551	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4082	4180	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17529	17627	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16951	17049	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41273	41371	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13661	13759	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9453	9551	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41273	41371	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13661	13759	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9453	9551	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4082	4180	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17529	17627	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16951	17049	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4082	4180	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17529	17627	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16951	17049	
==>ND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistrib <==
19	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21653	21738	
==>ffset_min substrs->data[2].min_offset
 #define check_offset_max substrs->data[2].max_o <==
19	/Users/nnunley/pugs/util/catalog_tests.pl	4023	4192	
==>RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotab <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2357	2452	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1784	1879	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1703	1798	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20049	20144	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2716	2811	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4653	4748	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2230	2325	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2320	2415	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1758	1853	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2357	2452	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1784	1879	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1703	1798	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20049	20144	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2716	2811	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4653	4748	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2230	2325	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2320	2415	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1758	1853	
==>the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICE <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41382	41479	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13770	13867	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9562	9659	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4191	4288	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17638	17735	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17060	17157	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41382	41479	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13770	13867	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9562	9659	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41382	41479	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13770	13867	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9562	9659	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4191	4288	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17638	17735	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17060	17157	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4191	4288	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17638	17735	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17060	17157	
==>/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, a <==
19	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	702	796	
==>_fh($name, $test_filehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMEN <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5928	6044	
==>],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]->qr;
  } <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41413	41511	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13801	13899	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9593	9691	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4222	4320	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17669	17767	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17091	17189	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41413	41511	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13801	13899	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9593	9691	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41413	41511	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13801	13899	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9593	9691	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4222	4320	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17669	17767	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17091	17189	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4222	4320	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17669	17767	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17091	17189	
==>rms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you m <==
19	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	136	242	
==>[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTAL <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1819	1915	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4107	4203	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4111	4207	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10254	10350	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14785	14881	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	959	1055	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1803	1899	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5026	5122	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	120	216	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1322	1418	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2221	2317	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5207	5303	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8393	8489	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	947	1043	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4705	4801	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7844	7940	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	562	658	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	470	566	
==>c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shif <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1934	2038	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1820	1924	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9144	9248	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5143	5244	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5016	5117	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	830	931	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6680	6781	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1857	1958	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5190	5291	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1147	1248	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1007	1108	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4443	4544	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5283	5384	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5266	5367	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	830	931	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1857	1958	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5190	5291	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1147	1248	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4112	4213	
==>thers.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
19	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20462	20565	
==>og_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my($nam <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1823	1919	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4111	4207	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4115	4211	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10258	10354	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14789	14885	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	963	1059	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1807	1903	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5030	5126	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	124	220	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1326	1422	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2225	2321	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5211	5307	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8397	8493	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	951	1047	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4709	4805	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7848	7944	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	566	662	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	474	570	
==>dentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwid <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2413	2508	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1840	1935	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1759	1854	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20105	20200	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2772	2867	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4709	4804	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2286	2381	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2376	2471	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1814	1909	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2413	2508	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1840	1935	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1759	1854	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20105	20200	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2772	2867	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4709	4804	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2286	2381	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2376	2471	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1814	1909	
==>02-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACK <==
19	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1090	1183	
==>e conjunction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <repetit <==
19	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43234	43455	
==>ol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'method'
            ) <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	54	164	
==>dence module - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2141	2233	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1568	1660	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1487	1579	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19833	19925	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2500	2592	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4437	4529	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2014	2106	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2104	2196	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1542	1634	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2141	2233	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1568	1660	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1487	1579	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19833	19925	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2500	2592	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4437	4529	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2014	2106	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2104	2196	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1542	1634	
==>ty of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is <==
19	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	607	718	
==>tput can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = documen <==
19	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	607	718	
==>tput can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = documen <==
19	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	607	718	
==>tput can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = documen <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	583	676	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	838	931	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1093	1186	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1348	1441	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1604	1697	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1860	1953	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2115	2208	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2370	2463	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2625	2718	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2880	2973	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3135	3228	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3390	3483	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3642	3735	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3886	3979	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4130	4223	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4375	4468	
==>, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1975	2071	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1402	1498	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1321	1417	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19667	19763	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2334	2430	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4271	4367	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1848	1944	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1938	2034	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1376	1472	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1975	2071	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1402	1498	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1321	1417	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19667	19763	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2334	2430	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4271	4367	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1848	1944	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1938	2034	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1376	1472	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of dis <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26631	26727	
==>guments are included.  This method takes care of building the
proper inheritance for the node; it <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39009	39106	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4863	4960	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Relation.pm	38624	38721	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1356	1453	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1275	1372	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2288	2385	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1802	1899	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1330	1427	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39009	39106	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4863	4960	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43173	43270	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1356	1453	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1275	1372	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2288	2385	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1802	1899	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1330	1427	
==>sion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2827	2922	
==>s subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clka <==
19	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2827	2922	
==>s subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clka <==
19	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3174	3269	
==>s subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clka <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41258	41356	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13646	13744	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9438	9536	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4067	4165	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17514	17612	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16936	17034	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41258	41356	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13646	13744	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9438	9536	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41258	41356	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13646	13744	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9438	9536	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4067	4165	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17514	17612	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16936	17034	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4067	4165	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17514	17612	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16936	17034	
==>ad1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; yo <==
19	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	659	753	
==>s oranges");
    system("pugs naive_bayesian.p6 add grapes grapes");
}
system("pugs naive_bayes <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2842	2951	
==>ex}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= '_' . $opt->{assoc} if $opt->{f <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41237	41333	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13625	13721	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9417	9513	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4046	4142	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17493	17589	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16915	17011	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41237	41333	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13625	13721	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9417	9513	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41237	41333	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13625	13721	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9417	9513	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4046	4142	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17493	17589	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16915	17011	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4046	4142	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17493	17589	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16915	17011	
==>ck@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This libra <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7448	7569	
==>s {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@node <==
19	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7448	7569	
==>s {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@node <==
19	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7448	7569	
==>s {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@node <==
19	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7866	7962	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10444	10540	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10903	10999	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4924	5020	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Span.pm	17802	17898	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6170	6266	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3381	3477	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6763	6859	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7866	7962	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10444	10540	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10903	10999	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4924	5020	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17802	17898	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6170	6266	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3381	3477	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6763	6859	
==>o S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
19	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13019	13130	
==>> [] }, shift;
}

sub reduce_val { $_[1]->val }

sub reduce_stub {
    my $self = shift;
    die "trying to redu <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41434	41533	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13822	13921	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9614	9713	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17112	17211	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41434	41533	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13822	13921	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9614	9713	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41434	41533	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13822	13921	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9614	9713	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17112	17211	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17112	17211	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4243	4341	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17690	17788	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4243	4341	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17690	17788	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4243	4341	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17690	17788	
==>ither Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

= <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6512	6640	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9482	9610	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6512	6640	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9482	9610	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6512	6640	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9482	9610	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return b <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5925	6048	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8038	8161	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8895	9018	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10961	11084	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5925	6048	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8038	8161	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8895	9018	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10961	11084	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5925	6048	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8038	8161	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8895	9018	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10961	11084	
==>od && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return b <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	14	113	
==>se warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers {
    map { <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1930	2032	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1816	1918	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9140	9242	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5139	5238	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5012	5111	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	826	925	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6676	6775	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1853	1952	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5186	5285	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1143	1242	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	1003	1102	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4439	4538	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5279	5378	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5262	5361	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	826	925	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1853	1952	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5186	5285	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1143	1242	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4108	4207	
==>nd others.

This program is free software; you can redistribute it and/or modify it
under the same t <==
19	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18107	18210	
==>e"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .param p <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2069	2156	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1496	1583	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1415	1502	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19761	19848	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2428	2515	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4365	4452	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1942	2029	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2032	2119	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1470	1557	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2069	2156	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1496	1583	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1415	1502	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19761	19848	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2428	2515	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4365	4452	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1942	2029	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2032	2119	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1470	1557	
==>distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distributi <==
19	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	651	747	
==>') || $signature->isa('closure::signature')))
        || confess "signature must be an closure::p <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2372	2467	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1799	1894	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1718	1813	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20064	20159	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2731	2826	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4668	4763	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2245	2340	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2335	2430	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1773	1868	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2372	2467	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1799	1894	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1718	1813	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20064	20159	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2731	2826	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4668	4763	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2245	2340	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2335	2430	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1773	1868	
==>S framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIG <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3448	3567	
==>egory->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left' <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2361	2455	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1788	1882	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1707	1801	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20053	20147	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2720	2814	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4657	4751	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2234	2328	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2324	2418	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1762	1856	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2361	2455	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1788	1882	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1707	1801	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20053	20147	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2720	2814	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4657	4751	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2234	2328	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2324	2418	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1762	1856	
==>Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6956	7056	
==>);
    return $S->force_object(anyof_char => "\0", "\\x[0]") if $cc;
    return $S->object(exact => " <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41206	41299	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13594	13687	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9386	9479	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4015	4108	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17462	17555	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16884	16977	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41206	41299	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13594	13687	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9386	9479	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41206	41299	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13594	13687	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9386	9479	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4015	4108	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17462	17555	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16884	16977	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4015	4108	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17462	17555	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16884	16977	
==>HOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2 <==
19	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5445	5553	
==>->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shif <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4524	4617	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1355	1448	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1017	1110	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	936	1029	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1949	2042	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3646	3739	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1463	1556	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1318	1411	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	991	1084	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4524	4617	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1355	1448	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1017	1110	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	936	1029	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1949	2042	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3646	3739	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1463	1556	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1318	1411	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	991	1084	
==>pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This doc <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41262	41360	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13650	13748	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9442	9540	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4071	4169	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17518	17616	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16940	17038	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41262	41360	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13650	13748	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9442	9540	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41262	41360	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13650	13748	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9442	9540	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4071	4169	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17518	17616	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16940	17038	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4071	4169	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17518	17616	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16940	17038	
==>COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you ca <==
19	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	34	131	
==>s::Compiler::Rule::VERSION = '0.03';

# Documentation in the __END__
use 5.006;
use strict;
use wa <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6472	6594	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6854	6976	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9442	9564	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9824	9946	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6472	6594	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6854	6976	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9442	9564	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9824	9946	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6472	6594	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6854	6976	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9442	9564	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9824	9946	
==>Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5893	6007	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8863	8977	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5893	6007	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8863	8977	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5893	6007	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8863	8977	
==>Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35934	36031	
==>. refN (C<\1>, C<\2>, etc.); reff1, reff2 .. reffN
(C<\1>, C<\2>, etc. with C</i> on)

=head2 ifma <==
19	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7918	8101	
==>$n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n->{sub}{bareword} ) <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2132	2223	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1559	1650	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1478	1569	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19824	19915	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2491	2582	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4428	4519	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2005	2096	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2095	2186	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1533	1624	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2132	2223	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1559	1650	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1478	1569	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19824	19915	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2491	2582	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4428	4519	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2005	2096	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2095	2186	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1533	1624	
==>he majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
19	/Users/nnunley/pugs/util/grokprims.pl	713	802	
==>@ops, {name=>$name, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml ver <==
19	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13504	13638	
==>($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    m <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41215	41308	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13603	13696	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9395	9488	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4024	4117	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17471	17564	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16893	16986	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41215	41308	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13603	13696	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9395	9488	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41215	41308	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13603	13696	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9395	9488	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4024	4117	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17471	17564	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16893	16986	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4024	4117	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17471	17564	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16893	16986	
==>io S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Fl <==
19	/Users/nnunley/pugs/util/catalog_tests.pl	11037	11139	
==>limited portion of the string (provided only one delimiter was specified)
      # $8  captures the clos <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2379	2475	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1806	1902	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1725	1821	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20071	20167	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2738	2834	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4675	4771	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2252	2348	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2342	2438	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1780	1876	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2379	2475	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1806	1902	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1725	1821	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20071	20167	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2738	2834	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4675	4771	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2252	2348	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2342	2438	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1780	1876	
==>work.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L< <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2404	2500	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1831	1927	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1750	1846	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20096	20192	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2763	2859	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4700	4796	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2277	2373	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2367	2463	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1805	1901	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2404	2500	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1831	1927	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1750	1846	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20096	20192	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2763	2859	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4700	4796	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2277	2373	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2367	2463	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1805	1901	
==>ht (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=h <==
19	/Users/nnunley/pugs/util/catalog_tests.pl	4931	5027	
==>g .t files
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{file}} = $_ <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41387	41484	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13775	13872	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9567	9664	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4196	4293	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17643	17740	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17065	17162	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41387	41484	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13775	13872	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9567	9664	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41387	41484	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13775	13872	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9567	9664	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4196	4293	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17643	17740	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17065	17162	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4196	4293	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17643	17740	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17065	17162	
==>odify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any la <==
19	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21522	21615	
==>Parser::eval::ISA, __PACKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr { <==
19	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14011	14109	
==>lloc the regexp struct to create one?

Possible next steps:

  Get per-package hooks working.

Note <==
19	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4610	4704	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1441	1535	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1103	1197	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1022	1116	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2035	2129	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3732	3826	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1549	1643	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1404	1498	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1077	1171	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4610	4704	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1441	1535	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1103	1197	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1022	1116	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2035	2129	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3732	3826	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1549	1643	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1404	1498	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
19	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1077	1171	
==>This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTIC <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41226	41321	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13614	13709	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9406	9501	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4035	4130	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17482	17577	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16904	16999	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41226	41321	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13614	13709	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9406	9501	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41226	41321	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13614	13709	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9406	9501	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4035	4130	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17482	17577	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16904	16999	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4035	4130	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17482	17577	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16904	16999	
==>, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock <==
18	/Users/nnunley/pugs/blib6/lib/Set.pm	5834	5930	
==>fix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
18	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4964	5060	
==>fix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
18	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5834	5930	
==>fix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
18	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4964	5060	
==>fix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
18	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1200	1291	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1195	1286	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6912	7003	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4264	4355	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9162	9253	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Tree.pm	11752	11843	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	841	932	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1200	1291	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1195	1286	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6912	7003	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4264	4355	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9162	9253	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11752	11843	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	841	932	
==>eractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2047	2147	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1474	1574	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1393	1493	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19739	19839	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2406	2506	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4343	4443	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1920	2020	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2010	2110	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1448	1548	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2047	2147	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1474	1574	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1393	1493	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19739	19839	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2406	2506	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4343	4443	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1920	2020	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2010	2110	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1448	1548	
==>> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of d <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4545	4641	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1376	1472	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1038	1134	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	957	1053	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1970	2066	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3667	3763	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1484	1580	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1339	1435	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1012	1108	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4545	4641	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1376	1472	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1038	1134	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	957	1053	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1970	2066	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3667	3763	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1484	1580	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1339	1435	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1012	1108	
==>CRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41259	41359	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13647	13747	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9439	9539	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4068	4168	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17515	17615	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16937	17037	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41259	41359	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13647	13747	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9439	9539	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41259	41359	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13647	13747	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9439	9539	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4068	4168	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17515	17615	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16937	17037	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4068	4168	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17515	17615	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16937	17037	
==>d1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you c <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10773	10955	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11823	12005	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8324	8506	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9376	9558	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10773	10955	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11823	12005	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8324	8506	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9376	9558	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10773	10955	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11823	12005	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8324	8506	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9376	9558	
==>ass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return und <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4768	4906	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7704	7842	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4768	4906	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7704	7842	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4768	4906	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7704	7842	
==>ciate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bl <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25365	25545	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27560	27740	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25365	25545	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27560	27740	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25365	25545	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27560	27740	
==>tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14002	14115	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14489	14602	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11274	11387	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11749	11862	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14002	14115	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14489	14602	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11274	11387	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11749	11862	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14002	14115	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14489	14602	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11274	11387	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11749	11862	
==>self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $ <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41251	41349	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13639	13737	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9431	9529	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4060	4158	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17507	17605	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16929	17027	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41251	41349	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13639	13737	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9431	9529	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41251	41349	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13639	13737	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9431	9529	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4060	4158	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17507	17605	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16929	17027	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4060	4158	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17507	17605	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16929	17027	
==>t>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free softw <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41411	41508	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13799	13896	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9591	9688	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4220	4317	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17667	17764	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17089	17186	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41411	41508	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13799	13896	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9591	9688	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41411	41508	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13799	13896	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9591	9688	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4220	4317	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17667	17764	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17089	17186	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4220	4317	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17667	17764	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17089	17186	
==>terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 yo <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2153	2251	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1580	1678	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1499	1597	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19845	19943	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2512	2610	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4449	4547	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2026	2124	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2116	2214	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1554	1652	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2153	2251	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1580	1678	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1499	1597	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19845	19943	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2512	2610	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4449	4547	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2026	2124	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2116	2214	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1554	1652	
==>bution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2389	2499	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1816	1926	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1735	1845	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20081	20191	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2748	2858	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4685	4795	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2262	2372	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2352	2462	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1790	1900	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2389	2499	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1816	1926	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1735	1845	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20081	20191	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2748	2858	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4685	4795	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2262	2372	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2352	2462	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1790	1900	
==>etta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

= <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2144	2237	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1571	1664	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1490	1583	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19836	19929	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2503	2596	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4440	4533	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2017	2110	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2107	2200	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1545	1638	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2144	2237	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1571	1664	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1490	1583	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19836	19929	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2503	2596	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4440	4533	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2017	2110	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2107	2200	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1545	1638	
==>of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13104	13221	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15300	15417	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10388	10505	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12556	12673	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13104	13221	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15300	15417	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10388	10505	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12556	12673	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13104	13221	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15300	15417	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10388	10505	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12556	12673	
==>ate_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5718	5823	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8688	8793	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5718	5823	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8688	8793	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5718	5823	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8688	8793	
==>ead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs belo <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41415	41515	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13803	13903	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9595	9695	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4224	4324	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17671	17771	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17093	17193	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41415	41515	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13803	13903	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9595	9695	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41415	41515	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13803	13903	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9595	9695	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4224	4324	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17671	17771	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17093	17193	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4224	4324	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17671	17771	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17093	17193	
==>s as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may h <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4525	4619	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1356	1450	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1018	1112	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	937	1031	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1950	2044	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3647	3741	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1464	1558	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1319	1413	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	992	1086	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4525	4619	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1356	1450	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1018	1112	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	937	1031	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1950	2044	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3647	3741	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1464	1558	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1319	1413	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	992	1086	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This docum <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41352	41449	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13740	13837	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9532	9629	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4161	4258	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17608	17705	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17030	17127	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41352	41449	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13740	13837	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9532	9629	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41352	41449	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13740	13837	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9532	9629	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4161	4258	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17608	17705	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17030	17127	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4161	4258	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17608	17705	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17030	17127	
==>e; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl versi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41436	41536	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13824	13924	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9616	9716	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17114	17214	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41436	41536	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13824	13924	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9616	9716	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41436	41536	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13824	13924	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9616	9716	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17114	17214	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17114	17214	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4245	4344	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17692	17791	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4245	4344	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17692	17791	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4245	4344	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17692	17791	
==>her Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.

=cut <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1812	1914	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4100	4202	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4104	4206	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10247	10349	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14778	14880	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	952	1054	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1796	1898	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5019	5121	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	113	215	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1315	1417	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2214	2316	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5200	5302	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8386	8488	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	940	1042	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4698	4800	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7837	7939	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	555	657	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	463	565	
==>les:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2454	2561	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1881	1988	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1800	1907	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20146	20253	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2813	2920	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4750	4857	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2327	2434	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2417	2524	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1855	1962	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2454	2561	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1881	1988	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1800	1907	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20146	20253	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2813	2920	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4750	4857	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2327	2434	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2417	2524	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1855	1962	
==>CE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> app <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5184	5312	
==>ed $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5184	5312	
==>ed $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5184	5312	
==>ed $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12666	12789	
==>lf.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1 <==
18	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3030	3149	
==>lf.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1 <==
18	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3030	3149	
==>lf.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2336	2452	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2551	2667	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4663	4779	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4878	4994	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2336	2452	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2551	2667	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4663	4779	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4878	4994	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2336	2452	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2551	2667	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4663	4779	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4878	4994	
==>ed $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6:: <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10161	10268	
==>---------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will b <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10161	10268	
==>---------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will b <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10161	10268	
==>---------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will b <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2538	2628	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1807	1897	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2538	2628	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1693	1783	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5020	5106	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4893	4979	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	707	793	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1751	1837	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6557	6643	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1744	1830	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3612	3698	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5160	5246	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5143	5229	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	707	793	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1744	1830	
==>ec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2133	2228	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1560	1655	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1479	1574	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19825	19920	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2492	2587	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4429	4524	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2006	2101	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2096	2191	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1534	1629	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2133	2228	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1560	1655	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1479	1574	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19825	19920	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2492	2587	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4429	4524	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2006	2101	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2096	2191	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1534	1629	
==>e majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2060	2155	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1487	1582	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1406	1501	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19752	19847	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2419	2514	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4356	4451	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1933	2028	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2023	2118	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1461	1556	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2060	2155	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1487	1582	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1406	1501	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19752	19847	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2419	2514	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4356	4451	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1933	2028	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2023	2118	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1461	1556	
==>ority of distribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribut <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4592	4691	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1423	1522	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1085	1184	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1004	1103	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2017	2116	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3714	3813	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1531	1630	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1386	1485	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1059	1158	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4592	4691	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1423	1522	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1085	1184	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1004	1103	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2017	2116	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3714	3813	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1531	1630	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1386	1485	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1059	1158	
==>ead1 INTERFACE

I<This documentation is pending; this section may also be split into several.>

=hea <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1970	2070	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1397	1497	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1316	1416	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19662	19762	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2329	2429	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4266	4366	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1843	1943	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1933	2033	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1371	1471	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1970	2070	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1397	1497	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1316	1416	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19662	19762	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2329	2429	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4266	4366	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1843	1943	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1933	2033	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1371	1471	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of di <==
18	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	391	494	
==>($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perld <==
18	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	391	494	
==>($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perld <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	579	672	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	834	927	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1089	1182	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1344	1437	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1600	1693	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1856	1949	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2111	2204	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2366	2459	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2621	2714	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2876	2969	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3131	3224	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3386	3479	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3638	3731	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3882	3975	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4126	4219	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4371	4464	
==>rget, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $f <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2443	2536	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1870	1963	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1789	1882	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20135	20228	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2802	2895	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4739	4832	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2316	2409	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2406	2499	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1844	1937	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2443	2536	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1870	1963	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1789	1882	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20135	20228	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2802	2895	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4739	4832	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2316	2409	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2406	2499	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1844	1937	
==>e the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4611	4729	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1442	1560	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1104	1222	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1023	1141	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2036	2154	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3733	3851	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1550	1668	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1405	1523	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1078	1196	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4611	4729	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1442	1560	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1104	1222	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1023	1141	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2036	2154	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3733	3851	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1550	1668	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1405	1523	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1078	1196	
==>his documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation i <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1809	1908	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4097	4196	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4101	4200	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10244	10343	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14775	14874	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	949	1048	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1793	1892	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5016	5115	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	110	209	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1312	1411	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2211	2310	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5197	5296	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8383	8482	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	937	1036	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4695	4794	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7834	7933	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	552	651	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	460	559	
==>iables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandt <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4537	4629	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1368	1460	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1030	1122	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	949	1041	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1962	2054	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3659	3751	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1476	1568	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1331	1423	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1004	1096	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4537	4629	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1368	1460	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1030	1122	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	949	1041	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1962	2054	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3659	3751	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1476	1568	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1331	1423	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1004	1096	
==>ead1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18936	19050	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20236	20350	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16174	16288	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17375	17489	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18936	19050	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20236	20350	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16174	16288	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17375	17489	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18936	19050	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20236	20350	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16174	16288	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17375	17489	
==>ed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic si <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4174	4282	
==>f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args) <==
18	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4174	4282	
==>f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args) <==
18	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4174	4282	
==>f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args) <==
18	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4229	4328	
==>s[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pai <==
18	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4229	4328	
==>s[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pai <==
18	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4229	4328	
==>s[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pai <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	718	830	
==>ain-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	683	787	
==>ain-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1871	1970	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1757	1856	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9081	9180	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5082	5177	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4955	5050	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	769	864	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6619	6714	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5129	5224	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1086	1181	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	946	1041	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4382	4477	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5222	5317	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5205	5300	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	769	864	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5129	5224	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1086	1181	
==>d1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwa <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4514	4613	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1345	1444	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1007	1106	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	926	1025	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1939	2038	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3636	3735	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1453	1552	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1308	1407	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	981	1080	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4514	4613	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1345	1444	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1007	1106	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	926	1025	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1939	2038	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3636	3735	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1453	1552	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1308	1407	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	981	1080	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41427	41529	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13815	13917	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9607	9709	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4236	4338	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17683	17785	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17105	17207	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41427	41529	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13815	13917	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9607	9709	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41427	41529	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13815	13917	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9607	9709	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4236	4338	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17683	17785	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17105	17207	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4236	4338	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17683	17785	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17105	17207	
==>self, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available. <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4644	4744	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1475	1575	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1137	1237	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1056	1156	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2069	2169	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3766	3866	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1583	1683	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1438	1538	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1111	1211	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4644	4744	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1475	1575	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1137	1237	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1056	1156	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2069	2169	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3766	3866	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1583	1683	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1438	1538	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1111	1211	
==>s section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=h <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41263	41367	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13651	13755	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9443	9547	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4072	4176	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17519	17623	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16941	17045	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41263	41367	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13651	13755	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9443	9547	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41263	41367	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13651	13755	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9443	9547	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4072	4176	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17519	17623	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16941	17045	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4072	4176	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17519	17623	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16941	17045	
==>OPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redis <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4559	4655	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1390	1486	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1052	1148	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	971	1067	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1984	2080	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3681	3777	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1498	1594	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1353	1449	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1026	1122	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4559	4655	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1390	1486	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1052	1148	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	971	1067	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1984	2080	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3681	3777	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1498	1594	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1353	1449	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1026	1122	
==>is documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section ma <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1800	1905	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4088	4193	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4092	4197	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10235	10340	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14766	14871	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	940	1045	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1784	1889	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5007	5112	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	101	206	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1303	1408	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2202	2307	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5188	5293	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8374	8479	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	928	1033	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4686	4791	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7825	7930	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	543	648	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	451	556	
==>Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expa <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12265	12410	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13774	13919	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20269	20414	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21364	21509	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22282	22427	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26358	26503	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28097	28242	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29113	29258	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12544	12689	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14053	14198	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20548	20693	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21643	21788	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22561	22706	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26637	26782	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28376	28521	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29392	29537	
==>constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
18	/Users/nnunley/pugs/blib6/lib/Relation.pm	23271	23371	
==>s True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Looki <==
18	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27823	27923	
==>s True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Looki <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2377	2474	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1804	1901	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1723	1820	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20069	20166	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2736	2833	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4673	4770	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2250	2347	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2340	2437	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1778	1875	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2377	2474	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1804	1901	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1723	1820	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20069	20166	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2736	2833	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4673	4770	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2250	2347	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2340	2437	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1778	1875	
==>mework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2036	2135	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1463	1562	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1382	1481	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19728	19827	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2395	2494	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4332	4431	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1909	2008	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1999	2098	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1437	1536	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2036	2135	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1463	1562	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1382	1481	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19728	19827	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2395	2494	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4332	4431	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1909	2008	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1999	2098	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1437	1536	
==>o L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAlso> for the m <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2429	2533	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1856	1960	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1775	1879	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20121	20225	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2788	2892	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4725	4829	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2302	2406	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2392	2496	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1830	1934	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2429	2533	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1856	1960	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1775	1879	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20121	20225	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2788	2892	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4725	4829	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2302	2406	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2392	2496	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1830	1934	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOW <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2414	2517	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1841	1944	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1760	1863	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20106	20209	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2773	2876	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4710	4813	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2287	2390	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2377	2480	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1815	1918	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2414	2517	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1841	1944	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1760	1863	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20106	20209	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2773	2876	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4710	4813	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2287	2390	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2377	2480	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1815	1918	
==>2-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2478	2575	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1905	2002	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1824	1921	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20170	20267	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2837	2934	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4774	4871	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2351	2448	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2441	2538	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1879	1976	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2478	2575	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1905	2002	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1824	1921	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20170	20267	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2837	2934	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4774	4871	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2351	2448	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2441	2538	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1879	1976	
==>setta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this fil <==
18	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	795	927	
==>_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'speci <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	795	927	
==>_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'speci <==
18	/Users/nnunley/pugs/blib6/lib/CGI.pm	11857	11952	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1223	1318	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1218	1313	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6935	7030	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4287	4382	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9185	9280	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Tree.pm	11775	11870	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	864	959	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11857	11952	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1223	1318	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1218	1313	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6935	7030	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4287	4382	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9185	9280	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11775	11870	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	864	959	
==>d1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4564	4684	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1395	1515	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1057	1177	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	976	1096	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1989	2109	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3686	3806	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1503	1623	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1358	1478	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1031	1151	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4564	4684	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1395	1515	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1057	1177	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	976	1096	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1989	2109	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3686	3806	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1503	1623	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1358	1478	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1031	1151	
==>cumentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this section may also be split into several. <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1165	1264	
==>program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Ru <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	268	360	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	546	638	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	801	893	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1056	1148	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1311	1403	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1567	1659	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1823	1915	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2078	2170	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2333	2425	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2588	2680	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2843	2935	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3098	3190	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3353	3445	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3605	3697	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3849	3941	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4093	4185	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4338	4430	
==>chObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matc <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4528	4626	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1359	1457	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1021	1119	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	940	1038	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1953	2051	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3650	3748	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1467	1565	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1322	1420	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	995	1093	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4528	4626	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1359	1457	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1021	1119	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	940	1038	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1953	2051	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3650	3748	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1467	1565	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1322	1420	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	995	1093	
==>ing.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41335	41447	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13723	13835	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9515	9627	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4144	4256	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17591	17703	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17013	17125	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41335	41447	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13723	13835	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9515	9627	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41335	41447	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13723	13835	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9515	9627	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4144	4256	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17591	17703	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17013	17125	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4144	4256	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17591	17703	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17013	17125	
==>y is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl ver <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2018	2119	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1445	1546	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1364	1465	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19710	19811	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2377	2478	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4314	4415	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1891	1992	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1981	2082	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1419	1520	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2018	2119	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1445	1546	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1364	1465	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19710	19811	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2377	2478	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4314	4415	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1891	1992	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1981	2082	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1419	1520	
==>ad1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::Se <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41315	41420	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13703	13808	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9495	9600	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4124	4229	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17571	17676	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16993	17098	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41315	41420	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13703	13808	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9495	9600	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41315	41420	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13703	13808	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9495	9600	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4124	4229	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17571	17676	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16993	17098	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4124	4229	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17571	17676	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16993	17098	
==>. Glock

This library is free software; you can redistribute it and/or modify
it under the same terms as P <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6513	6644	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9483	9614	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6513	6644	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9483	9614	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6513	6644	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9483	9614	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5926	6052	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8039	8165	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8896	9022	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10962	11088	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5926	6052	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8039	8165	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8896	9022	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10962	11088	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5926	6052	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8039	8165	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8896	9022	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10962	11088	
==>d && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4637	4733	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1468	1564	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1130	1226	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1049	1145	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2062	2158	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3759	3855	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1576	1672	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1431	1527	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1104	1200	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4637	4733	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1468	1564	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1130	1226	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1049	1145	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2062	2158	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3759	3855	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1576	1672	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1431	1527	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1104	1200	
==>ng; this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pe <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41287	41393	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13675	13781	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9467	9573	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4096	4202	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17543	17649	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16965	17071	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41287	41393	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13675	13781	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9467	9573	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41287	41393	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13675	13781	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9467	9573	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4096	4202	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17543	17649	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16965	17071	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4096	4202	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17543	17649	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16965	17071	
==>pyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
i <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2425	2520	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1852	1947	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1771	1866	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20117	20212	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2784	2879	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4721	4816	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2298	2393	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2388	2483	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1826	1921	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2425	2520	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1852	1947	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1771	1866	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20117	20212	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2784	2879	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4721	4816	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2298	2393	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2388	2483	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1826	1921	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENT <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4641	4736	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1472	1567	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1134	1229	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1053	1148	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2066	2161	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3763	3858	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1580	1675	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1435	1530	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1108	1203	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4641	4736	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1472	1567	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1134	1229	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1053	1148	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2066	2161	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3763	3858	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1580	1675	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1435	1530	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1108	1203	
==>this section may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pendi <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41383	41483	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13771	13871	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9563	9663	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4192	4292	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17639	17739	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17061	17161	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41383	41483	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13771	13871	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9563	9663	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41383	41483	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13771	13871	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9563	9663	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4192	4292	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17639	17739	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17061	17161	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4192	4292	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17639	17739	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17061	17161	
==>or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any l <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1976	2109	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1403	1536	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1322	1455	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19668	19801	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2335	2468	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4272	4405	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1849	1982	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1939	2072	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1377	1510	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1976	2109	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1403	1536	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1322	1455	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19668	19801	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2335	2468	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4272	4405	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1849	1982	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1939	2072	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1377	1510	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority of distribution-internal references, and
L<R <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2380	2481	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1807	1908	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1726	1827	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20072	20173	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2739	2840	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4676	4777	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2253	2354	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2343	2444	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1781	1882	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2380	2481	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1807	1908	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1726	1827	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20072	20173	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2739	2840	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4676	4777	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2253	2354	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2343	2444	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1781	1882	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosett <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4599	4703	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1430	1534	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1092	1196	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1011	1115	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2024	2128	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3721	3825	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1538	1642	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1393	1497	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1066	1170	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4599	4703	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1430	1534	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1092	1196	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1011	1115	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2024	2128	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3721	3825	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1538	1642	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1393	1497	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1066	1170	
==>TERFACE

I<This documentation is pending; this section may also be split into several.>

=head1 DIAGNOSTI <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1577	1695	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2158	2276	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3628	3746	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1577	1695	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2158	2276	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3628	3746	
==>turns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	904	1020	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1778	1894	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2953	3069	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5891	6007	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	904	1020	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1778	1894	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2953	3069	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5891	6007	
==>turns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tra <==
18	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19543	19635	
==>turns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the <==
18	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18524	18616	
==>turns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the <==
18	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19543	19635	
==>turns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the <==
18	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18524	18616	
==>turns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41356	41457	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13744	13845	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9536	9637	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4165	4266	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17612	17713	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17034	17135	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41356	41457	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13744	13845	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9536	9637	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41356	41457	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13744	13845	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9536	9637	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4165	4266	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17612	17713	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17034	17135	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4165	4266	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17612	17713	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17034	17135	
==>ou can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41219	41317	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13607	13705	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9399	9497	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4028	4126	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17475	17573	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16897	16995	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41219	41317	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13607	13705	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9399	9497	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41219	41317	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13607	13705	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9399	9497	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4028	4126	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17475	17573	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16897	16995	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4028	4126	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17475	17573	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16897	16995	
==>. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. G <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2485	2587	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1912	2014	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1831	1933	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20177	20279	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2844	2946	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4781	4883	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2358	2460	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2448	2550	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1886	1988	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2485	2587	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1912	2014	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1831	1933	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20177	20279	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2844	2946	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4781	4883	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2358	2460	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2448	2550	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1886	1988	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to this file too.

=cut <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2407	2507	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1834	1934	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1753	1853	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20099	20199	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2766	2866	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4703	4803	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2280	2380	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2370	2470	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1808	1908	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2407	2507	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1834	1934	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1753	1853	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20099	20199	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2766	2866	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4703	4803	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2280	2380	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2370	2470	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1808	1908	
==>(c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 AC <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41239	41347	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13627	13735	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9419	9527	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4048	4156	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17495	17603	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16917	17025	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41239	41347	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13627	13735	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9419	9527	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41239	41347	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13627	13735	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9419	9527	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4048	4156	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17495	17603	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16917	17025	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4048	4156	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17495	17603	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16917	17025	
==>@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free sof <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4679	4775	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1510	1606	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1172	1268	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1091	1187	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2104	2200	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3801	3897	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1618	1714	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1473	1569	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1146	1242	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4679	4775	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1510	1606	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1172	1268	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1091	1187	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2104	2200	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3801	3897	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1618	1714	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1473	1569	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1146	1242	
==>veral.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2097	2194	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1524	1621	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1443	1540	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19789	19886	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2456	2553	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4393	4490	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1970	2067	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2060	2157	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1498	1595	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2097	2194	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1524	1621	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1443	1540	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19789	19886	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2456	2553	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4393	4490	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1970	2067	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2060	2157	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1498	1595	
==>nces, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS A <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4549	4649	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1380	1480	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1042	1142	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	961	1061	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1974	2074	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3671	3771	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1488	1588	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1343	1443	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1016	1116	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4549	4649	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1380	1480	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1042	1142	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	961	1061	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1974	2074	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3671	3771	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1488	1588	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1343	1443	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1016	1116	
==>TION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pending; this sect <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41256	41355	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13644	13743	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9436	9535	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4065	4164	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17512	17611	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16934	17033	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41256	41355	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13644	13743	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9436	9535	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41256	41355	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13644	13743	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9436	9535	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4065	4164	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17512	17611	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16934	17033	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4065	4164	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17512	17611	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16934	17033	
==>head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; y <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1824	1924	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4112	4212	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4116	4216	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10259	10359	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14790	14890	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	964	1064	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1808	1908	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5031	5131	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	125	225	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1327	1427	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2226	2326	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5212	5312	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8398	8498	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	952	1052	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4710	4810	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7849	7949	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	567	667	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	475	575	
==>entation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41394	41505	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13782	13893	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9574	9685	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4203	4314	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17650	17761	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17072	17183	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41394	41505	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13782	13893	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9574	9685	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41394	41505	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13782	13893	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9574	9685	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4203	4314	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17650	17761	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17072	17183	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4203	4314	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17650	17761	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17072	17183	
==>t under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2362	2457	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1789	1884	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1708	1803	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20054	20149	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2721	2816	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4658	4753	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2235	2330	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2325	2420	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1763	1858	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2362	2457	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1789	1884	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1708	1803	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20054	20149	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2721	2816	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4658	4753	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2235	2330	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2325	2420	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1763	1858	
==>osetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE A <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2374	2469	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1801	1896	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1720	1815	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20066	20161	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2733	2828	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4670	4765	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2247	2342	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2337	2432	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1775	1870	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2374	2469	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1801	1896	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1720	1815	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20066	20161	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2733	2828	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4670	4765	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2247	2342	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2337	2432	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1775	1870	
==>framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41420	41521	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13808	13909	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9600	9701	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4229	4330	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17676	17777	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17098	17199	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41420	41521	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13808	13909	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9600	9701	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41420	41521	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13808	13909	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9600	9701	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4229	4330	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17676	17777	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17098	17199	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4229	4330	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17676	17777	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17098	17199	
==>Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have av <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41200	41292	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13588	13680	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9380	9472	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4009	4101	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17456	17548	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16878	16970	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41200	41292	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13588	13680	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9380	9472	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41200	41292	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13588	13680	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9380	9472	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4009	4101	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17456	17548	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16878	16970	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4009	4101	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17456	17548	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16878	16970	
==>d1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyrigh <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4480	4573	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1311	1404	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	973	1066	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	892	985	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1905	1998	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3602	3695	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1419	1512	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1274	1367	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	947	1040	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4480	4573	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1311	1404	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	973	1066	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	892	985	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1905	1998	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3602	3695	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1419	1512	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1274	1367	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	947	1040	
==>.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6505	6633	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9475	9603	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6505	6633	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9475	9603	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6505	6633	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9475	9603	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        r <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5918	6041	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8031	8154	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8888	9011	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10954	11077	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5918	6041	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8031	8154	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8888	9011	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10954	11077	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5918	6041	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8031	8154	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8888	9011	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10954	11077	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        r <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1820	1917	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4108	4205	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4112	4209	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10255	10352	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14786	14883	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	960	1057	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1804	1901	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5027	5124	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	121	218	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1323	1420	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2222	2319	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5208	5305	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8394	8491	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	948	1045	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4706	4803	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7845	7942	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	563	660	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	471	568	
==>-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftw <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2033	2122	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1460	1549	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1379	1468	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19725	19814	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2392	2481	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4329	4418	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1906	1995	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1996	2085	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1434	1523	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2033	2122	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1460	1549	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1379	1468	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19725	19814	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2392	2481	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4329	4418	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1906	1995	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1996	2085	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1434	1523	
==>o to L<Rosetta> for the majority of distribution-internal references, and
L<Rosetta::SeeAl <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41371	41477	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13759	13865	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9551	9657	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4180	4286	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17627	17733	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17049	17155	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41371	41477	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13759	13865	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9551	9657	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41371	41477	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13759	13865	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9551	9657	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4180	4286	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17627	17733	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17049	17155	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4180	4286	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17627	17733	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17049	17155	
==>bute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2076	2174	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1503	1601	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1422	1520	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19768	19866	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2435	2533	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4372	4470	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1949	2047	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2039	2137	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1477	1575	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2076	2174	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1503	1601	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1422	1520	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19768	19866	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2435	2533	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4372	4470	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1949	2047	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2039	2137	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1477	1575	
==>ution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-external refere <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2140	2230	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1567	1657	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1486	1576	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19832	19922	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2499	2589	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4436	4526	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2013	2103	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2103	2193	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1541	1631	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2140	2230	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1567	1657	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1486	1576	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19832	19922	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2499	2589	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4436	4526	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2013	2103	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2103	2193	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1541	1631	
==>ity of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2117	2222	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1544	1649	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1463	1568	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19809	19914	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2476	2581	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4413	4518	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1990	2095	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2080	2185	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1518	1623	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2117	2222	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1544	1649	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1463	1568	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19809	19914	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2476	2581	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4413	4518	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1990	2095	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2080	2185	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1518	1623	
==>:SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41365	41466	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13753	13854	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9545	9646	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4174	4275	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17621	17722	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17043	17144	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41365	41466	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13753	13854	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9545	9646	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41365	41466	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13753	13854	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9545	9646	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4174	4275	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17621	17722	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17043	17144	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4174	4275	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17621	17722	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17043	17144	
==>distribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at y <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2476	2568	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1903	1995	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1822	1914	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20168	20260	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2835	2927	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4772	4864	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2349	2441	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2439	2531	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1877	1969	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2476	2568	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1903	1995	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1822	1914	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20168	20260	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2835	2927	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4772	4864	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2349	2441	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2439	2531	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1877	1969	
==>Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply to t <==
18	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1216	1355	
==>method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $. <==
18	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1216	1355	
==>method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $. <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	556	650	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	811	905	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1066	1160	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1321	1415	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1577	1671	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1833	1927	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2088	2182	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2343	2437	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2598	2692	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2853	2947	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3108	3202	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3363	3457	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3615	3709	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3859	3953	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4103	4197	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4348	4442	
==>@_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41231	41329	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13619	13717	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9411	9509	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4040	4138	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17487	17585	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16909	17007	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41231	41329	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13619	13717	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9411	9509	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41231	41329	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13619	13717	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9411	9509	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4040	4138	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17487	17585	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16909	17007	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4040	4138	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17487	17585	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16909	17007	
==>t>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This l <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41388	41489	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13776	13877	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9568	9669	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4197	4298	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17644	17745	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	17066	17167	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41388	41489	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13776	13877	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9568	9669	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41388	41489	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13776	13877	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9568	9669	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4197	4298	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17644	17745	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	17066	17167	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4197	4298	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17644	17745	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	17066	17167	
==>dify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later v <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2446	2540	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1873	1967	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1792	1886	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20138	20232	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2805	2899	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4742	4836	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2319	2413	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2409	2503	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1847	1941	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2446	2540	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1873	1967	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1792	1886	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20138	20232	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2805	2899	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4742	4836	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2319	2413	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2409	2503	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1847	1941	
==>he LICENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEME <==
18	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6356	6492	
==>domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results in <==
18	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6356	6492	
==>domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results in <==
18	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7875	7971	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10453	10549	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10912	11008	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4933	5029	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Span.pm	17811	17907	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6179	6275	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3390	3486	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6772	6868	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7875	7971	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10453	10549	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10912	11008	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4933	5029	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17811	17907	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6179	6275	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3390	3486	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6772	6868	
==>k, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2359	2454	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1786	1881	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1705	1800	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20051	20146	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2718	2813	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4655	4750	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2232	2327	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2322	2417	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1760	1855	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2359	2454	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1786	1881	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1705	1800	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20051	20146	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2718	2813	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4655	4750	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2232	2327	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2322	2417	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1760	1855	
==>e Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2107	2205	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1534	1632	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1453	1551	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19799	19897	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2466	2564	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4403	4501	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1980	2078	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2070	2168	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1508	1606	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2107	2205	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1534	1632	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1453	1551	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19799	19897	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2466	2564	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4403	4501	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1980	2078	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2070	2168	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1508	1606	
==>L<Rosetta::SeeAlso> for the majority of distribution-external references.

=head1 BUGS AND LIMITATI <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2344	2451	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1771	1878	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1690	1797	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20036	20143	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2703	2810	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4640	4747	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2217	2324	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2307	2414	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1745	1852	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2344	2451	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1771	1878	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1690	1797	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20036	20143	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2703	2810	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4640	4747	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2217	2324	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2307	2414	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1745	1852	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LIC <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2089	2183	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1516	1610	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1435	1529	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19781	19875	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2448	2542	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4385	4479	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1962	2056	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2052	2146	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1490	1584	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2089	2183	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1516	1610	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1435	1529	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19781	19875	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2448	2542	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4385	4479	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1962	2056	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2052	2146	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1490	1584	
==>l references, and
L<Rosetta::SeeAlso> for the majority of distribution-external references.

=h <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12261	12406	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13770	13915	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20265	20410	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21360	21505	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22278	22423	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26354	26499	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28093	28238	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29109	29254	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12540	12685	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14049	14194	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20544	20689	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21639	21784	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22557	22702	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26633	26778	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28372	28517	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29388	29533	
==>op::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1665	1757	
==>ss->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_sta <==
18	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1665	1757	
==>ss->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_sta <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41203	41297	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13591	13685	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9383	9477	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4012	4106	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17459	17553	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16881	16975	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41203	41297	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13591	13685	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9383	9477	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41203	41297	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13591	13685	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9383	9477	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4012	4106	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17459	17553	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16881	16975	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4012	4106	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17459	17553	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16881	16975	
==>AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2472	2565	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1899	1992	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1818	1911	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20164	20257	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2831	2924	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4768	4861	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2345	2438	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2435	2528	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1873	1966	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2472	2565	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1899	1992	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1818	1911	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20164	20257	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2831	2924	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4768	4861	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2345	2438	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2435	2528	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1873	1966	
==>f L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rosetta> apply t <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2149	2241	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1576	1668	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1495	1587	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19841	19933	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2508	2600	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4445	4537	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2022	2114	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2112	2204	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1550	1642	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2149	2241	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1576	1668	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1495	1587	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19841	19933	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2508	2600	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4445	4537	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2022	2114	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2112	2204	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1550	1642	
==>stribution-external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41270	41370	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13658	13758	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9450	9550	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4079	4179	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17526	17626	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16948	17048	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41270	41370	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13658	13758	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9450	9550	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41270	41370	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13658	13758	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9450	9550	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4079	4179	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17526	17626	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16948	17048	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4079	4179	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17526	17626	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16948	17048	
==>T AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistri <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2369	2465	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1796	1892	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1715	1811	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20061	20157	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2728	2824	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4665	4761	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2242	2338	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2332	2428	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1770	1866	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2369	2465	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1796	1892	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1715	1811	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20061	20157	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2728	2824	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4665	4761	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2242	2338	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2332	2428	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1770	1866	
==>DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND COPYR <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41236	41331	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13624	13719	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9416	9511	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4045	4140	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17492	17587	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16914	17009	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41236	41331	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13624	13719	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9416	9511	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41236	41331	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13624	13719	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9416	9511	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4045	4140	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17492	17587	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16914	17009	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4045	4140	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17492	17587	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16914	17009	
==>ock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Flavio S. Glock

This lib <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2364	2462	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1791	1889	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1710	1808	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20056	20154	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2723	2821	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4660	4758	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2237	2335	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2327	2425	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1765	1863	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2364	2462	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1791	1889	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1710	1808	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20056	20154	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2723	2821	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4660	4758	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2237	2335	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2327	2425	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1765	1863	
==>etta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.

See the LICENCE AND CO <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4651	4769	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1482	1600	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1144	1262	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1063	1181	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2076	2194	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3773	3891	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1590	1708	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1445	1563	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1118	1236	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4651	4769	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1482	1600	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1144	1262	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1063	1181	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2076	2194	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3773	3891	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1590	1708	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1445	1563	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1118	1236	
==>on may also be split into several.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2451	2543	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1878	1970	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1797	1889	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20143	20235	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2810	2902	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4747	4839	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2324	2416	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2414	2506	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1852	1944	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2451	2543	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1878	1970	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1797	1889	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20143	20235	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2810	2902	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4747	4839	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2324	2416	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2414	2506	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1852	1944	
==>CENCE AND COPYRIGHT of L<Rosetta> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4539	4635	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1370	1466	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1032	1128	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	951	1047	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1964	2060	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3661	3757	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1478	1574	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1333	1429	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1006	1102	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4539	4635	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1370	1466	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1032	1128	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	951	1047	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1964	2060	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3661	3757	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1478	1574	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1333	1429	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1006	1102	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This documentation is pend <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6508	6638	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9478	9608	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6508	6638	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9478	9608	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6508	6638	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9478	9608	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5921	6046	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8034	8159	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8891	9016	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10957	11082	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5921	6046	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8034	8159	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8891	9016	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10957	11082	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5921	6046	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8034	8159	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8891	9016	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10957	11082	
==>method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4522	4616	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1353	1447	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1015	1109	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	934	1028	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1947	2041	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3644	3738	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1461	1555	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1316	1410	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	989	1083	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4522	4616	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1353	1447	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1015	1109	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	934	1028	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1947	2041	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3644	3738	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1461	1555	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1316	1410	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	989	1083	
==>s pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

I<This do <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39006	39102	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4860	4956	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Relation.pm	38621	38717	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1353	1449	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1272	1368	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2285	2381	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1799	1895	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1327	1423	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39006	39102	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4860	4956	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43170	43266	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1353	1449	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1272	1368	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2285	2381	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1799	1895	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1327	1423	
==>version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25524	25619	
==>ther components when and as the GPL requires distribution of
source code.  However, for an addit <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25524	25619	
==>ther components when and as the GPL requires distribution of
source code.  However, for an addit <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	2070	2161	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1497	1588	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1416	1507	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19762	19853	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2429	2520	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4366	4457	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1943	2034	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	2033	2124	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1471	1562	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	2070	2161	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1497	1588	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1416	1507	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19762	19853	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2429	2520	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4366	4457	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1943	2034	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	2033	2124	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1471	1562	
==>istribution-internal references, and
L<Rosetta::SeeAlso> for the majority of distribution-ex <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41197	41290	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13585	13678	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9377	9470	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4006	4099	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17453	17546	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16875	16968	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41197	41290	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13585	13678	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9377	9470	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41197	41290	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13585	13678	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9377	9470	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4006	4099	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17453	17546	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16875	16968	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4006	4099	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17453	17546	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16875	16968	
==>head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyri <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41274	41381	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13662	13769	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9454	9561	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4083	4190	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17530	17637	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16952	17059	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41274	41381	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13662	13769	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9454	9561	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41274	41381	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13662	13769	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9454	9561	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4083	4190	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17530	17637	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16952	17059	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4083	4190	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17530	17637	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16952	17059	
==>D LICENSE

Copyright (C) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41297	41411	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13685	13799	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9477	9591	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4106	4220	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17553	17667	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16975	17089	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41297	41411	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13685	13799	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9477	9591	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41297	41411	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13685	13799	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9477	9591	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4106	4220	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17553	17667	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16975	17089	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4106	4220	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17553	17667	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16975	17089	
==>) 2005 by Flavio S. Glock

This library is free software; you can redistribute it and/or modify
it under the same t <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41207	41307	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13595	13695	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9387	9487	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4016	4116	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17463	17563	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16885	16985	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41207	41307	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13595	13695	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9387	9487	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41207	41307	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13595	13695	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9387	9487	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4016	4116	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17463	17563	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16885	16985	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4016	4116	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17463	17563	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16885	16985	
==>OR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by F <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5830	5979	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6383	6532	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6958	7107	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7967	8116	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8509	8658	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9187	9336	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10236	10385	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6023	6172	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6576	6725	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7151	7300	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8160	8309	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8702	8851	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9380	9529	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10515	10664	
==>( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @ <==
18	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4637	4758	
==>.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $ <==
18	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4637	4758	
==>.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $ <==
18	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1326	1417	
==>hell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1. <==
18	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1326	1417	
==>hell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1. <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41173	41287	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13561	13675	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9353	9467	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3982	4096	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17429	17543	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16851	16965	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41173	41287	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13561	13675	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9353	9467	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41173	41287	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13561	13675	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9353	9467	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3982	4096	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17429	17543	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16851	16965	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3982	4096	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17429	17543	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
18	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16851	16965	
==>=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYRIGHT AND LICENSE

Cop <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4737	4851	
==>ash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_nam <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4737	4851	
==>ash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_nam <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2540	2630	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1809	1899	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2540	2630	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1695	1785	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5022	5108	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4895	4981	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	709	795	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1753	1839	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6559	6645	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1746	1832	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3614	3700	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5162	5248	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5145	5231	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	709	795	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1746	1832	
==>: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 200 <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1879	1980	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1765	1866	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9089	9190	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	438	537	
==>e' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pugs::Runtime::Perl6::Scalar::Alias;

sub TIESC <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5090	5187	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4963	5060	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	777	874	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6627	6724	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5137	5234	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1094	1191	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	954	1051	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4390	4487	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5230	5327	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5213	5310	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	777	874	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5137	5234	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1094	1191	
==>IGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you ca <==
17	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4182	4330	
==>ew('&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->ne <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1914	2011	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1800	1897	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9124	9221	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5123	5218	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4996	5091	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	810	905	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6660	6755	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5170	5265	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1127	1222	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	987	1082	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4423	4518	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5263	5358	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5246	5341	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	810	905	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5170	5265	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1127	1222	
==>ibelmann Glock and others.

This program is free software; you can redistribute it and/or modify <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38975	39071	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4829	4925	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38590	38686	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1322	1418	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1241	1337	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2254	2350	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1768	1864	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1296	1392	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38975	39071	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4829	4925	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43139	43235	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1322	1418	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1241	1337	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2254	2350	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1768	1864	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1296	1392	
==>ENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBIL <==
17	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5295	5391	
==>git><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit <==
17	/Users/nnunley/pugs/inc/Test/Harness.pm	21949	22056	
==>tests) {
        my $namelen = length $failedtests->{$script}->{name};
        $max_namelen = $namelen if $n <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1910	2008	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1796	1894	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9120	9218	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5119	5215	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4992	5088	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	806	902	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6656	6752	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5166	5262	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1123	1219	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	983	1079	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4419	4515	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5259	5355	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5242	5338	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	806	902	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5166	5262	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1123	1219	
==>o Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mod <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1162	1266	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1402	1506	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1670	1774	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2104	2208	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2460	2564	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1162	1266	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1402	1506	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1670	1774	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2104	2208	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2460	2564	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1162	1266	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1402	1506	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1670	1774	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2104	2208	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2460	2564	
==>lessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . " <==
17	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12885	12979	
==>haracter.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unreco <==
17	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12885	12979	
==>haracter.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unreco <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26409	26503	
==>bclass) returns nil {
    @:subclasses.push($subclass);
}

(method add_subclass ((opaque $self: <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	571	664	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	826	919	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1081	1174	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1336	1429	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1592	1685	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1848	1941	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2103	2196	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2358	2451	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2613	2706	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2868	2961	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3123	3216	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3378	3471	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3630	3723	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3874	3967	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4118	4211	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4363	4456	
==>Obj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $ta <==
17	/Users/nnunley/pugs/src/perl6/Prelude.pm	4218	4345	
==>nstant = 1;
    
    sub import {
        Pugs::Internals::install_pragma_value($?CLASS, 1);
    }

    sub unimport {
        P <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1925	2025	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1811	1911	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9135	9235	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5134	5231	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5007	5104	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	821	918	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6671	6768	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5181	5278	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1138	1235	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	998	1095	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4434	4531	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5274	5371	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5257	5354	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	821	918	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5181	5278	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1138	1235	
==>ock and others.

This program is free software; you can redistribute it and/or modify it
under the <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7453	7608	
==>sh( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $di <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7453	7608	
==>sh( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $di <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7453	7608	
==>sh( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $di <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1581	1700	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2162	2281	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3632	3751	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1581	1700	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2162	2281	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3632	3751	
==>s Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	908	1025	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1782	1899	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2957	3074	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5895	6012	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	908	1025	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1782	1899	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2957	3074	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5895	6012	
==>s Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41169	41266	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13557	13654	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9349	9446	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41169	41266	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13557	13654	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9349	9446	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41169	41266	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13557	13654	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9349	9446	
==>.


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17426	17522	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16848	16944	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17426	17522	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16848	16944	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17426	17522	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16848	16944	
==>.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
17	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4736	4831	
==>pty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified fun <==
17	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4736	4831	
==>pty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified fun <==
17	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	414	528	
==>scope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule le <==
17	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	414	528	
==>scope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule le <==
17	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6048	6173	
==>ass = ($got <= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $ <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38980	39076	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4834	4930	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38595	38691	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1327	1423	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1246	1342	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2259	2355	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1773	1869	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1301	1397	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38980	39076	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4834	4930	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43144	43240	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1327	1423	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1246	1342	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2259	2355	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1773	1869	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1301	1397	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38965	39062	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4819	4916	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38580	38677	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1312	1409	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1231	1328	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2244	2341	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1758	1855	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1286	1383	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38965	39062	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4819	4916	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43129	43226	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1312	1409	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1231	1328	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2244	2341	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1758	1855	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1286	1383	
==>ad1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INC <==
17	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21254	21346	
==><';'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoI <==
17	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15052	15165	
==>st <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3399	3507	
==>tr( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1757	1865	
==>tr( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2537	2645	
==>tr( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10886	10981	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11095	11190	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11591	11686	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11770	11865	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10886	10981	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11095	11190	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11591	11686	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11770	11865	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10886	10981	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11095	11190	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11591	11686	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11770	11865	
==>key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify <==
17	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6161	6255	
==>"\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3297	3407	
==>t;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			})) <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3297	3407	
==>t;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			})) <==
17	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3297	3407	
==>t;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			})) <==
17	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1159	1249	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1154	1244	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6871	6961	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4223	4313	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9121	9211	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Tree.pm	11711	11801	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	800	890	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1159	1249	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1154	1244	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6871	6961	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4223	4313	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9121	9211	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11711	11801	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	800	890	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	12184	12285	
==>(Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to d <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15661	15762	
==>(Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to d <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2503	2598	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1772	1867	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2503	2598	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1658	1753	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4987	5078	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4860	4951	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	674	765	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1718	1809	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6524	6615	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1711	1802	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3579	3670	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5127	5218	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5110	5201	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	674	765	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1711	1802	
==>ad1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

= <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5841	5989	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6394	6542	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6969	7117	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7978	8126	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8520	8668	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9198	9346	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10247	10395	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6034	6182	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6587	6735	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7162	7310	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8171	8319	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8713	8861	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9391	9539	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10526	10674	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms <==
17	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4016	4105	
==>ilder::Test::Fail
instance, passing on the C<$description> parameter and setting the passe <==
17	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4016	4105	
==>ilder::Test::Fail
instance, passing on the C<$description> parameter and setting the passe <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6213	6302	
==>ilder::Test::Fail
instance, passing on the C<$description> parameter and setting the passe <==
17	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18044	18145	
==>.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used
variously <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1874	1972	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1760	1858	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9084	9182	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5085	5179	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4958	5052	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	772	866	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6622	6716	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5132	5226	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1089	1183	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	949	1043	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4385	4479	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5225	5319	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5208	5302	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	772	866	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5132	5226	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1089	1183	
==>COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software <==
17	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14602	14704	
==>es };
    eval { DumpFile( $self->registered_alternatives_file, @alts ) };
    $@ and error( "Could not <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38994	39089	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4848	4943	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38609	38704	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1341	1436	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1260	1355	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2273	2368	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1787	1882	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1315	1410	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38994	39089	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4848	4943	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43158	43253	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1341	1436	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1260	1355	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2273	2368	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1787	1882	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1315	1410	
==>equires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None report <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32308	32427	
==>d::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32963	33082	
==>d::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10691	10809	
==>d::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21028	21145	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22458	22575	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23074	23191	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26034	26151	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27516	27633	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28300	28417	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38664	38781	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39191	39308	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42247	42364	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42677	42794	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43952	44069	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50609	50726	
==>d::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                r <==
17	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3179	3277	
==>is means that you should strive to use only truly random keys; Perl's C<rand> 
function is not good <==
17	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3179	3277	
==>is means that you should strive to use only truly random keys; Perl's C<rand> 
function is not good <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	269	366	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	547	644	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	802	899	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1057	1154	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1312	1409	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1568	1665	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1824	1921	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2079	2176	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2334	2431	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2589	2686	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2844	2941	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3099	3196	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3354	3451	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3606	3703	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3850	3947	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4094	4191	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4339	4436	
==>hObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj ) <==
17	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4790	4920	
==>a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $code = $ <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38984	39080	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4838	4934	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38599	38695	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1331	1427	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1250	1346	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2263	2359	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1777	1873	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1305	1401	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38984	39080	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4838	4934	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43148	43244	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1331	1427	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1250	1346	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2263	2359	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1777	1873	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1305	1401	
==>his file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

No <==
17	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	622	729	
==>gexp_hook_on();
    }

    no strict 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override: <==
17	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7872	7966	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10450	10544	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10909	11003	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4930	5024	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Span.pm	17808	17902	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6176	6270	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3387	3481	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6769	6863	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7872	7966	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10450	10544	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10909	11003	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4930	5024	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17808	17902	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6176	6270	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3387	3481	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6769	6863	
==>lock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
17	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1212	1307	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1207	1302	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6924	7019	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4276	4371	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9174	9269	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/Tree.pm	11764	11859	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	853	948	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1212	1307	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1207	1302	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6924	7019	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4276	4371	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9174	9269	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11764	11859	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	853	948	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18114	18208	
==>an - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MUL <==
17	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18114	18208	
==>an - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MUL <==
17	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18114	18208	
==>an - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MUL <==
17	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	1047	1268	
==>re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $36
                                 $iso8601_re ) ) )
        )/;      #/x?# yay, cperl-mode

#FIXME - can't us <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12264	12409	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13773	13918	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20268	20413	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21363	21508	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22281	22426	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26357	26502	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28096	28241	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29112	29257	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12543	12688	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14052	14197	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20547	20692	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21642	21787	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22560	22705	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26636	26781	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28375	28520	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29391	29536	
==>:constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1890	1988	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1776	1874	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9100	9198	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5099	5195	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4972	5068	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	786	882	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6636	6732	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5146	5242	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1103	1199	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	963	1059	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4399	4495	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5239	5335	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5222	5318	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	786	882	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5146	5242	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1103	1199	
==>yright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redist <==
17	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15316	15412	
==>se a string at a level higher it can support is handled
without warning. The highest supported le <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5002	5131	
==>->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = sh <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5002	5131	
==>->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = sh <==
17	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5002	5131	
==>->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = sh <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15510	15631	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12766	12887	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15510	15631	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12766	12887	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15510	15631	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12766	12887	
==>ance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is n <==
17	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	892	1004	
==>assed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</ht <==
17	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	892	1004	
==>assed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</ht <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6258	6366	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9228	9336	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6258	6366	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9228	9336	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6258	6366	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9228	9336	
==>hod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($ <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5160	5300	
==>) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5160	5300	
==>) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5160	5300	
==>) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2314	2440	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2529	2655	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4641	4767	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4856	4982	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2314	2440	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2529	2655	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4641	4767	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4856	4982	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2314	2440	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2529	2655	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4641	4767	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4856	4982	
==>) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name <==
17	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2809	2908	
==>an C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all i <==
17	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2809	2908	
==>an C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all i <==
17	/Users/nnunley/pugs/misc/Blondie/milner.pl	11149	11259	
==>->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int - <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1900	1999	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1786	1885	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9110	9209	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5109	5206	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4982	5079	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	796	893	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6646	6743	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5156	5253	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1113	1210	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	973	1070	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4409	4506	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5249	5346	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5232	5329	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	796	893	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5156	5253	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1113	1210	
==>6 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it a <==
17	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4302	4429	
==>'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    } <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39002	39098	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4856	4952	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38617	38713	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1349	1445	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1268	1364	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2281	2377	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1795	1891	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1323	1419	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39002	39098	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4856	4952	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43166	43262	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1349	1445	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1268	1364	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2281	2377	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1795	1891	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1323	1419	
==>any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2514	2607	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1783	1876	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2514	2607	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1669	1762	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/blib6/lib/Span.pm	15692	15783	
==>ed in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_clo <==
17	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15692	15783	
==>ed in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_clo <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4998	5087	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4871	4960	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	685	774	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1729	1818	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6535	6624	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1722	1811	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3590	3679	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5138	5227	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5121	5210	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	685	774	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1722	1811	
==>O

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COP <==
17	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	617	731	
==>B::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38997	39092	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4851	4946	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Relation.pm	38612	38707	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1344	1439	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1263	1358	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2276	2371	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1790	1885	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1318	1413	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38997	39092	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4851	4946	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43161	43256	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1344	1439	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1263	1358	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2276	2371	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1790	1885	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1318	1413	
==>ires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported. <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1150	1253	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1390	1493	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1658	1761	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2092	2195	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2448	2551	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1150	1253	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1390	1493	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1658	1761	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2092	2195	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2448	2551	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1150	1253	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1390	1493	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1658	1761	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2092	2195	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2448	2551	
==>nstance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || <==
17	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33877	33972	
==>h says what
language they prefer to communicate in, and what their backup choices are,
in order, <==
17	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33877	33972	
==>h says what
language they prefer to communicate in, and what their backup choices are,
in order, <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5164	5303	
==>@_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5164	5303	
==>@_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5164	5303	
==>@_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2318	2443	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2533	2658	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4645	4770	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4860	4985	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2318	2443	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2533	2658	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4645	4770	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4860	4985	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2318	2443	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2533	2658	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4645	4770	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4860	4985	
==>@_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => <==
17	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5609	5706	
==>ts.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'eng <==
17	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5609	5706	
==>ts.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'eng <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	255	359	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	533	637	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	788	892	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1043	1147	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1298	1402	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1554	1658	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1810	1914	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2065	2169	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2320	2424	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2575	2679	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2830	2934	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3085	3189	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3340	3444	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3592	3696	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3836	3940	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4080	4184	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
17	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4325	4429	
==>{
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $mat <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38985	39088	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4839	4942	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38600	38703	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1332	1435	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1251	1354	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2264	2367	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1778	1881	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1306	1409	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38985	39088	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4839	4942	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43149	43252	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1332	1435	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1251	1354	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2264	2367	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1778	1881	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1306	1409	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None repor <==
16	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4757	4904	
==>mv
    DumpFile( $Available, @uninstalled );
    
    ### unisntall metadata
    system(qq[rm -rf $meta])                                    and die <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1159	1262	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1399	1502	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1667	1770	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2101	2204	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2457	2560	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1159	1262	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1399	1502	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1667	1770	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2101	2204	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2457	2560	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1159	1262	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1399	1502	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1667	1770	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2101	2204	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2457	2560	
==>& blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	570	663	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	825	918	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1080	1173	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1335	1428	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1591	1684	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1847	1940	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2102	2195	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2357	2450	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2612	2705	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2867	2960	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3122	3215	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3377	3470	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3629	3722	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3873	3966	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4117	4210	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4362	4455	
==>hObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $t <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1867	1969	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1753	1855	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9077	9179	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5078	5176	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4951	5049	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	765	863	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6615	6713	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5125	5223	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1082	1180	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	942	1040	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4378	4476	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5218	5316	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5201	5299	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	765	863	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5125	5223	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1082	1180	
==>=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39007	39104	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4861	4958	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38622	38719	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1354	1451	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1273	1370	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2286	2383	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1800	1897	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1328	1425	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39007	39104	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4861	4958	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43171	43268	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1354	1451	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1273	1370	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2286	2383	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1800	1897	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1328	1425	
==>ersion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
16	/Users/nnunley/pugs/blib6/lib/CGI.pm	11858	11953	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1224	1319	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1219	1314	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6936	7031	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4288	4383	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9186	9281	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Tree.pm	11776	11871	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	865	960	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11858	11953	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1224	1319	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1219	1314	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6936	7031	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4288	4383	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9186	9281	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11776	11871	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	865	960	
==>1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38966	39070	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4820	4924	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38581	38685	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1313	1417	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1232	1336	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2245	2349	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1759	1863	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1287	1391	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38966	39070	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4820	4924	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43130	43234	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1313	1417	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1232	1336	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2245	2349	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1759	1863	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1287	1391	
==>d1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBI <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7873	7968	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10451	10546	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10910	11005	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4931	5026	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Span.pm	17809	17904	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6177	6272	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3388	3483	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6770	6865	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7873	7968	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10451	10546	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10910	11005	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4931	5026	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17809	17904	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6177	6272	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3388	3483	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6770	6865	
==>ock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1880	1987	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1766	1873	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9090	9197	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5091	5194	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4964	5067	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	778	881	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6628	6731	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5138	5241	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1095	1198	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	955	1058	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4391	4494	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5231	5334	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5214	5317	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	778	881	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5138	5241	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1095	1198	
==>GHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redis <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	214	319	
==>:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2533	2623	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1802	1892	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2533	2623	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1688	1778	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5015	5101	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4888	4974	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	702	788	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1746	1832	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6552	6638	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1739	1825	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3607	3693	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5155	5241	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5138	5224	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	702	788	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1739	1825	
==>es Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyri <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7490	7603	
==>@js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @j <==
16	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7490	7603	
==>@js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @j <==
16	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7490	7603	
==>@js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @j <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2493	2587	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1762	1856	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2493	2587	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1648	1742	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4979	5069	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	666	756	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1710	1800	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6516	6606	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1703	1793	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3571	3661	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5119	5209	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	666	756	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1703	1793	
==>t>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5182	5310	
==>ined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5182	5310	
==>ined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5182	5310	
==>ined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2334	2450	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2549	2665	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4661	4777	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4876	4992	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2334	2450	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2549	2665	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4661	4777	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4876	4992	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2334	2450	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2549	2665	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4661	4777	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4876	4992	
==>ined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6 <==
16	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	206	305	
==>ERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Makefile <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3205	3327	
==>{
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 }, <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3398	3520	
==>{
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 }, <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1203	1296	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1198	1291	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6915	7008	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4267	4360	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9165	9258	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/Tree.pm	11755	11848	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	844	937	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1203	1296	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1198	1291	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6915	7008	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4267	4360	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9165	9258	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11755	11848	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	844	937	
==>ctive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	554	649	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	809	904	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1064	1159	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1319	1414	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1575	1670	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1831	1926	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2086	2181	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2341	2436	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2596	2691	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2851	2946	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3106	3201	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3361	3456	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3613	3708	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3857	3952	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4101	4196	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4346	4441	
==>= @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  i <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12266	12412	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13775	13921	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20270	20416	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21365	21511	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22283	22429	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26359	26505	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28098	28244	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29114	29260	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12545	12691	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14054	14200	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20549	20695	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21644	21790	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22562	22708	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26638	26784	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28377	28523	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29393	29539	
==>onstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	586	684	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	841	939	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1096	1194	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1351	1449	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1607	1705	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1863	1961	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2118	2216	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2373	2471	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2628	2726	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2883	2981	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3138	3236	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3393	3491	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3645	3743	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3889	3987	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4133	4231	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4378	4476	
==>from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5828	5976	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6381	6529	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6956	7104	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7965	8113	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8507	8655	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9185	9333	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10234	10382	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6021	6169	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6574	6722	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7149	7297	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8158	8306	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8700	8848	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9378	9526	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10513	10661	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshif <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7139	7282	
==>t
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded templa <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7139	7282	
==>t
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded templa <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38995	39091	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4849	4945	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38610	38706	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1342	1438	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1261	1357	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2274	2370	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1788	1884	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1316	1412	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38995	39091	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4849	4945	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43159	43255	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1342	1438	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1261	1357	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2274	2370	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1788	1884	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1316	1412	
==>quires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12262	12408	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13771	13917	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20266	20412	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21361	21507	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22279	22425	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26355	26501	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28094	28240	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29110	29256	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12541	12687	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14050	14196	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20545	20691	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21640	21786	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22558	22704	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26634	26780	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28373	28519	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29389	29535	
==>p::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
16	/Users/nnunley/pugs/inc/Test/Harness.pm	15967	16116	
==>= /\.(\w+)$/ ? $1 : '';
        my $len    = length;
        my $suflen = length $suf;
        $maxlen    = $len    if $len    > $maxlen;
        $max <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2505	2599	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1774	1868	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2505	2599	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1660	1754	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4989	5079	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4862	4952	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	676	766	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1720	1810	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6526	6616	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1713	1803	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3581	3671	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5129	5219	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5112	5202	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	676	766	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1713	1803	
==>1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=h <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13083	13200	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15279	15396	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10367	10484	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12535	12652	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13083	13200	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15279	15396	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10367	10484	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12535	12652	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13083	13200	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15279	15396	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10367	10484	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12535	12652	
==>table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $param <==
16	/Users/nnunley/pugs/blib6/lib/Set.pm	5839	5935	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
16	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4969	5065	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
16	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5839	5935	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
16	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4969	5065	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	6487	6602	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	7240	7355	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	8104	8219	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	8885	9000	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9964	10079	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10717	10832	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11581	11696	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12362	12477	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9056	9171	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9854	9969	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10763	10878	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11589	11704	
==>ation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading = <==
16	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	495	604	
==>ket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fre <==
16	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	499	608	
==>ket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fre <==
16	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	495	604	
==>ket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fre <==
16	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	499	608	
==>ket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fre <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1902	2007	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1788	1893	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9112	9217	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5111	5214	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4984	5087	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	798	901	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6648	6751	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5158	5261	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1115	1218	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	975	1078	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4411	4514	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5251	5354	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5234	5337	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	798	901	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5158	5261	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1115	1218	
==>by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it and/or mo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1915	2024	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1801	1910	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9125	9234	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5124	5230	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4997	5103	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	811	917	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6661	6767	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5171	5277	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1128	1234	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	988	1094	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4424	4530	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5264	5370	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5247	5353	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	811	917	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5171	5277	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1128	1234	
==>belmann Glock and others.

This program is free software; you can redistribute it and/or modify it
under th <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	580	675	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	835	930	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1090	1185	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1345	1440	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1601	1696	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1857	1952	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2112	2207	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2367	2462	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2622	2717	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2877	2972	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3132	3227	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3387	3482	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3639	3734	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3883	3978	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4127	4222	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4372	4467	
==>get, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39012	39109	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4866	4963	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38627	38724	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1359	1456	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1278	1375	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2291	2388	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1805	1902	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1333	1430	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39012	39109	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4866	4963	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43176	43273	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1359	1456	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1278	1375	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2291	2388	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1805	1902	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1333	1430	
==>n of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1872	1971	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1758	1857	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9082	9181	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5083	5178	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4956	5051	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	770	865	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6620	6715	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5130	5225	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1087	1182	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	947	1042	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4383	4478	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5223	5318	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5206	5301	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	770	865	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5130	5225	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1087	1182	
==>1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free softwar <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7868	7965	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10446	10543	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10905	11002	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4926	5023	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Span.pm	17804	17901	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6172	6269	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3383	3480	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6765	6862	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7868	7965	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10446	10543	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10905	11002	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4926	5023	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17804	17901	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6172	6269	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3383	3480	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6765	6862	
==>S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38955	39061	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4809	4915	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38570	38676	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1302	1408	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1221	1327	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2234	2340	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1748	1854	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1276	1382	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38955	39061	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4809	4915	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43119	43225	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1302	1408	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1221	1327	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2234	2340	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1748	1854	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1276	1382	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 IN <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12237	12405	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13746	13914	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20241	20409	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21336	21504	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22254	22422	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26330	26498	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28069	28237	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29085	29253	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12516	12684	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14025	14193	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20520	20688	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21615	21783	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22533	22701	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26609	26777	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28348	28516	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29364	29532	
==>)
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	557	660	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	812	915	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1067	1170	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1322	1425	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1578	1681	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1834	1937	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2089	2192	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2344	2447	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2599	2702	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2854	2957	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3109	3212	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3364	3467	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3616	3719	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3860	3963	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4104	4207	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4349	4452	
==>_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2102	2210	
==>est $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieab <==
16	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2102	2210	
==>est $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieab <==
16	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2102	2210	
==>est $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieab <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2432	2532	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1701	1801	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2432	2532	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1587	1687	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4920	5014	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	607	701	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1651	1745	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6457	6551	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1644	1738	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3512	3606	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5060	5154	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	607	701	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1644	1738	
==>ead1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rul <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23474	23593	
==>"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3658	3764	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4353	4459	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3658	3764	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4353	4459	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3658	3764	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4353	4459	
==>r && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")" <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	20508	20603	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22098	22193	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9371	9466	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25060	25155	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23630	23725	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22098	22193	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9371	9466	
==><new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24466	24560	
==><new()> on
the appropriate class name, and then invoking methods on those objects.
All of their <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24466	24560	
==><new()> on
the appropriate class name, and then invoking methods on those objects.
All of their <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39003	39099	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4857	4953	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38618	38714	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1350	1446	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1269	1365	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2282	2378	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1796	1892	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1324	1420	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39003	39099	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4857	4953	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43167	43263	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1350	1446	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1269	1365	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2282	2378	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1796	1892	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1324	1420	
==>ny version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head <==
16	/Users/nnunley/pugs/blib6/lib/CGI.pm	11853	11951	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1219	1317	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1214	1312	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6931	7029	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4283	4381	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9181	9279	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/Tree.pm	11771	11869	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	860	958	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11853	11951	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1219	1317	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1214	1312	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6931	7029	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4283	4381	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9181	9279	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11771	11869	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	860	958	
==>=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	572	671	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	827	926	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1082	1181	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1337	1436	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1593	1692	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1849	1948	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2104	2203	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2359	2458	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2614	2713	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2869	2968	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3124	3223	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3379	3478	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3631	3730	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3875	3974	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4119	4218	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4364	4463	
==>bj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $ <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1891	1997	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1777	1883	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9101	9207	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5100	5204	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4973	5077	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	787	891	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6637	6741	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5147	5251	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1104	1208	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	964	1068	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4400	4504	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5240	5344	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5223	5327	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	787	891	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5147	5251	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1104	1208	
==>right 2006 by Flavio Soibelmann Glock and others.

This program is free software; you can redistribute it <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1926	2028	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1812	1914	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9136	9238	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5135	5234	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	5008	5107	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	822	921	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6672	6771	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5182	5281	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1139	1238	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	999	1098	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4435	4534	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5275	5374	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5258	5357	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	822	921	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5182	5281	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1139	1238	
==>ck and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32316	32436	
==>ture->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32971	33091	
==>ture->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10699	10818	
==>ture->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21036	21154	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22466	22584	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23082	23200	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26042	26160	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27524	27642	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28308	28426	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38672	38790	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39199	39317	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42255	42373	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42685	42803	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43960	44078	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50617	50735	
==>ture->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	622	737	
==>$tree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast) <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11468	11605	
==>return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captur <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7750	7887	
==>return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captur <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8584	8721	
==>return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captur <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4906	5031	
==>ocal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_H <==
16	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4906	5031	
==>ocal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_H <==
16	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4906	5031	
==>ocal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_H <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1670	1785	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AU <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14817	14929	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19516	19628	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14817	14929	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19516	19628	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1098	1210	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1303	1415	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1364	1476	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14817	14929	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19516	19628	
==>isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AU <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38998	39097	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4852	4951	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38613	38712	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1345	1444	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1264	1363	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2277	2376	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1791	1890	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1319	1418	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38998	39097	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4852	4951	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43162	43261	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1345	1444	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1264	1363	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2277	2376	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1791	1890	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1319	1418	
==>res any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=he <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8592	8703	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alter <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8785	8896	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alter <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1197	1288	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1192	1283	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6909	7000	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4261	4352	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9159	9250	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Tree.pm	11749	11840	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	838	929	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1197	1288	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1192	1283	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6909	7000	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4261	4352	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9159	9250	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11749	11840	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	838	929	
==>interactive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7865	7961	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10443	10539	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10902	10998	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4923	5019	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Span.pm	17801	17897	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6169	6265	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3380	3476	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6762	6858	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7865	7961	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10443	10539	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10902	10998	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4923	5019	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17801	17897	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6169	6265	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3380	3476	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6762	6858	
==>io S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights re <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38976	39075	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4830	4929	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38591	38690	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1323	1422	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1242	1341	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2255	2354	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1769	1868	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1297	1396	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38976	39075	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4830	4929	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43140	43239	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1323	1422	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1242	1341	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2255	2354	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1769	1868	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1297	1396	
==>NCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIE <==
16	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1086	1191	
==>e has a hash for this right now this is a non
    # issue since even higher order functions get prims inst <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1143	1247	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1383	1487	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1651	1755	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2085	2189	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2441	2545	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1143	1247	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1383	1487	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1651	1755	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2085	2189	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2441	2545	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1143	1247	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1383	1487	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1651	1755	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2085	2189	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2441	2545	
==>ined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($insta <==
16	/Users/nnunley/pugs/util/package-osx.pl	5758	5855	
==>ew::Control.3pm
        /usr/local/man/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Pe <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2524	2612	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1793	1881	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2524	2612	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1679	1767	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5006	5092	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4879	4965	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	693	779	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1737	1823	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6543	6629	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1730	1816	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3598	3684	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5146	5232	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5129	5215	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	693	779	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1730	1816	
==>erl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGH <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2734	2842	
==>_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })' <==
16	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2734	2842	
==>_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })' <==
16	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2734	2842	
==>_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })' <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2452	2548	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1721	1817	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2452	2548	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1607	1703	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4938	5030	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	625	717	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1669	1761	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6475	6567	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1662	1754	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3530	3622	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5078	5170	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	625	717	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1662	1754	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5835	5983	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6388	6536	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6963	7111	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7972	8120	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8514	8662	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9192	9340	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10241	10389	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6028	6176	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6581	6729	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7156	7304	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8165	8313	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8707	8855	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9385	9533	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10520	10668	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16281	16417	
==>\$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bo <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16275	16411	
==>\$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bo <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7851	7958	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10429	10536	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10888	10995	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4909	5016	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Span.pm	17787	17894	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6155	6262	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3366	3473	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6748	6855	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7851	7958	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10429	10536	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10888	10995	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4909	5016	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17787	17894	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6155	6262	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3366	3473	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6748	6855	
==>= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38983	39079	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4837	4933	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38598	38694	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1330	1426	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1249	1345	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2262	2358	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1776	1872	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1304	1400	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38983	39079	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4837	4933	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43147	43243	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1330	1426	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1249	1345	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2262	2358	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1776	1872	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1304	1400	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

N <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1912	2010	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1798	1896	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9122	9220	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5121	5217	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4994	5090	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	808	904	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6658	6754	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5168	5264	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1125	1221	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	985	1081	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4421	4517	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5261	5357	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5244	5340	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	808	904	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5168	5264	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1125	1221	
==>Soibelmann Glock and others.

This program is free software; you can redistribute it and/or modif <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7876	7992	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10454	10570	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10913	11029	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4934	5050	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Span.pm	17812	17928	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6180	6296	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3391	3507	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6773	6889	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7876	7992	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10454	10570	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10913	11029	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4934	5050	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17812	17928	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6180	6296	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3391	3507	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6773	6889	
==>, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free s <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1699	1837	
==>{

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0 <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2028	2163	
==>{
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0 <==
16	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1641	1776	
==>{
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0 <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2028	2163	
==>{
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0 <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14016	14127	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14503	14614	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11288	11399	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11763	11874	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14016	14127	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14503	14614	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11288	11399	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11763	11874	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14016	14127	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14503	14614	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11288	11399	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11763	11874	
==>%params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1875	1979	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1761	1865	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9085	9189	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5086	5186	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4959	5059	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	773	873	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6623	6723	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5133	5233	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1090	1190	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	950	1050	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4386	4486	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5226	5326	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5209	5309	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	773	873	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5133	5233	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1090	1190	
==>OPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free software; you c <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39010	39107	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4864	4961	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Relation.pm	38625	38722	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1357	1454	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1276	1373	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2289	2386	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1803	1900	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1331	1428	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39010	39107	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4864	4961	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43174	43271	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1357	1454	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1276	1373	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2289	2386	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1803	1900	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1331	1428	
==>ion of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
16	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2844	3014	
==>rity
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_v <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7859	8003	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5418	5562	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7859	8003	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5418	5562	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7859	8003	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5418	5562	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1547	1691	
==>just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # l <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1171	1276	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $ <==
16	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1171	1276	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $ <==
16	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1171	1276	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $ <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3965	4061	
==>$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub <==
16	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3965	4061	
==>$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub <==
16	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3965	4061	
==>$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub <==
16	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11267	11361	
==>ass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
be <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11267	11361	
==>ass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
be <==
16	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11267	11361	
==>ass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
be <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3441	3549	
==>lass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3441	3549	
==>lass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3441	3549	
==>lass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15392	15495	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12648	12751	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15392	15495	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12648	12751	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15392	15495	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12648	12751	
==>params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13196	13295	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10480	10579	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13196	13295	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10480	10579	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13196	13295	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10480	10579	
==>params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{ <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12226	12395	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13735	13904	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20230	20399	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21325	21494	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26319	26488	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28058	28227	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29074	29243	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12505	12674	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14014	14183	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20509	20678	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21604	21773	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26598	26767	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28337	28506	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29353	29522	
==>,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
15	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	117	213	
==>od

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend:: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5162	5302	
==>= @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5162	5302	
==>= @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5162	5302	
==>= @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name = <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2316	2442	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2531	2657	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4643	4769	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4858	4984	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2316	2442	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2531	2657	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4643	4769	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4858	4984	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2316	2442	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2531	2657	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4643	4769	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4858	4984	
==>= @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name = <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2454	2550	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1723	1819	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2454	2550	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1609	1705	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/blib6/lib/CGI.pm	10646	10741	
==>am returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

= <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10646	10741	
==>am returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

= <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4940	5032	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	627	719	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1671	1763	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6477	6569	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1664	1756	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3532	3624	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5080	5172	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	627	719	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1664	1756	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:// <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5124	5299	
==>_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5124	5299	
==>_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5124	5299	
==>_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$nam <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2280	2439	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2495	2654	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4607	4766	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4822	4981	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2280	2439	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2495	2654	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4607	4766	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4822	4981	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2280	2439	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2495	2654	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4607	4766	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4822	4981	
==>_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$nam <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4854	4947	
==>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5104	5197	
==>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5838	5986	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6391	6539	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6966	7114	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7975	8123	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8517	8665	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9195	9343	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10244	10392	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6031	6179	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6584	6732	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7159	7307	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8168	8316	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8710	8858	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9388	9536	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10523	10671	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_te <==
15	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25150	25243	
==>t_modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)),
  E <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5639	5763	
==>hift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $len <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5639	5763	
==>hift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $len <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5639	5763	
==>hift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $len <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	6472	6589	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	7225	7342	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8089	8206	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8870	8987	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9949	10066	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10702	10819	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11566	11683	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12347	12464	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9041	9158	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9839	9956	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10748	10865	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11574	11691	
==>ding of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($ot <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1592	1710	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2173	2291	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3643	3761	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1592	1710	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2173	2291	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3643	3761	
==>port {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	919	1035	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1793	1909	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2968	3084	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5906	6022	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	919	1035	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1793	1909	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2968	3084	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5906	6022	
==>port {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
15	/Users/nnunley/pugs/src/perl6/Prelude.pm	12404	12520	
==>and($command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15740	15887	
==>ds::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15740	15887	
==>ds::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15740	15887	
==>ds::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20461	20604	
==>ds::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20461	20604	
==>ds::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20461	20604	
==>ds::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our ow <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12075	12202	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3697	3824	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12075	12202	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3697	3824	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12075	12202	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3697	3824	
==>$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6801	6926	
==>$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6801	6926	
==>$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$: <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6801	6926	
==>$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$: <==
15	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	430	532	
==>ange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL: <==
15	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	430	532	
==>ange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL: <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2467	2561	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1736	1830	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2467	2561	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1622	1716	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4953	5043	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	640	730	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1684	1774	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6490	6580	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1677	1767	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3545	3635	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5093	5183	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	640	730	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1677	1767	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.or <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2542	2634	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1811	1903	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2542	2634	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1697	1789	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5024	5112	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4897	4985	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	711	799	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1755	1843	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6561	6649	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1748	1836	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3616	3704	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5164	5252	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5147	5235	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	711	799	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1748	1836	
==>L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2195	2299	
==>1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	536	640	
==>1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	444	548	
==>1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4082	4185	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4086	4189	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	934	1037	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1778	1881	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	5001	5104	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	95	198	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1297	1400	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5182	5285	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8368	8471	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	922	1025	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4680	4783	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7819	7922	
==>1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
15	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3511	3608	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same <==
15	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3817	3914	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same <==
15	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25355	25452	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	793	890	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24119	24216	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1918	2015	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25355	25452	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	793	890	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24119	24216	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1918	2015	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same <==
15	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3511	3608	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same <==
15	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3817	3914	
==>d1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20262	20350	
==>{ p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl <==
15	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20262	20350	
==>{ p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl <==
15	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20262	20350	
==>{ p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14948	15086	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14948	15086	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14948	15086	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19647	19784	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19647	19784	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19647	19784	
==>y @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTR <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	35	142	
==>-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-c <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	35	142	
==>-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-c <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	35	142	
==>-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2716	2814	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5364	5462	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2716	2814	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5364	5462	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2716	2814	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5364	5462	
==>initializes the instance attribute container type, in
    # perl 6 this should be done automaticall <==
15	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1	101	
==>!/usr/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1151	1261	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1391	1501	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1659	1769	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2093	2203	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2449	2559	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1151	1261	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1391	1501	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1659	1769	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2093	2203	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2449	2559	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1151	1261	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1391	1501	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1659	1769	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2093	2203	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2449	2559	
==>stance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef' <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5280	5429	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6241	6390	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7456	7605	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12101	12250	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5280	5429	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6241	6390	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7456	7605	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12101	12250	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5280	5429	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6241	6390	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7456	7605	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12101	12250	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17243	17334	
==>x0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n( <==
15	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17243	17334	
==>x0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n( <==
15	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17243	17334	
==>x0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n( <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	6486	6600	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	7239	7353	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8103	8217	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8884	8998	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9963	10077	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10716	10830	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11580	11694	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12361	12475	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9055	9169	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9853	9967	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10762	10876	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11588	11702	
==>lation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2417	2519	
==>O - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and C <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2417	2519	
==>O - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and C <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2417	2519	
==>O - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and C <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5285	5433	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6246	6394	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7461	7609	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12106	12254	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5285	5433	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6246	6394	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7461	7609	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12106	12254	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5285	5433	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6246	6394	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7461	7609	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12106	12254	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
15	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12930	13054	
==>ub {
      utime undef, undef, $initrd_img;
      for(@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        c <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	716	821	
==>the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struct <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1200	1305	
==>the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struct <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2539	2629	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1808	1898	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2539	2629	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1694	1784	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5021	5107	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4894	4980	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	708	794	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1752	1838	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6558	6644	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1745	1831	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3613	3699	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5161	5247	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5144	5230	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	708	794	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1745	1831	
==>c: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 20 <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10866	11013	
==>\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $param <==
15	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10866	11013	
==>\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $param <==
15	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10866	11013	
==>\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $param <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5351	5487	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6312	6448	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12172	12308	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5351	5487	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6312	6448	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12172	12308	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5351	5487	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6312	6448	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12172	12308	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7527	7662	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7527	7662	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7527	7662	
==>e => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2534	2626	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1803	1895	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2534	2626	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1689	1781	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5016	5104	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4889	4977	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	703	791	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1747	1835	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6553	6641	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1740	1828	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3608	3696	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5156	5244	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5139	5227	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	703	791	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1740	1828	
==>s Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18991	19107	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20291	20407	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16229	16345	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17430	17546	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18991	19107	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20291	20407	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16229	16345	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17430	17546	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18991	19107	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20291	20407	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16229	16345	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17430	17546	
==>se calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way o <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4183	4287	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{} <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4183	4287	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{} <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4183	4287	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{} <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2494	2592	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1763	1861	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2494	2592	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1649	1747	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4980	5074	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	667	761	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1711	1805	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6517	6611	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1704	1798	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3572	3666	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5120	5214	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	667	761	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1704	1798	
==>>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html <==
15	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1481	1573	
==>lks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Exa <==
15	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1481	1573	
==>lks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Exa <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19003	19118	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20303	20418	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16241	16356	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17442	17557	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19003	19118	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20303	20418	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16241	16356	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17442	17557	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19003	19118	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20303	20418	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16241	16356	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17442	17557	
==>ext_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classe <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	29419	29515	
==>d into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's a <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33971	34067	
==>d into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's a <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33135	33231	
==>d into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's a <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5158	5295	
==>dx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fin <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5359	5490	
==>dx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fin <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5359	5490	
==>dx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fin <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18974	19099	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20274	20399	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16212	16337	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17413	17538	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18974	19099	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20274	20399	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16212	16337	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17413	17538	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18974	19099	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20274	20399	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16212	16337	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17413	17538	
==>e
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the sa <==
15	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5890	6043	
==>m the target so we don't get a silly
            ### deep dir structure
            my $target = $dir;
            $target =~ s/^$base//;

            unl <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5824	5972	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6377	6525	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6952	7100	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7961	8109	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8503	8651	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9181	9329	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10230	10378	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6017	6165	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6570	6718	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7145	7293	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8154	8302	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8696	8844	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9374	9522	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10509	10657	
==>Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    un <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1590	1708	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2171	2289	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3641	3759	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1590	1708	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2171	2289	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3641	3759	
==>export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	917	1033	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1791	1907	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2966	3082	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5904	6020	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	917	1033	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1791	1907	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2966	3082	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5904	6020	
==>export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
15	/Users/nnunley/pugs/util/run-smoke.pl	1614	1716	
==>NV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib bli <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2507	2606	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1776	1875	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2507	2606	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1662	1761	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4991	5086	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4864	4959	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	678	773	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1722	1817	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6528	6623	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1715	1810	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3583	3678	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5131	5226	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5114	5209	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	678	773	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1715	1810	
==>SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 CO <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32317	32438	
==>ure->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32972	33093	
==>ure->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10700	10820	
==>ure->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21037	21156	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22467	22586	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23083	23202	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26043	26162	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27525	27644	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28309	28428	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38673	38792	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39200	39319	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42256	42375	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42686	42805	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43961	44080	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50618	50737	
==>ure->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => ' <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	6489	6604	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	7242	7357	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8106	8221	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8887	9002	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9966	10081	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10719	10834	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11583	11698	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12364	12479	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9058	9173	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9856	9971	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10765	10880	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11591	11706	
==>ion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2941	3033	
==>ody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.I <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2941	3033	
==>ody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.I <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2941	3033	
==>ody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.I <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10074	10235	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7625	7786	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10074	10235	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7625	7786	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10074	10235	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7625	7786	
==>F);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cur <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10830	10974	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2495	2639	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4309	4453	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10830	10974	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2495	2639	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4309	4453	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10830	10974	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2495	2639	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4309	4453	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:c <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32306	32409	
==>hod::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32961	33064	
==>hod::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10689	10791	
==>hod::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21026	21127	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22456	22557	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23072	23173	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26032	26133	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27514	27615	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28298	28399	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38662	38763	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39189	39290	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42245	42346	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42675	42776	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43950	44051	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50607	50708	
==>hod::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')), <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1163	1268	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1403	1508	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1671	1776	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2105	2210	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2461	2566	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1163	1268	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1403	1508	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1671	1776	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2105	2210	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2461	2566	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1163	1268	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1403	1508	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1671	1776	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2105	2210	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2461	2566	
==>essed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")" <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5183	5311	
==>ned $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5183	5311	
==>ned $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5183	5311	
==>ned $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2335	2451	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2550	2666	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4662	4778	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4877	4993	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2335	2451	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2550	2666	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4662	4778	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4877	4993	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2335	2451	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2550	2666	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4662	4778	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4877	4993	
==>ned $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1496	1606	
==>planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: ", substr( $ <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1178	1267	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1173	1262	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6890	6979	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4242	4331	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9140	9229	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/Tree.pm	11730	11819	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	819	908	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1178	1267	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1173	1262	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6890	6979	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4242	4331	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9140	9229	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11730	11819	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	819	908	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Litt <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1071	1191	
==>e Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "E <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19014	19131	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20314	20431	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16252	16369	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17453	17570	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19014	19131	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20314	20431	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16252	16369	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17453	17570	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19014	19131	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20314	20431	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16252	16369	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17453	17570	
==>here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this sh <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1903	2018	
==>e Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "E <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2043	2158	
==>e Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "E <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	80	244	
==>] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            m <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	80	244	
==>] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            m <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12143	12298	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13652	13807	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20147	20302	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21242	21397	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26236	26391	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27975	28130	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12422	12577	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13931	14086	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20426	20581	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21521	21676	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26515	26670	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28254	28409	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       ) <==
15	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6325	6415	
==>,",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4 <==
15	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3079	3195	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11002	11118	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6204	6320	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3079	3195	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11002	11118	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6204	6320	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'MET <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1851	1951	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1737	1837	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5064	5158	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4937	5031	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	751	845	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6601	6695	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5204	5298	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5187	5281	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	751	845	
==>yn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pro <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21184	21429	
==>r = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @ <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21184	21429	
==>r = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @ <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21184	21429	
==>r = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14005	14118	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14492	14605	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11277	11390	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11752	11865	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14005	14118	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14492	14605	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11277	11390	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11752	11865	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14005	14118	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14492	14605	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11277	11390	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11752	11865	
==>f, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $met <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2470	2564	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1739	1833	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2470	2564	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1625	1719	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4956	5046	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	643	733	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1687	1777	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6493	6583	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1680	1770	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3548	3638	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5096	5186	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	643	733	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1680	1770	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/p <==
15	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13057	13145	
==>age
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Local <==
15	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13057	13145	
==>age
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Local <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2960	3085	
==>ined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method(' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2960	3085	
==>ined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method(' <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2960	3085	
==>ined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method(' <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	6469	6586	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	7222	7339	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8086	8203	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/blib6/lib/Relation.pm	8867	8984	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9946	10063	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10699	10816	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11563	11680	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12344	12461	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9038	9155	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9836	9953	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10745	10862	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11571	11688	
==>heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !( <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1161	1264	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1401	1504	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1669	1772	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2103	2206	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2459	2562	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1161	1264	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1401	1504	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1669	1772	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2103	2206	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2459	2562	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1161	1264	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1401	1504	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1669	1772	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2103	2206	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2459	2562	
==>blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11572	11688	
==>ll need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11572	11688	
==>ll need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11572	11688	
==>ll need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14061	14162	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14548	14649	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11333	11434	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11808	11909	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14061	14162	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14548	14649	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11333	11434	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11808	11909	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14061	14162	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14548	14649	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11333	11434	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11808	11909	
==>a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%param <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2519	2611	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1788	1880	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2519	2611	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1674	1766	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5001	5091	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4874	4964	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	688	778	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1732	1822	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6538	6628	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1725	1815	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3593	3683	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5141	5231	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5124	5214	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	688	778	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1725	1815	
==>The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIG <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1098	1219	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1338	1459	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2040	2161	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1098	1219	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1338	1459	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2040	2161	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1098	1219	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1338	1459	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2040	2161	
==>{ 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2397	2517	
==>{
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2397	2517	
==>{
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2397	2517	
==>{
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confes <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	737	831	
==>crement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ( <==
15	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	737	831	
==>crement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ( <==
15	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	737	831	
==>crement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ( <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7565	7687	
==>],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::t <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7565	7687	
==>],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::t <==
15	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7565	7687	
==>],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::t <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12075	12171	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12253	12349	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9630	9726	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9810	9906	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12075	12171	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12253	12349	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9630	9726	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9810	9906	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12075	12171	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12253	12349	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9630	9726	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9810	9906	
==>> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_ <==
15	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6975	7126	
==>.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end c <==
15	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6975	7126	
==>.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6536	6663	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9506	9633	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6536	6663	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9506	9633	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6536	6663	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9506	9633	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5949	6071	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8919	9041	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5949	6071	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8919	9041	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5949	6071	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8919	9041	
==>ODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6: <==
15	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4464	4554	
==>',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's simple too, <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13349	13485	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24308	24444	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24547	24683	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25571	25707	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25810	25946	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27106	27242	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13628	13764	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24587	24723	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24826	24962	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25850	25986	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26089	26225	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27385	27521	
==>ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16461	16556	
==>MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {. <==
15	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16461	16556	
==>MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {. <==
15	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16461	16556	
==>MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {. <==
15	/Users/nnunley/pugs/examples/golf/tsanta.pl	307	400	
==>first attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1186	1276	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1181	1271	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6898	6988	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4250	4340	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9148	9238	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/Tree.pm	11738	11828	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	827	917	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1186	1276	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1181	1271	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6898	6988	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4250	4340	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9148	9238	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11738	11828	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	827	917	
==>lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
15	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1506	1641	
==>.= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !de <==
15	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1506	1641	
==>.= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !de <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2448	2545	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1717	1814	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2448	2545	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1603	1700	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4934	5027	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	621	714	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1665	1758	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6471	6564	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1658	1751	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3526	3619	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5074	5167	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	621	714	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1658	1751	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<ht <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6538	6645	
==>> '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6538	6645	
==>> '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $o <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6538	6645	
==>> '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $o <==
15	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4869	4967	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1362	1460	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1281	1379	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2294	2392	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1808	1906	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1336	1434	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4869	4967	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1362	1460	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1281	1379	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2294	2392	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1808	1906	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1336	1434	
==>f Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10759	10913	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11809	11963	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8310	8464	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9362	9516	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10759	10913	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11809	11963	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8310	8464	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9362	9516	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10759	10913	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11809	11963	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8310	8464	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9362	9516	
==>(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_c <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6202	6322	
==>$pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6202	6322	
==>$pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
15	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6202	6322	
==>$pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18162	18303	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15400	15541	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18162	18303	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15400	15541	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18162	18303	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15400	15541	
==>e just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18737	18869	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15975	16107	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18737	18869	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15975	16107	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18737	18869	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15975	16107	
==>e 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{ <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3003	3106	
==>aModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|pr <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3003	3106	
==>aModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|pr <==
15	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3003	3106	
==>aModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|pr <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32309	32435	
==>::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32964	33090	
==>::signature->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10692	10817	
==>::signature->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21029	21153	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22459	22583	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23075	23199	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26035	26159	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27517	27641	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28301	28425	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38665	38789	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39192	39316	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42248	42372	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42678	42802	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43953	44077	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50610	50734	
==>::signature->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns = <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6852	6961	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9354	9463	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	95	204	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6852	6961	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9354	9463	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	95	204	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6852	6961	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9354	9463	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	95	204	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop() <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1401	1509	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1401	1509	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1401	1509	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop() <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1387	1494	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1387	1494	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop() <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1387	1494	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop() <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1139	1245	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1379	1485	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1647	1753	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2081	2187	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2437	2543	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1139	1245	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1379	1485	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1647	1753	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2081	2187	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2437	2543	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1139	1245	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1379	1485	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1647	1753	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2081	2187	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2437	2543	
==>(defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($ins <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2525	2622	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1794	1891	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2525	2622	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1680	1777	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5007	5100	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4880	4973	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	694	787	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1738	1831	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6544	6637	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1731	1824	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3599	3692	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5147	5240	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5130	5223	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	694	787	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1731	1824	
==>rl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyr <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	720	885	
==>ry->add_rule( 
            name => $name,
            assoc => 'left',
            precedence => 'equal',
            other => '+',
        );
    #~ }
    #~ use Dat <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2485	2579	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1754	1848	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2485	2579	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1640	1734	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23060	23153	
==>,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx] <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4971	5061	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	658	748	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1702	1792	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6508	6598	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1695	1785	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3563	3653	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5111	5201	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	658	748	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1695	1785	
==>l.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1127	1239	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1367	1479	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2069	2181	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2425	2537	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1127	1239	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1367	1479	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2069	2181	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2425	2537	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1127	1239	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1367	1479	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2069	2181	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2425	2537	
==>ft;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1323	1412	
==>Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_att <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1323	1412	
==>Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_att <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1323	1412	
==>Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_att <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13420	13573	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13420	13573	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13420	13573	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5662	5815	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4162	4315	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2305	2458	
==>ange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@res <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8619	8771	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11592	11744	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8619	8771	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11592	11744	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8619	8771	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11592	11744	
==>til we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loc <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	15	124	
==>Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $ <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	15	124	
==>Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $ <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	15	124	
==>Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $ <==
15	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28416	28514	
==>) to create the ending node for this object.
This is used by the walk() method.  Typically, a captu <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1157	1247	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1152	1242	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6869	6959	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4221	4311	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9119	9209	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/Tree.pm	11709	11799	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	798	888	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1157	1247	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1152	1242	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6869	6959	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4221	4311	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9119	9209	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11709	11799	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	798	888	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright ( <==
15	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1049	1181	
==>substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split( <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1049	1181	
==>substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split( <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1049	1181	
==>substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split( <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1110	1222	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1350	1462	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2052	2164	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2408	2520	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1110	1222	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1350	1462	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2052	2164	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2408	2520	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1110	1222	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1350	1462	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2052	2164	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2408	2520	
==>y $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess " <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1145	1252	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1385	1492	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1653	1760	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2087	2194	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2443	2550	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1145	1252	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1385	1492	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1653	1760	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2087	2194	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2443	2550	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1145	1252	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1385	1492	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1653	1760	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2087	2194	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2443	2550	
==>ed $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance | <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2956	3069	
==>can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* t <==
15	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2956	3069	
==>can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* t <==
15	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2956	3069	
==>can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* t <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1117	1229	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1357	1469	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2059	2171	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2415	2527	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1117	1229	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1357	1469	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2059	2171	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2415	2527	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1117	1229	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1357	1469	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2059	2171	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2415	2527	
==>ance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5165	5309	
==>_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5165	5309	
==>_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5165	5309	
==>_;
    #     (defined $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2319	2449	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2534	2664	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4646	4776	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4861	4991	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2319	2449	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2534	2664	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4646	4776	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4861	4991	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2319	2449	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2534	2664	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4646	4776	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
15	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4861	4991	
==>_;
        (defined $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14013	14125	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14500	14612	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11285	11397	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11760	11872	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14013	14125	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14500	14612	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11285	11397	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11760	11872	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14013	14125	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14500	14612	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11285	11397	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11760	11872	
==>l, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tab <==
14	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5128	5231	
==>an}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<ch <==
14	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5128	5231	
==>an}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<ch <==
14	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3563	3655	
==>good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=h <==
14	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3563	3655	
==>good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=h <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1148	1239	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1143	1234	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6860	6951	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4212	4303	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9110	9201	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11700	11791	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1148	1239	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1143	1234	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6860	6951	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4212	4303	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9110	9201	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11700	11791	
==>back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Cop <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1593	1711	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2174	2292	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3644	3762	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1593	1711	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2174	2292	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3644	3762	
==>ort {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	920	1036	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1794	1910	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2969	3085	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5907	6023	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	920	1036	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1794	1910	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2969	3085	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5907	6023	
==>ort {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5825	5975	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6378	6528	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6953	7103	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7962	8112	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8504	8654	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9182	9332	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10231	10381	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6018	6168	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6571	6721	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7146	7296	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8155	8305	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8697	8847	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9375	9525	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10510	10660	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshi <==
14	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	672	779	
==>s ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizatio <==
14	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	672	779	
==>s ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizatio <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12077	12172	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12255	12350	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9632	9727	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9812	9907	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12077	12172	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12255	12350	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9632	9727	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9812	9907	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12077	12172	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12255	12350	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9632	9727	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9812	9907	
==>::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_i <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10754	10908	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11804	11958	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8305	8459	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9357	9511	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10754	10908	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11804	11958	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8305	8459	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9357	9511	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10754	10908	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11804	11958	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8305	8459	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9357	9511	
==>rator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $curr <==
14	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19386	19472	
==>readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt> <==
14	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19386	19472	
==>readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt> <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1595	1722	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2176	2303	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3646	3773	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1595	1722	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2176	2303	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3646	3773	
==>t {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	922	1043	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1796	1917	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2971	3092	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	922	1043	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1796	1917	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2971	3092	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	99	204	
==>TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
ha <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	99	204	
==>TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
ha <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1578	1699	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2159	2280	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3629	3750	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1578	1699	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2159	2280	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3629	3750	
==>urns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	905	1024	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1779	1898	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2954	3073	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5892	6011	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	905	1024	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1779	1898	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2954	3073	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5892	6011	
==>urns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
14	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8824	8935	
==>y $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=head1 SYNOPSIS

	u <==
14	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10696	10799	
==>= "p6_meta('$kind')->new($code_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	my $k = lc <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5248	5390	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6209	6351	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7424	7566	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12069	12211	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5248	5390	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6209	6351	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7424	7566	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12069	12211	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5248	5390	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6209	6351	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7424	7566	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12069	12211	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ], <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18985	19079	
==>ause Locale::KeyedText is only meant to be used with user text that is
associated with hard-cod <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18985	19079	
==>ause Locale::KeyedText is only meant to be used with user text that is
associated with hard-cod <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19037	19152	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20337	20452	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16275	16390	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17476	17591	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19037	19152	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20337	20452	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16275	16390	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17476	17591	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19037	19152	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20337	20452	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16275	16390	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17476	17591	
==>problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fix <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1968	2067	
==>ms{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation o <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1968	2067	
==>ms{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation o <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1158	1248	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1153	1243	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6870	6960	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4222	4312	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9120	9210	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11710	11800	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	799	889	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1158	1248	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1153	1243	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6870	6960	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4222	4312	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9120	9210	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11710	11800	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	799	889	
==>d1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12200	12382	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13709	13891	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20204	20386	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21299	21481	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26293	26475	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28032	28214	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12479	12661	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13988	14170	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20483	20665	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21578	21760	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26572	26754	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28311	28493	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3681	3780	
==>'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flag <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3898	3997	
==>'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flag <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4052	4185	
==>}; 

                            
1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	437	544	
==>}    

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4994	5100	
==>}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4675	4779	
==>}



1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4078	4181	
==>}


1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2192	2295	
==>}

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	931	1033	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1775	1877	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	92	194	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1294	1396	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5179	5281	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8365	8467	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	919	1021	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7816	7918	
==>}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9997	10106	
==>ed ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9991	10100	
==>ed ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12063	12160	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12241	12338	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9618	9715	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9798	9895	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12063	12160	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12241	12338	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9618	9715	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9798	9895	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12063	12160	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12241	12338	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9618	9715	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9798	9895	
==>ispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	247	340	
==>se';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Com <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	247	340	
==>se';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Com <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6004	6090	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1200	1286	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6965	7051	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1405	1491	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6004	6090	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1200	1286	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6965	7051	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1405	1491	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7613	7699	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1841	1927	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9247	9333	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2059	2145	
==>chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinte <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1213	1312	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1208	1307	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6925	7024	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4277	4376	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9175	9274	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11765	11864	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	854	953	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1213	1312	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1208	1307	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6925	7024	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4277	4376	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9175	9274	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11765	11864	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	854	953	
==><gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
14	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11523	11624	
==>subs get called for regexp comp and exec.
  The hooks are not package-specific.

Design:

  The comp h <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2433	2533	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1702	1802	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2433	2533	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1588	1688	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4921	5015	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	608	702	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1652	1746	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6458	6552	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1645	1739	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3513	3607	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5061	5155	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	608	702	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1645	1739	
==>ad1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rule <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11621	11825	
==>'s',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11621	11825	
==>'s',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12187	12358	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13696	13867	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20191	20362	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21286	21457	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26280	26451	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28019	28190	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12466	12637	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13975	14146	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20470	20641	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21565	21736	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26559	26730	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28298	28469	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12601	12714	
==>PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist y <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12601	12714	
==>PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist y <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12082	12177	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12260	12355	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9637	9732	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9817	9912	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12082	12177	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12260	12355	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9637	9732	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9817	9912	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12082	12177	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12260	12355	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9637	9732	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9817	9912	
==>e_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterat <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1591	1709	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2172	2290	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3642	3760	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1591	1709	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2172	2290	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3642	3760	
==>xport {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	918	1034	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1792	1908	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2967	3083	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5905	6021	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	918	1034	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1792	1908	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2967	3083	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5905	6021	
==>xport {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12655	12755	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4155	4255	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1283	1383	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7464	7564	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12655	12755	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4155	4255	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1283	1383	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7464	7564	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12655	12755	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4155	4255	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1283	1383	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7464	7564	
==>ircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a <==
14	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	297	390	
==>lize_package("main",'package');
    Perl6::Run::OnPerl5::X1::Prelude::initialize();
#    END { <==
14	/Users/nnunley/pugs/src/perl6/Prelude.pm	9689	9774	
==>mon_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5836	5985	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6389	6538	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6964	7113	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7973	8122	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8515	8664	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9193	9342	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10242	10391	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6029	6178	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6582	6731	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7157	7306	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8166	8315	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8708	8857	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9386	9535	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10521	10670	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_t <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1201	1295	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1196	1290	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6913	7007	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4265	4359	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9163	9257	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11753	11847	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	842	936	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1201	1295	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1196	1290	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6913	7007	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4265	4359	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9163	9257	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11753	11847	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	842	936	
==>ractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Th <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	6466	6583	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	7219	7336	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	8083	8200	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	8864	8981	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9943	10060	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10696	10813	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11560	11677	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12341	12458	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9035	9152	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9833	9950	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10742	10859	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11568	11685	
==>he heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3640	3753	
==>};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $boo <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3833	3946	
==>};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $boo <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7257	7370	
==>($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7269	7382	
==>($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10875	10977	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11084	11186	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11580	11682	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11759	11861	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10875	10977	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11084	11186	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11580	11682	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11759	11861	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10875	10977	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11084	11186	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11580	11682	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11759	11861	
==>= @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::iden <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8990	9121	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14382	14513	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11963	12094	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19063	19194	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8990	9121	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14382	14513	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11963	12094	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19063	19194	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8990	9121	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14382	14513	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11963	12094	
==>ypes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod:: <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19063	19194	
==>spatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]-> <==
14	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6310	6407	
==>ibutes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want <==
14	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6310	6407	
==>ibutes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8384	8496	
==>leop::capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_g <==
14	/Users/nnunley/pugs/examples/hop6/Stream.pm	667	777	
==>($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 s <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14055	14157	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14542	14644	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11327	11429	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11802	11904	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14055	14157	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14542	14644	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11327	11429	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11802	11904	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14055	14157	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14542	14644	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11327	11429	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11802	11904	
==>ovide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\% <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12213	12394	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13722	13903	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20217	20398	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21312	21493	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26306	26487	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28045	28226	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12492	12673	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14001	14182	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20496	20677	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21591	21772	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26585	26766	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28324	28505	
==>)
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5797	5897	
==>t of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5797	5897	
==>t of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6526	6655	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9496	9625	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6526	6655	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9496	9625	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6526	6655	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9496	9625	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5939	6063	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8909	9033	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5939	6063	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8909	9033	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5939	6063	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8909	9033	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => <==
14	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2978	3084	
==>e_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $gh <==
14	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2978	3084	
==>e_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $gh <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5832	5982	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6385	6535	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6960	7110	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7969	8119	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8511	8661	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9189	9339	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10238	10388	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6025	6175	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6578	6728	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7153	7303	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8162	8312	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8704	8854	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9382	9532	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10517	10667	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rul <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21735	21873	
==>$match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22014	22152	
==>$match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5350	5486	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6311	6447	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12171	12307	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5350	5486	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6311	6447	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12171	12307	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5350	5486	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6311	6447	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12171	12307	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7526	7661	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7526	7661	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7526	7661	
==>ce => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxe <==
14	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12493	12607	
==>);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BA <==
14	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5968	6082	
==>);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BA <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13146	13250	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15342	15446	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10430	10534	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12598	12702	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13146	13250	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15342	15446	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10430	10534	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12598	12702	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13146	13250	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15342	15446	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10430	10534	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12598	12702	
==>params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for} <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10316	10469	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11364	11517	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7867	8020	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8917	9070	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10316	10469	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11364	11517	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7867	8020	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8917	9070	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10316	10469	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11364	11517	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7867	8020	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8917	9070	
==>);
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10627	10721	
==>ng on their types, that their attributes have reasonable values, and
that attributes or Nodes a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10627	10721	
==>ng on their types, that their attributes have reasonable values, and
that attributes or Nodes a <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15401	15506	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12657	12762	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15401	15506	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12657	12762	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15401	15506	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12657	12762	
==>for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13205	13306	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10489	10590	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13205	13306	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10489	10590	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13205	13306	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10489	10590	
==>for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'i <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17975	18069	
==>der should contain an Internet e-mail address for the human
user who controls the requesting us <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17975	18069	
==>der should contain an Internet e-mail address for the human
user who controls the requesting us <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10170	10301	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11219	11350	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7721	7852	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8772	8903	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10170	10301	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11219	11350	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7721	7852	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8772	8903	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10170	10301	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11219	11350	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7721	7852	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8772	8903	
==>the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1458	1554	
==>rt {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Ar <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1458	1554	
==>rt {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Ar <==
14	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	825	967	
==>)->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3043	3160	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10966	11083	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12230	12347	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6168	6285	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6797	6914	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3043	3160	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10966	11083	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12230	12347	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6168	6285	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6797	6914	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'L <==
14	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	199	296	
==>d Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath <==
14	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	199	296	
==>d Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	199	296	
==>d Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6180	6312	
==>atch:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag i <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6534	6661	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9504	9631	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6534	6661	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9504	9631	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6534	6661	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9504	9631	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5983	6107	
==>atch:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag i <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5947	6069	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8917	9039	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5947	6069	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8917	9039	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5947	6069	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8917	9039	
==>'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	9	262	
==>n/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = ( <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2834	3009	
==>$del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2834	3009	
==>$del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3998	4109	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	463	574	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	448	559	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1433	1544	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	949	1060	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	459	570	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3998	4109	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	463	574	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	448	559	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1433	1544	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	949	1060	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	459	570	
==>.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3405	3499	
==>iable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-cla <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3589	3683	
==>iable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-cla <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5269	5415	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6230	6376	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7445	7591	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12090	12236	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5269	5415	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6230	6376	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7445	7591	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12090	12236	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5269	5415	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6230	6376	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7445	7591	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12090	12236	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub { <==
14	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22286	22387	
==>rts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absol <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6870	6957	
==>'another_singleton_test_on_object' => sub { 
   '&Object::another_singleton_test_on_obje <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1583	1707	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2164	2288	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3634	3758	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1583	1707	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2164	2288	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3634	3758	
==>Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	910	1032	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1784	1906	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2959	3081	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5897	6019	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	910	1032	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1784	1906	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2959	3081	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5897	6019	
==>Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
14	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24752	24851	
==>rmit very fast decisions on suitable starting points
 * for a match, cutting down the work a lot.  R <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2465	2559	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1734	1828	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2465	2559	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1620	1714	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4951	5041	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	638	728	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1682	1772	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6488	6578	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1675	1765	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3543	3633	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5091	5181	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	638	728	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1675	1765	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl. <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10178	10309	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11227	11358	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7729	7860	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8780	8911	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10178	10309	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11227	11358	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7729	7860	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8780	8911	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10178	10309	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11227	11358	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7729	7860	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8780	8911	
==>ator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[ <==
14	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5264	5374	
==>e353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody join <==
14	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5264	5374	
==>e353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody join <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	248	370	
==>: "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}-> <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	248	370	
==>: "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}-> <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	248	370	
==>: "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}-> <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20556	20674	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17695	17813	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20556	20674	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17695	17813	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20556	20674	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17695	17813	
==>alue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5154	5260	
==>alue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5154	5260	
==>alue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5154	5260	
==>alue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($s <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16410	16507	
==>';

The value returned will be converted to lower case, and potential
parameters will be chopped o <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16410	16507	
==>';

The value returned will be converted to lower case, and potential
parameters will be chopped o <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7869	8067	
==>t, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_modu <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7869	8067	
==>t, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_modu <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10688	10791	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11738	11841	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8239	8342	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9291	9394	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10688	10791	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11738	11841	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8239	8342	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9291	9394	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10688	10791	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11738	11841	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8239	8342	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9291	9394	
==>{
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses}) <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1179	1274	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1174	1269	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6891	6986	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4243	4338	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9141	9236	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11731	11826	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	820	915	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1179	1274	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1174	1269	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6891	6986	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4243	4338	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9141	9236	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11731	11826	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	820	915	
==>tle, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
14	/Users/nnunley/pugs/util/addauthors.pl	1311	1425	
==>itters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub re <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2459	2554	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1728	1823	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2459	2554	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1614	1709	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4945	5036	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	632	723	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1676	1767	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6482	6573	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1669	1760	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3537	3628	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5085	5176	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	632	723	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1669	1760	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev. <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5829	5977	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6382	6530	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6957	7105	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7966	8114	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8508	8656	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9186	9334	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10235	10383	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6022	6170	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6575	6723	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7150	7298	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8159	8307	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8701	8849	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9379	9527	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10514	10662	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12422	12595	
==>.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $p <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12422	12595	
==>.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $p <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6017	6102	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1213	1298	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6978	7063	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1418	1503	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6017	6102	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1213	1298	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6978	7063	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1418	1503	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7626	7711	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1854	1939	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9260	9345	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2072	2157	
==>t>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15384	15493	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12640	12749	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15384	15493	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12640	12749	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15384	15493	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12640	12749	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13188	13293	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10472	10577	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13188	13293	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10472	10577	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13188	13293	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10472	10577	
==>. 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params- <==
14	/Users/nnunley/pugs/blib6/lib/Test.pm	11658	11748	
==>allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, <==
14	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11716	11806	
==>allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18961	19076	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20261	20376	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16199	16314	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17400	17515	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18961	19076	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20261	20376	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16199	16314	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17400	17515	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18961	19076	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20261	20376	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16199	16314	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17400	17515	
==>kage code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispa <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	26166	26259	
==>relational operator that returns a new Relation
which has a subset of the original's attribute <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30718	30811	
==>relational operator that returns a new Relation
which has a subset of the original's attribute <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10313	10465	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11361	11513	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7864	8016	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8914	9066	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10313	10465	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11361	11513	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7864	8016	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8914	9066	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10313	10465	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11361	11513	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7864	8016	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8914	9066	
==>->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted an <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5222	5331	
==>ns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $ <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5222	5331	
==>ns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $ <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5245	5387	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6206	6348	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7421	7563	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12066	12208	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5245	5387	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6206	6348	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7421	7563	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12066	12208	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5245	5387	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6206	6348	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7421	7563	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12066	12208	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' <==
14	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5624	5722	
==>nished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the AP <==
14	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5624	5722	
==>nished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the AP <==
14	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	841	1005	
==>s
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->attributes->members,
                             $class->a <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2453	2549	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1722	1818	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2453	2549	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1608	1704	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4939	5031	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	626	718	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1670	1762	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6476	6568	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1663	1755	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3531	3623	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5079	5171	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	626	718	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1663	1755	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
14	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	888	997	
==>meit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< <==
14	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	888	997	
==>meit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	20	116	
==>str(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	20	116	
==>str(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	20	116	
==>str(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24421	24515	
==>s from its member classes, usually invoking C<new()> on
the appropriate class name, and then in <==
14	/Users/nnunley/pugs/blib6/lib/Relation.pm	20463	20557	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22053	22147	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9326	9420	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24421	24515	
==>s from its member classes, usually invoking C<new()> on
the appropriate class name, and then in <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25015	25109	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23585	23679	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22053	22147	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9326	9420	
==>s from its member classes, usually invoking C<new()> on the
appropriate class name, and then in <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2286	2442	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11154	11310	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12113	12269	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13162	13318	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20117	20273	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21212	21368	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27276	27432	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2479	2635	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11433	11589	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12392	12548	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13441	13597	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20396	20552	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21491	21647	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27555	27711	
==>'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	913	1035	
==>= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	922	1044	
==>= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos <==
14	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2157	2309	
==>pen =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool:: <==
14	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2157	2309	
==>pen =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool:: <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5262	5405	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6223	6366	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7438	7581	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12083	12226	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5262	5405	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6223	6366	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7438	7581	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12083	12226	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5262	5405	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6223	6366	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7438	7581	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12083	12226	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTRO <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12057	12154	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12235	12332	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9612	9709	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9792	9889	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12057	12154	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12235	12332	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9612	9709	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9792	9889	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12057	12154	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12235	12332	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9612	9709	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9792	9889	
==>dant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF-> <==
14	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3995	4082	
==>er_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class <==
14	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3995	4082	
==>er_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	149	270	
==>ement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gra <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	149	270	
==>ement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gra <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13111	13231	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15307	15427	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10395	10515	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12563	12683	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13111	13231	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15307	15427	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10395	10515	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12563	12683	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13111	13231	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15307	15427	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10395	10515	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12563	12683	
==>hod(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not ex <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1	252	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is re <==
14	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	549	647	
==>ub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersecti <==
14	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	549	647	
==>ub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersecti <==
14	/Users/nnunley/pugs/blib6/lib/Set.pm	671	794	
==>.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.siz <==
14	/Users/nnunley/pugs/ext/Set/lib/Set.pm	671	794	
==>.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.siz <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15380	15490	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12636	12746	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15380	15490	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12636	12746	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15380	15490	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12636	12746	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13184	13290	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10468	10574	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13184	13290	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10468	10574	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13184	13290	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10468	10574	
==>e ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($para <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5842	5993	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6395	6546	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6970	7121	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7979	8130	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8521	8672	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9199	9350	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10248	10399	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6035	6186	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6588	6739	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7163	7314	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8172	8323	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8714	8865	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9392	9543	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10527	10678	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \& <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1187	1287	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1182	1282	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6899	6999	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4251	4351	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9149	9249	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11739	11839	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	828	928	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1187	1287	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1182	1282	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6899	6999	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4251	4351	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9149	9249	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11739	11839	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	828	928	
==>t>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5302	5455	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6263	6416	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7478	7631	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12123	12276	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5302	5455	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6263	6416	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7478	7631	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12123	12276	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5302	5455	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6263	6416	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7478	7631	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12123	12276	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
14	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2543	2637	
==>tdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed an <==
14	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2543	2637	
==>tdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed an <==
14	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37240	37371	
==>> sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a ha <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2486	2580	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1755	1849	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2486	2580	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1641	1735	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4972	5062	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	659	749	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1703	1793	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6509	6599	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1696	1786	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3564	3654	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5112	5202	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	659	749	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1696	1786	
==>.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/ <==
14	/Users/nnunley/pugs/blib6/lib/Test.pm	12101	12197	
==>tr :$depends) returns Bool`

This function currently on checks with ref() since we do not yet hav <==
14	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12159	12255	
==>tr :$depends) returns Bool`

This function currently on checks with ref() since we do not yet hav <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9982	10072	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11031	11121	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7533	7623	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8584	8674	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9982	10072	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11031	11121	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7533	7623	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8584	8674	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9982	10072	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11031	11121	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7533	7623	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8584	8674	
==>er' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SE <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13718	13845	
==>sa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Va <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13718	13845	
==>sa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Va <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13718	13845	
==>sa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Va <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23069	23168	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1642	1741	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19439	19538	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3933	4032	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1605	1704	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42771	42870	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23069	23168	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1642	1741	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19439	19538	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3933	4032	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1605	1704	
==>g.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It a <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18940	19053	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20240	20353	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16178	16291	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17379	17492	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18940	19053	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20240	20353	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16178	16291	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17379	17492	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18940	19053	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20240	20353	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16178	16291	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17379	17492	
==>o duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since <==
14	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2417	2512	
==>open () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { r <==
14	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2417	2512	
==>open () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { r <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5839	5988	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6392	6541	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6967	7116	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7976	8125	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8518	8667	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9196	9345	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10245	10394	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6032	6181	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6585	6734	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7160	7309	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8169	8318	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8711	8860	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9389	9538	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10524	10673	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_term <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12149	12320	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13658	13829	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20153	20324	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21248	21419	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26242	26413	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27981	28152	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12428	12599	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13937	14108	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20432	20603	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21527	21698	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26521	26692	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28260	28431	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6014	6139	
==>ar {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $cha <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6002	6127	
==>ar {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $cha <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23081	23178	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1654	1751	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19451	19548	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3945	4042	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1617	1714	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42783	42880	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23081	23178	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1654	1751	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19451	19548	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3945	4042	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1617	1714	
==>DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requir <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7569	7662	
==>atch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_f <==
14	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7569	7662	
==>atch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_f <==
14	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7569	7662	
==>atch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_f <==
14	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	4	255	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is reado <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6174	6272	
==>documents may not do as well. Error reporting is still pretty minimal and the 
parser is not very f <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6174	6272	
==>documents may not do as well. Error reporting is still pretty minimal and the 
parser is not very f <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1198	1290	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1193	1285	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6910	7002	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4262	4354	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9160	9252	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11750	11842	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	839	931	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1198	1290	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1193	1285	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6910	7002	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4262	4354	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9160	9252	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11750	11842	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	839	931	
==>nteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
14	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1399	1511	
==>$@;

  # reset things, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{ne <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5405	5513	
==>b Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{ <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5405	5513	
==>b Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{ <==
14	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5405	5513	
==>b Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{ <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	405	505	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	715	815	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1105	1205	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1093	1193	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1732	1832	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2167	2267	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2601	2701	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	405	505	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	715	815	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1105	1205	
==>my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Tex <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1154	1245	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1149	1240	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6866	6957	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4218	4309	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9116	9207	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11706	11797	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	795	886	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1154	1245	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1149	1240	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6866	6957	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4218	4309	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9116	9207	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11706	11797	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	795	886	
==>=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19057	19174	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20357	20474	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16295	16412	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17496	17613	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19057	19174	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20357	20474	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16295	16412	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17496	17613	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19057	19174	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20357	20474	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16295	16412	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17496	17613	
==>Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thoug <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3438	3530	
==>k('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(su <==
14	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3438	3530	
==>k('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(su <==
14	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5397	5533	
==>et.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cs <==
14	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5397	5533	
==>et.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cs <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10711	10818	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11761	11868	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8262	8369	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9314	9421	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10711	10818	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11761	11868	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8262	8369	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9314	9421	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10711	10818	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11761	11868	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8262	8369	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9314	9421	
==>ush @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13648	13806	
==>) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $ <==
14	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13648	13806	
==>) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $ <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10382	10524	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11430	11572	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7933	8075	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8983	9125	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10382	10524	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11430	11572	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7933	8075	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8983	9125	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10382	10524	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11430	11572	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7933	8075	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8983	9125	
==>f (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack .. <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5822	5971	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6375	6524	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6950	7099	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7959	8108	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8501	8650	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9179	9328	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10228	10377	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6015	6164	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6568	6717	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7143	7292	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8152	8301	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8694	8843	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9372	9521	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10507	10656	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    u <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12181	12352	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13690	13861	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20185	20356	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21280	21451	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26274	26445	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28013	28184	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12460	12631	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13969	14140	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20464	20635	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21559	21730	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26553	26724	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28292	28463	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
14	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7324	7449	
==>2),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "d <==
14	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7324	7449	
==>2),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "d <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19095	19213	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20395	20513	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16333	16451	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17534	17652	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19095	19213	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20395	20513	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16333	16451	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17534	17652	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19095	19213	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20395	20513	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16333	16451	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17534	17652	
==>he same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wr <==
14	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	0	115	
==>class Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail <==
14	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	0	115	
==>class Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1204	1305	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1199	1300	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6916	7017	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4268	4369	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9166	9267	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11756	11857	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	845	946	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1204	1305	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1199	1300	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6916	7017	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4268	4369	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9166	9267	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11756	11857	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	845	946	
==>tive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1573	1694	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2154	2275	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3624	3745	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1573	1694	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2154	2275	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3624	3745	
==>) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	900	1019	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1774	1893	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2949	3068	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5887	6006	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	900	1019	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1774	1893	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2949	3068	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5887	6006	
==>) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # tr <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19046	19164	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20346	20464	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16284	16402	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17485	17603	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19046	19164	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20346	20464	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16284	16402	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17485	17603	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19046	19164	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20346	20464	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16284	16402	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17485	17603	
==>ic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some p <==
14	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1909	2019	
==>s Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $. <==
14	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1909	2019	
==>s Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $. <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3821	3991	
==>sponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $ <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3821	3991	
==>sponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $ <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10146	10296	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11195	11345	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7697	7847	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8748	8898	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10146	10296	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11195	11345	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7697	7847	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8748	8898	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10146	10296	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11195	11345	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7697	7847	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8748	8898	
==>{
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_cl <==
14	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22005	22214	
==>ant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\. <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22284	22493	
==>ant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\. <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19017	19134	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20317	20434	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16255	16372	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17456	17573	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19017	19134	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20317	20434	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16255	16372	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17456	17573	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19017	19134	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20317	20434	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16255	16372	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17456	17573	
==>e can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shoul <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1161	1266	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1156	1261	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6873	6978	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4225	4330	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9123	9228	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/Tree.pm	11713	11818	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	802	907	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1161	1266	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1156	1261	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6873	6978	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4225	4330	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9123	9228	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11713	11818	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	802	907	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
14	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	491	649	
==>[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plai <==
14	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	491	649	
==>[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plai <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7098	7246	
==>aram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                retu <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7098	7246	
==>aram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                retu <==
14	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7098	7246	
==>aram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                retu <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1942	2070	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1054	1182	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1621	1749	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1942	2070	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1054	1182	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1621	1749	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1942	2070	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1054	1182	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1621	1749	
==>ould accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it w <==
14	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1607	1724	
==>y',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported <==
14	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1607	1724	
==>y',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	590	685	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	845	940	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1100	1195	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1355	1450	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1611	1706	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1867	1962	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2122	2217	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2377	2472	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2632	2727	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2887	2982	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3142	3237	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
14	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3397	3492	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[ <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	6462	6572	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	7215	7325	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	8079	8189	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	8860	8970	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9939	10049	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10692	10802	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11556	11666	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12337	12447	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9031	9141	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9829	9939	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10738	10848	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11564	11674	
==>e "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation." <==
13	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2956	3049	
==>ad1 DESCRIPTION

This file bridges between perl and Blondie, by providing implementations of
s <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1342	1477	
==>return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $cod <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1353	1488	
==>return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $cod <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	692	817	
==>**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_li <==
13	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	692	817	
==>**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_li <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17602	17723	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8183	8304	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14822	14943	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17602	17723	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8183	8304	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14822	14943	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17602	17723	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8183	8304	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14822	14943	
==>&& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # c <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10717	10824	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11767	11874	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8268	8375	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9320	9427	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10717	10824	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11767	11874	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8268	8375	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9320	9427	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10717	10824	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11767	11874	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8268	8375	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9320	9427	
==>tack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $curr <==
13	/Users/nnunley/pugs/misc/Blondie/milner.pl	24885	24975	
==>ew,
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->ne <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12193	12364	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13702	13873	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20197	20368	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21292	21463	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26286	26457	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28025	28196	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12472	12643	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13981	14152	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20476	20647	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21571	21742	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26565	26736	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28304	28475	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
13	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2743	2840	
==>lf->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile( <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19021	19148	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20321	20448	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16259	16386	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17460	17587	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19021	19148	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20321	20448	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16259	16386	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17460	17587	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19021	19148	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20321	20448	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16259	16386	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17460	17587	
==>n be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be <==
13	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	456	565	
==>ub fmap {
		my $self = shift;
		die "annotations are not fmappable, flatten first";
	}

	sub values {
		my $se <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3109	3239	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6102	6232	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3382	3505	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9800	9923	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3382	3505	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9800	9923	
==>plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus <==
13	/Users/nnunley/pugs/blib6/lib/Set.pm	7884	7990	
==>s($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar t <==
13	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7014	7120	
==>s($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar t <==
13	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7884	7990	
==>s($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar t <==
13	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7014	7120	
==>s($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar t <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2033	2135	
==>uldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js( <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2033	2135	
==>uldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js( <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2033	2135	
==>uldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js( <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6522	6649	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9492	9619	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6522	6649	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9492	9619	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6522	6649	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9492	9619	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $met <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5935	6057	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8905	9027	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5935	6057	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8905	9027	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5935	6057	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8905	9027	
==>$method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $met <==
13	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2776	2889	
==>$ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret <==
13	/Users/nnunley/pugs/util/p5_to_p6.pl	4456	4583	
==>0);


    foreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r

    package MY::Class;  -->  class MY::Clas <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15402	15507	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12658	12763	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15402	15507	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12658	12763	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15402	15507	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12658	12763	
==>or} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13206	13307	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10490	10591	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13206	13307	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10490	10591	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13206	13307	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10490	10591	
==>or} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'in <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13329	13483	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24288	24442	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24527	24681	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25551	25705	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25790	25944	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27086	27240	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13608	13762	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24567	24721	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24806	24960	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25830	25984	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26069	26223	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27365	27519	
==>)
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captur <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23033	23132	
==>rds {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParameterList>? <')'. <'{'> <Fun <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12651	12751	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4151	4251	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1279	1379	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7460	7560	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12651	12751	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4151	4251	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1279	1379	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7460	7560	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12651	12751	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4151	4251	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1279	1379	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7460	7560	
==>ostcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amai <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30791	30884	
==>) of Code $attrs!) returns Relation::Example>

This method is a generic relational operator th <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5434	5547	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3554	3667	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5434	5547	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3554	3667	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5434	5547	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3554	3667	
==>efined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($s <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12776	12886	
==>ub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here, <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12776	12886	
==>ub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here, <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12776	12886	
==>ub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here, <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26727	26831	
==>tomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtom <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	420	522	
==>Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------- <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	420	522	
==>Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------- <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	420	522	
==>Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------- <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5374	5533	
==>ell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5374	5533	
==>ell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5374	5533	
==>ell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) <==
13	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2422	2519	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2439	2536	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3493	3590	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1877	1974	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2309	2406	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2422	2519	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2439	2536	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3493	3590	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1877	1974	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2309	2406	
==>d1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sam <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18917	19043	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20217	20343	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16155	16281	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17356	17482	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18917	19043	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20217	20343	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16155	16281	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17356	17482	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18917	19043	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20217	20343	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16155	16281	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17356	17482	
==>X -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problem <==
13	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8159	8275	
==>nd:
    mpos = pos
    .return (mob)
.end


.sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10745	10898	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11795	11948	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8296	8449	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9348	9501	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10745	10898	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11795	11948	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8296	8449	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9348	9501	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10745	10898	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11795	11948	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8296	8449	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9348	9501	
==>tcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                re <==
13	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8334	8432	
==>sif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2460	2558	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1729	1827	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2460	2558	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1615	1713	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4946	5040	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	633	727	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1677	1771	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6483	6577	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1670	1764	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3538	3632	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5086	5180	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	633	727	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1670	1764	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13135	13241	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15331	15437	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10419	10525	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12587	12693	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13135	13241	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15331	15437	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10419	10525	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12587	12693	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13135	13241	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15331	15437	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10419	10525	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12587	12693	
==>y ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $para <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21939	22032	
==>se of class() is deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresente <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5973	6099	
==>Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => Pugs::Compiler::Regex->compile( q!
                ### f <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13998	14105	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14485	14592	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11270	11377	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11745	11852	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13998	14105	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14485	14592	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11270	11377	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11745	11852	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13998	14105	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14485	14592	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11270	11377	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11745	11852	
==>y ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2180	2291	
==>ed(" . $params->length->to_native . ")";      
    # loop through the param keys
    for my $i (0 .. $params->el <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9998	10103	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11047	11152	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7549	7654	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8600	8705	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9998	10103	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11047	11152	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7549	7654	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8600	8705	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9998	10103	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11047	11152	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7549	7654	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8600	8705	
==>ivate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        T <==
13	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1515	1626	
==>dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o->{'nprec'} <=> $o1->{'nprec'} <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12657	12757	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4157	4257	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1285	1385	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7466	7566	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12657	12757	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4157	4257	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1285	1385	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7466	7566	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12657	12757	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4157	4257	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1285	1385	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7466	7566	
==>cumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3 <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3029	3146	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10952	11069	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12216	12333	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6154	6271	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6783	6900	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15639	15756	
==>b _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shif <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3029	3146	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10952	11069	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12216	12333	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6154	6271	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6783	6900	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_di <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15639	15756	
==>b _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shif <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15639	15756	
==>b _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shif <==
13	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	991	1092	
==>om < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to continue the previous ma <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2468	2563	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1737	1832	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2468	2563	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1623	1718	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4954	5045	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	641	732	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1685	1776	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6491	6582	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1678	1769	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3546	3637	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5094	5185	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	641	732	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1678	1769	
==>erl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7996	8133	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5555	5692	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7996	8133	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5555	5692	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7996	8133	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5555	5692	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1684	1821	
==>ead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incons <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6358	6468	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9328	9438	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6358	6468	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9328	9438	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6358	6468	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9328	9438	
==>method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Cl <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10771	10953	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11821	12003	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8322	8504	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9374	9556	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10771	10953	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11821	12003	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8322	8504	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9374	9556	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10771	10953	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11821	12003	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8322	8504	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9374	9556	
==>class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return u <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	160	264	
==>t;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base ' <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5353	5490	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6314	6451	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12174	12311	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5353	5490	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6314	6451	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12174	12311	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5353	5490	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6314	6451	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12174	12311	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7529	7665	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7529	7665	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7529	7665	
==>=> {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' = <==
13	/Users/nnunley/pugs/util/PugsConfig.pm	1164	1292	
==>llman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privli <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7784	7917	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5343	5476	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7784	7917	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5343	5476	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7784	7917	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5343	5476	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1472	1605	
==>ere is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && las <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2933	3032	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10856	10955	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6058	6157	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2933	3032	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10856	10955	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6058	6157	
==>=> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_wi <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	284	455	
==>air' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ } <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19072	19190	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20372	20490	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16310	16428	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17511	17629	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19072	19190	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20372	20490	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16310	16428	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17511	17629	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19072	19190	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20372	20490	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16310	16428	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17511	17629	
==>dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11848	11983	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3359	3494	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11848	11983	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3359	3494	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11848	11983	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3359	3494	
==>var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8287	8416	
==>var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8287	8416	
==>var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8287	8416	
==>var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24797	24919	
==>e 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$' <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	344	452	
==>kenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	344	452	
==>kenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	344	452	
==>kenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{t <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5257	5403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6218	6364	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7433	7579	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12078	12224	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5257	5403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6218	6364	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7433	7579	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12078	12224	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5257	5403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6218	6364	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7433	7579	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12078	12224	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DEST <==
13	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5456	5569	
==>ype($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift;
		my $expecte <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18160	18296	
==>} || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$clas <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10892	10986	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11101	11195	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11597	11691	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11776	11870	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10892	10986	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11101	11195	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11597	11691	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11776	11870	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10892	10986	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11101	11195	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11597	11691	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11776	11870	
==>$key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $ke <==
13	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9249	9446	
==>st would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if d <==
13	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9249	9446	
==>st would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if d <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	501	627	
==>| -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => { <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	501	627	
==>| -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => { <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8438	8550	
==>> 1;
        return $S->force_object(anyof_char => chr(oct $o), "\\0[$o]");
      }

      return $S->object(exac <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	782	884	
==>al HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven' <==
13	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	782	884	
==>al HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven' <==
13	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3040	3136	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6054	6150	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8122	8218	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3040	3136	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6054	6150	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8122	8218	
==>ll returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitp <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1543	1671	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3106	3234	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1543	1671	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3106	3234	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1543	1671	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3106	3234	
==>::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate <==
13	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1333	1452	
==>0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0| <==
13	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3629	3748	
==>0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0| <==
13	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1333	1452	
==>0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0| <==
13	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3629	3748	
==>0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0| <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	28875	28969	
==>hod supports having the new attributes having the same names as old
attributes that become wrap <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33427	33521	
==>hod supports having the new attributes having the same names as old
attributes that become wrap <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32564	32658	
==>hod supports having the new attributes having the same names as old
attributes that become wrap <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12206	12388	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13715	13897	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20210	20392	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21305	21487	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26299	26481	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28038	28220	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12485	12667	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13994	14176	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20489	20671	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21584	21766	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26578	26760	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28317	28499	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
13	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7807	7907	
==>exp,xend-exp)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprint <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5890	6013	
==>im { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?) <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5890	6013	
==>im { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?) <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5890	6013	
==>im { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?) <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6440	6558	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9410	9528	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6440	6558	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9410	9528	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6440	6558	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9410	9528	
==>d) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5153	5258	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2695	2800	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3476	3581	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23535	23627	
==>ir own objects, for efficiency, and they can optionally extend the
Relation library's interfa <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9658	9831	
==>union;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Relation::Example {

    die " <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10686	10790	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11736	11840	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8237	8341	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9289	9393	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10686	10790	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11736	11840	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8237	8341	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9289	9393	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10686	10790	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11736	11840	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8237	8341	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9289	9393	
==>e {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses} <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	482	587	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	467	572	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1452	1557	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	968	1073	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	478	583	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	482	587	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	467	572	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1452	1557	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	968	1073	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	478	583	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta:: <==
13	/Users/nnunley/pugs/util/drift.pl	878	982	
==>rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit unless @program;

# Rea <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8192	8282	
==>::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2017	2107	
==>::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9195	9382	
==>ods'))
                  ->fetch($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method remove_method (opaque $self: symbol $l <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5298	5438	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6259	6399	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7474	7614	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12119	12259	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5298	5438	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6259	6399	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7474	7614	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12119	12259	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5298	5438	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6259	6399	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7474	7614	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12119	12259	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => { <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43233	43441	
==>bol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'method' <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12078	12173	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12256	12351	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9633	9728	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9813	9908	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12078	12173	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12256	12351	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9633	9728	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9813	9908	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12078	12173	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12256	12351	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9633	9728	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9813	9908	
==>:make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_it <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17566	17677	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4501	4612	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8147	8258	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14786	14897	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17566	17677	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4501	4612	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8147	8258	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14786	14897	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17566	17677	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4501	4612	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8147	8258	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14786	14897	
==>, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ") <==
13	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	313	414	
==>g_traverse = 0;

# tokenizer

sub tokenize ( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\= <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15377	15487	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12633	12743	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15377	15487	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12633	12743	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15377	15487	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12633	12743	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	835	942	
==>ix:<" . $opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{name} . ' ' <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13181	13287	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10465	10571	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13181	13287	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10465	10571	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13181	13287	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10465	10571	
==>ance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($p <==
13	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	416	512	
==>loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_Inter <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15345	15460	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12601	12716	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15345	15460	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12601	12716	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15345	15460	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12601	12716	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $ <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13149	13260	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10433	10544	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13149	13260	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10433	10544	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13149	13260	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10433	10544	
==>ams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $ <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27095	27193	
==>t be further changed;
this class defaults it to False.

=back

This is the main Relation::Example c <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23083	23180	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1656	1753	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19453	19550	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3947	4044	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1619	1716	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42785	42882	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23083	23180	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1656	1753	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19453	19550	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3947	4044	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1619	1716	
==>PENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23197	23292	
==>ot.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23197	23292	
==>ot.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	351	454	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	576	679	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	351	454	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	576	679	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	351	454	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	576	679	
==>_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5705	5800	
==>JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber( <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6635	6725	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2930	3020	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6635	6725	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2930	3020	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6635	6725	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2930	3020	
==>_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(func <==
13	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	766	890	
==>n/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $Perl6::R <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12071	12168	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12249	12346	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9626	9723	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9806	9903	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12071	12168	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12249	12346	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9626	9723	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9806	9903	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12071	12168	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12249	12346	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9626	9723	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9806	9903	
==>r' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatch <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11100	11253	
==>n " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items = <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11100	11253	
==>n " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items = <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11100	11253	
==>n " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9370	9501	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12343	12474	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9370	9501	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12343	12474	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9370	9501	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12343	12474	
==>);        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submetho <==
13	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7172	7278	
==>es
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($ <==
13	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7172	7278	
==>es
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($ <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15329	15426	
==>systems.

If the program or any of its components are intended for widespread use
then it needs to <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15329	15426	
==>systems.

If the program or any of its components are intended for widespread use
then it needs to <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23534	23637	
==>ourceElements>
}
rule SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElemen <==
13	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2442	2539	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2459	2556	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3513	3610	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1897	1994	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2329	2426	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2442	2539	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2459	2556	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3513	3610	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1897	1994	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2329	2426	
==>rary is free software . You can redistribute it and/or modify
it under the same terms as perl itse <==
13	/Users/nnunley/pugs/blib6/lib/Date.pm	4331	4424	
==>oday')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Dat <==
13	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4331	4424	
==>oday')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Dat <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2449	2547	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1718	1816	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2449	2547	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1604	1702	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4935	5029	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	622	716	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1666	1760	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6472	6566	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1659	1753	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3527	3621	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5075	5169	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	622	716	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1659	1753	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10175	10306	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11224	11355	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7726	7857	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8777	8908	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10175	10306	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11224	11355	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7726	7857	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8777	8908	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10175	10306	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11224	11355	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7726	7857	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8777	8908	
==>terator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $sta <==
13	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6205	6300	
==>:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8 <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18085	18193	
==>ift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbox <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18085	18193	
==>ift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbox <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18085	18193	
==>ift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbox <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23203	23289	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1776	1862	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19573	19659	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4067	4153	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1739	1825	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23203	23289	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1776	1862	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19573	19659	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4067	4153	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1739	1825	
==>that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error message <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11091	11225	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8644	8778	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11091	11225	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8644	8778	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11091	11225	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8644	8778	
==>_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the ite <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7534	7649	
==>t call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7534	7649	
==>t call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7534	7649	
==>t call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	897	1006	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1290	1399	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	897	1006	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1290	1399	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1588	1710	
==>ber'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder->FETCH('::T <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3998	4103	
==>a incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional <==
13	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3998	4103	
==>a incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional <==
13	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4588	4693	
==>a incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1852	1952	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1738	1838	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5065	5159	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4938	5032	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	752	846	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6602	6696	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5205	5299	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5188	5282	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	752	846	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
13	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3575	3702	
==>me more robust
    local $CWD = $builddir;
    
    ### XXX invoke build code here

    ### build an archive file
    my $archiv <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14044	14148	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14531	14635	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11316	11420	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11791	11895	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14044	14148	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14531	14635	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11316	11420	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11791	11895	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14044	14148	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14531	14635	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11316	11420	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11791	11895	
==>You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2934	3048	
==>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x20 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2471	2578	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1740	1847	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2471	2578	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1626	1733	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4957	5060	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	644	747	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1688	1791	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6494	6597	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1681	1784	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3549	3652	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5097	5200	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	644	747	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1681	1784	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
13	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10055	10169	
==>substr target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr tar <==
13	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	129	232	
==>'0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, and download it i <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12074	12170	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12252	12348	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9629	9725	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9809	9905	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12074	12170	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12252	12348	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9629	9725	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9809	9905	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12074	12170	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12252	12348	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9629	9725	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9809	9905	
==>=> ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6501	6618	
==>paque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    : <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6501	6618	
==>paque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    : <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6501	6618	
==>paque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    : <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22122	22217	
==>te class name, and then invoking methods on those objects.  All of
their attributes are private, <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9395	9490	
==>te class name, and then invoking methods on those objects.  All of
their attributes are private, <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22122	22217	
==>te class name, and then invoking methods on those objects.  All of
their attributes are private, <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9395	9490	
==>te class name, and then invoking methods on those objects.  All of
their attributes are private, <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24490	24584	
==>te class name, and then invoking methods on those objects.
All of their attributes are private, <==
13	/Users/nnunley/pugs/blib6/lib/Set.pm	7573	7667	
==>returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $me <==
13	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6703	6797	
==>returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $me <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24490	24584	
==>te class name, and then invoking methods on those objects.
All of their attributes are private, <==
13	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7573	7667	
==>returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $me <==
13	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6703	6797	
==>returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $me <==
13	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1291	1436	
==>,
        config          => { allow => ISA_JIB_CONFIG },
        package         => { allow => $Package_re, no_override => 1 },
    };

    ### a <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3515	3612	
==>ICENSE

This program is free software; you can redistribute it and/or modify
it under the same ter <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3821	3918	
==>ICENSE

This program is free software; you can redistribute it and/or modify
it under the same ter <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25359	25456	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	797	894	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24123	24220	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1922	2019	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25359	25456	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	797	894	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24123	24220	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1922	2019	
==>ICENSE

This program is free software; you can redistribute it and/or modify it under
the same ter <==
13	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3515	3612	
==>ICENSE

This program is free software; you can redistribute it and/or modify
it under the same ter <==
13	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3821	3918	
==>ICENSE

This program is free software; you can redistribute it and/or modify
it under the same ter <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5264	5408	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6225	6369	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7440	7584	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12085	12229	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5264	5408	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6225	6369	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7440	7584	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12085	12229	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5264	5408	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6225	6369	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7440	7584	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12085	12229	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY = <==
13	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21862	21961	
==>er(class_pos(ascii)     ,C) :- !,    isAscii(C).
class_member(class_neg(ascii)     ,C) :- !, \+(isAs <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10747	10900	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11797	11950	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8298	8451	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9350	9503	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10747	10900	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11797	11950	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8298	8451	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9350	9503	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10747	10900	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11797	11950	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8298	8451	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9350	9503	
==>her_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retu <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16192	16295	
==>'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpression>
    | < <==
13	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	873	984	
==>))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
13	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	873	984	
==>))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10749	10902	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11799	11952	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8300	8453	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9352	9505	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10749	10902	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11799	11952	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8300	8453	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9352	9505	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10749	10902	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11799	11952	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8300	8453	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9352	9505	
==>r_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return <==
13	/Users/nnunley/pugs/misc/IDE-support/server.pl	117	209	
==>t-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11175	11310	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8728	8863	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11175	11310	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8728	8863	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11175	11310	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8728	8863	
==>alar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7789	7923	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5348	5482	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7789	7923	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5348	5482	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7789	7923	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5348	5482	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1477	1611	
==>s no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if e <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11287	11434	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8840	8987	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11287	11434	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8840	8987	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11287	11434	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8840	8987	
==>nt value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (no <==
13	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	575	696	
==>my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path <==
13	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	610	731	
==>my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	575	696	
==>my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path <==
13	/Users/nnunley/pugs/util/build_pugs.pl	9792	9913	
==>my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path <==
13	/Users/nnunley/pugs/util/src_to_blib.pl	1048	1169	
==>my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path <==
13	/Users/nnunley/pugs/blib6/lib/CGI.pm	9932	10025	
==>MS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {loa <==
13	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9932	10025	
==>MS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {loa <==
13	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10834	10948	
==>om the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

C <==
13	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10834	10948	
==>om the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

C <==
13	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	598	697	
==>de generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec fo <==
13	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	598	697	
==>de generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec fo <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24752	24849	
==>hrow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	20791	20888	
==>hrow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22366	22463	
==>hrow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9652	9749	
==>hrow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24752	24849	
==>hrow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25343	25440	
==>hrow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23931	24028	
==>hrow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22366	22463	
==>hrow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9652	9749	
==>hrow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19075	19204	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20375	20504	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16313	16442	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17514	17643	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19075	19204	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20375	20504	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16313	16442	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17514	17643	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19075	19204	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20375	20504	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16313	16442	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17514	17643	
==>patch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # ac <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28559	28653	
==>ther assertion's ender is a C<tail> node, and a
character class's ender is an C<anyof_close> no <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14762	14892	
==>n "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14756	14886	
==>n "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are h <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23095	23195	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1668	1768	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19465	19565	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3959	4059	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1631	1731	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42797	42897	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23095	23195	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1668	1768	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19465	19565	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3959	4059	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1631	1731	
==>This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 c <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3212	3344	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6205	6335	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8059	8184	
==>arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elem <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8059	8184	
==>arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elem <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8059	8184	
==>arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elem <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3479	3603	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9897	10021	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3479	3603	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9897	10021	
==>(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizatio <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22516	22612	
==>to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a f <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21370	21466	
==>to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a f <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22516	22612	
==>to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a f <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21370	21466	
==>to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a f <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8208	8323	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5767	5882	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8208	8323	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5767	5882	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8208	8323	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5767	5882	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1896	2011	
==>loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@no <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4277	4387	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7213	7323	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4277	4387	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7213	7323	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4277	4387	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7213	7323	
==>This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS a <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6010	6119	
==>(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct. <==
13	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6010	6119	
==>(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct. <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22243	22351	
==>return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handle <==
13	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18664	18772	
==>return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handle <==
13	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24761	24859	
==>xception; most often this is due to invalid input.  If an invoked routine
simply returns, you can a <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	20800	20898	
==>xception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can a <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22375	22473	
==>xception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can a <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9661	9759	
==>xception; most often this is due to invalid input.  If an invoked routine
simply returns, you can a <==
13	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24761	24859	
==>xception; most often this is due to invalid input.  If an invoked routine
simply returns, you can a <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25352	25450	
==>xception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can a <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23940	24038	
==>xception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can a <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22375	22473	
==>xception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can a <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9661	9759	
==>xception; most often this is due to invalid input.  If an invoked routine
simply returns, you can a <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5208	5361	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8178	8331	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5208	5361	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8178	8331	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5208	5361	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8178	8331	
==>@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8957	9073	
==>e }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6 <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8957	9073	
==>e }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6 <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8957	9073	
==>e }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6 <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23117	23213	
==>blech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel n <==
13	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21926	22022	
==>blech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel n <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23117	23213	
==>blech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel n <==
13	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21926	22022	
==>blech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel n <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7703	7843	
==>$type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $a <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7703	7843	
==>$type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $a <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7703	7843	
==>$type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $a <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8149	8279	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5708	5838	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8149	8279	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5708	5838	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8149	8279	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5708	5838	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1837	1967	
==>y" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it match <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4830	4927	
==>he original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4830	4927	
==>he original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4830	4927	
==>he original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9187	9315	
==>d >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9187	9315	
==>d >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9187	9315	
==>d >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12077	12204	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3699	3826	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12077	12204	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3699	3826	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12077	12204	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3699	3826	
==>cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:ce <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6803	6928	
==>cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6803	6928	
==>cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:ce <==
13	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6803	6928	
==>cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:ce <==
13	/Users/nnunley/pugs/misc/S29_round.pl	1715	1827	
==>und .5 to the nearest even number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($ <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2466	2560	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1735	1829	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2466	2560	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1621	1715	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4952	5042	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	639	729	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1683	1773	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6489	6579	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1676	1766	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3544	3634	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5092	5182	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	639	729	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1676	1766	
==>>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.o <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2434	2544	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1703	1813	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2434	2544	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1589	1699	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4922	5026	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	609	713	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1653	1757	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6459	6563	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1646	1750	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3514	3618	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5062	5166	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	609	713	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1646	1750	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<h <==
13	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	204	328	
==>use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Pa <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1122	1233	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1362	1473	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2064	2175	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2420	2531	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1122	1233	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1362	1473	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2064	2175	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2420	2531	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1122	1233	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1362	1473	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2064	2175	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2420	2531	
==>= shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instanc <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	6477	6593	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	7230	7346	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	8094	8210	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	8875	8991	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9954	10070	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10707	10823	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11571	11687	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12352	12468	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9046	9162	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9844	9960	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10753	10869	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11579	11695	
==>of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other! <==
13	/Users/nnunley/pugs/inc/Test/Harness.pm	1616	1712	
==>odules.

Test::Harness runs tests and expects output from the test in a
certain format.  That for <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16153	16279	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20870	20996	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16153	16279	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20870	20996	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16153	16279	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20870	20996	
==>$registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_m <==
13	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7049	7171	
==>_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_co <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2190	2311	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11058	11179	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12017	12138	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2383	2504	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11337	11458	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12296	12417	
==>( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10337	10494	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11385	11542	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7888	8045	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8938	9095	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10337	10494	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11385	11542	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7888	8045	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8938	9095	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10337	10494	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11385	11542	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7888	8045	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8938	9095	
==>if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # n <==
13	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4607	4734	
==>f @a == 0;
    return $a[0]->emit if @a == 1;
    my @fs = map { $_->emit } @a;
    my $code1 = ""; my $code2 = "";
    my $code <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2487	2586	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1756	1855	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2487	2586	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1642	1741	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4973	5068	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	660	755	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1704	1799	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6510	6605	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1697	1792	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3565	3660	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5113	5208	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	660	755	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1697	1792	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12171	12331	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13680	13840	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20175	20335	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21270	21430	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26264	26424	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28003	28163	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12450	12610	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13959	14119	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20454	20614	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21549	21709	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26543	26703	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28282	28442	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3515	3639	
==>ide the closure
    $/()  
        just the capture - what's returned in { return ... }
    $/0
        the first submatch
Al <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4326	4428	
==>ltered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_co <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4326	4428	
==>ltered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_co <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4326	4428	
==>ltered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_co <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	28	120	
==>xternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedT <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19052	19170	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20352	20470	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16290	16408	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17491	17609	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19052	19170	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20352	20470	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16290	16408	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17491	17609	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19052	19170	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20352	20470	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16290	16408	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17491	17609	
==>ce ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point t <==
13	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18829	18929	
==>onNoIn :words {  # see 11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideExpression> <Assign <==
13	/Users/nnunley/pugs/misc/S29_round.pl	3832	4079	
==>);
                }
                $rand_up = 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7622	7760	
==>t;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $deb <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11963	12101	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2423	2556	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9195	9328	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7365	7498	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2423	2556	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9195	9328	
==>t;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $deb <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4822	4930	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7471	7579	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5037	5142	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11486	11591	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5037	5142	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11486	11591	
==>substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $matc <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6852	6974	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9822	9944	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6852	6974	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9822	9944	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6852	6974	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9822	9944	
==>::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5891	6005	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8861	8975	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5891	6005	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8861	8975	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5891	6005	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8861	8975	
==>::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
13	/Users/nnunley/pugs/util/package-osx.pl	2618	2717	
==>al/usr/bin/p6doc /usr/local/bin/p6doc
        /usr/local/usr/bin/pugs /usr/local/bin/pugs
        /u <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18935	19049	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20235	20349	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16173	16287	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17374	17488	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18935	19049	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20235	20349	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16173	16287	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17374	17488	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18935	19049	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20235	20349	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16173	16287	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17374	17488	
==>eed to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic s <==
13	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	57	158	
==>so it returns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# star <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8937	9096	
==>ss exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH' <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5297	5456	
==>ss exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH' <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6146	6305	
==>ss exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH' <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	39	136	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	25	122	
==>use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exp <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1682	1804	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2718	2837	
==>to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native c <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14829	14948	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19528	19647	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2718	2837	
==>to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native c <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2718	2837	
==>to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native c <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14829	14948	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19528	19647	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1110	1229	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1315	1434	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1376	1495	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14829	14948	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19528	19647	
==>UTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my <==
13	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2430	2528	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2447	2545	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3501	3599	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1885	1983	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2317	2415	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2430	2528	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2447	2545	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3501	3599	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1885	1983	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2317	2415	
==>SE

This library is free software . You can redistribute it and/or modify
it under the same terms a <==
13	/Users/nnunley/pugs/blib6/lib/Relation.pm	30557	30651	
==>e read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C< <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35108	35202	
==>e read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C< <==
13	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34290	34384	
==>e read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C< <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2455	2553	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1724	1822	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2455	2553	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1610	1708	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4941	5035	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	628	722	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1672	1766	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6478	6572	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1665	1759	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3533	3627	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5081	5175	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	628	722	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1665	1759	
==>s Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9648	9787	
==>rn ::Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reas <==
13	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	230	363	
==>rn ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reas <==
13	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	230	363	
==>rn ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reas <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1896	2008	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3459	3571	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1896	2008	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3459	3571	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1896	2008	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3459	3571	
==>ors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKM <==
13	/Users/nnunley/pugs/blib6/lib/Span.pm	4181	4284	
==>elf: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Obj <==
13	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4181	4284	
==>elf: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Obj <==
13	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	418	520	
==>elf: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Obj <==
13	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	418	520	
==>elf: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Obj <==
13	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2068	2179	
==>\@grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::s <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14059	14161	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14546	14648	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11331	11433	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11806	11908	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14059	14161	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14546	14648	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11331	11433	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11806	11908	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14059	14161	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14546	14648	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11331	11433	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11806	11908	
==>e a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%para <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2430	2531	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1699	1800	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2430	2531	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1585	1686	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4918	5013	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	605	700	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1649	1744	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6455	6550	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1642	1737	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3510	3605	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5058	5153	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	605	700	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1642	1737	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 Ru <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9602	9712	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12575	12685	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9602	9712	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12575	12685	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9602	9712	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12575	12685	
==>thod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curren <==
13	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	291	395	
==>r proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Cont <==
13	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	291	395	
==>r proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Cont <==
13	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	291	395	
==>r proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Cont <==
13	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1047	1144	
==>) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expe <==
13	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1047	1144	
==>) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expe <==
13	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	969	1065	
==>) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expe <==
13	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	969	1065	
==>) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12546	12684	
==>h ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2916	3048	
==>h ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2916	3048	
==>h ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11547	11677	
==>h ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11988	12117	
==>h ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1987	2111	
==>h ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1987	2111	
==>h ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2396	2519	
==>h ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2396	2519	
==>h ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::T <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	35279	35374	
==>C<join> except that this method will fail if any of its source Relations
have attributes in comm <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39829	39924	
==>C<join> except that this method will fail if any of its source Relations
have attributes in comm <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39389	39484	
==>C<join> except that this method will fail if any of its source Relations
have attributes in comm <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1124	1237	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1364	1477	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2066	2179	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2422	2535	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1124	1237	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1364	1477	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2066	2179	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2422	2535	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1124	1237	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1364	1477	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2066	2179	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2422	2535	
==>shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19023	19151	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20323	20451	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16261	16389	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17462	17590	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19023	19151	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20323	20451	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16261	16389	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17462	17590	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19023	19151	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20323	20451	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16261	16389	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17462	17590	
==>be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12083	12180	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12261	12358	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9638	9735	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9818	9915	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12083	12180	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12261	12358	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9638	9735	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9818	9915	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12083	12180	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12261	12358	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9638	9735	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9818	9915	
==>_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12179	12306	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3801	3928	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12179	12306	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3801	3928	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12179	12306	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3801	3928	
==>untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6904	7029	
==>untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6904	7029	
==>untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6904	7029	
==>untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5939	6037	
==>eclaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decla <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5939	6037	
==>eclaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decla <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5939	6037	
==>eclaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decla <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11644	11772	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3156	3284	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11644	11772	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3156	3284	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11644	11772	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3156	3284	
==>);
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8093	8214	
==>);

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8093	8214	
==>);

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8093	8214	
==>);

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18966	19075	
==>atchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18966	19075	
==>atchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18966	19075	
==>atchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10755	10912	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11805	11962	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8306	8463	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9358	9515	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10755	10912	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11805	11962	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8306	8463	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9358	9515	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10755	10912	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11805	11962	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8306	8463	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9358	9515	
==>ator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_ <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6478	6599	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7231	7352	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8095	8216	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8876	8997	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9955	10076	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10708	10829	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11572	11693	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12353	12474	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9047	9168	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9845	9966	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10754	10875	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11580	11701	
==>f the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!headin <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6005	6101	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1201	1297	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6966	7062	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1406	1502	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6005	6101	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1201	1297	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6966	7062	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1406	1502	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7614	7710	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1842	1938	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9248	9344	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2060	2156	
==>hromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.com <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13763	13957	
==>->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reques <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13763	13957	
==>->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reques <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13763	13957	
==>->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reques <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20567	20685	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17706	17824	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20567	20685	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17706	17824	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20567	20685	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17706	17824	
==>ODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5165	5271	
==>ODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5165	5271	
==>ODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5165	5271	
==>ODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:n <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1933	2049	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1045	1161	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1612	1728	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1933	2049	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1045	1161	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1612	1728	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1933	2049	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1045	1161	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1612	1728	
==>method should accept
        # params which are not included in the 
        # attributes. It will do nothing with th <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1307	1398	
==>j ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1307	1398	
==>j ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1307	1398	
==>j ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12552	12688	
==>elf: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2922	3052	
==>elf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2922	3052	
==>elf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11553	11681	
==>elf: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11994	12121	
==>elf: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1993	2115	
==>elf: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1993	2115	
==>elf: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2402	2523	
==>elf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2402	2523	
==>elf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test: <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7388	7475	
==>{
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_met <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7388	7475	
==>{
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_met <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7388	7475	
==>{
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_met <==
12	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3576	3706	
==>d_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $ <==
12	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3576	3706	
==>d_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12233	12361	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3855	3983	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12233	12361	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3855	3983	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12233	12361	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3855	3983	
==>tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      s <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6957	7083	
==>tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6957	7083	
==>tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     s <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6957	7083	
==>tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     s <==
12	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1515	1633	
==>KeyExtractor | Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) re <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10176	10308	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11225	11357	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7727	7859	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8778	8910	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10176	10308	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11225	11357	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7727	7859	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8778	8910	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10176	10308	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11225	11357	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7727	7859	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8778	8910	
==>erator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	279	388	
==>from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	279	388	
==>from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	279	388	
==>from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4161	4262	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2436	2537	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7875	7976	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4161	4262	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2436	2537	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7875	7976	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4161	4262	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2436	2537	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7875	7976	
==>hod('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_nam <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14014	14126	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14501	14613	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11286	11398	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11761	11873	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14014	14126	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14501	14613	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11286	11398	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11761	11873	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14014	14126	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14501	14613	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11286	11398	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11761	11873	
==>, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_tabl <==
12	/Users/nnunley/pugs/inc/Test/Harness.pm	10591	10782	
==>ped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print("        $ <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	409	545	
==>ntent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently', <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	409	545	
==>ntent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently', <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1840	1935	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1726	1821	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5053	5144	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4926	5017	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	740	831	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6590	6681	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5193	5284	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5176	5267	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	740	831	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21973	22103	
==>ach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21973	22103	
==>ach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21973	22103	
==>ach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12068	12196	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3690	3818	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12068	12196	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3690	3818	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12068	12196	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3690	3818	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6794	6920	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6794	6920	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6794	6920	
==>b { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5265	5413	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6226	6374	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7441	7589	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12086	12234	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5265	5413	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6226	6374	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7441	7589	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12086	12234	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5265	5413	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6226	6374	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7441	7589	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12086	12234	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11576	11732	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3088	3244	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11576	11732	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3088	3244	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11576	11732	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3088	3244	
==>.STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(! <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8033	8176	
==>.STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8033	8176	
==>.STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(! <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8033	8176	
==>.STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(! <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	38892	38989	
==>is file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43706	43803	
==>is file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relat <==
12	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	798	894	
==>pile;
	my $p5 = p6_wrap_code_with_package($cc->as_p5,'main');
	if($verbose) {
	    print $cc->as_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12205	12325	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3827	3947	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12205	12325	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3827	3947	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12205	12325	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3827	3947	
==>ll')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6929	7048	
==>ll')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6929	7048	
==>ll')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6929	7048	
==>ll')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTO <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12923	13029	
==>s $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12923	13029	
==>s $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12923	13029	
==>s $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18942	19074	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20242	20374	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16180	16312	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17381	17513	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18942	19074	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20242	20374	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16180	16312	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17381	17513	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18942	19074	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20242	20374	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16180	16312	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17381	17513	
==>duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dis <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10338	10523	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11386	11571	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7889	8074	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8939	9124	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10338	10523	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11386	11571	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7889	8074	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8939	9124	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10338	10523	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11386	11571	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7889	8074	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8939	9124	
==>f current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack . <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13338	13484	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24297	24443	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24536	24682	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25560	25706	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25799	25945	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27095	27241	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13617	13763	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24576	24722	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24815	24961	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25839	25985	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26078	26224	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27374	27520	
==>,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15391	15494	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12647	12750	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15391	15494	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12647	12750	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15391	15494	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12647	12750	
==>$params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13195	13294	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10479	10578	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13195	13294	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10479	10578	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13195	13294	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10479	10578	
==>$params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12262	12398	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3884	4020	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12262	12398	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3884	4020	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12262	12398	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3884	4020	
==>)->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3100	3208	
==>espace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS:: <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3100	3208	
==>espace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS:: <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3100	3208	
==>espace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS:: <==
12	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1122	1217	
==>th this library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for deta <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8752	8844	
==>};
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varsc <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2577	2669	
==>};
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varsc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6523	6652	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9493	9622	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6523	6652	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9493	9622	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6523	6652	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9493	9622	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5936	6060	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8906	9030	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5936	6060	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8906	9030	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5936	6060	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8906	9030	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17424	17515	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22132	22223	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2672	2763	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	2015	2106	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17424	17515	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22132	22223	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2672	2763	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	2015	2106	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17424	17515	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22132	22223	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2672	2763	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	2015	2106	
==>s

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	165	332	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	970	1137	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3219	3386	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4025	4192	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	290	457	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1966	2133	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	165	332	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	970	1137	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3219	3386	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4025	4192	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	290	457	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1966	2133	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1843	1938	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1729	1824	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5056	5147	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4929	5020	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	743	834	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6593	6684	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5196	5287	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5179	5270	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	743	834	
==>design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12623	12709	
==>s::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(functi <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12623	12709	
==>s::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(functi <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12623	12709	
==>s::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(functi <==
12	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1149	1242	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1144	1237	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6861	6954	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4213	4306	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9111	9204	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/lib/Tree.pm	11701	11794	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1149	1242	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1144	1237	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6861	6954	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4213	4306	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9111	9204	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11701	11794	
==>ack

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1990	2119	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1102	1231	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1669	1798	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1990	2119	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1102	1231	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1669	1798	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1990	2119	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1102	1231	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1669	1798	
==>ded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/su <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6053	6152	
==>e
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the str <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6053	6152	
==>e
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the str <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6053	6152	
==>e
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the str <==
12	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7121	7463	
==>rtistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        = <==
12	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7178	7520	
==>rtistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1373	1471	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1292	1390	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2305	2403	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1819	1917	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1347	1445	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1373	1471	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1292	1390	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2305	2403	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1819	1917	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1347	1445	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12652	12754	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4152	4254	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1280	1382	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7461	7563	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12652	12754	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4152	4254	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1280	1382	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7461	7563	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12652	12754	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4152	4254	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1280	1382	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7461	7563	
==>stcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12144	12266	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3766	3888	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12144	12266	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3766	3888	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12144	12266	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3766	3888	
==>'$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6869	6989	
==>'$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6869	6989	
==>'$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6869	6989	
==>'$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{t <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9561	9652	
==>) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9561	9652	
==>) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9561	9652	
==>) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15393	15505	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12649	12761	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15393	15505	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12649	12761	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15393	15505	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12649	12761	
==>arams->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13197	13305	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10481	10589	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13197	13305	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10481	10589	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13197	13305	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10481	10589	
==>arams->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq ' <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4478	4572	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	971	1065	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	890	984	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1903	1997	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1417	1511	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	945	1039	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4478	4572	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	971	1065	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	890	984	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1903	1997	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1417	1511	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	945	1039	
==>.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12144	12319	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13653	13828	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20148	20323	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21243	21418	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26237	26412	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27976	28151	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12423	12598	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13932	14107	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20427	20602	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21522	21697	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26516	26691	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28255	28430	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12073	12200	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3695	3822	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12073	12200	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3695	3822	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12073	12200	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3695	3822	
==>('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _(' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6799	6924	
==>('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6799	6924	
==>('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _(' <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6799	6924	
==>('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _(' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2205	2307	
==>RCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2205	2307	
==>RCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2205	2307	
==>RCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19369	19478	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4849	4958	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16601	16710	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19369	19478	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4849	4958	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16601	16710	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19369	19478	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4849	4958	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16601	16710	
==>label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	964	1060	
==>es through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	964	1060	
==>es through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	964	1060	
==>es through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$:: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4710	4843	
==>_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = sh <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4710	4843	
==>_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = sh <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4710	4843	
==>_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = sh <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19311	19411	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4791	4891	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19311	19411	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4791	4891	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19311	19411	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4791	4891	
==>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4460	4554	
==>ually creates and returns a new Test::Builder instance.  It
takes the same optional named argum <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4460	4554	
==>ually creates and returns a new Test::Builder instance.  It
takes the same optional named argum <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5984	6078	
==>ually creates and returns a new Test::Builder instance.  It
takes the same optional named argum <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12130	12277	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3641	3788	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12130	12277	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3641	3788	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12130	12277	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3641	3788	
==>ar i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  } <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	229	343	
==>dent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	229	343	
==>dent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	229	343	
==>dent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->( <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	395	505	
==>gth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.ch <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	395	505	
==>gth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.ch <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	395	505	
==>gth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.ch <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1929	2045	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1041	1157	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1608	1724	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1929	2045	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1041	1157	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1608	1724	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1929	2045	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1041	1157	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1608	1724	
==>ILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wit <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12426	12531	
==>", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shift <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12426	12531	
==>", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shift <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12426	12531	
==>", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shift <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4273	4415	
==>?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4273	4415	
==>?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4273	4415	
==>?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1923	2039	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1035	1151	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1602	1718	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1923	2039	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1035	1151	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1602	1718	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1923	2039	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1035	1151	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1602	1718	
==>ult BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothi <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3026	3143	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10949	11066	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12213	12330	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6151	6268	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6780	6897	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3026	3143	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10949	11066	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12213	12330	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6151	6268	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6780	6897	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF! <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	23387	23482	
==>he near
future where "Relation" is a Role rather than a Class, and some
implementations are immu <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27939	28034	
==>he near
future where "Relation" is a Role rather than a Class, and some
implementations are immu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15546	15662	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12802	12918	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15546	15662	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12802	12918	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15546	15662	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12802	12918	
==>tance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attrib <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38772	38881	
==>my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list obj <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38772	38881	
==>my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list obj <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38772	38881	
==>my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list obj <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18424	18520	
==>>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$x <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18424	18520	
==>>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$x <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18424	18520	
==>>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$x <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10750	10907	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11800	11957	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8301	8458	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9353	9510	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10750	10907	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11800	11957	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8301	8458	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9353	9510	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10750	10907	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11800	11957	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8301	8458	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9353	9510	
==>_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6577	6668	
==>n "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6577	6668	
==>n "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6577	6668	
==>n "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6857	6945	
==>---------------------------------------------------
## BOOTSTRAPPING ROLES
## ----------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6880	6968	
==>----------------------------
## BOOTSTRAPPING ROLES
## ---------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6903	6991	
==>-----
## BOOTSTRAPPING ROLES
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6857	6945	
==>---------------------------------------------------
## BOOTSTRAPPING ROLES
## ----------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6880	6968	
==>----------------------------
## BOOTSTRAPPING ROLES
## ---------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6903	6991	
==>-----
## BOOTSTRAPPING ROLES
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6857	6945	
==>---------------------------------------------------
## BOOTSTRAPPING ROLES
## ----------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6880	6968	
==>----------------------------
## BOOTSTRAPPING ROLES
## ---------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6903	6991	
==>-----
## BOOTSTRAPPING ROLES
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11622	11755	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3134	3267	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11622	11755	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3134	3267	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11622	11755	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3134	3267	
==>this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8075	8199	
==>this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8075	8199	
==>this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8075	8199	
==>this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1133	1246	
==>classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1133	1246	
==>classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1133	1246	
==>classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5260	5404	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6221	6365	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7436	7580	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12081	12225	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5260	5404	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6221	6365	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7436	7580	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12081	12225	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5260	5404	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6221	6365	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7436	7580	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12081	12225	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTR <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3696	3805	
==>use then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $ba <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3696	3805	
==>use then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $ba <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3696	3805	
==>use then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $ba <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	9800	9897	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	10781	10878	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	12252	12349	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13277	13374	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14258	14355	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15729	15826	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12549	12646	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13557	13654	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15082	15179	
==>cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11899	12029	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3410	3540	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11899	12029	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3410	3540	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11899	12029	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3410	3540	
==>.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_ar <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8336	8460	
==>.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8336	8460	
==>.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_ar <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8336	8460	
==>.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_ar <==
12	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14673	14773	
==>>awarn($rx->RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self->{data} = $tree->[-1] <==
12	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1566	1663	
==>ers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of S <==
12	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1566	1663	
==>ers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of S <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4556	4668	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7492	7604	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4556	4668	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7492	7604	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4556	4668	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7492	7604	
==>->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($ass <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	6910	7010	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6040	6140	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2694	2794	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2694	2794	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6910	7010	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6040	6140	
==>{
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.in <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13105	13230	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15301	15426	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10389	10514	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12557	12682	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13105	13230	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15301	15426	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10389	10514	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12557	12682	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13105	13230	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15301	15426	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10389	10514	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12557	12682	
==>te_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14006	14124	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14493	14611	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11278	11396	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11753	11871	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14006	14124	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14493	14611	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11278	11396	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11753	11871	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14006	14124	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14493	14611	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11278	11396	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11753	11871	
==>, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_ta <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10144	10295	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11193	11344	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7695	7846	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8746	8897	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10144	10295	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11193	11344	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7695	7846	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8746	8897	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10144	10295	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11193	11344	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7695	7846	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8746	8897	
==>) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_c <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1594	1721	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2175	2302	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3645	3772	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1594	1721	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2175	2302	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3645	3772	
==>rt {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    m <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	921	1042	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1795	1916	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2970	3091	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	921	1042	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1795	1916	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2970	3091	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    m <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10712	10823	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11762	11873	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8263	8374	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9315	9426	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10712	10823	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11762	11873	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8263	8374	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9315	9426	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10712	10823	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11762	11873	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8263	8374	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9315	9426	
==>sh @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $cur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1112	1228	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1352	1468	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2054	2170	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2410	2526	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1112	1228	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1352	1468	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2054	2170	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2410	2526	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1112	1228	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1352	1468	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2054	2170	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2410	2526	
==>$instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13084	13220	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15280	15416	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10368	10504	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12536	12672	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13084	13220	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15280	15416	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10368	10504	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12536	12672	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13084	13220	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15280	15416	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10368	10504	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12536	12672	
==>able' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5286	5436	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6247	6397	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7462	7612	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12107	12257	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5286	5436	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6247	6397	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7462	7612	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12107	12257	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5286	5436	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6247	6397	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7462	7612	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12107	12257	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12053	12153	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12231	12331	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9608	9708	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9788	9888	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12053	12153	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12231	12331	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9608	9708	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9788	9888	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12053	12153	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12231	12331	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9608	9708	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9788	9888	
==>scendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF- <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13350	13487	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24309	24446	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24548	24685	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25572	25709	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25811	25948	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27107	27244	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13629	13766	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24588	24725	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24827	24964	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25851	25988	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26090	26227	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27386	27523	
==>uleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( ' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10760	10951	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11810	12001	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8311	8502	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9363	9554	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10760	10951	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11810	12001	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8311	8502	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9363	9554	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10760	10951	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11810	12001	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8311	8502	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9363	9554	
==>@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6537	6664	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9507	9634	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6537	6664	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9507	9634	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6537	6664	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9507	9634	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5950	6072	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8920	9042	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5950	6072	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8920	9042	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5950	6072	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8920	9042	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6:: <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	10992	11125	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	12463	12596	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14469	14602	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15940	16073	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13777	13910	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15302	15435	
==>> $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sourc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4453	4560	
==>?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - ch <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4453	4560	
==>?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - ch <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4453	4560	
==>?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - ch <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1278	1370	
==>ame posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1278	1370	
==>ame posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1278	1370	
==>ame posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19004	19130	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20304	20430	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16242	16368	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17443	17569	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19004	19130	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20304	20430	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16242	16368	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17443	17569	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19004	19130	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20304	20430	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16242	16368	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17443	17569	
==>xt_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this s <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12656	12756	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4156	4256	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1284	1384	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7465	7565	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12656	12756	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4156	4256	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1284	1384	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7465	7565	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12656	12756	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4156	4256	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1284	1384	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7465	7565	
==>rcumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14017	14147	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14504	14634	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11289	11419	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11764	11894	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14017	14147	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14504	14634	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11289	11419	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11764	11894	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14017	14147	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14504	14634	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11289	11419	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11764	11894	
==>params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5516	5633	
==>tern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(o <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5516	5633	
==>tern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(o <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5516	5633	
==>tern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(o <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25094	25190	
==>pure and deterministic,
such that all of its class and object methods will each return the same
r <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	22331	22427	
==>pure and deterministic, such that all of its class
and object methods will each return the same r <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11225	11321	
==>pure and deterministic,
such that all of its class and object methods will each return the same
r <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14498	14594	
==>pure and deterministic, such that all of its class and
object methods will each return the same r <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25094	25190	
==>pure and deterministic,
such that all of its class and object methods will each return the same
r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26883	26979	
==>pure and deterministic, such that all of its class
and object methods will each return the same r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25606	25702	
==>pure and deterministic, such that all of its class
and object methods will each return the same r <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11225	11321	
==>pure and deterministic,
such that all of its class and object methods will each return the same
r <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14498	14594	
==>pure and deterministic, such that all of its class and
object methods will each return the same r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6416	6520	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9386	9490	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6416	6520	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9386	9490	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6416	6520	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9386	9490	
==>method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12454	12555	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10005	10106	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12454	12555	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10005	10106	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12454	12555	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10005	10106	
==>= @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_inst <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19362	19471	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4842	4951	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16594	16703	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19362	19471	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4842	4951	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16594	16703	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19362	19471	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4842	4951	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16594	16703	
==>self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1316	1418	
==>and {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1316	1418	
==>and {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1316	1418	
==>and {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7462	7562	
==>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7462	7562	
==>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7462	7562	
==>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24403	24495	
==>by creating objects from its member classes, usually invoking C<new()> on
the appropriate cla <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	20445	20537	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22035	22127	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9308	9400	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24403	24495	
==>by creating objects from its member classes, usually invoking C<new()> on
the appropriate cla <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24997	25089	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23567	23659	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22035	22127	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9308	9400	
==>by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cla <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6453	6570	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7206	7323	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8070	8187	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8851	8968	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9930	10047	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10683	10800	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11547	11664	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12328	12445	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9022	9139	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9820	9937	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10729	10846	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11555	11672	
==>{

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8688	8818	
==>rule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14413	14543	
==>rule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8688	8818	
==>rule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14407	14537	
==>rule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8428	8557	
==>rule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13939	14068	
==>rule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8428	8557	
==>rule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13933	14062	
==>rule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not impleme <==
12	/Users/nnunley/pugs/blib6/lib/Span.pm	8149	8254	
==>py) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_pa <==
12	/Users/nnunley/pugs/blib6/lib/Span.pm	8541	8646	
==>py) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_pa <==
12	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8149	8254	
==>py) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_pa <==
12	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8541	8646	
==>py) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_pa <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13137	13249	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15333	15445	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10421	10533	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12589	12701	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13137	13249	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15333	15445	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10421	10533	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12589	12701	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13137	13249	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15333	15445	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10421	10533	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12589	12701	
==>($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12067	12236	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12839	13008	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12067	12236	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12839	13008	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12067	12236	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12839	13008	
==>ity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11371	11491	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2883	3003	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11371	11491	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2883	3003	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11371	11491	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2883	3003	
==>Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FE <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	352	463	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	577	688	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	352	463	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	577	688	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	352	463	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	577	688	
==>exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6636	6734	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2931	3029	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6636	6734	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2931	3029	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6636	6734	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2931	3029	
==>exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15511	15632	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12767	12888	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15511	15632	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12767	12888	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15511	15632	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12767	12888	
==>nce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13853	13969	
==>j_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13853	13969	
==>j_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13853	13969	
==>j_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5721	5816	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5721	5816	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5721	5816	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @ <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3512	3611	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3818	3917	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25356	25455	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	794	893	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24120	24219	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1919	2018	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25356	25455	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	794	893	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24120	24219	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1919	2018	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the same te <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3512	3611	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3818	3917	
==>1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19096	19217	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20396	20517	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16334	16455	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17535	17656	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19096	19217	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20396	20517	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16334	16455	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17535	17656	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19096	19217	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20396	20517	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16334	16455	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17535	17656	
==>e same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38502	38629	
==>tems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38502	38629	
==>tems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38502	38629	
==>tems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	7633	7732	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6763	6862	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3349	3448	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3349	3448	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7633	7732	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6763	6862	
==>ulti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1361	1455	
==>d_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1361	1455	
==>d_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1361	1455	
==>d_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4868	4966	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1361	1459	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1280	1378	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2293	2391	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1807	1905	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1335	1433	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4868	4966	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1361	1459	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1280	1378	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2293	2391	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1807	1905	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1335	1433	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9296	9401	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6843	6948	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9296	9401	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6843	6948	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9296	9401	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6843	6948	
==>eorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_d <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	25563	25660	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	28249	28346	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	29260	29357	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30115	30212	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32801	32898	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33812	33909	
==>l operator that returns a new Relation
which is the same as the invocant Relation but that some of <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2189	2342	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1301	1454	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1865	2018	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2189	2342	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1301	1454	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1865	2018	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2189	2342	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1301	1454	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1865	2018	
==>key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itsel <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	887	997	
==>ng
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PI <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	887	997	
==>ng
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PI <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	887	997	
==>ng
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PI <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10772	10954	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11822	12004	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8323	8505	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9375	9557	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10772	10954	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11822	12004	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8323	8505	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9375	9557	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10772	10954	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11822	12004	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8323	8505	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9375	9557	
==>lass->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return un <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19074	19203	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20374	20503	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16312	16441	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17513	17642	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19074	19203	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20374	20503	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16312	16441	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17513	17642	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19074	19203	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20374	20503	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16312	16441	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17513	17642	
==>spatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	389	499	
==>y $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscla <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17516	17626	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4451	4561	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8097	8207	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	389	499	
==>y $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscla <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	389	499	
==>y $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscla <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17516	17626	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4451	4561	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8097	8207	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17516	17626	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4451	4561	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8097	8207	
==>ethod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || con <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5893	6015	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4013	4135	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5893	6015	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4013	4135	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5893	6015	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4013	4135	
==>lasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5694	5810	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8664	8780	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5694	5810	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8664	8780	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5694	5810	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8664	8780	
==>d method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_met <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3516	3619	
==>CENSE

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3822	3925	
==>CENSE

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25360	25463	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	798	901	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24124	24227	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1923	2026	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25360	25463	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	798	901	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24124	24227	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1923	2026	
==>CENSE

This program is free software; you can redistribute it and/or modify it under
the same terms as P <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3516	3619	
==>CENSE

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3822	3925	
==>CENSE

This program is free software; you can redistribute it and/or modify
it under the same terms as P <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6862	6950	
==>----------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6885	6973	
==>-----------------------
## BOOTSTRAPPING ROLES
## --------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6862	6950	
==>----------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6885	6973	
==>-----------------------
## BOOTSTRAPPING ROLES
## --------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6862	6950	
==>----------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6885	6973	
==>-----------------------
## BOOTSTRAPPING ROLES
## --------------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6912	6996	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7579	7663	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6912	6996	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7579	7663	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6912	6996	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7579	7663	
==>BOOTSTRAPPING ROLES
## -------------------------------------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1109	1220	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1349	1460	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2051	2162	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2407	2518	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1109	1220	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1349	1460	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2051	2162	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2407	2518	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1109	1220	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1349	1460	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2051	2162	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2407	2518	
==>my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6126	6246	
==>fix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        post <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6126	6246	
==>fix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        post <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	40	131	
==>ages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	88	185	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	349	446	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	627	724	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1147	1244	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	88	185	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	349	446	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	627	724	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1147	1244	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	88	185	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	349	446	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	627	724	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1147	1244	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	166	273	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	168	275	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5213	5320	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	181	288	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	158	265	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	162	269	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15015	15108	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12269	12362	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15015	15108	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12269	12362	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15015	15108	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12269	12362	
==>lessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attribu <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3507	3607	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the sam <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3813	3913	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the sam <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25351	25451	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	789	889	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24115	24215	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1914	2014	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25351	25451	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	789	889	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24115	24215	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1914	2014	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
the sam <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3507	3607	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the sam <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3813	3913	
==>=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under the sam <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13082	13199	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15278	15395	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10366	10483	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12534	12651	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13082	13199	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15278	15395	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10366	10483	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12534	12651	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13082	13199	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15278	15395	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10366	10483	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12534	12651	
==>_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $para <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10847	11012	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2512	2677	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4326	4491	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10847	11012	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2512	2677	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4326	4491	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10847	11012	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2512	2677	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4326	4491	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        acc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9325	9420	
==>MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_par <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9325	9420	
==>MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_par <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9325	9420	
==>MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5246	5389	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6207	6350	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7422	7565	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12067	12210	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5246	5389	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6207	6350	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7422	7565	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12067	12210	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5246	5389	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6207	6350	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7422	7565	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12067	12210	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ] <==
12	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10089	10200	
==>)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity => 3, <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7308	7417	
==>els>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\ <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7308	7417	
==>els>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7424	7533	
==>ng variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11759	11868	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2240	2348	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9012	9120	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7174	7282	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2240	2348	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9012	9120	
==>ng variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" } <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5566	5672	
==>is HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = sys <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5566	5672	
==>is HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = sys <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4163	4276	
==>s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*/ <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4163	4276	
==>s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*/ <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4163	4276	
==>s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*/ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3993	4082	
==>-----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4016	4105	
==>------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4039	4128	
==>-
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3993	4082	
==>-----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4016	4105	
==>------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4039	4128	
==>-
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3993	4082	
==>-----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4016	4105	
==>------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------- <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4039	4128	
==>-
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------------------- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15343	15458	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12599	12714	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15343	15458	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12599	12714	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15343	15458	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12599	12714	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13147	13258	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10431	10542	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13147	13258	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10431	10542	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13147	13258	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10431	10542	
==>arams) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6853	6975	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9823	9945	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6853	6975	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9823	9945	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6853	6975	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9823	9945	
==>:Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5892	6006	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8862	8976	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5892	6006	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8862	8976	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5892	6006	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8862	8976	
==>:Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	5	260	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3113	3239	
==>JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3113	3239	
==>JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js <==
12	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3113	3239	
==>JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	689	798	
==>@args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	689	798	
==>@args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	689	798	
==>@args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29641	29748	
==>rsement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29641	29748	
==>rsement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	180	276	
==>cause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	180	276	
==>cause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	180	276	
==>cause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	445	540	
==>rsement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3386	3493	
==>rl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3386	3493	
==>rl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{t <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3386	3493	
==>rl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{t <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24432	24524	
==>member classes, usually invoking C<new()> on
the appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	20474	20566	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22064	22156	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9337	9429	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24432	24524	
==>member classes, usually invoking C<new()> on
the appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25026	25118	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23596	23688	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22064	22156	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9337	9429	
==>member classes, usually invoking C<new()> on the
appropriate class name, and then invoking me <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	335	453	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	560	678	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	335	453	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	560	678	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	335	453	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	560	678	
==>PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6619	6724	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2914	3019	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6619	6724	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2914	3019	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6619	6724	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2914	3019	
==>PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(fun <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10710	10817	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11760	11867	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8261	8368	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9313	9420	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10710	10817	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11760	11867	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8261	8368	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9313	9420	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10710	10817	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11760	11867	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8261	8368	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9313	9420	
==>push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        i <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4152	4253	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14722	14823	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2427	2528	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7866	7967	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4152	4253	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14722	14823	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2427	2528	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7866	7967	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4152	4253	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14722	14823	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2427	2528	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7866	7967	
==>->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10384	10525	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11432	11573	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7935	8076	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8985	9126	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10384	10525	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11432	11573	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7935	8076	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8985	9126	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10384	10525	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11432	11573	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7935	8076	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8985	9126	
==>(not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ... <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4170	4288	
==>eric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4170	4288	
==>eric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    } <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4170	4288	
==>eric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9801	9913	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7350	7462	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9801	9913	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7350	7462	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9801	9913	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7350	7462	
==>te_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $value <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	20002	20095	
==>appings, or a multi-dimensional object Hash,
or various combinations of other data types.

Whi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24554	24647	
==>appings, or a multi-dimensional object Hash,
or various combinations of other data types.

Whi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23106	23199	
==>appings, or a multi-dimensional object Hash,
or various combinations of other data types.

Whi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8977	9119	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11950	12092	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8977	9119	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11950	12092	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8977	9119	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11950	12092	
==>e
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod <==
12	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	941	1050	
==>s_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5114	5208	
==>orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1071	1165	
==>orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	931	1025	
==>orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5114	5208	
==>orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1071	1165	
==>orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9983	10093	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11032	11142	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7534	7644	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8585	8695	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9983	10093	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11032	11142	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7534	7644	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8585	8695	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9983	10093	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11032	11142	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7534	7644	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8585	8695	
==>r' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub { <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	592	686	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	847	941	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1102	1196	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1357	1451	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1613	1707	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1869	1963	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2124	2218	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2379	2473	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2634	2728	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2889	2983	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3144	3238	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3399	3493	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16076	16246	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20793	20963	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16076	16246	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20793	20963	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16076	16246	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20793	20963	
==>> sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cla <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	118	232	
==>::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	118	232	
==>::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	118	232	
==>::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	117	230	
==>::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	117	230	
==>::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	117	230	
==>::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functio <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15403	15514	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12659	12770	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15403	15514	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12659	12770	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15403	15514	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12659	12770	
==>r} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13207	13314	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10491	10598	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13207	13314	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10491	10598	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13207	13314	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10491	10598	
==>r} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10893	10989	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11102	11198	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11598	11694	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11777	11873	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10893	10989	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11102	11198	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11598	11694	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11777	11873	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10893	10989	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11102	11198	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11598	11694	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11777	11873	
==>key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key ) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16390	16532	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21107	21249	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16390	16532	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21107	21249	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16390	16532	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21107	21249	
==>apper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, i <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	6755	6852	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5885	5982	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2539	2636	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2539	2636	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6755	6852	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5885	5982	
==>member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2061	2175	
==><AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2061	2175	
==><AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	422	519	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	732	829	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1122	1219	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1110	1207	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1749	1846	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2184	2281	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2618	2715	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	422	519	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	732	829	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1122	1219	
==>ft;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9524	9715	
==>Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9524	9715	
==>Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9524	9715	
==>Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	12346	12443	
==>>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.s <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12346	12443	
==>>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.s <==
12	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	60	150	
==>n-runnable module - use 'pil2_json_emit_<language>.p6' instead

  ../../pugs -CPIL2-JSON -e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5039	5126	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3267	3354	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5039	5126	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3267	3354	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5039	5126	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3267	3354	
==>label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10875	11061	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2540	2726	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4354	4540	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10875	11061	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2540	2726	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4354	4540	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10875	11061	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2540	2726	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4354	4540	
==>s => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => su <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15924	16075	
==>if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    re <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15924	16075	
==>if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    re <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15924	16075	
==>if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    re <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10873	10976	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11082	11185	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11578	11681	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11757	11860	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10873	10976	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11082	11185	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11578	11681	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11757	11860	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10873	10976	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11082	11185	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11578	11681	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11757	11860	
==>) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::ide <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10718	10830	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11768	11880	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8269	8381	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9321	9433	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10718	10830	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11768	11880	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8269	8381	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9321	9433	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10718	10830	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11768	11880	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8269	8381	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9321	9433	
==>ack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_cl <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	721	881	
==>l) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy. <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	721	881	
==>l) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy. <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6785	6908	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7546	7669	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8416	8539	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10262	10385	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11023	11146	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11893	12016	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9372	9495	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10178	10301	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11093	11216	
==>ven relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!head <==
12	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39019	39115	
==>ce, like '\y', your handler will
receive an additional argument which tells it if it's inside a c <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4628	4767	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7140	7279	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4628	4767	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7140	7279	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4628	4767	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7140	7279	
==>private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $ne <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11491	11604	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2485	2598	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7579	7692	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11491	11604	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2485	2598	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7579	7692	
==>for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20597	20699	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17736	17838	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20597	20699	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17736	17838	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20597	20699	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17736	17838	
==>:wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3646	3744	
==>(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3646	3744	
==>(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3646	3744	
==>(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5191	5285	
==>:wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5191	5285	
==>:wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5191	5285	
==>:wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12182	12357	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13691	13866	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20186	20361	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21281	21456	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26275	26450	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28014	28189	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12461	12636	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13970	14145	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20465	20640	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21560	21735	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26554	26729	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28293	28468	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8033	8175	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5592	5734	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8033	8175	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5592	5734	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8033	8175	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5592	5734	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1721	1863	
==>te ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        pu <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1239	1335	
==>ol:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1239	1335	
==>ol:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1239	1335	
==>ol:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_r <==
12	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5543	5638	
==>le is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region <==
12	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5543	5638	
==>le is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5637	5754	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8607	8724	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5637	5754	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8607	8724	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5637	5754	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8607	8724	
==>s in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solutio <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	7153	7252	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6283	6382	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2937	3036	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2937	3036	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7153	7252	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6283	6382	
==>et $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operation <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13112	13240	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15308	15436	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10396	10524	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12564	12692	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13112	13240	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15308	15436	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10396	10524	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12564	12692	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13112	13240	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15308	15436	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10396	10524	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12564	12692	
==>od(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $par <==
12	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1868	1970	
==>z";
my $initrd_img   = "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 102 <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	344	441	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1207	1304	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2182	2279	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	344	441	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1207	1304	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2182	2279	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	344	441	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1207	1304	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2182	2279	
==>lsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arra <==
12	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7157	7252	
==>) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::User <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7157	7252	
==>) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::User <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19047	19168	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20347	20468	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16285	16406	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17486	17607	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19047	19168	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20347	20468	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16285	16406	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17486	17607	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19047	19168	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20347	20468	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16285	16406	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17486	17607	
==>c since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6858	6970	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9360	9472	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	101	213	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6858	6970	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9360	9472	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	101	213	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6858	6970	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9360	9472	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	101	213	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1393	1503	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1393	1503	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1393	1503	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10748	10901	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11798	11951	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8299	8452	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9351	9504	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10748	10901	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11798	11951	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8299	8452	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9351	9504	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10748	10901	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11798	11951	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8299	8452	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9351	9504	
==>er_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                retur <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5955	6073	
==>} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set insid <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5768	5880	
==>} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set insid <==
12	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2426	2523	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2443	2540	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3497	3594	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1881	1978	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2313	2410	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2426	2523	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2443	2540	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3497	3594	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1881	1978	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2313	2410	
==>ICENSE

This library is free software . You can redistribute it and/or modify
it under the same te <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12079	12176	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12257	12354	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9634	9731	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9814	9911	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12079	12176	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12257	12354	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9634	9731	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9814	9911	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12079	12176	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12257	12354	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9634	9731	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9814	9911	
==>make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_itera <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19058	19187	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20358	20487	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16296	16425	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17497	17626	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19058	19187	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20358	20487	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16296	16425	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17497	17626	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19058	19187	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20358	20487	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16296	16425	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17497	17626	
==>lass does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1835	1961	
==>or\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1835	1961	
==>or\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0 <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1835	1961	
==>or\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18374	18487	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8644	8757	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15612	15725	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18374	18487	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8644	8757	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15612	15725	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18374	18487	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8644	8757	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15612	15725	
==>ct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_att <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	2719	2823	
==>nt {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $ <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6196	6300	
==>nt {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $ <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5126	5230	
==>nt {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41167	41264	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13555	13652	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9347	9444	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41167	41264	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13555	13652	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9347	9444	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41167	41264	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13555	13652	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9347	9444	
==>...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COP <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5356	5491	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6317	6452	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12177	12312	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5356	5491	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6317	6452	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12177	12312	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5356	5491	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6317	6452	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12177	12312	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7532	7666	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7532	7666	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7532	7666	
==>{
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6801	6923	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7562	7684	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8432	8554	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10278	10400	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11039	11161	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11909	12031	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9388	9510	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10194	10316	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11109	11231	
==>@others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!headi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	333	435	
==>ould be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v e <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	333	435	
==>ould be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v e <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	333	435	
==>ould be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10887	10985	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11096	11194	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11592	11690	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11771	11869	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10887	10985	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11096	11194	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11592	11690	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11771	11869	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10887	10985	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11096	11194	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11592	11690	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11771	11869	
==>ey = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $k <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12207	12393	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13716	13902	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20211	20397	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21306	21492	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26300	26486	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28039	28225	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12486	12672	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13995	14181	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20490	20676	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21585	21771	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26579	26765	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28318	28504	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6473	6592	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7226	7345	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8090	8209	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8871	8990	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9950	10069	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10703	10822	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11567	11686	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12348	12467	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9042	9161	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9840	9959	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10749	10868	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11575	11694	
==>ing of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12140	12289	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13649	13798	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20144	20293	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21239	21388	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26233	26382	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27972	28121	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12419	12568	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13928	14077	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20423	20572	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21518	21667	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26512	26661	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28251	28400	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
12	/Users/nnunley/pugs/blib6/lib/CGI.pm	2746	2893	
==>ookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    S <==
12	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2746	2893	
==>ookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    S <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23129	23227	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1702	1800	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19499	19597	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3993	4091	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1665	1763	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23129	23227	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1702	1800	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19499	19597	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3993	4091	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1665	1763	
==>Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Local <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5270	5428	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6231	6389	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7446	7604	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12091	12249	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5270	5428	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6231	6389	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7446	7604	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12091	12249	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5270	5428	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6231	6389	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7446	7604	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12091	12249	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12658	12758	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4158	4258	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1286	1386	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7467	7567	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12658	12758	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4158	4258	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1286	1386	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7467	7567	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12658	12758	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4158	4258	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1286	1386	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7467	7567	
==>umfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10746	10899	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11796	11949	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8297	8450	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9349	9502	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10746	10899	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11796	11949	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8297	8450	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9349	9502	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10746	10899	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11796	11949	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8297	8450	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9349	9502	
==>cher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                ret <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12649	12750	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4149	4250	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1277	1378	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7458	7559	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12649	12750	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4149	4250	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1277	1378	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7458	7559	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12649	12750	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4149	4250	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1277	1378	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7458	7559	
==>_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3ama <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12072	12169	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12250	12347	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9627	9724	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9807	9904	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12072	12169	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12250	12347	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9627	9724	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9807	9904	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12072	12169	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12250	12347	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9627	9724	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9807	9904	
==>' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatche <==
12	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1147	1238	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1142	1233	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6859	6950	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4211	4302	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9109	9200	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/lib/Tree.pm	11699	11790	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1147	1238	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1142	1233	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6859	6950	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4211	4302	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9109	9200	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11699	11790	
==>=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Co <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18963	19098	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20263	20398	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16201	16336	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17402	17537	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18963	19098	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20263	20398	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16201	16336	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17402	17537	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18963	19098	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20263	20398	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16201	16336	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17402	17537	
==>ge code here
        # because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the s <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5263	5406	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6224	6367	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7439	7582	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12084	12227	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5263	5406	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6224	6367	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7439	7582	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12084	12227	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5263	5406	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6224	6367	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7439	7582	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12084	12227	
==>::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11513	11668	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3025	3180	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11513	11668	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3025	3180	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11513	11668	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3025	3180	
==>var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = f <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3410	3501	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6424	6515	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8492	8583	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3410	3501	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6424	6515	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8492	8583	
==>tr`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) return <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12201	12387	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13710	13896	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20205	20391	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21300	21486	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26294	26480	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28033	28219	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12480	12666	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13989	14175	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20484	20670	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21579	21765	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26573	26759	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28312	28498	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18164	18317	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15402	15555	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18164	18317	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15402	15555	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18164	18317	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15402	15555	
==>just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18762	18883	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16000	16121	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18762	18883	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16000	16121	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18762	18883	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16000	16121	
==>just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5299	5454	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6260	6415	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7475	7630	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12120	12275	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5299	5454	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6260	6415	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7475	7630	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12120	12275	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5299	5454	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6260	6415	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7475	7630	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12120	12275	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'nu <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6018	6124	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1214	1320	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6979	7085	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1419	1525	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6018	6124	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1214	1320	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6979	7085	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1419	1525	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7627	7733	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1855	1961	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9261	9367	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2073	2179	
==>>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

= <==
12	/Users/nnunley/pugs/inc/Module/Install.pm	1526	1641	
==>ss $cwd eq $pwd; # delegate back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $calle <==
12	/Users/nnunley/pugs/inc/Test/Harness.pm	22016	22128	
==>e};
        $max_namelen = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($midd <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	32516	32608	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	33173	33265	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	33578	33670	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	35561	35653	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	37371	37463	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37066	37158	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37723	37815	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38128	38220	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40111	40203	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41920	42012	
==>elation *@others) returns Relation>

This multi-method is the N-ary version of the aforementi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10166	10299	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11215	11348	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7717	7850	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8768	8901	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10166	10299	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11215	11348	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7717	7850	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8768	8901	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10166	10299	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11215	11348	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7717	7850	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8768	8901	
==>get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6470	6588	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7223	7341	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8087	8205	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8868	8986	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9947	10065	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10700	10818	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11564	11682	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12345	12463	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9039	9157	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9837	9955	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10746	10864	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11572	11690	
==>eading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if !($o <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19038	19162	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20338	20462	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16276	16400	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17477	17601	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19038	19162	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20338	20462	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16276	16400	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17477	17601	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19038	19162	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20338	20462	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16276	16400	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17477	17601	
==>roblematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some <==
12	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2403	2516	
==>ar to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <var <==
12	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2403	2516	
==>ar to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <var <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	51	147	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	37	133	
==>use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EX <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22035	22261	
==>param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # w <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22035	22261	
==>param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # w <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22035	22261	
==>param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12036	12159	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3547	3670	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12036	12159	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3547	3670	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12036	12159	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3547	3670	
==>TORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8467	8584	
==>TORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8467	8584	
==>TORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8467	8584	
==>TORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.lengt <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6488	6603	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7241	7356	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8105	8220	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8886	9001	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9965	10080	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10718	10833	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11582	11697	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12363	12478	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9057	9172	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9855	9970	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10764	10879	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11590	11705	
==>tion in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading == <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3999	4110	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	464	575	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	449	560	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1434	1545	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	950	1061	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	460	571	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3999	4110	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	464	575	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	449	560	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1434	1545	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	950	1061	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	460	571	
==>1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5254	5401	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6215	6362	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7430	7577	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12075	12222	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5254	5401	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6215	6362	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7430	7577	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12075	12222	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5254	5401	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6215	6362	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7430	7577	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12075	12222	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
12	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16552	16663	
==>r($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 N <==
12	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16552	16663	
==>r($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 N <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13243	13350	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10527	10634	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13243	13350	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10527	10634	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13243	13350	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10527	10634	
==>s->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 's <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13745	13851	
==>.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ha <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18948	19054	
==>.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ha <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13745	13851	
==>.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ha <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18948	19054	
==>.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ha <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13991	14104	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14478	14591	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11263	11376	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11738	11851	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13991	14104	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14478	14591	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11263	11376	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11738	11851	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13991	14104	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14478	14591	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11263	11376	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11738	11851	
==>{
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $labe <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	2	254	
==>/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is read <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6528	6660	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9498	9630	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6528	6660	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9498	9630	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6528	6660	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9498	9630	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5941	6068	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8911	9038	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5941	6068	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8911	9038	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5941	6068	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8911	9038	
==>d) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Per <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2183	2321	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1295	1433	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1859	1997	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2183	2321	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1295	1433	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1859	1997	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2183	2321	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1295	1433	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1859	1997	
==>rams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structur <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3789	3898	
==>{ %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3789	3898	
==>{ %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self-> <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3789	3898	
==>{ %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12526	12667	
==>d status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2896	3031	
==>d status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2896	3031	
==>d status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11527	11660	
==>d status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11968	12100	
==>d status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1967	2094	
==>d status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1967	2094	
==>d status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2376	2502	
==>d status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2376	2502	
==>d status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13691	13788	
==>m_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13691	13788	
==>m_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13691	13788	
==>m_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6467	6585	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7220	7338	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8084	8202	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8865	8983	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9944	10062	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10697	10815	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11561	11679	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12342	12460	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9036	9154	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9834	9952	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10743	10861	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11569	11687	
==>e heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        if ! <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9999	10106	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11048	11155	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7550	7657	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8601	8708	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9999	10106	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11048	11155	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7550	7657	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8601	8708	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9999	10106	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11048	11155	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7550	7657	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8601	8708	
==>vate_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12064	12167	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12242	12345	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9619	9722	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9799	9902	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12064	12167	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12242	12345	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9619	9722	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9799	9902	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12064	12167	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12242	12345	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9619	9722	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9799	9902	
==>spatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatc <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	10046	10157	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	11216	11327	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	12687	12798	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13523	13634	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14693	14804	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16164	16275	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12804	12915	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14001	14112	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15526	15637	
==>her!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	85	193	
==>function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_ca <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	85	193	
==>function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_ca <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	85	193	
==>function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_ca <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12173	12351	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13682	13860	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20177	20355	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21272	21450	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26266	26444	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28005	28183	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12452	12630	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13961	14139	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20456	20634	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21551	21729	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26545	26723	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28284	28462	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15382	15492	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12638	12748	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15382	15492	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12638	12748	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15382	15492	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12638	12748	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13186	13292	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10470	10576	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13186	13292	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10470	10576	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13186	13292	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10470	10576	
==>... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($params <==
12	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3500	3602	
==>ons are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ w <==
12	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3500	3602	
==>ons are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ w <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9973	10071	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11022	11120	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7524	7622	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8575	8673	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9973	10071	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11022	11120	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7524	7622	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8575	8673	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9973	10071	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11022	11120	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7524	7622	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8575	8673	
==>_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::S <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6453	6605	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8902	9054	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6453	6605	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8902	9054	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6453	6605	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8902	9054	
==>guous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless define <==
12	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5039	5146	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'p <==
12	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5039	5146	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'p <==
12	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1943	2050	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'p <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	28612	28707	
==>es that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute na <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33164	33259	
==>es that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute na <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32292	32387	
==>es that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute na <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6535	6662	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9505	9632	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6535	6662	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9505	9632	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6535	6662	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9505	9632	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5948	6070	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8918	9040	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5948	6070	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8918	9040	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5948	6070	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8918	9040	
==>CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6 <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14045	14156	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14532	14643	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11317	11428	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11792	11903	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14045	14156	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14532	14643	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11317	11428	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11792	11903	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14045	14156	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14532	14643	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11317	11428	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11792	11903	
==>ou must provide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17568	17694	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4503	4629	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8149	8275	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14788	14914	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17568	17694	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4503	4629	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8149	8275	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14788	14914	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17568	17694	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4503	4629	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8149	8275	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14788	14914	
==>$label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7786	7920	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5345	5479	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7786	7920	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5345	5479	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7786	7920	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5345	5479	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1474	1608	
==>e is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last i <==
12	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17589	17706	
==>local $X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3541	3638	
==>efault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedNa <==
12	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1429	1526	
==>($pil_code,$err);
}


package Perl6::Run::OnPerl5::X1::Result;
use strict;
sub new {
    my($cls,$ <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3541	3638	
==>efault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedNa <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3541	3638	
==>efault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedNa <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10877	10980	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11086	11189	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11582	11685	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11761	11864	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10877	10980	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11086	11189	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11582	11685	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11761	11864	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10877	10980	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11086	11189	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11582	11685	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11761	11864	
==>@_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identif <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1128	1241	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1368	1481	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2070	2183	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2426	2539	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1128	1241	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1368	1481	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2070	2183	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2426	2539	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1128	1241	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1368	1481	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2070	2183	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2426	2539	
==>t;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5996	6089	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1192	1285	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6957	7050	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1397	1490	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5996	6089	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1192	1285	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6957	7050	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1397	1490	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7605	7698	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1833	1926	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9239	9332	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2051	2144	
==>code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>stevan@iint <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3042	3159	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10965	11082	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12229	12346	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6167	6284	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6796	6913	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3042	3159	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10965	11082	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12229	12346	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6167	6284	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6796	6913	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( ' <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6073	6175	
==>? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6073	6175	
==>? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19053	19173	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20353	20473	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16291	16411	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17492	17612	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19053	19173	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20353	20473	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16291	16411	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17492	17612	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19053	19173	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20353	20473	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16291	16411	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17492	17612	
==>e ::Class does not dispatch
        # in the same way other classes do (this should
        # be fixed at some point thou <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21467	21582	
==>xt if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scala <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21467	21582	
==>xt if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scala <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21467	21582	
==>xt if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scala <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24451	24544	
==>ally invoking C<new()> on
the appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	20493	20586	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22083	22176	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9356	9449	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24451	24544	
==>ally invoking C<new()> on
the appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25045	25138	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23615	23708	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22083	22176	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9356	9449	
==>ally invoking C<new()> on the
appropriate class name, and then invoking methods on those objec <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10774	10974	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8325	8525	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10774	10974	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8325	8525	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10774	10974	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8325	8525	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    } <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11824	12017	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9377	9570	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11824	12017	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9377	9570	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11824	12017	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9377	9570	
==>ss->superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
} <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43146	43325	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46490	46669	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47611	47790	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35471	35639	
==>->new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6676	6841	
==>->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36396	36561	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37931	38096	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7853	8017	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8800	8964	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9759	9922	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$l <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33486	33649	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$ <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26791	26952	
==>->new(
                params => method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol->new('$ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19076	19212	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20376	20512	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16314	16450	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17515	17651	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19076	19212	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20376	20512	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16314	16450	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17515	17651	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19076	19212	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20376	20512	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16314	16450	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17515	17651	
==>atch
        # in the same way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually w <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3619	3730	
==>_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3619	3730	
==>_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	895	1005	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1769	1879	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2944	3054	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	895	1005	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1769	1879	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2944	3054	
==>_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' para <==
12	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2923	3020	
==>spirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE A <==
12	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2923	3020	
==>spirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE A <==
12	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3754	3850	
==>you call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to re <==
12	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3754	3850	
==>you call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to re <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1395	1491	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1314	1410	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2327	2423	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1841	1937	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1369	1465	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1395	1491	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1314	1410	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2327	2423	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1841	1937	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1369	1465	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority <==
12	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	962	1047	
==>t-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Range <==
12	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	962	1047	
==>t-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Range <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4937	5076	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5898	6037	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7026	7165	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4937	5076	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5898	6037	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7026	7165	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4937	5076	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5898	6037	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7026	7165	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$. <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	711	814	
==>ation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.o <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	711	814	
==>ation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.o <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	711	814	
==>ation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.o <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10727	10897	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11777	11947	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8278	8448	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9330	9500	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10727	10897	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11777	11947	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8278	8448	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9330	9500	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10727	10897	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11777	11947	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8278	8448	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9330	9500	
==>:SELF->_make_dispatcher_iterator(@{$current_class->superclasses})
                        if $current_class->superclasses;
                }             
                r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19019	19147	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20319	20447	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16257	16385	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17458	17586	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19019	19147	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20319	20447	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16257	16385	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17458	17586	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19019	19147	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20319	20447	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16257	16385	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17458	17586	
==>can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this should
        # b <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10642	10789	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11692	11839	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8193	8340	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9245	9392	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10642	10789	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11692	11839	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8193	8340	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9245	9392	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10642	10789	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11692	11839	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8193	8340	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9245	9392	
==>o TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->superclasses <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11121	11303	
==>$i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_ <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11121	11303	
==>$i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_ <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11121	11303	
==>$i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_ <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	9842	9953	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	10823	10934	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	12294	12405	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13319	13430	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14300	14411	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15771	15882	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12591	12702	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13599	13710	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15124	15235	
==>ent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19015	19133	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20315	20433	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16253	16371	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17454	17572	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19015	19133	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20315	20433	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16253	16371	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17454	17572	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19015	19133	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20315	20433	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16253	16371	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17454	17572	
==>ere can be 
        # problematic since ::Class does not dispatch
        # in the same way other classes do (this shou <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5281	5432	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6242	6393	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7457	7608	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12102	12253	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5281	5432	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6242	6393	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7457	7608	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12102	12253	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5281	5432	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6242	6393	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7457	7608	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12102	12253	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18346	18509	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18643	18806	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18625	18788	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18922	19085	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9128	9237	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6675	6784	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9128	9237	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6675	6784	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9128	9237	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6675	6784	
==>he canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ord <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	29279	29375	
==>urns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33831	33927	
==>urns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8929	9088	
==>ext unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) e <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5289	5448	
==>ext unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) e <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6138	6297	
==>ext unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) e <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12139	12263	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3761	3885	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12139	12263	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3761	3885	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12139	12263	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3761	3885	
==>t; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')- <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6864	6986	
==>t; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6864	6986	
==>t; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')- <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6864	6986	
==>t; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')- <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	71	169	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	782	880	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1905	2003	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	71	169	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	782	880	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1905	2003	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	71	169	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	782	880	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1905	2003	
==>isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FE <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	191	278	
==>erl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container:: <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	191	278	
==>erl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container:: <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	191	278	
==>erl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container:: <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10171	10305	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11220	11354	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7722	7856	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8773	8907	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10171	10305	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11220	11354	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7722	7856	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8773	8907	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10171	10305	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11220	11354	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7722	7856	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8773	8907	
==>he iterator on the top of the stack
                # get the current value out of the iterator
                my $current_class = $st <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14000	14113	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14487	14600	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11272	11385	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11747	11860	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14000	14113	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14487	14600	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11272	11385	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11747	11860	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14000	14113	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14487	14600	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11272	11385	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11747	11860	
==>($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15346	15486	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12602	12742	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15346	15486	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12602	12742	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15346	15486	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12602	12742	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13150	13286	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10434	10570	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13150	13286	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10434	10570	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13150	13286	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10434	10570	
==>ms) = @_;
    # default to instance ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($ <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25898	25994	
==>ny - This contains zero or more variable names and values
that are associated with the message, a <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25898	25994	
==>ny - This contains zero or more variable names and values
that are associated with the message, a <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	31824	31915	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	32840	32931	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	33295	33386	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	35163	35254	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	35675	35766	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36374	36465	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37390	37481	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37845	37936	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39713	39804	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40225	40316	
==>Relation $other!) returns Relation>

This multi-method is a generic binary relational operat <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2956	3083	
==>es}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2956	3083	
==>es}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2956	3083	
==>es}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3750	3869	
==>$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3750	3869	
==>$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0. <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3750	3869	
==>$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0. <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5739	5857	
==>es}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5739	5857	
==>es}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5739	5857	
==>es}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bod <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2047	2153	
==>sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is comp <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2047	2153	
==>sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is comp <==
12	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2047	2153	
==>sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is comp <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	951	1066	
==>in_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fina <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	951	1066	
==>in_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fina <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	951	1066	
==>in_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fina <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17587	17697	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8168	8278	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14807	14917	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17587	17697	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8168	8278	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14807	14917	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17587	17697	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8168	8278	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14807	14917	
==>defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5304	5485	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6265	6446	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12125	12306	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5304	5485	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6265	6446	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12125	12306	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5304	5485	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6265	6446	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12125	12306	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7480	7660	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7480	7660	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7480	7660	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unbox <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6804	6926	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7565	7687	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8435	8557	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10281	10403	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11042	11164	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11912	12034	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9391	9513	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10197	10319	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11112	11234	
==>hers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20265	20352	
==>6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6: <==
12	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20265	20352	
==>6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6: <==
12	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20265	20352	
==>6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6: <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	673	775	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we c <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	673	775	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we c <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	673	775	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we c <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	283	381	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	607	705	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	910	1008	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	283	381	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	607	705	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	910	1008	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	283	381	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	607	705	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	910	1008	
==>ROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_r <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18158	18302	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15396	15540	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18158	18302	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15396	15540	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18158	18302	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15396	15540	
==>so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18733	18868	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15971	16106	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18733	18868	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15971	16106	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18733	18868	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15971	16106	
==>so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')-> <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1313	1433	
==>= (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{ <==
12	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1313	1433	
==>= (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{ <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3006	3123	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10929	11046	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12193	12310	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6131	6248	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6760	6877	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3006	3123	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10929	11046	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12193	12310	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6131	6248	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6760	6877	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val. <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43177	43339	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46521	46683	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47642	47804	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35502	35657	
==>> method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6707	6856	
==>> method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36427	36575	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37962	38110	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7884	8031	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8831	8978	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9790	9936	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'symb <==
12	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	263	361	
==>::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Bac <==
12	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	336	434	
==>::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Bac <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6490	6628	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7243	7381	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8107	8245	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8888	9026	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9967	10105	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10720	10858	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11584	11722	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12365	12503	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9059	9197	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9857	9995	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10766	10904	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11592	11730	
==>on in $other does"
            ~ " not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	789	913	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	877	1001	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	789	913	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	877	1001	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	789	913	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	877	1001	
==>t;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif( <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	36220	36315	
==>n,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	37973	38068	
==>n, then where each member of a
tuple pair has attribute names in common, eliminating pairs where <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40769	40864	
==>n,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42522	42617	
==>n, then where each member of a
tuple pair has attribute names in common, eliminating pairs where <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40383	40478	
==>n,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42172	42267	
==>n, then where each member of a
tuple pair has attribute names in common, eliminating pairs where <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15378	15489	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12634	12745	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15378	15489	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12634	12745	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15378	15489	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12634	12745	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};    
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13182	13289	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10466	10573	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13182	13289	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10466	10573	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13182	13289	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10466	10573	
==>nce ... 
    $params->{for} = 'instance' if not exists $params->{for};
    my $method_table;
    if (lc($par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1118	1232	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1358	1472	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2060	2174	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2416	2530	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1118	1232	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1358	1472	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2060	2174	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2416	2530	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1118	1232	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1358	1472	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2060	2174	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2416	2530	
==>nce = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instan <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18992	19117	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20292	20417	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16230	16355	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17431	17556	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18992	19117	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20292	20417	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16230	16355	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17431	17556	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18992	19117	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20292	20417	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16230	16355	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17431	17556	
==>e calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way other class <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18919	19047	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20219	20347	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16157	16285	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17358	17486	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18919	19047	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20219	20347	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16157	16285	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17358	17486	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18919	19047	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20219	20347	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16157	16285	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17358	17486	
==>-
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1624	1739	
==>gth; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1624	1739	
==>gth; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1624	1739	
==>gth; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24726	24825	
==>ndicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	20765	20864	
==>ndicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22340	22439	
==>ndicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9626	9725	
==>ndicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24726	24825	
==>ndicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25317	25416	
==>ndicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23905	24004	
==>ndicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22340	22439	
==>ndicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9626	9725	
==>ndicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked <==
12	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4871	4973	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1364	1466	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1283	1385	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2296	2398	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1810	1912	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1338	1440	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4871	4973	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1364	1466	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1283	1385	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2296	2398	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1810	1912	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1338	1440	
==>Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12188	12363	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13697	13872	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20192	20367	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21287	21462	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26281	26456	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28020	28195	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12467	12642	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13976	14151	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20471	20646	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21566	21741	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26560	26735	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28299	28474	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12194	12380	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13703	13889	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20198	20384	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21293	21479	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26287	26473	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28026	28212	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12473	12659	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13982	14168	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20477	20663	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21572	21758	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26566	26752	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28305	28491	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18937	19052	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20237	20352	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16175	16290	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17376	17491	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18937	19052	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20237	20352	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16175	16290	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17376	17491	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18937	19052	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20237	20352	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16175	16290	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17376	17491	
==>d to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # problematic sinc <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10314	10468	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11362	11516	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7865	8019	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8915	9069	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10314	10468	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11362	11516	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7865	8019	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8915	9069	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10314	10468	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11362	11516	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7865	8019	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8915	9069	
==>>();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted and w <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11658	11778	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3170	3290	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11658	11778	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3170	3290	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11658	11778	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3170	3290	
==>.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8106	8220	
==>.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8106	8220	
==>.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8106	8220	
==>.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2244	2338	
==>mpile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2244	2338	
==>mpile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2244	2338	
==>mpile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12058	12159	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12236	12337	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9613	9714	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9793	9894	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12058	12159	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12236	12337	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9613	9714	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9793	9894	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12058	12159	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12236	12337	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9613	9714	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9793	9894	
==>ant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make <==
12	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13106	13218	
==>}
    };

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$ <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	20	117	
==>v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Key <==
12	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13036	13132	
==>cant.
returns the value(s) that were associated to those keys.

=over

=item Unary Form

Implemen <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18883	19042	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16121	16280	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18883	19042	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16121	16280	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18883	19042	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16121	16280	
==>} 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20191	20342	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17330	17481	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20191	20342	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17330	17481	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20191	20342	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17330	17481	
==>} 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can be 
        # proble <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14056	14160	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14543	14647	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11328	11432	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11803	11907	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14056	14160	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14543	14647	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11328	11432	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11803	11907	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14056	14160	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14543	14647	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11328	11432	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11803	11907	
==>vide a method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%par <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7566	7707	
==>one => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            wa <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7566	7707	
==>one => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            wa <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7566	7707	
==>one => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            wa <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17535	17646	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4470	4581	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8116	8227	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17535	17646	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4470	4581	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8116	8227	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17535	17646	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4470	4581	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8116	8227	
==>make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19174	19280	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16412	16518	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19174	19280	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16412	16518	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19174	19280	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16412	16518	
==>gh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$labe <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14575	14672	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11835	11932	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14575	14672	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11835	11932	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14575	14672	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11835	11932	
==>ess defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_ <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12150	12329	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13659	13838	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20154	20333	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21249	21428	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26243	26422	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27982	28161	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12429	12608	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13938	14117	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20433	20612	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21528	21707	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26522	26701	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28261	28440	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rul <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6519	6648	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9489	9618	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6519	6648	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9489	9618	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6519	6648	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9489	9618	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5932	6056	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8902	9026	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5932	6056	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8902	9026	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5932	6056	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8902	9026	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $me <==
12	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	6	109	
==>3.pl - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %liebli <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23091	23190	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1664	1763	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19461	19560	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3955	4054	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1627	1726	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42793	42892	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23091	23190	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1664	1763	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19461	19560	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3955	4054	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1627	1726	
==>ES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Per <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14063	14164	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14550	14651	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11335	11436	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11810	11911	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14063	14164	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14550	14651	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11335	11436	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11810	11911	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14063	14164	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14550	14651	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11335	11436	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11810	11911	
==>method label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params) <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4057	4201	
==>=> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4057	4201	
==>=> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4057	4201	
==>=> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) <==
12	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1782	1912	
==>e: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Config{cc} eq 'gcc') <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13642	13765	
==>s-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13642	13765	
==>s-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS-> <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13642	13765	
==>s-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS-> <==
12	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22855	22977	
==>r(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if ( <==
12	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19276	19398	
==>r(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if ( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2815	2927	
==>tainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2815	2927	
==>tainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a <==
12	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2815	2927	
==>tainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11814	11958	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3325	3469	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11814	11958	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3325	3469	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11814	11958	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3325	3469	
==>ray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8257	8393	
==>ray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8257	8393	
==>ray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8257	8393	
==>ray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS. <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3322	3412	
==>elf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { : <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3322	3412	
==>elf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { : <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3322	3412	
==>elf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { : <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	6465	6582	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	7218	7335	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8082	8199	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/blib6/lib/Relation.pm	8863	8980	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9942	10059	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10695	10812	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11559	11676	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12340	12457	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9034	9151	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9832	9949	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10741	10858	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11567	11684	
==>The heading of the relation in $other does"
            ~ " not match the heading of the invocant relation."
        i <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5237	5386	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6198	6347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7413	7562	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12058	12207	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5237	5386	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6198	6347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7413	7562	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12058	12207	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5237	5386	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6198	6347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7413	7562	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12058	12207	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.unboxed <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17551	17676	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4486	4611	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8132	8257	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14771	14896	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17551	17676	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4486	4611	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8132	8257	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14771	14896	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17551	17676	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4486	4611	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8132	8257	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14771	14896	
==>{
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . " <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25360	25482	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26018	26140	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28800	28922	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25639	25761	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26297	26419	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29079	29201	
==>p::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1:: <==
12	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3649	3755	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3649	3755	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/blib6/lib/Set.pm	7937	8040	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7067	7170	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7937	8040	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7067	7170	
==>s
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Arr <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18986	19105	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20286	20405	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16224	16343	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17425	17544	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18986	19105	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20286	20405	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16224	16343	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17425	17544	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18986	19105	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20286	20405	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16224	16343	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17425	17544	
==>because calling next_METHOD here can be 
        # problematic since ::Class does not dispatch
        # in the same way <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10312	10464	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11360	11512	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7863	8015	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8913	9065	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10312	10464	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11360	11512	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7863	8015	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8913	9065	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10312	10464	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11360	11512	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7863	8015	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8913	9065	
==>]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted a <==
12	/Users/nnunley/pugs/inc/Test/Harness.pm	11953	12121	
==>rrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $failedtests{$tfile} = _dubious <==
12	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1308	1426	
==>rt {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        re <==
12	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1308	1426	
==>rt {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        re <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17593	17704	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8174	8285	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14813	14924	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17593	17704	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8174	8285	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14813	14924	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17593	17704	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8174	8285	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14813	14924	
==>d $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(. <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14003	14117	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14490	14604	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11275	11389	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11750	11864	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14003	14117	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14490	14604	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11275	11389	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11750	11864	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14003	14117	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14490	14604	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11275	11389	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11750	11864	
==>elf, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $label;
    my $me <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9400	9521	
==>args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1] <==
12	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9400	9521	
==>args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1] <==
12	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9400	9521	
==>args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1] <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20554	20672	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17693	17811	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20554	20672	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17693	17811	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20554	20672	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17693	17811	
==>$value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5152	5258	
==>$value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5152	5258	
==>$value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr( <==
12	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5152	5258	
==>$value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr( <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	122	252	
==>has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $st <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	122	252	
==>has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $st <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1985	2114	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1097	1226	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1664	1793	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1985	2114	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1097	1226	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1664	1793	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1985	2114	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1097	1226	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1664	1793	
==>included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_ <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3281	3399	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8566	8684	
==>_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6274	6388	
==>_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    retu <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3543	3656	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9961	10074	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8266	8379	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3543	3656	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9961	10074	
==>_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    retu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3556	3661	
==>am{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3556	3661	
==>am{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3556	3661	
==>am{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	591	714	
==>sted.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Ex <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	591	714	
==>sted.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Ex <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1975	2094	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1087	1206	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1654	1773	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1975	2094	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1087	1206	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1654	1773	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1975	2094	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1087	1206	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1654	1773	
==>h are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist. <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	703	832	
==>macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)= <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	703	832	
==>macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)= <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	703	832	
==>macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)= <==
11	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1559	1656	
==>$one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1559	1656	
==>$one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	5656	5752	
==>$one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4786	4882	
==>$one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5656	5752	
==>$one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4786	4882	
==>$one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5517	5613	
==>ammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/ <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5326	5420	
==>ammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/ <==
11	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11043	11161	
==>" goto nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5296	5402	
==>m = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { pr <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5296	5402	
==>m = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { pr <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5296	5402	
==>m = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { pr <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3220	3324	
==>ode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curni <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3220	3324	
==>ode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curni <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3801	3901	
==>ode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curni <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3801	3901	
==>ode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curni <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	231	327	
==>m = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { pr <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	231	327	
==>m = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { pr <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	231	327	
==>m = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { pr <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12529	12669	
==>tatus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.T <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2899	3033	
==>tatus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.T <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2899	3033	
==>tatus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.T <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11530	11662	
==>tatus returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.T <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11971	12102	
==>tatus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.T <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1970	2096	
==>tatus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.T <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1970	2096	
==>tatus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.T <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2379	2504	
==>tatus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.T <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2379	2504	
==>tatus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.T <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37978	38072	
==>t subroutine's result, which is a Template text
string if the module recognizes $msg_key, and t <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37978	38072	
==>t subroutine's result, which is a Template text
string if the module recognizes $msg_key, and t <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7291	7407	
==>"'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
su <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3895	4011	
==>"'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
su <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4744	4860	
==>"'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
su <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25422	25516	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	860	954	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24186	24280	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1985	2079	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25422	25516	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	860	954	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24186	24280	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1985	2079	
==>and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for de <==
11	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24011	24149	
==>riEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'>
    | <'@'>
    | <'&'>
    | <'='>
    | <'+ <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23154	23247	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1727	1820	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19524	19617	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4018	4111	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1690	1783	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23154	23247	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1727	1820	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19524	19617	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4018	4111	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1690	1783	
==>st 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0 <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16964	17116	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21679	21831	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16964	17116	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21679	21831	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16964	17116	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21679	21831	
==>ss (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $travers <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2185	2328	
==>Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2185	2328	
==>Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3638	3747	
==>bname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pI <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3638	3747	
==>bname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pI <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3638	3747	
==>bname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pI <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2441	2548	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7880	7987	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2441	2548	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7880	7987	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2441	2548	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7880	7987	
==>isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    retu <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	621	716	
==>ler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>( <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	621	716	
==>ler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>( <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6191	6280	
==>and override some methods to provide additional features.

=item B<Test::Builder::Test::TO <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6191	6280	
==>and override some methods to provide additional features.

=item B<Test::Builder::Test::TO <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8388	8477	
==>and override some methods to provide additional features.

=item B<Test::Builder::Test::TO <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	6809	6943	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	7570	7704	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8440	8574	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10286	10420	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11047	11181	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11917	12051	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9396	9530	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10202	10336	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11117	11251	
==>does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my R <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25686	25786	
==>and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The M <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25686	25786	
==>and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The M <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	833	1072	
==>( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop: <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	834	1073	
==>( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6041	6158	
==>class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to M <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6041	6158	
==>class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to M <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6041	6158	
==>class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to M <==
11	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1576	1677	
==>o);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1576	1677	
==>o);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	5673	5773	
==>o);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4803	4903	
==>o);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5673	5773	
==>o);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4803	4903	
==>o);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	145	394	
==>etta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	145	394	
==>etta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonl <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18356	18470	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8626	8740	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15594	15708	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18356	18470	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8626	8740	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15594	15708	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18356	18470	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8626	8740	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15594	15708	
==>probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1660	1793	
==>tch;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $ma <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1990	2120	
==>tch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $ma <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1603	1733	
==>tch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $ma <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1990	2120	
==>tch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $ma <==
11	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	180	276	
==>tional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $co <==
11	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	236	332	
==>tional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $co <==
11	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	180	276	
==>tional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $co <==
11	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	236	332	
==>tional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $co <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2382	2475	
==>eferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2382	2475	
==>eferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2382	2475	
==>eferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2J <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4167	4259	
==>ameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip inst <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4167	4259	
==>ameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip inst <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6364	6456	
==>ameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip inst <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3689	3779	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6708	6798	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8777	8867	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3689	3779	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6708	6798	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8777	8867	
==>ec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cp <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1643	1731	
==>$<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1643	1731	
==>$<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3436	3542	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11994	12100	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6561	6667	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3436	3542	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11994	12100	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6561	6667	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7394	7496	
==>t {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnic <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7394	7496	
==>t {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnic <==
11	/Users/nnunley/pugs/src/perl6/Prelude.pm	4411	4513	
==>X: here's my doubt. In Preluded code, do I need
    #      current_pragma_value or caller_pragma_value? <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7722	7820	
==>t {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnic <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7722	7820	
==>t {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnic <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11038	11183	
==>ar>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue> <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11038	11183	
==>ar>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue> <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41163	41262	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13551	13650	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9343	9442	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41163	41262	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13551	13650	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9343	9442	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41163	41262	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13551	13650	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9343	9442	
==>ON

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2319	2431	
==>~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_output.say( $message );
  }

=cu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	43	140	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	29	126	
==>strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporte <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12726	12881	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19563	19718	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20716	20871	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13005	13160	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19842	19997	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20995	21150	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::co <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	717	854	
==>n = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_p <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	717	854	
==>n = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_p <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	717	854	
==>n = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_p <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8483	8594	
==>bject>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channe <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8483	8594	
==>bject>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channe <==
11	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	380	517	
==>ount) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times <==
11	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	380	517	
==>ount) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20607	20711	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17746	17850	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20607	20711	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17746	17850	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20607	20711	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17746	17850	
==>age_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5201	5297	
==>age_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5201	5297	
==>age_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5201	5297	
==>age_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $va <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4431	4589	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6943	7101	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4431	4589	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6943	7101	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4431	4589	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6943	7101	
==>}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinct <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	16512	16665	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19989	20142	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19549	19702	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6203	6314	
==>nnels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.de <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6203	6314	
==>nnels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.de <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21738	21836	
==>6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conne <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21738	21836	
==>6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conne <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21738	21836	
==>6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conne <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25433	25528	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	871	966	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24197	24292	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1996	2091	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25433	25528	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	871	966	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24197	24292	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1996	2091	
==>fy it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cut <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3588	3695	
==>ment $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta: <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3588	3695	
==>ment $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16547	16649	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21264	21366	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16547	16649	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21264	21366	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16547	16649	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21264	21366	
==>lect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to igno <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	41	140	
==>lternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packag <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	41	140	
==>lternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packag <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	41	140	
==>lternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packag <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2389	2546	
==>e->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2389	2546	
==>e->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2249	2375	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1361	1487	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1925	2051	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2249	2375	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1361	1487	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1925	2051	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2249	2375	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1361	1487	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1925	2051	
==>o do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2801	2919	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5791	5909	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3090	3202	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9508	9620	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3090	3202	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	99	211	
==>END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $cl <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9508	9620	
==>ull_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	97	201	
==>END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $cl <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	91	195	
==>END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $cl <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	97	201	
==>END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $cl <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	91	195	
==>END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $cl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23092	23191	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1665	1764	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19462	19561	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3956	4055	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1628	1727	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42794	42893	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23092	23191	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1665	1764	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19462	19561	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3956	4055	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1628	1727	
==>S

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11952	12073	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3463	3584	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11952	12073	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3463	3584	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11952	12073	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3463	3584	
==>PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8387	8502	
==>PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8387	8502	
==>PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8387	8502	
==>PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1488	1595	
==>ement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_l <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1488	1595	
==>ement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_l <==
11	/Users/nnunley/pugs/blib6/lib/fp.pm	2579	2677	
==>) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewh <==
11	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2579	2677	
==>) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewh <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3041	3157	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10964	11080	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12228	12344	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6166	6282	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6795	6911	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3041	3157	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10964	11080	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12228	12344	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6166	6282	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6795	6911	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	293	407	
==>_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_r <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4110	4224	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6759	6873	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4345	4456	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10794	10905	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4345	4456	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10794	10905	
==>atch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $ma <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35625	35716	
==>le $other!) returns Relation::Example>

This multi-method is a generic binary relational ope <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36722	36813	
==>le $other!) returns Relation::Example>

This multi-method is a generic binary relational ope <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37222	37313	
==>le $other!) returns Relation::Example>

This multi-method is a generic binary relational ope <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39270	39361	
==>le $other!) returns Relation::Example>

This multi-method is a generic binary relational ope <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39818	39909	
==>le $other!) returns Relation::Example>

This multi-method is a generic binary relational ope <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9903	10074	
==>t::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              n <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	471	634	
==>t::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            n <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	471	634	
==>t::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            n <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1615	1735	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2196	2316	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3666	3786	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1615	1735	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2196	2316	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3666	3786	
==>y of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2991	3105	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2991	3105	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_pa <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32509	32611	
==>lf->nparen ];
  }

That means that when an 'open' node is walked into, after it has
been walk()ed, it w <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	40	137	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	26	123	
==>se strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expo <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33620	33717	
==>s an ordered list one or more elements where each
element is a Template module Member Name and usu <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33620	33717	
==>s an ordered list one or more elements where each
element is a Template module Member Name and usu <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24424	24517	
==>rom its member classes, usually invoking C<new()> on
the appropriate class name, and then invo <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20466	20559	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22056	22149	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9329	9422	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24424	24517	
==>rom its member classes, usually invoking C<new()> on
the appropriate class name, and then invo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25018	25111	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23588	23681	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22056	22149	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9329	9422	
==>rom its member classes, usually invoking C<new()> on the
appropriate class name, and then invo <==
11	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3167	3287	
==>find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = LoadFile( $Avail <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12610	12721	
==>um {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	634	739	
==>tart() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11 <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	634	739	
==>tart() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11 <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	634	739	
==>tart() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11 <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5000	5097	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3228	3325	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5000	5097	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3228	3325	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5000	5097	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3228	3325	
==>$label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self) <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10159	10366	
==>y, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10159	10366	
==>y, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10159	10366	
==>y, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4252	4385	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6901	7034	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4483	4612	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10932	11061	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4483	4612	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10932	11061	
==>= %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8647	8763	
==>g_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    m <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8643	8759	
==>g_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    m <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11822	11977	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3333	3488	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11822	11977	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3333	3488	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11822	11977	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3333	3488	
==>ct!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          back <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8265	8410	
==>ct!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8265	8410	
==>ct!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        back <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8265	8410	
==>ct!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        back <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2624	2720	
==>put.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libr <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2624	2720	
==>put.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libr <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2238	2435	
==>Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                fro <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2298	2495	
==>Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                fro <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1006	1155	
==>Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fro <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1438	1587	
==>Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fro <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1006	1155	
==>Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fro <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1438	1587	
==>Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fro <==
11	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	357	486	
==>d1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    pr <==
11	/Users/nnunley/pugs/lib/Inline/Pugs.pm	357	486	
==>d1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    pr <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3888	4000	
==>Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefin <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3888	4000	
==>Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefin <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3888	4000	
==>Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefin <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25400	25608	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26058	26266	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25679	25887	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26337	26545	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13168	13291	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13168	13291	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13168	13291	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5408	5531	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3908	4031	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2053	2176	
==>$size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len <==
11	/Users/nnunley/pugs/util/run-smoke.pl	1779	1863	
==>l_harness_args,'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
p <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12116	12247	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3738	3869	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12116	12247	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3738	3869	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12116	12247	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3738	3869	
==>tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     su <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6842	6970	
==>tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6842	6970	
==>tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    su <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6842	6970	
==>tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    su <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12824	12932	
==>g be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_pat <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12824	12932	
==>g be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_pat <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3887	3992	
==>rl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3887	3992	
==>rl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $pa <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1500	1591	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $s <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1500	1591	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $s <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1500	1591	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $s <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19272	19362	
==>= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19272	19362	
==>= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19272	19362	
==>= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	341	430	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $s <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	341	430	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $s <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	341	430	
==>lf->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $s <==
11	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1015	1128	
==>te accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave acce <==
11	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1015	1128	
==>te accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave acce <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	9818	9927	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	10799	10908	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	12270	12379	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13295	13404	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14276	14385	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15747	15856	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12567	12676	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13575	13684	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15100	15209	
==>e efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources h <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10641	10749	
==>a( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.ref <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10641	10749	
==>a( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.ref <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10641	10749	
==>a( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.ref <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6557	6663	
==>es, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<. <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6557	6663	
==>es, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<. <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6557	6663	
==>es, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<. <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	407	512	
==>ass;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalon <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	407	512	
==>ass;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalon <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	407	512	
==>ass;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalon <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	864	962	
==>ype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	864	962	
==>ype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12523	12664	
==>thod status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $s <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3911	4051	
==>l ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$a <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5135	5275	
==>l ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$a <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2893	3028	
==>thod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $s <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2893	3028	
==>thod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $s <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11524	11657	
==>thod status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $s <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11965	12097	
==>thod status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $s <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1964	2091	
==>thod status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $s <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1964	2091	
==>thod status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $s <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2373	2499	
==>thod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $s <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2373	2499	
==>thod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $s <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2690	2817	
==>" . $role->id . " [ dir = back, style = solid, color = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, "> <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23166	23256	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1739	1829	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19536	19626	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4030	4120	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1702	1792	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23166	23256	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1739	1829	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19536	19626	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4030	4120	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1702	1792	
==>t also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loca <==
11	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2443	2540	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2460	2557	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3514	3611	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1898	1995	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2330	2427	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2443	2540	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2460	2557	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3514	3611	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1898	1995	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2330	2427	
==>ary is free software . You can redistribute it and/or modify
it under the same terms as perl itsel <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6292	6387	
==>ck|Bare|Parametric)\z/) {
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if r <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7676	7791	
==>{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12017	12132	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2474	2587	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9246	9359	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7416	7529	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2474	2587	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9246	9359	
==>{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $d <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39440	39534	
==>GHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 20 <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5175	5269	
==>GHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 20 <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39440	39534	
==>GHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 20 <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5175	5269	
==>GHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 20 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	477	582	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	462	567	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1447	1552	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	963	1068	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	473	578	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	477	582	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	462	567	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1447	1552	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	963	1068	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	473	578	
==>et_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rose <==
11	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	973	1069	
==>_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject to <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6560	6673	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9530	9643	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6560	6673	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9530	9643	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6560	6673	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9530	9643	
==>fess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMeth <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7537	7643	
==>e)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7537	7643	
==>e)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	36870	36970	
==>),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations hav <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41419	41519	
==>),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations hav <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41042	41142	
==>),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations hav <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2233	2360	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1345	1472	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1909	2036	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2233	2360	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1345	1472	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1909	2036	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2233	2360	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1345	1472	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1909	2036	
==>is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we ha <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3156	3262	
==>&&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3144	3250	
==>&&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3011	3128	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10934	11051	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12198	12315	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6136	6253	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6765	6882	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3011	3128	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10934	11051	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12198	12315	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6136	6253	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6765	6882	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defin <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4719	4803	
==>:Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE_ <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5271	5393	
==>'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5271	5393	
==>'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	9859	9973	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	10840	10954	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	12311	12425	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13336	13450	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14317	14431	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15788	15902	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12608	12722	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13616	13730	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15141	15255	
==>dy.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retur <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4458	4566	
==>ite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't cl <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4458	4566	
==>ite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't cl <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4458	4566	
==>ite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't cl <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20719	20819	
==>ce.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and t <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20719	20819	
==>ce.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and t <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1964	2060	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4260	4356	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1927	2023	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1964	2060	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4260	4356	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1927	2023	
==>setta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27518	27721	
==>perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    n <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27518	27721	
==>perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    n <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27518	27721	
==>perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    n <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19928	20039	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17067	17178	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19928	20039	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17067	17178	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19928	20039	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17067	17178	
==>'Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribute <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12191	12285	
==>he parameter is a member of the recurrence.
Otherwise, returns the previous element in the recu <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12191	12285	
==>he parameter is a member of the recurrence.
Otherwise, returns the previous element in the recu <==
11	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while3.pl	54	164	
==>$i = 1;
do { # keine echte Schleife...
	print "$i\n"; $i++;
	# last if $i==3; # ... würde nicht gehen!
} while <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27681	27836	
==>b {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque $self:) <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9400	9506	
==>my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5 <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9400	9506	
==>my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5 <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9400	9506	
==>my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5 <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1511	1608	
==>It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compile <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1511	1608	
==>It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compile <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3888	3981	
==>lass, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the righ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5790	5883	
==>lass, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the righ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1173	1262	
==>round this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1173	1262	
==>round this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1173	1262	
==>round this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	502	642	
==>nce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	707	847	
==>nce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	763	903	
==>nce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' = <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29128	29237	
==>:L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key} <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29128	29237	
==>:L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key} <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	471	572	
==>:L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	555	656	
==>:L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22058	22154	
==>om_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nic <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20939	21035	
==>om_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nic <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22058	22154	
==>om_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nic <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20939	21035	
==>om_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nic <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20854	20973	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21046	21165	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21498	21617	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21693	21812	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21877	21996	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17275	17394	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17467	17586	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17919	18038	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18114	18233	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18298	18417	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
11	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8592	8704	
==>dler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(Sv <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18367	18481	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8637	8751	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15605	15719	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18367	18481	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8637	8751	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15605	15719	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18367	18481	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8637	8751	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15605	15719	
==>t correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->h <==
11	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4247	4350	
==>l the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens. <==
11	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4247	4350	
==>l the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens. <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11461	11559	
==>y do not
interact with the outside environment at all.

A Document object has 2 main attributes:

= <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11461	11559	
==>y do not
interact with the outside environment at all.

A Document object has 2 main attributes:

= <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4675	4757	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6002	6084	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8197	8279	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4675	4757	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6002	6084	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8197	8279	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4675	4757	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6002	6084	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8197	8279	
==>: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28849	29009	
==>Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# --- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28849	29009	
==>Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# --- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28849	29009	
==>Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# --- <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4294	4409	
==>lue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time int <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5615	5730	
==>lue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time int <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4294	4409	
==>lue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time int <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5603	5718	
==>lue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time int <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	12013	12108	
==>ns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$ <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9134	9229	
==>ns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$ <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12013	12108	
==>ns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$ <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9134	9229	
==>ns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$ <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	10	109	
==>/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Loc <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5235	5327	
==>RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (p <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1767	1904	
==>$0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT <==
11	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1767	1904	
==>$0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5664	5780	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8634	8750	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5664	5780	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8634	8750	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5664	5780	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8634	8750	
==>being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplic <==
11	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	100	199	
==>ct;
use Config;
use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Carp;

sub WritePugs <==
11	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	137	234	
==>.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_ <==
11	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	137	234	
==>.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_ <==
11	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4748	4957	
==>type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basenam <==
11	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4012	4181	
==>type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basenam <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13428	13576	
==>type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basenam <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11398	11526	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16128	16256	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11398	11526	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16128	16256	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11398	11526	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16128	16256	
==>vent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        re <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3482	3594	
==>ge Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3699	3811	
==>ge Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	5	105	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use <==
11	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3403	3535	
==>on.values».members };
                    default { take %.subscriptions<$_>.members }
                    # FIXME look at superclas <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6146	6271	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9116	9241	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6146	6271	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9116	9241	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6146	6271	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9116	9241	
==>) {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sam <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18738	18832	
==>ping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connecti <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17781	17875	
==>ping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connecti <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18738	18832	
==>ping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connecti <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17781	17875	
==>ping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connecti <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11610	11725	
==>..
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @ <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11610	11725	
==>..
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @ <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11610	11725	
==>..
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @ <==
11	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	844	956	
==>,  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM:: <==
11	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	844	956	
==>,  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM:: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3391	3499	
==>Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3391	3499	
==>Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3391	3499	
==>Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6672	6770	
==>xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptiona <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6672	6770	
==>xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptiona <==
11	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	11	107	
==>perl

package Blondie::Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::U <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43170	43332	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46514	46676	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47635	47797	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35495	35650	
==>arams => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6700	6849	
==>arams => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36420	36568	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37955	38103	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7877	8024	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8824	8971	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9783	9929	
==>arams => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' = <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3874	3999	
==>g" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = su <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7817	7980	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5376	5539	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7817	7980	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5376	5539	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7817	7980	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5376	5539	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1505	1668	
==>, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            la <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33889	33983	
==>language they prefer to communicate in, and what their backup choices are,
in order, if preferr <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33889	33983	
==>language they prefer to communicate in, and what their backup choices are,
in order, if preferr <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7204	7294	
==>sh @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Pe <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1029	1119	
==>sh @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Pe <==
11	/Users/nnunley/pugs/misc/S29_round.pl	3086	3251	
==>= round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20173	20309	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17312	17448	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20173	20309	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17312	17448	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20173	20309	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17312	17448	
==>bel, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
11	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	614	718	
==>ives
    if( my $aref = $alts->{ $struct->{package} }->{bin} ) {
        print "\t*** Primary alternative <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4334	4422	
==>eClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4334	4422	
==>eClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4334	4422	
==>eClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	835	926	
==>Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod( <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	835	926	
==>Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod( <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	835	926	
==>Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod( <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23217	23304	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1790	1877	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4081	4168	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1753	1840	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23217	23304	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1790	1877	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4081	4168	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1753	1840	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also re <==
11	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	649	776	
==>ts;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_t <==
11	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	649	776	
==>ts;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_t <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11672	11791	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3184	3303	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11672	11791	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3184	3303	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11672	11791	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3184	3303	
==>tion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8120	8233	
==>tion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8120	8233	
==>tion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8120	8233	
==>tion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1283	1392	
==>ery invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed th <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1283	1392	
==>ery invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed th <==
11	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1283	1392	
==>ery invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed th <==
11	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1877	1974	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	507	604	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1645	1742	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13953	14050	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1877	1974	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	507	604	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1645	1742	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13953	14050	
==>OR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rig <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	609	762	
==>S}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($co <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	609	762	
==>S}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($co <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	609	762	
==>S}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($co <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3719	3862	
==>_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1943	2068	
==>$editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $nam <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1943	2068	
==>$editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $nam <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1943	2068	
==>$editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $nam <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5809	5908	
==>>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, A <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5809	5908	
==>>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, A <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5809	5908	
==>>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, A <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5547	5643	
==>$_[0],'$<condition>'));
    my $then = emit(get_data($_[0],'$<then>'));
    return "$op ($conditi <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8458	8608	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8719	8869	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13969	14119	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14444	14594	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8458	8608	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8719	8869	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13963	14113	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14438	14588	
==>$cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5055	5147	
==>_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5055	5147	
==>_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5055	5147	
==>_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5000	5139	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5961	6100	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5000	5139	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5961	6100	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5000	5139	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5961	6100	
==>alue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => -- <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	542	657	
==>es;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	542	657	
==>es;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8324	8438	
==>L::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::I <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8324	8438	
==>L::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::I <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8324	8438	
==>L::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::I <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29983	30083	
==>on of this object.  It does not look at the
children of the object, just itself.  This is used primar <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	31825	31917	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	32841	32933	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	33296	33388	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	35164	35256	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	35676	35768	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36375	36467	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37391	37483	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37846	37938	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39714	39806	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40226	40318	
==>elation $other!) returns Relation>

This multi-method is a generic binary relational operator <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	881	987	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1043	1149	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1259	1365	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1477	1583	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2917	3023	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	881	987	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1043	1149	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1259	1365	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1477	1583	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2917	3023	
==>=> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34248	34347	
==>n Perl.  We will support this with the '&'
metacharacter.

We have added a handler for the '&' metac <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18724	18904	
==>)
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %params) returns nil {
    for %para <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23126	23226	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1699	1799	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19496	19596	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3990	4090	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1662	1762	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23126	23226	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1699	1799	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19496	19596	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3990	4090	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1662	1762	
==>of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Loca <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23258	23353	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1831	1926	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4122	4217	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1794	1889	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23258	23353	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1831	1926	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4122	4217	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1794	1889	
==>e::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curre <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23374	23468	
==>monk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
m <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41298	41392	
==>monk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
m <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37324	37418	
==>monk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
m <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1692	1799	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1862	1969	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2086	2193	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2312	2419	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3249	3356	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1692	1799	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1862	1969	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2086	2193	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2312	2419	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3249	3356	
==>=> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KE <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24203	24304	
==>lf = shift;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visua <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4887	5026	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5848	5987	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6976	7115	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4887	5026	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5848	5987	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6976	7115	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4887	5026	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5848	5987	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6976	7115	
==>ent' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decr <==
11	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15241	15337	
==>d (without changing the input string).

If you prefer not to import these routines into your name <==
11	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15241	15337	
==>d (without changing the input string).

If you prefer not to import these routines into your name <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7820	7982	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5379	5541	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7820	7982	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5379	5541	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7820	7982	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5379	5541	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1508	1670	
==>f 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last <==
11	/Users/nnunley/pugs/blib6/lib/Test.pm	2202	2313	
==>:$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
11	/Users/nnunley/pugs/blib6/lib/Test.pm	2597	2708	
==>:$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
11	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2260	2371	
==>:$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
11	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2655	2766	
==>:$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(u <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2056	2201	
==>= shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6999	7143	
==>= shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1828	1968	
==>= shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8413	8553	
==>= shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1828	1968	
==>= shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8413	8553	
==>= shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6765	6904	
==>= shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
11	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2490	2613	
==>! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    return <==
11	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2490	2613	
==>! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    return <==
11	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1665	1784	
==>Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => ' <==
11	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1665	1784	
==>Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => ' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3363	3492	
==>one JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $in <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3363	3492	
==>one JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $in <==
11	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3363	3492	
==>one JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $in <==
11	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	814	934	
==>\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr eq "\\") {
	    print "\\textb <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	879	984	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1272	1377	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1902	2007	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2337	2442	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2774	2879	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	879	984	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1272	1377	
==>substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5796	5916	
==>nless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{cap <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5612	5729	
==>nless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{cap <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17635	17747	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8216	8328	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14855	14967	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17635	17747	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8216	8328	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14855	14967	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17635	17747	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8216	8328	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14855	14967	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method <==
11	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	183	286	
==>nt COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = <==
11	/Users/nnunley/pugs/lib/Inline/Pugs.pm	183	286	
==>nt COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24764	24862	
==>ption; most often this is due to invalid input.  If an invoked routine
simply returns, you can assu <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20803	20901	
==>ption;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assu <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22378	22476	
==>ption;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assu <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9664	9762	
==>ption; most often this is due to invalid input.  If an invoked routine
simply returns, you can assu <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24764	24862	
==>ption; most often this is due to invalid input.  If an invoked routine
simply returns, you can assu <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25355	25453	
==>ption;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assu <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23943	24041	
==>ption;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assu <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22378	22476	
==>ption;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assu <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9664	9762	
==>ption; most often this is due to invalid input.  If an invoked routine
simply returns, you can assu <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1606	1726	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2187	2307	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3657	3777	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1606	1726	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2187	2307	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3657	3777	
==>ake a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $pa <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2982	3096	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $pa <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2982	3096	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $pa <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6648	6750	
==>= @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6648	6750	
==>= @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6648	6750	
==>= @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self- <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21339	21457	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22460	22578	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23023	23141	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17760	17878	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18881	18999	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19444	19562	
==>c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # l <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1381	1485	
==>) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1381	1485	
==>) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3871	3971	
==>x:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3871	3971	
==>x:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3871	3971	
==>x:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9306	9444	
==>elete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exis <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9306	9444	
==>elete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exis <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5460	5574	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8430	8544	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5460	5574	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8430	8544	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5460	5574	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8430	8544	
==>returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will o <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4078	4170	
==>tainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4078	4170	
==>tainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4078	4170	
==>tainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1 <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11330	11440	
==>>{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "exact" <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	884	990	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1046	1152	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1262	1368	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1480	1586	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2920	3026	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	884	990	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1046	1152	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1262	1368	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1480	1586	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2920	3026	
==>q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is <==
11	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3349	3649	
==>0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                S <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4932	5070	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5893	6031	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7021	7159	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4932	5070	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5893	6031	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7021	7159	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4932	5070	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5893	6031	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7021	7159	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12116	12240	
==>end('bless' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: s <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7080	7214	
==>) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7068	7202	
==>) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return <==
11	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1888	1981	
==>support for match flags; regexes constructed with this module may cause
segfaults on C<split>, <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4428	4520	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4683	4775	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4930	5022	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4428	4520	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4683	4775	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4930	5022	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4173	4264	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4173	4264	
==>index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23067	23166	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1640	1739	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19437	19536	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3931	4030	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1603	1702	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42769	42868	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23067	23166	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1640	1739	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19437	19536	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3931	4030	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1603	1702	
==>ing.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8815	8973	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11788	11946	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8815	8973	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11788	11946	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8815	8973	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11788	11946	
==>hod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3260	3377	
==>ad of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir] )                and error($?), retu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	844	954	
==>.



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying the whole string <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1213	1318	
==>.

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	812	917	
==>.

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1213	1318	
==>.

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8702	8878	
==>= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of t <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12179	12355	
==>= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of t <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18418	18546	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15656	15784	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18418	18546	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15656	15784	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18418	18546	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15656	15784	
==>{
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $se <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1797	1897	
==>y lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1797	1897	
==>y lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1797	1897	
==>y lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value <==
11	/Users/nnunley/pugs/blib6/lib/CGI.pm	9396	9559	
==>2");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            w <==
11	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9396	9559	
==>2");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            w <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25099	25194	
==>and deterministic,
such that all of its class and object methods will each return the same
resul <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	22336	22431	
==>and deterministic, such that all of its class
and object methods will each return the same resul <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11230	11325	
==>and deterministic,
such that all of its class and object methods will each return the same
resul <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14503	14598	
==>and deterministic, such that all of its class and
object methods will each return the same resul <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25099	25194	
==>and deterministic,
such that all of its class and object methods will each return the same
resul <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26888	26983	
==>and deterministic, such that all of its class
and object methods will each return the same resul <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25611	25706	
==>and deterministic, such that all of its class
and object methods will each return the same resul <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11230	11325	
==>and deterministic,
such that all of its class and object methods will each return the same
resul <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14503	14598	
==>and deterministic, such that all of its class and
object methods will each return the same resul <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	73	171	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	784	882	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1907	2005	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	73	171	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	784	882	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1907	2005	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	73	171	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	784	882	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1907	2005	
==>a("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETC <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	170	266	
==>ring = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
* <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	170	266	
==>ring = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
* <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38417	38510	
==>sg_vars into it, where each variable value is
substituted for any occurance of its correspondi <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38417	38510	
==>sg_vars into it, where each variable value is
substituted for any occurance of its correspondi <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23233	23321	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1806	1894	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4097	4185	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1769	1857	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23233	23321	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1806	1894	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4097	4185	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1769	1857	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2126	2214	
==>closure got(" . $args->length()->to_native . ") expected(" . $params->length->to_native . <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	6806	6940	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	7567	7701	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8437	8571	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10283	10417	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11044	11178	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11914	12048	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9393	9527	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10199	10333	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11114	11248	
==>rs does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    m <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2503	2603	
==>error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export( <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2503	2603	
==>error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export( <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9540	9665	
==>ft;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringi <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9540	9665	
==>ft;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringi <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9540	9665	
==>ft;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringi <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8270	8381	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    l <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8270	8381	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    l <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8270	8381	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    l <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16492	16584	
==>ly integrated database functionality;
this language, which satisfies TTM's definition of a "D <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16492	16584	
==>ly integrated database functionality;
this language, which satisfies TTM's definition of a "D <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23926	24013	
==>on($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23926	24013	
==>on($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23926	24013	
==>on($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$ <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6521	6643	
==>ix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error messag <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6521	6643	
==>ix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error messag <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3125	3243	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11048	11166	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6250	6368	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3125	3243	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11048	11166	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6250	6368	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val e <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1109	1210	
==>}

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newl <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1109	1210	
==>}

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newl <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1109	1210	
==>}

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newl <==
11	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4883	5096	
==>return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_conti <==
11	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4883	5096	
==>return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_conti <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10474	10635	
==>return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_conti <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10474	10635	
==>return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_conti <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10474	10635	
==>return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_conti <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6815	6968	
==>my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11375	11523	
==>my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12173	12321	
==>my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12900	13048	
==>my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA <==
11	/Users/nnunley/pugs/blib6/lib/CGI.pm	11806	11896	
==>hazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan <==
11	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11806	11896	
==>hazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2603	2751	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5608	5756	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1293	1441	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2969	3117	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2603	2751	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5608	5756	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1293	1441	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2969	3117	
==>dling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2810	2913	
==>::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2810	2913	
==>::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @ <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2810	2913	
==>::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1671	1786	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUT <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14818	14930	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19517	19629	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14818	14930	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19517	19629	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1099	1211	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1304	1416	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1365	1477	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14818	14930	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19517	19629	
==>sa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUT <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1374	1484	
==>eturn $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    ret <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11075	11181	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11571	11677	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11750	11856	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11075	11181	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11571	11677	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11750	11856	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11075	11181	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11571	11677	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11750	11856	
==>, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value: <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2209	2307	
==>mand {

    # External packages used by the Rosetta::Interface::Command class, that do export symbo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2209	2307	
==>mand {

    # External packages used by the Rosetta::Interface::Command class, that do export symbo <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1851	1968	
==>while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0, <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1851	1968	
==>while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0, <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24408	24500	
==>eating objects from its member classes, usually invoking C<new()> on
the appropriate class na <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20450	20542	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22040	22132	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9313	9405	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24408	24500	
==>eating objects from its member classes, usually invoking C<new()> on
the appropriate class na <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25002	25094	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23572	23664	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22040	22132	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9313	9405	
==>eating objects from its member classes, usually invoking C<new()> on the
appropriate class na <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	176	281	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	178	283	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	191	296	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	168	273	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	172	277	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	35900	35994	
==>l common attribute names
and corresponding common tuple values are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	37643	37737	
==>l common attribute names and corresponding common tuple values
are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40450	40544	
==>l common attribute names
and corresponding common tuple values are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42192	42286	
==>l common attribute names and corresponding common tuple values
are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40064	40158	
==>l common attribute names
and corresponding common tuple values are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41842	41936	
==>l common attribute names and corresponding common tuple values
are aligned and merged.  The hea <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1825	1927	
==>de) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at l <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1825	1927	
==>de) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at l <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1825	1927	
==>de) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at l <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	6864	6959	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5994	6089	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2648	2743	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2648	2743	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6864	6959	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5994	6089	
==>*infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
11	/Users/nnunley/pugs/blib6/lib/Test.pm	16127	16215	
==>erson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch <==
11	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16185	16273	
==>erson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	415	580	
==>= $self->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4963	5084	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5924	6045	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7052	7173	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4963	5084	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5924	6045	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7052	7173	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4963	5084	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5924	6045	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7052	7173	
==>::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed' <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13937	14055	
==>{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $t <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1290	1399	
==>k.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impor <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1290	1399	
==>k.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impor <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1290	1399	
==>k.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impor <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19842	19939	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16981	17078	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19842	19939	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16981	17078	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19842	19939	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16981	17078	
==>rrect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attr <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13773	13869	
==>ss_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is call <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13773	13869	
==>ss_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is call <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3828	3943	
==>nt {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $ <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3828	3943	
==>nt {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	444	555	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	442	553	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	444	555	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	442	553	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	444	555	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	442	553	
==>ique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4362	4471	
==>nt {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $ <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4362	4471	
==>nt {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $ <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10353	10457	
==>l .= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes becau <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23070	23177	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1643	1750	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19440	19547	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3934	4041	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1606	1713	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42772	42879	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23070	23177	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1643	1750	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19440	19547	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3934	4041	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1606	1713	
==>.>

=head1 DEPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requi <==
11	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5540	5677	
==>fy =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Li <==
11	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5540	5677	
==>fy =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Li <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3989	4078	
==>---------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------- <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4012	4101	
==>----------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4035	4124	
==>-----
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------------------------- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3989	4078	
==>---------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4012	4101	
==>----------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4035	4124	
==>-----
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------------------------- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3989	4078	
==>---------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------- <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4012	4101	
==>----------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4035	4124	
==>-----
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------------------------- <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1345	1461	
==>hings
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!ch <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1345	1461	
==>hings
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!ch <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	58	160	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	769	871	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1892	1994	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	58	160	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	769	871	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1892	1994	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	58	160	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	769	871	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1892	1994	
==>{
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = a <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1991	2118	
==>s{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($d <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1991	2118	
==>s{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($d <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24785	24884	
==>s is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20824	20923	
==>s is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22399	22498	
==>s is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9685	9784	
==>s is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24785	24884	
==>s is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25376	25475	
==>s is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23964	24063	
==>s is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22399	22498	
==>s is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9685	9784	
==>s is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeed <==
11	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2853	2957	
==>g properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $da <==
11	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2853	2957	
==>g properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $da <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13565	13653	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13708	13796	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13851	13939	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13565	13653	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13708	13796	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13851	13939	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13565	13653	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13708	13796	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13851	13939	
==>:PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl(' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7916	8056	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5475	5615	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7916	8056	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5475	5615	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7916	8056	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5475	5615	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1604	1744	
==>ast if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand <==
11	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	432	529	
==>param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<dens <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	432	529	
==>param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<dens <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20178	20267	
==>$event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20178	20267	
==>$event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1096	1218	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1336	1458	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1096	1218	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1336	1458	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1096	1218	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1336	1458	
==>) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2395	2516	
==>) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2395	2516	
==>) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2395	2516	
==>) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
11	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3418	3516	
==>erl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Ad <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3418	3516	
==>erl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Ad <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9276	9388	
==>tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPar <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9276	9388	
==>tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPar <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9276	9388	
==>tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPar <==
11	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1892	1986	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	522	616	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1660	1754	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13968	14062	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1892	1986	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	522	616	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1660	1754	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13968	14062	
==>lock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6860	6959	
==>a = get_meta($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown c <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	38	129	
==>ckages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72 <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23097	23210	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1670	1783	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19467	19580	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3961	4074	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1633	1746	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42799	42912	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23097	23210	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1670	1783	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19467	19580	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3961	4074	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1633	1746	
==>is file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17586	17696	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8167	8277	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14806	14916	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17586	17696	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8167	8277	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14806	14916	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17586	17696	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8167	8277	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14806	14916	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label = <==
11	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1613	1707	
==>hen launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from th <==
11	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1453	1547	
==>hen launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from th <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23249	23342	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1822	1915	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4113	4206	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1785	1878	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23249	23342	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1822	1915	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4113	4206	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1785	1878	
==>..)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are i <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13066	13153	
==>"(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13066	13153	
==>"(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13066	13153	
==>"(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5459	5560	
==>ata") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($f <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5459	5560	
==>ata") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($f <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5459	5560	
==>ata") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($f <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23213	23300	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1786	1873	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4077	4164	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1749	1836	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23213	23300	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1786	1873	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4077	4164	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1749	1836	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It als <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3089	3205	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11012	11128	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6214	6330	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3089	3205	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11012	11128	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6214	6330	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $met <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7747	7863	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match: <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7940	8056	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match: <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	210	310	
==>lass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	210	310	
==>lass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	210	310	
==>lass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set( <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3448	3608	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6384	6544	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3448	3608	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6384	6544	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3448	3608	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6384	6544	
==>GE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, w <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6320	6466	
==>0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bo <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6320	6466	
==>0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bo <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7738	7849	
==>gs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7738	7849	
==>gs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7738	7849	
==>gs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7747	7889	
==>w('has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1380	1477	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1299	1396	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2312	2409	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1826	1923	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1354	1451	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1380	1477	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1299	1396	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2312	2409	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1826	1923	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1354	1451	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12082	12209	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3704	3831	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12082	12209	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3704	3831	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12082	12209	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3704	3831	
==>)->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')- <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6808	6933	
==>)->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6808	6933	
==>)->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')- <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6808	6933	
==>)->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')- <==
11	/Users/nnunley/pugs/blib6/lib/Span.pm	13548	13643	
==>=> $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays ) <==
11	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13548	13643	
==>=> $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays ) <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	25017	25144	
==>n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21438	21565	
==>n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	5	114	
==>$x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$s <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15970	16079	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20687	20796	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	5	114	
==>$x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$s <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	5	114	
==>$x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$s <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15970	16079	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20687	20796	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15970	16079	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20687	20796	
==>e::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => su <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4602	4703	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4849	4950	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4602	4703	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4849	4950	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4093	4193	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4348	4448	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4093	4193	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4348	4448	
==>tring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@in <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1965	2053	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1965	2053	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1965	2053	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2J <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	6430	6544	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	7183	7297	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8047	8161	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8828	8942	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9907	10021	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10660	10774	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11524	11638	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12305	12419	
==>her!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	941	1040	
==>e and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying ar <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	941	1040	
==>e and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying ar <==
11	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	941	1040	
==>e and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying ar <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5692	5811	
==>A/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5692	5811	
==>A/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5692	5811	
==>A/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	213	322	
==>Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	213	322	
==>Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$ <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	213	322	
==>Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$ <==
11	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	285	388	
==>f: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOP <==
11	/Users/nnunley/pugs/util/package-osx.pl	4361	4458	
==>man3/Perl6::Bible::E06.3pm
        /usr/local/man/man3/Perl6::Bible::E07.3pm
        /usr/local/ma <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2729	2825	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)", <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2729	2825	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)", <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2729	2825	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)", <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9590	9826	
==>rovides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, <==
11	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11067	11303	
==>rovides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11812	11956	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3323	3467	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11812	11956	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3323	3467	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11812	11956	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3323	3467	
==>array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8255	8391	
==>array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8255	8391	
==>array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8255	8391	
==>array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2J <==
11	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6164	6315	
==>t {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we hav <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5237	5388	
==>t {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we hav <==
11	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6164	6315	
==>t {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we hav <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5237	5388	
==>t {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we hav <==
11	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8809	8908	
==>e." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25590	25677	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27785	27872	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25590	25677	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27785	27872	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25590	25677	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27785	27872	
==>$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scala <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4506	4645	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7018	7157	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4506	4645	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7018	7157	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4506	4645	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7018	7157	
==>just add a private method in here...
                    # there is no real distinction between the
                    # private class meth <==
11	/Users/nnunley/pugs/blib6/lib/Tree.pm	6274	6369	
==>f.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    ( <==
11	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6274	6369	
==>f.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    ( <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11705	11790	
==>:Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eva <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11705	11790	
==>:Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eva <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11705	11790	
==>:Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eva <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	9806	9915	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	10787	10896	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	12258	12367	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13283	13392	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14264	14373	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15735	15844	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12555	12664	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13563	13672	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15088	15197	
==>that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Bo <==
11	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3677	3772	
==>ed.

This module is primarily for reading human written files, and anything we
write shouldn't n <==
11	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3677	3772	
==>ed.

This module is primarily for reading human written files, and anything we
write shouldn't n <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16165	16332	
==>" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"pr <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16159	16326	
==>" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"pr <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14116	14242	
==>e $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14116	14242	
==>e $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14116	14242	
==>e $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
11	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6378	6504	
==>e $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
11	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4880	5006	
==>e $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
11	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1874	1998	
==>") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @arg <==
11	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1874	1998	
==>") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @arg <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	117	227	
==>mpiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        re <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	117	227	
==>mpiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        re <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9285	9413	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12258	12386	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9285	9413	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12258	12386	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9285	9413	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12258	12386	
==>e Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::S <==
11	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	232	340	
==>{ @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $d <==
11	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	305	413	
==>{ @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $d <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1368	1464	
==>lf.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shif <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1368	1464	
==>lf.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shif <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1368	1464	
==>lf.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shif <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29238	29365	
==>_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29517	29644	
==>_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	94	180	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	439	525	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	75	161	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	94	180	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	439	525	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	75	161	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	94	180	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	439	525	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	75	161	
==>e lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bi <==
11	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1434	1546	
==>akefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pu <==
11	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1434	1546	
==>akefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pu <==
11	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2888	2999	
==>akefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pu <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	792	901	
==>atch->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	792	901	
==>atch->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5794	5899	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3914	4019	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5794	5899	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3914	4019	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5794	5899	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3914	4019	
==>s circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses' <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7503	7651	
==>nt_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7503	7651	
==>nt_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	436	538	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	656	758	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	811	913	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	436	538	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	656	758	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	811	913	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	436	538	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	656	758	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	811	913	
==>ring(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	6793	6917	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	7554	7678	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8424	8548	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10270	10394	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11031	11155	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11901	12025	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9380	9504	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10186	10310	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11101	11225	
==>tion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $ <==
11	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5601	5697	
==>! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite:: <==
11	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5601	5697	
==>! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite:: <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3159	3310	
==>gs::Compiler::Rule' );

=for pod
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1699	1806	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1869	1976	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2093	2200	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2319	2426	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3256	3363	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1699	1806	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1869	1976	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2093	2200	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2319	2426	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3256	3363	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	309	426	
==><run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of th <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	313	430	
==><run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of th <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2591	2708	
==>PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	309	426	
==><run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of th <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	313	430	
==><run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of th <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2591	2708	
==>PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2591	2708	
==>PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24683	24780	
==>gged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop i <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23447	23544	
==>gged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop i <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24683	24780	
==>gged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop i <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23447	23544	
==>gged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop i <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4751	4854	
==>it->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $:: <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4751	4854	
==>it->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $:: <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4751	4854	
==>it->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $:: <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8478	8577	
==>['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8478	8577	
==>['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25615	25713	
==>as an exception payload).  The key is intended to be read by a machine and
mapped to a user-readabl <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25615	25713	
==>as an exception payload).  The key is intended to be read by a machine and
mapped to a user-readabl <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21877	21972	
==>message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20758	20853	
==>message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21877	21972	
==>message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20758	20853	
==>message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2187	2340	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1299	1452	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1863	2016	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2187	2340	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1299	1452	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1863	2016	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2187	2340	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1299	1452	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1863	2016	
==>{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # its <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17187	17308	
==>, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handl <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17187	17308	
==>, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handl <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7597	7731	
==>p {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11938	12072	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2399	2528	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9171	9300	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7341	7470	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2399	2528	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9171	9300	
==>p {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	6190	6286	
==>*infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *i <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5320	5416	
==>*infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *i <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6190	6286	
==>*infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *i <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5320	5416	
==>*infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *i <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9713	9848	
==>new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'r <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9713	9848	
==>new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'r <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9713	9848	
==>new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'r <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4427	4530	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4651	4754	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4427	4530	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4651	4754	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4427	4530	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4651	4754	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3583	3686	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3951	4054	
==>k, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=> <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4661	4772	
==>ms and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::P <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4661	4772	
==>ms and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::P <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4661	4772	
==>ms and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::P <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	7119	7218	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6249	6348	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2903	3002	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2903	3002	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7119	7218	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6249	6348	
==>multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these me <==
11	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3671	3765	
==>eveloped.

This module is primarily for reading human written files, and anything we
write shou <==
11	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3671	3765	
==>eveloped.

This module is primarily for reading human written files, and anything we
write shou <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2896	3029	
==>e.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub n <==
11	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1518	1651	
==>e.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub n <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12184	12311	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3806	3933	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12184	12311	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3806	3933	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12184	12311	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3806	3933	
==>' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6909	7034	
==>' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6909	7034	
==>' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6909	7034	
==>' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaM <==
11	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3612	3696	
==>6_concatenation_more(W, Z) --> p6_quantified(X), p6_concatenation_more(conc(W,X), Z), <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11583	11740	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3095	3252	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11583	11740	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3095	3252	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11583	11740	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3095	3252	
==>arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr ins <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8040	8184	
==>arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8040	8184	
==>arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr ins <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8040	8184	
==>arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr ins <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11261	11356	
==>gistered_alternative( package => $inst_pkg )

=cut

sub remove_registered_alternative {
    my $ <==
11	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7775	7868	
==>p::Parser::anyof_char;
}
{
  package Regexp::Parser::anyof_range;
}
{
  package Regexp::Parser <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11952	12087	
==>}
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12510	12645	
==>}
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11511	11645	
==>}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2364	2489	
==>}

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2884	3009	
==>}

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2364	2489	
==>}

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2884	3009	
==>}

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1955	2079	
==>}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1955	2079	
==>}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	24422	24521	
==>t_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elem <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28974	29073	
==>t_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elem <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11975	12084	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3486	3595	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	346	455	
==>> { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_e <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11975	12084	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3486	3595	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11975	12084	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3486	3595	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BIN <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8408	8513	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BIN <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8408	8513	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BIN <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8408	8513	
==>ackup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BIN <==
11	/Users/nnunley/pugs/util/catalog_tests.pl	2384	2487	
==>that we mean to insert.
# Top level index is file, second level is an array ref of hash refs.
# FIXME: D <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12008	12142	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3519	3653	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12008	12142	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3519	3653	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12008	12142	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3519	3653	
==>H;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8441	8567	
==>H;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8441	8567	
==>H;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8441	8567	
==>H;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < <==
11	/Users/nnunley/pugs/blib6/lib/Tree.pm	4755	4880	
==>ld = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) <==
11	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4755	4880	
==>ld = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11577	11733	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3089	3245	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11577	11733	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3089	3245	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11577	11733	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3089	3245	
==>STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!( <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8034	8177	
==>STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8034	8177	
==>STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!( <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8034	8177	
==>STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!( <==
11	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1259	1357	
==>le {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File <==
11	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1259	1357	
==>le {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16598	16713	
==>cr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packag <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16598	16713	
==>cr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packag <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16598	16713	
==>cr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packag <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21229	21327	
==>nt feature is that it provides a
common API for access to those databases, each of which takes a di <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21229	21327	
==>nt feature is that it provides a
common API for access to those databases, each of which takes a di <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3357	3452	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6371	6466	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8439	8534	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3357	3452	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6371	6466	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8439	8534	
==>rns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Ar <==
11	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	832	965	
==>2 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 <==
11	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	832	965	
==>2 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4162	4263	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2437	2538	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7876	7977	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4162	4263	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2437	2538	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7876	7977	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4162	4263	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2437	2538	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7876	7977	
==>od('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2244	2370	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1356	1482	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1920	2046	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2244	2370	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1356	1482	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1920	2046	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2244	2370	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1356	1482	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1920	2046	
==>way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot <==
11	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2592	2696	
==>$tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $unive <==
11	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2592	2696	
==>$tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $unive <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1186	1304	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	937	1055	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1186	1304	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	937	1055	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1186	1304	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	937	1055	
==>_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wor <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12243	12357	
==>ied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header( <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12243	12357	
==>ied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header( <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20104	20194	
==><ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0, <==
11	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20104	20194	
==><ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0, <==
11	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20104	20194	
==><ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0, <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2301	2426	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1413	1538	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1977	2102	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2301	2426	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1413	1538	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1977	2102	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2301	2426	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1413	1538	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1977	2102	
==>the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wil <==
11	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	157	250	
==>a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These no <==
11	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	157	250	
==>a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These no <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5664	5773	
==>to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::C <==
11	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5664	5773	
==>to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::C <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	6530	6635	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	7283	7388	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	8147	8252	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10007	10112	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10760	10865	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11624	11729	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9099	9204	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9897	10002	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10806	10911	
==>atch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF <==
11	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3846	3947	
==>ub matches {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $length = 1 if not defined $le <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23162	23254	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1735	1827	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19532	19624	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4026	4118	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1698	1790	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23162	23254	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1735	1827	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19532	19624	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4026	4118	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1698	1790	
==>.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Lo <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1361	1468	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value. <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1361	1468	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value. <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1100	1206	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1825	1931	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2085	2191	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1100	1206	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1825	1931	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2085	2191	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value. <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1401	1501	
==>m \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode " <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1401	1501	
==>m \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode " <==
11	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1401	1501	
==>m \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode " <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4893	5031	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5854	5992	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6982	7120	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4893	5031	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5854	5992	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6982	7120	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4893	5031	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5854	5992	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6982	7120	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8001	8099	
==>the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8001	8099	
==>the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	772	899	
==>Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => ' <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	772	899	
==>Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => ' <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19801	19909	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16940	17048	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19801	19909	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16940	17048	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19801	19909	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16940	17048	
==>X -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($valu <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2804	2904	
==>meter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2804	2904	
==>meter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use <==
11	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2804	2904	
==>meter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8094	8226	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5653	5785	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8094	8226	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5653	5785	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8094	8226	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5653	5785	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1782	1914	
==>it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our no <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4380	4484	
==>, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "C <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4380	4484	
==>, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "C <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4380	4484	
==>, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "C <==
11	/Users/nnunley/pugs/inc/Test/Harness.pm	27971	28066	
==>ersion.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<HARNES <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11858	11992	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3369	3503	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11858	11992	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3369	3503	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11858	11992	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3369	3503	
==>_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8297	8425	
==>_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8297	8425	
==>_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8297	8425	
==>_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4111	4204	
==>ers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

me <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4111	4204	
==>ers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

me <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	111	233	
==>{
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	111	233	
==>{
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	111	233	
==>{
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4593	4695	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[ <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4840	4942	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[ <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4593	4695	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[ <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4840	4942	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[ <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4084	4185	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[ <==
11	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4339	4440	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[ <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4084	4185	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[ <==
11	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4339	4440	
==>splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[ <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11880	12005	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3391	3516	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11880	12005	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3391	3516	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11880	12005	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3391	3516	
==>(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8317	8438	
==>(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8317	8438	
==>(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8317	8438	
==>(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FE <==
11	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15503	15594	
==>:encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char <==
11	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15503	15594	
==>:encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char <==
11	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1125	1239	
==>export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export <==
11	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1125	1239	
==>export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11066	11173	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11562	11669	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11741	11848	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11066	11173	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11562	11669	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11741	11848	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11066	11173	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11562	11669	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11741	11848	
==>y ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6 <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2417	2543	
==>::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "u <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3019	3130	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10942	11053	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12206	12317	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6144	6255	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6773	6884	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3019	3130	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10942	11053	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12206	12317	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6144	6255	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6773	6884	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2352	2460	
==>defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!hea <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2352	2460	
==>defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!hea <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24417	24510	
==>jects from its member classes, usually invoking C<new()> on
the appropriate class name, and th <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20459	20552	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22049	22142	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9322	9415	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24417	24510	
==>jects from its member classes, usually invoking C<new()> on
the appropriate class name, and th <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25011	25104	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23581	23674	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22049	22142	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9322	9415	
==>jects from its member classes, usually invoking C<new()> on the
appropriate class name, and th <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2139	2230	
==>n@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan- <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1818	1909	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1704	1795	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5031	5118	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4904	4991	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	718	805	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6568	6655	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5171	5258	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5154	5241	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	718	805	
==>//dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
11	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4818	4902	
==>r_fetch } splice(@{$self->get_value('@:slots')}, $idx_from, $idx_to, mk_containers(@$ <==
11	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6648	6762	
==>);
}

sub _index_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$groups;

    my @ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17590	17701	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8171	8282	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14810	14921	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17590	17701	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8171	8282	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14810	14921	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17590	17701	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8171	8282	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14810	14921	
==>ined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\ <==
11	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2408	2509	
==>][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volum <==
11	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2408	2509	
==>][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volum <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23084	23189	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1657	1762	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19454	19559	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3948	4053	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1620	1725	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42786	42891	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23084	23189	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1657	1762	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19454	19559	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3948	4053	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1620	1725	
==>ENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Pe <==
11	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9248	9378	
==>$.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when an <==
11	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9248	9378	
==>$.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when an <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1981	2110	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1093	1222	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1660	1789	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1981	2110	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1093	1222	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1660	1789	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1981	2110	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1093	1222	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1660	1789	
==>not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (se <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11908	12036	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3419	3547	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11908	12036	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3419	3547	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11908	12036	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3419	3547	
==>i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].ST <==
11	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8345	8467	
==>i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8345	8467	
==>i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].ST <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8345	8467	
==>i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].ST <==
11	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13692	13790	
==>- $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} se <==
11	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13692	13790	
==>- $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} se <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23082	23179	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1655	1752	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19452	19549	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3946	4043	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1618	1715	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42784	42881	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23082	23179	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1655	1752	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19452	19549	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3946	4043	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1618	1715	
==>EPENDENCIES

This file requires any version of Perl 6.x.y that is at least 6.0.0.

It also require <==
11	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5362	5537	
==>$h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    meth <==
11	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5362	5537	
==>$h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    meth <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24753	24851	
==>row an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, y <==
11	/Users/nnunley/pugs/blib6/lib/Relation.pm	20792	20890	
==>row an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, y <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22367	22465	
==>row an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, y <==
11	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9653	9751	
==>row an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, y <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24753	24851	
==>row an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, y <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25344	25442	
==>row an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, y <==
11	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23932	24030	
==>row an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, y <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22367	22465	
==>row an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, y <==
11	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9653	9751	
==>row an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, y <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2749	2850	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5397	5498	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2749	2850	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5397	5498	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2749	2850	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5397	5498	
==>e container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_co <==
11	/Users/nnunley/pugs/blib6/lib/CGI.pm	11538	11638	
==>il objects are done for this, but maybe I will
figure out a good way to do this without. Either way i <==
11	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11538	11638	
==>il objects are done for this, but maybe I will
figure out a good way to do this without. Either way i <==
11	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1153	1247	
==>ures differently.  Instead
of creating another level of arrays in the captures, it simply doesn <==
11	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1153	1247	
==>ures differently.  Instead
of creating another level of arrays in the captures, it simply doesn <==
11	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11833	11927	
==>character's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LE <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	9784	9900	
==>= $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  sa <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9784	9900	
==>= $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  sa <==
11	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1016	1118	
==>my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1016	1118	
==>my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOC <==
11	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1016	1118	
==>my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOC <==
11	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18273	18372	
==>er time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
b <==
11	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18273	18372	
==>er time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
b <==
11	/Users/nnunley/pugs/blib6/lib/Set.pm	14003	14095	
==>operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Document <==
11	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10230	10322	
==>operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Document <==
11	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14003	14095	
==>operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Document <==
11	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10230	10322	
==>operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Document <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	11	116	
==>pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Ke <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1611	1713	
==>lude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1611	1713	
==>lude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1611	1713	
==>lude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif( <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3925	4019	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6904	6998	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8974	9068	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3925	4019	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6904	6998	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8974	9068	
==>tained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see t <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36747	36841	
==>o rewrite F<Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative look-a <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5715	5840	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6268	6393	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6843	6968	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20423	20548	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22447	22572	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5908	6033	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6461	6586	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7036	7161	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20702	20827	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22726	22851	
==>t =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8815	8928	
==>(Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12292	12405	
==>(Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1538	1634	
==>1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1538	1634	
==>1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11203	11325	
==>nperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progfil <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5400	5508	
==>y objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->n <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5400	5508	
==>y objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->n <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5400	5508	
==>y objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->n <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	575	681	
==>s {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_- <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	575	681	
==>s {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_- <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	575	681	
==>s {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_- <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	844	948	
==>"\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })') <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	844	948	
==>"\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })') <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	844	948	
==>"\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })') <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29147	29266	
==>ub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module My <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29726	29845	
==>ub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29147	29266	
==>ub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29726	29845	
==>ub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	486	593	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	518	625	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	733	840	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	570	677	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	582	689	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	733	840	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module My <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	473	581	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	458	566	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1443	1551	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	959	1067	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	469	577	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	473	581	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	458	566	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1443	1551	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	959	1067	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	469	577	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Ros <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1369	1470	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1288	1389	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2301	2402	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1815	1916	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1343	1444	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1369	1470	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1288	1389	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2301	2402	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1815	1916	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1343	1444	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16460	16640	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16739	16919	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22139	22236	
==>d then invoking methods on those objects.  All of
their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9412	9509	
==>d then invoking methods on those objects.  All of
their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/blib6/lib/Test.pm	10896	10993	
==>ns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22139	22236	
==>d then invoking methods on those objects.  All of
their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9412	9509	
==>d then invoking methods on those objects.  All of
their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10954	11051	
==>ns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24507	24603	
==>d then invoking methods on those objects.
All of their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24507	24603	
==>d then invoking methods on those objects.
All of their attributes are private, so you must use ac <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9608	9726	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7155	7273	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9608	9726	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7155	7273	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9608	9726	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7155	7273	
==>nt_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3230	3338	
==>j);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3230	3338	
==>j);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3230	3338	
==>j);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH <==
10	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2393	2489	
==>eiling
}

our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.rou <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13237	13342	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10521	10626	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13237	13342	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10521	10626	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13237	13342	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10521	10626	
==>$params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1261	1363	
==>_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1261	1363	
==>_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16874	16970	
==>ew Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the c <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16874	16970	
==>ew Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7855	7968	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10778	10891	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7855	7968	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10778	10891	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7855	7968	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10778	10891	
==>be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method <==
10	/Users/nnunley/pugs/inc/Module/Install.pm	363	474	
==>le::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self = $class->new(@_);

    if (n <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17218	17307	
==>e('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:me <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17218	17307	
==>e('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:me <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17218	17307	
==>e('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:me <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	670	782	
==>tch { ${$_[0]} }
sub store { 
    my ($self, $value) = @_;
    (blessed($value) && $value->isa('type'))
        | <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	74	172	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	785	883	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1908	2006	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	74	172	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	785	883	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1908	2006	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	74	172	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	785	883	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1908	2006	
==>("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH <==
10	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	354	464	
==>):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d) <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7535	7624	
==>------------------------------------
## END BOOTSTRAPPING ROLES
## ----------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7558	7647	
==>-------------
## END BOOTSTRAPPING ROLES
## ---------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7535	7624	
==>------------------------------------
## END BOOTSTRAPPING ROLES
## ----------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7558	7647	
==>-------------
## END BOOTSTRAPPING ROLES
## ---------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7535	7624	
==>------------------------------------
## END BOOTSTRAPPING ROLES
## ----------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7558	7647	
==>-------------
## END BOOTSTRAPPING ROLES
## ---------------------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7512	7597	
==>-----------------------------------------------------------
## END BOOTSTRAPPING ROLES <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7512	7597	
==>-----------------------------------------------------------
## END BOOTSTRAPPING ROLES <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7512	7597	
==>-----------------------------------------------------------
## END BOOTSTRAPPING ROLES <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5578	5694	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8548	8664	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5578	5694	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8548	8664	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5578	5694	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8548	8664	
==>mze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2344	2448	
==>ead1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

T <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2344	2448	
==>ead1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

T <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1567	1665	
==>ead1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

T <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3428	3526	
==>ead1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

T <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6826	6979	
==>$self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6826	6979	
==>$self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6826	6979	
==>$self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	11797	11928	
==>other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15274	15405	
==>other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14609	14740	
==>other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headin <==
10	/Users/nnunley/pugs/blib6/lib/CGI.pm	779	878	
==>export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   } <==
10	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	779	878	
==>export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   } <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9583	9680	
==>These methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recu <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9583	9680	
==>These methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recu <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5793	6043	
==>("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%ev <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5793	6043	
==>("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%ev <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3154	3402	
==>("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%ev <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3154	3402	
==>("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%ev <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4206	4339	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7142	7275	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4206	4339	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7142	7275	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4206	4339	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7142	7275	
==>ide of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so tha <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12805	12946	
==>e \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleIn <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1710	1827	
==>E to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1710	1827	
==>E to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1710	1827	
==>E to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	36236	36332	
==>ch member of a tuple pair has attribute names in common,
eliminating pairs where the values of th <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	37989	38085	
==>ch member of a
tuple pair has attribute names in common, eliminating pairs where the
values of th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40785	40881	
==>ch member of a tuple pair has attribute names in common,
eliminating pairs where the values of th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42538	42634	
==>ch member of a
tuple pair has attribute names in common, eliminating pairs where the
values of th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40399	40495	
==>ch member of a tuple pair has attribute names in common,
eliminating pairs where the values of th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42188	42284	
==>ch member of a
tuple pair has attribute names in common, eliminating pairs where the
values of th <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10707	10840	
==>w(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26050	26182	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27532	27664	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28316	28448	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38680	38812	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39207	39339	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28263	28357	
==>bject which is suitable
for debugging purposes (such as to test that the object's contents look <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35619	35713	
==>bject which is suitable
for debugging purposes (such as to test that the object's contents look <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28263	28357	
==>bject which is suitable
for debugging purposes (such as to test that the object's contents look <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35619	35713	
==>bject which is suitable
for debugging purposes (such as to test that the object's contents look <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12258	12374	
==>S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mo <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1047	1154	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1263	1370	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1481	1588	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1047	1154	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1263	1370	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1481	1588	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is n <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20949	21046	
==>x1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20949	21046	
==>x1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20949	21046	
==>x1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18088	18211	
==>l, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, def <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17126	17249	
==>l, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, def <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18088	18211	
==>l, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, def <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17126	17249	
==>l, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, def <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	999	1101	
==>skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See " <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	999	1101	
==>skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See " <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	999	1101	
==>skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See " <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13758	13849	
==>IL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13758	13849	
==>IL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13758	13849	
==>IL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	673	815	
==>aker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->write;
        } else {
            $self->Makef <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1978	2108	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1090	1220	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1657	1787	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1978	2108	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1090	1220	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1657	1787	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1978	2108	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1090	1220	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1657	1787	
==>re not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - ( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6390	6504	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9360	9474	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/inc/Module/Install.pm	855	969	
==>->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6390	6504	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9360	9474	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6390	6504	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9360	9474	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (define <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2690	2795	
==>->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4497	4598	
==>assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!mem <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4497	4598	
==>assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!mem <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7852	7977	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8394	8519	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10121	10246	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12425	12550	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8045	8170	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8587	8712	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10400	10525	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12704	12829	
==>e =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8603	8717	
==>$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::sta <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8599	8713	
==>$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::sta <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24757	24901	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26946	27090	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24757	24901	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26946	27090	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24757	24901	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26946	27090	
==>>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7191	7331	
==>ic';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbox <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7191	7331	
==>ic';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbox <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7191	7331	
==>ic';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbox <==
10	/Users/nnunley/pugs/inc/Test/Harness.pm	10092	10214	
==>st{skipped};
                push(@msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{bonu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1231	1352	
==>e = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1231	1352	
==>e = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1231	1352	
==>e = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        a <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10154	10257	
==>f(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10154	10257	
==>f(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10154	10257	
==>f(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10840	10941	
==>f(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10840	10941	
==>f(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10840	10941	
==>f(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + or <==
10	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7976	8063	
==>)", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L).
p5_modifier_spec_pos([i|L])  -- <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	547	675	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	513	641	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	563	691	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	519	647	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	574	702	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	539	667	
==>,
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUP <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	661	775	
==>g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	661	775	
==>g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	661	775	
==>g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	6346	6460	
==>g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2982	3124	
==>s};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2982	3124	
==>s};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2982	3124	
==>s};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5765	5898	
==>s};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5765	5898	
==>s};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5765	5898	
==>s};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_ <==
10	/Users/nnunley/pugs/blib6/lib/lib.pm	1521	1618	
==>o use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive. <==
10	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1521	1618	
==>o use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive. <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	711	802	
==>Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->expor <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	711	802	
==>Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->expor <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8416	8543	
==>apturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asserti <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13927	14054	
==>apturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asserti <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8416	8543	
==>apturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asserti <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13921	14048	
==>apturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asserti <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2259	2368	
==>q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an arr <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2259	2368	
==>q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an arr <==
10	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3763	3868	
==>lf + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { dat <==
10	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1863	1968	
==>lf + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { dat <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3939	4030	
==>ss->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5841	5932	
==>ss->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	573	706	
==>s::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1972	2091	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1084	1203	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1651	1770	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1972	2091	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1084	1203	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1651	1770	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1972	2091	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1084	1203	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1651	1770	
==>hich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7792	7925	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5351	5484	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7792	7925	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5351	5484	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7792	7925	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5351	5484	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1480	1613	
==>o reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exi <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4781	4882	
==>gt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of te <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4781	4882	
==>gt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of te <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6305	6406	
==>gt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of te <==
10	/Users/nnunley/pugs/blib6/lib/CGI.pm	9379	9511	
==>9-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" <==
10	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9379	9511	
==>9-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5089	5203	
==>single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value:: <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5089	5203	
==>single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value:: <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5089	5203	
==>single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9870	9981	
==>rg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) { <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9870	9981	
==>rg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) { <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9870	9981	
==>rg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) { <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5189	5289	
==>egated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    retur <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5382	5482	
==>egated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    retur <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6683	6793	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7444	7554	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8314	8424	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10160	10270	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10921	11031	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11791	11901	
==>ion *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relat <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23955	24057	
==>le applies to servers too - they must not send
  any error reply back to the client on receipt of a not <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22728	22830	
==>le applies to servers too - they must not send
  any error reply back to the client on receipt of a not <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23955	24057	
==>le applies to servers too - they must not send
  any error reply back to the client on receipt of a not <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22728	22830	
==>le applies to servers too - they must not send
  any error reply back to the client on receipt of a not <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3030	3156	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10953	11079	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12217	12343	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6155	6281	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6784	6910	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3030	3156	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10953	11079	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12217	12343	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6155	6281	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6784	6910	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11123	11284	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8676	8837	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11123	11284	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8676	8837	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11123	11284	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8676	8837	
==>F);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cur <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4868	4993	
==>data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15904	16029	
==>data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17392	17517	
==>data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22075	22200	
==>data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->objec <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23995	24108	
==>on($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_t <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23995	24108	
==>on($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_t <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23995	24108	
==>on($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_t <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	23298	23397	
==>llowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fut <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27850	27949	
==>llowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fut <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26645	26744	
==>llowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fut <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4057	4155	
==>return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no in <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4057	4155	
==>return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no in <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4057	4155	
==>return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no in <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4640	4728	
==>f',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11992	12103	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3503	3614	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11992	12103	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3503	3614	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11992	12103	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3503	3614	
==>H  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8425	8532	
==>H  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8425	8532	
==>H  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8425	8532	
==>H  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO <==
10	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	106	193	
==>ackage Module::Install::Scripts;
use Module::Install::Base; @ISA = qw(Module::Install::B <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4594	4696	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1 <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4841	4943	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1 <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4594	4696	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1 <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4841	4943	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1 <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4085	4186	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1 <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4340	4441	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1 <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4085	4186	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1 <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4340	4441	
==>plice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1 <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	762	853	
==>tch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	762	853	
==>tch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8060	8189	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5619	5748	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8060	8189	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5619	5748	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8060	8189	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5619	5748	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1748	1877	
==>undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $ca <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1210	1313	
==>Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - ad <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1210	1313	
==>Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - ad <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1210	1313	
==>Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - ad <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11580	11736	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3092	3248	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11580	11736	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3092	3248	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11580	11736	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3092	3248	
==>RE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8037	8180	
==>RE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8037	8180	
==>RE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8037	8180	
==>RE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3496	3599	
==>comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17574	17741	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18231	18398	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17853	18020	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18510	18677	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4634	4729	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7570	7665	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4634	4729	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7570	7665	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4634	4729	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7570	7665	
==>ndef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable') <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15472	15573	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12728	12829	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15472	15573	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12728	12829	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15472	15573	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12728	12829	
==>e;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attri <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	817	911	
==>{
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.rig <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1009	1103	
==>{
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.rig <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	817	911	
==>{
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.rig <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1009	1103	
==>{
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.rig <==
10	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1511	1657	
==>E;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and <==
10	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1511	1657	
==>E;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11356	11479	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2868	2991	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11356	11479	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2868	2991	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11356	11479	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2868	2991	
==>y = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]) <==
10	/Users/nnunley/pugs/blib6/lib/Test.pm	9844	9941	
==>r Pugs.

It provides a simple set of common test utility functions, and is
an implementation of th <==
10	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9902	9999	
==>r Pugs.

It provides a simple set of common test utility functions, and is
an implementation of th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7980	8098	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10903	11021	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7980	8098	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10903	11021	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7980	8098	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10903	11021	
==>d->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3502	3599	
==>en"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3808	3905	
==>en"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3502	3599	
==>en"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3808	3905	
==>en"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1375	1476	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1294	1395	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2307	2408	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1821	1922	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1349	1450	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1375	1476	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1294	1395	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2307	2408	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1821	1922	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1349	1450	
==>that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	278	402	
==>}
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	278	402	
==>}
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	278	402	
==>}
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29545	29659	
==>r, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL> <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29545	29659	
==>r, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL> <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	357	463	
==>r, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL> <==
10	/Users/nnunley/pugs/util/importgraph.pl	1339	1440	
==>ore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefined clusters
sub setup_mod <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	448	542	
==>we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	448	542	
==>we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	448	542	
==>we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^( <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1368	1476	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1368	1476	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1107	1214	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1832	1939	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2092	2199	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1107	1214	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1832	1939	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2092	2199	
==>PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
10	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1113	1206	
==>written
in question/answer format, to explain the design and implementation of Pugs.

=head2 Q <==
10	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1113	1206	
==>written
in question/answer format, to explain the design and implementation of Pugs.

=head2 Q <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2470	2589	
==>lddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_list( $self->packa <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	46	149	
==>rl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One i <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	50	153	
==>rl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One i <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	46	149	
==>rl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One i <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	50	153	
==>rl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One i <==
10	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12633	12727	
==>with encoding and decoding of strings with HTML
character entities.  The module provides the fo <==
10	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12633	12727	
==>with encoding and decoding of strings with HTML
character entities.  The module provides the fo <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	29391	29484	
==>tes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> ar <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33943	34036	
==>tes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> ar <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33107	33200	
==>tes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> ar <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20037	20150	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17176	17289	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20037	20150	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17176	17289	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20037	20150	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17176	17289	
==>utes are just package scoped "our" variables
        # so they are added to the Package normally
        return $s <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1180	1285	
==>rst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

s <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1180	1285	
==>rst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1260	1365	
==>rst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

s <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	496	600	
==>otations are not fmappable, flatten first";
	}

	sub values {
		my $self = shift;
		croak "annotations ar <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12058	12183	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3680	3805	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12058	12183	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3680	3805	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12058	12183	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3680	3805	
==>le' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6785	6908	
==>le' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6785	6908	
==>le' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6785	6908	
==>le' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12929	13039	
==>y $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep m/^-T$/, @{$args <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2489	2614	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4816	4941	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2489	2614	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4816	4941	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2489	2614	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4816	4941	
==>e_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for th <==
10	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	152	243	
==>--------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -- <==
10	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	175	266	
==>---------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------- <==
10	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	152	243	
==>--------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -- <==
10	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	175	266	
==>---------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------- <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8062	8208	
==>$.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.cl <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8062	8208	
==>$.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.cl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6835	6918	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6835	6918	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3446	3529	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4140	4223	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4340	4423	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6578	6661	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5348	5431	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6835	6918	
==>-------------------------------------------------------------------------
## BOOTSTR <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2418	2518	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2435	2535	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3489	3589	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1873	1973	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2305	2405	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2418	2518	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2435	2535	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3489	3589	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1873	1973	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2305	2405	
==>=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the sa <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1917	2033	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1029	1145	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1596	1712	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1917	2033	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1029	1145	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1596	1712	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1917	2033	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1029	1145	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1596	1712	
==>e default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2712	2813	
==>todo),"==\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') { <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17642	17762	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8223	8343	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14862	14982	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17642	17762	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8223	8343	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14862	14982	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17642	17762	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8223	8343	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14862	14982	
==>TCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15671	15773	
==>$tmpfile;
    $runperl_args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $! <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3340	3464	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8625	8749	
==>zation for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] | <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3599	3719	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10017	10137	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8322	8442	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3599	3719	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10017	10137	
==>zation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] | <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2421	2521	
==>es), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rec <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2421	2521	
==>es), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rec <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2501	2601	
==>es), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rec <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7069	7198	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4628	4757	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7069	7198	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4628	4757	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7069	7198	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4628	4757	
==>f, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ( <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3076	3187	
==>etasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emi <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3064	3175	
==>etasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emi <==
10	/Users/nnunley/pugs/blib6/lib/Test.pm	15774	15873	
==>pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modul <==
10	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15832	15931	
==>pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modul <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17542	17656	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4477	4591	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8123	8237	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17542	17656	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4477	4591	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8123	8237	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17542	17656	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4477	4591	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8123	8237	
==>thod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4967	5069	
==>}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{'field_type'}{$fname};
    $ <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1365	1472	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1365	1472	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1104	1210	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1829	1935	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2089	2195	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1104	1210	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1829	1935	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2089	2195	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtyp <==
10	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5053	5145	
==>uld use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The fol <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5053	5145	
==>uld use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The fol <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11993	12105	
==>cord the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $ <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11993	12105	
==>cord the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $ <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11170	11278	
==>cord the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $ <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11170	11278	
==>cord the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8494	8587	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6047	6140	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8494	8587	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6047	6140	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8494	8587	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6047	6140	
==>@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO' <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1857	1965	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1743	1851	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9067	9175	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5070	5172	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4943	5045	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	757	859	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6607	6709	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5210	5312	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5193	5295	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	757	859	
==>.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	41	135	
==>ges used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...) <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8031	8163	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5590	5722	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8031	8163	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5590	5722	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8031	8163	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5590	5722	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1719	1851	
==>date ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	387	497	
==>eCategory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Grammar::Expression::AST '$matc <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4140	4223	
==>::Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Roset <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4140	4223	
==>::Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Roset <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24570	24718	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26759	26907	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24570	24718	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26759	26907	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24570	24718	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26759	26907	
==>hift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2741	2848	
==>rn $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::f <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2741	2848	
==>rn $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::f <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2741	2848	
==>rn $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::f <==
10	/Users/nnunley/pugs/inc/Test/Harness.pm	1244	1344	
==>a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIP <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32517	32612	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33174	33269	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33579	33674	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35562	35657	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	37372	37467	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37067	37162	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37724	37819	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38129	38224	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40112	40207	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41921	42016	
==>lation *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3020	3142	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10943	11065	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12207	12329	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6145	6267	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6774	6896	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3020	3142	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10943	11065	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12207	12329	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6145	6267	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6774	6896	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2776	2980	
==>t fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2776	2980	
==>t fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25664	25775	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27859	27970	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25664	25775	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27859	27970	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25664	25775	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27859	27970	
==>calar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scala <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18859	18950	
==>ic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17902	17993	
==>ic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18859	18950	
==>ic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17902	17993	
==>ic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22169	22263	
==>ever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21050	21144	
==>ever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22169	22263	
==>ever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21050	21144	
==>ever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2441	2601	
==>p4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18847	18990	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16085	16228	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18847	18990	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16085	16228	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18847	18990	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16085	16228	
==>lf => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # becau <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10838	10942	
==>ore {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10838	10942	
==>ore {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10838	10942	
==>ore {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1855	1955	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1741	1841	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/util/file_to_hs.pl	171	266	
==>);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path );
my $fullname <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5068	5162	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4941	5035	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	755	849	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6605	6699	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5208	5302	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5191	5285	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	755	849	
==>05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6754	6868	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7515	7629	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8385	8499	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10231	10345	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10992	11106	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11862	11976	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9341	9455	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10147	10261	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11062	11176	
==>"The heading of at least one given relation in @others does"
                ~ " not match the heading of the invoc <==
10	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2547	2652	
==>ed, (\d+) todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    tota <==
10	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5241	5371	
==>mp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' ! <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5241	5371	
==>mp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' ! <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8687	8817	
==>brule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14412	14542	
==>brule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8687	8817	
==>brule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14406	14536	
==>brule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8427	8556	
==>brule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13938	14067	
==>brule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8427	8556	
==>brule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13932	14061	
==>brule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implem <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4928	5066	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5889	6027	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7017	7155	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4928	5066	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5889	6027	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7017	7155	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4928	5066	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5889	6027	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7017	7155	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $val <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5335	5427	
==>edence_parser($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\ <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3633	3773	
==>p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar, <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3773	3913	
==>p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar, <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2633	2758	
==>le.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[ <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2633	2758	
==>le.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17378	17472	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14603	14697	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17378	17472	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14603	14697	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17378	17472	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14603	14697	
==>bute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confor <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5348	5451	
==>ake_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->c <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5348	5451	
==>ake_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->c <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5348	5451	
==>ake_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20145	20239	
==>) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB i <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20145	20239	
==>) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB i <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20145	20239	
==>) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB i <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21045	21137	
==>ef describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whic <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19953	20045	
==>ef describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whic <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21045	21137	
==>ef describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whic <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19953	20045	
==>ef describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whic <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6333	6449	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9303	9419	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6333	6449	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9303	9419	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6333	6449	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9303	9419	
==>ant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $met <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28340	28437	
==>ct's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ext <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35696	35793	
==>ct's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ext <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28340	28437	
==>ct's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ext <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35696	35793	
==>ct's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ext <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12062	12187	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3684	3809	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12062	12187	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3684	3809	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12062	12187	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3684	3809	
==>=>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6789	6912	
==>=> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6789	6912	
==>=> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6789	6912	
==>=> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' => <==
10	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	83	187	
==>, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=head1 NAME

Class--P <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6779	6903	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7540	7664	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8410	8534	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10256	10380	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11017	11141	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11887	12011	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9366	9490	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10172	10296	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11087	11211	
==>one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2 <==
10	/Users/nnunley/pugs/util/PugsConfig.pm	3625	3725	
==>s.Version

config :: Map.Map String String
config = Map.fromList
    [#all_definitions#
    ,("pugs_v <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	8	108	
==>in/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
use Lo <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	8605	8706	
==>| %mods{'overlap'};
    my $ex = %mods{'ex'} || %mods{'exhaustive'};
    my $adverbs = join("",map {": <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28447	28545	
==>.  This method is also defined as the implicit handler when
coercing this object to a string.

=bac <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28447	28545	
==>.  This method is also defined as the implicit handler when
coercing this object to a string.

=bac <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21660	21751	
==>evel of DBI's provided independence
is I<Database Driver Independence>, and not I<Database L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21660	21751	
==>evel of DBI's provided independence
is I<Database Driver Independence>, and not I<Database L <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5042	5129	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3270	3357	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5042	5129	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3270	3357	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5042	5129	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3270	3357	
==>el;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $lab <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3086	3217	
==>"sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.ex <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3086	3217	
==>"sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.ex <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3086	3217	
==>"sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.ex <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13830	13959	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14204	14333	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13830	13959	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14204	14333	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13830	13959	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14204	14333	
==>dings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[ <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22305	22396	
==>ation version 0.1.0.

It also describes the same-number versions of Relation::Heading ("Head <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10208	10318	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12849	12959	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13685	13795	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16326	16436	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12966	13076	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15688	15798	
==>ng) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inters <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	665	774	
==>me}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{lev <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4591	4691	
==>}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_ <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4591	4691	
==>}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_ <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4591	4691	
==>}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_ <==
10	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3238	3381	
==>ts stores things in a hash to reduce algorithmic complexity
            gather {
                given $event.name {
                    when '* <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11660	11781	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3172	3293	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11660	11781	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3172	3293	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11660	11781	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3172	3293	
==>INDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("C <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8108	8223	
==>INDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8108	8223	
==>INDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("C <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8108	8223	
==>INDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("C <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8708	8868	
==>n 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14433	14593	
==>n 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8708	8868	
==>n 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14427	14587	
==>n 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8448	8607	
==>n
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13959	14118	
==>n
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8448	8607	
==>n
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13953	14112	
==>n
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retur <==
10	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	597	734	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m. <==
10	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	597	734	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m. <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4152	4314	
==>=> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4152	4314	
==>=> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4152	4314	
==>=> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38831	38923	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	38446	38538	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19313	19405	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38831	38923	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42995	43087	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42645	42737	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19313	19405	
==>k

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONMEN <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2200	2355	
==>n { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2447	2602	
==>n { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7439	7566	
==>[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11774	11901	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2255	2379	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9027	9151	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7189	7313	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2255	2379	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9027	9151	
==>[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable <==
10	/Users/nnunley/pugs/util/svnlog2graph.pl	12	108	
==>erl
# Creates a statistic of Pugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/gr <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7851	7993	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5410	5552	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7851	7993	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5410	5552	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7851	7993	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5410	5552	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1539	1681	
==>e, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $no <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	533	633	
==>for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my ( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	533	633	
==>for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my ( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	533	633	
==>for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my ( <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	31823	31914	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32839	32930	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33294	33385	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35162	35253	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35674	35765	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36373	36464	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37389	37480	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37844	37935	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39712	39803	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40224	40315	
==>(Relation $other!) returns Relation>

This multi-method is a generic binary relational opera <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7923	8063	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5482	5622	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7923	8063	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5482	5622	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7923	8063	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5482	5622	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1611	1751	
==>exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = unde <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5691	5791	
==>n>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method cal <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5691	5791	
==>n>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method cal <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7888	7988	
==>n>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method cal <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24277	24441	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24516	24680	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25540	25704	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25779	25943	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24556	24720	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24795	24959	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25819	25983	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26058	26222	
==>,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17515	17650	
==>',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_reperto <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17515	17650	
==>',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_reperto <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28470	28609	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28749	28888	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3296	3418	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8581	8703	
==>y $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        m <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6289	6407	
==>y $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub {
        m <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3557	3674	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9975	10092	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8280	8397	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3557	3674	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9975	10092	
==>y $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        m <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2427	2526	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2444	2543	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3498	3597	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1882	1981	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2314	2413	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2427	2526	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2444	2543	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3498	3597	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1882	1981	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2314	2413	
==>CENSE

This library is free software . You can redistribute it and/or modify
it under the same terms <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1672	1803	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14819	14947	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19518	19646	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14819	14947	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19518	19646	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1100	1228	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1305	1433	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1366	1494	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14819	14947	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19518	19646	
==>a { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2942	3068	
==>les($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2942	3068	
==>les($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2942	3068	
==>les($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5725	5842	
==>les($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5725	5842	
==>les($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5725	5842	
==>les($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribu <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10988	11086	
==>ner which stores data to be used or
displayed by your program.  It is analagous to a simplified ver <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14151	14249	
==>ner which stores data to be used or
displayed by your program.  It is analagous to a simplified ver <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10988	11086	
==>ner which stores data to be used or
displayed by your program.  It is analagous to a simplified ver <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14151	14249	
==>ner which stores data to be used or
displayed by your program.  It is analagous to a simplified ver <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26089	26255	
==>rams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->ge <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10747	10912	
==>rams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->ge <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38719	38884	
==>rams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->ge <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39246	39411	
==>rams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->ge <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7079	7227	
==>arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $cl <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7079	7227	
==>arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $cl <==
10	/Users/nnunley/pugs/blib6/lib/Test.pm	9425	9527	
==>e 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test <==
10	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9483	9585	
==>e 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test <==
10	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	723	809	
==>tailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs projec <==
10	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	723	809	
==>tailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs projec <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5064	5292	
==>t = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $ <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10053	10171	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	11223	11341	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12694	12812	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13530	13648	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14700	14818	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16171	16289	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12811	12929	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14008	14126	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15533	15651	
==>ding.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    } <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11137	11271	
==>ngth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.pu <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11137	11271	
==>ngth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.pu <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11137	11271	
==>ngth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.pu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8177	8305	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5736	5864	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8177	8305	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5736	5864	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8177	8305	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5736	5864	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1865	1993	
==>h @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        fo <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7395	7504	
==>before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11730	11839	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2211	2319	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8983	9091	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7145	7253	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2211	2319	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8983	9091	
==>before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matc <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	8303	8403	
==>symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARN <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8303	8403	
==>symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARN <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13606	13705	
==>hes C<$key>, false
otherwise.

An unary form is expected. See Hash::delete


=item keys

=item kv

= <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22748	22943	
==>ram ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22748	22943	
==>ram ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22748	22943	
==>ram ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5844	5959	
==>ist' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:metho <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1582	1727	
==>? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my $cc = Perl <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6787	6910	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7548	7671	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8418	8541	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10264	10387	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11025	11148	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11895	12018	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9374	9497	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10180	10303	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11095	11218	
==>n relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headin <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1618	1737	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2199	2318	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3669	3788	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1618	1737	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2199	2318	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3669	3788	
==>f our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2994	3107	
==>f our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2994	3107	
==>f our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8797	8904	
==>mplate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8797	8904	
==>mplate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14893	15034	
==>nel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "J <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14893	15034	
==>nel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "J <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11469	11587	
==>self = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree} <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7677	7792	
==>before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12018	12133	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2475	2588	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9247	9360	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7417	7530	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2475	2588	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9247	9360	
==>before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $de <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1925	2132	
==>match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next a <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2346	2546	
==>match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next a <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1862	2062	
==>match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next a <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2346	2546	
==>match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next a <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4526	4621	
==>the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

S <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4526	4621	
==>the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

S <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6050	6145	
==>the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

S <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12600	12685	
==>}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12600	12685	
==>}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12600	12685	
==>}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3336	3451	
==>-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fa <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3336	3451	
==>-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fa <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3336	3451	
==>-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fa <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8961	9075	
==>e \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	695	809	
==>e \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8961	9075	
==>e \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8961	9075	
==>e \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4805	4902	
==>rce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4805	4902	
==>rce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4805	4902	
==>rce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	933	1075	
==>ref.t
        $perl5 . "\n" .
        "; 1;\n";

    {
      # Perl::Tidy is used if available
      local $@;   # don't care if there are erro <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12235	12363	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3857	3985	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12235	12363	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3857	3985	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12235	12363	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3857	3985	
==>ed' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6959	7085	
==>ed' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6959	7085	
==>ed' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6959	7085	
==>ed' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	871	986	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1033	1148	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1249	1364	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1467	1582	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2907	3022	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	871	986	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1033	1148	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1249	1364	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1467	1582	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2907	3022	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its element <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3246	3370	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6239	6361	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3512	3629	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9930	10047	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3512	3629	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9930	10047	
==>e ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28283	28381	
==>ble
for debugging purposes (such as to test that the object's contents look
good at a glance); no a <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35639	35737	
==>ble
for debugging purposes (such as to test that the object's contents look
good at a glance); no a <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28283	28381	
==>ble
for debugging purposes (such as to test that the object's contents look
good at a glance); no a <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35639	35737	
==>ble
for debugging purposes (such as to test that the object's contents look
good at a glance); no a <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1381	1490	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1300	1409	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2313	2422	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1827	1936	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1355	1464	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1381	1490	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1300	1409	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2313	2422	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1827	1936	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1355	1464	
==>s at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3187	3329	
==>2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->ne <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8037	8179	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5596	5738	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3187	3329	
==>2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->ne <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3187	3329	
==>2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->ne <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8037	8179	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5596	5738	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8037	8179	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5596	5738	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1725	1867	
==>..
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12184	12286	
==>$_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12184	12286	
==>$_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12184	12286	
==>$_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12556	12654	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10107	10205	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12556	12654	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10107	10205	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12556	12654	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10107	10205	
==>ance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispa <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	308	402	
==>y ( $ast, $tail ) = Pugs::Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match->ne <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1700	1809	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1870	1979	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2094	2203	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2320	2429	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3257	3366	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1700	1809	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1870	1979	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2094	2203	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2320	2429	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3257	3366	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23165	23255	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1738	1828	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19535	19625	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4029	4119	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1701	1791	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23165	23255	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1738	1828	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19535	19625	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4029	4119	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1701	1791	
==>It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Loc <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	612	780	
==>_value('%:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value('% <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	4163	4265	
==>od is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method s <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4163	4265	
==>od is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method s <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	400	501	
==>od is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method s <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	400	501	
==>od is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6842	6926	
==>------------------------------------------------------------------
## BOOTSTRAPPING R <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6842	6926	
==>------------------------------------------------------------------
## BOOTSTRAPPING R <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4347	4431	
==>------------------------------------------------------------------
## BOOTSTRAPPING R <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6585	6669	
==>------------------------------------------------------------------
## BOOTSTRAPPING R <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6842	6926	
==>------------------------------------------------------------------
## BOOTSTRAPPING R <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6901	7021	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9871	9991	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6901	7021	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9871	9991	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6901	7021	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9871	9991	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priva <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6417	6524	
==>)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{ <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7153	7260	
==>)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{ <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6417	6524	
==>)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{ <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7153	7260	
==>)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{ <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	4229	4331	
==>lti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mu <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3356	3458	
==>lti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mu <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4229	4331	
==>lti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mu <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3356	3458	
==>lti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mu <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7095	7190	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6225	6320	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2879	2974	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2879	2974	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7095	7190	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6225	6320	
==>ne.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.incl <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1666	1784	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub A <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14813	14928	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19512	19627	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14813	14928	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19512	19627	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1094	1209	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1299	1414	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1360	1475	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14813	14928	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19512	19627	
==>sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub A <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4368	4482	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7304	7418	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4368	4482	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7304	7418	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4368	4482	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7304	7418	
==>$?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $assoc <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	8143	8235	
==>(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7273	7365	
==>(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8143	8235	
==>(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7273	7365	
==>(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2858	3007	
==>ted
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { retu <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3042	3191	
==>ted
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { retu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2066	2179	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2471	2584	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2066	2179	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2471	2584	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2066	2179	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2471	2584	
==>riable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var ba <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	17209	17307	
==>s_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or t <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17209	17307	
==>s_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or t <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2423	2522	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2440	2539	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3494	3593	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1878	1977	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2310	2409	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2423	2522	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2440	2539	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3494	3593	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1878	1977	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2310	2409	
==>1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same t <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2335	2476	
==>= { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greed <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8894	9035	
==>= { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greed <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2335	2476	
==>= { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greed <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8890	9031	
==>= { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greed <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6220	6348	
==>my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die " <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6220	6348	
==>my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die " <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6220	6348	
==>my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die " <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32229	32328	
==>nly once in
the result.  With any 2 relations, the result is the same regardless of
which is the inv <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36779	36878	
==>nly once in
the result.  With any 2 relations, the result is the same regardless of
which is the inv <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36069	36168	
==>nly once in
the result.  With any 2 relations, the result is the same regardless of
which is the inv <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7299	7429	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4858	4988	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7299	7429	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4858	4988	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7299	7429	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4858	4988	
==>not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # ge <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3476	3577	
==>d, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $sub <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3476	3577	
==>d, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $sub <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3476	3577	
==>d, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $sub <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24983	25082	
==>ny ordinal value.

Note that it is valid for a Relation::Example to have zero tuples.  It is also va <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11902	12032	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3413	3543	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11902	12032	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3413	3543	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11902	12032	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3413	3543	
==>ngth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8339	8463	
==>ngth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8339	8463	
==>ngth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8339	8463	
==>ngth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i <==
10	/Users/nnunley/pugs/util/catalog_tests.pl	13369	13465	
==>ailed: $@)" if $@;
  $total_links += $links;
  $total_files++;
  $outfile->print($template->outpu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1938	2065	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1050	1177	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1617	1744	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1938	2065	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1050	1177	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1617	1744	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1938	2065	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1050	1177	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1617	1744	
==>d should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but <==
10	/Users/nnunley/pugs/util/build_pugs.pl	4827	4929	
==>get);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Em <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6139	6268	
==>^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes inv <==
10	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6139	6268	
==>^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes inv <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16349	16448	
==>ject => sub { $as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_objec <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	4077	4176	
==>e %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "<precompiled> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4480	4572	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6429	6521	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4480	4572	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6429	6521	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4480	4572	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6429	6521	
==>cal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUB <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8464	8604	
==>tr->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:ce <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8464	8604	
==>tr->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:ce <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8464	8604	
==>tr->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:ce <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	982	1102	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1070	1190	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	982	1102	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1070	1190	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	982	1102	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1070	1190	
==>push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js= <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2040	2150	
==>t ok \# Match failed.\n";
	    } else {
		print STDERR "  eval $expr\n" if $debug_warnings;
		my $res = eval($e <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12027	12150	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3538	3661	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12027	12150	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3538	3661	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12027	12150	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3538	3661	
==>_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1285	1403	
==>lan already set!" if _('$.testplan');
            if ($tests) {
                _('$.testplan' => $::TestBuilder->FETCH <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8458	8575	
==>_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8458	8575	
==>_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8458	8575	
==>_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_ <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4317	4435	
==>ink are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Fina <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4317	4435	
==>ink are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Fina <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4828	4942	
==>ink are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Fina <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4828	4942	
==>ink are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Fina <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8739	8848	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6292	6401	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8739	8848	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6292	6401	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8739	8848	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6292	6401	
==>[ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercla <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7129	7333	
==>/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $ <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1260	1362	
==>ift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
} <==
10	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1895	1991	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	525	621	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1663	1759	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13971	14067	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1895	1991	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	525	621	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1663	1759	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13971	14067	
==>k, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Th <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12000	12128	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3511	3639	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12000	12128	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3511	3639	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12000	12128	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3511	3639	
==>[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8433	8553	
==>[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8433	8553	
==>[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8433	8553	
==>[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for( <==
10	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	83	174	
==>$self: Duration $duration) returns Duration {
    $self.new($self.length + $duration.length) <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1635	1776	
==>pture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_capture => {
                ident => $_[0 <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	348	470	
==>rencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	348	470	
==>rencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	348	470	
==>rencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _ <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6415	6530	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7168	7283	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8032	8147	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9892	10007	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10645	10760	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11509	11624	
==>n (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not ma <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3790	3907	
==>index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5107	5224	
==>index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3790	3907	
==>index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5095	5212	
==>index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25593	25681	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27788	27876	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25593	25681	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27788	27876	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25593	25681	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27788	27876	
==>lf->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8718	8834	
==>next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_c <==
10	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8718	8834	
==>next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_c <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4418	4527	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4642	4751	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4418	4527	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4642	4751	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4418	4527	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4642	4751	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3574	3683	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3942	4051	
==>{
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:« <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6502	6635	
==>q 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit erro <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6502	6635	
==>q 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit erro <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19407	19523	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16639	16755	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19407	19523	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16639	16755	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19407	19523	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16639	16755	
==>el && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1014	1111	
==>s gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods <==
10	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1014	1111	
==>s gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23229	23405	
==>t = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23229	23405	
==>t = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23229	23405	
==>t = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4010	4107	
==>ease see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4010	4107	
==>ease see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6989	7085	
==>ease see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9059	9155	
==>ease see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6989	7085	
==>ease see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9059	9155	
==>ease see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
10	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3990	4082	
==>k

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyri <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3013	3129	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10936	11052	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12200	12316	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6138	6254	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6767	6883	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3013	3129	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10936	11052	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12200	12316	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6138	6254	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6767	6883	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.define <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	169	282	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	169	282	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1757	1870	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1962	2075	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2025	2138	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	169	282	
==>eate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an insta <==
10	/Users/nnunley/pugs/examples/golf/tsanta.pl	4819	4929	
==>ail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usag <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8506	8603	
==>R_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "re <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8506	8603	
==>R_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "re <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8506	8603	
==>R_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "re <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2444	2548	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2461	2565	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3515	3619	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1899	2003	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2331	2435	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2444	2548	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2461	2565	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3515	3619	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1899	2003	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2331	2435	
==>ry is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11517	11671	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3029	3183	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11517	11671	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3029	3183	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11517	11671	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3029	3183	
==>i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = func <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6312	6409	
==>file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $b <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8380	8477	
==>file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $b <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6312	6409	
==>file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $b <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8380	8477	
==>file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $b <==
10	/Users/nnunley/pugs/util/config_h.pl	798	906	
==>ERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	96	181	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	441	526	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	77	162	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	96	181	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	441	526	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	77	162	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	96	181	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	441	526	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	77	162	
==>lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	31827	31922	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32843	32938	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33298	33393	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35166	35261	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35678	35773	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36377	36472	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37393	37488	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37848	37943	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39716	39811	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40228	40323	
==>ation $other!) returns Relation>

This multi-method is a generic binary relational operator that <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	639	858	
==>stant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 , <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	640	859	
==>stant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 , <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3651	3755	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4346	4450	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3651	3755	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4346	4450	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3651	3755	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4346	4450	
==>spatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'unde <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7419	7515	
==>define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_n <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7419	7515	
==>define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_n <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4508	4647	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7020	7159	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4508	4647	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7020	7159	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4508	4647	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7020	7159	
==>st add a private method in here...
                    # there is no real distinction between the
                    # private class method <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2381	2501	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7475	7595	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2381	2501	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7475	7595	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6760	6874	
==>y @index_files;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #al <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4684	4765	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6011	6092	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8206	8287	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4684	4765	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6011	6092	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8206	8287	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4684	4765	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6011	6092	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8206	8287	
==>::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}). <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12997	13128	
==>ffset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offse <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12997	13128	
==>ffset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offse <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12997	13128	
==>ffset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offse <==
10	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1882	2013	
==>ffset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offse <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	345	446	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	338	439	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	345	446	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	338	439	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	345	446	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	338	439	
==>js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub { <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9546	9683	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12519	12656	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9546	9683	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12519	12656	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9546	9683	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12519	12656	
==>}       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is t <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7721	7831	
==>s;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %chann <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7721	7831	
==>s;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %chann <==
10	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2281	2379	
==>s,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc <==
10	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2281	2379	
==>s,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17849	17965	
==>nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667 <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16887	17003	
==>nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667 <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17849	17965	
==>nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667 <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16887	17003	
==>nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14560	14666	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11820	11926	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14560	14666	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11820	11926	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14560	14666	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11820	11926	
==>el"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10858	11022	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2523	2687	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4337	4501	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10858	11022	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2523	2687	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4337	4501	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10858	11022	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2523	2687	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4337	4501	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw <==
10	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26336	26441	
==>'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClassRanges>
}
rule <==
10	/Users/nnunley/pugs/util/testgraph.pl	325	421	
==>ig{help};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn' <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13377	13483	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10661	10767	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13377	13483	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10661	10767	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13377	13483	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10661	10767	
==>n ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        r <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8558	8657	
==>TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => Bl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	589	679	
==>ndent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ P <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	589	679	
==>ndent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ P <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	589	679	
==>ndent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ P <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1981	2077	
==>il  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1981	2077	
==>il  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1981	2077	
==>il  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2276	2371	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2995	3090	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2276	2371	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2995	3090	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2276	2371	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2995	3090	
==>il = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil <==
10	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21028	21117	
==>( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set), <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3077	3194	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6070	6187	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3351	3462	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9769	9880	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3351	3462	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9769	9880	
==>t;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19572	19672	
==>bpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :meth <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1346	1442	
==>exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mod <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1346	1442	
==>exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mod <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1346	1442	
==>exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mod <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15048	15152	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12302	12406	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15048	15152	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12302	12406	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15048	15152	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12302	12406	
==>ribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	34323	34417	
==>urns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<sem <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38873	38967	
==>urns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<sem <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38352	38446	
==>urns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<sem <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34173	34266	
==>number of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Perl.  We will su <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2431	2538	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2448	2555	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3502	3609	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1886	1993	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2318	2425	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2431	2538	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2448	2555	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3502	3609	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1886	1993	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2318	2425	
==>E

This library is free software . You can redistribute it and/or modify
it under the same terms as perl its <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7259	7366	
==>lues %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	272	370	
==>} # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::F <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	272	370	
==>} # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::F <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	272	370	
==>} # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::F <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6920	7004	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7587	7671	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6920	7004	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7587	7671	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6920	7004	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7587	7671	
==>PPING ROLES
## ---------------------------------------------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1928	2044	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1040	1156	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1607	1723	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1928	2044	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1040	1156	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1607	1723	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1928	2044	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1040	1156	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1607	1723	
==>UILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing wi <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5017	5110	
==>ined $pil_tree;
    use Data::Dumper;
    PIL::PIL1CPerl5::Util::rebless_with_prefix_and_clean <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	19916	20007	
==>::use_jsan_module_imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatever) {
    die " <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	594	715	
==>r, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1082	1203	
==>r, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	594	715	
==>r, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1082	1203	
==>r, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allo <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9330	9436	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6877	6983	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9330	9436	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6877	6983	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9330	9436	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6877	6983	
==>if ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($orde <==
10	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4351	4523	
==>ling
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increme <==
10	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4351	4523	
==>ling
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increme <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6448	6564	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7201	7317	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8065	8181	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8846	8962	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9925	10041	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10678	10794	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11542	11658	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12323	12439	
==>tion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12022	12146	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3533	3657	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3565	3689	
==>t ($$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $isnt ) {
        # undef <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12022	12146	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3533	3657	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12022	12146	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3533	3657	
==>ackup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8453	8571	
==>ackup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8453	8571	
==>ackup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8453	8571	
==>ackup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < bac <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17656	17773	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8237	8354	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14876	14993	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17656	17773	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8237	8354	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14876	14993	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17656	17773	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8237	8354	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14876	14993	
==>label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	22	121	
==>nt out things which end up defined in PILn
# (though one may wish to overwrite a limited piln versio <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22286	22433	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _si <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22565	22712	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _si <==
10	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1000	1097	
==>q( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1000	1097	
==>q( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	738	834	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	922	1018	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	796	892	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	738	834	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	922	1018	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	796	892	
==>q( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $co <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	651	775	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	739	863	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	651	775	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	739	863	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	651	775	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	739	863	
==>s_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @AR <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21405	21485	
==>->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY')))) <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21715	21795	
==>->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY')))) <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44312	44392	
==>->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY')))) <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44622	44702	
==>->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY')))) <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11859	11995	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3370	3506	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11859	11995	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3370	3506	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11859	11995	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3370	3506	
==>arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8298	8428	
==>arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8298	8428	
==>arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8298	8428	
==>arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	159	254	
==>PTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
us <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2049	2194	
==>my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6992	7136	
==>my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1821	1961	
==>my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8406	8546	
==>my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1821	1961	
==>my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8406	8546	
==>my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6758	6897	
==>my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16504	16605	
==>ead::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - u <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16504	16605	
==>ead::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - u <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16504	16605	
==>ead::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - u <==
10	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1790	1914	
==>2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub tr <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41160	41258	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13548	13646	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9340	9438	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41160	41258	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13548	13646	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9340	9438	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41160	41258	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13548	13646	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9340	9438	
==>PTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4225	4410	
==>$cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            } <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4225	4410	
==>$cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            } <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	6411	6514	
==>rns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $o <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5541	5644	
==>rns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $o <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6411	6514	
==>rns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $o <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5541	5644	
==>rns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $o <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5285	5404	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8255	8374	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5285	5404	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8255	8374	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5285	5404	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8255	8374	
==>hod ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Per <==
10	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8459	8572	
==>M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_ <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3354	3449	
==>n telling this module to compare the received
output to the expected output.

=head1 EXPORTED FU <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3354	3449	
==>n telling this module to compare the received
output to the expected output.

=head1 EXPORTED FU <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3434	3529	
==>n telling this module to compare the received
output to the expected output.

=head1 EXPORTED FU <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2158	2269	
==>rint STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){
		    $v <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41149	41246	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13537	13634	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9329	9426	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41149	41246	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13537	13634	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9329	9426	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41149	41246	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13537	13634	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9329	9426	
==>ead1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8382	8493	
==>un,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13573	13662	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13716	13805	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13859	13948	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13573	13662	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13716	13805	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13859	13948	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13573	13662	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13716	13805	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13859	13948	
==>protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12545	12680	
==>) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now. <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19351	19465	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4831	4945	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16583	16697	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19351	19465	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4831	4945	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16583	16697	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19351	19465	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4831	4945	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16583	16697	
==>{
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($la <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1997	2124	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1109	1236	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1676	1803	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1997	2124	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1109	1236	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1676	1803	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1997	2124	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1109	1236	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1676	1803	
==>the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submeth <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18504	18622	
==>me isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43148	43330	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46492	46674	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47613	47795	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35473	35644	
==>new(
                params => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6678	6846	
==>new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36398	36566	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37933	38101	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7855	8022	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8802	8969	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9761	9927	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5119	5243	
==>result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.sp <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5119	5243	
==>result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.sp <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23607	23706	
==>code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4151	4249	
==>ontinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBL <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4151	4249	
==>ontinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBL <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4151	4249	
==>ontinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBL <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19955	20051	
==>> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18936	19032	
==>> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19955	20051	
==>> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18936	19032	
==>> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7381	7528	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4940	5087	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7381	7528	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4940	5087	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7381	7528	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4940	5087	
==>nemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonem <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	13701	13824	
==>start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3826	3941	
==>start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3826	3941	
==>start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3826	3941	
==>start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7811	7941	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5370	5500	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7811	7941	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5370	5500	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7811	7941	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5370	5500	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1499	1629	
==>owever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ca <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5273	5365	
==>NE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5273	5365	
==>NE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5273	5365	
==>NE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<a <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	948	1062	
==>ntents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	948	1062	
==>ntents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	948	1062	
==>ntents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PI <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7685	7796	
==>rn "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = shift;

	$pri <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12528	12618	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10079	10169	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12528	12618	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10079	10169	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12528	12618	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10079	10169	
==>e_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canon <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	478	586	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	463	571	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1448	1556	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	964	1072	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	474	582	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	478	586	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	463	571	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1448	1556	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	964	1072	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	474	582	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta: <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11282	11409	
==>om),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1778	1900	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1778	1900	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1778	1900	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1604	1705	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1604	1705	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1604	1705	
==>');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod:: <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4392	4488	
==>tput match exactly.  If you pass
C<$description>, this will use it as the test description.

=bac <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4392	4488	
==>tput match exactly.  If you pass
C<$description>, this will use it as the test description.

=bac <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4472	4568	
==>tput match exactly.  If you pass
C<$description>, this will use it as the test description.

=bac <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	41	138	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	27	124	
==>e strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Expor <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5054	5152	
==>),

will yield "moose".

Inherits List.

=item Param

Shifts a parameter from the parameter stack a <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12044	12166	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3555	3677	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12044	12166	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3555	3677	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12044	12166	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3555	3677	
==>arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8475	8591	
==>arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8475	8591	
==>arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8475	8591	
==>arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) <==
10	/Users/nnunley/pugs/inc/Test/Harness.pm	30588	30685	
==>cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know for <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	453	564	
==>duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	453	564	
==>duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23277	23372	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1850	1945	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4141	4236	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1813	1908	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23277	23372	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1850	1945	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4141	4236	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1813	1908	
==>error messages).

It also requires these Perl 6 classes that are in the current distribution:
L< <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12152	12292	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3774	3914	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12152	12292	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3774	3914	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12152	12292	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3774	3914	
==>)->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6877	7015	
==>)->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6877	7015	
==>)->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6877	7015	
==>)->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # Se <==
10	/Users/nnunley/pugs/misc/Blondie/milner.pl	1104	1204	
==>DAG out of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::instantiated - poin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9817	9925	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10798	10906	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12269	12377	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13294	13402	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14275	14383	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15746	15854	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12566	12674	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13574	13682	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15099	15207	
==>re efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources <==
10	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28405	28499	
==>essful capture.
(a\1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful mat <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24080	24176	
==>this rule is to avoid loops between a client automatically sending something
  in response to som <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22853	22949	
==>this rule is to avoid loops between a client automatically sending something
  in response to som <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24080	24176	
==>this rule is to avoid loops between a client automatically sending something
  in response to som <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22853	22949	
==>this rule is to avoid loops between a client automatically sending something
  in response to som <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20742	20836	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17880	17974	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20742	20836	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17880	17974	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20742	20836	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17880	17974	
==>=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13148	13277	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13148	13277	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13148	13277	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5388	5517	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3888	4017	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2033	2162	
==>\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($ <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22145	22238	
==>>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21026	21119	
==>>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22145	22238	
==>>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21026	21119	
==>>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event <==
10	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11245	11352	
==>sed, this page would report 100 % test passes.)
  </p>

  <table>
    <tmpl_loop name=runcores>
      <tr><t <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	172	276	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	167	271	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	172	276	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	167	271	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	172	276	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	167	271	
==>q "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup, <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5447	5545	
==>name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5447	5545	
==>name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5447	5545	
==>name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11625	11770	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3137	3282	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11625	11770	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3137	3282	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11625	11770	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3137	3282	
==>s;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PI <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8078	8212	
==>s;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8078	8212	
==>s;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8078	8212	
==>s;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PI <==
10	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	582	699	
==>_arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $.normalizer_role;
            return $normaliz <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1249	1365	
==>tringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Val <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1249	1365	
==>tringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Val <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1249	1365	
==>tringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Val <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3262	3377	
==>)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infini <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3262	3377	
==>)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infini <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3262	3377	
==>)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infini <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6522	6620	
==>eturns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns S <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6522	6620	
==>eturns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns S <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7394	7490	
==>eturns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns S <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7394	7490	
==>eturns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns S <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6626	6748	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9075	9197	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6626	6748	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9075	9197	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6626	6748	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9075	9197	
==>tart;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start <==
10	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	698	807	
==>me::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $prompt .= " ($ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7966	8073	
==>eck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7966	8073	
==>eck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7966	8073	
==>eck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL: <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3379	3520	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8664	8804	
==>ack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3638	3774	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10056	10192	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3638	3774	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10056	10192	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8361	8496	
==>ack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	701	824	
==>icit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	863	986	
==>icit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	1609	1712	
==>uired language, but supporting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individua <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3010	3127	
==>is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @li <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18277	18394	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15515	15632	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3010	3127	
==>is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @li <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18277	18394	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15515	15632	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18277	18394	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15515	15632	
==>($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($la <==
10	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5044	5135	
==>n you should use the full object-oriented
interface provided by the C<LWP::UserAgent> module <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5044	5135	
==>n you should use the full object-oriented
interface provided by the C<LWP::UserAgent> module <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3143	3342	
==>}
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigenclass;                
            }
            return ::create_opaque_i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9652	9763	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12625	12736	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9652	9763	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12625	12736	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9652	9763	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12625	12736	
==>lities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the ot <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6721	6811	
==>self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_va <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6721	6811	
==>self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_va <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6721	6811	
==>self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_va <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17665	17781	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8246	8362	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14885	15001	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17665	17781	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8246	8362	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14885	15001	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17665	17781	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8246	8362	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14885	15001	
==>'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method( <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	147	252	
==>e];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Access <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15005	15146	
==>bel = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15005	15146	
==>bel = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15005	15146	
==>bel = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19704	19844	
==>bel = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19704	19844	
==>bel = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19704	19844	
==>bel = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just d <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13885	13981	
==>ash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keyt <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6157	6248	
==>:Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pu <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6157	6248	
==>:Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pu <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6157	6248	
==>:Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pu <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	143	293	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3197	3347	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	268	418	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1944	2094	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	143	293	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3197	3347	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	268	418	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1944	2094	
==>Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1778	1911	
==>.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5: <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1778	1911	
==>.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5: <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	399	504	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	709	814	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1099	1204	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1087	1192	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1726	1831	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2161	2266	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2595	2700	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	399	504	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	709	814	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1099	1204	
==>{
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Te <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4518	4657	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7030	7169	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4518	4657	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7030	7169	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4518	4657	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7030	7169	
==>rivate method in here...
                    # there is no real distinction between the
                    # private class method or the pr <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14043	14161	
==>le: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categor <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10216	10334	
==>le: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categor <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11052	11170	
==>le: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categor <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14674	14770	
==>lvalue form of C<keys> is not longer supported. Use the C<.buckets>
property instead.

=back


=h <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33076	33173	
==>mplete
documentation.  For now, read the source (!).

=head2 bol

Family: anchor

Types: bol (C<^> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7180	7274	
==>bject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8175	8269	
==>bject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10744	10838	
==>bject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from f <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	6609	6702	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5739	5832	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2393	2486	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2393	2486	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6609	6702	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5739	5832	
==>.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (S <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1433	1534	
==>* Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   sup <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1433	1534	
==>* Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   sup <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1433	1534	
==>* Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   sup <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7643	7742	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6773	6872	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3359	3458	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3359	3458	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7643	7742	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6773	6872	
==>infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a <==
10	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5446	5542	
==>=> \$initrd_gz,
  "initrd-img=s"   => \$initrd_img,
  "initrd-size=i"  => \$initrd_size,
  "initr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2530	2705	
==>new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&Point },        
    };
}

my $p = new Point(5, 6);
is($p->class <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12158	12299	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3780	3921	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12158	12299	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3780	3921	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12158	12299	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3780	3921	
==>(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6883	7022	
==>(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6883	7022	
==>(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6883	7022	
==>(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17599	17709	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8180	8290	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14819	14929	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17599	17709	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8180	8290	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14819	14929	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17599	17709	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8180	8290	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14819	14929	
==>el && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1442	1535	
==>s.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/ <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	919	1017	
==>g C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Write <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	919	1017	
==>g C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Write <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1475	1573	
==>g C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Write <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1507	1602	
==>", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($p <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1507	1602	
==>", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($p <==
10	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1507	1602	
==>", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($p <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23688	23778	
==>NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NO <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22461	22551	
==>NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NO <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23688	23778	
==>NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NO <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22461	22551	
==>NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NO <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7598	7733	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10521	10656	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7598	7733	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10521	10656	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7598	7733	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10521	10656	
==>rn $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    n <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24629	24724	
==>gedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23393	23488	
==>gedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24629	24724	
==>gedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23393	23488	
==>gedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20558	20676	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17697	17815	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20558	20676	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17697	17815	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20558	20676	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17697	17815	
==>ue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5156	5262	
==>ue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5156	5262	
==>ue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5156	5262	
==>ue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7890	7995	
==>lder           $:singleton;
  has Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::Te <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43179	43343	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46523	46687	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47644	47808	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35504	35661	
==>method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6709	6860	
==>method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36429	36579	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37964	38114	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7886	8035	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8833	8982	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9792	9940	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'symbol') <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12565	12711	
==>);
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12565	12711	
==>);
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12565	12711	
==>);
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1432	1555	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2995	3118	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1432	1555	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2995	3118	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1432	1555	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2995	3118	
==>ace. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = u <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2601	2702	
==>ode inside the thunk won't be run - it must be the
first child of an App for that to happen.

Inherits <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3713	3821	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6649	6757	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3713	3821	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6649	6757	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3713	3821	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6649	6757	
==>ethod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6 <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3614	3721	
==>Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (b <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3614	3721	
==>Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (b <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	4489	4594	
==>Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (b <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4489	4594	
==>Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (b <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23112	23224	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1685	1797	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19482	19594	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3976	4088	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1648	1760	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23112	23224	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1685	1797	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19482	19594	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3976	4088	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1648	1760	
==>s any version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Lo <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7082	7183	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6212	6313	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2866	2967	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2866	2967	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7082	7183	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6212	6313	
==>ool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$s <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22116	22208	
==>ric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=it <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20997	21089	
==>ric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=it <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22116	22208	
==>ric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=it <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20997	21089	
==>ric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=it <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20269	20448	
==>s = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Contai <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20269	20448	
==>s = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Contai <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20269	20448	
==>s = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Contai <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33588	33713	
==>gth, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVE <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33588	33713	
==>gth, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVE <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33588	33713	
==>gth, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVE <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3305	3421	
==>xpected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is spe <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3305	3421	
==>xpected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is spe <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5616	5720	
==>t>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{no <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5616	5720	
==>t>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{no <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	406	518	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	716	828	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1106	1218	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1094	1206	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1733	1845	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2168	2280	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2602	2714	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	406	518	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	716	828	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1106	1218	
==>y $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	824	940	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatch <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	824	940	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatch <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	824	940	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatch <==
10	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	509	621	
==>lled for all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25536	25646	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27731	27841	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25536	25646	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27731	27841	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25536	25646	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27731	27841	
==>s 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->el <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18112	18241	
==>floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regist <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17150	17279	
==>floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regist <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18112	18241	
==>floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regist <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17150	17279	
==>floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regist <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10753	10869	
==>hould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.di <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10753	10869	
==>hould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.di <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10753	10869	
==>hould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.di <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12811	12914	
==>:Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchabl <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12811	12914	
==>:Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchabl <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12811	12914	
==>:Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchabl <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3461	3571	
==>(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3461	3571	
==>(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3461	3571	
==>(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3809	3912	
==>ring',
  'paramContext' ,'Cxt',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'St <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5004	5101	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3232	3329	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5004	5101	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3232	3329	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5004	5101	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3232	3329	
==>el) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->di <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12775	12907	
==>my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL: <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12775	12907	
==>my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL: <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12775	12907	
==>my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL: <==
10	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9854	9967	
==>reverse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type Comparato <==
10	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1056	1167	
==>+ $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.star <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1056	1167	
==>+ $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.star <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24277	24373	
==>ractive program controlling their
  actions) which are always seen to be replying lest they end u <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23050	23146	
==>ractive program controlling their
  actions) which are always seen to be replying lest they end u <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24277	24373	
==>ractive program controlling their
  actions) which are always seen to be replying lest they end u <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23050	23146	
==>ractive program controlling their
  actions) which are always seen to be replying lest they end u <==
10	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8418	8559	
==>gin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	6961	7058	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6091	6188	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2745	2842	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2745	2842	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6961	7058	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6091	6188	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5251	5338	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5251	5338	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_met <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5251	5338	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_met <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4190	4291	
==>ial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspectiv <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	635	736	
==>,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	405	506	
==>,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4190	4291	
==>ial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspectiv <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4190	4291	
==>ial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspectiv <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	405	506	
==>,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	4893	4990	
==>urns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infi <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4020	4117	
==>urns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infi <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4893	4990	
==>urns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infi <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4020	4117	
==>urns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18115	18245	
==>tringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Du <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18115	18245	
==>tringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Du <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18115	18245	
==>tringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Du <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6805	6931	
==>L::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) su <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6805	6931	
==>L::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) su <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6805	6931	
==>L::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) su <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3356	3464	
==>d;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1757	1859	
==>$prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]| <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1757	1859	
==>$prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]| <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1757	1859	
==>$prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]| <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6447	6702	
==>ile @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6447	6702	
==>ile @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2214	2343	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4541	4670	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2214	2343	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4541	4670	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2214	2343	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4541	4670	
==>ives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4533	4640	
==>rse,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --- <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4533	4640	
==>rse,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --- <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39947	40045	
==>sion 2.1 of the License, or (at your option) any later version.  You
should have received a copy of <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39947	40045	
==>sion 2.1 of the License, or (at your option) any later version.  You
should have received a copy of <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23267	23363	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1840	1936	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4131	4227	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1803	1899	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23267	23363	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1840	1936	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4131	4227	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1803	1899	
==>ext> (for error messages).

It also requires these Perl 6 classes that are in the current distrib <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	674	766	
==>t->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->whites <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	390	510	
==>my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12142	12264	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3764	3886	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12142	12264	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3764	3886	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12142	12264	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3764	3886	
==>_('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6867	6987	
==>_('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6867	6987	
==>_('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6867	6987	
==>_('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')-> <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22211	22303	
==>expected" warning raised by a zero-width
assertion followed by C<?>, which doesn't warrant th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4213	4346	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7149	7282	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4213	4346	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7149	7282	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4213	4346	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7149	7282	
==>the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13174	13293	
==>e refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13174	13293	
==>e refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13174	13293	
==>e refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4013	4108	
==>the prefix on extension modules built from top level.
    my $base_path = Cwd::abs_path($FindBin <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30693	30909	
==>0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30693	30909	
==>0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30693	30909	
==>0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10009	10131	
==>---
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # --- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10009	10131	
==>---
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # --- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10009	10131	
==>---
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # --- <==
10	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2011	2126	
==>),
				),
			),
		),
		result => 120,
		name => "recursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runt <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9986	10090	
==>--------------------------
    # has %:methods;
    # has %:attributes;
    # --------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9986	10090	
==>--------------------------
    # has %:methods;
    # has %:attributes;
    # --------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9986	10090	
==>--------------------------
    # has %:methods;
    # has %:attributes;
    # --------------------------- <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2286	2477	
==>.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($eve <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2286	2477	
==>.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($eve <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4641	4746	
==>,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4888	4993	
==>,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4641	4746	
==>,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4888	4993	
==>,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4387	4491	
==>,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4387	4491	
==>,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4132	4235	
==>,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4132	4235	
==>,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1950	2078	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1062	1190	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1629	1757	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1950	2078	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1062	1190	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1629	1757	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1950	2078	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1062	1190	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1629	1757	
==>ept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allo <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9609	9702	
==>atch => \\\@match, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), capture => \\\$cap <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1854	1969	
==>samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1854	1969	
==>samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1854	1969	
==>samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7414	7522	
==>nt "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11749	11857	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2230	2337	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9002	9109	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7164	7271	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2230	2337	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9002	9109	
==>nt "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25660	25772	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27855	27967	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25660	25772	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27855	27967	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25660	25772	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27855	27967	
==>>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= sc <==
10	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	360	466	
==>inline_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11016	11115	
==>= [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@ <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11016	11115	
==>= [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@ <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11016	11115	
==>= [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19150	19260	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16388	16498	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19150	19260	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16388	16498	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19150	19260	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16388	16498	
==>fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '% <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22948	23043	
==>t> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=h <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21766	21861	
==>t> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=h <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22948	23043	
==>t> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=h <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21766	21861	
==>t> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=h <==
10	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	258	367	
==>r $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } u <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	258	367	
==>r $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } u <==
10	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	258	367	
==>r $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } u <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	258	367	
==>r $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } u <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15814	15910	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13064	13160	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15814	15910	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13064	13160	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15814	15910	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13064	13160	
==>|| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attrib <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4629	4725	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4876	4972	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4629	4725	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4876	4972	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4120	4215	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4375	4470	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4120	4215	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4375	4470	
==>(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oc <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35971	36063	
==>having all combinations of this object's
Set Names and Member Names elements, concatenated in <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35971	36063	
==>having all combinations of this object's
Set Names and Member Names elements, concatenated in <==
10	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	133	272	
==>gram schema structure
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      m <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24398	24491	
==>e it
by creating objects from its member classes, usually invoking C<new()> on
the appropriate <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20440	20533	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22030	22123	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9303	9396	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24398	24491	
==>e it
by creating objects from its member classes, usually invoking C<new()> on
the appropriate <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24992	25085	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23562	23655	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22030	22123	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9303	9396	
==>e it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39234	39323	
==>>.

=item C<product (Relation::Example $other!) returns Relation::Example>

This multi-met <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6856	6944	
==>----------------------------------------------------
## BOOTSTRAPPING ROLES
## ---------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6879	6967	
==>-----------------------------
## BOOTSTRAPPING ROLES
## --------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6902	6990	
==>------
## BOOTSTRAPPING ROLES
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6856	6944	
==>----------------------------------------------------
## BOOTSTRAPPING ROLES
## ---------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6879	6967	
==>-----------------------------
## BOOTSTRAPPING ROLES
## --------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6902	6990	
==>------
## BOOTSTRAPPING ROLES
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6856	6944	
==>----------------------------------------------------
## BOOTSTRAPPING ROLES
## ---------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6879	6967	
==>-----------------------------
## BOOTSTRAPPING ROLES
## --------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6902	6990	
==>------
## BOOTSTRAPPING ROLES
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6299	6454	
==>e> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(.. <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12530	12670	
==>atus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Te <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2900	3034	
==>atus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Te <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2900	3034	
==>atus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Te <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11531	11663	
==>atus returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Te <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11972	12103	
==>atus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Te <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1971	2097	
==>atus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Te <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1971	2097	
==>atus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Te <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2380	2505	
==>atus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Te <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2380	2505	
==>atus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Te <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2811	2929	
==>[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5405	5523	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8375	8493	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2811	2929	
==>[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[ <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2811	2929	
==>[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5405	5523	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8375	8493	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5405	5523	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8375	8493	
==>l 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a cons <==
10	/Users/nnunley/pugs/misc/Date/lib/Date.pm	352	447	
==>$duration) returns Date {
    $self.add(-$duration);
}

method difference($self: Date $other) re <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17838	18015	
==>_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17838	18015	
==>_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17838	18015	
==>_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $sel <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8188	8315	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5747	5874	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8188	8315	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5747	5874	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8188	8315	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5747	5874	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1876	2003	
==>cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8214	8328	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5773	5887	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8214	8328	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5773	5887	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8214	8328	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5773	5887	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1902	2016	
==>hrough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonempt <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17611	17706	
==>6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17611	17706	
==>6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17611	17706	
==>6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3007	3127	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10930	11050	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12194	12314	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6132	6252	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6761	6881	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3007	3127	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10930	11050	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12194	12314	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6132	6252	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6761	6881	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defi <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20545	20665	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17684	17804	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20545	20665	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17684	17804	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20545	20665	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17684	17804	
==>/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instanc <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5143	5251	
==>/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5143	5251	
==>/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5143	5251	
==>/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instanc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1168	1262	
==>ilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
Th <==
10	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12646	12786	
==>elf, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $YES;
    }
    else {
        return $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37580	37695	
==>:Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37580	37695	
==>:Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37580	37695	
==>:Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17	114	
==>use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17	114	
==>use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17	114	
==>use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17	113	
==>use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17	113	
==>use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17	113	
==>use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sca <==
10	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2949	3070	
==>ut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô', <==
10	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2949	3070	
==>ut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô', <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18099	18213	
==>$S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14520	14634	
==>$S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3992	4101	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6641	6750	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4230	4336	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10679	10785	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4230	4336	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10679	10785	
==>rn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Ru <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8133	8260	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5692	5819	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8133	8260	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5692	5819	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8133	8260	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5692	5819	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1821	1948	
==>sistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off t <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19219	19344	
==>""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19219	19344	
==>""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19219	19344	
==>""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17707	17837	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14927	15057	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17707	17837	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14927	15057	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17707	17837	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14927	15057	
==>$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get <==
10	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13049	13144	
==>argument they are each decoded
separately and the same number of strings are returned.

If calle <==
10	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13049	13144	
==>argument they are each decoded
separately and the same number of strings are returned.

If calle <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1	91	
==>package Perl6::Core::List;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::S <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5627	5716	
==>my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->struct_equiv = <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4797	4923	
==>hat presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4797	4923	
==>hat presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4797	4923	
==>hat presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3777	3888	
==>one = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3777	3888	
==>one = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3777	3888	
==>one = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1217	1323	
==>ased on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtim <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1566	1670	
==>ased on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtim <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1173	1277	
==>ased on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtim <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1566	1670	
==>ased on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtim <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6725	6849	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7486	7610	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8356	8480	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10202	10326	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10963	11087	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11833	11957	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9312	9436	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10118	10242	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11033	11157	
==>@others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the h <==
10	/Users/nnunley/pugs/util/munge_haddock.pl	76	176	
==>ntained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^ <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	29	128	
==>ternal packages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.7 <==
10	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2716	2835	
==>iny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str> <==
10	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2716	2835	
==>iny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str> <==
10	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1888	1983	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	518	613	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1656	1751	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13964	14059	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1888	1983	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	518	613	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1656	1751	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13964	14059	
==>S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reser <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2855	2996	
==>pool,
            $self->index,
    );

    for my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    return 1;
}

### the <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18351	18467	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8621	8737	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15589	15705	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18351	18467	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8621	8737	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15589	15705	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18351	18467	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8621	8737	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15589	15705	
==>p is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        r <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1407	1530	
==>s) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1751	1871	
==>s) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1358	1478	
==>s) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1751	1871	
==>s) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	6890	6986	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6020	6116	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2674	2770	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2674	2770	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6890	6986	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6020	6116	
==>ember) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) re <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3396	3544	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8681	8828	
==>return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3653	3796	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10071	10214	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3653	3796	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10071	10214	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8376	8518	
==>return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12536	12649	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->st <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12536	12649	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->st <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12536	12649	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->st <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4878	4995	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7527	7644	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5092	5203	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11541	11652	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5092	5203	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11541	11652	
==>$head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's p <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1447	1552	
==>h @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind:: <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1288	1393	
==>l5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name' <==
10	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1447	1552	
==>h @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind:: <==
10	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1656	1761	
==>h @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4431	4537	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4655	4761	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4431	4537	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4655	4761	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4431	4537	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4655	4761	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3587	3693	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3955	4061	
==>ee comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  } <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15833	15932	
==>:descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&di <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	9692	9778	
==>_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is bui <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4335	4456	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6984	7105	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4564	4682	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11013	11131	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4564	4682	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11013	11131	
==>e::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumpe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2024	2117	
==>S";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2024	2117	
==>S";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PI <==
10	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2024	2117	
==>S";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PI <==
10	/Users/nnunley/pugs/util/build_pugs.pl	1088	1180	
==>y ($version, $ghc, $ghc_version, $setup, @args) = @{$opts->{GHC}};
    write_buildinfo($versi <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47328	47487	
==>>get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method l <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	837	966	
==>>( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	837	966	
==>>( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4178	4296	
==>rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $app->fmap(sub { <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	843	951	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	931	1039	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	843	951	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	931	1039	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	843	951	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	931	1039	
==>elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --option <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13133	13248	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21183	21298	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13412	13527	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21462	21577	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2719	2832	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5709	5822	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3014	3120	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9432	9538	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3014	3120	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9432	9538	
==>uleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return al <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6730	6854	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7491	7615	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8361	8485	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10207	10331	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10968	11092	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11838	11962	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9317	9441	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10123	10247	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11038	11162	
==>rs -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headin <==
10	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	41	146	
==>om
#    ECMA-262, ECMAScript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specific <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	1396	1493	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	1315	1412	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	2328	2425	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1842	1939	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	1370	1467	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	1396	1493	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	1315	1412	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	2328	2425	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1842	1939	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	1370	1467	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2422	2552	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3131	3261	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2422	2552	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3131	3261	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2422	2552	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3131	3261	
==>e::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = s <==
10	/Users/nnunley/pugs/misc/Blondie/milner.pl	19274	19377	
==>or::nullary->new("str")),
		),
	),
);

# if we don't know what symbol it is we can't type it
my $no_such <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16185	16283	
==>s->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16185	16283	
==>s->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16185	16283	
==>s->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7763	7930	
==>d every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        n <==
10	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8227	8394	
==>d every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        n <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4193	4348	
==>d every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    n <==
10	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4657	4812	
==>d every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    n <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3954	4053	
==>pe_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' } <==
10	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4287	4386	
==>pe_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' } <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3954	4053	
==>pe_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' } <==
10	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4287	4386	
==>pe_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' } <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	745	838	
==>tric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	745	838	
==>tric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12089	12217	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3711	3839	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12089	12217	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3711	3839	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12089	12217	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3711	3839	
==>able} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6815	6941	
==>able} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6815	6941	
==>able} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6815	6941	
==>able} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie } <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4693	4803	
==>r ), return;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->pack <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31467	31605	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33224	33362	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31467	31605	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33224	33362	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31467	31605	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33224	33362	
==>list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            e <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4168	4264	
==>sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_int <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4168	4264	
==>sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_int <==
10	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4125	4219	
==>sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_int <==
10	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4125	4219	
==>sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_int <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23168	23288	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1741	1861	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19538	19658	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4032	4152	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1704	1824	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23168	23288	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1741	1861	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19538	19658	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4032	4152	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1704	1824	
==>also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messag <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20856	20974	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21048	21166	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21500	21618	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21695	21813	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21879	21997	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17277	17395	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17469	17587	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17921	18039	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18116	18234	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18300	18418	
==>sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
10	/Users/nnunley/pugs/inc/Test/Harness.pm	28182	28275	
==>ng C<HARNESS_PERL_SWITCHES> to C<-W> will
run all tests with all warnings enabled.

=item C<HA <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4681	4763	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6008	6090	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8203	8285	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4681	4763	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6008	6090	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8203	8285	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4681	4763	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6008	6090	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8203	8285	
==>rl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice} <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	5132	5234	
==>($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4259	4361	
==>($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5132	5234	
==>($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4259	4361	
==>($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	4780	4878	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3907	4005	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	693	791	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	693	791	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4780	4878	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3907	4005	
==>{
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27026	27137	
==>package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Rege <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17510	17610	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4445	4545	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8091	8191	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17510	17610	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4445	4545	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8091	8191	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17510	17610	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4445	4545	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8091	8191	
==>>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9132	9259	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12105	12232	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9132	9259	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12105	12232	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9132	9259	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12105	12232	
==>rl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method') <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	477	584	
==>('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") o <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8744	8850	
==>('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") o <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8744	8850	
==>('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") o <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8744	8850	
==>('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") o <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9822	9932	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10803	10913	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12274	12384	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13299	13409	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14280	14390	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15751	15861	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12571	12681	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13579	13689	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15104	15214	
==>ficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have z <==
10	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16258	16352	
==>t_file_state>

  $strap->_reset_file_state;

Resets things like C<< $strap->{max} >> , C<< $str <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2241	2368	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1353	1480	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1917	2044	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2241	2368	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1353	1480	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1917	2044	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2241	2368	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1353	1480	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1917	2044	
==>ly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the sp <==
10	/Users/nnunley/pugs/misc/S29_round.pl	2841	2960	
==>d down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17652	17771	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8233	8352	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14872	14991	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17652	17771	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8233	8352	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14872	14991	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17652	17771	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8233	8352	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14872	14991	
==>. ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->h <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17546	17661	
==>ncat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type gramma <==
10	/Users/nnunley/pugs/util/svnlog2graph.pl	1399	1500	
==>te the graph.
my $graph = GD::Graph::lines->new(500, 350);
$graph->set(
  title        => "Pugs develo <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20507	20602	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22097	22192	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9370	9465	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25059	25154	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23629	23724	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22097	22192	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9370	9465	
==>C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
thei <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24465	24559	
==>C<new()> on
the appropriate class name, and then invoking methods on those objects.
All of thei <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24465	24559	
==>C<new()> on
the appropriate class name, and then invoking methods on those objects.
All of thei <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32514	32607	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33171	33264	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33576	33669	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	35559	35652	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	37369	37462	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37064	37157	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37721	37814	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38126	38219	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40109	40202	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41918	42011	
==>(Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforement <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13314	13469	
==>s );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13314	13469	
==>s );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[ <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5990	6080	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1186	1276	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6951	7041	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1391	1481	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5990	6080	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1186	1276	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6951	7041	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1391	1481	
==>HORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7444	7579	
==>" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11779	11914	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2260	2390	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9032	9162	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7194	7324	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2260	2390	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9032	9162	
==>" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3427	3535	
==>ired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  und <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3427	3535	
==>ired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  und <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3427	3535	
==>ired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  und <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22121	22216	
==>ate class name, and then invoking methods on those objects.  All of
their attributes are private <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9394	9489	
==>ate class name, and then invoking methods on those objects.  All of
their attributes are private <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	11512	11607	
==>>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set. <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8659	8754	
==>>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22121	22216	
==>ate class name, and then invoking methods on those objects.  All of
their attributes are private <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9394	9489	
==>ate class name, and then invoking methods on those objects.  All of
their attributes are private <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11512	11607	
==>>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set. <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8659	8754	
==>>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set. <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24489	24583	
==>ate class name, and then invoking methods on those objects.
All of their attributes are private <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24489	24583	
==>ate class name, and then invoking methods on those objects.
All of their attributes are private <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12076	12203	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3698	3825	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12076	12203	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3698	3825	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12076	12203	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3698	3825	
==>:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:c <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6802	6927	
==>:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6802	6927	
==>:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:c <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6802	6927	
==>:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:c <==
10	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10651	10742	
==>s_pos(vertical_space))    --> "\\v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9218	9353	
==>port_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7801	7933	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5360	5492	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7801	7933	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5360	5492	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7801	7933	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5360	5492	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1489	1621	
==>not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_ <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1342	1471	
==>port_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passe <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1342	1471	
==>port_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passe <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9820	9928	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10801	10909	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12272	12380	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13297	13405	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14278	14386	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15749	15857	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12569	12677	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13577	13685	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15102	15210	
==>efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources ha <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	926	1011	
==>ion_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15516	15684	
==>ray->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15516	15684	
==>ray->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15516	15684	
==>ray->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4033	4130	
==>r more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4033	4130	
==>r more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7012	7108	
==>r more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9082	9178	
==>r more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7012	7108	
==>r more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9082	9178	
==>r more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	853	944	
==>up_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finder->duplicate_ <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24496	24606	
==>l {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18366	18480	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8636	8750	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15604	15718	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18366	18480	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8636	8750	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15604	15718	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18366	18480	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8636	8750	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15604	15718	
==>ot correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self-> <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19403	19493	
==>roduct (Relation::Example $other!) returns Relation::Example {
    return Relation::Example <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1693	1805	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1863	1975	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2087	2199	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2313	2425	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3250	3362	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1693	1805	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1863	1975	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2087	2199	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2313	2425	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3250	3362	
==>> q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' ke <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2275	2379	
==>rd boundary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24743	24843	
==>e is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20782	20882	
==>e is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
re <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22357	22457	
==>e is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
re <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9643	9743	
==>e is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply re <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24743	24843	
==>e is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25334	25434	
==>e is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23922	24022	
==>e is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
re <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22357	22457	
==>e is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
re <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9643	9743	
==>e is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply re <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3296	3409	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6232	6345	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3296	3409	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6232	6345	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3296	3409	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6232	6345	
==>ience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        r <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7541	7631	
==>code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chro <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1769	1859	
==>code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chro <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9175	9265	
==>code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chro <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1987	2077	
==>code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chro <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2425	2528	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1694	1797	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2425	2528	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1580	1683	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4915	5010	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	602	697	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1646	1741	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3507	3602	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5055	5150	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	602	697	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7684	7850	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8085	8251	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8486	8652	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7684	7850	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8085	8251	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8486	8652	
==>{ 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yie <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27848	27966	
==>st {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(method MRO ((opaque $self:)) returns lis <==
10	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5837	5933	
==>ss/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Cont <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5837	5933	
==>ss/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Cont <==
10	/Users/nnunley/pugs/util/config_h.pl	914	1010	
==>ou have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mingw|msys|cygwin/i) {
    print O <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9840	9950	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10821	10931	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12292	12402	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13317	13427	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14298	14408	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15769	15879	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12589	12699	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13597	13707	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15122	15232	
==>erent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so doe <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1691	1800	
==>a('type'))
        || confess "The right hand side must be a core type";    
    ($right->to_num->to_native != <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4199	4392	
==>s;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4199	4392	
==>s;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3407	3556	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8692	8840	
==>{

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't wo <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3664	3808	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10082	10226	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3664	3808	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10082	10226	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8387	8530	
==>{
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't wo <==
10	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16418	16524	
==>ut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $self-> <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	211	333	
==>host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Ent <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	215	337	
==>host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Ent <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	211	333	
==>host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Ent <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	215	337	
==>host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Ent <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2528	2637	
==>'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exis <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2528	2637	
==>'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exis <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2528	2637	
==>'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exis <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21090	21182	
==>x0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21090	21182	
==>x0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21090	21182	
==>x0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {. <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10861	11051	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2526	2716	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4340	4530	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10861	11051	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2526	2716	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4340	4530	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10861	11051	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2526	2716	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4340	4530	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        b <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32287	32386	
==>The raw representation of this object.

=item type

The specific type of this object.

=item up

Whe <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	302	447	
==>h->new({
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  sh <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17525	17636	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4460	4571	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8106	8217	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17525	17636	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4460	4571	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8106	8217	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17525	17636	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4460	4571	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8106	8217	
==>TCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cann <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7003	7138	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4562	4697	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7003	7138	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4562	4697	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7003	7138	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4562	4697	
==>merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empt <==
10	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4641	4762	
==>tidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $mult <==
10	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4641	4762	
==>tidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $mult <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7819	7921	
==>ting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7819	7921	
==>ting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => <==
10	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1726	1883	
==>== Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_ <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1726	1883	
==>== Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_ <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4591	4694	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4838	4941	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4591	4694	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4838	4941	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4082	4184	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4337	4439	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4082	4184	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4337	4439	
==>= splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	760	868	
==>items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	760	868	
==>items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4963	5071	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7612	7720	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5171	5276	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11620	11725	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5171	5276	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11620	11725	
==>gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = sh <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7776	7871	
==>is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fir <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7776	7871	
==>is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fir <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5505	5625	
==>$I1
    inc pos
    goto term_bx1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11044	11156	
==>=>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_c <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11044	11156	
==>=>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_c <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11044	11156	
==>=>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_c <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9877	9988	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10858	10969	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12329	12440	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13354	13465	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14335	14446	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15806	15917	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29156	29274	
==>xt_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L:: <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29735	29853	
==>xt_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L:: <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29156	29274	
==>xt_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L:: <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29735	29853	
==>xt_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7090	7207	
==>ed_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constan <==
10	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7090	7207	
==>ed_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constan <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	495	601	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L:: <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	527	633	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L:: <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	742	848	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L:: <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	742	848	
==>xt_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4889	5028	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5850	5989	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6978	7117	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4889	5028	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5850	5989	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6978	7117	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4889	5028	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5850	5989	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6978	7117	
==>t' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrem <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	663	774	
==>hods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confes <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1097	1256	
==>iled => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SE <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1097	1256	
==>iled => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SE <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1097	1256	
==>iled => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SE <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15534	15647	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12790	12903	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15534	15647	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12790	12903	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15534	15647	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12790	12903	
==>::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3002	3102	
==>($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cm <==
10	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15700	15842	
==>e the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by reg <==
10	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19933	20075	
==>e the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by reg <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	48	140	
==>d by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5367	5494	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6328	6455	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5367	5494	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6328	6455	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5367	5494	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6328	6455	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7543	7669	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7543	7669	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7543	7669	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Pe <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11600	11703	
==>>object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a unicode property)
  $self->add_hand <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	5682	5862	
==>t of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacement <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9159	9339	
==>t of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacement <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3275	3385	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8560	8670	
==>greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6268	6376	
==>greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3537	3644	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9955	10062	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8260	8367	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3537	3644	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9955	10062	
==>greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usa <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23065	23279	
==>ant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23344	23558	
==>ant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	812	972	
==>e  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that do <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	812	972	
==>e  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that do <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3679	3770	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6698	6789	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8767	8858	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3679	3770	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6698	6789	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8767	8858	
==>o File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein < <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23130	23246	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1703	1819	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19500	19616	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3994	4110	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1666	1782	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23130	23246	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1703	1819	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19500	19616	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3994	4110	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1666	1782	
==>erl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	423	526	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	733	836	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1123	1226	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1111	1214	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1750	1853	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2185	2288	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2619	2722	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	423	526	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	733	836	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1123	1226	
==>t;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11618	11753	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3130	3265	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11618	11753	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3130	3265	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11618	11753	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3130	3265	
==>urn this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8071	8197	
==>urn this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8071	8197	
==>urn this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8071	8197	
==>urn this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array <==
10	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2276	2382	
==>},
#     rather than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17521	17632	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4456	4567	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8102	8213	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17521	17632	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4456	4567	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8102	8213	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17521	17632	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4456	4567	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8102	8213	
==>('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11617	11720	
==>fined $args{stdin}) {
	# so we don't try to put literal newlines and crs onto the
	# command line.
	$arg <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	460	574	
==>1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  } <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9878	9992	
==>1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  } <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	13435	13534	
==>h are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{ <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13435	13534	
==>h are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{ <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32364	32460	
==>his method will fail if
C<$other> does not have an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	34059	34155	
==>his method will fail if C<$other> does not have
an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36914	37010	
==>his method will fail if
C<$other> does not have an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38609	38705	
==>his method will fail if C<$other> does not have
an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36204	36300	
==>his method will fail if
C<$other> does not have an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38070	38166	
==>his method will fail if C<$other> does not have
an identical header to the invocant relation.  Th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6216	6347	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9186	9317	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6216	6347	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9186	9317	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6216	6347	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9186	9317	
==>bMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::m <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3341	3454	
==>) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3341	3454	
==>) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3341	3454	
==>) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD <==
10	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	115	218	
==>nfix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, 'foo'); # $a.circumfi <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2850	2992	
==>(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3138	3272	
==>(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9556	9690	
==>(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3138	3272	
==>(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9556	9690	
==>(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	410	534	
==>=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	410	534	
==>=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5691	5808	
==>rray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Ar <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5691	5808	
==>rray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Ar <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5691	5808	
==>rray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Ar <==
10	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	916	1049	
==>am<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp <==
10	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	658	791	
==>am<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	916	1049	
==>am<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	658	791	
==>am<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20761	20850	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17899	17988	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20761	20850	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17899	17988	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20761	20850	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17899	17988	
==>metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2209	2349	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1321	1461	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1885	2025	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2209	2349	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1321	1461	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1885	2025	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2209	2349	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1321	1461	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1885	2025	
==>OTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and s <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8539	8641	
==>p6_assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1227	1337	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1512	1622	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1871	1981	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1227	1337	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1512	1622	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1871	1981	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1227	1337	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1512	1622	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1871	1981	
==>$current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $ <==
10	/Users/nnunley/pugs/misc/Blondie/milner.pl	25666	25759	
==>:variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pre <==
10	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2257	2366	
==>ame;

    if ( my $perl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type, <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	39	130	
==>kages used by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72. <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5804	5926	
==>t;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5804	5926	
==>t;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6422	6536	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7175	7289	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8039	8153	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8820	8934	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9899	10013	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10652	10766	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11516	11630	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12297	12411	
==>tion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match th <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17608	17729	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8189	8310	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14828	14949	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17608	17729	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8189	8310	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14828	14949	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17608	17729	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8189	8310	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14828	14949	
==>bel)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check f <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	0	101	
==>package JIB::Config;

use strict;
use warnings;
use Cwd;
use Config;
use Path::Class ();
use base 'Obj <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37729	37837	
==>ERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( it <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37729	37837	
==>ERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( it <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37729	37837	
==>ERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( it <==
10	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19446	19541	
==>nparens+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char wi <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9168	9261	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4311	4404	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	15747	15840	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9168	9261	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4311	4404	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15747	15840	
==>` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `e <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1946	2048	
==>" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1946	2048	
==>" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1946	2048	
==>" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" <==
10	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3013	3112	
==>you may want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/pugs/livecd-kern <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12222	12318	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9779	9875	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12222	12318	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9779	9875	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12222	12318	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9779	9875	
==>('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2288	2413	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1400	1525	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1964	2089	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2288	2413	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1400	1525	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1964	2089	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2288	2413	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1400	1525	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1964	2089	
==>ld peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38506	38610	
==>:AndBranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.* <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4918	5038	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5879	5999	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7007	7127	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4918	5038	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5879	5999	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7007	7127	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4918	5038	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5879	5999	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7007	7127	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => su <==
10	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12386	12489	
==>g value,
  and call the original Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3513	3613	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6527	6627	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8595	8695	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3513	3613	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6527	6627	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8595	8695	
==>`path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Pe <==
10	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	395	493	
==>ol::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Boo <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	395	493	
==>ol::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Boo <==
10	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1408	1505	
==>ol::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Boo <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1408	1505	
==>ol::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Boo <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1252	1370	
==>lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1252	1370	
==>lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1252	1370	
==>lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7840	7956	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10763	10879	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7840	7956	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10763	10879	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7840	7956	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10763	10879	
==>licit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if ble <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	115	224	
==>confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $name, $type) = @_;
    ( <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5355	5490	
==>x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18328	18443	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8598	8713	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15566	15681	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18328	18443	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8598	8713	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15566	15681	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18328	18443	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8598	8713	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15566	15681	
==>XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for inst <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	9852	9958	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10833	10939	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12304	12410	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13329	13435	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14310	14416	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15781	15887	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12601	12707	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13609	13715	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15134	15240	
==>f ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result <==
10	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6	105	
==>rict;
use warnings;

no warnings 'recursion';

use Scalar::Util ();
use String::Escape ();
use Term: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29697	29835	
==>::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unbo <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29697	29835	
==>::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unbo <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29697	29835	
==>::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unbo <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19947	20062	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17086	17201	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19947	20062	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17086	17201	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19947	20062	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17086	17201	
==>)) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scop <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38492	38582	
==>n (Relation::Example $other!) returns Relation::Example>

This method is a generic relation <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1765	1888	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1765	1888	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1765	1888	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6: <==
10	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6946	7054	
==>PIL2JS Operators.pm r8593.
# Prim.hs says \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	931	1034	
==>f lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()-> <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	931	1034	
==>f lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()-> <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	931	1034	
==>f lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1591	1693	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1591	1693	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1591	1693	
==>(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6: <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20851	20972	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21043	21164	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21495	21616	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21690	21811	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21874	21995	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17272	17393	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17464	17585	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17916	18037	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18111	18232	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18295	18416	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7559	7730	
==>tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7559	7730	
==>tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7559	7730	
==>tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6556	6662	
==>e {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6568	6674	
==>e {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	5105	5208	
==>ns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one. <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4232	4335	
==>ns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one. <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5105	5208	
==>ns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one. <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4232	4335	
==>ns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one. <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5574	5667	
==>$_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex')->new('$.real'=>$_[0],' <==
10	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	564	667	
==>m );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<densit <==
10	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	564	667	
==>m );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<densit <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3989	4091	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2080	2182	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3989	4091	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2080	2182	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3989	4091	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2080	2182	
==>atcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method-> <==
10	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4537	4632	
==>phering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers <==
10	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4537	4632	
==>phering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17596	17707	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8177	8288	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14816	14927	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17596	17707	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8177	8288	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14816	14927	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17596	17707	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8177	8288	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14816	14927	
==>label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$ <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37902	38012	
==>removed both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $se <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17644	17765	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8225	8346	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14864	14985	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17644	17765	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8225	8346	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14864	14985	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17644	17765	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8225	8346	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14864	14985	
==>H at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $s <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8191	8291	
==>ct(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digi <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	43	297	
==>s used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by pa <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	43	297	
==>s used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by pa <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	43	297	
==>s used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by pa <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43	297	
==>s used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by pa <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25584	25672	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27779	27867	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25584	25672	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27779	27867	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25584	25672	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27779	27867	
==>FT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7988	8125	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5547	5684	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7988	8125	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5547	5684	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7988	8125	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5547	5684	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1676	1813	
==>ss $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10632	10759	
==>n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10632	10759	
==>n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should a <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10632	10759	
==>n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should a <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12533	12673	
==>s returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test: <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2903	3037	
==>s returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test: <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2903	3037	
==>s returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11534	11666	
==>s returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11975	12106	
==>s returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test: <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1974	2100	
==>s returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test: <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1974	2100	
==>s returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test: <==
10	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2383	2508	
==>s returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test: <==
10	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2383	2508	
==>s returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test: <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6585	6700	
==>pression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse;
    #print Dumper $out;
    retur <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11959	12080	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3470	3591	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11959	12080	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3470	3591	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11959	12080	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3470	3591	
==>Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i] <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3310	3426	
==>r) of Any
        # Each Set member is a tuple of this Relation::Example, where the tuple
        # is represented as <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8394	8509	
==>Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8394	8509	
==>Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i] <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8394	8509	
==>Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i] <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17269	17404	
==>constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_st <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23235	23370	
==>constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_st <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17548	17683	
==>constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_st <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23514	23649	
==>constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_st <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1224	1344	
==>param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # T <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1224	1344	
==>param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # T <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23902	24013	
==>y $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifth <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20323	20434	
==>y $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifth <==
10	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1759	1856	
==>DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleane <==
10	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1759	1856	
==>DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleane <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2805	2924	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5795	5914	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2074	2191	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $s <==
10	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4293	4410	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $s <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2074	2191	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $s <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4293	4410	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $s <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3094	3207	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9512	9625	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3094	3207	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9512	9625	
==>or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt <==
10	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	408	511	
==>ge';
my $entry      = join("\n", param('entry') || %wiki{$topic});
if ($topic eq "OverView") {
    $acti <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17689	17798	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14909	15018	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17689	17798	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14909	15018	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17689	17798	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14909	15018	
==>$label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'insta <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2014	2114	
==>XX this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    ret <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2014	2114	
==>XX this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    ret <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18942	19037	
==>le of modelling anything in the real world accurately, and it
can support a complete SQL emulati <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18942	19037	
==>le of modelling anything in the real world accurately, and it
can support a complete SQL emulati <==
10	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	23	143	
==>, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @ <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22726	22841	
==>{&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    } <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19147	19262	
==>{&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    } <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4850	4959	
==>efix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4850	4959	
==>efix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pr <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4850	4959	
==>efix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pr <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7831	7933	
==>> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on ar <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6961	7063	
==>> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on ar <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7831	7933	
==>> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on ar <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6961	7063	
==>> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on ar <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7939	8055	
==>rn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11935	12048	
==>rn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11935	12048	
==>rn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't <==
10	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	418	515	
==>eneric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	963	1060	
==>eneric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() <==
10	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	418	515	
==>eneric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	963	1060	
==>eneric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	963	1060	
==>eneric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	13701	13795	
==>ent continuous measurements, such as times, temperatures, or price ranges.

Create a span of re <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13701	13795	
==>ent continuous measurements, such as times, temperatures, or price ranges.

Create a span of re <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	21	119	
==>6;

# External packages used by packages in this file, that don't export symbols:
use Locale::Keyed <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10169	10309	
==>ames6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ." <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10169	10309	
==>ames6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ." <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10169	10309	
==>ames6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ." <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2194	2304	
==>ift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub join {
    my ($self, $delimiter) = @_;
    (blessed($del <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5790	5887	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8760	8857	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5790	5887	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8760	8857	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5790	5887	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8760	8857	
==>he other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Pe <==
10	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3728	3827	
==>> $a->{timestamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1828	1920	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1714	1806	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5041	5129	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4914	5002	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	728	816	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6578	6666	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5181	5269	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5164	5252	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	728	816	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelman <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12528	12648	
==>A-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # start of char class (and p <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24410	24502	
==>ting objects from its member classes, usually invoking C<new()> on
the appropriate class name <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20452	20544	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22042	22134	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9315	9407	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24410	24502	
==>ting objects from its member classes, usually invoking C<new()> on
the appropriate class name <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25004	25096	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23574	23666	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22042	22134	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9315	9407	
==>ting objects from its member classes, usually invoking C<new()> on the
appropriate class name <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41142	41241	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13530	13629	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9322	9421	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	490	589	
==>/inc/ version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Insta <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41142	41241	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13530	13629	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9322	9421	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41142	41241	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13530	13629	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9322	9421	
==>...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	10140	10262	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	12781	12903	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13617	13739	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16258	16380	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12898	13020	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15620	15742	
==>ce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; r <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14006	14121	
==>the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rk <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14006	14121	
==>the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rk <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13072	13179	
==>the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rk <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13072	13179	
==>the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rk <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	793	910	
==>s
        my @nonemptyseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @seqs);
        # return the list if w <==
10	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7497	7601	
==>eve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my $e <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18133	18215	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18441	18523	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21390	21472	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21700	21782	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41398	41480	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41706	41788	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44297	44379	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44607	44689	
==>'$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13517	13623	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10801	10907	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13517	13623	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10801	10907	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13517	13623	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10801	10907	
==>f => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instan <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6854	6945	
==>er>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4206	4297	
==>er>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6854	6945	
==>er>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4206	4297	
==>er>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	602	694	
==>shift;

	warn Carp::longmess unless $node->can("digest");
    Blondie::Backend::Perl::Builtin <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3991	4081	
==>-------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4014	4104	
==>--------------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4037	4127	
==>---
## BEGIN BOOTSTRAPPING AREA
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3991	4081	
==>-------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4014	4104	
==>--------------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4037	4127	
==>---
## BEGIN BOOTSTRAPPING AREA
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3991	4081	
==>-------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4014	4104	
==>--------------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4037	4127	
==>---
## BEGIN BOOTSTRAPPING AREA
## -------------------------------------------------------- <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5638	5773	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3758	3893	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5638	5773	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3758	3893	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5638	5773	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3758	3893	
==>->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subc <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24675	24772	
==>fully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main r <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23439	23536	
==>fully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main r <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24675	24772	
==>fully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main r <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23439	23536	
==>fully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main r <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	883	992	
==>to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of al <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	883	992	
==>to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of al <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	883	992	
==>to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of al <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5609	5716	
==>->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no war <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	36324	36417	
==>ues of those attributes differ and unioning
the remaining said tuple pairs, then eliminating a <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	38077	38170	
==>ues of those attributes differ and unioning the remaining said tuple
pairs, then eliminating a <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40873	40966	
==>ues of those attributes differ and unioning
the remaining said tuple pairs, then eliminating a <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42626	42719	
==>ues of those attributes differ and unioning the remaining said tuple
pairs, then eliminating a <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40487	40580	
==>ues of those attributes differ and unioning
the remaining said tuple pairs, then eliminating a <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42276	42369	
==>ues of those attributes differ and unioning the remaining said tuple
pairs, then eliminating a <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14825	14960	
==>$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resul <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14825	14960	
==>$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resul <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14825	14960	
==>$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resul <==
10	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3169	3304	
==>$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resul <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13349	13453	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10633	10737	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13349	13453	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10633	10737	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13349	13453	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10633	10737	
==>'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params-> <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9347	9452	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6894	6999	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9347	9452	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6894	6999	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9347	9452	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6894	6999	
==>readth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendan <==
10	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	89	188	
==>s;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Inf <==
10	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	89	188	
==>s;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Inf <==
10	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	767	856	
==>rl         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.ex <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	654	741	
==>rl       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.ex <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23155	23253	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1728	1826	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19525	19623	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4019	4117	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1691	1789	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23155	23253	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1728	1826	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19525	19623	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4019	4117	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1691	1789	
==>t 6.0.0.

It also requires these Perl 6 classes that are on CPAN:
L<Locale::KeyedText-(1.72.0...)|L <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	882	989	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1044	1151	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1260	1367	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1478	1585	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2918	3025	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	882	989	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1044	1151	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1260	1367	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1478	1585	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2918	3025	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements i <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11816	11960	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3327	3471	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11816	11960	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3327	3471	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11816	11960	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3327	3471	
==>y object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24122	24263	
==>_method' => (
    # method label
        symbol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            m <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8259	8395	
==>y object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8259	8395	
==>y object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8259	8395	
==>y object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Bo <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4064	4197	
==>cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:supe <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	540	643	
==>g the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08 <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	540	643	
==>g the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08 <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	540	643	
==>g the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08 <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8745	8846	
==>ete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return va <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8745	8846	
==>ete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return va <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9003	9102	
==>ete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return va <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9003	9102	
==>ete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return va <==
10	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	571	663	
==>:DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addar <==
10	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	571	663	
==>:DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addar <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2600	2747	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5605	5752	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1290	1437	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2966	3113	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2600	2747	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5605	5752	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1290	1437	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2966	3113	
==>handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($lin <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2381	2483	
==>od stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2381	2483	
==>od stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10992	11127	
==>he{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10992	11127	
==>he{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($ <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10992	11127	
==>he{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($ <==
10	/Users/nnunley/pugs/src/perl6/Prelude.pm	21349	21474	
==>m";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$p <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	322	432	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	320	430	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	322	432	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	320	430	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	322	432	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	320	430	
==>sically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shoul <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5269	5404	
==>\}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  " <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5269	5404	
==>\}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  " <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5269	5404	
==>\}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  " <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6056	6179	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9026	9149	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6056	6179	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9026	9149	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6056	6179	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9026	9149	
==>ethod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { con <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	492	607	
==>tore => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    my $ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1682	1798	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1852	1968	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2076	2192	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2302	2418	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3239	3355	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1682	1798	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1852	1968	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2076	2192	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2302	2418	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3239	3355	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<K <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8165	8307	
==>b_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'sca <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8165	8307	
==>b_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'sca <==
10	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2704	2804	
==>conds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = spl <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2704	2804	
==>conds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = spl <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7791	7888	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6921	7018	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3507	3604	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3507	3604	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7791	7888	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6921	7018	
==>n't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($me <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13776	13923	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20271	20418	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21366	21513	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22284	22431	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29115	29262	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14055	14202	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20550	20697	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21645	21792	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22563	22710	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29394	29541	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3027	3145	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10950	11068	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12214	12332	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6152	6270	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6781	6899	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3027	3145	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10950	11068	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12214	12332	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6152	6270	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6781	6899	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_d <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4006	4153	
==>,
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unbo <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4006	4153	
==>,
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unbo <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4006	4153	
==>,
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unbo <==
10	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9074	9197	
==>w(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{ <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	379	478	
==>w(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{ <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	455	554	
==>w(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{ <==
10	/Users/nnunley/pugs/blib6/lib/Set.pm	7218	7310	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) re <==
10	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6348	6440	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) re <==
10	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7218	7310	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) re <==
10	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6348	6440	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) re <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6403	6553	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8852	9002	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6403	6553	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8852	9002	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6403	6553	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8852	9002	
==>ntiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice sta <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	775	878	
==>,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_arra <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	231	332	
==>ets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	231	332	
==>ets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	231	332	
==>ets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3396	3520	
==>ess $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$ol <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3396	3520	
==>ess $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$ol <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5884	5996	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8854	8966	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5884	5996	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8854	8966	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5884	5996	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8854	8966	
==>('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	12224	12328	
==>7-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00: <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12224	12328	
==>7-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00: <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10243	10370	
==>be;
            for my $test ( grep { $_->package ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep { <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24435	24527	
==>ber classes, usually invoking C<new()> on
the appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20477	20569	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22067	22159	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9340	9432	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24435	24527	
==>ber classes, usually invoking C<new()> on
the appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25029	25121	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23599	23691	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22067	22159	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9340	9432	
==>ber classes, usually invoking C<new()> on the
appropriate class name, and then invoking metho <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17647	17767	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8228	8348	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14867	14987	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17647	17767	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8228	8348	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14867	14987	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17647	17767	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8228	8348	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14867	14987	
==>t (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $sel <==
10	/Users/nnunley/pugs/inc/Test/Harness.pm	5765	5876	
==>he tests
run.  Its keys and values are this:

    bonus           Number of individual todo tests unexpectedly p <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15894	16029	
==>'WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11910	12038	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3421	3549	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11910	12038	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3421	3549	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11910	12038	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3421	3549	
==>+) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STOR <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8347	8469	
==>+) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8347	8469	
==>+) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STOR <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8347	8469	
==>+) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STOR <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4050	4176	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6986	7112	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4050	4176	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6986	7112	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4050	4176	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6986	7112	
==>rapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparen <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	214	332	
==>> undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $self->{seen} = Se <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	495	596	
==>N") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ > <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	495	596	
==>N") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ > <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	495	596	
==>N") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ > <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	293	412	
==>n () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	293	412	
==>n () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	293	412	
==>n () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8523	8617	
==>from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = s <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8523	8617	
==>from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = s <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8523	8617	
==>from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = s <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19564	19657	
==>kname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified i <==
10	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18545	18638	
==>kname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified i <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19564	19657	
==>kname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified i <==
10	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18545	18638	
==>kname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14162	14342	
==>fely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14162	14342	
==>fely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14162	14342	
==>fely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	198	312	
==>,
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	198	312	
==>,
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	198	312	
==>,
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH( <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20528	20630	
==>lemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, sub <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16949	17051	
==>lemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, sub <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37139	37232	
==>ts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37139	37232	
==>ts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12096	12236	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3718	3858	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12096	12236	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3718	3858	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12096	12236	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3718	3858	
==>= 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6822	6960	
==>= 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6822	6960	
==>= 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6822	6960	
==>= 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied <==
10	/Users/nnunley/pugs/misc/Blondie/milner.pl	6859	6950	
==>sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::nullary->new("i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12164	12304	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3786	3926	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12164	12304	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3786	3926	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12164	12304	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3786	3926	
==>,
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6889	7027	
==>,
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6889	7027	
==>,
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6889	7027	
==>,
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	388	522	
==>h pair $_[0]\n";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture <==
10	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	981	1095	
==>e "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "Invalid stack:[@stack[]]\n";
    retu <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25087	25183	
==>ass is pure and deterministic,
such that all of its class and object methods will each return the <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	22324	22420	
==>ass is pure and deterministic, such that all of its class
and object methods will each return the <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11218	11314	
==>ass is pure and deterministic,
such that all of its class and object methods will each return the <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14491	14587	
==>ass is pure and deterministic, such that all of its class and
object methods will each return the <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25087	25183	
==>ass is pure and deterministic,
such that all of its class and object methods will each return the <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26876	26972	
==>ass is pure and deterministic, such that all of its class
and object methods will each return the <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25599	25695	
==>ass is pure and deterministic, such that all of its class
and object methods will each return the <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11218	11314	
==>ass is pure and deterministic,
such that all of its class and object methods will each return the <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14491	14587	
==>ass is pure and deterministic, such that all of its class and
object methods will each return the <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12218	12353	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3840	3975	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12218	12353	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3840	3975	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12218	12353	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3840	3975	
==>,
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6942	7076	
==>,
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6942	7076	
==>,
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6942	7076	
==>,
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' = <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	651	744	
==>ian.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3279	3397	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8564	8682	
==>dy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    re <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6272	6386	
==>dy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    re <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3541	3654	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9959	10072	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8264	8377	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3541	3654	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9959	10072	
==>dy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    re <==
10	/Users/nnunley/pugs/blib6/lib/Span.pm	7743	7846	
==>n is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method comp <==
10	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7743	7846	
==>n is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method comp <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3044	3167	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10967	11090	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12231	12354	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6169	6292	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6798	6921	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3044	3167	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10967	11090	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12231	12354	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6169	6292	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6798	6921	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	45	146	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	31	132	
==>rict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@E <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4657	4762	
==>F); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4904	5009	
==>F); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4657	4762	
==>F); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4904	5009	
==>F); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4403	4507	
==>F); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4403	4507	
==>F); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4148	4251	
==>F); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4148	4251	
==>F); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@in <==
10	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1449	1542	
==>tils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_ <==
10	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1369	1458	
==>tils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14054	14203	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20550	20699	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21642	21791	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22574	22723	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29395	29544	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14333	14482	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20829	20978	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21921	22070	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22853	23002	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29674	29823	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	52	161	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	38	147	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	38	143	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	38	143	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw( <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	38	143	
==>se vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw( <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23204	23292	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1777	1865	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19574	19662	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4068	4156	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1740	1828	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23204	23292	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1777	1865	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19574	19662	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4068	4156	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1740	1828	
==>hat are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages). <==
10	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	530	699	
==>'$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cn <==
10	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	530	699	
==>'$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cn <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13790	13896	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14164	14270	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13790	13896	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14164	14270	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13790	13896	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14164	14270	
==>is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindin <==
10	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3469	3568	
==>s.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistr <==
10	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3469	3568	
==>s.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistr <==
10	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3186	3284	
==>d

=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie::P <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	32893	32987	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	33348	33442	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15515	15609	
==>MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->valu <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37443	37537	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37898	37992	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36778	36872	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37278	37372	
==>d is a generic binary relational operator that is like
C<union> except that the returned Relati <==
10	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15515	15609	
==>MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->valu <==
10	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15515	15609	
==>MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->valu <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12160	12301	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3782	3923	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12160	12301	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3782	3923	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12160	12301	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3782	3923	
==>_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6885	7024	
==>_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6885	7024	
==>_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6885	7024	
==>_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/P <==
10	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2718	2852	
==>y $self = shift;
    my $conf = $self->config;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $self <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1420	1541	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{c <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1420	1541	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{c <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1420	1541	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{c <==
10	/Users/nnunley/pugs/misc/S29_round.pl	3455	3575	
==>- floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = si <==
10	/Users/nnunley/pugs/misc/S29_round.pl	1767	1885	
==>- floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = si <==
10	/Users/nnunley/pugs/misc/S29_round.pl	2304	2422	
==>- floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = si <==
10	/Users/nnunley/pugs/misc/S29_round.pl	2866	2984	
==>- floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = si <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4202	4302	
==>}

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Co <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4202	4302	
==>}

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Co <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4202	4302	
==>}

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Co <==
10	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2857	2986	
==>if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my <==
10	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2857	2986	
==>if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15666	15775	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_su <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15666	15775	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_su <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15666	15775	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_su <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20387	20492	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_su <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20387	20492	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_su <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20387	20492	
==>s::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_su <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	176	281	
==>ts as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" h <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	167	268	
==>ts as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" h <==
10	/Users/nnunley/pugs/blib6/lib/Tree.pm	10794	10946	
==>w(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DES <==
10	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10794	10946	
==>w(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DES <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1868	1994	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	980	1106	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1868	1994	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	980	1106	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1868	1994	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	980	1106	
==>key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included i <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1029	1143	
==>me point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1903	2017	
==>me point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1029	1143	
==>me point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1903	2017	
==>me point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = <==
10	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1064	1168	
==>f($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $n <==
10	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24758	24856	
==>n
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you ca <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	20797	20895	
==>n exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you ca <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22372	22470	
==>n exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you ca <==
10	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9658	9756	
==>n
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you ca <==
10	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24758	24856	
==>n
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you ca <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25349	25447	
==>n exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you ca <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23937	24035	
==>n exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you ca <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22372	22470	
==>n exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you ca <==
10	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9658	9756	
==>n
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you ca <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34017	34143	
==>nite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34017	34143	
==>nite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( <==
10	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34017	34143	
==>nite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( <==
10	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18160	18272	
==>:Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token = <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21329	21437	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22450	22558	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23013	23121	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17750	17858	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18871	18979	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19434	19542	
==>my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3677	3790	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6613	6726	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3677	3790	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6613	6726	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3677	3790	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6613	6726	
==>binding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed( <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2148	2260	
==>Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2148	2260	
==>Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler <==
10	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1380	1487	
==>Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3241	3348	
==>Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15745	15887	
==>array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unle <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15745	15887	
==>array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unle <==
10	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15745	15887	
==>array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unle <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7843	7960	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10766	10883	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7843	7960	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10766	10883	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7843	7960	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10766	10883	
==>it test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed <==
10	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2179	2287	
==>LLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self- <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43171	43338	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46515	46682	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47636	47803	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35496	35656	
==>rams => method::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6701	6855	
==>rams => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36421	36574	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37956	38109	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7878	8030	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8825	8977	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9784	9935	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'sym <==
10	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7297	7464	
==>quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" ) <==
10	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7490	7657	
==>quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" ) <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3144	3255	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5945	6056	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3144	3255	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5945	6056	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3144	3255	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5945	6056	
==>l6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attr <==
10	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	17	114	
==>M::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#s <==
10	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	17	114	
==>M::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#s <==
10	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	520	634	
==>lti sub collect_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $norm <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6004	6113	
==>od () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_ins <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6004	6113	
==>od () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_ins <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6004	6113	
==>od () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_ins <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4044	4141	
==>rmation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4044	4141	
==>rmation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7023	7119	
==>rmation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9093	9189	
==>rmation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7023	7119	
==>rmation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9093	9189	
==>rmation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	849	954	
==>_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1054	1159	
==>_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift- <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1110	1215	
==>_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift- <==
10	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	125	226	
==>ample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESC <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	23	119	
==>rict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	23	119	
==>rict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	23	119	
==>rict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	23	118	
==>rict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	23	118	
==>rict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	23	118	
==>rict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar:: <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2190	2343	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1302	1455	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1866	2019	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2190	2343	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1302	1455	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1866	2019	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2190	2343	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1302	1455	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1866	2019	
==>ey}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself <==
10	/Users/nnunley/pugs/misc/S29_round.pl	2444	2586	
==>) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1 <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10407	10596	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7958	8147	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10407	10596	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7958	8147	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10407	10596	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7958	8147	
==>lass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to t <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2755	2879	
==>elf.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $ <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2755	2879	
==>elf.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $ <==
10	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3549	3669	
==>elf.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $ <==
10	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3549	3669	
==>elf.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $ <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	6760	6874	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	7521	7635	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/blib6/lib/Relation.pm	8391	8505	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10237	10351	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10998	11112	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11868	11982	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9347	9461	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10153	10267	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11068	11182	
==>eading of at least one given relation in @others does"
                ~ " not match the heading of the invocant re <==
10	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35382	35477	
==>C<*>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head2 group

Fam <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18218	18350	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15456	15588	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18218	18350	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15456	15588	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18218	18350	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15456	15588	
==>spoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-ex <==
10	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1125	1239	
==>ed);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1125	1239	
==>ed);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1125	1239	
==>ed);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS: <==
10	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16015	16123	
==>=> sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_compl <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9533	9667	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12506	12640	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9533	9667	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12506	12640	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9533	9667	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12506	12640	
==>'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of w <==
10	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8676	8777	
==>an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8676	8777	
==>an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?: <==
10	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8676	8777	
==>an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?: <==
10	/Users/nnunley/pugs/util/testgraph.pl	284	378	
==>:HTMLMatrix->css_file();
usage() if $Config{help};

my $yamlfile = shift || 'tests.yml';

open( <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	9952	10075	
==>ular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7892	8015	
==>ular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9952	10075	
==>ular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7892	8015	
==>ular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	23114	23211	
==>t member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27666	27763	
==>t member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26443	26540	
==>t member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3041	3135	
==>arams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If calle <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3041	3135	
==>arams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If calle <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12098	12281	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12870	13053	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12098	12281	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12870	13053	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12098	12281	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12870	13053	
==>$code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2731	2833	
==>ad1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2731	2833	
==>ad1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4255	4357	
==>ad1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test: <==
9	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4938	5063	
==>(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "De <==
9	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4938	5063	
==>(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "De <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10932	11044	
==>= $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'n <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10932	11044	
==>= $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'n <==
9	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3939	4048	
==>ction: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3939	4048	
==>ction: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9134	9233	
==>aders;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header( <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9134	9233	
==>aders;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header( <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5794	5889	
==>ed',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], '$.value' => $_[1]) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3258	3409	
==>b { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value('@:slo <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11549	11677	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2543	2671	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7637	7765	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11549	11677	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2543	2671	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7637	7765	
==>_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1903	2015	
==>Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2120	2232	
==>Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelu <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3266	3359	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11824	11917	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6391	6484	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3266	3359	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11824	11917	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6391	6484	
==>thod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20814	20906	
==>0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20814	20906	
==>0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20814	20906	
==>0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1577	1703	
==>ame) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1577	1703	
==>ame) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1577	1703	
==>ame) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10633	10750	
==>ntiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10633	10750	
==>ntiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10633	10750	
==>ntiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2663	2760	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2663	2760	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2663	2760	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10446	10614	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7997	8165	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10446	10614	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7997	8165	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10446	10614	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7997	8165	
==>ator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11729	11831	
==>$args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Ap <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11729	11831	
==>$args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Ap <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11729	11831	
==>$args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Ap <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3157	3277	
==>$Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Typ <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3703	3823	
==>$Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Typ <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6406	6506	
==>LE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat = <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2081	2177	
==>od _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta: <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5868	5964	
==>od _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2081	2177	
==>od _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5868	5964	
==>od _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta: <==
9	/Users/nnunley/pugs/blib6/lib/CGI.pm	9994	10089	
==>{ unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9994	10089	
==>{ unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9666	9864	
==>ey, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shif <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9666	9864	
==>ey, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shif <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9666	9864	
==>ey, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shif <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4798	4960	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7299	7461	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4798	4960	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7299	7461	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4798	4960	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7299	7461	
==>$method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                els <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3313	3431	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11871	11989	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6438	6556	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3313	3431	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11871	11989	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6438	6556	
==>ny %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%va <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2234	2340	
==>from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2234	2340	
==>from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2234	2340	
==>from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10849	11021	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2514	2686	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4328	4500	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10849	11021	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2514	2686	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4328	4500	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10849	11021	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2514	2686	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4328	4500	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12034	12182	
==>},  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12034	12182	
==>},  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12034	12182	
==>},  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3658	3804	
==>},

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3658	3804	
==>},

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3658	3804	
==>},

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6763	6907	
==>},

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6763	6907	
==>},

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6763	6907	
==>},

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'unti <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3116	3246	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6109	6239	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3389	3512	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9807	9930	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3389	3512	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9807	9930	
==>node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14326	14438	
==>able = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14326	14438	
==>able = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14326	14438	
==>able = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	962	1139	
==>ds => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5684	5791	
==>roy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::J <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5684	5791	
==>roy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::J <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5684	5791	
==>roy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::J <==
9	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2414	2511	
==>e>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under <==
9	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1869	1966	
==>e>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under <==
9	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2414	2511	
==>e>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under <==
9	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1869	1966	
==>e>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under <==
9	/Users/nnunley/pugs/util/graphfuncs.pl	81	176	
==>, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3053	3200	
==>le->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSou <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3193	3340	
==>le->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSou <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3634	3752	
==>pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3634	3752	
==>pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3634	3752	
==>pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4906	5010	
==>:Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4906	5010	
==>:Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4906	5010	
==>:Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @ <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8490	8584	
==>L::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\"";
}
sub PIL::PIL1: <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1016	1267	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1016	1267	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	23005	23116	
==>ify"),
					param => val(v => "foo", t => type::operator::nullary->new("str")),
				),
			),
		),
	),
);

my $ma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4782	4882	
==>js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4782	4882	
==>js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4782	4882	
==>js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4636	4724	
==>ype is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw( <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4636	4724	
==>ype is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw( <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5226	5314	
==>ype is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9607	9718	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12580	12691	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9607	9718	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12580	12691	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9607	9718	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12580	12691	
==>dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current disp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1647	1749	
==>die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1647	1749	
==>die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1647	1749	
==>die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2924	3024	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10847	10947	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6049	6149	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2924	3024	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10847	10947	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6049	6149	
==>msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	310	409	
==>$?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool:: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	310	409	
==>$?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool:: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	310	409	
==>$?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30201	30328	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31930	32057	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30201	30328	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31930	32057	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30201	30328	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31930	32057	
==>mp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5647	5755	
==>piderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  req <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5647	5755	
==>piderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  req <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5647	5755	
==>piderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  req <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5023	5183	
==>Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5023	5183	
==>Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5023	5183	
==>Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn " <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5809	5914	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8779	8884	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5809	5914	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8779	8884	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5809	5914	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8779	8884	
==>ethod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (def <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4923	5043	
==>$a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq ' <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4923	5043	
==>$a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq ' <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4923	5043	
==>$a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	119	222	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	380	483	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	119	222	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	380	483	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	119	222	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	380	483	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5374	5502	
==>f->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5374	5502	
==>f->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5374	5502	
==>f->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2417	2516	
==>, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rind <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2417	2516	
==>, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rind <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2417	2516	
==>, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rind <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	25536	25632	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	28222	28318	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	29233	29329	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30088	30184	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32774	32870	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33785	33881	
==>thod is a generic relational operator that returns a new Relation
which is the same as the invoca <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4013	4142	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4951	5080	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2247	2376	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2493	2622	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3028	3157	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3274	3403	
==>) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5003	5129	
==>lf->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self-> <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5003	5129	
==>lf->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self-> <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5003	5129	
==>lf->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6042	6163	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9012	9133	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6042	6163	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9012	9133	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6042	6163	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9012	9133	
==>eturn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	101	204	
==>d here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	101	204	
==>d here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	101	204	
==>d here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3486	3606	
==>=> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3486	3606	
==>=> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3486	3606	
==>=> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pas <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25250	25344	
==>mutation of its
arguments and any invocant object's attributes is identical; they do not
intera <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11381	11475	
==>mutation of its
arguments and any invocant object's attributes is identical; they do not
intera <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14654	14748	
==>mutation of its arguments and any invocant
object's attributes is identical; they do not intera <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25250	25344	
==>mutation of its
arguments and any invocant object's attributes is identical; they do not
intera <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11381	11475	
==>mutation of its
arguments and any invocant object's attributes is identical; they do not
intera <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14654	14748	
==>mutation of its arguments and any invocant
object's attributes is identical; they do not intera <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	72	170	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	783	881	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1906	2004	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	72	170	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	783	881	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1906	2004	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	72	170	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	783	881	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1906	2004	
==>sa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FET <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11805	11955	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3316	3466	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11805	11955	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3316	3466	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11805	11955	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3316	3466	
==>to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8248	8390	
==>to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8248	8390	
==>to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8248	8390	
==>to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2 <==
9	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	820	916	
==>he C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
somet <==
9	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	820	916	
==>he C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
somet <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	31970	32065	
==>ent, where <$other> has the same heading as
the invocant Relation, and returns a new Relation th <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	33831	33926	
==>ent, where <$other> has the same heading as the
invocant Relation, and returns a new Relation th <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	35233	35328	
==>nary relational operator that is identical
to C<join> except that this method will fail if any o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36520	36615	
==>ent, where <$other> has the same heading as
the invocant Relation, and returns a new Relation th <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38381	38476	
==>ent, where <$other> has the same heading as the
invocant Relation, and returns a new Relation th <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39783	39878	
==>nary relational operator that is identical
to C<join> except that this method will fail if any o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39343	39438	
==>nary relational operator that is identical
to C<join> except that this method will fail if any o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1484	1727	
==>class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2942	3120	
==>$cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc wo <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2942	3120	
==>$cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc wo <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2942	3120	
==>$cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc wo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4538	4667	
==>ms }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4538	4667	
==>ms }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4538	4667	
==>ms }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	453	551	
==>r is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export { <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	453	551	
==>r is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3295	3407	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8580	8692	
==>my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3556	3664	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9974	10082	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8279	8387	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3556	3664	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9974	10082	
==>my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6288	6396	
==>my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub { <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1540	1641	
==>]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3310	3436	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6246	6372	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3310	3436	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6246	6372	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3310	3436	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6246	6372	
==>for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            loc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	999	1121	
==>str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	999	1121	
==>str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	999	1121	
==>str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js(" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6183	6323	
==>t already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->ad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6183	6323	
==>t already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->ad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6183	6323	
==>t already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->ad <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8697	8809	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6250	6362	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8697	8809	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6250	6362	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8697	8809	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6250	6362	
==>we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclas <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	22995	23094	
==>er is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	205	304	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	146	245	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27547	27646	
==>er is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26324	26423	
==>er is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	205	304	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	146	245	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	205	304	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	146	245	
==>o the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneum <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4482	4675	
==>Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4482	4675	
==>Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4482	4675	
==>Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19568	19664	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16800	16896	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19568	19664	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16800	16896	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19568	19664	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16800	16896	
==>($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4720	4848	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2907	3035	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4720	4848	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2907	3035	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4720	4848	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2907	3035	
==>name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, an <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3680	3784	
==>le.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaul <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3680	3784	
==>le.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5877	5981	
==>le.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3455	3614	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6391	6550	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3455	3614	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6391	6550	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3455	3614	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6391	6550	
==>kg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22503	22597	
==>see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$x <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22503	22597	
==>see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$x <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22503	22597	
==>see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$x <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6523	6634	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7276	7387	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8140	8251	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10000	10111	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10753	10864	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11617	11728	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9092	9203	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9890	10001	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10799	10910	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SEL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9896	10043	
==>list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9896	10043	
==>list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9896	10043	
==>list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16645	16763	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13850	13968	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16645	16763	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13850	13968	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16645	16763	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13850	13968	
==>);
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $nex <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1614	1764	
==>=> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method ty <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1614	1764	
==>=> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method ty <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1614	1764	
==>=> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method ty <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7767	7861	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6897	6991	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3483	3577	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3483	3577	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7767	7861	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6897	6991	
==>h, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns B <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20494	20601	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22084	22191	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9357	9464	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25046	25153	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23616	23723	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22084	22191	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9357	9464	
==>lly invoking C<new()> on the
appropriate class name, and then invoking methods on those objects.  All of
the <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24452	24558	
==>lly invoking C<new()> on
the appropriate class name, and then invoking methods on those objects.
All of the <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24452	24558	
==>lly invoking C<new()> on
the appropriate class name, and then invoking methods on those objects.
All of the <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19899	19996	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17038	17135	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19899	19996	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17038	17135	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19899	19996	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17038	17135	
==>essed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5550	5643	
==>:protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expan <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5550	5643	
==>:protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expan <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5550	5643	
==>:protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11177	11293	
==>if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15055	15169	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12309	12423	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15055	15169	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12309	12423	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15055	15169	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12309	12423	
==>) {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confes <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1647	1751	
==>if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1647	1751	
==>if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12618	12738	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13197	13317	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12618	12738	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13197	13317	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12618	12738	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13197	13317	
==>->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13266	13392	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13266	13392	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13266	13392	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5506	5632	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4006	4132	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2151	2277	
==>f !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listle <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3115	3235	
==>s
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3115	3235	
==>s
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3115	3235	
==>s
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11793	11950	
==>ch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11793	11950	
==>ch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11793	11950	
==>ch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1775	1887	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3338	3450	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1775	1887	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3338	3450	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1775	1887	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3338	3450	
==>ALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24745	24848	
==>is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply returns <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20784	20887	
==>is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
returns <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22359	22462	
==>is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
returns <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9645	9748	
==>is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply returns <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24745	24848	
==>is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply returns <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25336	25439	
==>is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
returns <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23924	24027	
==>is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
returns <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22359	22462	
==>is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
returns <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9645	9748	
==>is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply returns <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11409	11536	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16139	16266	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11409	11536	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16139	16266	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11409	11536	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16139	16266	
==>C issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5863	5964	
==>OSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBN <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5863	5964	
==>OSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBN <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5863	5964	
==>OSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBN <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1728	1845	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3291	3408	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1728	1845	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3291	3408	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1728	1845	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3291	3408	
==>ethods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whic <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1883	1979	
==>->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1883	1979	
==>->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1883	1979	
==>->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2028	2129	
==>ring(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "St <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2028	2129	
==>ring(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "St <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2028	2129	
==>ring(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "St <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	444	544	
==>f->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	444	544	
==>f->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	444	544	
==>f->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	978	1060	
==>al(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	978	1060	
==>al(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	978	1060	
==>al(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8173	8305	
==>ub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule-> <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8366	8498	
==>ub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6	102	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6	102	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6	102	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6	101	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	386	481	
==>ated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6	101	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6	101	
==>/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ke <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30697	30931	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32416	32650	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30697	30931	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32416	32650	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30697	30931	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32416	32650	
==>diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40340	40442	
==>push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40340	40442	
==>push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40340	40442	
==>push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10862	11057	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2527	2722	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4341	4536	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10862	11057	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2527	2722	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4341	4536	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10862	11057	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2527	2722	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4341	4536	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4890	5030	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5851	5991	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6979	7119	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4890	5030	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5851	5991	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6979	7119	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4890	5030	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5851	5991	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6979	7119	
==>' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decremen <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4174	4342	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4174	4342	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4174	4342	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6700	6854	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6700	6854	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6700	6854	
==>hod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12392	12509	
==>('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12392	12509	
==>('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12392	12509	
==>('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1775	1887	
==>tion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1775	1887	
==>tion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1775	1887	
==>tion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2691	2795	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3271	3375	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2691	2795	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3271	3375	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2691	2795	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3271	3375	
==>) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15880	15994	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20597	20711	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15880	15994	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20597	20711	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15880	15994	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20597	20711	
==>t our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3479	3588	
==>ludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  -- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3479	3588	
==>ludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  -- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3479	3588	
==>ludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  -- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19879	19976	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17018	17115	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19879	19976	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17018	17115	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19879	19976	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17018	17115	
==>^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store inst <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2758	2842	
==>od PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2758	2842	
==>od PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2758	2842	
==>od PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &in <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15094	15204	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12348	12458	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15094	15204	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12348	12458	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15094	15204	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12348	12458	
==>f => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4717	4816	
==>ss):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaM <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4717	4816	
==>ss):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaM <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4717	4816	
==>ss):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaM <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6321	6576	
==>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6321	6576	
==>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6321	6576	
==>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'per <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14065	14187	
==>n shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_- <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14065	14187	
==>n shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_- <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14065	14187	
==>n shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14368	14481	
==>$any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}} <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14368	14481	
==>$any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}} <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14368	14481	
==>$any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}} <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	726	834	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	726	834	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	726	834	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	113	220	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	113	220	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	113	220	
==>(args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PI <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1126	1224	
==>t s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1126	1224	
==>t s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1126	1224	
==>t s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10439	10606	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7990	8157	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10439	10606	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7990	8157	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10439	10606	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7990	8157	
==>at iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	19915	20011	
==>ing similar but that is more mutable, you can accomplish
that manually using a set of mappings, o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24467	24563	
==>ing similar but that is more mutable, you can accomplish
that manually using a set of mappings, o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23019	23115	
==>ing similar but that is more mutable, you can accomplish
that manually using a set of mappings, o <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11584	11751	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3096	3263	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11584	11751	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3096	3263	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11584	11751	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3096	3263	
==>rr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8041	8195	
==>rr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8041	8195	
==>rr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8041	8195	
==>rr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18263	18373	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15501	15611	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18263	18373	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15501	15611	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18263	18373	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15501	15611	
==>_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13589	13683	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13589	13683	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13589	13683	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_ <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20883	20970	
==>r_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_no <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3247	3335	
==>Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3247	3335	
==>Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3247	3335	
==>Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12063	12194	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3685	3816	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12063	12194	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3685	3816	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12063	12194	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3685	3816	
==>>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6790	6918	
==>> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6790	6918	
==>> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6790	6918	
==>> sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1686	1797	
==>l:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1686	1797	
==>l:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1686	1797	
==>l:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5397	5502	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3517	3622	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5397	5502	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3517	3622	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5397	5502	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3517	3622	
==>$self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclass <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20405	20532	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17544	17671	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20405	20532	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17544	17671	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20405	20532	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17544	17671	
==>y other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($l <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2918	3036	
==>hing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pair <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2918	3036	
==>hing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pair <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2918	3036	
==>hing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pair <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1724	1992	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # cla <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1724	1992	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # cla <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10627	10726	
==>--------------------------------------------

    method add_method;
    method get_method;
    meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10627	10726	
==>--------------------------------------------

    method add_method;
    method get_method;
    meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10627	10726	
==>--------------------------------------------

    method add_method;
    method get_method;
    meth <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	14035	14125	
==>"mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10262	10352	
==>"mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14035	14125	
==>"mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10262	10352	
==>"mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6848	6955	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	91	198	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6848	6955	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	91	198	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6848	6955	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	91	198	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1399	1503	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1399	1503	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1399	1503	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2957	3067	
==>ount) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2957	3067	
==>ount) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2957	3067	
==>ount) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17377	17471	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14602	14696	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17377	17471	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14602	14696	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17377	17471	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14602	14696	
==>ibute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class confo <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2161	2284	
==>trol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2161	2284	
==>trol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2161	2284	
==>trol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len { <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6926	7021	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6056	6151	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2710	2805	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2710	2805	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6926	7021	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6056	6151	
==>des($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($mem <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3314	3470	
==>esponse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3314	3470	
==>esponse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18691	18797	
==>nalyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless_null exp0, exp1null
    .return (e <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	195	288	
==>oid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	195	288	
==>oid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	195	288	
==>oid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23154	23242	
==>($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULT <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23154	23242	
==>($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULT <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23154	23242	
==>($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULT <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	611	755	
==>ttr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attri <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13261	13388	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13261	13388	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13261	13388	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5501	5628	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4001	4128	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2146	2273	
==>off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $li <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21356	21453	
==>name can start with the package name?).  An advantage of
this is that, for example, your package c <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21356	21453	
==>name can start with the package name?).  An advantage of
this is that, for example, your package c <==
9	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	286	385	
==>\&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4424	4518	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4679	4773	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4926	5020	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4424	4518	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4679	4773	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4926	5020	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4169	4262	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4169	4262	
==>ake index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0x <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1370	1460	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1462	1552	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1554	1644	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1370	1460	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1462	1552	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1554	1644	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1370	1460	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1462	1552	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1554	1644	
==>{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:< <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1230	1415	
==>[] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_stri <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1230	1415	
==>[] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_stri <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1230	1415	
==>[] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_stri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	81	174	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	81	174	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	81	174	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	80	172	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	80	172	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	80	172	
==>lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TR <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3998	4106	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6647	6755	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4236	4341	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10685	10790	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4236	4341	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10685	10790	
==>ck'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2894	2993	
==>ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2894	2993	
==>ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2894	2993	
==>ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = f <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10318	10419	
==>-----------------------------------------------    
    method resolve () { "<implemented>" }

    # - <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10341	10442	
==>------------------------    
    method resolve () { "<implemented>" }

    # ------------------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10364	10465	
==>-    
    method resolve () { "<implemented>" }

    # ----------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10318	10419	
==>-----------------------------------------------    
    method resolve () { "<implemented>" }

    # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10341	10442	
==>------------------------    
    method resolve () { "<implemented>" }

    # ------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10364	10465	
==>-    
    method resolve () { "<implemented>" }

    # ----------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10318	10419	
==>-----------------------------------------------    
    method resolve () { "<implemented>" }

    # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10341	10442	
==>------------------------    
    method resolve () { "<implemented>" }

    # ------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10364	10465	
==>-    
    method resolve () { "<implemented>" }

    # ----------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6789	6915	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7550	7676	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8420	8546	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10266	10392	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11027	11153	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11897	12023	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9376	9502	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10182	10308	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11097	11223	
==>relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15303	15426	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20036	20159	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15303	15426	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20036	20159	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15303	15426	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20036	20159	
==>ors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3742	3843	
==>DO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3742	3843	
==>DO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3742	3843	
==>DO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterato <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24754	24855	
==>ow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you c <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20793	20894	
==>ow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you c <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22368	22469	
==>ow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you c <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9654	9755	
==>ow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you c <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24754	24855	
==>ow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25345	25446	
==>ow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23933	24034	
==>ow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you c <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22368	22469	
==>ow an exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you c <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9654	9755	
==>ow an
exception; most often this is due to invalid input.  If an invoked routine
simply returns, you c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6314	6432	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9284	9402	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6314	6432	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9284	9402	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6314	6432	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9284	9402	
==>a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3016	3120	
==>$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3016	3120	
==>$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3016	3120	
==>$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8253	8382	
==>STROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8253	8382	
==>STROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8253	8382	
==>STROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3537	3636	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6551	6650	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8619	8718	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3537	3636	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6551	6650	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8619	8718	
==>`canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1986	2118	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1098	1230	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1665	1797	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1986	2118	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1098	1230	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1665	1797	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1986	2118	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1098	1230	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1665	1797	
==>ncluded in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10877	11064	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2542	2729	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4356	4543	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10877	11064	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2542	2729	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4356	4543	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10877	11064	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2542	2729	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4356	4543	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3185	3336	
==>th ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:pe <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3185	3336	
==>th ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:pe <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	426	545	
==>(.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9844	9963	
==>(.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	752	842	
==>mar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1130	1220	
==>mar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1769	1859	
==>mar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2204	2294	
==>mar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	752	842	
==>mar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11078	11184	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11574	11680	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11753	11859	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11078	11184	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11574	11680	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11753	11859	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11078	11184	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11574	11680	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11753	11859	
==>key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1740	1862	
==>nce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1740	1862	
==>nce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1740	1862	
==>nce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24323	24430	
==>,@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24323	24430	
==>,@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24323	24430	
==>,@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	350	449	
==>es, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the nam <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	350	449	
==>es, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the nam <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	350	449	
==>es, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	387	481	
==>ub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	387	481	
==>ub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	387	481	
==>ub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaS <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25066	25219	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27255	27408	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25066	25219	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27255	27408	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25066	25219	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27255	27408	
==>p;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4300	4410	
==>::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4300	4410	
==>::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4300	4410	
==>::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8784	8949	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6337	6502	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8784	8949	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6337	6502	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8784	8949	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6337	6502	
==>e MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10575	10705	
==>'$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10575	10705	
==>'$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10575	10705	
==>'$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14976	15084	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12230	12338	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14976	15084	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12230	12338	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14976	15084	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12230	12338	
==>cessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1521	1609	
==>_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1521	1609	
==>_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1521	1609	
==>_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24788	24886	
==>s due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20827	20925	
==>s due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22402	22500	
==>s due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9688	9786	
==>s due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24788	24886	
==>s due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25379	25477	
==>s due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23967	24065	
==>s due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22402	22500	
==>s due to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9688	9786	
==>s due to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12206	12351	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3828	3973	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12206	12351	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3828	3973	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12206	12351	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3828	3973	
==>l')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6930	7074	
==>l')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6930	7074	
==>l')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6930	7074	
==>l')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12084	12206	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3595	3717	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12084	12206	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3595	3717	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12084	12206	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3595	3717	
==>NDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	769	877	
==>), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	769	877	
==>), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	769	877	
==>), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16179	16319	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20896	21036	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16179	16319	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20896	21036	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16179	16319	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20896	21036	
==>e};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2696	2811	
==>CURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$op <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2696	2811	
==>CURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$op <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2696	2811	
==>CURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$op <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7165	7288	
==>boxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7165	7288	
==>boxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7165	7288	
==>boxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12321	12443	
==>boxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12321	12443	
==>boxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12321	12443	
==>boxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1053	1167	
==>spatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1258	1372	
==>spatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1319	1433	
==>spatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4933	5075	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5894	6036	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7022	7164	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4933	5075	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5894	6036	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7022	7164	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4933	5075	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5894	6036	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7022	7164	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17603	17727	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8184	8308	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14823	14947	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17603	17727	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8184	8308	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14823	14947	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17603	17727	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8184	8308	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14823	14947	
==>& $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12090	12235	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3712	3857	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12090	12235	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3712	3857	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12090	12235	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3712	3857	
==>ble} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6816	6959	
==>ble} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6816	6959	
==>ble} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6816	6959	
==>ble} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tie <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12548	12687	
==>( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2918	3051	
==>( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2918	3051	
==>( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11549	11680	
==>( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11990	12120	
==>( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1989	2114	
==>( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1989	2114	
==>( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2398	2522	
==>( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2398	2522	
==>( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3432	3581	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8717	8865	
==>[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3688	3832	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10106	10250	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3688	3832	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10106	10250	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8411	8554	
==>[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1312	1404	
==>Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl: <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1312	1404	
==>Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5223	5353	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7399	7529	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12044	12174	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5223	5353	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7399	7529	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12044	12174	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5223	5353	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7399	7529	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12044	12174	
==>t'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4895	5037	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5856	5998	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6984	7126	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4895	5037	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5856	5998	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6984	7126	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4895	5037	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5856	5998	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6984	7126	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	296	503	
==>r) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	296	503	
==>r) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	296	503	
==>r) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4898	5013	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7547	7662	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5111	5220	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11560	11669	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5111	5220	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11560	11669	
==>match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12535	12683	
==>returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2905	3047	
==>returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2905	3047	
==>returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11536	11676	
==>returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11977	12116	
==>returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1976	2110	
==>returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1976	2110	
==>returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2385	2518	
==>returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2385	2518	
==>returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4644	4751	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7580	7687	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4644	4751	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7580	7687	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4644	4751	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7580	7687	
==>)";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	536	632	
==>CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	536	632	
==>CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	536	632	
==>CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10276	10420	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => unde <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10276	10420	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => unde <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10276	10420	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => unde <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	51	143	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	47	139	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	55	147	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	49	141	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	48	140	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	49	141	
==>e warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(P <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11573	11731	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3085	3243	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11573	11731	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3085	3243	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11573	11731	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3085	3243	
==>[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8030	8175	
==>[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8030	8175	
==>[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8030	8175	
==>[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6255	6362	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9225	9332	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6255	6362	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9225	9332	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6255	6362	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9225	9332	
==>method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1803	1897	
==>}
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1803	1897	
==>}
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1803	1897	
==>}
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	460	564	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	458	562	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	460	564	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	458	562	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	460	564	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	458	562	
==>GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaqu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6285	6377	
==>LTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6285	6377	
==>LTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6285	6377	
==>LTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12145	12291	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3767	3913	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12145	12291	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3767	3913	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12145	12291	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3767	3913	
==>$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6870	7014	
==>$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6870	7014	
==>$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6870	7014	
==>$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # S <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25193	25289	
==>ult and/or make the same change to an object when the permutation of its
arguments and any invoca <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11324	11420	
==>ult and/or make the same change to an object when the permutation of its
arguments and any invoca <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14597	14693	
==>ult and/or make the same change
to an object when the permutation of its arguments and any invoca <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25193	25289	
==>ult and/or make the same change to an object when the permutation of its
arguments and any invoca <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11324	11420	
==>ult and/or make the same change to an object when the permutation of its
arguments and any invoca <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14597	14693	
==>ult and/or make the same change
to an object when the permutation of its arguments and any invoca <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1020	1111	
==>'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1020	1111	
==>'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1020	1111	
==>'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1853	1954	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1739	1840	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5066	5161	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4939	5034	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	753	848	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6603	6698	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5206	5301	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5189	5284	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	753	848	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progra <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6131	6252	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5483	5604	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	10453	10574	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6131	6252	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5483	5604	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10453	10574	
==>est ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35324	35425	
==>to have &'s in our I<real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	837	934	
==>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you <==
9	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	837	934	
==>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1732	1830	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.po <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1732	1830	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.po <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1732	1830	
==>JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.po <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	514	607	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.po <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	514	607	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.po <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	514	607	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.po <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16128	16218	
==>f->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16128	16218	
==>f->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16128	16218	
==>f->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4982	5120	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5943	6081	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4982	5120	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5943	6081	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4982	5120	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5943	6081	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2939	3050	
==>ay) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2939	3050	
==>ay) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2939	3050	
==>ay) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3129	3261	
==>sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3129	3261	
==>sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3129	3261	
==>sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	55	159	
==>t;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mod <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	50	154	
==>t;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mod <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	50	154	
==>t;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mod <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14053	14152	
==>t('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Con <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14053	14152	
==>t('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Con <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14053	14152	
==>t('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Con <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6017	6145	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8987	9115	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6017	6145	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8987	9115	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6017	6145	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8987	9115	
==>f') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method ( <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29413	29529	
==>[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombr <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29413	29529	
==>[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombr <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	237	341	
==>[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6447	6568	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6447	6568	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6447	6568	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3670	3783	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6606	6719	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3670	3783	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6606	6719	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3670	3783	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6606	6719	
==>ding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12059	12186	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3681	3808	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12059	12186	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3681	3808	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12059	12186	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3681	3808	
==>e' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6786	6911	
==>e' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6786	6911	
==>e' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6786	6911	
==>e' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' = <==
9	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1770	1987	
==>ement>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpol <==
9	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1770	1987	
==>ement>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpol <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5449	5570	
==>te p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6717	6838	
==>te p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5449	5570	
==>te p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6705	6826	
==>te p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1866	1962	
==>r(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1866	1962	
==>r(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1866	1962	
==>r(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3717	3818	
==>ose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3717	3818	
==>ose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3717	3818	
==>ose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $re <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2695	2795	
==>ral
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2695	2795	
==>ral
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	12072	12167	
==>ins all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_ <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9193	9288	
==>ins all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_ <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12072	12167	
==>ins all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_ <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9193	9288	
==>ins all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	199	302	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	194	297	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	199	302	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	194	297	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	199	302	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	194	297	
==>$self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5773	5861	
==>\$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
U <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5773	5861	
==>\$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
U <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5773	5861	
==>\$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
U <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12521	12663	
==>method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2891	3027	
==>method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $ <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2891	3027	
==>method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11522	11656	
==>method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11963	12096	
==>method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1962	2090	
==>method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $ <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1962	2090	
==>method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2371	2498	
==>method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $ <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2371	2498	
==>method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6655	6776	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9625	9746	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6655	6776	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9625	9746	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6655	6776	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9625	9746	
==>> 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3922	4020	
==>scription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $li <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3922	4020	
==>scription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $li <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4002	4100	
==>scription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $li <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2878	3028	
==>edy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $al <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3163	3306	
==>edy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $al <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9581	9724	
==>edy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $al <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3163	3306	
==>edy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $al <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9581	9724	
==>edy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $al <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1899	2023	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1899	2023	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1899	2023	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            m <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1409	1504	
==>of perl5.  Perhaps
# because the challenges being faced were insufficiently documented,
# audrey <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6862	6976	
==>te =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6862	6976	
==>te =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6862	6976	
==>te =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5693	5798	
==>b, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5693	5798	
==>b, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5693	5798	
==>b, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	454	551	
==>ng) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packe <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	454	551	
==>ng) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packe <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	454	551	
==>ng) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17511	17625	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4446	4560	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8092	8206	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17511	17625	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4446	4560	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8092	8206	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17511	17625	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4446	4560	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8092	8206	
==>add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || co <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9981	10090	
==>sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ". <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9981	10090	
==>sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ". <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9981	10090	
==>sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ". <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36332	36424	
==>hose attributes differ and unioning
the remaining said tuple pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	38085	38177	
==>hose attributes differ and unioning the remaining said tuple
pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40881	40973	
==>hose attributes differ and unioning
the remaining said tuple pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42634	42726	
==>hose attributes differ and unioning the remaining said tuple
pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40495	40587	
==>hose attributes differ and unioning
the remaining said tuple pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42284	42376	
==>hose attributes differ and unioning the remaining said tuple
pairs, then eliminating any resu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19416	19531	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16648	16763	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19416	19531	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16648	16763	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19416	19531	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16648	16763	
==>bel)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7723	7828	
==>map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7723	7828	
==>map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7723	7828	
==>map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18497	18649	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15735	15887	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18497	18649	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15735	15887	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18497	18649	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15735	15887	
==>abel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13783	13923	
==>RGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13783	13923	
==>RGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13783	13923	
==>RGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $di <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6273	6483	
==>ue );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6273	6483	
==>ue );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6273	6483	
==>ue );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5485	5659	
==>um => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5485	5659	
==>um => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5485	5659	
==>um => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5159	5328	
==>le #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5147	5316	
==>le #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2663	2784	
==>$_[5], exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18329	18457	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8599	8727	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15567	15695	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18329	18457	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8599	8727	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15567	15695	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18329	18457	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8599	8727	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15567	15695	
==>XX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6892	7013	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9862	9983	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6892	7013	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9862	9983	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6892	7013	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9862	9983	
==>thod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	841	943	
==>re descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns t <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	841	943	
==>re descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns t <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	841	943	
==>re descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns t <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3083	3262	
==>g ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2819	2951	
==>}
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2819	2951	
==>}
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2819	2951	
==>}
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5598	5729	
==>te $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            retur <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5598	5729	
==>te $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1262	1388	
==>}    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1262	1388	
==>}    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1262	1388	
==>}    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # cha <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1977	2106	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1089	1218	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1656	1785	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1977	2106	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1089	1218	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1656	1785	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1977	2106	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1089	1218	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1656	1785	
==>are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13088	13210	
==>{
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6046	6168	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9016	9138	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13088	13210	
==>{
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
} <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13088	13210	
==>{
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6046	6168	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9016	9138	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6046	6168	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9016	9138	
==>n bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4169	4305	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7105	7241	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4169	4305	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7105	7241	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4169	4305	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7105	7241	
==>ansparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3188	3301	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function ( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3188	3301	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function ( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3188	3301	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	977	1091	
==>age PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless k <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	977	1091	
==>age PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless k <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	977	1091	
==>age PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless k <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9492	9601	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7039	7148	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9492	9601	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7039	7148	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9492	9601	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7039	7148	
==>e_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3164	3274	
==>d be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumf <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3164	3274	
==>d be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumf <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3164	3274	
==>d be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumf <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18256	18365	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15494	15603	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18256	18365	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15494	15603	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18256	18365	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15494	15603	
==>:opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16186	16434	
==>e' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            ' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16186	16434	
==>e' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            ' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16186	16434	
==>e' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5996	6127	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8966	9097	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5996	6127	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8966	9097	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5996	6127	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8966	9097	
==>" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub :: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20580	20678	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20580	20678	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20580	20678	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10854	10956	
==>ibute;
    method get_attribute_list;            
}

-------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10854	10956	
==>ibute;
    method get_attribute_list;            
}

-------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10854	10956	
==>ibute;
    method get_attribute_list;            
}

-------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11010	11100	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8563	8653	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11010	11100	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8563	8653	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11010	11100	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8563	8653	
==>make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_disp <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6607	6750	
==>y $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10814	10957	
==>y $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7891	8026	
==>y $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
su <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6393	6528	
==>y $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7891	8026	
==>y $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
su <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	27	129	
==>s is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	31	133	
==>s is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	27	129	
==>s is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	31	133	
==>s is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6138	6262	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9108	9232	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6138	6262	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9108	9232	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6138	6262	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9108	9232	
==>method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3330	3438	
==>/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3330	3438	
==>/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3330	3438	
==>/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7498	7609	
==>$s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->si <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7498	7609	
==>$s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->si <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7498	7609	
==>$s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->si <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5842	5938	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8812	8908	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5842	5938	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8812	8908	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5842	5938	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8812	8908	
==>method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4792	4918	
==>{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mess <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4792	4918	
==>{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mess <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4792	4918	
==>{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mess <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	79	190	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	74	185	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	79	190	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	74	185	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	79	190	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	74	185	
==>y $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die un <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11633	11802	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9186	9355	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11633	11802	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9186	9355	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11633	11802	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9186	9355	
==>w go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7249	7413	
==>ot implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7249	7413	
==>ot implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7249	7413	
==>ot implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7142	7261	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4701	4820	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7142	7261	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4701	4820	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7142	7261	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4701	4820	
==>eqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-em <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11324	11422	
==>ifically, in the case
of a sub-class that adds a handler, the qr() method is used to produce
the Pe <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17649	17742	
==>der field is used in request messages and contains information
about the user agent originatin <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17649	17742	
==>der field is used in request messages and contains information
about the user agent originatin <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	19655	19785	
==>".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusmsg .= (" <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18132	18214	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18440	18522	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21389	21471	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21699	21781	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41397	41479	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41705	41787	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44296	44378	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44606	44688	
==>('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	532	661	
==>hift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	532	661	
==>hift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	532	661	
==>hift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13224	13341	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13224	13341	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13224	13341	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5464	5581	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3964	4081	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2109	2226	
==>f defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 i <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13236	13332	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4406	4502	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8862	8958	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	50	146	
==>s::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13236	13332	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4406	4502	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8862	8958	
==>ch can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Asi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	50	146	
==>s::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	50	146	
==>s::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1296	1406	
==>>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1296	1406	
==>>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1296	1406	
==>>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3772	3873	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6708	6809	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3772	3873	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6708	6809	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3772	3873	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6708	6809	
==>$method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24749	24892	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26938	27081	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24749	24892	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26938	27081	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24749	24892	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26938	27081	
==>:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16447	16561	
==>_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16447	16561	
==>_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16447	16561	
==>_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4349	4473	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7285	7409	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4349	4473	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7285	7409	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4349	4473	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7285	7409	
==>s values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($metho <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	8780	8877	
==>);
};

multi unify => ('type::operator::nary', 'type::operator::nary') => sub {
	my ($x, $y) = (sh <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25447	25540	
==>ther components concerned, provided that you include the source
code of the other components w <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25447	25540	
==>ther components concerned, provided that you include the source
code of the other components w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7233	7355	
==>() {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7233	7355	
==>() {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7233	7355	
==>() {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3801	3906	
==>IL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)] <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3801	3906	
==>IL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)] <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	651	756	
==>IL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	90	186	
==>ed in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	90	186	
==>ed in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	90	186	
==>ed in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1856	1957	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1742	1843	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5069	5164	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4942	5037	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	756	851	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6606	6701	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5209	5304	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5192	5287	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	756	851	
==>5.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13293	13408	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18176	18291	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13293	13408	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18176	18291	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13293	13408	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18176	18291	
==>xt METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_d <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8542	8653	
==>\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$ind <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8530	8641	
==>\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$ind <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3059	3159	
==>' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'value' ,'unk';
n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3628	3741	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4323	4436	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3628	3741	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4323	4436	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3628	3741	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4323	4436	
==>_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30489	30594	
==>(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16269	16362	
==>item $h.content_type

The Content-Type header field indicates the media type of the message
co <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16269	16362	
==>item $h.content_type

The Content-Type header field indicates the media type of the message
co <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5452	5565	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8422	8535	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5452	5565	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8422	8535	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5452	5565	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8422	8535	
==>b being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3441	3542	
==>n
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3441	3542	
==>n
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3441	3542	
==>n
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10646	10753	
==>'$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10646	10753	
==>'$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10646	10753	
==>'$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20763	20852	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17901	17990	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20763	20852	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17901	17990	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20763	20852	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17901	17990	
==>tamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1792	1896	
==>) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fals <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1792	1896	
==>) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fals <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	6061	6165	
==>l");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $template = HTML::Templ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	113	213	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	374	474	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	113	213	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	374	474	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	113	213	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	374	474	
==>ew PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3537	3644	
==>fined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3537	3644	
==>fined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3537	3644	
==>fined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11995	12127	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3506	3638	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11995	12127	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3506	3638	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11995	12127	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3506	3638	
==>= arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8428	8552	
==>= arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8428	8552	
==>= arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8428	8552	
==>= arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5882	5991	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4002	4111	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5882	5991	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4002	4111	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5882	5991	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4002	4111	
==>> '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:M <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3337	3427	
==>_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3337	3427	
==>_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3337	3427	
==>_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20527	20664	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17666	17803	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20527	20664	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17666	17803	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20527	20664	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17666	17803	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5125	5250	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5125	5250	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5125	5250	
==>if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instan <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	9	144	
==>r = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Stri <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	9	144	
==>r = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Stri <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	9	144	
==>r = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Stri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5520	5633	
==>ug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5520	5633	
==>ug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5520	5633	
==>ug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	893	995	
==>rns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referr <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	893	995	
==>rns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referr <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	893	995	
==>rns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9011	9154	
==>.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handl <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9011	9154	
==>.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7846	7988	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5405	5547	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7846	7988	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5405	5547	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7846	7988	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5405	5547	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1534	1676	
==>nd one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unles <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1895	2007	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3458	3570	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1895	2007	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3458	3570	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1895	2007	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3458	3570	
==>tors', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALK <==
9	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5142	5245	
==>ldigit><octaldigit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecim <==
9	/Users/nnunley/pugs/blib6/lib/Date.pm	2031	2133	
==>rday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year <==
9	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2031	2133	
==>rday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10932	11025	
==>------------------------------------------------------
Random Thoughts on Role state:
-------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10955	11048	
==>-------------------------------
Random Thoughts on Role state:
------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10978	11071	
==>--------
Random Thoughts on Role state:
------------------------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10932	11025	
==>------------------------------------------------------
Random Thoughts on Role state:
-------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10955	11048	
==>-------------------------------
Random Thoughts on Role state:
------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10978	11071	
==>--------
Random Thoughts on Role state:
------------------------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10932	11025	
==>------------------------------------------------------
Random Thoughts on Role state:
-------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10955	11048	
==>-------------------------------
Random Thoughts on Role state:
------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10978	11071	
==>--------
Random Thoughts on Role state:
------------------------------------------------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18643	18785	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15881	16023	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18643	18785	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15881	16023	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18643	18785	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15881	16023	
==>ttributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the na <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4665	4787	
==>? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)') <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4665	4787	
==>? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)') <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4665	4787	
==>? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9620	9721	
==>olved'
    # -----------------------------------------------      
    method collect_all_roles () { " <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9620	9721	
==>olved'
    # -----------------------------------------------      
    method collect_all_roles () { " <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9620	9721	
==>olved'
    # -----------------------------------------------      
    method collect_all_roles () { " <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13282	13377	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4452	4547	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8908	9003	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13282	13377	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4452	4547	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8908	9003	
==>n or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3353	3475	
==>d_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3353	3475	
==>d_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3353	3475	
==>d_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14892	14987	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12146	12241	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14892	14987	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12146	12241	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14892	14987	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12146	12241	
==>icientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2571	2686	
==>_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toSt <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2571	2686	
==>_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toSt <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2571	2686	
==>_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toSt <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	76	169	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	689	782	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	76	169	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	689	782	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	76	169	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	689	782	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop() <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15586	15727	
==>rection\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15580	15721	
==>rection\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6431	6536	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9401	9506	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6431	6536	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9401	9506	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6431	6536	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9401	9506	
==>ed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CO <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21366	21460	
==>pace_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) :- ! <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	24128	24230	
==>nt", "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::op <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7635	7735	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6765	6865	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3351	3451	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3351	3451	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7635	7735	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6765	6865	
==>ti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, th <==
9	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	790	889	
==>$trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.fina <==
9	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	790	889	
==>$trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.fina <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24563	24715	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop:: <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25826	25978	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop:: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24842	24994	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop:: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26105	26257	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop:: <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1106	1214	
==>r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1106	1214	
==>r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6239	6336	
==>en you don't want to mess
with members belonging to 3rd party classes that your object might be
ho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6239	6336	
==>en you don't want to mess
with members belonging to 3rd party classes that your object might be
ho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6239	6336	
==>en you don't want to mess
with members belonging to 3rd party classes that your object might be
ho <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24800	24897	
==>alid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22414	22511	
==>alid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9700	9797	
==>alid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24800	24897	
==>alid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22414	22511	
==>alid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9700	9797	
==>alid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if t <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4489	4583	
==>ew Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4489	4583	
==>ew Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6013	6107	
==>ew Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	942	1056	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1310	1424	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1816	1930	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	942	1056	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1310	1424	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1816	1930	
==>y of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4535	4637	
==>e_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# He <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4535	4637	
==>e_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# He <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4535	4637	
==>e_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# He <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25011	25201	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27200	27390	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25011	25201	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27200	27390	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25011	25201	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27200	27390	
==>@start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::nu <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7367	7550	
==>ent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.pre <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7367	7550	
==>ent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.pre <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4022	4115	
==>Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10826	10973	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2491	2638	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4305	4452	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10826	10973	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2491	2638	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4305	4452	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10826	10973	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2491	2638	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4305	4452	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1304	1401	
==>_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statem <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1304	1401	
==>_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statem <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1304	1401	
==>_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statem <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4035	4131	
==>more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4035	4131	
==>more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7014	7109	
==>more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9084	9179	
==>more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7014	7109	
==>more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9084	9179	
==>more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3550	3663	
==>,          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub de <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3550	3663	
==>,          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub de <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3550	3663	
==>,          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub de <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6944	7041	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6074	6171	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2728	2825	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2728	2825	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6944	7041	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6074	6171	
==>lti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12232	12354	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3854	3976	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12232	12354	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3854	3976	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12232	12354	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3854	3976	
==>'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6956	7077	
==>'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6956	7077	
==>'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6956	7077	
==>'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8880	9034	
==>t unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captur <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5240	5394	
==>t unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captur <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6089	6243	
==>t unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captur <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2812	2940	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5802	5930	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3101	3222	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9519	9640	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3101	3222	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9519	9640	
==>onal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = co <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	15139	15284	
==>t;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pind <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1793	1905	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3356	3468	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1793	1905	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3356	3468	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1793	1905	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3356	3468	
==>ASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they <==
9	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2316	2426	
==>tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.s <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2316	2426	
==>tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.s <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10033	10156	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11203	11326	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12674	12797	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13510	13633	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14680	14803	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16151	16274	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12791	12914	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13988	14111	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15513	15636	
==>}
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18484	18612	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15722	15850	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18484	18612	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15722	15850	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18484	18612	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15722	15850	
==>_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    : <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2407	2526	
==>key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(unde <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2407	2526	
==>key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(unde <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2407	2526	
==>key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(unde <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6675	6818	
==>tch->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        m <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6459	6593	
==>tch->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        m <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	27947	28044	
==>∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), "list int → list i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1015	1104	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7240	7329	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1015	1104	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7240	7329	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1015	1104	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7240	7329	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24363	24490	
==>is entirely object-oriented; you use it
by creating objects from its member classes, usually invoking C<new()> on
the appropriat <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20405	20532	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21995	22122	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9268	9395	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24363	24490	
==>is entirely object-oriented; you use it
by creating objects from its member classes, usually invoking C<new()> on
the appropriat <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24957	25084	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23527	23654	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21995	22122	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9268	9395	
==>is entirely object-oriented; you use it by
creating objects from its member classes, usually invoking C<new()> on the
appropriat <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6405	6620	
==>d use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $st <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6405	6620	
==>d use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $st <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6405	6620	
==>d use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $st <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7170	7291	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4729	4850	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7170	7291	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4729	4850	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7170	7291	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4729	4850	
==>seqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12332	12531	
==>ned $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12332	12531	
==>ned $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12332	12531	
==>ned $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9177	9269	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4320	4412	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	15756	15848	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9177	9269	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4320	4412	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15756	15848	
==>t_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8188	8367	
==>unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->j <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8188	8367	
==>unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->j <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8188	8367	
==>unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->j <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2248	2340	
==>d graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

metho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2248	2340	
==>d graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

metho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2248	2340	
==>d graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6998	7090	
==>est_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7985	8077	
==>est_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10554	10646	
==>est_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9099	9222	
==>ot implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "writ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9099	9222	
==>ot implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "writ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9099	9222	
==>ot implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "writ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2836	2939	
==>backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2836	2939	
==>backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2836	2939	
==>backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2301	2402	
==>backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2301	2402	
==>backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2301	2402	
==>backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } els <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4906	5042	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7842	7978	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4906	5042	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7842	7978	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4906	5042	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7842	7978	
==>less sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the othe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9851	9985	
==>' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9851	9985	
==>' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9851	9985	
==>' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31221	31405	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32979	33163	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31221	31405	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32979	33163	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31221	31405	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32979	33163	
==>@ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5151	5250	
==>Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5151	5250	
==>Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5151	5250	
==>Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- " <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13217	13332	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13217	13332	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13217	13332	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5457	5572	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3957	4072	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2102	2217	
==>+$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16351	16450	
==>LTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($x <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16351	16450	
==>LTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($x <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16351	16450	
==>LTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($x <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4207	4389	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4207	4389	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4207	4389	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6733	6901	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6733	6901	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6733	6901	
==>hod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4067	4191	
==>l_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4067	4191	
==>l_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4067	4191	
==>l_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24068	24206	
==>y $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $c <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24068	24206	
==>y $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $c <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24068	24206	
==>y $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $c <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4003	4109	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6652	6758	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4240	4344	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10689	10793	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4240	4344	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10689	10793	
==>sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::M <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6794	6922	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7555	7683	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8425	8553	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10271	10399	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11032	11160	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11902	12030	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9381	9509	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10187	10315	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11102	11230	
==>ion in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!head <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3413	3658	
==>->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new(' <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5937	6055	
==>ator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($sel <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5937	6055	
==>ator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($sel <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11121	11230	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12592	12701	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14598	14707	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16069	16178	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13906	14015	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15431	15540	
==>source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.siz <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	531	669	
==>$b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	531	669	
==>$b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	531	669	
==>$b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23509	23647	
==>s -> $super {
            $super.add_subclass($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.M <==
9	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	69	168	
==>use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($self:) returns <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	5797	5893	
==>.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.prop <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4927	5023	
==>.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.prop <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5797	5893	
==>.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.prop <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4927	5023	
==>.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.prop <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4460	4576	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7109	7225	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4686	4799	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11135	11248	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4686	4799	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11135	11248	
==>$match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9041	9143	
==>elf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9041	9143	
==>elf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9041	9143	
==>elf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa <==
9	/Users/nnunley/pugs/util/munge_haddock.pl	92	197	
==>he munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1850	1952	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2193	2295	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1850	1952	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2193	2295	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1850	1952	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2193	2295	
==>exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $ <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	15135	15233	
==>an => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15135	15233	
==>an => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16817	17012	
==>->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16817	17012	
==>->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16817	17012	
==>->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5254	5379	
==>return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->c <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5254	5379	
==>return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->c <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5844	5969	
==>return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->c <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10937	11041	
==>s;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "R <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2807	2910	
==>n_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($d <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2807	2910	
==>n_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3906	4064	
==>ot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3906	4064	
==>ot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3906	4064	
==>ot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5235	5380	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8205	8350	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5235	5380	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8205	8350	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5235	5380	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8205	8350	
==>method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a str <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11341	11519	
==>e_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curren <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11341	11519	
==>e_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curren <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11341	11519	
==>e_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curren <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1844	1951	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3407	3514	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1844	1951	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3407	3514	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1844	1951	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3407	3514	
==>ich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7139	7249	
==>ur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7139	7249	
==>ur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7139	7249	
==>ur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "b <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9152	9242	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4295	4385	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	15731	15821	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9152	9242	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4295	4385	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15731	15821	
==>/ `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whethe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6833	6950	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9803	9920	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6833	6950	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9803	9920	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6833	6950	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9803	9920	
==>ethod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad <==
9	/Users/nnunley/pugs/util/version_h.pl	787	889	
==>riting version from $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH> <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24330	24423	
==>e interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects f <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24330	24423	
==>e interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects f <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11900	12031	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3411	3542	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11900	12031	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3411	3542	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11900	12031	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3411	3542	
==>length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8337	8462	
==>length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8337	8462	
==>length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8337	8462	
==>length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2188	2341	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1300	1453	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1864	2017	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2188	2341	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1300	1453	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1864	2017	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2188	2341	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1300	1453	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1864	2017	
==>$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itse <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17598	17708	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8179	8289	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14818	14928	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17598	17708	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8179	8289	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14818	14928	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17598	17708	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8179	8289	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14818	14928	
==>bel && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3516	3649	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8800	8933	
==>ags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3770	3898	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10188	10316	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8492	8620	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3770	3898	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10188	10316	
==>ags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $m <==
9	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	506	604	
==>ethod end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	506	604	
==>ethod end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4153	4261	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2428	2536	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7867	7975	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4153	4261	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2428	2536	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7867	7975	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4153	4261	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2428	2536	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7867	7975	
==>>add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16541	16643	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13746	13848	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16541	16643	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13746	13848	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16541	16643	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13746	13848	
==>elf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9713	9812	
==>a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
su <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9713	9812	
==>a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
su <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9713	9812	
==>a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	75	174	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	786	885	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1909	2008	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	75	174	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	786	885	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1909	2008	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	75	174	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	786	885	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1909	2008	
==>"Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2569	2706	
==>$_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2569	2706	
==>$_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2569	2706	
==>$_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16524	16626	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21241	21343	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16524	16626	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21241	21343	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16524	16626	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21241	21343	
==>rectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9795	9905	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7344	7454	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9795	9905	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7344	7454	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9795	9905	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7344	7454	
==>_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3648	3743	
==>ions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3648	3743	
==>ions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3648	3743	
==>ions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2863	2963	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10786	10886	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2205	2305	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5988	6088	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2863	2963	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10786	10886	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2205	2305	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5988	6088	
==>Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _a <==
9	/Users/nnunley/pugs/util/yaml_harness.pl	1322	1421	
==>E__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PU <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5555	5657	
==>ain_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5555	5657	
==>ain_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5555	5657	
==>ain_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10526	10691	
==>ze;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->stor <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10526	10691	
==>ze;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->stor <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10526	10691	
==>ze;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->stor <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16679	16787	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13884	13992	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16679	16787	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13884	13992	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16679	16787	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13884	13992	
==>er->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3516	3650	
==>ool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3709	3843	
==>ool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10160	10266	
==>----------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10160	10266	
==>----------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10160	10266	
==>----------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	395	492	
==>'s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenB <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	399	496	
==>'s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenB <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	395	492	
==>'s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenB <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	399	496	
==>'s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenB <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4683	4764	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6010	6091	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8205	8286	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4683	4764	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6010	6091	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8205	8286	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4683	4764	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6010	6091	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8205	8286	
==>6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice}) <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	32891	32985	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	33346	33440	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37441	37535	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37896	37990	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36776	36870	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37276	37370	
==>hod is a generic binary relational operator that is like
C<union> except that the returned Rela <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	663	755	
==>me_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	663	755	
==>me_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	663	755	
==>me_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FET <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2989	3098	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10912	11021	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6114	6223	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2989	3098	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10912	11021	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6114	6223	
==>, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2184	2278	
==>.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2184	2278	
==>.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2184	2278	
==>.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10499	10718	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8050	8269	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10499	10718	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8050	8269	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10499	10718	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8050	8269	
==>to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @sta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3649	3742	
==>n::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3649	3742	
==>n::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3649	3742	
==>n::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24433	24526	
==>ember classes, usually invoking C<new()> on
the appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20475	20568	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22065	22158	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9338	9431	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24433	24526	
==>ember classes, usually invoking C<new()> on
the appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25027	25120	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23597	23690	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22065	22158	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9338	9431	
==>ember classes, usually invoking C<new()> on the
appropriate class name, and then invoking meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16162	16288	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20879	21005	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16162	16288	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20879	21005	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16162	16288	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20879	21005	
==>->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($reg <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18847	18944	
==>his method so you
can avoid this misspelling in your programs and still send the right
thing on th <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18847	18944	
==>his method so you
can avoid this misspelling in your programs and still send the right
thing on th <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5537	5633	
==>sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12159	12300	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3781	3922	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12159	12300	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3781	3922	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12159	12300	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3781	3922	
==>@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6884	7023	
==>@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6884	7023	
==>@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6884	7023	
==>@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5047	5184	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7696	7833	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5253	5384	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11702	11833	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5253	5384	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11702	11833	
==>able {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	779	879	
==>sefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	779	879	
==>sefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	779	879	
==>sefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3474	3616	
==>) {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3474	3616	
==>) {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3474	3616	
==>) {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9038	9153	
==>me;
    my @kv;
    for my $k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[0] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7641	7750	
==>ed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7641	7750	
==>ed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7641	7750	
==>ed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16376	16476	
==>dcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket( <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16376	16476	
==>dcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2405	2527	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4732	4854	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2405	2527	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4732	4854	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2405	2527	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4732	4854	
==>ribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	709	809	
==>var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	709	809	
==>var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	709	809	
==>var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8105	8258	
==>r->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8105	8258	
==>r->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8105	8258	
==>r->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2238	2372	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4565	4699	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2238	2372	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4565	4699	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2238	2372	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4565	4699	
==>of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13574	13664	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13717	13807	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13860	13950	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13574	13664	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13717	13807	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13860	13950	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13574	13664	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13717	13807	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13860	13950	
==>rotection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5705	5854	
==>ype} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5705	5854	
==>ype} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5705	5854	
==>ype} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15910	16020	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20627	20737	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15910	16020	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20627	20737	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15910	16020	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20627	20737	
==>ndle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multim <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4754	4889	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2941	3076	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4754	4889	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2941	3076	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4754	4889	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2941	3076	
==>to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        un <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5831	5924	
==>ope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMetho <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5831	5924	
==>ope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMetho <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2730	2823	
==>ope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMetho <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24418	24514	
==>ects from its member classes, usually invoking C<new()> on
the appropriate class name, and then i <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20460	20556	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22050	22146	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9323	9419	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24418	24514	
==>ects from its member classes, usually invoking C<new()> on
the appropriate class name, and then i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25012	25108	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23582	23678	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22050	22146	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9323	9419	
==>ects from its member classes, usually invoking C<new()> on the
appropriate class name, and then i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4442	4560	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7091	7209	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4668	4783	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11117	11232	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4668	4783	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11117	11232	
==>eturn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delet <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2384	2476	
==>umber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ], <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2384	2476	
==>umber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ], <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2384	2476	
==>umber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ], <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4677	4761	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6004	6088	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8199	8283	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4677	4761	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6004	6088	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8199	8283	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4677	4761	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6004	6088	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8199	8283	
==>".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slic <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5968	6132	
==>$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6432	6596	
==>$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1558	1679	
==>b name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->packag <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4761	4882	
==>b name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->packag <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2902	3012	
==>f{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2902	3012	
==>f{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2902	3012	
==>f{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} f <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	8318	8422	
==>rence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual p <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8318	8422	
==>rence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual p <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	101	193	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	325	417	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	101	193	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	325	417	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	101	193	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	325	417	
==>air");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4931	5022	
==>amespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { e <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4931	5022	
==>amespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { e <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4931	5022	
==>amespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { e <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10047	10164	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11217	11334	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12688	12805	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13524	13641	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14694	14811	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16165	16282	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12805	12922	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14002	14119	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15527	15644	
==>er!heading.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4082	4184	
==>r the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of e <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4082	4184	
==>r the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of e <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4162	4264	
==>r the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of e <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	735	827	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1255	1347	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	735	827	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1255	1347	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	735	827	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1255	1347	
==>s[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4175	4299	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6824	6948	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4408	4529	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10857	10978	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4408	4529	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10857	10978	
==>rn} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	17088	17201	
==>ter loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20565	20678	
==>ter loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20143	20256	
==>ter loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($ <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	232	342	
==>e File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	152	262	
==>e File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	150	260	
==>e File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	148	258	
==>e File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	5959	6058	
==>) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set { <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5089	5188	
==>) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set { <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5959	6058	
==>) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set { <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5089	5188	
==>) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set { <==
9	/Users/nnunley/pugs/util/svnlog2graph.pl	1833	1929	
==>opers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3908	4023	
==>ing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suc <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3908	4023	
==>ing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suc <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3908	4023	
==>ing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suc <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11124	11233	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12595	12704	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14601	14710	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16072	16181	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13909	14018	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15434	15543	
==>rce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6861	6981	
==>a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4828	4948	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6861	6981	
==>a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6861	6981	
==>a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7477	7597	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5043	5157	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11492	11606	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5043	5157	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11492	11606	
==>($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7092	7221	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10062	10191	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7092	7221	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10062	10191	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7092	7221	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10062	10191	
==>his checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	651	739	
==>js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	651	739	
==>js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	651	739	
==>js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10081	10293	
==>r";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10081	10293	
==>r";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10081	10293	
==>r";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25289	25383	
==>ant object's attributes is identical; they do not
interact with the outside environment at all. <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11420	11514	
==>ant object's attributes is identical; they do not
interact with the outside environment at all. <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14693	14787	
==>ant
object's attributes is identical; they do not interact with the outside
environment at all. <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25289	25383	
==>ant object's attributes is identical; they do not
interact with the outside environment at all. <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11420	11514	
==>ant object's attributes is identical; they do not
interact with the outside environment at all. <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14693	14787	
==>ant
object's attributes is identical; they do not interact with the outside
environment at all. <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1242	1490	
==>);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1242	1490	
==>);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7430	7583	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4989	5142	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7430	7583	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4989	5142	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7430	7583	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4989	5142	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1125	1278	
==>t the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10612	10774	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8163	8325	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10612	10774	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8163	8325	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10612	10774	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8163	8325	
==>t over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	904	1008	
==>nces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	904	1008	
==>nces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	904	1008	
==>nces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5962	6098	
==>ute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5962	6098	
==>ute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5962	6098	
==>ute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9066	9177	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6613	6724	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9066	9177	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6613	6724	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9066	9177	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6613	6724	
==>y ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2210	2359	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1322	1471	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1886	2035	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2210	2359	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1322	1471	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1886	2035	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2210	2359	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1322	1471	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1886	2035	
==>TE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5511	5725	
==>defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $ke <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5511	5725	
==>defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $ke <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5511	5725	
==>defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $ke <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2788	2893	
==>e Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( ' <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2788	2893	
==>e Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2868	2973	
==>e Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4888	4983	
==>Class",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4888	4983	
==>Class",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4888	4983	
==>Class",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	480	594	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.subs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	480	594	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.subs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	480	594	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.subs <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14968	15076	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12222	12330	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14968	15076	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12222	12330	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14968	15076	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12222	12330	
==>reate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_i <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3653	3816	
==>ntent = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It re <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3653	3816	
==>ntent = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24718	24843	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26907	27032	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24718	24843	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26907	27032	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24718	24843	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26907	27032	
==>d} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defin <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17707	17806	
==>en performing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is banned in Perl 6.  Yo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18261	18371	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15499	15609	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18261	18371	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15499	15609	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18261	18371	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15499	15609	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not cor <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5252	5353	
==>Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->n <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5252	5353	
==>Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->n <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5252	5353	
==>Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->n <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5263	5386	
==>ame' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the oth <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5263	5386	
==>ame' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the oth <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3641	3747	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3641	3747	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1445	1550	
==>Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    p <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7929	8032	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7059	7162	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7929	8032	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7059	7162	
==>on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11953	12079	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3464	3590	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11953	12079	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3464	3590	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11953	12079	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3464	3590	
==>IL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8388	8508	
==>IL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8388	8508	
==>IL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8388	8508	
==>IL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2884	2984	
==>ame' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->sup <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2884	2984	
==>ame' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->sup <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2884	2984	
==>ame' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->sup <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17526	17644	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4461	4579	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8107	8225	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17526	17644	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4461	4579	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8107	8225	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17526	17644	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4461	4579	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8107	8225	
==>CH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3546	3665	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6482	6601	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3546	3665	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6482	6601	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3546	3665	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6482	6601	
==>ves
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9348	9457	
==>look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9348	9457	
==>look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9348	9457	
==>look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1058	1170	
==>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1058	1170	
==>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1058	1170	
==>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1836	1935	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2179	2278	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1836	1935	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2179	2278	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1836	1935	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2179	2278	
==>or JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' wa <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3455	3580	
==>y $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3758	3883	
==>y $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3455	3580	
==>y $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3758	3883	
==>y $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7829	7930	
==>~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6959	7060	
==>~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7829	7930	
==>~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6959	7060	
==>~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31718	31811	
==>ant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	25508	25603	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	26120	26215	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27200	27295	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	31115	31210	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30060	30155	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30672	30767	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31752	31847	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35665	35760	
==>) returns Relation>

This method is a generic relational operator that returns a new Relation
wh <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22532	22626	
==>ibrary provides a partial implementation, in the form of several
roles, for a Relation data typ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12143	12265	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3765	3887	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12143	12265	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3765	3887	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12143	12265	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3765	3887	
==>('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6868	6988	
==>('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6868	6988	
==>('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6868	6988	
==>('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15969	16078	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20686	20795	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15969	16078	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20686	20795	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15969	16078	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20686	20795	
==>re::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2558	2661	
==>))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2558	2661	
==>))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2558	2661	
==>))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17595	17705	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8176	8286	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14815	14925	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17595	17705	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8176	8286	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14815	14925	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17595	17705	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8176	8286	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14815	14925	
==>$label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.* <==
9	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1517	1656	
==>]!";
            }

            ...;
        }
    }
  }

  my $session = MySession.new;
  say $POE::Kernel.post($session, "say_hello", "Ing <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	1513	1645	
==>span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<o <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1513	1645	
==>span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7096	7225	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10066	10195	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7096	7225	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10066	10195	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7096	7225	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10066	10195	
==>checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1407	1527	
==>s of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1407	1527	
==>s of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1407	1527	
==>s of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1303	1413	
==>be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref($nodes) eq ' <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1650	1757	
==>be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq ' <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1257	1364	
==>be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq ' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1650	1757	
==>be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq ' <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6352	6449	
==>ist' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6352	6449	
==>ist' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6961	7057	
==>ule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6961	7057	
==>ule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6961	7057	
==>ule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14890	14985	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12144	12239	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14890	14985	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12144	12239	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14890	14985	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12144	12239	
==>fficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($at <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4761	4897	
==>roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_coll <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4761	4897	
==>roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_coll <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4761	4897	
==>roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_coll <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15863	15967	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20580	20684	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15863	15967	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20580	20684	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15863	15967	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20580	20684	
==>be we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16240	16340	
==>_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10 <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16240	16340	
==>_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10 <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16240	16340	
==>_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8475	8573	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6028	6126	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8475	8573	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6028	6126	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8475	8573	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6028	6126	
==>shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3222	3323	
==>th/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/t <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3222	3323	
==>th/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/t <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3222	3323	
==>th/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35729	35851	
==>t, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35729	35851	
==>t, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35729	35851	
==>t, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # m <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	26130	26227	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27210	27307	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	31125	31222	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30682	30779	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31762	31859	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35675	35772	
==>Relation>

This method is a generic relational operator that returns a new Relation
which has a su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7866	8010	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5425	5569	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7866	8010	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5425	5569	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7866	8010	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5425	5569	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1554	1698	
==>move the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave th <==
9	/Users/nnunley/pugs/blib6/lib/Date.pm	4077	4180	
==>ect for the given values.  The month and day default
to 1 if not given.

The value for day can also be t <==
9	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4077	4180	
==>ect for the given values.  The month and day default
to 1 if not given.

The value for day can also be t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10225	10330	
==>value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, u <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10225	10330	
==>value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, u <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10225	10330	
==>value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, u <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12544	12639	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10095	10190	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12544	12639	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10095	10190	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12544	12639	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10095	10190	
==>:opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5128	5253	
==>while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5329	5450	
==>while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5329	5450	
==>while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2862	2968	
==>$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pri <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2862	2968	
==>$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pri <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2862	2968	
==>$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2305	2397	
==>omp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precom <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2305	2397	
==>omp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precom <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2305	2397	
==>omp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precom <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1649	1757	
==>ostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @exp <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1649	1757	
==>ostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @exp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1729	1837	
==>ostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @exp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5772	5879	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3892	3999	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5772	5879	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3892	3999	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5772	5879	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3892	3999	
==>bclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14585	14681	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11845	11941	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14585	14681	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11845	11941	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14585	14681	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11845	11941	
==>d $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	890	985	
==>put filehandle, adding leading C<#>
characters after all newlines if they are not present.

=ite <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	890	985	
==>put filehandle, adding leading C<#>
characters after all newlines if they are not present.

=ite <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1446	1541	
==>put filehandle, adding leading C<#>
characters after all newlines if they are not present.

=ite <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13816	13931	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14190	14305	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	212	327	
==>]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imp <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13816	13931	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14190	14305	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	212	327	
==>]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imp <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13816	13931	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14190	14305	
==>l possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	212	327	
==>]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imp <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12021	12144	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3532	3655	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12021	12144	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3532	3655	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12021	12144	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3532	3655	
==>backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < b <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8452	8569	
==>backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8452	8569	
==>backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8452	8569	
==>backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13155	13302	
==>tcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13155	13302	
==>tcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13155	13302	
==>tcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4778	4879	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5323	5424	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4778	4879	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5323	5424	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5368	5469	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5913	6014	
==>lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contain <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11151	11283	
==>Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _nor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11151	11283	
==>Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _nor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11151	11283	
==>Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _nor <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1754	1870	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3317	3433	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1754	1870	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3317	3433	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1754	1870	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3317	3433	
==>SS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41143	41245	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13531	13633	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9323	9425	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41143	41245	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13531	13633	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9323	9425	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41143	41245	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13531	13633	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9323	9425	
==>..

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6398	6547	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8847	8996	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6398	6547	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8847	8996	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6398	6547	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8847	8996	
==>on-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sli <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7322	7434	
==>ta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3926	4038	
==>ta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4775	4887	
==>ta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9794	9954	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         rul <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10073	10233	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         rul <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	371	500	
==>> $2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $boo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1864	1977	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3427	3540	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1864	1977	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3427	3540	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1864	1977	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3427	3540	
==>A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	284	387	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	608	711	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	911	1014	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	284	387	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	608	711	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	911	1014	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	284	387	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	608	711	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	911	1014	
==>OUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18791	18940	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16029	16178	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18791	18940	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16029	16178	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18791	18940	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16029	16178	
==>ace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14650	14745	
==>%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14650	14745	
==>%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14650	14745	
==>%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_met <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24411	24509	
==>ing objects from its member classes, usually invoking C<new()> on
the appropriate class name, and t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20453	20551	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22043	22141	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9316	9414	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24411	24509	
==>ing objects from its member classes, usually invoking C<new()> on
the appropriate class name, and t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25005	25103	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23575	23673	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22043	22141	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9316	9414	
==>ing objects from its member classes, usually invoking C<new()> on the
appropriate class name, and t <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2253	2369	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11121	11237	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12080	12196	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2446	2562	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11400	11516	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12359	12475	
==>ure( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1759	1867	
==>lech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1759	1867	
==>lech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1759	1867	
==>lech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	917	1034	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1005	1122	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	917	1034	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1005	1122	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	917	1034	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1005	1122	
==>g =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6765	6878	
==>p{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6765	6878	
==>p{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6765	6878	
==>p{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	543	642	
==>($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5778	5877	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8748	8847	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	543	642	
==>($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self-> <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	543	642	
==>($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5778	5877	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8748	8847	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5778	5877	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8748	8847	
==>licated in the other ::make_*_method subs below
        return $method if blessed($method) && $metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1201	1294	
==>as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocati <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1201	1294	
==>as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocati <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1201	1294	
==>as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocati <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	732	824	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1252	1344	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	732	824	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1252	1344	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	732	824	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1252	1344	
==>args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Con <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19363	19477	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4843	4957	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16595	16709	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19363	19477	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4843	4957	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16595	16709	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19363	19477	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4843	4957	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16595	16709	
==>elf, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'unde <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15326	15448	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20059	20181	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15326	15448	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20059	20181	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15326	15448	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20059	20181	
==>uction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !de <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3736	3834	
==>a::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3736	3834	
==>a::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3736	3834	
==>a::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9745	9860	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12718	12833	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9745	9860	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12718	12833	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9745	9860	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12718	12833	
==>ext METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3847	3953	
==>'... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This i <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3847	3953	
==>'... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5371	5477	
==>'... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4685	4769	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6012	6096	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8207	8291	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4685	4769	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6012	6096	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8207	8291	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4685	4769	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6012	6096	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8207	8291	
==>:Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	727	889	
==>b {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.erro <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1894	1990	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	524	620	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1662	1758	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13970	14066	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1894	1990	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	524	620	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1662	1758	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13970	14066	
==>ck, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

T <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9750	9865	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12723	12838	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9750	9865	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12723	12838	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9750	9865	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12723	12838	
==>ETHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::di <==
9	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2175	2271	
==>tput_lines )

  my %results = $strap->analyze($name, \@test_output);

Analyzes the output of a si <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	624	715	
==>revious()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Pe <==
9	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	624	715	
==>revious()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Pe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40771	40885	
==>e $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40771	40885	
==>e $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40771	40885	
==>e $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2927	3035	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5457	5565	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2927	3035	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5457	5565	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2927	3035	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5457	5565	
==><cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &i <==
9	/Users/nnunley/pugs/util/build_pugs.pl	7375	7507	
==>$/;
    }
    else {
        $depends = ', unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', pl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7810	7940	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5369	5499	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7810	7940	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5369	5499	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7810	7940	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5369	5499	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1498	1628	
==>However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$c <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3791	3897	
==>pile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{iden <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24464	24546	
==>(C0,G),amat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11380	11513	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2892	3025	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11380	11513	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2892	3025	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11380	11513	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2892	3025	
==>(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(v <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6656	6760	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'pe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6656	6760	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'pe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6656	6760	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'pe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8139	8267	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5698	5826	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8139	8267	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5698	5826	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8139	8267	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5698	5826	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1827	1955	
==>t hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head <==
9	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3671	3759	
==>L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 19 <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3671	3759	
==>L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 19 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7396	7505	
==>efore => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11731	11840	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2212	2320	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8984	9092	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7146	7254	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2212	2320	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8984	9092	
==>efore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "match <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10308	10404	
==>essionFirstChar> <RegularExpressionChars>
}
rule RegularExpressionChars {  # see 7.8.5
      <nul <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5510	5605	
==>atorTable() if ( $whitespacePosition <= $position );

  expect_oper_1:
  $key = $$currentOperato <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11976	12102	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3487	3613	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11976	12102	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3487	3613	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11976	12102	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3487	3613	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8409	8531	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8409	8531	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8409	8531	
==>ckup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDT <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6270	6388	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9240	9358	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6270	6388	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9240	9358	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6270	6388	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9240	9358	
==>ame as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17119	17203	
==>dd_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17119	17203	
==>dd_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17119	17203	
==>dd_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18862	19005	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16100	16243	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18862	19005	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16100	16243	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18862	19005	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16100	16243	
==>ace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1352	1447	
==>->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1352	1447	
==>->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1352	1447	
==>->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4343	4465	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6992	7114	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4572	4691	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11021	11140	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4572	4691	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11021	11140	
==>->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6643	6760	
==>after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6643	6760	
==>after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6643	6760	
==>after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3039	3150	
==>{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cele <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3039	3150	
==>{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cele <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3039	3150	
==>{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cele <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	648	755	
==>[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	648	755	
==>[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	648	755	
==>[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3830	3925	
==>dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3830	3925	
==>dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3830	3925	
==>dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1808	1935	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	920	1047	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1808	1935	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	920	1047	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1808	1935	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	920	1047	
==>method(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1964	2064	
==>Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1964	2064	
==>Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1964	2064	
==>Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20555	20673	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17694	17812	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20555	20673	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17694	17812	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20555	20673	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17694	17812	
==>value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5153	5259	
==>value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5153	5259	
==>value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5153	5259	
==>value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2740	2850	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5730	5840	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1732	1841	
==>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs o <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1732	1841	
==>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs o <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1732	1841	
==>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs o <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3033	3138	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9451	9556	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3033	3138	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9451	9556	
==>l {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null( <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3171	3268	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6185	6282	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8253	8350	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3171	3268	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6185	6282	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8253	8350	
==>urns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27376	27470	
==>ditional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> p <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31928	32022	
==>ditional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> p <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31011	31105	
==>ditional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> p <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13832	13956	
==>body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1312	1436	
==>body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8489	8583	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6042	6136	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28463	28557	
==>doesnt have $2 as an unsuccessful match.
//x isnt being handled (re_rewrite step?)
lots of stuf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8489	8583	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6042	6136	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8489	8583	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6042	6136	
==>ess (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1797	1904	
==>ete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1797	1904	
==>ete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1797	1904	
==>ete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd") <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8645	8780	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11618	11753	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8645	8780	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11618	11753	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8645	8780	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11618	11753	
==>properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SEL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2353	2484	
==>rce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($c <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2353	2484	
==>rce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($c <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2353	2484	
==>rce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17667	17783	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8248	8364	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14887	15003	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17667	17783	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8248	8364	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14887	15003	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17667	17783	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8248	8364	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14887	15003	
==>ndef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3006	3143	
==>K';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3006	3143	
==>K';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3006	3143	
==>K';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16496	16597	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21213	21314	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16496	16597	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21213	21314	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16496	16597	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21213	21314	
==>OTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2941	3055	
==>ied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2941	3055	
==>ied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2941	3055	
==>ied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13171	13267	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4341	4437	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8797	8893	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13171	13267	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4341	4437	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8797	8893	
==>ves only as the name-sake
representative for this whole file, which can be referenced as a unit b <==
9	/Users/nnunley/pugs/util/package-osx.pl	7142	7239	
==>3/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spe <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4435	4531	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4690	4786	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4937	5033	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4435	4531	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4690	4786	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4937	5033	
==>index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4180	4275	
==>index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4180	4275	
==>index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6204	6324	
==>os = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6204	6324	
==>os = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6204	6324	
==>os = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17056	17163	
==>Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17056	17163	
==>Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17056	17163	
==>Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2797	2899	
==>retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(ba <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2797	2899	
==>retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(ba <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2797	2899	
==>retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(ba <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13062	13197	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13062	13197	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13062	13197	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5302	5437	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3802	3937	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1947	2082	
==>ize if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2588	2687	
==>js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2588	2687	
==>js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2588	2687	
==>js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can(" <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4229	4351	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6878	7000	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4461	4580	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10910	11029	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4461	4580	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10910	11029	
==>);
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2814	2916	
==>foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subna <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2814	2916	
==>foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subna <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2814	2916	
==>foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subna <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13885	13992	
==>);

=pod

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dis <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25409	25503	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	847	941	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24173	24267	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1972	2066	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25409	25503	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	847	941	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24173	24267	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1972	2066	
==>istribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlart <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5932	6051	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4052	4171	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5932	6051	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4052	4171	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5932	6051	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4052	4171	
==>ear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MR <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	130	219	
==>anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	130	219	
==>anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	130	219	
==>anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18151	18295	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15389	15533	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18151	18295	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15389	15533	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18151	18295	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15389	15533	
==>a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namesp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6582	6719	
==>$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_ti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6582	6719	
==>$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_ti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6582	6719	
==>$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_ti <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1118	1226	
==>ded class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 200 <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1118	1226	
==>ded class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 200 <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1118	1226	
==>ded class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 200 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	68	155	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	240	327	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	68	155	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	240	327	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	68	155	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	240	327	
==>onstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ <==
9	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3462	3625	
==>.subscriptions<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notify ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30143	30273	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31872	32002	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30143	30273	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31872	32002	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30143	30273	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31872	32002	
==>ay = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $a <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20675	20764	
==>ngth and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo. <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20675	20764	
==>ngth and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2457	2595	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4784	4922	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2457	2595	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4784	4922	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2457	2595	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4784	4922	
==>ibute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2527	2648	
==>} catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2527	2648	
==>} catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2527	2648	
==>} catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2139	2279	
==>add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2139	2279	
==>add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2139	2279	
==>add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	97	201	
==>ock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	97	201	
==>ock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	97	201	
==>ock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	96	199	
==>ock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	96	199	
==>ock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	96	199	
==>ock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	253	356	
==>uage/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	253	356	
==>uage/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	253	356	
==>uage/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Cl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14826	14923	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12080	12177	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14826	14923	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12080	12177	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14826	14923	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12080	12177	
==>ined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	876	984	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	964	1072	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	876	984	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	964	1072	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	876	984	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	964	1072	
==>@pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pus <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4352	4453	
==>OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4352	4453	
==>OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4352	4453	
==>OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comma <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11578	11735	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3090	3247	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11578	11735	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3090	3247	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11578	11735	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3090	3247	
==>TORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8035	8179	
==>TORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8035	8179	
==>TORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8035	8179	
==>TORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4696	4821	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7632	7757	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4696	4821	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7632	7757	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4696	4821	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7632	7757	
==>ssociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # no <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19994	20090	
==>ystem itself, to have the user language data in separate
files (usually XML files I think) from t <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19994	20090	
==>ystem itself, to have the user language data in separate
files (usually XML files I think) from t <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3100	3196	
==>:Backend::Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3060	3172	
==>nt *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3060	3172	
==>nt *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3060	3172	
==>nt *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3406	3498	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6420	6512	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8488	8580	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3406	3498	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6420	6512	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8488	8580	
==>ns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13324	13443	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18207	18326	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13324	13443	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18207	18326	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13324	13443	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18207	18326	
==>go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::ne <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	19258	19367	
==>>{bailout_reason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connecti <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26898	26993	
==>rresponding argument is
provided (it defaults to empty if the argument is not provided).

Some e <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26898	26993	
==>rresponding argument is
provided (it defaults to empty if the argument is not provided).

Some e <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17643	17764	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8224	8345	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14863	14984	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17643	17764	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8224	8345	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14863	14984	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17643	17764	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8224	8345	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14863	14984	
==>CH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	626	743	
==>+;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	626	743	
==>+;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	626	743	
==>+;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6908	7014	
==>$xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6908	7014	
==>$xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6908	7014	
==>$xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2896	2993	
==>ssibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2896	2993	
==>ssibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2896	2993	
==>ssibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12234	12362	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3856	3984	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12234	12362	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3856	3984	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12234	12362	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3856	3984	
==>ied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6958	7084	
==>ied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6958	7084	
==>ied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     su <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6958	7084	
==>ied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10323	10424	
==>------------------------------------------    
    method resolve () { "<implemented>" }

    # ------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10346	10447	
==>-------------------    
    method resolve () { "<implemented>" }

    # ----------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10323	10424	
==>------------------------------------------    
    method resolve () { "<implemented>" }

    # ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10346	10447	
==>-------------------    
    method resolve () { "<implemented>" }

    # ----------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10323	10424	
==>------------------------------------------    
    method resolve () { "<implemented>" }

    # ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10346	10447	
==>-------------------    
    method resolve () { "<implemented>" }

    # ----------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	561	654	
==>kage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursio <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	561	654	
==>kage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursio <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	561	654	
==>kage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursio <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10154	10289	
==>s.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cooki <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10154	10289	
==>s.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cooki <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28337	28433	
==>bject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35693	35789	
==>bject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28337	28433	
==>bject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35693	35789	
==>bject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	103	193	
==>:BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	103	193	
==>:BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	103	193	
==>:BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10608	10770	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8159	8321	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10608	10770	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8159	8321	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10608	10770	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8159	8321	
==>start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3718	3807	
==>\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autov <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3718	3807	
==>\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autov <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3718	3807	
==>\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autov <==
9	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15473	15639	
==>0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separate <==
9	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	655	786	
==>-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest <==
9	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	690	821	
==>-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	655	786	
==>-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest <==
9	/Users/nnunley/pugs/util/build_pugs.pl	9872	10003	
==>-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest <==
9	/Users/nnunley/pugs/util/src_to_blib.pl	1128	1259	
==>-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	459	561	
==>);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	459	561	
==>);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	459	561	
==>);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5035	5175	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5996	6136	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5035	5175	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5996	6136	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5035	5175	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5996	6136	
==>> sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3151	3257	
==>);
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @va <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3151	3257	
==>);
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @va <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3151	3257	
==>);
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @va <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3076	3193	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6069	6186	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3350	3461	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9768	9879	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3350	3461	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9768	9879	
==>ft;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1549	1637	
==>ix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1549	1637	
==>ix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1549	1637	
==>ix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24760	24857	
==>exception; most often this is due to invalid input.  If an invoked routine
simply returns, you can <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20799	20896	
==>exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22374	22471	
==>exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9660	9757	
==>exception; most often this is due to invalid input.  If an invoked routine
simply returns, you can <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24760	24857	
==>exception; most often this is due to invalid input.  If an invoked routine
simply returns, you can <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25351	25448	
==>exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23939	24036	
==>exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22374	22471	
==>exception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9660	9757	
==>exception; most often this is due to invalid input.  If an invoked routine
simply returns, you can <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1013	1156	
==>ope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->le <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1013	1156	
==>ope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->le <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1013	1156	
==>ope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->le <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1484	1602	
==>method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defau <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1484	1602	
==>method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defau <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1484	1602	
==>method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defau <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1152	1263	
==>al($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    m <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1152	1263	
==>al($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    m <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1152	1263	
==>al($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3664	3776	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6600	6712	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3664	3776	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6600	6712	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3664	3776	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6600	6712	
==>or binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3091	3192	
==>(retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3091	3192	
==>(retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3091	3192	
==>(retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc( <==
9	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1239	1340	
==>=> $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1239	1340	
==>=> $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	623	719	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1143	1239	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	623	719	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1143	1239	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	623	719	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1143	1239	
==>ings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	7250	7342	
==>ver it is combined with (except instantiated variables, which delegate. see below)
multi unif <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1349	1455	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_c <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1349	1455	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_c <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1088	1193	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1813	1918	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2073	2178	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1088	1193	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1813	1918	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2073	2178	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_c <==
9	/Users/nnunley/pugs/util/run-smoke.pl	1150	1235	
==>NESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4287	4399	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ / <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4480	4592	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ / <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4767	4873	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7416	7522	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4983	5087	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11432	11536	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4983	5087	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11432	11536	
==>len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	744	841	
==>Quantified matches could use less stack space.

- Simplify arg list - the functions currently ta <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2699	2830	
==>M_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        f <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7793	7924	
==>M_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        f <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2699	2830	
==>M_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        f <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7793	7924	
==>M_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        f <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12873	12991	
==>my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6348	6466	
==>my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4954	5062	
==>lf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bod <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4954	5062	
==>lf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bod <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4954	5062	
==>lf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bod <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11691	11831	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9244	9384	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11691	11831	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9244	9384	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11691	11831	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9244	9384	
==>to TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27378	27472	
==>tional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pro <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31930	32024	
==>tional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pro <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31013	31107	
==>tional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pro <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	798	897	
==>s.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pw <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	798	897	
==>s.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pw <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	798	897	
==>s.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pw <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	407	505	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	400	498	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	407	505	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	400	498	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	407	505	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	400	498	
==>PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10803	10975	
==>one->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10803	10975	
==>one->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10803	10975	
==>one->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3487	3603	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6015	6131	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3487	3603	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6015	6131	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3487	3603	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6015	6131	
==>$body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9290	9417	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12263	12390	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9290	9417	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12263	12390	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9290	9417	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12263	12390	
==>l6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subme <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3868	3966	
==>urncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3868	3966	
==>urncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3868	3966	
==>urncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PI <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18489	18640	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15727	15878	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18489	18640	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15727	15878	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18489	18640	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15727	15878	
==>ibute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7174	7262	
==>trict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7174	7262	
==>trict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7174	7262	
==>trict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX: <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25105	25200	
==>terministic,
such that all of its class and object methods will each return the same
result and/ <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11236	11331	
==>terministic,
such that all of its class and object methods will each return the same
result and/ <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14509	14604	
==>terministic, such that all of its class and
object methods will each return the same result and/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	933	1028	
==>< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. . <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25105	25200	
==>terministic,
such that all of its class and object methods will each return the same
result and/ <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11236	11331	
==>terministic,
such that all of its class and object methods will each return the same
result and/ <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14509	14604	
==>terministic, such that all of its class and
object methods will each return the same result and/ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	933	1028	
==>< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. . <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	933	1028	
==>< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. . <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12070	12199	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3692	3821	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12070	12199	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3692	3821	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12070	12199	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3692	3821	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6796	6923	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6796	6923	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6796	6923	
==>{ _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2491	2631	
==>ey),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2491	2631	
==>ey),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2491	2631	
==>ey),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    } <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21302	21421	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22423	22542	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22986	23105	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17723	17842	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18844	18963	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19407	19526	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subst <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16030	16167	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20747	20884	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16030	16167	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20747	20884	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16030	16167	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20747	20884	
==>ure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mul <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1437	1571	
==>age AST;
    use base 'Unit';

    package Sym;
    use base 'Unit';

    package Param;
    use base 'Unit';

    package App;
    use <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4697	4791	
==>s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4919	5013	
==>s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$ <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4725	4834	
==>ctet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @ind <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4725	4834	
==>ctet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @ind <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6828	6929	
==>f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6828	6929	
==>f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6828	6929	
==>f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_ <==
9	/Users/nnunley/pugs/util/grokprims.pl	2143	2236	
==>tt>$example</tt></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  prin <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1054	1143	
==>ks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1054	1143	
==>ks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1054	1143	
==>ks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13222	13369	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14957	15104	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13222	13369	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14957	15104	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13222	13369	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14957	15104	
==>f->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2648	2749	
==>>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # X <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2648	2749	
==>>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # X <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2648	2749	
==>>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # X <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5946	6060	
==>"Cannot determine perl version info from $file\n";
        return;
    }
}

sub author_from {
    my ( $self, $file <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1910	2008	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	540	638	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1678	1776	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13986	14084	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1910	2008	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	540	638	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1678	1776	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13986	14084	
==>s.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12491	12588	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1165	1262	
==>elude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10042	10139	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1165	1262	
==>elude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1165	1262	
==>elude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12491	12588	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10042	10139	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12491	12588	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10042	10139	
==>ass;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatch <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8552	8738	
==>od eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8552	8738	
==>od eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8552	8738	
==>od eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1096	1200	
==>ed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional arg <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1096	1200	
==>ed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional arg <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1096	1200	
==>ed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional arg <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2007	2105	
==>{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2007	2105	
==>{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2007	2105	
==>{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	13176	13314	
==>ow which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1294	1408	
==>r already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1294	1408	
==>r already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1294	1408	
==>r already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PI <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2480	2579	
==>normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2480	2579	
==>normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2480	2579	
==>normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9386	9476	
==>>sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @stat <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3211	3301	
==>>sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @stat <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11059	11172	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11555	11668	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11734	11847	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11059	11172	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11555	11668	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11734	11847	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11059	11172	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11555	11668	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11734	11847	
==>{
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24891	25038	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27080	27227	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24891	25038	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27080	27227	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24891	25038	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27080	27227	
==>ess defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13841	13955	
==>6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->f <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13841	13955	
==>6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->f <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13841	13955	
==>6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->f <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18577	18736	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15815	15974	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18577	18736	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15815	15974	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18577	18736	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15815	15974	
==>=> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8110	8223	
==>ode;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    def <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8110	8223	
==>ode;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    def <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8110	8223	
==>ode;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    def <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12514	12616	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14396	14498	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12514	12616	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14396	14498	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12514	12616	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14396	14498	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{p <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23331	23425	
==>p1.p6analyze(pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9644	9736	
==>es of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The follo <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9644	9736	
==>es of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The follo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1648	1753	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3211	3316	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1648	1753	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3211	3316	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1648	1753	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3211	3316	
==>allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3717	3810	
==>e_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_en <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3717	3810	
==>e_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_en <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3717	3810	
==>e_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_en <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1725	1850	
==>op ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = % <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1725	1850	
==>op ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = % <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11249	11365	
==>ick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we'r <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11249	11365	
==>ick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we'r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40735	40847	
==>e::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40735	40847	
==>e::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40735	40847	
==>e::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{a <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10494	10602	
==>ick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we'r <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10494	10602	
==>ick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we'r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3042	3161	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6035	6154	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3317	3430	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9735	9848	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3317	3430	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9735	9848	
==>greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4368	4469	
==>bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor ha <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4368	4469	
==>bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor ha <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4368	4469	
==>bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor ha <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25421	25600	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27616	27795	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25421	25600	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27616	27795	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25421	25600	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27616	27795	
==>q '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elem <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	261	354	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	261	354	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	261	354	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3210	3342	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6203	6333	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3477	3601	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9895	10019	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3477	3601	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9895	10019	
==>ll(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizat <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38849	38953	
==>on - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38849	38953	
==>on - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38849	38953	
==>on - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5635	5752	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8605	8722	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5635	5752	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8605	8722	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5635	5752	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8605	8722	
==>lts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9373	9479	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6920	7026	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9373	9479	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6920	7026	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9373	9479	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6920	7026	
==>cher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5203	5301	
==>, there has to be only one input file.
In linking mode, multiple input files may be specified. If a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5203	5301	
==>, there has to be only one input file.
In linking mode, multiple input files may be specified. If a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5203	5301	
==>, there has to be only one input file.
In linking mode, multiple input files may be specified. If a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15007	15148	
==>l = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15007	15148	
==>l = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15007	15148	
==>l = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19706	19846	
==>l = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19706	19846	
==>l = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19706	19846	
==>l = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just dea <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	1901	2025	
==>n :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading) <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5378	5502	
==>n :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading) <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4308	4432	
==>n :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	553	676	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	519	642	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	569	692	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	525	648	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	580	703	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	545	668	
==>);
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1752	1859	
==>tchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1752	1859	
==>tchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1752	1859	
==>tchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3660	3762	
==>s::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs:: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3660	3762	
==>s::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7353	7527	
==>numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7353	7527	
==>numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7353	7527	
==>numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3642	3759	
==>class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3642	3759	
==>class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3642	3759	
==>class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	763	861	
==>rite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	763	861	
==>rite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1319	1417	
==>rite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2667	2771	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3247	3351	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2667	2771	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3247	3351	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2667	2771	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3247	3351	
==>lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_man <==
9	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2450	2551	
==>This program should be run as unpreviliged user, it will ask you to enter
      commands requiring roo <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17161	17257	
==>our Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17161	17257	
==>our Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25085	25182	
==>class is pure and deterministic,
such that all of its class and object methods will each return th <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	22322	22419	
==>class is pure and deterministic, such that all of its class
and object methods will each return th <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11216	11313	
==>class is pure and deterministic,
such that all of its class and object methods will each return th <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14489	14586	
==>class is pure and deterministic, such that all of its class and
object methods will each return th <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25085	25182	
==>class is pure and deterministic,
such that all of its class and object methods will each return th <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26874	26971	
==>class is pure and deterministic, such that all of its class
and object methods will each return th <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25597	25694	
==>class is pure and deterministic, such that all of its class
and object methods will each return th <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11216	11313	
==>class is pure and deterministic,
such that all of its class and object methods will each return th <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14489	14586	
==>class is pure and deterministic, such that all of its class and
object methods will each return th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9691	9802	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12664	12775	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9691	9802	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12664	12775	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9691	9802	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12664	12775	
==>le to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6797	6904	
==>rn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_s <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6797	6904	
==>rn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_s <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6797	6904	
==>rn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1976	2076	
==>my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1976	2076	
==>my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1976	2076	
==>my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2271	2370	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2990	3089	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2271	2370	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2990	3089	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2271	2370	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2990	3089	
==>my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30728	30944	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32447	32663	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30728	30944	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32447	32663	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30728	30944	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32447	32663	
==>et, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10862	10958	
==>universe is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Ot <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10862	10958	
==>universe is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Ot <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34350	34442	
==>racter, but now we need to
write the supporting class for the F<Regexp::AndBranch::and> objec <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11978	12097	
==>\nnn might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13512	13618	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10796	10902	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13512	13618	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10796	10902	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13512	13618	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10796	10902	
==>($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38570	38666	
==>le, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "He <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38570	38666	
==>le, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "He <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16264	16413	
==>turn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16264	16413	
==>turn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16264	16413	
==>turn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30231	30366	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31960	32095	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30231	30366	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31960	32095	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30231	30366	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31960	32095	
==>f ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1979	2109	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1091	1221	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1658	1788	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1979	2109	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1091	1221	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1658	1788	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1979	2109	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1091	1221	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1658	1788	
==>e not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5893	6053	
==>ch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5893	6053	
==>ch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5893	6053	
==>ch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nu <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7193	7288	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6323	6418	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2977	3072	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2977	3072	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7193	7288	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6323	6418	
==>es($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3298	3419	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8583	8704	
==>$node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6291	6408	
==>$node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub {
        my <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3559	3675	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9977	10093	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8282	8398	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3559	3675	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9977	10093	
==>$node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my <==
9	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1990	2074	
==>struct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_g <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4451	4559	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7387	7495	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4451	4559	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7387	7495	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4451	4559	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7387	7495	
==>$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2089	2193	
==>0,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].d <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2089	2193	
==>0,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].d <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2089	2193	
==>0,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].d <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	827	987	
==>ch;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0] <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3898	4058	
==>ch;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0] <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	827	987	
==>ch;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0] <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3898	4058	
==>ch;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0] <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1454	1606	
==>ch;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0] <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1454	1606	
==>ch;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11262	11356	
==>he Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are us <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11262	11356	
==>he Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are us <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11262	11356	
==>he Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are us <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5068	5200	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6029	6161	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5068	5200	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6029	6161	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5068	5200	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6029	6161	
==>e = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2207	2321	
==>f thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2207	2321	
==>f thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2207	2321	
==>f thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11823	11982	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3334	3493	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11823	11982	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3334	3493	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11823	11982	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3334	3493	
==>t!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8266	8415	
==>t!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8266	8415	
==>t!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8266	8415	
==>t!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1934	2064	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1046	1176	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1613	1743	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1934	2064	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1046	1176	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1613	1743	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1934	2064	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1046	1176	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1613	1743	
==>ethod should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # bu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1829	1934	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1715	1820	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5042	5143	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4915	5016	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	729	830	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6579	6680	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5182	5283	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5165	5266	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	729	830	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1917	2009	
==>.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1917	2009	
==>.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1917	2009	
==>.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9133	9279	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12106	12252	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9133	9279	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12106	12252	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9133	9279	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12106	12252	
==>l6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1486	1593	
==>) && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1486	1593	
==>) && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1486	1593	
==>) && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8007	8120	
==>ms;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8007	8120	
==>ms;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8007	8120	
==>ms;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1301	1404	
==>rpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opti <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1301	1404	
==>rpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opti <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1510	1613	
==>rpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opti <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7073	7168	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6203	6298	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2857	2952	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2857	2952	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7073	7168	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6203	6298	
==>returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24765	24882	
==>tion; most often this is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20804	20921	
==>tion;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22379	22496	
==>tion;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9665	9782	
==>tion; most often this is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24765	24882	
==>tion; most often this is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25356	25473	
==>tion;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23944	24061	
==>tion;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22379	22496	
==>tion;
most often this is due to invalid input.  If an invoked routine simply
returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9665	9782	
==>tion; most often this is due to invalid input.  If an invoked routine
simply returns, you can assume that it has succe <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13656	13780	
==>0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $! <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15181	15305	
==>0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $! <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11062	11181	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8615	8734	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11062	11181	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8615	8734	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11062	11181	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8615	8734	
==>b {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@s <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12648	12760	
==>0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( heading => $! <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4284	4430	
==>));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4284	4430	
==>));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4284	4430	
==>));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6810	6942	
==>));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6810	6942	
==>));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6810	6942	
==>));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12117	12227	
==>s); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PI <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12117	12227	
==>s); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PI <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12117	12227	
==>s); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PI <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25356	25478	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26014	26136	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28796	28918	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25635	25757	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26293	26415	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29075	29197	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3083	3181	
==>name = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3083	3181	
==>name = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!") <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3083	3181	
==>name = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!") <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3336	3489	
==>=> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supert <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3336	3489	
==>=> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supert <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3336	3489	
==>=> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supert <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2569	2677	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3669	3777	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2569	2677	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3669	3777	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2569	2677	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3669	3777	
==>k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26916	27071	
==>eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27195	27350	
==>eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6055	6209	
==>lf: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6875	7029	
==>lf: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6055	6209	
==>lf: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6875	7029	
==>lf: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	1	90	
==>ub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	1	90	
==>ub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	1	90	
==>ub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  functi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4705	4833	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7641	7769	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4705	4833	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7641	7769	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4705	4833	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7641	7769	
==>_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1325	1438	
==>nts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1325	1438	
==>nts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1325	1438	
==>nts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41161	41260	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13549	13648	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9341	9440	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41161	41260	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13549	13648	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9341	9440	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41161	41260	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13549	13648	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9341	9440	
==>TION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	114	216	
==>er the weekend.  A "look at what I'm up to".

It passes most (95%) of a perl 5.9 re test file (re_tests <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25385	25482	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	823	920	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24149	24246	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1948	2045	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25385	25482	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	823	920	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24149	24246	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1948	2045	
==>ee software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<p <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	148	300	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3202	3354	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	273	425	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1949	2101	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	148	300	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3202	3354	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	273	425	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1949	2101	
==>nts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6027	6133	
==>{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{da <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9353	9468	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6900	7015	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9353	9468	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6900	7015	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9353	9468	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6900	7015	
==>') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $d <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20588	20683	
==>s.  All of
their class/object attributes are private, so you must use accessor
methods.  Relatio <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25140	25235	
==>s.  All of
their class/object attributes are private, so you must use accessor
methods.  Relatio <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23710	23805	
==>s.  All of
their class/object attributes are private, so you must use accessor
methods.  Relatio <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5366	5493	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6327	6454	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5366	5493	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6327	6454	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5366	5493	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6327	6454	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7542	7668	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7542	7668	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7542	7668	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => P <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3365	3496	
==>ee = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3365	3496	
==>ee = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4479	4588	
==>e::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Pu <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24794	24890	
==>to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22408	22504	
==>to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9694	9790	
==>to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24794	24890	
==>to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22408	22504	
==>to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9694	9790	
==>to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, ev <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2438	2545	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7877	7984	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2438	2545	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7877	7984	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2438	2545	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7877	7984	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4558	4652	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4558	4652	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4558	4652	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10394	10513	
==>$reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Bui <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5882	5991	
==>js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPara <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5882	5991	
==>js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPara <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5882	5991	
==>js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPara <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2415	2522	
==>$reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Bui <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2415	2522	
==>$reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Bui <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4594	4699	
==>el || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4594	4699	
==>el || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4594	4699	
==>el || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3130	3249	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11053	11172	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6255	6374	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3130	3249	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11053	11172	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6255	6374	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMP <==
9	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16049	16151	
==>);
  unshift(@{$m0->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tr <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3645	3746	
==>accurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3645	3746	
==>accurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12236	12365	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3858	3987	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12236	12365	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3858	3987	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12236	12365	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3858	3987	
==>d' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6960	7087	
==>d' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6960	7087	
==>d' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6960	7087	
==>d' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20557	20675	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17696	17814	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20557	20675	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17696	17814	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20557	20675	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17696	17814	
==>lue) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5155	5261	
==>lue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5155	5261	
==>lue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5155	5261	
==>lue) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($se <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9821	9929	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10802	10910	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12273	12381	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13298	13406	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14279	14387	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15750	15858	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12570	12678	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13578	13686	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15103	15211	
==>fficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources hav <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15745	15893	
==>ure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15745	15893	
==>ure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15745	15893	
==>ure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20466	20610	
==>ure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20466	20610	
==>ure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20466	20610	
==>ure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mult <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11665	11789	
==>t::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Te <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2099	2211	
==>t::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Te <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2099	2211	
==>t::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Te <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7486	7610	
==>/ work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : ia <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7486	7610	
==>/ work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : ia <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7486	7610	
==>/ work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : ia <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3783	3884	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6719	6820	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3783	3884	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6719	6820	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3783	3884	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6719	6820	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2302	2445	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1414	1557	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1978	2121	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2302	2445	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1414	1557	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1978	2121	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2302	2445	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1414	1557	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1978	2121	
==>he instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7510	7619	
==>s primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &li <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7510	7619	
==>s primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &li <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7510	7619	
==>s primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &li <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18631	18726	
==>ich are hard-coded into your application or package, with one or more
text strings to show human <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18631	18726	
==>ich are hard-coded into your application or package, with one or more
text strings to show human <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37501	37595	
==>n its positional parameter
$module_name (a string) and tries to load it using 'require'.

=item <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37501	37595	
==>n its positional parameter
$module_name (a string) and tries to load it using 'require'.

=item <==
9	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	121	213	
==>tity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal <==
9	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	121	213	
==>tity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1629	1731	
==>e ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23283	23377	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1856	1950	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4147	4241	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1819	1913	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23283	23377	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1856	1950	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4147	4241	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1819	1913	
==>messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Roset <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6754	6861	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9724	9831	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6754	6861	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9724	9831	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6754	6861	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9724	9831	
==>) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1152	1251	
==>elf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1152	1251	
==>elf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1152	1251	
==>elf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fix <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4172	4340	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4172	4340	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4172	4340	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6698	6852	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6698	6852	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6698	6852	
==>ethod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3713	3813	
==>IL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($f <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3713	3813	
==>IL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($f <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3713	3813	
==>IL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($f <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	62	168	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	773	879	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1896	2002	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	62	168	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	773	879	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1896	2002	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	62	168	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	773	879	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1896	2002	
==>if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	323	420	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	647	744	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	323	420	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	647	744	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	323	420	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	647	744	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	255	350	
==>n "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Conte <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	255	350	
==>n "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Conte <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	255	350	
==>n "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Conte <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9087	9232	
==>arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9087	9232	
==>arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9087	9232	
==>arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9334	9440	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6881	6987	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9334	9440	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6881	6987	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9334	9440	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6881	6987	
==>$order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq <==
9	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6279	6409	
==>$ghc_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $g <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4425	4528	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4649	4752	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4425	4528	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4649	4752	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4425	4528	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4649	4752	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3581	3684	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3949	4052	
==>ack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«< <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16236	16385	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16236	16385	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16236	16385	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3298	3412	
==>m ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3298	3412	
==>m ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3298	3412	
==>m ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'u <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3664	3766	
==>P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj- <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1426	1526	
==>oesn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subna <==
9	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1426	1526	
==>oesn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subna <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8773	8908	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6326	6461	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8773	8908	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6326	6461	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8773	8908	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6326	6461	
==>ses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasse <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3581	3683	
==>OT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3581	3683	
==>OT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3581	3683	
==>OT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12675	12780	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4175	4280	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12675	12780	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4175	4280	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12675	12780	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4175	4280	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7701	7801	
==>JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7701	7801	
==>JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7701	7801	
==>JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11813	11957	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3324	3468	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11813	11957	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3324	3468	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11813	11957	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3324	3468	
==>rray object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8256	8392	
==>rray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8256	8392	
==>rray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8256	8392	
==>rray object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7474	7630	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5033	5189	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7474	7630	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5033	5189	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7474	7630	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5033	5189	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1169	1325	
==>ad;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (m <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13935	14033	
==>(a string).  If a header field is multi-valued, then the
routine is called once for each value.  Th <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13935	14033	
==>(a string).  If a header field is multi-valued, then the
routine is called once for each value.  Th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3748	3916	
==>AY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3748	3916	
==>AY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3748	3916	
==>AY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12267	12371	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6834	6938	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12267	12371	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6834	6938	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	751	850	
==>er accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$ <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1235	1334	
==>er accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30508	30644	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32222	32358	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30508	30644	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32222	32358	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30508	30644	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32222	32358	
==>h;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_leng <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7712	7816	
==>) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) }, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7712	7816	
==>) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) }, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7712	7816	
==>) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) }, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8090	8234	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', ' <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8090	8234	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', ' <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8090	8234	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14798	14911	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19497	19610	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14798	14911	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19497	19610	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14798	14911	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19497	19610	
==>ack => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10141	10254	
==>{
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10141	10254	
==>{
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10141	10254	
==>{
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	3088	3201	
==>6_doc', 'design' ))) {
        $syn_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless( <==
9	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	719	831	
==>nf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/ <==
9	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	719	831	
==>nf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10829	10938	
==>{
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10829	10938	
==>{
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10829	10938	
==>{
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17609	17746	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8190	8327	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14829	14966	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17609	17746	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8190	8327	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14829	14966	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17609	17746	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8190	8327	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14829	14966	
==>el)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance metho <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4466	4593	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7115	7242	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4692	4815	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11141	11264	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4692	4815	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11141	11264	
==>2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delet <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3234	3336	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3234	3336	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3234	3336	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	365	464	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1228	1327	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	365	464	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1228	1327	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	365	464	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1228	1327	
==>") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), id <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27722	27815	
==>ion that, when
given each original tuple/Mapping as its sole read-only argument, returns a
val <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32274	32367	
==>ion that, when
given each original tuple/Mapping as its sole read-only argument, returns a
val <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31366	31459	
==>ion that, when
given each original tuple/Mapping as its sole read-only argument, returns a
val <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12553	12689	
==>lf: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2923	3053	
==>lf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2923	3053	
==>lf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11554	11682	
==>lf: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11995	12122	
==>lf: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1994	2116	
==>lf: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1994	2116	
==>lf: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2403	2524	
==>lf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2403	2524	
==>lf: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7830	8043	
==>rt =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7830	8043	
==>rt =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7830	8043	
==>rt =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7340	7460	
==>lighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7340	7460	
==>lighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7340	7460	
==>lighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5203	5317	
==>any(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5203	5317	
==>any(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5203	5317	
==>any(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3285	3404	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4172	4291	
==>{
        delete $args{prefix};
    }

    return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8570	8689	
==>s { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6278	6393	
==>s { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3547	3661	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9965	10079	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8270	8384	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3547	3661	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9965	10079	
==>s { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	717	851	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	805	939	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	717	851	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	805	939	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	717	851	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	805	939	
==>re -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4604	4693	
==>ie unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARR <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4604	4693	
==>ie unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARR <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4604	4693	
==>ie unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARR <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19528	19629	
==>e last char within the capture.
n=0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the ca <==
9	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1740	1853	
==>, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U <==
9	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1740	1853	
==>, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1690	1794	
==>t Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24319	24500	
==>Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24319	24500	
==>Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24319	24500	
==>Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4970	5109	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5931	6070	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4970	5109	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5931	6070	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4970	5109	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5931	6070	
==>>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SEL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5420	5526	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8390	8496	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5420	5526	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8390	8496	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5420	5526	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8390	8496	
==>t seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5640	5736	
==>sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5640	5736	
==>sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5640	5736	
==>sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4919	5065	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5880	6026	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7008	7154	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4919	5065	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5880	6026	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7008	7154	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4919	5065	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5880	6026	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7008	7154	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $va <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1510	1617	
==>}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1510	1617	
==>}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1510	1617	
==>}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15828	15922	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13078	13172	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15828	15922	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13078	13172	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15828	15922	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13078	13172	
==>sufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\% <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4416	4531	
==>re_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_univ <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4416	4531	
==>re_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_univ <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4148	4255	
==>IVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') if !((~ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6294	6391	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6662	6759	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6294	6391	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6662	6759	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8491	8588	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8859	8956	
==>rrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29630	29752	
==>my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum + <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29630	29752	
==>my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum + <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29630	29752	
==>my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum + <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7695	7790	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6825	6920	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3411	3506	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3411	3506	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7695	7790	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6825	6920	
==>ne.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating should <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6411	6632	
==>>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6411	6632	
==>>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6411	6632	
==>>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18104	18232	
==>6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dump <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18104	18232	
==>6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dump <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18104	18232	
==>6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dump <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2933	3043	
==>$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2933	3043	
==>$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2933	3043	
==>$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5240	5386	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8210	8356	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5240	5386	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8210	8356	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5240	5386	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8210	8356	
==>d);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange o <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3345	3441	
==>, and then telling this module to compare the received
output to the expected output.

=head1 EXP <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3345	3441	
==>, and then telling this module to compare the received
output to the expected output.

=head1 EXP <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3425	3521	
==>, and then telling this module to compare the received
output to the expected output.

=head1 EXP <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4782	4936	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7718	7872	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4782	4936	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7718	7872	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4782	4936	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7718	7872	
==>od with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3567	3676	
==>WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatche <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3567	3676	
==>WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatche <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3567	3676	
==>WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatche <==
9	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2017	2135	
==>PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2897	3015	
==>PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires <==
9	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4063	4174	
==>> Makefile' or die $!;
    print MAKEFILE $makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6804	6900	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5934	6030	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2588	2684	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2588	2684	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6804	6900	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5934	6030	
==>set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16151	16278	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20868	20995	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16151	16278	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20868	20995	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16151	16278	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20868	20995	
==>= $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10516	10630	
==>ool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' ) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10510	10624	
==>ool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' ) <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13998	14097	
==>t )
 
Iterates the elements of C<%hash> in no apparent order, but the order
will be the same between <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4156	4338	
==>d' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4156	4338	
==>d' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4156	4338	
==>d' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	720	867	
==>'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	720	867	
==>'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	720	867	
==>'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	437	544	
==>f, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	437	544	
==>f, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	437	544	
==>f, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1370	1475	
==>e"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1370	1475	
==>e"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1370	1475	
==>e"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PI <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36357	36450	
==>d unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate o <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	38110	38203	
==>d unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40906	40999	
==>d unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42659	42752	
==>d unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40520	40613	
==>d unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42309	42402	
==>d unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8624	8776	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11597	11749	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8624	8776	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11597	11749	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8624	8776	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11597	11749	
==>e 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3789	3905	
==>$self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocan <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3789	3905	
==>$self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocan <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3789	3905	
==>$self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13545	13652	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13688	13795	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13831	13938	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13545	13652	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13688	13795	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13831	13938	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13545	13652	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13688	13795	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13831	13938	
==>_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl( <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9841	9951	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10822	10932	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12293	12403	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13318	13428	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14299	14409	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15770	15880	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12590	12700	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13598	13708	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15123	15233	
==>rent.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	984	1104	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1072	1192	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	984	1104	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1072	1192	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	984	1104	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1072	1192	
==>sh @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1287	1377	
==>::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discov <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1287	1377	
==>::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discov <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1287	1377	
==>::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discov <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	303	421	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	301	419	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	303	421	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	301	419	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	303	421	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	301	419	
==>a.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1495	1595	
==>ew internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1495	1595	
==>ew internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1495	1595	
==>ew internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5317	5444	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8287	8414	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5317	5444	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8287	8414	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5317	5444	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8287	8414	
==>) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes wh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4529	4625	
==>int STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4529	4625	
==>int STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4529	4625	
==>int STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1943	2077	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1055	1189	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1622	1756	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1943	2077	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1055	1189	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1622	1756	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1943	2077	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1055	1189	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1622	1756	
==>uld accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will all <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1188	1306	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	939	1057	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1188	1306	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	939	1057	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1188	1306	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	939	1057	
==>ontainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2633	2731	
==>n=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2633	2731	
==>n=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2633	2731	
==>n=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2007	2109	
==>ee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2007	2109	
==>ee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2007	2109	
==>ee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5027	5115	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3255	3343	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5027	5115	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3255	3343	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5027	5115	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3255	3343	
==>def unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':can <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4173	4308	
==>ules[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6421	6535	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7174	7288	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8038	8152	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8819	8933	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9898	10012	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10651	10765	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11515	11629	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12296	12410	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match t <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	979	1107	
==>e qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $sym_ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6424	6539	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7177	7292	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8041	8156	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8822	8937	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9901	10016	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10654	10769	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11518	11633	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12299	12414	
==>on $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8960	9166	
==>param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8960	9166	
==>param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8960	9166	
==>param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5297	5423	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8267	8393	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5297	5423	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8267	8393	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5297	5423	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8267	8393	
==>sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7140	7247	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7140	7247	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7140	7247	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12296	12402	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12296	12402	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12296	12402	
==>w( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbox <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7244	7332	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_mat <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7244	7332	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_mat <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7244	7332	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_mat <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28918	29059	
==>'$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Ar <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28918	29059	
==>'$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Ar <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28918	29059	
==>'$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Ar <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1770	1868	
==>only for performance reasons,

# because they are too frequent and they are too slow using the basi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	34946	35043	
==>ther>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C< <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39496	39593	
==>ther>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C< <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	373	470	
==>only for performance reasons,
# because they are too frequent and they are too slow using the basi <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1698	1795	
==>only for performance reasons,
# because they are too frequent and they are too slow using the basi <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	384	481	
==>only for performance reasons,
# because they are too frequent and they are too slow using the basi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11154	11301	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8707	8854	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11154	11301	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8707	8854	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11154	11301	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8707	8854	
==>P:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16035	16134	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16035	16134	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16035	16134	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4892	5007	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7541	7656	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5105	5214	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11554	11663	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5105	5214	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11554	11663	
==>lete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5632	5737	
==>> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Pe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5632	5737	
==>> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Pe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5632	5737	
==>> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Pe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12574	12714	
==>WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12574	12714	
==>WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12574	12714	
==>WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	317	420	
==>y $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(unde <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	317	420	
==>y $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(unde <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	317	420	
==>y $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(unde <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2319	2419	
==>x:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Erro <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2319	2419	
==>x:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Erro <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2319	2419	
==>x:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Erro <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1699	1813	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3262	3376	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1699	1813	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3262	3376	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1699	1813	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3262	3376	
==>came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11912	12023	
==>($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.':: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11912	12023	
==>($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.':: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11912	12023	
==>($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.':: <==
9	/Users/nnunley/pugs/examples/golf/tsanta.pl	4907	5035	
==>) {
   @ARGV==5 or Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(ST <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3272	3383	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8557	8668	
==>on_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6265	6374	
==>on_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3534	3642	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9952	10060	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8257	8365	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3534	3642	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9952	10060	
==>on_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack u <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7730	7840	
==>, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_tem <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7730	7840	
==>, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_tem <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	925	1033	
==>{}, $class;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub regex {
  my ($self, $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14894	14989	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12148	12243	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14894	14989	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12148	12243	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14894	14989	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12148	12243	
==>ientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attrib <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11601	11794	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9154	9347	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11601	11794	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9154	9347	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11601	11794	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9154	9347	
==>@stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispa <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	424	569	
==>{
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.cat <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	424	569	
==>{
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.cat <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	424	569	
==>{
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.cat <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11664	11825	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9217	9378	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11664	11825	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9217	9378	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11664	11825	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9217	9378	
==>over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3437	3580	
==>s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3437	3580	
==>s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3437	3580	
==>s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10772	10890	
==>K: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10772	10890	
==>K: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @p <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10772	10890	
==>K: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17686	17796	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14906	15016	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17686	17796	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14906	15016	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17686	17796	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14906	15016	
==>f ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1777	1890	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3340	3453	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1777	1890	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3340	3453	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1777	1890	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3340	3453	
==>KMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6048	6146	
==>-- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6048	6146	
==>-- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6048	6146	
==>-- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30732	30948	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32451	32667	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30732	30948	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32451	32667	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30732	30948	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32451	32667	
==>\@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::is <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	775	866	
==>rolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS:: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	775	866	
==>rolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS:: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	775	866	
==>rolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS:: <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6805	6933	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7566	7694	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8436	8564	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10282	10410	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11043	11171	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11913	12041	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9392	9520	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10198	10326	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11113	11241	
==>ers does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18857	18985	
==>OAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18857	18985	
==>OAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18857	18985	
==>OAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4369	4483	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7305	7419	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4369	4483	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7305	7419	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4369	4483	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7305	7419	
==>?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17536	17655	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4471	4590	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8117	8236	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17536	17655	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4471	4590	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8117	8236	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17536	17655	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4471	4590	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8117	8236	
==>ake_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1673	1804	
==>ME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #war <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1673	1804	
==>ME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #war <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1673	1804	
==>ME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #war <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11513	11641	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2507	2635	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7601	7729	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11513	11641	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2507	2635	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7601	7729	
==>{
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$v <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2159	2292	
==>oted} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3780	3881	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6716	6817	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3780	3881	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6716	6817	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3780	3881	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6716	6817	
==>&& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18885	18982	
==>elling in your programs and still send the right
thing on the wire.

When setting the referrer, th <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18885	18982	
==>elling in your programs and still send the right
thing on the wire.

When setting the referrer, th <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11911	12072	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3422	3583	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11911	12072	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3422	3583	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11911	12072	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3422	3583	
==>) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8348	8501	
==>) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8348	8501	
==>) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8348	8501	
==>) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20143	20266	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17282	17405	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20143	20266	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17282	17405	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20143	20266	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17282	17405	
==>eturn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6213	6304	
==>als::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Intern <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6213	6304	
==>als::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Intern <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6213	6304	
==>als::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Intern <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1844	1950	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1730	1836	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5057	5157	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4930	5030	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	744	844	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6594	6694	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5197	5297	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5180	5280	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	744	844	
==>esign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6810	6950	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7571	7711	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8441	8581	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10287	10427	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11048	11188	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11918	12058	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9397	9537	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10203	10343	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11118	11258	
==>oes"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18105	18278	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15343	15516	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18105	18278	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15343	15516	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18105	18278	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15343	15516	
==>fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9601	9750	
==>ion?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $sel <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1694	1833	
==>ion?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $sel <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1694	1833	
==>ion?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1471	1597	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3034	3160	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1471	1597	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3034	3160	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1471	1597	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3034	3160	
==>CKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5491	5605	
==>(@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5491	5605	
==>(@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5491	5605	
==>(@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17655	17772	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8236	8353	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14875	14992	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17655	17772	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8236	8353	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14875	14992	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17655	17772	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8236	8353	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14875	14992	
==>$label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->ha <==
9	/Users/nnunley/pugs/blib6/lib/CGI.pm	7402	7519	
==>STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'p <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7402	7519	
==>STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'p <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11040	11144	
==>all metadata
    system( qq[rm -rf ] . $self->control_dir( $inst_pkg->package ) ) and die $?;

    msg( " <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	103	195	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	327	419	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	103	195	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	327	419	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	103	195	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	327	419	
==>r");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH(). <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4477	4604	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7126	7253	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4703	4826	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11152	11275	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4703	4826	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11152	11275	
==>);
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4423	4533	
==>c P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWO <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	439	533	
==>method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testpl <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	439	533	
==>method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testpl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5703	5810	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3823	3930	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5703	5810	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3823	3930	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5703	5810	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3823	3930	
==>uld check that none of the classes passed to us
        # are also subclasses of us, this is circular inheri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3278	3380	
==>(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3278	3380	
==>(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3278	3380	
==>(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$l <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11636	11771	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3148	3283	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11636	11771	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3148	3283	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11636	11771	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3148	3283	
==>}
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8087	8213	
==>}
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8087	8213	
==>}
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8087	8213	
==>}
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	631	893	
==>$_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove du <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	631	893	
==>$_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove du <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	631	893	
==>$_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove du <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4013	4125	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6662	6774	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4250	4359	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10699	10808	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4250	4359	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10699	10808	
==>rapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11099	11235	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8652	8788	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11099	11235	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8652	8788	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11099	11235	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8652	8788	
==>spatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7868	7987	
==>> Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7868	7987	
==>> Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7868	7987	
==>> Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5433	5539	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5433	5539	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5433	5539	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2574	2676	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4901	5003	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2574	2676	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4901	5003	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2574	2676	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4901	5003	
==>| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11195	11325	
==>params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::V <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11195	11325	
==>params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::V <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11195	11325	
==>params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::V <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10159	10273	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12800	12914	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13636	13750	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16277	16391	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12917	13031	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15639	15753	
==>$?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is sr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7513	7614	
==>----------------------------------------------------------
## END BOOTSTRAPPING ROLES
## ------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7536	7637	
==>-----------------------------------
## END BOOTSTRAPPING ROLES
## ------------------------------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7559	7660	
==>------------
## END BOOTSTRAPPING ROLES
## ----------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7513	7614	
==>----------------------------------------------------------
## END BOOTSTRAPPING ROLES
## ------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7536	7637	
==>-----------------------------------
## END BOOTSTRAPPING ROLES
## ------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7559	7660	
==>------------
## END BOOTSTRAPPING ROLES
## ----------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7513	7614	
==>----------------------------------------------------------
## END BOOTSTRAPPING ROLES
## ------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7536	7637	
==>-----------------------------------
## END BOOTSTRAPPING ROLES
## ------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7559	7660	
==>------------
## END BOOTSTRAPPING ROLES
## ----------------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2334	2527	
==>ented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2334	2527	
==>ented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxe <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2334	2527	
==>ented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4264	4388	
==>(' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4264	4388	
==>(' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4264	4388	
==>(' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $nex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1382	1493	
==>efined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            go <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1587	1698	
==>efined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            go <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1648	1759	
==>efined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            go <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7174	7314	
==>o warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7174	7314	
==>o warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbox <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7174	7314	
==>o warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbox <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15706	15839	
==>asier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15706	15839	
==>asier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15706	15839	
==>asier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20427	20556	
==>asier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20427	20556	
==>asier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20427	20556	
==>asier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registr <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4029	4152	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4967	5090	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2263	2386	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2509	2632	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3044	3167	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3290	3413	
==>=    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12685	12787	
==>n 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12685	12787	
==>n 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12685	12787	
==>n 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4778	4931	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7714	7867	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4778	4931	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7714	7867	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4778	4931	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7714	7867	
==>method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	489	589	
==>e => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	489	589	
==>e => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	489	589	
==>e => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	621	737	
==>elf, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{n <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	993	1108	
==>mbers = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    re <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	993	1108	
==>mbers = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5783	5882	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8753	8852	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5783	5882	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8753	8852	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5783	5882	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8753	8852	
==>ed in the other ::make_*_method subs below
        return $method if blessed($method) && $method->is <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6786	6909	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7547	7670	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8417	8540	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10263	10386	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11024	11147	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11894	12017	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9373	9496	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10179	10302	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11094	11217	
==>en relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!headi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4051	4177	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6987	7113	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4051	4177	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6987	7113	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4051	4177	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6987	7113	
==>apper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	641	746	
==>d the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes lik <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	641	746	
==>d the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes lik <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	641	746	
==>d the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes lik <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	3467	3572	
==>ate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6944	7049	
==>ate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5901	6006	
==>ate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6434	6550	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7187	7303	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8051	8167	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8832	8948	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9911	10027	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10664	10780	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11528	11644	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12309	12425	
==>) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of t <==
9	/Users/nnunley/pugs/util/run-smoke.pl	3170	3280	
==>uldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2697	2863	
==>need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $? <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4630	4726	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4877	4973	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4630	4726	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4877	4973	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4121	4216	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4376	4471	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4121	4216	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4376	4471	
==>@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.oct <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2423	2553	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3132	3262	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2423	2553	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3132	3262	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2423	2553	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3132	3262	
==>::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = sh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2094	2189	
==>rgname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2094	2189	
==>rgname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2094	2189	
==>rgname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4356	4479	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7292	7415	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4356	4479	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7292	7415	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4356	4479	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7292	7415	
==>s 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $as <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2689	2782	
==>jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2689	2782	
==>jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2689	2782	
==>jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13157	13312	
==>iable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21207	21362	
==>iable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13436	13591	
==>iable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21486	21641	
==>iable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9436	9570	
==>turn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    f <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9436	9570	
==>turn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    f <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9436	9570	
==>turn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    f <==
9	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	107	194	
==>RT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char <==
9	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	107	194	
==>RT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1065	1165	
==>tput => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1065	1165	
==>tput => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1145	1245	
==>tput => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3441	3537	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6455	6551	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8523	8619	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3441	3537	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6455	6551	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8523	8619	
==>) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- ` <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	264	368	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	262	366	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	264	368	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	262	366	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	264	368	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	262	366	
==>variables and access their internal data.
    # This is basically the implementation of
    # the p6opaqu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2272	2373	
==>F.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2272	2373	
==>F.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2272	2373	
==>F.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11386	11505	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16116	16235	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11386	11505	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16116	16235	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11386	11505	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16116	16235	
==>seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4185	4299	
==>efer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4185	4299	
==>efer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4185	4299	
==>efer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3061	3155	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6075	6169	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8143	8237	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	25017	25111	
==>) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3061	3155	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6075	6169	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8143	8237	
==>ase_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Boo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29569	29663	
==>) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28481	28575	
==>) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5289	5464	
==>ess {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurp <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5289	5464	
==>ess {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurp <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5289	5464	
==>ess {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurp <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	714	815	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	714	815	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	714	815	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	101	201	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	101	201	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	101	201	
==>nt(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12927	13022	
==>next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12927	13022	
==>next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12927	13022	
==>next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12524	12666	
==>hod status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $sel <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2894	3030	
==>hod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $sel <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2894	3030	
==>hod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11525	11659	
==>hod status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11966	12099	
==>hod status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $sel <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1965	2093	
==>hod status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $sel <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1965	2093	
==>hod status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $sel <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2374	2501	
==>hod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $sel <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2374	2501	
==>hod status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5967	6076	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8937	9046	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5967	6076	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8937	9046	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5967	6076	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8937	9046	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8669	8764	
==>RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8669	8764	
==>RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8669	8764	
==>RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1940	2068	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1052	1180	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1619	1747	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1940	2068	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1052	1180	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1619	1747	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1940	2068	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1052	1180	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1619	1747	
==>should accept
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4006	4119	
==>}
    }
    return nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25671	25782	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27866	27977	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25671	25782	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27866	27977	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25671	25782	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27866	27977	
==>.(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @star <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1670	1771	
==>et $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.pr <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1670	1771	
==>et $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13566	13661	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13709	13804	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13852	13947	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13566	13661	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13709	13804	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13852	13947	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13566	13661	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13709	13804	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13852	13947	
==>PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9492	9618	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12465	12591	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9492	9618	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12465	12591	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9492	9618	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12465	12591	
==>::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14396	14513	
==>ify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14396	14513	
==>ify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14396	14513	
==>ify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8658	8760	
==>->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SU <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8658	8760	
==>->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SU <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8658	8760	
==>->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SU <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15826	15920	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13076	13170	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15826	15920	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13076	13170	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15826	15920	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13076	13170	
==>InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table( <==
9	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	546	668	
==>$data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4914	5036	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRE <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	546	668	
==>$data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4914	5036	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4914	5036	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRE <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3489	3609	
==>method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3489	3609	
==>method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3489	3609	
==>method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass t <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5592	5680	
==>rammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Gramm <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11849	11991	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3360	3502	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11849	11991	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3360	3502	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11849	11991	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3360	3502	
==>ar backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETC <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8288	8424	
==>ar backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8288	8424	
==>ar backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETC <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8288	8424	
==>ar backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETC <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25736	25872	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27931	28067	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25736	25872	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27931	28067	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25736	25872	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27931	28067	
==>ue::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13713	13815	
==>ass
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obje <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7920	8022	
==>ass
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obje <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6631	6722	
==>> sub { 
    '&Object::singleton_test_on_object'
});

is($Object->singleton_test_on_object() <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11962	12059	
==>ref should return match information.  Match
  information gets inserted in $1 etal.  These will be <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1886	1982	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	516	612	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1654	1750	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13962	14058	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1886	1982	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	516	612	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1654	1750	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13962	14058	
==>o S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights rese <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11623	11769	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3135	3281	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11623	11769	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3135	3281	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11623	11769	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3135	3281	
==>his;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          P <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8076	8211	
==>his;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8076	8211	
==>his;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8076	8211	
==>his;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        P <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7105	7320	
==>s
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pk <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	772	876	
==>racking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1143	1241	
==>racking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	742	840	
==>racking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1143	1241	
==>racking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14855	14950	
==>tional databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the co <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14855	14950	
==>tional databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the co <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3699	3793	
==>ack

Please read the HTTP::Query documentation for more information on these methods.

=head1 A <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3699	3793	
==>ack

Please read the HTTP::Query documentation for more information on these methods.

=head1 A <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	6384	6492	
==>lf, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6384	6492	
==>lf, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8824	8929	
==>ringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs del <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8824	8929	
==>ringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs del <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9080	9183	
==>ringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs del <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9080	9183	
==>ringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs del <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1231	1325	
==>ur fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1231	1325	
==>ur fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1231	1325	
==>ur fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2481	2637	
==>, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2481	2637	
==>, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2481	2637	
==>, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9483	9592	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7030	7139	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9483	9592	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7030	7139	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9483	9592	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7030	7139	
==>elf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	787	911	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	875	999	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	787	911	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	875	999	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	787	911	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	875	999	
==>ext;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9344	9458	
==>\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9344	9458	
==>\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9344	9458	
==>\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4706	4823	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7355	7472	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4924	5038	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11373	11487	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4924	5038	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11373	11487	
==>arn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3091	3192	
==>JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3091	3192	
==>JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3091	3192	
==>JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and p <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25390	25487	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	828	925	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24154	24251	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1953	2050	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25390	25487	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	828	925	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24154	24251	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1953	2050	
==>ftware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgp <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25031	25126	
==>elation::Example to have zero tuples.  It is also valid
for a Relation::Example to have zero att <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6974	7092	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9944	10062	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6974	7092	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9944	10062	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6974	7092	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9944	10062	
==>hod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Th <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9633	9749	
==>($self->type);
      $br->omit(1);
      for (reverse @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	463	559	
==>or Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	463	559	
==>or Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17261	17355	
==>)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	658	752	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1178	1272	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17261	17355	
==>)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17261	17355	
==>)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	658	752	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1178	1272	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	658	752	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1178	1272	
==>2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	157	269	
==>ome tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version us <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	165	277	
==>ome tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version us <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	157	269	
==>ome tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version us <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	165	277	
==>ome tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version us <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	3866	3970	
==>gify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Se <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3866	3970	
==>gify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14663	14756	
==>I SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs:: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14663	14756	
==>I SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs:: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14663	14756	
==>I SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6603	6700	
==>from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitiv <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6603	6700	
==>from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitiv <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6603	6700	
==>from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitiv <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12473	12565	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10024	10116	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12473	12565	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10024	10116	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12473	12565	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10024	10116	
==>unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($c <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7407	7516	
==>b { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11742	11851	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2223	2331	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8995	9103	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7157	7265	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2223	2331	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8995	9103	
==>b { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pri <==
9	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	557	654	
==>tart }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () re <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	557	654	
==>tart }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5687	5813	
==>m  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5687	5813	
==>m  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5687	5813	
==>m  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9392	9497	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6939	7044	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9392	9497	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6939	7044	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9392	9497	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6939	7044	
==>_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desc <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10922	11032	
==>ed, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10922	11032	
==>ed, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10922	11032	
==>ed, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16499	16600	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21216	21317	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16499	16600	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21216	21317	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16499	16600	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21216	21317	
==>:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9602	9741	
==>scription = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $description,
              p <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	190	319	
==>scription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description,
            p <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	190	319	
==>scription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description,
            p <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6865	6960	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5995	6090	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2649	2744	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2649	2744	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6865	6960	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5995	6090	
==>infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9524	9657	
==>e {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9524	9657	
==>e {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9524	9657	
==>e {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33235	33360	
==>=> $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # metho <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6214	6327	
==>1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ / <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7212	7325	
==>1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ / <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4558	4663	
==>.')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #" <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4558	4663	
==>.')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #" <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4558	4663	
==>.')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4419	4575	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6931	7087	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4419	4575	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6931	7087	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4419	4575	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6931	7087	
==>lass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	419	513	
==>m" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"prett <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	380	474	
==>m" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"prett <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	380	474	
==>m" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"prett <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1609	1731	
==>ument.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1609	1731	
==>ument.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1609	1731	
==>ument.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3942	4046	
==>->invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if de <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2602	2703	
==>$jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2602	2703	
==>$jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2602	2703	
==>$jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if <==
9	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	875	967	
==>pected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? <==
9	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	875	967	
==>pected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9182	9291	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6729	6838	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9182	9291	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6729	6838	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9182	9291	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6729	6838	
==>$order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_mak <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	22	120	
==><loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	22	120	
==><loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (p <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	22	120	
==><loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4938	5083	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5899	6044	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7027	7172	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4938	5083	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5899	6044	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7027	7172	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4938	5083	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5899	6044	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7027	7172	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1973	2093	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1085	1205	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1652	1772	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1973	2093	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1085	1205	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1652	1772	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1973	2093	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1085	1205	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1652	1772	
==>ich are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9107	9214	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6654	6761	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9107	9214	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6654	6761	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9107	9214	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6654	6761	
==>:ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12025	12116	
==>E

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12025	12116	
==>E

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12025	12116	
==>E

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<g <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8431	8667	
==>r my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETU <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8431	8667	
==>r my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETU <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8431	8667	
==>r my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETU <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	108	211	
==>JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Para <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	113	215	
==>JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Para <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	111	213	
==>JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Para <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	42	142	
==>t PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	42	142	
==>t PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	42	142	
==>t PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8136	8258	
==>/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8136	8258	
==>/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8136	8258	
==>/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc. <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4719	4835	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7368	7484	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4937	5050	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11386	11499	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4937	5050	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11386	11499	
==>tring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13490	13594	
==>OPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTH <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13490	13594	
==>OPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTH <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13490	13594	
==>OPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTH <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7714	7814	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6844	6944	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3430	3530	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3430	3530	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7714	7814	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6844	6944	
==>);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mult <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3549	3665	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8833	8949	
==>idn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3801	3914	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10219	10332	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8523	8636	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3801	3914	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10219	10332	
==>idn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6049	6153	
==>ly_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do i <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5856	5956	
==>ly_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14231	14403	
==>}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14231	14403	
==>}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14231	14403	
==>}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$se <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	35894	35988	
==>hat all common attribute names
and corresponding common tuple values are aligned and merged.  T <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	37637	37731	
==>hat all common attribute names and corresponding common tuple values
are aligned and merged.  T <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40444	40538	
==>hat all common attribute names
and corresponding common tuple values are aligned and merged.  T <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42186	42280	
==>hat all common attribute names and corresponding common tuple values
are aligned and merged.  T <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40058	40152	
==>hat all common attribute names
and corresponding common tuple values are aligned and merged.  T <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41836	41930	
==>hat all common attribute names and corresponding common tuple values
are aligned and merged.  T <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12074	12201	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3696	3823	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12074	12201	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3696	3823	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12074	12201	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3696	3823	
==>'$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6800	6925	
==>'$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6800	6925	
==>'$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6800	6925	
==>'$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1207	1335	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1492	1620	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1851	1979	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1207	1335	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1492	1620	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1851	1979	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1207	1335	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1492	1620	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1851	1979	
==>') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	15207	15313	
==>on work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18684	18790	
==>on work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( hea <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5862	5960	
==>Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5862	5960	
==>Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7386	7484	
==>Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6852	6943	
==>rser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4204	4295	
==>rser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6852	6943	
==>rser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4204	4295	
==>rser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17649	17769	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8230	8350	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14869	14989	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17649	17769	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8230	8350	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14869	14989	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17649	17769	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8230	8350	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14869	14989	
==>(" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6206	6305	
==>b jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_print <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6206	6305	
==>b jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_print <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6206	6305	
==>b jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_print <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19502	19600	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16734	16832	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19502	19600	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16734	16832	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19502	19600	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16734	16832	
==>y store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17641	17754	
==>I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subclass $P0, grammar 
  e <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25400	25496	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	838	934	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24164	24260	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1963	2059	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25400	25496	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	838	934	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24164	24260	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1963	2059	
==>u can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L< <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1079	1185	
==>d ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })') <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1079	1185	
==>d ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })') <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1079	1185	
==>d ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })') <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1747	1850	
==>STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function ( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1747	1850	
==>STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function ( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1747	1850	
==>STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function ( <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5335	5431	
==>th an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5335	5431	
==>th an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6859	6955	
==>th an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23119	23318	
==>$tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23119	23318	
==>$tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23119	23318	
==>$tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4965	5092	
==>lems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4965	5092	
==>lems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4965	5092	
==>lems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	547	643	
==>packed in an Object with
# the property .FETCH() holding the original value. This is necessary to <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	547	643	
==>packed in an Object with
# the property .FETCH() holding the original value. This is necessary to <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	547	643	
==>packed in an Object with
# the property .FETCH() holding the original value. This is necessary to <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15308	15430	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20041	20163	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15308	15430	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20041	20163	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15308	15430	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20041	20163	
==>uring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1084	1176	
==>d $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @AR <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1084	1176	
==>d $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @AR <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1084	1176	
==>d $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @AR <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11509	11715	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9062	9268	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11509	11715	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9062	9268	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11509	11715	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9062	9268	
==>ed and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2153	2252	
==>tive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2153	2252	
==>tive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2153	2252	
==>tive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2242	2369	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1354	1481	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1918	2045	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2242	2369	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1354	1481	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1918	2045	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2242	2369	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1354	1481	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1918	2045	
==>y way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spo <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7631	7762	
==>y $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11972	12103	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2431	2558	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9203	9330	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7373	7500	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2431	2558	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9203	9330	
==>y $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug <==
9	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5033	5139	
==>urrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $. <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5033	5139	
==>urrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15883	15996	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20600	20713	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15883	15996	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20600	20713	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15883	15996	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20600	20713	
==>ur own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16503	16614	
==>] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16503	16614	
==>] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16503	16614	
==>] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3994	4083	
==>----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4017	4106	
==>-----------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3994	4083	
==>----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4017	4106	
==>-----------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3994	4083	
==>----------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4017	4106	
==>-----------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4044	4129	
==>BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4044	4129	
==>BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4044	4129	
==>BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5623	5740	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8593	8710	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5623	5740	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8593	8710	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5623	5740	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8593	8710	
==>b. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11755	11852	
==>ans that all classes
and roles can be polymorphic to one another. 

Because instances of class all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11755	11852	
==>ans that all classes
and roles can be polymorphic to one another. 

Because instances of class all <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11755	11852	
==>ans that all classes
and roles can be polymorphic to one another. 

Because instances of class all <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2200	2319	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4527	4646	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2200	2319	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4527	4646	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2200	2319	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4527	4646	
==>tribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9914	10027	
==>r(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9914	10027	
==>r(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9914	10027	
==>r(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unle <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1095	1217	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1335	1457	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1095	1217	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1335	1457	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1095	1217	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1335	1457	
==>$) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2394	2515	
==>$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2394	2515	
==>$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2394	2515	
==>$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1724	1830	
==>S::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1724	1830	
==>S::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1724	1830	
==>S::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16609	16714	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13814	13919	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16609	16714	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13814	13919	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16609	16714	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13814	13919	
==>er = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->g <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20684	20854	
==>m";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20684	20854	
==>m";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20684	20854	
==>m";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	382	496	
==>s 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = im <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	588	702	
==>s 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = im <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21919	22012	
==>ional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. No <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20800	20893	
==>ional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. No <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21919	22012	
==>ional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. No <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20800	20893	
==>ional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. No <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5368	5506	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6329	6467	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5368	5506	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6329	6467	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5368	5506	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6329	6467	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7544	7681	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7544	7681	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7544	7681	
==>trs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17543	17665	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4478	4600	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8124	8246	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17543	17665	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4478	4600	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8124	8246	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17543	17665	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4478	4600	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8124	8246	
==>hod(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19767	19889	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16906	17028	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19767	19889	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16906	17028	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19767	19889	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16906	17028	
==>thod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).* <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8051	8147	
==>{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8051	8147	
==>{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default con <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8051	8147	
==>{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default con <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6664	6799	
==>sh slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6664	6799	
==>sh slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6664	6799	
==>sh slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4282	4391	
==>g    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4282	4391	
==>g    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4282	4391	
==>g    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6504	6590	
==>);
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Modu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6504	6590	
==>);
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Modu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6504	6590	
==>);
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Modu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8191	8318	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5750	5877	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8191	8318	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5750	5877	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8191	8318	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5750	5877	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1879	2006	
==>d;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10524	10634	
==>od scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10524	10634	
==>od scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1337	1494	
==>t.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docum <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1337	1494	
==>t.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docum <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1337	1494	
==>t.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docum <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5269	5395	
==>aram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $c <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5269	5395	
==>aram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $c <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5269	5395	
==>aram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2444	2555	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2444	2555	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2444	2555	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	256	370	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	469	583	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	896	1010	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	256	370	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	469	583	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	896	1010	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	256	370	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	469	583	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	896	1010	
==>($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1572	1685	
==>yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess pa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1572	1685	
==>yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess pa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1572	1685	
==>yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess pa <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3452	3546	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6466	6560	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8534	8628	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3452	3546	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6466	6560	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8534	8628	
==>rray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4865	5025	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5826	5986	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6954	7114	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4865	5025	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5826	5986	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6954	7114	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4865	5025	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5826	5986	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6954	7114	
==>},
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'dec <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8215	8334	
==>JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8215	8334	
==>JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8215	8334	
==>JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < ar <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1961	2057	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4257	4353	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1924	2020	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1961	2057	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4257	4353	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1924	2020	
==>|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4355	4477	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7004	7126	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4584	4703	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11033	11152	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4584	4703	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11033	11152	
==>h ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} ) <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4913	5012	
==>es.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4913	5012	
==>es.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7110	7209	
==>es.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13037	13148	
==>xa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13037	13148	
==>xa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13037	13148	
==>xa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5393	5500	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6661	6768	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10923	11030	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5393	5500	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6649	6756	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11073	11180	
==>XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3483	3616	
==>, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8768	8900	
==>, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3738	3867	
==>, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10156	10285	
==>, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3738	3867	
==>, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10156	10285	
==>, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8461	8589	
==>, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{st <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28778	28885	
==>L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyAp <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28778	28885	
==>L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyAp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20181	20317	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17320	17456	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20181	20317	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17320	17456	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20181	20317	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17320	17456	
==>lue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2422	2554	
==>6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mod <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2422	2554	
==>6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mod <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2422	2554	
==>6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mod <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7758	7886	
==>'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argum <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7758	7886	
==>'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argum <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7758	7886	
==>'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argum <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16247	16365	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13458	13576	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16247	16365	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13458	13576	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16247	16365	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13458	13576	
==>my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6846	6943	
==>--------------------------------------------------------------
## BOOTSTRAPPING ROLES
## --------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6869	6966	
==>---------------------------------------
## BOOTSTRAPPING ROLES
## -------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6892	6989	
==>----------------
## BOOTSTRAPPING ROLES
## ------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6846	6943	
==>--------------------------------------------------------------
## BOOTSTRAPPING ROLES
## --------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6869	6966	
==>---------------------------------------
## BOOTSTRAPPING ROLES
## -------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6892	6989	
==>----------------
## BOOTSTRAPPING ROLES
## ------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6846	6943	
==>--------------------------------------------------------------
## BOOTSTRAPPING ROLES
## --------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6869	6966	
==>---------------------------------------
## BOOTSTRAPPING ROLES
## -------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6892	6989	
==>----------------
## BOOTSTRAPPING ROLES
## ------------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4964	5085	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5925	6046	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7053	7174	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4964	5085	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5925	6046	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7053	7174	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4964	5085	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5925	6046	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7053	7174	
==>:SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed') <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6802	6925	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7563	7686	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8433	8556	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10279	10402	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11040	11163	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11910	12033	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9389	9512	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10195	10318	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11110	11233	
==>others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11319	11460	
==>spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11319	11460	
==>spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11319	11460	
==>spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7634	7759	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10557	10682	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7634	7759	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10557	10682	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7634	7759	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10557	10682	
==>6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11818	11976	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3329	3487	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11818	11976	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3329	3487	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11818	11976	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3329	3487	
==>object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          bac <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8261	8409	
==>object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8261	8409	
==>object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        bac <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8261	8409	
==>object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        bac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15041	15184	
==>sses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15041	15184	
==>sses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15041	15184	
==>sses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4126	4231	
==>alue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4126	4231	
==>alue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0] <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4126	4231	
==>alue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2443	2542	
==>'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2443	2542	
==>'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2443	2542	
==>'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1919	2038	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1031	1150	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1598	1717	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1919	2038	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1031	1150	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1598	1717	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1919	2038	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1031	1150	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1598	1717	
==>default BUILD method should accept
        # params which are not included in the 
        # attributes. It will do noth <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5072	5212	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7721	7861	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5277	5411	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11726	11860	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5277	5411	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11726	11860	
==>ift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1111	1216	
==>een traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_ <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1111	1216	
==>een traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_ <==
9	/Users/nnunley/pugs/util/gen_prelude.pl	845	949	
==>ion, this may be bogus.
sub touch {
    # XXX: *ugly* hack! ghc doesn't spot that the include file was ch <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38950	39073	
==>pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38950	39073	
==>pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $r <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38950	39073	
==>pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13523	13628	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10807	10912	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13523	13628	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10807	10912	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13523	13628	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10807	10912	
==>%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3259	3393	
==>lf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3259	3393	
==>lf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } els <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3259	3393	
==>lf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } els <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	679	796	
==>y $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	679	796	
==>y $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	679	796	
==>y $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* in <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20033	20124	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6 <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20033	20124	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6 <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20033	20124	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	779	887	
==>$match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1 <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14566	14665	
==>elf->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8768	8867	
==>elf->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27342	27439	
==>ect does not permit changes to its attributes; they
must all be set when the object is constructed <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34868	34965	
==>ect does not permit changes to its attributes;
they must all be set when the object is constructed <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27342	27439	
==>ect does not permit changes to its attributes; they
must all be set when the object is constructed <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34868	34965	
==>ect does not permit changes to its attributes;
they must all be set when the object is constructed <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10393	10487	
==>tions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10393	10487	
==>tions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4523	4634	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2735	2846	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4523	4634	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2735	2846	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4523	4634	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2735	2846	
==>are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	31559	31653	
==>ses are
where C<$predicate> simply returns True or False regardless of its
argument, in which c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36109	36203	
==>ses are
where C<$predicate> simply returns True or False regardless of its
argument, in which c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35336	35430	
==>ses are
where C<$predicate> simply returns True or False regardless of its
argument, in which c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1095	1194	
==>h'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %m <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1095	1194	
==>h'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %m <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1095	1194	
==>h'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %m <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6624	6719	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5754	5849	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2408	2503	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2408	2503	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6624	6719	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5754	5849	
==>t($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6755	6873	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7516	7634	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8386	8504	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10232	10350	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10993	11111	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11863	11981	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9342	9460	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10148	10266	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11063	11181	
==>The heading of at least one given relation in @others does"
                ~ " not match the heading of the invocant r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15792	15898	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13042	13148	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15792	15898	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13042	13148	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15792	15898	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13042	13148	
==>fined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5634	5730	
==>ix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5634	5730	
==>ix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5634	5730	
==>ix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &in <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4597	4700	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4844	4947	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4597	4700	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4844	4947	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4088	4190	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4343	4445	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4088	4190	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4343	4445	
==>ce @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4, <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2309	2404	
==>y scalars containing control characters and Unicode.
# Trying to avoid setting $_, or relying on <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10739	10863	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15280	15404	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10739	10863	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15280	15404	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10739	10863	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15280	15404	
==>method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2976	3081	
==>gic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2976	3081	
==>gic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2976	3081	
==>gic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8713	8867	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11686	11840	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8713	8867	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11686	11840	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8713	8867	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11686	11840	
==>e use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6215	6306	
==>s::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internal <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6215	6306	
==>s::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internal <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6215	6306	
==>s::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internal <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20559	20684	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17698	17823	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20559	20684	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17698	17823	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20559	20684	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17698	17823	
==>e) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5157	5270	
==>e) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5157	5270	
==>e) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5157	5270	
==>e) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1843	1948	
==>te $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1843	1948	
==>te $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1843	1948	
==>te $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bi <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	594	692	
==>S

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2132	2230	
==>(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink( <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	594	692	
==>S

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2132	2230	
==>(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2132	2230	
==>(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1150	1248	
==>S

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7190	7312	
==>unction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7190	7312	
==>unction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7190	7312	
==>unction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11368	11488	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2880	3000	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11368	11488	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2880	3000	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11368	11488	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2880	3000	
==>JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2184	2339	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1296	1451	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1860	2015	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2184	2339	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1296	1451	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1860	2015	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2184	2339	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1296	1451	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1860	2015	
==>ams{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # it <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2711	2812	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3291	3392	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2711	2812	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3291	3392	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2711	2812	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3291	3392	
==>res = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4353	4446	
==>ss($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses th <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4353	4446	
==>ss($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses th <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4353	4446	
==>ss($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	636	751	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	724	839	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	636	751	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	724	839	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	636	751	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	724	839	
==>unjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14211	14300	
==>ute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14211	14300	
==>ute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14211	14300	
==>ute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1930	2048	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1042	1160	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1609	1727	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1930	2048	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1042	1160	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1609	1727	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1930	2048	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1042	1160	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1609	1727	
==>LD method should accept
        # params which are not included in the 
        # attributes. It will do nothing with t <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24425	24523	
==>om its member classes, usually invoking C<new()> on
the appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20467	20565	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22057	22155	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9330	9428	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24425	24523	
==>om its member classes, usually invoking C<new()> on
the appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25019	25117	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23589	23687	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22057	22155	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9330	9428	
==>om its member classes, usually invoking C<new()> on the
appropriate class name, and then invoking m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2181	2277	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2586	2682	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2181	2277	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2586	2682	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2181	2277	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2586	2682	
==>kup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(funct <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10241	10333	
==>k yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }" <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10241	10333	
==>k yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }" <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10241	10333	
==>k yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9817	9930	
==>d_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9817	9930	
==>d_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9817	9930	
==>d_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3803	3914	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6739	6850	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3803	3914	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6739	6850	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3803	3914	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6739	6850	
==>$method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21620	21765	
==>f Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21620	21765	
==>f Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21620	21765	
==>f Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1649	1768	
==>= @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an impl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1649	1768	
==>= @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an impl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1649	1768	
==>= @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an impl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2126	2230	
==>s');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2126	2230	
==>s');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2126	2230	
==>s');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5724	5840	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3844	3960	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5724	5840	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3844	3960	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5724	5840	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3844	3960	
==>f the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowe <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20509	20605	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25061	25157	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their c <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23631	23727	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their c <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4007	4123	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4945	5061	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2241	2357	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2487	2603	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3022	3138	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3268	3384	
==>rm1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1910	2019	
==>thod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1910	2019	
==>thod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1910	2019	
==>thod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8705	8860	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11678	11833	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8705	8860	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11678	11833	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8705	8860	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11678	11833	
==>thout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3355	3489	
==>lass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3355	3489	
==>lass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3355	3489	
==>lass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4517	4656	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7029	7168	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4517	4656	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7029	7168	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4517	4656	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7029	7168	
==>private method in here...
                    # there is no real distinction between the
                    # private class method or the p <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14042	14160	
==>ple: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $catego <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10215	10333	
==>ple: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $catego <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11051	11169	
==>ple: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $catego <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11801	11948	
==>r relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15278	15425	
==>r relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    } <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14613	14760	
==>r relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9523	9640	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7070	7187	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9523	9640	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7070	7187	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9523	9640	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7070	7187	
==>}    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    els <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8736	8865	
==>, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder: <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	904	1021	
==>, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	904	1021	
==>, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder: <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3105	3220	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11028	11143	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6230	6345	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3105	3220	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11028	11143	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6230	6345	
==>)
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6940	7048	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9910	10018	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6940	7048	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9910	10018	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6940	7048	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9910	10018	
==>onfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrappe <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	24982	25075	
==>exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whet <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29534	29627	
==>exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whet <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28446	28539	
==>exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whet <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3159	3293	
==>ge( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx-> <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3159	3293	
==>ge( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx-> <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3159	3293	
==>ge( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19764	19886	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16903	17025	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19764	19886	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16903	17025	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19764	19886	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16903	17025	
==>_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7011	7127	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9981	10097	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7011	7127	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9981	10097	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7011	7127	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9981	10097	
==>n the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CL <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2469	2574	
==>2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2469	2574	
==>2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2469	2574	
==>2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$sel <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4649	4754	
==>1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4896	5001	
==>1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4649	4754	
==>1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4896	5001	
==>1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4395	4499	
==>1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4395	4499	
==>1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[ <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4140	4243	
==>1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[ <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4140	4243	
==>1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33978	34071	
==>der, and it works like Perl's
standard C<map> operator. It returns a new Relation::Example who <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7417	7572	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4976	5131	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7417	7572	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4976	5131	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7417	7572	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4976	5131	
==>eq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29144	29256	
==>Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{ite <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29144	29256	
==>Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{ite <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29144	29256	
==>Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{ite <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7438	7590	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4997	5149	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7438	7590	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4997	5149	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7438	7590	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4997	5149	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1133	1285	
==>ad of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyth <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2572	2667	
==>eturn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?S <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2572	2667	
==>eturn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1414	1600	
==>ring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o) <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1414	1600	
==>ring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o) <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1414	1600	
==>ring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	96	188	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	320	412	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	96	188	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	320	412	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	96	188	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	320	412	
==>sa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	437	541	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	657	761	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	437	541	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	657	761	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	437	541	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	657	761	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	812	914	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	812	914	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	812	914	
==>ing(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3437	3540	
==>::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i- <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3437	3540	
==>::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i- <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3437	3540	
==>::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i- <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36221	36317	
==>,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	37974	38070	
==>, then where each member of a
tuple pair has attribute names in common, eliminating pairs where t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40770	40866	
==>,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42523	42619	
==>, then where each member of a
tuple pair has attribute names in common, eliminating pairs where t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40384	40480	
==>,
then where each member of a tuple pair has attribute names in common,
eliminating pairs where t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42173	42269	
==>, then where each member of a
tuple pair has attribute names in common, eliminating pairs where t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5697	5812	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8667	8782	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5697	5812	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8667	8782	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5697	5812	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8667	8782	
==>ethod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17827	17919	
==>..};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17827	17919	
==>..};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17827	17919	
==>..};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4922	5049	
==>rovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # C <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4922	5049	
==>rovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # C <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4922	5049	
==>rovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # C <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3932	4026	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6911	7005	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8981	9075	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3932	4026	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6911	7005	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8981	9075	
==>by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mod <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11469	11584	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2981	3096	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11469	11584	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2981	3096	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11469	11584	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2981	3096	
==>2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	280	386	
==>2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	280	386	
==>2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new(" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	280	386	
==>2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new(" <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13631	13757	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13631	13757	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13631	13757	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5877	6003	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4377	4503	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2516	2642	
==>ize_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4633	4738	
==>}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4633	4738	
==>}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4633	4738	
==>}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8083	8204	
==>confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8083	8204	
==>confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8083	8204	
==>confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1618	1731	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3181	3294	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1618	1731	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3181	3294	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1618	1731	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3181	3294	
==>::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12037	12165	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3548	3676	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12037	12165	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3548	3676	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12037	12165	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3548	3676	
==>ORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8468	8590	
==>ORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8468	8590	
==>ORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8468	8590	
==>ORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12078	12208	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3700	3830	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12078	12208	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3700	3830	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12078	12208	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3700	3830	
==>ell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6804	6932	
==>ell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6804	6932	
==>ell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6804	6932	
==>ell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1477	1594	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($k <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1477	1594	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($k <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1477	1594	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($k <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3685	3797	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6621	6733	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3685	3797	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6621	6733	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3685	3797	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6621	6733	
==>$?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7090	7225	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4649	4784	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7090	7225	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4649	4784	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7090	7225	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4649	4784	
==>y @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17372	17467	
==>xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17372	17467	
==>xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17372	17467	
==>xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3	113	
==>arameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbo <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3948	4058	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3	113	
==>arameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbo <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3	113	
==>arameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbo <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6597	6707	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4186	4293	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10635	10742	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4186	4293	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10635	10742	
==>eates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7636	7766	
==>de = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11977	12107	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2436	2562	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9208	9334	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7378	7504	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2436	2562	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9208	9334	
==>de = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{a <==
9	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4273	4367	
==>pher module's documentation for 
details.  The C<mode> value indicates the operation to be perf <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4273	4367	
==>pher module's documentation for 
details.  The C<mode> value indicates the operation to be perf <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5886	6024	
==>my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s . <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5886	6024	
==>my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s . <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5886	6024	
==>my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s . <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4323	4442	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6972	7091	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4552	4668	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11001	11117	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4552	4668	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11001	11117	
==>Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1495	1662	
==>l_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0") <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1495	1662	
==>l_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0") <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1495	1662	
==>l_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0") <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24684	24793	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26873	26982	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24684	24793	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26873	26982	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24684	24793	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26873	26982	
==>rray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS " <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4847	4985	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5808	5946	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4847	4985	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5808	5946	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4847	4985	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5808	5946	
==>ub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.un <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4686	4784	
==>r named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pa <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4686	4784	
==>r named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pa <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5276	5374	
==>r named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pa <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2209	2381	
==>ys
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2209	2381	
==>ys
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7994	8131	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5553	5690	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7994	8131	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5553	5690	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7994	8131	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5553	5690	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1682	1819	
==>thead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inco <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11815	11959	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3326	3470	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11815	11959	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3326	3470	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11815	11959	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3326	3470	
==>ay object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8258	8394	
==>ay object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8258	8394	
==>ay object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8258	8394	
==>ay object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.B <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2252	2474	
==>:Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2312	2534	
==>:Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1020	1186	
==>:Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1452	1618	
==>:Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1020	1186	
==>:Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1452	1618	
==>:Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $p <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	12107	12267	
==>ile} = _dubious_return(\%test, \%tot, 
                                                       $estatus, $wstatus);
                $failedtests{$tfile}{name} = $ <==
9	/Users/nnunley/pugs/blib6/lib/Date.pm	2542	2638	
==>:= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 <==
9	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2542	2638	
==>:= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2099	2215	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2504	2620	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2099	2215	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2504	2620	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2099	2215	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2504	2620	
==>cope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var back <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15714	15823	
==>ttribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15714	15823	
==>ttribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15714	15823	
==>ttribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6807	6941	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7568	7702	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8438	8572	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10284	10418	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11045	11179	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11915	12049	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9394	9528	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10200	10334	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11115	11249	
==>s does"
                ~ " not match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24745	24888	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26934	27077	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24745	24888	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26934	27077	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24745	24888	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26934	27077	
==>_('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 u <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21051	21151	
==>t only the last of these fields will be present in the header
after the call.  All values ought to be <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21051	21151	
==>t only the last of these fields will be present in the header
after the call.  All values ought to be <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16382	16475	
==>elationalExpression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <Equality <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18353	18469	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8623	8739	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15591	15707	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18353	18469	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8623	8739	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15591	15707	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18353	18469	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8623	8739	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15591	15707	
==>is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        ret <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2250	2366	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11118	11234	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12077	12193	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2443	2559	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11397	11513	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12356	12472	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5105	5204	
==>IL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5105	5204	
==>IL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5105	5204	
==>IL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_man <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2520	2639	
==>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2520	2639	
==>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2520	2639	
==>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13469	13574	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10753	10858	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13469	13574	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10753	10858	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13469	13574	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10753	10858	
==>s') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1061	1160	
==>sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1061	1160	
==>sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1061	1160	
==>sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12520	12610	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10071	10161	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12520	12610	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10071	10161	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12520	12610	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10071	10161	
==>_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25876	26034	
==>r1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26155	26313	
==>r1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13807	13923	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14181	14297	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13807	13923	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14181	14297	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13807	13923	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14181	14297	
==>estroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a. <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2498	2608	
==>ons
$config{'meta_ext'}         = [ '.info' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0]->met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14610	14745	
==>p @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14610	14745	
==>p @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            un <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14610	14745	
==>p @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            un <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	401	499	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	394	492	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	401	499	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	394	492	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	401	499	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	394	492	
==>eturn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8429	8548	
==>ure - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it sho <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	587	706	
==>ure - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it sho <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	857	974	
==>ure - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sho <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8146	8263	
==>ure - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sho <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	561	678	
==>ure - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sho <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	857	974	
==>ure - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4208	4324	
==>red ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4208	4324	
==>red ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4208	4324	
==>red ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5910	6033	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4030	4153	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5910	6033	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4030	4153	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5910	6033	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4030	4153	
==>classes; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it .. <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	255	354	
==>er_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	255	354	
==>er_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	25043	25141	
==> γ", "pretty print a -> b -> c");
}
{
	my $type = type::operator::pair->new(
		type::variable::f <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3891	4049	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6827	6985	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3891	4049	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6827	6985	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3891	4049	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6827	6985	
==>for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1559	1667	
==>ry->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1559	1667	
==>ry->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1559	1667	
==>ry->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9702	9892	
==>ription => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          re <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	282	460	
==>ription => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        re <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	282	460	
==>ription => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5237	5382	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8207	8352	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5237	5382	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8207	8352	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5237	5382	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8207	8352	
==>thod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stran <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19470	19581	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16702	16813	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19470	19581	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16702	16813	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19470	19581	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16702	16813	
==>|| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1686	1788	
==>s -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1891	1993	
==>s -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1954	2056	
==>s -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14572	14699	
==>boxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14572	14699	
==>boxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14572	14699	
==>boxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5486	5601	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8456	8571	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5486	5601	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8456	8571	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5486	5601	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8456	8571	
==>other sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # ret <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24436	24543	
==>er classes, usually invoking C<new()> on
the appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20478	20585	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22068	22175	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9341	9448	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24436	24543	
==>er classes, usually invoking C<new()> on
the appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25030	25137	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23600	23707	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22068	22175	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9341	9448	
==>er classes, usually invoking C<new()> on the
appropriate class name, and then invoking methods on those obje <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5336	5452	
==>!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5336	5452	
==>!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	513	623	
==>Scalar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $cla <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16682	16791	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13887	13996	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16682	16791	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13887	13996	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16682	16791	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13887	13996	
==>>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11362	11483	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2874	2995	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11362	11483	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2874	2995	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11362	11483	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2874	2995	
==>w PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	433	529	
==>dded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closur <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	433	529	
==>dded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closur <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	433	529	
==>dded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9282	9494	
==>= $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9282	9494	
==>= $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9282	9494	
==>= $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3496	3636	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6024	6164	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3496	3636	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6024	6164	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3496	3636	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6024	6164	
==>ethods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $ <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3804	3984	
==>.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    r <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3804	3984	
==>.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3522	3653	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8806	8937	
==>$_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3776	3902	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10194	10320	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8498	8624	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3776	3902	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10194	10320	
==>$_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13190	13284	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4360	4454	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8816	8910	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13190	13284	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4360	4454	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8816	8910	
==>e-sake
representative for this whole file, which can be referenced as a unit by
documentation o <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	273	366	
==>eta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	273	366	
==>eta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	273	366	
==>eta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3913	4061	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6849	6997	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3913	4061	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6849	6997	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3913	4061	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6849	6997	
==>turn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1437	1557	
==>($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1437	1557	
==>($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_clas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1437	1557	
==>($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_clas <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12903	13060	
==>RSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12903	13060	
==>RSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12903	13060	
==>RSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2713	2814	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3293	3394	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2713	2814	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3293	3394	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2713	2814	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3293	3394	
==>s = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_rest <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1575	1676	
==>ation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3383	3480	
==>ch the runtime provides builtins for with the replacement nodes

=item *

Ensuring that there is n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5929	6024	
==>myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5929	6024	
==>myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5929	6024	
==>myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4910	5003	
==>ation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	597	690	
==>ation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5050	5143	
==>ation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	597	690	
==>ation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4354	4536	
==>{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{ti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4354	4536	
==>{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{ti <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4354	4536	
==>{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{ti <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	62	152	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	286	376	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	62	152	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	286	376	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	62	152	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	286	376	
==>ects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3190	3293	
==>e, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3190	3293	
==>e, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3190	3293	
==>e, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ar <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7750	7843	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6880	6973	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3466	3559	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3466	3559	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7750	7843	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6880	6973	
==>mmutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, S <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3220	3408	
==>~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\. <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3220	3408	
==>~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\. <==
9	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1889	1996	
==>= "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdr <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3682	3772	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6701	6791	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8770	8860	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3682	3772	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6701	6791	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8770	8860	
==>ile::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <co <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10963	11105	
==>escription => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ' <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1449	1579	
==>escription => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ' <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1449	1579	
==>escription => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	177	292	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	177	292	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1765	1880	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1970	2085	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2033	2148	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	177	292	
==>ss (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10880	10997	
==>readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and proces <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10880	10997	
==>readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and proces <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13934	14044	
==>trol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pac <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13934	14044	
==>trol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pac <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13934	14044	
==>trol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pac <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	658	758	
==>iler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3729	3829	
==>iler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	658	758	
==>iler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3729	3829	
==>iler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8612	8807	
==>s -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method diff <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12089	12284	
==>s -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method diff <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11298	11493	
==>s -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method diff <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15022	15165	
==>1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15022	15165	
==>1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15022	15165	
==>1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19721	19863	
==>1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19721	19863	
==>1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19721	19863	
==>1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like th <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12161	12303	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3783	3925	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12161	12303	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3783	3925	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12161	12303	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3783	3925	
==>) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6886	7026	
==>) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6886	7026	
==>) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6886	7026	
==>) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Per <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	269	407	
==>Available
            $Builddir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $P <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3473	3581	
==>> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $s <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3473	3581	
==>> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $s <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5405	5513	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6673	6781	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10935	11043	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5405	5513	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6661	6769	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11085	11193	
==>- source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.* <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4056	4169	
==>ed}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\? <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4056	4169	
==>ed}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\? <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4056	4169	
==>ed}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\? <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9402	9507	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6949	7054	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9402	9507	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6949	7054	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9402	9507	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6949	7054	
==>ispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dis <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8929	9079	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11902	12052	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8929	9079	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11902	12052	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8929	9079	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11902	12052	
==>e just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6 <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14972	15085	
==>arget, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	12107	12199	
==><$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12107	12199	
==><$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14435	14540	
==>o we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the s <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14435	14540	
==>o we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the s <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13476	13577	
==>o we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the s <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13476	13577	
==>o we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the s <==
9	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3089	3186	
==>s safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3089	3186	
==>s safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19505	19596	
==>$xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19505	19596	
==>$xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19505	19596	
==>$xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9860	9983	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10841	10964	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12312	12435	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13337	13460	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14318	14441	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15789	15912	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12609	12732	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13617	13740	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15142	15265	
==>y.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9000	9146	
==>n.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok retur <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1148	1274	
==>n.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok retur <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1148	1274	
==>n.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6826	6926	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6826	6926	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6826	6926	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	488	586	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	488	586	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	488	586	
==>w) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5869	5977	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3989	4097	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5869	5977	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3989	4097	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5869	5977	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3989	4097	
==>_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6501	6597	
==>back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Ga <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6501	6597	
==>back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Ga <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6501	6597	
==>back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Ga <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10174	10315	
==>param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} ca <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10174	10315	
==>param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} ca <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10174	10315	
==>param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} ca <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21680	21776	
==>e>

The original line received from the server (unmodified).

=item C<server>

The server the lin <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20561	20657	
==>e>

The original line received from the server (unmodified).

=item C<server>

The server the lin <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21680	21776	
==>e>

The original line received from the server (unmodified).

=item C<server>

The server the lin <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20561	20657	
==>e>

The original line received from the server (unmodified).

=item C<server>

The server the lin <==
9	/Users/nnunley/pugs/blib6/lib/CGI.pm	11830	11923	
==>zi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11830	11923	
==>zi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11960	12083	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3471	3594	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11960	12083	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3471	3594	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11960	12083	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3471	3594	
==>ox;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BI <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8395	8512	
==>ox;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8395	8512	
==>ox;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8395	8512	
==>ox;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BI <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	72	187	
==>keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	72	187	
==>keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	72	187	
==>keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1030	1136	
==>what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    re <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1030	1136	
==>what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    re <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1030	1136	
==>what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1096	1200	
==>s: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently print <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1096	1200	
==>s: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently print <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1096	1200	
==>s: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently print <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3883	4060	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6410	6587	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3883	4060	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6410	6587	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3883	4060	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6410	6587	
==>method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subme <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	574	682	
==>ength\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <ti <==
9	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	574	682	
==>ength\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <ti <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	6007	6100	
==>syn_index = catfile($output_dir,"Synopsis", "index.html");
    open( $fh, ">",  $syn_index) or <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10184	10314	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7735	7865	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10184	10314	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7735	7865	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10184	10314	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7735	7865	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]-> <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	25675	25769	
==>s
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30227	30321	
==>s
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29193	29287	
==>s
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16010	16145	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20727	20862	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16010	16145	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20727	20862	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16010	16145	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20727	20862	
==>ass::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wra <==
9	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5888	6012	
==>tart_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object repre <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5888	6012	
==>tart_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object repre <==
9	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2099	2201	
==>rrent_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {ops=>[undef],var=>[], <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17509	17609	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4444	4544	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8090	8190	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17509	17609	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4444	4544	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8090	8190	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17509	17609	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4444	4544	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8090	8190	
==>->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $labe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25390	25572	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27585	27767	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25390	25572	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27585	27767	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25390	25572	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27585	27767	
==>last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # wa <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1411	1510	
==>my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1616	1715	
==>my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1677	1776	
==>my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $m <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11086	11209	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12557	12680	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14563	14686	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16034	16157	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13871	13994	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15396	15519	
==>ing.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2368	2484	
==>pot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2368	2484	
==>pot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2368	2484	
==>pot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_a <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6397	6602	
==>( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    } <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6397	6602	
==>( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    } <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7415	7524	
==>t "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11750	11859	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2231	2339	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9003	9111	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7165	7273	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2231	2339	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9003	9111	
==>t "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14911	15040	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14911	15040	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14911	15040	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19610	19738	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19610	19738	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19610	19738	
==>LOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19364	19456	
==>x1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19364	19456	
==>x1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19364	19456	
==>x1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	465	596	
==>he key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	465	596	
==>he key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	465	596	
==>he key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1493	1613	
==>ument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1493	1613	
==>ument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1493	1613	
==>ument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3251	3370	
==>nstanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3251	3370	
==>nstanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3251	3370	
==>nstanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14683	14840	
==>es->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14683	14840	
==>es->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $a <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14683	14840	
==>es->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5394	5500	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3514	3620	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5394	5500	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3514	3620	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5394	5500	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3514	3620	
==>y ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercla <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7785	7918	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5344	5477	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7785	7918	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5344	5477	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7785	7918	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5344	5477	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1473	1606	
==>re is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24560	24652	
==>r attributes are private, so you must use accessor methods.
Locale::KeyedText does not declar <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24560	24652	
==>r attributes are private, so you must use accessor methods.
Locale::KeyedText does not declar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2191	2347	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1303	1459	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1867	2023	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2191	2347	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1303	1459	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1867	2023	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2191	2347	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1303	1459	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1867	2023	
==>y}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10132	10293	
==>ng( $n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return  " " . $n->{op1}{stm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11068	11179	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11564	11675	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11743	11854	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11068	11179	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11564	11675	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11743	11854	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11068	11179	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11564	11675	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11743	11854	
==>( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	92	179	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	437	524	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	73	160	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	92	179	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	437	524	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	73	160	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	92	179	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	437	524	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	73	160	
==>use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::B <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12531	12672	
==>tus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2901	3036	
==>tus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2901	3036	
==>tus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11532	11665	
==>tus returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11973	12105	
==>tus returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1972	2099	
==>tus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1972	2099	
==>tus returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2381	2507	
==>tus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2381	2507	
==>tus returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1917	2021	
==>sh @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "ST <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1917	2021	
==>sh @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "ST <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1917	2021	
==>sh @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "ST <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36215	36309	
==>lation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	37968	38062	
==>lation, then where each member of a
tuple pair has attribute names in common, eliminating pairs <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40764	40858	
==>lation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42517	42611	
==>lation, then where each member of a
tuple pair has attribute names in common, eliminating pairs <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40378	40472	
==>lation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42167	42261	
==>lation, then where each member of a
tuple pair has attribute names in common, eliminating pairs <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3610	3751	
==>$_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3610	3751	
==>$_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3610	3751	
==>$_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4485	4576	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6434	6525	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4485	4576	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6434	6525	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4485	4576	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6434	6525	
==>PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	2439	2624	
==>turns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

meth <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5916	6101	
==>turns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

meth <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4846	5031	
==>turns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

meth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11172	11295	
==>:Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::S <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11172	11295	
==>:Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::S <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11172	11295	
==>:Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::S <==
9	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3791	3899	
==>asciitilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \ <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1252	1349	
==>'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Per <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1252	1349	
==>'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Per <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24423	24516	
==>from its member classes, usually invoking C<new()> on
the appropriate class name, and then inv <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20465	20558	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22055	22148	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9328	9421	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24423	24516	
==>from its member classes, usually invoking C<new()> on
the appropriate class name, and then inv <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25017	25110	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23587	23680	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22055	22148	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9328	9421	
==>from its member classes, usually invoking C<new()> on the
appropriate class name, and then inv <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7061	7179	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10031	10149	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7061	7179	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10031	10149	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7061	7179	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10031	10149	
==>around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we ar <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35130	35233	
==>ead=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shif <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35130	35233	
==>ead=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shif <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35130	35233	
==>ead=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shif <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7986	8114	
==>::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7986	8114	
==>::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7986	8114	
==>::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14757	14858	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12011	12112	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14757	14858	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12011	12112	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14757	14858	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12011	12112	
==>{
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9948	10086	
==>ice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $e <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9948	10086	
==>ice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $e <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9948	10086	
==>ice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $e <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1139	1243	
==>H() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1139	1243	
==>H() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1139	1243	
==>H() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4224	4325	
==>_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4224	4325	
==>_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4224	4325	
==>_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8130	8257	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5689	5816	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8130	8257	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5689	5816	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8130	8257	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5689	5816	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1818	1945	
==>consistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # of <==
9	/Users/nnunley/pugs/blib6/lib/Test.pm	12921	13017	
==>ns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These f <==
9	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12979	13075	
==>ns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These f <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8543	8668	
==>t "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12452	12575	
==>t "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12452	12575	
==>t "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14023	14124	
==>leanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Containe <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14023	14124	
==>leanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Containe <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14023	14124	
==>leanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Containe <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4638	4737	
==>test plan or throws an exception if there's already a plan in
place.  You have two options for the p <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4638	4737	
==>test plan or throws an exception if there's already a plan in
place.  You have two options for the p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6162	6261	
==>test plan or throws an exception if there's already a plan in
place.  You have two options for the p <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3880	4001	
==>$self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_version <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2046	2159	
==>let {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait> <==
9	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2046	2159	
==>let {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2825	2925	
==>dn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2825	2925	
==>dn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2825	2925	
==>dn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15183	15306	
==>++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shi <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15183	15306	
==>++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shi <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15183	15306	
==>++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19576	19671	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16808	16903	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19576	19671	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16808	16903	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19576	19671	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16808	16903	
==>=~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5895	6018	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4015	4138	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5895	6018	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4015	4138	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5895	6018	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4015	4138	
==>sses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and re <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	29520	29615	
==>butes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-value <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34072	34167	
==>butes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-value <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33236	33331	
==>butes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-value <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6731	6867	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7492	7628	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8362	8498	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10208	10344	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10969	11105	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11839	11975	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9318	9454	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10124	10260	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11039	11175	
==>s -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the heading of the invo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8533	8659	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11506	11632	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8533	8659	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11506	11632	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8533	8659	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11506	11632	
==>this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2586	2699	
==>, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtit <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2586	2699	
==>, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtit <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2933	3046	
==>, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtit <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19370	19486	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4850	4966	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16602	16718	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19370	19486	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4850	4966	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16602	16718	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19370	19486	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4850	4966	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16602	16718	
==>abel, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	258	361	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	582	685	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	258	361	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	582	685	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	258	361	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	582	685	
==>ess grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4206	4297	
==>ke_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4206	4297	
==>ke_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4206	4297	
==>ke_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4284	4407	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6933	7056	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4514	4634	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10963	11083	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4514	4634	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10963	11083	
==>ure} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	965	1061	
==>s through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::R <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	965	1061	
==>s through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::R <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	965	1061	
==>s through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::R <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10093	10211	
==>\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$nam <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10087	10205	
==>\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$nam <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10204	10314	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12845	12955	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13681	13791	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16322	16432	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12962	13072	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15684	15794	
==>eading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_in <==
9	/Users/nnunley/pugs/util/claim_drift.pl	275	376	
==>nt less hacky, but until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25545	25657	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27740	27852	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25545	25657	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27740	27852	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25545	25657	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27740	27852	
==>c';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3587	3687	
==>dd_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3587	3687	
==>dd_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3587	3687	
==>dd_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $ <==
9	/Users/nnunley/pugs/blib6/lib/Test.pm	14745	14842	
==>ies need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_d <==
9	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14803	14900	
==>ies need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4496	4588	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6445	6537	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4496	4588	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6445	6537	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4496	4588	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6445	6537	
==>LIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->ty <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24066	24157	
==>.
ground_list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3169	3288	
==>rg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3169	3288	
==>rg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3169	3288	
==>rg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Consta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5658	5767	
==>s };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5658	5767	
==>s };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5658	5767	
==>s };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primi <==
9	/Users/nnunley/pugs/blib6/lib/Test.pm	10317	10414	
==>e
expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo_ <==
9	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10375	10472	
==>e
expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo_ <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	530	626	
==>0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1903	2048	
==>next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cooki <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1903	2048	
==>next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cooki <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1038	1170	
==>ft',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        ass <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14837	14935	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12091	12189	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14837	14935	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12091	12189	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14837	14935	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12091	12189	
==>bute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attrib <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4864	4980	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7513	7629	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2926	3039	
==>ub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub inf <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2926	3039	
==>ub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub inf <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2926	3039	
==>ub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub inf <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5078	5188	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11527	11637	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5078	5188	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11527	11637	
==>->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable fr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12528	12668	
==>status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self. <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2898	3032	
==>status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self. <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2898	3032	
==>status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11529	11661	
==>status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11970	12101	
==>status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self. <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1969	2095	
==>status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self. <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1969	2095	
==>status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self. <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2378	2503	
==>status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self. <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2378	2503	
==>status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self. <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1151	1268	
==>lue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1151	1268	
==>lue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1151	1268	
==>lue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10231	10329	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12872	12970	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13708	13806	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16349	16447	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12989	13087	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15711	15809	
==>urces have identical headings; result is src intersection.
        return $?SELF!_intersection( $ot <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3982	4077	
==>----------------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4005	4100	
==>-----------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4028	4123	
==>------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3982	4077	
==>----------------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4005	4100	
==>-----------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4028	4123	
==>------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3982	4077	
==>----------------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4005	4100	
==>-----------------------------------
## BEGIN BOOTSTRAPPING AREA
## ----------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4028	4123	
==>------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11903	12035	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3414	3546	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11903	12035	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3414	3546	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11903	12035	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3414	3546	
==>gth; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].S <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8340	8466	
==>gth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8340	8466	
==>gth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].S <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8340	8466	
==>gth; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1690	1852	
==>d" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $se <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1690	1852	
==>d" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $se <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1690	1852	
==>d" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $se <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6710	6806	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5840	5936	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2494	2590	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2494	2590	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6710	6806	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5840	5936	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9167	9320	
==>ant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9167	9320	
==>ant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9167	9320	
==>ant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9768	9874	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7317	7423	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9768	9874	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7317	7423	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9768	9874	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7317	7423	
==>patcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    ret <==
9	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	43	144	
==>se locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_DE.utf8");

sub slurp {
    my ($ <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1900	1996	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	530	626	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1668	1764	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13976	14072	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1900	1996	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	530	626	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1668	1764	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13976	14072	
==>glock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This pr <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5049	5186	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7698	7835	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5255	5386	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11704	11835	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5255	5386	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11704	11835	
==>le {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, nex <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3933	4052	
==>$fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub comm <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3933	4052	
==>$fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub comm <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3933	4052	
==>$fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub comm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3716	3834	
==>s_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3716	3834	
==>s_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3716	3834	
==>s_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	418	520	
==>$?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	418	520	
==>$?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cla <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	418	520	
==>$?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cla <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4502	4595	
==>ver blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Names <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4502	4595	
==>ver blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Names <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4502	4595	
==>ver blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Names <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5345	5466	
==>body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5345	5466	
==>body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5345	5466	
==>body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role- <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3366	3483	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11924	12041	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6491	6608	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3366	3483	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11924	12041	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6491	6608	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_K <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2234	2367	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1346	1479	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1910	2043	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2234	2367	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1346	1479	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1910	2043	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2234	2367	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1346	1479	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1910	2043	
==>s an ugly way to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	776	896	
==>.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4526	4646	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	776	896	
==>.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	776	896	
==>.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7175	7295	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4750	4867	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11199	11316	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4750	4867	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11199	11316	
==>ete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", D <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10856	10992	
==>>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } els <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10856	10992	
==>>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } els <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10856	10992	
==>>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } els <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14138	14245	
==>_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14138	14245	
==>_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14138	14245	
==>_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6905	7011	
==>rgs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6905	7011	
==>rgs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6905	7011	
==>rgs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	25	135	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarNa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	25	135	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarNa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	25	135	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarNa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9443	9552	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6990	7099	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9443	9552	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6990	7099	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9443	9552	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6990	7099	
==>:descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4195	4361	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4195	4361	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4195	4361	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6721	6873	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6721	6873	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6721	6873	
==>:make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23830	23964	
==>}

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23830	23964	
==>}

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23830	23964	
==>}

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1982	2113	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1094	1225	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1661	1792	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1982	2113	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1094	1225	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1661	1792	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1982	2113	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1094	1225	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1661	1792	
==>ot included in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7855	7997	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5414	5556	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7855	7997	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5414	5556	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7855	7997	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5414	5556	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1543	1685	
==>hen just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothea <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25359	25456	
==>ibute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compo <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25359	25456	
==>ibute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19771	19894	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16910	17033	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19771	19894	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16910	17033	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19771	19894	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16910	17033	
==>($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9785	9904	
==>ec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9785	9904	
==>ec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9785	9904	
==>ec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10008	10107	
==>}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10008	10107	
==>}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10008	10107	
==>}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3392	3488	
==>eceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $te <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3392	3488	
==>eceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $te <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3472	3568	
==>eceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $te <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4121	4216	
==>xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
M <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4121	4216	
==>xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
M <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4121	4216	
==>xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
M <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	655	786	
==>, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	655	786	
==>, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (b <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	655	786	
==>, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	925	1040	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1013	1128	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	925	1040	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1013	1128	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	925	1040	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1013	1128	
==>-/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	1658	1776	
==>heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die " <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5135	5253	
==>heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die " <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4065	4183	
==>heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die " <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	197	296	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	138	237	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	197	296	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	138	237	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	197	296	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	138	237	
==>ording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11424	11614	
==>) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11424	11614	
==>) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11424	11614	
==>) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # c <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2891	2995	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10814	10918	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6016	6120	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2891	2995	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10814	10918	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6016	6120	
==>ew(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1095	1215	
==>_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chang <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1095	1215	
==>_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chang <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1095	1215	
==>_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chang <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2745	2846	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5393	5494	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2745	2846	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5393	5494	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2745	2846	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5393	5494	
==>ibute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribut <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7602	7736	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10525	10659	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7602	7736	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10525	10659	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7602	7736	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10525	10659	
==>method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	492	590	
==>my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	492	590	
==>my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	492	590	
==>my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $se <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7702	7801	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6832	6931	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3418	3517	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3418	3517	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7702	7801	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6832	6931	
==>udes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# ne <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	436	532	
==>rs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => s <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	436	532	
==>rs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => s <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	436	532	
==>rs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18369	18486	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8639	8756	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15607	15724	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18369	18486	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8639	8756	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15607	15724	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18369	18486	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8639	8756	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15607	15724	
==>correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_at <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1998	2130	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1110	1242	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1677	1809	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1998	2130	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1110	1242	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1677	1809	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1998	2130	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1110	1242	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1677	1809	
==>he 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7776	7879	
==>Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Val <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7776	7879	
==>Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Val <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7776	7879	
==>Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Val <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	1139	1256	
==>es and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4617	4734	
==>es and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3529	3646	
==>es and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4490	4600	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7426	7536	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4490	4600	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7426	7536	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4490	4600	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7426	7536	
==>ith) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8483	8623	
==>bmethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8483	8623	
==>bmethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8483	8623	
==>bmethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12752	12855	
==>($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB I <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12752	12855	
==>($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB I <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12752	12855	
==>($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB I <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1375	1468	
==>3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apos <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1375	1468	
==>3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apos <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1375	1468	
==>3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apos <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	979	1093	
==>e::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	979	1093	
==>e::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1050	1158	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1266	1374	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1484	1592	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1050	1158	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1266	1374	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1484	1592	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <==
9	/Users/nnunley/pugs/util/grokprims.pl	1378	1485	
==>/>";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } el <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25095	25193	
==>ure and deterministic,
such that all of its class and object methods will each return the same
resu <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	22332	22430	
==>ure and deterministic, such that all of its class
and object methods will each return the same resu <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11226	11324	
==>ure and deterministic,
such that all of its class and object methods will each return the same
resu <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14499	14597	
==>ure and deterministic, such that all of its class and
object methods will each return the same resu <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25095	25193	
==>ure and deterministic,
such that all of its class and object methods will each return the same
resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26884	26982	
==>ure and deterministic, such that all of its class
and object methods will each return the same resu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25607	25705	
==>ure and deterministic, such that all of its class
and object methods will each return the same resu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11226	11324	
==>ure and deterministic,
such that all of its class and object methods will each return the same
resu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14499	14597	
==>ure and deterministic, such that all of its class and
object methods will each return the same resu <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	19477	19608	
==>erhaps L<S02> etc should just link to the top?
                # this is what you get at the moment
                push @bad_headin <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1974	2076	
==>one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    ! <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1974	2076	
==>one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    ! <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	4545	4644	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3672	3771	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	482	581	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	482	581	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4545	4644	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3672	3771	
==>ence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6858	6949	
==>--------------------------------------------------
## BOOTSTRAPPING ROLES
## --------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6881	6972	
==>---------------------------
## BOOTSTRAPPING ROLES
## -------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6904	6995	
==>----
## BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6858	6949	
==>--------------------------------------------------
## BOOTSTRAPPING ROLES
## --------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6881	6972	
==>---------------------------
## BOOTSTRAPPING ROLES
## -------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6904	6995	
==>----
## BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6858	6949	
==>--------------------------------------------------
## BOOTSTRAPPING ROLES
## --------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6881	6972	
==>---------------------------
## BOOTSTRAPPING ROLES
## -------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6904	6995	
==>----
## BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9532	9686	
==>$self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9532	9686	
==>$self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9532	9686	
==>$self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	609	707	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1129	1227	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	609	707	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1129	1227	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	609	707	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1129	1227	
==>lf is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11142	11264	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12613	12735	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14619	14741	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16090	16212	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13927	14049	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15452	15574	
==>e tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sourc <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	902	1008	
==>.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	902	1008	
==>.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	902	1008	
==>.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5710	5813	
==>s $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5710	5813	
==>s $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion f <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5710	5813	
==>s $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion f <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	216	315	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	380	479	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	216	315	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	380	479	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	216	315	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	380	479	
==>_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2233	2364	
==>e);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2233	2364	
==>e);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2233	2364	
==>e);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5876	6001	
==>e) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5876	6001	
==>e) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5876	6001	
==>e) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3679	3766	
==>ml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3679	3766	
==>ml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3679	3766	
==>ml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16980	17130	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21695	21845	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16980	17130	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21695	21845	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16980	17130	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21695	21845	
==>{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	533	636	
==>t_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods star <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	533	636	
==>t_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods star <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	533	636	
==>t_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods star <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9801	9914	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10782	10895	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12253	12366	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13278	13391	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14259	14372	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15730	15843	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12550	12663	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13558	13671	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15083	15196	
==>ases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # B <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1453	1640	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_st <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1453	1640	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_st <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1453	1640	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_st <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1467	1574	
==>rl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1467	1574	
==>rl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1467	1574	
==>rl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2071	2165	
==>new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2071	2165	
==>new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2071	2165	
==>new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9777	9896	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10758	10877	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12229	12348	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13254	13373	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14235	14354	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15706	15825	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12526	12645	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13534	13653	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15059	15178	
==>First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41164	41263	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13552	13651	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9344	9443	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41164	41263	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13552	13651	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9344	9443	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41164	41263	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13552	13651	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9344	9443	
==>N

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14794	14940	
==>($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14794	14940	
==>($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14794	14940	
==>($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9076	9187	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6623	6734	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9076	9187	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6623	6734	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9076	9187	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6623	6734	
==>$order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8801	8962	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6354	6515	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8801	8962	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6354	6515	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8801	8962	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6354	6515	
==>superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14791	14928	
==>}';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        return ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6107	6219	
==>as to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @arra <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6497	6609	
==>as to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @arra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4507	4646	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7019	7158	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4507	4646	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7019	7158	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4507	4646	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7019	7158	
==>ust add a private method in here...
                    # there is no real distinction between the
                    # private class metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11706	11791	
==>Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11706	11791	
==>Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11706	11791	
==>Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16041	16178	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20758	20895	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16041	16178	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20758	20895	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16041	16178	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20758	20895	
==>ARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5806	5920	
==>s}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5806	5920	
==>s}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5806	5920	
==>s}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($a <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6726	6853	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7487	7614	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8357	8484	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10203	10330	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10964	11091	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11834	11961	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9313	9440	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10119	10246	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11034	11161	
==>others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the headi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5011	5111	
==>=~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5011	5111	
==>=~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5011	5111	
==>=~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1842	1939	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2185	2282	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1842	1939	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2185	2282	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1842	1939	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2185	2282	
==>doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17646	17766	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8227	8347	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14866	14986	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17646	17766	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8227	8347	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14866	14986	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17646	17766	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8227	8347	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14866	14986	
==>at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1107	1207	
==>Cxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1107	1207	
==>Cxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self- <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1107	1207	
==>Cxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self- <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	362	483	
==>sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' can't be mixed with other t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4630	4726	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7566	7662	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4630	4726	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7566	7662	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4630	4726	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7566	7662	
==>| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchabl <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2763	2857	
==>le = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { us <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2763	2857	
==>le = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { us <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8029	8188	
==>.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cst <==
9	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8029	8188	
==>.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cst <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22638	22733	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22868	22963	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22638	22733	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22868	22963	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22638	22733	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22868	22963	
==>x1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p <==
9	/Users/nnunley/pugs/src/perl6/Prelude.pm	12847	12941	
==>t when I migrated &prefix:<=> from
# meaning the same as &readline to $obj.shift(), ="some_file <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4139	4322	
==>t->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Contai <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4139	4322	
==>t->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Contai <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4139	4322	
==>t->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Contai <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5811	5916	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8781	8886	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5811	5916	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8781	8886	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5811	5916	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8781	8886	
==>hod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7348	7505	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4907	5064	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7348	7505	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4907	5064	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7348	7505	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4907	5064	
==>e ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            fore <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	879	992	
==>tring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Sta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	879	992	
==>tring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Sta <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	879	992	
==>tring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Sta <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11860	12004	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3371	3515	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11860	12004	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3371	3515	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11860	12004	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3371	3515	
==>rr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8299	8437	
==>rr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8299	8437	
==>rr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8299	8437	
==>rr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].F <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8435	8553	
==>the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should n <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	593	711	
==>the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should n <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	863	979	
==>the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should n <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8152	8268	
==>the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should n <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	567	683	
==>the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should n <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	863	979	
==>the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5089	5179	
==>ss($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5089	5179	
==>ss($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5089	5179	
==>ss($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1379	1475	
==>L2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{pr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1379	1475	
==>L2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{pr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1379	1475	
==>L2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13484	13579	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10768	10863	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13484	13579	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10768	10863	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13484	13579	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10768	10863	
==>eturn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5672	5784	
==>if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example migh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5672	5784	
==>if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example migh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5672	5784	
==>if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example migh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5117	5227	
==>i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5117	5227	
==>i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5707	5817	
==>i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3775	3879	
==>gs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it w <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3775	3879	
==>gs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it w <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3775	3879	
==>gs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12268	12405	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3890	4027	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12268	12405	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3890	4027	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12268	12405	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3890	4027	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	157	270	
==>etaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	157	270	
==>etaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	157	270	
==>etaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3913	4074	
==>obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


= <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3913	4074	
==>obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


= <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3913	4074	
==>obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


= <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13206	13339	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14941	15074	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13206	13339	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14941	15074	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13206	13339	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14941	15074	
==>ps}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        cel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10011	10134	
==>-
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10011	10134	
==>-
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10011	10134	
==>-
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9965	10070	
==>-----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9988	10093	
==>------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9965	10070	
==>-----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9988	10093	
==>------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9965	10070	
==>-----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9988	10093	
==>------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18729	18863	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15967	16101	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18729	18863	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15967	16101	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18729	18863	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15967	16101	
==>... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13201	13306	
==>tmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Excep <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13201	13306	
==>tmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Excep <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13201	13306	
==>tmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Excep <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1644	1830	
==>}; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1644	1830	
==>}; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1644	1830	
==>}; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24781	24906	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26970	27095	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24781	24906	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26970	27095	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24781	24906	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26970	27095	
==>warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9757	9918	
==>test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method sk <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1840	1983	
==>test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method sk <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1840	1983	
==>test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method sk <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4469	4597	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7118	7246	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4695	4819	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11144	11268	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4695	4819	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11144	11268	
==>apture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $m <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12605	12749	
==>erl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro ev <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8879	9023	
==>erl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro ev <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9714	9858	
==>erl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro ev <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11431	11562	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2943	3074	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11431	11562	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2943	3074	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11431	11562	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2943	3074	
==>tion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5397	5504	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6665	6772	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10927	11034	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5397	5504	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6653	6760	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11077	11184	
==>XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15438	15538	
==>sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15438	15538	
==>sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15438	15538	
==>sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1419	1570	
==>rototype}) {
                $_table = $_table->{prototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "c <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25425	25519	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	863	957	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24189	24283	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1988	2082	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25425	25519	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	863	957	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24189	24283	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1988	2082	
==>/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for detai <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24426	24632	
==>n $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sampl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24426	24632	
==>n $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sampl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24426	24632	
==>n $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sampl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1664	1778	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3227	3341	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1664	1778	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3227	3341	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1664	1778	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3227	3341	
==>estigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKM <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23208	23406	
==>e'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaqu <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3276	3386	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8561	8671	
==>reedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6269	6377	
==>reedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3538	3645	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9956	10063	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8261	8368	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3538	3645	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9956	10063	
==>reedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usag <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9843	9957	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10824	10938	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12295	12409	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13320	13434	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14301	14415	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15772	15886	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12592	12706	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13600	13714	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15125	15239	
==>nt.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does resul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24783	24908	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26972	27097	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2130	2255	
==>msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2130	2255	
==>msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2130	2255	
==>msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules ar <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24783	24908	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26972	27097	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24783	24908	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26972	27097	
==>rn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sampl <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22057	22156	
==>gex

A reference to the original string representation of the regex.

=item len

The length of the o <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23274	23369	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1847	1942	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4138	4233	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1810	1905	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23274	23369	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1847	1942	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4138	4233	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1810	1905	
==>or error messages).

It also requires these Perl 6 classes that are in the current distribution: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4700	4826	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7636	7762	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4700	4826	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7636	7762	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4700	4826	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7636	7762	
==>iated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wra <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39441	39546	
==>);
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39441	39546	
==>);
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39441	39546	
==>);
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24400	24494	
==>it
by creating objects from its member classes, usually invoking C<new()> on
the appropriate cl <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20442	20536	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22032	22126	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9305	9399	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24400	24494	
==>it
by creating objects from its member classes, usually invoking C<new()> on
the appropriate cl <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24994	25088	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23564	23658	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22032	22126	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9305	9399	
==>it by
creating objects from its member classes, usually invoking C<new()> on the
appropriate cl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2172	2320	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1284	1432	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1848	1996	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2172	2320	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1284	1432	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1848	1996	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2172	2320	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1284	1432	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1848	1996	
==>$key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instance structu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1815	1934	
==>l;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $co <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1815	1934	
==>l;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $co <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1815	1934	
==>l;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $co <==
9	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	810	928	
==>if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of <==
9	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	810	928	
==>if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1329	1432	
==>rt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only C <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1329	1432	
==>rt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only C <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1329	1432	
==>rt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only C <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34236	34327	
==>char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{N <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9194	9317	
==>if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not mat <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9194	9317	
==>if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not mat <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9194	9317	
==>if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not mat <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7129	7227	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6259	6357	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2913	3011	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2913	3011	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7129	7227	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6259	6357	
==>*infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12098	12246	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3720	3868	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12098	12246	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3720	3868	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12098	12246	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3720	3868	
==>0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6824	6969	
==>0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6824	6969	
==>0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6824	6969	
==>0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8176	8304	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5735	5863	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8176	8304	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5735	5863	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8176	8304	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5735	5863	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1864	1992	
==>sh @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        f <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1652	1777	
==>nt {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex <==
9	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1652	1777	
==>nt {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11042	11166	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12513	12637	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14519	14643	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15990	16114	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13827	13951	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15352	15476	
==>ody => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1110	1211	
==>traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1110	1211	
==>traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1110	1211	
==>traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref( <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5364	5484	
==>y $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $cod <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6632	6752	
==>y $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $cod <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5364	5484	
==>y $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $cod <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6620	6740	
==>y $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $cod <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26317	26411	
==>ght holders of Rosetta would
appreciate being informed any time you create a modified version o <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26317	26411	
==>ght holders of Rosetta would
appreciate being informed any time you create a modified version o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	713	803	
==>s ]);

## ----------------------------------------------------------------------------
## O <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	713	803	
==>s ]);

## ----------------------------------------------------------------------------
## O <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	713	803	
==>s ]);

## ----------------------------------------------------------------------------
## O <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4160	4294	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7096	7230	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4160	4294	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7096	7230	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4160	4294	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7096	7230	
==>fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically <==
9	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1890	2012	
==>\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12752	12851	
==>'.

The return value is the values of the fields removed.  In scalar
context the number of fields re <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12752	12851	
==>'.

The return value is the values of the fields removed.  In scalar
context the number of fields re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9556	9672	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7103	7219	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9556	9672	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7103	7219	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9556	9672	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7103	7219	
==>ndant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1872	1964	
==>|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1872	1964	
==>|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1872	1964	
==>|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2661	2780	
==>tch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_ke <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2661	2780	
==>tch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_ke <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2661	2780	
==>tch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_ke <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9086	9204	
==>);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_inv <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9086	9204	
==>);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_inv <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9086	9204	
==>);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_inv <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	700	804	
==>oxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_boo <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	700	804	
==>oxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_boo <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	700	804	
==>oxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_boo <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	13657	13771	
==>join( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17134	17248	
==>join( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16496	16610	
==>join( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mu <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4922	5036	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7571	7685	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5134	5242	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11583	11691	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5134	5242	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11583	11691	
==>urn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11190	11341	
==>ETHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11190	11341	
==>ETHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11190	11341	
==>ETHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4302	4436	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6951	7085	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4532	4662	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10981	11111	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4532	4662	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10981	11111	
==>turn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7891	8040	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7891	8040	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7891	8040	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4955	5102	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4955	5102	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4955	5102	
==>of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7277	7395	
==>n "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7277	7395	
==>n "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7277	7395	
==>n "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3528	3644	
==>p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XX <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3668	3784	
==>p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XX <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3301	3395	
==>gnostic output of tests,
running those tests, and then telling this module to compare the recei <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2196	2290	
==>'DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3301	3395	
==>gnostic output of tests,
running those tests, and then telling this module to compare the recei <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2196	2290	
==>'DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3381	3475	
==>gnostic output of tests,
running those tests, and then telling this module to compare the recei <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2196	2290	
==>'DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4165	4253	
==>epage at L<http://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9280	9421	
==>n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->el <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9280	9421	
==>n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->el <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9280	9421	
==>n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->el <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5647	5771	
==>@params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5647	5771	
==>@params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5647	5771	
==>@params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14648	14765	
==>attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14648	14765	
==>attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14648	14765	
==>attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10387	10549	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7938	8100	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10387	10549	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7938	8100	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10387	10549	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7938	8100	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7241	7340	
==>er)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7241	7340	
==>er)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7241	7340	
==>er)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::m <==
9	/Users/nnunley/pugs/util/livecd/mklivecd.pl	765	873	
==>map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    } <==
9	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	543	642	
==>rl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows y <==
9	/Users/nnunley/pugs/lib/Inline/Pugs.pm	543	642	
==>rl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows y <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4043	4139	
==>ormation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4043	4139	
==>ormation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7022	7117	
==>ormation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9092	9187	
==>ormation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7022	7117	
==>ormation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9092	9187	
==>ormation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3179	3321	
==>tovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'A <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3179	3321	
==>tovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'A <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3179	3321	
==>tovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'A <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1114	1227	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1341	1454	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1114	1227	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1341	1454	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1114	1227	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1341	1454	
==>_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18552	18707	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15790	15945	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18552	18707	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15790	15945	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18552	18707	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15790	15945	
==>et_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variable <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1395	1507	
==>) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1600	1712	
==>) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1661	1773	
==>) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24674	24783	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26863	26972	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24674	24783	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26863	26972	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24674	24783	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26863	26972	
==>$self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # war <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6381	6468	
==>->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6381	6468	
==>->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6381	6468	
==>->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7285	7413	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4844	4972	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7285	7413	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4844	4972	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7285	7413	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4844	4972	
==>eturn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	421	523	
==>N_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	421	523	
==>N_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	421	523	
==>N_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2513	2649	
==>ent {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      . <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2513	2649	
==>ent {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      . <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8720	8838	
==>ubstr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose:
    pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16655	16767	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13860	13972	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16655	16767	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13860	13972	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16655	16767	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13860	13972	
==>le (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->h <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5031	5171	
==>nless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @ro <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5031	5171	
==>nless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @ro <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5031	5171	
==>nless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @ro <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13269	13381	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10553	10665	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13269	13381	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10553	10665	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13269	13381	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10553	10665	
==>able;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::o <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13707	13827	
==>es result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            bo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15232	15352	
==>es result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            bo <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	5412	5511	
==>);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mul <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4542	4641	
==>);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mul <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5412	5511	
==>);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mul <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4542	4641	
==>);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	743	834	
==>ttr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	743	834	
==>ttr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	743	834	
==>ttr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instanc <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7416	7532	
==>eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    r <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4020	4136	
==>eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4869	4985	
==>eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8504	8612	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6057	6165	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8504	8612	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6057	6165	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8504	8612	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6057	6165	
==>_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self-> <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	561	659	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	883	981	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1262	1360	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	561	659	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	883	981	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1262	1360	
==>y $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14076	14173	
==>ULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14076	14173	
==>ULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14076	14173	
==>ULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19750	19871	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16889	17010	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19750	19871	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16889	17010	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19750	19871	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16889	17010	
==>urn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($lab <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37651	37759	
==>d value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37651	37759	
==>d value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Valu <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37651	37759	
==>d value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18317	18442	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8587	8712	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15555	15680	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18317	18442	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8587	8712	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15555	15680	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18317	18442	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8587	8712	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15555	15680	
==>}   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12300	12470	
==>, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12300	12470	
==>, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12300	12470	
==>, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $disp <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10103	10225	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12744	12866	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13580	13702	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16221	16343	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12861	12983	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15583	15705	
==>ntity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Bo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25015	25205	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27204	27394	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25015	25205	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27204	27394	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25015	25205	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27204	27394	
==>rt;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3756	3865	
==>mts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'S <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3756	3865	
==>mts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'S <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	606	715	
==>mts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'S <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5749	5869	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3869	3989	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5749	5869	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3869	3989	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5749	5869	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3869	3989	
==>s
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4912	5008	
==>ub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be una <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4912	5008	
==>ub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be una <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4912	5008	
==>ub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be una <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	72	188	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	72	188	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	72	188	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9419	9533	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6966	7080	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9419	9533	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6966	7080	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9419	9533	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6966	7080	
==>}
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    e <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	385	486	
==>tive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arra <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	385	486	
==>tive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arra <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	385	486	
==>tive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arra <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	6745	6840	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5875	5970	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2529	2624	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2529	2624	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6745	6840	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5875	5970	
==>includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7119	7229	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7119	7229	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7119	7229	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12275	12384	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12275	12384	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12275	12384	
==>um' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unbo <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16484	16583	
==>ttr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16484	16583	
==>ttr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16484	16583	
==>ttr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () { <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2021	2135	
==>Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2021	2135	
==>Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	998	1107	
==>urn;
}

# can we locate a (the) C compiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9970	10060	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7521	7611	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9970	10060	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7521	7611	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9970	10060	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7521	7611	
==>der_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5015	5143	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7664	7792	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1593	1717	
==>is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1593	1717	
==>is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1593	1717	
==>is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read- <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5222	5344	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11671	11793	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5222	5344	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11671	11793	
==>by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4385	4509	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7321	7445	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4385	4509	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7321	7445	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4385	4509	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7321	7445	
==>S are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        ( <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6188	6295	
==>=> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9665	9772	
==>=> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8739	8846	
==>=> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict <==
9	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3084	3200	
==>circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "oti <==
9	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3084	3200	
==>circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "oti <==
9	/Users/nnunley/pugs/blib6/lib/Tree.pm	2337	2439	
==>add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($ <==
9	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2337	2439	
==>add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($ <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22519	22613	
==>it will also provide some variable values to be
interpolated into the user strings; Locale::Key <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22519	22613	
==>it will also provide some variable values to be
interpolated into the user strings; Locale::Key <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2289	2377	
==>:opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2289	2377	
==>:opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2289	2377	
==>:opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2050	2196	
==>y $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6993	7138	
==>y $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1822	1963	
==>y $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8407	8548	
==>y $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1822	1963	
==>y $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8407	8548	
==>y $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6759	6899	
==>y $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { <==
9	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4678	4795	
==>]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            } <==
9	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4678	4795	
==>]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	673	776	
==>:MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't lik <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	673	776	
==>:MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't lik <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	673	776	
==>:MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't lik <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1532	1625	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1532	1625	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1532	1625	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	373	464	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	373	464	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	373	464	
==>r") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pV <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11164	11284	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12635	12755	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14641	14761	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16112	16232	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13949	14069	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15474	15594	
==>ond source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tu <==
9	/Users/nnunley/pugs/util/gen_prelude.pl	4663	4779	
==>int OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $line <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	186	291	
==>r::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	186	291	
==>r::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12180	12310	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3802	3932	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12180	12310	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3802	3932	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12180	12310	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3802	3932	
==>ntie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6905	7033	
==>ntie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6905	7033	
==>ntie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6905	7033	
==>ntie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-Meta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7893	8001	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10816	10924	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7893	8001	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10816	10924	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7893	8001	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10816	10924	
==>d ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submeth <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	719	823	
==>tch::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Du <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	719	823	
==>tch::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Du <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1834	1926	
==>nt parameters: "
		. Blondie::Emitter::Pretty->new->string($reduced)
			if $received != $sent <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4163	4326	
==>Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4163	4326	
==>Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4163	4326	
==>Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1674	1795	
==>st,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 9 <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1674	1795	
==>st,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 9 <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6472	6573	
==>nts> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

= <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6472	6573	
==>nts> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

= <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21049	21148	
==>hat only the last of these fields will be present in the header
after the call.  All values ought to <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21049	21148	
==>hat only the last of these fields will be present in the header
after the call.  All values ought to <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2245	2374	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1357	1486	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1921	2050	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2245	2374	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1357	1486	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1921	2050	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2245	2374	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1357	1486	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1921	2050	
==>ay to do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, an <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1257	1358	
==>m;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1257	1358	
==>m;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1466	1567	
==>m;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4995	5093	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3223	3321	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4995	5093	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3223	3321	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4995	5093	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3223	3321	
==>elf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($s <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10497	10666	
==>$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6838	7007	
==>$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7687	7856	
==>$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2945	3071	
==>($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2945	3071	
==>($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2945	3071	
==>($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5728	5845	
==>($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5728	5845	
==>($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5728	5845	
==>($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3032	3148	
==>d in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each ele <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	181	297	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	179	295	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3032	3148	
==>d in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each ele <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3032	3148	
==>d in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each ele <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	181	297	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	179	295	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	181	297	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	179	295	
==>0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their interna <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6411	6625	
==>modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6411	6625	
==>modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6411	6625	
==>modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16873	17003	
==>)) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16873	17003	
==>)) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16873	17003	
==>)) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsi <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31653	31753	
==>t there is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCo <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	11892	11984	
==>$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=he <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11892	11984	
==>$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=he <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	32723	32817	
==>ntains all the tuples of the source Relations, including
one copy each of any duplicated tuples <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37273	37367	
==>ntains all the tuples of the source Relations, including
one copy each of any duplicated tuples <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36590	36684	
==>ntains all the tuples of the source Relations, including
one copy each of any duplicated tuples <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1714	1834	
==>ie "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2457	2577	
==>ie "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1714	1834	
==>ie "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2445	2565	
==>ie "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21879	21974	
==>ssage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!h <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20760	20855	
==>ssage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!h <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21879	21974	
==>ssage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!h <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20760	20855	
==>ssage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!h <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14272	14363	
==>Expression>
    | <LeftHandSideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSide <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9697	9807	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12670	12780	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9697	9807	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12670	12780	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9697	9807	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12670	12780	
==>stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17226	17323	
==>stroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17226	17323	
==>stroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @class <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17226	17323	
==>stroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @class <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	32415	32510	
==>identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<uni <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36965	37060	
==>identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<uni <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36255	36350	
==>identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<uni <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17600	17711	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8181	8292	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14820	14931	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17600	17711	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8181	8292	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14820	14931	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17600	17711	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8181	8292	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14820	14931	
==>l && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17657	17779	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8238	8360	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14877	14999	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17657	17779	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8238	8360	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14877	14999	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17657	17779	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8238	8360	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14877	14999	
==>abel || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30491	30627	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32205	32341	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30491	30627	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32205	32341	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30491	30627	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32205	32341	
==>_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $l <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4426	4560	
==>' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # may <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4426	4560	
==>' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # may <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4426	4560	
==>' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # may <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12186	12324	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3808	3946	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12186	12324	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3808	3946	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12186	12324	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3808	3946	
==>=>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6911	7047	
==>=>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6911	7047	
==>=>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6911	7047	
==>=>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUT <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4204	4337	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7140	7273	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4204	4337	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7140	7273	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4204	4337	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7140	7273	
==>tside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2020	2124	
==>=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2020	2124	
==>=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2020	2124	
==>=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4085	4211	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7021	7147	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4085	4211	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7021	7147	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4085	4211	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7021	7147	
==>ame class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13621	13718	
==>m_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13621	13718	
==>m_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13621	13718	
==>m_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19983	20097	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17122	17236	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19983	20097	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17122	17236	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19983	20097	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17122	17236	
==>ttributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so the <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5442	5548	
==>rly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our & <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5442	5548	
==>rly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our & <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5442	5548	
==>rly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our & <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11662	11790	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3174	3302	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11662	11790	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3174	3302	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11662	11790	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3174	3302	
==>DTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8110	8232	
==>DTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8110	8232	
==>DTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8110	8232	
==>DTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8700	8856	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11673	11829	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8700	8856	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11673	11829	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8700	8856	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11673	11829	
==>ls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2527	2624	
==>ie ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Ju <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2527	2624	
==>ie ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Ju <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2527	2624	
==>ie ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Ju <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2222	2349	
==>un perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2222	2349	
==>un perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2222	2349	
==>un perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18470	18577	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15708	15815	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18470	18577	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15708	15815	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18470	18577	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15708	15815	
==>urn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14074	14180	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11346	11452	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14074	14180	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11346	11452	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14074	14180	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11346	11452	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4136	4219	
==>_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute(' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4136	4219	
==>_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute(' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4136	4219	
==>_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute(' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5513	5628	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8483	8598	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5513	5628	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8483	8598	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5513	5628	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8483	8598	
==>des (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Thi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	297	395	
==>Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %mo <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	297	395	
==>Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %mo <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	297	395	
==>Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %mo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41150	41257	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13538	13645	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9330	9437	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41150	41257	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13538	13645	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9330	9437	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41150	41257	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13538	13645	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9330	9437	
==>ad1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5469	5641	
==>tall it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### t <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5933	6105	
==>tall it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### t <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6316	6413	
==>) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8384	8481	
==>) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6316	6413	
==>) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8384	8481	
==>) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5465	5560	
==>= 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$re <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5465	5560	
==>= 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6989	7084	
==>= 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8813	8971	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11786	11944	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8813	8971	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11786	11944	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8813	8971	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11786	11944	
==>ethod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'ta <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	369	517	
==>of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	369	517	
==>of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$ <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	369	517	
==>of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	581	683	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	903	1005	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1282	1384	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	581	683	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	903	1005	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1282	1384	
==>lock>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<r <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3416	3508	
==>ramework. The class itself is actually a factory for
classes which C<does> the Test::Builder: <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3416	3508	
==>ramework. The class itself is actually a factory for
classes which C<does> the Test::Builder: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5613	5705	
==>ramework. The class itself is actually a factory for
classes which C<does> the Test::Builder: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5676	5846	
==>.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bo <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5676	5846	
==>.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bo <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5676	5846	
==>.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6162	6280	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9132	9250	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6162	6280	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9132	9250	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6162	6280	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9132	9250	
==>rn bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a re <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4354	4448	
==>passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this wi <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4354	4448	
==>passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4434	4528	
==>passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this wi <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11727	11864	
==>@others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15204	15341	
==>@others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invo <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14539	14676	
==>@others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invo <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1102	1204	
==>rn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($sel <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	844	946	
==>rn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($sel <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1102	1204	
==>rn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($sel <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	844	946	
==>rn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($sel <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3413	3506	
==>pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3413	3506	
==>pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17636	17761	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8217	8342	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14856	14981	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17636	17761	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8217	8342	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14856	14981	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17636	17761	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8217	8342	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14856	14981	
==>not FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        retur <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	432	541	
==>lf = shift;
		my $node = shift;

		my $struct = $node->struct_equiv;
		my $orig = $node->orig;

		if (defined( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1361	1461	
==>h @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1361	1461	
==>h @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1361	1461	
==>h @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5546	5642	
==>r &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5546	5642	
==>r &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5546	5642	
==>r &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+< <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3737	3825	
==>iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3737	3825	
==>iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11659	11779	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3171	3291	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11659	11779	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3171	3291	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11659	11779	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3171	3291	
==>BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8107	8221	
==>BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8107	8221	
==>BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8107	8221	
==>BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die( <==
9	/Users/nnunley/pugs/util/combine_tests.pl	640	766	
==>ine_tests{
    #
    # Collect all the test results indexed on filename/number
    # into %sum
    #
    my %sum;
    my @revis <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1656	1764	
==>e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1656	1764	
==>e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1656	1764	
==>e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3656	3761	
==>=> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shif <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3656	3761	
==>=> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shif <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3656	3761	
==>=> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shif <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9322	9414	
==>Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_te <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9322	9414	
==>Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_te <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4930	5068	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5891	6029	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7019	7157	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4930	5068	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5891	6029	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7019	7157	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4930	5068	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5891	6029	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7019	7157	
==>_('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20132	20263	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17271	17402	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20132	20263	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17271	17402	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20132	20263	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17271	17402	
==>y
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packag <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1750	1871	
==>fault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: und <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1750	1871	
==>fault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: und <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1750	1871	
==>fault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: und <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5499	5624	
==>ags}[-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, $class;
  } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7551	7654	
==>parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{ <==
9	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7551	7654	
==>parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1517	1670	
==>ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.n <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1517	1670	
==>ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.n <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1517	1670	
==>ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.n <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2766	2879	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5756	5869	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3058	3164	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9476	9582	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3058	3164	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9476	9582	
==>n( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1816	1944	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	928	1056	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1816	1944	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	928	1056	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1816	1944	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	928	1056	
==>ub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shoul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2270	2378	
==>rface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\und <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2270	2378	
==>rface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\und <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2270	2378	
==>rface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\und <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5683	5800	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8653	8770	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5683	5800	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8653	8770	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5683	5800	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8653	8770	
==>eady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other :: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5972	6074	
==>s.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5972	6074	
==>s.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5972	6074	
==>s.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11300	11446	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8853	8999	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11300	11446	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8853	8999	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11300	11446	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8853	8999	
==>of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $c <==
9	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	449	558	
==>g is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/ <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	449	558	
==>g is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/ <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	692	787	
==>ENV{HARNESS_ACTIVE};
}

# Some experimental versions of OS/2 build have broken $?
my $Ignore_Exi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5345	5472	
==>matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5345	5472	
==>matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5345	5472	
==>matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	45	138	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	269	362	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	45	138	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	269	362	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	45	138	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	269	362	
==>only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.C <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2089	2184	
==>tory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland objec <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2011	2103	
==>tory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland objec <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	43	152	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	43	152	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	43	152	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4533	4635	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7469	7571	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4533	4635	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7469	7571	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4533	4635	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7469	7571	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'und <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11366	11486	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2878	2998	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11366	11486	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2878	2998	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11366	11486	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2878	2998	
==>L2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2197	2305	
==>te doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, et <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2197	2305	
==>te doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, et <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2197	2305	
==>te doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, et <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6616	6785	
==>turn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $ <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6616	6785	
==>turn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1876	1977	
==>onf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1876	1977	
==>onf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1876	1977	
==>onf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($a <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	5733	5831	
==>i sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub * <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4863	4961	
==>i sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub * <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5733	5831	
==>i sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub * <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4863	4961	
==>i sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub * <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7068	7186	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10038	10156	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7068	7186	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10038	10156	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7068	7186	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10038	10156	
==>the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7376	7476	
==>ain { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ packa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7376	7476	
==>ain { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ packa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7376	7476	
==>ain { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ packa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5669	5799	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3789	3919	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5669	5799	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3789	3919	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5669	5799	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3789	3919	
==>}
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circ <==
9	/Users/nnunley/pugs/inc/Test/Harness.pm	6836	6940	
==>ercentage of tests which failed
    canon       List of tests which failed (as string).

C<$failed> shoul <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	460	561	
==>regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	460	561	
==>regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4256	4419	
==>ethod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4256	4419	
==>ethod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4256	4419	
==>ethod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6782	6931	
==>ethod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6782	6931	
==>ethod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6782	6931	
==>ethod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{cl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3037	3139	
==>tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3037	3139	
==>tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3037	3139	
==>tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11552	11770	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9105	9323	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11552	11770	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9105	9323	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11552	11770	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9105	9323	
==>p it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	811	928	
==>g;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	811	928	
==>g;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  } <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	811	928	
==>g;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20077	20191	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17216	17330	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20077	20191	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17216	17330	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20077	20191	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17216	17330	
==>bles
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	911	1007	
==>mments; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( p <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	112	205	
==>mments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( p <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	112	205	
==>mments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( p <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2865	2965	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10788	10888	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2207	2307	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5990	6090	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2865	2965	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10788	10888	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2207	2307	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5990	6090	
==>cale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ass <==
9	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5001	5094	
==>,@_) }
sub def_statement  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14561	14667	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11821	11927	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14561	14667	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11821	11927	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14561	14667	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11821	11927	
==>l"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2177	2277	
==>thod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2177	2277	
==>thod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2177	2277	
==>thod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_met <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1814	1908	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1700	1794	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5027	5117	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4900	4990	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	714	804	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6564	6654	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5167	5257	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5150	5240	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	714	804	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flav <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10831	11011	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2496	2676	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4310	4490	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10831	11011	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2496	2676	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4310	4490	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10831	11011	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2496	2676	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4310	4490	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        ac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2130	2260	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1242	1372	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2130	2260	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1242	1372	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2130	2260	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1242	1372	
==>)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8666	8773	
==>el =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ? <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8666	8773	
==>el =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ? <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8666	8773	
==>el =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ? <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22064	22286	
==>constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::const <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22343	22565	
==>constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::const <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11647	11765	
==>' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching vari <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2130	2246	
==>' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching vari <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8902	9018	
==>' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching vari <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2130	2246	
==>' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching vari <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8902	9018	
==>' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching vari <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1996	2107	
==>pe {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14516	14626	
==>pe {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13375	13471	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10659	10755	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13375	13471	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10659	10755	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13375	13471	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10659	10755	
==>urn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21404	21498	
==>SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21404	21498	
==>SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21404	21498	
==>SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) { <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9807	9924	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10788	10905	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12259	12376	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13284	13401	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14265	14382	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15736	15853	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12556	12673	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13564	13681	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15089	15206	
==>hat are more efficient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both source <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	76	176	
==>) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	76	176	
==>) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	76	176	
==>) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1384	1483	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1715	1814	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1384	1483	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1715	1814	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1384	1483	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1715	1814	
==>) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift() <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6564	6770	
==>, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #war <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6564	6770	
==>, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #war <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6564	6770	
==>, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #war <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14131	14315	
==>ods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # w <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14131	14315	
==>ods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # w <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14131	14315	
==>ods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3656	3754	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3656	3754	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">" <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3656	3754	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3485	3610	
==>AY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$o <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3485	3610	
==>AY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$o <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3485	3610	
==>AY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$o <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7249	7373	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4808	4932	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7249	7373	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4808	4932	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7249	7373	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4808	4932	
==>no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	428	532	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	648	752	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	428	532	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	648	752	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	428	532	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	648	752	
==>tr_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.I <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	211	310	
==>syche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rational <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	211	310	
==>syche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rational <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	211	310	
==>syche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rational <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6195	6321	
==>e');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6195	6321	
==>e');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6195	6321	
==>e');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3260	3385	
==>e');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3260	3385	
==>e');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3260	3385	
==>e');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4439	4535	
==>Native(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ":: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4439	4535	
==>Native(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ":: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4439	4535	
==>Native(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ":: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4479	4673	
==>> 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4479	4673	
==>> 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4479	4673	
==>> 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2960	3059	
==>e "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retur <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2960	3059	
==>e "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retur <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2960	3059	
==>e "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retur <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4637	4734	
==>:HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4637	4734	
==>:HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4637	4734	
==>:HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23442	23549	
==>f } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23442	23549	
==>f } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23442	23549	
==>f } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15939	16035	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20656	20752	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15939	16035	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20656	20752	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15939	16035	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20656	20752	
==>i => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::M <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7929	8041	
==>x([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7929	8041	
==>x([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(ar <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7929	8041	
==>x([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(ar <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7046	7142	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6176	6272	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2830	2926	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2830	2926	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7046	7142	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6176	6272	
==>:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18375	18500	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8645	8770	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15613	15738	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18375	18500	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8645	8770	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15613	15738	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18375	18500	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8645	8770	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15613	15738	
==>t ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	432	537	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	652	757	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	807	912	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	432	537	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	652	757	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	807	912	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	432	537	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	652	757	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	807	912	
==>= String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAn <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19021	19152	
==>tchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19021	19152	
==>tchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19021	19152	
==>tchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    u <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20475	20603	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17614	17742	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20475	20603	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17614	17742	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20475	20603	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17614	17742	
==>h, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17778	17916	
==>hod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resul <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17778	17916	
==>hod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resul <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17778	17916	
==>hod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resul <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10727	10827	
==>MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes eleme <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10727	10827	
==>MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes eleme <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20785	20880	
==>an")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<us <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19702	19797	
==>an")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<us <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20785	20880	
==>an")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<us <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19702	19797	
==>an")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<us <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	345	460	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1208	1323	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2183	2298	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	345	460	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1208	1323	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2183	2298	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	345	460	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1208	1323	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2183	2298	
==>sif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH() <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11213	11394	
==>h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11213	11394	
==>h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            ret <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11213	11394	
==>h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24895	25060	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27084	27249	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24895	25060	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27084	27249	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24895	25060	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27084	27249	
==>defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6779	6888	
==>mp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - ne <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6779	6888	
==>mp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - ne <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6779	6888	
==>mp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - ne <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4013	4110	
==>e see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4013	4110	
==>e see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6992	7088	
==>e see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9062	9158	
==>e see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6992	7088	
==>e see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9062	9158	
==>e see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All righ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	264	417	
==>type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junc <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	264	417	
==>type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junc <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	264	417	
==>type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5021	5110	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3249	3338	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5021	5110	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3249	3338	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5021	5110	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3249	3338	
==>urn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher( <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4437	4538	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4692	4793	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4939	5040	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4437	4538	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4692	4793	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4939	5040	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4182	4282	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	18774	18874	
==>rl 6

=head1 VERSION

This document describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relat <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4182	4282	
==>dex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25497	25630	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27692	27825	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25497	25630	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27692	27825	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25497	25630	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27692	27825	
==>ples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8409	8535	
==>_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8409	8535	
==>_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8409	8535	
==>_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20512	20624	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17651	17763	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20512	20624	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17651	17763	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20512	20624	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17651	17763	
==>wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1073	1174	
==>in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but per <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1073	1174	
==>in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but per <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1073	1174	
==>in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but per <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3160	3264	
==>w = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_met <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3160	3264	
==>w = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_met <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3160	3264	
==>w = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_met <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	639	732	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1159	1252	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	639	732	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1159	1252	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	639	732	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1159	1252	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = a <==
9	/Users/nnunley/pugs/src/perl6/Prelude.pm	14113	14250	
==>{
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) ! <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4194	4319	
==>{
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) ! <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4194	4319	
==>{
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) ! <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4194	4319	
==>{
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) ! <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11657	11774	
==>r' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2140	2255	
==>r' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8912	9027	
==>r' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2140	2255	
==>r' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8912	9027	
==>r' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10859	11024	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2524	2689	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4338	4503	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10859	11024	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2524	2689	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4338	4503	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10859	11024	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2524	2689	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4338	4503	
==>ject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2362	2479	
==>= function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2362	2479	
==>= function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2362	2479	
==>= function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3282	3389	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11840	11947	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6407	6514	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3282	3389	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11840	11947	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6407	6514	
==>_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6187	6311	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9157	9281	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6187	6311	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9157	9281	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6187	6311	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9157	9281	
==>tub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just ha <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2069	2161	
==>rs  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method code <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2069	2161	
==>rs  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method code <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2069	2161	
==>rs  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method code <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1595	1713	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3158	3276	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1595	1713	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3158	3276	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1595	1713	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3158	3276	
==>:PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is use <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	19251	19352	
==>s essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, w <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23803	23904	
==>s essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, w <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22319	22420	
==>s essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, w <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2894	3017	
==>./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2894	3017	
==>./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14156	14256	
==>(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3676	3789	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6612	6725	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3676	3789	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6612	6725	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3676	3789	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6612	6725	
==>nbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1803	1902	
==><< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1803	1902	
==><< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1803	1902	
==><< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1951	2090	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1063	1202	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1630	1769	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1951	2090	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1063	1202	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1630	1769	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1951	2090	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1063	1202	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1630	1769	
==>pt
        # params which are not included in the 
        # attributes. It will do nothing with them
        # but it will allow them to ex <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	161	304	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3215	3358	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	286	429	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1962	2105	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	161	304	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3215	3358	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	286	429	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1962	2105	
==>tart_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1229	1357	
==>ystem( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Con <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2156	2269	
==>ve . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $na <==
9	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	72	168	
==>port { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV< <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	72	168	
==>port { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV< <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	59	149	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	283	373	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	59	149	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	283	373	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	59	149	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	283	373	
==>objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6868	7000	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7629	7761	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8499	8631	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10345	10477	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11106	11238	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11976	12108	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19309	19399	
==>==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19309	19399	
==>==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19309	19399	
==>==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3381	3523	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8666	8807	
==>k usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3640	3777	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10058	10195	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3640	3777	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10058	10195	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8363	8499	
==>k usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3754	3874	
==>= @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the fil <==
9	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3754	3874	
==>= @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the fil <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6531	6637	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7284	7390	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8148	8254	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10008	10114	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10761	10867	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11625	11731	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9100	9206	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9898	10004	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10807	10913	
==>tch the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6124	6247	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9094	9217	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6124	6247	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9094	9217	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6124	6247	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9094	9217	
==>b ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12618	12733	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12618	12733	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$t <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12618	12733	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	143	248	
==>ntainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	143	248	
==>ntainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data: <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	143	248	
==>ntainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4060	4163	
==>pe, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4060	4163	
==>pe, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # no <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4060	4163	
==>pe, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # no <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20560	20659	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20560	20659	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20560	20659	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   i <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4556	4677	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7205	7326	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4779	4897	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11228	11346	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4779	4897	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11228	11346	
==>delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        ret <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2954	3067	
==>e can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2954	3067	
==>e can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2954	3067	
==>e can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10590	10757	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8141	8308	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10590	10757	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8141	8308	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10590	10757	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8141	8308	
==>ck to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterato <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	156	305	
==>e => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$. <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	156	305	
==>e => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$. <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	156	305	
==>e => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$. <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6530	6642	
==>VAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* XXX Do <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4619	4712	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4866	4959	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4619	4712	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4866	4959	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4110	4202	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4365	4457	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4110	4202	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4365	4457	
==>take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2, <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	2650	2770	
==>l to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2650	2770	
==>l to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25740	25840	
==>is not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

= <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25740	25840	
==>is not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

= <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27902	27996	
==>$var_name! )>

This method returns the Message Variable value (a string) associated with
the va <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4671	4765	
==>nce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$l <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27902	27996	
==>$var_name! )>

This method returns the Message Variable value (a string) associated with
the va <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4671	4765	
==>nce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4671	4765	
==>nce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$l <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19118	19292	
==>yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19118	19292	
==>yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19118	19292	
==>yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36318	36411	
==>he values of those attributes differ and unioning
the remaining said tuple pairs, then elimina <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	38071	38164	
==>he
values of those attributes differ and unioning the remaining said tuple
pairs, then elimina <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40867	40960	
==>he values of those attributes differ and unioning
the remaining said tuple pairs, then elimina <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42620	42713	
==>he
values of those attributes differ and unioning the remaining said tuple
pairs, then elimina <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40481	40574	
==>he values of those attributes differ and unioning
the remaining said tuple pairs, then elimina <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42270	42363	
==>he
values of those attributes differ and unioning the remaining said tuple
pairs, then elimina <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6937	7051	
==>); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6937	7051	
==>); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6937	7051	
==>); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13404	13510	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10688	10794	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13404	13510	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10688	10794	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13404	13510	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10688	10794	
==>elf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_att <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10393	10555	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7944	8106	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10393	10555	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7944	8106	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10393	10555	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7944	8106	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stac <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5429	5579	
==>tart, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5429	5579	
==>tart, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5429	5579	
==>tart, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1991	2123	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1103	1235	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1670	1802	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1991	2123	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1103	1235	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1670	1802	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1991	2123	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1103	1235	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1670	1802	
==>ed in the 
        # attributes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submet <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7841	8071	
==>{ 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7841	8071	
==>{ 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7841	8071	
==>{ 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6409	6559	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8858	9008	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6409	6559	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8858	9008	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6409	6559	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8858	9008	
==>us list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9440	9550	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6987	7097	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9440	9550	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6987	7097	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9440	9550	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6987	7097	
==>q ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2658	2758	
==>too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2658	2758	
==>too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2658	2758	
==>too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1 <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	13066	13178	
==>e exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16543	16655	
==>e exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both source <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15905	16017	
==>e exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both source <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24409	24501	
==>ating objects from its member classes, usually invoking C<new()> on
the appropriate class nam <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20451	20543	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22041	22133	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9314	9406	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24409	24501	
==>ating objects from its member classes, usually invoking C<new()> on
the appropriate class nam <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25003	25095	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23573	23665	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22041	22133	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9314	9406	
==>ating objects from its member classes, usually invoking C<new()> on the
appropriate class nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24650	24760	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26839	26949	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24650	24760	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26839	26949	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24650	24760	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26839	26949	
==>};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1278	1375	
==>g the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::T <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1278	1375	
==>g the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::T <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1825	1922	
==>g the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::T <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12178	12305	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3800	3927	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12178	12305	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3800	3927	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12178	12305	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3800	3927	
==>'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6903	7028	
==>'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6903	7028	
==>'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6903	7028	
==>'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6 <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3404	3553	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8689	8837	
==>ub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3661	3805	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10079	10223	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3661	3805	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10079	10223	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8384	8527	
==>ub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24628	24721	
==>KeyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedTe <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24628	24721	
==>KeyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedTe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8234	8361	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5793	5920	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8234	8361	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5793	5920	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8234	8361	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5793	5920	
==>es and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4104	4216	
==>0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_state <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4953	5065	
==>0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_state <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	4236	4337	
==>->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17783	17960	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15003	15180	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17783	17960	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15003	15180	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17783	17960	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15003	15180	
==>1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3221	3328	
==>oro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3221	3328	
==>oro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3221	3328	
==>oro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1887	2032	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	999	1144	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1566	1711	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1887	2032	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	999	1144	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1566	1711	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1887	2032	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	999	1144	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1566	1711	
==>{
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. It will d <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4097	4208	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6746	6857	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4332	4440	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10781	10889	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4332	4440	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10781	10889	
==>s::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13040	13129	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-valu <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13040	13129	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-valu <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13040	13129	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-valu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10382	10536	
==>y[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10382	10536	
==>y[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10382	10536	
==>y[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19748	19869	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16887	17008	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19748	19869	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16887	17008	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19748	19869	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16887	17008	
==>eturn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($l <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3316	3443	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6252	6379	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3316	3443	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6252	6379	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3316	3443	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6252	6379	
==>nding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	856	965	
==>ode has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      ret <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	856	965	
==>ode has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      ret <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	856	965	
==>ode has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      ret <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5721	5847	
==>class' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10032	10158	
==>class' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	272	367	
==>2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	272	367	
==>2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH( <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	272	367	
==>2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH( <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22073	22166	
==>ick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/wh <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20954	21047	
==>ick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/wh <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22073	22166	
==>ick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/wh <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20954	21047	
==>ick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/wh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11057	11211	
==>mp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11057	11211	
==>mp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11057	11211	
==>mp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4	100	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4	100	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4	100	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4	99	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4	99	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4	99	
==>sr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_ <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45649	45811	
==>ew(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4173	4309	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7109	7245	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4173	4309	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7109	7245	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4173	4309	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7109	7245	
==>arent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subrou <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10726	10835	
==>rget
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int iscapture
    .local string subname <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20563	20660	
==>ept alarm bind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7703	7859	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5262	5418	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7703	7859	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5262	5418	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7703	7859	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5262	5418	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1391	1547	
==>:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then j <==
9	/Users/nnunley/pugs/blib6/lib/Tree.pm	11635	11736	
==>eate a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E <==
9	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11635	11736	
==>eate a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6291	6387	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6659	6755	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6291	6387	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6659	6755	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8488	8584	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8856	8952	
==>overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details o <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2579	2674	
==>rint "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2719	2814	
==>rint "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7508	7598	
==>%:methods.exists($label);
}

(method has_method ((opaque $self:) (symbol $label)) returns b <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22917	23074	
==>ture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pref <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23196	23353	
==>ture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pref <==
9	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9828	9934	
==>d>

<body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http:/ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6564	6685	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9013	9134	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6564	6685	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9013	9134	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6564	6685	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9013	9134	
==>not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sli <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3194	3280	
==>%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3194	3280	
==>%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3194	3280	
==>%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12117	12262	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3739	3884	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12117	12262	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3739	3884	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12117	12262	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3739	3884	
==>ie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6843	6985	
==>ie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6843	6985	
==>ie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6843	6985	
==>ie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell') <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	4518	4659	
==>{
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $. <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	5177	5318	
==>{
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $. <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4518	4659	
==>{
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $. <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5177	5318	
==>{
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $. <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26548	26642	
==>in Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method cre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1278	1372	
==>$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS:: <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26548	26642	
==>in Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method cre <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1278	1372	
==>$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS:: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1278	1372	
==>$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS:: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6374	6508	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8823	8957	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6374	6508	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8823	8957	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6374	6508	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8823	8957	
==>ate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8322	8436	
==>PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8322	8436	
==>PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8322	8436	
==>PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL: <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13146	13275	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13146	13275	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13146	13275	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5386	5515	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3886	4015	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2031	2160	
==>ay\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	44	142	
==>air, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	44	142	
==>air, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value:: <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	44	142	
==>air, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value:: <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1888	2002	
==>ethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1888	2002	
==>ethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1356	1454	
==>blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1356	1454	
==>blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1356	1454	
==>blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8382	8474	
==>FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	94	186	
==>FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8382	8474	
==>FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8382	8474	
==>FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	884	993	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	972	1081	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	884	993	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	972	1081	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	884	993	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	972	1081	
==>gs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1969	2076	
==>HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1969	2076	
==>HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1969	2076	
==>HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12535	12646	
==>] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12535	12646	
==>] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12535	12646	
==>] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	194	292	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	135	233	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	194	292	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	135	233	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	194	292	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	135	233	
==>According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul)  <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10874	11060	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2539	2725	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4353	4539	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10874	11060	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2539	2725	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4353	4539	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10874	11060	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2539	2725	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4353	4539	
==>ss => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16621	16724	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13826	13929	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16621	16724	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13826	13929	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16621	16724	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13826	13929	
==>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4708	4807	
==>ead_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4708	4807	
==>ead_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4708	4807	
==>ead_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wr <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2168	2271	
==>e, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2168	2271	
==>e, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is <==
9	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13251	13349	
==>$self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $self->reduce($t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	765	865	
==>S does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecla <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	765	865	
==>S does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecla <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	765	865	
==>S does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecla <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4465	4563	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7401	7499	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4465	4563	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7401	7499	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4465	4563	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7401	7499	
==>y ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4886	5031	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7822	7967	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4886	5031	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7822	7967	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4886	5031	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7822	7967	
==>it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12467	12575	
==>' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) }, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12467	12575	
==>' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) }, <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12467	12575	
==>' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) }, <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11240	11357	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2356	2473	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7450	7567	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11240	11357	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2356	2473	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7450	7567	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.de <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8461	8568	
==>.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.foot <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	659	754	
==>.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.foot <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	659	754	
==>.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.foot <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11620	11754	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3132	3266	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11620	11754	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3132	3266	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11620	11754	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3132	3266	
==>n this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8073	8198	
==>n this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8073	8198	
==>n this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8073	8198	
==>n this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11118	11296	
==>to-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11118	11296	
==>to-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11118	11296	
==>to-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9734	9846	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12707	12819	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9734	9846	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12707	12819	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9734	9846	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12707	12819	
==>r use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class ob <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	588	706	
==>function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26ma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	588	706	
==>function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26ma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	588	706	
==>function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26ma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7836	7935	
==>l

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2942	3041	
==>function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26ma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2942	3041	
==>function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26ma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2942	3041	
==>function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26ma <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7836	7935	
==>l

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7836	7935	
==>l

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24725	24824	
==>indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20764	20863	
==>indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22339	22438	
==>indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9625	9724	
==>indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24725	24824	
==>indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25316	25415	
==>indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23904	24003	
==>indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22339	22438	
==>indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9625	9724	
==>indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoke <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5604	5713	
==>red { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5604	5713	
==>red { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5604	5713	
==>red { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7666	7766	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6796	6896	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3382	3482	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3382	3482	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7666	7766	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6796	6896	
==>member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or suc <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17591	17703	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8172	8284	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14811	14923	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17591	17703	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8172	8284	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14811	14923	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17591	17703	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8172	8284	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14811	14923	
==>ned $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^\&( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9239	9346	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6786	6893	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9239	9346	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6786	6893	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9239	9346	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6786	6893	
==>r eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':b <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9521	9610	
==>TI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_r <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9521	9610	
==>TI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_r <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9521	9610	
==>TI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9824	9949	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10805	10930	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12276	12401	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13301	13426	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14282	14407	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15753	15878	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12573	12698	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13581	13706	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15106	15231	
==>cient to do different.
    if ($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so do <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3771	3881	
==>y) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3771	3881	
==>y) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4361	4471	
==>y) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9589	9696	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7136	7243	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9589	9696	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7136	7243	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9589	9696	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7136	7243	
==>self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1087	1231	
==>urrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1087	1231	
==>urrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1087	1231	
==>urrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $curr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2568	2683	
==>ain_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.t <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2568	2683	
==>ain_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.t <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2568	2683	
==>ain_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1405	1505	
==>onal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1405	1505	
==>onal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1614	1714	
==>onal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3990	4079	
==>--------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## -------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4013	4102	
==>---------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4036	4125	
==>----
## BEGIN BOOTSTRAPPING AREA
## ------------------------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3990	4079	
==>--------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## -------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4013	4102	
==>---------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4036	4125	
==>----
## BEGIN BOOTSTRAPPING AREA
## ------------------------------------------------------ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3990	4079	
==>--------------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## -------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4013	4102	
==>---------------------------
## BEGIN BOOTSTRAPPING AREA
## ------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4036	4125	
==>----
## BEGIN BOOTSTRAPPING AREA
## ------------------------------------------------------ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14970	15114	
==>e::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14970	15114	
==>e::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $re <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14970	15114	
==>e::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $re <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2990	3086	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6004	6100	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8072	8168	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2990	3086	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6004	6100	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8072	8168	
==>ir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool` <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4572	4683	
==>mber of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"reg <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	53	145	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rose <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3020	3154	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5821	5955	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3020	3154	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5821	5955	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3020	3154	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5821	5955	
==>"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8680	8800	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8680	8800	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8680	8800	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8621	8773	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11594	11746	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8621	8773	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11594	11746	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8621	8773	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11594	11746	
==>l we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	785	915	
==>ect") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	785	915	
==>ect") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::< <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	785	915	
==>ect") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::< <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6104	6211	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9074	9181	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6104	6211	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9074	9181	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6104	6211	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9074	9181	
==>a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6: <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26473	26571	
==>ore references to other objects in them if you wish.

=back

This is the main Message constructor m <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26473	26571	
==>ore references to other objects in them if you wish.

=back

This is the main Message constructor m <==
9	/Users/nnunley/pugs/util/drift.pl	50	140	
==>le::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12800	12958	
==>$_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12800	12958	
==>$_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (d <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12800	12958	
==>$_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	98	200	
==>$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	98	200	
==>$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	98	200	
==>$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4719	4818	
==>...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {.. <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4719	4818	
==>...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {.. <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4719	4818	
==>...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {.. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12548	12698	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14430	14580	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12548	12698	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14430	14580	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12548	12698	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14430	14580	
==>{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12627	12739	
==>b firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12627	12739	
==>b firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12627	12739	
==>b firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12092	12260	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12864	13032	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12092	12260	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12864	13032	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12092	12260	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12864	13032	
==>res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	592	689	
==>new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	592	689	
==>new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	592	689	
==>new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18357	18479	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8627	8749	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15595	15717	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18357	18479	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8627	8749	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15595	15717	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18357	18479	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8627	8749	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15595	15717	
==>robably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2485	2618	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2485	2618	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        ( <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2485	2618	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        ( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	565	690	
==>instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque in <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	565	690	
==>instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque in <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	565	690	
==>instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque in <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2515	2629	
==>d: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expecte <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2515	2629	
==>d: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expecte <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2595	2709	
==>d: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expecte <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20115	20246	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17254	17385	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20115	20246	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17254	17385	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20115	20246	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17254	17385	
==>e Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupli <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3694	3812	
==>Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
n <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3694	3812	
==>Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
n <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	544	662	
==>Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5717	5822	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8687	8792	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5717	5822	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8687	8792	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5717	5822	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8687	8792	
==>tead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs bel <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4	99	
==>le Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class T <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4	99	
==>le Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class T <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	84	179	
==>le Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class T <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	13322	13432	
==>oper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16799	16909	
==>oper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16161	16271	
==>oper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15021	15114	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12275	12368	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15021	15114	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12275	12368	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15021	15114	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12275	12368	
==>($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15723	15866	
==>Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15723	15866	
==>Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15723	15866	
==>Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20444	20583	
==>Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20444	20583	
==>Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20444	20583	
==>Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe w <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2337	2458	
==>_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2337	2458	
==>_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25400	25503	
==>y matches.]
 *
 * [In fact, we now use regmust in many cases to locate where the search
 * starts in the <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6714	6847	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7475	7608	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8345	8478	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10191	10324	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10952	11085	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11822	11955	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9301	9434	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10107	10240	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11022	11155	
==>{

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not match the <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	341	440	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1204	1303	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2179	2278	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	341	440	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1204	1303	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2179	2278	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	341	440	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1204	1303	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2179	2278	
==>} elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24690	24799	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26879	26988	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24690	24799	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26879	26988	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24690	24799	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26879	26988	
==>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1821	1924	
==>jects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRI <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1821	1924	
==>jects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRI <==
9	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9157	9256	
==>es {
    my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_switches( $Test::Harnes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9169	9279	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6716	6826	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9169	9279	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6716	6826	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9169	9279	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6716	6826	
==>($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	61	162	
==>nings;
use Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21755	21852	
==>new user message in
one of their own resource files.  At some appropriate place, usually in the
ma <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21755	21852	
==>new user message in
one of their own resource files.  At some appropriate place, usually in the
ma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4821	4973	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5782	5934	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4821	4973	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5782	5934	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4821	4973	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5782	5934	
==>},
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3523	3618	
==>pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3523	3618	
==>pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  P <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3523	3618	
==>pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  P <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	5633	5814	
==>ap { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25416	25596	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27611	27791	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25416	25596	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27611	27791	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25416	25596	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27611	27791	
==>tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self-> <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5560	5694	
==>, \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = su <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5753	5887	
==>, \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11653	11777	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3165	3289	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11653	11777	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3165	3289	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11653	11777	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3165	3289	
==>proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.di <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8101	8219	
==>proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8101	8219	
==>proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.di <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8101	8219	
==>proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.di <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8838	8981	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6391	6534	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8838	8981	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6391	6534	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8838	8981	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6391	6534	
==>f->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2492	2598	
==>cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2492	2598	
==>cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2492	2598	
==>cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4131	4239	
==>ned $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clon <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4131	4239	
==>ned $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clon <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4131	4239	
==>ned $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clon <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13295	13388	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4465	4558	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8921	9014	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13295	13388	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4465	4558	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8921	9014	
==>atements or Perl archive indexes.  Aside from
'use' statements, you should never refer directl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10173	10293	
==>turn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10173	10293	
==>turn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10173	10293	
==>turn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25596	25684	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27791	27879	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25596	25684	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27791	27879	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25596	25684	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27791	27879	
==>>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @star <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8809	8970	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6362	6523	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8809	8970	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6362	6523	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8809	8970	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6362	6523	
==>sses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instanc <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1931	2036	
==>_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1931	2036	
==>_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2011	2116	
==>_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	910	1026	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	998	1114	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	910	1026	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	998	1114	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	910	1026	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	998	1114	
==>sif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      pu <==
9	/Users/nnunley/pugs/util/importgraph.pl	2501	2597	
==>$name, color => ($module->[1] ? 'green' : 'black'),
    (defined $cluster ? (cluster => $cluster) <==
9	/Users/nnunley/pugs/blib6/lib/CGI.pm	9922	10016	
==>ms}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOA <==
9	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9922	10016	
==>ms}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOA <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1403	1524	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2966	3087	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1403	1524	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2966	3087	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1403	1524	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2966	3087	
==>f the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical v <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2805	2912	
==>true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pair <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2805	2912	
==>true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pair <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2805	2912	
==>true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pair <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3226	3391	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4032	4197	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1973	2138	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3226	3391	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4032	4197	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1973	2138	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2512	2653	
==>= $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnin <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2512	2653	
==>= $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnin <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2512	2653	
==>= $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnin <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12028	12158	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3539	3669	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12028	12158	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3539	3669	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12028	12158	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3539	3669	
==>arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8459	8583	
==>arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8459	8583	
==>arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8459	8583	
==>arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.leng <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4529	4630	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7465	7566	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4529	4630	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7465	7566	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4529	4630	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7465	7566	
==>blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2706	2800	
==>PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retv <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2706	2800	
==>PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retv <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2706	2800	
==>PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retv <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24710	24833	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26899	27022	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24710	24833	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26899	27022	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24710	24833	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26899	27022	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3452	3563	
==>eturn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDe <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3452	3563	
==>eturn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDe <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3452	3563	
==>eturn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12279	12455	
==>lse {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scala <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12279	12455	
==>lse {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scala <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12279	12455	
==>lse {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scala <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2121	2248	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1233	1360	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2121	2248	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1233	1360	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2121	2248	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1233	1360	
==>methods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10123	10245	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12764	12886	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13600	13722	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16241	16363	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12881	13003	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15603	15725	
==>ult is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have iden <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1053	1170	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1053	1170	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1053	1170	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7092	7243	
==>=   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                r <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7092	7243	
==>=   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                r <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7092	7243	
==>=   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1442	1539	
==>_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1442	1539	
==>_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1442	1539	
==>_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3182	3270	
==>r($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3182	3270	
==>r($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3182	3270	
==>r($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	9854	9972	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10835	10953	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12306	12424	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13331	13449	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14312	14430	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15783	15901	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12603	12721	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13611	13729	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15136	15254	
==>($!body.size() == 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        retu <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3641	3744	
==>$two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *in <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3641	3744	
==>$two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *in <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	4515	4617	
==>$two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *in <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4515	4617	
==>$two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *in <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	26026	26119	
==>ethod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs! <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30578	30671	
==>ethod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs! <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29553	29646	
==>ethod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs! <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20800	20891	
==>->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string. <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20800	20891	
==>->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13217	13348	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14952	15083	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13217	13348	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14952	15083	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13217	13348	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14952	15083	
==>{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34266	34378	
==>ft;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34266	34378	
==>ft;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34266	34378	
==>ft;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2342	2457	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4669	4784	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2342	2457	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4669	4784	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2342	2457	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4669	4784	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attri <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5517	5607	
==>noistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Build <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5517	5607	
==>noistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Build <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7714	7804	
==>noistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Build <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2000	2208	
==>) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when ' <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2000	2208	
==>) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1006	1106	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1518	1618	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1006	1106	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1518	1618	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1006	1106	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1518	1618	
==>add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

met <==
9	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21131	21213	
==>[C|B0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	686	814	
==>ue instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	686	814	
==>ue instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	686	814	
==>ue instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6807	6920	
==>l',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'p <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6807	6920	
==>l',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'p <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3706	3819	
==>l',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1440	1538	
==>ossibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1440	1538	
==>ossibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1440	1538	
==>ossibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6563	6682	
==>eturn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not war <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6563	6682	
==>eturn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not war <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6563	6682	
==>eturn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not war <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9378	9484	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6925	7031	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9378	9484	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6925	7031	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9378	9484	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6925	7031	
==>= $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $sel <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11140	11262	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12611	12733	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14617	14739	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16088	16210	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13925	14047	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15450	15572	
==>one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7831	7942	
==>isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7831	7942	
==>isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_man <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7831	7942	
==>isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_man <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3115	3237	
==>y add types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    n <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1347	1453	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1347	1453	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1086	1191	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1811	1916	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2071	2176	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1086	1191	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1811	1916	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2071	2176	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2251	2412	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1363	1524	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1927	2088	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2251	2412	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1363	1524	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1927	2088	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2251	2412	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1363	1524	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1927	2088	
==>do this, ideally
            # we would peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it .. <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24727	24842	
==>dicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20766	20881	
==>dicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
r <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22341	22456	
==>dicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
r <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9627	9742	
==>dicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply r <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24727	24842	
==>dicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25318	25433	
==>dicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23906	24021	
==>dicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
r <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22341	22456	
==>dicates a failure is to throw an exception;
most often this is due to invalid input.  If an invoked routine simply
r <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9627	9742	
==>dicates a failure is to throw an
exception; most often this is due to invalid input.  If an invoked routine
simply r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4187	4307	
==>0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4187	4307	
==>0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $sel <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4187	4307	
==>0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $sel <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1292	1403	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2855	2966	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1292	1403	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2855	2966	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1292	1403	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2855	2966	
==>Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25377	25572	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26035	26230	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28817	29012	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25656	25851	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26314	26509	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29096	29291	
==>1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ru <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18233	18345	
==>cable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18233	18345	
==>cable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { conf <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18233	18345	
==>cable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { conf <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24530	24696	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26719	26885	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24530	24696	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26719	26885	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24530	24696	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26719	26885	
==>RINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	605	711	
==>gs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	605	711	
==>gs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	605	711	
==>gs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7266	7388	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4825	4947	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7266	7388	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4825	4947	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7266	7388	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4825	4947	
==>sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyse <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9208	9315	
==>nt = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_la <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9208	9315	
==>nt = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_la <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9208	9315	
==>nt = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_la <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6605	6826	
==>die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just retur <==
9	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7069	7290	
==>die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just retur <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2921	3096	
==>ol (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role Re <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25358	25480	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26016	26138	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28798	28920	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25637	25759	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26295	26417	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29077	29199	
==>eop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10021	10177	
==>@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6para <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10021	10177	
==>@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6para <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10021	10177	
==>@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6para <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4313	4437	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4313	4437	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4313	4437	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4811	4932	
==>\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub co <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4811	4932	
==>\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub co <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4811	4932	
==>\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub co <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18112	18206	
==>atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
M <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18112	18206	
==>atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
M <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18112	18206	
==>atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
M <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9137	9226	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4280	4369	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	15716	15805	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9137	9226	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4280	4369	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15716	15805	
==>art_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logic <==
9	/Users/nnunley/pugs/src/perl6/Prelude.pm	12112	12210	
==>erous. Uses the shell.
    # Please remember to update t/pugsrun/11-safemode.t if you change the fu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7754	7861	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10677	10784	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7754	7861	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10677	10784	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7754	7861	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10677	10784	
==>SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be over <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3390	3483	
==>within the
Test::Builder framework. The class itself is actually a factory for
classes which C <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3390	3483	
==>within the
Test::Builder framework. The class itself is actually a factory for
classes which C <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5587	5680	
==>within the
Test::Builder framework. The class itself is actually a factory for
classes which C <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12996	13123	
==>')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::C <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12996	13123	
==>')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::C <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12996	13123	
==>')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::C <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15433	15543	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12689	12799	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15433	15543	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12689	12799	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15433	15543	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12689	12799	
==>$params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5504	5618	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8474	8588	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5504	5618	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8474	8588	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5504	5618	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8474	8588	
==>same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12432	12541	
==>str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unb <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12432	12541	
==>str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unb <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12432	12541	
==>str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unb <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7349	7470	
==>$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLVa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7349	7470	
==>$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLVa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7349	7470	
==>$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLVa <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5536	5645	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3656	3765	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5536	5645	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3656	3765	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5536	5645	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3656	3765	
==>nless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_su <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1324	1429	
==>ub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    u <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1324	1429	
==>ub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    u <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1324	1429	
==>ub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    u <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1819	1919	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1705	1805	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5032	5128	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4905	5001	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	719	815	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6569	6665	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5172	5268	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5155	5251	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	719	815	
==>/dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4640	4804	
==>e .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_sou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4640	4804	
==>e .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_sou <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4640	4804	
==>e .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_sou <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1296	1409	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2859	2972	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1296	1409	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2859	2972	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1296	1409	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2859	2972	
==>tions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19172	19278	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16410	16516	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19172	19278	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16410	16516	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19172	19278	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16410	16516	
==>ough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$la <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	658	754	
==>lf->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	658	754	
==>lf->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	658	754	
==>lf->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26010	26164	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28211	28365	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26010	26164	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28211	28365	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26010	26164	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28211	28365	
==>}
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scal <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1851	1943	
==>::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1851	1943	
==>::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1851	1943	
==>::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28779	28905	
==>.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retur <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28779	28905	
==>.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retur <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28779	28905	
==>.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retur <==
9	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	749	853	
==>lf = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l <==
9	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	650	754	
==>lf = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	4543	4640	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3670	3767	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	480	577	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	480	577	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4543	4640	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3670	3767	
==>erence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Se <==
9	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8157	8251	
==>Part>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart> <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9069	9170	
==>:Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9069	9170	
==>:Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9069	9170	
==>:Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4609	4707	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7545	7643	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4609	4707	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7545	7643	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4609	4707	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7545	7643	
==>ethod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_wi <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2631	2781	
==>$1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2934	3073	
==>$1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2934	3073	
==>$1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1803	1920	
==>tom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    }, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1803	1920	
==>tom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    }, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1803	1920	
==>tom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    }, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5513	5612	
==>possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5513	5612	
==>possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5513	5612	
==>possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	190	305	
==>_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n) <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	154	268	
==>_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n) <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	242	356	
==>_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4622	4719	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7558	7655	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4622	4719	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7558	7655	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4622	4719	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7558	7655	
==>method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Disp <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	140	230	
==>l6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	140	230	
==>l6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	140	230	
==>l6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19357	19470	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4837	4950	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16589	16702	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19357	19470	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4837	4950	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16589	16702	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19357	19470	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4837	4950	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16589	16702	
==>my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label | <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35286	35424	
==>array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35286	35424	
==>array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35286	35424	
==>array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13617	13733	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10901	11017	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13617	13733	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10901	11017	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13617	13733	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10901	11017	
==>_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for <==
9	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1898	1993	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	528	623	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1666	1761	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13974	14069	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1898	1993	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	528	623	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1666	1761	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13974	14069	
==><fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21947	22040	
==>ass() is deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresented as C<{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8569	8732	
==>re whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8569	8732	
==>re whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8569	8732	
==>re whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4448	4597	
==>ndef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4448	4597	
==>ndef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4448	4597	
==>ndef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    s <==
9	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1201	1295	
==><simple_term> }

rule repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8374	8467	
==>' => sub { 
 '&Foo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::si <==
9	/Users/nnunley/pugs/misc/Blondie/milner.pl	25982	26074	
==>::operator::arrow->new(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($type->stringi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7392	7522	
==>ss1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7392	7522	
==>ss1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7392	7522	
==>ss1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12655	12764	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10206	10315	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12655	12764	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10206	10315	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12655	12764	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10206	10315	
==>tcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    re <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9154	9415	
==>efinitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5514	5775	
==>efinitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6363	6624	
==>efinitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3371	3465	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6385	6479	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8453	8547	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3371	3465	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6385	6479	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8453	8547	
==>bs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20568	20698	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17707	17837	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20568	20698	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17707	17837	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20568	20698	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17707	17837	
==>DE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5166	5284	
==>DE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5166	5284	
==>DE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5166	5284	
==>DE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1886	2019	
==>h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1886	2019	
==>h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, ' <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1886	2019	
==>h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, ' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4718	4845	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2905	3032	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4718	4845	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2905	3032	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4718	4845	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2905	3032	
==>s_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2289	2425	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1401	1537	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1965	2101	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2289	2425	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1401	1537	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1965	2101	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2289	2425	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1401	1537	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1965	2101	
==>d peek into the instance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this wi <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13260	13375	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18143	18258	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13260	13375	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18143	18258	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13260	13375	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18143	18258	
==>METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localiz <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3535	3641	
==>:doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3535	3641	
==>:doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3535	3641	
==>:doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24688	24797	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26877	26986	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24688	24797	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26877	26986	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24688	24797	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26877	26986	
==>->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$se <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1036	1126	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1036	1126	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1036	1126	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($ <==
9	/Users/nnunley/pugs/util/catalog_tests.pl	15963	16096	
==>{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $lin <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1453	1556	
==>it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex id <==
9	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1453	1556	
==>it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex id <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5530	5624	
==>local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0] <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5530	5624	
==>local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0] <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5530	5624	
==>local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0] <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17450	17541	
==>ow we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17450	17541	
==>ow we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17450	17541	
==>ow we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20598	20710	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17737	17849	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20598	20710	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17737	17849	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20598	20710	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17737	17849	
==>wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5192	5296	
==>wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5192	5296	
==>wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5192	5296	
==>wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $v <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3663	3789	
==>genClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3663	3789	
==>genClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3663	3789	
==>genClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $na <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5900	6011	
==>hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reve <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5900	6011	
==>hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reve <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5900	6011	
==>hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reve <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10299	10407	
==>eturn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_s <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13776	13884	
==>eturn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_s <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13057	13165	
==>eturn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19908	20051	
==>HROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $oth <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19908	20051	
==>HROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $oth <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19908	20051	
==>HROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $oth <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36329	36422	
==>f those attributes differ and unioning
the remaining said tuple pairs, then eliminating any re <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	38082	38175	
==>f those attributes differ and unioning the remaining said tuple
pairs, then eliminating any re <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40878	40971	
==>f those attributes differ and unioning
the remaining said tuple pairs, then eliminating any re <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42631	42724	
==>f those attributes differ and unioning the remaining said tuple
pairs, then eliminating any re <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40492	40585	
==>f those attributes differ and unioning
the remaining said tuple pairs, then eliminating any re <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42281	42374	
==>f those attributes differ and unioning the remaining said tuple
pairs, then eliminating any re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17588	17700	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8169	8281	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14808	14920	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17588	17700	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8169	8281	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14808	14920	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17588	17700	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8169	8281	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14808	14920	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label =~ /^ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17522	17635	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4457	4570	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8103	8216	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17522	17635	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4457	4570	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8103	8216	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17522	17635	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4457	4570	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8103	8216	
==>'FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Can <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1134	1270	
==>cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$doma <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1134	1270	
==>cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$doma <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8162	8291	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5721	5850	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8162	8291	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5721	5850	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8162	8291	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5721	5850	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1850	1979	
==>nd;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canid <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	818	928	
==>rted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	818	928	
==>rted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	818	928	
==>rted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2182	2284	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11050	11152	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12009	12111	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2375	2477	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11329	11431	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12288	12390	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::iden <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12916	13080	
==>$conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' tabl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12916	13080	
==>$conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' tabl <==
9	/Users/nnunley/pugs/util/grokprims.pl	532	646	
==>Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $as <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3372	3475	
==>not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a metho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3372	3475	
==>not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a metho <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3372	3475	
==>not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2516	2610	
==>g(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "St <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2516	2610	
==>g(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "St <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2516	2610	
==>g(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "St <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11581	11739	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3093	3251	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11581	11739	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3093	3251	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11581	11739	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3093	3251	
==>E(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH();

        if(!(arr in <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8038	8183	
==>E(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8038	8183	
==>E(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8038	8183	
==>E(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH();

      if(!(arr in <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1013	1140	
==>i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Ap <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1013	1140	
==>i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Ap <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1013	1140	
==>i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Ap <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3271	3363	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11829	11921	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6396	6488	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3271	3363	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11829	11921	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6396	6488	
==>_assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4411	4531	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7060	7180	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4638	4755	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11087	11204	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4638	4755	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11087	11204	
==>pture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	797	895	
==>o
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper sup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	797	895	
==>o
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper sup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	797	895	
==>o
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper sup <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11912	12056	
==>l( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8194	8338	
==>l( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9028	9172	
==>l( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5887	5995	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4007	4115	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5887	5995	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4007	4115	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5887	5995	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4007	4115	
==>superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12112	12317	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12884	13089	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12112	12317	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12884	13089	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12112	12317	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12884	13089	
==>);
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6011	6134	
==>+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n) <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6011	6134	
==>+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n) <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6011	6134	
==>+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n) <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1294	1427	
==>e or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files lis <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	252	363	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	250	361	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	252	363	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	250	361	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	252	363	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	250	361	
==>tance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6 <==
9	/Users/nnunley/pugs/blib6/lib/Span.pm	6086	6190	
==>nly applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

me <==
9	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6086	6190	
==>nly applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9003	9133	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11976	12106	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9003	9133	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11976	12106	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9003	9133	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11976	12106	
==>ethods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14315	14406	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14315	14406	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$ <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14315	14406	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3766	3882	
==>udepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Coul <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3766	3882	
==>udepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Coul <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3766	3882	
==>udepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Coul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2554	2669	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4881	4996	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2554	2669	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4881	4996	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2554	2669	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4881	4996	
==>$name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::St <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7298	7400	
==>e {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7298	7400	
==>e {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7298	7400	
==>e {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  re <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	10227	10325	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12868	12966	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13704	13802	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16345	16443	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12985	13083	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15707	15805	
==>h sources have identical headings; result is src intersection.
        return $?SELF!_intersection( <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25100	25195	
==>nd deterministic,
such that all of its class and object methods will each return the same
result <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	22337	22432	
==>nd deterministic, such that all of its class
and object methods will each return the same result <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11231	11326	
==>nd deterministic,
such that all of its class and object methods will each return the same
result <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14504	14599	
==>nd deterministic, such that all of its class and
object methods will each return the same result <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25100	25195	
==>nd deterministic,
such that all of its class and object methods will each return the same
result <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26889	26984	
==>nd deterministic, such that all of its class
and object methods will each return the same result <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25612	25707	
==>nd deterministic, such that all of its class
and object methods will each return the same result <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11231	11326	
==>nd deterministic,
such that all of its class and object methods will each return the same
result <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14504	14599	
==>nd deterministic, such that all of its class and
object methods will each return the same result <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4254	4387	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6903	7036	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4485	4614	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10934	11063	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4485	4614	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10934	11063	
==>%$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn " <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4391	4502	
==>eturn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes fo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4391	4502	
==>eturn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes fo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4391	4502	
==>eturn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes fo <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8156	8295	
==>at( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $n <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7876	8007	
==>at( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9123	9252	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12096	12225	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9123	9252	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12096	12225	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9123	9252	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12096	12225	
==>SA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::M <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	227	342	
==>gc;
}


sub match_scalar { }


sub match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->ad <==
9	/Users/nnunley/pugs/examples/hop6/Parser.pm	432	565	
==>e concatenate star list_of 
#                 operator T 
#                 error action test);
# %EXPORT_TAGS = ('all' => \@EXPORT_OK <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3738	3868	
==>t submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3750	3880	
==>t submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2614	2725	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2614	2725	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2614	2725	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4953	5061	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4953	5061	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4953	5061	
==>d('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WAL <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2030	2152	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1142	1264	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2030	2152	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1142	1264	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2030	2152	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1142	1264	
==>l do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_inst <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1309	1402	
==>s([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::R <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1309	1402	
==>s([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::R <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1309	1402	
==>s([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::R <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11881	12028	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3392	3539	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11881	12028	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3392	3539	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11881	12028	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3392	3539	
==>var i = 0; i < arr.length; i++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8318	8459	
==>var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8318	8459	
==>var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_a <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8318	8459	
==>var i = 0; i < arr.length; i++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41168	41265	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13556	13653	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9348	9445	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41168	41265	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13556	13653	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9348	9445	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41168	41265	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13556	13653	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9348	9445	
==>..


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18702	18838	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15940	16076	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18702	18838	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15940	16076	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18702	18838	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15940	16076	
==>riables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2645	2780	
==>ude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## requir <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2862	2997	
==>ude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## requir <==
9	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	873	996	
==>4;
	    return;
	} elsif ( $chr eq "\\") {
	    print "\\textbackslash{}";
	    return;
	} elsif ($chr =~ /\^/) {
	    print <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1749	1932	
==>ars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_n <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1749	1932	
==>ars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_n <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7730	7867	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5289	5426	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7730	7867	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5289	5426	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7730	7867	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5289	5426	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1418	1555	
==>t as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16331	16496	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21048	21213	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16331	16496	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21048	21213	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16331	16496	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21048	21213	
==>che', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NO <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1612	1725	
==>x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } e <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1612	1725	
==>x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } e <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1612	1725	
==>x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } e <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6780	6907	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7541	7668	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8411	8538	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10257	10384	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11018	11145	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11888	12015	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9367	9494	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10173	10300	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11088	11215	
==>ne given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r2!hea <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1620	1744	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2201	2325	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1620	1744	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2201	2325	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2996	3114	
==>our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2996	3114	
==>our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	905	1012	
==>xed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - r <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	905	1012	
==>xed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - r <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	905	1012	
==>xed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1815	1926	
==>g " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1815	1926	
==>g " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $d <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1815	1926	
==>g " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $d <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2287	2393	
==>(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2287	2393	
==>(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2287	2393	
==>(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4251	4352	
==>t if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->i <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4251	4352	
==>t if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->i <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4841	4942	
==>t if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8276	8404	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5835	5963	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8276	8404	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5835	5963	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8276	8404	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5835	5963	
==>atches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4647	4743	
==>d().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alre <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4647	4743	
==>d().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alre <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4647	4743	
==>d().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8701	8812	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6254	6365	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8701	8812	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6254	6365	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8701	8812	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6254	6365	
==>re linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4609	4702	
==>(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4609	4702	
==>(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_met <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4609	4702	
==>(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20486	20611	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17625	17750	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20486	20611	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17625	17750	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20486	20611	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17625	17750	
==>it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_s <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2392	2491	
==>defined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2392	2491	
==>defined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code. <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2392	2491	
==>defined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code. <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4888	5027	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5849	5988	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6977	7116	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4888	5027	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5849	5988	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6977	7116	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4888	5027	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5849	5988	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6977	7116	
==>nt' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$value ) },
            'decre <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6096	6226	
==>=> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6096	6226	
==>=> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6096	6226	
==>=> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::O <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3073	3190	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6066	6183	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3347	3458	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9765	9876	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3347	3458	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9765	9876	
==>shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternat <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24762	24861	
==>ception; most often this is due to invalid input.  If an invoked routine
simply returns, you can ass <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20801	20900	
==>ception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can ass <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22376	22475	
==>ception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can ass <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9662	9761	
==>ception; most often this is due to invalid input.  If an invoked routine
simply returns, you can ass <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24762	24861	
==>ception; most often this is due to invalid input.  If an invoked routine
simply returns, you can ass <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25353	25452	
==>ception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can ass <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23941	24040	
==>ception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can ass <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22376	22475	
==>ception;
most often this is due to invalid input.  If an invoked routine simply
returns, you can ass <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9662	9761	
==>ception; most often this is due to invalid input.  If an invoked routine
simply returns, you can ass <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12153	12298	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3775	3920	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12153	12298	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3775	3920	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12153	12298	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3775	3920	
==>->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie },
            'tied' =>     sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6878	7021	
==>->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6878	7021	
==>->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6878	7021	
==>->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie },
            'tied' =>    sub { _('$:cell')->{tied} },

             # See perl <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4295	4416	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6944	7065	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4525	4643	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10974	11092	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4525	4643	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10974	11092	
==>ch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4192	4289	
==>pply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4192	4289	
==>pply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) { <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4192	4289	
==>pply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4526	4644	
==>y->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4526	4644	
==>y->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4526	4644	
==>y->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	992	1088	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1504	1600	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	992	1088	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1504	1600	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	992	1088	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1504	1600	
==>ew PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2806	2930	
==>nt pops_left;
    SV* perl_callback;
    I32 ret;
    IV matched;
    U32 start;
    int newstr;

    if(stringarg-strbeg < 0 <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	154	261	
==>",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Dat <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	154	261	
==>",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Dat <==
9	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	154	261	
==>",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Dat <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14161	14265	
==>ervername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "N <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14161	14265	
==>ervername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "N <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12828	12916	
==>xception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12828	12916	
==>xception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12828	12916	
==>xception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6659	6781	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9629	9751	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6659	6781	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9629	9751	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6659	6781	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9629	9751	
==>erl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @ <==
9	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	91	209	
==>$char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must ch <==
9	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	91	209	
==>$char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must ch <==
9	/Users/nnunley/pugs/util/gen_prelude.pl	5496	5600	
==>or latter runs of pugs to pick up and load quickly.

Additional options:
    --verbose, -v     print prog <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14603	14707	
==>able} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*E <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14603	14707	
==>able} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*E <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14603	14707	
==>able} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*E <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20267	20446	
==>ems = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Cont <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20267	20446	
==>ems = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Cont <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20267	20446	
==>ems = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Cont <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5336	5494	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                ret <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5752	5910	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5348	5506	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                ret <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5764	5922	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                ret <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7661	7759	
==>channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7661	7759	
==>channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event <==
9	/Users/nnunley/pugs/blib6/lib/Set.pm	7084	7185	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6214	6315	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2868	2969	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2868	2969	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7084	7185	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6214	6315	
==>l {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	25206	25298	
==>returns a Bool indicating whether the immutable identity of the
argument C<$other> equals the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29758	29850	
==>returns a Bool indicating whether the immutable identity of the
argument C<$other> equals the <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28688	28780	
==>returns a Bool indicating whether the immutable identity of the
argument C<$other> equals the <==
9	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3696	4082	
==>.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $ <==
9	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3696	4082	
==>.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5012	5141	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7661	7790	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5219	5342	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11668	11791	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5219	5342	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11668	11791	
==>ed by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $ <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7460	7561	
==>ow is this useful?
# =head2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib fil <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9571	9695	
==>, target, pos, lastpos
    $S0 = substr target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $I0 + 1
    goto e <==
9	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	130	243	
==>e::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    retur <==
9	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	130	243	
==>e::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    retur <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25107	25202	
==>rministic,
such that all of its class and object methods will each return the same
result and/or <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11238	11333	
==>rministic,
such that all of its class and object methods will each return the same
result and/or <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14511	14606	
==>rministic, such that all of its class and
object methods will each return the same result and/or <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25107	25202	
==>rministic,
such that all of its class and object methods will each return the same
result and/or <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11238	11333	
==>rministic,
such that all of its class and object methods will each return the same
result and/or <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14511	14606	
==>rministic, such that all of its class and
object methods will each return the same result and/or <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1870	1984	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3433	3547	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1870	1984	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3433	3547	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1870	1984	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3433	3547	
==>d are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very u <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2311	2419	
==>for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2311	2419	
==>for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$ <==
9	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2658	2766	
==>for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$ <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6608	6722	
==>urpy/ }
END
    foreach my $pkg (keys %used) {
	next if $created{$pkg};
	$code .= "package $pkg;\n";
    }
    #pri <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2872	2972	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10795	10895	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2214	2314	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5997	6097	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2872	2972	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10795	10895	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2214	2314	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5997	6097	
==>eyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7883	7991	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10806	10914	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7883	7991	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10806	10914	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7883	7991	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10806	10914	
==>e_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13246	13346	
==>eta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13246	13346	
==>eta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13246	13346	
==>eta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self- <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	56	158	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	767	869	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1890	1992	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	56	158	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	767	869	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1890	1992	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	56	158	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	767	869	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1890	1992	
==>) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9141	9250	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6688	6797	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9141	9250	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6688	6797	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9141	9250	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6688	6797	
==>order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preor <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1040	1129	
==>Model_w_Roles.pl

$::Role = undef;

## --------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1040	1129	
==>Model_w_Roles.pl

$::Role = undef;

## --------------------------------------------------- <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1040	1129	
==>Model_w_Roles.pl

$::Role = undef;

## --------------------------------------------------- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7888	8038	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7888	8038	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7888	8038	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4952	5100	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4952	5100	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4952	5100	
==>ue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $ <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	38418	38513	
==>>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CON <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42967	43062	
==>>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CON <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42617	42712	
==>>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CON <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7145	7292	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7413	7560	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7145	7292	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7413	7560	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7145	7292	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7413	7560	
==>n 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tm <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37843	37969	
==>> [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scala <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37843	37969	
==>> [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scala <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37843	37969	
==>> [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scala <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12495	12644	
==>her(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12495	12644	
==>her(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unle <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12495	12644	
==>her(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unle <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3951	4057	
==>re_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3951	4057	
==>re_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3951	4057	
==>re_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $ <==
9	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	144	247	
==>key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    p <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	144	247	
==>key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    p <==
9	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2844	2946	
==>do{my \$__v__ ; my($tmpvars); { local($vars)=($vars); \$__v__ = do{ ";
}
sub let_end {
  my $e = shift( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15998	16115	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20715	20832	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15998	16115	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20715	20832	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15998	16115	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20715	20832	
==>aram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_na <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7389	7498	
==>p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    r <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7389	7498	
==>p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    r <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7389	7498	
==>p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30243	30376	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31972	32105	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30243	30376	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31972	32105	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30243	30376	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31972	32105	
==>== Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8193	8302	
==>and {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
} <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8193	8302	
==>and {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
} <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8193	8302	
==>and {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
} <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4076	4176	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6725	6825	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4311	4409	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10760	10858	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4311	4409	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10760	10858	
==>f ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2655	2748	
==>block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2655	2748	
==>block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefi <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2655	2748	
==>block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefi <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3095	3226	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6088	6219	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3368	3492	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9786	9910	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3368	3492	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9786	9910	
==>ional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        no <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1060	1174	
==>5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{pe <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1892	2002	
==>5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{pe <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2032	2142	
==>5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{pe <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24404	24499	
==>y creating objects from its member classes, usually invoking C<new()> on
the appropriate class n <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	20446	20541	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22036	22131	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9309	9404	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24404	24499	
==>y creating objects from its member classes, usually invoking C<new()> on
the appropriate class n <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24998	25093	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23568	23663	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22036	22131	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9309	9404	
==>y
creating objects from its member classes, usually invoking C<new()> on the
appropriate class n <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2876	2976	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10799	10899	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6001	6101	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2876	2976	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10799	10899	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6001	6101	
==>Text::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4031	4118	
==>lass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4031	4118	
==>lass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:nam <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4031	4118	
==>lass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:nam <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12493	12590	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1004	1101	
==>infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub in <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10044	10141	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1004	1101	
==>infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub in <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1004	1101	
==>infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub in <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12493	12590	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10044	10141	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12493	12590	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10044	10141	
==>s;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12024	12149	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3535	3660	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12024	12149	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3535	3660	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12024	12149	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3535	3660	
==>kup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8455	8574	
==>kup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8455	8574	
==>kup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8455	8574	
==>kup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4333	4454	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6982	7103	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4562	4680	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11011	11129	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4562	4680	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11011	11129	
==>ime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dum <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	582	682	
==>key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * adde <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	582	682	
==>key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * adde <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	582	682	
==>key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * adde <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9823	9961	
==>lasses = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\ <==
9	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9823	9961	
==>lasses = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\ <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2137	2244	
==>spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{s <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14832	14930	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12086	12184	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14832	14930	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12086	12184	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14832	14930	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12086	12184	
==>attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an a <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16016	16153	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20733	20870	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16016	16153	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20733	20870	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16016	16153	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20733	20870	
==>ultimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1411	1513	
==>e"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1411	1513	
==>e"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
} <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1411	1513	
==>e"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14217	14419	
==>::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14217	14419	
==>::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchabl <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14217	14419	
==>::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchabl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6025	6161	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8995	9131	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6025	6161	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8995	9131	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6025	6161	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8995	9131	
==>";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retu <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11219	11429	
==>( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rul <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7501	7711	
==>( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rul <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8335	8545	
==>( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rul <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5452	5566	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3572	3686	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5452	5566	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3572	3686	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5452	5566	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3572	3686	
==>es) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'AR <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6567	6695	
==>n m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6567	6695	
==>n m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        wa <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6567	6695	
==>n m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        wa <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4167	4291	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6816	6940	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4400	4521	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10849	10970	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4400	4521	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10849	10970	
==>h->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10261	10405	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7812	7956	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10261	10405	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7812	7956	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10261	10405	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7812	7956	
==>rator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_ <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5261	5355	
==>>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attri <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5261	5355	
==>>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attri <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7458	7552	
==>>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attri <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15194	15317	
==>lems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]- <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15194	15317	
==>lems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]- <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15194	15317	
==>lems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]- <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12449	12551	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10000	10102	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12449	12551	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10000	10102	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12449	12551	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10000	10102	
==>ass) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11909	12037	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3420	3548	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11909	12037	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3420	3548	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11909	12037	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3420	3548	
==>++) {
          backup_arr[i]        = new PIL2JS.Box;
          backup_arr[i].FETCH  = arr[i].FETCH;
          backup_arr[i].STO <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8346	8468	
==>++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8346	8468	
==>++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STO <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8346	8468	
==>++) {
        backup_arr[i]        = new PIL2JS.Box;
        backup_arr[i].FETCH  = arr[i].FETCH;
        backup_arr[i].STO <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	118	225	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	113	220	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	118	225	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	113	220	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	118	225	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	113	220	
==>ess keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  re <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	550	657	
==>tive() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must deal with Inf and NaN
    no warnin <==
9	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3405	3504	
==>ith the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying tha <==
9	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3405	3504	
==>ith the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying tha <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12045	12168	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3556	3679	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12045	12168	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3556	3679	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12045	12168	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3556	3679	
==>rr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8476	8593	
==>rr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8476	8593	
==>rr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8476	8593	
==>rr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) { <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44758	45028	
==>ck->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ------- <==
9	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	71	189	
==>tr $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_ty <==
9	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	71	189	
==>tr $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_ty <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8741	8849	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6294	6402	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8741	8849	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6294	6402	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8741	8849	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6294	6402	
==>$_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclas <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20547	20671	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17686	17810	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20547	20671	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17686	17810	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20547	20671	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17686	17810	
==>&& ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } 
        ::opaque_instance_attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5145	5257	
==>&& ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5145	5257	
==>&& ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5145	5257	
==>&& ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } 
    ::opaque_instance_attr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15135	15255	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19833	19953	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15135	15255	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19833	19953	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15135	15255	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19833	19953	
==>so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DE <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2960	3079	
==>turn;
    }

    return 1;
}

### these plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9643	9737	
==>le_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TE <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9643	9737	
==>le_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24787	24912	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26976	27101	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24787	24912	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26976	27101	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24787	24912	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26976	27101	
==>ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples | <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12992	13098	
==>ULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12992	13098	
==>ULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, i <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12992	13098	
==>ULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7821	7944	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10744	10867	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7821	7944	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10744	10867	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7821	7944	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10744	10867	
==>that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $m <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13159	13274	
==>anded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" . <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9345	9460	
==>anded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" . <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10181	10296	
==>anded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" . <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19181	19297	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
})) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19181	19297	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
})) <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19181	19297	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
})) <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25202	25298	
==>r make the same change to an object when the permutation of its
arguments and any invocant object <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11333	11429	
==>r make the same change to an object when the permutation of its
arguments and any invocant object <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14606	14702	
==>r make the same change
to an object when the permutation of its arguments and any invocant
object <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25202	25298	
==>r make the same change to an object when the permutation of its
arguments and any invocant object <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11333	11429	
==>r make the same change to an object when the permutation of its
arguments and any invocant object <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14606	14702	
==>r make the same change
to an object when the permutation of its arguments and any invocant
object <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11565	11781	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9118	9334	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11565	11781	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9118	9334	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11565	11781	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9118	9334	
==>stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF <==
9	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5001	5120	
==>,           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pL <==
9	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5001	5120	
==>,           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pL <==
9	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1905	2024	
==>,           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pL <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1841	1937	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1727	1823	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	5054	5146	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4927	5019	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	741	833	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6591	6683	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5194	5286	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5177	5269	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	741	833	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
9	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2074	2255	
==>m('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sy <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2608	2767	
==>cription' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                de <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4735	4842	
==>$cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arra <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4735	4842	
==>$cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arra <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4735	4842	
==>$cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arra <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9535	9642	
==>}
  
  method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.repor <==
9	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4035	4141	
==>$cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arra <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1632	1731	
==>}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.repor <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1632	1731	
==>}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.repor <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25691	25825	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27886	28020	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25691	25825	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27886	28020	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25691	25825	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27886	28020	
==>";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3511	3612	
==>er of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what yo <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3511	3612	
==>er of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what yo <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3591	3692	
==>er of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what yo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8616	8784	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6169	6337	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8616	8784	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6169	6337	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8616	8784	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6169	6337	
==>rge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6151	6254	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6151	6254	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6151	6254	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3868	4016	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6804	6952	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3868	4016	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6804	6952	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3868	4016	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6804	6952	
==>ly wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # N <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2807	2910	
==>n "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = sh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2807	2910	
==>n "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = sh <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2807	2910	
==>n "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = sh <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5573	5692	
==>erFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5573	5692	
==>erFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5573	5692	
==>erFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO: <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2148	2252	
==>ouble_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$r <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5909	6009	
==>t->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5909	6009	
==>t->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6608	6707	
==>heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Rel <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10085	10184	
==>heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Rel <==
9	/Users/nnunley/pugs/util/yaml_harness.pl	1376	1474	
==>rrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32|ms <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8120	8226	
==>ure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8120	8226	
==>ure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLA <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8120	8226	
==>ure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLA <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10178	10266	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10862	10950	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10178	10266	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10862	10950	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10178	10266	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10862	10950	
==>IL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[ <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4294	4424	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6184	6314	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8799	8929	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4294	4424	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4294	4424	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6184	6314	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8799	8929	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6184	6314	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8799	8929	
==>r'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2595	2732	
==>$y = 0;
        },   
        class => sub { \&Point },        
    };
}

my $p = new Point(5, 6);
is($p->class, \&Point, '... got the rig <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25431	25526	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	869	964	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24195	24290	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1994	2089	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25431	25526	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	869	964	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24195	24290	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1994	2089	
==>dify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4234	4395	
==>ody->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4234	4395	
==>ody->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4234	4395	
==>ody->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6760	6907	
==>ody->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6760	6907	
==>ody->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6760	6907	
==>ody->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method <==
9	/Users/nnunley/pugs/util/combine_tests.pl	1199	1341	
==>ents which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( key <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1759	1866	
==>$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]} <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1759	1866	
==>$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]} <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21670	21771	
==>espace [ "PGE::Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .local int isarray, is <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23230	23318	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1803	1891	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4094	4182	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1766	1854	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23230	23318	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1803	1891	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4094	4182	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1766	1854	
==>:KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these P <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17517	17630	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4452	4565	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8098	8211	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17517	17630	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4452	4565	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8098	8211	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17517	17630	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4452	4565	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8098	8211	
==>thod('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4401	4523	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7337	7459	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4401	4523	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7337	7459	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4401	4523	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7337	7459	
==>in
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $metho <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	27808	27904	
==>ns a
value that is optionally a calculation using original attribute values as
inputs.  As a triv <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32360	32456	
==>ns a
value that is optionally a calculation using original attribute values as
inputs.  As a triv <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31452	31548	
==>ns a
value that is optionally a calculation using original attribute values as
inputs.  As a triv <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5115	5262	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5115	5262	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5115	5262	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25365	25488	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26023	26146	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28805	28928	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25644	25767	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26302	26425	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29084	29207	
==>pture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2' <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9600	9710	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12573	12683	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9600	9710	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12573	12683	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9600	9710	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12573	12683	
==>method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curr <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3093	3195	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3093	3195	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3093	3195	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18722	18857	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15960	16095	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18722	18857	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15960	16095	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18722	18857	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15960	16095	
==>" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:na <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1471	1564	
==>ass.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1471	1564	
==>ass.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1471	1564	
==>ass.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3666	3822	
==>t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3666	3822	
==>t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3666	3822	
==>t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2911	3013	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5441	5543	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2911	3013	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5441	5543	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2911	3013	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5441	5543	
==>s copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2701	2818	
==>$class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless def <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2701	2818	
==>$class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless def <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2701	2818	
==>$class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless def <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	304	401	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifier <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	304	401	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifier <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	304	401	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifier <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	729	817	
==>lude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude:: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	729	817	
==>lude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude:: <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	729	817	
==>lude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude:: <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	6761	6902	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	7522	7663	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	8392	8533	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10238	10379	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10999	11140	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11869	12010	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9348	9489	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10154	10295	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11069	11210	
==>ading of at least one given relation in @others does"
                ~ " not match the heading of the invocant relation."
            if !($r <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3622	3736	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6558	6672	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3622	3736	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6558	6672	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3622	3736	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6558	6672	
==>e them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($met <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4400	4498	
==>sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4400	4498	
==>sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comma <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4400	4498	
==>sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comma <==
9	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3270	3429	
==>r )     and error($?), return;
                }
        
                ### set up the files
                for my $meth (qw[registered_alternatives_file ava <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21961	22073	
==>flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18382	18494	
==>flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	93	185	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	317	409	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	93	185	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	317	409	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	93	185	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	317	409	
==>f.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1 <==
9	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1376	1523	
==>ing;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" <==
9	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1376	1523	
==>ing;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1188	1285	
==>st
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1188	1285	
==>st
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1188	1285	
==>st
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5957	6048	
==>Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docume <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1153	1244	
==>Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docume <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5957	6048	
==>Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docume <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1153	1244	
==>Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docume <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6649	6771	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9619	9741	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6649	6771	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9619	9741	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6649	6771	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9619	9741	
==>thod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($m <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1288	1408	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1288	1408	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1288	1408	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17726	17844	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14946	15064	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17726	17844	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14946	15064	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17726	17844	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14946	15064	
==>ck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	396	495	
==>e {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	396	495	
==>e {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice( <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	396	495	
==>e {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice( <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2742	2863	
==>name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2742	2863	
==>name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2742	2863	
==>name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	28164	28260	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	29175	29271	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32716	32812	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33727	33823	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31826	31922	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32873	32969	
==>TODO.  This method has not yet been implemented.>

This method is a generic relational operator t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	123	229	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	118	224	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	123	229	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	118	224	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	123	229	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	118	224	
==>eys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1157	1257	
==>ugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1157	1257	
==>ugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1157	1257	
==>ugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8994	9135	
==>just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8994	9135	
==>just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8994	9135	
==>just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	662	787	
==>IL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	662	787	
==>IL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	662	787	
==>IL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PI <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3003	3110	
==>IL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3003	3110	
==>IL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PI <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3003	3110	
==>IL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PI <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2782	2887	
==>arp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $err, @args) = @_;
  local $sel <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23255	23350	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1828	1923	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4119	4214	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1791	1886	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23255	23350	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1828	1923	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4119	4214	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1791	1886	
==>cale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the cu <==
9	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13607	13730	
==>$S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr target, pos, 2
    if $S0 ! <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9544	9645	
==>thod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1392	1492	
==>func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1392	1492	
==>func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    r <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1392	1492	
==>func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    r <==
9	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3238	3337	
==>rameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

me <==
9	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3238	3337	
==>rameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

me <==
9	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1637	1734	
==>thod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_t <==
9	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1637	1734	
==>thod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_t <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5899	6087	
==>start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $star <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5899	6087	
==>start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $star <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5899	6087	
==>start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $star <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7178	7297	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4737	4856	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7178	7297	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4737	4856	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7178	7297	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4737	4856	
==>map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8523	8691	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6076	6244	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8523	8691	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6076	6244	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8523	8691	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6076	6244	
==>f => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	509	608	
==>ay, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	509	608	
==>ay, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf. <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	509	608	
==>ay, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf. <==
9	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	140	238	
==>s, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3379	3476	
==>l packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3379	3476	
==>l packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13214	13310	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4384	4480	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8840	8936	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13214	13310	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4384	4480	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8840	8936	
==>r this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7533	7670	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5092	5229	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7533	7670	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5092	5229	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7533	7670	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5092	5229	
==>eqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10197	10331	
==>>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10197	10331	
==>>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        } <==
9	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10197	10331	
==>>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4041	4151	
==>}
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4041	4151	
==>}
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is n <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4041	4151	
==>}
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is n <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2914	3009	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10837	10932	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6039	6134	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2914	3009	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10837	10932	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6039	6134	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2752	2852	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5400	5500	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2752	2852	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5400	5500	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2752	2852	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5400	5500	
==>ontainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_cont <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6546	6640	
==>t may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <sz <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6546	6640	
==>t may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <sz <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6546	6640	
==>t may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <sz <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3920	4033	
==>username, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a c <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3920	4033	
==>username, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a c <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3717	3825	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6653	6761	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3717	3825	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6653	6761	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3717	3825	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6653	6761	
==>d {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Me <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8841	8931	
==>ing metaclass method fails';

fails_ok { $iFoo->another_singleton_test_on_object } '... ins <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20608	20721	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17747	17860	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20608	20721	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17747	17860	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20608	20721	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17747	17860	
==>ge_sub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    } <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5202	5303	
==>ge_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5202	5303	
==>ge_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
} <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5202	5303	
==>ge_sub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
} <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6444	6561	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9414	9531	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6444	6561	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9414	9531	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6444	6561	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9414	9531	
==>& $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23375	23469	
==>onk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
mo <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41299	41393	
==>onk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
mo <==
9	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37325	37419	
==>onk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
mo <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	97	182	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	442	527	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	78	163	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	97	182	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	442	527	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	78	163	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	97	182	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	442	527	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	78	163	
==>ib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin) <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8696	8838	
==>ode assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14421	14563	
==>ode assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8696	8838	
==>ode assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14415	14557	
==>ode assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8436	8577	
==>ode assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13947	14088	
==>ode assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8436	8577	
==>ode assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13941	14082	
==>ode assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            r <==
9	/Users/nnunley/pugs/examples/algorithms/Newton.pm	338	456	
==>prime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500, <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1924	2043	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1036	1155	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1603	1722	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1924	2043	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1036	1155	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1603	1722	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1924	2043	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1036	1155	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1603	1722	
==>lt BUILD method should accept
        # params which are not included in the 
        # attributes. It will do nothing w <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4672	4814	
==>}    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4672	4814	
==>}    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DE <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4672	4814	
==>}    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DE <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23588	23701	
==>$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23588	23701	
==>$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23588	23701	
==>$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1866	1963	
==>.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1866	1963	
==>.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instan <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1866	1963	
==>.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instan <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7728	7865	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5287	5424	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7728	7865	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5287	5424	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7728	7865	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5287	5424	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1416	1553	
==>out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just re <==
9	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5266	5360	
==>DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5' <==
9	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5266	5360	
==>DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5' <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12001	12140	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3512	3651	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12001	12140	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3512	3651	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12001	12140	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3512	3651	
==>i].FETCH;
          backup_arr[i].STORE  = arr[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8434	8565	
==>i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8434	8565	
==>i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8434	8565	
==>i].FETCH;
        backup_arr[i].STORE  = arr[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i <==
9	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25088	25188	
==>ss is pure and deterministic,
such that all of its class and object methods will each return the same <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	22325	22425	
==>ss is pure and deterministic, such that all of its class
and object methods will each return the same <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11219	11319	
==>ss is pure and deterministic,
such that all of its class and object methods will each return the same <==
9	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14492	14592	
==>ss is pure and deterministic, such that all of its class and
object methods will each return the same <==
9	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25088	25188	
==>ss is pure and deterministic,
such that all of its class and object methods will each return the same <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26877	26977	
==>ss is pure and deterministic, such that all of its class
and object methods will each return the same <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25600	25700	
==>ss is pure and deterministic, such that all of its class
and object methods will each return the same <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11219	11319	
==>ss is pure and deterministic,
such that all of its class and object methods will each return the same <==
9	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14492	14592	
==>ss is pure and deterministic, such that all of its class and
object methods will each return the same <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7751	7902	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5310	5461	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7751	7902	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5310	5461	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7751	7902	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5310	5461	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1439	1590	
==>one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $n <==
9	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5989	6096	
==>::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::C <==
9	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5989	6096	
==>::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::C <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	11184	11297	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	12655	12768	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14661	14774	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16132	16245	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13969	14082	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15494	15607	
==>return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2265	2364	
==>s {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2265	2364	
==>s {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
9	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2265	2364	
==>s {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6330	6468	
==>s' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim <==
9	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6330	6468	
==>s' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim <==
9	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6330	6468	
==>s' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	36219	36314	
==>on,
then where each member of a tuple pair has attribute names in common,
eliminating pairs wher <==
9	/Users/nnunley/pugs/blib6/lib/Relation.pm	37972	38067	
==>on, then where each member of a
tuple pair has attribute names in common, eliminating pairs wher <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40768	40863	
==>on,
then where each member of a tuple pair has attribute names in common,
eliminating pairs wher <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42521	42616	
==>on, then where each member of a
tuple pair has attribute names in common, eliminating pairs wher <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40382	40477	
==>on,
then where each member of a tuple pair has attribute names in common,
eliminating pairs wher <==
9	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42171	42266	
==>on, then where each member of a
tuple pair has attribute names in common, eliminating pairs wher <==
9	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12161	12264	
==>ust call back to the
  original comp and exec (not implemented).  The C hooks call for the
  sub hooks i <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25416	25511	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	854	949	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24180	24275	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1979	2074	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25416	25511	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	854	949	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24180	24275	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1979	2074	
==>te it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> f <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12083	12215	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3705	3837	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12083	12215	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3705	3837	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12083	12215	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3705	3837	
==>->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_) },
            'untie' =>    sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6809	6939	
==>->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6809	6939	
==>->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie <==
9	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6809	6939	
==>->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_) },
            'untie' =>   sub { _('$:cell')->untie <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2569	2691	
==>$class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2569	2691	
==>$class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2569	2691	
==>$class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3097	3202	
==>s;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3097	3202	
==>s;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3097	3202	
==>s;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	100	200	
==>other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	100	200	
==>other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7762	7870	
==>);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $even <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7762	7870	
==>);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $even <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1524	1617	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1524	1617	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1524	1617	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	365	456	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	365	456	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	365	456	
==>PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{p <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1331	1467	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2297	2433	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1331	1467	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2297	2433	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1331	1467	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2297	2433	
==>ant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

: <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20515	20612	
==>uld be a wide variety of third party Engine
modules that become available over time.  One plan whi <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20515	20612	
==>uld be a wide variety of third party Engine
modules that become available over time.  One plan whi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36263	36357	
==>as attribute names in common,
eliminating pairs where the values of those attributes differ and <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38016	38110	
==>as attribute names in common, eliminating pairs where the
values of those attributes differ and <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40812	40906	
==>as attribute names in common,
eliminating pairs where the values of those attributes differ and <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42565	42659	
==>as attribute names in common, eliminating pairs where the
values of those attributes differ and <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40426	40520	
==>as attribute names in common,
eliminating pairs where the values of those attributes differ and <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42215	42309	
==>as attribute names in common, eliminating pairs where the
values of those attributes differ and <==
8	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	166	258	
==>> `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
us <==
8	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	319	411	
==>> `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
us <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	665	779	
==>obal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e eac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	665	779	
==>obal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e eac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	665	779	
==>obal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e eac <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	6350	6464	
==>obal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e eac <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23997	24102	
==>send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid l <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22770	22875	
==>send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid l <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23997	24102	
==>send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid l <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22770	22875	
==>send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4428	4532	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4652	4756	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4428	4532	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4652	4756	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4428	4532	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4652	4756	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3584	3688	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3952	4056	
==>, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>» <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6053	6182	
==>> chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "t <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6053	6182	
==>> chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7113	7232	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10083	10202	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7113	7232	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10083	10202	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7113	7232	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10083	10202	
==>to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	8297	8418	
==>span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return B <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8297	8418	
==>span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return B <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10766	10879	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15307	15420	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10766	10879	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15307	15420	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10766	10879	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15307	15420	
==>od_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@class <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9437	9547	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6984	7094	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9437	9547	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6984	7094	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9437	9547	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6984	7094	
==>r eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order e <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6166	6263	
==>ed split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mappin <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6166	6263	
==>ed split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mappin <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	669	782	
==>cription ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1628	1741	
==>class = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses} <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	669	782	
==>cription ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1628	1741	
==>class = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1628	1741	
==>class = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19683	19776	
==>) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19683	19776	
==>) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19683	19776	
==>) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	772	921	
==>urn {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no stric <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3557	3673	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8841	8957	
==>rk

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3809	3922	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10227	10340	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8531	8644	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3809	3922	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10227	10340	
==>rk
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	802	918	
==>ital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, ced <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	802	918	
==>ital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, ced <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1619	1721	
==>version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1619	1721	
==>version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1619	1721	
==>version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	126	227	
==>Script code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&d <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	126	227	
==>Script code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&d <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	126	227	
==>Script code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&d <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5145	5319	
==>' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11405	11537	
==>ol;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1 <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11399	11531	
==>ol;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3846	3957	
==>elf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $par <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3846	3957	
==>elf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $par <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3846	3957	
==>elf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $par <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	1776	1878	
==>o, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $de <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1834	1936	
==>o, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $de <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3376	3490	
==>terface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6G <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3593	3707	
==>terface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6G <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1325	1430	
==>b as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1325	1430	
==>b as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1325	1430	
==>b as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9326	9421	
==>ULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parr <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9326	9421	
==>ULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parr <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9326	9421	
==>ULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11313	11457	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8866	9010	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11313	11457	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8866	9010	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11313	11457	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8866	9010	
==>or
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_clas <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	15512	15607	
==>eturns Bool;

Because these functions will be mutually recursive, they will easily be
able handl <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15570	15665	
==>eturns Bool;

Because these functions will be mutually recursive, they will easily be
able handl <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3271	3380	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8556	8665	
==>non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6264	6371	
==>non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3533	3639	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9951	10057	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8256	8362	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3533	3639	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9951	10057	
==>non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stac <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13627	13809	
==>n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9811	9993	
==>n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10647	10829	
==>n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10977	11110	
==>ss_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10977	11110	
==>ss_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10977	11110	
==>ss_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2473	2600	
==>ainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #ret <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2379	2500	
==>ainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #ret <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	10308	10412	
==>E

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_chil <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10308	10412	
==>E

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_chil <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12547	12643	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10098	10194	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12547	12643	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10098	10194	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12547	12643	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10098	10194	
==>aque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1863	1979	
==>ng>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1863	1979	
==>ng>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1631	1745	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3194	3308	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1631	1745	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3194	3308	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1631	1745	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3194	3308	
==>ndef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CAL <==
8	/Users/nnunley/pugs/inc/Module/Install.pm	2223	2332	
==>~ s/^inc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3620	3823	
==>ned($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readlin <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3620	3823	
==>ned($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readlin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5132	5285	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8102	8255	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5132	5285	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8102	8255	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5132	5285	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8102	8255	
==>ssociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic meth <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17705	17852	
==>method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19463	19610	
==>method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39915	40061	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40974	41120	
==>method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28181	28275	
==>.

=item C<as_debug_string()>

This method returns a stringified version of this object which i <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35537	35631	
==>.

=item C<as_debug_string()>

This method returns a stringified version of this object which i <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28181	28275	
==>.

=item C<as_debug_string()>

This method returns a stringified version of this object which i <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35537	35631	
==>.

=item C<as_debug_string()>

This method returns a stringified version of this object which i <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6436	6563	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7189	7316	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8053	8180	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8834	8961	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9913	10040	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10666	10793	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11530	11657	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12311	12438	
==>returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4578	4716	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7090	7228	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4578	4716	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7090	7228	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4578	4716	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7090	7228	
==>eal distinction between the
                    # private class method or the private instance 
                    # method, maybe there s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4750	4877	
==>ing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ter <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4943	5070	
==>ing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ter <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6439	6544	
==>opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6439	6544	
==>opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6439	6544	
==>opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SE <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	4053	4156	
==>y )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The val <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4053	4156	
==>y )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The val <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	30912	31008	
==>n empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method ret <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35462	35558	
==>n empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method ret <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34653	34749	
==>n empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	139	252	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	137	250	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	139	252	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	137	250	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	139	252	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	137	250	
==>e Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque inst <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4139	4239	
==>e MultiLineNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
ru <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15726	15824	
==>orts is not
allowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
will s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18494	18629	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18773	18908	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rul <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25161	25257	
==>ds will each return the same
result and/or make the same change to an object when the permutation <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11292	11388	
==>ds will each return the same
result and/or make the same change to an object when the permutation <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14565	14661	
==>ds will each return the same result and/or make the same change
to an object when the permutation <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25161	25257	
==>ds will each return the same
result and/or make the same change to an object when the permutation <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11292	11388	
==>ds will each return the same
result and/or make the same change to an object when the permutation <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14565	14661	
==>ds will each return the same result and/or make the same change
to an object when the permutation <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23801	23954	
==>eturn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23801	23954	
==>eturn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23801	23954	
==>eturn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1914	2049	
==>ray {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1914	2049	
==>ray {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1914	2049	
==>ray {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23725	23813	
==>setta::Engine::Example> is bundled with Rosetta and
implements a reference implementation <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23725	23813	
==>setta::Engine::Example> is bundled with Rosetta and
implements a reference implementation <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1387	1506	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2950	3069	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1387	1506	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2950	3069	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1387	1506	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2950	3069	
==>haracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics t <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	548	643	
==>end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_clo <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	548	643	
==>end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_clo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12107	12314	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12879	13086	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12107	12314	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12879	13086	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12107	12314	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12879	13086	
==>( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($r <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	7295	7410	
==>= -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7295	7410	
==>= -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2557	2672	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4884	4999	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2557	2672	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4884	4999	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2557	2672	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4884	4999	
==>me)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubA <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24093	24199	
==>RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20514	20620	
==>RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	798	889	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1318	1409	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	798	889	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1318	1409	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	798	889	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1318	1409	
==>1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3205	3289	
==>er->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE(' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3391	3475	
==>er->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE(' <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	1208	1318	
==>c?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expect <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1266	1376	
==>c?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expect <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13273	13366	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4443	4536	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8899	8992	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13273	13366	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4443	4536	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8899	8992	
==>umentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you shou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18853	18995	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16091	16233	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18853	18995	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16091	16233	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18853	18995	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16091	16233	
==>'%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because ca <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	11681	11775	
==>cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on t <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11739	11833	
==>cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on t <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2585	2697	
==>" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInde <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2585	2697	
==>" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInde <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2585	2697	
==>" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInde <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5544	5650	
==>ode = shift;
		my $expected_type = shift;

		my $de_facto_type = $node->type;
		
		warn "attempting to unif <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12228	12325	
==>de object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in the <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16808	16905	
==>de object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12228	12325	
==>de object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in the <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16808	16905	
==>de object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5245	5366	
==>urpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $u <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5245	5366	
==>urpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $u <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5245	5366	
==>urpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $u <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1975	2082	
==>eturns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1975	2082	
==>eturns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1748	1852	
==>@array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1748	1852	
==>@array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1748	1852	
==>@array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26248	26445	
==>ify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26248	26445	
==>ify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26248	26445	
==>ify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3570	3679	
==>ar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infi <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3938	4047	
==>ar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39849	39947	
==>et, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new { <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39849	39947	
==>et, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new { <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39849	39947	
==>et, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new { <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3482	3580	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6496	6594	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8564	8662	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3482	3580	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6496	6594	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8564	8662	
==>e (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17776	17871	
==>nd this is
mapped to a user-readable message at some point.  For example, Oracle
databases often <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17776	17871	
==>nd this is
mapped to a user-readable message at some point.  For example, Oracle
databases often <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	1744	1869	
==>.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$he <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5221	5346	
==>.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$he <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4151	4276	
==>.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$he <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	122	227	
==>> $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	122	227	
==>> $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	122	227	
==>> $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak m <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9688	9783	
==>o override these
method _head() returns Array { return }
method _tail() returns Array { return } <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9688	9783	
==>o override these
method _head() returns Array { return }
method _tail() returns Array { return } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16066	16227	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20783	20944	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16066	16227	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20783	20944	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16066	16227	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20783	20944	
==>_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	31	128	
==>ubmethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	31	128	
==>ubmethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest> <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18441	18543	
==><login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18441	18543	
==><login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5421	5520	
==>etta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5421	5520	
==>etta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3511	3608	
==>layers on top of the object-oriented backend.

To use the Cipher API, you must first create an obj <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3511	3608	
==>layers on top of the object-oriented backend.

To use the Cipher API, you must first create an obj <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4322	4415	
==>mode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4322	4415	
==>mode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24447	24674	
==>am );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24447	24674	
==>am );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24447	24674	
==>am );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $ <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	837	955	
==>t Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Re <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	837	955	
==>t Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4491	4599	
==>same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4491	4599	
==>same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4491	4599	
==>same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($se <==
8	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2249	2386	
==>everse (; *@values) returns Lazy|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     } <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1013	1125	
==>( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[re <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13255	13352	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4425	4522	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8881	8978	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13255	13352	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4425	4522	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8881	8978	
==>d as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statem <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13121	13224	
==>rything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservern <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13121	13224	
==>rything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservern <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	779	886	
==>.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass th <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1150	1251	
==>.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	749	850	
==>.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass th <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1150	1251	
==>.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass th <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8222	8313	
==>section(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7352	7443	
==>section(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8222	8313	
==>section(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7352	7443	
==>section(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	1887	2012	
==>e = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---------------------- <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1887	2012	
==>e = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6917	7012	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6047	6142	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2701	2796	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2701	2796	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6917	7012	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6047	6142	
==>one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.incl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25101	25258	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27290	27447	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25101	25258	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27290	27447	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25101	25258	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27290	27447	
==>les ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->f <==
8	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13871	13983	
==>turn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $s <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1351	1463	
==>turn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $s <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18694	18805	
==>andler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fla <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15115	15226	
==>andler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fla <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30453	30564	
==>andler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fla <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2261	2353	
==>her = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2261	2353	
==>her = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2261	2353	
==>her = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1939	2029	
==>.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ra <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2028	2118	
==>.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ra <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	899	1013	
==>Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	899	1013	
==>Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	899	1013	
==>Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27848	27960	
==>def;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' +|([0-9]+|\\ <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5042	5151	
==>rite {
    my $self = shift;
    return $self unless $self->is_admin;
    $self->admin->write_meta;
    return <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2327	2424	
==>hes  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2327	2424	
==>hes  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2407	2504	
==>hes  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1597	1725	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2178	2306	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3648	3776	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1597	1725	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2178	2306	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3648	3776	
==>{
    # take a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2973	3095	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2973	3095	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	570	687	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	536	653	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	586	703	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	542	659	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	597	714	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	562	679	
==>ER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2189	2294	
==>ument';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2189	2294	
==>ument';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5994	6096	
==>>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}< <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5994	6096	
==>>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}< <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4249	4383	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6898	7032	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4480	4610	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10929	11059	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4480	4610	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10929	11059	
==>h2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #wa <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30402	30500	
==>rge, with each set member being an an exclusive alternative for the rest
of the set. There is a sep <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30402	30500	
==>rge, with each set member being an an exclusive alternative for the rest
of the set. There is a sep <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	667	810	
==>ri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	667	810	
==>ri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	181	285	
==>and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	189	293	
==>and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	181	285	
==>and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	189	293	
==>and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36674	36769	
==>onding to the Message could be
found using the Translator object's Set and Member properties; if <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36674	36769	
==>onding to the Message could be
found using the Translator object's Set and Member properties; if <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1883	2043	
==>epth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_el <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1883	2043	
==>epth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_el <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5039	5181	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6000	6142	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5039	5181	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6000	6142	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5039	5181	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6000	6142	
==>b { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7637	7767	
==>e = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{af <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11978	12108	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2437	2563	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9209	9335	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7379	7505	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2437	2563	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9209	9335	
==>e = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{af <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6012	6123	
==>bstr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5520	5634	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8490	8604	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5520	5634	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8490	8604	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5520	5634	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8490	8604	
==>constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This resu <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	502	601	
==>te_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	708	807	
==>te_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10255	10400	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7806	7951	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10255	10400	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7806	7951	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10255	10400	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7806	7951	
==>he iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cur <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6112	6244	
==>rammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6305	6437	
==>rammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3497	3627	
==>};
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8782	8911	
==>};

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3752	3878	
==>};
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10170	10296	
==>};
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3752	3878	
==>};
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10170	10296	
==>};
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8475	8600	
==>};
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flag <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	2344	2444	
==>riginal object they had
	# this lets us assign letters to them

	my @letters = split //, "αβγδε <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2168	2277	
==>,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term nam <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2179	2288	
==>,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term nam <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1428	1531	
==>} else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1428	1531	
==>} else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1428	1531	
==>} else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5244	5331	
==>_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5244	5331	
==>_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5244	5331	
==>_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class-> <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5070	5335	
==>" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:per <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5070	5335	
==>" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3652	3756	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4347	4451	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3652	3756	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4347	4451	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3652	3756	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4347	4451	
==>patcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12032	12131	
==>for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1153	1252	
==>1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12032	12131	
==>for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_h <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1153	1252	
==>1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_ <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1362	1461	
==>1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1163	1260	
==>auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1163	1260	
==>auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1163	1260	
==>auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9330	9472	
==>";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9318	9460	
==>";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1846	1945	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2189	2288	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1846	1945	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2189	2288	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1846	1945	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2189	2288	
==>n't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
. <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8633	8819	
==>& system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status d <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1783	1946	
==>& system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status d <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9457	9565	
==>to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9457	9565	
==>to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5009	5108	
==>Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4136	4235	
==>Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5009	5108	
==>Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4136	4235	
==>Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1069	1197	
==>b:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        site <==
8	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1069	1197	
==>b:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        site <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5876	5985	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3996	4105	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5876	5985	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3996	4105	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5876	5985	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3996	4105	
==>self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self = <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20653	20751	
==>foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fie <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20653	20751	
==>foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fie <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4934	5025	
==>space::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edit <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4934	5025	
==>space::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edit <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4934	5025	
==>space::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edit <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10995	11078	
==>houghts on Role state:
------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10995	11078	
==>houghts on Role state:
------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10995	11078	
==>houghts on Role state:
------------------------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19825	19925	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16964	17064	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19825	19925	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16964	17064	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19825	19925	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16964	17064	
==>s probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->is <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3972	4054	
==>ts/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/t <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3972	4054	
==>ts/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/t <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7908	8083	
==>rence ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "Th <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11385	11560	
==>rence ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "Th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4861	4999	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5822	5960	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4861	4999	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5822	5960	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4861	4999	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5822	5960	
==>str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$v <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3141	3274	
==>asses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3141	3274	
==>asses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3141	3274	
==>asses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "clas <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1008	1123	
==>body => 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&infix:<+>',
			body => ' <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5443	5549	
==>ol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bui <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5443	5549	
==>ol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bui <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7640	7746	
==>ol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bui <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5319	5410	
==>rn new_box('Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',(shift() <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	94	197	
==>unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	94	197	
==>unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	94	197	
==>unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	93	195	
==>unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	93	195	
==>unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	93	195	
==>unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24572	24664	
==>s published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24572	24664	
==>s published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7693	7807	
==>got template text for the message key, so
        # interpolate the message vars into it and return that.
        $ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7693	7807	
==>got template text for the message key, so
        # interpolate the message vars into it and return that.
        $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19557	19658	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16789	16890	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19557	19658	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16789	16890	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19557	19658	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16789	16890	
==>ace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1139	1260	
==>ef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1139	1260	
==>ef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1139	1260	
==>ef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fi <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	269	363	
==>rate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	814	908	
==>rate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	269	363	
==>rate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	814	908	
==>rate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	814	908	
==>rate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10818	10970	
==>ername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $i <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10818	10970	
==>ername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	442	555	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	662	775	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	442	555	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	662	775	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	442	555	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	662	775	
==>IL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ) <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2475	2582	
==>://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 | <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2475	2582	
==>://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 | <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4719	4822	
==>platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

su <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4719	4822	
==>platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

su <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	774	871	
==>de;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	774	871	
==>de;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws> <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6108	6203	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `cat <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8176	8271	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `cat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6108	6203	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `cat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8176	8271	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `cat <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46189	46338	
==>));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('add <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	379	492	
==>f->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13441	13535	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10725	10819	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13441	13535	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10725	10819	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13441	13535	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10725	10819	
==>(lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_metho <==
8	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1282	1398	
==>ion == 6
      ? 'blib6'
      : die "Perl version '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spe <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	768	879	
==>less (blessed($label) && $label->isa('str'));
    
    my $args = list->new($inv, @args);
    
    my $class = $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13527	13631	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10811	10915	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13527	13631	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10811	10915	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13527	13631	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10811	10915	
==>ass_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16014	16149	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20731	20866	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16014	16149	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20731	20866	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16014	16149	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20731	20866	
==>:Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1386	1482	
==>public), the current
time and the text they said is saved.

If the (optional) role parameter C<pu <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1386	1482	
==>public), the current
time and the text they said is saved.

If the (optional) role parameter C<pu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	845	960	
==>on ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        retu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	845	960	
==>on ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        retu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	845	960	
==>on ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16508	16609	
==>:yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unnee <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16508	16609	
==>:yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unnee <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16508	16609	
==>:yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unnee <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14358	14454	
==>n itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatte <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14358	14454	
==>n itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatte <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	764	860	
==>ram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	970	1066	
==>ram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36213	36307	
==>relation,
then where each member of a tuple pair has attribute names in common,
eliminating pai <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37966	38060	
==>relation, then where each member of a
tuple pair has attribute names in common, eliminating pai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40762	40856	
==>relation,
then where each member of a tuple pair has attribute names in common,
eliminating pai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42515	42609	
==>relation, then where each member of a
tuple pair has attribute names in common, eliminating pai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40376	40470	
==>relation,
then where each member of a tuple pair has attribute names in common,
eliminating pai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42165	42259	
==>relation, then where each member of a
tuple pair has attribute names in common, eliminating pai <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11078	11218	
==>eturn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11078	11218	
==>eturn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11078	11218	
==>eturn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    i <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2078	2172	
==>SECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
proble <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2078	2172	
==>SECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
proble <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1444	1531	
==>}
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1444	1531	
==>}
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1444	1531	
==>}
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4699	4825	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7635	7761	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4699	4825	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7635	7761	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4699	4825	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7635	7761	
==>ciated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wr <==
8	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1175	1283	
==>g{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) { <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1114	1216	
==>g{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) { <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2070	2229	
==>return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7013	7170	
==>return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 ma <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1841	1995	
==>return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1841	1995	
==>return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #ma <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6778	6930	
==>return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1101	1205	
==>gs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1101	1205	
==>gs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1101	1205	
==>gs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	39	169	
==>cape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	39	169	
==>cape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11717	11837	
==>);

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11717	11837	
==>);

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11717	11837	
==>);

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3326	3435	
==>link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $content <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3326	3435	
==>link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $content <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3326	3435	
==>link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $content <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18756	18929	
==>constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ru <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19035	19208	
==>constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ru <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20122	20253	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17261	17392	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20122	20253	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17261	17392	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20122	20253	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17261	17392	
==>ge normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7880	8024	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5439	5583	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7880	8024	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5439	5583	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7880	8024	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5439	5583	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1568	1712	
==>ast'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with ou <==
8	/Users/nnunley/pugs/util/livecd/mklivecd.pl	170	276	
==>ANSIColor qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $a <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3006	3137	
==>y $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3006	3137	
==>y $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8239	8367	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5798	5926	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8239	8367	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5798	5926	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8239	8367	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5798	5926	
==>d pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1476	1672	
==>s<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1476	1672	
==>s<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3240	3339	
==>al eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6365	6464	
==>al eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3240	3339	
==>al eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6365	6464	
==>al eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9740	9836	
==>y returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta: <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9740	9836	
==>y returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1954	2067	
==>tch->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1954	2067	
==>tch->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3139	3251	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5940	6052	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3139	3251	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5940	6052	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3139	3251	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5940	6052	
==>e Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4084	4210	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7020	7146	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4084	4210	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7020	7146	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4084	4210	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7020	7146	
==>same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside o <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2615	2733	
==>n( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res ) <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2615	2733	
==>n( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res ) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9109	9236	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12082	12209	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9109	9236	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12082	12209	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9109	9236	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12082	12209	
==>:StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod:: <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5296	5394	
==>);

Tells the cipher object to clear its internal state as completely as possible. 
This is automat <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5296	5394	
==>);

Tells the cipher object to clear its internal state as completely as possible. 
This is automat <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6214	6326	
==>TTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $conten <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6214	6326	
==>TTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $conten <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16232	16338	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20949	21055	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16232	16338	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20949	21055	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16232	16338	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20949	21055	
==>ft;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17678	17794	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14898	15014	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17678	17794	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14898	15014	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17678	17794	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14898	15014	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'i <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10419	10524	
==>!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handle <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10419	10524	
==>!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handle <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5500	5651	
==>_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5512	5663	
==>_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6770	6867	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5900	5997	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2554	2651	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2554	2651	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6770	6867	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5900	5997	
==>i sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25225	25319	
==>to an object when the permutation of its
arguments and any invocant object's attributes is iden <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11356	11450	
==>to an object when the permutation of its
arguments and any invocant object's attributes is iden <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14629	14723	
==>to an object when the permutation of its arguments and any invocant
object's attributes is iden <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	6207	6301	
==>ufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25225	25319	
==>to an object when the permutation of its
arguments and any invocant object's attributes is iden <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11356	11450	
==>to an object when the permutation of its
arguments and any invocant object's attributes is iden <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14629	14723	
==>to an object when the permutation of its arguments and any invocant
object's attributes is iden <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6207	6301	
==>ufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14779	14888	
==>opulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14779	14888	
==>opulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14779	14888	
==>opulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5781	5889	
==>);
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

met <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5781	5889	
==>);
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

met <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2076	2168	
==>r $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2076	2168	
==>r $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2076	2168	
==>r $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25144	25301	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27333	27490	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25144	25301	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27333	27490	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25144	25301	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27333	27490	
==>meric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7408	7508	
==>ove all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7408	7508	
==>ove all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4620	4724	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4867	4971	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4620	4724	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4867	4971	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4111	4214	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4366	4469	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4111	4214	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4366	4469	
==>ake index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10090	10245	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7641	7796	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10090	10245	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7641	7796	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10090	10245	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7641	7796	
==>ub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14540	14646	
==>ame
    $I0 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $I0 = <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2599	2702	
==>ulti Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqrt (  Nu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2272	2395	
==>GE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$de <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2272	2395	
==>GE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9234	9339	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6781	6886	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9234	9339	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6781	6886	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9234	9339	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6781	6886	
==>$order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5446	5568	
==>dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5446	5568	
==>dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11166	11287	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12637	12758	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14643	14764	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16114	16235	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13951	14072	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15476	15597	
==>d source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4596	4737	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7108	7249	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4596	4737	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7108	7249	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4596	4737	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7108	7249	
==>tween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am no <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1072	1199	
==>{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $f <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1039	1166	
==>{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $f <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10910	11021	
==>ve zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!head <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12381	12492	
==>ve zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!head <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14387	14498	
==>ve zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!head <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15858	15969	
==>ve zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!head <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2705	2807	
==>DO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2705	2807	
==>DO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2705	2807	
==>DO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramete <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7323	7420	
==>y $app = shift;

	my $rapp = $self->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_e <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	555	676	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	942	1063	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1335	1456	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	555	676	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	942	1063	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1335	1456	
==>rn Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $rem <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4810	4925	
==>rn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into clas <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4810	4925	
==>rn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into clas <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10161	10276	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12802	12917	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13638	13753	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16279	16394	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12919	13034	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15641	15756	
==>SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src i <==
8	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1656	1762	
==>go");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is only an expe <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	223	320	
==>TD);

=head1 METHODS

=head2 $repo = JIB::Repository->new(...);

Required arguments:

=over 4

=it <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9374	9481	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6921	7028	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9374	9481	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6921	7028	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9374	9481	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6921	7028	
==>her = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $ <==
8	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	467	570	
==>-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		retu <==
8	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	467	570	
==>-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		retu <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	30	144	
==>are
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm AP <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	30	144	
==>are
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm AP <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25207	25303	
==>e the same change to an object when the permutation of its
arguments and any invocant object's at <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11338	11434	
==>e the same change to an object when the permutation of its
arguments and any invocant object's at <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14611	14707	
==>e the same change
to an object when the permutation of its arguments and any invocant
object's at <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25207	25303	
==>e the same change to an object when the permutation of its
arguments and any invocant object's at <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11338	11434	
==>e the same change to an object when the permutation of its
arguments and any invocant object's at <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14611	14707	
==>e the same change
to an object when the permutation of its arguments and any invocant
object's at <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3240	3420	
==>->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler:: <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3240	3420	
==>->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler:: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	589	705	
==>r {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6107	6223	
==>r {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	589	705	
==>r {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6119	6235	
==>r {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13187	13279	
==>d in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_ <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13187	13279	
==>d in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2376	2501	
==>able
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{b <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9148	9273	
==>able
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{b <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2376	2501	
==>able
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{b <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9148	9273	
==>able
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{b <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	13592	13687	
==>ost useful when writing modules and you
find there is some language feature missing, or core bug <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13650	13745	
==>ost useful when writing modules and you
find there is some language feature missing, or core bug <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13488	13582	
==>in the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_u <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13488	13582	
==>in the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25687	25821	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27882	28016	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25687	25821	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27882	28016	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25687	25821	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27882	28016	
==>."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	516	618	
==>ub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   } <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	516	618	
==>ub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   } <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	13357	13467	
==>source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!he <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16834	16944	
==>source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!he <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16196	16306	
==>source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!he <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	377	477	
==>ine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
We <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	377	477	
==>ine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
We <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	377	477	
==>ine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
We <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	345	443	
==>CKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub n <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	345	443	
==>CKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub n <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	8894	9006	
==>the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent( <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8894	9006	
==>the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	962	1087	
==>num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "St <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	970	1090	
==>num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "St <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15663	15772	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15663	15772	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15663	15772	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20384	20489	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20384	20489	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20384	20489	
==>hods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24975	25184	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27164	27373	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24975	25184	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27164	27373	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24975	25184	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27164	27373	
==>efined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27875	28031	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28154	28310	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1294	1388	
==>gorithm is based on statistics. This was my main motivation to
implement it. Other rate limiter <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1294	1388	
==>gorithm is based on statistics. This was my main motivation to
implement it. Other rate limiter <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7364	7513	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4923	5072	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7364	7513	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4923	5072	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7364	7513	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4923	5072	
==>each my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $ <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8203	8347	
==>rse.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8203	8347	
==>rse.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	126	261	
==>load (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+' <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	168	303	
==>load (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	126	261	
==>load (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	168	303	
==>load (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35795	35917	
==>g -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ta <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35795	35917	
==>g -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ta <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35795	35917	
==>g -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ta <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5757	5844	
==>splay_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) unless defined $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2924	3031	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5454	5561	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2924	3031	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5454	5561	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2924	3031	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5454	5561	
==>ix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	802	903	
==>file) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	802	903	
==>file) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volu <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5377	5500	
==>, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flag <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11032	11155	
==>, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flag <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36328	36421	
==>of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38081	38174	
==>of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40877	40970	
==>of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42630	42723	
==>of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40491	40584	
==>of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42280	42373	
==>of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any r <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1641	1736	
==>can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1641	1736	
==>can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3269	3362	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11827	11920	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6394	6487	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3269	3362	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11827	11920	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6394	6487	
==>d _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	483	590	
==>efined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () r <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	483	590	
==>efined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12520	12621	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14402	14503	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12520	12621	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14402	14503	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12520	12621	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14402	14503	
==>self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}} <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	13724	13866	
==>$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start). <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7415	7550	
==>sh = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9392	9527	
==>sh = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7403	7538	
==>sh = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9380	9515	
==>sh = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3849	3979	
==>$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start). <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3849	3979	
==>$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start). <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3849	3979	
==>$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start). <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14803	14917	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19502	19616	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14803	14917	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19502	19616	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14803	14917	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19502	19616	
==>> 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; } <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5161	5273	
==>ks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan} <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5161	5273	
==>ks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5436	5551	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8406	8521	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5436	5551	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8406	8521	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5436	5551	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8406	8521	
==>etimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine ba <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26471	26568	
==>store references to other objects in them if you wish.

=back

This is the main Message constructo <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26471	26568	
==>store references to other objects in them if you wish.

=back

This is the main Message constructo <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3602	3727	
==>eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mo <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3602	3727	
==>eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5126	5251	
==>eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mo <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9738	9834	
==>ply returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosett <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9738	9834	
==>ply returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosett <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1515	1605	
==>function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1515	1605	
==>function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1515	1605	
==>function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9004	9102	
==>t static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failu <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8707	8803	
==>t static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failu <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25267	25361	
==>rguments and any invocant object's attributes is identical; they do not
interact with the outsi <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11398	11492	
==>rguments and any invocant object's attributes is identical; they do not
interact with the outsi <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14671	14765	
==>rguments and any invocant
object's attributes is identical; they do not interact with the outsi <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25267	25361	
==>rguments and any invocant object's attributes is identical; they do not
interact with the outsi <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11398	11492	
==>rguments and any invocant object's attributes is identical; they do not
interact with the outsi <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14671	14765	
==>rguments and any invocant
object's attributes is identical; they do not interact with the outsi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10873	10999	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!head <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12344	12470	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!head <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14350	14476	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!head <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15821	15947	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!head <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9892	10006	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!head <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13369	13483	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!head <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9084	9175	
==>parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9084	9175	
==>parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3063	3216	
==>turn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        w <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3063	3216	
==>turn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        w <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	543	653	
==>y ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3125	3307	
==>\$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                named => {},
                match => [],
            }, 'Pugs::Runtim <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3384	3514	
==>y_bindir = "$Site/$path/bin";
                last LINKING unless -d $my_bindir;

                ### load in the alternatives coll <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4283	4406	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6932	7055	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4513	4633	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10962	11082	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4513	4633	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10962	11082	
==>ture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6305	6403	
==>precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6305	6403	
==>precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9187	9281	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4330	4424	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15766	15860	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9187	9281	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4330	4424	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15766	15860	
==>d()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	849	956	
==>ule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our lo <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	849	956	
==>ule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our lo <==
8	/Users/nnunley/pugs/inc/Test/Harness.pm	6978	7079	
==>OTE> Currently this function is still noisy.  I'm working on it.

=cut

# Turns on autoflush for the h <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36877	36973	
==>Example contains only tuples that are in
exactly one of the source Relations.  This method has al <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1915	2007	
==>rr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1915	2007	
==>rr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1915	2007	
==>rr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retu <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9860	9944	
==>r(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_item(cha <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4301	4441	
==>ew( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DES <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4301	4441	
==>ew( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DES <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4301	4441	
==>ew( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DES <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1153	1250	
==>and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1153	1250	
==>and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1153	1250	
==>and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3188	3282	
==>eah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere el <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3075	3167	
==>eah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere el <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7162	7272	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4721	4831	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7162	7272	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4721	4831	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7162	7272	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4721	4831	
==>nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequenc <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15969	16063	
==>> response instead of
the document itself.

=item $h.last_modified

This header indicates the d <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15969	16063	
==>> response instead of
the document itself.

=item $h.last_modified

This header indicates the d <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1441	1580	
==>y $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $self->get_value('@:slo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	532	650	
==>>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	532	650	
==>>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	532	650	
==>>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3674	3779	
==>nal;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "i <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3674	3779	
==>nal;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "i <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	381	484	
==>html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.pr <==
8	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	381	484	
==>html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.pr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1447	1589	
==>rn;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        t <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1389	1524	
==>rn;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7767	7879	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10690	10802	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7767	7879	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10690	10802	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7767	7879	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10690	10802	
==>= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub :: <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23284	23379	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1857	1952	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4148	4243	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1820	1915	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23284	23379	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1857	1952	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4148	4243	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1820	1915	
==>essages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3333	3450	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11891	12008	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6458	6575	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3333	3450	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11891	12008	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6458	6575	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SE <==
8	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	872	964	
==>$expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descripti <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	872	964	
==>$expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descripti <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1887	1999	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3450	3562	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1887	1999	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3450	3562	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1887	1999	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3450	3562	
==>d 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    su <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	12531	12630	
==>d then pass the result to is or ok
on success, or report that the eval was not successful on failure <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12589	12688	
==>d then pass the result to is or ok
on success, or report that the eval was not successful on failure <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11162	11265	
==>t = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11162	11265	
==>t = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3895	4052	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6831	6988	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3895	4052	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6831	6988	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3895	4052	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6831	6988	
==>Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrap <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11522	11632	
==>lsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } e <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11522	11632	
==>lsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } e <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21068	21179	
==>@_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1) <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17489	17600	
==>@_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1) <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6615	6710	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5745	5840	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2399	2494	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2399	2494	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6615	6710	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5745	5840	
==>r_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7614	7759	
==>nd of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::L <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7614	7759	
==>nd of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::L <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6571	6700	
==>ems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6571	6700	
==>ems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6571	6700	
==>ems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3259	3362	
==>$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3259	3362	
==>$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3259	3362	
==>$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9140	9287	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12113	12260	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9140	9287	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12113	12260	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9140	9287	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12113	12260	
==>hod');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package P <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18106	18222	
==>or(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14527	14643	
==>or(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	155	263	
==>o strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	119	226	
==>o strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	207	314	
==>o strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper: <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	20624	20719	
==>utes are private, so you must use accessor
methods.  Relation does not declare any subroutines o <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25176	25271	
==>utes are private, so you must use accessor
methods.  Relation does not declare any subroutines o <==
8	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	176	261	
==>schmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::p <==
8	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	165	248	
==>schmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::p <==
8	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	132	215	
==>schmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2133	2241	
==>ETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obje <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2133	2241	
==>ETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obje <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2133	2241	
==>ETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obje <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1350	1448	
==>ould of
# course not help people running existent versions of perl5.  Perhaps
# because the challen <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9042	9138	
==>terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
ha <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9042	9138	
==>terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
ha <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9820	9912	
==>and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the eleme <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9820	9912	
==>and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the eleme <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15285	15410	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20018	20143	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15285	15410	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20018	20143	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15285	15410	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20018	20143	
==>is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            ret <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3387	3501	
==>isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.ne <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3387	3501	
==>isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.ne <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11080	11193	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8633	8746	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11080	11193	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8633	8746	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11080	11193	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8633	8746	
==>= $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12315	12408	
==>ored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
correspo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12315	12408	
==>ored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
correspo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4713	4841	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7649	7777	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4713	4841	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7649	7777	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4713	4841	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7649	7777	
==>q 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method on <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12456	12561	
==>ding of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12456	12561	
==>ding of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8725	8900	
==>= $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8725	8900	
==>= $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8725	8900	
==>= $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6930	7056	
==>ontiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6930	7056	
==>ontiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6930	7056	
==>ontiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1886	2003	
==>as Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL:: <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1886	2003	
==>as Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14868	14981	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19567	19680	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14868	14981	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19567	19680	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14868	14981	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19567	19680	
==>sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AU <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	616	715	
==>med rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	616	715	
==>med rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5550	5663	
==>fined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5550	5663	
==>fined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	398	508	
==>bject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	398	508	
==>bject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	398	508	
==>bject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	843	942	
==>ant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	843	942	
==>ant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	843	942	
==>ant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_ <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3986	4093	
==>$_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @st <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3986	4093	
==>$_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @st <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	723	818	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1243	1338	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	723	818	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1243	1338	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	723	818	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1243	1338	
==>), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.B <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2601	2757	
==>king cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2601	2757	
==>king cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5002	5142	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5963	6103	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5002	5142	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5963	6103	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5002	5142	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5963	6103	
==>ue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$va <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1561	1807	
==>el::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta: <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1561	1807	
==>el::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2525	2730	
==>oxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2525	2730	
==>oxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2525	2730	
==>oxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7653	7766	
==>ircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS versi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7653	7766	
==>ircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS versi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7653	7766	
==>ircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS versi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9737	9894	
==>r      => $self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $pa <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1820	1965	
==>r      => $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pa <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1820	1965	
==>r      => $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1433	1542	
==>ME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1433	1542	
==>ME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1433	1542	
==>ME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain. <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2645	2750	
==>r::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [ <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2645	2750	
==>r::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31864	31961	
==>r example the first library generates an error
message and wants it shown to the user, the main pr <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31864	31961	
==>r example the first library generates an error
message and wants it shown to the user, the main pr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5031	5118	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3259	3346	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5031	5118	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3259	3346	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5031	5118	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3259	3346	
==>unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canoni <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8053	8229	
==>er::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28981	29092	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28981	29092	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28981	29092	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Valu <==
8	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3752	3844	
==>aybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') <==
8	/Users/nnunley/pugs/inc/Module/Install/Can.pm	856	948	
==>aybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') <==
8	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3752	3844	
==>aybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	789	878	
==>aybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2705	2858	
==>ry ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ty <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2705	2858	
==>ry ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ty <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2705	2858	
==>ry ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ty <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14567	14711	
==>{
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14567	14711	
==>{
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14567	14711	
==>{
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6853	6997	
==>{
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5357	5501	
==>{
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7841	7985	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5400	5544	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7841	7985	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5400	5544	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7841	7985	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5400	5544	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1529	1673	
==>we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last un <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3323	3451	
==>kdir -p $builddir] )                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5614	5731	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8584	8701	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5614	5731	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8584	8701	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5614	5731	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8584	8701	
==>t same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	5666	5761	
==>ex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($ <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5666	5761	
==>ex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2967	3195	
==>NFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosett <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8061	8289	
==>NFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosett <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2967	3195	
==>NFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosett <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8061	8289	
==>NFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosett <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2342	2484	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27496	27638	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2535	2677	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27775	27917	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4264	4379	
==>a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4264	4379	
==>a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4264	4379	
==>a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
8	/Users/nnunley/pugs/util/p5_to_p6.pl	1278	1381	
==>b conv_foreach {
    $_ = shift;
    my $foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5789	5887	
==>::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5789	5887	
==>::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5789	5887	
==>::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_ <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1610	1705	
==>urrently at 92% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5533	5794	
==>n array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6382	6643	
==>n array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15757	15862	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13007	13112	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15757	15862	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13007	13112	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15757	15862	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13007	13112	
==>elf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must prov <==
8	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	304	446	
==>ub get {
        $_[0]{$_[1]}
    }

    sub fmap {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1655	1761	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3218	3324	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1655	1761	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3218	3324	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1655	1761	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3218	3324	
==>us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = und <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	546	637	
==>Runtime::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17776	17932	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14996	15152	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17776	17932	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14996	15152	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17776	17932	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14996	15152	
==>ethod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class met <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1571	1690	
==>le, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.fi <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1571	1690	
==>le, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.fi <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14412	14510	
==>l )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> met <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14412	14510	
==>l )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18269	18385	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15507	15623	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18269	18385	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15507	15623	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18269	18385	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15507	15623	
==>nce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    e <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15124	15220	
==>Nodes that do not have this attribute set are considered
"root Nodes" and are listed in their Doc <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15124	15220	
==>Nodes that do not have this attribute set are considered
"root Nodes" and are listed in their Doc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	53	155	
==>mplementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	53	155	
==>mplementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	53	155	
==>mplementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5273	5374	
==>fy($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{a <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5273	5374	
==>fy($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{a <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5273	5374	
==>fy($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{a <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1974	2072	
==>s scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
Thi <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1974	2072	
==>s scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
Thi <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3406	3522	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11964	12080	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6531	6647	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3406	3522	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11964	12080	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6531	6647	
==>> $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $m <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6080	6182	
==>be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as glob <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6080	6182	
==>be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as glob <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9871	9974	
==>my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_l <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15712	15815	
==>my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_l <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9871	9974	
==>my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_l <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15706	15809	
==>my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_l <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7725	7826	
==>turn @ret;
# }

=head2 $bool = $repo->add_file(file => $file, [force => BOOL])

Adds a given file to t <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37190	37285	
==>tion where the heading of one source relation is a
full subset of another, the result degenerate <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41739	41834	
==>tion where the heading of one source relation is a
full subset of another, the result degenerate <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41362	41457	
==>tion where the heading of one source relation is a
full subset of another, the result degenerate <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3312	3430	
==>ent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3312	3430	
==>ent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3312	3430	
==>ent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _par <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5251	5362	
==>s);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5251	5362	
==>s);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5251	5362	
==>s);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9510	9611	
==>e::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Defi <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9510	9611	
==>e::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Defi <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1413	1545	
==>::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alte <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1413	1545	
==>::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alte <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11211	11318	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2327	2434	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7421	7528	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11211	11318	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2327	2434	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7421	7528	
==>Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	129	269	
==>ys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attr <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	129	269	
==>ys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2555	2663	
==>e = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2555	2663	
==>e = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2555	2663	
==>e = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1624	1728	
==>) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols" <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1942	2046	
==>) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols" <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2272	2376	
==>) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols" <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1234	1422	
==>ue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

= <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1234	1422	
==>ue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

= <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5963	6066	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $on <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5093	5196	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $on <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5963	6066	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $on <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5093	5196	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $on <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14323	14425	
==>or example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14323	14425	
==>or example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2611	2777	
==>isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIVERSAL::i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7432	7584	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4991	5143	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7432	7584	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4991	5143	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7432	7584	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4991	5143	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1127	1279	
==>the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3840	3985	
==>recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3840	3985	
==>recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3840	3985	
==>recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	496	605	
==>) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1220	1328	
==>) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs: <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	211	308	
==>e core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	211	308	
==>e core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	211	308	
==>e core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (whi <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1897	2018	
==>elf->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feat <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8396	8509	
==>p;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = ble <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3037	3133	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6051	6147	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8119	8215	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3037	3133	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6051	6147	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8119	8215	
==>vnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `spl <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	700	799	
==>escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	700	799	
==>escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4180	4276	
==>TCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4180	4276	
==>TCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4180	4276	
==>TCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12470	12565	
==>ribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12470	12565	
==>ribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12470	12565	
==>ribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14205	14348	
==>->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = $f_test->($noop);
      }
      if( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	44	143	
==>ib",
    # "$Bin/../../../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs- <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36305	36398	
==>pairs where the values of those attributes differ and unioning
the remaining said tuple pairs, <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38058	38151	
==>pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40854	40947	
==>pairs where the values of those attributes differ and unioning
the remaining said tuple pairs, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42607	42700	
==>pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40468	40561	
==>pairs where the values of those attributes differ and unioning
the remaining said tuple pairs, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42257	42350	
==>pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3298	3411	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6234	6347	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3298	3411	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6234	6347	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3298	3411	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6234	6347	
==>nce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        ret <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	297	398	
==>h(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cip <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	297	398	
==>h(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cip <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2873	2973	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10796	10896	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2215	2315	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5998	6098	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2873	2973	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10796	10896	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2215	2315	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5998	6098	
==>yedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_ <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5110	5254	
==>ing
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5574	5718	
==>ing
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13340	13447	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10624	10731	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13340	13447	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10624	10731	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13340	13447	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10624	10731	
==>for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($pa <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2875	3042	
==>' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2875	3042	
==>' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13195	13308	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13195	13308	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13195	13308	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5435	5548	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3935	4048	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2080	2193	
==>now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2987	3095	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10910	11018	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6112	6220	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2987	3095	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10910	11018	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6112	6220	
==>h!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
8	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2855	2963	
==>_up_makefile {
    my $self = shift;
    my $top_class = ref($self->_top) || '';
    my $top_version = $self- <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32188	32288	
==>t have no ending node, and most don't need to to do
anything to the walking stack.

When an object do <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9604	9715	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12577	12688	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9604	9715	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12577	12688	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9604	9715	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12577	12688	
==>od dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current d <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	441	550	
==>*immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immedia <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	647	756	
==>*immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immedia <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11092	11242	
==>l($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11092	11242	
==>l($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11092	11242	
==>l($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.b <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2961	3058	
==>initialization vector, a 
one-time random number.  (It will need to be sent to the other end along <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2961	3058	
==>initialization vector, a 
one-time random number.  (It will need to be sent to the other end along <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	29917	30010	
==>old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set o <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34469	34562	
==>old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set o <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33633	33726	
==>old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5122	5277	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8092	8247	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5122	5277	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8092	8247	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5122	5277	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8092	8247	
==>CKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a ba <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	266	378	
==>0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	266	378	
==>0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31256	31456	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33014	33214	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31256	31456	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33014	33214	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31256	31456	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33014	33214	
==>ERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # w <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	811	909	
==>ath, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	811	909	
==>ath, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10023	10127	
==>method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9399	9503	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12372	12476	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10023	10127	
==>method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9399	9503	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12372	12476	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9399	9503	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12372	12476	
==>ackage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6503	6629	
==>_export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set( <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6503	6629	
==>_export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set( <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6503	6629	
==>_export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22102	22205	
==>to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22102	22205	
==>to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22102	22205	
==>to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	23805	23899	
==>main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(St <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28357	28451	
==>main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(St <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24302	24404	
==>ng their
  actions) which are always seen to be replying lest they end up in a loop with
  another auto <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23075	23177	
==>ng their
  actions) which are always seen to be replying lest they end up in a loop with
  another auto <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24302	24404	
==>ng their
  actions) which are always seen to be replying lest they end up in a loop with
  another auto <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23075	23177	
==>ng their
  actions) which are always seen to be replying lest they end up in a loop with
  another auto <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	31905	31999	
==>onal operator that takes a single
Relation in its C<$other> argument, where <$other> has the sa <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33766	33860	
==>onal operator that takes a single Relation
in its C<$other> argument, where <$other> has the sa <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36455	36549	
==>onal operator that takes a single
Relation in its C<$other> argument, where <$other> has the sa <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38316	38410	
==>onal operator that takes a single Relation
in its C<$other> argument, where <$other> has the sa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4716	4843	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7652	7779	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4716	4843	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7652	7779	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4716	4843	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7652	7779	
==>Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	78	178	
==>r.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl:: <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	78	178	
==>r.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl:: <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	18096	18347	
==>:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21573	21824	
==>:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21160	21411	
==>:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13424	13544	
==>xt if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13424	13544	
==>xt if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13424	13544	
==>xt if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2200	2298	
==>⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $t <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2200	2298	
==>⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $t <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24372	24550	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rule <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25635	25813	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24651	24829	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rule <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25914	26092	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rule <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	9270	9357	
==>tor::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	9465	9552	
==>tor::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	9660	9747	
==>tor::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	11317	11403	
==>tor::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2575	2746	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5580	5751	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1265	1436	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2941	3112	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2575	2746	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5580	5751	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1265	1436	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2941	3112	
==>},      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($li <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1113	1288	
==>exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($ke <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1113	1288	
==>exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($ke <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1868	1981	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3431	3544	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1868	1981	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3431	3544	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1868	1981	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3431	3544	
==>and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ver <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1912	2021	
==>it $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.co <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1912	2021	
==>it $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.co <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	743	835	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1263	1355	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	743	835	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1263	1355	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	743	835	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1263	1355	
==>CH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1901	2007	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	531	637	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1669	1775	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13977	14083	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1901	2007	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	531	637	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1669	1775	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13977	14083	
==>lock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is fr <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16966	17083	
==>ther.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster fo <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20443	20560	
==>ther.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster fo <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20021	20138	
==>ther.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster fo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11047	11158	
==>_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11047	11158	
==>_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11047	11158	
==>_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' = <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	349	458	
==>hies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macr <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	349	458	
==>hies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macr <==
8	/Users/nnunley/pugs/util/package-osx.pl	1076	1173	
==>sr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/read <==
8	/Users/nnunley/pugs/util/package-osx.pl	3386	3483	
==>sr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/read <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1558	1684	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3121	3247	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1558	1684	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3121	3247	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1558	1684	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3121	3247	
==>ef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where t <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	12195	12292	
==>t1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12195	12292	
==>t1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7269	7455	
==>d == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7269	7455	
==>d == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7269	7455	
==>d == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	13419	13532	
==>SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16896	17009	
==>SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16258	16371	
==>SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20508	20605	
==>ere should be a wide variety of third party Engine
modules that become available over time.  One p <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20508	20605	
==>ere should be a wide variety of third party Engine
modules that become available over time.  One p <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1066	1170	
==>- don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # n <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1066	1170	
==>- don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # n <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	689	791	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1209	1311	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	689	791	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1209	1311	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	689	791	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1209	1311	
==>) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12322	12470	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3944	4092	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12322	12470	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3944	4092	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12322	12470	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3944	4092	
==>AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6061	6166	
==>ure set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post- <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5868	5969	
==>ure set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post- <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15552	15652	
==>e methods may raise a warning if the new value would put the span 
in an invalid state, such as `star <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15552	15652	
==>e methods may raise a warning if the new value would put the span 
in an invalid state, such as `star <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3903	3997	
==>ich is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3903	3997	
==>ich is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6883	6976	
==>ich is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8953	9046	
==>ich is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6883	6976	
==>ich is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8953	9046	
==>ich is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number o <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3997	4108	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	447	558	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1432	1543	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	458	569	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3997	4108	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	447	558	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1432	1543	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	458	569	
==>0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3266	3521	
==>sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub { <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3266	3521	
==>sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6145	6308	
==>sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub { <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6145	6308	
==>sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub { <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6145	6308	
==>sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub { <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4787	4883	
==>cription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role con <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4787	4883	
==>cription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6984	7080	
==>cription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role con <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6842	6947	
==>om_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %ha <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6842	6947	
==>om_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %ha <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	697	794	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1217	1314	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	697	794	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1217	1314	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	697	794	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1217	1314	
==>var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) ar <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	4087	4209	
==>};
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(un <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4145	4267	
==>};
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	685	804	
==>hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	685	804	
==>hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	685	804	
==>hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1193	1295	
==>ss $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->i <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1193	1295	
==>ss $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->i <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1402	1504	
==>ss $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->i <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2917	3013	
==>are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2917	3013	
==>are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	109	208	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	370	469	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	109	208	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	370	469	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	109	208	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	370	469	
==>e('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    v <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	23409	23503	
==>Relation" is a Role rather than a Class, and some
implementations are immutable rather than mut <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27961	28055	
==>Relation" is a Role rather than a Class, and some
implementations are immutable rather than mut <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9389	9543	
==>cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not im <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14933	15087	
==>cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not im <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9389	9543	
==>cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not im <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14927	15081	
==>cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not im <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	7085	7190	
==>odifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1425	1524	
==>odifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1425	1524	
==>odifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1425	1524	
==>odifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15935	16032	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20652	20749	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15935	16032	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20652	20749	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15935	16032	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20652	20749	
==>multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	11	106	
==>doc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAM <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	11	106	
==>doc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAM <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3870	4047	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6397	6574	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3870	4047	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6397	6574	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3870	4047	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6397	6574	
==>>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	769	911	
==>s'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    r <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	738	875	
==>s'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    r <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8661	8761	
==>"The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.me <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7630	7730	
==>"The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.me <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8661	8761	
==>"The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.me <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7630	7730	
==>"The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.me <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40533	40627	
==>be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FI <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26047	26141	
==>be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FI <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40533	40627	
==>be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FI <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26047	26141	
==>be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FI <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7554	7745	
==>fy( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7554	7745	
==>fy( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7554	7745	
==>fy( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	2186	2290	
==>ual($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2186	2290	
==>ual($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2607	2703	
==>lue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# T <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2607	2703	
==>lue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# T <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2607	2703	
==>lue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# T <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1414	1529	
==>am>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->comp <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1414	1529	
==>am>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->comp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2610	2721	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2610	2721	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2610	2721	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4949	5057	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4949	5057	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4949	5057	
==>ethod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return : <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17881	18021	
==>pe'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17881	18021	
==>pe'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6172	6296	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9142	9266	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6172	6296	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9142	9266	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6172	6296	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9142	9266	
==>ub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # met <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1878	1981	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	508	611	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1646	1749	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13954	14057	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1878	1981	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	508	611	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1646	1749	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13954	14057	
==>R

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights res <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9412	9523	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6959	7070	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9412	9523	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6959	7070	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9412	9523	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6959	7070	
==>);
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    } <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1819	1916	
==>s; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @lis <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1819	1916	
==>s; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @lis <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7596	7766	
==>+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Can <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7653	7823	
==>+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Can <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7204	7328	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4763	4887	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7204	7328	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4763	4887	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7204	7328	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4763	4887	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3620	3734	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6556	6670	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3620	3734	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6556	6670	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3620	3734	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6556	6670	
==>ake them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16766	16863	
==>e it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16766	16863	
==>e it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11912	12020	
==>} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 1 <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4555	4663	
==>} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12605	12711	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10156	10262	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12605	12711	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10156	10262	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12605	12711	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10156	10262	
==>atcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13078	13195	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10362	10479	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13078	13195	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10362	10479	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13078	13195	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10362	10479	
==>thod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $ <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2403	2512	
==>ram('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTIO <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2403	2512	
==>ram('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTIO <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6727	6836	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9697	9806	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6727	6836	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9697	9806	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6727	6836	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9697	9806	
==>ub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $metho <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35305	35399	
==>ed parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements i <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35305	35399	
==>ed parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30487	30621	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32201	32335	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30487	30621	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32201	32335	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30487	30621	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32201	32335	
==>$ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $dif <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	384	482	
==>($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen:: <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	384	482	
==>($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25187	25318	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27376	27507	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25187	25318	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27376	27507	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25187	25318	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27376	27507	
==>erl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringi <==
8	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1642	1739	
==>rl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you <==
8	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1642	1739	
==>rl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2068	2181	
==>token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2068	2181	
==>token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17401	17495	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22109	22203	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17401	17495	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22109	22203	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17401	17495	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22109	22203	
==>=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1835	1967	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	947	1079	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1835	1967	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	947	1079	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1835	1967	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	947	1079	
==>, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # para <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	761	867	
==>_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	761	867	
==>_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_ <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2151	2306	
==>ad_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really h <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2151	2306	
==>ad_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really h <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	475	622	
==>ble :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	475	622	
==>ble :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1868	1991	
==>pper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1928	2051	
==>pper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1812	1910	
==>if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ? <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1812	1910	
==>if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ? <==
8	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3173	3269	
==>thod day_of_month returns Int { $.day }
method day_of_month_0 returns Int { $.day - 1 }
method da <==
8	/Users/nnunley/pugs/util/catalog_tests.pl	4920	5015	
==>d processing .t files
my $files = {}; # mapping from test-file-name to test-record
$files->{$_-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10057	10195	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7608	7746	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10057	10195	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7608	7746	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10057	10195	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7608	7746	
==>r_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5505	5601	
==>citly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5505	5601	
==>citly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3585	3698	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6521	6634	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3585	3698	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6521	6634	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3585	3698	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6521	6634	
==>thod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	8653	8752	
==>this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriately <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8653	8752	
==>this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriately <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2762	2862	
==>iler could work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pu <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2660	2758	
==>iler could work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pu <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2012	2133	
==>ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1990	2111	
==>ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3385	3488	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11943	12046	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6510	6613	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3385	3488	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11943	12046	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6510	6613	
==>TH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EM <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3274	3384	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8559	8669	
==>_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6267	6375	
==>_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3536	3643	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9954	10061	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8259	8366	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3536	3643	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9954	10061	
==>_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15972	16122	
==>l($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15972	16122	
==>l($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15972	16122	
==>l($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems t <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1411	1516	
==>@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$d <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1411	1516	
==>@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$d <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4121	4207	
==>nals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(func <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4121	4207	
==>nals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(func <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4121	4207	
==>nals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(func <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6644	6769	
==>+ 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6644	6769	
==>+ 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6644	6769	
==>+ 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	726	844	
==>austs too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	726	844	
==>austs too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	726	844	
==>austs too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2400	2496	
==>};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+) <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2400	2496	
==>};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+) <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8791	8895	
==>it>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19309	19408	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4789	4888	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19309	19408	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4789	4888	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19309	19408	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4789	4888	
==>->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19214	19310	
==>is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19214	19310	
==>is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7877	8021	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5436	5580	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7877	8021	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5436	5580	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7877	8021	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5436	5580	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1565	1709	
==>& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with <==
8	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6273	6408	
==>.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad< <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8614	8754	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11587	11727	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8614	8754	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11587	11727	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8614	8754	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11587	11727	
==>ed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramete <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3962	4070	
==>outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred a <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3974	4082	
==>outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2148	2285	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1260	1397	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2148	2285	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1260	1397	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2148	2285	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1260	1397	
==>_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5955	6082	
==>, "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5955	6082	
==>, "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            ret <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3666	3818	
==>date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3666	3818	
==>date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9564	9680	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7111	7227	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9564	9680	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7111	7227	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9564	9680	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7111	7227	
==>{
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatc <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21149	21314	
==>rns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->se <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17905	18056	
==>rns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->se <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41173	41321	
==>rns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->se <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44073	44221	
==>rns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->se <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6152	6248	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5282	5378	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6152	6248	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5282	5378	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11603	11730	
==>ntal!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            b <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2090	2211	
==>ntal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            b <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8862	8983	
==>ntal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            b <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2090	2211	
==>ntal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            b <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8862	8983	
==>ntal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            b <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7814	7912	
==>body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=head1 SYNOPSIS <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9410	9506	
==>te_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9410	9506	
==>te_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10663	10786	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15204	15327	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10663	10786	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15204	15327	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10663	10786	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15204	15327	
==>ually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:p <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1651	1745	
==>he Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.0 <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1651	1745	
==>he Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.0 <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3451	3564	
==>on( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3451	3564	
==>on( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12040	12130	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9595	9685	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12040	12130	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9595	9685	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12040	12130	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9595	9685	
==>hod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	426	544	
==>{
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $h <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	393	511	
==>{
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	697	804	
==>e_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	697	804	
==>e_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	697	804	
==>e_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14084	14180	
==>n');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::R <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14084	14180	
==>n');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::R <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14084	14180	
==>n');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::R <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3991	4136	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6927	7072	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3991	4136	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6927	7072	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3991	4136	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6927	7072	
==>->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operatio <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9572	9672	
==>X]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);? <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9572	9672	
==>X]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);? <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3471	3606	
==>ate => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8756	8890	
==>ate => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3726	3857	
==>ate => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10144	10275	
==>ate => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3726	3857	
==>ate => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10144	10275	
==>ate => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8449	8579	
==>ate => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $ <==
8	/Users/nnunley/pugs/examples/golf/tsanta.pl	1204	1331	
==>h;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += Go <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5898	5994	
==>uperset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5028	5124	
==>uperset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5898	5994	
==>uperset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5028	5124	
==>uperset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	991	1087	
==>eturn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1370	1466	
==>eturn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	991	1087	
==>eturn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1370	1466	
==>eturn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1712	1933	
==>(!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<st <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1712	1933	
==>(!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<st <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15006	15147	
==>el = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15006	15147	
==>el = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15006	15147	
==>el = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19705	19845	
==>el = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19705	19845	
==>el = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19705	19845	
==>el = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9521	9635	
==>_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9521	9635	
==>_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9521	9635	
==>_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5077	5168	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio S <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1034	1125	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	894	985	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5077	5168	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1034	1125	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio S <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	433	541	
==>add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : " <==
8	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	58	160	
==>:Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
ha <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	202	305	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	197	300	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	202	305	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	197	300	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	202	305	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	197	300	
==>lf->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->f <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2849	2947	
==>value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) t <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2849	2947	
==>value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) t <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	976	1070	
==>ither C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause t <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	976	1070	
==>ither C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4511	4600	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6460	6549	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4511	4600	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6460	6549	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4511	4600	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6460	6549	
==>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_const <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7670	7782	
==>ebug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12011	12123	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2468	2578	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9240	9350	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7410	7520	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2468	2578	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9240	9350	
==>ebug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @ <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1736	1822	
==>OnPerl5::X1::CodeCompile->new(p6_file=>$filename)->get_p6_file;
	    $eval_p6->($cc->as <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8710	8839	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6263	6392	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8710	8839	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6263	6392	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8710	8839	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6263	6392	
==>izing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self- <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	4369	4486	
==>ed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4369	4486	
==>ed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30505	30641	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32219	32355	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30505	30641	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32219	32355	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30505	30641	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32219	32355	
==>ngth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_l <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10801	10904	
==>tor to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information abo <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10801	10904	
==>tor to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information abo <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1617	1736	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2198	2317	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3668	3787	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1617	1736	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2198	2317	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3668	3787	
==>of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_pat <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2993	3106	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_pat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2993	3106	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_pat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8744	8852	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6297	6405	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8744	8852	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6297	6405	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8744	8852	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6297	6405	
==>>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23866	23959	
==>sn't know about language specific details like
encodings or plurality.

My understanding of al <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23866	23959	
==>sn't know about language specific details like
encodings or plurality.

My understanding of al <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1899	1995	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	529	625	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1667	1763	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13975	14071	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1899	1995	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	529	625	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1667	1763	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13975	14071	
==>fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This p <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6706	6835	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7467	7596	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8337	8466	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10183	10312	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10944	11073	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11814	11943	
==>elation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " n <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	252	361	
==>umper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in me <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	252	361	
==>umper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in me <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1873	1997	
==>n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @ar <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1873	1997	
==>n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15068	15173	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12322	12427	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15068	15173	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12322	12427	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15068	15173	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12322	12427	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25386	25485	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	824	923	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24150	24249	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1949	2048	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25386	25485	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	824	923	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24150	24249	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1949	2048	
==>e software; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perl <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9875	9987	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10856	10968	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12327	12439	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13352	13464	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14333	14445	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15804	15916	
==>r $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3495	3596	
==>e::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object re <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3495	3596	
==>e::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object re <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4202	4307	
==>ls = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4202	4307	
==>ls = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4202	4307	
==>ls = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	288	387	
==>'bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	288	387	
==>'bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	288	387	
==>'bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	858	952	
==>the character level, so different 
character encodings may be enciphered in different ways.

=h <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	858	952	
==>the character level, so different 
character encodings may be enciphered in different ways.

=h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3300	3413	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6236	6349	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3300	3413	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6236	6349	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3300	3413	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6236	6349	
==>e wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retur <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16904	16998	
==>e::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain local <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16904	16998	
==>e::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain local <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3277	3396	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8562	8681	
==>eedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6270	6385	
==>eedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    r <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3539	3653	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9957	10071	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8262	8376	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3539	3653	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9957	10071	
==>eedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13013	13140	
==>en = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13013	13140	
==>en = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13013	13140	
==>en = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1898	2025	
==>en = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1111	1224	
==>pes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

= <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1744	1846	
==>ef.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = functi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1744	1846	
==>ef.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = functi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1744	1846	
==>ef.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = functi <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4809	4952	
==>> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4821	4964	
==>> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH' <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4240	4351	
==>'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4240	4351	
==>'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_ <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1090	1201	
==>'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2538	2634	
==>oes not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2538	2634	
==>oes not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2538	2634	
==>oes not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7824	7946	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10747	10869	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7824	7946	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10747	10869	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7824	7946	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10747	10869	
==>t
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $met <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	13567	13659	
==>et1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13567	13659	
==>et1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1969	2112	
==>($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1969	2112	
==>($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4302	4415	
==>in('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpola <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5623	5736	
==>in('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpola <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4302	4415	
==>in('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpola <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5611	5724	
==>in('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpola <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20548	20643	
==>ilers. After all the compilers have finished, the digest lines will
be expanded again.

Every bi <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20548	20643	
==>ilers. After all the compilers have finished, the digest lines will
be expanded again.

Every bi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3576	3680	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8860	8964	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/util/build_pugs.pl	722	825	
==>ment variable.

Current settings:
.
    print PugsBuild::Config->pretty_print;

    exit 0;
}

my $run_s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3827	3929	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10245	10347	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8549	8651	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3827	3929	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10245	10347	
==>atch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, u <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3382	3697	
==>f ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3382	3697	
==>f ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16284	16423	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21001	21140	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16284	16423	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21001	21140	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16284	16423	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21001	21140	
==>($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12202	12341	
==>A__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block an <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12202	12341	
==>A__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block an <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11156	11277	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12627	12748	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14633	14754	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16104	16225	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13941	14062	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15466	15587	
==>t is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	261	376	
==>:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" i <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	261	376	
==>:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" i <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2912	3008	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10835	10931	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6037	6133	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2912	3008	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10835	10931	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6037	6133	
==>> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $va <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10523	10738	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8074	8289	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10523	10738	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8074	8289	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10523	10738	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8074	8289	
==>...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6150	6301	
==>ATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Ma <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6150	6301	
==>ATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Ma <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	2205	2343	
==>y $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "T <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2205	2343	
==>y $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "T <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9649	9754	
==>-------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9672	9777	
==>--------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9649	9754	
==>-------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9672	9777	
==>--------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9649	9754	
==>-------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9672	9777	
==>--------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------------ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2232	2337	
==>de); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is' <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2232	2337	
==>de); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is' <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2232	2337	
==>de); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1456	1555	
==>ibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1456	1555	
==>ibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1456	1555	
==>ibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwra <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1033	1131	
==>reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are use <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1033	1131	
==>reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are use <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1972	2114	
==>ork because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.sa <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1972	2114	
==>ork because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.sa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2251	2361	
==>->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2251	2361	
==>->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2251	2361	
==>->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1382	1475	
==>3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircum <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1382	1475	
==>3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircum <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1382	1475	
==>3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircum <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4059	4186	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6995	7122	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4059	4186	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6995	7122	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4059	4186	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6995	7122	
==>thod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyth <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10341	10440	
==>evan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10341	10440	
==>evan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46253	46383	
==>t_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symb <==
8	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	121	219	
==>th $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") {
    system("perl naive_bayesi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	480	565	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1069	1154	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	480	565	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1069	1154	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	480	565	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1069	1154	
==>ndef;

## ---------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5645	5762	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8615	8732	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5645	5762	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8615	8732	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5645	5762	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8615	8732	
==>s
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is als <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	691	781	
==>r::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.) <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	691	781	
==>r::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.) <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13139	13289	
==>h keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13139	13289	
==>h keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3828	3927	
==>!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3828	3927	
==>!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3828	3927	
==>!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curre <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18115	18209	
==>n - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULT <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18115	18209	
==>n - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULT <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18115	18209	
==>n - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULT <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11316	11492	
==>return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11316	11492	
==>return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11	109	
==>perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11	109	
==>perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11	109	
==>perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11	108	
==>perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11	108	
==>perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11	108	
==>perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8493	8636	
==>pped by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

sh <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8209	8348	
==>pped by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
sh <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7010	7130	
==>my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7010	7130	
==>my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7010	7130	
==>my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	24027	24119	
==>ely from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28579	28671	
==>ely from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27410	27502	
==>ely from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7757	7864	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10680	10787	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7757	7864	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10680	10787	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7757	7864	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10680	10787	
==>F.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overrid <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	748	844	
==>does not support enciphering individual bits.  Also note that the 
Cipher API operates at the byt <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	748	844	
==>does not support enciphering individual bits.  Also note that the 
Cipher API operates at the byt <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6431	6548	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7184	7301	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8048	8165	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8829	8946	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9908	10025	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10661	10778	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11525	11642	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12306	12423	
==>er!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the heading of <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4175	4294	
==>a('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4382	4501	
==>a('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	35896	35990	
==>t all common attribute names
and corresponding common tuple values are aligned and merged.  The <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37639	37733	
==>t all common attribute names and corresponding common tuple values
are aligned and merged.  The <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40446	40540	
==>t all common attribute names
and corresponding common tuple values are aligned and merged.  The <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42188	42282	
==>t all common attribute names and corresponding common tuple values
are aligned and merged.  The <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40060	40154	
==>t all common attribute names
and corresponding common tuple values are aligned and merged.  The <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41838	41932	
==>t all common attribute names and corresponding common tuple values
are aligned and merged.  The <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2972	3070	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5986	6084	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8054	8152	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2972	3070	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5986	6084	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8054	8152	
==>turns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolera <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	625	714	
==>YNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represent <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	625	714	
==>YNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represent <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7142	7252	
==>2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3746	3856	
==>2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4595	4705	
==>2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([ <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2162	2260	
==>ically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($na <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2162	2260	
==>ically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($na <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7500	7584	
==>-----------------------------------------------------------------------
## END BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7500	7584	
==>-----------------------------------------------------------------------
## END BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7500	7584	
==>-----------------------------------------------------------------------
## END BOOTST <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4995	5128	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7644	7777	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5203	5329	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11652	11778	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5203	5329	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11652	11778	
==>pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    w <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33529	33625	
==>and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an o <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33529	33625	
==>and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9254	9370	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6801	6917	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9254	9370	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6801	6917	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9254	9370	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6801	6917	
==>') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $disp <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1678	1788	
==>es -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
} <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1678	1788	
==>es -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
} <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16751	16850	
==>ethod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinar <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20228	20327	
==>ethod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinar <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	565	663	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	887	985	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1266	1364	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	565	663	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	887	985	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1266	1364	
==>ody = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2505	2644	
==>perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id sho <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2505	2644	
==>perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id sho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6342	6453	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9312	9423	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6342	6453	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9312	9423	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6342	6453	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9312	9423	
==>ub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19400	19517	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16632	16749	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19400	19517	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16632	16749	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19400	19517	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16632	16749	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method o <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3878	3978	
==>uild a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3739	3838	
==>uild a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5302	5428	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8272	8398	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5302	5428	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8272	8398	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5302	5428	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8272	8398	
==>:make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems t <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1093	1196	
==>ub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self- <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1093	1196	
==>ub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	902	1065	
==>/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	867	1021	
==>/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14879	14990	
==>my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14879	14990	
==>my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14879	14990	
==>my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'C <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12640	12733	
==>def_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12640	12733	
==>def_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12640	12733	
==>def_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4470	4569	
==>()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4470	4569	
==>()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3468	3562	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6482	6576	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8550	8644	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3468	3562	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6482	6576	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8550	8644	
==>ame_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7991	8129	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5550	5688	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7991	8129	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5550	5688	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7991	8129	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5550	5688	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1679	1817	
==>$nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "In <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8286	8391	
==>uce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = B <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9896	9997	
==>lass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10244	10345	
==>lass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2176	2273	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2581	2678	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2176	2273	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2581	2678	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2176	2273	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2581	2678	
==>r backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(f <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1405	1610	
==>(join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1405	1610	
==>(join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4685	4815	
==>{ 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4539	4665	
==>{ 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3336	3453	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11894	12011	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6461	6578	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3336	3453	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11894	12011	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6461	6578	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF! <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9338	9445	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6885	6992	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9338	9445	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6885	6992	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9338	9445	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6885	6992	
==>er eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':de <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8219	8321	
==>"NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8219	8321	
==>"NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	820	937	
==>/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	820	937	
==>/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	820	937	
==>/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4294	4408	
==>rl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4294	4408	
==>rl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4294	4408	
==>rl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequ <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	12328	12426	
==>:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "dis <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12328	12426	
==>:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "dis <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2284	2411	
==>else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2284	2411	
==>else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16628	16731	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13833	13936	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16628	16731	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13833	13936	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16628	16731	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13833	13936	
==>her(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($lab <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4628	4790	
==>method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4628	4790	
==>method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4628	4790	
==>method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2378	2491	
==>t:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2378	2491	
==>t:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1897	1997	
==>inebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1897	1997	
==>inebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1897	1997	
==>inebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5356	5512	
==>,

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # X <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5188	5336	
==>,
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # X <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	908	1022	
==>.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1089	1203	
==>.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1268	1382	
==>.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1536	1627	
==>opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1536	1627	
==>opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1536	1627	
==>opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_insta <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30237	30370	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31966	32099	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30237	30370	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31966	32099	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30237	30370	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31966	32099	
==>ength == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_le <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15443	15535	
==>ates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal pr <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15443	15535	
==>ates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal pr <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5194	5327	
==>ontinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }) <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5194	5327	
==>ontinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18260	18370	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15498	15608	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18260	18370	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15498	15608	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18260	18370	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15498	15608	
==>que_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1308	1416	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2871	2979	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1308	1416	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2871	2979	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1308	1416	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2871	2979	
==>This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 o <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1613	1708	
==>code operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two) <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1613	1708	
==>code operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12603	12709	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10154	10260	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12603	12709	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10154	10260	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12603	12709	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10154	10260	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_ <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1161	1260	
==>"iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<N <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1161	1260	
==>"iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<N <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2277	2403	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4604	4730	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2277	2403	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4604	4730	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2277	2403	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4604	4730	
==>ake_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the at <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	791	884	
==>r-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	791	884	
==>r-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2128	2238	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2533	2643	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2128	2238	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2533	2643	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2128	2238	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2533	2643	
==>::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname. <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1290	1395	
==>y () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
m <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1290	1395	
==>y () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
m <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2279	2479	
==>my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2279	2479	
==>my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8017	8128	
==>p::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $al <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5779	5888	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3899	4008	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5779	5888	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3899	4008	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5779	5888	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3899	4008	
==>s of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7743	7849	
==>p::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $al <==
8	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2291	2437	
==>given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join <==
8	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1060	1206	
==>given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9731	9877	
==>given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1024	1162	
==>tart;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4263	4401	
==>tart;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1024	1162	
==>tart;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4263	4401	
==>tart;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	955	1076	
==>given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24712	24836	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26901	27025	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24712	24836	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26901	27025	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24712	24836	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26901	27025	
==>->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- i <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2223	2326	
==>rgs{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(( <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2201	2304	
==>rgs{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1666	1813	
==>terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1666	1813	
==>terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6249	6357	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9219	9327	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6249	6357	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9219	9327	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6249	6357	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9219	9327	
==>class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3965	4133	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6492	6660	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3965	4133	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6492	6660	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3965	4133	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6492	6660	
==>ame}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods} <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2976	3088	
==>005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \] <==
8	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2976	3088	
==>005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \] <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	769	894	
==>.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $po <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	769	894	
==>.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $po <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2142	2263	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1254	1375	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2142	2263	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1254	1375	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2142	2263	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1254	1375	
==>opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, idea <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11375	11495	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2887	3007	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11375	11495	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2887	3007	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11375	11495	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2887	3007	
==>Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH( <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14865	14960	
==>nt>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all o <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14865	14960	
==>nt>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2967	3069	
==>IL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2967	3069	
==>IL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2967	3069	
==>IL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	17	116	
==>er;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (w <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	17	116	
==>er;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (w <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	17	116	
==>er;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (w <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8629	8722	
==>->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Gr <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2454	2547	
==>->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Gr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16935	17083	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21650	21798	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16935	17083	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21650	21798	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16935	17083	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21650	21798	
==>sses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subcl <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	891	988	
==>into a AST node (the API is

specified in Perl6::API::AST - so maybe the implementation

lives the <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	845	940	
==>into a AST node (the API is
specified in Perl6::API::AST - so maybe the implementation
lives the <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4550	4673	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2762	2885	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4550	4673	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2762	2885	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4550	4673	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2762	2885	
==>g
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    retu <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	14603	14703	
==>new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start o <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14603	14703	
==>new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start o <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	889	992	
==>t($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	889	992	
==>t($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	614	711	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	936	1033	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1315	1412	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	614	711	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	936	1033	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1315	1412	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Comp <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4160	4275	
==>d($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4367	4482	
==>d($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6562	6675	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9532	9645	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6562	6675	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9532	9645	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6562	6675	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9532	9645	
==>ss "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1518	1667	
==>g sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my % <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1518	1667	
==>g sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my % <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	716	835	
==>te the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	716	835	
==>te the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (de <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	716	835	
==>te the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (de <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	10	106	
==>et.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PI <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	10	106	
==>et.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PI <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	10	106	
==>et.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PI <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	669	803	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	757	891	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	669	803	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	757	891	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	669	803	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	757	891	
==>(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif( <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16672	16776	
==>owing:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value hap <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16672	16776	
==>owing:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value hap <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8233	8360	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5792	5919	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8233	8360	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5792	5919	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8233	8360	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5792	5919	
==>ies and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$se <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18788	18914	
==>cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20146	20272	
==>cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	466	589	
==>> \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	460	583	
==>> \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2970	3068	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5984	6082	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8052	8150	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2970	3068	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5984	6082	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8052	8150	
==>returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tole <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15763	15869	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13013	13119	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15763	15869	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13013	13119	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15763	15869	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13013	13119	
==>label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a l <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12175	12276	
==>hod join (Relation $other!) returns Relation {

    # First look for trivial cases that are more effic <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15652	15753	
==>hod join (Relation $other!) returns Relation {

    # First look for trivial cases that are more effic <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16455	16634	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16734	16913	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4328	4447	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6977	7096	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4557	4673	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11006	11122	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4557	4673	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11006	11122	
==>:Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5042	5178	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7691	7827	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5248	5378	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11697	11827	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5248	5378	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11697	11827	
==>_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $id <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2625	2737	
==>elds);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2625	2737	
==>elds);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8058	8200	
==>SH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8070	8212	
==>SH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rul <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3211	3306	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6225	6320	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8293	8388	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3211	3306	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6225	6320	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8293	8388	
==>Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8768	8910	
==>bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'aft <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8768	8910	
==>bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'aft <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7018	7113	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6148	6243	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2802	2897	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2802	2897	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7018	7113	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6148	6243	
==>$member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6217	6336	
==>ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6217	6336	
==>ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3136	3244	
==>ype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3136	3244	
==>ype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3136	3244	
==>ype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($ <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6740	6841	
==>opy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of b <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6740	6841	
==>opy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of b <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	284	383	
==>ctors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloadin <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	284	383	
==>ctors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloadin <==
8	/Users/nnunley/pugs/util/version_h.pl	93	184	
==>"/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/en <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2283	2438	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11151	11306	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12110	12265	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2476	2631	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11430	11585	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12389	12544	
==>ent'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4909	5017	
==>'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5102	5210	
==>'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3071	3189	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6064	6182	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3345	3457	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9763	9875	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3345	3457	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9763	9875	
==>= shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alterna <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	8450	8555	
==>DENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- s <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8450	8555	
==>DENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11181	11304	
==>ingify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->cl <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11181	11304	
==>ingify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->cl <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11181	11304	
==>ingify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->cl <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	27921	28018	
==>attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any k <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32473	32570	
==>attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any k <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31565	31662	
==>attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any k <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15553	15646	
==>ileges regarding access to information details, or their technical
skills.  For example, a nat <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15553	15646	
==>ileges regarding access to information details, or their technical
skills.  For example, a nat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3166	3326	
==>= 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3166	3326	
==>= 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3166	3326	
==>= 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            s <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7685	7838	
==>$x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7685	7838	
==>$x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11647	11770	
==>urn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.u <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11647	11770	
==>urn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.u <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11647	11770	
==>urn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.u <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23256	23352	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1829	1925	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4120	4216	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1792	1888	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23256	23352	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1829	1925	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4120	4216	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1792	1888	
==>ale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the curr <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1997	2107	
==>on of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - ad <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1997	2107	
==>on of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - ad <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5326	5425	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5326	5425	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5326	5425	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5446	5540	
==>nction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5446	5540	
==>nction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5446	5540	
==>nction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_e <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1889	1985	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	519	615	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1657	1753	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13965	14061	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1889	1985	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	519	615	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1657	1753	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13965	14061	
==>. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserve <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14846	14973	
==>>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14846	14973	
==>>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14846	14973	
==>>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4168	4281	
==>%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub ele <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4168	4281	
==>%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub ele <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4168	4281	
==>%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub ele <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	825	919	
==>l "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	825	919	
==>l "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24558	24709	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26747	26898	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24558	24709	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26747	26898	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24558	24709	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26747	26898	
==>my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	542	665	
==>ywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	542	665	
==>ywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15876	16005	
==>urn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15876	16005	
==>urn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15876	16005	
==>urn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17090	17208	
==>etta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17090	17208	
==>etta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5276	5389	
==>"not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_v <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5276	5389	
==>"not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_v <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5866	5979	
==>"not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_v <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3273	3405	
==>_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3273	3405	
==>_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3786	3887	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6722	6823	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3786	3887	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6722	6823	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3786	3887	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6722	6823	
==>ssed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10340	10477	
==>> [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10340	10477	
==>> [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10340	10477	
==>> [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	41	137	
==>:Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	41	137	
==>:Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	41	137	
==>:Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8241	8331	
==>ammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @stat <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2066	2156	
==>ammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @stat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6582	6713	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9552	9683	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6582	6713	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9552	9683	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6582	6713	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9552	9683	
==>(" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16501	16597	
==>size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hac <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16501	16597	
==>size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hac <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4209	4343	
==>?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4209	4343	
==>?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1339	1464	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2902	3027	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1339	1464	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2902	3027	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1339	1464	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2902	3027	
==>ns
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4595	4698	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1], <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4842	4945	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1], <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4595	4698	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1], <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4842	4945	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1], <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4086	4188	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1], <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4341	4443	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1], <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4086	4188	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1], <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4341	4443	
==>lice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1], <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10610	10718	
==>an't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string] <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10610	10718	
==>an't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8467	8567	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6020	6120	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8467	8567	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6020	6120	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8467	8567	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6020	6120	
==>$self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_a <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	228	446	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	228	446	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4299	4424	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7235	7360	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4299	4424	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7235	7360	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4299	4424	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7235	7360	
==>es a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10295	10446	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7846	7997	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10295	10446	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7846	7997	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10295	10446	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7846	7997	
==>class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that itera <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3132	3263	
==>ile: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3349	3480	
==>ile: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $s <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	640	768	
==>my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $c <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	640	768	
==>my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6137	6260	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9107	9230	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6137	6260	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9107	9230	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6137	6260	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9107	9230	
==>_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	473	594	
==>os}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	473	594	
==>os}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	473	594	
==>os}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $s <==
8	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	805	908	
==>$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_decode($value) <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6039	6133	
==>y is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document s <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6039	6133	
==>y is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document s <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	1377	1467	
==>xpected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends) <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1435	1525	
==>xpected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends) <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4631	4745	
==>index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4878	4992	
==>index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4631	4745	
==>index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4878	4992	
==>index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4377	4490	
==>index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4377	4490	
==>index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4122	4234	
==>index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4122	4234	
==>index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take inde <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13097	13230	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13097	13230	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13097	13230	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5337	5470	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3837	3970	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1982	2115	
==>e {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defin <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2908	3004	
==>t "honours the spirit of the
dialect", if the original form is not available or has been discarde <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2908	3004	
==>t "honours the spirit of the
dialect", if the original form is not available or has been discarde <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12062	12232	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12834	13004	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12062	12232	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12834	13004	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12062	12232	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12834	13004	
==>. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $r <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7628	7770	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ ) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7821	7963	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ ) <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21748	21894	
==>e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44655	44801	
==>e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6613	6735	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9062	9184	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6613	6735	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9062	9184	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6613	6735	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9062	9184	
==>&& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8942	9090	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11915	12063	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8942	9090	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11915	12063	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8942	9090	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11915	12063	
==>es
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMetho <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3151	3268	
==>n {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $o <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4000	4117	
==>n {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4282	4392	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7218	7328	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4282	4392	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7218	7328	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4282	4392	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7218	7328	
==>sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bo <==
8	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	230	333	
==>sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(< <==
8	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	230	333	
==>sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(< <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4346	4469	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7282	7405	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4346	4469	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7282	7405	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4346	4469	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7282	7405	
==>inds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($m <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2180	2276	
==>class of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTT <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2180	2276	
==>class of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTT <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17836	18033	
==>%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->g <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41104	41298	
==>%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->g <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4126	4249	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7062	7185	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4126	4249	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7062	7185	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4126	4249	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7062	7185	
==>is operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($metho <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2852	2962	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10775	10885	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2194	2304	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5977	6087	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2852	2962	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10775	10885	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2194	2304	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5977	6087	
==>';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20155	20289	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17294	17428	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20155	20289	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17294	17428	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20155	20289	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17294	17428	
==>>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7412	7498	
==>rl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement( <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1237	1323	
==>rl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4416	4572	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6928	7084	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4416	4572	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6928	7084	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4416	4572	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6928	7084	
==>>{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8317	8419	
==>ns;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename hi <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8317	8419	
==>ns;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename hi <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11260	11406	
==>gx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tai <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11392	11538	
==>gx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tai <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13197	13291	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4367	4461	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8823	8917	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13197	13291	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4367	4461	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8823	8917	
==>representative for this whole file, which can be referenced as a unit by
documentation or 'use' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13832	13961	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14206	14335	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13832	13961	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14206	14335	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13832	13961	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14206	14335	
==>ngs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2702	2820	
==>e($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $s <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	8771	8869	
==>orks.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_','$_re_','$_m_', <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	17350	17450	
==>function will return a pair with the first param and the second param inside a pair
# hence pair is a <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1663	1760	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4826	4923	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	556	653	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2175	2272	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1046	1143	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1216	1313	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1269	1366	
==>rns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9072	9184	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6619	6731	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9072	9184	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6619	6731	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9072	9184	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6619	6731	
==>lf, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $or <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11704	11806	
==>sh('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11704	11806	
==>sh('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23641	23781	
==>block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23920	24060	
==>block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8	104	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8	104	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8	104	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8	103	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8	103	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8	103	
==>in/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	7390	7505	
==>%*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7390	7505	
==>%*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16537	16640	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21254	21357	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16537	16640	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21254	21357	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16537	16640	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21254	21357	
==>ould
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatche <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8592	8770	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6145	6323	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8592	8770	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6145	6323	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8592	8770	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6145	6323	
==>[
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->supercl <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4813	4963	
==>e header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versio <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4813	4963	
==>e header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versio <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11682	11807	
==>adline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the ser <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11682	11807	
==>adline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the ser <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5373	5489	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8343	8459	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5373	5489	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8343	8459	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5373	5489	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8343	8459	
==>or a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anothe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3788	3931	
==>state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule f <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4034	4170	
==>state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule f <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10483	10619	
==>state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule f <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4034	4170	
==>state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule f <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10483	10619	
==>state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11135	11246	
==>sa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11135	11246	
==>sa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11135	11246	
==>sa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3439	3555	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11997	12113	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6564	6680	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3439	3555	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11997	12113	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6564	6680	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10487	10576	
==>r($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%opti <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10487	10576	
==>r($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%opti <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1143	1237	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1138	1232	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6855	6949	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4207	4301	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1143	1237	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1138	1232	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6855	6949	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4207	4301	
==>r>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8135	8262	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5694	5821	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8135	8262	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5694	5821	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8135	8262	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5694	5821	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1823	1950	
==>stent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2148	2255	
==>| IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], exp3 => $_ <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7340	7477	
==>r") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self. <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7340	7477	
==>r") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self. <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4815	4924	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7464	7573	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5030	5136	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11479	11585	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5030	5136	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11479	11585	
==>$len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23829	23964	
==>__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12845	12978	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque') <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11524	11655	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque') <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15275	15406	
==>hod::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13333	13460	
==>__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13333	13460	
==>__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13333	13460	
==>__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28640	28734	
==>((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX_MATC <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	268	421	
==>0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $s <==
8	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	314	441	
==>0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13519	13624	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10803	10908	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13519	13624	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10803	10908	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13519	13624	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10803	10908	
==>=> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instanc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13281	13397	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18164	18280	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13281	13397	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18164	18280	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13281	13397	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18164	18280	
==>mics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run o <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4118	4212	
==>string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method par <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4118	4212	
==>string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method par <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6048	6150	
==>event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($cha <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6828	6930	
==>event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($cha <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6048	6150	
==>event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($cha <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6828	6930	
==>event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($cha <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28241	28337	
==>fied version of this object which is suitable
for debugging purposes (such as to test that the ob <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35597	35693	
==>fied version of this object which is suitable
for debugging purposes (such as to test that the ob <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28241	28337	
==>fied version of this object which is suitable
for debugging purposes (such as to test that the ob <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35597	35693	
==>fied version of this object which is suitable
for debugging purposes (such as to test that the ob <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13322	13442	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18205	18325	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13322	13442	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18205	18325	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13322	13442	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18205	18325	
==>o go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::n <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26897	26991	
==>orresponding argument is
provided (it defaults to empty if the argument is not provided).

Some <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26897	26991	
==>orresponding argument is
provided (it defaults to empty if the argument is not provided).

Some <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11371	11517	
==>not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11371	11517	
==>not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11371	11517	
==>not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5968	6068	
==>ATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5968	6068	
==>ATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5968	6068	
==>ATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent packa <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1210	1302	
==>)`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), differ <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1210	1302	
==>)`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), differ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	22732	22827	
==>s zero or more Relation attribute names that
define the heading of this Relation.  Each attribut <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27284	27379	
==>s zero or more Relation attribute names that
define the heading of this Relation.  Each attribut <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25248	25342	
==>ermutation of its
arguments and any invocant object's attributes is identical; they do not
inte <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11379	11473	
==>ermutation of its
arguments and any invocant object's attributes is identical; they do not
inte <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14652	14746	
==>ermutation of its arguments and any invocant
object's attributes is identical; they do not inte <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25248	25342	
==>ermutation of its
arguments and any invocant object's attributes is identical; they do not
inte <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11379	11473	
==>ermutation of its
arguments and any invocant object's attributes is identical; they do not
inte <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14652	14746	
==>ermutation of its arguments and any invocant
object's attributes is identical; they do not inte <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2815	2943	
==>Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2815	2943	
==>Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_ <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2224	2470	
==>res, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

s <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3812	4058	
==>res, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9484	9593	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7031	7140	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9484	9593	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7031	7140	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9484	9593	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7031	7140	
==>lf->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self- <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10055	10179	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12696	12820	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13532	13656	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16173	16297	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12813	12937	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15535	15659	
==>ng.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if <==
8	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2500	2592	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is F <==
8	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2500	2592	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is F <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10616	10777	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8167	8328	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10616	10777	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8167	8328	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10616	10777	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8167	8328	
==>er
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4229	4346	
==>nt Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $matc <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4229	4346	
==>nt Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $matc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	87	195	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	87	195	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	87	195	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1395	1500	
==>ive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1395	1500	
==>ive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1395	1500	
==>ive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = a <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	71	167	
==>O - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Rec <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	71	167	
==>O - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Rec <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4715	4831	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7364	7480	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4933	5046	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11382	11495	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4933	5046	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11382	11495	
==>rn String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($st <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1274	1375	
==>nt Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private att <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1274	1375	
==>nt Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private att <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3946	4058	
==>itional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "p <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3946	4058	
==>itional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15832	15926	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13082	13176	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15832	15926	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13082	13176	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15832	15926	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13082	13176	
==>icientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%para <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6708	6854	
==>0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { labe <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6708	6854	
==>0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { labe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	335	432	
==>$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.de <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	335	432	
==>$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.de <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	335	432	
==>$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2525	2620	
==>throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2525	2620	
==>throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2525	2620	
==>throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7937	8041	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10860	10964	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7937	8041	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10860	10964	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7937	8041	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10860	10964	
==>eturn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method & <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5529	5631	
==>d files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter rel <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5338	5438	
==>d files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter rel <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8989	9120	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11962	12093	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8989	9120	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11962	12093	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8989	9120	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11962	12093	
==>types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod: <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	16098	16197	
==>gical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16098	16197	
==>gical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	14687	14886	
==>ttrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attr <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18164	18363	
==>ttrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attr <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17580	17779	
==>ttrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attr <==
8	/Users/nnunley/pugs/misc/Blondie/example.pl	284	415	
==>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $ <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5949	6043	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1145	1239	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5949	6043	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1145	1239	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5102	5212	
==>self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collect <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5102	5212	
==>self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collect <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5102	5212	
==>self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collect <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17683	17782	
==>d code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty aft <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17683	17782	
==>d code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty aft <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14868	14959	
==>IL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END__ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14868	14959	
==>IL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END__ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14868	14959	
==>IL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END__ <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5403	5520	
==>an::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5403	5520	
==>an::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10952	11037	
==>----------------------------------
Random Thoughts on Role state:
-------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10975	11060	
==>-----------
Random Thoughts on Role state:
------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10952	11037	
==>----------------------------------
Random Thoughts on Role state:
-------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10975	11060	
==>-----------
Random Thoughts on Role state:
------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10952	11037	
==>----------------------------------
Random Thoughts on Role state:
-------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10975	11060	
==>-----------
Random Thoughts on Role state:
------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30734	30950	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32453	32669	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30734	30950	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32453	32669	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30734	30950	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32453	32669	
==>i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	12452	12548	
==>odo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the re <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12510	12606	
==>odo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1999	2100	
==>path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($di <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1999	2100	
==>path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($di <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6434	6531	
==>g the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6434	6531	
==>g the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6434	6531	
==>g the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessin <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3458	3550	
==>actory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4 <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3458	3550	
==>actory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4 <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5655	5747	
==>actory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9433	9542	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6980	7089	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9433	9542	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6980	7089	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9433	9542	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6980	7089	
==>order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($or <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	608	716	
==>t($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <bo <==
8	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	608	716	
==>t($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <bo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3014	3148	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5815	5949	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3014	3148	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5815	5949	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3014	3148	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5815	5949	
==>"Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::A <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1130	1244	
==>y ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "no <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	233	346	
==>y ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "no <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13810	13926	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14184	14300	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13810	13926	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14184	14300	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13810	13926	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14184	14300	
==>roy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.del <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	86	178	
==>::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	86	178	
==>::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7466	7621	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5025	5180	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7466	7621	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5025	5180	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7466	7621	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5025	5180	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1161	1316	
==>y $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31672	31769	
==>em max

The maximum repetition count of this object (for quantifiers).

=item min

The minimum rep <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	149	303	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3203	3357	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	274	428	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1950	2104	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	149	303	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3203	3357	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	274	428	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1950	2104	
==>ts
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	15325	15451	
==>(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_jo <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18802	18928	
==>(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_jo <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18227	18353	
==>(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_jo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10787	10888	
==>method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_lis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10787	10888	
==>method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_lis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10787	10888	
==>method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_lis <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1223	1321	
==>= Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gram <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1223	1321	
==>= Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gram <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7004	7139	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4563	4698	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7004	7139	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4563	4698	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7004	7139	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4563	4698	
==>erge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4823	4928	
==>);

  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5169	5272	
==>)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5981	6163	
==>);
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            m <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5981	6163	
==>);
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            m <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5981	6163	
==>);
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2539	2681	
==>as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression an <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2539	2681	
==>as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression an <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2539	2681	
==>as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression an <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	967	1059	
==>@array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	967	1059	
==>@array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	334	445	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	332	443	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	334	445	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	332	443	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	334	445	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	332	443	
==>implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uniq <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2223	2322	
==>field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2223	2322	
==>field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12821	12921	
==>e op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12821	12921	
==>e op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12821	12921	
==>e op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37472	37569	
==>ary join()
operator, and the order of its arguments is not significant to the result;
the new Rela <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42021	42118	
==>ary join()
operator, and the order of its arguments is not significant to the result;
the new Rela <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41662	41759	
==>ary join()
operator, and the order of its arguments is not significant to the result;
the new Rela <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2434	2530	
==>/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit fr <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2434	2530	
==>/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit fr <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	461	612	
==>sebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($ <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	461	612	
==>sebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	759	856	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1279	1376	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	759	856	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1279	1376	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	759	856	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1279	1376	
==>pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16691	16787	
==>e optional named parameter
@child_nodes (an array ref) is set, then each element in it is used to <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16691	16787	
==>e optional named parameter
@child_nodes (an array ref) is set, then each element in it is used to <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39489	39583	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39759	39853	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39489	39583	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39759	39853	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39489	39583	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39759	39853	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, ' <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	450	549	
==>t accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	995	1094	
==>t accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	450	549	
==>t accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	995	1094	
==>t accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	995	1094	
==>t accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	29762	29855	
==>d invocant's attributes.  This method
supports having the new attributes having the same names <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34314	34407	
==>d invocant's attributes.  This method
supports having the new attributes having the same names <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33478	33571	
==>d invocant's attributes.  This method
supports having the new attributes having the same names <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1586	1706	
==>ileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1553	1673	
==>ileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16512	16613	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21229	21330	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16512	16613	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21229	21330	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16512	16613	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21229	21330	
==>ht* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a f <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3011	3107	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6025	6121	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8093	8189	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3011	3107	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6025	6121	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8093	8189	
==>ootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $d <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5482	5576	
==>$content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.hea <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5482	5576	
==>$content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.hea <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3096	3227	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6089	6220	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3369	3493	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9787	9911	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3369	3493	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9787	9911	
==>onal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3033	3141	
==>self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	774	872	
==>ump data as p5
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::D <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	963	1104	
==>$module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\ <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	842	983	
==>$module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19318	19419	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4798	4899	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19318	19419	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4798	4899	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19318	19419	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4798	4899	
==>hod('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7144	7253	
==>tement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', ot <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7144	7253	
==>tement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', ot <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1813	1914	
==>tement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', ot <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1813	1914	
==>tement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', ot <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5837	5937	
==>ice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the ori <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5837	5937	
==>ice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the ori <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5837	5937	
==>ice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the ori <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	15037	15135	
==>ion's type,
	# this causes the type variables in the cloned function to be instantiated to the conc <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3500	3600	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6514	6614	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8582	8682	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3500	3600	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6514	6614	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8582	8682	
==>rns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	13445	13543	
==>that refers to another file or test which must be
made to pass before this test can pass (or before <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13503	13601	
==>that refers to another file or test which must be
made to pass before this test can pass (or before <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5271	5391	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8241	8361	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5271	5391	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8241	8361	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5271	5391	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8241	8361	
==>ke a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimi <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11020	11124	
==>_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0) <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11020	11124	
==>_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0) <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3149	3484	
==>user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell - <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3149	3484	
==>user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5766	5874	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3886	3994	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5766	5874	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3886	3994	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5766	5874	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3886	3994	
==>lso subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4477	4640	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6989	7152	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4477	4640	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6989	7152	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4477	4640	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6989	7152	
==>) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12413	12508	
==>iginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_bloc <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12413	12508	
==>iginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_bloc <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1543	1667	
==>returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1543	1667	
==>returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4050	4148	
==>n.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4050	4148	
==>n.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7029	7126	
==>n.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9099	9196	
==>n.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7029	7126	
==>n.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9099	9196	
==>n.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24794	24919	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26983	27108	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24794	24919	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26983	27108	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24794	24919	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26983	27108	
==>,$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3674	3774	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $ <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3674	3774	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $ <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8334	8457	
==>r(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801), <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8334	8457	
==>r(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801), <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18289	18406	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15527	15644	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18289	18406	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15527	15644	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18289	18406	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15527	15644	
==>:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6601	6707	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9050	9156	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6601	6707	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9050	9156	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6601	6707	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9050	9156	
==>efined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed li <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10159	10255	
==>ontaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also re <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10159	10255	
==>ontaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also re <==
8	/Users/nnunley/pugs/util/version_h.pl	903	1027	
==>^ *committed-rev=.(\d+)./ or next;
        $revision = $1;
        last;
    }
    close FH;
} elsif (my @info = qx/svk info/ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	169	281	
==>ler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	162	270	
==>ler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	156	264	
==>ler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	162	270	
==>ler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	156	264	
==>ler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3977	4070	
==>elf.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_uni <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3977	4070	
==>elf.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_uni <==
8	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1276	1390	
==>hunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug o <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1209	1311	
==>hunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2810	2906	
==>) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2810	2906	
==>) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2810	2906	
==>) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2605	2699	
==>!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2605	2699	
==>!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2605	2699	
==>!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_p <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8246	8383	
==>l to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8246	8383	
==>l to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8246	8383	
==>l to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13166	13267	
==>n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13166	13267	
==>n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13166	13267	
==>n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MUL <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	105	196	
==>V<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADD <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	105	196	
==>V<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADD <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1733	1854	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3296	3417	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1733	1854	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3296	3417	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1733	1854	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3296	3417	
==>s 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are det <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	3272	3365	
==>ference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.include <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3272	3365	
==>ference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.include <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3155	3304	
==>hes[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags ) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3054	3199	
==>hes[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags ) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9547	9664	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7094	7211	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9547	9664	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7094	7211	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9547	9664	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7094	7211	
==>eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Uns <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5410	5519	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3530	3639	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5410	5519	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3530	3639	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5410	5519	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3530	3639	
==>classes) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2088	2192	
==>ss substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $f <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2088	2192	
==>ss substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9975	10079	
==>-------------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9998	10102	
==>--------------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9975	10079	
==>-------------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9998	10102	
==>--------------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9975	10079	
==>-------------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9998	10102	
==>--------------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	16403	16501	
==>ect, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one sid <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16403	16501	
==>ect, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one sid <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	427	554	
==>tr $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    i <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	427	554	
==>tr $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8535	8638	
==>." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8535	8638	
==>." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8535	8638	
==>." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5243	5336	
==>tatus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fr <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5243	5336	
==>tatus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7440	7533	
==>tatus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	137	243	
==>rnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8746	8850	
==>rimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pr <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8746	8850	
==>rimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pr <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8746	8850	
==>rimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pr <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	132	233	
==>rnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	126	227	
==>rnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	132	233	
==>rnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	126	227	
==>rnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2920	3043	
==>s\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( de <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3060	3183	
==>s\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10519	10735	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8070	8286	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10519	10735	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8070	8286	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10519	10735	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8070	8286	
==>ack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_m <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3159	3267	
==>e signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method <==
8	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3159	3267	
==>e signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10113	10235	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12754	12876	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13590	13712	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16231	16353	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12871	12993	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15593	15715	
==>tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	1957	2056	
==>orrect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1957	2056	
==>orrect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    m <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13776	13876	
==>tests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pa <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23208	23299	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1781	1872	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4072	4163	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1744	1835	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23208	23299	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1781	1872	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4072	4163	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1744	1835	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It al <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2685	2843	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11387	11545	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16492	16650	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2878	3036	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11666	11824	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16771	16929	
==>)
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14358	14492	
==>] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14352	14486	
==>] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4907	5043	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7843	7979	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4907	5043	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7843	7979	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4907	5043	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7843	7979	
==>ess sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the other <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4757	4859	
==>a given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly fas <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4757	4859	
==>a given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly fas <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3478	3604	
==>+ capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1] <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3466	3592	
==>+ capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9718	9836	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12691	12809	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9718	9836	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12691	12809	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9718	9836	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12691	12809	
==>patcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6796	6901	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9766	9871	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6796	6901	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9766	9871	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6796	6901	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9766	9871	
==>urn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && re <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8769	8863	
==>bject using an existing Recurrence object.

- `universal_set()`

Creates an object with a conti <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8769	8863	
==>bject using an existing Recurrence object.

- `universal_set()`

Creates an object with a conti <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4097	4247	
==>}
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_e <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4097	4247	
==>}
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_e <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4054	4202	
==>}
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_e <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4054	4202	
==>}
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_e <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7982	8117	
==>roto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1033	1158	
==>gs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pug <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1033	1158	
==>gs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pug <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1033	1158	
==>gs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pug <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1362	1471	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vty <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1362	1471	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vty <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1101	1209	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1826	1934	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2086	2194	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1101	1209	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1826	1934	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2086	2194	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vty <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2018	2163	
==>ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Re <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2018	2163	
==>ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Re <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	67	157	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	291	381	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	67	157	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	291	381	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	67	157	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	291	381	
==>of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (a <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7701	7824	
==>>{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        return $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12042	12165	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2499	2619	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9271	9391	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7441	7561	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2499	2619	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9271	9391	
==>>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $m <==
8	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3126	3225	
==>\"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13709	13828	
==>$off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13709	13828	
==>$off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13709	13828	
==>$off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5955	6074	
==>$off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4455	4574	
==>$off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	827	936	
==>s.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# an <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	827	936	
==>s.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# an <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	827	936	
==>s.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# an <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39551	39656	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = sh <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39551	39656	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = sh <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39551	39656	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = sh <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7174	7278	
==>, "Z", " in character class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1773	1871	
==>ext unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1773	1871	
==>ext unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1773	1871	
==>ext unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5297	5392	
==>shift;
		my $type = $self->simplify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16157	16283	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20874	21000	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16157	16283	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20874	21000	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16157	16283	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20874	21000	
==>istry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2703	2815	
==>:=(<'$op->{name2}'>)/s;
        push @rules, $template;
    }
    push @rules, "<$tight>";
    @rules = _optimize <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	417	517	
==>rn $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj ) <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2807	2929	
==>code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $t <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2807	2929	
==>code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $t <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	84	180	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	345	441	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	84	180	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	345	441	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	84	180	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	345	441	
==>elf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FET <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3282	3403	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8567	8688	
==>plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6275	6392	
==>plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3544	3660	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9962	10078	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8267	8383	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3544	3660	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9962	10078	
==>plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return s <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1911	2012	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	541	642	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1679	1780	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13987	14088	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1911	2012	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	541	642	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1679	1780	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13987	14088	
==>.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

This program is free so <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25256	25351	
==>on of its
arguments and any invocant object's attributes is identical; they do not
interact with <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11387	11482	
==>on of its
arguments and any invocant object's attributes is identical; they do not
interact with <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14660	14755	
==>on of its arguments and any invocant
object's attributes is identical; they do not interact with <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	1646	1741	
==>ivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, * <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25256	25351	
==>on of its
arguments and any invocant object's attributes is identical; they do not
interact with <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11387	11482	
==>on of its
arguments and any invocant object's attributes is identical; they do not
interact with <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14660	14755	
==>on of its arguments and any invocant
object's attributes is identical; they do not interact with <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1646	1741	
==>ivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, * <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4612	4743	
==>ub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($ho <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13037	13168	
==>ub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($ho <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15648	15779	
==>ub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($ho <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17136	17267	
==>ub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($ho <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21819	21950	
==>ub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($ho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1062	1168	
==>urn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1062	1168	
==>urn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1062	1168	
==>urn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixu <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4642	4753	
==>@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4889	5000	
==>@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4642	4753	
==>@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4889	5000	
==>@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4388	4498	
==>@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4388	4498	
==>@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4133	4242	
==>@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4133	4242	
==>@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10933	11048	
==>ethod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10933	11048	
==>ethod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10933	11048	
==>ethod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if e <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1105	1203	
==>slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimizat <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1105	1203	
==>slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimizat <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1105	1203	
==>slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimizat <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12458	12552	
==>he parameter.
If both previous and next elements are at the same distance, returns the previous <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12458	12552	
==>he parameter.
If both previous and next elements are at the same distance, returns the previous <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3620	3734	
==>path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3620	3734	
==>path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	896	1009	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1770	1883	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2945	3058	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	896	1009	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1770	1883	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2945	3058	
==>path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12614	12754	
==>\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8888	9028	
==>\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9723	9863	
==>\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2587	2689	
==>ub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2587	2689	
==>ub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2587	2689	
==>ub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7626	7721	
==>because the actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$cap <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7367	7460	
==>because the actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$cap <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12194	12331	
==>__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, commen <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12194	12331	
==>__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, commen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	845	954	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	933	1042	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	845	954	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	933	1042	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	845	954	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	933	1042	
==>sif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2409	2511	
==>F) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2409	2511	
==>F) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2409	2511	
==>F) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8292	8387	
==>rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8280	8375	
==>rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	22030	22124	
==>tively have a special meaning in relational algebra which
is analagous to what the identity num <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26582	26676	
==>tively have a special meaning in relational algebra which
is analagous to what the identity num <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25278	25372	
==>tively have a special meaning in relational algebra which
is analagous to what the identity num <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30220	30355	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31949	32084	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30220	30355	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31949	32084	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30220	30355	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31949	32084	
==>ms}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    } <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	123	231	
==>y %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.at <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	123	231	
==>y %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.at <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6113	6218	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9083	9188	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6113	6218	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9083	9188	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6113	6218	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9083	9188	
==>stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMe <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24384	24478	
==>p with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24384	24478	
==>p with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13336	13452	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18219	18335	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13336	13452	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18219	18335	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13336	13452	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18219	18335	
==>xt
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	203	302	
==>as it is executed, but the linked
list is done in code (i.e. with closures).  It has the following
m <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	203	302	
==>as it is executed, but the linked
list is done in code (i.e. with closures).  It has the following
m <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3713	3995	
==>line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events< <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3756	4038	
==>line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events< <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3713	3995	
==>line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events< <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3756	4038	
==>line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events< <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10920	11065	
==>ch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7994	8130	
==>ch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7994	8130	
==>ch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3713	3826	
==>it;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( '" . <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4718	4847	
==>} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak( <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13143	13272	
==>} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak( <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15754	15883	
==>} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak( <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17242	17371	
==>} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak( <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21925	22054	
==>} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	681	779	
==>ded unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	681	779	
==>ded unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	681	779	
==>ded unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17 <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1387	1556	
==>V
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        50 <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1387	1556	
==>V
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        50 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2179	2287	
==>rpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2179	2287	
==>rpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2179	2287	
==>rpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29617	29715	
==>MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre { <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29617	29715	
==>MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre { <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	421	511	
==>MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18077	18185	
==>sult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->st <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18077	18185	
==>sult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->st <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18077	18185	
==>sult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->st <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	13516	13619	
==>:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersection <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13516	13619	
==>:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersection <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15730	15832	
==>I SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB po <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15730	15832	
==>I SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB po <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15730	15832	
==>I SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB po <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	9167	9280	
==>self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_ <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9167	9280	
==>self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_ <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	687	794	
==>t... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve fail <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	654	761	
==>t... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve fail <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	74	180	
==>rary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = ne <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	78	184	
==>rary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = ne <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	74	180	
==>rary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = ne <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	78	184	
==>rary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = ne <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14592	14763	
==>eedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       ) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14871	15042	
==>eedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       ) <==
8	/Users/nnunley/pugs/util/build_pugs.pl	8806	8925	
==>_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        pr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6067	6165	
==>t open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6067	6165	
==>t open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6067	6165	
==>t open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \" <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1345	1442	
==>xport {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) retu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1345	1442	
==>xport {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3173	3326	
==>, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #w <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3173	3326	
==>, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #w <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3173	3326	
==>, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #w <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9802	9907	
==>hod pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Valu <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9802	9907	
==>hod pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Valu <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23034	23137	
==>[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .p <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1410	1507	
==>{
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1410	1507	
==>{
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13191	13285	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4361	4455	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8817	8911	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13191	13285	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4361	4455	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8817	8911	
==>-sake
representative for this whole file, which can be referenced as a unit by
documentation or <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8056	8146	
==>emplate_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'te <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8056	8146	
==>emplate_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'te <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4222	4344	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6871	6993	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4454	4573	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10903	11022	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4454	4573	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10903	11022	
==>$match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match-> <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8420	8519	
==>l page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASC <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8420	8519	
==>l page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASC <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2799	2918	
==>ule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$fla <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2939	3058	
==>ule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$fla <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25253	25348	
==>ation of its
arguments and any invocant object's attributes is identical; they do not
interact w <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11384	11479	
==>ation of its
arguments and any invocant object's attributes is identical; they do not
interact w <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14657	14752	
==>ation of its arguments and any invocant
object's attributes is identical; they do not interact w <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25253	25348	
==>ation of its
arguments and any invocant object's attributes is identical; they do not
interact w <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11384	11479	
==>ation of its
arguments and any invocant object's attributes is identical; they do not
interact w <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14657	14752	
==>ation of its arguments and any invocant
object's attributes is identical; they do not interact w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1551	1675	
==>nt_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1551	1675	
==>nt_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1551	1675	
==>nt_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5939	6056	
==>r reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5939	6056	
==>r reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5939	6056	
==>r reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or di <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6438	6546	
==>s{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %u <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6438	6546	
==>s{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %u <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1447	1595	
==>ss = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_pat <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1447	1595	
==>ss = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_pat <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2946	3044	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10869	10967	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6071	6169	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2946	3044	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10869	10967	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6071	6169	
==>);
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7421	7529	
==>ching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11756	11864	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2237	2344	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9009	9116	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7171	7278	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2237	2344	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9009	9116	
==>ching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\ <==
8	/Users/nnunley/pugs/inc/Test/Harness.pm	906	1009	
==>aps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_OK = q <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3296	3406	
==>py));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1 <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3296	3406	
==>py));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1 <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3652	3762	
==>py));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1 <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2127	2226	
==>diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4346	4445	
==>diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2127	2226	
==>diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4346	4445	
==>diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	12865	12961	
==>&prefix:<=> from
# meaning the same as &readline to $obj.shift(), ="some_file" worked, so I
# add <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15063	15193	
==>f scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15063	15193	
==>f scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15063	15193	
==>f scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2355	2483	
==>eturn \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2343	2471	
==>eturn \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14397	14486	
==>te_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14397	14486	
==>te_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14397	14486	
==>te_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attr <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6124	6221	
==>et $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $t <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5254	5351	
==>et $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $t <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6124	6221	
==>et $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $t <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5254	5351	
==>et $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $t <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1940	2032	
==>on:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1903	1995	
==>on:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1940	2032	
==>on:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1903	1995	
==>on:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

G <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7002	7137	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4561	4696	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7002	7137	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4561	4696	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7002	7137	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4561	4696	
==>_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all emp <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1011	1118	
==>s_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1011	1118	
==>s_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3605	3761	
==>_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND con <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4069	4225	
==>_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND con <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23824	23954	
==>);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20245	20375	
==>);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8514	8632	
==>DTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8514	8632	
==>DTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8514	8632	
==>DTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9692	9801	
==>invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial ca <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13169	13278	
==>invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial ca <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12441	12550	
==>invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6086	6206	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9056	9176	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6086	6206	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9056	9176	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6086	6206	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9056	9176	
==>}
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'P <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5389	5489	
==>pm  # configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5200	5298	
==>pm  # configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2558	2765	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ce <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2558	2765	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ce <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2558	2765	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ce <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	421	520	
==>urce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $! <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	421	520	
==>urce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $! <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	421	520	
==>urce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $! <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3122	3219	
==>lti sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $o <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3122	3219	
==>lti sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $o <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5088	5186	
==>or.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5088	5186	
==>or.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3220	3313	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6234	6327	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8302	8395	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3220	3313	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6234	6327	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8302	8395	
==>catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns St <==
8	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	651	783	
==>if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $d <==
8	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	686	818	
==>if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	651	783	
==>if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $d <==
8	/Users/nnunley/pugs/util/build_pugs.pl	9868	10000	
==>if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $d <==
8	/Users/nnunley/pugs/util/src_to_blib.pl	1124	1256	
==>if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3188	3315	
==>ttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3188	3315	
==>ttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3188	3315	
==>ttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6306	6426	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9276	9396	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6306	6426	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9276	9396	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6306	6426	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9276	9396	
==>ust has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if b <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3251	3353	
==>er so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3251	3353	
==>er so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6557	6679	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9006	9128	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6557	6679	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9006	9128	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6557	6679	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9006	9128	
==>end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate la <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	266	364	
==>relude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backen <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	339	437	
==>relude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9459	9590	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12432	12563	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9459	9590	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12432	12563	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9459	9590	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12432	12563	
==>('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # th <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	319	430	
==>rder of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entit <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	319	430	
==>rder of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entit <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5682	5857	
==>s Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_mess <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5682	5857	
==>s Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_mess <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4843	4986	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7779	7922	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4843	4986	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7779	7922	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4843	4986	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7779	7922	
==>e again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $:: <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1873	1982	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2097	2206	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2323	2432	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1873	1982	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2097	2206	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2323	2432	
==>>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is no <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6943	7046	
==>ntent);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(. <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6943	7046	
==>ntent);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30199	30316	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31928	32045	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30199	30316	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31928	32045	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30199	30316	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31928	32045	
==>@tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ( <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	92	194	
==>ed 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and do <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	92	194	
==>ed 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and do <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15334	15514	
==>ms->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('$repr'   => 'str'), 
                              symbol->new <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3306	3427	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8591	8712	
==>shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        my $tail = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3567	3683	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9985	10101	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8290	8406	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3567	3683	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9985	10101	
==>shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail = <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5556	5822	
==>>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_st <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5556	5822	
==>>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_st <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	831	930	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1351	1450	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	831	930	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1351	1450	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	831	930	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1351	1450	
==>array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	666	800	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	754	888	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	666	800	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	754	888	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	666	800	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	754	888	
==>ile(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } els <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	746	850	
==>nsity>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	746	850	
==>nsity>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6449	6567	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7202	7320	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8066	8184	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8847	8965	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9926	10044	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10679	10797	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11543	11661	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12324	12442	
==>ion {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	391	502	
==>ns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method memb <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	391	502	
==>ns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method memb <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	295	391	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	619	715	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	295	391	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	619	715	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	295	391	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	619	715	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15018	15160	
==>ad[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15018	15160	
==>ad[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15018	15160	
==>ad[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19717	19858	
==>ad[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19717	19858	
==>ad[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19717	19858	
==>ad[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it li <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30233	30329	
==>ssage Variables, which will be substituted at run-time before the text
is shown to the user.

Eac <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30233	30329	
==>ssage Variables, which will be substituted at run-time before the text
is shown to the user.

Eac <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7911	8029	
==>Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7911	8029	
==>Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7911	8029	
==>Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16960	17070	
==>ual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2085	2193	
==>essed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a ha <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7922	8030	
==>eturn 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_;
  my $fail;
  while (my ($key, $value) = each %$suspec <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2085	2193	
==>essed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a ha <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2085	2193	
==>essed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a ha <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3411	3525	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11969	12083	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6536	6650	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3411	3525	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11969	12083	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6536	6650	
==>g } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4505	4601	
==>does not support OO, methods are
implemented as hash keys to code refs. The only function this mo <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4505	4601	
==>does not support OO, methods are
implemented as hash keys to code refs. The only function this mo <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	991	1155	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$siz <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	991	1155	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$siz <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14855	14961	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12109	12215	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14855	14961	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12109	12215	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14855	14961	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12109	12215	
==>ttribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5600	5716	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8570	8686	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5600	5716	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8570	8686	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5600	5716	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8570	8686	
==>eturn the exact same sub. This results in this
        # method being passed an already blessed method 
        # ins <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4661	4753	
==>f_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map: <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4661	4753	
==>f_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9252	9398	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12225	12371	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9252	9398	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12225	12371	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9252	9398	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12225	12371	
==>Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        p <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9556	9656	
==>s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:P <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9556	9656	
==>s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:P <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	507	631	
==>e object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ th <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	507	631	
==>e object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ th <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3242	3366	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6235	6357	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3508	3625	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9926	10043	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3508	3625	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9926	10043	
==>$node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11440	11565	
==>lon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11434	11559	
==>lon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7774	7872	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6904	7002	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3490	3588	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3490	3588	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7774	7872	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6904	7002	
==>uplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1094	1269	
==>Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1094	1269	
==>Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3510	3642	
==>ll') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3510	3642	
==>ll') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3510	3642	
==>ll') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2273	2397	
==>->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2273	2397	
==>->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2273	2397	
==>->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3981	4133	
==>c;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            i <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5205	5357	
==>c;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1993	2131	
==>ucture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1993	2131	
==>ucture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1993	2131	
==>ucture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.met <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6100	6189	
==>:Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6100	6189	
==>:Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8297	8386	
==>:Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	849	959	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	937	1047	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	849	959	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	937	1047	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	849	959	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	937	1047	
==>$arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as bel <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	371	471	
==>r agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskelle <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	371	471	
==>r agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskelle <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5386	5494	
==>content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5386	5494	
==>content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13188	13281	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4358	4451	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8814	8907	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13188	13281	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4358	4451	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8814	8907	
==>ame-sake
representative for this whole file, which can be referenced as a unit by
documentatio <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3075	3192	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10998	11115	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6200	6317	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3075	3192	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10998	11115	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6200	6317	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { ' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6466	6570	
==>nd assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6259	6358	
==>nd assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4600	4702	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4847	4949	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4600	4702	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4847	4949	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4091	4192	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4346	4447	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4091	4192	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4346	4447	
==>@string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5115	5260	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8085	8230	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5115	5260	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8085	8230	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5115	5260	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8085	8230	
==>l $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    } <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2810	2932	
==>);
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_ope <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2810	2932	
==>);
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_ope <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2604	2779	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5609	5784	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1294	1469	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2970	3145	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2604	2779	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5609	5784	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1294	1469	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2970	3145	
==>ling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7631	7758	
==>ext
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate th <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7631	7758	
==>ext
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate th <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	35912	36007	
==>ribute names
and corresponding common tuple values are aligned and merged.  The heading
of the n <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37655	37750	
==>ribute names and corresponding common tuple values
are aligned and merged.  The heading of the n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40462	40557	
==>ribute names
and corresponding common tuple values are aligned and merged.  The heading
of the n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42204	42299	
==>ribute names and corresponding common tuple values
are aligned and merged.  The heading of the n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40076	40171	
==>ribute names
and corresponding common tuple values are aligned and merged.  The heading
of the n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41854	41949	
==>ribute names and corresponding common tuple values
are aligned and merged.  The heading of the n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7292	7420	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4851	4979	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7292	7420	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4851	4979	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7292	7420	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4851	4979	
==>res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	9532	9635	
==>sed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might w <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9590	9693	
==>sed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might w <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	9943	10054	
==>no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2, <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7883	7994	
==>no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2, <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9943	10054	
==>no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2, <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7883	7994	
==>no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2, <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6272	6364	
==>piln_object_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int {
    +@ar <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11274	11360	
==>Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail does Test::Builder::Test <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1732	1816	
==>Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1732	1816	
==>Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8555	8681	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11528	11654	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8555	8681	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11528	11654	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8555	8681	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11528	11654	
==>ck to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	143	242	
==>has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------------- <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	143	242	
==>has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------------- <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3404	3533	
==>) ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3597	3726	
==>) ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3493	3591	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6507	6605	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8575	8673	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3493	3591	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6507	6605	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8575	8673	
==>e) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns St <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3150	3245	
==>atements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]] <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3343	3438	
==>atements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]] <==
8	/Users/nnunley/pugs/util/package-osx.pl	8892	8995	
==>n("$dest$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1260	1357	
==>$s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0"). <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	711	805	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1231	1325	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	711	805	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1231	1325	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	711	805	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1231	1325	
==>gs[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23275	23371	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1848	1944	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4139	4235	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1811	1907	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23275	23371	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1848	1944	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4139	4235	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1811	1907	
==>r error messages).

It also requires these Perl 6 classes that are in the current distribution:
L <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1342	1452	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        typ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1342	1452	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        typ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1081	1190	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1806	1915	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2066	2175	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1081	1190	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1806	1915	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2066	2175	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        typ <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6036	6127	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1232	1323	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6997	7088	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1437	1528	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6036	6127	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1232	1323	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6997	7088	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1437	1528	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=cut <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1605	1754	
==>tr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1605	1754	
==>tr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1605	1754	
==>tr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19488	19607	
==>xample.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20485	20604	
==>xample.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3292	3404	
==>lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Pe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3292	3404	
==>lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Pe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3292	3404	
==>lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Pe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19126	19247	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16364	16485	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19126	19247	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16364	16485	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19126	19247	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16364	16485	
==>his should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23390	23484	
==>e =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23390	23484	
==>e =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1018	1116	
==>the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Contin <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1018	1116	
==>the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Contin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12044	12140	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9599	9695	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12044	12140	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9599	9695	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12044	12140	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9599	9695	
==>'_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    re <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3985	4094	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4923	5032	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2219	2328	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2465	2574	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3000	3109	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3246	3355	
==>get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_ <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	111	206	
==>ration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a date <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	111	206	
==>ration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a date <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5509	5633	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3629	3753	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5509	5633	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3629	3753	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5509	5633	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3629	3753	
==>an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $s <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11218	11325	
==>urn $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteif <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11218	11325	
==>urn $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteif <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4406	4525	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7055	7174	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4633	4749	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11082	11198	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4633	4749	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11082	11198	
==>h2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        del <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15802	15911	
==>RLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->objec <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10658	10767	
==>RLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->objec <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11609	11755	
==>d eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11609	11755	
==>d eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11609	11755	
==>d eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12903	13001	
==>elude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12903	13001	
==>elude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12903	13001	
==>elude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	836	926	
==>imple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacemen <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	836	926	
==>imple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacemen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	64	175	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	59	170	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	64	175	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	59	170	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	64	175	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	59	170	
==>sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "A <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38989	39087	
==>tion is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itse <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43803	43901	
==>tion is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itse <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1421	1547	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2984	3110	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1421	1547	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2984	3110	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1421	1547	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2984	3110	
==>t 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SEL <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8459	8554	
==>ll %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nic <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8459	8554	
==>ll %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nic <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1032	1139	
==>l {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
metho <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1032	1139	
==>l {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2326	2424	
==>ow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2326	2424	
==>ow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2326	2424	
==>ow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename) <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26512	26606	
==>liminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31064	31158	
==>liminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30066	30160	
==>liminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18553	18682	
==>b {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14974	15103	
==>b {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11349	11473	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2861	2985	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11349	11473	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2861	2985	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11349	11473	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2861	2985	
==>ar proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.B <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17972	18113	
==>);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_I <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14393	14534	
==>);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_I <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12476	12591	
==>ar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12476	12591	
==>ar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12476	12591	
==>ar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5781	5869	
==>} keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5781	5869	
==>} keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5781	5869	
==>} keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob" <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13235	13362	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13235	13362	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13235	13362	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5475	5602	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3975	4102	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2120	2247	
==>len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $le <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16848	16973	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_dec <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17127	17252	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_dec <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20600	20698	
==>turns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<joi <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19526	19624	
==>turns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<joi <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20600	20698	
==>turns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<joi <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19526	19624	
==>turns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<joi <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20631	20728	
==>t has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19557	19654	
==>t has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20631	20728	
==>t has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19557	19654	
==>t has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29150	29272	
==>get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29729	29851	
==>get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29150	29272	
==>get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29729	29851	
==>get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	489	599	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	521	631	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	736	846	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	736	846	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2877	2978	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10800	10901	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6002	6103	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2877	2978	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10800	10901	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6002	6103	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str ( <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3519	3614	
==>le, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3519	3614	
==>le, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	301	410	
==>- The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.te <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	301	410	
==>- The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.te <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1403	1506	
==>jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pF <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1403	1506	
==>jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pF <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1403	1506	
==>jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pF <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6296	6383	
==>-----------------------------------------------------
## Module

$::Module = $::Class->n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6296	6383	
==>-----------------------------------------------------
## Module

$::Module = $::Class->n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6296	6383	
==>-----------------------------------------------------
## Module

$::Module = $::Class->n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9077	9196	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12050	12169	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9077	9196	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12050	12169	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9077	9196	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12050	12169	
==>rl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMetho <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10661	10757	
==>s specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, c <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10661	10757	
==>s specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7036	7184	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4595	4743	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7036	7184	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4595	4743	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7036	7184	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4595	4743	
==>ub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { ( <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14898	14990	
==>hannel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14898	14990	
==>hannel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21013	21127	
==>neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S- <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17434	17548	
==>neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S- <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	834	933	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1354	1453	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	834	933	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1354	1453	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	834	933	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1354	1453	
==>ay = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(va <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3792	4051	
==>as empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3792	4051	
==>as empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14096	14192	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11368	11464	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14096	14192	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11368	11464	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14096	14192	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11368	11464	
==>ned $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table-> <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11527	11646	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2521	2640	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7615	7734	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11527	11646	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2521	2640	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7615	7734	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_el <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	6441	6537	
==>a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6441	6537	
==>a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1524	1623	
==>_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1524	1623	
==>_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1305	1494	
==>ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1305	1494	
==>ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1305	1494	
==>ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4715	4844	
==>ata} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cro <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13140	13269	
==>ata} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cro <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15751	15880	
==>ata} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cro <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17239	17368	
==>ata} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cro <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21922	22051	
==>ata} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cro <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6822	6940	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9792	9910	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6822	6940	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9792	9910	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6822	6940	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9792	9910	
==>thod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || co <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	1599	1685	
==>----------------------------------------------------------
## informational methods

me <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1599	1685	
==>----------------------------------------------------------
## informational methods

me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6013	6141	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8983	9111	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6013	6141	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8983	9111	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6013	6141	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8983	9111	
==>undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_meth <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9742	9836	
==>methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9742	9836	
==>methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12046	12180	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3557	3691	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12046	12180	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3557	3691	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12046	12180	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3557	3691	
==>r[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          r <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15956	16048	
==>s?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, tha <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15956	16048	
==>s?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, tha <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3299	3421	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8584	8706	
==>node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        my $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6292	6410	
==>node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub {
        my $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3560	3677	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9978	10095	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8283	8400	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3560	3677	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9978	10095	
==>node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	784	899	
==>e());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	784	899	
==>e());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	784	899	
==>e());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	213	320	
==>l 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $nam <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6058	6162	
==>ct>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!user <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6838	6942	
==>ct>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!user <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6058	6162	
==>ct>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!user <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6838	6942	
==>ct>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!user <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11618	11743	
==>g } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11618	11743	
==>g } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16944	17049	
==>ttributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization: <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20421	20526	
==>ttributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization: <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19999	20104	
==>ttributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5636	5738	
==>$self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5636	5738	
==>$self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5636	5738	
==>$self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8697	8867	
==>de assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14422	14592	
==>de assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8697	8867	
==>de assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14416	14586	
==>de assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8437	8606	
==>de assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13948	14117	
==>de assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8437	8606	
==>de assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13942	14111	
==>de assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2657	2825	
==>$current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2862	3030	
==>$current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3934	4102	
==>$current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10780	10884	
==>so use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10780	10884	
==>so use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2333	2434	
==>, cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2333	2434	
==>, cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2333	2434	
==>, cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2376	2506	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3085	3215	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2376	2506	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3085	3215	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2376	2506	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3085	3215	
==>) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Ha <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1067	1158	
==>my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_de <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1067	1158	
==>my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_de <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2812	2919	
==>est::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	645	752	
==>rgs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:// <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2812	2919	
==>est::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	645	752	
==>rgs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:// <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	645	752	
==>rgs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:// <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2892	2999	
==>est::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.o <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4117	4200	
==>:DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Com <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4117	4200	
==>:DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Com <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16184	16298	
==>ast_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Cont <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16184	16298	
==>ast_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Cont <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4220	4329	
==>@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4220	4329	
==>@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4220	4329	
==>@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6564	6655	
==>pected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6564	6655	
==>pected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6564	6655	
==>pected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7642	7797	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5201	5356	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7642	7797	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5201	5356	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7642	7797	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5201	5356	
==>1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reas <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8578	8702	
==>tion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12055	12179	
==>tion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3912	4060	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6848	6996	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3912	4060	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6848	6996	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3912	4060	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6848	6996	
==>eturn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper meth <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8697	8794	
==>malize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<chan <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8697	8794	
==>malize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<chan <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4429	4530	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4684	4785	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4931	5032	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4429	4530	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4684	4785	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4931	5032	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4174	4274	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4174	4274	
==>ndex(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.oct <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1140	1247	
==>ub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "para <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1140	1240	
==>ub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "para <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36302	36396	
==>ng pairs where the values of those attributes differ and unioning
the remaining said tuple pair <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38055	38149	
==>ng pairs where the
values of those attributes differ and unioning the remaining said tuple
pair <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40851	40945	
==>ng pairs where the values of those attributes differ and unioning
the remaining said tuple pair <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42604	42698	
==>ng pairs where the
values of those attributes differ and unioning the remaining said tuple
pair <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40465	40559	
==>ng pairs where the values of those attributes differ and unioning
the remaining said tuple pair <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42254	42348	
==>ng pairs where the
values of those attributes differ and unioning the remaining said tuple
pair <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5379	5494	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8349	8464	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5379	5494	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8349	8464	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5379	5494	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8349	8464	
==>trange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	9622	9719	
==>s, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTIO <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9680	9777	
==>s, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTIO <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5202	5342	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8172	8312	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5202	5342	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8172	8312	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5202	5342	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8172	8312	
==>hod->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4164	4255	
==>so requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0... <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4164	4255	
==>so requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0... <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5977	6079	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1173	1275	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6938	7040	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1378	1480	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5977	6079	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1173	1275	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6938	7040	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1378	1480	
==>.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7635	7765	
==>ode = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11976	12106	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2435	2561	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9207	9333	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7377	7503	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2435	2561	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9207	9333	
==>ode = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{ <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1253	1362	
==>>meta->package );
    
    return $self;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4025	4120	
==>odule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4025	4120	
==>odule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7004	7098	
==>odule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9074	9168	
==>odule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7004	7098	
==>odule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9074	9168	
==>odule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22994	23085	
==>y from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $n <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22994	23085	
==>y from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8967	9111	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11940	12084	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8967	9111	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11940	12084	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8967	9111	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11940	12084	
==>n 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::St <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8848	8959	
==>quire;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ($) {
    my ($use) = @_;
    eval < <==
8	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	118	212	
==>Duration {
    $self.new($self.length + $duration.length);
}

method subtract($self: Duration $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10105	10252	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7656	7803	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10105	10252	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7656	7803	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10105	10252	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7656	7803	
==>P: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of <==
8	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1746	1845	
==>to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good sou <==
8	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1746	1845	
==>to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good sou <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5519	5651	
==>eneralize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $para <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5343	5470	
==>eneralize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $para <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	1198	1310	
==>ue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4676	4788	
==>ue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23922	24026	
==>e
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22695	22799	
==>e
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23922	24026	
==>e
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22695	22799	
==>e
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10569	10667	
==>bstract 
    # methods which must be implemented
    # -------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10569	10667	
==>bstract 
    # methods which must be implemented
    # -------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10569	10667	
==>bstract 
    # methods which must be implemented
    # -------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27646	27743	
==>xport_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, whi <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27646	27743	
==>xport_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, whi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3804	3893	
==>));

## ----------------------------------------------------------------------------
## Pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3804	3893	
==>));

## ----------------------------------------------------------------------------
## Pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3804	3893	
==>));

## ----------------------------------------------------------------------------
## Pa <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	4777	4889	
==>e {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $r <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4835	4947	
==>e {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $r <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2774	2885	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5764	5875	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3066	3170	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9484	9588	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3066	3170	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9484	9588	
==>0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3582	3690	
==>my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3582	3690	
==>my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	411	504	
==>d)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	411	504	
==>d)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	411	504	
==>d)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1063	1155	
==>>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1063	1155	
==>>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1063	1155	
==>>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "" <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1753	1860	
==>ode ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $cod <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2015	2122	
==>ode ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $cod <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1753	1860	
==>ode ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $cod <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2015	2122	
==>ode ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $cod <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2418	2517	
==>s () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2418	2517	
==>s () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1436	1534	
==>h) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@f <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1436	1534	
==>h) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@f <==
8	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15651	15774	
==>}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexic <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2048	2171	
==>}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexic <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9247	9352	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6794	6899	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9247	9352	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6794	6899	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9247	9352	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6794	6899	
==>reorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18727	18828	
==>f (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2 <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20085	20186	
==>f (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2 <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3785	3952	
==>Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Has <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3785	3952	
==>Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Has <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3479	3577	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6493	6591	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8561	8659	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3479	3577	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6493	6591	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8561	8659	
==>lute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- ` <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4258	4423	
==>e_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4258	4423	
==>e_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4258	4423	
==>e_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1034	1134	
==>rces
# and we need to now create these attributes in all the currently live instances
# of Class (whi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1034	1134	
==>rces
# and we need to now create these attributes in all the currently live instances
# of Class (whi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1034	1134	
==>rces
# and we need to now create these attributes in all the currently live instances
# of Class (whi <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6823	6921	
==>ction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closu <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6823	6921	
==>ction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1991	2125	
==>e {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1991	2125	
==>e {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4566	4687	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7215	7336	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4789	4907	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11238	11356	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4789	4907	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11238	11356	
==>tch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%matc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4163	4298	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7099	7234	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4163	4298	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7099	7234	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4163	4298	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7099	7234	
==>rly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically tak <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2656	2773	
==>er.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        % <==
8	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2656	2773	
==>er.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        % <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8963	9097	
==>plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'nul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8959	9093	
==>plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'nul <==
8	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5649	5782	
==>r} - 1] = $details;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = 'h <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2404	2537	
==>plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'nul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2404	2537	
==>plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'nul <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	984	1088	
==>e => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	984	1088	
==>e => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	984	1088	
==>e => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\ <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	3060	3157	
==>y "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Se <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3060	3157	
==>y "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Se <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3669	3762	
==>re akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3669	3762	
==>re akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6689	6781	
==>re
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8758	8850	
==>re
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6689	6781	
==>re
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8758	8850	
==>re
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Mai <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3356	3535	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6292	6471	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3356	3535	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6292	6471	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3356	3535	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6292	6471	
==>_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Meth <==
8	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	824	918	
==>5/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MS <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	709	795	
==>5/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MS <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	144	299	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3198	3353	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	269	424	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1945	2100	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	144	299	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3198	3353	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	269	424	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1945	2100	
==>lements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3795	3898	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6731	6834	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3795	3898	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6731	6834	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3795	3898	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6731	6834	
==>hod) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Role <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9625	9716	
==>d as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9625	9716	
==>d as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	674	799	
==>p(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	674	799	
==>p(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	674	799	
==>p(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3015	3122	
==>p(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3015	3122	
==>p(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3015	3122	
==>p(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Con <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	5	99	
==>s Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	5	99	
==>s Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	551	684	
==>on is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs" <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	522	655	
==>on is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs" <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	551	684	
==>on is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs" <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	551	684	
==>on is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	876	985	
==>n - pass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1241	1347	
==>n - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	840	946	
==>n - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1241	1347	
==>n - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7981	8099	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10904	11022	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7981	8099	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10904	11022	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7981	8099	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10904	11022	
==>->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14140	14254	
==>payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Ros <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14140	14254	
==>payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Ros <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	602	726	
==>f ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	4529	4643	
==>he number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_chi <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4529	4643	
==>he number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_chi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	57	162	
==>fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	57	162	
==>fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	57	162	
==>fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVa <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6108	6200	
==>_elemental(bos)   --> "\\A".
p5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5 <==
8	/Users/nnunley/pugs/util/catalog_tests.pl	20517	20607	
==>ndex->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8505	8613	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6058	6166	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8505	8613	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6058	6166	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8505	8613	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6058	6166	
==>instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2399	2493	
==>.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PI <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2399	2493	
==>.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PI <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3472	3618	
==>if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1]. <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3472	3618	
==>if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1]. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16668	16777	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13873	13982	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16668	16777	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13873	13982	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16668	16777	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13873	13982	
==>= $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7410	7570	
==>urn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7410	7570	
==>urn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7410	7570	
==>urn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone = <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28529	28652	
==>ents, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28808	28931	
==>ents, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10276	10385	
==>ss, but it
    # can be a role too.
    # -----------------------------------------------    
    method resol <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10276	10385	
==>ss, but it
    # can be a role too.
    # -----------------------------------------------    
    method resol <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10276	10385	
==>ss, but it
    # can be a role too.
    # -----------------------------------------------    
    method resol <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19930	20157	
==>:stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "go <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19930	20157	
==>:stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "go <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19930	20157	
==>:stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "go <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17173	17315	
==>leop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17452	17594	
==>leop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10317	10453	
==>_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10317	10453	
==>_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10317	10453	
==>_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2236	2348	
==>' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infi <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2145	2244	
==>OM tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perld <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2145	2244	
==>OM tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perld <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	534	630	
==>R_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	534	630	
==>R_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	534	630	
==>R_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	12945	13039	
==>C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Re <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12945	13039	
==>C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Re <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2761	2898	
==>.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2761	2898	
==>.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12607	12727	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13186	13306	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12607	12727	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13186	13306	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12607	12727	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13186	13306	
==>ms{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @p <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20793	20989	
==>pture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21072	21268	
==>pture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   r <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1883	1993	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2245	2355	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2554	2664	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1883	1993	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2245	2355	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2554	2664	
==>nt @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0. <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8970	9080	
==>rs{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method ch <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8970	9080	
==>rs{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method ch <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5025	5113	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3253	3341	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5025	5113	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3253	3341	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5025	5113	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3253	3341	
==>undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':c <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	329	428	
==>eturns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_P <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	329	428	
==>eturns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_P <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	90	182	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	314	406	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	90	182	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	314	406	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	90	182	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	314	406	
==>self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(arg <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4417	4537	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7066	7186	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4644	4761	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11093	11210	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4644	4761	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11093	11210	
==>);
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match-> <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19191	19287	
==>other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

On <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19191	19287	
==>other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

On <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1029	1144	
==>_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its ele <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1029	1144	
==>_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its ele <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9160	9251	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4303	4394	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15739	15830	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9160	9251	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4303	4394	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15739	15830	
==>s_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5279	5410	
==>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sour <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6547	6678	
==>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sour <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5279	5410	
==>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sour <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6535	6666	
==>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sour <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1429	1541	
==>IL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam] <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4553	4662	
==>IL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam] <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4553	4662	
==>IL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam] <==
8	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1303	1406	
==>6 defaults and
Currying in a real context.

The newton function must receive at least:

    y - target v <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	15288	15402	
==>y Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.j <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18765	18879	
==>y Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.j <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4433	4540	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7369	7476	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4433	4540	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7369	7476	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4433	4540	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7369	7476	
==>method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16641	16817	
==>>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16641	16817	
==>>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16641	16817	
==>>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1906	2056	
==>nv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subna <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1906	2056	
==>nv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subna <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1906	2056	
==>nv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subna <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	10626	10748	
==>or {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterat <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10626	10748	
==>or {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterat <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38045	38302	
==>e'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$se <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3461	3597	
==>1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8746	8881	
==>1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3716	3848	
==>1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10134	10266	
==>1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3716	3848	
==>1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10134	10266	
==>1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8439	8570	
==>1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9310	9474	
==>mber(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $ <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1430	1576	
==>mber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $ <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1430	1576	
==>mber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	915	1025	
==>RG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	915	1025	
==>RG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5709	5818	
==>spm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5709	5818	
==>spm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5709	5818	
==>spm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15481	15598	
==>$class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15481	15598	
==>$class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15481	15598	
==>$class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exis <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2511	2618	
==>lf: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method un <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2511	2618	
==>lf: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5596	5700	
==>ub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5596	5700	
==>ub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5596	5700	
==>ub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7875	8060	
==>{
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $met <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7875	8060	
==>{
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $met <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7875	8060	
==>{
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $met <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	193	298	
==>=> rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=hea <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	193	298	
==>=> rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=hea <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37095	37189	
==>ations have zero attributes in common, their joining degenerates to a
C<product>.  In any situa <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41644	41738	
==>ations have zero attributes in common, their joining degenerates to a
C<product>.  In any situa <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41267	41361	
==>ations have zero attributes in common, their joining degenerates to a
C<product>.  In any situa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14672	14783	
==>eturn qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $ <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14672	14783	
==>eturn qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	153	301	
==>ance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	153	301	
==>ance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	153	301	
==>ance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12139	12243	
==>t class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12139	12243	
==>t class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12139	12243	
==>t class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($ <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2655	2752	
==>incorporated into the match.  XXX it is not clear
that this is the optimal interface for this comb <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2655	2752	
==>incorporated into the match.  XXX it is not clear
that this is the optimal interface for this comb <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	540	652	
==>apital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capi <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	540	652	
==>apital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3350	3459	
==>ally in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3350	3459	
==>ally in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3350	3459	
==>ally in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pre <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3173	3273	
==>t load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "us <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3173	3273	
==>t load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "us <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3173	3273	
==>t load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "us <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11844	11941	
==>head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HT <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11844	11941	
==>head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HT <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	264	368	
==>s = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_b <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	264	368	
==>s = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_b <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3985	4083	
==>by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 20 <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3985	4083	
==>by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 20 <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6964	7061	
==>by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 20 <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9034	9131	
==>by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 20 <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6964	7061	
==>by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 20 <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9034	9131	
==>by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 20 <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12282	12385	
==>=> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6849	6952	
==>=> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12282	12385	
==>=> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6849	6952	
==>=> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1819	1916	
==>C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_c <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1819	1916	
==>C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_c <==
8	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8367	8464	
==>that runs the test.  Combine this with _switches()
to build a command line.

Typically this is C<$ <==
8	/Users/nnunley/pugs/util/build_pugs.pl	5727	5811	
==>dler.o src/syck/implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3321	3447	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6257	6383	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3321	3447	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6257	6383	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3321	3447	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6257	6383	
==>/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKA <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2709	2813	
==>, ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2709	2813	
==>, ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3445	3604	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6381	6540	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3445	3604	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6381	6540	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3445	3604	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6381	6540	
==>CKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitive <==
8	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11429	11543	
==>h of %*ENV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = grep !/p <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2977	3086	
==>return 1;
}

### these plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23899	24048	
==>thod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exist <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23899	24048	
==>thod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exist <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23899	24048	
==>thod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exist <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7292	7401	
==>:name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrapped <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7292	7401	
==>:name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrapped <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7292	7401	
==>:name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrapped <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2821	2912	
==>message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.transla <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2821	2912	
==>message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.transla <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4268	4364	
==>returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the mat <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4268	4364	
==>returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the mat <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2708	2814	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5698	5804	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3003	3103	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9421	9521	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3003	3103	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9421	9521	
==>her-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optiona <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4721	4820	
==>t;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper::Dumper($node <==
8	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	426	517	
==>'C';
#include "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8556	8732	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6109	6285	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8556	8732	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6109	6285	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8556	8732	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6109	6285	
==>e_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                ( <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10567	10662	
==>ts multiple ($field => $value) pairs, which
means that you can update several fields with a sing <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10567	10662	
==>ts multiple ($field => $value) pairs, which
means that you can update several fields with a sing <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	940	1083	
==>ar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .* <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	940	1083	
==>ar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .* <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5807	5912	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8777	8882	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5807	5912	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8777	8882	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5807	5912	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8777	8882	
==>_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2122	2256	
==>or ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unsh <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2122	2256	
==>or ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unsh <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2122	2256	
==>or ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unsh <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	552	661	
==>me => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0, <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	552	661	
==>me => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0, <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	552	661	
==>me => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0, <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4031	4134	
==>"\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4031	4134	
==>"\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7770	7906	
==>s, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1071	1207	
==>s, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7710	7809	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6840	6939	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3426	3525	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3426	3525	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7710	7809	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6840	6939	
==>mber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary. <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13697	13818	
==>my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13697	13818	
==>my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13697	13818	
==>my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all p <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5943	6064	
==>my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all p <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4443	4564	
==>my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	792	880	
==>24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	792	880	
==>24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	792	880	
==>24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11230	11348	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2346	2464	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7440	7558	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11230	11348	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2346	2464	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7440	7558	
==>g!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	20871	20968	
==>ne simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation ob <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25423	25520	
==>ne simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation ob <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24024	24163	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24303	24442	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5855	5963	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3975	4083	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5855	5963	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3975	4083	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5855	5963	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3975	4083	
==>paque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8090	8199	
==>still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14947	15052	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12201	12306	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14947	15052	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12201	12306	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14947	15052	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12201	12306	
==>abel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribut <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7819	7923	
==>still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2021	2152	
==>ram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $d <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1999	2130	
==>ram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12305	12430	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3927	4052	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12305	12430	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3927	4052	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12305	12430	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3927	4052	
==>6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4410	4541	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6922	7053	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4410	4541	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6922	7053	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4410	4541	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6922	7053	
==>$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here... <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4634	4738	
==>e.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_nod <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4634	4738	
==>e.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_nod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	629	752	
==>nt);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	629	752	
==>nt);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	629	752	
==>nt);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{ <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5650	5773	
==>safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2863	2985	
==>: "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for me <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2863	2985	
==>: "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for me <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2863	2985	
==>: "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for me <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	22356	22460	
==>ist,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => ide("len <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5852	5960	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3972	4080	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5852	5960	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3972	4080	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5852	5960	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3972	4080	
==>::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opa <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	932	1033	
==>opying the whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::a <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	895	992	
==>opying the whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::a <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10060	10177	
==>{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10054	10171	
==>{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	4156	4268	
==>:$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    } <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4214	4326	
==>:$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    } <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	32879	32973	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33334	33428	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37429	37523	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37884	37978	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36764	36858	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37264	37358	
==>is multi-method is a generic binary relational operator that is like
C<union> except that the r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10140	10291	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7691	7842	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10140	10291	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7691	7842	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10140	10291	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7691	7842	
==>[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curre <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2523	2618	
==>ct of this class represents the query string portion of a requested URI.
It provides the followi <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2523	2618	
==>ct of this class represents the query string portion of a requested URI.
It provides the followi <==
8	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3837	3958	
==>}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or <==
8	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3837	3958	
==>}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2664	2769	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3244	3349	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2664	2769	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3244	3349	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2664	2769	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3244	3349	
==>, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2711	2839	
==>var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a< <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2711	2839	
==>var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a< <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2711	2839	
==>var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a< <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	442	565	
==>_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _ <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	442	565	
==>_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	19933	20028	
==>at is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24485	24580	
==>at is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23037	23132	
==>at is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensi <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13111	13234	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13111	13234	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13111	13234	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5351	5474	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3851	3974	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1996	2119	
==>rn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($ <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	220	340	
==>f, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.sta <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	220	340	
==>f, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.sta <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4698	4872	
==>WP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be i <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4698	4872	
==>WP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be i <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	531	699	
==>ir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the arc <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	821	973	
==>ir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the arc <==
8	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1195	1301	
==>CGI->param("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2376	2478	
==>o strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2376	2478	
==>o strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($s <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2376	2478	
==>o strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($s <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	880	1081	
==>)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi subm <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	880	1081	
==>)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi subm <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5750	5860	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8720	8830	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5750	5860	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8720	8830	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5750	5860	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8720	8830	
==>lution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12347	12457	
==>qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_a <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2242	2347	
==>gnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag e <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2242	2347	
==>gnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2322	2427	
==>gnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag e <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	185	288	
==>xup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pEx <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	185	288	
==>xup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pEx <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	185	288	
==>xup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pEx <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37025	37123	
==>>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an object in the I<qu <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1591	1749	
==>INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1591	1749	
==>INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1736	1835	
==>$class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = s <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1736	1835	
==>$class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	510	605	
==>input_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax err <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	510	605	
==>input_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax err <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1124	1218	
==>URITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP w <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1124	1218	
==>URITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	639	753	
==>( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $m <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6157	6271	
==>( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	639	753	
==>( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6169	6283	
==>( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $m <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14737	14831	
==>DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14737	14831	
==>DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4040	4130	
==>n 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS") <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4040	4130	
==>n 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS") <==
8	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14971	15083	
==>ne down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($te <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15336	15440	
==>ewfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_close
  nam <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16539	16641	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13744	13846	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16539	16641	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13744	13846	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16539	16641	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13744	13846	
==>$self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descenda <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	79	173	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	303	397	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	79	173	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	303	397	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	79	173	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	303	397	
==>!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	171	264	
==>as $.width;

has $!parent;
has @!children;

## ----------------------------------------------- <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	171	264	
==>as $.width;

has $!parent;
has @!children;

## ----------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6766	6902	
==>eturn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - sim <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6766	6902	
==>eturn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - sim <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4496	4615	
==>ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.pu <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4496	4615	
==>ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.pu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15259	15367	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12515	12623	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15259	15367	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12515	12623	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15259	15367	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12515	12623	
==>hod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9026	9160	
==>e
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $self <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1776	1898	
==>alse }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::Tru <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1776	1898	
==>alse }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::Tru <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1170	1288	
==>e
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1170	1288	
==>e
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22433	22539	
==>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1 <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22433	22539	
==>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1 <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22433	22539	
==>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1 <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1871	1973	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	501	603	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1639	1741	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13947	14049	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1871	1973	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	501	603	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1639	1741	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13947	14049	
==>= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All ri <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23234	23340	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1807	1913	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4098	4204	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1770	1876	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23234	23340	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1807	1913	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4098	4204	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1770	1876	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	363	526	
==>emplate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        = <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	363	526	
==>emplate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        = <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3201	3297	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6215	6311	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8283	8379	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3201	3297	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6215	6311	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8283	8379	
==>) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11828	12018	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9381	9571	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11828	12018	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9381	9571	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11828	12018	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9381	9571	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}) <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	9655	9772	
==>∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $cont <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9655	9772	
==>∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $cont <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11744	11850	
==>s qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
gra <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11738	11844	
==>s qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
gra <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	713	807	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1233	1327	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	713	807	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1233	1327	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	713	807	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1233	1327	
==>[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(n <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3597	3712	
==>ieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3597	3712	
==>ieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12325	12426	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6892	6993	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7182	7283	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12325	12426	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6892	6993	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7182	7283	
==>?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	975	1100	
==>can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5' <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	975	1100	
==>can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5' <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	975	1100	
==>can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5' <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1577	1674	
==>be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURI <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1577	1674	
==>be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURI <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14591	14684	
==>I SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewindd <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14591	14684	
==>I SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewindd <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14591	14684	
==>I SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewindd <==
8	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	741	885	
==>ains
        given $tok {
            when '+' { @stack.push($y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @sta <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9351	9464	
==>le($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $re <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9351	9464	
==>le($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $re <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12926	13035	
==>ss $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12926	13035	
==>ss $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11005	11097	
==>warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-per <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11005	11097	
==>warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-per <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11005	11097	
==>warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23442	23583	
==>$tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think onl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23442	23583	
==>$tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think onl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23442	23583	
==>$tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think onl <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12202	12317	
==>${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4845	4960	
==>${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ <==
8	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	15	117	
==>rechnung der Euler'schen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub p <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23546	23644	
==>eturn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19967	20065	
==>eturn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	313	424	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	311	422	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	313	424	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	311	422	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	313	424	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	311	422	
==>his is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instan <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2197	2297	
==>s{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) i <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2175	2275	
==>s{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) i <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1893	1987	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	523	617	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1661	1755	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13969	14063	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1893	1987	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	523	617	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1661	1755	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13969	14063	
==>ock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved. <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25317	25458	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25975	26116	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28757	28898	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25596	25737	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26254	26395	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29036	29177	
==>op::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7503	7600	
==>e);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7503	7600	
==>e);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10417	10528	
==>/scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method sc <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10417	10528	
==>/scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method sc <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6607	6712	
==>e($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normali <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6607	6712	
==>e($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normali <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5638	5739	
==>st.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5638	5739	
==>st.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5638	5739	
==>st.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17973	18061	
==>x,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3559	3733	
==>ned $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### back <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4487	4657	
==>ned $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### back <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3448	3618	
==>ned $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### back <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4487	4657	
==>ned $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### back <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22135	22254	
==>??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->o <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22695	22814	
==>??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->o <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18556	18675	
==>??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->o <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19116	19235	
==>??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	186	303	
==>s;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->is <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	186	303	
==>s;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->is <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	186	303	
==>s;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->is <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15713	15812	
==>n
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main w <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15713	15812	
==>n
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5272	5358	
==>thod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5272	5358	
==>thod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5272	5358	
==>thod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' = <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10886	10986	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == und <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10886	10986	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == und <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10886	10986	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == und <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11990	12085	
==>thod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mode <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11990	12085	
==>thod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mode <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4269	4363	
==>INE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4269	4363	
==>INE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4269	4363	
==>INE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2205	2324	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11073	11192	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12032	12151	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2398	2517	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11352	11471	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12311	12430	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6328	6445	
==>hesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( ' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6328	6445	
==>hesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( ' <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4603	4711	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4850	4958	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4603	4711	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4850	4958	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4094	4201	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4349	4456	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4094	4201	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4349	4456	
==>ring,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9852	10002	
==>y $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9852	10002	
==>y $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9852	10002	
==>y $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6:: <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2173	2290	
==>eck_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    c <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2173	2290	
==>eck_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4180	4285	
==>reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4180	4285	
==>reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4180	4285	
==>reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7938	8089	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5497	5648	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7938	8089	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5497	5648	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7938	8089	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5497	5648	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1626	1777	
==>{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, rej <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10804	10901	
==>nd;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_meta('$cl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16576	16678	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21293	21395	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16576	16678	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21293	21395	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16576	16678	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21293	21395	
==>ll DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$ <==
8	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2418	2508	
==>g list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-su <==
8	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2418	2508	
==>g list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7694	7816	
==>$debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12035	12157	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2492	2611	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9264	9383	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7434	7553	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2492	2611	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9264	9383	
==>$debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        r <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23554	23656	
==>e SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElements> <SourceElement> <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4316	4517	
==>ght package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### noth <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4780	4981	
==>ght package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### noth <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2724	2837	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5714	5827	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3019	3125	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9437	9543	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3019	3125	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9437	9543	
==>s

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alterna <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11137	11304	
==>on,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ], <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11137	11304	
==>on,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ], <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17725	17843	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14945	15063	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17725	17843	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14945	15063	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17725	17843	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14945	15063	
==>eck for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_metho <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12827	12927	
==>ite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Retu <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12827	12927	
==>ite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Retu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5410	5519	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6678	6787	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10940	11049	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5410	5519	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6666	6775	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11090	11199	
==>rce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > / <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8670	8758	
==>turn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) { <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8670	8758	
==>turn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6802	6906	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9772	9876	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6802	6906	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9772	9876	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6802	6906	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9772	9876	
==>ethod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18656	18751	
==>. For example,
this module automatically tries to use slight variations of the nickname in the
l <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18656	18751	
==>. For example,
this module automatically tries to use slight variations of the nickname in the
l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1354	1484	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2320	2450	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1354	1484	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2320	2450	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1354	1484	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2320	2450	
==>$dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2184	2284	
==>ence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', nam <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2184	2284	
==>ence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', nam <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3648	3758	
==>t "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$cod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5550	5660	
==>t "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$cod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10905	11005	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11114	11214	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10905	11005	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11114	11214	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10905	11005	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11114	11214	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5295	5418	
==>ted operator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print " <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6976	7094	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9946	10064	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6976	7094	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9946	10064	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6976	7094	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9946	10064	
==>d || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	8	95	
==>in/perl

package Blondie::Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::Dyn <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6727	6829	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5857	5959	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2511	2613	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2511	2613	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6727	6829	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5857	5959	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $s <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	11213	11306	
==>ion) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_ <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11213	11306	
==>ion) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3857	3987	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6793	6923	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3857	3987	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6793	6923	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3857	3987	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6793	6923	
==>"You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $met <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	969	1070	
==>:PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::P <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	969	1070	
==>:PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::P <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	14016	14108	
==>head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Steva <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10243	10335	
==>head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Steva <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14016	14108	
==>head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Steva <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10243	10335	
==>head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Steva <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7518	7653	
==>e,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$te <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7518	7653	
==>e,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$te <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1913	2024	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2275	2386	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2584	2695	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1913	2024	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2275	2386	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2584	2695	
==>lice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13453	13559	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10737	10843	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13453	13559	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10737	10843	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13453	13559	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10737	10843	
==>>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (l <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1731	1829	
==>ource.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $nod <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1731	1829	
==>ource.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $nod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9982	10087	
==>------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10005	10110	
==>-------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9982	10087	
==>------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10005	10110	
==>-------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9982	10087	
==>------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10005	10110	
==>-------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1679	1775	
==>ucture with three node forms: Var

(variable lookup), App (application) and Lit (literal).



App <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1611	1704	
==>ucture with three node forms: Var
(variable lookup), App (application) and Lit (literal).

App <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2441	2632	
==>.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s( <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2441	2632	
==>.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16438	16572	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21155	21289	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16438	16572	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21155	21289	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16438	16572	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21155	21289	
==>pper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1479	1606	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3042	3169	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1479	1606	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3042	3169	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1479	1606	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3042	3169	
==>d $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = u <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3880	3973	
==>g::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not prese <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3880	3973	
==>g::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not prese <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1170	1273	
==>a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fix <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1170	1273	
==>a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fix <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1170	1273	
==>a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fix <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3628	3728	
==>e.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslas <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3628	3728	
==>e.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslas <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	4502	4601	
==>e.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslas <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4502	4601	
==>e.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslas <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2037	2131	
==>ariable>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14094	14227	
==>hange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14094	14227	
==>hange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14094	14227	
==>hange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6356	6489	
==>hange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4858	4991	
==>hange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1550	1667	
==>) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1550	1667	
==>) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1550	1667	
==>) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25493	25626	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27688	27821	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25493	25626	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27688	27821	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25493	25626	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27688	27821	
==>$samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Valu <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22355	22450	
==>iple search
directories in your path that packages could be installed in.

Generally, when a pro <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22355	22450	
==>iple search
directories in your path that packages could be installed in.

Generally, when a pro <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6088	6194	
==>sses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6088	6194	
==>sses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6088	6194	
==>sses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_c <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	330	429	
==>rom_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	875	974	
==>rom_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	330	429	
==>rom_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	875	974	
==>rom_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	875	974	
==>rom_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4165	4284	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6691	6810	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4165	4284	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6691	6810	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4165	4284	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6691	6810	
==>->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ) <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6554	6654	
==>ken{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1972	2058	
==>---------------------------------------------------------------------
## Classes

sub O <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	76	225	
==>is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($val <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	76	225	
==>is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($val <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6363	6473	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9333	9443	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6363	6473	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9333	9443	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6363	6473	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9333	9443	
==>d ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMe <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1607	1734	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2188	2315	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3658	3785	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1607	1734	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2188	2315	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3658	3785	
==>ke a copy of our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2983	3104	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_p <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2983	3104	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25981	26153	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28182	28354	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25981	26153	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28182	28354	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25981	26153	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28182	28354	
==>p eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @s <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9706	9800	
==>ss (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the el <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9706	9800	
==>ss (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the el <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15478	15613	
==>efined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => - <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15478	15613	
==>efined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => - <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7853	7971	
==>fix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemente <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13447	13565	
==>fix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemente <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7853	7971	
==>fix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemente <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13441	13559	
==>fix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemente <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7205	7322	
==>els>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Upda <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7205	7322	
==>els>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Upda <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9495	9621	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12468	12594	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9495	9621	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12468	12594	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9495	9621	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12468	12594	
==>ubmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher need <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	19	131	
==>btype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
ha <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	19	131	
==>btype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
ha <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	383	505	
==>e Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3 <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	383	505	
==>e Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14972	15080	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12226	12334	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14972	15080	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12226	12334	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14972	15080	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12226	12334	
==>e_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_insta <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17150	17289	
==>}
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17150	17289	
==>}
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17150	17289	
==>}
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DES <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6195	6332	
==>stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6195	6332	
==>stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6195	6332	
==>stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribu <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2589	2704	
==>sh @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    retu <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2589	2704	
==>sh @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19921	20095	
==>6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19921	20095	
==>6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19921	20095	
==>6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $sel <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6342	6439	
==>int($url)

Get and print a document identified by a URL. The document is printed
to the selected d <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6342	6439	
==>int($url)

Get and print a document identified by a URL. The document is printed
to the selected d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14356	14446	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14356	14446	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14356	14446	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3282	3378	
==>directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3282	3378	
==>directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13554	13649	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10838	10933	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13554	13649	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10838	10933	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13554	13649	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10838	10933	
==>sif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:privat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9382	9552	
==>&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relati <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12859	13029	
==>&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relati <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12113	12283	
==>&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relati <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	1352	1481	
==>LF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^l <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1352	1481	
==>LF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1937	2045	
==>ing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1937	2045	
==>ing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1937	2045	
==>ing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3554	3676	
==>>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
rule Mu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8205	8321	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5764	5880	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8205	8321	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5764	5880	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8205	8321	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5764	5880	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1893	2009	
==>ow loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10406	10514	
==>tant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10564	10672	
==>tant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15751	15856	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13001	13106	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15751	15856	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13001	13106	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15751	15856	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13001	13106	
==>my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mus <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	703	799	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1223	1319	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	703	799	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1223	1319	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	703	799	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1223	1319	
==>ray = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1] <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1971	2065	
==>_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1971	2065	
==>_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6938	7083	
==>, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k, <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7402	7547	
==>, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4568	4680	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7504	7616	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4568	4680	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7504	7616	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4568	4680	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7504	7616	
==>::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15136	15256	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19834	19954	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15136	15256	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19834	19954	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15136	15256	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19834	19954	
==>o we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DES <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3306	3409	
==>_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->ad <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1156	1259	
==>_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->ad <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	428	541	
==>nd .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	428	541	
==>nd .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4555	4667	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7491	7603	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4555	4667	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7491	7603	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4555	4667	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7491	7603	
==>d->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($as <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22013	22274	
==>e" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22292	22553	
==>e" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14584	14680	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11844	11940	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14584	14680	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11844	11940	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14584	14680	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11844	11940	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{ <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	7776	7887	
==>"Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	819	929	
==>urn
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1] <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	828	938	
==>urn
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1] <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2073	2178	
==>"Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2073	2178	
==>"Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2073	2178	
==>"Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	953	1049	
==>OM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are differen <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	953	1049	
==>OM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are differen <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11752	11915	
==>f $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %r <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11752	11915	
==>f $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7745	7851	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10668	10774	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7745	7851	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10668	10774	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7745	7851	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10668	10774	
==>unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test c <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	683	798	
==>Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTI <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	683	798	
==>Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTI <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3098	3199	
==>nless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I figu <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3098	3199	
==>nless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I figu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9756	9854	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7305	7403	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9756	9854	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7305	7403	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9756	9854	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7305	7403	
==>d('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1865	1979	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3428	3542	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1865	1979	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3428	3542	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1865	1979	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3428	3542	
==>12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are v <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13888	14000	
==>..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRI <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13888	14000	
==>..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRI <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6672	6783	
==>$$@) {
    my ($flip, $got, $expected, $name, @mess) = @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$fl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16558	16666	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13763	13871	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16558	16666	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13763	13871	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16558	16666	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13763	13871	
==>ams) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5862	5963	
==>empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePosition <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30839	30941	
==>le name; it
must be the same for every module in the same set as the current one.  The
Member Name come <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30839	30941	
==>le name; it
must be the same for every module in the same set as the current one.  The
Member Name come <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3940	4033	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6919	7012	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8989	9082	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3940	4033	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6919	7012	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8989	9082	
==>illiams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6866	6962	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5996	6092	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2650	2746	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2650	2746	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6866	6962	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5996	6092	
==>nfix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26416	26511	
==>are references will be passed by reference, so you
may store references to other objects in them <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26416	26511	
==>are references will be passed by reference, so you
may store references to other objects in them <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8125	8239	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5684	5798	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8125	8239	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5684	5798	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8125	8239	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5684	5798	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1813	1927	
==>s "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and <==
8	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3112	3218	
==>issues under cygwin, and does not
    # recognise cygwin absolute paths.  This kludge includes the
    # wi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3280	3398	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8565	8683	
==>y_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6273	6387	
==>y_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3542	3655	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9960	10073	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8265	8378	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3542	3655	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9960	10073	
==>y_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6005	6134	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8975	9104	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6005	6134	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8975	9104	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6005	6134	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8975	9104	
==>hod || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_st <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	3894	3981	
==>--------------------------------------------
## removing children

method remove_child_a <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3894	3981	
==>--------------------------------------------
## removing children

method remove_child_a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14794	14907	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19493	19606	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14794	14907	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19493	19606	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14794	14907	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19493	19606	
==>allback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &A <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1895	1989	
==>$output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $ <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1895	1989	
==>$output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $ <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4475	4571	
==>rypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    pus <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4475	4571	
==>rypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    pus <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	105	198	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	366	459	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	105	198	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	366	459	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	105	198	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	366	459	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	357	465	
==>uilt match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - th <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	357	465	
==>uilt match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - th <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3516	3619	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6530	6633	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8598	8701	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3516	3619	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6530	6633	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8598	8701	
==>th returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 v <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	3280	3380	
==>$self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    r <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3280	3380	
==>$self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	413	511	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	406	504	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	413	511	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	406	504	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	413	511	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	406	504	
==>ossibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRH <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	915	1032	
==>[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lval <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	915	1032	
==>[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lval <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	915	1032	
==>[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lval <==
8	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	63	163	
==>intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# need <==
8	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	63	163	
==>intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# need <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	63	163	
==>intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# need <==
8	/Users/nnunley/pugs/util/src_to_blib.pl	63	163	
==>intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# need <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	572	664	
==>Value::List       is JSX::InternalValue;
class JSX::InternalValue::Completion is JSX::Interna <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4918	5033	
==>ce if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4918	5033	
==>ce if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4918	5033	
==>ce if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6861	6972	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6861	6972	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6861	6972	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var i <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	9686	9783	
==>and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It h <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9744	9841	
==>and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8456	8612	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8456	8612	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8456	8612	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6 <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5360	5486	
==>emented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op« <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5360	5486	
==>emented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op« <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5360	5486	
==>emented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op« <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	17098	17197	
==>rically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar v <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17098	17197	
==>rically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar v <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18254	18382	
==>w($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('% <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21513	21641	
==>w($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('% <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41519	41647	
==>w($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('% <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44420	44548	
==>w($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('% <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2832	2925	
==>$set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurren <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4701	4794	
==>$set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurren <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2832	2925	
==>$set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurren <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4701	4794	
==>$set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurren <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4398	4529	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6910	7041	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4398	4529	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6910	7041	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4398	4529	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6910	7041	
==>ame (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2031	2138	
==>must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1713	1816	
==>must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name <==
8	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	513	635	
==>ift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shif <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	414	536	
==>ift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shif <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	109	219	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	470	580	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	109	219	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	470	580	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	109	219	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	470	580	
==>ocal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_typ <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10056	10181	
==>info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",", <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1452	1551	
==>,
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= St <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1452	1551	
==>,
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= St <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1452	1551	
==>,
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= St <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6453	6546	
==>oin(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inter <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5526	5619	
==>oin(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inter <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6453	6546	
==>oin(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inter <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5526	5619	
==>oin(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inter <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30398	30519	
==>) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30398	30519	
==>) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30398	30519	
==>) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1869	1968	
==>pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VA <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1869	1968	
==>pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VA <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1869	1968	
==>pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20824	20914	
==>th compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you nee <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20824	20914	
==>th compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you nee <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12050	12184	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3561	3695	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12050	12184	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3561	3695	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12050	12184	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3561	3695	
==>.STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6919	7041	
==>st object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend => <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6919	7041	
==>st object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend => <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6191	6291	
==>->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($node->st <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21054	21149	
==>1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21054	21149	
==>1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21054	21149	
==>1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MUL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7504	7592	
==>=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1732	1820	
==>=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9138	9226	
==>=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1950	2038	
==>=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE< <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17474	17606	
==>ew(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17474	17606	
==>ew(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5393	5499	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3513	3619	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5393	5499	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3513	3619	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5393	5499	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3513	3619	
==>my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supercl <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7168	7267	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6298	6397	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2952	3051	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2952	3051	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7168	7267	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6298	6397	
==>s Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1232	1330	
==>ll be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1232	1330	
==>ll be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17738	17857	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14958	15077	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17738	17857	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14958	15077	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17738	17857	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14958	15077	
==>nce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => ' <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11028	11129	
==>$self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defin <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11028	11129	
==>$self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7640	7766	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10563	10689	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7640	7766	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10563	10689	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7640	7766	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10563	10689	
==>vateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =: <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5005	5121	
==>x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.r <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5005	5121	
==>x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.r <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3162	3260	
==>-key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
fun <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3162	3260	
==>-key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
fun <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2706	2834	
==>ody;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2706	2834	
==>ody;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2706	2834	
==>ody;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity <==
8	/Users/nnunley/pugs/util/gen_prelude.pl	3210	3313	
==>a guess about what to put in %*INC. it's not perfect.
    # When module return values are specced, we ca <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20213	20307	
==>the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19172	19266	
==>the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20213	20307	
==>the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19172	19266	
==>the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4362	4475	
==>ned($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stac <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4416	4529	
==>ned($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stac <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4362	4475	
==>ned($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stac <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4416	4529	
==>ned($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stac <==
8	/Users/nnunley/pugs/inc/Test/Harness.pm	7800	7908	
==>r if defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    fore <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16722	16817	
==>MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {... <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16722	16817	
==>MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {... <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16722	16817	
==>MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {... <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11717	11841	
==>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11717	11841	
==>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3031	3146	
==>nv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nati <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3031	3146	
==>nv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nati <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3031	3146	
==>nv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nati <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2365	2477	
==>\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_o <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2365	2477	
==>\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_o <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2712	2824	
==>\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16020	16157	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20737	20874	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16020	16157	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20737	20874	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16020	16157	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20737	20874	
==>methods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $regi <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2168	2288	
==>de ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2168	2288	
==>de ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4837	5065	
==>s defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf } <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4837	5065	
==>s defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10448	10616	
==>s defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10448	10616	
==>s defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10448	10616	
==>s defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1764	1890	
==>(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1764	1890	
==>(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1764	1890	
==>(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13123	13244	
==>l";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13123	13244	
==>l";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13123	13244	
==>l";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4879	4992	
==>urce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eva <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4879	4992	
==>urce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eva <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4879	4992	
==>urce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eva <==
8	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	109	207	
==>A::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trig <==
8	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	109	207	
==>A::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trig <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18329	18449	
==>'$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21588	21708	
==>'$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41594	41714	
==>'$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44495	44615	
==>'$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2731	2828	
==>y method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Loc <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10651	10748	
==>y method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Loc <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2731	2828	
==>y method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Loc <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10651	10748	
==>y method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Loc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1373	1499	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2936	3062	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1373	1499	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2936	3062	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1373	1499	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2936	3062	
==>lobal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2419	2540	
==>PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_t <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2419	2540	
==>PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1149	1255	
==>nstant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (V <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1149	1255	
==>nstant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (V <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1149	1255	
==>nstant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (V <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	797	895	
==>e($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNO <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	797	895	
==>e($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNO <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1431	1523	
==>(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run:: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1431	1523	
==>(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run:: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1431	1523	
==>(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run:: <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	749	856	
==>bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
m <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	749	856	
==>bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	348	453	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	341	446	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	348	453	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	341	446	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	348	453	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	341	446	
==>{
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4622	4720	
==>r deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessari <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4622	4720	
==>r deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessari <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7752	7845	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6882	6975	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3468	3561	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3468	3561	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7752	7845	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6882	6975	
==>utative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10666	10789	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15207	15330	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10666	10789	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15207	15330	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10666	10789	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15207	15330	
==>ly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:priv <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16069	16171	
==>nd time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour ol <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16069	16171	
==>nd time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour ol <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	654	781	
==>e);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposef <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	654	781	
==>e);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposef <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	654	781	
==>e);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposef <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1101	1214	
==>, $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1101	1214	
==>, $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1101	1214	
==>, $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3012	3117	
==>rn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    m <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3012	3117	
==>rn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1851	1961	
==>_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_cont <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1851	1961	
==>_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_cont <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1851	1961	
==>_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_cont <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1805	1907	
==>[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spri <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1805	1907	
==>[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spri <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1805	1907	
==>[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spri <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	496	589	
==>r cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	496	589	
==>r cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23879	24028	
==>thod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23879	24028	
==>thod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23879	24028	
==>thod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8747	8856	
==>Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8743	8852	
==>Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1974	2081	
==>CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $author <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1974	2081	
==>CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $author <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1974	2081	
==>CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $author <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9425	9644	
==>{
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2613	2772	
==>ion' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                descrip <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18705	18841	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15943	16079	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18705	18841	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15943	16079	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18705	18841	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15943	16079	
==>bles with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_att <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14836	14934	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12090	12188	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14836	14934	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12090	12188	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14836	14934	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12090	12188	
==>ibute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attri <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26614	26706	
==>er, in which case it returns the identity-one
Relation or the invocant Relation respectively. <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31166	31258	
==>er, in which case it returns the identity-one
Relation or the invocant Relation respectively. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16660	16771	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13865	13976	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16660	16771	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13865	13976	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16660	16771	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13865	13976	
==>y $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_a <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10789	10893	
==>e `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the info <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10789	10893	
==>e `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the info <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4464	4562	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7400	7498	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4464	4562	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7400	7498	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4464	4562	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7400	7498	
==>my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa(' <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10536	10629	
==>her(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<dec <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10536	10629	
==>her(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<dec <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1405	1577	
==>Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'ne <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1405	1577	
==>Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'ne <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1273	1406	
==>sage($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1273	1406	
==>sage($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	194	303	
==>my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	188	297	
==>my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	194	303	
==>my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	188	297	
==>my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4867	4984	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7516	7633	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5081	5192	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11530	11641	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5081	5192	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11530	11641	
==>capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from t <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2123	2221	
==>but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($ <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2123	2221	
==>but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($ <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25402	25502	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	840	940	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24166	24266	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1965	2065	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25402	25502	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	840	940	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24166	24266	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1965	2065	
==>can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlar <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9423	9538	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation: <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10229	10344	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation: <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11144	11259	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation: <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	192	295	
==>JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compat <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	192	295	
==>JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compat <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	192	295	
==>JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compat <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13003	13090	
==>es the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedT <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13003	13090	
==>es the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedT <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3107	3240	
==>ib
    unless( $meta ) {
        
        ### installed packages don't have a 'file' method, but they /should/
        ### have a meta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7600	7714	
==>r' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method list ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4812	4909	
==>$DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4812	4909	
==>$DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4812	4909	
==>$DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $met <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1192	1288	
==>:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1192	1288	
==>:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1192	1288	
==>:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7592	7748	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5151	5307	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7592	7748	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5151	5307	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7592	7748	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5151	5307	
==>n "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fin <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24704	24800	
==>at Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to inva <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24704	24800	
==>at Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to inva <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4477	4570	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	889	982	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1902	1995	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	944	1037	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4477	4570	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	889	982	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1902	1995	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	944	1037	
==>0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8003	8103	
==>e 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8003	8103	
==>e 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13290	13384	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4460	4554	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8916	9010	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13290	13384	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4460	4554	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8916	9010	
==>e' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer dir <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7630	7761	
==>my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11971	12102	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2430	2557	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9202	9329	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7372	7499	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2430	2557	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9202	9329	
==>my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debu <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2603	2701	
==>same root path if it exists.

Returns a true value on success, otherwise something false.

=cut

su <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	678	803	
==>nction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	678	803	
==>nction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	678	803	
==>nction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3019	3126	
==>nction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3019	3126	
==>nction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3019	3126	
==>nction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constan <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21791	21883	
==>...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(targe <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21791	21883	
==>...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(targe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6194	6363	
==>},

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scala <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6194	6363	
==>},

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scala <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6194	6363	
==>},

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scala <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6437	6552	
==>ub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pus <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6437	6552	
==>ub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pus <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6437	6552	
==>ub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pus <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19006	19109	
==>sistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPer <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19006	19109	
==>sistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPer <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6418	6533	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7171	7286	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8035	8150	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8816	8931	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9895	10010	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10648	10763	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11512	11627	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12293	12408	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4549	4669	
==>lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Arra <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4549	4669	
==>lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Arra <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	198	297	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	139	238	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	198	297	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	139	238	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	198	297	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	139	238	
==>rding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	340	457	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	338	455	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	340	457	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	338	455	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	340	457	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	338	455	
==>entation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7775	7881	
==>e => $file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shi <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	7835	7924	
==>unify($_[0]{instance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type::variable::instan <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	744	902	
==>2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $n <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	744	902	
==>2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15508	15628	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12764	12884	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15508	15628	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12764	12884	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15508	15628	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12764	12884	
==>stance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There i <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1560	1692	
==>i_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X} <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1560	1692	
==>i_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1241	1357	
==>Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Pe <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1241	1357	
==>Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Pe <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1241	1357	
==>Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Pe <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	213	325	
==>ew PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<| <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	213	325	
==>ew PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<| <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	213	325	
==>ew PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<| <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9356	9482	
==>ext, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9356	9482	
==>ext, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4337	4453	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6849	6965	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4337	4453	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6849	6965	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4337	4453	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6849	6965	
==>f ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                i <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4664	4772	
==>!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class );
} <==
8	/Users/nnunley/pugs/inc/Module/Install.pm	2404	2510	
==>!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class);
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5855	5951	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8825	8921	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5855	5951	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8825	8921	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5855	5951	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8825	8921	
==>ssed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4401	4509	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7050	7158	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4628	4734	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11077	11183	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4628	4734	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11077	11183	
==>$match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retur <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15961	16060	
==>user, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
situ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15961	16060	
==>user, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
situ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19982	20096	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17121	17235	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19982	20096	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17121	17235	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19982	20096	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17121	17235	
==>attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so th <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2293	2401	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (Non <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2293	2401	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (Non <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7150	7295	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7418	7563	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7150	7295	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7418	7563	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7150	7295	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7418	7563	
==>f $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp-> <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	2311	2428	
==>after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2311	2428	
==>after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1883	1984	
==>);

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.re <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1883	1984	
==>);

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.re <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1883	1984	
==>);

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.re <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	4235	4332	
==>|| $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4235	4332	
==>|| $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	24	113	
==>MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	24	113	
==>MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	24	113	
==>MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9033	9168	
==>NUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $i <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9033	9168	
==>NUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5904	6025	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4024	4145	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5904	6025	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4024	4145	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5904	6025	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4024	4145	
==>$superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcula <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18310	18441	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15548	15679	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18310	18441	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15548	15679	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18310	18441	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15548	15679	
==>};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	997	1096	
==>DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NA <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	997	1096	
==>DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NA <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	670	921	
==>s ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

modul <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	670	921	
==>s ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

modul <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6239	6328	
==>2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6239	6328	
==>2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6239	6328	
==>2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9725	9813	
==>er;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9725	9813	
==>er;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9725	9813	
==>er;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3287	3405	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8572	8690	
==>{ 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6280	6394	
==>{ 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3549	3662	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9967	10080	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8272	8385	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3549	3662	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9967	10080	
==>{ 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6387	6501	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9357	9471	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6387	6501	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9357	9471	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6387	6501	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9357	9471	
==>ethod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (def <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3903	4009	
==>is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3903	4009	
==>is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9305	9442	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12278	12415	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9305	9442	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12278	12415	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9305	9442	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12278	12415	
==>od;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Sub <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1150	1250	
==>ub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _triv <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1150	1250	
==>ub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _triv <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2238	2399	
==>e
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments a <==
8	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2238	2399	
==>e
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11348	11500	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8901	9053	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11348	11500	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8901	9053	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11348	11500	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8901	9053	
==>s = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7720	7835	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10643	10758	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7720	7835	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10643	10758	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7720	7835	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10643	10758	
==>it:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2822	2919	
==>tation of this node in the original text, or at
least a valid representation of it that "honours t <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2822	2919	
==>tation of this node in the original text, or at
least a valid representation of it that "honours t <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	66	177	
==>e Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Cod <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	66	177	
==>e Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Cod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15803	15908	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13053	13158	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15803	15908	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13053	13158	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15803	15908	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13053	13158	
==>l)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attr <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	14619	14813	
==>) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18096	18290	
==>) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17512	17706	
==>) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6794	6920	
==>er("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6794	6920	
==>er("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18834	18948	
==>rl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retur <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18834	18948	
==>rl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retur <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18834	18948	
==>rl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retur <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1350	1467	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1350	1467	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1089	1205	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1814	1930	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2074	2190	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1089	1205	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1814	1930	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2074	2190	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5143	5303	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8113	8273	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5143	5303	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8113	8273	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5143	5303	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8113	8273	
==>ith;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::m <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	262	377	
==>'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Conte <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	262	377	
==>'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Conte <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4811	4939	
==>flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4811	4939	
==>flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4811	4939	
==>flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3263	3359	
==>= 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modif <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3263	3359	
==>= 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modif <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3263	3359	
==>= 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modif <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	35134	35226	
==>matching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a gene <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39684	39776	
==>matching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a gene <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1080	1191	
==>ration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	822	933	
==>ration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1080	1191	
==>ration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	822	933	
==>ration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11125	11232	
==>subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for mat <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11125	11232	
==>subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for mat <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	62	148	
==>been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tin <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	62	148	
==>been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31248	31413	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33006	33171	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31248	31413	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33006	33171	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31248	31413	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33006	33171	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_leng <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1072	1170	
==>>_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pug <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1072	1170	
==>>_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pug <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4312	4525	
==>rint("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\ <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4312	4525	
==>rint("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16987	17187	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21702	21902	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16987	17187	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21702	21902	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16987	17187	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21702	21902	
==>ass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $tr <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4955	5065	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7604	7714	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5164	5270	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11613	11719	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5164	5270	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11613	11719	
==>ode'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $nam <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15428	15526	
==>ension
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node ca <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15428	15526	
==>ension
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4081	4207	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7017	7143	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4081	4207	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7017	7143	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4081	4207	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7017	7143	
==>he same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsid <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	2827	2924	
==>and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$de <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2885	2982	
==>and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5451	5565	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3571	3685	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5451	5565	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3571	3685	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5451	5565	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3571	3685	
==>ses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'A <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22481	22576	
==>>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
so <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22481	22576	
==>>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
so <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24645	24755	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26834	26944	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24645	24755	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26834	26944	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24645	24755	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26834	26944	
==>'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13145	13236	
==>le::KeyedText" package serves only as the name-sake
representative for this whole file, whic <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13145	13236	
==>le::KeyedText" package serves only as the name-sake
representative for this whole file, whic <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10801	10916	
==>capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
* <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11080	11195	
==>capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
* <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	66	178	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	427	539	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	66	178	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	427	539	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	66	178	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	427	539	
==>d '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13239	13344	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10523	10628	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13239	13344	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10523	10628	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13239	13344	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10523	10628	
==>arams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17245	17340	
==>ead1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Abil <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17245	17340	
==>ead1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Abil <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5106	5226	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7755	7875	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5308	5425	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11757	11874	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5308	5425	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11757	11874	
==>$idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name} <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6131	6228	
==>VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6131	6228	
==>VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1345	1474	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2311	2440	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1345	1474	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2311	2440	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1345	1474	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2311	2440	
==>WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class. <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	1661	1757	
==>=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix ve <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1661	1757	
==>=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix ve <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16797	16912	
==>>add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13218	13333	
==>>add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3929	4034	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6578	6683	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4168	4270	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10617	10719	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4168	4270	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10617	10719	
==>e functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $st <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4968	5146	
==>hes[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { % <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4968	5146	
==>hes[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { % <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13260	13360	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10544	10644	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13260	13360	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10544	10644	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13260	13360	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10544	10644	
==>$method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17018	17132	
==>e, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1787	1901	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	899	1013	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17018	17132	
==>e, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1787	1901	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	899	1013	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1787	1901	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	899	1013	
==>'BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	480	672	
==>= $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	480	672	
==>= $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9307	9417	
==>) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_caller <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9307	9417	
==>) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_caller <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9307	9417	
==>) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_caller <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2146	2253	
==>t %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'r <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2146	2253	
==>t %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'r <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2146	2253	
==>t %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'r <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	42	173	
==>e-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX nee <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	42	173	
==>e-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX nee <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1007	1108	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1519	1620	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1007	1108	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1519	1620	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1007	1108	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1519	1620	
==>dd[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5546	5654	
==>= ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Us <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5546	5654	
==>= ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12438	12540	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9989	10091	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12438	12540	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9989	10091	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12438	12540	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9989	10091	
==>($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) = <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3750	3853	
==>$self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with protos were already defined as func <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1404	1504	
==>azy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New interna <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1404	1504	
==>azy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New interna <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1404	1504	
==>azy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New interna <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7519	7614	
==>et(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differenc <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6649	6744	
==>et(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differenc <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7519	7614	
==>et(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differenc <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6649	6744	
==>et(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differenc <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4045	4304	
==>turns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encod <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4045	4304	
==>turns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9536	9654	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7083	7201	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9536	9654	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7083	7201	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9536	9654	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7083	7201	
==>if ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        co <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7466	7590	
==>le: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7478	7602	
==>le: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6260	6369	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9230	9339	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6260	6369	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9230	9339	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6260	6369	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9230	9339	
==>d is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) { <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1615	1737	
==>body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1615	1737	
==>body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1615	1737	
==>body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14085	14204	
==>+ $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bind <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14085	14204	
==>+ $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bind <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14085	14204	
==>+ $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bind <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6347	6466	
==>+ $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bind <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4849	4968	
==>+ $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bind <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5991	6083	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1187	1279	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6952	7044	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1392	1484	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5991	6083	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1187	1279	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6952	7044	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1392	1484	
==>ORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4260	4513	
==>ebug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::D <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4260	4513	
==>ebug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::D <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3500	3640	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6028	6168	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3500	3640	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6028	6168	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3500	3640	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6028	6168	
==>ds}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4983	5121	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5944	6082	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4983	5121	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5944	6082	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4983	5121	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5944	6082	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	60	161	
==>e' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once re <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	60	161	
==>e' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once re <==
8	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1521	1735	
==>\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= <==
8	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1521	1735	
==>\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	228	338	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	552	662	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	228	338	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	552	662	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	228	338	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	552	662	
==>side a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pV <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8015	8147	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5574	5706	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8015	8147	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5574	5706	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8015	8147	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5574	5706	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1703	1835	
==>op with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarc <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2692	2798	
==>get($symbol) || die $@;

    # fill the place holder with the compiled version of the builtin
    $val->set <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3170	3266	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6184	6280	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8252	8348	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3170	3266	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6184	6280	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8252	8348	
==>turns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	628	723	
==>t handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invite <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	628	723	
==>t handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invite <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51801	52058	
==>entifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->ne <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51190	51418	
==>entifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->ne <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6717	6814	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5847	5944	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2501	2598	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2501	2598	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6717	6814	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5847	5944	
==>er) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) return <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2249	2470	
==>me::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2309	2530	
==>me::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1017	1182	
==>me::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1449	1614	
==>me::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1017	1182	
==>me::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1449	1614	
==>me::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    = <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1374	1474	
==>r_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return & <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1374	1474	
==>r_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return & <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9750	9859	
==>vocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5868	5976	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3988	4096	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5868	5976	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3988	4096	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5868	5976	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3988	4096	
==>e_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_att <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2184	2284	
==>hift;
	my $node = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $reduced_struct <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1105	1348	
==>args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffe <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1105	1348	
==>args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2372	2489	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4699	4816	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2372	2489	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4699	4816	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2372	2489	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4699	4816	
==>u must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make <==
8	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	789	887	
==>ml>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C< <==
8	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	789	887	
==>ml>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C< <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36283	36376	
==>n common,
eliminating pairs where the values of those attributes differ and unioning
the remai <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38036	38129	
==>n common, eliminating pairs where the
values of those attributes differ and unioning the remai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40832	40925	
==>n common,
eliminating pairs where the values of those attributes differ and unioning
the remai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42585	42678	
==>n common, eliminating pairs where the
values of those attributes differ and unioning the remai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40446	40539	
==>n common,
eliminating pairs where the values of those attributes differ and unioning
the remai <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42235	42328	
==>n common, eliminating pairs where the
values of those attributes differ and unioning the remai <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23231	23320	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1804	1893	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4095	4184	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1767	1856	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23231	23320	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1804	1893	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4095	4184	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1767	1856	
==>KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these Per <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	9373	9504	
==>or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other compar <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9373	9504	
==>or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other compar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	191	295	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	355	459	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	191	295	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	355	459	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	191	295	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	355	459	
==>k
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    set <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30502	30638	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32216	32352	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30502	30638	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32216	32352	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30502	30638	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32216	32352	
==>$length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $re <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7878	7979	
==>vent<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    % <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7878	7979	
==>vent<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    % <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	275	409	
==>\&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	275	409	
==>\&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	275	409	
==>\&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	17	116	
==>inOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $even <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	17	116	
==>inOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $even <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12402	12500	
==>ay_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12402	12500	
==>ay_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12402	12500	
==>ay_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arra <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1642	1746	
==>es Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($inp <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1642	1746	
==>es Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($inp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12538	12634	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10089	10185	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12538	12634	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10089	10185	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12538	12634	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10089	10185	
==>) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5609	5745	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3729	3865	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5609	5745	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3729	3865	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5609	5745	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3729	3865	
==>lasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed t <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25328	25424	
==>hey do not
interact with the outside environment at all.

A Message object has two main attribute <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25328	25424	
==>hey do not
interact with the outside environment at all.

A Message object has two main attribute <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9684	9796	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12657	12769	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9684	9796	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12657	12769	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9684	9796	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12657	12769	
==>o be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal wi <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9373	9475	
==>ct }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9373	9475	
==>ct }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	276	400	
==>: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_nod <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	276	400	
==>: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_nod <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6573	6672	
==>res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6573	6672	
==>res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6573	6672	
==>res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1853	1951	
==>, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Err <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1853	1951	
==>, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Err <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1853	1951	
==>, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Err <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2184	2280	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2589	2685	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2184	2280	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2589	2685	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2184	2280	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2589	2685	
==>_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6446	6541	
==>d => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This clas <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6446	6541	
==>d => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1139	1348	
==>();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $las <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1139	1348	
==>();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $las <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1139	1348	
==>();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $las <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1463	1584	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1463	1584	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1463	1584	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribu <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5230	5337	
==>nce") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is u <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5230	5337	
==>nce") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10594	10760	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8145	8311	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10594	10760	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8145	8311	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10594	10760	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8145	8311	
==>o the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5727	5856	
==>,
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    = <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5727	5856	
==>,
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26070	26215	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28271	28416	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26070	26215	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28271	28416	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26070	26215	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28271	28416	
==>> 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4903	5019	
==>if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast->{pos} = $last - length( $m <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	25708	25810	
==>gify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::opera <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	593	749	
==>'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	593	749	
==>'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	593	749	
==>'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	219	345	
==>items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size = <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	219	345	
==>items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17269	17365	
==>PTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17269	17365	
==>PTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17269	17365	
==>PTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	627	749	
==>exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	627	749	
==>exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	627	749	
==>exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2975	3078	
==>exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2975	3078	
==>exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2975	3078	
==>exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2776	2869	
==>r.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep: <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2776	2869	
==>r.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3847	3978	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6783	6914	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3847	3978	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6783	6914	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3847	3978	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6783	6914	
==>| confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            re <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37752	37848	
==>(a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a P <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37752	37848	
==>(a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a P <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4806	4924	
==>ser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML comp <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4641	4755	
==>ser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML comp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6420	6524	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9390	9494	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6420	6524	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9390	9494	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6420	6524	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9390	9494	
==>od if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($me <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11187	11301	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12658	12772	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14664	14778	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16135	16249	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13972	14086	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15497	15611	
==>urn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	374	476	
==>ule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	374	476	
==>ule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22918	23033	
==>:Class->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->ne <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3200	3307	
==>> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ar <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6325	6432	
==>> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ar <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3200	3307	
==>> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ar <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6325	6432	
==>> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1008	1102	
==>currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1008	1102	
==>currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1008	1102	
==>currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7605	7839	
==>eys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $ma <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8069	8303	
==>eys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7583	7801	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7583	7801	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7583	7801	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaM <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	21901	21997	
==>tes, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation with <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26453	26549	
==>tes, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation with <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	669	762	
==>output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to w <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	669	762	
==>output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1225	1318	
==>output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15703	15837	
==>n easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15703	15837	
==>n easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15703	15837	
==>n easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20424	20554	
==>n easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20424	20554	
==>n easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20424	20554	
==>n easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regis <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7680	7775	
==>y_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_author <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7680	7775	
==>y_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_author <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25142	25299	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27331	27488	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25142	25299	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27331	27488	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25142	25299	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27331	27488	
==>numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Pe <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2995	3091	
==>rrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurren <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2995	3091	
==>rrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurren <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3214	3342	
==>{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{ar <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3354	3482	
==>{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{ar <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1102	1219	
==>t of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules taking argumen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2861	2953	
==>vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($v <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2861	2953	
==>vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($v <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2861	2953	
==>vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($v <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5877	5960	
==>Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5877	5960	
==>Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21684	21804	
==>('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18105	18225	
==>('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	813	926	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1675	1788	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	813	926	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	813	926	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1675	1788	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1675	1788	
==>a {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	182	292	
==>Monkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	182	292	
==>Monkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	182	292	
==>Monkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $j <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7820	7920	
==>Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7820	7920	
==>Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7820	7920	
==>Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1- <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	14048	14145	
==>urns Bool`

Sometimes what you need to test does not fit into one of the standard
testing function <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14106	14203	
==>urns Bool`

Sometimes what you need to test does not fit into one of the standard
testing function <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5870	6072	
==>t(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

P <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5870	6072	
==>t(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

P <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3231	3431	
==>t(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

P <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3231	3431	
==>t(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

P <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	18444	18553	
==>used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16192	16294	
==>0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($x <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16192	16294	
==>0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($x <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16192	16294	
==>0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($x <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20044	20177	
==>1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20323	20456	
==>1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop: <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7103	7198	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6233	6328	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2887	2982	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2887	2982	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7103	7198	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6233	6328	
==>des($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($me <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	397	494	
==>V<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the rem <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	397	494	
==>V<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the rem <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5036	5123	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3264	3351	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5036	5123	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3264	3351	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5036	5123	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3264	3351	
==>s $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3334	3456	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8619	8741	
==>optimization for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3593	3711	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10011	10129	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8316	8434	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3593	3711	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10011	10129	
==>optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15116	15220	
==>age Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	7779	7890	
==>known modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|" <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2076	2181	
==>known modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2076	2181	
==>known modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2076	2181	
==>known modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|" <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	680	776	
==>" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Per <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	680	776	
==>" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Per <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12213	12306	
==>agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12213	12306	
==>agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5791	5897	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3911	4017	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5791	5897	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3911	4017	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5791	5897	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3911	4017	
==>s is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasse <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16891	16984	
==>eaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16891	16984	
==>eaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8562	8741	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6115	6294	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8562	8741	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6115	6294	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8562	8741	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6115	6294	
==>ance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18320	18413	
==>ide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, t <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18320	18413	
==>ide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, t <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	678	794	
==>say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCR <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	678	794	
==>say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCR <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3973	4084	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4911	5022	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2207	2318	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2453	2564	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2988	3099	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3234	3345	
==>rm1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( ge <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16329	16490	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21046	21207	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16329	16490	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21046	21207	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16329	16490	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21046	21207	
==>Cache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
} <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	4263	4358	
==>e specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Syn <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4263	4358	
==>e specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Syn <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	755	892	
==>eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	755	892	
==>eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	755	892	
==>eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23986	24104	
==>O) (list new)))          
          ($self: send (MRO))))
     ($self: get_attr (symbol new @:superclasses)))

=cut

$: <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6324	6429	
==>$node, $de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	376	479	
==>l};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	376	479	
==>l};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	376	479	
==>l};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL:: <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2029	2244	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $inde <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2029	2244	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $inde <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4771	4878	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7420	7527	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4987	5092	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11436	11541	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4987	5092	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11436	11541	
==>= length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2716	2825	
==>h($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($pat <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2716	2825	
==>h($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($pat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2896	2995	
==>e = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2896	2995	
==>e = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2896	2995	
==>e = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14200	14292	
==>rapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14200	14292	
==>rapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14200	14292	
==>rapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25608	25719	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27803	27914	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25608	25719	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27803	27914	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25608	25719	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27803	27914	
==>xed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last u <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	853	947	
==>of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	853	947	
==>of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2458	2596	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4785	4923	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2458	2596	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4785	4923	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2458	2596	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4785	4923	
==>bute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1883	2015	
==>rst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1883	2015	
==>rst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7570	7694	
==>ms;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7570	7694	
==>ms;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7570	7694	
==>ms;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6029	6134	
==>nd_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6029	6134	
==>nd_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6029	6134	
==>nd_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	893	993	
==>_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	893	993	
==>_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13284	13388	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10568	10672	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13284	13388	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10568	10672	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13284	13388	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10568	10672	
==>c($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_i <==
8	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1875	1976	
==>or
    *Compress::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CGI->param("smok <==
8	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8188	8283	
==>th a path (relative, absolute, or a command in
C<$ENV{PATH}> that can be used to execute F<ghc>. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7753	7904	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5312	5463	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7753	7904	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5312	5463	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7753	7904	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5312	5463	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1441	1592	
==>e matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $not <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8828	8933	
==>ose:
    parse_error(mob, pos, "Missing closing braces for closure")
    .return (mob)
.end
    

.sub "pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13531	13635	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10815	10919	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13531	13635	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10815	10919	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13531	13635	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10815	10919	
==>methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($sel <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	5807	5902	
==>e' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depen <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5865	5960	
==>e' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depen <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8477	8573	
==>f8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8477	8573	
==>f8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12514	12604	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10065	10155	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12514	12604	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10065	10155	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12514	12604	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10065	10155	
==>opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->disp <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3016	3113	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6030	6127	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8098	8195	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3016	3113	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6030	6127	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8098	8195	
==>r returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) re <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14892	14985	
==>Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $user <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14892	14985	
==>Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $user <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8471	8632	
==>n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12383	12539	
==>n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12383	12539	
==>n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10272	10379	
==>_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10272	10379	
==>_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1676	1781	
==>ent_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1676	1781	
==>ent_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1676	1781	
==>ent_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $c <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11536	11656	
==>},

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11536	11656	
==>},

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2375	2491	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4702	4818	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2375	2491	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4702	4818	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2375	2491	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4702	4818	
==>ust provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	782	878	
==>t ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	782	878	
==>t ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22647	22741	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22877	22971	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22647	22741	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22877	22971	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22647	22741	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22877	22971	
==>{
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_define <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16302	16424	
==>heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) return <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19779	19901	
==>heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) return <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	479	587	
==>string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5: <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	479	587	
==>string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1130	1230	
==>tput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1130	1230	
==>tput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1130	1230	
==>tput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So o <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5627	5715	
==>to struggle with the {?{...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	11484	11585	
==>ack

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Sim <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11484	11585	
==>ack

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Sim <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7127	7254	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10097	10224	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7127	7254	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10097	10224	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7127	7254	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10097	10224	
==>LASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return b <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11101	11198	
==>s empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- ` <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11101	11198	
==>s empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- ` <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	1881	1985	
==>r some reason, directly returning this expression does not
    # yield the correct return value.

    say <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1881	1985	
==>r some reason, directly returning this expression does not
    # yield the correct return value.

    say <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16630	16733	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13835	13938	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16630	16733	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13835	13938	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16630	16733	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13835	13938	
==>r(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3092	3213	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6085	6206	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1641	1760	
==>efined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1641	1760	
==>efined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3365	3480	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9783	9898	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3365	3480	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9783	9898	
==>optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null() <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	357	457	
==>c range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accept <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	902	1002	
==>c range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accept <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	357	457	
==>c range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accept <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	902	1002	
==>c range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accept <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	902	1002	
==>c range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accept <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5272	5371	
==>amespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5272	5371	
==>amespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5272	5371	
==>amespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE w <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7846	7950	
==>od 8651.  In the List section.
# Prim.hs has a different return type.  List instead of Scalar.
# \\n   Li <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14704	14806	
==>he Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14704	14806	
==>he Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14704	14806	
==>he Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2876	2976	
==>new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2876	2976	
==>new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2876	2976	
==>new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$s <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2434	2530	
==>he moment but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TAI <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4202	4322	
==>:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4202	4322	
==>:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4686	4787	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7622	7723	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4686	4787	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7622	7723	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4686	4787	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7622	7723	
==>blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wit <==
8	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4688	4782	
==>--initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in order to copy file <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4488	4580	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6437	6529	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4488	4580	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6437	6529	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4488	4580	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6437	6529	
==>::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48599	48681	
==>dule->send('add_attribute', (symbol->new('$:authority') => attribute->new('$:author <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1972	2136	
==>o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1972	2136	
==>o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1972	2136	
==>o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1808	1924	
==>o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29172	29287	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29451	29566	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10905	10999	
==>s.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which st <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10905	10999	
==>s.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which st <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1361	1550	
==>ax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($f <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1361	1550	
==>ax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39097	39224	
==>celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39097	39224	
==>celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39097	39224	
==>celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9304	9416	
==>e does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_para <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9304	9416	
==>e does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_para <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9304	9416	
==>e does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_para <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4864	4994	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7800	7930	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4864	4994	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7800	7930	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4864	4994	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7800	7930	
==>aking sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER:: <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36550	36643	
==>tional
parameter $message and returns an equivalent human readable text message
string; this a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36550	36643	
==>tional
parameter $message and returns an equivalent human readable text message
string; this a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3997	4113	
==>y@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the sl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3997	4113	
==>y@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the sl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3997	4113	
==>y@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the sl <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	323	425	
==>D = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	323	425	
==>D = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	323	425	
==>D = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1709	1805	
==>Var

(variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Singl <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1641	1734	
==>Var
(variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Singl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13931	14048	
==>{},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13931	14048	
==>{},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13931	14048	
==>{},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5389	5492	
==>ntf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exechook_insert ()
{
  if(previous <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14818	14917	
==>ge Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14818	14917	
==>ge Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14818	14917	
==>ge Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1663	1760	
==>me/dir' );

Removes a directory completely, even if it is non-empty.

Returns true on success, fal <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25986	26156	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28187	28357	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25986	26156	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28187	28357	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25986	26156	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28187	28357	
==>'-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @star <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	394	522	
==>$Postinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_pre <==
8	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1931	2043	
==>->new($_)) } @_ } # subs that do nothing but have distinct digests

my $env = Env->new(
    stub (
        '&tern <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6298	6426	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retur <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6298	6426	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retur <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6298	6426	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retur <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8764	8879	
==>sult);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0) <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3596	3701	
==>Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the diff <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3596	3701	
==>Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the diff <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	4471	4574	
==>Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the diff <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4471	4574	
==>Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the diff <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3606	3742	
==>'t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $na <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4923	5059	
==>'t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $na <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3606	3742	
==>'t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $na <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4911	5047	
==>'t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $na <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10480	10573	
==>le $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` metho <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	17422	17515	
==>le $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` metho <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10480	10573	
==>le $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` metho <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17422	17515	
==>le $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4722	4851	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2909	3038	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4722	4851	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2909	3038	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4722	4851	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2909	3038	
==>me) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and i <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	16380	16474	
==>aal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights res <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16438	16532	
==>aal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights res <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3180	3333	
==>fg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3180	3333	
==>fg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	1416	1525	
==>nding on the implementing class, it can default to True or 
        # False, but once it has a value of False, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4894	5002	
==>nding on the implementing class, it can default to True or
        # False, but once it has a value of False, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3824	3932	
==>nding on the implementing class, it can default to True or
        # False, but once it has a value of False, <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	23621	23719	
==>nding on the implementing class, it can default to True or
False, but once it has a value of False, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28173	28271	
==>nding on the implementing class, it can default to True or
False, but once it has a value of False, <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26986	27084	
==>nding on the implementing class, it can default to True or
False, but once it has a value of False, <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16292	16414	
==>y( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $othe <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19769	19891	
==>y( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $othe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19897	19994	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17036	17133	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19897	19994	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17036	17133	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19897	19994	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17036	17133	
==>blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wi <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5498	5627	
==>'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'I <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5498	5627	
==>'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'I <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4403	4512	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4627	4736	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4403	4512	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4627	4736	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4403	4512	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4627	4736	
==>) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $c <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16147	16268	
==>nt is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

= <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16147	16268	
==>nt is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	841	950	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	929	1038	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	841	950	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	929	1038	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	841	950	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	929	1038	
==>} elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --optio <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8018	8149	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5577	5708	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8018	8149	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5577	5708	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8018	8149	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5577	5708	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1706	1837	
==>with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy <==
8	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4053	4151	
==>gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; y <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15856	15974	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13106	13224	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15856	15974	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13106	13224	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15856	15974	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13106	13224	
==>st provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$la <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5028	5136	
==>[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variabl <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5250	5358	
==>[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variabl <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4678	4807	
==>nstant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0 <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4532	4657	
==>nstant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1410	1513	
==>x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.z <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1410	1513	
==>x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.z <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1410	1513	
==>x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.z <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2569	2657	
==>nce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2569	2657	
==>nce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2569	2657	
==>nce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_meth <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6068	6179	
==>w operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pars <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6068	6179	
==>w operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pars <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	661	756	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1181	1276	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	661	756	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1181	1276	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	661	756	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1181	1276	
==>.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = arg <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21016	21112	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI S <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21016	21112	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI S <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21016	21112	
==>.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI S <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18167	18259	
==>om_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infi <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18167	18259	
==>om_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infi <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18167	18259	
==>om_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infi <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39655	39743	
==>net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText i <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39655	39743	
==>net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText i <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8741	8880	
==>oved" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_p <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2435	2562	
==>my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $c <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2435	2562	
==>my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2449	2557	
==>$len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2449	2557	
==>$len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2449	2557	
==>$len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	631	730	
==>ns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Boo <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	631	730	
==>ns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Boo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24524	24691	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26713	26880	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24524	24691	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26713	26880	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24524	24691	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26713	26880	
==>arn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->un <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10543	10655	
==>= ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item .. <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10543	10655	
==>= ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item .. <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	660	778	
==>er( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    re <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6178	6296	
==>er( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    re <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	660	778	
==>er( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    re <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6190	6308	
==>er( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	54	162	
==>ION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fro <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	54	162	
==>ION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fro <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	54	162	
==>ION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fro <==
8	/Users/nnunley/pugs/util/svnlog2graph.pl	706	804	
==>//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strptime($date, "%Y- <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3447	3586	
==>y $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8732	8870	
==>y $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $sta <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3702	3837	
==>y $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10120	10255	
==>y $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3702	3837	
==>y $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10120	10255	
==>y $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8425	8559	
==>y $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $sta <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24051	24147	
==>self: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # method <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7022	7123	
==>h = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7022	7123	
==>h = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5408	5515	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3528	3635	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5408	5515	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3528	3635	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5408	5515	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3528	3635	
==>erclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRA <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2843	2947	
==>tandard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2843	2947	
==>tandard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1418	1544	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2981	3107	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1418	1544	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2981	3107	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1418	1544	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2981	3107	
==>ject 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $:: <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12224	12330	
==>bject, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12224	12330	
==>bject, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8689	8823	
==>ule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14414	14548	
==>ule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8689	8823	
==>ule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14408	14542	
==>ule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8429	8562	
==>ule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13940	14073	
==>ule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8429	8562	
==>ule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13934	14067	
==>ule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3004	3143	
==>tches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @stat <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3526	3662	
==>tches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @stat <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2906	3042	
==>tches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @stat <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3526	3662	
==>tches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @stat <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5340	5458	
==>";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6608	6726	
==>";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5340	5458	
==>";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6596	6714	
==>";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p <==
8	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	127	265	
==>ocal $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dyn <==
8	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	122	260	
==>ocal $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dyn <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2916	3018	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5446	5548	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2916	3018	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5446	5548	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2916	3018	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5446	5548	
==>y = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7482	7605	
==>s; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or nex <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7482	7605	
==>s; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or nex <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7482	7605	
==>s; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or nex <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	4701	4796	
==>*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8- <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4701	4796	
==>*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13280	13373	
==>catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fla <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13280	13373	
==>catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fla <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13280	13373	
==>catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fla <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14554	14660	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11814	11920	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14554	14660	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11814	11920	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14554	14660	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11814	11920	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    del <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6482	6583	
==>chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_ <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6482	6583	
==>chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2742	2851	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5732	5841	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3035	3139	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9453	9557	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3035	3139	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9453	9557	
==>{
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null() <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	410	510	
==>own parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	410	510	
==>own parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14067	14173	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11339	11445	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14067	14173	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11339	11445	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14067	14173	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11339	11445	
==>od label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2814	2919	
==>]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2802	2907	
==>]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13408	13540	
==>dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::D <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13408	13540	
==>dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::D <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13408	13540	
==>dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::D <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25115	25213	
==>c,
such that all of its class and object methods will each return the same
result and/or make the s <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11246	11344	
==>c,
such that all of its class and object methods will each return the same
result and/or make the s <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14519	14617	
==>c, such that all of its class and
object methods will each return the same result and/or make the s <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25115	25213	
==>c,
such that all of its class and object methods will each return the same
result and/or make the s <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11246	11344	
==>c,
such that all of its class and object methods will each return the same
result and/or make the s <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14519	14617	
==>c, such that all of its class and
object methods will each return the same result and/or make the s <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33435	33532	
==>d Relation contains only tuples that are in
all of the source Relations.  This method has an alias <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37985	38082	
==>d Relation contains only tuples that are in
all of the source Relations.  This method has an alias <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14313	14493	
==>else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14313	14493	
==>else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14313	14493	
==>else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so a <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3330	3431	
==>e( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	8098	8199	
==>e( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3330	3431	
==>e( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8098	8199	
==>e( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1554	1645	
==>railing \\';
use constant RPe_BADESC => --$ENUM, 'Unrecognized escape \\%s%s passed through' <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16238	16375	
==>.
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16232	16369	
==>.
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	57	162	
==>[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rule <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	244	349	
==>[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rule <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	431	536	
==>[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rule <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14243	14332	
==>meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14243	14332	
==>meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14243	14332	
==>meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7469	7623	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5028	5182	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7469	7623	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5028	5182	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7469	7623	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5028	5182	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1164	1318	
==>nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_ta <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1905	1998	
==>um->to_native()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { num-> <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26084	26250	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10742	10907	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38714	38879	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $ <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39241	39406	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $ <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7954	8105	
==>atisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $v <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8418	8569	
==>atisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $v <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7732	7837	
==>map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# signature from S2 <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1168	1268	
==>pulated with anything, so ....
    my $supers = $class->get_attr(symbol->new('@:MRO'));
    # if noth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12066	12235	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12838	13007	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12066	12235	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12838	13007	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12066	12235	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12838	13007	
==>rity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res- <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15606	15705	
==>ut the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this cas <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15606	15705	
==>ut the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this cas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8748	8877	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8748	8877	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8748	8877	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	540	639	
==>ap() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1085	1184	
==>ap() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair co <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	540	639	
==>ap() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair co <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1085	1184	
==>ap() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair co <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1085	1184	
==>ap() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19113	19236	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16351	16474	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19113	19236	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16351	16474	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19113	19236	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16351	16474	
==>classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_i <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2921	3022	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	952	1053	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20361	20457	
==>ot's socket to the server is currently connected.

Note that you might want to use the C<logged_i <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19309	19405	
==>ot's socket to the server is currently connected.

Note that you might want to use the C<logged_i <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6154	6250	
==>ne.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.p <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5284	5380	
==>ne.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.p <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20361	20457	
==>ot's socket to the server is currently connected.

Note that you might want to use the C<logged_i <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19309	19405	
==>ot's socket to the server is currently connected.

Note that you might want to use the C<logged_i <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6154	6250	
==>ne.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.p <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5284	5380	
==>ne.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.p <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	427	559	
==>,
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	427	559	
==>,
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	427	559	
==>,
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(p <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1132	1230	
==>is Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Nod <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1132	1230	
==>is Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Nod <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	30482	30576	
==>s invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35033	35127	
==>s invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34215	34309	
==>s invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	9900	10022	
==>ay ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7840	7962	
==>ay ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9900	10022	
==>ay ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7840	7962	
==>ay ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular <==
8	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf3.pl	15	125	
==>nz = 0;

for(1..3) {
    $anz++ if wurf() == 6;
}
print "okay!\n" if $anz == 1;
#=Perl 6:
if one({wurf()} xx 3) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7141	7250	
==>]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $he <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7141	7250	
==>]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $he <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7141	7250	
==>]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $he <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7962	8078	
==>f $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrou <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11958	12071	
==>f $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrou <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11958	12071	
==>f $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2349	2454	
==>\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2349	2454	
==>\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2349	2454	
==>\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	23400	23494	
==>e where "Relation" is a Role rather than a Class, and some
implementations are immutable rather <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27952	28046	
==>e where "Relation" is a Role rather than a Class, and some
implementations are immutable rather <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10306	10457	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7857	8008	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10306	10457	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7857	8008	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10306	10457	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7857	8008	
==>ack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exha <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3891	4006	
==>n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die " <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4108	4223	
==>n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die " <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14087	14203	
==>Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14087	14203	
==>Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5550	5658	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3670	3778	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5550	5658	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3670	3778	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5550	5658	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3670	3778	
==>erclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4837	4976	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5798	5937	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4837	4976	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5798	5937	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4837	4976	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5798	5937	
==>perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	2759	2860	
==>set($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.jo <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2759	2860	
==>set($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.jo <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6665	6759	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5795	5889	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2449	2543	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2449	2543	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6665	6759	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5795	5889	
==>or includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	5889	5968	
==>um/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$ <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5889	5968	
==>um/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3986	4131	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6922	7067	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3986	4131	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6922	7067	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3986	4131	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6922	7067	
==>ethod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this ope <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23617	23714	
==>:Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 pa <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23617	23714	
==>:Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 pa <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7942	8091	
==>dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{v <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8406	8555	
==>dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{v <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5828	5948	
==>imitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5828	5948	
==>imitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arra <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5828	5948	
==>imitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arra <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5863	5975	
==>map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.en <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5863	5975	
==>map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.en <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5863	5975	
==>map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.en <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8760	8943	
==>) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8760	8943	
==>) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.u <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8760	8943	
==>) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18180	18332	
==>et->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18180	18332	
==>et->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18180	18332	
==>et->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $re <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22351	22500	
==>bel
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42140	42289	
==>bel
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20117	20256	
==>c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16538	16677	
==>c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4702	4829	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7638	7765	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4702	4829	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7638	7765	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4702	4829	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7638	7765	
==>ted_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7430	7558	
==>iable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11765	11893	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2246	2371	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9018	9143	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7180	7305	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2246	2371	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9018	9143	
==>iable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15108	15223	
==>eturn $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub post <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3342	3469	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8627	8754	
==>tion for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3601	3724	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10019	10142	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8324	8447	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3601	3724	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10019	10142	
==>tion for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { s <==
8	/Users/nnunley/pugs/util/build_pugs.pl	1849	1949	
==>Finished building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) };
    $run_setup->( <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19614	19780	
==>oncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19893	20059	
==>oncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4343	4467	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7279	7403	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4343	4467	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7279	7403	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4343	4467	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7279	7403	
==>t binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ( <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4663	4756	
==>recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4663	4756	
==>recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20756	20847	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17894	17985	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20756	20847	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17894	17985	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20756	20847	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17894	17985	
==>AME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20321	20431	
==>rm(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[], <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	38	131	
==>|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	38	131	
==>|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	38	131	
==>|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	2663	2754	
==>urrently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2663	2754	
==>urrently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9352	9441	
==>char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9352	9441	
==>char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3429	3521	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6443	6535	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8511	8603	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3429	3521	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6443	6535	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8511	8603	
==>(*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path ret <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	566	658	
==>::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	566	658	
==>::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16310	16438	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21027	21155	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16310	16438	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21027	21155	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16310	16438	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21027	21155	
==>ame, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrap <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	16313	16402	
==>x Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2. <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16371	16460	
==>x Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1638	1749	
==>l) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1638	1749	
==>l) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1638	1749	
==>l) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	29663	29758	
==>unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffe <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34215	34310	
==>unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffe <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33379	33474	
==>unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffe <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	686	777	
==>le><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM: <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	686	777	
==>le><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30165	30296	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31894	32025	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30165	30296	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31894	32025	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30165	30296	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31894	32025	
==>ngth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11032	11127	
==>Compile/Filter some source code into something else. This is almost
# always overridden in a sub <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11032	11127	
==>Compile/Filter some source code into something else. This is almost
# always overridden in a sub <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5686	5813	
==>lock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6239	6366	
==>lock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5879	6006	
==>lock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6432	6559	
==>lock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2717	2817	
==>with the same key, the encryption 
can be removed by XORing them together; you might not be able to d <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2717	2817	
==>with the same key, the encryption 
can be removed by XORing them together; you might not be able to d <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31760	31856	
==>the
current user is fluent in (and prefers) language A but also understands
language B.  Later on <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31760	31856	
==>the
current user is fluent in (and prefers) language A but also understands
language B.  Later on <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	3722	3821	
==>lf);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_di <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3722	3821	
==>lf);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_di <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3023	3121	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6037	6135	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8105	8203	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3023	3121	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6037	6135	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8105	8203	
==>ns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Ar <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4463	4590	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7112	7239	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4689	4812	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11138	11261	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4689	4812	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11138	11261	
==>tch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        de <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26960	27056	
==>argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= ne <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26960	27056	
==>argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= ne <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4592	4718	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7241	7367	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4814	4936	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11263	11385	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4814	4936	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11263	11385	
==>ete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return S <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	9080	9181	
==>union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersect <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9080	9181	
==>union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersect <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2725	2829	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5373	5477	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2725	2829	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5373	5477	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2725	2829	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5373	5477	
==>es the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::ins <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	696	793	
==>OM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - conte <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	696	793	
==>OM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - conte <==
8	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8787	8888	
==>e = $self->can_run($ghc_pkg) || $self->can_run('ghc-pkg');

        # This above fails under cygwin wi <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1973	2071	
==>{
    return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Internals::log10($x) if <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7800	7893	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6930	7023	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3516	3609	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3516	3609	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7800	7893	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6930	7023	
==>necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member) <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1740	1905	
==>d {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our res <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1740	1905	
==>d {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our res <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4494	4644	
==>s => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4494	4644	
==>s => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4494	4644	
==>s => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5897	6000	
==>ation of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_H <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5897	6000	
==>ation of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_H <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5897	6000	
==>ation of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_H <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3348	3473	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8633	8758	
==>or faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3607	3728	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10025	10146	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8330	8451	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3607	3728	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10025	10146	
==>or faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3778	3884	
==>er::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3482	3641	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6418	6577	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3482	3641	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6418	6577	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3482	3641	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6418	6577	
==>->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10814	10928	
==>ediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11093	11207	
==>ediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl' <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7766	8014	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $re <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7766	8014	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1303	1426	
==>ESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1508	1631	
==>ESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1569	1692	
==>ESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::o <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12657	12764	
==>st> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      < <==
8	/Users/nnunley/pugs/inc/Module/Install.pm	877	981	
==>$self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2712	2807	
==>$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1909	2031	
==>has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.tab <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1909	2031	
==>has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.tab <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5335	5454	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8305	8424	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5335	5454	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8305	8424	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5335	5454	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8305	8424	
==>ethod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub b <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5812	5925	
==>continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5812	5925	
==>continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14993	15103	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12247	12357	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14993	15103	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12247	12357	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14993	15103	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12247	12357	
==>);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:at <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22399	22514	
==>$capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22678	22793	
==>$capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10426	10558	
==>indings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10426	10558	
==>indings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10426	10558	
==>indings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2332	2457	
==>create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2537	2662	
==>create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3328	3453	
==>create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(s <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19839	19933	
==>are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick" <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19839	19933	
==>are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6850	6972	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9820	9942	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6850	6972	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9820	9942	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6850	6972	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9820	9942	
==>te::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($me <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2553	2667	
==>$debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2553	2667	
==>$debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4536	4697	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7048	7209	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4536	4697	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7048	7209	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4536	4697	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7048	7209	
==>ere...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # me <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6806	6952	
==>l end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Valu <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6806	6952	
==>l end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Valu <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	21505	21691	
==>=> comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun => c <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	301	404	
==>>new(0)  }
sub to_str { str->new('') }

sub is_nil     { bit->new(1) }
sub is_not_nil { bit->new(0) }

1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1743	1856	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3306	3419	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1743	1856	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3306	3419	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1743	1856	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3306	3419	
==>CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detai <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1051	1155	
==>lti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for string <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1051	1155	
==>lti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for string <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6832	6917	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6832	6917	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3443	3528	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4137	4222	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4337	4422	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6575	6660	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5345	5430	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6832	6917	
==>----------------------------------------------------------------------------
## BOOTST <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30183	30306	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31912	32035	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30183	30306	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31912	32035	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30183	30306	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31912	32035	
==>my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{i <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2029	2126	
==>turn %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2029	2126	
==>turn %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2072	2182	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1184	1294	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2072	2182	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1184	1294	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2072	2182	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1184	1294	
==>ll allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $pa <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10543	10636	
==>..}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence s <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10543	10636	
==>..}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4196	4362	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4196	4362	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4196	4362	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6722	6874	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6722	6874	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6722	6874	
==>make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2052	2179	
==>$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2192	2319	
==>$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8007	8122	
==>.= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8007	8122	
==>.= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8007	8122	
==>.= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1779	1888	
==>seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1779	1888	
==>seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1779	1888	
==>seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %s <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1947	2054	
==>d equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.incl <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1947	2054	
==>d equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.incl <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1101	1220	
==>tart       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4340	4459	
==>tart       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1101	1220	
==>tart       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4340	4459	
==>tart       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span. <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21424	21519	
==>..})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20305	20400	
==>..})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21424	21519	
==>..})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20305	20400	
==>..})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5519	5641	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3639	3761	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5519	5641	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3639	3761	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5519	5641	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3639	3761	
==>ef"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->ad <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1403	1498	
==>s the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interface <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1403	1498	
==>s the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interface <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	224	331	
==>rser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.p <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	224	331	
==>rser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	389	492	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	382	485	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	389	492	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	382	485	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	389	492	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	382	485	
==>rsion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibl <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23031	23246	
==>,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23310	23525	
==>,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3070	3174	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10993	11097	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6195	6299	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3070	3174	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10993	11097	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6195	6299	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12272	12413	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3894	4035	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12272	12413	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3894	4035	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12272	12413	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3894	4035	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     su <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	759	858	
==>O - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has addition <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	759	858	
==>O - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has addition <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7599	7718	
==>$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7587	7706	
==>$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8860	8973	
==>ault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8860	8973	
==>ault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8860	8973	
==>ault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7323	7428	
==>ARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callcha <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7323	7428	
==>ARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callcha <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7323	7428	
==>ARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callcha <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	78	196	
==>trict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	120	238	
==>trict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	78	196	
==>trict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	120	238	
==>trict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	39	139	
==>at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bot <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	43	143	
==>at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bot <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	39	139	
==>at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bot <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	43	143	
==>at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bot <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16272	16397	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20989	21114	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16272	16397	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20989	21114	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16272	16397	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20989	21114	
==>rocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->c <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11187	11284	
==>tiple
values in this way will not change the semantic of a header field, but
in practice there are <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11187	11284	
==>tiple
values in this way will not change the semantic of a header field, but
in practice there are <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5175	5317	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8145	8287	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5175	5317	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8145	8287	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5175	5317	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8145	8287	
==>method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1965	2092	
==>de_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # prin <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2182	2309	
==>de_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # prin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7733	7839	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10656	10762	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7733	7839	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10656	10762	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7733	7839	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10656	10762	
==>next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this imp <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19660	19753	
==>eave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its ke <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19660	19753	
==>eave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its ke <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2378	2500	
==>de
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   = <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2378	2500	
==>de
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4472	4569	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7408	7505	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4472	4569	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7408	7505	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4472	4569	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7408	7505	
==>hod, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3208	3336	
==>rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flag <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3348	3476	
==>rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flag <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1775	1897	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1775	1897	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1775	1897	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1601	1702	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1601	1702	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1601	1702	
==>ant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submetho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11284	11430	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8837	8983	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11284	11430	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8837	8983	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11284	11430	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8837	8983	
==>rrent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19493	19579	
==>rcnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19493	19579	
==>rcnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11388	11508	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16118	16238	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11388	11508	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16118	16238	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11388	11508	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16118	16238	
==>ems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26526	26621	
==>ivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in w <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31078	31173	
==>ivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in w <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3418	3571	
==>e_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3418	3571	
==>e_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	667	784	
==>self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPE <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	683	800	
==>self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPE <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	659	776	
==>self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPE <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	976	1075	
==>CALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	976	1075	
==>CALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	976	1075	
==>CALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10126	10260	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7677	7811	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10126	10260	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7677	7811	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10126	10260	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7677	7811	
==>defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
8	/Users/nnunley/pugs/util/build_pugs.pl	2269	2382	
==>$ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimzed` which does <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52252	52338	
==>--------------------------------------------------------
## finishing up the boostrappi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5972	6107	
==>return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5972	6107	
==>return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9953	10043	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7504	7594	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9953	10043	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7504	7594	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9953	10043	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7504	7594	
==>thod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_m <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9347	9469	
==>, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9540	9662	
==>, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6834	6952	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9804	9922	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6834	6952	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9804	9922	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6834	6952	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9804	9922	
==>thod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18727	18861	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15965	16099	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18727	18861	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15965	16099	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18727	18861	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15965	16099	
==>pe... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namesp <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6529	6642	
==>p"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse ( <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6529	6642	
==>p"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11516	11738	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9069	9291	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11516	11738	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9069	9291	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11516	11738	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9069	9291	
==>we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else { <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13390	13485	
==>e HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not foun <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13390	13485	
==>e HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not foun <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8441	8559	
==>ee of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not bac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	599	717	
==>ee of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not bac <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	869	985	
==>ee of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not bac <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8158	8274	
==>ee of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not bac <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	573	689	
==>ee of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not bac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	869	985	
==>ee of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not bac <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	11496	11589	
==>of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the se <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11496	11589	
==>of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the se <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6393	6501	
==>pe", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("R <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6393	6501	
==>pe", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("R <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3675	3767	
==>n 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3675	3767	
==>n 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6695	6786	
==>n to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8764	8855	
==>n to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6695	6786	
==>n to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8764	8855	
==>n to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischei <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8793	8948	
==>es not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for spl <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8793	8948	
==>es not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for spl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1992	2101	
==>js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gues <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1992	2101	
==>js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gues <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1992	2101	
==>js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gues <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16853	16959	
==>natural join,
    # where some source attributes are in common, and each
    # source has attributes not in <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20330	20436	
==>natural join,
    # where some source attributes are in common, and each
    # source has attributes not in <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19908	20014	
==>natural join,
    # where some source attributes are in common, and each
    # source has attributes not in <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30755	30953	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32474	32672	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30755	30953	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32474	32672	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30755	30953	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32474	32672	
==>et_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $t <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8952	9124	
==>ER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Ros <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8952	9124	
==>ER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Ros <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24500	24686	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26689	26875	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24500	24686	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26689	26875	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24500	24686	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26689	26875	
==>sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arra <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	12209	12303	
==>=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.su <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12209	12303	
==>=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.su <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11223	11331	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2339	2447	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7433	7541	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11223	11331	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2339	2447	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7433	7541	
==>Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $a <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1433	1535	
==>bj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object f <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1433	1535	
==>bj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	824	940	
==>_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	824	940	
==>_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	824	940	
==>_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4495	4603	
==>en pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4495	4603	
==>en pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4495	4603	
==>en pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	323	426	
==>y $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_fi <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	323	426	
==>y $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_fi <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5010	5129	
==>r });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16046	16165	
==>r });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17534	17653	
==>r });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22217	22336	
==>r });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5624	5728	
==>boxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5624	5728	
==>boxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5624	5728	
==>boxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28494	28583	
==>rog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_on(prog)		((prog)->reganc <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3909	4066	
==>e) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./heade <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3909	4066	
==>e) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./heade <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3012	3155	
==>at,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3012	3155	
==>at,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3012	3155	
==>at,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3240	3348	
==>ed $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3240	3348	
==>ed $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $n <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3240	3348	
==>ed $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $n <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2574	2685	
==>ty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

me <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5777	5888	
==>ty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

me <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2574	2685	
==>ty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

me <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5777	5888	
==>ty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

me <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2714	2816	
==>turn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test:: <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2714	2816	
==>turn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test:: <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5617	5719	
==>ook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2794	2896	
==>turn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test:: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	133	316	
==>eturn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0 <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	133	316	
==>eturn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5786	5893	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3906	4013	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5786	5893	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3906	4013	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5786	5893	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3906	4013	
==>, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:supercl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16312	16440	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21029	21157	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16312	16440	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21029	21157	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16312	16440	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21029	21157	
==>e, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrappe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4774	4871	
==>match string).

=head2 0+

When used as a number, the match object returns the numified version
of <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4774	4871	
==>match string).

=head2 0+

When used as a number, the match object returns the numified version
of <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11107	11243	
==>rn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.l <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11107	11243	
==>rn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.l <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11107	11243	
==>rn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17332	17428	
==>m *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile con <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17332	17428	
==>m *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile con <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4370	4464	
==>Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Names <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4370	4464	
==>Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Names <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4370	4464	
==>Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Names <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23268	23368	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1841	1941	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4132	4232	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1804	1904	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23268	23368	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1841	1941	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4132	4232	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1804	1904	
==>xt> (for error messages).

It also requires these Perl 6 classes that are in the current distribution <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22172	22268	
==>objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does no <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7067	7163	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6197	6293	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2851	2947	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2851	2947	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22172	22268	
==>objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does no <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7067	7163	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6197	6293	
==>mber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) re <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6997	7142	
==>gx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6985	7130	
==>gx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    retur <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22127	22223	
==>ass name, and then invoking methods on those objects.  All of
their attributes are private, so yo <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9400	9496	
==>ass name, and then invoking methods on those objects.  All of
their attributes are private, so yo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22127	22223	
==>ass name, and then invoking methods on those objects.  All of
their attributes are private, so yo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9400	9496	
==>ass name, and then invoking methods on those objects.  All of
their attributes are private, so yo <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24495	24590	
==>ass name, and then invoking methods on those objects.
All of their attributes are private, so yo <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24495	24590	
==>ass name, and then invoking methods on those objects.
All of their attributes are private, so yo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3995	4141	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6931	7077	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3995	4141	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6931	7077	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3995	4141	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6931	7077	
==>_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sho <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12955	13049	
==>ange are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as a <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12955	13049	
==>ange are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as a <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	651	768	
==>::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for o <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1135	1252	
==>::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1521	1614	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1521	1614	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1521	1614	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	362	453	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	362	453	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	362	453	
==>a("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25890	26108	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28091	28309	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25890	26108	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28091	28309	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25890	26108	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28091	28309	
==>);
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6: <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19738	19834	
==>ation_basic

This method is used to get or set an authorization header that use the
"Basic Authen <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19738	19834	
==>ation_basic

This method is used to get or set an authorization header that use the
"Basic Authen <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27352	27458	
==>->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects for Per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15862	15965	
==>UB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15862	15965	
==>UB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15862	15965	
==>UB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	787	887	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	992	1092	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1048	1148	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	545	642	
==>r($<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5580	5705	
==>a dir -> dir
    ### move. Which means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %from;
    if( IS_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12510	12622	
==>s {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12510	12622	
==>s {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2283	2387	
==>ect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2283	2387	
==>ect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2363	2467	
==>ect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	144	243	
==>ns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	144	243	
==>ns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5019	5148	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7668	7797	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5226	5349	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11675	11798	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5226	5349	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11675	11798	
==>he <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = p <==
8	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3670	3783	
==>$cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for m <==
8	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3670	3783	
==>$cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for m <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1470	1573	
==>pens a new scope

    $self->new_pad("name" => $value); # shadows any previous "name"

    $self->find_d <==
8	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9199	9298	
==>d -s $initrd_img == 1024 * $initrd_size },
    using  => sub { system "dd", "if=/dev/zero", "of=$ini <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	310	395	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1469	1554	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	310	395	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1469	1554	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	310	395	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1469	1554	
==>if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self-> <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3238	3363	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6231	6354	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3504	3622	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9922	10040	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3504	3622	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9922	10040	
==>us( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtr <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2113	2210	
==>ctly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item Ini <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2113	2210	
==>ctly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item Ini <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8359	8485	
==>> chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804) <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8359	8485	
==>> chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804) <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7051	7147	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6181	6277	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2835	2931	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2835	2931	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7051	7147	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6181	6277	
==>> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($memb <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	8351	8459	
==>an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree a <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8351	8459	
==>an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree a <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3243	3339	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6257	6353	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8325	8421	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3243	3339	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6257	6353	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8325	8421	
==>ns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	416	518	
==>() { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    m <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	416	518	
==>() { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19845	19942	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16984	17081	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19845	19942	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16984	17081	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19845	19942	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16984	17081	
==>ct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribu <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1596	1714	
==>', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::M <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1596	1714	
==>', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::M <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15759	15864	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13009	13114	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15759	15864	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13009	13114	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15759	15864	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13009	13114	
==>f, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provid <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9125	9235	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6672	6782	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9125	9235	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6672	6782	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9125	9235	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6672	6782	
==>s the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($o <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	546	650	
==>x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer nee <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	546	650	
==>x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer nee <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10726	10843	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15267	15384	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10726	10843	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15267	15384	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10726	10843	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15267	15384	
==>is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method . <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26574	26667	
==>or equal to
the invocant Relation's header, in which case it returns the identity-one
Relation <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31126	31219	
==>or equal to
the invocant Relation's header, in which case it returns the identity-one
Relation <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	315	427	
==>autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	315	427	
==>autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	315	427	
==>autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var s <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6771	6872	
==>or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data th <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6771	6872	
==>or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20804	20895	
==><.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0, <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20804	20895	
==><.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0, <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20804	20895	
==><.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9601	9719	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7148	7266	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9601	9719	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7148	7266	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9601	9719	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7148	7266	
==>ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dis <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3542	3644	
==>del::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3542	3644	
==>del::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3482	3590	
==>L_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MO <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3482	3590	
==>L_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MO <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4075	4175	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6724	6824	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4310	4408	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10759	10857	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4310	4408	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10759	10857	
==>if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7145	7251	
==>.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7145	7251	
==>.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7145	7251	
==>.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12301	12406	
==>.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12301	12406	
==>.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12301	12406	
==>.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed') <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	583	680	
==>tty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Dat <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	583	680	
==>tty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Dat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14353	14520	
==>e = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14353	14520	
==>e = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14353	14520	
==>e = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3555	3668	
==>me),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3555	3668	
==>me),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3555	3668	
==>me),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($se <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3250	3337	
==>gmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.f <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3135	3220	
==>gmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.f <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	141	255	
==>n;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mess <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	146	259	
==>n;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mess <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	144	257	
==>n;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mess <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1559	1659	
==>s (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1559	1659	
==>s (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1559	1659	
==>s (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6 <==
8	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1221	1320	
==>imiter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $s <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	510	605	
==>r {
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL::require::ERROR;
	$se <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12098	12248	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3609	3759	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12098	12248	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3609	3759	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12098	12248	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3609	3759	
==>BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      } <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5168	5310	
==>ns ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cen <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5168	5310	
==>ns ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cen <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3498	3598	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6512	6612	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8580	8680	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3498	3598	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6512	6612	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8580	8680	
==>turns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= S <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6927	7025	
==>turns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 versi <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6927	7025	
==>turns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 versi <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26920	27075	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27441	27596	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27782	27937	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27946	28101	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27199	27354	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27720	27875	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28061	28216	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28225	28380	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	897	1012	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	985	1100	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	897	1012	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	985	1100	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	897	1012	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	985	1100	
==>RGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } e <==
8	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	604	694	
==>c code compiled\n";
my $i = new_interpreter();
$Inline::Parrot::PMC::interpreter=$i;
run_by <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17167	17257	
==>~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	101	207	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	96	202	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	101	207	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	96	202	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	101	207	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	96	202	
==>al $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{p <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	11506	11607	
==>>

My inclination is to wait until objects are done for this, but maybe I will
figure out a good way t <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11506	11607	
==>>

My inclination is to wait until objects are done for this, but maybe I will
figure out a good way t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15646	15769	
==>b::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %se <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15646	15769	
==>b::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %se <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15646	15769	
==>b::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %se <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8682	8779	
==>ncode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $tar <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8682	8779	
==>ncode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $tar <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	598	688	
==>unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	598	688	
==>unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	598	688	
==>unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5576	5706	
==>rotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5576	5706	
==>rotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5576	5706	
==>rotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        b <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2726	2832	
==>i-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2726	2832	
==>i-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2726	2832	
==>i-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18504	18595	
==>ild Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18504	18595	
==>ild Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	325	434	
==>setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_us <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	325	434	
==>setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1093	1189	
==>LOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1093	1189	
==>LOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1093	1189	
==>LOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	496	586	
==>CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.ac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	496	586	
==>CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.ac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	496	586	
==>CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.ac <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6516	6655	
==>ut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable ma <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6308	6440	
==>ut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	888	996	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	976	1084	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	888	996	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	976	1084	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	888	996	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	976	1084	
==>splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_arg <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7834	7949	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10757	10872	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7834	7949	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10757	10872	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7834	7949	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10757	10872	
==>is implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3477	3573	
==>al and functional 
interfaces are layers on top of the object-oriented backend.

To use the Ciphe <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3477	3573	
==>al and functional 
interfaces are layers on top of the object-oriented backend.

To use the Ciphe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6541	6663	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8990	9112	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6541	6663	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8990	9112	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6541	6663	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8990	9112	
==>ie "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1547	1650	
==>ethods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Fl <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1547	1650	
==>ethods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Fl <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13990	14131	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13990	14131	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13990	14131	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6252	6393	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4754	4895	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2698	2839	
==>$i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final { <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	673	776	
==>pposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	673	776	
==>pposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1194	1343	
==>$code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1399	1548	
==>$code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18442	18539	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SU <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18442	18539	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SU <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18442	18539	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SU <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6985	7074	
==>--------------------------

# stub this for the moment ...
$::Class->add_method('collect_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6985	7074	
==>--------------------------

# stub this for the moment ...
$::Class->add_method('collect_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6985	7074	
==>--------------------------

# stub this for the moment ...
$::Class->add_method('collect_a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9017	9189	
==>n;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9017	9189	
==>n;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9017	9189	
==>n;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	470	582	
==>information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    re <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	470	582	
==>information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1250	1349	
==>= _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1250	1349	
==>= _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3f <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1250	1349	
==>= _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3f <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19661	19786	
==>/;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16082	16207	
==>/;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11260	11373	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11735	11848	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11260	11373	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11735	11848	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11260	11373	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11735	11848	
==>() {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13974	14085	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14461	14572	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13974	14085	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14461	14572	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13974	14085	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14461	14572	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        u <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9210	9308	
==>`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9210	9308	
==>`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3959	4117	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6895	7053	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3959	4117	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6895	7053	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3959	4117	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6895	7053	
==>role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # be <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2985	3107	
==>s);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2985	3107	
==>s);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	747	898	
==>key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	747	898	
==>key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4354	4460	
==>keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4354	4460	
==>keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4863	4967	
==>keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4863	4967	
==>keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22206	22301	
==>are private, so you must use accessor methods.  Rosetta
does not declare any subroutines or expo <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22206	22301	
==>are private, so you must use accessor methods.  Rosetta
does not declare any subroutines or expo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30278	30419	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32007	32148	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30278	30419	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32007	32148	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30278	30419	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32007	32148	
==>->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "re <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19030	19126	
==>RI if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatica <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19030	19126	
==>RI if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatica <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1967	2110	
==>bs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newli <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1967	2110	
==>bs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newli <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7699	7813	
==>k;

  reduce_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	426	527	
==>lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	426	527	
==>lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self-> <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	426	527	
==>lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17217	17311	
==>loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following be <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17217	17311	
==>loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following be <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13225	13372	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14960	15107	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13225	13372	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14960	15107	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13225	13372	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14960	15107	
==>{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $sel <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	901	997	
==>eturns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<D <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	901	997	
==>eturns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<D <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	529	636	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	851	958	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1230	1337	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	529	636	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	851	958	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1230	1337	
==>me> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplic <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7395	7488	
==>od _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7395	7488	
==>od _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	572	669	
==>ch C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	572	669	
==>ch C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12534	12624	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10085	10175	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12534	12624	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10085	10175	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12534	12624	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10085	10175	
==>self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19322	19433	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4802	4913	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19322	19433	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4802	4913	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19322	19433	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4802	4913	
==>'STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7882	7971	
==>push @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1707	1796	
==>push @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7100	7229	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10070	10199	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7100	7229	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10070	10199	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7100	7229	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10070	10199	
==>ks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10456	10574	
==>.defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.ke <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10456	10574	
==>.defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.ke <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11366	11514	
==>e is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CL <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11366	11514	
==>e is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CL <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11366	11514	
==>e is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CL <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	272	381	
==>args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	272	381	
==>args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	272	381	
==>args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3998	4090	
==>value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deepl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5900	5992	
==>value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deepl <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2893	3022	
==>thod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML> <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2893	3022	
==>thod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4055	4177	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2289	2411	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3070	3192	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4993	5114	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2535	2656	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3316	3437	
==>>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8324	8436	
==>rtion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - th <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	482	594	
==>rtion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8044	8153	
==>rtion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	459	568	
==>rtion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - th <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1607	1704	
==>ll
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $n <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1607	1704	
==>ll
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $n <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8292	8383	
==>item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_eleme <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8292	8383	
==>item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_eleme <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23218	23316	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1791	1889	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4082	4180	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1754	1852	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23218	23316	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1791	1889	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4082	4180	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1754	1852	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also requires these <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23215	23303	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1788	1876	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4079	4167	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1751	1839	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23215	23303	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1788	1876	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4079	4167	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1751	1839	
==>CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

It also r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	713	814	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	713	814	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	713	814	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	100	200	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	100	200	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	100	200	
==>ant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	12613	12707	
==>cessful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$de <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12671	12765	
==>cessful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$de <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24141	24251	
==>fthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|] <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20562	20672	
==>fthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6593	6699	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9042	9148	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6593	6699	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9042	9148	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6593	6699	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9042	9148	
==>unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a rev <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10416	10562	
==>@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pm <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10416	10562	
==>@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pm <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4303	4437	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6952	7086	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4533	4663	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10982	11112	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4533	4663	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10982	11112	
==>urn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'po <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3943	4090	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6879	7026	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3943	4090	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6879	7026	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3943	4090	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6879	7026	
==>ocal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same cl <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26596	26687	
==>ew( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Mes <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26596	26687	
==>ew( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Mes <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6838	6956	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9808	9926	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6838	6956	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9808	9926	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6838	6956	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9808	9926	
==>->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13828	13945	
==>nnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if define <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13828	13945	
==>nnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if define <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11355	11549	
==>'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11355	11549	
==>'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11355	11549	
==>'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13045	13154	
==>r} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13045	13154	
==>r} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13045	13154	
==>r} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17065	17164	
==>n a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17065	17164	
==>n a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7512	7669	
==>ds on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dep <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	813	970	
==>ds on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dep <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2760	2872	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5750	5862	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3052	3157	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9470	9575	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3052	3157	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9470	9575	
==>rnation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3880	4057	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6407	6584	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3880	4057	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6407	6584	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3880	4057	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6407	6584	
==>d($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{su <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2319	2427	
==>lasses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2319	2427	
==>lasses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7982	8120	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5541	5679	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7982	8120	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5541	5679	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7982	8120	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5541	5679	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1670	1808	
==>t unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        co <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16135	16225	
==>Expression>
    | <RelationalExpressionNoIn> <'instanceof'> <ShiftExpression>
}
rule Equali <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5337	5440	
==>{
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5337	5440	
==>{
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5337	5440	
==>{
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5075	5165	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1032	1122	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	892	982	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5075	5165	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1032	1122	
==>The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2771	2885	
==>_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # gene <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2771	2885	
==>_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # gene <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4479	4571	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6428	6520	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4479	4571	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6428	6520	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4479	4571	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6428	6520	
==>ocal $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SU <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4759	4900	
==>pen;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        retur <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4759	4900	
==>pen;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2718	2817	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3298	3397	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2718	2817	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3298	3397	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2718	2817	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3298	3397	
==>oin "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8711	8865	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11684	11838	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8711	8865	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11684	11838	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8711	8865	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11684	11838	
==>the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submeth <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3042	3189	
==>defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluati <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3182	3329	
==>defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluati <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9762	9924	
==>passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	340	492	
==>passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	340	492	
==>passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1540	1631	
==>ue_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1540	1631	
==>ue_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1540	1631	
==>ue_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9176	9266	
==>ush @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3001	3091	
==>ush @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_ <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1128	1295	
==>ther {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $qua <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1128	1295	
==>ther {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $qua <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2293	2409	
==>y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { <==
8	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2293	2409	
==>y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { <==
8	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2640	2756	
==>y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5568	5677	
==>d); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAM <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5568	5677	
==>d); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAM <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5568	5677	
==>d); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAM <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1500	1628	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3063	3191	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1500	1628	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3063	3191	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1500	1628	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3063	3191	
==>imics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7622	7735	
==>asechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7622	7735	
==>asechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5658	5798	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3778	3918	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5658	5798	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3778	3918	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5658	5798	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3778	3918	
==>);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is cir <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2504	2611	
==>\n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1116	1223	
==>\n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13831	13940	
==>ass
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13831	13940	
==>ass
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13831	13940	
==>ass
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whil <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6174	6277	
==>("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$n <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	439	542	
==>TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrul <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6174	6277	
==>("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$n <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6174	6277	
==>("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$n <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	439	542	
==>TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6540	6681	
==>ub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{a <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6329	6465	
==>ub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2255	2372	
==>y;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2255	2372	
==>y;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2255	2372	
==>y;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20437	20535	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0 <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20437	20535	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0 <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20437	20535	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0 <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12836	12963	
==>:Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.o <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12836	12963	
==>:Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	481	581	
==>array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	481	581	
==>array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	481	581	
==>array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5289	5374	
==>ue_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5289	5374	
==>ue_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5289	5374	
==>ue_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method( <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	31821	31913	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	32837	32929	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33292	33384	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	35672	35764	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36371	36463	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37387	37479	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37842	37934	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40222	40314	
==>n (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26195	26290	
==>(others are ignored).  Each variable name can be any
defined and non-empty string, and each vari <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14887	14982	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12141	12236	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26195	26290	
==>(others are ignored).  Each variable name can be any
defined and non-empty string, and each vari <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14887	14982	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12141	12236	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14887	14982	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12141	12236	
==>nsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor( <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4662	4767	
==>' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd" <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4662	4767	
==>' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2748	2851	
==>rray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2748	2851	
==>rray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2748	2851	
==>rray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6596	6686	
==>Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. T <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6596	6686	
==>Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. T <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6596	6686	
==>Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. T <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38046	38198	
==>lar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $it <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38046	38198	
==>lar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $it <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38046	38198	
==>lar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $it <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7142	7267	
==>are of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7142	7267	
==>are of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7142	7267	
==>are of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++ <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3549	3655	
==>/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by se <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3549	3655	
==>/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by se <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	7640	7778	
==>ontent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7640	7778	
==>ontent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25665	25776	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27860	27971	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25665	25776	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27860	27971	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25665	25776	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27860	27971	
==>alar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2106	2248	
==>h}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2106	2248	
==>h}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1572	1681	
==>d_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1572	1681	
==>d_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1572	1681	
==>d_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $met <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	31750	31844	
==>ely.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) ret <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36300	36394	
==>ely.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) ret <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12247	12340	
==>s>.

If C<$inplace> is specified, the array is sorted in place.

See L<http://www.nntp.perl.or <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1896	1992	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	526	622	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1664	1760	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13972	14068	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1896	1992	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	526	622	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1664	1760	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13972	14068	
==>, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock.  All rights reserved.

Thi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6444	6577	
==>s investigation.

                # For now this means that we only allow compilation on
                # the module content; not the <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6444	6577	
==>s investigation.

                # For now this means that we only allow compilation on
                # the module content; not the <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	845	951	
==>es, $program);

	$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node} ||= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1419	1518	
==>->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	636	735	
==>() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1419	1518	
==>->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	636	735	
==>() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	636	735	
==>() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7131	7239	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7131	7239	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7131	7239	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12287	12394	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12287	12394	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12287	12394	
==>{ Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _( <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	782	881	
==>e standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server y <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	782	881	
==>e standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server y <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14865	14969	
==>I SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($x <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14865	14969	
==>I SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($x <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14865	14969	
==>I SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($x <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1206	1301	
==>JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1206	1301	
==>JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1206	1301	
==>JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  di <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39161	39246	
==>ents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Ros <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39161	39246	
==>ents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Ros <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4890	5103	
==>$r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous = <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4890	5103	
==>$r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10481	10642	
==>$r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10481	10642	
==>$r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10481	10642	
==>$r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous = <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3493	3598	
==>ion (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3493	3598	
==>ion (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3493	3598	
==>ion (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	747	881	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	835	969	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	747	881	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	835	969	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	747	881	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	835	969	
==>rg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25238	25328	
==>vn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechsch <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25238	25328	
==>vn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechsch <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	538	644	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	860	966	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1239	1345	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	538	644	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	860	966	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1239	1345	
==><block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate ever <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8885	8976	
==>Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2710	2801	
==>Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1839	1971	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	951	1083	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1839	1971	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	951	1083	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1839	1971	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	951	1083	
==>arams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params w <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5014	5115	
==>f->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1597	1698	
==>f->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6224	6352	
==>/ Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return nu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6224	6352	
==>/ Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return nu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6224	6352	
==>/ Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return nu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12803	12929	
==>},

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved t <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12803	12929	
==>},

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved t <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12803	12929	
==>},

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved t <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	13589	13685	
==>s most useful when writing modules and you
find there is some language feature missing, or core b <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13647	13743	
==>s most useful when writing modules and you
find there is some language feature missing, or core b <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1218	1340	
==><-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name <==
8	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1218	1340	
==><-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11368	11488	
==>is;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$thi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11368	11488	
==>is;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$thi <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11368	11488	
==>is;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$thi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	124	222	
==>tBuilder->STORE('::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    att <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19811	19908	
==>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it c <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19811	19908	
==>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it c <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	777	912	
==>se {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	777	912	
==>se {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9079	9192	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6626	6739	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9079	9192	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6626	6739	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9079	9192	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6626	6739	
==>der) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6950	7069	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9920	10039	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6950	7069	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9920	10039	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6950	7069	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9920	10039	
==>d method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9275	9366	
==>tatement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3100	3191	
==>tatement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, su <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17558	17666	
==>,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17742	17850	
==>,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	802	893	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1322	1413	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	802	893	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1322	1413	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	802	893	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1322	1413	
==>TORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19484	19594	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16716	16826	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19484	19594	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16716	16826	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19484	19594	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16716	16826	
==>")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (b <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	6594	6694	
==>ER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(r <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6594	6694	
==>ER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8626	8750	
==>& iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8626	8750	
==>& iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8626	8750	
==>& iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	1441	1547	
==>es
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|St <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1441	1547	
==>es
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|St <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14245	14348	
==>n 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14245	14348	
==>n 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14245	14348	
==>n 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20188	20284	
==>oded intentionally in a simple fashion so that it is easy to maintain and
and easy for developers <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20188	20284	
==>oded intentionally in a simple fashion so that it is easy to maintain and
and easy for developers <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3407	3499	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6421	6513	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8489	8581	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3407	3499	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6421	6513	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8489	8581	
==>s Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retu <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	209	364	
==>ms;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (wan <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	209	364	
==>ms;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (wan <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	800	891	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1320	1411	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	800	891	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1320	1411	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	800	891	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1320	1411	
==>.STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arr <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3586	3768	
==>t') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3586	3768	
==>t') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	369	488	
==>g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->w <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30698	30796	
==>ich is why it must match the right parenthesis
itself.  The handler throws an error if it can't mat <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	8825	8920	
==>est::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_plann <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8883	8978	
==>est::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_plann <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	219	306	
==>est::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_plann <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	277	364	
==>est::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_plann <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	443	579	
==>less({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VA <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	443	579	
==>less({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VA <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	443	579	
==>less({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8712	8832	
==>Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8712	8832	
==>Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8712	8832	
==>Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy s <==
8	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1801	1894	
==>uggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This l <==
8	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1801	1894	
==>uggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This l <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	4622	4724	
==>12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of th <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4622	4724	
==>12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of th <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7681	7796	
==>re}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12022	12137	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2479	2592	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9251	9364	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7421	7534	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2479	2592	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9251	9364	
==>re}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug- <==
8	/Users/nnunley/pugs/util/build_pugs.pl	2102	2199	
==>l = "blib6/lib/Prelude.pm.yml";

    build_lib($version, $ghc, @args);
    build_exe($version, $gh <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	703	803	
==>$_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This cl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	703	803	
==>$_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This cl <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	703	803	
==>$_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This cl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	51	147	
==>6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	51	147	
==>6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	51	147	
==>6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest o <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20761	20853	
==>otE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> ( <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20761	20853	
==>otE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25096	25252	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27285	27441	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25096	25252	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27285	27441	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25096	25252	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27285	27441	
==>$samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $s <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6381	6488	
==>cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $mo <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6381	6488	
==>cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $mo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6376	6535	
==>lar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is use <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6376	6535	
==>lar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is use <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6376	6535	
==>lar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is use <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4182	4286	
==>eturn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5079	5183	
==>eturn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4182	4286	
==>eturn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5079	5183	
==>eturn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	26561	26663	
==>ip");
}




# tests for the type inferrencer
is(t($id), "∀α. α → α", ":t id");
is(t($app_id), "i <==
8	/Users/nnunley/pugs/util/config_h.pl	27	127	
==>ct;
use warnings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

T <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13909	14007	
==>ts --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iter <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6656	6752	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5786	5882	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2440	2536	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2440	2536	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6656	6752	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5786	5882	
==>erators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12801	12958	
==>capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "uns <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13080	13237	
==>capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "uns <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	4398	4513	
==>{
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No excepti <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4456	4571	
==>{
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No excepti <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11810	11910	
==>elcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $e <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11810	11910	
==>elcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $e <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5093	5185	
==>ce provided by the C<LWP::UserAgent> module.

The following functions are provided (and expor <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5093	5185	
==>ce provided by the C<LWP::UserAgent> module.

The following functions are provided (and expor <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9820	9932	
==>am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9820	9932	
==>am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9820	9932	
==>am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2634	2744	
==>ase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselve <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2634	2744	
==>ase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselve <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7371	7473	
==>set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx-> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7371	7473	
==>set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx-> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7371	7473	
==>set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4515	4654	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7027	7166	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4515	4654	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7027	7166	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4515	4654	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7027	7166	
==>a private method in here...
                    # there is no real distinction between the
                    # private class method or the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29842	29937	
==>ttribute names in the argument C<$attrs>.  The new Relation::Example has all
of the tuples of th <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1052	1140	
==>ad2 $file = $inst->registered_alternatives_file

=cut

sub registered_alternatives_file { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13962	14065	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14449	14552	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13962	14065	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14449	14552	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13962	14065	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14449	14552	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a met <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	19560	19659	
==><Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation o <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24112	24211	
==><Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation o <==
8	/Users/nnunley/pugs/util/p5_to_p6.pl	5075	5206	
==>ay conv_hash conv_reference
              conv_foreach conv_package conv_open conv_condition
          
              )){
    no str <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18878	19002	
==>n...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15299	15423	
==>n...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5156	5259	
==>" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5156	5259	
==>" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5156	5259	
==>" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	418	512	
==>ROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialise <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	418	512	
==>ROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialise <==
8	/Users/nnunley/pugs/examples/hop6/Parser.pm	1130	1264	
==>next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13290	13415	
==>>{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	71	182	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	432	543	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	71	182	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	432	543	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	71	182	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	432	543	
==>' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13203	13327	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14938	15062	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13203	13327	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14938	15062	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13203	13327	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14938	15062	
==>{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        }, <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8441	8530	
==>s, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2266	2355	
==>s, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2101	2218	
==>n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename> <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	415	532	
==>n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2101	2218	
==>n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2101	2218	
==>n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6584	6699	
==>ubmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6584	6699	
==>ubmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6584	6699	
==>ubmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_met <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5589	5687	
==>stable, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class met <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11009	11144	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12480	12615	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14486	14621	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15957	16092	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13794	13929	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15319	15454	
==>( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one t <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23583	23676	
==>other solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Loc <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23583	23676	
==>other solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Loc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5768	5876	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3888	3996	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5768	5876	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3888	3996	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5768	5876	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3888	3996	
==>o subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25418	25598	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27613	27793	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25418	25598	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27613	27793	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25418	25598	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27613	27793	
==>p eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->el <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	177	272	
==>t { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	177	272	
==>t { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	821	933	
==>e_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_E <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12491	12603	
==>e_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_E <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7938	8037	
==>32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIO <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7938	8037	
==>32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIO <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7574	7668	
==>eturns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $mem <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6704	6798	
==>eturns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $mem <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7574	7668	
==>eturns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $mem <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6704	6798	
==>eturns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $mem <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22123	22219	
==>e class name, and then invoking methods on those objects.  All of
their attributes are private, s <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9396	9492	
==>e class name, and then invoking methods on those objects.  All of
their attributes are private, s <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22123	22219	
==>e class name, and then invoking methods on those objects.  All of
their attributes are private, s <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9396	9492	
==>e class name, and then invoking methods on those objects.  All of
their attributes are private, s <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24491	24586	
==>e class name, and then invoking methods on those objects.
All of their attributes are private, s <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24491	24586	
==>e class name, and then invoking methods on those objects.
All of their attributes are private, s <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10259	10352	
==>ndatory
constructor arguments are provided and that they are of the correct
container type (eg <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10259	10352	
==>ndatory
constructor arguments are provided and that they are of the correct
container type (eg <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20159	20294	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17298	17433	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20159	20294	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17298	17433	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20159	20294	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17298	17433	
==>_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
8	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1040	1146	
==>g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ <==
8	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1040	1146	
==>g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8684	8816	
==>_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14409	14541	
==>_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8684	8816	
==>_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14403	14535	
==>_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8424	8555	
==>_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13935	14066	
==>_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8424	8555	
==>_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13929	14060	
==>_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not imple <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5714	5839	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6267	6392	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20422	20547	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22446	22571	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5907	6032	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6460	6585	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20701	20826	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22725	22850	
==>nt =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	6088	6182	
==>t().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6088	6182	
==>t().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1510	1603	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1510	1603	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1510	1603	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	351	442	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	351	442	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $se <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	351	442	
==>->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $se <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25375	25560	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26033	26218	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28815	29000	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25654	25839	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26312	26497	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29094	29279	
==>rm1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       , <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2578	2673	
==>l   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_cl <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2578	2673	
==>l   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_cl <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3109	3267	
==>my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3109	3267	
==>my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14772	14877	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12026	12131	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14772	14877	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12026	12131	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14772	14877	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12026	12131	
==>, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2151	2255	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2556	2660	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2151	2255	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2556	2660	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2151	2255	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2556	2660	
==><EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_ <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	847	949	
==>return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	847	949	
==>return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3331	3448	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11889	12006	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6456	6573	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3331	3448	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11889	12006	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6456	6573	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $? <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	2604	2716	
==>thDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @do <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2604	2716	
==>thDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @do <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23442	23564	
==>);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(if <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19863	19985	
==>);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(if <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7127	7235	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7127	7235	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7127	7235	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12283	12390	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12283	12390	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12283	12390	
==>sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5996	6103	
==>str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A co <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5996	6103	
==>str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13352	13456	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10636	10740	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13352	13456	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10636	10740	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13352	13456	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10636	10740	
==>bmethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{fo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1396	1517	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2959	3080	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1396	1517	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2959	3080	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1396	1517	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2959	3080	
==>stics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above ma <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20511	20625	
==>cope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 = exists self["cn <==
8	/Users/nnunley/pugs/examples/cookbook/test.pl	183	281	
==>incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../pugs";

foreach m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6383	6520	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8832	8969	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6383	6520	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8832	8969	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6383	6520	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8832	8969	
==>slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12611	12710	
==>e usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $docu <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12611	12710	
==>e usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $docu <==
8	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	626	768	
==>= "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_al <==
8	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	661	803	
==>= "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_al <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	626	768	
==>= "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_al <==
8	/Users/nnunley/pugs/util/build_pugs.pl	9843	9985	
==>= "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_al <==
8	/Users/nnunley/pugs/util/src_to_blib.pl	1099	1241	
==>= "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_al <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5740	5841	
==>f $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filt <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5740	5841	
==>f $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filt <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5740	5841	
==>f $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filt <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8146	8276	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5705	5835	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8146	8276	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5705	5835	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8146	8276	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5705	5835	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1834	1964	
==>rchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it ma <==
8	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2039	2140	
==>ame.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    p <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4565	4693	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4812	4940	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4565	4693	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4812	4940	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
#      take index(@inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4056	4183	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@inde <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4311	4438	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4056	4183	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@inde <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4311	4438	
==>>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet
      take index(@inde <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24264	24440	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24503	24679	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25527	25703	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25766	25942	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24543	24719	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24782	24958	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25806	25982	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26045	26221	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6507	6646	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8956	9095	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6507	6646	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8956	9095	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6507	6646	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8956	9095	
==>my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	6444	6556	
==>he subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "norm <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6444	6556	
==>he subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "norm <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19991	20107	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17130	17246	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19991	20107	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17130	17246	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19991	20107	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17130	17246	
==>s with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are adde <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9429	9536	
==>pec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('se <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9429	9536	
==>pec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	254	366	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	252	364	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	254	366	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	252	364	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	254	366	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	252	364	
==>nce
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opa <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1070	1178	
==>ans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    r <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1070	1178	
==>ans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    r <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4423	4558	
==>nt_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_typ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4423	4558	
==>nt_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_typ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17727	17845	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14947	15065	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17727	17845	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14947	15065	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17727	17845	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14947	15065	
==>k for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	916	1023	
==>ay
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	916	1023	
==>ay
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed f <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	916	1023	
==>ay
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed f <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	31	127	
==>TP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Messag <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	31	127	
==>TP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Messag <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14094	14189	
==>x) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multiby <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14094	14189	
==>x) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multiby <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14094	14189	
==>x) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multiby <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	55	148	
==>ckages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	446	702	
==>Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::B <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1184	1289	
==>date: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # note: the list in <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1533	1636	
==>date: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1140	1243	
==>date: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1533	1636	
==>date: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	102	200	
==>}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
} <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	102	200	
==>}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
} <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48303	48387	
==>--------------------------------------------------------------------------
## add Mod <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1492	1598	
==>y $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except s <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1492	1598	
==>y $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except s <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2892	2996	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10815	10919	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6017	6121	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2892	2996	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10815	10919	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6017	6121	
==>w(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $a <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3528	3630	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6542	6644	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8610	8712	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3528	3630	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6542	6644	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8610	8712	
==>rray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of F <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5721	5819	
==>API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only me <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5721	5819	
==>API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8257	8372	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5816	5931	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8257	8372	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5816	5931	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8257	8372	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5816	5931	
==>ff the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq-> <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27933	28027	
==>rns the Message Variable value (a string) associated with
the variable name specified in the po <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27933	28027	
==>rns the Message Variable value (a string) associated with
the variable name specified in the po <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12570	12682	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10121	10233	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12570	12682	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10121	10233	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12570	12682	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10121	10233	
==>);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        ret <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1082	1175	
==>uantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Inst <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1082	1175	
==>uantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Inst <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7564	7687	
==>"uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall" <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7564	7687	
==>"uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20095	20215	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17234	17354	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20095	20215	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17234	17354	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20095	20215	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17234	17354	
==>they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # X <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10116	10258	
==>.")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrap <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10116	10258	
==>.")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrap <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10116	10258	
==>.")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrap <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	27030	27126	
==> × β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β) → α", ":t fst");
is(t(ide(" <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28264	28359	
==>ject which is suitable
for debugging purposes (such as to test that the object's contents look
g <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35620	35715	
==>ject which is suitable
for debugging purposes (such as to test that the object's contents look
g <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28264	28359	
==>ject which is suitable
for debugging purposes (such as to test that the object's contents look
g <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35620	35715	
==>ject which is suitable
for debugging purposes (such as to test that the object's contents look
g <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1326	1451	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2889	3014	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1326	1451	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2889	3014	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1326	1451	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2889	3014	
==>lobal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $? <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1452	1544	
==>e able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<bur <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1452	1544	
==>e able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<bur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4109	4241	
==>rent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4109	4241	
==>rent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4109	4241	
==>rent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3840	3970	
==>>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unle <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4085	4208	
==>>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unle <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10534	10657	
==>>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unle <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4085	4208	
==>>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unle <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10534	10657	
==>>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unle <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1683	1796	
==>?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrar <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1683	1796	
==>?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3777	3879	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6713	6815	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3777	3879	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6713	6815	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3777	3879	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6713	6815	
==>od && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prop <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15984	16135	
==>f $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent som <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15984	16135	
==>f $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent som <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15984	16135	
==>f $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent som <==
8	/Users/nnunley/pugs/util/claim_drift.pl	806	907	
==>.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::Spec->canonpa <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5827	5923	
==>sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4957	5053	
==>sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5827	5923	
==>sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4957	5053	
==>sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10401	10588	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7952	8139	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10401	10588	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7952	8139	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10401	10588	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7952	8139	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go b <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	10769	10880	
==>Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.it <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10769	10880	
==>Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.it <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	650	807	
==>l_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <b <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	650	807	
==>l_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <b <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5575	5705	
==>bel};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $matc <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5575	5705	
==>bel};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $matc <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2133	2250	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quanti <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2723	2840	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quanti <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2133	2250	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quanti <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2711	2828	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quanti <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25642	25753	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27837	27948	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25642	25753	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27837	27948	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25642	25753	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27837	27948	
==>f->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self- <==
8	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1699	1797	
==>" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1539	1637	
==>" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18661	18823	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15899	16061	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18661	18823	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15899	16061	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18661	18823	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15899	16061	
==>ly just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::o <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3110	3240	
==>, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '- <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3110	3240	
==>, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '- <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2254	2394	
==>st_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_elem <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2254	2394	
==>st_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_elem <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14534	14657	
==>mp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14534	14657	
==>mp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14534	14657	
==>mp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1251	1359	
==>ink;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unle <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1251	1359	
==>ink;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unle <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1251	1359	
==>ink;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unle <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	46	139	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
us <==
8	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1321	1461	
==>8] ) {
            $duration = duration($/[29..35]);
            $duration.start = $start;
        } else {
            my $end = date($/[37. <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3571	3675	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8855	8959	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3822	3924	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10240	10342	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8544	8646	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3822	3924	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10240	10342	
==>my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $ta <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1253	1440	
==>lue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1253	1440	
==>lue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things') <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1253	1440	
==>lue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things') <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	577	686	
==>_VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	577	686	
==>_VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	577	686	
==>_VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class:: <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18535	18630	
==>w it officially is not and you should not share
Rosetta objects between multiple threads, nor ha <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18535	18630	
==>w it officially is not and you should not share
Rosetta objects between multiple threads, nor ha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	241	358	
==>raw($::Object);    

    $output .= "}\n";
    return $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_ <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	34	138	
==>use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $ <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	34	138	
==>use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3926	4027	
==>[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::R <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3926	4027	
==>[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::R <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6650	6743	
==>il.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserve <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6650	6743	
==>il.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserve <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6650	6743	
==>il.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserve <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23250	23349	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1823	1922	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4114	4213	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1786	1885	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23250	23349	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1823	1922	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4114	4213	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1786	1885	
==>.)|Locale::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the c <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1095	1220	
==>n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1095	1220	
==>n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16590	16700	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13795	13905	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16590	16700	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13795	13905	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16590	16700	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13795	13905	
==>er
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3610	3721	
==>$i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "go <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3610	3721	
==>$i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "go <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3610	3721	
==>$i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "go <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1531	1638	
==>L::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1531	1638	
==>L::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1531	1638	
==>L::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} a <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	3046	3149	
==>tr {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a s <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3046	3149	
==>tr {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a s <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18134	18216	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18442	18524	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21391	21473	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21701	21783	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41399	41481	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41707	41789	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44298	44380	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44608	44690	
==>$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new(' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7645	7774	
==>t;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11986	12115	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2445	2570	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9217	9342	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7387	7512	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2445	2570	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9217	9342	
==>t;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $ <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26317	26426	
==>ookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClas <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3480	3619	
==>rn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless define <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3480	3619	
==>rn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless define <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4231	4355	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7167	7291	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4231	4355	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7167	7291	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4231	4355	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7167	7291	
==>} => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds value <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15710	15860	
==>r

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15710	15860	
==>r

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15710	15860	
==>r

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20431	20577	
==>r

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20431	20577	
==>r

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20431	20577	
==>r

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # m <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8402	8506	
==>my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8402	8506	
==>my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2690	2813	
==>s_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2690	2813	
==>s_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2690	2813	
==>s_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	5	113	
==>ge PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warning <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	5	113	
==>ge PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warning <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	5	113	
==>ge PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warning <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6346	6446	
==>. $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance callin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11192	11292	
==>. $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance callin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5713	5829	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3833	3949	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5713	5829	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3833	3949	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5713	5829	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3833	3949	
==>that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32810	32899	
==>okes user-defined external files for reading, mainly in the
C<translate_message()> method, <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32810	32899	
==>okes user-defined external files for reading, mainly in the
C<translate_message()> method, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33913	34012	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34081	34180	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33913	34012	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34081	34180	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33913	34012	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34081	34180	
==>or ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5663	5757	
==>evan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 i <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5663	5757	
==>evan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6515	6654	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8964	9103	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6515	6654	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8964	9103	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6515	6654	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8964	9103	
==>=   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not im <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6603	6728	
==>"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6603	6728	
==>"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
s <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11053	11185	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12524	12656	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14530	14662	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16001	16133	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13838	13970	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15363	15495	
==>)
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12308	12405	
==>doc, pod section, comment block and data section, each
# into a single line containing a digest of <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12308	12405	
==>doc, pod section, comment block and data section, each
# into a single line containing a digest of <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11101	11237	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8654	8790	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11101	11237	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8654	8790	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11101	11237	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8654	8790	
==>atcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3074	3186	
==>h(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is cop <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3074	3186	
==>h(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is cop <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18792	18942	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16030	16180	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18792	18942	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16030	16180	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18792	18942	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16030	16180	
==>ce stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1089	1187	
==>ed to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1089	1187	
==>ed to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5193	5344	
==>rl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # } <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5193	5344	
==>rl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11108	11247	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8661	8800	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11108	11247	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8661	8800	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11108	11247	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8661	8800	
==>iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12101	12259	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3612	3770	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12101	12259	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3612	3770	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12101	12259	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3612	3770	
==>DTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11014	11112	
==>ons) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) { <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11014	11112	
==>ons) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) { <==
8	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1359	1499	
==>= pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitp <==
8	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1359	1499	
==>= pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5604	5730	
==>') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5604	5730	
==>') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5604	5730	
==>') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	751	859	
==>\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	751	859	
==>\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	751	859	
==>\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	1888	2033	
==>"Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\ <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1888	2033	
==>"Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\ <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2642	2763	
==>eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => ' <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2642	2763	
==>eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6888	7004	
==>is;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6888	7004	
==>is;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6888	7004	
==>is;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
va <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25165	25260	
==>m(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)),
  E1 = amat(C0,flgs( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12609	12715	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10160	10266	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2339	2445	
==>ckages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2887	2993	
==>ckages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12609	12715	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10160	10266	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12609	12715	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10160	10266	
==>er(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($ne <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3990	4096	
==>alues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::M <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3990	4096	
==>alues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::M <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3478	3578	
==>")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_ca <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3478	3578	
==>")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_ca <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3478	3578	
==>")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11791	11876	
==>l_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11791	11876	
==>l_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11791	11876	
==>l_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40336	40432	
==>tating that you changed the files and the date of any
changes, in addition to preserving this ori <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25860	25956	
==>tating that you changed the files and the date of any changes, in
addition to preserving this ori <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40336	40432	
==>tating that you changed the files and the date of any
changes, in addition to preserving this ori <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25860	25956	
==>tating that you changed the files and the date of any changes, in
addition to preserving this ori <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23597	23692	
==>Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTIC <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22370	22465	
==>Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTIC <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23597	23692	
==>Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTIC <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22370	22465	
==>Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTIC <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1411	1530	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2974	3093	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1411	1530	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2974	3093	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1411	1530	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2974	3093	
==>rl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variabl <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11553	11648	
==>only the elements in this recurrence that are not in the given recurrence.

- `intersects( $recu <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11553	11648	
==>only the elements in this recurrence that are not in the given recurrence.

- `intersects( $recu <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3348	3444	
==>API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3348	3444	
==>API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15901	16013	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20618	20730	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15901	16013	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20618	20730	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15901	16013	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20618	20730	
==>try to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class: <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	9898	9996	
==>ty functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in p <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9956	10054	
==>ty functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in p <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9221	9340	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12194	12313	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9221	9340	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12194	12313	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9221	9340	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12194	12313	
==>6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateM <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9376	9494	
==>lt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9364	9482	
==>lt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4426	4529	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4650	4753	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4426	4529	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4650	4753	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4426	4529	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4650	4753	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3582	3685	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3950	4053	
==>ck, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	803	955	
==>ool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)= <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	803	955	
==>ool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)= <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	803	955	
==>ool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)= <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4972	5077	
==>unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0 <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4972	5077	
==>unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3600	3697	
==>bname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if def <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3600	3697	
==>bname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if def <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3600	3697	
==>bname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if def <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19113	19263	
==>use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19113	19263	
==>use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19113	19263	
==>use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[ <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4426	4550	
==>pairs => $pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
}
su <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3427	3532	
==>()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2nor <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3427	3532	
==>()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2nor <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3427	3532	
==>()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2nor <==
8	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	713	813	
==>tion<insert> :remove_subscription<remove> .= new; # FIXME we need one at the class level too

    met <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5697	5796	
==>se great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4827	4926	
==>se great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6499	6598	
==>-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5697	5796	
==>se great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4827	4926	
==>se great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6499	6598	
==>-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $ <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7371	7468	
==>-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7371	7468	
==>-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3046	3165	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6039	6158	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3321	3434	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9739	9852	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3321	3434	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9739	9852	
==>dy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $no <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	484	579	
==>t pure functions.  They only
# represent transformations between PIL node types; out-of-band dat <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	484	579	
==>t pure functions.  They only
# represent transformations between PIL node types; out-of-band dat <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3938	4116	
==>);
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_v <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3938	4116	
==>);
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_v <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4491	4601	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7427	7537	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4491	4601	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7427	7537	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4491	4601	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7427	7537	
==>th) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11617	11741	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => su <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2101	2222	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => su <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8873	8994	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2101	2222	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => su <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8873	8994	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => su <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1567	1675	
==>t.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnost <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1567	1675	
==>t.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnost <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1647	1755	
==>t.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnost <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5075	5182	
==>erl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{sl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5075	5182	
==>erl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{sl <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5075	5182	
==>erl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{sl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4584	4686	
==>q 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4584	4686	
==>q 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4584	4686	
==>q 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 i <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	23248	23346	
==>Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27800	27898	
==>Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15173	15294	
==>s ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    ) <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15173	15294	
==>s ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    ) <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15173	15294	
==>s ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    ) <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5439	5541	
==>rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} { <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5439	5541	
==>rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} { <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2637	2734	
==>»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2637	2734	
==>»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2637	2734	
==>»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»" <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3092	3209	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11015	11132	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6217	6334	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3092	3209	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11015	11132	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6217	6334	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, ' <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1999	2107	
==>d;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $ <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1999	2107	
==>d;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4293	4449	
==>> 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4293	4449	
==>> 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4293	4449	
==>> 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8690	8788	
==>n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	423	521	
==>n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8690	8788	
==>n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8690	8788	
==>n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob <==
8	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1081	1177	
==>n> }

rule conjunction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3484	3601	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6012	6129	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3484	3601	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6012	6129	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3484	3601	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6012	6129	
==>f ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_na <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2158	2257	
==>'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $m <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2158	2257	
==>'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $m <==
8	/Users/nnunley/pugs/util/catalog_tests.pl	14837	14982	
==>l;
          
          while (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg_n = $beg->pindex;
            my $end   = $beg->ri <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7853	7967	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10776	10890	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7853	7967	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10776	10890	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7853	7967	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10776	10890	
==>n be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($metho <==
8	/Users/nnunley/pugs/util/catalog_tests.pl	277	373	
==>ict;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
use File::Path;
use File::Basena <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7127	7246	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4686	4805	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7127	7246	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4686	4805	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7127	7246	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4686	4805	
==>ove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we hav <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17425	17517	
==>he document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITL <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17425	17517	
==>he document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITL <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	429	548	
==>def ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.e <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	429	548	
==>def ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.e <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	25565	25662	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	28251	28348	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	29262	29359	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30117	30214	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32803	32900	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33814	33911	
==>operator that returns a new Relation
which is the same as the invocant Relation but that some of i <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	9547	9657	
==>_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0 <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9547	9657	
==>_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5182	5290	
==>_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5182	5290	
==>_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5182	5290	
==>_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa( <==
8	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	25	124	
==>has Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role does Name <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7462	7559	
==>turn the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incom <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7462	7559	
==>turn the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incom <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38015	38152	
==>::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        e <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38015	38152	
==>::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        e <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38015	38152	
==>::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        e <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11225	11337	
==>, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+ <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11225	11337	
==>, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3536	3637	
==>(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3536	3637	
==>(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3536	3637	
==>(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13271	13382	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10555	10666	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13271	13382	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10555	10666	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13271	13382	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10555	10666	
==>le;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::op <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	72	166	
==>ment.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
me <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	72	166	
==>ment.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
me <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8391	8524	
==>hr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8391	8524	
==>hr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8028	8144	
==>ef
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12023	12133	
==>ef
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12023	12133	
==>ef
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	946	1048	
==>neric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PAp <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	946	1048	
==>neric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PAp <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	946	1048	
==>neric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PAp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4697	4801	
==>rl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $na <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4697	4801	
==>rl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $na <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4697	4801	
==>rl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $na <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24975	25074	
==>sed by any ordinal value.

Note that it is valid for a Relation::Example to have zero tuples.  It is <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	121	212	
==>nt to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	121	212	
==>nt to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	121	212	
==>nt to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) return <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7128	7218	
==>pe, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParams, <==
8	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	320	459	
==>p_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my <==
8	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	320	459	
==>p_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	639	755	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	727	843	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	639	755	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	727	843	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	639	755	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	727	843	
==>s_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2866	2971	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10789	10894	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2208	2313	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5991	6096	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2866	2971	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10789	10894	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2208	2313	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5991	6096	
==>ale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_ar <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4307	4514	
==>s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./d <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4307	4514	
==>s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5867	6004	
==>sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opti <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5867	6004	
==>sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opti <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5867	6004	
==>sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opti <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7665	7769	
==>=> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => P <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7665	7769	
==>=> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => P <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7665	7769	
==>=> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9	115	
==>n/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::T <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9	115	
==>n/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::T <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9	115	
==>n/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::T <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1868	1970	
==>method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .expor <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1868	1970	
==>method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .expor <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	483	580	
==>_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	483	580	
==>_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      un <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	483	580	
==>_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      un <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15839	15960	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20556	20677	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15839	15960	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20556	20677	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15839	15960	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20556	20677	
==>ry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimet <==
8	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1295	1392	
==><input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'tex <==
8	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1295	1392	
==><input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'tex <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2864	2964	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10787	10887	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2206	2306	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5989	6089	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2864	2964	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10787	10887	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2206	2306	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5989	6089	
==>ocale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _as <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10892	11014	
==>($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%optio <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10892	11014	
==>($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%optio <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2910	3022	
==>elf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2910	3022	
==>elf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2910	3022	
==>elf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencla <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	534	631	
==>s all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fil <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	534	631	
==>s all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fil <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1090	1187	
==>s all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fil <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	263	484	
==>r' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffe <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	263	484	
==>r' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffe <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6780	6877	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5910	6007	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2564	2661	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2564	2661	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6780	6877	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5910	6007	
==>ix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9756	9871	
==>---------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9756	9871	
==>---------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9756	9871	
==>---------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # t <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	289	387	
==>) and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' va <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	834	932	
==>) and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' va <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	289	387	
==>) and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	834	932	
==>) and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' va <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	834	932	
==>) and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' va <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	331	435	
==>n";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	331	435	
==>n";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	331	435	
==>n";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	289	390	
==>ans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.span <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	289	390	
==>ans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.span <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2370	2469	
==>PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = P <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2370	2469	
==>PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = P <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2370	2469	
==>PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = P <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	523	628	
==>ode $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	523	628	
==>ode $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	523	628	
==>ode $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fe <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	363	464	
==>e. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'ce <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	908	1009	
==>e. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'ce <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	363	464	
==>e. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'ce <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	908	1009	
==>e. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'ce <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	908	1009	
==>e. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'ce <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6364	6499	
==>> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cur <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6364	6499	
==>> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cur <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6364	6499	
==>> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cur <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7077	7188	
==>lems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A L <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13875	13986	
==>t_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method( <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7077	7188	
==>lems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A L <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13875	13986	
==>t_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13875	13986	
==>t_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17019	17198	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21734	21913	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17019	17198	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21734	21913	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17019	17198	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21734	21913	
==>n{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($ <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	6490	6603	
==>' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Re <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6490	6603	
==>' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Re <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	736	862	
==>lock = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	729	855	
==>lock = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9075	9194	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12048	12167	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9075	9194	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12048	12167	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9075	9194	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12048	12167	
==>Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMet <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7867	8011	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5426	5570	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7867	8011	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5426	5570	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7867	8011	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5426	5570	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1555	1699	
==>ove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21262	21369	
==>no strict 'refs';
    &$look($mn,$name);
}
sub p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_mangle($n,$ <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25392	25495	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	830	933	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24156	24259	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1955	2058	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25392	25495	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	830	933	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24156	24259	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1955	2058	
==>ware; you can redistribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	710	901	
==>> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() } <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	710	901	
==>> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() } <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	854	975	
==>group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUIL <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	854	975	
==>group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUIL <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7966	8070	
==>lse'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <HexIntegerLiteral>
}
rule Decima <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	186	282	
==>w', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	186	282	
==>w', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	186	282	
==>w', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_me <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3331	3469	
==>~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3331	3469	
==>~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15159	15269	
==>x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15159	15269	
==>x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15159	15269	
==>x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1791	1894	
==>}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1791	1894	
==>}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safel <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1791	1894	
==>}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safel <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4639	4768	
==>my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4639	4768	
==>my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS:: <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4639	4768	
==>my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS:: <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	7117	7237	
==>ted by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$k} {
                warning "Modifier :$ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1205	1303	
==>atch = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $so <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1205	1303	
==>atch = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $so <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7600	7695	
==>end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=fo <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7600	7695	
==>end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=fo <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25320	25462	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25978	26120	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28760	28902	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25599	25741	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26257	26399	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29039	29181	
==>:alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'te <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3498	3596	
==>$my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1968	2066	
==>$my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	162	307	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3216	3361	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	287	432	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1963	2108	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	162	307	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3216	3361	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	287	432	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1963	2108	
==>art_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4397	4495	
==>tion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerva <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4397	4495	
==>tion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerva <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4397	4495	
==>tion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerva <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16583	16678	
==>parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attri <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16583	16678	
==>parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attri <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4136	4230	
==>ods>. There is no instance
constructor, and when calling these methods you should take care not <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4136	4230	
==>ods>. There is no instance
constructor, and when calling these methods you should take care not <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4136	4230	
==>ods>. There is no instance
constructor, and when calling these methods you should take care not <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11001	11136	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12472	12607	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14478	14613	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15949	16084	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13786	13921	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15311	15446	
==>ng.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identi <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1142	1260	
==>s->{name}, @_ )
    	: join( ' ', @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makema <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16283	16377	
==>> sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_compl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10630	10773	
==>$method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10630	10773	
==>$method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- un <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10630	10773	
==>$method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- un <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5528	5664	
==>r;

        ### load in the alternatives collection
        my @alts = @{ $self->registered_alternatives };
        
        ### check if <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10977	11074	
==>e(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8381	8478	
==>e(...)>

Removes the specified items from the set. Returns the number of items removed.

It is not <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10977	11074	
==>e(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8381	8478	
==>e(...)>

Removes the specified items from the set. Returns the number of items removed.

It is not <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1778	1891	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3341	3454	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1778	1891	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3341	3454	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1778	1891	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3341	3454	
==>METH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'it <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5921	6020	
==>sers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic pa <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5921	6020	
==>sers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic pa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14188	14352	
==>if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_nam <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14188	14352	
==>if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_nam <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14188	14352	
==>if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_nam <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2983	3090	
==>->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpPa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2983	3090	
==>->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpPa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2983	3090	
==>->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpPa <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4068	4150	
==>ml>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorith <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4068	4150	
==>ml>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorith <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	50	143	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Ro <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3025	3147	
==>_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span. <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3025	3147	
==>_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9787	9896	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7336	7445	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9787	9896	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7336	7445	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9787	9896	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7336	7445	
==>> ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $coun <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3626	3770	
==>st submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the sa <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3638	3782	
==>st submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the sa <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3138	3251	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11061	11174	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6263	6376	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3138	3251	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11061	11174	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6263	6376	
==>?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1665	1790	
==>x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mo <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1665	1790	
==>x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mo <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1665	1790	
==>x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mo <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7319	7433	
==>{ $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warnin <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7319	7433	
==>{ $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warnin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1996	2094	
==>sif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1996	2094	
==>sif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1996	2094	
==>sif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a s <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	266	369	
==>elf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	385	488	
==>elf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10328	10429	
==>-------------------------------------    
    method resolve () { "<implemented>" }

    # ----------- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10351	10452	
==>--------------    
    method resolve () { "<implemented>" }

    # ---------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10328	10429	
==>-------------------------------------    
    method resolve () { "<implemented>" }

    # ----------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10351	10452	
==>--------------    
    method resolve () { "<implemented>" }

    # ---------------------------------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10328	10429	
==>-------------------------------------    
    method resolve () { "<implemented>" }

    # ----------- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10351	10452	
==>--------------    
    method resolve () { "<implemented>" }

    # ---------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4373	4491	
==>te all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # % <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4373	4491	
==>te all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # % <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9859	9972	
==>) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15700	15813	
==>) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9859	9972	
==>) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15694	15807	
==>) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4882	4988	
==>te all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in % <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4882	4988	
==>te all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in % <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4350	4446	
==>d()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") o <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15786	15882	
==>d()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") o <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4350	4446	
==>d()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") o <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15786	15882	
==>d()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") o <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18685	18780	
==>SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic f <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17728	17823	
==>SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic f <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18685	18780	
==>SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic f <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17728	17823	
==>SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic f <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1281	1404	
==>pe error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$s <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1281	1404	
==>pe error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16584	16685	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21301	21402	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16584	16685	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21301	21402	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16584	16685	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21301	21402	
==>OY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GL <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	16526	16670	
==>ody => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1 <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20003	20147	
==>ody => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1 <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19563	19707	
==>ody => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7662	7765	
==>des_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for { <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7662	7765	
==>des_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for { <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7662	7765	
==>des_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for { <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	11890	11982	
==>C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

= <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11890	11982	
==>C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18514	18666	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15752	15904	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18514	18666	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15752	15904	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18514	18666	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15752	15904	
==>tance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really jus <==
8	/Users/nnunley/pugs/inc/Module/Install.pm	760	850	
==>require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$ <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2595	2685	
==>require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19165	19265	
==>y $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        docu <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19165	19265	
==>y $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        docu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10502	10720	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8053	8271	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10502	10720	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8053	8271	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10502	10720	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8053	8271	
==>pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4606	4737	
==>de {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4594	4725	
==>de {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	585	833	
==>n version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface: <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	585	833	
==>n version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8864	9031	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11837	12004	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8864	9031	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11837	12004	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8864	9031	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11837	12004	
==>thod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        packa <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3566	3970	
==>d;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            } <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3566	3970	
==>d;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6333	6557	
==>d;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6333	6557	
==>d;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        } <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6333	6557	
==>d;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1725	1820	
==>IL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1725	1820	
==>IL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1725	1820	
==>IL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0 <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25432	25527	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	870	965	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24196	24291	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1995	2090	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25432	25527	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	870	965	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24196	24291	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1995	2090	
==>ify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

=cu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11440	11602	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8993	9155	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11440	11602	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8993	9155	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11440	11602	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8993	9155	
==>ined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @s <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	93	192	
==>ode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# uni <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	93	192	
==>ode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# uni <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5154	5284	
==>@tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $lengt <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5154	5284	
==>@tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $lengt <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	1472	1583	
==>bject> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<obj <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1472	1583	
==>bject> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<obj <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	251	353	
==>ase_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Ar <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	251	353	
==>ase_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Ar <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	729	823	
==>ut_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$out <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	729	823	
==>ut_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$out <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	739	863	
==>multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pa <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	739	863	
==>multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pa <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12681	12804	
==>push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12960	13083	
==>push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	665	779	
==>^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYL <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	665	779	
==>^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYL <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6813	6913	
==>ant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax { <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6813	6913	
==>ant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax { <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5205	5331	
==>elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5205	5331	
==>elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3355	3472	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11913	12030	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6480	6597	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3355	3472	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11913	12030	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6480	6597	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1248	1447	
==>{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                } <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1248	1447	
==>{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                } <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4867	4992	
==>@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obje <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15903	16028	
==>@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obje <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17391	17516	
==>@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obje <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22074	22199	
==>@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obje <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1659	1779	
==>ldren
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $curren <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1659	1779	
==>ldren
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $curren <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8085	8218	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5644	5777	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8085	8218	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5644	5777	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8085	8218	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5644	5777	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1773	1906	
==>, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop throug <==
8	/Users/nnunley/pugs/util/package-osx.pl	7198	7304	
==>3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/loca <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3443	3538	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6457	6552	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8525	8620	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	22821	22916	
==>ttribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3443	3538	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6457	6552	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8525	8620	
==>returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `c <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27373	27468	
==>ttribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1474	1670	
==>nts<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    wh <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1474	1670	
==>nts<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    wh <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3260	3407	
==>_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3260	3407	
==>_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3260	3407	
==>_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11393	11486	
==>ed. This provides more predictable 
behavior to class consturction because it isolates the Rol <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11393	11486	
==>ed. This provides more predictable 
behavior to class consturction because it isolates the Rol <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11393	11486	
==>ed. This provides more predictable 
behavior to class consturction because it isolates the Rol <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	835	971	
==>apture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	802	931	
==>apture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4437	4544	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7086	7193	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4663	4768	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11112	11217	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4663	4768	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11112	11217	
==>ost-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7805	7917	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10728	10840	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7805	7917	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10728	10840	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7805	7917	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10728	10840	
==>also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($meth <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2707	2805	
==>er::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encry <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2707	2805	
==>er::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encry <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3674	3781	
==>and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname ser <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1845	1952	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3408	3515	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3674	3781	
==>and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname ser <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1845	1952	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3408	3515	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1845	1952	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3408	3515	
==>ch are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3398	3574	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6334	6510	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3398	3574	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6334	6510	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3398	3574	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6334	6510	
==>_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does n <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3889	3989	
==>mal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3750	3849	
==>mal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros) <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13215	13325	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13215	13325	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13215	13325	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5455	5565	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3955	4065	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2100	2210	
==>= +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0 <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14131	14226	
==>ill be visited in the recommended "Good Practice" order.

Any return values of the callback rout <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14131	14226	
==>ill be visited in the recommended "Good Practice" order.

Any return values of the callback rout <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2302	2442	
==>hannels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # W <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2302	2442	
==>hannels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # W <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12424	12525	
==>s "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12424	12525	
==>s "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12424	12525	
==>s "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_a <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26698	26795	
==>ectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31250	31347	
==>ectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30279	30376	
==>ectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8670	8819	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11643	11792	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8670	8819	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11643	11792	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8670	8819	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11643	11792	
==>ng of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method-> <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	4206	4302	
==>h case the
object returned represents the last day for the specified month.

- `today()`
- `now() <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4206	4302	
==>h case the
object returned represents the last day for the specified month.

- `today()`
- `now() <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1578	1680	
==>on.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3607	3704	
==>s.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __ret <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3607	3704	
==>s.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __ret <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3607	3704	
==>s.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4913	5007	
==>on.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	600	694	
==>on.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5053	5147	
==>on.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	600	694	
==>on.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12715	12847	
==>re in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12715	12847	
==>re in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKM <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12715	12847	
==>re in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKM <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	7031	7142	
==>e' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a spa <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7031	7142	
==>e' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a spa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15467	15577	
==>@_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15467	15577	
==>@_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1 <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15467	15577	
==>@_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1 <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	259	390	
==>sage::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	257	388	
==>sage::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4527	4645	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2739	2857	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4527	4645	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2739	2857	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4527	4645	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2739	2857	
==>not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15770	15881	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13020	13131	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15770	15881	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13020	13131	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15770	15881	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13020	13131	
==>%params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    m <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2115	2224	
==>ile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

T <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2115	2224	
==>ile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

T <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	821	944	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	909	1032	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	821	944	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	909	1032	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	821	944	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	909	1032	
==>) {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all - <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10114	10212	
==>rg/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

= <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10114	10212	
==>rg/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6553	6674	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9002	9123	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6553	6674	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9002	9123	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6553	6674	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9002	9123	
==>art/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantia <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2093	2210	
==>"aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => ' <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2093	2210	
==>"aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17863	18031	
==>d for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17863	18031	
==>d for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17863	18031	
==>d for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13437	13541	
==>/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/g <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13437	13541	
==>/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/g <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16538	16638	
==>::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16538	16638	
==>::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $lab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16538	16638	
==>::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $lab <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1530	1667	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3093	3230	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1530	1667	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3093	3230	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1530	1667	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3093	3230	
==>les    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investi <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	4522	4626	
==>n", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bo <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4580	4684	
==>n", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17365	17474	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22073	22182	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17365	17474	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22073	22182	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17365	17474	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22073	22182	
==>TRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	239	335	
==>) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ( <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	239	335	
==>) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ( <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	32512	32605	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33169	33262	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	33574	33667	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	37367	37460	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37062	37155	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37719	37812	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38124	38217	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41916	42009	
==>n (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	325	439	
==>TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	325	439	
==>TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	325	439	
==>TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11817	11929	
==>fess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11817	11929	
==>fess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11817	11929	
==>fess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9616	9713	
==>rray $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _h <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9616	9713	
==>rray $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _h <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1915	2026	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2277	2388	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2586	2697	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1915	2026	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2277	2388	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2586	2697	
==>ce @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@oc <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12131	12228	
==>TY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12131	12228	
==>TY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8363	8490	
==>_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8556	8683	
==>_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9643	9748	
==>-------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9666	9771	
==>--------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9643	9748	
==>-------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # - <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9666	9771	
==>--------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9643	9748	
==>-------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # - <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9666	9771	
==>--------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------------ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2001	2178	
==>>get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $pa <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	883	1010	
==>e = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_bl <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	883	1010	
==>e = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_bl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4988	5086	
==>d eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_paramet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4988	5086	
==>d eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_paramet <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4988	5086	
==>d eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_paramet <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15737	15834	
==>.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All righ <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15737	15834	
==>.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All righ <==
8	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1856	1954	
==>t for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any <==
8	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1856	1954	
==>t for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4515	4604	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6464	6553	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4515	4604	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6464	6553	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4515	4604	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6464	6553	
==>->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant) <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8373	8511	
==>:w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1 <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8373	8511	
==>:w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18306	18436	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15544	15674	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18306	18436	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15544	15674	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18306	18436	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15544	15674	
==>abel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check f <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9855	9980	
==>r .= _pp_depends( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = eac <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	631	726	
==>asically three days old,
and only now is changing from an experimental "let's see if something
l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25589	25676	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27784	27871	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25589	25676	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27784	27871	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25589	25676	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27784	27871	
==>.$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scal <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6601	6735	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9571	9705	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6601	6735	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9571	9705	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6601	6735	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9571	9705	
==>ndef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	524	651	
==>on',
        name => 'prefix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { <==
8	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1334	1429	
==>^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a.r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9196	9333	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12169	12306	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9196	9333	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12169	12306	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9196	9333	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12169	12306	
==>od;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::P <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4202	4309	
==>,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2] <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4202	4309	
==>,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6389	6525	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8838	8974	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6389	6525	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8838	8974	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6389	6525	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8838	8974	
==>using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1964	2083	
==>= 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument a <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3556	3675	
==>= 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6944	7064	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9914	10034	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6944	7064	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9914	10034	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6944	7064	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9914	10034	
==>ss "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # arou <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21123	21214	
==>cle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21123	21214	
==>cle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1544	1673	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3107	3236	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1544	1673	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3107	3236	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1544	1673	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3107	3236	
==>:SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate f <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	8454	8554	
==>tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find th <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8454	8554	
==>tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find th <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4400	4517	
==>, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4400	4517	
==>, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	188	291	
==>2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } el <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	188	291	
==>2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } el <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	188	291	
==>2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } el <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	205	288	
==>----------------------------------------------------------------------------
## This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	173	256	
==>----------------------------------------------------------------------------
## This <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9222	9303	
==>----------------------------------------------------------------------------

This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9222	9303	
==>----------------------------------------------------------------------------

This <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9222	9303	
==>----------------------------------------------------------------------------

This <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	889	1009	
==>', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	889	1009	
==>', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9289	9394	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6836	6941	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9289	9394	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6836	6941	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9289	9394	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6836	6941	
==>make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_br <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6182	6297	
==>rl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6182	6297	
==>rl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6182	6297	
==>rl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3247	3361	
==>rl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3247	3361	
==>rl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3247	3361	
==>rl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packa <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	16289	16376	
==>rie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de> <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16347	16434	
==>rie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7882	8027	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5441	5586	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7882	8027	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5441	5586	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7882	8027	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5441	5586	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1570	1715	
==>t'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our c <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3868	3967	
==>egularExpression, $target, $pos, $length) = @_;
  $length = 1 if not defined $length;
  return (subs <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	4535	4631	
==>set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3662	3758	
==>set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4535	4631	
==>set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3662	3758	
==>set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8935	9028	
==>t@brentdax.com>.

This code is free software, and may be used, distributed and/or modified und <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3864	3957	
==>t@brentdax.com>.

This code is free software, and may be used, distributed and/or modified und <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8935	9028	
==>t@brentdax.com>.

This code is free software, and may be used, distributed and/or modified und <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3864	3957	
==>t@brentdax.com>.

This code is free software, and may be used, distributed and/or modified und <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24680	24789	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26869	26978	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24680	24789	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26869	26978	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24680	24789	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26869	26978	
==>= $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELE <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41001	41094	
==>MENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, a <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41001	41094	
==>MENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1394	1514	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2957	3077	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1394	1514	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2957	3077	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1394	1514	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2957	3077	
==>ristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2012	2107	
==>-> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Pe <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2012	2107	
==>-> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Pe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6728	6841	
==>+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6728	6841	
==>+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6728	6841	
==>+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_i <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	106	217	
==>use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	103	207	
==>use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	97	201	
==>use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	103	207	
==>use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	97	201	
==>use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $ <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5223	5369	
==>le index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5687	5833	
==>le index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4884	4987	
==>$write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4884	4987	
==>$write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4884	4987	
==>$write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4836	4929	
==>ce = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4836	4929	
==>ce = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4836	4929	
==>ce = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	535	694	
==>m $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        retu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	528	687	
==>m $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        retu <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3115	3221	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11038	11144	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6240	6346	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3115	3221	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11038	11144	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6240	6346	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3074	3191	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6067	6184	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3348	3459	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9766	9877	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3348	3459	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9766	9877	
==>hift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternati <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	15676	15768	
==>he span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed() <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15676	15768	
==>he span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed() <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5403	5521	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8373	8491	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5403	5521	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8373	8491	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5403	5521	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8373	8491	
==>erl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a co <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1095	1190	
==>1)>,  but it
has its own combinator because it stores captures differently.  Instead
of creating <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1095	1190	
==>1)>,  but it
has its own combinator because it stores captures differently.  Instead
of creating <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	604	721	
==>);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	604	721	
==>);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	604	721	
==>);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $ <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2573	2678	
==>th) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TOD <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3361	3466	
==>key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3361	3466	
==>key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2573	2678	
==>th) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TOD <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17436	17524	
==>$method (WALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->send('add_method <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	782	928	
==>= 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_co <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	782	928	
==>= 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_co <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	608	718	
==>p();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	608	718	
==>p();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	608	718	
==>p();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12158	12265	
==>am{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12158	12265	
==>am{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12158	12265	
==>am{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	280	378	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	604	702	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	280	378	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	604	702	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	280	378	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	604	702	
==>SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3005	3102	
==>dget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3005	3102	
==>dget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2351	2470	
==>Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6826	6944	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9796	9914	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6826	6944	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9796	9914	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6826	6944	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9796	9914	
==>) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2265	2377	
==>Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5615	5763	
==>ort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    } <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5615	5763	
==>ort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1452	1567	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3015	3130	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1452	1567	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3015	3130	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1452	1567	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3015	3130	
==>SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7886	8035	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7886	8035	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7886	8035	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4950	5097	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4950	5097	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4950	5097	
==>alue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loca <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1781	1921	
==>debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookie <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1781	1921	
==>debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookie <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7120	7215	
==>al rule operators



Internal rule operators share a common API, which permits the intercommunic <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39478	39572	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39748	39842	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39478	39572	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39748	39842	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39478	39572	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39748	39842	
==>->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::i <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6877	6970	
==>al rule operators

Internal rule operators share a common API, which permits the intercommunic <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7575	7729	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5134	5288	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7575	7729	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5134	5288	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7575	7729	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5134	5288	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump ou <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10188	10314	
==>ndef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clea <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10188	10314	
==>ndef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clea <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2847	2989	
==>ull(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ g <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3135	3269	
==>ull(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ g <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9553	9687	
==>ull(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ g <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3135	3269	
==>ull(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ g <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9553	9687	
==>ull(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ g <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16213	16313	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16213	16313	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tab <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16213	16313	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tab <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2344	2459	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4671	4786	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2344	2459	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4671	4786	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2344	2459	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4671	4786	
==>)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribu <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4550	4645	
==>r directly to "Rosetta" in your
code; instead refer to other above-named packages in this file.> <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4550	4645	
==>r directly to "Rosetta" in your
code; instead refer to other above-named packages in this file.> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7802	7934	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5361	5493	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7802	7934	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5361	5493	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7802	7934	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5361	5493	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1490	1622	
==>ot too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5907	6013	
==>hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs:: <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1734	1866	
==>e( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1734	1866	
==>e( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	177	282	
==>sts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infin <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	185	290	
==>sts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infin <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	177	282	
==>sts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infin <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	185	290	
==>sts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infin <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8746	8845	
==>ses a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entir <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8746	8845	
==>ses a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entir <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1519	1642	
==>::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remaind <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1972	2095	
==>::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remaind <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2407	2530	
==>::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remaind <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2844	2967	
==>::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remaind <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18667	18789	
==>nce";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        local($@, $!) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2735	2852	
==>le: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @componen <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2735	2852	
==>le: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @componen <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2735	2852	
==>le: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @componen <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5877	5987	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8847	8957	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5877	5987	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8847	8957	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5877	5987	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8847	8957	
==>od->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad metho <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	21	128	
==>v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $ <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	21	128	
==>v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $ <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	995	1096	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	995	1096	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	733	833	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	917	1017	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	791	891	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	733	833	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	917	1017	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	791	891	
==>_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3141	3248	
==>obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3141	3248	
==>obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3141	3248	
==>obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18252	18348	
==>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection t <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18252	18348	
==>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1211	1305	
==>ine at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1211	1305	
==>ine at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1211	1305	
==>ine at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1242	1354	
==>ree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	453	564	
==>ree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11020	11110	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8573	8663	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11020	11110	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8573	8663	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11020	11110	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8573	8663	
==>th_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_ite <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2965	3083	
==>> $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a s <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2965	3083	
==>> $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a s <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4036	4132	
==>ore information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4036	4132	
==>ore information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7015	7110	
==>ore information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9085	9180	
==>ore information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7015	7110	
==>ore information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9085	9180	
==>ore information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pro <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2254	2370	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11122	11238	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12081	12197	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2447	2563	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11401	11517	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12360	12476	
==>re( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	13477	13572	
==>x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.sy <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13477	13572	
==>x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.sy <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6925	7069	
==>$match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $matc <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6697	6832	
==>$match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $matc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9609	9719	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12582	12692	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9609	9719	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12582	12692	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9609	9719	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12582	12692	
==>spatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16446	16571	
==>invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # . <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16446	16571	
==>invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # . <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3029	3125	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6043	6139	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8111	8207	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3029	3125	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6043	6139	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8111	8207	
==>`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array` <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12428	12545	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16939	17056	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12428	12545	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16939	17056	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12428	12545	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16939	17056	
==>spatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5413	5528	
==>parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5413	5528	
==>parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	172	289	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	170	287	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	172	289	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	170	287	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	172	289	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	170	287	
==>_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8917	9030	
==>ction = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8917	9030	
==>ction = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19988	20104	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17127	17243	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19988	20104	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17127	17243	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19988	20104	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17127	17243	
==>utes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are a <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	576	680	
==>d BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
} <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	576	680	
==>d BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	425	533	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	418	526	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	425	533	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	418	526	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	425	533	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	418	526	
==>y $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $sr <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20909	21004	
==>l, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to P <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20909	21004	
==>l, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to P <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2970	3377	
==>(None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Extern <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2970	3377	
==>(None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Extern <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4169	4336	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4169	4336	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4169	4336	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6695	6848	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6695	6848	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6695	6848	
==>d_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        i <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1000	1096	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1512	1608	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1000	1096	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1512	1608	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1000	1096	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1512	1608	
==>S.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thing <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18553	18646	
==>What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-cod <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18553	18646	
==>What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-cod <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5228	5375	
==>dex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a mat <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5692	5839	
==>dex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a mat <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4627	4724	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7563	7660	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4627	4724	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7563	7660	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4627	4724	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7563	7660	
==>d || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatcha <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5228	5354	
==>_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attribute <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5228	5354	
==>_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attribute <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	390	508	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	388	506	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	390	508	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	388	506	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	390	508	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	388	506	
==>bed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referenc <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1996	2109	
==>',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1996	2109	
==>',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9511	9620	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7058	7167	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9511	9620	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7058	7167	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9511	9620	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7058	7167	
==>cher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12566	12693	
==>{
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2934	3057	
==>{
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2934	3057	
==>{
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12008	12126	
==>{
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2414	2528	
==>{
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2414	2528	
==>{
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::With <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9641	9736	
==>This class handles an infinite recurrence set, defined with closures. 

A recurrence set is defi <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9641	9736	
==>This class handles an infinite recurrence set, defined with closures. 

A recurrence set is defi <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1961	2094	
==>lose;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1939	2072	
==>lose;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7064	7183	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10034	10153	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7064	7183	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10034	10153	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7064	7183	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10034	10153	
==>und the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are be <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6939	7067	
==>= $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pug <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11943	12071	
==>= $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pug <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6939	7067	
==>= $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pug <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11937	12065	
==>= $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pug <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11511	11613	
==>my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! de <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22488	22590	
==>my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! de <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11511	11613	
==>my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! de <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11511	11613	
==>my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! de <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2943	3069	
==>es($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2943	3069	
==>es($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2943	3069	
==>es($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5726	5843	
==>es($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5726	5843	
==>es($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5726	5843	
==>es($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribut <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12128	12226	
==>parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recu <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12128	12226	
==>parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recu <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	243	377	
==>h bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we' <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	243	377	
==>h bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10718	10836	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15259	15377	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10718	10836	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15259	15377	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10718	10836	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15259	15377	
==>ing for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15330	15452	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20063	20185	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15330	15452	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20063	20185	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15330	15452	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20063	20185	
==>on
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !define <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	13	109	
==>gs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	13	105	
==>gs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pu <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2601	2750	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5606	5755	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1291	1440	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2967	3116	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2601	2750	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5606	5755	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1291	1440	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2967	3116	
==>andling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line e <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1475	1601	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3038	3164	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1475	1601	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3038	3164	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1475	1601	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3038	3164	
==>E and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAG <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3564	3659	
==>f: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3564	3659	
==>f: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	145	271	
==>essible within the class
    $.y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => ' <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	23723	23834	
==>> ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pre <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	77	171	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	77	171	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	77	171	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	76	169	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	76	169	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	76	169	
==>il 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7102	7214	
==>},
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

... <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7102	7214	
==>},
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

... <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14927	15035	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12181	12289	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14927	15035	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12181	12289	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14927	15035	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12181	12289	
==>an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	533	722	
==>list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=ite <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	533	722	
==>list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=ite <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7261	7380	
==>1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #ret <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3865	3984	
==>1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4714	4833	
==>1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	337	440	
==>_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	337	440	
==>_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	337	440	
==>_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5400	5590	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $ke <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5400	5590	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $ke <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5400	5590	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $ke <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4156	4271	
==>ame =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4156	4271	
==>ame =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^ <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4156	4271	
==>ame =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^ <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6095	6202	
==>elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(" <==
8	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2998	3100	
==>e kernel used, you may want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/pugs <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12293	12416	
==>turn $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S->obje <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5315	5436	
==>xport'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9069	9187	
==>turn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pri <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12925	13037	
==>turn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pri <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12925	13037	
==>turn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pri <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	22015	22109	
==>ne tuple respectively have a special meaning in relational algebra which
is analagous to what t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26567	26661	
==>ne tuple respectively have a special meaning in relational algebra which
is analagous to what t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25263	25357	
==>ne tuple respectively have a special meaning in relational algebra which
is analagous to what t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3769	3885	
==>erl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a " <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3634	3746	
==>erl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a " <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2720	2823	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5368	5471	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2720	2823	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5368	5471	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2720	2823	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5368	5471	
==>ializes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9650	9760	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12623	12733	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9650	9760	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12623	12733	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9650	9760	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12623	12733	
==>bilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3725	3818	
==>:Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3725	3818	
==>:Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6423	6537	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7176	7290	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8040	8154	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8821	8935	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9900	10014	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10653	10767	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11517	11631	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12298	12412	
==>ion $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9858	10041	
==>} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = () <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9858	10041	
==>} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = () <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19766	19888	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16905	17027	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19766	19888	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16905	17027	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19766	19888	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16905	17027	
==>ethod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:). <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20165	20300	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17304	17439	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20165	20300	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17304	17439	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20165	20300	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17304	17439	
==>bute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6391	6499	
==>Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header( <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6391	6499	
==>Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8187	8313	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5746	5872	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8187	8313	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5746	5872	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8187	8313	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5746	5872	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1875	2001	
==>$cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25278	25390	
==>0.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunctio <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6937	7046	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9907	10016	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6937	7046	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9907	10016	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6937	7046	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9907	10016	
==>| confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrap <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8291	8391	
==>event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody cha <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8291	8391	
==>event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody cha <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	388	501	
==>e';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immedia <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	594	707	
==>e';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immedia <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6684	6779	
==>s($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6684	6779	
==>s($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6684	6779	
==>s($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	274	362	
==>ner::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type:: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	274	362	
==>ner::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type:: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	274	362	
==>ner::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16620	16723	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13825	13928	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16620	16723	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13825	13928	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16620	16723	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13825	13928	
==>>dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attrib <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6665	6766	
==>n`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6665	6766	
==>n`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4755	4883	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5059	5187	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5339	5467	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4948	5076	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5252	5380	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5532	5660	
==>ubrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \& <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13737	13860	
==>efix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return ca <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13731	13854	
==>efix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11429	11560	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2941	3072	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11429	11560	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2941	3072	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11429	11560	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2941	3072	
==>nction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8540	8632	
==>nsitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for a <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8540	8632	
==>nsitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13398	13543	
==>@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13398	13543	
==>@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13398	13543	
==>@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2283	2428	
==>@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	11103	11197	
==>ch is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all give <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8507	8601	
==>ch is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all give <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11103	11197	
==>ch is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all give <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8507	8601	
==>ch is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all give <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4387	4518	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6899	7030	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4387	4518	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6899	7030	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4387	4518	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6899	7030	
==>y $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a pr <==
8	/Users/nnunley/pugs/blib6/lib/lib.pm	1005	1102	
==>er modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of <==
8	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1005	1102	
==>er modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	229	334	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	227	332	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	229	334	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	227	332	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	229	334	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	227	332	
==>ctions build opaque instance
    # variables and access their internal data.
    # This is basically the i <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10043	10147	
==>xclusion (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die " <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9206	9299	
==>previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#----------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	4961	5074	
==>elf.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected t <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4961	5074	
==>elf.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected t <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3897	3991	
==>ule which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3897	3991	
==>ule which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6877	6970	
==>ule which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8947	9040	
==>ule which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6877	6970	
==>ule which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8947	9040	
==>ule which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a nu <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2886	3017	
==>ts<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('v <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3140	3271	
==>ts<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('v <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2886	3017	
==>ts<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('v <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3140	3271	
==>ts<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('v <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9671	9779	
==>e($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fil <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9671	9779	
==>e($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fil <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9671	9779	
==>e($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fil <==
8	/Users/nnunley/pugs/util/grokprims.pl	2306	2401	
==>><table border='1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg< <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11448	11633	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9001	9186	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11448	11633	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9001	9186	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11448	11633	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9001	9186	
==>rrent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11168	11264	
==>ainer
in which Node objects live.  The Document class is pure and deterministic,
such that all of <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11168	11264	
==>ainer
in which Node objects live.  The Document class is pure and deterministic,
such that all of <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12232	12486	
==>all_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Ros <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12232	12486	
==>all_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Ros <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15480	15575	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12736	12831	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15480	15575	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12736	12831	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15480	15575	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12736	12831	
==>f (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attribu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9498	9607	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7045	7154	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9498	9607	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7045	7154	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9498	9607	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7045	7154	
==>endant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascenda <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1653	1750	
==>ge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_cal <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1653	1750	
==>ge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_cal <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	373	482	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	371	480	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	373	482	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	371	480	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	373	482	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	371	480	
==>ndidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = <==
8	/Users/nnunley/pugs/blib6/lib/fp.pm	545	644	
==>i *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] <==
8	/Users/nnunley/pugs/ext/fp/lib/fp.pm	545	644	
==>i *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6623	6783	
==>return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6623	6783	
==>return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3102	3225	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5903	6026	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3102	3225	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5903	6026	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3102	3225	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5903	6026	
==>pes of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stub <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4007	4133	
==>d);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_s <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4007	4133	
==>d);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16552	16654	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21269	21371	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16552	16654	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21269	21371	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16552	16654	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21269	21371	
==>all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore an <==
8	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1834	1915	
==>EADME.

-------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1674	1755	
==>EADME.

-------------------------------------------------------------------------- <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4309	4427	
==>ently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAM <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4309	4427	
==>ently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAM <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4820	4926	
==>ently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAM <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4820	4926	
==>ently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAM <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8845	8940	
==>by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3774	3869	
==>by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8845	8940	
==>by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3774	3869	
==>by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2732	2847	
==>nd save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2732	2847	
==>nd save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2732	2847	
==>nd save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2814	2911	
==>ses the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a li <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2814	2911	
==>ses the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a li <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5323	5418	
==>= undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5323	5418	
==>= undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5323	5418	
==>= undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7304	7472	
==>();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7304	7472	
==>();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7304	7472	
==>();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self <==
8	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	578	699	
==>$src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	613	734	
==>$src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	578	699	
==>$src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $ <==
8	/Users/nnunley/pugs/util/build_pugs.pl	9795	9916	
==>$src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $ <==
8	/Users/nnunley/pugs/util/src_to_blib.pl	1051	1172	
==>$src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3009	3136	
==>ose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3009	3136	
==>ose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3009	3136	
==>ose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $ <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	712	810	
==>$string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9 <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	712	810	
==>$string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9 <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	15606	15700	
==>dle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRO <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15664	15758	
==>dle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRO <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28277	28370	
==>_" prefix.

=item $parser->add_handler($seq, $code)

This method creates a method of the parse <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	201	300	
==>f p6 and js objects.
   (Even though this impairs 1?)
Please note efficiency isnt currently on the g <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21804	21902	
==>not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=ite <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20685	20783	
==>not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=ite <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21804	21902	
==>not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=ite <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20685	20783	
==>not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=ite <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1607	1702	
==>ngs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1607	1702	
==>ngs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thing <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1607	1702	
==>ngs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thing <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17433	17646	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23399	23612	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17712	17925	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23678	23891	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12415	12522	
==>force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unicode <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	343	446	
==>tive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	343	446	
==>tive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	343	446	
==>tive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	833	958	
==>ime::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'void';\n" .   # t/07-try.t, t/07-ref.t
        $perl5 . "\n <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	2518	2626	
==>'shope we never need to print more than these ;-)
	
	my %map;
	my @forall;

	# allocate letters for type vari <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6928	7023	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6058	6153	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2712	2807	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2712	2807	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6928	7023	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6058	6153	
==>s($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($membe <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4123	4248	
==>ms
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4123	4248	
==>ms
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	782	873	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1302	1393	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	782	873	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1302	1393	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	782	873	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1302	1393	
==>undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && ar <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3914	4008	
==>ently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3914	4008	
==>ently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6894	6987	
==>ently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8964	9057	
==>ently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6894	6987	
==>ently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8964	9057	
==>ently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. P <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8421	8514	
==>) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Pe <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2246	2339	
==>) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Pe <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11017	11154	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12488	12625	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14494	14631	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15965	16102	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13802	13939	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15327	15464	
==>!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; resu <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3540	3646	
==>EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
us <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3757	3863	
==>EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
us <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6670	6766	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5800	5896	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2454	2550	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2454	2550	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6670	6766	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5800	5896	
==>cludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	28	120	
==>Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compil <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	28	120	
==>Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compil <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5507	5624	
==>y $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	10477	10594	
==>y $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5507	5624	
==>y $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10477	10594	
==>y $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	181	296	
==>fier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) return <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	181	296	
==>fier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) return <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	181	296	
==>fier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) return <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	181	296	
==>fier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) return <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3610	4000	
==>ned $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems = <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3610	4000	
==>ned $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6357	6575	
==>ned $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6357	6575	
==>ned $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6357	6575	
==>ned $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5962	6141	
==>$step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5962	6141	
==>$step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5962	6141	
==>$step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25426	25525	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	864	963	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24190	24289	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1989	2088	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25426	25525	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	864	963	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24190	24289	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1989	2088	
==>or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for details.

= <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11369	11467	
==>ase of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@othe <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14846	14944	
==>ase of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@othe <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22134	22231	
==>e, and then invoking methods on those objects.  All of
their attributes are private, so you must u <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9407	9504	
==>e, and then invoking methods on those objects.  All of
their attributes are private, so you must u <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22134	22231	
==>e, and then invoking methods on those objects.  All of
their attributes are private, so you must u <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9407	9504	
==>e, and then invoking methods on those objects.  All of
their attributes are private, so you must u <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24502	24598	
==>e, and then invoking methods on those objects.
All of their attributes are private, so you must u <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24502	24598	
==>e, and then invoking methods on those objects.
All of their attributes are private, so you must u <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19102	19206	
==>opaque $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: set_attrs ((symbol <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1385	1481	
==>](b)');
my $rpcr2 = Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15029	15122	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12283	12376	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15029	15122	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12283	12376	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15029	15122	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12283	12376	
==>ute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4660	4763	
==>content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4660	4763	
==>content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9211	9312	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6758	6859	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9211	9312	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6758	6859	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9211	9312	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6758	6859	
==>y $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5956	6085	
==>::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5956	6085	
==>::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenc <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5956	6085	
==>::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenc <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	545	643	
==>don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1090	1188	
==>don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constr <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	545	643	
==>don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constr <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1090	1188	
==>don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constr <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1090	1188	
==>don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15729	15873	
==>:Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15729	15873	
==>:Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15729	15873	
==>:Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20450	20590	
==>:Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20450	20590	
==>:Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20450	20590	
==>:Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shoul <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	612	741	
==>r {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, un <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	612	741	
==>r {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, un <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1627	1734	
==>$k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1627	1734	
==>$k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cac <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1627	1734	
==>$k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cac <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	288	391	
==>*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	288	391	
==>*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	288	391	
==>*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	2804	2905	
==>n

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our ch <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2804	2905	
==>n

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our ch <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7993	8129	
==>i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (othe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7993	8129	
==>i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (othe <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7993	8129	
==>i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (othe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1816	1923	
==>decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1816	1923	
==>decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1816	1923	
==>decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	896	992	
==>ning on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=ove <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	896	992	
==>ning on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=ove <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7698	7879	
==>$ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        y <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8500	8681	
==>$ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        y <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7698	7879	
==>$ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        y <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8500	8681	
==>$ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        y <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10357	10497	
==>);\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6698	6838	
==>);\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7547	7687	
==>);\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12516	12636	
==>max eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $sel <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1531	1628	
==>terface is good enough for many purposes.  
Although the interface is said to be procedural, it is <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1531	1628	
==>terface is good enough for many purposes.  
Although the interface is said to be procedural, it is <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	44	138	
==>use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	44	138	
==>use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	44	138	
==>use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	44	136	
==>use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	44	136	
==>use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	44	136	
==>use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13319	13430	
==>y @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Containe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13319	13430	
==>y @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Containe <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13319	13430	
==>y @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Containe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3713	3824	
==>$code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5615	5726	
==>$code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing <==
8	/Users/nnunley/pugs/util/build_pugs.pl	8369	8479	
==>ribe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Cabal v <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	20	112	
==>ar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	20	112	
==>ar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14861	14969	
==>b, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $I1 = $I0 - pos
    cname = substr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6036	6142	
==>$_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6036	6142	
==>$_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or di <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6036	6142	
==>$_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or di <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1954	2054	
==>x(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F) <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2316	2416	
==>x(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F) <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1954	2054	
==>x(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F) <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2316	2416	
==>x(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19167	19274	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16405	16512	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19167	19274	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16405	16512	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19167	19274	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16405	16512	
==>nt though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')-> <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19232	19330	
==>ed, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (co <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19232	19330	
==>ed, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (co <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22679	22782	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22909	23012	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22679	22782	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22909	23012	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22679	22782	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22909	23012	
==>xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_ <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6550	6646	
==>s -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 i <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6550	6646	
==>s -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 i <==
8	/Users/nnunley/pugs/util/catalog_tests.pl	8603	8719	
==>$a->{file} cmp $b->{file}} @files ]); 
    print $fh $template->output();
    close $fh;
    for (@dirs) {
        bu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7423	7531	
==>ing variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11758	11866	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2239	2346	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9011	9118	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7173	7280	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2239	2346	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9011	9118	
==>ing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10443	10610	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7994	8161	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10443	10610	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7994	8161	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10443	10610	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7994	8161	
==>terator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and sta <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	7542	7645	
==>f (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7542	7645	
==>f (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21458	21604	
==>), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(li <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44365	44511	
==>), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(li <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9524	9657	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12497	12630	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9524	9657	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12497	12630	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9524	9657	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12497	12630	
==>$var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	809	935	
==>(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<co <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	809	935	
==>(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<co <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3400	3514	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11958	12072	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6525	6639	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3400	3514	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11958	12072	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6525	6639	
==>ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'MET <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	2075	2171	
==>:proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (S <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2133	2229	
==>:proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (S <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15545	15649	
==>ted. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and ti <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15545	15649	
==>ted. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and ti <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12545	12641	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10096	10192	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12545	12641	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10096	10192	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12545	12641	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10096	10192	
==>opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5648	5785	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3768	3905	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5648	5785	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3768	3905	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5648	5785	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3768	3905	
==>lass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	897	1009	
==>TH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	897	1009	
==>TH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13366	13506	
==>s now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13366	13506	
==>s now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13366	13506	
==>s now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2251	2391	
==>s now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4624	4747	
==>name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/< <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4636	4759	
==>name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/< <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25991	26085	
==>e, and can be interpolated into the
human-readable version.  Each variable name is a machine-re <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25991	26085	
==>e, and can be interpolated into the
human-readable version.  Each variable name is a machine-re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4887	5032	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7823	7968	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4887	5032	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7823	7968	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4887	5032	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7823	7968	
==>t
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get al <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16347	16475	
==>ile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code b <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16347	16475	
==>ile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	240	390	
==>{
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        met <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	240	390	
==>{
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        met <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	240	390	
==>{
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6757	6856	
==>ess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6757	6856	
==>ess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6757	6856	
==>ess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($s <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21770	21867	
==>e in
one of their own resource files.  At some appropriate place, usually in the
main program, Loc <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21770	21867	
==>e in
one of their own resource files.  At some appropriate place, usually in the
main program, Loc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18101	18276	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15339	15514	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18101	18276	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15339	15514	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18101	18276	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15339	15514	
==>lse fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6374	6479	
==>essage_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations( <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6374	6479	
==>essage_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations( <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2015	2158	
==>experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1789	1926	
==>experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retur <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8374	8511	
==>experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1789	1926	
==>experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retur <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8374	8511	
==>experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	335	428	
==>mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	335	428	
==>mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	335	428	
==>mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20462	20589	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17601	17728	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20462	20589	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17601	17728	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20462	20589	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17601	17728	
==>e point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $va <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5552	5659	
==>rrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::I <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5552	5659	
==>rrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::I <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6298	6414	
==>urn join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#-- <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6310	6426	
==>urn join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#-- <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	28168	28265	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	29179	29276	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32720	32817	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33731	33828	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31830	31927	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32877	32974	
==>.  This method has not yet been implemented.>

This method is a generic relational operator that r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	973	1100	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1061	1188	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	973	1100	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1061	1188	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	973	1100	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1061	1188	
==>js
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "j <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	616	718	
==>_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	616	718	
==>_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ( <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	494	612	
==>doc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =c <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	494	612	
==>doc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9442	9555	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12415	12528	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9442	9555	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12415	12528	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9442	9555	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12415	12528	
==>bmethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
} <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	625	719	
==>tty_print

Pretty prints the dependency declaration from the META.info.
It will turn an entry l <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3547	3667	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6483	6603	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3547	3667	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6483	6603	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3547	3667	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6483	6603	
==>es
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for b <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1641	1737	
==>Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: S <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1641	1737	
==>Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: S <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3661	3753	
==>on is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3661	3753	
==>on is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6681	6772	
==>on is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8750	8841	
==>on is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6681	6772	
==>on is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8750	8841	
==>on is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com> <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39130	39219	
==>ges are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39130	39219	
==>ges are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5513	5721	
==>ck new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label" <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7275	7483	
==>ck new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label" <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6902	7004	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6032	6134	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2686	2788	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2686	2788	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6902	7004	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6032	6134	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $ <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4054	4150	
==>= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4054	4150	
==>= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7033	7128	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9103	9198	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/blib6/lib/lib.pm	1625	1720	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7033	7128	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9103	9198	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1625	1720	
==>= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free softw <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	566	684	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	532	650	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	582	700	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	538	656	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	593	711	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	558	676	
==>>SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_r <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	145	258	
==>ub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tole <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	145	258	
==>ub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tole <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12874	12999	
==>AN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This m <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12874	12999	
==>AN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	57	163	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	418	524	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	57	163	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	418	524	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	57	163	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	418	524	
==>e overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matc <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3013	3115	
==>c = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ? <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3013	3115	
==>c = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ? <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3013	3115	
==>c = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ? <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2757	2853	
==>eturn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2757	2853	
==>eturn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2757	2853	
==>eturn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10485	10574	
==>her($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%op <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10485	10574	
==>her($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%op <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	912	1058	
==>CEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$ke <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	912	1058	
==>CEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$ke <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3604	3711	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6540	6647	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3604	3711	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6540	6647	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3604	3711	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6540	6647	
==>es, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_ <==
8	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	636	758	
==>t;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	537	659	
==>t;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14833	14953	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19532	19652	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14833	14953	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19532	19652	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14833	14953	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19532	19652	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @aut <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2052	2187	
==>{
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2052	2187	
==>{
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9779	9888	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7328	7437	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9779	9888	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7328	7437	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9779	9888	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7328	7437	
==>rator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { retu <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1776	1909	
==>ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	716	849	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	804	937	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1776	1909	
==>ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	716	849	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	804	937	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	716	849	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	804	937	
==>ore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($ <==
8	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	739	838	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code ) <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	797	896	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code ) <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	739	838	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code ) <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	797	896	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code ) <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1001	1099	
==>( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1001	1099	
==>( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code <==
8	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	923	1020	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	923	1020	
==>( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4431	4538	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7367	7474	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4431	4538	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7367	7474	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4431	4538	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7367	7474	
==>d_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4602	4701	
==>lass, $module, $line_number, $post_process) = @_;

    # Read original module source code instead of <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4602	4701	
==>lass, $module, $line_number, $post_process) = @_;

    # Read original module source code instead of <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8662	8812	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11635	11785	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8662	8812	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11635	11785	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8662	8812	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11635	11785	
==>he forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7387	7520	
==>$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7375	7508	
==>$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8848	8993	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6401	6546	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8848	8993	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6401	6546	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8848	8993	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6401	6546	
==>asses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO' <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	16	117	
==>use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
us <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	16	117	
==>use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
us <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5071	5216	
==>il, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in t <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5535	5680	
==>il, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11433	11549	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16163	16279	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11433	11549	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16163	16279	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11433	11549	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16163	16279	
==>o I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $cl <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3860	3980	
==>|| $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3860	3980	
==>|| $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2184	2286	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11052	11154	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12011	12113	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2377	2479	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11331	11433	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12290	12392	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	961	1093	
==>f ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	961	1093	
==>f ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	961	1093	
==>f ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_ <==
8	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3754	3856	
==>be_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        n <==
8	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3754	3856	
==>be_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1445	1544	
==>Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1445	1544	
==>Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1445	1544	
==>Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2518	2695	
==>t ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.re <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2518	2695	
==>t ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6540	6668	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9510	9638	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6540	6668	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9510	9638	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6540	6668	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9510	9638	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	158	263	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	153	258	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	158	263	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	153	258	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	158	263	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	153	258	
==>self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS} <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1227	1322	
==>_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1227	1322	
==>_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10329	10442	
==>ther );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13806	13919	
==>ther );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13087	13200	
==>ther );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	343	444	
==>() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, e <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	888	989	
==>() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, e <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	343	444	
==>() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, e <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	888	989	
==>() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, e <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	888	989	
==>() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, e <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	89	210	
==>:Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'N <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	94	215	
==>:Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'N <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	60	165	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	421	526	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	60	165	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	421	526	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	60	165	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	421	526	
==>verload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matche <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8555	8751	
==>alue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $re <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8555	8751	
==>alue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5212	5335	
==>tTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5212	5335	
==>tTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5212	5335	
==>tTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5172	5273	
==>$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5172	5273	
==>$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5172	5273	
==>$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7603	7738	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10526	10661	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7603	7738	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10526	10661	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7603	7738	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10526	10661	
==>ethod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next M <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8505	8616	
==>$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0 <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8505	8616	
==>$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	267	372	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	265	370	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	267	372	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	265	370	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	267	372	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	265	370	
==>iables and access their internal data.
    # This is basically the implementation of
    # the p6opaque ca <==
8	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1101	1196	
==>ecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insec <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1101	1196	
==>ecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insec <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25972	26145	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28173	28346	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25972	26145	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28173	28346	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25972	26145	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28173	28346	
==>f' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( s <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16134	16239	
==>eck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 6 <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16134	16239	
==>eck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 6 <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12718	12874	
==>_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   rul <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12997	13153	
==>_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   rul <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9550	9666	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7097	7213	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9550	9666	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7097	7213	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9550	9666	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7097	7213	
==>':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsup <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13607	13724	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10891	11008	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13607	13724	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10891	11008	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13607	13724	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10891	11008	
==>n ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $par <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2180	2287	
==>ag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag a <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2180	2287	
==>ag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag a <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1998	2136	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1998	2136	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fin <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1998	2136	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fin <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	499	620	
==>->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	499	620	
==>->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $sr <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	499	620	
==>->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $sr <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39756	39853	
==>are; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Lic <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39756	39853	
==>are; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Lic <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4202	4299	
==>t.

=head2 @{}

When used as an array reference, the match object returns positional
captures as m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4202	4299	
==>t.

=head2 @{}

When used as an array reference, the match object returns positional
captures as m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	49	137	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	221	309	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	49	137	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	221	309	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	49	137	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	221	309	
==>e('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6257	6365	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9227	9335	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6257	6365	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9227	9335	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6257	6365	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9227	9335	
==>thod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ( <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25251	25339	
==>ed by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25251	25339	
==>ed by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1220	1426	
==>not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Int <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1220	1426	
==>not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Int <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7013	7128	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9983	10098	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7013	7128	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9983	10098	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7013	7128	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9983	10098	
==>the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLA <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6588	6719	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9558	9689	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6588	6719	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9558	9689	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6588	6719	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9558	9689	
==>$method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private metho <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1625	1753	
==>$.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1625	1753	
==>$.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the <==
8	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2856	2952	
==>of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mo <==
8	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3013	3109	
==>of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mo <==
8	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2856	2952	
==>of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mo <==
8	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3013	3109	
==>of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mo <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	4676	4771	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) retu <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3803	3898	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) retu <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4676	4771	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) retu <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3803	3898	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) retu <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6425	6543	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7178	7296	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8042	8160	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8823	8941	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9902	10020	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10655	10773	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11519	11637	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12300	12418	
==>n $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1805	1942	
==>ds () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1805	1942	
==>ds () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13144	13273	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13144	13273	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13144	13273	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5384	5513	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3884	4013	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2029	2158	
==>rray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defin <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6490	6634	
==>ull,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6490	6634	
==>ull,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defin <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6490	6634	
==>ull,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defin <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3470	3564	
==>osetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document d <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3470	3564	
==>osetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8416	8507	
==>ad1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8416	8507	
==>ad1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8416	8507	
==>ad1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3523	3633	
==>($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3523	3633	
==>($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3523	3633	
==>($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7965	8071	
==>set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that has no capture (but th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7697	7800	
==>set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that has no capture (but th <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1119	1218	
==>L2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want ( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1119	1218	
==>L2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want ( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1119	1218	
==>L2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want ( <==
8	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1329	1462	
==>ath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($scr <==
8	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1329	1462	
==>ath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($scr <==
8	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2337	2435	
==>ete $prereq->{$_->[0]} for @{$self->bundles};
    }

    if (my $perl_version = $self->perl_version <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1265	1356	
==>ead1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSIO <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9266	9357	
==>--------------------------------

This is a rough sketch of that role(Role) might look like. <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1265	1356	
==>ead1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSIO <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9266	9357	
==>--------------------------------

This is a rough sketch of that role(Role) might look like. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9266	9357	
==>--------------------------------

This is a rough sketch of that role(Role) might look like. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1468	1594	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3031	3157	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1468	1594	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3031	3157	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1468	1594	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3031	3157	
==>?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $: <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1235	1337	
==>art => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $s <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1235	1337	
==>art => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $s <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5841	6052	
==>) if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5841	6052	
==>) if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14919	15027	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12173	12281	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14919	15027	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12173	12281	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14919	15027	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12173	12281	
==>provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attri <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6127	6249	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9097	9219	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6127	6249	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9097	9219	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6127	6249	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9097	9219	
==>:make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a c <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3432	3541	
==>sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method he <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3432	3541	
==>sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method he <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1241	1390	
==>($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            f <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1241	1390	
==>($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            f <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3750	3871	
==>TCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packag <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3750	3871	
==>TCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packag <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3750	3871	
==>TCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packag <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14109	14207	
==>s "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14109	14207	
==>s "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14109	14207	
==>s "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS- <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6012	6275	
==>ode = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some m <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6012	6275	
==>ode = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some m <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1563	1661	
==>.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1563	1661	
==>.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5660	5757	
==>.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4790	4887	
==>.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5660	5757	
==>.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4790	4887	
==>.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19822	19923	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16961	17062	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19822	19923	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16961	17062	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19822	19923	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16961	17062	
==>p is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value-> <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13582	13724	
==>r_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person. <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13582	13724	
==>r_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8194	8307	
==>sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8194	8307	
==>sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8194	8307	
==>sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	47	153	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	47	153	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	47	153	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6836	6924	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6836	6924	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3447	3535	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4141	4229	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4341	4429	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6579	6667	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5349	5437	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6836	6924	
==>------------------------------------------------------------------------
## BOOTSTRAPPING <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	5413	5504	
==>t::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (S <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5471	5562	
==>t::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (S <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10597	10762	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8148	8313	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10597	10762	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8148	8313	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10597	10762	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8148	8313	
==>he top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	77	178	
==>ter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	77	178	
==>ter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14966	15104	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14966	15104	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14966	15104	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19665	19802	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19665	19802	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19665	19802	
==>it '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shou <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	110	210	
==>RSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->me <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	110	210	
==>RSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20465	20591	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17604	17730	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20465	20591	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17604	17730	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20465	20591	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17604	17730	
==>oint though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $valu <==
8	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1841	1951	
==>:Grammar.
#
#  Bugs:
#   * This grammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs: <==
8	/Users/nnunley/pugs/util/svnlog2graph.pl	600	704	
==>ess m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.* <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8610	8750	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11583	11723	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8610	8750	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11583	11723	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8610	8750	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11583	11723	
==>needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # para <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3784	3883	
==>:PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3784	3883	
==>:PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17561	17700	
==>mbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40830	40969	
==>mbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30244	30378	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31973	32107	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30244	30378	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31973	32107	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30244	30378	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31973	32107	
==>= Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25624	25735	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27819	27930	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25624	25735	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27819	27930	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25624	25735	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27819	27930	
==>alue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Val <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3108	3213	
==>ject
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3108	3213	
==>ject
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	433	541	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	431	539	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	433	541	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	431	539	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	433	541	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	431	539	
==>d have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8985	9090	
==>rget if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Mess <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8985	9090	
==>rget if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Mess <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9221	9332	
==>Param'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tp <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9221	9332	
==>Param'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tp <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9221	9332	
==>Param'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tp <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14475	14577	
==>st $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, w <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14475	14577	
==>st $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, w <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13516	13614	
==>st $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, w <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13516	13614	
==>st $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, w <==
8	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3211	3304	
==>}LET;/let_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\ <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1675	1836	
==>ddir';             # buildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz <==
8	/Users/nnunley/pugs/util/func_refact.pl	2401	2539	
==>d: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Stor <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8473	8585	
==>xed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8473	8585	
==>xed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8473	8585	
==>xed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3228	3328	
==>me} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3228	3328	
==>me} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3228	3328	
==>me} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]- <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	497	612	
==>t

            package_prefix  package_authority   package_name  package_version
            list_dependencies  depe <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2317	2418	
==>.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2317	2418	
==>.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1542	1639	
==>.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3403	3500	
==>.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 m <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2912	3006	
==>mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alter <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2912	3006	
==>mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alter <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2912	3006	
==>mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alter <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9145	9254	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6692	6801	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9145	9254	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6692	6801	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9145	9254	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6692	6801	
==>r
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder' <==
8	/Users/nnunley/pugs/inc/Test/Harness.pm	26866	26960	
==>rride this, or you can use the C<-d> switch in the F<prove> utility.

=item C<HARNESS_FILELEAK_ <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	4367	4461	
==>sub splat { # recursive splatting happens in parametrized type operators, since they have child <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29720	29909	
==>e::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29720	29909	
==>e::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    re <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29720	29909	
==>e::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	279	402	
==>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	279	402	
==>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	279	402	
==>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1584	1673	
==>:($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) return <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1584	1673	
==>:($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) return <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3271	3386	
==>g10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a ! <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3271	3386	
==>g10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a ! <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3271	3386	
==>g10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a ! <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5660	5768	
==>$@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScri <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5660	5768	
==>$@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScri <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5660	5768	
==>$@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScri <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1700	1788	
==>t once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012) <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1700	1788	
==>t once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7974	8091	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10897	11014	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7974	8091	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10897	11014	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7974	8091	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10897	11014	
==>$method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2176	2280	
==>eturn 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 o <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2176	2280	
==>eturn 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 o <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5486	5596	
==>expected or !defined $range) {
        # This is a fail, but doesn't need extra diagnostics
    } elsif ($got ! <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13249	13357	
==>uire Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $sep = ':' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	780	880	
==>-------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::O <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	780	880	
==>-------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::O <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	780	880	
==>-------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::O <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4333	4428	
==>reviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$d <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4333	4428	
==>reviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$d <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4413	4508	
==>reviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$d <==
8	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6921	7169	
==>e'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                = <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6978	7226	
==>e'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4573	4708	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7222	7357	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4796	4926	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11245	11375	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4796	4926	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11245	11375	
==>turn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3314	3425	
==>g(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3314	3425	
==>g(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3314	3425	
==>g(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	83	189	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub c <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	81	180	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub c <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	75	174	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	81	180	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub c <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	75	174	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub c <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2946	3352	
==>ce::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface: <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2946	3352	
==>ce::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2200	2319	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11068	11187	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12027	12146	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2393	2512	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11347	11466	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12306	12425	
==>\&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15479	15628	
==>= 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map() <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15479	15628	
==>= 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map() <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15479	15628	
==>= 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map() <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6274	6391	
==>rgl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retu <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6274	6391	
==>rgl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retu <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6274	6391	
==>rgl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retu <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3604	3712	
==>};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\} <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3604	3712	
==>};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\} <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	14107	14203	
==>to one of the standard
testing functions. In that case, you can use the rather blunt pass()
funct <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14165	14261	
==>to one of the standard
testing functions. In that case, you can use the rather blunt pass()
funct <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2109	2202	
==>:make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2109	2202	
==>:make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($s <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2109	2202	
==>:make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($s <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	30118	30207	
==>functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<ren <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34670	34759	
==>functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<ren <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33843	33932	
==>functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<ren <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5495	5608	
==>) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurren <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5495	5608	
==>) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurren <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3697	3806	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6633	6742	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3697	3806	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6633	6742	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3697	3806	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6633	6742	
==>ub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $met <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2087	2203	
==>erbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	401	517	
==>erbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2087	2203	
==>erbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2087	2203	
==>erbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3074	3167	
==>cript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3074	3167	
==>cript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pa <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3074	3167	
==>cript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pa <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1835	1927	
==>ie::Backend::C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Builtins;

=head1 DES <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3647	3883	
==>rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_elem <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3647	3883	
==>rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_elem <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	36351	36444	
==>fer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupli <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38104	38197	
==>fer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupli <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40900	40993	
==>fer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupli <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42653	42746	
==>fer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupli <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40514	40607	
==>fer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupli <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42303	42396	
==>fer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupli <==
8	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5237	5420	
==>eq(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

The above is the implementation of the identit <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2367	2500	
==>( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2367	2500	
==>( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2367	2500	
==>( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5568	5676	
==>pan.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x > <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5568	5676	
==>pan.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x > <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	184	288	
==>ler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() return <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	184	288	
==>ler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() return <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2620	2772	
==>enClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2620	2772	
==>enClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => se <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2620	2772	
==>enClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => se <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35279	35420	
==>l ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35279	35420	
==>l ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35279	35420	
==>l ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $ <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	573	699	
==>.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_ <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	573	699	
==>.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1810	1955	
==>LKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1810	1955	
==>LKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1810	1955	
==>LKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1636	1760	
==>LKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1636	1760	
==>LKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1636	1760	
==>LKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
} <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	393	483	
==>::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	393	483	
==>::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler:: <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	3642	3770	
==>eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::p <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3700	3828	
==>eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::p <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3356	3451	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6370	6465	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8438	8533	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3356	3451	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6370	6465	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8438	8533	
==>urns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns A <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2499	2599	
==>s. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Pe <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2499	2599	
==>s. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Pe <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11028	11121	
==>b6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5. <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11028	11121	
==>b6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5. <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11028	11121	
==>b6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6042	6131	
==>f->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6042	6131	
==>f->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6042	6131	
==>f->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4175	4343	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4175	4343	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4175	4343	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($bod <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6701	6855	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6701	6855	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bod <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6701	6855	
==>od($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($bod <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5196	5290	
==>self!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!da <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5196	5290	
==>self!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!da <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3129	3248	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11052	11171	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6254	6373	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3129	3248	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11052	11171	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6254	6373	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EM <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10498	10589	
==>formed at all.  They validate everything except
well-formedness, such as that Rosetta::Model <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10498	10589	
==>formed at all.  They validate everything except
well-formedness, such as that Rosetta::Model <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4436	4532	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4691	4787	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4938	5034	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4436	4532	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4691	4787	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4938	5034	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4181	4276	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4181	4276	
==>ndex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	420	534	
==>elf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	420	534	
==>elf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse { <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	420	534	
==>elf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1137	1247	
==>ef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1137	1247	
==>ef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1137	1247	
==>ef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For w <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11229	11324	
==>he semantic of a header field, but
in practice there are cases like old-style Netscape cookies ( <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11229	11324	
==>he semantic of a header field, but
in practice there are cases like old-style Netscape cookies ( <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9017	9114	
==>o file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9017	9114	
==>o file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_ <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4650	4761	
==>],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4897	5008	
==>],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4650	4761	
==>],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4897	5008	
==>],4,0xFF); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4396	4506	
==>],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4396	4506	
==>],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4141	4250	
==>],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4141	4250	
==>],4,0xFF); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@i <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	741	875	
==>A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our clas <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	741	875	
==>A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2796	2906	
==>ring("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2796	2906	
==>ring("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2796	2906	
==>ring("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1579	1688	
==>sion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1579	1688	
==>sion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1579	1688	
==>sion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped- <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	291	422	
==>ket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($buck <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	291	422	
==>ket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($buck <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22553	22661	
==>rn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	930	1032	
==>upport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/stor <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	930	1032	
==>upport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/stor <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	930	1032	
==>upport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/stor <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7301	7394	
==>ebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7301	7394	
==>ebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10369	10482	
==>od_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10369	10482	
==>od_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        m <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10369	10482	
==>od_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	391	497	
==>ss defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	391	497	
==>ss defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" i <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	391	497	
==>ss defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" i <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	724	816	
==>ity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minim <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	724	816	
==>ity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minim <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	803	915	
==>ure} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_ex <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1009	1121	
==>ure} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_ex <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2251	2346	
==>lock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2251	2346	
==>lock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2251	2346	
==>lock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1483	1573	
==>f = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
me <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1483	1573	
==>f = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
me <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1483	1573	
==>f = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
me <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	929	1054	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1322	1447	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	929	1054	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1322	1447	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9887	9998	
==>alue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9887	9998	
==>alue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	9124	9220	
==>union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9124	9220	
==>union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7976	8104	
==>=> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7976	8104	
==>=> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7976	8104	
==>=> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1567	1664	
==>documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4902	4993	
==>documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	589	680	
==>documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5042	5133	
==>documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	589	680	
==>documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23193	23392	
==>turns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method super <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4436	4543	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7372	7479	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4436	4543	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7372	7479	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4436	4543	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7372	7479	
==>hod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	104	202	
==>y $filename = (caller)[1];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die "this is not a . <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1366	1474	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1366	1474	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1105	1212	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1830	1937	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2090	2197	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1105	1212	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1830	1937	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2090	2197	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11836	11934	
==>e for the specified header field.  Previous values
for the same field are retained.

As for the hea <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11836	11934	
==>e for the specified header field.  Previous values
for the same field are retained.

As for the hea <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3047	3143	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6061	6157	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8129	8225	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3047	3143	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6061	6157	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8129	8225	
==>rns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (St <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3863	3970	
==>::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.v <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4196	4303	
==>::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.v <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3863	3970	
==>::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.v <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4196	4303	
==>::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.v <==
8	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	124	222	
==>t will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outsi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	124	222	
==>t will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outsi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	124	222	
==>t will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outsi <==
8	/Users/nnunley/pugs/util/src_to_blib.pl	124	222	
==>t will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outsi <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	177	341	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	982	1146	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	302	466	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	177	341	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	982	1146	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	302	466	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2613	2714	
==>e important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2517	2614	
==>e important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1720	1831	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3283	3394	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1720	1831	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3283	3394	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1720	1831	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3283	3394	
==>rivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functi <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19627	19724	
==>ishes to authenticate itself with a server or a
proxy, may do so by including these headers.

=ite <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19627	19724	
==>ishes to authenticate itself with a server or a
proxy, may do so by including these headers.

=ite <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1249	1371	
==>my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed fir <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	809	931	
==>my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed fir <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	212	310	
==>or Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	212	310	
==>or Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:) <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	5572	5668	
==>$one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4702	4798	
==>$one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5572	5668	
==>$one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4702	4798	
==>$one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30531	30674	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32245	32388	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30531	30674	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32245	32388	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30531	30674	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32245	32388	
==>IVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = sp <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18498	18590	
==>ith
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_h <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18498	18590	
==>ith
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3650	3763	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6586	6699	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3650	3763	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6586	6699	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3650	3763	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6586	6699	
==>ence wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        ( <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18994	19092	
==>emoves the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the rem <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18994	19092	
==>emoves the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the rem <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3038	3162	
==>it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continue <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3038	3162	
==>it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continue <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3038	3162	
==>it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continue <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5025	5132	
==>H()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5025	5132	
==>H()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5025	5132	
==>H()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\ <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18225	18319	
==>or example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is on <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18225	18319	
==>or example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is on <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	585	703	
==>ns(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	585	703	
==>ns(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	585	703	
==>ns(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _2 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2939	3038	
==>ns(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2939	3038	
==>ns(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _2 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2939	3038	
==>ns(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _2 <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2346	2439	
==>{
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset($ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2346	2439	
==>{
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset($ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1751	1866	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3314	3429	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1751	1866	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3314	3429	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1751	1866	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3314	3429	
==>CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12542	12646	
==>d_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $c <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6017	6121	
==>d_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $c <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3429	3587	
==>grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subru <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3569	3727	
==>grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subru <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4361	4503	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6873	7015	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4361	4503	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6873	7015	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4361	4503	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6873	7015	
==>}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # w <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3171	3308	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6164	6301	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3440	3569	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9858	9987	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3440	3569	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9858	9987	
==>shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shi <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3533	3642	
==>ode;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Exp <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3533	3642	
==>ode;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Exp <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3159	3352	
==>&*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @ <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3159	3352	
==>&*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1394	1494	
==>nc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    ret <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1394	1494	
==>nc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    ret <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1394	1494	
==>nc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5491	5590	
==>b expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5491	5590	
==>b expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5491	5590	
==>b expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14324	14483	
==>[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14324	14483	
==>[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        whi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14324	14483	
==>[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        whi <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2855	3014	
==>[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        whi <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	3676	3797	
==>ss or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.ne <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3676	3797	
==>ss or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.ne <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	16067	16166	
==>t )`

These methods return a logical value. 

The argument can be a Span object, a Recurrence object <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16067	16166	
==>t )`

These methods return a logical value. 

The argument can be a Span object, a Recurrence object <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17372	17493	
==>ms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17372	17493	
==>ms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1175	1290	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	926	1041	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1175	1290	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	926	1041	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1175	1290	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	926	1041	
==>e_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing speci <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4633	4837	
==>o ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4633	4837	
==>o ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3384	3476	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6398	6490	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8466	8558	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3384	3476	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6398	6490	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8466	8558	
==>path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_ab <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1245	1352	
==>start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () retu <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1245	1352	
==>start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () retu <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23278	23376	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1851	1949	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4142	4240	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1814	1912	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23278	23376	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1851	1949	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4142	4240	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1814	1912	
==>rror messages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rose <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18718	18853	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15956	16091	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18718	18853	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15956	16091	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18718	18853	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15956	16091	
==>"our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2635	2746	
==>$self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if d <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2635	2746	
==>$self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if d <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25423	25518	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	861	956	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24187	24282	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1986	2081	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25423	25518	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	861	956	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24187	24282	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1986	2081	
==>nd/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for deta <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14081	14202	
==>ize + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14081	14202	
==>ize + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14081	14202	
==>ize + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6343	6464	
==>ize + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4845	4966	
==>ize + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19161	19255	
==>TI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19161	19255	
==>TI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19161	19255	
==>TI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16178	16318	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20895	21035	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16178	16318	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20895	21035	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16178	16318	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20895	21035	
==>me};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -cor <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	10883	10976	
==>e, the information about how many members
were actually new is discarded.

=head2 C<$set.remov <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10883	10976	
==>e, the information about how many members
were actually new is discarded.

=head2 C<$set.remov <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13266	13376	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10550	10660	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13266	13376	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10550	10660	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13266	13376	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10550	10660	
==>d_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retur <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	2255	2361	
==>r);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.s <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2255	2361	
==>r);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.s <==
8	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1440	1548	
==>. "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2 <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2991	3089	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6005	6103	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8073	8171	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2991	3089	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6005	6103	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8073	8171	
==>r returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1768	1859	
==><<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $fi <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	728	870	
==>[
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	728	870	
==>[
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ] <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	728	870	
==>[
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	344	455	
==>reating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're co <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	344	455	
==>reating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're co <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	344	455	
==>reating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're co <==
8	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1571	1664	
==>ry in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
th <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1411	1504	
==>ry in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
th <==
8	/Users/nnunley/pugs/misc/Blondie/milner.pl	20802	20935	
==>),
			param => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "length'",
        is => fun( <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	97	203	
==>ses" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, ho <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	101	207	
==>ses" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, ho <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	97	203	
==>ses" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, ho <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	101	207	
==>ses" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, ho <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6521	6619	
==>ew('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'St <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6521	6619	
==>ew('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'St <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6521	6619	
==>ew('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'St <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2314	2460	
==>'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    u <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2561	2707	
==>'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    u <==
8	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10738	10882	
==>ux"],
    [$linuxrc              => "$initrd_mnt/linuxrc"],
    [$welcome_p6           => "$initrd_mnt/welcome.p6"],
  );
  step
    descr  => "C <==
8	/Users/nnunley/pugs/src/perl6/Prelude.pm	13727	13869	
==>x-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3852	3982	
==>x-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3852	3982	
==>x-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3852	3982	
==>x-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ <==
8	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17838	17927	
==>star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1046	1155	
==>,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1046	1155	
==>,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if define <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1046	1155	
==>,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if define <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17515	17609	
==>s distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQ <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17515	17609	
==>s distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21856	21945	
==>};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21856	21945	
==>};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals: <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21856	21945	
==>};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	244	535	
==>0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal spac <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8098	8229	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5657	5788	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8098	8229	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5657	5788	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8098	8229	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5657	5788	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1786	1917	
==>..
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-e <==
8	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	377	513	
==>self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tm <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	377	513	
==>self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tm <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6922	7017	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6052	6147	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2706	2801	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2706	2801	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6922	7017	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6052	6147	
==>ncludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes( <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	11604	11721	
==>(my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relatio <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15081	15198	
==>(my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relatio <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14416	14533	
==>(my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relatio <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22699	22794	
==>sions rather than one.  The Relation::Example operators are somewhat of
a superset of the Set op <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8095	8189	
==><-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @ <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7225	7319	
==><-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8095	8189	
==><-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @ <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7225	7319	
==><-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4030	4204	
==>l or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $ <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4030	4204	
==>l or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $ <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10013	10111	
==>tries to set the input, and input that
fails immediate evaluation will not be set at all.  The scop <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10013	10111	
==>tries to set the input, and input that
fails immediate evaluation will not be set at all.  The scop <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7249	7344	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@ar <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6379	6474	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@ar <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7249	7344	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@ar <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6379	6474	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@ar <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15359	15463	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20092	20196	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15359	15463	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20092	20196	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15359	15463	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20092	20196	
==>% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class) <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	13003	13098	
==>value.
The unit specifier is also used internally when joining two spans, and when getting the s <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13003	13098	
==>value.
The unit specifier is also used internally when joining two spans, and when getting the s <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2667	2796	
==>$base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same
    m <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2667	2796	
==>$base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same
    m <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	908	1012	
==>y $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	908	1012	
==>y $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curre <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	908	1012	
==>y $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curre <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2090	2187	
==>le');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2090	2187	
==>le');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Pa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2090	2187	
==>le');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Pa <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7390	7487	
==>\"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(n <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7390	7487	
==>\"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(n <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	32	124	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	204	296	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	32	124	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	204	296	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	32	124	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	204	296	
==>f:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.C <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3436	3537	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3436	3537	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3436	3537	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2485	2582	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2485	2582	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2485	2582	
==>stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4541	4636	
==>token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is st <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4791	4886	
==>token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is st <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5862	5972	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8832	8942	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5862	5972	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8832	8942	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5862	5972	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8832	8942	
==>ethod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || con <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	11042	11137	
==>l :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$to <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11100	11195	
==>l :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$to <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15967	16075	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20684	20792	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15967	16075	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20684	20792	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15967	16075	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20684	20792	
==>Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper = <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	138	233	
==>r_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have spe <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	138	233	
==>r_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have spe <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20965	21061	
==>to bring this sort of functionality to Perl packages
or programs.  Your package or program can be <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20965	21061	
==>to bring this sort of functionality to Perl packages
or programs.  Your package or program can be <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2915	3010	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10838	10933	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6040	6135	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2915	3010	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10838	10933	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6040	6135	
==>msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val! <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3215	3370	
==>iers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash-> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3215	3370	
==>iers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash-> <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3215	3370	
==>iers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash-> <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4134	4238	
==>}  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4134	4238	
==>}  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4134	4238	
==>}  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3883	3974	
==>File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and i <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3883	3974	
==>File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18799	18948	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16037	16186	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18799	18948	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16037	16186	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18799	18948	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16037	16186	
==>h
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplica <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	870	976	
==>_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns St <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	870	976	
==>_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns St <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3605	3702	
==>n PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3605	3702	
==>n PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3605	3702	
==>n PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators. <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1174	1284	
==>4 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisf <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1174	1284	
==>4 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisf <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	241	342	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	182	283	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	241	342	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	182	283	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	241	342	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	182	283	
==>e to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16932	17080	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21647	21795	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16932	17080	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21647	21795	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16932	17080	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21647	21795	
==>classes}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $su <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1629	1727	
==>il_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", o <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1629	1727	
==>il_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", o <==
8	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	719	826	
==>asename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.com/download/vc15/P <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5793	5889	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8763	8859	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	615	711	
==>asename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com/download/vc15/P <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5793	5889	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8763	8859	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5793	5889	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8763	8859	
==>other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10425	10543	
==>ut.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      f <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2442	2548	
==>ut.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    f <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2442	2548	
==>ut.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    f <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	178	279	
==>Y_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## funct <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	178	279	
==>Y_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## funct <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	28956	29049	
==>at become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attr <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33508	33601	
==>at become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attr <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32645	32738	
==>at become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attr <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3900	4070	
==>ef $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4364	4534	
==>ef $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4016	4144	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6952	7080	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4016	4144	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6952	7080	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4016	4144	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6952	7080	
==>NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8035	8172	
==>haracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13629	13766	
==>haracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8035	8172	
==>haracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13623	13760	
==>haracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1965	2075	
==>ule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleo <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1976	2086	
==>ule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleo <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2612	2717	
==>r where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2612	2717	
==>r where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2323	2449	
==>return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2528	2654	
==>return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3319	3445	
==>return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12830	12940	
==>hods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12830	12940	
==>hods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitive <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12830	12940	
==>hods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitive <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	604	704	
==>perty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then ple <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	604	704	
==>perty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then ple <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3231	3343	
==>me> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.c <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3231	3343	
==>me> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1505	1596	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subnam <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1505	1596	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subnam <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1505	1596	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subnam <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	346	435	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subnam <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	346	435	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subnam <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	346	435	
==>pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subnam <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	109	223	
==>se Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	109	223	
==>se Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	109	223	
==>se Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	108	221	
==>se Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	108	221	
==>se Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	108	221	
==>se Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # Thes <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	20	117	
==>ols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbo <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	20	117	
==>ols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbo <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10070	10202	
==>= undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10070	10202	
==>= undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification o <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10070	10202	
==>= undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification o <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2539	2668	
==>> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return su <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2456	2580	
==>> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return su <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2621	2721	
==>nd autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2621	2721	
==>nd autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2621	2721	
==>nd autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11434	11596	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8987	9149	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11434	11596	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8987	9149	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11434	11596	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8987	9149	
==>ot defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    sh <==
8	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	849	948	
==>use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracki <==
8	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	849	948	
==>use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracki <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8843	8988	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6396	6541	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8843	8988	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6396	6541	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8843	8988	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6396	6541	
==>perclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	293	393	
==>d the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet. <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	293	393	
==>d the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14159	14374	
==>6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14159	14374	
==>6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14159	14374	
==>6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	161	271	
==>s::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	154	260	
==>s::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	148	254	
==>s::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	154	260	
==>s::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	148	254	
==>s::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? <==
8	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	575	679	
==>$subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1237	1341	
==>$subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16570	16672	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21287	21389	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16570	16672	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21287	21389	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16570	16672	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21287	21389	
==>hen call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY c <==
8	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4844	4980	
==>sts $escape{$initchar} )
      {
        if ( not $isnegated and (length $initchar < 2))
        {
          goto term_literal;
        } <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8155	8284	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5714	5843	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8155	8284	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5714	5843	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8155	8284	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5714	5843	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1843	1972	
==>not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches ou <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2068	2176	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1180	1288	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2068	2176	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1180	1288	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2068	2176	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1180	1288	
==>t will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	330	430	
==>ms );

# ----- the following were included only for performance reasons,
# because they are too frequ <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	341	441	
==>ms );

# ----- the following were included only for performance reasons,
# because they are too frequ <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12723	12879	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19560	19716	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20713	20869	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13002	13158	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19839	19995	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20992	21148	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20681	20773	
==>ove is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20681	20773	
==>ove is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8488	8642	
==>ell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8488	8642	
==>ell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8488	8642	
==>ell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1069	1170	
==>= undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1069	1170	
==>= undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant( <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1069	1170	
==>= undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant( <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	3238	3330	
==>tion|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is expo <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3296	3388	
==>tion|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is expo <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1452	1577	
==>";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) ret <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1452	1577	
==>";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12221	12317	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9778	9874	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12221	12317	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9778	9874	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12221	12317	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9778	9874	
==>d('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8150	8274	
==>ap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8150	8274	
==>ap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return b <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8150	8274	
==>ap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return b <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6065	6175	
==>\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3234	3342	
==>\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4083	4191	
==>\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	13725	13826	
==>nts, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Sp <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13725	13826	
==>nts, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Sp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25135	25291	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27324	27480	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25135	25291	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27324	27480	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25135	25291	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27324	27480	
==>nings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $ <==
8	/Users/nnunley/pugs/blib6/lib/Date.pm	3996	4097	
==>sing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given val <==
8	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3996	4097	
==>sing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given val <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3948	4095	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6884	7031	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3948	4095	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6884	7031	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3948	4095	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6884	7031	
==>$::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class a <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	8507	8606	
==>s accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.h <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8507	8606	
==>s accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1651	1758	
==>val($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
} <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1651	1758	
==>val($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
} <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1651	1758	
==>val($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
} <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7712	7809	
==>this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns V <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	903	1000	
==>::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self- <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7712	7809	
==>this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns V <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	903	1000	
==>::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self- <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	903	1000	
==>::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self- <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	657	781	
==>e_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    retu <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	657	781	
==>e_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3765	3866	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6701	6802	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3765	3866	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6701	6802	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3765	3866	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6701	6802	
==>efined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can o <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	4277	4380	
==>s Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3404	3507	
==>s Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4277	4380	
==>s Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3404	3507	
==>s Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns S <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2219	2311	
==>_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2219	2311	
==>_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2219	2311	
==>_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has <==
8	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	128	219	
==>ll::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9301	9438	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12274	12411	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9301	9438	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12274	12411	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9301	9438	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12274	12411	
==>Method;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6: <==
8	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1199	1323	
==>ure_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {.. <==
8	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1199	1323	
==>ure_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {.. <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6934	7062	
==>$cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end o <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11938	12066	
==>$cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end o <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6934	7062	
==>$cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end o <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11932	12060	
==>$cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8922	9031	
==>nt F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /wi <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	656	765	
==>nt F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /wi <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8922	9031	
==>nt F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /wi <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8922	9031	
==>nt F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /wi <==
8	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	783	906	
==>i_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need E <==
8	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	783	906	
==>i_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need E <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	33	133	
==>ckage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	33	133	
==>ckage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	33	133	
==>ckage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17126	17210	
==>ibute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17126	17210	
==>ibute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17126	17210	
==>ibute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6453	6571	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9423	9541	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6453	6571	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9423	9541	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6453	6571	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9423	9541	
==>->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10270	10371	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10270	10371	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6671	6780	
==>union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least on <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10148	10257	
==>union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least on <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2942	3041	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10865	10964	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6067	6166	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2942	3041	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10865	10964	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6067	6166	
==>ars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( ' <==
8	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	732	849	
==>ocket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $schem <==
8	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	699	816	
==>ocket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $schem <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9349	9457	
==>)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9349	9457	
==>)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9349	9457	
==>)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1381	1488	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1381	1488	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1381	1488	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4421	4578	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6933	7090	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4421	4578	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6933	7090	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4421	4578	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6933	7090	
==>ss_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no re <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22001	22101	
==>l here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved <==
8	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16903	17002	
==>l here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10229	10358	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7780	7909	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10229	10358	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7780	7909	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10229	10358	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7780	7909	
==>the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null the <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1343	1442	
==>an.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ds <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1343	1442	
==>an.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ds <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25410	25509	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	848	947	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24174	24273	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1973	2072	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25410	25509	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	848	947	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24174	24273	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1973	2072	
==>stribute it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2285	2440	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11153	11308	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12112	12267	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20116	20271	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2478	2633	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11432	11587	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12391	12546	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20395	20550	
==>t'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	269	384	
==>tput .= "}\n";
    return $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_" . $no <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9958	10068	
==>t.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0 <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1244	1354	
==>to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, t <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13435	13545	
==>t.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0 <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1244	1354	
==>to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, t <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1244	1354	
==>to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, t <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4899	5001	
==>ee as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$cha <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4899	5001	
==>ee as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$cha <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4294	4415	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6943	7064	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4524	4642	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10973	11091	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4524	4642	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10973	11091	
==>tch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	14639	14734	
==>future features planned for this module.

- better error handling for cmp_ok

The error handling <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14697	14792	
==>future features planned for this module.

- better error handling for cmp_ok

The error handling <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11240	11389	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8793	8942	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11240	11389	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8793	8942	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11240	11389	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8793	8942	
==>op of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if cu <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26322	26416	
==>olders of Rosetta would
appreciate being informed any time you create a modified version of Ros <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26322	26416	
==>olders of Rosetta would
appreciate being informed any time you create a modified version of Ros <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9177	9307	
==>"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$pos <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9165	9295	
==>"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$pos <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16579	16680	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21296	21397	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16579	16680	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21296	21397	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16579	16680	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21296	21397	
==>DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$:: <==
8	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	376	479	
==>-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @ <==
8	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	376	479	
==>-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	821	913	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1341	1433	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	821	913	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1341	1433	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	821	913	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1341	1433	
==>.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee. <==
8	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1930	2046	
==>really up to your subscription and event subclasses to define these
        # if at all.

        # the default Event <==
8	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2802	2900	
==>name returns Str { @months[./month_0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oc <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3009	3104	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6023	6118	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8091	8186	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3009	3104	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6023	6118	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8091	8186	
==>`rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10409	10534	
==>_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10409	10534	
==>_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sca <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10409	10534	
==>_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sca <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6721	6822	
==>e $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normal <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6721	6822	
==>e $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normal <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	524	616	
==>valX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	524	616	
==>valX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	524	616	
==>valX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6510	6650	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8959	9099	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6510	6650	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8959	9099	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6510	6650	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8959	9099	
==>$end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "No <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	760	869	
==>em;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_it <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	760	869	
==>em;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_it <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	38	192	
==>ft;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #prin <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	38	192	
==>ft;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #prin <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	9872	9985	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	10853	10966	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	12324	12437	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13349	13462	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14330	14443	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15801	15914	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18793	19019	
==>[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18793	19019	
==>[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->i <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18793	19019	
==>[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->i <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35974	36128	
==>( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> he <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35974	36128	
==>( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> he <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35974	36128	
==>( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> he <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4149	4244	
==>zed by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4149	4244	
==>zed by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19847	19992	
==>erl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->wr <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19847	19992	
==>erl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->wr <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19847	19992	
==>erl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->wr <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	4758	4883	
==>= @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4758	4883	
==>= @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2271	2394	
==>$_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", " <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2271	2394	
==>$_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", " <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2271	2394	
==>$_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", " <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4724	4841	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7373	7490	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4942	5056	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11391	11505	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4942	5056	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11391	11505	
==>";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$le <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	1449	1549	
==>ted_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) r <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1507	1607	
==>ted_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) r <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1701	1891	
==>y'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!m <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1701	1891	
==>y'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!m <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31438	31536	
==>nd in the second it is "L::Foo".

A library could be distributed with a Template module set that is <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31438	31536	
==>nd in the second it is "L::Foo".

A library could be distributed with a Template module set that is <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6147	6242	
==>litpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile ( <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8215	8310	
==>litpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6147	6242	
==>litpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8215	8310	
==>litpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18721	18856	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15959	16094	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18721	18856	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15959	16094	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18721	18856	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15959	16094	
==>r" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:n <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21201	21299	
==>r any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRIG <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21201	21299	
==>r any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRIG <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5471	5582	
==>ent_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual f <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5471	5582	
==>ent_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual f <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	7199	7296	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6329	6426	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2983	3080	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2983	3080	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7199	7296	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6329	6426	
==>mber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $o <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16523	16624	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21240	21341	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16523	16624	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21240	21341	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16523	16624	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21240	21341	
==>rrectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2690	2786	
==>I object has the following public attributes:

=over 8

=item C<$r.method>

The request method us <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2690	2786	
==>I object has the following public attributes:

=over 8

=item C<$r.method>

The request method us <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11315	11430	
==>is;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nex <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11315	11430	
==>is;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nex <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11315	11430	
==>is;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nex <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4053	4163	
==>ws>? \;
        { 
		eval 'use '.$()->[2]{ident}[0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1 <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10002	10106	
==>b 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10002	10106	
==>b 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6470	6569	
==>vents> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Event <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6470	6569	
==>vents> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Event <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3721	3872	
==>bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3969	4115	
==>bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        ret <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10418	10564	
==>bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3969	4115	
==>bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        ret <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10418	10564	
==>bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4676	4780	
==>l6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4676	4780	
==>l6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4676	4780	
==>l6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11247	11394	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8800	8947	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11247	11394	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8800	8947	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11247	11394	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8800	8947	
==>he stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	6969	7077	
==>-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :densi <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6969	7077	
==>-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :densi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1329	1439	
==>eturn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1329	1439	
==>eturn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1329	1439	
==>eturn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon- <==
8	/Users/nnunley/pugs/blib6/lib/lib.pm	11	116	
==>0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) ret <==
8	/Users/nnunley/pugs/ext/lib/lib/lib.pm	11	116	
==>0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) ret <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1408	1510	
==>rn it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1408	1510	
==>rn it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1408	1510	
==>rn it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7728	7922	
==>unt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yiel <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7728	7922	
==>unt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yiel <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	2731	2830	
==>urn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1465	1564	
==>et_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    va <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6208	6307	
==>urn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple = <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5138	5237	
==>urn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple = <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1465	1564	
==>et_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    va <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1465	1564	
==>et_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    va <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6299	6419	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9269	9389	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6299	6419	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9269	9389	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6299	6419	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9269	9389	
==>d, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $meth <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14279	14375	
==>an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14279	14375	
==>an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $ <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	25510	25606	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26122	26218	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	27202	27298	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	31117	31213	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30062	30158	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30674	30770	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31754	31850	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35667	35763	
==>returns Relation>

This method is a generic relational operator that returns a new Relation
which <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4027	4122	
==>ule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4027	4122	
==>ule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7006	7100	
==>ule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9076	9170	
==>ule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7006	7100	
==>ule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9076	9170	
==>ule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved. <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23220	23313	
==>e ambiguous results or associations.  Or alternately, the other
packages require your text dat <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23220	23313	
==>e ambiguous results or associations.  Or alternately, the other
packages require your text dat <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3109	3224	
==>lf.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $c <==
8	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3109	3224	
==>lf.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $c <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4792	4898	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7293	7399	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4792	4898	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7293	7399	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4792	4898	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7293	7399	
==>ethod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name} <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	7817	7953	
==>*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7817	7953	
==>*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2935	3064	
==>G_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $va <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8029	8158	
==>G_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $va <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2935	3064	
==>G_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $va <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8029	8158	
==>G_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $va <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1572	1672	
==>::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has U <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1572	1672	
==>::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has U <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8693	8822	
==>op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0], <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8693	8822	
==>op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0], <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4321	4438	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7257	7374	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4321	4438	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7257	7374	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4321	4438	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7257	7374	
==>and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24928	25136	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27117	27325	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24928	25136	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27117	27325	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24928	25136	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27117	27325	
==>inite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warni <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36745	36841	
==>and Member properties; if none
could be matched, this method returns undef.  This method could be <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36745	36841	
==>and Member properties; if none
could be matched, this method returns undef.  This method could be <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10284	10402	
==>'pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, { <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10284	10402	
==>'pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, { <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20026	20130	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17165	17269	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20026	20130	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17165	17269	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20026	20130	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17165	17269	
==>lass attributes are just package scoped "our" variables
        # so they are added to the Package normal <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4658	4771	
==>); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4905	5018	
==>); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4658	4771	
==>); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4905	5018	
==>); # 0.octet
#      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4404	4516	
==>); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4404	4516	
==>); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4149	4260	
==>); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4149	4260	
==>); # 0.octet
      take index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1322	1438	
==>UMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarN <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1322	1438	
==>UMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarN <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1322	1438	
==>UMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarN <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26252	26349	
==>ned and non-empty string, and each variable value can be anything at
all.  Note that while the Has <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26252	26349	
==>ned and non-empty string, and each variable value can be anything at
all.  Note that while the Has <==
8	/Users/nnunley/pugs/examples/hop6/Lexer.pm	42	137	
==>igher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by <==
8	/Users/nnunley/pugs/examples/hop6/Parser.pm	43	138	
==>igher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by <==
8	/Users/nnunley/pugs/examples/hop6/Stream.pm	43	138	
==>igher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6752	6859	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9722	9829	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6752	6859	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9722	9829	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6752	6859	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9722	9829	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	33	138	
==>5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Da <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	33	138	
==>5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Da <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23734	23838	
==>= "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pa <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23734	23838	
==>= "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pa <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23734	23838	
==>= "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pa <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	32208	32305	
==>cated tuples appear only once in
the result.  With any 2 relations, the result is the same regardl <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36758	36855	
==>cated tuples appear only once in
the result.  With any 2 relations, the result is the same regardl <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36048	36145	
==>cated tuples appear only once in
the result.  With any 2 relations, the result is the same regardl <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8607	8702	
==>e the same namespace; any incompat will be caught later.
    return ::($module_name).does(Packag <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8607	8702	
==>e the same namespace; any incompat will be caught later.
    return ::($module_name).does(Packag <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8698	8854	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11671	11827	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8698	8854	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11671	11827	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8698	8854	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11671	11827	
==>alls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Per <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2416	2537	
==>$uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $heade <==
8	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2416	2537	
==>$uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $heade <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18766	18938	
==>"\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19045	19217	
==>"\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::opt <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8643	8797	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6196	6350	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8643	8797	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6196	6350	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8643	8797	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6196	6350	
==>f ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all t <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	90	200	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	85	195	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	90	200	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	85	195	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	90	200	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	85	195	
==>hift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $s <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3345	3439	
==>?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filename <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3345	3439	
==>?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filename <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	752	861	
==>dler('\a' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    re <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	995	1098	
==>ycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	995	1098	
==>ycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	995	1098	
==>ycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) { <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23867	23966	
==>is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies t <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22640	22739	
==>is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies t <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23867	23966	
==>is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies t <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22640	22739	
==>is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies t <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10509	10651	
==>er,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnos <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18251	18379	
==>>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21510	21638	
==>>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41516	41644	
==>>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44417	44545	
==>>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1045	1169	
==>er,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnos <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1045	1169	
==>er,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnos <==
8	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11661	11768	
==>ed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($_[0]) })
        : $node
}

packa <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26162	26352	
==>calar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str = <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26162	26352	
==>calar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str = <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26162	26352	
==>calar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str = <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1879	2002	
==>only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_comp <==
8	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2400	2495	
==>el <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or <==
8	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1855	1950	
==>el <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or <==
8	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2400	2495	
==>el <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or <==
8	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1855	1950	
==>el <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	6711	6841	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	7472	7602	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	8342	8472	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10188	10318	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10949	11079	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11819	11949	
==>on {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not mat <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	13485	13583	
==>h must be
made to pass before this test can pass (or before an implementation
could be started).  T <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13543	13641	
==>h must be
made to pass before this test can pass (or before an implementation
could be started).  T <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11932	12028	
==>ll Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_nodes <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11932	12028	
==>ll Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_nodes <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	665	760	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1185	1280	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	665	760	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1185	1280	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	665	760	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1185	1280	
==>.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.po <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12615	12709	
==>This module deals with encoding and decoding of strings with HTML
character entities.  The modu <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12615	12709	
==>This module deals with encoding and decoding of strings with HTML
character entities.  The modu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15712	15910	
==>t_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15712	15910	
==>t_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15712	15910	
==>t_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++ <==
8	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	137	275	
==>ey {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	137	275	
==>ey {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	597	696	
==>olding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref). <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	597	696	
==>olding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref). <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	597	696	
==>olding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref). <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	703	845	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	791	933	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	703	845	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	791	933	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	703	845	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	791	933	
==>V;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } els <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	11347	11439	
==>_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<tr <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11347	11439	
==>_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<tr <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11799	11935	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3310	3446	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11799	11935	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3310	3446	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11799	11935	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3310	3446	
==>slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[ <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5183	5274	
==>::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTI <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5183	5274	
==>::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTI <==
8	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2083	2181	
==>deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=h <==
8	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2083	2181	
==>deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=h <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13564	13659	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10848	10943	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13564	13659	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10848	10943	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13564	13659	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10848	10943	
==>arams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	921	1084	
==>ass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	921	1084	
==>ass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	921	1084	
==>ass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	177	282	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	179	284	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	192	297	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	169	274	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	173	278	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1640	1734	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4803	4897	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	533	627	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2152	2246	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1023	1117	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1193	1287	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1246	1340	
==>tem B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18881	18973	
==>multi substr(Str $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Internals::substr($ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12665	12787	
==>elf.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = <==
8	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3029	3147	
==>elf.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = <==
8	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3029	3147	
==>elf.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	649	749	
==>}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	649	749	
==>}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	649	749	
==>}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23086	23183	
==>ith the other packages like "gettext" it looks like you
are supposed to pass in english text and t <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23086	23183	
==>ith the other packages like "gettext" it looks like you
are supposed to pass in english text and t <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1348	1454	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1348	1454	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1087	1192	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1812	1917	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2072	2177	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1087	1192	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1812	1917	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2072	2177	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4415	4535	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7064	7184	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4642	4759	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11091	11208	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4642	4759	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11091	11208	
==>e});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	11472	11573	
==>d1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but ma <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11472	11573	
==>d1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but ma <==
8	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3876	4138	
==>end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolat <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3919	4181	
==>end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolat <==
8	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3876	4138	
==>end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolat <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3919	4181	
==>end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolat <==
8	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4972	5194	
==>"<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            g <==
8	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4972	5194	
==>"<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            g <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	8166	8273	
==>wlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { retu <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8166	8273	
==>wlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { retu <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14935	15043	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12189	12297	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14935	15043	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12189	12297	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14935	15043	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12189	12297	
==>bute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6: <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	412	502	
==>e ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+) <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	412	502	
==>e ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+) <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	550	662	
==>diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, cir <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	550	662	
==>diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, cir <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24480	24572	
==>The command is not modified by C<Net::IRC>,
aside from appending the correct newline characte <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24480	24572	
==>The command is not modified by C<Net::IRC>,
aside from appending the correct newline characte <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39585	39674	
==>Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<htt <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24308	24397	
==>Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<htt <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39585	39674	
==>Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<htt <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24308	24397	
==>Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<htt <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	297	414	
==>BUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

= <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	297	414	
==>BUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

= <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5494	5606	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3614	3726	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5494	5606	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3614	3726	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5494	5606	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3614	3726	
==>uperclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supe <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	115	294	
==>er';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Bui <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1150	1288	
==>|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'n <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1104	1235	
==>|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3667	3768	
==>self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n", <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3667	3768	
==>self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n", <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3667	3768	
==>self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n", <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3932	4026	
==>=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes R <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3932	4026	
==>=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes R <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7078	7196	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10048	10166	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7078	7196	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10048	10166	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7078	7196	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10048	10166	
==>method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fr <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3512	3609	
==>llowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=ite <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3512	3609	
==>llowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=ite <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5998	6105	
==>$self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5998	6105	
==>$self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6722	6818	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5852	5948	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2506	2602	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2506	2602	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6722	6818	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5852	5948	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bo <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2291	2490	
==>content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2291	2490	
==>content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1570	1684	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2017	2131	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1570	1684	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2017	2131	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1570	1684	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2017	2131	
==>undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17398	17496	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14623	14721	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17398	17496	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14623	14721	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17398	17496	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14623	14721	
==>s'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interfa <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15502	15599	
==>where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - Thi <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15502	15599	
==>where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - Thi <==
8	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	448	564	
==>{ (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tr <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	448	564	
==>{ (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tr <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	106	213	
==>:Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differen <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	114	221	
==>:Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differen <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	106	213	
==>:Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differen <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	114	221	
==>:Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differen <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19822	19921	
==>ties.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It i <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19822	19921	
==>ties.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It i <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11486	11582	
==>e outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nod <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11486	11582	
==>e outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nod <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	8015	8110	
==>:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) re <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7145	7240	
==>:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) re <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8015	8110	
==>:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) re <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7145	7240	
==>:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) re <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	473	562	
==>---------------------------------------------
## accessors and mutators

method parent ($s <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	473	562	
==>---------------------------------------------
## accessors and mutators

method parent ($s <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	844	996	
==>abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3915	4067	
==>abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	844	996	
==>abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3915	4067	
==>abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1471	1615	
==>abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1471	1615	
==>abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a" <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5843	5957	
==>.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    retu <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5843	5957	
==>.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    retu <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25417	25515	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	855	953	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24181	24279	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1980	2078	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25417	25515	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	855	953	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24181	24279	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1980	2078	
==>e it and/or modify it under
the same terms as Perl itself. See L<perlgpl> and L<perlartistic> for d <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10611	10773	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8162	8324	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10611	10773	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8162	8324	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10611	10773	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8162	8324	
==>rt over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cla <==
8	/Users/nnunley/pugs/util/build_pugs.pl	4573	4690	
==>eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for target
            copy($candidates[ <==
8	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	617	729	
==>[A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'new'   {
        p <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1387	1553	
==>s export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.def <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1387	1553	
==>s export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.def <==
8	/Users/nnunley/pugs/blib6/lib/Span.pm	6548	6654	
==>say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( s <==
8	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6548	6654	
==>say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( s <==
8	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3829	3926	
==>SH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1279	1369	
==>XX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1279	1369	
==>XX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local <==
8	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1279	1369	
==>XX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local <==
8	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2199	2336	
==>t };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # W <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2199	2336	
==>t };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # W <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24564	24714	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26753	26903	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24564	24714	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26753	26903	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24564	24714	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26753	26903	
==>lf = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{ <==
8	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3405	3506	
==>of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLAS <==
8	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3405	3506	
==>of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLAS <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1426	1551	
==>y Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
} <==
8	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1426	1551	
==>y Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
} <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1787	1898	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3350	3461	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1787	1898	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3350	3461	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1787	1898	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3350	3461	
==>WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2386	2561	
==>rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                ma <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2697	2866	
==>rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2697	2866	
==>rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	455	589	
==>tion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	455	589	
==>tion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fu <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	455	589	
==>tion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fu <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2701	2798	
==>r simultaneous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interfa <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2601	2695	
==>r simultaneous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interfa <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5199	5320	
==>sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq ' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5421	5542	
==>sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7957	8061	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10880	10984	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7957	8061	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10880	10984	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7957	8061	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10880	10984	
==>ssed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'C <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7527	7662	
==>odes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7539	7674	
==>odes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	25506	25602	
==>! ) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30058	30154	
==>! ) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	26119	26214	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	27199	27294	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	31114	31209	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30671	30766	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31751	31846	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35664	35759	
==>!) returns Relation>

This method is a generic relational operator that returns a new Relation
w <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35179	35275	
==>node are matched in succession.  We
also inherit visual()Z and walk()Z<>.

However, we need to de <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2929	3041	
==>infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2929	3041	
==>infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2929	3041	
==>infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix <==
8	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	215	317	
==>n macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, fo <==
8	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	215	317	
==>n macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, fo <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1477	1569	
==>.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offset <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1477	1569	
==>.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offset <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1477	1569	
==>.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offset <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10399	10514	
==>&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{' <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10678	10793	
==>&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{' <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3045	3141	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6059	6155	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8127	8223	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3045	3141	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6059	6155	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8127	8223	
==>turns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath ( <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	774	915	
==>,
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	774	915	
==>,
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	870	984	
==>.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	870	984	
==>.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	870	984	
==>.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant <==
8	/Users/nnunley/pugs/blib6/lib/Relation.pm	38364	38458	
==>ivide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIA <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42913	43007	
==>ivide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIA <==
8	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42563	42657	
==>ivide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIA <==
8	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	100	216	
==>heck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( <==
8	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	100	216	
==>heck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1287	1398	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2850	2961	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1287	1398	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2850	2961	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1287	1398	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2850	2961	
==>obal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristi <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	2743	2855	
==>l: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2801	2913	
==>l: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3935	4040	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6584	6689	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4174	4276	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10623	10725	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4174	4276	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10623	10725	
==>tions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4177	4345	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4177	4345	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4177	4345	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body- <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6703	6857	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6703	6857	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body- <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6703	6857	
==>($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body- <==
8	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3812	3906	
==>you need something
with more power, move up to Config::Simple, Config::General or one of the
ma <==
8	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3812	3906	
==>you need something
with more power, move up to Config::Simple, Config::General or one of the
ma <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35792	35913	
==>ning -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35792	35913	
==>ning -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35792	35913	
==>ning -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13126	13242	
==>lue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** ge <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13126	13242	
==>lue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** ge <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13126	13242	
==>lue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** ge <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3760	3856	
==>mation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free softwar <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3760	3856	
==>mation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free softwar <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	602	733	
==>space_before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5489	5602	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3609	3722	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5489	5602	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3609	3722	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5489	5602	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3609	3722	
==>the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$ <==
8	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	703	801	
==>x> etc works.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { [<word>|<[\.\: <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3326	3434	
==>=> $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ em <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3543	3651	
==>=> $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ em <==
8	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6995	7134	
==>tart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Laz <==
8	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6995	7134	
==>tart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Laz <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14754	14866	
==>s is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14754	14866	
==>s is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14754	14866	
==>s is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => ' <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4518	4605	
==>0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClas <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4518	4605	
==>0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClas <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4518	4605	
==>0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClas <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	405	507	
==>leName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_ <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	405	507	
==>leName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_ <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	6836	6931	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5966	6061	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2620	2715	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2620	2715	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6836	6931	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5966	6061	
==>ludes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($m <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5256	5381	
==>ength;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3756	3881	
==>ength;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14715	14814	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14715	14814	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $l <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14715	14814	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $l <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2606	2701	
==>, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2606	2701	
==>, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2606	2701	
==>, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5127	5300	
==>ey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5127	5300	
==>ey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5127	5300	
==>ey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_ <==
8	/Users/nnunley/pugs/util/build_pugs.pl	5119	5242	
==>y things -- linking other .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/t <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	192	295	
==>erate the same data structure as
the 'ratchet' version.

- It currently passes all it's tests.

- T <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2634	2727	
==>elf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2634	2727	
==>elf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2634	2727	
==>elf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4339	4461	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6988	7110	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4568	4687	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11017	11136	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4568	4687	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11017	11136	
==>atch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $m <==
8	/Users/nnunley/pugs/blib6/lib/Set.pm	204	313	
==>t is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.ins <==
8	/Users/nnunley/pugs/ext/Set/lib/Set.pm	204	313	
==>t is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.ins <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	14242	14341	
==>nction.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag ( <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14300	14399	
==>nction.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag ( <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5020	5109	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3248	3337	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5020	5109	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3248	3337	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5020	5109	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3248	3337	
==>turn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5510	5624	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8480	8594	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5510	5624	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8480	8594	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5510	5624	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8480	8594	
==>pcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. <==
8	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	45	146	
==>ME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algori <==
8	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	45	146	
==>ME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algori <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6375	6510	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8824	8959	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6375	6510	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8824	8959	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6375	6510	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8824	8959	
==>te lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $ <==
8	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2367	2472	
==>e_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tm <==
8	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2367	2472	
==>e_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tm <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23259	23362	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1832	1935	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4123	4226	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1795	1898	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23259	23362	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1832	1935	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4123	4226	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1795	1898	
==>::KeyedText> (for error messages).

It also requires these Perl 6 classes that are in the current distri <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	413	527	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	633	747	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	413	527	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	633	747	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	413	527	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	633	747	
==>{
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
8	/Users/nnunley/pugs/blib6/lib/CGI.pm	1229	1340	
==>'&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimi <==
8	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1229	1340	
==>'&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimi <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25348	25446	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	786	884	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24112	24210	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1911	2009	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25348	25446	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	786	884	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24112	24210	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1911	2009	
==>>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
th <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4426	4519	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4681	4774	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4928	5021	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4426	4519	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4681	4774	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4928	5021	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4171	4263	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4171	4263	
==>e index(@index[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xF <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14712	14886	
==>_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14712	14886	
==>_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14712	14886	
==>_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	173	288	
==>($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_array { }


sub match <==
8	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1112	1220	
==>new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retur <==
8	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	854	962	
==>new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retur <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1112	1220	
==>new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retur <==
8	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	854	962	
==>new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retur <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	638	760	
==>unction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.It <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	638	760	
==>unction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.It <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	638	760	
==>unction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.It <==
8	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	262	368	
==>ethod finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An ext <==
8	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	262	368	
==>ethod finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An ext <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2986	3089	
==>unction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.It <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2986	3089	
==>unction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.It <==
8	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2986	3089	
==>unction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.It <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4991	5130	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5952	6091	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4991	5130	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5952	6091	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4991	5130	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5952	6091	
==>' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18838	18945	
==>uing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18838	18945	
==>uing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	345	496	
==>s 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bo <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24759	24904	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26948	27093	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24759	24904	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26948	27093	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24759	24904	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26948	27093	
==>v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $s <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	335	475	
==>s 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bo <==
8	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4440	4600	
==>ush @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\ <==
8	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4904	5064	
==>ush @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13087	13220	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13087	13220	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13087	13220	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5327	5460	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3827	3960	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1972	2105	
==>off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$le <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10551	10714	
==>r $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else <==
8	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10551	10714	
==>r $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10215	10357	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ] <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10215	10357	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ] <==
8	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10215	10357	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ] <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8094	8204	
==>uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8094	8204	
==>uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really m <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8094	8204	
==>uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really m <==
8	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4605	4727	
==>ep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cach <==
8	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4605	4727	
==>ep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cach <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9067	9187	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12040	12160	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9067	9187	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12040	12160	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9067	9187	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12040	12160	
==>package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::C <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	926	1064	
==>name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        pr <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	951	1089	
==>name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        pr <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13072	13182	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10356	10466	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13072	13182	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10356	10466	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13072	13182	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10356	10466	
==>get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instan <==
8	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5224	5446	
==>st.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ <==
8	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5224	5446	
==>st.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15993	16110	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20710	20827	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15993	16110	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20710	20827	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15993	16110	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20710	20827	
==>ultiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5899	6006	
==>5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5899	6006	
==>5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8" <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5899	6006	
==>5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8" <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1927	2032	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1927	2032	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args. <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1927	2032	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args. <==
8	/Users/nnunley/pugs/blib6/lib/Tree.pm	2343	2445	
==>ildren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child) <==
8	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2343	2445	
==>ildren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child) <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3632	3743	
==>ent
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::M <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3632	3743	
==>ent
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::M <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2739	2844	
==>e Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a, <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2739	2844	
==>e Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a, <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2739	2844	
==>e Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a, <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3558	3647	
==>retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3558	3647	
==>retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_ <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3558	3647	
==>retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4592	4733	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7104	7245	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4592	4733	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7104	7245	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4592	4733	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7104	7245	
==>n between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I a <==
8	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4802	4919	
==>{
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir int <==
8	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4802	4919	
==>{
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir int <==
8	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	334	590	
==>alues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given vers <==
8	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	334	590	
==>alues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given vers <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9217	9328	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6764	6875	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9217	9328	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6764	6875	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9217	9328	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6764	6875	
==>patcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    el <==
8	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5236	5365	
==>if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? <==
8	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5236	5365	
==>if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7637	7762	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10560	10685	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7637	7762	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10560	10685	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7637	7762	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10560	10685	
==>PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.clas <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7474	7594	
==>b { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::w <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2372	2491	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2372	2491	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) r <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2372	2491	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) r <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9467	9582	
==>= ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "a <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7223	7338	
==>b { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::w <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9467	9582	
==>= ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "a <==
8	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9467	9582	
==>= ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "a <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22164	22284	
==>(${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $ <==
8	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18585	18705	
==>(${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12418	12536	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16929	17047	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12418	12536	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16929	17047	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12418	12536	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16929	17047	
==>get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk th <==
8	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5194	5313	
==>ring
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n <==
8	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5416	5535	
==>ring
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15023	15116	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12277	12370	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15023	15116	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12277	12370	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15023	15116	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12277	12370	
==>attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{ <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4186	4291	
==>nce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp <==
8	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4186	4291	
==>nce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp <==
8	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4186	4291	
==>nce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5045	5149	
==>return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5045	5149	
==>return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MUL <==
8	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5045	5149	
==>return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MUL <==
8	/Users/nnunley/pugs/blib6/lib/Test.pm	14538	14634	
==>it's
testing needs. This module will be the code support for those needs. The
following is a list <==
8	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14596	14692	
==>it's
testing needs. This module will be the code support for those needs. The
following is a list <==
8	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7393	7521	
==>rr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => ch <==
8	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7393	7521	
==>rr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => ch <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	328	440	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
8	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	326	438	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	328	440	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	326	438	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	328	440	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
8	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	326	438	
==>y the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3826	3946	
==>FILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7202	7299	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6332	6429	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2986	3083	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2986	3083	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7202	7299	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6332	6429	
==>r);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2327	2431	
==>w "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2327	2431	
==>w "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2327	2431	
==>w "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    } <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	742	836	
==>OR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; y <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1867	1961	
==>OR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; y <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	742	836	
==>OR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; y <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1867	1961	
==>OR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; y <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13666	13796	
==>ize + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nece <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13666	13796	
==>ize + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nece <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13666	13796	
==>ize + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nece <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5912	6042	
==>ize + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nece <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4412	4542	
==>ize + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nece <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33296	33394	
==>sage is found.  Since a
program or library may wish to override the user text of another library
wh <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33296	33394	
==>sage is found.  Since a
program or library may wish to override the user text of another library
wh <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5386	5483	
==>%channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event< <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5386	5483	
==>%channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event< <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4897	4993	
==>ode, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4897	4993	
==>ode, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4897	4993	
==>ode, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gre <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12032	12124	
==>encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïv <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12032	12124	
==>encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïv <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3908	4002	
==>s currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3908	4002	
==>s currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6888	6981	
==>s currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8958	9051	
==>s currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6888	6981	
==>s currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8958	9051	
==>s currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peo <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	795	888	
==>> $Config{installbin},
        installsitebin => $Config{installsitebin} || $Config{installsbi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4423	4580	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6935	7092	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4423	4580	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6935	7092	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4423	4580	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6935	7092	
==>_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	12013	12126	
==>ref='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3748	3938	
==>er $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3380	3475	
==>TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "ele <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3380	3475	
==>TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "ele <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3380	3475	
==>TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "ele <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7840	7934	
==>should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7840	7934	
==>should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7840	7934	
==>should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	753	931	
==>match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pri <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3824	4002	
==>match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pri <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	753	931	
==>match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pri <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3824	4002	
==>match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pri <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1382	1552	
==>match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      pri <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1382	1552	
==>match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      pri <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16955	17058	
==>ILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, once <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7144	7263	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4703	4822	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7144	7263	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4703	4822	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7144	7263	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4703	4822	
==>ences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empt <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7973	8099	
==>equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $s <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28185	28281	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29196	29292	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32737	32833	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33748	33844	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31847	31943	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32894	32990	
==>s not yet been implemented.>

This method is a generic relational operator that returns a new Rel <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3228	3392	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4034	4198	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1975	2139	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3228	3392	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4034	4198	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1975	2139	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.pri <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	4608	4706	
==>It returns true if everything was ok.  Otherwise it will C<die()> with
one of the messages in the D <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19924	20150	
==>Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #w <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19924	20150	
==>Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #w <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19924	20150	
==>Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #w <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2136	2253	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifie <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2726	2843	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifie <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2136	2253	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifie <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2714	2831	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifie <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10416	10548	
==>it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10416	10548	
==>it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10416	10548	
==>it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn " <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17980	18098	
==>ptional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17018	17136	
==>ptional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17980	18098	
==>ptional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17018	17136	
==>ptional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	990	1095	
==>pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible nam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	990	1095	
==>pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible nam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	990	1095	
==>pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible nam <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	734	831	
==>AVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but n <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	734	831	
==>AVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but n <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1235	1328	
==>$self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@item <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1235	1328	
==>$self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@item <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14295	14414	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11561	11680	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14295	14414	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11561	11680	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14295	14414	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11561	11680	
==>$self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
} <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4361	4454	
==>ack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1350	1458	
==>med ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positio <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1350	1458	
==>med ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positio <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1559	1667	
==>med ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positio <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28429	28526	
==>ry to
extract them.  This method is also defined as the implicit handler when
coercing this object <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35785	35882	
==>ry to
extract them.  This method is also defined as the implicit handler when
coercing this object <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28429	28526	
==>ry to
extract them.  This method is also defined as the implicit handler when
coercing this object <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35785	35882	
==>ry to
extract them.  This method is also defined as the implicit handler when
coercing this object <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14094	14232	
==>able -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(St <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4175	4301	
==>able -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(St <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4175	4301	
==>able -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(St <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4175	4301	
==>able -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(St <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6065	6154	
==>oublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Require <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6065	6154	
==>oublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Require <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6065	6154	
==>oublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Require <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12528	12652	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14410	14534	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12528	12652	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14410	14534	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12528	12652	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14410	14534	
==>hifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        }, <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15083	15192	
==>sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18478	18578	
==>ple $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18674	18774	
==>ple $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18888	18988	
==>ple $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19090	19190	
==>ple $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19425	19525	
==>ple $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headi <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8013	8103	
==>) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statemen <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1838	1928	
==>) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statemen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8127	8243	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5686	5802	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8127	8243	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5686	5802	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8127	8243	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5686	5802	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1815	1931	
==>"Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1900	2097	
==>match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2322	2512	
==>match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1838	2028	
==>match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2322	2512	
==>match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	769	919	
==>.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	769	919	
==>.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	769	919	
==>.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3710	3882	
==>shift)->superclass;
        },                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14880	15000	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19579	19699	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14880	15000	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19579	19699	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14880	15000	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19579	19699	
==>r $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9427	9597	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14971	15141	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9427	9597	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14965	15135	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2383	2492	
==>ribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2383	2492	
==>ribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2383	2492	
==>ribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39120	39235	
==>cter
class.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class spec <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	636	736	
==>$self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	636	736	
==>$self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	636	736	
==>$self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6893	6989	
==>}
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6893	6989	
==>}
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6893	6989	
==>}
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	665	772	
==>$class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	665	772	
==>$class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	665	772	
==>$class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other th <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38436	38530	
==>se>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42985	43079	
==>se>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42635	42729	
==>se>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND EN <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8662	8753	
==>e::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3681	3783	
==>tput to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_outp <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3681	3783	
==>tput to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_outp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1927	2027	
==>on-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1927	2027	
==>on-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1927	2027	
==>on-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3, <==
7	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3306	3397	
==>config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE' <==
7	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3306	3397	
==>config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3474	3592	
==>perclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3474	3592	
==>perclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3474	3592	
==>perclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	224	332	
==>lf = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	338	440	
==>be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	338	440	
==>be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	338	440	
==>be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VU <==
7	/Users/nnunley/pugs/util/package-osx.pl	11319	11483	
==>Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Successfully removed \$file\\n";
            \}
        \}
    );
    @f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33796	33931	
==>Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33796	33931	
==>Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33796	33931	
==>Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3079	3213	
==>a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Mat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3079	3213	
==>a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Mat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3079	3213	
==>a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7468	7622	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5027	5181	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7468	7622	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5027	5181	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7468	7622	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5027	5181	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1163	1317	
==>$nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7448	7566	
==>eturns Relation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23840	23963	
==>age Regexp::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3502	3611	
==>elf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3502	3611	
==>elf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3502	3611	
==>elf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12938	13039	
==>elf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12938	13039	
==>elf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12938	13039	
==>elf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8761	8896	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6314	6449	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8761	8896	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6314	6449	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8761	8896	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6314	6449	
==>f->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14059	14157	
==>next steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.com/Rx/paper/

  Some f <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	4620	4733	
==>rse-YAML', $TEMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    wai <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10179	10278	
==>tmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10179	10278	
==>tmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10179	10278	
==>tmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10190	10287	
==>L::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Ty <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10190	10287	
==>L::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Ty <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10190	10287	
==>L::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Ty <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14546	14696	
==>nd => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14546	14696	
==>nd => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14546	14696	
==>nd => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	310	410	
==>s Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> } <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	310	410	
==>s Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> } <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	944	1038	
==>g.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	944	1038	
==>g.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5114	5304	
==>pture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5126	5316	
==>pture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	1591	1733	
==>"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	11509	11637	
==>urrent = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    me <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11509	11637	
==>urrent = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    me <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7036	7135	
==>'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_ass <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7036	7135	
==>'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_ass <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	27	126	
==>trict;
use warnings;

use JIB::Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

use File::c <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23745	23839	
==>tf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference be <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22518	22612	
==>tf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference be <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23745	23839	
==>tf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference be <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22518	22612	
==>tf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference be <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1103	1197	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:a <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3400	3494	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:a <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1621	1728	
==>d to the rest of its
children.

=item Map

A map is like a hash - it has keys and values.

C<Env> is a map - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5780	5879	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8750	8849	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5780	5879	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8750	8849	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5780	5879	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8750	8849	
==>cated in the other ::make_*_method subs below
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1505	1757	
==>le::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packag <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4345	4461	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6857	6973	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4345	4461	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6857	6973	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4345	4461	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6857	6973	
==>->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9092	9274	
==>ist)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        st <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9092	9274	
==>ist)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        st <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9092	9274	
==>ist)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        st <==
7	/Users/nnunley/pugs/util/build_pugs.pl	2814	2930	
==>out or die "open: $out: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gz <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17544	17658	
==>Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17544	17658	
==>Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17544	17658	
==>Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7475	7644	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5034	5203	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7475	7644	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5034	5203	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7475	7644	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5034	5203	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1170	1339	
==>d;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25478	25648	
==>ar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26136	26306	
==>ar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25757	25927	
==>ar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26415	26585	
==>ar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8549	8677	
==>o subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12458	12584	
==>o subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12458	12584	
==>o subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1057	1166	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1057	1166	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1057	1166	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4626	4726	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3753	3853	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4626	4726	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3753	3853	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	444	557	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	664	777	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	444	557	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	664	777	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	444	557	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	664	777	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).t <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9632	9739	
==>= "details") {
	elem.className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4205	4319	
==>{ $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4205	4319	
==>{ $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4205	4319	
==>{ $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17122	17216	
==>I SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17122	17216	
==>I SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17122	17216	
==>I SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$x <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9834	9927	
==>(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the right return value from $iFoo s <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4066	4250	
==>odes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submetho <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4066	4250	
==>odes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submetho <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2993	3136	
==>t_rule: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6326	6426	
==>ule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6534	6633	
==>lf => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6534	6633	
==>lf => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6534	6633	
==>lf => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @ <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1506	1613	
==>l_version_from($file);

    # The remaining probes read from POD sections; if the file
    # has an accompan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6586	6692	
==>lf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6586	6692	
==>lf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6586	6692	
==>lf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3956	4059	
==>' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3956	4059	
==>' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3956	4059	
==>' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	692	810	
==>g = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	692	810	
==>g = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	692	810	
==>g = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pre <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16196	16309	
==>.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type he <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16196	16309	
==>.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type he <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19900	19996	
==>e user name and the password.  In scalar context it will
return I<"uname:password"> as a single s <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19900	19996	
==>e user name and the password.  In scalar context it will
return I<"uname:password"> as a single s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9793	9905	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9793	9905	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9793	9905	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatc <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6555	6665	
==>$array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6:: <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6555	6665	
==>$array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6:: <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1335	1444	
==>nd Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Co <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1335	1444	
==>nd Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Co <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5504	5616	
==>th, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{prefix} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13394	13500	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10678	10784	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13394	13500	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10678	10784	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13394	13500	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10678	10784	
==>ce_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5428	5542	
==>>{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4665	4765	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7601	7701	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4665	4765	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7601	7701	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4665	4765	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7601	7701	
==>$associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must as <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16495	16596	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21212	21313	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16495	16596	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21212	21313	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16495	16596	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21212	21313	
==>NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all t <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6829	6925	
==>d2 JIB::Utils->_mode_plus_w( file => '/path/to/file' );

Sets the +w bit for the file.

Returns t <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1241	1395	
==>0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_e <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4480	4634	
==>0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1241	1395	
==>0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4480	4634	
==>0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	981	1094	
==>PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	981	1094	
==>PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	981	1094	
==>PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6779	6886	
==>"syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax erro <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6791	6898	
==>"syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax erro <==
7	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1767	1871	
==>ib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEF <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12853	12957	
==>mfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, * <==
7	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1767	1871	
==>ib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEF <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12853	12957	
==>mfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, * <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12853	12957	
==>mfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, * <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15837	15957	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13087	13207	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15837	15957	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13087	13207	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15837	15957	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13087	13207	
==>tArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    re <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	411	508	
==>uft
of wrapping a map and join around the macro string.  But perhaps there
should be a Helpers::jo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25748	25883	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27943	28078	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25748	25883	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27943	28078	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25748	25883	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27943	28078	
==>$self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	24588	24678	
==>ew(
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5870	5978	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3990	4098	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5870	5978	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3990	4098	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5870	5978	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3990	4098	
==>attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	27871	27970	
==>r, you may want to have it run by a different executable, such as
a threading perl, or a different v <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8458	8613	
==>? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8458	8613	
==>? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8458	8613	
==>? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6: <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1560	1675	
==>d from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2222	2337	
==>d from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	733	826	
==>rray
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	733	826	
==>rray
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19812	19913	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16951	17052	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19812	19913	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16951	17052	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19812	19913	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16951	17052	
==>his reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6128	6311	
==>} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6128	6311	
==>} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6128	6311	
==>} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4528	4655	
==>$_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstri <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4528	4655	
==>$_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstri <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4528	4655	
==>$_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstri <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	47	132	
==>6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Co <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4531	4653	
==>hod');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher) returns opaque {
    &dispatcher.()
}

(closure <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9233	9342	
==>) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11548	11657	
==>) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26749	26854	
==>sAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAto <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4276	4370	
==>__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('ne <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4276	4370	
==>__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('ne <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4276	4370	
==>__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4500	4612	
==>pe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4500	4612	
==>pe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4500	4612	
==>pe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1736	1831	
==>----- the following were included only for performance reasons,

# because they are too frequent <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	339	433	
==>----- the following were included only for performance reasons,
# because they are too frequent <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1664	1758	
==>----- the following were included only for performance reasons,
# because they are too frequent <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	350	444	
==>----- the following were included only for performance reasons,
# because they are too frequent <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1540	1661	
==>{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $insta <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1540	1661	
==>{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $insta <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1540	1661	
==>{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $insta <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24674	24770	
==>sfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23438	23534	
==>sfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24674	24770	
==>sfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23438	23534	
==>sfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6551	6672	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9000	9121	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6551	6672	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9000	9121	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6551	6672	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9000	9121	
==>start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instant <==
7	/Users/nnunley/pugs/util/version_h.pl	2369	2469	
==>ist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $version_h be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13629	13749	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10913	11033	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13629	13749	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10913	11033	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13629	13749	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10913	11033	
==>tr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method tab <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	680	785	
==>ti Num::round_half_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9605	9723	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7152	7270	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9605	9723	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7152	7270	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9605	9723	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7152	7270	
==>ndant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatc <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5789	5890	
==>racter)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_cl <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	27628	27722	
==>er, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous functi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32180	32274	
==>er, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous functi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31272	31366	
==>er, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous functi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29006	29099	
==>ns Relation::Example>

This method is a generic relational operator that returns a new Relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29654	29747	
==>ns Relation::Example>

This method is a generic relational operator that returns a new Relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30815	30908	
==>ns Relation::Example>

This method is a generic relational operator that returns a new Relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34872	34965	
==>ns Relation::Example>

This method is a generic relational operator that returns a new Relatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2178	2274	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2583	2679	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2178	2274	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2583	2679	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2178	2274	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2583	2679	
==>backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(fu <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22534	22627	
==>C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_type(C,to_lo <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5484	5580	
==>proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subs <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4614	4710	
==>proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subs <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5629	5725	
==>b infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} : <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5484	5580	
==>proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subs <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4614	4710	
==>proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5629	5725	
==>b infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} : <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5629	5725	
==>b infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} : <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	397	585	
==>*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        give <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	397	585	
==>*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        give <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12063	12249	
==>oin        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivia <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15540	15726	
==>oin        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivia <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9474	9636	
==>0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9474	9636	
==>0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9474	9636	
==>0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1678	1833	
==>compile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2946	3071	
==>exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2946	3071	
==>exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2946	3071	
==>exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            p <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1222	1338	
==>',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1222	1338	
==>',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9257	9360	
==>s::Switches, $ENV{HARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8339	8544	
==>Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $e <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8339	8544	
==>Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $e <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8339	8544	
==>Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $e <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21121	21218	
==>s a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are no <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20029	20126	
==>s a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are no <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21121	21218	
==>s a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are no <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20029	20126	
==>s a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are no <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6082	6221	
==>reports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2303	2434	
==>" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2303	2434	
==>" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2303	2434	
==>" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	478	594	
==>x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	478	594	
==>x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	478	594	
==>x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2136	2306	
==>d $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _ind <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2136	2306	
==>d $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _ind <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2136	2306	
==>d $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _ind <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1504	1594	
==>::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1504	1594	
==>::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1504	1594	
==>::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7918	8006	
==>fier_scope(M,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22069	22274	
==>n $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22069	22274	
==>n $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22069	22274	
==>n $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3177	3306	
==>bute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3177	3306	
==>bute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3177	3306	
==>bute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bod <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2731	2840	
==>ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	962	1078	
==>ndency checker?
sub pretty_print {
    my $self    = shift;
    my $struct  = $self->struct;
    
    return $self->_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	942	1054	
==>ER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	942	1054	
==>ER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	942	1054	
==>ER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	58	165	
==>:Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::Run::C <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14127	14214	
==>ttribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14127	14214	
==>ttribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14127	14214	
==>ttribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9474	9618	
==>' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: r <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5815	5959	
==>' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6664	6808	
==>' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: r <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9257	9363	
==>self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11572	11678	
==>self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4179	4279	
==>pl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.i <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4179	4279	
==>pl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4632	4763	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7281	7412	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4853	4979	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11302	11428	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4853	4979	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11302	11428	
==>rn Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    m <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	532	630	
==>ecify a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3985	4095	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6634	6744	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4223	4330	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10672	10779	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4223	4330	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10672	10779	
==>a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pu <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2059	2163	
==>$class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2148	2254	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2148	2254	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2148	2254	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{' <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4653	4758	
==>&& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5312	5417	
==>&& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4653	4758	
==>&& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5312	5417	
==>&& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	3468	3597	
==>unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($ <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3468	3597	
==>unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	9743	9852	
==>g ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13220	13329	
==>g ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12492	12601	
==>g ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3208	3302	
==>Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3208	3302	
==>Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	20098	20234	
==>fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => cond(
					if => comb(
						fun => comb(
							fun = <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4507	4623	
==>ame}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $ar <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	2248	2363	
==>ame}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $ar <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32222	32320	
==>ppear only once in
the result.  With any 2 relations, the result is the same regardless of
which is <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36772	36870	
==>ppear only once in
the result.  With any 2 relations, the result is the same regardless of
which is <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36062	36160	
==>ppear only once in
the result.  With any 2 relations, the result is the same regardless of
which is <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1058	1154	
==>s subject to change
in incompatible ways.  It is otherwise stable.

Test::Harness is limited to p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8095	8228	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5654	5787	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8095	8228	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5654	5787	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8095	8228	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5654	5787	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1783	1916	
==>t ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4808	4935	
==>y $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13233	13360	
==>y $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15844	15971	
==>y $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17332	17459	
==>y $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22015	22142	
==>y $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10408	10499	
==>n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?" <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11143	11234	
==>n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12522	12637	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14404	14519	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12522	12637	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14404	14519	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12522	12637	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14404	14519	
==>lf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            re <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8658	8753	
==>method if you've built your own strap subclass,
such as a PHP interpreter for a PHP-based strap. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6185	6300	
==>::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6185	6300	
==>::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6185	6300	
==>::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3250	3364	
==>::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3250	3364	
==>::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3250	3364	
==>::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_ <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	581	680	
==>s;

=over

=item *

unbound public and private methods, including the signatures of these
methods

= <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5368	5469	
==>RE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5368	5469	
==>RE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5368	5469	
==>RE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a f <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	581	674	
==>c(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitiv <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3131	3224	
==>v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	581	674	
==>c(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitiv <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	581	674	
==>c(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitiv <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8088	8225	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5647	5784	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8088	8225	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5647	5784	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8088	8225	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5647	5784	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1776	1913	
==>eject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our n <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	765	894	
==>w
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	747	871	
==>w
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $p <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	747	871	
==>w
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $p <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23838	23938	
==>between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE m <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22611	22711	
==>between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE m <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23838	23938	
==>between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE m <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22611	22711	
==>between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4169	4331	
==>_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5490	5652	
==>_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4169	4331	
==>_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5478	5640	
==>_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	503	629	
==>eturns Str {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Need to a <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1192	1302	
==>tifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+ <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1192	1302	
==>tifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23030	23127	
==>DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROP <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25218	25311	
==>change to an object when the permutation of its
arguments and any invocant object's attributes <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11349	11442	
==>change to an object when the permutation of its
arguments and any invocant object's attributes <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14622	14715	
==>change
to an object when the permutation of its arguments and any invocant
object's attributes <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25218	25311	
==>change to an object when the permutation of its
arguments and any invocant object's attributes <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11349	11442	
==>change to an object when the permutation of its
arguments and any invocant object's attributes <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14622	14715	
==>change
to an object when the permutation of its arguments and any invocant
object's attributes <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9112	9226	
==>n alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @key <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12965	13075	
==>n alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @key <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12965	13075	
==>n alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @key <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10356	10455	
==>to the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alread <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8249	8348	
==>to the set. Returns the number of items inserted.

It is not fatal to insert an item which is alread <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10356	10455	
==>to the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alread <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8249	8348	
==>to the set. Returns the number of items inserted.

It is not fatal to insert an item which is alread <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7616	7756	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5175	5315	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7616	7756	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5175	5315	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7616	7756	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5175	5315	
==>y %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one ma <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29583	29682	
==>er this node is omitted from the parse tree.  Certain objects
do not need to appear in the tree, but <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12193	12350	
==>_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capture( '$name', \ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12309	12449	
==>yntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8585	8725	
==>yntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9420	9560	
==>yntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9788	9897	
==>f ( $taint || $self->{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push @derived_switches, m <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8544	8647	
==>users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8544	8647	
==>users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4032	4151	
==>"open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{ <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2847	2947	
==>support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2847	2947	
==>support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18470	18569	
==>on::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading = <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18666	18765	
==>on::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading = <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18880	18979	
==>on::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading = <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19082	19181	
==>on::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading = <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19417	19516	
==>on::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading = <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11592	11703	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2586	2697	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7680	7791	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11592	11703	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2586	2697	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7680	7791	
==>TH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_EL <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	10324	10418	
==>o {
		my $a = type::variable::free->new;
		type::operator::arrow->new(
			type::operator::nary- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11661	11777	
==>ub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2144	2258	
==>ub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8916	9030	
==>ub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2144	2258	
==>ub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8916	9030	
==>ub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35494	35590	
==>mes elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a s <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35494	35590	
==>mes elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3928	4033	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6577	6682	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4167	4269	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10616	10718	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4167	4269	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10616	10718	
==>le functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $s <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27495	27587	
==>s module contains the object definitions for F<Regexp::Parser>.

=head2 Inheritance

All F<Re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7671	7790	
==>bug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12012	12131	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2469	2586	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9241	9358	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7411	7528	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2469	2586	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9241	9358	
==>bug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6573	6680	
==>houtNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6573	6680	
==>houtNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6573	6680	
==>houtNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28206	28302	
==>ented.>

This method is a generic relational operator that returns a new Relation
which is the sa <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29217	29313	
==>ented.>

This method is a generic relational operator that returns a new Relation
which is the sa <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32758	32854	
==>ented.>

This method is a generic relational operator that returns a new Relation
which is the sa <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33769	33865	
==>ented.>

This method is a generic relational operator that returns a new Relation
which is the sa <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1357	1476	
==>+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+- <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3653	3772	
==>+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1357	1476	
==>+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3653	3772	
==>+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+- <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	798	911	
==>es = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  Li <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2532	2625	
==>m Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

cl <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2532	2625	
==>m Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

cl <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8834	8943	
==>nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8834	8943	
==>nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	12	110	
==>0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*EN <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	70	168	
==>0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*EN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7573	7666	
==>($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB revers <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7573	7666	
==>($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB revers <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7573	7666	
==>($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB revers <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15795	15922	
==>ueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $tar <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15795	15922	
==>ueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $tar <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7951	8059	
==>ate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7963	8071	
==>ate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3562	3661	
==>Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  p <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3562	3661	
==>Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  p <==
7	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1148	1245	
==>p Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This program is free s <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1213	1339	
==>CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9348	9453	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6895	7000	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9348	9453	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6895	7000	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9348	9453	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6895	7000	
==>eadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	14971	15079	
==>)
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_w <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18448	18556	
==>)
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_w <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17864	17972	
==>)
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_w <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3659	3764	
==>r-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3843	3948	
==>r-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	133	237	
==>r;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	133	237	
==>r;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10064	10204	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7615	7755	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10064	10204	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7615	7755	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10064	10204	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7615	7755	
==>tor($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stac <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23407	23488	
==>---------------------------------------------------------------------

replace_at_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1345	1448	
==>me2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5846	5942	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8816	8912	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5846	5942	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8816	8912	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5846	5942	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8816	8912	
==>od if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4759	4893	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2946	3080	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4759	4893	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2946	3080	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4759	4893	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2946	3080	
==>t do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	416	521	
==>ig::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake') <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13852	13999	
==>rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            pus <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3965	4096	
==>rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pus <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3965	4096	
==>rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pus <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3965	4096	
==>rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pus <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9428	9557	
==>nt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9428	9557	
==>nt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9428	9557	
==>nt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11462	11578	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2974	3090	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11462	11578	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2974	3090	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11462	11578	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2974	3090	
==>new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].ST <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12498	12590	
==>) memory management, via reverse
  engineering (almost completely undocumented source), in th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	625	756	
==>ction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	625	756	
==>ction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	625	756	
==>ction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = { <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6490	6588	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) re <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5620	5718	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) re <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6490	6588	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) re <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5620	5718	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) re <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13327	13423	
==>erlguts, which limits the range of
  perl versions it will work with, and raises maintenance conc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12567	12666	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10118	10217	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12567	12666	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10118	10217	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12567	12666	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10118	10217	
==>ass);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) { <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15105	15201	
==>atch at the
beginning and end of a "word", respectively.  C<< /</ >> is equivalent to
C</(?!\w)(? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10447	10616	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7998	8167	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10447	10616	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7998	8167	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10447	10616	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7998	8167	
==>tor is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start ove <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7446	7582	
==>t      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    x <==
7	/Users/nnunley/pugs/util/testgraph.pl	136	227	
==>LMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, qw(inlinecs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4284	4374	
==>blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_S <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4284	4374	
==>blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_S <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4284	4374	
==>blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6561	6648	
==>dd_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6561	6648	
==>dd_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6561	6648	
==>dd_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7017	7161	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4576	4720	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7017	7161	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4576	4720	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7017	7161	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4576	4720	
==>ke_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28037	28133	
==>f: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (symbol new @:MRO) <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13972	14135	
==>g.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4073	4212	
==>g.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4073	4212	
==>g.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4073	4212	
==>g.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $ <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10921	11034	
==>ob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    lastpos = length target
    $S0 = substr target, pos, 2
    if $S <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1947	2044	
==>n &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1947	2044	
==>n &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7642	7759	
==>$jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7642	7759	
==>$jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7642	7759	
==>$jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	506	621	
==>tions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 h <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	477	592	
==>tions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 h <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	506	621	
==>tions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 h <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	506	621	
==>tions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 h <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2473	2591	
==>efined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7567	7685	
==>efined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2473	2591	
==>efined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7567	7685	
==>efined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	396	504	
==>{
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	396	504	
==>{
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	396	504	
==>{
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    ret <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	96	222	
==>( String $name ) { "Hallo, $name!".say; }
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=aufrufen po <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	560	658	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	882	980	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1261	1359	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	560	658	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	882	980	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1261	1359	
==>my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backs <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12466	12616	
==>host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # U <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12466	12616	
==>host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # U <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2493	2614	
==>ndef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2493	2614	
==>ndef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2493	2614	
==>ndef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", t <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9686	9780	
==>least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set c <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9686	9780	
==>least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	137	260	
==>{
        my $c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5944	6042	
==>array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5944	6042	
==>array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5944	6042	
==>array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2265	2360	
==>f constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2265	2360	
==>f constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2265	2360	
==>f constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	125	237	
==>_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	125	237	
==>_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	125	237	
==>_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4106	4201	
==>Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4106	4201	
==>Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4106	4201	
==>Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17444	17539	
==>lecase" operation on the first character of the string.


=item capitalize

 multi Str::capitali <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8980	9090	
==>xample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9778	9888	
==>xample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10687	10797	
==>xample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11513	11623	
==>xample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13573	13670	
==>%{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13573	13670	
==>%{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13573	13670	
==>%{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3236	3444	
==>=> $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3109	3310	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12591	12738	
==>"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expand <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8865	9012	
==>"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expand <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9700	9847	
==>"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expand <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21463	21561	
==>GHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you ca <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21463	21561	
==>GHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1870	1972	
==>, "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1870	1972	
==>, "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1870	1972	
==>, "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	8	106	
==>Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_B <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	8	106	
==>Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_B <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	8	106	
==>Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_B <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	418	515	
==>uming:delimiter(' ');


# copied from S29draft.pod 8651.
multi  List::map (Code $expression ; *@va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1972	2094	
==>$self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1972	2094	
==>$self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1972	2094	
==>$self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            : <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1090	1202	
==>est).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> does l <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1441	1551	
==>est).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does l <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1048	1158	
==>est).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does l <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1441	1551	
==>est).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	278	384	
==>il2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	278	384	
==>il2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	278	384	
==>il2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5628	5731	
==>Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mul <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4758	4861	
==>Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mul <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5628	5731	
==>Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mul <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4758	4861	
==>Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17307	17406	
==>ng benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manne <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17307	17406	
==>ng benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manne <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6548	6641	
==>tpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6548	6641	
==>tpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2684	2776	
==>ck)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internal <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2684	2776	
==>ck)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internal <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2684	2776	
==>ck)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1818	1966	
==>dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obj <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1818	1966	
==>dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obj <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1818	1966	
==>dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obj <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3199	3306	
==>=> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6324	6431	
==>=> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3199	3306	
==>=> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6324	6431	
==>=> $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24523	24690	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26712	26879	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24523	24690	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26712	26879	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24523	24690	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26712	26879	
==>warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->u <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2564	2668	
==>ar::Base';\n" .
            "use Pugs::Runtime::Match::Ratchet; # overload doesn't work without this ???\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4291	4414	
==>p::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cm <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4291	4414	
==>p::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cm <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4291	4414	
==>p::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cm <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1138	1230	
==>ns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1133	1225	
==>ns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1138	1230	
==>ns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1133	1225	
==>ns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5598	5703	
==>om_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from th <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5598	5703	
==>om_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from th <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5598	5703	
==>om_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from th <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3814	3908	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4147	4241	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3814	3908	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4147	4241	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28877	29040	
==>) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28877	29040	
==>) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28877	29040	
==>) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package P <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5893	6001	
==>ter       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return P <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5893	6001	
==>ter       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return P <==
7	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	315	410	
==>d>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variabl <==
7	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	315	410	
==>d>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variabl <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8878	9032	
==>ext unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capt <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5238	5392	
==>ext unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capt <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6087	6241	
==>ext unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capt <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6948	7042	
==>:matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6948	7042	
==>:matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6948	7042	
==>:matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for < <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3209	3324	
==>|| '');

    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6113	6233	
==>fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6113	6233	
==>fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6113	6233	
==>fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't c <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1033	1147	
==>oint
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = cat <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1907	2021	
==>oint
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = cat <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1033	1147	
==>oint
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = cat <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1907	2021	
==>oint
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = cat <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5393	5495	
==>{$_}          } qw<pugs_version pugs_revision osname runcore timestamp duration>),
    (map { $smoke{su <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7040	7135	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6170	6265	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2824	2919	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2824	2919	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7040	7135	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6170	6265	
==>*infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix: <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	311	422	
==>illed from the archive name
    ### XXX maybe metainfo name later? requires peeking in, might be a
    ### catch <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2268	2372	
==>nctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { u <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2268	2372	
==>nctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2780	2871	
==>.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join( <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6232	6323	
==>.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2780	2871	
==>.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2780	2871	
==>.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3875	3975	
==>:Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPT <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3875	3975	
==>:Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPT <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3875	3975	
==>:Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPT <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8189	8281	
==>@b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) ret <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7319	7411	
==>@b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8189	8281	
==>@b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7319	7411	
==>@b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12813	12916	
==>lass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12813	12916	
==>lass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12813	12916	
==>lass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24072	24171	
==>ct of
  this rule is to avoid loops between a client automatically sending something
  in response t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22845	22944	
==>ct of
  this rule is to avoid loops between a client automatically sending something
  in response t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24072	24171	
==>ct of
  this rule is to avoid loops between a client automatically sending something
  in response t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22845	22944	
==>ct of
  this rule is to avoid loops between a client automatically sending something
  in response t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37360	37500	
==>os+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37360	37500	
==>os+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37360	37500	
==>os+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	902	1012	
==>k! ghc doesn't spot that the include file was changed,
    #      so we need to mark as stale some obj files to <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	10	106	
==>:Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	10	106	
==>:Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	10	106	
==>:Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.C <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32227	32369	
==>r'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32882	33024	
==>r'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29435	29576	
==>r'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31085	31226	
==>r'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50528	50669	
==>r'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	675	776	
==>) should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error mes <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	675	776	
==>) should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error mes <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3484	3815	
==>,
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                el <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3484	3815	
==>,
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6283	6482	
==>,
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            el <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6283	6482	
==>,
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            el <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6283	6482	
==>,
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            el <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18427	18523	
==>put
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the on <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18427	18523	
==>put
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the on <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12210	12306	
==>nitialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16790	16886	
==>nitialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5026	5122	
==>or => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12210	12306	
==>nitialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16790	16886	
==>nitialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5026	5122	
==>or => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5026	5122	
==>or => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9971	10116	
==>\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_ca <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10250	10395	
==>\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_ca <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4159	4284	
==>{
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4159	4284	
==>{
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11628	11748	
==>rams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11628	11748	
==>rams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11628	11748	
==>rams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6691	6803	
==>on);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $! <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6691	6803	
==>on);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $! <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34091	34187	
==>> does not have
an identical header to the invocant relation.  This method has aliases
named C<mi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38641	38737	
==>> does not have
an identical header to the invocant relation.  This method has aliases
named C<mi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38102	38198	
==>> does not have
an identical header to the invocant relation.  This method has aliases
named C<mi <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40412	40502	
==>o preserving this original copyright notice and other
credits. Locale::KeyedText is distrib <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40412	40502	
==>o preserving this original copyright notice and other
credits. Locale::KeyedText is distrib <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12213	12303	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9770	9860	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12213	12303	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9770	9860	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12213	12303	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9770	9860	
==>dd_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	77	204	
==>';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	77	204	
==>';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	77	204	
==>';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_b <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7682	7798	
==>my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    return $self;
  }
}


{
  package Regexp::Parser:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2174	2267	
==>lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2174	2267	
==>lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2174	2267	
==>lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24311	24448	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25574	25711	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24590	24727	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25853	25990	
==>eop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3314	3401	
==>class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3314	3401	
==>class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3314	3401	
==>class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => me <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6072	6208	
==>end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6072	6208	
==>end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6072	6208	
==>end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    e <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8098	8197	
==>hanged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joine <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8098	8197	
==>hanged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joine <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8390	8487	
==>hanged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joine <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8390	8487	
==>hanged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joine <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2700	2822	
==>$next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2700	2822	
==>$next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2700	2822	
==>$next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16432	16550	
==>erms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if subs <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16432	16550	
==>erms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if subs <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25710	25805	
==>t allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that yo <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25710	25805	
==>t allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that yo <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	17612	17769	
==>= substr($fmt,$fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3417	3506	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6431	6520	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8499	8588	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3417	3506	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6431	6520	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8499	8588	
==>`no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Boo <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3290	3415	
==>e("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.lengt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3290	3415	
==>e("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.lengt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3290	3415	
==>e("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.lengt <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4021	4122	
==>ear, month => $month, day => $day )`

Returns a date object for the given values.  The month and day d <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4021	4122	
==>ear, month => $month, day => $day )`

Returns a date object for the given values.  The month and day d <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3967	4061	
==>abase portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also de <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3967	4061	
==>abase portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8534	8702	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6087	6255	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8534	8702	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6087	6255	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8534	8702	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6087	6255	
==>')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3047	3147	
==>= pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2843	2962	
==>" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2843	2962	
==>" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2843	2962	
==>" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	765	863	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult) <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	823	921	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult) <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	765	863	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult) <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	823	921	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult) <==
7	/Users/nnunley/pugs/util/package-osx.pl	10864	11014	
==>ot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ / <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1127	1254	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1127	1254	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1127	1254	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	206	332	
==>,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	206	332	
==>,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	206	332	
==>,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a su <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3231	3394	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4037	4200	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1978	2141	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3231	3394	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4037	4200	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1978	2141	
==>-> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print <==
7	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1861	1970	
==>flat_hash hash ihash)),
        (map { $_ => '@' } qw(flat_array array iarray)),
      );

sub generate_attrib <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1230	1336	
==>t routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->ca <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1230	1336	
==>t routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	939	1041	
==>rns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exce <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	939	1041	
==>rns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exce <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	939	1041	
==>rns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exce <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10871	10972	
==>id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'fu <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10871	10972	
==>id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7655	7811	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5214	5370	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7655	7811	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5214	5370	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7655	7811	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5214	5370	
==>q}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Ho <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	780	921	
==>(keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    }
}

sub base_path {
    my $self = shift;
    $self->{_t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5289	5391	
==>}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $po <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5289	5391	
==>}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $po <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5289	5391	
==>}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $po <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5070	5167	
==>y::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, an <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5070	5167	
==>y::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, an <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7316	7399	
==>nt("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7316	7399	
==>nt("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15092	15253	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         rul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15371	15532	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         rul <==
7	/Users/nnunley/pugs/blib6/lib/fp.pm	812	919	
==>$a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { retur <==
7	/Users/nnunley/pugs/ext/fp/lib/fp.pm	812	919	
==>$a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14101	14203	
==>'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14101	14203	
==>'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14101	14203	
==>'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	145	246	
==>t I'm up to".

It passes most (95%) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverag <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4997	5095	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3225	3323	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4997	5095	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3225	3323	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4997	5095	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3225	3323	
==>f, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	481	580	
==>version to native value
sub to_native { shift }

# keep this here for a consistent interface
sub to_ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1329	1433	
==>0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp {
    my $var = emit(get_data($_[0], '$<v <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	791	882	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1311	1402	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	791	882	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1311	1402	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	791	882	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1311	1402	
==>) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autod <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	12100	12196	
==>Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4238	4334	
==>::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12158	12254	
==>Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet ha <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4238	4334	
==>::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4238	4334	
==>::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16227	16320	
==>ameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to em <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16227	16320	
==>ameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to em <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3199	3385	
==>ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
} <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3199	3385	
==>ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
} <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5033	5178	
==>robably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events< <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5033	5178	
==>robably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events< <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2368	2467	
==>w PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2368	2467	
==>w PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2368	2467	
==>w PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2748	2923	
==>unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2748	2923	
==>unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2748	2923	
==>unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12597	12742	
==>_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12597	12742	
==>_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12597	12742	
==>_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7337	7436	
==>rid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\)?\s*\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5876	5986	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8846	8956	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5876	5986	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8846	8956	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5876	5986	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8846	8956	
==>hod->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1754	1858	
==>ue) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($s <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1410	1548	
==>is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_star <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4649	4787	
==>is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_star <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1410	1548	
==>is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_star <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4649	4787	
==>is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_star <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1316	1431	
==>.FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i+ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1316	1431	
==>.FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i+ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1316	1431	
==>.FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i+ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	41	152	
==>se lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	41	152	
==>se lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	41	152	
==>se lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/li <==
7	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	873	982	
==>q 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	840	949	
==>q 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23614	23713	
==>om the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:.. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25458	25555	
==>a table, where each of its tuples is
a row, and each attribute is a column, but a Relation::Exampl <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	514	624	
==>L::require::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::lon <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6773	6869	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5903	5999	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2557	2653	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2557	2653	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6773	6869	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5903	5999	
==>ub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1483	1609	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3046	3172	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1483	1609	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3046	3172	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1483	1609	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3046	3172	
==>ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = unde <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1257	1360	
==>can (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1841	1973	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	953	1085	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1841	1973	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	953	1085	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1841	1973	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	953	1085	
==>ams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params whi <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	11987	12107	
==>");
      $output .= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4477	4583	
==>lude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4477	4583	
==>lude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4477	4583	
==>lude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4274	4379	
==>if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4491	4596	
==>if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	6004	6107	
==>empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::I <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6004	6107	
==>empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::I <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	932	1054	
==>ty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $se <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1057	1172	
==>$ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1057	1172	
==>$ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4250	4352	
==>(Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (S <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3377	3479	
==>(Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (S <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4250	4352	
==>(Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (S <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3377	3479	
==>(Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14935	15084	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14935	15084	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14935	15084	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19634	19782	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19634	19782	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19634	19782	
==>D {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DES <==
7	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	173	282	
==>::MiniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          = <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5629	5774	
==>e>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            nex <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5641	5786	
==>e>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            nex <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4364	4474	
==>, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are sti <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4364	4474	
==>, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are sti <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4873	4981	
==>, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are sti <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4873	4981	
==>, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are sti <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25746	25841	
==>gmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MB <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2419	2531	
==>se @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    ::= Code(A <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9385	9490	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6932	7037	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9385	9490	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6932	7037	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9385	9490	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6932	7037	
==>->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_ma <==
7	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	521	635	
==>ti sub collect_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $norma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8473	8572	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6026	6125	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8473	8572	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6026	6125	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8473	8572	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6026	6125	
==>= shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24436	24587	
==>:capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25699	25850	
==>:capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24715	24866	
==>:capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25978	26129	
==>:capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15692	15790	
==>ass->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15692	15790	
==>ass->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15692	15790	
==>ass->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (d <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7928	8051	
==>$S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index ta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9812	9924	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7361	7473	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9812	9924	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7361	7473	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9812	9924	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7361	7473	
==>ub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter+ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10479	10610	
==>s = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @clas <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10479	10610	
==>s = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @clas <==
7	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	8	110	
==>ct;
use warnings;
#use Inline 'INFO','NOISY','FORCE';
# please help fill in this file
# a method of aut <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6321	6419	
==>returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5451	5549	
==>returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6321	6419	
==>returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5451	5549	
==>returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5113	5242	
==>:make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5113	5242	
==>:make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5113	5242	
==>:make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name <==
7	/Users/nnunley/pugs/misc/S29_round.pl	2180	2293	
==>our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd number
    give <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	617	701	
==>($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	617	701	
==>($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	617	701	
==>($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	754	853	
==>ub _compare {
    my ($left, $right) = @_;
    return $left->to_native cmp $right->to_str->to_native <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12465	12559	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10016	10110	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12465	12559	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10016	10110	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12465	12559	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10016	10110	
==>eturn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4047	4165	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4985	5103	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2281	2399	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2527	2645	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3062	3180	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3308	3426	
==>], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	294	397	
==>,$pos,$cap); my $v;
      { local($X::str,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4342	4465	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7278	7401	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4342	4465	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7278	7401	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4342	4465	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7278	7401	
==>it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6047	6142	
==>rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${pkg_root}::Node";
	$pkg_type = "" if $pkg_ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1292	1524	
==>eta_info] )
                                                                and die $?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	374	484	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	372	482	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	374	484	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	372	482	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	374	484	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	372	482	
==>didate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7858	7975	
==>r match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7858	7975	
==>r match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7858	7975	
==>r match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6381	6497	
==>r  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6381	6497	
==>r  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6381	6497	
==>r  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null <==
7	/Users/nnunley/pugs/util/grokprims.pl	2264	2361	
==></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  foreach my $arg <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1715	1821	
==>y $col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3649	3752	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6585	6688	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3649	3752	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6585	6688	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3649	3752	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6585	6688	
==>ience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11120	11259	
==>k    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Te <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1592	1717	
==>k    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Te <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1592	1717	
==>k    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Te <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12172	12279	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6739	6846	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12172	12279	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6739	6846	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	712	817	
==>tely.  Assume the existence of what would
  be useful, and we'll do it later.

=cut
###*** Value types - n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4669	4769	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7605	7705	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4669	4769	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7605	7705	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4669	4769	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7605	7705	
==>ociated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25401	25609	
==>} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26059	26267	
==>} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25680	25888	
==>} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26338	26546	
==>} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5303	5439	
==>fined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5303	5439	
==>fined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5303	5439	
==>fined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => su <==
7	/Users/nnunley/pugs/inc/Module/Install/Can.pm	728	845	
==>0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6858	6965	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4415	4522	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6858	6965	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4415	4522	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6858	6965	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4415	4522	
==>{      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $su <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1855	1989	
==>se {
    my $minus_o = '';
    if ($Config{cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11210	11317	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2326	2433	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7420	7527	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11210	11317	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2326	2433	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7420	7527	
==>(Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $met <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5168	5302	
==>ult{ok}
            };

            assert( defined( $details->{ok} ) && defined( $details->{actual_ok} ) );

            # We don't wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1732	1839	
==>m','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1732	1839	
==>m','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1732	1839	
==>m','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3210	3308	
==>e as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3210	3308	
==>e as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3210	3308	
==>e as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12681	12785	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4181	4285	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12681	12785	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4181	4285	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12681	12785	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4181	4285	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix: <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	692	793	
==>is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43183	43344	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46527	46688	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47648	47809	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35508	35662	
==>od::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6713	6861	
==>od::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36433	36580	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'), <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37968	38115	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'), <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	920	1052	
==>n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without ha <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	920	1052	
==>n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without ha <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	920	1052	
==>n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without ha <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12365	12473	
==>q(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runperl, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1435	1532	
==>VarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1435	1532	
==>VarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1435	1532	
==>VarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL: <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2079	2185	
==>ally implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or preferably let
L<Blo <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6946	7043	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6076	6173	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2730	2827	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2730	2827	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6946	7043	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6076	6173	
==>i sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *inf <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2373	2502	
==>gs}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2920	3049	
==>gs}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3467	3596	
==>gs}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	534	646	
==>s %$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9588	9679	
==>$is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9588	9679	
==>$is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9588	9679	
==>$is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5333	5469	
==>is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method pre <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5333	5469	
==>is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method pre <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1994	2089	
==>PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1994	2089	
==>PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16814	16908	
==>&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16814	16908	
==>&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16814	16908	
==>&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_metho <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3405	3555	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8690	8839	
==>b {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't w <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3662	3807	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10080	10225	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3662	3807	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10080	10225	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8385	8529	
==>b {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2372	2588	
==>str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1496	1656	
==>str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1496	1656	
==>str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29426	29543	
==>lé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être invers <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29426	29543	
==>lé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être invers <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	250	355	
==>lé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être invers <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19649	19743	
==>rt)

Non-grouping parentheses weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags wer <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4210	4392	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4210	4392	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4210	4392	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6736	6904	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6736	6904	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6736	6904	
==>(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $met <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4078	4192	
==>{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "]";
      }
    }
END
}

{
  package Hack <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	611	754	
==>SH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    di <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	699	842	
==>SH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    di <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	696	834	
==>SH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10077	10212	
==>is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10077	10212	
==>is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10077	10212	
==>is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        cl <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3015	3127	
==>st.

=item Sym

Resolves a symbol into a value. Could be a global or a dynamic symbol:

    App(
        Sym('&fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6654	6776	
==>mplemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6654	6776	
==>mplemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6654	6776	
==>mplemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: <==
7	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1123	1230	
==>ethod accept ( $arg ) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role Getopt::Argument <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3946	4043	
==>nfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3946	4043	
==>nfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3946	4043	
==>nfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5783	5900	
==>= bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20025	20129	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17164	17268	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20025	20129	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17164	17268	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20025	20129	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17164	17268	
==>class attributes are just package scoped "our" variables
        # so they are added to the Package norma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7128	7249	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4687	4808	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7128	7249	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4687	4808	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7128	7249	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4687	4808	
==>ve all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have n <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	29799	29895	
==>s()

Remember exit code

Completely redo the print summary code.

Implement Straps callbacks.  (e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5495	5605	
==>^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6763	6873	
==>^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5495	5605	
==>^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6751	6861	
==>^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$ <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	7433	7541	
==>st::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7491	7599	
==>st::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22167	22270	
==>returns num {
    # speculative syntax here :)
    unbox($self).id
}

(method id ((opaque $self:)) retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2045	2167	
==>mt:  
      IF exp block 
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3] } }
    | IF exp block 'else <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2247	2362	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11115	11230	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12074	12189	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2440	2555	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11394	11509	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12353	12468	
==>::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21494	21594	
==>ber(class_neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) :- ca <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11563	11692	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2557	2686	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7651	7780	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11563	11692	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2557	2686	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7651	7780	
==>UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50460	50588	
==>('add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new(
            $::EN <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5269	5380	
==>$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Up <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5269	5380	
==>$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Up <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4360	4466	
==>l6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3623	3729	
==>{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$pa <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4360	4466	
==>l6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizatio <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3623	3729	
==>{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$pa <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4213	4319	
==>{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$pa <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4348	4462	
==>ns.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @ <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4402	4516	
==>ns.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @ <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4348	4462	
==>ns.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @ <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4402	4516	
==>ns.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4687	4786	
==>:say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4687	4786	
==>:say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4687	4786	
==>:say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll li <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17291	17405	
==>, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgc <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13712	13826	
==>, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgc <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	12078	12172	
==>l the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9199	9293	
==>l the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12078	12172	
==>l the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9199	9293	
==>l the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	62	148	
==>-------------------------------------------------------------
## Mini Meta-Model with e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1350	1479	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2316	2445	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1350	1479	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2316	2445	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1350	1479	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2316	2445	
==>ETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta. <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2765	2863	
==>d r8649.
# signature doesnt parse. using simplified one.
#multi Array::pop ( --> Scalar ) {
multi A <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17720	17913	
==>>new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19478	19671	
==>>new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39930	40122	
==>>new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40989	41181	
==>>new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'n <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5785	5880	
==>pe', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sco <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5785	5880	
==>pe', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sco <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2684	2779	
==>pe', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sco <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16040	16177	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20757	20894	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16040	16177	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20757	20894	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16040	16177	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20757	20894	
==>PARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_na <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1625	1738	
==>->makemaker_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep le <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3110	3240	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6103	6233	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3383	3506	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9801	9924	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3383	3506	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9801	9924	
==>lus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	6979	7097	
==>f %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modifier :$k i <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1611	1743	
==>',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4044	4162	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4982	5100	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2278	2396	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2524	2642	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3059	3177	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3305	3423	
==>_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $te <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11171	11292	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12642	12763	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14648	14769	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16119	16240	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13956	14077	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15481	15602	
==>rce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	16159	16259	
==>in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5815	5920	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8785	8890	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5815	5920	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8785	8890	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5815	5920	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8785	8890	
==>subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7658	7749	
==>or>, $parser->errmsg will return
that error message, and $parser->errnum will return the num <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7602	7730	
==>om_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supp <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7602	7730	
==>om_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supp <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7602	7730	
==>om_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supp <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1063	1174	
==>t  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1063	1174	
==>t  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1820	1928	
==>t = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1820	1928	
==>t = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11403	11530	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2915	3042	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11403	11530	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2915	3042	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11403	11530	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2915	3042	
==>{ return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr <==
7	/Users/nnunley/pugs/util/svnlog2graph.pl	2033	2146	
==>5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day != <==
7	/Users/nnunley/pugs/util/package-osx.pl	4164	4261	
==>3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man/m <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22106	22201	
==>on the
appropriate class name, and then invoking methods on those objects.  All of
their attribu <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9379	9474	
==>on the
appropriate class name, and then invoking methods on those objects.  All of
their attribu <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22106	22201	
==>on the
appropriate class name, and then invoking methods on those objects.  All of
their attribu <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9379	9474	
==>on the
appropriate class name, and then invoking methods on those objects.  All of
their attribu <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24474	24568	
==>on
the appropriate class name, and then invoking methods on those objects.
All of their attribu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24474	24568	
==>on
the appropriate class name, and then invoking methods on those objects.
All of their attribu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14046	14178	
==>y $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14046	14178	
==>y $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14046	14178	
==>y $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6308	6440	
==>y $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4810	4942	
==>y $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2509	2620	
==>] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ... <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2693	2804	
==>] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ... <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7630	7744	
==>} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7630	7744	
==>} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7630	7744	
==>} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39595	39684	
==>mments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.Da <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24318	24407	
==>mments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.Da <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39595	39684	
==>mments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.Da <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24318	24407	
==>mments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.Da <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3886	4043	
==>) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4898	5051	
==>) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3766	3919	
==>) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4898	5051	
==>) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6422	6519	
==>_'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEAT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6422	6519	
==>_'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEAT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6422	6519	
==>_'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEAT <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	123	244	
==>undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	123	244	
==>undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	123	244	
==>undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6799	6897	
==>ack

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E< <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4151	4249	
==>ack

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E< <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6799	6897	
==>ack

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E< <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4151	4249	
==>ack

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E< <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2956	3086	
==>class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type { <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3503	3633	
==>class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type { <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10183	10298	
==>me'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10177	10292	
==>me'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5730	5825	
==>ethod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5730	5825	
==>ethod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7927	8022	
==>ethod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5949	6080	
==>ir structure
            my $target = $dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5011	5106	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3239	3334	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5011	5106	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3239	3334	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5011	5106	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3239	3334	
==>_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatc <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6697	6812	
==>ams, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pSubBody""pSubIsMulti""p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4493	4585	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6442	6534	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4493	4585	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6442	6534	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4493	4585	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6442	6534	
==>SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1837	1936	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2180	2279	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1837	1936	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2180	2279	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1837	1936	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2180	2279	
==>r JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' war <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	990	1085	
==>head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject to change
in incom <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5087	5282	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5087	5282	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5087	5282	
==>methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	102	202	
==>e a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences sho <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	102	202	
==>e a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences sho <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1535	1633	
==>ace is good enough for many purposes.  
Although the interface is said to be procedural, it is invo <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1535	1633	
==>ace is good enough for many purposes.  
Although the interface is said to be procedural, it is invo <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11215	11322	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2331	2438	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7425	7532	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11215	11322	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2331	2438	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7425	7532	
==>$meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'A <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24765	24863	
==>t decisions on suitable starting points
 * for a match, cutting down the work a lot.  Regmust permi <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	651	753	
==>!
# (i did not understand (or try very hard to understand) the modula 2 code, so
# the impl is probably <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15301	15475	
==>turn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15301	15475	
==>turn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15301	15475	
==>turn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shift <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	5804	5919	
==>hild_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the first tests (ext/) are slow <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3637	3738	
==>t>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http:/ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3637	3738	
==>t>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http:/ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3637	3738	
==>t>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http:/ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3794	3967	
==>-+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @stri <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3794	3967	
==>-+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @stri <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11235	11362	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stan <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14712	14839	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stan <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14020	14147	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stan <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35869	35963	
==>to a new Relation, such that all common attribute names
and corresponding common tuple values a <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40419	40513	
==>to a new Relation, such that all common attribute names
and corresponding common tuple values a <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2960	3067	
==>est );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2960	3067	
==>est );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3040	3147	
==>est );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4363	4465	
==>will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4363	4465	
==>will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5236	5335	
==>will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5236	5335	
==>will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9042	9181	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12015	12154	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9042	9181	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12015	12154	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9042	9181	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12015	12154	
==>Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Pe <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14731	14823	
==>{ $as_hash_complain->("numeric") },
      non_numeric => sub { $as_hash_complain->("non_numer <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8333	8461	
==>0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15318	15440	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20051	20173	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15318	15440	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20051	20173	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15318	15440	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20051	20173	
==>al destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTIO <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1252	1368	
==>e.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.n <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25160	25256	
==>ods will each return the same
result and/or make the same change to an object when the permutatio <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11291	11387	
==>ods will each return the same
result and/or make the same change to an object when the permutatio <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14564	14660	
==>ods will each return the same result and/or make the same change
to an object when the permutatio <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25160	25256	
==>ods will each return the same
result and/or make the same change to an object when the permutatio <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11291	11387	
==>ods will each return the same
result and/or make the same change to an object when the permutatio <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14564	14660	
==>ods will each return the same result and/or make the same change
to an object when the permutatio <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1905	2118	
==>n_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our first arg $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6828	6945	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9798	9915	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6828	6945	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9798	9915	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6828	6945	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9798	9915	
==>&& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30466	30558	
==>nto the node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree">).

=bac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7470	7629	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5029	5188	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7470	7629	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5029	5188	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7470	7629	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5029	5188	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1165	1324	
==>othead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = ( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2267	2381	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11135	11249	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12094	12208	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2460	2574	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11414	11528	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12373	12487	
==>\&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7208	7333	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4767	4892	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7208	7333	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4767	4892	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7208	7333	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4767	4892	
==>s);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $can <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4245	4349	
==>urn $S->object(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13964	14115	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13964	14115	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13964	14115	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6226	6377	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4728	4879	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2672	2823	
==>size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whil <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29817	29912	
==>->qr()

The regex representation of this object.  It includes the regex
representation of any ch <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25187	25284	
==>me
result and/or make the same change to an object when the permutation of its
arguments and any i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11318	11415	
==>me
result and/or make the same change to an object when the permutation of its
arguments and any i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14591	14688	
==>me result and/or make the same change
to an object when the permutation of its arguments and any i <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25187	25284	
==>me
result and/or make the same change to an object when the permutation of its
arguments and any i <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11318	11415	
==>me
result and/or make the same change to an object when the permutation of its
arguments and any i <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14591	14688	
==>me result and/or make the same change
to an object when the permutation of its arguments and any i <==
7	/Users/nnunley/pugs/util/package-osx.pl	4808	4905	
==>an/man3/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1537	1629	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1537	1629	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1537	1629	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18760	18852	
==>tr $s, StrPos $start,   StrLen $length  ; $replace)
{ Pugs::Internals::substr($s,undef,$start <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	378	468	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	378	468	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	378	468	
==>nd not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13419	13572	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13419	13572	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13419	13572	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5661	5814	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4161	4314	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2304	2457	
==>hange = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@re <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12011	12128	
==>ger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3.1
      <Decima <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6508	6648	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8957	9097	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6508	6648	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8957	9097	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6508	6648	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8957	9097	
==>y $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	862	954	
==>)->code;

*mod = Pugs::Compiler::Token->compile(q( \: <rule_name> { return $<rule_name> . " = <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	9007	9119	
==>0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  re <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9065	9177	
==>0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1264	1367	
==>ould be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# T <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1264	1367	
==>ould be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# T <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1264	1367	
==>ould be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# T <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17679	17774	
==>essages and contains information
about the user agent originating the request.  I<E.g.>:

  $h.u <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17679	17774	
==>essages and contains information
about the user agent originating the request.  I<E.g.>:

  $h.u <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4346	4519	
==>' ) {
            # Moose: package xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5851	6007	
==>fine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5851	6007	
==>fine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5851	6007	
==>fine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	704	806	
==>pe {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	704	806	
==>pe {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	704	806	
==>pe {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3767	3944	
==>t ref = []?
            },

            'array_push' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                push @{$self-> <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1022	1178	
==>key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1022	1178	
==>key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	1275	1383	
==>t be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encod <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1275	1383	
==>t be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encod <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11321	11415	
==>rns all elements both from this recurrence and from the given recurrence.

- `intersection( $re <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11321	11415	
==>rns all elements both from this recurrence and from the given recurrence.

- `intersection( $re <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11469	11571	
==>args, "
	    . " switches or stdin specified"
	    unless defined $args{args} or defined $args{switches <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16590	16689	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21307	21406	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16590	16689	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21307	21406	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16590	16689	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21307	21406	
==>n all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13528	13632	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10812	10916	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13528	13632	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10812	10916	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13528	13632	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10812	10916	
==>ss_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18983	19080	
==>bject type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1149	1266	
==>value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1149	1266	
==>value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1149	1266	
==>value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumf <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2868	2983	
==>hing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2868	2983	
==>hing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2868	2983	
==>hing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1797	1902	
==>elf->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the internal state of a st <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5905	6031	
==>y, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5905	6031	
==>y, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5905	6031	
==>y, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3820	3934	
==>/Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3820	3934	
==>/Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3820	3934	
==>/Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defin <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3310	3405	
==>le time resolvable symbols into values

=item *

Replacing all values which the runtime provides <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	530	634	
==>n
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imple <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	530	634	
==>n
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imple <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	530	634	
==>n
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imple <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3628	3722	
==>ucture. The only dirty part is C<reduce_sym> which must handle recursive calls.

The compiler i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17232	17321	
==>(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17232	17321	
==>(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17232	17321	
==>(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5565	5669	
==>ub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5565	5669	
==>ub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5565	5669	
==>ub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbo <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28852	28949	
==>all a handler for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	272	368	
==>o &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(". <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	272	368	
==>o &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(". <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	272	368	
==>o &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(". <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7633	7764	
==>$node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11974	12105	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2433	2560	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9205	9332	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7375	7502	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2433	2560	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9205	9332	
==>$node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12580	12685	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10131	10236	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12580	12685	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10131	10236	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12580	12685	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10131	10236	
==>$dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2186	2276	
==>struct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondie::Back <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4525	4643	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2737	2855	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4525	4643	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2737	2855	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4525	4643	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2737	2855	
==>e not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3689	3789	
==>ull_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!( <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19416	19525	
==>essionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableStateme <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1637	1745	
==>re YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1637	1745	
==>re YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1637	1745	
==>re YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2099	2202	
==>undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS:: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2099	2202	
==>undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS:: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2099	2202	
==>undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5570	5679	
==>_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5570	5679	
==>_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5570	5679	
==>_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19936	20031	
==>name> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<n <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18917	19012	
==>name> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<n <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19936	20031	
==>name> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<n <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18917	19012	
==>name> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18189	18395	
==>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $met <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18189	18395	
==>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $met <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18189	18395	
==>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $met <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13768	13872	
==>Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origina <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18971	19075	
==>Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origina <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13768	13872	
==>Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origina <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18971	19075	
==>Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origina <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20842	21101	
==>( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20842	21101	
==>( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20842	21101	
==>( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	8141	8248	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normal <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	8533	8640	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normal <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8141	8248	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normal <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8533	8640	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normal <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12881	12992	
==>e identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if ( <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16358	16469	
==>e identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if ( <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15720	15831	
==>e identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if ( <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	7163	7274	
==>st = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5356	5459	
==>od($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5356	5459	
==>od($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5356	5459	
==>od($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_a <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13188	13326	
==>rom ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_ni <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13188	13326	
==>rom ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_ni <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12284	12414	
==>rom ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_ni <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12284	12414	
==>rom ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_ni <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8976	9076	
==>ve { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8976	9076	
==>ve { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8976	9076	
==>ve { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11450	11638	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9003	9191	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11450	11638	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9003	9191	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11450	11638	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9003	9191	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4802	4940	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5763	5901	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4802	4940	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5763	5901	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4802	4940	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5763	5901	
==>_('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxe <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7715	7809	
==>$parser->errnum will return the numerical value
of the message.  If you use new() the F<Regexp: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39340	39434	
==>e not returned all at once, but piece by piece.
Because range checking (C<[a-z]>) requires know <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3405	3497	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6419	6511	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8487	8579	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3405	3497	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6419	6511	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8487	8579	
==>rns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) re <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9417	9599	
==>deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	227	337	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	551	661	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	227	337	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	551	661	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	227	337	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	551	661	
==>tside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1144	1288	
==>$self == $TRUE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }
}

sub or : method {
    my ($self, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20080	20201	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17219	17340	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20080	20201	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17219	17340	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20080	20201	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17219	17340	
==>s
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6858	6989	
==>r::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\
\\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	238	342	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	236	340	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	238	342	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	236	340	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	238	342	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	236	340	
==>ild opaque instance
    # variables and access their internal data.
    # This is basically the implement <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2755	2872	
==>($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2755	2872	
==>($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2755	2872	
==>($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	732	827	
==>l_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	790	885	
==>l_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	732	827	
==>l_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	790	885	
==>l_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	698	849	
==>already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4806	4955	
==>ODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->stor <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4806	4955	
==>ODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->stor <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4806	4955	
==>ODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->stor <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1155	1246	
==>s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSD <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1155	1246	
==>s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSD <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1155	1246	
==>s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSD <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15134	15268	
==>check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15134	15268	
==>check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15134	15268	
==>check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5118	5218	
==>53{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5118	5218	
==>53{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	49	138	
==>equire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use int <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	49	138	
==>equire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use int <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3779	3903	
==>::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3779	3903	
==>::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3779	3903	
==>::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	597	707	
==>c = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	597	707	
==>c = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	597	707	
==>c = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalu <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4214	4314	
==>Sym('$x') >> will
be reduced to 10 (as bound by the Param object).

Then the thunk for + will be redu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	664	789	
==>2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	664	789	
==>2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	664	789	
==>2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3005	3112	
==>2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3005	3112	
==>2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3005	3112	
==>2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2 <==
7	/Users/nnunley/pugs/inc/Module/Install/Base.pm	701	805	
==>::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTROY <==
7	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1469	1580	
==>e = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib = <==
7	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1469	1580	
==>e = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib = <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2923	3033	
==>e = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4434	4542	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4434	4542	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4434	4542	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @a <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3590	3698	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13589	13712	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10873	10996	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13589	13712	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10873	10996	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13589	13712	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10873	10996	
==>') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2499	2611	
==>e::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $fr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11674	11805	
==>h may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	561	690	
==>($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!s <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	561	690	
==>($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2157	2285	
==>h may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8929	9057	
==>h may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2157	2285	
==>h may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8929	9057	
==>h may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18669	18786	
==>class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18669	18786	
==>class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18669	18786	
==>class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchabl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8263	8363	
==>ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $nod <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	22968	23066	
==>the Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  E <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27520	27618	
==>the Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  E <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7976	8074	
==>ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $nod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1717	1882	
==>.$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1717	1882	
==>.$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1717	1882	
==>.$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\ <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	117	236	
==>lement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newli <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	117	236	
==>lement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newli <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	117	236	
==>lement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newli <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	117	236	
==>lement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newli <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12055	12189	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3566	3700	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12055	12189	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3566	3700	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12055	12189	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3566	3700	
==>E;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BIN <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	157	268	
==>y $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use Ben <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3920	4017	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6569	6666	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/util/version_h.pl	2257	2354	
==>build Help.hs to show new revision number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    u <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4159	4254	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10608	10703	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4159	4254	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10608	10703	
==>ernal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrappe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9767	9873	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7316	7422	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9767	9873	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7316	7422	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9767	9873	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7316	7422	
==>spatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	111	206	
==>dule::Compile-base;
use File::Basename;
use Pugs::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dir <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9009	9141	
==>6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_a <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	743	875	
==>6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9009	9141	
==>6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9009	9141	
==>6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5213	5312	
==>JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::S <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5213	5312	
==>JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::S <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5213	5312	
==>JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::S <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3239	3359	
==>rsion >= 5.006;
        $values{requires} =
          [ [ perl => $perl_version ], @{ $values{requires} || [] }, ];
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13076	13187	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10360	10471	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13076	13187	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10360	10471	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13076	13187	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10360	10471	
==>method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance .. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5168	5311	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8138	8281	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5168	5311	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8138	8281	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5168	5311	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8138	8281	
==>ll the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_meth <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9416	9523	
==>IL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\z/\n/; }
    my $tof <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13354	13491	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13633	13770	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9745	9864	
==>b with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9745	9864	
==>b with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9745	9864	
==>b with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18116	18212	
==>g".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the us <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18116	18212	
==>g".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	39	154	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	34	149	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	39	154	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	34	149	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	39	154	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	34	149	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless re <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5447	5549	
==>nto an AST these are generated
# as the AST is left they are unified
# a free variable can be instantia <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3926	4086	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6862	7022	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3926	4086	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6862	7022	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3926	4086	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6862	7022	
==>b {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sam <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3825	3966	
==>) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2236	2434	
==>n Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                fr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2296	2494	
==>n Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                fr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1004	1154	
==>n Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1436	1586	
==>n Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1004	1154	
==>n Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1436	1586	
==>n Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        fr <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4706	4802	
==>elf->reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $node = shif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18266	18377	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15504	15615	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18266	18377	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15504	15615	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18266	18377	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15504	15615	
==>stance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct . <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	17822	17931	
==>tals) = @_;
    print $line if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type, $t <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	221	337	
==>=> 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $class <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6579	6689	
==>$irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6579	6689	
==>$irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6380	6486	
==>$irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6380	6486	
==>$irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4095	4183	
==>ge->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4095	4183	
==>ge->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4095	4183	
==>ge->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2803	2905	
==>]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2803	2905	
==>]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2803	2905	
==>]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_v <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37203	37298	
==>le_name! )>

This method takes the name of a Perl package in its positional parameter
$module_na <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37442	37537	
==>le_name! )>

This method takes the name of a Perl package in its positional parameter
$module_na <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37203	37298	
==>le_name! )>

This method takes the name of a Perl package in its positional parameter
$module_na <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37442	37537	
==>le_name! )>

This method takes the name of a Perl package in its positional parameter
$module_na <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4856	4963	
==>= $inst->register( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf = $self->c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15951	16045	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20668	20762	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15951	16045	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20668	20762	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15951	16045	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20668	20762	
==>::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3449	3596	
==>$state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8734	8880	
==>$state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3704	3847	
==>$state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10122	10265	
==>$state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3704	3847	
==>$state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10122	10265	
==>$state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8427	8569	
==>$state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}-> <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8785	8890	
==>n Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8785	8890	
==>n Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9041	9144	
==>n Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9041	9144	
==>n Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2345	2438	
==>file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2345	2438	
==>file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2345	2438	
==>file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1715	1815	
==>elf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, bu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1715	1815	
==>elf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, bu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1715	1815	
==>elf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, bu <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13157	13251	
==>ble as a generic data interchange format between
Rosetta::Model and other Perl code such as per <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18252	18346	
==>ble as a generic data interchange
format between Rosetta::Model and other Perl code such as per <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13157	13251	
==>ble as a generic data interchange format between
Rosetta::Model and other Perl code such as per <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18252	18346	
==>ble as a generic data interchange
format between Rosetta::Model and other Perl code such as per <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	7999	8122	
==>?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
} <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8057	8180	
==>?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2813	2913	
==>1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2813	2913	
==>1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2813	2913	
==>1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'co <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2380	2474	
==>::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2380	2474	
==>::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2091	2224	
==>tate->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2506	2637	
==>tate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2022	2153	
==>tate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2506	2637	
==>tate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9868	9974	
==>atcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9868	9974	
==>atcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9868	9974	
==>atcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4701	4842	
==>ramContext">,   
            %pad<"paramDefault">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # ke <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30140	30270	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31869	31999	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30140	30270	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31869	31999	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30140	30270	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31869	31999	
==>array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2417	2523	
==>d &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2417	2523	
==>d &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2417	2523	
==>d &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by l <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	2455	2557	
==>ethod day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2455	2557	
==>ethod day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	11391	11483	
==>tem B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=b <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11391	11483	
==>tem B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=b <==
7	/Users/nnunley/pugs/util/package-osx.pl	9694	9830	
==>py_files {
    my ($dest, @files) = @_;
    for my $from (@files) {
        my $dirs = $from;
        $dirs =~ s#/[^/]+$##;
        make_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	291	388	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	615	712	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	291	388	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	615	712	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	291	388	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	615	712	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(s <==
7	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1272	1382	
==>ogin("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1239	1349	
==>ogin("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($ <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4769	4873	
==>n, "PGE::Match");
    my $temp2 = $whitespacePosition;
    push @termStack, $operator;
    goto expect_op <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	12125	12222	
==>tetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005- <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	13956	14053	
==>tetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005- <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12125	12222	
==>tetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005- <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13956	14053	
==>tetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005- <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3165	3414	
==>e::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Inte <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3165	3414	
==>e::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Inte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8513	8636	
==>rray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8513	8636	
==>rray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8513	8636	
==>rray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6: <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5533	5630	
==>you are accessing the web using this
function.  If you need that information you should use the fu <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5533	5630	
==>you are accessing the web using this
function.  If you need that information you should use the fu <==
7	/Users/nnunley/pugs/blib6/lib/FindBin.pm	676	829	
==>cript )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$do <==
7	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	676	829	
==>cript )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$do <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4418	4527	
==>p {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4418	4527	
==>p {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4418	4527	
==>p {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	7390	7489	
==>_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10867	10966	
==>_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @oth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2767	2885	
==>n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2767	2885	
==>n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2767	2885	
==>n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6353	6445	
==>by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22482	22574	
==>mentation is pending.>

=head1 DESCRIPTION

This library provides a partial implementation, i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6353	6445	
==>by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6353	6445	
==>by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4461	4572	
==>pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4461	4572	
==>pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5051	5162	
==>pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9301	9411	
==>(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9301	9411	
==>(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9301	9411	
==>(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34668	34759	
==>::Parser::__object__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Rege <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16017	16154	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20734	20871	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16017	16154	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20734	20871	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16017	16154	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20734	20871	
==>ltimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $r <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3453	3579	
==>};

    $values{license}           ||= 'unknown';
    $values{distribution_type} ||= 'module';
    $values{name}              | <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	25189	25283	
==>ol>

This method returns a Bool indicating whether the immutable identity of the
argument C<$ot <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29741	29835	
==>ol>

This method returns a Bool indicating whether the immutable identity of the
argument C<$ot <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28671	28765	
==>ol>

This method returns a Bool indicating whether the immutable identity of the
argument C<$ot <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19565	19658	
==>name, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18546	18639	
==>name, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19565	19658	
==>name, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18546	18639	
==>name, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2170	2290	
==>ile($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_rel((de <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	14734	14836	
==>> 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14734	14836	
==>> 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	12009	12103	
==>eturns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> an <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9130	9224	
==>eturns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> an <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12009	12103	
==>eturns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> an <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9130	9224	
==>eturns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> an <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	2763	2864	
==>$self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2763	2864	
==>$self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18833	18930	
==>an alias for this method so you
can avoid this misspelling in your programs and still send the rig <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16196	16293	
==>nf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6:: <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18833	18930	
==>an alias for this method so you
can avoid this misspelling in your programs and still send the rig <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16196	16293	
==>nf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16196	16293	
==>nf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5577	5716	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8861	9000	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5577	5716	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8861	9000	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5577	5716	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8861	9000	
==>sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $li <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1373	1485	
==>eceive at least:

    y - target value for y
    f - function of one variable

It looks for an x such that f(x) i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1799	1915	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1799	1915	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1799	1915	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2151	2256	
==>turn $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1625	1720	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1625	1720	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1625	1720	
==>thod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, % <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5489	5604	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8459	8574	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5489	5604	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8459	8574	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5489	5604	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8459	8574	
==>er sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1395	1504	
==>ller) {
    # We are the main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5635	5770	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3755	3890	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5635	5770	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3755	3890	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5635	5770	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3755	3890	
==>per->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also s <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5241	5340	
==>t $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s-%s--% <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7984	8124	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5543	5683	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7984	8124	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5543	5683	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7984	8124	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5543	5683	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1672	1812	
==>unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confes <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2066	2179	
==>ment_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.un <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2066	2179	
==>ment_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.un <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	216	324	
==>rt     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is exp <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	216	324	
==>rt     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	972	1077	
==>red - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	972	1077	
==>red - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	972	1077	
==>red - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1449	1542	
==>g{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1449	1542	
==>g{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1449	1542	
==>g{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	473	565	
==>Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Build <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	473	565	
==>Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Build <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1029	1121	
==>Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Build <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21049	21136	
==>-> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0] <==
7	/Users/nnunley/pugs/util/claim_drift.pl	759	867	
==>DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5170	5269	
==>y( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stri <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5170	5269	
==>y( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stri <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5170	5269	
==>y( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stri <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10316	10413	
==>t(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is n <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8209	8306	
==>t(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10316	10413	
==>t(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8209	8306	
==>t(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is n <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13697	13821	
==>my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.spl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3822	3938	
==>my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.spl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3822	3938	
==>my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.spl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3822	3938	
==>my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.spl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10221	10326	
==>ray value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10221	10326	
==>ray value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10221	10326	
==>ray value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23807	23923	
==>nd-push
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1891	2004	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3454	3567	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1891	2004	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3454	3567	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1891	2004	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3454	3567	
==>terators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::W <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5419	5593	
==>st ]
            }
            elsif ( $ast->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5048	5185	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7697	7834	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5254	5385	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11703	11834	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5254	5385	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11703	11834	
==>ble {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, ne <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9808	9925	
==>pile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${name <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	28	131	
==>use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $NIL = bless \(my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4112	4213	
==>nstant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4112	4213	
==>nstant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4112	4213	
==>nstant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1058	1155	
==>ype Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1058	1155	
==>ype Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4787	4912	
==>[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this erro <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4787	4912	
==>[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this erro <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4787	4912	
==>[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this erro <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21527	21624	
==>are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is giv <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20408	20505	
==>are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is giv <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21527	21624	
==>are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is giv <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20408	20505	
==>are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is giv <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	5755	5877	
==>child_count * 3 - 1));
    for my $child (1 .. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristi <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2927	3027	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10850	10950	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6052	6152	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2927	3027	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10850	10950	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6052	6152	
==>_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5445	5559	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8415	8529	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5445	5559	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8415	8529	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5445	5559	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8415	8529	
==>en a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1846	1941	
==>this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Bu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12296	12421	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3918	4043	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12296	12421	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3918	4043	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12296	12421	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3918	4043	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::ne <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2583	2680	
==>isting one with the
same root path if it exists.

Returns a true value on success, otherwise somet <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1973	2146	
==>les.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.pl';                     # r <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25235	25329	
==>ct when the permutation of its
arguments and any invocant object's attributes is identical; the <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11366	11460	
==>ct when the permutation of its
arguments and any invocant object's attributes is identical; the <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14639	14733	
==>ct when the permutation of its arguments and any invocant
object's attributes is identical; the <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25235	25329	
==>ct when the permutation of its
arguments and any invocant object's attributes is identical; the <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11366	11460	
==>ct when the permutation of its
arguments and any invocant object's attributes is identical; the <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14639	14733	
==>ct when the permutation of its arguments and any invocant
object's attributes is identical; the <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3997	4102	
==>t \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5318	5423	
==>t \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3997	4102	
==>t \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5306	5411	
==>t \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	253	356	
==>Stmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStm <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	253	356	
==>Stmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStm <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	253	356	
==>Stmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStm <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	5399	5502	
==>_cmd returns revision '@{[$self->{_revision}]}'\n";
}

sub run {
    my $self = shift;
    return $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2260	2360	
==>y'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2260	2360	
==>y'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2260	2360	
==>y'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1267	1365	
==>ew_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1267	1365	
==>ew_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1267	1365	
==>ew_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfi <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1784	1904	
==>| confess "Indecies must be a num type";
    return list->new(
        # make sure to create any nils we need
        map <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3262	3375	
==>}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6255	6366	
==>}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3526	3634	
==>}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9944	10052	
==>}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3526	3634	
==>}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9944	10052	
==>}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	483	589	
==>hm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print " <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	487	593	
==>hm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print " <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	483	589	
==>hm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print " <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	487	593	
==>hm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16987	17079	
==>Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16987	17079	
==>Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16987	17079	
==>Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	670	795	
==>nloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	670	795	
==>nloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	670	795	
==>nloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	565	673	
==>ests --> Int|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any(@indextests) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3011	3118	
==>nloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3011	3118	
==>nloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3011	3118	
==>nloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4096	4221	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4096	4221	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4096	4221	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1162	1275	
==>r on #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # not <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1512	1622	
==>r on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # not <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1119	1229	
==>r on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # not <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1512	1622	
==>r on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # not <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9131	9239	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6678	6786	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9131	9239	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6678	6786	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9131	9239	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6678	6786	
==>canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	223	316	
==>onstant RPe_NOTERM => --$ENUM, 'Sequence (?#... not terminated';
use constant RPe_LOGDEP => -- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30548	30691	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32262	32405	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30548	30691	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32262	32405	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30548	30691	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32262	32405	
==>p[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	553	654	
==>asses" });

# every Meta::Class is a part of an object model object called the
# schema
Has($?CLASS, " <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4716	4841	
==>o broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6020	6129	
==>ofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6020	6129	
==>ofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6020	6129	
==>ofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5619	5725	
==>rpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYN <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5619	5725	
==>rpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYN <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4943	5041	
==>sInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3834	3948	
==>s}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3834	3948	
==>s}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3834	3948	
==>s}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless def <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18825	18922	
==>ymous hash
definition.  While it is obvious that people who would be writing the text
would have t <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18825	18922	
==>ymous hash
definition.  While it is obvious that people who would be writing the text
would have t <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34298	34388	
==>ethod creates and returns a new Locale::KeyedText::Translator object.
The Set Names propert <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34298	34388	
==>ethod creates and returns a new Locale::KeyedText::Translator object.
The Set Names propert <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	416	522	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	414	520	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	416	522	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	414	520	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	416	522	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	414	520	
==>ry instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25168	25263	
==>0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)),
  E1 = amat(C0,flgs(A,B <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8221	8327	
==>shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8221	8327	
==>shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8221	8327	
==>shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	72	173	
==>shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	72	173	
==>shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	72	173	
==>shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::P <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4762	4857	
==>tem B<new (@x of ~type) returns list>

=item B<to_native () returns *native*>

=item B<to_bit () <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3416	3644	
==>);
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~ <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3464	3692	
==>);
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~ <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3416	3644	
==>);
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~ <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3464	3692	
==>);
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	26243	26337	
==>ginal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30795	30889	
==>ginal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29788	29882	
==>ginal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4455	4567	
==>d_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { comp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4455	4567	
==>d_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { comp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4455	4567	
==>d_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { comp <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6610	6711	
==>s I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basical <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6610	6711	
==>s I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basical <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36553	36650	
==>e is where C<@others> is an
empty list, in which case the returned Relation is identical to the
in <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41102	41199	
==>e is where C<@others> is an
empty list, in which case the returned Relation is identical to the
in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2937	3073	
==>$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2937	3073	
==>$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2937	3073	
==>$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role-> <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	7949	8064	
==>L_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfile, $width);
        loc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this create <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this create <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this create <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3361	3456	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6375	6470	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8443	8538	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3361	3456	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6375	6470	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8443	8538	
==>Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array` <==
7	/Users/nnunley/pugs/util/package-osx.pl	1762	1851	
==>l/lib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	61	176	
==>A @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	61	176	
==>A @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	61	176	
==>A @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5 <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5397	5493	
==>per_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_sup <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4527	4623	
==>per_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_sup <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5397	5493	
==>per_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_sup <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4527	4623	
==>per_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_sup <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9450	9656	
==>->new(''),
            ),
            App->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->new(
                        S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7847	7962	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10770	10885	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7847	7962	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10770	10885	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7847	7962	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10770	10885	
==>est can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3257	3349	
==>al(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_equiv->moniker;
	my $metho <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4349	4450	
==>s split.t with newstr==1*/
      r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1737	1893	
==>, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1737	1893	
==>, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1737	1893	
==>, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12306	12411	
==>$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $ar <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6873	6978	
==>$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $ar <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12306	12411	
==>$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $ar <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6873	6978	
==>$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $ar <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	22	122	
==>p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	22	122	
==>p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15352	15451	
==>conds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=ove <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15352	15451	
==>conds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=ove <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	22	120	
==>p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	22	120	
==>p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8405	8502	
==>f you don't care to intercept the building of the tree, you can use the
parse() method to explicit <==
7	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	776	906	
==>ibutes,
                  # so we represent them all as attributes
                  attrs => [ map { $self->generate_attribute($_) <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	307	424	
==>rray
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($c <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	307	424	
==>rray
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($c <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4706	4802	
==>ion is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3833	3929	
==>ion is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4706	4802	
==>ion is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3833	3929	
==>ion is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	16315	16413	
==>s two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recu <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16315	16413	
==>s two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recu <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39419	39512	
==>d1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedTe <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5154	5247	
==>d1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedTe <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39419	39512	
==>d1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedTe <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5154	5247	
==>d1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedTe <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	19837	19922	
==>PIL2JS!";
}
our &PIL2JS::Internals::use_jsan_module_noimp := &PIL2JS::Internals::use_j <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5779	5917	
==>x.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # W <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5779	5917	
==>x.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # W <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5779	5917	
==>x.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # W <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4181	4305	
==>erse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my %pad = $tree[1];  # keys: "isI <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3996	4095	
==>=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3996	4095	
==>=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4076	4175	
==>=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2700	2864	
==>}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2700	2864	
==>}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	769	865	
==>r $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times pe <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	769	865	
==>r $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times pe <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	466	560	
==>_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$f <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	427	521	
==>_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$f <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	427	521	
==>_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10395	10514	
==>reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Buil <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2416	2523	
==>reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Buil <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2416	2523	
==>reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Buil <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6439	6538	
==>ve(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>. <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7175	7274	
==>ve(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>. <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6439	6538	
==>ve(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>. <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7175	7274	
==>ve(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3950	4071	
==>ents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3950	4071	
==>ents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3950	4071	
==>ents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1748	1844	
==>llowing were included only for performance reasons,

# because they are too frequent and they are <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	351	446	
==>llowing were included only for performance reasons,
# because they are too frequent and they are <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1676	1771	
==>llowing were included only for performance reasons,
# because they are too frequent and they are <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	362	457	
==>llowing were included only for performance reasons,
# because they are too frequent and they are <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6569	6669	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5699	5799	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4588	4688	
==>oo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6569	6669	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5699	5799	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for in <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4588	4688	
==>oo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4588	4688	
==>oo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3885	4042	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6821	6978	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3885	4042	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6821	6978	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3885	4042	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6821	6978	
==>thods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless th <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11963	12071	
==>b { -r "$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2149	2270	
==>rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11017	11138	
==>rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2342	2463	
==>rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11296	11417	
==>rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4492	4586	
==>ervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4492	4586	
==>ervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4492	4586	
==>ervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	983	1121	
==>{
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'equal',
        oth <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11087	11210	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12558	12681	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14564	14687	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16035	16158	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13872	13995	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15397	15520	
==>ng.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	629	766	
==>r @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PIL <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	629	766	
==>r @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PIL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15036	15164	
==>erclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15036	15164	
==>erclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15036	15164	
==>erclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @su <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3261	3387	
==>se => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($matc <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3261	3387	
==>se => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1434	1546	
==>ed" };
sub merge_category   { die "not implemented" };

sub add_op {
    my ($self, $opt) = @_;
    #print "addin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13000	13110	
==>s "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13000	13110	
==>s "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13000	13110	
==>s "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14255	14355	
==>od_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14255	14355	
==>od_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14255	14355	
==>od_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tabl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23373	23474	
==>6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23373	23474	
==>6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23373	23474	
==>6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4261	4360	
==>d{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_option <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4261	4360	
==>d{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_option <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4851	4950	
==>d{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_option <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3666	3761	
==>piler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13201	13315	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13201	13315	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13201	13315	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5441	5555	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3941	4055	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2086	2200	
==>ady

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off i <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36778	36874	
==>head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=he <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8167	8286	
==>itrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initr <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7742	7836	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6872	6966	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3458	3552	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3458	3552	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7742	7836	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6872	6966	
==>a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($me <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1114	1217	
==>str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1114	1217	
==>str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1114	1217	
==>str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $s <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1757	1852	
==>CT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1520	1615	
==>CT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1757	1852	
==>CT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1520	1615	
==>CT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2959	3097	
==>ode, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return option <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3240	3370	
==>ode, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return option <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9658	9788	
==>ode, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return option <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3240	3370	
==>ode, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return option <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9658	9788	
==>ode, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return option <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	13631	13737	
==>ns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13631	13737	
==>ns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6174	6291	
==>A = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6174	6291	
==>A = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6174	6291	
==>A = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3239	3355	
==>A = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3239	3355	
==>A = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3239	3355	
==>A = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap <==
7	/Users/nnunley/pugs/misc/POE/lib/POE.pm	243	355	
==>E::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a giv <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	40	137	
==>s;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	40	137	
==>s;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	40	137	
==>s;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#u <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11952	12048	
==>eve either or both of the traits C<is descending>
and C<is insensitive> to reverse the order of s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	40	135	
==>s;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	40	135	
==>s;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	40	135	
==>s;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
u <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23926	24062	
==>0            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The "i <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6725	6822	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5855	5952	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2509	2606	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2509	2606	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6725	6822	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5855	5952	
==>rns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9350	9474	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12323	12447	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9350	9474	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12323	12447	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9350	9474	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12323	12447	
==>A = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method' <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4594	4681	
==>at(W,Min,Max)) --> {true}.

p5_range_bounds(Min,Max) --> digits_int(Min), !, p5_range_bo <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1800	1925	
==>Map/;

    package Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6952	7047	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6082	6177	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2736	2831	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2736	2831	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6952	7047	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6082	6177	
==>*infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1761	1883	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3324	3446	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1761	1883	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3324	3446	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1761	1883	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3324	3446	
==>def;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # ca <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	710	808	
==>pare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compare($_[1]) == -1 ? b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2556	2763	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2556	2763	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2556	2763	
==>ttrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4430	4570	
==>@bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $pkg } = { bin => \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1200	1302	
==>self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1200	1302	
==>self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1200	1302	
==>self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy() <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5525	5644	
==>_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6793	6912	
==>_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5525	5644	
==>_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6781	6900	
==>_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^' <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13688	13789	
==>w, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (R <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17165	17266	
==>w, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (R <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16527	16628	
==>w, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (R <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12766	12907	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22993	23134	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24187	24328	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25953	26094	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26698	26839	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39110	39251	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42596	42737	
==>s'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14856	14962	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12110	12216	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14856	14962	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12110	12216	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14856	14962	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12110	12216	
==>tribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$sel <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6403	6497	
==>hod add_method ((opaque $self:) (symbol $label) (method $method)) returns nil
    ((($self: get <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7650	7813	
==>> $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7650	7813	
==>> $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7650	7813	
==>> $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7672	7775	
==>6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7672	7775	
==>6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7672	7775	
==>6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6:: <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5526	5624	
==>ariable can be instantiated to point to another type object
# at this point it reblesses itself

su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1300	1419	
==>}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1300	1419	
==>}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1300	1419	
==>}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	226	323	
==>e = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pri <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	282	379	
==>e = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pri <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	226	323	
==>e = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pri <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	282	379	
==>e = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	339	452	
==>str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	339	452	
==>str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	339	452	
==>str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	410	520	
==>ote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AEli <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	410	520	
==>ote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AEli <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13771	13876	
==>clude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $ <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13771	13876	
==>clude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2966	3071	
==>e Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2966	3071	
==>e Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20981	21078	
==>:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20981	21078	
==>:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20981	21078	
==>:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infi <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1393	1483	
==>calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by p <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1393	1483	
==>calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	56	163	
==>tion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.el <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	56	163	
==>tion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.el <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	56	163	
==>tion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.el <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	738	844	
==>() returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	879	985	
==>() returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	738	844	
==>() returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	879	985	
==>() returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31225	31409	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32983	33167	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31225	31409	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32983	33167	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31225	31409	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32983	33167	
==>, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_ <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	8038	8131	
==>dex->{_files} ? sort @{$index->{_files}} : ());
    my $template = HTML::Template->new(filenam <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2579	2706	
==>print "}\\texttt{";
		next;
	    }
	    
	    # normal comment
	    print '\syncomment{';
	    while (scalar @file) {
		if ($chr <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3085	3183	
==>ta.
The encipherer closure can be called with a string, and should be called at the 
end of enciphe <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3085	3183	
==>ta.
The encipherer closure can be called with a string, and should be called at the 
end of enciphe <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18297	18390	
==>een Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data st <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18297	18390	
==>een Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data st <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13202	13294	
==>een
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data st <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13202	13294	
==>een
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3911	4009	
==>.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3911	4009	
==>.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3911	4009	
==>.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	20430	20542	
==>";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $estatus, $w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5852	5949	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8822	8919	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5852	5949	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8822	8919	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5852	5949	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8822	8919	
==>blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2287	2383	
==>cript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based up <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20841	20937	
==>Mac OS) handles
lots of other program resources as data files as well, making them easy to
upgrad <==
7	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2287	2383	
==>cript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based up <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20841	20937	
==>Mac OS) handles
lots of other program resources as data files as well, making them easy to
upgrad <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4058	4142	
==>PPING AREA
## ----------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4058	4142	
==>PPING AREA
## ----------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4058	4142	
==>PPING AREA
## ----------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2225	2415	
==>else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2225	2415	
==>else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2225	2415	
==>else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4514	4620	
==>, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4514	4620	
==>, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4514	4620	
==>, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $s <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12031	12135	
==>ed in $1 etal.  These will be limited to
  strings, rather than Match objects.

  A set of hooks should b <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2543	2646	
==>s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7776	7874	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6906	7004	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3492	3590	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3492	3590	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7776	7874	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6906	7004	
==>licating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $on <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3011	3158	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11707	11854	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3204	3351	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11986	12133	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3696	3830	
==>].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificatio <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3696	3830	
==>].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificatio <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3696	3830	
==>].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2519	2616	
==>f unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2519	2616	
==>f unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2519	2616	
==>f unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5015	5111	
==>$n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";w <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5015	5111	
==>$n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";w <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5015	5111	
==>$n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";w <==
7	/Users/nnunley/pugs/util/claim_drift.pl	866	959	
==>$clean = sub { $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $clean->($ori <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3103	3226	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5904	6027	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3103	3226	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5904	6027	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3103	3226	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5904	6027	
==>es of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubA <==
7	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1427	1528	
==>y $template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\%\]/{ %params{$0} || '' }/;
    ret <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2113	2243	
==>concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10981	11111	
==>concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2306	2436	
==>concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11260	11390	
==>concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2847	2962	
==>UB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elem <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2847	2962	
==>UB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elem <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2847	2962	
==>UB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elem <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2223	2349	
==>nt dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5579	5696	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8549	8666	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5579	5696	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8549	8666	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5579	5696	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8549	8666	
==>ze it and
        # return the exact same sub. This results in this
        # method being passed an already blessed m <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	865	959	
==>message to the normal output filehandle, adding leading C<#>
characters after all newlines if t <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	865	959	
==>message to the normal output filehandle, adding leading C<#>
characters after all newlines if t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1421	1515	
==>message to the normal output filehandle, adding leading C<#>
characters after all newlines if t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22091	22183	
==>>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messag <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20972	21064	
==>>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messag <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22091	22183	
==>>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messag <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20972	21064	
==>>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messag <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	121	242	
==>ng/;

use strict;
use warnings;
no warnings 'recursion';

sub new {
    my $class = shift;
    bless {
        params => u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1461	1557	
==>t tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitiv <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1461	1557	
==>t tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitiv <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1461	1557	
==>t tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitiv <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3222	3316	
==>mplemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@inta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3222	3316	
==>mplemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@inta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3222	3316	
==>mplemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@inta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9579	9687	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7126	7234	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9579	9687	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7126	7234	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9579	9687	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7126	7234	
==>atcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2031	2132	
==>shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSafe::Annotat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18304	18433	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15542	15671	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18304	18433	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15542	15671	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18304	18433	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15542	15671	
==>$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # chec <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2166	2290	
==>m $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Nu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2042	2150	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2447	2555	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2042	2150	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2447	2555	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2042	2150	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2447	2555	
==>:fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        < <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11925	12022	
==>ntinue working.

  Upon exec, the subref should return match information.  Match
  information get <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3509	3685	
==>ate} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4438	4610	
==>ate} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3399	3571	
==>ate} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4438	4610	
==>ate} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1776	1901	
==>eady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1776	1901	
==>eady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1776	1901	
==>eady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3974	4115	
==>paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~ <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3974	4115	
==>paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12754	12875	
==>ub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12754	12875	
==>ub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12754	12875	
==>ub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26355	26451	
==>elf is copied on input and output, any
variable values which are references will be passed by ref <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26355	26451	
==>elf is copied on input and output, any
variable values which are references will be passed by ref <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11111	11251	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8664	8804	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11111	11251	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8664	8804	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11111	11251	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8664	8804	
==>rator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the st <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	21357	21483	
==>iled}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $test->{max} || ' <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2027	2120	
==>ently unsuitable for just about any use other than Pugs development.

An user-supplied regular <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3391	3482	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6405	6496	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8473	8564	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3391	3482	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6405	6496	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8473	8564	
==>tr $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6092	6213	
==>( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: sli <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6092	6213	
==>( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: sli <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5509	5629	
==>< (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6777	6897	
==>< (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5509	5629	
==>< (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6765	6885	
==>< (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $ <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	632	726	
==>)]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4136	4256	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6785	6905	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4370	4487	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10819	10936	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4370	4487	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10819	10936	
==>$match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$m <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	65	162	
==>ct;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blondie <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9135	9235	
==>er};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quan <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9131	9231	
==>er};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quan <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28104	28201	
==>Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been im <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2935	3032	
==>etaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::T <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32656	32753	
==>Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been im <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2935	3032	
==>etaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::T <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2935	3032	
==>etaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::T <==
7	/Users/nnunley/pugs/util/build_pugs.pl	7703	7827	
==>{
        $unicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = '';
    if (grep /^-DPUGS_HAVE_PERL5$/, @_) {
        $perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6447	6563	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9417	9533	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6447	6563	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9417	9533	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6447	6563	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9417	9533	
==>method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11134	11255	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12605	12726	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14611	14732	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16082	16203	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13919	14040	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15444	15565	
==>ntity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Sec <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5322	5421	
==>ight be a useful future extension. (eg %)
sub within ($$$@) {
    my ($got, $expected, $range, $name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24677	24787	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26866	26976	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24677	24787	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26866	26976	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24677	24787	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26866	26976	
==>lf = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "E <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3553	3652	
==>ype', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13224	13332	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10508	10616	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13224	13332	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10508	10616	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13224	13332	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10508	10616	
==>f not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($pa <==
7	/Users/nnunley/pugs/util/package-osx.pl	5689	5786	
==>/Perl6::Overview::Control.3
        /usr/local/man/man3/Perl6::Overview::Control.3pm
        /usr/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	935	1052	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1023	1140	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	935	1052	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1023	1140	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	935	1052	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1023	1140	
==>reat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    } <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	22312	22425	
==>$max_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max_ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16529	16659	
==>tr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would b <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20955	21085	
==>tr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would b <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	1367	1468	
==>ns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method se <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1367	1468	
==>ns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7193	7283	
==>)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7193	7283	
==>)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7193	7283	
==>)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17102	17233	
==>close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2452	2551	
==>slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..10 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2452	2551	
==>slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..10 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2452	2551	
==>slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..10 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14210	14302	
==>>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14210	14302	
==>>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14210	14302	
==>>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13963	14066	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14450	14553	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13963	14066	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14450	14553	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13963	14066	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14450	14553	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a meth <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5624	5713	
==>. (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->struct_equi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	545	731	
==>rr) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(er <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	545	731	
==>rr) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(er <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	545	731	
==>rr) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(er <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	164	258	
==>t::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Mat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	164	258	
==>t::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Mat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	164	258	
==>t::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Mat <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	947	1041	
==>ecurse"} = 1 if not defined $Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8507	8610	
==>oroutine not implemented.\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_catch_retur <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36298	36391	
==>nating pairs where the values of those attributes differ and unioning
the remaining said tuple <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38051	38144	
==>nating pairs where the
values of those attributes differ and unioning the remaining said tuple <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40847	40940	
==>nating pairs where the values of those attributes differ and unioning
the remaining said tuple <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42600	42693	
==>nating pairs where the
values of those attributes differ and unioning the remaining said tuple <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40461	40554	
==>nating pairs where the values of those attributes differ and unioning
the remaining said tuple <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42250	42343	
==>nating pairs where the
values of those attributes differ and unioning the remaining said tuple <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	723	827	
==>description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	723	827	
==>description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14655	14749	
==>.};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14655	14749	
==>.};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14655	14749	
==>.};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16184	16277	
==>ode_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attribute <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16184	16277	
==>ode_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attribute <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6465	6569	
==>e::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6465	6569	
==>e::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6465	6569	
==>e::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19415	19504	
==>b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19415	19504	
==>b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19415	19504	
==>b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37195	37284	
==>')));
$::Class->send('add_attribute', (symbol->new('@:subclasses')      => attribute->new( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5394	5607	
==>ment,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns H <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5394	5607	
==>ment,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns H <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4418	4530	
==>ub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    prin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4418	4530	
==>ub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    prin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4418	4530	
==>ub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    prin <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19057	19152	
==>it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19057	19152	
==>it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6164	6270	
==>vaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6164	6270	
==>vaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6164	6270	
==>vaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted <==
7	/Users/nnunley/pugs/util/build_pugs.pl	5896	6001	
==>' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15497	15595	
==>) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15497	15595	
==>) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15497	15595	
==>) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx-> <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2241	2362	
==>t for link management
    LINKING: {   
        ### load in the alternatives collection
        my $href = LoadFile( $Altf <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6246	6360	
==>e(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it return unt <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6045	6154	
==>e(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it return unt <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	551	659	
==>ift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys % <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	321	429	
==>ift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys % <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	321	429	
==>ift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys % <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6747	6853	
==>?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_version).
*** Please <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1370	1493	
==>take $.subscriptions.members;

            # FIXME this is bullshit - i ought to read the details
            #for $class ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5269	5389	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8239	8359	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5269	5389	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8239	8359	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5269	5389	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8239	8359	
==>make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opti <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3594	3822	
==>item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.prin <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3594	3822	
==>item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.prin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13835	13967	
==>Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'. <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13835	13967	
==>Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'. <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13835	13967	
==>Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'. <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	281	380	
==>updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is ex <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	281	380	
==>updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	705	820	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $coun <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	705	820	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $coun <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	705	820	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $coun <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5199	5307	
==>ugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6467	6575	
==>ugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5199	5307	
==>ugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6455	6563	
==>ugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	644	794	
==>kage} eq $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    { <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13255	13398	
==>$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13255	13398	
==>$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bo <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1014	1128	
==>fter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

m <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	756	870	
==>fter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

m <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1014	1128	
==>fter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

m <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	756	870	
==>fter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5959	6088	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5959	6088	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5959	6088	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclas <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1085	1198	
==>fference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

su <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	1065	1178	
==>fference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

su <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1085	1198	
==>fference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

su <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1065	1178	
==>fference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

su <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4436	4543	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7085	7192	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4662	4767	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11111	11216	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4662	4767	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11111	11216	
==>post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5060	5150	
==>rtmann <michael.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8450	8584	
==>e")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13538	13644	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10822	10928	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13538	13644	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10822	10928	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13538	13644	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10822	10928	
==>');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:p <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8140	8272	
==>match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $n <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8140	8272	
==>match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $n <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1589	1711	
==>ent_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1589	1711	
==>ent_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1534	1654	
==>ance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1534	1654	
==>ance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1534	1654	
==>ance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18573	18731	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15811	15969	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18573	18731	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15811	15969	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18573	18731	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15811	15969	
==>for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37140	37264	
==>nd => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @ <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17893	18045	
==>> did it literally say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12555	12691	
==>: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13654	13788	
==>oop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAIL <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2925	3055	
==>: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2925	3055	
==>: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11997	12124	
==>: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2405	2526	
==>: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2405	2526	
==>: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::Wi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	640	762	
==>ction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	640	762	
==>ction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	640	762	
==>ction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2988	3091	
==>ction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2988	3091	
==>ction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2988	3091	
==>ction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Item <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23053	23150	
==>the
same thing.)

=item nparen

The number of OPENs (capturing groups) in the regex.

=item captur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1211	1341	
==>t
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1211	1341	
==>t
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1211	1341	
==>t
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8857	8949	
==>ey & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3786	3878	
==>ey & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8857	8949	
==>ey & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3786	3878	
==>ey & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13779	13903	
==>shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13779	13903	
==>shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13779	13903	
==>shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12312	12418	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6879	6985	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12312	12418	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6879	6985	
==>efined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8346	8452	
==>class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8346	8452	
==>class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8346	8452	
==>class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=he <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28254	28349	
==>of this object which is suitable
for debugging purposes (such as to test that the object's conte <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35610	35705	
==>of this object which is suitable
for debugging purposes (such as to test that the object's conte <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28254	28349	
==>of this object which is suitable
for debugging purposes (such as to test that the object's conte <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35610	35705	
==>of this object which is suitable
for debugging purposes (such as to test that the object's conte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10104	10251	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7655	7802	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10104	10251	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7655	7802	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10104	10251	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7655	7802	
==>OP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out o <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21485	21580	
==>ght).
In doing so, found that the "too many branches" error wasn't being raised
until the second <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22496	22606	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23059	23169	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18917	19027	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19480	19590	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1336	1436	
==>nt!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1336	1436	
==>nt!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1336	1436	
==>nt!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15102	15224	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19800	19922	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15102	15224	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19800	19922	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15102	15224	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19800	19922	
==>hould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 i <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4490	4603	
==>urceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <Numeric <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6842	6985	
==>/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6842	6985	
==>/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6842	6985	
==>/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => su <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	853	959	
==>nstallsitebin} || $Config{installsbin},

        installman1dir     => $Config{installman1dir},
        ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5301	5398	
==>a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5301	5398	
==>a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5301	5398	
==>a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using th <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	519	624	
==>ule  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (very primitive at the mo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2258	2352	
==>emainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extract <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	801	894	
==>emainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extract <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2169	2262	
==>emainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extract <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	801	894	
==>emainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extract <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	368	458	
==>uous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $c <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	368	458	
==>uous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5903	6022	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5903	6022	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5903	6022	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3130	3244	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3130	3244	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3130	3244	
==>->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2359	2472	
==>t,
					type => [ "Type" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_typed_value( <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4469	4589	
==>d.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">, <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1920	2031	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2282	2393	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2591	2702	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1920	2031	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2282	2393	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2591	2702	
==>tring,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19595	19694	
==>nt
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> s <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19595	19694	
==>nt
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> s <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21794	21891	
==>This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sen <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20675	20772	
==>This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sen <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21794	21891	
==>This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sen <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20675	20772	
==>This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sen <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8522	8615	
==>bol $label)) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ($label)))) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10365	10473	
==>ta}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9438	9537	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12411	12510	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9438	9537	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12411	12510	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9438	9537	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12411	12510	
==>::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORC <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	599	739	
==>de";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $sr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	634	774	
==>de";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $sr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	599	739	
==>de";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $sr <==
7	/Users/nnunley/pugs/util/build_pugs.pl	9816	9956	
==>de";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $sr <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	1072	1212	
==>de";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $sr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	740	846	
==>ch - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is use <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	740	846	
==>ch - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is use <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3546	3663	
==>"$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inter <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4863	4980	
==>"$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inter <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3546	3663	
==>"$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inter <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4851	4968	
==>"$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inter <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1404	1506	
==>>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1404	1506	
==>>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1404	1506	
==>>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7958	8062	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10881	10985	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7958	8062	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10881	10985	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7958	8062	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10881	10985	
==>sed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CO <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	312	402	
==>displayed as UTC (Time::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_mo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10010	10130	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7561	7681	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10010	10130	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7561	7681	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10010	10130	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7561	7681	
==>(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defin <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9852	9940	
==>f,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,$ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1395	1516	
==>_re, no_override => 1 },
    };

    ### acc is just for accessors, the others get added for our 
    ### param checking t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9086	9197	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6633	6744	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9086	9197	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6633	6744	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9086	9197	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6633	6744	
==>@_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':cano <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6018	6125	
==>ious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6018	6125	
==>ious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2733	2839	
==>y($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($tex <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2733	2839	
==>y($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($tex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2385	2488	
==>L::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2385	2488	
==>L::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2385	2488	
==>L::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'p <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	608	707	
==>ert($orig);
			return;
		} else {
			if (defined($orig) and not(Scalar::Util::blessed($struct) and $ <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11488	11620	
==>ILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24599	24730	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26788	26919	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24599	24730	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26788	26919	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24599	24730	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26788	26919	
==>am = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5511	5626	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8481	8596	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5511	5626	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8481	8596	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5511	5626	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8481	8596	
==>codes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. T <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24244	24351	
==>f->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9542	9659	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7089	7206	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	21693	21810	
==>"Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Fi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9542	9659	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7089	7206	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9542	9659	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7089	7206	
==>rder eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1840	1982	
==>->add_rule(
        name => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5461	5567	
==>plit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@pa <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6745	6851	
==>ABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$to <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5461	5567	
==>plit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@pa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5461	5567	
==>plit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@pa <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1637	1737	
==>= $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1637	1737	
==>= $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	535	650	
==>st unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	535	650	
==>st unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1178	1288	
==>6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1178	1288	
==>6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1178	1288	
==>6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	296	404	
==>owing
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash th <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	296	404	
==>owing
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13794	13900	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14168	14274	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13794	13900	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14168	14274	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13794	13900	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14168	14274	
==>ecessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	55	151	
==>b', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] if $ARGV[1];

sub <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	340	443	
==>}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPSIS

 my $class = Class.new("SomeClass");
 my $type = T <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	330	415	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1489	1574	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	330	415	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1489	1574	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	330	415	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1489	1574	
==>LV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3722	3828	
==>:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $val <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3722	3828	
==>:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $val <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3722	3828	
==>:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $val <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5168	5267	
==>e same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroiz <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5168	5267	
==>e same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroiz <==
7	/Users/nnunley/pugs/util/package-osx.pl	4920	5017	
==>6::Bible::S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/local/man/man3/Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6929	7012	
==>nother_singleton_test_on_object'
});

is($Object->another_singleton_test_on_object() <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2770	2870	
==>gs.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2770	2870	
==>gs.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2770	2870	
==>gs.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash" <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6497	6603	
==>sers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.de <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7233	7339	
==>sers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.de <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6497	6603	
==>sers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.de <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7233	7339	
==>sers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1073	1169	
==>, i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1073	1169	
==>, i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1073	1169	
==>, i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3908	4099	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6435	6626	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3908	4099	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6435	6626	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3908	4099	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6435	6626	
==>hod(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $metho <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6212	6317	
==>_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1412	1531	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2975	3094	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1412	1531	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2975	3094	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1412	1531	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2975	3094	
==>l 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variable <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1877	1984	
==>value.exists($P) {
        my $attr = $O.property_attributes{$P};
        return JSX::false if $attr && $att <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5257	5509	
==>ym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new(
        Se <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4351	4557	
==>arent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $? <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4351	4557	
==>arent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $? <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	260	372	
==>RGV ) {
    ### XXX can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11217	11321	
==>k;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Build <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1683	1777	
==>k;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Build <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1683	1777	
==>k;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Build <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24743	24886	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26932	27075	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24743	24886	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26932	27075	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24743	24886	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26932	27075	
==>: _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17606	17706	
==>rds {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | <BitwiseORExpressionNoIn> <'|'> <BitwiseXOR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1917	2017	
==>aram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1917	2017	
==>aram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1917	2017	
==>aram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19708	19802	
==>tically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18689	18783	
==>tically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19708	19802	
==>tically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18689	18783	
==>tically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	859	983	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1252	1376	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1882	2006	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2317	2441	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2754	2878	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	859	983	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1252	1376	
==>);
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5450	5563	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8420	8533	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5450	5563	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8420	8533	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5450	5563	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8420	8533	
==>sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Pe <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7622	7730	
==>r Parrot include files",
  ensure => sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18513	18665	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15751	15903	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18513	18665	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15751	15903	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18513	18665	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15751	15903	
==>stance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really ju <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8102	8195	
==>r(index, value)>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensi <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	212	322	
==>ences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - i <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	212	322	
==>ences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1602	1709	
==>create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephras <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1602	1709	
==>create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephras <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1602	1709	
==>create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephras <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35833	35929	
==>nes it with the
invocant relation into a new Relation, such that all common attribute names
and c <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40383	40479	
==>nes it with the
invocant relation into a new Relation, such that all common attribute names
and c <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17484	17630	
==>. layout(@gut);
        } else {
            warn "weird - $node doesn't fmap but is an object";
            return "$node";
        }
    } else { <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	6869	7002	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	7630	7763	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	8500	8633	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10346	10479	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11107	11240	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11977	12110	
==>ant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5041	5159	
==>ems: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5041	5159	
==>ems: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5041	5159	
==>ems: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Va <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	774	869	
==>h@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mod <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1899	1994	
==>h@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mod <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	774	869	
==>h@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mod <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1899	1994	
==>h@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mod <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	2798	2896	
==>stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($se <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2619	2717	
==>stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	259	357	
==>r}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2798	2896	
==>stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2619	2717	
==>stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	259	357	
==>r}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	259	357	
==>r}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8	109	
==>lue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8	109	
==>lue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8	109	
==>lue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6409	6506	
==>$curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7145	7242	
==>$curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6409	6506	
==>$curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7145	7242	
==>$curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25314	25455	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25972	26113	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28754	28895	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25593	25734	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26251	26392	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29033	29174	
==>uleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captu <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8988	9092	
==>in32};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Formats and re <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	851	993	
==>y ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	851	993	
==>y ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	237	345	
==>) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.erro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	237	345	
==>) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.erro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	237	345	
==>) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.erro <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16178	16272	
==>other one displays it to the
user instead.

Locale::KeyedText provides a simple but effective m <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16178	16272	
==>other one displays it to the
user instead.

Locale::KeyedText provides a simple but effective m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9508	9626	
==>current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9508	9626	
==>current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9508	9626	
==>current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	401	509	
==>}

1;

__END__

=pod

=head1 NAME 

nil - the base native nil type

=head1 METHODS

=over 4

=item B<new (*na <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14455	14550	
==>>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item en <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14455	14550	
==>>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item en <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2644	2734	
==>:Backend::Perl::Interpreter;

=head1 DESCRIPTION

This is a subclass of L<Blondie::Reducere <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2237	2345	
==>ent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2237	2345	
==>ent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2237	2345	
==>ent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1158	1261	
==>utter on #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1508	1610	
==>utter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1115	1217	
==>utter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1508	1610	
==>utter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	884	987	
==>() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns th <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	884	987	
==>() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns th <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	884	987	
==>() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns th <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1818	1916	
==>ed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	30701	30795	
==>s of the
original (or rather, the corresponding transformation of each tuple), but
that any dup <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35252	35346	
==>s of the
original (or rather, the corresponding transformation of each tuple), but
that any dup <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34443	34537	
==>s of the
original (or rather, the corresponding transformation of each tuple), but
that any dup <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4952	5048	
==>ison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4079	4175	
==>ison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4952	5048	
==>ison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4079	4175	
==>ison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	328	422	
==>mpile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is dir <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	328	422	
==>mpile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is dir <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	328	422	
==>mpile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is dir <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2210	2308	
==>and {

    # External packages used by the Rosetta::Interface::Command class, that do export symbol <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2210	2308	
==>and {

    # External packages used by the Rosetta::Interface::Command class, that do export symbol <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1149	1243	
==>mprehensive test suite to run against all Engines

=head1 VERSION

This document describes Rose <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1149	1243	
==>mprehensive test suite to run against all Engines

=head1 VERSION

This document describes Rose <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	758	850	
==>infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.inc <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	758	850	
==>infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.inc <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	758	850	
==>infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.inc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14900	15012	
==>esult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @res <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14900	15012	
==>esult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @res <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14900	15012	
==>esult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @res <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3244	3356	
==>esult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @res <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34343	34436	
==>of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38893	38986	
==>of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38372	38465	
==>of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_m <==
7	/Users/nnunley/pugs/util/package-osx.pl	10720	10858	
==>y @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13064	13172	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10348	10456	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13064	13172	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10348	10456	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13064	13172	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10348	10456	
==>ethod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	507	603	
==>s) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('opaque') <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	808	901	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1328	1421	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	808	901	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1328	1421	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	808	901	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1328	1421	
==>ew PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2836	2940	
==>n);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2836	2940	
==>n);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2836	2940	
==>n);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_super <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1940	2041	
==>::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATO <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1940	2041	
==>::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATO <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6812	6906	
==>KNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintai <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6812	6906	
==>KNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintai <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31914	32013	
==>en

The capture group related to this object (like for OPEN and back
references).

=item off

The fl <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25151	25248	
==>ject methods will each return the same
result and/or make the same change to an object when the pe <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11282	11379	
==>ject methods will each return the same
result and/or make the same change to an object when the pe <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14555	14652	
==>ject methods will each return the same result and/or make the same change
to an object when the pe <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25151	25248	
==>ject methods will each return the same
result and/or make the same change to an object when the pe <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11282	11379	
==>ject methods will each return the same
result and/or make the same change to an object when the pe <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14555	14652	
==>ject methods will each return the same result and/or make the same change
to an object when the pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16024	16161	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20741	20878	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16024	16161	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20741	20878	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16024	16161	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20741	20878	
==>ods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22867	22994	
==>}

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  package R <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6719	7005	
==>(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19800	19908	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16939	17047	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19800	19908	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16939	17047	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19800	19908	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16939	17047	
==>XX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4244	4393	
==>$class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4244	4393	
==>$class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4244	4393	
==>$class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13821	13937	
==>./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13821	13937	
==>./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3448	3556	
==>port symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Ye <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3448	3556	
==>port symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Ye <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3351	3486	
==>x {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postf <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3351	3486	
==>x {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postf <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2994	3096	
==>these plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this usef <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7373	7474	
==>these plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this usef <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7480	7564	
==>});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7480	7564	
==>});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7480	7564	
==>});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9704	9808	
==>( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clo <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9704	9808	
==>( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clo <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6895	6997	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'R <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7185	7287	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'R <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6895	6997	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'R <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7185	7287	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'R <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16103	16197	
==>e of cases like C</(\d+)(\w+)/> which, when
reversed, I<can> match differently.

  "100years" = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3287	3438	
==>()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')", <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3287	3438	
==>()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')", <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3287	3438	
==>()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')", <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2967	3071	
==>ild_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_c <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	4229	4333	
==>ild_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_c <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2967	3071	
==>ild_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_c <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4229	4333	
==>ild_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_c <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3313	3435	
==>--- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3324	3446	
==>--- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	13	131	
==>rl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	13	131	
==>rl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	13	131	
==>rl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	911	1015	
==>]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	911	1015	
==>]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4966	5105	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5927	6066	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4966	5105	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5927	6066	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4966	5105	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5927	6066	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1388	1488	
==>=> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1388	1488	
==>=> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1388	1488	
==>=> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6: <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11109	11202	
==>not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given ite <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8513	8606	
==>not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given ite <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11109	11202	
==>not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given ite <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8513	8606	
==>not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12234	12358	
==>n this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done with <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12234	12358	
==>n this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done with <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12234	12358	
==>n this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done with <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3796	3887	
==>THOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kapp <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3796	3887	
==>THOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kapp <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22753	22843	
==>"#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrie <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22753	22843	
==>"#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrie <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11574	11669	
==>f it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in th <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8721	8816	
==>f it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1929	2024	
==>l::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
su <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11574	11669	
==>f it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in th <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8721	8816	
==>f it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in th <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1929	2024	
==>l::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1929	2024	
==>l::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7819	7981	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5378	5540	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7819	7981	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5378	5540	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7819	7981	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5378	5540	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1507	1669	
==>if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            las <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14318	14499	
==>{
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14318	14499	
==>{
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14318	14499	
==>{
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to a <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1877	2011	
==>L
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => '$_' } } ));
    }
    __PACKAGE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12985	13092	
==>...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line num <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12985	13092	
==>...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line num <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12985	13092	
==>...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line num <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	761	873	
==>($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	761	873	
==>($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	761	873	
==>($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attr <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	16274	16368	
==>ains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three span <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16274	16368	
==>ains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three span <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23393	23486	
==>E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>pr <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23393	23486	
==>E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>pr <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	494	630	
==>test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our res <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	494	630	
==>test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our res <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18551	18669	
==>ge represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18551	18669	
==>ge represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18551	18669	
==>ge represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how c <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6680	6780	
==>which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will b <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6680	6780	
==>which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13578	13700	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10862	10984	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13578	13700	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10862	10984	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13578	13700	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10862	10984	
==>eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confe <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1872	1979	
==>$self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # merge both kinds of requires into <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3449	3569	
==>} elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1199	1319	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1199	1319	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1199	1319	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3449	3569	
==>} elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3449	3569	
==>} elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21565	21659	
==>->data[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3853	3984	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6789	6920	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3853	3984	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6789	6920	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3853	3984	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6789	6920	
==>ess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4545	4654	
==>rnal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define your own m:x <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8893	9006	
==>uire $require");
}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where() <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7640	7739	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6770	6869	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3356	3455	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3356	3455	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7640	7739	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6770	6869	
==>b *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11561	11671	
==>rd $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a uni <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2693	2800	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3273	3380	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2693	2800	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3273	3380	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2693	2800	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3273	3380	
==>= @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4911	5037	
==>ed $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast->{pos} = $last - length( $match );
        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16565	16667	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21282	21384	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16565	16667	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21282	21384	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16565	16667	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21282	21384	
==>es, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DEST <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8998	9133	
==>$list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8998	9133	
==>$list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8998	9133	
==>$list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35112	35231	
==>{
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35112	35231	
==>{
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35112	35231	
==>{
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_sh <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1351	1466	
==>"P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6663	6795	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9633	9765	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6663	6795	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9633	9765	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6663	6795	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9633	9765	
==>::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1086	1204	
==>q( { return { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { return { stmt => '}'} } ));
    __PACKA <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	192	295	
==>$class, $name, $type) = @_;
    (defined $name && $name =~ /^[\$\@\%\&][\.\:][a-zA-Z0-9_]+$/)
        || <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3673	3765	
==>kin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3673	3765	
==>kin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6693	6784	
==>kin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8762	8853	
==>kin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6693	6784	
==>kin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8762	8853	
==>kin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisch <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	506	616	
==>t;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ms <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	510	620	
==>t;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ms <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	506	616	
==>t;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ms <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	510	620	
==>t;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ms <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6269	6366	
==>asses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6269	6366	
==>asses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6269	6366	
==>asses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercla <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2001	2127	
==>Blondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not really implemented"),
        ),
    );

Use the de <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11503	11616	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2497	2610	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7591	7704	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11503	11616	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2497	2610	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7591	7704	
==>$val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7182	7323	
==>gs 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $en <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7182	7323	
==>gs 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $en <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7182	7323	
==>gs 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $en <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2271	2381	
==>fess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2271	2381	
==>fess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2271	2381	
==>fess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_at <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15684	15780	
==>$$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
    local $m0- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5509	5617	
==>@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eva <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5509	5617	
==>@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eva <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5509	5617	
==>@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eva <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9468	9555	
==>{ p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9468	9555	
==>{ p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9468	9555	
==>{ p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4149	4233	
==>----------------------------------------------------------------
## BOOTSTRAPPING Cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2475	2574	
==>.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2475	2574	
==>.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2475	2574	
==>.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22309	22403	
==>"#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21181	21275	
==>"#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22309	22403	
==>"#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21181	21275	
==>"#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	185	291	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	180	286	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	185	291	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	180	286	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	185	291	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	180	286	
==>die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $s <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	738	843	
==>intlatex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2138	2262	
==>value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : und <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2138	2262	
==>value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : und <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2138	2262	
==>value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : und <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2841	2936	
==>urrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4710	4805	
==>urrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2841	2936	
==>urrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4710	4805	
==>urrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5068	5209	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7717	7858	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5273	5408	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11722	11857	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5273	5408	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11722	11857	
==>= shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exi <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1796	1895	
==>d: $compiled";
	my $safe = $self->annotate($compiled);

	$self->emit($safe);
}

sub provides {
	my $ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	231	336	
==>al p5 re coverage is much less.  The test passing was simply to
permit refactoring with confidence.

It us <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2325	2481	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27479	27635	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2518	2674	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27758	27914	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5749	5860	
==>push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = ma <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5749	5860	
==>push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = ma <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5749	5860	
==>push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = ma <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	954	1067	
==>ital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circu <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	954	1067	
==>ital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	217	317	
==>ists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	217	317	
==>ists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	217	317	
==>ists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31 <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31392	31491	
==>he first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be d <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31392	31491	
==>he first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be d <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7417	7528	
==>"matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11752	11863	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2233	2343	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9005	9115	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7167	7277	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2233	2343	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9005	9115	
==>"matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match <==
7	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	886	1013	
==>_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @w <==
7	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	886	1013	
==>_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6764	6866	
==>ded for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new D <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6764	6866	
==>ded for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new D <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6764	6866	
==>ded for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new D <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	1492	1591	
==>(Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := no <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1550	1649	
==>(Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := no <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14192	14388	
==>ethod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14192	14388	
==>ethod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14192	14388	
==>ethod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatche <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	383	554	
==>($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../par <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	383	554	
==>($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../par <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23977	24087	
==>sh @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20398	20508	
==>sh @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2196	2407	
==>. 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $ty <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2196	2407	
==>. 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $ty <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2196	2407	
==>. 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $ty <==
7	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	223	360	
==>w;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4805	4925	
==>/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4805	4925	
==>/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4805	4925	
==>/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resu <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14886	14990	
==>$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \" <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	42	131	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	214	303	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	42	131	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	214	303	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	42	131	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	214	303	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8147	8278	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5706	5837	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8147	8278	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5706	5837	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8147	8278	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5706	5837	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1835	1966	
==>chy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10737	10861	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15278	15402	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10737	10861	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15278	15402	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10737	10861	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15278	15402	
==>e method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3372	3476	
==>ret;
# }

=head2 $bool = $repo->add_package(package => $pkg)

=cut

sub add_package {
    my $self = shif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14066	14172	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11338	11444	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14066	14172	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11338	11444	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14066	14172	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11338	11444	
==>hod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    re <==
7	/Users/nnunley/pugs/util/package-osx.pl	2245	2334	
==>b/perl5/site_perl/PIL2JS /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7993	8130	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5552	5689	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7993	8130	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5552	5689	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7993	8130	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5552	5689	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1681	1818	
==>othead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inc <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7780	7878	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6910	7008	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3496	3594	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3496	3594	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7780	7878	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6910	7008	
==>ting shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.in <==
7	/Users/nnunley/pugs/util/package-osx.pl	4766	4863	
==>Perl6::Bible::S09.3pm
        /usr/local/man/man3/Perl6::Bible::S10.3pm
        /usr/local/man/man <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9391	9545	
==>d eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not impl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14935	15089	
==>d eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not impl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9391	9545	
==>d eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not impl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14929	15083	
==>d eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not impl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14314	14433	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14314	14433	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14314	14433	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15709	15844	
==>er

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15709	15844	
==>er

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15709	15844	
==>er

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20430	20561	
==>er

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20430	20561	
==>er

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20430	20561	
==>er

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = { <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8264	8376	
==>_gz and
      -M $initrd_gz <= -M $pugs and
      -M $initrd_gz <= -M "$parrot_path/parrot" and
      -M $initrd_ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	780	927	
==>2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_c <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	780	927	
==>2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12157	12264	
==>ram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $thi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12157	12264	
==>ram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $thi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12157	12264	
==>ram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $thi <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7087	7181	
==>d as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7087	7181	
==>d as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	7	112	
==>bin/perl

use strict;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2733	2835	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5381	5483	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2733	2835	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5381	5483	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2733	2835	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5381	5483	
==>nstance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantia <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8562	8701	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11535	11674	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8562	8701	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11535	11674	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8562	8701	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11535	11674	
==>ebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12273	12372	
==>ller package, and thus get CORE if none are defined.

  The C hooks (except for comp, obviously) loo <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1408	1523	
==>= $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(' ', grep length, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	916	1031	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { sa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	916	1031	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { sa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	916	1031	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { sa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2328	2431	
==>arFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=h <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2328	2431	
==>arFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=h <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1553	1650	
==>arFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=h <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3414	3511	
==>arFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17624	17722	
==>) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17624	17722	
==>) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17624	17722	
==>) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB i <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27391	27488	
==>ey
must all be set when the object is constructed.  If you want to
conceptually change an existing <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34917	35014	
==>ey must all be set when the object is constructed.  If you want to
conceptually change an existing <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27391	27488	
==>ey
must all be set when the object is constructed.  If you want to
conceptually change an existing <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34917	35014	
==>ey must all be set when the object is constructed.  If you want to
conceptually change an existing <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2275	2421	
==>diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	437	554	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	430	547	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	437	554	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	430	547	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	437	554	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	430	547	
==>HS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12549	12700	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14431	14582	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12549	12700	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14431	14582	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12549	12700	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14431	14582	
==>shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = s <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1678	1780	
==>tputs the version of this program and exits.
  --help
    Show this help.

Options may be abbreviated t <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20790	20947	
==>:capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21069	21226	
==>:capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" <==
7	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	987	1102	
==>atch '$iso8601' to available ISO-8601 duration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12049	12146	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9604	9701	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12049	12146	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9604	9701	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12049	12146	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9604	9701	
==>e_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7879	7987	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10802	10910	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7879	7987	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10802	10910	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7879	7987	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10802	10910	
==>:make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa(' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6496	6588	
==>odule parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set. <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	17154	17284	
==>r my $script (sort keys %$failedtests) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9445	9573	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12418	12546	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9445	9573	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12418	12546	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9445	9573	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12418	12546	
==>thod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26358	26521	
==>n( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stri <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26358	26521	
==>n( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stri <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26358	26521	
==>n( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stri <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1786	1897	
==>$k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593. <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	652	761	
==>$k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593. <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	963	1072	
==>$k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593. <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1436	1545	
==>$k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6434	6538	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9404	9508	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6434	6538	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9404	9508	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6434	6538	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9404	9508	
==>$method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1312	1404	
==>ts, we provide
Test::Harness::Straps.  Instead of printing the results, straps
provide them a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8016	8148	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5575	5707	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8016	8148	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5575	5707	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8016	8148	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5575	5707	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1704	1836	
==>p with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarch <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4414	4570	
==>n;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 package_re

=head2 prefix

=head2 name

=he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3463	3551	
==>--------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## --- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3486	3574	
==>---------------------------------
## BOOTSTRAPPING COMPLETE
## -------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3509	3597	
==>----------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5365	5453	
==>--------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## --- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5388	5476	
==>---------------------------------
## BOOTSTRAPPING COMPLETE
## -------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5411	5499	
==>----------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14962	15070	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12216	12324	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14962	15070	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12216	12324	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14962	15070	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12216	12324	
==>lf->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::op <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2803	2900	
==>lf->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base c <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	7752	7876	
==>{
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2055	2167	
==>{
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2055	2167	
==>{
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2055	2167	
==>{
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17317	17411	
==>s - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17317	17411	
==>s - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17317	17411	
==>s - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2759	2860	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5407	5508	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2759	2860	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5407	5508	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2759	2860	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5407	5508	
==>r type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($ <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7071	7161	
==>h) is parsed(rx:perl5/<simple_call>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ( <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21407	21827	
==>2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rel <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6768	6865	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5898	5995	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2552	2649	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2552	2649	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6768	6865	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5898	5995	
==>lti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5585	5700	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8555	8670	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5585	5700	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8555	8670	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5585	5700	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8555	8670	
==>and
        # return the exact same sub. This results in this
        # method being passed an already blessed metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9355	9446	
==>->test_iFoo_singleton_method(), 
   '$iFoo::test_iFoo_singleton_method',
   '... got the rig <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8364	8569	
==>1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8364	8569	
==>1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8364	8569	
==>1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::ne <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4583	4733	
==>},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return a positi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3591	3687	
==>); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3591	3687	
==>); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3591	3687	
==>); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw fu <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	893	993	
==>nless blessed($right) && $right->isa('symbol');
    return bit->new(1) 
        if $left->name->to_na <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7012	7107	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6142	6237	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2796	2891	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2796	2891	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7012	7107	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6142	6237	
==>ludes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	575	748	
==>\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10665	10788	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15206	15329	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10665	10788	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15206	15329	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10665	10788	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15206	15329	
==>lly need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pri <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4461	4577	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7110	7226	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4687	4800	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11136	11249	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4687	4800	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11136	11249	
==>match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return} <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	632	725	
==>has been changed to cc_lib_links due to confusion between Perl and C";
	shift()->cc_lib_links( <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	19691	19788	
==>operator::nullary->new("str")),
	),
);

# we can apply a polymorphic function to a string by givin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5102	5197	
==>y_editor() on it.
The editor routine is passed the current object in the recursion and
the wante <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5102	5197	
==>y_editor() on it.
The editor routine is passed the current object in the recursion and
the wante <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5102	5197	
==>y_editor() on it.
The editor routine is passed the current object in the recursion and
the wante <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7173	7265	
==>le->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7173	7265	
==>le->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7173	7265	
==>le->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	870	981	
==>match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->match($str) for 1..40},
        P6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3641	3744	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4336	4439	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3641	3744	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4336	4439	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3641	3744	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4336	4439	
==>efined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatch <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3078	3230	
==>o strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value if provided
        $obj <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16253	16370	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13464	13581	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16253	16370	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13464	13581	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16253	16370	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13464	13581	
==>elf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17633	17752	
==>= 2;
    _fresh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? $expected : /$expected/) :
		          $expected <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15848	15958	
==>ueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $chann <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15848	15958	
==>ueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $chann <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22167	22261	
==>atever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=ba <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21048	21142	
==>atever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=ba <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22167	22261	
==>atever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=ba <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21048	21142	
==>atever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=ba <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4782	4894	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7431	7543	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4998	5107	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11447	11556	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4998	5107	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11447	11556	
==>match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delet <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	557	655	
==>t abstraction
# "barrier" for the engine, from the entire perl5 source.

# The exploratory effort w <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	82	201	
==>t;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	124	243	
==>t;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	82	201	
==>t;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	124	243	
==>t;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13220	13326	
==>cceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13220	13326	
==>cceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13220	13326	
==>cceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wi <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3494	3592	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6508	6606	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8576	8674	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3494	3592	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6508	6606	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8576	8674	
==>) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str <==
7	/Users/nnunley/pugs/util/package-osx.pl	2316	2405	
==>lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /Users/dromano <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24980	25190	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27169	27379	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24980	25190	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27169	27379	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24980	25190	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27169	27379	
==>d $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6 <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	24747	24893	
==>e {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result, "\n";
    my $txt = join "", @result;
    ($tx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25639	25750	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27834	27945	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25639	25750	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27834	27945	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25639	25750	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27834	27945	
==>self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $se <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1181	1276	
==>e--Perl6>) disambiguates this case.

Types have a dispatch table; this is a collection of functi <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	623	748	
==>sub new { bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9255	9378	
==>ingify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9255	9378	
==>ingify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9255	9378	
==>ingify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4299	4399	
==>ds

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4299	4399	
==>ds

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4299	4399	
==>ds

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return und <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2801	2929	
==>val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7895	8023	
==>val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2801	2929	
==>val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7895	8023	
==>val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4923	5028	
==>n 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4923	5028	
==>n 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4923	5028	
==>n 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return unde <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7872	8004	
==>turn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7872	8004	
==>turn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7872	8004	
==>turn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33745	33839	
==>d is a generic relational operator that takes a single Relation
in its C<$other> argument, wher <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34513	34607	
==>d is a generic relational operator that takes a single Relation
in its C<$other> argument, wher <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38295	38389	
==>d is a generic relational operator that takes a single Relation
in its C<$other> argument, wher <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39063	39157	
==>d is a generic relational operator that takes a single Relation
in its C<$other> argument, wher <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22102	22193	
==>lable for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20983	21074	
==>lable for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22102	22193	
==>lable for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20983	21074	
==>lable for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9418	9507	
==>parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9418	9507	
==>parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9418	9507	
==>parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx) <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2824	2932	
==>ath);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2824	2932	
==>ath);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5635	5739	
==>o) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub * <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4765	4869	
==>o) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub * <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5635	5739	
==>o) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub * <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4765	4869	
==>o) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub * <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30996	31093	
==>ttributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with which it <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2069	2182	
==>thod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2069	2182	
==>thod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2069	2182	
==>thod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_met <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12093	12201	
==>sh @{ $self->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = shift;
    ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13348	13449	
==>ss, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13348	13449	
==>ss, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13348	13449	
==>ss, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12734	12952	
==>=~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)} <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12734	12952	
==>=~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8143	8289	
==>, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4503	4649	
==>, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5352	5498	
==>, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3577	3666	
==>------------------------------------------------

# Utility to test that "No method found" <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5479	5568	
==>------------------------------------------------

# Utility to test that "No method found" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9069	9175	
==>$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9069	9175	
==>$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9069	9175	
==>$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16639	16743	
==>tr::lc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each cha <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3908	4008	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6557	6657	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4147	4245	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10596	10694	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4147	4245	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10596	10694	
==>e to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3535	3654	
==>my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what & <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4852	4971	
==>my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what & <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3535	3654	
==>my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what & <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4840	4959	
==>my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what & <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2655	2738	
==>("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2655	2738	
==>("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2655	2738	
==>("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testp <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8550	8687	
==>t ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array: <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	237	347	
==>ill
see, but it has some other clutter because of unclear design.

    $.from         - The place where this su <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	237	347	
==>ill
see, but it has some other clutter because of unclear design.

    $.from         - The place where this su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6417	6521	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9387	9491	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6417	6521	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9387	9491	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6417	6521	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9387	9491	
==>ethod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref( <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5318	5414	
==>use base qw/type/;

package type::variable::free;
use base qw/type::variable/;

# a free variable <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3885	3999	
==>ody>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3885	3999	
==>ody>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3885	3999	
==>ody>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      i <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2928	3028	
==>redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, v <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3085	3185	
==>redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, v <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2928	3028	
==>redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, v <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3085	3185	
==>redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, v <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3085	3196	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6078	6189	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3358	3464	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9776	9882	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3358	3464	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9776	9882	
==>return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6970	7067	
==>DOWN($pLit); }
NODE PThunk ($pThunk) {
    "(do{ ".DOWN($pThunk)."})";
}
NODE PCode ($pType, $pPar <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9872	9975	
==>y ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_li <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15713	15816	
==>y ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_li <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9872	9975	
==>y ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_li <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15707	15810	
==>y ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_li <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1467	1556	
==>_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1467	1556	
==>_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1467	1556	
==>_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_n <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	556	659	
==>b SessionClear() {
    %Session=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@variables) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	621	717	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1141	1237	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	621	717	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1141	1237	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	621	717	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1141	1237	
==>things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].F <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	469	587	
==>eturns true on success, false on failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	87	185	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	87	185	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	87	185	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	86	183	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	86	183	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	86	183	
==>eys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11666	11780	
==>)
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11666	11780	
==>)
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11666	11780	
==>)
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9226	9327	
==>pan {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $sel <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9226	9327	
==>pan {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $sel <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9783	9883	
==>pan {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $sel <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9783	9883	
==>pan {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4962	5049	
==>_whitespace { def_thing(\@whitespaces,1,@_) }
sub def_statement  { def_thing(\@statement <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13083	13217	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13083	13217	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13083	13217	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5323	5457	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3823	3957	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1968	2102	
==>if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = + <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4184	4303	
==>[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	297	399	
==>om_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	842	944	
==>om_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - f <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	297	399	
==>om_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - f <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	842	944	
==>om_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - f <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	842	944	
==>om_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - f <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7486	7584	
==>(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~n <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7486	7584	
==>(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3001	3140	
==>$matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3523	3659	
==>$matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @s <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2903	3039	
==>$matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3523	3659	
==>$matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @s <==
7	/Users/nnunley/pugs/util/build_pugs.pl	2980	3094	
==>>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclose;
    unlink $in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4605	4715	
==>`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XX <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4605	4715	
==>`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XX <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	678	766	
==>subscriptions handles :add_subscription<insert> :remove_subscription<remove> .= new; # FI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10943	11028	
==>-------------------------------------------
Random Thoughts on Role state:
----------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10966	11051	
==>--------------------
Random Thoughts on Role state:
---------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10943	11028	
==>-------------------------------------------
Random Thoughts on Role state:
----------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10966	11051	
==>--------------------
Random Thoughts on Role state:
---------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10943	11028	
==>-------------------------------------------
Random Thoughts on Role state:
----------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10966	11051	
==>--------------------
Random Thoughts on Role state:
---------------------------------- <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1780	1925	
==>t

sub _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1562	1660	
==>e.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1562	1660	
==>e.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5659	5756	
==>e.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4789	4886	
==>e.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5659	5756	
==>e.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4789	4886	
==>e.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	89	199	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	84	194	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	89	199	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	84	194	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	89	199	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	84	194	
==>shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $ <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2670	2773	
==>token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $token{syncat} = PGE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24494	24682	
==>tr => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24494	24682	
==>tr => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24494	24682	
==>tr => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7009	7132	
==>ess::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	742	858	
==>ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	742	858	
==>ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	742	858	
==>ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ig <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2880	2996	
==>sed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3344	3460	
==>sed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3519	3625	
==>r PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We loa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3519	3625	
==>r PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We loa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3519	3625	
==>r PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We loa <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1099	1192	
==>nt>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@ii <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1099	1192	
==>nt>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@ii <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8514	8638	
==>lus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for fas <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8218	8335	
==>lus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for fas <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	13057	13157	
==>the code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is br <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13115	13215	
==>the code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is br <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4139	4236	
==>item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::B <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4139	4236	
==>item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::B <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6336	6433	
==>item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::B <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7021	7106	
==>("(").
p5_metachar(")").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\] <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18163	18298	
==>| push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6018	6146	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8988	9116	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6018	6146	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8988	9116	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6018	6146	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8988	9116	
==>') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13668	13809	
==>g,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3797	3926	
==>g,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3797	3926	
==>g,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3797	3926	
==>g,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7597	7688	
==>ort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7597	7688	
==>ort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7597	7688	
==>ort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1975	2066	
==>parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1975	2066	
==>parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1975	2066	
==>parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	292	426	
==>rn $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "sha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3120	3241	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5921	6042	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3120	3241	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5921	6042	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3120	3241	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5921	6042	
==>tes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3003	3101	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6017	6115	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8085	8183	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3003	3101	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6017	6115	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8085	8183	
==>r`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir ( <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16374	16460	
==>0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) : <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9106	9213	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6653	6760	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9106	9213	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6653	6760	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9106	9213	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6653	6760	
==>':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16341	16435	
==>ion>
    | <EqualityExpression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'===' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5689	5841	
==>d ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher") <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7451	7603	
==>d ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher") <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1735	1847	
==>} } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.stor <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1735	1847	
==>} } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.stor <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1735	1847	
==>} } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.stor <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8358	8460	
==>t - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicod <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8358	8460	
==>t - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicod <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4678	4793	
==>ion( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($se <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4678	4793	
==>ion( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	509	609	
==>am 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mig <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	509	609	
==>am 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mig <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	509	609	
==>am 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mig <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13033	13128	
==>are provided as argument they are each decoded
separately and the same number of strings are ret <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13033	13128	
==>are provided as argument they are each decoded
separately and the same number of strings are ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12373	12534	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12373	12534	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12373	12534	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1255	1370	
==>l_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	34	149	
==>se Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    whi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1255	1370	
==>l_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1255	1370	
==>l_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2382	2497	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4709	4824	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2382	2497	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4709	4824	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2382	2497	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4709	4824	
==>vide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_at <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19153	19252	
==>ter class, so I'm a little wary of making them
objects in their own right, even if it would create a <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17157	17252	
==>_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21122	21216	
==><err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21122	21216	
==><err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21122	21216	
==><err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2095	2210	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2500	2615	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2095	2210	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2500	2615	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2095	2210	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2500	2615	
==>ub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	938	1040	
==>ng tests

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo/exe/syn
    --n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2661	2795	
==>ndent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2661	2795	
==>ndent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2661	2795	
==>ndent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2233	2349	
==>, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2233	2349	
==>, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2233	2349	
==>, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6547	6669	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8996	9118	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6547	6669	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8996	9118	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6547	6669	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8996	9118	
==>ice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: inst <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1059	1168	
==>new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($pa <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21123	21234	
==>efined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	112	213	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	107	208	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	112	213	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	107	208	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	112	213	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	107	208	
==>ie unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7549	7703	
==>fined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7549	7703	
==>fined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7549	7703	
==>fined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	279	423	
==>%!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method par <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	279	423	
==>%!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method par <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3322	3422	
==>@_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3322	3422	
==>@_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3044	3169	
==>azy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3044	3169	
==>azy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3044	3169	
==>azy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1037	1161	
==>lsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1037	1161	
==>lsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1037	1161	
==>lsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_s <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16813	16898	
==>yExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpression :words <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4247	4369	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6896	7018	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4478	4597	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10927	11046	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4478	4597	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10927	11046	
==>tch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        ) <==
7	/Users/nnunley/pugs/util/claim_drift.pl	291	394	
==>ut until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1835	1951	
==>ject)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1835	1951	
==>ject)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1835	1951	
==>ject)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4727	4828	
==>ulti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is sy <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3854	3955	
==>ulti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is sy <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4727	4828	
==>ulti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is sy <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3854	3955	
==>ulti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is sy <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4304	4428	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7240	7364	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4304	4428	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7240	7364	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4304	4428	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7240	7364	
==>subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::b <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20459	20568	
==>'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (hash %pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12259	12382	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12259	12382	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12259	12382	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1042	1151	
==>my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1916	2025	
==>my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir( <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1042	1151	
==>my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir( <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1916	2025	
==>my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2451	2587	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4778	4914	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2451	2587	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4778	4914	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2451	2587	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4778	4914	
==>::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	919	1019	
==>to bear
# our weight, to be a next step. And the current Regexp::Parser Object
# ast isnt really what <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	767	892	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	855	980	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	767	892	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	855	980	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	767	892	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	855	980	
==>shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splic <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	59	158	
==>rict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !!>', '$cond', '$true <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3662	3766	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3662	3766	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7950	8051	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7080	7181	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7950	8051	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7080	7181	
==>,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	6816	6917	
==>w/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} || <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	449	559	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	447	557	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	449	559	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	447	557	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	449	559	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	447	557	
==>ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	1059	1162	
==>)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong typing)
#	::free - an unb <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13023	13142	
==>d>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="11" class="in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9615	9732	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12588	12705	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9615	9732	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12588	12705	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9615	9732	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12588	12705	
==>er needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # f <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3389	3517	
==>rExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule L <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24709	24832	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26898	27021	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24709	24832	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26898	27021	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24709	24832	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26898	27021	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22388	22551	
==>ram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22388	22551	
==>ram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22388	22551	
==>ram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2575	2697	
==>->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2575	2697	
==>->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2575	2697	
==>->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5285	5381	
==>"×" }


package type::variable;
use base qw/type/;

package type::variable::free;
use base qw/ty <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20872	20984	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21516	21628	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17293	17405	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17937	18049	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	983	1087	
==>his is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	983	1087	
==>his is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	983	1087	
==>his is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $sel <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3240	3336	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6254	6350	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8322	8418	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3240	3336	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6254	6350	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8322	8418	
==>turns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $pa <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2384	2480	
==>ent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{$ <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	1022	1139	
==>|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35889	35982	
==>uch that all common attribute names
and corresponding common tuple values are aligned and merg <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37632	37725	
==>uch that all common attribute names and corresponding common tuple values
are aligned and merg <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40439	40532	
==>uch that all common attribute names
and corresponding common tuple values are aligned and merg <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42181	42274	
==>uch that all common attribute names and corresponding common tuple values
are aligned and merg <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40053	40146	
==>uch that all common attribute names
and corresponding common tuple values are aligned and merg <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41831	41924	
==>uch that all common attribute names and corresponding common tuple values
are aligned and merg <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3335	3462	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8620	8747	
==>ptimization for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3594	3717	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10012	10135	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8317	8440	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3594	3717	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10012	10135	
==>ptimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	660	790	
==>rc_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	695	825	
==>rc_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	660	790	
==>rc_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pat <==
7	/Users/nnunley/pugs/util/build_pugs.pl	9877	10007	
==>rc_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pat <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	1133	1263	
==>rc_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pat <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2382	2483	
==>ILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cache <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2599	2700	
==>ILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cache <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	152	250	
==>te::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Inf <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	152	250	
==>te::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Inf <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16531	16625	
==>his language, which satisfies TTM's definition of a "D" language, is
described fully in the L<R <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16531	16625	
==>his language, which satisfies TTM's definition of a "D" language, is
described fully in the L<R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14636	14728	
==>:closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14636	14728	
==>:closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14636	14728	
==>:closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4881	4980	
==>@_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5225	5324	
==>@_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	55	152	
==>al "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	55	152	
==>al "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	55	152	
==>al "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8415	8509	
==>s event is begun when any block of characters is interpolated for modifiers.

=item I<end_eleme <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8415	8509	
==>s event is begun when any block of characters is interpolated for modifiers.

=item I<end_eleme <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8877	8988	
==>\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $di <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	611	722	
==>\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $di <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8877	8988	
==>\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $di <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8877	8988	
==>\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13882	13987	
==>urn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13882	13987	
==>urn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13882	13987	
==>urn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	78	186	
==>l) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (It <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	78	186	
==>l) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (It <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	78	186	
==>l) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (It <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25084	25169	
==>=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23848	23933	
==>=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25084	25169	
==>=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23848	23933	
==>=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11126	11284	
==>ting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8189	8338	
==>ting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8189	8338	
==>ting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bo <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp2.pl	3	106	
==>nterp2.pl - Interpolation in Perl 5
sub hallo {
	"Hallo, $_[0]!"
}

print "Otto sagt: @{[hallo('Hund')]} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1370	1469	
==>p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1370	1469	
==>p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1370	1469	
==>p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	23228	23375	
==>$list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6472	6611	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8921	9060	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6472	6611	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8921	9060	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6472	6611	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8921	9060	
==>my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6831	6954	
==>er $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        pos <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6831	6954	
==>er $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2513	2625	
==>rn $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2513	2625	
==>rn $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2513	2625	
==>rn $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14089	14181	
==>nnel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reaso <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14089	14181	
==>nnel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reaso <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12895	13091	
==>" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13174	13370	
==>" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9151	9292	
==>s( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9151	9292	
==>s( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9151	9292	
==>s( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5643	5771	
==>($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     }))) <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7405	7533	
==>($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     }))) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5936	6054	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4056	4174	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5936	6054	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4056	4174	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5936	6054	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4056	4174	
==>the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37168	37255	
==>@:superclasses'    => 'list')));
$::Class->send('add_attribute', (symbol->new('@:subclas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	438	597	
==>lasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	438	597	
==>lasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	438	597	
==>lasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4088	4206	
==>@result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must hand <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4088	4206	
==>@result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must hand <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10854	10963	
==>irectly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13303	13402	
==>SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SU <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13303	13402	
==>SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SU <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13303	13402	
==>SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SU <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1748	1839	
==>head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSI <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1748	1839	
==>head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSI <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	788	873	
==>-----------------------------------------------
# Regexps
# -------------------------- <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	811	896	
==>------------------------
# Regexps
# ------------------------------------------------- <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13316	13422	
==>ms);

    my $v = $self->reduce($thunk);

    #warn "applying @params to " . Dumper->reduce($thunk) . " yie <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6419	6523	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9389	9493	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6419	6523	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9389	9493	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6419	6523	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9389	9493	
==>hod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7971	8140	
==>,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7971	8140	
==>,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7971	8140	
==>,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(m <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	28	128	
==>lable;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6503	6589	
==>));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6503	6589	
==>));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6503	6589	
==>));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19523	19620	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16755	16852	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19523	19620	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16755	16852	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19523	19620	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16755	16852	
==>s,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value-> <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14445	14537	
==>"$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0
timeout 0
color <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30166	30297	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31895	32026	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30166	30297	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31895	32026	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30166	30297	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31895	32026	
==>gth = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$ <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	73	180	
==>ft { lauf_weg();  }
	when 'hungrig'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei();  }
	when <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	137	246	
==>Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name && $name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39483	39578	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39753	39848	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39483	39578	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39753	39848	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39483	39578	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39753	39848	
==>ms if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5279	5397	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8249	8367	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5279	5397	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8249	8367	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5279	5397	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8249	8367	
==>ic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	189	286	
==>stall::Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMake <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8156	8290	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5715	5849	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8156	8290	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5715	5849	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8156	8290	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5715	5849	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1844	1978	
==>ot $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our cani <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2010	2128	
==>args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_r <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2890	3008	
==>args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	751	852	
==>ns are used for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10619	10720	
==>ns are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1122	1219	
==>ns are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	721	818	
==>ns are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1122	1219	
==>ns are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12114	12230	
==>$1);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Rege <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	954	1064	
==>.)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cla <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	954	1064	
==>.)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cla <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	954	1064	
==>.)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22918	23021	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22918	23021	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22918	23021	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5408	5504	
==>$two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4538	4634	
==>$two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5408	5504	
==>$two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4538	4634	
==>$two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7789	7954	
==>fies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_sa <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8253	8418	
==>fies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_sa <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4219	4372	
==>fies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_sa <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4683	4836	
==>fies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_sa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2140	2219	
==>|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|tr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2140	2219	
==>|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|tr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2140	2219	
==>|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|tr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	11	114	
==>rl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	11	114	
==>rl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	11	114	
==>rl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2801	2897	
==>005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

P <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2958	3054	
==>005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

P <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2801	2897	
==>005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

P <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2958	3054	
==>005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9393	9498	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6940	7045	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9393	9498	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6940	7045	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9393	9498	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6940	7045	
==>breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_desce <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	6409	6508	
==>results();
}

# the wait here is sequential rather than nonblocking / as-they-come, because
# we wan <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1354	1464	
==>)
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@indextests);
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6133	6241	
==>f subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	648	756	
==>)
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	418	526	
==>)
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retur <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6133	6241	
==>f subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6133	6241	
==>f subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	418	526	
==>)
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retur <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4323	4441	
==>e on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, w <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4323	4441	
==>e on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, w <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4834	4948	
==>e on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, w <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4834	4948	
==>e on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9231	9328	
==>p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9231	9328	
==>p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9231	9328	
==>p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULT <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	3650	3762	
==>g renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) ) <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7127	7239	
==>g renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) ) <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6084	6196	
==>g renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) ) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25014	25111	
==>erver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examp <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23778	23875	
==>erver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examp <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25014	25111	
==>erver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examp <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23778	23875	
==>erver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8040	8162	
==>alling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8040	8162	
==>alling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8040	8162	
==>alling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unbo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3143	3260	
==>vent {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $even <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3143	3260	
==>vent {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $even <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3728	3839	
==>vent {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $even <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3728	3839	
==>vent {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $even <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4945	5054	
==>::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4945	5054	
==>::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4945	5054	
==>::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	885	979	
==>nt->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	885	979	
==>nt->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	885	979	
==>nt->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26152	26237	
==>Somewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1,'undef',O <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	4443	4544	
==>or failed based on their output to STDOUT (details above).  It prints
out each individual test which f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22632	22725	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22862	22955	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22632	22725	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22862	22955	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22632	22725	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22862	22955	
==>xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2776	2881	
==>w at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\% <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2776	2881	
==>w at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\% <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2776	2881	
==>w at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\% <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28273	28370	
==>h is suitable
for debugging purposes (such as to test that the object's contents look
good at a gl <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35629	35726	
==>h is suitable
for debugging purposes (such as to test that the object's contents look
good at a gl <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28273	28370	
==>h is suitable
for debugging purposes (such as to test that the object's contents look
good at a gl <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35629	35726	
==>h is suitable
for debugging purposes (such as to test that the object's contents look
good at a gl <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14103	14241	
==>air $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7045	7178	
==>er = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7045	7178	
==>er = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7045	7178	
==>er = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4184	4310	
==>air $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? exp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4184	4310	
==>air $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? exp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4184	4310	
==>air $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5106	5218	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5439	5551	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5106	5218	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5439	5551	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5106	5218	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5439	5551	
==>lf = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLIC <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1882	1986	
==>ethod match ($notification) {
        # this is really up to your subscription and event subclasses to de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26164	26356	
==>lar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  jo <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26164	26356	
==>lar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  jo <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26164	26356	
==>lar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  jo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1793	1887	
==>ntime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1882	1976	
==>ntime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1940	2032	
==>entation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1940	2032	
==>entation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	849	950	
==>n case the result is an AST
    
    print Blondie::Emitter::Pretty->new->string($result); # works for <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	415	507	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	51	143	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	415	507	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	51	143	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	415	507	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	51	143	
==>dBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->c <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2133	2248	
==>mmars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2133	2248	
==>mmars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1365	1475	
==>mmars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3226	3336	
==>mmars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	217	317	
==>}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	217	317	
==>}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	217	317	
==>}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30238	30371	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31967	32100	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30238	30371	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31967	32100	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30238	30371	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31967	32100	
==>ngth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52569	52653	
==>ass->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, $::O <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5868	6068	
==>int(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAM <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5868	6068	
==>int(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAM <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3229	3427	
==>int(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAM <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3229	3427	
==>int(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAM <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11526	11627	
==>ethod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11526	11627	
==>ethod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11526	11627	
==>ethod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%pa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3786	3895	
==>ave loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" co <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3650	3756	
==>ave loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" co <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	591	688	
==>ways to interpret a test
  my %results = $strap->analyze($name, \@test_output);
  my %results = $s <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	426	522	
==>his document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	430	526	
==>his document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	426	522	
==>his document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	430	526	
==>his document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8735	8897	
==>cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8735	8897	
==>cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4246	4343	
==>d == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $star <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4246	4343	
==>d == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $star <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	769	865	
==>return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	769	865	
==>return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	769	865	
==>return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      P <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	9199	9385	
==>},
                    failed      => \@failed,
                    bonus       => $results{bonus},
                    skipped     => $results{skip},
                    skip_reason => $ <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	159	263	
==>::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for P <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	159	263	
==>::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for P <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4818	4919	
==>e) || die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
sub def_token <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	389	489	
==>~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	389	489	
==>~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	389	489	
==>~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10753	10878	
==>egex back from the parser with the visual() method:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11189	11303	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12660	12774	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14666	14780	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16137	16251	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13974	14088	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15499	15613	
==>n $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is firs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13293	13397	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10577	10681	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13293	13397	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10577	10681	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13293	13397	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10577	10681	
==>->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1907	2006	
==>be supplied by name.

Note that the above code is not robust.  (If you need a real implementation
co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8690	8809	
==>SAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemen <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8690	8809	
==>SAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemen <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8690	8809	
==>SAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemen <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	95	208	
==>ainers { # consolidate with Array
    map {
        my $c = PIL::Run::Container::Scalar->new_instance();
        $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6782	6880	
==>m + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6782	6880	
==>m + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6782	6880	
==>m + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	9020	9151	
==>s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/ <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9020	9151	
==>s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3544	3653	
==>od, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3544	3653	
==>od, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3544	3653	
==>od, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4694	4802	
==>stead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # st <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4694	4802	
==>stead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2729	2832	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5377	5480	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2729	2832	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5377	5480	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2729	2832	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5377	5480	
==>he instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instan <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15632	15732	
==>n a Byte uplifted to an LChar).

Attempting to use a string at a level lower than what it supports is <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3788	3980	
==>h::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35922	36017	
==>es
and corresponding common tuple values are aligned and merged.  The heading
of the new relatio <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37665	37760	
==>es and corresponding common tuple values
are aligned and merged.  The heading of the new relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40472	40567	
==>es
and corresponding common tuple values are aligned and merged.  The heading
of the new relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42214	42309	
==>es and corresponding common tuple values
are aligned and merged.  The heading of the new relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40086	40181	
==>es
and corresponding common tuple values are aligned and merged.  The heading
of the new relatio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41864	41959	
==>es and corresponding common tuple values
are aligned and merged.  The heading of the new relatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6396	6509	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9366	9479	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6396	6509	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9366	9479	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6396	6509	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9366	9479	
==>@_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $me <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1164	1268	
==>d($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter_scope {
	my $self = shift <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2368	2485	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    f <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7462	7579	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    f <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2368	2485	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    f <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7462	7579	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	378	480	
==>ic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	378	480	
==>ic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	378	480	
==>ic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	394	514	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	392	512	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	394	514	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	392	512	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	394	514	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	392	512	
==>in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to c <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8276	8384	
==>);
  #What does this line 
  #$temp1 = length $key + $whitespacePosition;
  goto tok_match_end;

  tok_match_ <==
7	/Users/nnunley/pugs/util/testgraph.pl	1644	1758	
==>UPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My::Sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12510	12601	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10061	10152	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12510	12601	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10061	10152	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12510	12601	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10061	10152	
==>f ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13753	13877	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14127	14251	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13753	13877	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14127	14251	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13753	13877	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14127	14251	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5321	5426	
==>' directory and run $0 again to load it.
END_DIE

    my $obj = $admin->load($method, 1);
    push @{$self <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9506	9658	
==>t' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15050	15202	
==>t' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9506	9658	
==>t' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15044	15196	
==>t' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6018	6125	
==>rl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6018	6125	
==>rl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6018	6125	
==>rl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16245	16352	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20962	21069	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16245	16352	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20962	21069	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16245	16352	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20962	21069	
==>lass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        re <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16805	16893	
==>Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20275	20452	
==>p {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20275	20452	
==>p {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20275	20452	
==>p {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container: <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1733	1829	
==>s infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1496	1592	
==>s infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1733	1829	
==>s infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1496	1592	
==>s infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1677	1799	
==>_value.exists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
} <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3501	3602	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6515	6616	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8583	8684	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3501	3602	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6515	6616	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8583	8684	
==>ns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE A <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	893	997	
==>s}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	893	997	
==>s}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	893	997	
==>s}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  us <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21776	21874	
==>ne was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick th <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20657	20755	
==>ne was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21776	21874	
==>ne was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20657	20755	
==>ne was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4054	4152	
==>ash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4054	4152	
==>ash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4054	4152	
==>ash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_pos <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40893	40987	
==>ute,
because that is a practical way of suggesting improvements to the standard
version.

=head <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26453	26547	
==>ute, because that is a practical way of
suggesting improvements to the standard version.

=head <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40893	40987	
==>ute,
because that is a practical way of suggesting improvements to the standard
version.

=head <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26453	26547	
==>ute, because that is a practical way of
suggesting improvements to the standard version.

=head <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14962	15099	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14962	15099	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14962	15099	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19661	19797	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19661	19797	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19661	19797	
==>(split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3338	3448	
==>res} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown'\n"
      unless $values{lic <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	217	327	
==>TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) );
    __PAC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19890	19988	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17029	17127	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19890	19988	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17029	17127	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19890	19988	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17029	17127	
==>$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attribu <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3939	4041	
==>min->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5298	5400	
==>min->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6269	6370	
==>s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $R <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4162	4262	
==>);
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_i <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4162	4262	
==>);
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_i <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4119	4217	
==>);
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_i <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4119	4217	
==>);
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3876	3983	
==>b _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_wh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3876	3983	
==>b _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_wh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3876	3983	
==>b _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_wh <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	7088	7193	
==>fier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1428	1527	
==>fier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1428	1527	
==>fier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1428	1527	
==>fier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6 <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5145	5254	
==>----
## now begin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:su <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2909	3006	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10832	10929	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6034	6131	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2909	3006	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10832	10929	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6034	6131	
==>y => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5074	5213	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6035	6174	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5074	5213	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6035	6174	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5074	5213	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6035	6174	
==>'$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

c <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7903	8001	
==>$Result1 = $A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A.property_value.exis <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3637	3733	
==>ss( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
d <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3637	3733	
==>ss( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3717	3813	
==>ss( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
d <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40898	40992	
==>because that is a practical way of suggesting improvements to the standard
version.

=head1 ACK <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26458	26552	
==>because that is a practical way of
suggesting improvements to the standard version.

=head1 ACK <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40898	40992	
==>because that is a practical way of suggesting improvements to the standard
version.

=head1 ACK <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26458	26552	
==>because that is a practical way of
suggesting improvements to the standard version.

=head1 ACK <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3567	3678	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6503	6614	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3567	3678	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6503	6614	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3567	3678	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6503	6614	
==>5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22840	22933	
==>n::Example data type is immutable.  The value of
a Relation::Example object is determined when <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25731	25867	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27926	28062	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25731	25867	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27926	28062	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25731	25867	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27926	28062	
==>::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3147	3258	
==>0], '$<ident>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19769	19891	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16908	17030	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19769	19891	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16908	17030	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19769	19891	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16908	17030	
==>od($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	37	144	
==>s rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14783	14887	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12037	12141	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14783	14887	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12037	12141	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14783	14887	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12037	12141	
==>attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "In <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	179	275	
==>ackage Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15731	15833	
==>nt for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L< <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15731	15833	
==>nt for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1213	1314	
==>=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1213	1314	
==>=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1213	1314	
==>=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "o <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	5456	5556	
==>ts_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::procla <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5514	5614	
==>ts_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::procla <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	11147	11299	
==>nt {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.c <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11147	11299	
==>nt {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.c <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12973	13111	
==>) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16 <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12973	13111	
==>) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	990	1085	
==>s primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	990	1085	
==>s primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	990	1085	
==>s primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6785	6895	
==>opy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus the cu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	775	906	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	863	994	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	775	906	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	863	994	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	775	906	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	863	994	
==>RGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1027	1135	
==>es = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1027	1135	
==>es = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1027	1135	
==>es = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = r <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18884	18981	
==>::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demo <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18884	18981	
==>::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demo <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	15672	15766	
==>at is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to forc <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15730	15824	
==>at is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to forc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24536	24705	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26725	26894	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24536	24705	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26725	26894	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24536	24705	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26725	26894	
==>_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33525	33629	
==>llower in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is used to come u <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4382	4482	
==>ringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4382	4482	
==>ringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Se <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5255	5352	
==>ringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8634	8731	
==>.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doubleq <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5255	5352	
==>ringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8634	8731	
==>.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doubleq <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8634	8731	
==>.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doubleq <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2547	2680	
==>rated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2547	2680	
==>rated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	626	735	
==>lat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	626	735	
==>lat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	928	1024	
==>"next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	928	1024	
==>"next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	928	1024	
==>"next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9000	9131	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11973	12104	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9000	9131	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11973	12104	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9000	9131	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11973	12104	
==>e methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Pe <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	8546	8645	
==>type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		o <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13480	13609	
==>file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Loca <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13480	13609	
==>file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Loca <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35612	35701	
==>lation::Example $other!) returns Relation::Example>

This multi-method is a generic binary <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36709	36798	
==>lation::Example $other!) returns Relation::Example>

This multi-method is a generic binary <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37209	37298	
==>lation::Example $other!) returns Relation::Example>

This multi-method is a generic binary <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39257	39346	
==>lation::Example $other!) returns Relation::Example>

This multi-method is a generic binary <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39805	39894	
==>lation::Example $other!) returns Relation::Example>

This multi-method is a generic binary <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7433	7730	
==>n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<!>' => Thunk->new(
        Seq->new(
            Param->new(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3877	4033	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6813	6969	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3877	4033	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6813	6969	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3877	4033	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6813	6969	
==>roper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28250	28346	
==>ion of this object which is suitable
for debugging purposes (such as to test that the object's co <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35606	35702	
==>ion of this object which is suitable
for debugging purposes (such as to test that the object's co <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28250	28346	
==>ion of this object which is suitable
for debugging purposes (such as to test that the object's co <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35606	35702	
==>ion of this object which is suitable
for debugging purposes (such as to test that the object's co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4556	4649	
==>ame] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4556	4649	
==>ame] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4556	4649	
==>ame] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_name <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14819	14954	
==>[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14819	14954	
==>[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14819	14954	
==>[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! + <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3163	3298	
==>[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! + <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	8	100	
==>S::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	8	100	
==>S::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	8	100	
==>S::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4453	4594	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6965	7106	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4453	4594	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6965	7106	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4453	4594	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6965	7106	
==>if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction b <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2765	2858	
==>my $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5677	5794	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8647	8764	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5677	5794	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8647	8764	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5677	5794	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8647	8764	
==>an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the ot <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35257	35352	
==>w
Relation::Example has all of the same attributes as the original.  Trivial cases are
where C<$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40917	41028	
==>is->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40917	41028	
==>is->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40917	41028	
==>is->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18436	18518	
==>>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21695	21777	
==>>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41701	41783	
==>>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44602	44684	
==>>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1081	1178	
==>turns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch () retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	471	564	
==>ss of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	471	564	
==>ss of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	471	564	
==>ss of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	354	441	
==>Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	354	441	
==>Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	354	441	
==>Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	582	737	
==>ible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($ <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	582	737	
==>ible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	41	145	
==>03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be strin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	41	145	
==>03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be strin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	41	145	
==>03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be strin <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6953	7056	
==>stroy all possible bindings
            # user code has to @array[$off+$i], see t/operators/binding/arra <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8115	8216	
==>e from S29draft.pod 8651.  In the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    L <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2071	2230	
==>eturn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7014	7171	
==>eturn sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1842	1996	
==>eturn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1842	1996	
==>eturn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #mat <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6779	6931	
==>eturn sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 mat <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13203	13295	
==>s routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13203	13295	
==>s routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2021	2200	
==>lse

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = un <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2439	2613	
==>lse
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = un <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1955	2129	
==>lse
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = un <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2439	2613	
==>lse
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = un <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15703	15802	
==>thod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15703	15802	
==>thod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15703	15802	
==>thod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $labe <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	9839	9959	
==>1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular ord <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7779	7899	
==>1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular ord <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9839	9959	
==>1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular ord <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7779	7899	
==>1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular ord <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7041	7139	
==>all " #  -package-name Pugs -odir dist/build/src -hidir dist/build/src "
      unless $self->is_ext <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5726	5819	
==>@_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5208	5301	
==>@_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22657	22786	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22936	23065	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5927	6041	
==>tifierPart>
}
rule IdentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <Unicode <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26714	26826	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26993	27105	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5 <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4842	4945	
==>.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ) <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4842	4945	
==>.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19235	19352	
==>= ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15656	15773	
==>= ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	452	551	
==>accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	997	1096	
==>accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't d <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	452	551	
==>accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't d <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	997	1096	
==>accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't d <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	997	1096	
==>accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't d <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	7926	8040	
==>ests) {
        $Last_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20765	20854	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17903	17992	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20765	20854	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17903	17992	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20765	20854	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17903	17992	
==>morph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4333	4427	
==>3;
    # http://www.research.att.com/~njas/sequences/A001113
}

 multi method Array::delete (@a <==
7	/Users/nnunley/pugs/misc/S29_round.pl	3618	3817	
==>= .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_dow <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17408	17588	
==>' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17408	17588	
==>' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17408	17588	
==>' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2903	3016	
==>{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2903	3016	
==>{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2903	3016	
==>{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4737	4866	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2924	3053	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4737	4866	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2924	3053	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4737	4866	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2924	3053	
==>however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loo <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5629	5728	
==>multi sub ToBoolean(JSX::Value::String $v) {
    ~$v eq "" ?? JSX::false !! JSX::true;
}
multi sub T <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	10026	10132	
==>rence( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.compleme <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10026	10132	
==>rence( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.compleme <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7755	7859	
==>asses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7755	7859	
==>asses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7755	7859	
==>asses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5091	5190	
==>ing and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5091	5190	
==>ing and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	304	432	
==>sub type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visua <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3805	3906	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4058	4159	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4503	4604	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3805	3906	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4058	4159	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4503	4604	
==>f: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6167	6351	
==>current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if def <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6167	6351	
==>current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if def <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10395	10554	
==>ce_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10395	10554	
==>ce_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10395	10554	
==>ce_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Pe <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	235	340	
==>itle>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web serve <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	235	340	
==>itle>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web serve <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14011	14113	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
M <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	58	160	
==>rFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14011	14113	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
M <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14011	14113	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
M <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	58	160	
==>rFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	58	158	
==>rFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	58	158	
==>rFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	650	748	
==>ursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::E <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	650	748	
==>ursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::E <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	650	748	
==>ursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::E <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1727	1822	
==>hat has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obje <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1490	1585	
==>hat has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obje <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1727	1822	
==>hat has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obje <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1490	1585	
==>hat has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18835	18966	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16073	16204	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18835	18966	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16073	16204	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18835	18966	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16073	16204	
==>nce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	219	337	
==>ributes => [ '$.output', '$.error_output' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %param <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9221	9333	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6768	6880	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9221	9333	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6768	6880	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9221	9333	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6768	6880	
==>her;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ( <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	11069	11181	
==>layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    multi method seek (Int $position, Int $whence = $File::SEEK_STAR <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	1414	1545	
==>{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pwd}) {
            goto &$code unless $cwd eq $pwd; # d <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5865	5972	
==>y.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($eve <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5865	5972	
==>y.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($eve <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25451	25555	
==>sjunction> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4898	4999	
==>Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one st <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4898	4999	
==>Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one st <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4898	4999	
==>Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one st <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3523	3664	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8807	8948	
==>_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3777	3913	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10195	10331	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8499	8635	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3777	3913	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10195	10331	
==>_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5080	5220	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6041	6181	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5080	5220	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6041	6181	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5080	5220	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6041	6181	
==>oxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 ' <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19078	19175	
==>e if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@\n".number_the_lines <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1641	1758	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4804	4921	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	534	651	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2153	2270	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1024	1141	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1194	1311	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1247	1364	
==>em B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	761	858	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1281	1378	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	761	858	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1281	1378	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	761	858	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1281	1378	
==>p();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4072	4166	
==>d1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homep <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4898	5053	
==>turn $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4898	5053	
==>turn $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3701	3844	
==>turn $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3701	3844	
==>turn $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4653	4752	
==>ontain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This p <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4653	4752	
==>ontain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6850	6949	
==>ontain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5291	5422	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8261	8392	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5291	5422	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8261	8392	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5291	5422	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8261	8392	
==>.
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27302	27394	
==>thod creates and returns a new Relation::Example object, whose Heading and
Body attributes ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14462	14590	
==>sa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14462	14590	
==>sa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14462	14590	
==>sa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8064	8155	
==>@b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).memb <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7194	7285	
==>@b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).memb <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8064	8155	
==>@b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).memb <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7194	7285	
==>@b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).memb <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6758	6856	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5888	5986	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2542	2640	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2542	2640	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6758	6856	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5888	5986	
==>ber);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mul <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	8	100	
==>Match;
package Match::Subrule;

package MatchX;
package MatchX::Subrule;
@ISA=qw(MatchX Match <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31274	31476	
==>erl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31274	31476	
==>erl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31274	31476	
==>erl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4176	4284	
==>m->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $cu <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4176	4284	
==>m->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $cu <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4766	4874	
==>m->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $cu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5818	5924	
==>mar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pug <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10209	10414	
==>ck} ) . 
                    "\n }";
        }
        return  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parame <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2424	2548	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4751	4875	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2424	2548	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4751	4875	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2424	2548	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4751	4875	
==>turn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1105	1211	
==>at $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or die "Couldn't remove <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7006	7101	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6136	6231	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2790	2885	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2790	2885	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7006	7101	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6136	6231	
==>et.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.incl <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7126	7330	
==>( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5535	5644	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3655	3764	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5535	5644	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3655	3764	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5535	5644	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3655	3764	
==>unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_s <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43190	43427	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retur <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46534	46771	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retur <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36440	36663	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retur <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37975	38198	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9615	9799	
==>[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @par <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9615	9799	
==>[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @par <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9615	9799	
==>[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @par <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	383	512	
==>'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19346	19460	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4826	4940	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19346	19460	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4826	4940	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19346	19460	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4826	4940	
==>(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4053	4160	
==>>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4053	4160	
==>>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4053	4160	
==>>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34544	34648	
==>).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => [' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34544	34648	
==>).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => [' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14967	15061	
==>thod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14967	15061	
==>thod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7782	7905	
==>prefix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_pre <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8295	8407	
==>or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string ta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	453	565	
==>or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string ta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	685	794	
==>or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string ta <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8016	8125	
==>or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string ta <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	431	540	
==>or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string ta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	685	794	
==>or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string ta <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4665	4784	
==>start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            u <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5324	5443	
==>start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            u <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4665	4784	
==>start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            u <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5324	5443	
==>start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11966	12083	
==>y => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11966	12083	
==>y => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11966	12083	
==>y => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12606	12726	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13185	13305	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12606	12726	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13185	13305	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12606	12726	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13185	13305	
==>ams{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2492	2608	
==>y $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        require "$self <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1034	1144	
==>\n" .
           "use base 'Pugs::Grammar::Base';\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1024	1126	
==>od .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1024	1126	
==>od .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1024	1126	
==>od .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3316	3403	
==>ass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3316	3403	
==>ass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3316	3403	
==>ass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14535	14659	
==>p unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14535	14659	
==>p unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14535	14659	
==>p unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29485	29582	
==>e the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
nam <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34037	34134	
==>e the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
nam <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33201	33298	
==>e the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
nam <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34538	34626	
==>irst, then in F<Regexp::MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THING <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2703	2822	
==>e of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2703	2822	
==>e of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2703	2822	
==>e of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11710	11824	
==>status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test:: <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2142	2246	
==>status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test:: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2142	2246	
==>status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test:: <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4037	4133	
==>e PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	782	879	
==>ility (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	782	879	
==>ility (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	782	879	
==>ility (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_n <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24110	24206	
==>tween a client automatically sending something
  in response to something it received.  This is t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22883	22979	
==>tween a client automatically sending something
  in response to something it received.  This is t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24110	24206	
==>tween a client automatically sending something
  in response to something it received.  This is t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22883	22979	
==>tween a client automatically sending something
  in response to something it received.  This is t <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	347	479	
==>om '$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source package from '$dir'";
        
    push @PKGS, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5636	5759	
==>j, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A mo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5636	5759	
==>j, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A mo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5636	5759	
==>j, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A mo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	9069	9177	
==>g,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differen <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12546	12654	
==>g,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differen <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11782	11890	
==>g,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differen <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18344	18458	
==>);
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unle <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	226	340	
==>e source dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & error checking
    my $st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19464	19574	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16696	16806	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19464	19574	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16696	16806	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19464	19574	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16696	16806	
==>label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4274	4382	
==>\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3136	3292	
==>$@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3136	3292	
==>$@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3136	3292	
==>$@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	549	662	
==>e = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	549	662	
==>e = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21088	21178	
==>SQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontB <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21088	21178	
==>SQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontB <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6196	6298	
==>("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6196	6298	
==>("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6196	6298	
==>("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10344	10443	
==>end items into the set. Returns the number of items
inserted.

It is not fatal to insert an item whi <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8237	8336	
==>end items into the set. Returns the number of items inserted.

It is not fatal to insert an item whi <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10344	10443	
==>end items into the set. Returns the number of items
inserted.

It is not fatal to insert an item whi <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8237	8336	
==>end items into the set. Returns the number of items inserted.

It is not fatal to insert an item whi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14205	14421	
==>hod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # N <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14205	14421	
==>hod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # N <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14205	14421	
==>hod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # N <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1793	1952	
==>f.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_i <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2205	2364	
==>f.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_i <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1793	1952	
==>f.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_i <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2205	2364	
==>f.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_i <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5612	5727	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6165	6280	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5805	5920	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6358	6473	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1303	1402	
==>lass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1303	1402	
==>lass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1303	1402	
==>lass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	127	234	
==>t;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $par <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	123	224	
==>t;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $par <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	117	218	
==>t;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	123	224	
==>t;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	117	218	
==>t;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $par <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2366	2455	
==>size < $other.size && $other.includes($self.members));
}
method superset($self: Set $other <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2366	2455	
==>size < $other.size && $other.includes($self.members));
}
method superset($self: Set $other <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15039	15156	
==>rl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $fi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40549	40660	
==>= @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40549	40660	
==>= @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40549	40660	
==>= @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{array <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3351	3443	
==>r::Test class represents a single test within the
Test::Builder framework. The class itself i <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3351	3443	
==>r::Test class represents a single test within the
Test::Builder framework. The class itself i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5548	5640	
==>r::Test class represents a single test within the
Test::Builder framework. The class itself i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4468	4589	
==>thods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4468	4589	
==>thods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4468	4589	
==>thods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3571	3691	
==>rue if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3571	3691	
==>rue if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to e <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3036	3152	
==>$cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3036	3152	
==>$cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5656	5796	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3776	3916	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5656	5796	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3776	3916	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5656	5796	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3776	3916	
==>lf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is c <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22165	22255	
==>ESCRIPTION

Relation::Example provides a minimal in-RAM
storage implementation for the L<Re <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10697	10829	
==>$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \% <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10691	10823	
==>$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \% <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2389	2494	
==>gify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2389	2494	
==>gify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9185	9280	
==>lf = shift;
    # ...
}));

=pod

-------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9185	9280	
==>lf = shift;
    # ...
}));

=pod

-------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9185	9280	
==>lf = shift;
    # ...
}));

=pod

-------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10537	10726	
==>eq Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %ms <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10537	10726	
==>eq Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %ms <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2862	2968	
==>s a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1697	1803	
==>f->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2862	2968	
==>s a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1697	1803	
==>f->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1697	1803	
==>f->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6275	6543	
==>nd[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some othe <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6739	7007	
==>nd[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some othe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18080	18243	
==>rgs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18080	18243	
==>rgs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18080	18243	
==>rgs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable metho <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9102	9195	
==>r::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9102	9195	
==>r::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4139	4261	
==>f ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4139	4261	
==>f ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4139	4261	
==>f ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fr <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6489	6592	
==>ay;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seems a preferable ph <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	171	267	
==>e too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with cal <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	171	267	
==>e too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with cal <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	171	267	
==>e too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with cal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16255	16374	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13466	13585	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16255	16374	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13466	13585	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16255	16374	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13466	13585	
==>f, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}) <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	205	305	
==>" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1568	1683	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2015	2130	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1568	1683	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2015	2130	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1568	1683	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2015	2130	
==>, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ne <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15538	15631	
==>uantAttr

Removes quantifiers as objects, and makes 'min' and 'max' attributes of
other object <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11151	11264	
==>ec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir(' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11151	11264	
==>ec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir(' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11151	11264	
==>ec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir(' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1652	1756	
==>ages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Att <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1652	1756	
==>ages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Att <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1053	1143	
==>print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\ <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1053	1143	
==>print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7879	8023	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5438	5582	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7879	8023	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5438	5582	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7879	8023	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5438	5582	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1567	1711	
==>last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13132	13280	
==>1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13132	13280	
==>1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13132	13280	
==>1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20276	20380	
==>n ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20276	20380	
==>n ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20276	20380	
==>n ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multi <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52395	52479	
==>(symbol->new('@:superclasses') => list->new($::Module));

$::Module->set_attr(symbol- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1180	1366	
==>string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1180	1366	
==>string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1180	1366	
==>string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19272	19413	
==>nd('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            m <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39724	39865	
==>nd('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            m <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	26553	26649	
==>trs> is either empty or equal to
the invocant Relation's header, in which case it returns the ide <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31105	31201	
==>trs> is either empty or equal to
the invocant Relation's header, in which case it returns the ide <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1919	2127	
==>if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2340	2541	
==>if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1856	2057	
==>if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2340	2541	
==>if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### n <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8239	8372	
==>(;$k < $length; $k++) {
                my $key = $k; # Eh. Spec would have us use ToString(k).
                $A.<[[Delete]]>($k) if <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	971	1079	
==>size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
} <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	971	1079	
==>size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9072	9192	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12045	12165	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9072	9192	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12045	12165	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9072	9192	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12045	12165	
==>ge Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassM <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7666	7819	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5225	5378	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7666	7819	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5225	5378	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7666	7819	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5225	5378	
==>{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, i <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4187	4321	
==>f ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1395	1516	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2958	3079	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1395	1516	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2958	3079	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1395	1516	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2958	3079	
==>istics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above m <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18390	18483	
==>Str>.assuming:delimiter(' ');

String delimiters must not be treated as rules but as constants <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13534	13683	
==>while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13534	13683	
==>while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13534	13683	
==>while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2419	2568	
==>while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5342	5438	
==>e
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pr <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5342	5438	
==>e
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7539	7635	
==>e
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pr <==
7	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	584	694	
==>1 if $line =~ /^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = File::Bas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	303	399	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	627	723	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	303	399	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	627	723	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	303	399	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	627	723	
==>UBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc) <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	25124	25216	
==>C<All tests successful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some statistic <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2330	2432	
==>r(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2156	2294	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1268	1406	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2156	2294	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1268	1406	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2156	2294	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1268	1406	
==>e_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
7	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	105	201	
==>se Test::NoWarnings;

use Blondie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = sh <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10250	10363	
==>l headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stand <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13727	13840	
==>l headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stand <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13008	13121	
==>l headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stand <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	3094	3200	
==>ep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Date <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3094	3200	
==>ep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Date <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	20884	20982	
==>urns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an uno <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25436	25534	
==>urns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an uno <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3982	4127	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6918	7063	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3982	4127	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6918	7063	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3982	4127	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6918	7063	
==>n $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4055	4146	
==>pi ( --> Num )
 {
     3.1415926535897932384626433832795028841971693993751058209749445923078 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1240	1355	
==>k: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1240	1355	
==>k: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1240	1355	
==>k: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21974	22068	
==>hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

T <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20855	20949	
==>hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

T <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21974	22068	
==>hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

T <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20855	20949	
==>hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

T <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	309	457	
==>_value('$:value');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2464	2585	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2464	2585	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2464	2585	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2108	2222	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2108	2222	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2108	2222	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	797	973	
==>($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	797	973	
==>($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2081	2224	
==>ent?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!cont <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2081	2224	
==>ent?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!cont <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29479	29576	
==>rs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34031	34128	
==>rs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33195	33292	
==>rs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4133	4256	
==>oin " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4133	4256	
==>oin " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4133	4256	
==>oin " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nati <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20467	20562	
==>me application where this is not
appropriate.  Prefixing field names with ':' allow you to force <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20467	20562	
==>me application where this is not
appropriate.  Prefixing field names with ':' allow you to force <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3673	3761	
==>Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995 <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3673	3761	
==>Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10084	10239	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7635	7790	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10084	10239	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7635	7790	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10084	10239	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7635	7790	
==>turn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	4878	4991	
==>ft;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$self,
		param => $self->{param}-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15706	15830	
==>int "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12503	12596	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10054	10147	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12503	12596	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10054	10147	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12503	12596	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10054	10147	
==>urn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $se <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5280	5464	
==>length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tai <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5280	5464	
==>length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tai <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3749	3905	
==>te} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interf <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3996	4144	
==>te} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interf <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10445	10593	
==>te} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interf <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3996	4144	
==>te} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interf <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10445	10593	
==>te} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interf <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9195	9302	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6742	6849	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9195	9302	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6742	6849	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9195	9302	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6742	6849	
==>anonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	160	266	
==>ression;
use Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10983	11082	
==>>

Removes the specified items from the set. Returns the number of items
removed.

It is not fatal t <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8387	8486	
==>>

Removes the specified items from the set. Returns the number of items removed.

It is not fatal t <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10983	11082	
==>>

Removes the specified items from the set. Returns the number of items
removed.

It is not fatal t <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8387	8486	
==>>

Removes the specified items from the set. Returns the number of items removed.

It is not fatal t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9294	9390	
==>ew(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9294	9390	
==>ew(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9294	9390	
==>ew(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25395	25579	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27590	27774	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25395	25579	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27590	27774	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25395	25579	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27590	27774	
==>if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  U <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50956	51101	
==>->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8518	8687	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6071	6240	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8518	8687	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6071	6240	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8518	8687	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6071	6240	
==>($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # t <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3626	3726	
==>ot-path as the root of an Parrot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as the pa <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28206	28347	
==>mbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	593	698	
==>ber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	593	698	
==>ber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	593	698	
==>ber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	274	361	
==>tp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ibl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	274	361	
==>tp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ibl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	274	361	
==>tp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ibl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15665	15774	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15665	15774	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15665	15774	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20386	20491	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20386	20491	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20386	20491	
==>ds::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39210	39299	
==>n alias named C<matching>.

=item C<product (Relation::Example $other!) returns Relation:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9572	9703	
==>$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10408	10539	
==>$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8104	8222	
==>_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8092	8210	
==>_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	19632	19730	
==>er than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24184	24282	
==>er than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	26708	26803	
==>int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → (int <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	840	963	
==>start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_ope <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4079	4202	
==>start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_ope <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	840	963	
==>start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_ope <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4079	4202	
==>start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_ope <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13311	13414	
==>ASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13311	13414	
==>ASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13311	13414	
==>ASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2294	2416	
==>ity)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2294	2416	
==>ity)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	357	458	
==>AMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4712	4813	
==>\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $E <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	357	458	
==>AMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4712	4813	
==>\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $E <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4712	4813	
==>\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19444	19553	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16676	16785	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19444	19553	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16676	16785	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19444	19553	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16676	16785	
==>not STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the nam <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	19518	19621	
==>safe {
    join($comma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma) is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10786	10911	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15327	15452	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10786	10911	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15327	15452	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10786	10911	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15327	15452	
==>private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_tab <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9207	9290	
==>switches = $self->_cleaned_switches( $Test::Harness::Switches, $ENV{HARNESS_PERL_SWI <==
7	/Users/nnunley/pugs/util/func_refact.pl	3084	3191	
==>return 0 if $total == $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { requ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5362	5466	
==>ts you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5362	5466	
==>ts you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5362	5466	
==>ts you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2082	2180	
==>p $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2082	2180	
==>p $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2082	2180	
==>p $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4529	4647	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2741	2859	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4529	4647	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2741	2859	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4529	4647	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2741	2859	
==>t a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it bac <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	57	158	
==>able;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warnings;

use Carp ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7044	7170	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10014	10140	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7044	7170	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10014	10140	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7044	7170	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10014	10140	
==>rapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	328	442	
==>ircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3537	3656	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6473	6592	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3537	3656	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6473	6592	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3537	3656	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6473	6592	
==>d primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wr <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20612	20704	
==>ct eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4017	4130	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6666	6779	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4254	4364	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10703	10813	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4254	4364	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10703	10813	
==>er {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return un <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1363	1453	
==>tor_here>.
#
#  Resources:
#   http://www.ecma-international.org/publications/standards/Ecm <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	211	329	
==>e_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	205	323	
==>e_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	211	329	
==>e_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	205	323	
==>e_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	243	341	
==>q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert() <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1771	1869	
==>q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert() <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1958	2052	
==>t";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to($params- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3879	3978	
==>$name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3879	3978	
==>$name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3879	3978	
==>$name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30730	30827	
==>ht parenthesis
itself.  The handler throws an error if it can't match the ')', because
if the 'c)' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2467	2562	
==>nfix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2467	2562	
==>nfix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2467	2562	
==>nfix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5789	6038	
==>rint("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5789	6038	
==>rint("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3150	3397	
==>rint("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3150	3397	
==>rint("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2428	2556	
==>0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $cod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2428	2556	
==>0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $cod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2428	2556	
==>0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $cod <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	809	927	
==>alue, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compil <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	809	927	
==>alue, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4655	4760	
==>w( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4655	4760	
==>w( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4655	4760	
==>w( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( ' <==
7	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	724	825	
==>e::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note " <==
7	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	724	825	
==>e::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note " <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5531	5636	
==>tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns St <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5531	5636	
==>tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8369	8472	
==>bmethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Te <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7560	7660	
==>er("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorizati <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7560	7660	
==>er("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorizati <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	573	670	
==>bmethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Te <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	573	670	
==>bmethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Te <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9594	9749	
==>if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15138	15293	
==>if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9594	9749	
==>if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15132	15287	
==>if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17539	17682	
==>thod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17539	17682	
==>thod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17539	17682	
==>thod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4275	4379	
==>sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_cont <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4275	4379	
==>sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_cont <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4275	4379	
==>sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_cont <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1399	1496	
==>s_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31527	31624	
==>bject creates a deeper scope (like an OPEN).

=item ifthen

Whether this object has a true/false b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1399	1496	
==>s_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1399	1496	
==>s_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5128	5259	
==>hod) = @_;
            ::opaque_instance_class($self)->add_method($label, $method);
        },          
    },
);

# < Class is a s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38630	38745	
==>6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38630	38745	
==>6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38630	38745	
==>6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	130	239	
==>{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	130	239	
==>{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	130	239	
==>{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11453	11640	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9006	9193	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11453	11640	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9006	9193	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11453	11640	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9006	9193	
==>_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go bac <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	392	490	
==>node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' , <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7308	7439	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4867	4998	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7308	7439	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4867	4998	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7308	7439	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4867	4998	
==>mptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8162	8264	
==>pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10598	10723	
==>ub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10598	10723	
==>ub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10598	10723	
==>ub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = sh <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2745	2841	
==>forms the actions denoted by
the AST, ultimately flattenning the tree down to a single value.

=c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5051	5145	
==>$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5051	5145	
==>$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5051	5145	
==>$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13055	13190	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13055	13190	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13055	13190	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5295	5430	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3795	3930	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1940	2075	
==>f += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3774	3892	
==>p1');
is($p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prot <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7687	7801	
==>d try again, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ B <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3743	3854	
==>ile themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 i <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3743	3854	
==>ile themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5267	5378	
==>ile themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4733	4824	
==>is overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4733	4824	
==>is overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4733	4824	
==>is overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7938	8158	
==>\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
=cut
    
    ### uninstall <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25607	25717	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27802	27912	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25607	25717	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27802	27912	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25607	25717	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27802	27912	
==>oxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2196	2299	
==>is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(: <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2196	2299	
==>is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(: <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10253	10351	
==>ss(class_neg(digit))         --> "\\D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", !.
p <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6457	6550	
==>", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpola <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5530	5623	
==>", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpola <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6457	6550	
==>", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpola <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5530	5623	
==>", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpola <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1400	1521	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2963	3084	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1400	1521	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2963	3084	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1400	1521	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2963	3084	
==>s of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magica <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29234	29348	
==>bol $order) returns block {
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1259	1390	
==>this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } $sub_seq->tail->to_native);
                # NOTE <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19458	19570	
==>ement :words {  # see clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatement>
    | <ExpressionS <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25287	25381	
==>ocant object's attributes is identical; they do not
interact with the outside environment at al <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11418	11512	
==>ocant object's attributes is identical; they do not
interact with the outside environment at al <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14691	14785	
==>ocant
object's attributes is identical; they do not interact with the outside
environment at al <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25287	25381	
==>ocant object's attributes is identical; they do not
interact with the outside environment at al <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11418	11512	
==>ocant object's attributes is identical; they do not
interact with the outside environment at al <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14691	14785	
==>ocant
object's attributes is identical; they do not interact with the outside
environment at al <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28395	28494	
==>es are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit h <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35751	35850	
==>es are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit h <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28395	28494	
==>es are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit h <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35751	35850	
==>es are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5586	5682	
==>n";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thing <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5586	5682	
==>n";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thing <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5586	5682	
==>n";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thing <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4901	5076	
==>ck')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ---- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	372	480	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	370	478	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	372	480	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	370	478	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	372	480	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	370	478	
==>andidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1772	1921	
==>= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->de <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1772	1921	
==>= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->de <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1772	1921	
==>= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->de <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39396	39489	
==>arrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText li <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5131	5224	
==>arrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText li <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39396	39489	
==>arrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText li <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5131	5224	
==>arrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText li <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	545	673	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	511	639	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	561	689	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	517	645	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	572	700	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	537	665	
==>>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->S <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	196	317	
==>p {
        print "Use perl version of &infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12885	13023	
==>s;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8982	9101	
==>efault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8982	9101	
==>efault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8982	9101	
==>efault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	449	543	
==>FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statemen <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	449	543	
==>FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statemen <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	449	543	
==>FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statemen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	278	376	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	602	700	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	278	376	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	602	700	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	278	376	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	602	700	
==>::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gene <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	12081	12177	
==>rectional pipe. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun/1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	750	849	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1270	1369	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	750	849	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1270	1369	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	750	849	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1270	1369	
==>c = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    i <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	61	155	
==>l::Roles @.super_roles;

has Hash of Str, Perl::Meta::Property %.properties;
has Hash of Str, P <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1404	1503	
==>d 
have to be insane to use this for anything more than obscuring text from 
accidental viewing.  (r <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1404	1503	
==>d 
have to be insane to use this for anything more than obscuring text from 
accidental viewing.  (r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	555	653	
==>d support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AU <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	555	653	
==>d support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AU <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	555	653	
==>d support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AU <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13240	13337	
==>S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6715	6812	
==>S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5199	5307	
==>load the existing index file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6992	7095	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6992	7095	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6992	7095	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1949	2040	
==>erl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1949	2040	
==>erl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1949	2040	
==>erl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7861	7975	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10784	10898	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7861	7975	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10784	10898	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7861	7975	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10784	10898	
==>rridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2140	2261	
==>nstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11008	11129	
==>nstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2333	2454	
==>nstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11287	11408	
==>nstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	194	297	
==>ction (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	194	297	
==>ction (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	194	297	
==>ction (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8570	8749	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6123	6302	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8570	8749	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6123	6302	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8570	8749	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6123	6302	
==>r($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37249	37344	
==>subclasses')      => attribute->new('@:subclasses'      => 'list')));
$::Class->send('add_attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	521	629	
==>turn $TRUE if $value;
    return $FALSE;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1736	1840	
==>inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1736	1840	
==>inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1736	1840	
==>inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    v <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	518	617	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	518	617	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	518	617	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    v <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	408	517	
==>of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	899	1008	
==>of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	408	517	
==>of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	899	1008	
==>of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1430	1533	
==>self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1430	1533	
==>self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1430	1533	
==>self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6736	6844	
==>isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWri <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6736	6844	
==>isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWri <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3635	3743	
==>isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1498	1601	
==>l;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1498	1601	
==>l;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1498	1601	
==>l;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implem <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	13934	14030	
==>v($.param) = { env($$) }

# combs combine the generic values from their children
comb: generic_in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5517	5733	
==>d $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5517	5733	
==>d $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5517	5733	
==>d $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0 <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	5313	5431	
==>fe {
        my($mess, $i);
        $mess = "$e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) - <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4994	5093	
==>tem B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fail <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4994	5093	
==>tem B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fail <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6518	6617	
==>tem B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fail <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11136	11292	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8689	8845	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11136	11292	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8689	8845	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11136	11292	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8689	8845	
==>n sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12416	12514	
==>al Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory manageme <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4469	4580	
==>etachar:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own / <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7117	7217	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6247	6347	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2901	3001	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2901	3001	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7117	7217	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6247	6347	
==>}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these m <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3875	4039	
==>s one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$av <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4339	4503	
==>s one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$av <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	17253	17352	
==>pty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17253	17352	
==>pty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2540	2633	
==>:Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2540	2633	
==>:Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6567	6660	
==>PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	19660	19791	
==>ot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusmsg .= (" ($tot <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5293	5397	
==>jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5293	5397	
==>jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5293	5397	
==>jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	228	322	
==>jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	228	322	
==>jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	228	322	
==>jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14086	14225	
==>for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4167	4294	
==>for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4167	4294	
==>for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4167	4294	
==>for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	510	607	
==>PTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=i <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	510	607	
==>PTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1066	1163	
==>PTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10394	10523	
==>ue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10394	10523	
==>ue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10394	10523	
==>ue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9885	9996	
==>s $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9885	9996	
==>s $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9885	9996	
==>s $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41143	41231	
==>er>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.o <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5578	5674	
==>ubset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two) <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4708	4804	
==>ubset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5578	5674	
==>ubset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4708	4804	
==>ubset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2282	2375	
==>is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2282	2375	
==>is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2282	2375	
==>is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use <==
7	/Users/nnunley/pugs/util/func_refact.pl	773	875	
==>{initial}) {
        print "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Conf{ini <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7659	7758	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6789	6888	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3375	3474	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3375	3474	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7659	7758	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6789	6888	
==>$one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10143	10294	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7694	7845	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10143	10294	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7694	7845	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10143	10294	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7694	7845	
==>]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1686	1781	
==>rget = (char *)GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, "%d", x);
	return target;
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3360	3551	
==>$_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3360	3551	
==>$_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->ne <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3360	3551	
==>$_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->ne <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25125	25211	
==>eenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pu <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23889	23975	
==>eenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pu <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25125	25211	
==>eenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pu <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23889	23975	
==>eenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pu <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	4745	4864	
==>: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilitie <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4803	4922	
==>: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilitie <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2393	2493	
==>($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2393	2493	
==>($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2473	2573	
==>($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	993	1092	
==>({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	993	1092	
==>({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	880	1017	
==>t> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	622	759	
==>t> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	880	1017	
==>t> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	622	759	
==>t> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11591	11715	
==>);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15068	15192	
==>);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14403	14527	
==>);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9345	9450	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6892	6997	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9345	9450	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6892	6997	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9345	9450	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6892	6997	
==>:breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descend <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	1926	2018	
==>size($$) ? "($_)" : $_ for inner_layout($$) }

type::operator::binary: parenthesize($$) = { $ <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11963	12061	
==>m"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="l <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12058	12184	
==>ef"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	813	913	
==>.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	813	913	
==>.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	813	913	
==>.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15702	15800	
==>prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15702	15800	
==>prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15702	15800	
==>prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ( <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	121	249	
==>e Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub dupli <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	3471	3600	
==>hift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($ind <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3471	3600	
==>hift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($ind <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	7279	7405	
==>NT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRI <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7279	7405	
==>NT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRI <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1936	2035	
==>L2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a insta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1936	2035	
==>L2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a insta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1936	2035	
==>L2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a insta <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13068	13183	
==>LED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $my_bindir =  $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	232	334	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	173	275	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	232	334	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	173	275	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	232	334	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	173	275	
==>e was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19845	19990	
==>'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19845	19990	
==>'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19845	19990	
==>'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied-> <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3579	3685	
==>del::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    ha <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3579	3685	
==>del::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	497	600	
==>to.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it ne <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	497	600	
==>to.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it ne <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4041	4153	
==>ode_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Ex <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4041	4153	
==>ode_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Ex <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	891	1003	
==>ode_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4229	4335	
==>alar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4229	4335	
==>alar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4229	4335	
==>alar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1625	1731	
==>f $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	439	557	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	432	550	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	439	557	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	432	550	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	439	557	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	432	550	
==>}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1248	1342	
==>tion($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicate($node);
	warn $node <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7812	7979	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5371	5538	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7812	7979	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5371	5538	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7812	7979	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5371	5538	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1500	1667	
==>wever, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            l <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4930	5044	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7579	7693	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5142	5250	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11591	11699	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5142	5250	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11591	11699	
==>ch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_va <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33916	34016	
==>s an "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x> can be match <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	439	553	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	861	975	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	439	553	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	861	975	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	439	553	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	861	975	
==>{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \}) <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	25042	25140	
==>→ γ", "pretty print a -> b -> c");
}
{
	my $type = type::operator::pair->new(
		type::variable:: <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5733	5902	
==>f;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4233	4402	
==>f;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4823	4949	
==>ype;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13248	13374	
==>ype;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15859	15985	
==>ype;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17347	17473	
==>ype;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22030	22156	
==>ype;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6513	6653	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8962	9102	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6513	6653	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8962	9102	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6513	6653	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8962	9102	
==>d =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not i <==
7	/Users/nnunley/pugs/misc/S29_round.pl	1405	1518	
==>= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	329	467	
==>stics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        m <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	329	467	
==>stics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        m <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3616	3736	
==>ark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3616	3736	
==>ark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4504	4608	
==>on.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4504	4608	
==>on.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4504	4608	
==>on.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaS <==
7	/Users/nnunley/pugs/util/combine_tests.pl	2471	2622	
==>um{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $targ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15672	15792	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15672	15792	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15672	15792	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20393	20509	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20393	20509	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20393	20509	
==>e 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $w <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2568	2689	
==>),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2568	2689	
==>),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2568	2689	
==>),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3971	4077	
==>CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3971	4077	
==>CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3971	4077	
==>CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  s <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3230	3326	
==>/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11953	12130	
==>return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11953	12130	
==>return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11953	12130	
==>return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $sel <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20448	20556	
==>ispatcher, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1567	1670	
==>f $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $f <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1567	1670	
==>f $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $f <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1567	1670	
==>f $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	505	609	
==>--------------------------------

use Test::More tests => 46;

{
    use Hash::Util 'lock_keys';

    # E <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3631	3734	
==>pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_St <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3631	3734	
==>pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_St <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	481	584	
==>pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_St <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	114	213	
==>ly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	114	213	
==>ly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	114	213	
==>ly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	185	284	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	349	448	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	185	284	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	349	448	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	185	284	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	349	448	
==>or hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resour <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9714	9798	
==>t_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charset_item(class_neg( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8614	8734	
==>er ) if $footer;
  }
  
  method get_test_number
  {
      return +@:results + 1;
  }
  
  method plan ( Str $explanation <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3682	3795	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6618	6731	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3682	3795	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6618	6731	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3682	3795	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6618	6731	
==>ng $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($meth <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4842	5090	
==>ined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4842	5090	
==>ined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10453	10629	
==>ined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10453	10629	
==>ined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10453	10629	
==>ined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3973	4101	
==>hat satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfie <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4437	4565	
==>hat satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfie <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1632	1745	
==>) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1632	1745	
==>) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splic <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1632	1745	
==>) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splic <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2536	2635	
==>s_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2536	2635	
==>s_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2536	2635	
==>s_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $d <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6201	6295	
==>rray:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.p <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4322	4442	
==>f $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5643	5763	
==>f $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4322	4442	
==>f $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5631	5751	
==>f $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3602	3698	
==>ubpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3602	3698	
==>ubpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3602	3698	
==>ubpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13099	13231	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13099	13231	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13099	13231	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5339	5471	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3839	3971	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1984	2116	
==>{
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if define <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	2660	2772	
==>n($method)};
}

sub load {
    my ($self, $method) = @_;

    my $extensions = $self->{extensions} || [];
    unl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9287	9414	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12260	12387	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9287	9414	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12260	12387	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9287	9414	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12260	12387	
==>Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Su <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	2751	2849	
==>nsions} || [];
    unless (@$extensions) {
        $self->load_extensions("$self->{prefix}/$self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12718	12849	
==>in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12718	12849	
==>in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12718	12849	
==>in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMET <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1859	1973	
==>as   {  \@<name>      \:\=  <construct>  }
rule external_hash_alias    {  \%<name>      \:\=  <construct>  }
rule c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4118	4208	
==>me'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4118	4208	
==>me'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4118	4208	
==>me'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	9985	10106	
==>my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, it isn't v <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	314	425	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	312	423	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	314	425	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	312	423	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	314	425	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	312	423	
==>is is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instanc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	145	246	
==>.FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	145	246	
==>.FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	145	246	
==>.FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19707	19797	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19707	19797	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19707	19797	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9694	9805	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12667	12778	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9694	9805	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12667	12778	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9694	9805	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12667	12778	
==>to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the sp <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	756	851	
==>ub unimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)= <==
7	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	627	773	
==>f ($tok eq '+') {
            push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1576	1692	
==>[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1564	1680	
==>[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2266	2365	
==>e syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Us <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2266	2365	
==>e syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Us <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1493	1586	
==>e syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Us <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3354	3447	
==>e syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12602	12708	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10153	10259	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12602	12708	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10153	10259	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12602	12708	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10153	10259	
==>ispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8307	8409	
==>unt of elements that would have
been iterated.

=back



=head2 List

=over

=item grep

 multi Array:: <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	53	172	
==>e::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    p <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	58	177	
==>e::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    p <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	58	177	
==>e::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    p <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3427	3544	
==>ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3427	3544	
==>ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	349	457	
==>not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQ <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	349	457	
==>not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4262	4381	
==>}
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4262	4381	
==>}
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4262	4381	
==>}
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3585	3690	
==>(Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  no <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3585	3690	
==>(Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  no <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4460	4563	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  no <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4460	4563	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  no <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2727	2837	
==>ile and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2727	2837	
==>ile and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2727	2837	
==>ile and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pu <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21614	21711	
==>back is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received f <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20495	20592	
==>back is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21614	21711	
==>back is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20495	20592	
==>back is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received f <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3446	3547	
==>sure') || $closure->isa('block')))
        || confess "argument to &each must be either a closure or a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	47	140	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	271	364	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	47	140	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	271	364	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	47	140	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	271	364	
==>ly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Con <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2332	2450	
==>_helper = sub {
        print STDERR "reduce\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5399	5504	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3519	3624	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5399	5504	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3519	3624	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5399	5504	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3519	3624	
==>elf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4559	4813	
==>ndex}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4810	4921	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7459	7570	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5025	5133	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11474	11582	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5025	5133	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11474	11582	
==>ad = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    ret <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28293	28394	
==>MT_END
 #else
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (RX_MATCH_COPIED(rx)) { \
	     Safef <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6889	6985	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6019	6115	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2673	2769	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2673	2769	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6889	6985	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6019	6115	
==>member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5658	5775	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8628	8745	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5658	5775	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8628	8745	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5658	5775	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8628	8745	
==>ethod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # d <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1774	1868	
==>r is supported.

=head1 CAVEATS

This is an experimental, pre-alpha development snapshot.  Ther <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3715	3823	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6651	6759	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3715	3823	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6651	6759	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3715	3823	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6651	6759	
==>hod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6:: <==
7	/Users/nnunley/pugs/util/run-smoke.pl	298	394	
==>die <<"EOF" if $failed;

You don't seem to have the required modules installed.
Please install it <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5373	5483	
==>n ($$$@) {
    my ($got, $expected, $range, $name, @mess) = @_;
    my $pass;
    if (!defined $got or !defined <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24915	25008	
==>s undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple contai <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24915	25008	
==>s undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple contai <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7682	7804	
==>e}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12023	12145	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2480	2600	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9252	9372	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7422	7542	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2480	2600	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9252	9372	
==>e}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after} <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2515	2624	
==>lf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @s <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5718	5827	
==>lf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @s <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2515	2624	
==>lf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @s <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5718	5827	
==>lf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4609	4708	
==>module, $line_number, $post_process) = @_;

    # Read original module source code instead of taking <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4609	4708	
==>module, $line_number, $post_process) = @_;

    # Read original module source code instead of taking <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3716	3812	
==>le.

=item Memory

One sees both segfaults and memory exhaustion when running against
some of the <==
7	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	607	695	
==>ne::Parrot::PMC
our $interpreter;
use overload '0+' => sub {Inline::Parrot::PMC::get_int( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5899	6023	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4019	4143	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5899	6023	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4019	4143	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5899	6023	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4019	4143	
==>') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcu <==
7	/Users/nnunley/pugs/util/testgraph.pl	884	983	
==>fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > output_file.html

Generates an HTML summar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16607	16712	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13812	13917	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16607	16712	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13812	13917	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16607	16712	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13812	13917	
==>cher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	230	330	
==>x :lvalue		{ $_[0]{regex} }
sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15049	15192	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19747	19890	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15049	15192	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19747	19890	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15049	15192	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19747	19890	
==>ft;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # w <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3095	3212	
==>$self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'space' }

  sub visual {
    my $se <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5221	5443	
==>quest.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5221	5443	
==>quest.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14554	14686	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14554	14686	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14554	14686	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible b <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6840	6972	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible b <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5344	5476	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1553	1677	
==>_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1553	1677	
==>_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1553	1677	
==>_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class- <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2907	3009	
==>ee software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Genera <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3064	3166	
==>ee software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Genera <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2907	3009	
==>ee software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Genera <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3064	3166	
==>ee software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Genera <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3700	3846	
==>\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5017	5163	
==>\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3700	3846	
==>\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5005	5151	
==>\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5716	5819	
==>new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5716	5819	
==>new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5716	5819	
==>new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6385	6729	
==>e next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } e <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6849	7193	
==>e next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7853	8039	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7853	8039	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7853	8039	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "c <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8909	9004	
==>ates an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite obje <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8909	9004	
==>ates an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7087	7248	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7355	7516	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7087	7248	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7355	7516	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7087	7248	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7355	7516	
==>{
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	573	704	
==>e . q(/ \) ? 1 : 0;
  my @match;
  for ( 1 .. $#+ ) {
      push @match, bless \\{
        str => \\$s, from => \\(0+$-[$_]), to <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	843	952	
==>ent $event) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    method not <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6764	6861	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5894	5991	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2548	2645	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2548	2645	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6764	6861	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5894	5991	
==>}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi su <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10109	10253	
==>{
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } e <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10109	10253	
==>{
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } e <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	14799	14940	
==>7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg_n = $beg <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	910	1033	
==>= %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	652	775	
==>= %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	910	1033	
==>= %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	652	775	
==>= %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3647	3807	
==>>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3647	3807	
==>>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3647	3807	
==>>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3864	3964	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3864	3964	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3864	3964	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_ins <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4912	5002	
==>es permitted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24180	24318	
==>op::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::opt <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24459	24597	
==>op::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::opt <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1365	1498	
==>afile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Config{installsitelib};  # site_perl d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1300	1413	
==>}
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1300	1413	
==>}
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1300	1413	
==>}
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4829	4938	
==>he right x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4131	4248	
==>lice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return $self->{values}->{features}
    	? @{ $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6720	6834	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9690	9804	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6720	6834	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9690	9804	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6720	6834	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9690	9804	
==>d
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6318	6435	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9288	9405	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6318	6435	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9288	9405	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6318	6435	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9288	9405	
==>ass as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($m <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	4149	4254	
==>nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "1 <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1482	1629	
==>s -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1586	1733	
==>s -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1482	1629	
==>s -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1586	1733	
==>s -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($i <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3619	3757	
==>osure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref));
            $val = $ref->fetc <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3880	3982	
==>ORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or mor <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3880	3982	
==>ORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or mor <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13870	14026	
==>an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13870	14026	
==>an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13870	14026	
==>an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[ <==
7	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1912	2016	
==>dBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin: <==
7	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1912	2016	
==>dBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin: <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41302	41392	
==>>)

On 2005.03.21, provided feedback towards improving this module's
documentation, particu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41302	41392	
==>>)

On 2005.03.21, provided feedback towards improving this module's
documentation, particu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35227	35367	
==>->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35227	35367	
==>->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35227	35367	
==>->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	694	799	
==>g;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	693	798	
==>g;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	694	799	
==>g;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	693	798	
==>g;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9569	9669	
==>1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system("d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1352	1450	
==>ter.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1352	1450	
==>ter.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1352	1450	
==>ter.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20302	20391	
==>x1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20302	20391	
==>x1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20302	20391	
==>x1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value: <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	16528	16672	
==>y => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.p <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20005	20149	
==>y => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.p <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19565	19709	
==>y => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.p <==
7	/Users/nnunley/pugs/blib6/lib/fp.pm	883	988	
==>}
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub ini <==
7	/Users/nnunley/pugs/ext/fp/lib/fp.pm	883	988	
==>}
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub ini <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3570	3669	
==>gs = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->pr <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2613	2709	
==>gs = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6297	6418	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9267	9388	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6297	6418	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9267	9388	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6297	6418	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9267	9388	
==>hod, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $met <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8790	8895	
==>uire",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$parrot_path/parrot <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24794	24890	
==>=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23558	23654	
==>=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24794	24890	
==>=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23558	23654	
==>=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1453	1543	
==>put[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1453	1543	
==>put[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1453	1543	
==>put[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9411	9549	
==>)
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1784	1878	
==>o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1784	1878	
==>o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1784	1878	
==>o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2097	2189	
==>e('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2097	2189	
==>e('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2097	2189	
==>e('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline <==
7	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1541	1678	
==>at_array => "Array", # ditto
        ref => "Object",   # for now
        set => "Set", iset => "Set",         # also for now
        hash <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2706	2813	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5696	5803	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3001	3102	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9419	9520	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3001	3102	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9419	9520	
==>igher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_option <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	909	1033	
==>lass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    ) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	909	1033	
==>lass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    ) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	909	1033	
==>lass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    ) <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11087	11180	
==>move an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8491	8584	
==>move an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11087	11180	
==>move an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8491	8584	
==>move an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	209	327	
==>ule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	203	321	
==>ule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	209	327	
==>ule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	203	321	
==>ule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	755	855	
==>s$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	755	855	
==>s$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	755	855	
==>s$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => p <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	9632	9749	
==>is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13109	13226	
==>is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12381	12498	
==>is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6154	6266	
==>my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6154	6266	
==>my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3606	3716	
==>ber);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## mul <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3606	3716	
==>ber);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## mul <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	5014	5110	
==>tions]
       $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [options]

Creates a Prelude <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14599	14693	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11859	11953	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14599	14693	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11859	11953	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14599	14693	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11859	11953	
==>my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4082	4194	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6731	6843	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4317	4426	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10766	10875	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4317	4426	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10766	10875	
==>$match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #wa <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8471	8577	
==>lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_assign($lhs,$rhs)"
}
NODE PBind ($pL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13537	13684	
==>d to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'A <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13537	13684	
==>d to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'A <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13537	13684	
==>d to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'A <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2371	2506	
==>.) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.pe <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2371	2506	
==>.) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.pe <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6068	6180	
==>ath = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6068	6180	
==>ath = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7985	8104	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10908	11027	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7985	8104	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10908	11027	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7985	8104	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10908	11027	
==>a('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5432	5540	
==>, map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7544	7644	
==>hod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7544	7644	
==>hod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7544	7644	
==>hod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11602	11700	
==>1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#* <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11602	11700	
==>1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#* <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	10501	10597	
==>TODO tests
then you can pass them through this function. This is primarily a release
tool, but ca <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10559	10655	
==>TODO tests
then you can pass them through this function. This is primarily a release
tool, but ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12700	12860	
==>shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                m <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12700	12860	
==>shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                m <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12700	12860	
==>shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4728	4843	
==>' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fo <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1405	1519	
==>,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'p <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4529	4641	
==>,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'p <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4529	4641	
==>,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11117	11276	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8670	8829	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11117	11276	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8670	8829	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11117	11276	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8670	8829	
==>$::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	221	337	
==>ass}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capt <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9222	9385	
==>y @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Const <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9222	9385	
==>y @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Const <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9222	9385	
==>y @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Const <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4202	4303	
==>hods you should take care not
to call them in function form by mistake; that would not do at all.

=ov <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4202	4303	
==>hods you should take care not
to call them in function form by mistake; that would not do at all.

=ov <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4202	4303	
==>hods you should take care not
to call them in function form by mistake; that would not do at all.

=ov <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12335	12435	
==>elf->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying what sort of line you're looking at <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28285	28431	
==>teral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28564	28710	
==>teral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	653	780	
==>my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	646	773	
==>my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14171	14258	
==>IL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14171	14258	
==>IL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14171	14258	
==>IL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3601	3736	
==>ss[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3601	3736	
==>ss[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3601	3736	
==>ss[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        : <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1261	1376	
==>a data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if it <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33816	33963	
==>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNI <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33816	33963	
==>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNI <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33816	33963	
==>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNI <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7603	7718	
==>ng_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7796	7911	
==>ng_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code' <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3533	3642	
==>h = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is ex <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3533	3642	
==>h = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is ex <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25815	25898	
==>(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SING <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3042	3190	
==>/\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3042	3190	
==>/\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3042	3190	
==>/\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11138	11232	
==>t.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is a <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8542	8636	
==>t.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11138	11232	
==>t.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8542	8636	
==>t.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is a <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	25	134	
==>0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-se <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	25	134	
==>0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-se <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	749	839	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1127	1217	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1766	1856	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2201	2291	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	749	839	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_del <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	386	485	
==>return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { re <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	386	485	
==>return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { re <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1399	1497	
==>return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { re <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1399	1497	
==>return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14085	14181	
==>');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Ro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14085	14181	
==>');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Ro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14085	14181	
==>');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Ro <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3561	3935	
==>= $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                retur <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3561	3935	
==>= $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6328	6542	
==>= $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retur <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6328	6542	
==>= $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retur <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6328	6542	
==>= $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1393	1501	
==>y \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1393	1501	
==>y \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1151	1274	
==>tart_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span. <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4390	4513	
==>tart_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span. <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1151	1274	
==>tart_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span. <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4390	4513	
==>tart_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span. <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	269	373	
==>end to
# pass most of the tests the current backend does.


role rArray {}


class Array is List does rAr <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13612	13710	
==>r an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You sh <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13612	13710	
==>r an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You sh <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25458	25629	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26116	26287	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25737	25908	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26395	26566	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3968	4065	
==>de\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sig <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3968	4065	
==>de\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sig <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3968	4065	
==>de\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sig <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	843	983	
==>ete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15639	15738	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20360	20459	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15639	15738	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20360	20459	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15639	15738	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20360	20459	
==>dd on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimeth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6867	6992	
==>$tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6867	6992	
==>$tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6867	6992	
==>$tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23593	23707	
==>=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23593	23707	
==>=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23593	23707	
==>=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16598	16694	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21315	21411	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16598	16694	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21315	21411	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16598	16694	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21315	21411	
==>em, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DEST <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	15	104	
==>:Core::Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	648	748	
==>on
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	648	748	
==>on
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18982	19076	
==>because Locale::KeyedText is only meant to be used with user text that is
associated with hard- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1525	1619	
==>ld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() sh <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18982	19076	
==>because Locale::KeyedText is only meant to be used with user text that is
associated with hard- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1525	1619	
==>ld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1525	1619	
==>ld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() sh <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7678	7795	
==>efore}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12019	12136	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2476	2591	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9248	9363	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7418	7533	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2476	2591	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9248	9363	
==>efore}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10226	10324	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12867	12965	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2173	2271	
==>es is die with a complaint.  Real solvers usually do
a bit of algorithm switching.  When their fast <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13703	13801	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16344	16442	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12984	13082	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15706	15804	
==>th sources have identical headings; result is src intersection.
        return $?SELF!_intersection <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35105	35227	
==>>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35105	35227	
==>>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35105	35227	
==>>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array- <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5564	5675	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6832	6943	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5564	5675	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6820	6931	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18392	18514	
==>);                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sym <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21651	21773	
==>);                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sym <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41657	41779	
==>);                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sym <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44558	44680	
==>);                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sym <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1828	1931	
==>.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1828	1931	
==>.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1828	1931	
==>.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10072	10284	
==>ing scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUT <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10072	10284	
==>ing scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUT <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10072	10284	
==>ing scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUT <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	74	190	
==>se strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	116	232	
==>se strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	74	190	
==>se strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	116	232	
==>se strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5140	5247	
==>rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16176	16283	
==>rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17664	17771	
==>rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22347	22454	
==>rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1109	1208	
==>d_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1109	1208	
==>d_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1109	1208	
==>d_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imp <==
7	/Users/nnunley/pugs/examples/hop6/Parser.pm	1861	1979	
==>, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinput) = $_- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	242	352	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	566	676	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	242	352	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	566	676	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	242	352	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	566	676	
==>ine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37906	38016	
==>ved both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $self-> <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29017	29126	
==>to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29017	29126	
==>to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	372	469	
==>to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9557	9674	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7104	7221	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9557	9674	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7104	7221	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9557	9674	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7104	7221	
==>dant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported d <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11621	11713	
==>ent --> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of_line([C|T]) --> [C], r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10053	10190	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7604	7741	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10053	10190	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7604	7741	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10053	10190	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7604	7741	
==>tcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30395	30489	
==>Example.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1571	1714	
==>eight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1571	1714	
==>eight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1571	1714	
==>eight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2181	2305	
==>. ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2181	2305	
==>. ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2181	2305	
==>. ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	438	542	
==>ime needs to 
# have available ...
$::Class   = undef;
$::Object  = undef;
$::Module  = undef;
$::Package <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1691	1831	
==>state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $sta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2020	2157	
==>state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $sta <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1633	1770	
==>state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2020	2157	
==>state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $sta <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	6607	6705	
==>dices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my $e <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2079	2176	
==>node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which i <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2079	2176	
==>node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7112	7218	
==>reak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7112	7218	
==>reak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7112	7218	
==>reak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.run <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	363	463	
==>turns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start = <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	363	463	
==>turns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start = <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1637	1727	
==>ew lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Arra <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1637	1727	
==>ew lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Arra <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11150	11243	
==>turns the "universal set" recurrence object.

- `complement()`

Returns everything (from the u <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11150	11243	
==>turns the "universal set" recurrence object.

- `complement()`

Returns everything (from the u <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	755	845	
==>->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1133	1223	
==>->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1772	1862	
==>->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2207	2297	
==>->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	755	845	
==>->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5160	5262	
==>≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify? <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4287	4389	
==>≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify? <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5160	5262	
==>≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify? <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4287	4389	
==>≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2766	2863	
==>w();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2766	2863	
==>w();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2766	2863	
==>w();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5984	6111	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8954	9081	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5984	6111	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8954	9081	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5984	6111	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8954	9081	
==>ethod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method <==
7	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2320	2412	
==>::Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_arguments <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1879	1982	
==>s export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expor <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1879	1982	
==>s export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expor <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1959	2062	
==>s export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expor <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21476	21568	
==>eceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20357	20449	
==>eceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21476	21568	
==>eceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20357	20449	
==>eceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12589	12701	
==>s wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2955	3065	
==>s wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2955	3065	
==>s wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12031	12134	
==>s wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2435	2536	
==>s wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2435	2536	
==>s wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason:: <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24759	24851	
==>t from the other tuples.  All Relation::Example
attributes may be individually addressed only <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	526	647	
==>a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $pos <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	526	647	
==>a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $pos <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	526	647	
==>a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $pos <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	10060	10173	
==>d

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require C <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10060	10173	
==>d

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require C <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2201	2305	
==>d);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2201	2305	
==>d);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5453	5569	
==>ting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5453	5569	
==>ting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5453	5569	
==>ting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21034	21127	
==>rns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a has <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19942	20035	
==>rns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a has <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21034	21127	
==>rns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a has <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19942	20035	
==>rns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a has <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2145	2266	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1257	1378	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2145	2266	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1257	1378	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2145	2266	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1257	1378	
==>que_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8363	8466	
==>ix:«<=>» --> Scalar) {
    List::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5770	5923	
==>e class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5770	5923	
==>e class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5770	5923	
==>e class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add me <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28262	28356	
==>object which is suitable
for debugging purposes (such as to test that the object's contents loo <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35618	35712	
==>object which is suitable
for debugging purposes (such as to test that the object's contents loo <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28262	28356	
==>object which is suitable
for debugging purposes (such as to test that the object's contents loo <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35618	35712	
==>object which is suitable
for debugging purposes (such as to test that the object's contents loo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8038	8188	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5597	5747	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8038	8188	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5597	5747	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8038	8188	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5597	5747	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1726	1876	
==>.
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $c <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21847	21961	
==>d
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{f <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18268	18382	
==>d
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{f <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	6720	6824	
==>d insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die " <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6720	6824	
==>d insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die " <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1517	1619	
==>0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1517	1619	
==>0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1517	1619	
==>0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6200	6403	
==>> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6200	6403	
==>> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6200	6403	
==>> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_me <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2291	2408	
==>RT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI> <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2291	2408	
==>RT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI> <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	616	729	
==>od($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $pr <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	616	729	
==>od($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $pr <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6500	6597	
==>ns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5630	5727	
==>ns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6500	6597	
==>ns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5630	5727	
==>ns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29352	29441	
==>ome of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33904	33993	
==>ome of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33068	33157	
==>ome of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12618	12759	
==>rl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8892	9033	
==>rl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9727	9868	
==>rl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8662	8785	
==>wnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8662	8785	
==>wnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8926	9041	
==>wnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8926	9041	
==>wnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	622	738	
==>lf, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5784	5883	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8754	8853	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5784	5883	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8754	8853	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5784	5883	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8754	8853	
==>d in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13509	13672	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13509	13672	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13509	13672	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $ <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2394	2557	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	607	717	
==>my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $u <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	607	717	
==>my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $u <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	607	717	
==>my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6420	6583	
==>>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6420	6583	
==>>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6420	6583	
==>>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	290	409	
==>our %hash;

sub recompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Gramm <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1173	1270	
==>port {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub hea <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1173	1270	
==>port {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub hea <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2148	2242	
==>die::Prelude>, or preferably let
L<Blondie::Runtime> load it for you.

Inherits Map.

=back

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8629	8828	
==>( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8629	8828	
==>( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8629	8828	
==>( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13702	13825	
==>tart = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3827	3942	
==>tart = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split(' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3827	3942	
==>tart = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split(' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3827	3942	
==>tart = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5197	5364	
==>value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defin <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5197	5364	
==>value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defin <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5197	5364	
==>value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defin <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13011	13140	
==>sual, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{da <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1549	1656	
==>y[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1549	1656	
==>y[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1549	1656	
==>y[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4710	4822	
==>l::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pa <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4710	4822	
==>l::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pa <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5300	5412	
==>l::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19617	19710	
==>ue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19617	19710	
==>ue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19617	19710	
==>ue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9528	9614	
==>nother_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singleton_meth <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10258	10442	
==>{
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity => 3,
        name => '&print',
        body => sub {
            my $self = shift;
            my $fh = shift-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7005	7143	
==>lems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sho <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7005	7143	
==>lems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sho <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7005	7143	
==>lems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	102	201	
==>005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	102	201	
==>005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	102	201	
==>005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4675	4806	
==>uld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4675	4806	
==>uld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4675	4806	
==>uld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pre <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	475	570	
==>ypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->require || d <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	805	898	
==>$Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

s <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	644	736	
==>$Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	644	736	
==>$Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
s <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5252	5379	
==>ssign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# ke <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	640	756	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	728	844	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	640	756	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	728	844	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	640	756	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	728	844	
==>_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B" <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9210	9313	
==>eturns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_p <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9210	9313	
==>eturns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_p <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9767	9869	
==>eturns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_p <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9767	9869	
==>eturns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2570	2670	
==>k specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many meth <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2570	2670	
==>k specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many meth <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2570	2670	
==>k specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24784	24909	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26973	27098	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24784	24909	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26973	27098	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24784	24909	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26973	27098	
==>n "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sample <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	22920	23030	
==>=> comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3462	3604	
==>] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8747	8888	
==>] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3717	3855	
==>] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10135	10273	
==>] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3717	3855	
==>] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10135	10273	
==>] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8440	8577	
==>] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11667	11798	
==>:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not anothe <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11667	11798	
==>:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not anothe <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5295	5403	
==>ntent;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

m <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5295	5403	
==>ntent;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	333	436	
==>ided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	333	436	
==>ided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	333	436	
==>ided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1807	2048	
==>$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6562	6684	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9011	9133	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6562	6684	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9011	9133	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6562	6684	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9011	9133	
==>s not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy sl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11157	11355	
==>f $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # ever <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11157	11355	
==>f $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # ever <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11157	11355	
==>f $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # ever <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8356	8482	
==>capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8549	8675	
==>capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	439	548	
==>e( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	471	580	
==>e( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16861	16980	
==>l6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16861	16980	
==>l6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16861	16980	
==>l6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not co <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16257	16358	
==>w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should store a hash of what character <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3730	3827	
==>ram_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requi <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3730	3827	
==>ram_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requi <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4320	4417	
==>ram_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11636	11751	
==>my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          ret <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2070	2181	
==>my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        ret <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2070	2181	
==>my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        ret <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39637	39722	
==>perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information. <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24360	24445	
==>perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information. <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39637	39722	
==>perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information. <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24360	24445	
==>perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information. <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17250	17395	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23216	23361	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17529	17674	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23495	23640	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7890	7990	
==>_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.onl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7890	7990	
==>_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.onl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7890	7990	
==>_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.onl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7771	7882	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10694	10805	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7771	7882	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10694	10805	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7771	7882	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10694	10805	
==>CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::mak <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26994	27091	
==>0000 
 #define REINT_ONCE_NOML		0x1000000 /* Intuit can succed once only. */
 #define REINT_ONCE_M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5126	5238	
==>eg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = joi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5126	5238	
==>eg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = joi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5126	5238	
==>eg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = joi <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	14425	14531	
==>t;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14425	14531	
==>t;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	30643	30740	
==>ose of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the corres <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35194	35291	
==>ose of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the corres <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3225	3326	
==>to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3225	3326	
==>to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3225	3326	
==>to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/l <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20655	20751	
==>readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=h <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19581	19677	
==>readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=h <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20655	20751	
==>readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=h <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19581	19677	
==>readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6186	6390	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6186	6390	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6186	6390	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3659	3862	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3659	3862	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3659	3862	
==>$method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	121	220	
==>:Core::Str;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'bless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7918	8033	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10841	10956	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7918	8033	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10841	10956	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7918	8033	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10841	10956	
==>od) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $ <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	3118	3223	
==>}' directory and run $0 again to load it.
END

    my $obj = $admin->load($method, 1);
    push @{$self->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3845	3972	
==>hift(@mess, "# it should not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20447	20562	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17586	17701	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20447	20562	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17586	17701	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20447	20562	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17586	17701	
==>be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) e <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17273	17426	
==>tant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23239	23392	
==>tant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17552	17705	
==>tant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23518	23671	
==>tant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2465	2566	
==>t = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2465	2566	
==>t = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2465	2566	
==>t = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13019	13120	
==>grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	716	811	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1236	1331	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	716	811	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1236	1331	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	716	811	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1236	1331	
==>.FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new P <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	377	497	
==>) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	412	532	
==>) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	377	497	
==>) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my <==
7	/Users/nnunley/pugs/util/build_pugs.pl	9590	9710	
==>) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7866	7978	
==>es{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cla <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7866	7978	
==>es{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cla <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7866	7978	
==>es{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cla <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	7	112	
==>sungsoperator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selb <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	615	712	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1135	1232	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	615	712	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1135	1232	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	615	712	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1135	1232	
==>rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	973	1125	
==>('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	973	1125	
==>('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15319	15439	
==>rol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15319	15439	
==>rol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34263	34374	
==>shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34263	34374	
==>shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34263	34374	
==>shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1009	1124	
==>er
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@ <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1883	1998	
==>er
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@ <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1009	1124	
==>er
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@ <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1883	1998	
==>er
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1391	1489	
==>Class); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1391	1489	
==>Class); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1391	1489	
==>Class); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	438	544	
==>ss;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	438	544	
==>ss;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	244	343	
==>st library

use warnings;
use strict;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
us <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24251	24347	
==>either an AI or other interactive program controlling their
  actions) which are always seen to b <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23024	23120	
==>either an AI or other interactive program controlling their
  actions) which are always seen to b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24251	24347	
==>either an AI or other interactive program controlling their
  actions) which are always seen to b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23024	23120	
==>either an AI or other interactive program controlling their
  actions) which are always seen to b <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1404	1504	
==>ns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinit <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1404	1504	
==>ns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinit <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35614	35704	
==>tion::Example $other!) returns Relation::Example>

This multi-method is a generic binary re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36711	36801	
==>tion::Example $other!) returns Relation::Example>

This multi-method is a generic binary re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37211	37301	
==>tion::Example $other!) returns Relation::Example>

This multi-method is a generic binary re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39259	39349	
==>tion::Example $other!) returns Relation::Example>

This multi-method is a generic binary re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39807	39897	
==>tion::Example $other!) returns Relation::Example>

This multi-method is a generic binary re <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3521	3626	
==>ile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29611	29724	
==>$self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29611	29724	
==>$self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29611	29724	
==>$self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	215	310	
==>Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	215	310	
==>Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	215	310	
==>Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($can <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20336	20427	
==>ationListNoIn> <','> <VariableDeclarationNoIn>
}
rule VariableDeclaration :words {  # see 12 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5052	5173	
==>lf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16088	16209	
==>lf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17576	17697	
==>lf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22259	22380	
==>lf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3944	4031	
==>@:roles');
}));

## -------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3944	4031	
==>@:roles');
}));

## -------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3944	4031	
==>@:roles');
}));

## -------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	959	1090	
==>});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	959	1090	
==>});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	959	1090	
==>});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	741	858	
==>});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	946	1063	
==>});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1002	1119	
==>});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_ <==
7	/Users/nnunley/pugs/util/build_pugs.pl	8267	8375	
==>_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5430	5544	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3550	3664	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5430	5544	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3550	3664	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5430	5544	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3550	3664	
==>f (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11350	11440	
==>><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=cate <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16170	16311	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16170	16311	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16170	16311	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11440	11578	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11440	11578	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11440	11578	
==>leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	613	719	
==>er::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::capture( <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3951	4112	
==>time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First l <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3951	4112	
==>time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First l <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12859	12963	
==>or_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12859	12963	
==>or_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12859	12963	
==>or_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	442	541	
==>lable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs. <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	442	541	
==>lable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13294	13420	
==>1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            if @{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19539	19634	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16771	16866	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19539	19634	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16771	16866	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19539	19634	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16771	16866	
==>s go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Me <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2122	2226	
==>.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2122	2226	
==>.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	285	382	
==>nge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'ste <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	830	927	
==>nge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'ste <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	285	382	
==>nge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'ste <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	830	927	
==>nge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'ste <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	830	927	
==>nge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'ste <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7752	7903	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5311	5462	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7752	7903	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5311	5462	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7752	7903	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5311	5462	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1440	1591	
==>ne matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $no <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11137	11258	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12608	12729	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14614	14735	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16085	16206	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13922	14043	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15447	15568	
==>ty-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3472	3615	
==>te => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8757	8899	
==>te => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3727	3866	
==>te => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10145	10284	
==>te => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3727	3866	
==>te => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10145	10284	
==>te => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8450	8588	
==>te => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{s <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	4586	4681	
==>6($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4586	4681	
==>6($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41245	41335	
==>te files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedba <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41245	41335	
==>te files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedba <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12055	12143	
==>XX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12055	12143	
==>XX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12055	12143	
==>XX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) { <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7213	7305	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6343	6435	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2997	3089	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2997	3089	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7213	7305	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6343	6435	
==>ese methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@arg <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3698	3788	
==>ve calls.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist in the
verif <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13462	13613	
==>g,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3611	3746	
==>g,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3611	3746	
==>g,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3611	3746	
==>g,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6671	6785	
==>XX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6671	6785	
==>XX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6671	6785	
==>XX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }e <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9015	9118	
==>efined $default;

	my $slurpy = ref($op{'paramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurpy'};

	my $p <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1558	1759	
==>" $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $f <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1558	1759	
==>" $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $f <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7194	7332	
==>cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7194	7332	
==>cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1816	1937	
==>';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!pr <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1816	1937	
==>';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!pr <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1682	1787	
==>>new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new(map { str->new($_) } keys %nativ <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6173	6291	
==>(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($m <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6173	6291	
==>(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24794	24912	
==>_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} } <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21215	21333	
==>_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22755	22855	
==>(defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22755	22855	
==>(defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22755	22855	
==>(defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20123	20254	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17262	17393	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20123	20254	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17262	17393	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20123	20254	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17262	17393	
==>e normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	3632	3731	
==>lumns in the summary report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=item <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2990	3116	
==>apture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub vari <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2874	2994	
==>apture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub vari <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32150	32248	
==>s one, then that is displayed; if not, it then checks
each set's member for language B and displays <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32150	32248	
==>s one, then that is displayed; if not, it then checks
each set's member for language B and displays <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1423	1510	
==>%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1423	1510	
==>%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1423	1510	
==>%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5869	5974	
==>ub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5869	5974	
==>ub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5869	5974	
==>ub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retu <==
7	/Users/nnunley/pugs/util/config_h.pl	482	577	
==>||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_line;

open IN, "< $base/lib/Perl6/Pug <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2228	2320	
==>our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2228	2320	
==>our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2228	2320	
==>our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(': <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	151	266	
==>= undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	151	266	
==>= undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	151	266	
==>= undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class ob <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4485	4594	
==>ix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2357	2448	
==>rl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2357	2448	
==>rl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2357	2448	
==>rl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13249	13379	
==>however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13249	13379	
==>however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13249	13379	
==>however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4550	4676	
==>t bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ope <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5209	5335	
==>t bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ope <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4550	4676	
==>t bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ope <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5209	5335	
==>t bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ope <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	8836	9090	
==>detail->{reason}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End Pugs addition        
        
        my %test = (
                    ok          => $resul <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5117	5224	
==>nded to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5339	5446	
==>nded to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18830	18932	
==>clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *% <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18830	18932	
==>clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *% <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23610	23703	
==>les, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named va <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23610	23703	
==>les, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5439	5555	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8409	8525	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5439	5555	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8409	8525	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5439	5555	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8409	8525	
==>mes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basica <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8313	8426	
==>ode::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n" .
    #       em <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5059	5237	
==>y of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Stri <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5059	5237	
==>y of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Stri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	696	797	
==>rams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	696	797	
==>rams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	696	797	
==>rams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are current <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8588	8680	
==>};
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2413	2505	
==>};
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	700	801	
==>12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Lin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	700	801	
==>12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Lin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	700	801	
==>12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Lin <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6161	6257	
==>er_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5291	5387	
==>er_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6161	6257	
==>er_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5291	5387	
==>er_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2949	3090	
==>=> closure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbo <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4758	4872	
==>=> closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbo <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2540	2651	
==>ds{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2540	2651	
==>ds{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2540	2651	
==>ds{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18150	18259	
==>($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17730	17826	
==>armap>,
which is a hash reference holding character values (eg. 65 for 'A') and
the number of tim <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	952	1093	
==>lue ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	952	1093	
==>lue ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1560	1674	
==>ickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.hos <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1560	1674	
==>ickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.hos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	743	854	
==>] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	743	854	
==>] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	743	854	
==>] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub match <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4002	4127	
==>l.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4002	4127	
==>l.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4002	4127	
==>l.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   h <==
7	/Users/nnunley/pugs/util/combine_tests.pl	355	459	
==>fied reference.
# Note: no copy is made!
#
# Adds a more_events[] with events to each event for which
# t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21448	21546	
==>p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21448	21546	
==>p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21448	21546	
==>p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3918	4015	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6567	6664	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4157	4252	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10606	10701	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4157	4252	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10606	10701	
==>nternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrap <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	462	557	
==>t|o=s --keep|k);

touch() if $Config{touch};

setup_output();

inline(), exit 0 if $Config{inlin <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7389	7491	
==>$event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3856	3958	
==>DO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7389	7491	
==>$event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3856	3958	
==>DO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3856	3958	
==>DO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7717	7815	
==>$event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7717	7815	
==>$event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($c <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4453	4572	
==>}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4453	4572	
==>}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2699	2804	
==>s
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list param <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2699	2804	
==>s
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list param <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2699	2804	
==>s
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list param <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10602	10693	
==>rranged correctly
depending on their types, that their attributes have reasonable values, an <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10602	10693	
==>rranged correctly
depending on their types, that their attributes have reasonable values, an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5650	5747	
==>jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5650	5747	
==>jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5650	5747	
==>jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["ar <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28202	28297	
==>plemented.>

This method is a generic relational operator that returns a new Relation
which is t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29213	29308	
==>plemented.>

This method is a generic relational operator that returns a new Relation
which is t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32754	32849	
==>plemented.>

This method is a generic relational operator that returns a new Relation
which is t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33765	33860	
==>plemented.>

This method is a generic relational operator that returns a new Relation
which is t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7107	7229	
==>= $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7107	7229	
==>= $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7107	7229	
==>= $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16919	17038	
==>[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    no strict;
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13209	13312	
==>eta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLAS <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13209	13312	
==>eta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLAS <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13209	13312	
==>eta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLAS <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5061	5183	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6022	6144	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5061	5183	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6022	6144	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5061	5183	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6022	6144	
==>y $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CL <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1795	1889	
==>d1 CAVEATS

This is an experimental, pre-alpha development snapshot.  There are currently
no su <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2518	2638	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::captur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2711	2831	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::captur <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13590	13687	
==>expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable r <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13590	13687	
==>expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21948	22035	
==>penFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21948	22035	
==>penFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21948	22035	
==>penFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3341	3465	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8626	8750	
==>ation for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3600	3720	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10018	10138	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8323	8443	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3600	3720	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10018	10138	
==>ation for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10996	11095	
==>h stores data to be used or
displayed by your program.  It is analagous to a simplified version of t <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14159	14258	
==>h stores data to be used or
displayed by your program.  It is analagous to a simplified version of t <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4974	5073	
==>ecord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a tes <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10996	11095	
==>h stores data to be used or
displayed by your program.  It is analagous to a simplified version of t <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14159	14258	
==>h stores data to be used or
displayed by your program.  It is analagous to a simplified version of t <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4974	5073	
==>ecord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a tes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6498	6597	
==>ecord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a tes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5078	5217	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6039	6178	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5078	5217	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6039	6178	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5078	5217	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6039	6178	
==>nboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7391	7515	
==>$depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call = caller($de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17061	17218	
==>rray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17061	17218	
==>rray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17061	17218	
==>rray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3304	3404	
==>BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$! <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4641	4741	
==>BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$! <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3304	3404	
==>BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$! <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4863	4963	
==>BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$! <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10452	10562	
==>t
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subs <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10452	10562	
==>t
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10312	10421	
==>thods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10312	10421	
==>thods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10312	10421	
==>thods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7653	7749	
==>horization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authentica <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7653	7749	
==>horization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authentica <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1693	1833	
==>ate ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2022	2159	
==>ate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1635	1772	
==>ate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2022	2159	
==>ate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5544	5640	
==>our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5544	5640	
==>our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5544	5640	
==>our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">> <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2251	2458	
==>h {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    ret <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5728	5935	
==>h {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    ret <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4658	4865	
==>h {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5081	5205	
==>('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4345	4460	
==>('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_su <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1165	1260	
==>1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph t <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1165	1260	
==>1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6479	6619	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8928	9068	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6479	6619	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8928	9068	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6479	6619	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8928	9068	
==>rt = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defi <==
7	/Users/nnunley/pugs/misc/S29_round.pl	418	535	
==>e 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * fl <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36348	36441	
==>differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
du <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38101	38194	
==>differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that du <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40897	40990	
==>differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
du <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42650	42743	
==>differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that du <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40511	40604	
==>differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
du <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42300	42393	
==>differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that du <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	30358	30451	
==>SS_COMPILE_TEST currently assumes it's run from the Perl source
directory.

Please use the CPA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5239	5384	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8209	8354	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5239	5384	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8209	8354	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5239	5384	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8209	8354	
==>od);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41592	41685	
==>ple>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3321	3439	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11879	11997	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6446	6564	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3321	3439	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11879	11997	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6446	6564	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.define <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21756	21853	
==>bstr, aka anchored_substr, is used only in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Add <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3344	3472	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8629	8757	
==>on for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3603	3727	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10021	10145	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8326	8450	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3603	3727	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10021	10145	
==>on for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { stat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1812	1923	
==>and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1812	1923	
==>and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarN <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1812	1923	
==>and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarN <==
7	/Users/nnunley/pugs/util/package-osx.pl	931	1037	
==>/local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot
        /u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1530	1635	
==>},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-onl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1530	1635	
==>},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-onl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1530	1635	
==>},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-onl <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	286	418	
==>!$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3294	3402	
==>$self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3294	3402	
==>$self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3294	3402	
==>$self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3194	3298	
==>sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3194	3298	
==>sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3194	3298	
==>sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3161	3357	
==>ge ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( d <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3161	3357	
==>ge ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( d <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4375	4528	
==>(to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment th <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4375	4528	
==>(to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4988	5094	
==>->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4988	5094	
==>->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4988	5094	
==>->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1450	1553	
==>r);
END {
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1245	1341	
==>ix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mult <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1245	1341	
==>ix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mult <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1245	1341	
==>ix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mult <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2264	2343	
==>|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2264	2343	
==>|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2264	2343	
==>|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|p <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17833	17941	
==>l, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhos <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16871	16979	
==>l, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhos <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3332	3440	
==>ere and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    re <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17833	17941	
==>l, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhos <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16871	16979	
==>l, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3332	3440	
==>ere and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3332	3440	
==>ere and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2313	2423	
==>me> \;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9490	9599	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7037	7146	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9490	9599	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7037	7146	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9490	9599	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7037	7146	
==>ake_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10301	10414	
==>eq $self->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1004	1104	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1516	1616	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1004	1104	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1516	1616	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1004	1104	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1516	1616	
==>x(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4064	4228	
==>n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        els <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5385	5549	
==>n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        els <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4064	4228	
==>n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        els <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5373	5537	
==>n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        els <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1022	1129	
==>IL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1022	1129	
==>IL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1022	1129	
==>IL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24906	25089	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27095	27278	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24906	25089	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27095	27278	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24906	25089	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27095	27278	
==>mples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	553	674	
==>rce, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5616	5733	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8586	8703	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5616	5733	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8586	8703	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5616	5733	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8586	8703	
==>same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain C <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2488	2591	
==>hod month_0 returns Int { $.month - 1 }
method yy returns Int { die if $.year < 0; $.year % 100 }
method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14847	14965	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19546	19664	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14847	14965	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19546	19664	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14847	14965	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19546	19664	
==>oto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (spl <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15221	15321	
==>tion to
to select our language.  so I suspect the default should be Grf. -law]

Attempting to use a s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7766	7902	
==>_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7766	7902	
==>_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14660	14763	
==>() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} sec <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14660	14763	
==>() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} sec <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	19439	19538	
==>the same as a table.

The intended interface and use of this class in Perl programs is similar to
th <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23991	24090	
==>the same as a table.

The intended interface and use of this class in Perl programs is similar to
th <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22507	22606	
==>the same as a table.

The intended interface and use of this class in Perl programs is similar to
th <==
7	/Users/nnunley/pugs/util/addauthors.pl	888	1022	
==>uthor = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ m/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29929	30048	
==>tems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29929	30048	
==>tems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29929	30048	
==>tems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13420	13521	
==>bJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13420	13521	
==>bJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13420	13521	
==>bJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id un <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	780	877	
==>deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it u <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1905	2002	
==>deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it u <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1773	1870	
==>ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byte <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	780	877	
==>deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it u <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1905	2002	
==>deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it u <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1773	1870	
==>ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1773	1870	
==>ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byte <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3827	3928	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submet <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4160	4261	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submet <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3827	3928	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submet <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4160	4261	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submet <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4382	4475	
==>::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates an <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4382	4475	
==>::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5906	5999	
==>::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11301	11447	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8854	9000	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11301	11447	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8854	9000	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11301	11447	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8854	9000	
==>f the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $cu <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	4433	4566	
==>};
    $r->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r

    package MY::Class;  -- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7942	8093	
==>CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACK <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7942	8093	
==>CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACK <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7942	8093	
==>CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACK <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7748	7877	
==>ble_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'na <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7748	7877	
==>ble_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'na <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19378	19506	
==>(split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_o <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15799	15927	
==>(split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_o <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3165	3442	
==>,
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	754	855	
==>egal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# W <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	754	855	
==>egal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# W <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	754	855	
==>egal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# W <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1074	1171	
==>ixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1074	1171	
==>ixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1074	1171	
==>ixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4902	5017	
==>all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4902	5017	
==>all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4902	5017	
==>all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4986	5096	
==>}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub in <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16022	16132	
==>}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub in <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17510	17620	
==>}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub in <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22193	22303	
==>}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4766	4882	
==>r die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{outp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4766	4882	
==>r die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{outp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4766	4882	
==>r die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{outp <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6287	6383	
==>nfix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5417	5513	
==>nfix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6287	6383	
==>nfix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5417	5513	
==>nfix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16328	16484	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21045	21201	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16328	16484	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21045	21201	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16328	16484	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21045	21201	
==>bCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	345	428	
==>Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block>|<-[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13191	13353	
==>urn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13191	13353	
==>urn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13191	13353	
==>urn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1930	2088	
==>my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1930	2088	
==>my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1930	2088	
==>my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5787	5924	
==>n";

        if (-d $ghc_root) {
            # Looks like we've found a GHC directory.  Find the latest
            # ghc inside that.  So <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2043	2162	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1155	1274	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2043	2162	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1155	1274	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2043	2162	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1155	1274	
==>with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr( <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	2362	2452	
==>ess::Verbose>

The package variable C<$Test::Harness::Verbose> is exportable and can be
use <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4410	4530	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7059	7179	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4637	4754	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11086	11203	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4637	4754	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11086	11203	
==>apture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $ <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2336	2438	
==>returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.year }
meth <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3240	3369	
==>ption");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  } <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3240	3369	
==>ption");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4764	4893	
==>ption");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  } <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1607	1720	
==>ode $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems} <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1607	1720	
==>ode $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2922	3017	
==>uld load Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::S <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2815	2909	
==>uld load Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5675	5852	
==>= $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #prec <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5675	5852	
==>= $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #prec <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5675	5852	
==>= $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #prec <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1303	1452	
==>Pugs::Grammar::StatementControl->parse( $match, { p => 1 } );
            last if ( $m );
            #}
            
            # XXX temporary hack <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3255	3364	
==>class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3255	3364	
==>class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3255	3364	
==>class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	22	131	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	23	132	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	22	131	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	23	132	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	22	131	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	23	132	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{p <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	27981	28074	
==>f you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<HARNESS_PERL_S <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5061	5189	
==>} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16097	16225	
==>} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17585	17713	
==>} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22268	22396	
==>} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10966	11062	
==>ts C<undef> will be returned.

A multi-valued field will be returned as separate values in list
c <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2717	2813	
==>es on step further and Curries approxfprime with the user supplied
f.  Such things are possible i <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10966	11062	
==>ts C<undef> will be returned.

A multi-valued field will be returned as separate values in list
c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11358	11480	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2870	2992	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11358	11480	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2870	2992	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11358	11480	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2870	2992	
==>= new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]). <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1171	1280	
==>ged with #lookahead
#     If rules taking arguments had any hope of working soon,
#     I would have said <!lo <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11243	11360	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2359	2476	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7453	7570	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11243	11360	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2359	2476	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7453	7570	
==>) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defin <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1807	1905	
==>lib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBun <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3564	3737	
==>matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtrac <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4492	4661	
==>matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtrac <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3453	3622	
==>matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtrac <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4492	4661	
==>matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtrac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18887	19011	
==>xed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18887	19011	
==>xed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18887	19011	
==>xed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1114	1233	
==>nodes can be modified at runtime
sub alternation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11637	11752	
==>es in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self->_defaul <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	294	390	
==>om_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_ <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	294	390	
==>om_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	36	130	
==>f->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	36	130	
==>f->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	36	130	
==>f->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3465	3670	
==>own Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        ma <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3465	3670	
==>own Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        ma <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3465	3670	
==>own Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        ma <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	341	536	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	341	536	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	593	688	
==>result;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns S <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	593	688	
==>result;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns S <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7879	7979	
==>ass;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  package Reg <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25252	25346	
==>tation of its
arguments and any invocant object's attributes is identical; they do not
interact <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11383	11477	
==>tation of its
arguments and any invocant object's attributes is identical; they do not
interact <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14656	14750	
==>tation of its arguments and any invocant
object's attributes is identical; they do not interact <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25252	25346	
==>tation of its
arguments and any invocant object's attributes is identical; they do not
interact <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11383	11477	
==>tation of its
arguments and any invocant object's attributes is identical; they do not
interact <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14656	14750	
==>tation of its arguments and any invocant
object's attributes is identical; they do not interact <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	377	481	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	370	474	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	377	481	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	370	474	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	377	481	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	370	474	
==>rnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return P <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13667	13765	
==>?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExpression> < <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2933	3062	
==>ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8027	8156	
==>ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2933	3062	
==>ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8027	8156	
==>ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5158	5261	
==>instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5158	5261	
==>instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5158	5261	
==>instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require J <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3634	3739	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3634	3739	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7922	8024	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7052	7154	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7922	8024	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7052	7154	
==>ations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2803	2894	
==>die::Backend::Perl::Builtins - table of prelude replacement relevant to the perl backend

=h <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	169	334	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	974	1139	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	294	459	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	169	334	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	974	1139	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	294	459	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $bu <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5582	5707	
==>to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pStmts"
        d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	559	721	
==>'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	559	721	
==>'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	559	721	
==>'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15120	15244	
==>p1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub postfix {
    my $n = $_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10907	10987	
==>-------------------------------------------------------------------------------
R <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10907	10987	
==>-------------------------------------------------------------------------------
R <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10907	10987	
==>-------------------------------------------------------------------------------
R <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4548	4695	
==>s) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<sta <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4548	4695	
==>s) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<sta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5163	5268	
==>:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5163	5268	
==>:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5163	5268	
==>:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ( <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28117	28213	
==>l Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

Th <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28117	28213	
==>l Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

Th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1788	1912	
==>see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1788	1912	
==>see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1788	1912	
==>see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is a <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9793	9888	
==>return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $s <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9793	9888	
==>return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $s <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9238	9332	
==>return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $s <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9238	9332	
==>return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6305	6493	
==>pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6305	6493	
==>pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6305	6493	
==>pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6538	6676	
==>a} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10079	10185	
==>--------------------------------    
      
    # -----------------------------------------------  
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10079	10185	
==>--------------------------------    
      
    # -----------------------------------------------  
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10079	10185	
==>--------------------------------    
      
    # -----------------------------------------------  
    # c <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4507	4608	
==>($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4810	4903	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4810	4903	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5400	5493	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5355	5447	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5355	5447	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5945	6037	
==>my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self-> <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	200	323	
==>a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 36 <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	200	323	
==>a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 36 <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1093	1210	
==>an element of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules takin <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2628	2723	
==>odule than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is r <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2628	2723	
==>odule than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is r <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	758	851	
==>e() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_ <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	758	851	
==>e() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5994	6132	
==>') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5994	6132	
==>') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5994	6132	
==>') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1693	1801	
==>or @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more param <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1693	1801	
==>or @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more param <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1693	1801	
==>or @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more param <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	4773	4874	
==>-----------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18391	18544	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18688	18841	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18670	18823	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18967	19120	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2793	2891	
==>dd_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2793	2891	
==>dd_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2793	2891	
==>dd_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opa <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6895	6986	
==>Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1335	1426	
==>Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6895	6986	
==>Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1335	1426	
==>Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4225	4365	
==>\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::e <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34875	34973	
==>g
their common attributes.  This method will fail if the heading of <$other>
is not a subset of the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39425	39523	
==>g
their common attributes.  This method will fail if the heading of <$other>
is not a subset of the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38958	39056	
==>g
their common attributes.  This method will fail if the heading of <$other>
is not a subset of the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	933	1030	
==>recompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	933	1030	
==>recompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	933	1030	
==>recompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1599	1722	
==>fined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1599	1722	
==>fined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1599	1722	
==>fined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	885	990	
==>Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	885	990	
==>Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	885	990	
==>Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b) <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6342	6466	
==>),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6342	6466	
==>),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	458	558	
==>s a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1003	1103	
==>s a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend o <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	458	558	
==>s a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend o <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1003	1103	
==>s a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend o <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1003	1103	
==>s a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3225	3339	
==>put [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3225	3339	
==>put [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3225	3339	
==>put [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - l <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18005	18088	
==>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21263	21346	
==>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41270	41353	
==>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44170	44253	
==>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	934	1084	
==>[ $::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1697	1811	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3260	3374	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1697	1811	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3260	3374	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1697	1811	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3260	3374	
==>l came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1823	1946	
==>( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $cod <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2566	2689	
==>( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $cod <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1823	1946	
==>( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $cod <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2554	2677	
==>( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $cod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3255	3369	
==>bname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3255	3369	
==>bname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3255	3369	
==>bname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      i <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4576	4685	
==>se/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note that Cygwin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1543	1648	
==>$thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1543	1648	
==>$thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1543	1648	
==>$thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4010	4108	
==>, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unle <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4010	4108	
==>, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unle <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4010	4108	
==>, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unle <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5388	5501	
==>tore => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    ### build a fr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1554	1665	
==>difier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1554	1665	
==>difier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1554	1665	
==>difier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10635	10735	
==>------------------------------------

    method add_method;
    method get_method;
    method has_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10635	10735	
==>------------------------------------

    method add_method;
    method get_method;
    method has_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10635	10735	
==>------------------------------------

    method add_method;
    method get_method;
    method has_me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19021	19134	
==>=> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19021	19134	
==>=> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19021	19134	
==>=> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6059	6163	
==>t>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6839	6943	
==>t>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6059	6163	
==>t>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6839	6943	
==>t>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18228	18361	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15466	15599	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18228	18361	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15466	15599	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18228	18361	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15466	15599	
==>sh
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probab <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14153	14250	
==>case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation::Exa <==
7	/Users/nnunley/pugs/examples/hop6/Parser.pm	1076	1211	
==>ut) {
    return
      unless defined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5499	5611	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3619	3731	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5499	5611	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3619	3731	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5499	5611	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3619	3731	
==>lasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclas <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12583	12718	
==>sub {
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	309	407	
==>ded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	309	407	
==>ded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	309	407	
==>ded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3547	3633	
==>tributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3547	3633	
==>tributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3547	3633	
==>tributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribu <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2113	2213	
==>ad1 NAME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $role_mc = M <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32911	33003	
==>ary relational operator that is like
C<union> except that the returned Relation contains only <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33366	33458	
==>ary relational operator that is like
C<union> except that the returned Relation contains only <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37461	37553	
==>ary relational operator that is like
C<union> except that the returned Relation contains only <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37916	38008	
==>ary relational operator that is like
C<union> except that the returned Relation contains only <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2520	2611	
==>],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair strin <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2520	2611	
==>],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair strin <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2520	2611	
==>],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair strin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7425	7557	
==>g variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11760	11892	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2241	2370	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9013	9142	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7175	7304	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2241	2370	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9013	9142	
==>g variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30000	30147	
==>get('?$order');
                
                $order = str->new(':ascendant') # C3 is the canonical order
                    if $order == $nil:: <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11116	11227	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12587	12698	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14593	14704	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16064	16175	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13901	14012	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15426	15537	
==>irst source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading. <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3914	4011	
==>ional
description of the test.  This is the easiest way to match a failing test.

=item B<test_out <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3914	4011	
==>ional
description of the test.  This is the easiest way to match a failing test.

=item B<test_out <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3994	4091	
==>ional
description of the test.  This is the easiest way to match a failing test.

=item B<test_out <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13174	13330	
==>force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3359	3495	
==>force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3359	3495	
==>force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3359	3495	
==>force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1753	1870	
==>l();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1753	1870	
==>l();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1753	1870	
==>l();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20556	20773	
==>eturn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20556	20773	
==>eturn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20556	20773	
==>eturn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tm <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20383	20479	
==>ver is currently connected.

Note that you might want to use the C<logged_in> method instead.

=h <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19331	19427	
==>ver is currently connected.

Note that you might want to use the C<logged_in> method instead.

=h <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20383	20479	
==>ver is currently connected.

Note that you might want to use the C<logged_in> method instead.

=h <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19331	19427	
==>ver is currently connected.

Note that you might want to use the C<logged_in> method instead.

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3365	3474	
==>{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3365	3474	
==>{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3365	3474	
==>{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5940	6039	
==>urnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<objec <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5940	6039	
==>urnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<objec <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4887	4983	
==>R

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights res <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4887	4983	
==>R

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights res <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25471	25640	
==>{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26129	26298	
==>{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25750	25919	
==>{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26408	26577	
==>{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3192	3343	
==>a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3192	3343	
==>a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3192	3343	
==>a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: <==
7	/Users/nnunley/pugs/util/svnlog2graph.pl	1760	1878	
==>,              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@dat <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3119	3232	
==>}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3119	3232	
==>}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3119	3232	
==>}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3620	3723	
==>efined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3620	3723	
==>efined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3620	3723	
==>efined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	6414	6527	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	7167	7280	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	8031	8144	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9891	10004	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10644	10757	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11508	11621	
==>on (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2410	2509	
==>($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = $O.prop <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4493	4629	
==>Regex->compile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14692	14809	
==>, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14692	14809	
==>, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .... <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14692	14809	
==>, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .... <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1088	1197	
==>, however at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so .... <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11741	11835	
==>@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11741	11835	
==>@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of a <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7768	7862	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6898	6992	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3484	3578	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3484	3578	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7768	7862	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6898	6992	
==>, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bo <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	757	851	
==>for variables.

=item *

unbound private attributes, which are actually just accessor methods
a <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	1097	1230	
==>r $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1097	1230	
==>r $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1747	1864	
==>$base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $bas <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1747	1864	
==>$base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $bas <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	8185	8291	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi meth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11662	11768	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi meth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10844	10950	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8606	8792	
==>l')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8606	8792	
==>l')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8606	8792	
==>l')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3080	3179	
==>load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is over <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2971	3066	
==>load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is over <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33837	33931	
==>r user role's) preferences such that each says what
language they prefer to communicate in, and <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33837	33931	
==>r user role's) preferences such that each says what
language they prefer to communicate in, and <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1911	2045	
==>@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1911	2045	
==>@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1911	2045	
==>@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1 <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	13053	13143	
==>et containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2) <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9777	9867	
==>et containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13053	13143	
==>et containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9777	9867	
==>et containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15440	15550	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12696	12806	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15440	15550	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12696	12806	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15440	15550	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12696	12806	
==>->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance <==
7	/Users/nnunley/pugs/util/drift.pl	343	442	
==>$dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13090	13218	
==>sh  => sub { "". %{$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_[0] },
      glob  => sub { "". ${$_[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22179	22280	
==>{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22179	22280	
==>{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22179	22280	
==>{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11118	11214	
==>rl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 ' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11118	11214	
==>rl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 ' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11118	11214	
==>rl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 ' <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	23059	23197	
==>$Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9633	9744	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12606	12717	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9633	9744	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12606	12717	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9633	9744	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12606	12717	
==>have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'n <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	450	574	
==>s the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invoca <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	450	574	
==>s the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invoca <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2808	2930	
==>ta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{dep <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3272	3394	
==>ta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{dep <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5242	5342	
==>l with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5242	5342	
==>l with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5242	5342	
==>l with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn' <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2291	2562	
==>heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5768	6039	
==>heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4698	4969	
==>heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5667	5867	
==>es = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.pr <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3028	3228	
==>es = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.pr <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5667	5867	
==>es = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.pr <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3028	3228	
==>es = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.pr <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2022	2152	
==>brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\C[A;B] i <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27249	27364	
==>ral', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27528	27643	
==>ral', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28200	28294	
==>implemented.>

This method is a generic relational operator that returns a new Relation
which i <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29211	29305	
==>implemented.>

This method is a generic relational operator that returns a new Relation
which i <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32752	32846	
==>implemented.>

This method is a generic relational operator that returns a new Relation
which i <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33763	33857	
==>implemented.>

This method is a generic relational operator that returns a new Relation
which i <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	385	500	
==>sub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait> <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	534	649	
==>sub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait> <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	385	500	
==>sub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait> <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	534	649	
==>sub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5886	5991	
==>t_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5886	5991	
==>t_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5886	5991	
==>t_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2433	2557	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4760	4884	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2433	2557	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4760	4884	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2433	2557	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4760	4884	
==>s \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3517	3612	
==>:WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
    attribut <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4368	4472	
==>ngify to the same thing but are acutally numerically
        # different. Display the numbers if $type is <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7150	7250	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6280	6380	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2934	3034	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2934	3034	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7150	7250	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6280	6380	
==>, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operati <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	948	1054	
==>rint "P6 loaded from '$filename'\n";
    open FILE, "<", $filename
        or die "can't open $filename for <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39520	39620	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39790	39890	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39520	39620	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39790	39890	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39520	39620	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39790	39890	
==>alue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	985	1081	
==>$b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<|| <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	985	1081	
==>$b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<|| <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	985	1081	
==>$b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<|| <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	30555	30650	
==>< <bug-test-harness >> at C<< rt.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2791	2881	
==>$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2791	2881	
==>$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2791	2881	
==>$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13064	13200	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13064	13200	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13064	13200	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5304	5440	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3804	3940	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1949	2085	
==>e if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now re <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1210	1324	
==>l interfere with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25105	25260	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27294	27449	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25105	25260	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27294	27449	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25105	25260	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27294	27449	
==>) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fet <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	4240	4344	
==>1', $file21, "11th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9747	9863	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12720	12836	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9747	9863	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12720	12836	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9747	9863	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12720	12836	
==>t METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub :: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7194	7296	
==>r class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(eol => s <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8237	8367	
==>eturn $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($f <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8237	8367	
==>eturn $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2674	2792	
==>make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2674	2792	
==>make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2674	2792	
==>make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5660	5764	
==>terator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5660	5764	
==>terator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4162	4259	
==>aque_instance_attrs($self)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($s <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36225	36321	
==>en where each member of a tuple pair has attribute names in common,
eliminating pairs where the v <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37978	38074	
==>en where each member of a
tuple pair has attribute names in common, eliminating pairs where the
v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40774	40870	
==>en where each member of a tuple pair has attribute names in common,
eliminating pairs where the v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42527	42623	
==>en where each member of a
tuple pair has attribute names in common, eliminating pairs where the
v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40388	40484	
==>en where each member of a tuple pair has attribute names in common,
eliminating pairs where the v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42177	42273	
==>en where each member of a
tuple pair has attribute names in common, eliminating pairs where the
v <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	33	128	
==>Metadata;

use Module::Install::Base;
@ISA = qw{Module::Install::Base};

$VERSION = '0.61';

use <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1674	1815	
==>4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Test <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19333	19443	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4813	4923	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19333	19443	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4813	4923	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19333	19443	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4813	4923	
==>::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Can <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17395	17491	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22103	22199	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17395	17491	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22103	22199	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17395	17491	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22103	22199	
==>ND__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5419	5512	
==>lti sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boo <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	195	312	
==>'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Cl <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	195	312	
==>'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Cl <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5910	6011	
==>);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5040	5141	
==>);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5910	6011	
==>);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5040	5141	
==>);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	145	240	
==>e base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub constants { @EXPORT <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	993	1107	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retur <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1867	1981	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	993	1107	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1867	1981	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retur <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	24513	24608	
==>of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () retu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29065	29160	
==>of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () retu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27941	28036	
==>of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4522	4693	
==>{ 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' | <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4522	4693	
==>{ 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' | <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4522	4693	
==>{ 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' | <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	370	466	
==>_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	370	466	
==>_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1383	1478	
==>_is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1383	1478	
==>_is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9081	9222	
==>hod \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9081	9222	
==>hod \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9081	9222	
==>hod \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sca <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13835	13938	
==>irst do some optimizing of the order that source relations are
    # combined, so to try and make the le <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17312	17415	
==>irst do some optimizing of the order that source relations are
    # combined, so to try and make the le <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16692	16795	
==>irst do some optimizing of the order that source relations are
    # combined, so to try and make the le <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	718	814	
==>mmar, intended for a tokenizer, are not actually used.
#   * Some rules, eg StringNumericLiteral, <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11023	11161	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12494	12632	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14500	14638	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15971	16109	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13808	13946	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15333	15471	
==>ng ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is s <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4033	4147	
==>'}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9128	9255	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12101	12228	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9128	9255	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12101	12228	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9128	9255	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12101	12228	
==>('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Meth <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	170	266	
==>ata::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10547	10741	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8098	8292	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10547	10741	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8098	8292	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10547	10741	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8098	8292	
==>pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_di <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	513	600	
==>ar/www/iblech/stuff/pugs-smokes/",
  BASEHTTPDIR => "/iblech/stuff/pugs-smokes/",
  BUCK <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	4311	4423	
==>ading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes." <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7788	7900	
==>ading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes." <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6772	6884	
==>ading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes." <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22095	22187	
==>ot available for numeric handlers.

=item C<object>

The nick/channel/whatever the message op <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20976	21068	
==>ot available for numeric handlers.

=item C<object>

The nick/channel/whatever the message op <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22095	22187	
==>ot available for numeric handlers.

=item C<object>

The nick/channel/whatever the message op <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20976	21068	
==>ot available for numeric handlers.

=item C<object>

The nick/channel/whatever the message op <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7579	7692	
==>TROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7579	7692	
==>TROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7579	7692	
==>TROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5948	6040	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1144	1236	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5948	6040	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1144	1236	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8884	8995	
==>writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	618	729	
==>writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8884	8995	
==>writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8884	8995	
==>writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I <==
7	/Users/nnunley/pugs/util/build_pugs.pl	8195	8305	
==>str($_, 2), grep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pk <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17183	17284	
==>,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

r <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17340	17441	
==>,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1106	1247	
==>autovivification! - returns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $self->get_value( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6139	6263	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9109	9233	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6139	6263	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9109	9233	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6139	6263	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9109	9233	
==>ethod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2127	2241	
==>l6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Pe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2127	2241	
==>l6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2785	2895	
==>is should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2785	2895	
==>is should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2785	2895	
==>is should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1359	1468	
==>l6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Pe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3220	3329	
==>l6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3379	3548	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6315	6484	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3379	3548	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6315	6484	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3379	3548	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6315	6484	
==>my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	18783	18922	
==>detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output cou <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	24682	24836	
==>$good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    pus <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10856	10969	
==>oreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10856	10969	
==>oreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10856	10969	
==>oreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1361	1463	
==>ck b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HAC <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1361	1463	
==>ck b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HAC <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1361	1463	
==>ck b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HAC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16552	16660	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13757	13865	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16552	16660	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13757	13865	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16552	16660	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13757	13865	
==>, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5474	5566	
==>e }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Numb <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3414	3583	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6350	6519	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3414	3583	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6350	6519	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3414	3583	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6350	6519	
==>n sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have m <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	230	325	
==>.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed versi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15888	16000	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20605	20717	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15888	16000	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20605	20717	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15888	16000	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20605	20717	
==>n multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipara <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8921	9030	
==>o warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2683	2807	
==>rity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2683	2807	
==>rity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2683	2807	
==>rity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->() <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9200	9305	
==>is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _nor <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9200	9305	
==>is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _nor <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9757	9861	
==>is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _nor <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9757	9861	
==>is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _nor <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3886	4063	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6413	6590	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3886	4063	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6413	6590	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3886	4063	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6413	6590	
==>hod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submetho <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	792	891	
==>$class->SUPER::new();
    $obj->mk_accessors( qw[repositories] );
    
    $obj->repositories( \@ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20433	20558	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17572	17697	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20433	20558	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17572	17697	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20433	20558	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17572	17697	
==>uld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($valu <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	486	588	
==>i Num::round_half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetri <==
7	/Users/nnunley/pugs/util/build_pugs.pl	8904	9035	
==>@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2394	2523	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1927	2056	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2394	2523	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1927	2056	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2394	2523	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1927	2056	
==>@args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9841	9982	
==>$description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      fo <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2394	2523	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF! <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7488	7617	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF! <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2394	2523	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF! <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7488	7617	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF! <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1920	2043	
==>$description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    fo <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1920	2043	
==>$description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	450	544	
==>>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	450	544	
==>>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	450	544	
==>>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterat <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	14031	14122	
==>Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Lit <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10258	10349	
==>Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Lit <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14031	14122	
==>Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Lit <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10258	10349	
==>Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Lit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12564	12686	
==>)->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12564	12686	
==>)->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12564	12686	
==>)->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $:: <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39098	39192	
==>ad1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Ros <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39098	39192	
==>ad1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Ros <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5189	5282	
==>de("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MI <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5189	5282	
==>de("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MI <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	1230	1405	
==>h = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavi <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1230	1405	
==>h = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavi <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5510	5664	
==>uous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Per <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5510	5664	
==>uous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Per <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1485	1583	
==>eref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1485	1583	
==>eref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1485	1583	
==>eref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18866	19009	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16104	16247	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18866	19009	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16104	16247	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18866	19009	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16104	16247	
==>)->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_MET <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	926	1026	
==>de *&test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 multi s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14037	14176	
==>n "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _em <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19864	19962	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17003	17101	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19864	19962	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17003	17101	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19864	19962	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17003	17101	
==>if ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6329	6444	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9299	9414	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6329	6444	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9299	9414	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6329	6444	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9299	9414	
==>nvocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && <==
7	/Users/nnunley/pugs/util/config_h.pl	1511	1619	
==>ou want
    Template Haskell support, please compile your GHC with the
    GHCi option.

.
}

close OUT;

sub <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11162	11297	
==>,
      family => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3127	3238	
==>Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3127	3238	
==>Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3127	3238	
==>Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	14083	14178	
==>idt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=hea <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10310	10405	
==>idt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=hea <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14083	14178	
==>idt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=hea <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10310	10405	
==>idt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=hea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12700	12831	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12700	12831	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12700	12831	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $ <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4398	4502	
==>able""paramContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parame <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1152	1252	
==>cludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1152	1252	
==>cludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38836	38926	
==>EX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(? <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11539	11668	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2533	2662	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7627	7756	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11539	11668	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2533	2662	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7627	7756	
==>_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $? <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5593	5715	
==>.
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$_[1], \$_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1885	2009	
==>strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1885	2009	
==>strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4379	4488	
==>tiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4379	4488	
==>tiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4379	4488	
==>tiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{c <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4231	4327	
==>d represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4231	4327	
==>d represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2081	2186	
==>ad1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The . <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2081	2186	
==>ad1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The . <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1315	1414	
==>ad1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The . <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3176	3275	
==>ad1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The . <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	999	1093	
==>$xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	999	1093	
==>$xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	999	1093	
==>$xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16622	16718	
==>UB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16622	16718	
==>UB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16622	16718	
==>UB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...} <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5933	6028	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1129	1224	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5933	6028	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1129	1224	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11696	11825	
==>ssage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2179	2305	
==>ssage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8951	9077	
==>ssage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2179	2305	
==>ssage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8951	9077	
==>ssage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	789	891	
==>pans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bo <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	789	891	
==>pans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bo <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5151	5372	
==>end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.pr <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5151	5372	
==>end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.pr <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1228	1351	
==>ture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    me <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1228	1351	
==>ture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8638	8735	
==>r ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {.. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8638	8735	
==>r ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {.. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8638	8735	
==>r ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {.. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14967	15105	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14967	15105	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14967	15105	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19666	19803	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19666	19803	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19666	19803	
==>t '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what shoul <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	14970	15067	
==>ts);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Generates the ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5094	5210	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5427	5543	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5094	5210	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5427	5543	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5094	5210	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5427	5543	
==>{
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6420	6514	
==>opaque $self:) (symbol $label) (method $method)) returns nil
    ((($self: get_attr (symbol new <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	900	1037	
==>match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	900	1037	
==>match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Gram <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	1247	1369	
==>ote that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4725	4847	
==>ote that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22379	22495	
==>o_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22379	22495	
==>o_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22379	22495	
==>o_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::p <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3448	3647	
==>nterpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ r <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3496	3695	
==>nterpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ r <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3448	3647	
==>nterpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ r <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3496	3695	
==>nterpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ r <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2597	2765	
==>> $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternatio <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2901	3057	
==>> $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternatio <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2901	3057	
==>> $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternatio <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	9977	10100	
==>3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=h <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7917	8040	
==>3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=h <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9977	10100	
==>3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=h <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7917	8040	
==>3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=h <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1103	1217	
==>values %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub me <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35021	35122	
==>lator object, you must create a new
object that is a clone of the first but for the changes.

=back

A <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35021	35122	
==>lator object, you must create a new
object that is a clone of the first but for the changes.

=back

A <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6377	6476	
==>c(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6377	6476	
==>c(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6377	6476	
==>c(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pri <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25095	25180	
==>PLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23859	23944	
==>PLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25095	25180	
==>PLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23859	23944	
==>PLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8099	8238	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5658	5797	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8099	8238	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5658	5797	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8099	8238	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5658	5797	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1787	1926	
==>.
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties an <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14010	14152	
==>} elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14010	14152	
==>} elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14010	14152	
==>} elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .d <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6272	6414	
==>} elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .d <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4774	4916	
==>} elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .d <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2852	2950	
==>ue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) toke <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2852	2950	
==>ue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) toke <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1680	1787	
==>mp($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1680	1787	
==>mp($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1680	1787	
==>mp($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EO <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1100	1202	
==>turn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($s <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	842	944	
==>turn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($s <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1100	1202	
==>turn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($s <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	842	944	
==>turn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13604	13722	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10888	11006	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13604	13722	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10888	11006	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13604	13722	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10888	11006	
==>turn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $p <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	304	404	
==>niker))) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub c <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22354	22472	
==>elf->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9581	9691	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7128	7238	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9581	9691	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7128	7238	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9581	9691	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7128	7238	
==>cher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($o <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9443	9584	
==>:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9431	9572	
==>:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9797	9903	
==>pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	149	254	
==>pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation" <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	237	338	
==>pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	237	338	
==>pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation" <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	142	242	
==>pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation" <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7601	7705	
==>y || "") eq "infix") {
		return "( $params[0] $thunk $params[1] )";
	} else {
		return "$thunk( " . join( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	93	188	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	354	449	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	93	188	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	354	449	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	93	188	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	354	449	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25085	25221	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27274	27410	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25085	25221	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27274	27410	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25085	25221	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27274	27410	
==>for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems ) <==
7	/Users/nnunley/pugs/misc/S29_round.pl	2798	2919	
==>_up = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	829	947	
==>meout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	829	947	
==>meout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	829	947	
==>meout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3182	3285	
==>eturn $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11780	11880	
==>ar_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11774	11874	
==>ar_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upp <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13971	14069	
==>ue?  And then prove
  implausible to realloc the regexp struct to create one?

Possible next steps: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	405	511	
==>")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed P <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6843	6949	
==>-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	405	511	
==>")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed P <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	405	511	
==>")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2211	2305	
==>bel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2211	2305	
==>bel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2211	2305	
==>bel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_metho <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	16451	16570	
==>lation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	17421	17540	
==>lation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19928	20047	
==>lation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20898	21017	
==>lation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.v <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34802	34909	
==>ail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34802	34909	
==>ail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34802	34909	
==>ail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5252	5371	
==>]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5252	5371	
==>]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2483	2588	
==>/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2483	2588	
==>/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2483	2588	
==>/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16794	16891	
==>'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16794	16891	
==>'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11677	11826	
==>\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11677	11826	
==>\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11677	11826	
==>\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    i <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5179	5307	
==>_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13737	13863	
==>al_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13737	13863	
==>al_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13737	13863	
==>al_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8528	8689	
==>@param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clea <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8528	8689	
==>@param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clea <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8528	8689	
==>@param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8299	8411	
==>ndef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	457	569	
==>ndef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	689	798	
==>ndef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail o <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8020	8129	
==>ndef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail o <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	435	544	
==>ndef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	689	798	
==>ndef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail o <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	464	562	
==>on{$variable} = $value;
}

sub SessionGet($variable) {
    return %Session{$variable};
}

sub Sessi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13650	13845	
==>my $attr = join( ', ', 
                map { 
                    join( ' => ', map { "'" . _emit($_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4600	4700	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7536	7636	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4600	4700	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7536	7636	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4600	4700	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7536	7636	
==>ss "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	22701	22813	
==>rst,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first") <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24820	24915	
==>nvoked routine
simply returns, you can assume that it has succeeded, even if the return
value is <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22434	22529	
==>nvoked routine simply
returns, you can assume that it has succeeded, even if the return value is <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9720	9815	
==>nvoked routine
simply returns, you can assume that it has succeeded, even if the return
value is <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24820	24915	
==>nvoked routine
simply returns, you can assume that it has succeeded, even if the return
value is <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22434	22529	
==>nvoked routine simply
returns, you can assume that it has succeeded, even if the return value is <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9720	9815	
==>nvoked routine
simply returns, you can assume that it has succeeded, even if the return
value is <==
7	/Users/nnunley/pugs/util/package-osx.pl	11513	11623	
==>5}$)//; $_ } split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @f <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	527	634	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	849	956	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1228	1335	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	527	634	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	849	956	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1228	1335	
==>name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9409	9536	
==>nd =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9409	9536	
==>nd =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9409	9536	
==>nd =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $c <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14462	14564	
==>self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::lea <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1942	2044	
==>self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::lea <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6214	6313	
==>k';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VSt <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6214	6313	
==>k';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VSt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13979	14090	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14466	14577	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13979	14090	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14466	14577	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13979	14090	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14466	14577	
==>_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	338	432	
==>re File::Find;
    File::Find::find(sub { push @modules, $File::Find::name if /\.pm/i }, 'lib') <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11001	11100	
==>cified items from the set. Returns the number of items
removed.

It is not fatal to remove an item w <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8405	8504	
==>cified items from the set. Returns the number of items removed.

It is not fatal to remove an item w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4612	4711	
==>is is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11001	11100	
==>cified items from the set. Returns the number of items
removed.

It is not fatal to remove an item w <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8405	8504	
==>cified items from the set. Returns the number of items removed.

It is not fatal to remove an item w <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4612	4711	
==>is is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4612	4711	
==>is is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	348	463	
==>c => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9977	10081	
==>-----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10000	10104	
==>------------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9977	10081	
==>-----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10000	10104	
==>------------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9977	10081	
==>-----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10000	10104	
==>------------
    # has %:methods;
    # has %:attributes;
    # ----------------------------------------- <==
7	/Users/nnunley/pugs/util/claim_drift.pl	1105	1239	
==>"unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3815	3942	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6751	6878	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3815	3942	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6751	6878	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3815	3942	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6751	6878	
==>('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8707	8862	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11680	11835	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8707	8862	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11680	11835	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8707	8862	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11680	11835	
==>out the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Subm <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7237	7348	
==>ct(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	340	468	
==>"up to date: $pmc_is_uptodate\n";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30042	30163	
==>b from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $l <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30042	30163	
==>b from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $l <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30042	30163	
==>b from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2119	2206	
==>s   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2119	2206	
==>s   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2119	2206	
==>s   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1213	1338	
==>me2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2064	2173	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1176	1285	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2064	2173	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1176	1285	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2064	2173	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1176	1285	
==>ut it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $k <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3106	3234	
==>^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code' <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3106	3234	
==>^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2013	2115	
==>t()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test() <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2013	2115	
==>t()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test() <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2013	2115	
==>t()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test() <==
7	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1146	1245	
==>d current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $ <==
7	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1146	1245	
==>d current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13321	13514	
==>$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => str->ne <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10083	10194	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12724	12835	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13560	13671	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16201	16312	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12841	12952	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15563	15674	
==>Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headin <==
7	/Users/nnunley/pugs/util/importgraph.pl	1316	1421	
==>odules) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefined clu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	1547	1735	
==>d.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    f <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5024	5212	
==>d.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    f <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3954	4142	
==>d.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    f <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1715	1828	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    ' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1715	1828	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    ' <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19946	20042	
==>for Mac OS X programs, including
the operating system itself, to have the user language data in s <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19946	20042	
==>for Mac OS X programs, including
the operating system itself, to have the user language data in s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7760	7867	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10683	10790	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7760	7867	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10683	10790	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7760	7867	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10683	10790	
==>lass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3740	3834	
==>d]]) (\??) <name> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
rule argum <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17016	17194	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21731	21909	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17016	17194	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21731	21909	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17016	17194	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21731	21909	
==>seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	175	304	
==>returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4058	4180	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2292	2414	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3073	3195	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4996	5117	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2538	2659	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3319	3440	
==>);
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub n <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	266	376	
==>{
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not exist\n" unless <==
7	/Users/nnunley/pugs/util/build_pugs.pl	7434	7550	
==>}

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell-src -any';
    }

    i <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	198	310	
==>atim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is expo <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	198	310	
==>atim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is expo <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	198	310	
==>atim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is expo <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	198	310	
==>atim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is expo <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18245	18340	
==>xternal resources, such as a repository file
on disk, it is expected that the Engines will emplo <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18245	18340	
==>xternal resources, such as a repository file
on disk, it is expected that the Engines will emplo <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	735	911	
==>::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attrs!) {
    %!attr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16504	16603	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21221	21320	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16504	16603	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21221	21320	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16504	16603	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21221	21320	
==>his *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5527	5643	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8497	8613	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5527	5643	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8497	8613	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5527	5643	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8497	8613	
==>t
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in th <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	368	465	
==>ewhere.


package Test::Harness::YAML;
use strict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAML::S <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3433	3585	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8718	8869	
==>0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $st <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3689	3836	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10107	10254	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3689	3836	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10107	10254	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8412	8558	
==>0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $st <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	3568	3692	
==>,
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about whether to r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7739	7844	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10662	10767	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7739	7844	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10662	10767	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7739	7844	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10662	10767	
==>ETHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20127	20258	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17266	17397	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20127	20258	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17266	17397	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20127	20258	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17266	17397	
==>rmally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::P <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3211	3316	
==><-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_term  { \< null \> }

rule assertion  { <asse <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	3796	3905	
==>module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2530	2639	
==>ub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextTo <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3854	3963	
==>module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2530	2639	
==>ub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextTo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2530	2639	
==>ub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextTo <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	2568	2671	
==>method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2568	2671	
==>method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
m <==
7	/Users/nnunley/pugs/misc/S29_round.pl	4951	5081	
==>e {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	return 0 if $x == 0;
	$x > 0 ?? 1 !! - <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4505	4633	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7154	7282	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4730	4854	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11179	11303	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4730	4854	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11179	11303	
==>return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7505	7692	
==>od($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7505	7692	
==>od($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7505	7692	
==>od($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        } <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6812	6912	
==>d, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5795	5890	
==>ate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5795	5890	
==>ate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { .. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5795	5890	
==>ate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { .. <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1603	1745	
==>racter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1603	1745	
==>racter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	40	137	
==>s;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	40	137	
==>s;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	40	137	
==>s;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1257	1351	
==>r version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<T <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1257	1351	
==>r version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<T <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11986	12094	
==>e>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	108	201	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	369	462	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	108	201	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	369	462	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	108	201	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	369	462	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25347	25450	
==>ve a
 * heuristic that disables the test if it usually matches.]
 *
 * [In fact, we now use regmust in m <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28176	28270	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29187	29281	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32728	32822	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33739	33833	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31838	31932	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32885	32979	
==>method has not yet been implemented.>

This method is a generic relational operator that return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	170	277	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	172	279	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	185	292	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	162	269	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	166	273	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($c <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	63	164	
==>ite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token cod <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	63	164	
==>ite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token cod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5655	5812	
==>nstantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5655	5812	
==>nstantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5655	5812	
==>nstantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribut <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9206	9310	
==>y) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normaliz <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9206	9310	
==>y) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normaliz <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	9763	9866	
==>y) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normaliz <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9763	9866	
==>y) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normaliz <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2577	2933	
==>m'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7625	7783	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5184	5342	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7625	7783	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5184	5342	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7625	7783	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5184	5342	
==>l = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	778	876	
==>erl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	778	876	
==>erl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	778	876	
==>erl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11651	11746	
==>r of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8798	8893	
==>r of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11651	11746	
==>r of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8798	8893	
==>r of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16574	16722	
==>')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = sh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12160	12268	
==>{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12160	12268	
==>{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12160	12268	
==>{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	203	308	
==>s;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	203	308	
==>s;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	203	308	
==>s;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4904	5062	
==>self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $op <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4904	5062	
==>self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $op <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3707	3853	
==>self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $op <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3707	3853	
==>self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $op <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	366	473	
==>g to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	366	473	
==>g to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	366	473	
==>g to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPI <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6142	6326	
==>t create subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from the target so we don't get a sill <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11537	11696	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3049	3208	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11537	11696	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3049	3208	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11537	11696	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3049	3208	
==>h; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        va <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	377	506	
==>ource };

    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30438	30549	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32152	32263	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30438	30549	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32152	32263	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30438	30549	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32152	32263	
==>.scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2675	2847	
==>> sub {
            return {
                passed      => _('$.passed'),
                description => _('$.description'),
            };
        },
        'report' => s <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11509	11637	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2503	2631	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7597	7725	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11509	11637	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2503	2631	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7597	7725	
==>lem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23640	23747	
==>aller is responsible for providing any value capture needed, in $body.
    '{ my $__flag;
       try { '.$bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7196	7301	
==>ckup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mang <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7196	7301	
==>ckup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mang <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7196	7301	
==>ckup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mang <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4350	4449	
==>_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4350	4449	
==>_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4350	4449	
==>_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7989	8127	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5548	5686	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7989	8127	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5548	5686	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7989	8127	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5548	5686	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1677	1815	
==>s $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess " <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10094	10230	
==>od clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.del <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10094	10230	
==>od clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.del <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18527	18627	
==>is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

= <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17563	17663	
==>is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18527	18627	
==>is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17563	17663	
==>is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

= <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27092	27189	
==>L		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #define RE_ <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	11270	11382	
==>e = $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$link <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6590	6684	
==>of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3944	4038	
==>of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6590	6684	
==>of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3944	4038	
==>of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10436	10524	
==>?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
EN <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11171	11259	
==>?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
EN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1831	1945	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3394	3508	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1831	1945	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3394	3508	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1831	1945	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3394	3508	
==>ions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a disp <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6476	6568	
==>ssed($type) and $type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13910	14073	
==>r($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4019	4158	
==>r($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtab <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4019	4158	
==>r($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtab <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4019	4158	
==>r($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtab <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1850	1940	
==>_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1850	1940	
==>_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1850	1940	
==>_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1993	2083	
==>2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1993	2083	
==>2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1993	2083	
==>2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless( <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3307	3464	
==>e. Usually either a Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	659	754	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1179	1274	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	659	754	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1179	1274	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	659	754	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1179	1274	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5723	5973	
==>($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5723	5973	
==>($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5723	5973	
==>($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} e <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12547	12690	
==>( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8821	8964	
==>( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9656	9799	
==>( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	199	326	
==>$self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $self <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20566	20663	
==>e)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Arr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17371	17464	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14596	14689	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17371	17464	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14596	14689	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17371	17464	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14596	14689	
==>d_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9004	9136	
==>t/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ex <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	738	870	
==>t/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ex <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9004	9136	
==>t/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ex <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9004	9136	
==>t/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ex <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	14794	14891	
==>eneric when we leave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f- <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10645	10739	
==>complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_ne <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10645	10739	
==>complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3319	3445	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6255	6381	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3319	3445	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6255	6381	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3319	3445	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6255	6381	
==>ng/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PAC <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	26466	26559	
==>harness attempt to compile the test using
C<perlcc> before running it.

B<NOTE> This currently <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32852	33017	
==>mp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSA <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32852	33017	
==>mp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSA <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32852	33017	
==>mp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSA <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34714	34812	
==>that has the
same heading as the invocant and whose body contains all of the tuples that
are in the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39264	39362	
==>that has the
same heading as the invocant and whose body contains all of the tuples that
are in the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38788	38886	
==>that has the
same heading as the invocant and whose body contains all of the tuples that
are in the <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	23825	23916	
==>e type pretty printer
{
	my $type = type::operator::arrow->new(
		type::variable::free->new, <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6366	6495	
==>file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	385	488	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	378	481	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	385	488	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	378	481	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	385	488	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	378	481	
==>recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11092	11226	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8645	8779	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11092	11226	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8645	8779	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11092	11226	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8645	8779	
==>make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iter <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12615	12713	
==>arget, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlis <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8943	9091	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11916	12064	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8943	9091	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11916	12064	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8943	9091	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11916	12064	
==>s
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3334	3431	
==>ls into values

=item *

Replacing all values which the runtime provides builtins for with the rep <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2717	2815	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5365	5463	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2717	2815	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5365	5463	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2717	2815	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5365	5463	
==>nitializes the instance attribute container type, in
    # perl 6 this should be done automatically <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	432	521	
==>TEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser::Diagnostics;
use Regexp::Parser::Obj <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5526	5636	
==>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5526	5636	
==>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5526	5636	
==>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10983	11080	
==>ontainer which stores data to be used or
displayed by your program.  It is analagous to a simplifi <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14146	14243	
==>ontainer which stores data to be used or
displayed by your program.  It is analagous to a simplifi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10983	11080	
==>ontainer which stores data to be used or
displayed by your program.  It is analagous to a simplifi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14146	14243	
==>ontainer which stores data to be used or
displayed by your program.  It is analagous to a simplifi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7917	8062	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5476	5621	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7917	8062	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5476	5621	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7917	8062	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5476	5621	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1605	1750	
==>st if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = und <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1567	1694	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3130	3257	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1567	1694	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3130	3257	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1567	1694	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3130	3257	
==>::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # c <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1751	1855	
==>';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { require <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13205	13300	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4375	4470	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8831	8926	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13205	13300	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4375	4470	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8831	8926	
==>tative for this whole file, which can be referenced as a unit by
documentation or 'use' statemen <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	2188	2282	
==>ode on.

=head2 Configuration variables.

These variables can be used to configure the behavior <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11195	11309	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12666	12780	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14672	14786	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16143	16257	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13980	14094	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15505	15619	
==>er;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sour <==
7	/Users/nnunley/pugs/examples/cookbook/test.pl	460	561	
==>gs $f.p6 > $file.out";
    if (compare("$file.out", "$dir/$file.expected")) {
        print "$dir/$fil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9979	10083	
==>---------------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10002	10106	
==>----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9979	10083	
==>---------------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10002	10106	
==>----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9979	10083	
==>---------------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10002	10106	
==>----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------- <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	30429	30523	
==>ry.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org/>.
You can also mail bugs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2241	2375	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4568	4702	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2241	2375	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4568	4702	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2241	2375	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4568	4702	
==>a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11163	11289	
==>har> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | < <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5007	5144	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5968	6105	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5007	5144	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5968	6105	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5007	5144	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5968	6105	
==>},
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$valu <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1950	2046	
==>uiv) : $node;
	}
}

{
	package Blondie::TypeSafe::Annotator;
	use base qw/Blondie::Reducer Blondi <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24684	24913	
==>ses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->new( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7408	7540	
==>rapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7408	7540	
==>rapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7408	7540	
==>rapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2372	2499	
==>e $<grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "us <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1176	1270	
==>ders.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_h <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1176	1270	
==>ders.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_h <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	90	187	
==>ore>;
use File::Copy      qw<copy>;
use File::Basename  qw<basename>;
use Term::ANSIColor qw<:cons <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32849	32941	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33304	33396	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35172	35264	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37399	37491	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37854	37946	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39722	39814	
==>$other!) returns Relation>

This multi-method is a generic binary relational operator that is <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3220	3325	
==>g);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3220	3325	
==>g);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3220	3325	
==>g);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4336	4436	
==>sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differenc <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3463	3563	
==>sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differenc <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4336	4436	
==>sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differenc <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3463	3563	
==>sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differenc <==
7	/Users/nnunley/pugs/misc/S29_round.pl	2154	2270	
==>}
    return $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the near <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4989	5093	
==>'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue' <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4989	5093	
==>'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue' <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1893	1997	
==>'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16129	16230	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16129	16230	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16129	16230	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6907	7064	
==>.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6907	7064	
==>.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6907	7064	
==>.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3848	3956	
==>, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normal <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3848	3956	
==>, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normal <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4380	4484	
==>, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normal <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4380	4484	
==>, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normal <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1078	1182	
==>Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1832	1936	
==>Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don' <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1078	1182	
==>Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don' <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1832	1936	
==>Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7701	7804	
==>nboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7701	7804	
==>nboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unbo <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7701	7804	
==>nboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unbo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1075	1188	
==>match (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1426	1537	
==>match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1033	1144	
==>match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1426	1537	
==>match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6914	7021	
==>_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6914	7021	
==>_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6914	7021	
==>_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx-> <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	818	992	
==>{ 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|para <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	818	992	
==>{ 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|para <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3121	3262	
==>"r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    rule $equal { " .
            emit_perl6_rule($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	579	689	
==>SA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	579	689	
==>SA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	579	689	
==>SA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	100	188	
==>ta.pm"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Module::In <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14778	14882	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12032	12136	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14778	14882	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12032	12136	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14778	14882	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12032	12136	
==>el, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confes <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10678	10767	
==>-> "\\v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p6_char_class(class <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25328	25531	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27523	27726	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25328	25531	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27523	27726	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25328	25531	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27523	27726	
==>);
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no war <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6076	6163	
==>type) . " for placeholder of " . Blondie::Emitter::Pretty->new->string(Blondie::TypeSafe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13267	13377	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10551	10661	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13267	13377	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10551	10661	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13267	13377	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10551	10661	
==>_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	316	425	
==>id)='';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '20 <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	3117	3239	
==>nsufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $ <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3117	3239	
==>nsufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $ <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3726	3839	
==>r $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF, <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3726	3839	
==>r $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	710	817	
==>= document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cause <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	710	817	
==>= document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cause <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	710	817	
==>= document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cause <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11600	11701	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11600	11701	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11600	11701	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    e <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18281	18373	
==>ange
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreov <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18281	18373	
==>ange
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreov <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13186	13277	
==>ange format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreov <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13186	13277	
==>ange format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreov <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11353	11476	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2865	2988	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11353	11476	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2865	2988	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11353	11476	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2865	2988	
==>roxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box( <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10339	10456	
==>target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto er <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5574	5690	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8544	8660	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8373	8489	
==>c_callback_sub);
    } else if(api == 14) {
      SV* expr_code;
      SV* expr_result;
/*      fprintf(stderr,"api 1 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5574	5690	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8544	8660	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5574	5690	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8544	8660	
==>optimze it and
        # return the exact same sub. This results in this
        # method being passed an already ble <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16476	16575	
==>r ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB pr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16476	16575	
==>r ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB pr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16476	16575	
==>r ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7647	7737	
==>gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1875	1965	
==>gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9281	9371	
==>gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2093	2183	
==>gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6224	6321	
==>) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5354	5451	
==>) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6224	6321	
==>) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5354	5451	
==>) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16953	17040	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16953	17040	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16953	17040	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_at <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2422	2563	
==>x';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'post <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12549	12645	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10100	10196	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12549	12645	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10100	10196	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12549	12645	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10100	10196	
==>ue_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	855	991	
==>{
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	855	991	
==>{
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	855	991	
==>{
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5288	5384	
==>pecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead link <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5288	5384	
==>pecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead link <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5288	5384	
==>pecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead link <==
7	/Users/nnunley/pugs/util/package-osx.pl	98	194	
==>ge-osx.pl [pugs|parrot|pugs-parrot] target_base_dir
        Run after make install'ing pugs and p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1172	1286	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1172	1286	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1172	1286	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instanc <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3479	3580	
==>pan1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0. <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3479	3580	
==>pan1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0. <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2000	2096	
==>s, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression o <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2000	2096	
==>s, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression o <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11683	11802	
==>d("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 0 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11683	11802	
==>d("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 0 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5478	5579	
==>it " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5478	5579	
==>it " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6135	6224	
==>inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } el <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6135	6224	
==>inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } el <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6135	6224	
==>inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } el <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11394	11519	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2906	3031	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11394	11519	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2906	3031	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11394	11519	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2906	3031	
==>tion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23137	23237	
==>nBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Identifier>? <'( <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1397	1511	
==>:PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1397	1511	
==>:PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16260	16365	
==>> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue( <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16260	16365	
==>> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3239	3341	
==>2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3239	3341	
==>2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3239	3341	
==>2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9495	9604	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7042	7151	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5178	5287	
==>_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequence {
    \\ <[xX]>
      [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9495	9604	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7042	7151	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9495	9604	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7042	7151	
==>escendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asce <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3548	3700	
==>unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4476	4625	
==>unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3437	3586	
==>unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4476	4625	
==>unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3246	3360	
==>+= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3246	3360	
==>+= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3246	3360	
==>+= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2895	3037	
==>re running under?
    if( $perl eq $^X ) {
        ### just load the config        
        require Config;
        $perl_version = $Config::Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24806	24931	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26995	27120	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24806	24931	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26995	27120	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24806	24931	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26995	27120	
==>s;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinit <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12747	12868	
==>_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	230	340	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	554	664	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	230	340	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	554	664	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	230	340	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	554	664	
==>de a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18441	18556	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15679	15794	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18441	18556	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15679	15794	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18441	18556	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15679	15794	
==>nstance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_at <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5308	5422	
==>c pos
  term_bx1:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $ <==
7	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	148	249	
==>Maker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs() <==
7	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	148	249	
==>Maker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs() <==
7	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2118	2218	
==>ETHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=hea <==
7	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2118	2218	
==>ETHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=hea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7179	7272	
==>object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8174	8267	
==>object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10743	10836	
==>object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1369	1495	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2932	3058	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1369	1495	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2932	3058	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1369	1495	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2932	3058	
==>in global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # th <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5410	5511	
==>)?1:0),@_) if $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return new_box('Num',@ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18216	18332	
==>p->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "confess" : "cr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7867	7981	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10790	10904	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7867	7981	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10790	10904	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7867	7981	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10790	10904	
==>n.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
7	/Users/nnunley/pugs/util/func_refact.pl	1263	1382	
==>set);
	#while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2684	2797	
==>$verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2684	2797	
==>$verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2684	2797	
==>$verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @c <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	449	559	
==>e server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1 <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	449	559	
==>e server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1 <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	17	119	
==>package Blondie;

use strict;
use warnings;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie - Blondi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11526	11675	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3038	3187	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11526	11675	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3038	3187	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11526	11675	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3038	3187	
==>< arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1012	1126	
==>self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9421	9528	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12394	12501	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9421	9528	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12394	12501	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9421	9528	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12394	12501	
==>d;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	24894	24998	
==>t, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported by Test: <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	369	522	
==>)
    returns Num { ... }

multi sub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4745	4861	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7394	7510	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4962	5075	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11411	11524	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4962	5075	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11411	11524	
==>r( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6109	6215	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9079	9185	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6109	6215	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9079	9185	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6109	6215	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9079	9185	
==>hod stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::Stu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	699	800	
==>ij.org/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
sub new ($) {
    my ($table) = <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	22877	23001	
==>=> val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15844	15966	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13094	13216	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15844	15966	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13094	13216	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15844	15966	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13094	13216	
==>nts : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $tab <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4717	4830	
==>$self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4717	4830	
==>$self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4717	4830	
==>$self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12433	12534	
==>rom_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12433	12534	
==>rom_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12433	12534	
==>rom_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7145	7245	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6275	6375	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2929	3029	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2929	3029	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7145	7245	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6275	6375	
==>ember, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded op <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25782	25876	
==>ract with the outside
environment at all.

A Relation::Example object has 2 main attributes (im <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1293	1400	
==>f to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::In <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1293	1400	
==>f to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::In <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1336	1438	
==>n perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arra <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1336	1438	
==>n perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arra <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1336	1438	
==>n perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arra <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20411	20506	
==>ized including the
'_' to '-' translation.  There are some application where this is not
appropr <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20411	20506	
==>ized including the
'_' to '-' translation.  There are some application where this is not
appropr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14417	14588	
==>t ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be a <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14417	14588	
==>t ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be a <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14417	14588	
==>t ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8169	8312	
==>push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substrin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8169	8312	
==>push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substrin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8169	8312	
==>push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substrin <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1934	2050	
==>g.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_win32} = ( $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14934	15042	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12188	12296	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14934	15042	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12188	12296	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14934	15042	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12188	12296	
==>ibute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	686	810	
==>) {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	686	810	
==>) {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	686	810	
==>) {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3027	3133	
==>) {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3027	3133	
==>) {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3027	3133	
==>) {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undef <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5703	5801	
==>Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Grammar::Term.angle_q <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1764	1916	
==>6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2316	2417	
==>INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2316	2417	
==>INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2316	2417	
==>INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6449	6567	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9419	9537	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6449	6567	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9419	9537	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6449	6567	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9419	9537	
==>thod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	89	188	
==>ere will be more than one.

Design goals:
 1 Correctness - mirror the spec.
 2 Interoperation - allo <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7013	7146	
==>if ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reve <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7477	7610	
==>if ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reve <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9901	10033	
==>if ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reve <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1686	1810	
==>if ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reve <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3612	3707	
==>warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3612	3707	
==>warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3612	3707	
==>warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3068	3175	
==>true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3068	3175	
==>true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3068	3175	
==>true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arra <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1756	1855	
==>elf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# O <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1756	1855	
==>elf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# O <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1756	1855	
==>elf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# O <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26454	26550	
==>subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns nil 
    (($self: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1057	1182	
==>ence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13276	13391	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18159	18274	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13276	13391	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18159	18274	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13276	13391	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18159	18274	
==>is mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	655	747	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1175	1267	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	655	747	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1175	1267	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	655	747	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1175	1267	
==>PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1829	1972	
==>->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool)
        ));
        $obj->in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5394	5512	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8364	8482	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5394	5512	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8364	8482	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5394	5512	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8364	8482	
==>tion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opco <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11100	11236	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8653	8789	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11100	11236	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8653	8789	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11100	11236	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8653	8789	
==>patcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2813	2923	
==>} @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6596	6731	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9566	9701	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6596	6731	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9566	9701	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6596	6731	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9566	9701	
==>|| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub :: <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21884	21993	
==>o end
    cname = self["cname"]
    isarray = pad["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cnam <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2169	2345	
==>e> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2416	2592	
==>e> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule captu <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6767	6905	
==>self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required = <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12852	12985	
==>self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2274	2396	
==>!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2274	2396	
==>!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2274	2396	
==>!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12248	12372	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3870	3994	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12248	12372	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3870	3994	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12248	12372	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3870	3994	
==>b { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5521	5633	
==>y_bindir;

        ### load in the alternatives collection
        my @alts = @{ $self->registered_alternatives } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3909	4080	
==>scription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3909	4080	
==>scription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3909	4080	
==>scription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($c <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1021	1135	
==>it at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    m <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1895	2009	
==>it at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    m <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1021	1135	
==>it at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    m <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1895	2009	
==>it at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4566	4705	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7078	7217	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4566	4705	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7078	7217	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4566	4705	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7078	7217	
==>here is no real distinction between the
                    # private class method or the private instance 
                    # method, ma <==
7	/Users/nnunley/pugs/util/version_h.pl	1981	2085	
==>reopened...", because
  # our handle for $version_h got slot #0, like STDIN.
  no warnings "io";
  open O <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17215	17313	
==>erl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17215	17313	
==>erl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17215	17313	
==>erl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6114	6209	
==>d_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # has <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	28556	28651	
==>c/devel/Test-Harness
  $ perl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose= <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6114	6209	
==>d_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # has <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6114	6209	
==>d_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # has <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12145	12292	
==>md )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # .. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12139	12286	
==>md )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # .. <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5917	6060	
==>->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5929	6072	
==>->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2058	2160	
==>Y FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arra <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2058	2160	
==>Y FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arra <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2058	2160	
==>Y FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arra <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13134	13265	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13134	13265	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13134	13265	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5374	5505	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3874	4005	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2019	2150	
==>t end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off i <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36074	36173	
==>(?=)>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if lo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10240	10356	
==>se)
    from  - string pointer for start of this match
    to    - string pointer for next match (end+1)
    match <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17366	17475	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22074	22183	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17366	17475	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22074	22183	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17366	17475	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22074	22183	
==>RUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9481	9582	
==>e>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSeque <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21295	21414	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22416	22535	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22979	23098	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17716	17835	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18837	18956	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19400	19519	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2 <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	17026	17128	
==>urns it
# x stays free, and thus becomes generic (id is polymorphic)
my $id = fun(
	param => "x",
	body <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2132	2254	
==>h.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).u <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2132	2254	
==>h.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).u <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2132	2254	
==>h.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).u <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12276	12379	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6843	6946	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12276	12379	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6843	6946	
==>'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3344	3455	
==>ck} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6430	6534	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9400	9504	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6430	6534	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9400	9504	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6430	6534	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9400	9504	
==>sed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4548	4674	
==>art bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_o <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5207	5333	
==>art bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_o <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4548	4674	
==>art bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_o <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5207	5333	
==>art bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7711	7823	
==>ch really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retur <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7711	7823	
==>ch really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retur <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7711	7823	
==>ch really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8204	8320	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5763	5879	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8204	8320	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5763	5879	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8204	8320	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5763	5879	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1892	2008	
==>now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8778	8946	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6331	6499	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8778	8946	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6331	6499	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8778	8946	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6331	6499	
==>, # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    r <==
7	/Users/nnunley/pugs/util/build_pugs.pl	1909	2001	
==>{ system($setup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$opts->{SE <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6136	6292	
==>ethod map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @r <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6136	6292	
==>ethod map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	176	275	
==>e to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	176	275	
==>e to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	176	275	
==>e to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40779	40872	
==>reciate being informed any time you create a
modified version of Locale::KeyedText that you ar <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40779	40872	
==>reciate being informed any time you create a
modified version of Locale::KeyedText that you ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9401	9505	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12374	12478	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9401	9505	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12374	12478	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9401	9505	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12374	12478	
==>kage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::F <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6054	6149	
==>method Array::as_seq (@array:) returns List {
    *@array
}
# name from docs/notes/piln_object_r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2976	3100	
==>->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2976	3100	
==>->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2976	3100	
==>->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5759	5874	
==>->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5759	5874	
==>->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5759	5874	
==>->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24223	24332	
==>Alpha>
    | <DecimalDigit>
    | <uriMark>
}
rule uriEscaped {  # see 15.1.3
      <'%'> <HexDigit> <HexDigit <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	958	1077	
==>ll_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	967	1086	
==>ll_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$p <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	14354	14463	
==>se to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.n <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14354	14463	
==>se to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5842	5947	
==>level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5842	5947	
==>level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5842	5947	
==>level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the t <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12186	12303	
==>$arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6753	6870	
==>$arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12186	12303	
==>$arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6753	6870	
==>$arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	744	845	
==>> "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't y <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	744	845	
==>> "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't y <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	744	845	
==>> "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't y <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1083	1187	
==>new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(% <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1083	1187	
==>new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(% <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1083	1187	
==>new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(% <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1321	1419	
==>TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
ou <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1321	1419	
==>TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
ou <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1321	1419	
==>TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
ou <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	29899	29993	
==>rimentally implemented)

Straps->analyze_file() not taint clean, don't know if it can be

Fix t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6841	6960	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9811	9930	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6841	6960	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9811	9930	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6841	6960	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9811	9930	
==>sa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bo <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	944	1045	
==>ts

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo/exe/syn
    --no_des <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16516	16631	
==>[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16516	16631	
==>[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16516	16631	
==>[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1757	1866	
==>g: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1757	1866	
==>g: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1757	1866	
==>g: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wit <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8397	8493	
==>ator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$token{name};
  goto (pop @bsr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7856	7972	
==>var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7856	7972	
==>var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7856	7972	
==>var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4951	5067	
==>ght->fetch($i)->name->to_native . ' => ' . $right->fetch($i)->type->to_native;                    
        return bit <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6379	6494	
==>var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6379	6494	
==>var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6379	6494	
==>var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7956	8060	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10879	10983	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7956	8060	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10879	10983	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7956	8060	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10879	10983	
==>essed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq ' <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	74	169	
==>r';

use JIB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Binary;
u <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13568	13774	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13847	14053	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4837	4985	
==>$1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4849	4997	
==>$1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4599	4741	
==>m:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } ) <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7322	7420	
==>iphers and returns any pending data.  Block 
ciphers should buffer input data until they have an en <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7322	7420	
==>iphers and returns any pending data.  Block 
ciphers should buffer input data until they have an en <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10666	10790	
==>turn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10660	10784	
==>turn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16496	16588	
==>ntegrated database functionality;
this language, which satisfies TTM's definition of a "D" la <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17651	17743	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16496	16588	
==>ntegrated database functionality;
this language, which satisfies TTM's definition of a "D" la <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17651	17743	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17651	17743	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	329	443	
==>ary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1884	1991	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3447	3554	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1884	1991	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3447	3554	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1884	1991	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3447	3554	
==>lled 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful : <==
7	/Users/nnunley/pugs/examples/hop6/Stream.pm	883	1011	
==>$n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Cha <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3121	3238	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11044	11161	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6246	6363	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3121	3238	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11044	11161	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6246	6363	
==>al.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11863	11989	
==>is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11863	11989	
==>is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11863	11989	
==>is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priva <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24967	25063	
==>t simply
send all commands immediately to the server, but creates a queue, which is then
slowly s <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23731	23827	
==>t simply
send all commands immediately to the server, but creates a queue, which is then
slowly s <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24967	25063	
==>t simply
send all commands immediately to the server, but creates a queue, which is then
slowly s <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23731	23827	
==>t simply
send all commands immediately to the server, but creates a queue, which is then
slowly s <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23112	23208	
==>"+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
chan <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21921	22017	
==>"+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
chan <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3041	3137	
==>$Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with dia <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23112	23208	
==>"+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21921	22017	
==>"+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
chan <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3041	3137	
==>$Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with dia <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3121	3217	
==>$Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with dia <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4233	4349	
==>map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as fa <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4233	4349	
==>map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as fa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40345	40454	
==>@{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40345	40454	
==>@{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40345	40454	
==>@{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    u <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33200	33292	
==>elation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37750	37842	
==>elation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	944	1082	
==>= $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    e <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4183	4321	
==>= $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	944	1082	
==>= $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4183	4321	
==>= $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10278	10398	
==>skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reas <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2311	2419	
==>skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reas <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2311	2419	
==>skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reas <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2260	2360	
==>kage Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7298	7397	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7298	7397	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7298	7397	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6832	6930	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6832	6930	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6832	6930	
==>d = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4039	4149	
==>t}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optiona <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4039	4149	
==>t}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optiona <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4039	4149	
==>t}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optiona <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10695	10797	
==>o_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10695	10797	
==>o_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10695	10797	
==>o_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9327	9426	
==>ser->captures();

If you want to access a specific capture group, pass its numerical
value:

  my $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13315	13440	
==>if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $le <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13315	13440	
==>if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $le <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13315	13440	
==>if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $le <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2200	2325	
==>if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $le <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3336	3451	
==>ASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3336	3451	
==>ASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3336	3451	
==>ASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24740	24884	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26929	27073	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24740	24884	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26929	27073	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24740	24884	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26929	27073	
==>d} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 1 <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15599	15692	
==>ShiftExpression>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpres <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4211	4316	
==>?)\{ <code> \}\> }
rule code_assertion         { \<(!?)\( <code> \)\> }
rule code { [ <-[\{\}]> | \{ <code <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6817	6918	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5947	6048	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2601	2702	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2601	2702	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6817	6918	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5947	6048	
==>Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $on <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7178	7312	
==>stance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7178	7312	
==>stance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7178	7312	
==>stance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4266	4380	
==>Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4266	4380	
==>Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4266	4380	
==>Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5050	5144	
==>lf = shift;
	$self->{param}->free_vars;
}


package type::operator::arrow;
use base qw/type::op <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4418	4525	
==>.}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MUL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4418	4525	
==>.}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MUL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4418	4525	
==>.}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MUL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1250	1352	
==>S,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1250	1352	
==>S,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1250	1352	
==>S,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_m <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6583	6687	
==>vious () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_ <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6583	6687	
==>vious () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3242	3343	
==>"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(.. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3242	3343	
==>"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(.. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3242	3343	
==>"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(.. <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	89	184	
==>zi
#  This code is totally free, use it as you want
# ------------------------------------------ <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	89	184	
==>zi
#  This code is totally free, use it as you want
# ------------------------------------------ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18097	18221	
==>ts to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17135	17259	
==>ts to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18097	18221	
==>ts to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17135	17259	
==>ts to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7660	7759	
==>ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7660	7759	
==>ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7660	7759	
==>ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]-> <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	360	481	
==>argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	851	972	
==>argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	360	481	
==>argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	851	972	
==>argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1816	1932	
==>can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1816	1932	
==>can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1816	1932	
==>can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13966	14127	
==>$string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4067	4204	
==>$string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4067	4204	
==>$string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4067	4204	
==>$string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8138	8255	
==>leton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Bu <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	355	462	
==>leton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Bu <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	355	462	
==>leton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Bu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	655	782	
==>6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	655	782	
==>6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	655	782	
==>6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8094	8194	
==>dy changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has jo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8094	8194	
==>dy changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has jo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8386	8484	
==>dy changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has jo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8386	8484	
==>dy changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has jo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13246	13381	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14981	15116	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13246	13381	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14981	15116	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13246	13381	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14981	15116	
==>return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	27419	27515	
==>processes when defined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to behave as <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24641	24751	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26830	26940	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24641	24751	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26830	26940	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24641	24751	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26830	26940	
==>ram{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	591	692	
==>ls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    return $o;
}
sub init <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16353	16510	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21070	21227	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16353	16510	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21070	21227	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16353	16510	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21070	21227	
==>turn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *mi <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	17485	17642	
==>{
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $le <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1229	1353	
==>s) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->co <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17335	17448	
==>$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11950	12062	
==>$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11950	12062	
==>$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11950	12062	
==>$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	865	970	
==>s used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes o <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	865	970	
==>s used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes o <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12689	12812	
==>atements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12968	13091	
==>atements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6976	7087	
==>> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incre <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6976	7087	
==>> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incre <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6976	7087	
==>> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incre <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	532	642	
==>alues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# remo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	532	642	
==>alues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# remo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32919	33012	
==>tional operator that is like
C<union> except that the returned Relation contains only tuples t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33374	33467	
==>tional operator that is like
C<union> except that the returned Relation contains only tuples t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37469	37562	
==>tional operator that is like
C<union> except that the returned Relation contains only tuples t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37924	38017	
==>tional operator that is like
C<union> except that the returned Relation contains only tuples t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1815	1906	
==>to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1815	1906	
==>to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1815	1906	
==>to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7806	7902	
==>ze PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7806	7902	
==>ze PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7806	7902	
==>ze PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack" <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2834	2927	
==>et2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4703	4796	
==>et2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2834	2927	
==>et2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4703	4796	
==>et2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4379	4509	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6891	7021	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4379	4509	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6891	7021	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4379	4509	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6891	7021	
==>oreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just <==
7	/Users/nnunley/pugs/util/config_h.pl	701	805	
==>\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12898	13042	
==>exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) . ']';
    }
    
    return _not_implemen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	929	1044	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1017	1132	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	929	1044	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1017	1132	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	929	1044	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1017	1132	
==>{  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13335	13451	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18218	18334	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13335	13451	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18218	18334	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13335	13451	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18218	18334	
==>ext
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30532	30675	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32246	32389	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30532	30675	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32246	32389	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30532	30675	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32246	32389	
==>VERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = spl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1855	1983	
==>put .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        f <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7038	7194	
==>ry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7502	7658	
==>ry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9926	10081	
==>ry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1711	1854	
==>ry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4314	4452	
==>elf->{todo}{$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $t <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2708	2808	
==>s (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_u <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2708	2808	
==>s (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23026	23133	
==>$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23026	23133	
==>$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23026	23133	
==>$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1 <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7487	7583	
==>ns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6617	6713	
==>ns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7487	7583	
==>ns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6617	6713	
==>ns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	1296	1401	
==>ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_en <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1296	1401	
==>ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_en <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2687	2782	
==>ess) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conf <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2687	2782	
==>ess) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conf <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1964	2054	
==>ew('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1964	2054	
==>ew('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1964	2054	
==>ew('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5000	5150	
==>[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5000	5150	
==>[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5000	5150	
==>[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4689	4788	
==>ay_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll like <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4689	4788	
==>ay_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll like <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4689	4788	
==>ay_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll like <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20537	20633	
==>er_for_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2072	2250	
==>om = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2072	2250	
==>om = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2072	2250	
==>om = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5927	6023	
==>nfix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5057	5153	
==>nfix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5927	6023	
==>nfix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5057	5153	
==>nfix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	471	608	
==>'=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub CookiesHeader() {
    my $header = '';
    for(%Cookies.keys) {
        $he <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7881	7989	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10804	10912	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7881	7989	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10804	10912	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7881	7989	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10804	10912	
==>ake_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Pe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11652	11769	
==>'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2135	2250	
==>'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8907	9022	
==>'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2135	2250	
==>'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8907	9022	
==>'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7971	8064	
==>ys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normali <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7971	8064	
==>ys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normali <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3552	3696	
==>slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3552	3696	
==>slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3552	3696	
==>slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar. <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2118	2221	
==>us: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2118	2221	
==>us: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20574	20668	
==>tE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly acces <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20574	20668	
==>tE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly acces <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	11525	11678	
==>ood}++;
        }
        else {
            # List unrun tests as failures.
            if ($test{'next'} <= $test{max}) {
                push @{$test{f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1014	1121	
==>ed copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we di <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1014	1121	
==>ed copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we di <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1014	1121	
==>ed copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5324	5423	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSIT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5324	5423	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSIT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5324	5423	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSIT <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4660	4791	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7309	7440	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4881	5007	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11330	11456	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4881	5007	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11330	11456	
==>h2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{ta <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18916	19001	
==>ssion> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :word <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19607	19744	
==>up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1319	1432	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2882	2995	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1319	1432	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2882	2995	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1319	1432	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2882	2995	
==>et of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # spa <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1898	1993	
==>$type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new(
				type => $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4651	4771	
==>(@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13076	13196	
==>(@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15687	15807	
==>(@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17175	17295	
==>(@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21858	21978	
==>(@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3676	3774	
==>span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3676	3774	
==>span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20149	20272	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17288	17411	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20149	20272	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17288	17411	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20149	20272	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17288	17411	
==>$self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code he <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	1143	1251	
==>ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have trouble with a full l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13450	13555	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10734	10839	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13450	13555	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10734	10839	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13450	13555	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10734	10839	
==>ms->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsi <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7012	7114	
==>S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $self->add_handler(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2125	2228	
==>NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variabl <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2125	2228	
==>NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variabl <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2472	2575	
==>NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variabl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	146	282	
==>=> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    f <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	188	324	
==>=> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    f <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	146	282	
==>=> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    f <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	188	324	
==>=> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    f <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	410	518	
==>eric_reduce {
		my $self = shift;
		my $node = shift;

		my $struct = $node->struct_equiv;
		my $orig = $node <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18593	18686	
==>e I<not>
necessarily the names you specified in the constructor. For example,
this module auto <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18593	18686	
==>e I<not>
necessarily the names you specified in the constructor. For example,
this module auto <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4312	4420	
==>*      Safefree(r->subbeg);*/ /* fails split.t with newstr==1*/
      r->sublen = strend-strbeg;
      r->sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19574	19670	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16806	16902	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19574	19670	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16806	16902	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19574	19670	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16806	16902	
==>l =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	5969	6084	
==>idual tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of individual t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19321	19432	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4801	4912	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19321	19432	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4801	4912	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19321	19432	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4801	4912	
==>('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5357	5469	
==>well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' => {
        're <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4391	4521	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6903	7033	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4391	4521	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6903	7033	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4391	4521	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6903	7033	
==>ethod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priva <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	124	250	
==>like:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    _ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	851	956	
==>ode $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	851	956	
==>ode $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	851	956	
==>ode $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a } <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4195	4299	
==>}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_up <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5092	5196	
==>}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_up <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4195	4299	
==>}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_up <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5092	5196	
==>}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_up <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10005	10125	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7556	7676	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10005	10125	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7556	7676	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10005	10125	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7556	7676	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if ( <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2250	2351	
==>me) { "rule $name :words" },
#     rather than having the clutter of lots of explicit :words modifiers <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13218	13349	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14953	15084	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13218	13349	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14953	15084	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13218	13349	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14953	15084	
==>$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	11533	11648	
==>lement->new('pre')->push_content($text));
      
      my $link = {};
      $link->{linkfile} = $linkfile;
      $li <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	499	696	
==>l = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24953	25143	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27142	27332	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24953	25143	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27142	27332	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24953	25143	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27142	27332	
==>samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'nu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24370	24548	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ru <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25633	25811	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24649	24827	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25912	26090	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9228	9367	
==>\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_statement_rule( <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8566	8675	
==>infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8566	8675	
==>infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9824	9932	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7373	7481	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9824	9932	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7373	7481	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9824	9932	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7373	7481	
==>(undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}) <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	1854	1953	
==>s built from top level.
    delete $args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4017	4127	
==>:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4017	4127	
==>:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4017	4127	
==>:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick ( <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35008	35106	
==>xisting Translator object, you must create a new
object that is a clone of the first but for the ch <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35008	35106	
==>xisting Translator object, you must create a new
object that is a clone of the first but for the ch <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3898	3996	
==>@_;

    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5258	5355	
==>@_;
    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32855	32949	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is like
C< <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33310	33404	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is like
C< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6497	6591	
==>nd exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_j <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37405	37499	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is like
C< <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37860	37954	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is like
C< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6497	6591	
==>nd exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6497	6591	
==>nd exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_j <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8332	8475	
==>$a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8332	8475	
==>$a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8332	8475	
==>$a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4115	4238	
==>down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1227	1325	
==>dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1227	1325	
==>dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ne <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1227	1325	
==>dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11542	11700	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3054	3212	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11542	11700	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3054	3212	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11542	11700	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3054	3212	
==>+) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var ar <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	23722	23873	
==>failed[-1]) { # don't forget the last one
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    push @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4363	4471	
==>elf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Ro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4363	4471	
==>elf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Ro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4363	4471	
==>elf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Ro <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8318	8420	
==>s;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8318	8420	
==>s;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14065	14161	
==>back routine has case as suggested by HTTP spec, and the headers
will be visited in the recommend <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14065	14161	
==>back routine has case as suggested by HTTP spec, and the headers
will be visited in the recommend <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7881	8025	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5440	5584	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7881	8025	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5440	5584	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7881	8025	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5440	5584	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1569	1713	
==>st'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1009	1120	
==>rn
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= length \$&; 1 }
$_[ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14889	15009	
==>h of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19057	19177	
==>h of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2848	2961	
==>, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $se <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2848	2961	
==>, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2823	2916	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2823	2916	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2823	2916	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	511	635	
==>b infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  els <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	511	635	
==>b infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  els <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	511	635	
==>b infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  els <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11314	11417	
==>in::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@ <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3520	3623	
==>d   { \< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rule word <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11314	11417	
==>in::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11314	11417	
==>in::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@ <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	310	412	
==>nstructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	855	957	
==>nstructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() i <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	310	412	
==>nstructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	855	957	
==>nstructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	855	957	
==>nstructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() i <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15584	15678	
==>rmation details, or their technical
skills.  For example, a native French or Chinese speaker of <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15584	15678	
==>rmation details, or their technical
skills.  For example, a native French or Chinese speaker of <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3557	3675	
==>open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be le <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3557	3675	
==>open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be le <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4721	4837	
==>w();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $sp <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4721	4837	
==>w();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $sp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2407	2505	
==>self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sco <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2407	2505	
==>self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sco <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2407	2505	
==>self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sco <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1393	1491	
==>{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5921	6019	
==>{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4208	4304	
==>{
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4732	4828	
==>{
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4313	4407	
==>_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contigu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4313	4407	
==>_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contigu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4313	4407	
==>_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contigu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4503	4643	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7015	7155	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4503	4643	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7015	7155	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4503	4643	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7015	7155	
==>we just add a private method in here...
                    # there is no real distinction between the
                    # private class me <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11676	11789	
==>b { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7671	7845	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5230	5404	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7671	7845	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5230	5404	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7671	7845	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5230	5404	
==>_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we fi <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	26014	26112	
==>.  This allows
the tests to determine if they are being executed through the harness
or by any othe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18778	18915	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16016	16153	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18778	18915	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16016	16153	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18778	18915	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16016	16153	
==>m the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # X <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21202	21296	
==><'for'> <'('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1100	1211	
==>ugh we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> does longest ma <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1451	1560	
==>ugh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest ma <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1058	1167	
==>ugh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest ma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1451	1560	
==>ugh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4503	4607	
==>b { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4503	4607	
==>b { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4503	4607	
==>b { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbox <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	501	622	
==>ndef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	501	622	
==>ndef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	501	622	
==>ndef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL <==
7	/Users/nnunley/pugs/util/build_pugs.pl	548	643	
==>les in a second pass.

Primary configuration settings are read from the file `config.yml` in
the <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	46	137	
==>e::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core:: <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	43	134	
==>e::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core:: <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	43	134	
==>e::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core:: <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11133	11230	
==>xt.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change the <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11133	11230	
==>xt.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change the <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21493	21588	
==>but another package or program which uses yours may wish to
override some of your messages, show <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21493	21588	
==>but another package or program which uses yours may wish to
override some of your messages, show <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18349	18442	
==>xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18349	18442	
==>xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18349	18442	
==>xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17810	17946	
==>lice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17810	17946	
==>lice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17810	17946	
==>lice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->i <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	112	203	
==>Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	116	207	
==>Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	110	201	
==>Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	110	201	
==>Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4796	4910	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7445	7559	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5012	5123	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11461	11572	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5012	5123	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11461	11572	
==>);
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	6003	6105	
==>? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to install '$archive' into ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5097	5276	
==>match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4939	5109	
==>match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	7181	7316	
==>_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7181	7316	
==>_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4299	4396	
==>d
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This para <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4299	4396	
==>d
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This para <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6496	6593	
==>d
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	446	557	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	444	555	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	446	557	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	444	555	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	446	557	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	444	555	
==>ue ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::creat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34266	34362	
==>upport this with the '&'
metacharacter.

We have added a handler for the '&' metacharacter, but n <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28619	28716	
==>ass's ender is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of this o <==
7	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	958	1123	
==>/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class <==
7	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	958	1123	
==>/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	729	836	
==>_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $hea <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	729	836	
==>_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $hea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4782	4879	
==>().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protecti <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4782	4879	
==>().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protecti <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4782	4879	
==>().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protecti <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25063	25216	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27252	27405	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25063	25216	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27252	27405	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25063	25216	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27252	27405	
==>$tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->el <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12846	12960	
==>f"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2332	2454	
==>ken>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n" .
            "us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	89	200	
==>y) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	89	200	
==>y) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	89	200	
==>y) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed be <==
7	/Users/nnunley/pugs/util/grokprims.pl	2071	2181	
==>e {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td>$o <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20642	20739	
==>ow up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1 <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20642	20739	
==>ow up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15731	15876	
==>ultimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15731	15876	
==>ultimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15731	15876	
==>ultimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20452	20593	
==>ultimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20452	20593	
==>ultimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20452	20593	
==>ultimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should s <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	412	513	
==>alue => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->new(( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3983	4082	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2 <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3983	4082	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2 <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6962	7060	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2 <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9032	9130	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2 <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6962	7060	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2 <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9032	9130	
==>n
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2 <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2555	2651	
==>each node type a function named for its class (without the prefix) is
exported. This is very conv <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	17135	17248	
==>her than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20612	20725	
==>her than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20190	20303	
==>her than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!he <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3987	4093	
==>l'))
        || confess "You must store a symbol type in a param list";
    $self->SUPER::store($index, $va <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4090	4269	
==>preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8445	8563	
==>f captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtra <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	603	721	
==>f captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtra <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	873	989	
==>f captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtra <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8162	8278	
==>f captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtra <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	577	693	
==>f captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtra <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	873	989	
==>f captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtra <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	488	596	
==>tive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	488	596	
==>tive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	488	596	
==>tive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1886	1984	
==>>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  packa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1886	1984	
==>>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  packa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1886	1984	
==>>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  packa <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11497	11595	
==>KeyExtractor

A closure with arity of 1, which returns the "key" by which to sort. If
the closure r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1467	1578	
==>Num;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Consta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1467	1578	
==>Num;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Consta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1467	1578	
==>Num;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Consta <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	8694	8801	
==>in("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re, <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24721	24817	
==>loop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mos <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23485	23581	
==>loop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mos <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24721	24817	
==>loop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mos <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23485	23581	
==>loop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mos <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15222	15317	
==>orously defined, such that there
should be no ambiguity when trying to invoke or implement it, a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15222	15317	
==>orously defined, such that there
should be no ambiguity when trying to invoke or implement it, a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1525	1631	
==>);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        del <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1525	1631	
==>);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        del <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1525	1631	
==>);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	138	235	
==>e qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	142	239	
==>e qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	136	233	
==>e qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	136	233	
==>e qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13112	13240	
==>ith the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13112	13240	
==>ith the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13112	13240	
==>ith the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defin <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	553	670	
==>ues}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = shift;
        return $self;
    };
}

foreac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1187	1284	
==>self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1187	1284	
==>self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1187	1284	
==>self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18827	18957	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16065	16195	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18827	18957	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16065	16195	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18827	18957	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16065	16195	
==>ue_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the :: <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1965	2069	
==>essed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit->new(exists $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16388	16529	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21105	21246	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16388	16529	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21105	21246	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16388	16529	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21105	21246	
==>wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50164	50296	
==>($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:authority'), $e->get <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4247	4380	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7183	7316	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4247	4380	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7183	7316	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4247	4380	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7183	7316	
==>thod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $? <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39659	39747	
==>C<product (Relation::Example *@others) returns Relation::Example>

This multi-method is t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13386	13492	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10670	10776	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13386	13492	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10670	10776	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13386	13492	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10670	10776	
==>e_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::o <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1702	1799	
==>recursive rules, you should
#  create a new grammar, inherit from this one, and redefine just thos <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10139	10259	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12780	12900	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13616	13736	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16257	16377	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12897	13017	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15619	15739	
==>rce.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22752	22859	
==>sigspace" goto words
    if mname == ":ignorecase" goto ignorecase
    goto setpad
  words:
    mname = ":s" <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3594	3742	
==>get_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_value <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1842	1949	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3405	3512	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1842	1949	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3405	3512	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1842	1949	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3405	3512	
==>which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatch <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1021	1170	
==>thod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^n <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1021	1170	
==>thod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^n <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	3515	3627	
==>s ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6992	7104	
==>s ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5949	6061	
==>s ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " rel <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3958	4065	
==>) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_n <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3958	4065	
==>) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	329	459	
==>nt "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	329	459	
==>nt "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	329	459	
==>nt "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_ <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10224	10334	
==>me undef, undef, $initrd_img; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory t <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6634	6732	
==>ot so much define a grammar as let each matched node state what it
expects to match next, but there <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15232	15329	
==>fined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
app <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15232	15329	
==>fined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
app <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18432	18549	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15670	15787	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18432	18549	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15670	15787	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18432	18549	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15670	15787	
==>eck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self- <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	159	255	
==>ds, etc
has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12332	12457	
==>m  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12332	12457	
==>m  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12332	12457	
==>m  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	197	300	
==>($class, $klass) = @_;
    (blessed($klass) && $klass->isa('opaque'))
        || confess "C3 only accept <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28892	28987	
==>ng the new attributes having the same names as old
attributes that become wrapped, and it suppor <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33444	33539	
==>ng the new attributes having the same names as old
attributes that become wrapped, and it suppor <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32581	32676	
==>ng the new attributes having the same names as old
attributes that become wrapped, and it suppor <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15052	15166	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12306	12420	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15052	15166	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12306	12420	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15052	15166	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12306	12420	
==>te') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        con <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5697	5809	
==>(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $1,
      pugs_revision => $2,
      osna <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3224	3389	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4030	4195	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1971	2136	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3224	3389	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4030	4195	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1971	2136	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1203	1320	
==>term
        { $_[0]->{out}= { named_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { spla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8318	8420	
==>>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 D <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8318	8420	
==>>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 D <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8318	8420	
==>>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 D <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5814	5910	
==>wo);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4944	5040	
==>wo);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5814	5910	
==>wo);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4944	5040	
==>wo);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1822	1952	
==>";
    return list->new(
        # make sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1157	1270	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $ms <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1157	1270	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $ms <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1157	1270	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $ms <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1318	1417	
==>ve access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1318	1417	
==>ve access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1318	1417	
==>ve access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7440	7578	
==>0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11775	11913	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2256	2389	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9028	9161	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7190	7323	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2256	2389	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9028	9161	
==>0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cu <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4901	5166	
==>>new(
                                Sym->new('&f'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new( <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28292	28388	
==>ebugging purposes (such as to test that the object's contents look
good at a glance); no attribut <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35648	35744	
==>ebugging purposes (such as to test that the object's contents look
good at a glance); no attribut <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28292	28388	
==>ebugging purposes (such as to test that the object's contents look
good at a glance); no attribut <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35648	35744	
==>ebugging purposes (such as to test that the object's contents look
good at a glance); no attribut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14178	14266	
==>::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14178	14266	
==>::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14178	14266	
==>::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashr <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5211	5331	
==>$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5211	5331	
==>$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3308	3409	
==>unction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3308	3409	
==>unction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].con <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3308	3409	
==>unction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].con <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	560	657	
==>urn &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	560	657	
==>urn &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2065	2194	
==>_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2065	2194	
==>_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2065	2194	
==>_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10957	11073	
==>eturn "$_[1] constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # X <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6397	6503	
==>on";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6397	6503	
==>on";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6397	6503	
==>on";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39501	39595	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39771	39865	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39501	39595	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39771	39865	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39501	39595	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39771	39865	
==>sa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22825	22913	
==>_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2305	2413	
==>{
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2305	2413	
==>{
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2305	2413	
==>{
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) th <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13917	14022	
==>to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17394	17499	
==>to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16774	16879	
==>to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27885	27983	
==>rns a deep copy of this Relation::Example as a Hash ref of 2
elements, which correspond to the 2 na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3900	4051	
==>$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3900	4051	
==>$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3900	4051	
==>$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6303	6400	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pat <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8371	8468	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pat <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6303	6400	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pat <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8371	8468	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pat <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13952	14094	
==>i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ch <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13952	14094	
==>i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ch <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13952	14094	
==>i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ch <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2660	2802	
==>i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1347	1464	
==>etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1347	1464	
==>etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1347	1464	
==>etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9103	9230	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12076	12203	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9103	9230	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12076	12203	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9103	9230	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12076	12203	
==>Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMe <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1137	1246	
==>le {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_regist <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2034	2193	
==>negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6977	7135	
==>negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1807	1960	
==>negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8392	8545	
==>negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1807	1960	
==>negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8392	8545	
==>negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6744	6896	
==>negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7196	7353	
==>fy( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::n <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7196	7353	
==>fy( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::n <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7196	7353	
==>fy( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::n <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3676	3790	
==>$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\text <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1253	1365	
==>p } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1253	1365	
==>p } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1253	1365	
==>p } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recu <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1193	1306	
==>y $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $sel <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1193	1306	
==>y $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3321	3426	
==>O: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 requ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3321	3426	
==>O: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 requ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3321	3426	
==>O: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 requ <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3982	4085	
==>rser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can p <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3982	4085	
==>rser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can p <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6948	7072	
==>idate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_n <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6948	7072	
==>idate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1526	1628	
==>);
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1526	1628	
==>);
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1526	1628	
==>);
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfi <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3987	4082	
==>ents, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3987	4082	
==>ents, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8563	8742	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6116	6295	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8563	8742	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6116	6295	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8563	8742	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6116	6295	
==>nce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27457	27552	
==>ng> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zero a <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7686	7840	
==>x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn " <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7686	7840	
==>x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn " <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22665	22802	
==>tion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $s <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23785	23897	
==>haracter Classes

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uri <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	696	805	
==>nce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	696	805	
==>nce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	696	805	
==>nce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mod <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13279	13373	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4449	4543	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8905	8999	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13279	13373	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4449	4543	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8905	8999	
==>tion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should neve <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	9662	9754	
==>uiltin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38092	38258	
==>\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store aft <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38092	38258	
==>\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store aft <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38092	38258	
==>\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store aft <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4000	4104	
==>"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5321	5425	
==>"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4000	4104	
==>"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5309	5413	
==>"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3293	3421	
==>to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3293	3421	
==>to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cel <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3293	3421	
==>to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cel <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21457	21551	
==>uted when the bot receives a corresponding message.
Event names which are all lowercase are "ps <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20338	20432	
==>uted when the bot receives a corresponding message.
Event names which are all lowercase are "ps <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21457	21551	
==>uted when the bot receives a corresponding message.
Event names which are all lowercase are "ps <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20338	20432	
==>uted when the bot receives a corresponding message.
Event names which are all lowercase are "ps <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28092	28185	
==>inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=item my $d = $obj <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8893	9039	
==>gate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cm <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14622	14768	
==>gate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8893	9039	
==>gate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14616	14762	
==>gate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cm <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	7489	7591	
==>lse {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) r <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7489	7591	
==>lse {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) r <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1121	1218	
==>e: $name - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "= <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	971	1095	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1059	1183	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	971	1095	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1059	1183	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	971	1095	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1059	1183	
==>unjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions( <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8065	8160	
==>DecimalLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPart <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20042	20154	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17181	17293	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20042	20154	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17181	17293	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20042	20154	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17181	17293	
==>are just package scoped "our" variables
        # so they are added to the Package normally
        return $self- <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24634	24744	
==>15.10.1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10.1
      < <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	5	103	
==>r/bin/perl

use strict;
use warnings;

use Perl6::MetaModel;

1;

__END__

module Test::Builder::Te <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9968	10084	
==>use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(? <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9968	10084	
==>use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8857	8970	
==>default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pus <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8857	8970	
==>default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pus <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8857	8970	
==>default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pus <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	35	128	
==>);

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does P <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	35	128	
==>);

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does P <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24765	24861	
==>e main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23529	23625	
==>e main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24765	24861	
==>e main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23529	23625	
==>e main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13785	13876	
==>oopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unaccep <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13785	13876	
==>oopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unaccep <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13785	13876	
==>oopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unaccep <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9448	9593	
==>nt < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9448	9593	
==>nt < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9448	9593	
==>nt < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5113	5249	
==>n,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multili <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5113	5249	
==>n,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multili <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5113	5249	
==>n,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multili <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	889	1012	
==>_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15861	15965	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20578	20682	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15861	15965	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20578	20682	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15861	15965	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20578	20682	
==>aybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods: <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11985	12087	
==>nc;
    return @inc;
}


=head2 C<_restore_PERL5LIB>

  $self->_restore_PERL5LIB;

This restores the or <==
7	/Users/nnunley/pugs/misc/Date/lib/Date.pm	18	115	
==>'s actually a role; after all, it defines no properties.

# return floating point seconds relative <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1752	1859	
==>->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1752	1859	
==>->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
m <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13281	13376	
==>e fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that con <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13281	13376	
==>e fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that con <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4080	4172	
==>iner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4080	4172	
==>iner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-c <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4080	4172	
==>iner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-c <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2446	2572	
==>idex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ? <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2446	2572	
==>idex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ? <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1257	1382	
==>--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+- <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3553	3678	
==>--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1257	1382	
==>--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3553	3678	
==>--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+- <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3360	3467	
==>passed = ($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} && $totals{seen} <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4547	4730	
==>his
                }      

                last LINKING unless $link_this;

                my @bins;
                print "Linking scripts/manpages...\n";
                for ( qx[ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28171	28266	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29182	29277	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32723	32818	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33734	33829	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31833	31928	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32880	32975	
==>This method has not yet been implemented.>

This method is a generic relational operator that re <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	385	471	
==>%Config, qw(--inline --pugs|p=s --precompile|i=s@ --verbose|v --touch --output|o=s --ke <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12174	12271	
==>command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nic <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12174	12271	
==>command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nic <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23898	23994	
==>nd implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the m <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23898	23994	
==>nd implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	339	430	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	339	430	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	339	430	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1587	1699	
==><=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1587	1699	
==><=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1587	1699	
==><=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23764	23863	
==>txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVM <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22537	22636	
==>txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVM <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23764	23863	
==>txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVM <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22537	22636	
==>txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVM <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2497	2611	
==>STALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8451	8559	
==>d(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8451	8559	
==>d(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8451	8559	
==>d(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4546	4639	
==>e>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects ref <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4546	4639	
==>e>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects ref <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4546	4639	
==>e>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects ref <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3822	3929	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4075	4182	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4520	4627	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3822	3929	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4075	4182	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4520	4627	
==>s Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tm <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5804	5900	
==>e(r->precomp);
    r->prelen = SvLEN(pat);
    if(r->prelen <0){ fprintf(stderr,"zoork!\n");exit( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3393	3503	
==>self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3393	3503	
==>self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3393	3503	
==>self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6780	6885	
==>channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Someb <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6780	6885	
==>channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Someb <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3423	3519	
==>Tiny is a utility to read and write .ini style configuration files
with as little code as possibl <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3423	3519	
==>Tiny is a utility to read and write .ini style configuration files
with as little code as possibl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19941	20171	
==>$other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cur <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19941	20171	
==>$other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cur <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19941	20171	
==>$other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cur <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22115	22207	
==>eric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=i <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20996	21088	
==>eric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22115	22207	
==>eric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20996	21088	
==>eric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=i <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	613	719	
==>content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	613	719	
==>content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	810	910	
==>Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	810	910	
==>Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	810	910	
==>Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Be <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10231	10330	
==>mpty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10231	10330	
==>mpty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18986	19108	
==>];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20344	20466	
==>];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4157	4273	
==>~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4157	4273	
==>~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41059	41158	
==>ension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCR <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41059	41158	
==>ension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCR <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41059	41158	
==>ension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCR <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8751	8861	
==>ldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8751	8861	
==>ldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2771	2879	
==>thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2771	2879	
==>thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2771	2879	
==>thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanc <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9009	9115	
==>ldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9009	9115	
==>ldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4427	4711	
==>$seen{$_->{name}} = 1;
                    $s .= ' ' .
                        $_ eq 'list' 
                            ? $_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17729	17846	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14949	15066	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17729	17846	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14949	15066	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17729	17846	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14949	15066	
==>for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1172	1274	
==>f the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $te <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1172	1274	
==>f the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $te <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1252	1354	
==>f the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $te <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15865	15962	
==>ogram will raise a condition or error that,
while resembling a message that would be shown to a us <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15865	15962	
==>ogram will raise a condition or error that,
while resembling a message that would be shown to a us <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1069	1163	
==>a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuati <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1069	1163	
==>a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuati <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	893	1018	
==>= args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = ha <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	893	1018	
==>= args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = ha <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	893	1018	
==>= args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = ha <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9851	9965	
==>, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15692	15806	
==>, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9851	9965	
==>, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15686	15800	
==>, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	834	989	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	834	989	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	834	989	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14135	14258	
==>$v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4212	4327	
==>$v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.val <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4212	4327	
==>$v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.val <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4212	4327	
==>$v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1358	1487	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2324	2453	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1358	1487	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2324	2453	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1358	1487	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2324	2453	
==>patcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_meth <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3492	3602	
==>oto $1;/g;
  #print STDERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1185	1286	
==>ur $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1185	1286	
==>ur $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1185	1286	
==>ur $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6483	6573	
==>local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6483	6573	
==>local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6483	6573	
==>local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CU <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6385	6471	
==>\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &::hlp_stmt;})');
my $x5 = def_stmt_pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4499	4640	
==>);        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4499	4640	
==>);        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4499	4640	
==>);        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2180	2313	
==>);
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2180	2313	
==>);
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2180	2313	
==>);
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23384	23477	
==>hod superclasses (opaque $self: list ?@superclasses) returns list {
    if (@superclasses.defi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4205	4386	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4205	4386	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4205	4386	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6731	6898	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6731	6898	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6731	6898	
==>ethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25888	26029	
==>dd_method' => (
    # method label
        symbol->new('subclasses'),
    # method body
        method->new(
            $::ENV,
            m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	638	752	
==>f( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6156	6270	
==>f( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	638	752	
==>f( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6168	6282	
==>f( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3632	3738	
==>ame}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name} <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3632	3738	
==>ame}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name} <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4222	4328	
==>ame}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name} <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1491	1656	
==>m {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1595	1760	
==>m {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1491	1656	
==>m {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1595	1760	
==>m {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13031	13120	
==>::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ar <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13031	13120	
==>::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ar <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13031	13120	
==>::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ar <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3820	3927	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4073	4180	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4518	4625	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3820	3927	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4073	4180	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4518	4625	
==>rns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7837	7942	
==>Inv) ? 1 : 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38827	38922	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38442	38537	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19309	19404	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38827	38922	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42991	43086	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42641	42736	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19309	19404	
==>=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONME <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	62	170	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	48	156	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2461	2615	
==>leop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::cons <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2472	2626	
==>leop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::cons <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10801	10940	
==>my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11267	11406	
==>my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10795	10934	
==>my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11261	11400	
==>my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3124	3219	
==>my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler reduces an AST into an e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	649	784	
==>{
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	649	784	
==>{
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	649	784	
==>{
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2996	3107	
==>{
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2996	3107	
==>{
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2996	3107	
==>{
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	2702	2802	
==>ntry (@free) {
		my $assigned = $map{$entry->{orig}};
		unless ($assigned) {
			$assigned = shift @le <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10150	10246	
==>rl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    Jav <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6690	6785	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5820	5915	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2474	2569	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2474	2569	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6690	6785	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5820	5915	
==>nfix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15184	15286	
==>ultiplicativeExpression>
}
rule ShiftExpression :words {  # see 11.7
      <AdditiveExpression>
    | < <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4593	4694	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7529	7630	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4593	4694	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7529	7630	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4593	4694	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7529	7630	
==>| confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	175	275	
==>%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	175	275	
==>%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	175	275	
==>%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	19862	19959	
==>ct can
not be changed afterwards.

If you want something similar but that is more mutable, you can <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24414	24511	
==>ct can
not be changed afterwards.

If you want something similar but that is more mutable, you can <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22966	23063	
==>ct can
not be changed afterwards.

If you want something similar but that is more mutable, you can <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	26967	27062	
==>('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide(" <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1591	1727	
==>r/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Tr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	377	496	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	375	494	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	377	496	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	375	494	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	377	496	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	375	494	
==>ate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Inp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3489	3606	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6017	6134	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3489	3606	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6017	6134	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3489	3606	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6017	6134	
==>ody->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7544	7640	
==>errors will be determined during this
initial pass.

=head3 Fatal Errors

B<If there is a compila <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7019	7129	
==>say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
su <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3623	3733	
==>say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
su <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4472	4582	
==>say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
su <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3020	3121	
==>hift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Function <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3020	3121	
==>hift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Function <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2655	2746	
==>l_children returns Array of Tree { @!children }

## ---------------------------------------- <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2655	2746	
==>l_children returns Array of Tree { @!children }

## ---------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1204	1336	
==>> sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testplan');
            if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6607	6711	
==>$callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $para <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6607	6711	
==>$callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $para <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6607	6711	
==>$callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	565	665	
==>ach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	565	665	
==>ach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	565	665	
==>ach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8554	8680	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11527	11653	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8554	8680	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11527	11653	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8554	8680	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11527	11653	
==>ack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of metho <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18449	18532	
==>t_max_ng(Re,Left,Fx,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_re <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5192	5300	
==>\$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $co <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6460	6568	
==>\$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $co <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5192	5300	
==>\$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $co <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6448	6556	
==>\$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21021	21118	
==>.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB inf <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21021	21118	
==>.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB inf <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21021	21118	
==>.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB inf <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5477	5588	
==>(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4214	4347	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7150	7283	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4214	4347	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7150	7283	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4214	4347	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7150	7283	
==>he Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it bin <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17574	17682	
==>de .= "package $ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6 <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4851	4952	
==>n>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4226	4327	
==>rclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_att <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4851	4952	
==>n>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4226	4327	
==>rclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6375	6476	
==>n>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4226	4327	
==>rclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_att <==
7	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1128	1228	
==>ess::Iterator::ARRAY;
sub next {
    my $self = shift;
    return $self->{array}->[$self->{idx}++];
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8729	8831	
==>IL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8729	8831	
==>IL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8729	8831	
==>IL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18696	18791	
==>or accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autop <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17739	17834	
==>or accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autop <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18696	18791	
==>or accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autop <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17739	17834	
==>or accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autop <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5030	5150	
==>ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16066	16186	
==>ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17554	17674	
==>ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22237	22357	
==>ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2319	2412	
==>r::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2319	2412	
==>r::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2319	2412	
==>r::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10678	10798	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15219	15339	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10678	10798	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15219	15339	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10678	10798	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15219	15339	
==>o there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_metho <==
7	/Users/nnunley/pugs/util/addauthors.pl	13	118	
==>rl
use warnings;
use strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next un <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4025	4180	
==>$expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval( <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3337	3454	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11895	12012	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6462	6579	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3337	3454	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11895	12012	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6462	6579	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14944	15050	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12198	12304	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14944	15050	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12198	12304	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14944	15050	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12198	12304	
==>a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attrib <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	15906	16011	
==>env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { n <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9841	10049	
==>w('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->g <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7186	7281	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6316	6411	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2970	3065	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2970	3065	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7186	7281	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6316	6411	
==>.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *in <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	852	956	
==>r;
  subtype Foo of Str where { rx/^Foo/ };

It is probably bad to have both a MetaClass called C<Type> a <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6234	6334	
==>a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = no <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6234	6334	
==>a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = no <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	641	737	
==>notate {
	my $self = shift;
	$self->annotator->annotate($self, @_);
}

sub emitter_class { "Blond <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	12576	12687	
==>f (exists $lines->{$.}) {
        $class = $test_class->{$lines->{$.}};
      }
      $output .= "<span class='$ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3392	3493	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11950	12051	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6517	6618	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3392	3493	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11950	12051	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6517	6618	
==>$meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16258	16381	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20975	21098	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16258	16381	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20975	21098	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16258	16381	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20975	21098	
==>thods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $ca <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	494	591	
==>l 5 modules to Perl 6:
#      http://perlmonks.org/index.pl?node_id=442402
#
# ------------------- <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5331	5464	
==>ft--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_execho <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2511	2625	
==>eived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "exp <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2511	2625	
==>eived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2591	2705	
==>eived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "exp <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	125	236	
==>JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ch <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	130	240	
==>JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ch <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	128	238	
==>JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ch <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	11248	11376	
==>= $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previo <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11248	11376	
==>= $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1652	1779	
==>it_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HAS <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2395	2522	
==>it_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HAS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1652	1779	
==>it_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HAS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2383	2510	
==>it_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HAS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	140	235	
==>e Pugs::Grammar::Expression;
use Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm afte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15968	16076	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20685	20793	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15968	16076	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20685	20793	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15968	16076	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20685	20793	
==>ure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	687	793	
==>d
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3033	3161	
==>details
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20490	20614	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17629	17753	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20490	20614	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17629	17753	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20490	20614	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17629	17753	
==>s 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub( <==
7	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1459	1579	
==>ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1426	1546	
==>ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	103	218	
==>fix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	103	218	
==>fix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	103	218	
==>fix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes h <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	22796	22891	
==>of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27348	27443	
==>of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	680	782	
==>ule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3751	3853	
==>ule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	680	782	
==>ule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3751	3853	
==>ule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1608	1696	
==>neric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1608	1696	
==>neric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1608	1696	
==>neric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals: <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2269	2393	
==>ls::rand($x);
 }


 multi  Num::sign (  Num  $x             --> Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6865	6953	
==>-------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6888	6976	
==>--------------------
## BOOTSTRAPPING ROLES
## ------------------------------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6865	6953	
==>-------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6888	6976	
==>--------------------
## BOOTSTRAPPING ROLES
## ------------------------------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6865	6953	
==>-------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6888	6976	
==>--------------------
## BOOTSTRAPPING ROLES
## ------------------------------------------ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7167	7266	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6297	6396	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2951	3050	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2951	3050	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7167	7266	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6297	6396	
==>ns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-set <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	930	1023	
==>NUM, 'Unmatched (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4140	4315	
==>";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5461	5636	
==>";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4140	4315	
==>";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5449	5624	
==>";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34614	34720	
==>Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34614	34720	
==>Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34614	34720	
==>Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = r <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2943	3092	
==>at( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3225	3365	
==>at( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9643	9783	
==>at( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3225	3365	
==>at( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9643	9783	
==>at( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1252	1383	
==>rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1252	1383	
==>rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshi <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6672	6822	
==>:copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1276	1393	
==>unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1276	1393	
==>unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1276	1393	
==>unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2884	2996	
==>method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2884	2996	
==>method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2884	2996	
==>method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4722	4847	
==>my $postinst = $meta_dir->file( $conf->postinst );
            if( -e $postinst && -s _ ) {
                system( qq[ $^X $p <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10185	10287	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12826	12928	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13662	13764	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16303	16405	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12943	13045	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15665	15767	
==>her!heading === $!heading) {
        # Both sources have identical headings; result is src intersection <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	206	341	
==>=> { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9618	9734	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12591	12707	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9618	9734	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12591	12707	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9618	9734	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12591	12707	
==>needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1474	1611	
==>$span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $s <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1474	1611	
==>$span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $s <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13562	13686	
==>f the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # N <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17039	17163	
==>f the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # N <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16401	16525	
==>f the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # N <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	109	224	
==>term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	109	224	
==>term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5394	5518	
==>$class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->ele <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5394	5518	
==>$class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->ele <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5394	5518	
==>$class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->ele <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6925	7014	
==>:Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentati <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1365	1454	
==>:Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentati <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6925	7014	
==>:Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentati <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1365	1454	
==>:Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentati <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3599	3707	
==>abel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3599	3707	
==>abel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3599	3707	
==>abel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    re <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	757	854	
==>ed Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote us <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	757	854	
==>ed Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote us <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2783	2879	
==>e

basic interface, and if you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2681	2775	
==>e
basic interface, and if you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	588	707	
==>il_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	588	707	
==>il_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	588	707	
==>il_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	444	539	
==>odule     = undef;
$::EigenClass = undef;

## -------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	444	539	
==>odule     = undef;
$::EigenClass = undef;

## -------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	444	539	
==>odule     = undef;
$::EigenClass = undef;

## -------------------------------------------------- <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16268	16361	
==>elationalExpression>
    | <EqualityExpression> <'=='> <RelationalExpression>
    | <EqualityE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2596	2712	
==>expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from Tes <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	19115	19223	
==>ut_handler {
    my($self, $line, $type, $totals) = @_;

    die "FAILED--Further testing stopped" .
      ($ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	361	467	
==>expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from Tes <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	361	467	
==>expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from Tes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11180	11278	
==>LD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11180	11278	
==>LD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11180	11278	
==>LD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD su <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10163	10286	
==>"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6504	6627	
==>"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7353	7476	
==>"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6647	6762	
==>reg_any;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	698	808	
==>indBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	698	808	
==>indBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	698	808	
==>indBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore - <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8414	8538	
==>( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4791	4897	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7292	7398	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4791	4897	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7292	7398	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4791	4897	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7292	7398	
==>method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3966	4095	
==>thing that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_sa <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4430	4559	
==>thing that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_sa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2562	2654	
==>claration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Ex <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2562	2654	
==>claration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2168	2312	
==>lf->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2168	2312	
==>lf->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2168	2312	
==>lf->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    r <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2815	2947	
==>->[-1]->op_cmp($op);
        if($cmp <= 0) {
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          loca <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2827	2943	
==>thod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %e <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2827	2943	
==>thod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %e <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	207	314	
==>5:g/[^A-Z]//;
    if !(-e catfile($Path, $SID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '';
    Sessio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9466	9600	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12439	12573	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9466	9600	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12439	12573	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9466	9600	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12439	12573	
==>::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 m <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13302	13394	
==>D) --> [D], { code_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { numb <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11192	11343	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8745	8896	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11192	11343	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8745	8896	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11192	11343	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8745	8896	
==>0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current_ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10052	10145	
==>_[1] ruleop::capture( '$_[0]', \\&{'$name'} )\n";
}
sub node::non_capturing_subrule {
    retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13825	13931	
==>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13825	13931	
==>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13825	13931	
==>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11518	11621	
==>args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $a <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22495	22598	
==>args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11518	11621	
==>args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11518	11621	
==>args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $a <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1977	2080	
==>0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take en <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2339	2442	
==>0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take en <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1977	2080	
==>0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take en <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2339	2442	
==>0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take en <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36397	36493	
==>s, then eliminating any result tuples that
duplicate others.  The sequence in which any two sourc <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40946	41042	
==>s, then eliminating any result tuples that
duplicate others.  The sequence in which any two sourc <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40560	40656	
==>s, then eliminating any result tuples that
duplicate others.  The sequence in which any two sourc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20105	20236	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17244	17375	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20105	20236	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17244	17375	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20105	20236	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17244	17375	
==>dded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we nee <==
7	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	717	827	
==>if( ref $thing eq 'ARRAY' ) {
        bless $self, 'Test::Harness::Iterator::ARRAY';
        $self->{idx}   = 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12618	12739	
==>unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12618	12739	
==>unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12618	12739	
==>unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4714	4816	
==>declaration must be visible
    in the lexical scope to have any effect. It's possible the
    internal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3393	3483	
==>be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3393	3483	
==>be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3393	3483	
==>be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	163	276	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	163	276	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1751	1864	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1956	2069	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2019	2132	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	163	276	
==>b ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14014	14110	
==>he elements of C<%hash> in no apparent order, but the order
will be the same between successive c <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16397	16508	
==>s($builtin->digest)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4989	5088	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3217	3316	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4989	5088	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3217	3316	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4989	5088	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3217	3316	
==>my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10444	10611	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7995	8162	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10444	10611	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7995	8162	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10444	10611	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7995	8162	
==>erator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and star <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27472	27563	
==>=head1 DESCRIPTION

This module contains the object definitions for F<Regexp::Parser>.

=hea <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	203	321	
==>ss, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	197	315	
==>ss, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	203	321	
==>ss, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	197	315	
==>ss, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	557	666	
==>sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	557	666	
==>sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	557	666	
==>sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2738	2833	
==>holder with the compiled version of the builtin
    $val->set($self->reduce($builtin));
}

__PAC <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	108	226	
==>BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	106	224	
==>BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	113	231	
==>BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	115	233	
==>BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6192	6293	
==>to have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6192	6293	
==>to have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6192	6293	
==>to have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12125	12252	
==>methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12125	12252	
==>methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12125	12252	
==>methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4303	4421	
==>e currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4303	4421	
==>e currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # th <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4814	4920	
==>e currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4814	4920	
==>e currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from th <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	320	437	
==>turns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 } <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1672	1778	
==>+)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fil <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8230	8364	
==>); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,npa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2281	2399	
==>message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	270	380	
==>message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	270	380	
==>message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2382	2485	
==>y, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - tes <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2382	2485	
==>y, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - tes <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2382	2485	
==>y, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - tes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19967	20070	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17106	17209	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19967	20070	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17106	17209	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19967	20070	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17106	17209	
==>store instance attributes with the meta model, 
        # class attributes are just package scoped "our" <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20578	20677	
==>.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NUL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	938	1062	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1026	1150	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	938	1062	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1026	1150	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	938	1062	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1026	1150	
==>t all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @A <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31972	32082	
==>}
        )
    )
);

=pod

method _make_descendant_dispatcher (opaque $self:) returns block {
    $self._make_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2659	2765	
==>ubstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2659	2765	
==>ubstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2659	2765	
==>ubstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method c <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33726	33821	
==>lation>

This method is a generic relational operator that takes a single Relation
in its C<$oth <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34494	34589	
==>lation>

This method is a generic relational operator that takes a single Relation
in its C<$oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38276	38371	
==>lation>

This method is a generic relational operator that takes a single Relation
in its C<$oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39044	39139	
==>lation>

This method is a generic relational operator that takes a single Relation
in its C<$oth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16993	17192	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21708	21907	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16993	17192	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21708	21907	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16993	17192	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21708	21907	
==>{
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $travers <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10453	10551	
==>/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    should suffice. See the <a
    href="h <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	648	761	
==>eturn $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{down}) {
      Carp::carp("ender <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4897	4997	
==>_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5090	5190	
==>_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21832	21930	
==>you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional inform <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20713	20811	
==>you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional inform <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21832	21930	
==>you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional inform <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20713	20811	
==>you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional inform <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9227	9346	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12200	12319	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9227	9346	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12200	12319	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9227	9346	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12200	12319	
==>ssMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod: <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30992	31097	
==>lass->send('add_method' => (
    # method label
        symbol->new('_make_dispatcher_iterator'),
    # me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8523	8627	
==>> Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8523	8627	
==>> Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8523	8627	
==>> Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34528	34624	
==>es (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new( <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34528	34624	
==>es (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new( <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	25361	25455	
==>ion $other!) returns Bool>

This method returns the complement of C<equal> with the same argume <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29913	30007	
==>ion $other!) returns Bool>

This method returns the complement of C<equal> with the same argume <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3095	3192	
==>1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my $old_p_id = $p->id;

$p->set_x(1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24631	24741	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26820	26930	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24631	24741	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26820	26930	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24631	24741	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26820	26930	
==>ples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3884	3992	
==>st> \) ]* }
rule capturing_group        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] }
r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4013	4195	
==>ub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19918	20028	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17057	17167	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19918	20028	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17057	17167	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19918	20028	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17057	17167	
==>alue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # clas <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12891	12993	
==>ts (only strings) into
  $1,etal, or even into the return value.  In that event, it may not
  be possib <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12117	12210	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12117	12210	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12117	12210	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class- <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8931	9023	
==>rgs;

	my $default = $op{'paramDefault'};
	push(@args,"default=>sub{$default}") if defined $d <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4208	4297	
==>the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> a <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4208	4297	
==>the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6405	6494	
==>the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14532	14672	
==>('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database co <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14532	14672	
==>('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database co <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	975	1086	
==>tocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	975	1086	
==>tocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2517	2613	
==>l = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2517	2613	
==>l = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2517	2613	
==>l = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH( <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	11141	11272	
==>ng delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $linkfile = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	202	301	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	366	465	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	202	301	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	366	465	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	202	301	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	366	465	
==>if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4428	4535	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7364	7471	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4428	4535	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7364	7471	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4428	4535	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7364	7471	
==>bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	298	403	
==>lurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could actually make i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1265	1378	
==>s done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1265	1378	
==>s done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1265	1378	
==>s done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3114	3217	
==>h @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not y <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3114	3217	
==>h @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not y <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3114	3217	
==>h @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not y <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4888	4984	
==>() returns num>

=item B<to_str () returns str>

=item B<fetch (num) returns ~type>

=item B<stor <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24431	24582	
==>leop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25694	25845	
==>leop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24710	24861	
==>leop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25973	26124	
==>leop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleo <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8212	8342	
==>key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) { <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8212	8342	
==>key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) { <==
7	/Users/nnunley/pugs/util/combine_tests.pl	2148	2256	
==>often the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $target->{meat}{test_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8479	8578	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6032	6131	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8479	8578	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6032	6131	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8479	8578	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6032	6131	
==>t;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2517	2639	
==>ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2517	2639	
==>ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2517	2639	
==>ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7351	7450	
==>SA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7351	7450	
==>SA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7351	7450	
==>SA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33425	33522	
==>l (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>)

=head2 reg_any

Family: reg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25667	25779	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27862	27974	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25667	25779	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27862	27974	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25667	25779	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27862	27974	
==>ar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @s <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	17077	17188	
==>fmt) = _create_fmts($failedtests);

        # Now write to formats
        for my $script (sort keys %$failedtes <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6585	6721	
==>Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6585	6721	
==>Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14079	14198	
==>$size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possibl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14079	14198	
==>$size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possibl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14079	14198	
==>$size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possibl <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6341	6460	
==>$size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possibl <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4843	4962	
==>$size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possibl <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15522	15632	
==>}), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16937	17047	
==>}), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21693	21803	
==>}), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	192	297	
==>=> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel" <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	196	301	
==>=> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel" <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	192	297	
==>=> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel" <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	196	301	
==>=> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11353	11504	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8906	9057	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11353	11504	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8906	9057	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11353	11504	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8906	9057	
==>stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
7	/Users/nnunley/pugs/util/config_h.pl	1897	2022	
==>p.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi" <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22963	23111	
==>abel
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42566	42714	
==>abel
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1255	1385	
==>p ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        uns <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	815	945	
==>p ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        uns <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7443	7555	
==>eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4047	4159	
==>eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4896	5008	
==>eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4765	4862	
==>0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4765	4862	
==>0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4765	4862	
==>0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20131	20224	
==>eadonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server w <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19090	19183	
==>eadonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server w <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20131	20224	
==>eadonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server w <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19090	19183	
==>eadonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4952	5086	
==>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a S <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4952	5086	
==>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a S <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4952	5086	
==>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a S <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	12	115	
==>de::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	12	115	
==>de::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	12	115	
==>de::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * o <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	29	127	
==>Perl6::Core::List;
use Perl6::Core::Bit;

package C3;

use strict;
use warnings;

use Carp 'confess <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25177	25311	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27366	27500	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25177	25311	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27366	27500	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25177	25311	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27366	27500	
==>if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value:: <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6576	6676	
==>b is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	next if $created{$pkg <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3808	3908	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4061	4161	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4506	4606	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3808	3908	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4061	4161	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4506	4606	
==>$span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14891	14974	
==>-------------------------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0) <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6747	6888	
==>nregister {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        packag <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2962	3061	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5976	6075	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8044	8143	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2962	3061	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5976	6075	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8044	8143	
==>`curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13495	13621	
==>p { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13495	13621	
==>p { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13495	13621	
==>p { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	386	497	
==>te            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i <==
7	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	417	516	
==>te if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18128	18223	
==>ing or ambiguity involved.
By contrast, if a program simply returned words for the user, such as <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18128	18223	
==>ing or ambiguity involved.
By contrast, if a program simply returned words for the user, such as <==
7	/Users/nnunley/pugs/util/version_h.pl	482	587	
==>rd appears
# is modified.
my $revision = 0;

# SVK tries to ask the user questions when it has a STDIN and <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3926	4030	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6575	6679	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4165	4266	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10614	10715	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4165	4266	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10614	10715	
==>rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2435	2548	
==>TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19451	19559	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16683	16791	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19451	19559	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16683	16791	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19451	19559	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16683	16791	
==>RE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	18790	18995	
==>sh_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after the header, whe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12623	12743	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13202	13322	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12623	12743	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13202	13322	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12623	12743	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13202	13322	
==>ams}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16423	16557	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21140	21274	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16423	16557	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21140	21274	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16423	16557	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21140	21274	
==>nshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all th <==
7	/Users/nnunley/pugs/util/grokprims.pl	742	831	
==>, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF-8" ? <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	8680	8830	
==>tail (@{$results{details}}) {
            if ($detail->{type} eq 'todo') {
                if ($detail->{reason}) {            
                    $to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5163	5307	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8133	8277	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5163	5307	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8133	8277	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5163	5307	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8133	8277	
==>nd call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2679	2858	
==>ut error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $m <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2679	2858	
==>ut error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3080	3194	
==>t is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3080	3194	
==>t is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3080	3194	
==>t is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18310	18409	
==>deal with it.  But for displaying to users, easy messages are
better.

I have found that when it com <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18310	18409	
==>deal with it.  But for displaying to users, easy messages are
better.

I have found that when it com <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11347	11499	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8900	9052	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11347	11499	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8900	9052	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11347	11499	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8900	9052	
==>ss = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator i <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	48	151	
==>$b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9382	9487	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6929	7034	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9382	9487	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6929	7034	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9382	9487	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6929	7034	
==>elf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5068	5167	
==>'refs';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__ob <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11753	11905	
==>>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, el <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11753	11905	
==>>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, el <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11753	11905	
==>>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, el <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22429	22553	
==>{ _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22708	22832	
==>{ _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11785	11889	
==>$val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11785	11889	
==>$val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	239	340	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	180	281	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	239	340	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	180	281	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	239	340	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	180	281	
==>ble to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been add <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13910	14004	
==>octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdi <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2742	2855	
==>th, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_n <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7836	7949	
==>th, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_n <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2742	2855	
==>th, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_n <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7836	7949	
==>th, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2055	2151	
==>{out}= {fixity => 'ternary', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 = <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	26960	27054	
==>but that the returned Relation has
the complement subset of the original's attributes to what C <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31512	31606	
==>but that the returned Relation has
the complement subset of the original's attributes to what C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16439	16574	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21156	21291	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16439	16574	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21156	21291	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16439	16574	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21156	21291	
==>per;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then c <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	392	493	
==>ys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_keys) {
    *$key = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7513	7612	
==>L::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7513	7612	
==>L::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7513	7612	
==>L::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slu <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10019	10123	
==>lti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_he <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10019	10123	
==>lti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_he <==
7	/Users/nnunley/pugs/util/config_h.pl	377	476	
==>urrent directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40286	40380	
==>dify and distribute must carry
prominent notices stating that you changed the files and the dat <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25810	25904	
==>dify and distribute must carry prominent
notices stating that you changed the files and the dat <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40286	40380	
==>dify and distribute must carry
prominent notices stating that you changed the files and the dat <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25810	25904	
==>dify and distribute must carry prominent
notices stating that you changed the files and the dat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10325	10436	
==>ame'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10319	10430	
==>ame'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	671	777	
==>$self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Voi <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	671	777	
==>$self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Voi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4655	4757	
==>time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need pr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4655	4757	
==>time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need pr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4655	4757	
==>time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need pr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10025	10193	
==>emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( $n->{e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10325	10481	
==>emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{e <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7990	8118	
==>y_value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V);
            raise RangeError if <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5031	5133	
==>ernal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @ou <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5031	5133	
==>ernal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @ou <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	11197	11291	
==>got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These fun <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11255	11349	
==>got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These fun <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	25280	25373	
==>\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has failing subtests statistic <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24806	24905	
==>CONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you su <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23570	23669	
==>CONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you su <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24806	24905	
==>CONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you su <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23570	23669	
==>CONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1219	1315	
==>a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1219	1315	
==>a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1219	1315	
==>a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROU <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1599	1736	
==>NSTALLATION },
        repository      => { allow => ISA_JIB_REPOSITORY },
    };

    sub new {
        my $class = shift;
        my %ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7841	7946	
==>b { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7841	7946	
==>b { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7841	7946	
==>b { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10788	10892	
==>he `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10788	10892	
==>he `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the inf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7006	7106	
==>educe_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8457	8564	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6010	6117	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8457	8564	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6010	6117	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8457	8564	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6010	6117	
==>{ 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instanc <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26730	26835	
==>NoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19350	19503	
==>error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2380	2485	
==>ars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2380	2485	
==>ars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2380	2485	
==>ars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3299	3384	
==>paque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3299	3384	
==>paque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3299	3384	
==>paque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10094	10206	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12735	12847	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13571	13683	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16212	16324	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12852	12964	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15574	15686	
==>ce is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!head <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2617	2718	
==>->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_handler('\D <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4248	4370	
==>binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4248	4370	
==>binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4248	4370	
==>binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->js <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	579	682	
==>s{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19117	19215	
==>ix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19117	19215	
==>ix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19117	19215	
==>ix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULT <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1186	1282	
==>Delete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[ <==
7	/Users/nnunley/pugs/util/func_refact.pl	1411	1522	
==>ys %$set;
    my $debug = $new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scalar( <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36341	36433	
==>ibutes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38094	38186	
==>ibutes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40890	40982	
==>ibutes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42643	42735	
==>ibutes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40504	40596	
==>ibutes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42293	42385	
==>ibutes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1978	2123	
==>int ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5co <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	292	437	
==>int ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5co <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1978	2123	
==>int ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5co <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1978	2123	
==>int ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2415	2523	
==>but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2415	2523	
==>but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2415	2523	
==>but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::op <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28426	28523	
==>t try to
extract them.  This method is also defined as the implicit handler when
coercing this obj <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35782	35879	
==>t try to
extract them.  This method is also defined as the implicit handler when
coercing this obj <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28426	28523	
==>t try to
extract them.  This method is also defined as the implicit handler when
coercing this obj <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35782	35879	
==>t try to
extract them.  This method is also defined as the implicit handler when
coercing this obj <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17070	17154	
==>=> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17070	17154	
==>=> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17070	17154	
==>=> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1	95	
==>ackage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERS <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1	95	
==>ackage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERS <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1	95	
==>ackage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERS <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18811	18902	
==>t'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17854	17945	
==>t'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18811	18902	
==>t'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17854	17945	
==>t'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27446	27559	
==>ods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	27	138	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30425	30536	
==>t_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSA <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	27	138	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	27	138	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30425	30536	
==>t_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSA <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30425	30536	
==>t_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2089	2223	
==>node_" . $class->id . " [ dir = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$clas <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2557	2659	
==>method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(S <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6034	6136	
==>method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(S <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4964	5066	
==>method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(S <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35798	35898	
==>..>)

Omitted

=head2 tail

Family: close

Types: tail (C<)> when not in C<(...>)

Omitted

=head2 re <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13347	13440	
==>HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remov <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13347	13440	
==>HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remov <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	863	983	
==>structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	863	983	
==>structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	863	983	
==>structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]-> <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5427	5536	
==>eturn $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    m <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5427	5536	
==>eturn $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    m <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21825	21919	
==>ul to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this dis <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21825	21919	
==>ul to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this dis <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2599	2877	
==>}                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_bloc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16752	16881	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21435	21564	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16752	16881	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21435	21564	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16752	16881	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21435	21564	
==>if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = su <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	9203	9313	
==>find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_ <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9203	9313	
==>find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4779	4885	
==>d_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4779	4885	
==>d_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4779	4885	
==>d_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5013	5111	
==>s the object's internal state.  This should be called as the last 
step of enciphering.

=item C<fi <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5013	5111	
==>s the object's internal state.  This should be called as the last 
step of enciphering.

=item C<fi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2902	3018	
==>f->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2902	3018	
==>f->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2902	3018	
==>f->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1767	1874	
==>d some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1767	1874	
==>d some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1767	1874	
==>d some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not su <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	386	490	
==>olved by $self";
}

sub find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15268	15390	
==>self = shift;
    $self->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	59	172	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	54	167	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	59	172	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	54	167	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	59	172	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	54	167	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4081	4240	
==>sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Sc <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4081	4240	
==>sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Sc <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4081	4240	
==>sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Sc <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	232	327	
==>il_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	288	383	
==>il_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($ <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	232	327	
==>il_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($ <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	288	383	
==>il_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4390	4494	
==>2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't op <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4390	4494	
==>2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't op <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4390	4494	
==>2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't op <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3624	3719	
==>C-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<A <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3624	3719	
==>C-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<A <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	872	965	
==>ucted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as anot <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	872	965	
==>ucted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as anot <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	880	989	
==>s, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	880	989	
==>s, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	880	989	
==>s, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4318	4420	
==>ns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4318	4420	
==>ns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5191	5292	
==>ns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5191	5292	
==>ns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1859	1973	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3422	3536	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1859	1973	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3422	3536	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1859	1973	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3422	3536	
==>d in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They <==
7	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	849	950	
==>ngs, $1!";
    }

=head1 DESCRIPTION

This module provides a Perl interface to use the B<libpcre> libr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5330	5448	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8300	8418	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5330	5448	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8300	8418	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5330	5448	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8300	8418	
==>y ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	3759	3858	
==>d with non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=item B<Tot <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6054	6226	
==>ll, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6054	6226	
==>ll, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6054	6226	
==>ll, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // G <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2532	2684	
==>$^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.ind <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2532	2684	
==>$^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.ind <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20541	20637	
==>e bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has j <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20541	20637	
==>e bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has j <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	883	991	
==>s the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weake <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1248	1353	
==>s the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weake <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	847	952	
==>s the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weake <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1248	1353	
==>s the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weake <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7065	7166	
==>nd the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule operators sh <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6825	6921	
==>nd the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule operators sh <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	6	102	
==>his is the prototype for the Pugs-Compiler-Precedence module - fglock

use Parse::Yapp;
$DEBUG <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1217	1318	
==>t = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5885	5985	
==>tributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first t <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5885	5985	
==>tributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8082	8182	
==>tributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first t <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2651	2742	
==>t_all_children returns Array of Tree { @!children }

## ------------------------------------ <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2651	2742	
==>t_all_children returns Array of Tree { @!children }

## ------------------------------------ <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6173	6259	
==>w+)\s+{([^}]*)}(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	344	462	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	342	460	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	344	462	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	342	460	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	344	462	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	342	460	
==>tion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLO <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9981	10088	
==>ist => $a),
				type::operator::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator::nary <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2024	2171	
==>from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from, <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2024	2171	
==>from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from, <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2024	2171	
==>from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from, <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1836	1947	
==>from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6636	6734	
==>rom + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6636	6734	
==>rom + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6636	6734	
==>rom + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1436	1558	
==>$self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1436	1558	
==>$self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1436	1558	
==>$self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Priv <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14344	14452	
==>ph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6121	6219	
==>= undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6121	6219	
==>= undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6121	6219	
==>= undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18715	18850	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15953	16088	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18715	18850	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15953	16088	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18715	18850	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15953	16088	
==>an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1757	1865	
==>) instead.
sub ok ($@) {
    my ($pass, $name, @mess) = @_;
    _ok($pass, _where(), $name, @mess);
}

sub _q <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14859	14979	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19558	19678	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14859	14979	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19558	19678	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14859	14979	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19558	19678	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $ <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1063	1179	
==>nternals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 o <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	159	291	
==>est ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (S <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2979	3077	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5993	6091	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8061	8159	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2979	3077	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5993	6091	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8061	8159	
==>tr`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant retu <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	733	863	
==>ub atomic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called on @_";
    }

    sub str {
        Carp::croak " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9244	9363	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12217	12336	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9244	9363	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12217	12336	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9244	9363	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12217	12336	
==>'Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7279	7402	
==>' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7279	7402	
==>' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7279	7402	
==>' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$ <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4750	4852	
==>Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4750	4852	
==>Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10488	10577	
==>($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%optio <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10488	10577	
==>($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%optio <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3181	3287	
==>sername hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3181	3287	
==>sername hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3762	3864	
==>sername hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3762	3864	
==>sername hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	418	513	
==>ulti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi su <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	418	513	
==>ulti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi su <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	418	513	
==>ulti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi su <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2911	3013	
==>oftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pu <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3068	3170	
==>oftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pu <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2911	3013	
==>oftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pu <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3068	3170	
==>oftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6472	6566	
==>visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpec <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6472	6566	
==>visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpec <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6472	6566	
==>visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpec <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8581	8761	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6134	6314	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8581	8761	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6134	6314	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8581	8761	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6134	6314	
==>'@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2624	2723	
==>he regexp
struct as a new api into the guts of the perl core.  There being no
documentation, one end <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2747	2846	
==>lass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2747	2846	
==>lass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2747	2846	
==>lass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $se <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5945	6038	
==>1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<g <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1141	1234	
==>1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<g <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5945	6038	
==>1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<g <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1141	1234	
==>1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<g <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5654	5781	
==>ss $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6207	6334	
==>ss $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5847	5974	
==>ss $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6400	6527	
==>ss $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	568	656	
==>=> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	568	656	
==>=> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	568	656	
==>=> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses') <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3865	3981	
==>t<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nic <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3865	3981	
==>t<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nic <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7468	7581	
==>LValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWrit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7468	7581	
==>LValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWrit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7468	7581	
==>LValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWrit <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4397	4507	
==>t<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nic <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4397	4507	
==>t<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nic <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7158	7269	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4717	4828	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7158	7269	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4717	4828	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7158	7269	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4717	4828	
==>my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
7	/Users/nnunley/pugs/util/importgraph.pl	2272	2360	
==>ens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/);

my ($nod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2270	2370	
==>- return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2270	2370	
==>- return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2270	2370	
==>- return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1786	1882	
==>S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1786	1882	
==>S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1786	1882	
==>S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pre <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2699	2794	
==>)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1741	1847	
==>function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1741	1847	
==>function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1741	1847	
==>function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6414	6507	
==>ie "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens) <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5487	5580	
==>ie "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens) <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6414	6507	
==>ie "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens) <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5487	5580	
==>ie "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	647	829	
==>AL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Access <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	647	829	
==>AL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Access <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	647	829	
==>AL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Access <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7958	8118	
==>is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7958	8118	
==>is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7958	8118	
==>is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3457	3557	
==>2->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... got the right x for p <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18123	18253	
==>l => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17161	17291	
==>l => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18123	18253	
==>l => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17161	17291	
==>l => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	163	265	
==>rs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	163	265	
==>rs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	163	265	
==>rs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pS <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10645	10769	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15186	15310	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10645	10769	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15186	15310	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10645	10769	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15186	15310	
==>wever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_t <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	1754	1863	
==>w(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore the prefix on extension modules built fr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10140	10243	
==>------------------------------------  
    # collects all the roles, and applies them to the
    # invoc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10140	10243	
==>------------------------------------  
    # collects all the roles, and applies them to the
    # invoc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10140	10243	
==>------------------------------------  
    # collects all the roles, and applies them to the
    # invoc <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	30923	31019	
==>le/Mapping or a tuple that is identical to the original, in which case
this method returns the id <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35473	35569	
==>le/Mapping or a tuple that is identical to the original, in which case
this method returns the id <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34664	34760	
==>le/Mapping or a tuple that is identical to the original, in which case
this method returns the id <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7328	7424	
==>.

=item $parser->regex($regex)

Clears the parser's memory and sets $regex as the regex to be pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8215	8336	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5774	5895	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8215	8336	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5774	5895	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8215	8336	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5774	5895	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1903	2024	
==>rough our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7997	8146	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5556	5705	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7997	8146	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5556	5705	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7997	8146	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5556	5705	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1685	1834	
==>ad; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierar <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4696	4818	
==>eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13121	13243	
==>eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15732	15854	
==>eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17220	17342	
==>eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21903	22025	
==>eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $sel <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3038	3135	
==>= NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSI <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3038	3135	
==>= NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2155	2287	
==>st unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2155	2287	
==>st unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2155	2287	
==>st unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	334	435	
==>ime_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method f <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	334	435	
==>ime_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method f <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4899	4995	
==>, $cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of b <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4899	4995	
==>, $cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of b <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4005	4158	
==>\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless def <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4005	4158	
==>\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless def <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4531	4676	
==>\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless def <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4531	4676	
==>\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless def <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2191	2300	
==>X;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2191	2300	
==>X;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2191	2300	
==>X;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2980	3132	
==>[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2980	3132	
==>[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2980	3132	
==>[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2161	2283	
==>s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2161	2283	
==>s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2161	2283	
==>s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	519	625	
==>ation-0.0.1 {

    # External packages used by the Relation class, that do export symbols:
    # (None Yet) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23991	24097	
==>t not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to av <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22764	22870	
==>t not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to av <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1776	1882	
==>f($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self-> <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23991	24097	
==>t not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to av <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22764	22870	
==>t not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to av <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1776	1882	
==>f($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1776	1882	
==>f($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9159	9264	
==>_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9159	9264	
==>_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9159	9264	
==>_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16177	16278	
==>_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MUL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16177	16278	
==>_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MUL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16177	16278	
==>_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MUL <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20946	21040	
==><')'> <Statement> <'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rule <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30277	30418	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32006	32147	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30277	30418	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32006	32147	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30277	30418	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32006	32147	
==>y->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "r <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21358	21450	
==>xpression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpression <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1561	1678	
==>b pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $cou <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1561	1678	
==>b pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $cou <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1561	1678	
==>b pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $cou <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24498	24594	
==>and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24498	24594	
==>and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3676	3770	
==>params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on t <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3676	3770	
==>params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	67	176	
==>[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	67	176	
==>[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	67	176	
==>[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2928	3025	
==>on
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2928	3025	
==>on
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2928	3025	
==>on
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $n <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	391	487	
==>/pugs/perl5') for <perl5/*>;
    copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl5/*>;
    cop <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6168	6284	
==>te::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6168	6284	
==>te::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6168	6284	
==>te::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3233	3348	
==>te::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3233	3348	
==>te::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3233	3348	
==>te::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34251	34349	
==>erl.  We will support this with the '&'
metacharacter.

We have added a handler for the '&' metacha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22672	22775	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22902	23005	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22672	22775	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22902	23005	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22672	22775	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22902	23005	
==>_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1745	1845	
==>ift;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flattenning $node " . (eval { $node->struc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8217	8336	
==>.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8217	8336	
==>.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8217	8336	
==>.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5717	5829	
==>airs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5717	5829	
==>airs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5717	5829	
==>airs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      d <==
7	/Users/nnunley/pugs/util/config_h.pl	574	674	
==>/Pugs.pm" or die $!;
open OUT, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) {
    /versi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7373	7520	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4932	5079	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7373	7520	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4932	5079	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7373	7520	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4932	5079	
==>seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4557	4665	
==>ead2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Pack <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4718	4821	
==>wo options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4718	4821	
==>wo options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6242	6345	
==>wo options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35135	35232	
==>branch>,
which is used when two of the same node are matched in succession.  We
also inherit visua <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4410	4506	
==>HS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4410	4506	
==>HS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4410	4506	
==>HS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[ <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14524	14648	
==>p::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6795	6900	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9765	9870	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6795	6900	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9765	9870	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6795	6900	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9765	9870	
==>turn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6338	6495	
==>m.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Gra <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5422	5525	
==>ainer_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5422	5525	
==>ainer_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6012	6115	
==>ainer_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self-> <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28450	28542	
==>ng> says which attributes are being combined/wrapped, with
its keys being the new tuple-value <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33002	33094	
==>ng> says which attributes are being combined/wrapped, with
its keys being the new tuple-value <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32130	32222	
==>ng> says which attributes are being combined/wrapped, with
its keys being the new tuple-value <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5819	5926	
==>span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $. <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5819	5926	
==>span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $. <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	257	359	
==>a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	257	359	
==>a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5404	5504	
==>exical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5404	5504	
==>exical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5404	5504	
==>exical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fix <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14994	15092	
==>hor's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers for C<< < >> and C<< > >> anch <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25209	25304	
==>the same change to an object when the permutation of its
arguments and any invocant object's att <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11340	11435	
==>the same change to an object when the permutation of its
arguments and any invocant object's att <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14613	14708	
==>the same change
to an object when the permutation of its arguments and any invocant
object's att <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25209	25304	
==>the same change to an object when the permutation of its
arguments and any invocant object's att <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11340	11435	
==>the same change to an object when the permutation of its
arguments and any invocant object's att <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14613	14708	
==>the same change
to an object when the permutation of its arguments and any invocant
object's att <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2698	2817	
==>pril   May      June
               July    August   September October November December>;
method month_name returns Str <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	5601	5680	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	5775	5854	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	5965	6044	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5601	5680	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5775	5854	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5965	6044	
==>4)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23833	23970	
==>ag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13337	13466	
==>ag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13337	13466	
==>ag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13337	13466	
==>ag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	52	161	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	52	161	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	52	161	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	97	341	
==>bols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values us <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	97	341	
==>bols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5103	5285	
==>lar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            } <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5103	5285	
==>lar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            } <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5103	5285	
==>lar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6483	6573	
==>->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11541	11631	
==>->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7659	7794	
==>Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7659	7794	
==>Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7659	7794	
==>Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	2733	2852	
==>line;
    has Str $.subname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.params;   # FIXME: needs attention <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4473	4566	
==>PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Intern <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4473	4566	
==>PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Intern <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4473	4566	
==>PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Intern <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1546	1650	
==>ared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# T <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1546	1650	
==>ared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# T <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1546	1650	
==>ared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# T <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18834	18926	
==>n if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17877	17969	
==>n if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18834	18926	
==>n if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17877	17969	
==>n if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4924	5044	
==>for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4924	5044	
==>for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4924	5044	
==>for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8214	8306	
==>a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symm <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7344	7436	
==>a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symm <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8214	8306	
==>a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symm <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7344	7436	
==>a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1	114	
==>ackage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1	114	
==>ackage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1	114	
==>ackage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8874	8966	
==>=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is f <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3803	3895	
==>=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is f <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8874	8966	
==>=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is f <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3803	3895	
==>=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is f <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	390	560	
==>~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($st <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	390	560	
==>~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19109	19221	
==>LOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    P <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19109	19221	
==>LOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12701	12800	
==>instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12701	12800	
==>instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12701	12800	
==>instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11453	11571	
==>&& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11453	11571	
==>&& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11453	11571	
==>&& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	3579	3678	
==>EBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBU <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3579	3678	
==>EBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBU <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33095	33182	
==>isjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37645	37732	
==>isjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11144	11245	
==>ck a F<Regexp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() method o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	718	813	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1238	1333	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	718	813	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1238	1333	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	718	813	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1238	1333	
==>ETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	468	565	
==>y $struct = $node->struct_equiv;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12790	12883	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2802	2895	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12790	12883	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2802	2895	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12790	12883	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2802	2895	
==>add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5067	5185	
==>ft }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $star <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5067	5185	
==>ft }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $star <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5067	5185	
==>ft }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $star <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2777	2894	
==>val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) { <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2777	2894	
==>val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) { <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2777	2894	
==>val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) { <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5287	5392	
==>GE__ . "::$type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15753	15879	
==>utput file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3334	3451	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11892	12009	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6459	6576	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3334	3451	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11892	12009	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6459	6576	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SEL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17561	17728	
==>d for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17561	17728	
==>d for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17561	17728	
==>d for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21561	21704	
==>e::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21561	21704	
==>e::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21561	21704	
==>e::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value <==
7	/Users/nnunley/pugs/util/grokprims.pl	190	295	
==>associative infix',
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    li <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4679	4781	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7615	7717	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4679	4781	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7615	7717	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4679	4781	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7615	7717	
==>th) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the meth <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7072	7169	
==>name, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body);
}
sub code_for_code_CODE { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15575	15707	
==>::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15575	15707	
==>::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15575	15707	
==>::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	75	185	
==>s, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# Th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	75	185	
==>s, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# Th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	75	185	
==>s, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# Th <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24214	24306	
==>pi::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38854	38957	
==>return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38854	38957	
==>return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38854	38957	
==>return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n cl <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10832	10932	
==>name
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4686	4784	
==>=> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4686	4784	
==>=> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4686	4784	
==>=> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pac <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2385	2505	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7479	7599	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2385	2505	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7479	7599	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	3725	3843	
==>module name: $file" unless $module;

        strip_comments($program);
        print $ofh $program;

        print STDE <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10162	10258	
==>aining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also retur <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10162	10258	
==>aining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also retur <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10455	10550	
==>", !.
p56_char_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos(horizontal <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14824	14959	
==>+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14824	14959	
==>+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14824	14959	
==>+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resu <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3168	3303	
==>+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@resu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7232	7331	
==>the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, bl <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7232	7331	
==>the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, bl <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31036	31130	
==>l_handler(@handle_names)

This uninstalls the given handles.  You send the names (like '|' or
' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3914	4018	
==>postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3914	4018	
==>postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3914	4018	
==>postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$ <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	438	536	
==>ee returns Void {
    $:type_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_child <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2929	3026	
==>rl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2929	3026	
==>rl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2929	3026	
==>rl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Pe <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6990	7092	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6120	6222	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2774	2876	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2774	2876	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6990	7092	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6120	6222	
==>ns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    ! <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19907	20000	
==>ring_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1870	1965	
==>ss, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1870	1965	
==>ss, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1870	1965	
==>ss, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20509	20603	
==>s strings are usally left alone by
compilers. After all the compilers have finished, the digest <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20509	20603	
==>s strings are usally left alone by
compilers. After all the compilers have finished, the digest <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	11331	11423	
==>tem B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unp <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11331	11423	
==>tem B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unp <==
7	/Users/nnunley/pugs/blib6/lib/fp.pm	1233	1376	
==> &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key  <==
7	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1233	1376	
==> &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key  <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	226	333	
==>\} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	226	333	
==>\} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6450	6546	
==>refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6450	6546	
==>refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6450	6546	
==>refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5229	5372	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8199	8342	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5229	5372	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8199	8342	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5229	5372	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8199	8342	
==>ssed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts f <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7553	7661	
==>esult1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2_16;
    return $Resul <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3789	3914	
==>);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #retu <==
7	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1889	2014	
==>);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #retu <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1054	1168	
==>pital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1054	1168	
==>pital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13873	13974	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13873	13974	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13873	13974	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11077	11191	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8630	8744	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11077	11191	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8630	8744	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11077	11191	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8630	8744	
==>ck = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != - <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9260	9363	
==>Switches, $ENV{HARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $fil <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5028	5177	
==>{
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$o <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5028	5177	
==>{
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1449	1582	
==>variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1449	1582	
==>variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14761	14871	
==>t yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14761	14871	
==>t yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14761	14871	
==>t yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4159	4440	
==>$arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1467	1593	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3030	3156	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1467	1593	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3030	3156	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1467	1593	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3030	3156	
==>$?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	909	1025	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	997	1113	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	909	1025	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	997	1113	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	909	1025	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	997	1113	
==>lsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      p <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4741	4834	
==>\> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_set> <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3514	3648	
==>$bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gra <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3707	3841	
==>$bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gra <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3012	3112	
==>iag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_tes <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3012	3112	
==>iag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_tes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3092	3192	
==>iag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_tes <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5370	5462	
==>d1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

=c <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5370	5462	
==>d1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

=c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4005	4189	
==>t_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12300	12425	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3922	4047	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12300	12425	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3922	4047	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12300	12425	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3922	4047	
==>/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_M <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	540	674	
==>n res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	540	674	
==>n res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	540	674	
==>n res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18060	18177	
==>eout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ra <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17098	17215	
==>eout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ra <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18060	18177	
==>eout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ra <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17098	17215	
==>eout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ra <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14256	14369	
==>, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6592	6705	
==>:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- th <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14256	14369	
==>, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6592	6705	
==>:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6592	6705	
==>:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- th <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2517	2608	
==>------------------------------
## getting children

method get_child ($self: Int $index) ret <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2517	2608	
==>------------------------------
## getting children

method get_child ($self: Int $index) ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1866	2020	
==>n sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6801	6955	
==>n sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experi <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1648	1794	
==>n sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experi <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6577	6723	
==>n sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1648	1794	
==>n sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16971	17071	
==>6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Per <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16971	17071	
==>6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Per <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14619	14722	
==>::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14619	14722	
==>::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14619	14722	
==>::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_i <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8619	8721	
==>s in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7588	7690	
==>s in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8619	8721	
==>s in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7588	7690	
==>s in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3555	3700	
==>(\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3543	3688	
==>(\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	4	102	
==>sr/bin/perl

package Blondie::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondi <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25098	25183	
==>S

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ne <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23862	23947	
==>S

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ne <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25098	25183	
==>S

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ne <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23862	23947	
==>S

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	576	714	
==>t)) 
                unless defined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLASS- <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	933	1047	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1301	1415	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1807	1921	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	933	1047	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1301	1415	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1807	1921	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3152	3276	
==>imitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3152	3276	
==>imitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3152	3276	
==>imitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2447	2567	
==>:Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gramm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2587	2707	
==>:Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gramm <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5649	5738	
==>{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<fro <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5649	5738	
==>{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<fro <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	410	509	
==>) is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	955	1054	
==>) is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	410	509	
==>) is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	955	1054	
==>) is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	955	1054	
==>) is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32504	32597	
==>m C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37054	37147	
==>m C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8159	8304	
==>ule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4519	4664	
==>ule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5368	5513	
==>ule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6957	7067	
==>.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6957	7067	
==>.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6957	7067	
==>.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3715	3817	
==>::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P6Rule", <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	684	786	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1204	1306	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	684	786	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1204	1306	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	684	786	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1204	1306	
==>(args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undef <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2453	2536	
==>ndirect_typed_value($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $t <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9566	9697	
==>mper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10402	10533	
==>mper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gram <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	742	840	
==>ehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( St <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	742	840	
==>ehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1298	1396	
==>ehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( St <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37023	37116	
==>ranslator class also has these utility methods, which are all used by
translate_message() to h <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37023	37116	
==>ranslator class also has these utility methods, which are all used by
translate_message() to h <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1173	1308	
==>d_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:< <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	3448	3552	
==>of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6925	7029	
==>of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5882	5986	
==>of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2481	2581	
==>ormal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2481	2581	
==>ormal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2481	2581	
==>ormal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11178	11313	
==>> 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    jo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36698	36795	
==>source relation has zero
tuples, in which case the result does too.  Another trivial case is if an <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41247	41344	
==>source relation has zero
tuples, in which case the result does too.  Another trivial case is if an <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40870	40967	
==>source relation has zero
tuples, in which case the result does too.  Another trivial case is if an <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3039	3133	
==><params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If cal <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3039	3133	
==><params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If cal <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	3897	3983	
==>self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that_should_be} = $class <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	20844	21008	
==>ngth = fun(
    param => "xs",
    body => let(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                para <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4166	4289	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6815	6938	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4399	4519	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10848	10968	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4399	4519	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10848	10968	
==>ch->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1853	1971	
==>iverse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless d <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1853	1971	
==>iverse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	106	206	
==>r can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	106	206	
==>r can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	106	206	
==>r can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-1 <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5874	5968	
==>ctually enciphers the data.  They may choose, however, to override 
any method for speed--altho <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5874	5968	
==>ctually enciphers the data.  They may choose, however, to override 
any method for speed--altho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13790	13930	
==>]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13790	13930	
==>]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13790	13930	
==>]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatche <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	7084	7189	
==>Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supporte <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1424	1523	
==>Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supporte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1424	1523	
==>Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supporte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1424	1523	
==>Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supporte <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2084	2195	
==>y $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $self );
}

1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	334	418	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1493	1577	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	334	418	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1493	1577	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	334	418	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1493	1577	
==>and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7331	7466	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4890	5025	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7331	7466	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4890	5025	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7331	7466	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4890	5025	
==>cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4670	4766	
==>nitrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in or <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15040	15172	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19738	19870	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15040	15172	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19738	19870	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15040	15172	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19738	19870	
==>elf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and <==
7	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1136	1232	
==>y by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This prog <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4448	4580	
==>> sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4448	4580	
==>> sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4448	4580	
==>> sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Val <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5470	5572	
==>et {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4600	4702	
==>et {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5470	5572	
==>et {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4600	4702	
==>et {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30235	30368	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31964	32097	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30235	30368	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31964	32097	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30235	30368	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31964	32097	
==>$length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_ <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	8568	8669	
==>plate->param(files       => [sort {$a->{file} cmp $b->{file}} @files ]); 
    print $fh $template->out <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4324	4425	
==>union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3451	3552	
==>union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4324	4425	
==>union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3451	3552	
==>union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	31	118	
==>als
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fun <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	31	118	
==>als
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fun <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	31	118	
==>als
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fun <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3572	3678	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8856	8962	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3823	3927	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10241	10345	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8545	8649	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3823	3927	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10241	10345	
==>y $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18217	18349	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15455	15587	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18217	18349	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15455	15587	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18217	18349	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15455	15587	
==>espoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-e <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2258	2362	
==>SION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16082	16251	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20799	20968	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16082	16251	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20799	20968	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16082	16251	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20799	20968	
==>{ 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::M <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	343	448	
==>Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self = $ <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12426	12517	
==>looking at.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment($line, \$comment) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5460	5571	
==>f) . "::FLAG_$seq" } = $func;
}


sub del_flag {
  my ($self, @flags) = @_;
  no strict 'refs';
  my $stash = \% <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13799	13905	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14173	14279	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13799	13905	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14173	14279	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13799	13905	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14173	14279	
==>ary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14771	14875	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12025	12129	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14771	14875	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12025	12129	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14771	14875	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12025	12129	
==>f, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	3	107	
==>ule Prelude-0.0.1;

use v6;


=kwid

There are a couple of things going on here.

* These are perl6 imple <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3491	3597	
==>r("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic) <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3491	3597	
==>r("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic) <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1756	1856	
==>ethod contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is co <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1756	1856	
==>ethod contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5935	6034	
==>original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5935	6034	
==>original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5935	6034	
==>original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	309	426	
==>r res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < mi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	309	426	
==>r res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < mi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	309	426	
==>r res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < mi <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	726	830	
==>the existence of what would
  be useful, and we'll do it later.

=cut
###*** Value types - numeric

macro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3900	3996	
==>if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3900	3996	
==>if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3900	3996	
==>if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------------------------------- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7695	7823	
==>debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12036	12164	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2493	2618	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9265	9390	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7435	7560	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2493	2618	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9265	9390	
==>debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	459	579	
==>urce };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15854	15972	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13104	13222	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15854	15972	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13104	13222	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15854	15972	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13104	13222	
==>must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14622	14725	
==>un::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_init <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14622	14725	
==>un::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_init <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14622	14725	
==>un::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_init <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4161	4262	
==>thod is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

metho <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4161	4262	
==>thod is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

metho <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	398	498	
==>thod is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

metho <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	398	498	
==>thod is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

metho <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5879	6045	
==>q $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	79	182	
==>> $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	79	182	
==>> $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	79	182	
==>> $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35205	35297	
==>multi-method is a generic binary relational operator that is identical
to C<join> except that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39755	39847	
==>multi-method is a generic binary relational operator that is identical
to C<join> except that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39315	39407	
==>multi-method is a generic binary relational operator that is identical
to C<join> except that <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4729	4840	
==>t;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4729	4840	
==>t;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4729	4840	
==>t;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{i <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6818	6912	
==>O

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4170	4264	
==>O

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6818	6912	
==>O

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4170	4264	
==>O

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9216	9336	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12189	12309	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9216	9336	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12189	12309	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9216	9336	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12189	12309	
==>@Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Priv <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33257	33354	
==>l arguments sent are the walking stack and the current
depth in the walking stack.  Elements are t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9949	10089	
==>$my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@na <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9949	10089	
==>$my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@na <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9949	10089	
==>$my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10515	10627	
==>owing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10515	10627	
==>owing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10515	10627	
==>owing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	91	187	
==>e::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11399	11528	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2911	3040	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11399	11528	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2911	3040	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11399	11528	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2911	3040	
==>()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < a <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3456	3559	
==>it (a digit)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12045	12161	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_a <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6612	6728	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12045	12161	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_a <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6612	6728	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16843	16942	
==>$::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16843	16942	
==>$::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16843	16942	
==>$::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$:: <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14068	14201	
==>anstable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4153	4274	
==>anstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4153	4274	
==>anstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4153	4274	
==>anstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2370	2488	
==>e
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2370	2488	
==>e
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2370	2488	
==>e
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7524	7657	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5083	5216	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7524	7657	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5083	5216	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7524	7657	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5083	5216	
==>nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1482	1586	
==>s if we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $se <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4672	4792	
==>= shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13097	13217	
==>= shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15708	15828	
==>= shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17196	17316	
==>= shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21879	21999	
==>= shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      e <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	8623	8734	
==>/
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5: <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8623	8734	
==>/
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5: <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21155	21275	
==>n','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    no strict 'ref <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5399	5507	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6667	6775	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10929	11037	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5399	5507	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6655	6763	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11079	11187	
==>X XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4840	4958	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7489	7607	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5055	5167	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11504	11616	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5055	5167	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11504	11616	
==>len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node' <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1490	1586	
==>gs ||= list->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5026	5165	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5987	6126	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5026	5165	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5987	6126	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5026	5165	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5987	6126	
==>rement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'r <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	121	209	
==>"
package Module::Install::Makefile::Version;
use Module::Install::Base; @ISA = qw(Module <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9547	9674	
==>ength($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9547	9674	
==>ength($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9547	9674	
==>ength($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25474	25570	
==>provided that you include the source
code of the other components when and as the GPL requires di <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6520	6616	
==>,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,' <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6520	6616	
==>,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,' <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25474	25570	
==>provided that you include the source
code of the other components when and as the GPL requires di <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6916	7011	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6046	6141	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2700	2795	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2700	2795	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6916	7011	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6046	6141	
==>$one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.inc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8067	8159	
==>right return value from another Object singleton/class method called by Foo');

is($Foo->sing <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7456	7576	
==>{_is_vms} ) {
        eval q{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $results{'exit'} = _wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14929	15027	
==>m_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14929	15027	
==>m_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14929	15027	
==>m_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3644	3741	
==>l { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  ope <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3644	3741	
==>l { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  ope <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3644	3741	
==>l { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  ope <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22423	22589	
==>ar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22423	22589	
==>ar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22423	22589	
==>ar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sca <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21768	21866	
==>r the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20649	20747	
==>r the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21768	21866	
==>r the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20649	20747	
==>r the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30504	30640	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32218	32354	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30504	30640	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32218	32354	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30504	30640	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32218	32354	
==>ength;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3517	3624	
==>h must be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11689	11829	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9242	9382	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11689	11829	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9242	9382	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11689	11829	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9242	9382	
==>goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->su <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5868	5969	
==>\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::Compiler::Rule->c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6025	6194	
==>'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # } <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6025	6194	
==>'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # } <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6025	6194	
==>'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # } <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24127	24222	
==>tomatically sending something
  in response to something it received.  This is typically used by <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22900	22995	
==>tomatically sending something
  in response to something it received.  This is typically used by <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24127	24222	
==>tomatically sending something
  in response to something it received.  This is typically used by <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22900	22995	
==>tomatically sending something
  in response to something it received.  This is typically used by <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6837	6946	
==>_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6837	6946	
==>_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $sel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6837	6946	
==>_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $sel <==
7	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	679	784	
==>[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runnin <==
7	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	679	784	
==>[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runnin <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2363	2452	
==>lf.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $ot <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2363	2452	
==>lf.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $ot <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	40	142	
==>grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	40	142	
==>grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20699	20800	
==>->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17120	17221	
==>->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1328	1418	
==>t, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1328	1418	
==>t, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1328	1418	
==>t, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	664	766	
==>Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3735	3837	
==>Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	664	766	
==>Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3735	3837	
==>Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2495	2593	
==>0000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2495	2593	
==>0000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2495	2593	
==>0000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	615	747	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	615	747	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	993	1094	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(boun <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2593	2694	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(boun <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12782	12866	
==>n::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12782	12866	
==>n::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12782	12866	
==>n::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1323	1423	
==>esult2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Protot <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6644	6741	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5774	5871	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2428	2525	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2428	2525	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6644	6741	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5774	5871	
==>l unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $o <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2778	2897	
==>n ) {
        delete $args->{SIGN};
    }

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6181	6296	
==>erl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6181	6296	
==>erl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6181	6296	
==>erl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3246	3360	
==>erl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3246	3360	
==>erl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3246	3360	
==>erl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pack <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3102	3232	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6095	6225	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3375	3498	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9793	9916	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3375	3498	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9793	9916	
==>greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gree <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	642	745	
==>::Heading class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example:: <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1911	2022	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2273	2384	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2582	2693	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1911	2022	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2273	2384	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2582	2693	
==>splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	24845	24934	
==>r::arrow->new(
		type::variable::free->new,
		type::operator::arrow->new(
			type::variabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3020	3155	
==>lf)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18301	18430	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15539	15668	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18301	18430	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15539	15668	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18301	18430	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15539	15668	
==>->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33034	33236	
==>l6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33034	33236	
==>l6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33034	33236	
==>l6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->s <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4259	4391	
==>safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6893	7011	
==>]         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TC <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6893	7011	
==>]         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TC <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6893	7011	
==>]         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9451	9579	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12424	12552	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9451	9579	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12424	12552	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9451	9579	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12424	12552	
==>ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatch <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11159	11266	
==>r of
    tests run -- for example, if a backend only ran three tests, which it
    passed, this page would r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7622	7761	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5181	5320	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7622	7761	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5181	5320	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7622	7761	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5181	5320	
==>tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchin <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	334	426	
==>vars qw($Perl6::Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Per <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4910	5029	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7559	7678	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5123	5236	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11572	11685	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5123	5236	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11572	11685	
==>t};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> r <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	322	434	
==>g not installed -- dir '$meta' does not exist\n" unless -d $meta;
    
    my @list        = LoadFile( $Available <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	244	355	
==>}
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	244	355	
==>}
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	244	355	
==>}
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5836	5980	
==>$from ) ) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep dir structure
            my $tar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	623	729	
==>hat were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	623	729	
==>hat were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	623	729	
==>hat were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16525	16627	
==>};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Cod <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16525	16627	
==>};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Cod <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16525	16627	
==>};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Cod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6179	6361	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6179	6361	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6179	6361	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3652	3833	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3652	3833	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3652	3833	
==>method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                el <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	5273	5370	
==>of the Prelude code is inlined into the executable, to be
"eval"ed when pugs starts.  After the ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	574	693	
==>new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	574	693	
==>new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	574	693	
==>new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25658	25753	
==>setta can sell you an alternate, limited license that allows you to link
Rosetta with non-free s <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25658	25753	
==>setta can sell you an alternate, limited license that allows you to link
Rosetta with non-free s <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	11619	11713	
==>ithout. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinterac <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11619	11713	
==>ithout. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinterac <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15042	15148	
==>$_[0] },
      code  => sub { $as_hash_complain->("code") },
      ref   => sub { $as_hash_complain->("ref" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8531	8635	
==>_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8531	8635	
==>_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8531	8635	
==>_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2343	2441	
==>ule);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2343	2441	
==>ule);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2343	2441	
==>ule);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15011	15186	
==>> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15011	15186	
==>> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15011	15186	
==>> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1171	1292	
==>y => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub prelu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2397	2486	
==>rl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2397	2486	
==>rl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2397	2486	
==>rl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cla <==
7	/Users/nnunley/pugs/util/addauthors.pl	852	992	
==>$a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6470	6592	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9440	9562	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6470	6592	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9440	9562	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6470	6592	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9440	9562	
==>ssMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($meth <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4094	4205	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6743	6854	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4329	4437	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10778	10886	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4329	4437	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10778	10886	
==>Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-ret <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1557	1663	
==>e'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24798	24924	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26987	27113	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24798	24924	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26987	27113	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24798	24924	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26987	27113	
==>lf->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8772	8867	
==>ToUint32($P);
    return if $uint < $A.property_value{'length'};
    $A.property_value{'length'} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	824	971	
==>time::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $2,
        capture => { cpan_bareword => $1 },
    } )
        if $_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	64	152	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	60	148	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	68	156	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	62	150	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	61	149	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	62	150	
==>use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gram <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13497	13602	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10781	10886	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13497	13602	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10781	10886	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13497	13602	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10781	10886	
==>e_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6374	6466	
==>ds{$label} = $method;
}

(method add_method ((opaque $self:) (symbol $label) (method $method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3154	3357	
==>> $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Canno <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2199	2335	
==>dy => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2199	2335	
==>dy => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2199	2335	
==>dy => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11647	11761	
==>r' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11647	11761	
==>r' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11647	11761	
==>r' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4174	4312	
==>:Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ), <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18824	18953	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16062	16191	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18824	18953	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16062	16191	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18824	18953	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16062	16191	
==>paque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	571	688	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	537	654	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	587	704	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	543	660	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	598	715	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	563	680	
==>R::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2153	2265	
==>) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundl <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4861	5012	
==>th_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $ <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4861	5012	
==>th_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	867	967	
==>ft (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also sp <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	867	967	
==>ft (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also sp <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4881	4979	
==>-iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviated to uniqueness <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5874	5958	
==>by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Ti <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5874	5958	
==>by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Ti <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12420	12539	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16931	17050	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12420	12539	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16931	17050	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12420	12539	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16931	17050	
==>t the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the m <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	19212	19315	
==>fun => ide("f"),
			param => val(v => "foo", t => type::operator::nullary->new("str")),
		),
	),
);

# i <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8458	8575	
==>git {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
}
rule SignedInteger <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12652	12783	
==>ined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12652	12783	
==>ined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12652	12783	
==>ined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE <==
7	/Users/nnunley/pugs/util/package-osx.pl	2925	3054	
==>ir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/lib/librea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9708	9822	
==>valX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++." <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9708	9822	
==>valX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++." <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9708	9822	
==>valX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++." <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	794	915	
==>, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	794	915	
==>, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12541	12652	
==>: Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12541	12652	
==>: Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12541	12652	
==>: Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
} <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9251	9345	
==>f Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member cl <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9251	9345	
==>f Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member cl <==
7	/Users/nnunley/pugs/util/func_refact.pl	2603	2708	
==>int "$cand: totall $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	650	775	
==>ery Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4128	4253	
==>ery Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Rel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17978	18093	
==>>unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " . <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17978	18093	
==>>unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " . <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17978	18093	
==>>unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " . <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3553	3652	
==>nd.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the k <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3553	3652	
==>nd.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the k <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7972	8131	
==>return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7972	8131	
==>return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7972	8131	
==>return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4943	5072	
==>,
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    = <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4943	5072	
==>,
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    = <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11059	11161	
==>mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.ci <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11059	11161	
==>mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.ci <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13582	13704	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10866	10988	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13582	13704	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10866	10988	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13582	13704	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10866	10988	
==>private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess " <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5337	5442	
==>o the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11362	11463	
==>:Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5656	5755	
==>piler processes



### separate "processes" from actual module documentation?



=head2 Grammar engi <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5461	5556	
==>piler processes

### separate "processes" from actual module documentation?

=head2 Grammar engi <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14030	14123	
==>tring with their entity
representation. A second argument can be given to specify which
charac <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1818	1911	
==>:Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $. <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14030	14123	
==>tring with their entity
representation. A second argument can be given to specify which
charac <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1818	1911	
==>:Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9604	9726	
==>key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9604	9726	
==>key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9604	9726	
==>key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxe <==
7	/Users/nnunley/pugs/util/func_refact.pl	1151	1262	
==>set size is " . scalar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\%cc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14237	14323	
==>iner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instan <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14237	14323	
==>iner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instan <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14237	14323	
==>iner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instan <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5876	6077	
==>ine\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::E <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5876	6077	
==>ine\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::E <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3237	3436	
==>ine\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::E <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3237	3436	
==>ine\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::E <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11094	11279	
==>is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $arg <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	15763	15860	
==>force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15821	15918	
==>force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3863	3992	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6799	6928	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3863	3992	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6799	6928	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3863	3992	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6799	6928	
==>an only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	140	241	
==>Data::Dumper;

our $operator;

# TODO - implement the "magic hash" dispatcher
our %hash;

#our @subrou <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7030	7178	
==>, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name, <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7030	7178	
==>, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11591	11704	
==>q 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringif <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11591	11704	
==>q 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringif <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11591	11704	
==>q 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringif <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1177	1279	
==>ompiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1177	1279	
==>ompiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11663	11759	
==>s in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given it <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8810	8906	
==>s in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given it <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11663	11759	
==>s in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given it <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8810	8906	
==>s in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given it <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5489	5582	
==>the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping the <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5489	5582	
==>the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7013	7106	
==>the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping the <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8788	8926	
==>r[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8788	8926	
==>r[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8788	8926	
==>r[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6278	6383	
==>lf: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -I <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6278	6383	
==>lf: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -I <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2609	2703	
==>[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2609	2703	
==>[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	72	174	
==>oot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	72	174	
==>oot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	72	174	
==>oot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_( <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	19787	19879	
==>e "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS::Internals::use_jsa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11895	11983	
==>I SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11895	11983	
==>I SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11895	11983	
==>I SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($x <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2594	2735	
==>$off + $size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_chan <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	210	332	
==>$host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # En <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	214	336	
==>$host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # En <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	210	332	
==>$host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # En <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	214	336	
==>$host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # En <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	951	1052	
==>gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr') <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	951	1052	
==>gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr') <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4872	5003	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7808	7939	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4872	5003	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7808	7939	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4872	5003	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7808	7939	
==>re to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	18279	18389	
==>param => val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo") <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5044	5162	
==>: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5044	5162	
==>: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5044	5162	
==>: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1709	1805	
==>o Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2475	2570	
==>mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Tes <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2475	2570	
==>mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Tes <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2555	2650	
==>mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Tes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7857	7998	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5416	5557	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7857	7998	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5416	5557	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7857	7998	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5416	5557	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1545	1686	
==>n just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6650	6772	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9620	9742	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6650	6772	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9620	9742	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6650	6772	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9620	9742	
==>hod => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($me <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4671	4770	
==>s with any such syntactic shenanigans, the declaration must be visible
    in the lexical scope to h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25540	25649	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27735	27844	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25540	25649	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27735	27844	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25540	25649	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27735	27844	
==>umeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9505	9602	
==>ent.getElementById("details_"  + id),
          expander = document.getElementById("expander_" + i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3956	4065	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6605	6714	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4194	4300	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10643	10749	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4194	4300	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10643	10749	
==>'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4467	4557	
==>t(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub node::access_hashref_eleme <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4156	4278	
==>',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_ <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4156	4278	
==>',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1006	1128	
==>',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11134	11244	
==>isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11134	11244	
==>isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11134	11244	
==>isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1354	1470	
==>$Control
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$src <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13287	13391	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10571	10675	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13287	13391	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10571	10675	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13287	13391	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10571	10675	
==>params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_inst <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2907	3108	
==>o     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have them.
    $self->{to <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3051	3168	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10974	11091	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6176	6293	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3051	3168	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10974	11091	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6176	6293	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7793	7928	
==>( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7793	7928	
==>( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7793	7928	
==>( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2132	2252	
==>leop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capt <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11000	11120	
==>leop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capt <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2325	2445	
==>leop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capt <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11279	11399	
==>leop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18873	19017	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16111	16255	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18873	19017	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16111	16255	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18873	19017	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16111	16255	
==>bel};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1487	1576	
==>$([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/ <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1450	1552	
==>closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrenc <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1450	1552	
==>closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrenc <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38082	38172	
==>ned value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38082	38172	
==>ned value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4205	4294	
==>e, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4205	4294	
==>e, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6402	6491	
==>e, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4166	4286	
==>f $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/un <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4166	4286	
==>f $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/un <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3926	4045	
==>_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3926	4045	
==>_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	776	895	
==>_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3402	3504	
==>Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3402	3504	
==>Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7238	7363	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4797	4922	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7238	7363	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4797	4922	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7238	7363	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4797	4922	
==>if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	549	662	
==>More tests => 46;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instanc <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13140	13254	
==>\&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21190	21304	
==>\&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13419	13533	
==>\&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21469	21583	
==>\&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11099	11184	
==>5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6')) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11099	11184	
==>5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6')) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11099	11184	
==>5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6')) <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	15957	16143	
==>=> @tm[2],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    = <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2741	2857	
==>elves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alread <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2741	2857	
==>elves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alread <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2389	2487	
==>(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "inf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2389	2487	
==>(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "inf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2389	2487	
==>(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "inf <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	39	135	
==>thod hallo () { "Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $we <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5995	6126	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8965	9096	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5995	6126	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8965	9096	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5995	6126	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8965	9096	
==>(" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub : <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17773	17882	
==>$start,$X::pos);
      return $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1169	1287	
==>info =~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repodi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20036	20149	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17175	17288	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20036	20149	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17175	17288	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20036	20149	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17175	17288	
==>butes are just package scoped "our" variables
        # so they are added to the Package normally
        return $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	80	180	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	77	177	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9169	9268	
==>g === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation::Example *@ot <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	75	170	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	69	164	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	75	170	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	69	164	
==>ocumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Rege <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10286	10413	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7837	7964	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10286	10413	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7837	7964	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10286	10413	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7837	7964	
==>$current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) { <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3488	3610	
==>||= 'unknown';
    $values{distribution_type} ||= 'module';
    $values{name}              ||= do {
        my $name = $val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7924	8088	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5483	5647	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7924	8088	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5483	5647	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7924	8088	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5483	5647	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1612	1776	
==>xists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, re <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13752	13896	
==>y $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3873	4005	
==>y $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3873	4005	
==>y $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3873	4005	
==>y $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10762	10863	
==>a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incd <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10762	10863	
==>a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incd <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10762	10863	
==>a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incd <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2287	2471	
==>et_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2204	2323	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11072	11191	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12031	12150	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2397	2516	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11351	11470	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12310	12429	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optiona <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3283	3385	
==>il, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3283	3385	
==>il, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5912	6012	
==>new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat($accum);
}

sub free_vars { $_[0] }

package <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24270	24365	
==>er interactive program controlling their
  actions) which are always seen to be replying lest th <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23043	23138	
==>er interactive program controlling their
  actions) which are always seen to be replying lest th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24270	24365	
==>er interactive program controlling their
  actions) which are always seen to be replying lest th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23043	23138	
==>er interactive program controlling their
  actions) which are always seen to be replying lest th <==
7	/Users/nnunley/pugs/util/file_to_hs.pl	642	757	
==>"\"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: $!" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12658	12746	
==>strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12658	12746	
==>strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12658	12746	
==>strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX: <==
7	/Users/nnunley/pugs/util/build_pugs.pl	3597	3724	
==>. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $ba <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12291	12416	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3913	4038	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12291	12416	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3913	4038	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12291	12416	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3913	4038	
==>See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5028	5167	
==>nerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5028	5167	
==>nerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5028	5167	
==>nerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1034	1153	
==>= none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method incl <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1034	1153	
==>= none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method incl <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	21485	21582	
==>ributes may store values of the same class;
every Relation tuple must be distinct from the other t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26037	26134	
==>ributes may store values of the same class;
every Relation tuple must be distinct from the other t <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	6742	6846	
==>my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e){ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1182	1282	
==>my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1182	1282	
==>my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1182	1282	
==>my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4725	4821	
==><?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROL <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4725	4821	
==><?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROL <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6922	7018	
==><?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8897	9040	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11870	12013	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8897	9040	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11870	12013	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8897	9040	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11870	12013	
==>ethod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6: <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3611	3731	
==>ues{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4450	4595	
==>if (   defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && defined $$m->{tail}
                && $$m->{tail} =~ /^[_[:a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12607	12727	
==>f.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $statu <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2973	3089	
==>f.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $statu <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2973	3089	
==>f.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $statu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12049	12160	
==>f.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $statu <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2453	2560	
==>f.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $statu <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2453	2560	
==>f.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $statu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	411	544	
==>nstanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	411	544	
==>nstanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	411	544	
==>nstanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2340	2456	
==>pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2340	2456	
==>pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2340	2456	
==>pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($ <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	1736	1848	
==>"done (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; prin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3380	3522	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8665	8806	
==>ck usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3639	3776	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10057	10194	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3639	3776	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10057	10194	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8362	8498	
==>ck usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2702	2827	
==>$class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retur <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2702	2827	
==>$class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retur <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2702	2827	
==>$class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retur <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	8844	8955	
==>k $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($ <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8844	8955	
==>k $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13388	13494	
==>=~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^ <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13388	13494	
==>=~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4422	4591	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4422	4591	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4422	4591	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => su <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10366	10465	
==>. Returns the number of items
inserted.

It is not fatal to insert an item which is already inserted <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8259	8358	
==>. Returns the number of items inserted.

It is not fatal to insert an item which is already inserted <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10366	10465	
==>. Returns the number of items
inserted.

It is not fatal to insert an item which is already inserted <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8259	8358	
==>. Returns the number of items inserted.

It is not fatal to insert an item which is already inserted <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10700	10827	
==>{
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });


  ### '('

  $self->ad <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2997	3115	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10920	11038	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6122	6240	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2997	3115	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10920	11038	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6122	6240	
==>rg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4614	4749	
==>required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to } <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5266	5401	
==>required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2497	2599	
==>ap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2497	2599	
==>ap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2497	2599	
==>ap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4945	5045	
==>1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4945	5045	
==>1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub matc <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	10006	10114	
==>(in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCT <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7946	8054	
==>(in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCT <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10006	10114	
==>(in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCT <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7946	8054	
==>(in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCT <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1936	2025	
==>rnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1936	2025	
==>rnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1936	2025	
==>rnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5495	5607	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3615	3727	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5495	5607	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3615	3727	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5495	5607	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3615	3727	
==>perclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$super <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1023	1126	
==>$self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $_[0] } }

	su <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1915	2049	
==>averse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traverse;
        say '  ' x $dep <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4869	4986	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7518	7635	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5083	5194	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11532	11643	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5083	5194	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11532	11643	
==>pture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the <==
7	/Users/nnunley/pugs/util/config_h.pl	680	785	
==>S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#d <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3383	3543	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8668	8827	
==>usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XX <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3642	3795	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10060	10213	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3642	3795	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10060	10213	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8365	8517	
==>usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XX <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7639	7772	
==>= shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11980	12113	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2439	2568	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9211	9340	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7381	7510	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2439	2568	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9211	9340	
==>= shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4571	4706	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7220	7355	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4794	4924	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11243	11373	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4794	4924	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11243	11373	
==>return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #wa <==
7	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	242	343	
==>d (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3771	3913	
==>tate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4017	4152	
==>tate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10466	10601	
==>tate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4017	4152	
==>tate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10466	10601	
==>tate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1177	1273	
==>t &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname() <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1173	1264	
==>t &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname() <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5596	5698	
==>ti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4726	4828	
==>ti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5596	5698	
==>ti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4726	4828	
==>ti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6451	6536	
==>ribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:au <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6451	6536	
==>ribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:au <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6451	6536	
==>ribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:au <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8353	8480	
==>s
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8353	8480	
==>s
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8353	8480	
==>s
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5626	5730	
==>xed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5626	5730	
==>xed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5626	5730	
==>xed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8231	8328	
==>rray references to the sub
array.

In Scalar context, they all return the count of elements that w <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2263	2373	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2263	2373	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2263	2373	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3861	3969	
==>);
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Sp <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3861	3969	
==>);
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Sp <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1721	1828	
==>);
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Sp <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1721	1828	
==>);
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Sp <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3107	3826	
==>ading

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relat <==
7	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	872	998	
==>l = undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13175	13271	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4345	4441	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8801	8897	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13175	13271	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4345	4441	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8801	8897	
==>only as the name-sake
representative for this whole file, which can be referenced as a unit by
do <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7303	7422	
==>method');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1746	1859	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3309	3422	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1746	1859	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3309	3422	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1746	1859	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3309	3422	
==>LER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	95	207	
==>e __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	93	197	
==>e __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	87	191	
==>e __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	93	197	
==>e __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	87	191	
==>e __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20654	20752	
==>oo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fiel <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20654	20752	
==>oo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fiel <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4926	5041	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7575	7690	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5138	5247	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11587	11696	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5138	5247	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11587	11696	
==>$match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2166	2268	
==>ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	574	686	
==>epth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	574	686	
==>epth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	574	686	
==>epth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	11	120	
==>Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )') <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	11	120	
==>Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )') <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	11	120	
==>Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )') <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2132	2237	
==>. $name->to_str->to_native . ") does not exist";        
    return $self->[2]->store($name, $value);
}

s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4170	4339	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4170	4339	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4170	4339	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6696	6851	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6696	6851	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6696	6851	
==>_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ( <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5939	6039	
==>ted_type);

		warn "types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "fillin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15395	15526	
==>} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	639	731	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	961	1053	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1340	1432	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	639	731	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	961	1053	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1340	1432	
==>e every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	617	860	
==>Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	617	860	
==>Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	617	860	
==>Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13306	13434	
==>from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if % <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13306	13434	
==>from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if % <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12394	12514	
==>from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if % <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12394	12514	
==>from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if % <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13541	13701	
==>i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $f <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13541	13701	
==>i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $f <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13541	13701	
==>i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $f <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2426	2586	
==>i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9676	9784	
==>,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Sp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9676	9784	
==>,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Sp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9676	9784	
==>,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Sp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	184	291	
==>Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	188	295	
==>Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	182	289	
==>Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	182	289	
==>Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3502	3601	
==>am{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3502	3601	
==>am{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3502	3601	
==>am{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2578	2682	
==>s;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2578	2682	
==>s;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2578	2682	
==>s;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil h <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12214	12311	
==>alize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16794	16891	
==>alize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12214	12311	
==>alize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16794	16891	
==>alize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2396	2529	
==>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '? <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8955	9088	
==>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '? <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2396	2529	
==>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '? <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8951	9084	
==>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	880	993	
==>=> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAF <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	880	993	
==>=> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAF <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	880	993	
==>=> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAF <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3453	3582	
==>_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { default => '0.0', st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15076	15184	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12330	12438	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15076	15184	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12330	12438	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15076	15184	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12330	12438	
==>instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not rec <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	193	304	
==>'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void i <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	193	304	
==>'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void i <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	193	304	
==>'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void i <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	193	304	
==>'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10679	10780	
==>x] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10679	10780	
==>x] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10679	10780	
==>x] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	669	770	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1189	1290	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	669	770	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1189	1290	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	669	770	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1189	1290	
==>stant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    i <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3067	3164	
==>ase --> Num )
 {
     Pugs::Internals::arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37994	38122	
==>);
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37994	38122	
==>);
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37994	38122	
==>);
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1375	1475	
==>g{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1375	1475	
==>g{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1375	1475	
==>g{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs} <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	20400	20495	
==>only has one subdirectory and no files, collapse
    for my $subdir (keys %{$dir_index->{_dirs}} <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11558	11687	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2552	2681	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7646	7775	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11558	11687	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2552	2681	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7646	7775	
==>ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	440	538	
==>not specified.

=item pool_rel

The path to the pool directory that will be put into the index file <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1093	1228	
==>al_env->next($env);
    bless {
        sig  => $signature,
        body => $body,
        env  => $local_env
    } => $class;
}

# we d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12540	12635	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10091	10186	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12540	12635	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10091	10186	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12540	12635	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10091	10186	
==>== ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9509	9619	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7056	7166	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9509	9619	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7056	7166	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9509	9619	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7056	7166	
==>atcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatche <==
7	/Users/nnunley/pugs/util/ghc_setup.pl	121	217	
==>y-prefix" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec->c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11133	11290	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8686	8843	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11133	11290	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8686	8843	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11133	11290	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8686	8843	
==>turn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current v <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	209	330	
==>se};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2057	2163	
==>The submitted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3612	3717	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6548	6653	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3612	3717	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6548	6653	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3612	3717	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6548	6653	
==>ave to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4971	5111	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5932	6072	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4971	5111	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5932	6072	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4971	5111	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5932	6072	
==>ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF- <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13881	13995	
==>lt = JIB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, auto => 1, package => $inst <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2911	3021	
==>ee[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2437	2573	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4764	4900	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2437	2573	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4764	4900	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2437	2573	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4764	4900	
==>name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            | <==
7	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2067	2182	
==>conf);
    return $conf;
}

sub env_override {
    my($class, $conf) = @_;
    my %env = map { split /=/ } (split /: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5455	5610	
==>>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5455	5610	
==>>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5455	5610	
==>>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	697	804	
==>infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	697	804	
==>infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	697	804	
==>infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defin <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	240	339	
==>) )  };
use constant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir(shift() ) };
use constan <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	667	792	
==>.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	667	792	
==>.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	667	792	
==>.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3008	3115	
==>.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3008	3115	
==>.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3008	3115	
==>.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS. <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	25321	25411	
==>ree->new,
		type::operator::pair->new(
			type::variable::free->new,
			type::variable::fre <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3601	3751	
==>)->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_;
            (blesse <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7679	7796	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10602	10719	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7679	7796	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10602	10719	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7679	7796	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10602	10719	
==>od is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submeth <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	902	1054	
==>"  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	902	1054	
==>"  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4240	4343	
==>them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reble <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4240	4343	
==>them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reble <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4240	4343	
==>them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reble <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	3539	3638	
==>f.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say " <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3539	3638	
==>f.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1762	1884	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1762	1884	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1762	1884	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Pe <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5400	5507	
==>->values;
		my @params;
		my @exps;

		$self->enter_scope;
		while(@children) {
			my $sub = shift @children <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1588	1689	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1588	1689	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1588	1689	
==>her(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24320	24501	
==>it->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24320	24501	
==>it->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => su <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24320	24501	
==>it->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => su <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	2359	2484	
==>ly by  --
--                  util/gen_prelude.pl                       --
--------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1512	1629	
==>ements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qna <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1512	1629	
==>ements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qna <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1512	1629	
==>ements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qna <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13498	13650	
==>dd_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3643	3779	
==>dd_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3643	3779	
==>dd_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3643	3779	
==>dd_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	199	302	
==>obalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	199	302	
==>obalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	199	302	
==>obalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!") <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5205	5382	
==>^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24888	25016	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27077	27205	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24888	25016	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27077	27205	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24888	25016	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27077	27205	
==>unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	204	325	
==>l::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1590	1694	
==>d want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:< <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1590	1694	
==>d want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:< <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1590	1694	
==>d want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4136	4228	
==>You give a name to it so that you can refer to it
    #   > inside, but that name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4136	4228	
==>You give a name to it so that you can refer to it
    #   > inside, but that name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4136	4228	
==>You give a name to it so that you can refer to it
    #   > inside, but that name <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13212	13308	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4382	4478	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8838	8934	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13212	13308	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4382	4478	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8838	8934	
==>for this whole file, which can be referenced as a unit by
documentation or 'use' statements or Pe <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12772	12866	
==>, and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It may not be pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	248	350	
==>my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	248	350	
==>my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	248	350	
==>my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11846	11940	
==>eturns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISIO <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8993	9087	
==>eturns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISIO <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11846	11940	
==>eturns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISIO <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8993	9087	
==>eturns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISIO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9621	9746	
==>();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9621	9746	
==>();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9621	9746	
==>();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class-> <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15854	15953	
==>urn $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolutio <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32684	32780	
==>ata from external Template modules as a template.
The Translator class as a whole is not pure and <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32684	32780	
==>ata from external Template modules as a template.
The Translator class as a whole is not pure and <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2251	2346	
==>urn $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolutio <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4056	4299	
==>st if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not f <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4056	4299	
==>st if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not f <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4468	4566	
==>st description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4468	4566	
==>st description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4548	4646	
==>st description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8679	8766	
==>Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that th <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8679	8766	
==>Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that th <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1192	1296	
==>o ....
    my $supers = $class->get_attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the s <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2212	2346	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11080	11214	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12039	12173	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2405	2539	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11359	11493	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12318	12452	
==>::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop: <==
7	/Users/nnunley/pugs/util/addauthors.pl	680	787	
==>for some hurestics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ / <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11559	11680	
==>e, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11559	11680	
==>e, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	61	171	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	61	171	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	61	171	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	261	370	
==>aram } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	261	370	
==>aram } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	414	536	
==>es %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	414	536	
==>es %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	414	536	
==>es %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_ <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	580	683	
==>rom_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<den <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	580	683	
==>rom_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<den <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14171	14272	
==>m->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1651	1752	
==>m->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2134	2308	
==>p = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referre <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2134	2308	
==>p = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referre <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2134	2308	
==>p = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referre <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8670	8831	
==>p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12577	12732	
==>p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12577	12732	
==>p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^( <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1598	1708	
==>/
		Inline->bind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32309	32474	
==>) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32309	32474	
==>) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32309	32474	
==>) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5172	5268	
==>iling (--link option not given), there has to be only one input file.
In linking mode, multiple i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5172	5268	
==>iling (--link option not given), there has to be only one input file.
In linking mode, multiple i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5172	5268	
==>iling (--link option not given), there has to be only one input file.
In linking mode, multiple i <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1613	1743	
==>name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!para <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1613	1743	
==>name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1282	1400	
==>} => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1282	1400	
==>} => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1282	1400	
==>} => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8226	8331	
==>kind = 'Sub' if $kind eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind =~ s/^Sub(\w+)$/ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11409	11509	
==>din
	die "test.pl:runperl(): none of prog, progs, progfile, args, "
	    . " switches or stdin specif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8136	8266	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5695	5825	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8136	8266	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5695	5825	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8136	8266	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5695	5825	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1824	1954	
==>tent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the hea <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4456	4573	
==>rs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $u <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4456	4573	
==>rs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $u <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2572	2688	
==>def, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($sel <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2572	2688	
==>def, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6156	6263	
==>warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6156	6263	
==>warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6156	6263	
==>warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11345	11524	
==>($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11345	11524	
==>($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11345	11524	
==>($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7601	7696	
==>tric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6731	6826	
==>tric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7601	7696	
==>tric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6731	6826	
==>tric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	7084	7187	
==>n their data...
# this is why this code is so big.

# in a language with native multimetods this would b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4510	4599	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6459	6548	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4510	4599	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6459	6548	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4510	4599	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6459	6548	
==>>type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_cons <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18219	18351	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15457	15589	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18219	18351	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15457	15589	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18219	18351	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15457	15589	
==>poace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13980	14079	
==>RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4882	5003	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7531	7652	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1467	1582	
==>n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Perl6 - <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5096	5210	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11545	11659	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5096	5210	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11545	11659	
==>d;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3019	3144	
==>«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3019	3144	
==>«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3019	3144	
==>«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1982	2087	
==>PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1982	2087	
==>PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1982	2087	
==>PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6246	6349	
==>$s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1394	1517	
==>ess ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return u <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1738	1858	
==>ess ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return u <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1345	1465	
==>ess ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return u <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1738	1858	
==>ess ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7217	7312	
==>(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
})) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7217	7312	
==>(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
})) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7217	7312	
==>(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
})) <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11006	11140	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12477	12611	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14483	14617	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15954	16088	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13791	13925	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15316	15450	
==>ion( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-o <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13911	14018	
==>guments :words {  # see 11.2
      <'('> <')'>
    | <'('> <ArgumentList> <')'>
}
rule ArgumentList :words { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8701	8860	
==>3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8701	8860	
==>3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8701	8860	
==>3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1811	1910	
==>atch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(erro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1811	1910	
==>atch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(erro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1811	1910	
==>atch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(erro <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	182	278	
==>tall::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VER <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3446	3605	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6382	6541	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3446	3605	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6382	6541	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3446	3605	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6382	6541	
==>KAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	976	1067	
==>esult = Blondie::Backend::Foo->run($program);

=head1 DESCRIPTION

The runtime object is res <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1530	1630	
==>$unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1530	1630	
==>$unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1530	1630	
==>$unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	256	355	
==>t (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	256	355	
==>t (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	256	355	
==>t (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .p <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	232	321	
==>st[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Lieblin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5848	5986	
==>ndefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5848	5986	
==>ndefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub { <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5848	5986	
==>ndefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub { <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21115	21211	
==>hich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20023	20119	
==>hich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21115	21211	
==>hich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20023	20119	
==>hich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13283	13400	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18166	18283	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13283	13400	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18166	18283	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13283	13400	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18166	18283	
==>cs the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	111	215	
==>is a very basic first attempt at a primitive 
s-expr compiler to generate p5 code, it's really 
pretty ba <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	827	944	
==>ration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befo <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	569	686	
==>ration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befo <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	827	944	
==>ration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befo <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	569	686	
==>ration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6141	6237	
==>PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6141	6237	
==>PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6141	6237	
==>PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PI <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	688	813	
==>root/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7068	7164	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6198	6294	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2852	2948	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2852	2948	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7068	7164	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6198	6294	
==>ber) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4247	4410	
==>ods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4247	4410	
==>ods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4247	4410	
==>ods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6773	6922	
==>ods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6773	6922	
==>ods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6773	6922	
==>ods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$ <==
7	/Users/nnunley/pugs/docs/feather/~/gen.pl	546	646	
==>glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m[/])[2] => undef } @dir } };

print <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	177	306	
==>hod _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new( <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	177	306	
==>hod _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5099	5190	
==>-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1056	1147	
==>-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	916	1007	
==>-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5099	5190	
==>-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1056	1147	
==>-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and ot <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16631	16809	
==>t = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16631	16809	
==>t = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16631	16809	
==>t = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2969	3073	
==>d_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_cou <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	4231	4335	
==>d_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_cou <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2969	3073	
==>d_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_cou <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4231	4335	
==>d_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_cou <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12752	12888	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19589	19725	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20742	20878	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13031	13167	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19868	20004	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21021	21157	
==>$rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9047	9147	
==>ref($op{'paramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurpy'};

	my $pname = $op{'paramName'};
	pus <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9279	9407	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12252	12380	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9279	9407	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12252	12380	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9279	9407	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12252	12380	
==>package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Pe <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1697	1787	
==>NFIG{'int_width'} == 32,'subset int of int32 where { true }');
Helpers::macif(%?CONFIG{'int <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1648	1826	
==>= $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itsel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1648	1826	
==>= $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itsel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1648	1826	
==>= $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itsel <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4836	4946	
==>rName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PI <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4836	4946	
==>rName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PI <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	290	387	
==>rcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCR <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	290	387	
==>rcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCR <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2109	2221	
==>op::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10977	11089	
==>op::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2302	2414	
==>op::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11256	11368	
==>op::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23003	23104	
==>? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23003	23104	
==>? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23003	23104	
==>? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - s <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4446	4546	
==>" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter types wi <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22142	22238	
==>hen invoking methods on those objects.  All of
their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9415	9511	
==>hen invoking methods on those objects.  All of
their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22142	22238	
==>hen invoking methods on those objects.  All of
their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9415	9511	
==>hen invoking methods on those objects.  All of
their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24510	24605	
==>hen invoking methods on those objects.
All of their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24510	24605	
==>hen invoking methods on those objects.
All of their attributes are private, so you must use acce <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6020	6123	
==>.
HELP

step
  descr  => "Checking for Linux",
  help   => "This program needs Linux to run correctly.", <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2175	2288	
==>c.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3737	3847	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6673	6783	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3737	3847	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6673	6783	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3737	3847	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6673	6783	
==>hod, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1391	1511	
==>d' unless defined \$_[0];\n" .
        "    \$_[0] = '' unless defined \$_[0];\n" .
        #"    print 'GRAMMAR: \$gramm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3599	3706	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6535	6642	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3599	3706	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6535	6642	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3599	3706	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6535	6642	
==>mitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	292	413	
==>0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair inst <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	292	413	
==>0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair inst <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	292	413	
==>0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair inst <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	968	1086	
==>f.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	968	1086	
==>f.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	968	1086	
==>f.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2073	2168	
==>ug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) } <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8985	9098	
==>e $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9783	9896	
==>e $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10692	10805	
==>e $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11518	11631	
==>e $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not m <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5306	5401	
==>d, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5306	5401	
==>d, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6830	6925	
==>d, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9668	9787	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12641	12760	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9668	9787	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12641	12760	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9668	9787	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12641	12760	
==>hich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is t <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8303	8407	
==>{recurse($_)}@$x).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11623	11749	
==>e
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { prin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2107	2230	
==>e
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { prin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8879	9002	
==>e
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { prin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2107	2230	
==>e
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { prin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8879	9002	
==>e
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { prin <==
7	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1765	1865	
==>PTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bi <==
7	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1765	1865	
==>PTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bi <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4071	4183	
==>al $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12584	12692	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10135	10243	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12584	12692	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10135	10243	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12584	12692	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10135	10243	
==>patcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if : <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4656	4824	
==>lf = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_fetch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24790	24916	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26979	27105	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24790	24916	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26979	27105	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24790	24916	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26979	27105	
==>MS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $s <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2289	2429	
==>dText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2289	2429	
==>dText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19297	19437	
==>.  Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1049	1159	
==>* equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * super <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	1029	1139	
==>* equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * super <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1049	1159	
==>* equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * super <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1029	1139	
==>* equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * super <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	231	338	
==>'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	231	338	
==>'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1488	1595	
==>s.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.di <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	231	338	
==>'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	231	338	
==>'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1488	1595	
==>s.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.di <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1488	1595	
==>s.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5227	5327	
==>his doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5227	5327	
==>his doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5227	5327	
==>his doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curre <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11892	11986	
==>thod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11892	11986	
==>thod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11892	11986	
==>thod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_ <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2629	2710	
==>vents::Subscription::Named.new(:name($name), :subscriber($subscriber), :publisher( <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	9126	9226	
==>th = dirname($relative_file);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirna <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6857	6954	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5987	6084	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2641	2738	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2641	2738	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6857	6954	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5987	6084	
==>ti sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7080	7198	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10050	10168	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7080	7198	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10050	10168	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7080	7198	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10050	10168	
==>thod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9406	9509	
==>equence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!before <Deci <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11595	11700	
==>experimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7254	7357	
==>experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2082	2183	
==>experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8854	8955	
==>experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7008	7109	
==>experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2082	2183	
==>experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8854	8955	
==>experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1834	1966	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	946	1078	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1834	1966	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	946	1078	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1834	1966	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	946	1078	
==>f, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	803	912	
==>nary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11724	11838	
==>"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test: <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	7509	7616	
==>Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under P <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7567	7674	
==>Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under P <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3243	3348	
==>pe_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3243	3348	
==>pe_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2156	2260	
==>"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2156	2260	
==>"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test: <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17478	17639	
==>s which 
                      unexpectedly passed

  skip              number of tests skipped

So a successful test should have max == seen == ok.


There is on <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11350	11502	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8903	9055	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11350	11502	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8903	9055	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11350	11502	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8903	9055	
==>= $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	21	116	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=q <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	21	116	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=q <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	21	116	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=q <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22507	22601	
==>nnection to the server by sending a C</QUIT> command. Note that the
socket usually stays connec <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21361	21455	
==>nnection to the server by sending a C</QUIT> command. Note that the
socket usually stays connec <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22507	22601	
==>nnection to the server by sending a C</QUIT> command. Note that the
socket usually stays connec <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21361	21455	
==>nnection to the server by sending a C</QUIT> command. Note that the
socket usually stays connec <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2166	2307	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1278	1419	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2166	2307	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1278	1419	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2166	2307	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1278	1419	
==>lf => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	47	160	
==>use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
die "Could not create <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8541	8655	
==>{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8541	8655	
==>{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8541	8655	
==>{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7242	7338	
==>d operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6372	6468	
==>d operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7242	7338	
==>d operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6372	6468	
==>d operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3900	4058	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6836	6994	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3900	4058	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6836	6994	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3900	4058	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6836	6994	
==>";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper me <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	998	1096	
==>my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest->add($c_code);
	my $sha1 = $diges <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4100	4212	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6749	6861	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4335	4444	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10784	10893	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4335	4444	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10784	10893	
==>Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13622	13724	
==>with
  the rest of perl.]

  The regexp engine and the perl compiler have an overly friendly
  relation <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2098	2213	
==>ow => DIR_EXISTS, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_err <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21201	21300	
==>ep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21201	21300	
==>ep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21201	21300	
==>ep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3081	3176	
==>erl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, en <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3081	3176	
==>erl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, en <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3081	3176	
==>erl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, en <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16968	17119	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21683	21834	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16968	17119	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21683	21834	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16968	17119	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21683	21834	
==>exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4345	4460	
==>p1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 = <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6358	6483	
==>" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195 <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6358	6483	
==>" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	31	135	
==>- fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Com <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	31	130	
==>- fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Com <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	61	159	
==>- fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Com <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	61	159	
==>- fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Com <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3840	3938	
==>see the error below, it may happen that your perl was compiled without PMC support.

  Can't locate <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	325	410	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1484	1569	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	325	410	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1484	1569	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	325	410	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1484	1569	
==>}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4875	5012	
==>> 'non',
    #    precedence => 'equal',
    #    other => ';',
    #);

    # experimental
    __PACKAGE__->add_rule( 
        name => 'I <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3490	3600	
==>eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3490	3600	
==>eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3490	3600	
==>eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($lab <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12926	13028	
==>eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12926	13028	
==>eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12926	13028	
==>eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($lab <==
7	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	653	803	
==>), :day($day),
                             :hour($hour), :minute($minute), :second($second),
                           );
}

# convert from an iso du <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15488	15599	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12744	12855	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15488	15599	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12744	12855	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15488	15599	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12744	12855	
==>arams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    el <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1572	1669	
==>t) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::lo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29707	29803	
==>e as those of another,
or are the same as the unaffected invocant's attributes.  This method
supp <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34259	34355	
==>e as those of another,
or are the same as the unaffected invocant's attributes.  This method
supp <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33423	33519	
==>e as those of another,
or are the same as the unaffected invocant's attributes.  This method
supp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1066	1160	
==>rname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1066	1160	
==>rname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1066	1160	
==>rname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply <==
7	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	339	437	
==>all the distribution components you need.

= WHY

You should use this module as a starting point to <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25221	25316	
==>nge to an object when the permutation of its
arguments and any invocant object's attributes is i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11352	11447	
==>nge to an object when the permutation of its
arguments and any invocant object's attributes is i <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14625	14720	
==>nge
to an object when the permutation of its arguments and any invocant
object's attributes is i <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25221	25316	
==>nge to an object when the permutation of its
arguments and any invocant object's attributes is i <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11352	11447	
==>nge to an object when the permutation of its
arguments and any invocant object's attributes is i <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14625	14720	
==>nge
to an object when the permutation of its arguments and any invocant
object's attributes is i <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1449	1548	
==>Root";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single native b <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6741	6837	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5871	5967	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2525	2621	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2525	2621	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6741	6837	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5871	5967	
==>one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inclu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	27735	27829	
==>n
given each original tuple/Mapping as its sole read-only argument, returns a
value that is opt <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32287	32381	
==>n
given each original tuple/Mapping as its sole read-only argument, returns a
value that is opt <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31379	31473	
==>n
given each original tuple/Mapping as its sole read-only argument, returns a
value that is opt <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	214	307	
==>$tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	270	363	
==>$tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	214	307	
==>$tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	270	363	
==>$tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3203	3367	
==>,
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $ <==
7	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1286	1415	
==>name => "higher order function",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&f <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2740	2844	
==>e)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19259	19356	
==>Starts the main runloop, which is only exited if the connection to the server
dies. To read data f <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18284	18381	
==>Starts the main runloop, which is only exited if the connection to the server
dies. To read data f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19259	19356	
==>Starts the main runloop, which is only exited if the connection to the server
dies. To read data f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18284	18381	
==>Starts the main runloop, which is only exited if the connection to the server
dies. To read data f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18868	19011	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16106	16249	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18868	19011	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16106	16249	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18868	19011	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16106	16249	
==>>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHO <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10981	11095	
==>d",
    help   => "Note: You might want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@fi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7779	7926	
==>t->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7779	7926	
==>t->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7779	7926	
==>t->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @a <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4972	5117	
==>t)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (A <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2080	2201	
==>g.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output() <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2080	2201	
==>g.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2160	2281	
==>g.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output() <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21898	22073	
==>,$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21898	22073	
==>,$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21898	22073	
==>,$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $se <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	186	284	
==>_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = o <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	242	340	
==>_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = o <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	186	284	
==>_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = o <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	242	340	
==>_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = o <==
7	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1169	1387	
==>besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $string;
        "$string and " ~
        pick (
            "$x",
            "is $x",
        );
    }else <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5654	5793	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3774	3913	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5654	5793	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3774	3913	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5654	5793	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3774	3913	
==>self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2534	2631	
==>EGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2534	2631	
==>EGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2534	2631	
==>EGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4909	5000	
==>one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Se <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4036	4127	
==>one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4909	5000	
==>one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4036	4127	
==>one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Se <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6663	6758	
==>y";

		if (Scalar::Util::blessed($x) and Scalar::Util::blessed($y)) {
			die "baaah! expected ty <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6642	6734	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5772	5864	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2426	2518	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2426	2518	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6642	6734	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5772	5864	
==>ral unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4321	4470	
==>Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        metho <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4321	4470	
==>Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        metho <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4321	4470	
==>Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        metho <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1329	1449	
==>2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3625	3745	
==>2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1329	1449	
==>2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3625	3745	
==>2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6707	6848	
==>ist"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $e <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6707	6848	
==>ist"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $e <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6707	6848	
==>ist"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $e <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	316	445	
==>ethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ---- <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	316	445	
==>ethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ---- <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1839	1943	
==>$self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1839	1943	
==>$self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	120	244	
==>ses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method cal <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3297	3405	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11855	11963	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6422	6530	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3297	3405	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11855	11963	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6422	6530	
==>h!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2427	2559	
==>r;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2427	2559	
==>r;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13678	13808	
==>change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to des <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13678	13808	
==>change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to des <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13678	13808	
==>change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to des <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5924	6054	
==>change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to des <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4424	4554	
==>change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to des <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9428	9537	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6975	7084	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9428	9537	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6975	7084	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9428	9537	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6975	7084	
==>if ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14661	14763	
==>ct(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	23675	23801	
==>e("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	208	309	
==>($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unle <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	208	309	
==>($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unle <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	208	309	
==>($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unle <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10986	11084	
==>ainer which stores data to be used or
displayed by your program.  It is analagous to a simplified v <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14149	14247	
==>ainer which stores data to be used or
displayed by your program.  It is analagous to a simplified v <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10986	11084	
==>ainer which stores data to be used or
displayed by your program.  It is analagous to a simplified v <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14149	14247	
==>ainer which stores data to be used or
displayed by your program.  It is analagous to a simplified v <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4845	4966	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7494	7615	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5060	5174	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11509	11623	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5060	5174	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11509	11623	
==>: $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12063	12158	
==>just the
case sensitivity of C<cmp> as a Comparator.

If all criteria are exhausted when compari <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	10431	10591	
==>l}) {
                print "skipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "skipp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6263	6382	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9233	9352	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6263	6382	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9233	9352	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6263	6382	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9233	9352	
==>s the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my <==
7	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1265	1411	
==>toks;
      }

      $buf = [~] @newtoks;
      undefine $buf
        if !defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens lo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19448	19556	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16680	16788	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19448	19556	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16680	16788	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19448	19556	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16680	16788	
==>STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namesp <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	85	330	
==>t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant va <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	85	330	
==>t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant va <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2176	2287	
==>NPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2176	2287	
==>NPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	22427	22524	
==>result when invoked on the
same object with the same arguments; they do not interact with the outs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26979	27076	
==>result when invoked on the
same object with the same arguments; they do not interact with the outs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25702	25799	
==>result when invoked on the
same object with the same arguments; they do not interact with the outs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1290	1404	
==>text is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1290	1404	
==>text is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1290	1404	
==>text is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives t <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4174	4266	
==>defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, p <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4174	4266	
==>defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6371	6463	
==>defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10033	10195	
==>ason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              desc <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	595	747	
==>ason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            desc <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	595	747	
==>ason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            desc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8742	8840	
==>,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8742	8840	
==>,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8742	8840	
==>,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault' <==
7	/Users/nnunley/pugs/util/package-osx.pl	6166	6254	
==>sr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local/man/man3/Perl6::Overview <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12906	13126	
==>@res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12906	13126	
==>@res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12906	13126	
==>@res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                un <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9442	9613	
==>nted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14986	15157	
==>nted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9442	9613	
==>nted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14980	15151	
==>nted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2762	2973	
==>onstant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capt <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2773	2984	
==>onstant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	303	482	
==>ss >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	303	482	
==>ss >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	303	482	
==>ss >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_met <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16920	17014	
==>e
media type.  When present, its value indicates what additional
encoding mechanism has been ap <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16920	17014	
==>e
media type.  When present, its value indicates what additional
encoding mechanism has been ap <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3651	3764	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6587	6700	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3651	3764	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6587	6700	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3651	3764	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6587	6700	
==>nce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (d <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6012	6113	
==>), !, p5_modifier_scope(M,X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_eleme <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13787	13894	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14161	14268	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13787	13894	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14161	14268	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13787	13894	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14161	14268	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bind <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18577	18683	
==>XX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	779	957	
==>match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3850	4028	
==>match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	779	957	
==>match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3850	4028	
==>match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1408	1578	
==>match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1408	1578	
==>match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31290	31403	
==>egexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();
    $self->del_handler(qw<
      (?{ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1675	1841	
==>h_fetchElem($idx);
                return undef unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2874	2974	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10797	10897	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5999	6099	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2874	2974	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10797	10897	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5999	6099	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_s <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2677	2782	
==>items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n ( <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2677	2782	
==>items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n ( <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	191	293	
==>$QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# inform <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	191	293	
==>$QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# inform <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3959	4054	
==>t
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3959	4054	
==>t
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3959	4054	
==>t
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	2661	2788	
==>ields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	74	187	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	69	182	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	74	187	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	69	182	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	74	187	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	69	182	
==>{
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4033	4184	
==>adonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4033	4184	
==>adonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4033	4184	
==>adonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12103	12206	
==>perty)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4746	4849	
==>perty)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4989	5091	
==>{
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_n <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4989	5091	
==>{
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1910	2016	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2232	2338	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1910	2016	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2232	2338	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1910	2016	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2232	2338	
==>tr $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 req <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5964	6067	
==>if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1463	1581	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3026	3144	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1463	1581	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3026	3144	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1463	1581	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3026	3144	
==>SS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = und <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25307	25387	
==>(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11510	11663	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3022	3175	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11510	11663	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3022	3175	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11510	11663	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3022	3175	
==>or(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDT <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1064	1162	
==>what do we need to test to check for circular superclasses?
# I guess that we're not the superclass <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9472	9581	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7019	7128	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9472	9581	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7019	7128	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9472	9581	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7019	7128	
==>atcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatc <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15280	15373	
==>ect's qr() method for you right there!)

=item Regexp::MinLength

Implements a min_length() me <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6931	7028	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6061	6158	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2715	2812	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2715	2812	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6931	7028	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6061	6158	
==>member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5047	5164	
==>mmar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Compiler::Regex->compile( q(
            <Pugs: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4373	4472	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4597	4696	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4373	4472	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4597	4696	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4373	4472	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4597	4696	
==>$cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24040	24177	
==>eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24040	24177	
==>eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24040	24177	
==>eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	12141	12236	
==>an.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00 <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	13972	14067	
==>an.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00 <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12141	12236	
==>an.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00 <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13972	14067	
==>an.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4100	4236	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7036	7172	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4100	4236	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7036	7172	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4100	4236	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7036	7172	
==>fore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => b <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6459	6565	
==>rray:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> Li <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	847	1006	
==>es);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	847	1006	
==>es);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	847	1006	
==>es);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $r <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	618	753	
==>handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      re <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11712	11847	
==>handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      re <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8471	8564	
==>6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gramma <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2296	2389	
==>6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gramma <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	431	528	
==>($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_down (Num $x, int $symmet <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1887	1981	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2230	2324	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1887	1981	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2230	2324	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1887	1981	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2230	2324	
==>an safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_j <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13603	13692	
==>means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13603	13692	
==>means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13603	13692	
==>means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_m <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21392	21474	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('D <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21702	21784	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('D <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44299	44381	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('D <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44609	44691	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('D <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13862	14009	
==>art)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3975	4106	
==>art)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3975	4106	
==>art)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3975	4106	
==>art)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18302	18394	
==><~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18302	18394	
==><~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18302	18394	
==><~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4405	4501	
==>]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4405	4501	
==>]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4405	4501	
==>]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind( <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6475	6567	
==>for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<c <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7211	7303	
==>for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6475	6567	
==>for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7211	7303	
==>for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<c <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2780	2902	
==>} )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7874	7996	
==>} )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2780	2902	
==>} )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7874	7996	
==>} )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4125	4230	
==>value :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4125	4230	
==>value :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4125	4230	
==>value :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1711	1809	
==>st seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Sy <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1711	1809	
==>st seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Sy <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36608	36702	
==>readable text message
string; this assumes that a Template corresponding to the Message could b <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36608	36702	
==>readable text message
string; this assumes that a Template corresponding to the Message could b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17216	17307	
==>xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17216	17307	
==>xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17216	17307	
==>xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8761	8873	
==>esn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was una <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8761	8873	
==>esn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was una <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9019	9127	
==>esn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was una <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9019	9127	
==>esn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was una <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1006	1106	
==>L::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1006	1106	
==>L::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1006	1106	
==>L::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	306	436	
==>val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => ' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	306	436	
==>val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => ' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	306	436	
==>val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => ' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	473	589	
==>pile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1197	1312	
==>pile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}: <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10654	10748	
==>ir attributes have reasonable values, and
that attributes or Nodes are not missing.  The deferr <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10654	10748	
==>ir attributes have reasonable values, and
that attributes or Nodes are not missing.  The deferr <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25250	25378	
==>n $self;
  }

  sub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->vis <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13402	13508	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10686	10792	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13402	13508	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10686	10792	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13402	13508	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10686	10792	
==>$self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_a <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9128	9272	
==>\"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@gra <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25623	25734	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27818	27929	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25623	25734	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27818	27929	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25623	25734	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27818	27929	
==>Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	381	499	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	379	497	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	381	499	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	379	497	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	381	499	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	379	497	
==>as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	10802	10918	
==>b,
				type::operator::pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::fre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3371	3519	
==>r_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3371	3519	
==>r_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3371	3519	
==>r_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            f <==
7	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	312	429	
==>iles {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	213	330	
==>iles {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($ <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	1726	1841	
==>r :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # constr <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1726	1841	
==>r :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # constr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2176	2302	
==>s = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2381	2507	
==>s = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2506	2632	
==>s = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5028	5138	
==>::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5028	5138	
==>::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5028	5138	
==>::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn = <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36376	36473	
==>d2 suspend

Family: assertion

Types: suspend (C<< (?> >>)

Data: array reference of any number of <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32938	33084	
==>>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32938	33084	
==>>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32938	33084	
==>>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14216	14337	
==>y @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            % <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4285	4398	
==>y @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        % <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4285	4398	
==>y @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        % <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4285	4398	
==>y @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        % <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9967	10071	
==>---------------------------------------------
    # has %:methods;
    # has %:attributes;
    # -------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9990	10094	
==>----------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9967	10071	
==>---------------------------------------------
    # has %:methods;
    # has %:attributes;
    # -------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9990	10094	
==>----------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9967	10071	
==>---------------------------------------------
    # has %:methods;
    # has %:attributes;
    # -------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9990	10094	
==>----------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------------- <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15877	15965	
==>ar(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb), <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7878	7995	
==>0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_;
  my $fail;
  while <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19849	19945	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16988	17084	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19849	19945	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16988	17084	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19849	19945	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16988	17084	
==>..     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16934	17082	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21649	21797	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16934	17082	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21649	21797	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16934	17082	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21649	21797	
==>asses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subc <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	25210	25302	
==>atistics about the performance are
printed.

=item C<FAILED tests %s\n\tFailed %d/%d tests, % <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3222	3387	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4028	4193	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1969	2134	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3222	3387	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4028	4193	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1969	2134	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $f <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33865	33957	
==>Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3095	3266	
==>ookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure reques <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3095	3266	
==>ookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure reques <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13370	13499	
==>md, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13364	13493	
==>md, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2354	2446	
==>fix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2354	2446	
==>fix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2354	2446	
==>fix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4355	4478	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7291	7414	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4355	4478	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7291	7414	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4355	4478	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7291	7414	
==>es 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2141	2232	
==>iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1058	1172	
==>eric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fg <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1058	1172	
==>eric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fg <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1058	1172	
==>eric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fg <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1977	2076	
==>) { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl:: <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1977	2076	
==>) { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl:: <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33615	33711	
==>stores an ordered list one or more elements where each
element is a Template module Member Name a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33615	33711	
==>stores an ordered list one or more elements where each
element is a Template module Member Name a <==
7	/Users/nnunley/pugs/examples/hop6/Stream.pm	563	667	
==>sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1];
}


sub is_promise( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19640	19731	
==>) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19640	19731	
==>) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19640	19731	
==>) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17164	17253	
==>ttribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17164	17253	
==>ttribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17164	17253	
==>ttribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2207	2328	
==>(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2198	2318	
==>erl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	204	313	
==>(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	204	313	
==>(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	195	303	
==>erl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	195	303	
==>erl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17915	18012	
==>Description

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the inte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6859	6982	
==>s;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6859	6982	
==>s;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6859	6982	
==>s;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10472	10566	
==>y $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset() <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	17414	17508	
==>y $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset() <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10472	10566	
==>y $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset() <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17414	17508	
==>y $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset() <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1610	1719	
==>%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods->exists($la <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4384	4486	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4608	4710	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4384	4486	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4608	4710	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4384	4486	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4608	4710	
==>ix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    uns <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	191	296	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	186	291	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	191	296	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	186	291	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	191	296	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	186	291	
==>less @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self-> <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	394	497	
==>pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSI <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7706	7805	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6836	6935	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3422	3521	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3422	3521	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7706	7805	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6836	6935	
==>($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necess <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2891	2978	
==>> unicode:"\x0a\x0b\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u18 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10652	10775	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15193	15316	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10652	10775	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15193	15316	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10652	10775	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15193	15316	
==>we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_n <==
7	/Users/nnunley/pugs/util/grokprims.pl	2256	2351	
==>me}</tt></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  forea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7827	7943	
==>h( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7827	7943	
==>h( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7827	7943	
==>h( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1970	2081	
==>slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=hea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1970	2081	
==>slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=hea <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1211	1315	
==>slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=hea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3072	3176	
==>slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=hea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2119	2245	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1231	1357	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2119	2245	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1231	1357	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2119	2245	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1231	1357	
==>ubmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly wa <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22444	22543	
==>NOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This library provi <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14240	14358	
==>xpand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9262	9378	
==>lue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9262	9378	
==>lue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9262	9378	
==>lue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4309	4419	
==>xpand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4309	4419	
==>xpand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4309	4419	
==>xpand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2067	2161	
==>row(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2067	2161	
==>row(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2067	2161	
==>row(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", " <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5953	6046	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docu <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1149	1242	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docu <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5953	6046	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docu <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1149	1242	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14851	14969	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19550	19668	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14851	14969	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19550	19668	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14851	14969	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19550	19668	
==>&AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split ' <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9168	9284	
==>if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} else {
	    push(@nam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7422	7577	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4981	5136	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7422	7577	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4981	5136	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7422	7577	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4981	5136	
==>0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instea <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4295	4395	
==>'$<value>'));
   return $var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13112	13235	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13112	13235	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13112	13235	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5352	5475	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3852	3975	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1997	2120	
==>n "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($l <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12406	12504	
==>the original Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memor <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1680	1798	
==>$self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    i <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2532	2650	
==>$self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3430	3547	
==>ef $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3430	3547	
==>ef $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3430	3547	
==>ef $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1608	1707	
==>tural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <nat <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1608	1707	
==>tural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <nat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12557	12705	
==>rammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13091	13239	
==>rammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12551	12699	
==>rammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13085	13233	
==>rammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5547	5647	
==>blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5547	5647	
==>blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5547	5647	
==>blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1015	1124	
==>xp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1673	1782	
==>xp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1837	1946	
==>xp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7123	7223	
==>intf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7123	7223	
==>intf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7123	7223	
==>intf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7396	7486	
==>ternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alternative(noop) --> ") <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7428	7581	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4987	5140	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7428	7581	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4987	5140	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7428	7581	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4987	5140	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1123	1276	
==>get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	255	360	
==>-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

met <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	255	360	
==>-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

met <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3379	3480	
==>l array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3379	3480	
==>l array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3379	3480	
==>l array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var j <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8617	8707	
==>ammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2442	2532	
==>ammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @ <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	749	923	
==>_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::Const>),
                                Tree <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3948	4116	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6475	6643	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3948	4116	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6475	6643	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3948	4116	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6475	6643	
==>hods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10186	10333	
==>st->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10186	10333	
==>st->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10186	10333	
==>st->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1711	1852	
==>>{scalar} )
        if exists $n->{scalar};
        
    return _mangle_var( $n->{array} )
        if exists $n->{array};
        
    r <==
7	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	107	203	
==>"What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nnt <==
7	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	96	190	
==>"What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nnt <==
7	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	63	157	
==>"What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nnt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21495	21592	
==>1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21495	21592	
==>1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21495	21592	
==>1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@x <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22511	22606	
==>tion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected f <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21365	21460	
==>tion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22511	22606	
==>tion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected f <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21365	21460	
==>tion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected f <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	317	432	
==>commends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36345	36438	
==>es differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38098	38191	
==>es differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40894	40987	
==>es differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42647	42740	
==>es differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40508	40601	
==>es differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42297	42390	
==>es differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	3042	3151	
==>ler($kind, $skip, $label);

    # FIXME: why doesn't this work?
    # this is here just because of an icky pug <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	61	148	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	233	320	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	61	148	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	233	320	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	61	148	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	233	320	
==>S.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH(). <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8649	8773	
==>if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) { <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14374	14498	
==>if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8649	8773	
==>if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14368	14492	
==>if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	675	792	
==>ch my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	675	792	
==>ch my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	675	792	
==>ch my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13679	13860	
==>.
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    r <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9863	10044	
==>.
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10699	10880	
==>.
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1328	1432	
==>evel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1328	1432	
==>evel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1328	1432	
==>evel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::us <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8686	8788	
==>termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position;
  retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	945	1063	
==>} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $self->{ast}() )};

    eval {
        $self->{perl5 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2689	2793	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3269	3373	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2689	2793	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3269	3373	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2689	2793	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3269	3373	
==>re) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6172	6288	
==>_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7008	7155	
==>ame' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7008	7155	
==>ame' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7008	7155	
==>ame' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = ( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	423	514	
==>dule Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	423	514	
==>dule Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19899	19989	
==>malized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, the <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19899	19989	
==>malized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, the <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4197	4353	
==>"$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5518	5674	
==>"$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4197	4353	
==>"$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5506	5662	
==>"$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6099	6227	
==>package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6099	6227	
==>package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6099	6227	
==>package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8062	8243	
==>alar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8062	8243	
==>alar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8062	8243	
==>alar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7301	7399	
==>:Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7301	7399	
==>:Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7301	7399	
==>:Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run: <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7947	8034	
==>ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_stamp and
  $newest_p_stam <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2998	3119	
==>if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14705	14825	
==>[ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14705	14825	
==>[ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14705	14825	
==>[ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code a <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3520	3639	
==>if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2900	3019	
==>if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3520	3639	
==>if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3335	3490	
==>$matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10255	10407	
==>>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pri <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10255	10407	
==>>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pri <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10255	10407	
==>>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pri <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3229	3380	
==>$matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defin <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	498	604	
==>ick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date> <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	498	604	
==>ick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14201	14293	
==>apheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U* <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14201	14293	
==>apheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U* <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14201	14293	
==>apheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U* <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6836	6924	
==>L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4188	4276	
==>L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6836	6924	
==>L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4188	4276	
==>L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6036	6125	
==>ole.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next t <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6036	6125	
==>ole.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8233	8322	
==>ole.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next t <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9278	9365	
==>lary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"), <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9473	9560	
==>lary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"), <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9668	9755	
==>lary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"), <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	11325	11411	
==>lary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new("int"), <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5211	5486	
==>infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6409	6559	
==>start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the modul <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6409	6559	
==>start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the modul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8437	8549	
==>ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8437	8549	
==>ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8437	8549	
==>ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2828	2932	
==>t_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point( <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13157	13289	
==>rom_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13157	13289	
==>rom_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12253	12379	
==>rom_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12253	12379	
==>rom_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1149	1254	
==>>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTRO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1149	1254	
==>>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTRO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1149	1254	
==>>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTRO <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5788	5946	
==>stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4288	4446	
==>stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3093	3202	
==>F} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away sta <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3093	3202	
==>F} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away sta <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	9549	9647	
==>$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primitive".
macro rxbar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16182	16279	
==>them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can decl <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16182	16279	
==>them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can decl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2082	2191	
==>(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2082	2191	
==>(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2082	2191	
==>(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21922	22016	
==>al information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not av <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20803	20897	
==>al information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not av <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21922	22016	
==>al information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not av <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20803	20897	
==>al information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not av <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7653	7780	
==>sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11994	12121	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2452	2576	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9224	9348	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7394	7518	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2452	2576	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9224	9348	
==>sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	22982	23079	
==>each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping k <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12224	12321	
==>w Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16804	16901	
==>w Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27534	27631	
==>each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping k <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26311	26408	
==>each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping k <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12224	12321	
==>w Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16804	16901	
==>w Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18307	18407	
==>to deal with it.  But for displaying to users, easy messages are
better.

I have found that when it c <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18307	18407	
==>to deal with it.  But for displaying to users, easy messages are
better.

I have found that when it c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	109	206	
==>text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	109	206	
==>text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	109	206	
==>text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::i <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	448	540	
==>s the C<source> property, and adds nothing else.

More specialised processing instructions ma <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	448	540	
==>s the C<source> property, and adds nothing else.

More specialised processing instructions ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3338	3453	
==>H') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3338	3453	
==>H') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3338	3453	
==>H') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2734	2840	
==>$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2734	2840	
==>$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2734	2840	
==>$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3312	3408	
==>ode->struct_equiv->moniker;
	my $method = "define_$kind";
	warn "defining a new $kind (@_)";
	ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15322	15443	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20055	20176	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15322	15443	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20055	20176	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15322	15443	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20055	20176	
==>estruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION | <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	13108	13215	
==>);
	} else {
		return $prev_generic;
	}
}

# the type of the function the arrow operator, applied to the typ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	358	506	
==>tive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	358	506	
==>tive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	358	506	
==>tive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4422	4527	
==>returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.prop <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4422	4527	
==>returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.prop <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5294	5397	
==>returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.prop <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5294	5397	
==>returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.prop <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7628	7732	
==>attrs ) === any( $!heading );

    return Relation::Example.new(
        heading => $!heading.union( set( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1002	1098	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1514	1610	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1002	1098	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1514	1610	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1002	1098	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1514	1610	
==>Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things) <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8562	8681	
==>sr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8761	8863	
==>s5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8761	8863	
==>s5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8761	8863	
==>s5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22797	22895	
==>gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C< <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21624	21722	
==>gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C< <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22797	22895	
==>gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C< <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21624	21722	
==>gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	268	379	
==>ess module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	268	379	
==>ess module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	268	379	
==>ess module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7384	7482	
==>annel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.del <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7384	7482	
==>annel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.del <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1996	2094	
==>c lookup. 



This object-serialization format is shared across all runtimes.



=head1 Directory L <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1922	2016	
==>c lookup. 

This object-serialization format is shared across all runtimes.

=head1 Directory L <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7885	7993	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10808	10916	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7885	7993	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10808	10916	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7885	7993	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10808	10916	
==>submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/util/grokprims.pl	1549	1649	
==>a0 $name \$$a0";
  } elsif (/left-associative/ and $arity==2) {
    $example = "(\$$a0 $name \$$a1) $ <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11435	11569	
==>my $v = $f->($close);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15256	15365	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12512	12621	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15256	15365	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12512	12621	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15256	15365	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12512	12621	
==>method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2052	2200	
==>$op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6995	7142	
==>$op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { boo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1824	1967	
==>$op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8409	8552	
==>$op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1824	1967	
==>$op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8409	8552	
==>$op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6761	6903	
==>$op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { boo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10432	10583	
==>s
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10432	10583	
==>s
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10432	10583	
==>s
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8704	8802	
==>ore elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, s <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8704	8802	
==>ore elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, s <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8962	9058	
==>ore elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, s <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8962	9058	
==>ore elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, s <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	9335	9490	
==>from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infix:<~~ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	819	945	
==>$class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	819	945	
==>$class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$inst <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	819	945	
==>$class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$inst <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19739	19834	
==>iations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired n <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18720	18815	
==>iations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired n <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19739	19834	
==>iations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired n <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18720	18815	
==>iations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired n <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	541	727	
==>=> 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13509	13615	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10793	10899	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13509	13615	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10793	10899	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13509	13615	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10793	10899	
==>ttr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaqu <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4769	4900	
==>->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13194	13325	
==>->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15805	15936	
==>->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17293	17424	
==>->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21976	22107	
==>->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self- <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3378	3475	
==>>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style config <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3378	3475	
==>>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style config <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	965	1070	
==>y,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	965	1070	
==>y,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	965	1070	
==>y,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40365	40460	
==>iles and the date of any
changes, in addition to preserving this original copyright notice and o <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25889	25984	
==>iles and the date of any changes, in
addition to preserving this original copyright notice and o <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40365	40460	
==>iles and the date of any
changes, in addition to preserving this original copyright notice and o <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25889	25984	
==>iles and the date of any changes, in
addition to preserving this original copyright notice and o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31489	31669	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31489	31669	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31489	31669	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37252	37419	
==>f ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37252	37419	
==>f ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37252	37419	
==>f ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array-> <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1764	1864	
==>nting
    
If you omit the fprime, a second order centered difference is provided
as a curried defaul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5973	6127	
==>cess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5973	6127	
==>cess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5973	6127	
==>cess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3741	3837	
==>@b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3741	3837	
==>@b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	3029	3121	
==>d' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' d <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5231	5323	
==>d' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' d <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6275	6389	
==>modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modif <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5348	5462	
==>modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modif <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6275	6389	
==>modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modif <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5348	5462	
==>modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6507	6602	
==>=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Ya <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6507	6602	
==>=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Ya <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6507	6602	
==>=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Ya <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12098	12224	
==>ge => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3911	4004	
==>urrently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3911	4004	
==>urrently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6891	6983	
==>urrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8961	9053	
==>urrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6891	6983	
==>urrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8961	9053	
==>urrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peopl <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5657	5759	
==>s if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=ite <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5657	5759	
==>s if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=ite <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7181	7283	
==>s if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=ite <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9238	9324	
==>rator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9433	9519	
==>rator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9628	9714	
==>rator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	11285	11370	
==>rator::arrow->new(
		type::operator::nullary->new("int"),
		type::operator::arrow->new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	192	292	
==>erl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is b <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	192	292	
==>erl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is b <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	192	292	
==>erl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is b <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19288	19386	
==>h is only exited if the connection to the server
dies. To read data from the server, a blocking C<r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18313	18411	
==>h is only exited if the connection to the server
dies. To read data from the server, a blocking C<r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19288	19386	
==>h is only exited if the connection to the server
dies. To read data from the server, a blocking C<r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18313	18411	
==>h is only exited if the connection to the server
dies. To read data from the server, a blocking C<r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7005	7143	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4564	4702	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7005	7143	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4564	4702	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7005	7143	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4564	4702	
==>rge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seq <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	9	114	
==>t;

### fixes the config for us
BEGIN { require 'conf.pl' }

use JIB::Config;
use JIB::Source;

use Path:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	501	608	
==>_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Co <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1225	1331	
==>_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5144	5246	
==>(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5144	5246	
==>(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5144	5246	
==>(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8232	8331	
==>This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This e <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8232	8331	
==>This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This e <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	150	260	
==>s able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	154	264	
==>s able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	150	260	
==>s able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	154	264	
==>s able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bo <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	14505	14601	
==>progress. As Pugs grows, so will it's
testing needs. This module will be the code support for tho <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14563	14659	
==>progress. As Pugs grows, so will it's
testing needs. This module will be the code support for tho <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18359	18448	
==>gicalORExpression>
    | <LogicalORExpression> <'?'> <AssignmentExpression> <':'> <Assignm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32358	32522	
==>gth;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32358	32522	
==>gth;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_len <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32358	32522	
==>gth;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_len <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	387	503	
==>odules, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODULE, <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6802	6903	
==>v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($R <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7174	7275	
==>v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($R <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7473	7574	
==>v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2158	2260	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2563	2665	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2158	2260	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2563	2665	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2158	2260	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2563	2665	
==>function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5596	5696	
==>f_type{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5546	5662	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8516	8632	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5546	5662	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8516	8632	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5546	5662	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8516	8632	
==>ine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	2827	2928	
==>orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8965	9099	
==>us',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8961	9095	
==>us',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2406	2539	
==>us',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2406	2539	
==>us',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	952	1047	
==>n('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.exp <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	952	1047	
==>n('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.exp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1499	1594	
==>n('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4911	5021	
==>eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_sto <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4911	5021	
==>eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_sto <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5501	5611	
==>eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_sto <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6361	6455	
==>ase?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8429	8523	
==>ase?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6361	6455	
==>ase?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8429	8523	
==>ase?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5626	5739	
==>ip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $don <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5626	5739	
==>ip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $don <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1305	1406	
==>ions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List o <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1305	1406	
==>ions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List o <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1305	1406	
==>ions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List o <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1747	1841	
==>This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role paramet <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1747	1841	
==>This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role paramet <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12409	12531	
==>ses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12409	12531	
==>ses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12409	12531	
==>ses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3698	3818	
==>lass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3698	3818	
==>lass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3698	3818	
==>lass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instan <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16024	16120	
==>h perhaps gets optimized to C</^\s+/>.  The difficulty
rating is so high because of cases like C< <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2780	2900	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5770	5890	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3072	3184	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9490	9602	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3072	3184	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9490	9602	
==>ll() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $no <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2784	2882	
==>n
    $val->set($self->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Com <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5723	5864	
==>@{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5735	5876	
==>@{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	912	1050	
==>ny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	912	1050	
==>ny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	912	1050	
==>ny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.su <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13273	13397	
==>er for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13273	13397	
==>er for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6961	7180	
==>},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6961	7180	
==>},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6961	7180	
==>},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;( <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18862	18953	
==>for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17905	17996	
==>for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18862	18953	
==>for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17905	17996	
==>for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	620	792	
==>}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtim <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15575	15700	
==>utes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15575	15700	
==>utes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15575	15700	
==>utes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1026	1131	
==>);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref call <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1026	1131	
==>);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref call <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1026	1131	
==>);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref call <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12452	12554	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10003	10105	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12452	12554	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10003	10105	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12452	12554	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10003	10105	
==>) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_ins <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20514	20611	
==>mfun;
}

sub p6_container_for_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->ne <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	2582	2694	
==>primitive is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    has Str $.packa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3890	3995	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6539	6644	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4132	4233	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10581	10682	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4132	4233	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10581	10682	
==>}
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return b <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	453	573	
==>h_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24813	24909	
==>If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
va <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22427	22523	
==>If an invoked routine simply
returns, you can assume that it has succeeded, even if the return va <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9713	9809	
==>If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
va <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24813	24909	
==>If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
va <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22427	22523	
==>If an invoked routine simply
returns, you can assume that it has succeeded, even if the return va <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9713	9809	
==>If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
va <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4574	4711	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7223	7360	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4797	4929	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11246	11378	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4797	4929	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11246	11378	
==>urn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "R <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3027	3113	
==>junctions(W,Z).

p6_alternatives(W, Z) --> "|", p6_conjunction(X), p6_alternatives(unio <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2838	3012	
==>$!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6315	6489	
==>$!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!he <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2447	2544	
==>$Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unle <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2447	2544	
==>$Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2527	2624	
==>$Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unle <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30181	30273	
==>ay also contain variable names that correspond
to Message Variables, which will be substitute <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30181	30273	
==>ay also contain variable names that correspond
to Message Variables, which will be substitute <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20450	20565	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17589	17704	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20450	20565	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17589	17704	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20450	20565	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17589	17704	
==>fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	71	178	
==>lock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11533	11682	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3045	3194	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11533	11682	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3045	3194	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11533	11682	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3045	3194	
==>ength; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12542	12635	
==>ng (almost completely undocumented source), in the presence
  of copy-on-write and such compli <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9897	10006	
==>y $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9897	10006	
==>y $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9897	10006	
==>y $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(r <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5568	5673	
==>ent_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => s <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5568	5673	
==>ent_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => s <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	24222	24320	
==>ation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a singl <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28774	28872	
==>ation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a singl <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	66	183	
==>umper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->imp <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2729	2838	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5719	5828	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3022	3126	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9440	9544	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3022	3126	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9440	9544	
==>sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9437	9569	
==>e: sub clear { my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4719	4831	
==>as qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4719	4831	
==>as qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5309	5421	
==>as qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2593	2690	
==>55 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2593	2690	
==>55 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2593	2690	
==>55 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N" <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27727	27823	
==>ingle member that is an empty Mapping.

=back

A Relation::Example object has these methods:

=ov <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12218	12308	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9775	9865	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12218	12308	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9775	9865	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12218	12308	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9775	9865	
==>thod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1025	1164	
==>};
            },

            'array_fetchElem' => sub { # $idx -> $container # autovivification! - returns **CONTAINER**
                m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35801	35936	
==>ody=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35801	35936	
==>ody=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35801	35936	
==>ody=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3624	3725	
==>@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eval <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3624	3725	
==>@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eval <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3624	3725	
==>@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eval <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13141	13271	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13141	13271	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13141	13271	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5381	5511	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3881	4011	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4955	5085	
==>safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   Lis <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2026	2156	
==>f array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !def <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1096	1204	
==>t.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1096	1204	
==>t.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1096	1204	
==>t.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14093	14187	
==>e given to specify which
characters to consider unsafe (i.e., which to escape). The default set <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14093	14187	
==>e given to specify which
characters to consider unsafe (i.e., which to escape). The default set <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3009	3094	
==>return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY> <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3009	3094	
==>return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	967	1089	
==>h if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	967	1089	
==>h if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	967	1089	
==>h if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identi <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2585	2692	
==>}->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2585	2692	
==>}->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11867	11967	
==>ies - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&ar <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11867	11967	
==>ies - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5381	5559	
==>fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5381	5559	
==>fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5381	5559	
==>fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $se <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6313	6411	
==>t $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retur <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5443	5541	
==>t $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retur <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6313	6411	
==>t $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retur <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5443	5541	
==>t $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retur <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7580	7799	
==>keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this d <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8044	8263	
==>keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this d <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6347	6482	
==>* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $fil <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5855	5990	
==>* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $fil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6370	6467	
==>S_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6370	6467	
==>S_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6370	6467	
==>S_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	549	682	
==>sion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pug <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	520	653	
==>sion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pug <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	549	682	
==>sion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pug <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	549	682	
==>sion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pug <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8754	8871	
==>CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@pa <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3231	3345	
==>aram<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3231	3345	
==>aram<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4432	4539	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7368	7475	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4432	4539	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7368	7475	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4432	4539	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7368	7475	
==>_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($me <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	16991	17091	
==>fun(x) x	-  takes any value and returns it
# x stays free, and thus becomes generic (id is polymorphi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	829	941	
==>xy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	829	941	
==>xy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	829	941	
==>xy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2603	2711	
==>Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hell <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2603	2711	
==>Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hell <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2950	3058	
==>Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hell <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3141	3229	
==>_call'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9646	9756	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12619	12729	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9646	9756	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12619	12729	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9646	9756	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12619	12729	
==>ic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6531	6628	
==>from path.
*** Please install GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	643	767	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	731	855	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	643	767	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	731	855	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	643	767	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	731	855	
==>gs, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      s <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12117	12209	
==>al> total"><tmpl_var name=total></span>:</td>
	      <td class="num tests_ok"><span title="<t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	376	487	
==>_[1] eq 'Num'  && defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

packa <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13233	13327	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4403	4497	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8859	8953	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13233	13327	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4403	4497	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8859	8953	
==>which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes. <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6665	6768	
==>reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) e <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6665	6768	
==>reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) e <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7033	7132	
==>reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) e <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7033	7132	
==>reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) e <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6107	6205	
==>ction of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::P <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6107	6205	
==>ction of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::P <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	5517	5615	
==>) if $Config{concurrent} == 1;
    my @tests = $self->get_tests;
    $self->run_children($Config{co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6022	6147	
==>culate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAP <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6022	6147	
==>culate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAP <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6022	6147	
==>culate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAP <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	902	998	
==>turns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DO <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7097	7193	
==>ent);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_w <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	902	998	
==>turns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DO <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7097	7193	
==>ent);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	652	753	
==>]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	652	753	
==>]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	652	753	
==>]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") a <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11634	11729	
==>Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inve <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8781	8876	
==>Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inve <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11634	11729	
==>Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inve <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8781	8876	
==>Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inve <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12306	12432	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3928	4054	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12306	12432	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3928	4054	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12306	12432	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3928	4054	
==>-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3632	3744	
==>if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'int' if int( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7729	7866	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5288	5425	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7729	7866	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5288	5425	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7729	7866	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5288	5425	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1417	1554	
==>ut as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just rem <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1214	1399	
==>($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19170	19276	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16408	16514	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19170	19276	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16408	16514	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19170	19276	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16408	16514	
==>though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6443	6567	
==>ses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6443	6567	
==>ses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6443	6567	
==>ses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13955	14061	
==>PING the server. If the connection is still alive, the server will
        # respond with a PONG, so everyt <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13955	14061	
==>PING the server. If the connection is still alive, the server will
        # respond with a PONG, so everyt <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13021	13123	
==>PING the server. If the connection is still alive, the server will
    # respond with a PONG, so everyt <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13021	13123	
==>PING the server. If the connection is still alive, the server will
    # respond with a PONG, so everyt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1510	1645	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3073	3208	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1510	1645	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3073	3208	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1510	1645	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3073	3208	
==>above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # thi <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	26087	26184	
==>the harness
or by any other means.

=item C<HARNESS_COLUMNS>

This value will be used for the widt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11397	11525	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16127	16255	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11397	11525	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16127	16255	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11397	11525	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16127	16255	
==>event some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        r <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	1700	1798	
==>dex
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol})- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1115	1228	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1342	1455	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1115	1228	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1342	1455	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1115	1228	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1342	1455	
==>ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10969	11054	
==>NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	748	859	
==>for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	748	859	
==>for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	748	859	
==>for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	41	140	
==>e, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	41	140	
==>e, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	41	140	
==>e, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get in <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	41	140	
==>e, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5236	5381	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8206	8351	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5236	5381	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8206	8351	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5236	5381	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8206	8351	
==>ethod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a stra <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7993	8089	
==>e)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&expression <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3849	3979	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6785	6915	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3849	3979	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6785	6915	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3849	3979	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6785	6915	
==>confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            ret <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18273	18389	
==>t )
 multi Str::split (      Str $input ; Rule $delimiter          , Int $limit = inf --> List )
 &split<> := &split< <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2353	2595	
==>ure => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- le <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39513	39612	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39783	39882	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39513	39612	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39783	39882	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39513	39612	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39783	39882	
==>erl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16622	16725	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13827	13930	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16622	16725	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13827	13930	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16622	16725	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13827	13930	
==>ispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribut <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	23973	24067	
==>ingify, "∀α. ∀β. α → β", "pretty print a -> b");

	$b->instantiate( type::operator::n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2058	2228	
==>shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7001	7169	
==>shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1830	1994	
==>shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1830	1994	
==>shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6767	6929	
==>shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8415	8559	
==>shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8415	8559	
==>shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13778	13886	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14152	14260	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13778	13886	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14152	14260	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13778	13886	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14152	14260	
==>delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operat <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	894	993	
==>Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4310	4424	
==>Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unb <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4310	4424	
==>Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unb <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4310	4424	
==>Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unb <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9444	9541	
==>r->captures(2);

=head2 Walking the Tree

To walk over the created tree, create an iterator with w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	482	576	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	482	576	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
us <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	482	576	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
us <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20493	20611	
==>xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16914	17032	
==>xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1568	1678	
==>ings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1568	1678	
==>ings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1568	1678	
==>ings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	14128	14224	
==>lation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17605	17701	
==>lation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4022	4177	
==>};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4022	4177	
==>};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4022	4177	
==>};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _(' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13882	13987	
==>haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connectio <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13882	13987	
==>haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connectio <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12952	13053	
==>haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connectio <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12952	13053	
==>haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connectio <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1870	2011	
==>p->Output(classname => 'Test');

        $DEBUG
    and print $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2863	3003	
==>q 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2863	3003	
==>q 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2863	3003	
==>q 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1154	1246	
==>h unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "< <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1154	1246	
==>h unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "< <==
7	/Users/nnunley/pugs/util/importgraph.pl	1923	2009	
==>er('IMC', qr/^IMC\b/);
setup_cluster('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5625	5729	
==>e, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4755	4859	
==>e, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5625	5729	
==>e, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
m <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4755	4859	
==>e, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6001	6097	
==>thod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6001	6097	
==>thod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6001	6097	
==>thod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1277	1381	
==>ndef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1277	1381	
==>ndef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1277	1381	
==>ndef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3846	3941	
==>ass_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Obj <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3846	3941	
==>ass_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Obj <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3846	3941	
==>ass_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Obj <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20605	20697	
==>rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1571	1728	
==>{
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1571	1728	
==>{
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1571	1728	
==>{
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confe <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13449	13581	
==>al_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    prin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3831	3937	
==>*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3831	3937	
==>*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3831	3937	
==>*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_typ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3338	3514	
==>'$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3338	3514	
==>'$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3338	3514	
==>'$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'p <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2103	2219	
==>' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.rec <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4322	4438	
==>' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.rec <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2103	2219	
==>' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.rec <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4322	4438	
==>' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.rec <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	348	489	
==>w { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4124	4247	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7060	7183	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4124	4247	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7060	7183	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4124	4247	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7060	7183	
==>this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9595	9713	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7142	7260	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9595	9713	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7142	7260	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9595	9713	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7142	7260	
==>_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    retur <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3634	3732	
==>($iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $self: Int| <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4451	4562	
==>mmand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4451	4562	
==>mmand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4451	4562	
==>mmand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11521	11614	
==>2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()> <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8668	8761	
==>2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11521	11614	
==>2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8668	8761	
==>2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()> <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1531	1638	
==>/../src/pge";
my $parrot_path  = "../../../parrot-trunk";
my $bash         = "/bin/bash";
my $inputrc      = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19896	19993	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17035	17132	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19896	19993	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17035	17132	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19896	19993	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17035	17132	
==>(blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12037	12127	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9592	9682	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12037	12127	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9592	9682	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12037	12127	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9592	9682	
==>method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF-> <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4116	4232	
==>airs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftype)=($pai <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	29	123	
==>use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	29	123	
==>use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	29	123	
==>use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	29	122	
==>use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	29	122	
==>use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	29	122	
==>use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	517	648	
==>sh argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	517	648	
==>sh argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	517	648	
==>sh argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3437	3530	
==>damentally object-oriented; the procedural and functional 
interfaces are layers on top of the <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3437	3530	
==>damentally object-oriented; the procedural and functional 
interfaces are layers on top of the <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	8673	8761	
==>R.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed u <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8731	8819	
==>R.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19997	20094	
==>ile dispatches the code blocks
to the compilers. It does so in a most specific to most general ord <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19997	20094	
==>ile dispatches the code blocks
to the compilers. It does so in a most specific to most general ord <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19636	19732	
==>authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.aut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1929	2025	
==>onstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal> <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19636	19732	
==>authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.aut <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1929	2025	
==>onstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1929	2025	
==>onstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal> <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11080	11208	
==>_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5437	5552	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8407	8522	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5437	5552	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8407	8522	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5437	5552	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8407	8522	
==>times when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine bas <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2733	2841	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5723	5831	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3026	3129	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9444	9547	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3026	3129	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9444	9547	
==>optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25226	25325	
==>c() needs it and pregcomp() is computing
 * it anyway.
 * [regmust is now supplied always.  The test <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6991	7124	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4550	4683	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6991	7124	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4550	4683	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6991	7124	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4550	4683	
==>dd_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # r <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	889	998	
==>n $obj;
}

### XXX c/p'd from meta.pm -- subclass/inherit
=head2 $struct = $alt->to_struct;

=cut

sub to_stru <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11155	11276	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12626	12747	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14632	14753	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16103	16224	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13940	14061	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15465	15586	
==>lt is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identit <==
7	/Users/nnunley/pugs/util/build_pugs.pl	721	824	
==>nment variable.

Current settings:
.
    print PugsBuild::Config->pretty_print;

    exit 0;
}

my $run_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9337	9444	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6884	6991	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9337	9444	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6884	6991	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9337	9444	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6884	6991	
==>der eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':d <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12589	12688	
==>$S->error(RPe_ESLASH);
  });

  # start of char class (and possible negation)
  $self->add_handler(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10771	10899	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15312	15440	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10771	10899	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15312	15440	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10771	10899	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15312	15440	
==>ble_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52482	52576	
==>ew('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12325	12473	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3947	4095	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12325	12473	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3947	4095	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12325	12473	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3947	4095	
==>OLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CL <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	560	674	
==>oss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is alway <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5506	5618	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3626	3738	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5506	5618	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3626	3738	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5506	5618	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3626	3738	
==>in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) { <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1129	1233	
==>he bootstrap, this is not yet 
    # populated with anything, so ....
    my $supers = $class->get_attr(s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15262	15371	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12518	12627	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15262	15371	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12518	12627	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15262	15371	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12518	12627	
==>('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30302	30394	
==>un-consumes the ')' (via C<&RxPOS-->) and returns false, to
pretend it didn't actually match. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	163	277	
==>) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13662	13776	
==>]&0020)) }
		    split quotemeta ($sep), $1;

	$runperl =~ /(.*)/s;
	$runperl = $1;

	$result = `$runperl`;
    } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	163	277	
==>) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	163	277	
==>) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2589	2688	
==>Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2589	2688	
==>Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2589	2688	
==>Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2692	2829	
==>(r,stringarg,strend,strbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* pe <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37217	37311	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37456	37550	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37667	37761	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37217	37311	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37456	37550	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37667	37761	
==>his method takes the name of a Perl package in its positional parameter
$module_name (a string) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1851	1995	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6786	6930	
==>ift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1634	1773	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6563	6702	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1634	1773	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2093	2202	
==>, 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2093	2202	
==>, 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6699	6815	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9669	9785	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6699	6815	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9669	9785	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6699	6815	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9669	9785	
==>is is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bless <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4887	4984	
==>::TypeSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6192	6319	
==>bute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6192	6319	
==>bute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6192	6319	
==>bute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3257	3383	
==>bute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3257	3383	
==>bute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3257	3383	
==>bute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8530	8626	
==>rse;

This is not necessary, though, because the following methods will
invoke parse() if the tre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1086	1203	
==>ORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1086	1203	
==>ORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1086	1203	
==>ORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19755	19850	
==>ickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
u <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18736	18831	
==>ickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
u <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19755	19850	
==>ickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
u <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18736	18831	
==>ickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
u <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4728	4887	
==>ng start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span. <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5387	5546	
==>ng start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span. <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4728	4887	
==>ng start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span. <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5387	5546	
==>ng start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2282	2383	
==>lue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2282	2383	
==>lue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2282	2383	
==>lue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5671	5787	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8641	8757	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5671	5787	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8641	8757	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5671	5787	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8641	8757	
==>assed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7673	7784	
==>rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9119	9222	
==>]{$k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	887	986	
==>->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::M <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	887	986	
==>->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::M <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	887	986	
==>->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4664	4747	
==>SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4664	4747	
==>SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4664	4747	
==>SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4449	4567	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7098	7216	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4675	4790	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11124	11239	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4675	4790	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11124	11239	
==>', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18872	18968	
==>a Unicode property or a Perl class (like
C<\w> or C<\S>), the object's C<data> field points to th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9435	9544	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6982	7091	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9435	9544	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6982	7091	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9435	9544	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6982	7091	
==>der eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($orde <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	845	947	
==>sub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8979	9115	
==>'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8979	9115	
==>'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8979	9115	
==>'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sca <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	782	873	
==>1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 V <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	782	873	
==>1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 V <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19618	19708	
==>...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=h <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19618	19708	
==>...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=h <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7664	7752	
==>)     --> p5_elemental(lookbehind(R)).
p5_condition_test(lookbehind_not(R)) --> p5_elemen <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12091	12232	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3602	3743	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12091	12232	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3602	3743	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12091	12232	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3602	3743	
==>arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        retu <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2092	2197	
==>qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'END';

#include <regcomp. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11198	11369	
==>->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11198	11369	
==>->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11198	11369	
==>->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12164	12266	
==>ss "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12164	12266	
==>ss "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12164	12266	
==>ss "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11018	11112	
==>my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), "\n";
printf"Run took: %.3 <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3080	3196	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11003	11119	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6205	6321	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3080	3196	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11003	11119	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6205	6321	
==>> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13594	13690	
==>ose key matches C<$key>, false
otherwise.

An unary form is expected. See Hash::delete


=item ke <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12694	12849	
==>p2}{scalar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3933	4038	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6582	6687	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4172	4274	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10621	10723	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4172	4274	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10621	10723	
==>nctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4077	4204	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7013	7140	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4077	4204	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7013	7140	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4077	4204	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7013	7140	
==>to the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # out <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3012	3134	
==>ription);
            $subscription.subscriber.remove_subscription($subscription);
        }
        
        method get_su <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2780	2921	
==>ile unlink "$Alternatives/$script";
        }      
        
        ### see if there's any other package that's now the default
        ### f <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11027	11164	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12498	12635	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14504	14641	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15975	16112	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13812	13949	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15337	15474	
==>,
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is seco <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18306	18495	
==>so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar do <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18306	18495	
==>so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar do <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18306	18495	
==>so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar do <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	265	363	
==>Native(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(f <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	265	363	
==>Native(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(f <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	265	363	
==>Native(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(f <==
7	/Users/nnunley/pugs/util/run-smoke.pl	103	194	
==>use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	191	312	
==>ass 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	4	100	
==>his is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Typ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13515	13621	
==>The first source's heading is a proper subset of the
        # second source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16992	17098	
==>The first source's heading is a proper subset of the
        # second source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16354	16460	
==>The first source's heading is a proper subset of the
        # second source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6554	6649	
==>:Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' = <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6554	6649	
==>:Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' = <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	23393	23487	
==>r
future where "Relation" is a Role rather than a Class, and some
implementations are immutable <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27945	28039	
==>r
future where "Relation" is a Role rather than a Class, and some
implementations are immutable <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12057	12227	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12829	12999	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12057	12227	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12829	12999	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12057	12227	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12829	12999	
==>r 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25990	26099	
==>lLetter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierP <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	943	1059	
==>s {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	943	1059	
==>s {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	943	1059	
==>s {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    r <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1868	1970	
==>rns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1868	1970	
==>rns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert <==
7	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	188	286	
==>ng containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9 <==
7	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	244	342	
==>ng containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24316	24423	
==>,@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24316	24423	
==>,@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24316	24423	
==>,@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()- <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22037	22132	
==>handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=i <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20918	21013	
==>handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22037	22132	
==>handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20918	21013	
==>handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8487	8622	
==>0, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8487	8622	
==>0, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8487	8622	
==>0, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        u <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1799	1922	
==>E ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2542	2665	
==>E ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1799	1922	
==>E ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2530	2653	
==>E ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9708	9833	
==>on, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cook <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9708	9833	
==>on, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cook <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3223	3331	
==>s rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3223	3331	
==>s rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3223	3331	
==>s rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($s <==
7	/Users/nnunley/pugs/blib6/lib/lib.pm	1228	1325	
==>will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

C <==
7	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1228	1325	
==>will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

C <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13453	13631	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $si <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13453	13631	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $si <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13453	13631	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $si <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2338	2516	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $si <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1158	1278	
==>ir?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { und <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1158	1278	
==>ir?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { und <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1158	1278	
==>ir?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { und <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	4504	4602	
==>t prints
out each individual test which failed along with a summary report and
a how long it all to <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36240	36335	
==>ember of a tuple pair has attribute names in common,
eliminating pairs where the values of those <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37993	38088	
==>ember of a
tuple pair has attribute names in common, eliminating pairs where the
values of those <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40789	40884	
==>ember of a tuple pair has attribute names in common,
eliminating pairs where the values of those <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42542	42637	
==>ember of a
tuple pair has attribute names in common, eliminating pairs where the
values of those <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40403	40498	
==>ember of a tuple pair has attribute names in common,
eliminating pairs where the values of those <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42192	42287	
==>ember of a
tuple pair has attribute names in common, eliminating pairs where the
values of those <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5600	5733	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3720	3853	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5600	5733	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3720	3853	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5600	5733	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3720	3853	
==>@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the clas <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1307	1414	
==>print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11297	11443	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8850	8996	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11297	11443	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8850	8996	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11297	11443	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8850	8996	
==>ut of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	7144	7240	
==>anguage with native multimetods this would be much more concise

# a free variable instantiates i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7500	7607	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7500	7607	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7500	7607	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7916	8016	
==>ans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this clas <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7916	8016	
==>ans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3533	3617	
==>ING COMPLETE
## --------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5435	5519	
==>ING COMPLETE
## --------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4398	4506	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7047	7155	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4625	4731	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11074	11180	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4625	4731	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11074	11180	
==>ef($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{re <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5906	6005	
==>ub node::_open
{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[ <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	2757	2957	
==>nt.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2757	2957	
==>nt.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	115	206	
==>mmar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub ad <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	119	210	
==>mmar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub ad <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	113	204	
==>mmar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub ad <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	113	204	
==>mmar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub ad <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45177	45263	
==>::Class->send('new');
$::Package->send('superclasses' => list->new($::Object));

$::Pac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1946	2045	
==>{
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1946	2045	
==>{
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1946	2045	
==>{
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25086	25172	
==>ead1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F< <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23850	23936	
==>ead1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F< <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25086	25172	
==>ead1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F< <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23850	23936	
==>ead1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F< <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2292	2445	
==>iven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     } <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1061	1214	
==>iven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     } <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9732	9885	
==>iven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37356	37496	
==>( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    retu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37356	37496	
==>( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    retu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37356	37496	
==>( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    retu <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	956	1080	
==>iven want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11498	11603	
==>_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bi <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22475	22580	
==>_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11498	11603	
==>_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11498	11603	
==>_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8516	8608	
==>ew_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8516	8608	
==>ew_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8516	8608	
==>ew_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $li <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2447	2602	
==>ed a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /N <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2447	2602	
==>ed a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /N <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7354	7461	
==>ngly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(norm <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7354	7461	
==>ngly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(norm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2232	2334	
==>e s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2232	2334	
==>e s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2232	2334	
==>e s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8132	8258	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5691	5817	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8132	8258	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5691	5817	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8132	8258	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5691	5817	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1820	1946	
==>nsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4884	5057	
==>matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($vers <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4884	5057	
==>matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($vers <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1435	1542	
==>ir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is d <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1435	1542	
==>ir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is d <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1435	1542	
==>ir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is d <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2411	2515	
==>b TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as litt <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2411	2515	
==>b TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as litt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3226	3364	
==>e_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3530	3653	
==>curse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3530	3653	
==>curse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3530	3653	
==>curse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3945	4058	
==>e_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass <==
7	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	20	115	
==>FA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node <==
7	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	20	115	
==>FA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3952	4050	
==>type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4285	4383	
==>type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3952	4050	
==>type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4285	4383	
==>type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	387	482	
==>th.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	387	482	
==>th.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	387	482	
==>th.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	128	254	
==>:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PAC <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34607	34713	
==>ngth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34607	34713	
==>ngth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $cl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34607	34713	
==>ngth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $cl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2319	2440	
==>trs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2319	2440	
==>trs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2319	2440	
==>trs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (def <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24179	24277	
==>hing it received.  This is typically used by automatons
  (clients with either an AI or other inter <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22952	23050	
==>hing it received.  This is typically used by automatons
  (clients with either an AI or other inter <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24179	24277	
==>hing it received.  This is typically used by automatons
  (clients with either an AI or other inter <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22952	23050	
==>hing it received.  This is typically used by automatons
  (clients with either an AI or other inter <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9299	9436	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12272	12409	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9299	9436	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12272	12409	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9299	9436	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12272	12409	
==>teMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1329	1420	
==>uilder::TestPlan.

This file contains both the TestBuilder::TestPlan object and 
a subclass, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3385	3560	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6321	6496	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3385	3560	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6321	6496	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3385	3560	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6321	6496	
==>ub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	20437	20534	
==>cmd = %?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14662	14835	
==>w;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14662	14835	
==>w;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14662	14835	
==>w;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	14452	14603	
==>ir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11006	11127	
==>elf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11006	11127	
==>elf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11006	11127	
==>elf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4717	4817	
==>rsection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mo <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3844	3944	
==>rsection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10517	10617	
==>ame = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4717	4817	
==>rsection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3844	3944	
==>rsection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mo <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10517	10617	
==>ame = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10517	10617	
==>ame = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2475	2597	
==>if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2475	2597	
==>if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->loo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2475	2597	
==>if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->loo <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	182	291	
==>IL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	182	291	
==>IL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	182	291	
==>IL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@v <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39075	39175	
==>rgument which tells it if it's inside a character
class.

  $parser->add_handler('\y' => sub {
    my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7758	7865	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10681	10788	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7758	7865	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10681	10788	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7758	7865	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10681	10788	
==>.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridd <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8623	8715	
==>[-x|L]) --> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {true}.

p5_cha <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10005	10139	
==>ction () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10005	10139	
==>ction () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10005	10139	
==>ction () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2343	2443	
==>head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2343	2443	
==>head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1566	1662	
==>head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3427	3523	
==>head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1318	1426	
==>eturn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
} <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1318	1426	
==>eturn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3242	3341	
==>is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3242	3341	
==>is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3242	3341	
==>is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tr <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	22643	22740	
==>ra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27195	27292	
==>ra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8134	8261	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5693	5820	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8134	8261	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5693	5820	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8134	8261	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5693	5820	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1822	1949	
==>istent hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off th <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2803	2959	
==>s List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @r <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3423	3579	
==>s List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @r <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2803	2959	
==>s List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @r <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3423	3579	
==>s List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5849	5956	
==>rs,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5849	5956	
==>rs,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5849	5956	
==>rs,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4162	4324	
==>~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5483	5645	
==>~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4162	4324	
==>~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5471	5633	
==>~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28463	28582	
==>e...
  sub init {
    my $self = shift;
    $self->SUPER::init();

    $self->add_handler('&' => sub {
      # $S will b <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5219	5326	
==>ct;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my $clas <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	5	98	
==>s Perl::VJunc;

# from src/Pugs/AST/Internals.hs, line starting `data VJunc'

has Perl::JuncTy <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32772	32939	
==>= $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17557	17724	
==>found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local * <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32772	32939	
==>= $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->p <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32772	32939	
==>= $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17557	17724	
==>found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local * <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17557	17724	
==>found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local * <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	478	589	
==>y $obj = $class->SUPER::new;
    $obj->mk_accessors( keys %$tmpl );
    
    $obj->struct( $struct );

    retur <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13923	14097	
==>x+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4032	4178	
==>x+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4032	4178	
==>x+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4032	4178	
==>x+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5716	5820	
==>o warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5716	5820	
==>o warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5716	5820	
==>o warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_c <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2838	2970	
==>tem( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2131	2241	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2536	2646	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2131	2241	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2536	2646	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2131	2241	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2536	2646	
==>N_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FET <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	211	326	
==>le {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	215	330	
==>le {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	209	324	
==>le {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	267	382	
==>le {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	209	324	
==>le {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5462	5555	
==>me_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/] <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5462	5555	
==>me_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/] <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	981	1102	
==>$builddir: $!";
    }

    ### build an archive file
    my $archive = $path . $Ext;
    {   system( qq[tar --exclude $Pms <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8663	8813	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11636	11786	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8663	8813	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11636	11786	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8663	8813	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11636	11786	
==>e forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $me <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3242	3368	
==>uiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my $node = shift;
		
		my $obj = B: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3550	3667	
==>0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpola <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4867	4984	
==>0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpola <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3550	3667	
==>0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpola <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4855	4972	
==>0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpola <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1588	1682	
==>005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1588	1682	
==>005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift() <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1588	1682	
==>005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift() <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33810	34002	
==>t;               
                $e->create('$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5579	5718	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8863	9002	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5579	5718	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8863	9002	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5579	5718	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8863	9002	
==>b {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11307	11452	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8860	9005	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11307	11452	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8860	9005	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11307	11452	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8860	9005	
==>iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	24907	25002	
==>arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stri <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4957	5064	
==>for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4957	5064	
==>for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5419	5522	
==>for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5419	5522	
==>for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined <==
7	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2207	2302	
==>es are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C<: <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	18758	18853	
==>Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.0.1.

=head1 SY <==
7	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2207	2302	
==>es are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C<: <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	1	253	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16160	16286	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20877	21003	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16160	16286	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20877	21003	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16160	16286	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20877	21003	
==>ry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11245	11359	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11720	11834	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11245	11359	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11720	11834	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11245	11359	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11720	11834	
==>hod' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	9	117	
==>IB::Alternative;

use strict;
use warnings;

use JIB::Config;
use JIB::Utils;

use Params::Check           qw <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4693	4804	
==>class(
    '$:name'       => 'EigenClass',
    '$:superclass' => $Class,
);

# The 'Object' class
my $Object = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14576	14673	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11836	11933	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14576	14673	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11836	11933	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14576	14673	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11836	11933	
==>ss defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_t <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	48	301	
==>d by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packag <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	48	301	
==>d by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packag <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	48	301	
==>d by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packag <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	48	301	
==>d by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packag <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1958	2081	
==>(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1958	2081	
==>(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1958	2081	
==>(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6019	6174	
==>st be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::S <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6019	6174	
==>st be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::S <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6019	6174	
==>st be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5924	6056	
==>er::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines u <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5924	6056	
==>er::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines u <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12609	12713	
==>vents (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12609	12713	
==>vents (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9473	9771	
==>()
                      ->and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e->get("$method")->is_nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$ <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4374	4500	
==>od from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4374	4500	
==>od from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19268	19366	
==>e main runloop, which is only exited if the connection to the server
dies. To read data from the se <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18293	18391	
==>e main runloop, which is only exited if the connection to the server
dies. To read data from the se <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19268	19366	
==>e main runloop, which is only exited if the connection to the server
dies. To read data from the se <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18293	18391	
==>e main runloop, which is only exited if the connection to the server
dies. To read data from the se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5410	5590	
==>,
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5410	5590	
==>,
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5410	5590	
==>,
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4962	5067	
==>.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if def <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4962	5067	
==>.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if def <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4962	5067	
==>.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if def <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12534	12637	
==>s{stderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    if ($args <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17713	17812	
==>forming a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is banned in Perl 6.  You must <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14835	14933	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12089	12187	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14835	14933	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12089	12187	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14835	14933	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12089	12187	
==>ribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12611	12717	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10162	10268	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12611	12717	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10162	10268	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12611	12717	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10162	10268	
==>(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10079	10169	
==>PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4059	4162	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6708	6811	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4294	4395	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10743	10844	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4294	4395	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10743	10844	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $ <==
7	/Users/nnunley/pugs/util/package-osx.pl	7235	7332	
==>::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/man/man3/Perl6::Spec::CPAN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15096	15217	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19794	19915	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15096	15217	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19794	19915	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15096	15217	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19794	19915	
==>what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2339	2439	
==>$ret="";
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	next if !defined $resul <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4243	4345	
==>:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3370	3472	
==>:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4243	4345	
==>:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3370	3472	
==>:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	636	736	
==>{
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*? <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	636	736	
==>{
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*? <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	636	736	
==>{
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4884	5029	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7820	7965	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4884	5029	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7820	7965	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4884	5029	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7820	7965	
==>s it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11791	11886	
==>nternal caching of keys that is expected to happen,
but wishes to compare them with something ot <==
7	/Users/nnunley/pugs/inc/Module/Install/Can.pm	438	558	
==>{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we c <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	557	668	
==>{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2366	2475	
==>Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2366	2475	
==>Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2366	2475	
==>Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{ <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3849	3942	
==>ove up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephra <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3849	3942	
==>ove up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephra <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4780	4933	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7716	7869	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4780	4933	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7716	7869	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4780	4933	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7716	7869	
==>thod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bin <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8019	8126	
==>ach %$suspect) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $key = "" <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	3146	3258	
==>n to load it.
END

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7117	7227	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7117	7227	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7117	7227	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.un <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	299	547	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation::Example::Head <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3044	3187	
==>ew('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3044	3187	
==>ew('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3044	3187	
==>ew('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2761	2869	
==>=> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ / <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2761	2869	
==>=> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ / <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2761	2869	
==>=> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ / <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13359	13458	
==>ass name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::iden <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13359	13458	
==>ass name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::iden <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13359	13458	
==>ass name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::iden <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24554	24648	
==>ct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fire <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23318	23412	
==>ct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fire <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24554	24648	
==>ct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fire <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23318	23412	
==>ct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fire <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	120	236	
==>Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	120	236	
==>Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	120	236	
==>Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	119	234	
==>Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	119	234	
==>Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	119	234	
==>Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions b <==
7	/Users/nnunley/pugs/util/svnlog2graph.pl	2111	2225	
==>[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_da <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3434	3557	
==>e')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3434	3557	
==>e')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3434	3557	
==>e')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20626	20723	
==>he bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19552	19649	
==>he bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20626	20723	
==>he bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19552	19649	
==>he bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to <==
7	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	237	343	
==>ne if the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->lo <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1984	2087	
==>3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(in <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2346	2449	
==>3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(in <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	201	304	
==>tt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1984	2087	
==>3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(in <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2346	2449	
==>3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(in <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	188	288	
==>ne if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->lo <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8936	9120	
==>s_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method", <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2906	3003	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10829	10926	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6031	6128	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2906	3003	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10829	10926	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6031	6128	
==>_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, St <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	103	207	
==>ys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	103	207	
==>ys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	103	207	
==>ys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	102	205	
==>ys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	102	205	
==>ys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	102	205	
==>ys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12616	12702	
==>{true}.

p6_named_character(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close), <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6960	7079	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9930	10049	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6960	7079	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9930	10049	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6960	7079	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9930	10049	
==>ody (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic me <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38711	38817	
==>: ", $parser->visual, "\n";
    print "REGEX:  ", $parser->qr, "\n";
  }

The output is:

  VISUAL: ^(?:.*f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5176	5295	
==>self)->add_method($label, $method);
        },          
    },
);

# < Class is a subclass of Object >
::opaque_instanc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4098	4274	
==>for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $a eq <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3084	3185	
==>recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sor <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3084	3185	
==>recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sor <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1640	1741	
==>atch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->pos <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28047	28139	
==>$var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable name <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28047	28139	
==>$var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable name <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12754	12842	
==>harname_to_char(Name,C), !.
p6_named_character_tail([],Close)    --> [Close], !.
p6_named <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3300	3425	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8585	8710	
==>ode = shift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        my $tail <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3561	3681	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9979	10099	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8284	8404	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3561	3681	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9979	10099	
==>ode = shift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3539	3680	
==>id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9192	9299	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6739	6846	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9192	9299	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6739	6846	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9192	9299	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6739	6846	
==>':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preord <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29294	29391	
==>asically).  In order for the 'atom' handle to be executed, you must
explicitly add it to the queue <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9321	9432	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6868	6979	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9321	9432	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6868	6979	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9321	9432	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6868	6979	
==>}
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20207	20307	
==>lass_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19977	20080	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17116	17219	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19977	20080	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17116	17219	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19977	20080	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17116	17219	
==>ance attributes with the meta model, 
        # class attributes are just package scoped "our" variables <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14218	14450	
==>)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14218	14450	
==>)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	618	755	
==>&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	618	755	
==>&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1: <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5660	5762	
==>f there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5660	5762	
==>f there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7184	7286	
==>f there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2901	3022	
==>xists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2901	3022	
==>xists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2901	3022	
==>xists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7554	7642	
==>n Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1782	1870	
==>n Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9188	9276	
==>n Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2000	2088	
==>n Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.o <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	6129	6246	
==>d ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\ <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6129	6246	
==>d ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\ <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	513	621	
==>t) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	513	621	
==>t) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	488	589	
==>gs = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	488	589	
==>gs = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn = <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	488	589	
==>gs = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn = <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5896	6112	
==>Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$por <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5896	6112	
==>Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$por <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36623	36719	
==>ation is identical to the
invocant.  Another trivial case is where any any source relation has ze <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41172	41268	
==>ation is identical to the
invocant.  Another trivial case is where any any source relation has ze <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7693	7786	
==>atch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9621	9714	
==>atch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7681	7774	
==>atch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captu <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3878	4141	
==>d_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate ( <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3921	4184	
==>d_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate ( <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3878	4141	
==>d_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate ( <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3921	4184	
==>d_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate ( <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	6230	6411	
==>values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method u <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9707	9888	
==>values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method u <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8781	8962	
==>values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	198	317	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	198	317	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1786	1905	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1991	2110	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2054	2173	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	198	317	
==>rs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5864	5950	
==>R)}, ")".
p5_elemental(condition(Rk,R1,R2)) --> "(?", p5_condition_body(Rk,R1,R2), !.
p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12889	12996	
==>ckage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12889	12996	
==>ckage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return " <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12889	12996	
==>ckage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return " <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4139	4240	
==>∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3266	3367	
==>∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4139	4240	
==>∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3266	3367	
==>∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1113	1239	
==>}
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pack <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1113	1239	
==>}
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pack <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1113	1239	
==>}
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pack <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3361	3453	
==>l>|<lookahead>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ } <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5537	5624	
==>m B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base ro <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5537	5624	
==>m B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base ro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7734	7821	
==>m B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base ro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	701	843	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	789	931	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	701	843	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	789	931	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	701	843	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	789	931	
==>RGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } e <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2976	3091	
==>.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10210	10372	
==>f, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10210	10372	
==>f, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10210	10372	
==>f, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6384	6485	
==>@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") i <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5457	5558	
==>@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") i <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6384	6485	
==>@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") i <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5457	5558	
==>@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") i <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3995	4092	
==>r of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3995	4092	
==>r of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6974	7070	
==>r of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9044	9140	
==>r of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6974	7070	
==>r of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9044	9140	
==>r of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Steva <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1858	1950	
==>%?CONFIG{'num_width'} == 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	478	653	
==>ab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$mat <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7130	7229	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6260	6359	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2914	3013	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2914	3013	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7130	7229	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6260	6359	
==>infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are f <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3510	3648	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8794	8932	
==>my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3764	3897	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10182	10315	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8486	8619	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3764	3897	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10182	10315	
==>my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25916	26112	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28117	28313	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25916	26112	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28117	28313	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25916	26112	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28117	28313	
==>hift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Val <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24732	24826	
==>ample tuple must be distinct from the other tuples.  All Relation::Example
attributes may be in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25672	25806	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27867	28001	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25672	25806	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27867	28001	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25672	25806	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27867	28001	
==>(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $ <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2918	3013	
==>d month_abbr returns Str { @months_abbr[./month_0] }

# yes, these functions are not "correct" : <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	387	483	
==><rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	387	483	
==><rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15627	15721	
==>ribute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes> <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15627	15721	
==>ribute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6449	6534	
==>ttribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6449	6534	
==>ttribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6449	6534	
==>ttribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$: <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1076	1239	
==>day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4446	4552	
==>sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4446	4552	
==>sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4446	4552	
==>sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3602	3708	
==>sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7327	7428	
==>g intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next i <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7327	7428	
==>g intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6515	6613	
==>args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) re <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6515	6613	
==>args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) re <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7387	7483	
==>args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) re <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7387	7483	
==>args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) re <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	448	539	
==>nt-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	409	500	
==>nt-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	409	500	
==>nt-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4678	4807	
==>t;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13103	13232	
==>t;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15714	15843	
==>t;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17202	17331	
==>t;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21885	22014	
==>t;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        m <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21808	21899	
==>ebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21808	21899	
==>ebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3990	4135	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6926	7071	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3990	4135	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6926	7071	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3990	4135	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6926	7071	
==>d->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operati <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3732	3833	
==>c) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_object(anyo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25409	25591	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27604	27786	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25409	25591	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27604	27786	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25409	25591	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27604	27786	
==>f' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$s <==
7	/Users/nnunley/pugs/examples/hop6/Lexer.pm	416	520	
==>XX - slurpy magic doesn't work too well presently ...
  $maketoken := { [ $^tok_label, $^tok ] }
    if ! <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9977	10080	
==>= $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] ruleop::capture( '$_[0]' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15030	15123	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12284	12377	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15030	15123	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12284	12377	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15030	15123	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12284	12377	
==>te) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9113	9241	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12086	12214	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9113	9241	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12086	12214	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9113	9241	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12086	12214	
==>bMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5174	5300	
==>seudo-code for usage inside a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13244	13380	
==>nal_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dum <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9430	9566	
==>nal_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dum <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10266	10402	
==>nal_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dum <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8129	8244	
==>ef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8129	8244	
==>ef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8129	8244	
==>ef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x <==
7	/Users/nnunley/pugs/util/version_h.pl	2272	2368	
==>o show new revision number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/d <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8105	8237	
==>tr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13699	13831	
==>tr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8105	8237	
==>tr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13693	13825	
==>tr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2600	2716	
==>ct but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPla <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	365	471	
==>ct but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPla <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	365	471	
==>ct but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPla <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9231	9360	
==>ntifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1852	1965	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3415	3528	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1852	1965	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3415	3528	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1852	1965	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3415	3528	
==>detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4870	4976	
==>est($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_abs <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4870	4976	
==>est($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_abs <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4870	4976	
==>est($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_abs <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25496	25597	
==>s in the string, so if regback is >= 0, the regmust search is never
 * wasted effort.  The regback var <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3353	3448	
==>en telling this module to compare the received
output to the expected output.

=head1 EXPORTED F <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3353	3448	
==>en telling this module to compare the received
output to the expected output.

=head1 EXPORTED F <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3433	3528	
==>en telling this module to compare the received
output to the expected output.

=head1 EXPORTED F <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33856	34034	
==>$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )->an <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7646	7746	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6776	6876	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3362	3462	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3362	3462	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7646	7746	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6776	6876	
==>ix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6886	6982	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6016	6112	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2670	2766	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2670	2766	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6886	6982	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6016	6112	
==>, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21685	21773	
==>ffset
 #define check_offset_max substrs->data[2].max_offset

data[0].substr, aka anchored <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18843	18958	
==>e::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18843	18958	
==>e::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18843	18958	
==>e::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1125	1233	
==>ture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1136	1244	
==>ture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0 <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5567	5674	
==>span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5567	5674	
==>span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13297	13423	
==>ize + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13297	13423	
==>ize + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13297	13423	
==>ize + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2182	2308	
==>ize + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33019	33119	
==>es>

Array of Str - This stores an ordered list of one or more elements where
each element is a Templ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33019	33119	
==>es>

Array of Str - This stores an ordered list of one or more elements where
each element is a Templ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3413	3511	
==>' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20145	20269	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17284	17408	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20145	20269	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17284	17408	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20145	20269	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17284	17408	
==>urn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	5045	5144	
==>1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9294	9421	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12267	12394	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9294	9421	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12267	12394	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9294	9421	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12267	12394	
==>PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod <==
7	/Users/nnunley/pugs/util/file_to_hs.pl	109	211	
==>e.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s/\..*$//;
my @path = grep {! <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	3537	3649	
==>s;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bein <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7014	7126	
==>s;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bein <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5971	6083	
==>s;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bein <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	110	210	
==>lib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 exte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	110	210	
==>lib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 exte <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	110	210	
==>lib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 exte <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	110	210	
==>lib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 exte <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	51	149	
==>iltins;

use strict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
us <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6943	7079	
==>ne
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celem <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6943	7079	
==>ne
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celem <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2050	2181	
==>.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subcl <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2050	2181	
==>.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subcl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	464	562	
==>he resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Obj <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	464	562	
==>he resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Obj <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	464	562	
==>he resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Obj <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10223	10386	
==>diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10223	10386	
==>diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't u <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10223	10386	
==>diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't u <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	465	559	
==>n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Cont <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1078	1172	
==>n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Cont <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	465	559	
==>n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Cont <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1078	1172	
==>n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Cont <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1491	1598	
==>density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.en <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1491	1598	
==>density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.en <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	502	601	
==>are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this modu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1047	1146	
==>are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this modu <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	502	601	
==>are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this modu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1047	1146	
==>are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this modu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1047	1146	
==>are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this modu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18955	19069	
==>le.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13376	13473	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10660	10757	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13376	13473	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10660	10757	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13376	13473	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10660	10757	
==>rn ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4308	4452	
==>n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4308	4452	
==>n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4308	4452	
==>n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $ <==
7	/Users/nnunley/pugs/misc/S29_round.pl	3495	3610	
==>.5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        wh <==
7	/Users/nnunley/pugs/misc/S29_round.pl	1806	1920	
==>.5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        wh <==
7	/Users/nnunley/pugs/misc/S29_round.pl	2343	2457	
==>.5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        wh <==
7	/Users/nnunley/pugs/misc/S29_round.pl	2905	3019	
==>.5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        wh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7684	7889	
==>) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7684	7889	
==>) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7684	7889	
==>) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4731	4829	
==>cription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ove <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4731	4829	
==>cription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ove <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6928	7026	
==>cription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ove <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43298	43389	
==>elation::Example> is bundled with Relation and
provides a reference implementation of a Rela <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8820	8948	
==>ESS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9487	9596	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7034	7143	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9487	9596	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7034	7143	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9487	9596	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7034	7143	
==>>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14365	14525	
==>i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14365	14525	
==>i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14365	14525	
==>i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@ <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2896	3056	
==>i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7235	7349	
==>r(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hac <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7235	7349	
==>r(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hac <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7235	7349	
==>r(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8769	8904	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6322	6457	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8769	8904	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6322	6457	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8769	8904	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6322	6457	
==>classes}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the supercl <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	550	648	
==>Limit is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLimit;

has Perl::Type $.subReturns;

has Bo <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2651	2777	
==>t '\syncomment{';
	    while (scalar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6558	6671	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9528	9641	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6558	6671	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9528	9641	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6558	6671	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9528	9641	
==>onfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5498	5619	
==>::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5498	5619	
==>::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5498	5619	
==>::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( ' <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13297	13398	
==>ecurrence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 a <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13297	13398	
==>ecurrence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 a <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9744	9837	
==>a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negati <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9744	9837	
==>a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negati <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6124	6243	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5476	5595	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	10446	10565	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6124	6243	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5476	5595	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10446	10565	
==>od closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4358	4456	
==>d2 $inst_pkg = $inst->is_installed( package => $package )

=cut

### XXX package name?
sub is_insta <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16758	16865	
==>al header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Con <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16758	16865	
==>al header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Con <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3383	3485	
==>string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3383	3485	
==>string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3383	3485	
==>string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20382	20478	
==>lly do it.  An os-level preference
/ control-panel displays a list of all the languages your prog <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20382	20478	
==>lly do it.  An os-level preference
/ control-panel displays a list of all the languages your prog <==
7	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	988	1095	
==>ub install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9292	9397	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6839	6944	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9292	9397	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6839	6944	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9292	9397	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6839	6944	
==>e_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_bread <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4204	4363	
==>n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5525	5684	
==>n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4204	4363	
==>n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5513	5672	
==>n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	573	669	
==>enclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	573	669	
==>enclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstra <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	573	669	
==>enclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstra <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	329	475	
==>nfo )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14877	15002	
==>se constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14877	15002	
==>se constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14877	15002	
==>se constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Valu <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24085	24182	
==>d
language into the program code itself, so it then becomes a version of that
language.  By contra <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13132	13229	
==>is is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24085	24182	
==>d
language into the program code itself, so it then becomes a version of that
language.  By contra <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13132	13229	
==>is is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with a <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	79	201	
==>b term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	79	201	
==>b term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4224	4321	
==>o. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rule <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4408	4505	
==>o. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rule <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16828	16916	
==>UB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16828	16916	
==>UB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16828	16916	
==>UB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9167	9276	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6714	6823	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9167	9276	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6714	6823	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9167	9276	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6714	6823	
==>ed($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatche <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16877	16966	
==>0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	204	331	
==>evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	204	331	
==>evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	204	331	
==>evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PS <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9097	9217	
==>l non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 } <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9097	9217	
==>l non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 } <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2700	2793	
==>:= Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1 <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2700	2793	
==>:= Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7450	7604	
==>>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7450	7604	
==>>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7450	7604	
==>>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2707	2811	
==>unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2707	2811	
==>unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2707	2811	
==>unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	9163	9265	
==>ile = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test_results <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2038	2203	
==>{

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2455	2616	
==>{
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1971	2132	
==>{
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2455	2616	
==>{
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2420	2510	
==>ethods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2420	2510	
==>ethods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2420	2510	
==>ethods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5911	6043	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4031	4163	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5911	6043	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4031	4163	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5911	6043	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4031	4163	
==>lasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	523	619	
==>rence  is JSX::InternalValue;
class JSX::InternalValue::List       is JSX::InternalValue;
class J <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1165	1301	
==>| $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4404	4540	
==>| $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1165	1301	
==>| $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4404	4540	
==>| $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8106	8209	
==>and();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	11685	11778	
==>e for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 C <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11685	11778	
==>e for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8032	8174	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5591	5733	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8032	8174	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5591	5733	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8032	8174	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5591	5733	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1720	1862	
==>ate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        p <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	37	140	
==>tter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 N <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35899	35993	
==>ll common attribute names
and corresponding common tuple values are aligned and merged.  The he <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37642	37736	
==>ll common attribute names and corresponding common tuple values
are aligned and merged.  The he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40449	40543	
==>ll common attribute names
and corresponding common tuple values are aligned and merged.  The he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42191	42285	
==>ll common attribute names and corresponding common tuple values
are aligned and merged.  The he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40063	40157	
==>ll common attribute names
and corresponding common tuple values are aligned and merged.  The he <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41841	41935	
==>ll common attribute names and corresponding common tuple values
are aligned and merged.  The he <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17698	17846	
==>ams => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19456	19604	
==>ams => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39908	40055	
==>ams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40967	41114	
==>ams => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1086	1184	
==>XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1086	1184	
==>XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1086	1184	
==>XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this b <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25376	25571	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26034	26229	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28816	29011	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25655	25850	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26313	26508	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29095	29290	
==>m1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         r <==
7	/Users/nnunley/pugs/util/claim_drift.pl	396	495	
==>Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, qw( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1199	1335	
==>hildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docume <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1199	1335	
==>hildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docume <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1199	1335	
==>hildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docume <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1248	1380	
==>'@:slots')->[$idx]; # type == Container::Scalar
            },
            
            'array_storeElem' => sub { # $idx -> $contain <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11865	11954	
==>m_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB P <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11865	11954	
==>m_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB P <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11865	11954	
==>m_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1435	1558	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2998	3121	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1435	1558	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2998	3121	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1435	1558	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2998	3121	
==>. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = unde <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25579	25676	
==>t.  The regback variable says how many characters back from
 * where regmust matched is the earlie <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3937	4103	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6464	6630	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3937	4103	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6464	6630	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3937	4103	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6464	6630	
==>$body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_na <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20685	20787	
==>kage Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17029	17138	
==>ict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6801	6905	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9771	9875	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6801	6905	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9771	9875	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6801	6905	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9771	9875	
==>method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4846	4984	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5807	5945	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4846	4984	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5807	5945	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4846	4984	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5807	5945	
==>sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.u <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	746	859	
==>>new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	824	916	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1344	1436	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	824	916	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1344	1436	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	824	916	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1344	1436	
==>nstant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FET <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4902	5019	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7551	7668	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5115	5226	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11564	11675	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5115	5226	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11564	11675	
==>h->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by th <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3832	3924	
==>->force_object(anyof_class => $S->force_object(horiz => 1)) if $cc;
    return $S->object(hor <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1831	1986	
==>pping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File: <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	263	359	
==>, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLeng <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	263	359	
==>, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLeng <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8272	8365	
==>a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7402	7495	
==>a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8272	8365	
==>a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7402	7495	
==>a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4202	4382	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4202	4382	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4202	4382	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6728	6894	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6728	6894	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6728	6894	
==>ubmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            forea <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28740	28829	
==>f: alnum, anchor,
anyof, anyof_char, anyof_class, anyof_range, assertion, branch, close,
c <==
7	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1634	1837	
==>al(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	708	808	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instance <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	708	808	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instance <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	708	808	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	95	194	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instance <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	95	194	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instance <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	95	194	
==>Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instance <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5516	5618	
==>eturn $S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12480	12577	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10031	10128	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12480	12577	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10031	10128	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12480	12577	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10031	10128	
==>defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3492	3610	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6020	6138	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3492	3610	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6020	6138	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3492	3610	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6020	6138	
==>->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_ <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1227	1315	
==>optable->addToken("term:\\n", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->add <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2823	2948	
==>') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_conf <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2823	2948	
==>') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_conf <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2823	2948	
==>') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_conf <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3909	4008	
==>l bug is in Handlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ' <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	9991	10087	
==>k in progress. As new features are
added to Pugs, new test functions will be defined to facilitat <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10049	10145	
==>k in progress. As new features are
added to Pugs, new test functions will be defined to facilitat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6587	6675	
==>ingleton_method('singleton_test_on_object' => sub { 
    '&Object::singleton_test_on_obje <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	283	385	
==>ew( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @ <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	283	385	
==>ew( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	13496	13588	
==>) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differen <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13496	13588	
==>) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3129	3218	
==>_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_ba <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3129	3218	
==>_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_ba <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3129	3218	
==>_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_ba <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1378	1516	
==>r
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1378	1516	
==>r
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1686	1791	
==>pans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.jo <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1686	1791	
==>pans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.jo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1432	1534	
==>_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1432	1534	
==>_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1432	1534	
==>_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3410	3576	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6346	6512	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3410	3576	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6346	6512	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3410	3576	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6346	6512	
==>eturn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3883	3984	
==>n, $target, $pos, $length) = @_;
  $length = 1 if not defined $length;
  return (substr $target, $pos, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18113	18287	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15351	15525	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18113	18287	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15351	15525	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18113	18287	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15351	15525	
==>aybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => ' <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	17318	17452	
==>$fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conversion text
        my $idx = index($fm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4234	4365	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7170	7301	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4234	4365	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7170	7301	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4234	4365	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7170	7301	
==>> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # t <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	714	807	
==>tput-file|o=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	950	1074	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1038	1162	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	950	1074	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1038	1162	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	950	1074	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1038	1162	
==>ons as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17246	17350	
==>ser = Regexp::Parser->new($re);
  my $n = eval{ $parser->root };
  die "$@" if !defined $n;
  #print Dump <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1363	1481	
==>gram =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10087	10243	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7638	7794	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10087	10243	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7638	7794	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10087	10243	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7638	7794	
==>n sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current val <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22434	22530	
==>ss ..." warnings when used
in flag and non-capturing group constructs.

=back

=head2 0.01 -- Jun <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7780	7906	
==>self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        } <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7780	7906	
==>self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2111	2213	
==>nd this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2111	2213	
==>nd this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2111	2213	
==>nd this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpa <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	15978	16075	
==>are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

The <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15978	16075	
==>are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

The <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23103	23199	
==>e =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname a <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21912	22008	
==>e =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname a <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23103	23199	
==>e =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname a <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21912	22008	
==>e =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname a <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4515	4610	
==>escription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter i <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4515	4610	
==>escription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6712	6807	
==>escription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1866	1980	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3429	3543	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1866	1980	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3429	3543	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1866	1980	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3429	3543	
==>2 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are ve <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38537	38643	
==>xp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6891	7011	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9861	9981	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6891	7011	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9861	9981	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6891	7011	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9861	9981	
==>ethod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2982	3074	
==>ource_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
print "$match";

sub slu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2248	2381	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4575	4708	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2248	2381	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4575	4708	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2248	2381	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4575	4708	
==>currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pro <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1655	1749	
==>tfile($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec->catfile($path <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	49	147	
==>r, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	49	147	
==>r, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	49	147	
==>r, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	49	147	
==>r, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	944	1036	
==>DO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	944	1036	
==>DO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	944	1036	
==>DO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	912	1028	
==>ngth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1305	1421	
==>ngth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	912	1028	
==>ngth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1305	1421	
==>ngth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2963	3074	
==>ack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2963	3074	
==>ack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2963	3074	
==>ack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a C <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13974	14128	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13974	14128	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13974	14128	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6236	6390	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4738	4892	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2682	2836	
==>e];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fina <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7915	8021	
==>= (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9436	9645	
==>self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9436	9645	
==>self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9436	9645	
==>self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11666	11761	
==>n the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given item <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8813	8908	
==>n the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given item <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11666	11761	
==>n the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given item <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8813	8908	
==>n the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given item <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5732	5885	
==>if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5732	5885	
==>if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5732	5885	
==>if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3648	3752	
==>tore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3648	3752	
==>tore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3648	3752	
==>tore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test s <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3281	3378	
==>de_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4266	4413	
==>al
                my $self = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9074	9186	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6621	6733	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9074	9186	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6621	6733	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9074	9186	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6621	6733	
==>, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $orde <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16062	16221	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20779	20938	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16062	16221	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20779	20938	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16062	16221	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20779	20938	
==>tall_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $ <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	8	111	
==>Newton;

use v6;

sub update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += <==
7	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	173	319	
==>while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spe <==
7	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	173	319	
==>while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3578	3681	
==>n0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $s <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3578	3681	
==>n0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	746	836	
==>-----------------------------------------------------
## Object

# The 'Object' class
$::Ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	746	836	
==>-----------------------------------------------------
## Object

# The 'Object' class
$::Ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	746	836	
==>-----------------------------------------------------
## Object

# The 'Object' class
$::Ob <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15635	15843	
==>,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'te <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15914	16122	
==>,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'te <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15603	15748	
==>method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15603	15748	
==>method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15603	15748	
==>method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        } <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	10495	10588	
==>= type::variable::free->new;
		my $l = type::operator::nary->new(list => $a);
		type::operator <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13553	13644	
==>digit(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2797	2951	
==>returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        la <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3417	3571	
==>returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        la <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2797	2951	
==>returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        la <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3417	3571	
==>returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        la <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1814	1915	
==>, "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1814	1915	
==>, "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1814	1915	
==>, "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt" <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	661	784	
==>1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ci <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38730	38846	
==>->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiza <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38730	38846	
==>->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiza <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38730	38846	
==>->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiza <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6618	6714	
==>is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6618	6714	
==>is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6618	6714	
==>is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	680	831	
==>ub _draw_class_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3402	3527	
==>}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3402	3527	
==>}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	490	600	
==>, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelud <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	490	600	
==>, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelud <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	490	600	
==>, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelud <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3751	3855	
==>::Events::Event {
    # pretty much an abstract baseclass
    # an empty implementation is useful on it's <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10431	10542	
==>nt STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10431	10542	
==>nt STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10431	10542	
==>nt STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	280	380	
==>param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_sou <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	280	380	
==>param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_sou <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20635	20731	
==>gram
in the order you chose so to pick a supported language closest to your
preference.  Presumab <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20635	20731	
==>gram
in the order you chose so to pick a supported language closest to your
preference.  Presumab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	45	134	
==>::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	45	134	
==>::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	45	134	
==>::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13314	13465	
==>bstr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3479	3614	
==>bstr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3479	3614	
==>bstr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3479	3614	
==>bstr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6310	6415	
==>cat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    }) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6310	6415	
==>cat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    }) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6310	6415	
==>cat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    }) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8788	8958	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11761	11931	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8788	8958	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11761	11931	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8788	8958	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11761	11931	
==>0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so t <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8951	9081	
==>5px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { tex <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22574	22688	
==>.sub "p6analyze" :method
    .param pmc pad
    .local string mname
    .local pmc value
    .local pmc exp
    mna <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10330	10431	
==>-----------------------------------    
    method resolve () { "<implemented>" }

    # ------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10353	10454	
==>------------    
    method resolve () { "<implemented>" }

    # ------------------------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10330	10431	
==>-----------------------------------    
    method resolve () { "<implemented>" }

    # ------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10353	10454	
==>------------    
    method resolve () { "<implemented>" }

    # ------------------------------------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10330	10431	
==>-----------------------------------    
    method resolve () { "<implemented>" }

    # ------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10353	10454	
==>------------    
    method resolve () { "<implemented>" }

    # ------------------------------------ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	17	131	
==>AML            qw[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEGIN {
    use l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	6	103	
==>s is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type:: <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9192	9338	
==>checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx { <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9192	9338	
==>checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx { <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13231	13337	
==>all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16708	16814	
==>all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16070	16176	
==>all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of t <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	12984	13081	
==>ue to get the next value.
The unit specifier is also used internally when joining two spans, and w <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12984	13081	
==>ue to get the next value.
The unit specifier is also used internally when joining two spans, and w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7492	7605	
==>s, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7492	7605	
==>s, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7492	7605	
==>s, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20353	20451	
==>if the bot's socket to the server is currently connected.

Note that you might want to use the C<lo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19301	19399	
==>if the bot's socket to the server is currently connected.

Note that you might want to use the C<lo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20353	20451	
==>if the bot's socket to the server is currently connected.

Note that you might want to use the C<lo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19301	19399	
==>if the bot's socket to the server is currently connected.

Note that you might want to use the C<lo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15078	15186	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12332	12440	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15963	16071	
==>on_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Ha <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15078	15186	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12332	12440	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15078	15186	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12332	12440	
==>stance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recog <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9495	9649	
==>d eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not im <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15039	15193	
==>d eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not im <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9495	9649	
==>d eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not im <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15033	15187	
==>d eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not im <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2783	2897	
==>_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2783	2897	
==>_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2783	2897	
==>_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2229	2350	
==>output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $me <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	224	333	
==>output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $me <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	224	333	
==>output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4660	4762	
==>};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protect <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4660	4762	
==>};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protect <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4660	4762	
==>};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protect <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10011	10109	
==>$lhs),DOWN($rhs));
}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DO <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12696	12795	
==>'> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14809	14906	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12063	12160	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14809	14906	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12063	12160	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14809	14906	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12063	12160	
==>ned $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2587	2705	
==>t $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2587	2705	
==>t $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2587	2705	
==>t $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6801	6899	
==>k

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4153	4251	
==>k

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6801	6899	
==>k

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4153	4251	
==>k

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41136	41240	
==>y;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41136	41240	
==>y;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41136	41240	
==>y;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2775	2873	
==>hange, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) U <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2775	2873	
==>hange, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) U <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10624	10721	
==>u can update several fields with a single invocation.

The $value argument may be a plain string o <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10624	10721	
==>u can update several fields with a single invocation.

The $value argument may be a plain string o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10128	10243	
==>l $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work y <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10128	10243	
==>l $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work y <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10128	10243	
==>l $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work y <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4344	4448	
==>l($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./string <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4344	4448	
==>l($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./string <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5217	5319	
==>l($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./string <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5217	5319	
==>l($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./string <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16260	16383	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20977	21100	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16260	16383	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20977	21100	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16260	16383	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20977	21100	
==>ods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12984	13093	
==>@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basenam <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6140	6265	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5492	5617	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	10462	10587	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6140	6265	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5492	5617	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10462	10587	
==>f: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method i <==
7	/Users/nnunley/pugs/util/package-osx.pl	320	419	
==>/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14458	14644	
==>::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14458	14644	
==>::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14458	14644	
==>::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2756	2880	
==>lf.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $s <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2756	2880	
==>lf.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $s <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3550	3670	
==>lf.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $s <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3550	3670	
==>lf.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	148	255	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	143	250	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	148	255	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	143	250	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	148	255	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	143	250	
==>less ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2465	2565	
==>-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9783	9884	
==>['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9783	9884	
==>['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$li <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9783	9884	
==>['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$li <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	16183	16283	
==>lue.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a sin <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16183	16283	
==>lue.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a sin <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	26164	26258	
==>c relational operator that returns a new Relation
which has a subset of the original's attribut <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30716	30810	
==>c relational operator that returns a new Relation
which has a subset of the original's attribut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6588	6703	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6588	6703	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6588	6703	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7082	7190	
==>ath, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7082	7190	
==>ath, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31670	31767	
==>rogram is run, it would
determine either from a user config file or a user interface that the
curr <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31670	31767	
==>rogram is run, it would
determine either from a user config file or a user interface that the
curr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2204	2333	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4531	4660	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2204	2333	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4531	4660	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2204	2333	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4531	4660	
==>ute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (def <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20901	21012	
==>s = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarr <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3435	3528	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6449	6542	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8517	8610	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3435	3528	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6449	6542	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8517	8610	
==>enames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9558	9677	
==>art;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9558	9677	
==>art;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9558	9677	
==>art;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	491	584	
==>ce for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allow <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	491	584	
==>ce for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allow <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19525	19616	
==>ication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user ag <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19525	19616	
==>ication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user ag <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1517	1784	
==>n 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                w <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1517	1784	
==>n 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                w <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5576	5708	
==>from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5576	5708	
==>from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5576	5708	
==>from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function ( <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11002	11100	
==>ng the execution of some methods, 
because it will try to iterate to find a "complement set" that i <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11002	11100	
==>ng the execution of some methods, 
because it will try to iterate to find a "complement set" that i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3521	3643	
==>ariable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # X <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4838	4960	
==>ariable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # X <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3521	3643	
==>ariable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # X <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4826	4948	
==>ariable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # X <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13300	13401	
==>$self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13300	13401	
==>$self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13300	13401	
==>$self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1019	1210	
==>atchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17705	17835	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14925	15055	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17705	17835	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14925	15055	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17705	17835	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14925	15055	
==>*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5219	5386	
==>sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5054	5217	
==>sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2272	2385	
==>"Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends- <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3629	3738	
==>"Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2762	2861	
==>$contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2762	2861	
==>$contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2762	2861	
==>$contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6020	6145	
==>alculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTR <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6020	6145	
==>alculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTR <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6020	6145	
==>alculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	894	995	
==>name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	894	995	
==>name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} = <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4760	4860	
==>)`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quart <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4760	4860	
==>)`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quart <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18761	18855	
==>asn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen tr <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17804	17898	
==>asn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen tr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	646	740	
==>.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18761	18855	
==>asn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen tr <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17804	17898	
==>asn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen tr <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	646	740	
==>.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	646	740	
==>.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	447	583	
==>({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	447	583	
==>({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	447	583	
==>({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE_ <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16200	16317	
==>omp

 multi Str::chomp (  Str  $string is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12747	12831	
==>:Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Excep <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12747	12831	
==>:Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Excep <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12747	12831	
==>:Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Excep <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3693	3839	
==>e =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Vari <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5010	5156	
==>e =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Vari <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3693	3839	
==>e =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Vari <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4998	5144	
==>e =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Vari <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19634	19727	
==>ethod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19634	19727	
==>ethod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19634	19727	
==>ethod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4497	4638	
==>>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4497	4638	
==>>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4497	4638	
==>>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2178	2311	
==>>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2178	2311	
==>>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2178	2311	
==>>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($na <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4759	4870	
==>s, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or return;
        splice( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24750	24893	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26939	27082	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24750	24893	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26939	27082	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24750	24893	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26939	27082	
==>cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	481	577	
==>re of a pugs bootstrap exercise.

This code is currently completely in flux.  It is simultaneousl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12197	12320	
==>f ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12191	12314	
==>f ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gram <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11638	11756	
==>n 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2121	2237	
==>n 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8893	9009	
==>n 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2121	2237	
==>n 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8893	9009	
==>n 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matc <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3447	3558	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12005	12116	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6572	6683	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3447	3558	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12005	12116	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6572	6683	
==>$?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %v <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4907	5006	
==>:OnPerl5::X1::Api;

sub emit {
    my($pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	2956	3081	
==>okie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$lo <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2956	3081	
==>okie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$lo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8463	8567	
==>) ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8463	8567	
==>) ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8463	8567	
==>) ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17853	17952	
==>rom it.

You can create more than one DBMS object at a time, and they are
essentially all isolated f <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17853	17952	
==>rom it.

You can create more than one DBMS object at a time, and they are
essentially all isolated f <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	12387	12582	
==>t_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exis <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	324	422	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	648	746	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	324	422	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	648	746	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	324	422	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	648	746	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5102	5231	
==>+;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->ro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5102	5231	
==>+;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->ro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5102	5231	
==>+;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->ro <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7975	8072	
==>dered set of spans.

The problem this class solves is when you need do perform "set" operations on <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7975	8072	
==>dered set of spans.

The problem this class solves is when you need do perform "set" operations on <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	11542	11633	
==>pends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11600	11691	
==>pends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1502	1619	
==>ined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1502	1619	
==>ined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1502	1619	
==>ined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($js <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3907	4003	
==>-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3907	4003	
==>-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3907	4003	
==>-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27660	27754	
==>on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24624	24735	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26813	26924	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24624	24735	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26813	26924	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24624	24735	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26813	26924	
==>my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1577	1680	
==>t.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35061	35180	
==>->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remai <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35061	35180	
==>->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remai <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35061	35180	
==>->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remai <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	267	376	
==>me, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%e <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	267	376	
==>me, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%e <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	267	376	
==>me, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%e <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	267	376	
==>me, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7357	7486	
==>e 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{b <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7109	7235	
==>e 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{b <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15343	15455	
==>join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2783	2874	
==>}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join("," <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6235	6326	
==>}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join("," <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2783	2874	
==>}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join("," <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2783	2874	
==>}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join("," <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	113	223	
==>06;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	110	213	
==>06;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	104	207	
==>06;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	110	213	
==>06;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	104	207	
==>06;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_s <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	329	427	
==>onthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181 <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	329	427	
==>onthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13088	13199	
==>result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping no <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16565	16676	
==>result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping no <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15927	16038	
==>result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping no <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25397	25494	
==>bject has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely id <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25397	25494	
==>bject has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely id <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19600	19696	
==>xt to be stored in non-Perl external files, such as a 2-column
plain-text format that will be muc <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19600	19696	
==>xt to be stored in non-Perl external files, such as a 2-column
plain-text format that will be muc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40796	40918	
==>}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40796	40918	
==>}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40796	40918	
==>}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1580	1695	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1580	1695	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1580	1695	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _b <==
7	/Users/nnunley/pugs/util/version_h.pl	2310	2396	
==>"$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35270	35397	
==>ail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=rem <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3312	3439	
==>@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3312	3439	
==>@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3312	3439	
==>@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35270	35397	
==>ail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=rem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35270	35397	
==>ail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=rem <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3554	3651	
==>x highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # commen <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9495	9615	
==>ding === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13971	14074	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14458	14561	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13971	14074	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14458	14561	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13971	14074	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14458	14561	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5305	5406	
==>$iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the Class m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	316	413	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	640	737	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	316	413	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	640	737	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	316	413	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	640	737	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      orig <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6213	6316	
==>'> <UnicodeEscapeSequence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode catego <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	28180	28276	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29191	29287	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32732	32828	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33743	33839	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31842	31938	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32889	32985	
==>od has not yet been implemented.>

This method is a generic relational operator that returns a ne <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	286	389	
==>ts.

- The algorithm is a bit simpler than the previous version, but the complexity is the same.

TO <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10880	10979	
==>son_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function' <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	381	480	
==>() { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10880	10979	
==>son_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function' <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	381	480	
==>() { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1394	1492	
==>() { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1394	1492	
==>() { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2121	2321	
==>for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($l <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2121	2321	
==>for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3229	3409	
==>);
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3229	3409	
==>);
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3229	3409	
==>);
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{n <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	837	954	
==>((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    el <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	837	954	
==>((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16463	16584	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21180	21301	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16463	16584	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21180	21301	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16463	16584	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21180	21301	
==>call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTRO <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2438	2541	
==>ain.

Note: This program should be run as unpreviliged user, it will ask you to enter
      commands req <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	402	500	
==>:IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
u <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	406	504	
==>:IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
u <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	402	500	
==>:IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
u <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	406	504	
==>:IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4480	4571	
==>_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangli <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4480	4571	
==>_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangli <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4480	4571	
==>_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangli <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6488	6627	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8937	9076	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6488	6627	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8937	9076	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6488	6627	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8937	9076	
==>start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3313	3437	
==>\< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6012	6139	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8982	9109	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6012	6139	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8982	9109	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6012	6139	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8982	9109	
==>'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_me <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	17731	17824	
==>$Strap->{callback} = \&strap_callback;
sub strap_callback {
    my($self, $line, $type, $total <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7122	7245	
==>an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7122	7245	
==>an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7122	7245	
==>an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23999	24104	
==>nd
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22772	22877	
==>nd
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23999	24104	
==>nd
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22772	22877	
==>nd
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	991	1118	
==>" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	999	1121	
==>" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	261	360	
==>an optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



it returns (or "yie <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	248	344	
==>an optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

it returns (or "yie <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4222	4317	
==>re
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected l <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4222	4317	
==>re
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4302	4397	
==>re
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15019	15193	
==>res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15019	15193	
==>res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15019	15193	
==>res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9974	10123	
==>list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9974	10123	
==>list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subru <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1061	1161	
==>ed from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1061	1161	
==>ed from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6850	6983	
==>st_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_IN <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11405	11538	
==>st_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_IN <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12203	12336	
==>st_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_IN <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12930	13063	
==>st_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_IN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	94	186	
==>atdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { requ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	94	186	
==>atdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { requ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	94	186	
==>atdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { requ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15696	15819	
==>position easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15696	15819	
==>position easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15696	15819	
==>position easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20417	20536	
==>position easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20417	20536	
==>position easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20417	20536	
==>position easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registr <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	55	160	
==>= 0;
say "ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kont <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	25	121	
==>ct;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	25	121	
==>ct;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	25	121	
==>ct;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	25	120	
==>ct;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	25	120	
==>ct;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	25	120	
==>ct;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Ut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8785	8943	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11758	11916	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8785	8943	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11758	11916	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8785	8943	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11758	11916	
==>$_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	2652	2770	
==>s#/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24182	24327	
==>ems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24182	24327	
==>ems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24182	24327	
==>ems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4999	5113	
==>rpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $und <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4999	5113	
==>rpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $und <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4999	5113	
==>rpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $und <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1483	1595	
==>d" };

sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc} = 'left' unl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1090	1207	
==>Perl5::emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\n <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3394	3495	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11952	12053	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6519	6620	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3394	3495	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11952	12053	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6519	6620	
==>eth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR', <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1608	1747	
==>0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the fo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1543	1675	
==>0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1427	1543	
==>ant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1427	1543	
==>ant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1427	1543	
==>ant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    re <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	461	575	
==>a code ref";
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        body => $body <==
7	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	411	507	
==>results by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filte <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3558	3674	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8842	8958	
==>k

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3810	3923	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10228	10341	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8532	8645	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3810	3923	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10228	10341	
==>k
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $t <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	3525	3628	
==>nclude;
    my $include_re = join( "|", map { quotemeta } @include );
    $Config{include_re} = qr/\.($i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7756	7851	
==>ys bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7756	7851	
==>ys bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7756	7851	
==>ys bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5085	5178	
==>js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5085	5178	
==>js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5085	5178	
==>js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2185	2326	
==>ass in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0], <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2245	2386	
==>ass in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0], <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4327	4435	
==>{""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI S <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4327	4435	
==>{""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI S <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4327	4435	
==>{""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI S <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	7378	7470	
==>turn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relat <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10855	10947	
==>turn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	190	289	
==>Pugs::Grammar::Perl6;
use Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compi <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	19472	19570	
==>d interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24024	24122	
==>d interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22540	22638	
==>d interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2101	2192	
==>hia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribut <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2101	2192	
==>hia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribut <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2101	2192	
==>hia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribut <==
7	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1362	1458	
==>g Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2984	3080	
==>g Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
7	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1362	1458	
==>g Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2984	3080	
==>g Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3331	3427	
==>g Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1460	1553	
==>al) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public co <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1460	1553	
==>al) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public co <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3753	3908	
==>= {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4000	4147	
==>= {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10449	10596	
==>= {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4000	4147	
==>= {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10449	10596	
==>= {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7931	8051	
==>719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730), <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7931	8051	
==>719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730), <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	635	750	
==>e "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { native($_) } (
		{
			arity => 0,
			name => '$*OUT',
			bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19458	19570	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16690	16802	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19458	19570	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16690	16802	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19458	19570	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16690	16802	
==>" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($l <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2079	2222	
==>po_index)
        ));
        $obj->index_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6628	6765	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9077	9214	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6628	6765	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9077	9214	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6628	6765	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9077	9214	
==>rt;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #wa <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2253	2370	
==>rn '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2253	2370	
==>rn '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17720	17822	
==>m(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22075	22175	
==>+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C)     :- (char_type(C,alnum);char_type(C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3725	3818	
==>retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoint <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3725	3818	
==>retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoint <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3725	3818	
==>retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoint <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7788	7921	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5347	5480	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7788	7921	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5347	5480	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7788	7921	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5347	5480	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1476	1609	
==>is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2101	2208	
==>p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2101	2208	
==>p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1333	1436	
==>p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3194	3297	
==>p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 s <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4346	4439	
==>utput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4346	4439	
==>utput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5870	5963	
==>utput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6611	6743	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9581	9713	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6611	6743	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9581	9713	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6611	6743	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9581	9713	
==>)";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	4717	4817	
==>e type::operator::nary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7323	7448	
==>&& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7323	7448	
==>&& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7323	7448	
==>&& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] = <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1865	1959	
==>.

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724. <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1828	1922	
==>.

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724. <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1865	1959	
==>.

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724. <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1828	1922	
==>.

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1410	1545	
==>eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1754	1884	
==>eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1361	1491	
==>eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1754	1884	
==>eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6118	6216	
==>package level version of OUTER::?

Either way, I think it might be useful to have this if for nothi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6118	6216	
==>package level version of OUTER::?

Either way, I think it might be useful to have this if for nothi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6118	6216	
==>package level version of OUTER::?

Either way, I think it might be useful to have this if for nothi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24590	24758	
==>=> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24590	24758	
==>=> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24590	24758	
==>=> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	666	804	
==>{
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1173	1268	
==>e main namespace for your tastes, and
you want to rebless everything down to your project's base <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1173	1268	
==>e main namespace for your tastes, and
you want to rebless everything down to your project's base <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1173	1268	
==>e main namespace for your tastes, and
you want to rebless everything down to your project's base <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8396	8548	
==>[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currentl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8396	8548	
==>[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currentl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8396	8548	
==>[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currentl <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7833	7932	
==>rn $S->object(exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5616	5714	
==>}
{
  package Regexp::Parser::__object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \ <==
7	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	575	667	
==>::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(St <==
7	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	575	667	
==>::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(St <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10883	11019	
==>eturn _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1845	1942	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2188	2285	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1845	1942	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2188	2285	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1845	1942	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2188	2285	
==>sn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings. <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	12351	12468	
==>id) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
}


role It <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	71	164	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	684	777	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	71	164	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	684	777	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	71	164	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	684	777	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args. <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4188	4289	
==>intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3315	3416	
==>intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4188	4289	
==>intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3315	3416	
==>intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	18994	19095	
==>ork if we pass in $plus_ten
my $flatten_polymorphic = fun(
	param => "f",
	body => comb(
		fun => comb <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1500	1591	
==>---------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1500	1591	
==>---------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	312	413	
==>f $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	312	413	
==>f $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	312	413	
==>f $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0 <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6289	6386	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8357	8454	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6289	6386	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8357	8454	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30186	30308	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31915	32037	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30186	30308	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31915	32037	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30186	30308	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31915	32037	
==>@ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ite <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	910	1004	
==>n+kane

=head1 METHODS

=head2 $pkg = JIB::Package->new( file => /path/to/jib | meta => META_OB <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14644	14798	
==>' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # / <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	141	254	
==>gs;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $par <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	136	243	
==>gs;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $par <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	130	237	
==>gs;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	136	243	
==>gs;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	130	237	
==>gs;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $par <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	27838	27930	
==>((int × int) × (str × int))", ":t (length_and_first ['foo'], length_and_first [1])");
is(t <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11446	11561	
==>'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11446	11561	
==>'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	14909	15005	
==>uration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14909	15005	
==>uration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3375	3469	
==>ginal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3375	3469	
==>ginal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3375	3469	
==>ginal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop() <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8077	8192	
==>int32($V);
            raise RangeError if $Result12 != ToNumber($V);
            my $length = +($A.property_value{' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9250	9356	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6797	6903	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9250	9356	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6797	6903	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9250	9356	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6797	6903	
==>rder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10607	10716	
==>eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' & <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10607	10716	
==>eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' & <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10607	10716	
==>eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' & <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1775	1871	
==>S::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompilin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1775	1871	
==>S::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompilin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1775	1871	
==>S::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompilin <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37322	37404	
==>Class->send('add_attribute', (symbol->new('%:private_methods') => attribute->new('% <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	19111	19323	
==>sh @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $heading, 
                                     source  => $source } if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4630	4736	
==>xup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4630	4736	
==>xup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    ret <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4630	4736	
==>xup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	766	866	
==>rivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	766	866	
==>rivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	766	866	
==>rivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4629	4765	
==>ot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition must be implemented as a runtime pr <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3651	3744	
==>this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3651	3744	
==>this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6671	6763	
==>this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8740	8832	
==>this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6671	6763	
==>this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8740	8832	
==>this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinterac <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	17456	17586	
==>ading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20933	21063	
==>ading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20520	20650	
==>ading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = m <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2093	2214	
==>e = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10961	11082	
==>e = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2286	2407	
==>e = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11240	11361	
==>e = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2171	2320	
==>,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2171	2320	
==>,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2171	2320	
==>,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	317	416	
==>f, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	317	416	
==>f, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	317	416	
==>f, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7773	7871	
==>tringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLitera <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25012	25202	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27201	27391	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25012	25202	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27201	27391	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25012	25202	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27201	27391	
==>start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::num <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2665	2768	
==>0]}[1 .. $#{$_[0]}]) }

sub shift   : method { CORE::shift(@{(shift)}) }
sub pop     : method { CORE::po <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	740	873	
==>{
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9277	9385	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6824	6932	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9277	9385	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6824	6932	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9277	9385	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6824	6932	
==>r = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self- <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	997	1127	
==>i;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will no <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	997	1127	
==>i;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will no <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6563	6656	
==>TI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6563	6656	
==>TI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6563	6656	
==>TI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19065	19157	
==><ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> w <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19065	19157	
==><ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7791	7924	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5350	5483	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7791	7924	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5350	5483	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7791	7924	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5350	5483	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1479	1612	
==>no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24753	24897	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26942	27086	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24753	24897	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26942	27086	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24753	24897	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26942	27086	
==>l')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless def <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14943	15048	
==>s_hash_complain->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6183	6298	
==>l6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6183	6298	
==>l6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6183	6298	
==>l6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3248	3362	
==>l6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3248	3362	
==>l6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3248	3362	
==>l6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_packag <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10491	10579	
==>=>$paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NODE MkPos ($posN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10397	10582	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7948	8133	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10397	10582	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7948	8133	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10397	10582	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7948	8133	
==>$current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # no <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6982	7106	
==>key);
        
        # maybe use another mechanism to call arbitrary stuff on the package
        # obj? otherwise all data <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	102	202	
==>x
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	102	202	
==>x
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	101	197	
==>x
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs:: <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9260	9347	
==>ype::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nu <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9455	9542	
==>ype::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nu <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9650	9737	
==>ype::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nu <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	11307	11393	
==>ype::operator::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::nu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2912	3032	
==>rs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2912	3032	
==>rs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2912	3032	
==>rs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4243	4360	
==>,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4243	4360	
==>,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4243	4360	
==>,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.d <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	891	986	
==>er::Token->compile(q( \: <rule_name> { return $<rule_name> . " => 0" } ))->code;

*rule = Pugs:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7813	7936	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10736	10859	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7813	7936	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10736	10859	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7813	7936	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10736	10859	
==>cial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        r <==
7	/Users/nnunley/pugs/util/grokprims.pl	613	724	
==>$assoc{$assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name= <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11399	11519	
==>s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11399	11519	
==>s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11399	11519	
==>s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1520	1628	
==>$node, $symbol, $result);
	} else {
		return $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3888	3990	
==>erl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SE <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3888	3990	
==>erl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SE <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3888	3990	
==>erl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12593	12715	
==>l' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12593	12715	
==>l' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12593	12715	
==>l' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	4291	4396	
==>es_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	4567	4672	
==>es_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4349	4454	
==>es_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4625	4730	
==>es_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4931	5078	
==>f ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{out}= \$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22674	22777	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22904	23007	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22674	22777	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22904	23007	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22674	22777	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22904	23007	
==>o_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13412	13565	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13412	13565	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13412	13565	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5654	5807	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4154	4307	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2297	2450	
==>$size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            p <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2934	3029	
==>$node->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::Util::blessed($st <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2986	3201	
==>erion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7800	7896	
==>xicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speedu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7800	7896	
==>xicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speedu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7800	7896	
==>xicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speedu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34279	34373	
==>od is a generic relational operator that returns the complement of
C<semijoin> with the same ar <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38829	38923	
==>od is a generic relational operator that returns the complement of
C<semijoin> with the same ar <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38308	38402	
==>od is a generic relational operator that returns the complement of
C<semijoin> with the same ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2395	2536	
==>lass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2395	2536	
==>lass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2395	2536	
==>lass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if <==
7	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	171	264	
==>, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_r <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	227	320	
==>, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_r <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	171	264	
==>, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_r <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	227	320	
==>, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_r <==
7	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	265	395	
==>ization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => 0,
    prec <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3946	4041	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6925	7020	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8995	9090	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3946	4041	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6925	7020	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8995	9090	
==>s <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more in <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4190	4291	
==>vents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = sp <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4235	4336	
==>vents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = sp <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4190	4291	
==>vents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = sp <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4235	4336	
==>vents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = sp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2900	2999	
==>ly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functio <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2900	2999	
==>ly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functio <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2900	2999	
==>ly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functio <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7373	7503	
==>wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11708	11838	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2190	2318	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8962	9090	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7124	7252	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2190	2318	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8962	9090	
==>wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "mat <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14000	14168	
==>h @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4097	4241	
==>h @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4097	4241	
==>h @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4097	4241	
==>h @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k i <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	8172	8294	
==>if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile), "\n";
        }
        my % <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2473	2568	
==>Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2473	2568	
==>Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4000	4108	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6649	6757	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4238	4343	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10687	10792	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4238	4343	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10687	10792	
==>'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime:: <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	1433	1527	
==>.  Test::Harness is the module that reads the
output from Test::Simple, Test::More and other mo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4291	4421	
==>alar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4291	4421	
==>alar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4291	4421	
==>alar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17830	17938	
==>onal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "local <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16868	16976	
==>onal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "local <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17830	17938	
==>onal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "local <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16868	16976	
==>onal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "local <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8280	8448	
==>{ 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8280	8448	
==>{ 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40661	40777	
==>ref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40661	40777	
==>ref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40661	40777	
==>ref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3878	3989	
==>rsection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3878	3989	
==>rsection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5232	5425	
==>ry->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5232	5425	
==>ry->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5232	5425	
==>ry->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23632	23727	
==>o a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1 <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22405	22500	
==>o a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23632	23727	
==>o a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1 <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22405	22500	
==>o a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5603	5719	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8573	8689	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5603	5719	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8573	8689	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5603	5719	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8573	8689	
==>rn the exact same sub. This results in this
        # method being passed an already blessed method 
        # instea <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10331	10436	
==>sh @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{' => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12303	12428	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3925	4050	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12303	12428	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3925	4050	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12303	12428	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3925	4050	
==>rl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METH <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6764	6891	
==>', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model: <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6764	6891	
==>', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model: <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4091	4210	
==>le by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_cl <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	15076	15187	
==>@r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18553	18664	
==>@r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17969	18080	
==>@r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do t <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3041	3147	
==>le by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_cl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11206	11324	
==>this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # for <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11206	11324	
==>this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # for <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11206	11324	
==>this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # for <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15476	15591	
==>attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15476	15591	
==>attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15476	15591	
==>attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                i <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	2563	2656	
==>+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${re_scopeop}?\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8150	8283	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5709	5842	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8150	8283	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5709	5842	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8150	8283	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5709	5842	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1838	1971	
==>" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches o <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19960	20056	
==>ormation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$b <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18941	19037	
==>ormation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19960	20056	
==>ormation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$b <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18941	19037	
==>ormation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2290	2385	
==>ion (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2290	2385	
==>ion (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2290	2385	
==>ion (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25320	25502	
==>y( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25320	25502	
==>y( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25320	25502	
==>y( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5515	5675	
==>>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $l <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5515	5675	
==>>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $l <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5515	5675	
==>>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $l <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	458	550	
==>Set", { companion => "subclasses" });
Has($?CLASS, "subclasses", "Set", { companion => "super <==
7	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	41	185	
==>1 = async {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000;
        $still_running--;
    }
    say 'Th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	883	992	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	971	1080	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	883	992	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	971	1080	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	883	992	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	971	1080	
==>rgs, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11107	11270	
==>->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11107	11270	
==>->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11107	11270	
==>->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3024	3149	
==>ty issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3024	3149	
==>ty issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3024	3149	
==>ty issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... t <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	777	884	
==>($data) {
    for(split('&',$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1587	1690	
==>for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub{$x->(' <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3379	3472	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6393	6486	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8461	8554	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3379	3472	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6393	6486	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8461	8554	
==>Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3886	4003	
==>} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3886	4003	
==>} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3886	4003	
==>} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11569	11663	
==>tem if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8716	8810	
==>tem if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11569	11663	
==>tem if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8716	8810	
==>tem if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3011	3139	
==>ee[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# keys: ",%pad.keys <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1564	1672	
==>test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagn <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1564	1672	
==>test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagn <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1644	1752	
==>test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagn <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	379	471	
==>NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
use constant RPe_SW <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	616	707	
==>self->pretty_print

Pretty prints the dependency declaration from the META.info.
It will tur <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13890	13980	
==>y default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_chars <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13890	13980	
==>y default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_chars <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18062	18201	
==>aller's $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9551	9667	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7098	7214	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9551	9667	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7098	7214	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9551	9667	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7098	7214	
==>:ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6136	6268	
==>call' ) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6332	6448	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9302	9418	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6332	6448	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9302	9418	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6332	6448	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9302	9418	
==>cant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7810	7922	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10733	10845	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7810	7922	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10733	10845	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7810	7922	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10733	10845	
==>special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	200	299	
==>p6
# parser, for p5.

# It's a backtracking, recursive-decent engine, generated from the
# regexp as <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1790	1916	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	902	1028	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1790	1916	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	902	1028	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1790	1916	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	902	1028	
==>ILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # Th <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	228	344	
==>';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confes <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	213	320	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	208	315	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	213	320	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	208	315	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	213	320	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	208	315	
==>} == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "P <==
7	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1275	1439	
==>chop $string;
        "$string and " ~
        pick (
            "$x",
            "is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4294	4411	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7230	7347	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4294	4411	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7230	7347	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4294	4411	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7230	7347	
==>y takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1114	1234	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1319	1439	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1380	1500	
==>OAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $lab <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23728	23818	
==>459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMS <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22501	22591	
==>459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMS <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23728	23818	
==>459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMS <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22501	22591	
==>459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMS <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	866	993	
==>IL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	866	993	
==>IL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	866	993	
==>IL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8728	8828	
==>ick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringi <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8728	8828	
==>ick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringi <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8986	9084	
==>ick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringi <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8986	9084	
==>ick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringi <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	471	588	
==>v;
      }
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retval if <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4030	4136	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6679	6785	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4266	4370	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10715	10819	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4266	4370	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10715	10819	
==>( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36234	36329	
==>each member of a tuple pair has attribute names in common,
eliminating pairs where the values of <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37987	38082	
==>each member of a
tuple pair has attribute names in common, eliminating pairs where the
values of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40783	40878	
==>each member of a tuple pair has attribute names in common,
eliminating pairs where the values of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42536	42631	
==>each member of a
tuple pair has attribute names in common, eliminating pairs where the
values of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40397	40492	
==>each member of a tuple pair has attribute names in common,
eliminating pairs where the values of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42186	42281	
==>each member of a
tuple pair has attribute names in common, eliminating pairs where the
values of <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3375	3468	
==>)/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+), <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17801	17907	
==>name => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16839	16945	
==>name => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17801	17907	
==>name => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults t <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16839	16945	
==>name => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	423	522	
==>ture
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	423	522	
==>ture
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	423	522	
==>ture
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	568	680	
==>DEFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else { <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32874	32969	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33329	33424	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37424	37519	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37879	37974	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36759	36854	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37259	37354	
==>>

This multi-method is a generic binary relational operator that is like
C<union> except that t <==
7	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3287	3447	
==>complexity
            gather {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11654	11749	
==>nstances, themselves does Role since they
are just instances of Class which does Role too. So th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11654	11749	
==>nstances, themselves does Role since they
are just instances of Class which does Role too. So th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11654	11749	
==>nstances, themselves does Role since they
are just instances of Class which does Role too. So th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17684	17776	
==>fix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17684	17776	
==>fix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17684	17776	
==>fix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8578	8708	
==>D();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8578	8708	
==>D();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8578	8708	
==>D();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10471	10590	
==>$S->object(quant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	6	110	
==>ge Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	6	110	
==>ge Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	6	110	
==>ge Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7860	8009	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5419	5568	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7860	8009	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5419	5568	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7860	8009	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5419	5568	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1548	1697	
==>ust remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3248	3372	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6241	6363	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3514	3631	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9932	10049	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3514	3631	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9932	10049	
==>) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17357	17455	
==>tly, you can only call it through an object that
inherits from that class.

There are no longer I<s <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	712	826	
==>=> \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$Perl6::Run::OnPerl5::X1: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1172	1277	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1172	1277	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1172	1277	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	140	237	
==>ader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Mak <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	140	237	
==>ader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Mak <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	140	237	
==>ader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Mak <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9351	9474	
==>ecutable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/cygdrive|[A-Za-z]:)/.*$Config{_e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3859	3958	
==>E

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ... <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3859	3958	
==>E

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ... <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3859	3958	
==>E

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ... <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19664	19755	
==>x0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19664	19755	
==>x0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19664	19755	
==>x0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1805	1911	
==>...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1805	1911	
==>...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1805	1911	
==>...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	442	536	
==>ou cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	442	536	
==>ou cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	442	536	
==>ou cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_s <==
7	/Users/nnunley/pugs/util/func_refact.pl	1981	2075	
==>post=>{set=>$set, new=>$new}});
    print "union: while adding $new, entered with $oldsize, lea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	332	444	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	330	442	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	332	444	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	330	442	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	332	444	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	330	442	
==>e implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a uni <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	368	463	
==>1)

=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $role.addMethod(Method.new(...))

 $rol <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1715	1840	
==>elf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1715	1840	
==>elf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1715	1840	
==>elf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	248	341	
==>::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptaliciou <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	149	242	
==>::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptaliciou <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	248	341	
==>::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptaliciou <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	248	341	
==>::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptaliciou <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13934	14051	
==>nds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13934	14051	
==>nds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13004	13113	
==>nds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13004	13113	
==>nds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7881	8008	
==>s, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsnam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7881	8008	
==>s, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsnam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7881	8008	
==>s, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsnam <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1904	2049	
==>ext unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookie <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1904	2049	
==>ext unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookie <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	944	1063	
==>has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper ar <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	944	1063	
==>has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1780	1881	
==>g{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1780	1881	
==>g{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    ( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1780	1881	
==>g{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    ( <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6293	6389	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2re <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8361	8457	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6293	6389	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8361	8457	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	171	266	
==>t will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See th <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	171	266	
==>t will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See th <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	171	266	
==>t will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4192	4359	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4192	4359	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4192	4359	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6718	6871	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6718	6871	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6718	6871	
==>> ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	440	559	
==>lue == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4527	4666	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7039	7178	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4527	4666	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7039	7178	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4527	4666	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7039	7178	
==>thod in here...
                    # there is no real distinction between the
                    # private class method or the private ins <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1408	1519	
==>") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub unc <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4727	4855	
==>dx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value('@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	63	174	
==>$str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Num <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	63	174	
==>$str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Num <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	63	174	
==>$str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Num <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2425	2520	
==>ing(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2425	2520	
==>ing(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2425	2520	
==>ing(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4152	4312	
==>ibdir -cz .] )
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4146	4259	
==>m->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bou <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4146	4259	
==>m->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bou <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4736	4849	
==>m->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4172	4280	
==>cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4172	4280	
==>cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4172	4280	
==>cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13997	14117	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ], <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13997	14117	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ], <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13997	14117	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ], <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5431	5548	
==>y hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6699	6816	
==>y hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5431	5548	
==>y hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6687	6804	
==>y hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3070	3183	
==>he invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3070	3183	
==>he invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3070	3183	
==>he invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13068	13178	
==>ation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13068	13178	
==>ation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13068	13178	
==>ation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	672	773	
==>ce, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7880	8016	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7880	8016	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7880	8016	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4944	5078	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4944	5078	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4944	5078	
==>ious value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0 <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	577	677	
==>lacement = $r->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    return $self->SU <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5957	6060	
==>ental(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_elemental(cap(X) <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22103	22199	
==>)> on the
appropriate class name, and then invoking methods on those objects.  All of
their attri <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9376	9472	
==>)> on the
appropriate class name, and then invoking methods on those objects.  All of
their attri <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22103	22199	
==>)> on the
appropriate class name, and then invoking methods on those objects.  All of
their attri <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9376	9472	
==>)> on the
appropriate class name, and then invoking methods on those objects.  All of
their attri <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24471	24566	
==>)> on
the appropriate class name, and then invoking methods on those objects.
All of their attri <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24471	24566	
==>)> on
the appropriate class name, and then invoking methods on those objects.
All of their attri <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1673	1844	
==>value
                my $self = shift;
                my $idx = shift;
                $self->array_fetchElem($idx)->scalar_fetch;
            },
     
            'array <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1246	1383	
==>names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1246	1383	
==>names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1246	1383	
==>names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1839	1935	
==>" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1839	1935	
==>" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1839	1935	
==>" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2038	2149	
==>| <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ), <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2049	2160	
==>| <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ), <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	881	989	
==>ass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - wea <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1246	1351	
==>ass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - wea <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	845	950	
==>ass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - wea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1246	1351	
==>ass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - wea <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	44	141	
==>e reason, compilation doesn't work if the above line is uncommented.

# our &prefix:<?> := &true d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22101	22204	
==>_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exe <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22101	22204	
==>_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exe <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22101	22204	
==>_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1281	1380	
==>fix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1281	1380	
==>fix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13275	13369	
==>his method returns a recurrence set containing only the elements that 
satisfy the given boolea <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13275	13369	
==>his method returns a recurrence set containing only the elements that 
satisfy the given boolea <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1078	1205	
==>rged = 0;
    return if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    retur <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6806	6902	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5936	6032	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2590	2686	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2590	2686	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6806	6902	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5936	6032	
==>t) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	420	544	
==>f($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	420	544	
==>f($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	420	544	
==>f($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8061	8153	
==>et @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).me <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7191	7283	
==>et @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).me <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8061	8153	
==>et @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).me <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7191	7283	
==>et @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4990	5123	
==>ti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4990	5123	
==>ti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4990	5123	
==>ti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3049	3180	
==>",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3049	3180	
==>",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3049	3180	
==>",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1 <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22530	22638	
==>",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24127	24260	
==>=~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24127	24260	
==>=~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24127	24260	
==>=~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 <==
7	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	368	484	
==>ne ( $self->_read_script($script_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line =~ /^#\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2854	2949	
==>passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRI <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2854	2949	
==>passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRI <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3201	3296	
==>passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36621	36741	
==>ray->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficien <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36621	36741	
==>ray->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficien <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36621	36741	
==>ray->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficien <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1635	1736	
==>lete $self->{$key->to_str->to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)->to_nat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3437	3528	
==>lib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3437	3528	
==>lib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3437	3528	
==>lib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}" <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21816	21933	
==>lessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18237	18354	
==>lessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2155	2267	
==>ode) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2155	2267	
==>ode) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2071	2174	
==>q "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2071	2174	
==>q "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2071	2174	
==>q "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2340	2455	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4667	4782	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2340	2455	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4667	4782	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2340	2455	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4667	4782	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Att <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	662	772	
==>de();

    rule <p6ws> <ident> <p6ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_na <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2219	2420	
==>od export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

metho <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5696	5897	
==>od export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

metho <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4626	4827	
==>od export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1491	1591	
==>lsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1491	1591	
==>lsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1491	1591	
==>lsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13087	13182	
==>those keys.

=over

=item Unary Form

Implementations should create a suitable macro, or otherwi <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2155	2276	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11023	11144	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11982	12103	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2348	2469	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11302	11423	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12261	12382	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gramma <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6497	6607	
==>ob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = fin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7422	7530	
==>hing variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11757	11865	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2238	2345	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9010	9117	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7172	7279	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2238	2345	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9010	9117	
==>hing variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7605	7829	
==>e}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7605	7829	
==>e}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7605	7829	
==>e}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6524	6695	
==>ing' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6524	6695	
==>ing' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6524	6695	
==>ing' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => s <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	20700	20800	
==>Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subd <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5551	5667	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8521	8637	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5551	5667	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8521	8637	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5551	5667	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8521	8637	
==>asically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bein <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	3254	3361	
==>.pod"))  {
        print ("*** Could not locate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_des <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2330	2472	
==>$sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_g <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8889	9031	
==>$sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2330	2472	
==>$sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8885	9027	
==>$sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10636	10753	
==>guous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10636	10753	
==>guous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10636	10753	
==>guous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->n <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	672	804	
==>/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub ca <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	672	804	
==>/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub ca <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16499	16595	
==>t_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # h <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16499	16595	
==>t_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # h <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21266	21354	
==>001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {.. <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21266	21354	
==>001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {.. <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10520	10604	
==>char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	16335	16447	
==>( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19812	19924	
==>( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3563	3669	
==>pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3563	3669	
==>pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3563	3669	
==>pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	634	724	
==>Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as deta <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	634	724	
==>Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as deta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7632	7757	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10555	10680	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7632	7757	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10555	10680	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7632	7757	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10555	10680	
==>rl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16620	16704	
==>modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0, <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11498	11612	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2492	2606	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7586	7700	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11498	11612	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2492	2606	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7586	7700	
==>l -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' = <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17856	17959	
==>in terms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to be in term <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12296	12407	
==>"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_enumclass" <==
7	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	95	202	
==>rch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to cal <==
7	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	95	202	
==>rch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to cal <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	822	946	
==>=> '++',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5795	5891	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8765	8861	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5795	5891	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8765	8861	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5795	5891	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8765	8861	
==>her ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14102	14197	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11374	11469	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14102	14197	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11374	11469	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14102	14197	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11374	11469	
==>abel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$lab <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	602	690	
==>kane@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@debian.orgE<gt>

=head1 COPYRIGHT AND LICEN <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39210	39325	
==>hift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39210	39325	
==>hift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39210	39325	
==>hift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array- <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3868	3972	
==>ethod intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span: <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3868	3972	
==>ethod intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span: <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1728	1831	
==>ethod intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span: <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1728	1831	
==>ethod intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11853	11979	
==>";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11853	11979	
==>";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11853	11979	
==>";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4301	4404	
==>, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4301	4404	
==>, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5174	5276	
==>, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5174	5276	
==>, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17605	17727	
==>e";
        }
    } else {
        return defined $node ? String::Escape::qprintable($node) : "undef";
    }
}


package Di <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	649	742	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1169	1262	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	649	742	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1169	1262	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	649	742	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1169	1262	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FET <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12193	12425	
==>ray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12193	12425	
==>ray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12193	12425	
==>ray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1199	1308	
==>arn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{so <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1339	1448	
==>arn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{so <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17428	17520	
==>he classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, defi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17428	17520	
==>he classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, defi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17052	17208	
==>return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17052	17208	
==>return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17052	17208	
==>return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	799	898	
==>plitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pk <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	799	898	
==>plitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pk <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1692	1784	
==>ature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL:: <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1692	1784	
==>ature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10188	10337	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7739	7888	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10188	10337	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7739	7888	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10188	10337	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7739	7888	
==>e top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # i <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	68	170	
==>le::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXPORT];
use base 'Exporter';

@EXPOR <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4798	4936	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5759	5897	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4798	4936	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5759	5897	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4798	4936	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5759	5897	
==>it( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.un <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7264	7359	
==>erm if ( $tokenCat >= PGE_OPTABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POS <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27344	27443	
==>t does not permit changes to its attributes; they
must all be set when the object is constructed.  I <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34870	34969	
==>t does not permit changes to its attributes;
they must all be set when the object is constructed.  I <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27344	27443	
==>t does not permit changes to its attributes; they
must all be set when the object is constructed.  I <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34870	34969	
==>t does not permit changes to its attributes;
they must all be set when the object is constructed.  I <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2119	2217	
==>IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS:: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2119	2217	
==>IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS:: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2119	2217	
==>IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6624	6746	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9073	9195	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6624	6746	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9073	9195	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6624	6746	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9073	9195	
==>$start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	808	912	
==>Runtime::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4144	4291	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7080	7227	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4144	4291	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7080	7227	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4144	4291	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7080	7227	
==>d be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basica <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	405	521	
==>});
}
sub varscalar {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\$(? <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7883	8055	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5442	5614	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7883	8055	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5442	5614	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7883	8055	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5442	5614	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1571	1743	
==>'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $can <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8566	8666	
==>eturn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8566	8666	
==>eturn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8566	8666	
==>eturn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	644	782	
==>n () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	644	782	
==>n () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	644	782	
==>n () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2992	3105	
==>n() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2992	3105	
==>n() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2992	3105	
==>n() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15069	15175	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12323	12429	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15069	15175	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12323	12429	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15069	15175	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12323	12429	
==>opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I d <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7338	7439	
==>en hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previou <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3480	3617	
==>f ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $ma <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4409	4544	
==>f ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $ma <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3370	3505	
==>f ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $ma <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4409	4544	
==>f ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9120	9223	
==>Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (* <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9120	9223	
==>Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (* <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9120	9223	
==>Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (* <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	527	635	
==>UR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	527	635	
==>UR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	527	635	
==>UR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7480	7576	
==>) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) retu <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6610	6706	
==>) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) retu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7480	7576	
==>) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) retu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6610	6706	
==>) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) retu <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1780	1913	
==>e '". $self->package ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my $i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2919	3033	
==>$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2919	3033	
==>$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2919	3033	
==>$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6784	6884	
==>classes');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6784	6884	
==>classes');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6784	6884	
==>classes');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13582	13740	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13582	13740	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13582	13740	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5828	5986	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4328	4486	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2467	2625	
==>i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        whi <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14795	14898	
==>c->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable file from the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10054	10242	
==>ilder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  meth <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2109	2279	
==>ilder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

meth <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2109	2279	
==>ilder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

meth <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11048	11145	
==>will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()` <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11048	11145	
==>will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()` <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4753	4847	
==>ler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4893	4987	
==>ler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17786	17962	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15006	15182	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17786	17962	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15006	15182	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17786	17962	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15006	15182	
==>for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14736	14836	
==>rams)) returns opaque
    ((= %attrs (hash new))
     (= &dispatcher ($class: send (dispatcher :desce <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8476	8615	
==>unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8476	8615	
==>unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8476	8615	
==>unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2088	2193	
==>E

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2088	2193	
==>E

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1322	1421	
==>E

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3183	3282	
==>E

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3518	3618	
==>$p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p');

is($p2->g <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16833	16930	
==>ze

Eliminates redundancy from a regex.  It should have various options,
such as whether to do opt <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25281	25374	
==>ny invocant object's attributes is identical; they do not
interact with the outside environmen <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11412	11505	
==>ny invocant object's attributes is identical; they do not
interact with the outside environmen <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14685	14778	
==>ny invocant
object's attributes is identical; they do not interact with the outside
environmen <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25281	25374	
==>ny invocant object's attributes is identical; they do not
interact with the outside environmen <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11412	11505	
==>ny invocant object's attributes is identical; they do not
interact with the outside environmen <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14685	14778	
==>ny invocant
object's attributes is identical; they do not interact with the outside
environmen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	946	1072	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1034	1160	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	946	1072	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1034	1160	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	946	1072	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1034	1160	
==>options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @run <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23216	23315	
==>y reference of flag values.  When a scope is entered, the top
value is copied and pushed onto the st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1565	1665	
==>r - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1565	1665	
==>r - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1565	1665	
==>r - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6 <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2322	2421	
==>these functions return a closure.  Call the closure with a block of 
data to have it enciphered or d <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2322	2421	
==>these functions return a closure.  Call the closure with a block of 
data to have it enciphered or d <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17775	17870	
==>and this is
mapped to a user-readable message at some point.  For example, Oracle
databases ofte <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17775	17870	
==>and this is
mapped to a user-readable message at some point.  For example, Oracle
databases ofte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3148	3259	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5949	6060	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3148	3259	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5949	6060	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3148	3259	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5949	6060	
==>Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribut <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27722	27813	
==>s inherit from F<MyRx::__object__> first,
then from the F<Regexp::Parser::*> object of the s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	575	679	
==>if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (re <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	345	449	
==>if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (re <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	345	449	
==>if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (re <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	13220	13312	
==>taining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9892	9984	
==>taining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13220	13312	
==>taining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9892	9984	
==>taining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10511	10653	
==>,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnosti <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1047	1171	
==>,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnosti <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1047	1171	
==>,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnosti <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6786	6881	
==>find GHC 6.4.1 or above from path (we have $ghc_version).
*** Please install a newer version fro <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4213	4302	
==>actory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C< <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4213	4302	
==>actory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C< <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6410	6499	
==>actory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C< <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24581	24676	
==>ad1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfu <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23345	23440	
==>ad1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfu <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24581	24676	
==>ad1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfu <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23345	23440	
==>ad1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	27738	27831	
==>iven each original tuple/Mapping as its sole read-only argument, returns a
value that is optio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32290	32383	
==>iven each original tuple/Mapping as its sole read-only argument, returns a
value that is optio <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31382	31475	
==>iven each original tuple/Mapping as its sole read-only argument, returns a
value that is optio <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3949	4084	
==>onf->compile_dir . q[ -xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->preinst );
            if( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	619	726	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	619	726	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	619	726	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2967	3061	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2967	3061	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2967	3061	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH() <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	872	1010	
==>cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_star <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4111	4249	
==>cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_star <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	872	1010	
==>cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_star <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4111	4249	
==>cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_star <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1717	1817	
==>azy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1717	1817	
==>azy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1717	1817	
==>azy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9763	9926	
==>umber(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $se <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1846	1991	
==>umber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $se <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1846	1991	
==>umber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $se <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	588	725	
==>) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	685	822	
==>) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 R <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9925	10025	
==>xport { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elem <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9925	10025	
==>xport { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elem <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8982	9138	
==>\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # " <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14711	14867	
==>\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8982	9138	
==>\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14705	14861	
==>\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11486	11640	
==>undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11486	11640	
==>undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11486	11640	
==>undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%o <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26091	26257	
==>ms->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10749	10914	
==>ms->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38721	38886	
==>ms->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39248	39413	
==>ms->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2283	2395	
==>nt know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2283	2395	
==>nt know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) e <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2283	2395	
==>nt know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25979	26150	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28180	28351	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25979	26150	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28180	28351	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25979	26150	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28180	28351	
==>tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	15	128	
==>rride;

use 5.005;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    local $@ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	16569	16747	
==>.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20046	20224	
==>.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

m <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19606	19784	
==>.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

m <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2160	2305	
==>s->{file}
                ? JIB::Package::Installable->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5690	5788	
==>l2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5690	5788	
==>l2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5690	5788	
==>l2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1811	1938	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	923	1050	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1811	1938	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	923	1050	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1811	1938	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	923	1050	
==>hod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	17	113	
==>use strict;
use warnings;

use Test::More tests => 13;

## -------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4465	4629	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6977	7141	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4465	4629	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6977	7141	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4465	4629	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6977	7141	
==>name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # pr <==
7	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	351	448	
==>egorian is export {
    duration(:second($seconds));
}

multi sub duration( Int ?$year, Int ?$mont <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1455	1581	
==>$h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1455	1581	
==>$h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1455	1581	
==>$h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2073	2190	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4292	4409	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2073	2190	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4292	4409	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14984	15122	
==>LOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14984	15122	
==>LOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14984	15122	
==>LOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19683	19820	
==>LOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19683	19820	
==>LOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19683	19820	
==>LOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be calle <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13981	14085	
==>st> <')'>
}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <',' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14620	14730	
==>rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14620	14730	
==>rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3541	3649	
==>[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementati <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3541	3649	
==>[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementati <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3541	3649	
==>[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementati <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15267	15364	
==>put string).

If you prefer not to import these routines into your namespace, you can
call them as <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15267	15364	
==>put string).

If you prefer not to import these routines into your namespace, you can
call them as <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8698	8794	
==>erl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1) <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	431	527	
==>erl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8698	8794	
==>erl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8698	8794	
==>erl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	84	170	
==>---------------------------------------------------------------------
## now for some b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	84	170	
==>---------------------------------------------------------------------
## now for some b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	84	170	
==>---------------------------------------------------------------------
## now for some b <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24081	24177	
==>his rule is to avoid loops between a client automatically sending something
  in response to some <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22854	22950	
==>his rule is to avoid loops between a client automatically sending something
  in response to some <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24081	24177	
==>his rule is to avoid loops between a client automatically sending something
  in response to some <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22854	22950	
==>his rule is to avoid loops between a client automatically sending something
  in response to some <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2839	2931	
==>push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2839	2931	
==>push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2839	2931	
==>push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3269	3429	
==>ename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3269	3429	
==>ename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3269	3429	
==>ename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	445	545	
==>re documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  st <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	449	549	
==>re documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  st <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	445	545	
==>re documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  st <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	449	549	
==>re documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  st <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21867	22160	
==>{
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	169	282	
==>rser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	169	282	
==>rser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	169	282	
==>rser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2778	2882	
==>) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $conte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2778	2882	
==>) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $conte <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2778	2882	
==>) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $conte <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16653	16766	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13858	13971	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16653	16766	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13858	13971	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16653	16766	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13858	13971	
==>hile (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next-> <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7875	7971	
==>_line( $file )>

  my $command_line = $self->_command_line();

Returns the full command line that <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1807	1934	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	919	1046	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1807	1934	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	919	1046	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1807	1934	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	919	1046	
==>bmethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD me <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5952	6068	
==>bject(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	646	770	
==>d {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->new($label) 
        unles <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	706	826	
==>Repository object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_ <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4665	4770	
==>! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") } <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4665	4770	
==>! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1080	1176	
==>etch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500.. <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1080	1176	
==>etch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500.. <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1080	1176	
==>etch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500.. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5716	5833	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3836	3953	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5716	5833	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3836	3953	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5716	5833	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3836	3953	
==>t none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13059	13171	
==>GE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $my <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5340	5496	
==>) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5756	5912	
==>) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5352	5508	
==>) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5768	5924	
==>) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9165	9306	
==>);
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature d <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9165	9306	
==>);
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature d <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9165	9306	
==>);
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature d <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2315	2453	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27469	27607	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2508	2646	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27748	27886	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	1970	2104	
==>tion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutabl <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5447	5581	
==>tion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutabl <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4377	4511	
==>tion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutabl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16289	16391	
==>10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16289	16391	
==>10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented a <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16289	16391	
==>10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	693	788	
==>access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	693	788	
==>access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	693	788	
==>access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	539	633	
==>code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1621	1740	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3184	3303	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1621	1740	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3184	3303	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1621	1740	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3184	3303	
==>OLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $ <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	2890	2991	
==>l_definitions#/$all_definitions/;

    print $template;
}

sub __test__ {
    $Config{privlib} = 'C:\u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8905	9079	
==>age 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8905	9079	
==>age 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8905	9079	
==>age 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    e <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7535	7665	
==>_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_de <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7535	7665	
==>_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_de <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	1495	1602	
==>ent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------- <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1495	1602	
==>ent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7508	7615	
==>if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9408	9513	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12381	12486	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9408	9513	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12381	12486	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9408	9513	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12381	12486	
==>rl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = b <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6181	6299	
==>> sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }) <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6181	6299	
==>> sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }) <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	400	499	
==>ngs
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cr <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	400	499	
==>ngs
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3582	3673	
==>hain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restor <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3582	3673	
==>hain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restor <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3582	3673	
==>hain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restor <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4873	4992	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7522	7641	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5087	5200	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11536	11649	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5087	5200	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11536	11649	
==>e} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user' <==
7	/Users/nnunley/pugs/util/graphfuncs.pl	706	815	
==>" for grep { not defined $nodes{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Con <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3469	3563	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6483	6577	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8551	8645	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3469	3563	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6483	6577	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8551	8645	
==>me_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1406	1500	
==>Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2->perl5;
print "Be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	959	1085	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1047	1173	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	959	1085	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1047	1173	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	959	1085	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1047	1173	
==>longing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

G <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1264	1371	
==>pulates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8034	8177	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5593	5736	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8034	8177	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5593	5736	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8034	8177	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5593	5736	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1722	1865	
==>e ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4394	4497	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4618	4721	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4394	4497	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4618	4721	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4394	4497	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4618	4721	
==>, *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12093	12188	
==><cmp> as a Comparator.

If all criteria are exhausted when comparing two elements, sort should
r <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1205	1320	
==>f = shift;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_mai <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15461	15560	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12717	12816	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15461	15560	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12717	12816	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15461	15560	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12717	12816	
==>method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	385	503	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	383	501	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	385	503	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	383	501	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	385	503	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	383	501	
==>escribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: ref <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	22	117	
==>untime::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($filename);

prin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5788	6011	
==>{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5788	6011	
==>{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5788	6011	
==>{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	484	586	
==>ult
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3089	3191	
==>x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/PropList.txt for abov <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	484	586	
==>ult
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	484	586	
==>ult
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11644	11837	
==>src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7926	8119	
==>src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8760	8953	
==>src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$ <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	958	1082	
==>start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durat <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	700	824	
==>start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durat <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	958	1082	
==>start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durat <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	700	824	
==>start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durat <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9863	9985	
==>:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12512	12614	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14394	14496	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12512	12614	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14394	14496	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12512	12614	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14394	14496	
==>hift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	33	131	
==>Perl6::Core::Closure;

package method;

use strict;
use warnings;

use Carp 'confess';
use Scalar:: <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2951	3087	
==>Z::oop{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $debug;
          my <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3916	4038	
==>></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3916	4038	
==>></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3916	4038	
==>></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2226	2325	
==>up AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2226	2325	
==>up AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2226	2325	
==>up AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13065	13185	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         r <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21115	21235	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13344	13464	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21394	21514	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3076	3186	
==>, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3076	3186	
==>, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pro <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3076	3186	
==>, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pro <==
7	/Users/nnunley/pugs/util/build_pugs.pl	8969	9085	
==>OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGMENT sinc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	101	187	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	446	532	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	101	187	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	446	532	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	101	187	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	446	532	
==>ile::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7609	7728	
==>@_;
    my $re = $o->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25615	25726	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27810	27921	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25615	25726	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27810	27921	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25615	25726	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27810	27921	
==>.Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless P <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4732	4856	
==>it(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pop <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7278	7381	
==>ngle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7278	7381	
==>ngle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7278	7381	
==>ngle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9551	9644	
==>turn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_privat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9551	9644	
==>turn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_privat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9551	9644	
==>turn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_privat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20424	20550	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17563	17689	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20424	20550	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17563	17689	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20424	20550	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17563	17689	
==>(this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && r <==
7	/Users/nnunley/pugs/util/func_refact.pl	970	1095	
==>"$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3108	3264	
==>( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3108	3264	
==>( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8814	8934	
==>$tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation e <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	974	1086	
==>$tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation e <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	974	1086	
==>$tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation e <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2017	2121	
==>me );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2017	2121	
==>me );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9647	9752	
==>---------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ----- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9670	9775	
==>----------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9647	9752	
==>---------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ----- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9670	9775	
==>----------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9647	9752	
==>---------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ----- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9670	9775	
==>----------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------------- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	796	890	
==>Compiler::Token->compile(q( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compil <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19735	19829	
==>create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the R <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19735	19829	
==>create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5422	5515	
==>ITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5422	5515	
==>ITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5422	5515	
==>ITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $v <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14479	14568	
==>exported by default.

=item encode_entities_numeric( $string )

=item encode_entities_nume <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14479	14568	
==>exported by default.

=item encode_entities_numeric( $string )

=item encode_entities_nume <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1857	1983	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	969	1095	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1857	1983	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	969	1095	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1857	1983	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	969	1095	
==>oreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3808	3907	
==>);
  (substr $target, $position, $lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $cu <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	134	275	
==>params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	134	275	
==>params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2913	3019	
==>rict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $c <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2913	3019	
==>rict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $c <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2913	3019	
==>rict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $c <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	295	400	
==>ub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker_ar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	200	302	
==>, ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6::Scalar;

sub isa {
    my $self = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2280	2442	
==>ub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2280	2442	
==>ub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2280	2442	
==>ub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2089	2210	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10957	11078	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2282	2403	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11236	11357	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9297	9402	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6844	6949	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9297	9402	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6844	6949	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9297	9402	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6844	6949	
==>order_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_di <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3407	3499	
==>5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly installed <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24435	24642	
==>method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $para <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24435	24642	
==>method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $para <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24435	24642	
==>method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $para <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4380	4525	
==>ODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## A <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4380	4525	
==>ODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## A <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4380	4525	
==>ODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## A <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	359	471	
==>is
*ws = &Pugs::Grammar::BaseCategory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Gramm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4161	4274	
==>"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4161	4274	
==>"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4161	4274	
==>"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$in <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23140	23239	
==>y end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the serv <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23140	23239	
==>y end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the serv <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8927	9026	
==>_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD entr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8632	8729	
==>_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD entr <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	9371	9508	
==>kip_reason => $results{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	627	729	
==>0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	627	729	
==>0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	627	729	
==>0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4911	5003	
==>e.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4038	4130	
==>e.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4911	5003	
==>e.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4038	4130	
==>e.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17138	17246	
==>Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; r <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17295	17403	
==>Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; r <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17543	17651	
==>Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; r <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17727	17835	
==>Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18221	18313	
==>:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18221	18313	
==>:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18221	18313	
==>:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7887	8020	
==>iteral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[- <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13481	13614	
==>iteral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7887	8020	
==>iteral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13475	13608	
==>iteral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[- <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	534	644	
==>imitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ign <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	534	644	
==>imitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ign <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	534	644	
==>imitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ign <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4040	4158	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4978	5096	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2274	2392	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2520	2638	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3055	3173	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3301	3419	
==>r( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1765	1874	
==>->new;

=cut

### XXX do some smart caching here -- but can't just make it a singleton
### due to stacked inst <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1631	1770	
==>y <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1631	1770	
==>y <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7992	8125	
==>urn return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8004	8137	
==>urn return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9960	10068	
==>Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9960	10068	
==>Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1690	1787	
==>handle left recursive rules, you should
#  create a new grammar, inherit from this one, and redefi <==
7	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1590	1697	
==>&& +@matches == $cap { return @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is exp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5801	5907	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3921	4027	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5801	5907	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3921	4027	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5801	5907	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3921	4027	
==>lar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $sup <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	960	1084	
==>art> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duratio <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	702	826	
==>art> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duratio <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	960	1084	
==>art> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duratio <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	702	826	
==>art> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duratio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1940	2048	
==>", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1940	2048	
==>", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    re <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1940	2048	
==>", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    re <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4702	4821	
==>ge from the available list
    ### XXX temp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisnta <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8553	8662	
==>resenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8553	8662	
==>resenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18880	18975	
==>t> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

= <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17923	18018	
==>t> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18880	18975	
==>t> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17923	18018	
==>t> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

= <==
7	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	826	947	
==>hen '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push(int($y / <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10086	10198	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12727	12839	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13563	13675	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16204	16316	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12844	12956	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15566	15678	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading == <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3062	3175	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6055	6168	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3336	3444	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9754	9862	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3336	3444	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9754	9862	
==>my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7681	7783	
==>? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUS <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4057	4184	
==>$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  m <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4057	4184	
==>$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	821	923	
==>ink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not aff <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	821	923	
==>ink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not aff <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	821	923	
==>ink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not aff <==
7	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5345	5444	
==>e file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=it <==
7	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5345	5444	
==>e file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=it <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16709	16816	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13914	14021	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16709	16816	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13914	14021	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16709	16816	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13914	14021	
==>ext->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return u <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	10	107	
==>B::Package::Installed;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1545	1674	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3108	3237	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1545	1674	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3108	3237	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1545	1674	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3108	3237	
==>SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate fr <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3114	3233	
==>ostamble = "# Postamble by $top_class $top_version\n" . 
                    ($self->postamble || '');

    open MAKEFIL <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	709	860	
==>ompile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        prin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3780	3931	
==>ompile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        prin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	709	860	
==>ompile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        prin <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3780	3931	
==>ompile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        prin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4977	5092	
==>olute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4977	5092	
==>olute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4977	5092	
==>olute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4130	4293	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4130	4293	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4130	4293	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $c <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3862	3978	
==>vent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3862	3978	
==>vent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4394	4504	
==>vent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4394	4504	
==>vent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20660	20758	
==>nfix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2798	2896	
==>t parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20660	20758	
==>nfix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20660	20758	
==>nfix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2798	2896	
==>t parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2798	2896	
==>t parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnin <==
7	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	544	689	
==>*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do {
            my($key, $val) = ($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4205	4330	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6854	6979	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4437	4559	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10886	11008	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4437	4559	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10886	11008	
==>turn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Ru <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2878	3149	
==>k) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4490	4582	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6439	6531	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4490	4582	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6439	6531	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4490	4582	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6439	6531	
==>IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $se <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15438	15555	
==>ub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16853	16970	
==>ub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21609	21726	
==>ub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    m <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	429	535	
==>rns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    retur <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	429	535	
==>rns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    retur <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4192	4295	
==>rns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { retur <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4192	4295	
==>rns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14910	15039	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14910	15039	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14910	15039	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19609	19737	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19609	19737	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19609	19737	
==>OLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $s <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7311	7407	
==>oto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3024	3135	
==>=> "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4693	4796	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7629	7732	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4693	4796	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7629	7732	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4693	4796	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7629	7732	
==>($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2209	2310	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2209	2310	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2209	2310	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4604	4738	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7253	7387	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4826	4955	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11275	11404	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4826	4955	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11275	11404	
==>abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4525	4622	
==>> 1 - Use Perl 5 grammar and semantics for Regex.

=head2 match (Str $match_against)

Instance met <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6455	6563	
==>t<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly. <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6455	6563	
==>t<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11472	11577	
==>ame->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11472	11577	
==>ame->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11472	11577	
==>ame->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36548	36645	
==>l case is where C<@others> is an
empty list, in which case the returned Relation is identical to t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41097	41194	
==>l case is where C<@others> is an
empty list, in which case the returned Relation is identical to t <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	2624	2746	
==>start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3660	3782	
==>start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2624	2746	
==>start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3660	3782	
==>start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	517	617	
==>: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "* <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	517	617	
==>: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "* <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	517	617	
==>: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "* <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3896	4053	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6832	6989	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3896	4053	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6832	6989	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3896	4053	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6832	6989	
==>oles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapp <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	207	299	
==>sor';

=head1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB::Alternative->new_from_struct( str <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5456	5569	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3576	3689	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5456	5569	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3576	3689	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5456	5569	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3576	3689	
==>{
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY <==
7	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	461	557	
==>ribution on.

= AUTHORS

Brian Ingerson <ingy@cpan.org>

= COPYRIGHT

Copyright (c) 2005. Brian I <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3445	3611	
==>eturn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3445	3611	
==>eturn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3445	3611	
==>eturn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13297	13423	
==>op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            if @{$n-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1439	1530	
==>stpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1439	1530	
==>stpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1439	1530	
==>stpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base} <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	930	1043	
==>'symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $le <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19513	19610	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16745	16842	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19513	19610	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16745	16842	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19513	19610	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16745	16842	
==>hod objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) & <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	163	278	
==>tall::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{ur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5023	5112	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3251	3340	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5023	5112	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3251	3340	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5023	5112	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3251	3340	
==>n undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(': <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3479	3603	
==>ve ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3479	3603	
==>ve ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3479	3603	
==>ve ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21106	21202	
==>nnels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the chan <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20014	20110	
==>nnels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21106	21202	
==>nnels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20014	20110	
==>nnels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the chan <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4303	4416	
==>n('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5624	5737	
==>n('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4303	4416	
==>n('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5612	5725	
==>n('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8743	8844	
==>e regex and create
the tree in one step:

  my $ok = $parser->parse($new_regex);

Again, $ok will be f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20549	20644	
==>lers. After all the compilers have finished, the digest lines will
be expanded again.

Every bit <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20549	20644	
==>lers. After all the compilers have finished, the digest lines will
be expanded again.

Every bit <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1820	1944	
==>my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $c <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2563	2687	
==>my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1820	1944	
==>my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2551	2675	
==>my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23925	24012	
==>mon($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23925	24012	
==>mon($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23925	24012	
==>mon($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37882	38005	
==>ray->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37882	38005	
==>ray->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37882	38005	
==>ray->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        i <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6730	6835	
==>plate_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a requ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6730	6835	
==>plate_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a requ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8303	8398	
==>is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes t <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8303	8398	
==>is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes t <==
7	/Users/nnunley/pugs/misc/S29_round.pl	4703	4810	
==>our Int multi Num::round_away_from_zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, round fl <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7191	7286	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6321	6416	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2975	3070	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2975	3070	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7191	7286	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6321	6416	
==>udes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5512	5671	
==>0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5512	5671	
==>0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5512	5671	
==>0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1550	1646	
==>is class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1312	1408	
==>is class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1550	1646	
==>is class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1312	1408	
==>is class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5864	5974	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8834	8944	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5864	5974	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8834	8944	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5864	5974	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8834	8944	
==>hod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confe <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2516	2604	
==>E::Exp::Alt");
    $optable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13069	13203	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13069	13203	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13069	13203	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5309	5443	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3809	3943	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1954	2088	
==>$off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	276	409	
==>TD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1;

### only <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	493	602	
==>-----------------

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $ins <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6874	6970	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6004	6100	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2658	2754	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2658	2754	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6874	6970	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6004	6100	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($memb <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1080	1200	
==>o { \$pos $direction= length \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12223	12322	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9780	9879	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12223	12322	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9780	9879	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12223	12322	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9780	9879	
==>'_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5492	5607	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8462	8577	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5492	5607	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8462	8577	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5492	5607	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8462	8577	
==>sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return th <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	5563	5656	
==>item B<_run_all_tests>

  my($total, $failed) = _run_all_tests(@test_files);

Runs all the giv <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9577	9694	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12550	12667	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	22048	22165	
==>"xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my $one_elem_list = fun(
	pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9577	9694	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12550	12667	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9577	9694	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12550	12667	
==>tcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2426	2540	
==>.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2426	2540	
==>.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2426	2540	
==>.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3279	3386	
==>new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3279	3386	
==>new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3279	3386	
==>new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10703	10809	
==>eta('$kind')->new($code_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2167	2262	
==>ke the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2167	2262	
==>ke the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2167	2262	
==>ke the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2J <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13427	13521	
==>ainer::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::H <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13427	13521	
==>ainer::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::H <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13427	13521	
==>ainer::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::H <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1106	1198	
==>SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13811	13927	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14185	14301	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13811	13927	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14185	14301	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13811	13927	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14185	14301	
==>oy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.dele <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9542	9626	
==>arset_item(R) --> p5_simple_escape_sequence(R).
p5_charset_item(setrange(A,B)) --> p5 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8693	8806	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6246	6359	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8693	8806	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6246	6359	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8693	8806	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6246	6359	
==>ass we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superc <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5036	5136	
==>_ok($pass, _where(), $name, @mess);
}

# Check that $got is within $range of $expected
# if $range is <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16929	17076	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21644	21791	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16929	17076	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21644	21791	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16929	17076	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21644	21791	
==>subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21436	21528	
==>dSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableD <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8163	8294	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5722	5853	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8163	8294	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5722	5853	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8163	8294	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5722	5853	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1851	1982	
==>d;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	117	367	
==>yedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (Non <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	117	367	
==>yedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (Non <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7317	7482	
==>ame,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'M <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7317	7482	
==>ame,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'M <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7317	7482	
==>ame,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'M <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3684	3798	
==>YY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitil <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15417	15514	
==>he first argument
# for success, or returns the definition of success (e.g. the
# expected scalar) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21485	21628	
==>sa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21485	21628	
==>sa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21485	21628	
==>sa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6:: <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5765	5861	
==>urns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5765	5861	
==>urns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7962	8058	
==>urns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3548	3643	
==>:Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $lastPosition = length $targe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5833	5984	
==>_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5833	5984	
==>_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5833	5984	
==>_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role- <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5128	5226	
==>qual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4255	4353	
==>qual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5128	5226	
==>qual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4255	4353	
==>qual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	8690	8846	
==>003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $ <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8690	8846	
==>003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15132	15257	
==>y $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15132	15257	
==>y $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scal <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15132	15257	
==>y $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scal <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	3311	3412	
==>{
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_d <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3311	3412	
==>{
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11680	11777	
==>Role since they
are just instances of Class which does Role too. So this means that all classes
an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11680	11777	
==>Role since they
are just instances of Class which does Role too. So this means that all classes
an <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11680	11777	
==>Role since they
are just instances of Class which does Role too. So this means that all classes
an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3960	4118	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6896	7054	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3960	4118	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6896	7054	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3960	4118	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6896	7054	
==>ole;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # bec <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	5075	5168	
==>m}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::binary/;

sub sy <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20694	20796	
==>xp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $npar <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6716	6812	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5846	5942	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2500	2596	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2500	2596	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6716	6812	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5846	5942	
==>ber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) retu <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4788	4882	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3915	4009	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	701	795	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	701	795	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4788	4882	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3915	4009	
==>ne.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15275	15369	
==>=> n=1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg,
endp[n] is the offset of th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4033	4162	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6969	7098	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4033	4162	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6969	7098	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4033	4162	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6969	7098	
==>e bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fai <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1494	1614	
==>ed2) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracte <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5984	6095	
==>, $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a ca <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5984	6095	
==>, $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a ca <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1903	2011	
==>my $self = shift;
	my $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "IV") {
		return $node->struct_e <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6556	6652	
==>set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6556	6652	
==>set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7427	7522	
==>set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7427	7522	
==>set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10199	10346	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7750	7897	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10199	10346	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7750	7897	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10199	10346	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7750	7897	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	509	605	
==>nged to cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8061	8216	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5620	5775	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8061	8216	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5620	5775	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8061	8216	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5620	5775	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1749	1904	
==>ndef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $cand;
        push @res => $cand;
        # now loop thro <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2212	2328	
==>',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # smal <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2212	2328	
==>',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # smal <==
7	/Users/nnunley/pugs/util/build_pugs.pl	338	447	
==>p') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pug <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15366	15467	
==>x) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15366	15467	
==>x) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15366	15467	
==>x) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30336	30430	
==>->) and returns false, to
pretend it didn't actually match.  The real closing parenthesis handl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13080	13197	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10364	10481	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13080	13197	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10364	10481	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13080	13197	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10364	10481	
==>od_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $pa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	505	610	
==>, substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5}, "\n";
    exit;
}

warn "no c <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	513	684	
==>rt, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13128	13258	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13128	13258	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13128	13258	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5368	5498	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3868	3998	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2013	2143	
==>et past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2365	2509	
==>s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2677	2816	
==>s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2677	2816	
==>s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9227	9346	
==>X objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dep <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10704	10823	
==>X objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dep <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6273	6373	
==>else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normaliz <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6273	6373	
==>else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normaliz <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9446	9555	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6993	7102	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9446	9555	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6993	7102	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9446	9555	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6993	7102	
==>scendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asce <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	150	246	
==>er::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2200	2341	
==>e_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exists $n <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1144	1252	
==>dcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connect <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1144	1252	
==>dcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connect <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1264	1363	
==>, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fir <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1264	1363	
==>, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fir <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1264	1363	
==>, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fir <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34416	34510	
==>xample has all of the tuples of the
original (or rather, the corresponding transformation of ea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39866	39979	
==>::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # ar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39866	39979	
==>::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # ar <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39866	39979	
==>::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15512	15623	
==>d   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are ju <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15512	15623	
==>d   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are ju <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15512	15623	
==>d   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are ju <==
7	/Users/nnunley/pugs/util/importgraph.pl	1677	1778	
==>{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { setup_mod(2, @_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6811	6930	
==>de = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6811	6930	
==>de = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5, <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	160	269	
==>gs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	153	258	
==>gs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	147	252	
==>gs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	153	258	
==>gs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	147	252	
==>gs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1844	1978	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	956	1090	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1844	1978	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	956	1090	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1844	1978	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	956	1090	
==>) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which ar <==
7	/Users/nnunley/pugs/util/package-osx.pl	10567	10688	
==>ings;\n
        chdir '/usr/local/bin';\n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5443	5557	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8413	8527	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5443	5557	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8413	8527	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5443	5557	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8413	8527	
==>when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basicall <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	6044	6147	
==>psis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $temp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12252	12374	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3874	3996	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12252	12374	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3874	3996	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12252	12374	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3874	3996	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_M <==
7	/Users/nnunley/pugs/util/build_pugs.pl	7416	7527	
==>, unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell- <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3283	3396	
==>k($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3283	3396	
==>k($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4807	4920	
==>k($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7631	7735	
==>m' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7631	7735	
==>m' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' = <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7631	7735	
==>m' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' = <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11279	11381	
==>test passes.)
  </p>

  <table>
    <tmpl_loop name=runcores>
      <tr><th colspan="11" class="indent0 <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1556	1687	
==>= shift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $sel <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5007	5135	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7656	7784	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5214	5336	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11663	11785	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5214	5336	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11663	11785	
==>is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(ev <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7995	8132	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5554	5691	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7995	8132	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5554	5691	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7995	8132	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5554	5691	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1683	1820	
==>head; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Incon <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5751	5866	
==>-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSIT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5751	5866	
==>-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSIT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5751	5866	
==>-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSIT <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6014	6121	
==>$str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML e <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6014	6121	
==>$str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML e <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15787	15886	
==>all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15787	15886	
==>all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2251	2358	
==>($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2251	2358	
==>($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2251	2358	
==>($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8139	8230	
==>ence(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7269	7360	
==>ence(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8139	8230	
==>ence(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7269	7360	
==>ence(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3954	4122	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6481	6649	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3954	4122	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6481	6649	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3954	4122	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6481	6649	
==>>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2515	2616	
==>y $self = shift;
	my $node = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	my $sel <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13918	14092	
==>g,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4027	4173	
==>g,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4027	4173	
==>g,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4027	4173	
==>g,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2451	2565	
==>";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2451	2565	
==>";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2451	2565	
==>";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		i <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24536	24648	
==>egular Expressions

rule Pattern {  # see 15.10.1
      <Disjunction>
}
rule Disjunction {  # see 15.10.1
      < <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6843	6940	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5973	6070	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2627	2724	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2627	2724	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6843	6940	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5973	6070	
==>member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9105	9233	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12078	12206	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9105	9233	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12078	12206	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9105	9233	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12078	12206	
==>rl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMetho <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15138	15232	
==>xactly what language
we're going into, or what environmental parameter to pay attention to
to s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1571	1685	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2018	2132	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1571	1685	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2018	2132	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1571	1685	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2018	2132	
==>ndef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_ <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2323	2421	
==>e objects in the Perl 6 class system.

These objects are changed when you define new traits of Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	211	348	
==>es;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	211	348	
==>es;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	211	348	
==>es;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3363	3477	
==>cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3363	3477	
==>cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3363	3477	
==>cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8090	8183	
==>$iFooBar = $FooBar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5692	5896	
==>sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5692	5896	
==>sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5692	5896	
==>sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1924	2032	
==>ata::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1924	2032	
==>ata::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2160	2268	
==>ata::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1009	1113	
==>: empty\n";
  }
}

sub addToken {
  my ($self, $name, $relativePrecedence, $options, $match) = @_;
  #pri <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	31901	31994	
==>lational operator that takes a single
Relation in its C<$other> argument, where <$other> has t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33762	33855	
==>lational operator that takes a single Relation
in its C<$other> argument, where <$other> has t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1616	1709	
==>nstance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %para <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36451	36544	
==>lational operator that takes a single
Relation in its C<$other> argument, where <$other> has t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38312	38405	
==>lational operator that takes a single Relation
in its C<$other> argument, where <$other> has t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1616	1709	
==>nstance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %para <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1616	1709	
==>nstance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %para <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5629	5791	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.prin <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2990	3152	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.prin <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5629	5791	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.prin <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2990	3152	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.prin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8796	8927	
==>plan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explan <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	960	1079	
==>plan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explan <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	960	1079	
==>plan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18649	18791	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15887	16029	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18649	18791	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15887	16029	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18649	18791	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15887	16029	
==>tes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoa <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27296	27392	
==>+ length($str);
    MatchX->new()->set(1,$str,$cap,{},$from,$to);
}
sub rx {
    my($re,$mods)=@_ <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	1776	1891	
==>b} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return $config;
}

sub add_path {
    my ($name, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	449	562	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	669	782	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	449	562	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	669	782	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	449	562	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	669	782	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNati <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11092	11216	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12563	12687	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14569	14693	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16040	16164	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13877	14001	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15402	15526	
==>ze() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($oth <==
7	/Users/nnunley/pugs/util/config_h.pl	1156	1258	
==>sole.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# O <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3563	3682	
==>iverse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_int <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3563	3682	
==>iverse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_int <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	862	979	
==>efg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule    => sub{ $match = $rpc_rule->match($str)    f <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	8876	8973	
==>ts_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = und <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8934	9031	
==>ts_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = und <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	572	666	
==>rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_resul <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	572	666	
==>rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_resul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24528	24694	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26717	26883	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24528	24694	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26717	26883	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24528	24694	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26717	26883	
==>"PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbox <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4614	4734	
==>$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} <=> $a->{p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18284	18402	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15522	15640	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18284	18402	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15522	15640	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18284	18402	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15522	15640	
==>=> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ / <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8149	8256	
==>neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6971	7088	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9941	10058	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6971	7088	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9941	10058	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6971	7088	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9941	10058	
==>method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	253	362	
==>strict;

sub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2901	3034	
==>nce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2901	3034	
==>nce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2901	3034	
==>nce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6142	6244	
==>et {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    ! <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5272	5374	
==>et {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    ! <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6142	6244	
==>et {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    ! <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5272	5374	
==>et {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    ! <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15960	16200	
==>array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->p <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15960	16200	
==>array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->p <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15960	16200	
==>array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	550	661	
==>function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	550	661	
==>function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	550	661	
==>function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var n <==
7	/Users/nnunley/pugs/util/package-osx.pl	5346	5443	
==>l/man/man3/Perl6::Doc.3pm
        /usr/local/man/man3/Perl6::FAQ::Capture.3
        /usr/local/man <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9741	9851	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12714	12824	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9741	9851	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12714	12824	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9741	9851	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12714	12824	
==>y 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object. <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1290	1392	
==>s::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compile <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9975	10085	
==>sub node::subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5396	5501	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3516	3621	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5396	5501	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3516	3621	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5396	5501	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3516	3621	
==>($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclas <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	919	1027	
==>bless {}, $class;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub regex {
  my ($s <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	87	184	
==>d in terms of others, or of Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines so <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11152	11247	
==>exists as a container
in which Node objects live.  The Document class is pure and deterministic, <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11152	11247	
==>exists as a container
in which Node objects live.  The Document class is pure and deterministic, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7492	7580	
==>.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7492	7580	
==>.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7492	7580	
==>.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	322	439	
==>ate JIB::Source object from '$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source packag <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4168	4265	
==>ructor, and when calling these methods you should take care not
to call them in function form by m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4168	4265	
==>ructor, and when calling these methods you should take care not
to call them in function form by m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4168	4265	
==>ructor, and when calling these methods you should take care not
to call them in function form by m <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	167	261	
==>rack of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	225	319	
==>rack of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1507	1593	
==>ze 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128'},'Clutter::num_size 1 <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	22209	22317	
==>en = length($list_str);
        $max_namelen = $Columns - length($middle_str) - $list_len;
        if ($max_n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3769	3871	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6705	6807	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3769	3871	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6705	6807	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3769	3871	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6705	6807	
==>ed $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only w <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	61	158	
==>ase qw/Blondie::Backend::Perl/;

use strict;
use warnings;

use Term::ReadKey;

my %masked_ops = ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8497	8592	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6050	6145	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8497	8592	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6050	6145	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8497	8592	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6050	6145	
==>:opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15260	15368	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12516	12624	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15260	15368	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12516	12624	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15260	15368	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12516	12624	
==>od('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17721	17825	
==>ETA;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Per <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	283	388	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	281	386	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	283	388	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	281	386	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	283	388	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	281	386	
==>s their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as descr <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1800	1900	
==>.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10980	11149	
==>escription,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $o <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1466	1619	
==>escription,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $o <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1466	1619	
==>escription,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7780	7879	
==>in { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $typ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7780	7879	
==>in { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $typ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7780	7879	
==>in { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $typ <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	103	196	
==>oundToEuro { @_[0] * 1.4656 }

# interpolierter Funktions-Aufruf
print "100£ sind @{[PoundToE <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4552	4660	
==>nnels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4552	4660	
==>nnels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	796	899	
==>unction gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass the string inde <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1165	1264	
==>unction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string inde <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	764	863	
==>unction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string inde <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1165	1264	
==>unction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string inde <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22992	23076	
==>r);
package Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@ISA=qw(Perl6::Run::OnPe <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13332	13502	
==>eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_da <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3497	3647	
==>eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_da <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3497	3647	
==>eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_da <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3497	3647	
==>eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_da <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5524	5629	
==>en F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  wa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5524	5629	
==>en F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  wa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5524	5629	
==>en F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  wa <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16030	16141	
==>sername $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16030	16141	
==>sername $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2277	2377	
==>w( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sor <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2277	2377	
==>w( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sor <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3599	3696	
==>his is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pas <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3599	3696	
==>his is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3679	3776	
==>his is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pas <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2286	2456	
==>$fh;
                                    return;
                            };      

use constant ISA_JIB_META   => sub { UNIVERSAL::isa(shift(), 'JIB::Meta') }; 
use co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13337	13443	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10621	10727	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13337	13443	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10621	10727	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13337	13443	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10621	10727	
==>->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1687	1804	
==>N>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12505	12598	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10056	10149	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12505	12598	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10056	10149	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12505	12598	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10056	10149	
==>n 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6392	6495	
==>r_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the stri <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5465	5568	
==>r_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the stri <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5925	6028	
==>i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is c <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6392	6495	
==>r_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the stri <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5465	5568	
==>r_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the stri <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5925	6028	
==>i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5925	6028	
==>i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5611	5714	
==>sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5611	5714	
==>sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5611	5714	
==>sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+) <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12741	12842	
==>ues.  Also, it maybe probably be
in terms of longest non-infinite.  -law]

=back



=head2 Hash

=over <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12017	12109	
==>ead1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12017	12109	
==>ead1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12017	12109	
==>ead1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	993	1095	
==>mmycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	993	1095	
==>mmycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	993	1095	
==>mmycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar") <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21762	21859	
==>ce_from_sigil{$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $sigil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14882	14978	
==>gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E< <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14882	14978	
==>gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E< <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14882	14978	
==>gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11644	11810	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9197	9363	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11644	11810	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9197	9363	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11644	11810	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9197	9363	
==>o the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7809	7922	
==>=~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($ <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14440	14553	
==>able_file, @avail ) };
    $@ and error( "Could not write available file: $@" ), return;
    
    my @alts = map { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1784	1896	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3347	3459	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1784	1896	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3347	3459	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1784	1896	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3347	3459	
==>nd WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterato <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4328	4441	
==>e (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4328	4441	
==>e (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4328	4441	
==>e (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next- <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1885	1976	
==>these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=hea <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1848	1939	
==>these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=hea <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1885	1976	
==>these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=hea <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1848	1939	
==>these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=hea <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6590	6701	
==>)(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "Ja <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6590	6701	
==>)(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "Ja <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6590	6701	
==>)(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "Ja <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4338	4432	
==>end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the spa <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	15774	15868	
==>end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the spa <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4338	4432	
==>end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the spa <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15774	15868	
==>end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the spa <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4949	5058	
==>rl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless d <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4949	5058	
==>rl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless d <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5411	5516	
==>rl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless d <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5411	5516	
==>rl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless d <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5291	5387	
==>turn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5291	5387	
==>turn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5291	5387	
==>turn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===> <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24176	24274	
==>mething it received.  This is typically used by automatons
  (clients with either an AI or other in <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22949	23047	
==>mething it received.  This is typically used by automatons
  (clients with either an AI or other in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24176	24274	
==>mething it received.  This is typically used by automatons
  (clients with either an AI or other in <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22949	23047	
==>mething it received.  This is typically used by automatons
  (clients with either an AI or other in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9751	9835	
==>});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9751	9835	
==>});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9751	9835	
==>});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19471	19582	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16703	16814	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19471	19582	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16703	16814	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19471	19582	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16703	16814	
==>| 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\& <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	196	296	
==>ctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::Type::Junctive isa Per <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8209	8327	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5768	5886	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8209	8327	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5768	5886	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8209	8327	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5768	5886	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1897	2015	
==>oop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemp <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4439	4541	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } el <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4694	4796	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } el <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4439	4541	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } el <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4694	4796	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11709	11806	
==>ances of Class which does Role too. So this means that all classes
and roles can be polymorphic to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11709	11806	
==>ances of Class which does Role too. So this means that all classes
and roles can be polymorphic to <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11709	11806	
==>ances of Class which does Role too. So this means that all classes
and roles can be polymorphic to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3012	3147	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5813	5948	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3012	3147	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5813	5948	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3012	3147	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5813	5948	
==>e "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6:: <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8065	8153	
==>>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/x <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3735	3922	
==>racking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3620	3801	
==>racking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $match <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5138	5264	
==>content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!pa <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5138	5264	
==>content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3649	3773	
==>ion types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieabl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3649	3773	
==>ion types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieabl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3649	3773	
==>ion types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieabl <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2972	3156	
==>z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16714	16823	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13919	14028	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16714	16823	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13919	14028	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16714	16823	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13919	14028	
==>get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
} <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9083	9205	
==>age required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10560	10682	
==>age required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2137	2245	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2137	2245	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2137	2245	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3843	3938	
==>, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5745	5840	
==>, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1876	2014	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	988	1126	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1876	2014	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	988	1126	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1876	2014	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	988	1126	
==>s %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # att <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22244	22336	
==>o-width
assertion followed by C<?>, which doesn't warrant the warning.

Added "Unrecognized e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7089	7223	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4648	4782	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7089	7223	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4648	4782	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7089	7223	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4648	4782	
==>my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # re <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5319	5419	
==>op> := (print|say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _pri <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	427	531	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	647	751	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	427	531	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	647	751	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	427	531	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	647	751	
==>str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context. <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3568	3652	
==>::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional invocant named named_slurp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5867	5983	
==>*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5867	5983	
==>*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5867	5983	
==>*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\> <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6294	6390	
==>plicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6294	6390	
==>plicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6090	6182	
==>t 
actually roundtrip parses this document successfully. However, more complex POD 
documents <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6090	6182	
==>t 
actually roundtrip parses this document successfully. However, more complex POD 
documents <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13566	13712	
==>ush(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13566	13712	
==>ush(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13566	13712	
==>ush(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2451	2597	
==>ush(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	820	953	
==>r parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.matc <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	820	953	
==>r parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.matc <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3545	3649	
==>oad" :load
    .local pmc optable
    $P0 = getclass "PGE::Exp::Subrule"
    $P1 = subclass $P0, "PGE::Ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	883	977	
==>=> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	883	977	
==>=> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	883	977	
==>=> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamod <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	14062	14154	
==>go "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make th <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10289	10381	
==>go "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make th <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14062	14154	
==>go "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make th <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10289	10381	
==>go "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make th <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1032	1152	
==>r";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    my $pil_code = `c <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3725	3830	
==>_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts', <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3725	3830	
==>_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts', <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	575	680	
==>_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts', <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36446	36542	
==>ate others.  The sequence in which any two source relations are
combined is inconsequential.  A t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40995	41091	
==>ate others.  The sequence in which any two source relations are
combined is inconsequential.  A t <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40609	40705	
==>ate others.  The sequence in which any two source relations are
combined is inconsequential.  A t <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	981	1117	
==>ugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub buil <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	981	1117	
==>ugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub buil <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	903	1012	
==>l5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurre <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	903	1012	
==>l5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11481	11571	
==>he Role specifc
code to the class that consumed it.

-------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11481	11571	
==>he Role specifc
code to the class that consumed it.

-------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11481	11571	
==>he Role specifc
code to the class that consumed it.

-------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4297	4422	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7233	7358	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4297	4422	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7233	7358	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4297	4422	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7233	7358	
==>akes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1806	1921	
==>r/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1797	1924	
==>y $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2038	2165	
==>y $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1797	1924	
==>y $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1797	1924	
==>y $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1070	1159	
==>def;

## ----------------------------------------------------------------------------
## R <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1070	1159	
==>def;

## ----------------------------------------------------------------------------
## R <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1070	1159	
==>def;

## ----------------------------------------------------------------------------
## R <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1847	1993	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6782	6928	
==>= shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1630	1771	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6559	6700	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1630	1771	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
7	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2001	2098	
==>wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should re <==
7	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2001	2098	
==>wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1513	1649	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3076	3212	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1513	1649	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3076	3212	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1513	1649	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3076	3212	
==>ve magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this al <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2858	2978	
==>h );
        
    }
}    

=head2 $meta = $pkg->extract_meta_object;

=cut

sub extract_meta_object {
    my $self = shif <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11082	11231	
==>er);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11082	11231	
==>er);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11082	11231	
==>er);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2908	3009	
==>no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    } <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2908	3009	
==>no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    } <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2908	3009	
==>no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    } <==
7	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	548	642	
==>erfere with the taintedness of %ENV, this could perturbate tests
$ENV{PERL_CORE} = 1 unless ${ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21792	21911	
==>nly in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U3 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9452	9561	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6999	7108	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9452	9561	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6999	7108	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9452	9561	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6999	7108	
==>nt') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2679	2798	
==>class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val- <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1533	1652	
==>$prim = shift;

    $self->enter_scope;
    my @params = $self->params;

    # the body is a code ref
    my $v = $prim- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2679	2798	
==>class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2679	2798	
==>class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	911	1020	
==>}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stric <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	911	1020	
==>}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stric <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	911	1020	
==>}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stric <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1372	1496	
==>=> 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        assoc => 'left',
        precedence => 'equal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6735	6843	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9705	9813	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6735	6843	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9705	9813	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6735	6843	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9705	9813	
==>e_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16477	16587	
==>}

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $st <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16477	16587	
==>}

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $st <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17467	17571	
==>}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $st <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17467	17571	
==>}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3341	3434	
==>B} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3341	3434	
==>B} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3341	3434	
==>B} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "- <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1030	1145	
==>e point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = c <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1904	2019	
==>e point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = c <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1030	1145	
==>e point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = c <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1904	2019	
==>e point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = c <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14784	14880	
==>all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Mo <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14784	14880	
==>all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Mo <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22529	22624	
==>s library provides a partial implementation, in the form of several
roles, for a Relation data t <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3856	3964	
==>) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $cha <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3856	3964	
==>) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $cha <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4848	4956	
==>nst_pkg = $inst->register( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf = $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4388	4492	
==>) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $cha <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4388	4492	
==>) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $cha <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19374	19468	
==>might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true va <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19374	19468	
==>might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true va <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17367	17569	
==>', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23333	23535	
==>', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17646	17848	
==>', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23612	23814	
==>', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9672	9769	
==>ly, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9672	9769	
==>ly, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9672	9769	
==>ly, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3743	3845	
==>le( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub comp <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6446	6548	
==>le( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub comp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3960	4062	
==>le( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub comp <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6458	6560	
==>le( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub comp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4048	4144	
==>gs->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $par <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4048	4144	
==>gs->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $par <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4638	4734	
==>gs->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $par <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	12	114	
==>iterator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4400	4497	
==>ch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4400	4497	
==>ch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	12	109	
==>iterator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4480	4577	
==>ch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	42	138	
==>iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	42	138	
==>iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4501	4638	
==>@_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    che <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4986	5123	
==>@_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    che <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	3690	3801	
==>ues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.value <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7167	7278	
==>ues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.value <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6124	6235	
==>ues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.value <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3745	3852	
==>our target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter t <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3610	3715	
==>our target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter t <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	646	744	
==>nts the dependency declaration from the META.info.
It will turn an entry like this:

depends:
  - p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5643	5749	
==>return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  , <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6196	6302	
==>return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  , <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5836	5942	
==>return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  , <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6389	6495	
==>return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  , <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6548	6641	
==>ins the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test:: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6548	6641	
==>ins the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8745	8838	
==>ins the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1832	2029	
==>.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1832	2029	
==>.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1832	2029	
==>.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5358	5460	
==>ed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5358	5460	
==>ed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5358	5460	
==>ed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  m <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20532	20632	
==>er> <InitialiserNoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> <AssignmentExpression>
}
r <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2003	2107	
==>package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blon <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7024	7122	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6154	6252	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2808	2906	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2808	2906	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7024	7122	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6154	6252	
==>r);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mult <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4681	4785	
==>tions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --meta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4681	4785	
==>tions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --meta <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4681	4785	
==>tions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --meta <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21111	21208	
==>>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel na <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20019	20116	
==>>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel na <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21111	21208	
==>>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel na <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20019	20116	
==>>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel na <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1737	1858	
==>to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state- <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2065	2184	
==>to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state- <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1678	1797	
==>to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2065	2184	
==>to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2112	2209	
==>-s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precom <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2112	2209	
==>-s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precom <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2112	2209	
==>-s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precom <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3371	3478	
==>lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3371	3478	
==>lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pre <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3371	3478	
==>lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pre <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5895	5991	
==>r_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5025	5121	
==>r_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5895	5991	
==>r_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5025	5121	
==>r_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3382	3485	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11940	12043	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6507	6610	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3382	3485	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11940	12043	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6507	6610	
==>'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9201	9295	
==>" }
NODE VBool ($value) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16659	16770	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13864	13975	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16659	16770	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13864	13975	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16659	16770	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13864	13975	
==>my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2134	2230	
==>Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3951	4070	
==>Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3951	4070	
==>Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC} <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3951	4070	
==>Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC} <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23617	23713	
==>r a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Q <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22390	22486	
==>r a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Q <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23617	23713	
==>r a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Q <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22390	22486	
==>r a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Q <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10589	10756	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8140	8307	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10589	10756	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8140	8307	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10589	10756	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8140	8307	
==>ack to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterat <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1245	1344	
==>ath::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16724	16887	
==>ft;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$class:' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6133	6256	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9103	9226	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6133	6256	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9103	9226	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6133	6256	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9103	9226	
==>stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class me <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	863	967	
==>is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	863	967	
==>is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	863	967	
==>is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7981	8081	
==>null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::gr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7708	7804	
==>null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::gr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	710	801	
==>:Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->expo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	710	801	
==>:Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->expo <==
7	/Users/nnunley/pugs/util/addauthors.pl	1588	1700	
==>chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	126	231	
==>odule::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require => 1,
);

s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2603	2707	
==>rule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- con <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2787	2891	
==>rule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- con <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4363	4458	
==>tem C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method ac <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4363	4458	
==>tem C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method ac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5887	5982	
==>tem C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method ac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9797	9909	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7346	7458	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9797	9909	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7346	7458	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9797	9909	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7346	7458	
==>rivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $v <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6765	6863	
==>}
NODE PPos ($pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17072	17172	
==>};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17072	17172	
==>};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17072	17172	
==>};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($x <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21703	21799	
==>eceived from the server (unmodified).

=item C<server>

The server the line was sent from. This i <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20584	20680	
==>eceived from the server (unmodified).

=item C<server>

The server the line was sent from. This i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21703	21799	
==>eceived from the server (unmodified).

=item C<server>

The server the line was sent from. This i <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20584	20680	
==>eceived from the server (unmodified).

=item C<server>

The server the line was sent from. This i <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8819	8981	
==>f ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12720	12841	
==>f ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12720	12841	
==>f ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2120	2311	
==>ti  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5873	5981	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3993	4101	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5873	5981	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3993	4101	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5873	5981	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3993	4101	
==>r($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19097	19257	
==>hable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19097	19257	
==>hable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19097	19257	
==>hable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7861	7987	
==>(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13455	13581	
==>(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7861	7987	
==>(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13449	13575	
==>(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9808	9921	
==>apturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cm <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15649	15762	
==>apturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9808	9921	
==>apturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15643	15756	
==>apturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4964	5066	
==>d_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4964	5066	
==>d_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4964	5066	
==>d_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6321	6443	
==>ist' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6321	6443	
==>ist' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6321	6443	
==>ist' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i- <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11284	11402	
==>r can choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11284	11402	
==>r can choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10525	10635	
==>r can choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $ <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10525	10635	
==>r can choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10470	10592	
==>:p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::S <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10470	10592	
==>:p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::S <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10470	10592	
==>:p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::S <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	2090	2198	
==>other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2090	2198	
==>other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Se <==
7	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	734	837	
==>:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here <==
7	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	734	837	
==>:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6405	6511	
==>t;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6405	6511	
==>t;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6405	6511	
==>t;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@P <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8286	8386	
==>ize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebod <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8286	8386	
==>ize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebod <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	1752	1849	
==>_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method si <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1752	1849	
==>_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method si <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8858	9007	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11831	11980	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8858	9007	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11831	11980	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8858	9007	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11831	11980	
==>:Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the method <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35060	35156	
==>urn $self;
  }

We inherit the merge() method defined in F<Regexp::Parser::branch>,
which is used <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1510	1664	
==>elf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $r <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1614	1768	
==>elf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1510	1664	
==>elf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $r <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1614	1768	
==>elf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2357	2455	
==>eturn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2357	2455	
==>eturn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2357	2455	
==>eturn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	219	361	
==>e:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9594	9720	
==>h; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9594	9720	
==>h; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array. <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9594	9720	
==>h; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	349	447	
==>rn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	349	447	
==>rn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	349	447	
==>rn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL: <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	91	344	
==>rt symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	91	344	
==>rt symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	91	344	
==>rt symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	91	344	
==>rt symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2310	2435	
==>' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2310	2435	
==>' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2310	2435	
==>' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10735	10877	
==>{
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_require <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10735	10877	
==>{
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_require <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10735	10877	
==>{
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_require <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3840	3947	
==>y ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3840	3947	
==>y ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4372	4475	
==>y ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4372	4475	
==>y ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18308	18438	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15546	15676	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18308	18438	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15546	15676	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18308	18438	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15546	15676	
==>el};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16992	17098	
==>= newfrom(pattern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = find_global "PGE::Rule", "p6rule"
    exp = $P0(ex <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15876	15977	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20593	20694	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15876	15977	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20593	20694	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15876	15977	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20593	20694	
==>start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7763	7858	
==>rce_object(anyof_char_comp => chr(hex $1), "\\X$1") if $cc;
      return $S->object(exact_comp = <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1490	1579	
==>0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15882	15995	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20599	20712	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15882	15995	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20599	20712	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15882	15995	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20599	20712	
==>our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mult <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	148	243	
==>ype based object system, it was inspired by
a purely functional prototype OO system written in S <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2328	2462	
==>);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => ' <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1500	1613	
==>e accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accen <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1500	1613	
==>e accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accen <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34446	34558	
==>e { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34446	34558	
==>e { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34446	34558	
==>e { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unl <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	308	412	
==>esents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

T <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	308	412	
==>esents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

T <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7852	7995	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5411	5554	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7852	7995	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5411	5554	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7852	7995	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5411	5554	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1540	1683	
==>, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $noth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14987	15136	
==>D);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14987	15136	
==>D);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14987	15136	
==>D);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19686	19834	
==>D);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19686	19834	
==>D);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19686	19834	
==>D);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	594	693	
==>ypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3809	3932	
==>lf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3639	3762	
==>b _analyze_line {
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3809	3932	
==>lf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3809	3932	
==>lf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	44	154	
==>has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
} <==
7	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	44	154	
==>has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
} <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	780	868	
==>>new(p6=>$p6)->compile;
	my $p5 = p6_wrap_code_with_package($cc->as_p5,'main');
	if($verb <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2344	2564	
==>match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3315	3441	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6251	6377	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3315	3441	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6251	6377	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3315	3441	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6251	6377	
==>inding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3329	3430	
==>n "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2119	2220	
==>", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+" <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3329	3430	
==>n "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3329	3430	
==>n "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2119	2220	
==>", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2119	2220	
==>", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+" <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16651	16750	
==>t would be plausible places to hide data.
Perl_re_dup just copies them.

  struct reg_data *data;  / <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8818	8962	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8818	8962	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8818	8962	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', ' <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	34	134	
==>take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in othe <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	38	138	
==>take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in othe <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	34	134	
==>take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in othe <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	38	138	
==>take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in othe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2655	2792	
==>lass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2655	2792	
==>lass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2655	2792	
==>lass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6104	6240	
==>$i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6104	6240	
==>$i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6104	6240	
==>$i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1935	2029	
==>th this module may cause
segfaults on C<split>, substitution, and/or other uses.

It is current <==
7	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	613	730	
==>LOB' ) {
        bless $self, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15108	15218	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12362	12472	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15108	15218	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12362	12472	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15108	15218	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12362	12472	
==>utes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attrib <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14970	15078	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12224	12332	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14970	15078	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12224	12332	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14970	15078	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12224	12332	
==>ate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ins <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10979	11079	
==>/</code> tests may or may not be run, causing durations and the ok
    percentage to not be comparabl <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18659	18780	
==>e);
    } elsif(defined $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("del <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4903	5004	
==>)->type->to_native;
        # warn "with " . $right->fetch($i)->name->to_native . ' => ' . $right->fet <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	531	629	
==>grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1076	1174	
==>grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to t <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	531	629	
==>grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1076	1174	
==>grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to t <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1076	1174	
==>grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to t <==
7	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	446	550	
==>d2 new()

Create an iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($pro <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	225	327	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	549	651	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	225	327	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	549	651	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	225	327	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	549	651	
==>outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
7	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1400	1510	
==>ring $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2746	2847	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5394	5495	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2746	2847	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5394	5495	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2746	2847	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5394	5495	
==>bute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	23495	23607	
==>ailed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @result = ();
    my @canon <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3993	4104	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4931	5042	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2227	2338	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2473	2584	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3008	3119	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3254	3365	
==>( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<te <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4323	4436	
==>'\\])}{\\$1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConf <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3492	3590	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6506	6604	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8574	8672	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3492	3590	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6506	6604	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8574	8672	
==>le) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns S <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	279	411	
==>ude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skip <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5714	5831	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3834	3951	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5714	5831	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3834	3951	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5714	5831	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3834	3951	
==>hat none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17673	17837	
==>>new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19431	19595	
==>>new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39883	40046	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40942	41105	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%p <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1201	1308	
==>utput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1201	1308	
==>utput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1281	1388	
==>utput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	86	189	
==>src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Has <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	86	189	
==>src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Has <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	86	189	
==>src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Has <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	86	189	
==>src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Has <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1339	1427	
==>ge, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1339	1427	
==>ge, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1339	1427	
==>ge, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_ob <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	20870	21046	
==>xs",
    body => let(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                param => "n",
                body => cond <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5045	5181	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7694	7830	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5251	5381	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11700	11830	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5251	5381	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11700	11830	
==>riable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7868	8020	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5427	5579	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7868	8020	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5427	5579	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7868	8020	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5427	5579	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1556	1708	
==>ve the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $nothead; # leave the loop wit <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2957	3184	
==>HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # c <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8051	8278	
==>HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # c <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2957	3184	
==>HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # c <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8051	8278	
==>HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1503	1604	
==>e Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implement <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1503	1604	
==>e Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implement <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1503	1604	
==>e Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implement <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2141	2319	
==>];
            
            
        } while !   $_[3]->{match}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10415	10554	
==>$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$arg <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6756	6895	
==>$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$arg <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7605	7744	
==>$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1784	1878	
==>gth + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expe <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1784	1878	
==>gth + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expe <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1784	1878	
==>gth + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expe <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3185	3305	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3185	3305	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3185	3305	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind h <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2446	2552	
==>e->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*V <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2446	2552	
==>e->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*V <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9053	9146	
==>stead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentatio <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9053	9146	
==>stead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1745	1865	
==>ub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 10 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1745	1865	
==>ub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 10 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1745	1865	
==>ub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 10 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	146	250	
==>dir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS need <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	156	260	
==>mitter - emitter base class - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	146	250	
==>dir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS need <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	146	250	
==>dir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS need <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3028	3141	
==>pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3028	3141	
==>pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3028	3141	
==>pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.d <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2430	2537	
==>t;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns Lis <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2430	2537	
==>t;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns Lis <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4350	4453	
==>-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory sta <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4350	4453	
==>-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory sta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7621	7785	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7621	7785	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defi <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7621	7785	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5012	5164	
==>sh') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5012	5164	
==>sh') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethin <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5012	5164	
==>sh') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethin <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14160	14269	
==>2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHandSi <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4938	5032	
==>le: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$postamble" or di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15028	15121	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12282	12375	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15028	15121	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12282	12375	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15028	15121	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12282	12375	
==>bute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$labe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16177	16317	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20894	21034	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16177	16317	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20894	21034	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16177	16317	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20894	21034	
==>ame};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -co <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	143	243	
==>sename;
use Pugs::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dirname(__FILE__) || '.') . "/..") };

s <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	288	413	
==>use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Da <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13977	14088	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14464	14575	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13977	14088	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14464	14575	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13977	14088	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14464	14575	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unle <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8198	8311	
==>fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8198	8311	
==>fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8198	8311	
==>fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	51	157	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	51	157	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	51	157	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fi <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17859	17948	
==>Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19132	19253	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16370	16491	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19132	19253	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16370	16491	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19132	19253	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16370	16491	
==>ould
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($sel <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1926	2029	
==>ms>' ) );
    return "$ident->$meth($list);\n";
}
sub node::sub_call_term {
    my $ident = get_str( $_[ <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5722	5999	
==>line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str) <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5722	5999	
==>line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str) <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3083	3359	
==>line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3083	3359	
==>line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13573	13711	
==>key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13573	13711	
==>key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13573	13711	
==>key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $ <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	102	219	
==>ther {
	for @values -> $x {
	    take $x if $x ~~ $test;
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::jo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5810	5915	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3930	4035	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5810	5915	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3930	4035	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5810	5915	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3930	4035	
==>itance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasse <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8885	8992	
==>f "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, w <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8885	8992	
==>f "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, w <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8885	8992	
==>f "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, w <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5907	6008	
==>two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5037	5138	
==>two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5907	6008	
==>two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5037	5138	
==>two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20913	21143	
==>E IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20913	21143	
==>E IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20913	21143	
==>E IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2545	2636	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by N <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2545	2636	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by N <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1758	1845	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by N <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3619	3706	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by N <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1358	1477	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2921	3040	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1358	1477	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2921	3040	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1358	1477	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2921	3040	
==>ement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE a <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4357	4456	
==>->values;

		my $thunk_type = $thunk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$thunk <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14598	14760	
==>'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14598	14760	
==>'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14598	14760	
==>'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]- <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9909	10020	
==>/[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_li <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15750	15861	
==>/[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_li <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9909	10020	
==>/[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_li <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15744	15855	
==>/[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_li <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7794	7932	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5353	5491	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7794	7932	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5353	5491	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7794	7932	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5353	5491	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1482	1620	
==>reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14955	15093	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14955	15093	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14955	15093	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19654	19791	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19654	19791	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19654	19791	
==>load = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL i <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	8064	8179	
==>ods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorecase");
#           warning "PGE doesn <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11233	11364	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8786	8917	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11233	11364	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8786	8917	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11233	11364	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8786	8917	
==>n the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->() <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	22416	22546	
==>ns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17777	17933	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14997	15153	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17777	17933	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14997	15153	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17777	17933	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14997	15153	
==>thod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class meth <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14812	14912	
==>5
      <UnaryExpression>
    | <MultiplicativeExpression> <'*'> <UnaryExpression>
    | <Multiplicat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15794	15902	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13044	13152	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15794	15902	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13044	13152	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15794	15902	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13044	13152	
==>ned $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_ge <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	7918	8010	
==>:instantiated') => sub { unify($_[1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type::va <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	356	458	
==>Utils::MakeMaker::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemak <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9748	9837	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7297	7386	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9748	9837	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7297	7386	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9748	9837	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7297	7386	
==>dd_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @value <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	188	301	
==>ub WritePugs {
    my $self = shift;

    my $install_version = shift;
    die "Install version must be 5 or 6 for <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	971	1123	
==>nce} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36337	36429	
==>attributes differ and unioning
the remaining said tuple pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38090	38182	
==>attributes differ and unioning the remaining said tuple
pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40886	40978	
==>attributes differ and unioning
the remaining said tuple pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42639	42731	
==>attributes differ and unioning the remaining said tuple
pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40500	40592	
==>attributes differ and unioning
the remaining said tuple pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42289	42381	
==>attributes differ and unioning the remaining said tuple
pairs, then eliminating any result tu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14342	14493	
==>n->{op1}{op} eq 'eval' ) {
        return 
            'do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'loc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13253	13384	
==>ne { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13253	13384	
==>ne { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13253	13384	
==>ne { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3618	3739	
==>tparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada tr <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3618	3739	
==>tparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada tr <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5105	5203	
==>GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2145	2258	
==>l5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compil <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2145	2258	
==>l5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compil <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1377	1485	
==>l5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compil <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3238	3346	
==>l5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11553	11656	
==>",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - u <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11553	11656	
==>",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - u <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11553	11656	
==>",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - u <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	15191	15341	
==>il (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = join '', 
              map { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3992	4094	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2083	2185	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3992	4094	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2083	2185	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3992	4094	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2083	2185	
==>her(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3413	3539	
==>$label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3413	3539	
==>$label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3413	3539	
==>$label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3926	4033	
==>} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3926	4033	
==>} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3926	4033	
==>} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = su <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3143	3244	
==>'value' ,'unk';
node_a 'Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1986	2120	
==>ch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2421	2555	
==>ch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2858	2992	
==>ch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	588	689	
==>tion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - h <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	588	689	
==>tion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - h <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	588	689	
==>tion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - h <==
7	/Users/nnunley/pugs/util/package-osx.pl	10164	10262	
==>over that will be installed on the target machine (hence the $file[-1]).
sub create_remover {
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7743	7849	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10666	10772	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7743	7849	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10666	10772	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7743	7849	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10666	10772	
==>D unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10996	11092	
==>ring representation is built by calling the visual() method of
each node in the tree.

=head2 Usi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30813	31005	
==>ength;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $t <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30813	31005	
==>ength;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $t <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30813	31005	
==>ength;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $t <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	642	787	
==>params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $se <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	642	787	
==>params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $se <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	718	814	
==>stPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains b <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	718	814	
==>stPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains b <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7630	7730	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6760	6860	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3346	3446	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3346	3446	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7630	7730	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6760	6860	
==>}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIR <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26559	26645	
==>xt :run);
#$Language::Prolog::Yaswi::swi_converter->pass_as_opaque('UNIVERSAL');
#Predi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13438	13601	
==>$len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i+ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13438	13601	
==>$len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i+ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13438	13601	
==>$len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i+ <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2323	2486	
==>$len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i+ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5907	6008	
==>flicts ... add method
                $self->add_method($method_name => $role->get_method($method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5907	6008	
==>flicts ... add method
                $self->add_method($method_name => $role->get_method($method_name <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5907	6008	
==>flicts ... add method
                $self->add_method($method_name => $role->get_method($method_name <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6692	6787	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5822	5917	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2476	2571	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2476	2571	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6692	6787	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5822	5917	
==>ix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3071	3159	
==>stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fprintf(st <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3481	3580	
==>o crap in the AST - no calls to stubs and no inexistant symbols

=back

The compiler inherits L<Blon <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	182	287	
==>'t show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recu <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	182	287	
==>'t show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recu <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1748	1852	
==>ames)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26716	26811	
==>ne ROPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* B <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7439	7526	
==>_all_roles' => ::make_method($_collect_all_roles));

## -------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7439	7526	
==>_all_roles' => ::make_method($_collect_all_roles));

## -------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7439	7526	
==>_all_roles' => ::make_method($_collect_all_roles));

## -------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9821	10019	
==>tch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9821	10019	
==>tch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9821	10019	
==>tch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	2104	2217	
==>nternals::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	65	161	
==>functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	65	161	
==>functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	65	161	
==>functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Pe <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3533	3654	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3533	3654	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5057	5178	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8924	9017	
==>ordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or m <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3853	3946	
==>ordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or m <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8924	9017	
==>ordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or m <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3853	3946	
==>ordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10722	10829	
==>d;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10722	10829	
==>d;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10722	10829	
==>d;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) { <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8746	8847	
==>te($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return val <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8746	8847	
==>te($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return val <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9004	9103	
==>te($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return val <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9004	9103	
==>te($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return val <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2106	2230	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1218	1342	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2106	2230	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1218	1342	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2106	2230	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1218	1342	
==>- (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # thi <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26264	26367	
==>.1
      <'['> <!before <'^'>> <ClassRanges> <']'> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule Cl <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3887	3989	
==>... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3887	3989	
==>... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5411	5513	
==>... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	288	388	
==>uffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

m <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	288	388	
==>uffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

m <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15648	15743	
==>s to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Port <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15648	15743	
==>s to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Port <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16317	16458	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21034	21175	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16317	16458	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21034	21175	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16317	16458	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21034	21175	
==>ore => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            got <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13821	13918	
==>sh ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests --> Int <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14342	14443	
==>ncode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14342	14443	
==>ncode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5232	5331	
==>oesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5232	5331	
==>oesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5232	5331	
==>oesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41023	41114	
==>son Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample u <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41023	41114	
==>son Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18786	18894	
==>xed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18786	18894	
==>xed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18786	18894	
==>xed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11669	11764	
==>he set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8816	8911	
==>he set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11669	11764	
==>he set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8816	8911	
==>he set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items i <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	12232	12341	
==>ame of open3.

    multi sub open3 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2713	2826	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5703	5816	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3008	3114	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9426	9532	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3008	3114	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9426	9532	
==>rder ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    ret <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13839	13927	
==>(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !.
o <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4787	4958	
==>ybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have somethi <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5251	5422	
==>ybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have somethi <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1002	1093	
==>m B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port retu <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1002	1093	
==>m B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16964	17051	
==>'@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16964	17051	
==>'@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16964	17051	
==>'@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6759	6884	
==>= 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6759	6884	
==>= 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6759	6884	
==>= 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1337	1452	
==>i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fun <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1337	1452	
==>i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fun <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1337	1452	
==>i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fun <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1972	2059	
==>rams = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to($params->length <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	255	375	
==>::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4489	4605	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7138	7254	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4714	4827	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11163	11276	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4714	4827	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11163	11276	
==>delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ab <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	1524	1683	
==>item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear( <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1628	1787	
==>item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear( <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1524	1683	
==>item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear( <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1628	1787	
==>item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9866	9971	
==>f ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9866	9971	
==>f ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9866	9971	
==>f ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if( <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1581	1743	
==>my $prerm = $meta . '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( < <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6708	6804	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5838	5934	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2492	2588	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2492	2588	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6708	6804	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5838	5934	
==>ne, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $s <==
7	/Users/nnunley/pugs/inc/Module/Install.pm	2014	2128	
==>};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33903	34008	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34071	34176	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33903	34008	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34071	34176	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33903	34008	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34071	34176	
==>ift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19782	19905	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16921	17044	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19782	19905	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16921	17044	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19782	19905	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16921	17044	
==>);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($ <==
7	/Users/nnunley/pugs/util/build_pugs.pl	8103	8212	
==>map File::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), grep / <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19454	19566	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16686	16798	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1742	1854	
==>eturn;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::String $P) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19454	19566	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16686	16798	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19454	19566	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16686	16798	
==>at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3021	3140	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6014	6133	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3299	3410	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9717	9828	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3299	3410	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9717	9828	
==>turn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	171	277	
==>t)$/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc_i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13302	13420	
==>sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13302	13420	
==>sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13302	13420	
==>sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6 <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30947	31058	
==>urn @values[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6257	6349	
==><Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6257	6349	
==><Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8454	8546	
==><Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8959	9056	
==>ode is free software, and may be used, distributed and/or modified under 
the same terms as Perl i <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3888	3985	
==>ode is free software, and may be used, distributed and/or modified under 
the same terms as Perl i <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8959	9056	
==>ode is free software, and may be used, distributed and/or modified under 
the same terms as Perl i <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3888	3985	
==>ode is free software, and may be used, distributed and/or modified under 
the same terms as Perl i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11865	11961	
==>thod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11865	11961	
==>thod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11865	11961	
==>thod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Cl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7147	7304	
==>ount = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $st <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7147	7304	
==>ount = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $st <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7147	7304	
==>ount = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $st <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7565	7660	
==>@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7565	7660	
==>@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1374	1460	
==>Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1374	1460	
==>Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthe <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1621	1730	
==>};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->ev <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1621	1730	
==>};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->ev <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	13287	13393	
==>The second source's heading is a proper subset of the
        # first source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16764	16870	
==>The second source's heading is a proper subset of the
        # first source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16126	16232	
==>The second source's heading is a proper subset of the
        # first source's heading, so simplify to a se <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1713	1808	
==>e()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::F <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1713	1808	
==>e()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::F <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	777	1014	
==>)
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::cons <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	778	1015	
==>)
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::cons <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	132	247	
==>mports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	132	247	
==>mports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	132	247	
==>mports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      P <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	8112	8217	
==>));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tes <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8170	8275	
==>));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tes <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9891	9993	
==>arts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@param <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	50	142	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	46	138	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	54	146	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	48	140	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	47	139	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	48	140	
==>se warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11254	11404	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8807	8957	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11254	11404	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8807	8957	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11254	11404	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8807	8957	
==>k
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null t <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21420	21510	
==>:Parser::suspend::ISA, __PACKAGE__;
  push @Regexp::Parser::ifthen::ISA, __PACKAGE__;
  pus <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7546	7699	
==>ndefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7546	7699	
==>ndefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7546	7699	
==>ndefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20062	20158	
==>rguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if t <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20062	20158	
==>rguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if t <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9985	10080	
==>g representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9985	10080	
==>g representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	523	620	
==>is nothingmuch's first article that he read from cover
# to cover with no hand holding, and actual <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13435	13530	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10719	10814	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13435	13530	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10719	10814	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13435	13530	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10719	10814	
==>elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6571	6722	
==>ub_call'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Gra <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22147	22242	
==>nvoking methods on those objects.  All of
their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9420	9515	
==>nvoking methods on those objects.  All of
their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22147	22242	
==>nvoking methods on those objects.  All of
their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9420	9515	
==>nvoking methods on those objects.  All of
their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24515	24609	
==>nvoking methods on those objects.
All of their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24515	24609	
==>nvoking methods on those objects.
All of their attributes are private, so you must use accessor <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1723	1839	
==>} else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1723	1839	
==>} else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1723	1839	
==>} else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6355	6455	
==>o);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5485	5585	
==>o);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6355	6455	
==>o);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5485	5585	
==>o);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9189	9284	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4332	4427	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	15768	15863	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9189	9284	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4332	4427	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15768	15863	
==>)` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2484	2574	
==>the experimental Perl6-to-Perl5 compiler.

The current state of this compiler implementatio <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13180	13353	
==>>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13174	13347	
==>>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36295	36423	
==>@tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length he <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36295	36423	
==>@tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length he <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36295	36423	
==>@tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length he <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14853	14977	
==>N/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "J <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14853	14977	
==>N/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "J <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	181	295	
==>ings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . j <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	69	178	
==>ings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . j <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	69	178	
==>ings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . j <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	961	1066	
==>t, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1188	1293	
==>t, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1415	1520	
==>t, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1640	1745	
==>t, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8141	8275	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5700	5834	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8141	8275	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5700	5834	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8141	8275	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5700	5834	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1829	1963	
==>hierarchy" if not $cand;
        push @res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it m <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	576	706	
==>) {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: - <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	576	706	
==>) {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: - <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2499	2602	
==>ersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_emp <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2499	2602	
==>ersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_emp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6034	6130	
==>opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
thi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6034	6130	
==>opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
thi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6034	6130	
==>opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8862	8998	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acce <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8862	8998	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acce <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8862	8998	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acce <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3373	3476	
==>rything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-use <==
7	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	388	489	
==>E

CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	388	489	
==>E

CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3254	3354	
==>rything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-use <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5190	5293	
==>P6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5190	5293	
==>P6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULT <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5190	5293	
==>P6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULT <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	344	443	
==>:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Ou <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	344	443	
==>:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Ou <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18191	18286	
==>urned words for the user, such as
'error opening file', programs would have a harder time figuri <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18191	18286	
==>urned words for the user, such as
'error opening file', programs would have a harder time figuri <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4825	4935	
==>tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribut <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4825	4935	
==>tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1561	1664	
==>e $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1561	1664	
==>e $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1561	1664	
==>e $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2913	3009	
==>, make sure you combine the key with a nonce or initialization vector, a 
one-time random number. <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2913	3009	
==>, make sure you combine the key with a nonce or initialization vector, a 
one-time random number. <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13317	13473	
==>stant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27431	27587	
==>stant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13596	13752	
==>stant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27710	27866	
==>stant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2723	2820	
==>test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf). <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2723	2820	
==>test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf). <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2723	2820	
==>test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf). <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	538	682	
==>p == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tm <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	538	682	
==>p == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2190	2319	
==>gname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2190	2319	
==>gname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_j <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2190	2319	
==>gname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_j <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	644	752	
==>ger needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	644	752	
==>ger needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20842	20969	
==>$rx,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39503	39597	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39773	39867	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39503	39597	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39773	39867	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39503	39597	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39773	39867	
==>( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4168	4331	
==>::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4168	4331	
==>::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4168	4331	
==>::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Valu <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	5233	5334	
==>s aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return t <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5233	5334	
==>s aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return t <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4413	4503	
==>and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<de <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4413	4503	
==>and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<de <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1051	1201	
==>name;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has In <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1051	1201	
==>name;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has In <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2633	2755	
==>ent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2633	2755	
==>ent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1343	1439	
==>D;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1343	1439	
==>D;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_ST <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1343	1439	
==>D;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_ST <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1697	1850	
==>turn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the r <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1697	1850	
==>turn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the r <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9180	9286	
==>ontent-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('C <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9180	9286	
==>ontent-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	288	391	
==>_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	288	391	
==>_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	288	391	
==>_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::P <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	62	315	
==>in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	62	315	
==>in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	62	315	
==>in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	62	315	
==>in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4796	4914	
==>me => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LVa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4796	4914	
==>me => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LVa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4796	4914	
==>me => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LVa <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16177	16404	
==>new($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_') <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1540	1631	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1540	1631	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1540	1631	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	381	470	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	381	470	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	381	470	
==>not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName <==
7	/Users/nnunley/pugs/util/package-osx.pl	9352	9485	
==>rr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	934	1057	
==>alue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	934	1057	
==>alue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	934	1057	
==>alue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5837	5956	
==>s rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5837	5956	
==>s rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5837	5956	
==>s rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$ <==
7	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	897	1002	
==>:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub n <==
7	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	897	1002	
==>:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub n <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4064	4159	
==>st,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy { <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4064	4159	
==>st,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3175	3262	
==>nce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3175	3262	
==>nce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3175	3262	
==>nce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' = <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1541	1663	
==>truct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \%\<<name>\>  \: <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	13	106	
==>ule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the re <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	13	106	
==>ule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35628	35718	
==>$other!) returns Relation::Example>

This multi-method is a generic binary relational opera <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36725	36815	
==>$other!) returns Relation::Example>

This multi-method is a generic binary relational opera <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37225	37315	
==>$other!) returns Relation::Example>

This multi-method is a generic binary relational opera <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39273	39363	
==>$other!) returns Relation::Example>

This multi-method is a generic binary relational opera <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39821	39911	
==>$other!) returns Relation::Example>

This multi-method is a generic binary relational opera <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14132	14316	
==>ds => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14132	14316	
==>ds => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # wa <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14132	14316	
==>ds => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # wa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4175	4297	
==>reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } els <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4175	4297	
==>reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } els <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4175	4297	
==>reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } els <==
7	/Users/nnunley/pugs/util/grokprims.pl	1753	1856	
==>arity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } e <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	509	636	
==>rt {
    my Num $guess  = $target / 2;
    my Int $count  = 1;

    while (abs($f($guess) - $target) > $epsilon) {

        if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4821	4912	
==>pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4821	4912	
==>pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5411	5502	
==>pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5366	5456	
==>pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5366	5456	
==>pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5956	6046	
==>pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37283	37432	
==>$array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37283	37432	
==>$array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37283	37432	
==>$array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, <==
7	/Users/nnunley/pugs/util/combine_tests.pl	957	1096	
==>ile->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $event->{num};
                push @{ $sum{$fname}[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21975	22063	
==>MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21975	22063	
==>MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21975	22063	
==>MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	9173	9344	
==>ference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.differe <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12650	12821	
==>ference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.differe <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	280	375	
==>penjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	280	375	
==>penjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	280	375	
==>penjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7420	7536	
==>_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4024	4140	
==>_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4873	4989	
==>_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1202	1305	
==>\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Rul <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1248	1347	
==>turn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  } <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2413	2512	
==>turn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	587	683	
==>\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rul <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2702	2834	
==>O_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ( <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7796	7928	
==>O_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2702	2834	
==>O_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ( <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7796	7928	
==>O_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ( <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1802	1917	
==>tests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has t <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	979	1092	
==>tests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has t <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1452	1565	
==>tests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1849	1963	
==>ture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1989	2103	
==>ture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15626	15721	
==>er gives the date and time after which the entity should be
considered stale.

=item $h.if_modif <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15626	15721	
==>er gives the date and time after which the entity should be
considered stale.

=item $h.if_modif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6503	6594	
==>KES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->na <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6503	6594	
==>KES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->na <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6503	6594	
==>KES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->na <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	880	994	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1273	1387	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	880	994	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1273	1387	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1903	2013	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2338	2448	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2775	2885	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9028	9134	
==>l odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Re <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9028	9134	
==>l odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Re <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17190	17285	
==>er package or application says that it uses
Locale::KeyedText, that is a terse way of saying tha <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	133	228	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method va <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17190	17285	
==>er package or application says that it uses
Locale::KeyedText, that is a terse way of saying tha <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	133	228	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	133	228	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method va <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	8795	8918	
==>/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1 <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8795	8918	
==>/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4156	4255	
==>uation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4156	4255	
==>uation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4156	4255	
==>uation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12056	12148	
==>0-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résum <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12056	12148	
==>0-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résum <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7143	7252	
==>atement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7143	7252	
==>atement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1812	1913	
==>atement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1812	1913	
==>atement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14699	14789	
==>$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14699	14789	
==>$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14699	14789	
==>$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3577	3684	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8861	8968	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3828	3933	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10246	10351	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8550	8655	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3828	3933	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10246	10351	
==>tch = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	776	892	
==>'\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? d <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	785	901	
==>'\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	613	714	
==>e_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	613	714	
==>e_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	613	714	
==>e_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	242	332	
==>---------------------------------------
## This is an extension of the Mini-MetaModel which <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	210	300	
==>---------------------------------------
## This is an extension of the Mini-MetaModel which <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24160	24256	
==>n response to something it received.  This is typically used by automatons
  (clients with either <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22933	23029	
==>n response to something it received.  This is typically used by automatons
  (clients with either <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24160	24256	
==>n response to something it received.  This is typically used by automatons
  (clients with either <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22933	23029	
==>n response to something it received.  This is typically used by automatons
  (clients with either <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4626	4717	
==>l2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquenes <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4626	4717	
==>l2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquenes <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4626	4717	
==>l2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquenes <==
7	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	91	185	
==>uration $duration) returns Duration {
    $self.new($self.length + $duration.length);
}

method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5589	5721	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3709	3841	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5589	5721	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3709	3841	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5589	5721	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3709	3841	
==>my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12725	12824	
==>Relation::Example.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6258	6410	
==>.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6258	6410	
==>.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6258	6410	
==>.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5089	5224	
==>ariables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5089	5224	
==>ariables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5089	5224	
==>ariables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You m <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1753	1870	
==>ft;

    my $self = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1610	1732	
==>(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1610	1732	
==>(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # f <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1610	1732	
==>(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # f <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	439	540	
==>rn Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return B <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	439	540	
==>rn Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return B <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1451	1551	
==>rn Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return B <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1451	1551	
==>rn Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return B <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16338	16505	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21055	21222	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16338	16505	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21055	21222	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16338	16505	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21055	21222	
==>_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# thi <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1423	1519	
==>e may have
  bought fairly simple code with tolerable performance.

However, pugs critical path i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13507	13629	
==>alue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13507	13629	
==>alue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13507	13629	
==>alue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	857	968	
==>IL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	857	968	
==>IL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	857	968	
==>IL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18917	19025	
==>::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.intersecti <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15000	15141	
==>y $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15000	15141	
==>y $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15000	15141	
==>y $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19699	19839	
==>y $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19699	19839	
==>y $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19699	19839	
==>y $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we j <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6261	6377	
==>u must supply a name to get";    
    my $current = $self;
    while ($current) {
        return $current->{env}->{$n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3347	3485	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6283	6421	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3347	3485	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6283	6421	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3347	3485	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6283	6421	
==>ub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1	94	
==>!/usr/bin/perl

use strict;
use warnings;

use Perl6::MetaModel;

require "lib/TestBuilder.pm" <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7180	7300	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4739	4859	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7180	7300	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4739	4859	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7180	7300	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4739	4859	
==>p { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if no <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11644	11737	
==>alar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($_[ <==
7	/Users/nnunley/pugs/util/run-smoke.pl	374	471	
==>ed.
Please install it from the CPAN and try again.

A bundle is available to install at Bundle::Pu <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7017	7112	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6147	6242	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2801	2896	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2801	2896	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7017	7112	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6147	6242	
==>($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($membe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2642	2837	
==>s angle-quote
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17690	17799	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14910	15019	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17690	17799	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14910	15019	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17690	17799	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14910	15019	
==>label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instan <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	600	729	
==>);
  }

  sub data {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14905	15017	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12159	12271	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14905	15017	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12159	12271	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14905	15017	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12159	12271	
==>ts : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (bles <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38036	38294	
==>=> 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4218	4341	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6867	6990	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4450	4570	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10899	11019	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4450	4570	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10899	11019	
==>er( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Matc <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11492	11606	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2486	2600	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7580	7694	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11492	11606	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2486	2600	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7580	7694	
==>or @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	196	302	
==>udge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = $c;
      my($str,$pos,$ca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4346	4452	
==>e::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {.. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4346	4452	
==>e::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {.. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4346	4452	
==>e::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {.. <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1310	1403	
==>0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1273	1366	
==>0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1310	1403	
==>0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1273	1366	
==>0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10235	10381	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7786	7932	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10235	10381	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7786	7932	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10235	10381	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7786	7932	
==>rrent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                i <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12861	12950	
==>d="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="text-decoration: no <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	359	467	
==>ELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Comp <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	359	467	
==>ELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Comp <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2747	2848	
==>method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1725	1826	
==>ng PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  va <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2747	2848	
==>method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1725	1826	
==>ng PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1725	1826	
==>ng PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5505	5619	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8475	8589	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5505	5619	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8475	8589	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5505	5619	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8475	8589	
==>ame opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	45	138	
==>NUM = 0 }

use constant RPe_ZQUANT => --$ENUM, 'Quantifier unexpected on zero-length expressio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7439	7620	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4998	5179	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7439	7620	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4998	5179	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7439	7620	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4998	5179	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1134	1315	
==>d of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5782	5959	
==>[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5782	5959	
==>[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5782	5959	
==>[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15885	15986	
==>ts_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;) <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20118	20219	
==>ts_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;) <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1892	1988	
==>y executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$ <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1892	1988	
==>y executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	28267	28372	
==>o a higher order app with uneq types";

# a helper that returns the stringified type of an AST
sub t {
	my <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4573	4672	
==>em C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string desc <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4573	4672	
==>em C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string desc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6770	6869	
==>em C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string desc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2812	2907	
==>estore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2812	2907	
==>estore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2812	2907	
==>estore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1407	1527	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2970	3090	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1407	1527	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2970	3090	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1407	1527	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2970	3090	
==>e Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical vari <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21603	21701	
==>ment :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <';'>
}
rule Brea <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	239	349	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	563	673	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	239	349	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	563	673	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	239	349	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	563	673	
==>outine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19662	19765	
==>reakStatement>
    | <ReturnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18703	18839	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15941	16077	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18703	18839	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15941	16077	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18703	18839	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15941	16077	
==>iables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_a <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7041	7142	
==>ub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };
sub c <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4568	4689	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7217	7338	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4791	4909	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11240	11358	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4791	4909	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11240	11358	
==>h2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2 <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	661	761	
==>($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10919	11042	
==>uples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            bo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12390	12513	
==>uples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            bo <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14396	14519	
==>uples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            bo <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15867	15990	
==>uples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10867	10976	
==>,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUG <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10867	10976	
==>,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUG <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10867	10976	
==>,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUG <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2961	3076	
==>l4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2961	3076	
==>l4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2961	3076	
==>l4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21753	21851	
==>ver>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

= <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20634	20732	
==>ver>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21753	21851	
==>ver>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

= <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20634	20732	
==>ver>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

= <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	526	642	
==>n
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($ <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	526	642	
==>n
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10240	10347	
==>, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10240	10347	
==>, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10240	10347	
==>, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4, <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	522	620	
==>lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	522	620	
==>lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3373	3479	
==>{ \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<su <==
7	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3373	3479	
==>{ \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<su <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5732	5831	
==>erfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds an <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5732	5831	
==>erfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds an <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8297	8384	
==>d();
}

#======================================================================

use Fin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8297	8384	
==>d();
}

#======================================================================

use Fin <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8297	8384	
==>d();
}

#======================================================================

use Fin <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7037	7134	
==>(new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7037	7134	
==>(new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7037	7134	
==>(new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3503	3606	
==>m},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3503	3606	
==>m},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3503	3606	
==>m},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8908	9001	
==>05 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dist <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3837	3930	
==>05 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dist <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8908	9001	
==>05 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dist <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3837	3930	
==>05 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dist <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4280	4391	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7216	7327	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4280	4391	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7216	7327	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4280	4391	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7216	7327	
==>s sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are b <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13037	13140	
==>rgs{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're running under -T, y <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13003	13121	
==>py $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	371	488	
==>t;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	371	488	
==>t;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	371	488	
==>t;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{k <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	25792	25889	
==>nd its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
R <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30344	30441	
==>nd its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
R <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29310	29407	
==>nd its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3194	3330	
==>', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (* <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3194	3330	
==>', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (* <==
7	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1180	1282	
==>vent, *@args) {
    die 'Please override &dispatch in your subclass of POE::Session.';
  }
}

=head1 NA <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1296	1395	
==>superclasses
    # because we know that is there ...
    $supers = $class->get_attr(symbol->new('@:s <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37096	37188	
==>turns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=ite <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37546	37638	
==>turns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=ite <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39700	39792	
==>turns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3442	3570	
==>sses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3442	3570	
==>sses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3442	3570	
==>sses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_w <==
7	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1896	2015	
==>fig{cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2330	2431	
==>JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  | <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2330	2431	
==>JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  | <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2330	2431	
==>JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  | <==
7	/Users/nnunley/pugs/misc/S29_round.pl	3517	3646	
==>x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5595	5720	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8879	9004	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5595	5720	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8879	9004	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5595	5720	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8879	9004	
==>my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5099	5234	
==>ow
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provid <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5099	5234	
==>ow
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provid <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5099	5234	
==>ow
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provid <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	187	300	
==>ss = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $ta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2447	2554	
==>> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2447	2554	
==>> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2447	2554	
==>> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $se <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1588	1707	
==>equire "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$pr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1795	1914	
==>equire "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$pr <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15968	16066	
==>s in fact meant
to be interpreted by the machine itself and not any human user.  In some
situations <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15968	16066	
==>s in fact meant
to be interpreted by the machine itself and not any human user.  In some
situations <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	835	931	
==>ILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::T <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	835	931	
==>ILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::T <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	835	931	
==>ILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::T <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1850	1948	
==>opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edito <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1850	1948	
==>opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edito <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1850	1948	
==>opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edito <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	12088	12180	
==>s of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)> <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9209	9301	
==>s of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12088	12180	
==>s of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)> <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9209	9301	
==>s of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)> <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	929	1024	
==>ber    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePrimitive;
class JSX::Va <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2624	2739	
==>\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRI <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2624	2739	
==>\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRI <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2971	3086	
==>\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRI <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6330	6432	
==>$event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if % <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6330	6432	
==>$event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if % <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3415	3507	
==>0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unico <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3599	3691	
==>0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unico <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7581	7736	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5140	5295	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7581	7736	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5140	5295	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7581	7736	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5140	5295	
==>f the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as so <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	13226	13323	
==>arameter (as allocated in the new env), and the type of the body
fun: type($$) = {
	type::operator <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1250	1354	
==>$run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludep <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1250	1354	
==>$run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludep <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1250	1354	
==>$run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludep <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8378	8471	
==>use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	90	183	
==>use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8378	8471	
==>use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8378	8471	
==>use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9533	9703	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15077	15247	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9533	9703	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15071	15241	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1005	1172	
==>f @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SEL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1005	1172	
==>f @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SEL <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1005	1172	
==>f @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SEL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2697	2833	
==>for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                } <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2697	2833	
==>for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                } <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2697	2833	
==>for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                } <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	501	603	
==>an

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test: <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	559	661	
==>an

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test: <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36156	36250	
==>h other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'] <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36156	36250	
==>h other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30497	30634	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32211	32348	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30497	30634	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32211	32348	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30497	30634	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32211	32348	
==>h >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12553	12653	
==>list
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	51	164	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	46	159	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	51	164	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	46	159	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	51	164	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	46	159	
==>use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2138	2251	
==>] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], exp3 = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1723	1852	
==>wn node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # X <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2466	2595	
==>wn node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # X <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1723	1852	
==>wn node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # X <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2454	2583	
==>wn node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # X <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1706	1820	
==>}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whil <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1706	1820	
==>}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whil <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1706	1820	
==>}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whil <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5177	5329	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8147	8299	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5177	5329	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8147	8299	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5177	5329	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8147	8299	
==>thod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        m <==
7	/Users/nnunley/pugs/util/run-smoke.pl	2558	2658	
==>$smoke_upload_script) {
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Co <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4835	4954	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7484	7603	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5050	5163	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11499	11612	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5050	5163	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11499	11612	
==>0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule n <==
7	/Users/nnunley/pugs/util/package-osx.pl	11889	11979	
==>e_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlinks($dest, %sy <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5800	5895	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8770	8865	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6559	6654	
==>ode = $self->generic_reduce(shift);

	my $seq = $node->struct_equiv;
	join("\n\t", "", map { "$_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5800	5895	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8770	8865	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5800	5895	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8770	8865	
==>:make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Met <==
7	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	993	1098	
==>~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int_siz <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	287	391	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	285	389	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	287	391	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	285	389	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	287	391	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	285	389	
==>eir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describe <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	5286	5399	
==>kip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Te <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5344	5457	
==>kip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Te <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	594	702	
==>se"} = Pugs::Compiler::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseC <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4356	4454	
==>arameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retur <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4356	4454	
==>arameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6553	6651	
==>arameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1517	1613	
==>::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1517	1613	
==>::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1517	1613	
==>::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8775	8879	
==>nd also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11658	11759	
==>emented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shift <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8484	8585	
==>nd also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11658	11759	
==>emented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shift <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11658	11759	
==>emented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shift <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	823	921	
==>t where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, u <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	823	921	
==>t where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, u <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	975	1128	
==>x.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	975	1128	
==>x.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	975	1128	
==>x.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	8585	8709	
==>1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inter <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12062	12186	
==>1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inter <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11271	11395	
==>1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inter <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12295	12388	
==>har(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_he <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9839	9992	
==>ASS" 
        (closure new             
            (($::ENV)
             (closure::signature new 
                ((params  (closure::params new (symbol <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13316	13419	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10600	10703	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13316	13419	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10600	10703	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13316	13419	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10600	10703	
==>||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	567	682	
==>b {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	567	682	
==>b {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	567	682	
==>b {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $n <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33721	33817	
==>ns Relation>

This method is a generic relational operator that takes a single Relation
in its C< <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34489	34585	
==>ns Relation>

This method is a generic relational operator that takes a single Relation
in its C< <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38271	38367	
==>ns Relation>

This method is a generic relational operator that takes a single Relation
in its C< <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39039	39135	
==>ns Relation>

This method is a generic relational operator that takes a single Relation
in its C< <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2760	2956	
==>= $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2760	2956	
==>= $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1196	1297	
==>y closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to objects <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1143	1241	
==>y closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to objects <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1303	1397	
==>l2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1303	1397	
==>l2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prel <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1303	1397	
==>l2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prel <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2111	2237	
==>al $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->ty <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2111	2237	
==>al $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->ty <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2111	2237	
==>al $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->ty <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13443	13534	
==>first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref w <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18530	18621	
==>first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref w <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13443	13534	
==>first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref w <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18530	18621	
==>first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref w <==
7	/Users/nnunley/pugs/util/version_h.pl	639	744	
==>TDIN anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- do nothing <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36277	36370	
==>ames in common,
eliminating pairs where the values of those attributes differ and unioning
the <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38030	38123	
==>ames in common, eliminating pairs where the
values of those attributes differ and unioning the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40826	40919	
==>ames in common,
eliminating pairs where the values of those attributes differ and unioning
the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42579	42672	
==>ames in common, eliminating pairs where the
values of those attributes differ and unioning the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40440	40533	
==>ames in common,
eliminating pairs where the values of those attributes differ and unioning
the <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42229	42322	
==>ames in common, eliminating pairs where the
values of those attributes differ and unioning the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3102	3318	
==>$.skip'   => 1,
                        '$.number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6171	6288	
==>:ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6171	6288	
==>:ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6171	6288	
==>:ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3236	3352	
==>:ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3236	3352	
==>:ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3236	3352	
==>:ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::w <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21290	21409	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22411	22530	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22974	23093	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17711	17830	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18832	18951	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19395	19514	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTR <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14738	14833	
==>se(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - mor <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3479	3626	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6415	6562	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3479	3626	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6415	6562	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3479	3626	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6415	6562	
==>sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make the <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7705	7800	
==>sh = *node::variable;
sub node::empty_list {
    return "()";
}
sub node::immediate_statement_ex <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10850	10988	
==>y \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10844	10982	
==>y \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	97	215	
==>L2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = N <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	97	215	
==>L2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = N <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	97	215	
==>L2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = N <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15216	15313	
==>r Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of su <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15216	15313	
==>r Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of su <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10063	10188	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12704	12829	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13540	13665	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16181	16306	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12821	12946	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15543	15668	
==>) == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other! <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	124	214	
==>se base 'Object::Accessor';

=head2 $obj = JIB::Dependency->new_from_struct( struct => STRU <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25148	25305	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27337	27494	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25148	25305	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27337	27494	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25148	25305	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27337	27494	
==>c';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::V <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	525	622	
==>lf->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $inst->co <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	547	660	
==>e')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be strings, and valu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4288	4398	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7224	7334	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4288	4398	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7224	7334	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4288	4398	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7224	7334	
==>sically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound wi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8924	9075	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11897	12048	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8924	9075	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11897	12048	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8924	9075	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11897	12048	
==>se are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package P <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	3779	3919	
==>_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : Processing tests fr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9297	9434	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12270	12407	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9297	9434	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12270	12407	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9297	9434	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12270	12407	
==>vateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Pe <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1579	1680	
==>m("name"); # returns $value

    $self->leave_scope; # deletes pads since last enter_scope

=head1 DES <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41125	41229	
==>ainer::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41125	41229	
==>ainer::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41125	41229	
==>ainer::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2843	2939	
==>rence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4712	4808	
==>rence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2843	2939	
==>rence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4712	4808	
==>rence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24520	24613	
==>C>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logge <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24520	24613	
==>C>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logge <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	168	271	
==>T}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inli <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2995	3098	
==>erl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|p <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	168	271	
==>T}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inli <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2995	3098	
==>erl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2995	3098	
==>erl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8385	8487	
==>nstance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5925	6023	
==>nstance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - t <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9409	9498	
==>X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9526	9646	
==>ariables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9526	9646	
==>ariables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9526	9646	
==>ariables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	379	480	
==>a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algor <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	383	484	
==>a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algor <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	379	480	
==>a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algor <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	383	484	
==>a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algor <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2090	2231	
==>> sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prot <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8104	8244	
==>node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7826	7960	
==>node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2455	2581	
==>Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2455	2581	
==>Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2455	2581	
==>Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1462	1587	
==>with_package($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3418	3579	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8703	8863	
==>my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3674	3830	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10092	10248	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3674	3830	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10092	10248	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8397	8552	
==>my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1153	1390	
==>)
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::co <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7060	7156	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6190	6286	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2844	2940	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2844	2940	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7060	7156	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6190	6286	
==>ne, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35784	35905	
==>ad=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->fr <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35784	35905	
==>ad=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->fr <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35784	35905	
==>ad=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->fr <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	10282	10402	
==>~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10282	10402	
==>~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18514	18606	
==>gexecp hooks (C functions
which get called on regular expression compilation and execution) t <==
7	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2804	2896	
==>gexecp hooks (C functions
which get called on regular expression compilation and execution) t <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	366	485	
==>header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4367	4466	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4591	4690	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4367	4466	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4591	4690	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4367	4466	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4591	4690	
==>(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6529	6632	
==>Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6529	6632	
==>Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $on <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7401	7502	
==>Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7401	7502	
==>Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $on <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1113	1208	
==>coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coe <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1113	1208	
==>coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coe <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1113	1208	
==>coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2841	2974	
==>"&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2841	2974	
==>"&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2841	2974	
==>"&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17309	17422	
==>else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$re <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13730	13843	
==>else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$re <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3854	3952	
==>$u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close", <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3854	3952	
==>$u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close", <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2469	2602	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4796	4929	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2469	2602	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4796	4929	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2469	2602	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4796	4929	
==>}
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22236	22329	
==>,space) ; C = 11), !. %\v chr(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9253	9368	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6800	6915	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9253	9368	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6800	6915	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9253	9368	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6800	6915	
==>r') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $di <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	288	390	
==>Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPSI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10259	10403	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7810	7954	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10259	10403	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7810	7954	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10259	10403	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7810	7954	
==>terator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curren <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16228	16336	
==>{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3492	3602	
==>gened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3492	3602	
==>gened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3492	3602	
==>gened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12928	13030	
==>gened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12928	13030	
==>gened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12928	13030	
==>gened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	639	736	
==>1]) == 0  ? bit->new(1) : bit->new(0) }

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	988	1118	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1076	1206	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	988	1118	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1076	1206	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	988	1118	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1076	1206	
==>runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \ <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	12514	12614	
==>is new env is passed down to the body, but is also reused in the 'type' attr
fun: env($.body) = { new <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3199	3361	
==>a <prefix>-<name>
            ### implementation;
            my @list = LoadFile( $Available );
            
            my @maybe;
            for my $test ( gre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7790	7892	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10713	10815	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7790	7892	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10713	10815	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7790	7892	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10713	10815	
==>Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submetho <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	17361	17497	
==>tput_dir));
                $h->push_content($backlink);
                my $t = HTML::Element->new('sup');
                $t->push_cont <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	440	542	
==>t {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	440	542	
==>t {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{J <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	440	542	
==>t {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{J <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	34358	34451	
==>with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=ite <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38908	39001	
==>with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=ite <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38387	38480	
==>with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9724	9824	
==>)/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2375	2475	
==>vert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9724	9824	
==>)/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9724	9824	
==>)/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2375	2475	
==>vert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1596	1692	
==>vert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3457	3553	
==>vert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	705	852	
==>('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'), <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2880	2981	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10803	10904	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6005	6106	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2880	2981	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10803	10904	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6005	6106	
==>::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11757	11865	
==>eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3264	3357	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11822	11915	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6389	6482	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3264	3357	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11822	11915	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6389	6482	
==>method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8578	8719	
==>_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12487	12625	
==>_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12487	12625	
==>_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8968	9083	
==>\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Wind <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	702	817	
==>\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Wind <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8968	9083	
==>\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Wind <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8968	9083	
==>\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Wind <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9449	9558	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6996	7105	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9449	9558	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6996	7105	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9449	9558	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6996	7105	
==>ndant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascenda <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33268	33366	
==>Types: bound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos ( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2154	2270	
==>f});
}

sub is_empty {
    my $self = shift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub join {
    my ($self, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9288	9393	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6835	6940	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9288	9393	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6835	6940	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9288	9393	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6835	6940	
==>_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4362	4504	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6874	7016	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4362	4504	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6874	7016	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4362	4504	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6874	7016	
==>) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	2425	2513	
==>lit //, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifiers for types. <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15291	15406	
==>,
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12033	12123	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9588	9678	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12033	12123	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9588	9678	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12033	12123	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9588	9678	
==>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3564	3673	
==>scard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3564	3673	
==>scard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } whi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3564	3673	
==>scard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } whi <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	15852	15951	
==>belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For exam <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15852	15951	
==>belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For exam <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2201	2293	
==>lf->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->de <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1307	1398	
==>lf->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->de <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9723	9841	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12696	12814	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9723	9841	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12696	12814	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9723	9841	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12696	12814	
==>er
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cla <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	230	337	
==>}

sub chomp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but newline("\n")
    if <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2366	2636	
==>ODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($tex <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2366	2636	
==>ODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($tex <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1162	1305	
==>.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1162	1305	
==>.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4996	5094	
==>r>

The number of the test in the current test file.

=item B<Str $.description>

The test's descri <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4996	5094	
==>r>

The number of the test in the current test file.

=item B<Str $.description>

The test's descri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7193	7291	
==>r>

The number of the test in the current test file.

=item B<Str $.description>

The test's descri <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2011	2126	
==>{
	    if (!$m) {
		print "not ok \# Match failed.\n";
	    } else {
		print STDERR "  eval $expr\n" if $debug_warni <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3451	3576	
==>se {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3451	3576	
==>se {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3451	3576	
==>se {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6277	6391	
==>difiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifie <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5350	5464	
==>difiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifie <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6277	6391	
==>difiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifie <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5350	5464	
==>difiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifie <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4445	4560	
==>play the numbers if $type isn't a string operator,
        # and the numbers are stringwise the same.
        # (all <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	699	798	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	699	798	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	699	798	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thin <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	86	184	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	86	184	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	86	184	
==>L2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18518	18671	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15756	15909	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18518	18671	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15756	15909	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18518	18671	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15756	15909	
==>e') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pac <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6244	6372	
==>pected) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got ". <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4180	4292	
==>s "argument to &apply must be either a closure or a block";    
    my $list = list->new();
    foreach my $val ( <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6166	6316	
==>{
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5239	5389	
==>{
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6166	6316	
==>{
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5239	5389	
==>{
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	24260	24358	
==>has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=b <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28812	28910	
==>has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=b <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27670	27768	
==>has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=b <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14110	14247	
==>ir {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	935	1062	
==>l_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	935	1062	
==>l_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	935	1062	
==>l_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4191	4316	
==>ir {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4191	4316	
==>ir {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4191	4316	
==>ir {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22636	22730	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22866	22960	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22636	22730	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22866	22960	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22636	22730	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22866	22960	
==>$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) i <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20793	20885	
==>eadlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt shut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9303	9409	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6850	6956	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9303	9409	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6850	6956	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9303	9409	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6850	6956	
==>dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatche <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	230	332	
==>ee() unless $:tree.defined;
    return $:tree;
}

method show_tree ($self:) returns Void {
    $self.tr <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	98	352	
==>ols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	98	352	
==>ols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	98	352	
==>ols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	98	352	
==>ols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3319	3463	
==>fset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3319	3463	
==>fset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3319	3463	
==>fset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18975	19090	
==>:AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package D <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18975	19090	
==>:AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package D <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18975	19090	
==>:AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package D <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28342	28439	
==>'s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extra <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35698	35795	
==>'s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extra <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28342	28439	
==>'s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extra <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35698	35795	
==>'s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extra <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2674	2798	
==>ary February March     April   May      June
               July    August   September October November December>;
method mon <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1000	1138	
==>e .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1000	1138	
==>e .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1000	1138	
==>e .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6307	6423	
==>en we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbala <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5380	5496	
==>en we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbala <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6307	6423	
==>en we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbala <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5380	5496	
==>en we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbala <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8574	8716	
==>ar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12483	12622	
==>ar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12483	12622	
==>ar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$matc <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11140	11235	
==>includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an a <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8544	8639	
==>includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11140	11235	
==>includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an a <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8544	8639	
==>includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an a <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9651	9896	
==>_nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1247	1369	
==>"" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1247	1369	
==>"" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1247	1369	
==>"" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defa <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3625	3732	
==>, 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_ <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3625	3732	
==>, 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	475	582	
==>, 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5832	5940	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3952	4060	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5832	5940	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3952	4060	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5832	5940	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3952	4060	
==>ot allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the M <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1788	1893	
==>>to_native != 0)
        || confess "Division by zero error";
    return num->new(int($left->to_native / $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4725	4865	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7661	7801	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4725	4865	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7661	7801	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4725	4865	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7661	7801	
==>ble')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # mak <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15293	15389	
==>rens,
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29062	29161	
==>y;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29062	29161	
==>y;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Valu <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29062	29161	
==>y;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Valu <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8129	8225	
==>$n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3512	3599	
==>$n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;l <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3512	3599	
==>$n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;l <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3512	3599	
==>$n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14910	15020	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12164	12274	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14910	15020	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12164	12274	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14910	15020	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12164	12274	
==>you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10609	10700	
==>_space))  --> "\\H", !.
p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p6_char_cl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4250	4383	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7186	7319	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4250	4383	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7186	7319	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4250	4383	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7186	7319	
==>d);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLA <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3881	4005	
==>self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_version   = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8734	8845	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6287	6398	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8734	8845	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6287	6398	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8734	8845	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6287	6398	
==>ap { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->super <==
7	/Users/nnunley/pugs/util/fixauthors.pl	507	606	
==>anid2realname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$uid");
  my $tree=HTM <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18474	18574	
==>Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!h <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18670	18770	
==>Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!h <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18884	18984	
==>Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!h <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19086	19186	
==>Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!h <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19421	19521	
==>Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3049	3164	
==>n't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3049	3164	
==>n't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3049	3164	
==>n't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1693	1806	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1693	1806	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1693	1806	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26419	26519	
==>, but only if you're sure the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $pars <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2101	2270	
==>!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next un <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2101	2270	
==>!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next un <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7230	7363	
==>ould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $b <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4061	4194	
==>tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7230	7363	
==>ould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7230	7363	
==>ould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $b <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4061	4194	
==>tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $g <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	199	294	
==>f-compile:
#    unshift @rule_terms, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compile <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	64	154	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	288	378	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	64	154	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	288	378	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	64	154	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	288	378	
==>ts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4647	4778	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7296	7427	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4868	4994	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11317	11443	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4868	4994	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11317	11443	
==>umper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23603	23709	
==>nd
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $S1
    $S1 .= "\n.end\n"
    self["value"] = $S <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19920	20031	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17059	17170	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19920	20031	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17059	17170	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19920	20031	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17059	17170	
==>ue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class a <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	28877	28976	
==>llclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F<prove> utility for <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3244	3357	
==>, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3244	3357	
==>, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3244	3357	
==>, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infi <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21699	21795	
==>ne received from the server (unmodified).

=item C<server>

The server the line was sent from. Th <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20580	20676	
==>ne received from the server (unmodified).

=item C<server>

The server the line was sent from. Th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21699	21795	
==>ne received from the server (unmodified).

=item C<server>

The server the line was sent from. Th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20580	20676	
==>ne received from the server (unmodified).

=item C<server>

The server the line was sent from. Th <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1957	2104	
==>ch->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1736	1874	
==>ch->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1736	1874	
==>ch->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	446	546	
==>::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::F <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	446	546	
==>::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::F <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1458	1557	
==>::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::F <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1458	1557	
==>::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::F <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17497	17614	
==>\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	57	148	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	281	372	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	57	148	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	281	372	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	57	148	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	281	372	
==>n objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8189	8317	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5748	5876	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8189	8317	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5748	5876	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8189	8317	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5748	5876	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1877	2005	
==>and;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11404	11532	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16134	16262	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11404	11532	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16134	16262	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11404	11532	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16134	16262	
==>ome GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return u <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7044	7156	
==>ct(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ <==
7	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	606	720	
==>e {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf <==
7	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	606	720	
==>e {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	738	836	
==>TS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vi <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	738	836	
==>TS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4207	4303	
==>html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4207	4303	
==>html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4207	4303	
==>html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4571	4684	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7507	7620	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4571	4684	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7507	7620	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4571	4684	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7507	7620	
==>ethod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1110	1204	
==>eplacement
data for stubs and other thingies.

It also gives the compiler the default environme <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16027	16164	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20744	20881	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16027	16164	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20744	20881	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16027	16164	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20744	20881	
==>::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{ <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9113	9230	
==>ody => $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
}

my $x = 15;
my $p <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28969	29061	
==>Mapping(Str) of Str $mapping! ) returns Relation::Example>

This method is a generic relation <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23071	23165	
==>tation of the roles' attributes (eg,
volatile or persistent) and provide accessors to them.  Th <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23899	24000	
==>ever be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22672	22773	
==>ever be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23899	24000	
==>ever be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22672	22773	
==>ever be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8512	8603	
==>p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8512	8603	
==>p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8512	8603	
==>p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    m <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10193	10305	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12834	12946	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13670	13782	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16311	16423	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12951	13063	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15673	15785	
==>ing === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $ <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11220	11305	
==>----------------------------------------------------------------
What is Exp?  And why <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11146	11266	
==>od::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11146	11266	
==>od::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11146	11266	
==>od::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24468	24582	
==>'ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_at <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20889	21003	
==>'ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_at <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1888	1985	
==>precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1888	1985	
==>precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1015	1121	
==>coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1015	1121	
==>coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORT <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1015	1121	
==>coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORT <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11551	11646	
==>ns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the n <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8698	8793	
==>ns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11551	11646	
==>ns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8698	8793	
==>ns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7735	7895	
==>n $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sli <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7735	7895	
==>n $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sli <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7735	7895	
==>n $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sli <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6711	6851	
==>Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6711	6851	
==>Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6711	6851	
==>Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6281	6409	
==>] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaining whit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3985	4087	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2076	2178	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3985	4087	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2076	2178	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3985	4087	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2076	2178	
==>dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $meth <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9951	10047	
==>g/">Pugs</a> smoke reports. These smokes are
    automatically generated and show how much a give <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11239	11388	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8792	8941	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11239	11388	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8792	8941	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11239	11388	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8792	8941	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	90	190	
==>::comparable;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base ' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11932	12066	
==>ub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2393	2522	
==>ub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9165	9294	
==>ub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2393	2522	
==>ub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9165	9294	
==>ub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	503	604	
==>y with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	503	604	
==>y with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1730	1853	
==>ON = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1730	1853	
==>ON = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1730	1853	
==>ON = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3300	3403	
==>(@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3300	3403	
==>(@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3300	3403	
==>(@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [ <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1443	1546	
==>ti Math::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2592	2739	
==>ther);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2592	2739	
==>ther);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2592	2739	
==>ther);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	5957	6063	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROO <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5957	6063	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROO <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	562	662	
==>> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *i <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	562	662	
==>> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *i <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	530	639	
==>ext if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	565	674	
==>ext if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	530	639	
==>ext if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4824	4927	
==>is the directory which will later be the / of the CD.
  --iso=$iso
    The final ISO9660 image name will <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14290	14374	
==>un::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14290	14374	
==>un::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14290	14374	
==>un::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root: <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13134	13249	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21184	21299	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13413	13528	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21463	21578	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10993	11093	
==>e is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10993	11093	
==>e is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10993	11093	
==>e is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => meth <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18252	18380	
==>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21511	21639	
==>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41517	41645	
==>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44418	44546	
==>new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get( <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4010	4124	
==>tmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4010	4124	
==>tmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	860	974	
==>tmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6545	6652	
==>->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* XXX Does regcomp <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1233	1372	
==>cond += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.new
        ( :year($year) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1329	1462	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2295	2428	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1329	1462	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2295	2428	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1329	1462	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2295	2428	
==>ndant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8821	8991	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11794	11964	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8821	8991	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11794	11964	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8821	8991	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11794	11964	
==>@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
7	/Users/nnunley/pugs/util/build_pugs.pl	7536	7665	
==>';
    }

    if (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $depends .= ', readline -any';
    }

    my $unicode_c = '';
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23900	24049	
==>hod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23900	24049	
==>hod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23900	24049	
==>hod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	43	155	
==>= 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	43	155	
==>= 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	43	155	
==>= 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
7	/Users/nnunley/pugs/util/importgraph.pl	649	749	
==>_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4503	4612	
==>hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defi <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5832	5941	
==>hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4503	4612	
==>hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5820	5929	
==>hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1736	1839	
==>»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1736	1839	
==>»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1736	1839	
==>»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6526	6669	
==>tors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@ <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5030	5173	
==>tors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	52	159	
==>nd;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = objec <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	52	159	
==>nd;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = objec <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	821	925	
==>$b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	821	925	
==>$b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	821	925	
==>$b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10867	10992	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12338	12463	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14344	14469	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15815	15940	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	9886	9999	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13363	13476	
==>dy.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5642	5755	
==><) => Pugs::Compiler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { a <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	9765	9893	
==>if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them out for n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12474	12591	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16985	17102	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12474	12591	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16985	17102	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12474	12591	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16985	17102	
==>her = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5460	5638	
==>p ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5460	5638	
==>p ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5460	5638	
==>p ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = s <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1090	1195	
==>g ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1090	1195	
==>g ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7020	7121	
==>ath = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpa <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7020	7121	
==>ath = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3756	3925	
==>'$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->ti <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3756	3925	
==>'$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->ti <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3756	3925	
==>'$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->ti <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	200	310	
==>, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	204	314	
==>, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	200	310	
==>, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	204	314	
==>, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20878	20976	
==><users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames ar <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19795	19893	
==><users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames ar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4528	4626	
==>s(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20878	20976	
==><users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames ar <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19795	19893	
==><users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames ar <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4528	4626	
==>s(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting c <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4528	4626	
==>s(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	740	887	
==>mar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	416	543	
==>{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . " <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	416	543	
==>{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1112	1209	
==>when your object belongs to a
package that is too close to the main namespace for your tastes, and <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1112	1209	
==>when your object belongs to a
package that is too close to the main namespace for your tastes, and <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1112	1209	
==>when your object belongs to a
package that is too close to the main namespace for your tastes, and <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18647	18739	
==>t  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2049	2159	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2454	2564	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2049	2159	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2454	2564	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2049	2159	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2454	2564	
==>Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(fu <==
7	/Users/nnunley/pugs/util/package-osx.pl	2027	2116	
==>erl/Class/Rebless.pm /Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/perl5/sit <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2835	2966	
==>system( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2987	3083	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6001	6097	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8069	8165	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2987	3083	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6001	6097	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8069	8165	
==>updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bo <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1325	1498	
==>l (Relation::AttrName $attr_name) {
    return %!attrs.exists($attr_name);
}

###########################################################################

} # class Relation: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18410	18517	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15648	15755	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18410	18517	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15648	15755	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18410	18517	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15648	15755	
==>:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instanc <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40328	40423	
==>otices stating that you changed the files and the date of any
changes, in addition to preserving <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25852	25947	
==>otices stating that you changed the files and the date of any changes, in
addition to preserving <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40328	40423	
==>otices stating that you changed the files and the date of any
changes, in addition to preserving <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25852	25947	
==>otices stating that you changed the files and the date of any changes, in
addition to preserving <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	11	104	
==>e is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitiv <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	11	104	
==>e is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitiv <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	11	104	
==>e is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitiv <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10837	10933	
==>value of C<@INC> and turns it into something suitable
for putting onto C<PERL5LIB>.

=cut

sub _I <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7104	7199	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6234	6329	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2888	2983	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2888	2983	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7104	7199	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6234	6329	
==>es($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($mem <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6432	6543	
==>l $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6432	6543	
==>l $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6432	6543	
==>l $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw) <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5848	5945	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4978	5075	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5848	5945	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4978	5075	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15789	15927	
==>op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2260	2375	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11128	11243	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12087	12202	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2453	2568	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11407	11522	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12366	12481	
==>dent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13726	13860	
==>ge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13726	13860	
==>ge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13726	13860	
==>ge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5972	6106	
==>ge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4472	4606	
==>ge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17674	17771	
==>en refer to an error condition by an
internal code which is guaranteed to be unique for a situatio <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17674	17771	
==>en refer to an error condition by an
internal code which is guaranteed to be unique for a situatio <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16285	16424	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21002	21141	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16285	16424	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21002	21141	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16285	16424	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21002	21141	
==>$registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            uns <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1004	1142	
==>ailable      = $Meta . '/available';             # available packages MD
$Altfile        = $Meta . '/registered-alts';       # registered a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10132	10290	
==>elf.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2183	2323	
==>elf.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2183	2323	
==>elf.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3780	3882	
==>f, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty a <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3780	3882	
==>f, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty a <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3780	3882	
==>f, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty a <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1673	1771	
==>ementation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
7	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	817	955	
==>nt them all as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->attribute <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11008	11142	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12479	12613	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14485	14619	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15956	16090	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13793	13927	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15318	15452	
==>n( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1137	1273	
==>x:<( )>',
    );
    __PACKAGE__->add_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 't <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3054	3171	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10977	11094	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6179	6296	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3054	3171	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10977	11094	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6179	6296	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ <==
7	/Users/nnunley/pugs/util/grokprims.pl	1874	1981	
==>ative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	279	384	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	277	382	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	279	384	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	277	382	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	279	384	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	277	382	
==>ccess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as d <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4817	4927	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7466	7576	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5032	5139	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11481	11588	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5032	5139	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11481	11588	
==>en ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16426	16561	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21143	21278	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16426	16561	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21143	21278	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16426	16561	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21143	21278	
==>ift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1747	1870	
==>'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9321	9457	
==>ringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9321	9457	
==>ringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9321	9457	
==>ringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3452	3554	
==>niverse = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.eq <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3452	3554	
==>niverse = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.eq <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	810	904	
==>le::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	810	904	
==>le::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5719	5997	
==>> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($st <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5719	5997	
==>> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($st <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3080	3357	
==>> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($st <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3080	3357	
==>> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9745	9856	
==>d $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  loc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9745	9856	
==>d $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  loc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9745	9856	
==>d $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  loc <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	632	746	
==>t < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    ret <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1894	2008	
==>t < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    ret <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	632	746	
==>t < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    ret <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1894	2008	
==>t < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1133	1230	
==>e Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1133	1230	
==>e Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1133	1230	
==>e Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11845	12014	
==>&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation::Example $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5697	5805	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3817	3925	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5697	5805	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3817	3925	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5697	5805	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3817	3925	
==>we should check that none of the classes passed to us
        # are also subclasses of us, this is circular i <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	260	377	
==>to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{cont <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	260	377	
==>to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{cont <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	9617	9732	
==>$max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the par <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9617	9732	
==>$max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the par <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15846	15957	
==>tch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15846	15957	
==>tch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_disp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15846	15957	
==>tch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_disp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2704	2838	
==>hority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2704	2838	
==>hority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2704	2838	
==>hority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5116	5231	
==>f, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16152	16267	
==>f, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17640	17755	
==>f, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22323	22438	
==>f, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	18658	18771	
==>al(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "foo", t => type::operator::nul <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	7538	7755	
==>good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_f <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7920	8035	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10843	10958	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7920	8035	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10843	10958	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7920	8035	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10843	10958	
==>) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29663	29797	
==>items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29663	29797	
==>items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29663	29797	
==>items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	14087	14182	
==>(Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 S <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10314	10409	
==>(Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 S <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14087	14182	
==>(Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 S <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10314	10409	
==>(Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 S <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	682	794	
==>es";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# native convers <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1579	1681	
==>n.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4914	5008	
==>n.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	601	695	
==>n.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5054	5148	
==>n.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	601	695	
==>n.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19538	19630	
==>red>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishe <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19538	19630	
==>red>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishe <==
7	/Users/nnunley/pugs/util/svnlog2graph.pl	1841	1941	
==>caled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Inp <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25194	25290	
==>lt and/or make the same change to an object when the permutation of its
arguments and any invocan <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11325	11421	
==>lt and/or make the same change to an object when the permutation of its
arguments and any invocan <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14598	14694	
==>lt and/or make the same change
to an object when the permutation of its arguments and any invocan <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25194	25290	
==>lt and/or make the same change to an object when the permutation of its
arguments and any invocan <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11325	11421	
==>lt and/or make the same change to an object when the permutation of its
arguments and any invocan <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14598	14694	
==>lt and/or make the same change
to an object when the permutation of its arguments and any invocan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7678	7857	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5237	5416	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7678	7857	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5237	5416	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7678	7857	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5237	5416	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1366	1545	
==>);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	591	725	
==>id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	796	930	
==>id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_k <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	852	986	
==>id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_k <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6534	6639	
==>' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6534	6639	
==>' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref-> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6534	6639	
==>' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref-> <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13446	13549	
==>er = $as_str_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $a <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16284	16404	
==>name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16644	16762	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13849	13967	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16644	16762	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13849	13967	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16644	16762	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13849	13967	
==>');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $ne <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1356	1474	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2919	3037	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1356	1474	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2919	3037	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1356	1474	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2919	3037	
==>plement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAG <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7974	8072	
==>);
    return $S->force_object(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	989	1108	
==>e a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	989	1108	
==>e a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	989	1108	
==>e a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($me <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1196	1303	
==>ify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(% <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1196	1303	
==>ify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(% <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1630	1721	
==>ESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALS <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1630	1721	
==>ESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALS <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21159	21256	
==>w receive an additional argument that says whether
they're being turned on or off.  Also, if the f <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3955	4049	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6934	7028	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9004	9098	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3955	4049	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6934	7028	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9004	9098	
==>AMS@cpan.org>, and is written
by a number of people. Please see that module for more informatio <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1634	1873	
==>uleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12643	12743	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10194	10294	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12643	12743	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10194	10294	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12643	12743	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10194	10294	
==>ext = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19224	19348	
==>> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19224	19348	
==>> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19224	19348	
==>> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attr <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1068	1177	
==>120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1068	1177	
==>120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1824	1931	
==>120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1824	1931	
==>120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2860	3011	
==>] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3148	3290	
==>] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    ) <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9566	9708	
==>] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3148	3290	
==>] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9566	9708	
==>] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    ) <==
7	/Users/nnunley/pugs/blib6/lib/fp.pm	2593	2689	
==>f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, ad <==
7	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2593	2689	
==>f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, ad <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	581	702	
==>c_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $des <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	616	737	
==>c_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $des <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	581	702	
==>c_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $des <==
7	/Users/nnunley/pugs/util/build_pugs.pl	9798	9919	
==>c_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $des <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	1054	1175	
==>c_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $des <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18201	18302	
==>ch,
and to get back match results.

Our objective here is to see if it is possible to use the regexp
s <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12321	12414	
==>(C), !.
p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_hex_chars(R), [Close].
p6_he <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4122	4240	
==>undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4122	4240	
==>undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $c <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4122	4240	
==>undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1593	1699	
==>ue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1593	1699	
==>ue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1593	1699	
==>ue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23900	23999	
==>ol new @:superclasses) (?@superclasses)))
          ($self: set_attr ((symbol new @:MRO) (list new)) <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7881	7994	
==>e 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral { <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6965	7061	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6095	6191	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2749	2845	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2749	2845	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6965	7061	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6095	6191	
==>($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10645	10893	
==>>,
                                          Bit :$inplace
                             --> Array )

 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 multi  List <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6913	6997	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7580	7664	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6913	6997	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7580	7664	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6913	6997	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7580	7664	
==>OOTSTRAPPING ROLES
## --------------------------------------------------------------- <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17565	17678	
==>sual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13986	14099	
==>sual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3755	3859	
==>Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Cxt',
  'paramDefault' ,' <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6127	6223	
==>$two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5257	5353	
==>$two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6127	6223	
==>$two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5257	5353	
==>$two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1966	2156	
==>e->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2386	2570	
==>e->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1902	2086	
==>e->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2386	2570	
==>e->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9851	9991	
==>ber,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              pass <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	425	555	
==>ber,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            pass <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	425	555	
==>ber,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            pass <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8726	8901	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11699	11874	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8726	8901	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11699	11874	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8726	8901	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11699	11874	
==>FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5181	5333	
==>ift;
    my %hash = @_;
    
    my($from,$to);
    my $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        st <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	6552	6667	
==>t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are applied 
package f <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13221	13316	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4391	4486	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8847	8942	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13221	13316	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4391	4486	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8847	8942	
==>whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17829	17935	
==>pace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17829	17935	
==>pace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17829	17935	
==>pace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11870	11969	
==>d regexp*s
  created with the normal perl engine can continue working.

  Upon exec, the subref shou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1169	1265	
==>o the main namespace for your tastes, and
you want to rebless everything down to your project's b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1169	1265	
==>o the main namespace for your tastes, and
you want to rebless everything down to your project's b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1169	1265	
==>o the main namespace for your tastes, and
you want to rebless everything down to your project's b <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4863	4992	
==>0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4863	4992	
==>0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4863	4992	
==>0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern, <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8843	8939	
==>d by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bre <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3772	3868	
==>d by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bre <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8843	8939	
==>d by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bre <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3772	3868	
==>d by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bre <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11559	11706	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3071	3218	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11559	11706	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3071	3218	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11559	11706	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3071	3218	
==>if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = ot <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24540	24638	
==>ing handlers that have to parse flags, but if
you do, remember to follow this model correctly.

=it <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2730	2859	
==>g{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14950	15055	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12204	12309	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14950	15055	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12204	12309	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14950	15055	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12204	12309	
==>l";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1898	2029	
==>f (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1898	2029	
==>f (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2607	2722	
==>f (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2607	2722	
==>f (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2080	2181	
==>ing(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Str <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2080	2181	
==>ing(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Str <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2080	2181	
==>ing(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Str <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17578	17701	
==>new();
    local $X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28927	29048	
==>!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28927	29048	
==>!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	290	399	
==>!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4988	5094	
==>q 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::B <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4988	5094	
==>q 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::B <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5578	5684	
==>q 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::B <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3699	3861	
==>onstant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Inst <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	68	179	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	429	540	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	68	179	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	429	540	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	68	179	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	429	540	
==>'""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11838	11973	
==>::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method stat <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2260	2381	
==>::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method stat <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2260	2381	
==>::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method stat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	664	782	
==>"Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	664	782	
==>"Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	664	782	
==>"Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INS <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	506	605	
==>t will be put into the index files. jibs/ if
not specified.

=item index

Path to the index director <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	438	537	
==>ings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	983	1082	
==>ings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	438	537	
==>ings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	983	1082	
==>ings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	983	1082	
==>ings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10361	10459	
==>$field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting b <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10361	10459	
==>$field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting b <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17436	17659	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23402	23625	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17715	17938	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23681	23904	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2074	2166	
==>::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2074	2166	
==>::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package . <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2074	2166	
==>::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package . <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3892	4158	
==>ragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash % <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3935	4201	
==>ragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash % <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3892	4158	
==>ragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash % <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3935	4201	
==>ragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash % <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6898	7005	
==>$$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1";
  goto reduce;
  bsr_r <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1404	1498	
==>n version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1404	1498	
==>n version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	603	773	
==>allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPO <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2907	3010	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5437	5540	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2907	3010	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5437	5540	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2907	3010	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5437	5540	
==>mp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @arr <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52038	52242	
==>->get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## ----------- <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	280	416	
==>( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	368	504	
==>( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5312	5413	
==>class(Role), which is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1282	1372	
==>Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1282	1372	
==>Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1282	1372	
==>Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to d <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3550	3671	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8834	8955	
==>dn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3802	3920	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10220	10338	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8524	8642	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3802	3920	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10220	10338	
==>dn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	107	238	
==>';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	107	238	
==>';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	107	238	
==>';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3567	3685	
==>l::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equa <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3567	3685	
==>l::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4743	4833	
==>Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4993	5083	
==>Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9563	9771	
==>lf->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9563	9771	
==>lf->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9563	9771	
==>lf->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3795	3916	
==>);
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descriptio <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3795	3916	
==>);
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descriptio <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3795	3916	
==>);
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descriptio <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15999	16099	
==>the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $line, $reason) = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9496	9622	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12469	12595	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9496	9622	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12469	12595	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9496	9622	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12469	12595	
==>bmethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11643	11746	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation::Examp <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	136	235	
==>ress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19s28.vlinux.d <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35906	36001	
==>on attribute names
and corresponding common tuple values are aligned and merged.  The heading
of <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37649	37744	
==>on attribute names and corresponding common tuple values
are aligned and merged.  The heading of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40456	40551	
==>on attribute names
and corresponding common tuple values are aligned and merged.  The heading
of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42198	42293	
==>on attribute names and corresponding common tuple values
are aligned and merged.  The heading of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40070	40165	
==>on attribute names
and corresponding common tuple values are aligned and merged.  The heading
of <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41848	41943	
==>on attribute names and corresponding common tuple values
are aligned and merged.  The heading of <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14260	14412	
==>);
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@. <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14260	14412	
==>);
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@. <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14260	14412	
==>);
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@. <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6769	6865	
==>com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8838	8934	
==>com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6769	6865	
==>com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8838	8934	
==>com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1664	1774	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4827	4937	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	557	667	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2176	2286	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1047	1157	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1217	1327	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1270	1380	
==>ns *native*>

=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

= <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1470	1596	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3033	3159	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1470	1596	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3033	3159	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1470	1596	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3033	3159	
==>ACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::P <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24074	24164	
==>_list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D,H1) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4240	4402	
==>submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4240	4402	
==>submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4240	4402	
==>submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6766	6914	
==>submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6766	6914	
==>submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6766	6914	
==>submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14392	14514	
==>{zerolen} and !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awarn($rx->RPe_ZQUANT);
      }

      # u <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2155	2296	
==>thod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2155	2296	
==>thod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2155	2296	
==>thod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method) <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5689	5807	
==>ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $no <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12199	12315	
==>shref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12199	12315	
==>shref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::i <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12199	12315	
==>shref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::i <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4899	5007	
==>f->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->en <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15935	16043	
==>f->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->en <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17423	17531	
==>f->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->en <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22106	22214	
==>f->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->en <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18027	18125	
==>ent it; that is, multiple DBMS objects will not
have references to each other at a level visible in <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18027	18125	
==>ent it; that is, multiple DBMS objects will not
have references to each other at a level visible in <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	137	234	
==>essage::Simple    qw[:STD];
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=he <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	3392	3525	
==><<'HELP') and exit;

<< USAGE >>

 % p526.pl        # Convert from p5 code to p6 code

    -c            # Show conversion rules
    - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14291	14409	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11557	11675	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14291	14409	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11557	11675	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14291	14409	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11557	11675	
==>my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tabl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1408	1513	
==>] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1408	1513	
==>] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1408	1513	
==>] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callc <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6456	6556	
==>nt<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if % <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7192	7292	
==>nt<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if % <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6456	6556	
==>nt<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if % <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7192	7292	
==>nt<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if % <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13501	13606	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10785	10890	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13501	13606	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10785	10890	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13501	13606	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10785	10890	
==>stance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retur <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	30330	30423	
==>formats.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13240	13346	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10524	10630	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13240	13346	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10524	10630	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13240	13346	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10524	10630	
==>rams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) e <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	721	818	
==>ulti-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Ciph <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2625	2722	
==>ualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &inf <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	721	818	
==>ulti-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Ciph <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2625	2722	
==>ualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &inf <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2625	2722	
==>ualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &inf <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3388	3483	
==>ite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: S <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3388	3483	
==>ite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: S <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3473	3577	
==>failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = Perl6::R <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	239	334	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	498	593	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	239	334	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	498	593	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	239	334	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	498	593	
==>cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Ro <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	583	682	
==>e jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	583	682	
==>e jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	583	682	
==>e jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, t <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8252	8344	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=h <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7382	7474	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=h <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8252	8344	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=h <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7382	7474	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	246	350	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	244	348	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	246	350	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	244	348	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	246	350	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	244	348	
==>ue instance
    # variables and access their internal data.
    # This is basically the implementation of <==
7	/Users/nnunley/pugs/util/run-smoke.pl	2089	2188	
==>} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $ <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	18955	19086	
==>just a normal link, after the header, when there is no regex
                # or if the regex failed
                unless ($found <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15871	15973	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20588	20690	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15871	15973	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20588	20690	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15871	15973	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20588	20690	
==>ould start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::M <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1336	1431	
==>/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::R <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	6258	6404	
==>_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gat <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7863	8004	
==>ch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7863	8004	
==>ch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7863	8004	
==>ch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      va <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6387	6524	
==>ch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6387	6524	
==>ch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          va <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6387	6524	
==>ch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          va <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	563	702	
==>ash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Ch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10007	10129	
==>-----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10007	10129	
==>-----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # - <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10007	10129	
==>-----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9984	10088	
==>----------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9984	10088	
==>----------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9984	10088	
==>----------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------------- <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11546	11674	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2540	2668	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7634	7762	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11546	11674	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2540	2668	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7634	7762	
==>LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1005	1122	
==>rmat};

	# load the required module
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::for <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8610	8726	
==>$initrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2077	2185	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1189	1297	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2077	2185	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1189	1297	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2077	2185	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1189	1297	
==>low them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $param <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1223	1337	
==>n the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1572	1682	
==>n the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1179	1289	
==>n the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1572	1682	
==>n the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	107	196	
==>)(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	107	196	
==>)(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	107	196	
==>)(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Co <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12622	12730	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10173	10281	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12622	12730	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10173	10281	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12622	12730	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10173	10281	
==>l');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6963	7064	
==>$Role->does('Role'), '... Role now does Role');

## create some roles
my $rFoo = $Role->new(
    '$:na <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4792	4922	
==>else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13217	13347	
==>else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15828	15958	
==>else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17316	17446	
==>else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21999	22129	
==>else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub wa <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6113	6210	
==>of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6113	6210	
==>of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10140	10291	
==>turn ::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      => <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11033	11178	
==>e<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enq <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	694	839	
==>turn ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      => <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11033	11178	
==>e<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enq <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	694	839	
==>turn ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      => <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21245	21341	
==>erl package which
uses this would come up with keys which are unique across all Perl packages
(pe <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21245	21341	
==>erl package which
uses this would come up with keys which are unique across all Perl packages
(pe <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5973	6076	
==>rmalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normali <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5973	6076	
==>rmalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normali <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2781	2882	
==>see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2781	2882	
==>see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaro <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2781	2882	
==>see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaro <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15909	16007	
==>while resembling a message that would be shown to a user, is in fact meant
to be interpreted by the <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15909	16007	
==>while resembling a message that would be shown to a user, is in fact meant
to be interpreted by the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14025	14122	
==>my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14025	14122	
==>my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14025	14122	
==>my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-met <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22086	22178	
==><from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the m <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20967	21059	
==><from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the m <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22086	22178	
==><from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the m <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20967	21059	
==><from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3517	3652	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8801	8936	
==>gs = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 



        my $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3771	3901	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10189	10319	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8493	8623	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3771	3901	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10189	10319	
==>gs = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $flags ); 

        my $matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1725	1828	
==>{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  wa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1725	1828	
==>{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  wa <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1725	1828	
==>{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  wa <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22144	22237	
==>t>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo even <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21025	21118	
==>t>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo even <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22144	22237	
==>t>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo even <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21025	21118	
==>t>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo even <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1516	1609	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1516	1609	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1516	1609	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{p <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8239	8331	
==>ier_spec_pos([x|L])  --> "x", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos(L)      --> "- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	357	448	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	357	448	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	357	448	
==>}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2178	2305	
==>}
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" . $r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9640	9751	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12613	12724	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9640	9751	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12613	12724	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9640	9751	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12613	12724	
==>me basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next MET <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9573	9689	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12546	12662	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9573	9689	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12546	12662	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9573	9689	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12546	12662	
==>ispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be a <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	991	1104	
==>'&infix:<~>',
			body => 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&infix <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	675	800	
==>(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	675	800	
==>(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	675	800	
==>(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16877	16990	
==>);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3016	3123	
==>(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3016	3123	
==>(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3016	3123	
==>(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Cons <==
7	/Users/nnunley/pugs/util/gen_prelude.pl	1296	1399	
==>dePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run. <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3419	3538	
==>ll_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::dou <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3419	3538	
==>ll_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::dou <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3419	3538	
==>ll_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::dou <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2597	2701	
==>n.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5800	5904	
==>n.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2597	2701	
==>n.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5800	5904	
==>n.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1444	1573	
==>(<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fiel <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1444	1573	
==>(<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fiel <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28887	29007	
==>.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pre <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28887	29007	
==>.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pre <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	254	362	
==>.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or pre <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8542	8649	
==>pplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes( <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8542	8649	
==>pplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	9949	10066	
==>ticular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6 <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7889	8006	
==>ticular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1547	1664	
==>(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::C <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9949	10066	
==>ticular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6 <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7889	8006	
==>ticular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1547	1664	
==>(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::C <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1547	1664	
==>(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::C <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16800	16917	
==>irst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25255	25350	
==>ion of its
arguments and any invocant object's attributes is identical; they do not
interact wit <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11386	11481	
==>ion of its
arguments and any invocant object's attributes is identical; they do not
interact wit <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14659	14754	
==>ion of its arguments and any invocant
object's attributes is identical; they do not interact wit <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25255	25350	
==>ion of its
arguments and any invocant object's attributes is identical; they do not
interact wit <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11386	11481	
==>ion of its
arguments and any invocant object's attributes is identical; they do not
interact wit <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14659	14754	
==>ion of its arguments and any invocant
object's attributes is identical; they do not interact wit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11011	11225	
==>ccess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Co <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11011	11225	
==>ccess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Co <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11011	11225	
==>ccess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Co <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5747	5927	
==>sh the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5747	5927	
==>sh the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4883	5051	
==>sh the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4883	5051	
==>sh the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2039	2137	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2444	2542	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2039	2137	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2444	2542	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2039	2137	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2444	2542	
==>IL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLI <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	2835	2932	
==>,/,join(',',@t_dirs||()));


# Find design doc directory, check
unless($no_designdocs) {
    for ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8960	9074	
==>se \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-space <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3204	3318	
==>classes}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cla <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	694	808	
==>se \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-space <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8960	9074	
==>se \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-space <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8960	9074	
==>se \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-space <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3204	3318	
==>classes}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3204	3318	
==>classes}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7107	7251	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7375	7519	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7107	7251	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7375	7519	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7107	7251	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7375	7519	
==>($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5673	5780	
==>t

# create the basic Class
$::Class = opaque->new(
        reference->new($opaque::NULL_OBJECT),
        ha <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13245	13400	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27359	27514	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13524	13679	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27638	27793	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5782	5880	
==>ion.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5782	5880	
==>ion.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5782	5880	
==>ion.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13257	13373	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18140	18256	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13257	13373	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18140	18256	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13257	13373	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18140	18256	
==>xt METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is local <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5794	5901	
==>ndex_content);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_files(package => $pkg)

Return <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2687	2865	
==>, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message! <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2687	2865	
==>, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message! <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3848	3949	
==><title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compon <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3848	3949	
==><title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compon <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3848	3949	
==><title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compon <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32921	33017	
==>side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Na <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32921	33017	
==>side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Na <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24696	24805	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26885	26994	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24696	24805	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26885	26994	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24696	24805	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26885	26994	
==>d; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elem <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10034	10130	
==>ow much a given backend (normal
    Haskell runcore, <a
    href="http://svn.openfoundry.org/pugs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3801	3913	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6737	6849	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3801	3913	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6737	6849	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3801	3913	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6737	6849	
==>& $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        ret <==
7	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	117	213	
==>package Module::Install::Makefile::Name;
use Module::Install::Base; @ISA = qw(Module::Install::Ba <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3063	3273	
==>($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigenclas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12911	13038	
==>hable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must ha <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12911	13038	
==>hable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must ha <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12911	13038	
==>hable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must ha <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6535	6633	
==>o);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5665	5763	
==>o);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6535	6633	
==>o);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5665	5763	
==>o);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13445	13539	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10729	10823	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13445	13539	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10729	10823	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13445	13539	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10729	10823	
==>$params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods') <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26237	26323	
==>O).

END
#======================================================================

use s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3702	3882	
==>ethods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3702	3882	
==>ethods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3702	3882	
==>ethods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')-> <==
7	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2823	2920	
==>ation of this node in the original text, or at
least a valid representation of it that "honours th <==
7	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2823	2920	
==>ation of this node in the original text, or at
least a valid representation of it that "honours th <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25163	25257	
==>osetta give you permission to link Rosetta with other free software
components, as defined by t <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25163	25257	
==>osetta give you permission to link Rosetta with other free software
components, as defined by t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5135	5258	
==>@roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5135	5258	
==>@roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5135	5258	
==>@roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        } <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9712	9817	
==>re:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr targe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	973	1073	
==>PE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	973	1073	
==>PE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	973	1073	
==>PE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6424	6527	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9394	9497	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6424	6527	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9394	9497	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6424	6527	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9394	9497	
==>f blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($metho <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13974	14071	
==>t *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent order, but the orde <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	73	190	
==>ned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	73	190	
==>ned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SU <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	73	190	
==>ned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SU <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	376	493	
==>es an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - easie <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	355	467	
==>es an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - easie <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	15388	15489	
==>ly (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $e <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15446	15547	
==>ly (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15347	15454	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20080	20187	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15347	15454	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20080	20187	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15347	15454	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20080	20187	
==>I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined( <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26409	26495	
==>:Prolog::Yaswi::Low::args = ($Language::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Lang <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	19651	19808	
==>ve a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new(">$synhtml") <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14987	15096	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12241	12350	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14987	15096	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12241	12350	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14987	15096	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12241	12350	
==>ribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24469	24606	
==>eop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25732	25869	
==>eop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24748	24885	
==>eop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26011	26148	
==>eop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6264	6366	
==>stant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6264	6366	
==>stant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6264	6366	
==>stant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse( <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3812	3924	
==>m->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	275	379	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	273	377	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	275	379	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	273	377	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	275	379	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	273	377	
==>nd access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19097	19195	
==>POSIX classes don't exist in a
regex outside of a character class, so I'm a little wary of making t <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25104	25199	
==>eterministic,
such that all of its class and object methods will each return the same
result and <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11235	11330	
==>eterministic,
such that all of its class and object methods will each return the same
result and <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14508	14603	
==>eterministic, such that all of its class and
object methods will each return the same result and <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25104	25199	
==>eterministic,
such that all of its class and object methods will each return the same
result and <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11235	11330	
==>eterministic,
such that all of its class and object methods will each return the same
result and <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14508	14603	
==>eterministic, such that all of its class and
object methods will each return the same result and <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2331	2434	
==>ile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2331	2434	
==>ile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1129	1230	
==>pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1129	1230	
==>pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method co <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1129	1230	
==>pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method co <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1556	1653	
==>ile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3417	3514	
==>ile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25146	25281	
==>&RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top fl <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3978	4075	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyrigh <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3978	4075	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyrigh <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6957	7053	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9027	9123	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6957	7053	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9027	9123	
==>ritten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5444	5608	
==>nd, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5444	5608	
==>nd, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5444	5608	
==>nd, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1977	2116	
==>$.number'      => $self->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $descri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2348	2463	
==>fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2348	2463	
==>fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2348	2463	
==>fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4152	4278	
==>_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unha <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4152	4278	
==>_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unha <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34593	34697	
==>::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => [' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34593	34697	
==>::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => [' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8766	8868	
==>fix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8766	8868	
==>fix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {. <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8766	8868	
==>fix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {. <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43713	43886	
==>)
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # metho <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4598	4723	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7247	7372	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4820	4941	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11269	11390	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4820	4941	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11269	11390	
==>atch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	736	854	
==>n = $1);

      return $S->$c($cc) if $S->can($c);
      --&RxPOS;

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	36285	36377	
==>common,
eliminating pairs where the values of those attributes differ and unioning
the remain <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	38038	38130	
==>common, eliminating pairs where the
values of those attributes differ and unioning the remain <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40834	40926	
==>common,
eliminating pairs where the values of those attributes differ and unioning
the remain <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42587	42679	
==>common, eliminating pairs where the
values of those attributes differ and unioning the remain <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40448	40540	
==>common,
eliminating pairs where the values of those attributes differ and unioning
the remain <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42237	42329	
==>common, eliminating pairs where the
values of those attributes differ and unioning the remain <==
7	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	863	998	
==>ack, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or die "Invalid stack:[@ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20064	20173	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17203	17312	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20064	20173	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17203	17312	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20064	20173	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17203	17312	
==>d "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($lab <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20150	20327	
==>warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20150	20327	
==>warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20150	20327	
==>warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18321	18415	
==>ther Perl code such as persistence
solutions.  Moreover, these data structures are in exactly t <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18321	18415	
==>ther Perl code such as persistence
solutions.  Moreover, these data structures are in exactly t <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13226	13319	
==>ther Perl code such as persistence solutions.
Moreover, these data structures are in exactly t <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13226	13319	
==>ther Perl code such as persistence solutions.
Moreover, these data structures are in exactly t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1881	1976	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2224	2319	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8291	8386	
==>s finished being parsed, next() returns false, and will
return false if called again.

=head2 Bu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1881	1976	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2224	2319	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1881	1976	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2224	2319	
==>(You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5916	6049	
==>te($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5916	6049	
==>te($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            for <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5916	6049	
==>te($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            for <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5492	5608	
==>build a from => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### move. Wh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	455	551	
==>ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versio <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	455	551	
==>ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versio <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	455	551	
==>ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versio <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	200	309	
==>n added to Literal.
#     Since we dont have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Sev <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19818	19919	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16957	17058	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19818	19919	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16957	17058	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19818	19919	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16957	17058	
==>g-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $val <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18117	18247	
==>control => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register cal <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17155	17285	
==>control => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register cal <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18117	18247	
==>control => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register cal <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17155	17285	
==>control => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register cal <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1314	1423	
==>aque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1314	1423	
==>aque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1314	1423	
==>aque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1392	1485	
==>kref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/> <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1392	1485	
==>kref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2516	2607	
==>.100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2516	2607	
==>.100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair s <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2516	2607	
==>.100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair s <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	4071	4150	
==>B][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262 <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4071	4150	
==>B][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262 <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13285	13494	
==>ur default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4266	4429	
==>}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4266	4429	
==>}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4266	4429	
==>}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6792	6941	
==>}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6792	6941	
==>}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6792	6941	
==>}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_method <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7181	7336	
==>> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pSubType"> );
            # t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	120	223	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	381	484	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	120	223	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	381	484	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	120	223	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	381	484	
==>JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = arra <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	13164	13302	
==>nt "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	419	534	
==>t way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	419	534	
==>t way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it v <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	419	534	
==>t way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it v <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	166	253	
==>ome bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	166	253	
==>ome bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	166	253	
==>ome bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14878	14991	
==>$class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fo <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14878	14991	
==>$class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	954	1056	
==>]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	954	1056	
==>]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	954	1056	
==>]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to n <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2581	2677	
==>h ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2581	2677	
==>h ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7299	7411	
==>values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft.pod 8655.  In the List section.
mu <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	5085	5196	
==>nt
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5085	5196	
==>nt
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3189	3291	
==>ncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restor <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3189	3291	
==>ncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restor <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3189	3291	
==>ncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restor <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26887	26979	
==>same-named accessor method can be used to see if a Relation::Example-doing object
can mutate. <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6018	6138	
==>^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                error( "Could <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5402	5520	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8372	8490	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5402	5520	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8372	8490	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5402	5520	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8372	8490	
==>Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a c <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	10713	10858	
==>t" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9210	9311	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6757	6858	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9210	9311	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6757	6858	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9210	9311	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6757	6858	
==>my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatche <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6666	6799	
==>','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6666	6799	
==>','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6666	6799	
==>','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19579	19673	
==>, or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18560	18654	
==>, or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19579	19673	
==>, or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructo <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18560	18654	
==>, or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	751	884	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	839	972	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	751	884	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	839	972	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	751	884	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	839	972	
==>q "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_arg <==
7	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7349	7473	
==>hod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Sub( $name, $bod <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14339	14499	
==>ize_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14339	14499	
==>ize_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14339	14499	
==>ize_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_ <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2870	3030	
==>ize_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4490	4621	
==>tringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4490	4621	
==>tringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub p <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4490	4621	
==>tringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub p <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31330	31602	
==>mbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$count <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14879	14975	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12133	12229	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14879	14975	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12133	12229	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14879	14975	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12133	12229	
==>nfess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_ac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6645	6769	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9094	9218	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6645	6769	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9094	9218	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6645	6769	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9094	9218	
==>ie "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn " <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2468	2590	
==>oper = pop(@$ops);
        my $nont = $oper->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4200	4326	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6849	6975	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4432	4555	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10881	11004	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4432	4555	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10881	11004	
==>re-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30636	30728	
==>NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> inside the F<__obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	852	966	
==>ew PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	852	966	
==>ew PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	852	966	
==>ew PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7383	7493	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7383	7493	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7383	7493	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.m <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21776	21874	
==>entifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'return'><no_LineTerminator_her <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4025	4160	
==>map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defin <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4025	4160	
==>map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defin <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4549	4678	
==>map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6121	6250	
==>array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4549	4678	
==>map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defin <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6121	6250	
==>array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6121	6250	
==>array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2890	3015	
==>die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2890	3015	
==>die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	15976	16090	
==>ew(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19453	19567	
==>ew(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18959	19073	
==>ew(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1265	1374	
==>>mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self-> <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1265	1374	
==>>mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10013	10152	
==>param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @pa <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10013	10152	
==>param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3226	3334	
==>$$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq ' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3226	3334	
==>$$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq ' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3226	3334	
==>$$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq ' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4656	4761	
==>YNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta D <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4656	4761	
==>YNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta D <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4112	4246	
==>params)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4112	4246	
==>params)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspar <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4112	4246	
==>params)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspar <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21552	21649	
==>eudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, c <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20433	20530	
==>eudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21552	21649	
==>eudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, c <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20433	20530	
==>eudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10167	10299	
==>@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10167	10299	
==>@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10167	10299	
==>@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10045	10143	
==>se PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10045	10143	
==>se PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10045	10143	
==>se PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL: <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5678	5771	
==>~$v eq "" ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3262	3402	
==>E__->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKA <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1884	1994	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2246	2356	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2555	2665	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1884	1994	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2246	2356	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2555	2665	
==>t @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11783	12000	
==>type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11783	12000	
==>type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11783	12000	
==>type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16757	16864	
==>lass range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13178	13285	
==>lass range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2342	2444	
==>hildren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2342	2444	
==>hildren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1956	2066	
==>e for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VA <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1956	2066	
==>e for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2815	2917	
==>oo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subnam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2815	2917	
==>oo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subnam <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2815	2917	
==>oo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subnam <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4774	4875	
==>e quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 9 <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4774	4875	
==>e quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 9 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6196	6322	
==>');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6196	6322	
==>');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6196	6322	
==>');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3261	3386	
==>');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3261	3386	
==>');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3261	3386	
==>');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2205	2301	
==>below).
Then, it creates a initrd and copies your pugs binary and the shared libraries
it needs o <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4668	4812	
==>Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (Cod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5620	5752	
==>$xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5620	5752	
==>$xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 ( <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5620	5752	
==>$xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4259	4362	
==>self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4259	4362	
==>self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4259	4362	
==>self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.i <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3397	3552	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8682	8836	
==>eturn sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags = $_[2];



        # XXX - didn' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3654	3804	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10072	10222	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3654	3804	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10072	10222	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8377	8526	
==>eturn sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags = $_[2];

        # XXX - didn' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9488	9614	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12461	12587	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9488	9614	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12461	12587	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9488	9614	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12461	12587	
==>erl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatch <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9543	9645	
==>0**100',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	810	929	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	898	1017	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	810	929	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	898	1017	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	810	929	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	898	1017	
==>g eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) { <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34428	34522	
==>nch::and> object it
creates!

A method call for a F<Regexp::MyRx::THING> object will look in it <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17078	17202	
==>.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            ' <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17078	17202	
==>.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            ' <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9773	9883	
==>start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

mu <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9773	9883	
==>start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

mu <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	11347	11442	
==>hey are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
to <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11405	11500	
==>hey are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
to <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	473	566	
==>ther native types
sub to_num { num->new((shift)->fetch + 0)  }
sub to_str { str->new((shift)-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7176	7330	
==>f Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7176	7330	
==>f Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7176	7330	
==>f Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	5980	6086	
==>lf.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.pare <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	6173	6279	
==>lf.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.pare <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5980	6086	
==>lf.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.pare <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6173	6279	
==>lf.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.pare <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10127	10261	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7678	7812	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10127	10261	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7678	7812	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10127	10261	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7678	7812	
==>efined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iter <==
7	/Users/nnunley/pugs/util/build_pugs.pl	2270	2383	
==>ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimzed` which doesn <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6175	6305	
==>lass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6175	6305	
==>lass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6175	6305	
==>lass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5383	5492	
==>my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5383	5492	
==>my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5383	5492	
==>my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38417	38524	
==>ap($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $p <==
7	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1158	1348	
==>)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a real type syste <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	211	328	
==>var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	211	328	
==>var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	211	328	
==>var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16687	16791	
==>d => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a " <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16687	16791	
==>d => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a " <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16687	16791	
==>d => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a " <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1255	1404	
==>i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4494	4643	
==>i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1255	1404	
==>i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4494	4643	
==>i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9734	9866	
==>'t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro vari <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6075	6207	
==>'t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro vari <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6924	7056	
==>'t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro vari <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	7109	7235	
==>is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end = <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7109	7235	
==>is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2048	2140	
==><Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2137	2229	
==><Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs: <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	30116	30206	
==>e functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34668	34758	
==>e functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<re <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33841	33931	
==>e functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19319	19429	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4799	4909	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19319	19429	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4799	4909	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19319	19429	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4799	4909	
==>od('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	3657	3762	
==>renced P6 design documents\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 design docume <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2933	3064	
==>ule
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  pac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	34	128	
==>arnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	34	128	
==>arnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	34	128	
==>arnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	34	127	
==>arnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	34	127	
==>arnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	34	127	
==>arnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'ble <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4169	4283	
==>hat you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in http <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4169	4283	
==>hat you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in http <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4169	4283	
==>hat you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in http <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1070	1170	
==>PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BU <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1070	1170	
==>PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BU <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1309	1403	
==>is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the met <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1309	1403	
==>is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	401	505	
==>$PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	401	505	
==>$PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	401	505	
==>$PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15085	15181	
==>g(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15085	15181	
==>g(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	711	807	
==>------

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper;

# ----------------------- <==
7	/Users/nnunley/pugs/util/p5_to_p6.pl	688	779	
==>-----------------------------

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4174	4288	
==>kChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//'> <S <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2981	3091	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2981	3091	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2981	3091	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	340	445	
==>5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mul <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	340	445	
==>5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mul <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	340	445	
==>5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12491	12634	
==>Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->na <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12491	12634	
==>Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->na <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12491	12634	
==>Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->na <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	7373	7519	
==>nternals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.cha <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4522	4618	
==>lent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Encipher <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4522	4618	
==>lent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Encipher <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6162	6256	
==>ath, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retur <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8230	8324	
==>ath, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6162	6256	
==>ath, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8230	8324	
==>ath, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retur <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15742	15890	
==>::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15742	15890	
==>::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15742	15890	
==>::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20463	20607	
==>::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20463	20607	
==>::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20463	20607	
==>::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own m <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8171	8290	
==>",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initrd_gz <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2621	2782	
==>type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2621	2782	
==>type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2621	2782	
==>type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    ret <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4279	4381	
==>Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Se <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3406	3508	
==>Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4279	4381	
==>Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Se <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3406	3508	
==>Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Se <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2820	2955	
==>'or',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '+',
        fixity => 'infix', <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	357	459	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	350	452	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	357	459	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	350	452	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	357	459	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	350	452	
==>elf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4944	5047	
==>method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4944	5047	
==>method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4944	5047	
==>method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7280	7382	
==>}
);
ok($rBar->does('Role'), '... rBar now does Role');

# create a class to put the roles in ...
my $F <==
7	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3695	3794	
==>ks or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 A <==
7	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3695	3794	
==>ks or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 A <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	142	238	
==>is a rewrite of the matching engine, aiming to generate the same data structure as
the 'ratchet' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6571	6702	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9541	9672	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6571	6702	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9541	9672	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6571	6702	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9541	9672	
==>ethod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this i <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	8019	8148	
==>$ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_see <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3038	3149	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6031	6142	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3313	3419	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9731	9837	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3313	3419	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9731	9837	
==>sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_sta <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3314	3406	
==>IB::Utils->_version_to_number( version => $version );

Returns a proper module version, or '0 <==
7	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	748	869	
==>rrent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $se <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	748	869	
==>rrent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6799	6902	
==>way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while(( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6799	6902	
==>way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while(( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6799	6902	
==>way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while(( <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	901	996	
==>bble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	901	996	
==>bble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19126	19225	
==>($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19126	19225	
==>($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infi <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19126	19225	
==>($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infi <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22029	22123	
==>numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric hand <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20910	21004	
==>numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric hand <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22029	22123	
==>numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric hand <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20910	21004	
==>numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric hand <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16079	16286	
==>uleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16358	16565	
==>uleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14084	14212	
==>nslate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two nu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14084	14212	
==>nslate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two nu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7230	7352	
==>xed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7230	7352	
==>xed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7230	7352	
==>xed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbox <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13183	13286	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14918	15021	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	20	123	
==>ass Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hallo, $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13183	13286	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14918	15021	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13183	13286	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14918	15021	
==>return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self- <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23853	23953	
==>E and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This r <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22626	22726	
==>E and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23853	23953	
==>E and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22626	22726	
==>E and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8047	8141	
==>.. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8047	8141	
==>.. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8047	8141	
==>.. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2032	2197	
==>$_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { ret <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2279	2444	
==>$_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { ret <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14215	14331	
==>ers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and the <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14215	14331	
==>ers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6668	6770	
==>Optional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6668	6770	
==>Optional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PI <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6668	6770	
==>Optional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PI <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3653	3801	
==>package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} };
            }
        }

=cut

        ### extrac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4603	4711	
==>t);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4603	4711	
==>t);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4603	4711	
==>t);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1024	1113	
==>Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{ke <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1024	1113	
==>Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{ke <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1024	1113	
==>Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{ke <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7939	8119	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5498	5678	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7939	8119	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5498	5678	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7939	8119	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5498	5678	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1627	1807	
==>$cand};      
            }
            last unless $nothead; # leave the loop with our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15090	15200	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12344	12454	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15090	15200	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12344	12454	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15090	15200	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12344	12454	
==>$self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attri <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1596	1687	
==>aram("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6965	7086	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9935	10056	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6965	7086	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9935	10056	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6965	7086	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9935	10056	
==>" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bo <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12475	12572	
==>ent = $strap->_is_comment($line, \$comment);

Checks if the given line is a comment.  If so, it wi <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21367	21813	
==>_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14857	14976	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19556	19675	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14857	14976	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19556	19675	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14857	14976	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19556	19675	
==>OAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', ou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4612	4710	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7548	7646	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4612	4710	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7548	7646	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4612	4710	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7548	7646	
==>od (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7974	8070	
==>FooBar does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# and our instances do th <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7163	7262	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6293	6392	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2947	3046	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2947	3046	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7163	7262	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6293	6392	
==>eturns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2195	2293	
==>node = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $reduced_struct = $self- <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4512	4624	
==>3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take i <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4512	4624	
==>3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take i <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	744	843	
==>e::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::IO;

=head1 DESCRIPTION

=cu <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18855	18946	
==>raffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
chan <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17898	17989	
==>raffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18855	18946	
==>raffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
chan <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17898	17989	
==>raffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
chan <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2639	2778	
==>umfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5651	5772	
==>[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5651	5772	
==>[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1 <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5651	5772	
==>[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5676	5790	
==>if (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5676	5790	
==>if (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5676	5790	
==>if (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($b <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23923	24048	
==>self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      da <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4000	4111	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4938	5049	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2234	2345	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2480	2591	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3015	3126	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3261	3372	
==>, '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8636	8810	
==>$ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8636	8810	
==>$ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	755	862	
==>}    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	755	862	
==>}    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	755	862	
==>}    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5103	5200	
==>3{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$ch <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5103	5200	
==>3{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$ch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37019	37133	
==>ess defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37019	37133	
==>ess defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37019	37133	
==>ess defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22544	22638	
==></QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21398	21492	
==></QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22544	22638	
==></QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21398	21492	
==></QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7046	7168	
==>exp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3757	3878	
==>add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3757	3878	
==>add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3757	3878	
==>add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self = <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	27049	27143	
==>what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31601	31695	
==>what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30657	30751	
==>what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25316	25457	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25974	26115	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28756	28897	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25595	25736	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26253	26394	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29035	29176	
==>eop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3721	3835	
==>$ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$reduce <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11169	11290	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12640	12761	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14646	14767	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16117	16238	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13954	14075	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15479	15600	
==>ource.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8337	8533	
==>] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8337	8533	
==>] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8337	8533	
==>] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # t <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6905	7004	
==>w { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6905	7004	
==>w { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	265	355	
==>methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List method <==
7	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	265	355	
==>methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List method <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3349	3518	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8634	8802	
==>r faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state = $_[1] || { state => undef, op => $node };

        my $flags <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3608	3772	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10026	10190	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3608	3772	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10026	10190	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        #my $flags <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8331	8494	
==>r faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state = $_[1] || { state => undef, op => $node };
        my $flags <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	7684	7821	
==>s.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2001	2118	
==>s.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2001	2118	
==>s.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2001	2118	
==>s.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2099	2180	
==>lequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2099	2180	
==>lequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self: <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2099	2180	
==>lequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	82	203	
==>ays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	82	203	
==>ays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	82	203	
==>ays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	613	721	
==>used, via :words, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the grammar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3297	3401	
==>reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subna <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3297	3401	
==>reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subna <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3297	3401	
==>reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subna <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8934	9083	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11907	12056	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8934	9083	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11907	12056	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8934	9083	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11907	12056	
==>t packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::St <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1325	1443	
==>1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did not understand '$name <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1871	2023	
==>ift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                r <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2118	2270	
==>ift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	611	714	
==>ne(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	611	714	
==>ne(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	611	714	
==>ne(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($ <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15665	15759	
==>ese speaker often prefers to
communicate in those languages.  Or, when viewing an error message <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15665	15759	
==>ese speaker often prefers to
communicate in those languages.  Or, when viewing an error message <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3520	3637	
==>extToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3520	3637	
==>extToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3520	3637	
==>extToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6275	6370	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) retu <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8343	8438	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) retu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6275	6370	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) retu <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8343	8438	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) retu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2632	2782	
==>1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2935	3074	
==>1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2935	3074	
==>1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11054	11173	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8607	8726	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11054	11173	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8607	8726	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11054	11173	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8607	8726	
==>ethod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (s <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2970	3066	
==>requires the installation of a lot of Perl 5 modules,
it is completely independent of Pugs or Par <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1983	2131	
==>:h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    r <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	297	445	
==>:h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1983	2131	
==>:h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1983	2131	
==>:h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10292	10424	
==>ort (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10292	10424	
==>ort (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arra <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10292	10424	
==>ort (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arra <==
7	/Users/nnunley/pugs/util/grokprims.pl	2397	2497	
==>$arg</td>";
  }
  print "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7773	7866	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6903	6996	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3489	3582	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3489	3582	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7773	7866	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6903	6996	
==>duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3187	3318	
==>push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $of <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3187	3318	
==>push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $of <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3187	3318	
==>push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $of <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	21	118	
==>he rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameles <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	21	118	
==>he rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameles <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6102	6198	
==>, 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt' <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6102	6198	
==>, 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	316	436	
==>e arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5316	5436	
==>/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hack <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6584	6704	
==>/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hack <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	316	436	
==>e arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only o <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	316	436	
==>e arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5316	5436	
==>/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hack <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6572	6692	
==>/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hack <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18981	19116	
==>if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$cla <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11079	11191	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12550	12662	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14556	14668	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16027	16139	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13864	13976	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15389	15501	
==>($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5718	5855	
==>t->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5718	5855	
==>t->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)- <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5718	5855	
==>t->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)- <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	30447	30540	
==>n in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34998	35091	
==>n in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34180	34273	
==>n in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25392	25472	
==>(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0, <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	18079	18347	
==>r
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach ($h <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11543	11672	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2537	2666	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7631	7760	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11543	11672	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2537	2666	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7631	7760	
==>( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4716	4917	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4716	4917	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4716	4917	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4069	4187	
==>\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4069	4187	
==>\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4069	4187	
==>\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6780	6890	
==>"Decimal number (Nd)"
      <Nd>
}
rule UnicodeConnectorPunctuation {  # see 7.6
      # any character in the U <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2236	2334	
==>en trying with m and s.
# Match objects arent being created for capture groups which are never reac <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3998	4095	
==>f people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3998	4095	
==>f people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6977	7073	
==>f people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9047	9143	
==>f people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6977	7073	
==>f people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9047	9143	
==>f people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6896	7027	
==>required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%h <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11451	11582	
==>required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%h <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12249	12380	
==>required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%h <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12976	13107	
==>required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%h <==
7	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	675	782	
==>n::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pu <==
7	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	675	782	
==>n::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pu <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5553	5644	
==>sition );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($target, $whitespacePositi <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9244	9367	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternati <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9437	9560	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternati <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	857	951	
==>ehavior of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbose();
  $strap->du <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22570	22663	
==>erpolated into the user strings; Locale::KeyedText would also handle
this.

A program generate <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12379	12472	
==>ty if the parameter's
corresponding argument is undefined).  The new Document object's All Nod <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22570	22663	
==>erpolated into the user strings; Locale::KeyedText would also handle
this.

A program generate <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12379	12472	
==>ty if the parameter's
corresponding argument is undefined).  The new Document object's All Nod <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	630	761	
==>shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4683	4810	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7332	7459	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4903	5025	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11352	11474	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4903	5025	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11352	11474	
==>%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $hea <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	6867	6999	
==>my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6867	6999	
==>my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12313	12416	
==>ar('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12313	12416	
==>ar('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12313	12416	
==>ar('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_ <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1411	1510	
==>t,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_requ <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1411	1510	
==>t,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_requ <==
7	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	457	614	
==>}                   and
        $Config::Config{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self->can_run('nmake <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29614	29727	
==>lf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29614	29727	
==>lf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29614	29727	
==>lf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5819	5919	
==>, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5819	5919	
==>, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $d <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5819	5919	
==>, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4426	4584	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6938	7096	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4426	4584	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6938	7096	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4426	4584	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6938	7096	
==>thods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real dis <==
7	/Users/nnunley/pugs/util/version_h.pl	278	395	
==>e PUGS_SVN_REVISION (\d+)/ or next;
    $old_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4292	4413	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6941	7062	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4522	4640	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10971	11089	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4522	4640	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10971	11089	
==>match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captu <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23064	23146	
==>l6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api::Except <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8923	9020	
==>ix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8923	9020	
==>ix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8923	9020	
==>ix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11100	11194	
==>which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all g <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8504	8598	
==>which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all g <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11100	11194	
==>which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all g <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8504	8598	
==>which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21788	21954	
==>s => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21788	21954	
==>s => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Ob <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21788	21954	
==>s => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Ob <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8944	9040	
==>x.com>.

This code is free software, and may be used, distributed and/or modified under 
the same <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3873	3969	
==>x.com>.

This code is free software, and may be used, distributed and/or modified under 
the same <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8944	9040	
==>x.com>.

This code is free software, and may be used, distributed and/or modified under 
the same <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3873	3969	
==>x.com>.

This code is free software, and may be used, distributed and/or modified under 
the same <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3526	3650	
==>le {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wh <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4843	4967	
==>le {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wh <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3526	3650	
==>le {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wh <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4831	4955	
==>le {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wh <==
7	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1526	1633	
==>ile::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\ <==
7	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1526	1633	
==>ile::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\ <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3391	3476	
==>--> {true}.
p5_concatenation_more(W, Z) --> p5_quantified(X), p5_concatenation_more(co <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1311	1419	
==>) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") =~ /^<!DO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6924	7008	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7591	7675	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6924	7008	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7591	7675	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6924	7008	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7591	7675	
==>G ROLES
## -------------------------------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2044	2237	
==>$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _inde <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2044	2237	
==>$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _inde <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2044	2237	
==>$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _inde <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	153	247	
==>r parenthesized
group.  This is approximately the Match object that userland folks will
see, bu <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	153	247	
==>r parenthesized
group.  This is approximately the Match object that userland folks will
see, bu <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35918	36010	
==>er_combinations()>

This method returns an array ref having all combinations of this object's <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35918	36010	
==>er_combinations()>

This method returns an array ref having all combinations of this object's <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7963	8080	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10886	11003	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7963	8080	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10886	11003	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7963	8080	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10886	11003	
==>method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            | <==
7	/Users/nnunley/pugs/util/importgraph.pl	1218	1316	
==>name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
for my $mod (values %mo <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6182	6318	
==>links from $unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15851	15970	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13101	13220	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15851	15970	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13101	13220	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15851	15970	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13101	13220	
==>ou must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table-> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3160	3289	
==>sing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            - <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3344	3473	
==>sing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            - <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1367	1476	
==>ntial things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1367	1476	
==>ntial things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3322	3423	
==>genclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3322	3423	
==>genclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3322	3423	
==>genclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $me <==
7	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4192	4322	
==>";
        }
    }

    if ( my $no_index = $values{no_index} ) {
        push @{ $no_index->{'directory'} }, 'inc';
        requir <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4341	4463	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6990	7112	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4570	4689	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11019	11138	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4570	4689	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11019	11138	
==>ch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	769	882	
==>hs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	769	882	
==>hs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	769	882	
==>hs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self-> <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4821	4918	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmet <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3948	4045	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmet <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4821	4918	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmet <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3948	4045	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmet <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5424	5532	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6692	6800	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5424	5532	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6680	6788	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5520	5626	
==>ox.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5520	5626	
==>ox.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5520	5626	
==>ox.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF = <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4124	4244	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6773	6893	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4358	4475	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10807	10924	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4358	4475	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10807	10924	
==>turn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my % <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14802	14899	
==>h @{ $self->{param_stack} }, $self->{params};
    $self->{params} = \@params;
}

sub shift_param { <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1676	1799	
==>nute(0), :second(0),
                        :tz(tz "UTC") ) + $time_t;
}

# convert from a perl float
multi sub epoch( Real <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14975	15083	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12229	12337	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14975	15083	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12229	12337	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14975	15083	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12229	12337	
==>ccessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3458	3566	
==>'name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3458	3566	
==>'name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3458	3566	
==>'name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($se <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	485	592	
==>o the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule-> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	485	592	
==>o the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule-> <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11353	11459	
==>$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(. <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11353	11459	
==>$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(. <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3191	3335	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6184	6326	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs op <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3459	3594	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs op <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9877	10012	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3459	3594	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs op <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9877	10012	
==>ion( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs op <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1153	1258	
==>irectory to a dir.

Returns old cwd on success, false on failure.

=cut

sub _chdir {
    my $self = shift <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8369	8475	
==>2 add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $opera <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1452	1557	
==>, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1452	1557	
==>, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1452	1557	
==>, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5911	6011	
==>2 add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $opera <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22557	22650	
==>nd. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<g <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22557	22650	
==>nd. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<g <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8976	9118	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11949	12091	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8976	9118	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11949	12091	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8976	9118	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11949	12091	
==>he
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMetho <==
7	/Users/nnunley/pugs/util/testgraph.pl	343	437	
==>lfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't open $yamlfile <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6398	6522	
==>tch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6398	6522	
==>tch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2085	2200	
==>{
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2085	2200	
==>{
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2085	2200	
==>{
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3979	4085	
==>::Compiler::Rule->compile(<<'RULE')->code();

    use <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'use '. <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25833	25930	
==>pos()>.  This method, where it returns a
I<reference> to a scalar, makes it work (!).

B<These fun <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9309	9425	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6856	6972	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9309	9425	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6856	6972	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9309	9425	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6856	6972	
==>cher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    e <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1686	1783	
==>:Unit Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Nod <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	219	330	
==>tring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @E <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	219	330	
==>tring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @E <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	219	330	
==>tring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @E <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	219	330	
==>tring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15727	15835	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insufficie <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15727	15835	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insufficie <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15727	15835	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insufficie <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4502	4633	
==>neg} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'anyof_close' ];
  }

  sub data {
    my $self <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13961	14064	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14448	14551	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13961	14064	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14448	14551	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13961	14064	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14448	14551	
==>_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3397	3572	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6333	6508	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3397	3572	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6333	6508	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3397	3572	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6333	6508	
==>@_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	264	374	
==>sts = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) {
	cho <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2152	2274	
==>'&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'), <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	833	948	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	921	1036	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	833	948	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	921	1036	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	833	948	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	921	1036	
==>xt;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opt <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6436	6568	
==>unction  pre     any     safe   (List)\
\\n   Junction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25583	25671	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27778	27866	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25583	25671	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27778	27866	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25583	25671	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27778	27866	
==>IFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ". <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1567	1890	
==>RE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when r <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1567	1890	
==>RE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when r <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6169	6439	
==>{

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } el <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6633	6903	
==>{

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } el <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	524	633	
==>lf->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	524	633	
==>lf->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	524	633	
==>lf->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	226	331	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	224	329	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	226	331	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	224	329	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	226	331	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	224	329	
==>functions build opaque instance
    # variables and access their internal data.
    # This is basically th <==
7	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	258	355	
==>-------------------------------

sub IDGenerate {
    my($id)='';
    for (1..32) { $id~=chr(65+in <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2981	3089	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10904	11012	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6106	6214	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2981	3089	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10904	11012	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6106	6214	
==>r $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	19660	19752	
==>in($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsa <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7341	7469	
==>s = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -print0`;
  };
my $newest_mod_stam <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19999	20115	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17138	17254	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19999	20115	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17138	17254	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19999	20115	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17138	17254	
==>he meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3284	3427	
==>{
                # after whitespace means block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1767	1893	
==>e; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Has <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1767	1893	
==>e; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Has <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1767	1893	
==>e; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Has <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8207	8323	
==>$x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8207	8323	
==>$x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8207	8323	
==>$x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17605	17798	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18262	18455	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17884	18077	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18541	18734	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	305	428	
==>n_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	305	428	
==>n_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init() <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	305	428	
==>n_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init() <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	282	401	
==>s is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $ <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	282	401	
==>s is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $ <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	282	401	
==>s is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $ <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	282	401	
==>s is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7428	7536	
==>:CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7428	7536	
==>:CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7428	7536	
==>:CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot c <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	235	344	
==>ile::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message:: <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	155	264	
==>ile::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message:: <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	153	262	
==>ile::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message:: <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	151	260	
==>ile::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3726	3810	
==>EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:// <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3726	3810	
==>EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:// <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3726	3810	
==>EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:// <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4652	4771	
==>air_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4652	4771	
==>air_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4652	4771	
==>air_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2593	2697	
==>$span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5796	5900	
==>$span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2593	2697	
==>$span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5796	5900	
==>$span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15701	15835	
==>ion easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15701	15835	
==>ion easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15701	15835	
==>ion easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20422	20552	
==>ion easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20422	20552	
==>ion easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20422	20552	
==>ion easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $reg <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	30	127	
==>se warnings;

use lib '../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1343	1479	
==>{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1331	1467	
==>{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	122	228	
==>strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	118	218	
==>strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	112	212	
==>strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	118	218	
==>strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	112	212	
==>strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13243	13398	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27357	27512	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13522	13677	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27636	27791	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2044	2145	
==>g(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Strin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2044	2145	
==>g(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Strin <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2044	2145	
==>g(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Strin <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3367	3484	
==>atches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3367	3484	
==>atches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37047	37143	
==>n>.  In any situation where a pair of source
relations have zero attributes in common, their join <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41596	41692	
==>n>.  In any situation where a pair of source
relations have zero attributes in common, their join <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41219	41315	
==>n>.  In any situation where a pair of source
relations have zero attributes in common, their join <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1751	1844	
==>d1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

T <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1751	1844	
==>d1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

T <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15738	15884	
==>hods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15738	15884	
==>hods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15738	15884	
==>hods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20459	20601	
==>hods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20459	20601	
==>hods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20459	20601	
==>hods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our <==
7	/Users/nnunley/pugs/util/package-osx.pl	9849	9965	
==>unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4792	4930	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5753	5891	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4792	4930	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5753	5891	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4792	4930	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5753	5891	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39719	39847	
==>t->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7397	7515	
==>fore => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11732	11850	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2213	2330	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8985	9102	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7147	7264	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2213	2330	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8985	9102	
==>fore => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	808	916	
==>e hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	808	916	
==>e hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	808	916	
==>e hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8954	9051	
==>his code is free software, and may be used, distributed and/or modified under 
the same terms as P <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3883	3980	
==>his code is free software, and may be used, distributed and/or modified under 
the same terms as P <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8954	9051	
==>his code is free software, and may be used, distributed and/or modified under 
the same terms as P <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3883	3980	
==>his code is free software, and may be used, distributed and/or modified under 
the same terms as P <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11089	11254	
==>> scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $c <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3113	3278	
==>ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ), <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11089	11254	
==>> scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $c <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11089	11254	
==>> scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $c <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3124	3289	
==>ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ), <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7709	7819	
==>e) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %user <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7709	7819	
==>e) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %user <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8754	8904	
==>_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8754	8904	
==>_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pack <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8754	8904	
==>_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pack <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2444	2556	
==>> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7538	7650	
==>> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2444	2556	
==>> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7538	7650	
==>> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9612	9722	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12585	12695	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9612	9722	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12585	12695	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9612	9722	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12585	12695	
==>tcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatch <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	8328	8429	
==>x->{name} eq $y->{name}
		or die "can't unify $x->{name} with $y->{name} in " . Dumper(@_);
};

# bina <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7646	7799	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5205	5358	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7646	7799	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5205	5358	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7646	7799	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5205	5358	
==>@{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12827	12922	
==>le for extensions.  Please
refer to L<perldiag> for the explanations of the messages.

These are <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	287	387	
==>(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .t <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	2817	2917	
==>th line\n7th line\n8th line\n9th line\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	287	387	
==>(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .t <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	287	387	
==>(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7126	7218	
==>nually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7126	7218	
==>nually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cla <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7126	7218	
==>nually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cla <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12466	12584	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16977	17095	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12466	12584	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16977	17095	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12466	12584	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16977	17095	
==>$dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($d <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5458	5569	
==>j;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2934	3041	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5464	5571	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2934	3041	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5464	5571	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2934	3041	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5464	5571	
==>*@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:< <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17290	17390	
==>haps the most flexible place to allocate large data
which Perl_re_dup will copy for us.

    New(0, r <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8371	8549	
==>->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1667	1761	
==>p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VSt <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1667	1761	
==>p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VSt <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1667	1761	
==>p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VSt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9874	9967	
==>turn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pre <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9874	9967	
==>turn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pre <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9874	9967	
==>turn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12328	12476	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3950	4098	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12328	12476	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3950	4098	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12328	12476	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3950	4098	
==>AD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6388	6496	
==>se letter (Lt)",
      # "Modifier letter (Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | < <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11421	11528	
==>_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_meth <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5002	5109	
==>ch->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11421	11528	
==>_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_meth <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11421	11528	
==>_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_meth <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5002	5109	
==>ch->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{ <==
7	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1222	1318	
==>but can be put to other uses as well.

Log::Selective exports a single function, C<note>, which i <==
7	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1222	1318	
==>but can be put to other uses as well.

Log::Selective exports a single function, C<note>, which i <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1693	1790	
==>_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18180	18340	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15418	15578	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18180	18340	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15418	15578	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18180	18340	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15418	15578	
==>om 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # t <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2313	2450	
==>{
          fail "Invalid or missing plan" unless defined $:expect;
      }
  
      method header returns Str
      {
          return "1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14414	14596	
==>ge;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        w <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14414	14596	
==>ge;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        w <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14414	14596	
==>ge;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        w <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2945	3127	
==>ge;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        w <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5151	5255	
==>(
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5151	5255	
==>(
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5151	5255	
==>(
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6063	6201	
==>$value);
            return;
        }
        $current = $current->next;
    }
    $self->create($name, $value);
}

sub get {
    my ($sel <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3356	3474	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11914	12032	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6481	6599	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3356	3474	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11914	12032	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6481	6599	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_A <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	8487	8647	
==>$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{file}} @files ]); 
    pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1679	1793	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3242	3356	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1679	1793	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3242	3356	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1679	1793	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3242	3356	
==>here the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLA <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11095	11229	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8648	8782	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11095	11229	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8648	8782	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11095	11229	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8648	8782	
==>e_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterato <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4418	4537	
==>", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg} <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7668	7768	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6798	6898	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3384	3484	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3384	3484	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7668	7768	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6798	6898	
==>mber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36063	36160	
==>ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: -1 if look-be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	693	821	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	781	909	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	693	821	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	781	909	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	693	821	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	781	909	
==>shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	1503	1611	
==>t FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($intmp, $dat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9284	9412	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12257	12385	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9284	9412	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12257	12385	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9284	9412	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12257	12385	
==>ge Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6:: <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15795	15888	
==>e matched" not)
  ( \+(match_captures_get(I,E0,_)) ; match_captures_get(I,E0,X), var(X) )
  -> <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2563	2769	
==>less $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!conten <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2563	2769	
==>less $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!conten <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11339	11524	
==>ef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $ <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11339	11524	
==>ef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7980	8094	
==>ses{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7980	8094	
==>ses{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7980	8094	
==>ses{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7040	7152	
==>ge ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7040	7152	
==>ge ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12348	12450	
==>r_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12348	12450	
==>r_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12348	12450	
==>r_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $clas <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31801	31897	
==>s) language A but also understands
language B.  Later on, if for example the first library genera <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31801	31897	
==>s) language A but also understands
language B.  Later on, if for example the first library genera <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8726	8888	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14451	14613	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8726	8888	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14445	14607	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13976	14130	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1 <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13970	14124	
==>substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1 <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8984	9095	
==>rget
    .local int min, max, islazy
    .local int pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_globa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	644	761	
==>);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	644	761	
==>);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	644	761	
==>);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6524	6627	
==>~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6524	6627	
==>~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source = <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6524	6627	
==>~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source = <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15778	15871	
==>roduce HTML output that color-codes the elements of the regex
according to a style-sheet (synt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4082	4208	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7018	7144	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4082	4208	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7018	7144	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4082	4208	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7018	7144	
==>e same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside <==
7	/Users/nnunley/pugs/misc/S29_round.xinming.pl	631	729	
==>abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return int($x. <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2788	2912	
==>ws");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3579	3688	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6515	6624	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3579	3688	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6515	6624	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3579	3688	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6515	6624	
==>ave method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?RO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5707	5813	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3827	3933	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5707	5813	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3827	3933	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5707	5813	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3827	3933	
==>check that none of the classes passed to us
        # are also subclasses of us, this is circular inheritan <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3383	3489	
==>ft ( --> Scalar ) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593 <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2324	2451	
==>nce => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2324	2451	
==>nce => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	910	1030	
==>al C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "E <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	910	1030	
==>al C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "E <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4232	4346	
==>sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4232	4346	
==>sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4232	4346	
==>sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	588	692	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	910	1014	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1289	1393	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	588	692	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	910	1014	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1289	1393	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	555	657	
==>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3534	3652	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6470	6588	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3534	3652	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6470	6588	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3534	3652	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6470	6588	
==>thod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenienc <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3137	3248	
==>does not
    # recognise cygwin absolute paths.  This kludge includes the
    # win32ified path as well.

    if <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	60	192	
==>in acos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cota <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4480	4576	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7416	7512	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4480	4576	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7416	7512	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4480	4576	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7416	7512	
==>sociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5658	5784	
==>match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6211	6337	
==>match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5851	5977	
==>match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6404	6530	
==>match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10032	10140	
==>m_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10032	10140	
==>m_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10032	10140	
==>m_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7732	7901	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5291	5460	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7732	7901	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5291	5460	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7732	7901	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5291	5460	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1420	1589	
==>as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4593	4711	
==>";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4593	4711	
==>";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4593	4711	
==>";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	774	880	
==>cking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization - p <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1145	1245	
==>cking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - p <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	744	844	
==>cking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - p <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1145	1245	
==>cking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1845	1954	
==>return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Bo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1845	1954	
==>return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Bo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1845	1954	
==>return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Bo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22118	22210	
==>c handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20999	21091	
==>c handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22118	22210	
==>c handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20999	21091	
==>c handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24900	25065	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27089	27254	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24900	25065	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27089	27254	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24900	25065	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27089	27254	
==>ed $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tm <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	3723	3846	
==>yn_src_dir);
    print "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	11000	11134	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12471	12605	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14477	14611	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15948	16082	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13785	13919	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15310	15444	
==>ing.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is iden <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1196	1303	
==>il {
    my ($self, $condition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10824	10937	
==>lements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= C <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10824	10937	
==>lements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= C <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2820	2922	
==>ngleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2820	2922	
==>ngleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2820	2922	
==>ngleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->c <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23665	23760	
==>whereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at a <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23665	23760	
==>whereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18731	18865	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15969	16103	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18731	18865	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15969	16103	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18731	18865	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15969	16103	
==>. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace' <==
7	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	185	287	
==>{
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$backend <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2949	3047	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5963	6061	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8031	8129	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2949	3047	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5963	6061	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8031	8129	
==>FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retur <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15865	15959	
==>}
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$reason);

Checks <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2961	3078	
==>nd.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16492	16609	
==>LASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_m <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2961	3078	
==>nd.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_ma <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2961	3078	
==>nd.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_ma <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16492	16609	
==>LASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16492	16609	
==>LASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_m <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	4079	4174	
==>ist of the tests which failed.  Successive failures may be
abbreviated (ie. 15-20 to indicate th <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	2277	2469	
==>heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5754	5946	
==>heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mu <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4684	4876	
==>heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mu <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	12829	12925	
==>e if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elemen <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9605	9701	
==>e if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elemen <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12829	12925	
==>e if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elemen <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9605	9701	
==>e if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elemen <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17892	18045	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18823	18976	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18171	18324	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19102	19255	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3209	3318	
==>) {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3209	3318	
==>) {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3209	3318	
==>) {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5108	5210	
==>y $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$fo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13063	13165	
==>p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21113	21215	
==>p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5108	5210	
==>y $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$fo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5108	5210	
==>y $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$fo <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13342	13444	
==>p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21392	21494	
==>p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3034	3161	
==>if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $matches[0]{ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3555	3680	
==>if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2935	3060	
==>if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3555	3680	
==>if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	452	544	
==>change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	452	544	
==>change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($att <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	452	544	
==>change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($att <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9509	9626	
==>_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match = <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9497	9614	
==>_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match = <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37189	37284	
==>ation where the heading of one source relation is a
full subset of another, the result degenerat <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26137	26232	
==>or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of R <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41738	41833	
==>ation where the heading of one source relation is a
full subset of another, the result degenerat <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41361	41456	
==>ation where the heading of one source relation is a
full subset of another, the result degenerat <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26137	26232	
==>or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1702	1826	
==>"Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1702	1826	
==>"Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self- <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1702	1826	
==>"Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4674	4778	
==>erl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4674	4778	
==>erl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4674	4778	
==>erl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11728	11829	
==>exp struct.  Another
  hopefully unused part of the struct is overwritten with a flag
  value, so a re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7366	7515	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4925	5074	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7366	7515	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4925	5074	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7366	7515	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4925	5074	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $su <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	14662	14759	
==>e'll be instantiating it's type variables in the function body
	# for this reason the function nee <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6370	6511	
==>o        => $10,
        skipped     => $11,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	37	128	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	33	124	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	41	132	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	35	126	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	34	125	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	35	126	
==>use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	9748	9875	
==>nes->{$line} = 0 if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so le <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4493	4609	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7142	7258	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4718	4831	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11167	11280	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4718	4831	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11167	11280	
==>te $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort} <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5326	5417	
==>ator_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15508	15653	
==>LL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15508	15653	
==>LL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15508	15653	
==>LL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class: <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27826	27927	
==>s true if the flag is going to be turned on, and false if
it's going to be turned off.  For C<(?i-s)>, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4094	4188	
==>$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4094	4188	
==>$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4094	4188	
==>$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2658	2765	
==>to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2658	2765	
==>to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].co <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2658	2765	
==>to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].co <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1070	1170	
==>sts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string c <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1070	1170	
==>sts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string c <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1617	1717	
==>sts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string c <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9216	9313	
==>== 1024 * $initrd_size },
    using  => sub { system "dd", "if=/dev/zero", "of=$initrd_img", "bs=1 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12699	12850	
==>b {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12699	12850	
==>b {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-sl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12699	12850	
==>b {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-sl <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2859	2954	
==>authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modi <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3016	3111	
==>authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modi <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2859	2954	
==>authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modi <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3016	3111	
==>authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modi <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3593	3699	
==>e, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the di <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3593	3699	
==>e, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the di <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4468	4572	
==>e, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the di <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4468	4572	
==>e, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the di <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2611	2709	
==>CH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ma <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2611	2709	
==>CH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ma <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2611	2709	
==>CH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ma <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	675	781	
==>{
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/';
    my $_PERL6 <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6630	6726	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5760	5856	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2414	2510	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2414	2510	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6630	6726	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5760	5856	
==>);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) return <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1120	1218	
==>move header from output object; it gets in the way of the first test
$tb_output.output();

sub plan <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6454	6552	
==>rs to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may p <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1120	1218	
==>move header from output object; it gets in the way of the first test
$tb_output.output();

sub plan <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6454	6552	
==>rs to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6454	6552	
==>rs to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may p <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1200	1298	
==>move header from output object; it gets in the way of the first test
$tb_output.output();

sub plan <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34068	34162	
==>presented in Perl with a
look-ahead around the left-hand branch: C</(?=x)y/>.  We can expand th <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3619	3733	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6555	6669	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3619	3733	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6555	6669	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3619	3733	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6555	6669	
==>make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($ <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5222	5328	
==>ncores
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s- <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	490	636	
==>die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t$_\n";
    }
 
    ### show alternatives
    if( my $aref = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5425	5541	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8395	8511	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5425	5541	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8395	8511	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5425	5541	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8395	8511	
==>ms that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # sub <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	798	895	
==>(er).

# Bootstrap to a new, simpler, ast.  Regexp::Parser's
# Perl6::Rule::Parser does NOT look l <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	454	567	
==>meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	3259	3369	
==>aram<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3259	3369	
==>aram<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1497	1592	
==>o a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

Th <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1497	1592	
==>o a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

Th <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39653	39740	
==>n.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedTex <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39653	39740	
==>n.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedTex <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2900	3028	
==>sg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'K <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2900	3028	
==>sg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'K <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1914	2022	
==>_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_[3]->{match <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14469	14570	
==>at least $live_timeout seconds,
        # even though we've pinged the server (probably several times) <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14469	14570	
==>at least $live_timeout seconds,
        # even though we've pinged the server (probably several times) <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13510	13607	
==>at least $live_timeout seconds,
    # even though we've pinged the server (probably several times) <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13510	13607	
==>at least $live_timeout seconds,
    # even though we've pinged the server (probably several times) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13286	13402	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18169	18285	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13286	13402	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18169	18285	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13286	13402	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18169	18285	
==>the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _no <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	254	350	
==>le::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all(" <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	347	484	
==>tance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('%:slots', {} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	81	192	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	442	553	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	81	192	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	442	553	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	81	192	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	442	553	
==>string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3150	3261	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5951	6062	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3150	3261	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5951	6062	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3150	3261	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5951	6062	
==>tribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute' <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12373	12482	
==>/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	237	346	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	561	670	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	237	346	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	561	670	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	237	346	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	561	670	
==>broutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName = <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	3330	3435	
==>by util/PugsConfig.pm.
-}

{-|
    Pugs System Configuration.

>   Alive without breath;
>   as cold as de <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1283	1501	
==>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpo <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1283	1501	
==>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpo <==
7	/Users/nnunley/pugs/blib6/lib/Date.pm	4487	4586	
==>re available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns t <==
7	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4487	4586	
==>re available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns t <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29921	30014	
==>tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of St <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34473	34566	
==>tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of St <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33637	33730	
==>tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of St <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	859	1010	
==>Grammar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8840	8980	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8840	8980	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ ' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8840	8980	
==>:Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ ' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2291	2389	
==>Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2291	2389	
==>Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2291	2389	
==>Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaq <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7844	7987	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5403	5546	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7844	7987	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5403	5546	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7844	7987	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5403	5546	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1532	1675	
==>find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unle <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11795	11967	
==>kg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->reg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8261	8375	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5820	5934	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8261	8375	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5820	5934	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8261	8375	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5820	5934	
==>he head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3209	3324	
==>/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3209	3324	
==>/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3209	3324	
==>/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	1568	1676	
==>DING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $statu <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1568	1676	
==>DING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $statu <==
7	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	493	591	
==>ilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pi <==
7	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	493	591	
==>ilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10156	10259	
==>idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10156	10259	
==>idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10156	10259	
==>idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10842	10943	
==>idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10842	10943	
==>idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10842	10943	
==>idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24698	24783	
==>(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set_modifiers(E0,[],E0).
set_flag(E0,i,E1)  :- s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16567	16670	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21284	21387	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16567	16670	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21284	21387	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16567	16670	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21284	21387	
==>, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43357	43448	
==>RIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relati <==
7	/Users/nnunley/pugs/misc/S29_round.pl	917	1029	
==>above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6659	6754	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5789	5884	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2443	2538	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2443	2538	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6659	6754	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5789	5884	
==>tors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($ <==
7	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	865	962	
==>attern { <term>+? }

rule term { <comment> | <alternation> | <non_alternation> }

rule comment { \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7505	7657	
==>art + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7505	7657	
==>art + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7505	7657	
==>art + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	817	925	
==>become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	817	925	
==>become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	817	925	
==>become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14091	14185	
==>npacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  us <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1994	2089	
==>);
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1994	2089	
==>);
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1994	2089	
==>);
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrigh <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40378	40471	
==>date of any
changes, in addition to preserving this original copyright notice and other
credit <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25902	25995	
==>date of any changes, in
addition to preserving this original copyright notice and other credit <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40378	40471	
==>date of any
changes, in addition to preserving this original copyright notice and other
credit <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25902	25995	
==>date of any changes, in
addition to preserving this original copyright notice and other credit <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14804	14932	
==>turn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14798	14926	
==>turn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3791	3908	
==>=>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3791	3908	
==>=>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3791	3908	
==>=>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3230	3320	
==>$perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_pro <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3447	3537	
==>$perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_pro <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1367	1522	
==>ch = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1367	1522	
==>ch = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4916	5015	
==>alid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4916	5015	
==>alid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6440	6539	
==>alid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	380	475	
==>d1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
se <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	380	475	
==>d1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
se <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	4065	4334	
==>= qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	698	795	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1218	1315	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	698	795	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1218	1315	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	698	795	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1218	1315	
==>ar array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9621	9740	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12594	12713	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9621	9740	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12594	12713	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9621	9740	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12594	12713	
==>ds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use b <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13503	13618	
==>line =~ /^1\.\.(\d+)(.*)/ ) {
        $self->{max}  = $max;
        assert( $self->{max} >= 0,  'Max # of tests look <==
7	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2081	2204	
==>string !! $.count }
        multi method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5805	5900	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8775	8870	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5805	5900	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8775	8870	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5805	5900	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8775	8870	
==>_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method') <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1409	1511	
==>nshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1409	1511	
==>nshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map( <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1409	1511	
==>nshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map( <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	11874	11967	
==>emoved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.e <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9021	9114	
==>emoved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.e <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11874	11967	
==>emoved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.e <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9021	9114	
==>emoved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25502	25634	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27697	27829	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25502	25634	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27697	27829	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25502	25634	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27697	27829	
==>) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numif <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39236	39356	
==>ific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character classes are not returned al <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	533	631	
==>ep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1078	1176	
==>ep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	533	631	
==>ep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1078	1176	
==>ep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1078	1176	
==>ep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	53	146	
==>t::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	53	146	
==>t::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6975	7093	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9945	10063	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6975	7093	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9945	10063	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6975	7093	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9945	10063	
==>od || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. Thi <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2014	2124	
==>>from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6537	6641	
==>\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6537	6641	
==>\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHO <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6537	6641	
==>\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHO <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	198	302	
==>ompiler::Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14944	15044	
==>);
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14944	15044	
==>);
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14944	15044	
==>);
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	228	329	
==>y Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_G <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	228	329	
==>y Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_G <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	10033	10131	
==>_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self. <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10033	10131	
==>_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self. <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	26426	26518	
==>rojection of
each tuple), but that any duplicates following the projection have been
eliminat <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30978	31070	
==>rojection of
each tuple), but that any duplicates following the projection have been
eliminat <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29980	30072	
==>rojection of
each tuple), but that any duplicates following the projection have been
eliminat <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	668	768	
==>n't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) r <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	668	768	
==>n't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) r <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3829	3929	
==>$args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !defined $args->{invoca <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8897	8990	
==>ight (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3826	3919	
==>ight (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8897	8990	
==>ight (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3826	3919	
==>ight (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	974	1127	
==>'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	974	1127	
==>'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16696	16820	
==>urn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shif <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18122	18246	
==>urn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shif <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24741	24865	
==>urn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shif <==
7	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1172	1270	
==>eturn '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', su <==
7	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1172	1270	
==>eturn '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8206	8322	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5765	5881	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8206	8322	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5765	5881	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8206	8322	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5765	5881	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1894	2010	
==>w loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@n <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1255	1407	
==>meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6731	6839	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9701	9809	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6731	6839	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9701	9809	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6731	6839	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9701	9809	
==>:make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method-> <==
7	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1853	1962	
==>e.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->clo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12444	12547	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9995	10098	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12444	12547	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9995	10098	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12444	12547	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9995	10098	
==>, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12110	12316	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12882	13088	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12110	12316	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12882	13088	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12110	12316	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12882	13088	
==>x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6069	6191	
==>} ||= [];
}

sub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9468	9577	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7015	7124	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9468	9577	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7015	7124	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9468	9577	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7015	7124	
==>dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dis <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1234	1340	
==>lf->package( $self->meta->package );
    
    return $self;
}

1;

# Local variables:
# c-indentation-style <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	721	820	
==>tiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Cod <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	721	820	
==>tiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Cod <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	721	820	
==>tiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Cod <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6002	6100	
==>lti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5132	5230	
==>lti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6002	6100	
==>lti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *inf <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5132	5230	
==>lti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *inf <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14930	15038	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12184	12292	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14930	15038	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12184	12292	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14930	15038	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12184	12292	
==>attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'P <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23265	23365	
==>red, the top
value is copied and pushed onto the stack.  When a scope is left, the
top value is poppe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9337	9460	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12310	12433	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9337	9460	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12310	12433	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9337	9460	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12310	12433	
==>ateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = (' <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15506	15617	
==>t(anyof_class => xdigit => $neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10033	10166	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7584	7717	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10033	10166	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7584	7717	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10033	10166	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7584	7717	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # g <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1053	1170	
==>native;
    # we take the MRO first, however at some early
    # stages of the bootstrap, this is not yet 
    # popul <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8874	8980	
==>y $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8874	8980	
==>y $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8874	8980	
==>y $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17218	17316	
==>6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17218	17316	
==>6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classe <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17218	17316	
==>6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classe <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8	101	
==>in/perl

package P6RulesInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use warnings <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7388	7535	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4947	5094	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7388	7535	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4947	5094	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7388	7535	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4947	5094	
==>eqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs <==
7	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1412	1523	
==>r($5),    :minute($6), :second( $second ),
          :tz($tz) );
}

# convert from a unix time_t
multi sub time_ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1635	1733	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4798	4896	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	528	626	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2147	2245	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1018	1116	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1188	1286	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1241	1339	
==>>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () return <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8721	8885	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14446	14610	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8721	8885	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14440	14604	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13971	14127	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13965	14121	
==>md = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19336	19428	
==>umented the problem with using F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Ch <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	2828	2936	
==>n ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2828	2936	
==>n ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7250	7354	
==>::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7250	7354	
==>::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7250	7354	
==>::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9602	9697	
==>thod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9602	9697	
==>thod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	10966	11100	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12437	12571	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14443	14577	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15914	16048	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13751	13885	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15276	15410	
==>new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0 <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	443	549	
==>ues;
    while (my ($key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key->isa('type') <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4473	4582	
==>ype;
		my $return_type = pop @context;

		warn "Unifying paramter types with thunk prototype in $app";

		my $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21332	21441	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22453	22562	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23016	23125	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17753	17862	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18874	18983	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19437	19546	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2 <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	995	1100	
==>rks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.par <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	995	1100	
==>rks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.par <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4941	5035	
==>mporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4941	5035	
==>mporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4941	5035	
==>mporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@ <==
7	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3545	3636	
==>Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3545	3636	
==>Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5709	5818	
==>m => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	59	164	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	420	525	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	59	164	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	420	525	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	59	164	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	420	525	
==>overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub match <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3155	3276	
==>{ $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Ty <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3701	3822	
==>{ $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Ty <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	901	1007	
==>xtra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	901	1007	
==>xtra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1) <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	901	1007	
==>xtra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1) <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13589	13688	
==>_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { $as_array_complai <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11576	11668	
==>.
p5_comment_body([])    --> {true}.

p6_comment --> "#", rest_of_line(_).
rest_of_line([10]) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36549	36668	
==>ist( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36549	36668	
==>ist( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array- <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36549	36668	
==>ist( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8948	9063	
==>Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	682	797	
==>Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8948	9063	
==>Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8948	9063	
==>Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	2192	2305	
==>, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pr <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	2587	2700	
==>, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pr <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2250	2363	
==>, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pr <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2645	2758	
==>, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13633	13719	
==>t with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13633	13719	
==>t with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13633	13719	
==>t with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10393	10499	
==>nk, trimmed switches from the parms passed.

=cut

sub _cleaned_switches {
    my $self = shift;

    local <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	702	802	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	702	802	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	702	802	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing in <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	89	188	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	89	188	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing in <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	89	188	
==>S.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing in <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7274	7396	
==>example

    # adds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            be <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7027	7146	
==>example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2972	3079	
==>my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == & <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2972	3079	
==>my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == & <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2972	3079	
==>my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == & <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3143	3238	
==>tr $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) r <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3143	3238	
==>tr $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) r <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4754	4870	
==>{ push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@dat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13179	13295	
==>{ push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@dat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15790	15906	
==>{ push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@dat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17278	17394	
==>{ push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@dat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21961	22077	
==>{ push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@dat <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21213	21309	
==>a's most prominant feature is that it provides a
common API for access to those databases, each o <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21213	21309	
==>a's most prominant feature is that it provides a
common API for access to those databases, each o <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	2858	2990	
==>"output-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoke <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9808	9920	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7357	7469	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9808	9920	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7357	7469	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9808	9920	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7357	7469	
==>od(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$coun <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	19001	19120	
==>t "Confused test output: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_han <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2832	2937	
==>e = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2832	2937	
==>e = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2832	2937	
==>e = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2297	2400	
==>e = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2297	2400	
==>e = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2297	2400	
==>e = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } e <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4613	4744	
==>b data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13038	13169	
==>b data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15649	15780	
==>b data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17137	17268	
==>b data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21820	21951	
==>b data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2493	2618	
==>";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compi <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2710	2835	
==>";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9281	9409	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12254	12382	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9281	9409	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12254	12382	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9281	9409	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12254	12382	
==>ckage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26402	26498	
==>PT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILET <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6481	6607	
==>ve {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6481	6607	
==>ve {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6481	6607	
==>ve {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, <==
7	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	733	840	
==>$.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.e <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	733	840	
==>$.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.e <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13485	13580	
==>ated lazily. This means that side effects, such as "say" and
database queries, may occur much la <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13485	13580	
==>ated lazily. This means that side effects, such as "say" and
database queries, may occur much la <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7594	7729	
==>wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11935	12070	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2396	2526	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9168	9298	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7338	7468	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2396	2526	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9168	9298	
==>wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1545	1738	
==>return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' = <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1545	1738	
==>return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' = <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3059	3224	
==>'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3059	3224	
==>'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) ) <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3059	3224	
==>'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) ) <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10026	10116	
==>the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10026	10116	
==>the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2080	2191	
==>ggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	394	505	
==>ggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2080	2191	
==>ggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2080	2191	
==>ggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	368	469	
==>lf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	368	469	
==>lf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	368	469	
==>lf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	9008	9234	
==>ion        
        
        my %test = (
                    ok          => $results{ok},
                    'next'      => $Strap->{'next'},
                    max         => $results{max},
                    failed      = <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1730	1829	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1730	1829	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1730	1829	
==>{ JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.p <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	510	606	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	510	606	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	510	606	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.p <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4059	4204	
==>ex]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5380	5525	
==>ex]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4059	4204	
==>ex]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5368	5513	
==>ex]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6280	6374	
==>_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6280	6374	
==>_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6280	6374	
==>_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  s <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13757	13881	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14131	14255	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13757	13881	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14131	14255	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13757	13881	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14131	14255	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/o <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1234	1344	
==>xity => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'na <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1058	1183	
==>tart_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_op <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4297	4422	
==>tart_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_op <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1058	1183	
==>tart_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_op <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4297	4422	
==>tart_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_op <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	523	636	
==>s->{arity},
		name => $params->{name},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %b <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4362	4467	
==>$p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural i <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4362	4467	
==>$p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural i <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7409	7521	
==>{ print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11744	11856	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2225	2336	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8997	9108	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7159	7270	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2225	2336	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8997	9108	
==>{ print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "n <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10293	10444	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7844	7995	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10293	10444	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7844	7995	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10293	10444	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7844	7995	
==>t_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that ite <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2668	2770	
==>stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8229	8356	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5788	5915	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8229	8356	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5788	5915	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8229	8356	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5788	5915	
==>empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26111	26211	
==>g against the regex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14715	14891	
==>st ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14715	14891	
==>st ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = sh <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14715	14891	
==>st ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = sh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1379	1474	
==>tant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1379	1474	
==>tant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1379	1474	
==>tant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLO <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28244	28330	
==>olog::Yaswi::swi_toplevel;

__END__
% :- use_module(library(time)). call_with_time_limi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20403	20528	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17542	17667	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20403	20528	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17542	17667	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20403	20528	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17542	17667	
==>way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13588	13684	
==>ent whose key matches C<$key>, false
otherwise.

An unary form is expected. See Hash::delete


=i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	37	138	
==>t emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	37	138	
==>t emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code l <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	37	138	
==>t emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3830	3929	
==>s pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3830	3929	
==>s pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of th <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3830	3929	
==>s pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of th <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4178	4264	
==>tp://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/perl6/doc/synop <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10790	10917	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10790	10917	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10790	10917	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $ <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1228	1328	
==>\B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__object__ );
  p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	921	1018	
==>affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	921	1018	
==>affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	921	1018	
==>affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10165	10297	
==>>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10165	10297	
==>>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapp <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10165	10297	
==>>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4882	4986	
==>e $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4882	4986	
==>e $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = < <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4882	4986	
==>e $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = < <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16885	16985	
==>mar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6090	6289	
==>rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                d <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6090	6289	
==>rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                d <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6090	6289	
==>rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5511	5616	
==>e->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5511	5616	
==>e->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    " <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5511	5616	
==>e->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    " <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10109	10200	
==>ode::non_capturing_subrule {
    return "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negate <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10779	10982	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8330	8533	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10779	10982	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8330	8533	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10779	10982	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8330	8533	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}) <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17261	17364	
==>n_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    local <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3307	3454	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8592	8739	
==>hift;



    # XXX - needs optimization for faster backtracking, less stack usage



    return sub {

        my $tail =  $_[0];

        my $state <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3568	3709	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9986	10127	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8291	8432	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3568	3709	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9986	10127	
==>hift;

    # XXX - needs optimization for faster backtracking, less stack usage

    return sub {
        my $tail =  $_[0];
        my $state <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7331	7502	
==>b { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7331	7502	
==>b { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7331	7502	
==>b { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= <==
7	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	123	221	
==>it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outs <==
7	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	123	221	
==>it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outs <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	123	221	
==>it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outs <==
7	/Users/nnunley/pugs/util/src_to_blib.pl	123	221	
==>it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outs <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6079	6179	
==>ift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package Regexp::Pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6605	6703	
==>om, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6605	6703	
==>om, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6605	6703	
==>om, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7495	7585	
==>ta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7495	7585	
==>ta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7495	7585	
==>ta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2327	2443	
==>thority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2327	2443	
==>thority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) e <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2327	2443	
==>thority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) e <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	8165	8258	
==>ti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub * <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7295	7388	
==>ti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub * <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8165	8258	
==>ti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub * <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7295	7388	
==>ti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub * <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9554	9670	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7101	7217	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9554	9670	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7101	7217	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9554	9670	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7101	7217	
==>cendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupport <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1897	1996	
==>ub captures {
  my ($self, $n) = @_;
  $self->parse if $self->{stack};
  return $self->{captures}[-- <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14005	14154	
==>}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13074	13213	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13074	13213	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13074	13213	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5314	5453	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3814	3953	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1959	2098	
==>< 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2487	2592	
==>ists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&Array::pop := &Array::splice.assu <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1740	1870	
==>r( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refe <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2483	2613	
==>r( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1740	1870	
==>r( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refe <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2471	2601	
==>r( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refe <==
7	/Users/nnunley/pugs/blib6/lib/Test.pm	12535	12636	
==>en pass the result to is or ok
on success, or report that the eval was not successful on failure.

- ` <==
7	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12593	12694	
==>en pass the result to is or ok
on success, or report that the eval was not successful on failure.

- ` <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4539	4639	
==>rig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($node->or <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7987	8106	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10910	11029	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7987	8106	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10910	11029	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7987	8106	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10910	11029	
==>'Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15593	15709	
==>$thunk->val));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = sh <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	104	217	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	465	578	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	104	217	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	465	578	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	104	217	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	465	578	
==>s { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_t <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1246	1353	
==>le = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code = <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1893	2003	
==>hunk;
    use base 'Blondie::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    p <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25177	25273	
==>urn the same
result and/or make the same change to an object when the permutation of its
argument <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11308	11404	
==>urn the same
result and/or make the same change to an object when the permutation of its
argument <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14581	14677	
==>urn the same result and/or make the same change
to an object when the permutation of its argument <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25177	25273	
==>urn the same
result and/or make the same change to an object when the permutation of its
argument <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11308	11404	
==>urn the same
result and/or make the same change to an object when the permutation of its
argument <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14581	14677	
==>urn the same result and/or make the same change
to an object when the permutation of its argument <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3145	3287	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetch <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3145	3287	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetch <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3145	3287	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetch <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2375	2503	
==>tSlurpy',
  'type' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4641	4743	
==>s] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4641	4743	
==>s] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4641	4743	
==>s] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25533	25644	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27728	27839	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25533	25644	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27728	27839	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25533	25644	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27728	27839	
==>ings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self-> <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7554	7661	
==>package Regexp::Parser::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o->visual();
    if($o->{'flags'} & <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3745	3901	
==>{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# in <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3992	4140	
==>{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# in <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10441	10589	
==>{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# in <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3992	4140	
==>{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# in <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10441	10589	
==>{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# in <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13760	13876	
==>= $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $ <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1240	1356	
==>= $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1270	1390	
==>tet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+--------- <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3566	3686	
==>tet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+--------- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1270	1390	
==>tet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+--------- <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3566	3686	
==>tet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+--------- <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3326	3420	
==>running those tests, and then telling this module to compare the received
output to the expecte <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3326	3420	
==>running those tests, and then telling this module to compare the received
output to the expecte <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3406	3500	
==>running those tests, and then telling this module to compare the received
output to the expecte <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	706	850	
==>otocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $! <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	706	850	
==>otocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $! <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11778	11898	
==>cScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9083	9199	
==>fset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @cl <==
7	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9083	9199	
==>fset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @cl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	219	316	
==>s::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	219	316	
==>s::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4509	4609	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7445	7545	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4509	4609	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7445	7545	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4509	4609	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7445	7545	
==>(defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad me <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12738	12834	
==>ning and error messages.  Their values are all
negative; positive values are left available for e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	974	1101	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1062	1189	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	974	1101	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1062	1189	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	974	1101	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1062	1189	
==>s
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13039	13138	
==>do} >> and if the whole test was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Reg <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4326	4445	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6975	7094	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4555	4671	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11004	11120	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4555	4671	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11004	11120	
==>s::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retur <==
7	/Users/nnunley/pugs/util/build_pugs.pl	94	187	
==>le::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %Bui <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8564	8705	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11537	11678	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8564	8705	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11537	11678	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8564	8705	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11537	11678	
==>ind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls wit <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	638	757	
==>placement);
		}
	}

    return $self->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $clas <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22491	22601	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_han <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23054	23164	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_han <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18912	19022	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_han <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19475	19585	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_han <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5659	5760	
==>E

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event:: <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5659	5760	
==>E

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event:: <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	885	978	
==>plicateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($program);

=head1 DESCRIPTI <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8019	8162	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5578	5721	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8019	8162	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5578	5721	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8019	8162	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5578	5721	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1707	1850	
==>ith our canidate ...
            $cand = undef;        # otherwise, reject it ...
        }
        confess "Inconsistent hierarchy" if not $can <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12456	12589	
==>eturn join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2832	2955	
==>eturn join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2832	2955	
==>eturn join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2676	2786	
==>s position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2676	2786	
==>s position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2676	2786	
==>s position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3679	3775	
==>::Compiler::Rule> should fix the problem.

- The perl5 executable must have PMC support. 

PMC su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	162	267	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	157	262	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	162	267	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	157	262	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	162	267	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	157	262	
==>->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0 <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2402	2501	
==>($name) == $bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") already exi <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	82	184	
==>r gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	82	184	
==>r gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	82	184	
==>r gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39393	39485	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTex <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5128	5220	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTex <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39393	39485	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTex <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5128	5220	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTex <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	82	191	
==>piler::Rule;
use base qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no s <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7160	7260	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6290	6390	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2944	3044	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2944	3044	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7160	7260	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6290	6390	
==>) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with n <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	312	428	
==>ort;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	518	634	
==>ort;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1265	1367	
==>e no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our pri <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1265	1367	
==>e no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our pri <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20574	20672	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20574	20672	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20574	20672	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($x <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3990	4099	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6639	6748	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4228	4334	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10677	10783	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4228	4334	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10677	10783	
==>turn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs:: <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2425	2521	
==>n1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSpl <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17276	17429	
==>t( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{' <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23242	23395	
==>t( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17555	17708	
==>t( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23521	23674	
==>t( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{' <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33018	33112	
==>re in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C< <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37568	37662	
==>re in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C< <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36912	37006	
==>re in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C< <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5396	5514	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8366	8484	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5396	5514	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8366	8484	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5396	5514	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8366	8484	
==>on in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcode <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34372	34465	
==>d to
write the supporting class for the F<Regexp::AndBranch::and> object it
creates!

A method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12101	12307	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12873	13079	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12101	12307	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12873	13079	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12101	12307	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12873	13079	
==>de->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @re <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1488	1594	
==>d has a type (C<Val>).

=item List

A list is a a node with multiple children.

C<App> is a type of value - <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	212	316	
==>se namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	212	316	
==>se namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bl <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	212	316	
==>se namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bl <==
7	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	16	116	
==>a;

use strict;
use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13385	13482	
==>$xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13385	13482	
==>$xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($x <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13385	13482	
==>$xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($x <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29713	29840	
==>e {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # modu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29713	29840	
==>e {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # modu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	509	620	
==>e {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	573	684	
==>e {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	445	541	
==>n;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	445	541	
==>n;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	445	541	
==>n;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1958	2082	
==>il} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$mat <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1958	2082	
==>il} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$mat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13964	14073	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(ma <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13964	14073	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(ma <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13964	14073	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(ma <==
7	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3727	3820	
==>is is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform POD <==
7	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3727	3820	
==>is is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform POD <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38859	38962	
==>n the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closure <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38859	38962	
==>n the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closure <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38859	38962	
==>n the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closure <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6165	6262	
==>ubset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supers <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5295	5392	
==>ubset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supers <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6165	6262	
==>ubset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supers <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5295	5392	
==>ubset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supers <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21146	21311	
==>eturns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17902	18053	
==>eturns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41170	41318	
==>eturns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class- <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44070	44218	
==>eturns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4034	4141	
==>}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4034	4141	
==>}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{ <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4034	4141	
==>}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18382	18503	
==>%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispat <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21641	21762	
==>%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispat <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41647	41768	
==>%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispat <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44548	44669	
==>%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispat <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2867	2982	
==>tput => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2867	2982	
==>tput => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4391	4506	
==>tput => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4287	4381	
==>es the receivied and expected lines from the previously run tests,
passing if both the diagnost <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4287	4381	
==>es the receivied and expected lines from the previously run tests,
passing if both the diagnost <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4367	4461	
==>es the receivied and expected lines from the previously run tests,
passing if both the diagnost <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9304	9391	
==>:operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullar <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9499	9586	
==>:operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullar <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	9694	9781	
==>:operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullar <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	11350	11437	
==>:operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullar <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11884	12018	
==>$to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($r <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11884	12018	
==>$to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($r <==
7	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1234	1340	
==>pec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script) <==
7	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1234	1340	
==>pec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9389	9494	
==>am'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9389	9494	
==>am'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{' <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9389	9494	
==>am'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4521	4633	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2733	2845	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4521	4633	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2733	2845	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4521	4633	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2733	2845	
==>e are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pas <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15377	15464	
==>RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pat,Re) : <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14802	14941	
==><disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14802	14941	
==><disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	372	508	
==>fy ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	372	508	
==>fy ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	29910	30002	
==>having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<ma <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34462	34554	
==>having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<ma <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33626	33718	
==>having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<ma <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18662	18824	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15900	16062	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18662	18824	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15900	16062	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18662	18824	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15900	16062	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::op <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	19303	19412	
==>,
	),
);

# if we don't know what symbol it is we can't type it
my $no_such_sym = fun(
	param => "x",
	body => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9121	9251	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12094	12224	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9121	9251	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12094	12224	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9121	9251	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12094	12224	
==>:ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6:: <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5833	5928	
==>}
multi sub ToNumber(JSX::Value::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1773	1884	
==>ew_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1773	1884	
==>ew_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1773	1884	
==>ew_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppo <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2619	2727	
==>code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2619	2727	
==>code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2619	2727	
==>code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8390	8477	
==>oo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::singleton_te <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9134	9280	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12107	12253	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9134	9280	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12107	12253	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9134	9280	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12107	12253	
==>6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        pa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11274	11362	
==>... instance calling metaclass method fails';
fails_ok { $iBar->another_singleton_test_on <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10600	10729	
==>e( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11062	11191	
==>e( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10594	10723	
==>e( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11056	11185	
==>e( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[ <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9637	9750	
==>red.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, so it will no <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33497	33591	
==>ach Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33497	33591	
==>ach Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	14100	14198	
==>($$) }
comb: generic($$) = { generic($.fun) + generic($.param) }

comb: type($$) = {
	my $f = type( <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25157	25253	
==>ethods will each return the same
result and/or make the same change to an object when the permuta <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11288	11384	
==>ethods will each return the same
result and/or make the same change to an object when the permuta <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14561	14657	
==>ethods will each return the same result and/or make the same change
to an object when the permuta <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25157	25253	
==>ethods will each return the same
result and/or make the same change to an object when the permuta <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11288	11384	
==>ethods will each return the same
result and/or make the same change to an object when the permuta <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14561	14657	
==>ethods will each return the same result and/or make the same change
to an object when the permuta <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4788	4894	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4788	4894	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5378	5484	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5333	5438	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5333	5438	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5923	6028	
==>= @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2526	2611	
==>() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4868	4973	
==>> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMult <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4868	4973	
==>> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMult <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4868	4973	
==>> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMult <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40278	40372	
==>t you modify and distribute must carry
prominent notices stating that you changed the files and <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25802	25896	
==>t you modify and distribute must carry prominent
notices stating that you changed the files and <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40278	40372	
==>t you modify and distribute must carry
prominent notices stating that you changed the files and <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25802	25896	
==>t you modify and distribute must carry prominent
notices stating that you changed the files and <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7847	7992	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5406	5551	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7847	7992	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5406	5551	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7847	7992	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5406	5551	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1535	1680	
==>d one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$cand};      
            }
            last unless $n <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1296	1393	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1552	1649	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2063	2160	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3083	3180	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3834	3931	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4078	4175	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4323	4420	
==>t {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	894	1017	
==>eturns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub r <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3462	3573	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12020	12131	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6587	6698	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3462	3573	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12020	12131	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6587	6698	
==>h_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPT <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8716	8863	
==>/ (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8716	8863	
==>/ (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8716	8863	
==>/ (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7191	7322	
==>n $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` cla <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7191	7322	
==>n $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` cla <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9815	9908	
==>can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with un <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9815	9908	
==>can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with un <==
7	/Users/nnunley/pugs/examples/golf/tsanta.pl	2505	2629	
==>---

sub CheckHead {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  " <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3057	3172	
==>endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3057	3172	
==>endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Clas <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3057	3172	
==>endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Clas <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1603	1717	
==>ional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    r <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15031	15145	
==>oncat cname, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newfr <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1603	1717	
==>ional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    r <==
7	/Users/nnunley/pugs/util/addauthors.pl	564	694	
==>authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hurest <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5753	5863	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8723	8833	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5753	5863	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8723	8833	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5753	5863	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8723	8833	
==>ion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($met <==
7	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14353	14463	
==>self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $se <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1833	1943	
==>self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $se <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14917	15013	
==>ay.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3997	4093	
==>s;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retc <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14917	15013	
==>ay.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3997	4093	
==>s;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retc <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3997	4093	
==>s;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6651	6784	
==>s Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieab <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6651	6784	
==>s Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieab <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6651	6784	
==>s Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieab <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7944	8068	
==>rn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13538	13662	
==>rn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7944	8068	
==>rn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13532	13656	
==>rn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix e <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	988	1100	
==>ed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1215	1327	
==>ed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return n <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1442	1554	
==>ed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return n <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6029	6137	
==>e here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operato <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6419	6527	
==>e here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operato <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	74	169	
==>o leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an aut <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	74	169	
==>o leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an aut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13633	13813	
==>ms}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descripti <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13633	13813	
==>ms}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descripti <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13633	13813	
==>ms}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descripti <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8712	8839	
==>n(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(st <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2101	2206	
==>..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2101	2206	
==>..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2101	2206	
==>..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13195	13301	
==>force launder everything for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "t <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12276	12390	
==>$stdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{) <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6832	6927	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5962	6057	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2616	2711	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2616	2711	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6832	6927	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5962	6057	
==>.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.include <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	464	903	
==>F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	464	903	
==>F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2133	2242	
==>method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2133	2242	
==>method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5111	5202	
==>the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5111	5202	
==>the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6635	6726	
==>the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	35917	36013	
==>e names
and corresponding common tuple values are aligned and merged.  The heading
of the new rel <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	37660	37756	
==>e names and corresponding common tuple values
are aligned and merged.  The heading of the new rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40467	40563	
==>e names
and corresponding common tuple values are aligned and merged.  The heading
of the new rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42209	42305	
==>e names and corresponding common tuple values
are aligned and merged.  The heading of the new rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40081	40177	
==>e names
and corresponding common tuple values are aligned and merged.  The heading
of the new rel <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41859	41955	
==>e names and corresponding common tuple values
are aligned and merged.  The heading of the new rel <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21793	21880	
==>class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20101	20232	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17240	17371	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20101	20232	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17240	17371	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20101	20232	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17240	17371	
==>re added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7498	7609	
==>s = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params->[0])) { # an array of strings
	my @p = map <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3496	3592	
==>"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
i <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3802	3898	
==>"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
i <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4501	4597	
==>varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Cod <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3496	3592	
==>"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
i <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3802	3898	
==>"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4501	4597	
==>varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Cod <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4501	4597	
==>varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Cod <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7431	7565	
==>able: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variabl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11766	11900	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2247	2378	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9019	9150	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7181	7312	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2247	2378	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9019	9150	
==>able: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variabl <==
7	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	864	982	
==>ined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    } <==
7	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	606	724	
==>ined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    } <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	864	982	
==>ined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    } <==
7	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	606	724	
==>ined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    } <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5868	5968	
==>r::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test: <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5868	5968	
==>r::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test: <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7392	7492	
==>r::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test: <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14035	14174	
==>arn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13312	13438	
==>ff if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13312	13438	
==>ff if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13312	13438	
==>ff if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $ <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2197	2323	
==>ff if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $ <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10986	11083	
==>it warnings during the execution of some methods, 
because it will try to iterate to find a "compl <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10986	11083	
==>it warnings during the execution of some methods, 
because it will try to iterate to find a "compl <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1663	1773	
==>lessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16687	16795	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13892	14000	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16687	16795	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13892	14000	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16687	16795	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13892	14000	
==>{   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3485	3626	
==>op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8770	8910	
==>op => $node };

        my $flags = $_[2];



        # XXX - didn't work

        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3740	3877	
==>op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10158	10295	
==>op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3740	3877	
==>op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10158	10295	
==>op => $node };
        #my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8463	8599	
==>op => $node };
        my $flags = $_[2];

        # XXX - didn't work
        # my $match = $state->{op}->( $tail, $state->{state}, $fla <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1946	2066	
==>= __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $sy <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15417	15529	
==>lasses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15417	15529	
==>lasses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15417	15529	
==>lasses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10231	10333	
==>return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10231	10333	
==>return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10231	10333	
==>return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cl <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	16602	16762	
==>for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20079	20239	
==>for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19639	19799	
==>for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9257	9376	
==>ss $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::al <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4473	4582	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::R <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4473	4582	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::R <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4473	4582	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::R <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1084	1213	
==>( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    retu <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1040	1163	
==>( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    retu <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2067	2174	
==>ceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2067	2174	
==>ceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2067	2174	
==>ceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17514	17608	
==>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
s <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17514	17608	
==>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7848	8009	
==>non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7848	8009	
==>non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7848	8009	
==>non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    ret <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5237	5386	
==>ar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         ne <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5237	5386	
==>ar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         ne <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2483	2596	
==>\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  retu <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2483	2596	
==>\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  retu <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1294	1446	
==>end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_ <==
7	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4533	4685	
==>end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1294	1446	
==>end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4533	4685	
==>end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3107	3228	
==>w PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3107	3228	
==>w PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") { <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3107	3228	
==>w PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19178	19289	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16416	16527	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19178	19289	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16416	16527	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19178	19289	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16416	16527	
==>becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    } <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13518	13626	
==>t . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne " <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	639	757	
==>print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	638	756	
==>print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	639	757	
==>print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	638	756	
==>print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg <==
7	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4783	4879	
==>et1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_ <==
7	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4783	4879	
==>et1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_ <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	6860	6981	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	7621	7742	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	8491	8612	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10337	10458	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11098	11219	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11968	12089	
==>the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21036	21145	
==>1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padarray
    self["isarray <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4331	4432	
==>ulti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diffe <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3458	3559	
==>ulti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diffe <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4331	4432	
==>ulti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diffe <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3458	3559	
==>ulti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diffe <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6707	6806	
==>s is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6707	6806	
==>s is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  s <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6707	6806	
==>s is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7755	7916	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5314	5475	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7755	7916	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5314	5475	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7755	7916	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5314	5475	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1443	1604	
==>matching
                # there is no reason not too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && la <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3764	3872	
==>bj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14219	14328	
==>ed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14219	14328	
==>ed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14219	14328	
==>ed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num:: <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3864	3971	
==>:PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vt <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4197	4304	
==>:PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vt <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3864	3971	
==>:PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vt <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4197	4304	
==>:PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7362	7510	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4921	5069	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7362	7510	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4921	5069	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7362	7510	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4921	5069	
==>oreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach m <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1825	1914	
==>"term:<+[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:{{", "term:", <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7513	7627	
==>.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7513	7627	
==>.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7513	7627	
==>.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	39031	39130	
==>e it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

=c <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43845	43944	
==>e it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

=c <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21120	21211	
==>Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Roset <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21120	21211	
==>Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Roset <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	4572	4696	
==>ds an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_o <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	5231	5355	
==>ds an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_o <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4572	4696	
==>ds an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_o <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5231	5355	
==>ds an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_o <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3539	3636	
==>pDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixed <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3539	3636	
==>pDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixed <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3539	3636	
==>pDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixed <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2826	3004	
==>= () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_co <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2826	3004	
==>= () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_co <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1662	1787	
==>_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1650	1775	
==>_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21234	21337	
==>map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB d <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21234	21337	
==>map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB d <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21234	21337	
==>map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB d <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11655	11777	
==>>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11655	11777	
==>>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11655	11777	
==>>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1667	1779	
==>",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1667	1779	
==>",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "n <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1667	1779	
==>",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "n <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2845	2942	
==>A precompiled (but most of the time outdated) image is available at
      http://m19s28.vlinux.de/ <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25600	25696	
==>ble says how many characters back from
 * where regmust matched is the earliest possible start of <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7022	7167	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4581	4726	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7022	7167	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4581	4726	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7022	7167	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4581	4726	
==>ivate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4104	4201	
==>tion = $matchObj->position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $pos <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7023	7140	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9993	10110	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7023	7140	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9993	10110	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7023	7140	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9993	10110	
==>e method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the pr <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3901	4009	
==>tore {
    my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa('symbol'))
        || confess <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13346	13451	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10630	10735	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13346	13451	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10630	10735	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13346	13451	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10630	10735	
==>eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21246	21339	
==>sertion;
  push @ISA, qw( Regexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3387	3497	
==>odel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (aut <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	287	397	
==>'g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3387	3497	
==>odel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (aut <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3387	3497	
==>odel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (aut <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2036	2127	
==>ll::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2036	2127	
==>ll::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0] <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2036	2127	
==>ll::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0] <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8748	8872	
==>ous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closu <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8748	8872	
==>ous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closu <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23577	23694	
==>});

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    p <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19998	20115	
==>});

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2822	2917	
==>sif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2822	2917	
==>sif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is} <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2822	2917	
==>sif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is} <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11376	11544	
==>uto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $m <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11376	11544	
==>uto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $m <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11376	11544	
==>uto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $m <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7202	7324	
==>urn $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2202	2306	
==>'t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2202	2306	
==>'t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2202	2306	
==>'t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1535	1672	
==>ow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // De <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1535	1672	
==>ow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // De <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1535	1672	
==>ow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // De <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1706	1828	
==>will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1706	1828	
==>will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_ins <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1706	1828	
==>will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_ins <==
7	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3962	4066	
==>> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc is the first script to ru <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	119	367	
==>dText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
m <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	119	367	
==>dText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
m <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12446	12612	
==>.
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12440	12606	
==>.
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3707	3822	
==>onfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3707	3822	
==>onfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3707	3822	
==>onfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mus <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4434	4544	
==>_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4434	4544	
==>_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      r <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4434	4544	
==>_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      r <==
7	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13779	13885	
==>ring, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is export <==
7	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13779	13885	
==>ring, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is export <==
7	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	886	986	
==>ote "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Per <==
7	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	886	986	
==>ote "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Per <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7596	7752	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5155	5311	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7596	7752	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5155	5311	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7596	7752	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5155	5311	
==>n"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find on <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14390	14487	
==>%transtable{$_} // $_ }, self.split('');
    }
}


sub Pugs::Internals::but_block ($obj, Code $cod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1266	1370	
==>opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1266	1370	
==>opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1266	1370	
==>opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6193	6286	
==>Name};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /im <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6193	6286	
==>Name};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /im <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6193	6286	
==>Name};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /im <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7233	7339	
==>implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule opera <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3465	3558	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6479	6572	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8547	8640	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3465	3558	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6479	6572	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8547	8640	
==>e_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5030	5166	
==>$self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5030	5166	
==>$self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  } <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5030	5166	
==>$self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  } <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2497	2605	
==>y exists";
    return $self->[2]->store($name, $nil::NIL);    
}

1;

__END__

=pod

=head1 NAME

opaque - th <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1627	1726	
==>is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encip <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1627	1726	
==>is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encip <==
7	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6351	6447	
==>Int {
    +@array;
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17024	17204	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21739	21919	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17024	17204	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21739	21919	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17024	17204	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21739	21919	
==>bclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Obje <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14151	14238	
==>lnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) :- cached_uncode_ch <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	23620	23742	
==>y $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $failed[-1]) { # don't <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15034	15128	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12288	12382	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15034	15128	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12288	12382	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15034	15128	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12288	12382	
==>eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $a <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1756	1893	
==>]) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1756	1893	
==>]) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $met <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1756	1893	
==>]) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $met <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	10098	10207	
==>};

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.inte <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10098	10207	
==>};

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.inte <==
7	/Users/nnunley/pugs/blib6/lib/Cipher.pm	696	791	
==>ust operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits <==
7	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	696	791	
==>ust operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	9816	9940	
==>c with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (i <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7756	7880	
==>c with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9816	9940	
==>c with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (i <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7756	7880	
==>c with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	961	1065	
==>etcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	961	1065	
==>etcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{p <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	961	1065	
==>etcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{p <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1248	1391	
==>e $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$c <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1248	1391	
==>e $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$c <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3395	3500	
==>ed in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handl <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3395	3500	
==>ed in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handl <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	594	697	
==>SH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	364	467	
==>SH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	364	467	
==>SH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	961	1088	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1049	1176	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	961	1088	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1049	1176	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	961	1088	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1049	1176	
==>nging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetO <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	288	399	
==>Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2053	2157	
==>alar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2053	2157	
==>alar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2053	2157	
==>alar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5744	5838	
==>Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Ru <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2742	2835	
==>ub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$co <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2742	2835	
==>ub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$co <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5545	5635	
==>Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Ru <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2266	2374	
==>interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2266	2374	
==>interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1, <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2266	2374	
==>interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1, <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4675	4770	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) ret <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3802	3897	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4675	4770	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) ret <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3802	3897	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) ret <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	4223	4325	
==>ion
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is un <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3350	3452	
==>ion
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is un <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4223	4325	
==>ion
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is un <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3350	3452	
==>ion
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is un <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	92	186	
==>in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	92	186	
==>in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	92	186	
==>in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7365	7469	
==>= (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunk <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7365	7469	
==>= (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunk <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	98	197	
==>re::Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'looks_like_ <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21505	21601	
==>ge.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo event <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20386	20482	
==>ge.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo event <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21505	21601	
==>ge.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo event <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20386	20482	
==>ge.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo event <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18440	18542	
==>t<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC librar <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18440	18542	
==>t<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC librar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6222	6319	
==>ke custom, for when you don't want to mess
with members belonging to 3rd party classes that your o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6222	6319	
==>ke custom, for when you don't want to mess
with members belonging to 3rd party classes that your o <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6222	6319	
==>ke custom, for when you don't want to mess
with members belonging to 3rd party classes that your o <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	24597	24691	
==>able () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=it <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29149	29243	
==>able () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=it <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2454	2591	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4781	4918	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2454	2591	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4781	4918	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2454	2591	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4781	4918	
==>ttribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mus <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3599	3711	
==>[a-zA-Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # comments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6619	6726	
==>tr' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6619	6726	
==>tr' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _(' <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6619	6726	
==>tr' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _(' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2777	2868	
==>.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = jo <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6229	6320	
==>.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = jo <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2777	2868	
==>.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = jo <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2777	2868	
==>.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = jo <==
7	/Users/nnunley/pugs/util/catalog_tests.pl	17124	17321	
==>ynhtml)) . "#" . 
                                  (0+$link)), id=>0+$link, 
                         title => $link->{whole},
                         class => 'testlink');
                # $back <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	173	287	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	173	287	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1761	1875	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1966	2080	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2029	2143	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	173	287	
==>_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance o <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7929	8063	
==>1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pre <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13523	13657	
==>1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pre <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7929	8063	
==>1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pre <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13517	13651	
==>1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pre <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3342	3458	
==>py} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3342	3458	
==>py} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return b <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3342	3458	
==>py} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return b <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	963	1081	
==>aybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonp <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1837	1955	
==>aybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonp <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	963	1081	
==>aybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonp <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1837	1955	
==>aybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonp <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19814	19903	
==>6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19814	19903	
==>6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19814	19903	
==>6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3913	4094	
==>\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    re <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3913	4094	
==>\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    re <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	947	1065	
==>JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH an <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	947	1065	
==>JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH an <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	947	1065	
==>JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH an <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5100	5191	
==>s rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5100	5191	
==>s rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2306	2402	
==>{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2306	2402	
==>{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2306	2402	
==>{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}- <==
7	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2393	2488	
==>an Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it <==
7	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1848	1943	
==>an Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it <==
7	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2393	2488	
==>an Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it <==
7	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1848	1943	
==>an Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	284	403	
==>fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl: <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	284	403	
==>fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5384	5498	
==>shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5384	5498	
==>shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5384	5498	
==>shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $ <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1177	1284	
==>s/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%pa <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1177	1284	
==>s/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	634	748	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	722	836	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	634	748	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	722	836	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	634	748	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	722	836	
==>@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg <==
7	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	98	194	
==>s uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($var) returns Bool i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12749	12856	
==>s);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12749	12856	
==>s);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12749	12856	
==>s);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	576	680	
==>@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string v <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	576	680	
==>@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string v <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	576	680	
==>@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string v <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	21	118	
==>e::Install::Win32;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13763	13906	
==>bstr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = su <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3884	4015	
==>bstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3884	4015	
==>bstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = su <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3884	4015	
==>bstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = su <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	966	1064	
==>ss now actually inherits a number of new attributes from various sources
# and we need to now creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	966	1064	
==>ss now actually inherits a number of new attributes from various sources
# and we need to now creat <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	966	1064	
==>ss now actually inherits a number of new attributes from various sources
# and we need to now creat <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10903	11007	
==>>{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &R <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11332	11436	
==>>{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &R <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	6277	6379	
==>rns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6277	6379	
==>rns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7794	7892	
==>lasses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retur <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7794	7892	
==>lasses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retur <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7794	7892	
==>lasses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retur <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10616	10726	
==>$name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code inter <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10774	10884	
==>$name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code inter <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5743	5840	
==>ix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4873	4970	
==>ix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5743	5840	
==>ix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4873	4970	
==>ix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4364	4459	
==>sult4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method PutValue <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7723	7864	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5282	5423	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7723	7864	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5282	5423	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7723	7864	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5282	5423	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1411	1552	
==>jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one, then just r <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5115	5225	
==>s = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5115	5225	
==>s = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5115	5225	
==>s = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21972	22064	
==>k!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20853	20945	
==>k!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21972	22064	
==>k!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20853	20945	
==>k!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick <==
7	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	376	518	
==>events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.read <==
7	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	376	518	
==>events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.read <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1045	1156	
==>{

    # alternation is first match (not longest).  though we need a 

    # separate longest match for tokens ( <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1397	1506	
==>{
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens ( <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1004	1113	
==>{
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens ( <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1397	1506	
==>{
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens ( <==
7	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1278	1375	
==>ow () {
    print template( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_ht <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	1003	1123	
==>where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rela <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4481	4601	
==>where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rela <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3384	3504	
==>where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rela <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30071	30165	
==>t, and each
hash value contains the user-readable message text associated with the
Message; thi <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30071	30165	
==>t, and each
hash value contains the user-readable message text associated with the
Message; thi <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1587	1677	
==>worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bo <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1587	1677	
==>worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bo <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14712	14843	
==>sual . $self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  pac <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7267	7389	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4826	4948	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7267	7389	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4826	4948	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7267	7389	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4826	4948	
==>equences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseq <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	14245	14384	
==>($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4314	4437	
==>($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4314	4437	
==>($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] m <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4314	4437	
==>($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	558	661	
==>ype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	558	661	
==>ype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	558	661	
==>ype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3892	4084	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6419	6611	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3892	4084	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6419	6611	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3892	4084	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6419	6611	
==>me => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            fo <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	314	432	
==>ig{pager},
        prefix    => $Config{prefix},
        archname  => $Config{archname},
        exe_ext   => $Config{e <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5751	5861	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8721	8831	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5751	5861	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8721	8831	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5751	5861	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8721	8831	
==>ution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($m <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	8176	8269	
==>g. int == int, str == str, int != str)
multi unify => ('type::operator::nullary', 'type::opera <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	494	599	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	494	599	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	426	531	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	631	736	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	687	792	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	494	599	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13452	13557	
==>ys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool ) <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7702	7839	
==>{before};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	12043	12180	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2500	2632	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9272	9404	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7442	7574	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2500	2632	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9272	9404	
==>{before};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
} <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7599	7759	
==>{

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $match = $node->( @_ );

        $de <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11940	12100	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2401	2555	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9173	9327	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7343	7497	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2401	2555	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9173	9327	
==>{
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $match = $node->( @_ );
        $de <==
7	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	649	749	
==>ot given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be wr <==
7	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	649	749	
==>ot given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be wr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	974	1065	
==>$what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	974	1065	
==>$what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_ <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	974	1065	
==>$what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_ <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6513	6601	
==>TP::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type head <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6513	6601	
==>TP::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type head <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	81	179	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spid <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	81	179	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spid <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	81	179	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spid <==
7	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2877	2973	
==>Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the ter <==
7	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3034	3130	
==>Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the ter <==
7	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2877	2973	
==>Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the ter <==
7	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3034	3130	
==>Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the ter <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3778	3896	
==>defined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3778	3896	
==>defined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->i <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3778	3896	
==>defined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->i <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5801	5897	
==>per_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_s <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4931	5027	
==>per_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5801	5897	
==>per_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_s <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4931	5027	
==>per_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_s <==
7	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6309	6410	
==>elemental(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_elemental(R)         -- <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23598	23693	
==>ends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22371	22466	
==>ends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23598	23693	
==>ends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22371	22466	
==>ends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	4341	4420	
==>16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63)) <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4341	4420	
==>16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63)) <==
7	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	63	168	
==><=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5377	5480	
==>nt to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5377	5480	
==>nt to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!" <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5377	5480	
==>nt to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!" <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3948	4049	
==>is is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the lis <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3948	4049	
==>is is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the lis <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4028	4129	
==>is is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the lis <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24278	24374	
==>active program controlling their
  actions) which are always seen to be replying lest they end up <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23051	23147	
==>active program controlling their
  actions) which are always seen to be replying lest they end up <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24278	24374	
==>active program controlling their
  actions) which are always seen to be replying lest they end up <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23051	23147	
==>active program controlling their
  actions) which are always seen to be replying lest they end up <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	67	160	
==>use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->b <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	67	160	
==>use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->b <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	67	160	
==>use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->b <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1255	1374	
==>lue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1255	1374	
==>lue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Ite <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1255	1374	
==>lue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Ite <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3878	3993	
==>{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3878	3993	
==>{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = s <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3878	3993	
==>{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = s <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19437	19546	
==>Statements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableStatement>
    | <EmptyState <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6566	6667	
==>\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	m <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1666	1766	
==>precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1666	1766	
==>precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn' <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1666	1766	
==>precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn' <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5828	5920	
==>inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5828	5920	
==>inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless-> <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5828	5920	
==>inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless-> <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7988	8109	
==>= 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $c <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7988	8109	
==>= 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $c <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7988	8109	
==>= 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $c <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7567	7661	
==>args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $on <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6697	6791	
==>args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7567	7661	
==>args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $on <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6697	6791	
==>args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $on <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12601	12722	
==>e $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2967	3084	
==>e $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2967	3084	
==>e $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12043	12155	
==>e $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $ <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2447	2555	
==>e $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $ <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2447	2555	
==>e $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47714	47953	
==>' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2867	2970	
==>pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $n <==
7	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5366	5469	
==>sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $op = Op- <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2867	2970	
==>pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $n <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2867	2970	
==>pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $n <==
7	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10901	10996	
==>e` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10901	10996	
==>e` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings <==
7	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	856	976	
==>" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @ <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	757	877	
==>" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @ <==
7	/Users/nnunley/pugs/blib6/lib/Tree.pm	6322	6425	
==>ling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argument <==
7	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6322	6425	
==>ling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argument <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7704	7802	
==>@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     } <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9632	9730	
==>@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     } <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7692	7790	
==>@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     } <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8179	8312	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5738	5871	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8179	8312	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5738	5871	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8179	8312	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5738	5871	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1867	2000	
==>@res => $cand;
        # now loop through our non-empties and pop 
        # off the head if it matches our canidate
        foreach m <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2996	3202	
==>METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mode <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8090	8296	
==>METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mode <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2996	3202	
==>METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mode <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8090	8296	
==>METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mode <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7886	8035	
==>rn $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7886	8035	
==>rn $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7886	8035	
==>rn $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2833	3001	
==>'skip' => sub { 
            my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $se <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4560	4672	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7496	7608	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4560	4672	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7496	7608	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4560	4672	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7496	7608	
==>a('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4176	4344	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4176	4344	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4176	4344	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6702	6856	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6702	6856	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6702	6856	
==>d($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body <==
7	/Users/nnunley/pugs/util/importgraph.pl	391	492	
==>t,
  "overlap=s" => \$overlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = Gra <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2922	3023	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10845	10946	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6047	6148	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2922	3023	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10845	10946	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6047	6148	
==>, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SEL <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36505	36599	
==>order of its arguments is not significant to the result;
the new Relation::Example contains all <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7410	7566	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4969	5125	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7410	7566	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4969	5125	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7410	7566	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4969	5125	
==>nd = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - thi <==
7	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	951	1068	
==>= shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow adding globals
    # ought to ch <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12663	12763	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4163	4263	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12663	12763	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4163	4263	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12663	12763	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4163	4263	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem, <==
7	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16675	16770	
==>R::<$_> --> Str )

Returns the input string after converting each character to it's lowercase
fo <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4569	4753	
==>mes    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Ha <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4569	4753	
==>mes    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Ha <==
7	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	187	297	
==>PORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	187	297	
==>PORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10913	11011	
==>e = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10913	11011	
==>e = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10913	11011	
==>e = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15792	15920	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20509	20637	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15792	15920	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20509	20637	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15792	15920	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20509	20637	
==>wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopin <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	63	157	
==>ness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporter;
use <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4938	5043	
==>_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4938	5043	
==>_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
7	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4938	5043	
==>_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	19409	19511	
==>te is a column, but it is not the same as a table.

The intended interface and use of this class in Per <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23961	24063	
==>te is a column, but it is not the same as a table.

The intended interface and use of this class in Per <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22477	22579	
==>te is a column, but it is not the same as a table.

The intended interface and use of this class in Per <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1592	1691	
==>put .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dotted, colo <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7803	7939	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5362	5498	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7803	7939	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5362	5498	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7803	7939	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5362	5498	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1491	1627	
==>t too. However, if 
                # we find one, then just remove the '&& last'
                $nothead++ && last if exists $in_tail{$ <==
7	/Users/nnunley/pugs/src/perl6/Prelude.pm	13290	13456	
==>idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3459	3605	
==>idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3459	3605	
==>idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($ <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3459	3605	
==>idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($ <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2231	2352	
==>ub  Perl6::List::reverse (; *@values) returns Lazy|Str {
   given want {
     when List {
       gather {
         1 while <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2688	2795	
==>hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$m <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2688	2795	
==>hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$m <==
7	/Users/nnunley/pugs/examples/hop6/Parser.pm	1787	1912	
==>@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20051	20312	
==>her;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20051	20312	
==>her;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Pe <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20051	20312	
==>her;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Pe <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28369	28466	
==>my $e = $obj->ender()

The arguments to object() to create the ending node for this object.
This i <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30882	30978	
==>dule
instead.  This module is standard with Perl 5.8.

=head2 Object Attributes

All objects shar <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3189	3300	
==>\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a refe <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3189	3300	
==>\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a refe <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3189	3300	
==>\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a refe <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21994	22090	
==>e was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20875	20971	
==>e was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21994	22090	
==>e was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20875	20971	
==>e was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5875	5984	
==>.
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    jo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5875	5984	
==>.
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    jo <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5875	5984	
==>.
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    jo <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21731	21827	
==>odified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the ser <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20612	20708	
==>odified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the ser <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21731	21827	
==>odified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the ser <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20612	20708	
==>odified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the ser <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3911	4011	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6560	6660	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4150	4248	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10599	10697	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4150	4248	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10599	10697	
==>o the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5852	5949	
==>rammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::ha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	134	238	
==>xpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	134	238	
==>xpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shi <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	134	238	
==>xpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shi <==
7	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40350	40445	
==>u changed the files and the date of any
changes, in addition to preserving this original copyrig <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25874	25969	
==>u changed the files and the date of any changes, in
addition to preserving this original copyrig <==
7	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40350	40445	
==>u changed the files and the date of any
changes, in addition to preserving this original copyrig <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25874	25969	
==>u changed the files and the date of any changes, in
addition to preserving this original copyrig <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	123	267	
==>a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	123	267	
==>a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	123	267	
==>a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1238	1369	
==>tet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+ <==
7	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3534	3665	
==>tet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1238	1369	
==>tet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+ <==
7	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3534	3665	
==>tet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6574	6734	
==>ift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10781	10941	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# e <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7860	8011	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# e <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6362	6513	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# e <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7860	8011	
==>ift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# e <==
7	/Users/nnunley/pugs/blib6/lib/CGI.pm	855	958	
==>{ %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document <==
7	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	855	958	
==>{ %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15844	15963	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20561	20680	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15844	15963	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20561	20680	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15844	15963	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20561	20680	
==>{
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethod <==
7	/Users/nnunley/pugs/util/package-osx.pl	599	705	
==>r/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/pa <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4989	5112	
==>erl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4989	5112	
==>erl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub : <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4989	5112	
==>erl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub : <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23879	23978	
==>matic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers to <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22652	22751	
==>matic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers to <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23879	23978	
==>matic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers to <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22652	22751	
==>matic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers to <==
7	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5460	5559	
==>t description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test <==
7	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5460	5559	
==>t description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7657	7756	
==>t description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18819	18912	
==>p the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll tr <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17862	17955	
==>p the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll tr <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18819	18912	
==>p the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll tr <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17862	17955	
==>p the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll tr <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30464	30590	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32178	32304	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30464	30590	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32178	32304	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30464	30590	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32178	32304	
==>ngth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[ <==
7	/Users/nnunley/pugs/inc/Module/Install/Can.pm	515	632	
==>>VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: wh <==
7	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1482	1587	
==>x) is y.

You may optionally supply:

    epsilon - tolerance (how accurate the answer must be)
    fprime <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3369	3463	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6383	6477	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8451	8545	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3369	3463	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6383	6477	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8451	8545	
==>`abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fi <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4989	5103	
==>KEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ( <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	319	419	
==>L2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Res <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	319	419	
==>L2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Res <==
7	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	319	419	
==>L2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Res <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2714	2813	
==>L2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2714	2813	
==>L2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2714	2813	
==>L2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2670	2782	
==>eeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2670	2782	
==>eeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recu <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2670	2782	
==>eeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recu <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12832	12942	
==>ds are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12832	12942	
==>ds are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives: <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12832	12942	
==>ds are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives: <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4517	4619	
==>sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) if not (blessed($right) && $right->i <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8052	8188	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            retu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8052	8188	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            retu <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8052	8188	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            retu <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18703	18798	
==>pted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
se <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17746	17841	
==>pted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
se <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18703	18798	
==>pted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
se <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17746	17841	
==>pted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
se <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4091	4226	
==>_->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__ <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	7110	7211	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6240	6341	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2894	2995	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2894	2995	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7110	7211	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6240	6341	
==>mber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# t <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7582	7708	
==>ed;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@matc <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7570	7696	
==>ed;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@matc <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8148	8271	
==>wrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retur <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8148	8271	
==>wrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retur <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8148	8271	
==>wrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retur <==
7	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	20	122	
==>all::Pugs;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use Fil <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1019	1104	
==>6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPerl5::X1::BB::pugs_args = joi <==
7	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27901	28005	
==>OPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : R <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4037	4133	
==>re information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4037	4133	
==>re information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7016	7111	
==>re information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9086	9181	
==>re information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7016	7111	
==>re information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9086	9181	
==>re information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This prog <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9230	9349	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12203	12322	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9230	9349	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12203	12322	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9230	9349	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12203	12322	
==>ethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::IS <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	114	224	
==>port';
use Data::Dumper;
use strict;
our @EXPORT_OK = qw(rule);

sub compiled {
    my $class = shift;
    my $ <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1447	1588	
==>ninstall the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prer <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	299	411	
==>D_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of H <==
7	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	790	902	
==>D_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of H <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	299	411	
==>D_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of H <==
7	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	790	902	
==>D_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of H <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1243	1354	
==>,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLVa <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4393	4502	
==>,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLVa <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4393	4502	
==>,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLVa <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	286	408	
==>d be fixed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4539	4658	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2751	2870	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4539	4658	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2751	2870	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4539	4658	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2751	2870	
==>of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our <==
7	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1855	1961	
==>xpr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRH <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	190	290	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	131	231	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	190	290	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	131	231	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	190	290	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	131	231	
==>:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	14679	14878	
==>shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sha <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18156	18355	
==>shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sha <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17572	17771	
==>shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sha <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16234	16383	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16234	16383	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shi <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16234	16383	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shi <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25555	25679	
==>ser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fla <==
7	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6667	6779	
==>sult1));
    return $Result4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3492	3625	
==>_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1850	1983	
==>_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$ <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2630	2763	
==>_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$ <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	11912	12015	
==>);
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,20 <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	13304	13407	
==>);
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,20 <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11912	12015	
==>);
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,20 <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13304	13407	
==>);
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,20 <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25991	26163	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28192	28364	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25991	26163	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28192	28364	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25991	26163	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28192	28364	
==>';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sca <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3132	3232	
==>r::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH(' <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6379	6537	
==>::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3996	4142	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6932	7078	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3996	4142	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6932	7078	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3996	4142	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6932	7078	
==>);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation shou <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8320	8423	
==>lf->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp:: <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3576	3681	
==>m_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $p <==
7	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3576	3681	
==>m_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $p <==
7	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4166	4271	
==>m_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8783	8948	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6336	6501	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8783	8948	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6336	6501	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8783	8948	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6336	6501	
==>he MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    ret <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	21719	21832	
==>dle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest n <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	12915	13025	
==>c intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16392	16502	
==>c intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15754	15864	
==>c intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	5897	5993	
==>superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($tw <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5027	5123	
==>superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($tw <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5897	5993	
==>superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($tw <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5027	5123	
==>superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($tw <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4066	4182	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub nod <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2300	2416	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub nod <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3081	3197	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub nod <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5004	5119	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub nod <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2546	2661	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub nod <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3327	3442	
==>y $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub nod <==
7	/Users/nnunley/pugs/inc/Test/Harness.pm	28479	28575	
==>y.

=back

=head1 EXAMPLE

Here's how Test::Harness tests itself

  $ cd ~/src/devel/Test-Harness <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22833	22987	
==>nstant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ru <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23112	23266	
==>nstant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ru <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1811	1940	
==>$n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retur <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2554	2683	
==>$n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1811	1940	
==>$n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retur <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2542	2671	
==>$n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retur <==
7	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	612	737	
==>ew(:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9027	9191	
==>'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=he <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9027	9191	
==>'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=he <==
7	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9027	9191	
==>'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=he <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15873	15980	
==>@!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $cod <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15873	15980	
==>@!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $cod <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12771	12868	
==>e is the values of the fields removed.  In scalar
context the number of fields removed is returned <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12771	12868	
==>e is the values of the fields removed.  In scalar
context the number of fields removed is returned <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10366	10478	
==>ory = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@grammar1::$category, \ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	9	102	
==>ile is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	9	102	
==>ile is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primit <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	9	102	
==>ile is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10281	10372	
==>L::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::R <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10281	10372	
==>L::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::R <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10281	10372	
==>L::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::R <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7433	7589	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4992	5148	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7433	7589	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4992	5148	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7433	7589	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4992	5148	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1128	1284	
==>he head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the pyt <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3937	4130	
==>::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3937	4130	
==>::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cla <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3937	4130	
==>::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cla <==
7	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1154	1249	
==>ms {
  if(not $CGI->param("version") or $CGI->param("version") != VERSION) {
    print "Versions <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19890	19979	
==>_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19890	19979	
==>_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19890	19979	
==>_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10160	10273	
==>e (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If p <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14851	14950	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12105	12204	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14851	14950	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12105	12204	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14851	14950	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12105	12204	
==>d($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label <==
7	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1350	1530	
==>et("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inn <==
7	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1350	1530	
==>et("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inn <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	503	613	
==>Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	503	613	
==>Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	503	613	
==>Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2574	2668	
==>n of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($dat <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2574	2668	
==>n of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($dat <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9143	9290	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12116	12263	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9143	9290	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12116	12263	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9143	9290	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12116	12263	
==>');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl <==
7	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5974	6092	
==>$self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1837	1968	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	949	1080	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1837	1968	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	949	1080	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1837	1968	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	949	1080	
==>%params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # param <==
7	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2310	2398	
==>ddToken("infix:", "<postfix:*", "right,nows", "PGE::Exp::Concat");
    $optable->addToken <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2147	2248	
==>odify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2147	2248	
==>odify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recu <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2147	2248	
==>odify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recu <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	32867	32960	
==>elation>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
7	/Users/nnunley/pugs/blib6/lib/Relation.pm	33322	33415	
==>elation>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37417	37510	
==>elation>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
7	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37872	37965	
==>elation>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
7	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5672	5805	
==>ath) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { requ <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6049	6171	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9019	9141	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6049	6171	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9019	9141	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6049	6171	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9019	9141	
==>less $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless s <==
7	/Users/nnunley/pugs/util/yaml_harness.pl	1975	2079	
==>file = File::Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $currfile =~ $Con <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9144	9235	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4287	4378	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/blib6/lib/Span.pm	15723	15814	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9144	9235	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4287	4378	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15723	15814	
==>open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8805	8961	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11778	11934	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8805	8961	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11778	11934	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8805	8961	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11778	11934	
==>eturn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that <==
7	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12564	12662	
==>s() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier wit <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19356	19526	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19356	19526	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19356	19526	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	107	222	
==>x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	107	222	
==>x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})( <==
7	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	107	222	
==>x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})( <==
7	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2346	2445	
==>s_method($label, %opts);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, symbol $l <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10553	10746	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8104	8297	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10553	10746	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8104	8297	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10553	10746	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8104	8297	
==>tack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatc <==
7	/Users/nnunley/pugs/util/run-smoke.pl	538	635	
==>/file.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location <==
7	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1464	1586	
==>urn @rv;
}    

__END__





    ### XXX can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$s <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3787	3888	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6723	6824	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3787	3888	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6723	6824	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3787	3888	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6723	6824	
==>sed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper method <==
7	/Users/nnunley/pugs/misc/Blondie/milner.pl	25738	25838	
==> × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new(list => type: <==
7	/Users/nnunley/pugs/blib6/lib/Set.pm	6898	6994	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6028	6124	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2682	2778	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2682	2778	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6898	6994	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6028	6124	
==>eturns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bo <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8076	8166	
==>riable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @ <==
7	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1901	1991	
==>riable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @ <==
7	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3257	3509	
==>tart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend <==
7	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3257	3509	
==>tart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6136	6296	
==>tart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6136	6296	
==>tart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend <==
7	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6136	6296	
==>tart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend <==
7	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11881	11978	
==>alues
for the same field are retained.

As for the header() method, the field name ($field) is not <==
7	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11881	11978	
==>alues
for the same field are retained.

As for the header() method, the field name ($field) is not <==
7	/Users/nnunley/pugs/util/PugsConfig.pm	1186	1324	
==>ourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            => $config); 
    a <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3466	3554	
==>-----------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3489	3577	
==>------------------------------
## BOOTSTRAPPING COMPLETE
## ----------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3512	3600	
==>-------
## BOOTSTRAPPING COMPLETE
## ---------------------------------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5368	5456	
==>-----------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ------ <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5391	5479	
==>------------------------------
## BOOTSTRAPPING COMPLETE
## ----------------------------- <==
7	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5414	5502	
==>-------
## BOOTSTRAPPING COMPLETE
## ---------------------------------------------------- <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1578	1711	
==>lsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # wa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1578	1711	
==>lsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # wa <==
7	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1578	1711	
==>lsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # wa <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7140	7248	
==>$statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7140	7248	
==>$statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter <==
7	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1809	1909	
==>$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter <==
7	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1809	1909	
==>$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter <==
7	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	860	963	
==>ump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ba <==
7	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	860	963	
==>ump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ba <==
7	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	860	963	
==>ump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ba <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24010	24112	
==>ror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betwe <==
7	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22783	22885	
==>ror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betwe <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24010	24112	
==>ror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betwe <==
7	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22783	22885	
==>ror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betwe <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9588	9710	
==>t;

    # When taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # M <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	6772	6880	
==>::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6830	6938	
==>::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11419	11522	
==>b p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11419	11522	
==>b p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11419	11522	
==>b p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19417	19552	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16649	16784	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19417	19552	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16649	16784	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19417	19552	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16649	16784	
==>el)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1397	1520	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2960	3083	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1397	1520	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2960	3083	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1397	1520	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2960	3083	
==>tics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magic <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15417	15599	
==>capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15696	15878	
==>capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             r <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3782	3885	
==>ol, $body) = @_;

	# all thunks with protos were already defined as functions
	
	my $type = $self->resol <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3774	3872	
==>ist> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
rule argument_list { [ <-[\\\(\)]> | \\ . | \( < <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13663	13757	
==>n

This type os span is used to represent continuous measurements, such as times, temperatures, <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13663	13757	
==>n

This type os span is used to represent continuous measurements, such as times, temperatures, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3172	3334	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6165	6325	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3441	3593	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9859	10011	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3441	3593	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9859	10011	
==>hift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs o <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	173	278	
==>m\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Ro <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	173	278	
==>m\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Ro <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17111	17206	
==>0,B0,B0,E0,E0).
rm(star_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3421	3511	
==>(usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3421	3511	
==>(usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3421	3511	
==>(usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9517	9683	
==>m[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9517	9683	
==>m[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9517	9683	
==>m[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12062	12187	
==>us();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          re <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2466	2585	
==>us();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        re <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2466	2585	
==>us();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        re <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16971	17110	
==>decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17250	17389	
==>decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23813	23937	
==>Control with { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__fla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13317	13435	
==>Control with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13317	13435	
==>Control with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13317	13435	
==>Control with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9644	9751	
==>------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9667	9774	
==>-------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9644	9751	
==>------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9667	9774	
==>-------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9644	9751	
==>------------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9667	9774	
==>-------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15862	15966	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20579	20683	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15862	15966	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20579	20683	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15862	15966	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20579	20683	
==>ybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7881	8034	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7881	8034	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7881	8034	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4945	5096	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4945	5096	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4945	5096	
==>ous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4101	4246	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7037	7182	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4101	4246	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7037	7182	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4101	4246	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7037	7182	
==>ore 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($me <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13795	13896	
==>on *@others) returns Relation {

    # First do some optimizing of the order that source relations are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17272	17373	
==>on *@others) returns Relation {

    # First do some optimizing of the order that source relations are <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33476	33571	
==>in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersect <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38026	38121	
==>in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersect <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37415	37510	
==>in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersect <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12728	12822	
==>ssues),
  might suffice, be easier to create, and be more portable.
  http://www.perlmonks.org/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3743	3867	
==>n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3743	3867	
==>n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3743	3867	
==>n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5850	5963	
==>_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $nam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5850	5963	
==>_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $nam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5850	5963	
==>_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $nam <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11190	11344	
==>me::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12595	12705	
==>etching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force rese <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12595	12705	
==>etching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force rese <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12595	12705	
==>etching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force rese <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9093	9185	
==>HODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9093	9185	
==>HODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	801	910	
==>instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	801	910	
==>instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	801	910	
==>instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5169	5316	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8139	8286	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5169	5316	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8139	8286	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5169	5316	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8139	8286	
==>l the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3413	3540	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11971	12098	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6538	6665	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3413	3540	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11971	12098	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6538	6665	
==>} )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	551	675	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	938	1062	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1331	1455	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	551	675	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	938	1062	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1331	1455	
==>return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9947	10042	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7498	7593	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9947	10042	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7498	7593	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9947	10042	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7498	7593	
==>add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10104	10234	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12745	12875	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13581	13711	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16222	16352	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12862	12992	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15584	15714	
==>tity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both source <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1936	2060	
==>alk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1936	2060	
==>alk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1936	2060	
==>alk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($di <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13551	13661	
==>er subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17028	17138	
==>er subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16390	16500	
==>er subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2774	2897	
==>_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7868	7991	
==>_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2774	2897	
==>_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7868	7991	
==>_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6857	6969	
==>TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6857	6969	
==>TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8203	8345	
==>$arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8203	8345	
==>$arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8203	8345	
==>$arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1247	1346	
==>rams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1247	1346	
==>rams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1247	1346	
==>rams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1736	1850	
==>s;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1736	1850	
==>s;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1736	1850	
==>s;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3830	3940	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4023	4133	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	56	156	
==>ementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

require 'p6rule.pl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	512	640	
==>k::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	609	737	
==>k::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => su <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12576	12697	
==>p { $_->package ne $inst_pkg->package } @prev;
    
    ### no change!
    return if @avail == @prev;
    
    $self->avai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5460	5567	
==>,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5460	5567	
==>,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5460	5567	
==>,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38976	39108	
==>Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38976	39108	
==>Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38976	39108	
==>Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6172	6280	
==>: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6172	6280	
==>: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6172	6280	
==>: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12301	12427	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3923	4049	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12301	12427	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3923	4049	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12301	12427	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3923	4049	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_MET <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39521	39624	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39791	39894	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39521	39624	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39791	39894	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39521	39624	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39791	39894	
==>lue::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3959	4146	
==>=> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3959	4146	
==>=> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3959	4146	
==>=> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27698	27795	
==>>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handler gets the parser object and a boole <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3475	3571	
==>esse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3475	3571	
==>esse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17156	17292	
==>ub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17156	17292	
==>ub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	307	415	
==>xup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::poss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	307	415	
==>xup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::poss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	307	415	
==>xup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::poss <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2852	2953	
==>__v__ ; my($tmpvars); { local($vars)=($vars); \$__v__ = do{ ";
}
sub let_end {
  my $e = shift(@let_st <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4316	4427	
==>ive: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        sys <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12205	12310	
==>led on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12205	12310	
==>led on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19664	19757	
==>lf->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19664	19757	
==>lf->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19664	19757	
==>lf->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2017	2126	
==>q "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2017	2126	
==>q "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2017	2126	
==>q "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2526	2621	
==>"-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2526	2621	
==>"-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2526	2621	
==>"-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4372	4557	
==>$type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4372	4557	
==>$type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4372	4557	
==>$type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5109	5248	
==>ame => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5109	5248	
==>ame => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5109	5248	
==>ame => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13630	13762	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10914	11046	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13630	13762	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10914	11046	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13630	13762	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10914	11046	
==>r($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1926	2031	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1926	2031	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1926	2031	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2456	2552	
==>turn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2456	2552	
==>turn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2456	2552	
==>turn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8008	8165	
==>ementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $b <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4368	4525	
==>ementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5217	5374	
==>ementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4100	4217	
==>$capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3973	4088	
==>$capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0] <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23861	23970	
==>Characters {  # see 15.1.3
      <uriCharacter> <uriCharacters>?
}
rule uriCharacter {  # see 15.1.3
      <ur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4804	4972	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5765	5933	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4804	4972	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5765	5933	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4804	4972	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5765	5933	
==>'$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1968	2159	
==>_('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1968	2159	
==>_('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1968	2159	
==>_('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6582	6672	
==>head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6582	6672	
==>head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6582	6672	
==>head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	378	498	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	376	496	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	378	498	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	376	496	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	378	498	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	376	496	
==>te as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1773	1895	
==>eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'ref <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2516	2638	
==>eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1773	1895	
==>eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2504	2626	
==>eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'ref <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16551	16672	
==>8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible p <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20977	21098	
==>8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible p <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7771	7884	
==>sg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2068	2175	
==>sg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2068	2175	
==>sg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2068	2175	
==>sg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12923	13016	
==>ment less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12923	13016	
==>ment less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2647	2751	
==>mts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(", <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2647	2751	
==>mts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(", <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2647	2751	
==>mts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(", <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29660	29756	
==>ne unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaf <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34212	34308	
==>ne unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaf <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33376	33472	
==>ne unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5853	5962	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3973	4082	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5853	5962	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3973	4082	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5853	5962	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3973	4082	
==>:opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5580	5699	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8550	8669	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5580	5699	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8550	8669	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5580	5699	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8550	8669	
==>e it and
        # return the exact same sub. This results in this
        # method being passed an already blessed meth <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2980	3106	
==>ule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3120	3246	
==>ule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13536	13683	
==>nd to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13536	13683	
==>nd to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13536	13683	
==>nd to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2744	2860	
==>defined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2744	2860	
==>defined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2744	2860	
==>defined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $sub <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18736	18830	
==>toping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connec <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17779	17873	
==>toping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connec <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18736	18830	
==>toping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connec <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17779	17873	
==>toping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connec <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	809	901	
==>evel(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::fo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	809	901	
==>evel(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11434	11605	
==>] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11434	11605	
==>] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11434	11605	
==>] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1562	1663	
==>ass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1562	1663	
==>ass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1562	1663	
==>ass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	239	353	
==>), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	239	353	
==>), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	239	353	
==>), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1215	1312	
==>($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1215	1312	
==>($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1215	1312	
==>($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	683	811	
==>paque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	683	811	
==>paque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	683	811	
==>paque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2345	2443	
==>e);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2345	2443	
==>e);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2345	2443	
==>e);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8112	8264	
==>) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8112	8264	
==>) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8112	8264	
==>) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3574	3687	
==>duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7051	7164	
==>duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6008	6121	
==>duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14880	15004	
==>constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14880	15004	
==>constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14880	15004	
==>constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2698	2803	
==>rs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2698	2803	
==>rs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2698	2803	
==>rs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9918	10058	
==>d =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9918	10058	
==>d =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9918	10058	
==>d =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16683	16785	
==>_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16683	16785	
==>_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16683	16785	
==>_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3949	4121	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6476	6648	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3949	4121	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6476	6648	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3949	4121	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6476	6648	
==>ods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3328	3474	
==>> 'method'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$current' => <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29551	29664	
==>appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29551	29664	
==>appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	363	468	
==>appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9081	9175	
==>amed packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9081	9175	
==>amed packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2016	2151	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1128	1263	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2016	2151	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1128	1263	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2016	2151	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1128	1263	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9906	10028	
==>1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7846	7968	
==>1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9906	10028	
==>1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7846	7968	
==>1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10098	10192	
==>ttp://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10098	10192	
==>ttp://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3046	3196	
==>5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3046	3196	
==>5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3046	3196	
==>5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19837	19932	
==>constructed, and the object can
not be changed afterwards.

If you want something similar but th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24389	24484	
==>constructed, and the object can
not be changed afterwards.

If you want something similar but th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22941	23036	
==>constructed, and the object can
not be changed afterwards.

If you want something similar but th <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7203	7304	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6333	6434	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2987	3088	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2987	3088	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7203	7304	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6333	6434	
==>);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1433	1604	
==>things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1433	1604	
==>things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1433	1604	
==>things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2726	2851	
==>b arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2726	2851	
==>b arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2726	2851	
==>b arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pack <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4661	4809	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7310	7458	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4882	5024	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11331	11473	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4882	5024	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11331	11473	
==>2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $he <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2502	2615	
==>2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2502	2615	
==>2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2502	2615	
==>2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	673	775	
==>class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	673	775	
==>class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	673	775	
==>class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20425	20557	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17564	17696	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20425	20557	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17564	17696	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20425	20557	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17564	17696	
==>this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1938	2044	
==>"\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1938	2044	
==>"\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1938	2044	
==>"\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6674	6774	
==>IL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6674	6774	
==>IL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6674	6774	
==>IL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12733	12845	
==>this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12733	12845	
==>this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12733	12845	
==>this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	191	285	
==>e::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	191	285	
==>e::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	191	285	
==>e::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9096	9242	
==>) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9096	9242	
==>) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9096	9242	
==>) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4589	4721	
==>::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstk <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4589	4721	
==>::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstk <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4589	4721	
==>::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstk <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20850	20947	
==>c> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19767	19864	
==>c> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20850	20947	
==>c> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19767	19864	
==>c> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28051	28144	
==>_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28051	28144	
==>_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17827	18006	
==>body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21304	21483	
==>body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20891	21070	
==>body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	734	826	
==>.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	734	826	
==>.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	734	826	
==>.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19919	20029	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17058	17168	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19919	20029	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17058	17168	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19919	20029	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17058	17168	
==>lue->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2033	2134	
==>rn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2033	2134	
==>rn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramm <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	153	247	
==>nd a position
within that string, and it provides the fundamental operations on strings as
comb <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	153	247	
==>nd a position
within that string, and it provides the fundamental operations on strings as
comb <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1272	1366	
==>rn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3133	3227	
==>rn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramm <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	539	635	
==>tant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	539	635	
==>tant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	539	635	
==>tant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	35	126	
==>itive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	35	126	
==>itive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	35	126	
==>itive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2076	2174	
==>) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map nee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2076	2174	
==>) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map nee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2076	2174	
==>) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map nee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17773	17865	
==>($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17773	17865	
==>($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17773	17865	
==>($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7872	7980	
==>sh form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7872	7980	
==>sh form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7872	7980	
==>sh form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1271	1376	
==>warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1271	1376	
==>warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1271	1376	
==>warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && ! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6947	7068	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9917	10038	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6947	7068	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9917	10038	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6947	7068	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9917	10038	
==>"Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39460	39571	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39730	39841	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39460	39571	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39730	39841	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39460	39571	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39730	39841	
==>$length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3927	4032	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6576	6681	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4166	4268	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10615	10717	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4166	4268	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10615	10717	
==>ule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3066	3236	
==>$size = $idx + 1;
                if ($self->array_fetchSize < $size){
                    $self->array_storeSize($size);
                }
            },

            'ar <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8614	8745	
==>};
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8614	8745	
==>};
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13263	13363	
==>om object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class n <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13263	13363	
==>om object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class n <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13263	13363	
==>om object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5547	5643	
==>p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB cap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5547	5643	
==>p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB cap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5547	5643	
==>p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB cap <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	667	761	
==>ODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	667	761	
==>ODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	667	761	
==>ODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13980	14102	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14467	14589	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13980	14102	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14467	14589	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13980	14102	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14467	14589	
==>method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7823	7945	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10746	10868	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7823	7945	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10746	10868	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7823	7945	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10746	10868	
==>at
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $me <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35886	35981	
==>, such that all common attribute names
and corresponding common tuple values are aligned and mer <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37629	37724	
==>,
such that all common attribute names and corresponding common tuple values
are aligned and mer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40436	40531	
==>, such that all common attribute names
and corresponding common tuple values are aligned and mer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42178	42273	
==>,
such that all common attribute names and corresponding common tuple values
are aligned and mer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40050	40145	
==>, such that all common attribute names
and corresponding common tuple values are aligned and mer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41828	41923	
==>,
such that all common attribute names and corresponding common tuple values
are aligned and mer <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15249	15454	
==>et_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15249	15454	
==>et_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15249	15454	
==>et_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9610	9701	
==>o,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9610	9701	
==>o,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9610	9701	
==>o,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1065	1182	
==>,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	672	789	
==>create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_C <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1065	1182	
==>,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::E <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1065	1182	
==>,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::E <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	672	789	
==>create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	672	789	
==>create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5747	5842	
==>sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5747	5842	
==>sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5747	5842	
==>sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7455	7540	
==>:make_method($_collect_all_roles));

## ---------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7455	7540	
==>:make_method($_collect_all_roles));

## ---------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7455	7540	
==>:make_method($_collect_all_roles));

## ---------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30465	30620	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32179	32334	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30465	30620	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32179	32334	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30465	30620	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32179	32334	
==>gth";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10333	10444	
==>ck the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10333	10444	
==>ck the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10333	10444	
==>ck the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3675	3774	
==>-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3675	3774	
==>-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3675	3774	
==>-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1843	1973	
==>copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1843	1973	
==>copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21126	21225	
==>pression> <');'>
    | <'while'> <'('> <Expression> <')'> <Statement>
    | <'for'> <'('> <Expressio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	808	903	
==>::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	808	903	
==>::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	808	903	
==>::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	7368	7473	
==>str($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS] <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6475	6568	
==>C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual cipher <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6475	6568	
==>C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual cipher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2091	2183	
==>= run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2091	2183	
==>= run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2091	2183	
==>= run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7086	7189	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6216	6319	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2870	2973	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2870	2973	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7086	7189	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6216	6319	
==>{
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.inc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13430	13581	
==>stlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13430	13581	
==>stlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13430	13581	
==>stlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$ <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2315	2466	
==>stlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7458	7593	
==>- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7458	7593	
==>- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else { <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	46	188	
==>entweise Addition
@a>>--;              # alle Elemente decrementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4967	5084	
==>urn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package lev <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4967	5084	
==>urn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package lev <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4967	5084	
==>urn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package lev <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4333	4424	
==>match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4583	4674	
==>match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5013	5122	
==>ush @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5013	5122	
==>ush @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5013	5122	
==>ush @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5247	5346	
==>= 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5247	5346	
==>= 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5247	5346	
==>= 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11541	11704	
==>fined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11541	11704	
==>fined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11541	11704	
==>fined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2107	2239	
==>mp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -& <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2107	2239	
==>mp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -& <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2107	2239	
==>mp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6284	6409	
==>> Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         ." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6284	6409	
==>> Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         ." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6284	6409	
==>> Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         ." <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12880	12973	
==>LTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12880	12973	
==>LTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12880	12973	
==>LTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8833	9017	
==>-1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8833	9017	
==>-1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8833	9017	
==>-1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7878	8032	
==>f, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arg <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7878	8032	
==>f, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arg <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7878	8032	
==>f, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arg <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2620	2782	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buf <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1310	1472	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buf <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2620	2782	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buf <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1310	1472	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buf <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10309	10413	
==>entity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $ <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10309	10413	
==>entity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15824	15977	
==>ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16103	16256	
==>ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1959	2068	
==>,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1959	2068	
==>,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1959	2068	
==>,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18296	18404	
==>";
    my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'("Undefined variable $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9448	9615	
==>ses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9448	9615	
==>ses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9448	9615	
==>ses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	852	957	
==>stance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1057	1162	
==>stance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1113	1218	
==>stance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{c <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	328	433	
==>%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_esc <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	328	433	
==>%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_esc <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12274	12371	
==>function that takes an object (or a reference
to an array of them) and does something to them (and <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1356	1452	
==>ns of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1356	1452	
==>ns of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5255	5346	
==>l6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5255	5346	
==>l6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5255	5346	
==>l6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6100	6229	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6100	6229	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6100	6229	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7064	7171	
==>>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7064	7171	
==>>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7064	7171	
==>>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2086	2183	
==>('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2086	2183	
==>('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2086	2183	
==>('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31695	31790	
==>e tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36245	36340	
==>e tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35481	35576	
==>e tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<whe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12253	12384	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3875	4006	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12253	12384	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3875	4006	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12253	12384	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3875	4006	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31351	31442	
==>eturning anonymous function in the argument C<$predicate> returns
True when given the tuple/ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35901	35992	
==>eturning anonymous function in the argument C<$predicate> returns
True when given the tuple/ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35119	35210	
==>eturning anonymous function in the argument C<$predicate> returns
True when given the tuple/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2185	2282	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2590	2687	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2185	2282	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2590	2687	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2185	2282	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2590	2687	
==>container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10166	10292	
==>rom within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from diff <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10166	10292	
==>rom within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from diff <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10166	10292	
==>rom within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from diff <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1798	1905	
==>relude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1798	1905	
==>relude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1798	1905	
==>relude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3242	3385	
==>ix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-start
                #print "checking { ... [$whites <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8376	8480	
==>ply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLH <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3806	3901	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::P <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4139	4234	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3806	3901	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4139	4234	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10500	10607	
==>quires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10500	10607	
==>quires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10500	10607	
==>quires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4032	4136	
==>q '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4032	4136	
==>q '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4032	4136	
==>q '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6424	6522	
==>nced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events< <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5497	5595	
==>nced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events< <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6424	6522	
==>nced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events< <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5497	5595	
==>nced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events< <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	157	246	
==>ove_header remove_content_headers header_field_names scan
    date expires if_modified_sin <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	157	246	
==>ove_header remove_content_headers header_field_names scan
    date expires if_modified_sin <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3502	3612	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6516	6626	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8584	8694	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3502	3612	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6516	6626	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8584	8694	
==>s Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18395	18516	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15633	15754	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18395	18516	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15633	15754	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18395	18516	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15633	15754	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instan <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3529	3635	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6543	6649	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8611	8717	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3529	3635	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6543	6649	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8611	8717	
==>ray`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17895	18060	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18826	18991	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18174	18339	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19105	19270	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	2370	2487	
==>returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ----------------- <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2370	2487	
==>returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ----------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18848	18994	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16086	16232	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18848	18994	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16086	16232	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18848	18994	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16086	16232	
==>f => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3490	3609	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6018	6137	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3490	3609	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6018	6137	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3490	3609	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6018	6137	
==>dy->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12297	12424	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3919	4046	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12297	12424	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3919	4046	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12297	12424	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3919	4046	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10778	10878	
==>d functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10778	10878	
==>d functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10778	10878	
==>d functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19114	19212	
==>infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19114	19212	
==>infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19114	19212	
==>infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	240	338	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	499	597	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	240	338	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	499	597	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	240	338	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	499	597	
==>c(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8161	8271	
==>s failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8161	8271	
==>s failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8161	8271	
==>s failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !define <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19931	20026	
==>that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimen <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24483	24578	
==>that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimen <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23035	23130	
==>that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16318	16477	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21035	21194	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16318	16477	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21035	21194	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16318	16477	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21035	21194	
==>re => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        } <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6719	6817	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5849	5947	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2503	2601	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2503	2601	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6719	6817	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5849	5947	
==>) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3458	3591	
==>self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3458	3591	
==>self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3458	3591	
==>self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21134	21231	
==>$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21134	21231	
==>$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21134	21231	
==>$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3347	3501	
==>ess $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3347	3501	
==>ess $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3347	3501	
==>ess $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3329	3425	
==>sion_to_number( version => $version );

Returns a proper module version, or '0.0' if none was ava <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	97	188	
==>$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COO <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	97	188	
==>$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13978	14089	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14465	14576	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13978	14089	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14465	14576	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13978	14089	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14465	14576	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4790	4896	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7291	7397	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4790	4896	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7291	7397	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4790	4896	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7291	7397	
==>_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_nam <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2817	2968	
==>y @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $le <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3437	3588	
==>y @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $le <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2817	2968	
==>y @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $le <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3437	3588	
==>y @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $le <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	473	571	
==>sion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $versio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	473	571	
==>sion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $versio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6249	6420	
==>tr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6249	6420	
==>tr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6249	6420	
==>tr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4049	4155	
==>{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4049	4155	
==>{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4049	4155	
==>{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33117	33246	
==>ck, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The two <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	328	444	
==>r matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "contin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	314	422	
==>r matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "contin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	534	637	
==>{
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	534	637	
==>{
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	534	637	
==>{
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13107	13223	
==>= @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13107	13223	
==>= @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13107	13223	
==>= @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14442	14531	
==>attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14442	14531	
==>attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14442	14531	
==>attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:meth <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5145	5279	
==>if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5145	5279	
==>if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2108	2219	
==>eop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10976	11087	
==>eop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2301	2412	
==>eop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11255	11366	
==>eop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	365	465	
==>this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

us <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	369	469	
==>this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

us <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	365	465	
==>this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

us <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	369	469	
==>this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

us <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	497	595	
==>=> 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_dur <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	497	595	
==>=> 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_dur <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26770	26866	
==>h attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<p <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31322	31418	
==>h attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25789	25883	
==>ex that's supposed to
update its target's C<pos()>.  This method, where it returns a
I<referenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9578	9666	
==>B use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9578	9666	
==>B use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9578	9666	
==>B use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6960	7071	
==>I SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    wa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6960	7071	
==>I SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    wa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6960	7071	
==>I SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1484	1586	
==>$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1484	1586	
==>$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1484	1586	
==>$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10114	10244	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12755	12885	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13591	13721	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16232	16362	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12872	13002	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15594	15724	
==>uple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have ide <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	2960	3064	
==>self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self. <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4222	4326	
==>self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2960	3064	
==>self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4222	4326	
==>self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	50	148	
==>%!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	50	148	
==>%!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15512	15646	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12768	12902	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15512	15646	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12768	12902	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15512	15646	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12768	12902	
==>ce') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18181	18348	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15419	15586	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18181	18348	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15419	15586	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18181	18348	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15419	15586	
==>m 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11528	11681	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3040	3193	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11528	11681	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3040	3193	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11528	11681	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3040	3193	
==>arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (othe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4519	4665	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7031	7177	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4519	4665	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7031	7177	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4519	4665	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7031	7177	
==>ivate method in here...
                    # there is no real distinction between the
                    # private class method or the private in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4897	4992	
==>re is *no* attention
# paid to the associativity of the original operator and auto-metaed versio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4897	4992	
==>re is *no* attention
# paid to the associativity of the original operator and auto-metaed versio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4897	4992	
==>re is *no* attention
# paid to the associativity of the original operator and auto-metaed versio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	591	684	
==>})')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	591	684	
==>})')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	591	684	
==>})')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1244	1346	
==>e} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1244	1346	
==>e} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1453	1555	
==>e} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12753	12890	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19590	19727	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20743	20880	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13032	13169	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19869	20006	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21022	21159	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25198	25353	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pus <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25198	25353	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pus <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25198	25353	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11489	11577	
==>specifc
code to the class that consumed it.

-------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11489	11577	
==>specifc
code to the class that consumed it.

-------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11489	11577	
==>specifc
code to the class that consumed it.

-------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4512	4603	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6461	6552	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4512	4603	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6461	6552	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4512	4603	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6461	6552	
==>ype->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant <==
6	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1526	1671	
==>ept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.append_value( <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5845	5955	
==>method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    retu <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5845	5955	
==>method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	212	306	
==>ed($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	212	306	
==>ed($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	212	306	
==>ed($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7025	7134	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6155	6264	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2809	2918	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2809	2918	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7025	7134	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6155	6264	
==>);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2825	3001	
==>bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2825	3001	
==>bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2825	3001	
==>bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9280	9392	
==>ram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9280	9392	
==>ram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9280	9392	
==>ram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'} <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22059	22185	
==>b {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22619	22745	
==>b {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18480	18606	
==>b {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19040	19166	
==>b {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nes <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16301	16394	
==>d packages that empowers single binaries to support N
locales or user types simultaneously, an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16301	16394	
==>d packages that empowers single binaries to support N
locales or user types simultaneously, an <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11019	11159	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12490	12630	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14496	14636	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15967	16107	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13804	13944	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15329	15469	
==>eading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7759	7866	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10682	10789	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7759	7866	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10682	10789	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7759	7866	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10682	10789	
==>class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridde <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	4377	4494	
==>value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      current_pragma_value or c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8592	8702	
==>dx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8592	8702	
==>dx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8592	8702	
==>dx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5340	5442	
==>YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)

  /lib/Pugs <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5155	5252	
==>YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)
  /lib/Pugs <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	665	782	
==>match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6183	6300	
==>match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	665	782	
==>match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6195	6312	
==>match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18991	19082	
==>t>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18991	19082	
==>t>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4976	5089	
==>e) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4976	5089	
==>e) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4976	5089	
==>e) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2279	2370	
==>od(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2279	2370	
==>od(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2279	2370	
==>od(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	819	928	
==>come our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	819	928	
==>come our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	819	928	
==>come our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4213	4308	
==>}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4213	4308	
==>}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4213	4308	
==>}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2456	2580	
==>return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2456	2580	
==>return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2456	2580	
==>return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @star <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37253	37347	
==>of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41802	41896	
==>of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41425	41519	
==>of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13544	13638	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13687	13781	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13544	13638	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13687	13781	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13544	13638	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13687	13781	
==>t_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1575	1724	
==>} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $str <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1575	1724	
==>} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $str <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1074	1179	
==>ast_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val) = each %$ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	192	279	
==>rl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::A <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	192	279	
==>rl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::A <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	192	279	
==>rl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4684	4845	
==>ds => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4684	4845	
==>ds => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4684	4845	
==>ds => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                m <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11384	11530	
==>r(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	973	1080	
==>}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	973	1080	
==>}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18758	18874	
==>);
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18758	18874	
==>);
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18758	18874	
==>);
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	527	620	
==>X::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub exp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	527	620	
==>X::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub exp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	527	620	
==>X::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3087	3189	
==>self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3087	3189	
==>self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3087	3189	
==>self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3493	3587	
==>ead_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3493	3587	
==>ead_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3493	3587	
==>ead_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12515	12609	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10066	10160	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12515	12609	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10066	10160	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12515	12609	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10066	10160	
==>paque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	820	965	
==>d;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	820	965	
==>d;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	820	965	
==>d;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_c <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1845	1948	
==>>

  $strap->_init;

Initialize the internal state of a strap to make it ready for parsing.

=cut

sub _ <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2850	2945	
==>riginal text, or at
least a valid representation of it that "honours the spirit of the
dialect", <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2850	2945	
==>riginal text, or at
least a valid representation of it that "honours the spirit of the
dialect", <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2670	2778	
==>], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(pa <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2670	2778	
==>], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1020	1117	
==>local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1020	1117	
==>local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1020	1117	
==>local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{p <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	19735	19828	
==>Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN modules when not runnin <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20327	20426	
==>()>

Returns a true value if the bot's socket to the server is currently connected.

Note that you m <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20327	20426	
==>()>

Returns a true value if the bot's socket to the server is currently connected.

Note that you m <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20602	20700	
==>rns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19528	19626	
==>rns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20602	20700	
==>rns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19528	19626	
==>rns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5012	5194	
==>natives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    an <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4228	4402	
==>natives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11360	11508	
==>ng else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11360	11508	
==>ng else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11360	11508	
==>ng else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	48	144	
==>e::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warning <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	832	932	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1352	1452	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	832	932	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1352	1452	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	832	932	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1352	1452	
==>rray = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9442	9551	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6989	7098	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9442	9551	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6989	7098	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9442	9551	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6989	7098	
==>':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	922	1031	
==>>{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	922	1031	
==>>{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	17403	17510	
==>the second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_pair is b -> (int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7415	7514	
==>pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7415	7514	
==>pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7415	7514	
==>pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1320	1450	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2883	3013	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1320	1450	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2883	3013	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1320	1450	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2883	3013	
==>t of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18719	18855	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15957	16093	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18719	18855	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15957	16093	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18719	18855	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15957	16093	
==>our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12975	13114	
==>ve {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12975	13114	
==>ve {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12975	13114	
==>ve {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn " <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1860	1999	
==>ve {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn " <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3196	3303	
==>$term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3184	3291	
==>$term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	725	911	
==>{ return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	725	911	
==>{ return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ] <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1570	1700	
==>me}_exe.uu")) {
    print "# Unpacking $exename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	289	393	
==>[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	289	393	
==>[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	289	393	
==>[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1172	1286	
==>'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1172	1286	
==>'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1172	1286	
==>'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19934	20024	
==>SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19934	20024	
==>SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19934	20024	
==>SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3006	3115	
==>undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3006	3115	
==>undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3006	3115	
==>undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3060	3153	
==>erl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3060	3153	
==>erl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3060	3153	
==>erl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25145	25304	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27334	27493	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25145	25304	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27334	27493	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25145	25304	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27334	27493	
==>eric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3370	3464	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6384	6478	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8452	8546	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3370	3464	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6384	6478	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8452	8546	
==>abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4564	4673	
==>ss "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4564	4673	
==>ss "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4564	4673	
==>ss "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27030	27125	
==>al's attributes to what C<project> would
return given the same C<$attrs>.  This method has an al <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31582	31677	
==>al's attributes to what C<project> would
return given the same C<$attrs>.  This method has an al <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30638	30733	
==>al's attributes to what C<project> would
return given the same C<$attrs>.  This method has an al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11014	11160	
==>od = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11014	11160	
==>od = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11014	11160	
==>od = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $t <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1491	1603	
==>KEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $f <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1491	1603	
==>KEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $f <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2945	3055	
==>KEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1005	1108	
==>hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1005	1108	
==>hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1005	1108	
==>hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4184	4286	
==>s special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introsp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4184	4286	
==>s special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introsp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4184	4286	
==>s special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introsp <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14003	14119	
==>e, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0 <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14003	14119	
==>e, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13069	13177	
==>e, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0 <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13069	13177	
==>e, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0 <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4441	4548	
==>roize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns A <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4441	4548	
==>roize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns A <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1578	1715	
==>me::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1578	1715	
==>me::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28205	28299	
==>ng()>

This method returns a stringified version of this object which is suitable
for debugging <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35561	35655	
==>ng()>

This method returns a stringified version of this object which is suitable
for debugging <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28205	28299	
==>ng()>

This method returns a stringified version of this object which is suitable
for debugging <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35561	35655	
==>ng()>

This method returns a stringified version of this object which is suitable
for debugging <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1242	1411	
==>ption,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            p <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1242	1411	
==>ption,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            p <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	935	1066	
==>start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_o <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4174	4305	
==>start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_o <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	935	1066	
==>start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_o <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4174	4305	
==>start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8391	8553	
==>str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # e <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4751	4913	
==>str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5600	5762	
==>str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	425	543	
==>}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	425	543	
==>}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	425	543	
==>}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	389	475	
==>wn, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	389	475	
==>wn, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	389	475	
==>wn, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	214	316	
==>);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	214	316	
==>);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	214	316	
==>);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	329	430	
==>ame));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	329	430	
==>ame));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	329	430	
==>ame));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	863	973	
==>_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	863	973	
==>_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	863	973	
==>_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1396	1489	
==>mports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1396	1489	
==>mports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1396	1489	
==>mports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5657	5763	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8627	8733	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5657	5763	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8627	8733	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5657	5763	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8627	8733	
==>method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1618	1739	
==>);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1618	1739	
==>);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1618	1739	
==>);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1143	1241	
==>s at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_du <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1143	1241	
==>s at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_du <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1143	1241	
==>s at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_du <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12111	12238	
==>lder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Build <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2513	2626	
==>lder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Build <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2513	2626	
==>lder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Build <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16522	16631	
==>od(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16522	16631	
==>od(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16522	16631	
==>od(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	556	683	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	943	1070	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1336	1463	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	556	683	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	943	1070	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1336	1463	
==>n Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4125	4255	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6774	6904	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4359	4486	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10808	10935	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4359	4486	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10808	10935	
==>urn unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20156	20292	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17295	17431	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20156	20292	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17295	17431	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20156	20292	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17295	17431	
==>add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2318	2449	
==>put)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sho <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2318	2449	
==>put)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sho <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2318	2449	
==>put)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2440	2558	
==>=> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2440	2558	
==>=> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2787	2905	
==>=> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13077	13196	
==>mmar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opti <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21127	21246	
==>mmar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13356	13475	
==>mmar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21406	21525	
==>mmar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opti <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19785	19881	
==>value of
a Relation object is determined when it is constructed, and the object can
not be change <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24337	24433	
==>value of
a Relation object is determined when it is constructed, and the object can
not be change <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	98	228	
==>ash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3152	3282	
==>ash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	98	228	
==>ash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3152	3282	
==>ash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	865	979	
==>");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{adm <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2700	2805	
==>");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{adm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16179	16280	
==>rom_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16179	16280	
==>rom_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16179	16280	
==>rom_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	49	147	
==>Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	49	147	
==>Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	49	147	
==>Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1786	1881	
==>.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=it <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1875	1970	
==>.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=it <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22135	22229	
==>C)     :- (char_type(C,alnum);char_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1647	1831	
==>b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1647	1831	
==>b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1647	1831	
==>b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15096	15217	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12350	12471	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15096	15217	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12350	12471	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15096	15217	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12350	12471	
==>=> '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24782	24907	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26971	27096	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24782	24907	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26971	27096	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24782	24907	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26971	27096	
==>arn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4492	4632	
==>cher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4492	4632	
==>cher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4492	4632	
==>cher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        m <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5931	6020	
==>de_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutin <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5931	6020	
==>de_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutin <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2830	2919	
==>de_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5689	5858	
==>ues' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5689	5858	
==>ues' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5689	5858	
==>ues' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10984	11106	
==>$key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10984	11106	
==>$key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10984	11106	
==>$key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8977	9085	
==>o,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8977	9085	
==>o,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8977	9085	
==>o,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	582	686	
==>izer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	582	686	
==>izer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	582	686	
==>izer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->ha <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2887	3044	
==>{ 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gre <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3172	3319	
==>{ 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gre <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9590	9737	
==>{ 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3172	3319	
==>{ 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9590	9737	
==>{ 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gre <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	471	563	
==>WNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Swi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15870	16014	
==>= '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15870	16014	
==>= '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15870	16014	
==>= '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

su <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	714	810	
==>m B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHO <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	714	810	
==>m B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1270	1366	
==>m B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2116	2220	
==>ibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2116	2220	
==>ibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2116	2220	
==>ibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	292	392	
==>->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	292	392	
==>->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	292	392	
==>->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2688	2797	
==>{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2688	2797	
==>{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2688	2797	
==>{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16019	16117	
==>lass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16019	16117	
==>lass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16019	16117	
==>lass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7340	7483	
==>erl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7340	7483	
==>erl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7340	7483	
==>erl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1987	2092	
==>else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comman <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1987	2092	
==>else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comman <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1987	2092	
==>else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comman <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2096	2214	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2501	2619	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2096	2214	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2501	2619	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2096	2214	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2501	2619	
==>b-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var bac <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	445	565	
==>h;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    boo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	445	565	
==>h;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    boo <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1212	1316	
==>$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6088	6179	
==>y $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6088	6179	
==>y $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6088	6179	
==>y $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_I <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22104	22200	
==>> on the
appropriate class name, and then invoking methods on those objects.  All of
their attrib <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9377	9473	
==>> on the
appropriate class name, and then invoking methods on those objects.  All of
their attrib <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22104	22200	
==>> on the
appropriate class name, and then invoking methods on those objects.  All of
their attrib <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9377	9473	
==>> on the
appropriate class name, and then invoking methods on those objects.  All of
their attrib <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24472	24567	
==>> on
the appropriate class name, and then invoking methods on those objects.
All of their attrib <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24472	24567	
==>> on
the appropriate class name, and then invoking methods on those objects.
All of their attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5600	5761	
==>>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5600	5761	
==>>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5600	5761	
==>>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            } <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12555	12670	
==>tine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underl <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12555	12670	
==>tine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underl <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	811	923	
==>to_native == 0 ? num->new(0) : num->new(1) }

# methods 

sub not {
    my $self = shift;
    if ($self == $TRUE) <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	266	487	
==>{
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	266	487	
==>{
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/util/func_refact.pl	1388	1505	
==>_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	101	203	
==>tes ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	101	203	
==>tes ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	101	203	
==>tes ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3405	3520	
==>sif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3405	3520	
==>sif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3405	3520	
==>sif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, the <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5574	5683	
==>d_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5574	5683	
==>d_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.spa <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12	113	
==>t to convert S29draft.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4739	4888	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2926	3075	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4739	4888	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2926	3075	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4739	4888	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2926	3075	
==>wever, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10591	10759	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8142	8310	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10591	10759	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8142	8310	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10591	10759	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8142	8310	
==>k to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8644	8778	
==>== undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8644	8778	
==>== undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8644	8778	
==>== undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	107	209	
==>Log
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	107	209	
==>Log
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	107	209	
==>Log
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arit <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3401	3519	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11959	12077	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6526	6644	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3401	3519	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11959	12077	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6526	6644	
==>RG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13226	13361	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13226	13361	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13226	13361	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5466	5601	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3966	4101	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2111	2246	
==>defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $l <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	722	836	
==>@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	704	815	
==>@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only = <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	704	815	
==>@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16659	16757	
==>B Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16659	16757	
==>B Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16659	16757	
==>B Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15098	15210	
==>$j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15098	15210	
==>$j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15098	15210	
==>$j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_ <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7176	7273	
==>e_hook_p5re",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook_p5re <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7088	7184	
==>m (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not suppo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7088	7184	
==>m (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not suppo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3730	3837	
==>un_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3730	3837	
==>un_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3730	3837	
==>un_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1781	1886	
==>nce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1781	1886	
==>nce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1781	1886	
==>nce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4739	4860	
==>n bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4739	4860	
==>n bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4739	4860	
==>n bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Typ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2440	2631	
==>h.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2440	2631	
==>h.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	19637	19737	
==>un => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new("str")),
	),
);

# we ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2595	2691	
==>ile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2595	2691	
==>ile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2595	2691	
==>ile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14971	15079	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12225	12333	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14971	15079	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12225	12333	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14971	15079	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12225	12333	
==>te_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2928	3040	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5458	5570	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2928	3040	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5458	5570	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2928	3040	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5458	5570	
==>cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1144	1262	
==>self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1144	1262	
==>self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1144	1262	
==>self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6849	6957	
==>efault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6849	6957	
==>efault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6849	6957	
==>efault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4594	4736	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7106	7248	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4594	4736	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7106	7248	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4594	4736	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7106	7248	
==>between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13446	13570	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13446	13570	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13446	13570	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4625	4723	
==>Main}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4625	4723	
==>Main}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4625	4723	
==>Main}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10136	10294	
==>ts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10136	10294	
==>ts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10136	10294	
==>ts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4117	4223	
==>@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4117	4223	
==>@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4117	4223	
==>@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2741	2885	
==>$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2741	2885	
==>$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2741	2885	
==>$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9077	9190	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6624	6737	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9077	9190	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6624	6737	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9077	9190	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6624	6737	
==>order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	969	1072	
==>e;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11721	11821	
==>f a regexp struct.  Another
  hopefully unused part of the struct is overwritten with a flag
  value, <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6567	6666	
==>Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5697	5796	
==>Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6567	6666	
==>Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5697	5796	
==>Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11011	11109	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8564	8662	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11011	11109	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8564	8662	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11011	11109	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8564	8662	
==>ake_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_it <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4431	4617	
==>urn { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $cap <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4296	4477	
==>urn { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $cap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18751	18874	
==>ass::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18751	18874	
==>ass::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18751	18874	
==>ass::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can' <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1768	1862	
==>>compile(@_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($compiled);

	$self->emi <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	11735	11862	
==>= $relative_file;
      if ($regex) {
        $reopts||='';
        $link->{regex} = eval "qr/$regex/$reopts";
      }
      $li <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	312	411	
==>ns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4752	4851	
==>ected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	l <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	312	411	
==>ns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4752	4851	
==>ected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4752	4851	
==>ected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	l <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29518	29634	
==>ournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29518	29634	
==>ournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9519	9634	
==>[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9519	9634	
==>[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9519	9634	
==>[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]) <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	330	438	
==>ournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14430	14576	
==>t( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14430	14576	
==>t( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12173	12279	
==>>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_appl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12173	12279	
==>>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_appl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12173	12279	
==>>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_appl <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	39	138	
==>Backends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3124	3225	
==>.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9107	9208	
==>xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9107	9208	
==>xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9107	9208	
==>xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3124	3225	
==>.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3124	3225	
==>.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20400	20495	
==>y($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20400	20495	
==>y($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20400	20495	
==>y($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5461	5711	
==>{
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$ke <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5461	5711	
==>{
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1160	1275	
==>\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.au <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1160	1275	
==>\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.au <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1160	1275	
==>\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.au <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	603	710	
==>unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        } <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4519	4636	
==>use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4519	4636	
==>use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	2410	2516	
==>>{$name} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $template = do { local <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6937	7028	
==>d JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6937	7028	
==>d JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6937	7028	
==>d JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2895	3006	
==>ef($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2895	3006	
==>ef($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2895	3006	
==>ef($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1055	1163	
==>d",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1055	1163	
==>d",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1055	1163	
==>d",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	635	743	
==>.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the grammar, intended for a token <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2999	3100	
==>' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2999	3100	
==>' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3079	3180	
==>' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' ) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2153	2250	
==>ual($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2153	2250	
==>ual($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5595	5699	
==>_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5595	5699	
==>_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5595	5699	
==>_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9704	9802	
==>zy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9704	9802	
==>zy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9704	9802	
==>zy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1447	1581	
==>e));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1447	1581	
==>e));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1447	1581	
==>e));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5579	5685	
==>py and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5579	5685	
==>py and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5579	5685	
==>py and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3346	3503	
==>table, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3346	3503	
==>table, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3346	3503	
==>table, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14072	14168	
==>ass.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14072	14168	
==>ass.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14072	14168	
==>ass.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1486	1594	
==>); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1486	1594	
==>); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1486	1594	
==>); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31313	31405	
==>bset is those for which the the
Bool-returning anonymous function in the argument C<$predicat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35863	35955	
==>bset is those for which the the
Bool-returning anonymous function in the argument C<$predicat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35081	35173	
==>bset is those for which the the
Bool-returning anonymous function in the argument C<$predicat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15331	15453	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20064	20186	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15331	15453	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20064	20186	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15331	15453	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20064	20186	
==>n
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1858	1955	
==>r;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1858	1955	
==>r;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1858	1955	
==>r;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2342	2437	
==>diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2342	2437	
==>diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2422	2517	
==>diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11173	11296	
==>Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11173	11296	
==>Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11173	11296	
==>Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3027	3121	
==>> "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3027	3121	
==>> "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3027	3121	
==>> "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|me <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15128	15242	
==>);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18605	18719	
==>);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18021	18135	
==>);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-o <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4929	5027	
==>tem B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in th <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4929	5027	
==>tem B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7126	7224	
==>tem B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12157	12259	
==>@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12157	12259	
==>@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12157	12259	
==>@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10117	10216	
==>op;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10117	10216	
==>op;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10117	10216	
==>op;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11133	11247	
==>ntiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11133	11247	
==>ntiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11133	11247	
==>ntiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arra <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	3684	3787	
==>e (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ / <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3684	3787	
==>e (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ / <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14340	14429	
==>++'>
    | <LeftHandSideExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpression : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9832	9966	
==>},
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9832	9966	
==>},
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9832	9966	
==>},
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5142	5241	
==>$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5142	5241	
==>$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5142	5241	
==>$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12708	12812	
==>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <ElementL <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6387	6482	
==>d by a URL. The document is printed
to the selected default filehandle for output (normally STDO <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6387	6482	
==>d by a URL. The document is printed
to the selected default filehandle for output (normally STDO <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1132	1218	
==>al_args";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7211	7322	
==>hod, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7211	7322	
==>hod, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7211	7322	
==>hod, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2892	2992	
==>rsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2892	2992	
==>rsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2892	2992	
==>rsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3546	3691	
==>fined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a sc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3546	3691	
==>fined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a sc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3546	3691	
==>fined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a sc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4212	4327	
==>statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5061	5176	
==>statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12649	12746	
==>{
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldispla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24096	24205	
==>sive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24096	24205	
==>sive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24096	24205	
==>sive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8337	8428	
==>=======================================

use FindBin;
use File::Spec;

sub path_from_me { Fi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8337	8428	
==>=======================================

use FindBin;
use File::Spec;

sub path_from_me { Fi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8337	8428	
==>=======================================

use FindBin;
use File::Spec;

sub path_from_me { Fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5807	5916	
==>y($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5807	5916	
==>y($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5807	5916	
==>y($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1201	1304	
==>ESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2366	2469	
==>ESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    retu <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	414	514	
==>rpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another object <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8973	9110	
==>od eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefine <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8973	9110	
==>od eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefine <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8973	9110	
==>od eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefine <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3512	3607	
==>(keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = dele <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3512	3607	
==>(keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = dele <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4102	4197	
==>(keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = dele <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14446	14616	
==>, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14446	14616	
==>, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14446	14616	
==>, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen { <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2977	3147	
==>, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1210	1318	
==>s;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    ret <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1210	1318	
==>s;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12969	13083	
==>vent) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12969	13083	
==>vent) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8294	8393	
==>)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8294	8393	
==>)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8294	8393	
==>)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLAS <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23086	23179	
==>oles' attributes (eg,
volatile or persistent) and provide accessors to them.  The Relation
lib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2680	2792	
==>e don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2680	2792	
==>e don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2680	2792	
==>e don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2023	2125	
==>ode();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2023	2125	
==>ode();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2023	2125	
==>ode();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2582	2736	
==>ebug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2582	2736	
==>ebug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16948	17081	
==>"\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic_reduce {
    my $self = shift;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	394	498	
==>ect, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	394	498	
==>ect, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	394	498	
==>ect, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2883	3010	
==>eturn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2883	3010	
==>eturn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2883	3010	
==>eturn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	159	263	
==>Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	159	263	
==>Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	159	263	
==>Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3123	3258	
==>",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.lo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3123	3258	
==>",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.lo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3123	3258	
==>",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9912	10023	
==>y $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9912	10023	
==>y $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9912	10023	
==>y $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2788	2909	
==>new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the prec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2788	2909	
==>new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the prec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2788	2909	
==>new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the prec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4124	4242	
==>okensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4124	4242	
==>okensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4124	4242	
==>okensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $ <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	237	354	
==>e $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List {
   my $str = ~@values[ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	128	230	
==>and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7401	7503	
==>y $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_me <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	128	230	
==>and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7401	7503	
==>y $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7401	7503	
==>y $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5073	5181	
==>$native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5073	5181	
==>$native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5073	5181	
==>$native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  re <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4017	4118	
==>m;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BU <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4017	4118	
==>m;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BU <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40207	40300	
==>robably easiest to follow my module when creating warning and
error messages for your sub-clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14620	14755	
==>>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14620	14755	
==>>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14620	14755	
==>>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	58	153	
==>se File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	58	153	
==>se File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	58	153	
==>se File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16608	16713	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13813	13918	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16608	16713	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13813	13918	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16608	16713	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13813	13918	
==>her = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7294	7399	
==>hority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7294	7399	
==>hority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7294	7399	
==>hority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5858	5957	
==>y->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5858	5957	
==>y->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5858	5957	
==>y->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11243	11353	
==>$array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11243	11353	
==>$array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11243	11353	
==>$array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9381	9478	
==>@:roles is rw;  # makes the roles mutator/accessor

    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9381	9478	
==>@:roles is rw;  # makes the roles mutator/accessor

    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9381	9478	
==>@:roles is rw;  # makes the roles mutator/accessor

    # ---------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	169	312	
==>= 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	169	312	
==>= 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	169	312	
==>= 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	155	259	
==>me;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	155	259	
==>me;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	155	259	
==>me;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36551	36670	
==>t( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36551	36670	
==>t( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36551	36670	
==>t( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4407	4519	
==>=> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4407	4519	
==>=> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4407	4519	
==>=> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_} <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13880	13986	
==>e haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connecti <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13880	13986	
==>e haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connecti <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	887	991	
==>( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_captu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	898	1002	
==>( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_captu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12950	13052	
==>e haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connecti <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12950	13052	
==>e haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connecti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1779	1913	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1779	1913	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1779	1913	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1605	1718	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1605	1718	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1605	1718	
==>);
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25101	25198	
==>d deterministic,
such that all of its class and object methods will each return the same
result an <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11232	11329	
==>d deterministic,
such that all of its class and object methods will each return the same
result an <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14505	14602	
==>d deterministic, such that all of its class and
object methods will each return the same result an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25101	25198	
==>d deterministic,
such that all of its class and object methods will each return the same
result an <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11232	11329	
==>d deterministic,
such that all of its class and object methods will each return the same
result an <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14505	14602	
==>d deterministic, such that all of its class and
object methods will each return the same result an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1220	1406	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1220	1406	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1220	1406	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5251	5362	
==>y->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5251	5362	
==>y->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5251	5362	
==>y->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3577	3679	
==>fix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference ope <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3577	3679	
==>fix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference ope <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4452	4552	
==>fix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference ope <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4452	4552	
==>fix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference ope <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	869	967	
==>ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	748	836	
==>ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5587	5691	
==>name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5587	5691	
==>name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5587	5691	
==>name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS. <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6706	6808	
==>node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6706	6808	
==>node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3605	3707	
==>node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40175	40287	
==>alue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40175	40287	
==>alue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40175	40287	
==>alue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5130	5221	
==>el);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5130	5221	
==>el);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5130	5221	
==>el);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39381	39491	
==>array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39381	39491	
==>array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39381	39491	
==>array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3870	3972	
==>ce an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3870	3972	
==>ce an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3870	3972	
==>ce an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13471	13578	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10755	10862	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13471	13578	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10755	10862	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13471	13578	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10755	10862	
==>) {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) e <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3928	4048	
==>tmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3928	4048	
==>tmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	778	898	
==>tmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	533	643	
==>rimitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	533	643	
==>rimitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	533	643	
==>rimitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20185	20358	
==>lf->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20185	20358	
==>lf->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20185	20358	
==>lf->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3583	3684	
==>6)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediatel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3583	3684	
==>6)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediatel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3583	3684	
==>6)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediatel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6728	6828	
==>b {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6728	6828	
==>b {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6728	6828	
==>b {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_su <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	25593	25690	
==>test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not all tests were succes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31703	31799	
==>count of this object (for quantifiers).

=item min

The minimum repetition count of this object ( <==
6	/Users/nnunley/pugs/util/run-smoke.pl	2513	2608	
==>ocation);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X $smoke_uplo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	345	479	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	343	477	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	345	479	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	343	477	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	345	479	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	343	477	
==>ion of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUN <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25219	25314	
==>hange to an object when the permutation of its
arguments and any invocant object's attributes is <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11350	11445	
==>hange to an object when the permutation of its
arguments and any invocant object's attributes is <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14623	14718	
==>hange
to an object when the permutation of its arguments and any invocant
object's attributes is <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25219	25314	
==>hange to an object when the permutation of its
arguments and any invocant object's attributes is <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11350	11445	
==>hange to an object when the permutation of its
arguments and any invocant object's attributes is <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14623	14718	
==>hange
to an object when the permutation of its arguments and any invocant
object's attributes is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4918	5042	
==>PE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4918	5042	
==>PE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4918	5042	
==>PE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDE <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2329	2436	
==>00 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2329	2436	
==>00 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is <==
6	/Users/nnunley/pugs/util/build_pugs.pl	4961	5067	
==>AVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	625	736	
==>CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	625	736	
==>CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	625	736	
==>CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	489	586	
==>added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constru <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	489	586	
==>added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constru <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	489	586	
==>added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9816	9939	
==>( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9816	9939	
==>( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9816	9939	
==>( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	996	1090	
==>> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	996	1090	
==>> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	996	1090	
==>> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi su <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25106	25201	
==>erministic,
such that all of its class and object methods will each return the same
result and/o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11237	11332	
==>erministic,
such that all of its class and object methods will each return the same
result and/o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14510	14605	
==>erministic, such that all of its class and
object methods will each return the same result and/o <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25106	25201	
==>erministic,
such that all of its class and object methods will each return the same
result and/o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11237	11332	
==>erministic,
such that all of its class and object methods will each return the same
result and/o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14510	14605	
==>erministic, such that all of its class and
object methods will each return the same result and/o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10256	10385	
==>"Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10256	10385	
==>"Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10256	10385	
==>"Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1325	1424	
==>ew(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1325	1424	
==>ew(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1325	1424	
==>ew(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2146	2283	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1258	1395	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2146	2283	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1258	1395	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2146	2283	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1258	1395	
==>ue_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3836	3935	
==>js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3836	3935	
==>js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3836	3935	
==>js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5458	5552	
==>new_role->version($version)     if defined $version;
    $new_role->authority($authority) if de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5458	5552	
==>new_role->version($version)     if defined $version;
    $new_role->authority($authority) if de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5458	5552	
==>new_role->version($version)     if defined $version;
    $new_role->authority($authority) if de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9305	9419	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6852	6966	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9305	9419	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6852	6966	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9305	9419	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6852	6966	
==>spatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17399	17498	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14624	14723	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17399	17498	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14624	14723	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17399	17498	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14624	14723	
==>'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7651	7755	
==>( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7651	7755	
==>( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7651	7755	
==>( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2198	2300	
==>lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b shou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2198	2300	
==>lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b shou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2198	2300	
==>lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b shou <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17329	17441	
==>(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11944	12055	
==>(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reve <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11944	12055	
==>(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reve <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11944	12055	
==>(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reve <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3643	3750	
==>ression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expressio <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3643	3750	
==>ression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expressio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7007	7124	
==>}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cour <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7007	7124	
==>}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cour <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7007	7124	
==>}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cour <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2259	2357	
==>mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2259	2357	
==>mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2259	2357	
==>mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	341	460	
==>add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9759	9878	
==>add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24740	24836	
==>d when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disco <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23504	23600	
==>d when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disco <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24740	24836	
==>d when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disco <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23504	23600	
==>d when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disco <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	591	773	
==>trolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	591	773	
==>trolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	591	773	
==>trolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Cont <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	121	223	
==>: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	85	186	
==>: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	173	274	
==>: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5770	5867	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4900	4997	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5770	5867	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4900	4997	
==>two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4762	4854	
==>piler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5012	5104	
==>piler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14178	14265	
==>uperclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14178	14265	
==>uperclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14178	14265	
==>uperclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	101	205	
==>urn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	101	205	
==>urn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	101	205	
==>urn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4955	5045	
==>2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4955	5045	
==>2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4955	5045	
==>2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15437	15595	
==>CTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15437	15595	
==>CTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15437	15595	
==>CTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13540	13638	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13540	13638	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13540	13638	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5747	5848	
==>tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5747	5848	
==>tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6785	6884	
==>inted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stev <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4137	4236	
==>inted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stev <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6785	6884	
==>inted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stev <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4137	4236	
==>inted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	862	1026	
==>(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	862	1026	
==>(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	862	1026	
==>(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1200	1291	
==>w PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1200	1291	
==>w PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1200	1291	
==>w PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9567	9690	
==>acro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5908	6031	
==>acro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6757	6880	
==>acro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3688	3792	
==>er 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to tr <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3688	3792	
==>er 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to tr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5885	5989	
==>er 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2786	2886	
==>array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2786	2886	
==>array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2786	2886	
==>array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1934	2031	
==>$full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1934	2031	
==>$full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1934	2031	
==>$full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	666	770	
==>ach() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	666	770	
==>ach() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	666	770	
==>ach() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2873	2974	
==>te) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2873	2974	
==>te) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2873	2974	
==>te) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6066	6185	
==>s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6066	6185	
==>s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6066	6185	
==>s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	144	241	
==>also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	144	241	
==>also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	144	241	
==>also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3797	3899	
==>on ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4050	4152	
==>on ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3797	3899	
==>on ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4050	4152	
==>on ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13401	13499	
==>7-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13401	13499	
==>7-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15857	15982	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13107	13232	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15857	15982	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13107	13232	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15857	15982	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13107	13232	
==>t provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4078	4206	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7014	7142	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4078	4206	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7014	7142	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4078	4206	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7014	7142	
==>o the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outsi <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3948	4048	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6927	7027	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8997	9097	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3948	4048	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6927	7027	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8997	9097	
==><KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more informati <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5644	5770	
==>']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6912	7038	
==>']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5644	5770	
==>']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6900	7026	
==>']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    r <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11286	11376	
==><url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str> <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11286	11376	
==><url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32880	32984	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33335	33439	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37430	37534	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37885	37989	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36765	36869	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37265	37369	
==>s multi-method is a generic binary relational operator that is like
C<union> except that the returned Rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10900	11023	
==>text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @block <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10900	11023	
==>text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @block <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3086	3193	
==>d_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3086	3193	
==>d_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3086	3193	
==>d_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($t <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9564	9653	
==>ue=>1") if $op{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	79	179	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	76	176	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	74	169	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	68	163	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	74	169	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	68	163	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Reg <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19001	19099	
==>the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal do <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19001	19099	
==>the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal do <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25096	25181	
==>LES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23860	23945	
==>LES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25096	25181	
==>LES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23860	23945	
==>LES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14931	15041	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12185	12295	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14931	15041	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12185	12295	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14931	15041	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12185	12295	
==>ttribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2986	3118	
==>"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_si <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2986	3118	
==>"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_si <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	675	777	
==>nd die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	675	777	
==>nd die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	675	777	
==>nd die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sp <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24821	24909	
==>,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1601	1707	
==>fy('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN')) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1601	1707	
==>fy('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN')) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1601	1707	
==>fy('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN')) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	689	789	
==>we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	689	789	
==>we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	689	789	
==>we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2320	2542	
==>new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+lengt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1460	1626	
==>new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+lengt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1460	1626	
==>new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+lengt <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8050	8172	
==>target, ")", pos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    mob["value"] = $S0
    inc pos
  end:
    mpos = <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2447	2567	
==>$tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2447	2567	
==>$tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6688	6788	
==>,

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6688	6788	
==>,

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6688	6788	
==>,

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14247	14336	
==>.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14247	14336	
==>.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14247	14336	
==>.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	919	1039	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1007	1127	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	919	1039	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1007	1127	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	919	1039	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1007	1127	
==>=~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7898	8047	
==>( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7898	8047	
==>( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7898	8047	
==>( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12170	12278	
==>= {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12170	12278	
==>= {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12170	12278	
==>= {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3881	4059	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6408	6586	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3881	4059	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6408	6586	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3881	4059	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6408	6586	
==>($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{subm <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4213	4316	
==>lf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4213	4316	
==>lf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4213	4316	
==>lf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14075	14171	
==>MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14075	14171	
==>MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14075	14171	
==>MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2996	3196	
==>boxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2996	3196	
==>boxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2996	3196	
==>boxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2850	2947	
==>lsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2850	2947	
==>lsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2850	2947	
==>lsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contain <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3334	3448	
==>'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandle <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3334	3448	
==>'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandle <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3334	3448	
==>'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandle <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	585	690	
==>al eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq ' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	355	460	
==>al eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	355	460	
==>al eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq ' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21684	21809	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21963	22088	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4985	5097	
==>js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4985	5097	
==>js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4985	5097	
==>js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { j <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45425	45521	
==>) => attribute->new('%:namespace' => 'hash')));


$::Package->send('add_method' => (
    # method <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	97	219	
==>adonly" 
method clear () {
    $.x = 0;  # accessible within the class
    $.y = 0;
}

# use v5;
# package Point;
# use M <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1363	1466	
==>ize() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2694	2797	
==>2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2J <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1363	1466	
==>ize() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2694	2797	
==>2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2694	2797	
==>2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3465	3595	
==>i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3465	3595	
==>i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3465	3595	
==>i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        pu <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	698	798	
==>tal "let's see if something
like this can work" to "ok, this looks doable".  So yes, the code is
an u <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3052	3148	
==>rd("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		wh <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3052	3148	
==>rd("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		wh <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21781	21889	
==>, is used only in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        struct reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1294	1396	
==>f unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1294	1396	
==>f unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1294	1396	
==>f unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21067	21167	
==>les in a Relation are of the same
degree, and the attribute names of each tuple are all the same as t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25619	25719	
==>les in a Relation are of the same
degree, and the attribute names of each tuple are all the same as t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14587	14687	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11847	11947	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14587	14687	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11847	11947	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14587	14687	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11847	11947	
==>$label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4078	4193	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6727	6842	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4313	4425	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10762	10874	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4313	4425	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10762	10874	
==>ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7893	8012	
==>n if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7893	8012	
==>n if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7893	8012	
==>n if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2660	2759	
==>a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2660	2759	
==>a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2660	2759	
==>a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5922	6044	
==>or, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5922	6044	
==>or, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5922	6044	
==>or, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4171	4273	
==>lf.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4171	4273	
==>lf.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4171	4273	
==>lf.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	166	287	
==>]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	166	287	
==>]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	166	287	
==>]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5542	5636	
==>cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5542	5636	
==>cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5542	5636	
==>cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16585	16694	
==>return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16585	16694	
==>return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16585	16694	
==>return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6077	6183	
==>$self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6077	6183	
==>$self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6077	6183	
==>$self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = A <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11188	11302	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12659	12773	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14665	14779	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16136	16250	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13973	14087	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15498	15612	
==>rn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is fir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4257	4428	
==>thod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4257	4428	
==>thod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4257	4428	
==>thod_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6783	6940	
==>thod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6783	6940	
==>thod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6783	6940	
==>thod_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4993	5138	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5954	6099	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4993	5138	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5954	6099	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4993	5138	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5954	6099	
==>=> ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	41	163	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	36	158	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	41	163	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	36	158	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	41	163	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	36	158	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3393	3503	
==>ase=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatic <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3393	3503	
==>ase=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatic <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3393	3503	
==>ase=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9888	9989	
==>emain an implementation detail 
    # for the methods described below.
    # ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9888	9989	
==>emain an implementation detail 
    # for the methods described below.
    # ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9888	9989	
==>emain an implementation detail 
    # for the methods described below.
    # ------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2933	3040	
==>n "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2933	3040	
==>n "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2933	3040	
==>n "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2068	2158	
==>ell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2068	2158	
==>ell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2068	2158	
==>ell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20478	20610	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17617	17749	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20478	20610	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17617	17749	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20478	20610	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17617	17749	
==>becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4690	4799	
==>self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4690	4799	
==>self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4690	4799	
==>self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	498	591	
==>head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBU <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	498	591	
==>head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBU <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1054	1147	
==>head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBU <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5710	5835	
==>nstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6263	6388	
==>nstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5903	6028	
==>nstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6456	6581	
==>nstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7989	8089	
==>ate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_per <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7989	8089	
==>ate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_per <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8899	9056	
==>b{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implement <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12798	12913	
==>b{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implement <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12798	12913	
==>b{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implement <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1519	1618	
==>e' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1519	1618	
==>e' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1519	1618	
==>e' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2662	2764	
==>b p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2662	2764	
==>b p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2662	2764	
==>b p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13864	13965	
==>arn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13864	13965	
==>arn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13864	13965	
==>arn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6992	7136	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4551	4695	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6992	7136	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4551	4695	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6992	7136	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4551	4695	
==>d_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all em <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6196	6299	
==>roy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6196	6299	
==>roy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6196	6299	
==>roy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2640	2735	
==>s_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2640	2735	
==>s_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2640	2735	
==>s_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3741	3841	
==>s :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3741	3841	
==>s :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3741	3841	
==>s :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6394	6490	
==>function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6394	6490	
==>function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6394	6490	
==>function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9654	9760	
==>rom_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9654	9760	
==>rom_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9654	9760	
==>rom_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15484	15584	
==>UB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15484	15584	
==>UB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15484	15584	
==>UB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7652	7772	
==>rray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7652	7772	
==>rray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7652	7772	
==>rray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8577	8686	
==>rr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef** <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8577	8686	
==>rr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef** <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8577	8686	
==>rr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef** <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	178	343	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	983	1148	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	303	468	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	178	343	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	983	1148	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	303	468	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= " <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37974	38099	
==>sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'not' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4069	4167	
==>tion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This para <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4069	4167	
==>tion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6266	6364	
==>tion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This para <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9088	9183	
==>ckages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9088	9183	
==>ckages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	477	564	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1066	1153	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	477	564	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1066	1153	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	477	564	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1066	1153	
==>= undef;

## --------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4381	4517	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6893	7029	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4381	4517	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6893	7029	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4381	4517	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6893	7029	
==>each my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a p <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	54	169	
==>is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime($guess);
}

sub approxfp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37104	37206	
==>e( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37104	37206	
==>e( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37104	37206	
==>e( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Va <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2204	2299	
==>tem Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data a <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2204	2299	
==>tem Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	507	612	
==>_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pug <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	507	612	
==>_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pug <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6530	6633	
==>et {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6530	6633	
==>et {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7402	7503	
==>et {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7402	7503	
==>et {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16680	16790	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13885	13995	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16680	16790	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13885	13995	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16680	16790	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13885	13995	
==>r->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24147	24283	
==>= 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24147	24283	
==>= 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24147	24283	
==>= 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5136	5245	
==>y $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2678	2787	
==>y $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3459	3568	
==>y $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3853	3964	
==>ops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clon <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3853	3964	
==>ops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clon <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3853	3964	
==>ops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14173	14260	
==>::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14173	14260	
==>::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14173	14260	
==>::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6039	6166	
==>n && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6039	6166	
==>n && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $. <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4051	4145	
==>us => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        unive <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4051	4145	
==>us => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        unive <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3964	4056	
==>i sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($se <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3964	4056	
==>i sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($se <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1885	2011	
==>der of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5362	5488	
==>der of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4292	4418	
==>der of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5692	5791	
==>s_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5692	5791	
==>s_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5692	5791	
==>s_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21296	21420	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22417	22541	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22980	23104	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17717	17841	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18838	18962	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19401	19525	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, subs <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8929	9065	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alte <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9122	9258	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alte <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28192	28284	
==>as_debug_string()>

This method returns a stringified version of this object which is suitabl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35548	35640	
==>as_debug_string()>

This method returns a stringified version of this object which is suitabl <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28192	28284	
==>as_debug_string()>

This method returns a stringified version of this object which is suitabl <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35548	35640	
==>as_debug_string()>

This method returns a stringified version of this object which is suitabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12118	12229	
==>f => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12118	12229	
==>f => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12118	12229	
==>f => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	793	899	
==>= $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	793	899	
==>= $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	793	899	
==>= $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	559	699	
==>instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	764	904	
==>instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	820	960	
==>instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	417	518	
==>s> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	417	518	
==>s> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	417	518	
==>s> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11683	11781	
==>e since they
are just instances of Class which does Role too. So this means that all classes
and ro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11683	11781	
==>e since they
are just instances of Class which does Role too. So this means that all classes
and ro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11683	11781	
==>e since they
are just instances of Class which does Role too. So this means that all classes
and ro <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5210	5307	
==>s Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5210	5307	
==>s Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6734	6831	
==>s Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1895	1993	
==>} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1895	1993	
==>} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1895	1993	
==>} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1207	1304	
==>_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1207	1304	
==>_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1207	1304	
==>_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25357	25479	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26015	26137	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28797	28919	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25636	25758	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26294	26416	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29076	29198	
==>leop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10142	10260	
==>bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10142	10260	
==>bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10142	10260	
==>bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2879	2969	
==>Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2879	2969	
==>Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2879	2969	
==>Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4719	4865	
==>rn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clon <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5378	5524	
==>rn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clon <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4719	4865	
==>rn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clon <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5378	5524	
==>rn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clon <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2690	2830	
==>state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2690	2830	
==>state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13199	13327	
==>even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13199	13327	
==>even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13199	13327	
==>even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1088	1183	
==>f, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1088	1183	
==>f, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1088	1183	
==>f, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5030	5169	
==>rated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5030	5169	
==>rated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5030	5169	
==>rated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6451	6563	
==>$!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6451	6563	
==>$!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6451	6563	
==>$!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { m <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4839	4963	
==>p::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13264	13388	
==>p::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15875	15999	
==>p::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17363	17487	
==>p::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22046	22170	
==>p::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	188	283	
==>force, simplistic, and extremely foolish
# script, ignoring deeper context, needs lots of
# impr <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11024	11163	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12495	12634	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14501	14640	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15972	16111	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13809	13948	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15334	15473	
==>g ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is sec <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	130	249	
==>'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	130	249	
==>'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub p <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	130	249	
==>'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	130	249	
==>'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub p <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9732	9828	
==>difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9732	9828	
==>difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19803	19911	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16942	17050	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19803	19911	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16942	17050	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19803	19911	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16942	17050	
==>-
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13958	14053	
==>s will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (C <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10185	10280	
==>s will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (C <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13958	14053	
==>s will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (C <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10185	10280	
==>s will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (C <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3552	3643	
==>is document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3552	3643	
==>is document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4434	4542	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7370	7478	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4434	4542	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7370	7478	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4434	4542	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7370	7478	
==>ethod_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6043	6141	
==>o) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5173	5271	
==>o) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6043	6141	
==>o) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5173	5271	
==>o) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns S <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11512	11601	
==>t/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Ac <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11512	11601	
==>t/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Ac <==
6	/Users/nnunley/pugs/examples/hop6/Stream.pm	289	415	
==>l drop upto upfrom show promise
#                 filter transform merge list_to_stream cutsort
#                 iterate_funct <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1549	1642	
==>mpiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4884	4973	
==>mpiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	571	660	
==>mpiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5024	5113	
==>mpiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	571	660	
==>mpiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32705	32889	
==>{
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32705	32889	
==>{
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32705	32889	
==>{
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2665	2784	
==>6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2665	2784	
==>6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2665	2784	
==>6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2482	2623	
==>} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( $n )
            if $n->{f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3504	3607	
==>s not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3504	3607	
==>s not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3504	3607	
==>s not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in P <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2893	2988	
==>($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.string <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2893	2988	
==>($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4661	4773	
==>cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4661	4773	
==>cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4661	4773	
==>cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "C <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	185	291	
==>up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( qq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	614	711	
==>rridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determin <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	614	711	
==>rridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11152	11265	
==>c->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11152	11265	
==>c->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11152	11265	
==>c->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('b <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6496	6595	
==>rocess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6496	6595	
==>rocess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	162	259	
==>bj = JIB::Dependency->new_from_struct( struct => STRUCT )

=cut

sub new_from_struct {
    my $cla <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32510	32604	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33167	33261	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33572	33666	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37060	37154	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37717	37811	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38122	38216	
==>ion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	650	770	
==>";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	649	769	
==>";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	650	770	
==>";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	649	769	
==>";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10457	10550	
==>ring>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $clas <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10457	10550	
==>ring>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9434	9538	
==>->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9434	9538	
==>->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9434	9538	
==>->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	699	792	
==>infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.incr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	699	792	
==>infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.incr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	699	792	
==>infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.incr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4781	4934	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7717	7870	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4781	4934	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7717	7870	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4781	4934	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7717	7870	
==>hod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1882	1980	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2225	2323	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1882	1980	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2225	2323	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1882	1980	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2225	2323	
==>You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6070	6195	
==>a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6070	6195	
==>a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6070	6195	
==>a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1171	1269	
==>>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else { <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1171	1269	
==>>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else { <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1380	1478	
==>>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7937	8117	
==>";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7937	8117	
==>";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7937	8117	
==>";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1221	1328	
==>}
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1221	1328	
==>}
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1221	1328	
==>}
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13238	13343	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10522	10627	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13238	13343	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10522	10627	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13238	13343	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10522	10627	
==>params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for} <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12570	12694	
==>person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if data <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12570	12694	
==>person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if data <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	6734	6844	
==>t0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1176	1280	
==>t0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1176	1280	
==>t0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1176	1280	
==>t0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13070	13212	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13070	13212	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13070	13212	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5310	5452	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3810	3952	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1955	2097	
==>off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24889	25036	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27078	27225	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24889	25036	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27078	27225	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24889	25036	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27078	27225	
==>nless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1405	1527	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1405	1527	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1405	1527	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1165	1279	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1165	1279	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1165	1279	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5223	5365	
==>$ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' 
                || $ast->{st <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	7	104	
==>key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	7	104	
==>key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	7	104	
==>key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair" <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	781	876	
==>perty - content.

The constructor for this class has a special shortcut syntax compared
to norma <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	781	876	
==>perty - content.

The constructor for this class has a special shortcut syntax compared
to norma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3655	3781	
==>ar },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3655	3781	
==>ar },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3655	3781	
==>ar },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10470	10568	
==>: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_method' => (
    # method l <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16300	16397	
==>ise, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16300	16397	
==>ise, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Spa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8526	8631	
==>{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8526	8631	
==>{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8526	8631	
==>{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PI <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1542	1637	
==>(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return targ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11196	11285	
==>ub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discar <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11196	11285	
==>ub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19948	20069	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17087	17208	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19948	20069	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17087	17208	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19948	20069	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17087	17208	
==>) {
        # only store instance attributes with the meta model, 
        # class attributes are just package scoped "our <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3256	3374	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6249	6365	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3521	3633	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9939	10051	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3521	3633	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9939	10051	
==>] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, les <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	102	198	
==>ss keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	102	198	
==>ss keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	102	198	
==>ss keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	377	470	
==>e options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	338	431	
==>e options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	338	431	
==>e options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2680	2839	
==>ex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2873	3032	
==>ex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1407	1545	
==>nd_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_s <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4646	4784	
==>nd_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1407	1545	
==>nd_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4646	4784	
==>nd_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_s <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1914	2025	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2276	2387	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2585	2696	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1914	2025	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2276	2387	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2585	2696	
==>ice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2034	2147	
==>ion: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2174	2287	
==>ion: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28389	28487	
==>e values are escaped and you shouldn't try to
extract them.  This method is also defined as the imp <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35745	35843	
==>e values are escaped and you shouldn't try to
extract them.  This method is also defined as the imp <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28389	28487	
==>e values are escaped and you shouldn't try to
extract them.  This method is also defined as the imp <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35745	35843	
==>e values are escaped and you shouldn't try to
extract them.  This method is also defined as the imp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3809	3925	
==>ef($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3809	3925	
==>ef($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3809	3925	
==>ef($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7262	7356	
==>prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7262	7356	
==>prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7262	7356	
==>prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	72	168	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	685	781	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	72	168	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	685	781	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	72	168	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	685	781	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14022	14140	
==>f (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_wit <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17499	17617	
==>f (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_wit <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7602	7697	
==>ric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one. <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6732	6827	
==>ric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one. <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7602	7697	
==>ric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one. <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6732	6827	
==>ric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10065	10193	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12706	12834	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13542	13670	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16183	16311	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12823	12951	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15545	15673	
==>== 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!headi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4648	4803	
==>tipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!pa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4648	4803	
==>tipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!pa <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8919	9011	
==>yal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed an <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3848	3940	
==>yal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed an <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8919	9011	
==>yal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed an <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3848	3940	
==>yal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed an <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	156	269	
==>IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $self = shift;

    my $install_version = shift;
    die "In <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	532	630	
==>rep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1077	1175	
==>rep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to th <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	532	630	
==>rep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to th <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1077	1175	
==>rep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to th <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1077	1175	
==>rep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9646	9750	
==>erl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	420	524	
==>args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	420	524	
==>args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	420	524	
==>args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9646	9750	
==>erl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9646	9750	
==>erl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	331	417	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1490	1576	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	331	417	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1490	1576	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	331	417	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1490	1576	
==>V} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarNa <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5570	5675	
==>eturn $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    re <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5570	5675	
==>eturn $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    re <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12866	12961	
==>erset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9642	9737	
==>erset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12866	12961	
==>erset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9642	9737	
==>erset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1948	2050	
==>d to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1948	2050	
==>d to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1948	2050	
==>d to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHOR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36396	36492	
==>off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{item <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36396	36492	
==>off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{item <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36396	36492	
==>off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{item <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5234	5386	
==>required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5234	5386	
==>required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5234	5386	
==>required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	177	274	
==>);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	177	274	
==>);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	177	274	
==>);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3497	3639	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6025	6167	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3497	3639	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6025	6167	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3497	3639	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6025	6167	
==>thods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12285	12401	
==>@_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12285	12401	
==>@_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12285	12401	
==>@_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9283	9395	
==>'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9283	9395	
==>'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9283	9395	
==>'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	333	453	
==>hift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	333	453	
==>hift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	333	453	
==>hift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4830	4945	
==>er($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_head <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4830	4945	
==>er($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_head <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	490	592	
==>e improved in many ways, and have been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	454	570	
==>ach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} if defi <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6174	6275	
==>type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code . <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5762	5841	
==>num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5952	6031	
==>num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5762	5841	
==>num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5952	6031	
==>num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6911	7020	
==>ernal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift } <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6911	7020	
==>ernal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24571	24668	
==>ters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23335	23432	
==>ters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24571	24668	
==>ters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23335	23432	
==>ters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has s <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4043	4240	
==>ine>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events< <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4043	4240	
==>ine>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events< <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4000	4195	
==>ine>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events< <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4000	4195	
==>ine>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events< <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16934	17029	
==>do a lot
internally; it exists mainly to document a certain localization methodology
in an easil <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16934	17029	
==>do a lot
internally; it exists mainly to document a certain localization methodology
in an easil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3980	4089	
==>) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3980	4089	
==>) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3980	4089	
==>) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	970	1074	
==>rray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	970	1074	
==>rray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	970	1074	
==>rray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	760	857	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1280	1377	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	760	857	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1280	1377	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	760	857	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1280	1377	
==>op();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2463	2584	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2463	2584	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2463	2584	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2107	2221	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2107	2221	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2107	2221	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6855	6964	
==>ch->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::em <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6867	6976	
==>ch->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::em <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21597	21689	
==>>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's top <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21597	21689	
==>>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's top <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10524	10740	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8075	8291	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10524	10740	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8075	8291	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10524	10740	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8075	8291	
==>..
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9713	9905	
==>urn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9713	9905	
==>urn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9713	9905	
==>urn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2427	2527	
==>With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leavi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2427	2527	
==>With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leavi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2427	2527	
==>With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leavi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	501	640	
==>ance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	706	845	
==>ance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	762	901	
==>ance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17695	17787	
==>xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17695	17787	
==>xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17695	17787	
==>xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14462	14649	
==>lue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14462	14649	
==>lue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14462	14649	
==>lue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4104	4216	
==>vaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= << <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4104	4216	
==>vaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= << <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4104	4216	
==>vaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= << <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4572	4693	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7508	7629	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4572	4693	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7508	7629	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4572	4693	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7508	7629	
==>thod'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed( <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2501	2619	
==>tive $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2501	2619	
==>tive $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4192	4308	
==>$:superclass'} = shift if @_;
            ::opaque_instance_attrs($self)->{'$:superclass'};
        },
        'get_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5329	5432	
==>t_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5329	5432	
==>t_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5329	5432	
==>t_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1501	1595	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1501	1595	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1501	1595	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subna <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	342	434	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	342	434	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	342	434	
==>f->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subna <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12664	12779	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4164	4279	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12664	12779	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4164	4279	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12664	12779	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4164	4279	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcirc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4981	5082	
==>ne = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4981	5082	
==>ne = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4981	5082	
==>ne = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1393	1493	
==>ram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1393	1493	
==>ram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1602	1702	
==>ram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4240	4335	
==>ity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4240	4335	
==>ity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4240	4335	
==>ity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	800	897	
==>kage, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	800	897	
==>kage, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	800	897	
==>kage, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30077	30172	
==>d is a short-hand or alternative for the functionality provided
by the 5 generic relational oper <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34629	34724	
==>d is a short-hand or alternative for the functionality provided
by the 5 generic relational oper <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33802	33897	
==>d is a short-hand or alternative for the functionality provided
by the 5 generic relational oper <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5294	5518	
==>}
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0 <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5294	5518	
==>}
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5533	5632	
==>(Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4663	4762	
==>(Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5533	5632	
==>(Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4663	4762	
==>(Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2611	2726	
==>o>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2611	2726	
==>o>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, s <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	436	551	
==>ad2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    ret <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1655	1758	
==>= [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1655	1758	
==>= [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	701	803	
==>m";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7354	7529	
==>umify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7354	7529	
==>umify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7354	7529	
==>umify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4958	5067	
==>||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4958	5067	
==>||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4958	5067	
==>||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13196	13313	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13196	13313	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13196	13313	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5436	5553	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3936	4053	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2081	2198	
==>ow ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15535	15661	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12791	12917	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15535	15661	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12791	12917	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15535	15661	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12791	12917	
==>:opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10429	10570	
==>X - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10429	10570	
==>X - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10429	10570	
==>X - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2096	2320	
==>(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2096	2320	
==>(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2096	2320	
==>(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8712	8863	
==>$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12618	12763	
==>$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12618	12763	
==>$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	812	916	
==>, $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	713	817	
==>, $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18831	18923	
==>tion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its sta <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17874	17966	
==>tion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its sta <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18831	18923	
==>tion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its sta <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17874	17966	
==>tion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11360	11482	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2872	2994	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11360	11482	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2872	2994	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11360	11482	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2872	2994	
==>new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9946	10070	
==>Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9946	10070	
==>Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9946	10070	
==>Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7472	7585	
==>$type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7472	7585	
==>$type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7472	7585	
==>$type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6684	6833	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7445	7594	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8315	8464	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10161	10310	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10922	11071	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11792	11941	
==>on *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5176	5319	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8146	8289	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5176	5319	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8146	8289	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5176	5319	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8146	8289	
==>ethod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12986	13095	
==>ethod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgument <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12986	13095	
==>ethod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgument <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12986	13095	
==>ethod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgument <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12634	12730	
==>code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12634	12730	
==>code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12634	12730	
==>code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9241	9363	
==>l6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                St <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9241	9363	
==>l6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                St <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9241	9363	
==>l6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5093	5199	
==>->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as oppo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5093	5199	
==>->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as oppo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5093	5199	
==>->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as oppo <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2005	2114	
==>b {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $ <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	991	1100	
==>b {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4295	4397	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.uni <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3422	3524	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.uni <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4295	4397	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.uni <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3422	3524	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.uni <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3357	3612	
==>defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3357	3612	
==>defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6196	6359	
==>defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6196	6359	
==>defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6196	6359	
==>defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3149	3260	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5950	6061	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3149	3260	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5950	6061	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3149	3260	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5950	6061	
==>ttribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	220	322	
==>-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	220	322	
==>-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	220	322	
==>-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3910	4009	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6559	6658	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4149	4246	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10598	10695	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4149	4246	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10598	10695	
==>to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5432	5546	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3552	3666	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5432	5546	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3552	3666	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5432	5546	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3552	3666	
==>(defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6433	6543	
==>$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6433	6543	
==>$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6433	6543	
==>$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1197	1295	
==>{ $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1197	1295	
==>{ $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1197	1295	
==>{ $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6331	6433	
==>t {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.sup <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5461	5563	
==>t {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.sup <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6331	6433	
==>t {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.sup <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5461	5563	
==>t {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.sup <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2805	2900	
==>urns the representation of this node in the original text, or at
least a valid representation of <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2805	2900	
==>urns the representation of this node in the original text, or at
least a valid representation of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15050	15214	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19748	19912	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15050	15214	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19748	19912	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15050	15214	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19748	19912	
==>t;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal
        # with it here since this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40289	40398	
==>s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40289	40398	
==>s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40289	40398	
==>s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $val <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3515	3616	
==>f tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you ha <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3515	3616	
==>f tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3595	3696	
==>f tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you ha <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24830	24926	
==>tine
simply returns, you can assume that it has succeeded, even if the return
value is undefined. <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22444	22540	
==>tine simply
returns, you can assume that it has succeeded, even if the return value is
undefined. <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9730	9826	
==>tine
simply returns, you can assume that it has succeeded, even if the return
value is undefined. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24830	24926	
==>tine
simply returns, you can assume that it has succeeded, even if the return
value is undefined. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22444	22540	
==>tine simply
returns, you can assume that it has succeeded, even if the return value is
undefined. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9730	9826	
==>tine
simply returns, you can assume that it has succeeded, even if the return
value is undefined. <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1922	2037	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2284	2399	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@ <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1922	2037	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@ <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2284	2399	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2593	2707	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4, <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2593	2707	
==>ing,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27601	27702	
==>e object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18010	18111	
==>e object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27601	27702	
==>e object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18010	18111	
==>e object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22661	22754	
==>ates a Message that contains all possibly useful details, so
that each Template can optionally <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22661	22754	
==>ates a Message that contains all possibly useful details, so
that each Template can optionally <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7980	8115	
==>my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7980	8115	
==>my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7980	8115	
==>my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1061	1163	
==>e;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1061	1163	
==>e;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1061	1163	
==>e;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2051	2151	
==>PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "ME <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2051	2151	
==>PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "ME <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2051	2151	
==>PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "ME <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35213	35307	
==>thod is a generic binary relational operator that is identical
to C<join> except that this meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39763	39857	
==>thod is a generic binary relational operator that is identical
to C<join> except that this meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39323	39417	
==>thod is a generic binary relational operator that is identical
to C<join> except that this meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7604	7756	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10527	10679	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7604	7756	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10527	10679	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7604	7756	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10527	10679	
==>thod->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	405	513	
==>eption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	405	513	
==>eption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	405	513	
==>eption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	681	779	
==>:Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	681	779	
==>:Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	681	779	
==>:Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3930	4041	
==>p = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method in <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3930	4041	
==>p = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4682	4786	
==>ions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4682	4786	
==>ions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4682	4786	
==>ions may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metam <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1487	1584	
==>ap (@values,   Code $expression) returns Lazy 
 multi sub  Perl6::List::map (Code $expression ; *@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21505	21647	
==>e::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21505	21647	
==>e::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21505	21647	
==>e::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	162	281	
==>tches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	162	281	
==>tches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	162	281	
==>tches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10213	10351	
==>\$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6554	6692	
==>\$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7403	7541	
==>\$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2364	2489	
==>)    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !def <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2364	2489	
==>)    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !def <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	4385	4488	
==>s an already compiled Pugs to precompile the Prelude\n"
        unless $Config{pugs};
    gen_source($TE <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4773	4890	
==>n @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($d <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4773	4890	
==>n @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($d <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21112	21209	
==>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel nam <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20020	20117	
==>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel nam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21112	21209	
==>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel nam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20020	20117	
==>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel nam <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4335	4450	
==>p:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this n <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4335	4450	
==>p:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this n <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5972	6074	
==>ent<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5972	6074	
==>ent<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	282	377	
==>0, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @Pre <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	282	377	
==>0, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @Pre <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	77	176	
==>e $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime($guess);
}

sub approxfprime(Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1679	1782	
==>«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1679	1782	
==>«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1679	1782	
==>«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1408	1499	
==>$main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Ru <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1408	1499	
==>$main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Ru <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1408	1499	
==>$main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Ru <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15518	15638	
==>oot image is 'no emulation' image
      "-boot-load-size" => 4,              # Set numbers of load sectors
      "-boot-i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	959	1063	
==>ode();\n";
    print $source;
    print "RULE\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Perl6->in <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4327	4429	
==>on
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is di <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3454	3556	
==>on
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is di <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4327	4429	
==>on
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is di <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3454	3556	
==>on
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20089	20319	
==>rn $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20089	20319	
==>rn $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20089	20319	
==>rn $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Va <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3409	3502	
==>ilder framework. The class itself is actually a factory for
classes which C<does> the Test::Bu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3409	3502	
==>ilder framework. The class itself is actually a factory for
classes which C<does> the Test::Bu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5606	5699	
==>ilder framework. The class itself is actually a factory for
classes which C<does> the Test::Bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9968	10078	
==>--------------------------------------------
    # has %:methods;
    # has %:attributes;
    # --------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9991	10101	
==>---------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9968	10078	
==>--------------------------------------------
    # has %:methods;
    # has %:attributes;
    # --------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9991	10101	
==>---------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9968	10078	
==>--------------------------------------------
    # has %:methods;
    # has %:attributes;
    # --------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9991	10101	
==>---------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1193	1317	
==>ble')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1193	1317	
==>ble')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1193	1317	
==>ble')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17018	17113	
==>..};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17018	17113	
==>..};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17018	17113	
==>..};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10478	10647	
==>->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10478	10647	
==>->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10478	10647	
==>->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1895	2023	
==>eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pri <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1895	2023	
==>eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pri <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1895	2023	
==>eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pri <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4045	4147	
==>mation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4045	4147	
==>mation.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7024	7125	
==>mation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9094	9195	
==>mation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7024	7125	
==>mation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9094	9195	
==>mation.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5073	5225	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7722	7874	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5278	5424	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11727	11873	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5278	5424	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11727	11873	
==>ft;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9170	9268	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4313	4411	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15749	15847	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9170	9268	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4313	4411	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15749	15847	
==>/ `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` val <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	593	720	
==>\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	604	731	
==>\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        matc <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1620	1704	
==>\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\]/'".$m->['. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7128	7264	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10098	10234	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7128	7264	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10098	10234	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7128	7264	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10098	10234	
==>ASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub { <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1632	1732	
==>ributes($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .ge <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26182	26278	
==>ng used with (others are ignored).  Each variable name can be any
defined and non-empty string, a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26182	26278	
==>ng used with (others are ignored).  Each variable name can be any
defined and non-empty string, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12708	12792	
==>@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12708	12792	
==>@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12708	12792	
==>@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3241	3360	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3241	3360	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3241	3360	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        va <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3714	3826	
==>allback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(st <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	269	396	
==>urns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	269	396	
==>urns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3205	3317	
==>s and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3205	3317	
==>s and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ( <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1603	1713	
==>s and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1603	1713	
==>s and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24675	24786	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26864	26975	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24675	24786	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26864	26975	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24675	24786	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26864	26975	
==>self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10456	10570	
==>----------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10456	10570	
==>----------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10456	10570	
==>----------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abs <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	592	701	
==>$head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    retur <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	592	701	
==>$head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    retur <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21203	21298	
==>ct, Rosetta's most prominant feature is that it provides a
common API for access to those databa <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21203	21298	
==>ct, Rosetta's most prominant feature is that it provides a
common API for access to those databa <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1376	1466	
==>scribes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pend <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1376	1466	
==>scribes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pend <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2051	2176	
==>d
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2051	2176	
==>d
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2051	2176	
==>d
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34140	34255	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34140	34255	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34140	34255	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	94	187	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	318	411	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	94	187	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	318	411	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	94	187	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	318	411	
==>.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1]. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	674	789	
==>i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	674	789	
==>i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	674	789	
==>i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	344	456	
==>$code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	344	456	
==>$code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2493	2598	
==>_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($node->type);
}

sub resol <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2286	2558	
==>=> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5763	6035	
==>=> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4693	4965	
==>=> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

me <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2694	2857	
==>$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{la <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2694	2857	
==>$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{la <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	985	1119	
==>->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10995	11127	
==>cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10995	11127	
==>cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10995	11127	
==>cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	464	568	
==>jects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	464	568	
==>jects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	464	568	
==>jects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of el <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16466	16610	
==>32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20892	21036	
==>32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6103	6200	
==>- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- ` <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8171	8268	
==>- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- ` <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6103	6200	
==>- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- ` <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8171	8268	
==>- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- ` <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1531	1670	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3094	3233	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1531	1670	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3094	3233	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1531	1670	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3094	3233	
==>es    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1555	1664	
==>( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1555	1664	
==>( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1555	1664	
==>( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5052	5160	
==>de::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" ins <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5052	5160	
==>de::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" ins <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5052	5160	
==>de::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" ins <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5722	5900	
==>ble modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                } <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6186	6364	
==>ble modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	215	334	
==>urce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $par <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	209	328	
==>urce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $par <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	215	334	
==>urce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $par <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	209	328	
==>urce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4224	4349	
==>params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4224	4349	
==>params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4224	4349	
==>params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14107	14200	
==>ms };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Gr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14107	14200	
==>ms };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Gr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14107	14200	
==>ms };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Gr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10646	10774	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15187	15315	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10646	10774	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15187	15315	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10646	10774	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15187	15315	
==>ever, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11277	11383	
==>ft;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11277	11383	
==>ft;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11277	11383	
==>ft;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::L <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	511	616	
==>::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	511	616	
==>::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	511	616	
==>::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PI <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	471	642	
==>aybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	386	557	
==>aybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	474	645	
==>aybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23358	23486	
==>${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11207	11335	
==>${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19779	19907	
==>${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{ne <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24287	24386	
==>ogram controlling their
  actions) which are always seen to be replying lest they end up in a loop w <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23060	23159	
==>ogram controlling their
  actions) which are always seen to be replying lest they end up in a loop w <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24287	24386	
==>ogram controlling their
  actions) which are always seen to be replying lest they end up in a loop w <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23060	23159	
==>ogram controlling their
  actions) which are always seen to be replying lest they end up in a loop w <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20577	20675	
==>elling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Fo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20577	20675	
==>elling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7655	7789	
==>Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7655	7789	
==>Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7655	7789	
==>Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7043	7160	
==>Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "fr <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7043	7160	
==>Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "fr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4246	4359	
==>les or macros, you may
    use the following syntactic categories:

         rule rxbackslash:<w> { ... }    # def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8282	8405	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8282	8405	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8282	8405	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( ' <==
6	/Users/nnunley/pugs/util/run-smoke.pl	3	103	
==>usr/bin/perl

use strict;
use warnings;
use Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
u <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1655	1746	
==>verse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1655	1746	
==>verse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6389	6625	
==>}
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - X <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6389	6625	
==>}
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - X <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6389	6625	
==>}
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - X <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9570	9691	
==>ar i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9570	9691	
==>ar i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9570	9691	
==>ar i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39490	39594	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39760	39864	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39490	39594	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39760	39864	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39490	39594	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39760	39864	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13169	13306	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13169	13306	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13169	13306	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5409	5546	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3909	4046	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2054	2191	
==>size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2949	3079	
==>>{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) {
        if ( grep { 
                defined $opt->{other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2892	3003	
==>t {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2892	3003	
==>t {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2892	3003	
==>t {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6121	6215	
==>is document successfully. However, more complex POD 
documents may not do as well. Error report <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6121	6215	
==>is document successfully. However, more complex POD 
documents may not do as well. Error report <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36342	36437	
==>butes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38095	38190	
==>butes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40891	40986	
==>butes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42644	42739	
==>butes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40505	40600	
==>butes differ and unioning
the remaining said tuple pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42294	42389	
==>butes differ and unioning the remaining said tuple
pairs, then eliminating any result tuples tha <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16794	16909	
==>lf->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13215	13330	
==>lf->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{ne <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	14078	14171	
==>hschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10305	10398	
==>hschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14078	14171	
==>hschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10305	10398	
==>hschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8066	8197	
==>);
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8066	8197	
==>);
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8066	8197	
==>);
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	618	745	
==>ss
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	618	745	
==>ss
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	618	745	
==>ss
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7267	7385	
==>y($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7267	7385	
==>y($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7267	7385	
==>y($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4474	4583	
==>lValue::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2. <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19502	19593	
==>n a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_a <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19502	19593	
==>n a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2175	2283	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11043	11151	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12002	12110	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2368	2476	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11322	11430	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12281	12389	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3868	3982	
==>default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3868	3982	
==>default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3868	3982	
==>default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11334	11425	
==>il does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Bu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1790	1877	
==>il does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Bu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1790	1877	
==>il does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20757	20849	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17895	17987	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20757	20849	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17895	17987	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20757	20849	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17895	17987	
==>ME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4010	4134	
==>ams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? joi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4010	4134	
==>ams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? joi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4010	4134	
==>ams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4272	4381	
==>h") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4272	4381	
==>h") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4272	4381	
==>h") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10477	10661	
==>) == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10477	10661	
==>) == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10477	10661	
==>) == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1535	1651	
==>sg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1535	1651	
==>sg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1535	1651	
==>sg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2977	3089	
==>DO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2977	3089	
==>DO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2977	3089	
==>DO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5064	5175	
==>@a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5064	5175	
==>@a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5064	5175	
==>@a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12544	12655	
==>ify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12544	12655	
==>ify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12544	12655	
==>ify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4173	4267	
==>*@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4173	4267	
==>*@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5697	5791	
==>*@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3163	3296	
==>start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3163	3296	
==>start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3163	3296	
==>start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	282	375	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	282	375	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	282	375	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11705	11850	
==>) must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11705	11850	
==>) must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11705	11850	
==>) must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4711	4824	
==>al ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] red <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4711	4824	
==>al ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] red <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4711	4824	
==>al ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] red <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5266	5379	
==>);



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5085	5190	
==>);

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compi <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2160	2257	
==>TH (block &dispatcher, symbol $label, hash %opts) returns method {
    while (my $current = &dispa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5292	5387	
==>ect, but is (at least nominally)
intended to allow filtering out objects you don't want to reble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5292	5387	
==>ect, but is (at least nominally)
intended to allow filtering out objects you don't want to reble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5292	5387	
==>ect, but is (at least nominally)
intended to allow filtering out objects you don't want to reble <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11791	11923	
==>ither other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15268	15400	
==>ither other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14603	14735	
==>ither other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5202	5316	
==>many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5202	5316	
==>many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5202	5316	
==>many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these const <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3805	3905	
==>ttp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3805	3905	
==>ttp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3805	3905	
==>ttp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11422	11517	
==>table 
behavior to class consturction because it isolates the Role specifc
code to the class tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11422	11517	
==>table 
behavior to class consturction because it isolates the Role specifc
code to the class tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11422	11517	
==>table 
behavior to class consturction because it isolates the Role specifc
code to the class tha <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4642	4845	
==>s: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4642	4845	
==>s: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10882	11019	
==>= 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $prog <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10876	11013	
==>= 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $prog <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10198	10327	
==>e_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10198	10327	
==>e_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1119	1256	
==>('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $d <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1119	1256	
==>('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	329	436	
==>if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	329	436	
==>if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	329	436	
==>if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    retu <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1780	1864	
==>_harness_args,'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10006	10141	
==>tion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10006	10141	
==>tion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10006	10141	
==>tion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1303	1395	
==>x.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1303	1395	
==>x.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1303	1395	
==>x.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primiti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3605	3716	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6541	6652	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3605	3716	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6541	6652	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3605	3716	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6541	6652	
==>s, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	487	597	
==>side of this function
      // and refer to it via the closure, then things don\'t work right
      // --the or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	487	597	
==>side of this function
      // and refer to it via the closure, then things don\'t work right
      // --the or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	487	597	
==>side of this function
      // and refer to it via the closure, then things don\'t work right
      // --the or <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1024	1118	
==>it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1024	1118	
==>it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1024	1118	
==>it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1774	1890	
==>ls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $ba <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1774	1890	
==>ls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $ba <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1774	1890	
==>ls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	261	349	
==>Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	261	349	
==>Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	261	349	
==>Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5636	5753	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8606	8723	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5636	5753	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8606	8723	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5636	5753	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8606	8723	
==>ts in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This soluti <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11306	11431	
==>nt nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11306	11431	
==>nt nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10547	10660	
==>nt nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10547	10660	
==>nt nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16254	16349	
==>, then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences m <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16254	16349	
==>, then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21192	21328	
==>b {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17950	18070	
==>b {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41215	41335	
==>b {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44115	44235	
==>b {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	411	522	
==>cros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No comp <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	411	522	
==>cros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No comp <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6177	6273	
==>le?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpa <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8245	8341	
==>le?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpa <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6177	6273	
==>le?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpa <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8245	8341	
==>le?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpa <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13221	13316	
==>et with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set contai <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13221	13316	
==>et with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set contai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	821	930	
==>my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 i <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10667	10776	
==>);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	821	930	
==>my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	821	930	
==>my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 i <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2983	3076	
==><value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to enc <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2983	3076	
==><value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to enc <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10516	10700	
==>value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10516	10700	
==>value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1272	1426	
==>1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs & <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1272	1426	
==>1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs & <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13461	13553	
==>rt_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('roo <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13461	13553	
==>rt_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('roo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3741	3841	
==>VIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2702	2802	
==>)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3741	3841	
==>VIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2702	2802	
==>)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3741	3841	
==>VIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2702	2802	
==>)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9144	9332	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12117	12305	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9144	9332	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12117	12305	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9144	9332	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12117	12305	
==>);                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5141	5323	
==>eword} ) {
                if ( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: " <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11391	11562	
==>intersection;

###########################################################################

method difference (Relation::Example $other!) returns Relation::Example {

    d <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	150	281	
==>as $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $requ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	150	281	
==>as $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $requ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15286	15395	
==>ue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15286	15395	
==>ue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { e <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3627	3739	
==>def' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'int' if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3736	3836	
==>me}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		un <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3736	3836	
==>me}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		un <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4326	4426	
==>me}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		un <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1502	1600	
==>= Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1502	1600	
==>= Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11041	11165	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12512	12636	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14518	14642	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15989	16113	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13826	13950	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15351	15475	
==>body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is secon <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15188	15296	
==>per => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1543	1651	
==>num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	431	533	
==>5 = Pugs::Compiler::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	592	693	
==>cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	592	693	
==>cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	592	693	
==>cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4554	4708	
==>ll->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4554	4708	
==>ll->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4554	4708	
==>ll->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fet <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2343	2470	
==>rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2655	2778	
==>rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2655	2778	
==>rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3755	3880	
==>ef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3755	3880	
==>ef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3755	3880	
==>ef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WA <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	635	749	
==>ou are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	635	749	
==>ou are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4582	4674	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	877	1004	
==>sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	877	1004	
==>sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	877	1004	
==>sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11285	11409	
==>idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11285	11409	
==>idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11285	11409	
==>idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4681	4781	
==>t be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4681	4781	
==>t be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4681	4781	
==>t be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3812	3902	
==>ory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramete <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3812	3902	
==>ory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramete <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6009	6099	
==>ory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramete <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7543	7679	
==>hrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->li <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7600	7736	
==>hrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->li <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4657	4787	
==>XX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @may <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5121	5251	
==>XX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @may <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19385	19480	
==>to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19385	19480	
==>to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	109	215	
==>f(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	109	215	
==>f(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	109	215	
==>f(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3764	3868	
==>h == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test spl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3764	3868	
==>h == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test spl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3764	3868	
==>h == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test spl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1858	2020	
==>|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                St <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1858	2020	
==>|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                St <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1858	2020	
==>|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7206	7297	
==>ribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7206	7297	
==>ribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7206	7297	
==>ribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ] <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4051	4149	
==>.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4051	4149	
==>.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7030	7127	
==>.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9100	9197	
==>.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7030	7127	
==>.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9100	9197	
==>.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12873	13096	
==>ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12873	13096	
==>ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12873	13096	
==>ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8502	8598	
==>::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8502	8598	
==>::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8502	8598	
==>::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8535	8714	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6088	6267	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8535	8714	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6088	6267	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8535	8714	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6088	6267	
==>)}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	670	785	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1190	1305	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	670	785	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1190	1305	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	670	785	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1190	1305	
==>tant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13442	13538	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10726	10822	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13442	13538	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10726	10822	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13442	13538	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10726	10822	
==>lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18857	18981	
==>num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18857	18981	
==>num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18857	18981	
==>num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	292	387	
==>erencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	292	387	
==>erencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	292	387	
==>erencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5024	5218	
==>= each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5036	5230	
==>= each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<na <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4982	5091	
==>>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16018	16127	
==>>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17506	17615	
==>>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22189	22298	
==>>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3044	3164	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6037	6157	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3319	3433	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9737	9851	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3319	3433	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9737	9851	
==>eedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13621	13739	
==>emijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?S <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17098	17216	
==>emijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?S <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16460	16578	
==>emijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1012	1117	
==><a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1012	1117	
==><a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1012	1117	
==><a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key), <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9	108	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9	108	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9	108	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9	107	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9	107	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9	107	
==>n/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2919	3094	
==>t->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2919	3094	
==>t->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2919	3094	
==>t->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	26	126	
==>ft, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	26	126	
==>ft, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	26	126	
==>ft, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	752	855	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1272	1375	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	752	855	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1272	1375	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	752	855	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1272	1375	
==>= args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	349	470	
==>CH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	349	470	
==>CH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	349	470	
==>CH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7277	7371	
==>roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7277	7371	
==>roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7277	7371	
==>roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4184	4282	
==>), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4184	4282	
==>), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4184	4282	
==>), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1350	1446	
==>rtList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1350	1446	
==>rtList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1350	1446	
==>rtList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_ <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	5613	5727	
==>rr
    --touch,   -t     mark Run.hi and Run.o stale, triggering pugs rebuild
    --output,  -o     file to write o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2323	2431	
==>oh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $m <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7417	7525	
==>oh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $m <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2323	2431	
==>oh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $m <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7417	7525	
==>oh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $m <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6143	6251	
==>\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_fo <==
6	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	447	559	
==>oop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %has <==
6	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	447	559	
==>oop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %has <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13563	13668	
==>ression> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <?w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	831	928	
==>tance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	831	928	
==>tance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	831	928	
==>tance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7938	8058	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10861	10981	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7938	8058	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10861	10981	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7938	8058	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10861	10981	
==>turn $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2129	2213	
==>pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2129	2213	
==>pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2129	2213	
==>pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9597	9718	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7144	7265	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9597	9718	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7144	7265	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9597	9718	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7144	7265	
==>ake_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $di <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12835	12960	
==>X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3358	3482	
==>class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3358	3482	
==>class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3358	3482	
==>class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from a <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5665	5783	
==>r(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949), <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5665	5783	
==>r(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949), <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6576	6713	
==>n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6576	6713	
==>n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6576	6713	
==>n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7843	7939	
==>uld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7843	7939	
==>uld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7843	7939	
==>uld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	837	976	
==>ft(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	837	976	
==>ft(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	837	976	
==>ft(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	568	698	
==>b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	568	698	
==>b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	568	698	
==>b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2812	2923	
==>Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2812	2923	
==>Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2812	2923	
==>Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	956	1053	
==>if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	956	1053	
==>if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1512	1609	
==>if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11406	11513	
==>lf->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11406	11513	
==>lf->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11406	11513	
==>lf->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10049	10155	
==>5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10049	10155	
==>5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10049	10155	
==>5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14596	14720	
==>while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14596	14720	
==>while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14596	14720	
==>while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code ha <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6882	7006	
==>while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code ha <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5386	5510	
==>while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code ha <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16431	16543	
==>ze 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some te <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36172	36283	
==>urn join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution:

  use Rege <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	399	508	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	399	508	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	399	508	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13219	13320	
==>, $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(e <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6694	6795	
==>, $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	773	882	
==>l e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g globa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	773	882	
==>l e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g globa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	773	882	
==>l e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g globa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	446	552	
==>t is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * sev <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	446	552	
==>t is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * sev <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	446	552	
==>t is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * sev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18847	18974	
==>ble::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18847	18974	
==>ble::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18847	18974	
==>ble::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9408	9522	
==>ems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9408	9522	
==>ems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9408	9522	
==>ems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7215	7349	
==>il,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debug <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6974	7101	
==>il,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15020	15125	
==>kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15020	15125	
==>kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15020	15125	
==>kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1114	1217	
==>[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::require_bareword {
    my $ident = get_st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9170	9290	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6717	6837	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9170	9290	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6717	6837	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9170	9290	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6717	6837	
==>$order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3908	4079	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3908	4079	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3908	4079	
==>escription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13064	13176	
==>ave exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16541	16653	
==>ave exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15903	16015	
==>ave exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sour <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5230	5342	
==>nings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my $class = shift;
    b <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3367	3474	
==>."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6844	6951	
==>."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5801	5908	
==>."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20593	20687	
==>ll of
their class/object attributes are private, so you must use accessor
methods.  Relation do <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25145	25239	
==>ll of
their class/object attributes are private, so you must use accessor
methods.  Relation do <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1727	1856	
==>[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1727	1856	
==>[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1727	1856	
==>[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2459	2585	
==>urn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2459	2585	
==>urn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2459	2585	
==>urn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) . <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6209	6340	
==>w(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4289	4395	
==>die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4289	4395	
==>die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4289	4395	
==>die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL: <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	531	628	
==>th RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
s <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	531	628	
==>th RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2857	2987	
==>{
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2857	2987	
==>{
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2857	2987	
==>{
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1430	1546	
==>($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1430	1546	
==>($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1430	1546	
==>($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retur <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	130	237	
==>$.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</titl <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	130	237	
==>$.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</titl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	235	337	
==>t loosing this code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2742	2841	
==>c = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2742	2841	
==>c = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2742	2841	
==>c = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2718	2830	
==>[inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2718	2830	
==>[inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2718	2830	
==>[inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    } <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8446	8555	
==>\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->nam <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4169	4270	
==>hod is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite) <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4169	4270	
==>hod is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite) <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5049	5158	
==>',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5049	5158	
==>',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1953	2062	
==>',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	218	321	
==>sts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	218	321	
==>sts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	218	321	
==>sts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16171	16312	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16171	16312	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16171	16312	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11441	11579	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11441	11579	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11441	11579	
==>eaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4853	4966	
==>s
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4853	4966	
==>s
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3680	3791	
==>-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3864	3975	
==>-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4352	4459	
==>s keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4352	4459	
==>s keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5319	5424	
==>@{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_L <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5319	5424	
==>@{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_L <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5319	5424	
==>@{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_L <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13635	13721	
==>with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13635	13721	
==>with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13635	13721	
==>with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3940	4098	
==>evels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5164	5322	
==>evels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        f <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	759	876	
==>?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_duration_re is export = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2191	2295	
==>- splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2191	2295	
==>- splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2191	2295	
==>- splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8957	9064	
==>ne or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8957	9064	
==>ne or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8957	9064	
==>ne or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16212	16302	
==>&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16212	16302	
==>&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16212	16302	
==>&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5157	5309	
==>something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            nam <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5157	5309	
==>something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            nam <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5157	5309	
==>something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            nam <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2628	2732	
==>[ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2628	2732	
==>[ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	7582	7673	
==>$_[1]);
};
multi unify => ('type::operator', 'type::variable::free') => sub { $_[1]->instant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	403	508	
==>_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	608	713	
==>_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	664	769	
==>_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($% <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	112	215	
==>8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	112	215	
==>8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	112	215	
==>8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class- <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3669	3791	
==>scription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  pl <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3669	3791	
==>scription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  pl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5193	5315	
==>scription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  pl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34072	34170	
==>tch in found in the most preferred language
is used.  Each Set Name can be any defined and non-empt <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34072	34170	
==>tch in found in the most preferred language
is used.  Each Set Name can be any defined and non-empt <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12901	12986	
==>ail(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
brackets("<", <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11668	11792	
==>Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2102	2214	
==>Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2102	2214	
==>Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3787	3897	
==>s { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3787	3897	
==>s { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3787	3897	
==>s { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self- <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	6440	6586	
==>al {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_ <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6440	6586	
==>al {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4166	4265	
==>side a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4166	4265	
==>side a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4166	4265	
==>side a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBR <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5193	5287	
==>admin} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' path!
P <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17530	17675	
==>or $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21007	21152	
==>or $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20594	20739	
==>or $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4099	4209	
==>EFILE $makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $self->is_ex <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5146	5242	
==>lowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5146	5242	
==>lowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1233	1389	
==>($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4472	4628	
==>($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1233	1389	
==>($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4472	4628	
==>($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15908	15996	
==>ment!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method create <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15908	15996	
==>ment!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method create <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3899	4016	
==>n ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3899	4016	
==>n ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	42	147	
==>ngs;
use strict;

# TODO 
#  ok - is tighter/looser/equiv 
#  infix/prefix/circumfix/postcircumfix
#  is a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34837	34939	
==>y->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34837	34939	
==>y->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34837	34939	
==>y->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22271	22472	
==>y fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22271	22472	
==>y fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22271	22472	
==>y fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3387	3533	
==>ot extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $c <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24544	24636	
==>cts.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedText <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24544	24636	
==>cts.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedText <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2413	2511	
==>(str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2413	2511	
==>(str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2413	2511	
==>(str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14842	14967	
==>se constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14842	14967	
==>se constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14842	14967	
==>se constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20299	20400	
==>n the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24851	24952	
==>n the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23412	23513	
==>n the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7246	7412	
==>urn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7246	7412	
==>urn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7246	7412	
==>urn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1790	1902	
==>s); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pack <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1790	1902	
==>s); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pack <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1790	1902	
==>s); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3032	3224	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5833	6025	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3032	3224	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5833	6025	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3032	3224	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5833	6025	
==>these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::Stu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4964	5120	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7613	7769	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5172	5322	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11621	11771	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5172	5322	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11621	11771	
==>ets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33883	34007	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34051	34175	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33883	34007	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34051	34175	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33883	34007	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34051	34175	
==>{
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	339	441	
==>)')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	339	441	
==>)')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	339	441	
==>)')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8888	8988	
==>ix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8888	8988	
==>ix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8888	8988	
==>ix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5256	5381	
==>turn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->con <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5256	5381	
==>turn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->con <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5846	5971	
==>turn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->con <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	349	463	
==>vel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	349	463	
==>vel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	349	463	
==>vel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18840	19038	
==>m[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18840	19038	
==>m[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18840	19038	
==>m[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3120	3209	
==>metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3120	3209	
==>metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3120	3209	
==>metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9338	9472	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12311	12445	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9338	9472	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12311	12445	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9338	9472	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12311	12445	
==>teMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Metho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3194	3307	
==>$curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3194	3307	
==>$curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2082	2178	
==>d _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta:: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5869	5965	
==>d _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2082	2178	
==>d _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5869	5965	
==>d _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10084	10197	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12725	12838	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13561	13674	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16202	16315	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12842	12955	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15564	15677	
==>econd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9852	10050	
==>turn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9852	10050	
==>turn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9852	10050	
==>turn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5942	6039	
==>e", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opport <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5942	6039	
==>e", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opport <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5942	6039	
==>e", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opport <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3669	3850	
==>map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3669	3850	
==>map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3669	3850	
==>map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	600	698	
==>);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	600	698	
==>);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	600	698	
==>);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16553	16655	
==>) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16553	16655	
==>) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16553	16655	
==>) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4318	4410	
==>x:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4318	4410	
==>x:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4318	4410	
==>x:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1786	1888	
==>udepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1786	1888	
==>udepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1786	1888	
==>udepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	226	329	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	550	653	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	226	329	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	550	653	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	226	329	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	550	653	
==>utside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7119	7263	
==>nt' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7119	7263	
==>nt' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7119	7263	
==>nt' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28408	28498	
==>-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrap <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32960	33050	
==>-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrap <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32088	32178	
==>-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrap <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	19626	19788	
==>ce to $target does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::Fi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	951	1077	
==>on Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Requir <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	951	1077	
==>on Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	511	631	
==>);
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	511	631	
==>);
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	511	631	
==>);
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9429	9541	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6976	7088	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9429	9541	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6976	7088	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9429	9541	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6976	7088	
==>f ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($o <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	970	1065	
==>ectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	970	1065	
==>ectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5916	6006	
==>'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTyp <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5916	6006	
==>'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTyp <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2815	2905	
==>'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTyp <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	605	694	
==>@{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6365	6500	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9335	9470	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6365	6500	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9335	9470	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6365	6500	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9335	9470	
==>($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (de <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	679	785	
==>e =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_version($file)) if -f $file;
    }

    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2637	2741	
==>)
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize E <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2637	2741	
==>)
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize E <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2637	2741	
==>)
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize E <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	637	725	
==>thorization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodi <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	637	725	
==>thorization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1538	1640	
==>ading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1745	1847	
==>ading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$pr <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5324	5423	
==>}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4454	4553	
==>}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5324	5423	
==>}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4454	4553	
==>}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5563	5681	
==>bber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($ob <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5563	5681	
==>bber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($ob <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5563	5681	
==>bber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2333	2429	
==>age

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2333	2429	
==>age

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2333	2429	
==>age

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5495	5600	
==>ap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5495	5600	
==>ap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5495	5600	
==>ap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3637	3730	
==>ints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3637	3730	
==>ints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3637	3730	
==>ints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8035	8172	
==>y @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8035	8172	
==>y @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8035	8172	
==>y @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29088	29190	
==>:Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29088	29190	
==>:Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29088	29190	
==>:Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17685	17795	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14905	15015	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17685	17795	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14905	15015	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17685	17795	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14905	15015	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'in <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22472	22582	
==>return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logic <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23035	23145	
==>return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logic <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18893	19003	
==>return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logic <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19456	19566	
==>return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logic <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	575	670	
==>CRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of say <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	575	670	
==>CRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of say <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24801	24908	
==>lid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
v <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22415	22522	
==>lid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if the return v <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9701	9808	
==>lid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24801	24908	
==>lid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
v <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22415	22522	
==>lid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if the return v <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9701	9808	
==>lid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if the return
v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15002	15144	
==>$label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15002	15144	
==>$label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15002	15144	
==>$label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19701	19842	
==>$label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19701	19842	
==>$label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19701	19842	
==>$label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3009	3140	
==>tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3009	3140	
==>tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1766	1874	
==>() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1022	1124	
==>thod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1022	1124	
==>thod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1022	1124	
==>thod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28064	28235	
==>lue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28064	28235	
==>lue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28064	28235	
==>lue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12216	12352	
==>A starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data sect <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12216	12352	
==>A starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data sect <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11300	11402	
==>CLASS_WORD, target, pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22624	22724	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22854	22954	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22624	22724	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22854	22954	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22624	22724	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22854	22954	
==>index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14717	14829	
==>e has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14717	14829	
==>e has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14717	14829	
==>e has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1606	1712	
==>TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1606	1712	
==>TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1606	1712	
==>TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	27	137	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	27	137	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	27	137	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2449	2546	
==>turn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2449	2546	
==>turn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2449	2546	
==>turn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5578	5717	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8862	9001	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5578	5717	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8862	9001	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5578	5717	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8862	9001	
==>ub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3878	3967	
==>----------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3878	3967	
==>----------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3878	3967	
==>----------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	484	593	
==>orting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	484	593	
==>orting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	484	593	
==>orting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Numb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9678	9779	
==>cape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9678	9779	
==>cape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9678	9779	
==>cape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add in <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14018	14143	
==>fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payl <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14018	14143	
==>fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payl <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20675	20793	
==>ubpats"]
    self["cname"] = $I0
    
  setsubpats:
    cname = self["cname"]
    $S0 = substr cname, 0, 1
    if $S0 = <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	3414	3523	
==>ath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, never clinking.
-}


module P <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10514	10621	
==>$self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::It <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10514	10621	
==>$self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::It <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2603	2735	
==>kies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~ <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2603	2735	
==>kies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13064	13174	
==>6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21114	21224	
==>6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13343	13453	
==>6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21393	21503	
==>6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2983	3093	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10906	11016	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6108	6218	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2983	3093	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10906	11016	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6108	6218	
==>$meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10789	10904	
==>thod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10789	10904	
==>thod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10789	10904	
==>thod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	285	389	
==>tkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	285	389	
==>tkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	285	389	
==>tkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6:: <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25014	25111	
==>contains something
 * potentially expensive (at present, the only such thing detected is * or +
 * <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6400	6496	
==>the flag before returning.

- this can also be used to do fail() and assert(), and 'no-backtracki <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6194	6289	
==>the flag before returning.
- this can also be used to do fail() and assert(), and 'no-backtracki <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6256	6348	
==>B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns St <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6256	6348	
==>B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns St <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8453	8545	
==>B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4028	4129	
==>"preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4028	4129	
==>"preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4028	4129	
==>"preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3396	3490	
==>}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3396	3490	
==>}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3396	3490	
==>}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3064	3181	
==>ss defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3064	3181	
==>ss defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3064	3181	
==>ss defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	403	513	
==>suming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	403	513	
==>suming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	403	513	
==>suming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2208	2317	
==>work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @IN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2208	2317	
==>work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @IN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2208	2317	
==>work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @IN <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8464	8597	
==>class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8464	8597	
==>class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8464	8597	
==>class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11846	11976	
==>rs or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15323	15453	
==>rs or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14658	14788	
==>rs or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @o <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	257	701	
==>52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	257	701	
==>52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1214	1321	
==>h based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1563	1668	
==>h based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1170	1275	
==>h based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1563	1668	
==>h based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runt <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17318	17417	
==>ifference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20795	20894	
==>ifference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20373	20472	
==>ifference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19615	19708	
==>alue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19615	19708	
==>alue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19615	19708	
==>alue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $valu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35135	35234	
==>object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35135	35234	
==>object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20000	20128	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17139	17267	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20000	20128	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17139	17267	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20000	20128	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17139	17267	
==>e meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to the Package norm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5672	5793	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8642	8763	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5672	5793	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8642	8763	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5672	5793	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8642	8763	
==>ssed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	152	263	
==>count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	152	263	
==>count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	152	263	
==>count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14185	14276	
==>:main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%EN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14185	14276	
==>:main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%EN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14185	14276	
==>:main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%EN <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13717	13814	
==>er join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17194	17291	
==>er join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18381	18502	
==>'%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21640	21761	
==>'%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41646	41767	
==>'%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44547	44668	
==>'%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2234	2337	
==>d_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighte <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2234	2337	
==>d_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12758	12894	
==>= 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13037	13173	
==>= 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21084	21180	
==>'s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
ke <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19992	20088	
==>'s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
ke <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21084	21180	
==>'s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
ke <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19992	20088	
==>'s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9014	9108	
==>ethod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9014	9108	
==>ethod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9014	9108	
==>ethod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13202	13323	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13202	13323	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13202	13323	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5442	5563	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3942	4063	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2087	2208	
==>dy

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4840	4939	
==>ng C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mus <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4840	4939	
==>ng C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mus <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6364	6463	
==>ng C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mus <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1770	1890	
==>document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1770	1890	
==>document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1770	1890	
==>document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- pla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- pla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1	98	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- pla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10785	10899	
==>essary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatab <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10785	10899	
==>essary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatab <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10785	10899	
==>essary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	957	1069	
==>or(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	957	1069	
==>or(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	957	1069	
==>or(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1598	1705	
==>nd   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, densit <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1598	1705	
==>nd   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, densit <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	783	886	
==>make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1573	1670	
==>kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1573	1670	
==>kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1573	1670	
==>kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	427	553	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	420	546	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	427	553	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	420	546	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	427	553	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	420	546	
==>$self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      spr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7131	7289	
==>e not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7131	7289	
==>e not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7131	7289	
==>e not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9255	9355	
==>,  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9255	9355	
==>,  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9255	9355	
==>,  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->per <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4816	4941	
==>"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710 <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4816	4941	
==>"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710 <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6827	6936	
==>d to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if ther <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6827	6936	
==>d to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if ther <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7926	8032	
==>ch object that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a M <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7658	7761	
==>ch object that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	902	1025	
==>p the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	902	1025	
==>p the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	902	1025	
==>p the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3030	3116	
==>ake_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3030	3116	
==>ake_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3030	3116	
==>ake_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	52	166	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	52	166	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	52	166	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1438	1539	
==>IL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1438	1539	
==>IL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1438	1539	
==>IL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $de <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1282	1381	
==>f: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int { <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1282	1381	
==>f: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int { <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13068	13166	
==>was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header.  Wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	379	474	
==>(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	379	474	
==>(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	379	474	
==>(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19569	19669	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16801	16901	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19569	19669	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16801	16901	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19569	19669	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16801	16901	
==>$label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8812	8914	
==>y $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8812	8914	
==>y $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8812	8914	
==>y $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4361	4462	
==>(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4361	4462	
==>(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4361	4462	
==>(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6753	6860	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9723	9830	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6753	6860	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9723	9830	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6753	6860	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9723	9830	
==>$) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1718	1839	
==>ribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1718	1839	
==>ribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1718	1839	
==>ribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2545	2648	
==>malize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2545	2648	
==>malize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2892	2995	
==>malize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1177	1327	
==>ment_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/preco <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1382	1532	
==>ment_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/preco <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	24	129	
==>ine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filter <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	24	124	
==>ine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filter <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	54	153	
==>ine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filter <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	54	153	
==>ine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5667	5832	
==>%h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5667	5832	
==>%h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5667	5832	
==>%h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21911	22003	
==>) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21911	22003	
==>) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21911	22003	
==>) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13923	14075	
==>} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13923	14075	
==>} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13923	14075	
==>} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35236	35332	
==>y relational operator that is identical
to C<join> except that this method will fail if any of it <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39786	39882	
==>y relational operator that is identical
to C<join> except that this method will fail if any of it <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39346	39442	
==>y relational operator that is identical
to C<join> except that this method will fail if any of it <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4797	4969	
==>ed[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that sat <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5261	5433	
==>ed[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that sat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6313	6410	
==>ile) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ba <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8381	8478	
==>ile) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ba <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6313	6410	
==>ile) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ba <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8381	8478	
==>ile) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ba <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1031	1144	
==>y $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefil <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1922	2035	
==>y $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefil <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2065	2174	
==>ens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'EN <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11519	11674	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3031	3186	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11519	11674	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3031	3186	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11519	11674	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3031	3186	
==>= 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2143	2265	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1255	1377	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2143	2265	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1255	1377	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2143	2265	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1255	1377	
==>paque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideall <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9394	9524	
==>m },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9394	9524	
==>m },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9394	9524	
==>m },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24191	24299	
==>ots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvio <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	844	938	
==>US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe', <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	729	815	
==>US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3644	3768	
==>mfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3644	3768	
==>mfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3644	3768	
==>mfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8104	8217	
==>=~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind eq 'SubPrim' && $name =~ /END/;#XX <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17999	18092	
==>identify
it easily in its conditional logic, using a simple 'equals', and then the
application <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17999	18092	
==>identify
it easily in its conditional logic, using a simple 'equals', and then the
application <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2668	2792	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3248	3372	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2668	2792	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3248	3372	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2668	2792	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3248	3372	
==>value, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle( <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5526	5632	
==>ous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrenc <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5526	5632	
==>ous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8636	8741	
==>6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8636	8741	
==>6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8636	8741	
==>6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pu <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3021	3107	
==>06\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u20 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10141	10293	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7692	7844	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10141	10293	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7692	7844	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10141	10293	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7692	7844	
==>-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5846	5947	
==>ms()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5846	5947	
==>ms()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5846	5947	
==>ms()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1412	1511	
==>y $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1617	1716	
==>y $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1678	1777	
==>y $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $me <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9271	9395	
==>oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9271	9395	
==>oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13067	13177	
==>tation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13067	13177	
==>tation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13067	13177	
==>tation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23142	23235	
==>nt to include variables, use C<qr//>, or mix single-
and double-quoted strings in building you <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6153	6258	
==>turn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9630	9735	
==>turn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	782	898	
==>have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a A <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	741	852	
==>have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a A <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24640	24737	
==>t is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23404	23501	
==>t is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24640	24737	
==>t is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23404	23501	
==>t is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fi <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4889	4997	
==>0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4889	4997	
==>0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10300	10393	
==>ad2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of item <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8193	8286	
==>ad2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of item <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10300	10393	
==>ad2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of item <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8193	8286	
==>ad2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of item <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	111	221	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	108	211	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	102	205	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	108	211	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	102	205	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29056	29154	
==>the time.

=item $obj->insert()

Inserts this object into the tree.  It returns a value that says w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25391	25576	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27586	27771	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25391	25576	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27586	27771	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25391	25576	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27586	27771	
==>ast if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2844	2965	
==>ub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5769	5886	
==>ub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5769	5886	
==>ub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36537	36650	
==>lass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36537	36650	
==>lass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36537	36650	
==>lass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9061	9178	
==>lan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1283	1389	
==>ttr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1283	1389	
==>ttr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1283	1389	
==>ttr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1201	1306	
==>lan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1201	1306	
==>lan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9141	9289	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12114	12262	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9141	9289	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12114	12262	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9141	9289	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12114	12262	
==>od');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21709	21909	
==>v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21709	21909	
==>v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21709	21909	
==>v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1337	1441	
==>%modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1337	1441	
==>%modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1337	1441	
==>%modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8218	8346	
==>trs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8218	8346	
==>trs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8218	8346	
==>trs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _(' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3758	3875	
==>= $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3758	3875	
==>= $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $n <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3124	3233	
==>ree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15971	16108	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20688	20825	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15971	16108	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20688	20825	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15971	16108	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20688	20825	
==>::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5590	5698	
==>in_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5590	5698	
==>in_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5590	5698	
==>in_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3112	3200	
==>l itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind:: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3112	3200	
==>l itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind:: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3459	3547	
==>l itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9280	9408	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12253	12381	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9280	9408	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12253	12381	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9280	9408	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12253	12381	
==>ackage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Per <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3126	3247	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11049	11170	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6251	6372	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3126	3247	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11049	11170	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6251	6372	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18307	18496	
==>o that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar dow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18307	18496	
==>o that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar dow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18307	18496	
==>o that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar dow <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13355	13476	
==>got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13355	13476	
==>got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13355	13476	
==>got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35506	35636	
==>rray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35506	35636	
==>rray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35506	35636	
==>rray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	13	122	
==>ot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	13	122	
==>ot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	13	122	
==>ot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5933	6053	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4053	4173	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5933	6053	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4053	4173	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5933	6053	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4053	4173	
==>ar the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO( <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5645	5752	
==>( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$p <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	3460	3565	
==>($self->find_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$p <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21837	21934	
==>onnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informatio <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20718	20815	
==>onnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informatio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21837	21934	
==>onnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informatio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20718	20815	
==>onnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10687	10827	
==>>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_des <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10687	10827	
==>>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_des <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10687	10827	
==>>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_des <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11566	11688	
==>, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11566	11688	
==>, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11566	11688	
==>, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Cl <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	6634	6739	
==>s (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pai <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6634	6739	
==>s (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pai <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16600	16697	
==>cation the maximum amount of control as
to what the user sees; it never outputs anything by itself <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16600	16697	
==>cation the maximum amount of control as
to what the user sees; it never outputs anything by itself <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5485	5580	
==>ren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tr <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5485	5580	
==>ren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	763	882	
==>of(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	763	882	
==>of(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	763	882	
==>of(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	172	274	
==>mpiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	172	274	
==>mpiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	172	274	
==>mpiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10941	11027	
==>---------------------------------------------
Random Thoughts on Role state:
---------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10964	11050	
==>----------------------
Random Thoughts on Role state:
--------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10941	11027	
==>---------------------------------------------
Random Thoughts on Role state:
---------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10964	11050	
==>----------------------
Random Thoughts on Role state:
--------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10941	11027	
==>---------------------------------------------
Random Thoughts on Role state:
---------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10964	11050	
==>----------------------
Random Thoughts on Role state:
--------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4028	4128	
==>le for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4028	4128	
==>le for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7007	7106	
==>le for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9077	9176	
==>le for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7007	7106	
==>le for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9077	9176	
==>le for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13140	13282	
==>e ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13140	13282	
==>e ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13140	13282	
==>e ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3711	3829	
==>sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3711	3829	
==>sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3711	3829	
==>sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	866	984	
==>($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x);
 }
 &Num::ceil ::= &Num: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	148	256	
==>use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	141	245	
==>use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	135	239	
==>use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	141	245	
==>use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	135	239	
==>use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5760	5920	
==>+ $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4260	4420	
==>+ $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	310	446	
==>e => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	310	446	
==>e => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	310	446	
==>e => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless <==
6	/Users/nnunley/pugs/util/build_pugs.pl	5951	6048	
==>e', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages -package stm -pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2160	2292	
==>less $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2160	2292	
==>less $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2160	2292	
==>less $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp <==
6	/Users/nnunley/pugs/misc/POE/lib/POE.pm	105	214	
==>{
  # FIFO containing the events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There ca <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	257	357	
==>_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub ro <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	257	357	
==>_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub ro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2100	2237	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2505	2642	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2100	2237	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2505	2642	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2100	2237	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2505	2642	
==>ope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11399	11530	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16129	16260	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11399	11530	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16129	16260	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11399	11530	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16129	16260	
==>ent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4794	4912	
==>Name => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "L <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4794	4912	
==>Name => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "L <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4794	4912	
==>Name => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "L <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3957	4066	
==>());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3957	4066	
==>());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3957	4066	
==>());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @pa <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5114	5375	
==>script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for these links ###
                $ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4326	4543	
==>script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11335	11476	
==>s = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11335	11476	
==>s = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11335	11476	
==>s = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1717	1825	
==>s::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ];
$config{' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1023	1123	
==>Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instance <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1023	1123	
==>Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instance <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1023	1123	
==>Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10899	10996	
==>y $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10899	10996	
==>y $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10899	10996	
==>y $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	495	593	
==>FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	495	593	
==>FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	495	593	
==>FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	103	200	
==>ates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	103	200	
==>ates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	103	200	
==>ates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5443	5648	
==>tkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5443	5648	
==>tkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5443	5648	
==>tkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12477	12587	
==>";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12477	12587	
==>";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12477	12587	
==>";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13801	13922	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14175	14296	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13801	13922	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14175	14296	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13801	13922	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14175	14296	
==>y to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16652	16764	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13857	13969	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16652	16764	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13857	13969	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16652	16764	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13857	13969	
==>while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9193	9301	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6740	6848	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9193	9301	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6740	6848	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9193	9301	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6740	6848	
==>:canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	247	363	
==>but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	247	363	
==>but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	247	363	
==>but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9098	9208	
==>it #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ] <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12951	13058	
==>it #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12951	13058	
==>it #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14779	14886	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12033	12140	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14779	14886	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12033	12140	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14779	14886	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12033	12140	
==>l, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "I <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9713	9830	
==>= array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9713	9830	
==>= array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9713	9830	
==>= array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1808	1913	
==>n required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/De <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1808	1913	
==>n required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/De <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1808	1913	
==>n required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/De <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8430	8565	
==>RCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8430	8565	
==>RCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8430	8565	
==>RCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	245	354	
==>S needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	245	354	
==>S needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	245	354	
==>S needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6052	6153	
==>_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6052	6153	
==>_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6052	6153	
==>_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11880	11975	
==>ace/API they are 
interchangable with one another, classes and Roles are unified. THis is like
S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11880	11975	
==>ace/API they are 
interchangable with one another, classes and Roles are unified. THis is like
S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11880	11975	
==>ace/API they are 
interchangable with one another, classes and Roles are unified. THis is like
S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4415	4598	
==>ew( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Containe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4415	4598	
==>ew( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Containe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4415	4598	
==>ew( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Containe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5123	5222	
==>t PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5123	5222	
==>t PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5123	5222	
==>t PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2198	2308	
==>*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2198	2308	
==>*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2198	2308	
==>*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	639	736	
==>ed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	639	736	
==>ed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	639	736	
==>ed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	202	318	
==>p();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	202	318	
==>p();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	202	318	
==>p();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1624	1729	
==>});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1624	1729	
==>});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1624	1729	
==>});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18493	18663	
==>ING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18493	18663	
==>ING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18493	18663	
==>ING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3729	3840	
==>40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3729	3840	
==>40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3729	3840	
==>40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7667	7767	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6797	6897	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3383	3483	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3383	3483	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7667	7767	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6797	6897	
==>ember) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1155	1270	
==>die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1155	1270	
==>die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1155	1270	
==>die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6380	6479	
==>ew PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6380	6479	
==>ew PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6380	6479	
==>ew PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primit <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2875	2975	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10798	10898	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6000	6100	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2875	2975	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10798	10898	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6000	6100	
==>dText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	779	924	
==>my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	779	924	
==>my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	779	924	
==>my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3923	4025	
==>s of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3923	4025	
==>s of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3923	4025	
==>s of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4984	5129	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5945	6090	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4984	5129	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5945	6090	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4984	5129	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5945	6090	
==>unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	552	801	
==>ote: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

cl <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	552	801	
==>ote: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

cl <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2950	3090	
==>ersion, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checki <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2950	3090	
==>ersion, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checki <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	946	1075	
==>od end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.te <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	946	1075	
==>od end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11615	11760	
==>str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11615	11760	
==>str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11615	11760	
==>str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4865	4971	
==>and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4865	4971	
==>and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4865	4971	
==>and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	638	742	
==>get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much sw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	638	742	
==>get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much sw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	638	742	
==>get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much sw <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	376	471	
==>) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	376	471	
==>) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	376	471	
==>) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6057	6184	
==>ibute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6057	6184	
==>ibute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6057	6184	
==>ibute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1045	1138	
==>mplemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1045	1138	
==>mplemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1045	1138	
==>mplemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1915	2036	
==>y
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1915	2036	
==>y
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1915	2036	
==>y
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7367	7485	
==>$tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",D <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7379	7497	
==>$tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",D <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	714	830	
==>ostfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15146	15312	
==>kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15146	15312	
==>kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15146	15312	
==>kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7372	7496	
==>__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8724	8848	
==>__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19392	19516	
==>__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3035	3162	
==>f ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $matches[0]{s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3556	3681	
==>f ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2936	3061	
==>f ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3556	3681	
==>f ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{s <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5142	5238	
==>ipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an arr <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5142	5238	
==>ipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1553	1693	
==>ument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1553	1693	
==>ument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1553	1693	
==>ument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6914	7025	
==>we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6914	7025	
==>we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6914	7025	
==>we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15110	15267	
==>:
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15110	15267	
==>:
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15110	15267	
==>:
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	220	321	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	220	321	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	220	321	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10301	10410	
==>ame = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10301	10410	
==>ame = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10301	10410	
==>ame = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6929	7054	
==>contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6929	7054	
==>contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6929	7054	
==>contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3853	3952	
==>ode.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3853	3952	
==>ode.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3853	3952	
==>ode.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8210	8353	
==>$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8210	8353	
==>$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8210	8353	
==>$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10599	10715	
==>ed
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10599	10715	
==>ed
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10599	10715	
==>ed
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2607	2721	
==>nt<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and ho <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2607	2721	
==>nt<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and ho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1951	2060	
==>PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1951	2060	
==>PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1951	2060	
==>PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      retu <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1296	1396	
==>e a core type";    
    return num->new($left->to_native - $right->to_num->to_native());
}

sub multi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19069	19201	
==>er magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} }, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19069	19201	
==>er magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} }, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19069	19201	
==>er magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	564	685	
==>F->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { St <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	564	685	
==>F->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { St <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	564	685	
==>F->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { St <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3471	3567	
==>aim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $modul <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3529	3625	
==>aim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $modul <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1989	2113	
==>X
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1989	2113	
==>X
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1989	2113	
==>X
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1158	1260	
==>pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1158	1260	
==>pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1158	1260	
==>pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13570	13710	
==>}

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3707	3835	
==>}

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3707	3835	
==>}

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3707	3835	
==>}

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3428	3549	
==>sions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) <==
6	/Users/nnunley/pugs/util/grokprims.pl	819	933	
==>ing="UTF-8" ?><html><body><table border="1">';



foreach my $op (sort 
         {
           $a->{name} cmp $b->{n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8468	8571	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6021	6124	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8468	8571	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6021	6124	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8468	8571	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6021	6124	
==>self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5649	5844	
==>ay; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        r <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5649	5844	
==>ay; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12300	12412	
==>:Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12300	12412	
==>:Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12300	12412	
==>:Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1775	1877	
==>:Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::Rule->co <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10399	10537	
==>~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    prin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6740	6878	
==>~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7589	7727	
==>~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    prin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2352	2453	
==>arameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - call <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2352	2453	
==>arameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - call <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2352	2453	
==>arameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - call <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11063	11189	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12534	12660	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14540	14666	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16011	16137	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13848	13974	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15373	15499	
==>);
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12775	12967	
==>od |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->p <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12775	12967	
==>od |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->p <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	454	578	
==>$fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	452	576	
==>$fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as p <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	454	578	
==>$fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	452	576	
==>$fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11740	11956	
==>idate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11740	11956	
==>idate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11740	11956	
==>idate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3310	3411	
==>@_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3310	3411	
==>@_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3310	3411	
==>@_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12410	12526	
==>method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12410	12526	
==>method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12410	12526	
==>method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14504	14603	
==>};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14504	14603	
==>};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14504	14603	
==>};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1548	1656	
==>terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # cur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1548	1656	
==>terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # cur <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14223	14322	
==>pression :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpression><no_LineT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	685	783	
==>ed->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	685	783	
==>ed->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	685	783	
==>ed->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6916	7019	
==>e_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1272	1373	
==>e_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	374	472	
==>e_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { die "n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	442	538	
==>th no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	442	538	
==>th no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	442	538	
==>th no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3866	3977	
==>le>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3866	3977	
==>le>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3866	3977	
==>le>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7659	7761	
==>bnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7659	7761	
==>bnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7659	7761	
==>bnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11026	11158	
==>JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11026	11158	
==>JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11026	11158	
==>JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	333	432	
==>parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * A <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	333	432	
==>parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * A <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	333	432	
==>parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2618	2725	
==>tion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2618	2725	
==>tion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2618	2725	
==>tion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3569	3669	
==>nk   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3569	3669	
==>nk   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3569	3669	
==>nk   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24352	24449	
==>atch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24352	24449	
==>atch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24352	24449	
==>atch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20327	20414	
==><=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20327	20414	
==><=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20327	20414	
==><=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8532	8637	
==>::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8532	8637	
==>::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8532	8637	
==>::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2342	2442	
==>,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2342	2442	
==>,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2342	2442	
==>,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30492	30632	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32206	32346	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30492	30632	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32206	32346	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30492	30632	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32206	32346	
==>length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6132	6263	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5484	5615	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10454	10585	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6132	6263	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5484	5615	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10454	10585	
==>st ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6131	6253	
==>operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6521	6643	
==>operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4633	4755	
==>operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5025	5147	
==>operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1061	1175	
==>remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1061	1175	
==>remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4189	4297	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4189	4297	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4189	4297	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->disp <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2142	2248	
==>diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostic <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2142	2248	
==>diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2222	2328	
==>diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4729	4893	
==>_('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4729	4893	
==>_('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4729	4893	
==>_('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4802	4907	
==>s2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .sh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4802	4907	
==>s2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .sh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4802	4907	
==>s2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4504	4644	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7016	7156	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4504	4644	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7016	7156	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4504	4644	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7016	7156	
==>e just add a private method in here...
                    # there is no real distinction between the
                    # private class met <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9725	9841	
==>2p {
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	649	754	
==>tional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ( <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	649	754	
==>tional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7756	7853	
==>0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7756	7853	
==>0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7756	7853	
==>0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3437	3544	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3437	3544	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3437	3544	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2486	2589	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2486	2589	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2486	2589	
==>tub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2222	2350	
==>) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2222	2350	
==>) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10990	11102	
==>('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2922	3033	
==>ntiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2922	3033	
==>ntiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2922	3033	
==>ntiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8250	8391	
==>efix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4610	4751	
==>efix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5459	5600	
==>efix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16013	16110	
==>return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16013	16110	
==>return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16013	16110	
==>return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1357	1475	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2920	3038	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1357	1475	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2920	3038	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1357	1475	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2920	3038	
==>lement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	411	509	
==>od start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
metho <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	411	509	
==>od start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
metho <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1423	1520	
==>od start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
metho <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1423	1520	
==>od start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
metho <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9304	9396	
==>Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns tru <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9304	9396	
==>Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns tru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1364	1558	
==>ast_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1364	1558	
==>ast_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1364	1558	
==>ast_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7078	7171	
==>$attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7078	7171	
==>$attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7078	7171	
==>$attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	407	522	
==>.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	407	522	
==>.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	407	522	
==>.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2366	2457	
==>cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2366	2457	
==>cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2366	2457	
==>cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6333	6437	
==>n = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6333	6437	
==>n = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6333	6437	
==>n = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2447	2542	
==>ar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2447	2542	
==>ar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2447	2542	
==>ar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1105	1205	
==>_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1105	1205	
==>_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1185	1285	
==>_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	579	667	
==>PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	579	667	
==>PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	579	667	
==>PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ma <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11245	11362	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2361	2478	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7455	7572	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11245	11362	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2361	2478	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7455	7572	
==>{
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7374	7527	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4933	5086	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7374	7527	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4933	5086	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7374	7527	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4933	5086	
==>eq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@none <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7666	7780	
==>se (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7666	7780	
==>se (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7666	7780	
==>se (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16857	16955	
==>butes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16857	16955	
==>butes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16857	16955	
==>butes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15382	15509	
==>% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15382	15509	
==>% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15382	15509	
==>% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	69	171	
==>05-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fix <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	69	171	
==>05-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fix <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	69	171	
==>05-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fix <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9503	9631	
==>ro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5844	5972	
==>ro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6693	6821	
==>ro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4906	5019	
==>shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4906	5019	
==>shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4906	5019	
==>shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	507	617	
==>le!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(. <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	474	584	
==>le!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(. <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5682	5778	
==>look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4812	4908	
==>look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5682	5778	
==>look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4812	4908	
==>look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12964	13102	
==>ven ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12964	13102	
==>ven ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9133	9236	
==>any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9133	9236	
==>any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9133	9236	
==>any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28098	28198	
==>MT_START {if (rx->saved_copy) { \
	     SV_CHECK_THINKFIRST_COW_DROP(rx->saved_copy); \
	 } \
	 if (R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3257	3371	
==>utes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3257	3371	
==>utes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3257	3371	
==>utes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4192	4291	
==>\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4192	4291	
==>\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4192	4291	
==>\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13111	13287	
==>ue ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13111	13287	
==>ue ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13111	13287	
==>ue ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params} <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5554	5702	
==>.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                c <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5554	5702	
==>.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                c <==
6	/Users/nnunley/pugs/util/func_refact.pl	1774	1876	
==>{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbose} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4723	4864	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2910	3051	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4723	4864	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2910	3051	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4723	4864	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2910	3051	
==>e) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5318	5461	
==>Attribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5318	5461	
==>Attribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5318	5461	
==>Attribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2672	2813	
==>Attribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2672	2813	
==>Attribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2672	2813	
==>Attribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this should be done automatical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4298	4423	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7234	7359	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4298	4423	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7234	7359	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4298	4423	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7234	7359	
==>kes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7788	7934	
==>$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7788	7934	
==>$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7788	7934	
==>$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6755	6885	
==>s defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6755	6885	
==>s defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6755	6885	
==>s defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	503	606	
==>005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	503	606	
==>005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	503	606	
==>005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2 <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	958	1056	
==>)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_no <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	958	1056	
==>)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_no <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22539	22634	
==>provides a partial implementation, in the form of several
roles, for a Relation data type that c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14834	14964	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19533	19663	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14834	14964	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19533	19663	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14834	14964	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19533	19663	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16028	16166	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20745	20883	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16028	16166	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20745	20883	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16028	16166	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20745	20883	
==>:Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15707	15842	
==>sier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15707	15842	
==>sier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15707	15842	
==>sier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20428	20559	
==>sier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20428	20559	
==>sier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20428	20559	
==>sier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8932	9030	
==>g

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8932	9030	
==>g

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8932	9030	
==>g

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2735	2823	
==>my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6187	6275	
==>my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2735	2823	
==>my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2735	2823	
==>my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1716	1803	
==>ipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1716	1803	
==>ipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32737	32926	
==>ms > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32737	32926	
==>ms > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32737	32926	
==>ms > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11461	11607	
==>->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11461	11607	
==>->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11461	11607	
==>->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13469	13586	
==>ding ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16946	17063	
==>ding ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16308	16425	
==>ding ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14439	14540	
==>d('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14439	14540	
==>d('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14439	14540	
==>d('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4793	4959	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7294	7460	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4793	4959	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7294	7460	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4793	4959	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7294	7460	
==>thod($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20038	20153	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17177	17292	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20038	20153	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17177	17292	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20038	20153	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17177	17292	
==>tes are just package scoped "our" variables
        # so they are added to the Package normally
        return $self <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3933	4032	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6912	7011	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8982	9081	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3933	4032	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6912	7011	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8982	9081	
==>y Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12055	12226	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12827	12998	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12055	12226	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12827	12998	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12055	12226	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12827	12998	
==>for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @re <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13216	13315	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4386	4485	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8842	8941	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13216	13315	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4386	4485	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8842	8941	
==>this whole file, which can be referenced as a unit by
documentation or 'use' statements or Perl arch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13510	13617	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10794	10901	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13510	13617	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10794	10901	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13510	13617	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10794	10901	
==>tr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2881	2983	
==>my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2881	2983	
==>my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2881	2983	
==>my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2621	2713	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2621	2713	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2621	2713	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4255	4405	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6904	7054	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4486	4632	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10935	11081	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4486	4632	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10935	11081	
==>$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($matc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8304	8476	
==>:str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4664	4836	
==>:str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5513	5685	
==>:str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9294	9427	
==>4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9294	9427	
==>4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9294	9427	
==>4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3913	4012	
==>name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	224	323	
==>..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3913	4012	
==>name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3913	4012	
==>name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	224	323	
==>..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	224	323	
==>..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3894	4027	
==>(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3894	4027	
==>(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4426	4551	
==>(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4426	4551	
==>(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	31	125	
==>.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	31	125	
==>.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13550	13683	
==>$ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13550	13683	
==>$ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13550	13683	
==>$ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2781	2901	
==>3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %par <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2781	2901	
==>3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %par <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2781	2901	
==>3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4591	4742	
==>Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4591	4742	
==>Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4591	4742	
==>Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4032	4134	
==>be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4032	4134	
==>be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4032	4134	
==>be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2376	2511	
==>[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $se <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2923	3058	
==>[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $se <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3470	3605	
==>[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15447	15545	
==>od_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15447	15545	
==>od_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15447	15545	
==>od_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table-> <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5272	5402	
==>index);
        my $meta = $pkg->meta->to_struct;
        
        # add the archive path to the package's meta info
        $meta- <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	614	710	
==>ti *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postf <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	614	710	
==>ti *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6280	6375	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6280	6375	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6280	6375	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-c <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	19168	19278	
==>m => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	393	501	
==>ontext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.It <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	393	501	
==>ontext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.It <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	393	501	
==>ontext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.It <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38724	38819	
==>ill be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left in <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38724	38819	
==>ill be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	168	336	
==>(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	168	336	
==>(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	168	336	
==>(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PI <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	807	973	
==>\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	807	973	
==>\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1728	1852	
==>(default)
                # without whitespace means '<str>'
                #print "checking angle quote ... [$whitespace_be <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8115	8298	
==>eprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12105	12247	
==>eprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12105	12247	
==>eprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6744	6844	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6744	6844	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6744	6844	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5203	5360	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8173	8330	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5203	5360	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8173	8330	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5203	5360	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8173	8330	
==>od->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # thi <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4180	4283	
==>self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Ob <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4180	4283	
==>self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Ob <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	417	519	
==>self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Ob <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	417	519	
==>self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Ob <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5425	5518	
==>h>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizin <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5425	5518	
==>h>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizin <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8163	8288	
==>d and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8163	8288	
==>d and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13147	13241	
==>h is suitable as a generic data interchange format between
Rosetta::Model and other Perl code s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18242	18336	
==>h is suitable as a generic data interchange
format between Rosetta::Model and other Perl code s <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13147	13241	
==>h is suitable as a generic data interchange format between
Rosetta::Model and other Perl code s <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18242	18336	
==>h is suitable as a generic data interchange
format between Rosetta::Model and other Perl code s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4749	4852	
==>g %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4749	4852	
==>g %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7524	7619	
==>rgs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6654	6749	
==>rgs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7524	7619	
==>rgs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6654	6749	
==>rgs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5798	5918	
==>ess $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{captu <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3131	3249	
==>ml (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @a <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3131	3249	
==>ml (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5614	5731	
==>ess $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{captu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5920	6033	
==>return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5716	5824	
==>return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2455	2594	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4782	4921	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2455	2594	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4782	4921	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2455	2594	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4782	4921	
==>tribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must p <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3910	4011	
==>y $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurre <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3910	4011	
==>y $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2843	2938	
==>l argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=h <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2843	2938	
==>l argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=h <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3190	3285	
==>l argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=h <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21334	21421	
==>chr(11)
class_member(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
cla <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11586	11775	
==>per( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7868	8057	
==>per( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8702	8891	
==>per( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16246	16395	
==>$count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16246	16395	
==>$count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16246	16395	
==>$count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	799	904	
==>k, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	799	904	
==>k, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	799	904	
==>k, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17113	17197	
==>ass->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17113	17197	
==>ass->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17113	17197	
==>ass->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$: <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4183	4282	
==>lue2

If a property is outside of a section, it will be assigned to the root
section, available at C <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4183	4282	
==>lue2

If a property is outside of a section, it will be assigned to the root
section, available at C <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40298	40393	
==>tribute must carry
prominent notices stating that you changed the files and the date of any
chan <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25822	25917	
==>tribute must carry prominent
notices stating that you changed the files and the date of any chan <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40298	40393	
==>tribute must carry
prominent notices stating that you changed the files and the date of any
chan <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25822	25917	
==>tribute must carry prominent
notices stating that you changed the files and the date of any chan <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4470	4603	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7119	7252	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4696	4825	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11145	11274	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4696	4825	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11145	11274	
==>pture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	214	326	
==>$@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	214	326	
==>$@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	214	326	
==>$@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6191	6284	
==>ubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6191	6284	
==>ubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6191	6284	
==>ubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ / <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39368	39483	
==>op {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39368	39483	
==>op {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39368	39483	
==>op {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5409	5522	
==>r = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,fl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5409	5522	
==>r = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,fl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5409	5522	
==>r = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,fl <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	152	267	
==>tart_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filenam <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	152	267	
==>tart_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filenam <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	152	267	
==>tart_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filenam <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	152	267	
==>tart_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filenam <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10466	10569	
==>sult = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsa <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10466	10569	
==>sult = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2228	2344	
==>ar = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2228	2344	
==>ar = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2228	2344	
==>ar = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Ev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39559	39671	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39559	39671	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39559	39671	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23828	23963	
==>$__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          red <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13332	13459	
==>$__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        red <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13332	13459	
==>$__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        red <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13332	13459	
==>$__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        red <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1137	1227	
==>:Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1137	1227	
==>:Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7848	7966	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10771	10889	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7848	7966	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10771	10889	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7848	7966	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10771	10889	
==>st can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4528	4646	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2740	2858	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4528	4646	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2740	2858	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4528	4646	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2740	2858	
==>ot a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8071	8217	
==>r g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8071	8217	
==>r g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8071	8217	
==>r g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16658	16765	
==>$c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enum <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16658	16765	
==>$c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enum <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16658	16765	
==>$c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2668	2767	
==>file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2668	2767	
==>file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2668	2767	
==>file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3790	3888	
==>pe";

		Blondie::TypeSafe::Annotation->new(
			type => $type,
			struct_equiv => $sym->fmap(sub { B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6651	6775	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9621	9745	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6651	6775	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9621	9745	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6651	6775	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9621	9745	
==>od => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3234	3409	
==>lar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3234	3409	
==>lar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3234	3409	
==>lar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14570	14654	
==>->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14570	14654	
==>->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14570	14654	
==>->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	904	1008	
==>, constant('a') );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Ma <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10478	10579	
==>this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10478	10579	
==>this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21437	21532	
==>ct from the other
attributes, though several attributes may store values of the same class;
ever <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25989	26084	
==>ct from the other
attributes, though several attributes may store values of the same class;
ever <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24622	24717	
==>ct from the other
attributes, though several attributes may store values of the same class;
ever <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6271	6416	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9241	9386	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6271	6416	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9241	9386	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6271	6416	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9241	9386	
==>me as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16542	16659	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13747	13864	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16542	16659	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13747	13864	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16542	16659	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13747	13864	
==>lf, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4581	4681	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n". <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4581	4681	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n". <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4581	4681	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n". <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14379	14473	
==>n::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14379	14473	
==>n::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14379	14473	
==>n::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9862	9976	
==><[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9862	9976	
==><[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9862	9976	
==><[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new P <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3900	4167	
==>);
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) r <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3943	4210	
==>);
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) r <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3900	4167	
==>);
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) r <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3943	4210	
==>);
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	488	611	
==>x_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	488	611	
==>x_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	488	611	
==>x_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1427	1520	
==>c.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1427	1520	
==>c.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1427	1520	
==>c.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	493	623	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	493	623	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	493	623	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      func <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2710	2815	
==>pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2710	2815	
==>pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2710	2815	
==>pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6625	6747	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9074	9196	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6625	6747	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9074	9196	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6625	6747	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9074	9196	
==>start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $star <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9248	9354	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6795	6901	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9248	9354	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6795	6901	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9248	9354	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6795	6901	
==>eorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1036	1141	
==>ed warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1036	1141	
==>ed warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1036	1141	
==>ed warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10610	10710	
==>emented
    # -----------------------------------------------

    method add_method;
    method get_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10610	10710	
==>emented
    # -----------------------------------------------

    method add_method;
    method get_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10610	10710	
==>emented
    # -----------------------------------------------

    method add_method;
    method get_ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6273	6532	
==>rent );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.cu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6273	6532	
==>rent );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.cu <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5994	6118	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6384	6508	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4494	4618	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4886	5010	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9921	10044	
==>e::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher" <block>))))
                 (re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3988	4094	
==>}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3988	4094	
==>}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3988	4094	
==>}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17128	17224	
==>which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a vi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17128	17224	
==>which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a vi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25236	25341	
==>t when the permutation of its
arguments and any invocant object's attributes is identical; they do not
int <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11367	11472	
==>t when the permutation of its
arguments and any invocant object's attributes is identical; they do not
int <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14640	14745	
==>t when the permutation of its arguments and any invocant
object's attributes is identical; they do not int <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25236	25341	
==>t when the permutation of its
arguments and any invocant object's attributes is identical; they do not
int <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11367	11472	
==>t when the permutation of its
arguments and any invocant object's attributes is identical; they do not
int <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14640	14745	
==>t when the permutation of its arguments and any invocant
object's attributes is identical; they do not int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6141	6247	
==>t yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6141	6247	
==>t yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6141	6247	
==>t yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15307	15447	
==>d";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15301	15441	
==>d";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	5818	5911	
==>b proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $neg <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5876	5969	
==>b proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $neg <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7520	7612	
==>e MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256) <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7520	7612	
==>e MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7859	8078	
==>$tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7859	8078	
==>$tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7859	8078	
==>$tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6291	6459	
==>ut ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6291	6459	
==>ut ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6291	6459	
==>ut ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36640	36756	
==>$x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36640	36756	
==>$x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36640	36756	
==>$x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it ne <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3382	3480	
==>(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6859	6957	
==>(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5816	5914	
==>(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16571	16676	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21288	21393	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16571	16676	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21288	21393	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16571	16676	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21288	21393	
==>en call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4393	4510	
==>te[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

metho <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4393	4510	
==>te[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

metho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25040	25133	
==>, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23804	23897	
==>, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6 <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25040	25133	
==>, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6 <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23804	23897	
==>, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5713	5838	
==>ant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6266	6391	
==>ant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5906	6031	
==>ant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6459	6584	
==>ant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18754	18850	
==>ould normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  Wh <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18754	18850	
==>ould normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  Wh <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8998	9110	
==>r => "\0", "\\0[0]") if $cc;
    return $S->object(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11599	11710	
==>rimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wra <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2086	2192	
==>rimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wra <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8858	8964	
==>rimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2086	2192	
==>rimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8858	8964	
==>rimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11896	12038	
==>ted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11896	12038	
==>ted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11896	12038	
==>ted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3130	3262	
==>ign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3130	3262	
==>ign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3130	3262	
==>ign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8839	8987	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6392	6540	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8839	8987	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6392	6540	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8839	8987	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6392	6540	
==>->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1721	1844	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3284	3407	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1721	1844	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3284	3407	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1721	1844	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3284	3407	
==>ivate methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5599	5754	
==>> $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5599	5754	
==>> $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5599	5754	
==>> $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4030	4138	
==>};
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4030	4138	
==>};
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4030	4138	
==>};
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14969	15077	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12223	12331	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14969	15077	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12223	12331	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14969	15077	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12223	12331	
==>eate_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_in <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6211	6394	
==>6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$cod <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6211	6394	
==>6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$cod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9548	9720	
==>ented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15092	15264	
==>ented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9548	9720	
==>ented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15086	15258	
==>ented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8363	8482	
==>de ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null() <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8074	8187	
==>de ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null() <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4283	4391	
==>s the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4283	4391	
==>s the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4794	4900	
==>s the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4794	4900	
==>s the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2969	3197	
==>L',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8063	8291	
==>L',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2969	3197	
==>L',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8063	8291	
==>L',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta: <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4868	4998	
==>_shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( In <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4868	4998	
==>_shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( In <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3018	3118	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6032	6132	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8100	8200	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3018	3118	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6032	6132	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8100	8200	
==>returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1984	2110	
==>r => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedence => 'equa <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8193	8311	
==>rt {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s: <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8193	8311	
==>rt {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	534	653	
==>s_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	534	653	
==>s_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	534	653	
==>s_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34147	34263	
==>, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34147	34263	
==>, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34147	34263	
==>, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = s <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4223	4331	
==>{    
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4223	4331	
==>{    
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4180	4286	
==>{  
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4180	4286	
==>{  
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	553	644	
==>ead1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listeni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	553	644	
==>ead1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listeni <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8876	8997	
==>new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullP <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1032	1145	
==>new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullP <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1032	1145	
==>new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullP <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	118	212	
==>e and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.or <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	107	199	
==>e and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.or <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	74	166	
==>e and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.or <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20289	20392	
==>r($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20289	20392	
==>r($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20289	20392	
==>r($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10218	10359	
==>], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6559	6700	
==>], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7408	7549	
==>], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9457	9568	
==>rt
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\ <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9457	9568	
==>rt
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\ <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7782	7883	
==>ldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8775	8943	
==>ub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8775	8943	
==>ub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8775	8943	
==>ub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	113	213	
==>=> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	113	213	
==>=> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	113	213	
==>=> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2no <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1303	1425	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3599	3721	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1303	1425	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3599	3721	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10143	10241	
==>t!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_tex <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10143	10241	
==>t!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_tex <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7496	7632	
==>et_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7496	7632	
==>et_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13403	13505	
==>ue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13403	13505	
==>ue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13403	13505	
==>ue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6:: <==
6	/Users/nnunley/pugs/util/run-smoke.pl	223	319	
==>Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $failed <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6316	6466	
==>v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl versio <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5824	5974	
==>v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl versio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15370	15509	
==>ss{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15364	15503	
==>ss{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5125	5215	
==>"If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5125	5215	
==>"If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7804	7935	
==>egexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7804	7935	
==>egexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7804	7935	
==>egexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4986	5092	
==>new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4986	5092	
==>new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4986	5092	
==>new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16027	16126	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16027	16126	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16027	16126	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4300	4427	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7236	7363	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4300	4427	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7236	7363	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4300	4427	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7236	7363	
==>s a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub :: <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2320	2449	
==>else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) { <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2320	2449	
==>else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) { <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13186	13284	
==>ertyName> <':'> <AssignmentExpression>
}
rule PropertyName :words {  # see 11.1.5
      <Identifier <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	67	162	
==>constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flus <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	67	162	
==>constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flus <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37069	37157	
==>=> 'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7734	7843	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10657	10766	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7734	7843	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10657	10766	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7734	7843	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10657	10766	
==>ext METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implici <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12623	12742	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10174	10293	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12623	12742	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10174	10293	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12623	12742	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10174	10293	
==>');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7550	7678	
==>f defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7550	7678	
==>f defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7550	7678	
==>f defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	58	160	
==>use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modu <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	53	155	
==>use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modu <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	53	155	
==>use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4251	4385	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7187	7321	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4251	4385	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7187	7321	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4251	4385	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7187	7321	
==>);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3336	3441	
==>ether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3336	3441	
==>ether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base) <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11555	11657	
==>ne for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

= <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11555	11657	
==>ne for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

= <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	144	244	
==>ed_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wan <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	144	244	
==>ed_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wan <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8378	8492	
==>::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8366	8480	
==>::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1563	1668	
==>ny), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1563	1668	
==>ny), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1563	1668	
==>ny), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4086	4187	
==>\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2094	2229	
==>@_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2094	2229	
==>@_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2094	2229	
==>@_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2929	3029	
==>te('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2929	3029	
==>te('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2929	3029	
==>te('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8102	8206	
==>cePosition;
  my $match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2802	2902	
==>x.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2802	2902	
==>x.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2802	2902	
==>x.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19777	19873	
==>also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization par <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19777	19873	
==>also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization par <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	399	518	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIV <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	399	518	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIV <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1939	2051	
==>hy rw?
# XXX Prim.hs has a different return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Ar <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20780	20887	
==>g >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26852	26947	
==>ct>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31404	31499	
==>ct>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7618	7760	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5177	5319	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7618	7760	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5177	5319	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7618	7760	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5177	5319	
==>%in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matchi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3898	4021	
==>name};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	971	1086	
==>ry Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that u <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	971	1086	
==>ry Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17667	17762	
==>..};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17667	17762	
==>..};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17667	17762	
==>..};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7672	7851	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5231	5410	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7672	7851	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5231	5410	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7672	7851	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5231	5410	
==>seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find one <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2250	2377	
==>if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2250	2377	
==>if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2250	2377	
==>if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	383	481	
==>k, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	383	481	
==>k, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	383	481	
==>k, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Sp <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	491	624	
==>tr);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($metho <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	491	624	
==>tr);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16155	16253	
==>arams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16155	16253	
==>arams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16155	16253	
==>arams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15212	15309	
==><$ml> may be empty if Test::Harness doesn't think you're
on TTY.

The C<$width> is the width of th <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10718	10860	
==>time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Du <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7059	7201	
==>time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Du <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7908	8050	
==>time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Du <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	605	705	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1125	1225	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	605	705	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1125	1225	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	605	705	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1125	1225	
==>($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4296	4435	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6945	7084	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4526	4661	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10975	11110	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4526	4661	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10975	11110	
==>h->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	428	543	
==>dir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	463	578	
==>dir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	428	543	
==>dir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node = <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9641	9756	
==>dir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node = <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1576	1675	
==>lthough the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=ite <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1576	1675	
==>lthough the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1768	1869	
==>rn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1768	1869	
==>rn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1768	1869	
==>rn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1662	1758	
==>erl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1662	1758	
==>erl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1662	1758	
==>erl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	268	378	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	266	376	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	268	378	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	266	376	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	268	378	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	266	376	
==>ables and access their internal data.
    # This is basically the implementation of
    # the p6opaque candidat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	762	874	
==>)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	762	874	
==>)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	762	874	
==>)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7593	7698	
==>arn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, co <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7593	7698	
==>arn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, co <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7593	7698	
==>arn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18745	18861	
==>6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18745	18861	
==>6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18745	18861	
==>6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5540	5644	
==>s::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $names <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5540	5644	
==>s::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $names <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5540	5644	
==>s::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $names <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	562	675	
==>lf
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	562	675	
==>lf
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3635	3747	
==>postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3635	3747	
==>postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3635	3747	
==>postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	239	345	
==>), Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'), <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	539	657	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	861	979	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1240	1358	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	539	657	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	861	979	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1240	1358	
==>block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single back <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2592	2731	
==>lass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2592	2731	
==>lass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2592	2731	
==>lass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12381	12486	
==>unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12381	12486	
==>unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12381	12486	
==>unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35967	36065	
==>aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> head <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40517	40615	
==>aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> head <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40131	40229	
==>aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> head <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20972	21068	
==>OP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20972	21068	
==>OP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20972	21068	
==>OP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULT <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3761	3895	
==>\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5078	5212	
==>\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3761	3895	
==>\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5066	5200	
==>\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$ <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1598	1691	
==>inux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_b <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1598	1691	
==>inux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5960	6139	
==>> $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5960	6139	
==>> $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5960	6139	
==>> $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	489	587	
==>file($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	489	587	
==>file($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	489	587	
==>file($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	304	423	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	302	421	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	304	423	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	302	421	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	304	423	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	302	421	
==>.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1487	1597	
==>bly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1487	1597	
==>bly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1487	1597	
==>bly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	452	556	
==>ow ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	452	556	
==>ow ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	452	556	
==>ow ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3937	4049	
==>} unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3937	4049	
==>} unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3937	4049	
==>} unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3830	3934	
==>$b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3830	3934	
==>$b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3830	3934	
==>$b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2558	2675	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4885	5002	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2558	2675	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4885	5002	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2558	2675	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4885	5002	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3960	4088	
==>f);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3960	4088	
==>f);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3960	4088	
==>f);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        ( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3902	4000	
==>er, and setting the passed parameter to a true value. 

If this parameter is false, the factory ret <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3902	4000	
==>er, and setting the passed parameter to a true value. 

If this parameter is false, the factory ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6099	6197	
==>er, and setting the passed parameter to a true value. 

If this parameter is false, the factory ret <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20185	20284	
==>o a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilatio <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20185	20284	
==>o a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilatio <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7404	7498	
==>my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7404	7498	
==>my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7730	7822	
==>my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7730	7822	
==>my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15408	15512	
==>]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15408	15512	
==>]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15408	15512	
==>]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4205	4300	
==>for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4205	4300	
==>for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4285	4380	
==>for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	639	766	
==>ent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	639	766	
==>ent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	639	766	
==>ent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6466	6575	
==>g []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6466	6575	
==>g []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6466	6575	
==>g []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	416	567	
==>/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	416	567	
==>/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @ <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	8652	8759	
==>$fh $template->output();
    close $fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7631	7719	
==>f->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7631	7719	
==>f->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7631	7719	
==>f->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fun <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9383	9538	
==>if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14927	15082	
==>if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9383	9538	
==>if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14921	15076	
==>if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5081	5194	
==>= $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.pus <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5081	5194	
==>= $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11682	11810	
==>argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11682	11810	
==>argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11682	11810	
==>argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2612	2709	
==>, the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2612	2709	
==>, the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2612	2709	
==>, the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13462	13595	
==>ops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13462	13595	
==>ops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13462	13595	
==>ops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2282	2378	
==>hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2282	2378	
==>hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2282	2378	
==>hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1793	1892	
==>ts '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1793	1892	
==>ts '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	730	855	
==>\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	730	855	
==>\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	730	855	
==>\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5953	6057	
==>=> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5953	6057	
==>=> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5953	6057	
==>=> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWi <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	974	1094	
==>$self->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $se <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17545	17640	
==>pendent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17545	17640	
==>pendent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1940	2034	
==>nd;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1940	2034	
==>nd;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1940	2034	
==>nd;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4319	4419	
==>%mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4319	4419	
==>%mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4319	4419	
==>%mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2227	2324	
==>Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2227	2324	
==>Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2227	2324	
==>Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1885	1998	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3448	3561	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1885	1998	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3448	3561	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1885	1998	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3448	3561	
==>led 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11247	11370	
==>th; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11247	11370	
==>th; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11247	11370	
==>th; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4718	4814	
==>=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=he <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4718	4814	
==>=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6915	7011	
==>=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=he <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3358	3482	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11916	12040	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6483	6607	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3358	3482	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11916	12040	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6483	6607	
==>G_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1183	1288	
==>_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1183	1288	
==>_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1183	1288	
==>_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21291	21385	
==>($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21291	21385	
==>($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21291	21385	
==>($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14344	14478	
==>calar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14344	14478	
==>calar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14344	14478	
==>calar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8344	8450	
==>e_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8344	8450	
==>e_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8344	8450	
==>e_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

= <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2206	2344	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11074	11212	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12033	12171	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2399	2537	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11353	11491	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12312	12450	
==>ammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11341	11479	
==>\$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11335	11473	
==>\$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3612	3715	
==>osetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3612	3715	
==>osetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19044	19139	
==>hilosophy ("a predicate ranging
over more than one argument"), which is also the basis of the re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22694	22789	
==>hilosophy ("a predicate ranging over more than one
argument"), which is also the basis of the re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1036	1143	
==>name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1036	1143	
==>name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1036	1143	
==>name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	66	168	
==>_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	66	168	
==>_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	66	168	
==>_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	452	561	
==>my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	452	561	
==>my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	452	561	
==>my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17276	17371	
==>This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17276	17371	
==>This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17276	17371	
==>This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31415	31563	
==>h++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_leng <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31415	31563	
==>h++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_leng <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31415	31563	
==>h++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_leng <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2405	2503	
==>($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2405	2503	
==>($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2405	2503	
==>($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11467	11631	
==>}   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11467	11631	
==>}   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11467	11631	
==>}   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2011	2108	
==>w('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2011	2108	
==>w('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2011	2108	
==>w('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5860	5979	
==>", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5860	5979	
==>", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5860	5979	
==>", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12027	12118	
==>all_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12027	12118	
==>all_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12027	12118	
==>all_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals: <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3603	3720	
==>s or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umla <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3603	3720	
==>s or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8644	8753	
==>', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6177	6282	
==>', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	608	706	
==>ject(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	608	706	
==>ject(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19819	19922	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16958	17061	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19819	19922	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16958	17061	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19819	19922	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16958	17061	
==>-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4945	5102	
==>();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match. <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4945	5102	
==>();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match. <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8112	8204	
==>urns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arra <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7242	7334	
==>urns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arra <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8112	8204	
==>urns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arra <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7242	7334	
==>urns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6454	6610	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8903	9059	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6454	6610	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8903	9059	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6454	6610	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8903	9059	
==>uous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5889	6077	
==>start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5889	6077	
==>start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5889	6077	
==>start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1036	1139	
==>",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1036	1139	
==>",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1036	1139	
==>",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30279	30420	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32008	32149	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30279	30420	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32008	32149	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30279	30420	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32008	32149	
==>>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6829	6949	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9799	9919	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6829	6949	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9799	9919	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6829	6949	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9799	9919	
==>& $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15746	15957	
==>l6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15746	15957	
==>l6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15746	15957	
==>l6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2247	2361	
==>s primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2247	2361	
==>s primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2247	2361	
==>s primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3505	3614	
==>h [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3505	3614	
==>h [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3505	3614	
==>h [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub com <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1643	1727	
==>~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$f <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3604	3688	
==>~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$f <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1643	1727	
==>~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$f <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15365	15499	
==>ar(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optiona <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15644	15778	
==>ar(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optiona <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1796	1923	
==>my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2037	2164	
==>my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1796	1923	
==>my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1796	1923	
==>my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24754	24900	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26943	27089	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24754	24900	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26943	27089	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24754	24900	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26943	27089	
==>')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless define <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13580	13739	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13580	13739	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13580	13739	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5826	5985	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4326	4485	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2465	2624	
==>[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2378	2550	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3087	3259	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2378	2550	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3087	3259	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2378	2550	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3087	3259	
==>{
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11809	11924	
==>Skip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.num <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2231	2338	
==>Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.num <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2231	2338	
==>Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.num <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	735	837	
==>You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This mo <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	735	837	
==>You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This mo <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	27512	27604	
==>ne_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, p <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3157	3263	
==>rry later about large body

  # strip away status and headers
  # This should all be done better so the res <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3157	3263	
==>rry later about large body

  # strip away status and headers
  # This should all be done better so the res <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12828	12924	
==>ue if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one eleme <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9604	9700	
==>ue if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one eleme <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12828	12924	
==>ue if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one eleme <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9604	9700	
==>ue if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one eleme <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36359	36456	
==>unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38112	38209	
==>unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate others. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40908	41005	
==>unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42661	42758	
==>unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate others. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40522	40619	
==>unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42311	42408	
==>unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate others. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1042	1164	
==>block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1442	1564	
==>block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1916	2038	
==>block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2552	2662	
==>val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2552	2662	
==>val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2552	2662	
==>val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2217	2316	
==>d returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2217	2316	
==>d returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2217	2316	
==>d returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKME <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28354	28443	
==>tributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32906	32995	
==>tributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32034	32123	
==>tributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4734	4863	
==>m not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4734	4863	
==>m not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4734	4863	
==>m not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	551	664	
==>_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	551	664	
==>_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	551	664	
==>_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2843	2944	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2843	2944	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2843	2944	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4359	4456	
==>onal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $l <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4359	4456	
==>onal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $l <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4949	5046	
==>onal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2709	2825	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5699	5815	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3004	3113	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9422	9531	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3004	3113	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9422	9531	
==>er-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2212	2338	
==>nd simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2212	2338	
==>nd simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2559	2685	
==>nd simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6128	6255	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9098	9225	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6128	6255	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9098	9225	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6128	6255	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9098	9225	
==>make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1548	1739	
==>.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5025	5216	
==>.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3955	4146	
==>.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35375	35516	
==>bute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36300	36441	
==>bute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37835	37976	
==>bute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7215	7315	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7215	7315	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7215	7315	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_di <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	42	141	
==>s)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	42	141	
==>s)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	42	141	
==>s)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	271	369	
==>@!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Clas <==
6	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	10	108	
==>/perl

my $test_file = shift || 'test';

print(('-' x 80), "\n");
print "Testing perl5 naive bayesi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	271	369	
==>@!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Clas <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3178	3275	
==>est module allows you to test test modules that use Test::Builder.  It
does this by you setting th <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3178	3275	
==>est module allows you to test test modules that use Test::Builder.  It
does this by you setting th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3258	3355	
==>est module allows you to test test modules that use Test::Builder.  It
does this by you setting th <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3499	3599	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6513	6613	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8581	8681	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3499	3599	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6513	6613	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8581	8681	
==>urns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SE <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14575	14698	
==>ner();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE (( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	136	242	
==>arnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	131	232	
==>arnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	125	226	
==>arnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	131	232	
==>arnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	125	226	
==>arnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1378	1478	
==>his is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header_ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1378	1478	
==>his is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21871	21968	
==>k the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20752	20849	
==>k the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21871	21968	
==>k the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20752	20849	
==>k the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18736	18859	
==>:AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18736	18859	
==>:AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18736	18859	
==>:AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	766	858	
==>---------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	766	858	
==>---------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	766	858	
==>---------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4703	4831	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7639	7767	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4703	4831	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7639	7767	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4703	4831	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7639	7767	
==>ed_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11081	11208	
==>ubdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11081	11208	
==>ubdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11081	11208	
==>ubdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $pa <==
6	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	69	191	
==>rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args. <==
6	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	69	191	
==>rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args. <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1365	1475	
==>cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6406	6542	
==>tring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6406	6542	
==>tring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6406	6542	
==>tring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9726	9844	
==>h + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9726	9844	
==>h + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9726	9844	
==>h + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1602	1715	
==>e_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1602	1715	
==>e_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1602	1715	
==>e_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	244	343	
==>);
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	244	343	
==>);
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	244	343	
==>);
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19460	19573	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16692	16805	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19460	19573	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16692	16805	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19460	19573	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16692	16805	
==>. ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1800	1947	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1800	1947	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1800	1947	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1626	1752	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1626	1752	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1626	1752	
==>hod = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5485	5587	
==>st(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5485	5587	
==>st(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5485	5587	
==>st(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	679	780	
==>ie) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	679	780	
==>ie) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	679	780	
==>ie) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprin <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8096	8280	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        m <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8096	8280	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        m <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7695	7852	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8497	8654	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7695	7852	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8497	8654	
==>my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2709	2830	
==>s a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2709	2830	
==>s a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2709	2830	
==>s a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	434	533	
==>ame = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effici <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	434	533	
==>ame = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effici <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	434	533	
==>ame = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effici <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35453	35590	
==>_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35453	35590	
==>_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35453	35590	
==>_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $arr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1463	1592	
==>rver
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1463	1592	
==>rver
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32991	33084	
==>ation::Example
which is the same as the invocant Relation::Example but that some of its
tuple/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20144	20267	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17283	17406	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20144	20267	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17283	17406	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20144	20267	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17283	17406	
==>turn $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	174	291	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	174	291	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1762	1879	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1967	2084	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2030	2147	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	174	291	
==>class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4146	4293	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7082	7229	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4146	4293	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7082	7229	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4146	4293	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7082	7229	
==>be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basicall <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4082	4245	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4082	4245	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4082	4245	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($c <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14538	14692	
==>{
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.p <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18015	18169	
==>{
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.p <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17431	17585	
==>{
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11572	11693	
==>ams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11572	11693	
==>ams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11572	11693	
==>ams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1604	1715	
==>my $realclean = $self->makemaker_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FIL <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2091	2193	
==>Create a second grammar which actually runs, is efficient,
#     and has captures for easy use of the r <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13948	14040	
==>[].
octdigit(D) --> [D], { member(D,"01234567") }.

octdigits3_int(I) -->
  octdigit(D0), oct <==
6	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	826	930	
==>: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget <==
6	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	826	930	
==>: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2139	2239	
==>r_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1337	1428	
==>js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1337	1428	
==>js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1337	1428	
==>js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	783	881	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1303	1401	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	783	881	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1303	1401	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	783	881	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1303	1401	
==>ndefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.auto <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	620	756	
==>rms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	620	756	
==>rms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} } <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1706	1802	
==>ect, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availabl <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1469	1565	
==>ect, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availabl <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1706	1802	
==>ect, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availabl <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1469	1565	
==>ect, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4580	4704	
==>}
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4580	4704	
==>}
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4580	4704	
==>}
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	17243	17344	
==>span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- ` <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17243	17344	
==>span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- ` <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10983	11080	
==>times;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15793	15899	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13043	13149	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15793	15899	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13043	13149	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15793	15899	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13043	13149	
==>ined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2825	2944	
==>a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2825	2944	
==>a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2825	2944	
==>a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3746	3842	
==>m C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3746	3842	
==>m C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5943	6039	
==>m C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::T <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20614	20715	
==>)" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->new()" if $name =~ /\@/;
    return "\$${R <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20379	20475	
==>sually do it.  An os-level preference
/ control-panel displays a list of all the languages your p <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20379	20475	
==>sually do it.  An os-level preference
/ control-panel displays a list of all the languages your p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7009	7104	
==>ct(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7996	8091	
==>ct(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10565	10660	
==>ct(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9990	10096	
==>mp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9990	10096	
==>mp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9990	10096	
==>mp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12706	12816	
==>t the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12706	12816	
==>t the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12706	12816	
==>t the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{ha <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7646	7753	
==>eg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19488	19584	
==>Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<n <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19488	19584	
==>Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11395	11526	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2907	3038	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11395	11526	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2907	3038	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11395	11526	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2907	3038	
==>ion ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2110	2221	
==>::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    metho <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2110	2221	
==>::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    metho <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5967	6070	
==>s Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.su <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5097	5200	
==>s Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5967	6070	
==>s Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5097	5200	
==>s Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3435	3536	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3435	3536	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3435	3536	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2484	2581	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2484	2581	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2484	2581	
==>_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	727	844	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	727	844	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	727	844	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	114	230	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	114	230	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	114	230	
==>args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16588	16698	
==>urn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16588	16698	
==>urn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16588	16698	
==>urn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3379	3472	
==>ingle test within the
Test::Builder framework. The class itself is actually a factory for
clas <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3379	3472	
==>ingle test within the
Test::Builder framework. The class itself is actually a factory for
clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5576	5669	
==>ingle test within the
Test::Builder framework. The class itself is actually a factory for
clas <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17254	17404	
==>ecision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17254	17404	
==>ecision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9754	9878	
==>mbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9754	9878	
==>mbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9754	9878	
==>mbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	17284	17403	
==>> 'testlink');
                # $backlink->push_content(abs2rel($source, $output_dir));
                $h->push_conten <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9426	9562	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10755	10891	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11221	11357	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9414	9550	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10749	10885	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11215	11351	
==>1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6184	6299	
==>6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6184	6299	
==>6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6184	6299	
==>6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3249	3363	
==>6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3249	3363	
==>6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3249	3363	
==>6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6295	6403	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6663	6771	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6295	6403	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6663	6771	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8492	8600	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8860	8968	
==>rides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14636	14731	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14636	14731	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14636	14731	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	12	99	
==>L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	12	99	
==>L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	12	99	
==>L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5335	5442	
==>_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5335	5442	
==>_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5335	5442	
==>_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	706	806	
==>eturn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	706	806	
==>eturn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	706	806	
==>eturn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($nam <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39130	39250	
==>.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific code
    } <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7746	7856	
==>s still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1047	1157	
==>s still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3172	3273	
==>arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3172	3273	
==>arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3172	3273	
==>arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15304	15429	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20037	20162	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15304	15429	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20037	20162	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15304	15429	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20037	20162	
==>rs during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2366	2475	
==>- but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2366	2475	
==>- but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2366	2475	
==>- but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..10 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7511	7618	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7511	7618	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7511	7618	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13569	13718	
==>(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $si <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13569	13718	
==>(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $si <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13569	13718	
==>(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $si <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2454	2603	
==>(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $si <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7978	8102	
==>SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $met <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7978	8102	
==>SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $met <==
6	/Users/nnunley/pugs/util/combine_tests.pl	2410	2557	
==>$sum{$fname}[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14599	14724	
==>le $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14599	14724	
==>le $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14599	14724	
==>le $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6885	7010	
==>le $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5389	5514	
==>le $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7075	7191	
==>>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7075	7191	
==>>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7075	7191	
==>>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsna <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2665	2770	
==>ived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=hea <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2665	2770	
==>ived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=hea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2745	2850	
==>ived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6977	7174	
==>thers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10454	10651	
==>thers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9573	9770	
==>thers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4240	4403	
==>$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4240	4403	
==>$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4240	4403	
==>$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4710	4839	
==>f->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13135	13264	
==>f->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15746	15875	
==>f->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17234	17363	
==>f->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21917	22046	
==>f->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	315	432	
==>_;

    my $file = (caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness check our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8110	8224	
==>:add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8110	8224	
==>:add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8110	8224	
==>:add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	593	701	
==>ect 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "callin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5283	5388	
==>ompiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5100	5199	
==>ompiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML. <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6064	6202	
==>value);
            return;
        }
        $current = $current->next;
    }
    $self->create($name, $value);
}

sub get {
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4620	4720	
==>g,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4620	4720	
==>g,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4620	4720	
==>g,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31118	31216	
==>out any delimiter.  This means,
for example, that the full module names in a set could be either
[F <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31118	31216	
==>out any delimiter.  This means,
for example, that the full module names in a set could be either
[F <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9653	9797	
==>Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      => <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	235	373	
==>Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      => <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	235	373	
==>Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3380	3488	
==>s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3380	3488	
==>s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3380	3488	
==>s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4579	4731	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7091	7243	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4579	4731	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7091	7243	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4579	4731	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7091	7243	
==>al distinction between the
                    # private class method or the private instance 
                    # method, maybe there should be, but I <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1976	2093	
==>e ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1976	2093	
==>e ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	841	951	
==>le".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying the whole str <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1210	1315	
==>le".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole str <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	809	914	
==>le".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole str <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1210	1315	
==>le".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14988	15102	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12242	12356	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14988	15102	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12242	12356	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14988	15102	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12242	12356	
==>ibute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11424	11598	
==>( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11424	11598	
==>( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11424	11598	
==>( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1798	1892	
==>6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1798	1892	
==>6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1798	1892	
==>6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7878	7996	
==>alue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7878	7996	
==>alue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7878	7996	
==>alue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	470	578	
==>S>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	470	578	
==>S>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
6	/Users/nnunley/pugs/util/grokprims.pl	2159	2253	
==></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5278	5385	
==>class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5278	5385	
==>class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5278	5385	
==>class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8295	8382	
==>and();
}

#======================================================================

use F <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8295	8382	
==>and();
}

#======================================================================

use F <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8295	8382	
==>and();
}

#======================================================================

use F <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	933	1070	
==>m->{pos};
    $self->{p}        = delete $param->{p}    unless defined $self->{p};
                        # default = undef;
    $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7782	7918	
==>lf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7782	7918	
==>lf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7782	7918	
==>lf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	252	379	
==>ram_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	252	379	
==>ram_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4324	4444	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6973	7093	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4553	4670	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11002	11119	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4553	4670	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11002	11119	
==>ugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11430	11561	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2942	3073	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11430	11561	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2942	3073	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11430	11561	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2942	3073	
==>ction (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	703	807	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	703	807	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	703	807	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	90	193	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	90	193	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	90	193	
==>.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5058	5168	
==>array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5058	5168	
==>array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5058	5168	
==>array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5121	5212	
==>of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns B <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5121	5212	
==>of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6645	6736	
==>of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns B <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5013	5142	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7662	7791	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5220	5343	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11669	11792	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5220	5343	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11669	11792	
==>d by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $p <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2993	3110	
==>File( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3457	3574	
==>File( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6088	6201	
==>chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!ch <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6868	6981	
==>chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!ch <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6088	6201	
==>chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!ch <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6868	6981	
==>chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1593	1748	
==>s $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            ble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1593	1748	
==>s $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            ble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1593	1748	
==>s $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            ble <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1040	1158	
==>($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1040	1158	
==>($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	119	219	
==>e warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type::equivalence';

# need t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19452	19565	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16684	16797	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19452	19565	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16684	16797	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19452	19565	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16684	16797	
==>E at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8455	8559	
==>/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8455	8559	
==>/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8455	8559	
==>/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11569	11670	
==>valX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11569	11670	
==>valX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11569	11670	
==>valX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	36	143	
==>okenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	36	143	
==>okenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	36	143	
==>okenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5213	5302	
==>($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5213	5302	
==>($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5213	5302	
==>($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5144	5306	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8114	8276	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5144	5306	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8114	8276	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5144	5306	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8114	8276	
==>th;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3030	3189	
==>matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3030	3189	
==>matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3030	3189	
==>matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3670	3818	
==>th; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3670	3818	
==>th; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3670	3818	
==>th; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash a <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12134	12231	
==>an = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00: <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13965	14062	
==>an = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00: <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12134	12231	
==>an = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00: <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13965	14062	
==>an = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19688	19783	
==>ll be much easier for a non-programmer to edit.
But the current Perl-based solution will also be <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19688	19783	
==>ll be much easier for a non-programmer to edit.
But the current Perl-based solution will also be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6480	6626	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8929	9075	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6480	6626	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8929	9075	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6480	6626	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8929	9075	
==>t = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $st <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7618	7766	
==>if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7618	7766	
==>if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8863	8974	
==>t I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8863	8974	
==>t I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3821	3915	
==>=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4005	4099	
==>=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15151	15277	
==>classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15151	15277	
==>classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15151	15277	
==>classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13298	13411	
==>source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16775	16888	
==>source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16137	16250	
==>source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5466	5573	
==>array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<== <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5466	5573	
==>array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<== <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5466	5573	
==>array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<== <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4391	4492	
==>yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4391	4492	
==>yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4391	4492	
==>yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15476	15626	
==>ed = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15476	15626	
==>ed = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15476	15626	
==>ed = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5214	5361	
==>n the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5678	5825	
==>n the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1276	1381	
==>sub node::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4574	4726	
==>sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4574	4726	
==>sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4574	4726	
==>sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	323	467	
==>ccess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	323	467	
==>ccess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	323	467	
==>ccess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3335	3443	
==>rstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3335	3443	
==>rstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3335	3443	
==>rstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2468	2573	
==>ystem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2468	2573	
==>ystem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2468	2573	
==>ystem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw " <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	848	961	
==>_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store f <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	848	961	
==>_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store f <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2825	2924	
==>ibutors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you c <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2982	3081	
==>ibutors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you c <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2825	2924	
==>ibutors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you c <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2982	3081	
==>ibutors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	10	105	
==>erl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	10	105	
==>erl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	10	105	
==>erl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	650	738	
==>2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	650	738	
==>2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	650	738	
==>2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3003	3109	
==>retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3003	3109	
==>retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3003	3109	
==>retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1441	1546	
==>";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1441	1546	
==>";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1441	1546	
==>";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	576	693	
==>sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	576	693	
==>sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for m <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	251	357	
==>rse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	251	357	
==>rse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	251	357	
==>rse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	251	357	
==>rse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6858	6958	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5988	6088	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2642	2742	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2642	2742	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6858	6958	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5988	6088	
==>i sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4807	4927	
==>erl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4807	4927	
==>erl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4807	4927	
==>erl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11894	12008	
==>( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product : <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15371	15485	
==>( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product : <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14706	14820	
==>( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18863	19008	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16101	16246	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18863	19008	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16101	16246	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18863	19008	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16101	16246	
==>ce')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1048	1168	
==>od_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1048	1168	
==>od_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1048	1168	
==>od_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9039	9136	
==>overhead is a SVMG (i.e. bless())

you can return the same failure object always

then there's abs <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8741	8836	
==>overhead is a SVMG (i.e. bless())
you can return the same failure object always
then there's abs <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7703	7804	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6833	6934	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3419	3520	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3419	3520	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7703	7804	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6833	6934	
==>des($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# neces <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5103	5194	
==>piler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1060	1151	
==>piler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	920	1011	
==>piler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5103	5194	
==>piler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1060	1151	
==>piler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7195	7298	
==>perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7195	7298	
==>perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7195	7298	
==>perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::S <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1481	1583	
==>ostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1481	1583	
==>ostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1561	1663	
==>ostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10823	11003	
==>rrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10823	11003	
==>rrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10823	11003	
==>rrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4894	4991	
==>ral public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.n <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4894	4991	
==>ral public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7091	7188	
==>ral public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.n <==
6	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	568	695	
==>ef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override::PCRE - Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1444	1554	
==>valuation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1201	1311	
==>valuation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	0	103	
==>=pod

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gra <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	0	103	
==>=pod

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gra <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3820	3919	
==>$optable", optable
=cut

sub matches {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $l <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	727	911	
==>'_jib';                           # meta dir
$Root           = $Cwd . '/fakeroot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to stor <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3518	3619	
==>nstructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3518	3619	
==>nstructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1790	1890	
==>t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {... <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1790	1890	
==>t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {... <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1790	1890	
==>t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3548	3654	
==>ned $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3548	3654	
==>ned $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3548	3654	
==>ned $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3143	3236	
==>e options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3143	3236	
==>e options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3143	3236	
==>e options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  -- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7311	7419	
==>' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3915	4023	
==>' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4764	4872	
==>' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12803	12909	
==>h %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12803	12909	
==>h %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12803	12909	
==>h %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9555	9671	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7102	7218	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9555	9671	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7102	7218	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9555	9671	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7102	7218	
==>endant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupporte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2916	3030	
==>lass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2916	3030	
==>lass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2916	3030	
==>lass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	303	408	
==>INE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	303	408	
==>INE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	303	408	
==>INE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = u <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7462	7605	
==>" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7655	7798	
==>" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4982	5092	
==>ck for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4982	5092	
==>ck for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4982	5092	
==>ck for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @re <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1451	1555	
==>:Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31468	31610	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33225	33367	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31468	31610	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33225	33367	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31468	31610	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33225	33367	
==>ist ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	196	312	
==>($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Du <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	160	275	
==>($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Du <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	248	363	
==>($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Du <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	612	716	
==>'$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	612	716	
==>'$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	612	716	
==>'$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5100	5214	
==>st ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5100	5214	
==>st ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5100	5214	
==>st ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5415	5509	
==>om_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5415	5509	
==>om_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5415	5509	
==>om_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12294	12406	
==>e PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12294	12406	
==>e PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12294	12406	
==>e PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@cl <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1016	1127	
==>ift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie intermediate language is a language for machi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7847	7933	
==>:Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1672	1758	
==>:Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4873	4999	
==>");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15909	16035	
==>");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17397	17523	
==>");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22080	22206	
==>");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $ <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	3141	3260	
==>no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3141	3260	
==>no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18869	19016	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16107	16254	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18869	19016	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16107	16254	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18869	19016	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16107	16254	
==>{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6722	6830	
==>2(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7094	7202	
==>2(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2226	2329	
==>e, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2226	2329	
==>e, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7878	7978	
==>s Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primit <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7878	7978	
==>s Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8258	8374	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5817	5933	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8258	8374	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5817	5933	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8258	8374	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5817	5933	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35063	35158	
==>e two source headings are
identical.  This method has an alias named C<matching>.

=item C<produ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4269	4364	
==>e optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=ite <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39613	39708	
==>e two source headings are
identical.  This method has an alias named C<matching>.

=item C<produ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39155	39250	
==>e two source headings are
identical.  This method has an alias named C<matching>.

=item C<produ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4269	4364	
==>e optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=ite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5793	5888	
==>e optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9241	9351	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6788	6898	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9241	9351	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6788	6898	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9241	9351	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6788	6898	
==>eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25351	25544	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27546	27739	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25351	25544	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27546	27739	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25351	25544	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27546	27739	
==>push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9783	9952	
==>how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9783	9952	
==>how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9783	9952	
==>how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1322	1421	
==>IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1322	1421	
==>IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1322	1421	
==>IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelud <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36338	36432	
==>ttributes differ and unioning
the remaining said tuple pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38091	38185	
==>ttributes differ and unioning the remaining said tuple
pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40887	40981	
==>ttributes differ and unioning
the remaining said tuple pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42640	42734	
==>ttributes differ and unioning the remaining said tuple
pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40501	40595	
==>ttributes differ and unioning
the remaining said tuple pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42290	42384	
==>ttributes differ and unioning the remaining said tuple
pairs, then eliminating any result tuple <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6448	6565	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9418	9535	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6448	6565	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9418	9535	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6448	6565	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9418	9535	
==>ethod->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16844	16940	
==>list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16844	16940	
==>list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16844	16940	
==>list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	129	222	
==>Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - boo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	129	222	
==>Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - boo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	129	222	
==>Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - boo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14973	15082	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12227	12336	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14973	15082	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12227	12336	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14973	15082	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12227	12336	
==>_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8623	8775	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11596	11748	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8623	8775	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11596	11748	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8623	8775	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11596	11748	
==>we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1399	1531	
==>0,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().u <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1399	1531	
==>0,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().u <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	16869	17001	
==>};
        my $subpct = sprintf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6526	6623	
==>line;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6526	6623	
==>line;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6526	6623	
==>line;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1053	1189	
==>>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1053	1189	
==>>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1053	1189	
==>>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15553	15676	
==>}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15553	15676	
==>}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15553	15676	
==>}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	19	111	
==>e strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	19	111	
==>e strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	19	111	
==>e strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13796	13903	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14170	14277	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13796	13903	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14170	14277	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13796	13903	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14170	14277	
==>essary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1206	1316	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1491	1601	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1206	1316	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1491	1601	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1206	1316	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1491	1601	
==>s') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3931	4051	
==>s';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3931	4051	
==>s';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	781	901	
==>s';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3168	3286	
==>defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3168	3286	
==>defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3168	3286	
==>defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25541	25655	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27736	27850	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25541	25655	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27736	27850	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25541	25655	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27736	27850	
==>meric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10617	10780	
==>arams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10617	10780	
==>arams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10617	10780	
==>arams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5622	5733	
==>h' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'( <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5622	5733	
==>h' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'( <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2519	2630	
==>h' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5601	5718	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8571	8688	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5601	5718	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8571	8688	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5601	5718	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8571	8688	
==>turn the exact same sub. This results in this
        # method being passed an already blessed method 
        # inste <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	523	643	
==>e);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4945	5057	
==>ule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidd <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4945	5057	
==>ule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidd <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21701	21797	
==>vidually addressed only by their values; neither
may be addressed by any ordinal value.

Note tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26253	26349	
==>vidually addressed only by their values; neither
may be addressed by any ordinal value.

Note tha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24913	25009	
==>vidually addressed only by their values; neither
may be addressed by any ordinal value.

Note tha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11367	11487	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2879	2999	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11367	11487	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2879	2999	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11367	11487	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2879	2999	
==>2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	373	476	
==>se is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	373	476	
==>se is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	373	476	
==>se is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) i <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4125	4224	
==>>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Buil <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4125	4224	
==>>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Buil <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5649	5748	
==>>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Buil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3000	3127	
==>f;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3000	3127	
==>f;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3000	3127	
==>f;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $s <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29556	29703	
==>s => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$order' => 's <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2373	2519	
==>s::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2373	2519	
==>s::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3396	3539	
==>);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3396	3539	
==>);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3396	3539	
==>);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5318	5430	
==>ucts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5318	5430	
==>ucts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5318	5430	
==>ucts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun} <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29420	29531	
==>_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	779	874	
==>roperty - content.

The constructor for this class has a special shortcut syntax compared
to nor <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	779	874	
==>roperty - content.

The constructor for this class has a special shortcut syntax compared
to nor <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	7935	8060	
==>ef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::dia <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7993	8118	
==>ef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::dia <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	486	575	
==>nt("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $len <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1099	1188	
==>nt("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $len <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	486	575	
==>nt("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $len <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1099	1188	
==>nt("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $len <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	193	309	
==>]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	157	272	
==>]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	245	360	
==>]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5698	5798	
==>nite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5698	5798	
==>nite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5698	5798	
==>nite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36305	36431	
==>$body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36305	36431	
==>$body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36305	36431	
==>$body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7173	7259	
==>ain
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7173	7259	
==>ain
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7173	7259	
==>ain
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2951	3068	
==>, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2951	3068	
==>, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2951	3068	
==>, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curren <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3419	3526	
==>ing ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6896	7003	
==>ing ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5853	5960	
==>ing ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$map <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12411	12516	
==>rcumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12411	12516	
==>rcumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12411	12516	
==>rcumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ <==
6	/Users/nnunley/pugs/util/drift.pl	864	969	
==>= open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit unless @pr <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4018	4115	
==>@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscription $.subscrip <==
6	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2293	2387	
==>:round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.ro <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	439	545	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	659	765	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	439	545	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	659	765	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	439	545	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	659	765	
==>g(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9443	9572	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12416	12545	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9443	9572	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12416	12545	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9443	9572	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12416	12545	
==>method::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## d <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3429	3547	
==>',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, g <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3429	3547	
==>',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5652	5763	
==>L::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5652	5763	
==>L::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5652	5763	
==>L::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigi <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	535	630	
==>::Model;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMOKERFILE = ".smo <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5988	6104	
==>dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4145	4252	
==>ft;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4352	4459	
==>ft;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4044	4139	
==>passing on the C<$description> parameter and setting the passed
parameter to a false value. 

=i <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4044	4139	
==>passing on the C<$description> parameter and setting the passed
parameter to a false value. 

=i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6241	6336	
==>passing on the C<$description> parameter and setting the passed
parameter to a false value. 

=i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13143	13272	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13143	13272	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13143	13272	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5383	5512	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3883	4012	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2028	2157	
==>array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13272	13387	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10556	10671	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13272	13387	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10556	10671	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13272	13387	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10556	10671	
==>e;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18716	18851	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15954	16089	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18716	18851	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15954	16089	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18716	18851	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15954	16089	
==>n "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1416	1536	
==>0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3] || ${$ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2	112	
==>ead1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zer <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2	112	
==>ead1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zer <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4710	4813	
==>the declaration must be visible
    in the lexical scope to have any effect. It's possible the
    inter <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7624	7714	
==>ormalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7624	7714	
==>ormalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3392	3499	
==>lsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3392	3499	
==>lsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3392	3499	
==>lsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27753	27846	
==>nal tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcula <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29034	29127	
==>ckage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32305	32398	
==>nal tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcula <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31397	31490	
==>nal tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcula <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29034	29127	
==>ckage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29034	29127	
==>ckage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3871	4022	
==>('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3871	4022	
==>('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3871	4022	
==>('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1726	1826	
==>ment to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1726	1826	
==>ment to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1726	1826	
==>ment to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	613	855	
==>sa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	613	855	
==>sa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	613	855	
==>sa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14839	14993	
==>ned $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14839	14993	
==>ned $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14839	14993	
==>ned $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2121	2219	
==>e $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2121	2219	
==>e $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2121	2219	
==>e $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4387	4480	
==>ds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This compl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4387	4480	
==>ds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This compl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4387	4480	
==>ds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This compl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10440	10609	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7991	8160	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10440	10609	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7991	8160	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10440	10609	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7991	8160	
==>t iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4513	4608	
==>gil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4513	4608	
==>gil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4513	4608	
==>gil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5123	5249	
==>st', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1803	1907	
==>{ if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1803	1907	
==>{ if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1803	1907	
==>{ if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15700	15793	
==>icate in those languages.  Or, when viewing an error message, the
application's developer shou <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15700	15793	
==>icate in those languages.  Or, when viewing an error message, the
application's developer shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19310	19410	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4790	4890	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19310	19410	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4790	4890	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19310	19410	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4790	4890	
==>>add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9302	9441	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12275	12414	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9302	9441	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12275	12414	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9302	9441	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12275	12414	
==>ethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Su <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2709	2962	
==>ode<Bare>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        T <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2977	3105	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gree <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3257	3378	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gree <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9675	9796	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gree <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3257	3378	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gree <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9675	9796	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gree <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4268	4371	
==>subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4268	4371	
==>subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4268	4371	
==>subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2280	2381	
==>gs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2280	2381	
==>gs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2280	2381	
==>gs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7806	7954	
==>h;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7806	7954	
==>h;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2304	2424	
==>model_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2304	2424	
==>model_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2304	2424	
==>model_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	687	800	
==>eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump data as p5
sub p5 {
	lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13959	14114	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13959	14114	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13959	14114	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6221	6376	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4723	4878	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2667	2822	
==>[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        whi <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2936	3048	
==>y_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan( <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2936	3048	
==>y_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4460	4572	
==>y_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2135	2237	
==>a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2135	2237	
==>a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2135	2237	
==>a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13316	13466	
==>tr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3481	3615	
==>tr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3481	3615	
==>tr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3481	3615	
==>tr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16182	16300	
==>self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22353	22471	
==>self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5124	5235	
==>:undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5124	5235	
==>:undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5124	5235	
==>:undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2395	2493	
==>perator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2395	2493	
==>perator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2395	2493	
==>perator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	349	452	
==>s_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	349	452	
==>s_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	349	452	
==>s_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pus <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3471	3570	
==>em B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> vers <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3471	3570	
==>em B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> vers <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3551	3650	
==>em B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> vers <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13676	13866	
==>($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # giv <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13676	13866	
==>($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # giv <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13676	13866	
==>($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # giv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5581	5691	
==>] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5581	5691	
==>] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5581	5691	
==>] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2792	2908	
==>= $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_conf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2792	2908	
==>= $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_conf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2792	2908	
==>= $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4583	4675	
==>generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available option <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4583	4675	
==>generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available option <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4583	4675	
==>generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available option <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10970	11077	
==>array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10970	11077	
==>array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10970	11077	
==>array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5475	5571	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5475	5571	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5475	5571	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	818	931	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	818	931	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	818	931	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).to <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	209	310	
==>$self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	209	310	
==>$self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	209	310	
==>$self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unles <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6244	6369	
==>_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6244	6369	
==>_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	44	146	
==>:List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), g <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	44	146	
==>:List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), g <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	44	146	
==>:List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), g <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1113	1209	
==>code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33958	34065	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33958	34065	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33958	34065	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2798	2901	
==>et.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $spa <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2798	2901	
==>et.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $spa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	122	222	
==>ersion to native
sub to_native;

# conversion to other native types
sub to_num;
sub to_bit;
sub to_st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	654	759	
==>keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	424	529	
==>keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	424	529	
==>keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2011	2103	
==>nction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2011	2103	
==>nction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2011	2103	
==>nction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1817	1965	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	929	1077	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1817	1965	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	929	1077	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1817	1965	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	929	1077	
==>b { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # pa <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	18727	18830	
==>m => val(v => "foo", t => type::operator::nullary->new("str")),
			),
		),
	),
);

# this function canno <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43006	43103	
==>eported.

=head1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMI <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11648	11743	
==>mber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remo <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8795	8890	
==>mber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remo <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11648	11743	
==>mber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remo <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8795	8890	
==>mber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9268	9392	
==>key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9268	9392	
==>key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9268	9392	
==>key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7317	7410	
==>ircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7317	7410	
==>ircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7317	7410	
==>ircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idx <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1392	1564	
==>stack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1660	1766	
==>= function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1660	1766	
==>= function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1660	1766	
==>= function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pr <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1487	1575	
==>ame))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match. <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1487	1575	
==>ame))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match. <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4117	4254	
==>e";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || d <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4117	4254	
==>e";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	39	154	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	39	154	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	39	154	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2296	2392	
==>the given C<$name>
for use in the total report.  Returns the C<%results> of the test.
See L<Resul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5827	5928	
==>thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5827	5928	
==>thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5827	5928	
==>thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2092	2185	
==>zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2092	2185	
==>zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2092	2185	
==>zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Numb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14667	14815	
==>ny = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14667	14815	
==>ny = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14667	14815	
==>ny = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	403	508	
==>KE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	403	508	
==>KE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	403	508	
==>KE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24982	25200	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27171	27389	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24982	25200	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27171	27389	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24982	25200	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27171	27389	
==>$samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1515	1647	
==>sg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1515	1647	
==>sg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1515	1647	
==>sg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6134	6232	
==>]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key acc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6134	6232	
==>]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key acc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6134	6232	
==>]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key acc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9253	9406	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12226	12379	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9253	9406	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12226	12379	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9253	9406	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12226	12379	
==>ethod');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10296	10456	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7847	8007	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10296	10456	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7847	8007	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10296	10456	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7847	8007	
==>lass = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8816	8990	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11789	11963	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8816	8990	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11789	11963	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8816	8990	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11789	11963	
==>od->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2565	2683	
==>elf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2565	2683	
==>elf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2565	2683	
==>elf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($se <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1806	1912	
==>set(
        set( $self.all_superclasses, $self ).members.map:{ .get_methods }
       );
}

method all_asso <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6171	6268	
==>lit into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6171	6268	
==>lit into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	106	237	
==>1';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       ru <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	106	237	
==>1';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       ru <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	106	237	
==>1';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       ru <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	10644	10745	
==>=> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator: <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	10882	10983	
==>=> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator: <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	11074	11175	
==>=> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5894	6031	
==>'';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5894	6031	
==>'';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5894	6031	
==>'';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3564	3683	
==>elf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3564	3683	
==>elf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3564	3683	
==>elf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Ha <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8387	8542	
==>ch::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4747	4902	
==>ch::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5596	5751	
==>ch::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	230	373	
==>stance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	230	373	
==>stance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	230	373	
==>stance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18780	18939	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16018	16177	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18780	18939	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16018	16177	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18780	18939	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16018	16177	
==>the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5586	5715	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8556	8685	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5586	5715	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8556	8685	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5586	5715	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8556	8685	
==>nd
        # return the exact same sub. This results in this
        # method being passed an already blessed method 
        # in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11524	11642	
==>reak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11524	11642	
==>reak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11524	11642	
==>reak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->c <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34150	34243	
==>n.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38700	38793	
==>n.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $o <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13818	13905	
==>ts(D), { number_chars(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2364	2478	
==>6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _withou <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2276	2385	
==>6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _withou <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5413	5512	
==>th).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export { <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5413	5512	
==>th).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24081	24178	
==>erred
language into the program code itself, so it then becomes a version of that
language.  By co <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24081	24178	
==>erred
language into the program code itself, so it then becomes a version of that
language.  By co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	98	186	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	443	531	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	98	186	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	443	531	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	98	186	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	443	531	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5496	5610	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3616	3730	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5496	5610	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3616	3730	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5496	5610	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3616	3730	
==>erclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$supercla <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3122	3241	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11045	11164	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6247	6366	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3122	3241	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11045	11164	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6247	6366	
==>l.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35638	35773	
==>ead ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35638	35773	
==>ead ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35638	35773	
==>ead ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2325	2439	
==>d
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Inst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2325	2439	
==>d
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Inst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2325	2439	
==>d
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Inst <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10022	10131	
==>r order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7962	8071	
==>r order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10022	10131	
==>r order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7962	8071	
==>r order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22482	22582	
==>tementList>?
}
rule LabelledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
ru <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	447	543	
==>tended for
"general" use.  It's more of a pugs bootstrap exercise.

This code is currently comple <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11151	11248	
==>.)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8555	8652	
==>.)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11151	11248	
==>.)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8555	8652	
==>.)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<in <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19982	20071	
==>Engine::Example> is the self-contained and pure-Perl reference
implementation of an Engine <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19982	20071	
==>Engine::Example> is the self-contained and pure-Perl reference
implementation of an Engine <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19993	20114	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17132	17253	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19993	20114	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17132	17253	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19993	20114	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17132	17253	
==>with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are added to th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11646	11824	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9199	9377	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11646	11824	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9199	9377	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11646	11824	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9199	9377	
==>the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_clas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4048	4192	
==>\$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5369	5513	
==>\$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4048	4192	
==>\$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5357	5501	
==>\$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            ret <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8840	8939	
==>check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1 <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8840	8939	
==>check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21136	21365	
==>R: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21136	21365	
==>R: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21136	21365	
==>R: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10646	10792	
==>(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10646	10792	
==>(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10646	10792	
==>(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1179	1285	
==>y === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1179	1285	
==>y === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1179	1285	
==>y === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcirc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4582	4680	
==>alse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4582	4680	
==>alse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4582	4680	
==>alse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	763	862	
==>otes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	763	862	
==>otes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	763	862	
==>otes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4494	4588	
==>st::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4494	4588	
==>st::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6018	6112	
==>st::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4979	5157	
==>e};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4979	5157	
==>e};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8657	8793	
==>efix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14382	14518	
==>efix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8657	8793	
==>efix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14376	14512	
==>efix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5712	5811	
==>issing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5712	5811	
==>issing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5712	5811	
==>issing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::B <==
6	/Users/nnunley/pugs/util/addauthors.pl	1236	1333	
==>THORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  print Dum <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	11178	11270	
==>eturns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) return <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11178	11270	
==>eturns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24795	24922	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26984	27111	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24795	24922	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26984	27111	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24795	24922	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26984	27111	
==>$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->i <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7027	7160	
==>::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7491	7624	
==>::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9915	10047	
==>::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9388	9515	
==>_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operat <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9388	9515	
==>_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operat <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1700	1824	
==>::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	229	339	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	553	663	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	229	339	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	553	663	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	229	339	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	553	663	
==>ide a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVa <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5774	5949	
==>o it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($toke <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5774	5949	
==>o it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($toke <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4910	5073	
==>o it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($toke <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4910	5073	
==>o it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($toke <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	3479	3569	
==>ticularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.string <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3479	3569	
==>ticularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11952	12064	
==>}
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11952	12064	
==>}
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11952	12064	
==>}
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	437	534	
==>f;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	437	534	
==>f;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	437	534	
==>f;
$::Module     = undef;
$::EigenClass = undef;

## --------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18278	18400	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15516	15638	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18278	18400	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15516	15638	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18278	18400	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15516	15638	
==>$self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10096	10211	
==>R $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10096	10211	
==>R $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10096	10211	
==>R $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEG <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5415	5519	
==>_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5415	5519	
==>_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5415	5519	
==>_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3897	4057	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6833	6993	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3897	4057	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6833	6993	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3897	4057	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6833	6993	
==>les";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2527	2656	
==>erbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2527	2656	
==>erbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2527	2656	
==>erbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	335	431	
==>friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	335	431	
==>friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	335	431	
==>friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	21553	21685	
==>t,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4031	4145	
==>tml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4031	4145	
==>tml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4031	4145	
==>tml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']] <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4575	4674	
==>set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operati <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4575	4674	
==>set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	505	606	
==>pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	505	606	
==>pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	505	606	
==>pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28995	29088	
==>ng new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
ex <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33547	33640	
==>ng new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
ex <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32684	32777	
==>ng new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6793	6920	
==>tr . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6793	6920	
==>tr . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6793	6920	
==>tr . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12729	12851	
==>"isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31428	31523	
==>iven the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35978	36073	
==>iven the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	709	813	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	709	813	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	709	813	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	96	199	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	96	199	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	96	199	
==>onstant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9190	9315	
==>on = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number() <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1318	1435	
==>on = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number() <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1318	1435	
==>on = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	603	713	
==>ub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnd <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	603	713	
==>ub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnd <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	603	713	
==>ub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5756	5942	
==>)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\'] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5756	5942	
==>)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\'] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5756	5942	
==>)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\'] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3372	3502	
==>'current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3372	3502	
==>'current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3372	3502	
==>'current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4736	4919	
==>ll')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4736	4919	
==>ll')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4736	4919	
==>ll')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1422	1526	
==>p($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

mu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1422	1526	
==>p($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

mu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1422	1526	
==>p($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

mu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7891	7989	
==>t = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of sp <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7891	7989	
==>t = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of sp <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24988	25085	
==>mands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=h <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23752	23849	
==>mands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24988	25085	
==>mands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23752	23849	
==>mands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=h <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2944	3085	
==>y :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - c <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2944	3085	
==>y :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3532	3645	
==>remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3532	3645	
==>remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3532	3645	
==>remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disca <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	5152	5250	
==>:binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operator::pair;
use base qw/type: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5986	6120	
==>) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5986	6120	
==>) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5986	6120	
==>) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	505	605	
==>Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	505	605	
==>Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	505	605	
==>Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3628	3742	
==>6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3628	3742	
==>6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3628	3742	
==>6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1679	1772	
==>->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1679	1772	
==>->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1679	1772	
==>->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3151	3321	
==>thods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3151	3321	
==>thods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3151	3321	
==>thods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9648	9753	
==>--------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9671	9776	
==>---------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9648	9753	
==>--------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9671	9776	
==>---------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9648	9753	
==>--------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9671	9776	
==>---------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2571	2678	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3671	3778	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2571	2678	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3671	3778	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2571	2678	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3671	3778	
==>eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8768	9016	
==>ion->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8768	9016	
==>ion->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8768	9016	
==>ion->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8643	8792	
==>$h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # f <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12550	12694	
==>$h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12550	12694	
==>$h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # f <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7030	7139	
==>ee t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i] <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5531	5640	
==>ee t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i] <==
6	/Users/nnunley/pugs/util/drift.pl	803	901	
==>/DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12661	12749	
==>ict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12661	12749	
==>ict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12661	12749	
==>ict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	156	274	
==>sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	156	274	
==>sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	156	274	
==>sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]- <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	860	958	
==>Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a co <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	860	958	
==>Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	940	1038	
==>Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	74	175	
==>ntation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	42	143	
==>ntation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	74	175	
==>ntation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6251	6345	
==>rnals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6251	6345	
==>rnals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6251	6345	
==>rnals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1713	1814	
==>nd lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1713	1814	
==>nd lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1713	1814	
==>nd lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21364	21462	
==>gnore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21364	21462	
==>gnore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21364	21462	
==>gnore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11033	11143	
==>am->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11033	11143	
==>am->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11033	11143	
==>am->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16230	16332	
==>= years
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should stor <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15022	15118	
==>ent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15022	15118	
==>ent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18369	18536	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18666	18833	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18648	18815	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18945	19112	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3339	3456	
==>hod content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $ol <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3339	3456	
==>hod content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $ol <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	993	1095	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1505	1607	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	993	1095	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1505	1607	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	993	1095	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1505	1607	
==>w PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @thin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25149	25310	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27338	27499	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25149	25310	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27338	27499	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25149	25310	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27338	27499	
==>';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12573	12713	
==>:WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12573	12713	
==>:WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12573	12713	
==>:WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5003	5100	
==>_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5003	5100	
==>_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5003	5100	
==>_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17905	18098	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18836	19029	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18184	18377	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19115	19308	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	589	690	
==>iour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> ob <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	589	690	
==>iour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> ob <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5306	5408	
==>ub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2848	2950	
==>ub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3697	3799	
==>ub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20460	20557	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20460	20557	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20460	20557	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	78	178	
==>pplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	78	178	
==>pplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	78	178	
==>pplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14620	14713	
==>LTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14620	14713	
==>LTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14620	14713	
==>LTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9026	9135	
==>led subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementati <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12883	12988	
==>led subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementati <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12883	12988	
==>led subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1266	1367	
==>fix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1266	1367	
==>fix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1266	1367	
==>fix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %se <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1586	1696	
==>,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4681	4790	
==>,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4681	4790	
==>,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1295	1401	
==>ll operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1295	1401	
==>ll operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1295	1401	
==>ll operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4635	4750	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7571	7686	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4635	4750	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7571	7686	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4635	4750	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7571	7686	
==>def') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7081	7219	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10051	10189	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7081	7219	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10051	10189	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7081	7219	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10051	10189	
==>hod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	605	723	
==>pt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "infix:<" . $opt{name} . ">",
        '{ return { op => "in <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2134	2247	
==>op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2134	2247	
==>op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3857	3946	
==>-------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3857	3946	
==>-------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3857	3946	
==>-------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16582	16760	
==>1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inn <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20059	20237	
==>1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inn <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19619	19797	
==>1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inn <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2257	2348	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2257	2348	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2257	2348	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13992	14090	
==>routine is called once for each value.  The field name passed to the
callback routine has case as s <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13992	14090	
==>routine is called once for each value.  The field name passed to the
callback routine has case as s <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	25327	25421	
==>ngle script that has failing subtests statistics like the
above are printed.

=item C<Test retu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22125	22222	
==>class name, and then invoking methods on those objects.  All of
their attributes are private, so y <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9398	9495	
==>class name, and then invoking methods on those objects.  All of
their attributes are private, so y <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22125	22222	
==>class name, and then invoking methods on those objects.  All of
their attributes are private, so y <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9398	9495	
==>class name, and then invoking methods on those objects.  All of
their attributes are private, so y <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24493	24589	
==>class name, and then invoking methods on those objects.
All of their attributes are private, so y <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24493	24589	
==>class name, and then invoking methods on those objects.
All of their attributes are private, so y <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	58	170	
==>new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	58	170	
==>new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	58	170	
==>new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	1	95	
==>package PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#requir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	1	95	
==>package PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#requir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	1	95	
==>package PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6696	6792	
==>opyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redist <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6696	6792	
==>opyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redist <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6696	6792	
==>opyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14676	14767	
==>::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14676	14767	
==>::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14676	14767	
==>::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7611	7718	
==>lurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7611	7718	
==>lurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7611	7718	
==>lurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2921	3027	
==>( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test f <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2921	3027	
==>( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3001	3107	
==>( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test f <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	624	746	
==>$!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!me <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	624	746	
==>$!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8551	8650	
==>PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6) <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7231	7330	
==>rc -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8551	8650	
==>PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8551	8650	
==>PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4399	4508	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7048	7157	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4626	4733	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11075	11182	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4626	4733	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11075	11182	
==>f($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15479	15574	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12735	12830	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15479	15574	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12735	12830	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15479	15574	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12735	12830	
==>if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1102	1213	
==>cut

sub registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1165	1273	
==>S.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, V <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1165	1273	
==>S.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, V <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1165	1273	
==>S.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, V <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15039	15140	
==>rdBounds

Adds handlers for C<< < >> and C<< > >> anchors, which match at the
beginning and end of a " <==
6	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	51	150	
==>','FORCE';
# please help fill in this file
# a method of autogenrating bindings from vtable.h is NEE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7567	7723	
==>me');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7567	7723	
==>me');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7567	7723	
==>me');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1796	1903	
==>use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1796	1903	
==>use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1796	1903	
==>use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2046	2187	
==>ush @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2046	2187	
==>ush @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2046	2187	
==>ush @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	999	1100	
==>} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $tim <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	999	1100	
==>} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $tim <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	999	1100	
==>} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $tim <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16756	16863	
==>class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13177	13284	
==>class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} = <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14361	14463	
==><< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

T <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1786	1888	
==>ds) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14361	14463	
==><< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

T <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1844	1946	
==>ds) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	79	184	
==>es.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Min <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	79	184	
==>es.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Min <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	79	184	
==>es.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Min <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	645	764	
==>_str
       p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_me <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3279	3383	
==>d_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw {
    $ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3279	3383	
==>d_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw {
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5284	5388	
==>does' => $_does);
};

# our class(Role), which is also the role(Role) as well
$Role = $Class->new(
    '$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	40	136	
==>ict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	39	131	
==>ict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5725	5898	
==>s' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5725	5898	
==>s' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key! <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4350	4481	
==>? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4350	4481	
==>? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4350	4481	
==>? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10042	10149	
==>(returns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLASS" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	592	750	
==>@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	592	750	
==>@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	592	750	
==>@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1440	1538	
==>module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Intern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1440	1538	
==>module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Intern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1440	1538	
==>module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Intern <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6200	6297	
==>"$grub_uri\"",
  help   => "Remove \"$grub_local\" if you want mklivecd.pl to refetch GRUB.",
  en <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33679	33775	
==>s a Template module Member Name and usually corresponds to a
language like English or French.  Th <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33679	33775	
==>s a Template module Member Name and usually corresponds to a
language like English or French.  Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	686	773	
==>ass->superclasses([ $::Class ]);

## --------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	686	773	
==>ass->superclasses([ $::Class ]);

## --------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	686	773	
==>ass->superclasses([ $::Class ]);

## --------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7170	7304	
==>ivate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7170	7304	
==>ivate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7170	7304	
==>ivate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9209	9293	
==>);

=pod

--------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9209	9293	
==>);

=pod

--------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9209	9293	
==>);

=pod

--------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2734	2849	
==>' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'pa <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7828	7943	
==>' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'pa <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2734	2849	
==>' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'pa <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7828	7943	
==>' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'pa <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17318	17411	
==>ion methodology that is described here, and hence provides these
benefits to developers and us <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17318	17411	
==>ion methodology that is described here, and hence provides these
benefits to developers and us <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	338	449	
==>TCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	338	449	
==>TCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	338	449	
==>TCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	101	201	
==>POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	101	201	
==>POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	101	201	
==>POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	114	221	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	375	482	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	114	221	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	375	482	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	114	221	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	375	482	
==>w PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = ar <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3072	3190	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10995	11113	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6197	6315	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3072	3190	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10995	11113	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6197	6315	
==>'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14364	14476	
==>ms);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14364	14476	
==>ms);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14364	14476	
==>ms);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	269	358	
==>// http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	269	358	
==>// http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	269	358	
==>// http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // -- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2318	2447	
==>@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13436	13565	
==>fts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2318	2447	
==>@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2318	2447	
==>@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13436	13565	
==>fts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13436	13565	
==>fts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25423	25625	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27618	27820	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25423	25625	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27618	27820	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25423	25625	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27618	27820	
==>'-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Val <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1895	2024	
==>t a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't fi <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1895	2024	
==>t a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't fi <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20482	20591	
==>f $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my($name)=@_;
    return "\$${ROO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8131	8233	
==>lf = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8131	8233	
==>lf = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8131	8233	
==>lf = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	938	1066	
==>));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	938	1066	
==>));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	938	1066	
==>));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Num <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	731	850	
==>5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instea <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23168	23262	
==>glish text and they translate it, which could
produce ambiguous results or associations.  Or al <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23168	23262	
==>glish text and they translate it, which could
produce ambiguous results or associations.  Or al <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1416	1556	
==>n;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4655	4795	
==>n;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1416	1556	
==>n;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4655	4795	
==>n;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	604	696	
==>c::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DO <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	604	696	
==>c::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1665	1792	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3228	3355	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1665	1792	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3228	3355	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1665	1792	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3228	3355	
==>stigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	217	312	
==>l can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	217	312	
==>l can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	217	312	
==>l can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4854	4947	
==>er::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4854	4947	
==>er::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7051	7144	
==>er::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2356	2456	
==>f, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2356	2456	
==>f, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2356	2456	
==>f, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19584	19675	
==>$xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19584	19675	
==>$xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19584	19675	
==>$xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2840	3056	
==>$_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readli <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2840	3056	
==>$_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readli <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1012	1156	
==>nt] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1012	1156	
==>nt] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9002	9101	
==>ackage name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9002	9101	
==>ackage name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12258	12383	
==>tch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12258	12383	
==>tch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12258	12383	
==>tch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13076	13189	
==>e headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have over <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16553	16666	
==>e headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have over <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15915	16028	
==>e headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have over <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8529	8634	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8529	8634	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8529	8634	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19347	19438	
==>x0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19347	19438	
==>x0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19347	19438	
==>x0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14844	14971	
==>y->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14844	14971	
==>y->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14844	14971	
==>y->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27892	27990	
==>s.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32444	32542	
==>s.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31536	31634	
==>s.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Th <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	296	420	
==>essage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText: <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	296	420	
==>essage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText: <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4994	5108	
==>kes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11459	11570	
==>able->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11459	11570	
==>able->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11459	11570	
==>able->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10653	10785	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15194	15326	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10653	10785	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15194	15326	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10653	10785	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15194	15326	
==>e dont actually need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%: <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	7708	7854	
==>ms($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($inp <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7708	7854	
==>ms($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($inp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11286	11404	
==>push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	572	676	
==>], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die(" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	572	676	
==>], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die(" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	572	676	
==>], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2722	2825	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6420	6523	
==>arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6420	6523	
==>arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6420	6523	
==>arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2722	2825	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2722	2825	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13579	13702	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10863	10986	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13579	13702	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10863	10986	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13579	13702	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10863	10986	
==>q 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14008	14113	
==>XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14008	14113	
==>XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14008	14113	
==>XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1924	2027	
==>String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "St <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1924	2027	
==>String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "St <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1924	2027	
==>String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8023	8167	
==>tr
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch fo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8023	8167	
==>tr
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch fo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8023	8167	
==>tr
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1047	1151	
==>.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.val <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1047	1151	
==>.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.val <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1047	1151	
==>.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.val <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	878	986	
==>s = $Perl6::Run::OnPerl5::X1::BB::pugs_args || "";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3351	3457	
==>ion's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6828	6934	
==>ion's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5785	5891	
==>ion's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappin <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15596	15688	
==>hashes,
which contain the mapping from all characters to the corresponding entities
(and vice <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15596	15688	
==>hashes,
which contain the mapping from all characters to the corresponding entities
(and vice <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18515	18670	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15753	15908	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18515	18670	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15753	15908	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18515	18670	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15753	15908	
==>ance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10398	10586	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7949	8137	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10398	10586	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7949	8137	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10398	10586	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7949	8137	
==>current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2678	2797	
==>_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2678	2797	
==>_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2678	2797	
==>_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23516	23632	
==>IR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	552	647	
==>rict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	552	647	
==>rict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	552	647	
==>rict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1320	1414	
==>t Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1320	1414	
==>t Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4024	4159	
==>s' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4024	4159	
==>s' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4024	4159	
==>s' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4680	4790	
==>paque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4680	4790	
==>paque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4680	4790	
==>paque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	59	169	
==>xup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	59	169	
==>xup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	59	169	
==>xup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4057	4161	
==>n = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4057	4161	
==>n = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4057	4161	
==>n = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1098	1215	
==>_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1098	1215	
==>_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1098	1215	
==>_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1728	1840	
==>ment.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrol <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1728	1840	
==>ment.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrol <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1728	1840	
==>ment.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrol <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49844	50079	
==>'opaque'),
                              symbol->new('?$authority' => 'str'),
                          ),
                returns => 'str'
            ),            
            sub {
                my $e = shift;
                $e-> <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	874	1074	
==>altime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

mul <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	874	1074	
==>altime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34804	34912	
==>l );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34804	34912	
==>l );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34804	34912	
==>l );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4709	4844	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2896	3031	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4709	4844	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2896	3031	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4709	4844	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2896	3031	
==>isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	714	822	
==>unction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	714	822	
==>unction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	714	822	
==>unction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	835	935	
==>L2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autode <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	835	935	
==>L2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autode <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	835	935	
==>L2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autode <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7799	7904	
==>taModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7799	7904	
==>taModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7799	7904	
==>taModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1120	1218	
==>rts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New me <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1120	1218	
==>rts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New me <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1120	1218	
==>rts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9802	9919	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7351	7468	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9802	9919	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7351	7468	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9802	9919	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7351	7468	
==>e_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10596	10761	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8147	8312	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10596	10761	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8147	8312	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10596	10761	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8147	8312	
==>the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19171	19277	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16409	16515	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19171	19277	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16409	16515	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19171	19277	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16409	16515	
==>hough, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$l <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17415	17530	
==>cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17415	17530	
==>cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4417	4522	
==>le { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4417	4522	
==>le { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4417	4522	
==>le { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[ <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	3218	3317	
==>-f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not locate (syn/S12.pod). S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	752	890	
==>en eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	752	890	
==>en eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	752	890	
==>en eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->e <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23279	23370	
==>y> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41203	41294	
==>y> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37229	37320	
==>y> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14562	14671	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11822	11931	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14562	14671	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11822	11931	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14562	14671	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11822	11931	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3786	3891	
==>: $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3786	3891	
==>: $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3786	3891	
==>: $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subst <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29692	29789	
==>ute are the same as those of another,
or are the same as the unaffected invocant's attributes.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34244	34341	
==>ute are the same as those of another,
or are the same as the unaffected invocant's attributes.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33408	33505	
==>ute are the same as those of another,
or are the same as the unaffected invocant's attributes.  Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9650	9762	
==>------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9673	9785	
==>-------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9650	9762	
==>------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9673	9785	
==>-------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9650	9762	
==>------------------------------      
    method collect_all_roles () { "<implemented>" }  

    # --------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9673	9785	
==>-------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1792	1923	
==>to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1792	1923	
==>to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1792	1923	
==>to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19419	19508	
==>_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19419	19508	
==>_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19419	19508	
==>_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7723	7839	
==>or $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7723	7839	
==>or $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7723	7839	
==>or $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2090	2197	
==>plit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2090	2197	
==>plit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2090	2197	
==>plit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{' <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1435	1556	
==>it - i ought to read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscript <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6272	6391	
==>b as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6272	6391	
==>b as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6272	6391	
==>b as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1523	1615	
==>upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@fi <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1523	1615	
==>upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5390	5519	
==>{
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5390	5519	
==>{
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5390	5519	
==>{
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2015	2125	
==>y defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2015	2125	
==>y defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2015	2125	
==>y defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	652	781	
==>y $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	652	781	
==>y $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	652	781	
==>y $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10221	10318	
==>IL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10221	10318	
==>IL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10221	10318	
==>IL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37804	37931	
==>);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37804	37931	
==>);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37804	37931	
==>);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6922	7029	
==>p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6922	7029	
==>p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6922	7029	
==>p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5555	5715	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8839	8999	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5555	5715	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8839	8999	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5555	5715	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8839	8999	
==>},
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3802	3909	
==>rn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3802	3909	
==>rn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3802	3909	
==>rn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2168	2270	
==>global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2168	2270	
==>global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2168	2270	
==>global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31840	31967	
==>t );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31840	31967	
==>t );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31840	31967	
==>t );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1132	1228	
==>"infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1132	1228	
==>"infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1132	1228	
==>"infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1796	1896	
==>);
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1796	1896	
==>);
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1796	1896	
==>);
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4385	4483	
==>onstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.reso <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4385	4483	
==>onstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.reso <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4385	4483	
==>onstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.reso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9603	9713	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12576	12686	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9603	9713	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12576	12686	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9603	9713	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12576	12686	
==>hod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6052	6184	
==>s;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6052	6184	
==>s;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6052	6184	
==>s;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13944	14061	
==>rams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13944	14061	
==>rams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13944	14061	
==>rams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24497	24612	
==>eturn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24497	24612	
==>eturn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24497	24612	
==>eturn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6924	7023	
==>slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6924	7023	
==>slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6924	7023	
==>slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16464	16594	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21181	21311	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16464	16594	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21181	21311	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16464	16594	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21181	21311	
==>all;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4471	4603	
==>her = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4471	4603	
==>her = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4471	4603	
==>her = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	61	164	
==>ation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implem <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	61	164	
==>ation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implem <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	61	164	
==>ation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implem <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18007	18126	
==>,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17045	17164	
==>,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18007	18126	
==>,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17045	17164	
==>,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4119	4220	
==>ay default
to 1 if not given.

The value for day can also be the string "last", in which case the
obje <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4119	4220	
==>ay default
to 1 if not given.

The value for day can also be the string "last", in which case the
obje <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1437	1573	
==>pty == $bit::TRUE;    
        
    push @classes => $supers->to_native;    
        
    foreach my $class (@classes) {
        my $meth <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11072	11177	
==>s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11072	11177	
==>s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	926	1043	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1014	1131	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	926	1043	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1014	1131	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	926	1043	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1014	1131	
==>/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	186	298	
==>.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	186	298	
==>.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	186	298	
==>.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3857	3956	
==>OP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3857	3956	
==>OP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3857	3956	
==>OP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33799	33934	
==>ue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33799	33934	
==>ue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33799	33934	
==>ue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12765	12878	
==>al with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12765	12878	
==>al with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12765	12878	
==>al with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16261	16396	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20978	21113	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16261	16396	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20978	21113	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16261	16396	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20978	21113	
==>ds::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5466	5601	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3586	3721	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5466	5601	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3586	3721	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5466	5601	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3586	3721	
==>confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13950	14092	
==>[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13950	14092	
==>[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13950	14092	
==>[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2658	2800	
==>[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	746	871	
==>ethod param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $d <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	746	871	
==>ethod param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6893	7020	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9863	9990	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6893	7020	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9863	9990	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6893	7020	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9863	9990	
==>hod && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the priv <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	278	384	
==>odule::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_arg <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	179	285	
==>odule::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_arg <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23101	23196	
==>ode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nicknam <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21910	22005	
==>ode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nicknam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23101	23196	
==>ode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nicknam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21910	22005	
==>ode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nicknam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8556	8700	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11529	11673	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8556	8700	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11529	11673	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8556	8700	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11529	11673	
==>k to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # call <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3859	3960	
==>a("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ari <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3859	3960	
==>a("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ari <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3859	3960	
==>a("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ari <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8366	8466	
==>f = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8366	8466	
==>f = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8366	8466	
==>f = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLI <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	610	743	
==>t @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	610	743	
==>t @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24818	24916	
==>t IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:flo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23582	23680	
==>t IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:flo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24818	24916	
==>t IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:flo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23582	23680	
==>t IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:flo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25594	25683	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27789	27878	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25594	25683	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27789	27878	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25594	25683	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27789	27878	
==>f->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6073	6197	
==>->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6073	6197	
==>->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6073	6197	
==>->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4671	4772	
==>ag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4671	4772	
==>ag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4671	4772	
==>ag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8735	8847	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6288	6400	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8735	8847	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6288	6400	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8735	8847	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6288	6400	
==>p { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supercl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4339	4460	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6851	6972	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4339	4460	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6851	6972	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4339	4460	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6851	6972	
==>($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	663	780	
==>for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	663	780	
==>for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	663	780	
==>for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8179	8293	
==>rr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8179	8293	
==>rr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8179	8293	
==>rr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var bac <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11650	11842	
==><<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7932	8124	
==><<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8766	8958	
==><<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src = <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4303	4396	
==>over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4303	4396	
==>over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Test <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5827	5920	
==>over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Test <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9279	9388	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9472	9581	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	17	127	
==>ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descript <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	17	127	
==>ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descript <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	17	127	
==>ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descript <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	49	141	
==>Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	49	141	
==>Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	49	141	
==>Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36862	36979	
==>:numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36862	36979	
==>:numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36862	36979	
==>:numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized valu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32077	32175	
==>same heading
and whose body contains all of the tuples that are in either or both of the
invocant R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36627	36725	
==>same heading
and whose body contains all of the tuples that are in either or both of the
invocant R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35908	36006	
==>same heading
and whose body contains all of the tuples that are in either or both of the
invocant R <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11523	11645	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2517	2639	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7611	7733	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11523	11645	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2517	2639	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7611	7733	
==>$?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1748	1868	
==>ize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1748	1868	
==>ize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1748	1868	
==>ize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3223	3317	
==>plemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intab <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3223	3317	
==>plemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intab <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3223	3317	
==>plemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9520	9712	
==>], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9520	9712	
==>], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9520	9712	
==>], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8884	8990	
==>tf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8884	8990	
==>tf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8884	8990	
==>tf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3340	3453	
==>a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUIL <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3340	3453	
==>a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUIL <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3340	3453	
==>a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1139	1251	
==>>{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1139	1251	
==>>{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1139	1251	
==>>{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7120	7233	
==>n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7120	7233	
==>n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7120	7233	
==>n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	196	292	
==>p pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	196	292	
==>p pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	196	292	
==>p pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5457	5574	
==>},
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5457	5574	
==>},
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5457	5574	
==>},
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	9	107	
==>lass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	9	107	
==>lass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	9	107	
==>lass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BU <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6875	6981	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6005	6111	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2659	2765	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2659	2765	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6875	6981	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6005	6111	
==>> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2066	2178	
==>, @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2066	2178	
==>, @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2066	2178	
==>, @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	374	473	
==>ar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	374	473	
==>ar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	374	473	
==>ar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	636	842	
==>function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	636	842	
==>function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	636	842	
==>function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13626	13717	
==>iX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13626	13717	
==>iX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13626	13717	
==>iX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::pr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16120	16312	
==>::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16399	16591	
==>::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10461	10605	
==>::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10740	10884	
==>::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1: <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	497	598	
==>dren;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	497	598	
==>dren;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	434	585	
==>y @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	434	585	
==>y @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20326	20441	
==>q 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20326	20441	
==>q 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20326	20441	
==>q 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    us <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	27	126	
==>le--Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12984	13111	
==>]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12984	13111	
==>]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12984	13111	
==>]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7561	7652	
==>params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7561	7652	
==>params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7561	7652	
==>params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1541	1639	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1541	1639	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1541	1639	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	382	476	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	382	476	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	382	476	
==>ot ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2862	3094	
==>ject';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2862	3094	
==>ject';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2862	3094	
==>ject';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2804	2900	
==>mber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2804	2900	
==>mber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2804	2900	
==>mber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11051	11172	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8604	8725	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11051	11172	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8604	8725	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11051	11172	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8604	8725	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8168	8271	
==>trol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8168	8271	
==>trol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8168	8271	
==>trol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	386	478	
==>2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	386	478	
==>2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	386	478	
==>2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9248	9379	
==>tion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9248	9379	
==>tion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9248	9379	
==>tion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6500	6619	
==>@res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6500	6619	
==>@res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6500	6619	
==>@res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18302	18432	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15540	15670	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18302	18432	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15540	15670	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18302	18432	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15540	15670	
==>>{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # che <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	438	555	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	431	548	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	438	555	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	431	548	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	438	555	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	431	548	
==>S}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10002	10123	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7553	7674	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10002	10123	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7553	7674	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10002	10123	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7553	7674	
==>e_method(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	129	238	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	129	238	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	129	238	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1045	1132	
==>},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1045	1132	
==>},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1045	1132	
==>},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1522	1663	
==>oot . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Roo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	217	336	
==>ce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	211	330	
==>ce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	217	336	
==>ce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	211	330	
==>ce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24927	25045	
==>ift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($class, $rx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13290	13418	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13290	13418	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13290	13418	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_c <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2175	2303	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_c <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23731	23822	
==>:Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Ros <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23731	23822	
==>:Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Ros <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14780	14884	
==>if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use const <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14780	14884	
==>if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use const <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14780	14884	
==>if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use const <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8673	8768	
==>S->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8673	8768	
==>S->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8673	8768	
==>S->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4522	4611	
==>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4522	4611	
==>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4522	4611	
==>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2589	2675	
==>:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_lis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2589	2675	
==>:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_lis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2589	2675	
==>:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_lis <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9810	9919	
==>thmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7750	7859	
==>thmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9810	9919	
==>thmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7750	7859	
==>thmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39280	39374	
==>::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darre <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39280	39374	
==>::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2603	2719	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2603	2719	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2603	2719	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4942	5055	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4942	5055	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4942	5055	
==>->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11383	11500	
==>Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11383	11500	
==>Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11383	11500	
==>Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20322	20431	
==>0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20322	20431	
==>0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20322	20431	
==>0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4982	5087	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3210	3315	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4982	5087	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3210	3315	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4982	5087	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3210	3315	
==>{ 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3079	3192	
==>nt is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3079	3192	
==>nt is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3079	3192	
==>nt is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3594	3691	
==>ow, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shoul <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3594	3691	
==>ow, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shoul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3674	3771	
==>ow, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shoul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16392	16524	
==>=~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16392	16524	
==>=~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16392	16524	
==>=~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7625	7754	
==>);
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7625	7754	
==>);
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7625	7754	
==>);
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8262	8403	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5821	5962	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8262	8403	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5821	5962	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8262	8403	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5821	5962	
==>e head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2480	2613	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4807	4940	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2480	2613	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4807	4940	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2480	2613	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4807	4940	
==>sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for t <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1667	1833	
==>lass, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { bo <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1667	1833	
==>lass, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { bo <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6542	6641	
==>ulti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# seve <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5672	5771	
==>ulti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# seve <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6542	6641	
==>ulti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# seve <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5672	5771	
==>ulti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# seve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9724	9845	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12697	12818	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9724	9845	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12697	12818	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9724	9845	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12697	12818	
==>r
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2816	2918	
==>d_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2816	2918	
==>d_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2816	2918	
==>d_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->clas <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	102	198	
==>sign docs (optional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (s <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	58	152	
==>ERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	58	152	
==>ERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5124	5284	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8094	8254	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5124	5284	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8094	8254	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5124	5284	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8094	8254	
==>AGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1742	1910	
==>())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1742	1910	
==>())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1742	1910	
==>())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22724	22860	
==>ta => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{di <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23226	23362	
==>ta => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{di <==
6	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	395	520	
==>compile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	306	431	
==>_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	306	431	
==>_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	306	431	
==>_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15933	16051	
==>... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15933	16051	
==>... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15933	16051	
==>... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9327	9435	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6874	6982	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9327	9435	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6874	6982	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9327	9435	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6874	6982	
==>elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($ord <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19367	19536	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19367	19536	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19367	19536	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10534	10618	
==>alar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10534	10618	
==>alar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10534	10618	
==>alar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7159	7284	
==>ispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7159	7284	
==>ispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7159	7284	
==>ispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4100	4206	
==>[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4100	4206	
==>[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4100	4206	
==>[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  s <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3997	4096	
==>t',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17904	17999	
==>ke 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17904	17999	
==>ke 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	687	774	
==>mplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	687	774	
==>mplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	687	774	
==>mplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16577	16679	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21294	21396	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16577	16679	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21294	21396	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16577	16679	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21294	21396	
==>l DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	845	1002	
==>bc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3916	4073	
==>bc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	845	1002	
==>bc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3916	4073	
==>bc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1472	1619	
==>bc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1472	1619	
==>bc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15567	15673	
==>ndef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15567	15673	
==>ndef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15567	15673	
==>ndef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5541	5641	
==>$things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5541	5641	
==>$things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5541	5641	
==>$things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	536	680	
==>> {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.output')} $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14056	14186	
==>f;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14056	14186	
==>f;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14056	14186	
==>f;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6318	6448	
==>f;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4820	4950	
==>f;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	2067	2192	
==>rfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Config <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14825	14939	
==>6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14825	14939	
==>6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14825	14939	
==>6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2024	2120	
==>ader ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defin <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2024	2120	
==>ader ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defin <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12810	12920	
==>ld this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method n <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12810	12920	
==>ld this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39391	39484	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTe <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5126	5219	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTe <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39391	39484	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTe <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5126	5219	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedTe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1494	1590	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1494	1590	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1494	1590	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	335	429	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	335	429	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	335	429	
==>nd $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1604	1727	
==>| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      docu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1604	1727	
==>| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      docu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1604	1727	
==>| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      docu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5211	5311	
==>e JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5211	5311	
==>e JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5211	5311	
==>e JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6268	6357	
==>ted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(er <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6268	6357	
==>ted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(er <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6268	6357	
==>ted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(er <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16631	16761	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13836	13966	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16631	16761	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13836	13966	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16631	16761	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13836	13966	
==>(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1152	1277	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1152	1277	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1152	1277	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6281	6366	
==>--------------------------------------------------------------------
## Module

$::Mod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6281	6366	
==>--------------------------------------------------------------------
## Module

$::Mod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6281	6366	
==>--------------------------------------------------------------------
## Module

$::Mod <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22107	22215	
==>n the
appropriate class name, and then invoking methods on those objects.  All of
their attributes are privat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9380	9488	
==>n the
appropriate class name, and then invoking methods on those objects.  All of
their attributes are privat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22107	22215	
==>n the
appropriate class name, and then invoking methods on those objects.  All of
their attributes are privat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9380	9488	
==>n the
appropriate class name, and then invoking methods on those objects.  All of
their attributes are privat <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24475	24582	
==>n
the appropriate class name, and then invoking methods on those objects.
All of their attributes are privat <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24475	24582	
==>n
the appropriate class name, and then invoking methods on those objects.
All of their attributes are privat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	822	937	
==>>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	822	937	
==>>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	822	937	
==>>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3630	3726	
==>ng $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3630	3726	
==>ng $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3630	3726	
==>ng $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3218	3322	
==>dge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3218	3322	
==>dge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3218	3322	
==>dge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4300	4413	
==>join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5621	5734	
==>join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4300	4413	
==>join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5609	5722	
==>join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	676	786	
==>seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	676	786	
==>seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	739	861	
==>mts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	739	861	
==>mts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	739	861	
==>mts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	491	591	
==>L::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	491	591	
==>L::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	491	591	
==>L::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24119	24251	
==>if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24119	24251	
==>if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24119	24251	
==>if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(define <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1653	1736	
==>tests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs} <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3614	3697	
==>tests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs} <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1653	1736	
==>tests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3662	3766	
==>t destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3662	3766	
==>t destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3662	3766	
==>t destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15653	15754	
==>. " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15653	15754	
==>. " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15653	15754	
==>. " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6721	6829	
==>ed";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6721	6829	
==>ed";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10121	10222	
==>OPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Valu <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10121	10222	
==>OPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13002	13089	
==>bes the same-number versions of Locale::KeyedText::Message
("Message") and Locale::Keyed <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13002	13089	
==>bes the same-number versions of Locale::KeyedText::Message
("Message") and Locale::Keyed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1846	1964	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3409	3527	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1846	1964	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3409	3527	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1846	1964	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3409	3527	
==>h are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # obj <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9892	10005	
==>_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15733	15846	
==>_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9892	10005	
==>_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15727	15840	
==>_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33062	33161	
==>list of one or more elements where
each element is a Template module Set Name.  When we have to tran <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33062	33161	
==>list of one or more elements where
each element is a Template module Set Name.  When we have to tran <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24105	24240	
==>p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24105	24240	
==>p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24105	24240	
==>p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5982	6114	
==>\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5982	6114	
==>\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5982	6114	
==>\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	18075	18298	
==>apping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21552	21775	
==>apping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21139	21362	
==>apping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3405	3597	
==>unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3405	3597	
==>unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3405	3597	
==>unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19850	19950	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16989	17089	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19850	19950	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16989	17089	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19850	19950	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16989	17089	
==>.     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2101	2252	
==>|| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2101	2252	
==>|| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2101	2252	
==>|| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	441	537	
==>ay = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	441	537	
==>ay = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	441	537	
==>ay = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20688	20788	
==>might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' in <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20688	20788	
==>might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' in <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23864	23963	
==>SG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applie <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22637	22736	
==>SG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applie <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23864	23963	
==>SG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applie <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22637	22736	
==>SG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4779	4932	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7715	7868	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4779	4932	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7715	7868	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4779	4932	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7715	7868	
==>ethod with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	110	212	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	371	473	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	110	212	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	371	473	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	110	212	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	371	473	
==>('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8612	8719	
==>ect>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8612	8719	
==>ect>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	67	169	
==>ck on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	67	169	
==>ck on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	67	169	
==>ck on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	19123	19216	
==>ist::shift(@array) };
multi shift ($array) is builtin is primitive { die "Cannot 'shift' scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16397	16539	
==>ount = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16397	16539	
==>ount = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16397	16539	
==>ount = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6826	6932	
==>rn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6826	6932	
==>rn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6826	6932	
==>rn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14825	14972	
==>:concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15104	15251	
==>:concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         rule <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5752	5849	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4882	4979	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5752	5849	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4882	4979	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6006	6138	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8976	9108	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6006	6138	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8976	9108	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6006	6138	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8976	9108	
==>od || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9606	9725	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7153	7272	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9606	9725	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7153	7272	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9606	9725	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7153	7272	
==>dant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3459	3560	
==>sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3459	3560	
==>sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3459	3560	
==>sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4124	4223	
==>am->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4124	4223	
==>am->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4714	4813	
==>am->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9984	10117	
==>ox.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9984	10117	
==>ox.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9984	10117	
==>ox.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4750	4848	
==>e "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4750	4848	
==>e "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4750	4848	
==>e "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16710	16820	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13915	14025	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16710	16820	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13915	14025	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16710	16820	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13915	14025	
==>xt->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11307	11487	
==>.
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$matc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7589	7769	
==>.
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8423	8603	
==>.
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37377	37474	
==>, and added an argument to the constructor.  The
argument is a true or false value determining whe <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16289	16382	
==>lications and packages that empowers single binaries to support N
locales or user types simult <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16289	16382	
==>lications and packages that empowers single binaries to support N
locales or user types simult <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8544	8731	
==>$fh> ) {
            chomp;
            msg("Removing file '$_'", 1);
            -e $_ && system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4990	5101	
==>e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4990	5101	
==>e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4990	5101	
==>e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3980	4090	
==>y $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4197	4307	
==>y $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19929	20061	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17068	17200	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19929	20061	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17068	17200	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19929	20061	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17068	17200	
==>Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attributes are just package sco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5005	5107	
==>{
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5005	5107	
==>{
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5005	5107	
==>{
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3019	3116	
==>IL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3019	3116	
==>IL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3019	3116	
==>IL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	916	1060	
==>n' => {
    is => [ $::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28926	29047	
==>e!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESUL <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28926	29047	
==>e!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESUL <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	289	398	
==>e!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESUL <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20446	20541	
==>lation.  There are some application where this is not
appropriate.  Prefixing field names with ' <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20446	20541	
==>lation.  There are some application where this is not
appropriate.  Prefixing field names with ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8296	8409	
==>r undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	454	567	
==>r undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	686	796	
==>r undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8017	8127	
==>r undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	432	542	
==>r undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	686	796	
==>r undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2895	2990	
==>self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringif <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2895	2990	
==>self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringif <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6155	6249	
==>(Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8223	8317	
==>(Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6155	6249	
==>(Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8223	8317	
==>(Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4245	4356	
==>', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4245	4356	
==>', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1095	1206	
==>', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	610	712	
==>want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	610	712	
==>want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	610	712	
==>want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	243	360	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	567	684	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	243	360	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	567	684	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	243	360	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	567	684	
==>ne!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	610	711	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1130	1231	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	610	711	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1130	1231	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	610	711	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1130	1231	
==>f is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2265	2386	
==>hould return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

S <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2265	2386	
==>hould return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

S <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2857	2953	
==>f authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3014	3110	
==>f authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2857	2953	
==>f authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3014	3110	
==>f authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3344	3521	
==>oxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3344	3521	
==>oxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3344	3521	
==>oxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4042	4156	
==>.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4042	4156	
==>.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4042	4156	
==>.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	10	436	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15523	15633	
==>), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16938	17048	
==>), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21694	21804	
==>), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4289	4398	
==>ic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4289	4398	
==>ic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event< <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1668	1756	
==>table->addToken("term:<[", "term:", "nows", &parse_enumclass);
    $optable->addToken("te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37188	37345	
==>a( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37188	37345	
==>a( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37188	37345	
==>a( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22004	22139	
==>) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22004	22139	
==>) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22004	22139	
==>) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6561	6674	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9531	9644	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6561	6674	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9531	9644	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6561	6674	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9531	9644	
==>ess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6629	6767	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9078	9216	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6629	6767	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9078	9216	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6629	6767	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9078	9216	
==>t;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	193	293	
==>um/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pars <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	193	293	
==>um/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pars <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	193	293	
==>um/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pars <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1527	1624	
==>blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1527	1624	
==>blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1527	1624	
==>blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1880	1979	
==>ate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1880	1979	
==>ate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1880	1979	
==>ate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29423	29518	
==>to other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33975	34070	
==>to other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33139	33234	
==>to other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18475	18575	
==>xample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18671	18771	
==>xample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18885	18985	
==>xample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19087	19187	
==>xample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19422	19522	
==>xample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3551	3649	
==>e Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5395	5588	
==>)
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5395	5588	
==>)
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5395	5588	
==>)
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4008	4107	
==>n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4008	4107	
==>n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4008	4107	
==>n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20748	20842	
==>MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20748	20842	
==>MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20748	20842	
==>MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infi <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2367	2637	
==>DE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2367	2637	
==>DE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7144	7296	
==>ls.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of p <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7144	7296	
==>ls.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of p <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	359	462	
==>*.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = . <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	359	462	
==>*.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2849	2950	
==>{
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2849	2950	
==>{
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2849	2950	
==>{
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	642	733	
==>ef $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	642	733	
==>ef $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	642	733	
==>ef $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13066	13202	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13066	13202	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13066	13202	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5306	5442	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3806	3942	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1951	2087	
==>if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now read <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5357	5455	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4487	4585	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5357	5455	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4487	4585	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	3129	3223	
==>method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $oth <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3129	3223	
==>method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $oth <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6363	6468	
==>tion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modif <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5436	5541	
==>tion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modif <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6363	6468	
==>tion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modif <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5436	5541	
==>tion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modif <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5795	5889	
==>od", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, i <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5795	5889	
==>od", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10162	10286	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12803	12927	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13639	13763	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16280	16404	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12920	13044	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15642	15766	
==>ELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src intersectio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1394	1505	
==>lessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1394	1505	
==>lessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1394	1505	
==>lessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @ <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7985	8082	
==>]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html P <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3517	3610	
==>he Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3517	3610	
==>he Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14994	15108	
==>= @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14994	15108	
==>= @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14994	15108	
==>= @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	64	172	
==>cts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	64	172	
==>cts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	64	172	
==>cts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1834	1941	
==>role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1834	1941	
==>role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1834	1941	
==>role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_na <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	324	412	
==>_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	324	412	
==>_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	321	406	
==>_name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13395	13507	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10679	10791	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13395	13507	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10679	10791	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13395	13507	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10679	10791	
==>e_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3409	3575	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6345	6511	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3409	3575	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6345	6511	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3409	3575	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6345	6511	
==>return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13661	13810	
==>$source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $matc <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13661	13810	
==>$source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $matc <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22108	22199	
==>for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (vari <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20989	21080	
==>for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (vari <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22108	22199	
==>for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (vari <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20989	21080	
==>for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (vari <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	706	841	
==>ro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	706	841	
==>ro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	706	841	
==>ro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5102	5199	
==>_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5102	5199	
==>_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5102	5199	
==>_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9072	9237	
==>my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9072	9237	
==>my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9072	9237	
==>my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            r <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9999	10126	
==>, { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9999	10126	
==>, { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	3071	3189	
==>ude or die "open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the inlined mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3041	3151	
==>body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3041	3151	
==>body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3041	3151	
==>body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8032	8138	
==>l6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8032	8138	
==>l6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8032	8138	
==>l6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4144	4257	
==>ram->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $b <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4144	4257	
==>ram->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $b <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4734	4847	
==>ram->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1555	1648	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1555	1648	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1555	1648	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { jo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1977	2168	
==>') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thing <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1977	2168	
==>') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thing <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1977	2168	
==>') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11957	12044	
==>s::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11957	12044	
==>s::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11957	12044	
==>s::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6017	6172	
==>must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6017	6172	
==>must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6017	6172	
==>must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4848	4998	
==>$self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4848	4998	
==>$self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4848	4998	
==>$self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	372	490	
==>ode      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	372	490	
==>ode      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	372	490	
==>ode      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14753	14863	
==>ance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14753	14863	
==>ance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14753	14863	
==>ance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5871	5984	
==>6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5871	5984	
==>6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5871	5984	
==>6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4874	4967	
==>f Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4874	4967	
==>f Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4874	4967	
==>f Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20464	20590	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17603	17729	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20464	20590	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17603	17729	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20464	20590	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17603	17729	
==>point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6772	6892	
==>tch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6772	6892	
==>tch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6772	6892	
==>tch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new P <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35841	35941	
==>Types: tail (C<)> when not in C<(...>)

Omitted

=head2 ref

Family: ref

Types: ref1, ref2 .. refN ( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4485	4579	
==>hive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in you <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4485	4579	
==>hive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in you <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11814	12069	
==>$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11814	12069	
==>$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11814	12069	
==>$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17528	17670	
==>confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17528	17670	
==>confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17528	17670	
==>confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                n <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13446	13596	
==>f (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3595	3729	
==>f (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3595	3729	
==>f (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3595	3729	
==>f (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2929	3051	
==>while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @t <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2929	3051	
==>while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6407	6511	
==>unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6407	6511	
==>unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6407	6511	
==>unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21570	21659	
==>head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21570	21659	
==>head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9129	9258	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12102	12231	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9129	9258	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12102	12231	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9129	9258	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12102	12231	
==>'Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	687	820	
==>-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$out <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	687	820	
==>-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$out <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	687	820	
==>-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$out <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7168	7259	
==>:Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7168	7259	
==>:Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7168	7259	
==>:Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->nam <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2325	2587	
==>dy,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5802	6064	
==>dy,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4732	4994	
==>dy,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set o <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2116	2225	
==>le('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

Th <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2116	2225	
==>le('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5867	5973	
==>:hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Gramm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21441	21584	
==>fined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21441	21584	
==>fined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21441	21584	
==>fined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8005	8114	
==>pe\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8005	8114	
==>pe\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8005	8114	
==>pe\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# R <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1324	1437	
==>= ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<S <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	344	457	
==>= ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<S <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8800	8913	
==>= ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6166	6259	
==>n str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6166	6259	
==>n str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6166	6259	
==>n str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25640	25752	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27835	27947	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25640	25752	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27835	27947	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25640	25752	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27835	27947	
==>elf->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	961	1071	
==>h Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4439	4549	
==>h Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of th <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	5030	5132	
==>or @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for(keys %$files) { handle_t_file( ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3441	3539	
==>@args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3441	3539	
==>@args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3441	3539	
==>@args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2230	2431	
==>s_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutabl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5707	5908	
==>s_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutabl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4637	4838	
==>s_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17338	17531	
==>'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17338	17531	
==>'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17338	17531	
==>'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6790	6916	
==>header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.he <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6790	6916	
==>header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.he <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2682	2802	
==>f 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or di <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3146	3266	
==>f 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or di <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12094	12186	
==><$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12094	12186	
==><$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15771	15897	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13021	13147	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15771	15897	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13021	13147	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15771	15897	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13021	13147	
==>params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14460	14613	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14460	14613	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14460	14613	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7046	7179	
==>r = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy}, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7046	7179	
==>r = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy}, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7046	7179	
==>r = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy}, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4774	4905	
==>ta} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{dat <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13199	13330	
==>ta} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{dat <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15810	15941	
==>ta} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{dat <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17298	17429	
==>ta} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{dat <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21981	22112	
==>ta} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{dat <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6866	6952	
==>inder = Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::Objec <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5397	5672	
==>} )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method un <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8874	9149	
==>} )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method un <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1181	1302	
==>eps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are p <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	741	862	
==>eps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are p <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	187	293	
==>and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.po <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	187	293	
==>and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	670	820	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	758	908	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	670	820	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	758	908	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	670	820	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	758	908	
==>@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2304	2433	
==>l} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9076	9205	
==>l} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2304	2433	
==>l} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9076	9205	
==>l} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	287	384	
==>::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DE <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	287	384	
==>::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DE <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26085	26251	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10743	10908	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38715	38880	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39242	39407	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2956	3059	
==>bject(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	987	1090	
==>bject(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14602	14727	
==>$i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14602	14727	
==>$i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14602	14727	
==>$i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6888	7013	
==>$i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5392	5517	
==>$i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21620	21715	
==>fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_m <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	697	812	
==>te_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This modul <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	697	812	
==>te_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This modul <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11524	11617	
==><$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8671	8764	
==><$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11524	11617	
==><$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8671	8764	
==><$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14951	15069	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12205	12323	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14951	15069	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12205	12323	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14951	15069	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12205	12323	
==>";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::o <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6106	6212	
==>ex);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuffici <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6106	6212	
==>ex);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuffici <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6157	6253	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5287	5383	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6157	6253	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5287	5383	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7526	7623	
==>---------------------------------------------
## END BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7549	7646	
==>----------------------
## END BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7526	7623	
==>---------------------------------------------
## END BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7549	7646	
==>----------------------
## END BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7526	7623	
==>---------------------------------------------
## END BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7549	7646	
==>----------------------
## END BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3580	3697	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6516	6633	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3580	3697	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6516	6633	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3580	3697	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6516	6633	
==>ve method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1792	1886	
==>} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11850	11944	
==>all conform to the Role interface/API they are 
interchangable with one another, classes and Ro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1792	1886	
==>} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1792	1886	
==>} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11850	11944	
==>all conform to the Role interface/API they are 
interchangable with one another, classes and Ro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11850	11944	
==>all conform to the Role interface/API they are 
interchangable with one another, classes and Ro <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2699	2805	
==>now our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$server <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2699	2805	
==>now our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$server <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	2968	3072	
==>ld_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_co <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4230	4334	
==>ld_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_co <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2968	3072	
==>ld_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_co <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4230	4334	
==>ld_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15804	15909	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13054	13159	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15804	15909	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13054	13159	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15804	15909	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13054	13159	
==>)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10548	10745	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8099	8296	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10548	10745	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8099	8296	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10548	10745	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8099	8296	
==>op @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispat <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1333	1496	
==>$current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # ot <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1333	1496	
==>$current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # ot <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27115	27232	
==>KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27115	27232	
==>KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2400	2516	
==>le( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2400	2516	
==>le( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1761	1849	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Littl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1761	1849	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Littl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4840	4950	
==>l(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4840	4950	
==>l(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4840	4950	
==>l(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6564	6671	
==>meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6564	6671	
==>meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6564	6671	
==>meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3346	3464	
==>reating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3346	3464	
==>reating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3346	3464	
==>reating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7614	7705	
==>----------------------------------------------------------------

## NOTE:
## we want to pre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7614	7705	
==>----------------------------------------------------------------

## NOTE:
## we want to pre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7614	7705	
==>----------------------------------------------------------------

## NOTE:
## we want to pre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1838	1969	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	950	1081	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1838	1969	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	950	1081	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1838	1969	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	950	1081	
==>params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	440	533	
==>bose|v --touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_output();

inline(), <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	69	161	
==>"processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Per <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	69	161	
==>"processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9932	10022	
==>));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9932	10022	
==>));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9932	10022	
==>));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	423	521	
==>open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_ope <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	423	521	
==>open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_ope <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7477	7574	
==>s>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1435	1532	
==>open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_ope <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7477	7574	
==>s>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1435	1532	
==>open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14795	14910	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19494	19609	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14795	14910	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19494	19609	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14795	14910	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19494	19609	
==>llback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTO <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32895	32989	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33350	33444	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37445	37539	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37900	37994	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36780	36874	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37280	37374	
==>is a generic binary relational operator that is like
C<union> except that the returned Relation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	945	1045	
==>$::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	945	1045	
==>$::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	945	1045	
==>$::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	60	157	
==>del::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Eig <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	60	157	
==>del::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Eig <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	60	157	
==>del::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Eig <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5391	5577	
==>t(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, & <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5391	5577	
==>t(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1222	1318	
==>method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1222	1318	
==>method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1222	1318	
==>method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8470	8562	
==>leton_test_on_Foo',
  '... still got the right return value from Foo singleton/class method') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15490	15626	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12746	12882	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15490	15626	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12746	12882	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15490	15626	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12746	12882	
==>ams->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1077	1206	
==>->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1077	1206	
==>->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1077	1206	
==>->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	25	127	
==>w_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	25	127	
==>w_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	25	127	
==>w_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routin <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25386	25489	
==>nction> <')'>
    | <'(?:'> <Disjunction> <')'>
    | <'(?='> <Disjunction> <')'>
    | <'(?!'> <Disjunc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32190	32287	
==>$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36740	36837	
==>$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36030	36127	
==>$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2687	2898	
==>f $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2687	2898	
==>f $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5413	5577	
==>uired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5413	5577	
==>uired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5413	5577	
==>uired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2855	2991	
==>= [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### gene <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13748	13876	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14122	14250	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13748	13876	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14122	14250	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13748	13876	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14122	14250	
==>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], se <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1043	1154	
==>n {

    # alternation is first match (not longest).  though we need a 

    # separate longest match for tokens <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1395	1504	
==>n {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1002	1111	
==>n {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1395	1504	
==>n {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for tokens <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1859	1958	
==>up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

W <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1859	1958	
==>up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

W <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11135	11257	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12606	12728	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14612	14734	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16083	16205	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13920	14042	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15445	15567	
==>tity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Secon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2827	2938	
==>f !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s* <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2827	2938	
==>f !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s* <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2827	2938	
==>f !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s* <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7484	7589	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7484	7589	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcirc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7484	7589	
==>s primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcirc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25487	25697	
==>2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26145	26355	
==>2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25766	25976	
==>2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26424	26634	
==>2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2524	2681	
==>pe {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_in <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2524	2681	
==>pe {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5023	5141	
==>ode.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5023	5141	
==>ode.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5023	5141	
==>ode.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4212	4320	
==>= $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4212	4320	
==>= $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4212	4320	
==>= $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3458	3566	
==>a.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3458	3566	
==>a.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3458	3566	
==>a.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $super <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9624	9722	
==>1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9624	9722	
==>1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9624	9722	
==>1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13319	13512	
==>('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => str-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13041	13174	
==>}
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6516	6649	
==>}
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3243	3369	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6236	6360	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3509	3628	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9927	10046	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3509	3628	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9927	10046	
==>node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5341	5470	
==>fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5341	5470	
==>fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5341	5470	
==>fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3365	3469	
==>ap { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3365	3469	
==>ap { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3365	3469	
==>ap { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addm <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13438	13555	
==>her );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper su <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16915	17032	
==>her );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper su <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16277	16394	
==>her );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	472	573	
==>OF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	472	573	
==>OF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	472	573	
==>OF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5708	5828	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3828	3948	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5708	5828	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3828	3948	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5708	5828	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3828	3948	
==>heck that none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3030	3143	
==>ir(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3030	3143	
==>ir(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3030	3143	
==>ir(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14998	15091	
==>to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18475	18568	
==>to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17891	17984	
==>to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9904	10075	
==>::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              nu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	472	635	
==>::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            nu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	472	635	
==>::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14507	14623	
==>e method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14507	14623	
==>e method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14507	14623	
==>e method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3020	3175	
==>qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3020	3175	
==>qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3020	3175	
==>qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9402	9516	
==>ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9402	9516	
==>ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9402	9516	
==>ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $m <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14002	14169	
==>@rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4099	4242	
==>@rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4099	4242	
==>@rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4099	4242	
==>@rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	223	338	
==>( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $w <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	223	338	
==>( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1897	2025	
==>al($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1897	2025	
==>al($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1897	2025	
==>al($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print <==
6	/Users/nnunley/pugs/util/build_pugs.pl	3723	3850	
==>basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - work around Cabal bug --
        # we have to locate "Syck_ <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6094	6204	
==>= $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6094	6204	
==>= $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7816	7936	
==>pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    m <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	74	176	
==>sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

meth <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	74	176	
==>sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6848	6939	
==>S::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6848	6939	
==>S::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6848	6939	
==>S::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method J <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1888	2137	
==>n rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        en <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1888	2137	
==>n rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        en <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2445	2541	
==>f: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.mem <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2445	2541	
==>f: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.mem <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3704	3797	
==>ly for reading human written files, and anything we
write shouldn't need to have documentation <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3704	3797	
==>ly for reading human written files, and anything we
write shouldn't need to have documentation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1630	1736	
==>$e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1630	1736	
==>$e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1630	1736	
==>$e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARG <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32236	32335	
==>e in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36786	36885	
==>e in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36076	36175	
==>e in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18220	18360	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15458	15598	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18220	18360	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15458	15598	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18220	18360	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15458	15598	
==>oace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is proba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15730	15874	
==>Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15730	15874	
==>Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15730	15874	
==>Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20451	20591	
==>Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20451	20591	
==>Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20451	20591	
==>Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13231	13372	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18114	18255	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13231	13372	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18114	18255	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13231	13372	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18114	18255	
==>}        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is loca <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3444	3545	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6458	6559	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8526	8627	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3444	3545	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6458	6559	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8526	8627	
==>eturns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	251	371	
==>f == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	251	371	
==>f == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	251	371	
==>f == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self-> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	674	768	
==>t (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write a <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	674	768	
==>t (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1230	1324	
==>t (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	81	182	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	78	179	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	76	172	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	70	166	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	76	172	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	70	166	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2559	2680	
==>turn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2559	2680	
==>turn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2559	2680	
==>turn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3565	3673	
==>s => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos (last global ma <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11419	11520	
==>ages.

This would permit
  ./perl -we 'use Regexp::Perl6; print "a" =~ /<word>**{1}/;'

Status:

  Per <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13409	13507	
==>%hash.delete{'key'}
 delete %hash<key1>{@keys}         %hash<key1>.delete{@keys}


=back


=item ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16035	16145	
==>:Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16035	16145	
==>:Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16035	16145	
==>:Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1340	1439	
==>{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1340	1439	
==>{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1340	1439	
==>{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10414	10590	
==>ro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10414	10590	
==>ro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10414	10590	
==>ro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16727	16880	
==>truct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        } <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21825	21978	
==>truct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        } <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2795	2928	
==>e) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7982	8103	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10905	11026	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7982	8103	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10905	11026	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7982	8103	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10905	11026	
==>>isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16180	16337	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20897	21054	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16180	16337	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20897	21054	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16180	16337	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20897	21054	
==>};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4633	4777	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7282	7426	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4854	4993	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11303	11442	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4854	4993	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11303	11442	
==>n Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = lengt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3751	3879	
==>ch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_alt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3751	3879	
==>ch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_alt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3751	3879	
==>ch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_alt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	879	995	
==>ess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	879	995	
==>ess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	879	995	
==>ess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24685	24796	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26874	26985	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24685	24796	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26874	26985	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24685	24796	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26874	26985	
==>ray->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37829	37946	
==>->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37829	37946	
==>->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37829	37946	
==>->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17200	17290	
==>nfix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17200	17290	
==>nfix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17200	17290	
==>nfix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7814	7936	
==>)  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7814	7936	
==>)  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7814	7936	
==>)  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).ST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4344	4447	
==>n "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4344	4447	
==>n "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4344	4447	
==>n "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5050	5208	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7699	7857	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5256	5407	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11705	11856	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5256	5407	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11705	11856	
==>e {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless ex <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13504	13658	
==>h = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = subs <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3649	3787	
==>h = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = subs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3649	3787	
==>h = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = subs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3649	3787	
==>h = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = subs <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4656	4788	
==>ren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @ <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4656	4788	
==>ren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11224	11351	
==>ethod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11224	11351	
==>ethod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11224	11351	
==>ethod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	948	1064	
==>)
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	948	1064	
==>)
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	948	1064	
==>)
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10642	10750	
==>( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.refe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10642	10750	
==>( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.refe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10642	10750	
==>( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.refe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	408	513	
==>ss;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	408	513	
==>ss;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	408	513	
==>ss;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27507	27605	
==>es, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32059	32157	
==>es, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	237	332	
==>st_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	293	388	
==>st_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code) <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	237	332	
==>st_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code) <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	293	388	
==>st_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4293	4414	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6942	7063	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4523	4641	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10972	11090	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4523	4641	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10972	11090	
==>atch->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{captur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1664	1765	
==>r precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1664	1765	
==>r precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1664	1765	
==>r precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2340	2439	
==>)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zer <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2340	2439	
==>)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zer <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2340	2439	
==>)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zer <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7731	7877	
==>st      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (L <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3006	3146	
==>hes[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3528	3665	
==>hes[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2908	3045	
==>hes[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3528	3665	
==>hes[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7225	7352	
==>le);
    unless( open(FILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	562	693	
==>and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	562	693	
==>and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	562	693	
==>and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9388	9494	
==>p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9388	9494	
==>p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9388	9494	
==>p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1746	1863	
==>?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1746	1863	
==>?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1746	1863	
==>?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1993	2102	
==>s;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1993	2102	
==>s;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1993	2102	
==>s;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13184	13326	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14919	15061	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13184	13326	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14919	15061	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13184	13326	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14919	15061	
==>eturn pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6390	6546	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8839	8995	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6390	6546	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8839	8995	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6390	6546	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8839	8995	
==>sing a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Sl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18644	18790	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15882	16028	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18644	18790	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15882	16028	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18644	18790	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15882	16028	
==>tributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12398	12509	
==>ings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12398	12509	
==>ings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12398	12509	
==>ings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	155	257	
==>pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	155	257	
==>pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	155	257	
==>pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35262	35390	
==>( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35262	35390	
==>( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35262	35390	
==>( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> b <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30343	30437	
==>tributes
(provided in C<$heading>) may or may not resemble those of the original. 
The anonymou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34895	34988	
==>tributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34077	34170	
==>tributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4655	4815	
==>ound
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4655	4815	
==>ound
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4655	4815	
==>ound
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2503	2618	
==>ss = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2503	2618	
==>ss = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2503	2618	
==>ss = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($ve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	168	267	
==>($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	168	267	
==>($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	168	267	
==>($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1370	1468	
==>f(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < ad <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1370	1468	
==>f(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < ad <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1370	1468	
==>f(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < ad <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4247	4356	
==>ew();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4247	4356	
==>ew();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8889	8982	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, an <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3818	3911	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, an <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8889	8982	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, an <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3818	3911	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1288	1402	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2851	2965	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1288	1402	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2851	2965	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1288	1402	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2851	2965	
==>bal Functions
    # This is a set of global functions
    # which implement certain global 
    # characteristics o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12843	13058	
==>nation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13122	13337	
==>nation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::captur <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10128	10223	
==><set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, em <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8068	8163	
==><set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, em <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10128	10223	
==><set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, em <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8068	8163	
==><set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, em <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5473	5638	
==>t undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5473	5638	
==>t undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5473	5638	
==>t undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3912	4027	
==>CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3912	4027	
==>CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3912	4027	
==>CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	132	232	
==>ompile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	132	232	
==>ompile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6480	6577	
==>one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5610	5707	
==>one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6480	6577	
==>one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5610	5707	
==>one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	792	888	
==>ns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $desc <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	792	888	
==>ns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $desc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7652	7740	
==>documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1880	1968	
==>documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9286	9374	
==>documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2098	2186	
==>documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1672	1768	
==>returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1672	1768	
==>returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1672	1768	
==>returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2744	2833	
==>->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2744	2833	
==>->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2744	2833	
==>->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5038	5124	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3266	3352	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5038	5124	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3266	3352	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5038	5124	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3266	3352	
==>$label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	427	573	
==>.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	427	573	
==>.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	427	573	
==>.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4152	4238	
==>me'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4152	4238	
==>me'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4152	4238	
==>me'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$: <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	333	440	
==>e where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	333	440	
==>e where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	189	295	
==>ck => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channe <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	193	299	
==>ck => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channe <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	189	295	
==>ck => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channe <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	193	299	
==>ck => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7193	7315	
==>tion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7193	7315	
==>tion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7193	7315	
==>tion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16143	16259	
==>lation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19620	19736	
==>lation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8257	8368	
==>lder $Class: $plan?, $output? )
  {
      return $Class.new( testplan => $plan, output => $output );
  }
  
  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	5	101	
==>is is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8200	8326	
==>xup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8200	8326	
==>xup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8200	8326	
==>xup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	53	172	
==>xup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	53	172	
==>xup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	53	172	
==>xup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1514	1666	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3077	3229	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1514	1666	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3077	3229	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1514	1666	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3077	3229	
==>e magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to invest <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5418	5625	
==>_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return { <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5418	5625	
==>_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13111	13225	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::ca <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21161	21275	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13390	13504	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21440	21554	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2377	2533	
==>nt "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                boo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2688	2839	
==>nt "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                boo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2688	2839	
==>nt "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                boo <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38860	38956	
==>=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43674	43770	
==>=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43208	43304	
==>=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	480	638	
==>hift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delet <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	480	638	
==>hift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delet <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3277	3383	
==>s should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za. <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3277	3383	
==>s should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za. <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5828	5925	
==>t truly must be implemented is the 
one that actually enciphers the data.  They may choose, howeve <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5828	5925	
==>t truly must be implemented is the 
one that actually enciphers the data.  They may choose, howeve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	679	784	
==>ub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	679	784	
==>ub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	679	784	
==>ub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2105	2199	
==>et" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2105	2199	
==>et" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2105	2199	
==>et" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1226	1332	
==>k!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1226	1332	
==>k!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1226	1332	
==>k!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1191	1293	
==>local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1191	1293	
==>local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1191	1293	
==>local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a b <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	629	749	
==>e *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer - <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	629	749	
==>e *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer - <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1040	1138	
==>ption? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1040	1138	
==>ption? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	962	1059	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	962	1059	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3000	3106	
==>nshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3000	3106	
==>nshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3000	3106	
==>nshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4154	4249	
==>er 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating i <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4154	4249	
==>er 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5678	5773	
==>er 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5589	5696	
==>er propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5589	5696	
==>er propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5589	5696	
==>er propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7855	7955	
==>rue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7855	7955	
==>rue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7855	7955	
==>rue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15815	15919	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13065	13169	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15815	15919	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13065	13169	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15815	15919	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13065	13169	
==>| confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4847	4979	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7496	7628	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5062	5187	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11511	11636	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5062	5187	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11511	11636	
==>$str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11602	11801	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9155	9354	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11602	11801	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9155	9354	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11602	11801	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9155	9354	
==>stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14663	14781	
==>se 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14663	14781	
==>se 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14663	14781	
==>se 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36941	37056	
==>$array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36941	37056	
==>$array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36941	37056	
==>$array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3919	4016	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6568	6665	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4158	4253	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10607	10702	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4158	4253	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10607	10702	
==>ternal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9143	9257	
==>w, map join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	750	860	
==>tem = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	750	860	
==>tem = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6807	6914	
==>ubpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6807	6914	
==>ubpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6807	6914	
==>ubpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1541	1665	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1541	1665	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1541	1665	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2732	2832	
==>g{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2732	2832	
==>g{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2732	2832	
==>g{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12843	12974	
==>a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12843	12974	
==>a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12843	12974	
==>a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37061	37169	
==>$array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37061	37169	
==>$array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37061	37169	
==>$array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6452	6597	
==>self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6452	6597	
==>self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6452	6597	
==>self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} } <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	755	865	
==>();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	755	865	
==>();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	835	945	
==>();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	641	765	
==>tion () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	641	765	
==>tion () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	641	765	
==>tion () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2989	3094	
==>tion() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2989	3094	
==>tion() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2989	3094	
==>tion() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11911	12018	
==>\} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12334	12441	
==>\} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4554	4661	
==>\} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4977	5084	
==>\} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22671	22766	
==>sage that contains all possibly useful details, so
that each Template can optionally use them; b <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22671	22766	
==>sage that contains all possibly useful details, so
that each Template can optionally use them; b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13201	13329	
==>en though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13201	13329	
==>en though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13201	13329	
==>en though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3231	3354	
==>",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3231	3354	
==>",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3231	3354	
==>",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == I <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8983	9105	
==>( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8971	9093	
==>( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_matc <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	843	960	
==>duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<sta <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	585	702	
==>duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<sta <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	843	960	
==>duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<sta <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	585	702	
==>duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<sta <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	339	449	
==>anted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    fo <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	339	449	
==>anted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    fo <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	122	221	
==>nfix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	122	221	
==>nfix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2167	2265	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2167	2265	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30337	30458	
==>$len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." lengt <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30337	30458	
==>$len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." lengt <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30337	30458	
==>$len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." lengt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1633	1744	
==>te array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1633	1744	
==>te array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1633	1744	
==>te array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6750	6904	
==>>() }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar::T <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1156	1291	
==>quests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $do <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1156	1291	
==>quests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34824	34926	
==>ems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34824	34926	
==>ems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34824	34926	
==>ems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	433	543	
==>self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	433	543	
==>self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	433	543	
==>self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9980	10081	
==>$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9980	10081	
==>$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9980	10081	
==>$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8019	8195	
==>note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4379	4555	
==>note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5228	5404	
==>note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3320	3423	
==>urn "grammar $self->{name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub emi <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	28407	28506	
==>ll override this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

H <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16419	16508	
==>xpression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <RelationalEx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3689	3790	
==>s or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3689	3790	
==>s or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3689	3790	
==>s or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7395	7490	
==>package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7395	7490	
==>package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7395	7490	
==>package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIt <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2014	2173	
==>lf.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tr <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2393	2552	
==>lf.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tr <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2014	2173	
==>lf.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tr <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2393	2552	
==>lf.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tr <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8017	8154	
==>atch => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continu <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8017	8154	
==>atch => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2529	2658	
==>bose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2529	2658	
==>bose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2529	2658	
==>bose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1822	1918	
==>:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1822	1918	
==>:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1822	1918	
==>:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3936	4050	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6585	6699	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4175	4286	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10624	10735	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4175	4286	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10624	10735	
==>ions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38007	38103	
==>is a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=it <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38007	38103	
==>is a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=it <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1922	2017	
==>sh_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_h <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1922	2017	
==>sh_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_h <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2441	2534	
==>module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$mod <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2441	2534	
==>module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1710	1861	
==>nt' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1710	1861	
==>nt' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1710	1861	
==>nt' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14740	14852	
==>dd_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14740	14852	
==>dd_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14740	14852	
==>dd_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess " <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1180	1288	
==>tion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chang <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	922	1030	
==>tion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chang <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1180	1288	
==>tion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chang <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	922	1030	
==>tion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chang <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10211	10305	
==>warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10211	10305	
==>warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7414	7513	
==>e an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7414	7513	
==>e an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23130	23227	
==>forms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21939	22036	
==>forms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23130	23227	
==>forms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21939	22036	
==>forms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10614	10776	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8165	8327	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10614	10776	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8165	8327	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10614	10776	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8165	8327	
==>over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6170	6276	
==>ole->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6170	6276	
==>ole->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6170	6276	
==>ole->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2476	2576	
==>>?\;
        { return { assign_hash_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::C <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17889	17987	
==>e DBMS object at a time, and they are
essentially all isolated from each other, even if more than o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17889	17987	
==>e DBMS object at a time, and they are
essentially all isolated from each other, even if more than o <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6865	6992	
==>$tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED } <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11420	11547	
==>$tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED } <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12218	12345	
==>$tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED } <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12945	13072	
==>$tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED } <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	274	375	
==>{
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $s <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	274	375	
==>{
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7919	8047	
==>$cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character clas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13513	13641	
==>$cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character clas <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7919	8047	
==>$cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character clas <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13507	13635	
==>$cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character clas <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8651	8756	
==>vent<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8651	8756	
==>vent<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5426	5593	
==>ndefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5426	5593	
==>ndefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5426	5593	
==>ndefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1549	1657	
==>sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1549	1657	
==>sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1549	1657	
==>sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN" <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2761	2867	
==>ster

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bui <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3469	3575	
==>:make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2761	2867	
==>ster

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bui <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3469	3575	
==>:make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2841	2947	
==>ster

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bui <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3469	3575	
==>:make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12624	12803	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13203	13382	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12624	12803	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13203	13382	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12624	12803	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13203	13382	
==>ms}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        els <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3212	3312	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6226	6326	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8294	8394	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3212	3312	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6226	6326	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8294	8394	
==>tr`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11746	11896	
==>{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enterin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11746	11896	
==>{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enterin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11746	11896	
==>{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enterin <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14534	14674	
==>name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database conn <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14534	14674	
==>name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database conn <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13024	13123	
==>eList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <Assi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30698	30943	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32417	32662	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30698	30943	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32417	32662	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30698	30943	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32417	32662	
==>iff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3928	4089	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6864	7025	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3928	4089	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6864	7025	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3928	4089	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6864	7025	
==>{
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1680	1810	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3243	3373	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1680	1810	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3243	3373	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1680	1810	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3243	3373	
==>ere the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these ar <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8808	8938	
==>angle_ident( $n->{name}{bareword} );

        my $export = '';
        for my $attr ( @{$n->{attribute}} ) {
            if ( $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13739	13833	
==>eld names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13739	13833	
==>eld names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	46	139	
==>self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	46	139	
==>self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	46	139	
==>self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3822	3935	
==>$pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but t <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3822	3935	
==>$pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23128	23225	
==>erforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21937	22034	
==>erforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23128	23225	
==>erforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21937	22034	
==>erforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34363	34479	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34363	34479	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34363	34479	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3641	3738	
==>erform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3641	3738	
==>erform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5838	5935	
==>erform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13474	13625	
==>-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3623	3758	
==>-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3623	3758	
==>-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3623	3758	
==>-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11761	11875	
==>e_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4404	4518	
==>e_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2949	3055	
==>name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2949	3055	
==>name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2949	3055	
==>name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5456	5556	
==>would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5456	5556	
==>would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5456	5556	
==>would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24216	24363	
==>0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @para <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24216	24363	
==>0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @para <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24216	24363	
==>0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10400	10515	
==>${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10400	10515	
==>${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10400	10515	
==>${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2193	2287	
==>od('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2193	2287	
==>od('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2193	2287	
==>od('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6909	6997	
==>@{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6909	6997	
==>@{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6909	6997	
==>@{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8844	8950	
==>$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Cou <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	578	684	
==>$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Cou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8844	8950	
==>$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Cou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8844	8950	
==>$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Cou <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26375	26471	
==>ut and output, any
variable values which are references will be passed by reference, so you
may s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26375	26471	
==>ut and output, any
variable values which are references will be passed by reference, so you
may s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12589	12692	
==>xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12589	12692	
==>xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12589	12692	
==>xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2408	2508	
==>ef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2408	2508	
==>ef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2408	2508	
==>ef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12358	12518	
==>\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8634	8794	
==>\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9469	9629	
==>\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34245	34364	
==>n
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34245	34364	
==>n
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34245	34364	
==>n
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVE <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7620	7717	
==>(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6750	6847	
==>(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7620	7717	
==>(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6750	6847	
==>(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8606	8698	
==>html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html> <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8606	8698	
==>html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14862	14980	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19561	19679	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14862	14980	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19561	19679	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14862	14980	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19561	19679	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10179	10313	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7730	7864	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10179	10313	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7730	7864	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10179	10313	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7730	7864	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	18	118	
==>se strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	18	118	
==>se strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	18	118	
==>se strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18	117	
==>se strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18	117	
==>se strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18	117	
==>se strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11228	11362	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8781	8915	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11228	11362	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8781	8915	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11228	11362	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8781	8915	
==>tor on the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14254	14484	
==>st_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->p <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14254	14484	
==>st_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->p <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2304	2399	
==>ubclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It' <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2304	2399	
==>ubclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1492	1587	
==>rint 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratche <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1632	1727	
==>rint 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3439	3600	
==>));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3439	3600	
==>));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3439	3600	
==>));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5970	6128	
==>));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5970	6128	
==>));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5970	6128	
==>));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_n <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2269	2379	
==>self) = @_;
  return $self->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub err <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	36	138	
==>Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top l <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	36	138	
==>Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2345	2446	
==>urn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2345	2446	
==>urn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2345	2446	
==>urn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13808	13925	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14182	14299	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13808	13925	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14182	14299	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13808	13925	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14182	14299	
==>stroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1250	1367	
==>s_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1250	1367	
==>s_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1250	1367	
==>s_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14181	14268	
==>rclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14181	14268	
==>rclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14181	14268	
==>rclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1449	1592	
==>{

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1792	1930	
==>{
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1399	1537	
==>{
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1792	1930	
==>{
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2831	2932	
==>hift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub dec <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2831	2932	
==>hift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub dec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8701	8859	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11674	11832	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8701	8859	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11674	11832	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8701	8859	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11674	11832	
==>s without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1055	1170	
==>l/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * i <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	1035	1150	
==>l/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * i <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1055	1170	
==>l/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1035	1150	
==>l/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * i <==
6	/Users/nnunley/pugs/util/importgraph.pl	274	375	
==>hViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layou <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3069	3161	
==>lessed($options{params}) && $options{params}->isa('closure::params'))
        || confess "Bad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4247	4380	
==>f;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4247	4380	
==>f;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4247	4380	
==>f;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11858	11985	
==>this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11858	11985	
==>this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11858	11985	
==>this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6197	6334	
==>);     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6197	6334	
==>);     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6197	6334	
==>);     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3262	3398	
==>);    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3262	3398	
==>);    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3262	3398	
==>);    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21559	21702	
==>lue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21559	21702	
==>lue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21559	21702	
==>lue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1455	1560	
==>s assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1455	1560	
==>s assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1455	1560	
==>s assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	948	1066	
==>S.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	948	1066	
==>S.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	948	1066	
==>S.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1877	1971	
==>message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1877	1971	
==>message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1877	1971	
==>message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1733	1833	
==>S::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1733	1833	
==>S::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1733	1833	
==>S::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	515	610	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	515	610	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	515	610	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2687	2823	
==>e {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2687	2823	
==>e {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2687	2823	
==>e {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9506	9616	
==>= $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my $is_macos    = $^O eq 'MacOS';
my $is_vms      = $^O <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6054	6152	
==>ed - this is too specific - it only applies to Span::Int objects
# method density () returns Object <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6054	6152	
==>ed - this is too specific - it only applies to Span::Int objects
# method density () returns Object <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6555	6670	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9525	9640	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6555	6670	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9525	9640	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6555	6670	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9525	9640	
==>| confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33252	33449	
==>i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33252	33449	
==>i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33252	33449	
==>i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16975	17086	
==>? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16975	17086	
==>? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16975	17086	
==>? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	615	710	
==>lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	615	710	
==>lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	615	710	
==>lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1169	1337	
==>:SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1169	1337	
==>:SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1169	1337	
==>:SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => s <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	664	763	
==>meric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.m <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	664	763	
==>meric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.m <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	990	1084	
==>meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::Package::Installe <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3914	4095	
==>.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    ret <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3914	4095	
==>.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    ret <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	4504	4609	
==>3,  "0000000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3702	3803	
==>-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3702	3803	
==>-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3702	3803	
==>-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{pr <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2390	2512	
==>"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # s <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2390	2512	
==>"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	343	446	
==>vent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	347	450	
==>vent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	343	446	
==>vent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	347	450	
==>vent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4500	4612	
==>3{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already in <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4500	4612	
==>3{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6767	6867	
==>ersion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6767	6867	
==>ersion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6767	6867	
==>ersion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:v <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1328	1425	
==>OW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11853	11950	
==>ed header field.  Previous values
for the same field are retained.

As for the header() method, th <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11853	11950	
==>ed header field.  Previous values
for the same field are retained.

As for the header() method, th <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39378	39472	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loc <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5113	5207	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39378	39472	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5113	5207	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7182	7327	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4741	4886	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7182	7327	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4741	4886	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7182	7327	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4741	4886	
==>{ (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        m <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4994	5252	
==>ce (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1127	1236	
==>ode $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1127	1236	
==>ode $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1127	1236	
==>ode $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_con <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3958	4054	
==>ers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the PO <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3958	4054	
==>ers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the PO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2134	2260	
==>>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2134	2260	
==>>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2134	2260	
==>>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5489	5614	
==>ne('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5489	5614	
==>ne('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5489	5614	
==>ne('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15855	15973	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13105	13223	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15855	15973	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13105	13223	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15855	15973	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13105	13223	
==>ust provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1374	1504	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2937	3067	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1374	1504	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2937	3067	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1374	1504	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2937	3067	
==>obal 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19514	19619	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16746	16851	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19514	19619	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16746	16851	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19514	19619	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16746	16851	
==>od objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value- <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	71	181	
==>cument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modif <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	71	181	
==>cument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modif <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	71	181	
==>cument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modif <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	71	181	
==>cument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modif <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	890	994	
==>1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	890	994	
==>1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2413	2512	
==>ag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrecei <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2413	2512	
==>ag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrecei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2493	2592	
==>ag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrecei <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10785	10890	
==>e the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10785	10890	
==>e the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2424	2526	
==>s.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2424	2526	
==>s.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1645	1739	
==>s.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3506	3600	
==>s.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11250	11382	
==>my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11250	11382	
==>my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11250	11382	
==>my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16792	16886	
==>TI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16792	16886	
==>TI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16792	16886	
==>TI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7141	7250	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7141	7250	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7141	7250	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12297	12405	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12297	12405	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12297	12405	
==>( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3328	3482	
==>pertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3328	3482	
==>pertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3328	3482	
==>pertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1454	1552	
==>be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cele <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1454	1552	
==>be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cele <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1454	1552	
==>be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2676	2785	
==>nal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics fo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2676	2785	
==>nal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics fo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3023	3132	
==>nal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics fo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4501	4596	
==>lder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explan <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4501	4596	
==>lder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6025	6120	
==>lder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13268	13398	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13268	13398	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13268	13398	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5508	5638	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4008	4138	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2153	2283	
==>!defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1688	1787	
==>rmal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1688	1787	
==>rmal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1688	1787	
==>rmal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2066	2159	
==>ect');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2066	2159	
==>ect');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2066	2159	
==>ect');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) pa <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11904	12048	
==>et = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8186	8330	
==>et = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9020	9164	
==>et = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4159	4271	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4159	4271	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4159	4271	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2791	2912	
==>$tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3655	3776	
==>in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --hel <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2791	2912	
==>$tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2791	2912	
==>$tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3655	3776	
==>in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --hel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3655	3776	
==>in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --hel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5721	5839	
==>$1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5721	5839	
==>$1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5721	5839	
==>$1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	394	498	
==>ntie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	394	498	
==>ntie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	394	498	
==>ntie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	22	135	
==>ed($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	22	135	
==>ed($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	22	135	
==>ed($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26260	26357	
==>nty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate b <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26260	26357	
==>nty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	410	524	
==>nstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	410	524	
==>nstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	410	524	
==>nstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10864	10973	
==>irs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10864	10973	
==>irs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10864	10973	
==>irs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35924	36018	
==>binations()>

This method returns an array ref having all combinations of this object's
Set Nam <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35924	36018	
==>binations()>

This method returns an array ref having all combinations of this object's
Set Nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25016	25215	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27205	27404	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25016	25215	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27205	27404	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25016	25215	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27205	27404	
==>t;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5611	5768	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3731	3888	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5611	5768	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3731	3888	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5611	5768	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3731	3888	
==>sses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4829	4995	
==>->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4829	4995	
==>->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4829	4995	
==>->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	1777	1890	
==>w {
    my ($class, %args) = @_;

    # ignore the prefix on extension modules built from top level.
    delete $a <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20618	20719	
==>OTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17039	17140	
==>OTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	699	798	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1219	1318	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	699	798	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1219	1318	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	699	798	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1219	1318	
==>r array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14719	14825	
==>warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14719	14825	
==>warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14719	14825	
==>warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2601	2698	
==>my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2601	2698	
==>my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2601	2698	
==>my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16513	16626	
==>{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16513	16626	
==>{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16513	16626	
==>{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11595	11707	
==>erl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11595	11707	
==>erl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11595	11707	
==>erl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3380	3547	
==>E
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	388	496	
==>t there must be a more efficient way to do this,
      // but if I store the node in a variable outside of th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	388	496	
==>t there must be a more efficient way to do this,
      // but if I store the node in a variable outside of th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	388	496	
==>t there must be a more efficient way to do this,
      // but if I store the node in a variable outside of th <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1879	1982	
==>st splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync wi <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1879	1982	
==>st splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3196	3303	
==>ugh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  dia <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3196	3303	
==>ugh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  dia <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3196	3303	
==>ugh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  dia <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	57	170	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even program <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	57	170	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even program <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	57	170	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even program <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5653	5750	
==>ame == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5653	5750	
==>ame == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5653	5750	
==>ame == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1161	1274	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1161	1274	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1161	1274	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1877	1966	
==>JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1877	1966	
==>JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1877	1966	
==>JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2255	2374	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11123	11242	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12082	12201	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2448	2567	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11402	11521	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12361	12480	
==>e( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4012	4152	
==>[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4012	4152	
==>[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not i <==
6	/Users/nnunley/pugs/util/build_pugs.pl	2303	2413	
==>blib6/lib exists: the user may be running
        # `make unoptimzed` which doesn't create it.
        mkpath(d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1887	1988	
==>to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1887	1988	
==>to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1887	1988	
==>to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2785	2885	
==>EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2785	2885	
==>EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2785	2885	
==>EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16704	16807	
==>object(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handle <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13125	13228	
==>object(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handle <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7971	8067	
==>,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b). <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7101	7197	
==>,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b). <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7971	8067	
==>,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b). <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7101	7197	
==>,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b). <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11540	11732	
==>tch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11540	11732	
==>tch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11540	11732	
==>tch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15487	15601	
==>}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uni <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15487	15601	
==>}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uni <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15487	15601	
==>}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1522	1616	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1522	1616	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1522	1616	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	363	455	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	363	455	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	363	455	
==>("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2936	3044	
==>$quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2924	3032	
==>$quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25071	25158	
==>the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/log <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23835	23922	
==>the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/log <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25071	25158	
==>the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/log <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23835	23922	
==>the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/log <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11354	11502	
==>re( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11633	11781	
==>re( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9573	9693	
==>i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9573	9693	
==>i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9573	9693	
==>i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i] <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4868	4969	
==>o_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fetch($i)->nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1921	2022	
==>$sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1921	2022	
==>$sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1921	2022	
==>$sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already define <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23972	24064	
==>ct, whose Heading and
Body attributes are set respectively from the optional named parameters <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28524	28616	
==>ct, whose Heading and
Body attributes are set respectively from the optional named parameters <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27355	27447	
==>ct, whose Heading and
Body attributes are set respectively from the optional named parameters <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	192	299	
==>ub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	192	299	
==>ub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	192	299	
==>ub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13529	13625	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13529	13625	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13529	13625	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10886	11027	
==>=> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10886	11027	
==>=> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10886	11027	
==>=> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	100	204	
==>e 'type';

our $NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversion to native
sub to_na <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1395	1494	
==>th, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::can <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1395	1494	
==>th, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::can <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5359	5505	
==>,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_co <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5359	5505	
==>,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_co <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1132	1242	
==>open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4371	4481	
==>open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1132	1242	
==>open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4371	4481	
==>open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8699	8855	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11672	11828	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8699	8855	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11672	11828	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8699	8855	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11672	11828	
==>lls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9493	9603	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7040	7150	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9493	9603	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7040	7150	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9493	9603	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7040	7150	
==>_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_asc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13952	14102	
==>($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13952	14102	
==>($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13952	14102	
==>($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	41	136	
==>the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	41	136	
==>the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	41	136	
==>the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12456	12558	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10007	10109	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12456	12558	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10007	10109	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12456	12558	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10007	10109	
==>@_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	754	869	
==>test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	754	869	
==>test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	754	869	
==>test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4354	4461	
==>ame   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4354	4461	
==>ame   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4354	4461	
==>ame   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13192	13290	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4362	4460	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8818	8916	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13192	13290	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4362	4460	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8818	8916	
==>sake
representative for this whole file, which can be referenced as a unit by
documentation or 'use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5221	5328	
==>-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5221	5328	
==>-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5221	5328	
==>-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1977	2076	
==>inebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1977	2076	
==>inebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1977	2076	
==>inebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3230	3352	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3230	3352	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3230	3352	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[ <==
6	/Users/nnunley/pugs/util/claim_drift.pl	801	903	
==>=~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::Spec->can <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2199	2296	
==>rface::Command {

    # External packages used by the Rosetta::Interface::Command class, that do e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2199	2296	
==>rface::Command {

    # External packages used by the Rosetta::Interface::Command class, that do e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1536	1657	
==>ce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1536	1657	
==>ce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1536	1657	
==>ce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2540	2659	
==>{
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2540	2659	
==>{
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2540	2659	
==>{
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5679	5799	
==>f "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5679	5799	
==>f "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5679	5799	
==>f "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5254	5348	
==>KE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5254	5348	
==>KE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5254	5348	
==>KE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10155	10258	
==>(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10155	10258	
==>(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10155	10258	
==>(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10841	10942	
==>(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10841	10942	
==>(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10841	10942	
==>(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + ori <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2354	2466	
==>Class); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2354	2466	
==>Class); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2354	2466	
==>Class); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5408	5509	
==>$always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5408	5509	
==>$always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5408	5509	
==>$always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	889	1010	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	977	1098	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	889	1010	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	977	1098	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	889	1010	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	977	1098	
==>plice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7286	7419	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4845	4978	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7286	7419	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4845	4978	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7286	7419	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4845	4978	
==>turn @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11002	11138	
==>= $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11002	11138	
==>= $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11002	11138	
==>= $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3418	3523	
==>[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3418	3523	
==>[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3418	3523	
==>[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2J <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	237	372	
==>licious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    pri <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4843	4955	
==>channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4843	4955	
==>channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delet <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4342	4448	
==>channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4342	4448	
==>channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delet <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3233	3330	
==>unk';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8789	8960	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11762	11933	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8789	8960	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11762	11933	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8789	8960	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11762	11933	
==>];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10068	10267	
==>w(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fai <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2123	2300	
==>w(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fai <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2123	2300	
==>w(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	181	294	
==>me,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	181	294	
==>me,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	181	294	
==>me,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11474	11593	
==>$s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11474	11593	
==>$s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11474	11593	
==>$s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6794	6891	
==>andom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6794	6891	
==>andom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6794	6891	
==>andom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8557	8739	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6110	6292	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8557	8739	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6110	6292	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8557	8739	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6110	6292	
==>_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6183	6291	
==>ding => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &rest <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9660	9768	
==>ding => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &rest <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8734	8842	
==>ding => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &rest <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4723	4830	
==>be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4723	4830	
==>be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4723	4830	
==>be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_me <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14685	14884	
==>_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_at <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18162	18361	
==>_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_at <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17578	17777	
==>_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3204	3318	
==>?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3204	3318	
==>?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3204	3318	
==>?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	408	510	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	401	503	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	408	510	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	401	503	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	408	510	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	401	503	
==>IL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36015	36153	
==>tems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36015	36153	
==>tems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36015	36153	
==>tems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4598	4698	
==>self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4598	4698	
==>self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4598	4698	
==>self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14836	14971	
==>[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14836	14971	
==>[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14836	14971	
==>[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resul <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3180	3315	
==>[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resul <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	110	202	
==>c::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Per <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	110	202	
==>c::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	620	748	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	620	748	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	620	748	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2968	3077	
==>ch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2968	3077	
==>ch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2968	3077	
==>ch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12041	12139	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9596	9694	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12041	12139	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9596	9694	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12041	12139	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9596	9694	
==>od('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18257	18369	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15495	15607	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18257	18369	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15495	15607	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18257	18369	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15495	15607	
==>opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12529	12696	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14411	14578	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12529	12696	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14411	14578	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12529	12696	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14411	14578	
==>ifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2459	2581	
==>atures;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->fea <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4047	4169	
==>atures;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->fea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1907	1998	
==>return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1907	1998	
==>return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1907	1998	
==>return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (ar <==
6	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1891	1980	
==><post(POE::Session $session, Str $event, *@args)>

Calls C<$session>'s C<$event> event han <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6566	6673	
==>$PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6566	6673	
==>$PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6566	6673	
==>$PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4150	4250	
==>ss->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4150	4250	
==>ss->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4150	4250	
==>ss->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11237	11456	
==>ray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11237	11456	
==>ray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11237	11456	
==>ray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7305	7409	
==>)));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7305	7409	
==>)));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7305	7409	
==>)));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1311	1418	
==>::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1311	1418	
==>::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1311	1418	
==>::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2425	2525	
==>ct->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2425	2525	
==>ct->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2425	2525	
==>ct->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	65	170	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	61	166	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	69	174	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	63	168	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	62	167	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	63	168	
==>se base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11966	12071	
==>mp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11966	12071	
==>mp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11966	12071	
==>mp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2149	2249	
==>)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2149	2249	
==>)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2149	2249	
==>)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11359	11458	
==>$FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11359	11458	
==>$FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11359	11458	
==>$FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9260	9349	
==>erl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
pus <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3085	3174	
==>erl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
pus <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28609	28697	
==>efine RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3419	3524	
==>rl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3419	3524	
==>rl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3419	3524	
==>rl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2 <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	19450	19555	
==>j);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $v { sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4394	4486	
==>');
is($Object->superclass, undef, '... $Object got the right method return value');
is_deepl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6296	6388	
==>');
is($Object->superclass, undef, '... $Object got the right method return value');
is_deepl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3743	3859	
==>cher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3743	3859	
==>cher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3743	3859	
==>cher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4698	4807	
==>cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4698	4807	
==>cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4698	4807	
==>cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16158	16285	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20875	21002	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16158	16285	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20875	21002	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16158	16285	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20875	21002	
==>stry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	89	193	
==>$re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	89	193	
==>$re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	89	193	
==>$re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1853	1956	
==>0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1853	1956	
==>0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1853	1956	
==>0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	724	823	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1244	1343	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	724	823	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1244	1343	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	724	823	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1244	1343	
==>, add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1009	1155	
==>art       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4248	4394	
==>art       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1009	1155	
==>art       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4248	4394	
==>art       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	640	765	
==>d ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	640	765	
==>d ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7633	7758	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10556	10681	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7633	7758	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10556	10681	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7633	7758	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10556	10681	
==>l6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF. <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20496	20607	
==>:words {  # see 12.2
      <Identifier> <InitialiserNoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> < <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10907	11005	
==>d_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10907	11005	
==>d_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10907	11005	
==>d_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2633	2720	
==>eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2633	2720	
==>eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_gr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14370	14557	
==>> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14370	14557	
==>> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14370	14557	
==>> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2642	2749	
==>s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2642	2749	
==>s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2642	2749	
==>s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_man <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5346	5497	
==>ING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	878	986	
==>autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unsh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	878	986	
==>autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unsh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	878	986	
==>autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unsh <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33457	33555	
==>ary should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=ite <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33457	33555	
==>ary should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8076	8190	
==>the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is ex <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8076	8190	
==>the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	546	646	
==>ss exists $params{'$.reason'};
            $params{'$.description'} = '' unless exists $params{'$.des <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2237	2328	
==>objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2237	2328	
==>objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2237	2328	
==>objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module' <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	668	764	
==>.} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	668	764	
==>.} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8750	8845	
==>return $S->force_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13263	13355	
==>'.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13263	13355	
==>'.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13263	13355	
==>'.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} <==
6	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	318	435	
==>(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) retur <==
6	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	318	435	
==>(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15468	15574	
==>v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15468	15574	
==>v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15468	15574	
==>v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2382	2487	
==>" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_typed_value($_->type, Blond <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2570	2670	
==>$subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # po <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2570	2670	
==>$subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # po <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2917	3017	
==>$subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # po <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13104	13200	
==>number of strings are returned.

If called in void context the arguments are decoded in-place.

T <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13104	13200	
==>number of strings are returned.

If called in void context the arguments are decoded in-place.

T <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8648	8739	
==>type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5578	5683	
==>_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5578	5683	
==>_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5578	5683	
==>_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6:: <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4879	4993	
==>my $index ( $self->index_file, $self->index_files(package => $pkg) ) {
        unless (-e $index) {
            # c <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	42	148	
==>t;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Cla <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	40	146	
==>t;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6684	6785	
==>) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6684	6785	
==>) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6684	6785	
==>) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7120	7233	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7120	7233	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7120	7233	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12276	12388	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12276	12388	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12276	12388	
==>m' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1150	1263	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $coun <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1150	1263	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $coun <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1150	1263	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $coun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9545	9651	
==>unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9545	9651	
==>unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9545	9651	
==>unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21704	21904	
==>e::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21704	21904	
==>e::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21704	21904	
==>e::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->st <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3701	3811	
==>hen we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3701	3811	
==>hen we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3701	3811	
==>hen we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	447	558	
==>up,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	447	558	
==>up,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	447	558	
==>up,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5131	5237	
==>g $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5131	5237	
==>g $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5131	5237	
==>g $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6187	6391	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6187	6391	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6187	6391	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3660	3863	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3660	3863	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3660	3863	
==>method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3860	3972	
==>f @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3860	3972	
==>f @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3860	3972	
==>f @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10952	11059	
==>} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10952	11059	
==>} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10952	11059	
==>} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14548	14672	
==>o avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14548	14672	
==>o avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14548	14672	
==>o avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6207	6322	
==>Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6207	6322	
==>Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'p <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	210	312	
==>vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5076	5245	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5394	5563	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5076	5245	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5394	5563	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5076	5245	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5394	5563	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6890	7031	
==>turn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6890	7031	
==>turn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6890	7031	
==>turn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9637	9770	
==>_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10473	10606	
==>_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"p <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	19979	20084	
==>h of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($inpath, $sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	461	615	
==>ty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	376	530	
==>ty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	464	618	
==>ty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2997	3116	
==>( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to th <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3461	3580	
==>( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to th <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15470	15576	
==>ched */
  U32 lastcloseparen;     /* last paren matched */

Other things the world messes with:

  I32 refc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5407	5517	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6675	6785	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10937	11047	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5407	5517	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6663	6773	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11087	11197	
==>source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1385	1494	
==>PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1385	1494	
==>PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1385	1494	
==>PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	135	231	
==>rn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inden <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	135	231	
==>rn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inden <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	135	231	
==>rn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inden <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11118	11283	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8671	8836	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11118	11283	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8671	8836	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11118	11283	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8671	8836	
==>::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7386	7553	
==>_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7386	7553	
==>_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7386	7553	
==>_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	281	387	
==>js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	281	387	
==>js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	281	387	
==>js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16656	16769	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13861	13974	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16656	16769	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13861	13974	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16656	16769	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13861	13974	
==>e (my $next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19979	20105	
==>bel = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19979	20105	
==>bel = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19979	20105	
==>bel = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1238	1332	
==>ing Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Ro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1238	1332	
==>ing Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Ro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1238	1332	
==>ing Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Ro <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7777	7944	
==>e that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dep <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8241	8408	
==>e that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dep <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4207	4362	
==>e that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dep <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4671	4826	
==>e that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dep <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9414	9536	
==>t', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9414	9536	
==>t', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11470	11662	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2982	3174	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11470	11662	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2982	3174	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11470	11662	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2982	3174	
==>JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BIND <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3523	3649	
==>ach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3523	3649	
==>ach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3523	3649	
==>ach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->ad <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15264	15387	
==>my $self = shift;
    $self->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $se <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	759	851	
==>'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	759	851	
==>'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7892	8000	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7892	8000	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7892	8000	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $clas <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3771	3877	
==>y %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        head <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7248	7354	
==>y %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        head <==
6	/Users/nnunley/pugs/util/importgraph.pl	2114	2199	
==>gram');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1409	1529	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2972	3092	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1409	1529	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2972	3092	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1409	1529	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2972	3092	
==>Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19978	20095	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17117	17234	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19978	20095	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17117	17234	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19978	20095	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17117	17234	
==>nce attributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	830	986	
==>l' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	830	986	
==>l' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	830	986	
==>l' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1188	1284	
==>ole). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1188	1284	
==>ole). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1188	1284	
==>ole). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9147	9286	
==>at ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9135	9274	
==>at ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17590	17703	
==>unperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1688	1799	
==>);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1688	1799	
==>);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1688	1799	
==>);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6021	6153	
==>) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6021	6153	
==>) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6021	6153	
==>) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    e <==
6	/Users/nnunley/pugs/util/build_pugs.pl	3866	3994	
==>y it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $target = File::Spec->canonpath(
            Fi <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2386	2482	
==>best to work with those limitations and 
still produce a working version of File::Spec for use as <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2386	2482	
==>best to work with those limitations and 
still produce a working version of File::Spec for use as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3598	3715	
==>TROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3598	3715	
==>TROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3598	3715	
==>TROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9158	9263	
==>paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9158	9263	
==>paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9158	9263	
==>paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4952	5061	
==>::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n= <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4952	5061	
==>::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n= <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4952	5061	
==>::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4610	4707	
==>sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4610	4707	
==>sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4610	4707	
==>sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11126	11243	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11126	11243	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11126	11243	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1497	1590	
==>* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1497	1590	
==>* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1497	1590	
==>* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2935	3048	
==>q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1309	1422	
==>q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2935	3048	
==>q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2935	3048	
==>q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3344	3449	
==>ew[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%heade <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3344	3449	
==>ew[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%heade <==
6	/Users/nnunley/pugs/misc/S29_round.pl	2497	2635	
==>abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14185	14322	
==>$_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14185	14322	
==>$_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14185	14322	
==>$_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2265	2383	
==>'-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self-> <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2265	2383	
==>'-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self-> <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13788	13905	
==>et2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13788	13905	
==>et2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17340	17449	
==>ing );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20817	20926	
==>ing );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9384	9474	
==>6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @st <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3209	3299	
==>6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @st <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1500	1620	
==>reateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1500	1620	
==>reateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1500	1620	
==>reateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28983	29085	
==>er to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28983	29085	
==>er to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	338	436	
==>er to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	94	205	
==>he __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	92	195	
==>he __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	86	189	
==>he __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9771	9874	
==>r(0);  # top-level
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walke <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	92	195	
==>he __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	86	189	
==>he __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3241	3338	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6255	6352	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8323	8420	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3241	3338	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6255	6352	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8323	8420	
==>urns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4614	4722	
==>) || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4614	4722	
==>) || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4614	4722	
==>) || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    for <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4856	4956	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5200	5300	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10252	10341	
==>pt</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsuite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9609	9757	
==>r $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1702	1840	
==>r $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1702	1840	
==>r $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20849	20946	
==>.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relatio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25401	25498	
==>.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relatio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23989	24086	
==>.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relatio <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3151	3261	
==>{ $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %para <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3151	3261	
==>{ $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %para <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5817	5923	
==>(@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $n->{'name'};
        my $rep = ucfirst $n->rep_t <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	67	199	
==>ass Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	67	199	
==>ass Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21420	21516	
==>t {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event na <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20301	20397	
==>t {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event na <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21420	21516	
==>t {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event na <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20301	20397	
==>t {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2376	2496	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4703	4823	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2376	2496	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4703	4823	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2376	2496	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4703	4823	
==>st provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2046	2150	
==>es a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2046	2150	
==>es a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2046	2150	
==>es a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14578	14664	
==>);
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14578	14664	
==>);
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14578	14664	
==>);
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7423	7575	
==>:concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7616	7768	
==>:concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20768	20877	
==>EC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17189	17298	
==>EC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7270	7377	
==>els>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked f <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7270	7377	
==>els>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19541	19657	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16773	16889	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19541	19657	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16773	16889	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19541	19657	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16773	16889	
==>go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1837	1975	
==>tr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1837	1975	
==>tr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1837	1975	
==>tr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	114	206	
==>:Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	114	206	
==>:Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	114	206	
==>:Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::st <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6086	6225	
==>rts look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($6) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	103	219	
==>hod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	103	219	
==>hod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2428	2527	
==>_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2428	2527	
==>_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2428	2527	
==>_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13773	13885	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14147	14259	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13773	13885	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14147	14259	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13773	13885	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14147	14259	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/opera <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1696	1817	
==>it at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1696	1817	
==>it at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11834	11949	
==>le_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11834	11949	
==>le_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	359	465	
==>sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_adm <==
6	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	390	485	
==>sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_adm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2175	2274	
==>pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2175	2274	
==>pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2175	2274	
==>pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4422	4579	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6934	7091	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4422	4579	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6934	7091	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4422	4579	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6934	7091	
==>s_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no rea <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4729	4837	
==>@.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offse <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4729	4837	
==>@.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offse <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9194	9298	
==>$span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9194	9298	
==>$span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9751	9854	
==>$span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9751	9854	
==>$span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7261	7380	
==>r(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(85 <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7261	7380	
==>r(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(85 <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	63	155	
==>ore::Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package referenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24115	24240	
==>sions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24115	24240	
==>sions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24115	24240	
==>sions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12569	12659	
==>$array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12569	12659	
==>$array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12569	12659	
==>$array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3119	3251	
==>.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3119	3251	
==>.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3119	3251	
==>.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1229	1326	
==>ber(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1229	1326	
==>ber(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1229	1326	
==>ber(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2992	3141	
==>ee;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2992	3141	
==>ee;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4671	4787	
==>needed cases, but will
        # definately be helpful for things such as == and <= that fail
        if ($got eq $ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	440	540	
==>OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	440	540	
==>OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	440	540	
==>OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5101	5243	
==>{
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Uti <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5101	5243	
==>{
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Uti <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2463	2563	
==>if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF', <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7557	7657	
==>if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF', <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2463	2563	
==>if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF', <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7557	7657	
==>if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10331	10441	
==>----------------------------------    
    method resolve () { "<implemented>" }

    # ----------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10354	10464	
==>-----------    
    method resolve () { "<implemented>" }

    # ---------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10331	10441	
==>----------------------------------    
    method resolve () { "<implemented>" }

    # ----------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10354	10464	
==>-----------    
    method resolve () { "<implemented>" }

    # ---------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10331	10441	
==>----------------------------------    
    method resolve () { "<implemented>" }

    # ----------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10354	10464	
==>-----------    
    method resolve () { "<implemented>" }

    # ---------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16039	16175	
==>s = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10081	10217	
==>azy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16039	16175	
==>s = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16039	16175	
==>s = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10081	10217	
==>azy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10081	10217	
==>azy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19179	19296	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16417	16534	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19179	19296	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16417	16534	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19179	19296	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16417	16534	
==>ecuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2105	2220	
==>) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recu <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4324	4439	
==>) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2105	2220	
==>) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4324	4439	
==>) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30419	30516	
==>t member being an an exclusive alternative for the rest
of the set. There is a separate template m <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30419	30516	
==>t member being an an exclusive alternative for the rest
of the set. There is a separate template m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	555	657	
==>d 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	555	657	
==>d 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	555	657	
==>d 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3425	3526	
==>_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3425	3526	
==>_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3425	3526	
==>_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance <==
6	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1060	1182	
==>|| $config_default;
    my $stream;
    
    if (!-e $filename) {
        require File::Copy;
        File::Copy::copy ($co <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2919	3036	
==>$.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2919	3036	
==>$.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5376	5478	
==>rt returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5376	5478	
==>rt returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7573	7675	
==>rt returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15456	15557	
==>$xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15456	15557	
==>$xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15456	15557	
==>$xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3836	3931	
==>so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3836	3931	
==>so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3836	3931	
==>so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6413	6526	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7166	7279	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8030	8143	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9890	10003	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10643	10756	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11507	11620	
==>ion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3854	3986	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6790	6922	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3854	3986	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6790	6922	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3854	3986	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6790	6922	
==>ss "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9580	9689	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7127	7236	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9580	9689	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7127	7236	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9580	9689	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7127	7236	
==>tcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6807	6917	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5937	6047	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2591	2701	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2591	2701	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6807	6917	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5937	6047	
==>) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	277	383	
==>ompiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	277	383	
==>ompiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10287	10443	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7838	7994	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10287	10443	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7838	7994	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10287	10443	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7838	7994	
==>current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that it <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36306	36410	
==>airs where the values of those attributes differ and unioning
the remaining said tuple pairs, then elimin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38059	38163	
==>airs where the
values of those attributes differ and unioning the remaining said tuple
pairs, then elimin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40855	40959	
==>airs where the values of those attributes differ and unioning
the remaining said tuple pairs, then elimin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42608	42712	
==>airs where the
values of those attributes differ and unioning the remaining said tuple
pairs, then elimin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40469	40573	
==>airs where the values of those attributes differ and unioning
the remaining said tuple pairs, then elimin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42258	42362	
==>airs where the
values of those attributes differ and unioning the remaining said tuple
pairs, then elimin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9137	9255	
==>n
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> lengt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12990	13104	
==>n
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> lengt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12990	13104	
==>n
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> lengt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	49	151	
==>or module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	49	151	
==>or module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	49	151	
==>or module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3827	3951	
==>urn()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is somethi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3839	3963	
==>urn()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is somethi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8983	9101	
==>my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	717	835	
==>my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8983	9101	
==>my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8983	9101	
==>my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1521	1673	
==>= Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1521	1673	
==>= Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1521	1673	
==>= Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3114	3219	
==>e = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3114	3219	
==>e = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3114	3219	
==>e = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28344	28540	
==>( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28344	28540	
==>( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28344	28540	
==>( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4148	4248	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7457	7557	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4148	4248	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7457	7557	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4148	4248	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7457	7557	
==>h_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8565	8675	
==>i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8565	8675	
==>i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8565	8675	
==>i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15477	15586	
==>0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15477	15586	
==>0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15477	15586	
==>0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5310	5434	
==>\z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5310	5434	
==>\z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5310	5434	
==>\z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XX <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4371	4467	
==>he diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the te <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4371	4467	
==>he diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the te <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4451	4547	
==>he diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9793	9945	
==>urns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9793	9945	
==>urns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9793	9945	
==>urns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7669	7805	
==>rom_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7669	7805	
==>rom_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7669	7805	
==>rom_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2082	2187	
==>d1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2082	2187	
==>d1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1316	1415	
==>d1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3177	3276	
==>d1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3621	3715	
==>/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESC <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3621	3715	
==>/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESC <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2944	3146	
==>ents<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') { <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3198	3400	
==>ents<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') { <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2944	3146	
==>ents<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') { <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3198	3400	
==>ents<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') { <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8192	8317	
==>es{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method sa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8192	8317	
==>es{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6930	7037	
==>$xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6930	7037	
==>$xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6930	7037	
==>$xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5088	5182	
==>myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5088	5182	
==>myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5088	5182	
==>myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursio <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1864	1976	
==>x    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | bi <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1864	1976	
==>x    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | bi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28278	28373	
==>suitable
for debugging purposes (such as to test that the object's contents look
good at a glanc <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35634	35729	
==>suitable
for debugging purposes (such as to test that the object's contents look
good at a glanc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28278	28373	
==>suitable
for debugging purposes (such as to test that the object's contents look
good at a glanc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35634	35729	
==>suitable
for debugging purposes (such as to test that the object's contents look
good at a glanc <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1509	1663	
==>self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1613	1767	
==>self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1509	1663	
==>self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1613	1767	
==>self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3460	3557	
==>e(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while & <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3460	3557	
==>e(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while & <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2433	2549	
==>nstant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2433	2549	
==>nstant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2433	2549	
==>nstant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5972	6071	
==>ss.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5972	6071	
==>ss.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5972	6071	
==>ss.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2294	2401	
==>ename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2294	2401	
==>ename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2294	2401	
==>ename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2839	2940	
==>$namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2839	2940	
==>$namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2839	2940	
==>$namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12323	12472	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3945	4094	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12323	12472	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3945	4094	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12323	12472	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3945	4094	
==>UTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3827	4035	
==>. ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $args = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3765	3887	
==>od('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:role <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5208	5330	
==>variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3765	3887	
==>od('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3765	3887	
==>od('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:role <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5430	5552	
==>variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) { <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12712	12856	
==>}
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path :: <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12712	12856	
==>}
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path :: <==
6	/Users/nnunley/pugs/util/build_pugs.pl	8214	8335	
==>-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	544	641	
==>$self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	544	641	
==>$self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	544	641	
==>$self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->itera <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7241	7356	
==>m the
        # successfully loaded template module; on a function call
        # death, assume module is damaged an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7241	7356	
==>m the
        # successfully loaded template module; on a function call
        # death, assume module is damaged an <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4983	5081	
==>ub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4110	4208	
==>ub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4983	5081	
==>ub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4110	4208	
==>ub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17979	18178	
==>od($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17979	18178	
==>od($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17979	18178	
==>od($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17550	17667	
==>:p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17550	17667	
==>:p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17550	17667	
==>:p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4178	4358	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4178	4358	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4178	4358	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6704	6870	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6704	6870	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6704	6870	
==>$method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7018	7129	
==>BCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7018	7129	
==>BCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7018	7129	
==>BCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35266	35361	
==>identical
to C<join> except that this method will fail if any of its source Relations
have attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39816	39911	
==>identical
to C<join> except that this method will fail if any of its source Relations
have attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39376	39471	
==>identical
to C<join> except that this method will fail if any of its source Relations
have attri <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8948	9062	
==>to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance m <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8948	9062	
==>to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1615	1723	
==>ly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1615	1723	
==>ly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1615	1723	
==>ly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24758	24903	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26947	27092	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24758	24903	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26947	27092	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24758	24903	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26947	27092	
==>{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	956	1060	
==>equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	956	1060	
==>equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5896	5992	
==>_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5026	5122	
==>_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5896	5992	
==>_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5026	5122	
==>_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4396	4511	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4620	4735	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4396	4511	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4620	4735	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4396	4511	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4620	4735	
==>*@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7775	7873	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6905	7003	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3491	3589	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3491	3589	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7775	7873	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6905	7003	
==>plicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11406	11575	
==>::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11406	11575	
==>::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11406	11575	
==>::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18554	18671	
==>represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18554	18671	
==>represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18554	18671	
==>represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7385	7481	
==>atch operators: like 'literal'.



Higher order operators take a list of match operators, and ret <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21492	21587	
==>ponding message.
Event names which are all lowercase are "pseudo" events. See below for a list
o <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20373	20468	
==>ponding message.
Event names which are all lowercase are "pseudo" events. See below for a list
o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21492	21587	
==>ponding message.
Event names which are all lowercase are "pseudo" events. See below for a list
o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20373	20468	
==>ponding message.
Event names which are all lowercase are "pseudo" events. See below for a list
o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7134	7228	
==>atch operators: like 'literal'.

Higher order operators take a list of match operators, and ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	50	157	
==>6
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	50	157	
==>6
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	50	157	
==>6
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7788	7891	
==>to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7788	7891	
==>to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7788	7891	
==>to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6617	6718	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5747	5848	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2401	2502	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2401	2502	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6617	6718	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5747	5848	
==>superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11376	11511	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2888	3023	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11376	11511	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2888	3023	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11376	11511	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2888	3023	
==>roxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3915	4017	
==>ntly 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3915	4017	
==>ntly 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6895	6996	
==>ntly
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8965	9066	
==>ntly
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6895	6996	
==>ntly
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8965	9066	
==>ntly
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4892	5030	
==>ix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TOD <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4892	5030	
==>ix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TOD <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21026	21118	
==>)>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19934	20026	
==>)>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21026	21118	
==>)>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19934	20026	
==>)>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2988	3096	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10911	11019	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6113	6221	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2988	3096	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10911	11019	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6113	6221	
==>!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	106	200	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	367	461	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	106	200	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	367	461	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	106	200	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	367	461	
==>line('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1403	1535	
==>..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1403	1535	
==>..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5337	5446	
==>} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5337	5446	
==>} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5337	5446	
==>} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_ <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	3770	3872	
==>ig{shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3683	3824	
==>ef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3932	4069	
==>ef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3932	4069	
==>ef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16744	16840	
==>$xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16744	16840	
==>$xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16744	16840	
==>$xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15956	16058	
==>SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1055	1157	
==>hat we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15956	16058	
==>SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15956	16058	
==>SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1055	1157	
==>hat we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1055	1157	
==>hat we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9108	9234	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6655	6781	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9108	9234	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6655	6781	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9108	9234	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6655	6781	
==>ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3915	4013	
==>ng the passed parameter to a true value. 

If this parameter is false, the factory returns a Test:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2460	2558	
==>ars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstrac <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3915	4013	
==>ng the passed parameter to a true value. 

If this parameter is false, the factory returns a Test:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2460	2558	
==>ars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstrac <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2460	2558	
==>ars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstrac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6112	6210	
==>ng the passed parameter to a true value. 

If this parameter is false, the factory returns a Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3665	3761	
==>ks that the next test should pass.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3665	3761	
==>ks that the next test should pass.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3745	3841	
==>ks that the next test should pass.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17820	17913	
==>xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17820	17913	
==>xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17820	17913	
==>xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	958	1089	
==>}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	958	1089	
==>}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	958	1089	
==>}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4201	4325	
==>rName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4201	4325	
==>rName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1051	1175	
==>rName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7491	7595	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7491	7595	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7491	7595	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	173	271	
==>her '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$T <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	173	271	
==>her '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$T <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2524	2618	
==>Alt");
    $optable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $optab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19370	19540	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19370	19540	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19370	19540	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5164	5273	
==>rything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5164	5273	
==>rything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5164	5273	
==>rything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13147	13276	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13147	13276	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13147	13276	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5387	5516	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3887	4016	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2032	2161	
==>y\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15364	15480	
==>t( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15364	15480	
==>t( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15364	15480	
==>t( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0] <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29075	29183	
==>IGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) re <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29075	29183	
==>IGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) re <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	426	522	
==>IGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5484	5589	
==>te_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5484	5589	
==>te_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5484	5589	
==>te_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5938	6035	
==>yName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5938	6035	
==>yName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5938	6035	
==>yName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19846	19944	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16985	17083	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19846	19944	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16985	17083	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19846	19944	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16985	17083	
==>t ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20878	21006	
==>d('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::E <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43802	43930	
==>d('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::E <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3287	3398	
==>"N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3287	3398	
==>"N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3287	3398	
==>"N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : pa <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	25141	25234	
==>ssful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some statistics about the perfor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16375	16526	
==>ray = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16375	16526	
==>ray = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16375	16526	
==>ray = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1106	1207	
==>rl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1106	1207	
==>rl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1106	1207	
==>rl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25410	25595	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27605	27790	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25410	25595	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27605	27790	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25410	25595	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27605	27790	
==>' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self- <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4364	4544	
==>ndency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenend <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4828	5008	
==>ndency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenend <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28398	28495	
==>are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit ha <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35754	35851	
==>are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit ha <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28398	28495	
==>are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit ha <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35754	35851	
==>are escaped and you shouldn't try to
extract them.  This method is also defined as the implicit ha <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3822	3959	
==>tified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3810	3947	
==>tified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6718	6811	
==>ons.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= AC <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8787	8880	
==>ons.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= AC <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6718	6811	
==>ons.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= AC <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8787	8880	
==>ons.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= AC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2338	2461	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2338	2461	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2338	2461	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10018	10134	
==>0));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10018	10134	
==>0));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10018	10134	
==>0));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14405	14599	
==>@{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No com <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14405	14599	
==>@{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No com <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14405	14599	
==>@{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1461	1593	
==>methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1666	1798	
==>methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1727	1859	
==>methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->supe <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3957	4094	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6606	6743	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4195	4329	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10644	10778	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4195	4329	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10644	10778	
==>capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15752	15861	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13002	13111	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15752	15861	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13002	13111	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15752	15861	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13002	13111	
==>y ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must pro <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	208	312	
==>OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->impo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	414	518	
==>OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->impo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20162	20258	
==>ic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19121	19217	
==>ic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20162	20258	
==>ic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19121	19217	
==>ic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25737	25882	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27932	28077	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25737	25882	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27932	28077	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25737	25882	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27932	28077	
==>e::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	5139	5261	
==>ubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } el <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5197	5319	
==>ubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12584	12735	
==>')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12584	12735	
==>')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12584	12735	
==>')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4042	4143	
==>ified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4042	4143	
==>ified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4042	4143	
==>ified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17130	17243	
==>e;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17130	17243	
==>e;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17130	17243	
==>e;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41076	41177	
==>"Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41076	41177	
==>"Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41076	41177	
==>"Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2248	2361	
==>de.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2248	2361	
==>de.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2248	2361	
==>de.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11232	11344	
==>"fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterato <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11232	11344	
==>"fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterato <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11232	11344	
==>"fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterato <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4377	4494	
==>e) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4377	4494	
==>e) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4377	4494	
==>e) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7129	7217	
==>_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7129	7217	
==>_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7129	7217	
==>_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1807	1941	
==>body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5284	5418	
==>body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4214	4348	
==>body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1790	1899	
==>pe} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SSta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1790	1899	
==>pe} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SSta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1790	1899	
==>pe} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SSta <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1222	1320	
==>oter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=he <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1222	1320	
==>oter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1769	1867	
==>oter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6335	6479	
==>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6335	6479	
==>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6335	6479	
==>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1944	2071	
==>y $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1944	2071	
==>y $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1944	2071	
==>y $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5684	5836	
==>eturn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # thes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5684	5836	
==>eturn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # thes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5684	5836	
==>eturn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # thes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1259	1374	
==>ply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1259	1374	
==>ply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1259	1374	
==>ply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5730	5905	
==>.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9207	9382	
==>.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation. <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1149	1284	
==>HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unl <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1149	1284	
==>HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1822	1912	
==>::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1911	2001	
==>::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14857	14974	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12111	12228	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14857	14974	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12111	12228	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14857	14974	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12111	12228	
==>ribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_a <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1270	1386	
==>kages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1270	1386	
==>kages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted <==
6	/Users/nnunley/pugs/examples/hop6/Stream.pm	970	1083	
==>s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6833	6941	
==>coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6833	6941	
==>coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6833	6941	
==>coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5786	6035	
==>h.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    ret <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5786	6035	
==>h.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3147	3394	
==>h.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    ret <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3147	3394	
==>h.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	627	728	
==>eta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	627	728	
==>eta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $ru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7919	8034	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10842	10957	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7919	8034	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10842	10957	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7919	8034	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10842	10957	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4967	5108	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5928	6069	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4967	5108	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5928	6069	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4967	5108	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5928	6069	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SE <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14018	14133	
==>ill
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14018	14133	
==>ill
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13084	13191	
==>ill
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13084	13191	
==>ill
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	295	391	
==>m_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_a <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	295	391	
==>m_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13390	13527	
==>ispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_nor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13390	13527	
==>ispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_nor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13390	13527	
==>ispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_nor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	11	105	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	11	105	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	11	105	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ----------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3413	3640	
==>ph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_li <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3461	3688	
==>ph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_li <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3413	3640	
==>ph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_li <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3461	3688	
==>ph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_li <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	4	101	
==>ss Perl::Role-0.01;

isa Perl::Package;

has Array of Perl::Roles @.super_roles;

has Hash of Str, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34089	34182	
==>ual character

=head2 anyof_range

Family: anyof_range

Types: anyof_range (C<X-Y>)

Data: arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2220	2350	
==>value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2220	2350	
==>value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2220	2350	
==>value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	756	857	
==>' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	756	857	
==>' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	756	857	
==>' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2971	3084	
==>XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2971	3084	
==>XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2971	3084	
==>XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	184	279	
==>nstant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	184	279	
==>nstant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	184	279	
==>nstant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7496	7596	
==>}

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method autho <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7496	7596	
==>}

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method autho <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5494	5590	
==>exec_hook != NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regexecp;
  PL_reg <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21691	21784	
==>, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1684	1776	
==>il::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compile <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1684	1776	
==>il::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compile <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4049	4177	
==>ble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $po <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3000	3114	
==>ble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $po <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	10136	10248	
==>E ###
    # this is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since that would p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1294	1386	
==>cher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1294	1386	
==>cher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1294	1386	
==>cher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3725	3878	
==>};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3973	4121	
==>};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10422	10570	
==>};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3973	4121	
==>};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10422	10570	
==>};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $m <==
6	/Users/nnunley/pugs/misc/POE/lib/POE.pm	291	395	
==>$POE::Kernel = $self;
  }

  # Internal method which pushes a given $callback to @:events.
  my method en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5001	5140	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5962	6101	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5001	5140	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5962	6101	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5001	5140	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5962	6101	
==>lue ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16777	16899	
==>:false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16777	16899	
==>:false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16777	16899	
==>:false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $ <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2482	2598	
==>sults);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef u <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2482	2598	
==>sults);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef u <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18117	18205	
==>Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F1,B0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2973	3089	
==>for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2973	3089	
==>for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2973	3089	
==>for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	360	462	
==>s::MakeMaker::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_a <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14030	14128	
==>s (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14088	14186	
==>s (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9059	9176	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6606	6723	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9059	9176	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6606	6723	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9059	9176	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6606	6723	
==>{
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order) <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13909	14072	
==>tr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4018	4157	
==>tr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4018	4157	
==>tr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4018	4157	
==>tr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28240	28364	
==>urn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28519	28643	
==>urn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	127	249	
==>ew {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	127	249	
==>ew {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	127	249	
==>ew {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19953	20047	
==>you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24505	24599	
==>you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23057	23151	
==>you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1129	1248	
==>s);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1129	1248	
==>s);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1129	1248	
==>s);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%para <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15285	15391	
==>width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chom <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	936	1035	
==>EFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     re <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	936	1035	
==>EFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1368	1468	
==>:VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1368	1468	
==>:VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1368	1468	
==>:VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appro <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1958	2070	
==>nd > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1958	2070	
==>nd > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2186	2286	
==>s first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2186	2286	
==>s first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2186	2286	
==>s first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1314	1405	
==>ion of 
Test::Builder::TestPlan.

This file contains both the TestBuilder::TestPlan object a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10397	10515	
==>on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10397	10515	
==>on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10397	10515	
==>on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	998	1109	
==>>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	998	1109	
==>>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	998	1109	
==>>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2232	2366	
==>ter diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unles <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3593	3719	
==>ter diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unles <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	798	902	
==>ction gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass the string index a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1167	1267	
==>ction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	766	866	
==>ction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1167	1267	
==>ction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1525	1624	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1525	1624	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1525	1624	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	366	463	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	366	463	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	366	463	
==>IL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{p <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9599	9711	
==>ide },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9599	9711	
==>ide },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $c <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5556	5659	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4686	4789	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5556	5659	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4686	4789	
==>turns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4980	5080	
==>osition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4980	5080	
==>osition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40564	40657	
==>ANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26078	26171	
==>ANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40564	40657	
==>ANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26078	26171	
==>ANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32821	33006	
==>$i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32821	33006	
==>$i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32821	33006	
==>$i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1430	1528	
==>tring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1430	1528	
==>tring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1430	1528	
==>tring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2 <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3430	3527	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6444	6541	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8512	8609	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3430	3527	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6444	6541	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8512	8609	
==>*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4473	4575	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7409	7511	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4473	4575	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7409	7511	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4473	4575	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7409	7511	
==>od, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3935	4032	
==>'s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3935	4032	
==>'s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3935	4032	
==>'s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	478	646	
==>ings')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	478	646	
==>ings')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	478	646	
==>ings')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10435	10587	
==>elf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10435	10587	
==>elf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10435	10587	
==>elf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1393	1513	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    sa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1393	1513	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    sa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1393	1513	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    sa <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1068	1167	
==>tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a strin <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1068	1167	
==>tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a strin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1615	1714	
==>tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9493	9620	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12466	12593	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9493	9620	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12466	12593	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9493	9620	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12466	12593	
==>:Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher nee <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1684	1790	
==>test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1684	1790	
==>test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1764	1870	
==>test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2118	2219	
==>q", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2118	2219	
==>q", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2118	2219	
==>q", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5077	5271	
==>y->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5077	5271	
==>y->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5077	5271	
==>y->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	78	185	
==>%{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	78	185	
==>%{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	78	185	
==>%{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24746	24891	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26935	27080	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24746	24891	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26935	27080	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24746	24891	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26935	27080	
==>('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unle <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1277	1429	
==>d;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    e <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4516	4668	
==>d;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1277	1429	
==>d;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4516	4668	
==>d;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    e <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1988	2100	
==>Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<M <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1988	2100	
==>Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4437	4558	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7373	7494	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4437	4558	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7373	7494	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4437	4558	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7373	7494	
==>od_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1996	2087	
==>::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1996	2087	
==>::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1996	2087	
==>::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2072	2160	
==>elf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2072	2160	
==>elf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2072	2160	
==>elf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6590	6730	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9560	9700	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6590	6730	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9560	9700	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6590	6730	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9560	9700	
==>ethod || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12788	12882	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2800	2894	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12788	12882	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2800	2894	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12788	12882	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2800	2894	
==>->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24445	24671	
==>aram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24445	24671	
==>aram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24445	24671	
==>aram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13533	13674	
==>sts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13533	13674	
==>sts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13533	13674	
==>sts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum + <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11408	11578	
==>Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11408	11578	
==>Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11408	11578	
==>Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4755	4860	
==>quote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4755	4860	
==>quote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4755	4860	
==>quote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1122	1228	
==>call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1122	1228	
==>call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1122	1228	
==>call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23459	23559	
==>from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23459	23559	
==>from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23459	23559	
==>from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	240	351	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	564	675	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	240	351	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	564	675	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	240	351	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	564	675	
==>utine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1962	2086	
==>ction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1962	2086	
==>ction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1962	2086	
==>ction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3939	4031	
==>comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3939	4031	
==>comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3939	4031	
==>comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3665	3781	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6601	6717	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3665	3781	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6601	6717	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3665	3781	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6601	6717	
==>r binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22393	22495	
==>ack

Initially an array reference, used to store the tree as a new scope is
entered and then exited.  T <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6836	6930	
==>a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KWI <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6836	6930	
==>a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KWI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16825	16914	
==>I SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16825	16914	
==>I SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16825	16914	
==>I SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {.. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	428	586	
==>{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24854	24950	
==>elation's body.

=item C<size () returns Int>

This method returns a count of this Relation's mem <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29406	29502	
==>elation's body.

=item C<size () returns Int>

This method returns a count of this Relation's mem <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2222	2315	
==>*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2222	2315	
==>*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2222	2315	
==>*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5203	5327	
==>ement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_un <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5203	5327	
==>ement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_un <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7080	7186	
==>ng "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_suppo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1420	1520	
==>ng "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_suppo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1420	1520	
==>ng "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_suppo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1420	1520	
==>ng "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_suppo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11100	11225	
==>{
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11100	11225	
==>{
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11100	11225	
==>{
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6842	6939	
==>nstance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:versio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6842	6939	
==>nstance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:versio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6842	6939	
==>nstance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:versio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2941	3046	
==>am{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2941	3046	
==>am{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2941	3046	
==>am{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11885	11981	
==>PI they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11885	11981	
==>PI they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11885	11981	
==>PI they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala I <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	16614	16734	
==>($n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub trun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37721	37830	
==>f ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37721	37830	
==>f ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37721	37830	
==>f ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class-> <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11837	11933	
==>gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11837	11933	
==>gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1858	1992	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	970	1104	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1858	1992	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	970	1104	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1858	1992	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	970	1104	
==>reach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7794	7924	
==>xy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7794	7924	
==>xy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7794	7924	
==>xy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2137	2248	
==>Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2137	2248	
==>Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2484	2595	
==>Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4098	4211	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6747	6860	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4333	4443	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10782	10892	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4333	4443	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10782	10892	
==>::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12982	13132	
==>slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12982	13132	
==>slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12982	13132	
==>slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3514	3609	
==>turn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3514	3609	
==>turn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3514	3609	
==>turn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5060	5182	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6021	6143	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5060	5182	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6021	6143	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5060	5182	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6021	6143	
==>my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15131	15253	
==>ribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15131	15253	
==>ribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15131	15253	
==>ribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11899	12008	
==>turn $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub new <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1735	1829	
==>everal attributes which might be interesting to 
people interested in the algorithm itself.  Th <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1735	1829	
==>everal attributes which might be interesting to 
people interested in the algorithm itself.  Th <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	862	974	
==>efined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duratio <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	604	716	
==>efined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duratio <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	862	974	
==>efined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duratio <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	604	716	
==>efined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duratio <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12079	12187	
==>shift;

    push @{ $self->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7331	7425	
==>=item $parser->regex($regex)

Clears the parser's memory and sets $regex as the regex to be par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	408	512	
==>refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	408	512	
==>refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2141	2244	
==>@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2141	2244	
==>@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2141	2244	
==>@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) i <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2405	2502	
==>it'll continue when you run it again.

Note: This program should be run as unpreviliged user, it w <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12324	12424	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6891	6991	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7181	7281	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12324	12424	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6891	6991	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7181	7281	
==>$?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4199	4300	
==>@vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4199	4300	
==>@vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4199	4300	
==>@vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17294	17388	
==>ents the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17294	17388	
==>ents the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17294	17388	
==>ents the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	170	285	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	170	285	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1758	1873	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1963	2078	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2026	2141	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	170	285	
==>ate_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10492	10625	
==>::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10492	10625	
==>::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10492	10625	
==>::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	633	750	
==>>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	633	750	
==>>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	633	750	
==>>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	592	693	
==>name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemen <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	592	693	
==>name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemen <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	592	693	
==>name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6319	6417	
==>e;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6319	6417	
==>e;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6319	6417	
==>e;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pri <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4667	4796	
==>be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sort <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5131	5260	
==>be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sort <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5329	5439	
==>ct_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4116	4213	
==>--------------------------------
## NOTE:
## code in this section has special cases within it to d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4116	4213	
==>--------------------------------
## NOTE:
## code in this section has special cases within it to d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4116	4213	
==>--------------------------------
## NOTE:
## code in this section has special cases within it to d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11303	11450	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8856	9003	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11303	11450	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8856	9003	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11303	11450	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8856	9003	
==>the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	627	763	
==>ode, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Respo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	627	763	
==>ode, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Respo <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	322	426	
==>oes.


role rArray {}


class Array is List does rArray;

# signature from S29draft.pod r8593.
# XXX Prim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11644	11730	
==>,@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11644	11730	
==>,@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11644	11730	
==>,@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	400	495	
==>ugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	400	495	
==>ugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	400	495	
==>ugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1133	1342	
==>= rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1133	1342	
==>= rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1133	1342	
==>= rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14593	14718	
==>'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::O <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14593	14718	
==>'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::O <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14593	14718	
==>'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::O <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1425	1536	
==>ox.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1425	1536	
==>ox.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1425	1536	
==>ox.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && ar <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3722	3827	
==>ode_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmt <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3722	3827	
==>ode_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmt <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	572	677	
==>ode_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3141	3241	
==>die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3141	3241	
==>die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3141	3241	
==>die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::e <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4056	4145	
==>Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METH <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4056	4145	
==>Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5580	5669	
==>Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10746	10893	
==>.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10746	10893	
==>.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10746	10893	
==>.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	62	160	
==>sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	62	160	
==>sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	62	160	
==>sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6774	6907	
==>CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6774	6907	
==>CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6774	6907	
==>CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2466	2567	
==>ny longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2466	2567	
==>ny longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2466	2567	
==>ny longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38113	38267	
==>lar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38113	38267	
==>lar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38113	38267	
==>lar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9551	9672	
==>d - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9551	9672	
==>d - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9551	9672	
==>d - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15892	15992	
==>, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPAT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15892	15992	
==>, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPAT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15892	15992	
==>, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPAT <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	17266	17364	
==>he pair function takes any param and returns a function that takes any param
# that function will r <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19222	19319	
==>nvolved in making the program would be editing them.  At
the same time, this information is in sep <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19222	19319	
==>nvolved in making the program would be editing them.  At
the same time, this information is in sep <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1477	1630	
==>};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1682	1835	
==>};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1743	1896	
==>};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4591	4693	
==>->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4591	4693	
==>->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4591	4693	
==>->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pS <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	568	686	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	534	652	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	584	702	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	540	658	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	595	713	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	560	678	
==>UPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	641	754	
==>$match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6159	6272	
==>$match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	641	754	
==>$match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6171	6284	
==>$match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $ma <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6085	6177	
==>be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher:: <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6085	6177	
==>be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	63	153	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	287	377	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	63	153	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	287	377	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	63	153	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	287	377	
==>cts of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5854	5958	
==>:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5854	5958	
==>:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5854	5958	
==>:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1362	1463	
==>($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1362	1463	
==>($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1362	1463	
==>($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ / <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6922	7028	
==>= $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6922	7028	
==>= $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6922	7028	
==>= $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3470	3571	
==>cisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cry <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3470	3571	
==>cisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cry <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11094	11189	
==>C>

  my @filtered_inc = $self->_filtered_INC;

Shortens C<@INC> by removing redundant and unnec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5599	5707	
==>required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5599	5707	
==>required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5599	5707	
==>required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7339	7440	
==>";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7339	7440	
==>";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7339	7440	
==>";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8720	8884	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            " <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14445	14609	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8720	8884	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14439	14603	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            " <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13970	14126	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13964	14120	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10693	10805	
==>."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14170	14282	
==>."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13469	13581	
==>."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1525	1625	
==>base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1525	1625	
==>base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1525	1625	
==>base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	665	791	
==>JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	665	791	
==>JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	665	791	
==>JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3006	3114	
==>JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3006	3114	
==>JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3006	3114	
==>JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1487	1585	
==>kg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::( <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1487	1585	
==>kg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	483	572	
==>print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1096	1185	
==>print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $ <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	483	572	
==>print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $ <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1096	1185	
==>print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2799	2907	
==>$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2799	2907	
==>$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler( <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1197	1304	
==>lib = ($perl_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22084	22180	
==>from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22084	22180	
==>from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22084	22180	
==>from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24625	24740	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26814	26929	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24625	24740	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26814	26929	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24625	24740	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26814	26929	
==>y $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2237	2372	
==>eq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_a <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2595	2730	
==>eq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	71	178	
==>class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	71	178	
==>class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	71	178	
==>class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK! <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10750	10851	
==>ode .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4806	4967	
==>.
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($tok <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4806	4967	
==>.
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($tok <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5855	5979	
==>n( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5855	5979	
==>n( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_ <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	725	819	
==>e type keeps the C<source> property, and adds C<content>,
which is the whitespace to be represe <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	725	819	
==>e type keeps the C<source> property, and adds C<content>,
which is the whitespace to be represe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8228	8378	
==>lse {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_nor <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8228	8378	
==>lse {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_nor <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8228	8378	
==>lse {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_nor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12406	12530	
==>)->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12406	12530	
==>)->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12406	12530	
==>)->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12481	12587	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10032	10138	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12481	12587	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10032	10138	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12481	12587	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10032	10138	
==>efined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2751	2855	
==>X - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2751	2855	
==>X - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2751	2855	
==>X - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	51	150	
==>ings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use F <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	56	154	
==>ings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use F <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	54	152	
==>ings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use F <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7939	8071	
==>E(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7939	8071	
==>E(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7939	8071	
==>E(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	625	733	
==>>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	625	733	
==>>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	625	733	
==>>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9369	9544	
==>ther ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12846	13021	
==>ther ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12100	12275	
==>ther ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6126	6245	
==>f-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6126	6245	
==>f-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6126	6245	
==>f-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	107	209	
==>cro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	107	209	
==>cro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	107	209	
==>cro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1363	1460	
==>s %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1363	1460	
==>s %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1363	1460	
==>s %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9978	10082	
==>----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10001	10105	
==>-----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9978	10082	
==>----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10001	10105	
==>-----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9978	10082	
==>----------------------------------
    # has %:methods;
    # has %:attributes;
    # ------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10001	10105	
==>-----------
    # has %:methods;
    # has %:attributes;
    # ------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1787	1919	
==>le {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        prin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1787	1919	
==>le {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        prin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1787	1919	
==>le {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        prin <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4656	4774	
==>+= @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @ <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4656	4774	
==>+= @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @ <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	530	641	
==>n first";
	}

	sub values {
		my $self = shift;
		croak "annotations are not eatable, flatten first";
	}

	sub t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7274	7382	
==>return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10816	10924	
==>tion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7274	7382	
==>return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7274	7382	
==>return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10816	10924	
==>tion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10816	10924	
==>tion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16332	16504	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21049	21221	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16332	16504	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21049	21221	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16332	16504	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21049	21221	
==>he', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5255	5407	
==>1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5255	5407	
==>1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5255	5407	
==>1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8650	8749	
==>)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8650	8749	
==>)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8650	8749	
==>)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n') <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2083	2224	
==>as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$featur <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3675	3812	
==>as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$featur <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2625	2727	
==>as no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash r <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2625	2727	
==>as no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39078	39179	
==>ment which tells it if it's inside a character
class.

  $parser->add_handler('\y' => sub {
    my ($S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32769	32863	
==>nside> the class as well.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2580	2672	
==>boxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2580	2672	
==>boxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2580	2672	
==>boxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	813	904	
==>ude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	813	904	
==>ude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	813	904	
==>ude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prel <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4004	4108	
==>time Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5325	5429	
==>time Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4004	4108	
==>time Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5313	5417	
==>time Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6176	6275	
==>';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6176	6275	
==>';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4825	4940	
==>31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    re <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4825	4940	
==>31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    re <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6410	6508	
==>curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys { <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7146	7244	
==>curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys { <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6410	6508	
==>curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys { <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7146	7244	
==>curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2070	2180	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1182	1292	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2070	2180	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1182	1292	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2070	2180	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1182	1292	
==>will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	667	802	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	755	890	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	667	802	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	755	890	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	667	802	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	755	890	
==>le(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5754	5876	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8724	8846	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5754	5876	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8724	8846	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5754	5876	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8724	8846	
==>on is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	731	851	
==>) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	731	851	
==>) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	731	851	
==>) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	724	832	
==>"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	724	832	
==>"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	724	832	
==>"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9025	9165	
==>ngth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9025	9165	
==>ngth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9025	9165	
==>ngth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6694	6833	
==>=> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6694	6833	
==>=> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6694	6833	
==>=> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20448	20563	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17587	17702	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20448	20563	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17587	17702	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20448	20563	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17587	17702	
==>e fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	967	1100	
==>$duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    ret <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	709	842	
==>$duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    ret <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	967	1100	
==>$duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    ret <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	709	842	
==>$duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3497	3612	
==>art ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_ope <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3497	3612	
==>art ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3086	3257	
==>ell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3086	3257	
==>ell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3086	3257	
==>ell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	536	630	
==>------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	536	630	
==>------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	536	630	
==>------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and s <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1171	1313	
==>k( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1171	1313	
==>k( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3874	4005	
==>ything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8898	8999	
==>and an optional available list
    ### and check if the package is available/provided by any installed <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10375	10476	
==>and an optional available list
    ### and check if the package is available/provided by any installed <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14101	14198	
==>ing many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9552	9669	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7099	7216	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9552	9669	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7099	7216	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9552	9669	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7099	7216	
==>ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsuppor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5363	5483	
==>my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6631	6751	
==>my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5363	5483	
==>my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6619	6739	
==>my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13394	13499	
==>```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3, <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13394	13499	
==>```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2869	3000	
==>et_value('@:slots')}, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8732	8830	
==>ewnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8732	8830	
==>ewnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14734	14823	
==>{...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inter <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14734	14823	
==>{...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inter <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14734	14823	
==>{...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1804	1904	
==>) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1804	1904	
==>) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1804	1904	
==>) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1202	1295	
==>ass.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1202	1295	
==>ass.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1202	1295	
==>ass.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9496	9606	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7043	7153	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9496	9606	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7043	7153	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9496	9606	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7043	7153	
==>scendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascend <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4337	4435	
==>ast if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4337	4435	
==>ast if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4927	5025	
==>ast if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	228	322	
==>ath.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	228	322	
==>ath.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	228	322	
==>ath.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Mat <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11629	11769	
==>)) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attrib <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15106	15246	
==>)) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attrib <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14441	14581	
==>)) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attrib <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	843	964	
==>to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4321	4442	
==>to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3215	3336	
==>to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1605	1713	
==>ate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. W <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1605	1713	
==>ate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. W <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1605	1713	
==>ate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. W <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3918	4007	
==>e_instance_attr($self => '@:roles');
}));

## -------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3918	4007	
==>e_instance_attr($self => '@:roles');
}));

## -------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3918	4007	
==>e_instance_attr($self => '@:roles');
}));

## -------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1371	1480	
==>e},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1371	1480	
==>e},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1371	1480	
==>e},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}), <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16762	16867	
==>ext->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16762	16867	
==>ext->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16762	16867	
==>ext->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22310	22429	
==>TI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22310	22429	
==>TI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22310	22429	
==>TI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	205	303	
==>n perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	205	303	
==>n perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	205	303	
==>n perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23350	23447	
==>$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23350	23447	
==>$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23350	23447	
==>$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	261	354	
==>...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	261	354	
==>...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	261	354	
==>...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<preco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24600	24734	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26789	26923	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24600	24734	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26789	26923	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24600	24734	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26789	26923	
==>m = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6489	6645	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8938	9094	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6489	6645	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8938	9094	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6489	6645	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8938	9094	
==>tart;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2413	2535	
==>ression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2413	2535	
==>ression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2413	2535	
==>ression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9475	9589	
==>rray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9475	9589	
==>rray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9475	9589	
==>rray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.l <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4911	5070	
==>w( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4911	5070	
==>w( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end ) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3714	3861	
==>w( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3714	3861	
==>w( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end ) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16476	16572	
==>(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16476	16572	
==>(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39428	39526	
==>y->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39428	39526	
==>y->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39428	39526	
==>y->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	216	327	
==>= $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2534	2633	
==>se {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2534	2633	
==>se {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2534	2633	
==>se {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level+ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24622	24715	
==>cale::KeyedText does not declare any subroutines or export such.

The usual way that Locale::K <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24622	24715	
==>cale::KeyedText does not declare any subroutines or export such.

The usual way that Locale::K <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14891	14986	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12145	12240	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14891	14986	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12145	12240	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14891	14986	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12145	12240	
==>ficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3299	3412	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6235	6348	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3299	3412	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6235	6348	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3299	3412	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6235	6348	
==>ce wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8763	8903	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6316	6456	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8763	8903	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6316	6456	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8763	8903	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6316	6456	
==>>superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25107	25268	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27296	27457	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25107	25268	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27296	27457	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25107	25268	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27296	27457	
==>{
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18498	18664	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15736	15902	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18498	18664	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15736	15902	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18498	18664	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15736	15902	
==>bel, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2666	2770	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3246	3350	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2666	2770	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3246	3350	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2666	2770	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3246	3350	
==>$lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11118	11229	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12589	12700	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14595	14706	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16066	16177	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13903	14014	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15428	15539	
==>st source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.si <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28313	28437	
==>lue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28313	28437	
==>lue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28313	28437	
==>lue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end ) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1943	2054	
==>$description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ex <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1943	2054	
==>$description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2023	2134	
==>$description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13119	13240	
==>label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13119	13240	
==>label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13119	13240	
==>label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3800	3919	
==>me;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_sl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3800	3919	
==>me;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_sl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3800	3919	
==>me;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_sl <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4729	4916	
==>x[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3993	4148	
==>x[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13409	13547	
==>x[find $my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6211	6309	
==>in_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWith <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6211	6309	
==>in_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWith <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6211	6309	
==>in_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWith <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7627	7742	
==>unks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @b <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7627	7742	
==>unks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5493	5592	
==>d) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5493	5592	
==>d) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5493	5592	
==>d) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name = <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2531	2629	
==>AScript3::Grammar::Spec;

rule ws          {<?ws_input>*}
rule ws_required {<?ws_input>+}
rule ws_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19134	19259	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16372	16497	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19134	19259	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16372	16497	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19134	19259	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16372	16497	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8266	8447	
==>ool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12233	12359	
==>ool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12233	12359	
==>ool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #pr <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4156	4263	
==>returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7633	7740	
==>returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32134	32232	
==>itted from the actual tree (like a CLOSE).

=item on

The flags specifically turned on for this obj <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6897	7002	
==>nted" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9150	9254	
==>' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9150	9254	
==>' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9150	9254	
==>' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1254	1356	
==>nted" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	356	455	
==>nted" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7519	7635	
==>@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7519	7635	
==>@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7519	7635	
==>@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	93	195	
==>in/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # X <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	93	195	
==>in/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # X <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	93	195	
==>in/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # X <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	126	219	
==>gnature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	126	219	
==>gnature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	126	219	
==>gnature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17205	17294	
==>>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17205	17294	
==>>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17205	17294	
==>>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_at <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2513	2626	
==>Y_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2513	2626	
==>Y_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1139	1249	
==>dler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2304	2414	
==>dler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	510	616	
==>o prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return un <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	521	627	
==>o prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4289	4410	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7225	7346	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4289	4410	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7225	7346	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4289	4410	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7225	7346	
==>ically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	20	115	
==>ry throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA= <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1640	1735	
==>sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	20	115	
==>ry throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA= <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	20	115	
==>ry throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1640	1735	
==>sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1640	1735	
==>sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11665	11828	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9218	9381	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11665	11828	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9218	9381	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11665	11828	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9218	9381	
==>ver
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->s <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	15264	15400	
==>y $end_n = $end->pindex;

            my $name = join '', 
              map {$_->attr('text')} 
                $beg->look_down(_tag=>'~ <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1137	1236	
==>annot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1137	1236	
==>annot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16056	16154	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16056	16154	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16056	16154	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34666	34785	
==>s defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34666	34785	
==>s defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34666	34785	
==>s defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1267	1365	
==>g containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1267	1365	
==>g containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1814	1912	
==>g containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test:: <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	18318	18435	
==>ls) = @_;

    my $curr = $totals->{seen};
    my $next = $self->{'next'};
    my $max  = $totals->{max};
    my $deta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3837	3938	
==>package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    C <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3837	3938	
==>package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    C <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3837	3938	
==>package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    C <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	62	158	
==>density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $densi <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	62	158	
==>density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $densi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3104	3230	
==>se {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3104	3230	
==>se {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3104	3230	
==>se {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	476	570	
==>U(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	476	570	
==>U(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	476	570	
==>U(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2029	2195	
==>$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2029	2195	
==>$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2029	2195	
==>$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                r <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1841	1959	
==>$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    r <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32542	32635	
==>stores some attributes for configuration, its
main purpose is to convert Message objects on de <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32542	32635	
==>stores some attributes for configuration, its
main purpose is to convert Message objects on de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11055	11180	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8608	8733	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11055	11180	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8608	8733	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11055	11180	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8608	8733	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4344	4475	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6993	7124	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4573	4701	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11022	11150	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4573	4701	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11022	11150	
==>>new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1776	1899	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1776	1899	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1776	1899	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1602	1704	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1602	1704	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1602	1704	
==>nt');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod: <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14982	15071	
==>ties_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14982	15071	
==>ties_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14360	14537	
==>methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14360	14537	
==>methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14360	14537	
==>methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10114	10235	
==>match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10108	10229	
==>match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4525	4621	
==>])?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_U <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3438	3581	
==>,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3438	3581	
==>,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3438	3581	
==>,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1866	1972	
==>r confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1866	1972	
==>r confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1866	1972	
==>r confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	957	1090	
==>class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	957	1090	
==>class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	957	1090	
==>class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3053	3163	
==>ve()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> alw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3053	3163	
==>ve()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> alw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3053	3163	
==>ve()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> alw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2159	2272	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2564	2677	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2159	2272	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2564	2677	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2159	2272	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2564	2677	
==>unction () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16015	16151	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20732	20868	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16015	16151	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20732	20868	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16015	16151	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20732	20868	
==>Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5839	5988	
==>match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5839	5988	
==>match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5839	5988	
==>match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '? <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	760	903	
==>f hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont real <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9246	9377	
==>c $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when a <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9246	9377	
==>c $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4371	4492	
==>len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        spl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5884	6001	
==>tement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5884	6001	
==>tement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2538	2650	
==>id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2538	2650	
==>id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2538	2650	
==>id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $sel <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2414	2607	
==>1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            return <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4973	5122	
==>each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4832	4981	
==>each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5746	5856	
==>], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], ' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3082	3192	
==>], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3931	4041	
==>], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11271	11393	
==>stkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11271	11393	
==>stkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11271	11393	
==>stkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3240	3341	
==>t!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3240	3341	
==>t!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3240	3341	
==>t!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat( <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5467	5639	
==>= -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5467	5639	
==>= -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6591	6686	
==>f event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which w <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3945	4040	
==>f event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which w <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6591	6686	
==>f event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which w <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3945	4040	
==>f event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which w <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6292	6390	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6660	6758	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6292	6390	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6660	6758	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8489	8587	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8857	8955	
==>verrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details of T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12550	12704	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14432	14586	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12550	12704	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14432	14586	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12550	12704	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14432	14586	
==>hifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2105	2285	
==>odate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                re <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3697	3873	
==>odate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5990	6119	
==>[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5990	6119	
==>[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	610	714	
==>onds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	610	714	
==>onds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3770	3872	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6706	6808	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3770	3872	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6706	6808	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3770	3872	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6706	6808	
==>d $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7883	7984	
==>qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7883	7984	
==>qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7883	7984	
==>qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18549	18639	
==>cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18549	18639	
==>cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18549	18639	
==>cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7116	7260	
==>ement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7116	7260	
==>ement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7116	7260	
==>ement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6579	6702	
==>nt( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6579	6702	
==>nt( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6579	6702	
==>nt( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	251	368	
==>"..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	251	368	
==>"..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	251	368	
==>"..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	920	1027	
==>hift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $dige <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2921	3022	
==>st
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6787	6885	
==>umper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Bac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2443	2549	
==>print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2443	2549	
==>print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2443	2549	
==>print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	704	792	
==>relude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	704	792	
==>relude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	704	792	
==>relude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3212	3340	
==>->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3352	3480	
==>->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2186	2299	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2581	2694	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2244	2357	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2639	2752	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Te <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1206	1322	
==>args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1206	1322	
==>args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" . <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	174	281	
==>ot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	178	285	
==>ot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	174	281	
==>ot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	178	285	
==>ot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5971	6068	
==>string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5971	6068	
==>string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5971	6068	
==>string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	399	494	
==>ed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	399	494	
==>ed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	399	494	
==>ed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional para <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8950	9134	
==>>get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method", $e->get("$cur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7893	8008	
==>ned \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$inde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7881	7996	
==>ned \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$inde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	520	612	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	520	612	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	520	612	
==>new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	196	299	
==>.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	196	299	
==>.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	196	299	
==>.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21131	21227	
==>x0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21131	21227	
==>x0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21131	21227	
==>x0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	220	352	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	220	352	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	220	352	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	334	438	
==>t::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	334	438	
==>t::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	334	438	
==>t::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15651	15788	
==>ined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15651	15788	
==>ined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15651	15788	
==>ined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22039	22131	
==>))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22039	22131	
==>))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22039	22131	
==>))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	270	418	
==>p"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    " <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	270	418	
==>p"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    " <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6758	6852	
==>nteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Per <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8827	8921	
==>nteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Per <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6758	6852	
==>nteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Per <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8827	8921	
==>nteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20860	21121	
==>) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS N <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20860	21121	
==>) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS N <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20860	21121	
==>) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS N <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1691	1884	
==>1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infi <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2295	2399	
==>) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "fa <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2273	2377	
==>) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "fa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	662	759	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1182	1279	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	662	759	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1182	1279	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	662	759	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1182	1279	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8645	8805	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6198	6358	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8645	8805	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6198	6358	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8645	8805	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6198	6358	
==>],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the super <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11272	11392	
==>sh(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11272	11392	
==>sh(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11272	11392	
==>sh(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2699	2802	
==>ox.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2699	2802	
==>ox.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2699	2802	
==>ox.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13223	13371	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14958	15106	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13223	13371	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14958	15106	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13223	13371	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14958	15106	
==>->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $se <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7642	7740	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6772	6870	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3358	3456	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3358	3456	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7642	7740	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6772	6870	
==>*infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4220	4308	
==>returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reaso <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4220	4308	
==>returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reaso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6417	6505	
==>returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reaso <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7424	7510	
==>L2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7424	7510	
==>L2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7424	7510	
==>L2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	540	672	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	506	638	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	556	688	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	512	644	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	567	699	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	532	664	
==>} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2339	2449	
==>en "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2339	2449	
==>en "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11765	11865	
==>f they are already in the set, or inserts the items if
they're not in the set.

Returns the number of <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8912	9012	
==>f they are already in the set, or inserts the items if
they're not in the set.

Returns the number of <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11765	11865	
==>f they are already in the set, or inserts the items if
they're not in the set.

Returns the number of <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8912	9012	
==>f they are already in the set, or inserts the items if
they're not in the set.

Returns the number of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37261	37425	
==>== -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37261	37425	
==>== -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37261	37425	
==>== -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3310	3421	
==>{
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3310	3421	
==>{
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3310	3421	
==>{
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27719	27811	
==>nction that, when
given each original tuple/Mapping as its sole read-only argument, returns a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32271	32363	
==>nction that, when
given each original tuple/Mapping as its sole read-only argument, returns a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31363	31455	
==>nction that, when
given each original tuple/Mapping as its sole read-only argument, returns a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11125	11254	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12596	12725	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14602	14731	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16073	16202	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13910	14039	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15435	15564	
==>ce is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Se <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3714	3843	
==>atch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3962	4088	
==>atch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10411	10537	
==>atch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3962	4088	
==>atch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10411	10537	
==>atch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9514	9633	
==>($S) = @_;
  });


  ### '#'

  # I don't think I need to handle this because the
  # nextchar() method skips whitespace <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6610	6708	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5740	5838	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2394	2492	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2394	2492	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6610	6708	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5740	5838	
==>proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3007	3114	
==>O - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3007	3114	
==>O - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3007	3114	
==>O - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	177	281	
==>.FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	177	281	
==>.FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	177	281	
==>.FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9229	9336	
==>)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->si <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9229	9336	
==>)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->si <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9229	9336	
==>)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->si <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	358	457	
==>/= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	358	457	
==>/= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	358	457	
==>/= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6911	7044	
==>>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => un <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6911	7044	
==>>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => un <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6911	7044	
==>>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20930	21026	
==>_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20930	21026	
==>_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20930	21026	
==>_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34437	34545	
==>sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $off <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34437	34545	
==>sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $off <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34437	34545	
==>sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $off <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20283	20386	
==>patcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20283	20386	
==>patcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20283	20386	
==>patcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethod <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	417	526	
==>efs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be creat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	908	1017	
==>efs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be creat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	417	526	
==>efs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be creat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	908	1017	
==>efs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be creat <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18002	18094	
==>joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18002	18094	
==>joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16202	16329	
==>reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16202	16329	
==>reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8629	8745	
==>ass->send('add_method' => (
    # method label
        symbol->new('get_method'), 
    # method body
        method-> <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8350	8460	
==>";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1 <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	297	395	
==>lename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.clos <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	297	395	
==>lename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.clos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13268	13379	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10552	10663	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13268	13379	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10552	10663	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13268	13379	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10552	10663	
==>table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return : <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2630	2792	
==>> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1320	1482	
==>> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2630	2792	
==>> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1320	1482	
==>> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2629	2759	
==>:Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2629	2759	
==>:Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1418	1539	
==>que_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1418	1539	
==>que_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1418	1539	
==>que_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15009	15125	
==>stance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15009	15125	
==>stance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15009	15125	
==>stance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3984	4130	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6920	7066	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3984	4130	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6920	7066	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3984	4130	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6920	7066	
==>$method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4865	5001	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7801	7937	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4865	5001	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7801	7937	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4865	5001	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7801	7937	
==>king sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10157	10265	
==>dx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10157	10265	
==>dx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10157	10265	
==>dx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10843	10949	
==>dx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10843	10949	
==>dx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10843	10949	
==>dx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5912	6038	
==>$_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5912	6038	
==>$_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5912	6038	
==>$_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3982	4082	
==>_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACRO <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3982	4082	
==>_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACRO <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3982	4082	
==>_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7392	7503	
==>IL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7392	7503	
==>IL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7392	7503	
==>IL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4187	4284	
==>ss $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4187	4284	
==>ss $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4187	4284	
==>ss $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "b <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8725	8825	
==>fier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This eve <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8725	8825	
==>fier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This eve <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	775	872	
==>cription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	833	930	
==>cription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	775	872	
==>cription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	833	930	
==>cription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5222	5351	
==>nt'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5222	5351	
==>nt'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5222	5351	
==>nt'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1838	1950	
==>ASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1838	1950	
==>ASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8084	8178	
==>, C<pairs> a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25817	25975	
==>f->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25817	25975	
==>f->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25817	25975	
==>f->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7406	7488	
==>tly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles)) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7406	7488	
==>tly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles)) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7406	7488	
==>tly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5089	5217	
==>$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5089	5217	
==>$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5089	5217	
==>$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5912	6014	
==>::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5912	6014	
==>::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5912	6014	
==>::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1959	2083	
==>function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1959	2083	
==>function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1959	2083	
==>function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7154	7246	
==>:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7154	7246	
==>:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7154	7246	
==>:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5748	5884	
==>::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5748	5884	
==>::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5748	5884	
==>::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	332	434	
==>.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	332	434	
==>.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	332	434	
==>.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2454	2550	
==>return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2454	2550	
==>return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2454	2550	
==>return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	68	162	
==>ub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&stateme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	68	162	
==>ub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&stateme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	68	162	
==>ub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&stateme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8271	8416	
==>h;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8271	8416	
==>h;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8271	8416	
==>h;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1619	1733	
==>my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1619	1733	
==>my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->super <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1619	1733	
==>my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->super <==
6	/Users/nnunley/pugs/util/version_h.pl	958	1082	
==>$1;
        last;
    }
    close FH;
} elsif (my @info = qx/svk info/ and $? == 0) {
    print "Writing version from `svk in <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	517	615	
==>::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

c <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	517	615	
==>::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21834	21923	
==>nnect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21834	21923	
==>nnect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21834	21923	
==>nnect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5008	5139	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7657	7788	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5215	5340	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11664	11789	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5215	5340	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11664	11789	
==>s used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10293	10404	
==>g_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10293	10404	
==>g_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $t <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11937	12043	
==>new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $nu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11937	12043	
==>new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $nu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3242	3341	
==>=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are ac <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3242	3341	
==>=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are ac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36518	36630	
==>il );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36518	36630	
==>il );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36518	36630	
==>il );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	734	906	
==>ol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	734	906	
==>ol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1312	1412	
==>f the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have t <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1312	1412	
==>f the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have t <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	287	381	
==>sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=hea <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	287	381	
==>sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	719	837	
==>g hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	719	837	
==>g hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	719	837	
==>g hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PI <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7294	7404	
==>w ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define th <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2018	2109	
==>er($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciph <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2018	2109	
==>er($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciph <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1563	1684	
==>pan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1563	1684	
==>pan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1563	1684	
==>pan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10139	10252	
==>) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10139	10252	
==>) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10139	10252	
==>) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10827	10936	
==>) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10827	10936	
==>) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10827	10936	
==>) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13235	13366	
==>er::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13235	13366	
==>er::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13235	13366	
==>er::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27910	28006	
==>ase, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32462	32558	
==>ase, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31554	31650	
==>ase, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1728	1878	
==>>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1728	1878	
==>>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1728	1878	
==>>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18690	18801	
==>dd_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15111	15222	
==>dd_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30449	30560	
==>dd_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S-> <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3203	3305	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6217	6319	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8285	8387	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3203	3305	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6217	6319	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8285	8387	
==>returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	712	806	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1232	1326	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	712	806	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1232	1326	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	712	806	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1232	1326	
==>s[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9653	9785	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12626	12758	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9653	9785	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12626	12758	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9653	9785	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12626	12758	
==>ities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1640	1752	
==>{ $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1640	1752	
==>{ $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1640	1752	
==>{ $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	599	698	
==>$my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	599	698	
==>$my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	599	698	
==>$my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented") <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10740	10913	
==>(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth( <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10740	10913	
==>(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11855	11949	
==>e number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9002	9096	
==>e number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11855	11949	
==>e number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9002	9096	
==>e number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14942	15049	
==>.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18419	18526	
==>.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @source <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17835	17942	
==>.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @source <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18153	18250	
==>ce, if at all.  To account for situations where multiple DBMS
objects want to use the same externa <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18153	18250	
==>ce, if at all.  To account for situations where multiple DBMS
objects want to use the same externa <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	796	927	
==>anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\ <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	796	927	
==>anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11754	11854	
==>ven items if they are already in the set, or inserts the items if
they're not in the set.

Returns th <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8901	9001	
==>ven items if they are already in the set, or inserts the items if
they're not in the set.

Returns th <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11754	11854	
==>ven items if they are already in the set, or inserts the items if
they're not in the set.

Returns th <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8901	9001	
==>ven items if they are already in the set, or inserts the items if
they're not in the set.

Returns th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5103	5207	
==>, 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7771	7875	
==>, 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4754	4854	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3881	3981	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4754	4854	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3881	3981	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6568	6801	
==>et; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - s <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6568	6801	
==>et; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5275	5412	
==>$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5468	5605	
==>$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6512	6610	
==>the network.  If the request fails, then the
status code and message are printed on STDERR.  The re <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6512	6610	
==>the network.  If the request fails, then the
status code and message are printed on STDERR.  The re <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4916	5042	
==>ine seen.  C<$pass> is
            #true if it was considered to be a passed test.  C<%test> is the results
            #of the <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20028	20149	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20307	20428	
==>ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	323	427	
==>_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	323	427	
==>_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	323	427	
==>_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6634	6744	
==>};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6634	6744	
==>};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6634	6744	
==>};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1008	1100	
==>erce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1008	1100	
==>erce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1008	1100	
==>erce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14390	14514	
==>$last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14390	14514	
==>$last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	181	283	
==>tant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSIO <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	181	283	
==>tant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSIO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2322	2419	
==>taining control characters and Unicode.
# Trying to avoid setting $_, or relying on local $_ to wo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	128	224	
==>use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

# TODO - generate AST
# TOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3824	3925	
==>equired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy-> <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3824	3925	
==>equired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy-> <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4414	4515	
==>equired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy-> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5898	5998	
==>he hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes pe <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5898	5998	
==>he hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8095	8195	
==>he hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9224	9386	
==>@a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9224	9386	
==>@a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9224	9386	
==>@a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15370	15470	
==>...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->val <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15370	15470	
==>...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->val <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15370	15470	
==>...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->val <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10624	10751	
==>omain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($ve <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10624	10751	
==>omain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($ve <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23199	23313	
==>"xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil") <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2049	2155	
==>ror_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	58	156	
==>ror_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $m <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	58	156	
==>ror_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $m <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12720	12835	
==>nd_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14132	14233	
==>'t get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_auto <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14132	14233	
==>'t get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_auto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2601	2694	
==>lues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2601	2694	
==>lues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2601	2694	
==>lues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11191	11308	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12662	12779	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14668	14785	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16139	16256	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13976	14093	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15501	15618	
==>$other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5490	5606	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8460	8576	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5490	5606	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8460	8576	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5490	5606	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8460	8576	
==>r sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return t <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13481	13588	
==>$tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must follow something
    $rx->error($rx->RPe_EQUA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4216	4315	
==>l with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	183	282	
==>['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4216	4315	
==>l with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4216	4315	
==>l with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	183	282	
==>['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4036	4146	
==>') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4036	4146	
==>') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4036	4146	
==>') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26170	26267	
==>ey
it is being used with (others are ignored).  Each variable name can be any
defined and non-empt <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26170	26267	
==>ey
it is being used with (others are ignored).  Each variable name can be any
defined and non-empt <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	260	354	
==>eClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMethod(Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5836	5940	
==>Name} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Dec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5836	5940	
==>Name} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Dec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5836	5940	
==>Name} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Dec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2332	2429	
==>Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divis <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2332	2429	
==>Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divis <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2332	2429	
==>Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6015	6143	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8985	9113	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6015	6143	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8985	9113	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6015	6143	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8985	9113	
==>def') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1554	1660	
==>urp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1554	1660	
==>urp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1554	1660	
==>urp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	554	651	
==>for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	554	651	
==>for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	554	651	
==>for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1728	1836	
==>turn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1728	1836	
==>turn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1728	1836	
==>turn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3036	3142	
==>rn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3036	3142	
==>rn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3036	3142	
==>rn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->ge <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1080	1186	
==>op connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't fl <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1834	1940	
==>op connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't fl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1080	1186	
==>op connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't fl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1834	1940	
==>op connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't fl <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3015	3115	
==>return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functi <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3015	3115	
==>return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4125	4283	
==>($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4125	4283	
==>($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4125	4283	
==>($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKC <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	912	1012	
==>a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<// <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	912	1012	
==>a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<// <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	912	1012	
==>a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<// <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2633	2770	
==>ame => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16218	16309	
==>d.

Locale::KeyedText provides a simple but effective mechanism for
applications and package <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16218	16309	
==>d.

Locale::KeyedText provides a simple but effective mechanism for
applications and package <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1239	1394	
==>> 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4478	4633	
==>> 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1239	1394	
==>> 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4478	4633	
==>> 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8915	9028	
==>section = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8915	9028	
==>section = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2408	2618	
==>= each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2408	2618	
==>= each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	246	367	
==>ect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that thi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	250	371	
==>ect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that thi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	246	367	
==>ect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that thi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	250	371	
==>ect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15157	15291	
==>t like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15157	15291	
==>t like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15157	15291	
==>t like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7290	7434	
==>CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7290	7434	
==>CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7290	7434	
==>CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6807	6915	
==>{ -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and -s $b <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1044	1141	
==><:all> 
option will cause the module to shift across all byte values, not just the ones 
correspon <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1044	1141	
==><:all> 
option will cause the module to shift across all byte values, not just the ones 
correspon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9155	9275	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6702	6822	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9155	9275	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6702	6822	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9155	9275	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6702	6822	
==>if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	860	971	
==>:NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	860	971	
==>:NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	860	971	
==>:NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	327	437	
==>y ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	327	437	
==>y ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	327	437	
==>y ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5487	5582	
==>e etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5487	5582	
==>e etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6077	6172	
==>e etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1146	1236	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2642	2732	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1146	1236	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	4906	5005	
==>.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelud <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9392	9490	
==>ntf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	68	166	
==>-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
requir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9392	9490	
==>ntf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9392	9490	
==>ntf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	68	166	
==>-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40129	40242	
==>arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40129	40242	
==>arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40129	40242	
==>arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1792	1905	
==>any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX P <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	969	1080	
==>any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX P <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1442	1553	
==>any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2500	2720	
==>rn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order rul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2807	3015	
==>rn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2807	3015	
==>rn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order rul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23650	23764	
==>qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->k <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23650	23764	
==>qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->k <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23650	23764	
==>qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->k <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	757	956	
==>eop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	758	957	
==>eop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7671	7790	
==>s == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_ccla <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	274	377	
==>imple    qw[:STD];

use base 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=ite <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4505	4584	
==>([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(: <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4505	4584	
==>([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22653	22773	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22883	23003	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22653	22773	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22883	23003	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22653	22773	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22883	23003	
==>my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12147	12289	
==>kup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12147	12289	
==>kup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12147	12289	
==>kup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3995	4106	
==>ned $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3995	4106	
==>ned $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3995	4106	
==>ned $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5379	5498	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3499	3618	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5379	5498	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3499	3618	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5379	5498	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3499	3618	
==>{        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1346	1478	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2312	2444	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1346	1478	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2312	2444	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1346	1478	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2312	2444	
==>ALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1202	1325	
==>cat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_erro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1202	1325	
==>cat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_erro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1202	1325	
==>cat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_erro <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29673	29768	
==>tuple-valued attribute are the same as those of another,
or are the same as the unaffected invoc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34225	34320	
==>tuple-valued attribute are the same as those of another,
or are the same as the unaffected invoc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33389	33484	
==>tuple-valued attribute are the same as those of another,
or are the same as the unaffected invoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4162	4274	
==> so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4162	4274	
==> so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4162	4274	
==> so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2620	2713	
==>::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2620	2713	
==>::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2620	2713	
==>::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15031	15127	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12285	12381	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15031	15127	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12285	12381	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15031	15127	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12285	12381	
==>e) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3387	3681	
==>tep } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should us <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3387	3681	
==>tep } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6226	6408	
==>tep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6226	6408	
==>tep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6226	6408	
==>tep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should us <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5885	5992	
==>yof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a un <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1413	1524	
==>epending on the implementing class, it can default to True or 
        # False, but once it has a value of False <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4891	5001	
==>epending on the implementing class, it can default to True or
        # False, but once it has a value of False <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3821	3931	
==>epending on the implementing class, it can default to True or
        # False, but once it has a value of False <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23618	23718	
==>epending on the implementing class, it can default to True or
False, but once it has a value of False <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28170	28270	
==>epending on the implementing class, it can default to True or
False, but once it has a value of False <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26983	27083	
==>epending on the implementing class, it can default to True or
False, but once it has a value of False <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8498	8611	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6051	6164	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8498	8611	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6051	6164	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8498	8611	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6051	6164	
==>opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8409	8521	
==>l or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fai <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	567	679	
==>l or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fai <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8127	8237	
==>l or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fai <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	542	652	
==>l or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fai <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13495	13587	
==>%entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterm <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13495	13587	
==>%entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2687	2795	
==>AD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2687	2795	
==>AD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2687	2795	
==>AD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	239	338	
==>ltiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parame <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	239	338	
==>ltiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parame <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	239	338	
==>ltiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parame <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8566	8749	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11539	11722	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8566	8749	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11539	11722	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8566	8749	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11539	11722	
==>d the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11102	11246	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8655	8799	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11102	11246	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8655	8799	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11102	11246	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8655	8799	
==>tcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2612	2718	
==>@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2612	2718	
==>@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2612	2718	
==>@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2347	2441	
==>String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2347	2441	
==>String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2347	2441	
==>String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2F <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18467	18565	
==>ation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18663	18761	
==>ation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18877	18975	
==>ation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19079	19177	
==>ation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19414	19512	
==>ation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        headi <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	274	372	
==>y->new(...);

Required arguments:

=over 4

=item root

The root directory of the repository

=item <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7987	8132	
==>> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7987	8132	
==>> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7987	8132	
==>> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3695	3815	
==>TParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3695	3815	
==>TParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3695	3815	
==>TParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub a <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	3331	3438	
==>=> @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        package => @call <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	910	1008	
==>e API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Co <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	864	958	
==>e API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4558	4645	
==>Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_opt <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4558	4645	
==>Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_opt <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5148	5235	
==>Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5975	6115	
==>ttr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5975	6115	
==>ttr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5975	6115	
==>ttr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1135	1237	
==>_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1135	1237	
==>_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1135	1237	
==>_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8925	9078	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11898	12051	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8925	9078	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11898	12051	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8925	9078	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11898	12051	
==>e are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8786	8961	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6339	6514	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8786	8961	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6339	6514	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8786	8961	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6339	6514	
==>MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13818	13958	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14192	14332	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13818	13958	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14192	14332	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13818	13958	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14192	14332	
==>possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8239	8346	
==>sses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8239	8346	
==>sses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8239	8346	
==>sses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4815	4912	
==>BUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4815	4912	
==>BUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4815	4912	
==>BUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1112	1220	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1339	1447	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1112	1220	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1339	1447	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1112	1220	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1339	1447	
==>es_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9400	9552	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14944	15096	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9400	9552	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14938	15090	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3810	3936	
==>evel, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	61	172	
==>he __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    tigh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1785	1897	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3348	3460	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1785	1897	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3348	3460	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1785	1897	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3348	3460	
==>d WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterator <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5698	5809	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3818	3929	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5698	5809	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3818	3929	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5698	5809	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3818	3929	
==>e should check that none of the classes passed to us
        # are also subclasses of us, this is circular inher <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1511	1631	
==>de(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1511	1631	
==>de(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1511	1631	
==>de(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14559	14643	
==>::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14559	14643	
==>::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14559	14643	
==>::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32782	32949	
==>->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $dif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32782	32949	
==>->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $dif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32782	32949	
==>->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $dif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4580	4673	
==>obj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4580	4673	
==>obj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4580	4673	
==>obj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses th <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7061	7196	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7254	7389	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::altern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1199	1326	
==>ttr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1199	1326	
==>ttr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1199	1326	
==>ttr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = : <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1178	1296	
==>xp 'name'         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    po <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5427	5557	
==>: () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'wor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5620	5750	
==>: () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'wor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38646	38772	
==>) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38646	38772	
==>) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38646	38772	
==>) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    m <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16833	16938	
==>= "_pge_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_globa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1214	1356	
==>for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1214	1356	
==>for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1214	1356	
==>for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	823	928	
==>() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	823	928	
==>() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	823	928	
==>() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4764	4895	
==>$self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13189	13320	
==>$self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15800	15931	
==>$self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17288	17419	
==>$self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21971	22102	
==>$self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $ <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	171	275	
==>"&infix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one from p <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1019	1180	
==>] )                       and die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$E <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4472	4593	
==>ld = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    el <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4472	4593	
==>ld = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9833	9946	
==>~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9833	9946	
==>~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9833	9946	
==>~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require( <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1336	1484	
==>ript);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1336	1484	
==>ript);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	9150	9257	
==>ile);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37118	37213	
==>utes in common, their joining degenerates to a
C<product>.  In any situation where the heading o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41667	41762	
==>utes in common, their joining degenerates to a
C<product>.  In any situation where the heading o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41290	41385	
==>utes in common, their joining degenerates to a
C<product>.  In any situation where the heading o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2261	2380	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11129	11248	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12088	12207	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2454	2573	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11408	11527	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12367	12486	
==>ent', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15615	15746	
==>{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21786	21917	
==>{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14527	14631	
==>e pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and we <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14527	14631	
==>e pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and we <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13564	13664	
==>e pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and we <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13564	13664	
==>e pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and we <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8021	8135	
==>$port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8021	8135	
==>$port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	502	595	
==>ldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	502	595	
==>ldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	502	595	
==>ldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4028	4115	
==>.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compile <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25268	25373	
==>guments and any invocant object's attributes is identical; they do not
interact with the outside environme <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11399	11504	
==>guments and any invocant object's attributes is identical; they do not
interact with the outside environme <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14672	14777	
==>guments and any invocant
object's attributes is identical; they do not interact with the outside
environme <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25268	25373	
==>guments and any invocant object's attributes is identical; they do not
interact with the outside environme <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11399	11504	
==>guments and any invocant object's attributes is identical; they do not
interact with the outside environme <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14672	14777	
==>guments and any invocant
object's attributes is identical; they do not interact with the outside
environme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15827	15921	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13077	13171	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15827	15921	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13077	13171	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15827	15921	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13077	13171	
==>nsufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5787	5886	
==>rn a negative value for
# relative seconds and a positive value for epoch based time values.
#sub re <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5787	5886	
==>rn a negative value for
# relative seconds and a positive value for epoch based time values.
#sub re <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24368	24465	
==>red (at beginning-of-line only)?

Very popular.  Used all over perl.  Discussed elsewhere.

 * reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4615	4711	
==>xpand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4615	4711	
==>xpand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4615	4711	
==>xpand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2494	2597	
==>ethod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5697	5800	
==>ethod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2494	2597	
==>ethod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5697	5800	
==>ethod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	15739	15832	
==>e TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15797	15890	
==>e TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	747	869	
==>= @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replaceme <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	747	869	
==>= @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replaceme <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24152	24251	
==>hing
  in response to something it received.  This is typically used by automatons
  (clients with e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22925	23024	
==>hing
  in response to something it received.  This is typically used by automatons
  (clients with e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24152	24251	
==>hing
  in response to something it received.  This is typically used by automatons
  (clients with e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22925	23024	
==>hing
  in response to something it received.  This is typically used by automatons
  (clients with e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6118	6274	
==>ue, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            reg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6118	6274	
==>ue, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            reg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6118	6274	
==>ue, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6398	6495	
==>tion (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6398	6495	
==>tion (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6398	6495	
==>tion (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3548	3677	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6484	6613	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3548	3677	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6484	6613	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3548	3677	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6484	6613	
==>s
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7815	7918	
==>rl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7815	7918	
==>rl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7815	7918	
==>rl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4557	4657	
==>- change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reaso <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4557	4657	
==>- change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reaso <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4557	4657	
==>- change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reaso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17398	17494	
==>nctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17398	17494	
==>nctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17398	17494	
==>nctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11859	11951	
==>!.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1517	1608	
==>lter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGH <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1517	1608	
==>lter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13407	13539	
==>_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13407	13539	
==>_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13407	13539	
==>_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2664	2761	
==>S_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2664	2761	
==>S_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2664	2761	
==>S_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3546	3653	
==>hat} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precom <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3546	3653	
==>hat} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precom <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3546	3653	
==>hat} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precom <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	905	1000	
==>iag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Buil <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	905	1000	
==>iag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Buil <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	985	1080	
==>iag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Buil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18338	18541	
==>) { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18338	18541	
==>) { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18338	18541	
==>) { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	876	976	
==>::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	876	976	
==>::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	876	976	
==>::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13467	13563	
==>chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13467	13563	
==>chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13467	13563	
==>chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10956	11118	
==>= 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Lo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10956	11118	
==>= 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Lo <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4449	4549	
==>ify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4449	4549	
==>ify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5320	5419	
==>ify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5320	5419	
==>ify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mul <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2929	3126	
==>/[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1850	1994	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6785	6929	
==>hift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1633	1772	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6562	6701	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1633	1772	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9434	9543	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6981	7090	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9434	9543	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6981	7090	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9434	9543	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6981	7090	
==>rder eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($ord <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11745	11871	
==>udo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11745	11871	
==>udo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6682	6795	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6682	6795	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6682	6795	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    w <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3066	3159	
==>ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Com <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4422	4534	
==>sage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4422	4534	
==>sage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4422	4534	
==>sage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print ST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1128	1227	
==>al hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1128	1227	
==>al hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1128	1227	
==>al hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PI <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5381	5483	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one. <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4511	4613	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one. <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5381	5483	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one. <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4511	4613	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one. <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6197	6289	
==>:Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6197	6289	
==>:Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3623	3740	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4318	4435	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3623	3740	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4318	4435	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3623	3740	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4318	4435	
==>) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3823	3931	
==>,
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2141	2249	
==>patcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2141	2249	
==>patcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2141	2249	
==>patcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3823	3931	
==>,
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3823	3931	
==>,
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9767	9875	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10748	10856	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13244	13352	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14225	14333	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12516	12624	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13524	13632	
==>);

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2980	3082	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5994	6096	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8062	8164	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2980	3082	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5994	6096	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8062	8164	
==>r`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3507	3610	
==>sion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/dat <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3507	3610	
==>sion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/dat <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3507	3610	
==>sion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	214	314	
==>t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	214	314	
==>t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	214	314	
==>t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infini <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4318	4449	
==>t>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4318	4449	
==>t>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4318	4449	
==>t>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8464	8563	
==>) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTAB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8464	8563	
==>) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTAB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8464	8563	
==>) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTAB <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1507	1647	
==>f $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1712	1852	
==>f $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1773	1913	
==>f $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found fo <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6412	6503	
==>Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bo <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6412	6503	
==>Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bo <==
6	/Users/nnunley/pugs/misc/S29_round.xinming.pl	174	265	
==>owArticle.jhtml?articleID=175801189
# says, This may be considered as the superset of round_ <==
6	/Users/nnunley/pugs/util/func_refact.pl	975	1128	
==>" . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        pr <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13213	13323	
==>eadings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a prop <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16690	16800	
==>eadings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a prop <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16052	16162	
==>eadings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a prop <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4299	4400	
==>tring[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4299	4400	
==>tring[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15462	15572	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12718	12828	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15462	15572	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12718	12828	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15462	15572	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12718	12828	
==>ethod_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attr <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13237	13350	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4407	4520	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8863	8976	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13237	13350	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4407	4520	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8863	8976	
==>h can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' stat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9101	9214	
==>METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9101	9214	
==>METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9101	9214	
==>METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5556	5661	
==>oin('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Ro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5556	5661	
==>oin('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Ro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5556	5661	
==>oin('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Ro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9245	9370	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12218	12343	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9245	9370	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12218	12343	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9245	9370	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12218	12343	
==>Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	954	1048	
==>irs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	954	1048	
==>irs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	954	1048	
==>irs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6218	6308	
==>ed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6218	6308	
==>ed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6218	6308	
==>ed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5855	5950	
==>e_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5855	5950	
==>e_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5855	5950	
==>e_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6208	6299	
==>ash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6208	6299	
==>ash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6208	6299	
==>ash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9467	9612	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12440	12585	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9467	9612	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12440	12585	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9467	9612	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12440	12585	
==>:Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispat <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15970	16083	
==>queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15970	16083	
==>queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16577	16685	
==>V *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21003	21111	
==>V *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3105	3187	
==>complement_next, $self.complement_previous, $set.complement_next, $set.complement_p <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3105	3187	
==>complement_next, $self.complement_previous, $set.complement_next, $set.complement_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2244	2353	
==>e the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2244	2353	
==>e the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2244	2353	
==>e the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5225	5321	
==>H: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5225	5321	
==>H: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5225	5321	
==>H: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1330	1463	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2296	2429	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1330	1463	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2296	2429	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1330	1463	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2296	2429	
==>dant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16513	16623	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21230	21340	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16513	16623	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21230	21340	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16513	16623	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21230	21340	
==>t* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tel <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9213	9329	
==>name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $mod <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10638	10754	
==>( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9213	9329	
==>name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $mod <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10638	10754	
==>( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36543	36634	
==>ts positional
parameter $message and returns an equivalent human readable text message
strin <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36543	36634	
==>ts positional
parameter $message and returns an equivalent human readable text message
strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3493	3614	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6021	6142	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3493	3614	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6021	6142	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3493	3614	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6021	6142	
==>>{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3361	3489	
==>t_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3361	3489	
==>t_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_i <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7248	7368	
==>ILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self->analyze_fh($fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11312	11454	
==>++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11312	11454	
==>++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11312	11454	
==>++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10153	10255	
==>rgs = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@n <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2971	3067	
==>not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navi <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2971	3067	
==>not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2779	2886	
==>bug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2779	2886	
==>bug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nic <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	590	695	
==>Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	590	695	
==>Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	590	695	
==>Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JS <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27814	27906	
==>ame name, and finally
from F<Regexp::Parser::__object__>.  Don't worry -- if you don't define <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	521	677	
==>s $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	521	677	
==>s $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2771	2875	
==>opt->{fixity} = 'prefix' unless defined $opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21112	21206	
==>SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21112	21206	
==>SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21112	21206	
==>SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	125	229	
==>body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak mem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9266	9370	
==>ss

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	125	229	
==>body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak mem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	125	229	
==>body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak mem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9266	9370	
==>ss

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9266	9370	
==>ss

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3093	3225	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6086	6218	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3366	3491	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9784	9909	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3366	3491	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9784	9909	
==>ptional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	386	507	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	384	505	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	386	507	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	384	505	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	386	507	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	384	505	
==>scribed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: referen <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2082	2249	
==>ls;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalize <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2082	2249	
==>ls;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalize <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	456	571	
==>invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	456	571	
==>invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	456	571	
==>invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7111	7218	
==>return $test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messages since we try to
# be co <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9042	9142	
==>he start or end value of the set.

These methods may return nothing if the set is empty.

- `start_is <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9042	9142	
==>he start or end value of the set.

These methods may return nothing if the set is empty.

- `start_is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11664	11760	
==>themselves does Role since they
are just instances of Class which does Role too. So this means th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11664	11760	
==>themselves does Role since they
are just instances of Class which does Role too. So this means th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11664	11760	
==>themselves does Role since they
are just instances of Class which does Role too. So this means th <==
6	/Users/nnunley/pugs/util/package-osx.pl	7458	7546	
==>l/man/man3/Perl6::Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Spec::Document <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17852	17979	
==>k)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (o <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16890	17017	
==>k)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17852	17979	
==>k)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16890	17017	
==>k)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (o <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	7861	7967	
==>pan is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7861	7967	
==>pan is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14963	15103	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14963	15103	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14963	15103	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19662	19801	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19662	19801	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19662	19801	
==>split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what sho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7292	7396	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7292	7396	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7292	7396	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6826	6929	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6826	6929	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6826	6929	
==>my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9446	9558	
==>c_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9446	9558	
==>c_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9446	9558	
==>c_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1698	1803	
==>t me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1698	1803	
==>t me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1698	1803	
==>t me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3299	3393	
==>hich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3299	3393	
==>hich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3299	3393	
==>hich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3774	3884	
==>{
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($sel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3774	3884	
==>{
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($sel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4364	4474	
==>{
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	340	436	
==>op(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	340	436	
==>op(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	340	436	
==>op(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	849	1008	
==>);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	849	1008	
==>);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	849	1008	
==>);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3604	3703	
==>delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3604	3703	
==>delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4194	4293	
==>delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3159	3266	
==>%rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3159	3266	
==>%rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3742	3845	
==>%rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3742	3845	
==>%rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8099	8194	
==>ontaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8099	8194	
==>ontaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5812	5918	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8782	8888	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5812	5918	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8782	8888	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5812	5918	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8782	8888	
==>od subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5357	5474	
==>= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5357	5474	
==>= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5357	5474	
==>= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7144	7245	
==>atch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7144	7245	
==>atch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7144	7245	
==>atch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9386	9496	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6933	7043	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9386	9496	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6933	7043	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9386	9496	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6933	7043	
==>>_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_des <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3816	3977	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6752	6913	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3816	3977	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6752	6913	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3816	3977	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6752	6913	
==>'Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7526	7642	
==>s "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7526	7642	
==>s "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7526	7642	
==>s "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Privat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2419	2509	
==>methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2419	2509	
==>methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2419	2509	
==>methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9613	9752	
==>le = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4756	4871	
==>push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13181	13296	
==>push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15792	15907	
==>push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17280	17395	
==>push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21963	22078	
==>push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2301	2436	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2848	2983	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3395	3530	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  } <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	3474	3578	
==>/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", map { quotemet <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2321	2419	
==>finite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguou <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2321	2419	
==>finite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguou <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2129	2254	
==>$msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2129	2254	
==>$msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2129	2254	
==>$msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7552	7661	
==>elete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7552	7661	
==>elete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %c <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19065	19169	
==>f $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) appl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3968	4085	
==>')} => $test;
            _('$.output')->write( $test->report() );
        }
    }
};

require "lib/TestBuilder/TestPl <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5242	5357	
==>pe;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.n <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5242	5357	
==>pe;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3006	3097	
==>>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3006	3097	
==>>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3006	3097	
==>>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12439	12546	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9990	10097	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12439	12546	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9990	10097	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12439	12546	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9990	10097	
==>$self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20766	20860	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17904	17998	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20766	20860	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17904	17998	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20766	20860	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17904	17998	
==>orph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2918	3036	
==>',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, ac <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2918	3036	
==>',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, ac <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5928	6029	
==>)   { ?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToNumber( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5551	5647	
==>o_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capital <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5551	5647	
==>o_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capital <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5551	5647	
==>o_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capital <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6548	6671	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8997	9120	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6548	6671	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8997	9120	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6548	6671	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8997	9120	
==>ce start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6756	6898	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9726	9868	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6756	6898	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9726	9868	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6756	6898	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9726	9868	
==>{
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18003	18122	
==>> 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontro <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17041	17160	
==>> 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontro <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18003	18122	
==>> 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontro <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17041	17160	
==>> 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontro <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3687	3801	
==>d Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the G <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3555	3665	
==>d Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the G <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4420	4577	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6932	7089	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4420	4577	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6932	7089	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4420	4577	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6932	7089	
==>ass_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5695	5829	
==>rpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5695	5829	
==>rpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5695	5829	
==>rpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4902	5015	
==>an .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4902	5015	
==>an .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4902	5015	
==>an .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5548	5655	
==>($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5548	5655	
==>($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28399	28503	
==>rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	75	167	
==>6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	75	167	
==>6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	75	167	
==>6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4172	4269	
==>O();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4172	4269	
==>O();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4172	4269	
==>O();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('su <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3502	3597	
==>mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute name <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6979	7074	
==>mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute name <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5936	6031	
==>mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10193	10310	
==>n IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10193	10310	
==>n IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10193	10310	
==>n IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1809	1915	
==>s && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1809	1915	
==>s && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1809	1915	
==>s && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")" <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4362	4493	
==>TORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4362	4493	
==>TORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9110	9216	
==>, "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	642	747	
==>plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	642	747	
==>plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	642	747	
==>plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5719	5859	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8689	8829	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5719	5859	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8689	8829	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5719	5859	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8689	8829	
==>ad of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17463	17567	
==>ct();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17463	17567	
==>ct();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10080	10174	
==>particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all pa <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8020	8114	
==>particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all pa <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10080	10174	
==>particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all pa <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8020	8114	
==>particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all pa <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7634	7734	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6764	6864	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3350	3450	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3350	3450	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7634	7734	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6764	6864	
==>lti sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21236	21479	
==>ar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21236	21479	
==>ar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21236	21479	
==>ar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9399	9577	
==>e" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9399	9577	
==>e" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9399	9577	
==>e" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24682	24791	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26871	26980	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24682	24791	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26871	26980	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24682	24791	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26871	26980	
==>$array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5610	5723	
==>$_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5610	5723	
==>$_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5610	5723	
==>$_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7484	7575	
==>elf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7484	7575	
==>elf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7484	7575	
==>elf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2121	2227	
==>undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2121	2227	
==>undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2121	2227	
==>undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5746	5837	
==>S.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5746	5837	
==>S.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5746	5837	
==>S.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2864	2977	
==>xed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2864	2977	
==>xed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2864	2977	
==>xed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10346	10458	
==>e methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10346	10458	
==>e methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10346	10458	
==>e methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes t <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1968	2121	
==>rl complex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl fi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1962	2089	
==>elude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2179	2306	
==>elude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1557	1669	
==>$x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1557	1669	
==>$x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1557	1669	
==>$x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11150	11259	
==>ar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1] <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11150	11259	
==>ar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1] <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11150	11259	
==>ar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1] <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4798	4895	
==>', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4798	4895	
==>', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_a <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3971	4065	
==>s_all_accessors { sort keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } __PACKAGE__->ls_al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4399	4540	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6911	7052	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4399	4540	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6911	7052	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4399	4540	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6911	7052	
==>me (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8156	8297	
==>turn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8156	8297	
==>turn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8156	8297	
==>turn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     && <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3363	3473	
==>}
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3363	3473	
==>}
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3363	3473	
==>}
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39153	39271	
==>et->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39153	39271	
==>et->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39153	39271	
==>et->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14054	14153	
==>s attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14054	14153	
==>s attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14054	14153	
==>s attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15851	16125	
==>ew( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15851	16125	
==>ew( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15851	16125	
==>ew( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.k <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5285	5376	
==>ontaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repor <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5285	5376	
==>ontaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7482	7573	
==>ontaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2418	2516	
==>$js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2418	2516	
==>$js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2418	2516	
==>$js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5258	5353	
==>re JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5258	5353	
==>re JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5258	5353	
==>re JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $j <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10286	10380	
==>1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8179	8273	
==>1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10286	10380	
==>1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8179	8273	
==>1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7481	7571	
==>th_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1306	1396	
==>th_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6087	6226	
==>D
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6087	6226	
==>D
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6087	6226	
==>D
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10244	10339	
==>et
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10244	10339	
==>et
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10244	10339	
==>et
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2185	2302	
==>meter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2325	2442	
==>meter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36956	37065	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36956	37065	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36956	37065	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arra <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35519	35617	
==>ids is an array that holds array references; each of those array
references is the body of one and- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19323	19442	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4803	4922	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19323	19442	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4803	4922	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19323	19442	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4803	4922	
==>STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4389	4520	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6901	7032	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4389	4520	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6901	7032	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4389	4520	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6901	7032	
==>$method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a priv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36766	36891	
==>ices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36766	36891	
==>ices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36766	36891	
==>ices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1325	1425	
==>ter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1325	1425	
==>ter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1325	1425	
==>ter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3155	3267	
==>f @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &post <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3155	3267	
==>f @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &post <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3155	3267	
==>f @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &post <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2450	2557	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2450	2557	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2450	2557	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1621	1747	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2202	2328	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1621	1747	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2202	2328	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2997	3117	
==>ur args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2997	3117	
==>ur args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	304	410	
==>ma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	304	410	
==>ma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	304	410	
==>ma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4233	4326	
==>ircularity issues and other such ugliness 

## introspective methods

$::Role->add_method('doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4233	4326	
==>ircularity issues and other such ugliness 

## introspective methods

$::Role->add_method('doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4233	4326	
==>ircularity issues and other such ugliness 

## introspective methods

$::Role->add_method('doe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2850	2978	
==>er;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2850	2978	
==>er;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2850	2978	
==>er;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2195	2289	
==>('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2195	2289	
==>('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2195	2289	
==>('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2289	2403	
==>rt ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
met <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2289	2403	
==>rt ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
met <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1848	1955	
==>n.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1848	1955	
==>n.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $ <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7202	7285	
==>------------------------------------------------------------------------
## traversa <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7202	7285	
==>------------------------------------------------------------------------
## traversa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	16	126	
==>l;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	16	126	
==>l;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	16	126	
==>l;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6049	6147	
==>prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6049	6147	
==>prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6049	6147	
==>prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return th <==
6	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	774	894	
==>pt_name'";
        $prompt .= " ($abstract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7610	7727	
==>nless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%nam <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7598	7715	
==>nless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12825	12912	
==>::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12825	12912	
==>::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12825	12912	
==>::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

s <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14242	14381	
==>and($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4311	4434	
==>and($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4311	4434	
==>and($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4311	4434	
==>and($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3903	4001	
==>tware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

us <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3903	4001	
==>tware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24678	24788	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26867	26977	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24678	24788	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26867	26977	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24678	24788	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26867	26977	
==>f = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "EL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15204	15403	
==>> 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15204	15403	
==>> 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15204	15403	
==>> 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we ju <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29146	29258	
==>f => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29146	29258	
==>f => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29146	29258	
==>f => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12940	13065	
==>es:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impleme <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12940	13065	
==>es:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impleme <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12940	13065	
==>es:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impleme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	667	770	
==>if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	667	770	
==>if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	667	770	
==>if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4277	4381	
==>b elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contig <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4277	4381	
==>b elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contig <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4277	4381	
==>b elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contig <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1704	1807	
==>r(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1704	1807	
==>r(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1704	1807	
==>r(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "N <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13145	13274	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13145	13274	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13145	13274	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5385	5514	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3885	4014	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2030	2159	
==>ray\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1090	1196	
==>ss {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1090	1196	
==>ss {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1090	1196	
==>ss {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOP <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7779	7885	
==>1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	24	118	
==>1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	24	118	
==>1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	754	860	
==>)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	754	860	
==>)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	754	860	
==>)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25664	25757	
==>s attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, w <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30216	30309	
==>s attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, w <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29182	29275	
==>s attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13191	13334	
==>method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13191	13334	
==>method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13191	13334	
==>method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9400	9498	
==>2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9400	9498	
==>2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9400	9498	
==>2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	505	634	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	505	634	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	505	634	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2682	2796	
==>if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2682	2796	
==>if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2682	2796	
==>if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3570	3669	
==>sion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3570	3669	
==>sion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3570	3669	
==>sion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destro <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34134	34226	
==>invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38684	38776	
==>invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38145	38237	
==>invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17984	18211	
==>) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17984	18211	
==>) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17984	18211	
==>) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10581	10684	
==>{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10581	10684	
==>{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10581	10684	
==>{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3893	3994	
==>mpiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right. <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4226	4327	
==>mpiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3893	3994	
==>mpiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4226	4327	
==>mpiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right. <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	255	346	
==>* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New Li <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	255	346	
==>* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New Li <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1417	1539	
==>ding on the implementing class, it can default to True or 
        # False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4895	5016	
==>ding on the implementing class, it can default to True or
        # False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3825	3946	
==>ding on the implementing class, it can default to True or
        # False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23622	23733	
==>ding on the implementing class, it can default to True or
False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28174	28285	
==>ding on the implementing class, it can default to True or
False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26987	27098	
==>ding on the implementing class, it can default to True or
False, but once it has a value of False, it can not be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1800	1917	
==>s);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1800	1917	
==>s);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1800	1917	
==>s);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!define <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3929	4041	
==>ack, $d);
    return wantarray ? ($next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self->par <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9474	9571	
==>which
may be repeated, and which are printed in a particular order.  The
field names are cases ins <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9474	9571	
==>which
may be repeated, and which are printed in a particular order.  The
field names are cases ins <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21041	21160	
==>>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43965	44084	
==>>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13294	13418	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10578	10702	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13294	13418	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10578	10702	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13294	13418	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10578	10702	
==>>{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5074	5209	
==>egex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5074	5209	
==>egex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5074	5209	
==>egex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14127	14218	
==>:Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14127	14218	
==>:Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14127	14218	
==>:Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22729	22899	
==>SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22729	22899	
==>SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22729	22899	
==>SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	234	341	
==>gs) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	234	341	
==>gs) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	234	341	
==>gs) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS. <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23192	23308	
==>ram => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide(" <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2229	2333	
==>ated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2229	2333	
==>ated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6357	6453	
==>from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6357	6453	
==>from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6357	6453	
==>from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7195	7289	
==>== undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7195	7289	
==>== undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7195	7289	
==>== undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1640	1730	
==>attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1640	1730	
==>attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1640	1730	
==>attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3381	3528	
==>($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3381	3528	
==>($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3381	3528	
==>($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9453	9598	
==>>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9453	9598	
==>>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9453	9598	
==>>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14074	14242	
==>y->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14074	14242	
==>y->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14074	14242	
==>y->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	268	402	
==>ass::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	268	402	
==>ass::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	268	402	
==>ass::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	10	119	
==>gs;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	10	119	
==>gs;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	10	119	
==>gs;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; ma <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11835	11935	
==>all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All N <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11835	11935	
==>all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9111	9203	
==>r and Test::Harness::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15171	15304	
==>nd we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC error <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15171	15304	
==>nd we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC error <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15171	15304	
==>nd we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC error <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18360	18453	
==>...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18360	18453	
==>...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18360	18453	
==>...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15187	15288	
==>nqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Qu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15187	15288	
==>nqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Qu <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11142	11237	
==>cludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an ali <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8546	8641	
==>cludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an ali <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11142	11237	
==>cludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an ali <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8546	8641	
==>cludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an ali <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8132	8266	
==>push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8132	8266	
==>push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8132	8266	
==>push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	806	911	
==>ifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	806	911	
==>ifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	806	911	
==>ifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3987	4098	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6636	6747	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4225	4333	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10674	10782	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4225	4333	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10674	10782	
==>'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14766	14906	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19465	19605	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14766	14906	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19465	19605	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14766	14906	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19465	19605	
==>. ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21914	22034	
==>::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21914	22034	
==>::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21914	22034	
==>::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7748	7852	
==>role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7748	7852	
==>role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7748	7852	
==>role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3986	4091	
==>y a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3986	4091	
==>y a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6965	7069	
==>y a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9035	9139	
==>y a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6965	7069	
==>y a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9035	9139	
==>y a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stev <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	880	1083	
==>onst>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_children(
                                Tree.n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35622	35712	
==>ample $other!) returns Relation::Example>

This multi-method is a generic binary relational <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36719	36809	
==>ample $other!) returns Relation::Example>

This multi-method is a generic binary relational <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37219	37309	
==>ample $other!) returns Relation::Example>

This multi-method is a generic binary relational <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39267	39357	
==>ample $other!) returns Relation::Example>

This multi-method is a generic binary relational <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39815	39905	
==>ample $other!) returns Relation::Example>

This multi-method is a generic binary relational <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8115	8223	
==>ew( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8115	8223	
==>ew( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8115	8223	
==>ew( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10840	10943	
==>ethod has_attribute;
    method get_attribute_list;            
}

------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10840	10943	
==>ethod has_attribute;
    method get_attribute_list;            
}

------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10840	10943	
==>ethod has_attribute;
    method get_attribute_list;            
}

------------------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2344	2486	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27498	27640	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2537	2679	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27777	27919	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	181	279	
==>ll be used
as the base for Perl6's CPAN, also known as sixpan.

Please refer the documentation of t <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18056	18152	
==>.11
      <LogicalANDExpression>
    | <LogicalORExpression> <'||'> <LogicalANDExpression>
}
rule <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10455	10548	
==>hering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $cl <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10455	10548	
==>hering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9453	9576	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7000	7123	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9453	9576	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7000	7123	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9453	9576	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7000	7123	
==>t') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4721	4849	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2908	3036	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4721	4849	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2908	3036	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4721	4849	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2908	3036	
==>ame) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1291	1484	
==>t
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1291	1484	
==>t
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1291	1484	
==>t
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1905	2081	
==>$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2110	2286	
==>$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2173	2349	
==>$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # an <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	571	701	
==>ing () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./asserti <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	571	701	
==>ing () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./asserti <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6540	6636	
==>$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6540	6636	
==>$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.in <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7411	7506	
==>$one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7411	7506	
==>$one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32352	32516	
==>et_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32352	32516	
==>et_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32352	32516	
==>et_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1383	1495	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1383	1495	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1383	1495	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5115	5209	
==>rgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1072	1166	
==>rgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	932	1026	
==>rgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5115	5209	
==>rgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1072	1166	
==>rgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16049	16138	
==>xpressionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>='> <ShiftExpr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10329	10430	
==>------------------------------------    
    method resolve () { "<implemented>" }

    # ------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10352	10453	
==>-------------    
    method resolve () { "<implemented>" }

    # ----------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10329	10430	
==>------------------------------------    
    method resolve () { "<implemented>" }

    # ------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10352	10453	
==>-------------    
    method resolve () { "<implemented>" }

    # ----------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10329	10430	
==>------------------------------------    
    method resolve () { "<implemented>" }

    # ------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10352	10453	
==>-------------    
    method resolve () { "<implemented>" }

    # ----------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	272	389	
==>, $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	272	389	
==>, $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	272	389	
==>, $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5765	5878	
==>{
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5765	5878	
==>{
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5765	5878	
==>{
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      p <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3137	3250	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11060	11173	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6262	6375	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3137	3250	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11060	11173	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6262	6375	
==>$?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	420	606	
==>on_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	420	606	
==>on_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	420	606	
==>on_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	565	668	
==>96000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	565	668	
==>96000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	565	668	
==>96000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24719	24882	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26908	27071	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24719	24882	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26908	27071	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24719	24882	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26908	27071	
==>} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18305	18434	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15543	15672	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18305	18434	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15543	15672	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18305	18434	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15543	15672	
==>label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7634	7743	
==>)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->count( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6853	6958	
==>r($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6853	6958	
==>r($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6853	6958	
==>r($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::M <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8379	8474	
==>This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities. <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8379	8474	
==>This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12131	12335	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12903	13107	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12131	12335	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12903	13107	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12131	12335	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12903	13107	
==>my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3690	3891	
==>method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3690	3891	
==>method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3690	3891	
==>method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14701	14791	
==>:Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14701	14791	
==>:Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14701	14791	
==>:Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2832	2933	
==>urn $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2832	2933	
==>urn $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12065	12161	
==>> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9186	9282	
==>> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12065	12161	
==>> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9186	9282	
==>> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5572	5696	
==>e_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TV <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5572	5696	
==>e_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TV <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2469	2593	
==>e_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TV <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28955	29048	
==>hat become wrapped, and it supports having new tuple-valued
attributes which wrap zero old att <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33507	33600	
==>hat become wrapped, and it supports having new tuple-valued
attributes which wrap zero old att <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32644	32737	
==>hat become wrapped, and it supports having new tuple-valued
attributes which wrap zero old att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4799	4956	
==>ev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $patt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4799	4956	
==>ev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $patt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4799	4956	
==>ev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $patt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1701	1802	
==>ub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of th <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1701	1802	
==>ub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of th <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1937	2038	
==>ub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5779	5878	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8749	8848	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5779	5878	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8749	8848	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5779	5878	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8749	8848	
==>icated in the other ::make_*_method subs below
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9780	9895	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7329	7444	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9780	9895	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7329	7444	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9780	9895	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7329	7444	
==>ator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $cou <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1508	1619	
==>.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstring <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1508	1619	
==>.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstring <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4297	4405	
==>hich we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response f <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4297	4405	
==>hich we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response f <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4808	4914	
==>hich we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response f <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4808	4914	
==>hich we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1522	1677	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1522	1677	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1522	1677	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1398	1518	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "no <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1398	1518	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "no <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1398	1518	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18153	18299	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15391	15537	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18153	18299	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15391	15537	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18153	18299	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15391	15537	
==>sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5905	6004	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5035	5134	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5905	6004	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5035	5134	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	3860	3953	
==>oday", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be pass <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3860	3953	
==>oday", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be pass <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5359	5460	
==>$url argument can
be either a simple string or a reference to a URI object.

You will not be able to e <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5359	5460	
==>$url argument can
be either a simple string or a reference to a URI object.

You will not be able to e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8699	8797	
==>The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, becau <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8699	8797	
==>The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, becau <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8957	9053	
==>The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, becau <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8957	9053	
==>The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, becau <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15956	16103	
==>n{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15956	16103	
==>n{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15956	16103	
==>n{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33774	33903	
==>SAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33774	33903	
==>SAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33774	33903	
==>SAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	470	570	
==>stead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	470	570	
==>stead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	470	570	
==>stead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1636	1730	
==>} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1636	1730	
==>} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1636	1730	
==>} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	230	341	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	228	339	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	230	341	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	228	339	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	230	341	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	228	339	
==>tions build opaque instance
    # variables and access their internal data.
    # This is basically the implemen <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7660	7765	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6790	6895	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3376	3481	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3376	3481	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7660	7765	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6790	6895	
==>one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	512	622	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	512	622	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	512	622	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1411	1513	
==>hift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1411	1513	
==>hift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1411	1513	
==>hift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4008	4141	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4946	5079	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2242	2375	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2488	2621	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3023	3156	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3269	3402	
==>m1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	672	791	
==>_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	672	791	
==>_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	672	791	
==>_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4267	4370	
==>@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4267	4370	
==>@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4267	4370	
==>@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14636	14793	
==>{$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14636	14793	
==>{$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14636	14793	
==>{$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        f <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3692	3789	
==>d pass.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3692	3789	
==>d pass.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3772	3869	
==>d pass.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23941	24033	
==>qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23941	24033	
==>qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23941	24033	
==>qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3600	3712	
==>spatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3600	3712	
==>spatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3600	3712	
==>spatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7696	7799	
==>('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7696	7799	
==>('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7696	7799	
==>('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23519	23693	
==>$elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23519	23693	
==>$elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23519	23693	
==>$elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2074	2162	
==>f->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2074	2162	
==>f->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2074	2162	
==>f->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circum <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6660	6758	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5790	5888	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2444	2542	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2444	2542	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6660	6758	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5790	5888	
==>ors for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($memb <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1633	1730	
==>lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1633	1730	
==>lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1633	1730	
==>lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	966	1047	
==>2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	966	1047	
==>2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	966	1047	
==>2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3628	3747	
==>(use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3628	3747	
==>(use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3628	3747	
==>(use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	470	583	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	470	583	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	470	583	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15261	15370	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12517	12626	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15261	15370	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12517	12626	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15261	15370	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12517	12626	
==>d('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2485	2596	
==>(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2485	2596	
==>(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2485	2596	
==>(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1074	1178	
==>Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * add <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1074	1178	
==>Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * add <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1074	1178	
==>Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * add <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11350	11475	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2862	2987	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11350	11475	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2862	2987	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11350	11475	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2862	2987	
==>r proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4352	4477	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7288	7413	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4352	4477	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7288	7413	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4352	4477	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7288	7413	
==>alues 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3655	3751	
==>stly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3655	3751	
==>stly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3655	3751	
==>stly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! ! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5346	5440	
==>V'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5346	5440	
==>V'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5346	5440	
==>V'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6778	6879	
==>tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=h <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6778	6879	
==>tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8975	9076	
==>tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1262	1390	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1262	1390	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1262	1390	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1554	1681	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1554	1681	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1554	1681	
==>() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1378	1492	
==>st is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1722	1834	
==>st is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1329	1441	
==>st is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1722	1834	
==>st is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4351	4457	
==>onnect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple pr <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4351	4457	
==>onnect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1067	1169	
==>nk it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work bu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1067	1169	
==>nk it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work bu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1067	1169	
==>nk it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1556	1653	
==>rivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1556	1653	
==>rivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1556	1653	
==>rivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	686	786	
==>k on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	686	786	
==>k on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	686	786	
==>k on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17145	17238	
==>1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17145	17238	
==>1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17145	17238	
==>1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5439	5622	
==>ier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token e <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5439	5622	
==>ier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4046	4209	
==>nf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4046	4209	
==>nf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4046	4209	
==>nf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            ' <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10071	10191	
==>os, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3114	3268	
==>) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say', <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7932	8083	
==>xt unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$m <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8396	8547	
==>xt unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1522	1647	
==>VIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1522	1647	
==>VIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1522	1647	
==>VIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10220	10329	
==>y $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10220	10329	
==>y $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10220	10329	
==>y $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	181	284	
==>->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	181	284	
==>->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	181	284	
==>->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	704	804	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1224	1324	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	704	804	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1224	1324	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	704	804	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1224	1324	
==>ay = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STOR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4530	4634	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7466	7570	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4530	4634	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7466	7570	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4530	4634	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7466	7570	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'un <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1443	1543	
==>en though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1443	1543	
==>en though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	701	800	
==>$is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	700	799	
==>$is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	701	800	
==>$is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	700	799	
==>$is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4322	4464	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7258	7400	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4322	4464	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7258	7400	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4322	4464	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7258	7400	
==>nd wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19637	19730	
==>od'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19637	19730	
==>od'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19637	19730	
==>od'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMe <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13642	13806	
==>rg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13642	13806	
==>rg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	149	290	
==>,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description = <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	149	290	
==>,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description = <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11806	11909	
==>TR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11806	11909	
==>TR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4629	4728	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3756	3855	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4629	4728	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3756	3855	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8771	8865	
==>ect using an existing Recurrence object.

- `universal_set()`

Creates an object with a continu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8771	8865	
==>ect using an existing Recurrence object.

- `universal_set()`

Creates an object with a continu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13918	14070	
==>] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13918	14070	
==>] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13918	14070	
==>] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	374	474	
==>5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	374	474	
==>5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	374	474	
==>5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5775	5961	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5775	5961	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5775	5961	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3915	4019	
==>ostcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3915	4019	
==>ostcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3915	4019	
==>ostcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1401	1503	
==>rt for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1401	1503	
==>rt for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1401	1503	
==>rt for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	397	492	
==>oved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	397	492	
==>oved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	397	492	
==>oved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional pa <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1071	1173	
==>ay of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1071	1173	
==>ay of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mod <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26150	26247	
==>od is a generic relational operator that returns a new Relation
which has a subset of the original <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31145	31242	
==>od is a generic relational operator that returns a new Relation
which has a subset of the original <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30702	30799	
==>od is a generic relational operator that returns a new Relation
which has a subset of the original <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35695	35792	
==>od is a generic relational operator that returns a new Relation
which has a subset of the original <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3956	4094	
==>x;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4149	4287	
==>x;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40911	41003	
==>is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26471	26563	
==>is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40911	41003	
==>is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26471	26563	
==>is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5968	6109	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8938	9079	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5968	6109	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8938	9079	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5968	6109	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8938	9079	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	983	1084	
==>lified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	983	1084	
==>lified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	983	1084	
==>lified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4727	4821	
==>valX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4727	4821	
==>valX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4727	4821	
==>valX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PS <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7864	7976	
==>ction:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_as <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	160	269	
==>int getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	160	269	
==>int getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3513	3620	
==>a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3513	3620	
==>a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3513	3620	
==>a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7081	7199	
==>fault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7081	7199	
==>fault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7081	7199	
==>fault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15593	15693	
==>moved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15593	15693	
==>moved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15593	15693	
==>moved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24171	24295	
==>for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24171	24295	
==>for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24171	24295	
==>for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5673	5770	
==>$self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    els <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5673	5770	
==>$self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    els <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6263	6360	
==>$self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    els <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1801	1940	
==>y $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $args = check( $ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1985	2116	
==>ER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box( <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1985	2116	
==>ER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5525	5628	
==>fix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5525	5628	
==>fix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5525	5628	
==>fix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

su <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	491	597	
==><from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	491	597	
==><from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9009	9105	
==>y }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9009	9105	
==>y }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9009	9105	
==>y }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.r <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	799	884	
==>------------------------------------
# Regexps
# ------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13226	13341	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10510	10625	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13226	13341	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10510	10625	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13226	13341	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10510	10625	
==>not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11318	11434	
==>$arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11318	11434	
==>$arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11318	11434	
==>$arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	278	374	
==>hod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	278	374	
==>hod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	278	374	
==>hod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16277	16441	
==>$class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16277	16441	
==>$class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16277	16441	
==>$class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11352	11487	
==>de->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11352	11487	
==>de->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11352	11487	
==>de->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	356	506	
==>lass   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    che <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	840	990	
==>lass   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    che <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	258	404	
==>lass = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    che <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	193	291	
==>l based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	193	291	
==>l based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	193	291	
==>l based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5665	5786	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8635	8756	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5665	5786	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8635	8756	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5665	5786	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8635	8756	
==>eing passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10230	10363	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7781	7914	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10230	10363	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7781	7914	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10230	10363	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7781	7914	
==>he current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ... <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3910	4003	
==>currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3910	4003	
==>currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6890	6982	
==>currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8960	9052	
==>currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6890	6982	
==>currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8960	9052	
==>currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of peop <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10848	11013	
==>urn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10848	11013	
==>urn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10848	11013	
==>urn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->par <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5851	5982	
==>ne(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5851	5982	
==>ne(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	795	899	
==>->whitespaceOperatorTable({}); 
  $object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6975	7104	
==>params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %para <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6975	7104	
==>params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %para <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6975	7104	
==>params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5373	5469	
==>efined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5373	5469	
==>efined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5373	5469	
==>efined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2854	2962	
==>am{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2854	2962	
==>am{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2854	2962	
==>am{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19440	19532	
==>n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19440	19532	
==>n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19440	19532	
==>n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24803	24901	
==>OODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If yo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23567	23665	
==>OODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If yo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24803	24901	
==>OODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If yo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23567	23665	
==>OODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If yo <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12172	12266	
==>ties($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acir <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12172	12266	
==>ties($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	119	233	
==>:Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	119	233	
==>:Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	119	233	
==>:Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	118	231	
==>:Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	118	231	
==>:Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	118	231	
==>:Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These function <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14452	14637	
==>.
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14452	14637	
==>.
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14452	14637	
==>.
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .d <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28919	29013	
==>g the same names as old
attributes that become wrapped, and it supports having new tuple-valued <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33471	33565	
==>g the same names as old
attributes that become wrapped, and it supports having new tuple-valued <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32608	32702	
==>g the same names as old
attributes that become wrapped, and it supports having new tuple-valued <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16078	16249	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20795	20966	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16078	16249	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20795	20966	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16078	16249	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20795	20966	
==>sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11593	11706	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2587	2700	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7681	7794	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11593	11706	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2587	2700	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7681	7794	
==>H' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	214	316	
==>pe () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents t <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	214	316	
==>pe () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents t <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39577	39667	
==>erved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39577	39667	
==>erved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24301	24390	
==>erved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24301	24390	
==>erved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2753	2859	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5401	5507	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2753	2859	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5401	5507	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2753	2859	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5401	5507	
==>ntainer type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	721	825	
==>h::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	721	825	
==>h::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dump <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19011	19103	
==>es to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the const <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18045	18137	
==>es to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the const <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19011	19103	
==>es to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the const <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18045	18137	
==>es to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the const <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12900	13055	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12900	13055	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12900	13055	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14001	14149	
==>{op1}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1525	1634	
==>_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1525	1634	
==>_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12825	13048	
==>e eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12825	13048	
==>e eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12825	13048	
==>e eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1986	2088	
==>e PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1986	2088	
==>e PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1986	2088	
==>e PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12948	13067	
==>length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12948	13067	
==>length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12948	13067	
==>length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14292	14376	
==>::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14292	14376	
==>::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14292	14376	
==>::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6924	7054	
==>st_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Che <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11479	11609	
==>st_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Che <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12277	12407	
==>st_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Che <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13004	13134	
==>st_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Che <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9518	9622	
==>xt;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Modu <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9518	9622	
==>xt;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Modu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9548	9665	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7095	7212	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9548	9665	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7095	7212	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9548	9665	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7095	7212	
==>q ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2120	2246	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1232	1358	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2120	2246	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1232	1358	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2120	2246	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1232	1358	
==>bmethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10260	10404	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7811	7955	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10260	10404	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7811	7955	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10260	10404	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7811	7955	
==>erator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	429	534	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	649	754	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	429	534	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	649	754	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	429	534	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	649	754	
==>r_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2146	2259	
==>5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2146	2259	
==>5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compile <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1378	1486	
==>5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3239	3347	
==>5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compile <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14149	14242	
==>the recommended "Good Practice" order.

Any return values of the callback routine are ignored. <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14149	14242	
==>the recommended "Good Practice" order.

Any return values of the callback routine are ignored. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12546	12642	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10097	10193	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12546	12642	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10097	10193	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12546	12642	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10097	10193	
==>paque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9605	9716	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12578	12689	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9605	9716	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12578	12689	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9605	9716	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12578	12689	
==>d dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9444	9554	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6991	7101	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9444	9554	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6991	7101	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9444	9554	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6991	7101	
==>descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':asc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2518	2641	
==>ion (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2518	2641	
==>ion (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2518	2641	
==>ion (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16071	16179	
==>b {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16071	16179	
==>b {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16071	16179	
==>b {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	53	151	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	49	147	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	57	155	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	51	149	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	50	148	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	51	149	
==>warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Gra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3041	3210	
==>ub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3041	3210	
==>ub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3041	3210	
==>ub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1043	1187	
==>urservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1043	1187	
==>urservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         i <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	62	160	
==>gs) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitung
	return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2392	2489	
==>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2392	2489	
==>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2392	2489	
==>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9617	9709	
==>_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9617	9709	
==>_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9617	9709	
==>_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4838	4983	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5799	5944	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4838	4983	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5799	5944	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4838	4983	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5799	5944	
==>erl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5665	5786	
==>:/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub glo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5665	5786	
==>:/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub glo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5665	5786	
==>:/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub glo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1027	1128	
==>ody, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1027	1128	
==>ody, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1027	1128	
==>ody, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10433	10565	
==>atch;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10427	10559	
==>atch;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	162	279	
==>ier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %eve <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	162	279	
==>ier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %eve <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	162	279	
==>ier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %eve <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	162	279	
==>ier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %eve <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5227	5353	
==>ion( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8704	8830	
==>ion( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7724	7850	
==>ion( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	597	711	
==>alidity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1081	1195	
==>alidity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	70	155	
==>::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5::X1:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8172	8287	
==>@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8172	8287	
==>@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8172	8287	
==>@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10012	10110	
==>se PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10012	10110	
==>se PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10012	10110	
==>se PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PI <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17280	17380	
==>ing );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20757	20857	
==>ing );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20335	20435	
==>ing );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2821	2918	
==>}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2821	2918	
==>}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2821	2918	
==>}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippin <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17122	17221	
==>=> /\w/

There are other possibilities as well.

=back

=head1 HISTORY

=head2 0.022b -- July 6, 200 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5101	5192	
==>ompiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and othe <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1058	1149	
==>ompiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and othe <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	918	1009	
==>ompiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and othe <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5101	5192	
==>ompiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and othe <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1058	1149	
==>ompiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and othe <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19363	19463	
==>tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23915	24015	
==>tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22431	22531	
==>tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	252	347	
==>c   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	252	347	
==>c   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	252	347	
==>c   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	276	382	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	274	380	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	276	382	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	274	380	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	276	382	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	274	380	
==>d access their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5280	5420	
==>'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1934	2074	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        las <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5280	5420	
==>'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1934	2074	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        las <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1934	2074	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        las <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12364	12467	
==>usly) look for the flag value,
  and call the original Perl_ funcs if it is not present.

Risks:

  Tryi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11452	11639	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9005	9192	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11452	11639	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9005	9192	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11452	11639	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9005	9192	
==>t_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6376	6519	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8825	8968	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6376	6519	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8825	8968	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6376	6519	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8825	8968	
==>e lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4666	4768	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7602	7704	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4666	4768	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7602	7704	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4666	4768	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7602	7704	
==>associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must assoc <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	7410	7517	
==>OSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected" <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7468	7575	
==>OSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected" <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2980	3083	
==>either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0be <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3137	3240	
==>either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0be <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2980	3083	
==>either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0be <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3137	3240	
==>either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7243	7381	
==>arn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7243	7381	
==>arn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7243	7381	
==>arn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1427	1536	
==>If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1427	1536	
==>If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1427	1536	
==>If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3951	4139	
==>ass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1466	1576	
==>{ $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1466	1576	
==>{ $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1466	1576	
==>{ $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23803	23895	
==>Text is generally a simpler solution
than alternatives, and doesn't know about language speci <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23803	23895	
==>Text is generally a simpler solution
than alternatives, and doesn't know about language speci <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6173	6360	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6173	6360	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6173	6360	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3646	3832	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3646	3832	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3646	3832	
==>->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7907	8042	
==>ad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7907	8042	
==>ad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7907	8042	
==>ad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12826	12934	
==>ying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12826	12934	
==>ying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12826	12934	
==>ying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5599	5727	
==>io });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5599	5727	
==>io });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5599	5727	
==>io });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28718	28836	
==>eop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::te <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	729	847	
==>'$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw[reposit <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28997	29115	
==>eop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3493	3610	
==>ened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3493	3610	
==>ened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3493	3610	
==>ened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12929	13038	
==>ened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12929	13038	
==>ened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12929	13038	
==>ened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8890	8997	
==>x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8890	8997	
==>x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8890	8997	
==>x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2823	2921	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2823	2921	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2823	2921	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	823	947	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	911	1035	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	823	947	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	911	1035	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	823	947	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	911	1035	
==>{
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --op <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2782	2918	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5772	5908	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3074	3201	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9492	9619	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3074	3201	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9492	9619	
==>() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5161	5265	
==>ix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clon <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5161	5265	
==>ix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clon <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5161	5265	
==>ix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clon <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6266	6362	
==>ilder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handl <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6266	6362	
==>ilder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8463	8559	
==>ilder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5914	6047	
==>bute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5914	6047	
==>bute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5914	6047	
==>bute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4300	4402	
==>$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4300	4402	
==>$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4890	4992	
==>$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7965	8125	
==>e a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) & <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7965	8125	
==>e a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) & <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7965	8125	
==>e a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6227	6318	
==>x) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6227	6318	
==>x) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6227	6318	
==>x) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ( <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	13590	13700	
==>};

	die "no such identifier " . $.v unless defined $t;
	
	$t;
}

# values also pass the set of generics unchan <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3295	3392	
==>r $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3295	3392	
==>r $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7737	7841	
==>w();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_nee <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7737	7841	
==>w();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_nee <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7737	7841	
==>w();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_nee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2414	2511	
==>bject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2414	2511	
==>bject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2414	2511	
==>bject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClas <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1097	1216	
==>$i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $s <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4336	4455	
==>$i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1097	1216	
==>$i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4336	4455	
==>$i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18484	18589	
==>isspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s r <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18484	18589	
==>isspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	683	798	
==>hy this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	683	798	
==>hy this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	683	798	
==>hy this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2005	2105	
==>erl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2005	2105	
==>erl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2005	2105	
==>erl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5677	5876	
==>("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $li <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3038	3237	
==>("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $li <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5677	5876	
==>("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $li <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3038	3237	
==>("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $li <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5993	6118	
==>] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5981	6106	
==>] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1807	1913	
==>.} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1807	1913	
==>.} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1807	1913	
==>.} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17268	17364	
==>IPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implement <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17268	17364	
==>IPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implement <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17268	17364	
==>IPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implement <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18852	18976	
==>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18852	18976	
==>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18852	18976	
==>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5035	5132	
==>description = '' )>

Records that a test has passed or failed, depending on the value of C<$passed <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5035	5132	
==>description = '' )>

Records that a test has passed or failed, depending on the value of C<$passed <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6559	6656	
==>description = '' )>

Records that a test has passed or failed, depending on the value of C<$passed <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	158	570	
==>0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # N <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	158	570	
==>0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # N <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2433	2531	
==>CKAGE__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::Test <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12371	12532	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12371	12532	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12371	12532	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12901	13061	
==>ts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12901	13061	
==>ts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12901	13061	
==>ts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3719	3846	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6655	6782	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3719	3846	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6655	6782	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3719	3846	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6655	6782	
==>{
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30499	30637	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32213	32351	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30499	30637	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32213	32351	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30499	30637	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32213	32351	
==>>= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3360	3466	
==>ty || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3360	3466	
==>ty || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3360	3466	
==>ty || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4303	4403	
==>verlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('over <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4303	4403	
==>verlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('over <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4303	4403	
==>verlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('over <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12774	12890	
==>( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12774	12890	
==>( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12774	12890	
==>( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4591	4686	
==>Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4591	4686	
==>Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4591	4686	
==>Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new n <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16802	16951	
==>dent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4515	4624	
==>pan;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4515	4624	
==>pan;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20684	20788	
==>:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTIO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20684	20788	
==>:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTIO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20684	20788	
==>:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTIO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1818	1931	
==>w_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1818	1931	
==>w_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1818	1931	
==>w_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11354	11510	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8907	9063	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11354	11510	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8907	9063	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11354	11510	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8907	9063	
==>tack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35936	36074	
==>( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35936	36074	
==>( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35936	36074	
==>( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5105	5201	
==>ly output the input PIL as YAML; don't compile anything.

When compiling (--link option not given <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5105	5201	
==>ly output the input PIL as YAML; don't compile anything.

When compiling (--link option not given <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5105	5201	
==>ly output the input PIL as YAML; don't compile anything.

When compiling (--link option not given <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2456	2555	
==>'::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2456	2555	
==>'::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2456	2555	
==>'::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21785	21882	
==>r/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internal <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21785	21882	
==>r/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internal <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21785	21882	
==>r/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1703	1824	
==>r")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1703	1824	
==>r")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1703	1824	
==>r")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	652	769	
==>qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	652	769	
==>qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	652	769	
==>qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2942	3083	
==>initialized );
    return sub {
        my $bool = $const eq substr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ 
                bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2443	2561	
==>1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ( <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2443	2561	
==>1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ( <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2790	2908	
==>1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ( <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7260	7374	
==>);
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_compl <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7260	7374	
==>);
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_compl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7116	7253	
==>inite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not im <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7116	7253	
==>inite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not im <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7116	7253	
==>inite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	877	984	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	877	984	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	877	984	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1025	1120	
==>ay of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1025	1120	
==>ay of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1025	1120	
==>ay of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3935	4027	
==>ane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3935	4027	
==>ane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3935	4027	
==>ane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	756	920	
==>xt.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	756	920	
==>xt.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	756	920	
==>xt.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3309	3403	
==>output of tests,
running those tests, and then telling this module to compare the received
outp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3309	3403	
==>output of tests,
running those tests, and then telling this module to compare the received
outp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3389	3483	
==>output of tests,
running those tests, and then telling this module to compare the received
outp <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	526	670	
==>=> %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	526	670	
==>=> %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	95	190	
==>racking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unuse <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	95	190	
==>racking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unuse <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24177	24267	
==>contrast, Locale::KeyedText does no compile time binding and
will support multiple language <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24177	24267	
==>contrast, Locale::KeyedText does no compile time binding and
will support multiple language <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	906	1033	
==>e eq 'message-map';        
        
        # alias prototype to some common names for super
        return $table->{prototype} <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	66	161	
==>es.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet kno <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	66	161	
==>es.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet kno <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5789	5882	
==>-link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5789	5882	
==>-link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5789	5882	
==>-link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2998	3133	
==>an:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2998	3133	
==>an:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2998	3133	
==>an:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1359	1462	
==>":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1359	1462	
==>":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1359	1462	
==>":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16873	17005	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17152	17284	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1843	1954	
==>re too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$remainder) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1770	1876	
==>re too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$remainder) <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22446	22541	
==>a program package would return a code-key to indicate a
condition, often it will also provide so <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22446	22541	
==>a program package would return a code-key to indicate a
condition, often it will also provide so <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3034	3188	
==>iler::Regex->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	490	587	
==>onstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1035	1132	
==>onstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	490	587	
==>onstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1035	1132	
==>onstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1035	1132	
==>onstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	251	361	
==>b is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	251	361	
==>b is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	251	361	
==>b is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2821	2922	
==>(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2821	2922	
==>(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2821	2922	
==>(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3356	3477	
==>at});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3356	3477	
==>at});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3356	3477	
==>at});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1219	1316	
==>litter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1219	1316	
==>litter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1219	1316	
==>litter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    fu <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17347	17469	
==>$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13768	13890	
==>$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      } <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18287	18379	
==>ormat between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, th <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18287	18379	
==>ormat between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, th <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13192	13283	
==>ormat between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, th <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13192	13283	
==>ormat between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, th <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5298	5429	
==>erse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5298	5429	
==>erse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18095	18194	
==>ndant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21352	21451	
==>ndant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41360	41459	
==>ndant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44259	44358	
==>ndant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2398	2513	
==>e' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2398	2513	
==>e' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2745	2860	
==>e' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7216	7309	
==>Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7216	7309	
==>Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7216	7309	
==>Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	78	189	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	73	184	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	78	189	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	73	184	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	78	189	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	73	184	
==>my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13076	13215	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13076	13215	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13076	13215	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5316	5455	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3816	3955	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1961	2100	
==>0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16540	16642	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13745	13847	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16540	16642	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13745	13847	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16540	16642	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13745	13847	
==>self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1450	1566	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3013	3129	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1450	1566	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3013	3129	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1450	1566	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3013	3129	
==>$?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	916	1040	
==>instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	916	1040	
==>instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	916	1040	
==>instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	52	171	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	47	166	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	52	171	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	47	166	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	52	171	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	47	166	
==>se strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30440	30589	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32154	32303	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30440	30589	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32154	32303	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30440	30589	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32154	32303	
==>calar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12577	12684	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10128	10235	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12577	12684	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10128	10235	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12577	12684	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10128	10235	
==>my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8499	8610	
==>rammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9334	9445	
==>rammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	510	612	
==>^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8777	8878	
==>^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8777	8878	
==>^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8777	8878	
==>^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10141	10272	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12782	12913	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13618	13749	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16259	16390	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12899	13030	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15621	15752	
==>e.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	627	738	
==>mal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Mes <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	627	738	
==>mal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Mes <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23746	23840	
==>f.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference bet <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22519	22613	
==>f.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference bet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23746	23840	
==>f.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference bet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22519	22613	
==>f.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference bet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1293	1423	
==>, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1293	1423	
==>, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1293	1423	
==>, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	185	298	
==>j = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	185	298	
==>j = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	185	298	
==>j = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7686	7829	
==>name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' } <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7686	7829	
==>name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11991	12096	
==>record the time the last traffic from the server was seen, so we can
      # autoping the server if needed <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11991	12096	
==>record the time the last traffic from the server was seen, so we can
      # autoping the server if needed <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11168	11271	
==>record the time the last traffic from the server was seen, so we can
    # autoping the server if needed <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11168	11271	
==>record the time the last traffic from the server was seen, so we can
    # autoping the server if needed <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	335	450	
==>= JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	335	450	
==>= JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	335	450	
==>= JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8196	8278	
==>H: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8196	8278	
==>H: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8196	8278	
==>H: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2145	2257	
==>ew(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2145	2257	
==>ew(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2145	2257	
==>ew(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	903	1005	
==>d. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	903	1005	
==>d. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	903	1005	
==>d. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14448	14591	
==>use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14448	14591	
==>use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14448	14591	
==>use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1305	1405	
==>»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "inf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1305	1405	
==>»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "inf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1305	1405	
==>»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12783	12907	
==>'$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12783	12907	
==>'$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12783	12907	
==>'$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18409	18505	
==>TI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18409	18505	
==>TI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18409	18505	
==>TI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	1847	1994	
==>ur header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    P <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1847	1994	
==>ur header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2645	2746	
==>ay.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2645	2746	
==>ay.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1854	1952	
==>ay.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3715	3813	
==>ay.

This program is free software; you can redistribute it and/or modify it
under the same terms a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3557	3681	
==>>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3557	3681	
==>>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3557	3681	
==>>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3164	3284	
==>my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3164	3284	
==>my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3164	3284	
==>my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11352	11503	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8905	9056	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11352	11503	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8905	9056	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11352	11503	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8905	9056	
==>$stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is ex <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2123	2221	
==>$depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns B <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2181	2279	
==>$depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns B <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	492	581	
==>ntent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1105	1194	
==>ntent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\ <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	492	581	
==>ntent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\ <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1105	1194	
==>ntent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30187	30314	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31916	32043	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30187	30314	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31916	32043	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30187	30314	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31916	32043	
==>ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8887	9052	
==>e really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8887	9052	
==>e really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8887	9052	
==>e really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2805	2910	
==>my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2805	2910	
==>my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2805	2910	
==>my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2071	2186	
==>e: $0 [options]

$0 creates a very minimalistic Pugs Live CD.
It fetches kernel and GRUB from a public server (which <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1452	1554	
==>DO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1452	1554	
==>DO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1452	1554	
==>DO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26603	26696	
==>tion's header, in which case it returns the identity-one
Relation or the invocant Relation res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31155	31248	
==>tion's header, in which case it returns the identity-one
Relation or the invocant Relation res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8802	8969	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6355	6522	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8802	8969	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6355	6522	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8802	8969	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6355	6522	
==>uperclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10874	11002	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12345	12473	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14351	14479	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15822	15950	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9893	10009	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13370	13486	
==>() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	139	274	
==>{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fla <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	181	316	
==>{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	139	274	
==>{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	181	316	
==>{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fla <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1703	1798	
==>lti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1703	1798	
==>lti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5022	5111	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3250	3339	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5022	5111	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3250	3339	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5022	5111	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3250	3339	
==>rn undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3142	3263	
==>qual = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    rule $equal { " .
            emit_perl6_rule($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	300	405	
==>6::Core::Bit;

# comparisons

# implement this and get the rest for free
# NOTE: 
# compare returns a nati <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24195	24293	
==>.  This is typically used by automatons
  (clients with either an AI or other interactive program c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22968	23066	
==>.  This is typically used by automatons
  (clients with either an AI or other interactive program c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24195	24293	
==>.  This is typically used by automatons
  (clients with either an AI or other interactive program c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22968	23066	
==>.  This is typically used by automatons
  (clients with either an AI or other interactive program c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3352	3583	
==>$ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3221	3440	
==>$ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17868	17963	
==>$rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14289	14384	
==>$rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	852	942	
==>describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	852	942	
==>describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4223	4350	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6872	6999	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4455	4579	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10904	11028	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4455	4579	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10904	11028	
==>match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	776	910	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	864	998	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	776	910	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	864	998	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	776	910	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	864	998	
==>GV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } els <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4870	4990	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7519	7639	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5084	5198	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11533	11647	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5084	5198	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11533	11647	
==>ture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14053	14151	
==>patcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14053	14151	
==>patcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14053	14151	
==>patcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" u <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7763	8010	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7763	8010	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13871	14019	
==>$end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3984	4116	
==>$end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3984	4116	
==>$end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3984	4116	
==>$end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_d <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1309	1429	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3605	3725	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1309	1429	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3605	3725	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	463	557	
==>filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method result <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	463	557	
==>filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method result <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	185	308	
==>$want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	185	308	
==>$want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	185	308	
==>$want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	529	622	
==>:bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	529	622	
==>:bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	529	622	
==>:bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12097	12213	
==>= shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    ble <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12097	12213	
==>= shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    ble <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12097	12213	
==>= shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    ble <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11315	11413	
==>hod; specifically, in the case
of a sub-class that adds a handler, the qr() method is used to produ <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3317	3413	
==>t_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    m <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3317	3413	
==>t_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1334	1447	
==>m->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

su <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	744	856	
==>m->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
su <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4125	4227	
==>i sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3252	3354	
==>i sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4125	4227	
==>i sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3252	3354	
==>i sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7257	7372	
==>sibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7257	7372	
==>sibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7257	7372	
==>sibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6856	6947	
==>e('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6856	6947	
==>e('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6856	6947	
==>e('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18290	18418	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15528	15656	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18290	18418	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15528	15656	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18290	18418	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15528	15656	
==>namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30126	30267	
==>_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30126	30267	
==>_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30126	30267	
==>_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31856	31996	
==>_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31856	31996	
==>_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31856	31996	
==>_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9610	9721	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12583	12694	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9610	9721	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12583	12694	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9610	9721	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12583	12694	
==>patcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6157	6252	
==>) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6157	6252	
==>) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6157	6252	
==>) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4055	4156	
==>"--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4055	4156	
==>"--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4055	4156	
==>"--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2574	2669	
==>lf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2574	2669	
==>lf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2574	2669	
==>lf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1936	2049	
==>LS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1936	2049	
==>LS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1936	2049	
==>LS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1938	2025	
==>t everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1938	2025	
==>t everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1938	2025	
==>t everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	356	499	
==>,
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	356	499	
==>,
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	356	499	
==>,
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12768	12852	
==>ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@I <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12768	12852	
==>ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@I <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12768	12852	
==>ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1452	1553	
==>my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1452	1553	
==>my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1452	1553	
==>my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	295	394	
==>my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	295	394	
==>my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	295	394	
==>my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	677	781	
==>,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	677	781	
==>,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	677	781	
==>,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2731	2823	
==>d1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as wel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2731	2823	
==>d1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as wel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3078	3170	
==>d1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as wel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31016	31186	
==>ms > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31016	31186	
==>ms > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31016	31186	
==>ms > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4539	4671	
==>m [ " . join( ' | ', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n";
    }
    return @rules;
}

1;

__ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36893	36988	
==>f Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36893	36988	
==>f Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4537	4635	
==>d` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4537	4635	
==>d` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14510	14595	
==>rrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cel <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14510	14595	
==>rrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cel <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14510	14595	
==>rrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5117	5274	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8087	8244	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5117	5274	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8087	8244	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5117	5274	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8087	8244	
==>$::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13288	13396	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10572	10680	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13288	13396	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10572	10680	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13288	13396	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10572	10680	
==>arams->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6267	6403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6267	6403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6267	6403	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6319	6441	
==>:List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6319	6441	
==>:List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6319	6441	
==>:List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	503	604	
==>se\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8770	8870	
==>se\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8770	8870	
==>se\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8770	8870	
==>se\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1881	1973	
==>omprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses ( <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1881	1973	
==>omprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	256	367	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	254	365	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	256	367	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	254	365	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	256	367	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	254	365	
==>e
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1359	1491	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2325	2457	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1359	1491	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2325	2457	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1359	1491	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2325	2457	
==>atcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	284	441	
==>{ }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            p <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	284	441	
==>{ }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8383	8521	
==>lse {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8383	8521	
==>lse {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8383	8521	
==>lse {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3563	3672	
==>str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2993	3116	
==>(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2993	3116	
==>(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2993	3116	
==>(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1721	1822	
==>pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1721	1822	
==>pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1721	1822	
==>pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12515	12620	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14397	14502	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12515	12620	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14397	14502	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12515	12620	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14397	14502	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops} <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3818	3929	
==>an :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=h <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3818	3929	
==>an :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5342	5453	
==>an :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=h <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7921	8055	
==>md, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13515	13649	
==>md, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7921	8055	
==>md, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13509	13643	
==>md, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9656	9746	
==>HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following metho <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9656	9746	
==>HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following metho <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	1244	1390	
==>3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=h <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1244	1390	
==>3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=h <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16624	16738	
==>"Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16624	16738	
==>"Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6289	6380	
==>!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6289	6380	
==>!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $even <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17267	17414	
==>> 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') characte <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17267	17414	
==>> 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') characte <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10647	10788	
==>::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$fagain);
      };
      goto &$fmin;
    };        
  }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	850	971	
==>) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	850	971	
==>) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	850	971	
==>) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1418	1517	
==>n bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName}, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1418	1517	
==>n bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName}, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1418	1517	
==>n bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName}, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17344	17439	
==>rl interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17344	17439	
==>rl interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7214	7372	
==>items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7214	7372	
==>items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7214	7372	
==>items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1538	1645	
==>l6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1538	1645	
==>l6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1538	1645	
==>l6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6629	6751	
==>hod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6629	6751	
==>hod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6629	6751	
==>hod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10658	10768	
==>_type;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self= <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2306	2414	
==>match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $stat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2446	2554	
==>match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $stat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41078	41180	
==>rray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41078	41180	
==>rray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41078	41180	
==>rray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4494	4594	
==>command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_li <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4494	4594	
==>command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_li <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4494	4594	
==>command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3265	3374	
==>s) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3265	3374	
==>s) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3265	3374	
==>s) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7811	7925	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10734	10848	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7811	7925	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10734	10848	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7811	7925	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10734	10848	
==>pecial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_ <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	232	356	
==>} or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16434	16553	
==>some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16434	16553	
==>some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10957	11066	
==>orary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11107	11216	
==>orary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40367	40462	
==>es and the date of any
changes, in addition to preserving this original copyright notice and oth <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25891	25986	
==>es and the date of any changes, in
addition to preserving this original copyright notice and oth <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40367	40462	
==>es and the date of any
changes, in addition to preserving this original copyright notice and oth <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25891	25986	
==>es and the date of any changes, in
addition to preserving this original copyright notice and oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13561	13694	
==>ay->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13561	13694	
==>ay->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13561	13694	
==>ay->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39556	39667	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39556	39667	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39556	39667	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	711	863	
==>lled"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$" <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1291	1413	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3587	3709	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1291	1413	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3587	3709	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9417	9514	
==>ath::BigInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**1 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6980	7077	
==>channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6980	7077	
==>channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7329	7424	
==>channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7329	7424	
==>channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21241	21335	
==>rs installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=hea <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21241	21335	
==>rs installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6099	6210	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9069	9180	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6099	6210	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9069	9180	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6099	6210	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9069	9180	
==>make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9613	9724	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12586	12697	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9613	9724	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12586	12697	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9613	9724	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12586	12697	
==>cher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6057	6205	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9027	9175	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6057	6205	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9027	9175	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6057	6205	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9027	9175	
==>thod => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => ' <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28177	28275	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29188	29286	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32729	32827	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33740	33838	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31839	31937	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32886	32984	
==>ethod has not yet been implemented.>

This method is a generic relational operator that returns a n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7862	7980	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10785	10903	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7862	7980	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10785	10903	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7862	7980	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10785	10903	
==>ridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12	113	
==>erl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12	113	
==>erl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12	113	
==>erl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12	112	
==>erl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12	112	
==>erl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12	112	
==>erl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Sc <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11891	12001	
==>} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12314	12424	
==>} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4534	4644	
==>} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4957	5067	
==>} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11030	11125	
==>yed by your program.  It is analagous to a simplified version of the
"Document" interface define <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11030	11125	
==>yed by your program.  It is analagous to a simplified version of the
"Document" interface define <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3075	3184	
==>elf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3075	3184	
==>elf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3075	3184	
==>elf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12754	12847	
==>3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_post <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12754	12847	
==>3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_post <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12754	12847	
==>3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_post <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19445	19555	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16677	16787	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19445	19555	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16677	16787	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19445	19555	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16677	16787	
==>ot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the names <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3052	3170	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10975	11093	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6177	6295	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3052	3170	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10975	11093	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6177	6295	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3800	3905	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4053	4158	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4498	4603	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3800	3905	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4053	4158	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4498	4603	
==>($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9124	9254	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12097	12227	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9124	9254	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12097	12227	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9124	9254	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12097	12227	
==>A = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Met <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2154	2318	
==>trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <sig <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2154	2318	
==>trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <sig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3136	3240	
==>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3136	3240	
==>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3136	3240	
==>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_clas <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43357	43452	
==>eference implementation of a Relation class.

These other Perl 6 packages also work in the probl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15257	15409	
==>'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15251	15403	
==>'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48710	48838	
==>->send('add_method' => (
    # method label
        symbol->new('version'),
    # method body
        method->new(
            $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4045	4136	
==>$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4045	4136	
==>$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4045	4136	
==>$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3440	3558	
==>name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3440	3558	
==>name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3440	3558	
==>name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21153	21248	
==>SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21153	21248	
==>SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21153	21248	
==>SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1309	1431	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2872	2994	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1309	1431	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2872	2994	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1309	1431	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2872	2994	
==>his is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14397	14565	
==>( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14397	14565	
==>( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14397	14565	
==>( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2257	2367	
==>@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2257	2367	
==>@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2257	2367	
==>@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2854	2976	
==>x:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2854	2976	
==>x:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2854	2976	
==>x:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12894	13007	
==>::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12894	13007	
==>::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12894	13007	
==>::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11011	11136	
==>idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11011	11136	
==>idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11011	11136	
==>idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	566	666	
==>ch my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	566	666	
==>ch my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	566	666	
==>ch my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10072	10195	
==>slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10072	10195	
==>slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10072	10195	
==>slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	833	935	
==>ss;
}

=head1 NAME

Newton - performs one dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	9	102	
==>e::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is th <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	9	102	
==>e::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30506	30643	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32220	32357	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30506	30643	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32220	32357	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30506	30643	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32220	32357	
==>gth;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2645	2758	
==>y @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    whi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2645	2758	
==>y @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    whi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2645	2758	
==>y @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    whi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3512	3616	
==>ETH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3512	3616	
==>ETH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34058	34152	
==>ould be represented in Perl with a
look-ahead around the left-hand branch: C</(?=x)y/>.  We can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6161	6283	
==>Attribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6161	6283	
==>Attribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6161	6283	
==>Attribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3226	3347	
==>Attribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3226	3347	
==>Attribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3226	3347	
==>Attribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15547	15682	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12803	12938	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15547	15682	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12803	12938	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15547	15682	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12803	12938	
==>ance_attr($self => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3481	3629	
==>0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{mat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3481	3629	
==>0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{mat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3481	3629	
==>0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9014	9150	
==>method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9014	9150	
==>method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9014	9150	
==>method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	509	704	
==>k;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	509	704	
==>k;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	509	704	
==>k;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	281	424	
==>w' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	281	424	
==>w' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	281	424	
==>w' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10436	10592	
==>';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10436	10592	
==>';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10436	10592	
==>';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1116	1205	
==>lude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1116	1205	
==>lude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1116	1205	
==>lude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undef <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	952	1105	
==>if ( $opt->{precedence} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4393	4537	
==>n = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn " <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4393	4537	
==>n = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22776	22869	
==>6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22776	22869	
==>6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22776	22869	
==>6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5856	5971	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8826	8941	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5856	5971	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8826	8941	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5856	5971	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8826	8941	
==>sed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11233	11421	
==>h' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->n <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11233	11421	
==>h' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->n <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11233	11421	
==>h' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->n <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3279	3432	
==>n(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssi <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3279	3432	
==>n(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	35	132	
==>Control;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement t <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5004	5220	
==>tart an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the to <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5004	5220	
==>tart an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the to <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11345	11536	
==>iscardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11345	11536	
==>iscardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4402	4514	
==>pop @r if $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14813	14914	
==>rn $S->force_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_ha <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17872	17996	
==>Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    auto <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16910	17034	
==>Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    auto <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17872	17996	
==>Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    auto <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16910	17034	
==>Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    auto <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	639	754	
==>class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other a <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1123	1238	
==>class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7534	7728	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5093	5287	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7534	7728	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5093	5287	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7534	7728	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5093	5287	
==>qs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18309	18440	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15547	15678	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18309	18440	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15547	15678	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18309	18440	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15547	15678	
==>l};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	631	772	
==>est/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	666	807	
==>est/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	631	772	
==>est/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($s <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9848	9989	
==>est/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($s <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1104	1245	
==>est/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($s <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10985	11079	
==>l; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$code <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15317	15437	
==>ntrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.fl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15317	15437	
==>ntrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.fl <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14390	14495	
==>s.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12360	12449	
==>ut hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12360	12449	
==>ut hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12360	12449	
==>ut hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11096	11233	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8649	8786	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11096	11233	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8649	8786	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11096	11233	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8649	8786	
==>_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8113	8259	
==>ift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7835	7972	
==>ift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	946	1070	
==>);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	946	1070	
==>);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	946	1070	
==>);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::In <==
6	/Users/nnunley/pugs/util/addauthors.pl	320	420	
==>t "$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print Dumper $authors;

foreach my $c (so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6496	6630	
==>->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6496	6630	
==>->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6496	6630	
==>->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4474	4568	
==>and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4474	4568	
==>and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5998	6092	
==>and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7332	7504	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4891	5063	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7332	7504	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4891	5063	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7332	7504	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4891	5063	
==>and; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            for <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24377	24555	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25640	25818	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24656	24834	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25919	26097	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3193	3300	
==>e( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3181	3288	
==>e( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	296	427	
==>bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	296	427	
==>bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	296	427	
==>bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13943	14060	
==>e
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so every <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13943	14060	
==>e
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so every <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13013	13122	
==>e
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so every <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13013	13122	
==>e
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so every <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12396	12516	
==>$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12396	12516	
==>$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12396	12516	
==>$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	149	250	
==>p() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	149	250	
==>p() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	149	250	
==>p() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for u <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1816	1960	
==>tal!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1601	1739	
==>tal!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1601	1739	
==>tal!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3376	3478	
==>stance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3376	3478	
==>stance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3376	3478	
==>stance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12490	12597	
==>fined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12490	12597	
==>fined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12490	12597	
==>fined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs] <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	322	426	
==>ch of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot curr <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	322	426	
==>ch of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot curr <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5489	5585	
==>oBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == <==
6	/Users/nnunley/pugs/util/build_pugs.pl	1758	1864	
==>"../../Setup$Config{_exe}", 'install', '--user');
        chdir $pwd;
    }
    print "*** Finished buildin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17096	17199	
==>=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17096	17199	
==>=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17096	17199	
==>=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1246	1366	
==>tance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1246	1366	
==>tance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1246	1366	
==>tance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2889	2996	
==>a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2889	2996	
==>a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2889	2996	
==>a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24760	24905	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26949	27094	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24760	24905	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26949	27094	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24760	24905	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26949	27094	
==>};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $sa <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6991	7100	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6121	6230	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2775	2884	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2775	2884	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6991	7100	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6121	6230	
==>s Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.inc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2847	2965	
==>@_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2847	2965	
==>@_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2847	2965	
==>@_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub c <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13547	13657	
==>proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semij <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17024	17134	
==>proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semij <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16386	16496	
==>proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semij <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4198	4391	
==>es;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_name <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4198	4391	
==>es;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_name <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	263	388	
==>e    => $Config{osname},
        pager     => $Config{pager},
        prefix    => $Config{prefix},
        archname  => $Conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2478	2578	
==>s2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2478	2578	
==>s2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2478	2578	
==>s2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_2 <==
6	/Users/nnunley/pugs/util/build_pugs.pl	8498	8626	
==>($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyck <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1662	1779	
==>unction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1662	1779	
==>unction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1662	1779	
==>unction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'st <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	612	722	
==>and to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	612	722	
==>and to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6560	6664	
==>local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6560	6664	
==>local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6560	6664	
==>local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1530	1620	
==>{ return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1530	1620	
==>{ return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1530	1620	
==>{ return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3993	4118	
==>th_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3993	4118	
==>th_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3993	4118	
==>th_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13616	13735	
==>o a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17093	17212	
==>o a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16455	16574	
==>o a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7352	7495	
==>sa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7352	7495	
==>sa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7352	7495	
==>sa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14153	14271	
==>tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14153	14271	
==>tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14153	14271	
==>tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4014	4129	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6663	6778	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4251	4363	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10700	10812	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4251	4363	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10700	10812	
==>apper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return u <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16944	17096	
==>t only affects the first character.


=item uc

 multi Str::uc         (  Str $string              --> Str )
 multi Str::uc         ( Str $string = CALLE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1723	1819	
==>fg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1723	1819	
==>fg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1723	1819	
==>fg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n" <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24370	24465	
==>tion object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method retu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28922	29017	
==>tion object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8164	8274	
==>ailed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8164	8274	
==>ailed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8164	8274	
==>ailed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2517	2721	
==>bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2517	2721	
==>bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2517	2721	
==>bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14777	14867	
==>ctiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14777	14867	
==>ctiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14777	14867	
==>ctiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8932	9050	
==>close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # f <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	666	784	
==>close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8932	9050	
==>close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8932	9050	
==>close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # f <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	74	178	
==>:Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    me <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	74	178	
==>:Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    me <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3898	3995	
==>le which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3898	3995	
==>le which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6878	6974	
==>le which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8948	9044	
==>le which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6878	6974	
==>le which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8948	9044	
==>le which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4388	4538	
==>xt = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4388	4538	
==>xt = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4388	4538	
==>xt = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6533	6638	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10010	10115	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9102	9207	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_u <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21814	22028	
==>})->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41818	42032	
==>})->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44721	44935	
==>})->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2297	2431	
==>();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2297	2431	
==>();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2297	2431	
==>();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10179	10271	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10863	10955	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10179	10271	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10863	10955	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10179	10271	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10863	10955	
==>L2JS.die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16424	16560	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21141	21277	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16424	16560	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21141	21277	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16424	16560	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21141	21277	
==>shift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2653	2756	
==>($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2653	2756	
==>($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2653	2756	
==>($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2478	2574	
==>00000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2478	2574	
==>00000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2478	2574	
==>00000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spe <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24266	24366	
==>ro attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	957	1057	
==>efined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28818	28918	
==>ro attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27676	27776	
==>ro attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	957	1057	
==>efined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	957	1057	
==>efined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1568	1712	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3131	3275	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1568	1712	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3131	3275	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1568	1712	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3131	3275	
==>:CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is us <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3363	3462	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6377	6476	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8445	8544	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3363	3462	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6377	6476	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8445	8544	
==>r`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	934	1045	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1022	1133	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	934	1045	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1022	1133	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	934	1045	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1022	1133	
==>treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11788	11942	
==>ispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11788	11942	
==>ispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11788	11942	
==>ispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3707	3847	
==>h}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box ho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3707	3847	
==>h}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box ho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3707	3847	
==>h}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box ho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15941	16044	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20658	20761	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15941	16044	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20658	20761	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15941	16044	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20658	20761	
==>=> \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16709	16829	
==>ND {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16709	16829	
==>ND {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16709	16829	
==>ND {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4146	4254	
==>->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4146	4254	
==>->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4146	4254	
==>->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11019	11156	
==>{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11019	11156	
==>{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11019	11156	
==>{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	679	801	
==>tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  lo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	679	801	
==>tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  lo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	679	801	
==>tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9257	9383	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6804	6930	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9257	9383	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6804	6930	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9257	9383	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6804	6930	
==>{
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8400	8495	
==>olation')>

This event is begun when any block of characters is interpolated for modifiers.

=it <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8400	8495	
==>olation')>

This event is begun when any block of characters is interpolated for modifiers.

=it <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18435	18517	
==>->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21694	21776	
==>->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41700	41782	
==>->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44601	44683	
==>->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5655	5794	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3775	3914	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5655	5794	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3775	3914	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5655	5794	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3775	3914	
==>elf);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3407	3512	
==>( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3407	3512	
==>( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3407	3512	
==>( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11798	11896	
==>$field, $value )

Add a new field value for the specified header field.  Previous values
for the sa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11798	11896	
==>$field, $value )

Add a new field value for the specified header field.  Previous values
for the sa <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16576	16673	
==>t to think about that.  This module is more of a theoretical
exercise, a jump-start to built-in re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12064	12234	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12836	13006	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12064	12234	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12836	13006	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12064	12234	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12836	13006	
==>$arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2039	2142	
==>upported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2039	2142	
==>upported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2039	2142	
==>upported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40983	41079	
==>>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40983	41079	
==>>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40983	41079	
==>>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Arr <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25335	25465	
==>ub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25894	26024	
==>ub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13272	13373	
==>ute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13272	13373	
==>ute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13272	13373	
==>ute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1505	1605	
==>w();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self->{env});
    (bless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4402	4534	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7338	7470	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4402	4534	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7338	7470	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4402	4534	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7338	7470	
==>n
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10600	10764	
==>arams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10600	10764	
==>arams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10600	10764	
==>arams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #war <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	828	960	
==>0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] + <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	828	960	
==>0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] + <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1365	1461	
==>e not help people running existent versions of perl5.  Perhaps
# because the challenges being fac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6019	6160	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8989	9130	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6019	6160	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8989	9130	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6019	6160	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8989	9130	
==>) . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        ret <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5609	5734	
==>r(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "d <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5609	5734	
==>r(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "d <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	466	560	
==>");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Conte <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1079	1173	
==>");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Conte <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	466	560	
==>");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Conte <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1079	1173	
==>");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Conte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11796	12033	
==>: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11796	12033	
==>: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11796	12033	
==>: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($se <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21406	21500	
==>ibute has a name that is distinct from the other
attributes, though several attributes may stor <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25958	26052	
==>ibute has a name that is distinct from the other
attributes, though several attributes may stor <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24591	24685	
==>ibute has a name that is distinct from the other
attributes, though several attributes may stor <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4737	4945	
==>my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $scri <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4001	4169	
==>my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $scri <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13417	13564	
==>my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $scri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3896	3998	
==>,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3896	3998	
==>,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3896	3998	
==>,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10802	10948	
==>Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7143	7289	
==>Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7992	8138	
==>Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	943	1053	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	943	1053	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	943	1053	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9168	9346	
==>h,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9168	9346	
==>h,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9168	9346	
==>h,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16064	16169	
==>( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16064	16169	
==>( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16064	16169	
==>( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($x <==
6	/Users/nnunley/pugs/examples/advocacy/Motd.pm	23	175	
==>sub finger (@arr) returns Str is export {
        my @default = (
            "boring",
            "missing examples",
        );
      pick @arr || @de <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26566	26662	
==>ctor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26566	26662	
==>ctor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3831	3923	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3831	3923	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3831	3923	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24084	24195	
==>TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24084	24195	
==>TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24084	24195	
==>TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	430	517	
==>PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	430	517	
==>PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	430	517	
==>PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5285	5434	
==>lone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ( <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5285	5434	
==>lone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1566	1692	
==>ure => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21426	21520	
==>t is distinct from the other
attributes, though several attributes may store values of the same <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25978	26072	
==>t is distinct from the other
attributes, though several attributes may store values of the same <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24611	24705	
==>t is distinct from the other
attributes, though several attributes may store values of the same <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5393	5506	
==>";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5393	5506	
==>";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5393	5506	
==>";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	922	1011	
==>e Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Contex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	922	1011	
==>e Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Contex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	922	1011	
==>e Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Contex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9693	9807	
==>quire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9693	9807	
==>quire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9693	9807	
==>quire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2468	2565	
==>ethod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2468	2565	
==>ethod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2468	2565	
==>ethod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_in <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2925	3026	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10848	10949	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6050	6151	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2925	3026	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10848	10949	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6050	6151	
==>sg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2546	2659	
==>t $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2546	2659	
==>t $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2546	2659	
==>t $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4754	4859	
==>f->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4754	4859	
==>f->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4754	4859	
==>f->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported y <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	571	692	
==>f->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	571	692	
==>f->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	571	692	
==>f->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; j <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10205	10317	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12846	12958	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13682	13794	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16323	16435	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12963	13075	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15685	15797	
==>ading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_inter <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4213	4317	
==>b reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $app->fmap(sub { $self->reduce($_[0]) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8200	8285	
==>{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normal <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8200	8285	
==>{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normal <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28172	28269	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29183	29280	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32724	32821	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33735	33832	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31834	31931	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32881	32978	
==>his method has not yet been implemented.>

This method is a generic relational operator that retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1377	1506	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subme <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1377	1506	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subme <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1377	1506	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subme <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6446	6562	
==><..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6446	6562	
==><..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6446	6562	
==><..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	664	766	
==>1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pair <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	664	766	
==>1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pair <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	664	766	
==>1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	759	859	
==>)([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	759	859	
==>)([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	759	859	
==>)([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1251	1376	
==>_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain globa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1251	1376	
==>_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain globa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1251	1376	
==>_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain globa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4629	4734	
==>l eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4629	4734	
==>l eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4629	4734	
==>l eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2960	3085	
==>,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$locati <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2960	3085	
==>,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$locati <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1147	1256	
==>e( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () ret <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	889	998	
==>e( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () ret <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1147	1256	
==>e( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () ret <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	889	998	
==>e( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5298	5405	
==>= JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5298	5405	
==>= JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5298	5405	
==>= JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	233	330	
==>= JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	233	330	
==>= JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	233	330	
==>= JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5657	5783	
==>$match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6210	6336	
==>$match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5850	5976	
==>$match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6403	6529	
==>$match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5778	5873	
==>=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeri <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5778	5873	
==>=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4115	4235	
==>$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4115	4235	
==>$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4115	4235	
==>$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bod <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5987	6102	
==>es = sort {
                _normalize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${slash <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	7402	7509	
==>ALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "E <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7460	7567	
==>ALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "E <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13206	13307	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4376	4477	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8832	8933	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13206	13307	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4376	4477	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8832	8933	
==>ative for this whole file, which can be referenced as a unit by
documentation or 'use' statements or P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1840	1972	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	952	1084	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1840	1972	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	952	1084	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1840	1972	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	952	1084	
==>rams) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10570	10680	
==>);
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10570	10680	
==>);
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10570	10680	
==>);
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2094	2202	
==>TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2094	2202	
==>TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2094	2202	
==>TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34649	34762	
==>ength = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34649	34762	
==>ength = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34649	34762	
==>ength = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3541	3642	
==>::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3541	3642	
==>::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3541	3642	
==>::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->c <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7194	7295	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6324	6425	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2978	3079	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2978	3079	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7194	7295	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6324	6425	
==>s($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4479	4608	
==>pires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expir <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4479	4608	
==>pires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expir <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6346	6443	
==>r $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8414	8511	
==>r $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6346	6443	
==>r $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8414	8511	
==>r $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31222	31408	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32980	33166	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31222	31408	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32980	33166	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31222	31408	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32980	33166	
==>ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29453	29579	
==>_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29453	29579	
==>_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	273	387	
==>_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2356	2453	
==>t( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.year }
method quarter retu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17471	17563	
==>le, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interf <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17471	17563	
==>le, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interf <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	408	506	
==>od from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unl <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	408	506	
==>od from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unl <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21401	21496	
==>edin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspondi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20282	20377	
==>edin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspondi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21401	21496	
==>edin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspondi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20282	20377	
==>edin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspondi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34240	34358	
==>zation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34240	34358	
==>zation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34240	34358	
==>zation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	158	266	
==>'s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	158	266	
==>'s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	158	266	
==>'s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	113	224	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	108	219	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	113	224	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	108	219	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	113	224	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	108	219	
==>e unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5591	5723	
==>te'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5591	5723	
==>te'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5591	5723	
==>te'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        re <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5467	5574	
==>t <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5467	5574	
==>t <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5973	6070	
==>se class for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3931	4036	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6580	6685	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4170	4272	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10619	10721	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4170	4272	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10619	10721	
==>functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9004	9106	
==>$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9004	9106	
==>$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9004	9106	
==>$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	169	263	
==>if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	169	263	
==>if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	169	263	
==>if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	157	267	
==>class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	157	267	
==>class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	157	267	
==>class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5255	5351	
==>ttr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCAT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5255	5351	
==>ttr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCAT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5255	5351	
==>ttr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCAT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3023	3154	
==>e Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3023	3154	
==>e Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3023	3154	
==>e Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11931	12057	
==>r {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11931	12057	
==>r {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11931	12057	
==>r {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15732	15883	
==>ltimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15732	15883	
==>ltimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15732	15883	
==>ltimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20453	20600	
==>ltimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20453	20600	
==>ltimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20453	20600	
==>ltimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start ou <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	271	398	
==>my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	271	398	
==>my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8595	8695	
==>ome_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7564	7664	
==>ome_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8595	8695	
==>ome_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7564	7664	
==>ome_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items <==
6	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1555	1688	
==>:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{% <==
6	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1555	1688	
==>:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{% <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40891	40985	
==>ibute,
because that is a practical way of suggesting improvements to the standard
version.

=he <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26451	26545	
==>ibute, because that is a practical way of
suggesting improvements to the standard version.

=he <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40891	40985	
==>ibute,
because that is a practical way of suggesting improvements to the standard
version.

=he <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26451	26545	
==>ibute, because that is a practical way of
suggesting improvements to the standard version.

=he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4890	5005	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7539	7654	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5103	5212	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11552	11661	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5103	5212	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11552	11661	
==>delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12059	12231	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12831	13003	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12059	12231	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12831	13003	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12059	12231	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12831	13003	
==>1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3417	3603	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6353	6539	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3417	3603	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6353	6539	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3417	3603	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6353	6539	
==>ub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitiv <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19307	19434	
==>(0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->c <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15728	15855	
==>(0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5319	5420	
==>}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dolla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5319	5420	
==>}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dolla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5319	5420	
==>}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dolla <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	993	1078	
==>pping{Relation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubT <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4793	4913	
==>alue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  , <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4793	4913	
==>alue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  , <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1699	1819	
==>alue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  , <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2972	3087	
==>e =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2972	3087	
==>e =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2972	3087	
==>e =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7118	7228	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7118	7228	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7118	7228	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12274	12383	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12274	12383	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12274	12383	
==>num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	384	495	
==>Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	384	495	
==>Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	384	495	
==>Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	462	557	
==>mfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	462	557	
==>mfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	462	557	
==>mfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16981	17186	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21696	21901	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16981	17186	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21696	21901	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16981	17186	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21696	21901	
==>$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15864	15972	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20581	20689	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15864	15972	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20581	20689	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15864	15972	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20581	20689	
==>e we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9927	10043	
==>we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pkg->pre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9977	10077	
==>/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9977	10077	
==>/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9977	10077	
==>/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	772	868	
==>: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype ( <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	772	868	
==>: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16857	16975	
==>'Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16857	16975	
==>'Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16857	16975	
==>'Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7490	7591	
==>tem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7490	7591	
==>tem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7490	7591	
==>tem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9412	9516	
==>es mutator/accessor

    # -----------------------------------------------      
    # this collects a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9412	9516	
==>es mutator/accessor

    # -----------------------------------------------      
    # this collects a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9412	9516	
==>es mutator/accessor

    # -----------------------------------------------      
    # this collects a un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	806	894	
==>fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	806	894	
==>fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	806	894	
==>fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos} <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	75	176	
==>me
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten definie <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34503	34598	
==>med parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Tran <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	97	192	
==>unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value: <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34503	34598	
==>med parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Tran <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	97	192	
==>unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	97	192	
==>unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2577	2678	
==>ign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free softwa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2577	2678	
==>ign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free softwa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2186	2286	
==>s -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files shoul <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2105	2203	
==>s -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files shoul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1790	1885	
==>ign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free softwa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3651	3746	
==>ign/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free softwa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8106	8330	
==>$end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8106	8330	
==>$end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8106	8330	
==>$end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_cont <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5644	5747	
==>::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5644	5747	
==>::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5644	5747	
==>::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13702	13812	
==>nd_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13702	13812	
==>nd_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13702	13812	
==>nd_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3244	3346	
==>d('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3244	3346	
==>d('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3244	3346	
==>d('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4365	4477	
==>expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4365	4477	
==>expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4365	4477	
==>expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5378	5475	
==>>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: che <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5378	5475	
==>>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: che <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5968	6065	
==>>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: che <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1373	1476	
==>d yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1373	1476	
==>d yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1373	1476	
==>d yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4333	4424	
==>($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4333	4424	
==>($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4333	4424	
==>($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17691	17834	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14911	15054	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17691	17834	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14911	15054	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17691	17834	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14911	15054	
==>abel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9068	9183	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6615	6730	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9068	9183	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6615	6730	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9068	9183	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6615	6730	
==>($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2387	2503	
==>erbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::D <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2387	2503	
==>erbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::D <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2387	2503	
==>erbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3820	3909	
==>--------------------------------------------------------------------
## Package

## See ht <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3820	3909	
==>--------------------------------------------------------------------
## Package

## See ht <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3820	3909	
==>--------------------------------------------------------------------
## Package

## See ht <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5270	5451	
==>ame.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5270	5451	
==>ame.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5270	5451	
==>ame.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20524	20622	
==>x:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20524	20622	
==>x:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20524	20622	
==>x:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4318	4439	
==>e) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5639	5760	
==>e) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4318	4439	
==>e) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5627	5748	
==>e) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6109	6210	
==>$irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_do <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6109	6210	
==>$irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8486	8625	
==>> '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8486	8625	
==>> '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8486	8625	
==>> '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2643	2753	
==>ize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This mo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2643	2753	
==>ize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This mo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2990	3100	
==>ize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8250	8455	
==>erl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8250	8455	
==>erl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8250	8455	
==>erl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5246	5373	
==>ys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8723	8850	
==>ys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7743	7870	
==>ys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	247	362	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	245	360	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	247	362	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	245	360	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	247	362	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	245	360	
==>e instance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	457	591	
==>on () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	457	591	
==>on () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	457	591	
==>on () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(func <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2417	2541	
==>)} unless uc($1) eq $1;
    };
}

sub import {
    my $class = shift;
    my $self  = $class->new(@_);
    my $who   = $self- <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31068	31161	
==>module
consists of the two parts concatenated without any delimiter.  This means,
for example, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31068	31161	
==>module
consists of the two parts concatenated without any delimiter.  This means,
for example, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1819	1927	
==>($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1819	1927	
==>($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1819	1927	
==>($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	774	872	
==>up/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	774	872	
==>up/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	774	872	
==>up/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.P <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7531	7661	
==>rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_fiel <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7531	7661	
==>rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_fiel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5544	5670	
==>>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5544	5670	
==>>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5544	5670	
==>>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16548	16650	
==>self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3647	3766	
==>ailable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3647	3766	
==>ailable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-on <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3647	3766	
==>ailable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-on <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37093	37187	
==>elations have zero attributes in common, their joining degenerates to a
C<product>.  In any sit <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41642	41736	
==>elations have zero attributes in common, their joining degenerates to a
C<product>.  In any sit <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41265	41359	
==>elations have zero attributes in common, their joining degenerates to a
C<product>.  In any sit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9865	10016	
==>)
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $sel <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1942	2073	
==>)
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $sel <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1942	2073	
==>)
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2110	2205	
==>>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2110	2205	
==>>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2110	2205	
==>>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5707	5824	
==>s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5707	5824	
==>s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5707	5824	
==>s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12075	12185	
==>});

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4718	4828	
==>});

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	695	784	
==>X::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::Undefined is JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23499	23646	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23499	23646	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23499	23646	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $sc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23708	23810	
==>ue of False, it can not be further changed;
this class defaults it to False.

=back

This is the main R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28260	28362	
==>ue of False, it can not be further changed;
this class defaults it to False.

=back

This is the main R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27073	27175	
==>ue of False, it can not be further changed;
this class defaults it to False.

=back

This is the main R <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13296	13394	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4466	4564	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8922	9020	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13296	13394	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4466	4564	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8922	9020	
==>tements or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1599	1748	
==>]->{out}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1642	1771	
==>xtToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->F <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1642	1771	
==>xtToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->F <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1642	1771	
==>xtToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16351	16478	
==>-base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16351	16478	
==>-base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1964	2088	
==>ion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1964	2088	
==>ion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1964	2088	
==>ion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	762	875	
==>O - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } genera <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	762	875	
==>O - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } genera <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	762	875	
==>O - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } genera <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4125	4255	
==>re = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4125	4255	
==>re = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4125	4255	
==>re = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5166	5271	
==>> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5166	5271	
==>> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5166	5271	
==>> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16753	16884	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21436	21567	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16753	16884	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21436	21567	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16753	16884	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21436	21567	
==>f (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	110	242	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	471	603	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	110	242	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	471	603	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	110	242	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	471	603	
==>cal $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8999	9142	
==>ss => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8999	9142	
==>ss => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8999	9142	
==>ss => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37615	37707	
==>urce Relations,
such that all common attribute names and corresponding common tuple values
ar <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42164	42256	
==>urce Relations,
such that all common attribute names and corresponding common tuple values
ar <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41814	41906	
==>urce Relations,
such that all common attribute names and corresponding common tuple values
ar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14188	14310	
==>@statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14467	14589	
==>@statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::altern <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18684	18778	
==><SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17727	17821	
==><SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18684	18778	
==><SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17727	17821	
==><SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	177	276	
==>()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	177	276	
==>()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	177	276	
==>()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1314	1408	
==>(new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1314	1408	
==>(new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1314	1408	
==>(new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inli <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3778	3890	
==>e(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Beca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3778	3890	
==>e(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Beca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3778	3890	
==>e(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Beca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6696	6806	
==>on() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6696	6806	
==>on() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6696	6806	
==>on() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2322	2442	
==>s.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2322	2442	
==>s.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2322	2442	
==>s.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i)) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14220	14336	
==>sjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17697	17813	
==>sjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17113	17229	
==>sjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	443	549	
==>// but if I store the node in a variable outside of this function
      // and refer to it via the closure, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	443	549	
==>// but if I store the node in a variable outside of this function
      // and refer to it via the closure, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	443	549	
==>// but if I store the node in a variable outside of this function
      // and refer to it via the closure, <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3607	3712	
==>eturns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference -  <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3607	3712	
==>eturns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference -  <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4482	4585	
==>eturns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference -  <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4482	4585	
==>eturns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference -  <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4589	4684	
==>experimental development version.  The API is still in flux.

The set of implemented features de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4839	4934	
==>experimental development version.  The API is still in flux.

The set of implemented features de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2747	2849	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5395	5497	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2747	2849	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5395	5497	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2747	2849	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5395	5497	
==>ute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2479	2595	
==>x.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2479	2595	
==>x.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2479	2595	
==>x.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22227	22315	
==>ee op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22227	22315	
==>ee op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22227	22315	
==>ee op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20433	20531	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20433	20531	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20433	20531	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1071	1164	
==>eout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($tim <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1071	1164	
==>eout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($tim <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1071	1164	
==>eout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($tim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	849	951	
==>iptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	849	951	
==>iptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	849	951	
==>iptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objec <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2924	3021	
==>pirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE AL <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2924	3021	
==>pirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE AL <==
6	/Users/nnunley/pugs/util/package-osx.pl	6065	6153	
==>/man3/Perl6::Overview::Functions.3pm
        /usr/local/man/man3/Perl6::Overview::Object. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6845	6958	
==>&infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6845	6958	
==>&infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6845	6958	
==>&infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5202	5310	
==>d the existing index file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->meta-> <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9282	9380	
==>ecoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_va <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9282	9380	
==>ecoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_va <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1222	1366	
==>unless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1222	1366	
==>unless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1807	1908	
==>fix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1807	1908	
==>fix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1807	1908	
==>fix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "in <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1735	1828	
==>multi sub Array::reduce (@values ; Code *&expression) returns Scalar
 multi sub  Perl6::List:: <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	17535	17655	
==>push_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4441	4550	
==>we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!ch <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4441	4550	
==>we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!ch <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3700	3953	
==>nterpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        e <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3743	3996	
==>nterpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        e <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3700	3953	
==>nterpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        e <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3743	3996	
==>nterpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        e <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6821	6916	
==>ie "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_c <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6821	6916	
==>ie "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2880	2993	
==>"COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2880	2993	
==>"COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2880	2993	
==>"COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17013	17102	
==>classes'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17013	17102	
==>classes'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17013	17102	
==>classes'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1963	2071	
==>=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1963	2071	
==>=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1963	2071	
==>=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36817	36912	
==>the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41366	41461	
==>the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40989	41084	
==>the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15894	16052	
==>ined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15894	16052	
==>ined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15894	16052	
==>ined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9738	9891	
==>returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9738	9891	
==>returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9738	9891	
==>returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4154	4261	
==>self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4154	4261	
==>self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4154	4261	
==>self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1838	1942	
==>pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1838	1942	
==>pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1838	1942	
==>pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3895	4098	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6422	6625	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3895	4098	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6422	6625	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3895	4098	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6422	6625	
==>=> ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	282	400	
==>self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	282	400	
==>self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	282	400	
==>self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6624	6733	
==>e_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6624	6733	
==>e_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6624	6733	
==>e_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1417	1542	
==>ELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1417	1542	
==>ELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1417	1542	
==>ELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5321	5442	
==>param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5321	5442	
==>param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5321	5442	
==>param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10759	10866	
==>ss $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10759	10866	
==>ss $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3635	3728	
==>points[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3635	3728	
==>points[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3635	3728	
==>points[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retv <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1853	1946	
==>turn a B<Match> object.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtim <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2701	2837	
==>e {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for % <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2701	2837	
==>e {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for % <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2701	2837	
==>e {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for % <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1335	1443	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1335	1443	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1335	1443	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInte <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10261	10389	
==>value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10261	10389	
==>value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10261	10389	
==>value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	148	269	
==>ackage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	148	269	
==>ackage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	148	269	
==>ackage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9749	9864	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12722	12837	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9749	9864	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12722	12837	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9749	9864	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12722	12837	
==>METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11340	11472	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2852	2984	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11340	11472	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2852	2984	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11340	11472	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2852	2984	
==>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2163	2268	
==>- $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2163	2268	
==>- $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1995	2096	
==>b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1995	2096	
==>b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1995	2096	
==>b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String( <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10474	10572	
==>client.pl ./smoke.html</pre>

  <p>
    should suffice. See the <a
    href="http://search.cpan.org <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1048	1160	
==>age "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1048	1160	
==>age "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1048	1160	
==>age "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	808	913	
==>ll later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refere <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	808	913	
==>ll later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refere <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	808	913	
==>ll later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refere <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4112	4220	
==>sal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

Th <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4112	4220	
==>sal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

Th <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8644	8748	
==>ludes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7613	7717	
==>ludes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8644	8748	
==>ludes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7613	7717	
==>ludes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @memb <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1152	1268	
==><mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2026	2142	
==><mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28945	29060	
==>_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28945	29060	
==>_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	304	411	
==>_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8635	8737	
==>call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2748	2849	
==>ix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contain <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15388	15489	
==>ose ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pai <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15388	15489	
==>ose ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pai <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15388	15489	
==>ose ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2748	2849	
==>ix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2748	2849	
==>ix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contain <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4290	4411	
==>',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4290	4411	
==>',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1140	1261	
==>',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4153	4266	
==>pe ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4153	4266	
==>pe ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$par <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4743	4856	
==>pe ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1485	1660	
==>' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1485	1660	
==>' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1485	1660	
==>' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	528	630	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	528	630	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	528	630	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2932	3033	
==>thing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2932	3033	
==>thing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2932	3033	
==>thing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1309	1403	
==>"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1309	1403	
==>"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1309	1403	
==>"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s" <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14363	14469	
==>);
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5997	6090	
==>ht method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10254	10347	
==>ht method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3678	3770	
==>}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3678	3770	
==>}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3678	3770	
==>}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	359	458	
==>range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	904	1003	
==>range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	359	458	
==>range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	8974	9073	
==>Dumper(@_);

	unify($x->{param}, $y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	904	1003	
==>range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	904	1003	
==>range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3075	3189	
==>not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3075	3189	
==>not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3075	3189	
==>not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelud <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1741	1842	
==>Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" an <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1741	1842	
==>Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" an <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1741	1842	
==>Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" an <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	476	582	
==>s('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8743	8848	
==>s('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8743	8848	
==>s('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8743	8848	
==>s('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3579	3676	
==>, you must first create an object of the appropriate 
class, passing the key, a mode (either "enci <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3579	3676	
==>, you must first create an object of the appropriate 
class, passing the key, a mode (either "enci <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3649	3745	
==>recomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3649	3745	
==>recomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3649	3745	
==>recomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	806	901	
==>line('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	806	901	
==>line('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	806	901	
==>line('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2248	2365	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11116	11233	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12075	12192	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2441	2558	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11395	11512	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12354	12471	
==>:capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3232	3396	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4038	4202	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1979	2143	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3232	3396	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4038	4202	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1979	2143	
==>> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2802	2905	
==>Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if def <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2802	2905	
==>Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if def <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2802	2905	
==>Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if def <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3644	3738	
==>initions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3644	3738	
==>initions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3644	3738	
==>initions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5224	5334	
==>1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5224	5334	
==>1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5224	5334	
==>1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGl <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1475	1575	
==>$diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1475	1575	
==>$diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1555	1655	
==>$diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_tes <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3774	3917	
==>e => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4020	4156	
==>e => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10469	10605	
==>e => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4020	4156	
==>e => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10469	10605	
==>e => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the i <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4865	4951	
==>6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
sub p6_Hash {p6_new('Hash' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	119	228	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	114	223	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	119	228	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	114	223	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	119	228	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	114	223	
==>ss keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1017	1126	
==>atcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1017	1126	
==>atcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1017	1126	
==>atcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9479	9567	
==>(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9479	9567	
==>(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9479	9567	
==>(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...} <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1479	1626	
==>tems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1583	1730	
==>tems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1479	1626	
==>tems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1583	1730	
==>tems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5546	5659	
==>: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $chi <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5546	5659	
==>: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $chi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10585	10705	
==>while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10585	10705	
==>while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12906	13018	
==>$key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12906	13018	
==>$key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12906	13018	
==>$key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	29	127	
==>things which end up defined in PILn
# (though one may wish to overwrite a limited piln version with <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17915	18025	
==>d
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Literal" ]

.s <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	155	253	
==>kann man POD benutzen:

#!\begin{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1513	1604	
==>MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPY <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1513	1604	
==>MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPY <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8360	8544	
==>od($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8360	8544	
==>od($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8360	8544	
==>od($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2054	2154	
==>sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub stateme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2054	2154	
==>sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub stateme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2054	2154	
==>sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub stateme <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6874	6999	
==>stant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6874	6999	
==>stant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $ <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	3370	3484	
==>,
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1086	1205	
==>elf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1086	1205	
==>elf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1086	1205	
==>elf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1799	1898	
==>lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1799	1898	
==>lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1799	1898	
==>lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value! <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3285	3422	
==>0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3285	3422	
==>0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2875	2972	
==>e Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the te <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3032	3129	
==>e Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the te <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2875	2972	
==>e Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the te <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3032	3129	
==>e Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the te <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13928	14045	
==>g seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13928	14045	
==>g seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4074	4185	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4267	4378	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12998	13107	
==>g seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12998	13107	
==>g seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31819	31912	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32835	32928	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33290	33383	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36369	36462	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37385	37478	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37840	37933	
==>ion (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2721	2828	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5369	5476	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2721	2828	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5369	5476	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2721	2828	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5369	5476	
==>alizes the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::in <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	319	423	
==>s. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	864	968	
==>s. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	319	423	
==>s. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	864	968	
==>s. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	864	968	
==>s. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19236	19331	
==>it would create a better sense of
uniformity.

=item Documentation

Fixed some poor wording, and <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	589	729	
==>es/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burs <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1267	1398	
==>ule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1267	1398	
==>ule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3290	3398	
==>ans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3290	3398	
==>ans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3290	3398	
==>ans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1728	1835	
==>nline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1728	1835	
==>nline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1728	1835	
==>nline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	753	852	
==>ugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	753	852	
==>ugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	753	852	
==>ugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6027	6116	
==>ntf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6027	6116	
==>ntf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6027	6116	
==>ntf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4607	4695	
==>unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4607	4695	
==>unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4607	4695	
==>unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1243	1377	
==>n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1243	1377	
==>n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" . <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2167	2279	
==>urn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tm <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5138	5250	
==>urn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tm <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2167	2279	
==>urn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tm <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5138	5250	
==>urn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tm <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5446	5594	
==>($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5668	5816	
==>($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3132	3242	
==>_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $si <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3120	3230	
==>_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $si <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1157	1255	
==>ler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have pa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1157	1255	
==>ler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24774	24895	
==>c;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    pus <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21195	21316	
==>c;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    pus <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3859	3966	
==>:PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.le <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4192	4299	
==>:PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.le <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3859	3966	
==>:PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.le <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4192	4299	
==>:PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.le <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5438	5582	
==>ck when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > . <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5438	5582	
==>ck when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8024	8162	
==>m foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8024	8162	
==>m foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8024	8162	
==>m foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mor <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7014	7119	
==>se another mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index aft <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2444	2545	
==>shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1191	1288	
==>ader for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP f <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1191	1288	
==>ader for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1738	1835	
==>ader for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP f <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22856	22949	
==>l's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22856	22949	
==>l's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3564	3678	
==>$mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7041	7155	
==>$mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5998	6112	
==>$mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3620	3720	
==>\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3620	3720	
==>\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3620	3720	
==>\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5806	5911	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8776	8881	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5806	5911	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8776	8881	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5806	5911	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8776	8881	
==>*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4711	4842	
==>y $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4711	4842	
==>y $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4711	4842	
==>y $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5696	5795	
==>finite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5696	5795	
==>finite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5696	5795	
==>finite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10091	10249	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7642	7800	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10091	10249	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7642	7800	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10091	10249	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7642	7800	
==>b {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6521	6618	
==>returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6521	6618	
==>returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20407	20502	
==>icalized including the
'_' to '-' translation.  There are some application where this is not
app <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7393	7488	
==>returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7393	7488	
==>returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20407	20502	
==>icalized including the
'_' to '-' translation.  There are some application where this is not
app <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1852	1975	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2195	2318	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1852	1975	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2195	2318	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1852	1975	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2195	2318	
==>ist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18430	18548	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15668	15786	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18430	18548	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15668	15786	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18430	18548	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15668	15786	
==>check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	700	801	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	700	801	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	700	801	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	87	187	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	87	187	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	87	187	
==>2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1421	1525	
==>y.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].F <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	175	279	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	175	279	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	175	279	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1421	1525	
==>y.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1421	1525	
==>y.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14459	14585	
==>v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14459	14585	
==>v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14459	14585	
==>v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	267	365	
==>);
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	267	365	
==>);
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	267	365	
==>);
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5922	6029	
==>5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5922	6029	
==>5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5922	6029	
==>5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14573	14659	
==>ods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14573	14659	
==>ods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14573	14659	
==>ods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9736	9850	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12709	12823	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9736	9850	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12709	12823	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9736	9850	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12709	12823	
==>use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9019	9184	
==>)                             and die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2747	2850	
==>array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2747	2850	
==>array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2747	2850	
==>array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18834	18932	
==>h
definition.  While it is obvious that people who would be writing the text
would have to know how <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18834	18932	
==>h
definition.  While it is obvious that people who would be writing the text
would have to know how <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5809	5958	
==>[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5809	5958	
==>[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5809	5958	
==>[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	500	602	
==>ting variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	500	602	
==>ting variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	500	602	
==>ting variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12775	12986	
==>}
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12775	12986	
==>}
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12775	12986	
==>}
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3326	3476	
==>n Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3326	3476	
==>n Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3326	3476	
==>n Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	132	239	
==>lass = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	132	239	
==>lass = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	132	239	
==>lass = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3463	3564	
==>lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3463	3564	
==>lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3463	3564	
==>lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3868	3986	
==>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3868	3986	
==>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3868	3986	
==>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	206	316	
==>~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\* <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	206	316	
==>~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\* <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	206	316	
==>~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\* <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18	275	
==>e v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Cons <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	18	275	
==>e v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Cons <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18	275	
==>e v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Cons <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18	275	
==>e v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Cons <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10398	10529	
==>led ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        tr <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10398	10529	
==>led ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5998	6133	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8968	9103	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5998	6133	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8968	9103	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5998	6133	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8968	9103	
==>. ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1384	1503	
==>s mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but once it <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4862	4980	
==>s mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once it <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3792	3910	
==>s mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	261	378	
==>new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	261	378	
==>new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	261	378	
==>new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jss <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6614	6745	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9063	9194	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6614	6745	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9063	9194	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6614	6745	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9063	9194	
==>& defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $st <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25254	25349	
==>tion of its
arguments and any invocant object's attributes is identical; they do not
interact wi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11385	11480	
==>tion of its
arguments and any invocant object's attributes is identical; they do not
interact wi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14658	14753	
==>tion of its arguments and any invocant
object's attributes is identical; they do not interact wi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25254	25349	
==>tion of its
arguments and any invocant object's attributes is identical; they do not
interact wi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11385	11480	
==>tion of its
arguments and any invocant object's attributes is identical; they do not
interact wi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14658	14753	
==>tion of its arguments and any invocant
object's attributes is identical; they do not interact wi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25315	25456	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25973	26114	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28755	28896	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25594	25735	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26252	26393	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29034	29175	
==>leop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::captur <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7019	7121	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6149	6251	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2803	2905	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2803	2905	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7019	7121	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6149	6251	
==>member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3766	3864	
==>r)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it w <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3766	3864	
==>r)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it w <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	777	874	
==>iption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ex <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	835	932	
==>iption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ex <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	777	874	
==>iption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ex <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	835	932	
==>iption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33596	33720	
==>t );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33596	33720	
==>t );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33596	33720	
==>t );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6834	6947	
==>o installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6834	6947	
==>o installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6834	6947	
==>o installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	110	226	
==>ubbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	110	226	
==>ubbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	110	226	
==>ubbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3386	3489	
==>, [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
}

1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3386	3489	
==>, [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
}

1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3386	3489	
==>, [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
}

1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9078	9229	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12051	12202	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9078	9229	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12051	12202	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9078	9229	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12051	12202	
==>l6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11314	11497	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8867	9050	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11314	11497	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8867	9050	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11314	11497	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8867	9050	
==>r
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1560	1657	
==>e> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4895	4986	
==>e> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	582	673	
==>e> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5035	5126	
==>e> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	582	673	
==>e> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27546	27635	
==>xp::Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp:: <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	609	731	
==>paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_l <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	510	632	
==>paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	701	799	
==>xportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	701	799	
==>xportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	701	799	
==>xportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return nu <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17129	17223	
==>nput string after converting each character to it's uppercase
form, if lowercase. This is not a <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5458	5695	
==>et ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7220	7457	
==>et ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7348	7482	
==>ethod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.heade <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7348	7482	
==>ethod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.heade <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	810	925	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1672	1787	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	810	925	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	810	925	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1672	1787	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1672	1787	
==>_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2511	2733	
==>{ 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2818	3026	
==>{ 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2818	3026	
==>{ 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2303	2399	
==>$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'* <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2303	2399	
==>$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'* <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2303	2399	
==>$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'* <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4442	4544	
==>],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4697	4799	
==>],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4442	4544	
==>],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4697	4799	
==>],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	339	432	
==>le
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source fil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	339	432	
==>le
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source fil <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3189	3294	
==>hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3189	3294	
==>hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3770	3871	
==>hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3770	3871	
==>hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17998	18094	
==>e source filtering a sane process, by
parsing up your module's source code into various blocks; s <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17998	18094	
==>e source filtering a sane process, by
parsing up your module's source code into various blocks; s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1848	1949	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2191	2292	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1848	1949	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2191	2292	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1848	1949	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2191	2292	
==>t exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings.)
.
  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1445	1564	
==>t++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1445	1564	
==>t++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1445	1564	
==>t++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3108	3221	
==>his is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3108	3221	
==>his is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3108	3221	
==>his is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4973	5119	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5934	6080	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4973	5119	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5934	6080	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4973	5119	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5934	6080	
==>f->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	837	964	
==>List.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	837	964	
==>List.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	837	964	
==>List.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + na <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36878	36977	
==>esult is as if it wasn't there at all.  In any situation where a pair
of source relations have ident <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41427	41526	
==>esult is as if it wasn't there at all.  In any situation where a pair
of source relations have ident <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41050	41149	
==>esult is as if it wasn't there at all.  In any situation where a pair
of source relations have ident <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36346	36440	
==>s differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
d <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38099	38193	
==>s differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40895	40989	
==>s differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42648	42742	
==>s differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40509	40603	
==>s differ and unioning
the remaining said tuple pairs, then eliminating any result tuples that
d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42298	42392	
==>s differ and unioning the remaining said tuple
pairs, then eliminating any result tuples that d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2554	2662	
==>t's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2554	2662	
==>t's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2554	2662	
==>t's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1037	1147	
==>ram->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_nam <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1037	1147	
==>ram->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_nam <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1246	1356	
==>ram->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7233	7324	
==>');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7233	7324	
==>');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7233	7324	
==>');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	0	99	
==>use v6;

use Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set: <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	0	99	
==>use v6;

use Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set: <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8827	8922	
==>t::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8885	8980	
==>t::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	221	308	
==>t::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	279	366	
==>t::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12050	12149	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9605	9704	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12050	12149	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9605	9704	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12050	12149	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9605	9704	
==>_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16657	16809	
==>turn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16657	16809	
==>turn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16657	16809	
==>turn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29160	29277	
==>y_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29160	29277	
==>y_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	499	604	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Eng <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5667	5790	
==>ift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5667	5790	
==>ift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5667	5790	
==>ift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8423	8544	
==>self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sli <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8423	8544	
==>self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sli <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8423	8544	
==>self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7202	7360	
==>e->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7202	7360	
==>e->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7202	7360	
==>e->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	398	506	
==>end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	398	506	
==>end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	398	506	
==>end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4171	4271	
==>)`

Return the start or end value of the span.

These methods may return nothing if the span is empty <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15351	15451	
==>)`

Return the start or end value of the span.

These methods may return nothing if the span is empty <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4171	4271	
==>)`

Return the start or end value of the span.

These methods may return nothing if the span is empty <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15351	15451	
==>)`

Return the start or end value of the span.

These methods may return nothing if the span is empty <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11645	11737	
==>accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11645	11737	
==>accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25585	25675	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27780	27870	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25585	25675	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27780	27870	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25585	25675	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27780	27870	
==>T: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(sca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9245	9346	
==>n => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9245	9346	
==>n => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9245	9346	
==>n => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9535	9635	
==>d semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is n <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13012	13112	
==>d semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is n <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1353	1447	
==>$title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1353	1447	
==>$title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	349	441	
==>ut_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$inpu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	349	441	
==>ut_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$inpu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	799	890	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1319	1410	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	799	890	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1319	1410	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	799	890	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1319	1410	
==>].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3698	3820	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6634	6756	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3698	3820	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6634	6756	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3698	3820	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6634	6756	
==>b ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4510	4629	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7446	7565	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4510	4629	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7446	7565	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4510	4629	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7446	7565	
==>defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method | <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	721	872	
==>).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->fr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3792	3943	
==>).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->fr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	721	872	
==>).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->fr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3792	3943	
==>).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->fr <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	495	599	
==>::Compiler" }

sub provides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtua <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5510	5608	
==>es an implementation for Perl 6 Rule categories.  

The module is still very unstable, and the algo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17558	17725	
==>ound for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17558	17725	
==>ound for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17558	17725	
==>ound for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8921	9033	
==>on violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8921	9033	
==>on violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8921	9033	
==>on violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49374	49492	
==>>set_attr(symbol->new('$:version'), $e->get('?$version'));
                  }));
                $e->get('$self:')->ge <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	2586	2682	
==>uns C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2385	2481	
==>fix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expor <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2586	2682	
==>uns C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat sh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2385	2481	
==>fix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2385	2481	
==>fix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expor <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16236	16350	
==>negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12657	12771	
==>negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6276	6374	
==>ulti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *inf <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5406	5504	
==>ulti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *inf <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6276	6374	
==>ulti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *inf <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5406	5504	
==>ulti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *inf <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4068	4192	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2302	2419	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3083	3200	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5006	5122	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2548	2664	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3329	3445	
==>$term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12099	12305	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12871	13077	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12099	12305	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12871	13077	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12099	12305	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12871	13077	
==>code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6074	6197	
==>ys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6074	6197	
==>ys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6074	6197	
==>ys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2047	2135	
==>::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2047	2135	
==>::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2047	2135	
==>::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1017	1133	
==>ft->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1222	1338	
==>ft->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1283	1399	
==>ft->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &A <==
6	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	238	337	
==>rc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.fina <==
6	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	238	337	
==>rc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.fina <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30060	30159	
==>lf.  This is used primarily when
inspecting the parsing of the regex.

=item my $t = $obj->type()

T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6300	6424	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9270	9394	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6300	6424	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9270	9394	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6300	6424	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9270	9394	
==>, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7761	7878	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10684	10801	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7761	7878	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10684	10801	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7761	7878	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10684	10801	
==>ass =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10170	10280	
==>key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10170	10280	
==>key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10170	10280	
==>key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5817	5913	
==>LS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5817	5913	
==>LS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5817	5913	
==>LS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n" <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2247	2353	
==>esult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!" <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2642	2748	
==>esult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!" <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6559	6665	
==>Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree" <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2305	2411	
==>esult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!" <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2700	2806	
==>esult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!" <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6559	6665	
==>Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree" <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10644	10787	
==>.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              T <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10644	10787	
==>.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              T <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18789	18881	
==>toping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17832	17924	
==>toping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18789	18881	
==>toping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17832	17924	
==>toping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12772	12878	
==>class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canoni <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12772	12878	
==>class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canoni <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12772	12878	
==>class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canoni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2175	2272	
==>h(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2175	2272	
==>h(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2175	2272	
==>h(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12090	12201	
==>$class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12090	12201	
==>$class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12090	12201	
==>$class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3365	3467	
==>::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3365	3467	
==>::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3365	3467	
==>::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12541	12638	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10092	10189	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12541	12638	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10092	10189	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12541	12638	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10092	10189	
==>= ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2530	2644	
==>?'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quan <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2530	2644	
==>?'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quan <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	103	211	
==>ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	888	987	
==>>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::Mk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	888	987	
==>>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::Mk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	888	987	
==>>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::Mk <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1779	1895	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3342	3458	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1779	1895	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3342	3458	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1779	1895	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3342	3458	
==>ETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3407	3567	
==>]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3407	3567	
==>]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3407	3567	
==>]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6306	6410	
==>:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6306	6410	
==>:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6306	6410	
==>:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11348	11489	
==>= 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11342	11483	
==>= 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22270	22373	
==>6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22270	22373	
==>6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22270	22373	
==>6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	776	870	
==>D";
Can't determine a NAME for this distribution.
Please use the 'name' function in Makefile.PL <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3844	3969	
==>ash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer le <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3856	3981	
==>ash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer le <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4613	4737	
==>span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start e <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5272	5396	
==>span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4613	4737	
==>span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5272	5396	
==>span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6223	6427	
==>(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6223	6427	
==>(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6223	6427	
==>(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3060	3230	
==>EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3060	3230	
==>EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3060	3230	
==>EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26224	26386	
==>p { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26224	26386	
==>p { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26224	26386	
==>p { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39530	39635	
==>' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39530	39635	
==>' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39530	39635	
==>' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9918	10066	
==>ied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11395	11543	
==>ied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $ <==
6	/Users/nnunley/pugs/util/build_pugs.pl	2969	3077	
==>hile (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9788	9889	
==>table',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9788	9889	
==>table',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9788	9889	
==>table',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7778	7903	
==>ion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11255	11380	
==>ion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10419	10544	
==>ion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_d <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	923	1024	
==>->{body}->($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21588	21683	
==>.  All Relation
attributes may be individually addressed only by their names, and all
Relation t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26140	26235	
==>.  All Relation
attributes may be individually addressed only by their names, and all
Relation t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	293	390	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	617	714	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	293	390	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	617	714	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	293	390	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	617	714	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(sub <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16251	16389	
==>pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19728	19866	
==>pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19261	19399	
==>pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1455	1553	
==>r $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1455	1553	
==>r $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1455	1553	
==>r $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1420	1553	
==>.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1420	1553	
==>.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1420	1553	
==>.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            m <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9000	9102	
==>of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML: <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9000	9102	
==>of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML: <==
6	/Users/nnunley/pugs/util/package-osx.pl	1402	1504	
==>/local/bin/pugscc ../../bin/pugscc
        /usr/local/bin/p6doc ../../bin/p6doc
    );

    %change_fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18267	18379	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15505	15617	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18267	18379	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15505	15617	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18267	18379	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15505	15617	
==>tance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	647	783	
==>) {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	647	783	
==>) {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	647	783	
==>) {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2994	3106	
==>) {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2994	3106	
==>) {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2994	3106	
==>) {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11496	11601	
==>p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq ' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22473	22578	
==>p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11496	11601	
==>p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11496	11601	
==>p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq ' <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	814	902	
==>GE::Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCS <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4630	4715	
==>_bounds(Min,Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2364	2476	
==>(\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2364	2476	
==>(\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2711	2823	
==>(\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9199	9292	
==>^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9199	9292	
==>^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9199	9292	
==>^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CA <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12761	12905	
==>{
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ], <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12761	12905	
==>{
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ], <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23108	23205	
==>gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21917	22014	
==>gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23108	23205	
==>gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21917	22014	
==>gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25913	26111	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28114	28312	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25913	26111	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28114	28312	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25913	26111	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28114	28312	
==>unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12308	12469	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3930	4091	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12308	12469	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3930	4091	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12308	12469	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3930	4091	
==>etaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13739	13853	
==>$set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13739	13853	
==>$set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $s <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4676	4776	
==>hat Cygwin support for pugs still depends on the .msi
   version of GHC and does not provide POSIX fe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	815	906	
==>e::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	815	906	
==>e::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	815	906	
==>e::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelud <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12273	12414	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3895	4036	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12273	12414	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3895	4036	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12273	12414	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3895	4036	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9223	9372	
==>lems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9223	9372	
==>lems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9223	9372	
==>lems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->valu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21258	21356	
==>nted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25810	25908	
==>nted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24434	24532	
==>nted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7540	7686	
==>Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7540	7686	
==>Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7540	7686	
==>Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2040	2139	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2445	2544	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2040	2139	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2445	2544	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2040	2139	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2445	2544	
==>L::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29372	29491	
==>TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29372	29491	
==>TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29372	29491	
==>TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	82	177	
==>}

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	82	177	
==>}

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	82	177	
==>}

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str * <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3422	3574	
==>= ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $req <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3422	3574	
==>= ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $req <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1520	1643	
==>:Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1973	2096	
==>:Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2408	2531	
==>:Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2845	2968	
==>:Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7382	7534	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4941	5093	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7382	7534	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4941	5093	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7382	7534	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4941	5093	
==>emptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseq <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3787	3905	
==>y $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$inde <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5104	5222	
==>y $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$inde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3787	3905	
==>y $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$inde <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5092	5210	
==>y $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$inde <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31281	31379	
==>L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk dire <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31281	31379	
==>L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk dire <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5877	5990	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3997	4110	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5877	5990	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3997	4110	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5877	5990	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3997	4110	
==>elf => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	526	626	
==>(*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mult <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	526	626	
==>(*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mult <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	526	626	
==>(*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	479	578	
==>= array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	479	578	
==>= array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	479	578	
==>= array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15449	15605	
==>fined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15449	15605	
==>fined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15449	15605	
==>fined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5566	5665	
==>\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5566	5665	
==>\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5566	5665	
==>\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35890	35985	
==>ch that all common attribute names
and corresponding common tuple values are aligned and merged. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37633	37728	
==>ch that all common attribute names and corresponding common tuple values
are aligned and merged. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40440	40535	
==>ch that all common attribute names
and corresponding common tuple values are aligned and merged. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42182	42277	
==>ch that all common attribute names and corresponding common tuple values
are aligned and merged. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40054	40149	
==>ch that all common attribute names
and corresponding common tuple values are aligned and merged. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41832	41927	
==>ch that all common attribute names and corresponding common tuple values
are aligned and merged. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3271	3380	
==>'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3271	3380	
==>'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3271	3380	
==>'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  func <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28816	28923	
==>EXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Good <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28816	28923	
==>EXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Good <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	187	286	
==>EXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Good <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20487	20613	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17626	17752	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20487	20613	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17626	17752	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20487	20613	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17626	17752	
==>t is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15022	15115	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12276	12369	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15022	15115	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12276	12369	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15022	15115	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12276	12369	
==>$attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4387	4522	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7323	7458	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4387	4522	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7323	7458	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4387	4522	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7323	7458	
==>are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1099	1215	
==>lessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1099	1215	
==>lessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1099	1215	
==>lessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3754	3852	
==>h = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3754	3852	
==>h = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3754	3852	
==>h = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1546	1682	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3109	3245	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1546	1682	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3109	3245	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1546	1682	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3109	3245	
==>ELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2248	2450	
==>Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5725	5927	
==>Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4655	4857	
==>Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3612	3734	
==>e_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3612	3734	
==>e_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3612	3734	
==>e_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1170	1390	
==>x:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $si <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1170	1390	
==>x:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $si <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3156	3268	
==>$x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13982	14079	
==>local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13982	14079	
==>local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13982	14079	
==>local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1443	1543	
==>ibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6691	6791	
==>h(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1443	1543	
==>ibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6691	6791	
==>h(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1443	1543	
==>ibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6691	6791	
==>h(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2271	2398	
==>ew {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2818	2945	
==>ew {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3365	3492	
==>ew {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2269	2380	
==>diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	258	363	
==>diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	258	363	
==>diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	17499	17619	
==>nt('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) }{$sy <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12970	13080	
==>=> sub { "". ${$_[0]} },
      scalar_non_numeric => sub { "". ${$_[0]} },
      array => sub { "". @{$_[0]} }, <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6742	6850	
==>is text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6742	6850	
==>is text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1516	1618	
==>er::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1516	1618	
==>er::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1553	1661	
==>->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1553	1661	
==>->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1553	1661	
==>->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	221	324	
==>urn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	221	324	
==>urn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	221	324	
==>urn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	954	1078	
==>$_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	954	1078	
==>$_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	954	1078	
==>$_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1198	1310	
==>n eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_white <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1198	1310	
==>n eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_white <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1198	1310	
==>n eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_white <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12618	12749	
==>atus();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2984	3111	
==>atus();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1 <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2984	3111	
==>atus();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1112	1212	
==>'&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26mai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1112	1212	
==>'&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26mai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1112	1212	
==>'&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26mai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	713	816	
==>d');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	713	816	
==>d');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	713	816	
==>d');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20533	20631	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20533	20631	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20533	20631	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7863	7989	
==>) ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13457	13583	
==>) ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7863	7989	
==>) ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13451	13577	
==>) ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16197	16295	
==>ading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> c <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16197	16295	
==>ading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5142	5315	
==>ue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5142	5315	
==>ue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5142	5315	
==>ue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6763	6917	
==>EF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _pa <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7227	7381	
==>EF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _pa <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23062	23148	
==><'function'> <Identifier> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <'}'> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30533	30690	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32247	32404	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30533	30690	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32247	32404	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30533	30690	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32247	32404	
==>ERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2695	2811	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3275	3391	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2695	2811	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3275	3391	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2695	2811	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3275	3391	
==>@_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1832	1948	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3395	3511	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1832	1948	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3395	3511	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1832	1948	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3395	3511	
==>ons
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatc <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2772	2913	
==>zy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests f <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2772	2913	
==>zy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9933	10065	
==>for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9933	10065	
==>for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9933	10065	
==>for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1146	1266	
==>) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1146	1266	
==>) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1146	1266	
==>) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3992	4140	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6928	7076	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3992	4140	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6928	7076	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3992	4140	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6928	7076	
==>>(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9942	10049	
==>" " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9942	10049	
==>" " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9942	10049	
==>" " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PI <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2227	2331	
==>e a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathd <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2227	2331	
==>e a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathd <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31579	31678	
==>llowed, so I delete its handler too.  You can use this class to
ensure that there is are no code-exe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6080	6186	
==>eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6080	6186	
==>eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6080	6186	
==>eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2669	2759	
==>hod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2669	2759	
==>hod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2669	2759	
==>hod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12326	12475	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3948	4097	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12326	12475	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3948	4097	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12326	12475	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3948	4097	
==>LOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLAS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11261	11374	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11736	11849	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11261	11374	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11736	11849	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11261	11374	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11736	11849	
==>) {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5781	5881	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8751	8851	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5781	5881	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8751	8851	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5781	5881	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8751	8851	
==>ated in the other ::make_*_method subs below
        return $method if blessed($method) && $method->i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3993	4105	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6642	6754	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4231	4340	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10680	10789	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4231	4340	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10680	10789	
==>n block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1868	1970	
==>N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1868	1970	
==>N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1868	1970	
==>N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2167	2246	
==>|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:| <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2167	2246	
==>|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:| <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2167	2246	
==>|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:| <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10958	11060	
==>"'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10958	11060	
==>"'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10958	11060	
==>"'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1421	1519	
==>til>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1421	1519	
==>til>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1421	1519	
==>til>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2596	2700	
==>er(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2596	2700	
==>er(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2596	2700	
==>er(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7144	7237	
==>'$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return joi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7144	7237	
==>'$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return joi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7144	7237	
==>'$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7005	7101	
==>eturn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7005	7101	
==>eturn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7005	7101	
==>eturn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internal <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13924	14099	
==>+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable - <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4033	4180	
==>+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4033	4180	
==>+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4033	4180	
==>+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable - <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4372	4468	
==>s are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4372	4468	
==>s are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2679	2781	
==>turn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6156	6258	
==>turn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5086	5188	
==>turn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2403	2503	
==>toderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2403	2503	
==>toderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2403	2503	
==>toderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	378	487	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	371	480	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	378	487	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	371	480	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	378	487	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	371	480	
==>nings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::po <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1427	1525	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1427	1525	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1427	1525	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	389	485	
==>rn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	389	485	
==>rn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	389	485	
==>rn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	141	288	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	139	286	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	141	288	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	139	286	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	141	288	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	139	286	
==>Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access thei <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1218	1351	
==>n(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1218	1351	
==>n(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' u <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	719	843	
==>deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompiler->compile($source);
    #print '*{\' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3720	3809	
==>$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autoviv <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3720	3809	
==>$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autoviv <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3720	3809	
==>$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autoviv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37620	37735	
==>shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37620	37735	
==>shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37620	37735	
==>shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7577	7716	
==>{ 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7577	7716	
==>{ 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7577	7716	
==>{ 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6882	7003	
==>(Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6882	7003	
==>(Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6882	7003	
==>(Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6074	6179	
==>e capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5881	5982	
==>e capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1631	1723	
==>(str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1631	1723	
==>(str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1631	1723	
==>(str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2445	2532	
==>be built ./configure --enable-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl-5. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9874	9986	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10855	10967	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12326	12438	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13351	13463	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14332	14444	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15803	15915	
==>or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7765	7895	
==>d' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7765	7895	
==>d' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7765	7895	
==>d' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11605	11697	
==>e "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11605	11697	
==>e "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11605	11697	
==>e "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9062	9173	
==>d captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9050	9161	
==>d captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4695	4794	
==>mes)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fi <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	330	429	
==>ser.

# It looks like the ("A feasibility and performance reality check")
# spike has succeeded.  Th <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4695	4794	
==>mes)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4695	4794	
==>mes)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15868	16049	
==>1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::cap <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16147	16328	
==>1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::cap <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19674	19854	
==>:alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19953	20133	
==>:alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9883	9989	
==>il();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return str <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9883	9989	
==>il();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11566	11793	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9119	9346	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11566	11793	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9119	9346	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11566	11793	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9119	9346	
==>tack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13480	13603	
==>@_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13480	13603	
==>@_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13480	13603	
==>@_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1273	1369	
==>o_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1273	1369	
==>o_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1273	1369	
==>o_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11109	11234	
==>f (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11109	11234	
==>f (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11109	11234	
==>f (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	161	274	
==>odel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	161	274	
==>odel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	161	274	
==>odel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20559	20776	
==>rn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20559	20776	
==>rn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20559	20776	
==>rn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp-> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	858	952	
==>ites a message to the normal output filehandle, adding leading C<#>
characters after all newlin <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	858	952	
==>ites a message to the normal output filehandle, adding leading C<#>
characters after all newlin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1414	1508	
==>ites a message to the normal output filehandle, adding leading C<#>
characters after all newlin <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18068	18198	
==>120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # ( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17106	17236	
==>120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # ( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18068	18198	
==>120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # ( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17106	17236	
==>120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # ( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16797	16890	
==>compile that into its own executable, in practice one would
normally just write some component <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16797	16890	
==>compile that into its own executable, in practice one would
normally just write some component <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14272	14394	
==>e_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14272	14394	
==>e_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14272	14394	
==>e_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	511	613	
==>Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	511	613	
==>Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	511	613	
==>Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4831	4942	
==>return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4831	4942	
==>return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3886	3988	
==>($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3886	3988	
==>($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3886	3988	
==>($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9238	9325	
==>oo->add_singleton_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_iFoo_sin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3581	3694	
==>->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3581	3694	
==>->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3581	3694	
==>->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2691	2784	
==>prelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2691	2784	
==>prelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2691	2784	
==>prelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_mo <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2601	2698	
==>et contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> it <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2601	2698	
==>et contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> it <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10294	10388	
==>S

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8187	8281	
==>S

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10294	10388	
==>S

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8187	8281	
==>S

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1183	1304	
==>ply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1183	1304	
==>ply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1183	1304	
==>ply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10523	10634	
==>terface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10523	10634	
==>terface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10523	10634	
==>terface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3931	4051	
==>e $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3931	4051	
==>e $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3931	4051	
==>e $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub com <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2796	2906	
==>e done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2796	2906	
==>e done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2796	2906	
==>e done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13662	13761	
==>> 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13662	13761	
==>> 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13662	13761	
==>> 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36978	37071	
==>ical headings, for these their joining
degenerates to a C<intersection>.  In any situation whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41527	41620	
==>ical headings, for these their joining
degenerates to a C<intersection>.  In any situation whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41150	41243	
==>ical headings, for these their joining
degenerates to a C<intersection>.  In any situation whe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2249	2402	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4576	4729	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2249	2402	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4576	4729	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2249	2402	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4576	4729	
==>urrently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40523	40644	
==>ub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40523	40644	
==>ub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40523	40644	
==>ub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1658	1765	
==>l6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1658	1765	
==>l6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1658	1765	
==>l6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9370	9478	
==>ed    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9370	9478	
==>ed    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9370	9478	
==>ed    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5480	5581	
==>fied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5480	5581	
==>fied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5480	5581	
==>fied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4424	4583	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6936	7095	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4424	4583	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6936	7095	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4424	4583	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6936	7095	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real di <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3931	4081	
==>nt $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3931	4081	
==>nt $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1485	1627	
==>nt $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1485	1627	
==>nt $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16545	16665	
==>on-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plau <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20971	21091	
==>on-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plau <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	285	390	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	283	388	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	285	390	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	283	388	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	285	390	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	283	388	
==>their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as describ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5859	6003	
==>}  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5859	6003	
==>}  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5859	6003	
==>}  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9275	9417	
==>nd )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9275	9417	
==>nd )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9275	9417	
==>nd )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	62	176	
==>use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&h <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	104	218	
==>use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	62	176	
==>use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	104	218	
==>use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&h <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	384	487	
==>g - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Cod <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	384	487	
==>g - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	746	874	
==>$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	746	874	
==>$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	746	874	
==>$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	159	282	
==>:PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	159	282	
==>:PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	159	282	
==>:PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2370	2501	
==>t, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2370	2501	
==>t, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2370	2501	
==>t, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1340	1449	
==>e_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1545	1654	
==>e_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1606	1715	
==>e_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3956	4074	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyrig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3956	4074	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyrig <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6935	7052	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrig <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9005	9122	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6935	7052	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9005	9122	
==>MS@cpan.org>, and is written
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyrig <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15757	15885	
==>t file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11654	11776	
==>->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11654	11776	
==>->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11654	11776	
==>->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6007	6108	
==>is Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exceptio <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6007	6108	
==>is Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exceptio <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18757	18930	
==>onstant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19036	19209	
==>onstant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rul <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2781	2885	
==>st::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Build <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2781	2885	
==>st::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Build <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4305	4409	
==>st::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Build <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1262	1352	
==>:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("circumfix:[ ]", "term:", "nows <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	114	228	
==>h {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, % <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	114	228	
==>h {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, % <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	179	286	
==>ugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Opera <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	183	290	
==>ugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Opera <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	177	284	
==>ugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Opera <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	177	284	
==>ugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Opera <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17565	17731	
==>r " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17565	17731	
==>r " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17565	17731	
==>r " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13742	13842	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13742	13842	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13742	13842	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label( <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	118	244	
==>nt in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein pa <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11344	11457	
==>er;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23836	23936	
==>e between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22609	22709	
==>e between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23836	23936	
==>e between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22609	22709	
==>e between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4963	5075	
==>span.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4963	5075	
==>span.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11417	11590	
==>it->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11417	11590	
==>it->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11417	11590	
==>it->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10613	10729	
==>::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10613	10729	
==>::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10613	10729	
==>::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5326	5484	
==>}),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.m <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5326	5484	
==>}),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.m <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	115	234	
==>_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'new <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	115	234	
==>_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'new <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	115	234	
==>_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'new <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	115	234	
==>_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6149	6288	
==>}, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6149	6288	
==>}, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6149	6288	
==>}, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5856	5994	
==>d by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB un <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5856	5994	
==>d by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB un <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5856	5994	
==>d by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB un <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7194	7398	
==>ernation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7387	7591	
==>ernation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_g <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2965	3061	
==>y string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12495	12591	
==>t empty, but gains one element for each Node in the Node
hierarchies created from a defined @root <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12495	12591	
==>t empty, but gains one element for each Node in the Node
hierarchies created from a defined @root <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2965	3061	
==>y string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6418	6522	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9388	9492	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6418	6522	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9388	9492	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6418	6522	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9388	9492	
==>thod if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	345	600	
==>ackages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # Extern <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	345	600	
==>ackages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # Extern <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18071	18201	
==>,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opt <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17109	17239	
==>,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opt <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18071	18201	
==>,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opt <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17109	17239	
==>,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4125	4248	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7061	7184	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4125	4248	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7061	7184	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4125	4248	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7061	7184	
==>his operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3467	3576	
==>hod('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5721	5830	
==>s 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handles) = @_;
  no st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3467	3576	
==>hod('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3467	3576	
==>hod('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4144	4242	
==>match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4144	4242	
==>match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	188	300	
==>erl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	188	300	
==>erl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	188	300	
==>erl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38827	38920	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43641	43734	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43175	43268	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7352	7526	
==>:numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7352	7526	
==>:numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7352	7526	
==>:numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1456	1552	
==>"infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1456	1552	
==>"infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1456	1552	
==>"infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Str <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8220	8334	
==>elf.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $str <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8220	8334	
==>elf.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $str <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19430	19526	
==>, you only have to update said separate resource files, and not change
your main program.

I<Note <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19430	19526	
==>, you only have to update said separate resource files, and not change
your main program.

I<Note <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34201	34293	
==>cept>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38751	38843	
==>cept>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10186	10316	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7737	7867	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10186	10316	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7737	7867	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10186	10316	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7737	7867	
==>the top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->() <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10232	10341	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12873	12982	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13709	13818	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16350	16459	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12990	13099	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15712	15821	
==>rces have identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6148	6279	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9118	9249	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6148	6279	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9118	9249	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6148	6279	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9118	9249	
==>{
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4863	4989	
==>], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15899	16025	
==>], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17387	17513	
==>], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22070	22196	
==>], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	680	769	
==>se v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->comp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	680	769	
==>se v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->comp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4769	4939	
==>'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4769	4939	
==>'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4769	4939	
==>'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13461	13554	
==>hexdigit(D), hexdigits(T), !.
hexdigits([])    --> [].
hexdigit(D) --> [D], { code_type(D, xdi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10929	11051	
==>does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12400	12522	
==>does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14406	14528	
==>does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15877	15999	
==>does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16332	16423	
==>parameter's
corresponding argument is not provided).  If the optional named parameter
$paren <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16332	16423	
==>parameter's
corresponding argument is not provided).  If the optional named parameter
$paren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7301	7476	
==>cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7301	7476	
==>cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7301	7476	
==>cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	149	246	
==>ied - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	149	246	
==>ied - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	149	246	
==>ied - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub w <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18543	18670	
==>(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an openi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14964	15091	
==>(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an openi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4927	5037	
==>> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4927	5037	
==>> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5391	5497	
==>> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5391	5497	
==>> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1859	1959	
==>lices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..In <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1859	1959	
==>lices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..In <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1859	1959	
==>lices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1410	1496	
==>d_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1410	1496	
==>d_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1410	1496	
==>d_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('% <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2894	3006	
==>e->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3034	3146	
==>e->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - i <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9116	9221	
==>from"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	325	426	
==>sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	325	426	
==>sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	325	426	
==>sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23552	23658	
==>x_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23552	23658	
==>x_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23552	23658	
==>x_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	326	414	
==>Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	326	414	
==>Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	326	414	
==>Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2153	2274	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11021	11142	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11980	12101	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2346	2467	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11300	11421	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12259	12380	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gram <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2854	2958	
==>t_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2854	2958	
==>t_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2854	2958	
==>t_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2857	2956	
==>me return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2857	2956	
==>me return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2857	2956	
==>me return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::V <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24949	25071	
==>ren})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $sel <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3604	3714	
==>ember);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## m <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3604	3714	
==>ember);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4087	4188	
==>ach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4087	4188	
==>ach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4087	4188	
==>ach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1729	1850	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3292	3413	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1729	1850	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3292	3413	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1729	1850	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3292	3413	
==>thods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11816	11931	
==>process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove al <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11816	11931	
==>process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove al <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3094	3209	
==>alue::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 i <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3640	3755	
==>alue::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 i <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27430	27525	
==>onstructed.  If you want to
conceptually change an existing Message object, you must create a ne <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27430	27525	
==>onstructed.  If you want to
conceptually change an existing Message object, you must create a ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8822	9006	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11795	11979	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8822	9006	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11795	11979	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8822	9006	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11795	11979	
==>_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the metho <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3192	3341	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6185	6332	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3460	3600	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9878	10018	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3460	3600	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9878	10018	
==>on( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimiza <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1215	1315	
==>o backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1215	1315	
==>o backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1215	1315	
==>o backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38241	38336	
==>item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subst <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42790	42885	
==>item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subst <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42440	42535	
==>item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1437	1574	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1437	1574	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1437	1574	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	322	422	
==>CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	322	422	
==>CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	322	422	
==>CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26072	26217	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28273	28418	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26072	26217	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28273	28418	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26072	26217	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28273	28418	
==>0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1700	1830	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3263	3393	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1700	1830	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3263	3393	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1700	1830	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3263	3393	
==>ame, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8757	8941	
==>t' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8757	8941	
==>t' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8757	8941	
==>t' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4287	4377	
==>ckreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4287	4377	
==>ckreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4287	4377	
==>ckreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5123	5230	
==>? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5316	5423	
==>? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = s <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8776	8870	
==>e Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3705	3799	
==>e Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8776	8870	
==>e Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3705	3799	
==>e Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	946	1054	
==>0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	946	1054	
==>0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32031	32128	
==>tion, and returns a new Relation that has the same heading
and whose body contains all of the tupl <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33892	33989	
==>tion, and returns a new Relation that has the same heading and
whose body contains all of the tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36581	36678	
==>tion, and returns a new Relation that has the same heading
and whose body contains all of the tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38442	38539	
==>tion, and returns a new Relation that has the same heading and
whose body contains all of the tupl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9168	9277	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6715	6824	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9168	9277	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6715	6824	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9168	9277	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6715	6824	
==>d($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17552	17669	
==>6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17552	17669	
==>6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17552	17669	
==>6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	748	848	
==>s(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clon <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	748	848	
==>s(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clon <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	748	848	
==>s(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clon <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11890	12019	
==>re => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$name', \n" . $program . "$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3466	3563	
==>ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3466	3563	
==>ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3466	3563	
==>ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10945	11041	
==>ESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $no <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10945	11041	
==>ESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1888	1985	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2231	2328	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1888	1985	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2231	2328	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1888	1985	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2231	2328	
==>n safely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15091	15203	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12345	12457	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15091	15203	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12345	12457	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15091	15203	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12345	12457	
==>self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3543	3646	
==>_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15760	15867	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13010	13117	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15760	15867	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13010	13117	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15760	15867	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13010	13117	
==>, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6713	6830	
==>able: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6713	6830	
==>able: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6713	6830	
==>able: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3135	3223	
==>/www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::A <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3135	3223	
==>/www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::A <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3482	3570	
==>/www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::A <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	331	445	
==>ammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

= <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	311	421	
==>ammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14765	14872	
==>};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteract <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14765	14872	
==>};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteract <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14765	14872	
==>};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteract <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22507	22600	
==>head1 DESCRIPTION

This library provides a partial implementation, in the form of several
role <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4035	4157	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4973	5095	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2269	2391	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2515	2637	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3050	3172	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3296	3418	
==>et_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1 <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6581	6692	
==>rl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' = <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6581	6692	
==>rl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' = <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6382	6489	
==>rl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' = <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6382	6489	
==>rl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' = <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2702	2798	
==>c_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2702	2798	
==>c_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14493	14642	
==>lf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14493	14642	
==>lf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14493	14642	
==>lf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9107	9219	
==>. $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9107	9219	
==>. $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9107	9219	
==>. $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1002	1121	
==>rnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1002	1121	
==>rnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1002	1121	
==>rnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11941	12044	
==>1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok = substr($X::str,$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18676	18772	
==>". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18676	18772	
==>". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7656	7817	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5215	5376	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7656	7817	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5215	5376	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7656	7817	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5215	5376	
==>}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	11957	12057	
==>k('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12015	12115	
==>k('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8906	8999	
==>2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, di <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3835	3928	
==>2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, di <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8906	8999	
==>2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, di <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3835	3928	
==>2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, di <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9548	9649	
==>This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :to <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9606	9707	
==>This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :to <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12126	12223	
==>etime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-0 <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13957	14054	
==>etime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-0 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12126	12223	
==>etime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-0 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13957	14054	
==>etime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4346	4479	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6858	6991	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4346	4479	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6858	6991	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4346	4479	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6858	6991	
==>>{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) { <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	613	787	
==>d value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @c <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	613	787	
==>d value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @c <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	937	1068	
==>art    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4176	4307	
==>art    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	937	1068	
==>art    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4176	4307	
==>art    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30144	30295	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31873	32024	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30144	30295	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31873	32024	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30144	30295	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31873	32024	
==>y = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	534	635	
==>ter a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	534	635	
==>ter a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	534	635	
==>ter a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3536	3629	
==>{}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3536	3629	
==>{}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4126	4219	
==>{}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31096	31261	
==>mp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31096	31261	
==>mp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31096	31261	
==>mp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1663	1767	
==>me;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1663	1767	
==>me;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1663	1767	
==>me;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4738	4864	
==>ramDefault">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1183	1288	
==>).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1183	1288	
==>).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gramma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4543	4636	
==>nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4543	4636	
==>nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4543	4636	
==>nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3993	4146	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2084	2237	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3993	4146	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2084	2237	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3993	4146	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2084	2237	
==>er(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4052	4185	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6988	7121	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4052	4185	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6988	7121	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4052	4185	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6988	7121	
==>pper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anyt <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14551	14648	
==>needs. This module will be the code support for those needs. The
following is a list of future fea <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14609	14706	
==>needs. This module will be the code support for those needs. The
following is a list of future fea <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22528	22623	
==>r by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21382	21477	
==>r by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22528	22623	
==>r by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21382	21477	
==>r by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3566	3679	
==>Y') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3566	3679	
==>Y') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3566	3679	
==>Y') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'metho <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25376	25471	
==>turns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<ren <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29928	30023	
==>turns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<ren <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28867	28962	
==>turns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<ren <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2905	3067	
==>e
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- per <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3089	3251	
==>e
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- per <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14215	14322	
==>my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4284	4387	
==>my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4284	4387	
==>my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4284	4387	
==>my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6709	6805	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5839	5935	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2493	2589	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2493	2589	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6709	6805	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5839	5935	
==>e, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3161	3264	
==>defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3161	3264	
==>defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3161	3264	
==>defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ / <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7434	7524	
==>return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7434	7524	
==>return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7434	7524	
==>return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3895	3996	
==>us 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3895	3996	
==>us 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5419	5520	
==>us 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test:: <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9421	9518	
==>:BigInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100', <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39502	39595	
==>le::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address com <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39502	39595	
==>le::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address com <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	182	296	
==>o diffrent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ], <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2622	2730	
==>$in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2622	2730	
==>$in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1098	1198	
==>e lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1098	1198	
==>e lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1098	1198	
==>e lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opti <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6184	6336	
==>($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fina <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4686	4838	
==>($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fina <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2954	3098	
==>ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    } <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8048	8192	
==>ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    } <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2954	3098	
==>ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    } <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8048	8192	
==>ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7056	7191	
==>e end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7056	7191	
==>e end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21733	21847	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18154	18268	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37511	37604	
==>tional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_te <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37511	37604	
==>tional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_te <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22553	22679	
==>ir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      ty <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23055	23181	
==>ir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	195	303	
==>ve {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	195	303	
==>ve {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	195	303	
==>ve {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/the <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	553	645	
==>>new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13529	13634	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10813	10918	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13529	13634	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10813	10918	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13529	13634	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10813	10918	
==>s_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13125	13294	
==>->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13125	13294	
==>->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13125	13294	
==>->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1141	1251	
==>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1141	1251	
==>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1141	1251	
==>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6243	6386	
==>e"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7323	7436	
==>a($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3927	4040	
==>a($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4776	4889	
==>a($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12332	12434	
==>t block and data section, each
# into a single line containing a digest of the original content.
#
# Th <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12332	12434	
==>t block and data section, each
# into a single line containing a digest of the original content.
#
# Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6565	6698	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9014	9147	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6565	6698	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9014	9147	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6565	6698	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9014	9147	
==>ot defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2813	2945	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5803	5935	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3102	3227	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9520	9645	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3102	3227	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9520	9645	
==>nal {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6451	6570	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9421	9540	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6451	6570	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9421	9540	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6451	6570	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9421	9540	
==>od->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3914	4014	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6563	6663	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4153	4251	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10602	10700	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4153	4251	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10602	10700	
==>he internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	343	476	
==>ngs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	343	476	
==>ngs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	343	476	
==>ngs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1703	1836	
==>te = $_[1] ? @{$_[1]} : ();
        do {
            my $st = $nodes->[0]->( $_[0], $state[0], @_[2,3,4,5,6,7] );
            retur <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3153	3246	
==>$got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3211	3304	
==>$got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11500	11615	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2494	2609	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7588	7703	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11500	11615	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2494	2609	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7588	7703	
==>-> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24825	25015	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27014	27204	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24825	25015	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27014	27204	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24825	25015	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27014	27204	
==>$samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @star <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11656	11776	
==>2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11656	11776	
==>2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11656	11776	
==>2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3851	3954	
==>if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3851	3954	
==>if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3851	3954	
==>if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1941	2054	
==>es)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1941	2054	
==>es)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1941	2054	
==>es)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5481	5592	
==>JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5481	5592	
==>JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5481	5592	
==>JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5319	5446	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8289	8416	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5319	5446	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8289	8416	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5319	5446	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8289	8416	
==>{
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13326	13496	
==>,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3491	3641	
==>,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3491	3641	
==>,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3491	3641	
==>,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11086	11224	
==>( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else { <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11086	11224	
==>( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else { <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	211	329	
==>t_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	211	329	
==>t_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12047	12163	
==>P_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6614	6730	
==>P_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12047	12163	
==>P_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6614	6730	
==>P_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	819	923	
==>deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	819	923	
==>deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	819	923	
==>deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1301	1400	
==>_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1301	1400	
==>_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1301	1400	
==>_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	452	555	
==>of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	452	555	
==>of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	452	555	
==>of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	95	193	
==>ERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	95	193	
==>ERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	95	193	
==>ERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cla <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8164	8308	
==>$block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4524	4668	
==>$block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5373	5517	
==>$block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13887	14004	
==>atcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13887	14004	
==>atcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13887	14004	
==>atcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24711	24834	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26900	27023	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24711	24834	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26900	27023	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24711	24834	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26900	27023	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6573	6685	
==>L::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6573	6685	
==>L::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6573	6685	
==>L::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	899	1009	
==>t
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	899	1009	
==>t
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	899	1009	
==>t
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13409	13551	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13409	13551	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13409	13551	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5651	5793	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4151	4293	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2294	2436	
==>my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6399	6552	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8848	9001	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6399	6552	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8848	9001	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6399	6552	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8848	9001	
==>n-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice st <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5474	5602	
==>TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'Mk <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5474	5602	
==>TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'Mk <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9877	9993	
==>);

  $self->add_handler('$$' => sub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S->object(eo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3883	3986	
==>5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mod <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3883	3986	
==>5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5407	5510	
==>5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5971	6073	
==>):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5971	6073	
==>):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5971	6073	
==>):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4513	4605	
==>al issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4513	4605	
==>al issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4513	4605	
==>al issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5286	5420	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8256	8390	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5286	5420	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8256	8390	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5286	5420	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8256	8390	
==>od ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25318	25461	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25976	26119	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28758	28901	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25597	25740	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26255	26398	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29037	29180	
==>p::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 't <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	610	735	
==>f !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	610	735	
==>f !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	610	735	
==>f !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	83	179	
==>periment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	83	179	
==>periment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	83	179	
==>periment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7276	7434	
==>};
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7276	7434	
==>};
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7276	7434	
==>};
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	530	624	
==>setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	530	624	
==>setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	530	624	
==>setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1715	1847	
==>"pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implement <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1715	1847	
==>"pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implement <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1715	1847	
==>"pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implement <==
6	/Users/nnunley/pugs/util/drift.pl	360	460	
==>dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, $in or die $!;
wh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	496	589	
==>ON

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	496	589	
==>ON

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8979	9112	
==>est::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.he <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1127	1246	
==>est::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.he <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1127	1246	
==>est::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.he <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	266	380	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	266	380	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	266	380	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8634	8747	
==>l6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8634	8747	
==>l6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8634	8747	
==>l6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # war <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6035	6127	
==>bType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6035	6127	
==>bType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2934	3026	
==>bType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2799	2926	
==>ys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2799	2926	
==>ys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2799	2926	
==>ys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1506	1613	
==>te;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1506	1613	
==>te;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1506	1613	
==>te;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12887	13032	
==>emit( $n->{exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) . ']';
    }
    
    return _no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3919	4020	
==>tents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3919	4020	
==>tents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3919	4020	
==>tents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25670	25768	
==>ad by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25670	25768	
==>ad by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19891	19991	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17030	17130	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19891	19991	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17030	17130	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19891	19991	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17030	17130	
==>/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17899	18034	
==>efaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, def <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16937	17072	
==>efaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, def <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17899	18034	
==>efaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, def <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16937	17072	
==>efaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, def <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12362	12455	
==>e defaults to empty if the parameter's
corresponding argument is undefined).  The new Document <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12362	12455	
==>e defaults to empty if the parameter's
corresponding argument is undefined).  The new Document <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2095	2272	
==>om;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2095	2272	
==>om;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2095	2272	
==>om;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15267	15375	
==>d {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Co <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15267	15375	
==>d {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Co <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52382	52466	
==>ass->set_attr(symbol->new('@:superclasses') => list->new($::Module));

$::Module->set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3938	4115	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6465	6642	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3938	4115	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6465	6642	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3938	4115	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6465	6642	
==>body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5441	5556	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8411	8526	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5441	5556	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8411	8526	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5441	5556	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8411	8526	
==>s when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3015	3153	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5816	5954	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3015	3153	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5816	5954	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3015	3153	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5816	5954	
==>Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4609	4731	
==>my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7332	7454	
==>my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6034	6135	
==>eclaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6034	6135	
==>eclaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6034	6135	
==>eclaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14555	14665	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11815	11925	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14555	14665	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11815	11925	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14555	14665	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11815	11925	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12266	12365	
==>value )

Set the specified header to the given value, but only if no previous
value for that field i <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12266	12365	
==>value )

Set the specified header to the given value, but only if no previous
value for that field i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9614	9710	
==>tta::Model indicates a failure is to throw an
exception; most often this is due to invalid input. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9614	9710	
==>tta::Model indicates a failure is to throw an
exception; most often this is due to invalid input. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1664	1756	
==>ass->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_st <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1664	1756	
==>ass->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9394	9506	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6941	7053	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9394	9506	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6941	7053	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9394	9506	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6941	7053	
==>readth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	899	995	
==>e => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	899	995	
==>e => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	899	995	
==>e => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14229	14323	
==>)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14229	14323	
==>)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14229	14323	
==>)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6225	6316	
==>de additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=o <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6225	6316	
==>de additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8422	8513	
==>de additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3635	3725	
==>rator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3635	3725	
==>rator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3635	3725	
==>rator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Opera <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9977	10153	
==>signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9977	10153	
==>signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9977	10153	
==>signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5017	5119	
==>Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5017	5119	
==>Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5017	5119	
==>Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7365	7514	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4924	5073	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7365	7514	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4924	5073	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7365	7514	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4924	5073	
==>ach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $s <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7238	7363	
==>d to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        fo <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	539	664	
==>d to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        fo <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	446	552	
==>set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	181	287	
==>set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7805	7898	
==>rns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7805	7898	
==>rns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9372	9509	
==>{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEX <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9372	9509	
==>{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1691	1814	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1691	1814	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1691	1814	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && b <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4547	4655	
==>prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5423	5520	
==>sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4553	4650	
==>sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5423	5520	
==>sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4553	4650	
==>sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3797	3891	
==>. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3797	3891	
==>. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6041	6162	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9011	9132	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6041	6162	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9011	9132	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6041	6162	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9011	9132	
==>return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15557	15711	
==>my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15557	15711	
==>my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15557	15711	
==>my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4940	5043	
==>, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4940	5043	
==>, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4940	5043	
==>, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1124	1236	
==>acted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1124	1236	
==>acted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1124	1236	
==>acted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	137	238	
==>s_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	137	238	
==>s_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	137	238	
==>s_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	205	332	
==>valuated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	205	332	
==>valuated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	205	332	
==>valuated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PSt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1536	1638	
==>, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1536	1638	
==>, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1536	1638	
==>, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1176	1313	
==>ck (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $p <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1176	1313	
==>ck (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $p <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	610	735	
==>ck (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $p <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	610	735	
==>ck (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $p <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1723	1817	
==>my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> li <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1723	1817	
==>my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> li <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7830	8002	
==>okies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7830	8002	
==>okies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17794	17906	
==>spatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17794	17906	
==>spatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17794	17906	
==>spatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1159	1262	
==>ype::Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1761	1882	
==>ngify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1761	1882	
==>ngify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1761	1882	
==>ngify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self-> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4248	4340	
==>test_test( Str $description? )>

Compares the receivied and expected lines from the previousl <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4248	4340	
==>test_test( Str $description? )>

Compares the receivied and expected lines from the previousl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4328	4420	
==>test_test( Str $description? )>

Compares the receivied and expected lines from the previousl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	542	662	
==>p,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	542	662	
==>p,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	542	662	
==>p,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17876	17967	
==>I SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17876	17967	
==>I SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17876	17967	
==>I SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6263	6374	
==>ls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6263	6374	
==>ls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6263	6374	
==>ls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3597	3695	
==>ent',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_St <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3597	3695	
==>ent',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_St <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	447	545	
==>ent',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6343	6467	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9313	9437	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6343	6467	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9313	9437	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6343	6467	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9313	9437	
==>b ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6632	6755	
==>(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6632	6755	
==>(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6632	6755	
==>(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1469	1577	
==>param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1469	1577	
==>param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1678	1786	
==>param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	186	294	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	350	458	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	186	294	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	350	458	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	186	294	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	350	458	
==>r hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    se <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	134	239	
==>allback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($ <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	134	239	
==>allback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11164	11262	
==>as(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8568	8666	
==>as(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11164	11262	
==>as(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8568	8666	
==>as(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3140	3259	
==>$param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3140	3259	
==>$param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3140	3259	
==>$param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	635	739	
==>ined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	635	739	
==>ined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	635	739	
==>ined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4283	4412	
==>contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4283	4412	
==>contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4283	4412	
==>contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  } <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31327	31418	
==>for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
Tr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35877	35968	
==>for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
Tr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35095	35186	
==>for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
Tr <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3695	3801	
==>md = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$C <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3695	3801	
==>md = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	134	238	
==>rser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	134	238	
==>rser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	134	238	
==>rser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bles <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	735	835	
==>md = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2140	2262	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1252	1374	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2140	2262	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1252	1374	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2140	2262	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1252	1374	
==>::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3683	3796	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6619	6732	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3683	3796	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6619	6732	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3683	3796	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6619	6732	
==>g $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9114	9249	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12087	12222	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9114	9249	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12087	12222	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9114	9249	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12087	12222	
==>Method::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19168	19275	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16406	16513	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19168	19275	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16406	16513	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19168	19275	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16406	16513	
==>t though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9218	9331	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6765	6878	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9218	9331	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6765	6878	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9218	9331	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6765	6878	
==>atcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19504	19608	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16736	16840	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19504	19608	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16736	16840	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19504	19608	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16736	16840	
==>store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4160	4320	
==>z .] )
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), retu <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4960	5065	
==>ub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simpli <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4960	5065	
==>ub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simpli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10311	10402	
==>'${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10311	10402	
==>'${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10311	10402	
==>'${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12600	12744	
==>t \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded mac <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8874	9018	
==>t \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded mac <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9709	9853	
==>t \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded mac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2464	2566	
==>> method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2464	2566	
==>> method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2464	2566	
==>> method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6163	6295	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9133	9265	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6163	6295	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9133	9265	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6163	6295	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9133	9265	
==>n bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5863	5973	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8833	8943	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5863	5973	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8833	8943	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5863	5973	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8833	8943	
==>thod) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10735	10910	
==>> Array )

 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCrite <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2146	2255	
==>f->{operand};
    my $equal = "r$level";
    $equal = "parse" if $level == $#{$self->{levels}};
    for my $op <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	315	417	
==>s defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=he <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	315	417	
==>s defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=he <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4424	4513	
==>ocument describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documen <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4424	4513	
==>ocument describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11454	11696	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9007	9249	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11454	11696	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9007	9249	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11454	11696	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9007	9249	
==>class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2439	2581	
==>{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2439	2581	
==>{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2439	2581	
==>{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2215	2371	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4542	4698	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2215	2371	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4542	4698	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2215	2371	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4542	4698	
==>ves
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5649	5791	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3769	3911	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5649	5791	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3769	3911	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5649	5791	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3769	3911	
==>ass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6861	6990	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7622	7751	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8492	8621	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10338	10467	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11099	11228	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11969	12098	
==>he invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3302	3435	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6238	6371	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3302	3435	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6238	6371	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3302	3435	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6238	6371	
==>wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1832	1952	
==>e dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1832	1952	
==>e dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1832	1952	
==>e dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4757	4870	
==>mpiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4593	4703	
==>mpiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$ <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1927	2022	
==>rator_precedence_parser {
  my($ws,$operators,$tokens)=@_;
  my $noop = Hacks->noop;
  my $debug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	936	1061	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1024	1149	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	936	1061	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1024	1149	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	936	1061	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1024	1149	
==>eat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5874	6014	
==>There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acces <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5874	6014	
==>There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acces <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5874	6014	
==>There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acces <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9159	9261	
==>ke_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9159	9261	
==>ke_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9159	9261	
==>ke_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2193	2322	
==>Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrouti <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2193	2322	
==>Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrouti <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2540	2669	
==>Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrouti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3349	3471	
==>ethod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3349	3471	
==>ethod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3349	3471	
==>ethod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6159	6278	
==>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6159	6278	
==>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6159	6278	
==>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	773	860	
==>$::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	773	860	
==>$::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	773	860	
==>$::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2921	3071	
==>$alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3204	3345	
==>$alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9622	9763	
==>$alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3204	3345	
==>$alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9622	9763	
==>$alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5583	5672	
==>eturn { _print => $() ,} }
RULE
*{'_my'} = Pugs::Compiler::Rule->compile(<<'RULE')->code() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	762	872	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1282	1392	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	762	872	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1282	1392	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	762	872	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1282	1392	
==>();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5636	5772	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3756	3892	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5636	5772	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3756	3892	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5636	5772	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3756	3892	
==>er->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18668	18873	
==>AY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18668	18873	
==>AY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18668	18873	
==>AY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	403	489	
==>_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	403	489	
==>_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	403	489	
==>_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	712	818	
==>graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	712	818	
==>graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	712	818	
==>graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15901	16000	
==>ss_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15901	16000	
==>ss_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15901	16000	
==>ss_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30246	30417	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31975	32146	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30246	30417	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31975	32146	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30246	30417	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31975	32146	
==>Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1719	1840	
==>lternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ] <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21965	22085	
==>s} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18386	18506	
==>s} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2047	2166	
==>lternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1660	1779	
==>lternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2047	2166	
==>lternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	954	1070	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	954	1070	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	954	1070	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3298	3410	
==>aram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3298	3410	
==>aram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3298	3410	
==>aram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5411	5521	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6679	6789	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10941	11051	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5411	5521	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6667	6777	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11091	11201	
==>ce-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3766	3869	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6702	6805	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3766	3869	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6702	6805	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3766	3869	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6702	6805	
==>fined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12344	12480	
==>->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8620	8756	
==>->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9455	9591	
==>->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	500	609	
==>function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outpu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	500	609	
==>function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outpu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	500	609	
==>function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outpu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10877	11038	
==>art =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10877	11038	
==>art =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10877	11038	
==>art =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6051	6150	
==>une
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6051	6150	
==>une
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6051	6150	
==>une
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11690	11830	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9243	9383	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11690	11830	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9243	9383	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11690	11830	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9243	9383	
==>oto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10140	10269	
==>w if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10140	10269	
==>w if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10140	10269	
==>w if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16798	16893	
==>ing the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically loa <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16798	16893	
==>ing the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically loa <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1842	1922	
==>-------------------------------------------------------------------------------
. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1118	1238	
==>= 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1323	1443	
==>= 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1384	1504	
==>= 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35159	35277	
==>t length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @ta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35159	35277	
==>t length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @ta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35159	35277	
==>t length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11561	11717	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3073	3229	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11561	11717	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3073	3229	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11561	11717	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3073	3229	
==>(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = other.FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10068	10204	
==>= __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descr <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10068	10204	
==>= __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descr <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10068	10204	
==>= __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	274	396	
==>ssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	274	396	
==>ssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	274	396	
==>ssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9166	9428	
==>it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5526	5788	
==>it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6375	6637	
==>it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10437	10565	
==>h
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10437	10565	
==>h
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10437	10565	
==>h
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2247	2343	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2247	2343	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2247	2343	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31362	31454	
==>onymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35912	36004	
==>onymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35130	35222	
==>onymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	65	191	
==>ct;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	65	191	
==>ct;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	65	191	
==>ct;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3094	3183	
==>ugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3094	3183	
==>ugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3094	3183	
==>ugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7018	7158	
==>perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7018	7158	
==>perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7018	7158	
==>perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5929	6029	
==>g =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB un <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5929	6029	
==>g =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB un <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5929	6029	
==>g =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB un <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5470	5589	
==>tchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5470	5589	
==>tchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5089	5193	
==>k => sub {...},   # XXX - the return block could be generated automatically ?
  );

Pseudo-code for usage <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21335	21436	
==>to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21335	21436	
==>to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21335	21436	
==>to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5248	5381	
==>the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5248	5381	
==>the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5248	5381	
==>the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2952	3052	
==>al} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2952	3052	
==>al} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2952	3052	
==>al} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramNa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7364	7520	
==>";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7364	7520	
==>";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21834	21989	
==>->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21834	21989	
==>->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21834	21989	
==>->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (re <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	96	186	
==>se strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10357	10488	
==>xit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  metho <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2384	2497	
==>xit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

metho <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2384	2497	
==>xit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8621	8718	
==>oop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8621	8718	
==>oop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8621	8718	
==>oop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22143	22241	
==>en invoking methods on those objects.  All of
their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9416	9514	
==>en invoking methods on those objects.  All of
their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22143	22241	
==>en invoking methods on those objects.  All of
their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9416	9514	
==>en invoking methods on those objects.  All of
their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24511	24608	
==>en invoking methods on those objects.
All of their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24511	24608	
==>en invoking methods on those objects.
All of their attributes are private, so you must use accesso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1791	1933	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	903	1045	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1791	1933	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	903	1045	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1791	1933	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	903	1045	
==>LD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11534	11616	
==>-------------------------------------------------------------------------------

Wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11534	11616	
==>-------------------------------------------------------------------------------

Wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11534	11616	
==>-------------------------------------------------------------------------------

Wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11018	11099	
==>-------------------------------------------------------------------------------

W <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11018	11099	
==>-------------------------------------------------------------------------------

W <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11018	11099	
==>-------------------------------------------------------------------------------

W <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18248	18376	
==>ck->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e-> <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21507	21635	
==>ck->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e-> <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41513	41641	
==>ck->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e-> <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44414	44542	
==>ck->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e-> <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	938	1057	
==>: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: empty\n";
  }
}

sub addToken {
  my ($self, $n <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1563	1657	
==>pec->catfile($path, "arch");
    $self->makemaker_args->{INST_SCRIPT} =
      File::Spec->catfi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9218	9339	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12191	12312	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9218	9339	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12191	12312	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9218	9339	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12191	12312	
==>erl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Private <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14274	14435	
==>rrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14274	14435	
==>rrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14274	14435	
==>rrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	865	956	
==>PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	865	956	
==>PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	865	956	
==>PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1506	1602	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1506	1602	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1506	1602	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	347	441	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	347	441	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	347	441	
==>Fun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7217	7355	
==>,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2050	2181	
==>,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8822	8953	
==>,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6976	7107	
==>,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2050	2181	
==>,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8822	8953	
==>,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug messa <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10981	11079	
==>.)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fata <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8385	8483	
==>.)>

Removes the specified items from the set. Returns the number of items removed.

It is not fata <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10981	11079	
==>.)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fata <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8385	8483	
==>.)>

Removes the specified items from the set. Returns the number of items removed.

It is not fata <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7311	7394	
==>content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7311	7394	
==>content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8615	8770	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11588	11743	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8615	8770	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11588	11743	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8615	8770	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11588	11743	
==>d until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15169	15275	
==>lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15169	15275	
==>lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15169	15275	
==>lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	183	276	
==>method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	183	276	
==>method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	183	276	
==>method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	410	508	
==>lit.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	410	508	
==>lit.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	410	508	
==>lit.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28447	28539	
==>pping> says which attributes are being combined/wrapped, with
its keys being the new tuple-va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32999	33091	
==>pping> says which attributes are being combined/wrapped, with
its keys being the new tuple-va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32127	32219	
==>pping> says which attributes are being combined/wrapped, with
its keys being the new tuple-va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1441	1538	
==>d_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comman <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1441	1538	
==>d_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comman <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1441	1538	
==>d_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comman <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3181	3269	
==>tr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3181	3269	
==>tr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3181	3269	
==>tr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	478	601	
==>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	478	601	
==>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	478	601	
==>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9928	10037	
==>::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9928	10037	
==>::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9928	10037	
==>::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	501	647	
==>'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum + <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	501	647	
==>'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum + <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18081	18203	
==>optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optio <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17119	17241	
==>optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18081	18203	
==>optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17119	17241	
==>optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optio <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2603	2723	
==>" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2796	2916	
==>" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14898	15011	
==>@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14898	15011	
==>@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14898	15011	
==>@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @re <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3242	3355	
==>@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4450	4575	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7099	7224	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4676	4798	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11125	11247	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4676	4798	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11125	11247	
==>, Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10249	10385	
==>_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10249	10385	
==>_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10249	10385	
==>_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	489	595	
==>rgs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	489	595	
==>rgs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	489	595	
==>rgs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1015	1254	
==>O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      oct <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1015	1254	
==>O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      oct <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23739	23832	
==>www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The differ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22512	22605	
==>www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The differ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23739	23832	
==>www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The differ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22512	22605	
==>www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The differ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10224	10375	
==>0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    meth <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10224	10375	
==>0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    meth <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	940	1053	
==>.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.en <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	940	1053	
==>.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.en <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2764	2864	
==>omponents that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2764	2864	
==>omponents that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1493	1638	
==>my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1493	1638	
==>my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1493	1638	
==>my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15104	15216	
==>6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15104	15216	
==>6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15104	15216	
==>6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7647	7810	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5206	5369	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7647	7810	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5206	5369	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7647	7810	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5206	5369	
==>{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. H <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12724	12880	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19561	19717	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20714	20870	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13003	13159	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19840	19996	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20993	21149	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::c <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38203	38300	
==>others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	986	1083	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42752	42849	
==>others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42402	42499	
==>others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	986	1083	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1533	1630	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14977	15094	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12231	12348	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14977	15094	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12231	12348	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14977	15094	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12231	12348	
==>essor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1302	1417	
==>rray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1302	1417	
==>rray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1302	1417	
==>rray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1464	1553	
==>que_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1464	1553	
==>que_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1464	1553	
==>que_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14149	14313	
==>gnore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14149	14313	
==>gnore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14149	14313	
==>gnore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3138	3242	
==>v->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3138	3242	
==>v->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3138	3242	
==>v->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2167	2310	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1279	1422	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2167	2310	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1279	1422	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2167	2310	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1279	1422	
==>f => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10194	10313	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12835	12954	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13671	13790	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16312	16431	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12952	13071	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15674	15793	
==>ng === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	149	262	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	144	257	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	149	262	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	144	257	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	149	262	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	144	257	
==>ess ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33904	34011	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34072	34179	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33904	34011	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34072	34179	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33904	34011	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34072	34179	
==>ft;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3793	4040	
==>[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key! <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3793	4040	
==>[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key! <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4470	4583	
==>e_yaml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	913	1002	
==>ay_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	913	1002	
==>ay_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	913	1002	
==>ay_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13436	13534	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10720	10818	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13436	13534	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10720	10818	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13436	13534	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10720	10818	
==>lsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4120	4218	
==>my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2927	3025	
==>«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»", <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4120	4218	
==>my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4120	4218	
==>my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2927	3025	
==>«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2927	3025	
==>«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4574	4676	
==>rl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4574	4676	
==>rl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4574	4676	
==>rl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8064	8163	
==>::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a giv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8064	8163	
==>::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a giv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8064	8163	
==>::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a giv <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	85	183	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	346	444	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	85	183	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	346	444	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	85	183	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	346	444	
==>lf:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	250	355	
==>unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	250	355	
==>unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	250	355	
==>unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1822	1922	
==>f, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1822	1922	
==>f, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1822	1922	
==>f, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37037	37131	
==>ntersection>.  In any situation where a pair of source
relations have zero attributes in common <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41586	41680	
==>ntersection>.  In any situation where a pair of source
relations have zero attributes in common <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41209	41303	
==>ntersection>.  In any situation where a pair of source
relations have zero attributes in common <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13201	13353	
==>^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => st <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13201	13353	
==>^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => st <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12297	12439	
==>^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => st <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12297	12439	
==>^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => st <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9850	9944	
==>t validation is performed over 2 main phases, which
are referred to as "immediate" and "deferre <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9850	9944	
==>t validation is performed over 2 main phases, which
are referred to as "immediate" and "deferre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8770	8886	
==>an already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	934	1042	
==>an already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	341	449	
==>:Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self- <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	934	1042	
==>an already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	341	449	
==>:Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	341	449	
==>:Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	588	771	
==>ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	588	771	
==>ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	588	771	
==>ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7467	7575	
==>s;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7467	7575	
==>s;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7467	7575	
==>s;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5729	5980	
==>{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubM <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5729	5980	
==>{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubM <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5729	5980	
==>{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1202	1295	
==>tes, and
you want to rebless everything down to your project's base namespace.

Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1202	1295	
==>tes, and
you want to rebless everything down to your project's base namespace.

Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1202	1295	
==>tes, and
you want to rebless everything down to your project's base namespace.

Class::Rebless <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1908	2015	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2230	2337	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1908	2015	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2230	2337	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1908	2015	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2230	2337	
==>(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1784	1904	
==>undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1784	1904	
==>undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1784	1904	
==>undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7799	7902	
==>$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7799	7902	
==>$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7799	7902	
==>$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20093	20203	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17232	17342	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20093	20203	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17232	17342	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20093	20203	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17232	17342	
==>o they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33677	33797	
==>>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33677	33797	
==>>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33677	33797	
==>>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7865	7982	
==>r marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7865	7982	
==>r marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7865	7982	
==>r marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7150	7258	
==>I SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7150	7258	
==>I SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7150	7258	
==>I SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1754	1856	
==>ne($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1754	1856	
==>ne($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1754	1856	
==>ne($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8415	8516	
==>erator to the category.

options:

=item * name => $operator_name - the name of this operator, suc <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8723	8823	
==>$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete st <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8723	8823	
==>$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete st <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8981	9079	
==>$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete st <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8981	9079	
==>$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5955	6052	
==>erator to the category.

options:

=item * name => $operator_name - the name of this operator, suc <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6502	6597	
==>Slurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'T <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6502	6597	
==>Slurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37194	37350	
==>t, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37194	37350	
==>t, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37194	37350	
==>t, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3072	3167	
==>s ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3072	3167	
==>s ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3072	3167	
==>s ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	781	881	
==>nts "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't activ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24323	24423	
==>hich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$b <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23096	23196	
==>hich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$b <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	781	881	
==>nts "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't activ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24323	24423	
==>hich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23096	23196	
==>hich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$b <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5743	5884	
==>self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
} <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10848	10989	
==>self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
} <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5743	5884	
==>self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
} <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10848	10989	
==>self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
} <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	563	663	
==>t_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => sub <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	563	663	
==>t_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15977	16100	
==>l};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15977	16100	
==>l};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15977	16100	
==>l};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	550	639	
==>ce_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	550	639	
==>ce_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	550	639	
==>ce_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17017	17196	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21732	21911	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17017	17196	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21732	21911	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17017	17196	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21732	21911	
==>een{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20503	20623	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17642	17762	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20503	20623	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17642	17762	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20503	20623	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17642	17762	
==>actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11231	11356	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2347	2472	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7441	7566	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11231	11356	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2347	2472	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7441	7566	
==>!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9436	9545	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6983	7092	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9436	9545	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6983	7092	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9436	9545	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6983	7092	
==>er eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1356	1486	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2322	2452	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1356	1486	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2322	2452	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1356	1486	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2322	2452	
==>ispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	174	290	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	169	285	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	174	290	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	169	285	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	174	290	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	169	285	
==>"ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10359	10498	
==>ne.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting fr <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10359	10498	
==>ne.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22183	22284	
==>to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22183	22284	
==>to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22183	22284	
==>to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),ma <==
6	/Users/nnunley/pugs/util/package-osx.pl	2200	2289	
==>/Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /Library/Perl/5.8.6/ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8380	8585	
==>conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            chomp;
            ms <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20356	20483	
==>urn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20635	20762	
==>urn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21435	21530	
==>inct from the other
attributes, though several attributes may store values of the same class;
ev <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25987	26082	
==>inct from the other
attributes, though several attributes may store values of the same class;
ev <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24620	24715	
==>inct from the other
attributes, though several attributes may store values of the same class;
ev <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3569	3703	
==>] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2651	2749	
==>type () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Co <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2651	2749	
==>type () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Co <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20932	21027	
==>he constructor or header() method, the same
field name should not occur multiple times.  The res <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20932	21027	
==>he constructor or header() method, the same
field name should not occur multiple times.  The res <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3332	3414	
==>_eos>|<assert_bol>|<assert_eol>|<lookahead>|<lookbehind>|<word_boundary> }
rule ass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15958	16079	
==>turn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15958	16079	
==>turn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15958	16079	
==>turn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1993	2098	
==>y $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || ' <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1993	2098	
==>y $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2073	2178	
==>y $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || ' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1236	1341	
==>s export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnost <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1236	1341	
==>s export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnost <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1316	1421	
==>s export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnost <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6346	6441	
==>---
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6346	6441	
==>---
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6346	6441	
==>---
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20338	20451	
==>1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20338	20451	
==>1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20338	20451	
==>1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16914	17001	
==>make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16914	17001	
==>make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16914	17001	
==>make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15677	15803	
==>' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15677	15803	
==>' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15677	15803	
==>' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3333	3430	
==>s rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3333	3430	
==>s rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3333	3430	
==>s rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Pe <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	127	246	
==>ntents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	127	246	
==>ntents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13975	14080	
==>the connection is still alive, the server will
        # respond with a PONG, so everything's fine. But if <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13975	14080	
==>the connection is still alive, the server will
        # respond with a PONG, so everything's fine. But if <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13041	13142	
==>the connection is still alive, the server will
    # respond with a PONG, so everything's fine. But if <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13041	13142	
==>the connection is still alive, the server will
    # respond with a PONG, so everything's fine. But if <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	998	1244	
==>7 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+- <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	998	1244	
==>7 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2660	2791	
==>{
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2660	2791	
==>{
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2660	2791	
==>{
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	316	439	
==>my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4955	5056	
==>iginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4955	5056	
==>iginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4955	5056	
==>iginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3578	3669	
==>actory method used to create a specific class instances which
perform the Test::Builder::Tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3578	3669	
==>actory method used to create a specific class instances which
perform the Test::Builder::Tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5775	5866	
==>actory method used to create a specific class instances which
perform the Test::Builder::Tes <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2298	2420	
==>->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9070	9192	
==>->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2298	2420	
==>->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9070	9192	
==>->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12209	12326	
==>!~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4852	4969	
==>!~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4513	4686	
==>h => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'A <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4513	4686	
==>h => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'A <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4513	4686	
==>h => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3064	3163	
==>tribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3064	3163	
==>tribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3064	3163	
==>tribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2827	2925	
==>lass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2827	2925	
==>lass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2827	2925	
==>lass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	615	709	
==>cal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	615	709	
==>cal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	615	709	
==>cal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5270	5373	
==>:Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_doll <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5270	5373	
==>:Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_doll <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5270	5373	
==>:Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_doll <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1183	1279	
==>multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'B <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1183	1279	
==>multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'B <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1183	1279	
==>multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	117	247	
==>t;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	117	247	
==>t;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	117	247	
==>t;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5 <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12473	12583	
==>ect(prop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40744	40836	
==>ders of
Locale::KeyedText would appreciate being informed any time you create a
modified vers <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40744	40836	
==>ders of
Locale::KeyedText would appreciate being informed any time you create a
modified vers <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2749	2871	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5739	5861	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3041	3156	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9459	9574	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3041	3156	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9459	9574	
==>return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8785	8925	
==>$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*/ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8785	8925	
==>$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*/ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6008	6111	
==>e_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler('\x' => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5496	5595	
==>and {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further prop <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5496	5595	
==>and {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further prop <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5496	5595	
==>and {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further prop <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16553	16666	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21270	21383	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16553	16666	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21270	21383	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16553	16666	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21270	21383	
==>ll the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DES <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13214	13363	
==>/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13214	13363	
==>/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12310	12449	
==>/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12310	12449	
==>/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32966	33062	
==>at the returned Relation contains only tuples that are in
exactly one of the source Relations.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37516	37612	
==>at the returned Relation contains only tuples that are in
exactly one of the source Relations.  T <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12571	12744	
==>\$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13105	13278	
==>\$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12565	12738	
==>\$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13099	13272	
==>\$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         } <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23781	23908	
==>EAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define RE <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28982	29084	
==>EAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define RE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1511	1648	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3074	3211	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1511	1648	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3074	3211	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1511	1648	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3074	3211	
==>bove magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2600	2723	
==>f $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2600	2723	
==>f $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2600	2723	
==>f $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4250	4343	
==>ain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4250	4343	
==>ain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4250	4343	
==>ain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1740	1869	
==>e_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1740	1869	
==>e_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1740	1869	
==>e_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	965	1078	
==>his;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	965	1078	
==>his;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	965	1078	
==>his;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5908	6017	
==>nt "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5908	6017	
==>nt "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	814	919	
==>ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	814	919	
==>ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	814	919	
==>ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6259	6367	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9229	9337	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6259	6367	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9229	9337	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6259	6367	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9229	9337	
==>od is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13522	13681	
==>en;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13522	13681	
==>en;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13522	13681	
==>en;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chan <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2407	2566	
==>en;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chan <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	788	886	
==>tml>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	788	886	
==>tml>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22148	22251	
==>voking methods on those objects.  All of
their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9421	9524	
==>voking methods on those objects.  All of
their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22148	22251	
==>voking methods on those objects.  All of
their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9421	9524	
==>voking methods on those objects.  All of
their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24516	24618	
==>voking methods on those objects.
All of their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24516	24618	
==>voking methods on those objects.
All of their attributes are private, so you must use accessor methods. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7907	8064	
==>ed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7907	8064	
==>ed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7907	8064	
==>ed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

cla <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1905	2054	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1686	1826	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1686	1826	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4397	4505	
==>Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4397	4505	
==>Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4397	4505	
==>Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	440	543	
==>alars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	440	543	
==>alars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	440	543	
==>alars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5819	6034	
==>ey ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5819	6034	
==>ey ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5819	6034	
==>ey ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10558	10667	
==>isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10558	10667	
==>isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10558	10667	
==>isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5647	5754	
==>self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5647	5754	
==>self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-bac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5647	5754	
==>self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-bac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3176	3277	
==>ys, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3176	3277	
==>ys, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3176	3277	
==>ys, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4104	4206	
==>me (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10561	10663	
==>}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4104	4206	
==>me (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10561	10663	
==>}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4104	4206	
==>me (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10561	10663	
==>}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actu <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2144	2270	
==>upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2144	2270	
==>upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5582	5694	
==>e {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remov <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5582	5694	
==>e {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remov <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27733	27827	
==>ements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This meth <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27733	27827	
==>ements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16936	17115	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21651	21830	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16936	17115	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21651	21830	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16936	17115	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21651	21830	
==>ses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traver <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6612	6721	
==>chain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6612	6721	
==>chain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6612	6721	
==>chain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	892	995	
==>d be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	892	995	
==>d be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	892	995	
==>d be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11447	11621	
==>ft(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prop <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11447	11621	
==>ft(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prop <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11447	11621	
==>ft(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prop <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1176	1293	
==>to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1176	1293	
==>to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4802	4902	
==>licit_class  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7906	8089	
==>$n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n->{sub} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37440	37572	
==>t );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37440	37572	
==>t );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37440	37572	
==>t );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14240	14341	
==>dler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => g <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8444	8545	
==>dler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => g <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6339	6488	
==>less ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3464	3613	
==>less ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4313	4462	
==>less ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1593	1698	
==>{
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1733	1838	
==>{
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9122	9213	
==>s empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

R <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4265	4356	
==>s empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

R <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9122	9213	
==>s empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

R <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4265	4356	
==>s empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13259	13406	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13259	13406	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13259	13406	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1794	1937	
==>END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1582	1717	
==>END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1582	1717	
==>END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4730	4841	
==>ias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->containe <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4730	4841	
==>ias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->containe <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5320	5431	
==>ias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->containe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6161	6267	
==>"JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inser <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6161	6267	
==>"JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inser <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6161	6267	
==>"JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inser <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11380	11548	
==>dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11380	11548	
==>dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11380	11548	
==>dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $metho <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30516	30612	
==>Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35067	35163	
==>Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34249	34345	
==>Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Map <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3048	3154	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6062	6168	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8130	8236	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3048	3154	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6062	6168	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8130	8236	
==>ns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10058	10203	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7609	7754	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10058	10203	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7609	7754	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10058	10203	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7609	7754	
==>_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4544	4645	
==>() { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4544	4645	
==>() { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4544	4645	
==>() { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3986	4086	
==>ng test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3986	4086	
==>ng test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4066	4166	
==>ng test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6061	6204	
==>$a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2886	2981	
==>ring portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if availa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17629	17724	
==>};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2886	2981	
==>ring portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if availa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17629	17724	
==>};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17629	17724	
==>};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25566	25666	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28252	28352	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30118	30218	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32804	32904	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29263	29361	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33815	33913	
==>perator that returns a new Relation
which is the same as the invocant Relation but that some of its <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34843	34946	
==>ms, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34843	34946	
==>ms, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34843	34946	
==>ms, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	819	912	
==>bject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	819	912	
==>bject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	819	912	
==>bject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::m <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	582	712	
==>nject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	582	712	
==>nject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3047	3174	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6040	6167	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3322	3443	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9740	9861	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3322	3443	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9740	9861	
==>y_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shif <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2330	2472	
==>rint "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9102	9244	
==>rint "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2330	2472	
==>rint "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9102	9244	
==>rint "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug- <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12410	12503	
==>$code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions w <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12468	12561	
==>$code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31257	31462	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33015	33220	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31257	31462	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33015	33220	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31257	31462	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33015	33220	
==>RSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2219	2408	
==>")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2219	2408	
==>")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2219	2408	
==>")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15215	15323	
==>p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15215	15323	
==>p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15215	15323	
==>p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33524	33649	
==>@tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33524	33649	
==>@tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $cou <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33524	33649	
==>@tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7236	7359	
==>{" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7236	7359	
==>{" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7236	7359	
==>{" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4152	4264	
==>ay.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4152	4264	
==>ay.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4152	4264	
==>ay.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7854	7956	
==>!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_neede <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7854	7956	
==>!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_neede <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7854	7956	
==>!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_neede <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12450	12579	
==>ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12450	12579	
==>ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12450	12579	
==>ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6921	7016	
==>cher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6921	7016	
==>cher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6921	7016	
==>cher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16868	17010	
==>d   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16868	17010	
==>d   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16868	17010	
==>d   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5046	5140	
==>OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5046	5140	
==>OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5046	5140	
==>OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13514	13628	
==>ow);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7722	7836	
==>ow);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10999	11097	
==>tores data to be used or
displayed by your program.  It is analagous to a simplified version of the <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14162	14260	
==>tores data to be used or
displayed by your program.  It is analagous to a simplified version of the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10999	11097	
==>tores data to be used or
displayed by your program.  It is analagous to a simplified version of the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14162	14260	
==>tores data to be used or
displayed by your program.  It is analagous to a simplified version of the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11781	11890	
==>($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11781	11890	
==>($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11781	11890	
==>($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22748	22856	
==>($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub p6_ <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	17	112	
==>w

if(!@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3409	3500	
==>that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly installed. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9558	9679	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7105	7226	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9558	9679	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7105	7226	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9558	9679	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7105	7226	
==>ant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25216	25395	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25216	25395	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25216	25395	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last i <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3166	3283	
==>ABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($sel <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19109	19205	
==>r. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19109	19205	
==>r. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3747	3950	
==>d_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3747	3950	
==>d_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3747	3950	
==>d_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{method <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7548	7667	
==>ms && !ref($params->[0])) { # an array of strings
	my @p = map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2665	2780	
==>LEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elemen <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2665	2780	
==>LEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elemen <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3781	3941	
==>his Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3781	3941	
==>his Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2011	2108	
==>g but questions about what this object represents.

It represents a node in the Perldoc DOM tree ( <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2011	2108	
==>g but questions about what this object represents.

It represents a node in the Perldoc DOM tree ( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25579	25675	
==>on of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell you <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25579	25675	
==>on of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell you <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9081	9260	
==>ody => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12558	12737	
==>ody => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11794	11973	
==>ody => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

m <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	415	540	
==>a::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package n <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5055	5147	
==>d use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The follo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5055	5147	
==>d use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The follo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4628	4738	
==>we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # ho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4628	4738	
==>we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # ho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4628	4738	
==>we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # ho <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5197	5293	
==>B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pas <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5197	5293	
==>B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6721	6817	
==>B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pas <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	154	257	
==>d new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(Metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3261	3358	
==>$f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3261	3358	
==>$f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3261	3358	
==>$f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    m <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17723	17813	
==>le/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual machi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17723	17813	
==>le/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual machi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	728	847	
==>sts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	728	847	
==>sts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	728	847	
==>sts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	318	426	
==>ocal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overloa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	318	426	
==>ocal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overloa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	318	426	
==>ocal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overloa <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3894	3990	
==>module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3894	3990	
==>module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6874	6969	
==>module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8944	9039	
==>module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6874	6969	
==>module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8944	9039	
==>module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a n <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2912	3137	
==>m');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3166	3391	
==>m');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2912	3137	
==>m');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3166	3391	
==>m');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1853	2018	
==>ategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ( <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1853	2018	
==>ategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12500	12595	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10051	10146	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12500	12595	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10051	10146	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12500	12595	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10051	10146	
==>return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1083	1181	
==>donly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1083	1181	
==>donly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1083	1181	
==>donly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3822	3918	
==>attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3822	3918	
==>attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3822	3918	
==>attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13898	14017	
==>s) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13898	14017	
==>s) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13898	14017	
==>s) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1734	1834	
==>Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1734	1834	
==>Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1734	1834	
==>Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	605	702	
==>5-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: boo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	605	702	
==>5-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: boo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	605	702	
==>5-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: boo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2559	2643	
==>var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2559	2643	
==>var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2559	2643	
==>var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10259	10399	
==>(@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cooki <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10259	10399	
==>(@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cooki <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2894	3007	
==>_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ver <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1268	1381	
==>_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ver <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2894	3007	
==>_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ver <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2894	3007	
==>_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ver <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11135	11269	
==>length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11135	11269	
==>length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11135	11269	
==>length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21906	22026	
==>rsal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21906	22026	
==>rsal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21906	22026	
==>rsal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class- <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1960	2076	
==>U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, a <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1960	2076	
==>U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	779	883	
==>pile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow i <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	779	883	
==>pile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9298	9407	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6845	6954	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9298	9407	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6845	6954	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9298	9407	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6845	6954	
==>rder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5493	5617	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8463	8587	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5493	5617	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8463	8587	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5493	5617	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8463	8587	
==>ub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14906	15019	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12160	12273	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14906	15019	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12160	12273	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14906	15019	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12160	12273	
==>s : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16933	17081	
==>ray = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ran <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16933	17081	
==>ray = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ran <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16933	17081	
==>ray = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ran <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3222	3341	
==>ay @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3222	3341	
==>ay @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3222	3341	
==>ay @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16566	16668	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21283	21385	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16566	16668	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21283	21385	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16566	16668	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21283	21385	
==>s, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	8	122	
==>PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	8	122	
==>PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	8	122	
==>PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6888	6993	
==>t implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1245	1347	
==>t implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	347	446	
==>t implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12492	12589	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10043	10140	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12492	12589	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10043	10140	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12492	12589	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10043	10140	
==>ss;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7988	8120	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10911	11043	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7988	8120	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10911	11043	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7988	8120	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10911	11043	
==>Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1894	1998	
==>push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $exp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1894	1998	
==>push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $exp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1974	2078	
==>push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1937	2030	
==>ntf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1937	2030	
==>ntf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1937	2030	
==>ntf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16449	16563	
==>um( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16449	16563	
==>um( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16449	16563	
==>um( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1065	1155	
==>JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1065	1155	
==>JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1065	1155	
==>JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitiv <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	900	1005	
==>eturn $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	900	1005	
==>eturn $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	249	344	
==>ors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	249	344	
==>ors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	249	344	
==>ors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23840	23934	
==>rinter
{
	my $type = type::operator::arrow->new(
		type::variable::free->new,
		my $b = type::v <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25162	25272	
==>s will each return the same
result and/or make the same change to an object when the permutation of its
argumen <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11293	11403	
==>s will each return the same
result and/or make the same change to an object when the permutation of its
argumen <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14566	14676	
==>s will each return the same result and/or make the same change
to an object when the permutation of its argumen <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25162	25272	
==>s will each return the same
result and/or make the same change to an object when the permutation of its
argumen <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11293	11403	
==>s will each return the same
result and/or make the same change to an object when the permutation of its
argumen <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14566	14676	
==>s will each return the same result and/or make the same change
to an object when the permutation of its argumen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9375	9483	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6922	7030	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9375	9483	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6922	7030	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9375	9483	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6922	7030	
==>er = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	116	233	
==>) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5048	5165	
==>_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-every <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	116	233	
==>) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proce <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5048	5165	
==>_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-every <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	116	233	
==>) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proce <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5048	5165	
==>_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-every <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17324	17498	
==>er(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17324	17498	
==>er(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17324	17498	
==>er(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14908	15071	
==>arate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14902	15065	
==>arate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            war <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19313	19414	
==>oIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExp <==
6	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	94	192	
==>:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	966	1064	
==>od quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty muc <==
6	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	94	192	
==>:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	966	1064	
==>od quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty muc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15975	16067	
==>t
35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentatio <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15975	16067	
==>t
35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25625	25749	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27820	27944	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25625	25749	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27820	27944	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25625	25749	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27820	27944	
==>lue::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10054	10178	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12695	12819	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13531	13655	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16172	16296	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12812	12936	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15534	15658	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9692	9804	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12665	12777	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9692	9804	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12665	12777	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9692	9804	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12665	12777	
==>e to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17626	17801	
==>isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17626	17801	
==>isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17626	17801	
==>isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1288	1393	
==>"Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1288	1393	
==>"Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1288	1393	
==>"Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3335	3455	
==>def;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3335	3455	
==>def;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3335	3455	
==>def;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3114	3219	
==>("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as compa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3114	3219	
==>("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as compa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3114	3219	
==>("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as compa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2907	3012	
==>l2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2907	3012	
==>l2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2907	3012	
==>l2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20096	20231	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17235	17370	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20096	20231	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17235	17370	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20096	20231	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17235	17370	
==>hey are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37348	37482	
==>->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37348	37482	
==>->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37348	37482	
==>->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7502	7616	
==>e = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7502	7616	
==>e = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7502	7616	
==>e = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5859	5962	
==>s
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5859	5962	
==>s
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5859	5962	
==>s
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4834	5035	
==>h( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4834	5035	
==>h( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4834	5035	
==>h( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12638	12777	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12917	13056	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::co <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11418	11509	
==>nt(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4547	4647	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3674	3774	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	484	584	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	484	584	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4547	4647	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3674	3774	
==>ce operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	399	564	
==>equest_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $prot <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	399	564	
==>equest_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $prot <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1791	1893	
==>f($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Funct <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1791	1893	
==>f($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Funct <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15540	15634	
==>item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute n <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15540	15634	
==>item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9432	9536	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12405	12509	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9432	9536	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12405	12509	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9432	9536	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12405	12509	
==>@Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FOR <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2104	2224	
==>'';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2104	2224	
==>'';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	663	777	
==>global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	663	777	
==>global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	663	777	
==>global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e e <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	6348	6462	
==>global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5041	5156	
==>D
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5041	5156	
==>D
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5041	5156	
==>D
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	496	610	
==>elf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	496	610	
==>elf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	496	610	
==>elf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5037	5179	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5998	6140	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5037	5179	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5998	6140	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5037	5179	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5998	6140	
==>sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19749	19870	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16888	17009	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19749	19870	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16888	17009	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19749	19870	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16888	17009	
==>turn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7300	7400	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7300	7400	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7300	7400	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6834	6933	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6834	6933	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6834	6933	
==>= p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	290	411	
==>$subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	463	584	
==>$subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	290	411	
==>$subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	463	584	
==>$subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28492	28588	
==>t handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Key <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28492	28588	
==>t handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Key <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12176	12285	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6743	6852	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12176	12285	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6743	6852	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3146	3253	
==>lting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace al <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3146	3253	
==>lting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1297	1414	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2860	2977	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1297	1414	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2860	2977	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1297	1414	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2860	2977	
==>ions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the Perl 6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	474	580	
==>*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	474	580	
==>*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	474	580	
==>*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2600	2696	
==>ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2600	2696	
==>ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2600	2696	
==>ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11364	11504	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16094	16234	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11364	11504	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16094	16234	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11364	11504	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16094	16234	
==>XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here .. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	584	702	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	584	702	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	584	702	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2938	3037	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2938	3037	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2938	3037	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10861	11022	
==>sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10861	11022	
==>sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10861	11022	
==>sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cst <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2891	3000	
==>nyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control character
  $sel <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35764	35858	
==>rator that takes
another Relation as its C<$other> argument and combines it with the
invocant r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40314	40408	
==>rator that takes
another Relation as its C<$other> argument and combines it with the
invocant r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	684	782	
==>ath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('', <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	684	782	
==>ath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('', <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	507	601	
==>t/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remot <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1120	1214	
==>t/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remot <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	507	601	
==>t/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remot <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1120	1214	
==>t/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remot <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6242	6380	
==>n want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6242	6380	
==>n want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6671	6784	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5801	5914	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2455	2568	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2455	2568	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6671	6784	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5801	5914	
==>ludes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:< <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5121	5219	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1078	1176	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	938	1036	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4374	4472	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5121	5219	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1078	1176	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is free s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6467	6605	
==>lse, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6467	6605	
==>lse, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6467	6605	
==>lse, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11636	11723	
==>join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11636	11723	
==>join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11636	11723	
==>join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7597	7755	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5156	5314	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7597	7755	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5156	5314	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7597	7755	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5156	5314	
==>"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	342	461	
==>e !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	342	461	
==>e !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	342	461	
==>e !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	62	173	
==>ub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	62	173	
==>ub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	62	173	
==>ub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are comp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7108	7291	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7376	7559	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7108	7291	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7376	7559	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7108	7291	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7376	7559	
==>$self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2523	2628	
==>ub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<id <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1135	1240	
==>ub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<id <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1836	1941	
==>ub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<id <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17360	17453	
==>ements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17360	17453	
==>ements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17360	17453	
==>ements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	210	351	
==>ef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	210	351	
==>ef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	210	351	
==>ef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4526	4619	
==>fore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4526	4619	
==>fore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4526	4619	
==>fore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7874	8082	
==>um => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

metho <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7874	8082	
==>um => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2837	2940	
==>$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2837	2940	
==>$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2837	2940	
==>$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clos <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13033	13120	
==>Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4584	4699	
==>' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Gra <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4428	4538	
==>' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Gra <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8042	8150	
==>scii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14361	14445	
==>thods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14361	14445	
==>thods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14361	14445	
==>thods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11369	11490	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2881	3002	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11369	11490	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2881	3002	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11369	11490	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2881	3002	
==>S.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12263	12403	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3885	4025	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12263	12403	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3885	4025	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12263	12403	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3885	4025	
==>->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	316	418	
==>ta::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %v <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	316	418	
==>ta::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %v <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	316	418	
==>ta::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2882	2972	
==>gger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2882	2972	
==>gger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2882	2972	
==>gger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6845	6960	
==>ON'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6845	6960	
==>ON'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6845	6960	
==>ON'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14064	14162	
==>es

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14064	14162	
==>es

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14064	14162	
==>es

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18281	18389	
==>f _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18281	18389	
==>f _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18281	18389	
==>f _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1481	1578	
==>metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1481	1578	
==>metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1481	1578	
==>metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1052	1160	
==>ield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1052	1160	
==>ield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1052	1160	
==>ield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -C <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	283	390	
==>hod show_tree ($self:) returns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18755	18849	
==>to avoid triggering core behavior which we are not prepared to
support (such as modification of <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3045	3139	
==>to avoid triggering core behavior which we are not prepared to
support (such as modification of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	984	1105	
==>[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	984	1105	
==>[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	984	1105	
==>[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5984	6072	
==>ar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5984	6072	
==>ar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5984	6072	
==>ar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10598	10769	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8149	8320	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10598	10769	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8149	8320	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10598	10769	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8149	8320	
==>e top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	861	974	
==>.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	861	974	
==>.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	861	974	
==>.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11388	11480	
==>herited. This provides more predictable 
behavior to class consturction because it isolates t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11388	11480	
==>herited. This provides more predictable 
behavior to class consturction because it isolates t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11388	11480	
==>herited. This provides more predictable 
behavior to class consturction because it isolates t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7975	8097	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10898	11020	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7975	8097	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10898	11020	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7975	8097	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10898	11020	
==>method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1912	2024	
==>);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1912	2024	
==>);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1912	2024	
==>);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} els <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25997	26091	
==>aren't being renamed.  This method
supports renaming attributes to each others' names.

=item C <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30549	30643	
==>aren't being renamed.  This method
supports renaming attributes to each others' names.

=item C <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29524	29618	
==>aren't being renamed.  This method
supports renaming attributes to each others' names.

=item C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2634	2732	
==>= $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2634	2732	
==>= $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2634	2732	
==>= $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6759	6874	
==>s = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6759	6874	
==>s = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6759	6874	
==>s = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14341	14434	
==>hars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14341	14434	
==>hars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14341	14434	
==>hars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30049	30170	
==>list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30049	30170	
==>list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30049	30170	
==>list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9741	9829	
==>lass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9741	9829	
==>lass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9741	9829	
==>lass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24991	25088	
==>ds immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23755	23852	
==>ds immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24991	25088	
==>ds immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23755	23852	
==>ds immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12396	12488	
==>set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12396	12488	
==>set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	920	1031	
==>odel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	920	1031	
==>odel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	920	1031	
==>odel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14368	14473	
==>$s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14368	14473	
==>$s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14368	14473	
==>$s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2132	2254	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2537	2659	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2132	2254	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2537	2659	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2132	2254	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2537	2659	
==>_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	40	148	
==>taModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6262	6362	
==>ow level operators

  # Domain-specific-language-like syntax, contained in a package

### rule must e <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6048	6146	
==>ow level operators
  # Domain-specific-language-like syntax, contained in a package
### rule must e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17749	17844	
==>};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17749	17844	
==>};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17749	17844	
==>};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7508	7645	
==>[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7508	7645	
==>[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7508	7645	
==>[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	439	555	
==>er { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sour <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	439	555	
==>er { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sour <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	439	555	
==>er { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sour <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	62	154	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	234	326	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	62	154	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	234	326	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	62	154	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	234	326	
==>.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1124	1223	
==>nly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the en <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1124	1223	
==>nly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the en <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1124	1223	
==>nly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12710	12794	
==>SA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12710	12794	
==>SA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12710	12794	
==>SA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6851	6973	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9821	9943	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6851	6973	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9821	9943	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6851	6973	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9821	9943	
==>e::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	887	983	
==>_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ou <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	887	983	
==>_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	967	1063	
==>_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1170	1260	
==>k around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1170	1260	
==>k around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1170	1260	
==>k around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6048	6169	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9018	9139	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6048	6169	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9018	9139	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6048	6169	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9018	9139	
==>bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2183	2298	
==>l6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2183	2298	
==>l6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2183	2298	
==>l6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6018	6106	
==>turn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6018	6106	
==>turn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6018	6106	
==>turn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19015	19130	
==>, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19015	19130	
==>, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19015	19130	
==>, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19401	19522	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16633	16754	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19401	19522	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16633	16754	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19401	19522	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16633	16754	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method object <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7744	7841	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6874	6971	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3460	3557	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3460	3557	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7744	7841	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6874	6971	
==>"is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6269	6457	
==>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6269	6457	
==>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6269	6457	
==>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2562	2669	
==>rl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syste <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2562	2669	
==>rl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syste <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2562	2669	
==>rl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syste <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13893	14035	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13893	14035	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13893	14035	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4218	4344	
==>uired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4218	4344	
==>uired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4218	4344	
==>uired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18740	18865	
==>OLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18740	18865	
==>OLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18740	18865	
==>OLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7034	7132	
==>rs (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7034	7132	
==>rs (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7034	7132	
==>rs (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	136	232	
==>ng definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	136	232	
==>ng definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	136	232	
==>ng definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10924	11035	
==>, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10924	11035	
==>, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10924	11035	
==>, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(und <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4779	4879	
==>=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4779	4879	
==>=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6303	6403	
==>=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5823	6066	
==>get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7585	7828	
==>get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_ <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1092	1225	
==>rn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

m <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1092	1225	
==>rn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

m <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12671	12769	
==>names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return val <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12671	12769	
==>names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3534	3674	
==>d by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3534	3674	
==>d by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3534	3674	
==>d by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7964	8101	
==>et all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7964	8101	
==>et all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7964	8101	
==>et all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7686	7828	
==>);
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7686	7828	
==>);
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7686	7828	
==>);
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2567	2705	
==>( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2567	2705	
==>( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2567	2705	
==>( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13261	13375	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10545	10659	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13261	13375	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10545	10659	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13261	13375	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10545	10659	
==>method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        retu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3904	4001	
==>ch is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3904	4001	
==>ch is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6884	6980	
==>ch is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8954	9050	
==>ch is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6884	6980	
==>ch is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8954	9050	
==>ch is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of pe <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	4376	4498	
==>code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $to <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4434	4556	
==>code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $to <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7305	7417	
==>de',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_ao <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7305	7417	
==>de',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_ao <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9049	9157	
==>ator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9049	9157	
==>ator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	423	530	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	643	750	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	423	530	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	643	750	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	423	530	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	643	750	
==>var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3414	3540	
==>label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3414	3540	
==>label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3414	3540	
==>label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9886	9989	
==>nal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	321	421	
==>nal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	321	421	
==>nal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9976	10080	
==>------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9999	10103	
==>-------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9976	10080	
==>------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9999	10103	
==>-------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9976	10080	
==>------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9999	10103	
==>-------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34819	35010	
==>)
                      );
                    $e->set('$next' => $e->get('$dispatcher')->do());
                })->do_while(
                    block->new($e, sub {
                       m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1397	1496	
==>upport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version to <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1397	1496	
==>upport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version to <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1397	1496	
==>upport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version to <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5561	5644	
==>num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128 <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5561	5644	
==>num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2021	2136	
==>->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2021	2136	
==>->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2021	2136	
==>->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_a <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	3133	3246	
==>3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Fai <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1495	1597	
==>nfinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1495	1597	
==>nfinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36226	36328	
==>n where each member of a tuple pair has attribute names in common,
eliminating pairs where the values o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37979	38081	
==>n where each member of a
tuple pair has attribute names in common, eliminating pairs where the
values o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40775	40877	
==>n where each member of a tuple pair has attribute names in common,
eliminating pairs where the values o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42528	42630	
==>n where each member of a
tuple pair has attribute names in common, eliminating pairs where the
values o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40389	40491	
==>n where each member of a tuple pair has attribute names in common,
eliminating pairs where the values o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42178	42280	
==>n where each member of a
tuple pair has attribute names in common, eliminating pairs where the
values o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1239	1336	
==>ke nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1239	1336	
==>ke nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1239	1336	
==>ke nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31077	31172	
==>nsists of the two parts concatenated without any delimiter.  This means,
for example, that the f <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31077	31172	
==>nsists of the two parts concatenated without any delimiter.  This means,
for example, that the f <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	9771	9865	
==>) is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2406	2547	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4733	4874	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2406	2547	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4733	4874	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2406	2547	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4733	4874	
==>ibute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9937	10116	
==>F->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i+ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9937	10116	
==>F->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i+ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9937	10116	
==>F->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3762	3866	
==>";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3762	3866	
==>";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3762	3866	
==>";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2961	3120	
==>olding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta_dir, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6713	6813	
==>$to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6713	6813	
==>$to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6713	6813	
==>$to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14253	14464	
==>class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14253	14464	
==>class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14253	14464	
==>class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10561	10689	
==>' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10561	10689	
==>' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10561	10689	
==>' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14705	14807	
==>e Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14705	14807	
==>e Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14705	14807	
==>e Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	483	584	
==>our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	483	584	
==>our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	483	584	
==>our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5861	5959	
==>:Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5861	5959	
==>:Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7385	7483	
==>:Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3418	3505	
==>erclass'} = $Object;

## --------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4112	4199	
==>erclass'} = $Object;

## --------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5320	5407	
==>erclass'} = $Object;

## --------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21618	21721	
==>( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splits <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21618	21721	
==>( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splits <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21618	21721	
==>( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splits <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8035	8128	
==>);

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8035	8128	
==>);

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8035	8128	
==>);

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13596	13773	
==>>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13596	13773	
==>>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13596	13773	
==>>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13704	13814	
==>_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13704	13814	
==>_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13704	13814	
==>_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatche <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	694	893	
==>eop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constan <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	695	894	
==>eop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16108	16214	
==>NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16108	16214	
==>NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16108	16214	
==>NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Pe <==
6	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	67	162	
==>s $argument_class = ::Getopt::Argument::Style;
        has $normalizer_role = ::Getopt::Argument <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2736	2836	
==>stpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2736	2836	
==>stpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2736	2836	
==>stpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15294	15393	
==>SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15294	15393	
==>SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15294	15393	
==>SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24106	24213	
==>her dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($para <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24106	24213	
==>her dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($para <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24106	24213	
==>her dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($para <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	377	472	
==>a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the result <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	377	472	
==>a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the result <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	377	472	
==>a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the result <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2346	2447	
==>ef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2346	2447	
==>ef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2346	2447	
==>ef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1679	1777	
==>,Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1679	1777	
==>,Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1679	1777	
==>,Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8999	9145	
==>an.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok retu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1147	1273	
==>an.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok retu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1147	1273	
==>an.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	741	858	
==>);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	741	858	
==>);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	741	858	
==>);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7814	7941	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10737	10864	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7814	7941	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10737	10864	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7814	7941	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10737	10864	
==>ial in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4233	4356	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7169	7292	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4233	4356	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7169	7292	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4233	4356	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7169	7292	
==>=> blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10066	10191	
==>ff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->fr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10066	10191	
==>ff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->fr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10066	10191	
==>ff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5633	5739	
==>hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5633	5739	
==>hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5633	5739	
==>hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	126	285	
==>er);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	126	285	
==>er);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	126	285	
==>er);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6876	6992	
==>ime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6876	6992	
==>ime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6876	6992	
==>ime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: und <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12570	12686	
==>able $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12570	12686	
==>able $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12570	12686	
==>able $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::R <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29082	29191	
==>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns St <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29082	29191	
==>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns St <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	433	530	
==>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3618	3778	
==>pertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3618	3778	
==>pertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3618	3778	
==>pertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    pa <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28483	28578	
==>ng combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33035	33130	
==>ng combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32163	32258	
==>ng combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its va <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	500	625	
==>::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQU <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	500	625	
==>::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQU <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5498	5609	
==>) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} / <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6766	6877	
==>) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} / <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5498	5609	
==>) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} / <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6754	6865	
==>) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} / <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3662	3761	
==>n is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3662	3761	
==>n is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6682	6780	
==>n is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8751	8849	
==>n is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6682	6780	
==>n is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8751	8849	
==>n is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	110	231	
==>e Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	110	231	
==>e Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	110	231	
==>e Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	109	229	
==>e Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	109	229	
==>e Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	109	229	
==>e Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11007	11141	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12478	12612	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14484	14618	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15955	16089	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13792	13926	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15317	15451	
==>on( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-on <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3086	3191	
==>f ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3086	3191	
==>f ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3086	3191	
==>f ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10324	10427	
==>:Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10324	10427	
==>:Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10324	10427	
==>:Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3466	3579	
==>ub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5516	5629	
==>ub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4472	4585	
==>ub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9832	9934	
==>rly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9832	9934	
==>rly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9832	9934	
==>rly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2192	2318	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11060	11186	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12019	12145	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2385	2511	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11339	11465	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12298	12424	
==>'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::op <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6743	6839	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5873	5969	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2527	2623	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2527	2623	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6743	6839	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5873	5969	
==>e.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.include <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12644	12763	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10195	10314	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12644	12763	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10195	10314	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12644	12763	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10195	10314	
==>xt = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4537	4641	
==>from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4537	4641	
==>from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4537	4641	
==>from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1663	1758	
==>bj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1663	1758	
==>bj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1663	1758	
==>bj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2332	2430	
==>ethod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2332	2430	
==>ethod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2332	2430	
==>ethod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4327	4421	
==>nfinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4327	4421	
==>nfinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4327	4421	
==>nfinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16154	16282	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20871	20999	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16154	16282	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20871	20999	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16154	16282	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20871	20999	
==>registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2187	2318	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4514	4645	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2187	2318	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4514	4645	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2187	2318	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4514	4645	
==>}
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2814	2918	
==>ld = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for t <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2814	2918	
==>ld = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24258	24354	
==>an AI or other interactive program controlling their
  actions) which are always seen to be reply <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23031	23127	
==>an AI or other interactive program controlling their
  actions) which are always seen to be reply <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24258	24354	
==>an AI or other interactive program controlling their
  actions) which are always seen to be reply <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23031	23127	
==>an AI or other interactive program controlling their
  actions) which are always seen to be reply <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2405	2542	
==>ss
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2405	2542	
==>ss
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2405	2542	
==>ss
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) { <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1842	1947	
==>ve;
    list->new(values %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($self, $k <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10080	10176	
==>l set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set f <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10080	10176	
==>l set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set f <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34790	34915	
==>w( Regexp::Parser::branch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	436	551	
==>:PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            s <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	436	551	
==>:PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2872	2971	
==>.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2872	2971	
==>.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2872	2971	
==>.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1379	1480	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1379	1480	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1379	1480	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3700	3793	
==>$::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3700	3793	
==>$::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3700	3793	
==>$::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1135	1231	
==>der returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retur <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1135	1231	
==>der returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1682	1778	
==>der returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retur <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27785	27877	
==>ad-only argument, returns a
value that is optionally a calculation using original attribute v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32337	32429	
==>ad-only argument, returns a
value that is optionally a calculation using original attribute v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31429	31521	
==>ad-only argument, returns a
value that is optionally a calculation using original attribute v <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9048	9171	
==>urn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9241	9364	
==>urn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10953	11061	
==>temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::ge <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11103	11211	
==>temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::ge <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6641	6734	
==>of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6641	6734	
==>of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36823	36938	
==>my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36823	36938	
==>my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36823	36938	
==>my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6734	6848	
==>$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6734	6848	
==>$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6734	6848	
==>$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6446	6562	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9416	9532	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6446	6562	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9416	9532	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6446	6562	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9416	9532	
==>$method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11722	11836	
==>on"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Tes <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2154	2258	
==>on"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2154	2258	
==>on"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	45	139	
==>se FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	45	139	
==>se FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	45	139	
==>se FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7960	8109	
==>rn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7960	8109	
==>rn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7960	8109	
==>rn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4704	4805	
==>d to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4704	4805	
==>d to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4704	4805	
==>d to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8710	8809	
==>egant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it se <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8710	8809	
==>egant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it se <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7937	8035	
==>s>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7937	8035	
==>s>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8968	9065	
==>egant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it se <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8968	9065	
==>egant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7275	7432	
==>defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7275	7432	
==>defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7275	7432	
==>defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5788	5927	
==>ddle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5788	5927	
==>ddle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5788	5927	
==>ddle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8579	8682	
==>= set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7548	7651	
==>= set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8579	8682	
==>= set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7548	7651	
==>= set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17358	17449	
==>ource filterish modules in a much more sane manner.
Module::Compile controls the compilation <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17358	17449	
==>ource filterish modules in a much more sane manner.
Module::Compile controls the compilation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2149	2293	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1261	1405	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2149	2293	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1261	1405	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2149	2293	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1261	1405	
==>instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	94	196	
==>- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	94	196	
==>- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	94	196	
==>- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2629	2729	
==>$body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2629	2729	
==>$body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2629	2729	
==>$body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3471	3620	
==>efined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{super <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3471	3620	
==>efined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{super <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3471	3620	
==>efined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{super <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	827	933	
==>ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	617	721	
==>ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	617	721	
==>ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1239	1332	
==>asic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1239	1332	
==>asic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1239	1332	
==>asic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1364	1452	
==>fix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1364	1452	
==>fix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1364	1452	
==>fix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8881	9016	
==>=>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe ) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8881	9016	
==>=>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3254	3378	
==>et; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3254	3378	
==>et; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3254	3378	
==>et; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8106	8202	
==>aches its result,
any further calls to ghc_pkg This method expects to
be called with a path (rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15487	15586	
==>pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15487	15586	
==>pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15487	15586	
==>pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5413	5511	
==>b JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5413	5511	
==>b JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5413	5511	
==>b JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3137	3270	
==>erclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3137	3270	
==>erclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3137	3270	
==>erclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1961	2060	
==>vision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1961	2060	
==>vision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1961	2060	
==>vision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1179	1290	
==>not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1179	1290	
==>not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1179	1290	
==>not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4620	4726	
==>self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4620	4726	
==>self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4620	4726	
==>self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1332	1473	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2298	2439	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1332	1473	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2298	2439	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1332	1473	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2298	2439	
==>nt);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	150	258	
==>ym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	150	258	
==>ym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	150	258	
==>ym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1231	1329	
==>mplementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1231	1329	
==>mplementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1231	1329	
==>mplementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9235	9345	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6782	6892	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9235	9345	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6782	6892	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9235	9345	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6782	6892	
==>order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5950	6125	
==>dy => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9427	9602	
==>dy => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8483	8658	
==>dy => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate! <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	155	249	
==>t


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	155	249	
==>t


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	155	249	
==>t


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3869	3978	
==>{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3869	3978	
==>{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3869	3978	
==>{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1409	1505	
==>trol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1409	1505	
==>trol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1409	1505	
==>trol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7292	7456	
==>$_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7292	7456	
==>$_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7292	7456	
==>$_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5850	5953	
==>$pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top lev <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5850	5953	
==>$pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top lev <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5850	5953	
==>$pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top lev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5178	5340	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8148	8310	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5178	5340	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8148	8310	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5178	5340	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8148	8310	
==>hod ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10789	10995	
==>s})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10789	10995	
==>s})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10789	10995	
==>s})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10161	10275	
==>l_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10161	10275	
==>l_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10161	10275	
==>l_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10256	10357	
==>rapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10256	10357	
==>rapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10256	10357	
==>rapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5473	5571	
==>($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5473	5571	
==>($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5473	5571	
==>($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self-> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	312	560	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	312	560	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5273	5413	
==>or object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_name <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5273	5413	
==>or object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_name <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3725	3825	
==>arameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Se <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3725	3825	
==>arameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9590	9712	
==>ngify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9590	9712	
==>ngify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9590	9712	
==>ngify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2618	2738	
==>ttribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2618	2738	
==>ttribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2618	2738	
==>ttribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	949	1073	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1037	1161	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	949	1073	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1037	1161	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	949	1073	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1037	1161	
==>ions as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3553	3702	
==>_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3553	3702	
==>_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3553	3702	
==>_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23090	23190	
==>op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23090	23190	
==>op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23090	23190	
==>op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10626	10733	
==>::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10626	10733	
==>::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10626	10733	
==>::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1815	1914	
==>tr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1815	1914	
==>tr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1815	1914	
==>tr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunn <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4703	4799	
==>cation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersect <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3830	3926	
==>cation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersect <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4703	4799	
==>cation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersect <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3830	3926	
==>cation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersect <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18583	18673	
==>ort_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18583	18673	
==>ort_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4567	4688	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7216	7337	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4790	4908	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11239	11357	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4790	4908	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11239	11357	
==>ch2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4467	4596	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7116	7245	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4693	4818	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11142	11267	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4693	4818	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11142	11267	
==>{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37688	37787	
==>mmon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42237	42336	
==>mmon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41887	41986	
==>mmon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	238	334	
==>eable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provid <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	238	334	
==>eable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provid <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	238	334	
==>eable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provid <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7638	7765	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10561	10688	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7638	7765	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10561	10688	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7638	7765	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10561	10688	
==>rivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2741	2864	
==>r = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, ">", $ARGV[0];
print OUTFILE draw();
close OUTFIL <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4688	4810	
==>f ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13113	13235	
==>f ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15724	15846	
==>f ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17212	17334	
==>f ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21895	22017	
==>f ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2103	2214	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2103	2214	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3945	4040	
==>, Config::Tiny does not preserve
your comments, whitespace, or the order of your config file.

= <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3945	4040	
==>, Config::Tiny does not preserve
your comments, whitespace, or the order of your config file.

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17615	17709	
==>r modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17615	17709	
==>r modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7506	7603	
==>ists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7506	7603	
==>ists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3612	3752	
==>j{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3612	3752	
==>j{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3612	3752	
==>j{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5687	5816	
==>name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9998	10127	
==>name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' = <==
6	/Users/nnunley/pugs/util/grokprims.pl	1348	1447	
==>->{args}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$// <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6660	6794	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9630	9764	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6660	6794	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9630	9764	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6660	6794	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9630	9764	
==>rl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10868	10998	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!hea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12339	12469	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14345	14475	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15816	15946	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!hea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9887	10005	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13364	13482	
==>y.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!hea <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	526	638	
==>b xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$va <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	296	408	
==>b xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$va <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	296	408	
==>b xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	343	447	
==>"(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	343	447	
==>"(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	343	447	
==>"(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	352	458	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	345	451	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	352	458	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	345	451	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	352	458	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	345	451	
==>my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $des <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	1880	2025	
==>ader ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $head <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1880	2025	
==>ader ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $head <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11617	11713	
==>C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=h <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8764	8860	
==>C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=h <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11617	11713	
==>C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=h <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8764	8860	
==>C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14646	14805	
==>]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14646	14805	
==>]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14646	14805	
==>]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1 <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1867	1966	
==>. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have t <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1867	1966	
==>. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3506	3605	
==>->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35662	35797	
==>( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35662	35797	
==>( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35662	35797	
==>( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7079	7175	
==>ing increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7079	7175	
==>ing increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7079	7175	
==>ing increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16538	16648	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21255	21365	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16538	16648	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21255	21365	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16538	16648	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21255	21365	
==>uld
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ign <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	365	521	
==>sh' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        metho <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	365	521	
==>sh' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        metho <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	365	521	
==>sh' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6628	6729	
==>($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self ! <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6628	6729	
==>($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self ! <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6628	6729	
==>($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self ! <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13284	13383	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4454	4553	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8910	9009	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13284	13383	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4454	4553	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8910	9009	
==>or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer di <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	826	942	
==>r localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	826	942	
==>r localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2080	2182	
==>possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2080	2182	
==>possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2080	2182	
==>possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wil <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	17038	17137	
==>stays free, and thus becomes generic (id is polymorphic)
my $id = fun(
	param => "x",
	body => ide(" <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18725	18830	
==>ass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists a <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18725	18830	
==>ass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4169	4269	
==>rns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3296	3396	
==>rns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4169	4269	
==>rns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3296	3396	
==>rns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4206	4387	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4206	4387	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4206	4387	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6732	6899	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6732	6899	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6732	6899	
==>thod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2070	2305	
==>'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  = <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	10296	10416	
==>: $!";
  my $outfile = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test file <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5143	5254	
==>= $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16179	16290	
==>= $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17667	17778	
==>= $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22350	22461	
==>= $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
} <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4567	4667	
==>@result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my metho <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4567	4667	
==>@result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my metho <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2436	2534	
==>ring: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's req <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2436	2534	
==>ring: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's req <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	2	97	
==>lass Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has S <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	2	97	
==>lass Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has S <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3090	3207	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11013	11130	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6215	6332	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3090	3207	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11013	11130	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6215	6332	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4569	4677	
==>annot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4569	4677	
==>annot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4569	4677	
==>annot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1127	1233	
==>$p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1127	1233	
==>$p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1127	1233	
==>$p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25504	25642	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27699	27837	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25504	25642	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27699	27837	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25504	25642	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27699	27837	
==>{
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16981	17093	
==>$!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer lo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20458	20570	
==>$!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer lo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20036	20148	
==>$!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2485	2586	
==>name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2485	2586	
==>name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2485	2586	
==>name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3781	3883	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6717	6819	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3781	3883	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6717	6819	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3781	3883	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6717	6819	
==>& blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4727	4838	
==>ift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4727	4838	
==>ift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4727	4838	
==>ift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1696	1791	
==>tr $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1696	1791	
==>tr $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1696	1791	
==>tr $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	271	406	
==>} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	271	406	
==>} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	271	406	
==>} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3570	3672	
==>->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3570	3672	
==>->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3570	3672	
==>->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8377	8512	
==>?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8377	8512	
==>?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8377	8512	
==>?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16280	16383	
==>I SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - imple <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16280	16383	
==>I SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - imple <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16280	16383	
==>I SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - imple <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15820	15938	
==>x) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10676	10794	
==>x) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10110	10211	
==>span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersec <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10110	10211	
==>span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17286	17383	
==>gives you the following benefits:

=over

=item *

Ability to mix many source filterish modules in <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17286	17383	
==>gives you the following benefits:

=over

=item *

Ability to mix many source filterish modules in <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3223	3388	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4029	4194	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1970	2135	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3223	3388	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4029	4194	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1970	2135	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11482	11590	
==>ock#" . $code;
}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7346	7446	
==>_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_class <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7346	7446	
==>_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_class <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7346	7446	
==>_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_class <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	282	374	
==>DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DO <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	282	374	
==>DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1603	1759	
==>lass;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1603	1759	
==>lass;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1603	1759	
==>lass;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1379	1482	
==>any elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1379	1482	
==>any elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1379	1482	
==>any elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1801	1895	
==>o_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1801	1895	
==>o_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1801	1895	
==>o_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16974	17061	
==>asses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16974	17061	
==>asses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16974	17061	
==>asses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6651	6809	
==>$_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6651	6809	
==>$_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $n <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1768	1871	
==>this one, and redefine just those
#  rules.  See JavaScript::ECMAScript3::Grammar.
#
#  Bugs:
#   * This <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	53	151	
==>our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  registe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	53	151	
==>our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  registe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	53	151	
==>our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  registe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2702	2805	
==>substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2702	2805	
==>substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2702	2805	
==>substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2400	2543	
==>= $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2400	2543	
==>= $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2400	2543	
==>= $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1346	1452	
==>s how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1346	1452	
==>s how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1346	1452	
==>s how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, s <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13450	13601	
==>ubstr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3599	3734	
==>ubstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3599	3734	
==>ubstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3599	3734	
==>ubstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = in <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	851	953	
==>do, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

s <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	909	1011	
==>do, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12079	12193	
==>y $status      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2481	2591	
==>y $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2481	2591	
==>y $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14249	14346	
==>};
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14249	14346	
==>};
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14249	14346	
==>};
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2033	2152	
==>if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2033	2152	
==>if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2033	2152	
==>if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2573	2673	
==>rgs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2573	2673	
==>rgs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2573	2673	
==>rgs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12475	12596	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16986	17107	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12475	12596	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16986	17107	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12475	12596	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16986	17107	
==>er = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14172	14378	
==>d;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14172	14378	
==>d;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14172	14378	
==>d;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	891	983	
==>iour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	891	983	
==>iour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	891	983	
==>iour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2536	2633	
==>ame;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2536	2633	
==>ame;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2536	2633	
==>ame;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2337	2431	
==>tr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2337	2431	
==>tr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2337	2431	
==>tr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	253	364	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	251	362	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	253	364	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	251	362	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	253	364	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	251	362	
==>ance
    # variables and access their internal data.
    # This is basically the implementation of
    # the p6o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20106	20245	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17245	17384	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20106	20245	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17245	17384	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20106	20245	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17245	17384	
==>ded to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to dupl <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1219	1364	
==>n.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4458	4603	
==>n.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1219	1364	
==>n.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4458	4603	
==>n.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	8634	8738	
==>k.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8634	8738	
==>k.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12905	13062	
==>AL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12905	13062	
==>AL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12905	13062	
==>AL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4101	4212	
==>l "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4101	4212	
==>l "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4101	4212	
==>l "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2833	2968	
==>tiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2833	2968	
==>tiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2833	2968	
==>tiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30818	30908	
==>transformation have been eliminated. 
Trivial cases are where C<$transformer> returns eithe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35369	35458	
==>transformation have been eliminated.
Trivial cases are where C<$transformer> returns eithe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34560	34649	
==>transformation have been eliminated.
Trivial cases are where C<$transformer> returns eithe <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24051	24145	
==>med parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28603	28697	
==>med parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27434	27528	
==>med parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2421	2512	
==>thods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2421	2512	
==>thods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2421	2512	
==>thods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20783	20939	
==>ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constan <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21062	21218	
==>ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constan <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	807	909	
==>Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	807	909	
==>Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nic <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	572	668	
==>t keys should produce the same keystream and thus text 
should be enciphered and deciphered the s <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	572	668	
==>t keys should produce the same keystream and thus text 
should be enciphered and deciphered the s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3211	3343	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6204	6334	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3478	3602	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9896	10020	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3478	3602	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9896	10020	
==>l(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimizati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15616	15729	
==>e are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15616	15729	
==>e are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15616	15729	
==>e are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	338	435	
==>endlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	338	435	
==>endlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	338	435	
==>endlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1889	2020	
==>};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'A <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1889	2020	
==>};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'A <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1889	2020	
==>};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	105	202	
==>Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	105	202	
==>Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	105	202	
==>Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6106	6263	
==>>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6106	6263	
==>>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6106	6263	
==>>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19500	19590	
==>to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19500	19590	
==>to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19500	19590	
==>to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	1502	1608	
==>turns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------- <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1502	1608	
==>turns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------- <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3724	3823	
==>m->val)->val;

		warn "linking the symbol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15581	15677	
==>p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15581	15677	
==>p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15581	15677	
==>p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11584	11698	
==>ethod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11584	11698	
==>ethod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11584	11698	
==>ethod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9790	9902	
==>deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9790	9902	
==>deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9790	9902	
==>deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8521	8689	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6074	6242	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8521	8689	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6074	6242	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8521	8689	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6074	6242	
==>elf => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23647	23788	
==>, \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23926	24067	
==>, \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	13557	13654	
==>ation
could be started).  This is most useful when writing modules and you
find there is some lang <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13615	13712	
==>ation
could be started).  This is most useful when writing modules and you
find there is some lang <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8642	8736	
==>as for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8642	8736	
==>as for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1534	1671	
==>dow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1534	1671	
==>dow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1534	1671	
==>dow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3075	3168	
==>ript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3075	3168	
==>ript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3075	3168	
==>ript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/pat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12378	12483	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12378	12483	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12378	12483	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15017	15116	
==>lp get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_dis <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18494	18593	
==>lp get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_dis <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17910	18009	
==>lp get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_dis <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11564	11702	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2558	2696	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7652	7790	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11564	11702	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2558	2696	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7652	7790	
==>NDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14936	15049	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12190	12303	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14936	15049	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12190	12303	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14936	15049	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12190	12303	
==>ute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4719	4847	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2906	3034	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4719	4847	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2906	3034	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4719	4847	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2906	3034	
==>_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, a <==
6	/Users/nnunley/pugs/util/svnlog2graph.pl	1707	1842	
==>day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (sca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10086	10216	
==>defined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatabl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10086	10216	
==>defined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatabl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10086	10216	
==>defined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatabl <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15395	15508	
==>enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15395	15508	
==>enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1234	1328	
==>cerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1234	1328	
==>cerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1234	1328	
==>cerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7861	7990	
==>atch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7861	7990	
==>atch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7861	7990	
==>atch  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6385	6511	
==>atch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6385	6511	
==>atch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6385	6511	
==>atch  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          } <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3101	3218	
==>h ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3294	3411	
==>h ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4962	5074	
==>YNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::Keyed <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4962	5074	
==>YNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::Keyed <==
6	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1021	1125	
==>sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}} <==
6	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1021	1125	
==>sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4558	4675	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2770	2887	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4558	4675	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2770	2887	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4558	4675	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2770	2887	
==>maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4176	4308	
==>pture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matche <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4048	4177	
==>pture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matche <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3423	3550	
==>cname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3423	3550	
==>cname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	998	1123	
==>e object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the gi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	998	1123	
==>e object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the gi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	500	627	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	500	627	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	500	627	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1041	1145	
==>rning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1041	1145	
==>rning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1041	1145	
==>rning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22956	23077	
==>";
  }
}


{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8427	8531	
==>Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8427	8531	
==>Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8427	8531	
==>Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4797	4900	
==>, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4797	4900	
==>, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	65	156	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	289	380	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	65	156	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	289	380	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	65	156	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	289	380	
==>s of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6265	6387	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9235	9357	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6265	6387	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9235	9357	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6265	6387	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9235	9357	
==>the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        my ($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1132	1240	
==>body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1132	1240	
==>body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1132	1240	
==>body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3852	3948	
==>ks that the next test should fail.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3852	3948	
==>ks that the next test should fail.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3932	4028	
==>ks that the next test should fail.  C<$description> is the optional
description of the test.  Thi <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	944	1066	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1312	1434	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1818	1940	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	944	1066	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1312	1434	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1818	1940	
==>of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2614	2733	
==>xpression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2614	2733	
==>xpression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2614	2733	
==>xpression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	16	117	
==>rnals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	16	117	
==>rnals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No ST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	16	117	
==>rnals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No ST <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7669	7789	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6799	6919	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3385	3505	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3385	3505	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7669	7789	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6799	6919	
==>ber) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shoul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4153	4265	
==>rting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDAT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4153	4265	
==>rting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDAT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4153	4265	
==>rting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDAT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36403	36501	
==>ffset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36403	36501	
==>ffset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36403	36501	
==>ffset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8825	8982	
==>item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8825	8982	
==>item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8825	8982	
==>item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35150	35267	
==>body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35150	35267	
==>body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35150	35267	
==>body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2112	2234	
==>de { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named para <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2252	2374	
==>de { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named para <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2260	2360	
==>ersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2260	2360	
==>ersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1747	1844	
==>s as parameters at least C<rate of information> in
items per second and C<burst size> in items.

= <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1747	1844	
==>s as parameters at least C<rate of information> in
items per second and C<burst size> in items.

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4381	4526	
==>DE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4381	4526	
==>DE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4381	4526	
==>DE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## At <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	689	795	
==>lf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	689	795	
==>lf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	689	795	
==>lf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24ma <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13803	13920	
==>ers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a da <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13803	13920	
==>ers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a da <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7963	8062	
==>aking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immedi <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7963	8062	
==>aking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immedi <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11345	11439	
==>om this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns onl <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11345	11439	
==>om this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns onl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11932	12062	
==>used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11932	12062	
==>used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11932	12062	
==>used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	591	708	
==>nown = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	591	708	
==>nown = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	591	708	
==>nown = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2223	2353	
==>ue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2223	2353	
==>ue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2223	2353	
==>ue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = preco <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5069	5213	
==>vail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### i <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5533	5677	
==>vail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7006	7144	
==>ems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items shou <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7006	7144	
==>ems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items shou <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7006	7144	
==>ems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items shou <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7160	7297	
==>for %pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25498	25633	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27693	27828	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25498	25633	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27693	27828	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25498	25633	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27693	27828	
==>les ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29107	29217	
==>Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29107	29217	
==>Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29107	29217	
==>Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7171	7263	
==>dule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7171	7263	
==>dule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7171	7263	
==>dule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2202	2361	
==>" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $s <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	468	573	
==>usMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.loc <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	468	573	
==>usMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.loc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30476	30571	
==>mer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
arg <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35027	35122	
==>mer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
arg <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34209	34304	
==>mer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4164	4304	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7100	7240	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4164	4304	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7100	7240	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4164	4304	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7100	7240	
==>ly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6665	6776	
==>fix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6665	6776	
==>fix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6665	6776	
==>fix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primit <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	154	254	
==>ro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 ver <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	154	254	
==>ro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 ver <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34374	34469	
==>those of C<$heading>.  The new Relation::Example has all of the tuples of the
original (or rathe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11164	11284	
==>abel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11164	11284	
==>abel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11164	11284	
==>abel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5253	5369	
==>'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5253	5369	
==>'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5253	5369	
==>'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	192	292	
==>he (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	192	292	
==>he (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	192	292	
==>he (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14222	14311	
==>rclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14222	14311	
==>rclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14222	14311	
==>rclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2058	2198	
==>$dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2058	2198	
==>$dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2058	2198	
==>$dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## A <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1534	1633	
==>[TParam]',
  'pSubLValue'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h ' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27620	27717	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a H <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27620	27717	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a H <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2866	3020	
==>}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3153	3298	
==>}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9571	9716	
==>}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3153	3298	
==>}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9571	9716	
==>}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    re <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5123	5246	
==>for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5547	5666	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8517	8636	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5547	5666	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8517	8636	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5547	5666	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8517	8636	
==>ne basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method bei <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8901	9058	
==>}
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    d <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8901	9058	
==>}
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    d <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8901	9058	
==>}
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6024	6123	
==>t->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6024	6123	
==>t->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6024	6123	
==>t->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7056	7194	
==>o',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7056	7194	
==>o',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7056	7194	
==>o',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11009	11145	
==>od_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11009	11145	
==>od_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11009	11145	
==>od_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1210	1376	
==>$::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1210	1376	
==>$::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1210	1376	
==>$::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4547	4640	
==>>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4547	4640	
==>>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4547	4640	
==>>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1904	2046	
==>ircumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            fo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1904	2046	
==>ircumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            fo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1904	2046	
==>ircumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	825	932	
==>ructure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1030	1137	
==>ructure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1086	1193	
==>ructure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ( <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	749	889	
==>$class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.requir <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	749	889	
==>$class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.requir <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9530	9641	
==>);
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.repo <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	10705	10809	
==>variable::free->new;
		
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1629	1730	
==>);
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.repo <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1629	1730	
==>);
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.repo <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2069	2186	
==>e C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basen <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2069	2186	
==>e C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7841	7935	
==>hould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7841	7935	
==>hould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7841	7935	
==>hould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4065	4181	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2299	2415	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3080	3196	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5003	5118	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2545	2660	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3326	3441	
==>my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2806	2939	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5796	5929	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3095	3221	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9513	9639	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3095	3221	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9513	9639	
==>r_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5547	5714	
==>(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5547	5714	
==>(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5547	5714	
==>(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5107	5212	
==>tly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5107	5212	
==>tly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5107	5212	
==>tly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($val <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4402	4503	
==>fix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4402	4503	
==>fix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6523	6622	
==>e.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5274	5373	
==>fix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6523	6622	
==>e.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5274	5373	
==>fix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32786	32879	
==>py each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

Thi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10289	10382	
==>ETHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the num <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8182	8275	
==>ETHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the num <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37336	37429	
==>py each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

Thi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10289	10382	
==>ETHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the num <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8182	8275	
==>ETHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25546	25670	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27741	27865	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25546	25670	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27741	27865	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25546	25670	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27741	27865	
==>';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	41	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	41	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	41	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { <==
6	/Users/nnunley/pugs/util/func_refact.pl	2066	2171	
==>dsize, leaving with $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $size - $oldsiz <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8935	9026	
==>c::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is w <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8935	9026	
==>c::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13590	13719	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10874	11003	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13590	13719	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10874	11003	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13590	13719	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10874	11003	
==>) {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14177	14312	
==>ny++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14177	14312	
==>ny++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14177	14312	
==>ny++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6338	6448	
==>rgs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<.. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6338	6448	
==>rgs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<.. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6338	6448	
==>rgs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20513	20639	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17652	17778	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20513	20639	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17652	17778	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20513	20639	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17652	17778	
==>rong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap_package_sub($value, $self);
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2177	2308	
==>rgname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2177	2308	
==>rgname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2177	2308	
==>rgname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3436	3548	
==>=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3436	3548	
==>=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3436	3548	
==>=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	846	958	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	934	1046	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	846	958	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	934	1046	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	846	958	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	934	1046	
==>if($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as be <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25470	25639	
==>&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26128	26297	
==>&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25749	25918	
==>&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26407	26576	
==>&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12411	12503	
==>et of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12411	12503	
==>et of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9813	9931	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7362	7480	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9813	9931	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7362	7480	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9813	9931	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7362	7480	
==>b {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17149	17259	
==>nner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20626	20736	
==>nner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20204	20314	
==>nner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	485	587	
==>pt code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	485	587	
==>pt code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	485	587	
==>pt code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	68	172	
==>Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3139	3240	
==>cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3139	3240	
==>cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3139	3240	
==>cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	61	159	
==>Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	61	159	
==>Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1563	1707	
==>ethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1563	1707	
==>ethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1563	1707	
==>ethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	790	900	
==>th { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	790	900	
==>th { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	790	900	
==>th { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4679	4811	
==>be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4679	4811	
==>be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4679	4811	
==>be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13969	14078	
==>::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13969	14078	
==>::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13969	14078	
==>::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3922	4038	
==>ason');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'Te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11116	11231	
==>},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11116	11231	
==>},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11116	11231	
==>},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6351	6451	
==>ar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11197	11297	
==>ar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10556	10656	
==>:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we do <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10556	10656	
==>:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we do <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10556	10656	
==>:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we do <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4263	4358	
==>y.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object. <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4263	4358	
==>y.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5787	5882	
==>y.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object. <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11573	11693	
==>subrule_text
    $S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    inc pos
    mpos = pos
    $P0 = find <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2757	2857	
==>pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARG <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2757	2857	
==>pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARG <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2757	2857	
==>pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARG <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11729	11823	
==>t.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an order <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11729	11823	
==>t.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an order <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7441	7559	
==>Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7441	7559	
==>Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7441	7559	
==>Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6811	6916	
==>at '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6811	6916	
==>at '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6811	6916	
==>at '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18706	18848	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15944	16086	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18706	18848	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15944	16086	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18706	18848	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15944	16086	
==>les with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4017	4166	
==>le( q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Co <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19736	19841	
==>- C \= 10, !. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1, <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23585	23682	
==>t> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> u <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22358	22455	
==>t> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> u <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23585	23682	
==>t> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> u <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22358	22455	
==>t> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2129	2265	
==>ub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prototype => new Object(),
    # class <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	276	380	
==>tory created";

$REPO->create   or die "Creation failed";

for my $jib ( values %PKGS ) {
    $REPO->add_ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5435	5531	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4565	4661	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5435	5531	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4565	4661	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22896	23067	
==>th Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22896	23067	
==>th Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22896	23067	
==>th Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2084	2178	
==>-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2084	2178	
==>-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2084	2178	
==>-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10217	10408	
==>am );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10217	10408	
==>am );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10217	10408	
==>am );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1619	1733	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3182	3296	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1619	1733	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3182	3296	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1619	1733	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3182	3296	
==>:ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3283	3403	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11841	11961	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6408	6528	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3283	3403	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11841	11961	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6408	6528	
==>hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6927	7022	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6057	6152	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2711	2806	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2711	2806	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6927	7022	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6057	6152	
==>es($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6158	6307	
==>default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, the <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5231	5380	
==>default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, the <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6158	6307	
==>default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, the <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5231	5380	
==>default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, the <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	708	826	
==>ers, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	708	826	
==>ers, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11157	11253	
==><$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<include <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8561	8657	
==><$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<include <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11157	11253	
==><$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<include <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8561	8657	
==><$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<include <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	384	472	
==>eferer
    www_authenticate authorization proxy_authorization authorization_basic proxy_a <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	384	472	
==>eferer
    www_authenticate authorization proxy_authorization authorization_basic proxy_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13186	13328	
==>urn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13186	13328	
==>urn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13186	13328	
==>urn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2044	2153	
==>ed->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2044	2153	
==>ed->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2044	2153	
==>ed->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped-> <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5960	6090	
==>e
            my $target = $dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6266	6382	
==>ave some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    ( <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5339	5455	
==>ave some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    ( <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6266	6382	
==>ave some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    ( <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5339	5455	
==>ave some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    ( <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4013	4121	
==>ckage->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new_from_struct( struct => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3535	3655	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6471	6591	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3535	3655	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6471	6591	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3535	3655	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6471	6591	
==>hod primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience w <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2068	2236	
==>{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$do <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2068	2236	
==>{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$do <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	311	417	
==>=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	311	417	
==>=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	185	287	
==>ct representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPT <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	185	287	
==>ct representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPT <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1920	2048	
==>[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        "exp 'name' exp 'name2' exp \n" .
        "\t{ \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5986	6107	
==>x @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5986	6107	
==>x @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5986	6107	
==>x @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24774	24869	
==>osetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24774	24869	
==>osetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20150	20288	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17289	17427	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20150	20288	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17289	17427	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20150	20288	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17289	17427	
==>self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # bec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6441	6560	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9411	9530	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6441	6560	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9411	9530	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6441	6560	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9411	9530	
==>) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || conf <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1123	1231	
==>apture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1134	1242	
==>apture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4203	4303	
==>acted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upward <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5100	5200	
==>acted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upward <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4203	4303	
==>acted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upward <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5100	5200	
==>acted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upward <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7769	7881	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10692	10804	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7769	7881	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10692	10804	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7769	7881	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10692	10804	
==>$?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::ma <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	202	328	
==>/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (% <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	202	328	
==>/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (% <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3861	3973	
==>' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $ter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12881	12984	
==>)();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12881	12984	
==>)();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12881	12984	
==>)();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8235	8365	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5794	5924	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8235	8365	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5794	5924	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8235	8365	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5794	5924	
==>s and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6708	6814	
==>ne() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6708	6814	
==>ne() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6708	6814	
==>ne() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increme <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4257	4354	
==>>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4257	4354	
==>>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4257	4354	
==>>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5811	5938	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3931	4058	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5811	5938	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3931	4058	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5811	5938	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3931	4058	
==>tance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11227	11334	
==>th limited command line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	276	376	
==>rence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	276	376	
==>rence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1854	1946	
==>oot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1854	1946	
==>oot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1854	1946	
==>oot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15793	15959	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20510	20676	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15793	15959	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20510	20676	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15793	15959	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20510	20676	
==>rapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multime <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	282	433	
==>rom_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	282	433	
==>rom_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	282	433	
==>rom_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	487	593	
==>c method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	487	593	
==>c method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	487	593	
==>c method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4448	4545	
==>ill use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4448	4545	
==>ill use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4528	4625	
==>ill use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13294	13441	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18177	18324	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13294	13441	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18177	18324	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13294	13441	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18177	18324	
==>t METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub :: <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6733	6836	
==>ings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6733	6836	
==>ings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40123	40219	
==>GPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, M <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24814	24910	
==>GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, M <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40123	40219	
==>GPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, M <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24814	24910	
==>GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, M <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25537	25659	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28223	28345	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29234	29356	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30089	30211	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32775	32897	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33786	33908	
==>hod is a generic relational operator that returns a new Relation
which is the same as the invocant Relation but that some o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2912	3152	
==>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3159	3399	
==>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15903	16042	
==>t_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15903	16042	
==>t_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15903	16042	
==>t_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_at <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1602	1715	
==>obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	203	314	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	367	478	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	203	314	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	367	478	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	203	314	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	367	478	
==>f($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12237	12371	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3859	3993	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12237	12371	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3859	3993	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12237	12371	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3859	3993	
==>' =>     sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18363	18563	
==>is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18363	18563	
==>is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18363	18563	
==>is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	85	210	
==>s1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	85	210	
==>s1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	85	210	
==>s1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	750	865	
==>stive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	750	865	
==>stive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	750	865	
==>stive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6820	6920	
==>nction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6820	6920	
==>nction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6820	6920	
==>nction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10812	10984	
==>rse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10812	10984	
==>rse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10812	10984	
==>rse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	700	788	
==>elf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	700	788	
==>elf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	700	788	
==>elf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1425	1544	
==>lue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1425	1544	
==>lue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1425	1544	
==>lue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	241	349	
==>IL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Mino <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	241	349	
==>IL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Mino <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	241	349	
==>IL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Mino <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10662	10767	
==>oin(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10662	10767	
==>oin(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10662	10767	
==>oin(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13773	13871	
==>ss->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13773	13871	
==>ss->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13773	13871	
==>ss->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25321	25477	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25979	26135	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28761	28917	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25600	25756	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26258	26414	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29040	29196	
==>alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'gramm <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4380	4505	
==>raw {
    my $self = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15785	15902	
==>st = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15779	15896	
==>st = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3868	3982	
==>name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, La <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3868	3982	
==>name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, La <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3868	3982	
==>name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, La <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	234	347	
==>ld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	234	347	
==>ld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	234	347	
==>ld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eva <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5120	5230	
==>f->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtil <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3350	3450	
==>Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read an <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3350	3450	
==>Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	178	299	
==>ue of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	178	299	
==>ue of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	178	299	
==>ue of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4575	4671	
==>ub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &so <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4575	4671	
==>ub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &so <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4575	4671	
==>ub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &so <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5845	5994	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6398	6547	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7982	8131	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6038	6187	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6591	6740	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8175	8324	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14950	15091	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14950	15091	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14950	15091	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19649	19789	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19649	19789	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19649	19789	
==>@autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12832	12940	
==>ub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12832	12940	
==>ub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12832	12940	
==>ub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4583	4677	
==>, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4583	4677	
==>, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4583	4677	
==>, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9809	9923	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7358	7472	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9809	9923	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7358	7472	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9809	9923	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7358	7472	
==>d(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1829	1938	
==>opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1829	1938	
==>opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1829	1938	
==>opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	305	402	
==>sLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	305	402	
==>sLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	305	402	
==>sLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11405	11536	
==>_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11405	11536	
==>_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    } <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	741	843	
==>e running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module p <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	741	843	
==>e running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	289	390	
==>atchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $para <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	289	390	
==>atchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $para <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4162	4257	
==>)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8 <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4162	4257	
==>)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8 <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	723	816	
==>erer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be us <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	723	816	
==>erer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be us <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7601	7691	
==>->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1426	1516	
==>->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15877	15993	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20594	20710	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15877	15993	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20594	20710	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15877	15993	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20594	20710	
==>tart our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            mu <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	199	324	
==>5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	199	324	
==>5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11245	11362	
==>ur nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when w <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11245	11362	
==>ur nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when w <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10490	10599	
==>ur nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when w <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10490	10599	
==>ur nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14319	14433	
==>lue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14319	14433	
==>lue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14319	14433	
==>lue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3511	3612	
==>ork under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3511	3612	
==>ork under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3511	3612	
==>ork under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	174	289	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	115	230	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	174	289	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	115	230	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	174	289	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	115	230	
==>From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2679	2779	
==>unction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS. <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7725	7825	
==><BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2679	2779	
==>unction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2679	2779	
==>unction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS. <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	15006	15102	
==>ly is to implement this as a mutually recursive multi-
sub which will be able to handle structure <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15064	15160	
==>ly is to implement this as a mutually recursive multi-
sub which will be able to handle structure <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21102	21201	
==>egree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25654	25753	
==>egree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24269	24368	
==>egree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8434	8531	
==>pec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8434	8531	
==>pec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8434	8531	
==>pec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a cl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2428	2530	
==>ugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $< <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2428	2530	
==>ugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $< <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8212	8312	
==>f $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8212	8312	
==>f $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10308	10404	
==>at they are of the correct
container type (eg, hash vs array).  The deferred validations are perf <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10308	10404	
==>at they are of the correct
container type (eg, hash vs array).  The deferred validations are perf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5533	5698	
==>) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5533	5698	
==>) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5533	5698	
==>) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27832	27926	
==>nally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32384	32478	
==>nally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31476	31570	
==>nally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11676	11808	
==>may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2159	2288	
==>may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8931	9060	
==>may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2159	2288	
==>may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8931	9060	
==>may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => su <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7153	7249	
==>gex, you can do use any of the
following methods:

=over 4

=item $parser = Regexp::Parser->new($ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3660	3803	
==>nterpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4977	5120	
==>nterpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3660	3803	
==>nterpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4965	5108	
==>nterpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1 <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	981	1060	
==>erl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	981	1060	
==>erl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11940	12046	
==>( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11940	12046	
==>( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9741	9840	
==>['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9741	9840	
==>['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9741	9840	
==>['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4636	4726	
==>ams'));
    return bit->new(0) if $left->length->not_equal_to($right->length) == bit->new(1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15041	15180	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19739	19878	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15041	15180	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19739	19878	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15041	15180	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19739	19878	
==>lf = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, and we deal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11943	12086	
==>";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $statu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2357	2488	
==>";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2357	2488	
==>";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4860	4952	
==>hod grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4860	4952	
==>hod grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4860	4952	
==>hod grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19122	19295	
==>fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $oth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19122	19295	
==>fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $oth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19122	19295	
==>fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10483	10614	
==>ance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10483	10614	
==>ance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10483	10614	
==>ance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5440	5546	
==>tocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5440	5546	
==>tocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7637	7743	
==>tocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4359	4458	
==>meter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4359	4458	
==>meter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6556	6655	
==>meter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2179	2276	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2584	2681	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2179	2276	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2584	2681	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2179	2276	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2584	2681	
==>ackup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(func <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1796	1900	
==>defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1796	1900	
==>defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1993	2097	
==>st::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1796	1900	
==>defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	8	102	
==>st::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*O <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	8	102	
==>st::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*O <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15576	15748	
==>w();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15576	15748	
==>w();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15576	15748	
==>w();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8354	8445	
==>======================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8354	8445	
==>======================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8354	8445	
==>======================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20929	21188	
==>elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20929	21188	
==>elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20929	21188	
==>elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = S <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4791	4887	
==>tion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contain <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4791	4887	
==>tion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contain <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6988	7084	
==>tion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contain <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21371	21469	
==>ny futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21371	21469	
==>ny futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21371	21469	
==>ny futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4004	4093	
==>s a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setti <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4004	4093	
==>s a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6201	6290	
==>s a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3995	4109	
==>ndefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7796	7910	
==>$ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7796	7910	
==>$ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7796	7910	
==>$ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3995	4109	
==>ndefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3995	4109	
==>ndefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35657	35791	
==>ift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35657	35791	
==>ift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35657	35791	
==>ift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10541	10653	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10541	10653	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10541	10653	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2122	2258	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1234	1370	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2122	2258	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1234	1370	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2122	2258	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1234	1370	
==>ethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15412	15542	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12668	12798	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15412	15542	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12668	12798	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15412	15542	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12668	12798	
==>tance' if not exists $params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36325	36419	
==>es of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38078	38172	
==>es of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40874	40968	
==>es of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42627	42721	
==>es of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40488	40582	
==>es of those attributes differ and unioning
the remaining said tuple pairs, then eliminating any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42277	42371	
==>es of those attributes differ and unioning the remaining said tuple
pairs, then eliminating any <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5520	5626	
==>name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a na <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5805	5911	
==>name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a na <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23090	23184	
==>$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply bo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21899	21993	
==>$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23090	23184	
==>$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21899	21993	
==>$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19789	19907	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16928	17046	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19789	19907	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16928	17046	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19789	19907	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16928	17046	
==>}  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($va <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1482	1598	
==>e, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1482	1598	
==>e, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$mat <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	90	196	
==>e "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $n <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	94	200	
==>e "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	90	196	
==>e "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	94	200	
==>e "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2724	2816	
==>d

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2724	2816	
==>d

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3071	3163	
==>d

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	514	601	
==>----------------------------------------------------
## Eigenclass

$::EigenClass = $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	514	601	
==>----------------------------------------------------
## Eigenclass

$::EigenClass = $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	514	601	
==>----------------------------------------------------
## Eigenclass

$::EigenClass = $::C <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3267	3379	
==>sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6260	6370	
==>sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3529	3638	
==>sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9947	10056	
==>sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3529	3638	
==>sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9947	10056	
==>sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3698	3835	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3698	3835	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3698	3835	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8476	8576	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6029	6129	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8476	8576	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6029	6129	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8476	8576	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6029	6129	
==>hift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	404	512	
==>Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	404	512	
==>Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARR <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	404	512	
==>Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1652	1755	
==>int encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1652	1755	
==>int encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1652	1755	
==>int encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6050	6178	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9020	9148	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6050	6178	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9020	9148	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6050	6178	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9020	9148	
==>ess $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return bless sub { co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	744	842	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1264	1362	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	744	842	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1264	1362	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	744	842	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1264	1362	
==>H(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(array = [])) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16011	16148	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20728	20865	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16011	16148	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20728	20865	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16011	16148	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20728	20865	
==>ss::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrappe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2946	3073	
==>>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2946	3073	
==>>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2946	3073	
==>>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	13	115	
==>none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	13	115	
==>none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	13	115	
==>none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9578	9699	
==>= @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5919	6040	
==>= @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6768	6889	
==>= @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4853	4972	
==>han}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthe <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4853	4972	
==>han}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthe <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	917	1030	
==>nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

-------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8606	8783	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6159	6336	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8606	8783	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6159	6336	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8606	8783	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6159	6336	
==>$self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2424	2574	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2424	2574	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2424	2574	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3133	3282	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3133	3282	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3133	3282	
==>:p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15007	15175	
==>s}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15007	15175	
==>s}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15007	15175	
==>s}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1514	1623	
==>obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1514	1623	
==>obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1514	1623	
==>obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2321	2452	
==>turn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2321	2452	
==>turn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2321	2452	
==>turn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	76	174	
==>il;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	76	174	
==>il;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	76	174	
==>il;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7105	7250	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7373	7518	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7105	7250	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7373	7518	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7105	7250	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7373	7518	
==>my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13939	14099	
==>s
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13939	14099	
==>s
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13939	14099	
==>s
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1015	1148	
==>e {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1015	1148	
==>e {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1015	1148	
==>e {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5506	5715	
==>nd (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7268	7477	
==>nd (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17552	17715	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18209	18372	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17831	17994	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18488	18651	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6015	6126	
==>b corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6015	6126	
==>b corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6015	6126	
==>b corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17127	17212	
==>bute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17127	17212	
==>bute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17127	17212	
==>bute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	327	424	
==>y $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	327	424	
==>y $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	327	424	
==>y $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $ret <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30872	30966	
==>e where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35422	35516	
==>e where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34613	34707	
==>e where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9498	9651	
==>q 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15042	15195	
==>q 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9498	9651	
==>q 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15036	15189	
==>q 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26151	26250	
==>nd on the Message Key
it is being used with (others are ignored).  Each variable name can be any
def <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26151	26250	
==>nd on the Message Key
it is being used with (others are ignored).  Each variable name can be any
def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6388	6503	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9358	9473	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6388	6503	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9358	9473	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6388	6503	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9358	9473	
==>thod) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9298	9435	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12271	12408	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9298	9435	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12271	12408	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9298	9435	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12271	12408	
==>ateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3378	3498	
==>cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $desc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3378	3498	
==>cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $desc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3378	3498	
==>cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2854	2951	
==>s::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2854	2951	
==>s::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2854	2951	
==>s::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6812	6938	
==>tart + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6812	6938	
==>tart + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6812	6938	
==>tart + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5801	5896	
==>o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5801	5896	
==>o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5801	5896	
==>o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4165	4263	
==>}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_in <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4165	4263	
==>}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_in <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4122	4218	
==>}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_in <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4122	4218	
==>}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17963	18057	
==>**

Module::Compile attempts to make source filtering a sane process, by
parsing up your module <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17963	18057	
==>**

Module::Compile attempts to make source filtering a sane process, by
parsing up your module <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13216	13331	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10500	10615	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13216	13331	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10500	10615	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13216	13331	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10500	10615	
==>tance' if not exists $params->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7292	7442	
==>n Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7292	7442	
==>n Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7292	7442	
==>n Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3084	3188	
==>rst argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3084	3188	
==>rst argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3084	3188	
==>rst argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	86	187	
==>and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	295	396	
==>nd - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Rem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	86	187	
==>and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	86	187	
==>and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PI <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	295	396	
==>nd - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Rem <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	295	396	
==>nd - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Rem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16649	16745	
==>ore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16649	16745	
==>ore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16649	16745	
==>ore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2494	2617	
==>ad([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2494	2617	
==>ad([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2494	2617	
==>ad([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9719	9807	
==>spatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9719	9807	
==>spatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9719	9807	
==>spatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	94	197	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	355	458	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	94	197	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	355	458	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	94	197	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	355	458	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1997	2120	
==>,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2008	2131	
==>,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop: <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7783	7880	
==>npath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs P <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7783	7880	
==>npath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs P <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	819	912	
==>returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	819	912	
==>returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1358	1467	
==>_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1563	1672	
==>_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1624	1733	
==>_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	416	514	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	416	514	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	416	514	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10054	10194	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7605	7745	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10054	10194	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7605	7745	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10054	10194	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7605	7745	
==>cher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10895	11004	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11104	11213	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10895	11004	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11104	11213	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10895	11004	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11104	11213	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32120	32245	
==>( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32120	32245	
==>( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32120	32245	
==>( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28625	28719	
==>eing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33177	33271	
==>eing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32305	32399	
==>eing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	971	1068	
==>ugh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	971	1068	
==>ugh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	971	1068	
==>ugh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = u <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36372	36465	
==>remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seq <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40921	41014	
==>remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seq <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40535	40628	
==>remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34932	35051	
==>for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34932	35051	
==>for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34932	35051	
==>for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36352	36448	
==>er and unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38105	38201	
==>er and unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40901	40997	
==>er and unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42654	42750	
==>er and unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40515	40611	
==>er and unioning
the remaining said tuple pairs, then eliminating any result tuples that
duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42304	42400	
==>er and unioning the remaining said tuple
pairs, then eliminating any result tuples that duplicate <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	655	755	
==>ompiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3726	3826	
==>ompiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	655	755	
==>ompiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3726	3826	
==>ompiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1289	1381	
==>as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed f <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1289	1381	
==>as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	688	804	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	903	1019	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	688	804	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	903	1019	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	688	804	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	903	1019	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3358	3454	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6372	6468	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8440	8536	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3358	3454	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6372	6468	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8440	8536	
==>ns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Arra <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14334	14458	
==>_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17811	17935	
==>_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17227	17351	
==>_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	279	381	
==>tmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	279	381	
==>tmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	279	381	
==>tmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11241	11393	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8794	8946	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11241	11393	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8794	8946	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11241	11393	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8794	8946	
==>p of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10105	10313	
==>arams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            ch <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10105	10313	
==>arams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            ch <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10105	10313	
==>arams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15545	15661	
==>'-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15545	15661	
==>'-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15545	15661	
==>'-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1472	1600	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3035	3163	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1472	1600	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3035	3163	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1472	1600	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3035	3163	
==>KAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2550	2662	
==>->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2550	2662	
==>->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2550	2662	
==>->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2733	2833	
==>lass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2733	2833	
==>lass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2733	2833	
==>lass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1204	1303	
==>08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1204	1303	
==>08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1204	1303	
==>08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operat <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3841	3939	
==>ion )>

Marks that the next test should fail.  C<$description> is the optional
description of the t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3841	3939	
==>ion )>

Marks that the next test should fail.  C<$description> is the optional
description of the t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3921	4019	
==>ion )>

Marks that the next test should fail.  C<$description> is the optional
description of the t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2218	2348	
==>/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2218	2348	
==>/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2218	2348	
==>/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	364	477	
==>hould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	569	682	
==>hould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	625	738	
==>hould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3613	3732	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6549	6668	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3613	3732	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6549	6668	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3613	3732	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6549	6668	
==>ve to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3063	3233	
==>enClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3063	3233	
==>enClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3063	3233	
==>enClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9643	9740	
==>a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `i <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9643	9740	
==>a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1205	1299	
==>se TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 port of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7131	7260	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4690	4819	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7131	7260	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4690	4819	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7131	7260	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4690	4819	
==>all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7713	7847	
==>xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7713	7847	
==>xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7713	7847	
==>xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5155	5253	
==>ndence_list');

fails_ok { $Foo->bar } '... metaclass calling instance method fails';

## make inst <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21842	21937	
==>y in the
main program, Locale::KeyedText can be given input that says what resource
files it sho <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21842	21937	
==>y in the
main program, Locale::KeyedText can be given input that says what resource
files it sho <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5522	5639	
==>xt( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) retu <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10492	10609	
==>xt( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) retu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5522	5639	
==>xt( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) retu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10492	10609	
==>xt( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) retu <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2636	2731	
==>e can compromise both encryptions.

If two different data streams are enciphered with the same k <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2636	2731	
==>e can compromise both encryptions.

If two different data streams are enciphered with the same k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7554	7688	
==>d from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7554	7688	
==>d from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7554	7688	
==>d from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5663	5767	
==>'$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5663	5767	
==>'$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5663	5767	
==>'$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11717	11866	
==>. 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6034	6174	
==>. 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6034	6174	
==>. 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
su <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	3679	3784	
==>ents\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 design documents   : $syn_src_dir\n <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26359	26454	
==>ing informed any time you create a modified version of Rosetta
that you are willing to distribut <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26359	26454	
==>ing informed any time you create a modified version of Rosetta
that you are willing to distribut <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6602	6733	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9051	9182	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6602	6733	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9051	9182	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6602	6733	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9051	9182	
==>fined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24429	24542	
==>as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24429	24542	
==>as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24429	24542	
==>as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	193	294	
==>mar::Str;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our % <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12360	12454	
==>do, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12418	12512	
==>do, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7639	7755	
==>ly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alwa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7639	7755	
==>ly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alwa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7639	7755	
==>ly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alwa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6541	6646	
==>>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6541	6646	
==>>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6541	6646	
==>>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1794	1944	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3357	3507	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1794	1944	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3357	3507	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1794	1944	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3357	3507	
==>SS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dis <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21539	21636	
==>rcase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$even <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20420	20517	
==>rcase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21539	21636	
==>rcase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20420	20517	
==>rcase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$even <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10435	10531	
==>fter the input has been set, and could potentially
never be performed at all.  They validate ever <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10435	10531	
==>fter the input has been set, and could potentially
never be performed at all.  They validate ever <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6923	7020	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6053	6150	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2707	2804	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2707	2804	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6923	7020	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6053	6150	
==>cludes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3909	4102	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6436	6629	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3909	4102	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6436	6629	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3909	4102	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6436	6629	
==>od(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	3944	4060	
==>odule}.pm> = '<precompiled>';\n\n";
        # (the need for a semicolon in "};" is probably a bug.)
    }
    print S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1240	1337	
==>meout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::globa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1240	1337	
==>meout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::globa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1240	1337	
==>meout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::globa <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	13505	13601	
==>ss before this test can pass (or before an implementation
could be started).  This is most useful <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13563	13659	
==>ss before this test can pass (or before an implementation
could be started).  This is most useful <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3695	3840	
==>=~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Varia <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5012	5157	
==>=~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Varia <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3695	3840	
==>=~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Varia <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5000	5145	
==>=~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Varia <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1486	1578	
==>Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %P <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1326	1418	
==>Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15451	15550	
==>lue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15451	15550	
==>lue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15451	15550	
==>lue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv } <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2044	2141	
==>>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{ <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7646	7743	
==>s --> Int|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int|List )

I <==
6	/Users/nnunley/pugs/util/build_pugs.pl	101	194	
==>h qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5374	5493	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8344	8463	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5374	5493	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8344	8463	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5374	5493	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8344	8463	
==>r a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	854	958	
==>:cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	854	958	
==>:cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	854	958	
==>:cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3430	3531	
==>ibute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3430	3531	
==>ibute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3430	3531	
==>ibute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/lib/lib.pm	1409	1504	
==>{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with <==
6	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1409	1504	
==>{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4263	4357	
==>tch (Code & Class::Events::Subscriber $subscriber) {
        $subscriber.($.subscription, $.eve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16283	16400	
==>ble = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16283	16400	
==>ble = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16283	16400	
==>ble = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1438	1545	
==>s no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1438	1545	
==>s no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1438	1545	
==>s no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13218	13339	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13218	13339	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13218	13339	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5458	5579	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3958	4079	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2103	2224	
==>$len if defined($len);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7511	7625	
==>me.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7511	7625	
==>me.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7511	7625	
==>me.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36444	36546	
==>y tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36444	36546	
==>y tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36444	36546	
==>y tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22993	23135	
==>- TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22993	23135	
==>- TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22993	23135	
==>- TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5687	5794	
==>();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5687	5794	
==>();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5687	5794	
==>();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2703	2802	
==>ize () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6180	6279	
==>ize () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5110	5209	
==>ize () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19635	19728	
==>thod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19635	19728	
==>thod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19635	19728	
==>thod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7034	7170	
==>ice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7034	7170	
==>ice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7034	7170	
==>ice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1546	1662	
==>ption = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (d <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1546	1662	
==>ption = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (d <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1546	1662	
==>ption = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (d <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	176	273	
==>d %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.supers;

multi meth <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22858	22949	
==>ng.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=hea <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22858	22949	
==>ng.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3413	3532	
==>cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3413	3532	
==>cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3413	3532	
==>cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	737	831	
==>ains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	737	831	
==>ains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	737	831	
==>ains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16453	16559	
==>abel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16453	16559	
==>abel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16453	16559	
==>abel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3981	4072	
==>disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3981	4072	
==>disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3981	4072	
==>disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1290	1395	
==>}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1290	1395	
==>}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1290	1395	
==>}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22794	22893	
==>,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22794	22893	
==>,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22794	22893	
==>,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1, <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5887	5994	
==>try_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1761	1868	
==>\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2023	2130	
==>\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1761	1868	
==>\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2023	2130	
==>\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5887	5994	
==>try_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36349	36443	
==>iffer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupl <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38102	38196	
==>iffer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40898	40992	
==>iffer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42651	42745	
==>iffer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40512	40606	
==>iffer and unioning
the remaining said tuple pairs, then eliminating any result tuples that
dupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42301	42395	
==>iffer and unioning the remaining said tuple
pairs, then eliminating any result tuples that dupl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5796	5894	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8766	8864	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5796	5894	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8766	8864	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5796	5894	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8766	8864	
==>er ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19898	19995	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17037	17134	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19898	19995	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17037	17134	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19898	19995	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17037	17134	
==>lessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23372	23511	
==>d eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23372	23511	
==>d eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23372	23511	
==>d eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3321	3430	
==>ibutes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3321	3430	
==>ibutes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3321	3430	
==>ibutes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1907	2003	
==>lass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1907	2003	
==>lass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1907	2003	
==>lass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3257	3345	
==>S::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3257	3345	
==>S::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3257	3345	
==>S::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

s <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	437	532	
==>en readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	437	532	
==>en readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30912	31006	
==>Example
which has a superset of the original's attributes; the new Relation::Example has as
man <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	899	1019	
==>y $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	899	1019	
==>y $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	276	390	
==>:Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4566	4657	
==>defined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_fr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4566	4657	
==>defined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_fr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4566	4657	
==>defined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15049	15165	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12303	12419	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15049	15165	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12303	12419	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15049	15165	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12303	12419	
==>ibute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        co <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11196	11310	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12667	12781	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14673	14787	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16144	16258	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13981	14095	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15506	15620	
==>r;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8827	9002	
==>~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12728	12860	
==>~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12728	12860	
==>~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6526	6638	
==>ix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6526	6638	
==>ix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6526	6638	
==>ix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitiv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13338	13445	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10622	10729	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13338	13445	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10622	10729	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13338	13445	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10622	10729	
==>>{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5230	5362	
==>roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5230	5362	
==>roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5230	5362	
==>roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	236	350	
==>less keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	236	350	
==>less keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	236	350	
==>less keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... : <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	756	854	
==>$expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($p <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	814	912	
==>$expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($p <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	756	854	
==>$expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($p <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	814	912	
==>$expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($p <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2371	2468	
==>de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is fr <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2371	2468	
==>de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is fr <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23382	23524	
==>ram => comb(
						fun => ide("f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					),
				),
				para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15482	15595	
==>start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remov <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15482	15595	
==>start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remov <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15482	15595	
==>start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remov <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3687	3784	
==>pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::E <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3687	3784	
==>pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12778	12884	
==>ined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12778	12884	
==>ined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12778	12884	
==>ined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10947	11052	
==>TCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10947	11052	
==>TCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10947	11052	
==>TCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10613	10778	
==>ents )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10892	11057	
==>ents )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4978	5078	
==>elf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16014	16114	
==>elf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17502	17602	
==>elf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22185	22285	
==>elf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	64	161	
==>:Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenCl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	64	161	
==>:Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenCl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	64	161	
==>:Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenCl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	280	372	
==>eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	280	372	
==>eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	280	372	
==>eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22946	23115	
==>param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22946	23115	
==>param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22946	23115	
==>param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5247	5347	
==>h $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5247	5347	
==>h $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5247	5347	
==>h $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1055	1158	
==>lternation is first match (not longest).  though we need a 

    # separate longest match for tokens (pu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1406	1508	
==>lternation is first match (not longest).  though we need a 
    # separate longest match for tokens (pu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1013	1115	
==>lternation is first match (not longest).  though we need a 
    # separate longest match for tokens (pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1406	1508	
==>lternation is first match (not longest).  though we need a 
    # separate longest match for tokens (pu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28752	28845	
==>ping> value set members do not match invocant
Relation attribute names, or duplicate any other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33304	33397	
==>ping> value set members do not match invocant
Relation attribute names, or duplicate any other <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2667	2784	
==>$tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2655	2772	
==>$tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5091	5194	
==>s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $part <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5091	5194	
==>s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $part <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5091	5194	
==>s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $part <==
6	/Users/nnunley/pugs/util/package-osx.pl	5729	5817	
==>/local/man/man3/Perl6::Overview::Control.3pm
        /usr/local/man/man3/Perl6::Overview: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1375	1480	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1706	1811	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1375	1480	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1706	1811	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1375	1480	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1706	1811	
==>=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shif <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1073	1288	
==>1,
                default     => $config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15693	15829	
==>um        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15693	15829	
==>um        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15693	15829	
==>um        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	828	925	
==>erence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	828	925	
==>erence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Se <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30780	30872	
==>but
that any duplicates following the transformation have been eliminated. 
Trivial cases are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35331	35422	
==>but
that any duplicates following the transformation have been eliminated.
Trivial cases are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34522	34613	
==>but
that any duplicates following the transformation have been eliminated.
Trivial cases are <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2439	2554	
==>RG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7533	7648	
==>RG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2439	2554	
==>RG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7533	7648	
==>RG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1911	2020	
==>0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handle <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1911	2020	
==>0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handle <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2272	2372	
==>rs => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2272	2372	
==>rs => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10281	10373	
==>=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Return <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8174	8266	
==>=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10281	10373	
==>=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8174	8266	
==>=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7952	8062	
==>n undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7952	8062	
==>n undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7952	8062	
==>n undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12796	12899	
==>thod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12796	12899	
==>thod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12796	12899	
==>thod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "h <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4544	4641	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3671	3768	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	481	578	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	481	578	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4544	4641	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3671	3768	
==>rence operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1845	1950	
==>ns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1845	1950	
==>ns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &: <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5020	5123	
==>eturns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4147	4250	
==>eturns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5020	5123	
==>eturns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4147	4250	
==>eturns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5043	5136	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3271	3364	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5043	5136	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3271	3364	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5043	5136	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3271	3364	
==>l;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2342	2465	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2342	2465	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2342	2465	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_c <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	18	117	
==>return the last statement evaluated in the .pm, in this case
# 42. See thread "What do use and requi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14397	14494	
==>/:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic { <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14397	14494	
==>/:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30400	30522	
==>{
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30400	30522	
==>{
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30400	30522	
==>{
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	362	481	
==>lf = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	362	481	
==>lf = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	362	481	
==>lf = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2820	2942	
==>s primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2820	2942	
==>s primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2820	2942	
==>s primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4965	5083	
==>list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4965	5083	
==>list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4965	5083	
==>list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	583	694	
==>. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	583	694	
==>. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	583	694	
==>. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34295	34399	
==>ne;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34295	34399	
==>ne;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34295	34399	
==>ne;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4452	4561	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7388	7497	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4452	4561	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7388	7497	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4452	4561	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7388	7497	
==>) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3684	3799	
==>kAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3684	3799	
==>kAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3684	3799	
==>kAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2384	2483	
==>stant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2384	2483	
==>stant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2384	2483	
==>stant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norm <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7013	7111	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6143	6241	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2797	2895	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2797	2895	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7013	7111	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6143	6241	
==>udes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($memb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3620	3721	
==>ift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3620	3721	
==>ift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3620	3721	
==>ift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	882	973	
==>de::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	882	973	
==>de::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	882	973	
==>de::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	580	701	
==>rc_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	615	736	
==>rc_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	580	701	
==>rc_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $de <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9797	9918	
==>rc_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $de <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1053	1174	
==>rc_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $de <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18200	18300	
==>rch,
and to get back match results.

Our objective here is to see if it is possible to use the regexp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1833	1965	
==>'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1833	1965	
==>'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1833	1965	
==>'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class} <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	6807	6919	
==>hich failed
    percent     Percentage of tests which failed
    canon       List of tests which failed (as strin <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5408	5503	
==>/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(12 <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5408	5503	
==>/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(12 <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	784	879	
==>elf->Blondie::Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = shi <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	1576	1669	
==>ction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C< <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1576	1669	
==>ction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4054	4160	
==>nd_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4054	4160	
==>nd_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4054	4160	
==>nd_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18230	18324	
==>dded classes, so the class
C<[\w\d:4-65:]> will render as C<[\w\d:4-6]>.  If you want to preven <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	7	100	
==>erldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	7	100	
==>erldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1809	1937	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	921	1049	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1809	1937	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	921	1049	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1809	1937	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	921	1049	
==>ethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5920	6051	
==>Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip li <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5920	6051	
==>Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip li <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8135	8243	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _n <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8527	8635	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _n <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8135	8243	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _n <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8527	8635	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36319	36415	
==>e values of those attributes differ and unioning
the remaining said tuple pairs, then eliminating <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38072	38168	
==>e
values of those attributes differ and unioning the remaining said tuple
pairs, then eliminating <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40868	40964	
==>e values of those attributes differ and unioning
the remaining said tuple pairs, then eliminating <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42621	42717	
==>e
values of those attributes differ and unioning the remaining said tuple
pairs, then eliminating <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40482	40578	
==>e values of those attributes differ and unioning
the remaining said tuple pairs, then eliminating <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42271	42367	
==>e
values of those attributes differ and unioning the remaining said tuple
pairs, then eliminating <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7599	7735	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10522	10658	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7599	7735	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10522	10658	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7599	7735	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10522	10658	
==>n $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    nex <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4248	4382	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6897	7031	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4479	4609	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10928	11058	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4479	4609	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10928	11058	
==>ch2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6537	6635	
==>ype->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	482	580	
==>ec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISAB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6537	6635	
==>ype->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	482	580	
==>ec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISAB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6537	6635	
==>ype->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	482	580	
==>ec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISAB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10918	11068	
==>=>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10918	11068	
==>=>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10918	11068	
==>=>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	654	762	
==>0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	654	762	
==>0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	654	762	
==>0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	18793	18999	
==>content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after the header, when th <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7231	7348	
==>hr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7231	7348	
==>hr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2307	2386	
==>ator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2307	2386	
==>ator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2307	2386	
==>ator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4481	4599	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7417	7535	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4481	4599	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7417	7535	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4481	4599	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7417	7535	
==>ociated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14068	14179	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11340	11451	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14068	14179	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11340	11451	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14068	14179	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11340	11451	
==>d label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5540	5654	
==>= $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5540	5654	
==>= $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5540	5654	
==>= $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2583	2675	
==>$S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3538	3630	
==>$S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(d <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16883	16972	
==>x,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3812	3924	
==>air.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3812	3924	
==>air.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3812	3924	
==>air.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	410	514	
==>undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	410	514	
==>undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	410	514	
==>undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2777	2930	
==>lPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1.. <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	530	665	
==>lPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1.. <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	530	665	
==>lPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2943	3043	
==>ng";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2943	3043	
==>ng";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2943	3043	
==>ng";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1016	1127	
==>G_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1016	1127	
==>G_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6056	6160	
==>ject>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!us <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6836	6940	
==>ject>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!us <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6056	6160	
==>ject>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!us <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6836	6940	
==>ject>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22552	22788	
==>: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22552	22788	
==>: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22552	22788	
==>: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3081	3181	
==>c(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3081	3181	
==>c(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3081	3181	
==>c(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2206	2336	
==>len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arit <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2206	2336	
==>len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arit <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2206	2336	
==>len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2674	2780	
==>...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2674	2780	
==>...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2674	2780	
==>...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2730	2834	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5378	5482	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2730	2834	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5378	5482	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2730	2834	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5378	5482	
==>e instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instanti <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	949	1072	
==>= %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	691	814	
==>= %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	949	1072	
==>= %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	691	814	
==>= %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2938	3056	
==>sis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocir <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2938	3056	
==>sis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5270	5390	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8240	8360	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5270	5390	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8240	8360	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5270	5390	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8240	8360	
==>ake a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1838	1938	
==>{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1838	1938	
==>{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1838	1938	
==>{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7411	7502	
==>s];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7411	7502	
==>s];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7411	7502	
==>s];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2582	2698	
==>n "Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot in <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	347	453	
==>n "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot in <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	347	453	
==>n "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	725	827	
==>ROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BE <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	725	827	
==>ROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BE <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	725	827	
==>ROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4558	4679	
==>ems );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4558	4679	
==>ems );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4558	4679	
==>ems );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4940	5040	
==>ten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$va <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4940	5040	
==>ten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$va <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5530	5630	
==>ten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$va <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	6	121	
==>Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inva <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	6	121	
==>Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inva <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4274	4373	
==>nition($node, "$type $symbol () {\n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14435	14524	
==>ute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14435	14524	
==>ute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14435	14524	
==>ute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16503	16602	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21220	21319	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16503	16602	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21220	21319	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16503	16602	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21220	21319	
==>this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7880	7988	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10803	10911	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7880	7988	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10803	10911	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7880	7988	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10803	10911	
==>make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13016	13143	
==>= $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13016	13143	
==>= $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13016	13143	
==>= $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of a <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1901	2028	
==>= $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17094	17192	
==>.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its time <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17094	17192	
==>.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its time <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4498	4639	
==>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4498	4639	
==>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4498	4639	
==>();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2179	2312	
==>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2179	2312	
==>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2179	2312	
==>();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($nam <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11123	11279	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8186	8333	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8186	8333	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	933	1049	
==>nk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow adding global <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24592	24684	
==>ree
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at you <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24592	24684	
==>ree
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at you <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30519	30673	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32233	32387	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30519	30673	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32233	32387	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30519	30673	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32233	32387	
==>if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3597	3724	
==>ame doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4914	5041	
==>ame doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3597	3724	
==>ame doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4902	5029	
==>ame doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	52	147	
==>:Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed around <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	52	147	
==>:Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed around <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	243	350	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	184	291	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	243	350	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	184	291	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	243	350	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	184	291	
==>to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	195	290	
==>d (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	195	290	
==>d (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	195	290	
==>d (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3541	3631	
==>V pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3541	3631	
==>V pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3541	3631	
==>V pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	719	817	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1239	1337	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	719	817	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1239	1337	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	719	817	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1239	1337	
==>TCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12020	12145	
==>{
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12014	12139	
==>{
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cm <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4930	5025	
==>nce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4057	4152	
==>nce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4930	5025	
==>nce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4057	4152	
==>nce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8708	8864	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11681	11837	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8708	8864	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11681	11837	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8708	8864	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11681	11837	
==>ut the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	878	1003	
==>,
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	878	1003	
==>,
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	878	1003	
==>,
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	122	215	
==>x.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	122	215	
==>x.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	122	215	
==>x.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5431	5529	
==>B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by def <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5431	5529	
==>B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by def <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6955	7053	
==>B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18625	18714	
==>nfix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18625	18714	
==>nfix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18625	18714	
==>nfix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<.. <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	13017	13141	
==>do},
	skipped   => $tres->{skip},
        failed => ($tres->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4754	4859	
==>{ system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4754	4859	
==>{ system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2377	2475	
==>);
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2377	2475	
==>);
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2377	2475	
==>);
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	151	258	
==>lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	151	258	
==>lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	151	258	
==>lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3529	3617	
==>ttr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3529	3617	
==>ttr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3529	3617	
==>ttr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5971	6102	
==>} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5971	6102	
==>} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5971	6102	
==>} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1005	1114	
==>:opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1005	1114	
==>:opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1005	1114	
==>:opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_at <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5321	5510	
==>((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (b <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7083	7272	
==>((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (b <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3461	3579	
==>n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub isnt ($$@) {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2405	2504	
==>->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [% <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2405	2504	
==>->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [% <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2405	2504	
==>->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [% <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6317	6466	
==>elf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6317	6466	
==>elf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6317	6466	
==>elf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_ <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	19672	19803	
==>> 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusmsg .= (" ($tot->{todo} sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	576	697	
==>y $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	611	732	
==>y $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	576	697	
==>y $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9793	9914	
==>y $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1049	1170	
==>y $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4542	4672	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2754	2884	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4542	4672	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2754	2884	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4542	4672	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2754	2884	
==>something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	47	153	
==>nd, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	47	153	
==>nd, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	47	153	
==>nd, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3112	3205	
==>0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3112	3205	
==>0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3112	3205	
==>0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_n <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6929	7025	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6059	6155	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2713	2809	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2713	2809	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6929	7025	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6059	6155	
==>($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8161	8284	
==>}
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8161	8284	
==>}
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8161	8284	
==>}
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7213	7315	
==>ort string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7213	7315	
==>ort string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7213	7315	
==>ort string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	165	273	
==>ass,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	165	273	
==>ass,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	165	273	
==>ass,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	26	120	
==>s (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	26	120	
==>s (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	26	120	
==>s (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6932	7060	
==>y $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11936	12064	
==>y $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6932	7060	
==>y $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11930	12058	
==>y $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4716	4831	
==>te.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.unio <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4716	4831	
==>te.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.unio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14888	14984	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12142	12238	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14888	14984	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12142	12238	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14888	14984	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12142	12238	
==>sufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13213	13309	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4383	4479	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8839	8935	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13213	13309	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4383	4479	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8839	8935	
==>or this whole file, which can be referenced as a unit by
documentation or 'use' statements or Per <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45981	46150	
==>ame')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9098	9239	
==>alue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9098	9239	
==>alue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9098	9239	
==>alue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33299	33397	
==>e is found.  Since a
program or library may wish to override the user text of another library
which <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33299	33397	
==>e is found.  Since a
program or library may wish to override the user text of another library
which <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	758	859	
==>ate nodes in a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_find <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30914	31012	
==>t one.  The
Member Name comes next and is what distinguishes each module from others in
its set. Fo <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30914	31012	
==>t one.  The
Member Name comes next and is what distinguishes each module from others in
its set. Fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2403	2499	
==>l('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2403	2499	
==>l('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2403	2499	
==>l('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22680	22784	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22910	23014	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22680	22784	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22910	23014	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22680	22784	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22910	23014	
==>x0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n( <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6198	6343	
==>>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we nee <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5271	5416	
==>>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we nee <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6198	6343	
==>>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we nee <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5271	5416	
==>>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we nee <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	664	765	
==>ext(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	664	765	
==>ext(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32784	32952	
==>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32784	32952	
==>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32784	32952	
==>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	42	144	
==>erl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	42	144	
==>erl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	42	144	
==>erl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9980	10085	
==>--------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10003	10108	
==>---------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9980	10085	
==>--------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10003	10108	
==>---------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9980	10085	
==>--------------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10003	10108	
==>---------
    # has %:methods;
    # has %:attributes;
    # --------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3891	3992	
==>lize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ir <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3891	3992	
==>lize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ir <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9125	9215	
==>mpty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4268	4358	
==>mpty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9125	9215	
==>mpty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4268	4358	
==>mpty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7971	8130	
==>nction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7971	8130	
==>nction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7971	8130	
==>nction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2486	2599	
==>elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2486	2599	
==>elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2486	2599	
==>elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13280	13376	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4450	4546	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8906	9002	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13280	13376	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4450	4546	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8906	9002	
==>ion or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should never r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7144	7283	
==>ous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7144	7283	
==>ous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7144	7283	
==>ous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2239	2330	
==>) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2239	2330	
==>) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2239	2330	
==>) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14904	15018	
==>t !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14904	15018	
==>t !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14904	15018	
==>t !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result;
} <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3248	3362	
==>t !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result;
} <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36982	37077	
==>nslate_message( $message );

=back

The Translator class also has these utility methods, which a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36982	37077	
==>nslate_message( $message );

=back

The Translator class also has these utility methods, which a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6422	6530	
==>rnals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6422	6530	
==>rnals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6422	6530	
==>rnals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5967	6067	
==>EATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5967	6067	
==>EATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5967	6067	
==>EATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4470	4571	
==>SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4470	4571	
==>SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4470	4571	
==>SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	208	303	
==>cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	208	303	
==>cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	208	303	
==>cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10079	10211	
==>ed ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10079	10211	
==>ed ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10079	10211	
==>ed ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cre <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4827	4937	
==>ame' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4827	4937	
==>ame' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1733	1843	
==>ame' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,' <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5771	5870	
==>the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one tha <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5771	5870	
==>the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one tha <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1920	2008	
==>e current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repor <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1883	1971	
==>e current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repor <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1920	2008	
==>e current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repor <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1883	1971	
==>e current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	175	285	
==>)(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	175	285	
==>)(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	175	285	
==>)(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4946	5044	
==>or my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4946	5044	
==>or my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5536	5634	
==>or my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4402	4524	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7051	7173	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4629	4748	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11078	11197	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4629	4748	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11078	11197	
==>match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1991	2100	
==>utput);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value h <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1991	2100	
==>utput);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value h <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24808	24907	
==>NTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supp <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23572	23671	
==>NTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supp <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24808	24907	
==>NTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supp <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23572	23671	
==>NTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11288	11442	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8841	8995	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11288	11442	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8841	8995	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11288	11442	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8841	8995	
==>t value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not define <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	557	655	
==>an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	557	655	
==>an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	557	655	
==>an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	689	786	
==>for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	689	786	
==>for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	707	804	
==>for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2907	3000	
==>arp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2907	3000	
==>arp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2907	3000	
==>arp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19600	19692	
==>$xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19600	19692	
==>$xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19600	19692	
==>$xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2014	2115	
==>:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2014	2115	
==>:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2014	2115	
==>:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4690	4778	
==>e::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4690	4778	
==>e::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4690	4778	
==>e::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3336	3442	
==>atch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6813	6919	
==>atch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5770	5876	
==>atch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3452	3549	
==>{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3452	3549	
==>{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3452	3549	
==>{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNam <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	373	495	
==>> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	864	986	
==>> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	373	495	
==>> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	864	986	
==>> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes o <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3806	3901	
==>s. If you need something
with more power, move up to Config::Simple, Config::General or one of t <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3806	3901	
==>s. If you need something
with more power, move up to Config::Simple, Config::General or one of t <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20722	20823	
==>Hash::META->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_CODE {
    my($name <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37396	37492	
==>e if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	952	1048	
==>$CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVar <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37396	37492	
==>e if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	952	1048	
==>$CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	952	1048	
==>$CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1646	1764	
==>eturn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1646	1764	
==>eturn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1646	1764	
==>eturn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2645	2742	
==>f $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2645	2742	
==>f $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2645	2742	
==>f $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8571	8760	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6124	6313	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8571	8760	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6124	6313	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8571	8760	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6124	6313	
==>($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$sel <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5485	5580	
==>- test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This r <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5485	5580	
==>- test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7682	7777	
==>- test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4150	4292	
==>t $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $dig <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4162	4304	
==>t $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $dig <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11014	11114	
==>from the set. Returns the number of items
removed.

It is not fatal to remove an item which is not in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8418	8518	
==>from the set. Returns the number of items removed.

It is not fatal to remove an item which is not in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11014	11114	
==>from the set. Returns the number of items
removed.

It is not fatal to remove an item which is not in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8418	8518	
==>from the set. Returns the number of items removed.

It is not fatal to remove an item which is not in <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	592	715	
==>($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$spac <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40595	40689	
==>warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40595	40689	
==>warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6609	6716	
==>tegories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | <Mc>
}
rule UnicodeDi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7354	7460	
==>PER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7354	7460	
==>PER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7354	7460	
==>PER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($n <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1656	1754	
==>ode::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $cod <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1656	1754	
==>ode::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13973	14075	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14460	14562	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13973	14075	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14460	14562	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13973	14075	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14460	14562	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label" <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	500	600	
==>s are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1045	1145	
==>s are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mod <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	500	600	
==>s are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mod <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1045	1145	
==>s are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mod <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1045	1145	
==>s are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mod <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	997	1090	
==>pe) returns reference>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit> <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3895	3996	
==>iler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vt <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4228	4329	
==>iler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vt <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3895	3996	
==>iler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vt <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4228	4329	
==>iler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vt <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16298	16393	
==>that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming l <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16298	16393	
==>that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1592	1690	
==>function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1592	1690	
==>function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1592	1690	
==>function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17776	17868	
==>x0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17776	17868	
==>x0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17776	17868	
==>x0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1976	2067	
==>arameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1976	2067	
==>arameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1976	2067	
==>arameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23185	23272	
==>UB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23185	23272	
==>UB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23185	23272	
==>UB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35398	35517	
==>aining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35398	35517	
==>aining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35398	35517	
==>aining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9699	9785	
==>n $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9699	9785	
==>n $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9699	9785	
==>n $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3964	4068	
==>self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preambl <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2917	3019	
==>self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preambl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35423	35517	
==>ay ref.

=item C<get_member_names()>

This method returns all Member Names elements in this obj <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35423	35517	
==>ay ref.

=item C<get_member_names()>

This method returns all Member Names elements in this obj <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5675	5767	
==>tem head($url)

Get document headers. Depending on the context, C<head> returns
the following <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5675	5767	
==>tem head($url)

Get document headers. Depending on the context, C<head> returns
the following <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6350	6585	
==>$key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6350	6585	
==>$key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6350	6585	
==>$key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3	97	
==>This file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3	97	
==>This file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3	97	
==>This file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	708	823	
==>attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	708	823	
==>attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11183	11298	
==>escription;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	708	823	
==>attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLAS <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1653	1756	
==>escription;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1653	1756	
==>escription;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5164	5310	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8134	8280	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5164	5310	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8134	8280	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5164	5310	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8134	8280	
==>d call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_met <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21282	21408	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22403	22529	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22966	23092	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17703	17829	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18824	18950	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19387	19513	
==>';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10894	11081	
==>rn
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.pass <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1386	1555	
==>rn
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.pass <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1386	1555	
==>rn
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.pass <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24274	24375	
==>butes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28826	28927	
==>butes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27684	27783	
==>butes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38834	38938	
==>DO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - ad <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38834	38938	
==>DO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - ad <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38834	38938	
==>DO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1339	1436	
==>ttr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1339	1436	
==>ttr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1339	1436	
==>ttr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14606	14736	
==>e MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14606	14736	
==>e MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14606	14736	
==>e MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9095	9204	
==>:next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9095	9204	
==>:next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9095	9204	
==>:next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # .. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10307	10462	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7858	8013	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10307	10462	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7858	8013	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10307	10462	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7858	8013	
==>ck[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iterator is exhausted <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9446	9578	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12419	12551	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9446	9578	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12419	12551	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9446	9578	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12419	12551	
==>hod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1737	1842	
==>nline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1737	1842	
==>nline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1737	1842	
==>nline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	519	619	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	519	619	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	519	619	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8979	9087	
==>ided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package r <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10456	10564	
==>ided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package r <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	4085	4186	
==>verbose};
}

# Strip comments and docs while preserving the line counts
sub strip_comments {
    $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2458	2553	
==>verlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2458	2553	
==>verlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2458	2553	
==>verlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12466	12564	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10017	10115	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12466	12564	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10017	10115	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12466	12564	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10017	10115	
==>turn 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4805	4907	
==>e;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4805	4907	
==>e;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4805	4907	
==>e;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9798	9912	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7347	7461	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9798	9912	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7347	7461	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9798	9912	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7347	7461	
==>ivate_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $valu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31519	31614	
==>module set that is specific
to it, another library likewise, and a program which uses both libra <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37202	37297	
==>ule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37441	37536	
==>ule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31519	31614	
==>module set that is specific
to it, another library likewise, and a program which uses both libra <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37202	37297	
==>ule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37441	37536	
==>ule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2911	3007	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10834	10930	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6036	6132	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2911	3007	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10834	10930	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6036	6132	
==>=> $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $v <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2183	2315	
==>fied dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisf <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3548	3672	
==>fied dependencies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisf <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2264	2377	
==>ions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin w <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2181	2289	
==>ions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin w <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1007	1109	
==>IL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1007	1109	
==>IL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::P <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1309	1552	
==>when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1309	1552	
==>when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6281	6378	
==>sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5411	5508	
==>sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6281	6378	
==>sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5411	5508	
==>sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1879	1990	
==>");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1879	1990	
==>");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1879	1990	
==>");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3793	3886	
==>{
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returnc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3793	3886	
==>{
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returnc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3793	3886	
==>{
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returnc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1052	1166	
==>ue structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1052	1166	
==>ue structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1052	1166	
==>ue structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13183	13280	
==>fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readli <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13183	13280	
==>fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readli <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13183	13280	
==>fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readli <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3592	3707	
==>op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3843	3955	
==>op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3843	3955	
==>op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3005	3111	
==>tval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3005	3111	
==>tval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3005	3111	
==>tval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11259	11376	
==>y_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successfu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11259	11376	
==>y_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successfu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10504	10613	
==>y_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successfu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10504	10613	
==>y_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successfu <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3263	3345	
==>mplement_previous, $self.complement_next, $set.complement_previous, $set.complement <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3263	3345	
==>mplement_previous, $self.complement_next, $set.complement_previous, $set.complement <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13258	13365	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4428	4535	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8884	8991	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13258	13365	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4428	4535	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8884	8991	
==>s a unit by
documentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you sho <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37808	37905	
==>r
$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12823	12920	
==>ns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one e <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9599	9696	
==>ns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one e <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37808	37905	
==>r
$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12823	12920	
==>ns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one e <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9599	9696	
==>ns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16102	16277	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20819	20994	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16102	16277	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20819	20994	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16102	16277	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20819	20994	
==>y (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6552	6705	
==>ry { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10759	10912	
==>ry { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7839	7986	
==>ry { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        retu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6341	6488	
==>ry { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7839	7986	
==>ry { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5215	5329	
==>> ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15884	15999	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20601	20716	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15884	15999	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20601	20716	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15884	15999	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20601	20716	
==>r own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multipar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4701	4827	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7637	7763	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4701	4827	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7637	7763	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4701	4827	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7637	7763	
==>ated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5011	5110	
==>t $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4138	4237	
==>t $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5011	5110	
==>t $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4138	4237	
==>t $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	31	127	
==>mmar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

Thi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	31	127	
==>mmar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

Thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11540	11689	
==>ible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      a <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11540	11689	
==>ible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      a <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9147	9291	
==>ete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $por <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9147	9291	
==>ete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $por <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8440	8552	
==>ed when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object rep <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8440	8552	
==>ed when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object rep <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	710	850	
==>Options(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	710	850	
==>Options(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	710	850	
==>Options(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4177	4272	
==>6($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%( <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4177	4272	
==>6($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3914	4085	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6850	7021	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3914	4085	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6850	7021	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3914	4085	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6850	7021	
==>urn bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11021	11142	
==>start},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11021	11142	
==>start},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11021	11142	
==>start},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous = <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	555	663	
==>) ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must deal with Inf and NaN
    no warnings 'nu <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12680	12775	
==>finite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12680	12775	
==>finite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5233	5426	
==>y->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5233	5426	
==>y->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5233	5426	
==>y->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $k <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5593	5687	
==>the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.re <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5593	5687	
==>the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7790	7884	
==>the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14349	14477	
==>gar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14349	14477	
==>gar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14349	14477	
==>gar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2686	2799	
==>",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2686	2799	
==>",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2686	2799	
==>",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	201	303	
==>die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	201	303	
==>die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	201	303	
==>die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	255	351	
==>};
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	255	351	
==>};
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	255	351	
==>};
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7902	8012	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7902	8012	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7902	8012	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6533	6624	
==>n sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6533	6624	
==>n sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6533	6624	
==>n sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13583	13711	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10867	10995	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13583	13711	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10867	10995	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13583	13711	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10867	10995	
==>rivate') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There i <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	90	210	
==>Config = %Config::Config;

sub get_config {
    my $config = {
        perl_revision   => '6',
        perl_version    => <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	352	452	
==>umeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	897	997	
==>umeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It a <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	352	452	
==>umeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	897	997	
==>umeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	897	997	
==>umeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3961	4083	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4899	5021	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2195	2317	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2441	2563	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2976	3098	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3222	3344	
==>{
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4706	4840	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7642	7776	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4706	4840	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7642	7776	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4706	4840	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7642	7776	
==>with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	636	742	
==>ven Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fro <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1124	1230	
==>ven Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fro <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	636	742	
==>ven Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fro <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1124	1230	
==>ven Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fro <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	324	420	
==>ng node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROP <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	324	420	
==>ng node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROP <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25359	25481	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26017	26139	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28799	28921	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25638	25760	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26296	26418	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29078	29200	
==>op::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14489	14679	
==>}
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17966	18156	
==>}
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17382	17572	
==>}
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12092	12211	
==>=> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12092	12211	
==>=> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12092	12211	
==>=> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7368	7543	
==>lems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7368	7543	
==>lems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7368	7543	
==>lems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	778	895	
==>$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	778	895	
==>$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEG <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	778	895	
==>$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEG <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9510	9625	
==>. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9510	9625	
==>. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9510	9625	
==>. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7845	7948	
==>Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7845	7948	
==>Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7845	7948	
==>Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $:: <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1775	1921	
==>$tmpl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14660	14768	
==>text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14660	14768	
==>text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2064	2163	
==>t defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2064	2163	
==>t defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2064	2163	
==>t defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", js <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	128	226	
==>r;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $sel <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	132	230	
==>r;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $sel <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	126	224	
==>r;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $sel <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	126	224	
==>r;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $sel <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36528	36620	
==>age object as its positional
parameter $message and returns an equivalent human readable text <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36528	36620	
==>age object as its positional
parameter $message and returns an equivalent human readable text <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2840	2982	
==>on( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3128	3262	
==>on( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9546	9680	
==>on( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3128	3262	
==>on( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9546	9680	
==>on( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3280	3410	
==>fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/\ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9154	9250	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4297	4393	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15733	15829	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9154	9250	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4297	4393	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15733	15829	
==>`end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `s <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35370	35511	
==>attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36295	36436	
==>attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37830	37971	
==>attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4844	4946	
==>lf->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4844	4946	
==>lf->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4844	4946	
==>lf->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7205	7332	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4764	4891	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7205	7332	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4764	4891	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7205	7332	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4764	4891	
==>seqs);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2197	2306	
==>urse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2197	2306	
==>urse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2197	2306	
==>urse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    } <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1645	1748	
==>Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1645	1748	
==>Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	851	950	
==>onds_slept;
}

sub exit (Int $status = 0) is builtin is primitive {
    Perl6::Internals::exit $stat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7147	7294	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7415	7562	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7147	7294	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7415	7562	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7147	7294	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7415	7562	
==>1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	110	200	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	110	200	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	110	200	
==>ew PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1176	1280	
==>ptional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unles <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1176	1280	
==>ptional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unles <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1385	1489	
==>ptional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unles <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38882	38979	
==>YRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43696	43793	
==>YRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43230	43327	
==>YRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10061	10247	
==>warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10061	10247	
==>warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10061	10247	
==>warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3039	3138	
==>.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3039	3138	
==>.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3039	3138	
==>.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14858	14977	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19557	19676	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14858	14977	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19557	19676	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14858	14977	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19557	19676	
==>AD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	2078	2181	
==>children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $se <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2078	2181	
==>children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6140	6270	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9110	9240	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6140	6270	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9110	9240	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6140	6270	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9110	9240	
==>thod () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8098	8216	
==>);
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8098	8216	
==>);
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8098	8216	
==>);
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1289	1398	
==>ck.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1289	1398	
==>ck.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1289	1398	
==>ck.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @impo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6128	6227	
==>vel version of OUTER::?

Either way, I think it might be useful to have this if for nothing other th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6128	6227	
==>vel version of OUTER::?

Either way, I think it might be useful to have this if for nothing other th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6128	6227	
==>vel version of OUTER::?

Either way, I think it might be useful to have this if for nothing other th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1847	1979	
==>ted - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1847	1979	
==>ted - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1847	1979	
==>ted - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	459	552	
==>ling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	459	552	
==>ling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	459	552	
==>ling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10606	10773	
==>azy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# -- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10606	10773	
==>azy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# -- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10606	10773	
==>azy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# -- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13532	13631	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13532	13631	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13532	13631	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1834	1981	
==>LD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1834	1981	
==>LD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1834	1981	
==>LD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2099	2207	
==>and();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2099	2207	
==>and();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2099	2207	
==>and();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run: <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10785	10890	
==>=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self};";}

    $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1218	1308	
==>ur @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1218	1308	
==>ur @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2859	2973	
==>else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2859	2973	
==>else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2859	2973	
==>else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18441	18538	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18441	18538	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18441	18538	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38941	39059	
==>shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38941	39059	
==>shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38941	39059	
==>shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3654	3760	
==>' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3654	3760	
==>' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3654	3760	
==>' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	671	788	
==>->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	687	804	
==>->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	663	780	
==>->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::a <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4780	4876	
==>est description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This r <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4780	4876	
==>est description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6977	7073	
==>est description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	852	961	
==>ass {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	852	961	
==>ass {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && define <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	852	961	
==>ass {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16470	16646	
==>my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16470	16646	
==>my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16470	16646	
==>my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	223	326	
==>ave an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	223	326	
==>ave an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	223	326	
==>ave an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3824	3938	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4077	4191	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4522	4636	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3824	3938	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4077	4191	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4522	4636	
==>Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5128	5235	
==>xtToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5128	5235	
==>xtToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5128	5235	
==>xtToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1263	1357	
==>f $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1263	1357	
==>f $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1263	1357	
==>f $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19173	19279	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16411	16517	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19173	19279	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16411	16517	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19173	19279	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16411	16517	
==>ugh, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$lab <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7572	7696	
==>\$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7560	7684	
==>\$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	866	974	
==>('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package metho <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7115	7219	
==>[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3719	3823	
==>[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4568	4672	
==>[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9241	9383	
==>rn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9241	9383	
==>rn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9241	9383	
==>rn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	190	285	
==>method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	190	285	
==>method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	190	285	
==>method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5392	5487	
==>sing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5392	5487	
==>sing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5392	5487	
==>sing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22505	22599	
==>e op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22505	22599	
==>e op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22505	22599	
==>e op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1847	1958	
==>$params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1847	1958	
==>$params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1847	1958	
==>$params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5836	5942	
==>e) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5836	5942	
==>e) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5836	5942	
==>e) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1853	1972	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3416	3535	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1853	1972	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3416	3535	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1853	1972	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3416	3535	
==>etailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5026	5127	
==>($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5026	5127	
==>($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5026	5127	
==>($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36412	36510	
==>: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36412	36510	
==>: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36412	36510	
==>: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @li <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3272	3387	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11830	11945	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6397	6512	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3272	3387	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11830	11945	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6397	6512	
==>assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3788	3884	
==>">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3788	3884	
==>">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3788	3884	
==>">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17331	17417	
==>ke_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17331	17417	
==>ke_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17331	17417	
==>ke_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6554	6678	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9003	9127	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6554	6678	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9003	9127	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6554	6678	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9003	9127	
==>rt/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate l <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16245	16384	
==>g( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19722	19861	
==>g( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19255	19394	
==>g( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17430	17528	
==>UB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17430	17528	
==>UB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17430	17528	
==>UB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	450	559	
==>{ required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_e <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	934	1043	
==>{ required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_e <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6360	6466	
==>ception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @mod <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5433	5539	
==>ception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @mod <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6360	6466	
==>ception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @mod <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5433	5539	
==>ception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23015	23119	
==>rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23015	23119	
==>rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23015	23119	
==>rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1226	1324	
==>e() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1226	1324	
==>e() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1226	1324	
==>e() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acce <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2514	2623	
==>elf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5717	5826	
==>elf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2514	2623	
==>elf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5717	5826	
==>elf: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19181	19282	
==>d = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19181	19282	
==>d = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	495	593	
==>jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($clas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	495	593	
==>jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($clas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	495	593	
==>jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($clas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	335	422	
==>s::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	335	422	
==>s::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	332	415	
==>s::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4885	5018	
==>VERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5349	5482	
==>VERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	656	770	
==>ords g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keep <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	656	770	
==>ords g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keep <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	656	770	
==>ords g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keep <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3048	3146	
==>u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.uni <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5030	5148	
==>ty == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5030	5148	
==>ty == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5030	5148	
==>ty == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@sel <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3407	3509	
==>go the last mile.

=head1 BUGS

Numerous.

=head1 TODO

=over
=item Scoping

You should be able to do b <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8667	8764	
==>urning something?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8379	8474	
==>urning something?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25597	25716	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27792	27911	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25597	25716	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27792	27911	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25597	25716	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27792	27911	
==>elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    las <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	189	288	
==>ed; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	189	288	
==>ed; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8009	8103	
==>*infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7139	7233	
==>*infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8009	8103	
==>*infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7139	7233	
==>*infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	685	785	
==>IS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints " <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	685	785	
==>IS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints " <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11888	11985	
==>Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13280	13377	
==>Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11888	11985	
==>Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13280	13377	
==>Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9400	9504	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12373	12477	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9400	9504	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12373	12477	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9400	9504	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12373	12477	
==>ckage Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod:: <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9874	9987	
==>n no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2, <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7814	7927	
==>n no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9874	9987	
==>n no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7814	7927	
==>n no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2640	2726	
==>tatement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2640	2726	
==>tatement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_ <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4193	4295	
==>ts<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split( <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4238	4340	
==>ts<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split( <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4193	4295	
==>ts<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split( <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4238	4340	
==>ts<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split( <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1082	1183	
==>nse
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  re <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1082	1183	
==>nse
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11106	11277	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8170	8331	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8170	8331	
==>);
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	54	160	
==>r the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	54	160	
==>r the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	54	160	
==>r the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     = <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21515	21614	
==>ta[1].max_offset
 #define check_substr     substrs->data[2].substr
 #define check_utf8       substrs <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	1672	1768	
==>infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1672	1768	
==>infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	73	190	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	434	551	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	73	190	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	434	551	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	73	190	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	434	551	
==>=> \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2022	2117	
==>eeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped ma <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2022	2117	
==>eeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped ma <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9271	9358	
==>or::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new( <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9466	9553	
==>or::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new( <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9661	9748	
==>or::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new( <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	11318	11404	
==>or::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2763	2884	
==>1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2763	2884	
==>1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2763	2884	
==>1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2265	2360	
==>ks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2265	2360	
==>ks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2265	2360	
==>ks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	391	532	
==>my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	391	532	
==>my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2083	2188	
==>$test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2083	2188	
==>$test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2083	2188	
==>$test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	51	155	
==>() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf(), wu <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3368	3483	
==>but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3368	3483	
==>but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3743	3836	
==>d = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	847	940	
==>d = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3743	3836	
==>d = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	780	870	
==>d = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16715	16824	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13920	14029	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16715	16824	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13920	14029	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16715	16824	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13920	14029	
==>et_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3893	4007	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6542	6656	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4134	4244	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10583	10693	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4134	4244	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10583	10693	
==>}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	800	937	
==>ile (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	800	937	
==>ile (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	800	937	
==>ile (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expan <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2113	2244	
==>er,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2031	2155	
==>er,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11326	11436	
==>elf->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1596	1738	
==>me = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1596	1738	
==>me = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1596	1738	
==>me = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37746	37867	
==>, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37746	37867	
==>, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37746	37867	
==>, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15758	15863	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13008	13113	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15758	15863	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13008	13113	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15758	15863	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13008	13113	
==>lf, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6926	7010	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7593	7677	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6926	7010	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7593	7677	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6926	7010	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7593	7677	
==>ROLES
## ---------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6114	6242	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5466	5594	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10436	10564	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6114	6242	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5466	5594	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10436	10564	
==>);
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3447	3606	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6383	6542	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3447	3606	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6383	6542	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3447	3606	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6383	6542	
==>AGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2490	2719	
==>($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0 <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2490	2719	
==>($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4957	5065	
==>ern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4957	5065	
==>ern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4957	5065	
==>ern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2335	2429	
==>this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	578	760	
==>of PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	578	760	
==>of PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	578	760	
==>of PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10583	10759	
==>.
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit th <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6924	7100	
==>.
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7773	7949	
==>.
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	228	336	
==>$args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	228	336	
==>$args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	228	336	
==>$args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7662	7767	
==>----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7662	7767	
==>----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7662	7767	
==>----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which wo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2657	2779	
==>_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2657	2779	
==>_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2657	2779	
==>_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1356	1455	
==>unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1356	1455	
==>unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1356	1455	
==>unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17479	17622	
==>Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17479	17622	
==>Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17479	17622	
==>Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	583	680	
==>];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	583	680	
==>];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	583	680	
==>];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3750	3848	
==>depth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3750	3848	
==>depth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3750	3848	
==>depth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14640	14734	
==>sedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14640	14734	
==>sedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14640	14734	
==>sedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31705	31850	
==>t @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31705	31850	
==>t @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31705	31850	
==>t @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6574	6674	
==>rity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6574	6674	
==>rity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6574	6674	
==>rity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3166	3265	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6180	6279	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8248	8347	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3166	3265	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6180	6279	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8248	8347	
==>) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (St <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	81	179	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	342	440	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	81	179	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	342	440	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	81	179	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	342	440	
==>(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2273	2381	
==>n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2273	2381	
==>n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2273	2381	
==>n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	193	295	
==>e(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	193	295	
==>e(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	193	295	
==>e(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3028	3144	
==>$::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3028	3144	
==>$::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3028	3144	
==>$::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	728	829	
==>ROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	728	829	
==>ROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	728	829	
==>ROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11391	11484	
==>ited. This provides more predictable 
behavior to class consturction because it isolates the R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11391	11484	
==>ited. This provides more predictable 
behavior to class consturction because it isolates the R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11391	11484	
==>ited. This provides more predictable 
behavior to class consturction because it isolates the R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3345	3435	
==>e_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3345	3435	
==>e_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3345	3435	
==>e_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10778	10981	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8329	8532	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10778	10981	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8329	8532	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10778	10981	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8329	8532	
==>superclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2243	2380	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4570	4707	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2243	2380	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4570	4707	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2243	2380	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4570	4707	
==>hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must pr <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5006	5109	
==>}
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5006	5109	
==>}
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24587	24682	
==>EUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully lo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23351	23446	
==>EUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully lo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24587	24682	
==>EUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully lo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23351	23446	
==>EUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11266	11360	
==>lass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13651	13745	
==>ute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11266	11360	
==>lass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13651	13745	
==>ute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11266	11360	
==>lass BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13651	13745	
==>ute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4205	4338	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7141	7274	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4205	4338	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7141	7274	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4205	4338	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7141	7274	
==>side of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3280	3416	
==>y @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3280	3416	
==>y @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2905	3009	
==>ned $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2905	3009	
==>ned $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2905	3009	
==>ned $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $pa <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1603	1702	
==>egex engines.  Its structure follows the spec.  If for
#  instance, your engine cannot handle left r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2166	2315	
==>$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_excep <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2166	2315	
==>$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_excep <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2166	2315	
==>$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_excep <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3378	3473	
==>'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3378	3473	
==>'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3378	3473	
==>'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4412	4534	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7061	7183	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4639	4758	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11088	11207	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4639	4758	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11088	11207	
==>ture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	989	1119	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1077	1207	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	989	1119	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1077	1207	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	989	1119	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1077	1207	
==>unjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11727	11837	
==>delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11727	11837	
==>delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11727	11837	
==>delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3559	3650	
==>sts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3559	3650	
==>sts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3559	3650	
==>sts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7367	7519	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4926	5078	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7367	7519	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4926	5078	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7367	7519	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4926	5078	
==>h my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13945	14055	
==>' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init(' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13945	14055	
==>' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init(' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13945	14055	
==>' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13681	13784	
==>s.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13681	13784	
==>s.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13681	13784	
==>s.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4313	4476	
==>0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4854	5017	
==>0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5318	5481	
==>0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7030	7122	
==>nother_singleton_test_on_object',
   '... got the right return value from another Object sing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8017	8109	
==>nother_singleton_test_on_object',
   '... got the right return value from another Object sing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10586	10678	
==>nother_singleton_test_on_object',
   '... got the right return value from another Object sing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15103	15254	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19801	19952	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15103	15254	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19801	19952	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15103	15254	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19801	19952	
==>ould really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /D <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7077	7214	
==>rray.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@resu <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5578	5715	
==>rray.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@resu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1654	1777	
==>e this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_n <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2235	2358	
==>e this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_n <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1654	1777	
==>e this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_n <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2235	2358	
==>e this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5807	5947	
==>OF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5807	5947	
==>OF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5807	5947	
==>OF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	843	948	
==>opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1048	1153	
==>opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1104	1209	
==>opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1541	1649	
==>:Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1541	1649	
==>:Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1541	1649	
==>:Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2095	2201	
==>'-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2095	2201	
==>'-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2095	2201	
==>'-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3916	4022	
==>SIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3916	4022	
==>SIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3916	4022	
==>SIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8388	8493	
==>tr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8388	8493	
==>tr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8388	8493	
==>tr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17898	17992	
==>head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts t <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17898	17992	
==>head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts t <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21400	21481	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21710	21791	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44307	44388	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44617	44698	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2423	2539	
==>TH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7517	7633	
==>TH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2423	2539	
==>TH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7517	7633	
==>TH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( ' <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2897	2998	
==>GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir return <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2897	2998	
==>GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir return <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6766	6864	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5896	5994	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2550	2648	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2550	2648	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6766	6864	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5896	5994	
==>multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	289	418	
==>, $type) = @_;
    (defined $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name => $na <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2665	2779	
==>metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3129	3243	
==>metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	476	583	
==>ed to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	476	583	
==>ed to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	476	583	
==>ed to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2538	2650	
==>bstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2538	2650	
==>bstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2538	2650	
==>bstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	549	651	
==>) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	549	651	
==>) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	549	651	
==>) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11719	11854	
==>s" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11719	11854	
==>s" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11719	11854	
==>s" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	209	310	
==>ar ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	209	310	
==>ar ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	209	310	
==>ar ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4746	4872	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7395	7521	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4963	5086	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11412	11535	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4963	5086	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11412	11535	
==>( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{captur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6311	6415	
==>::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6311	6415	
==>::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6311	6415	
==>::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37165	37261	
==>C<product>.  In any situation where the heading of one source relation is a
full subset of anothe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41714	41810	
==>C<product>.  In any situation where the heading of one source relation is a
full subset of anothe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41337	41433	
==>C<product>.  In any situation where the heading of one source relation is a
full subset of anothe <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7753	7859	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6883	6989	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3469	3575	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3469	3575	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7753	7859	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6883	6989	
==>tative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1488	1593	
==>L2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1488	1593	
==>L2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1488	1593	
==>L2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1247	1345	
==>l; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1247	1345	
==>l; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1247	1345	
==>l; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0] <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9517	9619	
==>('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fa <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9575	9677	
==>('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21024	21116	
==>k")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19932	20024	
==>k")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21024	21116	
==>k")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whi <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19932	20024	
==>k")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whi <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9605	9742	
==>op);
        }
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1918	2016	
==>ode::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $cod <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1918	2016	
==>ode::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2369	2460	
==>el;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2369	2460	
==>el;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2369	2460	
==>el;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	512	635	
==>opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	528	651	
==>opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	504	627	
==>opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1150	1267	
==>alue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1150	1267	
==>alue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1150	1267	
==>alue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3969	4093	
==>sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5290	5414	
==>sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3969	4093	
==>sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5278	5402	
==>sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return co <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7266	7364	
==>rns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7266	7364	
==>rns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6567	6684	
==>.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate_m <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6567	6684	
==>.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate_m <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3223	3321	
==>PTION

This class represents a single span.

It is intended mostly for "internal" use by the Span c <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6526	6624	
==>PTION

This class represents a single span.

It is intended mostly for "internal" use by the Span c <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3223	3321	
==>PTION

This class represents a single span.

It is intended mostly for "internal" use by the Span c <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6526	6624	
==>PTION

This class represents a single span.

It is intended mostly for "internal" use by the Span c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6970	7087	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9940	10057	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6970	7087	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9940	10057	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6970	7087	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9940	10057	
==>$method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1670	1765	
==>lue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1670	1765	
==>lue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1670	1765	
==>lue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18606	18698	
==>x1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18606	18698	
==>x1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18606	18698	
==>x1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7179	7299	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4738	4858	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7179	7299	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4738	4858	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7179	7299	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4738	4858	
==>ap { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res if n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26028	26214	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28229	28415	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26028	26214	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28229	28415	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26028	26214	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28229	28415	
==>my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	885	995	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	973	1083	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	885	995	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	973	1083	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	885	995	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	973	1083	
==>s, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	5	115	
==>ignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	5	115	
==>ignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	5	115	
==>ignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	351	459	
==>)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = ble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	351	459	
==>)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = ble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	351	459	
==>)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25494	25629	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27689	27824	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25494	25629	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27689	27824	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25494	25629	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27689	27824	
==>samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7770	7864	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6900	6994	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3486	3580	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3486	3580	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7770	7864	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6900	6994	
==>so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1557	1697	
==>t.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1557	1697	
==>t.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1557	1697	
==>t.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5280	5395	
==>y.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8757	8872	
==>y.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7777	7892	
==>y.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9597	9715	
==>y $is_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args) {
	# In VMS prot <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1208	1306	
==>udepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1208	1306	
==>udepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1208	1306	
==>udepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testp <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40757	40849	
==>e::KeyedText would appreciate being informed any time you create a
modified version of Locale <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40757	40849	
==>e::KeyedText would appreciate being informed any time you create a
modified version of Locale <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9601	9720	
==>ding of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13078	13197	
==>ding of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12350	12469	
==>ding of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	868	979	
==>sts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	868	979	
==>sts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	868	979	
==>sts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // read <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3926	4025	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6905	7004	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8975	9074	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3926	4025	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6905	7004	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8975	9074	
==>ained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that mo <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19890	19986	
==>ards.

If you want something similar but that is more mutable, you can accomplish
that manually u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24442	24538	
==>ards.

If you want something similar but that is more mutable, you can accomplish
that manually u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22994	23090	
==>ards.

If you want something similar but that is more mutable, you can accomplish
that manually u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14140	14231	
==>re Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14140	14231	
==>re Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14140	14231	
==>re Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1470	1578	
==>EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('N <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1470	1578	
==>EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('N <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1470	1578	
==>EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6585	6691	
==>elf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6585	6691	
==>elf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6585	6691	
==>elf)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10828	11008	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10828	11008	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10828	11008	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1222	1321	
==>cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1222	1321	
==>cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1222	1321	
==>cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8533	8652	
==>r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12010	12129	
==>r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersectio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4615	4719	
==>name]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4615	4719	
==>name]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4615	4719	
==>name]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $se <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	601	697	
==>safe` or `is unsafe`.

For functions exported to the global `*` namespace, please use
the `is bui <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4173	4341	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4173	4341	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4173	4341	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6699	6853	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6699	6853	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6699	6853	
==>thod($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($b <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4898	5039	
==>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4898	5039	
==>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws no <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2052	2143	
==>articular, it suffers from
convergence problems for some functions, which all Newton methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1046	1134	
==>ude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1046	1134	
==>ude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1046	1134	
==>ude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatc <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1550	1657	
==>:$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year( <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1550	1657	
==>:$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3618	3724	
==>{
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (back <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3618	3724	
==>{
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (back <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4493	4597	
==>{
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (back <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4493	4597	
==>{
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (back <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1361	1462	
==>is the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses th <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1361	1462	
==>is the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses th <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33708	33802	
==>other!) returns Relation>

This method is a generic relational operator that takes a single Rel <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34476	34570	
==>other!) returns Relation>

This method is a generic relational operator that takes a single Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38258	38352	
==>other!) returns Relation>

This method is a generic relational operator that takes a single Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39026	39120	
==>other!) returns Relation>

This method is a generic relational operator that takes a single Rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12164	12365	
==>l6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12164	12365	
==>l6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12164	12365	
==>l6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39826	39922	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39826	39922	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39826	39922	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container:: <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5864	5971	
==>ly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($ev <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5864	5971	
==>ly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($ev <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7837	7937	
==>rn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7837	7937	
==>rn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_ <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1695	1792	
==>resented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forwar <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1695	1792	
==>resented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forwar <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	265	376	
==>' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Arra <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	265	376	
==>' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Arra <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9322	9430	
==>nt=$initrd_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  step
    descr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9848	9950	
==>n_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_li <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9848	9950	
==>n_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_li <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9848	9950	
==>n_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_li <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9301	9461	
==>t_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1421	1563	
==>t_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1421	1563	
==>t_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7834	7943	
==>c);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    retu <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7834	7943	
==>c);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    retu <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22491	22592	
==>t>?
}
rule LabelledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
rule ThrowSt <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2714	2839	
==>) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6904	7012	
==>person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6904	7012	
==>person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1820	1920	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1820	1920	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1820	1920	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29622	29730	
==>_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub ge <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29622	29730	
==>_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7724	7822	
==>less [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7724	7822	
==>less [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7724	7822	
==>less [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subro <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	426	522	
==>_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	770	921	
==>ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	770	921	
==>ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	770	921	
==>ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5403	5503	
==>confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addit <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5403	5503	
==>confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addit <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5993	6093	
==>confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addit <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8720	8886	
==>is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unles <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5080	5246	
==>is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unles <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5929	6095	
==>is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10652	10760	
==>erred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'H <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10652	10760	
==>erred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'H <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10652	10760	
==>erred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'H <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1782	1898	
==>allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc.)
    Str         Perl stri <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7217	7303	
==>---------------------------------------------------------
## traversal

method traverse <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7217	7303	
==>---------------------------------------------------------
## traversal

method traverse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12568	12681	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10119	10232	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12568	12681	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10119	10232	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12568	12681	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10119	10232	
==>ss);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4943	5051	
==>lX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4943	5051	
==>lX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4943	5051	
==>lX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4460	4558	
==>s the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to P <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4460	4558	
==>s the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4540	4638	
==>s the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to P <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4833	5007	
==>ct_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8310	8484	
==>ct_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size( <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1354	1467	
==>alue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4431	4535	
==>LTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB boo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4431	4535	
==>LTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB boo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4431	4535	
==>LTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB boo <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12041	12162	
==>hash->new()); 
                  }));
                $e->get('$class:')->send('bless' => (str->new(), $e->get('?%params') <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1557	1650	
==>Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4892	4981	
==>Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	579	668	
==>Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5032	5121	
==>Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	579	668	
==>Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11756	11857	
==>n items if they are already in the set, or inserts the items if
they're not in the set.

Returns the n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8903	9004	
==>n items if they are already in the set, or inserts the items if
they're not in the set.

Returns the n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11756	11857	
==>n items if they are already in the set, or inserts the items if
they're not in the set.

Returns the n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8903	9004	
==>n items if they are already in the set, or inserts the items if
they're not in the set.

Returns the n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36967	37059	
==>$translator.translate_message( $message );

=back

The Translator class also has these utilit <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36967	37059	
==>$translator.translate_message( $message );

=back

The Translator class also has these utilit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9651	9762	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12624	12735	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9651	9762	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12624	12735	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9651	9762	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12624	12735	
==>ilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20981	21239	
==>ram );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20981	21239	
==>ram );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20981	21239	
==>ram );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3522	3648	
==>- register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1880	2006	
==>- register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2660	2786	
==>- register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13244	13359	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10528	10643	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13244	13359	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10528	10643	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13244	13359	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10528	10643	
==>->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2899	3034	
==>ackup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2899	3034	
==>ackup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2899	3034	
==>ackup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
} <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2697	2808	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2697	2808	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR' <==
6	/Users/nnunley/pugs/util/package-osx.pl	3831	3928	
==>02.3pm
        /usr/local/man/man3/Perl6::Bible::A03.3pm
        /usr/local/man/man3/Perl6::Bible: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	357	504	
==>ative ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	357	504	
==>ative ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	357	504	
==>ative ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1628	1736	
==>pile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1628	1736	
==>pile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1628	1736	
==>pile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2118	2235	
==>ce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2118	2235	
==>ce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2118	2235	
==>ce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1099	1208	
==>onstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1099	1208	
==>onstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1099	1208	
==>onstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3390	3500	
==>die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3390	3500	
==>die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3390	3500	
==>die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3908	4007	
==>s_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3908	4007	
==>s_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3908	4007	
==>s_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15569	15713	
==>gs}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_tabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15569	15713	
==>gs}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_tabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15569	15713	
==>gs}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_tabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4861	4970	
==>e"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4861	4970	
==>e"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4861	4970	
==>e"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3355	3478	
==>to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello fr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3355	3478	
==>to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello fr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3355	3478	
==>to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello fr <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22589	22683	
==>user strings; Locale::KeyedText would also handle
this.

A program generates a Message that con <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22589	22683	
==>user strings; Locale::KeyedText would also handle
this.

A program generates a Message that con <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1803	1897	
==>s';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ENUM, 'Fal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	542	651	
==>$head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	542	651	
==>$head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	542	651	
==>$head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	650	745	
==>late pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	650	745	
==>late pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	650	745	
==>late pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continu <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	8084	8185	
==>-----------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth avai <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8084	8185	
==>-----------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth avai <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23824	23920	
==>he difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respon <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22597	22693	
==>he difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respon <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23824	23920	
==>he difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respon <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22597	22693	
==>he difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9555	9687	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12528	12660	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9555	9687	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12528	12660	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9555	9687	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12528	12660	
==>}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3417	3541	
==>build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3417	3541	
==>build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3417	3541	
==>build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11550	11660	
==>:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?: <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11550	11660	
==>:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?: <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12172	12257	
==>d class="num tests_ok"><span title="<tmpl_var name=ok> ok"><tmpl_var name=ok></span>,< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26173	26366	
==>) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26173	26366	
==>) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26173	26366	
==>) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5355	5452	
==>'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5355	5452	
==>'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5355	5452	
==>'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3990	4120	
==>_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3990	4120	
==>_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3990	4120	
==>_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6272	6375	
==>@ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6272	6375	
==>@ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6272	6375	
==>@ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3471	4038	
==>::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages use <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14207	14303	
==>s and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

Thi <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14265	14361	
==>s and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

Thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17181	17270	
==>te_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17181	17270	
==>te_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17181	17270	
==>te_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2012	2125	
==>me_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2012	2125	
==>me_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2012	2125	
==>me_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22471	22573	
==>IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22471	22573	
==>IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22471	22573	
==>IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13392	13491	
==>};
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13392	13491	
==>};
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13392	13491	
==>};
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2746	2872	
==>ODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2746	2872	
==>ODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2746	2872	
==>ODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->su <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13587	13700	
==>urce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17064	17177	
==>urce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16426	16539	
==>urce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standa <==
6	/Users/nnunley/pugs/examples/hop6/Parser.pm	1139	1271	
==>ad($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[ <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	9375	9504	
==>-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp" <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9375	9504	
==>-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp" <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2950	3063	
==>le')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2950	3063	
==>le')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4474	4587	
==>le')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9339	9467	
==>ature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9339	9467	
==>ature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9339	9467	
==>ature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5011	5117	
==>urn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5011	5117	
==>urn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5011	5117	
==>urn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(un <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7759	7867	
==>lee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7759	7867	
==>lee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24681	24777	
==>logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23445	23541	
==>logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24681	24777	
==>logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23445	23541	
==>logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7598	7822	
==>hod_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7598	7822	
==>hod_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7598	7822	
==>hod_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	90	196	
==>n Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	90	196	
==>n Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	90	196	
==>n Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7389	7564	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4948	5123	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7389	7564	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4948	5123	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7389	7564	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4948	5123	
==>qs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11129	11243	
==>s_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11129	11243	
==>s_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11129	11243	
==>s_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7093	7196	
==>E_TERNARY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  push @opera <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2541	2637	
==>}
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () ret <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2541	2637	
==>}
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	20	130	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	20	130	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	20	130	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11449	11635	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9002	9188	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11449	11635	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9002	9188	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11449	11635	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9002	9188	
==>rent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now g <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6354	6481	
==>> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pLValue"> <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1246	1357	
==>IL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4396	4505	
==>IL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4396	4505	
==>IL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2611	2709	
==>s at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
ex <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2611	2709	
==>s at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4274	4388	
==>ke_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4274	4388	
==>ke_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4274	4388	
==>ke_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2140	2239	
==>_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2140	2239	
==>_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2140	2239	
==>_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $file <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4720	4840	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7369	7489	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4938	5055	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11387	11504	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4938	5055	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11387	11504	
==>ring";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13204	13338	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14939	15073	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13204	13338	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14939	15073	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13204	13338	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14939	15073	
==>pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21366	21555	
==>eturn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21366	21555	
==>eturn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21366	21555	
==>eturn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30343	30464	
==>@tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30343	30464	
==>@tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30343	30464	
==>@tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3827	3923	
==>$self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3827	3923	
==>$self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3827	3923	
==>$self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	314	405	
==>}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	314	405	
==>}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	314	405	
==>}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3523	3662	
==>estpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3523	3662	
==>estpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3523	3662	
==>estpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5782	5888	
==>es;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # X <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5782	5888	
==>es;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # X <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5782	5888	
==>es;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # X <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6216	6318	
==><UnicodeEscapeSequence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode categori <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2437	2534	
==>/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2632	2729	
==>:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:« <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2437	2534	
==>/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2632	2729	
==>:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:« <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2632	2729	
==>:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:« <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1293	1407	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2856	2970	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1293	1407	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2856	2970	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1293	1407	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2856	2970	
==>unctions
    # This is a set of global functions
    # which implement certain global 
    # characteristics of the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5507	5632	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3627	3752	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5507	5632	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3627	3752	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5507	5632	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3627	3752	
==>n an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13390	13542	
==>string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3547	3683	
==>string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3547	3683	
==>string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3547	3683	
==>string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1937	2044	
==>.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Co <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1937	2044	
==>.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36995	37110	
==>ic context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36995	37110	
==>ic context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36995	37110	
==>ic context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2083	2184	
==>(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2083	2184	
==>(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2083	2184	
==>(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20182	20321	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17321	17460	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20182	20321	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17321	17460	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20182	20321	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17321	17460	
==>ue);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4534	4714	
==>xt eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4534	4714	
==>xt eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4534	4714	
==>xt eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_so <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7759	7878	
==>JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7759	7878	
==>JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7759	7878	
==>JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13122	13264	
==>s} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13122	13264	
==>s} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13122	13264	
==>s} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5131	5262	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5131	5262	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5131	5262	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2250	2473	
==>e::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2310	2533	
==>e::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1018	1185	
==>e::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1450	1617	
==>e::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1018	1185	
==>e::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1450	1617	
==>e::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	10782	10880	
==>Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str : <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10840	10938	
==>Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	740	836	
==>no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	740	836	
==>no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	740	836	
==>no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	2778	2872	
==>test
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5272	5396	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8242	8366	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5272	5396	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8242	8366	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5272	5396	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8242	8366	
==>e a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimizatio <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3240	3346	
==>ase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ours <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3240	3346	
==>ase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ours <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18313	18408	
==>el and other Perl code such as persistence
solutions.  Moreover, these data structures are in ex <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18313	18408	
==>el and other Perl code such as persistence
solutions.  Moreover, these data structures are in ex <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13218	13312	
==>el and other Perl code such as persistence solutions.
Moreover, these data structures are in ex <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13218	13312	
==>el and other Perl code such as persistence solutions.
Moreover, these data structures are in ex <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5212	5326	
==>:Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6480	6594	
==>:Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5212	5326	
==>:Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6468	6582	
==>:Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    re <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14625	14721	
==>s} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_sta <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2106	2202	
==>s} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_sta <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35923	36034	
==>s
and corresponding common tuple values are aligned and merged.  The heading
of the new relation is the union of <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37666	37777	
==>s and corresponding common tuple values
are aligned and merged.  The heading of the new relation is the union of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40473	40584	
==>s
and corresponding common tuple values are aligned and merged.  The heading
of the new relation is the union of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42215	42326	
==>s and corresponding common tuple values
are aligned and merged.  The heading of the new relation is the union of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40087	40198	
==>s
and corresponding common tuple values are aligned and merged.  The heading
of the new relation is the union of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41865	41976	
==>s and corresponding common tuple values
are aligned and merged.  The heading of the new relation is the union of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12882	12990	
==>on);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12882	12990	
==>on);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12882	12990	
==>on);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12424	12531	
==>ndefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12424	12531	
==>ndefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12424	12531	
==>ndefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10324	10428	
==>-----------------------------------------    
    method resolve () { "<implemented>" }

    # ---------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10347	10451	
==>------------------    
    method resolve () { "<implemented>" }

    # --------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10324	10428	
==>-----------------------------------------    
    method resolve () { "<implemented>" }

    # ---------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10347	10451	
==>------------------    
    method resolve () { "<implemented>" }

    # --------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10324	10428	
==>-----------------------------------------    
    method resolve () { "<implemented>" }

    # ---------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10347	10451	
==>------------------    
    method resolve () { "<implemented>" }

    # --------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	635	750	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	723	838	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	635	750	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	723	838	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	635	750	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	723	838	
==>runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8665	8818	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11638	11791	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8665	8818	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11638	11791	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8665	8818	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11638	11791	
==>forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	473	578	
==>ile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	473	578	
==>ile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	473	578	
==>ile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17410	17511	
==>_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17410	17511	
==>_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17410	17511	
==>_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	938	1097	
==>());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	938	1097	
==>());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	938	1097	
==>());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	767	881	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	972	1086	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1028	1142	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8745	8894	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6298	6447	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8745	8894	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6298	6447	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8745	8894	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6298	6447	
==>MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13454	13572	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10738	10856	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13454	13572	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10738	10856	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13454	13572	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10738	10856	
==>{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1560	1804	
==>rn 1 if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1223	1371	
==>: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_w <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1223	1371	
==>: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10975	11076	
==>UGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Tes <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10975	11076	
==>UGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Tes <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10975	11076	
==>UGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	835	961	
==>rtList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	835	961	
==>rtList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	835	961	
==>rtList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1299	1410	
==>{ $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, % <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	822	916	
==>d on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>) <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	822	916	
==>d on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9747	9873	
==>=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9747	9873	
==>=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9747	9873	
==>=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5117	5239	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descrip <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5117	5239	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descrip <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5117	5239	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descrip <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12566	12722	
==>) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7846	7979	
==>->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7846	7979	
==>->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7846	7979	
==>->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2535	2635	
==>tate.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and tha <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2535	2635	
==>tate.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and tha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5078	5193	
==>e_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5078	5193	
==>e_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5078	5193	
==>e_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @t <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24093	24189	
==>und_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground_li <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20130	20223	
==>ed greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24682	24775	
==>ed greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18874	19021	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16112	16259	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18874	19021	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16112	16259	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18874	19021	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16112	16259	
==>el};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD here can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6787	6896	
==>CKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6787	6896	
==>CKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6787	6896	
==>CKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1391	1491	
==>param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$d <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1391	1491	
==>param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$d <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1600	1700	
==>param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4466	4596	
==>y == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4466	4596	
==>y == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4466	4596	
==>y == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	49	157	
==>use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	49	157	
==>use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	49	157	
==>use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19455	19569	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16687	16801	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19455	19569	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16687	16801	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19455	19569	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16687	16801	
==>t (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2409	2511	
==>e";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelude <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2409	2511	
==>e";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelude <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2409	2511	
==>e";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelude <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7364	7454	
==>f->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7364	7454	
==>f->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7364	7454	
==>f->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1268	1397	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2831	2960	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1268	1397	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2831	2960	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1268	1397	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2831	2960	
==>}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # characterist <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17309	17442	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23275	23408	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17588	17721	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23554	23687	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1823	1925	
==>dy hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) { <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1823	1925	
==>dy hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2681	2787	
==>AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2681	2787	
==>AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2681	2787	
==>AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	333	438	
==>rgs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	333	438	
==>rgs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	333	438	
==>rgs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1825	1928	
==>rgs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1825	1928	
==>rgs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1825	1928	
==>rgs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13225	13322	
==>bel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13225	13322	
==>bel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13225	13322	
==>bel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3955	4132	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6482	6659	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3955	4132	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6482	6659	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3955	4132	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6482	6659	
==>{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7804	7908	
==>el - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7804	7908	
==>el - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7804	7908	
==>el - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	168	271	
==>ict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	168	271	
==>ict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	168	271	
==>ict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1969	2083	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1969	2083	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1969	2083	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13793	13888	
==>($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13793	13888	
==>($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13793	13888	
==>($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8417	8520	
==>$.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submetho <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	453	547	
==>t" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"for <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	414	508	
==>t" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"for <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	414	508	
==>t" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"for <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	617	710	
==>$.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submetho <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	617	710	
==>$.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8338	8455	
==>array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8338	8455	
==>array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8338	8455	
==>array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1560	1668	
==>y->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1560	1668	
==>y->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1560	1668	
==>y->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_ <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	1287	1394	
==>colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1287	1394	
==>colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	832	929	
==>e( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	832	929	
==>e( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	912	1009	
==>e( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4355	4447	
==>push @{ $self->{values}{no_index}{$type} }, @_ if $type;
    return $self->{values}{no_index} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16074	16221	
==>return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16074	16221	
==>return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16074	16221	
==>return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16088	16191	
==>) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16088	16191	
==>) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16088	16191	
==>) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval ' <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1889	2296	
==>e::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12779	12945	
==>in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12773	12939	
==>in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13315	13447	
==>->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9501	9633	
==>->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10337	10469	
==>->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fi <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3148	3269	
==>is($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        r <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3694	3815	
==>is($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3811	3905	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4144	4238	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3811	3905	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4144	4238	
==>rl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8416	8512	
==>HUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1841	1937	
==>, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8416	8512	
==>HUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1841	1937	
==>, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1841	1937	
==>, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8416	8512	
==>HUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNA <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8205	8302	
==>other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11682	11779	
==>other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersec <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10864	10961	
==>other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6187	6280	
==>se().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6187	6280	
==>se().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6187	6280	
==>se().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3892	4051	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6828	6987	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3892	4051	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6828	6987	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3892	4051	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6828	6987	
==>or Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wra <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18434	18538	
==>ut the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it int <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18434	18538	
==>ut the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18621	18741	
==>we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18621	18741	
==>we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18621	18741	
==>we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	215	325	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	210	320	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	215	325	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	210	320	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	215	325	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	210	320	
==>== 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1128	1245	
==>umper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1128	1245	
==>umper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1128	1245	
==>umper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3861	3950	
==>---------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3861	3950	
==>---------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3861	3950	
==>---------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.pe <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2943	3046	
==>. 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2943	3046	
==>. 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5958	6060	
==>.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8026	8128	
==>.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5958	6060	
==>.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8026	8128	
==>.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25086	25251	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27275	27440	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25086	25251	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27275	27440	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25086	25251	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27275	27440	
==>or ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16374	16474	
==>}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gath <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16374	16474	
==>}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gath <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16374	16474	
==>}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gath <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1453	1536	
==>ute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1453	1536	
==>ute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1453	1536	
==>ute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	183	302	
==>var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pair <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	183	302	
==>var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pair <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	183	302	
==>var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pair <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7018	7128	
==>'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3622	3732	
==>'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4471	4581	
==>'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3383	3487	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11941	12045	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6508	6612	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3383	3487	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11941	12045	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6508	6612	
==>METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	906	1022	
==>'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TOD <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	906	1022	
==>'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TOD <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	906	1022	
==>'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TOD <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15539	15649	
==>ub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16954	17064	
==>ub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21710	21820	
==>ub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6848	6970	
==>end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6848	6970	
==>end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6848	6970	
==>end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30958	31054	
==>tes

All objects share the following attributes (accessible via
C<< $obj->{...} >>):

=over 4

=i <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11216	11309	
==>) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_dec <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11216	11309	
==>) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_dec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9488	9598	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7035	7145	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9488	9598	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7035	7145	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9488	9598	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7035	7145	
==>_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14103	14220	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11375	11492	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14103	14220	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11375	11492	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14103	14220	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11375	11492	
==>bel;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1702	1826	
==>od::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1702	1826	
==>od::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1702	1826	
==>od::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7031	7134	
==>crement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7031	7134	
==>crement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7031	7134	
==>crement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+ <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1577	1700	
==>y $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Co <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1544	1667	
==>y $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Co <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6098	6211	
==>match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return joi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6110	6223	
==>match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return joi <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2563	2675	
==>ontainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $mu <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2563	2675	
==>ontainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $mu <==
6	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	37	154	
==>et up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

ru <==
6	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	37	154	
==>et up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

ru <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2912	3014	
==>ftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pub <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3069	3171	
==>ftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pub <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2912	3014	
==>ftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pub <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3069	3171	
==>ftware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Pub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5596	5723	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8880	9007	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5596	5723	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8880	9007	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5596	5723	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8880	9007	
==>y $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1258	1407	
==>nd       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.en <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4497	4646	
==>nd       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.en <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1258	1407	
==>nd       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.en <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4497	4646	
==>nd       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.en <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3584	3693	
==>^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\. <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3584	3693	
==>^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1788	1915	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	900	1027	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1788	1915	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	900	1027	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1788	1915	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	900	1027	
==>BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5846	5997	
==>\$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5846	5997	
==>\$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5846	5997	
==>\$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5615	5714	
==>t::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overr <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5615	5714	
==>t::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7812	7911	
==>t::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5793	5898	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3913	4018	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5793	5898	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3913	4018	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5793	5898	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3913	4018	
==>is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses <==
6	/Users/nnunley/pugs/util/addauthors.pl	1582	1699	
==>{
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpani <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17071	17171	
==>.};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17071	17171	
==>.};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17071	17171	
==>.};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17418	17511	
==>Compile controls the compilation process, calling each compiler
at the right time with the rig <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17418	17511	
==>Compile controls the compilation process, calling each compiler
at the right time with the rig <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4931	5064	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7580	7713	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5143	5269	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11592	11718	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5143	5269	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11592	11718	
==>h;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5937	6043	
==>method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5937	6043	
==>method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5937	6043	
==>method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16217	16317	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16217	16317	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16217	16317	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\ <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15891	15991	
==>compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symb <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2284	2384	
==>compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symb <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23675	23764	
==>lways> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22448	22537	
==>lways> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23675	23764	
==>lways> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22448	22537	
==>lways> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10592	10712	
==>: @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10592	10712	
==>: @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10592	10712	
==>: @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8471	8586	
==>OM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8471	8586	
==>OM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8471	8586	
==>OM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10787	10915	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15328	15456	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10787	10915	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15328	15456	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10787	10915	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15328	15456	
==>rivate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	744	855	
==>like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The othe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	744	855	
==>like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The othe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	744	855	
==>like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The othe <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	5950	6044	
==>infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1626	1717	
==>d1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1626	1717	
==>d1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8107	8253	
==>uce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($ne <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8107	8253	
==>uce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($ne <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6628	6739	
==>ethod reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            . <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6628	6739	
==>ethod reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            . <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	254	342	
==>|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	254	342	
==>|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3322	3483	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6258	6419	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3322	3483	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6258	6419	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3322	3483	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6258	6419	
==>unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub-> <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6903	7009	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6033	6139	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2687	2793	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2687	2793	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6903	7009	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6033	6139	
==>s Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1165	1263	
==>ccess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1391	1489	
==>ing(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1391	1489	
==>ing(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1391	1489	
==>ing(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1165	1263	
==>ccess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1165	1263	
==>ccess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1453	1580	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3016	3143	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1453	1580	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3016	3143	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1453	1580	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3016	3143	
==>ELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14010	14151	
==>from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14010	14151	
==>from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14010	14151	
==>from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	863	967	
==>rimitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	863	967	
==>rimitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	863	967	
==>rimitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5553	5668	
==>e>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6821	6936	
==>e>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5553	5668	
==>e>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6809	6924	
==>e>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]-> <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35776	35868	
==>> argument, where <$other> has the same heading as
the invocant Relation::Example, and return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37808	37900	
==>> argument, where <$other> has the same heading as the
invocant Relation::Example, and return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4134	4257	
==>in " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nativ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4134	4257	
==>in " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nativ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4134	4257	
==>in " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nativ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1329	1452	
==>pe'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1329	1452	
==>pe'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1329	1452	
==>pe'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TOD <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9591	9703	
==>e "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13068	13180	
==>e "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12340	12452	
==>e "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9452	9589	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12425	12562	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9452	9589	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12425	12562	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9452	9589	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12425	12562	
==>SA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7010	7129	
==>TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "n <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14428	14547	
==>L(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7010	7129	
==>TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7010	7129	
==>TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "n <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	768	865	
==>error message if attempting to flatten() an infinite list 
# TODO - does zip() has additional para <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	768	865	
==>error message if attempting to flatten() an infinite list 
# TODO - does zip() has additional para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19334	19458	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4814	4938	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19334	19458	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4814	4938	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19334	19458	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4814	4938	
==>:make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4212	4316	
==>de, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4212	4316	
==>de, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4212	4316	
==>de, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7586	7684	
==>r($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7586	7684	
==>r($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7586	7684	
==>r($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5427	5530	
==>iq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5427	5530	
==>iq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5427	5530	
==>iq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4116	4212	
==>ethod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4116	4212	
==>ethod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4116	4212	
==>ethod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	851	994	
==>->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	851	994	
==>->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	851	994	
==>->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6997	7117	
==>" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3601	3721	
==>" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4450	4570	
==>" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	500	611	
==>n $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	500	611	
==>n $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	500	611	
==>n $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # a <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5112	5223	
==>arent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the remove <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5112	5223	
==>arent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the remove <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7854	7955	
==>("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!ch <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7854	7955	
==>("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!ch <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38062	38151	
==>_key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text! <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38062	38151	
==>_key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13277	13395	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18160	18278	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13277	13395	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18160	18278	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13277	13395	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18160	18278	
==>s mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5762	6026	
==>{
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    ) <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5762	6026	
==>{
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    ) <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3123	3385	
==>{
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    ) <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3123	3385	
==>{
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    ) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3908	4002	
==>turns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Arra <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3908	4002	
==>turns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13681	13804	
==>$key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13681	13804	
==>$key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13681	13804	
==>$key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1695	1808	
==>@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1695	1808	
==>@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::Me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1695	1808	
==>@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::Me <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7052	7159	
==>term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3656	3763	
==>term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4505	4612	
==>term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17345	17436	
==>MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17345	17436	
==>MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17345	17436	
==>MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2390	2497	
==>Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$mult <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2390	2497	
==>Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1523	1626	
==>ice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mean <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1523	1626	
==>ice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mean <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1523	1626	
==>ice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mean <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5718	5839	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3838	3959	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5718	5839	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3838	3959	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5718	5839	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3838	3959	
==>none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allow <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5424	5591	
==>'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5424	5591	
==>'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5424	5591	
==>'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29057	29156	
==>:Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29057	29156	
==>:Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29057	29156	
==>:Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9578	9709	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12551	12682	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9578	9709	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12551	12682	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9578	9709	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12551	12682	
==>cher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the cur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	296	398	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	620	722	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	296	398	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	620	722	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	296	398	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	620	722	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	861	975	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	861	975	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	861	975	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2988	3180	
==>re, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $se <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2988	3180	
==>re, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13339	13468	
==>0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13339	13468	
==>0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13339	13468	
==>0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2224	2353	
==>0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12652	12830	
==>ource =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_h <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12652	12830	
==>ource =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_h <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6943	7070	
==>[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11947	12074	
==>[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6943	7070	
==>[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11941	12068	
==>[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15872	15976	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20589	20693	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15872	15976	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20589	20693	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15872	15976	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20589	20693	
==>uld start our own multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18728	18862	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15966	16100	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18728	18862	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15966	16100	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18728	18862	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15966	16100	
==>e... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1283	1476	
==>setHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1283	1476	
==>setHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1283	1476	
==>setHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	410	515	
==>odule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	410	515	
==>odule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	410	515	
==>odule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10469	10636	
==>slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10469	10636	
==>slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10469	10636	
==>slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp <==
6	/Users/nnunley/pugs/util/claim_drift.pl	1132	1265	
==>f{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $orig or die "symlin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35528	35619	
==><cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40078	40169	
==><cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is t <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17998	18100	
==>ressionNoIn>
}
rule LogicalORExpression :words {  # see 11.11
      <LogicalANDExpression>
    | <Logic <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18193	18288	
==>ned words for the user, such as
'error opening file', programs would have a harder time figuring <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18193	18288	
==>ned words for the user, such as
'error opening file', programs would have a harder time figuring <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5153	5246	
==>ription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5153	5246	
==>ription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6677	6770	
==>ription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1116	1251	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1343	1478	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1116	1251	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1343	1478	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1116	1251	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1343	1478	
==>k ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say " <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	3558	3706	
==>ldren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# in <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3558	3706	
==>ldren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1282	1372	
==>- create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $m <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2087	2177	
==>is "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/came <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1282	1372	
==>- create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1282	1372	
==>- create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12504	12613	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14386	14495	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12504	12613	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14386	14495	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12504	12613	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14386	14495	
==>return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	38	141	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	34	137	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	42	145	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	36	139	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	35	138	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	36	139	
==>se strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operator;
use base qw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2943	3079	
==>} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2943	3079	
==>} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2943	3079	
==>} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1770	1904	
==>>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1770	1904	
==>>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1770	1904	
==>>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	648	773	
==>es = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	648	773	
==>es = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	648	773	
==>es = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	265	378	
==>=> 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	265	378	
==>=> 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	265	378	
==>=> 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12093	12280	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12865	13052	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12093	12280	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12865	13052	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12093	12280	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12865	13052	
==>es = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                els <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1187	1305	
==>ity => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

m <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1187	1305	
==>ity => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13300	13402	
==>ass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13300	13402	
==>ass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13300	13402	
==>ass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Val <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	62	156	
==>use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32892	32986	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33347	33441	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37442	37536	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37897	37991	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36777	36871	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37277	37371	
==>od is a generic binary relational operator that is like
C<union> except that the returned Relat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2979	3107	
==>nal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3259	3380	
==>nal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9677	9798	
==>nal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3259	3380	
==>nal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9677	9798	
==>nal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	2502	2621	
==>rt.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is unsafe {
        eval(slurp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12843	12995	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12843	12995	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12843	12995	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || co <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35054	35150	
==>on> if the two source headings are
identical.  This method has an alias named C<matching>.

=item <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39604	39700	
==>on> if the two source headings are
identical.  This method has an alias named C<matching>.

=item <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39146	39242	
==>on> if the two source headings are
identical.  This method has an alias named C<matching>.

=item <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1318	1416	
==>ted_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1376	1474	
==>ted_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2747	2832	
==>in(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6199	6284	
==>in(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2747	2832	
==>in(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2747	2832	
==>in(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7101	7231	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10071	10201	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7101	7231	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10071	10201	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7101	7231	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10071	10201	
==>s
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17396	17494	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22104	22202	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17396	17494	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22104	22202	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17396	17494	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22104	22202	
==>D__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30202	30348	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31931	32077	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30202	30348	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31931	32077	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30202	30348	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31931	32077	
==>p = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4283	4397	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7219	7333	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4283	4397	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7219	7333	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4283	4397	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7219	7333	
==>ub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1031	1130	
==>s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1031	1130	
==>s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1031	1130	
==>s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1318	1415	
==>RS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1318	1415	
==>RS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1318	1415	
==>RS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5885	6004	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8855	8974	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5885	6004	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8855	8974	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5885	6004	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8855	8974	
==>'Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40579	40790	
==>('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_met <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3780	3970	
==>unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @. <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3780	3970	
==>unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5480	5580	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # blo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5480	5580	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # blo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5480	5580	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # blo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1309	1516	
==>id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1309	1516	
==>id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1309	1516	
==>id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13869	14000	
==>},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13869	14000	
==>},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13869	14000	
==>},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14882	15038	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14882	15038	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14882	15038	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19581	19736	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19581	19736	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19581	19736	
==>$AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8286	8395	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8286	8395	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8286	8395	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12396	12495	
==>my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12396	12495	
==>my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12396	12495	
==>my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($x <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5215	5329	
==>tch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6483	6597	
==>tch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5215	5329	
==>tch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6471	6585	
==>tch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retur <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1507	1609	
==>UILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i> <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1507	1609	
==>UILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	94	203	
==>@_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed becau <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	94	203	
==>@_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed becau <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	94	203	
==>@_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed becau <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1731	1839	
==>>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1731	1839	
==>>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1731	1839	
==>>as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8154	8300	
==>t, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = mat <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4514	4660	
==>t, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5363	5509	
==>t, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6612	6726	
==>tring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax er <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6612	6726	
==>tring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax er <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6612	6726	
==>tring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax er <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5469	5596	
==>y $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5469	5596	
==>y $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5469	5596	
==>y $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5740	5851	
==>/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5740	5851	
==>/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5740	5851	
==>/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10683	10823	
==>ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10683	10823	
==>ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10683	10823	
==>ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21410	21505	
==>e has a name that is distinct from the other
attributes, though several attributes may store val <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25962	26057	
==>e has a name that is distinct from the other
attributes, though several attributes may store val <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24595	24690	
==>e has a name that is distinct from the other
attributes, though several attributes may store val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16056	16197	
==>code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16056	16197	
==>code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16056	16197	
==>code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2668	2774	
==>d_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 S <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2668	2774	
==>d_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2748	2854	
==>d_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13110	13260	
==>l6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13110	13260	
==>l6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13110	13260	
==>l6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9794	9930	
==>e substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6135	6271	
==>e substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6984	7120	
==>e substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8606	8749	
==>$listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8606	8749	
==>$listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8606	8749	
==>$listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2692	2789	
==>{ subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for pe <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2692	2789	
==>{ subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for pe <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3039	3136	
==>{ subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15713	15864	
==>{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15713	15864	
==>{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15713	15864	
==>{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20434	20581	
==>{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20434	20581	
==>{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20434	20581	
==>{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12867	12979	
==>blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12867	12979	
==>blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12867	12979	
==>blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4187	4282	
==>ected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Co <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4187	4282	
==>ected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Co <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4267	4362	
==>ected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9929	10036	
==>$@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9929	10036	
==>$@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9929	10036	
==>$@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6( <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7337	7435	
==>rthunk = $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	979	1073	
==>arch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+ <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	979	1073	
==>arch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5961	6115	
==>tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5961	6115	
==>tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5961	6115	
==>tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2658	2760	
==>}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2658	2760	
==>}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2658	2760	
==>}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8886	9006	
==>t => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new() <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1042	1154	
==>t => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new() <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1042	1154	
==>t => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1959	2050	
==>owsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1959	2050	
==>owsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1959	2050	
==>owsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	999	1139	
==>\$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1459	1550	
==>e been "selected", either by giving 
them to the unexported C<Log::Selective::select> functi <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1459	1550	
==>e been "selected", either by giving 
them to the unexported C<Log::Selective::select> functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	987	1069	
==>n_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	987	1069	
==>n_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	987	1069	
==>n_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6110	6217	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9080	9187	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6110	6217	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9080	9187	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6110	6217	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9080	9187	
==>od stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubM <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6531	6674	
==>ental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6321	6458	
==>ental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13547	13644	
==>_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13547	13644	
==>_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13547	13644	
==>_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pref <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	27573	27666	
==>his if you don't want harness to
output more frequent progress messages using carriage returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	167	267	
==>$self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	167	267	
==>$self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	167	267	
==>$self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	235	327	
==>lass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	235	327	
==>lass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	235	327	
==>lass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11285	11433	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8838	8986	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11285	11433	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8838	8986	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11285	11433	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8838	8986	
==>rent value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13975	14129	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13975	14129	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13975	14129	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6237	6391	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4739	4893	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2683	2837	
==>];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16808	16957	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&blo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17087	17236	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&blo <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6839	6927	
==>od::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4191	4279	
==>od::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6839	6927	
==>od::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4191	4279	
==>od::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1914	2029	
==>[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# S <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1914	2029	
==>[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# S <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	357	471	
==>PKGS ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables:
# c- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1645	1749	
==>' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1645	1749	
==>' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1645	1749	
==>' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
} <==
6	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1102	1233	
==>duration = duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9..17]);
        }
    }
    elsi <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4602	4700	
==>rameter is for the skip and TODO tests and should contain
a string describing why the test is a ski <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4602	4700	
==>rameter is for the skip and TODO tests and should contain
a string describing why the test is a ski <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6799	6897	
==>rameter is for the skip and TODO tests and should contain
a string describing why the test is a ski <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	10193	10290	
==>UNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply th <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10251	10348	
==>UNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	652	799	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	740	887	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	652	799	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	740	887	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	652	799	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	740	887	
==>_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5008	5164	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5969	6125	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5008	5164	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5969	6125	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5008	5164	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5969	6125	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2071	2200	
==>er {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2071	2200	
==>er {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2071	2200	
==>er {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5790	5883	
==>s the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5790	5883	
==>s the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7314	7407	
==>s the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8582	8769	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6135	6322	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8582	8769	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6135	6322	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8582	8769	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6135	6322	
==>@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5512	5627	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8482	8597	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5512	5627	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8482	8597	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5512	5627	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8482	8597	
==>odes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. Th <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1444	1557	
==>r die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{ <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1444	1557	
==>r die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{ <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2898	3010	
==>r die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	189	293	
==>_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	189	293	
==>_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	189	293	
==>_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6074	6174	
==>the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance wit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6074	6174	
==>the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance wit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6074	6174	
==>the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11868	11957	
==>(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11868	11957	
==>(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11868	11957	
==>(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4436	4727	
==>our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12661	12787	
==>the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12661	12787	
==>the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4394	4506	
==>= PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4394	4506	
==>= PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4394	4506	
==>= PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11688	11818	
==>debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2171	2298	
==>debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8943	9070	
==>debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2171	2298	
==>debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8943	9070	
==>debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]- <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17929	18012	
==>n(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10986	11123	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10986	11123	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10986	11123	
==>DE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1998	2092	
==>ding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1998	2092	
==>ding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1998	2092	
==>ding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5112	5259	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5112	5259	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5112	5259	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	14963	15109	
==>my $end   = $beg->right;
            
            if (!defined $end) {
              $beg->tag('div');
              $beg->attr('class', 'empty_hea <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12494	12593	
==>spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as bea <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12494	12593	
==>spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as bea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3121	3250	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5922	6051	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3121	3250	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5922	6051	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3121	3250	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5922	6051	
==>es

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6712	6842	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7473	7603	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8343	8473	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10189	10319	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10950	11080	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11820	11950	
==>n {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14285	14408	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11551	11674	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14285	14408	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11551	11674	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14285	14408	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11551	11674	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$tab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19968	20079	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17107	17218	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19968	20079	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17107	17218	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19968	20079	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17107	17218	
==>tore instance attributes with the meta model, 
        # class attributes are just package scoped "our" variable <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1184	1285	
==>s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1184	1285	
==>s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1184	1285	
==>s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2316	2411	
==>to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2316	2411	
==>to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2316	2411	
==>to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5559	5664	
==>('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5559	5664	
==>('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5559	5664	
==>('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root: <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13721	13823	
==>der using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::In <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	778	880	
==>ould make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GRO <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13721	13823	
==>der using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::In <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17624	17805	
==>(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14045	14226	
==>(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3646	3763	
==>s->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3646	3763	
==>s->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3646	3763	
==>s->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	166	268	
==>sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::TypeSafe::Flatte <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	358	588	
==>.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	358	588	
==>.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	358	588	
==>.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9848	9993	
==>ption,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1927	2054	
==>ption,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1927	2054	
==>ption,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6756	6882	
==>e} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6756	6882	
==>e} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6756	6882	
==>e} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2509	2624	
==>s[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2509	2624	
==>s[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2509	2624	
==>s[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully q <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3366	3622	
==>step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) { <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3366	3622	
==>step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6205	6369	
==>step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6205	6369	
==>step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6205	6369	
==>step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14176	14302	
==>) is pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2575	2681	
==>methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2575	2681	
==>methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2575	2681	
==>methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cla <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31166	31262	
==>ional operator that returns a new Relation
which has a subset of the original's tuples, and it wo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35716	35812	
==>ional operator that returns a new Relation
which has a subset of the original's tuples, and it wo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1280	1376	
==>->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compi <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17091	17217	
==>= $P0(exp)
    unless exp goto end
    $S0 = exp
    if $S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1851	1945	
==>error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1851	1945	
==>error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1851	1945	
==>error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMess <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8307	8400	
==>ub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Gr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2132	2225	
==>ub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Gr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9502	9654	
==>ommit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impleme <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15046	15198	
==>ommit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impleme <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9502	9654	
==>ommit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impleme <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15040	15192	
==>ommit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not impleme <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	972	1053	
==>h ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	972	1053	
==>h ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	504	645	
==>e ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	709	850	
==>e ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	765	906	
==>e ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6861	6952	
==>unction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6861	6952	
==>unction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6861	6952	
==>unction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25674	25820	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27869	28015	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25674	25820	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27869	28015	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25674	25820	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27869	28015	
==>calar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7309	7465	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4868	5024	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7309	7465	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4868	5024	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7309	7465	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4868	5024	
==>ptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            m <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3902	4058	
==>nse_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3902	4058	
==>nse_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11349	11438	
==>uilder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1805	1890	
==>uilder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1805	1890	
==>uilder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6655	6771	
==>x) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6655	6771	
==>x) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6655	6771	
==>x) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8407	8503	
==>PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8407	8503	
==>PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8407	8503	
==>PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3817	3918	
==>_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3817	3918	
==>_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3817	3918	
==>_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	879	977	
==>te($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	879	977	
==>te($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	879	977	
==>te($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packa <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	440	541	
==>gs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	985	1086	
==>gs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	440	541	
==>gs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	985	1086	
==>gs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	985	1086	
==>gs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map <==
6	/Users/nnunley/pugs/util/package-osx.pl	11829	11919	
==>root:wheel $dest < ~/.pass");
}

&change_files($dest, %change_files) if (keys %change_files <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3911	4059	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6847	6995	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3911	4059	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6847	6995	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3911	4059	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6847	6995	
==>return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper met <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8713	8818	
==>om_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8713	8818	
==>om_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1910	1999	
==>s/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1910	1999	
==>s/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1910	1999	
==>s/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1513	1602	
==>ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	23	123	
==>$left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $ri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	23	123	
==>$left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $ri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	23	123	
==>$left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $ri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2443	2538	
==>t) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2443	2538	
==>t) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2443	2538	
==>t) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1662	1851	
==>t work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1662	1851	
==>t work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1662	1851	
==>t work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14360	14476	
==>ts ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14360	14476	
==>ts ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14360	14476	
==>ts ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30437	30547	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32151	32261	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30437	30547	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32151	32261	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30437	30547	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32151	32261	
==>".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1359	1494	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2922	3057	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1359	1494	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2922	3057	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1359	1494	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2922	3057	
==>ment certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7637	7740	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7637	7740	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7637	7740	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1064	1151	
==>');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1064	1151	
==>');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1064	1151	
==>');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	452	546	
==>";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATIO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	452	546	
==>";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATIO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	452	546	
==>";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATIO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2964	3077	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2964	3077	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2964	3077	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34775	34872	
==>len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34775	34872	
==>len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34775	34872	
==>len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	882	1009	
==>l, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defin <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	882	1009	
==>l, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9637	9735	
==>vocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9637	9735	
==>vocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9637	9735	
==>vocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22968	23054	
==>:Exception;
@ISA=qw(Error);
package Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@I <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2636	2832	
==>xt) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                els <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1326	1522	
==>xt) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                els <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2636	2832	
==>xt) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                els <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1326	1522	
==>xt) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                els <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9299	9399	
==>d") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` ar <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9299	9399	
==>d") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7826	7944	
==>iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7826	7944	
==>iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7826	7944	
==>iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1313	1417	
==>) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1313	1417	
==>) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1313	1417	
==>) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	404	504	
==>ion of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	404	504	
==>ion of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	404	504	
==>ion of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1055	1153	
==>er.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1055	1153	
==>er.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1135	1233	
==>er.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12227	12327	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9784	9884	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12227	12327	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9784	9884	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12227	12327	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9784	9884	
==>ke_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return $::S <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13224	13380	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27338	27494	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13503	13659	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27617	27773	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1460	1598	
==>escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1400	1533	
==>escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6944	7066	
==>ms = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6944	7066	
==>ms = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6944	7066	
==>ms = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5564	5685	
==>t';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5564	5685	
==>t';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2461	2582	
==>t';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5572	5679	
==>s -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5572	5679	
==>s -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5572	5679	
==>s -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2625	2729	
==>_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2625	2729	
==>_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2625	2729	
==>_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4048	4176	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2282	2410	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3063	3191	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4986	5113	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2528	2655	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3309	3436	
==>, '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
s <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	934	1055	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1302	1423	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1808	1929	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	934	1055	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1302	1423	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1808	1929	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1611	1716	
==>ch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; di <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1611	1716	
==>ch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; di <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1611	1716	
==>ch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6133	6226	
==>ody), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6133	6226	
==>ody), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6133	6226	
==>ody), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3366	3484	
==>:sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1724	1842	
==>:sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2504	2622	
==>:sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_ <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20109	20211	
==>array"] = padarray
    .return (self)
.end
    
.namespace [ "PGE::Exp::Group" ] 

.sub "p6analyze" :me <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19128	19222	
==>ly if using the header(),
push_header() or init_header() methods to set the referrer.

=item $h <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19128	19222	
==>ly if using the header(),
push_header() or init_header() methods to set the referrer.

=item $h <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12503	12635	
==>ile $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3051	3170	
==>}) {
    if (defined(my $r = $self->$try)) {
      $r->insert($self->{tree});
      return $r;
    }
  }

  $self->error <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21941	22035	
==>ies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20822	20916	
==>ies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21941	22035	
==>ies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20822	20916	
==>ies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	456	553	
==>nizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	456	553	
==>nizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	456	553	
==>nizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23353	23446	
==>f Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41277	41370	
==>f Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37303	37396	
==>f Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2343	2458	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4670	4785	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2343	2458	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4670	4785	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2343	2458	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4670	4785	
==>e)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15207	15360	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15582	15735	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15207	15360	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15582	15735	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15207	15360	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15582	15735	
==>Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12093	12238	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3604	3749	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12093	12238	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3604	3749	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12093	12238	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3604	3749	
==>r[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return thi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4413	4548	
==>self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $c <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4413	4548	
==>self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $c <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1595	1715	
==>s;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.ce <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1595	1715	
==>s;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.ce <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	3445	3539	
==>ethods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without an <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3445	3539	
==>ethods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7887	8036	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7887	8036	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7887	8036	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4951	5098	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4951	5098	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4951	5098	
==>lue of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5589	5732	
==>a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5589	5732	
==>a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5589	5732	
==>a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19902	19998	
==>u want something similar but that is more mutable, you can accomplish
that manually using a set o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24454	24550	
==>u want something similar but that is more mutable, you can accomplish
that manually using a set o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23006	23102	
==>u want something similar but that is more mutable, you can accomplish
that manually using a set o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9699	9813	
==>L::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9699	9813	
==>L::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9699	9813	
==>L::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6742	6842	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6742	6842	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expan <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6742	6842	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6673	6792	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7434	7553	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8304	8423	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10150	10269	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10911	11030	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11781	11900	
==>ion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one given rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3941	4134	
==>ject ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3941	4134	
==>ject ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3941	4134	
==>ject ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	454	556	
==>exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	454	556	
==>exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	454	556	
==>exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	202	327	
==>=> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	202	327	
==>=> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	202	327	
==>=> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10230	10353	
==>_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10230	10353	
==>_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done <==
6	/Users/nnunley/pugs/misc/S29_round.pl	322	430	
==>ur Int multi Num::round_half_up_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, up below <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1121	1229	
==>h($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - don <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1121	1229	
==>h($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - don <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1121	1229	
==>h($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - don <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4678	4768	
==>\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4678	4768	
==>\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4678	4768	
==>\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	613	723	
==>ules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	613	723	
==>ules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	613	723	
==>ules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	342	430	
==>iler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<bloc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	342	430	
==>iler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<bloc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	339	422	
==>iler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<bloc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6866	6956	
==>------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6889	6979	
==>-------------------
## BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6866	6956	
==>------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6889	6979	
==>-------------------
## BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6866	6956	
==>------------------------------------------
## BOOTSTRAPPING ROLES
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6889	6979	
==>-------------------
## BOOTSTRAPPING ROLES
## --------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12604	12710	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10155	10261	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12604	12710	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10155	10261	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12604	12710	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10155	10261	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4965	5104	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5926	6065	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4965	5104	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5926	6065	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4965	5104	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5926	6065	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14158	14326	
==>sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14158	14326	
==>sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14158	14326	
==>sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12816	12929	
==>ashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12816	12929	
==>ashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12816	12929	
==>ashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6062	6253	
==>) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6062	6253	
==>) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	613	724	
==>];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6131	6242	
==>];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	613	724	
==>];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6143	6254	
==>];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1690	1803	
==>cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1690	1803	
==>cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1690	1803	
==>cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	490	600	
==>reach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	525	635	
==>reach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	490	600	
==>reach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2194	2298	
==>b is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2194	2298	
==>b is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32869	32962	
==>ation>

This multi-method is a generic binary relational operator that is like
C<union> except <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33324	33417	
==>ation>

This multi-method is a generic binary relational operator that is like
C<union> except <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37419	37512	
==>ation>

This multi-method is a generic binary relational operator that is like
C<union> except <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37874	37967	
==>ation>

This multi-method is a generic binary relational operator that is like
C<union> except <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12968	13079	
==>et_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12968	13079	
==>et_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12968	13079	
==>et_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insu <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10137	10245	
==>ax = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_ccla <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2031	2126	
==>ub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2031	2126	
==>ub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	46	139	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	270	363	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	46	139	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	270	363	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	46	139	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	270	363	
==>nly works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	203	332	
==>_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subn <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	203	332	
==>_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subn <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	203	332	
==>_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subn <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1118	1233	
==>('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval w <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9828	9940	
==>$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connec <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9828	9940	
==>$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	85	180	
==>';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	85	180	
==>';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	85	180	
==>';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	123	215	
==>dBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	123	215	
==>dBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	123	215	
==>dBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
us <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	77	181	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	77	181	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	77	181	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	788	890	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	788	890	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	788	890	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1784	1894	
==>eturn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barena <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1784	1894	
==>eturn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barena <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1784	1894	
==>eturn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barena <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3955	4044	
==>opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3955	4044	
==>opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3955	4044	
==>opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1836	1947	
==>my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packag <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1836	1947	
==>my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packag <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1836	1947	
==>my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packag <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2728	2830	
==>on (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2728	2830	
==>on (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2728	2830	
==>on (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2033	2152	
==>e had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2033	2152	
==>e had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2033	2152	
==>e had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3218	3334	
==>rd $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    retur <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21175	21269	
==>ontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common A <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21175	21269	
==>ontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1208	1406	
==>{ 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1208	1406	
==>{ 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1208	1406	
==>{ 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17907	17997	
==>p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17907	17997	
==>p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17907	17997	
==>p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4347	4471	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7283	7407	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4347	4471	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7283	7407	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4347	4471	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7283	7407	
==>nds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($met <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4023	4160	
==>lemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4011	4148	
==>lemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5027	5161	
==>enerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5027	5161	
==>enerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5027	5161	
==>enerated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= " <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	381	497	
==>"" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_B <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2318	2414	
==>h })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2318	2414	
==>h })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2318	2414	
==>h })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6108	6198	
==>OF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6108	6198	
==>OF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6108	6198	
==>OF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3446	3555	
==>25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3446	3555	
==>25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3446	3555	
==>25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2473	2574	
==>not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2473	2574	
==>not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2473	2574	
==>not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6990	7112	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4549	4671	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6990	7112	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4549	4671	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6990	7112	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4549	4671	
==>add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2172	2300	
==>a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2172	2300	
==>a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2172	2300	
==>a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10283	10405	
==>all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2316	2426	
==>all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2316	2426	
==>all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35401	35520	
==>ing 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35401	35520	
==>ing 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35401	35520	
==>ing 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4053	4159	
==>fts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4053	4159	
==>fts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4053	4159	
==>fts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	1	113	
==>ackage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	1	113	
==>ackage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	1	113	
==>ackage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	350	579	
==>xception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	350	579	
==>xception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	350	579	
==>xception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	419	531	
==>Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	419	531	
==>Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	419	531	
==>Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1719	1884	
==>o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1719	1884	
==>o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1719	1884	
==>o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9313	9412	
==>e', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB req <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9313	9412	
==>e', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB req <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9313	9412	
==>e', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB req <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3442	3534	
==>lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3442	3534	
==>lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3442	3534	
==>lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	121	225	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	382	486	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	121	225	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	382	486	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	121	225	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	382	486	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	525	643	
==>urn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	525	643	
==>urn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	525	643	
==>urn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprin <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27091	27201	
==>ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        m <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27091	27201	
==>ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6315	6413	
==>ve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Class->add_method( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	615	730	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	937	1052	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1316	1431	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	615	730	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	937	1052	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1316	1431	
==>/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10081	10224	
==>AD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10081	10224	
==>AD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10081	10224	
==>AD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3961	4075	
==>clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3961	4075	
==>clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3961	4075	
==>clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13681	13790	
==>else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13681	13790	
==>else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13681	13790	
==>else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('ha <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	179	277	
==>::Util 'looks_like_number', 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $va <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19280	19376	
==>ase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is th <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19280	19376	
==>ase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is th <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13477	13592	
==>== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16954	17069	
==>== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16316	16431	
==>== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12470	12575	
==>de .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12470	12575	
==>de .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12470	12575	
==>de .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2757	2934	
==>od exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6234	6411	
==>od exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5164	5341	
==>od exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8315	8457	
==>turn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8315	8457	
==>turn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8315	8457	
==>turn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    re <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	890	993	
==>($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1571	1674	
==>my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAM <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	890	993	
==>($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1571	1674	
==>my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAM <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1571	1674	
==>my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAM <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28318	28418	
==>ht not exist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

The arguments to object() t <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	178	280	
==>eys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %ta <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	178	280	
==>eys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %ta <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	791	885	
==>Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compi <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	983	1077	
==>Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compi <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	791	885	
==>Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compi <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	983	1077	
==>Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27450	27608	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27450	27608	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27450	27608	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6934	7024	
==>$self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6934	7024	
==>$self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6934	7024	
==>$self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3226	3324	
==>@msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3226	3324	
==>@msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3226	3324	
==>@msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14375	14469	
==>:main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14375	14469	
==>:main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14375	14469	
==>:main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13673	13801	
==>size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13673	13801	
==>size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13673	13801	
==>size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5919	6047	
==>size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4419	4547	
==>size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary <==
6	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	627	750	
==>_args( PL_FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($args{inline}) {
            $s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18695	18806	
==>ndler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flag <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15116	15227	
==>ndler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flag <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30454	30565	
==>ndler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flag <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	850	954	
==>$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2685	2779	
==>$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $s <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	1729	1819	
==>r::binary: level($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3951	4060	
==>$self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3951	4060	
==>$self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3951	4060	
==>$self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs d <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9716	9818	
==>p through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9716	9818	
==>p through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5622	5722	
==>rue;
}
multi sub ToBoolean(JSX::Value::String $v) {
    ~$v eq "" ?? JSX::false !! JSX::true;
}
multi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7765	7869	
==>}
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7765	7869	
==>}
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3470	3562	
==>TORE('::WithReason' => role 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7036	7180	
==>&{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            ret <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7036	7180	
==>&{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            ret <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5930	6046	
==>minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5930	6046	
==>minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	11357	11449	
==>elf: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($s <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11357	11449	
==>elf: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5078	5187	
==>ve;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5078	5187	
==>ve;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5078	5187	
==>ve;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return p <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6336	6433	
==>rt returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status r <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6336	6433	
==>rt returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8533	8630	
==>rt returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status r <==
6	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1019	1164	
==>tring_to_arguments ( $string ) {
            return $?CLASS.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	750	850	
==>ons are used for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



=c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10618	10718	
==>ons are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1121	1217	
==>ons are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	720	816	
==>ons are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1121	1217	
==>ons are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1756	1885	
==>, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1756	1885	
==>, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1756	1885	
==>, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2520	2614	
==>::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2520	2614	
==>::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2520	2614	
==>::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10294	10445	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7845	7996	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10294	10445	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7845	7996	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10294	10445	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7845	7996	
==>_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) {
                    # that iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13777	13903	
==>>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonica <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13777	13903	
==>>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonica <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13777	13903	
==>>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonica <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7133	7246	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7133	7246	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7133	7246	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12289	12401	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12289	12401	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12289	12401	
==>Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unbo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2000	2106	
==>->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2000	2106	
==>->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gram <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12995	13093	
==>his method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12995	13093	
==>his method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl d <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1240	1338	
==>->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3101	3199	
==>->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gram <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6837	6937	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5967	6067	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2621	2721	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2621	2721	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6837	6937	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5967	6067	
==>udes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6972	7075	
==>ve is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6972	7075	
==>ve is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6972	7075	
==>ve is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10439	10541	
==>e_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pu <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10439	10541	
==>e_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pu <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6190	6276	
==>{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+(\w+)\s+{([^}]*)} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17947	18165	
==>self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17947	18165	
==>self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17947	18165	
==>self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3310	3405	
==>t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3310	3405	
==>t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3310	3405	
==>t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	641	759	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	729	847	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	641	759	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	729	847	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	641	759	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	729	847	
==>args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5874	5983	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3994	4103	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5874	5983	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3994	4103	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5874	5983	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3994	4103	
==>($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2268	2378	
==>confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2268	2378	
==>confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2268	2378	
==>confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1362	1463	
==>ot supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1362	1463	
==>ot supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1362	1463	
==>ot supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7070	7222	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4629	4781	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7070	7222	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4629	4781	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7070	7222	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4629	4781	
==>, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2794	2930	
==>e->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cert <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2794	2930	
==>e->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cert <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2794	2930	
==>e->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cert <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11127	11256	
==>$_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11127	11256	
==>$_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11127	11256	
==>$_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23664	23885	
==>w();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23664	23885	
==>w();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23664	23885	
==>w();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4705	4806	
==>";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4705	4806	
==>";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4705	4806	
==>";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7316	7521	
==>d le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7316	7521	
==>d le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7316	7521	
==>d le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1621	1716	
==>ce methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1621	1716	
==>ce methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1621	1716	
==>ce methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1921	2024	
==>LER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1921	2024	
==>LER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1921	2024	
==>LER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $na <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36486	36581	
==>wo source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41035	41130	
==>wo source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40649	40744	
==>wo source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
e <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4015	4148	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4953	5086	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2249	2382	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2495	2628	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3030	3163	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3276	3409	
==>);
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7111	7215	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6241	6345	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2895	2999	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2895	2999	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7111	7215	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6241	6345	
==>ber);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3279	3408	
==>die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3279	3408	
==>die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3279	3408	
==>die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell' <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25272	25363	
==>gument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29824	29915	
==>gument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28754	28845	
==>gument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11579	11769	
==>params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => 'hash')
                          ),
                re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2437	2568	
==>new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2437	2568	
==>new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2437	2568	
==>new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15606	15700	
==>eir technical
skills.  For example, a native French or Chinese speaker often prefers to
communi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15606	15700	
==>eir technical
skills.  For example, a native French or Chinese speaker often prefers to
communi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14111	14246	
==>}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14111	14246	
==>}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14111	14246	
==>}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	215	338	
==>t {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	178	301	
==>t {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	266	389	
==>t {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36739	36855	
==>ient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36739	36855	
==>ient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36739	36855	
==>ient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10569	10669	
==>$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10569	10669	
==>$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10569	10669	
==>$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3956	4075	
==>$self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3956	4075	
==>$self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3956	4075	
==>$self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6317	6415	
==>ine;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6317	6415	
==>ine;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6317	6415	
==>ine;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	231	344	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	555	668	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	231	344	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	555	668	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	231	344	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	555	668	
==>e a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3886	4003	
==>^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3886	4003	
==>^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4418	4529	
==>^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4418	4529	
==>^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10048	10145	
==>Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6 <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10048	10145	
==>Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8995	9114	
==>I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	729	848	
==>I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8995	9114	
==>I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8995	9114	
==>I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2849	2951	
==>ck already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2849	2951	
==>ck already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1666	1765	
==>t>.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2138	2237	
==>t>.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1666	1765	
==>t>.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2138	2237	
==>t>.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2138	2237	
==>t>.

This program is free software; you can redistribute it and/or modify
it under the same terms as <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4265	4363	
==>urn &$step;
  };
}

my @whitespaces;
my $ws = def_rule('ws',mk_dynamic_alt(\@whitespaces));

my @st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8331	8435	
==>.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8331	8435	
==>.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8331	8435	
==>.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5201	5303	
==>want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Java <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5201	5303	
==>want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Java <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5201	5303	
==>want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Java <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2817	2926	
==>sname duration summary runcore>) {
    print "The submitted smoke has an invalid format!";
    exit;
  }

  $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1869	1971	
==>undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1869	1971	
==>undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1869	1971	
==>undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4302	4403	
==>ng[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4302	4403	
==>ng[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	332	444	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	325	437	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	332	444	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	325	437	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	332	444	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	325	437	
==>";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6844	6953	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5974	6083	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2628	2737	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2628	2737	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6844	6953	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5974	6083	
==>ember);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13340	13472	
==>l ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13334	13466	
==>l ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37107	37228	
==>atom >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1432	1520	
==>'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1432	1520	
==>'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1432	1520	
==>'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35939	36037	
==>ing common tuple values are aligned and merged.  The heading
of the new relation is the union of th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40489	40587	
==>ing common tuple values are aligned and merged.  The heading
of the new relation is the union of th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40103	40201	
==>ing common tuple values are aligned and merged.  The heading
of the new relation is the union of th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1388	1483	
==>var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1388	1483	
==>var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1388	1483	
==>var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13198	13299	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4368	4469	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8824	8925	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13198	13299	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4368	4469	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8824	8925	
==>epresentative for this whole file, which can be referenced as a unit by
documentation or 'use' stateme <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1543	1645	
==>ggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Plu <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1543	1645	
==>ggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Plu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9294	9394	
==>from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9294	9394	
==>from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_s <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2360	2456	
==>r a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the retu <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2360	2456	
==>r a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the retu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14879	14988	
==>red_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sor <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18356	18465	
==>red_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sor <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17772	17881	
==>red_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sor <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11043	11140	
==>root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<heade <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11043	11140	
==>root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<heade <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13217	13309	
==>containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differenc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9889	9981	
==>containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differenc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13217	13309	
==>containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differenc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9889	9981	
==>containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3639	3743	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4334	4438	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3639	3743	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4334	4438	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3639	3743	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4334	4438	
==>(defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13577	13673	
==>:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13577	13673	
==>:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13577	13673	
==>:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3494	3588	
==><<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3494	3588	
==><<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3494	3588	
==><<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1868	1970	
==>g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1868	1970	
==>g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1868	1970	
==>g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2569	2670	
==>est.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_d <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2569	2670	
==>est.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2649	2750	
==>est.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31280	31482	
==>Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31280	31482	
==>Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31280	31482	
==>Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->star <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5033	5141	
==>CK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5033	5141	
==>CK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5033	5141	
==>CK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5303	5443	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8273	8413	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5303	5443	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8273	8413	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5303	5443	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8273	8413	
==>make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24897	25064	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27086	27253	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24897	25064	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27086	27253	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24897	25064	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27086	27253	
==>fined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7469	7591	
==>4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7469	7591	
==>4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7469	7591	
==>4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefine <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6431	6530	
==>_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6431	6530	
==>_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6431	6530	
==>_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3951	4076	
==>!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3951	4076	
==>!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i+ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3951	4076	
==>!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7537	7638	
==>em" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7537	7638	
==>em" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7537	7638	
==>em" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9380	9514	
==>ount < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub f <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9380	9514	
==>ount < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub f <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9380	9514	
==>ount < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4571	4673	
==>ge PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4571	4673	
==>ge PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4571	4673	
==>ge PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14273	14385	
==>N;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tran <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14273	14385	
==>N;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tran <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2315	2419	
==>STALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH = <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6137	6226	
==>both perform the Test::Builder::Test::WithReason role
and override some methods to provide <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6137	6226	
==>both perform the Test::Builder::Test::WithReason role
and override some methods to provide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8334	8423	
==>both perform the Test::Builder::Test::WithReason role
and override some methods to provide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27973	28128	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27973	28128	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27973	28128	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2381	2515	
==>ool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->cr <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1592	1688	
==>day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1592	1688	
==>day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17897	18079	
==>ed $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17897	18079	
==>ed $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17897	18079	
==>ed $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1959	2125	
==>urn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'be <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1959	2125	
==>urn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'be <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11345	11458	
==>bject(branch =>);
  });


  return;

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2834	2938	
==>= backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2834	2938	
==>= backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2834	2938	
==>= backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2299	2401	
==>= backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2299	2401	
==>= backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2299	2401	
==>= backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3742	3861	
==>e, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3742	3861	
==>e, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4173	4268	
==>nterpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpo <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4173	4268	
==>nterpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpo <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4130	4223	
==>nterpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpo <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4130	4223	
==>nterpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	852	1005	
==>tr },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	852	1005	
==>tr },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	852	1005	
==>tr },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6251	6383	
==>n "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6251	6383	
==>n "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6251	6383	
==>n "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38431	38552	
==>sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38431	38552	
==>sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38431	38552	
==>sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2247	2357	
==>self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2247	2357	
==>self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2247	2357	
==>self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7500	7626	
==>le'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7693	7819	
==>le'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3434	3550	
==>perl5 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	136	233	
==>ON = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	136	233	
==>ON = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	136	233	
==>ON = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37055	37165	
==>os >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37055	37165	
==>os >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37055	37165	
==>os >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret-> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30744	30835	
==>ding transformation of each tuple), but
that any duplicates following the transformation hav <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35295	35386	
==>ding transformation of each tuple), but
that any duplicates following the transformation hav <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34486	34577	
==>ding transformation of each tuple), but
that any duplicates following the transformation hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2907	3030	
==>,
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3112	3235	
==>,
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5661	5784	
==>,
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4293	4416	
==>,
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	2804	2907	
==>h - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($s <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2804	2907	
==>h - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11982	12096	
==>> $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code} <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11982	12096	
==>> $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code} <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8643	8754	
==>nels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8643	8754	
==>nels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldni <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8907	9012	
==>nels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8907	9012	
==>nels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldni <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10056	10189	
==>$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar categor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10892	11025	
==>$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar categor <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1059	1175	
==>t_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	1039	1155	
==>t_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1059	1175	
==>t_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1039	1155	
==>t_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	337	453	
==>): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1195	1311	
==>): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	430	540	
==>S

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2415	2509	
==>s = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2415	2509	
==>s = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2415	2509	
==>s = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestP <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	2429	2539	
==>.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @do <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2429	2539	
==>.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	795	896	
==>h, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	795	896	
==>h, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	795	896	
==>h, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour o <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13519	13613	
==>ier>
    | <'new'> <?ws_required> <MemberExpression> <Arguments>
}
rule NewExpression :words  { <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22135	22235	
==>, and then invoking methods on those objects.  All of
their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9408	9508	
==>, and then invoking methods on those objects.  All of
their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22135	22235	
==>, and then invoking methods on those objects.  All of
their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9408	9508	
==>, and then invoking methods on those objects.  All of
their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24503	24602	
==>, and then invoking methods on those objects.
All of their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24503	24602	
==>, and then invoking methods on those objects.
All of their attributes are private, so you must use a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13317	13442	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10601	10726	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13317	13442	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10601	10726	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13317	13442	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10601	10726	
==>|
        lc($params->{for}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (l <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2268	2437	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11136	11305	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12095	12264	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2461	2630	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11415	11584	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12374	12543	
==>&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10791	10933	
==>_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10791	10933	
==>_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10791	10933	
==>_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2599	2705	
==>ie "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2599	2705	
==>ie "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2599	2705	
==>ie "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2763	2912	
==>ort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # up <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2763	2912	
==>ort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # up <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1474	1576	
==>gth; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1474	1576	
==>gth; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1474	1576	
==>gth; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/util/package-osx.pl	9065	9162	
==>less (-d "${dest}/usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9590	9711	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7137	7258	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9590	9711	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7137	7258	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9590	9711	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7137	7258	
==>elf->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10726	10879	
==>t;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10726	10879	
==>t;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10726	10879	
==>t;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3390	3538	
==>me =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3390	3538	
==>me =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3390	3538	
==>me =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_n <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4974	5074	
==>ns it as an array of bytes, 
then clears the object's internal state.  This should be called as the l <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4974	5074	
==>ns it as an array of bytes, 
then clears the object's internal state.  This should be called as the l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9650	9780	
==>boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if define <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9650	9780	
==>boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if define <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9650	9780	
==>boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if define <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22415	22513	
==>rn the same result when invoked on the
same object with the same arguments; they do not interact wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26967	27065	
==>rn the same result when invoked on the
same object with the same arguments; they do not interact wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25690	25788	
==>rn the same result when invoked on the
same object with the same arguments; they do not interact wi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4620	4751	
==>{
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13045	13176	
==>{
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15656	15787	
==>{
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17144	17275	
==>{
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21827	21958	
==>{
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+' <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	12841	12937	
==>possibly amend the list of generic variables if the paramter type of the function is free
fun: ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7922	8039	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10845	10962	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7922	8039	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10845	10962	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7922	8039	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10845	10962	
==>= @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined $method <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12885	12982	
==>you pass in multiple field names then it is generally not
possible to tell which of the returned v <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23122	23219	
==>")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21931	22028	
==>")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23122	23219	
==>")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21931	22028	
==>")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12885	12982	
==>you pass in multiple field names then it is generally not
possible to tell which of the returned v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5071	5175	
==>:/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split(' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5071	5175	
==>:/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split(' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5071	5175	
==>:/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4090	4187	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4090	4187	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4090	4187	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18473	18573	
==>:Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18669	18769	
==>:Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18883	18983	
==>:Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19085	19185	
==>:Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19420	19520	
==>:Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9174	9274	
==>se segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#---------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1199	1301	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2174	2276	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1199	1301	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2174	2276	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1199	1301	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2174	2276	
==>);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22977	23084	
==>2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22977	23084	
==>2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22977	23084	
==>2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20256	20357	
==>, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24808	24909	
==>, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23369	23470	
==>, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14035	14189	
==>=> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14035	14189	
==>=> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14035	14189	
==>=> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16311	16430	
==>table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16311	16430	
==>table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16311	16430	
==>table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with t <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3957	4088	
==>ring_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<(!?)\' [ <-[\\\'] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	992	1100	
==>new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	992	1100	
==>new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	992	1100	
==>new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9804	9903	
==>t for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroi <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9804	9903	
==>t for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5096	5226	
==>cal $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5096	5226	
==>cal $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5096	5226	
==>cal $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6806	6912	
==>g increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6806	6912	
==>g increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6806	6912	
==>g increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6181	6289	
==>eading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9658	9766	
==>eading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8732	8840	
==>eading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9720	9813	
==>is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9720	9813	
==>is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9720	9813	
==>is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5768	5920	
==>the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5768	5920	
==>the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5768	5920	
==>the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add <==
6	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1182	1314	
==>Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order functio <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1433	1525	
==>ious talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for lin <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1433	1525	
==>ious talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for lin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1746	1874	
==>)
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referenc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2489	2617	
==>)
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referenc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1746	1874	
==>)
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referenc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2477	2605	
==>)
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referenc <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	10624	10720	
==>xts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns B <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10682	10778	
==>xts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns B <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25249	25343	
==>rmutation of its
arguments and any invocant object's attributes is identical; they do not
inter <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11380	11474	
==>rmutation of its
arguments and any invocant object's attributes is identical; they do not
inter <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14653	14747	
==>rmutation of its arguments and any invocant
object's attributes is identical; they do not inter <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25249	25343	
==>rmutation of its
arguments and any invocant object's attributes is identical; they do not
inter <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11380	11474	
==>rmutation of its
arguments and any invocant object's attributes is identical; they do not
inter <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14653	14747	
==>rmutation of its arguments and any invocant
object's attributes is identical; they do not inter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12557	12664	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10108	10215	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12557	12664	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10108	10215	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12557	12664	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10108	10215	
==>nce_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18262	18372	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15500	15610	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18262	18372	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15500	15610	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18262	18372	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15500	15610	
==>e_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not corr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11136	11264	
==>t found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11136	11264	
==>t found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11136	11264	
==>t found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35049	35171	
==>d ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35049	35171	
==>d ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35049	35171	
==>d ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5604	5730	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8574	8700	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5604	5730	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8574	8700	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5604	5730	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8574	8700	
==>n the exact same sub. This results in this
        # method being passed an already blessed method 
        # instead of a plai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5453	5568	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3573	3688	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5453	5568	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3573	3688	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5453	5568	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3573	3688	
==>s) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRA <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3351	3449	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6365	6463	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8433	8531	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3351	3449	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6365	6463	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8433	8531	
==>) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns <==
6	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1	117	
==>!/usr/bin/pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{ch <==
6	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1	117	
==>!/usr/bin/pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{ch <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28185	28278	
==>item C<as_debug_string()>

This method returns a stringified version of this object which is s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35541	35634	
==>item C<as_debug_string()>

This method returns a stringified version of this object which is s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28185	28278	
==>item C<as_debug_string()>

This method returns a stringified version of this object which is s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35541	35634	
==>item C<as_debug_string()>

This method returns a stringified version of this object which is s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	563	661	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	885	983	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1264	1362	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	563	661	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	885	983	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1264	1362	
==>$body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2732	2920	
==>) 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mo <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2732	2920	
==>) 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1642	1798	
==>nfess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	660	775	
==>res:
    #    Pragma: (caching)
    #    Set-Cookie: (multiple cookies)
    print CookiesHeader();
    if ($location <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1476	1566	
==>osoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a dir <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1316	1406	
==>osoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a dir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14096	14235	
==>e class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14096	14235	
==>e class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14096	14235	
==>e class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21425	21558	
==>END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21425	21558	
==>END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21425	21558	
==>END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4327	4446	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6976	7095	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4556	4672	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11005	11121	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4556	4672	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11005	11121	
==>::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4004	4111	
==>e "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    di <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4221	4328	
==>e "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    di <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21342	21432	
==>_PACKAGE__;
  push @Regexp::Parser::unlessm::ISA, __PACKAGE__;
  push @Regexp::Parser::susp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2908	2993	
==>ocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2908	2993	
==>ocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2908	2993	
==>ocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8066	8193	
==>t';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$ind <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8054	8181	
==>t';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$ind <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5536	5658	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6804	6926	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5536	5658	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6792	6914	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	704	815	
==>arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	704	815	
==>arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	704	815	
==>arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2189	2291	
==>6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2189	2291	
==>6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2189	2291	
==>6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7418	7576	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4977	5135	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7418	7576	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4977	5135	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7418	7576	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4977	5135	
==>q->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3423	3538	
==>B') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse onl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3423	3538	
==>B') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse onl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3423	3538	
==>B') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse onl <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16459	16558	
==>ent()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a singl <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16459	16558	
==>ent()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a singl <==
6	/Users/nnunley/pugs/util/run-smoke.pl	780	864	
==>smoke_upload');
my $smoke_upload_script = File::Spec->canonpath('./util/smokeserv/smo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11357	11551	
==>rray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11357	11551	
==>rray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11357	11551	
==>rray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	81	172	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	81	172	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	81	172	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9459	9587	
==>_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5800	5928	
==>_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6649	6777	
==>_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10680	10779	
==>"[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Para <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10680	10779	
==>"[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Para <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10680	10779	
==>"[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Para <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12687	12798	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12687	12798	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12687	12798	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4519	4619	
==>.};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB ti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4519	4619	
==>.};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB ti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4519	4619	
==>.};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB ti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9076	9195	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12049	12168	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9076	9195	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12049	12168	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9076	9195	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12049	12168	
==>erl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMeth <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26125	26224	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27205	27304	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31120	31219	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30677	30776	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31757	31856	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35670	35769	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which has a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1327	1463	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2890	3026	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1327	1463	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2890	3026	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1327	1463	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2890	3026	
==>obal functions
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLAS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11916	12046	
==>[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11916	12046	
==>[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11916	12046	
==>[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3995	4093	
==>---------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4018	4116	
==>----------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3995	4093	
==>---------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4018	4116	
==>----------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3995	4093	
==>---------------------------------------------
## BEGIN BOOTSTRAPPING AREA
## ---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4018	4116	
==>----------------------
## BEGIN BOOTSTRAPPING AREA
## --------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14401	14496	
==>s %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14401	14496	
==>s %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14401	14496	
==>s %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	263	356	
==>.normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	263	356	
==>.normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	263	356	
==>.normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precomp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6692	6907	
==>=> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6692	6907	
==>=> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6692	6907	
==>=> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $se <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3042	3137	
==>as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emit <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2933	3027	
==>as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emit <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8251	8344	
==>([x|L])  --> "x", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifie <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12051	12188	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3562	3699	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12051	12188	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3562	3699	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12051	12188	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3562	3699	
==>STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BI <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	203	317	
==>);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to ge <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	203	317	
==>);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3709	3810	
==>de::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3709	3810	
==>de::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3709	3810	
==>de::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	489	579	
==>'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	254	352	
==>enizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	254	352	
==>enizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	254	352	
==>enizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2830	2923	
==>sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2830	2923	
==>sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2830	2923	
==>sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1967	2117	
==>lp {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	281	431	
==>lp {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1967	2117	
==>lp {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1967	2117	
==>lp {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6705	6824	
==>turns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, m <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6705	6824	
==>turns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	17	117	
==>(Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	17	117	
==>(Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	17	117	
==>(Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } els <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6713	6810	
==>s Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Ha <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6713	6810	
==>s Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8910	9007	
==>s Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Ha <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23473	23617	
==>param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide("f"),
					),
					p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1364	1486	
==>ss $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1364	1486	
==>ss $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1599	1708	
==>) or return if defined $rx;
  croak "no regex defined" unless &RxLEN;
  1 while $self->next;
  return 1;
}


s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4557	4665	
==>{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4557	4665	
==>{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11130	11309	
==>ced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11130	11309	
==>ced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11130	11309	
==>ced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12850	12955	
==>$this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub del <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12850	12955	
==>$this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub del <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12850	12955	
==>$this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub del <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9187	9299	
==>int "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13037	13147	
==>int "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13037	13147	
==>int "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	981	1080	
==>ex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	981	1080	
==>ex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <==
6	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	942	1039	
==>_duration_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 duration format <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4296	4412	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7232	7348	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4296	4412	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7232	7348	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4296	4412	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7232	7348	
==>takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5792	6015	
==>ubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5792	6015	
==>ubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5792	6015	
==>ubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13401	13503	
==>alue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13401	13503	
==>alue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13401	13503	
==>alue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4495	4591	
==>ar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4495	4591	
==>ar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4495	4591	
==>ar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6736	6858	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9706	9828	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6736	6858	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9706	9828	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6736	6858	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9706	9828	
==>_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Private::Metho <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11550	11685	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2544	2679	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7638	7773	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11550	11685	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2544	2679	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7638	7773	
==>ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_ms <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5104	5248	
==>an having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it l <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5568	5712	
==>an having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4439	4547	
==>nt at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4439	4547	
==>nt at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4439	4547	
==>nt at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array. <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3595	3703	
==>nt at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1539	1663	
==>->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1539	1663	
==>->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1539	1663	
==>->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2637	2735	
==>pm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2637	2735	
==>pm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2637	2735	
==>pm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	6086	6212	
==>ze;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2688	2793	
==>s ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2688	2793	
==>s ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2688	2793	
==>s ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	885	976	
==>ries of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perld <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	885	976	
==>ries of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perld <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2385	2494	
==>bute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2385	2494	
==>bute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2385	2494	
==>bute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2830	2927	
==>laintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2830	2927	
==>laintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you <==
6	/Users/nnunley/pugs/util/testgraph.pl	145	235	
==>use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, qw(inlinecss|e cssf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2435	2575	
==>>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = dit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2435	2575	
==>>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = dit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2435	2575	
==>>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = dit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4109	4209	
==>eys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4109	4209	
==>eys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4109	4209	
==>eys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3415	3608	
==>> 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3415	3608	
==>> 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3415	3608	
==>> 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7490	7603	
==>{
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7490	7603	
==>{
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7490	7603	
==>{
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2331	2437	
==>erl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2331	2437	
==>erl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2331	2437	
==>erl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5599	5697	
==>nless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5599	5697	
==>nless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5599	5697	
==>nless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5209	5370	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8179	8340	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5209	5370	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8179	8340	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5209	5370	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8179	8340	
==>_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13431	13549	
==>__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13431	13549	
==>__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13431	13549	
==>__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10704	10810	
==>);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10704	10810	
==>);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10704	10810	
==>);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7446	7584	
==>},

            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2262	2394	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9034	9166	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7196	7328	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2262	2394	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9034	9166	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2182	2279	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2587	2684	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2182	2279	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2587	2684	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2182	2279	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2587	2684	
==>up_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	231	354	
==>nt(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	231	354	
==>nt(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	231	354	
==>nt(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4814	4912	
==>s something
of the original name. So if you had an object blessed into "MyClass",
it will now be bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4814	4912	
==>s something
of the original name. So if you had an object blessed into "MyClass",
it will now be bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4814	4912	
==>s something
of the original name. So if you had an object blessed into "MyClass",
it will now be bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10085	10242	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7636	7793	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10085	10242	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7636	7793	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10085	10242	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7636	7793	
==>urn sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6963	7080	
==>ix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11967	12084	
==>ix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6963	7080	
==>ix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11961	12078	
==>ix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::R <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19646	19742	
==>te itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19646	19742	
==>te itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4305	4438	
==>LINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4305	4438	
==>LINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4305	4438	
==>LINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4011	4099	
==>t::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4011	4099	
==>t::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6208	6296	
==>t::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3619	3744	
==>e}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3870	3991	
==>e}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3870	3991	
==>e}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match-> <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2051	2222	
==>or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} { <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2051	2222	
==>or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} { <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4469	4618	
==>e_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4469	4618	
==>e_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10811	10924	
==>)`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gm <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10811	10924	
==>)`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12289	12401	
==>= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12289	12401	
==>= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12289	12401	
==>= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4826	4919	
==>:already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4826	4919	
==>:already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4826	4919	
==>:already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22529	22739	
==>ETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22529	22739	
==>ETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22529	22739	
==>ETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	296	405	
==>}

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::Ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	296	405	
==>}

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::Ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	296	405	
==>}

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::Ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5020	5180	
==>, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5020	5180	
==>, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5020	5180	
==>, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #war <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8507	8612	
==>ef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8507	8612	
==>ef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8507	8612	
==>ef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2278	2405	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4605	4732	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2278	2405	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4605	4732	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2278	2405	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4605	4732	
==>ke_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3821	3928	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4074	4181	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4519	4626	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3821	3928	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4074	4181	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4519	4626	
==>ns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1479	1580	
==>n ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - opti <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1479	1580	
==>n ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - opti <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2845	2944	
==>xt::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if ( <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2845	2944	
==>xt::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2399	2494	
==>n ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - opti <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2399	2494	
==>n ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - opti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3401	3523	
==>:' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3401	3523	
==>:' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3401	3523	
==>:' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2795	2904	
==>ni_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2795	2904	
==>ni_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2795	2904	
==>ni_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15009	15159	
==>= $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15009	15159	
==>= $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15009	15159	
==>= $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19708	19857	
==>= $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19708	19857	
==>= $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19708	19857	
==>= $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29302	29417	
==>eturn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29302	29417	
==>eturn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29302	29417	
==>eturn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4034	4126	
==>instance, passing on the C<$description> parameter and setting the passed
parameter to a fals <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4034	4126	
==>instance, passing on the C<$description> parameter and setting the passed
parameter to a fals <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6231	6323	
==>instance, passing on the C<$description> parameter and setting the passed
parameter to a fals <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17500	17629	
==>$method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17500	17629	
==>$method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17500	17629	
==>$method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3141	3242	
==>p.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3141	3242	
==>p.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3141	3242	
==>p.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12555	12657	
==>}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12555	12657	
==>}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12555	12657	
==>}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	112	209	
==>t)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	112	209	
==>t)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	112	209	
==>t)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inli <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6359	6515	
==>H';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3484	3640	
==>H';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4333	4489	
==>H';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $ <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9484	9595	
==>);
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9548	9642	
==>t declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failur <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9548	9642	
==>t declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7884	7992	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10807	10915	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7884	7992	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10807	10915	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7884	7992	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10807	10915	
==>_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5657	5797	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3777	3917	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5657	5797	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3777	3917	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5657	5797	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3777	3917	
==>f);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is ci <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11251	11486	
==>s => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11251	11486	
==>s => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11251	11486	
==>s => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1907	2042	
==>dy?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5384	5519	
==>dy?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4314	4449	
==>dy?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15263	15394	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12519	12650	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15263	15394	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12519	12650	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15263	15394	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12519	12650	
==>'_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	509	625	
==>ns(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has n <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	480	596	
==>ns(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	509	625	
==>ns(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	509	625	
==>ns(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has n <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	664	766	
==>the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well a <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	664	766	
==>the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7857	7957	
==>e
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7857	7957	
==>e
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7857	7957	
==>e
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16030	16129	
==>ethod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16030	16129	
==>ethod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16030	16129	
==>ethod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self- <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1499	1602	
==>method BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:p <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1499	1602	
==>method BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2030	2131	
==>eturn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2030	2131	
==>eturn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1269	1363	
==>eturn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3130	3224	
==>eturn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	435	554	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	433	552	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	435	554	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	433	552	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	435	554	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	433	552	
==>have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	193	300	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	357	464	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	193	300	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	357	464	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	193	300	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	357	464	
==>INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7133	7232	
==>PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7133	7232	
==>PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7133	7232	
==>PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25927	26020	
==>pping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30479	30572	
==>pping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29454	29547	
==>pping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  T <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25367	25551	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26025	26209	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28807	28991	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25646	25830	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26304	26488	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29086	29270	
==>ure( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4169	4292	
==>?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4169	4292	
==>?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4169	4292	
==>?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13208	13304	
==>turn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13208	13304	
==>turn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13208	13304	
==>turn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4197	4381	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4197	4381	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4197	4381	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6723	6893	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6723	6893	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6723	6893	
==>ake_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            fore <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30729	30946	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32448	32665	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30729	30946	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32448	32665	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30729	30946	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32448	32665	
==>t, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3369	3464	
==>t = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3369	3464	
==>t = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3369	3464	
==>t = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11016	11110	
==>g PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11016	11110	
==>g PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11016	11110	
==>g PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4208	4391	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4208	4391	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4208	4391	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6734	6903	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6734	6903	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6734	6903	
==>od(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $me <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11054	11165	
==>ket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # W <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11054	11165	
==>ket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # W <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2749	2844	
==>_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText:: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10669	10764	
==>_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText:: <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2749	2844	
==>_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText:: <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10669	10764	
==>_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11650	11771	
==>], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11650	11771	
==>], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11650	11771	
==>], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1336	1432	
==>nt','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1336	1432	
==>nt','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1336	1432	
==>nt','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8782	8947	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6335	6500	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8782	8947	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6335	6500	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8782	8947	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6335	6500	
==>the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10056	10244	
==>der::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2111	2281	
==>der::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2111	2281	
==>der::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5266	5369	
==>! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5266	5369	
==>! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5266	5369	
==>! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10805	10944	
==>@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11271	11410	
==>@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10799	10938	
==>@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11265	11404	
==>@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10974	11070	
==>ef> will be returned.

A multi-valued field will be returned as separate values in list
context a <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10974	11070	
==>ef> will be returned.

A multi-valued field will be returned as separate values in list
context a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14839	14966	
==>$array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14839	14966	
==>$array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14839	14966	
==>$array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::V <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26996	27089	
==>he complement subset of the original's attributes to what C<project> would
return given the sa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31548	31641	
==>he complement subset of the original's attributes to what C<project> would
return given the sa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30604	30697	
==>he complement subset of the original's attributes to what C<project> would
return given the sa <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6505	6604	
==>t $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6505	6604	
==>t $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, * <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7377	7474	
==>t $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7377	7474	
==>t $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, * <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14533	14629	
==>will it's
testing needs. This module will be the code support for those needs. The
following is a <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14591	14687	
==>will it's
testing needs. This module will be the code support for those needs. The
following is a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9173	9344	
==>We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9173	9344	
==>We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9173	9344	
==>We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1135	1235	
==>= (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * F <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1135	1235	
==>= (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * F <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1135	1235	
==>= (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12264	12367	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9821	9924	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12264	12367	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9821	9924	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12264	12367	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9821	9924	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1009	1109	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1521	1621	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1009	1109	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1521	1621	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1009	1109	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1521	1621	
==>[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	69	181	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	430	542	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	69	181	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	430	542	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	69	181	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	430	542	
==>""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11430	11571	
==>my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It wi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11430	11571	
==>my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It wi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11430	11571	
==>my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	135	238	
==>ant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	135	238	
==>ant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	135	238	
==>ant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6621	6722	
==>$method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6621	6722	
==>$method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6621	6722	
==>$method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18597	18686	
==>6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18597	18686	
==>6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18597	18686	
==>6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11368	11515	
==>is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLA <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11368	11515	
==>is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLA <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11368	11515	
==>is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7576	7718	
==>2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which reall <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7576	7718	
==>2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which reall <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7576	7718	
==>2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which reall <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2680	2859	
==>t error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $me <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2680	2859	
==>t error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1074	1191	
==>::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1074	1191	
==>::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1074	1191	
==>::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::sub <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	713	821	
==>rl; # something to run the program
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Bl <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39972	40187	
==>->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17762	17971	
==>->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19520	19727	
==>->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41031	41236	
==>->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6392	6502	
==>elf.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6392	6502	
==>elf.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1852	1954	
==>e sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1852	1954	
==>e sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1852	1954	
==>e sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29077	29170	
==>t returns a new Relation::Example
which is the same as the invocant Relation::Example but that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31925	32018	
==>t returns a new Relation::Example
which is the same as the invocant Relation::Example but that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32972	33065	
==>t returns a new Relation::Example
which is the same as the invocant Relation::Example but that <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7547	7704	
==>ned $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7547	7704	
==>ned $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7547	7704	
==>ned $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	424	526	
==>ule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	424	526	
==>ule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7593	7690	
==>should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defau <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7593	7690	
==>should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defau <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8453	8543	
==>mmar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2278	2368	
==>mmar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @sta <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24814	24914	
==>f an invoked routine
simply returns, you can assume that it has succeeded, even if the return
value i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22428	22528	
==>f an invoked routine simply
returns, you can assume that it has succeeded, even if the return value i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9714	9814	
==>f an invoked routine
simply returns, you can assume that it has succeeded, even if the return
value i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24814	24914	
==>f an invoked routine
simply returns, you can assume that it has succeeded, even if the return
value i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22428	22528	
==>f an invoked routine simply
returns, you can assume that it has succeeded, even if the return value i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9714	9814	
==>f an invoked routine
simply returns, you can assume that it has succeeded, even if the return
value i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17179	17276	
==>age(s) of the intended audience for the message
content.  The value is one or more language tags a <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17179	17276	
==>age(s) of the intended audience for the message
content.  The value is one or more language tags a <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	417	514	
==>}

BEGIN{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31398	31491	
==>predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35948	36041	
==>predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35166	35259	
==>predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
R <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3466	3561	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6480	6575	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8548	8643	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3466	3561	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6480	6575	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8548	8643	
==>_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20147	20271	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17286	17410	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20147	20271	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17286	17410	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20147	20271	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17286	17410	
==>n $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14044	14197	
==>lse {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14044	14197	
==>lse {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14044	14197	
==>lse {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16325	16430	
==>$xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16325	16430	
==>$xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16325	16430	
==>$xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13386	13507	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13386	13507	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13386	13507	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1945	2037	
==>.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1945	2037	
==>.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1945	2037	
==>.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_fi <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3225	3339	
==>nate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            ba <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3225	3339	
==>nate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            ba <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7647	7759	
==>heading );

    return Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        b <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5800	5904	
==>parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Uni <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5282	5386	
==>parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Uni <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	8797	8900	
==>fies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relativ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	65	167	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Java <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	65	167	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Java <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	65	167	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Java <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3376	3476	
==>inal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3376	3476	
==>inal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3376	3476	
==>inal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1420	1563	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1984	2127	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1420	1563	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1984	2127	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1420	1563	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1984	2127	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3118	3253	
==>rt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3118	3253	
==>rt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3118	3253	
==>rt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	522	638	
==>,
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	522	638	
==>,
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	522	638	
==>,
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5696	5811	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8666	8781	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5696	5811	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8666	8781	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5696	5811	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8666	8781	
==>method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_meth <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	55	186	
==>::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submet <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	55	186	
==>::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7115	7222	
==>from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - need <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7115	7222	
==>from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - need <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7115	7222	
==>from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - need <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16694	16785	
==>n Perl.

=item Regexp::CharClassOps

Implements character class operations like union, inter <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4464	4592	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7113	7241	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4690	4814	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11139	11263	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4690	4814	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11139	11263	
==>ch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        dele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12086	12197	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9641	9752	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12086	12197	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9641	9752	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12086	12197	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9641	9752	
==>ivate_method(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9682	9872	
==>(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	264	444	
==>(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	264	444	
==>(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6164	6257	
==>urn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6164	6257	
==>urn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6164	6257	
==>urn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10976	11130	
==>e, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use ne <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10976	11130	
==>e, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use ne <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4771	4870	
==>urns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3898	3997	
==>urns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4771	4870	
==>urns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3898	3997	
==>urns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3358	3547	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6294	6483	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3358	3547	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6294	6483	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3358	3547	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6294	6483	
==>ackage_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5894	6017	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4014	4137	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5894	6017	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4014	4137	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5894	6017	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4014	4137	
==>asses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30756	30956	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32475	32675	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30756	30956	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32475	32675	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30756	30956	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32475	32675	
==>t_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10907	11040	
==>rrent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10907	11040	
==>rrent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10907	11040	
==>rrent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	769	864	
==>ne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	769	864	
==>ne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	769	864	
==>ne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5881	6188	
==>an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %even <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5881	6188	
==>an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %even <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2161	2276	
==>ss "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2161	2276	
==>ss "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2161	2276	
==>ss "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess " <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14279	14374	
==>rated.

What is returned at each element of the iteration varies with function.
C<keys> only ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10010	10132	
==>--
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10010	10132	
==>--
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10010	10132	
==>--
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9987	10091	
==>-------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9987	10091	
==>-------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9987	10091	
==>-------------------------
    # has %:methods;
    # has %:attributes;
    # ---------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3725	3838	
==>s;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3725	3838	
==>s;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3725	3838	
==>s;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	902	999	
==>tching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	902	999	
==>tching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	902	999	
==>tching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5715	5832	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3835	3952	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5715	5832	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3835	3952	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5715	5832	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3835	3952	
==>at none of the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3671	3788	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6607	6724	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3671	3788	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6607	6724	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3671	3788	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6607	6724	
==>ing/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13513	13622	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10797	10906	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13513	13622	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10797	10906	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13513	13622	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10797	10906	
==>$self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1329	1428	
==>P;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4296	4395	
==>thods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1329	1428	
==>P;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCES <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1329	1428	
==>P;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4296	4395	
==>thods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4296	4395	
==>thods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11080	11203	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12551	12674	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14557	14680	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16028	16151	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13865	13988	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15390	15513	
==>$!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	677	788	
==>fail(),

           and it should not backtrack or whatever



Continuations are used for backtracking.



A "ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10545	10656	
==>fail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ru <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	650	756	
==>fail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3988	4093	
==>all <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3988	4093	
==>all <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3988	4093	
==>all <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28790	28993	
==>>get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send('_merge')
                            ) <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3085	3201	
==>ircumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otil <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3085	3201	
==>ircumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	694	841	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	782	929	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	694	841	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	782	929	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	694	841	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	782	929	
==>hift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8753	8920	
==>] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            boo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12658	12805	
==>] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { boo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12658	12805	
==>] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { boo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9654	9788	
==>lue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9654	9788	
==>lue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9654	9788	
==>lue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unbo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3514	3615	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6528	6629	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8596	8697	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3514	3615	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6528	6629	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8596	8697	
==>path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2122	2226	
==>cify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2122	2226	
==>cify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2122	2226	
==>cify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2167	2269	
==>, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2167	2269	
==>, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2167	2269	
==>, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7644	7798	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5203	5357	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7644	7798	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5203	5357	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7644	7798	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5203	5357	
==>} @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reaso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19449	19558	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16681	16790	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19449	19558	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16681	16790	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19449	19558	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16681	16790	
==>TORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8947	9105	
==>an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8947	9105	
==>an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8947	9105	
==>an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	123	222	
==>RSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	123	222	
==>RSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	123	222	
==>RSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespac <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8858	8966	
==>h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.head <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8858	8966	
==>h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.head <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	1663	1761	
==>utput from the test in a
certain format.  That format is called TAP, the Test Anything
Protocol.  I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18041	18137	
==>infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18041	18137	
==>infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18041	18137	
==>infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4648	4790	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7297	7439	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4869	5006	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11318	11455	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4869	5006	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11318	11455	
==>mper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3843	3951	
==>ugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3843	3951	
==>ugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3843	3951	
==>ugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4307	4402	
==>ms}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4307	4402	
==>ms}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4307	4402	
==>ms}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_co <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	298	419	
==>);
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the PO <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	302	423	
==>);
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the PO <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	298	419	
==>);
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the PO <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	302	423	
==>);
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the PO <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2247	2345	
==>ixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', othe <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2247	2345	
==>ixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', othe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2615	2782	
==>t = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2820	2987	
==>t = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3892	4059	
==>t = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8326	8440	
==>:PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8326	8440	
==>:PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8326	8440	
==>:PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16474	16572	
==>her ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16474	16572	
==>her ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16474	16572	
==>her ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1769	1865	
==>$PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1769	1865	
==>$PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1769	1865	
==>$PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; preco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16286	16437	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21003	21154	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16286	16437	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21003	21154	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16286	16437	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21003	21154	
==>registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2616	2744	
==>in( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2616	2744	
==>in( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2616	2744	
==>in( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4635	4727	
==>s refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Roo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4635	4727	
==>s refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Roo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4635	4727	
==>s refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Roo <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2195	2371	
==>redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @r <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2195	2371	
==>redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	241	388	
==>] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3039	3141	
==>itle</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3039	3141	
==>itle</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () <==
6	/Users/nnunley/pugs/util/svnlog2graph.pl	1866	1964	
==>h->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4991	5098	
==>s_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4991	5098	
==>s_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4991	5098	
==>s_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	458	550	
==>ldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	458	550	
==>ldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	458	550	
==>ldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edit <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2343	2473	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2343	2473	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2343	2473	
==>> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10584	10688	
==>= File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10584	10688	
==>= File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10584	10688	
==>= File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4241	4409	
==>ubmethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4241	4409	
==>ubmethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4241	4409	
==>ubmethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6767	6921	
==>ubmethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6767	6921	
==>ubmethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6767	6921	
==>ubmethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16340	16467	
==>heck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16340	16467	
==>heck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16340	16467	
==>heck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1267	1358	
==>se namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1267	1358	
==>se namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1267	1358	
==>se namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3008	3125	
==>def
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3008	3125	
==>def
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3008	3125	
==>def
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2065	2161	
==>udepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Prec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2065	2161	
==>udepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Prec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2065	2161	
==>udepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Prec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30694	30921	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32413	32640	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30694	30921	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32413	32640	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30694	30921	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32413	32640	
==>, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8005	8107	
==>return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7731	7829	
==>return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	940	1069	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1028	1157	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	940	1069	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1028	1157	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	940	1069	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1028	1157	
==>all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10857	11011	
==>D() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10857	11011	
==>D() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10857	11011	
==>D() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5432	5530	
==>);
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,"> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5432	5530	
==>);
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,"> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5432	5530	
==>);
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,"> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2442	2554	
==>e  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2442	2554	
==>e  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2442	2554	
==>e  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3172	3293	
==>$block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'ref <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3472	3593	
==>$block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'ref <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1830	1951	
==>$block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2610	2731	
==>$block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'ref <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1569	1687	
==>turn $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) retur <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1569	1687	
==>turn $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11438	11614	
==>=> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11438	11614	
==>=> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11438	11614	
==>=> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2357	2456	
==>"%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2357	2456	
==>"%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2357	2456	
==>"%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{p <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3949	4049	
==>his is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3949	4049	
==>his is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5473	5573	
==>his is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30397	30490	
==>mble those of the original. 
The anonymous function in the argument C<$transformer> is invoked <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34949	35041	
==>mble those of the original.
The anonymous function in the argument C<$transformer> is invoked <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34131	34223	
==>mble those of the original.
The anonymous function in the argument C<$transformer> is invoked <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9106	9221	
==>D();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

--- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9106	9221	
==>D();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

--- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9106	9221	
==>D();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

--- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1336	1443	
==>lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1336	1443	
==>lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1336	1443	
==>lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10727	10860	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15268	15401	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10727	10860	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15268	15401	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10727	10860	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15268	15401	
==>s a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1067	1178	
==>lly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1067	1178	
==>lly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1067	1178	
==>lly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4452	4558	
==>*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4452	4558	
==>*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4452	4558	
==>*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	624	722	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1144	1242	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	624	722	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1144	1242	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	624	722	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1144	1242	
==>ngs) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1727	1859	
==>);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1727	1859	
==>);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    fore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1727	1859	
==>);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    fore <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1864	1967	
==>n ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1864	1967	
==>n ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1864	1967	
==>n ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH()) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4038	4138	
==>e information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4038	4138	
==>e information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7017	7116	
==>e information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9087	9186	
==>e information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7017	7116	
==>e information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9087	9186	
==>e information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4060	4167	
==>ay that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so  <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4060	4167	
==>ay that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so  <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4060	4167	
==>ay that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so  <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9573	9676	
==>erl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9573	9676	
==>erl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9573	9676	
==>erl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4003	4122	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4941	5060	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2237	2356	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2483	2602	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3018	3137	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3264	3383	
==>$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15838	15964	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13088	13214	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15838	15964	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13088	13214	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15838	15964	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13088	13214	
==>Arguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24177	24274	
==><$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attrib <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28729	28826	
==><$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attrib <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21640	21734	
==>hashref, containing:

=over

=item C<line>

The original line received from the server (unmodif <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20521	20615	
==>hashref, containing:

=over

=item C<line>

The original line received from the server (unmodif <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21640	21734	
==>hashref, containing:

=over

=item C<line>

The original line received from the server (unmodif <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20521	20615	
==>hashref, containing:

=over

=item C<line>

The original line received from the server (unmodif <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2895	3012	
==>t.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2895	3012	
==>t.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $test <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4419	4536	
==>t.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $test <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	639	737	
==>sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	639	737	
==>sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	639	737	
==>sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6001	6105	
==>ACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of gl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6001	6105	
==>ACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of gl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6001	6105	
==>ACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of gl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2437	2537	
==>the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2437	2537	
==>the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2437	2537	
==>the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11043	11184	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12514	12655	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14520	14661	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15991	16132	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13828	13969	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15353	15494	
==>dy => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; result is second source.
        r <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2949	3087	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10872	11010	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6074	6212	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2949	3087	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10872	11010	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6074	6212	
==>}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9453	9560	
==>---------------------------------      
    # this collects a unique list of roles 
    # gather recursively <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9453	9560	
==>---------------------------------      
    # this collects a unique list of roles 
    # gather recursively <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9453	9560	
==>---------------------------------      
    # this collects a unique list of roles 
    # gather recursively <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9439	9548	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6986	7095	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9439	9548	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6986	7095	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9439	9548	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6986	7095	
==>eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3912	4006	
==>rrently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3912	4006	
==>rrently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6892	6985	
==>rrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8962	9055	
==>rrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6892	6985	
==>rrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8962	9055	
==>rrently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
by a number of people. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2144	2265	
==>nt( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11012	11133	
==>nt( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2337	2458	
==>nt( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11291	11412	
==>nt( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', <==
6	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	371	471	
==>you need.

= WHY

You should use this module as a starting point to base
a new module distribution on <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7749	7845	
==>bool = $repo->add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7848	7999	
==>fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7848	7999	
==>fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7848	7999	
==>fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1871	1989	
==>label =~ /DESTROY/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## ------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29278	29374	
==>turns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mappin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33830	33926	
==>turns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mappin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9127	9236	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6674	6783	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9127	9236	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6674	6783	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9127	9236	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6674	6783	
==>the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($or <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4982	5087	
==>nsions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensions};

    foreach my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	417	519	
==>eep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	417	519	
==>eep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	417	519	
==>eep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17195	17290	
==>amp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17195	17290	
==>amp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10510	10662	
==>am = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = jo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10510	10662	
==>am = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = jo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10510	10662	
==>am = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = jo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9295	9407	
==>"Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9295	9407	
==>"Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9295	9407	
==>"Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF-> <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26690	26831	
==>_subclass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16590	16713	
==>uiltin);
    }

    return $val;
}

sub reduce_val {
    my $self = shift;
    my $node = shift;

    return Val->new($self- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2807	2907	
==>() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $ot <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2628	2728	
==>() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $ot <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2807	2907	
==>() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $ot <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2628	2728	
==>() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $ot <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4924	5037	
==>$DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_typ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4924	5037	
==>$DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_typ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4924	5037	
==>$DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	279	376	
==>here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	279	376	
==>here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	279	376	
==>here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16505	16611	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21222	21328	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16505	16611	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21222	21328	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16505	16611	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21222	21328	
==>is *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them, then set a <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6734	6864	
==>1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _g <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6734	6864	
==>1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _g <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	22	107	
==>ge Blondie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::Dynami <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2769	2852	
==>Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2769	2852	
==>Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2769	2852	
==>Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2383	2503	
==>_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_el <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7477	7597	
==>_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_el <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2383	2503	
==>_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_el <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7477	7597	
==>_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_el <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2084	2201	
==>cent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2084	2201	
==>cent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2438	2586	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4765	4913	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2438	2586	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4765	4913	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2438	2586	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4765	4913	
==>ame => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6265	6384	
==>m\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{pat <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	433	545	
==>rmation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	433	545	
==>rmation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4047	4146	
==>am{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4047	4146	
==>am{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4047	4146	
==>am{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops} <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	2173	2320	
==>r % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        re <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2173	2320	
==>r % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        re <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	135	239	
==>./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

= <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	135	239	
==>./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

= <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1131	1231	
==>elf = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $ <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1131	1231	
==>elf = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3501	3611	
==>$_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3501	3611	
==>$_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3501	3611	
==>$_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4228	4329	
==>.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4228	4329	
==>.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4228	4329	
==>.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHac <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	60	157	
==>s::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	60	157	
==>s::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used t <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	989	1081	
==>output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m) <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	989	1081	
==>output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3199	3283	
==>tBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3385	3469	
==>tBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4325	4426	
==>::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  loc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4325	4426	
==>::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  loc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4325	4426	
==>::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3788	3885	
==>name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3788	3885	
==>name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3788	3885	
==>name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4877	4972	
==>ole contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passe <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4877	4972	
==>ole contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7074	7169	
==>ole contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14304	14388	
==>@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14304	14388	
==>@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14304	14388	
==>@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4644	4749	
==>{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4644	4749	
==>{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5440	5534	
==>t is essentially read-only, however, all the return values of the
closure are collected into an <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22614	22706	
==>w seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22614	22706	
==>w seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7137	7226	
==>etachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1), {I i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9080	9196	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6627	6743	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9080	9196	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6627	6743	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9080	9196	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6627	6743	
==>er) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14805	14924	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19504	19623	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14805	14924	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19504	19623	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14805	14924	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19504	19623	
==>1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2239	2374	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4566	4701	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2239	2374	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4566	4701	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2239	2374	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4566	4701	
==>f a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You m <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4491	4640	
==>n.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsi <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4491	4640	
==>n.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsi <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4037	4147	
==>() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6202	6298	
==>eature is useful, like custom, for when you don't want to mess
with members belonging to 3rd part <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6202	6298	
==>eature is useful, like custom, for when you don't want to mess
with members belonging to 3rd part <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6202	6298	
==>eature is useful, like custom, for when you don't want to mess
with members belonging to 3rd part <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1418	1526	
==>n MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\ <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2872	2980	
==>n MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\ <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1418	1526	
==>n MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2939	3039	
==>ram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2939	3039	
==>ram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2939	3039	
==>ram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16241	16364	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13452	13575	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16241	16364	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13452	13575	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16241	16364	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13452	13575	
==>{
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5125	5233	
==>bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5347	5455	
==>bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5657	5845	
==>' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4153	4268	
==>capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4025	4138	
==>capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13793	13892	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13793	13892	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13793	13892	
==>method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29853	29946	
==>mes as old attributes
that were wrapped, and it supports having old tuple-valued attributes wh <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34405	34498	
==>mes as old attributes
that were wrapped, and it supports having old tuple-valued attributes wh <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33569	33662	
==>mes as old attributes
that were wrapped, and it supports having old tuple-valued attributes wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2132	2224	
==>gth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2132	2224	
==>gth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2132	2224	
==>gth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.leng <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2102	2218	
==>t' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.re <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4321	4437	
==>t' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.re <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2102	2218	
==>t' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.re <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4321	4437	
==>t' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.re <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4641	4746	
==>ile.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instanti <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4641	4746	
==>ile.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instanti <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	837	956	
==>m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_l <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	837	956	
==>m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5200	5308	
==>gs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6468	6576	
==>gs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5200	5308	
==>gs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6456	6564	
==>gs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8169	8330	
==>b {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8169	8330	
==>b {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8169	8330	
==>b {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1091	1207	
==>ODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1091	1207	
==>ODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1091	1207	
==>ODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4848	4998	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5809	5959	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4848	4998	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5809	5959	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4848	4998	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5809	5959	
==>b { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4101	4223	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6750	6872	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4336	4455	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10785	10904	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4336	4455	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10785	10904	
==>untime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5865	5972	
==>E

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5865	5972	
==>E

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5865	5972	
==>E

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1030	1131	
==>stant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1030	1131	
==>stant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1030	1131	
==>stant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13444	13544	
==>l extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DES <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13444	13544	
==>l extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DES <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13444	13544	
==>l extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17364	17457	
==>ts platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17364	17457	
==>ts platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17364	17457	
==>ts platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6049	6180	
==>lems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6049	6180	
==>lems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6049	6180	
==>lems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13001	13096	
==>rn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Excepti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13001	13096	
==>rn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Excepti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13001	13096	
==>rn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Excepti <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7120	7226	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6250	6356	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2904	3010	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2904	3010	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7120	7226	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6250	6356	
==>ulti sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	658	756	
==>a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	658	756	
==>a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	658	756	
==>a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	949	1045	
==>o bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	949	1045	
==>o bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	949	1045	
==>o bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26375	26535	
==>l6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26375	26535	
==>l6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26375	26535	
==>l6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8044	8168	
==>Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8032	8156	
==>Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           i <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	1341	1426	
==>ch)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2357	2475	
==>NDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2357	2475	
==>NDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2357	2475	
==>NDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2729	2831	
==>head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2729	2831	
==>head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4253	4355	
==>head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11192	11322	
==>'$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11192	11322	
==>'$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11192	11322	
==>'$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9156	9255	
==>ugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9156	9255	
==>ugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9156	9255	
==>ugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $f <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11268	11384	
==>s identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-j <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14745	14861	
==>s identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-j <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14053	14169	
==>s identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-j <==
6	/Users/nnunley/pugs/util/build_pugs.pl	7200	7314	
==>n OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $ <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9981	10076	
==>lso provides methods for iterating through the set, and for querying 
set properties.

Note that <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9981	10076	
==>lso provides methods for iterating through the set, and for querying 
set properties.

Note that <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6804	6914	
==>Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6804	6914	
==>Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3703	3813	
==>Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3924	4027	
==>se Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3924	4027	
==>se Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3924	4027	
==>se Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15367	15495	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15367	15495	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15367	15495	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2198	2294	
==>ilename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2198	2294	
==>ilename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2198	2294	
==>ilename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (file <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6573	6726	
==>hift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10780	10933	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7859	8005	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6361	6507	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7859	8005	
==>hift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4776	4873	
==>$left->elems->to_native) {
        # warn "calling equal_to on " . $left->fetch($i)->name->to_nati <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1371	1490	
==>------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3667	3786	
==>------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1371	1490	
==>------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3667	3786	
==>------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2 <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6020	6114	
==>tcomb. All rights reserved.
This program is free software; you can redistribute it
and/or modif <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6020	6114	
==>tcomb. All rights reserved.
This program is free software; you can redistribute it
and/or modif <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15161	15266	
==>timization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18638	18743	
==>timization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18054	18159	
==>timization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4957	5047	
==>S.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4957	5047	
==>S.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4957	5047	
==>S.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14114	14234	
==>XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statemen <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10287	10407	
==>XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statemen <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11123	11243	
==>XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statemen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	832	928	
==>S.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	832	928	
==>S.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	832	928	
==>S.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15772	15895	
==>d ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15772	15895	
==>d ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15772	15895	
==>d ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2216	2331	
==>$namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2216	2331	
==>$namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2216	2331	
==>$namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23465	23571	
==>(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23465	23571	
==>(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23465	23571	
==>(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($m <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19679	19774	
==>ords, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Ros <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19679	19774	
==>ords, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Ros <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18395	18489	
==>embedded
class, set the I<anyof> object's C<strict> attribute to 1; the character
class would r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1188	1305	
==>() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1188	1305	
==>() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_ <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	1468	1561	
==>or::nullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $.name, l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2286	2374	
==>{ ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2286	2374	
==>{ ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2286	2374	
==>{ ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	707	821	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	707	821	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	707	821	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1004	1102	
==>PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1004	1102	
==>PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1004	1102	
==>PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3393	3535	
==>def);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3393	3535	
==>def);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3393	3535	
==>def);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	312	411	
==>ain_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	312	411	
==>ain_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	312	411	
==>ain_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13890	14029	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13890	14029	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13890	14029	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3331	3422	
==>ON

The Test::Builder::Test class represents a single test within the
Test::Builder framewor <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3331	3422	
==>ON

The Test::Builder::Test class represents a single test within the
Test::Builder framewor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5528	5619	
==>ON

The Test::Builder::Test class represents a single test within the
Test::Builder framewor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3672	3803	
==>], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4201	4311	
==>by $top_class $top_version\n"
        . ($self->postamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12103	12313	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12875	13085	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12103	12313	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12875	13085	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12103	12313	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12875	13085	
==>->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4206	4340	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6855	6989	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4438	4569	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10887	11018	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4438	4569	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10887	11018	
==>urn: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Mat <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2887	3002	
==>r::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2887	3002	
==>r::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4411	4526	
==>r::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4776	4876	
==>ts
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4776	4876	
==>ts
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6300	6400	
==>ts
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7023	7227	
==>only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method ext <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7023	7227	
==>only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method ext <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7052	7189	
==>macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7052	7189	
==>macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7052	7189	
==>macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	36	139	
==>nings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purposes, as th <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9252	9377	
==>efine the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            m <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9252	9377	
==>efine the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15239	15362	
==>= 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15518	15641	
==>= 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4285	4407	
==>let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{captu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4297	4419	
==>let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{captu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8706	8861	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11679	11834	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8706	8861	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11679	11834	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8706	8861	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11679	11834	
==>hout the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5426	5550	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8396	8520	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5426	5550	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8396	8520	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5426	5550	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8396	8520	
==>s that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14912	15082	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14912	15082	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14912	15082	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19611	19780	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19611	19780	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19611	19780	
==>OAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6176	6295	
==>= ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6176	6295	
==>= ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6176	6295	
==>= ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3241	3359	
==>= ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3241	3359	
==>= ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3241	3359	
==>= ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_pac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16186	16284	
==>->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16186	16284	
==>->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16186	16284	
==>->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13597	13693	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13597	13693	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13597	13693	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1577	1727	
==>me}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1577	1727	
==>me}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1577	1727	
==>me}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2395	2530	
==>l6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2395	2530	
==>l6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2395	2530	
==>l6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4440	4539	
==>ubclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4440	4539	
==>ubclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4440	4539	
==>ubclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12596	12724	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13175	13303	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12596	12724	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13175	13303	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12596	12724	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13175	13303	
==>$bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13498	13605	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10782	10889	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13498	13605	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10782	10889	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13498	13605	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10782	10889	
==>_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1793	1906	
==>asons,

# because they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1721	1829	
==>asons,
# because they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	719	810	
==>Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_lev <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	719	810	
==>Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_lev <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13325	13415	
==>%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $string <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13325	13415	
==>%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5515	5621	
==>"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// De <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34751	34857	
==>ody, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5515	5621	
==>"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// De <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5515	5621	
==>"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// De <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34751	34857	
==>ody, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34751	34857	
==>ody, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1433	1557	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2996	3120	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1433	1557	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2996	3120	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1433	1557	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2996	3120	
==>ce. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = und <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4164	4271	
==>Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mappin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7641	7748	
==>Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mappin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2062	2166	
==>}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 S <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2062	2166	
==>}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 S <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1300	1396	
==>}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 S <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3161	3257	
==>}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	444	607	
==>,
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	444	607	
==>,
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	444	607	
==>,
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3859	3957	
==>::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3859	3957	
==>::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3859	3957	
==>::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6836	6980	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7597	7741	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8467	8611	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10313	10457	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11074	11218	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11944	12088	
==>ot match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8241	8371	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5800	5930	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8241	8371	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5800	5930	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8241	8371	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5800	5930	
==>pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6220	6423	
==>hod(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6220	6423	
==>hod(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6220	6423	
==>hod(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13737	13833	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13737	13833	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13737	13833	
==>to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6411	6519	
==>$Result2;
}

# 9.4
multi sub ToInteger(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = To <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5765	5862	
==>Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4895	4992	
==>Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5765	5862	
==>Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4895	4992	
==>Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9679	9769	
==>Foo::another_test_iFoo_singleton_method',
  '... got the right return value from another $i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9574	9696	
==>rgs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bl <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5915	6037	
==>rgs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6764	6886	
==>rgs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9976	10090	
==>dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9976	10090	
==>dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9976	10090	
==>dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9910	10021	
==>[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_lis <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15751	15862	
==>[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_lis <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9910	10021	
==>[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_lis <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15745	15856	
==>[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_lis <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	308	411	
==>ort Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.ne <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	308	411	
==>ort Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.ne <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2230	2343	
==>n::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box(" <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2230	2343	
==>n::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box(" <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30208	30301	
==>mes that correspond
to Message Variables, which will be substituted at run-time before the tex <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30208	30301	
==>mes that correspond
to Message Variables, which will be substituted at run-time before the tex <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16828	16918	
==>onment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText do <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16828	16918	
==>onment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6952	7078	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9922	10048	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6952	7078	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9922	10048	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6952	7078	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9922	10048	
==>method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	507	627	
==>pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	507	627	
==>pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	507	627	
==>pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3075	3173	
==>k_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3075	3173	
==>k_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3075	3173	
==>k_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw functi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7717	7855	
==>e'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7910	8048	
==>e'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure => <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5091	5199	
==>ne how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5091	5199	
==>ne how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22957	23056	
==>roach over similar packages is that
text is always looked up by a key which is not meant to be meani <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22957	23056	
==>roach over similar packages is that
text is always looked up by a key which is not meant to be meani <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4883	5009	
==>376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4883	5009	
==>376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13937	14056	
==>, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13937	14056	
==>, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13007	13118	
==>, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13007	13118	
==>, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13258	13374	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18141	18257	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13258	13374	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18141	18257	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13258	13374	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18141	18257	
==>t METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is locali <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19836	19928	
==>s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19836	19928	
==>s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19836	19928	
==>s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
M <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	994	1084	
==>t::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	994	1084	
==>t::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1074	1164	
==>t::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9028	9177	
==>_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an arr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5388	5537	
==>_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an arr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6237	6386	
==>_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4747	4858	
==>$self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4747	4858	
==>$self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4747	4858	
==>$self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4438	4559	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7087	7208	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4664	4782	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11113	11231	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4664	4782	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11113	11231	
==>st-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        dele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3871	4032	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6807	6968	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3871	4032	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6807	6968	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3871	4032	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6807	6968	
==>wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5873	5983	
==>) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5873	5983	
==>) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5873	5983	
==>) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    j <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24394	24492	
==>thods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28946	29044	
==>thods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27813	27911	
==>thods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11299	11452	
==>= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11299	11452	
==>= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11299	11452	
==>= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8147	8270	
==>nwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8147	8270	
==>nwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8147	8270	
==>nwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    retu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26900	26995	
==>esponding argument is
provided (it defaults to empty if the argument is not provided).

Some exa <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26900	26995	
==>esponding argument is
provided (it defaults to empty if the argument is not provided).

Some exa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23080	23173	
==>gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you ca <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21889	21982	
==>gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you ca <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23080	23173	
==>gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you ca <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21889	21982	
==>gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you ca <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13274	13372	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4444	4542	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8900	8998	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13274	13372	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4444	4542	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8900	8998	
==>mentation or 'use' statements or Perl archive indexes.  Aside from
'use' statements, you should nev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2822	2961	
==>b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2822	2961	
==>b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2822	2961	
==>b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5955	6071	
==>_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5955	6071	
==>_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5955	6071	
==>_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($rol <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28159	28258	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29170	29269	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32711	32810	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33722	33821	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31821	31920	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32868	32967	
==>>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational operator <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1619	1727	
==>PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1619	1727	
==>PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1619	1727	
==>PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	818	907	
==>NDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	818	907	
==>NDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	818	907	
==>NDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pN <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17141	17249	
==>,F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(s <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17298	17406	
==>,F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(s <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17546	17654	
==>,F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(s <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17730	17838	
==>,F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23716	23814	
==>ch can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is gene <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23716	23814	
==>ch can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is gene <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10172	10312	
==>s6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10172	10312	
==>s6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10172	10312	
==>s6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32382	32479	
==>il if
C<$other> does not have an identical header to the invocant relation.  This
method has an al <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36932	37029	
==>il if
C<$other> does not have an identical header to the invocant relation.  This
method has an al <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36222	36319	
==>il if
C<$other> does not have an identical header to the invocant relation.  This
method has an al <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4977	5087	
==>e block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4977	5087	
==>e block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4977	5087	
==>e block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	258	356	
==>(separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	258	356	
==>(separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	258	356	
==>(separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17304	17415	
==>ach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17304	17415	
==>ach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17304	17415	
==>ach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6151	6260	
==>globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6151	6260	
==>globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6151	6260	
==>globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new( <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	1110	1225	
==>);    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unl <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1110	1225	
==>);    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unl <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6415	6510	
==>ode_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6415	6510	
==>ode_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	112	202	
==>use Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	112	202	
==>use Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6827	6933	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6827	6933	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6827	6933	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	489	593	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	489	593	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	489	593	
==>) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17027	17207	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21742	21922	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17027	17207	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21742	21922	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17027	17207	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21742	21922	
==>ass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19921	20038	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17060	17177	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19921	20038	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17060	17177	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19921	20038	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17060	17177	
==>e->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # class attribut <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	288	536	
==>used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1 <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	288	536	
==>used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3759	3878	
==>method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3759	3878	
==>method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3759	3878	
==>method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FG <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	516	608	
==>):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is still relatively "functiona <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2694	2860	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11396	11562	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16501	16667	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2887	3053	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11675	11841	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16780	16946	
==>,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4823	4944	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7472	7593	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5038	5153	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11487	11602	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5038	5153	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11487	11602	
==>ubstr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3488	3605	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6016	6133	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3488	3605	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6016	6133	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3488	3605	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6016	6133	
==>body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4595	4741	
==>,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4595	4741	
==>,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4595	4741	
==>,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2368	2459	
==>fix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2368	2459	
==>fix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2368	2459	
==>fix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8581	8726	
==>push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8581	8726	
==>push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8581	8726	
==>push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38661	38757	
==>.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITA <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3384	3470	
==>15?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0 <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3384	3470	
==>15?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13494	13619	
==>ip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13494	13619	
==>ip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13494	13619	
==>ip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6871	6985	
==>y @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6871	6985	
==>y @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6871	6985	
==>y @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	612	742	
==>my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	647	777	
==>my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	612	742	
==>my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_p <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9829	9959	
==>my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_p <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1085	1215	
==>my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_p <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1888	2011	
==>es = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	92	198	
==>eturn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	92	198	
==>eturn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	92	198	
==>eturn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35954	36053	
==>e values are aligned and merged.  The heading
of the new relation is the union of the invocant and < <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40504	40603	
==>e values are aligned and merged.  The heading
of the new relation is the union of the invocant and < <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40118	40217	
==>e values are aligned and merged.  The heading
of the new relation is the union of the invocant and < <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5956	6136	
==>ep => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5956	6136	
==>ep => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5956	6136	
==>ep => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4766	4863	
==>]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4766	4863	
==>]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4766	4863	
==>]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2975	3073	
==>ssed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2975	3073	
==>ssed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2975	3073	
==>ssed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16936	17025	
==>));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16936	17025	
==>));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16936	17025	
==>));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$ <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1243	1381	
==>.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.new
        ( :year($year), :month( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11322	11439	
==>ty = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11322	11439	
==>ty = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11322	11439	
==>ty = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2898	2996	
==>> (or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meaning <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2898	2996	
==>> (or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meaning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16788	16929	
==>bject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16788	16929	
==>bject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16788	16929	
==>bject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3450	3548	
==>I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3450	3548	
==>I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3450	3548	
==>I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die " <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4730	4847	
==>L_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4730	4847	
==>L_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1636	1753	
==>L_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1048	1146	
==>, "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1048	1146	
==>, "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1048	1146	
==>, "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	123	228	
==>Nil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	123	228	
==>Nil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	123	228	
==>Nil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	475	572	
==>mp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	475	572	
==>mp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	475	572	
==>mp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5767	5875	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3887	3995	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5767	5875	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3887	3995	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5767	5875	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3887	3995	
==>so subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($ <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	104	202	
==>imited piln version with a more
# general p6 one after bootstrap).  Or spec code which doesnt actua <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	684	779	
==>ethods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	684	779	
==>ethods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	684	779	
==>ethods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; ne <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1739	1830	
==>LStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1739	1830	
==>LStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3075	3185	
==>l, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3075	3185	
==>l, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3075	3185	
==>l, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	133	224	
==>'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B () <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	133	224	
==>'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B () <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	133	224	
==>'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B () <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	184	292	
==>$RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScr <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	184	292	
==>$RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5470	5566	
==>EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5470	5566	
==>EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5470	5566	
==>EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacc <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1472	1566	
==>ile::Spec->catfile($path, "lib");
    $self->makemaker_args->{INST_ARCHLIB} =
      File::Spec- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12504	12597	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10055	10148	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12504	12597	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10055	10148	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12504	12597	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10055	10148	
==>rn 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2583	2719	
==>);
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2583	2719	
==>);
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2583	2719	
==>);
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2097	2192	
==>::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2097	2192	
==>::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2097	2192	
==>::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15070	15183	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12324	12437	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15070	15183	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12324	12437	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15070	15183	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12324	12437	
==>paque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1586	1691	
==>rs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_ev <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1576	1681	
==>rs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1586	1691	
==>rs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1586	1691	
==>rs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_ev <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6713	6810	
==>L and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6713	6810	
==>L and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1167	1310	
==>nostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diag <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1167	1310	
==>nostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1301	1399	
==>anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard ag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1301	1399	
==>anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard ag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1301	1399	
==>anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard ag <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4322	4410	
==>term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule->compile(< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10385	10548	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7936	8099	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10385	10548	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7936	8099	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10385	10548	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7936	8099	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    po <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2462	2590	
==>->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2602	2730	
==>->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4357	4453	
==>eturn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ( <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15793	15889	
==>eturn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ( <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4357	4453	
==>eturn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ( <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15793	15889	
==>eturn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4953	5087	
==>tore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4953	5087	
==>tore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4953	5087	
==>tore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1790	1919	
==>r
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1790	1919	
==>r
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1790	1919	
==>r
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38329	38436	
==>count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38329	38436	
==>count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38329	38436	
==>count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2060	2152	
==>e('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2060	2152	
==>e('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2060	2152	
==>e('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11433	11595	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8986	9148	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11433	11595	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8986	9148	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11433	11595	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8986	9148	
==>not defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13291	13387	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4461	4557	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8917	9013	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13291	13387	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4461	4557	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8917	9013	
==>' statements or Perl archive indexes.  Aside from
'use' statements, you should never refer direct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2787	2892	
==>alX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2787	2892	
==>alX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2787	2892	
==>alX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2661	2752	
==>AME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2661	2752	
==>AME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2661	2752	
==>AME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1474	1663	
==>g_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () return <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1474	1663	
==>g_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () return <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7581	7676	
==>Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6711	6806	
==>Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7581	7676	
==>Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6711	6806	
==>Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3004	3134	
==>$buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html ( <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3004	3134	
==>$buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html ( <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	973	1072	
==>tify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the sa <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	973	1072	
==>tify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the sa <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18668	18764	
==>ion or package, with one or more
text strings to show human users.  This association would normal <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18668	18764	
==>ion or package, with one or more
text strings to show human users.  This association would normal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3091	3219	
==>mAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3091	3219	
==>mAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3091	3219	
==>mAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link e <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5738	5847	
==>tr( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3074	3183	
==>tr( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3923	4032	
==>tr( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1146	1261	
==>_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o);
    $s <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	223	335	
==>return ($f($x + $delta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code + <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5282	5374	
==>test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mark <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5282	5374	
==>test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mark <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6806	6898	
==>test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mark <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	805	890	
==>->emitter_class->require || die $UNIVERSAL::require::ERROR;
	$self->emitter_class->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9601	9711	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12574	12684	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9601	9711	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12574	12684	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9601	9711	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12574	12684	
==>ethod dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able to stash the curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1414	1543	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2977	3106	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1414	1543	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2977	3106	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1414	1543	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2977	3106	
==>6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5947	6042	
==>1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

= <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5947	6042	
==>1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8144	8239	
==>1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4145	4239	
==>a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4145	4239	
==>a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4145	4239	
==>a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Strin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	828	995	
==>h;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3899	4066	
==>h;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	828	995	
==>h;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3899	4066	
==>h;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1455	1614	
==>h;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1455	1614	
==>h;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	668	794	
==>runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	668	794	
==>runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	668	794	
==>runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3009	3117	
==>runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3009	3117	
==>runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3009	3117	
==>runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39044	39172	
==>method' => (
    # method label
        symbol->new('get_attributes'),
    # method body
        method->new(
            $::ENV, <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	347	447	
==>s a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	892	992	
==>s a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	347	447	
==>s a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	892	992	
==>s a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	892	992	
==>s a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	906	1035	
==>e reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	906	1035	
==>e reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	906	1035	
==>e reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2966	3068	
==>PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2966	3068	
==>PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2966	3068	
==>PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6833	6930	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5963	6060	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2617	2714	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2617	2714	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6833	6930	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5963	6060	
==>includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includes($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	363	463	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1226	1326	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	363	463	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1226	1326	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	363	463	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1226	1326	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20792	20884	
==>I SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20792	20884	
==>I SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20792	20884	
==>I SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12307	12398	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12307	12398	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12307	12398	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1255	1372	
==>h, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1255	1372	
==>h, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    re <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5168	5266	
==>rovided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	457	555	
==>ally override things they didn't intend to.

# Determine which stack frame points to the code we ar <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5168	5266	
==>rovided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	457	555	
==>ally override things they didn't intend to.

# Determine which stack frame points to the code we ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8460	8582	
==>>[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8460	8582	
==>>[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7579	7669	
==>eractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1807	1897	
==>eractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9213	9303	
==>eractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2025	2115	
==>eractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21844	22000	
==>ss);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21844	22000	
==>ss);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21844	22000	
==>ss);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @clas <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33010	33105	
==>s that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_uni <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37560	37655	
==>s that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_uni <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36904	36999	
==>s that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_uni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6454	6591	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9424	9561	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6454	6591	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9424	9561	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6454	6591	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9424	9561	
==>>isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6188	6290	
==>ful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6188	6290	
==>ful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6188	6290	
==>ful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3759	3848	
==>1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3759	3848	
==>1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3759	3848	
==>1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    < <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12513	12615	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14395	14497	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12513	12615	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14395	14497	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12513	12615	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14395	14497	
==>ift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5744	5843	
==>e}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5744	5843	
==>e}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5744	5843	
==>e}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18704	18840	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15942	16078	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18704	18840	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15942	16078	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18704	18840	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15942	16078	
==>ables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13170	13296	
==>op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7478	7596	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wra <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7227	7340	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1359	1458	
==>ess($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1359	1458	
==>ess($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1359	1458	
==>ess($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] <==
6	/Users/nnunley/pugs/util/package-osx.pl	6819	6916	
==>ew::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36362	36453	
==>n::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37073	37164	
==>n::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37523	37614	
==>n::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39677	39768	
==>n::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41549	41640	
==>n::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2322	2545	
==>w( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1462	1629	
==>w( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1462	1629	
==>w( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1155	1273	
==>on(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1155	1273	
==>on(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1155	1273	
==>on(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4462	4589	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7111	7238	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4688	4811	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11137	11260	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4688	4811	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11137	11260	
==>atch2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        d <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2811	3006	
==>onstant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::conc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2822	3017	
==>onstant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::conc <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22947	23042	
==>gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

= <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21765	21860	
==>gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

= <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22947	23042	
==>gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

= <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21765	21860	
==>gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	817	944	
==>> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	817	944	
==>> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	817	944	
==>> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	729	848	
==>);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	729	848	
==>);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	729	848	
==>);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35859	35978	
==>ody = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35859	35978	
==>ody = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35859	35978	
==>ody = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	174	278	
==>ib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	174	278	
==>ib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	174	278	
==>ib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23366	23495	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11215	11344	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19787	19916	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9395	9501	
==>isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9395	9501	
==>isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9395	9501	
==>isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17126	17291	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17126	17291	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17126	17291	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # war <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7666	7759	
==>pedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7666	7759	
==>pedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7666	7759	
==>pedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3103	3211	
==>= $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3103	3211	
==>= $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3103	3211	
==>= $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2137	2226	
==>--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2137	2226	
==>--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2137	2226	
==>--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5070	5209	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6031	6170	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5070	5209	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6031	6170	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5070	5209	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6031	6170	
==>= _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	850	954	
==>ldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	850	954	
==>ldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	850	954	
==>ldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11055	11145	
==>non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11055	11145	
==>non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11055	11145	
==>non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fil <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	754	956	
==>atch( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3825	4027	
==>atch( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	754	956	
==>atch( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3825	4027	
==>atch( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1383	1577	
==>atch( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1383	1577	
==>atch( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	349	454	
==>it: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	349	454	
==>it: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	349	454	
==>it: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1088	1215	
==>des_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1088	1215	
==>des_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1088	1215	
==>des_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24481	24601	
==>sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20902	21022	
==>sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17792	17895	
==>osing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    m <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2810	2925	
==>= (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85\u20 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24305	24404	
==>Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=ov <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28857	28956	
==>Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=ov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11069	11158	
==>rmal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11069	11158	
==>rmal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11069	11158	
==>rmal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9871	10021	
==>}, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9871	10021	
==>}, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9871	10021	
==>}, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2111	2208	
==>XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2111	2208	
==>XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2111	2208	
==>XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5283	5417	
==>$n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5295	5429	
==>$n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8959	9073	
==>ose \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spac <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	693	807	
==>ose \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spac <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8959	9073	
==>ose \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spac <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8959	9073	
==>ose \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8300	8413	
==>ring.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8300	8413	
==>ring.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8300	8413	
==>ring.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37049	37145	
==>.  In any situation where a pair of source
relations have zero attributes in common, their joinin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41598	41694	
==>.  In any situation where a pair of source
relations have zero attributes in common, their joinin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41221	41317	
==>.  In any situation where a pair of source
relations have zero attributes in common, their joinin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18583	18705	
==>of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18583	18705	
==>of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18583	18705	
==>of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    su <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27585	27701	
==>h($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $res = eval($ret); die "bug $@\n$ret" if $@;
	    #us <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24608	24701	
==>ndation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any lat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24608	24701	
==>ndation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any lat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1828	1976	
==>none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1828	1976	
==>none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1828	1976	
==>none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7283	7428	
==>ned $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7283	7428	
==>ned $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7283	7428	
==>ned $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $:: <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5262	5386	
==>nce.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5262	5386	
==>nce.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.sp <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3599	3709	
==>sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace thi <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3599	3709	
==>sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace thi <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2924	3033	
==>sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2924	3033	
==>sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9751	9869	
==>ice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9751	9869	
==>ice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9751	9869	
==>ice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	979	1061	
==>l(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	979	1061	
==>l(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	979	1061	
==>l(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7037	7196	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4596	4755	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7037	7196	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4596	4755	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7037	7196	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4596	4755	
==>b {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	963	1094	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1051	1182	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	963	1094	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1051	1182	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	963	1094	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1051	1182	
==>ing to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6043	6167	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9013	9137	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6043	6167	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9013	9137	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6043	6167	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9013	9137	
==>turn bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub ::make_stub_method () {
        return ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15098	15222	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19796	19920	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15098	15222	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19796	19920	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15098	15222	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19796	19920	
==>at should really be called
        # so we just deal with it like this, and we deal
        # with it here since this is a p5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7018	7165	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4577	4724	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7018	7165	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4577	4724	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7018	7165	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4577	4724	
==>e_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @none <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11621	11731	
==>egexp::Parser::tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	157	266	
==>'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	150	255	
==>'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	144	249	
==>'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $pa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	150	255	
==>'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $pa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	144	249	
==>'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7835	7955	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10758	10878	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7835	7955	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10758	10878	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7835	7955	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10758	10878	
==>s implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5624	5751	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8594	8721	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5624	5751	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8594	8721	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5624	5751	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8594	8721	
==>. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	582	764	
==>IL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	582	764	
==>IL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	582	764	
==>IL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PI <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1245	1346	
==>run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1245	1346	
==>run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1792	1893	
==>run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1848	1982	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	960	1094	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1848	1982	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	960	1094	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1848	1982	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	960	1094	
==>@_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are no <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31228	31484	
==>ew(
                              symbol->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'blo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5414	5529	
==>}

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5243	5353	
==>}
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5629	5734	
==>' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5629	5734	
==>' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5629	5734	
==>' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1656	1777	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3219	3340	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1656	1777	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3219	3340	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1656	1777	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3219	3340	
==>s to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = undef;

    ## WALK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4822	4975	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5783	5936	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4822	4975	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5783	5936	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4822	4975	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5783	5936	
==>,
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10379	10500	
==>es
    named - named submatches
    capture - return'ed things
    
    state - a "continuation" or undef
    abort - <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4900	5018	
==>rt;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4900	5018	
==>rt;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	163	251	
==>r some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	163	251	
==>r some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	163	251	
==>r some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	445	545	
==>->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	445	545	
==>->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	445	545	
==>->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1749	1917	
==>implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1749	1917	
==>implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1749	1917	
==>implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10788	10932	
==>|
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{o <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2944	3059	
==>or Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
< <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2944	3059	
==>or Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	27	127	
==>>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	27	127	
==>>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	27	127	
==>>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, con <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2315	2410	
==>ngth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2315	2410	
==>ngth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2315	2410	
==>ngth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28993	29097	
==>,
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
us <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28993	29097	
==>,
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
us <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28993	29097	
==>,
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
us <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9190	9288	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the 
s <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9190	9288	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the 
s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4333	4430	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the s <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15769	15866	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the s <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4333	4430	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15769	15866	
==>` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3707	3812	
==>pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0 <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3707	3812	
==>pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9745	9864	
==>if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9745	9864	
==>if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9745	9864	
==>if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12834	12941	
==>method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12834	12941	
==>method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12834	12941	
==>method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	933	1060	
==>erl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	933	1060	
==>erl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	933	1060	
==>erl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless { <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10111	10263	
==>type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'pe <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10111	10263	
==>type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'pe <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2855	2958	
==>properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $dat <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2855	2958	
==>properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $dat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15613	15709	
==>ro or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B< <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15613	15709	
==>ro or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1644	1750	
==>(
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1644	1750	
==>(
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1644	1750	
==>(
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3193	3295	
==>though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3193	3295	
==>though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3193	3295	
==>though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8888	9011	
==>f all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8888	9011	
==>f all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8888	9011	
==>f all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	927	1034	
==>=> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	927	1034	
==>=> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	927	1034	
==>=> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15958	16105	
==>$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        ble <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15958	16105	
==>$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        ble <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15958	16105	
==>$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6391	6518	
==>_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6391	6518	
==>_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6391	6518	
==>_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9251	9367	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6798	6914	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9251	9367	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6798	6914	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9251	9367	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6798	6914	
==>der') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1809	1912	
==>>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1809	1912	
==>>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1809	1912	
==>>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36736	36832	
==>ich case the result does too.  Another trivial case is if any
source relation is the identity-one <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41285	41381	
==>ich case the result does too.  Another trivial case is if any
source relation is the identity-one <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40908	41004	
==>ich case the result does too.  Another trivial case is if any
source relation is the identity-one <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33093	33278	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33093	33278	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33093	33278	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2602	2753	
==>s->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2602	2753	
==>s->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2602	2753	
==>s->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6448	6573	
==>.>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6448	6573	
==>.>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6448	6573	
==>.>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @r <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1862	1967	
==>g ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retur <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1862	1967	
==>g ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1942	2047	
==>g ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retur <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1320	1442	
==>);
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1597	1718	
==>ar i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1597	1718	
==>ar i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1597	1718	
==>ar i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1340	1455	
==>~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1340	1455	
==>~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7623	7782	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5182	5341	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7623	7782	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5182	5341	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7623	7782	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5182	5341	
==>ail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3364	3464	
==>:inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3364	3464	
==>:inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3364	3464	
==>:inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14033	14131	
==>od = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14033	14131	
==>od = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14033	14131	
==>od = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9716	9905	
==>scription,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	296	473	
==>scription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	296	473	
==>scription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test:: <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13348	13453	
==>ression :words {  # see 11.2
      <PrimaryExpression>
    | <FunctionExpression>
    | <MemberExpression> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5577	5681	
==>urpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5577	5681	
==>urpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5577	5681	
==>urpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11778	11875	
==>ce )`

Returns true if the closures that define the recurrences are exactly the same.

This method <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11778	11875	
==>ce )`

Returns true if the closures that define the recurrences are exactly the same.

This method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14526	14679	
==>a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14526	14679	
==>a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14526	14679	
==>a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	669	767	
==>nt([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	669	767	
==>nt([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	669	767	
==>nt([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	803	900	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1323	1420	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	803	900	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1323	1420	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	803	900	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1323	1420	
==>ORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = arra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12200	12310	
==>urn _not_implemented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumf <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21424	21518	
==>hat is distinct from the other
attributes, though several attributes may store values of the sa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25976	26070	
==>hat is distinct from the other
attributes, though several attributes may store values of the sa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24609	24703	
==>hat is distinct from the other
attributes, though several attributes may store values of the sa <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2345	2438	
==>example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpreter.

=over 4

=i <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27114	27205	
==>ript3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usabl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3440	3557	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11998	12115	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6565	6682	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3440	3557	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11998	12115	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6565	6682	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38131	38292	
==>);
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38131	38292	
==>);
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38131	38292	
==>);
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2242	2341	
==>CH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2242	2341	
==>CH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2242	2341	
==>CH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new P <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6228	6439	
==>w(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.s <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6228	6439	
==>w(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.s <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11209	11305	
==>()`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $recu <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11209	11305	
==>()`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $recu <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6364	6459	
==>nt a document identified by a URL. The document is printed
to the selected default filehandle fo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6364	6459	
==>nt a document identified by a URL. The document is printed
to the selected default filehandle fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15323	15447	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20056	20180	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15323	15447	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20056	20180	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15323	15447	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20056	20180	
==>struction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7746	7860	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10669	10783	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7746	7860	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10669	10783	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7746	7860	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10669	10783	
==>nless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	604	812	
==>f ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	604	812	
==>f ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	604	812	
==>f ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2958	3081	
==>JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2958	3081	
==>JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2958	3081	
==>JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2362	2472	
==>at, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2362	2472	
==>at, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2362	2472	
==>at, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4315	4406	
==>m C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan objec <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4315	4406	
==>m C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan objec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5839	5930	
==>m C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1911	2023	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2233	2345	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1911	2023	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2233	2345	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1911	2023	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2233	2345	
==>r $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required." <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	48	147	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	272	371	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	48	147	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	272	371	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	48	147	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	272	371	
==>y works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13405	13529	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10689	10813	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13405	13529	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10689	10813	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13405	13529	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10689	10813	
==>lf => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	794	931	
==>{   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2766	2890	
==>_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2766	2890	
==>_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2766	2890	
==>_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pre <==
6	/Users/nnunley/pugs/util/package-osx.pl	6904	6992	
==>/local/man/man3/Perl6::Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Dif <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2198	2375	
==>o;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res ) <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2198	2375	
==>o;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res ) <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1046	1162	
==>re from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2264	2373	
==>5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2264	2373	
==>5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2264	2373	
==>5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1 <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3615	3782	
==>, 
                                                'JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL::is <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3243	3376	
==>on");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3243	3376	
==>on");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4767	4900	
==>on");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6822	6941	
==>> chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => ch <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6822	6941	
==>> chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18519	18706	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15757	15944	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18519	18706	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15757	15944	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18519	18706	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15757	15944	
==>') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4687	4795	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7623	7731	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4687	4795	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7623	7731	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4687	4795	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7623	7731	
==>lessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a clas <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	279	395	
==>ot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5' <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	283	399	
==>ot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5' <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	279	395	
==>ot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5' <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	283	399	
==>ot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11865	11962	
==>eld.  Previous values
for the same field are retained.

As for the header() method, the field name <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11865	11962	
==>eld.  Previous values
for the same field are retained.

As for the header() method, the field name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2511	2615	
==>fy', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2511	2615	
==>fy', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2858	2962	
==>fy', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14387	14481	
==>ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Cont <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14387	14481	
==>ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Cont <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14387	14481	
==>ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Cont <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6363	6461	
==>lti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5493	5591	
==>lti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6363	6461	
==>lti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5493	5591	
==>lti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	892	986	
==>le with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	892	986	
==>le with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7279	7387	
==>n $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7279	7387	
==>n $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7279	7387	
==>n $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14146	14230	
==>String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14146	14230	
==>String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14146	14230	
==>String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2273	2425	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2273	2425	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2273	2425	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4815	4924	
==>', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr', <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4815	4924	
==>', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr', <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1721	1830	
==>', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr', <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4254	4348	
==>p instance, passing on the C<$description> and
C<$reason> parameters and a true value for the p <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4254	4348	
==>p instance, passing on the C<$description> and
C<$reason> parameters and a true value for the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6451	6545	
==>p instance, passing on the C<$description> and
C<$reason> parameters and a true value for the p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29464	29557	
==>argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34016	34109	
==>argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33180	33273	
==>argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6598	6733	
==>\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $self->emit_ya <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5440	5543	
==>s = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5440	5543	
==>s = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5440	5543	
==>s = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role- <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2510	2605	
==>sing stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encryptin <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2510	2605	
==>sing stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encryptin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6390	6497	
==>Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6390	6497	
==>Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6390	6497	
==>Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2170	2269	
==>")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2170	2269	
==>")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2170	2269	
==>")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8495	8590	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6048	6143	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8495	8590	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6048	6143	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8495	8590	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6048	6143	
==>{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	254	368	
==>e Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Ter <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	254	368	
==>e Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Ter <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	254	368	
==>e Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Ter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2641	2749	
==>r.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2641	2749	
==>r.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2641	2749	
==>r.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11517	11769	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9070	9322	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11517	11769	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9070	9322	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11517	11769	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9070	9322	
==>e 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5400	5514	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3520	3634	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5400	5514	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3520	3634	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5400	5514	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3520	3634	
==>lf, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16729	16942	
==>ge( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16729	16942	
==>ge( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16729	16942	
==>ge( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shif <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	220	347	
==>elf->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $self = shift;
    $self-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1801	1887	
==>ile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3177	3263	
==>ile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13975	14087	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14462	14574	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13975	14087	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14462	14574	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13975	14087	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14462	14574	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2267	2365	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2986	3084	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2267	2365	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2986	3084	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2267	2365	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2986	3084	
==>{
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8250	8364	
==>self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $st <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8250	8364	
==>self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2591	2695	
==>ml>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redis <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2591	2695	
==>ml>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redis <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1804	1902	
==>ml>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redis <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3665	3763	
==>ml>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redis <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3843	3974	
==>p} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4088	4212	
==>p} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10537	10661	
==>p} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4088	4212	
==>p} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10537	10661	
==>p} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless i <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	27898	27994	
==>run by a different executable, such as
a threading perl, or a different version.

If you're using <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2326	2428	
==>le'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2326	2428	
==>le'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2326	2428	
==>le'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3481	3578	
==>gs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3481	3578	
==>gs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3481	3578	
==>gs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1776	1889	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3339	3452	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1776	1889	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3339	3452	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1776	1889	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3339	3452	
==>LKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18103	18277	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15341	15515	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18103	18277	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15341	15515	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18103	18277	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15341	15515	
==>e fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11185	11300	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12656	12771	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14662	14777	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16133	16248	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13970	14085	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15495	15610	
==>eturn $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18433	18555	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15671	15793	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18433	18555	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15671	15793	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18433	18555	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15671	15793	
==>ck for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2364	2481	
==>he spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2364	2481	
==>he spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2364	2481	
==>he spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5159	5311	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5159	5311	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5159	5311	
==>ray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextke <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6749	6881	
==>unless( -e $file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self-> <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	689	814	
==>ect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidde <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	689	814	
==>ect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidde <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6378	6526	
==>= emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3503	3651	
==>= emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4352	4500	
==>= emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8223	8330	
==>ift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8223	8330	
==>ift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8223	8330	
==>ift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	867	987	
==>tring.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "o <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2144	2259	
==>eturns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5115	5230	
==>eturns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2144	2259	
==>eturns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5115	5230	
==>eturns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	880	995	
==>tring.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "o <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	901	1076	
==>$node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.de <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	901	1076	
==>$node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	353	474	
==>ll {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readd <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	388	509	
==>ll {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readd <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	353	474	
==>ll {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readd <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9566	9687	
==>ll {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19485	19599	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16717	16831	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19485	19599	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16717	16831	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19485	19599	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16717	16831	
==>)";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blesse <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8643	8826	
==>ntersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12120	12303	
==>ntersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $o <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4097	4215	
==>$top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	768	881	
==>();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	768	881	
==>();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3047	3152	
==>$top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15995	16147	
==>_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15995	16147	
==>_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15995	16147	
==>_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues, <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3804	3912	
==>Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  ' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3804	3912	
==>Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  ' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	654	762	
==>Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3313	3423	
==>e "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3313	3423	
==>e "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3313	3423	
==>e "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4325	4419	
==>>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=i <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4325	4419	
==>>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5849	5943	
==>>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12355	12476	
==>sh @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12355	12476	
==>sh @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12355	12476	
==>sh @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4238	4349	
==>= (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4238	4349	
==>= (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4238	4349	
==>= (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10893	11083	
==>ams;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10893	11083	
==>ams;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10893	11083	
==>ams;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9533	9634	
==>= '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9533	9634	
==>= '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9533	9634	
==>= '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8992	9124	
==>ode]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8992	9124	
==>ode]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8992	9124	
==>ode]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16687	16792	
==>r( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16687	16792	
==>r( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16687	16792	
==>r( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11724	11829	
==>ub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11724	11829	
==>ub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11724	11829	
==>ub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	917	1012	
==>Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	917	1012	
==>Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	917	1012	
==>Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3116	3236	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11039	11159	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6241	6361	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3116	3236	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11039	11159	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6241	6361	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24537	24708	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26726	26897	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24537	24708	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26726	26897	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24537	24708	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26726	26897	
==>\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cel <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6782	6899	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5912	6029	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2566	2683	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2566	2683	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6782	6899	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5912	6029	
==>:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) ret <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	610	861	
==>ages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages us <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	610	861	
==>ages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages us <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10271	10365	
==>pty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8164	8258	
==>pty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10271	10365	
==>pty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8164	8258	
==>pty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6353	6590	
==>y = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6353	6590	
==>y = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6353	6590	
==>y = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11558	11774	
==>s[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11558	11774	
==>s[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11558	11774	
==>s[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	644	744	
==>use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3715	3815	
==>use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	644	744	
==>use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3715	3815	
==>use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33703	33800	
==>er Name and usually corresponds to a
language like English or French.  The order of these items co <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33703	33800	
==>er Name and usually corresponds to a
language like English or French.  The order of these items co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16237	16360	
==>sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16237	16360	
==>sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16237	16360	
==>sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1331	1449	
==>secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.p <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1331	1449	
==>secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.p <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3501	3598	
==>);
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11649	11766	
==>or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching varia <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2132	2247	
==>or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching varia <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8904	9019	
==>or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching varia <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2132	2247	
==>or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching varia <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8904	9019	
==>or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching varia <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	849	960	
==>- p5-d

Into:

 p5-a AND (p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dep <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15387	15541	
==>the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15387	15541	
==>the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15387	15541	
==>the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # g <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1408	1547	
==>RRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ') <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5788	5874	
==>.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation b <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5788	5874	
==>.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3904	4014	
==>_pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "lin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3904	4014	
==>_pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "lin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3904	4014	
==>_pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "lin <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	881	975	
==>ormal output filehandle, adding leading C<#>
characters after all newlines if they are not pres <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	881	975	
==>ormal output filehandle, adding leading C<#>
characters after all newlines if they are not pres <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1437	1531	
==>ormal output filehandle, adding leading C<#>
characters after all newlines if they are not pres <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1136	1345	
==>and();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1136	1345	
==>and();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1136	1345	
==>and();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1756	1877	
==>my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1756	1877	
==>my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1756	1877	
==>my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2, <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1492	1626	
==>me )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1187	1301	
==>nt \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1187	1301	
==>nt \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	422	518	
==>rectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	422	518	
==>rectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	422	518	
==>rectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15110	15248	
==>= shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15110	15248	
==>= shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15110	15248	
==>= shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15178	15310	
==>eal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors duri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15178	15310	
==>eal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors duri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15178	15310	
==>eal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors duri <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11170	11291	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12641	12762	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14647	14768	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16118	16239	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13955	14076	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15480	15601	
==>urce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12733	12882	
==>lems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12733	12882	
==>lems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12733	12882	
==>lems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3778	3899	
==>_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3778	3899	
==>_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3778	3899	
==>_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6359	6472	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9329	9442	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6359	6472	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9329	9442	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6359	6472	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9329	9442	
==>ethod ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4429	4537	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7365	7473	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4429	4537	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7365	7473	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4429	4537	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7365	7473	
==>ind_method_to_class ($$) {
        my ($method, $associated_with) = @_;
        (defined $method && blessed($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40080	40181	
==>y $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40080	40181	
==>y $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40080	40181	
==>y $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4867	4967	
==>};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4867	4967	
==>};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4867	4967	
==>};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1601	1708	
==>ush(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
i <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1591	1698	
==>ush(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1601	1708	
==>ush(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1601	1708	
==>ush(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
i <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1516	1622	
==>regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1516	1622	
==>regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12576	12697	
==>iteral :words {  # see 11.1.4
      <'['> <Elision>? <']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	8885	8999	
==>ake sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8885	8999	
==>ake sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t. <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3325	3427	
==>est.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is exp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3325	3427	
==>est.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is exp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4849	4951	
==>est.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1753	1883	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1753	1883	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1753	1883	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1579	1688	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1579	1688	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1579	1688	
==>->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39345	39463	
==>return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39345	39463	
==>return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39345	39463	
==>return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4772	4886	
==>, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4772	4886	
==>, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4772	4886	
==>, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	560	682	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	526	648	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	576	698	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	532	654	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	587	709	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	552	674	
==>$self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1003	1153	
==>ubstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1003	1153	
==>ubstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1003	1153	
==>ubstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $s <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1846	1963	
==>b debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13357	13454	
==>$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13357	13454	
==>$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4215	4354	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7151	7290	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4215	4354	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7151	7290	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4215	4354	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7151	7290	
==>e Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds valu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32847	32940	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33302	33395	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35170	35263	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37397	37490	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37852	37945	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39720	39813	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3739	3837	
==>'$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3739	3837	
==>'$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3739	3837	
==>'$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("p <==
6	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1795	1890	
==>to the original POE, and is possibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	17	112	
==>mmar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 D <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	17	112	
==>mmar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12292	12420	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3914	4042	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12292	12420	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3914	4042	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12292	12420	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3914	4042	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::n <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3445	3740	
==>eturn $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3445	3740	
==>eturn $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6264	6447	
==>eturn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6264	6447	
==>eturn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6264	6447	
==>eturn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45112	45205	
==>Package & Module, so we can create something here

$::Package = $::Class->send('new');
$::Pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	812	942	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	900	1030	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	812	942	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	900	1030	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	812	942	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	900	1030	
==>eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8712	8844	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6265	6397	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8712	8844	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6265	6397	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8712	8844	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6265	6397	
==>ing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10381	10484	
==>on't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @ite <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10381	10484	
==>on't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @ite <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10381	10484	
==>on't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	708	810	
==>r = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	708	810	
==>r = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	708	810	
==>r = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_att <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5751	5846	
==>un.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<repo <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5751	5846	
==>un.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<repo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7275	7370	
==>un.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<repo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1245	1381	
==>_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1245	1381	
==>_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1245	1381	
==>_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	67	166	
==>is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	67	166	
==>is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	67	166	
==>is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1309	1412	
==>s
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1309	1412	
==>s
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1309	1412	
==>s
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1263	1356	
==>cks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1263	1356	
==>cks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1263	1356	
==>cks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13088	13229	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13088	13229	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13088	13229	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5328	5469	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3828	3969	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1973	2114	
==>ff > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13236	13387	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13236	13387	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13236	13387	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5476	5627	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3976	4127	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2121	2272	
==>en);
    $len = $size - $off if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4899	5018	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7548	7667	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5112	5225	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11561	11674	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5112	5225	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11561	11674	
==>atch->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2180	2444	
==>->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #pri <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10856	11009	
==>diate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11135	11288	
==>diate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6456	6580	
==>$self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6456	6580	
==>$self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6456	6580	
==>$self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5075	5216	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6036	6177	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5075	5216	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6036	6177	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5075	5216	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6036	6177	
==>$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5248	5349	
==>l6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5248	5349	
==>l6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5248	5349	
==>l6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4296	4392	
==>ll.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4296	4392	
==>ll.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4296	4392	
==>ll.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2772	2889	
==>ys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2772	2889	
==>ys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2772	2889	
==>ys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10713	10820	
==>r (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10713	10820	
==>r (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10713	10820	
==>r (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7911	8025	
==>d->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/has <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11908	12020	
==>d->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/has <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11908	12020	
==>d->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/has <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1544	1633	
==>oUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1544	1633	
==>oUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1544	1633	
==>oUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5794	5908	
==>->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5794	5908	
==>->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5794	5908	
==>->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2014	2127	
==>_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2014	2127	
==>_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2014	2127	
==>_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsva <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	913	1039	
==>.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $po <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	913	1039	
==>.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $po <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6392	6514	
==>hr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201), <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6392	6514	
==>hr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201), <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	333	436	
==>us class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently defi <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	333	436	
==>us class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11354	11478	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2866	2990	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11354	11478	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2866	2990	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11354	11478	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2866	2990	
==>oxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16013	16116	
==>B uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16013	16116	
==>B uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16013	16116	
==>B uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5528	5628	
==>_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5528	5628	
==>_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6118	6218	
==>_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1027	1150	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1169	1292	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1311	1434	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1453	1576	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1740	1863	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2406	2501	
==>others I don't remember at the moment but should be mentioned...

package BacktrackDev;
=pod
Des <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13285	13403	
==>t be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13285	13403	
==>t be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13285	13403	
==>t be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5506	5602	
==>n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5506	5602	
==>n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5506	5602	
==>n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8960	9072	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9153	9265	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40513	40610	
==>e hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERC <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26027	26124	
==>e hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERC <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40513	40610	
==>e hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERC <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26027	26124	
==>e hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERC <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	999	1153	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	999	1153	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        f <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4704	4824	
==>{ $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->typ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13129	13249	
==>{ $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->typ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15740	15860	
==>{ $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->typ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17228	17348	
==>{ $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->typ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21911	22031	
==>{ $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->typ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	71	171	
==>6::Core::Num;
use Perl6::Core::Bit;

package str;

use strict;
use warnings;

use Carp 'confess';
use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29001	29100	
==>};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29001	29100	
==>};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29001	29100	
==>};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6575	6701	
==>ion( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6575	6701	
==>ion( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5610	5710	
==>ips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5610	5710	
==>ips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7134	7234	
==>ips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1788	1886	
==>lf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &grap <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1788	1886	
==>lf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &grap <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1788	1886	
==>lf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &grap <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8933	9026	
==>ent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified u <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3862	3955	
==>ent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified u <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15637	15730	
==>l characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gig <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8933	9026	
==>ent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified u <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3862	3955	
==>ent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified u <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15637	15730	
==>l characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5997	6110	
==>h>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5997	6110	
==>h>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5997	6110	
==>h>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	54	158	
==>r $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	54	158	
==>r $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4696	4795	
==>= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class );
}

sub call {
	my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40181	40292	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40181	40292	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40181	40292	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12427	12527	
==>I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12427	12527	
==>I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12427	12527	
==>I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_att <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18087	18210	
==>al, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, de <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17125	17248	
==>al, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, de <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18087	18210	
==>al, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, de <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17125	17248	
==>al, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, de <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5232	5352	
==>_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5232	5352	
==>_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17021	17201	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21736	21916	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17021	17201	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21736	21916	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17021	17201	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21736	21916	
==>$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::O <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	491	620	
==>Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	491	620	
==>Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	491	620	
==>Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3963	4067	
==>e (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3963	4067	
==>e (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3963	4067	
==>e (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10482	10592	
==>}
    },
    map {{ arity => 2, name => "&infix:<$_>", body => eval 'sub { $_[1] '.$_.' $_[2] }' } || die $@} q <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20621	20718	
==>els the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> metho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19547	19644	
==>els the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> metho <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20621	20718	
==>els the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> metho <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19547	19644	
==>els the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10181	10334	
==>>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.wr <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5027	5161	
==>pdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5027	5161	
==>pdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2230	2363	
==>>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.wr <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2230	2363	
==>>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.wr <==
6	/Users/nnunley/pugs/util/package-osx.pl	10104	10204	
==>es that will be removed. The last one passed in is the
# remover that will be installed on the target <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7867	8005	
==>= regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7867	8005	
==>= regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7867	8005	
==>= regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6391	6525	
==>= regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6391	6525	
==>= regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6391	6525	
==>= regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	60	174	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	55	169	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	60	174	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	55	169	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	60	174	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	55	169	
==>t;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq " <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3004	3103	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6018	6117	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8086	8185	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3004	3103	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6018	6117	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8086	8185	
==>`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (St <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	549	664	
==>hift;
        return $self->{'values'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $sel <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2927	3040	
==>'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3776	3889	
==>'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4857	4966	
==>class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite li <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4857	4966	
==>class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite li <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4857	4966	
==>class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite li <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6894	7038	
==>->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6667	6802	
==>->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13263	13397	
==>"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9449	9583	
==>"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10285	10419	
==>"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast-> <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	320	430	
==>'';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK' <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	3983	4098	
==>int "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } keys %main::;
        print "\n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19268	19359	
==>0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19268	19359	
==>0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19268	19359	
==>0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11425	11513	
==>$header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11425	11513	
==>$header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13721	13853	
==>_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13721	13853	
==>_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13721	13853	
==>_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5967	6099	
==>_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4467	4599	
==>_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	8090	8203	
==>askell handling it.
            %mods.delete("ignorecase");
#           warning "PGE doesn't actually do :ignoreca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8686	8812	
==>) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8686	8812	
==>) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8686	8812	
==>) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	609	720	
==>js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	609	720	
==>js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	609	720	
==>js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? " <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1913	2047	
==>traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traverse;
        say '  ' x $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15241	15343	
==>o_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15241	15343	
==>o_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15241	15343	
==>o_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7806	7920	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10729	10843	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7806	7920	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10729	10843	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7806	7920	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10729	10843	
==>lso special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7011	7107	
==>\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7011	7107	
==>\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7011	7107	
==>\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6523	6616	
==>Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@foru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6523	6616	
==>Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@foru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6523	6616	
==>Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@foru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2294	2413	
==>delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2205	2321	
==>delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2782	2894	
==>"<$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unless $#rules;
    return "[ " . join( ' | ', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3738	3836	
==>:Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3738	3836	
==>:Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3738	3836	
==>:Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12269	12412	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3891	4034	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12269	12412	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3891	4034	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12269	12412	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3891	4034	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7735	7877	
==>:CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7735	7877	
==>:CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7735	7877	
==>:CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3168	3266	
==>$format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3168	3266	
==>$format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3168	3266	
==>$format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8503	8631	
==>lass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless def <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8503	8631	
==>lass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless def <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8503	8631	
==>lass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless def <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	189	292	
==>], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	189	292	
==>], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	189	292	
==>], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } els <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1858	1980	
==>->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _inde <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2774	2870	
==>YRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship b <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2931	3027	
==>YRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship b <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2774	2870	
==>YRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship b <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2931	3027	
==>YRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship b <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	615	708	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6ws> <ident> <p6ws>? \{ <rule <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3221	3335	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6235	6349	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8303	8417	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3221	3335	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6235	6349	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8303	8417	
==>atfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4593	4722	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7242	7371	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4815	4940	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11264	11389	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4815	4940	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11264	11389	
==>te $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return Strin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5258	5372	
==>( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6526	6640	
==>( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5258	5372	
==>( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6514	6628	
==>( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10301	10406	
==>ad1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).ad <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10301	10406	
==>ad1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	87	184	
==>oke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	87	184	
==>oke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	87	184	
==>oke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	516	613	
==>) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at mo <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	516	613	
==>) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at mo <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11722	11818	
==>set.invert(...)>

Removes the given items if they are already in the set, or inserts the items if <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8869	8965	
==>set.invert(...)>

Removes the given items if they are already in the set, or inserts the items if <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11722	11818	
==>set.invert(...)>

Removes the given items if they are already in the set, or inserts the items if <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8869	8965	
==>set.invert(...)>

Removes the given items if they are already in the set, or inserts the items if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3351	3474	
==>ng a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3351	3474	
==>ng a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3351	3474	
==>ng a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1510	1624	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1510	1624	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1510	1624	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3313	3413	
==>urn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Boo <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8081	8181	
==>urn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Boo <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3313	3413	
==>urn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Boo <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8081	8181	
==>urn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Boo <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10230	10324	
==>ses.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, univers <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10230	10324	
==>ses.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, univers <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3996	4091	
==>arameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3996	4091	
==>arameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3996	4091	
==>arameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17301	17390	
==>p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17301	17390	
==>p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17301	17390	
==>p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15593	15697	
==>:dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15593	15697	
==>:dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15593	15697	
==>:dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6261	6353	
==>(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6261	6353	
==>(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6261	6353	
==>(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14706	14813	
==>*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14706	14813	
==>*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14706	14813	
==>*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require P <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36751	36846	
==>sult does too.  Another trivial case is if any
source relation is the identity-one relation (zer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41300	41395	
==>sult does too.  Another trivial case is if any
source relation is the identity-one relation (zer <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40923	41018	
==>sult does too.  Another trivial case is if any
source relation is the identity-one relation (zer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7132	7244	
==>1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7132	7244	
==>1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2036	2133	
==>cedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2036	2133	
==>cedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2127	2216	
==>item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2216	2305	
==>item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rul <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2955	3065	
==>CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $b <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2955	3065	
==>CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $b <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8320	8422	
==>ZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24526	24622	
==>, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Thi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29078	29174	
==>, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Thi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27954	28050	
==>, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Thi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5339	5452	
==>my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2881	2994	
==>my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3730	3843	
==>my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	340	443	
==>]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	340	443	
==>]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	340	443	
==>]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29397	29510	
==>my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29397	29510	
==>my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29397	29510	
==>my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19925	20018	
==>};
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19925	20018	
==>};
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19925	20018	
==>};
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5063	5189	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6024	6150	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5063	5189	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6024	6150	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5063	5189	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6024	6150	
==>$value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19339	19496	
==>s}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19339	19496	
==>s}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19339	19496	
==>s}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallb <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6111	6254	
==>atch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6111	6254	
==>atch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6111	6254	
==>atch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15276	15467	
==>alues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15276	15467	
==>alues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15276	15467	
==>alues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13579	13742	
==>rint \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9763	9926	
==>rint \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10599	10762	
==>rint \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1917	2033	
==>.property_attributes{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    m <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2892	2997	
==>fg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4846	4951	
==>ot supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::num <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2892	2997	
==>fg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4846	4951	
==>ot supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::num <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4846	4951	
==>ot supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::num <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4320	4438	
==>t'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4320	4438	
==>t'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1170	1288	
==>t'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5280	5379	
==>>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5280	5379	
==>>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5280	5379	
==>>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {.. <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16214	16311	
==>nales; you can read TTM itself and
various other external documentation for much of that.

The Ros <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16214	16311	
==>nales; you can read TTM itself and
various other external documentation for much of that.

The Ros <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23786	23882	
==>ssage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automati <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22559	22655	
==>ssage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automati <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23786	23882	
==>ssage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automati <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22559	22655	
==>ssage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automati <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7632	7731	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6762	6861	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3348	3447	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3348	3447	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7632	7731	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6762	6861	
==>multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2360	2459	
==>return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2360	2459	
==>return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2360	2459	
==>return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	336	424	
==>_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	336	424	
==>_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	336	424	
==>_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	419	620	
==>greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	419	620	
==>greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{' <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22420	22518	
==>e same result when invoked on the
same object with the same arguments; they do not interact with th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26972	27070	
==>e same result when invoked on the
same object with the same arguments; they do not interact with th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25695	25793	
==>e same result when invoked on the
same object with the same arguments; they do not interact with th <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38797	38890	
==>s:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3380	3559	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6316	6495	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3380	3559	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6316	6495	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3380	3559	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6316	6495	
==>y ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # sinc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13136	13250	
==>able = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13136	13250	
==>able = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13136	13250	
==>able = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4329	4431	
==>BBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4329	4431	
==>BBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4329	4431	
==>BBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	411	507	
==>rue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	411	507	
==>rue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	411	507	
==>rue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1009	1103	
==>warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1009	1103	
==>warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1009	1103	
==>warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeou <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11981	12166	
==>s );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15458	15643	
==>s );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14793	14978	
==>s );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2489	2603	
==>2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2489	2603	
==>2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2489	2603	
==>2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5878	6038	
==>( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5890	6050	
==>( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8741	8839	
==>g,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8741	8839	
==>g,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8741	8839	
==>g,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	540	636	
==>my $r = $self->runtime;
		if (my $replacement = $r->provides($node)) {
			return $self->reduce($r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5912	6050	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4032	4170	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5912	6050	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4032	4170	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5912	6050	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4032	4170	
==>asses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9873	10033	
==>odo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              rea <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	445	595	
==>odo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            rea <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	445	595	
==>odo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	973	1078	
==>ed - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	973	1078	
==>ed - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	973	1078	
==>ed - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12841	12954	
==>sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12841	12954	
==>sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12841	12954	
==>sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	749	856	
==>bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str }, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	749	856	
==>bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str }, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	749	856	
==>bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14348	14522	
==>},
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14348	14522	
==>},
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14348	14522	
==>},
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12962	13091	
==>t) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12962	13091	
==>t) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12962	13091	
==>t) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16021	16160	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20738	20877	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16021	16160	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20738	20877	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16021	16160	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20738	20877	
==>ethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8335	8478	
==>boxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8335	8478	
==>boxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8335	8478	
==>boxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2335	2434	
==>ber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2335	2434	
==>ber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2335	2434	
==>ber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18307	18437	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15545	15675	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18307	18437	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15545	15675	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18307	18437	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15545	15675	
==>bel};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	159	266	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	154	261	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	159	266	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	154	261	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	159	266	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	154	261	
==>elf->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3700	3839	
==>0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3700	3839	
==>0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3700	3839	
==>0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3010	3112	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3010	3112	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3010	3112	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4572	4707	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7221	7356	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4795	4925	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11244	11374	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4795	4925	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11244	11374	
==>eturn};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #war <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	963	1066	
==>| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	963	1066	
==>| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	963	1066	
==>| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2436	2531	
==>d_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2436	2531	
==>d_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2436	2531	
==>d_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2479	2587	
==>[^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/" <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2479	2587	
==>[^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/" <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	862	966	
==>Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# R <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	5070	5159	
==>{param}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::binary/ <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3054	3141	
==>plement_next =>     $self._get_intersection( $self.complement_next, $self.complement_pre <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3054	3141	
==>plement_next =>     $self._get_intersection( $self.complement_next, $self.complement_pre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2726	2831	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5374	5479	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2726	2831	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5374	5479	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2726	2831	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5374	5479	
==>s the instance attribute container type, in
    # perl 6 this should be done automatically
    sub ::insta <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3002	3214	
==>"$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($v <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3002	3214	
==>"$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10834	10978	
==>{
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1568	1665	
==>(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1568	1665	
==>(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1568	1665	
==>(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = func <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2116	2236	
==>) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2116	2236	
==>) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2116	2236	
==>) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $cod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1187	1291	
==>=~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2061	2165	
==>=~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	572	669	
==>=~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs: <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5495	5600	
==>nfess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "Yo <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5780	5885	
==>nfess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "Yo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8243	8347	
==>n perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8243	8347	
==>n perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4672	4774	
==>om 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4672	4774	
==>om 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1008	1103	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7233	7328	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1008	1103	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7233	7328	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1008	1103	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7233	7328	
==>}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18491	18610	
==>ar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18491	18610	
==>ar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18491	18610	
==>ar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using th <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7504	7599	
==>.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symm <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6634	6729	
==>.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symm <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7504	7599	
==>.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symm <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6634	6729	
==>.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symm <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7657	7743	
==>Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1482	1568	
==>Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8259	8395	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8259	8395	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8259	8395	
==>";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2085	2189	
==>10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2085	2189	
==>10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2085	2189	
==>10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14683	14807	
==>er";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14683	14807	
==>er";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14683	14807	
==>er";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4723	4837	
==>n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4723	4837	
==>n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4723	4837	
==>n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3686	3805	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6622	6741	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3686	3805	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6622	6741	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3686	3805	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6622	6741	
==>?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4740	4850	
==>:= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4740	4850	
==>:= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4740	4850	
==>:= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $ma <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4040	4149	
==>:= &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $ma <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	297	394	
==>ests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for r <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	355	452	
==>ests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3174	3284	
==>and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3174	3284	
==>and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3174	3284	
==>and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5623	5724	
==>gs, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5623	5724	
==>gs, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5623	5724	
==>gs, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4996	5094	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3224	3322	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4996	5094	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3224	3322	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4996	5094	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3224	3322	
==>lf, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($se <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1039	1198	
==>";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_elemen <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1039	1198	
==>";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_elemen <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5472	5587	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6740	6855	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5472	5587	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6728	6843	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6606	6791	
==>BIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6606	6791	
==>BIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6606	6791	
==>BIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2570	2688	
==>$i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2570	2688	
==>$i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2570	2688	
==>$i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12468	12590	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16979	17101	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12468	12590	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16979	17101	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12468	12590	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16979	17101	
==>ispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatc <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7789	7913	
==>fier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warni <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2086	2198	
==>fier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2086	2198	
==>fier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2086	2198	
==>fier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warni <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1441	1535	
==>ed.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> in <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1441	1535	
==>ed.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10394	10581	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7945	8132	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10394	10581	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7945	8132	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10394	10581	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7945	8132	
==>ed $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # n <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14102	14240	
==>Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4183	4309	
==>Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4183	4309	
==>Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4183	4309	
==>Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? ex <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11313	11407	
==>rsion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11313	11407	
==>rsion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6850	6956	
==>p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3779	3885	
==>ir (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6850	6956	
==>p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6850	6956	
==>p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3779	3885	
==>ir (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3779	3885	
==>ir (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1594	1706	
==>=> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1594	1706	
==>=> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1594	1706	
==>=> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29052	29151	
==>iner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29052	29151	
==>iner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29052	29151	
==>iner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12034	12146	
==>ckage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12034	12146	
==>ckage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12034	12146	
==>ckage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10773	10874	
==>----- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10773	10874	
==>----- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10773	10874	
==>----- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	284	401	
==>in>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net: <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	288	405	
==>in>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net: <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	284	401	
==>in>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net: <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	288	405	
==>in>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net: <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1457	1559	
==>ses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex ident <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1457	1559	
==>ses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex ident <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10867	10979	
==>class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10867	10979	
==>class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10867	10979	
==>class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_ <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	4869	4970	
==>le
my $tests = LoadFile("tests.yml");

# Reading and processing .t files
my $files = {}; # mapping fro <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23492	23586	
==>t parse flags, because you do not
want to accidentally affect the previous scope's flag values. <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14092	14179	
==>retty method?
    $self->registered_alternatives([ @{$self->registered_alternatives}, $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7350	7508	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4909	5067	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7350	7508	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4909	5067	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7350	7508	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4909	5067	
==>..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25178	25317	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27367	27506	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25178	25317	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27367	27506	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25178	25317	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27367	27506	
==>f $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1694	1817	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1694	1817	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1694	1817	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && bles <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4242	4353	
==>Exp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Ex <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4242	4353	
==>Exp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Ex <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1092	1203	
==>Exp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12967	13069	
==>join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(th <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12967	13069	
==>join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(th <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12967	13069	
==>join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(th <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22257	22353	
==>iting from multiple packages which
have the same method names as you or each other, or having mul <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22257	22353	
==>iting from multiple packages which
have the same method names as you or each other, or having mul <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28179	28271	
==>eturns this Relation::Example's heading.

=item C<body () returns Set of Mapping(Str) of Any> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1743	1856	
==>t));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1743	1856	
==>t));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1743	1856	
==>t));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3763	3858	
==>amed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_option <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3763	3858	
==>amed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_option <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4353	4448	
==>amed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_option <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	15	124	
==>se strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	15	124	
==>se strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	15	124	
==>se strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1844	1949	
==>ight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1844	1949	
==>ight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1844	1949	
==>ight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inlin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3388	3499	
==>tart}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3388	3499	
==>tart}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3388	3499	
==>tart}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4912	5022	
==>q '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_stor <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4912	5022	
==>q '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_stor <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5502	5612	
==>q '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_stor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4768	4876	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7417	7525	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4984	5090	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11433	11539	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4984	5090	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11433	11539	
==>en = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1094	1216	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1334	1456	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1094	1216	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1334	1456	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1094	1216	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1334	1456	
==>($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9543	9663	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7090	7210	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9543	9663	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7090	7210	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9543	9663	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7090	7210	
==>der eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24448	24675	
==>m );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24448	24675	
==>m );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24448	24675	
==>m );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5215	5306	
==>EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5215	5306	
==>EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5215	5306	
==>EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11546	11647	
==>"\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11546	11647	
==>"\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11546	11647	
==>"\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13289	13461	
==>ce( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13289	13461	
==>ce( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13289	13461	
==>ce( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1557	1671	
==>$!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1557	1671	
==>$!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $. <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21623	21724	
==>GIN{
%space_from_sigil = ( '$' => 'scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22377	22493	
==>_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22377	22493	
==>_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22377	22493	
==>_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3891	3992	
==>ed_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3891	3992	
==>ed_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4481	4582	
==>ed_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4041	4161	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4979	5099	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2275	2395	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2521	2641	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3056	3176	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3302	3422	
==>( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8089	8228	
==>s "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if (( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8089	8228	
==>s "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if (( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8089	8228	
==>s "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if (( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16344	16456	
==>NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16344	16456	
==>NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16344	16456	
==>NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0 <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3994	4098	
==>symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	$self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	642	742	
==>'@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	642	742	
==>'@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	642	742	
==>'@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1265	1362	
==>ethod member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1265	1362	
==>ethod member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1521	1633	
==>gs);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1521	1633	
==>gs);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1521	1633	
==>gs);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16703	16801	
==>rity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16703	16801	
==>rity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16703	16801	
==>rity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1758	1858	
==>f, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1758	1858	
==>f, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1758	1858	
==>f, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of c <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5738	5833	
==>=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and add <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5738	5833	
==>=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7935	8030	
==>=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and add <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4174	4331	
==>tmp_dir,
                                    $conf->meta_file )
                ) };
        $@ and error( "Could not load meta file from archive: $@" ), retu <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1975	2083	
==>e.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.siz <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1975	2083	
==>e.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.siz <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3167	3259	
==>ge: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3167	3259	
==>ge: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3167	3259	
==>ge: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	423	532	
==>$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	423	532	
==>$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	423	532	
==>$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1519	1619	
==>a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1519	1619	
==>a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34004	34094	
==>l's
standard C<map> operator. It returns a new Relation::Example whose attributes
(provided <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	186	293	
==>ammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::ad <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	190	297	
==>ammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::ad <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	184	291	
==>ammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::ad <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	184	291	
==>ammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::ad <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4556	4658	
==>object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for t <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4556	4658	
==>object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3049	3195	
==>>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3049	3195	
==>>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3049	3195	
==>>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1308	1401	
==>es([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1308	1401	
==>es([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1308	1401	
==>es([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5843	5941	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8813	8911	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5843	5941	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8813	8911	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5843	5941	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8813	8911	
==>ethod if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10156	10313	
==>on,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10156	10313	
==>on,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { ' <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1136	1243	
==>et_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	878	985	
==>et_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1136	1243	
==>et_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	878	985	
==>et_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6104	6236	
==>', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6297	6429	
==>', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23661	23750	
==>bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22434	22523	
==>bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23661	23750	
==>bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22434	22523	
==>bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1532	1642	
==>lf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1532	1642	
==>lf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1532	1642	
==>lf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	223	317	
==>JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	223	317	
==>JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	223	317	
==>JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3086	3212	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6079	6205	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3359	3479	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9777	9897	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3359	3479	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9777	9897	
==>eturn optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2744	2866	
==>me_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2744	2866	
==>me_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2744	2866	
==>me_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2184	2293	
==>un::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2184	2293	
==>un::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2184	2293	
==>un::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14394	14589	
==>my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14394	14589	
==>my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14394	14589	
==>my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                d <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7015	7115	
==>ing',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColum <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7015	7115	
==>ing',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColum <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3914	4014	
==>ing',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14488	14615	
==>$tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14488	14615	
==>$tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14488	14615	
==>$tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3969	4073	
==>$current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3969	4073	
==>$current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3969	4073	
==>$current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6513	6616	
==>od_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6513	6616	
==>od_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6513	6616	
==>od_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23207	23299	
==>caltime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23207	23299	
==>caltime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23207	23299	
==>caltime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13451	13558	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10735	10842	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13451	13558	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10735	10842	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13451	13558	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10735	10842	
==>s->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18442	18575	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15680	15813	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18442	18575	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15680	15813	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18442	18575	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15680	15813	
==>stance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4416	4536	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7065	7185	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4643	4760	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11092	11209	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4643	4760	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11092	11209	
==>});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13081	13198	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10365	10482	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13081	13198	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10365	10482	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13081	13198	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10365	10482	
==>d_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $par <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22763	22899	
==>rolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23265	23401	
==>rolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14656	14756	
==>_object(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $self->add_handler('POSI <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5191	5287	
==>=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test h <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5191	5287	
==>=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6715	6811	
==>=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test h <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1024	1277	
==>TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1024	1277	
==>TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1976	2079	
==>[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take e <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2338	2441	
==>[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take e <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1976	2079	
==>[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take e <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2338	2441	
==>[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11217	11396	
==>Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11217	11396	
==>Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11217	11396	
==>Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11305	11445	
==>rn "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unless $code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5221	5326	
==>(?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5221	5326	
==>(?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32263	32359	
==>2 relations, the result is the same regardless of
which is the invocant and which is the argument <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36813	36909	
==>2 relations, the result is the same regardless of
which is the invocant and which is the argument <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36103	36199	
==>2 relations, the result is the same regardless of
which is the invocant and which is the argument <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4648	4738	
==>nal is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4648	4738	
==>nal is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5238	5328	
==>nal is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4734	4860	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7383	7509	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4951	5074	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11400	11523	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4951	5074	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11400	11523	
==>print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4988	5110	
==>ersions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4988	5110	
==>ersions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4988	5110	
==>ersions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3382	3469	
==>aque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4076	4163	
==>aque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5284	5371	
==>aque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	660	755	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1180	1275	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	660	755	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1180	1275	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	660	755	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1180	1275	
==>S.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1777	1886	
==>alX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1777	1886	
==>alX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1777	1886	
==>alX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3982	4087	
==>whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3982	4087	
==>whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3982	4087	
==>whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4170	4300	
==>ep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4170	4300	
==>ep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4170	4300	
==>ep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_). <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4215	4318	
==>ld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4215	4318	
==>ld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4215	4318	
==>ld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7944	8098	
==>alse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7944	8098	
==>alse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7944	8098	
==>alse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11103	11255	
==>k ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1577	1713	
==>k ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1577	1713	
==>k ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1747	1867	
==>(default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1747	1867	
==>(default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1747	1867	
==>(default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3296	3381	
==>::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3296	3381	
==>::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3296	3381	
==>::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	24	120	
==>ict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	24	120	
==>ict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	24	120	
==>ict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	24	119	
==>ict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	24	119	
==>ict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	24	119	
==>ict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::U <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3961	4126	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6897	7062	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3961	4126	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6897	7062	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3961	4126	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6897	7062	
==>le;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1864	1966	
==>\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1864	1966	
==>\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1864	1966	
==>\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2726	2812	
==><cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2726	2812	
==><cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2726	2812	
==><cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hac <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6460	6559	
==>member_combinations()} -> $module_name {
        # Determine if requested template module is already <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6460	6559	
==>member_combinations()} -> $module_name {
        # Determine if requested template module is already <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8197	8289	
==>rns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Arr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7327	7419	
==>rns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Arr <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8197	8289	
==>rns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Arr <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7327	7419	
==>rns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Arr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	154	286	
==>"..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting constructs are macros:

    mac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9447	9554	
==>---------------------------------------      
    # this collects a unique list of roles 
    # gather recur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9447	9554	
==>---------------------------------------      
    # this collects a unique list of roles 
    # gather recur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9447	9554	
==>---------------------------------------      
    # this collects a unique list of roles 
    # gather recur <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13214	13306	
==>as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Heade <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13214	13306	
==>as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Heade <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1220	1327	
==>( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1220	1327	
==>( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1300	1407	
==>( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13774	13865	
==>xception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protect <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13774	13865	
==>xception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protect <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13774	13865	
==>xception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protect <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	18015	18209	
==>n_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        tak <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21492	21686	
==>n_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        tak <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21079	21273	
==>n_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        tak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2268	2364	
==>tes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2268	2364	
==>tes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2268	2364	
==>tes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6194	6320	
==>te');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6194	6320	
==>te');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6194	6320	
==>te');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3259	3384	
==>te');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3259	3384	
==>te');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3259	3384	
==>te');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2714	2831	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5704	5821	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3009	3119	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9427	9537	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3009	3119	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9427	9537	
==>der ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return a <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2041	2150	
==>if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015? <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2041	2150	
==>if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015? <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	2349	2444	
==>ction which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first elem <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2349	2444	
==>ction which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first elem <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5795	5884	
==>rg/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Ble <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5795	5884	
==>rg/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Ble <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5541	5636	
==>ng an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5541	5636	
==>ng an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7065	7160	
==>ng an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19435	19524	
==>6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19435	19524	
==>6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19435	19524	
==>6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1170	1287	
==>ure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1170	1287	
==>ure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1078	1190	
==>ch (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: < <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1429	1539	
==>ch (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: < <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1036	1146	
==>ch (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: < <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1429	1539	
==>ch (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: < <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4955	5079	
==>compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimize <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4784	4903	
==>compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimize <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22525	22618	
==>l also provide some variable values to be
interpolated into the user strings; Locale::KeyedTex <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22525	22618	
==>l also provide some variable values to be
interpolated into the user strings; Locale::KeyedTex <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8366	8459	
==>h(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::P <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2191	2284	
==>h(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14042	14176	
==>hift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14042	14176	
==>hift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14042	14176	
==>hift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	52	171	
==>() \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	52	171	
==>() \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	52	171	
==>() \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6013	6120	
==>LS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6013	6120	
==>LS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6013	6120	
==>LS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7039	7131	
==>ngleton_test_on_object',
   '... got the right return value from another Object singleton/cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8026	8118	
==>ngleton_test_on_object',
   '... got the right return value from another Object singleton/cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10595	10687	
==>ngleton_test_on_object',
   '... got the right return value from another Object singleton/cla <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1036	1195	
==>"$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_ele <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1036	1195	
==>"$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_ele <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2637	2748	
==>l_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'AR <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7731	7842	
==>l_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'AR <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2637	2748	
==>l_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'AR <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7731	7842	
==>l_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'AR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14366	14526	
==>++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14366	14526	
==>++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14366	14526	
==>++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2897	3057	
==>++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	383	486	
==>::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	383	486	
==>::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7691	7842	
==>hod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increme <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7691	7842	
==>hod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increme <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7691	7842	
==>hod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increme <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3251	3361	
==>code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3251	3361	
==>code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3251	3361	
==>code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return J <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3974	4093	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4912	5031	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2208	2327	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2454	2573	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2989	3108	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3235	3354	
==>m1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	452	586	
==>$?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $del <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	452	586	
==>$?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $del <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5339	5435	
==>nfix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4469	4565	
==>nfix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5339	5435	
==>nfix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4469	4565	
==>nfix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1423	1528	
==>ss {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1423	1528	
==>ss {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1423	1528	
==>ss {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	777	873	
==>tine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	777	873	
==>tine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	777	873	
==>tine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13553	13687	
==>t = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13553	13687	
==>t = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13553	13687	
==>t = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3947	4059	
==>s) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3947	4059	
==>s) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ty <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3947	4059	
==>s) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ty <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	6347	6519	
==>{
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $T <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6405	6577	
==>{
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $T <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21709	21807	
==>hanged the field 'class' to 'family' in objects.  I was getting
confused by it, so I figured it was <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	894	990	
==>rgname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	894	990	
==>rgname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	894	990	
==>rgname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15482	15587	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12738	12843	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15482	15587	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12738	12843	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15482	15587	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12738	12843	
==>(lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($self => '%:attributes');
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	58	165	
==>hars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	58	165	
==>hars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	58	165	
==>hars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37211	37308	
==>g of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41760	41857	
==>g of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41383	41480	
==>g of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2690	2794	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3270	3374	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2690	2794	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3270	3374	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2690	2794	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3270	3374	
==>e) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31542	31636	
==>inal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
arg <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36092	36186	
==>inal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
arg <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35319	35413	
==>inal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19726	19815	
==>from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19726	19815	
==>from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19726	19815	
==>from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_ <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10188	10289	
==>6_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3993	4087	
==>ext, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complem <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27372	27466	
==>y additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attr <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3993	4087	
==>ext, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complem <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31924	32018	
==>y additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31007	31101	
==>y additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attr <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3484	3588	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6498	6602	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8566	8670	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3484	3588	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6498	6602	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8566	8670	
==>(Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9611	9733	
==>, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9611	9733	
==>, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9611	9733	
==>, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	610	714	
==>}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	610	714	
==>}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	610	714	
==>}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MUL <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11484	11639	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$clas <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12805	12960	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$clas <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15235	15390	
==>new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1004	1112	
==>->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1004	1112	
==>->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1004	1112	
==>->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[' <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18150	18250	
==>d join all sources to it.
    my Relation::Example $r1 .= new( heading => set(), body => set( mapping <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2775	2871	
==>($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2775	2871	
==>($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2775	2871	
==>($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10904	10999	
==>must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings du <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10904	10999	
==>must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings du <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7541	7671	
==>n,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7541	7671	
==>n,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1239	1333	
==>column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1239	1333	
==>column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1239	1333	
==>column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn> <==
6	/Users/nnunley/pugs/util/addauthors.pl	146	240	
==>$comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter}++;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15251	15456	
==>_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15251	15456	
==>_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15251	15456	
==>_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the names <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	0	103	
==>use warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	0	103	
==>use warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	0	103	
==>use warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5421	5532	
==>me)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authori <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5421	5532	
==>me)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authori <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5421	5532	
==>me)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authori <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10427	10565	
==>idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10427	10565	
==>idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10427	10565	
==>idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6063	6175	
==>used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6063	6175	
==>used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6063	6175	
==>used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6544	6643	
==>ti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# severa <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5674	5773	
==>ti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# severa <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6544	6643	
==>ti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# severa <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5674	5773	
==>ti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# severa <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	758	849	
==>d

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	758	849	
==>d

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3640	3743	
==>, although this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3640	3743	
==>, although this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6660	6762	
==>, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8729	8831	
==>, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6660	6762	
==>, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8729	8831	
==>, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iintera <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5917	6043	
==>is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5917	6043	
==>is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5917	6043	
==>is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7222	7335	
==>::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3826	3939	
==>::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4675	4788	
==>::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8513	8658	
==>XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8513	8658	
==>XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8513	8658	
==>XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4596	4701	
==>( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4596	4701	
==>( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4596	4701	
==>( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4173	4270	
==>r, and when calling these methods you should take care not
to call them in function form by mistak <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4173	4270	
==>r, and when calling these methods you should take care not
to call them in function form by mistak <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4173	4270	
==>r, and when calling these methods you should take care not
to call them in function form by mistak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6073	6199	
==>+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6073	6199	
==>+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6073	6199	
==>+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4314	4416	
==>2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4314	4416	
==>2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4314	4416	
==>2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7751	7844	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6881	6974	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3467	3560	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3467	3560	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7751	7844	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6881	6974	
==>mutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4230	4342	
==>];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4230	4342	
==>];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4820	4932	
==>];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	282	381	
==>eable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieab <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	282	381	
==>eable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieab <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	282	381	
==>eable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieab <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25178	25282	
==>rn the same
result and/or make the same change to an object when the permutation of its
arguments and any <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11309	11413	
==>rn the same
result and/or make the same change to an object when the permutation of its
arguments and any <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14582	14686	
==>rn the same result and/or make the same change
to an object when the permutation of its arguments and any <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25178	25282	
==>rn the same
result and/or make the same change to an object when the permutation of its
arguments and any <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11309	11413	
==>rn the same
result and/or make the same change to an object when the permutation of its
arguments and any <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14582	14686	
==>rn the same result and/or make the same change
to an object when the permutation of its arguments and any <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30503	30639	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32217	32353	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30503	30639	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32217	32353	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30503	30639	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32217	32353	
==>length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11291	11432	
==>$tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11291	11432	
==>$tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11291	11432	
==>$tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1706	1807	
==>'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {... <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1706	1807	
==>'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {... <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1706	1807	
==>'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {... <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7074	7182	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6204	6312	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2858	2966	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2858	2966	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7074	7182	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6204	6312	
==>eturns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	291	411	
==>l 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	291	411	
==>l 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	291	411	
==>l 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	305	422	
==>iX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (U <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	305	422	
==>iX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (U <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	305	422	
==>iX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (U <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1556	1680	
==>ass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11463	11587	
==>his doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1556	1680	
==>ass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1556	1680	
==>ass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11463	11587	
==>his doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11463	11587	
==>his doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2129	2240	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2534	2645	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2129	2240	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2534	2645	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2129	2240	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2534	2645	
==>:IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3015	3131	
==>fix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3015	3131	
==>fix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3015	3131	
==>fix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1328	1430	
==>qrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1328	1430	
==>qrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1328	1430	
==>qrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12245	12364	
==>match;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir' <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6415	6511	
==>ction currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6415	6511	
==>ction currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3190	3317	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3190	3317	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3190	3317	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13650	13749	
==>ol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13650	13749	
==>ol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13650	13749	
==>ol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3411	3580	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6347	6516	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3411	3580	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6347	6516	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3411	3580	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6347	6516	
==>turn sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not hav <==
6	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	958	1061	
==>package Test::Harness::Iterator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1154	1251	
==>be printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses a <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1154	1251	
==>be printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2758	2853	
==>_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2758	2853	
==>_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2758	2853	
==>_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4263	4387	
==>DATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4263	4387	
==>DATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4263	4387	
==>DATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1193	1288	
==>file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBegi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1193	1288	
==>file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBegi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1193	1288	
==>file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBegi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	64	165	
==>time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	64	165	
==>time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2324	2424	
==>new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter that redu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	567	663	
==>mpfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	567	663	
==>mpfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	90	186	
==>ctions called when regexps are compiled and
# applied) to permit alternate regexp engines to be u <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22060	22171	
==>.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endi <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16962	17071	
==>.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1878	1969	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1841	1932	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1878	1969	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1841	1932	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3877	3993	
==>:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3877	3993	
==>:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5985	6096	
==>postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5985	6096	
==>postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4409	4519	
==>:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4409	4519	
==>:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2991	3105	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10914	11028	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6116	6230	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2991	3105	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10914	11028	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6116	6230	
==>Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12537	12648	
==>? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12537	12648	
==>? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12537	12648	
==>? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2191	2280	
==>$!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2191	2280	
==>$!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2191	2280	
==>$!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2611	2724	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2611	2724	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2611	2724	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4950	5060	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4950	5060	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4950	5060	
==>thod('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	546	651	
==>return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	546	651	
==>return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	546	651	
==>return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14753	14838	
==>gs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14753	14838	
==>gs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14753	14838	
==>gs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	486	592	
==>{ $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. m <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	486	592	
==>{ $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31999	32095	
==>ame heading as
the invocant Relation, and returns a new Relation that has the same heading
and wh <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33860	33956	
==>ame heading as the
invocant Relation, and returns a new Relation that has the same heading and
wh <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36549	36645	
==>ame heading as
the invocant Relation, and returns a new Relation that has the same heading
and wh <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38410	38506	
==>ame heading as the
invocant Relation, and returns a new Relation that has the same heading and
wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4531	4656	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2743	2868	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4531	4656	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2743	2868	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4531	4656	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2743	2868	
==>a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to o <==
6	/Users/nnunley/pugs/util/ghc_setup.pl	645	758	
==>tup, @args);
if ($rv == 0) {
    if ($prompt_register) {
        print << ".";
*** Installed!  If you would like t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	576	673	
==>e);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descript <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	576	673	
==>e);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descript <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12122	12214	
==>SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12122	12214	
==>SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12122	12214	
==>SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35601	35732	
==>( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35601	35732	
==>( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35601	35732	
==>( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	404	502	
==>require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Coul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	404	502	
==>require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Coul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	404	502	
==>require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Coul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15227	15398	
==>ray->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15227	15398	
==>ray->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15227	15398	
==>ray->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3875	3993	
==>ie "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3875	3993	
==>ie "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3875	3993	
==>ie "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2711	2810	
==>S.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2711	2810	
==>S.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2711	2810	
==>S.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ). <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1216	1313	
==>stant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1216	1313	
==>stant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1216	1313	
==>stant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9231	9362	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12204	12335	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9231	9362	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12204	12335	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9231	9362	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12204	12335	
==>thod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11119	11242	
==>|| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11119	11242	
==>|| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11119	11242	
==>|| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1789	1910	
==>t)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1789	1910	
==>t)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1789	1910	
==>t)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = - <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4909	5008	
==>e match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4909	5008	
==>e match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11885	11977	
==>ead2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9032	9124	
==>ead2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11885	11977	
==>ead2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9032	9124	
==>ead2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2 <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3532	3677	
==>avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or re <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3996	4141	
==>avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or re <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5761	5858	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4891	4988	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5761	5858	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4891	4988	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2908	3023	
==>ed $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2908	3023	
==>ed $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2908	3023	
==>ed $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1389	1496	
==>&& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1389	1496	
==>&& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1389	1496	
==>&& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10615	10724	
==>y' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10615	10724	
==>y' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10615	10724	
==>y' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	617	711	
==>clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tain <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	617	711	
==>clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tain <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	617	711	
==>clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tain <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3056	3168	
==>a("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3056	3168	
==>a("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3056	3168	
==>a("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1474	1571	
==>c},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1474	1571	
==>c},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1474	1571	
==>c},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	582	703	
==>_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	617	738	
==>_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	582	703	
==>_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9799	9920	
==>_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1055	1176	
==>_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18202	18303	
==>h,
and to get back match results.

Our objective here is to see if it is possible to use the regexp
st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	285	387	
==>$self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	285	387	
==>$self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	285	387	
==>$self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion" <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1673	1767	
==>onfig{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9542	9631	
==>er_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9542	9631	
==>er_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2348	2458	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2348	2458	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2348	2458	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40239	40348	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40239	40348	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40239	40348	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1482	1593	
==>LY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1482	1593	
==>LY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1482	1593	
==>LY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	560	657	
==>ands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	560	657	
==>ands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	560	657	
==>ands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7333	7468	
==>("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7333	7468	
==>("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	154	286	
==>ion {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	154	286	
==>ion {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5248	5365	
==>w( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  / <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5067	5176	
==>w( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  / <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	65	168	
==>..}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	65	168	
==>..}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	65	168	
==>..}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3683	3769	
==>UBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3683	3769	
==>UBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3683	3769	
==>UBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	516	626	
==>:require::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::longm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8351	8458	
==>_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AU <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8351	8458	
==>_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AU <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8351	8458	
==>_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AU <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10219	10308	
==>-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defi <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10954	11043	
==>-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defi <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1035	1149	
==>TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1035	1149	
==>TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3561	3650	
==>val) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3561	3650	
==>val) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3561	3650	
==>val) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5781	5869	
==>")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, " <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2905	3032	
==>d tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        m <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2905	3032	
==>d tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	200	318	
==>class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	194	312	
==>class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	200	318	
==>class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	194	312	
==>class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15799	15955	
==>ap( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $see <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15799	15955	
==>ap( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $see <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15799	15955	
==>ap( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $see <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	117	223	
==>onstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	117	223	
==>onstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	117	223	
==>onstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	963	1066	
==>return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	963	1066	
==>return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	963	1066	
==>return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4155	4250	
==>nstance
constructor, and when calling these methods you should take care not
to call them in fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4155	4250	
==>nstance
constructor, and when calling these methods you should take care not
to call them in fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4155	4250	
==>nstance
constructor, and when calling these methods you should take care not
to call them in fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9281	9392	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6828	6939	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9281	9392	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6828	6939	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9281	9392	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6828	6939	
==>$self->_make_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1058	1175	
==>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1058	1175	
==>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs: <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	408	504	
==>y => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params-> <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	484	580	
==>y => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params-> <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15536	15629	
==>on, or their
privileges regarding access to information details, or their technical
skills.  F <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15536	15629	
==>on, or their
privileges regarding access to information details, or their technical
skills.  F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7998	8131	
==>},
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7998	8131	
==>},
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7998	8131	
==>},
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	458	574	
==>vocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	458	574	
==>vocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	458	574	
==>vocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ / <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12891	13004	
==>lue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12891	13004	
==>lue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12891	13004	
==>lue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16989	17082	
==>ternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16989	17082	
==>ternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16989	17082	
==>ternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29490	29598	
==>AL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29490	29598	
==>AL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29490	29598	
==>AL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub su <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19477	19577	
==>erface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24029	24129	
==>erface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22545	22645	
==>erface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10275	10443	
==>nted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10275	10443	
==>nted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10275	10443	
==>nted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7148	7242	
==>uthority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7148	7242	
==>uthority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7148	7242	
==>uthority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9090	9231	
==>uired";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX obj <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10567	10708	
==>uired";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX obj <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3584	3699	
==>XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4901	5016	
==>XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3584	3699	
==>XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4889	5004	
==>XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8785	8958	
==>ess ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5145	5318	
==>ess ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5994	6167	
==>ess ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	135	227	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	135	227	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	135	227	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Read <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	195	294	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	136	235	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	195	294	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	136	235	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	195	294	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	136	235	
==>ccording to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4482	4606	
==>=> { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4675	4799	
==>=> { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9911	10019	
==>y this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9911	10019	
==>y this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3423	3522	
==>ific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3423	3522	
==>ific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	130	233	
==>e Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	130	233	
==>e Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	130	233	
==>e Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20001	20094	
==>1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20001	20094	
==>1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20001	20094	
==>1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3828	3958	
==>ode, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4073	4196	
==>ode, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10522	10645	
==>ode, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4073	4196	
==>ode, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10522	10645	
==>ode, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'ca <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	1574	1668	
==>m)) }
type::operator::nary: level($.param) = { level($$) }

ROOT: level($$) = { 0 }
type::opera <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2547	2642	
==>"statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2547	2642	
==>"statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2547	2642	
==>"statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19841	19934	
==>1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19841	19934	
==>1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19841	19934	
==>1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15846	15969	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13096	13219	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15846	15969	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13096	13219	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15846	15969	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13096	13219	
==>s : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18114	18294	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15352	15532	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18114	18294	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15352	15532	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18114	18294	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15352	15532	
==>ybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10252	10382	
==>ess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10252	10382	
==>ess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10252	10382	
==>ess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9744	9870	
==>se)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9744	9870	
==>se)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9744	9870	
==>se)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12689	12833	
==>my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12689	12833	
==>my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12689	12833	
==>my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	237	347	
==>d before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	237	347	
==>d before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	237	347	
==>d before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11835	11920	
==>nals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11835	11920	
==>nals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11835	11920	
==>nals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22186	22419	
==>param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22186	22419	
==>param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22186	22419	
==>param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1410	1520	
==>Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1410	1520	
==>Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1410	1520	
==>Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3264	3379	
==>thod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3264	3379	
==>thod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instan <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3264	3379	
==>thod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	34	129	
==>elf->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	34	129	
==>elf->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	34	129	
==>elf->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12727	12856	
==>ain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12727	12856	
==>ain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12727	12856	
==>ain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	36	132	
==>trict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	36	132	
==>trict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	36	132	
==>trict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18605	18734	
==>ing this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18605	18734	
==>ing this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18605	18734	
==>ing this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3656	3748	
==>l = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3656	3748	
==>l = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.or <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3656	3748	
==>l = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.or <==
6	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1698	1815	
==>> "Hash",     #  └── "" ──┘
        array => "Array", iarray => "Array", #  └── "" ──┘
      ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15207	15303	
==>ype ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15207	15303	
==>ype ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15207	15303	
==>ype ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8180	8271	
==>ub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2005	2096	
==>ub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11403	11545	
==>lone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11403	11545	
==>lone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11403	11545	
==>lone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7697	7792	
==>_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7697	7792	
==>_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7697	7792	
==>_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18890	19014	
==>, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18890	19014	
==>, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18890	19014	
==>, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1555	1644	
==>ue_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1555	1644	
==>ue_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1555	1644	
==>ue_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($d <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3085	3197	
==>newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $d <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3085	3197	
==>newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $d <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21415	21510	
==>$event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Ev <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20296	20391	
==>$event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Ev <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21415	21510	
==>$event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Ev <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20296	20391	
==>$event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Ev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	452	557	
==>ys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	452	557	
==>ys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	452	557	
==>ys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20086	20180	
==>ypes.

While the implementation can be changed greatly (it isn't what's important;
the interfac <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24638	24732	
==>ypes.

While the implementation can be changed greatly (it isn't what's important;
the interfac <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23190	23284	
==>ypes.

While the implementation can be changed greatly (it isn't what's important;
the interfac <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	907	1021	
==>dont match the root of the path
        # then we have failed already and so return
        return unless $func($cu <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	907	1021	
==>dont match the root of the path
        # then we have failed already and so return
        return unless $func($cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2878	2978	
==>w('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2878	2978	
==>w('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2878	2978	
==>w('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$sel <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19368	19456	
==>aptures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(E <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	787	903	
==>ducer::DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] } <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2198	2314	
==>x:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'inf <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2198	2314	
==>x:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12687	12802	
==>ef}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    eac <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12687	12802	
==>ef}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    eac <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12687	12802	
==>ef}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    eac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15005	15120	
==>e_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15005	15120	
==>e_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15005	15120	
==>e_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1202	1308	
==>lf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1202	1308	
==>lf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1202	1308	
==>lf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7682	7835	
==>}
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mode <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7682	7835	
==>}
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mode <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7682	7835	
==>}
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mode <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17002	17091	
==>te('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17002	17091	
==>te('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17002	17091	
==>te('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	366	465	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1229	1328	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	366	465	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1229	1328	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	366	465	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1229	1328	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2043	2158	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2448	2563	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2043	2158	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2448	2563	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2043	2158	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2448	2563	
==>fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6664	6814	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9634	9784	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6664	6814	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9634	9784	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6664	6814	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9634	9784	
==>:ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if bles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2368	2477	
==>pand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2368	2477	
==>pand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2368	2477	
==>pand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1264	1366	
==>lue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mult <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1264	1366	
==>lue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mult <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1264	1366	
==>lue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10641	10793	
==>other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10641	10793	
==>other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10641	10793	
==>other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	942	1073	
==>instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	942	1073	
==>instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	942	1073	
==>instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4765	4901	
==>s) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4765	4901	
==>s) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4765	4901	
==>s) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12035	12165	
==>ass1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12035	12165	
==>ass1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12035	12165	
==>ass1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	717	812	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1237	1332	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	717	812	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1237	1332	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	717	812	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1237	1332	
==>FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PI <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4992	5163	
==>t_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = se <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4992	5163	
==>t_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = se <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22002	22102	
==>tchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2892	2989	
==>x.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2892	2989	
==>x.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2892	2989	
==>x.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8230	8359	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5789	5918	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8230	8359	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5789	5918	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8230	8359	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5789	5918	
==>mpties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7006	7142	
==>lue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7006	7142	
==>lue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7006	7142	
==>lue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1148	1256	
==>X - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1148	1256	
==>X - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1148	1256	
==>X - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1061	1202	
==>ct_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$ <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1061	1202	
==>ct_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6125	6236	
==>!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16108	16219	
==>!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9602	9713	
==>!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19585	19696	
==>!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values. <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3635	3746	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3635	3746	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7923	8031	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7053	7161	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7923	8031	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7053	7161	
==>tions on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10079	10176	
==>PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10079	10176	
==>PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10079	10176	
==>PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1450	1543	
==>{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1450	1543	
==>{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1450	1543	
==>{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc} <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14782	14901	
==>}
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40580	40694	
==>arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $th <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40580	40694	
==>arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $th <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40580	40694	
==>arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $th <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10693	10786	
==>= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10693	10786	
==>= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5087	5242	
==>}

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5087	5242	
==>}

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24223	24360	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24502	24639	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1012	1103	
==>al, and object-oriented interfaces.  The 
functional and object-oriented interfaces both fol <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1012	1103	
==>al, and object-oriented interfaces.  The 
functional and object-oriented interfaces both fol <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3324	3415	
==>SCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder f <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3324	3415	
==>SCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5521	5612	
==>SCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14697	14786	
==>.};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14697	14786	
==>.};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14697	14786	
==>.};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4017	4142	
==>not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4017	4142	
==>not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4017	4142	
==>not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1089	1204	
==>s keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1089	1204	
==>s keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1089	1204	
==>s keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7671	7833	
==>,
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7671	7833	
==>,
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7671	7833	
==>,
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	454	542	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	454	542	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	454	542	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2538	2655	
==>ame};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2538	2655	
==>ame};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2538	2655	
==>ame};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1003	1112	
==>ile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTI <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1003	1112	
==>ile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTI <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12033	12127	
==>LIB>

  $self->_restore_PERL5LIB;

This restores the original value of the C<PERL5LIB> environm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2690	2803	
==>0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2690	2803	
==>0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2690	2803	
==>0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1881	1976	
==>:PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1881	1976	
==>:PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1881	1976	
==>:PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5218	5341	
==>sUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($token <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5218	5341	
==>sUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($token <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5218	5341	
==>sUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($token <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1123	1218	
==>$xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1123	1218	
==>$xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1123	1218	
==>$xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2871	2973	
==>}
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2871	2973	
==>}
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitiv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2871	2973	
==>}
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitiv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	867	965	
==>that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	867	965	
==>that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	867	965	
==>that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1940	2041	
==>ke encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octe <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2302	2403	
==>ke encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octe <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1940	2041	
==>ke encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octe <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2302	2403	
==>ke encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octe <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20995	21086	
==>defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postgr <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20995	21086	
==>defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postgr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8662	8798	
==>eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14387	14523	
==>eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8662	8798	
==>eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14381	14517	
==>eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	805	910	
==>oin ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	706	811	
==>oin ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16330	16495	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21047	21212	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16330	16495	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21047	21212	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16330	16495	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21047	21212	
==>ache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14799	14914	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19498	19613	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14799	14914	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19498	19613	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14799	14914	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19498	19613	
==>ck => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31216	31379	
==>push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31216	31379	
==>push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31216	31379	
==>push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1344	1445	
==>$chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 | <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1344	1445	
==>$chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 | <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2304	2400	
==>OGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16023	16121	
==>->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16023	16121	
==>->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16023	16121	
==>->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17393	17490	
==>el functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17393	17490	
==>el functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17393	17490	
==>el functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17769	17938	
==>r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21246	21415	
==>r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20833	21002	
==>r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9028	9168	
==>h = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9028	9168	
==>h = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9028	9168	
==>h = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13057	13196	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13057	13196	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13057	13196	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5297	5436	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3797	3936	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1942	2081	
==>+= $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6354	6503	
==>f);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6354	6503	
==>f);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6354	6503	
==>f);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32293	32441	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32293	32441	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32293	32441	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	895	1000	
==>the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	895	1000	
==>the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	895	1000	
==>the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = : <==
6	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1378	1513	
==>n {
    method dispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	742	844	
==>nt(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	742	844	
==>nt(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	742	844	
==>nt(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{ <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10206	10292	
==>ned($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
p <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10941	11027	
==>ned($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
p <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2412	2516	
==>Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $s <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2412	2516	
==>Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $s <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10315	10411	
==>rt(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8208	8304	
==>rt(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10315	10411	
==>rt(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8208	8304	
==>rt(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3571	3691	
==>class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3571	3691	
==>class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3571	3691	
==>class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2666	2773	
==>g to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2666	2773	
==>g to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2666	2773	
==>g to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6435	6557	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9405	9527	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6435	6557	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9405	9527	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6435	6557	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9405	9527	
==>method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3865	4010	
==>lass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3865	4010	
==>lass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3865	4010	
==>lass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6679	6781	
==>ft;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	26	119	
==>e::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInlin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	26	119	
==>e::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInlin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4557	4671	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7493	7607	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4557	4671	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7493	7607	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4557	4671	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7493	7607	
==>>isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2190	2291	
==>))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2190	2291	
==>))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2190	2291	
==>))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & N <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3596	3694	
==>, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should p <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3596	3694	
==>, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3676	3774	
==>, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7045	7178	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10015	10148	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7045	7178	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10015	10148	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7045	7178	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10015	10148	
==>apped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we a <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1156	1292	
==>y @files = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, $fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	236	335	
==>n be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	236	335	
==>n be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	236	335	
==>n be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	15176	15272	
==>ll likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $des <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15234	15330	
==>ll likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $des <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3749	3885	
==>/^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5066	5202	
==>/^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3749	3885	
==>/^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5054	5190	
==>/^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	150	242	
==>r the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	150	242	
==>r the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6409	6545	
==>ng);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6409	6545	
==>ng);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6409	6545	
==>ng);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1301	1401	
==>unctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1301	1401	
==>unctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1301	1401	
==>unctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref L <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1172	1285	
==>JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1172	1285	
==>JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1172	1285	
==>JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5116	5221	
==>n it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5116	5221	
==>n it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5116	5221	
==>n it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9612	9785	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9891	10064	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'gr <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14333	14432	
==>- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignor <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14391	14490	
==>- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignor <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3062	3156	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6076	6170	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8144	8238	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3062	3156	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6076	6170	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8144	8238	
==>se_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13287	13407	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18170	18290	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13287	13407	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18170	18290	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13287	13407	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18170	18290	
==>he 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _normal_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2412	2517	
==>t find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad inf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2412	2517	
==>t find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad inf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2412	2517	
==>t find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	727	830	
==>->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	727	830	
==>->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	727	830	
==>->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2 <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	313	419	
==>fined $value; # default to 0
    (looks_like_number($value)) 
        || confess "Bad numeric value ($value <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	325	420	
==>($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::root <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3068	3163	
==>elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( s <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	325	420	
==>($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::root <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3068	3163	
==>elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3068	3163	
==>elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1464	1583	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3027	3146	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1464	1583	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3027	3146	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1464	1583	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3027	3146	
==>S, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5051	5178	
==>);
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2593	2720	
==>);
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3374	3501	
==>);
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12784	12898	
==>key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ide <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12784	12898	
==>key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ide <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12784	12898	
==>key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10008	10130	
==>----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # -- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10008	10130	
==>----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # -- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10008	10130	
==>----
    # has %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # -- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9985	10089	
==>---------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9985	10089	
==>---------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9985	10089	
==>---------------------------
    # has %:methods;
    # has %:attributes;
    # -------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	370	475	
==>()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unle <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	370	475	
==>()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unle <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8946	9043	
==>com>.

This code is free software, and may be used, distributed and/or modified under 
the same te <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3875	3972	
==>com>.

This code is free software, and may be used, distributed and/or modified under 
the same te <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8946	9043	
==>com>.

This code is free software, and may be used, distributed and/or modified under 
the same te <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3875	3972	
==>com>.

This code is free software, and may be used, distributed and/or modified under 
the same te <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6312	6410	
==>et $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5442	5540	
==>et $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6312	6410	
==>et $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5442	5540	
==>et $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) retu <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5905	5984	
==>dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($nu <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5905	5984	
==>dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($nu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2811	2922	
==>er::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_outp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2811	2922	
==>er::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_outp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4335	4446	
==>er::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_outp <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37914	38003	
==>o invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, whi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37914	38003	
==>o invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24751	24896	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26940	27085	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24751	24896	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26940	27085	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24751	24896	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26940	27085	
==>ell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7223	7345	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7223	7345	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7223	7345	
==>'$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	724	835	
==>y @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	724	835	
==>y @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	724	835	
==>y @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4989	5124	
==>LLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4989	5124	
==>LLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4989	5124	
==>LLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	764	877	
==>alue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	764	877	
==>alue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	764	877	
==>alue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10124	10258	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12765	12899	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13601	13735	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16242	16376	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12882	13016	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15604	15738	
==>lt is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical heading <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3042	3158	
==>r" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3042	3158	
==>r" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3042	3158	
==>r" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1618	1726	
==>>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - U <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1618	1726	
==>>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - U <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1618	1726	
==>>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - U <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6495	6596	
==>al\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $kernel_local and -s $kerne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13770	13869	
==>Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13770	13869	
==>Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13770	13869	
==>Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $sel <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9677	9772	
==>Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `differe <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9677	9772	
==>Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `differe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2322	2421	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2322	2421	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2322	2421	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	907	1005	
==>as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	907	1005	
==>as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	907	1005	
==>as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e <==
6	/Users/nnunley/pugs/util/drift.pl	1229	1336	
==>ARNING WARNING WARNING --
-}

#ifndef HADDOCK









SCARY

# splice(@program, 2, 0, @scary_header);

open <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1773	1873	
==>erl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
So <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1773	1873	
==>erl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
So <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8460	8553	
==>N_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8460	8553	
==>N_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8460	8553	
==>N_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3726	3830	
==>module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3726	3830	
==>module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5250	5354	
==>module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7676	7770	
==>om => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9604	9698	
==>om => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7664	7758	
==>om => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9681	9805	
==>umber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9681	9805	
==>umber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9681	9805	
==>umber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.leng <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2465	2562	
==>d_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2465	2562	
==>d_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2465	2562	
==>d_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	722	850	
==>} catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	722	850	
==>} catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	722	850	
==>} catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2661	2778	
==>Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2661	2778	
==>Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2661	2778	
==>Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # per <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1561	1692	
==>(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1572	1703	
==>(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5270	5399	
==>um]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6538	6667	
==>um]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5270	5399	
==>um]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6526	6655	
==>um]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8343	8463	
==>b { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8343	8463	
==>b { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays l <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8343	8463	
==>b { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1212	1306	
==>ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_ru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1212	1306	
==>ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_ru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1212	1306	
==>ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_ru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13571	13700	
==>($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) | <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13571	13700	
==>($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) | <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13571	13700	
==>($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4278	4392	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4278	4392	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4278	4392	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5786	5883	
==>) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5786	5883	
==>) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5786	5883	
==>) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	38	129	
==>rl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	35	126	
==>rl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	35	126	
==>rl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10032	10242	
==>' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10032	10242	
==>' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10032	10242	
==>' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                retu <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3254	3361	
==>kell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spe <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3254	3361	
==>kell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22961	23055	
==>d
into separate (and usually third-party) classes, which at the very least
must determine the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1286	1392	
==>($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1286	1392	
==>($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1286	1392	
==>($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	964	1064	
==>$_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	964	1064	
==>$_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	964	1064	
==>$_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]}) <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7664	7767	
==>e (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

Thi <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7664	7767	
==>e (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

Thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	303	419	
==>t @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	303	419	
==>t @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	303	419	
==>t @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub s <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1148	1253	
==>ways true

# comparitor

sub _compare {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa(' <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1899	1991	
==>suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1899	1991	
==>suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6949	7072	
==>@args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6949	7072	
==>@args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6949	7072	
==>@args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3050	3151	
==>1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3050	3151	
==>1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3050	3151	
==>1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is pr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2314	2425	
==>@tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Fu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2314	2425	
==>@tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Fu <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13405	13493	
==>, [42,120,D0|D]) }.% [42,120]="0x"
hexdigits([D|T]) --> hexdigit(D), hexdigits(T), !.
hex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5483	5600	
==>ve {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) imp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5483	5600	
==>ve {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) imp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5483	5600	
==>ve {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) imp <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	720	816	
==>error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=o <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	720	816	
==>error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1276	1372	
==>error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5621	5741	
==>eclaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5621	5741	
==>eclaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5621	5741	
==>eclaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1875	1977	
==>se base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but ha <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2423	2512	
==>t for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscr <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2423	2512	
==>t for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	357	486	
==>= {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	357	486	
==>= {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	357	486	
==>= {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2048	2151	
==>r keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2048	2151	
==>r keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2048	2151	
==>r keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8490	8586	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6043	6139	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8490	8586	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6043	6139	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8490	8586	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6043	6139	
==>ss (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6397	6519	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9367	9489	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6397	6519	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9367	9489	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6397	6519	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9367	9489	
==>_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	625	742	
==>++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	625	742	
==>++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	625	742	
==>++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	501	615	
==>$self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	501	615	
==>$self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	501	615	
==>$self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4127	4290	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7063	7226	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4127	4290	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7063	7226	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4127	4290	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7063	7226	
==>s operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basic <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10525	10649	
==>/parrot" => "$initrd_mnt/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/bash"],
    [$inputrc              => " <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	28279	28384	
==>rder app with uneq types";

# a helper that returns the stringified type of an AST
sub t {
	my $ast = shif <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8176	8270	
==>ix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7306	7400	
==>ix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8176	8270	
==>ix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7306	7400	
==>ix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18471	18590	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15709	15828	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18471	18590	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15709	15828	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18471	18590	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15709	15828	
==>rn $self->has_attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance') <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	596	724	
==>lice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zero <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	596	724	
==>lice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zero <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	330	446	
==>l6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	330	446	
==>l6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (sh <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	330	446	
==>l6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1560	1674	
==>. " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7145	7268	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4704	4827	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7145	7268	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4704	4827	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7145	7268	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4704	4827	
==>nces
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty seq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6803	6939	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9773	9909	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6803	6939	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9773	9909	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6803	6939	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9773	9909	
==>thod if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3586	3705	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6522	6641	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3586	3705	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6522	6641	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3586	3705	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6522	6641	
==>hod
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4911	5035	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7560	7684	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5124	5241	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11573	11690	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5124	5241	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11573	11690	
==>};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6552	6697	
==>reword} eq 'say' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print S <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	413	512	
==>s a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	958	1057	
==>s a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just ne <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	413	512	
==>s a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	958	1057	
==>s a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	958	1057	
==>s a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10740	10877	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15281	15418	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10740	10877	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15281	15418	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10740	10877	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15281	15418	
==>ethod
            if $method_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@cla <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11003	11139	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12474	12610	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14480	14616	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15951	16087	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13788	13924	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15313	15449	
==>.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7092	7251	
==>e ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7092	7251	
==>e ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7092	7251	
==>e ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5133	5282	
==>:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5133	5282	
==>:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5133	5282	
==>:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [g <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1794	1918	
==>oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1794	1918	
==>oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1794	1918	
==>oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9447	9566	
==>c    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9447	9566	
==>c    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9447	9566	
==>c    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    fo <==
6	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1570	1704	
==>($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_es <==
6	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1570	1704	
==>($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_es <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2994	3093	
==>) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cut <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3151	3250	
==>) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cut <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2994	3093	
==>) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cut <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3151	3250	
==>) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cut <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6420	6526	
==>>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6420	6526	
==>>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6420	6526	
==>>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	377	480	
==>};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::V <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	377	480	
==>};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::V <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	377	480	
==>};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4760	4862	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4760	4862	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4760	4862	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3936	4035	
==>$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3936	4035	
==>$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3936	4035	
==>$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	91	206	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	86	201	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	91	206	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	86	201	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	91	206	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	86	201	
==>ift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13460	13616	
==>ce' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13460	13616	
==>ce' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13460	13616	
==>ce' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4546	4631	
==>Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4546	4631	
==>Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5136	5221	
==>Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31250	31436	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33008	33194	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31250	31436	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33008	33194	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31250	31436	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33008	33194	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                } <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7393	7506	
==>ed || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2932	3045	
==>\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A: <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7393	7506	
==>ed || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $sel <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1306	1419	
==>\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2932	3045	
==>\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2932	3045	
==>\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8835	8938	
==>open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	569	672	
==>open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8835	8938	
==>open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8835	8938	
==>open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11066	11163	
==>m B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11066	11163	
==>m B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1408	1509	
==>ew PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1408	1509	
==>ew PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1408	1509	
==>ew PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16187	16283	
==>e::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16187	16283	
==>e::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16187	16283	
==>e::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3022	3148	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6015	6141	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3300	3418	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9718	9836	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3300	3418	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9718	9836	
==>urn $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_st <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6599	6701	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5729	5831	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2383	2485	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2383	2485	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6599	6701	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5729	5831	
==>{
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1207	1328	
==>ndef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1207	1328	
==>ndef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1207	1328	
==>ndef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd thi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34085	34183	
==>in the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=b <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34085	34183	
==>in the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=b <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8584	8678	
==>$code_body = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $class = $params->[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13284	13401	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18167	18284	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13284	13401	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18167	18284	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13284	13401	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18167	18284	
==>s the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of _n <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14629	14768	
==>r;    # eg., 2005; "pre-Gregorian dates are inaccurate" - GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NOTE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25854	25991	
==>tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25854	25991	
==>tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25854	25991	
==>tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf' <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6377	6490	
==>s could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6377	6490	
==>s could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1142	1259	
==>x(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method post <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1142	1259	
==>x(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method post <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1142	1259	
==>x(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method post <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15360	15527	
==>rs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15360	15527	
==>rs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15360	15527	
==>rs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	231	366	
==>y );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . joi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	117	245	
==>y );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . joi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	117	245	
==>y );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4497	4598	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6446	6547	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4497	4598	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6446	6547	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4497	4598	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6446	6547	
==>IKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8715	8900	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11688	11873	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8715	8900	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11688	11873	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8715	8900	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11688	11873	
==>use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Metho <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8425	8547	
==>capture - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	583	705	
==>capture - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	853	973	
==>capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sh <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8142	8262	
==>capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sh <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	557	677	
==>capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	853	973	
==>capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4336	4460	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6985	7109	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4565	4686	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11014	11135	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4565	4686	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11014	11135	
==>::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16386	16511	
==>t() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is co <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16386	16511	
==>t() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is co <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8847	8970	
==>px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36946	37063	
==>y );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36946	37063	
==>y );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36946	37063	
==>y );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $ar <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3687	3880	
==>dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3490	3624	
==>ned( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4419	4551	
==>ned( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3380	3512	
==>ned( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4419	4551	
==>ned( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0 <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5473	5602	
==>cture:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_thunk'),
            P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24701	24831	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26890	27020	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24701	24831	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26890	27020	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24701	24831	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26890	27020	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $sample <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2684	2780	
==>Val :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.va <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2684	2780	
==>Val :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.va <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5685	5780	
==>k at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) return <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4815	4910	
==>k at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5685	5780	
==>k at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4815	4910	
==>k at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7871	8106	
==>t; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7871	8106	
==>t; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7871	8106	
==>t; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4125	4211	
==>::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4125	4211	
==>::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4125	4211	
==>::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4432	4592	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6944	7104	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4432	4592	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6944	7104	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4432	4592	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6944	7104	
==>}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1491	1598	
==>S.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1491	1598	
==>S.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1491	1598	
==>S.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1186	1283	
==>ond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1186	1283	
==>ond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1186	1283	
==>ond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pri <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25054	25145	
==>n
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<example <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23818	23909	
==>n
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<example <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25054	25145	
==>n
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<example <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23818	23909	
==>n
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<example <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1704	1871	
==>rtCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	273	386	
==>- The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	273	386	
==>- The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5170	5263	
==>tional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5170	5263	
==>tional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6694	6787	
==>tional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? ) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2993	3099	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6007	6113	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8075	8181	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2993	3099	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6007	6113	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8075	8181	
==>returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7895	8031	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10818	10954	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7895	8031	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10818	10954	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7895	8031	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10818	10954	
==>($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submethod');        
        (defined <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12664	12799	
==>= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12664	12799	
==>= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24273	24367	
==>interactive program controlling their
  actions) which are always seen to be replying lest they <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23046	23140	
==>interactive program controlling their
  actions) which are always seen to be replying lest they <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24273	24367	
==>interactive program controlling their
  actions) which are always seen to be replying lest they <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23046	23140	
==>interactive program controlling their
  actions) which are always seen to be replying lest they <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16716	16837	
==>b type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{np <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18142	18263	
==>b type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{np <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24761	24882	
==>b type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{np <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	117	224	
==>f == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	117	224	
==>f == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	117	224	
==>f == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScop <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13052	13189	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13052	13189	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13052	13189	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5292	5429	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3792	3929	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1937	2074	
==>$off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16969	17129	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21684	21844	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16969	17129	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21684	21844	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16969	17129	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21684	21844	
==>xists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2774	2901	
==>lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2774	2901	
==>lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2774	2901	
==>lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5119	5241	
==>}
    }
    # this is our does() method, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3228	3334	
==>should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3228	3334	
==>should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6643	6740	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5773	5870	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2427	2524	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2427	2524	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6643	6740	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5773	5870	
==>al unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10667	10797	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15208	15338	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10667	10797	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15208	15338	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10667	10797	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15208	15338	
==>y need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2606	2706	
==>>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2606	2706	
==>>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2606	2706	
==>>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22836	22928	
==>));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22836	22928	
==>));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22836	22928	
==>));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9440	9611	
==>mented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14984	15155	
==>mented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9440	9611	
==>mented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14978	15149	
==>mented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prio <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	340	432	
==>ode_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($sel <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	340	432	
==>ode_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	124	224	
==>PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	124	224	
==>PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	124	224	
==>PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4989	5121	
==>lti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4989	5121	
==>lti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4989	5121	
==>lti,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2443	2539	
==>{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2443	2539	
==>{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2443	2539	
==>{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	479	601	
==>the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shif <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	479	601	
==>the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shif <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	479	601	
==>the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5425	5523	
==>EXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5425	5523	
==>EXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5425	5523	
==>EXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob" <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3683	3778	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6702	6797	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8771	8866	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3683	3778	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6702	6797	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8771	8866	
==>le::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8108	8324	
==>ify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8108	8324	
==>ify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8108	8324	
==>ify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19611	19705	
==>& $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19611	19705	
==>& $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19611	19705	
==>& $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $v <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11893	12005	
==>1 ]
                } @{ $self->registered_alternatives }; 

    $self->registered_alternatives( \@alts ) if $alt <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	477	579	
==>e.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Remo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1022	1124	
==>e.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Remo <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	477	579	
==>e.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Remo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1022	1124	
==>e.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Remo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1022	1124	
==>e.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Remo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	835	938	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1355	1458	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	835	938	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1355	1458	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	835	938	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1355	1458	
==>y = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6870	6974	
==>xists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1227	1329	
==>xists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	329	428	
==>xists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6802	6900	
==>* $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6802	6900	
==>* $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6802	6900	
==>* $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11545	11673	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2539	2667	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7633	7761	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11545	11673	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2539	2667	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7633	7761	
==>'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4504	4602	
==>g positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PA <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4504	4602	
==>g positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PA <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5094	5192	
==>g positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PA <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4241	4336	
==>(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4241	4336	
==>(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4241	4336	
==>(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1012	1118	
==>eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1012	1118	
==>eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1012	1118	
==>eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ( <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8585	8683	
==>ight be to run a threaded Perl, for example.

You can also overload this method if you've built you <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24484	24579	
==>distribute it and/or modify it under
the terms of the GNU General Public License (GPL) as publis <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24484	24579	
==>distribute it and/or modify it under
the terms of the GNU General Public License (GPL) as publis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14083	14218	
==>shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14083	14218	
==>shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14083	14218	
==>shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	17	117	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	17	117	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	17	117	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4494	4632	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7143	7281	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4719	4853	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11168	11302	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4719	4853	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11168	11302	
==>e $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3607	3718	
==>ethod);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3607	3718	
==>ethod);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3607	3718	
==>ethod);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10929	11029	
==>V{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10929	11029	
==>V{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10929	11029	
==>V{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5876	6042	
==>ar i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5876	6042	
==>ar i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5876	6042	
==>ar i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19954	20091	
==>STROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19954	20091	
==>STROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19954	20091	
==>STROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13262	13391	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13262	13391	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13262	13391	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5502	5631	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4002	4131	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2147	2276	
==>ff if !defined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5539	5661	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8509	8631	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5539	5661	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8509	8631	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5539	5661	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8509	8631	
==>subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1628	1757	
==>ift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1628	1757	
==>ift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1628	1757	
==>ift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2797	2894	
==>Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    els <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2797	2894	
==>Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    els <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2797	2894	
==>Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5820	5921	
==>Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5820	5921	
==>Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6410	6511	
==>Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	427	520	
==>indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	427	520	
==>indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	427	520	
==>indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	274	369	
==>from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	819	914	
==>from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It a <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	274	369	
==>from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	819	914	
==>from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	819	914	
==>from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It a <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24062	24150	
==>ODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'last') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4405	4525	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4629	4749	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4405	4525	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4629	4749	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4405	4525	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4629	4749	
==>is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12941	13142	
==>alue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12941	13142	
==>alue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12941	13142	
==>alue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17952	18044	
==>MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17952	18044	
==>MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17952	18044	
==>MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25210	25310	
==>he same change to an object when the permutation of its
arguments and any invocant object's attribute <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11341	11441	
==>he same change to an object when the permutation of its
arguments and any invocant object's attribute <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14614	14714	
==>he same change
to an object when the permutation of its arguments and any invocant
object's attribute <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25210	25310	
==>he same change to an object when the permutation of its
arguments and any invocant object's attribute <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11341	11441	
==>he same change to an object when the permutation of its
arguments and any invocant object's attribute <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14614	14714	
==>he same change
to an object when the permutation of its arguments and any invocant
object's attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2700	2841	
==>{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2700	2841	
==>{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2700	2841	
==>{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## P <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3395	3491	
==>ived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3395	3491	
==>ived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3475	3571	
==>ived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14342	14455	
==>if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14342	14455	
==>if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14342	14455	
==>if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4933	5040	
==>ASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4933	5040	
==>ASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4933	5040	
==>ASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3258	3356	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11816	11914	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6383	6481	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3258	3356	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11816	11914	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6383	6481	
==>}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1861	2013	
==>$base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1861	2013	
==>$base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2578	2706	
==>$base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2578	2706	
==>$base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1255	1350	
==>ell.

Log::Selective exports a single function, C<note>, which is called with zero or 
more stri <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1255	1350	
==>ell.

Log::Selective exports a single function, C<note>, which is called with zero or 
more stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16525	16639	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21242	21356	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16525	16639	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21242	21356	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16525	16639	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21242	21356	
==>ectly, it should
# collect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2244	2359	
==>) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2244	2359	
==>) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2244	2359	
==>) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28526	28622	
==>e new tuple-valued attribute names and each of its values
the set of old attribute names that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33078	33174	
==>e new tuple-valued attribute names and each of its values
the set of old attribute names that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32206	32302	
==>e new tuple-valued attribute names and each of its values
the set of old attribute names that are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4822	5004	
==>rivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4822	5004	
==>rivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sing <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4822	5004	
==>rivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23267	23365	
==>Seek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23267	23365	
==>Seek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23267	23365	
==>Seek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2902	3110	
==>->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - M <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2902	3110	
==>->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - M <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2902	3110	
==>->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - M <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	29	138	
==>offeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	LAST {
		print $pot <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8276	8374	
==>context, they all return the count of elements that would have
been iterated.

=back



=head2 List <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36801	36898	
==>'!'.  '!' will indicate a negative look-ahead.

  package Regexp::AndBranch;
  use base 'Regexp::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36622	36742	
==>ay->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36622	36742	
==>ay->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36622	36742	
==>ay->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	229	330	
==>ckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	229	330	
==>ckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	229	330	
==>ckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Per <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7717	7835	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6847	6965	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3433	3551	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3433	3551	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7717	7835	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6847	6965	
==>}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
multi sub *infix:<~~> ($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17372	17470	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14597	14695	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17372	17470	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14597	14695	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17372	17470	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14597	14695	
==>_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3957	4053	
==>ed in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3957	4053	
==>ed in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3957	4053	
==>ed in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6345	6440	
==>($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6345	6440	
==>($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6345	6440	
==>($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9207	9335	
==>on
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not imple <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9207	9335	
==>on
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not imple <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20203	20298	
==>ffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19162	19257	
==>ffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=hea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20203	20298	
==>ffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=hea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19162	19257	
==>ffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3545	3652	
==>utovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::g <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3545	3652	
==>utovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::g <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3545	3652	
==>utovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14945	15043	
==>ecause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14945	15043	
==>ecause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14945	15043	
==>ecause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8770	8907	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6323	6460	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8770	8907	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6323	6460	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8770	8907	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6323	6460	
==>lasses}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12610	12716	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10161	10267	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12610	12716	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10161	10267	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12610	12716	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10161	10267	
==>r(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($nex <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13083	13216	
==>:p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21133	21266	
==>:p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13362	13495	
==>:p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21412	21545	
==>:p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3191	3295	
==>before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:per <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3191	3295	
==>before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:per <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10359	10480	
==>, $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10359	10480	
==>, $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match- <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3386	3486	
==>d>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2546	2644	
==>work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2546	2644	
==>work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2546	2644	
==>work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10629	10743	
==>attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!head <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14106	14220	
==>attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!head <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13405	13519	
==>attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!head <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2932	3040	
==>1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eag <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2932	3040	
==>1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eag <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2932	3040	
==>1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1097	1195	
==>ss @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1097	1195	
==>ss @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1097	1195	
==>ss @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20677	20775	
==>xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20677	20775	
==>xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20677	20775	
==>xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2959	3051	
==>calar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2959	3051	
==>calar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2959	3051	
==>calar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3738	3864	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6674	6800	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3738	3864	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6674	6800	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3738	3864	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6674	6800	
==>od, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6376	6488	
==>{},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6376	6488	
==>{},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6376	6488	
==>{},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	708	794	
==>:Class ]);

## ------------------------------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	708	794	
==>:Class ]);

## ------------------------------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	708	794	
==>:Class ]);

## ------------------------------------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	82	215	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	443	576	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	82	215	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	443	576	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	82	215	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	443	576	
==>tring;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24178	24313	
==>$i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [], <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24178	24313	
==>$i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [], <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24178	24313	
==>$i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [], <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6910	7026	
==>in_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6910	7026	
==>in_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6910	7026	
==>in_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11037	11150	
==>celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11037	11150	
==>celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11037	11150	
==>celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1308	1410	
==>,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1308	1410	
==>,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1308	1410	
==>,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9346	9451	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6893	6998	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9346	9451	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6893	6998	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9346	9451	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6893	6998	
==>breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descenda <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1554	1671	
==>}
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1554	1671	
==>}
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1554	1671	
==>}
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4692	4780	
==>:stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4692	4780	
==>:stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4692	4780	
==>:stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	650	746	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1170	1266	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	650	746	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1170	1266	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	650	746	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1170	1266	
==>'new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13046	13257	
==>_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13046	13257	
==>_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13046	13257	
==>_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8366	8514	
==>oxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8366	8514	
==>oxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8366	8514	
==>oxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5573	5684	
==>/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that man <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5573	5684	
==>/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that man <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5981	6087	
==>f.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.paren <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6174	6280	
==>f.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.paren <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5981	6087	
==>f.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.paren <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6174	6280	
==>f.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.paren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1620	1730	
==>slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svre <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1620	1730	
==>slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svre <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1856	1966	
==>slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2283	2376	
==>gs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2283	2376	
==>gs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2283	2376	
==>gs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14552	14659	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11812	11919	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14552	14659	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11812	11919	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14552	14659	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11812	11919	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2330	2459	
==>r, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2330	2459	
==>r, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2330	2459	
==>r, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	166	293	
==>$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	166	293	
==>$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	166	293	
==>$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16872	17016	
==>class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16872	17016	
==>class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16872	17016	
==>class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10233	10325	
==>esnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key', <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10233	10325	
==>esnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key', <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10233	10325	
==>esnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key', <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11778	11996	
==>] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11778	11996	
==>] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5393	5605	
==>ument,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5393	5605	
==>ument,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9815	9921	
==>$self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this does <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9815	9921	
==>$self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this does <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9076	9240	
==>shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9076	9240	
==>shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9076	9240	
==>shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3235	3340	
==>} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3235	3340	
==>} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3235	3340	
==>} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14065	14171	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11337	11443	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14065	14171	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11337	11443	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14065	14171	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11337	11443	
==>thod label"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37949	38076	
==>ng 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37949	38076	
==>ng 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37949	38076	
==>ng 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn " <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4086	4180	
==>em B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4086	4180	
==>em B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5610	5704	
==>em B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5856	5975	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3976	4095	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5856	5975	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3976	4095	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5856	5975	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3976	4095	
==>aque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	170	340	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	975	1145	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	295	465	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	170	340	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	975	1145	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	295	465	
==>ent => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8464	8566	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6017	6119	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8464	8566	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6017	6119	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8464	8566	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6017	6119	
==>my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6315	6443	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6315	6443	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DE <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6315	6443	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1191	1304	
==>bnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1191	1304	
==>bnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1191	1304	
==>bnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2896	3029	
==>t(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2896	3029	
==>t(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2896	3029	
==>t(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6768	6863	
==>is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6768	6863	
==>is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6768	6863	
==>is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	417	521	
==>[^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_ms <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	417	521	
==>[^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_ms <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13117	13210	
==>fs, array refs, scalars),
which is suitable as a generic data interchange format between
Roset <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18212	18305	
==>fs,
array refs, scalars), which is suitable as a generic data interchange
format between Roset <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13117	13210	
==>fs, array refs, scalars),
which is suitable as a generic data interchange format between
Roset <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18212	18305	
==>fs,
array refs, scalars), which is suitable as a generic data interchange
format between Roset <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1325	1501	
==>s);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pad <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1325	1501	
==>s);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pad <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	493	622	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	493	622	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	493	622	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (f <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23963	24050	
==>replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8765	9013	
==>nction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8765	9013	
==>nction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8765	9013	
==>nction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12843	12971	
==>emented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12843	12971	
==>emented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12843	12971	
==>emented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4779	4893	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4779	4893	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5369	5483	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5324	5437	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5324	5437	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5914	6027	
==>v, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13222	13360	
==>in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"f <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9408	9546	
==>in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10244	10382	
==>in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6455	6551	
==>Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6455	6551	
==>Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6455	6551	
==>Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2698	2817	
==>ten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2698	2817	
==>ten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2698	2817	
==>ten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12930	13025	
==>t ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12930	13025	
==>t ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12930	13025	
==>t ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10847	10996	
==>ocal $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime:: <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	740	851	
==>ulti ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
su <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	740	851	
==>ulti ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5653	5762	
==>onkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5653	5762	
==>onkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5653	5762	
==>onkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require Ja <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1370	1478	
==>rrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Cod <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1370	1478	
==>rrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Cod <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17537	17633	
==>lement
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17537	17633	
==>lement
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9323	9417	
==>set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9323	9417	
==>set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a su <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13408	13512	
==>lpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5595	5697	
==>lti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all thes <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4725	4827	
==>lti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all thes <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5595	5697	
==>lti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all thes <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4725	4827	
==>lti sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all thes <==
6	/Users/nnunley/pugs/util/package-osx.pl	3189	3277	
==>Library/Perl/5.8.6/darwin-thread-multi-2level/auto/Perl6/Pugs/.packlist
        /Library/ <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2445	2545	
==>ameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSplit[0];
  if ( $syncat eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5104	5203	
==>PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5104	5203	
==>PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5104	5203	
==>PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ma <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22168	22263	
==>simply order the files appropriately in the search
list.  The analogy is similar to inheriting f <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22168	22263	
==>simply order the files appropriately in the search
list.  The analogy is similar to inheriting f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12517	12615	
==>MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12517	12615	
==>MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACR <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12517	12615	
==>MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	809	899	
==>lti sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	809	899	
==>lti sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	809	899	
==>lti sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25749	25890	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25749	25890	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25749	25890	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27944	28083	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27944	28083	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27944	28083	
==>self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3467	3673	
==>n Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3467	3673	
==>n Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3467	3673	
==>n Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10287	10386	
==>et or set the value of one or more header fields.  The header field
name ($field) is not case sensit <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10287	10386	
==>et or set the value of one or more header fields.  The header field
name ($field) is not case sensit <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11480	11574	
==>aracter Support

Perl's regex engine doesn't see \N{NAME} escapes -- they get interpolated
by P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6982	7112	
==>= map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6982	7112	
==>= map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6982	7112	
==>= map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3791	3905	
==>ey => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3791	3905	
==>ey => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3791	3905	
==>ey => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	505	601	
==>->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	505	601	
==>->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	505	601	
==>->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	260	355	
==>ata::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Ge <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	260	355	
==>ata::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Ge <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	260	355	
==>ata::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8279	8392	
==>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8279	8392	
==>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8279	8392	
==>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21469	21563	
==>MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21469	21563	
==>MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21469	21563	
==>MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7844	8015	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7844	8015	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7844	8015	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4908	5077	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4908	5077	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4908	5077	
==>ss sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10568	10693	
==>]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11030	11155	
==>]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10562	10687	
==>]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11024	11149	
==>]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     m <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8585	8684	
==>ete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a mo <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8585	8684	
==>ete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9383	9489	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6930	7036	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9383	9489	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6930	7036	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9383	9489	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6930	7036	
==>lf->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9769	9892	
==>f which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9769	9892	
==>f which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9769	9892	
==>f which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7491	7579	
==>s.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7491	7579	
==>s.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7491	7579	
==>s.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	182	283	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	346	447	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	182	283	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	346	447	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	182	283	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	346	447	
==>Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2997	3100	
==>l6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2997	3100	
==>l6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2997	3100	
==>l6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2342	2464	
==>++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2342	2464	
==>++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2342	2464	
==>++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4314	4414	
==>ess ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4314	4414	
==>ess ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." i <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4904	5004	
==>ess ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10315	10504	
==>tart ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10315	10504	
==>tart ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10315	10504	
==>tart ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2265	2362	
==>,   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2265	2362	
==>,   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2265	2362	
==>,   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8003	8107	
==>type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8003	8107	
==>type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8003	8107	
==>type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5766	5860	
==>ef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5766	5860	
==>ef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5766	5860	
==>ef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2678	2818	
==>,
    );
    
    __PACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq' <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1233	1347	
==>_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replac <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1233	1347	
==>_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7888	7996	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7888	7996	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7888	7996	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1441	1575	
==>tr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1441	1575	
==>tr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1441	1575	
==>tr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2840	2931	
==>::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2840	2931	
==>::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2840	2931	
==>::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33801	33937	
==>::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33801	33937	
==>::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33801	33937	
==>::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6076	6183	
==>the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6076	6183	
==>the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6076	6183	
==>the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9870	9984	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10851	10965	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12322	12436	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13347	13461	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14328	14442	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15799	15913	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation. <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4342	4479	
==>art ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $star <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4342	4479	
==>art ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $star <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5364	5479	
==>the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub- <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5364	5479	
==>the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1179	1289	
==>0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { % <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1179	1289	
==>0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3399	3525	
==>s->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3399	3525	
==>s->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3399	3525	
==>s->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8878	8974	
==>I SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8878	8974	
==>I SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8878	8974	
==>I SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12068	12205	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3579	3716	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12068	12205	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3579	3716	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12068	12205	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3579	3716	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1769	1986	
==>lement>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpo <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1769	1986	
==>lement>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpo <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	595	800	
==>offset = 0,
                                   Int ?$length,
                                       *@values
                                ) returns List is rw
 multi sub Array::unshift (@array is rw ; *@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12839	12971	
==>e() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12839	12971	
==>e() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12839	12971	
==>e() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12523	12651	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14405	14533	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12523	12651	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14405	14533	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12523	12651	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14405	14533	
==>f->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        } <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36237	36334	
==>h member of a tuple pair has attribute names in common,
eliminating pairs where the values of thos <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37990	38087	
==>h member of a
tuple pair has attribute names in common, eliminating pairs where the
values of thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40786	40883	
==>h member of a tuple pair has attribute names in common,
eliminating pairs where the values of thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42539	42636	
==>h member of a
tuple pair has attribute names in common, eliminating pairs where the
values of thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40400	40497	
==>h member of a tuple pair has attribute names in common,
eliminating pairs where the values of thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42189	42286	
==>h member of a
tuple pair has attribute names in common, eliminating pairs where the
values of thos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17506	17636	
==>d)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17506	17636	
==>d)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17506	17636	
==>d)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1249	1338	
==>aque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1249	1338	
==>aque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1249	1338	
==>aque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Packa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5046	5182	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7695	7831	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5252	5382	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11701	11831	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5252	5382	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11701	11831	
==>iable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2876	3036	
==>$density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2876	3036	
==>$density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9017	9143	
==>if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_arg <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	751	877	
==>if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9017	9143	
==>if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9017	9143	
==>if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_arg <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	20530	20640	
==>ipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :(
    #die <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11187	11294	
==>e this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11187	11294	
==>e this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11187	11294	
==>e this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatc <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2906	3003	
==>l if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful val <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2906	3003	
==>l if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful val <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3806	3979	
==>.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3806	3979	
==>.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1995	2114	
==>Expr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1995	2114	
==>Expr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2863	2975	
==>ata
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.enciphere <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2863	2975	
==>ata
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.enciphere <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	486	592	
==>0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inden <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	486	592	
==>0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inden <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	486	592	
==>0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inden <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6400	6483	
==>source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6400	6483	
==>source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6400	6483	
==>source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6198	6352	
==>ey );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6198	6352	
==>ey );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6198	6352	
==>ey );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $ke <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16870	17001	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17149	17280	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        m <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	27	124	
==>Publisher redone for all the Perl 6 OOP goodness

# something which does publisher can send events <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8262	8431	
==>arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8262	8431	
==>arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8262	8431	
==>arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5745	5863	
==>"args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5745	5863	
==>"args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5745	5863	
==>"args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1003	1101	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1515	1613	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1003	1101	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1515	1613	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1003	1101	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1515	1613	
==>ox(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
} <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4547	4675	
==>$self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note t <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18545	18672	
==>)' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14966	15093	
==>)' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1708	1801	
==>CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1708	1801	
==>CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1708	1801	
==>CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	66	168	
==>turn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	66	168	
==>turn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Co <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	66	168	
==>turn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	296	395	
==>" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	296	395	
==>" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	296	395	
==>" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4807	4920	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7456	7569	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5022	5132	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11471	11581	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5022	5132	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11471	11581	
==>$head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	471	591	
==>,
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{na <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15145	15242	
==>rgument to the method.  The old header value is always returned.
If the given header did not exist <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15145	15242	
==>rgument to the method.  The old header value is always returned.
If the given header did not exist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6279	6373	
==>e !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6279	6373	
==>e !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6279	6373	
==>e !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3778	3880	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6714	6816	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3778	3880	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6714	6816	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3778	3880	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6714	6816	
==>d && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap prope <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44839	45053	
==>$e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## -------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2228	2352	
==>les
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_sig <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2228	2352	
==>les
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_sig <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2575	2699	
==>les
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_sig <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12771	12866	
==>ntities( $string, ... )

This routine replaces HTML entities found in the $string with the
corre <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12771	12866	
==>ntities( $string, ... )

This routine replaces HTML entities found in the $string with the
corre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2763	2888	
==>$x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2763	2888	
==>$x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2763	2888	
==>$x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	870	978	
==>ossibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	870	978	
==>ossibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	870	978	
==>ossibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(functio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2613	2712	
==>y;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2613	2712	
==>y;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2613	2712	
==>y;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknow <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1095	1184	
==>blequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1095	1184	
==>blequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1095	1184	
==>blequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12336	12490	
==>hod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12336	12490	
==>hod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12336	12490	
==>hod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16373	16469	
==>}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16373	16469	
==>}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16373	16469	
==>}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16933	17081	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21648	21796	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16933	17081	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21648	21796	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16933	17081	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21648	21796	
==>lasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7209	7362	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4768	4921	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7209	7362	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4768	4921	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7209	7362	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4768	4921	
==>);
        # return the list if we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	428	528	
==>ng only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	428	528	
==>ng only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	428	528	
==>ng only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5748	5842	
==>item B<status returns Hash>

This method calls the superclass C<status> method and adds the val <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5748	5842	
==>item B<status returns Hash>

This method calls the superclass C<status> method and adds the val <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7945	8039	
==>item B<status returns Hash>

This method calls the superclass C<status> method and adds the val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7831	7948	
==>},
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7831	7948	
==>},
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7831	7948	
==>},
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1575	1666	
==>elf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1575	1666	
==>elf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1575	1666	
==>elf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18146	18317	
==>::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18425	18596	
==>::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11014	11136	
==>Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defin <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11014	11136	
==>Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1375	1497	
==>" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1375	1497	
==>" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1238	1336	
==>ed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1238	1336	
==>ed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1238	1336	
==>ed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	27755	27844	
==>irst_p), "(int × int)", ":t length_and_first [1]");
is(t($length_and_first_gen), "((int  <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4040	4123	
==>ment_previous => $self._get_union( $self.complement_previous, $set.complement_previo <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4040	4123	
==>ment_previous => $self._get_union( $self.complement_previous, $set.complement_previo <==
6	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	223	332	
==>eturn the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2368	2470	
==>ter_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1194	1296	
==>al $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blac <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2368	2470	
==>ter_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succes <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1194	1296	
==>al $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blac <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1194	1296	
==>al $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blac <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17578	17719	
==>LL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20946	21087	
==>LL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40847	40988	
==>LL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43870	44011	
==>LL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7555	7664	
==>te($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %chan <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7555	7664	
==>te($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %chan <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8722	8887	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14447	14612	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8722	8887	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14441	14606	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13972	14129	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13966	14123	
==>d = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15379	15480	
==>TI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15379	15480	
==>TI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15379	15480	
==>TI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULT <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36133	36226	
==>-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40682	40775	
==>-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40296	40389	
==>-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18938	19111	
==>>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18938	19111	
==>>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18938	19111	
==>>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays ar <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3505	3626	
==>do)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descriptio <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3505	3626	
==>do)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descriptio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5029	5150	
==>do)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descriptio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6839	6963	
==>tart to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6839	6963	
==>tart to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6839	6963	
==>tart to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems-> <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17596	17712	
==>X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,sub <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1191	1286	
==>ity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respo <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1191	1286	
==>ity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10003	10163	
==>ames6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10003	10163	
==>ames6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10003	10163	
==>ames6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	348	437	
==>IL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	348	437	
==>IL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	348	437	
==>IL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PI <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4661	4768	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3788	3895	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4661	4768	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3788	3895	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	586	691	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	586	691	
==>{
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8017	8123	
==>ayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1280	1382	
==>it') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1280	1382	
==>it') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1280	1382	
==>it') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12012	12113	
==>ayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12012	12113	
==>ayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5412	5543	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3532	3663	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5412	5543	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3532	3663	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5412	5543	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3532	3663	
==>asses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9647	9759	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12620	12732	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9647	9759	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12620	12732	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9647	9759	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12620	12732	
==>c abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', th <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30363	30459	
==>n C<$heading>) may or may not resemble those of the original. 
The anonymous function in the argu <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2071	2167	
==>s.t.  This could either be done
#using Regexp::Parser Objects, or wait for the hypotetical new as <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34915	35010	
==>n C<$heading>) may or may not resemble those of the original.
The anonymous function in the argu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34097	34192	
==>n C<$heading>) may or may not resemble those of the original.
The anonymous function in the argu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7455	7608	
==>n $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_rang <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7455	7608	
==>n $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_rang <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7455	7608	
==>n $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_rang <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4231	4323	
==>ant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (St <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4231	4323	
==>ant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (St <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4231	4323	
==>ant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (St <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	19	130	
==>::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $ <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	19	130	
==>::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3307	3405	
==>e by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3307	3405	
==>e by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15209	15305	
==>ded or
decoded string is returned (without changing the input string).

If you prefer not to impo <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15209	15305	
==>ded or
decoded string is returned (without changing the input string).

If you prefer not to impo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5358	5553	
==>ry;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5358	5553	
==>ry;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5358	5553	
==>ry;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6633	6731	
==>($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6633	6731	
==>($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6633	6731	
==>($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2906	3027	
==>ar pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2906	3027	
==>ar pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2906	3027	
==>ar pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5068	5160	
==>ription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnosti <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5068	5160	
==>ription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnosti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7265	7357	
==>ription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnosti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1253	1362	
==>k;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1253	1362	
==>k;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1253	1362	
==>k;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3211	3307	
==>f not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3211	3307	
==>f not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3211	3307	
==>f not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pa <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3409	3511	
==>my $class = shift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.namespac <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22737	22838	
==><Block> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
rule Catch : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2121	2219	
==>::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2121	2219	
==>::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2121	2219	
==>::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19676	19772	
==>es weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags weren't being turned off.  Fixed <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5085	5211	
==>verter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = - <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5085	5211	
==>verter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35750	35848	
==>es: close1, close2 ... closeN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: close

Types: t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5316	5413	
==>been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5316	5413	
==>been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5316	5413	
==>been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36331	36423	
==>those attributes differ and unioning
the remaining said tuple pairs, then eliminating any res <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38084	38176	
==>those attributes differ and unioning the remaining said tuple
pairs, then eliminating any res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40880	40972	
==>those attributes differ and unioning
the remaining said tuple pairs, then eliminating any res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42633	42725	
==>those attributes differ and unioning the remaining said tuple
pairs, then eliminating any res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40494	40586	
==>those attributes differ and unioning
the remaining said tuple pairs, then eliminating any res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42283	42375	
==>those attributes differ and unioning the remaining said tuple
pairs, then eliminating any res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2665	2758	
==>e_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2665	2758	
==>e_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2665	2758	
==>e_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	122	209	
==>BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::N <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	122	209	
==>BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::N <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	122	209	
==>BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9574	9686	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7121	7233	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9574	9686	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7121	7233	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9574	9686	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7121	7233	
==>$dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch orde <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4569	4705	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7218	7354	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4792	4923	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11241	11372	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4792	4923	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11241	11372	
==>2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18793	18947	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16031	16185	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18793	18947	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16031	16185	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18793	18947	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16031	16185	
==>e stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplic <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	33	136	
==>fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comm <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11573	11674	
==>aybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTH <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11573	11674	
==>aybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTH <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	33	131	
==>fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comm <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	63	160	
==>fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	63	160	
==>fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5409	5516	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3529	3636	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5409	5516	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3529	3636	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5409	5516	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3529	3636	
==>rclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasses in an ARRAY <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	228	336	
==>e("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refer <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	228	336	
==>e("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refer <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	228	336	
==>e("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22246	22332	
==>mod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22246	22332	
==>mod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22246	22332	
==>mod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@x <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8989	9110	
==>non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8985	9106	
==>non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2430	2550	
==>non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2430	2550	
==>non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	16422	16518	
==>Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you c <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16480	16576	
==>Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you c <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1939	2058	
==>t MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        ex <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1939	2058	
==>t MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        ex <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5466	5567	
==>process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine wh <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5466	5567	
==>process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine wh <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17296	17392	
==>e Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual m <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17296	17392	
==>e Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4307	4414	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# su <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3434	3541	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4307	4414	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3434	3541	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# su <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	911	1003	
==>ent!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy:: <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	911	1003	
==>ent!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5438	5603	
==>sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5438	5603	
==>sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5438	5603	
==>sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	498	627	
==>stant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	498	627	
==>stant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	498	627	
==>stant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25251	25345	
==>utation of its
arguments and any invocant object's attributes is identical; they do not
interac <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11382	11476	
==>utation of its
arguments and any invocant object's attributes is identical; they do not
interac <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14655	14749	
==>utation of its arguments and any invocant
object's attributes is identical; they do not interac <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25251	25345	
==>utation of its
arguments and any invocant object's attributes is identical; they do not
interac <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11382	11476	
==>utation of its
arguments and any invocant object's attributes is identical; they do not
interac <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14655	14749	
==>utation of its arguments and any invocant
object's attributes is identical; they do not interac <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6693	6803	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5823	5933	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2477	2587	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2477	2587	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6693	6803	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5823	5933	
==>x:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5781	5892	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3901	4012	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5781	5892	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3901	4012	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5781	5892	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3901	4012	
==>of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3512	3621	
==>b Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 rol <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3512	3621	
==>b Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 rol <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3512	3621	
==>b Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2787	2879	
==>ole->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2787	2879	
==>ole->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2787	2879	
==>ole->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5176	5292	
==>x:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5176	5292	
==>x:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5176	5292	
==>x:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} e <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35364	35462	
==>tes in common; it will only accept inputs that would result in
a cross-product when joined.  This m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39914	40012	
==>tes in common; it will only accept inputs that would result in
a cross-product when joined.  This m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39474	39572	
==>tes in common; it will only accept inputs that would result in
a cross-product when joined.  This m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11694	11820	
==>s();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6316	6437	
==>ue::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6316	6437	
==>ue::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6316	6437	
==>ue::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unle <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2128	2242	
==>s();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Te <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2128	2242	
==>s();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36759	36873	
==>s 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36759	36873	
==>s 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36759	36873	
==>s 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6452	6549	
==>fers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6452	6549	
==>fers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6452	6549	
==>fers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7470	7624	
==>d ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7470	7624	
==>d ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7470	7624	
==>d ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35495	35627	
==>body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35495	35627	
==>body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35495	35627	
==>body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $le <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2517	2634	
==>"Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5858	5969	
==>ements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9335	9446	
==>ements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5521	5642	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8491	8612	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5521	5642	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8491	8612	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5521	5642	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8491	8612	
==>onstant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This results in t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9306	9459	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12279	12432	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9306	9459	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12279	12432	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9306	9459	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12279	12432	
==>d;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ( <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2291	2423	
==>\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2291	2423	
==>\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6064	6160	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5194	5290	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6064	6160	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5194	5290	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.prop <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17182	17286	
==>ue::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17182	17286	
==>ue::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17182	17286	
==>ue::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4808	4992	
==>ksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_dat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5030	5214	
==>ksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_dat <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8174	8297	
==>rks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack } <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8174	8297	
==>rks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack } <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3889	3996	
==>Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3889	3996	
==>Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	3117	3214	
==>urn $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.gr <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3117	3214	
==>urn $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.gr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21632	21727	
==>$event> hashref, containing:

=over

=item C<line>

The original line received from the server ( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20513	20608	
==>$event> hashref, containing:

=over

=item C<line>

The original line received from the server ( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21632	21727	
==>$event> hashref, containing:

=over

=item C<line>

The original line received from the server ( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20513	20608	
==>$event> hashref, containing:

=over

=item C<line>

The original line received from the server ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	901	1023	
==>html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	901	1023	
==>html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.ch <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	901	1023	
==>html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7609	7698	
==>---------------------------------------------------------------------

## NOTE:
## we want <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7609	7698	
==>---------------------------------------------------------------------

## NOTE:
## we want <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7609	7698	
==>---------------------------------------------------------------------

## NOTE:
## we want <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11631	11738	
==>$_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11631	11738	
==>$_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11631	11738	
==>$_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4037	4139	
==>o_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4037	4139	
==>o_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4037	4139	
==>o_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6075	6257	
==>' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6075	6257	
==>' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6075	6257	
==>' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1327	1441	
==>s.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1327	1441	
==>s.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1327	1441	
==>s.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4634	4730	
==>>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4634	4730	
==>>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4634	4730	
==>>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14359	14443	
==>methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14359	14443	
==>methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14359	14443	
==>methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3329	3479	
==>it->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3329	3479	
==>it->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3329	3479	
==>it->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17387	17481	
==>n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17387	17481	
==>n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17387	17481	
==>n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($x <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9138	9233	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4281	4376	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15717	15812	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9138	9233	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4281	4376	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15717	15812	
==>rt_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10609	10720	
==>warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10609	10720	
==>warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10609	10720	
==>warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4282	4378	
==>ld not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4282	4378	
==>ld not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4282	4378	
==>ld not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	414	532	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	407	525	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	414	532	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	407	525	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	414	532	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	407	525	
==>ssibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29908	30028	
==>return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29908	30028	
==>return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29908	30028	
==>return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3179	3289	
==>$param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3179	3289	
==>$param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3179	3289	
==>$param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	727	827	
==>, 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	727	827	
==>, 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	727	827	
==>, 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code objec <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2107	2203	
==>----------
## some metamodel tools

=pod

sub *WALKMETH (block &dispatcher, symbol $label, hash % <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25549	25643	
==>as the GPL requires distribution of
source code.  However, for an additional fee, the copyright <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25549	25643	
==>as the GPL requires distribution of
source code.  However, for an additional fee, the copyright <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2576	2688	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4903	5015	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2576	2688	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4903	5015	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2576	2688	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4903	5015	
==>confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17976	18071	
==>nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<ni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17976	18071	
==>nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<ni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11894	12021	
==>($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11894	12021	
==>($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11894	12021	
==>($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6628	6738	
==>d) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementatio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6628	6738	
==>d) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementatio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6628	6738	
==>d) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4693	4833	
==>or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4693	4833	
==>or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4693	4833	
==>or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11010	11113	
==>ms->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11010	11113	
==>ms->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11010	11113	
==>ms->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5112	5224	
==>..};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5112	5224	
==>..};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5112	5224	
==>..};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8470	8577	
==>/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8470	8577	
==>/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8470	8577	
==>/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2854	2980	
==>?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3101	3227	
==>?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2722	2832	
==>y %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{ci <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2722	2832	
==>y %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{ci <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2722	2832	
==>y %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{ci <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11623	11726	
==>see 9.3.1
      <'Infinity'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <D <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8073	8216	
==>' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> mea <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13667	13810	
==>' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> mea <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8073	8216	
==>' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> mea <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13661	13804	
==>' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> mea <==
6	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	807	913	
==>n ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = sh <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	708	814	
==>n ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3804	3928	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6740	6864	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3804	3928	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6740	6864	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3804	3928	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6740	6864	
==>method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        return bless sub { <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2732	2839	
==>> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2732	2839	
==>> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait> <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4230	4332	
==>ti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3357	3459	
==>ti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4230	4332	
==>ti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3357	3459	
==>ti sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
mul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4219	4343	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6868	6992	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4451	4572	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10900	11021	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4451	4572	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10900	11021	
==>r( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5128	5292	
==>a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5116	5280	
==>a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4957	5066	
==>tection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4957	5066	
==>tection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4957	5066	
==>tection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval( <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1832	1929	
==>b new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	671	798	
==>loop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	671	798	
==>loop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	671	798	
==>loop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3012	3121	
==>loop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3012	3121	
==>loop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3012	3121	
==>loop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Co <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7096	7197	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6226	6327	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2880	2981	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2880	2981	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7096	7197	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6226	6327	
==>e.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5230	5379	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8200	8349	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5230	5379	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8200	8349	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5230	5379	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8200	8349	
==>sed($method);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16988	17191	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21703	21906	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16988	17191	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21703	21906	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16988	17191	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21703	21906	
==>ss}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traver <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2307	2438	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2307	2438	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2307	2438	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4529	4618	
==>the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4529	4618	
==>the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4529	4618	
==>the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3758	3866	
==>($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3758	3866	
==>($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3758	3866	
==>($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2552	2655	
==>0])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2552	2655	
==>0])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2552	2655	
==>0])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there ar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13286	13419	
==>)
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27400	27533	
==>)
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13565	13698	
==>)
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27679	27812	
==>)
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5560	5678	
==>ss defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5782	5900	
==>ss defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11847	11941	
==>ss all conform to the Role interface/API they are 
interchangable with one another, classes and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11847	11941	
==>ss all conform to the Role interface/API they are 
interchangable with one another, classes and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11847	11941	
==>ss all conform to the Role interface/API they are 
interchangable with one another, classes and <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1225	1316	
==>tatement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1225	1316	
==>tatement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1225	1316	
==>tatement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1060	1194	
==>ned \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1060	1194	
==>ned \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3656	3758	
==>:Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is i <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3656	3758	
==>:Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is i <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	343	441	
==>n( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	343	441	
==>n( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5734	5843	
==>et_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_d <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3070	3179	
==>et_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3919	4028	
==>et_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_d <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	452	555	
==>parser - creates an Array [of Array]* of Str

sub parse (@start, $token, @end, @_ is rw) {
    state %to <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38758	38856	
==>and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<T <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38758	38856	
==>and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8810	8980	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6363	6533	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8810	8980	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6363	6533	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8810	8980	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6363	6533	
==>ses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	395	504	
==>r  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the packag <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	395	504	
==>r  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the packag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5334	5436	
==>ge's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5334	5436	
==>ge's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5334	5436	
==>ge's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be h <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2934	3034	
==>ribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3091	3191	
==>ribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2934	3034	
==>ribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3091	3191	
==>ribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10971	11066	
==>};
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<dec <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10971	11066	
==>};
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<dec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14263	14410	
==>s/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14263	14410	
==>s/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14263	14410	
==>s/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7268	7411	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4827	4970	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7268	7411	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4827	4970	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7268	7411	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4827	4970	
==>quences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1863	1965	
==>ault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1863	1965	
==>ault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1863	1965	
==>ault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	222	320	
==>thod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	222	320	
==>thod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	222	320	
==>thod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1250	1371	
==>});
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defaul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1250	1371	
==>});
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defaul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1250	1371	
==>});
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defaul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2870	2971	
==>ues

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2870	2971	
==>ues

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2870	2971	
==>ues

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $clas <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5323	5423	
==>hod stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($sel <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5323	5423	
==>hod stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($sel <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12202	12299	
==>sed to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Nod <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16782	16879	
==>sed to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Nod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12202	12299	
==>sed to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Nod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16782	16879	
==>sed to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Nod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3075	3192	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6068	6185	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3349	3460	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9767	9878	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3349	3460	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9767	9878	
==>ift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	622	718	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1142	1238	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	622	718	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1142	1238	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	622	718	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1142	1238	
==>hings) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2596	2699	
==>:Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2596	2699	
==>:Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2596	2699	
==>:Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11551	11635	
==>--------------------------------------------------------------

With this Role meta-m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11551	11635	
==>--------------------------------------------------------------

With this Role meta-m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11551	11635	
==>--------------------------------------------------------------

With this Role meta-m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4056	4178	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2290	2412	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3071	3193	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4994	5115	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2536	2657	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3317	3438	
==>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12822	12947	
==>'%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12822	12947	
==>'%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12822	12947	
==>'%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13482	13599	
==>ift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13482	13599	
==>ift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13482	13599	
==>ift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4492	4608	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7428	7544	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4492	4608	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7428	7544	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4492	4608	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7428	7544	
==>h) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "Bad m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3864	3995	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6800	6931	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3864	3995	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6800	6931	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3864	3995	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6800	6931	
==>n only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4900	5008	
==>->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->end <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15936	16044	
==>->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->end <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17424	17532	
==>->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->end <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22107	22215	
==>->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->end <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27448	27543	
==>cts for Perl 5 regexes

=head1 DESCRIPTION

This module contains the object definitions for F<Re <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52499	52593	
==>) => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3809	3925	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4062	4178	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4507	4623	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3809	3925	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4062	4178	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4507	4623	
==>span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9403	9516	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6950	7063	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9403	9516	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6950	7063	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9403	9516	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6950	7063	
==>spatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3769	3890	
==>=> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3769	3890	
==>=> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3769	3890	
==>=> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	692	779	
==>uperclasses([ $::Class ]);

## --------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	692	779	
==>uperclasses([ $::Class ]);

## --------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	692	779	
==>uperclasses([ $::Class ]);

## --------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	451	551	
==>'') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	451	551	
==>'') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7036	7135	
==>nguage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: ) <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7036	7135	
==>nguage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: ) <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	39	137	
==>e vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPO <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	39	137	
==>e vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13280	13410	
==>eys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13280	13410	
==>eys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0 <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5983	6082	
==>d be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will no <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5983	6082	
==>d be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will no <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19407	19503	
==>what text the user
sees, you only have to update said separate resource files, and not change
you <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19407	19503	
==>what text the user
sees, you only have to update said separate resource files, and not change
you <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30221	30365	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31950	32094	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30221	30365	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31950	32094	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30221	30365	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31950	32094	
==>s}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1763	1920	
==>ription' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11778	11902	
==>{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s: <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11778	11902	
==>{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4489	4590	
==>}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4489	4590	
==>}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4489	4590	
==>}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8534	8679	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11507	11652	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8534	8679	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11507	11652	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8534	8679	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11507	11652	
==>his is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of meth <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3628	3745	
==>type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'digit' }

  sub visua <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	912	1024	
==>> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	912	1024	
==>> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	912	1024	
==>> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27084	27185	
==>GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_E <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27084	27185	
==>GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11395	11543	
==>ndidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11395	11543	
==>ndidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11395	11543	
==>ndidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	385	494	
==>self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	385	494	
==>self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	385	494	
==>self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36214	36308	
==>elation,
then where each member of a tuple pair has attribute names in common,
eliminating pair <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37967	38061	
==>elation, then where each member of a
tuple pair has attribute names in common, eliminating pair <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40763	40857	
==>elation,
then where each member of a tuple pair has attribute names in common,
eliminating pair <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42516	42610	
==>elation, then where each member of a
tuple pair has attribute names in common, eliminating pair <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40377	40471	
==>elation,
then where each member of a tuple pair has attribute names in common,
eliminating pair <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42166	42260	
==>elation, then where each member of a
tuple pair has attribute names in common, eliminating pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11365	11514	
==>pec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11365	11514	
==>pec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11365	11514	
==>pec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9924	10035	
==>2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9924	10035	
==>2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9924	10035	
==>2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	656	750	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1176	1270	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	656	750	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1176	1270	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	656	750	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1176	1270	
==>IL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34783	34882	
==>, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34783	34882	
==>, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34783	34882	
==>, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7335	7428	
==>'@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7335	7428	
==>'@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7335	7428	
==>'@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_metho <==
6	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	754	928	
==>shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @sk <==
6	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	754	928	
==>shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @sk <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4823	4918	
==>l6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5073	5168	
==>l6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9539	9633	
==>l does not declare any subroutines or export such.

The usual way that Rosetta::Model indicates <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9539	9633	
==>l does not declare any subroutines or export such.

The usual way that Rosetta::Model indicates <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3539	3664	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6475	6600	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3539	3664	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6475	6600	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3539	3664	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6475	6600	
==>primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper fo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5642	5741	
==>e public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ove <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5642	5741	
==>e public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7839	7938	
==>e public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	723	819	
==>$beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	723	819	
==>$beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	723	819	
==>$beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24094	24231	
==>cl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24373	24510	
==>cl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5674	5801	
==>y $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6227	6354	
==>y $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5867	5994	
==>y $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6420	6547	
==>y $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6283	6399	
==>f";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6283	6399	
==>f";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6283	6399	
==>f";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7920	8023	
==>ulti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7920	8023	
==>ulti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7920	8023	
==>ulti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1434	1575	
==>de<Complex>).add_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.new(:node<Rat>) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	65	187	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	65	187	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	65	187	
==>XPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9651	9756	
==>r, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9651	9756	
==>r, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9651	9756	
==>r, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5142	5288	
==>=> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5142	5288	
==>=> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5142	5288	
==>=> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5864	5965	
==>SITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5864	5965	
==>SITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5864	5965	
==>SITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13967	14084	
==>.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13967	14084	
==>.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13967	14084	
==>.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5342	5451	
==>init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5342	5451	
==>init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5342	5451	
==>init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	714	809	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1234	1329	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	714	809	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1234	1329	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	714	809	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1234	1329	
==>1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1991	2190	
==>our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, the <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1991	2190	
==>our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11068	11204	
==>dx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11068	11204	
==>dx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11068	11204	
==>dx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var re <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	90	188	
==>1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code objects to a particular Type.

=over <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16004	16101	
==>l be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logica <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16004	16101	
==>l be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logica <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3600	3710	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6536	6646	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3600	3710	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6536	6646	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3600	3710	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6536	6646	
==>itives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20836	21040	
==>6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20836	21040	
==>6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        els <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20836	21040	
==>6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7597	7698	
==>push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7597	7698	
==>push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7597	7698	
==>push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4277	4368	
==>eturn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4277	4368	
==>eturn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4277	4368	
==>eturn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6041	6130	
==>lf->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6041	6130	
==>lf->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefine <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6041	6130	
==>lf->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefine <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1878	2022	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	990	1134	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1878	2022	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	990	1134	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1878	2022	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	990	1134	
==>%params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	945	1043	
==>le to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	945	1043	
==>le to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22006	22101	
==>rom. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not avai <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20887	20982	
==>rom. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not avai <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22006	22101	
==>rom. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not avai <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20887	20982	
==>rom. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not avai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5842	5977	
==>ft)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5842	5977	
==>ft)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5842	5977	
==>ft)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2509	2637	
==>$subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2509	2637	
==>$subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2509	2637	
==>$subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> I <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4340	4462	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6989	7111	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4569	4688	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11018	11137	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4569	4688	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11018	11137	
==>tch->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26393	26611	
==>fy($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26393	26611	
==>fy($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26393	26611	
==>fy($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1221	1345	
==>se {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1221	1345	
==>se {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1221	1345	
==>se {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4305	4437	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7241	7373	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4305	4437	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7241	7373	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4305	4437	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7241	7373	
==>ubroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	546	655	
==>d, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	546	655	
==>d, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	546	655	
==>d, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1317	1417	
==>nction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1317	1417	
==>nction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1317	1417	
==>nction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3519	3628	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6533	6642	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8601	8710	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3519	3628	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6533	6642	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8601	8710	
==>returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7157	7263	
==>ostfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decreme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7157	7263	
==>ostfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decreme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7157	7263	
==>ostfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decreme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2641	2740	
==>@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2641	2740	
==>@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2641	2740	
==>@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11411	11548	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16141	16278	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11411	11548	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16141	16278	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11411	11548	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16141	16278	
==>issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4723	4887	
==>hift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4723	4887	
==>hift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4723	4887	
==>hift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1046	1134	
==>hout hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1046	1134	
==>hout hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1046	1134	
==>hout hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17391	17565	
==>>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17391	17565	
==>>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17391	17565	
==>>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1080	1182	
==>put );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1080	1182	
==>put );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1160	1262	
==>put );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5645	5838	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3006	3199	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5645	5838	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3006	3199	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1773	1870	
==>per_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
mul <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1773	1870	
==>per_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1404	1507	
==>fault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1404	1507	
==>fault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1404	1507	
==>fault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14822	14913	
==>de and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored int <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14822	14913	
==>de and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored int <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14822	14913	
==>de and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5621	5722	
==>js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5621	5722	
==>js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5621	5722	
==>js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1107	1204	
==>ttempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b)) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1107	1204	
==>ttempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b)) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1107	1204	
==>ttempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1034	1140	
==>,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1034	1140	
==>,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1034	1140	
==>,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2127	2211	
==>n_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2127	2211	
==>n_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2127	2211	
==>n_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23942	24091	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26651	26800	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24221	24370	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26930	27079	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9486	9579	
==>vate, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or exp <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9486	9579	
==>vate, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12548	12644	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10099	10195	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12548	12644	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10099	10195	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12548	12644	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10099	10195	
==>que_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $nex <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6759	6860	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5889	5990	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2543	2644	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2543	2644	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6759	6860	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5889	5990	
==>er);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1237	1337	
==>r (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1237	1337	
==>r (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1784	1884	
==>r (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6110	6204	
==>f @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6110	6204	
==>f @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })') <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6110	6204	
==>f @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1945	2052	
==>e
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1945	2052	
==>e
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1945	2052	
==>e
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19180	19276	
==>rs for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19180	19276	
==>rs for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39574	39667	
==>orce_object(), which creates
an object regardless of what pass it's on.

  $parser->add_handle <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1868	1985	
==>on_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1879	1996	
==>on_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_captur <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1427	1539	
==>t
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_from_struct( struct = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3358	3451	
==>el);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3358	3451	
==>el);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3358	3451	
==>el);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4137	4241	
==>e { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMult <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4137	4241	
==>e { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMult <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4137	4241	
==>e { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMult <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6052	6154	
==>d of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6052	6154	
==>d of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6052	6154	
==>d of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (s <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1829	1965	
==>d || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($bas <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1829	1965	
==>d || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($bas <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2550	2670	
==>d || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($bas <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2550	2670	
==>d || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($bas <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	442	545	
==>.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...} <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	442	545	
==>.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...} <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8260	8395	
==>rg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8260	8395	
==>rg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_ <==
6	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	260	386	
==>d bind ( Code &fun, Array of Str @args ) {
            $fun.assuming( *self.parse_arguments( @args ) );
        }

        meth <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5844	5944	
==>POSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5844	5944	
==>POSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16084	16181	
==>ript, it suffices.
# This script doesn't run as root, anyway.
sub check_for_evil_chars {
  local $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17046	17163	
==>ion:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20523	20640	
==>ion:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20101	20218	
==>ion:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1329	1419	
==>=> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1329	1419	
==>=> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1329	1419	
==>=> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	163	275	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	158	270	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	163	275	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	158	270	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	163	275	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	158	270	
==>>{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6719	6826	
==>ieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6719	6826	
==>ieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6719	6826	
==>ieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16365	16462	
==>table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16365	16462	
==>table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16365	16462	
==>table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1448	1546	
==>undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8913	9005	
==>ent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distribu <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3842	3934	
==>ent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distribu <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8913	9005	
==>ent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distribu <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3842	3934	
==>ent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9339	9449	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6886	6996	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9339	9449	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6886	6996	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9339	9449	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6886	6996	
==>r eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descen <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3653	3765	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3653	3765	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7941	8050	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7071	7180	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7941	8050	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7071	7180	
==>E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	81	197	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	76	192	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	81	197	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	76	192	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	81	197	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	76	192	
==>$self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9419	9570	
==>arn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14963	15114	
==>arn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9419	9570	
==>arn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14957	15108	
==>arn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            ret <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3985	4091	
==>ls:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_nam <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3985	4091	
==>ls:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15450	15549	
==>table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15450	15549	
==>table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15450	15549	
==>table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$la <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24413	24510	
==>m C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28965	29062	
==>m C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash re <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	27211	27304	
==>t
the moment runtests() was called.  Putting absolute path into 
C<HARNESS_FILELEAK_IN_DIR> ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25361	25486	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26019	26144	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28801	28926	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25640	25765	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26298	26423	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29080	29205	
==>::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11138	11261	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12609	12732	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14615	14738	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16086	16209	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13923	14046	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15448	15571	
==>y-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second so <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8879	8979	
==>t := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8879	8979	
==>t := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8879	8979	
==>t := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4078	4170	
==>ect ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4078	4170	
==>ect ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4078	4170	
==>ect ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8503	8707	
==>s;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8503	8707	
==>s;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8503	8707	
==>s;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14941	15041	
==>xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14941	15041	
==>xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14941	15041	
==>xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3151	3262	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5952	6063	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3151	3262	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5952	6063	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3151	3262	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5952	6063	
==>ribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute') <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12697	12806	
==>does result.
        return Relation::Example.new( heading => $!heading, body => set() );
    }
    if ($other <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2164	2263	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2164	2263	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2164	2263	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2251	2368	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11119	11236	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12078	12195	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2444	2561	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11398	11515	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12357	12474	
==>pture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20095	20227	
==>ure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20095	20227	
==>ure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20095	20227	
==>ure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5326	5420	
==>ntended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for exampl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5326	5420	
==>ntended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for exampl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5326	5420	
==>ntended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for exampl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10668	10795	
==>---

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10668	10795	
==>---

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10668	10795	
==>---

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	895	990	
==>id}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	895	990	
==>id}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	895	990	
==>id}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8555	8680	
==>cope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8555	8680	
==>cope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1089	1187	
==>ons, $match) = @_;
  #print "name: $name - rp: $relativePrecedence - options: $options - match: $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14691	14786	
==>apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14691	14786	
==>apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14691	14786	
==>apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2331	2524	
==>lemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2331	2524	
==>lemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2331	2524	
==>lemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	655	752	
==>\($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	655	752	
==>\($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	655	752	
==>\($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	505	605	
==>in, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	505	605	
==>in, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	505	605	
==>in, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2 <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11695	11793	
==>ic;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Ent <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11695	11793	
==>ic;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Ent <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27658	27754	
==>on::Example has zero attributes, then
C<$body> may be an Set with a single member that is an empt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2202	2318	
==>$msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2202	2318	
==>$msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2202	2318	
==>$msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$q <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1248	1345	
==>hile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1248	1345	
==>hile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1248	1345	
==>hile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	402	504	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	395	497	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	402	504	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	395	497	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	402	504	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	395	497	
==>turn PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccify $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	463	580	
==>t, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	463	580	
==>t, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	463	580	
==>t, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1764	1880	
==>ay) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1764	1880	
==>ay) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1764	1880	
==>ay) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11042	11191	
==>bort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8108	8252	
==>bort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8108	8252	
==>bort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2901	3004	
==>defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2901	3004	
==>defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless define <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2901	3004	
==>defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless define <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5853	6047	
==>ush( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5853	6047	
==>ush( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5853	6047	
==>ush( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10126	10271	
==>_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10126	10271	
==>_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10126	10271	
==>_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16146	16247	
==>) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16146	16247	
==>) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16146	16247	
==>) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32285	32383	
==>t is the same regardless of
which is the invocant and which is the argument.  This method will fail <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36835	36933	
==>t is the same regardless of
which is the invocant and which is the argument.  This method will fail <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36125	36223	
==>t is the same regardless of
which is the invocant and which is the argument.  This method will fail <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4569	4683	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7505	7619	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4569	4683	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7505	7619	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4569	4683	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7505	7619	
==>:Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4603	4780	
==>ount == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4603	4780	
==>ount == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4603	4780	
==>ount == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1570	1685	
==>ndef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ib <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1570	1685	
==>ndef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ib <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1570	1685	
==>ndef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	178	316	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	178	316	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1766	1904	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1971	2109	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2034	2172	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	178	316	
==>s (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8755	8949	
==>my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8755	8949	
==>my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8755	8949	
==>my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1687	1779	
==>> \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1687	1779	
==>> \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1687	1779	
==>> \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34344	34445	
==>_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34344	34445	
==>_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34344	34445	
==>_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splic <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1190	1290	
==>f Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F< <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1190	1290	
==>f Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F< <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	282	373	
==>as simply to
permit refactoring with confidence.

It uses Language::Prolog::Yaswi, which req <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	365	466	
==>0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 S <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	365	466	
==>0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 S <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	315	416	
==>Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-prog <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	276	377	
==>Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-prog <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	276	377	
==>Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-prog <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3958	4051	
==>tc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14075	14191	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11347	11463	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14075	14191	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11347	11463	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14075	14191	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11347	11463	
==>"
        unless defined $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4534	4630	
==>::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4534	4630	
==>::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4534	4630	
==>::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3289	3375	
==>erl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3289	3375	
==>erl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3289	3375	
==>erl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4618	4716	
==>getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4618	4716	
==>getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4618	4716	
==>getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3905	3990	
==>ee http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3905	3990	
==>ee http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3905	3990	
==>ee http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11953	12058	
==>unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11953	12058	
==>unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11953	12058	
==>unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13426	13524	
==>6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13426	13524	
==>6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13426	13524	
==>6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9309	9472	
==>umber(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1429	1574	
==>umber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1429	1574	
==>umber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12418	12538	
==>ub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12418	12538	
==>ub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12418	12538	
==>ub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1010	1111	
==>ith a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1010	1111	
==>ith a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1010	1111	
==>ith a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	224	321	
==>ub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	185	282	
==>ub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	185	282	
==>ub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	570	671	
==>lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	570	671	
==>lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	570	671	
==>lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1718	1814	
==>ckage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1718	1814	
==>ckage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1718	1814	
==>ckage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0 <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5947	6040	
==>ib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights res <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5947	6040	
==>ib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights res <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11993	12084	
==>e (Relation::Example $other!) returns Relation::Example {
    return $?SELF.difference( $?SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1069	1159	
==>Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1069	1159	
==>Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1069	1159	
==>Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3760	3879	
==>rintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3760	3879	
==>rintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3760	3879	
==>rintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6823	6943	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9793	9913	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6823	6943	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9793	9913	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6823	6943	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9793	9913	
==>hod) && $method->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5428	5600	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5428	5600	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5428	5600	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5943	6041	
==>e hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5943	6041	
==>e hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5943	6041	
==>e hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $sel <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1671	1835	
==>dy absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is un <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1671	1835	
==>dy absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7422	7549	
==>to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7422	7549	
==>to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7422	7549	
==>to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undef <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5508	5620	
==>);
 
    $<op> := (print|say|warn|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	924	1087	
==>);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	924	1087	
==>);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	924	1087	
==>);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17061	17153	
==>s'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17061	17153	
==>s'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17061	17153	
==>s'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	80	170	
==>.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Pars <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3373	3463	
==>read([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3373	3463	
==>read([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3373	3463	
==>read([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsb <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	80	170	
==>.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Pars <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	80	170	
==>.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Pars <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15035	15151	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12289	12405	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15035	15151	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12289	12405	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15035	15151	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12289	12405	
==>q 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    els <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	118	246	
==>bmethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	118	246	
==>bmethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	14	114	
==>l -CDS

# A typed lambda calculus in perl6-ish perl 5
# (makes use of attribute grammars and multimet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20685	20782	
==>do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20685	20782	
==>do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20685	20782	
==>do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	462	572	
==>st does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	462	572	
==>st does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      / <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	462	572	
==>st does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      / <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4900	4994	
==>is *no* attention
# paid to the associativity of the original operator and auto-metaed versions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4900	4994	
==>is *no* attention
# paid to the associativity of the original operator and auto-metaed versions <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4900	4994	
==>is *no* attention
# paid to the associativity of the original operator and auto-metaed versions <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7493	7615	
==>r(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658) <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7493	7615	
==>r(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6742	6831	
==>ittle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8811	8900	
==>ittle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6742	6831	
==>ittle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8811	8900	
==>ittle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13319	13609	
==>params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $boun <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13319	13609	
==>params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $boun <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13319	13609	
==>params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $boun <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6618	6759	
==>$op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6404	6537	
==>$op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop: <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	464	553	
==>alValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::InternalValue;
c <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	1260	1377	
==>parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $densit <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1260	1377	
==>parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $densit <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36178	36274	
==>n with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40727	40823	
==>n with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40341	40437	
==>n with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5604	5692	
==>ix;
use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcirc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14562	14713	
==>Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14562	14713	
==>Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14562	14713	
==>Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23967	24059	
==>mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23967	24059	
==>mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23967	24059	
==>mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	444	542	
==>esource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	444	542	
==>esource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	444	542	
==>esource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	788	876	
==>.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	788	876	
==>.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	788	876	
==>.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	110	218	
==>s %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	110	218	
==>s %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	110	218	
==>s %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22176	22277	
==>map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22176	22277	
==>map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22176	22277	
==>map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19765	19887	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16904	17026	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19765	19887	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16904	17026	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19765	19887	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16904	17026	
==>method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4281	4389	
==>has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4281	4389	
==>has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4792	4898	
==>has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4792	4898	
==>has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	774	867	
==>a::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Rosett <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	774	867	
==>a::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Rosett <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16384	16533	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16384	16533	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16384	16533	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	135	229	
==>ugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	135	229	
==>ugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	133	223	
==>ugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4107	4217	
==>mp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4107	4217	
==>mp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4107	4217	
==>mp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2411	2500	
==>::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2411	2500	
==>::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2411	2500	
==>::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6217	6356	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9187	9326	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6217	6356	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9187	9326	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6217	6356	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9187	9326	
==>Method';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4816	4926	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7465	7575	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5031	5138	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11480	11587	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5031	5138	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11480	11587	
==>len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25623	25741	
==>$self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'logical', <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7313	7417	
==>list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@l <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7313	7417	
==>list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2396	2495	
==>ned);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2396	2495	
==>ned);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2396	2495	
==>ned);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETC <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11547	11676	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2541	2670	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7635	7764	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11547	11676	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2541	2670	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7635	7764	
==>KT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_di <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7162	7261	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6292	6391	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2946	3045	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2946	3045	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7162	7261	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6292	6391	
==>returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with no <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15557	15676	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15726	15845	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15913	16032	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19034	19153	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19203	19322	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19390	19509	
==>ion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15902	16019	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20619	20736	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15902	16019	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20619	20736	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15902	16019	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20619	20736	
==>ry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14378	14501	
==>\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    matc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2631	2735	
==>t>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1243	1347	
==>t>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1944	2048	
==>t>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7430	7522	
==>Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7430	7522	
==>Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2606	2711	
==>ode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compon <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2606	2711	
==>ode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compon <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2606	2711	
==>ode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compon <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3491	3587	
==>the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory met <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3491	3587	
==>the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5688	5784	
==>the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4098	4223	
==>hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4098	4223	
==>hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4098	4223	
==>hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	171	267	
==>.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	171	267	
==>.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	171	267	
==>.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Cl <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2099	2218	
==>turn 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets call <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2099	2218	
==>turn 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets call <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4380	4497	
==>y $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4573	4690	
==>y $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1480	1591	
==>ns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1480	1591	
==>ns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10186	10303	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12827	12944	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13663	13780	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16304	16421	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12944	13061	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15666	15783	
==>er!heading === $!heading) {
        # Both sources have identical headings; result is src intersection.
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10256	10402	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7807	7953	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10256	10402	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7807	7953	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10256	10402	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7807	7953	
==>e iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $curre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2801	2930	
==>y
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13138	13267	
==>lf->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2801	2930	
==>y
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2801	2930	
==>y
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13138	13267	
==>lf->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13138	13267	
==>lf->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9537	9658	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7084	7205	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9537	9658	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7084	7205	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9537	9658	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7084	7205	
==>f ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        confes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10472	10602	
==>@classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    pu <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10472	10602	
==>@classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    pu <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6265	6391	
==>ktrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6265	6391	
==>ktrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8962	9066	
==>.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8962	9066	
==>.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3335	3452	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11893	12010	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6460	6577	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3335	3452	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11893	12010	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6460	6577	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14852	14975	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19551	19674	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14852	14975	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19551	19674	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14852	14975	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19551	19674	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2207	2386	
==>,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6475	6601	
==>e($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6475	6601	
==>e($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6475	6601	
==>e($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::ma <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7962	8060	
==>resents an ordered set of spans.

The problem this class solves is when you need do perform "set" o <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7962	8060	
==>resents an ordered set of spans.

The problem this class solves is when you need do perform "set" o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5238	5383	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8208	8353	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5238	5383	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8208	8353	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5238	5383	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8208	8353	
==>hod);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strang <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4491	4584	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6440	6533	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4491	4584	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6440	6533	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4491	4584	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6440	6533	
==>N_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9584	9704	
==>s\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5925	6045	
==>s\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6774	6894	
==>s\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1259	1373	
==>e_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  ,'Bool',
  'p <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4409	4520	
==>e_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'p <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4409	4520	
==>e_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	129	245	
==>map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	129	245	
==>map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	129	245	
==>map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3147	3253	
==>return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3147	3253	
==>return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3147	3253	
==>return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq ' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1414	1578	
==>HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1414	1578	
==>HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1263	1408	
==>struct ) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'AR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4788	4915	
==>ED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4788	4915	
==>ED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4788	4915	
==>ED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12304	12429	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3926	4051	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12304	12429	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3926	4051	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12304	12429	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3926	4051	
==>l6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	894	1024	
==>lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	894	1024	
==>lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	894	1024	
==>lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20841	20933	
==>fix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20841	20933	
==>fix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20841	20933	
==>fix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2340	2460	
==>MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2340	2460	
==>MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2340	2460	
==>MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5832	5935	
==>pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5832	5935	
==>pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5832	5935	
==>pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "/ <==
6	/Users/nnunley/pugs/util/build_pugs.pl	6198	6317	
==>in)/) {
        push @pkgs, -package => 'Win32' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        push @pk <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2227	2341	
==>}, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2215	2329	
==>}, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8593	8698	
==>' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8593	8698	
==>' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8593	8698	
==>' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17	114	
==>rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17	114	
==>rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17	114	
==>rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3304	3389	
==>_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3304	3389	
==>_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3304	3389	
==>_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1044	1143	
==>.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	647	746	
==>recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1044	1143	
==>.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	647	746	
==>recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	647	746	
==>recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1591	1690	
==>.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	170	338	
==>re; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	170	338	
==>re; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	170	338	
==>re; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16712	16831	
==>{
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16712	16831	
==>{
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16712	16831	
==>{
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11528	11721	
==>ss $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11528	11721	
==>ss $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11528	11721	
==>ss $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9662	9767	
==>------------------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9662	9767	
==>------------------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9662	9767	
==>------------------      
    method collect_all_roles () { "<implemented>" }  

    # -------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20179	20309	
==>!defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20179	20309	
==>!defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20179	20309	
==>!defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16739	16846	
==>uilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16739	16846	
==>uilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16739	16846	
==>uilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3985	4093	
==>al;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3985	4093	
==>al;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3985	4093	
==>al;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "func <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2531	2627	
==>ill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2531	2627	
==>ill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2531	2627	
==>ill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "pr <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2666	2762	
==>d1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2666	2762	
==>d1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4190	4286	
==>d1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2383	2473	
==>f->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2383	2473	
==>f->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2383	2473	
==>f->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2041	2234	
==>om,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2041	2234	
==>om,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2041	2234	
==>om,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2370	2493	
==>.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2370	2493	
==>.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2370	2493	
==>.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6718	6833	
==>s).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_li <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6718	6833	
==>s).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3787	3889	
==>"named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3787	3889	
==>"named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4377	4479	
==>"named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->na <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	25363	25459	
==>s statistics like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4168	4279	
==>ody   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4168	4279	
==>ody   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4168	4279	
==>ody   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8838	8945	
==>lt'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8838	8945	
==>lt'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8838	8945	
==>lt'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	286	401	
==>1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	286	401	
==>1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	286	401	
==>1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17217	17308	
==>x1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17217	17308	
==>x1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17217	17308	
==>x1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5918	6027	
==>_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5918	6027	
==>_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39581	39672	
==>d.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<h <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39581	39672	
==>d.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<h <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24305	24395	
==>d.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<h <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24305	24395	
==>d.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3124	3238	
==>_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3124	3238	
==>_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3124	3238	
==>_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	438	534	
==>);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	438	534	
==>);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	438	534	
==>);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22099	22198	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their attr <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9372	9471	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their attr <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22099	22198	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their attr <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9372	9471	
==>new()> on the
appropriate class name, and then invoking methods on those objects.  All of
their attr <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24467	24565	
==>new()> on
the appropriate class name, and then invoking methods on those objects.
All of their attr <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24467	24565	
==>new()> on
the appropriate class name, and then invoking methods on those objects.
All of their attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1314	1415	
==>d, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any oth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1314	1415	
==>d, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any oth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1314	1415	
==>d, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7030	7127	
==>ainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7030	7127	
==>ainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7030	7127	
==>ainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39502	39596	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39772	39866	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39502	39596	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39772	39866	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39502	39596	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39772	39866	
==>a( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4386	4513	
==>le ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop } <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4386	4513	
==>le ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6463	6563	
==>ct>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7199	7299	
==>ct>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6463	6563	
==>ct>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7199	7299	
==>ct>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5761	5873	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3881	3993	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5761	5873	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3881	3993	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5761	5873	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3881	3993	
==>are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5878	5995	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8848	8965	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5878	5995	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8848	8965	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5878	5995	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8848	8965	
==>d->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2074	2234	
==>rn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7017	7175	
==>rn sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1845	2000	
==>rn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1845	2000	
==>rn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6782	6935	
==>rn sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23077	23174	
==>nparen

The number of OPENs (capturing groups) in the regex.

=item captures

An array reference t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5788	5921	
==>r::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Fi <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5788	5921	
==>r::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2770	2878	
==>und.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wor <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2770	2878	
==>und.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wor <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2770	2878	
==>und.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wor <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7278	7361	
==>ondition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R1), p5_conditio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1127	1239	
==>$) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	866	973	
==>$) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1071	1178	
==>$) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1946	2048	
==>eed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1946	2048	
==>eed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1946	2048	
==>eed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTH <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2066	2182	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4285	4401	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2066	2182	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4285	4401	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1368	1464	
==>ule, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modu <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1368	1464	
==>ule, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16377	16500	
==>ethod next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16377	16500	
==>ethod next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3192	3302	
==>t(exact_comp => "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	710	814	
==>cursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	710	814	
==>cursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	710	814	
==>cursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12837	12933	
==>set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9613	9709	
==>set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12837	12933	
==>set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less ( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9613	9709	
==>set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less ( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	123	207	
==>header push_header init_header remove_header remove_content_headers header_field_name <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	123	207	
==>header push_header init_header remove_header remove_content_headers header_field_name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2470	2601	
==>} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { exp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2470	2601	
==>} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { exp <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1043	1141	
==>on? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($e <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1043	1141	
==>on? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($e <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	965	1062	
==>on? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($e <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	965	1062	
==>on? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13566	13699	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10850	10983	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13566	13699	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10850	10983	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13566	13699	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10850	10983	
==>ams->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	579	688	
==>$cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	579	688	
==>$cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	579	688	
==>$cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (q <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	208	321	
==>_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	212	325	
==>_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	206	319	
==>_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	264	377	
==>_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	206	319	
==>_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19303	19400	
==>(slurp($filename),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	732	859	
==>eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$deb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	732	859	
==>eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$deb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	732	859	
==>eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$deb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5230	5331	
==>$mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5230	5331	
==>$mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5230	5331	
==>$mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13074	13195	
==>";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13074	13195	
==>";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13074	13195	
==>";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22818	22910	
==>m_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22818	22910	
==>m_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22818	22910	
==>m_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17376	17499	
==>hift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is co <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17376	17499	
==>hift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is co <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33705	33800	
==>n $other!) returns Relation>

This method is a generic relational operator that takes a single R <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34473	34568	
==>n $other!) returns Relation>

This method is a generic relational operator that takes a single R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38255	38350	
==>n $other!) returns Relation>

This method is a generic relational operator that takes a single R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39023	39118	
==>n $other!) returns Relation>

This method is a generic relational operator that takes a single R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15750	15884	
==>Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15750	15884	
==>Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14035	14142	
==>pond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a re <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14035	14142	
==>pond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a re <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13097	13200	
==>pond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a re <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13097	13200	
==>pond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11972	12101	
==>l to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11972	12101	
==>l to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11972	12101	
==>l to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1426	1522	
==>CESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1426	1522	
==>CESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1426	1522	
==>CESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1419	1546	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2982	3109	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1419	1546	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2982	3109	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1419	1546	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2982	3109	
==>ect 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4022	4144	
==>$val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. The <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4022	4144	
==>$val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. The <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4022	4144	
==>$val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. The <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16450	16554	
==>wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16450	16554	
==>wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16450	16554	
==>wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20142	20264	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17281	17403	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20142	20264	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17281	17403	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20142	20264	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17281	17403	
==>return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1990	2101	
==>ve_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{p <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14510	14620	
==>ve_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	65	167	
==>termediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	65	167	
==>termediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	65	167	
==>termediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed t <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	65	167	
==>termediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4542	4687	
==>\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FI <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4764	4909	
==>\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FI <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2299	2395	
==>mar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2299	2395	
==>mar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1524	1616	
==>mar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3385	3477	
==>mar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30239	30374	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31968	32103	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30239	30374	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31968	32103	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30239	30374	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31968	32103	
==>gth == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13891	14001	
==>ns are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most ex <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17368	17478	
==>ns are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most ex <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16748	16858	
==>ns are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most ex <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3262	3357	
==>::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3262	3357	
==>::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5459	5554	
==>::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3704	3956	
==>polate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3747	3999	
==>polate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3704	3956	
==>polate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3747	3999	
==>polate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8664	8786	
==>/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/ <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8664	8786	
==>/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3686	3827	
==>);
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3935	4072	
==>);
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10384	10521	
==>);
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3935	4072	
==>);
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10384	10521	
==>);
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $n <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	17443	17576	
==>pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{max <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7627	7796	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5186	5355	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7627	7796	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5186	5355	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7627	7796	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5186	5355	
==>= (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7944	8179	
==>ncrement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decre <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7944	8179	
==>ncrement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decre <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7944	8179	
==>ncrement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9488	9581	
==>quire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB us <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9488	9581	
==>quire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB us <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9488	9581	
==>quire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB us <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4000	4105	
==>people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4000	4105	
==>people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6979	7083	
==>people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9049	9153	
==>people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6979	7083	
==>people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9049	9153	
==>people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9600	9739	
==>+;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  me <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9600	9739	
==>+;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  me <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5498	5626	
==>(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5498	5626	
==>(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5038	5163	
==>a"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(9 <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5038	5163	
==>a"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(9 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	975	1087	
==>match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	975	1087	
==>match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compile <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2647	2742	
==>nfix:|", "nows", &parse_modifier);
    $optable->addToken("close:>", "<prefix::", "nows");
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5490	5583	
==>he skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5490	5583	
==>he skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7014	7107	
==>he skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1119	1251	
==>rl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1119	1251	
==>rl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1119	1251	
==>rl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2536	2648	
==>substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2536	2648	
==>substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2536	2648	
==>substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6726	6851	
==>PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6726	6851	
==>PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6726	6851	
==>PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefa <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	9373	9502	
==>SO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "am <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9373	9502	
==>SO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "am <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12026	12120	
==>$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C< <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9147	9241	
==>$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12026	12120	
==>$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9147	9241	
==>$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9719	9840	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12692	12813	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9719	9840	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12692	12813	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9719	9840	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12692	12813	
==>atcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37385	37517	
==>}
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37385	37517	
==>}
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37385	37517	
==>}
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11021	11135	
==>lue ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11021	11135	
==>lue ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11021	11135	
==>lue ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1715	1850	
==>urrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1715	1850	
==>urrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1715	1850	
==>urrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7717	7820	
==>func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7717	7820	
==>func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7717	7820	
==>func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	497	595	
==>yche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles lik <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	497	595	
==>yche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles lik <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	497	595	
==>yche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles lik <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	363	456	
==>L2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	363	456	
==>L2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	363	456	
==>L2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19524	19633	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16756	16865	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19524	19633	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16756	16865	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19524	19633	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16756	16865	
==>,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4444	4657	
==>e->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    ma <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4444	4657	
==>e->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    ma <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4444	4657	
==>e->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11511	11612	
==>d_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11511	11612	
==>d_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11511	11612	
==>d_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2814	2923	
==>s \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2814	2923	
==>s \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	47	145	
==>der, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get install <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	47	145	
==>der, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get install <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	47	145	
==>der, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get install <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	47	145	
==>der, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get install <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21785	21896	
==>local string cname
    .local pmc reps

    iscapture = self["iscapture"]
    if iscapture == 0 goto end
    cna <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9819	9925	
==>on gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially buil <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1637	1742	
==>ompiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStm <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1637	1742	
==>ompiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStm <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	257	359	
==>on gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially buil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	257	359	
==>on gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially buil <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3051	3223	
==>tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        } <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3051	3223	
==>tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        } <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4361	4464	
==>t will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4361	4464	
==>t will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi su <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5234	5334	
==>t will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5234	5334	
==>t will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi su <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23608	23706	
==>mutate.  Depending on the implementing class, it can default to True or
False, but once it has a va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28160	28258	
==>mutate.  Depending on the implementing class, it can default to True or
False, but once it has a va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26973	27071	
==>mutate.  Depending on the implementing class, it can default to True or
False, but once it has a va <==
6	/Users/nnunley/pugs/util/package-osx.pl	11942	12032	
==>st, @files);
&make_symlinks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($des <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7924	8012	
==>ation") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Auth <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7924	8012	
==>ation") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Auth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35174	35292	
==>l=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35174	35292	
==>l=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35174	35292	
==>l=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1445	1550	
==>ush @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1445	1550	
==>ush @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1654	1759	
==>ush @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6902	7045	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9872	10015	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6902	7045	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9872	10015	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6902	7045	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9872	10015	
==>f($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6307	6431	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9277	9401	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6307	6431	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9277	9401	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6307	6431	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9277	9401	
==>st has a class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	644	774	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	732	862	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	644	774	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	732	862	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	644	774	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	732	862	
==>s, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9132	9249	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6679	6796	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9132	9249	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6679	6796	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9132	9249	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6679	6796	
==>anonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7245	7408	
==>n "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7245	7408	
==>n "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7245	7408	
==>n "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	16078	16167	
==>tevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jes <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16136	16225	
==>tevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jes <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2094	2183	
==>turn { access_hashref_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compiler::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1795	1905	
==>ub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1795	1905	
==>ub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1795	1905	
==>ub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1577	1683	
==>'Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1577	1683	
==>'Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1577	1683	
==>'Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13433	13562	
==>shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13433	13562	
==>shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13433	13562	
==>shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17914	18004	
==>_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17914	18004	
==>_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17914	18004	
==>_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n( <==
6	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	371	564	
==>on: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshi <==
6	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	371	564	
==>on: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10057	10211	
==>', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10057	10211	
==>', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1446	1538	
==>and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1446	1538	
==>and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	771	886	
==>$default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	771	886	
==>$default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	771	886	
==>$default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4372	4474	
==>\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4372	4474	
==>\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4372	4474	
==>\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1511	1608	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1511	1608	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1511	1608	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	352	447	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	352	447	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	352	447	
==>>{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4755	4892	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2942	3079	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4755	4892	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2942	3079	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4755	4892	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2942	3079	
==>o not do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15068	15248	
==>, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15068	15248	
==>, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15068	15248	
==>, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->g <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5696	5813	
==>-> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5696	5813	
==>-> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5696	5813	
==>-> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array * <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8386	8507	
==>( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13897	14018	
==>( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8386	8507	
==>( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13891	14012	
==>( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	704	817	
==>must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	704	817	
==>must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1354	1552	
==>? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1354	1552	
==>? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1354	1552	
==>? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6288	6380	
==>ort$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6288	6380	
==>ort$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6288	6380	
==>ort$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3149	3289	
==>erl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$fl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3289	3429	
==>erl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$fl <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	153	244	
==>-------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	176	267	
==>--------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -------------------------- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	153	244	
==>-------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	176	267	
==>--------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4868	4985	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7517	7634	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5082	5193	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11531	11642	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5082	5193	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11531	11642	
==>apture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3037	3164	
==>"-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3037	3164	
==>"-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3037	3164	
==>"-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9413	9510	
==>text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'ge <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9413	9510	
==>text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'ge <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1038	1132	
==>t->new("SHA-1");
	$digest->add($c_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} ||= $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14856	14983	
==>f => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14856	14983	
==>f => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14856	14983	
==>f => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	37	130	
==>r|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	37	130	
==>r|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	37	130	
==>r|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9325	9459	
==>. "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9325	9459	
==>. "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9325	9459	
==>. "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	19	118	
==>valX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	19	118	
==>valX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	19	118	
==>valX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	640	741	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1160	1261	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	640	741	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1160	1261	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	640	741	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1160	1261	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1551	1690	
==>ocument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1551	1690	
==>ocument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1551	1690	
==>ocument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5159	5265	
==>*@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5159	5265	
==>*@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5159	5265	
==>*@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum ! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14882	14997	
==>ss = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a p <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14882	14997	
==>ss = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3046	3160	
==>: $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3034	3148	
==>: $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8428	8540	
==>rse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with nam <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8428	8540	
==>rse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2003	2122	
==>} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2003	2122	
==>} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2003	2122	
==>} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package P <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4483	4576	
==>DO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4483	4576	
==>DO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6680	6773	
==>DO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	764	903	
==>s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	764	903	
==>s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	764	903	
==>s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2889	2988	
==>reludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2889	2988	
==>reludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2889	2988	
==>reludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	743	850	
==>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	743	850	
==>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	743	850	
==>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3098	3201	
==>seClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3098	3201	
==>seClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3098	3201	
==>seClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2490	2620	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4817	4947	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2490	2620	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4817	4947	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2490	2620	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4817	4947	
==>_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide a name for the attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6563	6700	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9533	9670	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6563	6700	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9533	9670	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6563	6700	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9533	9670	
==>s "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5515	5638	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5515	5638	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5515	5638	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17069	17183	
==>it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($? <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20546	20660	
==>it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($? <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20124	20238	
==>it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($? <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4773	4893	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7422	7542	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4989	5106	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11438	11555	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4989	5106	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11438	11555	
==>length( $match->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    dele <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14631	14785	
==>p1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@re <==
6	/Users/nnunley/pugs/util/build_pugs.pl	2657	2777	
==>);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9230	9349	
==>= 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "encipherin <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9230	9349	
==>= 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "encipherin <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17950	18045	
==>'ll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Trie <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17950	18045	
==>'ll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Trie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1600	1735	
==>' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1600	1735	
==>' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1600	1735	
==>' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9681	9792	
==>ing of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13158	13269	
==>ing of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12430	12541	
==>ing of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for t <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1435	1610	
==>) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $es <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1435	1610	
==>) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $es <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8979	9076	
==>Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does" <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9777	9874	
==>Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does" <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10686	10783	
==>Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does" <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11512	11609	
==>Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does" <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6095	6206	
==>TP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!pa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6095	6206	
==>TP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!pa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20619	20716	
==>nnels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> met <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19545	19642	
==>nnels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> met <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20619	20716	
==>nnels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> met <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19545	19642	
==>nnels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	65	171	
==>imitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1666	1772	
==>f-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $lo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	65	171	
==>imitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	65	171	
==>imitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1666	1772	
==>f-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $lo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1666	1772	
==>f-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5778	5907	
==>ox.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5778	5907	
==>ox.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5778	5907	
==>ox.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4859	4954	
==>est::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whet <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4859	4954	
==>est::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7056	7151	
==>est::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13065	13181	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10349	10465	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13065	13181	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10349	10465	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13065	13181	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10349	10465	
==>thod('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15798	15907	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13048	13157	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15798	15907	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13048	13157	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15798	15907	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13048	13157	
==>$label)
        || confess "InsufficientArguments : you must provide a label";
    my $table = $self->_get_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3192	3321	
==>_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3192	3321	
==>_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3192	3321	
==>_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attri <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3236	3331	
==>Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runnin <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3236	3331	
==>Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runnin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3316	3411	
==>Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runnin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2195	2330	
==>self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2195	2330	
==>self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2195	2330	
==>self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	490	611	
==>x:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	496	617	
==>x:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	551	672	
==>x:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10946	11087	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8016	8151	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8016	8151	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12268	12375	
==>5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($li <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12268	12375	
==>5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($li <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7598	7704	
==>? */
    r = Perl_pregcomp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stde <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11247	11349	
==>ntrol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?- <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11247	11349	
==>ntrol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?- <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3104	3201	
==>ameter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3104	3201	
==>ameter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12020	12114	
==>ities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyonc <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12020	12114	
==>ities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyonc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11323	11451	
==>::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($na <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11323	11451	
==>::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($na <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11323	11451	
==>::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($na <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5767	5860	
==>_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5767	5860	
==>_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7291	7384	
==>_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1287	1400	
==>Context is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL giv <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1287	1400	
==>Context is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL giv <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1287	1400	
==>Context is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL giv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3212	3322	
==>g treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3212	3322	
==>g treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3212	3322	
==>g treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6073	6173	
==>How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10634	10734	
==>-------------------------------------

    method add_method;
    method get_method;
    method has_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6073	6173	
==>How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10634	10734	
==>-------------------------------------

    method add_method;
    method get_method;
    method has_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6073	6173	
==>How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10634	10734	
==>-------------------------------------

    method add_method;
    method get_method;
    method has_m <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3334	3443	
==>lt1 = $O.<[[Get]]>('valueOf');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15285	15386	
==>};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB c <==
6	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2092	2193	
==>(Num $x) {
	return(int $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	return 0 if $x == 0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15285	15386	
==>};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15285	15386	
==>};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB c <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1290	1383	
==>, qw( Regexp::Parser::__object__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	796	927	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	884	1015	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	796	927	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	884	1015	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	796	927	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	884	1015	
==>} elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1637	1765	
==>}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2380	2508	
==>}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1637	1765	
==>}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2368	2496	
==>}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6465	6564	
==>her>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ci <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6465	6564	
==>her>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ci <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	1135	1232	
==>nal" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1135	1232	
==>nal" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6359	6452	
==>ESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which wi <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3713	3806	
==>ESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which wi <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6359	6452	
==>ESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which wi <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3713	3806	
==>ESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which wi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5697	5808	
==>r( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3033	3144	
==>r( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3882	3993	
==>r( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1179	1276	
==>e and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1179	1276	
==>e and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1179	1276	
==>e and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3147	3238	
==>Param}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3352	3443	
==>$self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3147	3238	
==>Param}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3147	3238	
==>Param}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3352	3443	
==>$self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3352	3443	
==>$self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2999	3199	
==>ed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2999	3199	
==>ed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2999	3199	
==>ed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11779	11940	
==>ay';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11779	11940	
==>ay';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11779	11940	
==>ay';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29093	29215	
==>RTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return % <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29093	29215	
==>RTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return % <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	444	550	
==>RTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4296	4400	
==>($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4296	4400	
==>($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4296	4400	
==>($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8443	8680	
==>t ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8443	8680	
==>t ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8443	8680	
==>t ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{ <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4080	4199	
==>are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a proper <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4080	4199	
==>are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a proper <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42872	42963	
==>so requires these Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0)|Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4537	4704	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7049	7216	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4537	4704	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7049	7216	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4537	4704	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7049	7216	
==>re...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # method, m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20195	20426	
==>{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20195	20426	
==>{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20195	20426	
==>{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5318	5419	
==>);

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5318	5419	
==>);

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5318	5419	
==>);

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1719	1842	
==>| (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	257	380	
==>> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1719	1842	
==>| (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $li <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1719	1842	
==>| (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $li <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	257	380	
==>> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	257	380	
==>> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11493	11610	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2487	2604	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7581	7698	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11493	11610	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2487	2604	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7581	7698	
==>r @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2244	2356	
==>\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2244	2356	
==>\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2244	2356	
==>\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4926	5020	
==>o the associativity of the original operator and auto-metaed versions
# of user-defined ops are <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4926	5020	
==>o the associativity of the original operator and auto-metaed versions
# of user-defined ops are <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4926	5020	
==>o the associativity of the original operator and auto-metaed versions
# of user-defined ops are <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3990	4117	
==>s dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $ma <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4454	4581	
==>s dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $ma <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14276	14401	
==>my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4341	4454	
==>my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4341	4454	
==>my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4341	4454	
==>my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10171	10312	
==>nt \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "mat <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6512	6653	
==>nt \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7361	7502	
==>nt \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "mat <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	30350	30446	
==>S

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
directory.

Please use th <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18739	18834	
==>s association would normally be
stored in a Perl file that defines and returns an anonymous hash <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18739	18834	
==>s association would normally be
stored in a Perl file that defines and returns an anonymous hash <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9332	9459	
==>f->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "en <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9332	9459	
==>f->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "en <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9332	9459	
==>f->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "en <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14005	14129	
==>mmar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is ve <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10178	10302	
==>mmar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is ve <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11014	11138	
==>mmar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is ve <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	198	306	
==>er qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	198	306	
==>er qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2330	2433	
==>File.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=hea <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2330	2433	
==>File.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=hea <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1555	1652	
==>File.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=hea <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3416	3513	
==>File.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3067	3176	
==>ent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3067	3176	
==>ent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3067	3176	
==>ent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5632	5732	
==>ub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5632	5732	
==>ub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5632	5732	
==>ub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recur <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	674	812	
==>O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9854	9950	
==>iter = $parser->walker(2);  # top- through third-level

The iterator returned is a function refer <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2294	2389	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2294	2389	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1519	1610	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3380	3471	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5152	5265	
==>$eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5152	5265	
==>$eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5152	5265	
==>$eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3435	3546	
==>$js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3435	3546	
==>$js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3435	3546	
==>$js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4960	5083	
==>) . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAG <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4960	5083	
==>) . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAG <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4960	5083	
==>) . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAG <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2248	2327	
==>cope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2248	2327	
==>cope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2248	2327	
==>cope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	902	1040	
==>,
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be don <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	902	1040	
==>,
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be don <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	902	1040	
==>,
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be don <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15125	15253	
==>s->send('add_method' => (
    # method label
        symbol->new('CREATE'),
    # method body
        method->new(
            $: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1166	1256	
==>le->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<par <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1386	1476	
==>le->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<par <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13545	13726	
==>e} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9729	9910	
==>e} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10565	10746	
==>e} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13995	14091	
==>ATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13995	14091	
==>ATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13995	14091	
==>ATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5625	5749	
==>my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5625	5749	
==>my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5625	5749	
==>my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7807	7951	
==>ably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2104	2229	
==>ably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2104	2229	
==>ably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2104	2229	
==>ably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19326	19423	
==>resource files used by the
program, so that if you wanted to upgrade or localize what text the use <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19326	19423	
==>resource files used by the
program, so that if you wanted to upgrade or localize what text the use <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	569	668	
==>{ $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix: <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	569	668	
==>{ $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3569	3687	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6505	6623	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3569	3687	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6505	6623	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3569	3687	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6505	6623	
==>does not have method
    # primitives, we have to make them.
    
    # a convenience wrapper for binding/unbinding $?R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14254	14354	
==>hod_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14254	14354	
==>hod_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14254	14354	
==>hod_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_tab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	99	193	
==>say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	99	193	
==>say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	99	193	
==>say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primit <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	919	1029	
==>each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Chil <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	919	1029	
==>each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Chil <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3343	3428	
==>FAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks->noop);go <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2847	2965	
==>->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_object;

=cut

sub extract_meta_object {
    my <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	336	436	
==>m_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	881	981	
==>m_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for st <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	336	436	
==>m_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	881	981	
==>m_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	881	981	
==>m_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4092	4182	
==>ement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4092	4182	
==>ement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4092	4182	
==>ement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_ma <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6032	6121	
==>se role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These ne <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6032	6121	
==>se role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8229	8318	
==>se role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1517	1613	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1517	1613	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1517	1613	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	358	452	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	358	452	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	358	452	
==>->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun} <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5398	5514	
==>meta->{archive} =
            $self->pool_rel->file( file($pkg->file)->basename )->stringify();
        
        # ap <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3611	3713	
==>v does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3611	3713	
==>v does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3611	3713	
==>v does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37930	38021	
==>_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37930	38021	
==>_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14699	14855	
==>->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14699	14855	
==>->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14699	14855	
==>->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3170	3280	
==>f $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1908	2014	
==>an.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method u <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1908	2014	
==>an.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method u <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2943	3043	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10866	10966	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6068	6168	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2943	3043	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10866	10966	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6068	6168	
==>rs );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	824	944	
==>6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	824	944	
==>6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	824	944	
==>6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12955	13070	
==>ntersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16432	16547	
==>ntersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15794	15909	
==>ntersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2163	2286	
==>ables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2163	2286	
==>ables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2510	2633	
==>ables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3305	3399	
==>_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3305	3399	
==>_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3305	3399	
==>_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7356	7462	
==>sts.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `un <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7356	7462	
==>sts.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `un <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	1249	1348	
==>l line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTION <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5550	5646	
==>/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5550	5646	
==>/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5550	5646	
==>/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1316	1426	
==>ub available_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->c <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	447	547	
==>. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	992	1092	
==>. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	447	547	
==>. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	992	1092	
==>. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	992	1092	
==>. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13063	13199	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13063	13199	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13063	13199	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5303	5439	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3803	3939	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1948	2084	
==>ze if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5027	5133	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_L <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5027	5133	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_L <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1931	2037	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_L <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6563	6654	
==>xpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6563	6654	
==>xpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6563	6654	
==>xpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.co <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9615	9733	
==>lation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13092	13210	
==>lation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12364	12482	
==>lation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	931	1031	
==>itive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	931	1031	
==>itive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	931	1031	
==>itive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9408	9535	
==>end =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9408	9535	
==>end =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9408	9535	
==>end =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3222	3328	
==>e->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3222	3328	
==>e->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3222	3328	
==>e->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1349	1448	
==>eturn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1349	1448	
==>eturn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1349	1448	
==>eturn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17269	17363	
==>butes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17269	17363	
==>butes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17269	17363	
==>butes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1416	1536	
==>paque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1416	1536	
==>paque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1416	1536	
==>paque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1071	1176	
==>* 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1071	1176	
==>* 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1071	1176	
==>* 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7025	7128	
==>ch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7025	7128	
==>ch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7025	7128	
==>ch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2697	2796	
==>ber(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2697	2796	
==>ber(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2697	2796	
==>ber(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4242	4355	
==>xt/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<E <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4242	4355	
==>xt/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<E <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4242	4355	
==>xt/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<E <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1986	2078	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1986	2078	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1986	2078	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5711	5821	
==>unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5711	5821	
==>unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5711	5821	
==>unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4698	4786	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4698	4786	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4698	4786	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13731	13870	
==>d_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13731	13870	
==>d_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13731	13870	
==>d_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8125	8230	
==>orm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8125	8230	
==>orm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8125	8230	
==>orm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS-> <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3034	3152	
==>s with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3034	3152	
==>s with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:p <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6444	6543	
==>rmalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delet <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7180	7279	
==>rmalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6444	6543	
==>rmalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7180	7279	
==>rmalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5015	5110	
==>me", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5015	5110	
==>me", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5015	5110	
==>me", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	616	716	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1136	1236	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	616	716	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1136	1236	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	616	716	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1136	1236	
==>w: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1]. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8745	8898	
==>urn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12650	12797	
==>urn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12650	12797	
==>urn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	24	127	
==>ished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	24	127	
==>ished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	24	127	
==>ished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30754	30952	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32473	32671	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30754	30952	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32473	32671	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30754	30952	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32473	32671	
==>ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2103	2219	
==>2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@ <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2103	2219	
==>2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	6368	6481	
==>pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2389	2482	
==>nstance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2389	2482	
==>nstance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2389	2482	
==>nstance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2030	2149	
==>command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2030	2149	
==>command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2030	2149	
==>command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6085	6191	
==>classes now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6085	6191	
==>classes now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6085	6191	
==>classes now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3453	3582	
==>LD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3453	3582	
==>LD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3453	3582	
==>LD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13992	14115	
==>ax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XX <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10165	10288	
==>ax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11001	11124	
==>ax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15078	15255	
==>instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15078	15255	
==>instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15078	15255	
==>instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21624	21795	
==>rl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21624	21795	
==>rl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21624	21795	
==>rl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5587	5684	
==>s lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5587	5684	
==>s lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5587	5684	
==>s lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6542	6668	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8991	9117	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6542	6668	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8991	9117	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6542	6668	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8991	9117	
==>e "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: ins <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3946	4070	
==>y = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3946	4070	
==>y = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	915	1024	
==>Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	915	1024	
==>Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    retur <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26247	26346	
==>l you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26247	26346	
==>l you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15016	15113	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12270	12367	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15016	15113	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12270	12367	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15016	15113	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12270	12367	
==>essed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	840	943	
==>an't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	840	943	
==>an't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	840	943	
==>an't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	549	650	
==>al($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	549	650	
==>al($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	549	650	
==>al($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1697	1795	
==>e and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1697	1795	
==>e and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1697	1795	
==>e and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5370	5461	
==>>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5370	5461	
==>>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5960	6051	
==>>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	472	654	
==>y $inst;
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installati <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	5384	5488	
==>::variable/;

# a free variable is a placeholder
# when going into an AST these are generated
# as the AS <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20873	20971	
==>and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknam <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19790	19888	
==>and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20873	20971	
==>and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknam <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19790	19888	
==>and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknam <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11485	11581	
==>he outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_no <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11485	11581	
==>he outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_no <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8014	8109	
==>x:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7144	7239	
==>x:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8014	8109	
==>x:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7144	7239	
==>x:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16040	16139	
==>_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16040	16139	
==>_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16040	16139	
==>_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10829	10934	
==>Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10829	10934	
==>Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10829	10934	
==>Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1282	1379	
==>gification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how ma <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1282	1379	
==>gification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how ma <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1282	1379	
==>gification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how ma <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17616	17725	
==>return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17616	17725	
==>return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2747	2842	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10667	10762	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2747	2842	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10667	10762	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1887	2001	
==>ope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3117	3231	
==>m all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1887	2001	
==>ope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1887	2001	
==>ope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3117	3231	
==>m all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3117	3231	
==>m all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# T <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6772	6868	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5902	5998	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2556	2652	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2556	2652	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6772	6868	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5902	5998	
==>sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6948	7046	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6078	6176	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2732	2830	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2732	2830	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6948	7046	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6078	6176	
==>sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19900	20027	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17039	17166	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19900	20027	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17039	17166	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19900	20027	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17039	17166	
==>ssed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attributes with the meta model, 
        # cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17926	18062	
==>>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17926	18062	
==>>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17926	18062	
==>>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9664	9759	
==>my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9664	9759	
==>my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9664	9759	
==>my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8480	8619	
==>:Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed unt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8480	8619	
==>:Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed unt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8480	8619	
==>:Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed unt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7077	7178	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3681	3782	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4530	4631	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6537	6655	
==>_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $fh   = get_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16010	16122	
==>d { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16010	16122	
==>d { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14758	14862	
==>ue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14758	14862	
==>ue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14758	14862	
==>ue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 10 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	1460	1615	
==>int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1564	1719	
==>int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1460	1615	
==>int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1564	1719	
==>int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5162	5262	
==>umper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1::Api; use utf8; us <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	330	424	
==>) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not term <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5051	5215	
==>s)
            # and touch the index file.
            $index->dir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1403	1501	
==>se );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1403	1501	
==>se );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4251	4344	
==>Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4251	4344	
==>Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6448	6541	
==>Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3539	3646	
==>ned1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3539	3646	
==>ned1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3539	3646	
==>ned1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	107	198	
==>nd_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	107	198	
==>nd_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	107	198	
==>nd_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8904	9052	
==>]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implem <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14633	14781	
==>]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implem <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8904	9052	
==>]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implem <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14627	14775	
==>]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implem <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15793	15902	
==>e prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2190	2295	
==>e prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_time <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15724	15872	
==>lass::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15724	15872	
==>lass::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15724	15872	
==>lass::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20445	20589	
==>lass::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20445	20589	
==>lass::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20445	20589	
==>lass::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26391	26609	
==>gify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26391	26609	
==>gify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26391	26609	
==>gify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6892	7000	
==>rep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6892	7000	
==>rep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6892	7000	
==>rep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14893	14988	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12147	12242	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14893	14988	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12147	12242	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14893	14988	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12147	12242	
==>cientArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15705	15838	
==>easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15705	15838	
==>easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15705	15838	
==>easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20426	20555	
==>easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20426	20555	
==>easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20426	20555	
==>easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regist <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10813	10921	
==>unction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10813	10921	
==>unction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10813	10921	
==>unction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempt <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	289	393	
==>e conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Grapheme     is Char;
clas <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10796	10893	
==>ue is undefined or not
given, then that header field will remain unchanged.

The old value (or val <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10796	10893	
==>ue is undefined or not
given, then that header field will remain unchanged.

The old value (or val <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	911	1017	
==>azy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	911	1017	
==>azy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15293	15387	
==>invoke or implement it, and so an
application written to it should behave identically no matter <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15293	15387	
==>invoke or implement it, and so an
application written to it should behave identically no matter <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1254	1347	
==>ng utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=hea <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1254	1347	
==>ng utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=hea <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	32	137	
==>se File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $ <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	32	137	
==>se File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	751	855	
==>' entry and the tests will run somewhere quite different!
$config{'root'}             = [ $Cwd->subdir('f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6512	6609	
==>rn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6512	6609	
==>rn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6512	6609	
==>rn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5905	6032	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4025	4152	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5905	6032	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4025	4152	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5905	6032	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4025	4152	
==>superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it . <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2916	3030	
==>rty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2916	3030	
==>rty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31899	31991	
==>relational operator that takes a single
Relation in its C<$other> argument, where <$other> ha <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33760	33852	
==>relational operator that takes a single Relation
in its C<$other> argument, where <$other> ha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36449	36541	
==>relational operator that takes a single
Relation in its C<$other> argument, where <$other> ha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38310	38402	
==>relational operator that takes a single Relation
in its C<$other> argument, where <$other> ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7423	7578	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4982	5137	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7423	7578	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4982	5137	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7423	7578	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4982	5137	
==>]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is instead <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3674	3766	
==>in 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3674	3766	
==>in 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6694	6785	
==>in to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8763	8854	
==>in to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6694	6785	
==>in to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8763	8854	
==>in to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maische <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19408	19530	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16640	16762	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19408	19530	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16640	16762	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19408	19530	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16640	16762	
==>l && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method objects,.. reg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	740	931	
==>_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# categ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	740	931	
==>_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# categ <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	19040	19162	
==>wered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $line, $type, $totals <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4	110	
==>sr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4	110	
==>sr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4	110	
==>sr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1889	2002	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3452	3565	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1889	2002	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3452	3565	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1889	2002	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3452	3565	
==>'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9498	9625	
==>,
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9498	9625	
==>,
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9498	9625	
==>,
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	781	881	
==>------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	781	881	
==>------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	781	881	
==>------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Ob <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22353	22475	
==>e" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6177	6293	
==>~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method c <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6177	6293	
==>~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5725	5821	
==>:= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5725	5821	
==>:= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5725	5821	
==>:= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13390	13535	
==>tlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13390	13535	
==>tlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13390	13535	
==>tlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2275	2420	
==>tlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21006	21119	
==>ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pus <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17427	17540	
==>ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pus <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1440	1566	
==>ry ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1440	1566	
==>ry ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $ <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	199	299	
==>{
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_field <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	199	299	
==>{
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_field <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9573	9666	
==>nsitive.

Instances of this class are usually created as member variables of the
C<HTTP::Reque <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9573	9666	
==>nsitive.

Instances of this class are usually created as member variables of the
C<HTTP::Reque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23013	23117	
==>n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23013	23117	
==>n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23013	23117	
==>n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	302	401	
==>ix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $tr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	302	401	
==>ix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $tr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	302	401	
==>ix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3047	3153	
==>ave an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3047	3153	
==>ave an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3047	3153	
==>ave an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1127	1223	
==>em B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foot <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1127	1223	
==>em B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foot <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1674	1770	
==>em B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foot <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3380	3484	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11938	12042	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6505	6609	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3380	3484	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11938	12042	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6505	6609	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KE <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	997	1108	
==>) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1224	1335	
==>) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1451	1562	
==>) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new( <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	317	415	
==>Lengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 1 <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	317	415	
==>Lengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 1 <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	401	497	
==>$foo does Foo;
 my $role = Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.does($r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2577	2714	
==>@cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2782	2919	
==>@cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3854	3991	
==>@cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11323	11433	
==>orce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11323	11433	
==>orce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11323	11433	
==>orce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14761	14933	
==>{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14761	14933	
==>{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14761	14933	
==>{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$se <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3038	3144	
==>hable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
sub ref_flavo <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1634	1725	
==>* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Ar <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1634	1725	
==>* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3586	3687	
==>UND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3586	3687	
==>UND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3586	3687	
==>UND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4672	4772	
==>ay couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4672	4772	
==>ay couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4672	4772	
==>ay couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18264	18375	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15502	15613	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18264	18375	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15502	15613	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18264	18375	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15502	15613	
==>instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1983	2087	
==>poch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1983	2087	
==>poch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5191	5289	
==>IL::PIL1CPerl5::NodesInfo;
our %node_named;
our @nodes;
our %nodes_of_type;
sub init {
    my $list <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28505	28602	
==>ith
its keys being the new tuple-valued attribute names and each of its values
the set of old attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33057	33154	
==>ith
its keys being the new tuple-valued attribute names and each of its values
the set of old attr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32185	32282	
==>ith
its keys being the new tuple-valued attribute names and each of its values
the set of old attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15701	15901	
==>tion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15701	15901	
==>tion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15701	15901	
==>tion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7671	7768	
==>L::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7671	7768	
==>L::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7671	7768	
==>L::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9133	9318	
==>em,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9133	9318	
==>em,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9133	9318	
==>em,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	708	809	
==>q 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	708	809	
==>q 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	708	809	
==>q 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4613	4718	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7549	7654	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4613	4718	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7549	7654	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4613	4718	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7549	7654	
==>d (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5649	5760	
==>^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5649	5760	
==>^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5649	5760	
==>^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	522	625	
==>refer to it via the closure, then things don\'t work right
      // --the order of output can become all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	522	625	
==>refer to it via the closure, then things don\'t work right
      // --the order of output can become all <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	522	625	
==>refer to it via the closure, then things don\'t work right
      // --the order of output can become all <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9785	9884	
==>s(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
} <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9785	9884	
==>s(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13812	13930	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14186	14304	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13812	13930	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14186	14304	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13812	13930	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14186	14304	
==>y all possible bindings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete( <==
6	/Users/nnunley/pugs/util/graphfuncs.pl	1521	1686	
==>f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	837	966	
==>$class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	837	966	
==>$class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	837	966	
==>$class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($to <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30166	30259	
==>s user string may also contain variable names that correspond
to Message Variables, which will <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30166	30259	
==>s user string may also contain variable names that correspond
to Message Variables, which will <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9129	9238	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6676	6785	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9129	9238	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6676	6785	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9129	9238	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6676	6785	
==>e canonical order
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($orde <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1470	1758	
==>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            give <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1470	1758	
==>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            give <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11932	12032	
==>Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 da <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13324	13424	
==>Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 da <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11932	12032	
==>Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 da <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13324	13424	
==>Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 da <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11757	11910	
==>ifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11757	11910	
==>ifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11757	11910	
==>ifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4549	4651	
==>$html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4549	4651	
==>$html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4549	4651	
==>$html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4111	4222	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4111	4222	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4111	4222	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2520	2620	
==>}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2520	2620	
==>}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2520	2620	
==>}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1084	1206	
==>ub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1084	1206	
==>ub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1084	1206	
==>ub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1128	1230	
==>->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pAr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1128	1230	
==>->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pAr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1128	1230	
==>->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pAr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20166	20308	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17305	17447	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20166	20308	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17305	17447	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20166	20308	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17305	17447	
==>ute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_ME <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4250	4384	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6899	7033	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4481	4611	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10930	11060	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4481	4611	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10930	11060	
==>2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #war <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4799	4989	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7300	7490	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4799	4989	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7300	7490	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4799	4989	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7300	7490	
==>method_name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4132	4232	
==>(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4132	4232	
==>(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4132	4232	
==>(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9633	9726	
==>LTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9633	9726	
==>LTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9633	9726	
==>LTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17402	17579	
==>TOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17402	17579	
==>TOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17402	17579	
==>TOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6675	6796	
==>->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6675	6796	
==>->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6675	6796	
==>->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11786	11925	
==>t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11786	11925	
==>t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11786	11925	
==>t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1554	1651	
==>:PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1554	1651	
==>:PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1554	1651	
==>:PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14201	14351	
==>_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14201	14351	
==>_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14201	14351	
==>_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1057	1161	
==>new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1057	1161	
==>new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1057	1161	
==>new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	19	132	
==>fined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	19	132	
==>fined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	19	132	
==>fined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4015	4110	
==>command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4015	4110	
==>command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4015	4110	
==>command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6650	6829	
==>push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'ele <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6650	6829	
==>push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'ele <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	4325	4447	
==>[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "0000000001\n" ],
      [ 'fil <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16033	16131	
==>-> Char )

Trims the last character from C<$string>, and returns it. Called with a
list, it chops e <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9810	9907	
==>g the very first module written for Pugs.

It provides a simple set of common test utility functio <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9868	9965	
==>g the very first module written for Pugs.

It provides a simple set of common test utility functio <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17368	17475	
==>method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol n <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20732	20839	
==>method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5522	5623	
==>. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5522	5623	
==>. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5522	5623	
==>. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on sub <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	16467	16563	
==>nify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16323	16443	
==>ms);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16323	16443	
==>ms);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16323	16443	
==>ms);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	984	1094	
==>lessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1211	1321	
==>lessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1438	1548	
==>lessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	328	421	
==>{
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	328	421	
==>{
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	328	421	
==>{
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	927	1019	
==>DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	927	1019	
==>DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	927	1019	
==>DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4680	4786	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7616	7722	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4680	4786	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7616	7722	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4680	4786	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7616	7722	
==>h) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the method wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12214	12307	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9771	9864	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12214	12307	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9771	9864	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12214	12307	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9771	9864	
==>d_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27476	27574	
==>e the names of the new attributes, and
the values provide values applied to each tuple.  The new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32028	32126	
==>e the names of the new attributes, and
the values provide values applied to each tuple.  The new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31111	31209	
==>e the names of the new attributes, and
the values provide values applied to each tuple.  The new Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2632	2724	
==>$self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2632	2724	
==>$self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2632	2724	
==>$self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10566	10743	
==>xt;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10566	10743	
==>xt;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5241	5365	
==>defined( $details->{actual_ok} ) );

            # We don't want these to be undef because they are often
            # check <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1471	1560	
==>tance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1471	1560	
==>tance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1471	1560	
==>tance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1700	1808	
==>ed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1700	1808	
==>ed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1700	1808	
==>ed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1159	1260	
==>s},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1159	1260	
==>s},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1159	1260	
==>s},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1001	1097	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1513	1609	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1001	1097	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1513	1609	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1001	1097	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1513	1609	
==>.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4206	4326	
==>sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4206	4326	
==>sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4206	4326	
==>sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3380	3467	
==>opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4074	4161	
==>opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5282	5369	
==>opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	334	441	
==>ferencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	334	441	
==>ferencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	334	441	
==>ferencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      f <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2300	2402	
==>ived_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matc <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2300	2402	
==>ived_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2380	2482	
==>ived_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15840	15962	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20557	20679	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15840	15962	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20557	20679	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15840	15962	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20557	20679	
==>y = {
            # maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimetho <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1573	1671	
==>ingle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( sta <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1335	1433	
==>ingle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( sta <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1573	1671	
==>ingle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( sta <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1335	1433	
==>ingle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( sta <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	942	1038	
==>ful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	942	1038	
==>ful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	725	837	
==>assdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	725	837	
==>assdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	725	837	
==>assdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6688	6786	
==>) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6688	6786	
==>) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6688	6786	
==>) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1477	1604	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3040	3167	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1477	1604	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3040	3167	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1477	1604	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3040	3167	
==>and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14833	14932	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12087	12186	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14833	14932	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12087	12186	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14833	14932	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12087	12186	
==>ttribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12803	12898	
==>2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12803	12898	
==>2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12803	12898	
==>2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5794	5890	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8764	8860	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5794	5890	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8764	8860	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5794	5890	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8764	8860	
==>ther ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6 <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16745	16852	
==>ven if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_enco <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1745	1852	
==>tion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS:: <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16745	16852	
==>ven if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_enco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1745	1852	
==>tion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1745	1852	
==>tion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS:: <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52904	53011	
==>ash'));    
    $meta->add_attr(symbol->new('$:version'   => 'str'));        
    $meta->add_attr(symbol->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5040	5181	
==>fix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6801	6942	
==>";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5040	5181	
==>fix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5040	5181	
==>fix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6801	6942	
==>";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $el <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6801	6942	
==>";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14956	15098	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14956	15098	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14956	15098	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19655	19796	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19655	19796	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19655	19796	
==>oad = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is wha <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12158	12257	
==>ay ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
hi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16738	16837	
==>ay ref) is set, then each element in it is used to
initialize a new Node object (plus an optional hi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12158	12257	
==>ay ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
hi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16738	16837	
==>ay ref) is set, then each element in it is used to
initialize a new Node object (plus an optional hi <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1783	1875	
==>f the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=he <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1783	1875	
==>f the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9107	9235	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12080	12208	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9107	9235	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12080	12208	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9107	9235	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12080	12208	
==>6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1844	1966	
==>mented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1844	1966	
==>mented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1844	1966	
==>mented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1261	1363	
==>cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1261	1363	
==>cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1261	1363	
==>cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	315	427	
==>e" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - En <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	315	427	
==>e" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - En <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6091	6186	
==>urns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retur <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8159	8254	
==>urns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6091	6186	
==>urns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8159	8254	
==>urns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retur <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3275	3385	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.], <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3275	3385	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.], <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11797	11900	
==>:Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11797	11900	
==>:Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11797	11900	
==>:Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	559	654	
==>de;

=head1 DESCRIPTION

The prelude is essentially a reference implementation of all the things <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17573	17740	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18230	18397	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17852	18019	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18509	18676	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6306	6432	
==><*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6306	6432	
==><*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gram <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8192	8295	
==>-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8192	8295	
==>-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8192	8295	
==>-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14197	14291	
==>ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14197	14291	
==>ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14197	14291	
==>ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19127	19251	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16365	16489	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19127	19251	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16365	16489	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19127	19251	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16365	16489	
==>is should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20451	20588	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17590	17727	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20451	20588	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17590	17727	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20451	20588	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17590	17727	
==>ixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2230	2331	
==>The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2230	2331	
==>The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2230	2331	
==>The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	864	963	
==>is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	864	963	
==>is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	864	963	
==>is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8806	8970	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11779	11943	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8806	8970	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11779	11943	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8806	8970	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11779	11943	
==>turn $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 't <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	168	333	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	973	1138	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	293	458	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	168	333	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	973	1138	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	293	458	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3815	3936	
==>hift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3815	3936	
==>hift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3815	3936	
==>hift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3845	3963	
==>return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7322	7440	
==>return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            m <==
6	/Users/nnunley/pugs/util/build_pugs.pl	7619	7735	
==>ine -any';
    }

    my $unicode_c = '';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/Unico <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4184	4303	
==>')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4184	4303	
==>')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4184	4303	
==>')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2478	2588	
==>nly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2478	2588	
==>nly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2825	2935	
==>nly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9619	9737	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12592	12710	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9619	9737	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12592	12710	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9619	9737	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12592	12710	
==>eeds to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6976	7093	
==>);

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6976	7093	
==>);

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6976	7093	
==>);

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6653	6748	
==>com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6653	6748	
==>com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6653	6748	
==>com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  T <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	875	995	
==>bute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	875	995	
==>bute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	875	995	
==>bute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	822	917	
==>lder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popul <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	822	917	
==>lder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	902	997	
==>lder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11496	11650	
==>s here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11496	11650	
==>s here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11496	11650	
==>s here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15146	15253	
==>@b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15146	15253	
==>@b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15146	15253	
==>@b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18724	18860	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15962	16098	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18724	18860	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15962	16098	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18724	18860	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15962	16098	
==>scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:names <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4590	4694	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4590	4694	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4590	4694	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3162	3250	
==>js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3162	3250	
==>js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3162	3250	
==>js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	374	493	
==>est) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	409	528	
==>est) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	374	493	
==>est) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreac <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9587	9706	
==>est) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreac <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	378	478	
==>f.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	378	478	
==>f.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	387	558	
==>' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	387	558	
==>' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	387	558	
==>' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	434	537	
==>rement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 20 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	434	537	
==>rement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 20 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	434	537	
==>rement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 20 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6871	7010	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7632	7771	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8502	8641	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10348	10487	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11109	11248	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11979	12118	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28010	28165	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28010	28165	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28010	28165	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3773	3877	
==>, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an em <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3773	3877	
==>, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an em <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3773	3877	
==>, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an em <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3921	4028	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6570	6677	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4160	4264	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10609	10713	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4160	4264	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10609	10713	
==>rnal rule functions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2342	2595	
==>utes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2342	2595	
==>utes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3879	3994	
==>shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3879	3994	
==>shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3879	3994	
==>shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8806	8910	
==>fo;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8806	8910	
==>fo;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8806	8910	
==>fo;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20089	20205	
==>( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20368	20484	
==>( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5959	6067	
==>tstart = pos
    litlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_ccl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41060	41159	
==>nsion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41060	41159	
==>nsion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41060	41159	
==>nsion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRI <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2329	2500	
==>-f "$exename.exe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$_;
          }
         }
        else {
      warn "Cannot o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	617	748	
==>est_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	652	783	
==>est_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	617	748	
==>est_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) { <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9834	9965	
==>est_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) { <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	1090	1221	
==>est_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15952	16073	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20669	20790	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15952	16073	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20669	20790	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15952	16073	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20669	20790	
==>:Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5412	5520	
==>f->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5412	5520	
==>f->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5412	5520	
==>f->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8297	8402	
==>. Spec would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1891	1990	
==>got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, : <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1949	2048	
==>got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20092	20321	
==>$self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20092	20321	
==>$self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20092	20321	
==>$self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2976	3079	
==>e;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2976	3079	
==>e;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL: <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1573	1668	
==>", &parse_subrule);
    $optable->addToken("term:<?", "term:", "nows", &parse_subrule);
    $opt <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	603	706	
==>e does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TO <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	603	706	
==>e does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TO <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21895	21989	
==>o.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the me <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20776	20870	
==>o.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the me <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21895	21989	
==>o.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the me <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20776	20870	
==>o.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	417	557	
==>);
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	417	557	
==>);
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	417	557	
==>);
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1024	1129	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1024	1129	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1024	1129	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1117	1244	
==>-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1117	1244	
==>-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1117	1244	
==>-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	321	424	
==>END = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	321	424	
==>END = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	321	424	
==>END = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3486	3622	
==>ll' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3486	3622	
==>ll' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3486	3622	
==>ll' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7067	7161	
==>hat will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_eleme <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7067	7161	
==>hat will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_eleme <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24610	24695	
==>aptures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_fl <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3898	3998	
==>2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3898	3998	
==>2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5422	5522	
==>2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5082	5176	
==>y $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5082	5176	
==>y $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5082	5176	
==>y $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1370	1497	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2933	3060	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1370	1497	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2933	3060	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1370	1497	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2933	3060	
==>n global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this <==
6	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1036	1269	
==>=> {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR <==
6	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1036	1269	
==>=> {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10801	10924	
==>);


  ### '('

  $self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S->{next} }, qw< c) atom <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9242	9347	
==>ion (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10048	10153	
==>ion (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The he <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10963	11068	
==>ion (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The he <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	682	795	
==>ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	682	795	
==>ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	682	795	
==>ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2725	2903	
==>sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2725	2903	
==>sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2725	2903	
==>sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	155	267	
==>nt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ms <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	155	267	
==>nt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ms <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	155	267	
==>nt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ms <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1042	1178	
==>);
        # if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we h <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1042	1178	
==>);
        # if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12507	12600	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10058	10151	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12507	12600	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10058	10151	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12507	12600	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10058	10151	
==>1 if ::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3020	3126	
==>ash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3020	3126	
==>ash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3020	3126	
==>ash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	750	840	
==>-------------------------------------------------
## Object

# The 'Object' class
$::Object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	750	840	
==>-------------------------------------------------
## Object

# The 'Object' class
$::Object <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	750	840	
==>-------------------------------------------------
## Object

# The 'Object' class
$::Object <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7872	7973	
==>Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an o <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7872	7973	
==>Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14288	14377	
==>ck("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14288	14377	
==>ck("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14288	14377	
==>ck("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1872	1960	
==>ct)");

		Scalar::Util::blessed($node) ? $self->SUPER::reduce($node->struct_equiv) : $nod <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5437	5619	
==>ifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $toke <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5437	5619	
==>ifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $toke <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2868	2965	
==>p by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3025	3122	
==>p by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2868	2965	
==>p by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3025	3122	
==>p by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19924	20055	
==>sue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19924	20055	
==>sue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19924	20055	
==>sue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1862	1968	
==>& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1862	1968	
==>& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1862	1968	
==>& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13207	13347	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14942	15082	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13207	13347	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14942	15082	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13207	13347	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14942	15082	
==>s}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => s <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	839	956	
==>ram<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	581	698	
==>ram<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	839	956	
==>ram<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	581	698	
==>ram<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4359	4456	
==>nd blank lines are ignored.

When writing back to the config file, any comments are discarded.

=h <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4359	4456	
==>nd blank lines are ignored.

When writing back to the config file, any comments are discarded.

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1208	1325	
==>per(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argumen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1208	1325	
==>per(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argumen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1208	1325	
==>per(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argumen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4327	4430	
==>stance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4327	4430	
==>stance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4327	4430	
==>stance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
})) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5052	5176	
==>r 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5052	5176	
==>r 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5642	5766	
==>r 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39457	39553	
==>OP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39457	39553	
==>OP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39457	39553	
==>OP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6559	6672	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9529	9642	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6559	6672	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9529	9642	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6559	6672	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9529	9642	
==>nfess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMet <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4086	4202	
==>turn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4086	4202	
==>turn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4086	4202	
==>turn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9237	9323	
==>-------------------------------------------------------------

This is a rough sketch o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9237	9323	
==>-------------------------------------------------------------

This is a rough sketch o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9237	9323	
==>-------------------------------------------------------------

This is a rough sketch o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11469	11606	
==>eturn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7751	7888	
==>eturn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8585	8722	
==>eturn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3543	3642	
==>} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3543	3642	
==>} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3543	3642	
==>} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8584	8689	
==>}
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8584	8689	
==>}
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39381	39474	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Local <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5116	5209	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Local <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39381	39474	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Local <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5116	5209	
==>uncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Local <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2604	2731	
==>ive;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2604	2731	
==>ive;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2604	2731	
==>ive;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2582	2691	
==>{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2582	2691	
==>{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2582	2691	
==>{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inl <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4176	4286	
==>OUT);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release" : "re <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	15397	15501	
==>etter want
    #if want ~~ rx:P5/^Item/ {
    #    $res = Pugs::Internals::localtime(Bool::True, $sec, $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2240	2332	
==>Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2240	2332	
==>Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFil <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1467	1557	
==>Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3328	3418	
==>Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFil <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	425	577	
==>n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	340	492	
==>n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	428	580	
==>n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2118	2225	
==>- 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clean <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2118	2225	
==>- 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clean <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2118	2225	
==>- 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clean <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2326	2405	
==>x_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2326	2405	
==>x_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2326	2405	
==>x_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	573	680	
==>ublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	573	680	
==>ublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	573	680	
==>ublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	978	1083	
==>returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' te <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	978	1083	
==>returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' te <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	978	1083	
==>returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12565	12677	
==>s->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12565	12677	
==>s->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12565	12677	
==>s->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3498	3600	
==>al does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3498	3600	
==>al does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3498	3600	
==>al does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implement <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7459	7585	
==>$node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14590	14716	
==>ie 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7459	7585	
==>$node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7459	7585	
==>$node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14590	14716	
==>ie 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14590	14716	
==>ie 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31780	31876	
==>fluent in (and prefers) language A but also understands
language B.  Later on, if for example the <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31780	31876	
==>fluent in (and prefers) language A but also understands
language B.  Later on, if for example the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2392	2486	
==>ance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2392	2486	
==>ance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2392	2486	
==>ance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $c <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11515	11607	
==>ent_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_comment_body([])    --> {tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13610	13790	
==>d_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13610	13790	
==>d_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13610	13790	
==>d_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16806	16897	
==>l ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16806	16897	
==>l ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16806	16897	
==>l ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7083	7218	
==>n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7083	7218	
==>n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7083	7218	
==>n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7768	7870	
==>t }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7768	7870	
==>t }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7768	7870	
==>t }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreac <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	56	306	
==>kages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15576	15695	
==>{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10432	10551	
==>{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6549	6650	
==>type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.refe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6549	6650	
==>type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.refe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6549	6650	
==>type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.refe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3992	4139	
==>ext_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3992	4139	
==>ext_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3992	4139	
==>ext_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17854	17943	
==>$xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17854	17943	
==>$xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17854	17943	
==>$xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($x <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9513	9656	
==>x / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5854	5997	
==>x / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6703	6846	
==>x / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3072	3169	
==>if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3072	3169	
==>if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3072	3169	
==>if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	52	171	
==>in/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	52	171	
==>in/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	52	171	
==>in/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1062	1178	
==>heme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            r <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1062	1178	
==>heme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2203	2308	
==>p1 => $_[1], exp1 => $_[2], exp2 => $_[3], exp3 => $_[5] } }
    | IF exp block 'elsif' exp block 'else' b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3301	3410	
==>scr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3301	3410	
==>scr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3301	3410	
==>scr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2545	2639	
==>"b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2545	2639	
==>"b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2545	2639	
==>"b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	62	169	
==>val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	62	169	
==>val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	62	169	
==>val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	340	441	
==>elf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	340	441	
==>elf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	340	441	
==>elf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30590	30756	
==>[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30590	30756	
==>[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30590	30756	
==>[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2802	2932	
==>-- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error messa <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2802	2932	
==>-- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error messa <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13782	13869	
==>its_int(I) --> octdigit(D0), octdigits(D), { number_chars(I, [42,111,D0|D]) }.% [42,111] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13555	13657	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10839	10941	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13555	13657	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10839	10941	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13555	13657	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10839	10941	
==>if (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:private_method <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	908	1060	
==>@.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $ <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	908	1060	
==>@.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3357	3467	
==>:= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3357	3467	
==>:= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3357	3467	
==>:= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa(" <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36414	36513	
==>suspend (C<< (?> >>)

Data: array reference of any number of objects

Ender: tail

=head2 ifthen

Fa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7989	8132	
==>n;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13583	13726	
==>n;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7989	8132	
==>n;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13577	13720	
==>n;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2823	2916	
==>on> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2823	2916	
==>on> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13445	13579	
==>calar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13445	13579	
==>calar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13445	13579	
==>calar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26145	26267	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26145	26267	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26145	26267	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9004	9180	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11977	12153	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9004	9180	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11977	12153	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9004	9180	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11977	12153	
==>thods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package P <==
6	/Users/nnunley/pugs/util/combine_tests.pl	358	462	
==>d reference.
# Note: no copy is made!
#
# Adds a more_events[] with events to each event for which
# ther <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14044	14140	
==>METH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14044	14140	
==>METH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14044	14140	
==>METH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[ <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10900	10995	
==>se` must be set if this recurrence is a "universal set".
Otherwise the program will emit warning <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10900	10995	
==>se` must be set if this recurrence is a "universal set".
Otherwise the program will emit warning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14029	14184	
==>class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14029	14184	
==>class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14029	14184	
==>class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28776	28883	
==>p/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to My <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28776	28883	
==>p/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to My <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3546	3634	
==>tion(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more(W, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10773	10872	
==>l broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10773	10872	
==>l broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10773	10872	
==>l broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7151	7242	
==>00)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7151	7242	
==>00)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environme <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7151	7242	
==>00)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environme <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14094	14229	
==>{...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10267	10402	
==>{...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11103	11238	
==>{...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3818	3917	
==>== (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensiona <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3818	3917	
==>== (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensiona <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3818	3917	
==>== (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensiona <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9989	10110	
==>])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONST <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7929	8050	
==>])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONST <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9989	10110	
==>])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONST <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7929	8050	
==>])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONST <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	9447	9564	
==>$test->{pos} =~ /line (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @lines <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	973	1082	
==>print "not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8649	8782	
==>defined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(back <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8649	8782	
==>defined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(back <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8649	8782	
==>defined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(back <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3051	3179	
==>ng;
        # Set of Str
        # Each Set member is a name of one of this Relation::Example's attributes.
        # Note that i <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12496	12595	
==>ctions will eval a code snippet, and then pass the result to is or ok
on success, or report that the <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12554	12653	
==>ctions will eval a code snippet, and then pass the result to is or ok
on success, or report that the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8497	8613	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8497	8613	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8497	8613	
==>backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i]. <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5864	5969	
==>f($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1099	1200	
==>1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unle <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1099	1200	
==>1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20451	20549	
==>y $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20451	20549	
==>y $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20451	20549	
==>y $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11462	11555	
==>cause it isolates the Role specifc
code to the class that consumed it.

---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11462	11555	
==>cause it isolates the Role specifc
code to the class that consumed it.

---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11462	11555	
==>cause it isolates the Role specifc
code to the class that consumed it.

---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	449	566	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	449	566	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	449	566	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	871	984	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	871	984	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	871	984	
==>res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	593	694	
==>$self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	593	694	
==>$self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	593	694	
==>$self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2476	2573	
==>)(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2476	2573	
==>)(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2476	2573	
==>)(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4276	4390	
==>_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4276	4390	
==>_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4276	4390	
==>_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3851	3957	
==>y $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3851	3957	
==>y $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3851	3957	
==>y $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3451	3552	
==>_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3451	3552	
==>_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3451	3552	
==>_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribut <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14467	14562	
==>B unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14467	14562	
==>B unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14467	14562	
==>B unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	381	500	
==>@_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	416	535	
==>@_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	381	500	
==>@_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $n <==
6	/Users/nnunley/pugs/util/build_pugs.pl	9594	9713	
==>@_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $n <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1694	1788	
==>pports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions i <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1694	1788	
==>pports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6186	6316	
==>:Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6186	6316	
==>:Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6186	6316	
==>:Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3251	3380	
==>:Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3251	3380	
==>:Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3251	3380	
==>:Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11670	11799	
==>which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            aft <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2153	2279	
==>which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            aft <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8925	9051	
==>which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            aft <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2153	2279	
==>which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            aft <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8925	9051	
==>which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            aft <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	11797	11896	
==>l pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5005	5143	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5966	6104	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5005	5143	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5966	6104	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5005	5143	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5966	6104	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$val <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8490	8641	
==>n $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12401	12548	
==>n $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12401	12548	
==>n $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2243	2340	
==>s to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2243	2340	
==>s to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2243	2340	
==>s to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9525	9665	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12498	12638	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9525	9665	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12498	12638	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9525	9665	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12498	12638	
==>var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10680	10834	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15221	15375	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10680	10834	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15221	15375	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10680	10834	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15221	15375	
==>there
            # if what we are asking for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2188	2324	
==>tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2188	2324	
==>tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2188	2324	
==>tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1419	1529	
==>ributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1419	1529	
==>ributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1419	1529	
==>ributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10967	11124	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12438	12595	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14444	14601	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15915	16072	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13752	13909	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15277	15434	
==>ew(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First sour <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4770	4882	
==>hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4770	4882	
==>hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we delet <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4267	4373	
==>hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4267	4373	
==>hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we delet <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9717	9817	
==>() returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
me <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9717	9817	
==>() returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
me <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4695	4795	
==>a = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some valu <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4554	4654	
==>a = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7683	7782	
==>'... got the right method list (unresolved)');

# resolve the class and pull in all the roles
$FooBa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	16	113	
==>n::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	16	113	
==>n::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	16	113	
==>n::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1042	1155	
==>PES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1042	1155	
==>PES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1042	1155	
==>PES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      f <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5715	5812	
==>ides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<s <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5715	5812	
==>ides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7912	8009	
==>ides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<s <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2023	2114	
==>(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2] <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2023	2114	
==>(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14948	15054	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12202	12308	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14948	15054	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12202	12308	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14948	15054	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12202	12308	
==>bel";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10328	10463	
==>sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10328	10463	
==>sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10328	10463	
==>sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @par <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5063	5170	
==>'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5063	5170	
==>'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1967	2074	
==>'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16110	16263	
==>ub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16110	16263	
==>ub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16110	16263	
==>ub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1875	1968	
==>roproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1875	1968	
==>roproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1875	1968	
==>roproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	449	560	
==>{ ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	449	560	
==>{ ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	449	560	
==>{ ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	625	727	
==>nwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	625	727	
==>nwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	625	727	
==>nwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped-> <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4726	4853	
==>sects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infin <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4726	4853	
==>sects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infin <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7226	7340	
==>message key from the
        # successfully loaded template module; on a function call
        # death, assume modu <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7226	7340	
==>message key from the
        # successfully loaded template module; on a function call
        # death, assume modu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10501	10606	
==>tine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a funct <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10501	10606	
==>tine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	231	356	
==>) { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() aro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	231	356	
==>) { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() aro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	231	356	
==>) { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() aro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3198	3302	
==>reludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $desc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3198	3302	
==>reludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $desc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3198	3302	
==>reludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	440	551	
==>name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	440	551	
==>name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	440	551	
==>name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5288	5381	
==>as passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5288	5381	
==>as passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6812	6905	
==>as passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3407	3529	
==>warnings qw( uninitialized );
    return sub {
        my $bool = substr( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4914	5029	
==>nfess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4914	5029	
==>nfess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4914	5029	
==>nfess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in t <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5975	6074	
==>{
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns boo <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5975	6074	
==>{
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns boo <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14263	14391	
==>shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17740	17868	
==>shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17156	17284	
==>shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1644	1753	
==>rict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1644	1753	
==>rict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1644	1753	
==>rict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3773	3878	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6709	6814	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3773	3878	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6709	6814	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3773	3878	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6709	6814	
==>method && blessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap pro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4170	4333	
==>Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4170	4333	
==>Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4170	4333	
==>Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1026	1159	
==>}
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1026	1159	
==>}
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1026	1159	
==>}
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3222	3345	
==>",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3222	3345	
==>",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3222	3345	
==>",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13776	13867	
==>eption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protectio <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13776	13867	
==>eption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protectio <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13776	13867	
==>eption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protectio <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8216	8351	
==>3 violation\n"); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12823	12936	
==>t.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12823	12936	
==>t.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12823	12936	
==>t.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6683	6779	
==>val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6683	6779	
==>val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9121	9297	
==>], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9121	9297	
==>], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9121	9297	
==>], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fet <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3744	3919	
==>&& defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3744	3919	
==>&& defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($s <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21625	21713	
==>utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_offset_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4744	4876	
==>$html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4744	4876	
==>$html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4744	4876	
==>$html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8235	8364	
==>list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8235	8364	
==>list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8235	8364	
==>list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4921	5023	
==>} else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FET <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4921	5023	
==>} else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FET <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4921	5023	
==>} else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FET <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2512	2612	
==>ad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2512	2612	
==>ad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2512	2612	
==>ad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1482	1577	
==>ox.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1482	1577	
==>ox.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1482	1577	
==>ox.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	788	912	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	876	1000	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	788	912	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	876	1000	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	788	912	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	876	1000	
==>xt;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8680	8780	
==>nput string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8680	8780	
==>nput string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8680	8780	
==>nput string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4084	4177	
==>5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_lo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4084	4177	
==>5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_lo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4084	4177	
==>5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	236	352	
==>irst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	236	352	
==>irst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	236	352	
==>irst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4343	4442	
==>]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4343	4442	
==>]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4343	4442	
==>]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2903	3013	
==>eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2903	3013	
==>eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2903	3013	
==>eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3688	3792	
==>self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dump <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3688	3792	
==>self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dump <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3688	3792	
==>self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dump <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25296	25454	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25954	26112	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28736	28894	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25575	25733	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26233	26391	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29015	29173	
==>', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::capt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12142	12230	
==>urn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12142	12230	
==>urn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12142	12230	
==>urn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	869	982	
==>= args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	869	982	
==>= args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.len <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	869	982	
==>= args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.len <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29833	29928	
==>s having the same names as old attributes
that were wrapped, and it supports having old tuple-va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34385	34480	
==>s having the same names as old attributes
that were wrapped, and it supports having old tuple-va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33549	33644	
==>s having the same names as old attributes
that were wrapped, and it supports having old tuple-va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11400	11529	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2912	3041	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11400	11529	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2912	3041	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11400	11529	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2912	3041	
==>)  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6106	6214	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9076	9184	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6106	6214	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9076	9184	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6106	6214	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9076	9184	
==>method stub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11078	11192	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8631	8745	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11078	11192	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8631	8745	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11078	11192	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8631	8745	
==>k = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	408	505	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	44	141	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	408	505	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	44	141	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	408	505	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	44	141	
==>use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5020	5177	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7669	7826	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5227	5377	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11676	11826	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5227	5377	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11676	11826	
==>e <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7474	7644	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7474	7644	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7474	7644	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5529	5617	
==>ck

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5529	5617	
==>ck

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7726	7814	
==>ck

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7670	7830	
==>st->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7670	7830	
==>st->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7670	7830	
==>st->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9365	9458	
==>I SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9365	9458	
==>I SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9365	9458	
==>I SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19827	19938	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16966	17077	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19827	19938	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16966	17077	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19827	19938	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16966	17077	
==>probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5555	5685	
==>ned $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5555	5685	
==>ned $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5555	5685	
==>ned $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4559	4655	
==>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4559	4655	
==>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4559	4655	
==>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	222	342	
==>ft;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be ni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	222	342	
==>ft;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be ni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	222	342	
==>ft;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be ni <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1413	1527	
==>mts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParam <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4537	4649	
==>mts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParam <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4537	4649	
==>mts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6249	6362	
==>rn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6249	6362	
==>rn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6249	6362	
==>rn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemente <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2707	2807	
==>ding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Bu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2707	2807	
==>ding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Bu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4231	4331	
==>ding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Bu <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4393	4498	
==>al('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1006	1107	
==>:$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1064	1165	
==>:$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	93	193	
==>, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to k <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	93	193	
==>, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to k <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	93	193	
==>, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to k <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4525	4681	
==>en {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<strin <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4525	4681	
==>en {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<strin <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17836	17943	
==>defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost" <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16874	16981	
==>defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17836	17943	
==>defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost" <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16874	16981	
==>defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15309	15438	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20042	20171	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15309	15438	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20042	20171	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15309	15438	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20042	20171	
==>ring global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCT <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11021	11122	
==>e set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8425	8526	
==>e set. Returns the number of items removed.

It is not fatal to remove an item which is not in the set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11021	11122	
==>e set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8425	8526	
==>e set. Returns the number of items removed.

It is not fatal to remove an item which is not in the set <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2927	3024	
==>han I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fi <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2927	3024	
==>han I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12411	12529	
==>m_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$comma <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12411	12529	
==>m_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$comma <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	381	481	
==>port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algori <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	385	485	
==>port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algori <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	381	481	
==>port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algori <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	385	485	
==>port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algori <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7022	7184	
==>ey, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7022	7184	
==>ey, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7022	7184	
==>ey, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16442	16571	
==>b {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16442	16571	
==>b {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16442	16571	
==>b {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Lis <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10379	10516	
==>..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => conca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10379	10516	
==>..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => conca <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39617	39704	
==>nd bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24340	24427	
==>nd bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39617	39704	
==>nd bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24340	24427	
==>nd bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25535	25645	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27730	27840	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25535	25645	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27730	27840	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25535	25645	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27730	27840	
==>gs 'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6262	6381	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9232	9351	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6262	6381	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9232	9351	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6262	6381	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9232	9351	
==>is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method ($) {  
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6204	6345	
==>p;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6204	6345	
==>p;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6204	6345	
==>p;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40043	40148	
==>y ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40043	40148	
==>y ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40043	40148	
==>y ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	81	176	
==>run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searchi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	81	176	
==>run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searchi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	81	176	
==>run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searchi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	277	365	
==>::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obj <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	277	365	
==>::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obj <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	277	365	
==>::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5790	5923	
==>0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5790	5923	
==>0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5790	5923	
==>0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13599	13728	
==>a( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13599	13728	
==>a( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13599	13728	
==>a( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4051	4156	
==>mmand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4051	4156	
==>mmand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4051	4156	
==>mmand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14076	14172	
==>nit('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14076	14172	
==>nit('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14076	14172	
==>nit('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10162	10369	
==>$s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10162	10369	
==>$s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10162	10369	
==>$s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37678	37773	
==>takes the name of a Perl package in its positional parameter
$module_name (a string), and a Mess <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37678	37773	
==>takes the name of a Perl package in its positional parameter
$module_name (a string), and a Mess <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	18308	18758	
==>irs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
R <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1176	1323	
==>413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3472	3619	
==>413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1176	1323	
==>413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3472	3619	
==>413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	19621	19723	
==>s builtin is primitive is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11781	11945	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3380	3544	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11781	11945	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3380	3544	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11781	11945	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3380	3544	
==>';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2365	2505	
==>$to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2365	2505	
==>$to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2365	2505	
==>$to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30939	31063	
==>VERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30939	31063	
==>VERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30939	31063	
==>VERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3141	3254	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5942	6055	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3141	3254	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5942	6055	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3141	3254	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5942	6055	
==>Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6544	6662	
==>unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6544	6662	
==>unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6544	6662	
==>unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9031	9139	
==>tcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9031	9139	
==>tcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9031	9139	
==>tcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40430	40539	
==>his, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40430	40539	
==>his, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40430	40539	
==>his, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10	108	
==>L;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10	108	
==>L;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10	108	
==>L;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12515	12619	
==>"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inter <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12515	12619	
==>"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inter <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12515	12619	
==>"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15416	15517	
==>ey ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15416	15517	
==>ey ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15416	15517	
==>ey ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	858	952	
==>ixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	858	952	
==>ixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	858	952	
==>ixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTe <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2568	2675	
==>is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @s <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5771	5878	
==>is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2568	2675	
==>is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5771	5878	
==>is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	430	531	
==>setta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	430	531	
==>setta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6401	6517	
==>ls>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was ki <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6401	6517	
==>ls>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was ki <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13147	13262	
==>mmar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21197	21312	
==>mmar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13426	13541	
==>mmar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21476	21591	
==>mmar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1869	1982	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3432	3545	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1869	1982	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3432	3545	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1869	1982	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3432	3545	
==>nd are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2348	2496	
==>@_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2348	2496	
==>@_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2348	2496	
==>@_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4327	4443	
==>IL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4327	4443	
==>IL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1177	1293	
==>IL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1240	1358	
==>sMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1240	1358	
==>sMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1240	1358	
==>sMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	656	761	
==>y JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	656	761	
==>y JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	656	761	
==>y JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10526	10670	
==>{},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10526	10670	
==>{},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10526	10670	
==>{},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16527	16640	
==>|| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16527	16640	
==>|| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16527	16640	
==>|| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4851	5001	
==>lf = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4851	5001	
==>lf = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4851	5001	
==>lf = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1900	2029	
==>$line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1900	2029	
==>$line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1900	2029	
==>$line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	589	725	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	589	725	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	589	725	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2943	3060	
==>unction () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2943	3060	
==>unction () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2943	3060	
==>unction () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25143	25300	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27332	27489	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25143	25300	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27332	27489	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25143	25300	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27332	27489	
==>umeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Per <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	963	1072	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1342	1451	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	963	1072	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1342	1451	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	641	749	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . ") <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	641	749	
==>every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . ") <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6589	6763	
==>eeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m. <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6589	6763	
==>eeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m. <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2657	2810	
==>e is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when : <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2657	2810	
==>e is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when : <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35868	35964	
==>ns a new Relation::Example that has the same heading
and whose body contains all of the tuples th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37900	37996	
==>ns a new Relation::Example that has the same heading and
whose body contains all of the tuples th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14292	14411	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11558	11677	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14292	14411	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11558	11677	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14292	14411	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11558	11677	
==>y ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5946	6045	
==>rrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5946	6045	
==>rrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5946	6045	
==>rrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	944	1041	
==>->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	944	1041	
==>->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	944	1041	
==>->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16248	16369	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13459	13580	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16248	16369	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13459	13580	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16248	16369	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13459	13580	
==>y ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6601	6825	
==>This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mm <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6601	6825	
==>This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8654	8771	
==>($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_con <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8654	8771	
==>($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_con <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8654	8771	
==>($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_con <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1675	1765	
==>rt_index) && $start_index->isa('num')) &&
     (blessed($end_index) && $end_index->isa('num <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	921	1045	
==>{$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	921	1045	
==>{$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	921	1045	
==>{$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21085	21185	
==>are of the same
degree, and the attribute names of each tuple are all the same as those of
all the ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25637	25737	
==>are of the same
degree, and the attribute names of each tuple are all the same as those of
all the ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24252	24352	
==>are of the same
degree, and the attribute names of each tuple are all the same as those of
all the ot <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32024	32156	
==>@{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32024	32156	
==>@{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32024	32156	
==>@{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1676	1779	
==>oot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1676	1779	
==>oot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1676	1779	
==>oot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16846	16938	
==>::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16846	16938	
==>::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16846	16938	
==>::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3615	3703	
==>method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3615	3703	
==>method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3615	3703	
==>method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5060	5188	
==>a} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pus <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16096	16224	
==>a} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pus <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17584	17712	
==>a} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pus <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22267	22395	
==>a} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pus <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3014	3107	
==>when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a") <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3014	3107	
==>when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1026	1142	
==>for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (def <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1026	1142	
==>for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (def <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1026	1142	
==>for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14318	14409	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14318	14409	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14318	14409	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17015	17193	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21730	21908	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17015	17193	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21730	21908	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17015	17193	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21730	21908	
==>$seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversa <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3642	3754	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3642	3754	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7930	8039	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7060	7169	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7930	8039	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7060	7169	
==>n arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12047	12183	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3558	3694	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12047	12183	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3558	3694	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12047	12183	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3558	3694	
==>[i].STORE;
          backup_arr[i].BINDTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12249	12361	
==>q "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12249	12361	
==>q "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12249	12361	
==>q "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4176	4298	
==>eference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4176	4298	
==>eference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4176	4298	
==>eference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2088	2202	
==>,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2088	2202	
==>,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2088	2202	
==>,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    m <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2963	3067	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5977	6081	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8045	8149	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2963	3067	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5977	6081	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8045	8149	
==>curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tol <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29613	29837	
==>ymbol->new('$self:' => 'opaque'),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32660	32784	
==>RSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32660	32784	
==>RSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32660	32784	
==>RSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->p <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1810	1932	
==>nt = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1810	1932	
==>nt = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9957	10127	
==>= 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number = <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2022	2178	
==>= 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number = <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2022	2178	
==>= 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12626	12763	
==>\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$per <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8900	9037	
==>\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$per <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9735	9872	
==>\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5395	5495	
==>r Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, ta <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5395	5495	
==>r Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, ta <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5985	6085	
==>r Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, ta <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6577	6675	
==>intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6577	6675	
==>intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `s <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11495	11590	
==>lLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDecimalLiteral>
}
rule <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6095	6219	
==>: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6095	6219	
==>: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6095	6219	
==>: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6311	6407	
==>ings won't work any longer, as all the standard
# operators are overloaded with calls to JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6311	6407	
==>ings won't work any longer, as all the standard
# operators are overloaded with calls to JS::inli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6311	6407	
==>ings won't work any longer, as all the standard
# operators are overloaded with calls to JS::inli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12419	12537	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16930	17048	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12419	12537	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16930	17048	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12419	12537	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16930	17048	
==>et the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7669	7782	
==>(@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->ne <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7669	7782	
==>(@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->ne <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7669	7782	
==>(@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	460	561	
==>int $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	460	561	
==>int $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	460	561	
==>int $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cf <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1154	1261	
==>d () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1154	1261	
==>d () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	21212	21317	
==>dule)
      !! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = join(%?CONFIG<file_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2056	2156	
==>ub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2056	2156	
==>ub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2056	2156	
==>ub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	316	467	
==>rom_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	316	467	
==>rom_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	316	467	
==>rom_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macr <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	913	1019	
==>Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $ <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	14415	14516	
==>e appling must be a function
	die "Can't apply non function type (" . $.fun . " has type " . $f->strin <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	843	937	
==>Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		return $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	582	830	
==>iven version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interfa <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	582	830	
==>iven version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interfa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6488	6595	
==>{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %cha <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7224	7331	
==>{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %cha <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6488	6595	
==>{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %cha <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7224	7331	
==>{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %cha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16719	16814	
==>::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() wi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16719	16814	
==>::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() wi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16719	16814	
==>::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6996	7088	
==>_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7983	8075	
==>_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10552	10644	
==>_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16683	16794	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13888	13999	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16683	16794	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13888	13999	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16683	16794	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13888	13999	
==>()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	754	896	
==>,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	754	896	
==>,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	754	896	
==>,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36113	36235	
==>pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36113	36235	
==>pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36113	36235	
==>pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $b <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2831	2962	
==>alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3119	3243	
==>alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9537	9661	
==>alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3119	3243	
==>alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9537	9661	
==>alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3422	3507	
==>l6::Run::OnPerl5::X1::Result->new($pil_tree,$warn,$failed);
	} elsif($stage eq 'pil_co <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6962	7060	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6092	6190	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2746	2844	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2746	2844	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6962	7060	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6092	6190	
==>> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $on <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28187	28286	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29198	29297	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32739	32838	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33750	33849	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31849	31948	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32896	32995	
==>not yet been implemented.>

This method is a generic relational operator that returns a new Relation <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	3654	3761	
==>$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35841	35931	
==>implicit handler when
coercing this object to a string.

=item C<get_set_member_combination <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1513	1603	
==>%params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35841	35931	
==>implicit handler when
coercing this object to a string.

=item C<get_set_member_combination <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1513	1603	
==>%params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1513	1603	
==>%params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3349	3469	
==>man{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3349	3469	
==>man{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3349	3469	
==>man{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3300	3399	
==>nstant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3300	3399	
==>nstant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3300	3399	
==>nstant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arra <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11560	11691	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2554	2685	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7648	7779	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11560	11691	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2554	2685	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7648	7779	
==>EM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2902	3010	
==>am = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FET <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2902	3010	
==>am = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FET <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2902	3010	
==>am = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FET <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	82	184	
==>in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pug <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	50	152	
==>in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pug <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	82	184	
==>in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pug <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11618	11742	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2102	2223	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8874	8995	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2102	2223	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8874	8995	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	131	225	
==>ry:<?? !!>', '$cond', '$true', '$false'), # non short circuiting

    '&control_structure:<if>' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30348	30468	
==>);
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30348	30468	
==>);
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length" <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30348	30468	
==>);
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length" <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1519	1634	
==>}[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

	my $sent = scalar($app->values) - 1; # thu <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	54	153	
==>split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newt <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	54	153	
==>split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newt <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21521	21632	
==>_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17942	18053	
==>_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1) <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8790	8896	
==>st::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8848	8954	
==>st::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	188	282	
==>st::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	246	340	
==>st::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2796	2950	
==>ernatives/$script";
        }      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29260	29386	
==>{ _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29539	29665	
==>{ _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4347	4446	
==>IL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4347	4446	
==>IL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4347	4446	
==>IL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11309	11456	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8862	9009	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11309	11456	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8862	9009	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11309	11456	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8862	9009	
==>erator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $current_cla <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	9124	9319	
==>'      => $Strap->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $results{bonus},
                    s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	275	419	
==>de, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	275	419	
==>de, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	41	150	
==>L::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	41	150	
==>L::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	41	150	
==>L::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9668	9807	
==>( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9668	9807	
==>( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9668	9807	
==>( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8332	8452	
==>guous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8332	8452	
==>guous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8332	8452	
==>guous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spar <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6666	6764	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5796	5894	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2450	2548	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2450	2548	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6666	6764	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5796	5894	
==>r includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4370	4498	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7306	7434	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4370	4498	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7306	7434	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4370	4498	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7306	7434	
==>SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $associated_with) = @_ <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	18005	18113	
==>s first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4198	4305	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4198	4305	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4198	4305	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12791	12886	
==>ad2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12791	12886	
==>ad2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4871	5013	
==>al $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4871	5013	
==>al $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4871	5013	
==>al $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2021	2118	
==>ethods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escap <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2021	2118	
==>ethods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escap <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2021	2118	
==>ethods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1312	1419	
==>port sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pus <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1312	1419	
==>port sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pus <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1312	1419	
==>port sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13220	13317	
==>ULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13220	13317	
==>ULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13220	13317	
==>ULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2961	3087	
==>an( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2961	3087	
==>an( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11826	11945	
==>r' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11826	11945	
==>r' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11826	11945	
==>r' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $t <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3945	4051	
==>file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: $!\ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4176	4275	
==>lly include some sort of key, and sometimes also 
parameters for block size and so on; see the ciphe <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4176	4275	
==>lly include some sort of key, and sometimes also 
parameters for block size and so on; see the ciphe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	435	531	
==>ed 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	435	531	
==>ed 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	435	531	
==>ed 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4970	5055	
==>| <octal_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape_sequenc <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2862	2963	
==>e_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previo <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2862	2963	
==>e_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19889	19984	
==>after login, so it can give you accurate
C<username> and C<ircname> information.

This is a read <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18870	18965	
==>after login, so it can give you accurate
C<username> and C<ircname> information.

This is a read <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19889	19984	
==>after login, so it can give you accurate
C<username> and C<ircname> information.

This is a read <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18870	18965	
==>after login, so it can give you accurate
C<username> and C<ircname> information.

This is a read <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25538	25648	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27733	27843	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25538	25648	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27733	27843	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25538	25648	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27733	27843	
==>'numeric';
                    # warn "  UNSHIFT: ".$self->elems->unboxed." ".Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6557	6766	
==>{
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            re <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6557	6766	
==>{
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            re <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5817	5917	
==>tive seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5817	5917	
==>tive seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5349	5448	
==>ivate LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has bee <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5349	5448	
==>ivate LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has bee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10117	10239	
==>ch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10117	10239	
==>ch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10117	10239	
==>ch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_d <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	14187	14290	
==>nd => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14187	14290	
==>nd => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous s <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8670	8769	
==>arams->[0]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($code_body) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3593	3709	
==>('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3593	3709	
==>('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3593	3709	
==>('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3622	3716	
==>(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3622	3716	
==>(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3622	3716	
==>(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4299	4410	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4299	4410	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4299	4410	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	49	153	
==>06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	49	153	
==>06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	49	153	
==>06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4321	4447	
==>nd space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initi <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4321	4447	
==>nd space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12857	12951	
==>bset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9633	9727	
==>bset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12857	12951	
==>bset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9633	9727	
==>bset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2 <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	380	501	
==>Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * comp <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	380	501	
==>Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * comp <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26309	26406	
==>anything at
all.  Note that while the Hash itself is copied on input and output, any
variable valu <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26309	26406	
==>anything at
all.  Note that while the Hash itself is copied on input and output, any
variable valu <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1709	1806	
==>re; that will create the
'nmake.exe' file needed by this module.

You may then resume the installa <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1549	1646	
==>re; that will create the
'nmake.exe' file needed by this module.

You may then resume the installa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7991	8147	
==>st?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7991	8147	
==>st?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7991	8147	
==>st?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1779	1893	
==>XX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1779	1893	
==>XX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1779	1893	
==>XX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10554	10665	
==>$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10554	10665	
==>$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10554	10665	
==>$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2941	3048	
==>decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2941	3048	
==>decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2941	3048	
==>decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1680	1830	
==>uperclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1680	1830	
==>uperclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1680	1830	
==>uperclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16434	16531	
==>I SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16434	16531	
==>I SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16434	16531	
==>I SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4755	4922	
==>[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4755	4922	
==>[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4755	4922	
==>[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1225	1323	
==>eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1225	1323	
==>eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1225	1323	
==>eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	690	797	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	690	797	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	690	797	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	77	183	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	77	183	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	77	183	
==>e('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3464	3573	
==>e extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3464	3573	
==>e extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end C <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3464	3573	
==>e extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2407	2496	
==>iner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descrip <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2407	2496	
==>iner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descrip <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2407	2496	
==>iner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descrip <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6173	6310	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9143	9280	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6173	6310	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9143	9280	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6173	6310	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9143	9280	
==>b { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14969	15121	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14969	15121	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14969	15121	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19668	19819	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19668	19819	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19668	19819	
==>'::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be call <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3809	3946	
==>ew {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3809	3946	
==>ew {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3809	3946	
==>ew {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	460	549	
==>f;
$::EigenClass = undef;

## ------------------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	460	549	
==>f;
$::EigenClass = undef;

## ------------------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	460	549	
==>f;
$::EigenClass = undef;

## ------------------------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9362	9569	
==>$pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9362	9569	
==>$pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cle <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9362	9569	
==>$pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	269	369	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	269	369	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	269	369	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4366	4489	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4366	4489	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4366	4489	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7949	8069	
==>es_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7949	8069	
==>es_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7949	8069	
==>es_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10128	10290	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7679	7841	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10128	10290	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7679	7841	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10128	10290	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7679	7841	
==>fined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $curr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3449	3613	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6385	6549	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3449	3613	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6385	6549	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3449	3613	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6385	6549	
==>E = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we hav <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14468	14657	
==>6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14468	14657	
==>6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14468	14657	
==>6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9744	9843	
==>amed',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9744	9843	
==>amed',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9744	9843	
==>amed',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1351	1482	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2317	2448	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1351	1482	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2317	2448	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1351	1482	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2317	2448	
==>TH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4734	4867	
==>print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't cl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4734	4867	
==>print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't cl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4734	4867	
==>print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15745	15855	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12995	13105	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15745	15855	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12995	13105	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15745	15855	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12995	13105	
==>{
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you mu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3890	4022	
==>en;
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1467	1588	
==>instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_ch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1467	1588	
==>instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_ch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1467	1588	
==>instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_ch <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	2022	2126	
==>st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 = <<'GROK';
1st l <==
6	/Users/nnunley/pugs/util/package-osx.pl	2393	2482	
==>Users/dromano/dev/pugs/examples /usr/local/share/doc/pugs/examples
        /Users/dromano/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19114	19246	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16352	16484	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19114	19246	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16352	16484	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19114	19246	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16352	16484	
==>lasses do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	2263	2390	
==>n Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () r <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2263	2390	
==>n Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	707	813	
==>l {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	707	813	
==>l {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17692	17788	
==>)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17692	17788	
==>)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8163	8306	
==>array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8163	8306	
==>array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8163	8306	
==>array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4295	4409	
==>l.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4295	4409	
==>l.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4295	4409	
==>l.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequo <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2	101	
==>/usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2ti <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2	101	
==>/usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2ti <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	931	1028	
==>n::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::AttrName}
    of Rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	218	321	
==>espaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	218	321	
==>espaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	218	321	
==>espaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5998	6099	
==>}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not her <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5998	6099	
==>}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not her <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5998	6099	
==>}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not her <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5314	5419	
==>($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5314	5419	
==>($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5314	5419	
==>($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2344	2437	
==>rict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2344	2437	
==>rict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2344	2437	
==>rict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descri <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2622	2721	
==>right 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2622	2721	
==>right 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10418	10516	
==>or perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement f <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10418	10516	
==>or perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement f <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1831	1928	
==>right 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3692	3789	
==>right 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4018	4134	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6667	6783	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4255	4368	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10704	10817	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4255	4368	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10704	10817	
==>r {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1705	1826	
==>AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split ':: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20819	20917	
==>s and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20819	20917	
==>s and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6411	6507	
==>n '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6411	6507	
==>n '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6411	6507	
==>n '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

= <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5195	5347	
==>@head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $l <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5195	5347	
==>@head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $l <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	273	384	
==>erface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	479	590	
==>erface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings ' <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3663	3757	
==>rse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event han <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3663	3757	
==>rse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event han <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6475	6600	
==>rimitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6475	6600	
==>rimitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6475	6600	
==>rimitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7397	7508	
==>un::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7397	7508	
==>un::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7397	7508	
==>un::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6013	6123	
==>sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_ind <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6013	6123	
==>sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_ind <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6013	6123	
==>sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_ind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	879	985	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	879	985	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	879	985	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12100	12258	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3611	3769	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12100	12258	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3611	3769	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12100	12258	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3611	3769	
==>NDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3575	3747	
==>= \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $ou <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3575	3747	
==>= \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $ou <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9085	9199	
==>equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{na <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7181	7280	
==>n;
  push @operatorStack, $operator;
  $position = $operator->to();
  goto expect_term if ( $tokenCa <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	384	480	
==>equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{na <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	460	556	
==>equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5490	5605	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3610	3725	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5490	5605	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3610	3725	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5490	5605	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3610	3725	
==>he superclasses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1131	1260	
==>arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1131	1260	
==>arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1131	1260	
==>arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7055	7160	
==>[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7055	7160	
==>[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7055	7160	
==>[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, t <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1747	1895	
==>urn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1747	1895	
==>urn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool <==
6	/Users/nnunley/pugs/util/func_refact.pl	866	990	
==>{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	976	1066	
==>y $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( outp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	976	1066	
==>y $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( outp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1056	1146	
==>y $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( outp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29619	29733	
==>shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29619	29733	
==>shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29619	29733	
==>shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10314	10405	
==>tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10314	10405	
==>tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10314	10405	
==>tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8641	8779	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11614	11752	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8641	8779	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11614	11752	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8641	8779	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11614	11752	
==>can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5702	5851	
==>>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undef <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5702	5851	
==>>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undef <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5702	5851	
==>>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undef <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1221	1332	
==>'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams' <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4371	4481	
==>'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4371	4481	
==>'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10397	10504	
==>mplemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve require <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10397	10504	
==>mplemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve require <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10397	10504	
==>mplemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve require <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3671	3759	
==>CTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3671	3759	
==>CTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3671	3759	
==>CTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1 <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	25	135	
==>t::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_e <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	25	135	
==>t::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14664	14761	
==>tabase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14664	14761	
==>tabase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	629	724	
==>elective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	629	724	
==>elective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11578	11709	
==>if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11578	11709	
==>if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2192	2302	
==>{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2192	2302	
==>{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1220	1323	
==>$tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1231	1334	
==>$tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13846	13948	
==>e optimizing of the order that source relations are
    # combined, so to try and make the least expens <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17323	17425	
==>e optimizing of the order that source relations are
    # combined, so to try and make the least expens <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16703	16805	
==>e optimizing of the order that source relations are
    # combined, so to try and make the least expens <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2728	2814	
==>mp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2728	2814	
==>mp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2728	2814	
==>mp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19377	19515	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16609	16747	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19377	19515	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16609	16747	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19377	19515	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16609	16747	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";    
    # only store method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	310	405	
==>h are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	310	405	
==>h are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	310	405	
==>h are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12783	12867	
==>::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12783	12867	
==>::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12783	12867	
==>::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2577	2677	
==>ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2577	2677	
==>ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2577	2677	
==>ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2614	2709	
==>n($version)     if defined $version;
    $new_class->authority($authority) if defined $authority <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2614	2709	
==>n($version)     if defined $version;
    $new_class->authority($authority) if defined $authority <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2614	2709	
==>n($version)     if defined $version;
    $new_class->authority($authority) if defined $authority <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14363	14541	
==>hods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14363	14541	
==>hods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14363	14541	
==>hods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is ne <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4026	4121	
==>dule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4026	4121	
==>dule for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	7005	7099	
==>dule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9075	9169	
==>dule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	7005	7099	
==>dule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9075	9169	
==>dule for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18175	18332	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15413	15570	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18175	18332	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15413	15570	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18175	18332	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15413	15570	
==>it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX - <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11321	11445	
==>gin_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$ni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11321	11445	
==>gin_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$ni <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24197	24321	
==>ted
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 mean <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2471	2568	
==>b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2471	2568	
==>b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2471	2568	
==>b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Numb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8986	9107	
==>lt',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8986	9107	
==>lt',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8986	9107	
==>lt',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3490	3584	
==>($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3490	3584	
==>($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3490	3584	
==>($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18772	18895	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16010	16133	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18772	18895	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16010	16133	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18772	18895	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16010	16133	
==>it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1746	1853	
==>lti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1746	1853	
==>lti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1746	1853	
==>lti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1292	1385	
==>ach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1292	1385	
==>ach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1292	1385	
==>ach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1774	1900	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	886	1012	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1774	1900	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	886	1012	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1774	1900	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	886	1012	
==>->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3818	3922	
==>}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3818	3922	
==>}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3818	3922	
==>}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6183	6278	
==>);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.cor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6183	6278	
==>);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.cor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6183	6278	
==>);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.cor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15718	15867	
==>TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15718	15867	
==>TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15718	15867	
==>TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12690	12806	
==>};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12690	12806	
==>};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12690	12806	
==>};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9439	9546	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12412	12519	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9439	9546	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12412	12519	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9439	9546	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12412	12519	
==>:Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    } <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2273	2412	
==>),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&i <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2631	2770	
==>),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2483	2588	
==>mand) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2483	2588	
==>mand) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2483	2588	
==>mand) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	837	951	
==>r);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	837	951	
==>r);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	837	951	
==>r);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12067	12178	
==>d_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/parrot/include/$_") {
          mkdir "$initrd_m <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12069	12162	
==>r example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print en <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12069	12162	
==>r example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5788	5896	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3908	4016	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5788	5896	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3908	4016	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5788	5896	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3908	4016	
==>this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclass <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2362	2505	
==>)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2674	2812	
==>)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2674	2812	
==>)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15414	15522	
==>nd}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15414	15522	
==>nd}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15414	15522	
==>nd}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0] <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3965	4150	
==>pping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $att <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7442	7627	
==>pping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $att <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6408	6593	
==>pping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14890	15008	
==>ists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14890	15008	
==>ists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14890	15008	
==>ists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36131	36253	
==>=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36131	36253	
==>=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36131	36253	
==>=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2755	2858	
==>>{assoc};
    $opt->{fixity} = 'prefix' unless defined $opt->{fixity};
    $opt->{index}  = 'OP' . $op <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	11603	11703	
==>ot be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11603	11703	
==>ot be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7069	7167	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6199	6297	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2853	2951	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2853	2951	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7069	7167	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6199	6297	
==>er) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31227	31412	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32985	33170	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31227	31412	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32985	33170	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31227	31412	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32985	33170	
==>$i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6940	7045	
==>n');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6940	7045	
==>n');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6940	7045	
==>n');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1395	1487	
==>rd against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1395	1487	
==>rd against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1395	1487	
==>rd against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10764	10883	
==>rn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10764	10883	
==>rn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10764	10883	
==>rn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2175	2274	
==>lename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2175	2274	
==>lename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2175	2274	
==>lename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17186	17279	
==>};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17186	17279	
==>};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17186	17279	
==>};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11943	12048	
==>Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11943	12048	
==>Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11943	12048	
==>Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3726	3829	
==>e list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3726	3829	
==>e list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3726	3829	
==>e list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9290	9396	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6837	6943	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9290	9396	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6837	6943	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9290	9396	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6837	6943	
==>ake_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_brea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1176	1303	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	927	1054	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1176	1303	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	927	1054	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1176	1303	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	927	1054	
==>_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it wo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4172	4280	
==>$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4172	4280	
==>$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4172	4280	
==>$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1263	1360	
==>"}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1263	1360	
==>"}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1263	1360	
==>"}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1023	1139	
==>ttrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1228	1344	
==>ttrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1289	1405	
==>ttrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1472	1576	
==>s.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1472	1576	
==>s.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1472	1576	
==>s.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11144	11275	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12615	12746	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14621	14752	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16092	16223	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13929	14060	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15454	15585	
==>tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10031	10198	
==>$n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( $n->{exp2}{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2726	2843	
==>};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2726	2843	
==>};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2726	2843	
==>};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Ce <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	696	798	
==>Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=hea <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	696	798	
==>Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16973	17128	
==>rray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16973	17128	
==>rray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16973	17128	
==>rray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6958	7074	
==>onal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6958	7074	
==>onal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6958	7074	
==>onal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2184	2296	
==>, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2172	2284	
==>, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	10264	10371	
==>er)

    # also, the signature for this sub is nowhere near finalized; it should
    # support asynch/exclus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18351	18444	
==>0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18351	18444	
==>0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18351	18444	
==>0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	400	508	
==>d_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	400	508	
==>d_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	400	508	
==>d_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undef <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6456	6552	
==>s a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6456	6552	
==>s a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8653	8749	
==>s a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2050	2178	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2455	2583	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2050	2178	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2455	2583	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2050	2178	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2455	2583	
==>an't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9073	9193	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12046	12166	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9073	9193	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12046	12166	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9073	9193	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12046	12166	
==>e Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMe <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11787	11886	
==>the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8934	9033	
==>the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11787	11886	
==>the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=hea <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8934	9033	
==>the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22625	22716	
==>d2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Ro <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22625	22716	
==>d2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Ro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15697	15834	
==>osition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15697	15834	
==>osition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15697	15834	
==>osition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20418	20551	
==>osition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20418	20551	
==>osition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20418	20551	
==>osition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2020	2187	
==>Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2020	2187	
==>Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2020	2187	
==>Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2603	2710	
==>multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2603	2710	
==>multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2603	2710	
==>multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3718	3854	
==>if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3718	3854	
==>if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3718	3854	
==>if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	14	112	
==>:Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	14	112	
==>:Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	14	112	
==>:Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6113	6213	
==>be a package level version of OUTER::?

Either way, I think it might be useful to have this if for no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6113	6213	
==>be a package level version of OUTER::?

Either way, I think it might be useful to have this if for no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6113	6213	
==>be a package level version of OUTER::?

Either way, I think it might be useful to have this if for no <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1236	1333	
==>(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1236	1333	
==>(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1236	1333	
==>(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3264	3375	
==>ject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3264	3375	
==>ject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3264	3375	
==>ject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1586	1683	
==>e_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1586	1683	
==>e_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1586	1683	
==>e_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16042	16219	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20759	20936	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16042	16219	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20759	20936	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16042	16219	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20759	20936	
==>RAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12497	12608	
==>s, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12497	12608	
==>s, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12497	12608	
==>s, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1622	1727	
==>pc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1622	1727	
==>pc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1622	1727	
==>pc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1964	2064	
==>H())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1964	2064	
==>H())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1964	2064	
==>H())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	571	665	
==>PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	571	665	
==>PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	571	665	
==>PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1643	1752	
==>' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1643	1752	
==>' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1643	1752	
==>' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3080	3180	
==>ve_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3080	3180	
==>ve_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3080	3180	
==>ve_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2205	2342	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4532	4669	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2205	2342	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4532	4669	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2205	2342	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4532	4669	
==>te Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (defined $nam <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	3665	3771	
==>ete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_exte <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4922	5026	
==>class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tm <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4922	5026	
==>class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12734	12834	
==>thod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12734	12834	
==>thod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12734	12834	
==>thod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5369	5480	
==>_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($vers <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5369	5480	
==>_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($vers <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5369	5480	
==>_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($vers <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4255	4350	
==>6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4255	4350	
==>6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4255	4350	
==>6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1278	1368	
==>XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loca <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1278	1368	
==>XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loca <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1278	1368	
==>XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2772	2857	
==>ernals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { so <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2772	2857	
==>ernals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { so <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2772	2857	
==>ernals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7894	8015	
==>or you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7894	8015	
==>or you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "H <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7894	8015	
==>or you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "H <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4156	4273	
==>en; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4156	4273	
==>en; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4156	4273	
==>en; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12443	12557	
==>rintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->objec <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10373	10471	
==>ass: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    ret <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10373	10471	
==>ass: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14599	14691	
==>endir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14599	14691	
==>endir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14599	14691	
==>endir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1130	1299	
==>er {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  + <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1130	1299	
==>er {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  + <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6238	6352	
==>_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6250	6364	
==>_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match ) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8246	8342	
==>pan1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infini <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8246	8342	
==>pan1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infini <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6185	6319	
==>events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5258	5392	
==>events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6185	6319	
==>events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5258	5392	
==>events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3761	3849	
==>aischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3761	3849	
==>aischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMEN <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	8866	8989	
==>urns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8866	8989	
==>urns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24546	24639	
==>he correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> even <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23310	23403	
==>he correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24546	24639	
==>he correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> even <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23310	23403	
==>he correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> even <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8203	8438	
==>);
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8203	8438	
==>);
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8203	8438	
==>);
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2801	2935	
==>pe eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2801	2935	
==>pe eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2801	2935	
==>pe eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5026	5129	
==>PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5026	5129	
==>PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5026	5129	
==>PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomp <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3818	3985	
==>r                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribu <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3818	3985	
==>r                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribu <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1352	1470	
==>tp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1319	1437	
==>tp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1883	1985	
==>ser



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_code <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1809	1907	
==>ser

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9566	9676	
==>val($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9566	9676	
==>val($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9566	9676	
==>val($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1085	1186	
==>«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1085	1186	
==>«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1085	1186	
==>«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4543	4721	
==>) {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4543	4721	
==>) {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4543	4721	
==>) {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11692	11817	
==>tus();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2126	2239	
==>tus();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2126	2239	
==>tus();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4569	4671	
==>kage PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4569	4671	
==>kage PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4569	4671	
==>kage PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	865	963	
==>t.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a control <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	865	963	
==>t.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a control <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	945	1043	
==>t.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a control <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15445	15544	
==>SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15445	15544	
==>SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15445	15544	
==>SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4818	4911	
==>::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4818	4911	
==>::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4818	4911	
==>::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1164	1289	
==>:instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1164	1289	
==>:instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1164	1289	
==>:instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3987	4097	
==>) {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3987	4097	
==>) {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3987	4097	
==>) {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2042	2151	
==>PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2042	2151	
==>PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2042	2151	
==>PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3390	3495	
==>me or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3390	3495	
==>me or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3390	3495	
==>me or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38175	38357	
==>),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attri <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18932	19063	
==>@_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS-- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15353	15484	
==>@_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS-- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4032	4124	
==>6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4032	4124	
==>6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4032	4124	
==>6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17466	17583	
==>6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17466	17583	
==>6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17466	17583	
==>6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbox <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	905	1005	
==>ilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	905	1005	
==>ilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	905	1005	
==>ilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PI <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4538	4659	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8015	8136	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&se <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7008	7129	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&se <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1243	1355	
==>eout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp-> <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1210	1322	
==>eout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp-> <==
6	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1340	1442	
==>um'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfill in... };
   subset complex'~$n~' of ValueTy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1735	1842	
==>if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1735	1842	
==>if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1735	1842	
==>if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($na <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1281	1379	
==>ef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1281	1379	
==>ef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1281	1379	
==>ef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	137	252	
==>s) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	137	252	
==>s) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	137	252	
==>s) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2383	2476	
==>ferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2383	2476	
==>ferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2383	2476	
==>ferencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4168	4298	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6817	6947	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4401	4528	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10850	10977	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4401	4528	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10850	10977	
==>->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1651	1778	
==>mit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2394	2521	
==>mit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1651	1778	
==>mit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2382	2509	
==>mit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	7570	7676	
==>T_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGT <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7570	7676	
==>T_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3399	3592	
==>w( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3399	3592	
==>w( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3399	3592	
==>w( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6824	6923	
==>Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2 <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7196	7295	
==>Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2 <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7495	7594	
==>Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13375	13474	
==>r %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13375	13474	
==>r %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13375	13474	
==>r %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5450	5547	
==>ure is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5450	5547	
==>ure is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5450	5547	
==>ure is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2460	2567	
==>MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2460	2567	
==>MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2460	2567	
==>MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18648	18746	
==>{ p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18648	18746	
==>{ p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18648	18746	
==>{ p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4775	4878	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5320	5423	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4775	4878	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5320	5423	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5365	5468	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5910	6013	
==>, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->contai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8412	8535	
==>y}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8412	8535	
==>y}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8412	8535	
==>y}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2547	2644	
==>"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2547	2644	
==>"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2547	2644	
==>"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6649	6787	
==>"\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6649	6787	
==>"\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6649	6787	
==>"\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            retu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	836	932	
==>utput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::B <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	836	932	
==>utput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	916	1012	
==>utput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::B <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6891	6993	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6021	6123	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2675	2777	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2675	2777	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6891	6993	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6021	6123	
==>mber) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5633	5752	
==>f vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5633	5752	
==>f vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5633	5752	
==>f vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13754	13846	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13754	13846	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13754	13846	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Ev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	82	181	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	82	181	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	82	181	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	81	179	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	81	179	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	81	179	
==>ock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8991	9110	
==>= "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $d <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	725	844	
==>= "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8991	9110	
==>= "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8991	9110	
==>= "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $d <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2982	3091	
==>.end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) r <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2982	3091	
==>.end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) r <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20143	20242	
==>o be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is ea <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20143	20242	
==>o be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is ea <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39470	39560	
==>Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5205	5295	
==>Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39470	39560	
==>Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5205	5295	
==>Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4783	4985	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7719	7921	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4783	4985	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7719	7921	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4783	4985	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7719	7921	
==>d with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	152	287	
==>rray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallba <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	194	329	
==>rray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallba <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	152	287	
==>rray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallba <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	194	329	
==>rray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallba <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	83	188	
==>rnings;

use Carp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	m <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10934	11035	
==>scription, linuxrc, and welcome.p6 to the initrd",
    help   => "Note: You might want to strip pugs a <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	787	914	
==>e;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont mat <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	787	914	
==>e;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont mat <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	388	500	
==>DoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91 <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	388	500	
==>DoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8501	8603	
==>!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<us <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8501	8603	
==>!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24565	24717	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26754	26906	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24565	24717	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26754	26906	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24565	24717	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26754	26906	
==>f = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15743	15892	
==>:Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15743	15892	
==>:Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15743	15892	
==>:Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20464	20609	
==>:Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20464	20609	
==>:Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20464	20609	
==>:Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13226	13380	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14961	15115	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13226	13380	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14961	15115	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13226	13380	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14961	15115	
==>pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shif <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5112	5222	
==>ntent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) { <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5112	5222	
==>ntent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40520	40615	
==>that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTA <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26034	26129	
==>that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTA <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40520	40615	
==>that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTA <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26034	26129	
==>that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2201	2332	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4528	4659	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2201	2332	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4528	4659	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2201	2332	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4528	4659	
==>ribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($name) = @_;
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24580	24733	
==>val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24580	24733	
==>val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24580	24733	
==>val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	965	1063	
==>ass now actually inherits a number of new attributes from various sources
# and we need to now crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	965	1063	
==>ass now actually inherits a number of new attributes from various sources
# and we need to now crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	965	1063	
==>ass now actually inherits a number of new attributes from various sources
# and we need to now crea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3642	3754	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4337	4449	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3642	3754	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4337	4449	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3642	3754	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4337	4449	
==>fined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'und <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3229	3393	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4035	4199	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1976	2140	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3229	3393	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4035	4199	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1976	2140	
==>> -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.prin <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	460	596	
==>= .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.spl <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	460	596	
==>= .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.spl <==
6	/Users/nnunley/pugs/misc/S29_round.pl	3503	3618	
==>round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == <==
6	/Users/nnunley/pugs/misc/S29_round.pl	1814	1928	
==>round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == <==
6	/Users/nnunley/pugs/misc/S29_round.pl	2351	2465	
==>round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == <==
6	/Users/nnunley/pugs/misc/S29_round.pl	2913	3027	
==>round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3839	3984	
==>$recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3839	3984	
==>$recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3839	3984	
==>$recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	210	307	
==>te core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	210	307	
==>te core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (wh <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	210	307	
==>te core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (wh <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	20	119	
==>l5;

use strict;
use Pugs::Emitter::Rule::Perl5;
our %nodes;

sub emit_node {
	die "unknown node typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	165	263	
==>_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	165	263	
==>_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	165	263	
==>_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18709	18805	
==>setta does not use any dialect of SQL in its native API (unlike many
other DBMS products) because <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18709	18805	
==>setta does not use any dialect of SQL in its native API (unlike many
other DBMS products) because <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9173	9307	
==>otoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### d <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10650	10784	
==>otoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### d <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5914	6000	
==>pan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35491	35577	
==>rtesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5914	6000	
==>pan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40041	40127	
==>rtesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3032	3132	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6046	6146	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8114	8214	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3032	3132	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6046	6146	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8114	8214	
==>- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32508	32687	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32508	32687	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32508	32687	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3604	3702	
==>die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3604	3702	
==>die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3604	3702	
==>die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1788	1904	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3351	3467	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1788	1904	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3351	3467	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1788	1904	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3351	3467	
==>ALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # called 'iterators', the <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7321	7541	
==>'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7378	7598	
==>'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4727	4892	
==>.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4727	4892	
==>.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	611	744	
==>f ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = class <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2814	2912	
==>safe   (Array)\
#   ie, both return and argument types differ.
multi infix:«¥» (Array *@arrays - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9310	9431	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6857	6978	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9310	9431	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6857	6978	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9310	9431	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6857	6978	
==>her();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35941	36079	
==>n_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, neg <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35941	36079	
==>n_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, neg <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35941	36079	
==>n_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, neg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2614	2721	
==>$nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2614	2721	
==>$nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2614	2721	
==>$nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25526	25631	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28212	28317	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29223	29328	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30078	30183	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32764	32869	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33775	33880	
==>>

This method is a generic relational operator that returns a new Relation
which is the same as the invoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3886	4047	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6822	6983	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3886	4047	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6822	6983	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3886	4047	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6822	6983	
==>hods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39479	39577	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39749	39847	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39479	39577	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39749	39847	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39479	39577	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39749	39847	
==>>elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6778	6891	
==>$x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1 <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6778	6891	
==>$x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1 <==
6	/Users/nnunley/pugs/util/run-smoke.pl	240	342	
==>HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $failed;

You don't seem to ha <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38133	38226	
==>g said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42682	42775	
==>g said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42332	42425	
==>g said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8506	8643	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6059	6196	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8506	8643	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6059	6196	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8506	8643	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6059	6196	
==>nstance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35919	36016	
==>names
and corresponding common tuple values are aligned and merged.  The heading
of the new relati <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37662	37759	
==>names and corresponding common tuple values
are aligned and merged.  The heading of the new relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40469	40566	
==>names
and corresponding common tuple values are aligned and merged.  The heading
of the new relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42211	42308	
==>names and corresponding common tuple values
are aligned and merged.  The heading of the new relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40083	40180	
==>names
and corresponding common tuple values are aligned and merged.  The heading
of the new relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41861	41958	
==>names and corresponding common tuple values
are aligned and merged.  The heading of the new relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16895	17064	
==>ick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16895	17064	
==>ick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16895	17064	
==>ick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6746	6854	
==>fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6746	6854	
==>fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6746	6854	
==>fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	88	196	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	88	196	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	88	196	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	87	194	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	87	194	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	87	194	
==>ys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaqu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	983	1165	
==>tta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a qui <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	983	1165	
==>tta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a qui <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6556	6655	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec:: <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8624	8723	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec:: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6556	6655	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec:: <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8624	8723	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13639	13762	
==>lass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARG <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13639	13762	
==>lass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARG <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13639	13762	
==>lass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARG <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5448	5549	
==>ckage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5448	5549	
==>ckage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5448	5549	
==>ckage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40781	40898	
==>arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40781	40898	
==>arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40781	40898	
==>arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14484	14583	
==>delete'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <'typeof'> <UnaryExpression>
    | <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	871	964	
==>opment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/ <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	871	964	
==>opment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19927	20058	
==>.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19927	20058	
==>.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19927	20058	
==>.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6750	6854	
==>JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6750	6854	
==>JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6750	6854	
==>JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1694	1802	
==>$line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1694	1802	
==>$line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1774	1882	
==>$line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14989	15084	
==>t widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18466	18561	
==>t widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17882	17977	
==>t widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1374	1504	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1374	1504	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1374	1504	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4400	4508	
==>overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4400	4508	
==>overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4400	4508	
==>overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3048	3186	
==>ew {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3048	3186	
==>ew {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3048	3186	
==>ew {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	26	122	
==>t;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	26	122	
==>t;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	26	122	
==>t;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	26	121	
==>t;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	26	121	
==>t;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	26	121	
==>t;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Uti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	3	111	
==>kage PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	3	111	
==>kage PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	3	111	
==>kage PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warni <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14841	14939	
==>lar_numeric     => sub { $as_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26348	26443	
==>ash itself is copied on input and output, any
variable values which are references will be passe <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26348	26443	
==>ash itself is copied on input and output, any
variable values which are references will be passe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1428	1521	
==>upport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1428	1521	
==>upport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1428	1521	
==>upport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22637	22731	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22867	22961	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22637	22731	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22867	22961	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22637	22731	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22867	22961	
==>xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	796	922	
==>d!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::get <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	763	889	
==>d!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::get <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4778	4877	
==>t {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3905	4004	
==>t {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4778	4877	
==>t {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3905	4004	
==>t {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5810	5915	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8780	8885	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5810	5915	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8780	8885	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5810	5915	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8780	8885	
==>thod subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	231	333	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	490	592	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	231	333	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	490	592	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	231	333	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	490	592	
==>();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::R <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6805	6901	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5935	6031	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2589	2685	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2589	2685	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6805	6901	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5935	6031	
==>et) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15349	15555	
==>() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18826	19032	
==>() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _u <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18251	18457	
==>() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11593	11709	
==>in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11593	11709	
==>in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11593	11709	
==>in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending s <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8204	8311	
==>empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $s <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8596	8703	
==>empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8204	8311	
==>empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8596	8703	
==>empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $s <==
6	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	133	235	
==>:Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  % <==
6	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	133	235	
==>:Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5024	5184	
==>calar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5024	5184	
==>calar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5024	5184	
==>calar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "v <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3302	3416	
==>tion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $to <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3302	3416	
==>tion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4826	4940	
==>tion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $to <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10255	10365	
==>kdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built late <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1791	1899	
==>'t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1791	1899	
==>'t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1791	1899	
==>'t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1664	1766	
==>:{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  do <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1664	1766	
==>:{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9900	10008	
==>pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ran <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9900	10008	
==>pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ran <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9900	10008	
==>pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ran <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16601	16699	
==>? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16601	16699	
==>? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16601	16699	
==>? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2353	2586	
==>1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1485	1654	
==>1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1485	1654	
==>1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13719	13809	
==>tection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'ne <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13719	13809	
==>tection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'ne <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13719	13809	
==>tection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5319	5421	
==>MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5319	5421	
==>MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5319	5421	
==>MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	335	434	
==>rameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Add <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	335	434	
==>rameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Add <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	335	434	
==>rameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13899	14026	
==>onical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13899	14026	
==>onical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13899	14026	
==>onical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22601	22693	
==>$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22601	22693	
==>$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22601	22693	
==>$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4149	4268	
==>^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4149	4268	
==>^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4149	4268	
==>^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigi <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	991	1087	
==>iag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	991	1087	
==>iag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1547	1643	
==>iag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9402	9511	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12375	12484	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9402	9511	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12375	12484	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9402	9511	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12375	12484	
==>age Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2084	2278	
==>$pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2084	2278	
==>$pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2084	2278	
==>$pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1862	1980	
==>E]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1862	1980	
==>E]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1862	1980	
==>E]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    l <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	465	571	
==>voiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8732	8837	
==>voiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    ope <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8732	8837	
==>voiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    ope <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8732	8837	
==>voiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    ope <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1792	1892	
==>)) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub literal <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1379	1473	
==>okup, as attribute fetching is actually
just a shorthand for calling an accessor).

Run-time in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13486	13656	
==>= $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13486	13656	
==>= $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13486	13656	
==>= $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2371	2541	
==>= $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        m <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2979	3081	
==>didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ { <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2979	3081	
==>didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1359	1460	
==>le, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1359	1460	
==>le, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1359	1460	
==>le, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2646	2734	
==>le->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2646	2734	
==>le->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2646	2734	
==>le->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38995	39143	
==>>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38995	39143	
==>>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38995	39143	
==>>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	186	281	
==>is is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $E <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	186	281	
==>is is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $E <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	186	281	
==>is is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3099	3207	
==>mespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3099	3207	
==>mespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3099	3207	
==>mespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16206	16309	
==>xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16206	16309	
==>xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16206	16309	
==>xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12045	12162	
==>::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12045	12162	
==>::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12045	12162	
==>::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1170	1265	
==>UBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1170	1265	
==>UBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1170	1265	
==>UBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2093	2252	
==>eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2093	2252	
==>eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2093	2252	
==>eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $curr <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7822	7932	
==>ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # se <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12151	12244	
==>age/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.i <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12151	12244	
==>age/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1604	1720	
==>> "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  packa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1604	1720	
==>> "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  packa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1604	1720	
==>> "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4017	4115	
==>m{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4017	4115	
==>m{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4017	4115	
==>m{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5119	5235	
==>$tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16155	16271	
==>$tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17643	17759	
==>$tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22326	22442	
==>$tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29625	29733	
==>SULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29625	29733	
==>SULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	803	903	
==>ater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.htm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	803	903	
==>ater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.htm <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	803	903	
==>ater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.htm <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	429	525	
==>SULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8366	8602	
==>ms ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8366	8602	
==>ms ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8366	8602	
==>ms ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7523	7654	
==>gify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7523	7654	
==>gify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7523	7654	
==>gify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6558	6683	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9007	9132	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6558	6683	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9007	9132	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6558	6683	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9007	9132	
==>nd is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instantiate lazy s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1716	1813	
==>ersion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1716	1813	
==>ersion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1716	1813	
==>ersion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	665	757	
==>_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	665	757	
==>_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	665	757	
==>_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1651	1759	
==>tic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expec <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1651	1759	
==>tic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1731	1839	
==>tic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expec <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	58	158	
==>tier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini" <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	54	154	
==>tier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini" <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	54	154	
==>tier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini" <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3979	4080	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3979	4080	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6958	7058	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9028	9128	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6958	7058	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9028	9128	
==>itten
by a number of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	588	692	
==>tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	588	692	
==>tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	588	692	
==>tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextT <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6588	6683	
==>h of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whic <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3942	4037	
==>h of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whic <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6588	6683	
==>h of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whic <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3942	4037	
==>h of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whic <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15842	15935	
==>s is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$nod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15842	15935	
==>s is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$nod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	850	961	
==>f the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	850	961	
==>f the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	850	961	
==>f the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1210	1308	
==>ce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1210	1308	
==>ce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1210	1308	
==>ce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2833	2951	
==>,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2833	2951	
==>,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2833	2951	
==>,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	171	262	
==>($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	171	262	
==>($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	171	262	
==>($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5150	5262	
==>'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5150	5262	
==>'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11554	11780	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9107	9333	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11554	11780	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9107	9333	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11554	11780	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9107	9333	
==>it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	136	254	
==>lue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	136	254	
==>lue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	136	254	
==>lue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	2092	2206	
==>ubtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2092	2206	
==>ubtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3070	3159	
==>Date::Gregorian::day_of_year ::= &Date::Gregorian::doy;
method week returns Int { int (./d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13502	13614	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10786	10898	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13502	13614	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10786	10898	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13502	13614	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10786	10898	
==>tance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5871	5980	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3991	4100	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5871	5980	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3991	4100	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5871	5980	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3991	4100	
==>ttr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1990	2134	
==>p = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1990	2134	
==>p = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $sa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1990	2134	
==>p = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $sa <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6534	6647	
==>$param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6534	6647	
==>$param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1442	1541	
==>archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to created '$builddir/$archive' from '$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1580	1745	
==>R
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1580	1745	
==>R
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1580	1745	
==>R
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	327	439	
==>nv->isa('closure::env'))
        || confess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || c <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1948	2059	
==>the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1948	2059	
==>the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14538	14681	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14538	14681	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14538	14681	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possi <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6824	6967	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possi <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5328	5471	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possi <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	153	249	
==>_;

__END__

=pod

=head1 NAME

Blondie::Prelude::Strings - String related builtins

=head1 SYNOP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16311	16439	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21028	21156	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16311	16439	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21028	21156	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16311	16439	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21028	21156	
==>me, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12656	12775	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10207	10326	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12656	12775	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10207	10326	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12656	12775	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10207	10326	
==>cher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10402	10594	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7953	8145	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10402	10594	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7953	8145	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10402	10594	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7953	8145	
==>ent_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24032	24126	
==>nd (MRO))))
     ($self: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_meth <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5955	6046	
==>utine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Sub <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5955	6046	
==>utine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Sub <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2854	2945	
==>utine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Sub <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7634	7723	
==>@terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->acce <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1459	1548	
==>@terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->acce <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5430	5539	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6698	6807	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5430	5539	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6686	6795	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	278	382	
==>ile::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	278	382	
==>ile::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5848	6015	
==>($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5848	6015	
==>($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5848	6015	
==>($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4448	4538	
==>ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4448	4538	
==>ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4448	4538	
==>ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5377	5566	
==>ue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8854	9043	
==>ue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7874	8063	
==>ue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	101	194	
==>the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	101	194	
==>the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	101	194	
==>the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', metho <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1528	1660	
==>::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1981	2113	
==>::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2416	2548	
==>::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2853	2985	
==>::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captur <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16895	17017	
==>push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13316	13438	
==>push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3143	3298	
==>lf->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3143	3298	
==>lf->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3143	3298	
==>lf->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	844	952	
==>]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	844	952	
==>]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	844	952	
==>]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3654	3768	
==>lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3654	3768	
==>lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3654	3768	
==>lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "va <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3191	3288	
==>lows you to test test modules that use Test::Builder.  It
does this by you setting the expected ou <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3191	3288	
==>lows you to test test modules that use Test::Builder.  It
does this by you setting the expected ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3271	3368	
==>lows you to test test modules that use Test::Builder.  It
does this by you setting the expected ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	277	379	
==>pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	277	379	
==>pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	277	379	
==>pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1527	1615	
==>($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1527	1615	
==>($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1527	1615	
==>($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1920	2031	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2355	2466	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2792	2903	
==>, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14656	14761	
==>ssary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14656	14761	
==>ssary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14656	14761	
==>ssary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2726	2832	
==>$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2726	2832	
==>$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2726	2832	
==>$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6286	6389	
==>NIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6286	6389	
==>NIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6286	6389	
==>NIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2441	2545	
==>"or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2441	2545	
==>"or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2441	2545	
==>"or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7480	7579	
==>PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7480	7579	
==>PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7480	7579	
==>PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9196	9310	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6743	6857	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9196	9310	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6743	6857	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9196	9310	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6743	6857	
==>nonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8786	8956	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11759	11929	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8786	8956	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11759	11929	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8786	8956	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11759	11929	
==>_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12141	12270	
==>();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builde <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2543	2658	
==>();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builde <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2543	2658	
==>();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builde <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36475	36569	
==>which any two source relations are
combined is inconsequential.  A trivial case is where C<@oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41024	41118	
==>which any two source relations are
combined is inconsequential.  A trivial case is where C<@oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40638	40732	
==>which any two source relations are
combined is inconsequential.  A trivial case is where C<@oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20777	20928	
==>fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20777	20928	
==>fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20777	20928	
==>fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1083	1177	
==>malVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1083	1177	
==>malVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOP <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1083	1177	
==>malVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOP <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11543	11703	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3055	3215	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11543	11703	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3055	3215	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11543	11703	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3055	3215	
==>) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var arr = <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2042	2238	
==>YE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::Keyed <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2042	2238	
==>YE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::Keyed <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15756	15853	
==>(@test_files);

Calculates how wide the leader should be based on the length of the
longest test n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1882	1975	
==>pport anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1882	1975	
==>pport anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1882	1975	
==>pport anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CO <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9077	9186	
==>?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9077	9186	
==>?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            ' <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1336	1431	
==>y main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
eve <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1336	1431	
==>y main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
eve <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1225	1316	
==>gine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=he <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1225	1316	
==>gine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=he <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6560	6659	
==>⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operat <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5690	5789	
==>⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operat <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6560	6659	
==>⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operat <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5690	5789	
==>⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1	95	
==>package Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1	95	
==>package Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	35	138	
==>GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	35	138	
==>GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	35	136	
==>GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	35	136	
==>GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs: <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5802	5890	
==>mk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschm <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5802	5890	
==>mk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1163	1260	
==>like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1163	1260	
==>like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1163	1260	
==>like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4216	4307	
==>IL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::sy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4216	4307	
==>IL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::sy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4216	4307	
==>IL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::sy <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13229	13377	
==>ch[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13223	13371	
==>ch[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, - <==
6	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	484	628	
==>ey, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12126	12254	
==>hReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO d <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2528	2642	
==>hReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO d <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2528	2642	
==>hReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3464	3553	
==>-------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ----- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3487	3576	
==>--------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3510	3599	
==>---------
## BOOTSTRAPPING COMPLETE
## --------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5366	5455	
==>-------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ----- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5389	5478	
==>--------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5412	5501	
==>---------
## BOOTSTRAPPING COMPLETE
## --------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7069	7195	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10039	10165	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7069	7195	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10039	10165	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7069	7195	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10039	10165	
==>he basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30167	30305	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31896	32034	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30167	30305	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31896	32034	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30167	30305	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31896	32034	
==>th = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6538	6666	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9508	9636	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6538	6666	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9508	9636	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6538	6666	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9508	9636	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20078	20199	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17217	17338	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20078	20199	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17217	17338	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20078	20199	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17217	17338	
==>les
        # so they are added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4872	4982	
==>arameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4872	4982	
==>arameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4872	4982	
==>arameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1306	1405	
==>); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub exp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1306	1405	
==>); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub exp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1306	1405	
==>); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17165	17311	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17165	17311	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17165	17311	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($t <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	19325	19425	
==>rimitive { die "Cannot 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is builtin is primitive is saf <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3004	3101	
==>hods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $on <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3004	3101	
==>hods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5951	6075	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8921	9045	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5951	6075	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8921	9045	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5951	6075	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8921	9045	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Met <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8147	8292	
==>d, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pref <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4507	4652	
==>d, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pref <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5356	5501	
==>d, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	101	191	
==>h::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	101	191	
==>h::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	101	191	
==>h::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	782	895	
==>sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	782	895	
==>sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	782	895	
==>sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1725	1837	
==>ocument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.sc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1725	1837	
==>ocument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.sc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1725	1837	
==>ocument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15334	15461	
==>_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15334	15461	
==>_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15334	15461	
==>_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	293	396	
==>ss $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrouti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	293	396	
==>ss $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrouti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	293	396	
==>ss $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrouti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1620	1732	
==>nce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1620	1732	
==>nce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1620	1732	
==>nce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	275	373	
==>cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	275	373	
==>cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	275	373	
==>cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3805	3915	
==>($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3805	3915	
==>($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3805	3915	
==>($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	804	912	
==>sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	804	912	
==>sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	804	912	
==>sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4287	4391	
==>ent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argu <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4287	4391	
==>ent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argu <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4877	4981	
==>ent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2566	2667	
==>sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2566	2667	
==>sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2566	2667	
==>sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12429	12582	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16940	17093	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12429	12582	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16940	17093	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12429	12582	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16940	17093	
==>patcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5027	5187	
==>ar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5027	5187	
==>ar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5027	5187	
==>ar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "valu <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	505	635	
==>6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "Yo <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	505	635	
==>6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "Yo <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22553	22651	
==>tifier> <':'> <Statement>
}
rule ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTermin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7167	7275	
==>ss ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3771	3879	
==>ss ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4620	4728	
==>ss ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32736	32831	
==>e tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37286	37381	
==>e tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exc <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36603	36698	
==>e tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15460	15643	
==>join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18937	19120	
==>join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40321	40417	
==>inent notices stating that you changed the files and the date of any
changes, in addition to pres <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25845	25941	
==>inent
notices stating that you changed the files and the date of any changes, in
addition to pres <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40321	40417	
==>inent notices stating that you changed the files and the date of any
changes, in addition to pres <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25845	25941	
==>inent
notices stating that you changed the files and the date of any changes, in
addition to pres <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3711	4059	
==>ew(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1130	1232	
==>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1130	1232	
==>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1130	1232	
==>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1895	1989	
==>tand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1895	1989	
==>tand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2905	3019	
==>xt;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;} <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1279	1393	
==>xt;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2905	3019	
==>xt;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2905	3019	
==>xt;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;} <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	664	756	
==>------------------------
## private methods

my method set_height ($self: Tree $child) return <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	664	756	
==>------------------------
## private methods

my method set_height ($self: Tree $child) return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38027	38178	
==>_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38027	38178	
==>_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38027	38178	
==>_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array-> <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10329	10434	
==>>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(: <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10329	10434	
==>>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(: <==
6	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	88	176	
==>stall/WriteAll.pm"
package Module::Install::WriteAll;
use Module::Install::Base; @ISA = q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6719	6844	
==>!perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6719	6844	
==>!perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6719	6844	
==>!perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2963	3077	
==>is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2963	3077	
==>is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my In <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2963	3077	
==>is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14526	14625	
==>$xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	630	729	
==>ub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14526	14625	
==>$xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	630	729	
==>ub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0.. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14526	14625	
==>$xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	630	729	
==>ub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0.. <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4400	4557	
==>t      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre     pair    safe   (List)\
\\n   Any       pre     re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16914	17044	
==>}
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NA <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16914	17044	
==>}
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NA <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16914	17044	
==>}
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NA <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18971	19067	
==>referrer, this method removes the fragment from the
given URI if it is present, as mandated by RF <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18971	19067	
==>referrer, this method removes the fragment from the
given URI if it is present, as mandated by RF <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12240	12355	
==>t tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.heade <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12240	12355	
==>t tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.heade <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3837	3944	
==>ETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3837	3944	
==>ETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3837	3944	
==>ETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @par <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1894	2000	
==>itrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1018	1117	
==>};

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1018	1117	
==>};

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1018	1117	
==>};

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9535	9622	
==>nternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9535	9622	
==>nternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9535	9622	
==>nternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3781	3898	
==>utput($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filt <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3781	3898	
==>utput($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filt <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15154	15259	
==>tter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and j <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18631	18736	
==>tter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and j <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18047	18152	
==>tter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and j <==
6	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	751	850	
==>ue|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|O <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5395	5521	
==>apture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5588	5714	
==>apture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $ru <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5079	5180	
==>rn $self unless $self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5728	5820	
==>MODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMOD <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5728	5820	
==>MODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMOD <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5728	5820	
==>MODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMOD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5081	5188	
==>Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5081	5188	
==>Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5081	5188	
==>Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16965	17052	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16965	17052	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16965	17052	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9490	9644	
==>( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15034	15188	
==>( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9490	9644	
==>( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15028	15182	
==>( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> n <==
6	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	117	217	
==>ss $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count <==
6	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	117	217	
==>ss $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	708	841	
==>r File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	708	841	
==>r File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	9917	10040	
==>1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7857	7980	
==>1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9917	10040	
==>1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7857	7980	
==>1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	737	848	
==>aram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => $param->{n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2737	2847	
==>S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2737	2847	
==>S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2737	2847	
==>S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	719	827	
==>aram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{n <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	719	827	
==>aram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{n <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	384	492	
==>ss: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	384	492	
==>ss: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21123	21219	
==>a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are nor <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20031	20127	
==>a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are nor <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21123	21219	
==>a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are nor <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20031	20127	
==>a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are nor <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11295	11413	
==>t is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14772	14890	
==>t is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14080	14198	
==>t is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2246	2344	
==>6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2246	2344	
==>6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2246	2344	
==>6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	114	230	
==>shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compi <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	114	230	
==>shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compi <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17376	17476	
==>t    ( Str $string = CALLER::<$_> --> Str )

Performs a Unicode "titlecase" operation on the first ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1468	1563	
==>:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1468	1563	
==>:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1468	1563	
==>:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2152	2286	
==>RE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2152	2286	
==>RE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2152	2286	
==>RE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16566	16680	
==>RE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16566	16680	
==>RE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16566	16680	
==>RE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15256	15382	
==>STROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15256	15382	
==>STROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15256	15382	
==>STROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3319	3427	
==>ram{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3319	3427	
==>ram{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3319	3427	
==>ram{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7525	7669	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5084	5228	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7525	7669	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5084	5228	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7525	7669	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5084	5228	
==>onemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$su <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3314	3437	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11872	11995	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6439	6562	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3314	3437	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11872	11995	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6439	6562	
==>y %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7519	7616	
==>t;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@bloc <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7519	7616	
==>t;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@bloc <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	29861	29951	
==>e.

Implement Straps callbacks.  (experimentally implemented)

Straps->analyze_file() not t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16427	16514	
==>th this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16427	16514	
==>th this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16427	16514	
==>th this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::ma <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12350	12458	
==>$2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port ( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12350	12458	
==>$2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port ( <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3416	3515	
==>ub-local=$grub_local
    Locally, the GRUB tarball is saved as --grub-local.
  --pugs=$pugs
    mkli <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2022	2115	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2022	2115	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2022	2115	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	391	558	
==>one(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

m <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	391	558	
==>one(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10635	10759	
==>utes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # Fi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14112	14236	
==>utes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # Fi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13411	13535	
==>utes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # Fi <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	12	115	
==>de-0.0.1;

use v6;


=kwid

There are a couple of things going on here.

* These are perl6 implementatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2913	3017	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5443	5547	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2913	3017	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5443	5547	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2913	3017	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5443	5547	
==>copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$c <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	13598	13730	
==>tput_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfile($sy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	322	445	
==>} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	322	445	
==>} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	322	445	
==>} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23722	23837	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24001	24116	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	326	414	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1485	1573	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	326	414	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1485	1573	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	326	414	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1485	1573	
==>->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}->{pVa <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7164	7265	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6294	6395	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2948	3049	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2948	3049	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7164	7265	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6294	6395	
==>turns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7819	7934	
==>if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7819	7934	
==>if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7819	7934	
==>if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4096	4195	
==>{
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4096	4195	
==>{
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4096	4195	
==>{
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL:: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6003	6141	
==>es{"$op->{fixity}_$op->{assoc}"};
                    unless ( defined $t ) {
                        warn "can't find template for '$op- <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1100	1192	
==>header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entit <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1100	1192	
==>header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1466	1555	
==>e_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1466	1555	
==>e_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1466	1555	
==>e_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1211	1392	
==>ix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	967	1069	
==>_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1104	1206	
==>_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0] <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12356	12452	
==>class represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12356	12452	
==>class represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26251	26346	
==>fails, the C<pos()> value won't be reset (due to the C</c>
modifier).  Remember to use I<scalar> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5615	5716	
==>dy = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5615	5716	
==>dy = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5615	5716	
==>dy = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11355	11454	
==>the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14832	14931	
==>the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14140	14239	
==>the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Re <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	855	989	
==>.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4094	4228	
==>.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	855	989	
==>.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4094	4228	
==>.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3060	3185	
==>.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3060	3185	
==>.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24541	24663	
==>$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24541	24663	
==>$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24541	24663	
==>$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2856	2953	
==>:Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2856	2953	
==>:Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2856	2953	
==>:Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4269	4392	
==>@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4269	4392	
==>@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4269	4392	
==>@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2613	2727	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} el <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2613	2727	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} el <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2613	2727	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11254	11403	
==>l_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11254	11403	
==>l_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11254	11403	
==>l_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	814	904	
==>est::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_d <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	814	904	
==>est::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	894	984	
==>est::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_d <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8626	8755	
==>or capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4986	5115	
==>or capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5835	5964	
==>or capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1939	2038	
==>ndalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1939	2038	
==>ndalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1939	2038	
==>ndalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8430	8551	
==>re - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	588	709	
==>re - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	858	977	
==>re - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8147	8266	
==>re - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	562	681	
==>re - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	858	977	
==>re - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13525	13630	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10809	10914	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13525	13630	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10809	10914	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13525	13630	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10809	10914	
==>class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	280	386	
==>ed or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	280	386	
==>ed or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._ex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	280	386	
==>ed or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._ex <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7225	7418	
==>\&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       rul <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7418	7611	
==>\&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       rul <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23969	24071	
==>servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obje <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22742	22844	
==>servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obje <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23969	24071	
==>servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obje <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22742	22844	
==>servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4365	4481	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7301	7417	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4365	4481	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7301	7417	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4365	4481	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7301	7417	
==>to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($method, $asso <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3834	3946	
==>XX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name & <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3834	3946	
==>XX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name & <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3834	3946	
==>XX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name & <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6038	6131	
==>pe', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'V <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6038	6131	
==>pe', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'V <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2937	3030	
==>pe', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3456	3625	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6392	6561	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3456	3625	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6392	6561	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3456	3625	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6392	6561	
==>g;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6210	6357	
==>t ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninit <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6210	6357	
==>t ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1764	1883	
==>ype ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1764	1883	
==>ype ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1764	1883	
==>ype ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_metho <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	3732	3824	
==>", Pugs.Version.versnum)
    ,("pugs_version", Pugs.Version.version)
    ,("pugs_revision", P <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	11687	11795	
==>ine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data:: <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	178	279	
==>:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kein Standard-Operator!
3!  		# 3.postf <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	373	469	
==>_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	373	469	
==>_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1386	1481	
==>_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1386	1481	
==>_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13648	13819	
==>et->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13648	13819	
==>et->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13648	13819	
==>et->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5165	5261	
==>en compiling (--link option not given), there has to be only one input file.
In linking mode, mul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5165	5261	
==>en compiling (--link option not given), there has to be only one input file.
In linking mode, mul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5165	5261	
==>en compiling (--link option not given), there has to be only one input file.
In linking mode, mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25609	25724	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27804	27919	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25609	25724	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27804	27919	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25609	25724	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27804	27919	
==>ed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3248	3353	
==>ork?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3248	3353	
==>ork?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20810	20904	
==>describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which h <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19727	19821	
==>describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20810	20904	
==>describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19727	19821	
==>describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7972	8075	
==>no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7972	8075	
==>no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7972	8075	
==>no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	216	310	
==>x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	216	310	
==>x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	216	310	
==>x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3048	3196	
==>es = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3048	3196	
==>es = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { matc <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3263	3370	
==>ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3263	3370	
==>ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7278	7370	
==>ontent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CR <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7278	7370	
==>ontent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CR <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18059	18176	
==>meout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17097	17214	
==>meout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18059	18176	
==>meout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17097	17214	
==>meout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5563	5656	
==>n} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5563	5656	
==>n} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys) <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5741	5852	
==>$cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

su <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5741	5852	
==>$cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

su <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23151	23248	
==>mmand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=h <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21960	22057	
==>mmand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23151	23248	
==>mmand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=h <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21960	22057	
==>mmand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=h <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	186	302	
==>,

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	186	302	
==>,

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	186	302	
==>,

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	186	302	
==>,

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	16379	16473	
==>Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights re <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16437	16531	
==>Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1185	1287	
==>repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - crea <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1185	1287	
==>repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - crea <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1185	1287	
==>repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - crea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	549	648	
==>n $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	549	648	
==>n $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	549	648	
==>n $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	113	214	
==>, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	113	214	
==>, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	113	214	
==>, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensio <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	113	214	
==>, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensio <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5303	5395	
==>he LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The A <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5303	5395	
==>he LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2809	2942	
==>" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2809	2942	
==>" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2809	2942	
==>" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2486	2585	
==>lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2486	2585	
==>lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2486	2585	
==>lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4677	4797	
==>ft;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13102	13222	
==>ft;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15713	15833	
==>ft;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17201	17321	
==>ft;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21884	22004	
==>ft;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else { <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	529	628	
==>eturn $self->reduce($program) unless @nodes;

	$self->{seen} = { map { $_ => $_ } @nodes };
	$self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4028	4135	
==>am{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4028	4135	
==>am{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4028	4135	
==>am{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3436	3535	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6450	6549	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8518	8617	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3436	3535	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6450	6549	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8518	8617	
==>names) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5303	5435	
==>=>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5303	5435	
==>=>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	986	1112	
==>st Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition F <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	986	1112	
==>st Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition F <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	10303	10401	
==>tests which are
expected to run. This should be specified at the very top of your tests.

- `force_ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10361	10459	
==>tests which are
expected to run. This should be specified at the very top of your tests.

- `force_ <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1187	1290	
==>de\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.141592653589793238462 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2429	2525	
==>b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $map <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2429	2525	
==>b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $map <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2429	2525	
==>b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $map <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11296	11390	
==>ion( $recurrence )`

Returns all elements both from this recurrence and from the given recurren <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11296	11390	
==>ion( $recurrence )`

Returns all elements both from this recurrence and from the given recurren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5197	5298	
==>$self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5197	5298	
==>$self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5197	5298	
==>$self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13060	13192	
==>self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13060	13192	
==>self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13060	13192	
==>self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35570	35684	
==>_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35570	35684	
==>_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35570	35684	
==>_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6334	6452	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9304	9422	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6334	6452	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9304	9422	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6334	6452	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9304	9422	
==>nt
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	346	452	
==>args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	346	452	
==>args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	346	452	
==>args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    m <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1228	1333	
==>ny hope of working soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expre <==
6	/Users/nnunley/pugs/blib6/lib/lib.pm	1592	1684	
==>ittle <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights r <==
6	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1592	1684	
==>ittle <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights r <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5637	5752	
==><'debugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	98	207	
==>t nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	98	207	
==>t nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	98	207	
==>t nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4823	4926	
==>ersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4823	4926	
==>ersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2989	3110	
==>\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2989	3110	
==>\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2989	3110	
==>\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12437	12539	
==>b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12437	12539	
==>b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12437	12539	
==>b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4722	4859	
==>g: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Cou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4722	4859	
==>g: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Cou <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4722	4859	
==>g: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	925	1022	
==>ct "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	925	1022	
==>ct "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$na <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	925	1022	
==>ct "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$na <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2934	3039	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10857	10962	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6059	6164	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2934	3039	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10857	10962	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6059	6164	
==>> %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_with_msg( <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	985	1096	
==>aker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1876	1987	
==>aker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	46	145	
==>as $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	46	145	
==>as $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	7432	7529	
==>start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringif <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7432	7529	
==>start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9349	9467	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6896	7014	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9349	9467	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6896	7014	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9349	9467	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6896	7014	
==>adth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11259	11384	
==>];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11259	11384	
==>];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11259	11384	
==>];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1592	1680	
==>S::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1592	1680	
==>S::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1592	1680	
==>S::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3491	3601	
==>igened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3491	3601	
==>igened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3491	3601	
==>igened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12927	13029	
==>igened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12927	13029	
==>igened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12927	13029	
==>igened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($labe <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4559	4666	
==>polation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4559	4666	
==>polation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6450	6544	
==>~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_int <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5523	5617	
==>~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_int <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6450	6544	
==>~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_int <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5523	5617	
==>~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_int <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5186	5299	
==>*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5186	5299	
==>*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5186	5299	
==>*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4584	4691	
==>(" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4584	4691	
==>(" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4584	4691	
==>(" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1863	2005	
==>$p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1863	2005	
==>$p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1863	2005	
==>$p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12376	12478	
==>n::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12376	12478	
==>n::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12376	12478	
==>n::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULT <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19805	19901	
==>object is determined when it is constructed, and the object can
not be changed afterwards.

If yo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24357	24453	
==>object is determined when it is constructed, and the object can
not be changed afterwards.

If yo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22909	23005	
==>object is determined when it is constructed, and the object can
not be changed afterwards.

If yo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2341	2456	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4668	4783	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2341	2456	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4668	4783	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2341	2456	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4668	4783	
==>ame)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	897	1013	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	897	1013	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	897	1013	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	404	513	
==>tr;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	404	513	
==>tr;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	404	513	
==>tr;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::R <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7170	7280	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6300	6410	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2954	3064	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2954	3064	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7170	7280	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6300	6410	
==>Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24525	24693	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26714	26882	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24525	24693	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26714	26882	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24525	24693	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26714	26882	
==>rn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4481	4575	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6430	6524	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4481	4575	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6430	6524	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4481	4575	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6430	6524	
==>al $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24901	25087	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27090	27276	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24901	25087	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27090	27276	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24901	25087	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27090	27276	
==>d $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2180	2315	
==>use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        give <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2180	2315	
==>use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        give <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1997	2104	
==>end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1997	2104	
==>end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	663	758	
==>ableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	663	758	
==>ableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler: <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16664	16769	
==>EEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4822	4922	
==>die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4822	4922	
==>die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4822	4922	
==>die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7794	7883	
==>ss_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
pu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1619	1708	
==>ss_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3275	3378	
==>hod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3275	3378	
==>hod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3275	3378	
==>hod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	431	528	
==>= $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	431	528	
==>= $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	431	528	
==>= $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16018	16156	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20735	20873	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16018	16156	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20735	20873	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16018	16156	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20735	20873	
==>timethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $reg <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7149	7301	
==>ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7342	7494	
==>ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3124	3231	
==>\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3124	3231	
==>\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3124	3231	
==>\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24776	24874	
==>-style functions for easy access to the parser
object's most important attributes:

  # access to t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31939	32032	
==>Relation in its C<$other> argument, where <$other> has the same heading as
the invocant Relati <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33800	33893	
==>Relation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5554	5647	
==>etta Engine which will implement database access requests.
    my Rosetta::Interface::Engine $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36489	36582	
==>Relation in its C<$other> argument, where <$other> has the same heading as
the invocant Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38350	38443	
==>Relation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relati <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5554	5647	
==>etta Engine which will implement database access requests.
    my Rosetta::Interface::Engine $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4811	4923	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7460	7572	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5026	5135	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11475	11584	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5026	5135	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11475	11584	
==>d = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    retur <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1889	2009	
==>f ($Config{cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2875	2986	
==>Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2875	2986	
==>Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2875	2986	
==>Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1695	1804	
==>unctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1695	1804	
==>unctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3190	3319	
==>);                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3190	3319	
==>);                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3190	3319	
==>);                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4873	4992	
==>);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4873	4992	
==>);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4873	4992	
==>);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_ <==
6	/Users/nnunley/pugs/util/version_h.pl	1616	1759	
==>ine =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision ||= 0;
print "Current version is $revision\n";

if ($revision != $ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4852	4962	
==>PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pAr <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4852	4962	
==>PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pAr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19407	19496	
==>p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19407	19496	
==>p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19407	19496	
==>p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5079	5218	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6040	6179	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5079	5218	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6040	6179	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5079	5218	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6040	6179	
==>boxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3639	3776	
==>t $offset = 0,
			    Int $length,
			    *@values
			    --> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = <==
6	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2244	2349	
==>$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2633	2728	
==>ics.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently the most complet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2773	2864	
==>">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2773	2864	
==>">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2773	2864	
==>">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2860	2980	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2860	2980	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2860	2980	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	230	336	
==>should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	230	336	
==>should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	230	336	
==>should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym] <==
6	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1457	1589	
==>Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17836	17934	
==>g the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4256	4354	
==>hod('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17836	17934	
==>g the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4256	4354	
==>hod('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4256	4354	
==>hod('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3403	3508	
==>lice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3403	3508	
==>lice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcir <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3403	3508	
==>lice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcir <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3234	3335	
==>n PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3234	3335	
==>n PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3234	3335	
==>n PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2521	2661	
==>};
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nume <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2521	2661	
==>};
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nume <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2521	2661	
==>};
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nume <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3109	3218	
==>ub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3109	3218	
==>ub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3109	3218	
==>ub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5018	5108	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3246	3336	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5018	5108	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3246	3336	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5018	5108	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3246	3336	
==>return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatche <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3217	3406	
==>h ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\. <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3217	3406	
==>h ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	169	287	
==>gex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	163	281	
==>gex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $pa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	169	287	
==>gex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $pa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	163	281	
==>gex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	695	800	
==>thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	695	800	
==>thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	695	800	
==>thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7073	7174	
==>_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done agai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7073	7174	
==>_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done agai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7073	7174	
==>_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done agai <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13109	13233	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13109	13233	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13109	13233	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5349	5473	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3849	3973	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1994	2118	
==>warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	671	782	
==>ever seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	671	782	
==>ever seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23964	24068	
==>s to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The o <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22737	22841	
==>s to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23964	24068	
==>s to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The o <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22737	22841	
==>s to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12558	12685	
==>cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12558	12685	
==>cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12558	12685	
==>cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	673	774	
==>%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	673	774	
==>%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	673	774	
==>%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $ <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1915	2021	
==>pe_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Express <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1915	2021	
==>pe_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Express <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5836	5940	
==>rrent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5836	5940	
==>rrent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5836	5940	
==>rrent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fro <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6945	7045	
==>pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error(mob, pos, "\\1 and \\012 il <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4409	4552	
==>s => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4409	4552	
==>s => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4409	4552	
==>s => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8126	8249	
==>jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys % <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8126	8249	
==>jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys % <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8126	8249	
==>jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys % <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17913	18026	
==>{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n";};
    $cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9294	9403	
==>----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9294	9403	
==>----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9294	9403	
==>----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30460	30558	
==>e for the rest
of the set. There is a separate template module for each distinct "user
language" (o <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30460	30558	
==>e for the rest
of the set. There is a separate template module for each distinct "user
language" (o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25417	25597	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27612	27792	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25417	25597	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27612	27792	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25417	25597	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27612	27792	
==>mp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->e <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7153	7259	
==>ad;
}


# signature from S29draft.pod 8651.  In the List section.
multi Array::grep (@values ;      Code *& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	132	232	
==>ent
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucket <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	132	232	
==>ent
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucket <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	132	232	
==>ent
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucket <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21295	21390	
==>tabases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21295	21390	
==>tabases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1591	1716	
==>l is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1591	1716	
==>l is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1591	1716	
==>l is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	378	481	
==>we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (whi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	378	481	
==>we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (whi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	378	481	
==>we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (whi <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5222	5498	
==>,
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8263	8398	
==>type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_bod <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8263	8398	
==>type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5409	5520	
==>le->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5409	5520	
==>le->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5409	5520	
==>le->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4824	4950	
==>pe;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13249	13375	
==>pe;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15860	15986	
==>pe;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17348	17474	
==>pe;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22031	22157	
==>pe;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11612	11701	
==>E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Comparato <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5823	6026	
==>ack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $tok <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5823	6026	
==>ack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $tok <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4955	5125	
==>ack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $tok <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4955	5125	
==>ack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $tok <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4899	4996	
==>t',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LVa <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4899	4996	
==>t',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LVa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10341	10482	
==>= (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10341	10482	
==>= (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10341	10482	
==>= (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	587	687	
==>ction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	587	687	
==>ction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	587	687	
==>ction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5099	5248	
==>else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    i <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9399	9531	
==>NKING unless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a situation where no <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5057	5186	
==>data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16093	16222	
==>data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17581	17710	
==>data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22264	22393	
==>data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33178	33280	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33583	33685	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35566	35668	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37728	37830	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38133	38235	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40116	40218	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1246	1368	
==>mToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alter <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1595	1712	
==>mToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alter <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1202	1319	
==>mToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alter <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1595	1712	
==>mToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alter <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24785	24881	
==>dy () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<siz <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29337	29433	
==>dy () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<siz <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1730	1854	
==>s "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1730	1854	
==>s "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1730	1854	
==>s "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_ <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10542	10664	
==>trd_mnt/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/bash"],
    [$inputrc              => "$initrd_mnt/etc <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2695	2814	
==>and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta obje <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3159	3278	
==>and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta obje <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2988	3085	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6002	6099	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8070	8167	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2988	3085	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6002	6099	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8070	8167	
==>pdir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34810	34907	
==>'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attri <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34810	34907	
==>'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attri <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8842	8938	
==>ed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@br <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3771	3867	
==>ed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@br <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8842	8938	
==>ed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@br <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3771	3867	
==>ed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@br <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4789	4888	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3916	4015	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	702	801	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	702	801	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4789	4888	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3916	4015	
==>e.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3847	3951	
==>the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3847	3951	
==>the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3847	3951	
==>the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7217	7319	
==>join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7217	7319	
==>join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7217	7319	
==>join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3836	3945	
==>exp_hook_exec failed - didnt return anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	165	272	
==>ar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fg <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	158	262	
==>ar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	777	877	
==>posefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibili <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	777	877	
==>posefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibili <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	777	877	
==>posefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibili <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10768	10882	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15309	15423	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10768	10882	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15309	15423	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10768	10882	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15309	15423	
==>_table_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8175	8300	
==>) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8175	8300	
==>) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8175	8300	
==>) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13099	13209	
==>-------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13099	13209	
==>-------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::me <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13099	13209	
==>-------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::me <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1950	2072	
==>ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1950	2072	
==>ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    retu <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24863	24962	
==>its fast rejection
 * of lines that cannot possibly match.  The regmust tests are costly enough
 * t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8152	8246	
==>other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8152	8246	
==>other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8152	8246	
==>other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2284	2439	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11152	11307	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12111	12266	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2477	2632	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11431	11586	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12390	12545	
==>nt'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1139	1288	
==>ete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1279	1428	
==>ete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2247	2354	
==>utput .= _draw_role($role);
        $output .= "node_" . $role->id . " -- node_" . $class->id . " [ dir = ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3973	4077	
==>rent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3973	4077	
==>rent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3973	4077	
==>rent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7274	7459	
==>Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7274	7459	
==>Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $st <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7274	7459	
==>Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	860	968	
==>has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	860	968	
==>has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	860	968	
==>has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3621	3735	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6557	6671	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3621	3735	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6557	6671	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3621	3735	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6557	6671	
==>ke them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($me <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4778	4912	
==>) ),
        'bool::false' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pu <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48746	48878	
==>d label
        symbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	3295	3402	
==>2th line\n" ],
      [ 'file21', $file21, "12th line\n\n\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { Chec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1115	1219	
==>s
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remove <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1115	1219	
==>s
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remove <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1115	1219	
==>s
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10643	10768	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15184	15309	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10643	10768	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15184	15309	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10643	10768	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15184	15309	
==>however, we dont actually need to go there
            # if what we are asking for is a private method
            if $method_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2381	2526	
==>pty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_mess <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2381	2526	
==>pty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_mess <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12043	12139	
==>set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the sam <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9164	9260	
==>set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the sam <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12043	12139	
==>set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the sam <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9164	9260	
==>set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the sam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15937	16034	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20654	20751	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15937	16034	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20654	20751	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15937	16034	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20654	20751	
==>lti => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pure:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24311	24418	
==>[],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24311	24418	
==>[],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24311	24418	
==>[],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	62	160	
==>:Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to P <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	62	160	
==>:Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to P <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5005	5102	
==>method BUILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	549	752	
==>s;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	549	752	
==>s;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	549	752	
==>s;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2673	2809	
==>dy);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2673	2809	
==>dy);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2673	2809	
==>dy);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	586	705	
==>s(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	586	705	
==>s(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	586	705	
==>s(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            _26m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2940	3040	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2940	3040	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2940	3040	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      _26m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6726	6835	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9696	9805	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6726	6835	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9696	9805	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6726	6835	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9696	9805	
==>sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4494	4587	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6443	6536	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4494	4587	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6443	6536	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4494	4587	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6443	6536	
==>UBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13156	13285	
==>NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13156	13285	
==>NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13156	13285	
==>NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27452	27546	
==>keys of C<$attrs> provide the names of the new attributes, and
the values provide values applie <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32004	32098	
==>keys of C<$attrs> provide the names of the new attributes, and
the values provide values applie <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31087	31181	
==>keys of C<$attrs> provide the names of the new attributes, and
the values provide values applie <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2725	2831	
==>erer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cip <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2725	2831	
==>erer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cip <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1205	1308	
==>";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2114	2217	
==>";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1205	1308	
==>";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2114	2217	
==>";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3143	3252	
==>ld'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3143	3252	
==>ld'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3143	3252	
==>ld'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am = <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	61	160	
==>e;
use Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first attempt at a primitive 
s-ex <==
6	/Users/nnunley/pugs/util/package-osx.pl	8178	8275	
==>pec::Structure.3pm
        /usr/local/man/man3/Perl6::Spec::Subroutine.3pm
        /usr/local/man/ <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25613	25694	
==>,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_,_,_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41071	41173	
==>erl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41071	41173	
==>erl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41071	41173	
==>erl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14818	14909	
==>l code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14818	14909	
==>l code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14818	14909	
==>l code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3765	3899	
==>) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7] <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5082	5216	
==>) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3765	3899	
==>) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5070	5204	
==>) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7] <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7824	7954	
==>md) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7824	7954	
==>md) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15029	15132	
==>xa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15029	15132	
==>xa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15029	15132	
==>xa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	403	504	
==>rompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	403	504	
==>rompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	403	504	
==>rompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	612	768	
==>rint "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	612	768	
==>rint "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	612	768	
==>rint "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	882	986	
==>y) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	882	986	
==>y) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	882	986	
==>y) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19255	19372	
==>cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        metho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19100	19195	
==>onstructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for ex <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19100	19195	
==>onstructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11328	11421	
==>ortant that submethods are used
because they will not get inherited. This provides more predic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11328	11421	
==>ortant that submethods are used
because they will not get inherited. This provides more predic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11328	11421	
==>ortant that submethods are used
because they will not get inherited. This provides more predic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12411	12533	
==>s) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12411	12533	
==>s) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12411	12533	
==>s) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3143	3248	
==>ads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3143	3248	
==>ads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3143	3248	
==>ads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lv <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1660	1793	
==>{
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2403	2536	
==>{
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1660	1793	
==>{
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2391	2524	
==>{
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	548	646	
==>thod parent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------------- <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	548	646	
==>thod parent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2957	3099	
==>s}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2957	3099	
==>s}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2957	3099	
==>s}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5740	5873	
==>s}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5740	5873	
==>s}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5740	5873	
==>s}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}} <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4657	4801	
==>(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item fro <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4657	4801	
==>(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item fro <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21136	21232	
==>ich has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=he <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20044	20140	
==>ich has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=he <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21136	21232	
==>ich has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=he <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20044	20140	
==>ich has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18867	19010	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16105	16248	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18867	19010	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16105	16248	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18867	19010	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16105	16248	
==>->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2688	2811	
==>new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2688	2811	
==>new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2688	2811	
==>new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	619	708	
==>:Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	619	708	
==>:Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	619	708	
==>:Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2712	2813	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3292	3393	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2712	2813	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3292	3393	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2712	2813	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3292	3393	
==>es = join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	503	604	
==>t 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	503	604	
==>t 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	503	604	
==>t 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5787	5886	
==>ice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5787	5886	
==>ice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5787	5886	
==>ice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6756	6857	
==>($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6756	6857	
==>($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6756	6857	
==>($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5618	5718	
==>l($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5618	5718	
==>l($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5618	5718	
==>l($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5454	5597	
==>inite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method gr <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5454	5597	
==>inite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method gr <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3914	4026	
==>ght;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    m <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4247	4359	
==>ght;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    m <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3914	4026	
==>ght;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    m <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4247	4359	
==>ght;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    m <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8271	8369	
==>tion is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8271	8369	
==>tion is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1710	1818	
==>rimitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1710	1818	
==>rimitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1710	1818	
==>rimitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1030	1134	
==>say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1030	1134	
==>say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1030	1134	
==>say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	319	431	
==>se {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $stru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	319	431	
==>se {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $stru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	319	431	
==>se {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $stru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3002	3098	
==>TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3002	3098	
==>TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3002	3098	
==>TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4272	4399	
==>g() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7749	7876	
==>g() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6733	6860	
==>g() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33983	34097	
==>erl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33983	34097	
==>erl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33983	34097	
==>erl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{i <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10497	10610	
==>.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we ca <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10497	10610	
==>.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we ca <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39569	39658	
==>ghts
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net> <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39569	39658	
==>ghts
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24293	24381	
==>ghts reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24293	24381	
==>ghts reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2337	2454	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4664	4781	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2337	2454	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4664	4781	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2337	2454	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4664	4781	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::At <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7630	7745	
==>s[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @base <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7630	7745	
==>s[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @base <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	42	157	
==>e DumpFile];
use Data::Dumper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14240	14326	
==>r::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14240	14326	
==>r::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14240	14326	
==>r::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	28	131	
==>:Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	28	131	
==>:Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dump <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10325	10421	
==>Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fatal <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8218	8314	
==>Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fatal <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10325	10421	
==>Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fatal <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8218	8314	
==>Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fatal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2809	2927	
==>f($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2809	2927	
==>f($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2809	2927	
==>f($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4038	4140	
==>=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4038	4140	
==>=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4038	4140	
==>=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9002	9132	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11975	12105	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9002	9132	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11975	12105	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9002	9132	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11975	12105	
==>methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2552	2668	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4879	4995	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2552	2668	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4879	4995	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2552	2668	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4879	4995	
==>d $name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17739	17931	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14959	15151	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17739	17931	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14959	15151	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17739	17931	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14959	15151	
==>ce method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11155	11275	
==>~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Te <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1625	1733	
==>~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Te <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1625	1733	
==>~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1446	1551	
==>Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1446	1551	
==>Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1446	1551	
==>Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared w <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	309	481	
==>if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = .. <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	309	481	
==>if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = .. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10277	10446	
==>ed";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10277	10446	
==>ed";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10277	10446	
==>ed";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unle <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	922	1028	
==>llback" if !defined($callback);
  my $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7602	7687	
==>----------------------------------------------------------------------------

## NOTE: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7602	7687	
==>----------------------------------------------------------------------------

## NOTE: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7602	7687	
==>----------------------------------------------------------------------------

## NOTE: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4072	4156	
==>----------------------------------------------------------------------------
## NOTE: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4072	4156	
==>----------------------------------------------------------------------------
## NOTE: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4072	4156	
==>----------------------------------------------------------------------------
## NOTE: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19865	19975	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17004	17114	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19865	19975	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17004	17114	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19865	19975	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17004	17114	
==>f ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store ins <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2033	2164	
==>n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2033	2164	
==>n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2113	2244	
==>n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5693	5810	
==>ay -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5693	5810	
==>ay -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5693	5810	
==>ay -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	397	521	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	395	519	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	397	521	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	395	519	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	397	521	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	395	519	
==>A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3990	4093	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2081	2184	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3990	4093	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2081	2184	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3990	4093	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2081	2184	
==>tcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method->($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11511	11666	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3023	3178	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11511	11666	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3023	3178	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11511	11666	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3023	3178	
==>r(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3012	3112	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6026	6126	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8094	8194	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3012	3112	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6026	6126	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8094	8194	
==>otdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8019	8149	
==>=> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8019	8149	
==>=> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8019	8149	
==>=> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2407	2504	
==>RE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::Ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2407	2504	
==>RE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::Ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2407	2504	
==>RE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::Ei <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2715	2813	
==>)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2715	2813	
==>)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2715	2813	
==>)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4310	4402	
==>gn; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4310	4402	
==>gn; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4310	4402	
==>gn; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	865	1022	
==>( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	865	1022	
==>( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13297	13411	
==>rn "test.pl had problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_sep};
	}

	my @ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3876	3976	
==>ESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3876	3976	
==>ESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3876	3976	
==>ESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2263	2386	
==>erl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2263	2386	
==>erl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2263	2386	
==>erl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10339	10434	
==>y $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10339	10434	
==>y $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10339	10434	
==>y $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11391	11517	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2903	3029	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11391	11517	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2903	3029	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11391	11517	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2903	3029	
==>unction ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16254	16373	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13465	13584	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16254	16373	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13465	13584	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16254	16373	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13465	13584	
==>lf, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
} <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4616	4748	
==>dren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remov <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4616	4748	
==>dren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1960	2084	
==>subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1960	2084	
==>subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1960	2084	
==>subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $ <==
6	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	489	606	
==>)

Iterate through it, of course.

=cut

sub new {
    my($proto, $thing) = @_;

    my $self = {};
    if( ref $thing <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	616	740	
==>0) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You ar <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	616	740	
==>0) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You ar <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8100	8193	
==>(@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7230	7323	
==>(@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8100	8193	
==>(@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7230	7323	
==>(@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8796	8937	
==>erl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9631	9772	
==>erl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	14093	14189	
==>entation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10320	10416	
==>entation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14093	14189	
==>entation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10320	10416	
==>entation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6330	6447	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9300	9417	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6330	6447	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9300	9417	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6330	6447	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9300	9417	
==>vocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) && $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3572	3693	
==>ndef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4889	5010	
==>ndef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3572	3693	
==>ndef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4877	4998	
==>ndef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20080	20175	
==>included in the "Rosetta" core
distribution to allow the core to be completely testable on its o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20080	20175	
==>included in the "Rosetta" core
distribution to allow the core to be completely testable on its o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3850	3982	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6786	6918	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3850	3982	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6786	6918	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3850	3982	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6786	6918	
==>onfess "You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15367	15532	
==>sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15367	15532	
==>sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15367	15532	
==>sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbox <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3943	4072	
==>'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3943	4072	
==>'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	793	922	
==>'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	98	206	
==>ck_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	98	206	
==>ck_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	98	206	
==>ck_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	97	204	
==>ck_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	97	204	
==>ck_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	97	204	
==>ck_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instance <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	170	274	
==>';
    protoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{package} cm <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	121	223	
==>st::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	121	223	
==>st::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	68	170	
==>uma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	68	170	
==>uma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	68	170	
==>uma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	309	408	
==>se vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# beca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	320	419	
==>se vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# beca <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8184	8273	
==>://www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title>Pugs Smoke Reports</title>
  <met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7667	7844	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5226	5403	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7667	7844	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5226	5403	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7667	7844	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5226	5403	
==>$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we f <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23425	23518	
==>ole rather than a Class, and some
implementations are immutable rather than mutable, this prop <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27977	28070	
==>ole rather than a Class, and some
implementations are immutable rather than mutable, this prop <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26781	26874	
==>ole rather than a Class, and some
implementations are immutable rather than mutable, this prop <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14164	14251	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14164	14251	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14164	14251	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20102	20235	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17241	17374	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20102	20235	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17241	17374	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20102	20235	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17241	17374	
==>e added to the Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we ne <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	223	351	
==>e' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4633	4761	
==>f = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13058	13186	
==>f = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15669	15797	
==>f = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17157	17285	
==>f = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21840	21968	
==>f = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11236	11386	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8789	8939	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11236	11386	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8789	8939	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11236	11386	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8789	8939	
==>he top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7526	7665	
==>med;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7514	7653	
==>med;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4388	4489	
==>y?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4388	4489	
==>y?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5261	5359	
==>y?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5261	5359	
==>y?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3183	3329	
==>param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3183	3329	
==>param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3183	3329	
==>param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	937	1034	
==>6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	937	1034	
==>6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	937	1034	
==>6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10554	10755	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8105	8306	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10554	10755	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8105	8306	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10554	10755	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8105	8306	
==>ack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_itera <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2067	2209	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2472	2614	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2067	2209	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2472	2614	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2067	2209	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2472	2614	
==>iable declarator outside a sub-scope!")
          unless $PIL::IN_SUBLIKE;
        <<EOF;
(function () {
  var backup_container = $jsname;
  va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3960	4071	
==>ys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3960	4071	
==>ys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3960	4071	
==>ys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38911	39018	
==>X - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38911	39018	
==>X - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38911	39018	
==>X - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8231	8424	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8231	8424	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8231	8424	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	776	874	
==>p data as p5
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dum <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12169	12263	
==>ntities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&a <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12169	12263	
==>ntities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7781	7887	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6911	7017	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3497	3603	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3497	3603	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7781	7887	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6911	7017	
==>ing shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15019	15164	
==>d[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15019	15164	
==>d[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15019	15164	
==>d[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19718	19862	
==>d[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19718	19862	
==>d[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19718	19862	
==>d[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4496	4637	
==>->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4496	4637	
==>->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4496	4637	
==>->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2177	2310	
==>->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2177	2310	
==>->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2177	2310	
==>->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7832	7948	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10755	10871	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7832	7948	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10755	10871	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7832	7948	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10755	10871	
==>this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7977	8116	
==>i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7977	8116	
==>i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7977	8116	
==>i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7500	7609	
==>is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7500	7609	
==>is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7500	7609	
==>is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29639	29746	
==>versement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (S <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29639	29746	
==>versement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11588	11690	
==>$f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11588	11690	
==>$f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::ev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11588	11690	
==>$f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::ev <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	443	538	
==>versement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8366	8492	
==>ub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8366	8492	
==>ub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8366	8492	
==>ub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3490	3585	
==>urn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3490	3585	
==>urn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3490	3585	
==>urn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10500	10719	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8051	8270	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10500	10719	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8051	8270	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10500	10719	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8051	8270	
==>o pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2458	2557	
==>it}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2458	2557	
==>it}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inv <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2458	2557	
==>it}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inv <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2903	3013	
==>{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2903	3013	
==>{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2903	3013	
==>{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8431	8533	
==>/[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8431	8533	
==>/[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8431	8533	
==>/[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4018	4161	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6954	7097	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4018	4161	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6954	7097	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4018	4161	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6954	7097	
==>TE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2481	2602	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2481	2602	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2481	2602	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3315	3426	
==>(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3315	3426	
==>(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3315	3426	
==>(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24929	25142	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27118	27331	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24929	25142	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27118	27331	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24929	25142	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27118	27331	
==>nite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19175	19282	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16413	16520	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19175	19282	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16413	16520	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19175	19282	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16413	16520	
==>h, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6583	6717	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9553	9687	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6583	6717	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9553	9687	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6583	6717	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9553	9687	
==>" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private met <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3415	3553	
==>$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3415	3553	
==>$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        retu <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5943	6043	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5073	5173	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5943	6043	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5073	5173	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4836	4957	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7485	7606	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5051	5166	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11500	11615	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5051	5166	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11500	11615	
==>, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13663	13777	
==>$?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17140	17254	
==>$?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16502	16616	
==>$?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	419	522	
==>e}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	419	522	
==>e}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	419	522	
==>e}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2343	2484	
==>h\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9115	9256	
==>h\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2343	2484	
==>h\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9115	9256	
==>h\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30446	30542	
==>ive alternative for the rest
of the set. There is a separate template module for each distinct "u <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30446	30542	
==>ive alternative for the rest
of the set. There is a separate template module for each distinct "u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8442	8561	
==>e of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	600	719	
==>e of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	870	987	
==>e of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8159	8276	
==>e of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	574	691	
==>e of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	870	987	
==>e of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	64	163	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	677	776	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	64	163	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	677	776	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	64	163	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	677	776	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = args <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4244	4368	
==>y @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4244	4368	
==>y @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1550	1651	
==>e: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1757	1858	
==>e: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1451	1547	
==>is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) ret <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1451	1547	
==>is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11534	11695	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3046	3207	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11534	11695	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3046	3207	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11534	11695	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3046	3207	
==>ngth; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20404	20530	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17543	17669	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20404	20530	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17543	17669	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20404	20530	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17543	17669	
==>ay other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4595	4706	
==>irs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8072	8183	
==>irs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7065	7176	
==>irs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1091	1198	
==>) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1091	1198	
==>) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1091	1198	
==>) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1204	1326	
==>);
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1204	1326	
==>);
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    " <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1204	1326	
==>);
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    " <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3760	3857	
==>his is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks tha <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3760	3857	
==>his is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks tha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3840	3937	
==>his is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks tha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7843	7984	
==>nt' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7843	7984	
==>nt' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7843	7984	
==>nt' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5680	5785	
==>handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becau <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5680	5785	
==>handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becau <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5680	5785	
==>handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becau <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2615	2731	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2615	2731	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2615	2731	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4954	5067	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4954	5067	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4954	5067	
==>('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3072	3181	
==>lass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3072	3181	
==>lass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3072	3181	
==>lass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14615	14709	
==>ee->[-1]->{zerolen} and $self->{max} eq '') {
        $rx->awarn($rx->RPe_NULNUL, $tree->[-1]-> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	541	634	
==>osetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exampl <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	541	634	
==>osetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exampl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30236	30369	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31965	32098	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30236	30369	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31965	32098	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30236	30369	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31965	32098	
==>length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4697	4824	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7633	7760	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4697	4824	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7633	7760	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4697	4824	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7633	7760	
==>sociated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # now w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5300	5407	
==>b")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5300	5407	
==>b")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5300	5407	
==>b")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4653	4757	
==>to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4653	4757	
==>to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4653	4757	
==>to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11361	11558	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2963	3160	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11361	11558	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2963	3160	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11361	11558	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2963	3160	
==>';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	161	275	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	161	275	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1749	1863	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1954	2068	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2017	2131	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	161	275	
==>sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20255	20343	
==>,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20255	20343	
==>,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20255	20343	
==>,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3396	3483	
==>attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4090	4177	
==>attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5298	5385	
==>attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10266	10395	
==>[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10266	10395	
==>[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10266	10395	
==>[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4742	4845	
==>ringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4742	4845	
==>ringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4742	4845	
==>ringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4479	4642	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6991	7154	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4479	4642	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6991	7154	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4479	4642	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6991	7154	
==>{
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private class m <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13783	13926	
==>1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3904	4035	
==>1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3904	4035	
==>1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3904	4035	
==>1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2665	2766	
==>ference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.interse <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2665	2766	
==>ference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.interse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	346	452	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	339	445	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	346	452	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	339	445	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	346	452	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	339	445	
==>s {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4246	4358	
==>);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4246	4358	
==>);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4246	4358	
==>);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7186	7281	
==>($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7186	7281	
==>($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7186	7281	
==>($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40730	40842	
==>:Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40730	40842	
==>:Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40730	40842	
==>:Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1956	2046	
==>@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1956	2046	
==>@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1956	2046	
==>@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6004	6132	
==>);
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7791	7916	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10714	10839	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7791	7916	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10714	10839	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7791	7916	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10714	10839	
==>ubmethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submethod ($) {
        my ($met <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1911	2019	
==>, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1911	2019	
==>, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1991	2099	
==>, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1322	1424	
==>positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1322	1424	
==>positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1531	1633	
==>positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param- <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5995	6112	
==>nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) {
      Renew(r->of <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27356	27455	
==>ermit changes to its attributes; they
must all be set when the object is constructed.  If you want t <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34882	34981	
==>ermit changes to its attributes;
they must all be set when the object is constructed.  If you want t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27356	27455	
==>ermit changes to its attributes; they
must all be set when the object is constructed.  If you want t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34882	34981	
==>ermit changes to its attributes;
they must all be set when the object is constructed.  If you want t <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	215	314	
==>hift;

    my $class = $self->compiler_class;

    $class->require or die $UNIVERSAL::require::ERROR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	644	816	
==>n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	644	816	
==>n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeou <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	644	816	
==>n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeou <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34081	34176	
==>f C<$other> does not have
an identical header to the invocant relation.  This method has aliases <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38631	38726	
==>f C<$other> does not have
an identical header to the invocant relation.  This method has aliases <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38092	38187	
==>f C<$other> does not have
an identical header to the invocant relation.  This method has aliases <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13591	13754	
==>List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13591	13754	
==>List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13591	13754	
==>List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3688	3843	
==>a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3688	3843	
==>a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3688	3843	
==>a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recu <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3830	3949	
==>NV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (- <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3830	3949	
==>NV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13039	13132	
==>eturns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersec <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9763	9856	
==>eturns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersec <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13039	13132	
==>eturns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersec <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9763	9856	
==>eturns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17784	17961	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15004	15181	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17784	17961	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15004	15181	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17784	17961	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15004	15181	
==>, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1056	1175	
==>E__->add_rule(
        '{' => q( { return { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { return { s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13135	13251	
==>m;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_obj <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6610	6726	
==>m;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6678	6775	
==>m, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6678	6775	
==>m, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6678	6775	
==>m, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2722	2938	
==>lass->new(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (de <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1907	2016	
==>has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1907	2016	
==>has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22568	22661	
==>has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ove <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27120	27213	
==>has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ove <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25852	25945	
==>has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	471	575	
==>};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	471	575	
==>};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	471	575	
==>};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1894	1988	
==>:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1894	1988	
==>:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1894	1988	
==>:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13129	13263	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13129	13263	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13129	13263	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5369	5503	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3869	4003	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2014	2148	
==>t past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4053	4171	
==>) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4053	4171	
==>) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $curr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4053	4171	
==>) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $curr <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28581	28678	
==>es
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33133	33230	
==>es
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32261	32358	
==>es
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	972	1099	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1060	1187	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	972	1099	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1060	1187	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	972	1099	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1060	1187	
==>njs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13583	13755	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13583	13755	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13583	13755	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5829	6001	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4329	4501	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2468	2640	
==>]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2844	2962	
==>", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2844	2962	
==>", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2844	2962	
==>", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4728	4839	
==>alias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4728	4839	
==>alias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5318	5429	
==>alias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2775	2898	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5765	5888	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3067	3182	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9485	9600	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3067	3182	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9485	9600	
==>], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13429	13636	
==>ow how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13429	13636	
==>ow how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13429	13636	
==>ow how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4296	4409	
==>$attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation' <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7773	7886	
==>$attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation' <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6757	6870	
==>$attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3816	3946	
==>> concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4061	4184	
==>> concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10510	10633	
==>> concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4061	4184	
==>> concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10510	10633	
==>> concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - c <==
6	/Users/nnunley/pugs/util/package-osx.pl	9074	9171	
==>"${dest}/usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys % <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	733	826	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1253	1346	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	733	826	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1253	1346	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	733	826	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1253	1346	
==>rgs[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Const <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12465	12583	
==>unperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= " \xB3 De <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	865	974	
==>d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	865	974	
==>d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	865	974	
==>d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3561	3652	
==>nt describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3561	3652	
==>nt describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15793	16032	
==>start => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15793	16032	
==>start => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15793	16032	
==>start => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8460	8621	
==>all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8460	8621	
==>all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8460	8621	
==>all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9531	9667	
==>umper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5872	6008	
==>umper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6721	6857	
==>umper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	330	439	
==>$class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	330	439	
==>$class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	330	439	
==>$class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40149	40261	
==>ue->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40149	40261	
==>ue->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40149	40261	
==>ue->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9835	9935	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9835	9935	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9835	9935	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9609	9732	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7156	7279	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9609	9732	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7156	7279	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9609	9732	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7156	7279	
==>t_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4998	5096	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3226	3324	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4998	5096	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3226	3324	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4998	5096	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3226	3324	
==>, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3309	3417	
==>th.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3309	3417	
==>th.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3309	3417	
==>th.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))", <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	158	261	
==>S::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	158	261	
==>S::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	158	261	
==>S::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13242	13410	
==>@rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3419	3567	
==>@rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3419	3567	
==>@rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3419	3567	
==>@rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($stri <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18353	18449	
==>t<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>() <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18353	18449	
==>t<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	904	1012	
==>>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	904	1012	
==>>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	904	1012	
==>>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16239	16339	
==>6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16239	16339	
==>6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16239	16339	
==>6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(1 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16457	16584	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17427	17554	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19934	20061	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20904	21031	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19494	19621	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20491	20618	
==>.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6218	6346	
==>r my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6218	6346	
==>r my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6218	6346	
==>r my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12210	12304	
==>head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.sub <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12210	12304	
==>head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.sub <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	15	108	
==>ierung ('coerce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7644	7806	
==>lems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7644	7806	
==>lems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7644	7806	
==>lems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2779	2870	
==>f->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2779	2870	
==>f->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2779	2870	
==>f->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	526	665	
==>($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	526	665	
==>($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	526	665	
==>($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10269	10398	
==>x]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10269	10398	
==>x]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10269	10398	
==>x]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7168	7279	
==>::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mang <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7168	7279	
==>::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mang <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7168	7279	
==>::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mang <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11186	11283	
==>hods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11186	11283	
==>hods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11186	11283	
==>hods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1520	1626	
==>TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1520	1626	
==>TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() d <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1520	1626	
==>TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19252	19341	
==>om_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19252	19341	
==>om_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19252	19341	
==>om_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24501	24689	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26690	26878	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24501	24689	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26690	26878	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24501	24689	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26690	26878	
==>ub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array-> <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	687	801	
==>PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	687	801	
==>PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	829	939	
==>eturns a "rule".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1198	1303	
==>eturns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	797	902	
==>eturns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1198	1303	
==>eturns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2977	3123	
==>>{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2977	3123	
==>>{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2977	3123	
==>>{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5760	5897	
==>>{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5760	5897	
==>>{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5760	5897	
==>>{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2181	2293	
==>o} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2181	2293	
==>o} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2181	2293	
==>o} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5951	6052	
==>level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5951	6052	
==>level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5951	6052	
==>level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10017	10157	
==>m_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10017	10157	
==>m_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6455	6593	
==>w(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error in Expression: <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2949	3037	
==>er = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2949	3037	
==>er = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	32	113	
==>file/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Ver <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2275	2410	
==>me;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_ <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2275	2410	
==>me;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6230	6334	
==>Sequence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode categories "Uppercase le <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29068	29164	
==>ffectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33620	33716	
==>ffectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32757	32853	
==>ffectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Rel <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2079	2184	
==>\\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2067	2172	
==>\\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1018	1122	
==>}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		n <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1018	1122	
==>}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		n <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6600	6695	
==>andlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get t <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3954	4049	
==>andlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get t <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6600	6695	
==>andlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get t <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3954	4049	
==>andlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2321	2453	
==>)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2321	2453	
==>)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2321	2453	
==>)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1304	1395	
==>_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1304	1395	
==>_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1304	1395	
==>_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12038	12129	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9593	9684	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12038	12129	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9593	9684	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12038	12129	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9593	9684	
==>ethod('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10140	10291	
==>";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10140	10291	
==>";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10140	10291	
==>";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	669	772	
==>{ $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	669	772	
==>{ $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	669	772	
==>{ $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pS <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1412	1512	
==>to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexp <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1412	1512	
==>to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexp <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	13904	13998	
==>ead1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overl <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10131	10225	
==>ead1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overl <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13904	13998	
==>ead1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overl <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10131	10225	
==>ead1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	825	929	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1345	1449	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	825	929	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1345	1449	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	825	929	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1345	1449	
==>stant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9851	9974	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9851	9974	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9851	9974	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11019	11112	
==>IL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11019	11112	
==>IL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11019	11112	
==>IL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smo <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5144	5254	
==>rrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5144	5254	
==>rrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5516	5611	
==>p' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5516	5611	
==>p' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5516	5611	
==>p' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4200	4294	
==>);

is($Object->id, 2, '... $Object is the second id');
is($Object->class, $Class, '... $Object <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3117	3307	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6110	6300	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3390	3568	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9808	9986	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3390	3568	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9808	9986	
==>ode ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = sh <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12270	12408	
==>.
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8546	8684	
==>.
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9381	9519	
==>.
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2838	2958	
==>es;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2838	2958	
==>es;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25226	25328	
==>o an object when the permutation of its
arguments and any invocant object's attributes is identical; th <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11357	11459	
==>o an object when the permutation of its
arguments and any invocant object's attributes is identical; th <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14630	14732	
==>o an object when the permutation of its arguments and any invocant
object's attributes is identical; th <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25226	25328	
==>o an object when the permutation of its
arguments and any invocant object's attributes is identical; th <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11357	11459	
==>o an object when the permutation of its
arguments and any invocant object's attributes is identical; th <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14630	14732	
==>o an object when the permutation of its arguments and any invocant
object's attributes is identical; th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10066	10175	
==>p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10066	10175	
==>p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10066	10175	
==>p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9566	9673	
==>y =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9566	9673	
==>y =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9566	9673	
==>y =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4493	4595	
==>array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4493	4595	
==>array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4493	4595	
==>array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2251	2347	
==>erl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2251	2347	
==>erl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2251	2347	
==>erl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20174	20316	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17313	17455	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20174	20316	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17313	17455	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20174	20316	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17313	17455	
==>el, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling next_METHOD her <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	345	450	
==>Any, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	345	450	
==>Any, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	345	450	
==>Any, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10633	10731	
==>($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @nam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10633	10731	
==>($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @nam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10633	10731	
==>($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3305	3437	
==>$m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3305	3437	
==>$m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3305	3437	
==>$m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13674	13781	
==>mes => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app componen <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13674	13781	
==>mes => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app componen <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7156	7251	
==>or_code_CODE {
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw(name kin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12045	12144	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9600	9699	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12045	12144	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9600	9699	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12045	12144	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9600	9699	
==>_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO();
    return <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6901	7034	
==>red => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) o <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11456	11589	
==>red => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) o <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12254	12387	
==>red => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) o <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12981	13114	
==>red => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) o <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2050	2160	
==>un::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::B <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2050	2160	
==>un::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::B <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16807	16913	
==>me goto p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15741	15835	
==>.if_unmodified_since

These header fields are used to make a request conditional.  If the reque <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15741	15835	
==>.if_unmodified_since

These header fields are used to make a request conditional.  If the reque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16810	16940	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16810	16940	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16810	16940	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1086	1192	
==>l 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::override - Override Pe <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	93	194	
==>tart, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( st <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	93	194	
==>tart, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( st <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3297	3397	
==>o, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$e <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3355	3455	
==>o, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$e <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10330	10423	
==>l))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(cla <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10322	10460	
==>match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6663	6801	
==>match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7512	7650	
==>match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	275	393	
==>xists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	275	393	
==>xists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	275	393	
==>xists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	442	565	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	435	558	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	442	565	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	435	558	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	442	565	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	435	558	
==>sub {
    my $dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s. <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	785	892	
==>ary",
			type => Blondie::TypeSafe::Type::Std->new("GV"),
		},
		{
			arity => 3,
			name => '&printf',
			b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3551	3651	
==>ot defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3551	3651	
==>ot defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3551	3651	
==>ot defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(. <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2348	2442	
==>ze <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2348	2442	
==>ze <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4915	5015	
==>.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of th <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4915	5015	
==>.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7112	7212	
==>.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20182	20272	
==>x:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20182	20272	
==>x:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20182	20272	
==>x:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1873	1984	
==>ename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1873	1984	
==>ename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1873	1984	
==>ename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$ <==
6	/Users/nnunley/pugs/util/grokprims.pl	3	114	
==>usr/bin/perl
use warnings;
use strict;

while (<>) {
  last if /^initSyms = /;
}

my %assoc = (
    spre  => 'sp <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1799	1903	
==>rs{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1799	1903	
==>rs{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2805	2939	
==>__->add_rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );
    __ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	773	898	
==>rs;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.te <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	773	898	
==>rs;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.te <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5565	5669	
==>infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementatio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5565	5669	
==>infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementatio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5565	5669	
==>infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	269	380	
==>ss module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	269	380	
==>ss module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	269	380	
==>ss module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	19	118	
==>::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	19	118	
==>::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	19	118	
==>::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3338	3471	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11896	12029	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6463	6596	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3338	3471	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11896	12029	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6463	6596	
==>ie_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2414	2522	
==>] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2414	2522	
==>] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2414	2522	
==>] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1382	1486	
==>ent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1382	1486	
==>ent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1382	1486	
==>ent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2999	3120	
==>er
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $si <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2987	3108	
==>er
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $si <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40303	40399	
==>te must carry
prominent notices stating that you changed the files and the date of any
changes, i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25827	25923	
==>te must carry prominent
notices stating that you changed the files and the date of any changes, i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40303	40399	
==>te must carry
prominent notices stating that you changed the files and the date of any
changes, i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25827	25923	
==>te must carry prominent
notices stating that you changed the files and the date of any changes, i <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3532	3700	
==>:<cmp>,
                                              *@values
                             ) returns List
 multi sub Perl6::Lists::zip (; Array *@lists, Bit :$shortest) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16983	17091	
==>}
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16983	17091	
==>}
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16983	17091	
==>}
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Valu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15460	15555	
==>em $h.date

This header represents the date and time at which the message was
originated. I<E.g. <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15460	15555	
==>em $h.date

This header represents the date and time at which the message was
originated. I<E.g. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	481	604	
==>up,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	481	604	
==>up,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	481	604	
==>up,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20386	20479	
==>Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20386	20479	
==>Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20386	20479	
==>Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5109	5219	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5442	5552	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5109	5219	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5442	5552	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5109	5219	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5442	5552	
==>= shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1839	1938	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2182	2281	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1839	1938	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2182	2281	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1839	1938	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2182	2281	
==>JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warni <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2925	3034	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5455	5564	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2925	3034	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5455	5564	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2925	3034	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5455	5564	
==>x:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	416	579	
==>nction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	416	579	
==>nction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	416	579	
==>nction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3129	3230	
==>PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3129	3230	
==>PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3129	3230	
==>PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1811	1924	
==>dated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1811	1924	
==>dated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1811	1924	
==>dated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6836	6932	
==>aque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6836	6932	
==>aque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6836	6932	
==>aque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	918	1071	
==>plit(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .me <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	918	1071	
==>plit(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1803	1929	
==>bose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@re <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2044	2170	
==>bose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1803	1929	
==>bose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@re <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1803	1929	
==>bose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@re <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4188	4281	
==>lse. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4188	4281	
==>lse. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6385	6478	
==>lse. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14201	14290	
==>ake_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14201	14290	
==>ake_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14201	14290	
==>ake_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::mak <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13287	13454	
==>y $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3456	3603	
==>y $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3456	3603	
==>y $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3456	3603	
==>y $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4120	4219	
==>turns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4120	4219	
==>turns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6147	6248	
==>R::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6147	6248	
==>R::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6147	6248	
==>R::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2167	2266	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2167	2266	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2167	2266	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4791	4895	
==>, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4791	4895	
==>, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4791	4895	
==>, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6537	6630	
==>ied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6537	6630	
==>ied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6537	6630	
==>ied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4694	4804	
==>.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTIO <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4694	4804	
==>.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTIO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18682	18791	
==>$self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15103	15212	
==>$self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    p <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30441	30550	
==>$self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    p <==
6	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2232	2340	
==>} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf->{$_} = $DEFAULTS{$_ <==
6	/Users/nnunley/pugs/blib6/lib/lib.pm	968	1074	
==>ib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which sim <==
6	/Users/nnunley/pugs/ext/lib/lib/lib.pm	968	1074	
==>ib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which sim <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4676	4779	
==>-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4676	4779	
==>-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	326	419	
==>n a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	326	419	
==>n a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16529	16640	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13734	13845	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16529	16640	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13734	13845	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16529	16640	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13734	13845	
==>{
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descend <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1744	1851	
==>new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1744	1851	
==>new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1744	1851	
==>new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4701	4799	
==>d().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4701	4799	
==>d().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4701	4799	
==>d().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2189	2292	
==>ainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2189	2292	
==>ainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2189	2292	
==>ainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $j <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	380	482	
==>rimitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is prim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	380	482	
==>rimitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is prim <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	380	482	
==>rimitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is prim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6133	6257	
==>my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6133	6257	
==>my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6133	6257	
==>my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10072	10181	
==>n()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)= <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10072	10181	
==>n()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)= <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10072	10181	
==>n()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13520	13626	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10804	10910	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13520	13626	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10804	10910	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13520	13626	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10804	10910	
==>> '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1590	1688	
==>Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.property_value.exist <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6361	6457	
==>nically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=item <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6361	6457	
==>nically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=item <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2875	2970	
==>in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 20 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2875	2970	
==>in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 20 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3222	3317	
==>in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 20 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2583	2711	
==>new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2583	2711	
==>new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2583	2711	
==>new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      ret <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2725	2829	
==>s

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2725	2829	
==>s

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4249	4353	
==>s

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35394	35514	
==>=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35394	35514	
==>=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_sh <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35394	35514	
==>=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9946	10061	
==>ed_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9946	10061	
==>ed_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9946	10061	
==>ed_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1559	1686	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3122	3249	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1559	1686	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3122	3249	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1559	1686	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3122	3249	
==>f;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1204	1356	
==>6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +----------- <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3500	3652	
==>6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +----------- <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1204	1356	
==>6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +----------- <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3500	3652	
==>6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +----------- <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3559	3651	
==>t::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3559	3651	
==>t::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7668	7849	
==>self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7668	7849	
==>self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7668	7849	
==>self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4598	4700	
==>nstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4598	4700	
==>nstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4598	4700	
==>nstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4409	4520	
==>ote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4409	4520	
==>ote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4409	4520	
==>ote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	652	747	
==>eturns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	652	747	
==>eturns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	652	747	
==>eturns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7059	7231	
==>ule( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given messag <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7059	7231	
==>ule( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given messag <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3763	3888	
==>ers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3763	3888	
==>ers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	380	479	
==>i *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	380	479	
==>i *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9228	9348	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12201	12321	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9228	9348	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12201	12321	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9228	9348	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12201	12321	
==>sMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::I <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5588	5686	
==>atabase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_eng <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5588	5686	
==>atabase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_eng <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	425	521	
==>this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(St <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	429	525	
==>this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(St <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	425	521	
==>this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(St <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	429	525	
==>this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(St <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3502	3623	
==>$todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descrip <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3502	3623	
==>$todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descrip <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5026	5147	
==>$todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descrip <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27028	27122	
==>inal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31580	31674	
==>inal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30636	30730	
==>inal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11635	11809	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9188	9362	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11635	11809	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9188	9362	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11635	11809	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9188	9362	
==>go back to the top and start over
                    goto TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator( <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	262	363	
==>ence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCT <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	262	363	
==>ence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCT <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14886	14985	
==>nt.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14886	14985	
==>nt.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14886	14985	
==>nt.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3230	3329	
==>nt.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2459	2600	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4786	4927	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2459	2600	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4786	4927	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2459	2600	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4786	4927	
==>ute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You must provide <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	930	1058	
==>toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	930	1058	
==>toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	930	1058	
==>toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	678	765	
==>:EigenClass->superclasses([ $::Class ]);

## ------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	678	765	
==>:EigenClass->superclasses([ $::Class ]);

## ------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	678	765	
==>:EigenClass->superclasses([ $::Class ]);

## ------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1354	1481	
==>_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! " <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1354	1481	
==>_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! " <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6283	6377	
==>volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8351	8445	
==>volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6283	6377	
==>volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8351	8445	
==>volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7900	8052	
==>S
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7900	8052	
==>S
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7900	8052	
==>S
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6645	6751	
==>dow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6645	6751	
==>dow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6645	6751	
==>dow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3981	4089	
==>E : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3981	4089	
==>E : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3981	4089	
==>E : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :l <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4065	4157	
==>Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4 <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4065	4157	
==>Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5589	5681	
==>Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10449	10717	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8000	8268	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10449	10717	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8000	8268	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10449	10717	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8000	8268	
==>r is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4408	4580	
==>},
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4408	4580	
==>},
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4408	4580	
==>},
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4107	4219	
==>, $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4107	4219	
==>, $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { com <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4107	4219	
==>, $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { com <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5929	6049	
==>q->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5929	6049	
==>q->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5929	6049	
==>q->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16215	16315	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16215	16315	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16215	16315	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5902	6024	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4022	4144	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5902	6024	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4022	4144	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5902	6024	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4022	4144	
==>= $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalcul <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	682	784	
==>e = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3753	3855	
==>e = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	682	784	
==>e = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3753	3855	
==>e = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10345	10438	
==>reates a recurrence set.

The complementary functions are emulated using iterations.

See also <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10345	10438	
==>reates a recurrence set.

The complementary functions are emulated using iterations.

See also <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10065	10234	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7616	7785	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10065	10234	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7616	7785	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10065	10234	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7616	7785	
==>or($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5829	5980	
==>thod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5829	5980	
==>thod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5829	5980	
==>thod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29487	29594	
==>ERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29487	29594	
==>ERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29487	29594	
==>ERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5590	5732	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3710	3852	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5590	5732	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3710	3852	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5590	5732	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3710	3852	
==>y $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28857	29018	
==>umify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28857	29018	
==>umify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28857	29018	
==>umify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxe <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13267	13401	
==>n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{cap <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9453	9587	
==>n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{cap <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10289	10423	
==>n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{cap <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13417	13540	
==>::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_nam <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13417	13540	
==>::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	195	309	
==>ort &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	195	309	
==>ort &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	195	309	
==>ort &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27476	27570	
==>If C<$heading> is undefined or an empty Set, the
Relation::Example has zero attributes.  If C<$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13282	13398	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18165	18281	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13282	13398	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18165	18281	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13282	13398	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18165	18281	
==>ics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in each run of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11266	11397	
==>$params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11266	11397	
==>$params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11266	11397	
==>$params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8110	8219	
==>_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data, but this is a low- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7838	7943	
==>_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data, but this is a low- <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25354	25451	
==>at the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation::Example can look <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19022	19135	
==>> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19022	19135	
==>> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19022	19135	
==>> $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1027	1128	
==>lue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1027	1128	
==>lue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1027	1128	
==>lue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Ha <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	659	788	
==>init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2815	2930	
==>erclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3020	3135	
==>erclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	784	883	
==>rl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	784	883	
==>rl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	784	883	
==>rl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5726	5841	
==>ef, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5726	5841	
==>ef, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6316	6431	
==>ef, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12363	12475	
==>);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12363	12475	
==>);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12363	12475	
==>);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1186	1292	
==>his is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1186	1292	
==>his is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1186	1292	
==>his is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	562	656	
==>nfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	562	656	
==>nfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	562	656	
==>nfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::S <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11222	11328	
==>es with limited command line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3108	3208	
==>rn bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3108	3208	
==>rn bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3108	3208	
==>rn bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9899	9994	
==>ar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string represen <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9899	9994	
==>ar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string represen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2900	2997	
==>"&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2900	2997	
==>"&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2900	2997	
==>"&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	390	484	
==>me constructors implement deep cloning
# * functions that don't support deep cloning emit warni <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	390	484	
==>me constructors implement deep cloning
# * functions that don't support deep cloning emit warni <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	390	484	
==>me constructors implement deep cloning
# * functions that don't support deep cloning emit warni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7469	7602	
==>ame ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7469	7602	
==>ame ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7469	7602	
==>ame ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15974	16075	
==>};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15974	16075	
==>};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15974	16075	
==>};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13710	13822	
==>bute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13710	13822	
==>bute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13710	13822	
==>bute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1220	1326	
==>e';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1220	1326	
==>e';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3039	3135	
==>node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9747	9836	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7296	7385	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9747	9836	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7296	7385	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9747	9836	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7296	7385	
==>add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19747	19868	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16886	17007	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19747	19868	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16886	17007	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19747	19868	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16886	17007	
==>return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	307	412	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	631	736	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	307	412	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	631	736	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	307	412	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	631	736	
==>KES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      ori <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11011	11152	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12482	12623	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14488	14629	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15959	16100	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13796	13937	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15321	15462	
==>$other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is identity-one tuple; re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1595	1699	
==>val("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file( <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1585	1689	
==>val("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1595	1699	
==>val("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1595	1699	
==>val("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1561	1664	
==>hod diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $sel <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1561	1664	
==>hod diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4079	4197	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4079	4197	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4079	4197	
==>paque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4228	4329	
==>lasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4228	4329	
==>lasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4228	4329	
==>lasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr( <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1631	1911	
==>::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant O <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14435	14535	
==>ethod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14435	14535	
==>ethod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14435	14535	
==>ethod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You m <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15662	15753	
==>ch the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodifie <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15662	15753	
==>ch the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodifie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9757	9872	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7306	7421	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9757	9872	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7306	7421	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9757	9872	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7306	7421	
==>('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    r <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3689	3805	
==>'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	747	863	
==>d hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=> <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3689	3805	
==>'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_St <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	539	655	
==>'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_St <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	747	863	
==>d hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	747	863	
==>d hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14113	14238	
==>hile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14113	14238	
==>hile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14113	14238	
==>hile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6375	6500	
==>hile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4877	5002	
==>hile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1107	1202	
==>s-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%reque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15130	15241	
==>_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15130	15241	
==>_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15130	15241	
==>_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	394	500	
==>e're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	394	500	
==>e're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	394	500	
==>e're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7382	7481	
==>"void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7382	7481	
==>"void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7382	7481	
==>"void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PI <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25516	25612	
==>of the other components when and as the GPL requires distribution of
source code.  However, for a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25516	25612	
==>of the other components when and as the GPL requires distribution of
source code.  However, for a <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6257	6343	
==>\s+(\w+)\s+{([^}]*)}(?{ &::hlp_rule;})');
my $x4 = def_stmt_prim('bs_stmt_decl','\s*mac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	239	349	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	237	347	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	239	349	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	237	347	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	239	349	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	237	347	
==>ld opaque instance
    # variables and access their internal data.
    # This is basically the implementation o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7640	7798	
==>, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7640	7798	
==>, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7640	7798	
==>, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4382	4480	
==>x.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4382	4480	
==>x.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4382	4480	
==>x.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9371	9483	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9371	9483	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9371	9483	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13749	13847	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13749	13847	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13749	13847	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12612	12729	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10163	10280	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12612	12729	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10163	10280	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12612	12729	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10163	10280	
==>':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($next) eq ::opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1257	1380	
==>e - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1257	1380	
==>e - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1257	1380	
==>e - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	944	1045	
==>= $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	944	1045	
==>= $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	944	1045	
==>= $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5168	5265	
==>in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5168	5265	
==>in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5168	5265	
==>in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2765	2857	
==>ents the semantics for perl6-style variable binding,
as well as subroutine call argument pass <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2765	2857	
==>ents the semantics for perl6-style variable binding,
as well as subroutine call argument pass <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3112	3204	
==>ents the semantics for perl6-style variable binding,
as well as subroutine call argument pass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	48	152	
==>imitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	48	152	
==>imitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	48	152	
==>imitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1898	2000	
==>turn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrappe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1898	2000	
==>turn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrappe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1898	2000	
==>turn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrappe <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3395	3513	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11953	12071	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6520	6638	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3395	3513	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11953	12071	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6520	6638	
==>th, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4597	4766	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7109	7278	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4597	4766	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7109	7278	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4597	4766	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7109	7278	
==>ween the
                    # private class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9669	9795	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12642	12768	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9669	9795	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12642	12768	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9669	9795	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12642	12768	
==>ich 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal w <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4786	4881	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3913	4008	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	699	794	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	699	794	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4786	4881	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3913	4008	
==>$one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Se <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2316	2436	
==>'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut m <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	588	708	
==>however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1076	1196	
==>however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2316	2436	
==>'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut m <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	588	708	
==>however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1076	1196	
==>however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1923	2044	
==>k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1923	2044	
==>k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1923	2044	
==>k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    } <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9840	9960	
==>other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so gr <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2872	2992	
==>other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so gr <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3773	3873	
==>Chars {  # see 7.4
      <MultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteris <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14055	14153	
==>tcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14055	14153	
==>tcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14055	14153	
==>tcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17247	17339	
==>ake_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17247	17339	
==>ake_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17247	17339	
==>ake_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	421	525	
==>) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	421	525	
==>) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	421	525	
==>) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2510	2611	
==>xhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2510	2611	
==>xhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2510	2611	
==>xhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13840	13954	
==>l6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13840	13954	
==>l6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13840	13954	
==>l6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3132	3245	
==>->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3132	3245	
==>->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3132	3245	
==>->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3919	4019	
==>rse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3919	4019	
==>rse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3919	4019	
==>rse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2690	2781	
==>thod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2690	2781	
==>thod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2690	2781	
==>thod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3320	3446	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6256	6382	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3320	3446	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6256	6382	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3320	3446	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6256	6382	
==>g/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8694	8808	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6247	6361	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8694	8808	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6247	6361	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8694	8808	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6247	6361	
==>ss we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the supercla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1241	1336	
==>prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1241	1336	
==>prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1241	1336	
==>prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) } <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3274	3367	
==>the expected output and diagnostic output of tests,
running those tests, and then telling this <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3274	3367	
==>the expected output and diagnostic output of tests,
running those tests, and then telling this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3354	3447	
==>the expected output and diagnostic output of tests,
running those tests, and then telling this <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1909	2030	
==>sically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1909	2030	
==>sically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1909	2030	
==>sically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	622	724	
==>e_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	622	724	
==>e_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	622	724	
==>e_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5801	5899	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8771	8869	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5801	5899	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8771	8869	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5801	5899	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8771	8869	
==>make_*_method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method' <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4956	5116	
==>sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool: <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4956	5116	
==>sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool: <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1377	1517	
==>nd;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4616	4756	
==>nd;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1377	1517	
==>nd;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4616	4756	
==>nd;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1966	2068	
==>loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1966	2068	
==>loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1966	2068	
==>loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_c <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6121	6211	
==>ext two classes both perform the Test::Builder::Test::WithReason role
and override some met <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6121	6211	
==>ext two classes both perform the Test::Builder::Test::WithReason role
and override some met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8318	8408	
==>ext two classes both perform the Test::Builder::Test::WithReason role
and override some met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22081	22177	
==>p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1243	1339	
==>postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22081	22177	
==>p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22081	22177	
==>p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1243	1339	
==>postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1243	1339	
==>postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18743	18868	
==>AD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18743	18868	
==>AD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18743	18868	
==>AD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1408	1514	
==>e extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Has <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1408	1514	
==>e extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Has <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1408	1514	
==>e extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Has <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3167	3285	
==>_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_has <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6292	6410	
==>_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_has <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3167	3285	
==>_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_has <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6292	6410	
==>_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_has <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	854	945	
==>pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expec <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	854	945	
==>pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3767	3881	
==>XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3767	3881	
==>XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3767	3881	
==>XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->d <==
6	/Users/nnunley/pugs/util/config_h.pl	346	459	
==>n 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10180	10269	
==>"\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])? <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10915	11004	
==>"\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25732	25871	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27927	28066	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25732	25871	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27927	28066	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25732	25871	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27927	28066	
==>:Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6567	6663	
==>UB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6567	6663	
==>UB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6567	6663	
==>UB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5057	5142	
==>::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5057	5142	
==>::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5057	5142	
==>::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6567	6713	
==>op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10774	10920	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7853	7994	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6355	6496	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7853	7994	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $matc <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	905	1013	
==>pe == 1){
			$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blon <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8641	8783	
==>hings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            un <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5001	5143	
==>hings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            un <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5850	5992	
==>hings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11330	11473	
==>red;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11330	11473	
==>red;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11330	11473	
==>red;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Ar <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31384	31476	
==>e argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35934	36026	
==>e argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35152	35244	
==>e argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5629	5746	
==>$code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6897	7014	
==>$code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5629	5746	
==>$code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6885	7002	
==>$code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Co <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4674	4779	
==>ire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alrea <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4533	4638	
==>ire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alrea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3881	3989	
==>turn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3881	3989	
==>turn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3881	3989	
==>turn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wal <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13610	13698	
==>whatever annotation went with this attribute when it's declared"
::Class.meta.add_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13610	13698	
==>whatever annotation went with this attribute when it's declared"
::Class.meta.add_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13610	13698	
==>whatever annotation went with this attribute when it's declared"
::Class.meta.add_method( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8600	8730	
==>ters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4960	5090	
==>ters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5809	5939	
==>ters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3906	4010	
==>n't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3906	4010	
==>n't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3906	4010	
==>n't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2665	2777	
==>l exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2665	2777	
==>l exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2665	2777	
==>l exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	807	906	
==>p.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	807	906	
==>p.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	807	906	
==>p.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8411	8538	
==>non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code as <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13922	14049	
==>non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code as <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8411	8538	
==>non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code as <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13916	14043	
==>non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code as <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21774	21875	
==>ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26326	26427	
==>ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	129	251	
==>ned)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	129	251	
==>ned)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	129	251	
==>ned)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2142	2245	
==>tring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2142	2245	
==>tring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2142	2245	
==>tring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12212	12302	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9769	9859	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12212	12302	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9769	9859	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12212	12302	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9769	9859	
==>add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SEL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10421	10575	
==>> scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10421	10575	
==>> scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10421	10575	
==>> scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # war <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6436	6560	
==>ist of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6436	6560	
==>ist of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6436	6560	
==>ist of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	809	912	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1329	1432	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	809	912	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1329	1432	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	809	912	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1329	1432	
==>w PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4862	5001	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5823	5962	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4862	5001	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5823	5962	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4862	5001	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5823	5962	
==>tr },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3404	3538	
==>et += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3404	3538	
==>et += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3404	3538	
==>et += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1560	1649	
==>stance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1560	1649	
==>stance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1560	1649	
==>stance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	453	557	
==>/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	453	557	
==>/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INST <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	453	557	
==>/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1597	1693	
==>=> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1597	1693	
==>=> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1597	1693	
==>=> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1334	1491	
==>ment.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(do <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1334	1491	
==>ment.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(do <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1334	1491	
==>ment.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(do <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1588	1695	
==>nstant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1588	1695	
==>nstant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1588	1695	
==>nstant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	236	344	
==>r) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.err <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	236	344	
==>r) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.err <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	236	344	
==>r) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.err <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5954	6055	
==>][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5954	6055	
==>][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5954	6055	
==>][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3060	3244	
==>sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3060	3244	
==>sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3060	3244	
==>sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $sel <==
6	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	386	505	
==>$string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pa <==
6	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	386	505	
==>$string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pa <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27392	27509	
==>_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	2801	2899	
==>ingify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2622	2720	
==>ingify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2801	2899	
==>ingify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2622	2720	
==>ingify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	15658	15753	
==>y (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_C <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15716	15811	
==>y (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_C <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25011	25109	
==>e server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23775	23873	
==>e server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exa <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25011	25109	
==>e server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exa <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23775	23873	
==>e server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exa <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40685	40779	
==>tails.

While it is by no means required, the copyright holders of
Locale::KeyedText would appr <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40685	40779	
==>tails.

While it is by no means required, the copyright holders of
Locale::KeyedText would appr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4707	4830	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7356	7479	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4925	5045	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11374	11494	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4925	5045	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11374	11494	
==>rn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9620	9772	
==>::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9620	9772	
==>::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9620	9772	
==>::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1106	1197	
==>-------------------------------------------------
## Roles

# Questions on Role methods sent <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1106	1197	
==>-------------------------------------------------
## Roles

# Questions on Role methods sent <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1106	1197	
==>-------------------------------------------------
## Roles

# Questions on Role methods sent <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1127	1246	
==>trs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1127	1246	
==>trs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1127	1246	
==>trs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1675	1780	
==>f

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1675	1780	
==>f

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1911	2016	
==>f

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	209	328	
==>$class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	209	328	
==>$class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	209	328	
==>$class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	583	686	
==>ource, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_source, $param )
        if <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2011	2113	
==>n () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densi <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2011	2113	
==>n () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1826	1959	
==>the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5303	5436	
==>the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4233	4366	
==>the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8541	8636	
==>gs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8541	8636	
==>gs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8541	8636	
==>gs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	530	643	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	852	965	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1231	1344	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	530	643	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	852	965	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1231	1344	
==>e> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate eve <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	897	990	
==>de>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->n <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	897	990	
==>de>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1455	1567	
==>_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1455	1567	
==>_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4680	4787	
==>less $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4680	4787	
==>less $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4680	4787	
==>less $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3980	4086	
==>less $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39514	39619	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39784	39889	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39514	39619	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39784	39889	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39514	39619	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39784	39889	
==>rl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $r <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4265	4367	
==>$two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3392	3494	
==>$two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4265	4367	
==>$two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3392	3494	
==>$two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $t <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	157	254	
==>} }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	157	254	
==>} }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22141	22237	
==>then invoking methods on those objects.  All of
their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9414	9510	
==>then invoking methods on those objects.  All of
their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22141	22237	
==>then invoking methods on those objects.  All of
their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9414	9510	
==>then invoking methods on those objects.  All of
their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24509	24604	
==>then invoking methods on those objects.
All of their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24509	24604	
==>then invoking methods on those objects.
All of their attributes are private, so you must use acc <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7047	7146	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6177	6276	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2831	2930	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2831	2930	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7047	7146	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6177	6276	
==><∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($mem <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9875	10024	
==>n be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6216	6365	
==>n be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7065	7214	
==>n be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32550	32650	
==>-width (like an anchor).

=back

If there is a method with the name of one of these attributes, it is <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19919	20010	
==>bot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19919	20010	
==>bot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1344	1453	
==>stance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1549	1658	
==>stance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1610	1719	
==>stance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10460	10553	
==>AL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, comple <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10460	10553	
==>AL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, comple <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2566	2658	
==>res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node) ? $node : qprintable($node) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2081	2177	
==>atch, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2081	2177	
==>atch, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24561	24656	
==>ine characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23325	23420	
==>ine characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24561	24656	
==>ine characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23325	23420	
==>ine characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9546	9702	
==>nts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does no <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9546	9702	
==>nts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does no <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9546	9702	
==>nts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19873	20016	
==>e deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19873	20016	
==>e deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19873	20016	
==>e deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7647	7757	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6777	6887	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3363	3473	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3363	3473	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7647	7757	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6777	6887	
==>x:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "is commutativ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	591	690	
==>\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2522	2615	
==>igenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2522	2615	
==>igenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2522	2615	
==>igenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:na <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1312	1403	
==>tory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README> <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1312	1403	
==>tory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	827	932	
==>", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	827	932	
==>", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	827	932	
==>", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7505	7605	
==>$xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7505	7605	
==>$xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7505	7605	
==>$xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	939	1069	
==>ument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	939	1069	
==>ument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	939	1069	
==>ument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	13421	13520	
==>ay
to provide a comment that refers to another file or test which must be
made to pass before this t <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13479	13578	
==>ay
to provide a comment that refers to another file or test which must be
made to pass before this t <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1378	1469	
==>])\\\$([1&])/$1\\x{24}$2/g; # work around two uninteresting tests.
	$expr =~ s/\$&/\".\$m.\" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7782	7883	
==>1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (les <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7782	7883	
==>1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (les <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7782	7883	
==>1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (les <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4074	4171	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4074	4171	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4074	4171	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8585	8696	
==>$i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8585	8696	
==>$i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8585	8696	
==>$i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6580	6687	
==>AME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6580	6687	
==>AME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6580	6687	
==>AME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2098	2238	
==>ailable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2098	2238	
==>ailable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2098	2238	
==>ailable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3545	3653	
==>te($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3545	3653	
==>te($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3545	3653	
==>te($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13263	13399	
==>$line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13263	13399	
==>$line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12355	12483	
==>$line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12355	12483	
==>$line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_c <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	683	772	
==>ort the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6 <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	683	772	
==>ort the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4976	5165	
==>$key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4976	5165	
==>$key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4976	5165	
==>$key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33510	33628	
==>y->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33510	33628	
==>y->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33510	33628	
==>y->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3788	3897	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6724	6833	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3788	3897	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6724	6833	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3788	3897	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6724	6833	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23393	23528	
==>od eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23393	23528	
==>od eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23393	23528	
==>od eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1037	1126	
==>etaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1037	1126	
==>etaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1037	1126	
==>etaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3359	3477	
==>p {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPara <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3359	3477	
==>p {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPara <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3359	3477	
==>p {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPara <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9859	9973	
==>s in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # --------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9859	9973	
==>s in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # --------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9859	9973	
==>s in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # --------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1609	1810	
==>PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1609	1810	
==>PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1609	1810	
==>PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1344	1435	
==>- 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1344	1435	
==>- 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1344	1435	
==>- 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5401	5512	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6669	6780	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10931	11042	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5401	5512	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6657	6768	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11081	11192	
==>XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12603	12726	
==>$self.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $stat <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2969	3088	
==>$self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $stat <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2969	3088	
==>$self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $stat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12045	12159	
==>$self.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $stat <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2449	2559	
==>$self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $stat <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2449	2559	
==>$self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $stat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16930	17079	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21645	21794	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16930	17079	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21645	21794	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16930	17079	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21645	21794	
==>ubclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1976	2104	
==>hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            )) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1976	2104	
==>hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            )) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1976	2104	
==>hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            )) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2423	2545	
==>hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          )) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2423	2545	
==>hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          )) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2423	2545	
==>hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          )) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14082	14191	
==>RGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14082	14191	
==>RGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14082	14191	
==>RGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3915	4017	
==>ed_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named arg <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3915	4017	
==>ed_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named arg <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4505	4607	
==>ed_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named arg <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13420	13634	
==>6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13699	13913	
==>6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       , <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	826	928	
==>rl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is neces <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	826	928	
==>rl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is neces <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	826	928	
==>rl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is neces <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6627	6727	
==>hod Array::as_str (@array:) returns Str {
    join(" ",@array.values);
}

# speculative?
# behavior b <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6352	6488	
==>ral domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # result <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6352	6488	
==>ral domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # result <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6097	6192	
==>ool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arr <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8165	8260	
==>ool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arr <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6097	6192	
==>ool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arr <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8165	8260	
==>ool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arr <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5798	6050	
==>);
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
} <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5798	6050	
==>);
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
} <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3159	3409	
==>);
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
} <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3159	3409	
==>);
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
} <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3506	3635	
==>SP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiLineCom <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7763	7854	
==>USHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mortal(newSVuv(( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13261	13390	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18144	18273	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13261	13390	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18144	18273	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13261	13390	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18144	18273	
==>ETHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is localized
    # in eac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12489	12599	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetchi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1000	1110	
==>sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12489	12599	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetchi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12489	12599	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetchi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1000	1110	
==>sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1000	1110	
==>sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3987	4134	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6923	7070	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3987	4134	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6923	7070	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3987	4134	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6923	7070	
==>thod->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # because this operat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	575	682	
==>lists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifica <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	575	682	
==>lists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifica <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	575	682	
==>lists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringifica <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5802	5914	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3922	4034	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5802	5914	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3922	4034	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5802	5914	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3922	4034	
==>ar inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclass <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5157	5290	
==>part/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stal <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5157	5290	
==>part/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5413	5524	
==>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5413	5524	
==>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5413	5524	
==>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role- <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18472	18576	
==>ce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp::Conca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	679	809	
==>ction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	679	809	
==>ction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	679	809	
==>ction () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3020	3132	
==>ction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3020	3132	
==>ction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3020	3132	
==>ction () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7680	7834	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10603	10757	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7680	7834	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10603	10757	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7680	7834	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10603	10757	
==>d is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38024	38175	
==>p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38024	38175	
==>p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38024	38175	
==>p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22344	22463	
==>for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22344	22463	
==>for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22344	22463	
==>for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11441	11632	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8994	9185	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11441	11632	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8994	9185	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11441	11632	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8994	9185	
==>ned $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8873	9042	
==>1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4795	4930	
==>m}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4795	4930	
==>m}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4795	4930	
==>m}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12773	12899	
==>1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12773	12899	
==>1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	8724	8867	
==>ng ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$la <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8724	8867	
==>ng ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9212	9326	
==>ce(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $re <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9212	9326	
==>ce(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $re <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10321	10409	
==>1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n" <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11056	11144	
==>1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	445	612	
==>tch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	445	612	
==>tch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10277	10371	
==>t.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8170	8264	
==>t.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10277	10371	
==>t.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8170	8264	
==>t.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1021	1125	
==>x(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1021	1125	
==>x(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1021	1125	
==>x(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	57	159	
==>unks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	57	159	
==>unks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	57	159	
==>unks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7079	7197	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10049	10167	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7079	7197	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10049	10167	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7079	7197	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10049	10167	
==>ethod body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are being called fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1744	1858	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3307	3421	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1744	1858	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3307	3421	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1744	1858	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3307	3421	
==>ALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detaile <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14476	14603	
==>ere
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14476	14603	
==>ere
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14476	14603	
==>ere
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14466	14592	
==>directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # ga <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14466	14592	
==>directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # ga <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14466	14592	
==>directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # ga <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8826	8923	
==>>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-G <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3755	3852	
==>>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-G <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8826	8923	
==>>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-G <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3755	3852	
==>>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-G <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	693	787	
==>1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRI <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	693	787	
==>1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRI <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1151	1297	
==>-- subclass/inherit!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2984	3111	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3264	3384	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9682	9802	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3264	3384	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9682	9802	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17174	17291	
==>};
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17174	17291	
==>};
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17174	17291	
==>};
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5539	5638	
==>3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5539	5638	
==>3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5539	5638	
==>3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16083	16218	
==>n {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16083	16218	
==>n {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9677	9785	
==>0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9677	9785	
==>0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9677	9785	
==>0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spe <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13838	13933	
==>less (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s...) not recognized

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1609	1724	
==>d(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1609	1724	
==>d(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1609	1724	
==>d(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	333	438	
==>s Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	333	438	
==>s Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	333	438	
==>s Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8657	8751	
==>f)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8657	8751	
==>f)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8657	8751	
==>f)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	685	790	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1205	1310	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	685	790	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1205	1310	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	685	790	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1205	1310	
==>args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8620	8772	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11593	11745	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8620	8772	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11593	11745	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8620	8772	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11593	11745	
==>il we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            loca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4236	4379	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7172	7315	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4236	4379	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7172	7315	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4236	4379	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7172	7315	
==>blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4209	4322	
==>"$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4197	4310	
==>"$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22143	22236	
==>ct>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo eve <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21024	21117	
==>ct>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo eve <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22143	22236	
==>ct>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo eve <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21024	21117	
==>ct>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo eve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30561	30724	
==>) ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30561	30724	
==>) ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30561	30724	
==>) ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10602	10738	
==>x].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10602	10738	
==>x].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10602	10738	
==>x].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10651	10757	
==>y $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $param <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10651	10757	
==>y $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $param <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10651	10757	
==>y $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1450	1551	
==>->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1450	1551	
==>->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1450	1551	
==>->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4360	4500	
==>sNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4360	4500	
==>sNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4360	4500	
==>sNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	599	704	
==>$ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	599	704	
==>$ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	599	704	
==>$ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1960	2060	
==>:new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1960	2060	
==>:new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1960	2060	
==>:new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2944	3040	
==>ods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2944	3040	
==>ods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2944	3040	
==>ods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3039	3134	
==>nt, if available.

=back

In addition, the following request headers are set on the HTTP::Header <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3039	3134	
==>nt, if available.

=back

In addition, the following request headers are set on the HTTP::Header <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	1022	1110	
==>fig{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6188	6308	
==>tance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6188	6308	
==>tance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6188	6308	
==>tance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13699	13809	
==>'find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13699	13809	
==>'find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13699	13809	
==>'find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $disp <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1871	1972	
==>ken = ( name => $name, options => $options, equiv => $equivalence, match => $match, arity => 1 );
  my <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35615	35705	
==>ion::Example $other!) returns Relation::Example>

This multi-method is a generic binary rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36712	36802	
==>ion::Example $other!) returns Relation::Example>

This multi-method is a generic binary rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37212	37302	
==>ion::Example $other!) returns Relation::Example>

This multi-method is a generic binary rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39260	39350	
==>ion::Example $other!) returns Relation::Example>

This multi-method is a generic binary rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39808	39898	
==>ion::Example $other!) returns Relation::Example>

This multi-method is a generic binary rel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13421	13579	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13421	13579	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13421	13579	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5663	5821	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4163	4321	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2306	2464	
==>nge = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4707	4821	
==>t}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4707	4821	
==>t}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4707	4821	
==>t}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clos <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	938	1048	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	938	1048	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	938	1048	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $m <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8729	8829	
==>ck} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringif <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8729	8829	
==>ck} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringif <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8987	9085	
==>ck} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringif <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8987	9085	
==>ck} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringif <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	814	911	
==>rrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     su <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	814	911	
==>rrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     su <==
6	/Users/nnunley/pugs/util/package-osx.pl	10672	10814	
==>}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	286	409	
==>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	459	582	
==>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	286	409	
==>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	459	582	
==>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6037	6181	
==>Match(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6037	6181	
==>Match(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6037	6181	
==>Match(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7352	7463	
==>LASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7352	7463	
==>LASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7352	7463	
==>LASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5073	5199	
==>1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16109	16235	
==>1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17597	17723	
==>1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22280	22406	
==>1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4899	5011	
==>S
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normaliz <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4899	5011	
==>S
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normaliz <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6384	6524	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8833	8973	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6384	6524	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8833	8973	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6384	6524	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8833	8973	
==>lice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->en <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	447	639	
==>\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } e <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	447	639	
==>\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } e <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20043	20188	
==>) {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16464	16609	
==>) {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      retur <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6497	6613	
==>e {
        # Determine if requested template module is already loaded.
        # It may have been embedded in a core <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6497	6613	
==>e {
        # Determine if requested template module is already loaded.
        # It may have been embedded in a core <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4208	4328	
==>, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4208	4328	
==>, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4208	4328	
==>, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10079	10192	
==>_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10079	10192	
==>_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10079	10192	
==>_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22489	22727	
==>' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22489	22727	
==>' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22489	22727	
==>' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	265	394	
==>ort $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	265	394	
==>ort $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	265	394	
==>ort $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8830	9014	
==>=> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8830	9014	
==>=> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8830	9014	
==>=> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4548	4690	
==>ub ender {
    my $self = shift;
    [ 'anyof_close' ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2834	2954	
==>y @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2834	2954	
==>y @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	677	930	
==>push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	677	930	
==>push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	677	930	
==>push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6573	6670	
==>n (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# X <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6573	6670	
==>n (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# X <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6573	6670	
==>n (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# X <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10051	10226	
==>$2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^C <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10051	10226	
==>$2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^C <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1536	1632	
==>ESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramete <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1298	1394	
==>ESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramete <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1536	1632	
==>ESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramete <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1298	1394	
==>ESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramete <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9491	9600	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7038	7147	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9491	9600	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7038	7147	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9491	9600	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7038	7147	
==>ke_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20517	20614	
==>d be a wide variety of third party Engine
modules that become available over time.  One plan which <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20517	20614	
==>d be a wide variety of third party Engine
modules that become available over time.  One plan which <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40544	40638	
==>but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26058	26152	
==>but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40544	40638	
==>but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26058	26152	
==>but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3026	3124	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6040	6138	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8108	8206	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3026	3124	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6040	6138	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8108	8206	
==>Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13890	13993	
==>}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13890	13993	
==>}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13890	13993	
==>}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3519	3610	
==>rgs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3519	3610	
==>rgs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3519	3610	
==>rgs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15024	15120	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12278	12374	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15024	15120	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12278	12374	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15024	15120	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12278	12374	
==>ttribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attributes')->{$lab <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4684	4822	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7333	7471	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4904	5037	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11353	11486	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4904	5037	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11353	11486	
==>match2;
    }
    #warn "Return String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13134	13248	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13134	13248	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13134	13248	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2133	2237	
==>wrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2133	2237	
==>wrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2133	2237	
==>wrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32684	32848	
==>rl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32684	32848	
==>rl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32684	32848	
==>rl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7684	7790	
==>OTE:
## we want to prevent the default version 
## of this from taking over which would make
## things like <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7684	7790	
==>OTE:
## we want to prevent the default version 
## of this from taking over which would make
## things like <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7684	7790	
==>OTE:
## we want to prevent the default version 
## of this from taking over which would make
## things like <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13524	13673	
==>tore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13524	13673	
==>tore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13524	13673	
==>tore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2655	2767	
==>rsion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2655	2767	
==>rsion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2655	2767	
==>rsion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15433	15590	
==>STRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15433	15590	
==>STRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15433	15590	
==>STRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7366	7466	
==>s the parser's memory and sets $regex as the regex to be parsed.

=back

These two approaches do an i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19253	19351	
==>>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read d <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19253	19351	
==>>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	102	194	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	326	418	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	102	194	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	326	418	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	102	194	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	326	418	
==>ir");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4392	4528	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6904	7040	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4392	4528	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6904	7040	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4392	4528	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6904	7040	
==>thod_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private meth <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3211	3316	
==>ckname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normaliz <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3211	3316	
==>ckname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normaliz <==
6	/Users/nnunley/pugs/misc/Blondie/example.pl	389	494	
==>),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate($c);
my $t <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	883	987	
==>3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub pretty <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3792	3893	
==>ckname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normaliz <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3792	3893	
==>ckname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normaliz <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7349	7450	
==>]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7349	7450	
==>]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7349	7450	
==>]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes { <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35308	35402	
==>parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35308	35402	
==>parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in t <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	26468	26562	
==>rness attempt to compile the test using
C<perlcc> before running it.

B<NOTE> This currently on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9460	9598	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12433	12571	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9460	9598	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12433	12571	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9460	9598	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12433	12571	
==>'Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18664	18837	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15902	16075	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18664	18837	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15902	16075	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18664	18837	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15902	16075	
==>just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5140	5245	
==>return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys % <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5140	5245	
==>return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys % <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5730	5835	
==>return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4760	4861	
==>urce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4760	4861	
==>urce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4760	4861	
==>urce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_ <==
6	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	297	415	
==>oke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => 0,
    precompile_prelude    => <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38337	38431	
==>itute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42886	42980	
==>itute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42536	42630	
==>itute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C< <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18500	18592	
==>egcompp and regexecp hooks (C functions
which get called on regular expression compilation an <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2790	2882	
==>egcompp and regexecp hooks (C functions
which get called on regular expression compilation an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3701	3825	
==>ring,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3701	3825	
==>ring,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3701	3825	
==>ring,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4256	4366	
==>ive ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4256	4366	
==>ive ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4256	4366	
==>ive ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, jo <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	164	272	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	166	274	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5211	5319	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	179	287	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	156	264	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	160	268	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6171	6263	
==>.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6171	6263	
==>.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6171	6263	
==>.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5646	5819	
==>eturn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5646	5819	
==>eturn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5646	5819	
==>eturn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20070	20159	
==>p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20070	20159	
==>p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20070	20159	
==>p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9142	9253	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6689	6800	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9142	9253	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6689	6800	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9142	9253	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6689	6800	
==>rder
        if not(defined($order)) || $order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5366	5467	
==>non>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5366	5467	
==>non>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5366	5467	
==>non>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1736	1827	
==>er = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1736	1827	
==>er = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1736	1827	
==>er = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7172	7296	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4731	4855	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7172	7296	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4731	4855	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7172	7296	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4731	4855	
==>qs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return @res i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3064	3160	
==>am($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it wil <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	133	229	
==>thing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $? <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3064	3160	
==>am($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it wil <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	133	229	
==>thing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $? <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	133	229	
==>thing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $? <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5226	5321	
==>iv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->declare($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15938	16055	
==>ntering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15938	16055	
==>ntering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15938	16055	
==>ntering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	769	867	
==>g/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	769	867	
==>g/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	769	867	
==>g/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3079	3212	
==>ject' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4779	4907	
==>ject' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3807	3931	
==>ject' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9814	9919	
==>unction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partiall <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	252	353	
==>unction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partiall <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	252	353	
==>unction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partiall <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	751	930	
==>->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3822	4001	
==>->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	751	930	
==>->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3822	4001	
==>->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1380	1551	
==>->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1380	1551	
==>->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      pr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9072	9197	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26521	26646	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29268	29393	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9265	9390	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26800	26925	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29547	29672	
==>n =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13760	13895	
==>};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13760	13895	
==>};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen a <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4519	4619	
==>self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.c <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	245	345	
==>t::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

meth <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4519	4619	
==>self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.c <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	245	345	
==>t::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2193	2313	
==>Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3319	3425	
==>}
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3319	3425	
==>}
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3319	3425	
==>}
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULT <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1809	1910	
==>ort {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $dep <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1867	1968	
==>ort {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $dep <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8562	8702	
==>em};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8562	8702	
==>em};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8562	8702	
==>em};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9716	9819	
==>$slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9716	9819	
==>$slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9716	9819	
==>$slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1725	1847	
==>tion string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $ta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2053	2173	
==>tion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $ta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1666	1786	
==>tion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $ta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2053	2173	
==>tion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $ta <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1761	1864	
==>ull_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    ope <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1761	1864	
==>ull_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    ope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7413	7570	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4972	5129	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7413	7570	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4972	5129	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7413	7570	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4972	5129	
==>= $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13472	13655	
==>leop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13751	13934	
==>leop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::opt <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5319	5446	
==>t'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1261	1361	
==>a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1261	1361	
==>a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1261	1361	
==>a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7892	8049	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7892	8049	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7892	8049	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4956	5109	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4956	5109	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4956	5109	
==>f $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	720	880	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	808	968	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	720	880	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	808	968	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	720	880	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	808	968	
==>-B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3552	3705	
==>ss defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @sta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4480	4630	
==>ss defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3441	3591	
==>ss defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4480	4630	
==>ss defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @sta <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	992	1092	
==>$self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $ <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	992	1092	
==>$self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2870	2980	
==>") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2870	2980	
==>") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2870	2980	
==>") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1717	1825	
==>o "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1717	1825	
==>o "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1717	1825	
==>o "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6119	6230	
==>_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6119	6230	
==>_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6119	6230	
==>_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5399	5499	
==>rp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5399	5499	
==>rp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5989	6089	
==>rp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take a <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3212	3339	
==>andler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCR <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3212	3339	
==>andler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2304	2424	
==>se') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAG <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2304	2424	
==>se') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAG <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	327	444	
==>ned $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	327	444	
==>ned $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4897	5041	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7833	7977	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4897	5041	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7833	7977	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4897	5041	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7833	7977	
==>$_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1326	1454	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2292	2420	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1326	1454	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2292	2420	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1326	1454	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2292	2420	
==>scendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5524	5623	
==>ify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5524	5623	
==>ify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5524	5623	
==>ify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thing <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3991	4087	
==>the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3991	4087	
==>the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3991	4087	
==>the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7886	8000	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10809	10923	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7886	8000	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10809	10923	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7886	8000	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10809	10923	
==>ubmethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Perl6::Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35230	35371	
==>shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35230	35371	
==>shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35230	35371	
==>shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6475	6579	
==>_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_in <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6475	6579	
==>_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_in <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6475	6579	
==>_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35098	35221	
==>length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35098	35221	
==>length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35098	35221	
==>length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	257	360	
==>S}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	257	360	
==>S}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	257	360	
==>S}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3097	3231	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6090	6224	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3370	3497	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9788	9915	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3370	3497	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9788	9915	
==>nal( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_gre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7569	7727	
==>');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7569	7727	
==>');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7569	7727	
==>');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  s <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1185	1294	
==>]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$self, %$ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9953	10057	
==>span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # retu <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9953	10057	
==>span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7397	7529	
==>[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Dat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7397	7529	
==>[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Dat <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	149	259	
==>is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $b <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	153	263	
==>is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	149	259	
==>is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	153	263	
==>is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3649	3755	
==>xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH(). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3649	3755	
==>xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH(). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3649	3755	
==>xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH(). <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1668	1762	
==>6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1668	1762	
==>6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1668	1762	
==>6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5221	5339	
==>$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5420	5533	
==>$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5420	5533	
==>$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4526	4636	
==>ass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4526	4636	
==>ass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4526	4636	
==>ass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6646	6750	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5776	5880	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2430	2534	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2430	2534	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6646	6750	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5776	5880	
==>unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14368	14512	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19049	19193	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14368	14512	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19049	19193	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14368	14512	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19049	19193	
==>{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12581	12690	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10132	10241	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12581	12690	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10132	10241	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12581	12690	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10132	10241	
==>dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	559	686	
==>resh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    s <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	559	686	
==>resh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7757	7870	
==>$debug->{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9325	9434	
==>$debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9325	9434	
==>$debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order rule <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7495	7603	
==>$debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order rule <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5514	5633	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8484	8603	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5514	5633	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8484	8603	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5514	5633	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8484	8603	
==>es (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub. This res <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	216	384	
==>1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->wr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6075	6216	
==>DO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6895	7036	
==>DO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curr <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6075	6216	
==>DO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curr <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6895	7036	
==>DO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curr <==
6	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	274	415	
==>1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->wr <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23957	24064	
==>\G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20378	20485	
==>\G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	420	525	
==>NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you planned $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4639	4740	
==>L::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4639	4740	
==>L::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4639	4740	
==>L::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reen <==
6	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	984	1096	
==>rator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good on 5.5.4.
    return scala <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2478	2581	
==>ten. - Mitchell N Charity
#


grammar JavaScript::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_in <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9279	9370	
==>ary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			t <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9474	9565	
==>ary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			t <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	9669	9760	
==>ary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			t <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	11326	11416	
==>ary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			t <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6966	7086	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6096	6216	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2750	2870	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2750	2870	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6966	7086	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6096	6216	
==>$member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11435	11601	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8988	9154	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11435	11601	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8988	9154	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11435	11601	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8988	9154	
==>t defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    shift @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1189	1316	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	940	1067	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1189	1316	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	940	1067	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1189	1316	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	940	1067	
==>ntainer($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	161	272	
==>s1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	161	272	
==>s1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	161	272	
==>s1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1430	1532	
==>else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1430	1532	
==>else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1430	1532	
==>else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14390	14505	
==>e::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14390	14505	
==>e::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14390	14505	
==>e::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	210	308	
==>s primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	210	308	
==>s primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	210	308	
==>s primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3423	3542	
==>d not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3423	3542	
==>d not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDef <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3423	3542	
==>d not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDef <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3390	3481	
==>to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3390	3481	
==>to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3390	3481	
==>to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1564	1676	
==>superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1564	1676	
==>superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5661	5772	
==>superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4791	4902	
==>superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5661	5772	
==>superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4791	4902	
==>superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5752	5862	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8722	8832	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5752	5862	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8722	8832	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5752	5862	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8722	8832	
==>tion is also
        # duplicated in the other ::make_*_method subs below
        return $method if blessed($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7737	7879	
==>LASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7737	7879	
==>LASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7737	7879	
==>LASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12424	12565	
==>_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12424	12565	
==>_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12424	12565	
==>_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')-> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2430	2613	
==>ble () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5907	6090	
==>ble () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4837	5020	
==>ble () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!headi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15170	15271	
==>s "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15170	15271	
==>s "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15170	15271	
==>s "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11457	11551	
==>on because it isolates the Role specifc
code to the class that consumed it.

------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11457	11551	
==>on because it isolates the Role specifc
code to the class that consumed it.

------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11457	11551	
==>on because it isolates the Role specifc
code to the class that consumed it.

------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	464	557	
==>it(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	464	557	
==>it(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	464	557	
==>it(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3891	3994	
==>('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3891	3994	
==>('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3891	3994	
==>('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5992	6076	
==>ICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5992	6076	
==>ICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5992	6076	
==>ICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13791	13898	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14165	14272	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13791	13898	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14165	14272	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13791	13898	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14165	14272	
==>s necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/binding/ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7982	8118	
==>ode
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7994	8130	
==>ode
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # prin <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12321	12422	
==>ned.

  The C hooks (except for comp, obviously) look for the flag value,
  and call the original Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2541	2637	
==>6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2541	2637	
==>6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2541	2637	
==>6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15441	15635	
==>ammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15720	15914	
==>ammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           , <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16203	16345	
==>warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16203	16345	
==>warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16203	16345	
==>warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check i <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	900	1025	
==>ir] );

    ### get a config and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5001	5100	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3229	3328	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5001	5100	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3229	3328	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5001	5100	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3229	3328	
==>label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10153	10256	
==>if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10153	10256	
==>if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10153	10256	
==>if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10839	10940	
==>if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10839	10940	
==>if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10839	10940	
==>if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript " + o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6732	6835	
==>e PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6732	6835	
==>e PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6732	6835	
==>e PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8812	8911	
==>t ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8812	8911	
==>t ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8812	8911	
==>t ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MUL <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2849	2965	
==>arent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_C <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2849	2965	
==>arent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_C <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6511	6610	
==>se );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6511	6610	
==>se );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14966	15060	
==>ethod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMS <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14966	15060	
==>ethod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	969	1064	
==>rough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	969	1064	
==>rough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	969	1064	
==>rough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	257	351	
==>xpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	257	351	
==>xpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	257	351	
==>xpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24713	24842	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26902	27031	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24713	24842	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26902	27031	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24713	24842	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26902	27031	
==>>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4694	4820	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7630	7756	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4694	4820	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7630	7756	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4694	4820	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7630	7756	
==>$associated_with) eq 'Dispatchable')
            || confess "You must associate the method with a class";          
        # n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3958	4087	
==>pen my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3958	4087	
==>pen my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	729	831	
==>(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	729	831	
==>(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	729	831	
==>(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $att <==
6	/Users/nnunley/pugs/misc/Date/lib/Date.pm	397	496	
==>ation);
}

method difference($self: Date $other) returns Duration {
    ...
}

#method infix:<->($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2417	2516	
==>ilename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2417	2516	
==>ilename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2417	2516	
==>ilename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3461	3559	
==>ned $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3461	3559	
==>ned $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3461	3559	
==>ned $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40701	40814	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    m <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19772	19885	
==>lf[1]
    $P1 = $P1.p6analyze(pad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Qua <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40701	40814	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40701	40814	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    m <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3541	3631	
==>arn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3541	3631	
==>arn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11813	11933	
==>P1.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index t <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17119	17212	
==>urns the input string after converting each character to it's uppercase
form, if lowercase. Th <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2658	2749	
==>_check(-discontiguous). % remove is plausible

p5_start(Z)    --> p5_concatenation(W), p5_al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	120	210	
==>FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parse <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	120	210	
==>FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parse <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	120	210	
==>FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2946	3082	
==>$body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2946	3082	
==>$body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2946	3082	
==>$body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5729	5856	
==>$body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5729	5856	
==>$body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5729	5856	
==>$body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13951	14060	
==>$s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13951	14060	
==>$s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13951	14060	
==>$s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	446	552	
==>ks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Ad <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	446	552	
==>ks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Ad <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	446	552	
==>ks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9216	9351	
==>report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $pas <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1340	1469	
==>report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pas <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1340	1469	
==>report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4037	4147	
==>ult}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optio <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4037	4147	
==>ult}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optio <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4037	4147	
==>ult}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4953	5054	
==>$|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4953	5054	
==>$|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4953	5054	
==>$|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4391	4532	
==>\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . ") <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4531	4672	
==>\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . ") <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20035	20129	
==>bject Hash,
or various combinations of other data types.

While the implementation can be chang <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24587	24681	
==>bject Hash,
or various combinations of other data types.

While the implementation can be chang <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23139	23233	
==>bject Hash,
or various combinations of other data types.

While the implementation can be chang <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9054	9147	
==>ass singleton method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5989	6110	
==>b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5989	6110	
==>b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5989	6110	
==>b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1671	1767	
==>self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1671	1767	
==>self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1671	1767	
==>self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
me <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	61	162	
==>d intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# nee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	61	162	
==>d intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	61	162	
==>d intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# nee <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	61	162	
==>d intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# nee <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9684	9781	
==>s and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9742	9839	
==>s and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25666	25778	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27861	27973	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25666	25778	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27861	27973	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25666	25778	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27861	27973	
==>lar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1873	2015	
==>Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1873	2015	
==>Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1873	2015	
==>Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	518	627	
==>= 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	518	627	
==>= 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	518	627	
==>= 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16686	16876	
==>});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16686	16876	
==>});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16686	16876	
==>});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1193	1296	
==>\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Comp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2067	2170	
==>\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Comp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	578	674	
==>\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Comp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12955	13067	
==>lete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashre <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12955	13067	
==>lete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashre <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12955	13067	
==>lete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5919	6020	
==>nd ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5919	6020	
==>nd ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5919	6020	
==>nd ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6939	7047	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9909	10017	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6939	7047	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9909	10017	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6939	7047	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9909	10017	
==>confess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1393	1492	
==>ore(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1393	1492	
==>ore(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1393	1492	
==>ore(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	972	1069	
==>sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	972	1069	
==>sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	972	1069	
==>sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1656	1795	
==>le_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2 <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1656	1795	
==>le_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8117	8210	
==>Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7247	7340	
==>Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8117	8210	
==>Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7247	7340	
==>Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5034	5167	
==>,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5034	5167	
==>,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5034	5167	
==>,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34812	34944	
==>nch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9719	9836	
==>mit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9699	9816	
==>mit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	458	576	
==>rgs,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e " <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	458	576	
==>rgs,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e " <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8611	8708	
==>( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8611	8708	
==>( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6333	6428	
==>IONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currentl <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6333	6428	
==>IONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currentl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20124	20253	
==>time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20124	20253	
==>time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20124	20253	
==>time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14761	14876	
==>method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14761	14876	
==>method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14761	14876	
==>method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4330	4486	
==>y',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4330	4486	
==>y',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4330	4486	
==>y',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_s <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	10614	10710	
==>ormational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10614	10710	
==>ormational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22039	22134	
==>eading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This docume <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	731	848	
==>{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	936	1053	
==>{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	992	1109	
==>{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1637	1749	
==>e_" . $class->id . " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses' <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8549	8644	
==>led $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_t <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8607	8702	
==>led $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2245	2413	
==>{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2492	2660	
==>{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { ca <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4450	4571	
==>{
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this o <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4450	4571	
==>{
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4333	4447	
==>postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4333	4447	
==>postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4135	4298	
==>new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4135	4298	
==>new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4135	4298	
==>new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1202	1303	
==>->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1202	1303	
==>->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1411	1512	
==>->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14276	14376	
==>l :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each s <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14334	14434	
==>l :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24798	24894	
==>d1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23562	23658	
==>d1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24798	24894	
==>d1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23562	23658	
==>d1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time. <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	4428	4541	
==>t. In Preluded code, do I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm guessing "cu <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3145	3255	
==>ffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better so <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3145	3255	
==>ffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better so <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1381	1485	
==>unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1381	1485	
==>unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1480	1581	
==>l - an old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or s <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1077	1277	
==>%events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_ele <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1077	1277	
==>%events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_ele <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2465	2592	
==>ly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2465	2592	
==>ly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2465	2592	
==>ly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1022	1121	
==>$left->to_native . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10003	10110	
==>this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10003	10110	
==>this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10003	10110	
==>this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	750	846	
==>ws no distinction between them.)  The C<:shift(N)> option can be used to 
select a different numb <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	750	846	
==>ws no distinction between them.)  The C<:shift(N)> option can be used to 
select a different numb <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2610	2704	
==>argument types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# signature <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1721	1818	
==>rn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6813	6910	
==><,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1721	1818	
==>rn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1957	2054	
==>rn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6813	6910	
==><,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6813	6910	
==><,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7093	7223	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10063	10193	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7093	7223	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10063	10193	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7093	7223	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10063	10193	
==>is checks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	53	156	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	764	867	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	53	156	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	764	867	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	53	156	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	764	867	
==>idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1064	1176	
==>ram<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method d <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	806	918	
==>ram<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method d <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1064	1176	
==>ram<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method d <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	806	918	
==>ram<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method d <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5867	5977	
==>returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9344	9454	
==>returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	165	281	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	165	281	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1753	1869	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1958	2074	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2021	2137	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	165	281	
==>::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object is an inst <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8829	8943	
==>fies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # se <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8829	8943	
==>fies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # se <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9085	9195	
==>fies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # se <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9085	9195	
==>fies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # se <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16749	16847	
==>lling code to output as it sees fit.  It
also does not make direct use of environment variables, wh <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16749	16847	
==>lling code to output as it sees fit.  It
also does not make direct use of environment variables, wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20043	20172	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17182	17311	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20043	20172	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17182	17311	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20043	20172	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17182	17311	
==>re just package scoped "our" variables
        # so they are added to the Package normally
        return $self->add_attribute($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7507	7617	
==>) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7507	7617	
==>) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := & <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7507	7617	
==>) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9473	9591	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7020	7138	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9473	9591	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7020	7138	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9473	9591	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7020	7138	
==>tcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12329	12444	
==>"use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12329	12444	
==>"use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12329	12444	
==>"use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17322	17436	
==>sses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17322	17436	
==>sses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17322	17436	
==>sses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4629	4772	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4629	4772	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4629	4772	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5564	5695	
==>nction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5564	5695	
==>nction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5564	5695	
==>nction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8716	8861	
==>em => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8716	8861	
==>em => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8716	8861	
==>em => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5490	5585	
==>} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.ass <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5490	5585	
==>} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.ass <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5490	5585	
==>} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.ass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9274	9425	
==>$z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9274	9425	
==>$z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9274	9425	
==>$z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6312	6448	
==>is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs inv <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6312	6448	
==>is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs inv <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6610	6715	
==>issing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8417	8526	
==>j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8417	8526	
==>j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8417	8526	
==>j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1757	1865	
==>@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1757	1865	
==>@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1757	1865	
==>@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1553	1649	
==>class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an em <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1315	1411	
==>class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an em <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1553	1649	
==>class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an em <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1315	1411	
==>class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an em <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13349	13442	
==>atements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13349	13442	
==>atements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23078	23283	
==>lar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23078	23283	
==>lar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23078	23283	
==>lar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5657	5815	
==>tantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5657	5815	
==>tantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5657	5815	
==>tantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute " <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1101	1235	
==>tring) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 't <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1101	1235	
==>tring) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 't <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12949	13043	
==>et2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Return <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12949	13043	
==>et2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Return <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1271	1361	
==>: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) }))) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1271	1361	
==>: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) }))) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	673	823	
==>rray_store' => sub { # evaluated in lvalue context as a list
                my $self = shift;
                my $repl = shift;
                @{$sel <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	4277	4376	
==>precomp {
    print STDERR "Generating precompiled Prelude" if $Config{verbose};
    die "*** Error: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13872	13967	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7235	7330	
==>},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13872	13967	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13872	13967	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10408	10605	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7959	8156	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10408	10605	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7959	8156	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10408	10605	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7959	8156	
==>ass) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top an <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11640	11757	
==>'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2123	2238	
==>'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8895	9010	
==>'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2123	2238	
==>'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8895	9010	
==>'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	159	258	
==>O - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14124	14260	
==>so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14124	14260	
==>so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14124	14260	
==>so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1355	1461	
==>s.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1355	1461	
==>s.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function per <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1355	1461	
==>s.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3173	3268	
==>onf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2565	2660	
==>^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3173	3268	
==>onf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2565	2660	
==>^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3173	3268	
==>onf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2565	2660	
==>^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2571	2698	
==>= ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2571	2698	
==>= ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l file <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2571	2698	
==>= ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l file <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3694	3779	
==>3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3694	3779	
==>3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3694	3779	
==>3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transiti <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1482	1582	
==>one = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1482	1582	
==>one = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1482	1582	
==>one = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5215	5312	
==>to be only one input file.
In linking mode, multiple input files may be specified. If a filename i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5215	5312	
==>to be only one input file.
In linking mode, multiple input files may be specified. If a filename i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5215	5312	
==>to be only one input file.
In linking mode, multiple input files may be specified. If a filename i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18705	18883	
==>XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18705	18883	
==>XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18705	18883	
==>XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8218	8322	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8218	8322	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8218	8322	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FRO <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22957	23138	
==>nation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23236	23417	
==>nation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1271	1365	
==>es the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> wi <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1271	1365	
==>es the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> wi <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1109	1202	
==>ts, written
in question/answer format, to explain the design and implementation of Pugs.

=hea <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1109	1202	
==>ts, written
in question/answer format, to explain the design and implementation of Pugs.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7703	7803	
==>prevent the default version 
## of this from taking over which would make
## things like: FooRole.isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7703	7803	
==>prevent the default version 
## of this from taking over which would make
## things like: FooRole.isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7703	7803	
==>prevent the default version 
## of this from taking over which would make
## things like: FooRole.isa <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6682	6781	
==>nt>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6682	6781	
==>nt>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1898	1987	
==>classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPAT <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1861	1950	
==>classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPAT <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1898	1987	
==>classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPAT <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1861	1950	
==>classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPAT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3168	3280	
==>return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3168	3280	
==>return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # opera <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3168	3280	
==>return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # opera <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4128	4233	
==>ue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4128	4233	
==>ue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4128	4233	
==>ue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16670	16786	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13875	13991	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16670	16786	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13875	13991	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16670	16786	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13875	13991	
==>$dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attribute($label <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17405	17606	
==>ar(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23371	23572	
==>ar(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17684	17885	
==>ar(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23650	23851	
==>ar(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1192	1392	
==>lse {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return B <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1192	1392	
==>lse {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return B <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6969	7073	
==>_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), r <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11524	11628	
==>_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), r <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12322	12426	
==>_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), r <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13049	13153	
==>_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	20	123	
==>r::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Da <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	20	123	
==>r::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Da <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13734	13859	
==>ormal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13734	13859	
==>ormal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13734	13859	
==>ormal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2034	2153	
==>") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2034	2153	
==>") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2034	2153	
==>") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2715	2816	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3295	3396	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2715	2816	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3295	3396	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2715	2816	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3295	3396	
==>= join "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12322	12447	
==>oxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12322	12447	
==>oxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12322	12447	
==>oxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7166	7290	
==>oxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7166	7290	
==>oxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7166	7290	
==>oxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1252	1348	
==>hod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1252	1348	
==>hod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1252	1348	
==>hod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a ha <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	183	268	
==>,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	172	255	
==>, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages <==
6	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	139	222	
==>, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9832	9952	
==>e's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves agai <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2864	2984	
==>e's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves agai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2502	2606	
==>y);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2502	2606	
==>y);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2502	2606	
==>y);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->cl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30870	30963	
==>nal operator that returns a new Relation::Example
which has a superset of the original's attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3535	3647	
==>fined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3535	3647	
==>fined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3535	3647	
==>fined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1240	1335	
==>S::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1240	1335	
==>S::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1240	1335	
==>S::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	685	852	
==>age, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9923	10029	
==>'t work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.differenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5052	5158	
==>macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pr <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9923	10029	
==>'t work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.differenc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5052	5158	
==>macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5052	5158	
==>macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12001	12165	
==>$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$re <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8283	8447	
==>$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9117	9281	
==>$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16641	16738	
==>Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16641	16738	
==>Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16641	16738	
==>Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7345	7447	
==>one() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7345	7447	
==>one() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7345	7447	
==>one() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21460	21559	
==>) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21460	21559	
==>) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21460	21559	
==>) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4978	5185	
==>ey = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4978	5185	
==>ey = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4978	5185	
==>ey = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1433	1551	
==>args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1433	1551	
==>args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1]. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1433	1551	
==>args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1]. <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26989	27099	
==>5.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



grammar Java <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1380	1481	
==>=> 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq ' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	479	567	
==>ote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Leng <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1092	1180	
==>ote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Leng <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	479	567	
==>ote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Leng <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1092	1180	
==>ote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Leng <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	106	234	
==>a::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	148	276	
==>a::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	106	234	
==>a::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	148	276	
==>a::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1665	1776	
==>et_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1665	1776	
==>et_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7368	7510	
==>e if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7368	7510	
==>e if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7368	7510	
==>e if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i] <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9937	10069	
==>= function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9937	10069	
==>= function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9937	10069	
==>= function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret = <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11882	11995	
==>pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	291	399	
==>pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13605	13701	
==>by HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar con <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13605	13701	
==>by HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar con <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40228	40321	
==>-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
promi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40228	40321	
==>-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
promi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30976	31142	
==>List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30976	31142	
==>List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30976	31142	
==>List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5217	5343	
==>heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8694	8820	
==>heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7714	7840	
==>heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3424	3525	
==>name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3424	3525	
==>name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3424	3525	
==>name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1236	1335	
==>entations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1236	1335	
==>entations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1236	1335	
==>entations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8822	8980	
==>* $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8822	8980	
==>* $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8822	8980	
==>* $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22441	22552	
==>@xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22441	22552	
==>@xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22441	22552	
==>@xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	228	332	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	226	330	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	228	332	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	226	330	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	228	332	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	226	330	
==>nctions build opaque instance
    # variables and access their internal data.
    # This is basically the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5581	5719	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8865	9003	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5581	5719	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8865	9003	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5581	5719	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8865	9003	
==>{
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4719	4819	
==>ection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3846	3946	
==>ection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4719	4819	
==>ection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3846	3946	
==>ection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modu <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1245	1342	
==>by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junction <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1245	1342	
==>by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junction <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2908	3012	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5438	5542	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2908	3012	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5438	5542	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2908	3012	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5438	5542	
==>p is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1798	1931	
==>nt join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = '';
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	369	481	
==>ue)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conversion to native val <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6455	6554	
==>ent<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7191	7290	
==>ent<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6455	6554	
==>ent<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7191	7290	
==>ent<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7605	7702	
==>:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7605	7702	
==>:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7605	7702	
==>:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35432	35521	
==>ss-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39982	40071	
==>ss-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39542	39631	
==>ss-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	417	540	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	415	538	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	417	540	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	415	538	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	417	540	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	415	538	
==>y instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr has <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1413	1532	
==>($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Voi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1413	1532	
==>($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Voi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1413	1532	
==>($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Voi <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1641	1755	
==>->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realclean- <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8389	8491	
==>ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Modu <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8389	8491	
==>ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Modu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6483	6627	
==>null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6483	6627	
==>null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6483	6627	
==>null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1972	2069	
==>ero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1972	2069	
==>ero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1972	2069	
==>ero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6320	6575	
==>>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6320	6575	
==>>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6320	6575	
==>>unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'pe <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5460	5622	
==>{'Pugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by th <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2198	2316	
==>l5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        war <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2415	2533	
==>l5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        war <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16041	16160	
==>) { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16041	16160	
==>) { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $. <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6309	6425	
==>e categories "Uppercase letter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase letter (Lt)",
      # "Modifier let <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	160	262	
==>> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	160	262	
==>> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	160	262	
==>> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16633	16743	
==>rn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16633	16743	
==>rn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16633	16743	
==>rn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14974	15070	
==>...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14974	15070	
==>...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14974	15070	
==>...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9097	9275	
==>fference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12574	12752	
==>fference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11810	11988	
==>fference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3169	3308	
==>t if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3169	3308	
==>t if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3169	3308	
==>t if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4832	4956	
==>d') ? 'ok' : 'not ok';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _('$.n <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13583	13677	
==>nterminated is TRUE then we also unterminated named
entities will also be expanded.  The longes <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13583	13677	
==>nterminated is TRUE then we also unterminated named
entities will also be expanded.  The longes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	521	611	
==>::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	521	611	
==>::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	521	611	
==>::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10040	10146	
==>1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7980	8086	
==>1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10040	10146	
==>1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7980	8086	
==>1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4910	5007	
==>jects. These
methods can be called with the following syntax:

  $config<read>('config.ini');
  
w <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4910	5007	
==>jects. These
methods can be called with the following syntax:

  $config<read>('config.ini');
  
w <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3298	3430	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11856	11988	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6423	6555	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3298	3430	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11856	11988	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6423	6555	
==>!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9769	9901	
==>y_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9769	9901	
==>y_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9769	9901	
==>y_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # w <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4088	4219	
==>_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4088	4219	
==>_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1716	1815	
==>1 if ((index $options, "nows") >= 0);

  #print "name: $name - eq: $equivalence - rp: $relativePrece <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1055	1168	
==>structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1055	1168	
==>structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1055	1168	
==>structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	285	390	
==>nt);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	285	390	
==>nt);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	285	390	
==>nt);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$se <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	248	358	
==>ub parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tail ) = Pugs::Grammar::Expression::ast( <==
6	/Users/nnunley/pugs/util/build_pugs.pl	348	450	
==>-?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22110	22201	
==>r numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20991	21082	
==>r numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22110	22201	
==>r numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20991	21082	
==>r numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9785	9926	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10064	10205	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::ru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37081	37184	
==>my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37081	37184	
==>my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37081	37184	
==>my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL: <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9524	9621	
==>'-inf' => '-100**100**100',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	375	495	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	373	493	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	375	495	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	373	493	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	375	495	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	373	493	
==>idate as described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # In <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2890	3022	
==>ual',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'try',
        assoc => 'non',
        precede <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1311	1430	
==>Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timest <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1311	1430	
==>Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timest <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3338	3438	
==>,$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3338	3438	
==>,$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11650	11742	
==>therwise C<cmp>.

=item Pair(KeyExtractor, Comparator)

A combination of the two methods abov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1455	1559	
==>{undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shap <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1455	1559	
==>{undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shap <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1455	1559	
==>{undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shap <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4103	4203	
==>ssed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is tr <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4103	4203	
==>ssed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is tr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6300	6400	
==>ssed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2663	2765	
==>rt for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2663	2765	
==>rt for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2663	2765	
==>rt for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1825	1914	
==>elf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1825	1914	
==>elf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1825	1914	
==>elf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10227	10341	
==>o the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10227	10341	
==>o the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10227	10341	
==>o the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6046	6147	
==>nce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6046	6147	
==>nce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6046	6147	
==>nce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7062	7182	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10032	10152	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7062	7182	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10032	10152	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7062	7182	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10032	10152	
==>round the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are b <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1592	1712	
==>uous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$ <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1592	1712	
==>uous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4993	5092	
==><==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4120	4219	
==><==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4993	5092	
==><==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4120	4219	
==><==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15321	15441	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20054	20174	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15321	15441	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20054	20174	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15321	15441	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20054	20174	
==>destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1757	1871	
==>le' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $ba <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1757	1871	
==>le' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $ba <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1757	1871	
==>le' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7744	7848	
==>new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7744	7848	
==>new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7744	7848	
==>new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4364	4475	
==>{""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4364	4475	
==>{""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4364	4475	
==>{""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3501	3606	
==>e a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3501	3606	
==>e a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3501	3606	
==>e a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39155	39275	
==>->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39155	39275	
==>->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39155	39275	
==>->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	516	632	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    els <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	516	632	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    els <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	516	632	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    els <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12690	12808	
==>ength target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3 <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3742	3839	
==>.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5975	6072	
==>ng);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3742	3839	
==>.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5975	6072	
==>ng);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5975	6072	
==>ng);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9485	9595	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7032	7142	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9485	9595	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7032	7142	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9485	9595	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7032	7142	
==>f->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4726	4828	
==>_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4726	4828	
==>_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4726	4828	
==>_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1690	1783	
==>irst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1690	1783	
==>irst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1690	1783	
==>irst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	840	993	
==>{ $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	840	993	
==>{ $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	840	993	
==>{ $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1784	1898	
==>->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1784	1898	
==>->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1784	1898	
==>->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3022	3137	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3022	3137	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3022	3137	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19080	19181	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19080	19181	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19080	19181	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1896	2016	
==>quires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1896	2016	
==>quires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1896	2016	
==>quires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1862	1956	
==>>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to cons <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1862	1956	
==>>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to cons <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1862	1956	
==>>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7040	7202	
==>t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7040	7202	
==>t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7040	7202	
==>t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:ce <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21721	21821	
==>nly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26273	26373	
==>nly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rela <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24933	25033	
==>nly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rela <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10407	10534	
==>erred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUT <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10407	10534	
==>erred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUT <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10407	10534	
==>erred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10888	10987	
==>$name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME}) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10888	10987	
==>$name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME}) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10888	10987	
==>$name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5858	5966	
==>hings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5858	5966	
==>hings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5858	5966	
==>hings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$js <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	339	446	
==>l::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has St <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	339	446	
==>l::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	241	364	
==>1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	241	364	
==>1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	241	364	
==>1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7635	7744	
==>.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arra <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7635	7744	
==>.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arra <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7635	7744	
==>.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arra <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17131	17226	
==>package that would otherwise use
it.  Hereafter, if any other package or application says that i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17131	17226	
==>package that would otherwise use
it.  Hereafter, if any other package or application says that i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33265	33357	
==>ioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a gen <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37815	37907	
==>ioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a gen <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	222	305	
==>------------------------------------------------------------------------
## construc <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	222	305	
==>------------------------------------------------------------------------
## construc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1811	1963	
==>KMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1811	1963	
==>KMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1811	1963	
==>KMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1637	1768	
==>KMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1637	1768	
==>KMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1637	1768	
==>KMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$:: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1582	1773	
==>ant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1433	1570	
==>)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1376	1506	
==>)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	18	124	
==>strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	18	124	
==>strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	18	124	
==>strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4060	4174	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6709	6823	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4295	4407	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10744	10856	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4295	4407	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10744	10856	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8898	9073	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11871	12046	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8898	9073	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11871	12046	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8898	9073	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11871	12046	
==>thod "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9921	10099	
==>scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9921	10099	
==>scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9921	10099	
==>scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1285	1427	
==>$module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	483	613	
==>hile ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($pare <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3804	3905	
==>$S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 1)) if $cc;
    re <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12423	12596	
==>lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $pa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12423	12596	
==>lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $pa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4361	4468	
==>hen, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4361	4468	
==>hen, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4870	4975	
==>hen, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4870	4975	
==>hen, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which a <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5246	5343	
==>n?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
opt <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5246	5343	
==>n?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6770	6867	
==>n?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1338	1429	
==>l_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = joi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1338	1429	
==>l_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = joi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1338	1429	
==>l_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15079	15199	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12333	12453	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15079	15199	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12333	12453	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15079	15199	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12333	12453	
==>tance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4841	4965	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7490	7614	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5056	5173	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11505	11622	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5056	5173	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11505	11622	
==>en) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# get <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	453	596	
==>6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3325	3441	
==>ess exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3325	3441	
==>ess exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1966	2075	
==>>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1966	2075	
==>>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1966	2075	
==>>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1228	1337	
==>0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1228	1337	
==>0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1228	1337	
==>0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4496	4589	
==>passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ' <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4496	4589	
==>passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6693	6786	
==>passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	159	269	
==>tement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	159	269	
==>tement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	159	269	
==>tement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2320	2427	
==>utine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2320	2427	
==>utine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2667	2774	
==>utine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6958	7057	
==>};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6958	7057	
==>};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6958	7057	
==>};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23870	23963	
==>,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23870	23963	
==>,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23870	23963	
==>,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6316	6434	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9286	9404	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6316	6434	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9286	9404	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6316	6434	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9286	9404	
==>class as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13831	13960	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14205	14334	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13831	13960	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14205	14334	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13831	13960	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14205	14334	
==>ings
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31510	31705	
==>length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31510	31705	
==>length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31510	31705	
==>length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1165	1267	
==>fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1165	1267	
==>fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1165	1267	
==>fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	915	1017	
==>, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) r <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	973	1075	
==>, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1188	1284	
==>e for your tastes, and
you want to rebless everything down to your project's base namespace.

Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1188	1284	
==>e for your tastes, and
you want to rebless everything down to your project's base namespace.

Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1188	1284	
==>e for your tastes, and
you want to rebless everything down to your project's base namespace.

Cla <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1536	1624	
==>^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5437	5601	
==>d => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5437	5601	
==>d => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $lis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5437	5601	
==>d => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $lis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	52	144	
==>l6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::V <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	52	144	
==>l6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::V <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	52	144	
==>l6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::V <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14635	14827	
==>eading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18112	18304	
==>eading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17528	17720	
==>eading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4301	4406	
==>5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4301	4406	
==>5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4301	4406	
==>5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2146	2268	
==>( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \& <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11014	11136	
==>( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \& <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2339	2461	
==>( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \& <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11293	11415	
==>( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \& <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3650	3758	
==>ar1/;
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<o <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	569	672	
==>d::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$| = 1;
my $start = time;

sub usag <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1614	1735	
==>idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1614	1735	
==>idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1614	1735	
==>idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	671	765	
==>ded for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	671	765	
==>ded for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	671	765	
==>ded for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16932	17039	
==>source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another opt <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20409	20516	
==>source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another opt <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19987	20094	
==>source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6114	6223	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9084	9193	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6114	6223	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9084	9193	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6114	6223	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9084	9193	
==>tub
    sub ::make_stub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/util/package-osx.pl	9779	9903	
==>= $from;
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $f <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3869	3971	
==>:Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($se <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3869	3971	
==>:Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4026	4124	
==>$param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $defa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4026	4124	
==>$param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $defa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4026	4124	
==>$param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $defa <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1744	1858	
==>.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1744	1858	
==>.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15829	15925	
==>l rights reserved.

This library is free software; you can redistribute it and/or
modify it under <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15829	15925	
==>l rights reserved.

This library is free software; you can redistribute it and/or
modify it under <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	871	964	
==>ructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as ano <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	871	964	
==>ructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as ano <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4141	4241	
==>a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4141	4241	
==>a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4141	4241	
==>a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39484	39581	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39754	39851	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39484	39581	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39754	39851	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39484	39581	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39754	39851	
==>s if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1138	1347	
==>d();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $la <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1138	1347	
==>d();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $la <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1138	1347	
==>d();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $la <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6206	6347	
==>ay[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4708	4849	
==>ay[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4328	4466	
==>esult{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11044	11193	
==>rt\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ma <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8110	8254	
==>rt\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8110	8254	
==>rt\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	622	728	
==>that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	622	728	
==>that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	622	728	
==>that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6679	6804	
==>f $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6679	6804	
==>f $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6679	6804	
==>f $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2706	2829	
==>meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2706	2829	
==>meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2706	2829	
==>meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19465	19580	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16697	16812	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19465	19580	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16697	16812	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19465	19580	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16697	16812	
==>abel || 'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7889	8039	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7889	8039	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7889	8039	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4953	5101	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4953	5101	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4953	5101	
==>e of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $: <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7880	8078	
==>ield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $arr <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7880	8078	
==>ield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $arr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10061	10187	
==>tch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10340	10466	
==>tch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18039	18156	
==>s to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaul <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17077	17194	
==>s to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaul <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18039	18156	
==>s to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaul <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17077	17194	
==>s to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7280	7455	
==>ed $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7280	7455	
==>ed $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7280	7455	
==>ed $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11599	11705	
==>q 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11599	11705	
==>q 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11599	11705	
==>q 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9354	9477	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6901	7024	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9354	9477	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6901	7024	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9354	9477	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6901	7024	
==>) {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10503	10734	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8054	8285	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10503	10734	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8054	8285	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10503	10734	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8054	8285	
==>op it off the stack ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13966	14117	
==>/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13966	14117	
==>/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13966	14117	
==>/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	414	518	
==>al $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	414	518	
==>al $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	414	518	
==>al $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16831	16997	
==>pts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16831	16997	
==>pts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16831	16997	
==>pts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12420	12526	
==>left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12420	12526	
==>left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12420	12526	
==>left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7913	8054	
==>{
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7913	8054	
==>{
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7913	8054	
==>{
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12393	12490	
==>acks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if def <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12393	12490	
==>acks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if def <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12393	12490	
==>acks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6594	6706	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9043	9155	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6594	6706	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9043	9155	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6594	6706	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9043	9155	
==>nless defined $end && defined $start;
            die "Not implemented: instantiate lazy slice using a reversed l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4344	4526	
==>$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4344	4526	
==>$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4344	4526	
==>$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4414	4526	
==>e' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} ke <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4414	4526	
==>e' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} ke <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4414	4526	
==>e' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	240	341	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	181	282	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	240	341	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	181	282	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	240	341	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	181	282	
==>le to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been adde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4027	4179	
==>ole readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4027	4179	
==>ole readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4027	4179	
==>ole readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2369	2467	
==>perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2369	2467	
==>perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2369	2467	
==>perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24786	24910	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26975	27099	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24786	24910	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26975	27099	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24786	24910	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26975	27099	
==>"ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13395	13540	
==>= +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13395	13540	
==>= +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13395	13540	
==>= +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21469	21614	
==>new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44376	44521	
==>new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2280	2425	
==>= +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9335	9443	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6882	6990	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9335	9443	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6882	6990	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9335	9443	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6882	6990	
==>order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order eq ': <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	607	721	
==>1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	607	721	
==>1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1665	1767	
==>", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1665	1767	
==>", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1665	1767	
==>", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N" <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2561	2661	
==>This
module is an experiment, to see if it is possible to use the regexp
struct as a new api into the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4113	4247	
==>arams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspara <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4113	4247	
==>arams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspara <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4113	4247	
==>arams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspara <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4783	4909	
==>STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4783	4909	
==>STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4783	4909	
==>STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17456	17574	
==>ef $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn "weird - $node doesn't fmap but is an obj <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6018	6116	
==>urn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int object <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6018	6116	
==>urn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int object <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18574	18663	
==>m_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18574	18663	
==>m_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18574	18663	
==>m_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9789	9904	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7338	7453	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9789	9904	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7338	7453	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9789	9904	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7338	7453	
==>::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2938	3067	
==>->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2938	3067	
==>->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2938	3067	
==>->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5721	5841	
==>->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5721	5841	
==>->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5721	5841	
==>->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16470	16560	
==>ass->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5768	5858	
==>js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5768	5858	
==>js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5768	5858	
==>js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16470	16560	
==>ass->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16470	16560	
==>ass->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15449	15562	
==>tialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -& <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15449	15562	
==>tialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -& <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15449	15562	
==>tialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19940	20030	
==>fix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19940	20030	
==>fix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19940	20030	
==>fix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3660	3785	
==>:EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3660	3785	
==>:EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3660	3785	
==>:EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27636	27729	
==>corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32188	32281	
==>corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31280	31373	
==>corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8788	8968	
==>$key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8788	8968	
==>$key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8788	8968	
==>$key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2973	3097	
==>te ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2973	3097	
==>te ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribut <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2973	3097	
==>te ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribut <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2203	2311	
==>:Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ." <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12512	12620	
==>it' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2203	2311	
==>:Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2203	2311	
==>:Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ." <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12512	12620	
==>it' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12512	12620	
==>it' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unb <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5490	5632	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5683	5825	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4215	4324	
==>,$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(E <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4215	4324	
==>,$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(E <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4215	4324	
==>,$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(E <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	875	981	
==>->new();
}

1;

__END__

=pod

=head1 NAME

reference - the core reference type

=head1 METHODS

=over 4

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25973	26149	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28174	28350	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25973	26149	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28174	28350	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25973	26149	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28174	28350	
==>' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12899	13021	
==>y $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_po <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12899	13021	
==>y $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_po <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2215	2323	
==>l was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resol <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2215	2323	
==>l was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resol <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7651	7754	
==>ure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_string <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7651	7754	
==>ure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8849	8999	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6402	6552	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8849	8999	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6402	6552	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8849	8999	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6402	6552	
==>sses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	711	816	
==>> "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	711	816	
==>> "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	711	816	
==>> "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2685	2782	
==>UGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2685	2782	
==>UGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2685	2782	
==>UGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3951	4117	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3951	4117	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3951	4117	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12329	12494	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12329	12494	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12329	12494	
==>D.t  
            'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7608	7712	
==>ds => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7608	7712	
==>ds => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7608	7712	
==>ds => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3268	3368	
==>le $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3268	3368	
==>le $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3268	3368	
==>le $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3132	3256	
==>tion - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a v <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3132	3256	
==>tion - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a v <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9448	9558	
==>ction toggle_visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expand <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2355	2447	
==>> $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2355	2447	
==>> $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2355	2447	
==>> $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_s <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4950	5046	
==>arison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4077	4173	
==>arison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4950	5046	
==>arison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4077	4173	
==>arison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23196	23289	
==>e it, which could
produce ambiguous results or associations.  Or alternately, the other
packag <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23196	23289	
==>e it, which could
produce ambiguous results or associations.  Or alternately, the other
packag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2231	2362	
==>ame);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2231	2362	
==>ame);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2231	2362	
==>ame);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shi <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	461	573	
==>length $segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$segil$name$space}";
#	
#    # di <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	514	610	
==>e {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role whic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	514	610	
==>e {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role whic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34574	34674	
==>fset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34574	34674	
==>fset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34574	34674	
==>fset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4003	4099	
==>{"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4003	4099	
==>{"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4003	4099	
==>{"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5575	5693	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8545	8663	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5575	5693	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8545	8663	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5575	5693	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8545	8663	
==>ptimze it and
        # return the exact same sub. This results in this
        # method being passed an already blesse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	495	612	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	495	612	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	427	544	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	632	749	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	688	805	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	495	612	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2075	2184	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1187	1296	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2075	2184	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1187	1296	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2075	2184	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1187	1296	
==>allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	347	506	
==>6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	347	506	
==>6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	347	506	
==>6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1500	1644	
==>r
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Bu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6035	6134	
==>lass = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.pa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6035	6134	
==>lass = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	209	332	
==>e PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24265	24386	
==>,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24265	24386	
==>,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24265	24386	
==>,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	95	212	
==>e PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	95	212	
==>e PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub c <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7112	7213	
==>content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7112	7213	
==>content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8823	8922	
==>.}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8823	8922	
==>.}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8823	8922	
==>.}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pref <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2434	2530	
==>a( $_[0], '$<Pugs::Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub node: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2482	2603	
==>method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2482	2603	
==>method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhead <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2482	2603	
==>method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhead <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	241	339	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	241	339	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	241	339	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8485	8589	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8485	8589	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8485	8589	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            ' <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36990	37086	
==>s, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41539	41635	
==>s, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of so <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41162	41258	
==>s, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of so <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10186	10321	
==>ct($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $la <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10186	10321	
==>ct($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $la <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2750	2863	
==>' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7844	7957	
==>' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2750	2863	
==>' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7844	7957	
==>' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9222	9345	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12195	12318	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9222	9345	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12195	12318	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9222	9345	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12195	12318	
==>::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::PrivateMethod <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6707	6840	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7468	7601	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8338	8471	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10184	10317	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10945	11078	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11815	11948	
==>lation {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not ma <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13970	14066	
==>ulti-valued, then the
routine is called once for each value.  The field name passed to the
callba <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13970	14066	
==>ulti-valued, then the
routine is called once for each value.  The field name passed to the
callba <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22178	22273	
==>message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21059	21154	
==>message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22178	22273	
==>message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21059	21154	
==>message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5986	6124	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8956	9094	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5986	6124	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8956	9094	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5986	6124	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8956	9094	
==>hod body (" . ($method || 'undef') . ")";     
        return bless $method => 'Perl6::Method';
    }
    
    # make a method stub
    sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8969	9117	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11942	12090	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8969	9117	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11942	12090	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8969	9117	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11942	12090	
==>'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMeth <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3841	4026	
==>st_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshnes <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3841	4026	
==>st_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshnes <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31951	32044	
==>its C<$other> argument, where <$other> has the same heading as
the invocant Relation, and retu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33812	33905	
==>its C<$other> argument, where <$other> has the same heading as the
invocant Relation, and retu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36501	36594	
==>its C<$other> argument, where <$other> has the same heading as
the invocant Relation, and retu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38362	38455	
==>its C<$other> argument, where <$other> has the same heading as the
invocant Relation, and retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10907	11006	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11116	11215	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10907	11006	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11116	11215	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10907	11006	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11116	11215	
==>Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12801	12959	
==>_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12801	12959	
==>_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12801	12959	
==>_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6336	6450	
==>ame;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6336	6450	
==>ame;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6336	6450	
==>ame;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !pe <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3331	3458	
==>$builddir] )                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15494	15592	
==>$xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($x <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4441	4539	
==>ead2 &{}

When used as a code reference, the match object returns the I<result>
object; this is nor <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15494	15592	
==>$xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15494	15592	
==>$xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($x <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4441	4539	
==>ead2 &{}

When used as a code reference, the match object returns the I<result>
object; this is nor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8702	8837	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6255	6390	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8702	8837	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6255	6390	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8702	8837	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6255	6390	
==>e linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11404	11497	
==>ovides more predictable 
behavior to class consturction because it isolates the Role specifc
c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11404	11497	
==>ovides more predictable 
behavior to class consturction because it isolates the Role specifc
c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11404	11497	
==>ovides more predictable 
behavior to class consturction because it isolates the Role specifc
c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14449	14541	
==>rray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14449	14541	
==>rray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14449	14541	
==>rray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run:: <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	2327	2456	
==>s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3923	4019	
==>assed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builde <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3923	4019	
==>assed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6120	6216	
==>assed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builde <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9084	9176	
==>ISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9084	9176	
==>ISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5270	5407	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5463	5600	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4147	4247	
==>t $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3274	3374	
==>t $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4147	4247	
==>t $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3274	3374	
==>t $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪ <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8621	8739	
==><= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checkin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10215	10406	
==>aram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10215	10406	
==>aram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10215	10406	
==>aram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # T <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	605	709	
==>o_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	605	709	
==>o_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	605	709	
==>o_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	705	802	
==>hould not backtrack or whatever



Continuations are used for backtracking.



A "ruleop" function <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10573	10670	
==>hould not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" function <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	677	770	
==>hould not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1503	1595	
==>y ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1503	1595	
==>y ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1503	1595	
==>y ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	390	502	
==>:PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	390	502	
==>:PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	390	502	
==>:PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => und <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2211	2317	
==>$level == $#{$self->{levels}};
    for my $op ( @{$self->{levels}[$level]} ) {
        my $rule = $op->{fix <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8278	8371	
==>e(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8278	8371	
==>e(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21642	21842	
==>a( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21642	21842	
==>a( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21642	21842	
==>a( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6690	6809	
==>/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6690	6809	
==>/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6690	6809	
==>/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1070	1183	
==>$pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1070	1183	
==>$pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1070	1183	
==>$pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8895	9004	
==>", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8895	9004	
==>", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8895	9004	
==>", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a r <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	694	815	
==>rgs = check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5589	5693	
==>me =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5589	5693	
==>me =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5589	5693	
==>me =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.ge <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1175	1263	
==>le(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1395	1483	
==>le(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=( <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5337	5481	
==>ace'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'sy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2042	2146	
==>my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2042	2146	
==>my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2042	2146	
==>my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4831	4931	
==>elf->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5175	5275	
==>elf->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7363	7511	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4922	5070	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7363	7511	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4922	5070	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7363	7511	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4922	5070	
==>reach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the head of the list
            my $nothead;            
            foreach my <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21304	21436	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22425	22557	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22988	23120	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17725	17857	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18846	18978	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19409	19541	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPO <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	244	343	
==>e DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of dat <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	244	343	
==>e DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17129	17223	
==>ymlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17129	17223	
==>ymlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17129	17223	
==>ymlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5779	5869	
==>mple_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15363	15561	
==>or @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18840	19038	
==>or @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union ( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18265	18463	
==>or @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1160	1257	
==>se Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1160	1257	
==>se Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1160	1257	
==>se Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3326	3475	
==>} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifie <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3314	3463	
==>} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1838	1956	
==>pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Supp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1838	1956	
==>pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Supp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1838	1956	
==>pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Supp <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1673	1765	
==>]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { $_[0]{'has_failed'} }

packa <==
6	/Users/nnunley/pugs/examples/hop6/Lexer.pm	782	910	
==>ay) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if defined $tok;
        @tokens <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22447	22544	
==>on the
same object with the same arguments; they do not interact with the outside
environment at a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26999	27096	
==>on the
same object with the same arguments; they do not interact with the outside
environment at a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25722	25819	
==>on the
same object with the same arguments; they do not interact with the outside
environment at a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7209	7298	
==>erms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1034	1123	
==>erms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1125	1250	
==>ull_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1125	1250	
==>ull_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1125	1250	
==>ull_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5463	5574	
==>y
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5463	5574	
==>y
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5463	5574	
==>y
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9583	9695	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7130	7242	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9583	9695	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7130	7242	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9583	9695	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7130	7242	
==>er = $self->_make_ascendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16881	17020	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17160	17299	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       r <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6529	6625	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5659	5755	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6529	6625	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5659	5755	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5435	5577	
==>lback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetim <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5435	5577	
==>lback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetim <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4291	4389	
==>sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
} <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5188	5286	
==>sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
} <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4291	4389	
==>sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
} <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5188	5286	
==>sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16559	16687	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13764	13892	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16559	16687	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13764	13892	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16559	16687	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13764	13892	
==>ms) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) { <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7801	7912	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6931	7042	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3517	3628	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3517	3628	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7801	7912	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6931	7042	
==>ecessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15676	15779	
==>.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19153	19256	
==>.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return R <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6025	6123	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5155	5253	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6025	6123	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5155	5253	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3538	3639	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6552	6653	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8620	8721	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3538	3639	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6552	6653	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8620	8721	
==>canonpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18553	18730	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15791	15968	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18553	18730	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15791	15968	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18553	18730	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15791	15968	
==>t_attribute($label, for => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope.. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6996	7094	
==>(rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6996	7094	
==>(rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6996	7094	
==>(rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6163	6255	
==>ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6163	6255	
==>ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6163	6255	
==>ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	695	809	
==>"", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { sa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	695	809	
==>"", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { sa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	695	809	
==>"", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { sa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	469	567	
==>sulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	469	567	
==>sulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	469	567	
==>sulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13114	13256	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13114	13256	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13114	13256	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5354	5496	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3854	3996	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1999	2141	
==>"splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2675	2767	
==>extracted,$remainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extrac <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16451	16542	
==>ete
(and industrial strength) and has fully integrated database functionality;
this language <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16451	16542	
==>ete
(and industrial strength) and has fully integrated database functionality;
this language <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21965	22055	
==>1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21965	22055	
==>1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21965	22055	
==>1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5659	5779	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8629	8749	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5659	5779	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8629	8749	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5659	5779	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8629	8749	
==>thod being passed an already blessed method 
        # instead of a plain CODE ref. This solution is also
        # dupli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3186	3328	
==>y2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3186	3328	
==>y2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3186	3328	
==>y2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1007	1125	
==>:Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1007	1125	
==>:Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1007	1125	
==>:Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16580	16684	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21297	21401	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16580	16684	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21297	21401	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16580	16684	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21297	21401	
==>ESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_G <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1962	2059	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4258	4355	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1925	2022	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1962	2059	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4258	4355	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1925	2022	
==>Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11376	11527	
==>al && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11376	11527	
==>al && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unle <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11376	11527	
==>al && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1687	1780	
==>b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1687	1780	
==>b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1687	1780	
==>b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14946	15051	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12200	12305	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14946	15051	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12200	12305	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14946	15051	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12200	12305	
==>label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9068	9191	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12041	12164	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9068	9191	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12041	12164	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9068	9191	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12041	12164	
==>ackage Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::Class <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	265	376	
==>def $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no wa <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	471	582	
==>def $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1176	1280	
==>.30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1176	1280	
==>.30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stri <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1176	1280	
==>.30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stri <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	668	765	
==>l 'counter', see the ratchet version for an implementation
and tests.

- Quantified matches cou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2663	2783	
==>y( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2663	2783	
==>y( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2663	2783	
==>y( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{cel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2770	2878	
==>(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2770	2878	
==>(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2770	2878	
==>(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15154	15288	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15154	15288	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15154	15288	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11370	11463	
==>ey will not get inherited. This provides more predictable 
behavior to class consturction beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11370	11463	
==>ey will not get inherited. This provides more predictable 
behavior to class consturction beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11370	11463	
==>ey will not get inherited. This provides more predictable 
behavior to class consturction beca <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1563	1661	
==>esents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1325	1423	
==>esents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1563	1661	
==>esents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1325	1423	
==>esents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25286	25375	
==>at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a syst <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25286	25375	
==>at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a syst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7806	7929	
==>nction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7806	7929	
==>nction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7806	7929	
==>nction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2685	2790	
==>=~ s/<op2>/\$<op2>:=(<'$op->{name2}'>)/s;
        push @rules, $template;
    }
    push @rules, "<$tight> <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2973	3069	
==>.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2973	3069	
==>.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18295	18488	
==>($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18295	18488	
==>($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18295	18488	
==>($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5015	5155	
==>fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5015	5155	
==>fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5015	5155	
==>fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1622	1744	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3185	3307	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1622	1744	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3185	3307	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1622	1744	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3185	3307	
==>LE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CA <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1943	2160	
==>> 1 } );
                if ( $m ) {
                    #print "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = P <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2110	2283	
==>_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2110	2283	
==>_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17096	17191	
==>me ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17096	17191	
==>me ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17096	17191	
==>me ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2881	2993	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10804	10916	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6006	6118	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2881	2993	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10804	10916	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6006	6118	
==>:Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3588	3719	
==>oop{$id}{'op_ahead'} = $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanup\n" if $debug;
      my <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2816	2917	
==>' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	333	434	
==>(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2816	2917	
==>' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	333	434	
==>(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	333	434	
==>(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10953	11039	
==>---------------------------------
Random Thoughts on Role state:
---------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10976	11062	
==>----------
Random Thoughts on Role state:
--------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10953	11039	
==>---------------------------------
Random Thoughts on Role state:
---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10976	11062	
==>----------
Random Thoughts on Role state:
--------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10953	11039	
==>---------------------------------
Random Thoughts on Role state:
---------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10976	11062	
==>----------
Random Thoughts on Role state:
--------------------------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4304	4441	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6953	7090	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4534	4667	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10983	11116	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4534	4667	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10983	11116	
==>rn}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-r <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7872	7973	
==>thod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.traver <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7872	7973	
==>thod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.traver <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22485	22580	
==>eason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21339	21434	
==>eason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22485	22580	
==>eason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21339	21434	
==>eason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8699	8858	
==>2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8699	8858	
==>2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8699	8858	
==>2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5540	5647	
==>rgs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5540	5647	
==>rgs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5540	5647	
==>rgs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5454	5650	
==>f ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32388	32533	
==>plice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32388	32533	
==>plice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32388	32533	
==>plice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $len <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2324	2437	
==>unctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cann <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2324	2437	
==>unctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cann <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17093	17229	
==>() },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17093	17229	
==>() },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$n <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2287	2387	
==>ther than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who crea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22019	22109	
==>($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22019	22109	
==>($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22019	22109	
==>($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	867	987	
==>cture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	867	987	
==>cture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	867	987	
==>cture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14413	14502	
==>:Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14413	14502	
==>:Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14413	14502	
==>:Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18229	18363	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15467	15601	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18229	18363	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15467	15601	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18229	18363	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15467	15601	
==>h
                        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4043	4210	
==>) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package th <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4507	4674	
==>) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package th <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2404	2570	
==>t;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift;
                %{$self->hash_fet <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3134	3245	
==>(capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3318	3429	
==>(capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3750	3842	
==>nPerl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5196	5353	
==>>= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     fo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5196	5353	
==>>= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     fo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6798	6922	
==>', "\n"';
        }
        if ( $n->{method}{bareword} eq 'perl' ) {
            return 'Pugs::Runtime::Perl6::perl(' . _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2447	2540	
==>r.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2447	2540	
==>r.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subst <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2447	2540	
==>r.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subst <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2506	2617	
==>_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2506	2617	
==>_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8854	8959	
==>ie "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't clo <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	588	693	
==>ie "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't clo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8854	8959	
==>ie "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't clo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8854	8959	
==>ie "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't clo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10145	10301	
==>::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $num <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	699	849	
==>::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $num <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	699	849	
==>::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1196	1290	
==>fer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1196	1290	
==>fer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1196	1290	
==>fer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3189	3330	
==>ne =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { loc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3189	3330	
==>ne =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { loc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3189	3330	
==>ne =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { loc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23417	23512	
==>" is a Role rather than a Class, and some
implementations are immutable rather than mutable, thi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27969	28064	
==>" is a Role rather than a Class, and some
implementations are immutable rather than mutable, thi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26773	26868	
==>" is a Role rather than a Class, and some
implementations are immutable rather than mutable, thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7959	8066	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10882	10989	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7959	8066	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10882	10989	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7959	8066	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10882	10989	
==>ed($method) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9614	9732	
==>[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9614	9732	
==>[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9614	9732	
==>[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idx <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3169	3268	
==>ork on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3169	3268	
==>ork on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3169	3268	
==>ork on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5500	5616	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3620	3736	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5500	5616	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3620	3736	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5500	5616	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3620	3736	
==>asses in an ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12535	12633	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10086	10184	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12535	12633	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10086	10184	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12535	12633	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10086	10184	
==>elf) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    whi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6712	6811	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5842	5941	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2496	2595	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2496	2595	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6712	6811	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5842	5941	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) ret <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5869	5969	
==>::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5869	5969	
==>::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7393	7493	
==>::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	593	692	
==>ith "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&co <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	593	692	
==>ith "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&co <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18290	18385	
==>[\w\d:4-6]>.  If you want to prevent
characters and ranges from being display if they are includ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7964	8089	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10887	11012	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7964	8089	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10887	11012	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7964	8089	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10887	11012	
==>ethod) && $method->isa('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3018	3134	
==>enclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3018	3134	
==>enclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3018	3134	
==>enclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2033	2147	
==>ull_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2033	2147	
==>ull_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2033	2147	
==>ull_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14223	14437	
==>->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14223	14437	
==>->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14223	14437	
==>->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4213	4326	
==>-

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::str <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4213	4326	
==>-

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::str <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4213	4326	
==>-

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1263	1370	
==>compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1263	1370	
==>compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1263	1370	
==>compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6432	6530	
==>} elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6432	6530	
==>} elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6432	6530	
==>} elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2934	3059	
==>lass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2934	3059	
==>lass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2934	3059	
==>lass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1344	1449	
==>{
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1344	1449	
==>{
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1344	1449	
==>{
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7511	7656	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5070	5215	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7511	7656	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5070	5215	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7511	7656	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5070	5215	
==>y $sub_seq (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	94	200	
==>em
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	94	200	
==>em
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	94	200	
==>em
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	526	626	
==>$canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	526	626	
==>$canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	526	626	
==>$canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CR <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12035	12150	
==>_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my metho <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6602	6717	
==>_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my metho <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12035	12150	
==>_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my metho <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6602	6717	
==>_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my metho <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10971	11166	
==>thods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %params) returns opaque {
    $class. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28633	28727	
==>pped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bein <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33185	33279	
==>pped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bein <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32313	32407	
==>pped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bein <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	591	679	
==>--------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------- <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	614	702	
==>---------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24642	24754	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26831	26943	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24642	24754	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26831	26943	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24642	24754	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26831	26943	
==>am{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3475	3595	
==>> Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3646	3766	
==>> Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3161	3276	
==>est;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3161	3276	
==>est;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3744	3853	
==>est;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3744	3853	
==>est;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5774	5926	
==>ass to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5774	5926	
==>ass to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5774	5926	
==>ass to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add metho <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9837	9947	
==>t a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a le <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	275	380	
==>t a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a le <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	275	380	
==>t a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a le <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2776	2871	
==>infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2776	2871	
==>infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2776	2871	
==>infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numb <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17178	17299	
==>(optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot. <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17178	17299	
==>(optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot. <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	79	184	
==>provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	83	188	
==>provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	79	184	
==>provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	83	188	
==>provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16722	16817	
==>alue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() witho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16722	16817	
==>alue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() witho <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16722	16817	
==>alue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() witho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10875	11023	
==>=> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10875	11023	
==>=> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10875	11023	
==>=> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{P <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34267	34361	
==>>

This method is a generic relational operator that returns the complement of
C<semijoin> with <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38817	38911	
==>>

This method is a generic relational operator that returns the complement of
C<semijoin> with <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38296	38390	
==>>

This method is a generic relational operator that returns the complement of
C<semijoin> with <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3941	4040	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6920	7019	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8990	9089	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3941	4040	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6920	7019	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8990	9089	
==>lliams <KWILLIAMS@cpan.org>, and is written
by a number of people. Please see that module for more i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7823	7942	
==>rn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7823	7942	
==>rn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7823	7942	
==>rn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n) <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12279	12383	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6846	6950	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12279	12383	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6846	6950	
==>G' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7072	7161	
==>oes(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7072	7161	
==>oes(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6914	7003	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7581	7670	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6914	7003	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7581	7670	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6914	7003	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7581	7670	
==>OTSTRAPPING ROLES
## --------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5359	5502	
==>t unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5775	5918	
==>t unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5371	5514	
==>t unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5787	5930	
==>t unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_-> <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3560	3656	
==>d.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3560	3656	
==>d.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7594	7722	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10517	10645	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7594	7722	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10517	10645	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7594	7722	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10517	10645	
==>return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21333	21449	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22454	22570	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23017	23133	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17754	17870	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18875	18991	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19438	19554	
==>n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11176	11342	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8729	8895	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11176	11342	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8729	8895	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11176	11342	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8729	8895	
==>lar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the iterator
                my $current <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	869	983	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	869	983	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	869	983	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3634	3740	
==>e}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3634	3740	
==>e}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4224	4330	
==>e}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3553	3663	
==>undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3553	3663	
==>undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3553	3663	
==>undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1222	1318	
==>l5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.ke <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1222	1318	
==>l5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.ke <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1222	1318	
==>l5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.ke <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13953	14095	
==>] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_cha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13953	14095	
==>] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_cha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13953	14095	
==>] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_cha <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2661	2803	
==>] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_cha <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4192	4319	
==>= $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4192	4319	
==>= $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	10599	10704	
==><2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_c <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10599	10704	
==><2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2569	2671	
==>r};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dum <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2709	2811	
==>r};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dum <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23324	23422	
==>bility to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27876	27974	
==>bility to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14774	14881	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12028	12135	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14774	14881	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12028	12135	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14774	14881	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12028	12135	
==>$label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6920	7076	
==>"'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6920	7076	
==>"'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6920	7076	
==>"'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8719	8823	
==>f <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8719	8823	
==>f <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8719	8823	
==>f <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = ar <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21933	22173	
==>e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns <==
6	/Users/nnunley/pugs/util/package-osx.pl	11086	11232	
==>print "Not removing \$file\\n"; 
                next;
            \}
            print "Removing \$file\\n"\;
            print "Removing \$file\\ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11072	11196	
==>tr,$code_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	93	195	
==>&usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	93	195	
==>&usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	93	195	
==>&usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INI <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3448	3572	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12006	12130	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6573	6697	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3448	3572	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12006	12130	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6573	6697	
==>?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23522	23696	
==>em, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23522	23696	
==>em, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23522	23696	
==>em, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5367	5477	
==>ndef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5367	5477	
==>ndef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5367	5477	
==>ndef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5454	5572	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8424	8542	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5454	5572	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8424	8542	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5454	5572	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8424	8542	
==>being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5198	5308	
==><= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5198	5308	
==><= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	14	117	
==>erator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look al <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	14	112	
==>erator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look al <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	44	141	
==>erator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look al <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	44	141	
==>erator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look al <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8293	8406	
==>" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	451	564	
==>" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	683	793	
==>" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8014	8124	
==>" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	429	539	
==>" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	683	793	
==>" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4207	4345	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7143	7281	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4207	4345	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7143	7281	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4207	4345	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7143	7281	
==>de of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	323	417	
==>ification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	323	417	
==>ification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	323	417	
==>ification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4117	4207	
==>ame'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4117	4207	
==>ame'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4117	4207	
==>ame'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6888	6983	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6018	6113	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2672	2767	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2672	2767	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6888	6983	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6018	6113	
==>$member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25856	26028	
==>p = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25856	26028	
==>p = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25856	26028	
==>p = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	420	519	
==>ource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	420	519	
==>ource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	420	519	
==>ource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	999	1108	
==>=~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	999	1108	
==>=~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	999	1108	
==>=~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2226	2319	
==>d our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2226	2319	
==>d our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2226	2319	
==>d our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE(' <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7521	7616	
==>ent ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7521	7616	
==>ent ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2095	2204	
==>(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2095	2204	
==>(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2095	2204	
==>(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11960	12059	
==>Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11960	12059	
==>Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11960	12059	
==>Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1061	1165	
==>tion is first match (not longest).  though we need a 

    # separate longest match for tokens (putter on <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1412	1515	
==>tion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1019	1122	
==>tion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1412	1515	
==>tion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24745	24841	
==>rns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29297	29393	
==>rns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10824	10932	
==>her) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10824	10932	
==>her) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10824	10932	
==>her) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5806	5912	
==>(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5806	5912	
==>(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5806	5912	
==>(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  ma <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3806	3907	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4059	4160	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4504	4605	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3806	3907	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4059	4160	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4504	4605	
==>: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10022	10198	
==>s ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6363	6539	
==>s ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7212	7388	
==>s ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17195	17285	
==>SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17195	17285	
==>SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17195	17285	
==>SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5858	6051	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firs <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5858	6051	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firs <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5858	6051	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2563	2664	
==>s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2563	2664	
==>s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2563	2664	
==>s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	18322	18428	
==>ke the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basically ensures that id is po <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23566	23663	
==>t> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22339	22436	
==>t> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23566	23663	
==>t> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22339	22436	
==>t> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	790	887	
==>::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For exam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30233	30367	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31962	32096	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30233	30367	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31962	32096	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30233	30367	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31962	32096	
==>( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3030	3157	
==>ue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3030	3157	
==>ue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3030	3157	
==>ue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4382	4489	
==>arams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4382	4489	
==>arams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4382	4489	
==>arams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	89	342	
==>port symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	89	342	
==>port symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	89	342	
==>port symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	89	342	
==>port symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2248	2389	
==>my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2248	2389	
==>my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35596	35726	
==>pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative off <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35596	35726	
==>pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative off <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35596	35726	
==>pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative off <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22027	22118	
==>p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22027	22118	
==>p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22027	22118	
==>p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	153	267	
==>}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a ha <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	153	267	
==>}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a ha <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1022	1131	
==>{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [];
}

sub le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3972	4069	
==>ldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3972	4069	
==>ldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3972	4069	
==>ldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	91	184	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	315	408	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	91	184	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	315	408	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	91	184	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	315	408	
==>elf.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2059	2256	
==>s ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2059	2256	
==>s ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2059	2256	
==>s ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1943	2038	
==>w(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1943	2038	
==>w(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1943	2038	
==>w(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11021	11111	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8574	8664	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11021	11111	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8574	8664	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11021	11111	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8574	8664	
==>h_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9641	9755	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12614	12728	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9641	9755	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12614	12728	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9641	9755	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12614	12728	
==>e basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next METHOD' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2822	2937	
==>f something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2822	2937	
==>f something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2822	2937	
==>f something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	31	124	
==>sh|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	31	124	
==>sh|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	31	124	
==>sh|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12466	12574	
==>d' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12466	12574	
==>d' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12466	12574	
==>d' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2462	2569	
==>,"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2462	2569	
==>,"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2462	2569	
==>,"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pi <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1061	1168	
==>makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: join <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	125	232	
==>ict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	121	222	
==>ict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	115	216	
==>ict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	121	222	
==>ict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	115	216	
==>ict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1005	1105	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1517	1617	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1005	1105	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1517	1617	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1005	1105	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1517	1617	
==>(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2933	3056	
==>{
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2933	3056	
==>{
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2933	3056	
==>{
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11660	11761	
==>ented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11660	11761	
==>ented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11660	11761	
==>ented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29712	29839	
==>re {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # mod <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29712	29839	
==>re {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # mod <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1957	2081	
==>ail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1957	2081	
==>ail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$ma <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	508	619	
==>re {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	572	683	
==>re {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	628	759	
==>xception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	628	759	
==>xception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	628	759	
==>xception(function () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2976	3088	
==>xception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2976	3088	
==>xception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2976	3088	
==>xception(function() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6630	6753	
==>".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6630	6753	
==>".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6630	6753	
==>".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20692	20790	
==>_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20692	20790	
==>_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20692	20790	
==>_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3325	3433	
==>[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3325	3433	
==>[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3325	3433	
==>[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5130	5223	
==>sed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $p <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5130	5223	
==>sed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6654	6747	
==>sed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6499	6633	
==>et_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6499	6633	
==>et_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6499	6633	
==>et_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10248	10347	
==>que_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10248	10347	
==>que_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10248	10347	
==>que_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23960	24092	
==>S->can("FLAG_$_")) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v) { &Rf |= $v }  # turn the flag on
      else { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10119	10214	
==>Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10119	10214	
==>Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1184	1278	
==>by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1184	1278	
==>by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1184	1278	
==>by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	795	918	
==>al})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	795	918	
==>al})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	795	918	
==>al})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4065	4171	
==>at you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4065	4171	
==>at you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4065	4171	
==>at you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6756	6855	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5886	5985	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2540	2639	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2540	2639	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6756	6855	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5886	5985	
==>ember);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
mu <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6932	7040	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6062	6170	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2716	2824	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2716	2824	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6932	7040	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6062	6170	
==>ember);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub * <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8333	8539	
==>rclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8333	8539	
==>rclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8333	8539	
==>rclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::C <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25655	25749	
==>ome of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30207	30301	
==>ome of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29173	29267	
==>ome of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1446	1635	
==>s, it can default to True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submetho <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4924	5112	
==>s, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submetho <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3854	4042	
==>s, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3403	3523	
==>~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3403	3523	
==>~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3403	3523	
==>~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13285	13390	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10569	10674	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13285	13390	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10569	10674	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13285	13390	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10569	10674	
==>($params->{for}) eq 'instance' ||
        lc($params->{for}) eq 'submethod') {
        return ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12529	12623	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10080	10174	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12529	12623	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10080	10174	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12529	12623	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10080	10174	
==>_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16391	16556	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21108	21273	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16391	16556	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21108	21273	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16391	16556	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21108	21273	
==>pper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all t <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	592	838	
==>r::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Roset <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	592	838	
==>r::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Roset <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	577	675	
==>$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0. <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	577	675	
==>$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0. <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12481	12577	
==>revious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Re <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12481	12577	
==>revious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Re <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1381	1514	
==>>).add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).add_c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7406	7514	
==>sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    d <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4010	4118	
==>sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4859	4967	
==>sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    d <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	123	219	
==>ub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	123	219	
==>ub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7341	7465	
==>: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Sub( $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1806	1915	
==>ration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1806	1915	
==>ration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1806	1915	
==>ration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	108	197	
==>New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	108	197	
==>New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35913	36012	
==>ibute names
and corresponding common tuple values are aligned and merged.  The heading
of the new re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37656	37755	
==>ibute names and corresponding common tuple values
are aligned and merged.  The heading of the new re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40463	40562	
==>ibute names
and corresponding common tuple values are aligned and merged.  The heading
of the new re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42205	42304	
==>ibute names and corresponding common tuple values
are aligned and merged.  The heading of the new re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40077	40176	
==>ibute names
and corresponding common tuple values are aligned and merged.  The heading
of the new re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41855	41954	
==>ibute names and corresponding common tuple values
are aligned and merged.  The heading of the new re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2499	2610	
==>, [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2499	2610	
==>, [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2499	2610	
==>, [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1233	1340	
==>// we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1233	1340	
==>// we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1233	1340	
==>// we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	200	304	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	195	299	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	200	304	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	195	299	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	200	304	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	195	299	
==>self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14485	14650	
==>e $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14485	14650	
==>e $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14485	14650	
==>e $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	735	835	
==>s" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	735	835	
==>s" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	735	835	
==>s" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3111	3245	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6104	6238	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3384	3511	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9802	9929	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3384	3511	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9802	9929	
==>us( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plus( $nod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10011	10144	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7562	7695	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10011	10144	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7562	7695	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10011	10144	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7562	7695	
==>sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11088	11215	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12559	12686	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14565	14692	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16036	16163	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13873	14000	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15398	15525	
==>g.size() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($ot <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2978	3085	
==>a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($sel <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2978	3085	
==>a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($sel <==
6	/Users/nnunley/pugs/t/packages/Test.pm	47	146	
==>ges::Test" }

sub pkg { $?PACKAGE }

sub test_export is export { "party island" }

sub get_our_pkg { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6611	6698	
==>js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6611	6698	
==>js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6611	6698	
==>js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16063	16224	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20780	20941	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16063	16224	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20780	20941	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16063	16224	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20780	20941	
==>all_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $nam <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	932	1046	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1300	1414	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1806	1920	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	932	1046	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1300	1414	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1806	1920	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15852	15971	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13102	13221	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15852	15971	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13102	13221	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15852	15971	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13102	13221	
==>u must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2390	2506	
==>ose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2390	2506	
==>ose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2390	2506	
==>ose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3119	3222	
==>ub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3119	3222	
==>ub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3119	3222	
==>ub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
})) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	494	638	
==>mp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	494	638	
==>mp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20739	20836	
==>') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20739	20836	
==>') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20739	20836	
==>') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14640	14728	
==>not quite right... need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos). <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	847	968	
==>ave zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4325	4446	
==>ave zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set me <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3219	3340	
==>ave zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9633	9731	
==>s_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9633	9731	
==>s_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	pu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9633	9731	
==>s_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	pu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3839	3935	
==>ption )>

Marks that the next test should fail.  C<$description> is the optional
description of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9397	9493	
==>PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3839	3935	
==>ption )>

Marks that the next test should fail.  C<$description> is the optional
description of t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9397	9493	
==>PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9397	9493	
==>PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3919	4015	
==>ption )>

Marks that the next test should fail.  C<$description> is the optional
description of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17751	17843	
==>o additional runtime penalty after compilation, because C<perl> has
already been doing the C< <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17751	17843	
==>o additional runtime penalty after compilation, because C<perl> has
already been doing the C< <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4012	4091	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4253	4332	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4012	4091	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4253	4332	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22128	22229	
==>ss name, and then invoking methods on those objects.  All of
their attributes are private, so you must <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9401	9502	
==>ss name, and then invoking methods on those objects.  All of
their attributes are private, so you must <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22128	22229	
==>ss name, and then invoking methods on those objects.  All of
their attributes are private, so you must <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9401	9502	
==>ss name, and then invoking methods on those objects.  All of
their attributes are private, so you must <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24496	24596	
==>ss name, and then invoking methods on those objects.
All of their attributes are private, so you must <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24496	24596	
==>ss name, and then invoking methods on those objects.
All of their attributes are private, so you must <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3772	3928	
==>rrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $ag <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3772	3928	
==>rrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $ag <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	885	1036	
==>%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	878	1029	
==>%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2406	2500	
==>elf.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2406	2500	
==>elf.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1240	1336	
==>"infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1240	1336	
==>"infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Num <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1240	1336	
==>"infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Num <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14221	14315	
==>to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14221	14315	
==>to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14221	14315	
==>to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5847	5947	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8817	8917	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5847	5947	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8817	8917	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5847	5947	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8817	8917	
==>d if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1831	1971	
==>ate->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1770	1907	
==>ate->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5410	5509	
==>wo);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4540	4639	
==>wo);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5410	5509	
==>wo);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4540	4639	
==>wo);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	902	1015	
==>valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	902	1015	
==>valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	902	1015	
==>valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	672	774	
==>} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	672	774	
==>} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	672	774	
==>} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7875	7993	
==>I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1071	1174	
==>L::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work aro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1071	1174	
==>L::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work aro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1071	1174	
==>L::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work aro <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	833	928	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	891	986	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3986	4102	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4924	5040	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2220	2336	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2466	2582	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3001	3117	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3247	3363	
==>et_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$< <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3678	3768	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6697	6787	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8766	8856	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3678	3768	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6697	6787	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8766	8856	
==>to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	106	212	
==>and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	110	216	
==>and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ho <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	106	212	
==>and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ho <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	110	216	
==>and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ho <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21416	21514	
==>METH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44323	44421	
==>METH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	793	887	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1313	1407	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	793	887	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1313	1407	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	793	887	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1313	1407	
==>args[1].STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	513	633	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	835	955	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1214	1334	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	513	633	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	835	955	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1214	1334	
==>'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2668	2766	
==>my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACK <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2668	2766	
==>my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACK <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2668	2766	
==>my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5135	5230	
==>ine is passed the current object in the recursion and
the wanted namespace ("MyName" in the code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5135	5230	
==>ine is passed the current object in the recursion and
the wanted namespace ("MyName" in the code <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5135	5230	
==>ine is passed the current object in the recursion and
the wanted namespace ("MyName" in the code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5416	5526	
==>n
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5416	5526	
==>n
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5416	5526	
==>n
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6116	6208	
==>ngs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6116	6208	
==>ngs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6116	6208	
==>ngs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@th <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1866	1969	
==>Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1866	1969	
==>Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1946	2049	
==>Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	377	476	
==>ld work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	377	476	
==>ld work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	377	476	
==>ld work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11412	11585	
==>urn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $met <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11412	11585	
==>urn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $met <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11412	11585	
==>urn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8354	8492	
==>a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8354	8492	
==>a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8354	8492	
==>a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9300	9437	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12273	12410	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9300	9437	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12273	12410	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9300	9437	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12273	12410	
==>eMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6 <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	765	892	
==>02 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        4 <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	765	892	
==>02 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        4 <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4588	4684	
==>vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3715	3811	
==>vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4588	4684	
==>vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($t <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3715	3811	
==>vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1693	1805	
==>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1693	1805	
==>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1693	1805	
==>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4197	4293	
==>N_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4197	4293	
==>N_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4197	4293	
==>N_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6307	6403	
==>s that your object might be
holding. Using the noio example above, the "return" can be changed to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6307	6403	
==>s that your object might be
holding. Using the noio example above, the "return" can be changed to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6307	6403	
==>s that your object might be
holding. Using the noio example above, the "return" can be changed to <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36482	36576	
==>ny two source relations are
combined is inconsequential.  A trivial case is where C<@others> is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41031	41125	
==>ny two source relations are
combined is inconsequential.  A trivial case is where C<@others> is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40645	40739	
==>ny two source relations are
combined is inconsequential.  A trivial case is where C<@others> is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3503	3619	
==>lf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3503	3619	
==>lf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3503	3619	
==>lf";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12939	13043	
==>lf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12939	13043	
==>lf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12939	13043	
==>lf";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	105	222	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	105	222	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	105	222	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	199	307	
==>le::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20431	20521	
==>d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20431	20521	
==>d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11347	11489	
==>>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11347	11489	
==>>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11347	11489	
==>>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1978	2066	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1978	2066	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelud <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1978	2066	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelud <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1986	2089	
==>lass Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.outp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8752	8853	
==>ram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8752	8853	
==>ram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(define <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8752	8853	
==>ram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(define <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1	94	
==>lass Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.outp <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1	94	
==>lass Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.outp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2867	2981	
==>thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2867	2981	
==>thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2867	2981	
==>thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5796	5901	
==>i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5796	5901	
==>i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5796	5901	
==>i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6125	6251	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5477	5603	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10447	10573	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6125	6251	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5477	5603	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10447	10573	
==>d closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13311	13461	
==>(substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3476	3610	
==>(substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3476	3610	
==>(substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3476	3610	
==>(substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($strin <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5391	5518	
==>t',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5391	5518	
==>t',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11504	11636	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2498	2630	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7592	7724	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11504	11636	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2498	2630	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7592	7724	
==>val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2939	3044	
==>aram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_la <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2939	3044	
==>aram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_la <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2939	3044	
==>aram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7711	7812	
==>e_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7711	7812	
==>e_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7711	7812	
==>e_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classe <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4004	4124	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6653	6773	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4241	4358	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10690	10807	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4241	4358	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10690	10807	
==>ub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	794	893	
==>ge/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	794	893	
==>ge/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_cont <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	794	893	
==>ge/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_cont <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3791	3886	
==>rren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3791	3886	
==>rren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3100	3193	
==>%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fprintf(stderr," flags=%lu\n",flags);
    fp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2239	2465	
==>ugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2299	2525	
==>ugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1007	1177	
==>ugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1439	1609	
==>ugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1007	1177	
==>ugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1439	1609	
==>ugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8223	8354	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5782	5913	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8223	8354	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5782	5913	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8223	8354	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5782	5913	
==>r non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4958	5084	
==>ED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4958	5084	
==>ED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4958	5084	
==>ED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2201	2319	
==>int ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2201	2319	
==>int ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2201	2319	
==>int ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6925	7042	
==>loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { documen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6925	7042	
==>loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { documen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6925	7042	
==>loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { documen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2886	3019	
==>ox.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2886	3019	
==>ox.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2886	3019	
==>ox.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	910	1042	
==>ass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	910	1042	
==>ass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	910	1042	
==>ass($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10708	10888	
==>(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26051	26231	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27533	27713	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28317	28497	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38681	38860	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39208	39387	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16234	16371	
==>\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16228	16365	
==>\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	104	221	
==>import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	104	221	
==>import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	104	221	
==>import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9017	9132	
==>) if $cc;
    return $S->object(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag('i' =>  sub { 0x01 }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9213	9327	
==>warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9213	9327	
==>warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9213	9327	
==>warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1289	1402	
==>ntext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1289	1402	
==>ntext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1289	1402	
==>ntext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9820	9927	
==>the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9820	9927	
==>the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9820	9927	
==>the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2844	3057	
==>ontainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2844	3057	
==>ontainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2844	3057	
==>ontainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY = <==
6	/Users/nnunley/pugs/util/combine_tests.pl	1106	1253	
==>$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1204	1306	
==>@.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns Stri <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1204	1306	
==>@.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns Stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	850	983	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	938	1071	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	850	983	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	938	1071	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	850	983	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	938	1071	
==>arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      pu <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3480	3625	
==>th == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Per <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3480	3625	
==>th == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11590	11697	
==>) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11590	11697	
==>) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11590	11697	
==>) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9597	9700	
==>ll the roles to be 'resolved'
    # -----------------------------------------------      
    method col <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9597	9700	
==>ll the roles to be 'resolved'
    # -----------------------------------------------      
    method col <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9597	9700	
==>ll the roles to be 'resolved'
    # -----------------------------------------------      
    method col <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5244	5362	
==>ns[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5244	5362	
==>ns[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5244	5362	
==>ns[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10612	10721	
==>rray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10612	10721	
==>rray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10612	10721	
==>rray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5280	5403	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8250	8373	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5280	5403	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8250	8373	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5280	5403	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8250	8373	
==>c method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Pe <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10088	10215	
==>ock = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10367	10494	
==>ock = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14915	15040	
==>str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14915	15040	
==>str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14915	15040	
==>str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v e <==
6	/Users/nnunley/pugs/util/build_pugs.pl	614	708	
==>m the file `config.yml` in
the build root. You may override these settings using the PUGS_BUILD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9104	9231	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12077	12204	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9104	9231	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12077	12204	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9104	9231	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12077	12204	
==>erl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9796	9908	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7345	7457	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9796	9908	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7345	7457	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9796	9908	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7345	7457	
==>private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9574	9692	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12547	12665	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9574	9692	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12547	12665	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9574	9692	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12547	12665	
==>spatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is to be able <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26434	26534	
==>l be passed by reference, so you
may store references to other objects in them if you wish.

=back

T <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26434	26534	
==>l be passed by reference, so you
may store references to other objects in them if you wish.

=back

T <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18800	18893	
==>onds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Fu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17843	17936	
==>onds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Fu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18800	18893	
==>onds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Fu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17843	17936	
==>onds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Fu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2552	2671	
==>pans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2552	2671	
==>pans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1927	2134	
==>tch->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2348	2548	
==>tch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1864	2064	
==>tch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2348	2548	
==>tch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alt <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12984	13074	
==>0.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12984	13074	
==>0.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	736	834	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1256	1354	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	736	834	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1256	1354	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	736	834	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1256	1354	
==>[2].FETCH(), cc = args.pop();
    if(array == undefined) args[1].STORE(new PIL2JS.Box.Constant(arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34380	34499	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34380	34499	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34380	34499	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	37	134	
==>ARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	37	134	
==>ARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	37	134	
==>ARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15441	15559	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12697	12815	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15441	15559	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12697	12815	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15441	15559	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12697	12815	
==>>{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13609	13732	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10893	11016	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13609	13732	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10893	11016	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13609	13732	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10893	11016	
==>::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{fo <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	689	1099	
==>f every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding ut <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	689	1099	
==>f every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding ut <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8865	8976	
==>rd $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8865	8976	
==>rd $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8865	8976	
==>rd $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name. <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7910	8020	
==>/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12138	12267	
==>tus();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Bui <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2540	2655	
==>tus();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Bui <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2540	2655	
==>tus();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Bui <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8071	8171	
==>nstant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given varia <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8071	8171	
==>nstant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given varia <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8071	8171	
==>nstant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given varia <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15327	15451	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20060	20184	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15327	15451	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20060	20184	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15327	15451	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20060	20184	
==>ction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4176	4324	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6825	6973	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4409	4553	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10858	11002	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4409	4553	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10858	11002	
==>n} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2162	2312	
==>.= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2162	2312	
==>.= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2162	2312	
==>.= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	481	591	
==>le outside of this function
      // and refer to it via the closure, then things don\'t work right
      // -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	481	591	
==>le outside of this function
      // and refer to it via the closure, then things don\'t work right
      // -- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	481	591	
==>le outside of this function
      // and refer to it via the closure, then things don\'t work right
      // -- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2553	2651	
==>bstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2553	2651	
==>bstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2553	2651	
==>bstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4720	4811	
==>ace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it prese <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4720	4811	
==>ace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it prese <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4720	4811	
==>ace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it prese <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6752	6843	
==>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6752	6843	
==>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6752	6843	
==>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19214	19318	
==>ong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19214	19318	
==>ong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19214	19318	
==>ong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2001	2102	
==>ild_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2001	2102	
==>ild_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2001	2102	
==>ild_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13458	13591	
==>->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13458	13591	
==>->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::L <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13458	13591	
==>->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::L <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1227	1323	
==>|| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1227	1323	
==>|| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1227	1323	
==>|| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta- <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	906	1043	
==>= $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4145	4282	
==>= $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	906	1043	
==>= $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4145	4282	
==>= $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11350	11455	
==>.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11350	11455	
==>.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11361	11511	
==>f $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11361	11511	
==>f $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11361	11511	
==>f $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1057	1375	
==>ion::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation::LaxA <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23184	23303	
==>{
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19605	19724	
==>{
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7178	7280	
==>n (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7178	7280	
==>n (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7178	7280	
==>n (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	67	176	
==>nless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	67	176	
==>nless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	67	176	
==>nless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3912	4009	
==>nsional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stric <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3912	4009	
==>nsional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stric <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3912	4009	
==>nsional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stric <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3853	3961	
==>cks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3853	3961	
==>cks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4385	4489	
==>cks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4385	4489	
==>cks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13369	13472	
==>SIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7578	7681	
==>SIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5437	5549	
==>hould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5437	5549	
==>hould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5437	5549	
==>hould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6251	6344	
==>urce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6251	6344	
==>urce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6251	6344	
==>urce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16554	16665	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13759	13870	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16554	16665	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13759	13870	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16554	16665	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13759	13870	
==>%params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $nex <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13630	13749	
==>lator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package pre <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13630	13749	
==>lator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package pre <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3627	3727	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5059	5159	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1016	1116	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	876	976	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5059	5159	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1016	1116	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3993	4093	
==>=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3246	3358	
==>perclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3246	3358	
==>perclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3246	3358	
==>perclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1536	1632	
==>ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        dele <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1536	1632	
==>ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        dele <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1536	1632	
==>ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        dele <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4011	4109	
==>ase see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4011	4109	
==>ase see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6990	7087	
==>ase see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9060	9157	
==>ase see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6990	7087	
==>ase see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9060	9157	
==>ase see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rig <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	488	605	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	488	605	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	488	605	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6177	6281	
==>ight be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## --------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6177	6281	
==>ight be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## --------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6177	6281	
==>ight be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## --------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	80	181	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	304	405	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	80	181	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	304	405	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	80	181	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	304	405	
==>" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ar <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13177	13335	
==>ce!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3362	3500	
==>ce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3362	3500	
==>ce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq ' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3362	3500	
==>ce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq ' <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	6760	6874	
==>er of individual tests
    failed      Number which failed
    percent     Percentage of tests which failed
    can <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12281	12380	
==>n that takes an object (or a reference
to an array of them) and does something to them (and their ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6254	6419	
==>ey, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6254	6419	
==>ey, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6254	6419	
==>ey, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23020	23125	
==>x($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23020	23125	
==>x($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23020	23125	
==>x($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6887	7010	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9857	9980	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6887	7010	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9857	9980	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6887	7010	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9857	9980	
==>d $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")"; 
        # the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2144	2268	
==>key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2144	2268	
==>key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2144	2268	
==>key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5979	6070	
==>, 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5979	6070	
==>, 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2878	2969	
==>, 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9402	9529	
==>SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9402	9529	
==>SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9402	9529	
==>SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1931	2027	
==>ef($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1931	2027	
==>ef($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, unde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1931	2027	
==>ef($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1184	1278	
==>space for your tastes, and
you want to rebless everything down to your project's base namespace <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2335	2429	
==>pStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1184	1278	
==>space for your tastes, and
you want to rebless everything down to your project's base namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2335	2429	
==>pStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1184	1278	
==>space for your tastes, and
you want to rebless everything down to your project's base namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2335	2429	
==>pStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2845	2958	
==>_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2845	2958	
==>_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2845	2958	
==>_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7512	7611	
==>IL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "sl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7512	7611	
==>IL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "sl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7512	7611	
==>IL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "sl <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	224	335	
==>',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	224	335	
==>',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	224	335	
==>',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	224	335	
==>',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4386	4477	
==>xt for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0 <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4386	4477	
==>xt for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8991	9130	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11964	12103	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8991	9130	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11964	12103	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8991	9130	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11964	12103	
==>pes of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('P <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	385	495	
==>$OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $k <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9183	9289	
==>Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2 <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9241	9347	
==>Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	970	1063	
==>e g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	970	1063	
==>e g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	970	1063	
==>e g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1748	1870	
==>>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1748	1870	
==>>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1748	1870	
==>>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1426	1546	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1426	1546	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1426	1546	
==>spatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5639	5784	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3759	3904	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5639	5784	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3759	3904	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5639	5784	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3759	3904	
==>>add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3071	3241	
==>' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3071	3241	
==>' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3071	3241	
==>' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3899	4004	
==>die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3899	4004	
==>die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while + <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3899	4004	
==>die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while + <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8336	8531	
==>pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $coun <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8336	8531	
==>pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $coun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7668	7776	
==>($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7668	7776	
==>($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7668	7776	
==>($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pi <==
6	/Users/nnunley/pugs/util/drift.pl	939	1034	
==>itpid($pid, 0);
exit unless @program;

# Rearrange the DrIFT header
@program[0..2] = @program[2, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	417	522	
==>PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	417	522	
==>PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	417	522	
==>PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12575	12676	
==>OP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yie <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12575	12676	
==>OP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yie <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12575	12676	
==>OP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	884	1013	
==>self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	884	1013	
==>self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	884	1013	
==>self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5903	6003	
==>shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptiona <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5903	6003	
==>shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptiona <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5903	6003	
==>shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptiona <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5404	5522	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8374	8492	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5404	5522	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8374	8492	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5404	5522	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8374	8492	
==>rl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14838	14949	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12092	12203	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14838	14949	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12092	12203	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14838	14949	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12092	12203	
==>ute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33581	33704	
==>ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33581	33704	
==>ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33581	33704	
==>ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	746	850	
==>. "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_na <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	746	850	
==>. "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_na <==
6	/Users/nnunley/pugs/util/package-osx.pl	4311	4408	
==>man3/Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13869	13993	
==>[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i-- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13869	13993	
==>[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i-- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13869	13993	
==>[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i-- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5803	5901	
==>turn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5803	5901	
==>turn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6393	6491	
==>turn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	37	134	
==>se strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	37	134	
==>se strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	37	134	
==>se strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3320	3415	
==>rintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3320	3415	
==>rintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3320	3415	
==>rintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fi <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	316	515	
==>eop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::consta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	317	516	
==>eop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	227	385	
==>) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	227	385	
==>) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	227	385	
==>) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  r <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	4643	4741	
==>k.  Otherwise it will C<die()> with
one of the messages in the DIAGNOSTICS section.

=cut

sub runt <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36266	36369	
==>attribute names in common,
eliminating pairs where the values of those attributes differ and unioning
th <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38019	38122	
==>attribute names in common, eliminating pairs where the
values of those attributes differ and unioning th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40815	40918	
==>attribute names in common,
eliminating pairs where the values of those attributes differ and unioning
th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42568	42671	
==>attribute names in common, eliminating pairs where the
values of those attributes differ and unioning th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40429	40532	
==>attribute names in common,
eliminating pairs where the values of those attributes differ and unioning
th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42218	42321	
==>attribute names in common, eliminating pairs where the
values of those attributes differ and unioning th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	966	1079	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	966	1079	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	966	1079	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	839	943	
==>b ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1044	1148	
==>b ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1100	1204	
==>b ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37161	37286	
==>ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37161	37286	
==>ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37161	37286	
==>ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10438	10558	
==>il out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan se <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2455	2563	
==>il out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan se <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2455	2563	
==>il out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19620	19713	
==>>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19620	19713	
==>>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19620	19713	
==>>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->is <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9890	9981	
==>ist of recently submitted <a
    href="http://www.pugscode.org/">Pugs</a> smoke reports. The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6509	6681	
==>-
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6509	6681	
==>-
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6509	6681	
==>-
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1962	2062	
==>c_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1962	2062	
==>c_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1962	2062	
==>c_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28922	29066	
==>nboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28922	29066	
==>nboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28922	29066	
==>nboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2898	2999	
==>= %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2898	2999	
==>= %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2898	2999	
==>= %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mod <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3480	3579	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6494	6593	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8562	8661	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3480	3579	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6494	6593	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8562	8661	
==>ute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cw <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	5509	5618	
==>eaddir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run_all_tests>

  my($total, $failed) = _run_all <==
6	/Users/nnunley/pugs/util/importgraph.pl	899	1001	
==>alified \s+)? ([\w.]+) (\s* \()?/x) {
      $imports{$2} = [defined($1), defined($3)];
    } elsif (/^i <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11786	11881	
==>the internal caching of keys that is expected to happen,
but wishes to compare them with somethi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16149	16242	
==>andle it internally, while another one displays it to the
user instead.

Locale::KeyedText pro <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16149	16242	
==>andle it internally, while another one displays it to the
user instead.

Locale::KeyedText pro <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23387	23479	
==>::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	409	514	
==>ject"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	409	514	
==>ject"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	409	514	
==>ject"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6914	7008	
==>')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6914	7008	
==>')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6914	7008	
==>')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retur <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1311	1432	
==>}        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulation tools. <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	448	546	
==>ead1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldo <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	448	546	
==>ead1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2467	2564	
==>fined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; di <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2467	2564	
==>fined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; di <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2467	2564	
==>fined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2687	2811	
==>ass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2687	2811	
==>ass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2687	2811	
==>ass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5395	5513	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8365	8483	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5395	5513	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8365	8483	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5395	5513	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8365	8483	
==>ion in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcod <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27438	27535	
==>ed.  If you want to
conceptually change an existing Message object, you must create a new
object t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27438	27535	
==>ed.  If you want to
conceptually change an existing Message object, you must create a new
object t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	459	564	
==>e the node in a variable outside of this function
      // and refer to it via the closure, then things do <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	459	564	
==>e the node in a variable outside of this function
      // and refer to it via the closure, then things do <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	459	564	
==>e the node in a variable outside of this function
      // and refer to it via the closure, then things do <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1500	1656	
==>{
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1500	1656	
==>{
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5196	5350	
==>sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5196	5350	
==>sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5196	5350	
==>sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ <==
6	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1132	1237	
==>ed $i {

        @tokens.push( @newtoks.shift );
        @tokens.push( $maketoken.(@newtoks.shift, $label) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13860	13985	
==>lass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13860	13985	
==>lass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13860	13985	
==>lass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17016	17111	
==>{...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17016	17111	
==>{...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17016	17111	
==>{...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1649	1760	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3212	3323	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1649	1760	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3212	3323	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1649	1760	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3212	3323	
==>llows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CLASS = un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	177	314	
==>=> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	177	314	
==>=> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	177	314	
==>=> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15206	15310	
==>_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15206	15310	
==>_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15206	15310	
==>_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10364	10549	
==>er::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Te <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	906	1075	
==>er::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Te <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	906	1075	
==>er::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10219	10382	
==>=> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10219	10382	
==>=> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10219	10382	
==>=> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3882	3985	
==>KMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3882	3985	
==>KMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3882	3985	
==>KMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1425	1522	
==>_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1425	1522	
==>_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1425	1522	
==>_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	81	193	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	81	193	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	81	193	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1389	1498	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1389	1498	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1389	1498	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11068	11166	
==>t and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) prom <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11068	11166	
==>t and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) prom <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1283	1374	
==>osBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$li <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	26760	26851	
==>NESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test::Harness::D <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1283	1374	
==>osBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$li <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1283	1374	
==>osBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9533	9653	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7080	7200	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9533	9653	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7080	7200	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9533	9653	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7080	7200	
==>elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    else {
        c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22533	22627	
==>x0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB inde <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22533	22627	
==>x0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB inde <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22533	22627	
==>x0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB inde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4618	4706	
==>essors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use D <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4618	4706	
==>essors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use D <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5208	5296	
==>essors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16796	16888	
==>UB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16796	16888	
==>UB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16796	16888	
==>UB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Inte <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	26	130	
==>use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	26	130	
==>use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4836	4939	
==>on is just a trait, and that some of those
    things are subs or methods rather than rules or macros. ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	303	395	
==>LLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	303	395	
==>LLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	303	395	
==>LLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3409	3524	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11967	12082	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6534	6649	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3409	3524	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11967	12082	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6534	6649	
==>arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8448	8580	
==>return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8448	8580	
==>return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8448	8580	
==>return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispa <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	112	234	
==>::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	112	234	
==>::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33853	33947	
==>ead2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	495	608	
==>elf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	495	608	
==>elf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	495	608	
==>elf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	464	558	
==>nt_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	425	519	
==>nt_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	425	519	
==>nt_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12399	12493	
==>1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=h <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12399	12493	
==>1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=h <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13131	13223	
==>, scalars),
which is suitable as a generic data interchange format between
Rosetta::Model and <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18226	18318	
==>, scalars), which is suitable as a generic data interchange
format between Rosetta::Model and <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13131	13223	
==>, scalars),
which is suitable as a generic data interchange format between
Rosetta::Model and <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18226	18318	
==>, scalars), which is suitable as a generic data interchange
format between Rosetta::Model and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14918	15029	
==>Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14918	15029	
==>Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14918	15029	
==>Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2134	2239	
==>a::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub fo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2134	2239	
==>a::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub fo <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2481	2586	
==>a::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub fo <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13743	13845	
==>!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do som <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17220	17322	
==>!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do som <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18888	18983	
==>ds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17931	18026	
==>ds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18888	18983	
==>ds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17931	18026	
==>ds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C< <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2604	2717	
==>arlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeh <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2604	2717	
==>arlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeh <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9217	9316	
==>= '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9217	9316	
==>= '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3239	3337	
==>n /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('' <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3239	3337	
==>n /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7376	7465	
==>s primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7376	7465	
==>s primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7376	7465	
==>s primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcir <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7146	7249	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6276	6379	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2930	3033	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2930	3033	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7146	7249	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6276	6379	
==>mber, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	998	1109	
==>']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	998	1109	
==>']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	998	1109	
==>']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3332	3424	
==>V{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3332	3424	
==>V{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3332	3424	
==>V{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "- <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	789	894	
==>o"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type eq 'ARRAY <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36376	36467	
==>thers) returns Relation::Example>

This multi-method is the N-ary version of the aforementio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37087	37178	
==>thers) returns Relation::Example>

This multi-method is the N-ary version of the aforementio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37537	37628	
==>thers) returns Relation::Example>

This multi-method is the N-ary version of the aforementio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39691	39782	
==>thers) returns Relation::Example>

This multi-method is the N-ary version of the aforementio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41563	41654	
==>thers) returns Relation::Example>

This multi-method is the N-ary version of the aforementio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	990	1087	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1502	1599	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	990	1087	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1502	1599	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	990	1087	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1502	1599	
==>(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1226	1399	
==>);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1226	1399	
==>);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1226	1399	
==>);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1518	1659	
==>);
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1518	1659	
==>);
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1518	1659	
==>);
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9670	9838	
==>$_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9670	9838	
==>$_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9670	9838	
==>$_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8600	8702	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8600	8702	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8600	8702	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20675	20845	
==>ING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20675	20845	
==>ING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20675	20845	
==>ING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13595	13686	
==>c" here means "whatever annotation went with this attribute when it's declared"
::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13595	13686	
==>c" here means "whatever annotation went with this attribute when it's declared"
::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13595	13686	
==>c" here means "whatever annotation went with this attribute when it's declared"
::Class.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2638	2743	
==>confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2638	2743	
==>confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2638	2743	
==>confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	145	243	
==>0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	145	243	
==>0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	145	243	
==>0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1135	1235	
==>1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1135	1235	
==>1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runti <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1573	1668	
==>om/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routine
		\&b_main;
BIN <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30795	30886	
==>plicates following the transformation have been eliminated. 
Trivial cases are where C<$tran <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35346	35436	
==>plicates following the transformation have been eliminated.
Trivial cases are where C<$tran <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34537	34627	
==>plicates following the transformation have been eliminated.
Trivial cases are where C<$tran <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5414	5525	
==>ub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5414	5525	
==>ub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5414	5525	
==>ub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1390	1500	
==>ub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1390	1500	
==>ub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1390	1500	
==>ub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2555	2671	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4882	4998	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2555	2671	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4882	4998	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2555	2671	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4882	4998	
==>name)
            || confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Stub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6410	6604	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8859	9053	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6410	6604	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8859	9053	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6410	6604	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8859	9053	
==>s list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10850	10979	
==>ode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10850	10979	
==>ode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10850	10979	
==>ode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5467	5561	
==>'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$rea <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5467	5561	
==>'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$rea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6991	7085	
==>'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4194	4360	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4194	4360	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4194	4360	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6720	6872	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6720	6872	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6720	6872	
==>::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1397	1506	
==>ymbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1397	1506	
==>ymbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	257	345	
==>compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	257	345	
==>compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	257	345	
==>compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1267	1453	
==>sh( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1267	1453	
==>sh( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1267	1453	
==>sh( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3163	3251	
==>"Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3163	3251	
==>"Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3163	3251	
==>"Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7965	8135	
==>, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7965	8135	
==>, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7965	8135	
==>, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	943	1050	
==>$_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	943	1050	
==>$_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	943	1050	
==>$_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8096	8215	
==>p),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8096	8215	
==>p),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8096	8215	
==>p),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10107	10218	
==>----    
      
    # -----------------------------------------------  
    # collects all the roles, and applie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10107	10218	
==>----    
      
    # -----------------------------------------------  
    # collects all the roles, and applie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10107	10218	
==>----    
      
    # -----------------------------------------------  
    # collects all the roles, and applie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3522	3649	
==>ell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3522	3649	
==>ell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3522	3649	
==>ell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v} <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19249	19346	
==>E<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19249	19346	
==>E<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To r <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10007	10095	
==>c1) { pil_diff($c0,$c1) }
}

package PIL::PIL1CPerl5::Util::FilterNodeDefs;
our($package_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4103	4274	
==>$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5424	5595	
==>$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4103	4274	
==>$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5412	5583	
==>$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        } <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	162	267	
==>til;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL n <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	162	267	
==>til;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3055	3173	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10978	11096	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6180	6298	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3055	3173	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10978	11096	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6180	6298	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_ST <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	753	877	
==>er();
    if ($location.defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1277	1378	
==>elf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1277	1378	
==>elf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1277	1378	
==>elf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Has <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1160	1256	
==>sy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory foot <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1160	1256	
==>sy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory foot <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7289	7438	
==>turn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7289	7438	
==>turn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7289	7438	
==>turn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7228	7323	
==>return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__EN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7228	7323	
==>return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__EN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7228	7323	
==>return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__EN <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16659	16764	
==>o do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real head <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16659	16764	
==>o do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real head <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22105	22197	
==>le for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (va <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20986	21078	
==>le for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (va <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22105	22197	
==>le for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (va <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20986	21078	
==>le for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8453	8557	
==>')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8453	8557	
==>')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8453	8557	
==>')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1185	1286	
==>e_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	924	1020	
==>e_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1129	1225	
==>e_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3623	3760	
==>r lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4940	5077	
==>r lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3623	3760	
==>r lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4928	5065	
==>r lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16748	16848	
==>y method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20225	20325	
==>y method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1719	1819	
==>h' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1719	1819	
==>h' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1719	1819	
==>h' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1979	2064	
==>me('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1979	2064	
==>me('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1979	2064	
==>me('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7822	7922	
==>us speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mult <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7822	7922	
==>us speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mult <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7822	7922	
==>us speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1906	1999	
==>e 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1906	1999	
==>e 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pw <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1906	1999	
==>e 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1592	1752	
==>PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1592	1752	
==>PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1592	1752	
==>PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2281	2382	
==>spatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2281	2382	
==>spatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2281	2382	
==>spatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3496	3598	
==>eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet impleme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3496	3598	
==>eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet impleme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3496	3598	
==>eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet impleme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2898	2995	
==>s;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2898	2995	
==>s;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2898	2995	
==>s;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1- <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2194	2368	
==>h keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2194	2368	
==>h keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %c <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1913	2002	
==>e in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1876	1965	
==>e in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1913	2002	
==>e in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1876	1965	
==>e in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4467	4568	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7403	7504	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4467	4568	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7403	7504	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4467	4568	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7403	7504	
==>($method, $associated_with) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3379	3519	
==>t_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3379	3519	
==>t_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3379	3519	
==>t_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2784	2887	
==>pile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2784	2887	
==>pile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2784	2887	
==>pile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2240	2371	
==>Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2240	2371	
==>Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2240	2371	
==>Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4908	5022	
==>ift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4908	5022	
==>ift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4908	5022	
==>ift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, " <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3899	4014	
==>ub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26328	26424	
==>ote that while the Hash itself is copied on input and output, any
variable values which are refer <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26328	26424	
==>ote that while the Hash itself is copied on input and output, any
variable values which are refer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19689	19780	
==>ULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19689	19780	
==>ULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19689	19780	
==>ULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12710	12805	
==>ULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12710	12805	
==>ULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12710	12805	
==>ULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2008	2099	
==>), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2008	2099	
==>), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2008	2099	
==>), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1173	1282	
==>air(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1173	1282	
==>air(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1173	1282	
==>air(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7685	7779	
==>rn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7685	7779	
==>rn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7685	7779	
==>rn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5818	5922	
==>needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5818	5922	
==>needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5818	5922	
==>needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2414	2509	
==>_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2414	2509	
==>_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2414	2509	
==>_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4344	4440	
==>s) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4344	4440	
==>s) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4344	4440	
==>s) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2996	3089	
==>ormal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2996	3089	
==>ormal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2996	3089	
==>ormal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8742	8851	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6295	6404	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8742	8851	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6295	6404	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8742	8851	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6295	6404	
==>_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasses
                [ @{$self->superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2001	2106	
==>r undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2001	2106	
==>r undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2001	2106	
==>r undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	979	1081	
==>nd 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 're <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	979	1081	
==>nd 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 're <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	979	1081	
==>nd 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 're <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4746	4855	
==>y_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4746	4855	
==>y_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5336	5445	
==>y_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3571	3670	
==>$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concat <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3571	3670	
==>$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concat <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4161	4260	
==>$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8722	8876	
==>,"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12628	12776	
==>,"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12628	12776	
==>,"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18286	18414	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error($r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3879	3981	
==>TORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or mo <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3879	3981	
==>TORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	258	371	
==>code;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	258	371	
==>code;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	258	371	
==>code;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	545	645	
==>1
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	545	645	
==>1
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	545	645	
==>1
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1164	1279	
==>]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1164	1279	
==>]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1164	1279	
==>]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	158	265	
==>ect but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	158	265	
==>ect but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15033	15126	
==>s because we don't go into "language" mode unless there's
a specific language declaration sayi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7159	7271	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4718	4830	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7159	7271	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4718	4830	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7159	7271	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4718	4830	
==>y @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequen <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1099	1216	
==>Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1099	1216	
==>Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 = <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7151	7257	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7151	7257	
==>eth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            ' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3069	3166	
==>ame)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will retu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3069	3166	
==>ame)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1786	1899	
==>e => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1786	1899	
==>e => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role he <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1786	1899	
==>e => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1623	1724	
==>$cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1623	1724	
==>$cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1623	1724	
==>$cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9777	9898	
==>------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9777	9898	
==>------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9777	9898	
==>------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9256	9373	
==>n";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9256	9373	
==>n";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9256	9373	
==>n";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2838	2980	
==>tion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optiona <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3126	3260	
==>tion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optiona <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9544	9678	
==>tion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optiona <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3126	3260	
==>tion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optiona <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9544	9678	
==>tion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optiona <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	253	363	
==>nditional   qw[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 M <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	330	438	
==>fdef __BORLANDC__
#include <windows.h>
#endif
int
main(int ac, char **av)
{
    int i;
#ifdef __BORLAN <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2385	2484	
==>k of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no argument <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2385	2484	
==>k of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no argument <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4089	4184	
==>ype {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Juncti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4089	4184	
==>ype {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Juncti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4089	4184	
==>ype {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Juncti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9456	9554	
==>ame);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9456	9554	
==>ame);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9456	9554	
==>ame);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4181	4275	
==>>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The optio <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4181	4275	
==>>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The optio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5705	5799	
==>>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The optio <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5676	5774	
==>m B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5676	5774	
==>m B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7873	7971	
==>m B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash> <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10930	11028	
==>that, depending on the backend, the
    <code>ext/</code> tests may or may not be run, causing dura <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19963	20055	
==>or various compilers, Module::Compile dispatches the code blocks
to the compilers. It does so <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19963	20055	
==>or various compilers, Module::Compile dispatches the code blocks
to the compilers. It does so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8034	8168	
==>cal $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8034	8168	
==>cal $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8034	8168	
==>cal $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1381	1475	
==>bal_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1381	1475	
==>bal_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1381	1475	
==>bal_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3081	3204	
==>ontext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3081	3204	
==>ontext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3081	3204	
==>ontext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6989	7101	
==>if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6989	7101	
==>if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6989	7101	
==>if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13164	13382	
==>s => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4678	4845	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4678	4845	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4678	4845	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	9906	10001	
==>ADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9906	10001	
==>ADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	303	415	
==>al $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	303	415	
==>al $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	303	415	
==>al $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	498	589	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	498	589	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	498	589	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13833	13991	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14207	14365	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13833	13991	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14207	14365	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13833	13991	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14207	14365	
==>gs
            # user code has to @a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4152	4249	
==>me to it so that you can refer to it
    #   > inside, but that name is not visible to bi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	186	283	
==>ly be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	186	283	
==>ly be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	186	283	
==>ly be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4152	4249	
==>me to it so that you can refer to it
    #   > inside, but that name is not visible to bi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4152	4249	
==>me to it so that you can refer to it
    #   > inside, but that name is not visible to bi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28063	28158	
==>f the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32615	32710	
==>f the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11432	11577	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2944	3089	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11432	11577	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2944	3089	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11432	11577	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2944	3089	
==>ion (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17484	17581	
==>) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17484	17581	
==>) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17484	17581	
==>) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3258	3349	
==>my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3258	3349	
==>my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3258	3349	
==>my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10803	10971	
==>$.diagnostic = '???',
      ) {}
  
      method status returns Hash
      {
          return
          {
              passed      => $.passed,
              descriptio <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1305	1457	
==>$.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descriptio <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1305	1457	
==>$.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descriptio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6517	6612	
==>instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6517	6612	
==>instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6517	6612	
==>instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35898	35992	
==>all common attribute names
and corresponding common tuple values are aligned and merged.  The h <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37641	37735	
==>all common attribute names and corresponding common tuple values
are aligned and merged.  The h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40448	40542	
==>all common attribute names
and corresponding common tuple values are aligned and merged.  The h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42190	42284	
==>all common attribute names and corresponding common tuple values
are aligned and merged.  The h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40062	40156	
==>all common attribute names
and corresponding common tuple values are aligned and merged.  The h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41840	41934	
==>all common attribute names and corresponding common tuple values
are aligned and merged.  The h <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10263	10392	
==>lue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10263	10392	
==>lue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10263	10392	
==>lue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1010	1114	
==>w PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becaus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1010	1114	
==>w PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becaus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1010	1114	
==>w PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becaus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4629	4725	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7565	7661	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4629	4725	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7565	7661	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4629	4725	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7565	7661	
==>|| 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchab <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6991	7096	
==>lete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6991	7096	
==>lete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7340	7441	
==>lete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7340	7441	
==>lete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14889	14982	
==>> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_entit <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14889	14982	
==>> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_entit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8256	8462	
==>Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8256	8462	
==>Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8256	8462	
==>Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1355	1457	
==>his hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1355	1457	
==>his hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1355	1457	
==>his hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10506	10681	
==>my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10506	10681	
==>my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10506	10681	
==>my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5441	5546	
==>erly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5441	5546	
==>erly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5441	5546	
==>erly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3057	3239	
==>ift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @ <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3057	3239	
==>ift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5988	6099	
==>tfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5988	6099	
==>tfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infi <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1396	1503	
==>, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1396	1503	
==>, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13606	13723	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10890	11007	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13606	13723	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10890	11007	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13606	13723	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10890	11007	
==>rn ::opaque_instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $pa <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7760	7881	
==>s Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method trave <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7760	7881	
==>s Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method trave <==
6	/Users/nnunley/pugs/util/build_pugs.pl	2722	2830	
==>Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or die "open: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5088	5189	
==>return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5088	5189	
==>return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return pos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5088	5189	
==>return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3878	4041	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6814	6977	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3878	4041	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6814	6977	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3878	4041	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6814	6977	
==>oper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10996	11099	
==>>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10996	11099	
==>>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10996	11099	
==>>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2500	2602	
==>};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'igno <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2500	2602	
==>};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'igno <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2500	2602	
==>};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'igno <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6319	6468	
==>f->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6319	6468	
==>f->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6319	6468	
==>f->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2681	2786	
==>rameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2681	2786	
==>rameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2681	2786	
==>rameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6145	6294	
==>END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # X <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6145	6294	
==>END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # X <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15572	15669	
==>tes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15572	15669	
==>tes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8710	8805	
==>ts_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8768	8863	
==>ts_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1155	1274	
==>";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1155	1274	
==>";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1155	1274	
==>";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1599	1707	
==>ld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1599	1707	
==>ld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1599	1707	
==>ld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	637	750	
==>push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	637	750	
==>push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9060	9171	
==>), @{ $self->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", map $_->visua <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5026	5135	
==>?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5026	5135	
==>?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5026	5135	
==>?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	280	387	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	278	385	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	280	387	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	278	385	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	280	387	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	278	385	
==>cess their internal data.
    # This is basically the implementation of
    # the p6opaque candidate as desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1601	1741	
==>$self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1601	1741	
==>$self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1601	1741	
==>$self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PI <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	457	559	
==>OnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DE <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	457	559	
==>OnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DE <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21665	21763	
==>ed tests for the new captures() method.

I changed the field 'class' to 'family' in objects.  I was <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	593	708	
==>ss),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	593	708	
==>ss),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	593	708	
==>ss),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12606	12714	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10157	10265	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12606	12714	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10157	10265	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12606	12714	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10157	10265	
==>tcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instance_id($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	822	915	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1342	1435	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	822	915	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1342	1435	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	822	915	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1342	1435	
==>Constant(array = []));
    if(array.referencee && array.autoderef) array = array.referencee.FE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6188	6346	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9158	9316	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6188	6346	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9158	9316	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6188	6346	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9158	9316	
==>ub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class method is the same as a regular 
    # method, it just has a class as an invocant
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5335	5444	
==>ob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5335	5444	
==>ob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5335	5444	
==>ob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $I <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4037	4126	
==>nfix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4037	4126	
==>nfix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4037	4126	
==>nfix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1960	2126	
==>"\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1960	2126	
==>"\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1960	2126	
==>"\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" i <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1796	1914	
==>"\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" i <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	940	1051	
==>H}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5940	6040	
==>en package belongs to.

=cut

sub index_files { #TODO: When using two properties (A and B) to group t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19768	19890	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16907	17029	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19768	19890	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16907	17029	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19768	19890	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16907	17029	
==>hod($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6250	6361	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9220	9331	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6250	6361	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9220	9331	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6250	6361	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9220	9331	
==>lass method is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11135	11291	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8688	8844	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11135	11291	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8688	8844	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11135	11291	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8688	8844	
==>rn sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current va <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4342	4464	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6991	7113	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4571	4690	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11020	11139	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4571	4690	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11020	11139	
==>h->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $matc <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	27344	27437	
==>str", ":t (λx. (x 'str'))(id)");
is(t($fac), "int → int", ":t fac");
is(t($length), "∀α. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	754	844	
==>r->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimite <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1132	1222	
==>r->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimite <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1771	1861	
==>r->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimite <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2206	2296	
==>r->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimite <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	754	844	
==>r->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11796	11911	
==>) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11796	11911	
==>) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11796	11911	
==>) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6992	7091	
==>ion (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6992	7091	
==>ion (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6992	7091	
==>ion (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36216	36313	
==>ation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs whe <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37969	38066	
==>ation, then where each member of a
tuple pair has attribute names in common, eliminating pairs whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40765	40862	
==>ation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42518	42615	
==>ation, then where each member of a
tuple pair has attribute names in common, eliminating pairs whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40379	40476	
==>ation,
then where each member of a tuple pair has attribute names in common,
eliminating pairs whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42168	42265	
==>ation, then where each member of a
tuple pair has attribute names in common, eliminating pairs whe <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23840	23975	
==>[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13344	13471	
==>[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13344	13471	
==>[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13344	13471	
==>[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6668	6764	
==>m I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6668	6764	
==>m I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7760	7857	
==>[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7760	7857	
==>[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7760	7857	
==>[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34138	34230	
==>cant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38688	38780	
==>cant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38149	38241	
==>cant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35488	35609	
==>body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offse <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35488	35609	
==>body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offse <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35488	35609	
==>body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8037	8131	
==>t_on_object',
   '... got the right return value from another Object singleton/class method cal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10606	10700	
==>t_on_object',
   '... got the right return value from another Object singleton/class method cal <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21242	21331	
==>s->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offset
 #define floa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2854	2995	
==>( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.un <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2854	2995	
==>( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.un <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2854	2995	
==>( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21629	21753	
==>ass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21629	21753	
==>ass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21629	21753	
==>ass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10459	10557	
==>before the => operator, you can use
'_' as a replacement for '-' in header names.

The header() met <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10459	10557	
==>before the => operator, you can use
'_' as a replacement for '-' in header names.

The header() met <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23710	23801	
==>s. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used si <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22483	22574	
==>s. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used si <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23710	23801	
==>s. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used si <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22483	22574	
==>s. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used si <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1604	1707	
==>ry->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1604	1707	
==>ry->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1604	1707	
==>ry->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3018	3116	
==>tput    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3018	3116	
==>tput    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3018	3116	
==>tput    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2901	3017	
==>lf->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2901	3017	
==>lf->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2901	3017	
==>lf->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa(" <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1906	2018	
==>->length }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess " <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	571	673	
==>method BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $con <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	571	673	
==>method BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29665	29801	
==>ems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29665	29801	
==>ems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29665	29801	
==>ems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2089	2191	
==>b .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2089	2191	
==>b .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2089	2191	
==>b .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17724	17930	
==>(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19482	19688	
==>(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39934	40139	
==>(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40993	41198	
==>(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ) <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	927	1065	
==>ut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        su <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	927	1065	
==>ut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15023	15171	
==>];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15023	15171	
==>];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15023	15171	
==>];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19722	19869	
==>];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19722	19869	
==>];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19722	19869	
==>];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we just deal with it like this, an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24646	24759	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26835	26948	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24646	24759	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26835	26948	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24646	24759	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26835	26948	
==>max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3559	3683	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3559	3683	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3559	3683	
==>methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12919	13013	
==>SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12919	13013	
==>SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12919	13013	
==>SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18533	18631	
==>IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17569	17667	
==>IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18533	18631	
==>IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17569	17667	
==>IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	684	782	
==>te_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	890	988	
==>te_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	715	833	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	715	833	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	715	833	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	102	219	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	102	219	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	102	219	
==>t(function (args) {
    var thing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4465	4566	
==>ULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4465	4566	
==>ULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4465	4566	
==>ULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MU <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22027	22120	
==>pectively have a special meaning in relational algebra which
is analagous to what the identity <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26579	26672	
==>pectively have a special meaning in relational algebra which
is analagous to what the identity <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25275	25368	
==>pectively have a special meaning in relational algebra which
is analagous to what the identity <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2325	2442	
==>ess @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2325	2442	
==>ess @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2325	2442	
==>ess @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6687	6789	
==>role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6687	6789	
==>role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6687	6789	
==>role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9065	9186	
==>);
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9065	9186	
==>);
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9065	9186	
==>);
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6899	6990	
==>::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6899	6990	
==>::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6899	6990	
==>::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16818	16952	
==>mation:

  passing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  e <==
6	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4785	4906	
==>t some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $v <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4644	4765	
==>t some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $v <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	527	629	
==>rn %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionCode(@variables) {
    m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3782	3881	
==>bers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi s <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3782	3881	
==>bers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10418	10557	
==>/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6759	6898	
==>/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7608	7747	
==>/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	308	410	
==>C} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	308	410	
==>C} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	308	410	
==>C} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36471	36584	
==>";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36471	36584	
==>";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36471	36584	
==>";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13678	13773	
==>ub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13678	13773	
==>ub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13678	13773	
==>ub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5842	5951	
==>hod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5842	5951	
==>hod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5842	5951	
==>hod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	113	216	
==>em to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	113	216	
==>em to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	113	216	
==>em to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1097	1202	
==>$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value ! <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1097	1202	
==>$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value ! <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1097	1202	
==>$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value ! <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5341	5442	
==>if it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You wil <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5341	5442	
==>if it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You wil <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27529	27622	
==>tion::Example has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation::Ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19813	19918	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16952	17057	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19813	19918	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16952	17057	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19813	19918	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16952	17057	
==>is reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10497	10646	
==>>      $number,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.di <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1033	1164	
==>>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.di <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1033	1164	
==>>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7376	7474	
==>s_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7376	7474	
==>s_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7376	7474	
==>s_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $js <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25775	25874	
==>g the old names and its values the new names.
This method will fail if any C<$mapping> keys do not m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30327	30426	
==>g the old names and its values the new names.
This method will fail if any C<$mapping> keys do not m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29293	29392	
==>g the old names and its values the new names.
This method will fail if any C<$mapping> keys do not m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6062	6151	
==>::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6062	6151	
==>::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6062	6151	
==>::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1402	1522	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2965	3085	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1402	1522	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2965	3085	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1402	1522	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2965	3085	
==>of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1994	2096	
==>== b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1994	2096	
==>== b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1994	2096	
==>== b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(n <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5000	5099	
==>ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, de <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5000	5099	
==>ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6524	6623	
==>ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9425	9536	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6972	7083	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9425	9536	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6972	7083	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9425	9536	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6972	7083	
==>elsif ($order eq ':descendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1949	2064	
==>d};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1949	2064	
==>d};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1949	2064	
==>d};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6537	6627	
==>rintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.ca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6537	6627	
==>rintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.ca <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6537	6627	
==>rintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17630	17813	
==>RANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $l <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14051	14234	
==>RANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $l <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28195	28288	
==>debug_string()>

This method returns a stringified version of this object which is suitable
fo <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35551	35644	
==>debug_string()>

This method returns a stringified version of this object which is suitable
fo <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28195	28288	
==>debug_string()>

This method returns a stringified version of this object which is suitable
fo <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35551	35644	
==>debug_string()>

This method returns a stringified version of this object which is suitable
fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	957	1067	
==>$params{'$.number'},
            ) if $params{'$.todo'};

            return $::TestBuilder->FETCH('::Test')->F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4631	4732	
==>y

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4631	4732	
==>y

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4631	4732	
==>y

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::. <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10802	10897	
==>e up the bulk of the Rosetta::Model code,
and these could potentially be extended by third party <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10802	10897	
==>e up the bulk of the Rosetta::Model code,
and these could potentially be extended by third party <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3412	3512	
==>er::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Co <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3412	3512	
==>er::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Co <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24612	24707	
==>gedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23376	23471	
==>gedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24612	24707	
==>gedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23376	23471	
==>gedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloo <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1463	1632	
==>ation')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <U <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1463	1632	
==>ation')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <U <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1904	2026	
==>ey basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1904	2026	
==>ey basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1904	2026	
==>ey basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23831	23925	
==>re any subroutines or export such.

The usual way that Relation::Example indicates a failure is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18411	18545	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15649	15783	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18411	18545	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15649	15783	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18411	18545	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15649	15783	
==>).*$/) {
        # check for instance attribute
        return $self->has_attribute($label, for => 'instance') ?
                    $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2751	2851	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5399	5499	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2751	2851	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5399	5499	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2751	2851	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5399	5499	
==>container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_con <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3265	3358	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11823	11916	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6390	6483	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3265	3358	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11823	11916	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6390	6483	
==>ethod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2023	2143	
==>: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! her <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2023	2143	
==>: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! her <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2023	2143	
==>: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! her <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1637	1745	
==>}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  war <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1637	1745	
==>}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  war <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1637	1745	
==>}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  war <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	777	899	
==>ntainer_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	759	876	
==>ntainer_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	759	876	
==>ntainer_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6588	6693	
==>elf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6588	6693	
==>elf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6588	6693	
==>elf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5701	5814	
==>$n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5701	5814	
==>$n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5701	5814	
==>$n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3584	3691	
==>n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3584	3691	
==>n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3584	3691	
==>n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2826	2935	
==>$jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2826	2935	
==>$jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2826	2935	
==>$jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2291	2398	
==>$jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2291	2398	
==>$jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2291	2398	
==>$jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1570	1683	
==>start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1570	1683	
==>start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, e <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4171	4271	
==>ns, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4171	4271	
==>ns, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	2185	2282	
==>set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf( <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2185	2282	
==>set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2387	2526	
==>nv->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2387	2526	
==>nv->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2387	2526	
==>nv->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1746	1859	
==>esis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acut <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1746	1859	
==>esis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acut <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5134	5243	
==>$i)) != bit->new(1);
    }
    return bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	224	325	
==>), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * Ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	224	325	
==>), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * Ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	224	325	
==>), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * Ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17053	17142	
==>ubclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17053	17142	
==>ubclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17053	17142	
==>ubclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2401	2500	
==>r:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	511	610	
==>, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2401	2500	
==>r:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2401	2500	
==>r:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	511	610	
==>, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	511	610	
==>, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	894	1007	
==>L2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	894	1007	
==>L2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	894	1007	
==>L2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1738	1834	
==>f(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1738	1834	
==>f(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1738	1834	
==>f(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::d <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4790	4920	
==><=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4790	4920	
==><=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	661	779	
==>r( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6179	6297	
==>r( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	661	779	
==>r( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6191	6309	
==>r( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9447	9557	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6994	7104	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9447	9557	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6994	7104	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9447	9557	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6994	7104	
==>cendant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascend <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1897	2011	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3460	3574	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1897	2011	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3460	3574	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1897	2011	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3460	3574	
==>rs', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	528	695	
==>( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	443	610	
==>( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	531	698	
==>( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18460	18626	
==>{
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18460	18626	
==>{
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18460	18626	
==>{
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	605	703	
==>lessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $av <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23265	23363	
==>:hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	605	703	
==>lessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $av <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23265	23363	
==>:hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	605	703	
==>lessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $av <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23265	23363	
==>:hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9159	9299	
==>"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9159	9299	
==>"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9159	9299	
==>"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #war <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6781	6881	
==>on) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6781	6881	
==>on) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6781	6881	
==>on) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $ve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20867	20962	
==>};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20867	20962	
==>};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20867	20962	
==>};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 } <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3810	3900	
==>ctory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parame <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3810	3900	
==>ctory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parame <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6007	6097	
==>ctory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parame <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13129	13259	
==>ift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13129	13259	
==>ift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13129	13259	
==>ift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2816	2917	
==>())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2816	2917	
==>())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  }) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2816	2917	
==>())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  }) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4956	5070	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7605	7719	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5165	5275	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11614	11724	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5165	5275	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11614	11724	
==>de'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_variable {
    my $name = s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1194	1300	
==>r> does longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1543	1647	
==>r> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes ca <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1150	1254	
==>r> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1543	1647	
==>r> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes ca <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	65	167	
==>e for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	65	167	
==>e for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13964	14073	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14451	14560	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13964	14073	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14451	14560	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13964	14073	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14451	14560	
==>thod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6852	6953	
==>ray:) returns Str {
    "["~ join(", ", @array.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2JS O <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4390	4497	
==>_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4390	4497	
==>_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4390	4497	
==>_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19559	19676	
==>r ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (spl <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15980	16097	
==>r ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (spl <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	562	658	
==>er, in that keys should produce the same keystream and thus text 
should be enciphered and deciph <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	562	658	
==>er, in that keys should produce the same keystream and thus text 
should be enciphered and deciph <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33269	33361	
==>d.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37819	37911	
==>d.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11745	11898	
==>nless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11745	11898	
==>nless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11745	11898	
==>nless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12174	12261	
==>erator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12174	12261	
==>erator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12174	12261	
==>erator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	143	243	
==>alled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	143	243	
==>alled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	143	243	
==>alled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	143	243	
==>alled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19044	19138	
==>esent, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19044	19138	
==>esent, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11989	12149	
==>eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    prin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8271	8431	
==>eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9105	9265	
==>eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    prin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2468	2565	
==>er(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2468	2565	
==>er(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2468	2565	
==>er(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : N <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2484	2591	
==>te .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    r <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2484	2591	
==>te .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16911	17013	
==>as whether to do optimize...

  # strings
  /foo|father|fort/  => /f(?:o(?:o|rt)|ather)/

  # char clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5940	6039	
==>\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5940	6039	
==>\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5940	6039	
==>\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15286	15425	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20019	20158	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15286	15425	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20019	20158	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15286	15425	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20019	20158	
==>s to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            return if $::IN_GL <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2552	2657	
==>m;
  $self->{errmsg} = sprintf $err, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $enum, $e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	742	838	
==>ntinuations are used for backtracking.



A "ruleop" function gets some arguments and returns a " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10610	10706	
==>ntinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a " <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1113	1207	
==>ntinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a " <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	712	806	
==>ntinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1113	1207	
==>ntinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a " <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	583	688	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	905	1010	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1284	1389	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	583	688	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	905	1010	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1284	1389	
==>ck>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4060	4203	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6996	7139	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4060	4203	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6996	7139	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4060	4203	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6996	7139	
==>hod 
        # into the same class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # ou <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3064	3162	
==>) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESC <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3064	3162	
==>) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3144	3242	
==>) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	238	334	
==>aScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	238	334	
==>aScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	238	334	
==>aScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15741	15888	
==>s::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15741	15888	
==>s::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15741	15888	
==>s::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20462	20605	
==>s::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20462	20605	
==>s::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20462	20605	
==>s::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4028	4177	
==>i ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4028	4177	
==>i ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4028	4177	
==>i ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	779	878	
==>this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexica <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	779	878	
==>this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexica <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	779	878	
==>this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexica <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1962	2120	
==>abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1741	1889	
==>abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1741	1889	
==>abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2044	2164	
==>it }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2044	2164	
==>it }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2044	2164	
==>it }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14852	14960	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12106	12214	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14852	14960	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12106	12214	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14852	14960	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12106	12214	
==>($attribute))
        || confess "InsufficientArguments : you must provide an attribute and a label";
    #$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2167	2292	
==>s

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2167	2292	
==>s

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2514	2639	
==>s

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5065	5175	
==>s of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8542	8652	
==>s of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    r <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7553	7663	
==>s of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13073	13186	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10357	10470	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13073	13186	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10357	10470	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13073	13186	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10357	10470	
==>et_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance . <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3670	3764	
==>e akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3670	3764	
==>e akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6690	6783	
==>e
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8759	8852	
==>e
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6690	6783	
==>e
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8759	8852	
==>e
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maisc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7302	7430	
==>:decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7302	7430	
==>:decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7302	7430	
==>:decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13712	13811	
==>s no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13712	13811	
==>s no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13712	13811	
==>s no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5453	5557	
==>num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5453	5557	
==>num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5453	5557	
==>num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15265	15363	
==>rom_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15265	15363	
==>rom_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15265	15363	
==>rom_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ( <==
6	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1125	1274	
==>my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1874	1970	
==>&codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1874	1970	
==>&codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1874	1970	
==>&codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
meth <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8282	8372	
==>, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) } <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2107	2197	
==>, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4664	4768	
==>oxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4664	4768	
==>oxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4664	4768	
==>oxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2433	2527	
==>need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2433	2527	
==>need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2433	2527	
==>need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7114	7252	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10084	10222	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7114	7252	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10084	10222	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7114	7252	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10084	10222	
==>o see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own class or not.
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20743	20846	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17881	17984	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20743	20846	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17881	17984	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20743	20846	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17881	17984	
==>pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8897	9013	
==>and(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8897	9013	
==>and(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8897	9013	
==>and(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4207	4314	
==>join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4207	4314	
==>join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4207	4314	
==>join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4315	4434	
==>l');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4315	4434	
==>l');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4315	4434	
==>l');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	862	973	
==>]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	862	973	
==>]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	862	973	
==>]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	492	591	
==>s -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	492	591	
==>s -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	492	591	
==>s -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1791	1891	
==>(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1791	1891	
==>(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1791	1891	
==>(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17135	17219	
==>private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17135	17219	
==>private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17135	17219	
==>private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3050	3220	
==>ng) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3050	3220	
==>ng) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3050	3220	
==>ng) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9972	10124	
==>@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9972	10124	
==>@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9972	10124	
==>@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13087	13189	
==>A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_ <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13087	13189	
==>A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_ <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	28325	28423	
==>turns the stringified type of an AST
sub t {
	my $ast = shift;
	$i->apply($ast)->type->stringify;
} <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6255	6380	
==>966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "ups <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6255	6380	
==>966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "ups <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13083	13194	
==>d values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = : <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13083	13194	
==>d values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = : <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13083	13194	
==>d values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = : <==
6	/Users/nnunley/pugs/misc/Date/lib/Date.pm	243	346	
==>{
    ...
}

method add($self: Duration $duration) returns Date {
    ...
}

method subtract($self: Dura <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7664	7779	
==>r_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7664	7779	
==>r_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7664	7779	
==>r_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2703	2813	
==>nless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2703	2813	
==>nless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2703	2813	
==>nless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3996	4108	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4934	5046	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2230	2342	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2476	2588	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3011	3123	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3257	3369	
==>_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13325	13450	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18208	18333	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13325	13450	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18208	18333	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13325	13450	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18208	18333	
==>o to the next
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16508	16618	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16508	16618	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16508	16618	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2131	2223	
==>w_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2131	2223	
==>w_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2131	2223	
==>w_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6128	6258	
==>name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6128	6258	
==>name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6128	6258	
==>name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{me <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4391	4495	
==>=> "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R' => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18009	18106	
==>ltering a sane process, by
parsing up your module's source code into various blocks; so that by th <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18009	18106	
==>ltering a sane process, by
parsing up your module's source code into various blocks; so that by th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17809	17914	
==>tr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17809	17914	
==>tr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17809	17914	
==>tr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5415	5512	
==>currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5415	5512	
==>currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5415	5512	
==>currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	3	99	
==>This is a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14035	14163	
==>y - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14035	14163	
==>y - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14035	14163	
==>y - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	615	722	
==>ub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	615	722	
==>ub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	615	722	
==>ub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1002	1107	
==>{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1002	1107	
==>{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1002	1107	
==>{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	182	283	
==>);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	182	283	
==>);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	182	283	
==>);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8282	8430	
==>" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{ <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8282	8430	
==>" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5678	5804	
==>apture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6231	6357	
==>apture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5871	5997	
==>apture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6424	6550	
==>apture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9006	9184	
==>, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $pa <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9006	9184	
==>, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6493	6670	
==>airs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6493	6670	
==>airs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6493	6670	
==>airs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slic <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5571	5690	
==>@INC ) {
        unshift @INC, $self->{prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6877	6970	
==>ed-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6877	6970	
==>ed-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	206	324	
==>$self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	206	324	
==>$self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	206	324	
==>$self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1838	1934	
==>s" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1838	1934	
==>s" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1838	1934	
==>s" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( + <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4045	4164	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4983	5102	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2279	2398	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2525	2644	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3060	3179	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3306	3425	
==>[0], '$<op>' );
    my $term2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3649	3749	
==>he Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C< <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3649	3749	
==>he Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5846	5946	
==>he Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7210	7302	
==>_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7210	7302	
==>_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7210	7302	
==>_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2932	3035	
==>prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2932	3035	
==>prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2932	3035	
==>prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the Ja <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28991	29082	
==>having new tuple-valued
attributes which wrap zero old attributes (they are effectively just <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33543	33634	
==>having new tuple-valued
attributes which wrap zero old attributes (they are effectively just <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32680	32771	
==>having new tuple-valued
attributes which wrap zero old attributes (they are effectively just <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7740	7848	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10663	10771	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7740	7848	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10663	10771	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7740	7848	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10663	10771	
==>THOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17688	17797	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14908	15017	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17688	17797	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14908	15017	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17688	17797	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14908	15017	
==>($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => 'inst <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15302	15398	
==>imes always convert their value to system
time (seconds since Jan 1, 1970) and they also expect t <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15302	15398	
==>imes always convert their value to system
time (seconds since Jan 1, 1970) and they also expect t <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	14026	14118	
==>ORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10253	10345	
==>ORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14026	14118	
==>ORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10253	10345	
==>ORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	336	474	
==>n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	336	474	
==>n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	336	474	
==>n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9854	9984	
==>stant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       , <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10133	10263	
==>stant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       , <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27920	28018	
==>rint "----\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14172	14350	
==>ow
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14172	14350	
==>ow
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14172	14350	
==>ow
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1348	1447	
==>]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1348	1447	
==>]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1348	1447	
==>]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16623	16730	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13828	13935	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16623	16730	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13828	13935	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16623	16730	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13828	13935	
==>spatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7031	7141	
==>@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7031	7141	
==>@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7031	7141	
==>@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9578	9679	
==>t
    # to gather all the roles to be 'resolved'
    # ----------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9578	9679	
==>t
    # to gather all the roles to be 'resolved'
    # ----------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9578	9679	
==>t
    # to gather all the roles to be 'resolved'
    # ----------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2862	2971	
==>age!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ER <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2862	2971	
==>age!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ER <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4340	4444	
==>equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./st <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4340	4444	
==>equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./st <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5213	5315	
==>equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./st <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5213	5315	
==>equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./st <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6854	6948	
==>is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6854	6948	
==>is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18526	18617	
==>...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18526	18617	
==>...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18526	18617	
==>...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULT <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2169	2257	
==>ddToken("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addToken("postf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4822	4914	
==>ad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4822	4914	
==>ad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5412	5504	
==>ad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5367	5458	
==>ad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5367	5458	
==>ad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5957	6048	
==>ad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14988	15139	
==>);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14988	15139	
==>);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14988	15139	
==>);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19687	19837	
==>);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19687	19837	
==>);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19687	19837	
==>);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # so we <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2522	2630	
==>an ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.ma <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5725	5833	
==>an ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.ma <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2522	2630	
==>an ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.ma <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5725	5833	
==>an ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.ma <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14646	14745	
==>ms} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_sc <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2127	2226	
==>ms} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9145	9239	
==>{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9145	9239	
==>{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9145	9239	
==>{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7170	7259	
==>no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7170	7259	
==>no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7170	7259	
==>no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1877	1980	
==>orted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1877	1980	
==>orted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - o <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1877	1980	
==>orted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	626	729	
==>al> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

i <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10819	10916	
==>universal set".

The complement set of the universe is an empty set.

`:is_universe` must be set i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10819	10916	
==>universal set".

The complement set of the universe is an empty set.

`:is_universe` must be set i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20764	20853	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17902	17991	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20764	20853	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17902	17991	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20764	20853	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17902	17991	
==>amorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25987	26162	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28188	28363	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25987	26162	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28188	28363	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25987	26162	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28188	28363	
==>-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2624	2731	
==>ed $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2624	2731	
==>ed $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2624	2731	
==>ed $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{ <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26294	26387	
==>e ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x00400
 #define ROPT_CANY_SEEN		0x008 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40770	40862	
==>would appreciate being informed any time you create a
modified version of Locale::KeyedText t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40770	40862	
==>would appreciate being informed any time you create a
modified version of Locale::KeyedText t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7101	7233	
==>warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7101	7233	
==>warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7101	7233	
==>warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6417	6518	
==>icts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6417	6518	
==>icts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6417	6518	
==>icts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9604	9714	
==>l5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9604	9714	
==>l5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9604	9714	
==>l5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2597	2690	
==>new_class->version($version)     if defined $version;
    $new_class->authority($authority) if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2597	2690	
==>new_class->version($version)     if defined $version;
    $new_class->authority($authority) if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2597	2690	
==>new_class->version($version)     if defined $version;
    $new_class->authority($authority) if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10142	10247	
==>$p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10142	10247	
==>$p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10142	10247	
==>$p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1336	1426	
==>g{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignore <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1336	1426	
==>g{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignore <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1336	1426	
==>g{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignore <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12608	12730	
==>.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $status{" <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2974	3092	
==>.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{" <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2974	3092	
==>.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12050	12163	
==>.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $status{" <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2454	2563	
==>.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{" <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2454	2563	
==>.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4830	4952	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7479	7601	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5045	5161	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11494	11610	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5045	5161	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11494	11610	
==>str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2883	2988	
==>test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2883	2988	
==>test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2963	3068	
==>test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3959	4058	
==>o pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3959	4058	
==>o pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3959	4058	
==>o pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3311	3440	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6247	6376	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3311	3440	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6247	6376	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3311	3440	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6247	6376	
==>or binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3305	3414	
==>ass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3305	3414	
==>ass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3305	3414	
==>ass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Ei <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3052	3149	
==>length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3052	3149	
==>length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3052	3149	
==>length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
6	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	413	509	
==>for arrays and filehandles.

=head2 new()

Create an iterator.

=head2 next()

Iterate through it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8403	8494	
==>ec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	115	206	
==>ec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8403	8494	
==>ec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8403	8494	
==>ec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7316	7407	
==>t to add itself to the $::Class
    $_add_method->do(list->new($::Class, symbol->new('add_me <==
6	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1148	1327	
==>l",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $string;
        "$string and " ~
        pick ( <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	4580	4703	
==>ion    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some hea <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4580	4703	
==>ion    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1866	1976	
==>my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1866	1976	
==>my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1866	1976	
==>my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	987	1083	
==>) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	987	1083	
==>) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	987	1083	
==>) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14213	14306	
==>ngth(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14213	14306	
==>ngth(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14213	14306	
==>ngth(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	108	218	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	469	579	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	108	218	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	469	579	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	108	218	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	469	579	
==>local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_ty <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1448	1556	
==>tandard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1448	1556	
==>tandard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4279	4377	
==>ve . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5176	5274	
==>ve . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4279	4377	
==>ve . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5176	5274	
==>ve . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3871	4056	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6398	6583	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3871	4056	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6398	6583	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3871	4056	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6398	6583	
==>add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4783	4907	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7432	7556	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4999	5120	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11448	11569	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4999	5120	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11448	11569	
==>atch->{tail} );
    my $head = $len ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{ab <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4715	4844	
==>XX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4715	4844	
==>XX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2937	3032	
==>de->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::Util::blessed($struc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6462	6549	
==>ersion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6462	6549	
==>ersion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6462	6549	
==>ersion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => : <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	281	389	
==>n(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	281	389	
==>n(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1054	1158	
==>ir(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1054	1158	
==>ir(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1054	1158	
==>ir(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETC <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	581	702	
==>turn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	581	702	
==>turn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	581	702	
==>turn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3a <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5357	5459	
==>e($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .conte <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5357	5459	
==>e($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .conte <==
6	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1300	1398	
==>acro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfill <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24312	24449	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25575	25712	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24591	24728	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25854	25991	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28754	28860	
==>xt Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28754	28860	
==>xt Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7042	7175	
==>apper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7042	7175	
==>apper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7042	7175	
==>apper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15649	15776	
==>_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15649	15776	
==>_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15649	15776	
==>_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6393	6496	
==>_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the strin <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5466	5569	
==>_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the strin <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6393	6496	
==>_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the strin <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5466	5569	
==>_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the strin <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12864	12961	
==>er is used for several things. 
For example, when iterating through the span range, the unit is ad <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12864	12961	
==>er is used for several things. 
For example, when iterating through the span range, the unit is ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10346	10468	
==>tems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10346	10468	
==>tems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10346	10468	
==>tems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8864	8977	
==>) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8864	8977	
==>) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8864	8977	
==>) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	559	664	
==>refix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	559	664	
==>refix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	559	664	
==>refix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5271	5371	
==>ilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5271	5371	
==>ilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5271	5371	
==>ilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1822	1925	
==>ts of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1822	1925	
==>ts of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1822	1925	
==>ts of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2567	2662	
==>pe {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2567	2662	
==>pe {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2567	2662	
==>pe {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9698	9834	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12671	12807	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9698	9834	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12671	12807	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9698	9834	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12671	12807	
==>tash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the special case of the
    # early <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2338	2484	
==>}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2338	2484	
==>}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2338	2484	
==>}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3349	3456	
==>mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3349	3456	
==>mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3349	3456	
==>mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4625	4731	
==>label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4625	4731	
==>label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4625	4731	
==>label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11039	11124	
==>----------------------------------------------------------

What if Roles could provid <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11039	11124	
==>----------------------------------------------------------

What if Roles could provid <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11039	11124	
==>----------------------------------------------------------

What if Roles could provid <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3457	3558	
==>hen calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3457	3558	
==>hen calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3457	3558	
==>hen calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defin <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3935	4031	
==>ter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fai <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3935	4031	
==>ter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fai <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6132	6228	
==>ter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fai <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11377	11483	
==>eric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11377	11483	
==>eric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_c <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	484	582	
==>return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::In <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	484	582	
==>return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::In <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1572	1661	
==>sly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1572	1661	
==>sly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6321	6426	
==>.FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6321	6426	
==>.FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6321	6426	
==>.FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1760	1863	
==>be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1760	1863	
==>be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1760	1863	
==>be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9830	9982	
==>*::WALKCLASS" 
        (closure new             
            (($::ENV)
             (closure::signature new 
                ((params  (closure::params n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4061	4165	
==>[] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4061	4165	
==>[] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4061	4165	
==>[] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26518	26615	
==>u wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%ms <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26518	26615	
==>u wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%ms <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3966	4098	
==>2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3966	4098	
==>2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3966	4098	
==>2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4055	4169	
==>n"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4055	4169	
==>n"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4055	4169	
==>n"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31830	31950	
==>ength, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31830	31950	
==>ength, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31830	31950	
==>ength, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	448	538	
==>%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	448	538	
==>%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	448	538	
==>%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primiti <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3727	3838	
==>RAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	184	289	
==>__init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	184	289	
==>__init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	184	289	
==>__init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die u <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	746	839	
==>d fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STO <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	746	839	
==>d fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4817	4914	
==>G;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4817	4914	
==>G;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4817	4914	
==>G;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1075	1171	
==>est 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-dere <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1075	1171	
==>est 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-dere <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1075	1171	
==>est 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-dere <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1952	2063	
==>ion = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1952	2063	
==>ion = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2032	2143	
==>ion = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	749	844	
==>gs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	749	844	
==>gs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	749	844	
==>gs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constan <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	639	761	
==>nction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	639	761	
==>nction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	639	761	
==>nction () {
          PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2987	3090	
==>nction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2987	3090	
==>nction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2987	3090	
==>nction() {
    PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.Ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1108	1252	
==>in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->en <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1108	1252	
==>in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->en <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1108	1252	
==>in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11827	11922	
==>use instances of class all conform to the Role interface/API they are 
interchangable with one a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11827	11922	
==>use instances of class all conform to the Role interface/API they are 
interchangable with one a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11827	11922	
==>use instances of class all conform to the Role interface/API they are 
interchangable with one a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2065	2175	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1177	1287	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2065	2175	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1177	1287	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2065	2175	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1177	1287	
==>t it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5451	5564	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8421	8534	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5451	5564	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8421	8534	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5451	5564	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8421	8534	
==>ub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Per <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26926	27026	
==>ided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Key <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26926	27026	
==>ided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Key <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21756	21854	
==>>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20637	20735	
==>>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=ite <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21756	21854	
==>>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=ite <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20637	20735	
==>>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=ite <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4032	4160	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6681	6809	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4268	4393	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10717	10842	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4268	4393	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10717	10842	
==>$str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3183	3293	
==>on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3183	3293	
==>on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield N <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3183	3293	
==>on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	988	1091	
==>now that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	988	1091	
==>now that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	988	1091	
==>now that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16163	16316	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20880	21033	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16163	16316	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20880	21033	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16163	16316	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20880	21033	
==>>{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	239	354	
==>};

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($class, $source) = @_;

    my $file = (caller(4))[1];
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3028	3125	
==>>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3028	3125	
==>>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3028	3125	
==>>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17590	17683	
==>::DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspire <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17590	17683	
==>::DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspire <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2959	3105	
==>0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2959	3105	
==>0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2959	3105	
==>0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6777	6875	
==>($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6777	6875	
==>($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6777	6875	
==>($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.B <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	577	701	
==>Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	577	701	
==>Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	577	701	
==>Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.le <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2955	3051	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2955	3051	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2955	3051	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1] <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3267	3361	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11825	11919	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6392	6486	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3267	3361	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11825	11919	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6392	6486	
==>hod _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	214	344	
==>rams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	212	342	
==>rams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11162	11260	
==>.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=h <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8566	8664	
==>.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=h <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11162	11260	
==>.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=h <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8566	8664	
==>.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11788	12006	
==>mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11788	12006	
==>mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11788	12006	
==>mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	119	220	
==>sage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	119	220	
==>sage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	119	220	
==>sage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5888	6014	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4008	4134	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5888	6014	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4008	4134	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5888	6014	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4008	4134	
==>uperclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28339	28536	
==>) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28339	28536	
==>) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28339	28536	
==>) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1403	1503	
==>lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New intern <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1403	1503	
==>lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New intern <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1403	1503	
==>lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New intern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12512	12603	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10063	10154	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12512	12603	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10063	10154	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12512	12603	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10063	10154	
==>::opaque_instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	961	1088	
==>func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_ob <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	961	1088	
==>func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_ob <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	961	1088	
==>func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1562	1653	
==>tribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1562	1653	
==>tribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1562	1653	
==>tribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16031	16176	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20748	20893	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16031	16176	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20748	20893	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16031	16176	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20748	20893	
==>re::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19101	19235	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16339	16473	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19101	19235	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16339	16473	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19101	19235	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16339	16473	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10268	10360	
==>y (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10268	10360	
==>y (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10268	10360	
==>y (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	343	432	
==>ire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	343	432	
==>ire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	343	432	
==>ire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requi <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1530	1645	
==>gnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $di <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1530	1645	
==>gnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1610	1725	
==>gnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7510	7595	
==>-------------------------------------------------------------
## END BOOTSTRAPPING ROL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7510	7595	
==>-------------------------------------------------------------
## END BOOTSTRAPPING ROL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7510	7595	
==>-------------------------------------------------------------
## END BOOTSTRAPPING ROL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3668	3795	
==>sa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3668	3795	
==>sa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3668	3795	
==>sa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	669	767	
==>08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - au <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	669	767	
==>08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - au <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	669	767	
==>08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - au <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	898	1017	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	986	1105	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	898	1017	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	986	1105	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	898	1017	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	986	1105	
==>GV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2200	2306	
==>)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ], <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2200	2306	
==>)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ], <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2200	2306	
==>)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ], <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	627	732	
==>were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	627	732	
==>were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	627	732	
==>were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2904	3112	
==>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2904	3112	
==>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2904	3112	
==>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	131	235	
==>name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	131	235	
==>name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	131	235	
==>name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4402	4519	
==>Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( ' <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4402	4519	
==>Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3107	3217	
==>hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3107	3217	
==>hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3107	3217	
==>hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($th <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1509	1607	
==>se Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    my $ident = get_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1191	1293	
==>)\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1191	1293	
==>)\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1191	1293	
==>)\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9914	10001	
==>s[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9914	10001	
==>s[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9914	10001	
==>s[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_privat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	133	238	
==>e warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	316	416	
==>x'} // "wert";

#!\pause
# er kann auch sehr einfach verkettet werden:
my $option = %para{'x'} // %co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	128	228	
==>e warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	122	222	
==>e warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	128	228	
==>e warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	122	222	
==>e warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6180	6389	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6180	6389	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6180	6389	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3653	3861	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3653	3861	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3653	3861	
==>ethod($method_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	946	1077	
==>ance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	946	1077	
==>ance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	946	1077	
==>ance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10402	10524	
==>ush \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10396	10518	
==>ush \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1 <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3009	3126	
==>g;
    my $meta = $self->meta;

    ### if we didn't get a meta object, we'll fetch it from the .jib
    unless( $meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13965	14127	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13965	14127	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13965	14127	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6227	6389	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4729	4891	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2673	2835	
==>ize_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $fin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20725	20835	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17863	17973	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20725	20835	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17863	17973	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20725	20835	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17863	17973	
==>);

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3652	3775	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6588	6711	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3652	3775	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6588	6711	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3652	3775	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6588	6711	
==>ce wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $met <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3657	3820	
==>t = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requir <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3657	3820	
==>t = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requir <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	512	620	
==>b debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	516	624	
==>b debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	512	620	
==>b debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	516	624	
==>b debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	0	105	
==>package PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	0	105	
==>package PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	0	105	
==>package PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6311	6411	
==>eiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6311	6411	
==>eiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6311	6411	
==>eiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14811	14922	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12065	12176	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14811	14922	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12065	12176	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14811	14922	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12065	12176	
==>d $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must prov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20401	20527	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17540	17666	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20401	20527	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17540	17666	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20401	20527	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17540	17666	
==>e way other classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9499	9617	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7046	7164	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9499	9617	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7046	7164	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9499	9617	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7046	7164	
==>ndant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5027	5174	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5988	6135	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5027	5174	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5988	6135	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5027	5174	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5988	6135	
==>ement' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20128	20262	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17267	17401	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20128	20262	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17267	17401	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20128	20262	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17267	17401	
==>mally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4722	4848	
==>body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4722	4848	
==>body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4722	4848	
==>body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13844	13938	
==>TI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13844	13938	
==>TI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13844	13938	
==>TI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17506	17601	
==>ry of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17506	17601	
==>ry of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31904	31998	
==>ional operator that takes a single
Relation in its C<$other> argument, where <$other> has the s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33765	33859	
==>ional operator that takes a single Relation
in its C<$other> argument, where <$other> has the s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36454	36548	
==>ional operator that takes a single
Relation in its C<$other> argument, where <$other> has the s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38315	38409	
==>ional operator that takes a single Relation
in its C<$other> argument, where <$other> has the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10594	10730	
==>elf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @param <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10594	10730	
==>elf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @param <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10594	10730	
==>elf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1266	1355	
==>ucture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1266	1355	
==>ucture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1266	1355	
==>ucture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3166	3298	
==>mmycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3166	3298	
==>mmycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3166	3298	
==>mmycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5859	5972	
==>max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5859	5972	
==>max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5859	5972	
==>max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3494	3604	
==>", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3494	3604	
==>", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3494	3604	
==>", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we g <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11517	11618	
==>od('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11517	11618	
==>od('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11517	11618	
==>od('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_t <==
6	/Users/nnunley/pugs/util/func_refact.pl	1860	2000	
==>if $Conf{verbose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12495	12616	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12495	12616	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12495	12616	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4356	4456	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4356	4456	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:< <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9542	9713	
==>implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15086	15257	
==>implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9542	9713	
==>implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15080	15251	
==>implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4530	4626	
==>print "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "C <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4530	4626	
==>print "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "C <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13066	13186	
==>s', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ru <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21116	21236	
==>s', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13345	13465	
==>s', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21395	21515	
==>s', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ru <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7036	7132	
==>ay of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the r <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7036	7132	
==>ay of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7439	7560	
==>et_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7439	7560	
==>et_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7439	7560	
==>et_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = sh <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6825	6933	
==>$pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_v <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10588	10695	
==>terator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'S <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10588	10695	
==>terator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7029	7193	
==>s[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_spa <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7029	7193	
==>s[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_spa <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	1083	1194	
==>hem *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... " if $Config{verbose};
    unl <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1821	1931	
==>isher;
    has Class::Events::Subscriber $.subscriber;

    method match ($notification) {
        # this is re <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	269	372	
==>ssible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    h <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	269	372	
==>ssible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13342	13450	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10626	10734	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13342	13450	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10626	10734	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13342	13450	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10626	10734	
==>r}) eq 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($param <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1379	1482	
==>ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infini <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1379	1482	
==>ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infini <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1379	1482	
==>ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infini <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	765	858	
==>^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment). <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	765	858	
==>^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment). <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	765	858	
==>^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment). <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14451	14621	
==>leop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14730	14900	
==>leop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gr <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	812	934	
==>eturn;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    c <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	779	901	
==>eturn;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    c <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11617	11738	
==>$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

us <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11611	11732	
==>$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

us <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	467	579	
==>CharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	467	579	
==>CharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	467	579	
==>CharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4447	4552	
==>die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4447	4552	
==>die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4447	4552	
==>die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6118	6213	
==>r $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8186	8281	
==>r $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6118	6213	
==>r $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8186	8281	
==>r $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pat <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	5363	5454	
==>ends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_te <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5421	5512	
==>ends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16313	16457	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21030	21174	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16313	16457	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21030	21174	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16313	16457	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21030	21174	
==>, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            go <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	186	295	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	181	290	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	186	295	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	181	290	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	186	295	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	181	290	
==>ie unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self- <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13052	13179	
==>rray => sub { "". @{$_[0]} },
      hash  => sub { "". %{$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36774	36872	
==>)

=head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

= <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18833	18925	
==>on if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its statu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17876	17968	
==>on if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its statu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18833	18925	
==>on if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its statu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17876	17968	
==>on if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its statu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5786	5886	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8756	8856	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5786	5886	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8756	8856	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5786	5886	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8756	8856	
==>in the other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8324	8437	
==>);  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8324	8437	
==>);  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8324	8437	
==>);  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->va <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28862	28957	
==>rs.  This
method supports having the new attributes having the same names as old
attributes that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33414	33509	
==>rs.  This
method supports having the new attributes having the same names as old
attributes that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32551	32646	
==>rs.  This
method supports having the new attributes having the same names as old
attributes that <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8235	8383	
==>y $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8235	8383	
==>y $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    el <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8235	8383	
==>y $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5656	5750	
==>EATE would take a fully qualified name, and create any missing packages 
nessecary, possibly st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5656	5750	
==>EATE would take a fully qualified name, and create any missing packages 
nessecary, possibly st <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5656	5750	
==>EATE would take a fully qualified name, and create any missing packages 
nessecary, possibly st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	708	810	
==>rmine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if th <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	708	810	
==>rmine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if th <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6704	6802	
==>ed when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an even <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6704	6802	
==>ed when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an even <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37672	37766	
==>ethod takes the name of a Perl package in its positional parameter
$module_name (a string), and <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37672	37766	
==>ethod takes the name of a Perl package in its positional parameter
$module_name (a string), and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5878	6019	
==>e is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mus <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5878	6019	
==>e is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mus <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5878	6019	
==>e is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mus <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7515	7628	
==>ans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normal <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7515	7628	
==>ans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normal <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1312	1414	
==>pile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule->compile(q(<'t <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17675	17839	
==>ew(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%par <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19433	19597	
==>ew(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%par <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39885	40048	
==>ew(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%par <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40944	41107	
==>ew(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%par <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	900	996	
==>returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV< <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	900	996	
==>returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21812	21910	
==>essarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20693	20791	
==>essarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21812	21910	
==>essarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20693	20791	
==>essarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22765	22856	
==>ation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pend <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22765	22856	
==>ation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pend <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41	294	
==>ges used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	41	294	
==>ges used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41	294	
==>ges used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41	294	
==>ges used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1942	2110	
==>ick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1942	2110	
==>ick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the c <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5701	5882	
==>negated goto term_charlist                # \X[...], \000
    # goto term_literal                            # \x[...], \000

  term_literal:                                    # fir <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1583	1699	
==>'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, ti <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1583	1699	
==>'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, ti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2472	2563	
==>e_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2472	2563	
==>e_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2472	2563	
==>e_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@ <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9519	9682	
==>lls like a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7908	8008	
==>turn ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7638	7734	
==>turn ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21840	21930	
==>($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21840	21930	
==>($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21840	21930	
==>($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13084	13219	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13084	13219	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13084	13219	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5324	5459	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3824	3959	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1969	2104	
==>f $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1013	1120	
==>s. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1013	1120	
==>s. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1013	1120	
==>s. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	4790	4892	
==>Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reas <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4848	4950	
==>Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reas <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	414	513	
==>sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helpe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3002	3123	
==>die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3002	3123	
==>die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3002	3123	
==>die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1110	1215	
==>self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1110	1215	
==>self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      us <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1110	1215	
==>self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      us <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15207	15314	
==>int STDERR "# Couldn't unlink '$file': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 while -f + <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8229	8334	
==>tead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8229	8334	
==>tead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1731	1821	
==>lemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1731	1821	
==>lemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1731	1821	
==>lemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7672	7849	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8073	8250	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8474	8651	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7672	7849	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8073	8250	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8474	8651	
==>( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yi <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3386	3492	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11944	12050	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6511	6617	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3386	3492	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11944	12050	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6511	6617	
==>H' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_ST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19751	19885	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16890	17024	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19751	19885	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16890	17024	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19751	19885	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16890	17024	
==>rn $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6723	6820	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5853	5950	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2507	2604	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2507	2604	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6723	6820	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5853	5950	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6899	6998	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6029	6128	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2683	2782	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2683	2782	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6899	6998	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6029	6128	
==>turns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10808	10915	
==>ntainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10808	10915	
==>ntainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10808	10915	
==>ntainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2306	2404	
==>d('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2306	2404	
==>d('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2306	2404	
==>d('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1618	1716	
==>"infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numbe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1618	1716	
==>"infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numbe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1618	1716	
==>"infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numbe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2246	2340	
==>ile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2246	2340	
==>ile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2246	2340	
==>ile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8671	8853	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11644	11826	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8671	8853	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11644	11826	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8671	8853	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11644	11826	
==>g of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13707	13804	
==>SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13707	13804	
==>SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13707	13804	
==>SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6314	6404	
==>-----------------------------------
## Module

$::Module = $::Class->new();

$::Module->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6314	6404	
==>-----------------------------------
## Module

$::Module = $::Class->new();

$::Module->sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6314	6404	
==>-----------------------------------
## Module

$::Module = $::Class->new();

$::Module->sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31833	31959	
==>th, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31833	31959	
==>th, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31833	31959	
==>th, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1429	1535	
==>rt their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1429	1535	
==>rt their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a ha <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1429	1535	
==>rt their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	824	939	
==>Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	824	939	
==>Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	824	939	
==>Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub : <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3123	3221	
==>g test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3123	3221	
==>g test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3203	3301	
==>g test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2138	2307	
==>$to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _inde <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2138	2307	
==>$to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _inde <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2138	2307	
==>$to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _inde <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4865	4982	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7514	7631	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5079	5190	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11528	11639	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5079	5190	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11528	11639	
==>>{capture} = $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	425	525	
==>* Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringific <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	425	525	
==>* Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringific <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	425	525	
==>* Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringific <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2007	2100	
==>x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2007	2100	
==>x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2007	2100	
==>x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36235	36331	
==>ach member of a tuple pair has attribute names in common,
eliminating pairs where the values of t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37988	38084	
==>ach member of a
tuple pair has attribute names in common, eliminating pairs where the
values of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40784	40880	
==>ach member of a tuple pair has attribute names in common,
eliminating pairs where the values of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42537	42633	
==>ach member of a
tuple pair has attribute names in common, eliminating pairs where the
values of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40398	40494	
==>ach member of a tuple pair has attribute names in common,
eliminating pairs where the values of t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42187	42283	
==>ach member of a
tuple pair has attribute names in common, eliminating pairs where the
values of t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3083	3188	
==>self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3083	3188	
==>self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3083	3188	
==>self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2488	2586	
==>l report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2488	2586	
==>l report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2488	2586	
==>l report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9080	9171	
==>MPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9080	9171	
==>MPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8698	8811	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6251	6364	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8698	8811	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6251	6364	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8698	8811	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6251	6364	
==>e are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all the superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	391	511	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	389	509	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	391	511	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	389	509	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	391	511	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	389	509	
==>ed in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference t <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	527	630	
==>)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8794	8896	
==>)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8794	8896	
==>)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8794	8896	
==>)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9560	9655	
==>y subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to throw <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9560	9655	
==>y subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to throw <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8128	8258	
==>npack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8128	8258	
==>npack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8128	8258	
==>npack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8454	8554	
==>n::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8454	8554	
==>n::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8454	8554	
==>n::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1477	1578	
==>Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1737	1838	
==>er(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Numb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1477	1578	
==>Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1477	1578	
==>Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1737	1838	
==>er(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1737	1838	
==>er(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Numb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7008	7159	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4567	4718	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7008	7159	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4567	4718	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7008	7159	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4567	4718	
==>' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	792	901	
==>(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	792	901	
==>(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	792	901	
==>(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11218	11318	
==>ss.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11218	11318	
==>ss.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11218	11318	
==>ss.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10019	10198	
==>$self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10019	10198	
==>$self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10019	10198	
==>$self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2131	2235	
==>Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2131	2235	
==>Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  su <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2478	2582	
==>Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  su <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2792	2890	
==>w, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2792	2890	
==>w, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28204	28301	
==>emented.>

This method is a generic relational operator that returns a new Relation
which is the s <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29215	29312	
==>emented.>

This method is a generic relational operator that returns a new Relation
which is the s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32756	32853	
==>emented.>

This method is a generic relational operator that returns a new Relation
which is the s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33767	33864	
==>emented.>

This method is a generic relational operator that returns a new Relation
which is the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7234	7378	
==>items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7234	7378	
==>items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7234	7378	
==>items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	385	489	
==>n a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	385	489	
==>n a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	385	489	
==>n a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all u <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	10184	10283	
==>ent.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is si <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10242	10341	
==>ent.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is si <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22958	23052	
==>reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$b <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21776	21870	
==>reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22958	23052	
==>reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$b <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21776	21870	
==>reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8486	8582	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6039	6135	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8486	8582	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6039	6135	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8486	8582	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6039	6135	
==>unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instance_attr($self => '@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3657	3761	
==>ld not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3657	3761	
==>ld not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3657	3761	
==>ld not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4572	4663	
==>d) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4572	4663	
==>d) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4572	4663	
==>d) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_arg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4357	4505	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7006	7154	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4586	4730	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11035	11179	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4586	4730	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11035	11179	
==>) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7821	7936	
==>k)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7821	7936	
==>k)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2212	2324	
==>' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2212	2324	
==>' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2212	2324	
==>' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9861	9967	
==>value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4709	4812	
==>ou have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4709	4812	
==>ou have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6233	6336	
==>ou have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3523	3624	
==>g{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3523	3624	
==>g{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_preco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3523	3624	
==>g{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_preco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	208	308	
==>h psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ration <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	208	308	
==>h psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ration <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	208	308	
==>h psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ration <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16220	16313	
==>Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16220	16313	
==>Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16220	16313	
==>Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1326	1464	
==>l_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1326	1464	
==>l_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1326	1464	
==>l_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1821	1915	
==>*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1821	1915	
==>*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1821	1915	
==>*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13234	13331	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4404	4501	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8860	8957	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13234	13331	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4404	4501	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8860	8957	
==>hich can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes.  As <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4876	4993	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7525	7642	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5090	5201	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11539	11650	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5090	5201	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11539	11650	
==>= $head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1269	1410	
==>$span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_i <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4508	4649	
==>$span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1269	1410	
==>$span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4508	4649	
==>$span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14214	14317	
==>SIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8418	8521	
==>SIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12390	12524	
==>';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      meth <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2770	2894	
==>';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    meth <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2770	2894	
==>';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	458	561	
==>ted to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added suppo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	458	561	
==>ted to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added suppo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	458	561	
==>ted to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added suppo <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2139	2292	
==>e>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2139	2292	
==>e>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6668	6772	
==>son = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6668	6772	
==>son = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq no <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7036	7136	
==>son = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7036	7136	
==>son = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	371	471	
==>\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	371	471	
==>\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	371	471	
==>\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1884	1977	
==>ort anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1884	1977	
==>ort anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1884	1977	
==>ort anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3264	3385	
==>ft;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3264	3385	
==>ft;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3264	3385	
==>ft;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	903	1011	
==>upported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	903	1011	
==>upported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	903	1011	
==>upported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5422	5540	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8392	8510	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5422	5540	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8392	8510	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5422	5540	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8392	8510	
==>seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a constant
        # su <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36278	36375	
==>mes in common,
eliminating pairs where the values of those attributes differ and unioning
the rema <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38031	38128	
==>mes in common, eliminating pairs where the
values of those attributes differ and unioning the rema <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40827	40924	
==>mes in common,
eliminating pairs where the values of those attributes differ and unioning
the rema <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42580	42677	
==>mes in common, eliminating pairs where the
values of those attributes differ and unioning the rema <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40441	40538	
==>mes in common,
eliminating pairs where the values of those attributes differ and unioning
the rema <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42230	42327	
==>mes in common, eliminating pairs where the
values of those attributes differ and unioning the rema <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12375	12489	
==>( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12375	12489	
==>( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12375	12489	
==>( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10698	10803	
==>ndefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10698	10803	
==>ndefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10698	10803	
==>ndefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9555	9684	
==>tr) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9555	9684	
==>tr) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9555	9684	
==>tr) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7514	7597	
==>f(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7514	7597	
==>f(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7514	7597	
==>f(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16243	16392	
==>my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16243	16392	
==>my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16243	16392	
==>my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	280	373	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for lu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	280	373	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for lu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	280	373	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for lu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11432	11558	
==>ec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11432	11558	
==>ec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11432	11558	
==>ec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7220	7340	
==>oop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7220	7340	
==>oop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7220	7340	
==>oop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5025	5123	
==>and(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5025	5123	
==>and(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5025	5123	
==>and(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4664	4752	
==>eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4664	4752	
==>eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4664	4752	
==>eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prote <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1334	1493	
==>sif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4573	4732	
==>sif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1334	1493	
==>sif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4573	4732	
==>sif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3812	3918	
==>It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIM <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3812	3918	
==>It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10419	10526	
==>$.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2436	2535	
==>$.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2436	2535	
==>$.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2201	2289	
==>::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2201	2289	
==>::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2201	2289	
==>::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12915	13019	
==>S) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12915	13019	
==>S) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12915	13019	
==>S) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16827	16924	
==>ters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16827	16924	
==>ters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16827	16924	
==>ters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10124	10228	
==>} )\n";
}
sub node::non_capturing_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2434	2534	
==>s(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2434	2534	
==>s(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2434	2534	
==>s(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4207	4300	
==>utside of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4207	4300	
==>utside of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3891	4039	
==>ototype
        prototype => new Point($x, $y),  
    # rest of the class 
        get_z => sub { $z },
        set_z => sub {
            my ($self, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13670	13799	
==>+ $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13670	13799	
==>+ $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13670	13799	
==>+ $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessa <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5916	6045	
==>+ $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessa <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4416	4545	
==>+ $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6602	6742	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9572	9712	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6602	6742	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9572	9712	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6602	6742	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9572	9712	
==>def') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_privat <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	202	334	
==>ame];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### o <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	200	332	
==>ame];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### o <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6595	6693	
==>Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5725	5823	
==>Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6595	6693	
==>Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5725	5823	
==>Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2400	2542	
==>ult { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            w <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2400	2542	
==>ult { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10929	11061	
==>->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3548	3657	
==>d} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3548	3657	
==>d} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3548	3657	
==>d} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	3261	3361	
==>free_vars { () }; # typicall there are no free vars inside a thingy

package type::operator;
use base <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2210	2305	
==>ry(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2210	2305	
==>ry(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2210	2305	
==>ry(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	3011	3105	
==>$set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEB <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3011	3105	
==>$set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEB <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1953	2072	
==>(scalar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	407	507	
==>nknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should ret <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	407	507	
==>nknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25688	25824	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27883	28019	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25688	25824	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27883	28019	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25688	25824	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27883	28019	
==>"\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12551	12662	
==>('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6026	6137	
==>('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5684	5779	
==>ified name, and create any missing packages 
nessecary, possibly storing a value in the last loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5684	5779	
==>ified name, and create any missing packages 
nessecary, possibly storing a value in the last loc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5684	5779	
==>ified name, and create any missing packages 
nessecary, possibly storing a value in the last loc <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2852	2946	
==>eplacement relevant to the perl backend

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Built <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1625	1732	
==>(($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1625	1732	
==>(($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1625	1732	
==>(($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2257	2383	
==>ty <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2257	2383	
==>ty <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2257	2383	
==>ty <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5796	5910	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5796	5910	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5796	5910	
==>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6556	6669	
==>tive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6556	6669	
==>tive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:< <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6556	6669	
==>tive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15252	15363	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12508	12619	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15252	15363	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12508	12619	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15252	15363	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12508	12619	
==>add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # de <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1089	1194	
==>n ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.va <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1089	1194	
==>n ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.va <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3010	3108	
==>/WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informatio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3010	3108	
==>/WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informatio <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3603	3699	
==>/WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informatio <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3603	3699	
==>/WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22675	22781	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22905	23011	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22675	22781	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22905	23011	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22675	22781	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22905	23011	
==>_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1021	1140	
==>_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1021	1140	
==>_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1021	1140	
==>_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	352	440	
==>e Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	352	440	
==>e Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	352	440	
==>e Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	105	210	
==>d add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	105	210	
==>d add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	105	210	
==>d add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1405	1503	
==>Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ba <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1405	1503	
==>Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ba <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1405	1503	
==>Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ba <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4818	4929	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7467	7578	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5033	5141	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11482	11590	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5033	5141	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11482	11590	
==>n ? substr($str, 0, -$len) : $str;
    $match->{capture} = $head;
    delete $match->{abort};
    return $mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9624	9743	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12597	12716	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9624	9743	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12597	12716	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9624	9743	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12597	12716	
==>to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by ' <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4389	4494	
==>1113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Array::e <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	434	529	
==>:Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FUL <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	434	529	
==>:Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FUL <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28874	28968	
==>thod supports having the new attributes having the same names as old
attributes that become wra <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33426	33520	
==>thod supports having the new attributes having the same names as old
attributes that become wra <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32563	32657	
==>thod supports having the new attributes having the same names as old
attributes that become wra <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5442	5539	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4572	4669	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5442	5539	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4572	4669	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $o <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38122	38213	
==>ars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly emp <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38122	38213	
==>ars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly emp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1315	1444	
==>{ splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1315	1443	
==>my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1315	1443	
==>my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1315	1443	
==>my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33257	33346	
==>forementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37807	37896	
==>forementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-meth <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6288	6405	
==>';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6300	6417	
==>';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $matc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36702	36800	
==>ce relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41251	41349	
==>ce relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40874	40972	
==>ce relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sou <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1098	1191	
==>gent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15860	15964	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20577	20681	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15860	15964	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20577	20681	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15860	15964	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20577	20681	
==>maybe we should start our own multi registry to handle scoping
            multi => \%Class::Multimethods <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6597	6734	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9567	9704	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6597	6734	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9567	9704	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6597	6734	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9567	9704	
==>| 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::mak <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7061	7162	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6191	6292	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2845	2946	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2845	2946	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7061	7162	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6191	6292	
==>e, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3460	3550	
==>-----------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## -- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3483	3573	
==>------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3506	3596	
==>-------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5362	5452	
==>-----------------------------------------------------------
## BOOTSTRAPPING COMPLETE
## -- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5385	5475	
==>------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5408	5498	
==>-------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6092	6236	
==>$i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6092	6236	
==>$i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6092	6236	
==>$i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14277	14378	
==>e defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14277	14378	
==>e defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37210	37310	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37449	37549	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37660	37760	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37210	37310	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37449	37549	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37660	37760	
==>! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12346	12469	
==>y);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12346	12469	
==>y);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12346	12469	
==>y);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14430	14528	
==>add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14430	14528	
==>add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14430	14528	
==>add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15702	15836	
==>on easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15702	15836	
==>on easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15702	15836	
==>on easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20423	20553	
==>on easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20423	20553	
==>on easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20423	20553	
==>on easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $regi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	917	1034	
==>CH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	917	1034	
==>CH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	917	1034	
==>CH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1597	1706	
==>depc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1597	1706	
==>depc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1597	1706	
==>depc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3372	3471	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6386	6485	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8454	8553	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3372	3471	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6386	6485	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8454	8553	
==>s2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5036	5153	
==>1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5036	5153	
==>1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5036	5153	
==>1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	675	775	
==>::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	675	775	
==>::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	675	775	
==>::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $:: <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9905	10020	
==>or @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9905	10020	
==>or @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self. <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	420	518	
==>is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	420	518	
==>is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1432	1529	
==>is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1432	1529	
==>is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11109	11250	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8662	8803	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11109	11250	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8662	8803	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11109	11250	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8662	8803	
==>terator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1536	1704	
==>( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - u <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1536	1704	
==>( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - u <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32042	32139	
==>eturns a new Relation that has the same heading
and whose body contains all of the tuples that are <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33903	34000	
==>eturns a new Relation that has the same heading and
whose body contains all of the tuples that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36592	36689	
==>eturns a new Relation that has the same heading
and whose body contains all of the tuples that are <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38453	38550	
==>eturns a new Relation that has the same heading and
whose body contains all of the tuples that are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	203	319	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	198	314	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	203	319	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	198	314	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	203	319	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	198	314	
==>f->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3944	4093	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6880	7029	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3944	4093	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6880	7029	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3944	4093	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6880	7029	
==>cal $::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3069	3191	
==>"Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3069	3191	
==>"Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3069	3191	
==>"Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	579	693	
==>inLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	579	693	
==>inLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	579	693	
==>inLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1735	1840	
==>ror message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	719	824	
==>langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	719	824	
==>langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	719	824	
==>langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1735	1840	
==>ror message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1735	1840	
==>ror message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2074	2181	
==>L2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2074	2181	
==>L2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2074	2181	
==>L2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11985	12086	
==>sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a refe <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12417	12518	
==>sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a refe <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11985	12086	
==>sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a refe <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12417	12518	
==>sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a refe <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16207	16303	
==>nto ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20633	20729	
==>nto ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7609	7819	
==>- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7609	7819	
==>- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7609	7819	
==>- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	339	456	
==>ar => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XX <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	339	456	
==>ar => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XX <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	339	456	
==>ar => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	889	992	
==>ould be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	889	992	
==>ould be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	889	992	
==>ould be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29075	29168	
==>hat returns a new Relation::Example
which is the same as the invocant Relation::Example but th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31923	32016	
==>hat returns a new Relation::Example
which is the same as the invocant Relation::Example but th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32970	33063	
==>hat returns a new Relation::Example
which is the same as the invocant Relation::Example but th <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5045	5144	
==>al($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4172	4271	
==>al($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5045	5144	
==>al($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4172	4271	
==>al($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mul <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7981	8079	
==>e port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7981	8079	
==>e port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1501	1644	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3064	3207	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1501	1644	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3064	3207	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1501	1644	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3064	3207	
==>mics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE    = undef;
    # th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11061	11208	
==>print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8126	8267	
==>print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8126	8267	
==>print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
} <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	685	812	
==>duce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->r <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10505	10601	
==>elf.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $cl <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10505	10601	
==>elf.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3163	3268	
==>d 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3163	3268	
==>d 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3163	3268	
==>d 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2130	2222	
==>ength })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2130	2222	
==>ength })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2130	2222	
==>ength })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.le <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	780	893	
==>h any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	780	893	
==>h any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	780	893	
==>h any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	260	356	
==>gs) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# X <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	260	356	
==>gs) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# X <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	260	356	
==>gs) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# X <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6005	6139	
==>7),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => c <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6005	6139	
==>7),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4308	4426	
==>rently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NA <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4308	4426	
==>rently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NA <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4819	4925	
==>rently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NA <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4819	4925	
==>rently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7093	7245	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4652	4804	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7093	7245	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4652	4804	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7093	7245	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4652	4804	
==>res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1001	1144	
==>nv->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1001	1144	
==>nv->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1001	1144	
==>nv->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	401	506	
==>ckage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	401	506	
==>ckage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	401	506	
==>ckage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9742	9868	
==>$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9742	9868	
==>$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9742	9868	
==>$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5112	5204	
==>:canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5112	5204	
==>:canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5112	5204	
==>:canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_ins <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	31100	31199	
==>>.

This program is free software; you can redistribute it and/or 
modify it under the same terms as <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26816	26948	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10392	10518	
==>ate_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10392	10518	
==>ate_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10392	10518	
==>ate_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8006	8103	
==>::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8006	8103	
==>::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5100	5216	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5433	5549	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5100	5216	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5433	5549	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5100	5216	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5433	5549	
==>my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	94	201	
==>:Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	94	201	
==>:Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	94	201	
==>:Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1712	1812	
==>) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1712	1812	
==>) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKM <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1712	1812	
==>) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3966	4159	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6493	6686	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3966	4159	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6493	6686	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3966	4159	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6493	6686	
==>me}
                    ));
                }
            }
        }
        if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25031	25152	
==>my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'as <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25586	25707	
==>my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'as <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	676	784	
==>else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	675	783	
==>else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	676	784	
==>else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	675	783	
==>else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14963	15075	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12217	12329	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14963	15075	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12217	12329	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14963	15075	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12217	12329	
==>f->_create_accessor($attribute);          
    if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3484	3605	
==>' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3484	3605	
==>' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3484	3605	
==>' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pa <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6850	6948	
==>in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 A <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6850	6948	
==>in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 A <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9047	9145	
==>in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 A <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7214	7307	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6344	6437	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2998	3091	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2998	3091	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7214	7307	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6344	6437	
==>se methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14733	14844	
==>.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14733	14844	
==>.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14733	14844	
==>.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	853	962	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	853	962	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	853	962	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	915	1013	
==>ading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

W <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	915	1013	
==>ading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

W <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1471	1569	
==>ading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

W <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2315	2408	
==>ainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contain <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2315	2408	
==>ainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contain <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2315	2408	
==>ainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contain <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2258	2470	
==>ift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => - <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2258	2470	
==>ift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12400	12521	
==>ls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12400	12521	
==>ls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12400	12521	
==>ls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $ <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	14	123	
==>b		# $a.infix:«<»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	567	688	
==>int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	567	688	
==>int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	567	688	
==>int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7702	7797	
==>>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7702	7797	
==>>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7702	7797	
==>>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4422	4532	
==>red";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4422	4532	
==>red";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5012	5122	
==>red";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	90	197	
==>ile::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	90	197	
==>ile::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	90	197	
==>ile::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  c <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25288	25382	
==>cant object's attributes is identical; they do not
interact with the outside environment at all <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11419	11513	
==>cant object's attributes is identical; they do not
interact with the outside environment at all <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14692	14786	
==>cant
object's attributes is identical; they do not interact with the outside
environment at all <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25288	25382	
==>cant object's attributes is identical; they do not
interact with the outside environment at all <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11419	11513	
==>cant object's attributes is identical; they do not
interact with the outside environment at all <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14692	14786	
==>cant
object's attributes is identical; they do not interact with the outside
environment at all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7074	7246	
==>' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7074	7246	
==>' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7074	7246	
==>' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7343	7514	
==>' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7343	7514	
==>' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7343	7514	
==>' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3453	3591	
==>bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3646	3784	
==>bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4063	4177	
==>do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6055	6146	
==>p { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6055	6146	
==>p { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6055	6146	
==>p { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33517	33664	
==>> method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaq <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	489	593	
==>%tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration> <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	489	593	
==>%tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	596	692	
==>relude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	596	692	
==>relude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	596	692	
==>relude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6180	6298	
==>ed_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6180	6298	
==>ed_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name' <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24558	24652	
==>ewline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired wh <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23322	23416	
==>ewline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired wh <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24558	24652	
==>ewline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired wh <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23322	23416	
==>ewline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13551	13718	
==>y
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13551	13718	
==>y
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13551	13718	
==>y
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3379	3472	
==>This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3379	3472	
==>This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3379	3472	
==>This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3511	3631	
==>->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3511	3631	
==>->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3511	3631	
==>->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1701	1817	
==>blequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1701	1817	
==>blequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1701	1817	
==>blequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3414	3519	
==>w "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3414	3519	
==>w "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3414	3519	
==>w "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2804	2904	
==>Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2804	2904	
==>Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2804	2904	
==>Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2030	2276	
==>$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2030	2276	
==>$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2030	2276	
==>$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' => <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46006	46156	
==>>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49240	49390	
==>>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50118	50268	
==>>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27405	27561	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27405	27561	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tm <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27405	27561	
==>lems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7592	7684	
==>SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7592	7684	
==>SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rev <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7592	7684	
==>SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rev <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	867	964	
==>crement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	867	964	
==>crement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	867	964	
==>crement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20946	21042	
==>.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20946	21042	
==>.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20946	21042	
==>.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2201	2322	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11069	11190	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12028	12149	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2394	2515	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11348	11469	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12307	12428	
==>&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8814	8972	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11787	11945	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8814	8972	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11787	11945	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8814	8972	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11787	11945	
==>thod->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5938	6038	
==>cted_type);

		warn "types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "filli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1594	1693	
==>} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outda <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1594	1693	
==>} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outda <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1594	1693	
==>} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outda <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2190	2273	
==>://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you w <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2190	2273	
==>://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7413	7520	
==>$b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7413	7520	
==>$b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7413	7520	
==>$b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8554	8656	
==>var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8554	8656	
==>var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8554	8656	
==>var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	3406	3530	
==>apeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $sta <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3406	3530	
==>apeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	415	528	
==>cient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	415	528	
==>cient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	415	528	
==>cient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer t <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	38	121	
==>m - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2112	2215	
==>- escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2112	2215	
==>- escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TOD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2112	2215	
==>- escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TOD <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13224	13324	
==>m);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6699	6799	
==>m);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	1323	1410	
==>ach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12725	12864	
==>rror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8999	9138	
==>rror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9834	9973	
==>rror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3073	3175	
==>senting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3073	3175	
==>senting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32259	32356	
==>king stack.

When an object does have an ending node, its ender() method should
return an array re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13963	14101	
==>urn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13963	14101	
==>urn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13963	14101	
==>urn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16697	16821	
==>rn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18123	18247	
==>rn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24742	24866	
==>rn $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3062	3262	
==>ranslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # modul <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3062	3262	
==>ranslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # modul <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16542	16666	
==>f);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15596	15712	
==>f);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16418	16509	
==>", which is computationally complete
(and industrial strength) and has fully integrated data <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16418	16509	
==>", which is computationally complete
(and industrial strength) and has fully integrated data <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7024	7182	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4583	4741	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7024	7182	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4583	4741	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7024	7182	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4583	4741	
==>ate_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12352	12477	
==>_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	204	318	
==>aller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	204	318	
==>aller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data: <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	204	318	
==>aller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4246	4339	
==>0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4246	4339	
==>0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35031	35128	
==>es into an C<intersection> if the two source headings are
identical.  This method has an alias nam <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39581	39678	
==>es into an C<intersection> if the two source headings are
identical.  This method has an alias nam <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39123	39220	
==>es into an C<intersection> if the two source headings are
identical.  This method has an alias nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14695	14788	
==>);

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14695	14788	
==>);

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14695	14788	
==>);

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7692	7844	
==>nf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbi <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7692	7844	
==>nf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbi <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2274	2417	
==>obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->config( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6797	6905	
==>);

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6797	6905	
==>);

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6797	6905	
==>);

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3633	3837	
==>join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3633	3837	
==>join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3633	3837	
==>join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2187	2285	
==>r(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2187	2285	
==>r(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2187	2285	
==>r(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1414	1553	
==>pen;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4653	4792	
==>pen;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1414	1553	
==>pen;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4653	4792	
==>pen;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4081	4184	
==>mitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compile <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3937	4038	
==>mitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compile <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4989	5099	
==>object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inser <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16025	16135	
==>object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inser <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17513	17623	
==>object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inser <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22196	22306	
==>object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inser <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26513	26610	
==>if you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26513	26610	
==>if you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1560	1678	
==>E ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fix <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2709	2827	
==>aller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1560	1678	
==>E ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2709	2827	
==>aller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1560	1678	
==>E ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2709	2827	
==>aller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18650	18822	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15888	16060	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18650	18822	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15888	16060	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18650	18822	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15888	16060	
==>es are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the namespoace stash
                    :: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10852	10987	
==>bortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7928	8055	
==>bortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7928	8055	
==>bortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	474	585	
==>L::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	474	585	
==>L::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	474	585	
==>L::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1865	2025	
==>('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1865	2025	
==>('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1865	2025	
==>('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->ne <==
6	/Users/nnunley/pugs/util/build_pugs.pl	2002	2109	
==>TUP}});

    my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "bli <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	998	1094	
==>etter default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are St <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	998	1094	
==>etter default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	102	197	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	102	197	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	102	197	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	447	539	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	447	539	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	447	539	
==>le::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8136	8260	
==>f ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   ret <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13730	13854	
==>f ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8136	8260	
==>f ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13724	13848	
==>f ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   ret <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1699	1819	
==>at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$ba <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1699	1819	
==>at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$ba <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	163	274	
==>ategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	167	278	
==>ategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	161	272	
==>ategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	161	272	
==>ategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20452	20544	
==>gged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20452	20544	
==>gged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3652	3752	
==>his version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3652	3752	
==>his version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6672	6771	
==>his version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8741	8840	
==>his version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6672	6771	
==>his version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8741	8840	
==>his version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	259	375	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	583	699	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	259	375	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	583	699	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	259	375	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	583	699	
==>ss grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	224	343	
==>y $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	187	306	
==>y $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	275	394	
==>y $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5955	6049	
==>CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B< <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5955	6049	
==>CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8152	8246	
==>CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2798	2898	
==>S.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2798	2898	
==>S.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2798	2898	
==>S.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3423	3515	
==>k. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3423	3515	
==>k. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5620	5712	
==>k. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4241	4351	
==>@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4241	4351	
==>@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4241	4351	
==>@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	487	585	
==>atfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	487	585	
==>atfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	487	585	
==>atfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8268	8439	
==>hings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8268	8439	
==>hings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8268	8439	
==>hings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $ele <==
6	/Users/nnunley/pugs/misc/S29_round.pl	775	886	
==>il( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_symmetric ( Num $x ) {
    my $ <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15307	15404	
==>] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19465	19562	
==>] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18825	18956	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16063	16194	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18825	18956	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16063	16194	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18825	18956	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16063	16194	
==>aque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1841	1943	
==>he 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1841	1943	
==>he 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1841	1943	
==>he 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	658	755	
==>::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetica <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	658	755	
==>::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetica <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	658	755	
==>::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetica <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21293	21415	
==>y"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7013	7122	
==>p eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3617	3726	
==>p eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4466	4575	
==>p eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0] <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	17229	17329	
==>`true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17229	17329	
==>`true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	78	173	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	78	173	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	78	173	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	77	171	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	77	171	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	77	171	
==>l 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_T <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4510	4619	
==>et_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $va <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5839	5948	
==>et_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $va <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4510	4619	
==>et_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $va <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5827	5936	
==>et_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $va <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2645	2747	
==>rep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->ad <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3606	3707	
==>rep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6606	6702	
==>}
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6606	6702	
==>}
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6606	6702	
==>}
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11389	11514	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16119	16244	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11389	11514	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16119	16244	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11389	11514	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16119	16244	
==>ms to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2388	2493	
==>ngify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

metho <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2388	2493	
==>ngify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4593	4691	
==>got the right x for p3d');
is($p3d->get_y, 6, '... got the right y for p3d');
is($p3d->get_z, 7, '. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2510	2607	
==>xpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2510	2607	
==>xpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2510	2607	
==>xpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @arg <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16126	16319	
==>at(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statem <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16405	16598	
==>at(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statem <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10467	10612	
==>at(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statem <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10746	10891	
==>at(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statem <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15259	15362	
==>POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9457	9560	
==>POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4347	4486	
==>while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4347	4486	
==>while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4347	4486	
==>while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1293	1403	
==>tion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1293	1403	
==>tion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1293	1403	
==>tion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tem <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4430	4542	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7079	7191	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4656	4766	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11105	11215	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4656	4766	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11105	11215	
==>warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4090	4205	
==>ts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4090	4205	
==>ts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4090	4205	
==>ts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9708	9820	
==>l_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9708	9820	
==>l_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9708	9820	
==>l_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1973	2138	
==>ine.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1973	2138	
==>ine.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1973	2138	
==>ine.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6950	7074	
==>step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6950	7074	
==>step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6950	7074	
==>step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35511	35642	
==>>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35511	35642	
==>>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35511	35642	
==>>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3488	3594	
==>\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3488	3594	
==>\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3488	3594	
==>\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->nam <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9481	9617	
==>ht;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($ <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9481	9617	
==>ht;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	609	737	
==>lter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_ <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	609	737	
==>lter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_ <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	70	173	
==>dir(), "pugs-session" );
mkdir($Path) unless -e $Path;

sub SessionInit() {
    my %Session=();
    $SID <==
6	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	572	663	
==>y_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ ' <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9401	9513	
==>l;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9401	9513	
==>l;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11422	11529	
==>table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11422	11529	
==>table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11422	11529	
==>table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_metho <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	20932	21028	
==>e=$+_) is builtin is unsafe {
    #Pugs::Internals::require($module);
    Pugs::Internals::requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7539	7692	
==>() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7539	7692	
==>() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7539	7692	
==>() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7532	7683	
==>].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy neede <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7532	7683	
==>].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy neede <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7532	7683	
==>].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy neede <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2374	2490	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4701	4817	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2374	2490	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4701	4817	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2374	2490	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4701	4817	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18828	18964	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16066	16202	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18828	18964	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16066	16202	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18828	18964	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16066	16202	
==>e_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20027	20147	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17166	17286	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20027	20147	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17166	17286	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20027	20147	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17166	17286	
==>ass attributes are just package scoped "our" variables
        # so they are added to the Package normally
        return <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6738	6834	
==>specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<ski <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3107	3203	
==>st_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to t <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6738	6834	
==>specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<ski <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3107	3203	
==>st_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8935	9031	
==>specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<ski <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3187	3283	
==>st_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14830	14952	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19529	19651	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14830	14952	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19529	19651	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14830	14952	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19529	19651	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @au <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	760	896	
==>lass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	760	896	
==>lass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	760	896	
==>lass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2888	2998	
==>count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2888	2998	
==>count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2888	2998	
==>count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8785	8917	
==>" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      els <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	949	1069	
==>" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    els <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	949	1069	
==>" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1586	1702	
==>, {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1586	1702	
==>, {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1586	1702	
==>, {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1821	1931	
==>$self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1821	1931	
==>$self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1821	1931	
==>$self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2267	2376	
==>$x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2267	2376	
==>$x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2614	2723	
==>$x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14740	14887	
==>cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15019	15166	
==>cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2139	2240	
==>n.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4358	4459	
==>n.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2139	2240	
==>n.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4358	4459	
==>n.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2452	2590	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4779	4917	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2452	2590	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4779	4917	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2452	2590	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4779	4917	
==>:Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name)
            || confess "You mu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10259	10365	
==>_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10259	10365	
==>_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	545	650	
==>run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	545	650	
==>run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	545	650	
==>run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

m <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	448	544	
==>c_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed to cc_lib_paths due to confusio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9450	9560	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6997	7107	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9450	9560	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6997	7107	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9450	9560	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6997	7107	
==>dant') {
        $dispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13759	13873	
==>str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13759	13873	
==>str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13759	13873	
==>str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1518	1617	
==>("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1518	1617	
==>("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1518	1617	
==>("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yam <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51017	51196	
==>it()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifie <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51628	51807	
==>it()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifie <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	738	900	
==>]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http:/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5036	5151	
==>.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5036	5151	
==>.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5036	5151	
==>.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are w <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14446	14622	
==>e discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17923	18099	
==>e discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17339	17515	
==>e discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) == <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1248	1351	
==>:split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1248	1351	
==>:split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1248	1351	
==>:split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	896	1020	
==>n setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	896	1020	
==>n setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	896	1020	
==>n setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9479	9598	
==>-------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9479	9598	
==>-------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9479	9598	
==>-------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2852	2966	
==>(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hell <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2852	2966	
==>(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hell <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2852	2966	
==>(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hell <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	142	245	
==>warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	142	245	
==>warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requir <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	142	245	
==>warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2076	2186	
==>ub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2076	2186	
==>ub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2076	2186	
==>ub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15736	15833	
==>s.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rig <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15736	15833	
==>s.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rig <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1866	1959	
==>afe::Annotation->new(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSa <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1167	1287	
==>ng
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to ha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4645	4765	
==>ng
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to ha <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7580	7693	
==>exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    return %results;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7823	7934	
==>pParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7823	7934	
==>pParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7823	7934	
==>pParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2167	2293	
==>ass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2372	2498	
==>ass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2497	2623	
==>ass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40391	40495	
==>urn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40391	40495	
==>urn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40391	40495	
==>urn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11111	11246	
==>et;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11111	11246	
==>et;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11111	11246	
==>et;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.leng <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6385	6484	
==>L2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6385	6484	
==>L2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6385	6484	
==>L2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	30	127	
==>se warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	30	127	
==>se warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	30	127	
==>se warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	30	126	
==>se warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	30	126	
==>se warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	30	126	
==>se warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6211	6328	
==>e {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6211	6328	
==>e {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6211	6328	
==>e {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work an <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5157	5264	
==>od);
    }

    my $admin = $self->{admin} or die <<"END_DIE";
The '$method' method does not exist in the '$ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1264	1360	
==>intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's sta <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1264	1360	
==>intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1264	1365	
==>a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1264	1365	
==>a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1264	1365	
==>a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PI <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1292	1392	
==>e_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnosti <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1292	1392	
==>e_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnosti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1372	1472	
==>e_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnosti <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12400	12495	
==>es.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we ha <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12400	12495	
==>es.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we ha <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20136	20230	
==>ly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was see <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19095	19189	
==>ly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was see <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20136	20230	
==>ly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was see <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19095	19189	
==>ly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was see <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4697	4858	
==>pen ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.sp <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5356	5517	
==>pen ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4697	4858	
==>pen ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5356	5517	
==>pen ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.sp <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9674	9783	
==>s = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, p <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4301	4404	
==>local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file|$dir, to => $target ) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11924	12017	
==>=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns tr <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11924	12017	
==>=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns tr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25106	25188	
==><examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23870	23952	
==><examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25106	25188	
==><examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23870	23952	
==><examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17075	17242	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17075	17242	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... des <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17075	17242	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... des <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5275	5372	
==>qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5275	5372	
==>qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5275	5372	
==>qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2782	2885	
==>_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2782	2885	
==>_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2782	2885	
==>_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6177	6268	
==>thReason role
and override some methods to provide additional features.

=item B<Test::Build <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6177	6268	
==>thReason role
and override some methods to provide additional features.

=item B<Test::Build <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8374	8465	
==>thReason role
and override some methods to provide additional features.

=item B<Test::Build <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1835	1929	
==>e_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gram <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1835	1929	
==>e_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gram <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1083	1175	
==>e_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gram <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	7	95	
==>his sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@import <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	7	95	
==>his sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@import <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	7	95	
==>his sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@import <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6596	6718	
==>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6596	6718	
==>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6596	6718	
==>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1438	1532	
==>less(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1438	1532	
==>less(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1438	1532	
==>less(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	827	966	
==>thesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    subme <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	827	966	
==>thesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    subme <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16540	16649	
==>, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16540	16649	
==>, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17526	17629	
==>, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17526	17629	
==>, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2664	2783	
==>";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2664	2783	
==>";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2664	2783	
==>";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5106	5228	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5106	5228	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5106	5228	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5816	5913	
==>pt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5816	5913	
==>pt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5816	5913	
==>pt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2043	2178	
==>d
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2043	2178	
==>d
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2043	2178	
==>d
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19518	19610	
==>o_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19518	19610	
==>o_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19518	19610	
==>o_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	553	659	
==>JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	553	659	
==>JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	553	659	
==>JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS <==
6	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	482	579	
==>warn("could not open $file in $dir\n");
		return $class;
	}

	@.known_parsers = $class._parse_ini_ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10420	10510	
==>= $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fi <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10420	10510	
==>= $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fi <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	223	339	
==>=~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $conten <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	223	339	
==>=~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $conten <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	27	132	
==>.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	27	127	
==>.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	57	156	
==>.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	57	156	
==>.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4554	4694	
==>de "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4694	4834	
==>de "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . r <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8024	8138	
==>rt, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.po <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8024	8138	
==>rt, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.po <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2656	2753	
==>ncorporated into the match.  XXX it is not clear
that this is the optimal interface for this combi <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2656	2753	
==>ncorporated into the match.  XXX it is not clear
that this is the optimal interface for this combi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34829	34930	
==>", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34829	34930	
==>", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34829	34930	
==>", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1976	2074	
==>ed $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_prev <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1976	2074	
==>ed $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_prev <==
6	/Users/nnunley/pugs/util/func_refact.pl	2692	2790	
==>idates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> score(@{$cands{$a} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4418	4574	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6930	7086	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4418	4574	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6930	7086	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4418	4574	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6930	7086	
==>class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is n <==
6	/Users/nnunley/pugs/util/yaml_harness.pl	6768	6881	
==>rn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10421	10522	
==>is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1027	1128	
==>Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PI <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10421	10522	
==>is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1027	1128	
==>Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1027	1128	
==>Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PI <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	417	545	
==>,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11342	11441	
==>le::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11342	11441	
==>le::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11342	11441	
==>le::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23368	23459	
==>E<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator ri <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23368	23459	
==>E<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator ri <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1355	1468	
==>grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module prov <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1355	1468	
==>grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module prov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	214	323	
==>/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	214	323	
==>/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	214	323	
==>/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/ <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	5204	5298	
==>package type::operator::pair;
use base qw/type::operator::binary/;

sub symbol { "×" }


packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6319	6443	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9289	9413	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6319	6443	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9289	9413	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6319	6443	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9289	9413	
==>ss as an invocant
    sub ::make_class_method ($) {  
        my ($method) = @_;
        return $method if blessed($method) & <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	882	1001	
==>pr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	882	1001	
==>pr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1030	1128	
==>tr $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresu <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1030	1128	
==>tr $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresu <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	952	1049	
==>tr $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresu <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	952	1049	
==>tr $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10236	10399	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7787	7950	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10236	10399	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7787	7950	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10236	10399	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7787	7950	
==>rent value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14245	14450	
==>}

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14245	14450	
==>}

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14245	14450	
==>}

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1582	1692	
==>_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1582	1692	
==>_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1582	1692	
==>_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13311	13576	
==>s[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13311	13576	
==>s[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    els <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13311	13576	
==>s[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	850	977	
==>& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	850	977	
==>& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	850	977	
==>& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A me <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3999	4107	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6648	6756	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4237	4342	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10686	10791	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4237	4342	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10686	10791	
==>k'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::Runtime: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	693	860	
==>class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	693	860	
==>class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	693	860	
==>class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaqu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5842	5947	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5842	5947	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5842	5947	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3721	3864	
==>7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{ou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1281	1379	
==>rig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1281	1379	
==>rig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1281	1379	
==>rig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MU <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10560	10653	
==>s, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10560	10653	
==>s, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that the <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2272	2394	
==>or backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # o <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2272	2394	
==>or backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # o <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	898	993	
==>rimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11915	12007	
==>s::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11915	12007	
==>s::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11915	12007	
==>s::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	165	278	
==>::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMode <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	165	278	
==>::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMode <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	165	278	
==>::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMode <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1289	1395	
==>elf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1289	1395	
==>elf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1289	1395	
==>elf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3928	4068	
==>,
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=', <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	9027	9140	
==>st_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 1 <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9085	9198	
==>st_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9660	9760	
==>value',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9660	9760	
==>value',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9660	9760	
==>value',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	104	247	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	104	247	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	104	247	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13554	13664	
==>subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $? <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17031	17141	
==>subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $? <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16393	16503	
==>subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $? <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	422	573	
==>\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @curren <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	422	573	
==>\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @curren <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4009	4112	
==>Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$ind <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5330	5433	
==>Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$ind <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4009	4112	
==>Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$ind <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5318	5421	
==>Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$ind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11838	11933	
==>es of class all conform to the Role interface/API they are 
interchangable with one another, cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11838	11933	
==>es of class all conform to the Role interface/API they are 
interchangable with one another, cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11838	11933	
==>es of class all conform to the Role interface/API they are 
interchangable with one another, cla <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4260	4353	
==>ance, passing on the C<$description> and
C<$reason> parameters and a true value for the passed <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4260	4353	
==>ance, passing on the C<$description> and
C<$reason> parameters and a true value for the passed <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6457	6550	
==>ance, passing on the C<$description> and
C<$reason> parameters and a true value for the passed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8727	8942	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11700	11915	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8727	8942	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11700	11915	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8727	8942	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11700	11915	
==>ORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submethod';
    }   
    
    {   ## Method "Types"
        # these are just package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	207	333	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	148	274	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	207	333	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	148	274	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	207	333	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	148	274	
==>the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having b <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8900	9031	
==>om: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .lef <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18431	18537	
==>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC l <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18431	18537	
==>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	620	720	
==>yms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	620	720	
==>yms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	620	720	
==>yms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pSt <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3411	3505	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6425	6519	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8493	8587	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3411	3505	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6425	6519	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8493	8587	
==>r`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11514	11670	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3026	3182	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11514	11670	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3026	3182	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11514	11670	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3026	3182	
==>ar i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7576	7735	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5135	5294	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7576	7735	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5135	5294	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7576	7735	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5135	5294	
==>ead of the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6006	6192	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6006	6192	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6006	6192	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4402	4514	
==>erlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4402	4514	
==>erlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4402	4514	
==>erlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3443	3574	
==>tches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4373	4502	
==>tches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3334	3463	
==>tches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4373	4502	
==>tches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{ <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	515	618	
==>2, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "mult <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	515	618	
==>2, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10035	10188	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7586	7739	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10035	10188	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7586	7739	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10035	10188	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7586	7739	
==>:SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12121	12231	
==>> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12121	12231	
==>> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12121	12231	
==>> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	573	665	
==>:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	573	665	
==>:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	573	665	
==>:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18039	18274	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15277	15512	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18039	18274	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15277	15512	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18039	18274	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15277	15512	
==>)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	105	211	
==>eft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	105	211	
==>eft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	105	211	
==>eft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is <==
6	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	915	1017	
==>k> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name <==
6	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	915	1017	
==>k> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13573	13669	
==>ant has an element whose key matches C<$key>, false
otherwise.

An unary form is expected. See Ha <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10369	10482	
==>pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2366	2475	
==>p_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variabl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2366	2475	
==>p_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variabl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2366	2475	
==>p_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variabl <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12723	12819	
==>e objects without the time part.

Discrete spans take a "units" specifier, which can be either `: <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12723	12819	
==>e objects without the time part.

Discrete spans take a "units" specifier, which can be either `: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4789	4895	
==>($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4789	4895	
==>($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. Th <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4789	4895	
==>($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	489	588	
==>r_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	489	588	
==>r_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	489	588	
==>r_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1563	1682	
==>gen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    I <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1563	1682	
==>gen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    I <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9029	9144	
==>elation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= & <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12506	12621	
==>elation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= & <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10671	10765	
==>e reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, w <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10671	10765	
==>e reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, w <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10706	10848	
==>cro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            loc <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7047	7189	
==>cro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            loc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7896	8038	
==>cro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21712	21806	
==>my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21712	21806	
==>my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21712	21806	
==>my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14248	14460	
==>= '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14248	14460	
==>= '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14248	14460	
==>= '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access s <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12020	12132	
==>my $ok = substr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAILCALL <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37317	37415	
==>checks whether or not it has already been
loaded, returning true if so and false if not.

=item C<l <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37317	37415	
==>checks whether or not it has already been
loaded, returning true if so and false if not.

=item C<l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24452	24566	
==>(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24452	24566	
==>(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24452	24566	
==>(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	414	520	
==>CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	414	520	
==>CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	414	520	
==>CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	386	491	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	379	484	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	386	491	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	379	484	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	386	491	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	379	484	
==>ecursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9512	9639	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7059	7186	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9512	9639	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7059	7186	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9512	9639	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7059	7186	
==>her();
    }    
    elsif ($order eq ':ascendant') {
        $dispatcher = $self->_make_ascendant_dispatcher();
    }   
    el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11910	12059	
==>{           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11910	12059	
==>{           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11910	12059	
==>{           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLAS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9673	9774	
==>y, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9673	9774	
==>y, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9673	9774	
==>y, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# A <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6898	7029	
==>quired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%has <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11453	11584	
==>quired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%has <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12251	12382	
==>quired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%has <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12978	13109	
==>quired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%has <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21746	21845	
==>her
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26298	26397	
==>her
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6683	6897	
==>'$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6683	6897	
==>'$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.na <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6683	6897	
==>'$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10206	10349	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10206	10349	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.ref <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10206	10349	
==>ption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7660	7763	
==>xed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7660	7763	
==>xed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7660	7763	
==>xed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1224	1334	
==>e => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1224	1334	
==>e => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1224	1334	
==>e => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9439	9544	
==>pParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9439	9544	
==>pParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9439	9544	
==>pParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7945	8058	
==>ro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7945	8058	
==>ro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7945	8058	
==>ro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3619	3725	
==>rg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3619	3725	
==>rg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4209	4315	
==>rg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3653	3763	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4348	4458	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3653	3763	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4348	4458	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3653	3763	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4348	4458	
==>atcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	326	478	
==>ss => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	326	478	
==>ss => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { a <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	326	478	
==>ss => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1030	1120	
==>n MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1030	1120	
==>n MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1030	1120	
==>n MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1847	1958	
==>re($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1847	1958	
==>re($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1847	1958	
==>re($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2985	3095	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2985	3095	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2985	3095	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1359	1485	
==>rgs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1359	1485	
==>rgs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1359	1485	
==>rgs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1576	1692	
==>=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: E <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1576	1692	
==>=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: E <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1576	1692	
==>=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: E <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9769	9887	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7318	7436	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9769	9887	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7318	7436	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9769	9887	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7318	7436	
==>atcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my $counter = 0;
    return sub { ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6627	6764	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9076	9213	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6627	6764	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9076	9213	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6627	6764	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9076	9213	
==>art;
            die "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #w <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12054	12168	
==>e} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method ha <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12054	12168	
==>e} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4534	4639	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4534	4639	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4534	4639	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' => <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	574	678	
==>edence=>'>', other=>'+', rule=>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    fo <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1760	1855	
==>METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the st <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1523	1618	
==>METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the st <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1760	1855	
==>METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the st <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1523	1618	
==>METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the st <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24933	25025	
==>inking Rosetta statically or dynamically with other components is making a
combined work base <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24933	25025	
==>inking Rosetta statically or dynamically with other components is making a
combined work base <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11334	11447	
==>F;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method prod <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14811	14924	
==>F;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method prod <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14119	14232	
==>F;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method prod <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10754	10859	
==>e_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	43	145	
==>M::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::d <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	43	145	
==>M::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2044	2167	
==>pot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2044	2167	
==>pot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2044	2167	
==>pot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	753	845	
==>----------------------------------------------
## Object

# The 'Object' class
$::Object = $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	753	845	
==>----------------------------------------------
## Object

# The 'Object' class
$::Object = $: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	753	845	
==>----------------------------------------------
## Object

# The 'Object' class
$::Object = $: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3641	3750	
==>me =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3641	3750	
==>me =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3641	3750	
==>me =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1249	1341	
==>nd $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1249	1341	
==>nd $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1249	1341	
==>nd $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4922	5024	
==>ipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4922	5024	
==>ipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4922	5024	
==>ipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3728	3821	
==>val$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3728	3821	
==>val$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3728	3821	
==>val$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	450	567	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	670	787	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	450	567	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	670	787	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	450	567	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	670	787	
==>s2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative()) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10720	10864	
==>alar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10720	10864	
==>alar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10720	10864	
==>alar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12030	12121	
==>yche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12030	12121	
==>yche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12030	12121	
==>yche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	446	588	
==>un perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	835	952	
==>Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	835	952	
==>Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2132	2245	
==>un perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2132	2245	
==>un perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2132	2245	
==>un perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	311	409	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1470	1568	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	311	409	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1470	1568	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	311	409	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1470	1568	
==>f($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and not ref $self->{pFun}->{pLV}- <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4754	4882	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5058	5186	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5338	5466	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4947	5075	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5251	5379	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5531	5659	
==>subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13754	13880	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14128	14254	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13754	13880	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14128	14254	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13754	13880	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14128	14254	
==>al {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4602	4725	
==>undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "set <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5261	5384	
==>undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "set <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4602	4725	
==>undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "set <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5261	5384	
==>undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "set <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13104	13200	
==>For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Re <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13104	13200	
==>For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6246	6399	
==>med patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6246	6399	
==>med patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6246	6399	
==>med patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5941	6047	
==>od_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5941	6047	
==>od_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5941	6047	
==>od_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8521	8683	
==>scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8521	8683	
==>scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8521	8683	
==>scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34628	34742	
==>numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34628	34742	
==>numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34628	34742	
==>numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22374	22534	
==>->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22374	22534	
==>->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22374	22534	
==>->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38738	38856	
==>ist( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38738	38856	
==>ist( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38738	38856	
==>ist( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14600	14694	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11860	11954	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14600	14694	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11860	11954	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14600	14694	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11860	11954	
==>y $method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}) <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	7004	7153	
==>ode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQ <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7004	7153	
==>ode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2125	2240	
==>e>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
} <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	439	554	
==>e>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2125	2240	
==>e>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2125	2240	
==>e>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15552	15664	
==>d}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15552	15664	
==>d}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15552	15664	
==>d}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37607	37700	
==>f the source Relations,
such that all common attribute names and corresponding common tuple va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42156	42249	
==>f the source Relations,
such that all common attribute names and corresponding common tuple va <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41806	41899	
==>f the source Relations,
such that all common attribute names and corresponding common tuple va <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15214	15331	
==>ts, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15493	15610	
==>ts, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::c <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4330	4431	
==>multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diff <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3457	3558	
==>multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diff <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4330	4431	
==>multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diff <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3457	3558	
==>multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is diff <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	249	355	
==>ists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	249	355	
==>ists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	249	355	
==>ists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	962	1063	
==>Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	962	1063	
==>Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	962	1063	
==>Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9087	9211	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6634	6758	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9087	9211	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6634	6758	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9087	9211	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6634	6758	
==>_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $order eq ':canonical';
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10021	10167	
==>lems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10021	10167	
==>lems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10021	10167	
==>lems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5148	5245	
==>t's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<stat <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5148	5245	
==>t's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<stat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7345	7442	
==>t's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<stat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14454	14546	
==>>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14454	14546	
==>>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14454	14546	
==>>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6359	6478	
==>nce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6359	6478	
==>nce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6359	6478	
==>nce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	426	532	
==>eturns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    re <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	426	532	
==>eturns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    re <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4189	4292	
==>eturns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1199	1302	
==>ased modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_u <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4189	4292	
==>eturns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { re <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1199	1302	
==>ased modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11119	11240	
==>op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '//' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2108	2226	
==>!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2108	2226	
==>!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2108	2226	
==>!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $ar <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	891	980	
==>ad1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	891	980	
==>ad1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7809	7958	
==>>new('&control_structure:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'), <==
6	/Users/nnunley/pugs/misc/S29_round.pl	1546	1659	
==>$_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num:: <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1745	1846	
==>oping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1745	1846	
==>oping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7381	7474	
==>_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($fun <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7381	7474	
==>_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($fun <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13222	13326	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4392	4496	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8848	8952	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13222	13326	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4392	4496	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8848	8952	
==>hole file, which can be referenced as a unit by
documentation or 'use' statements or Perl archive indexes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38294	38422	
==>nlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}->object($type => 1, @$_);
    }

    return join "",
      map($_- <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	4793	4895	
==>t::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason? <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4851	4953	
==>t::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason? <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1456	1549	
==>ll complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good eno <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1456	1549	
==>ll complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good eno <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	589	681	
==>alar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	661	776	
==>r), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	661	776	
==>r), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	661	776	
==>r), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt o <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4307	4404	
==>son> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter de <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4307	4404	
==>son> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6504	6601	
==>son> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter de <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7192	7287	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6322	6417	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2976	3071	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2976	3071	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7192	7287	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6322	6417	
==>des($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6612	6770	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9582	9740	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6612	6770	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9582	9740	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6612	6770	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9582	9740	
==>";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	485	584	
==>sing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	485	584	
==>sing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	485	584	
==>sing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5957	6048	
==>ine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBl <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5957	6048	
==>ine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBl <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2856	2947	
==>ine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6008	6129	
==>= $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6008	6129	
==>= $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6008	6129	
==>= $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&/ <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	171	281	
==>t;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use Benchmark;
requi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6062	6168	
==>ments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rose <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6062	6168	
==>ments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rose <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36241	36355	
==>mber of a tuple pair has attribute names in common,
eliminating pairs where the values of those attributes differ a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37994	38108	
==>mber of a
tuple pair has attribute names in common, eliminating pairs where the
values of those attributes differ a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40790	40904	
==>mber of a tuple pair has attribute names in common,
eliminating pairs where the values of those attributes differ a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42543	42657	
==>mber of a
tuple pair has attribute names in common, eliminating pairs where the
values of those attributes differ a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40404	40518	
==>mber of a tuple pair has attribute names in common,
eliminating pairs where the values of those attributes differ a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42193	42307	
==>mber of a
tuple pair has attribute names in common, eliminating pairs where the
values of those attributes differ a <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4259	4367	
==>sion} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2767	2884	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5757	5874	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3059	3169	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9477	9587	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3059	3169	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9477	9587	
==>( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2373	2482	
==>, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2373	2482	
==>, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} | <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2373	2482	
==>, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} | <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	226	329	
==>rgs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	226	329	
==>rgs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	226	329	
==>rgs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7755	7863	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10678	10786	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7755	7863	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10678	10786	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7755	7863	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10678	10786	
==>ELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this implicit test can be overri <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4949	5070	
==>) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $ <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8426	8547	
==>) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2408	2518	
==>- grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2408	2518	
==>- grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2408	2518	
==>- grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..10 <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3383	3476	
==>rmEmpty = $self->termTable()->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12131	12281	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3642	3792	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12131	12281	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3642	3792	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12131	12281	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3642	3792	
==>r i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')( <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	743	901	
==>,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $ <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	743	901	
==>,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13129	13226	
==>ue => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13129	13226	
==>ue => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13129	13226	
==>ue => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptab <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1953	2048	
==>a list";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to($par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5512	5726	
==>efined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5512	5726	
==>efined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5512	5726	
==>efined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17714	17880	
==>( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21191	21357	
==>( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20778	20944	
==>( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16668	16767	
==>ame ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16668	16767	
==>ame ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16668	16767	
==>ame ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2927	3023	
==>Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2927	3023	
==>Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2927	3023	
==>Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16629	16732	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13834	13937	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16629	16732	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13834	13937	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16629	16732	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13834	13937	
==>er(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attribute($labe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9816	9929	
==>dd_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9816	9929	
==>dd_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9816	9929	
==>dd_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  m <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19969	20065	
==>ame:password"> as a single string value.

When used to set the header value, it expects two argum <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19969	20065	
==>ame:password"> as a single string value.

When used to set the header value, it expects two argum <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16002	16098	
==>trings = (CALLER::<$_>) is rw --> Char )

Trims the last character from C<$string>, and returns i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3110	3218	
==>:(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3110	3218	
==>:(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3110	3218	
==>:(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	409	512	
==>ame = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	409	512	
==>ame = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	409	512	
==>ame = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EO <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2573	2685	
==>et );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    re <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2573	2685	
==>et );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    re <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6535	6631	
==>a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6535	6631	
==>a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7509	7599	
==>h @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1334	1424	
==>h @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1841	1938	
==>\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1841	1938	
==>\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1841	1938	
==>\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36508	36604	
==>e
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which cas <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41057	41153	
==>e
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which cas <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40671	40767	
==>e
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which cas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	189	299	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	189	299	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	189	299	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2998	3091	
==>mal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2998	3091	
==>mal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2998	3091	
==>mal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3677	4061	
==>ld use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3677	4061	
==>ld use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3623	3800	
==>content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to b <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3623	3800	
==>content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to b <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	374	488	
==>@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gathe <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	374	488	
==>@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gathe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12250	12373	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3872	3995	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12250	12373	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3872	3995	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12250	12373	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3872	3995	
==>{ _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>      sub { ::next_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10056	10187	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12697	12828	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13533	13664	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16174	16305	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12814	12945	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15536	15667	
==>g.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30816	31009	
==>th;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30816	31009	
==>th;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30816	31009	
==>th;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2295	2374	
==>ix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2295	2374	
==>ix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2295	2374	
==>ix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	822	934	
==>Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	822	934	
==>Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        va <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	822	934	
==>Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3745	3839	
==>y $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3745	3839	
==>y $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3745	3839	
==>y $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12027	12184	
==>my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12027	12184	
==>my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12027	12184	
==>my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1348	1456	
==>6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1348	1456	
==>6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1348	1456	
==>6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4555	4708	
==>^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4555	4708	
==>^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4555	4708	
==>^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	744	888	
==>char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\ <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	744	888	
==>char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\ <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15237	15331	
==>t::Harness doesn't think you're
on TTY.

The C<$width> is the width of the "yada/blah.." string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4278	4389	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7214	7325	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4278	4389	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7214	7325	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4278	4389	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7214	7325	
==>his sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CLASS are <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5394	5503	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6662	6771	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10924	11033	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5394	5503	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6650	6759	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11074	11183	
==>XX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	597	712	
==>$source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	597	712	
==>$source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	597	712	
==>$source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	353	467	
==>=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	353	467	
==>=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	353	467	
==>=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4948	5063	
==>iate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4948	5063	
==>iate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4948	5063	
==>iate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3571	3669	
==>){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3571	3669	
==>){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3571	3669	
==>){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11155	11309	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8708	8862	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11155	11309	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8708	8862	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11155	11309	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8708	8862	
==>:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out of the ite <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1277	1386	
==>tion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1277	1386	
==>tion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1277	1386	
==>tion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14588	14684	
==>warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2069	2165	
==>warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	6792	6882	
==>ie "Failed to open $error_file: $!";
$template = HTML::Template->new(filename => 'util/cata <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24788	24915	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26977	27104	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24788	24915	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26977	27104	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24788	24915	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26977	27104	
==>LEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13149	13290	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13149	13290	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13149	13290	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5389	5530	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3889	4030	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2034	2175	
==>n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !defined($len);
    $le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	778	882	
==>LASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	595	699	
==>H') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') { <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	365	469	
==>H') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	778	882	
==>LASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	778	882	
==>LASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	365	469	
==>H') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3324	3434	
==>t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conten <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	591	701	
==>t(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3324	3434	
==>t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conten <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	591	701	
==>t(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	591	701	
==>t(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3324	3434	
==>t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conten <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	346	445	
==>If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	346	445	
==>If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	346	445	
==>If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1430	1528	
==>:use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1430	1528	
==>:use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1430	1528	
==>:use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11890	12006	
==>_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11890	12006	
==>_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11890	12006	
==>_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1722	1819	
==>imitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1722	1819	
==>imitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1722	1819	
==>imitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36303	36397	
==>g pairs where the values of those attributes differ and unioning
the remaining said tuple pairs <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38056	38150	
==>g pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40852	40946	
==>g pairs where the values of those attributes differ and unioning
the remaining said tuple pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42605	42699	
==>g pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40466	40560	
==>g pairs where the values of those attributes differ and unioning
the remaining said tuple pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42255	42349	
==>g pairs where the
values of those attributes differ and unioning the remaining said tuple
pairs <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2583	2778	
==>ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2583	2778	
==>ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5066	5201	
==>:SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5066	5201	
==>:SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5066	5201	
==>:SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3971	4071	
==>o match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3971	4071	
==>o match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4051	4151	
==>o match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	559	660	
==>tent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
< <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	559	660	
==>tent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	131	225	
==>n, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	131	225	
==>n, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	131	225	
==>n, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Re <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1173	1267	
==>09 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	951	1082	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1039	1170	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	951	1082	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1039	1170	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	951	1082	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1039	1170	
==>ns as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14097	14196	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11369	11468	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14097	14196	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11369	11468	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14097	14196	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11369	11468	
==>ed $label;
    my $method_table = $self->_get_method_table(\%params);
    return $method_table->{$la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8549	8654	
==>l->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8549	8654	
==>l->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8549	8654	
==>l->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { P <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8267	8363	
==>destrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=hea <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8267	8363	
==>destrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=hea <==
6	/Users/nnunley/pugs/inc/Module/Install/Base.pm	88	180	
==>l/Base.pm"
package Module::Install::Base;

# Suspend handler for "redefined" warnings
BEGIN { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11093	11225	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12564	12696	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14570	14702	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16041	16173	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13878	14010	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15403	15535	
==>e() == 0) {
        # First source is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!headin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15928	16078	
==>seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15928	16078	
==>seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15928	16078	
==>seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retur <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22115	22234	
==>elf
    self["isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cna <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1083	1193	
==>n undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1083	1193	
==>n undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	23	121	
==>y all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that <==
6	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	23	121	
==>y all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	23	121	
==>y all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	23	121	
==>y all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	879	975	
==>ng 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enci <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	879	975	
==>ng 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enci <==
6	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	737	849	
==>mplate( "wiki.tmpl", topic => '', entry => '', entry_html => '');
    }
    when 'edit' {
        print template( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	506	612	
==>nt "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
print <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6068	6164	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5198	5294	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6068	6164	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5198	5294	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1101	1301	
==>es;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1101	1301	
==>es;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #war <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1101	1301	
==>es;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #war <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4184	4270	
==>('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4184	4270	
==>('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4184	4270	
==>('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => : <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1088	1217	
==>pture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return u <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1044	1167	
==>pture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return u <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2164	2273	
==>1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2164	2273	
==>1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1394	1500	
==>1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3255	3361	
==>1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25980	26152	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28181	28353	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25980	26152	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28181	28353	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25980	26152	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28181	28353	
==>mp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2273	2449	
==>d($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2273	2449	
==>d($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2273	2449	
==>d($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6305	6395	
==>--------------------------------------------
## Module

$::Module = $::Class->new();

$::Mo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6305	6395	
==>--------------------------------------------
## Module

$::Module = $::Class->new();

$::Mo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6305	6395	
==>--------------------------------------------
## Module

$::Module = $::Class->new();

$::Mo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4532	4671	
==>),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4672	4811	
==>),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1493	1596	
==>aModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1493	1596	
==>aModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1493	1596	
==>aModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is i <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4675	4769	
==>->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i (map { num->new($_)  } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9802	9947	
==>$reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1883	2012	
==>$reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1883	2012	
==>$reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1351	1468	
==>ARGV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
chdir($testdir);
END {
    #ch <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	856	956	
==>return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	856	956	
==>return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13350	13455	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10634	10739	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13350	13455	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10634	10739	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13350	13455	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10634	10739	
==>submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{f <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11313	11467	
==>t( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11592	11746	
==>t( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4045	4146	
==>ring[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0x <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4045	4146	
==>ring[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0x <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	132	232	
==>line-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Dat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	132	232	
==>line-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12787	12894	
==>AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12787	12894	
==>AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12787	12894	
==>AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2570	2661	
==>w PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2570	2661	
==>w PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2570	2661	
==>w PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	608	718	
==>y $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	608	718	
==>y $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	608	718	
==>y $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $un <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7942	8048	
==>to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7954	8060	
==>to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2171	2273	
==>$self, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $enum;
}


sub errmsg {
  my ($self) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1043	1175	
==>s) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1043	1175	
==>s) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1043	1175	
==>s) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3140	3286	
==>ess $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3017	3158	
==>ess $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1082	1190	
==>t => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1082	1190	
==>t => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule- <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	712	814	
==>days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12 <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	712	814	
==>days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12521	12617	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10072	10168	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12521	12617	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10072	10168	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12521	12617	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10072	10168	
==>instance_id($self) == ::opaque_instance_id($class);
    my $dispatcher = $self->dispatcher(':cano <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	506	609	
==>to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8613	8716	
==>( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	506	609	
==>to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	506	609	
==>to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unti <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8613	8716	
==>( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8613	8716	
==>( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25983	26155	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28184	28356	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25983	26155	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28184	28356	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25983	26155	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28184	28356	
==>eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2603	2706	
==>x:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2603	2706	
==>x:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2603	2706	
==>x:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	124	228	
==>thing like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. Makefil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12279	12381	
==>nes
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single lin <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12279	12381	
==>nes
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single lin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11292	11453	
==>atch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11292	11453	
==>atch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it her <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11292	11453	
==>atch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it her <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3061	3165	
==>);

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3061	3165	
==>);

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3061	3165	
==>);

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1804	1903	
==>ucture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramete <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1804	1903	
==>ucture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramete <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1804	1903	
==>ucture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramete <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13584	13681	
==>$xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13584	13681	
==>$xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13584	13681	
==>$xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8664	8803	
==>)/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8664	8803	
==>)/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8664	8803	
==>)/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	411	513	
==>se, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	411	513	
==>se, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	411	513	
==>se, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12585	12707	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10136	10258	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12585	12707	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10136	10258	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12585	12707	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10136	10258	
==>atcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        return 1 if ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15434	15549	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12690	12805	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15434	15549	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12690	12805	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15434	15549	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12690	12805	
==>params->{for};    
    my $method_table;
    if (lc($params->{for}) eq 'instance') {
        return ::opaque_instanc <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2498	2622	
==>if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $s <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1770	1875	
==>rns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return & <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1770	1875	
==>rns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return & <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1136	1236	
==>unction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fak <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1136	1236	
==>unction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fak <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1136	1236	
==>unction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5638	5776	
==>an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5638	5776	
==>an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5638	5776	
==>an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1710	1810	
==>rn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaratio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1710	1810	
==>rn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaratio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1710	1810	
==>rn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaratio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5479	5691	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5479	5691	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5479	5691	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14034	14136	
==>(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14034	14136	
==>(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14034	14136	
==>(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4072	4196	
==>py} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = def <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11169	11293	
==>idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11169	11293	
==>idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i])) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11169	11293	
==>idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i])) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4072	4196	
==>py} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = def <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4072	4196	
==>py} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = def <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2608	2754	
==>ess $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2508	2649	
==>ess $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14966	15070	
==>he line down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14088	14184	
==>ribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14088	14184	
==>ribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14088	14184	
==>ribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercla <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7777	7877	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6907	7007	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3493	3593	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3493	3593	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7777	7877	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6907	7007	
==>icating shouldn't be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9409	9527	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12382	12500	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9409	9527	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12382	12500	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9409	9527	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12382	12500	
==>l6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod::FORCE = bless \(my $var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8615	8801	
==>e( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8615	8801	
==>e( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8615	8801	
==>e( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11036	11143	
==>rn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11036	11143	
==>rn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11036	11143	
==>rn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12660	12826	
==>->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Try <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12660	12826	
==>->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Try <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12660	12826	
==>->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Try <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2408	2520	
==>val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2408	2520	
==>val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2408	2520	
==>val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15640	15771	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15640	15771	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15640	15771	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20361	20488	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20361	20488	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::mult <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20361	20488	
==>d on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::mult <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2944	3059	
==>tainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2944	3059	
==>tainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2944	3059	
==>tainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1654	1757	
==>fix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1654	1757	
==>fix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1654	1757	
==>fix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23944	24046	
==>e.  This rule applies to servers too - they must not send
  any error reply back to the client on recei <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22717	22819	
==>e.  This rule applies to servers too - they must not send
  any error reply back to the client on recei <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23944	24046	
==>e.  This rule applies to servers too - they must not send
  any error reply back to the client on recei <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22717	22819	
==>e.  This rule applies to servers too - they must not send
  any error reply back to the client on recei <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8597	8688	
==>es Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::M <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8597	8688	
==>es Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::M <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4903	5027	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7552	7676	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5116	5234	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11565	11683	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5116	5234	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11565	11683	
==>->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2072	2240	
==>okie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2072	2240	
==>okie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23751	23848	
==>/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  N <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22524	22621	
==>/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  N <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23751	23848	
==>/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  N <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22524	22621	
==>/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  N <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12550	12653	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10101	10204	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12550	12653	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10101	10204	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12550	12653	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10101	10204	
==>e_instance_id($class);
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1682	1857	
==>back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1682	1857	
==>back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9213	9316	
==>rns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_para <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9213	9316	
==>rns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_para <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	9770	9872	
==>rns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_para <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9770	9872	
==>rns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6599	6784	
==>rn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6599	6784	
==>rn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6599	6784	
==>rn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	465	638	
==>ode; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	380	553	
==>ode; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	468	641	
==>ode; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9634	9750	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12607	12723	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9634	9750	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12607	12723	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9634	9750	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12607	12723	
==>ave some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # for use by 'next ME <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20431	20613	
==>et = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20431	20613	
==>et = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20431	20613	
==>et = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8698	8822	
==>$class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8698	8822	
==>$class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8698	8822	
==>$class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9477	9593	
==>->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9477	9593	
==>->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $a <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9477	9593	
==>->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $a <==
6	/Users/nnunley/pugs/util/build_pugs.pl	3355	3462	
==>p} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unless -e $a_fil <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1873	1966	
==>is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Syn <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1873	1966	
==>is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Syn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13789	13929	
==>0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13789	13929	
==>0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13789	13929	
==>0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatch <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28650	28744	
==>d will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33202	33296	
==>d will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32330	32424	
==>d will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5366	5525	
==>d _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5366	5525	
==>d _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5366	5525	
==>d _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39958	40085	
==>lass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39958	40085	
==>lass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39958	40085	
==>lass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2301	2423	
==>bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9073	9195	
==>bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2301	2423	
==>bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9073	9195	
==>bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7489	7579	
==>est::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1717	1807	
==>est::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15148	15314	
==>' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15148	15314	
==>' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15148	15314	
==>' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2335	2443	
==>art }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { re <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2335	2443	
==>art }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { re <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1400	1497	
==>ain \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bind <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1334	1443	
==>:opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1539	1648	
==>:opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1600	1709	
==>:opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34441	34548	
==>splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34441	34548	
==>splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34441	34548	
==>splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4385	4496	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4609	4720	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4385	4496	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4609	4720	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4385	4496	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4609	4720	
==>x:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4722	4823	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Inf <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4722	4823	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Inf <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4722	4823	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Inf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4218	4317	
==>('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4218	4317	
==>('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4218	4317	
==>('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10581	10719	
==>rams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10581	10719	
==>rams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10581	10719	
==>rams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= sc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11340	11439	
==>File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11340	11439	
==>File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11340	11439	
==>File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2415	2558	
==>0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2415	2558	
==>0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2415	2558	
==>0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1247	1342	
==>alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_deb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1247	1342	
==>alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_deb <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1247	1342	
==>alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_deb <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26701	26798	
==>ively.  This method will fail if
any members of C<$attrs> do not match attribute names of the invo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31253	31350	
==>ively.  This method will fail if
any members of C<$attrs> do not match attribute names of the invo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30282	30379	
==>ively.  This method will fail if
any members of C<$attrs> do not match attribute names of the invo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	157	253	
==>o even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	157	253	
==>o even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	157	253	
==>o even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9824	9959	
==>lue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9824	9959	
==>lue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METH <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9824	9959	
==>lue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15499	15610	
==>ndef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15499	15610	
==>ndef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15499	15610	
==>ndef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2805	2922	
==>1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2805	2922	
==>1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2805	2922	
==>1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	424	525	
==>e);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	424	525	
==>e);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	424	525	
==>e);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9226	9376	
==>t(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descri <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1350	1492	
==>t(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descri <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1350	1492	
==>t(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7392	7501	
==>to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7392	7501	
==>to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7392	7501	
==>to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5884	5994	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4004	4114	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5884	5994	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4004	4114	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5884	5994	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4004	4114	
==>'@:superclasses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13379	13491	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10663	10775	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13379	13491	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10663	10775	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13379	13491	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10663	10775	
==>::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return :: <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	413	559	
==>t',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	413	559	
==>t',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 = <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2702	2827	
==>bal, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2863	2958	
==>nd binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copy <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2863	2958	
==>nd binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copy <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3210	3305	
==>nd binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1869	2013	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	981	1125	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1869	2013	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	981	1125	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1869	2013	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	981	1125	
==>ey (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9665	9770	
==>---------------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9665	9770	
==>---------------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9665	9770	
==>---------------      
    method collect_all_roles () { "<implemented>" }  

    # ----------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9642	9737	
==>--------------------------------------      
    method collect_all_roles () { "<implemented>" } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9642	9737	
==>--------------------------------------      
    method collect_all_roles () { "<implemented>" } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9642	9737	
==>--------------------------------------      
    method collect_all_roles () { "<implemented>" } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13403	13509	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10687	10793	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13403	13509	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10687	10793	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13403	13509	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10687	10793	
==>self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_instance_at <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1639	1761	
==>dy {
          [ \( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rul <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4711	4813	
==>rn;
}

# 8.8 The List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completion Type
class JS <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33340	33437	
==>ay wish to override the user text of another library
which it uses, the Template module for the pr <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33340	33437	
==>ay wish to override the user text of another library
which it uses, the Template module for the pr <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19564	19656	
==>uthorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself w <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19564	19656	
==>uthorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself w <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2205	2319	
==>not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CL <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2205	2319	
==>not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CL <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22936	23031	
==>", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason opt <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21754	21849	
==>", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason opt <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22936	23031	
==>", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason opt <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21754	21849	
==>", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9244	9359	
==>IL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9244	9359	
==>IL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9244	9359	
==>IL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2646	2749	
==>d, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2646	2749	
==>d, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2646	2749	
==>d, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22039	22265	
==>m );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22039	22265	
==>m );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22039	22265	
==>m );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5474	5579	
==>ew( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5474	5579	
==>ew( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5474	5579	
==>ew( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7664	7772	
==>s_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7664	7772	
==>s_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7664	7772	
==>s_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19473	19593	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16705	16825	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19473	19593	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16705	16825	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19473	19593	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16705	16825	
==>'undef') . ")";    
    # only store method objects,.. regular subs go in the namespace
    if ($label =~ /^\&(.*)$/ && ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10200	10305	
==>n of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10200	10305	
==>n of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10200	10305	
==>n of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1122	1226	
==>->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1122	1226	
==>->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1122	1226	
==>->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2731	2856	
==>ty {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2731	2856	
==>ty {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2731	2856	
==>ty {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3529	3631	
==>6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3529	3631	
==>6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3529	3631	
==>6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1332	1438	
==>,
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequot <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1332	1438	
==>,
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequot <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1332	1438	
==>,
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequot <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2294	2386	
==>ber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~| <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2294	2386	
==>ber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~| <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2294	2386	
==>ber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~| <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3970	4099	
==>g that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisf <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4434	4563	
==>g that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3218	3335	
==>) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3218	3335	
==>) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3218	3335	
==>) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = su <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4463	4567	
==>token_match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2894	3039	
==>ntent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) r <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2894	3039	
==>ntent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) r <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	333	447	
==>f code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	333	447	
==>f code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22759	22850	
==>")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22759	22850	
==>")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15138	15264	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19836	19962	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15138	15264	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19836	19962	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15138	15264	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19836	19962	
==>we just deal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19938	20060	
==>f ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19938	20060	
==>f ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19938	20060	
==>f ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1514	1616	
==>g{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1514	1616	
==>g{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1514	1616	
==>g{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14763	14874	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12017	12128	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14763	14874	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12017	12128	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14763	14874	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12017	12128	
==>my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        | <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10897	10994	
==>) of the last of the header fields is returned.
If no such field exists C<undef> will be returned. <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10897	10994	
==>) of the last of the header fields is returned.
If no such field exists C<undef> will be returned. <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4682	4778	
==>($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3809	3905	
==>($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4682	4778	
==>($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3809	3905	
==>($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13221	13327	
==>ceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wit <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13221	13327	
==>ceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wit <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13221	13327	
==>ceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1270	1369	
==>r, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1270	1369	
==>r, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1270	1369	
==>r, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1426	1577	
==>@{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1426	1577	
==>@{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1426	1577	
==>@{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7330	7427	
==>6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7330	7427	
==>6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use str <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7330	7427	
==>6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use str <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8897	9044	
==>( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> no <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14626	14773	
==>( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8897	9044	
==>( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14620	14767	
==>( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> no <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	11340	11431	
==>_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_para <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11340	11431	
==>_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_para <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25188	25288	
==>e
result and/or make the same change to an object when the permutation of its
arguments and any invoc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11319	11419	
==>e
result and/or make the same change to an object when the permutation of its
arguments and any invoc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14592	14692	
==>e result and/or make the same change
to an object when the permutation of its arguments and any invoc <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25188	25288	
==>e
result and/or make the same change to an object when the permutation of its
arguments and any invoc <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11319	11419	
==>e
result and/or make the same change to an object when the permutation of its
arguments and any invoc <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14592	14692	
==>e result and/or make the same change
to an object when the permutation of its arguments and any invoc <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14407	14533	
==>time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinge <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14407	14533	
==>time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinge <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13456	13570	
==>time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinge <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13456	13570	
==>time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinge <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	16450	16547	
==>drey Tang. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16508	16605	
==>drey Tang. All rights reserved.

This program is free software; you can redistribute it and/or mod <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	436	609	
==>(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unqu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	436	609	
==>(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unqu <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	608	725	
==>m") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConf <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	608	725	
==>m") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConf <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24350	24446	
==>ping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28902	28998	
==>ping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4923	5039	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7572	7688	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5135	5245	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11584	11694	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5135	5245	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11584	11694	
==>rn $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub g <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2141	2256	
==>) returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retur <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5112	5227	
==>) returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retur <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2141	2256	
==>) returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retur <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5112	5227	
==>) returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7417	7523	
==>=> 'FooBar',
    '$:superclass' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10711	10814	
==>neg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", !. %# XXX - <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2899	3009	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5429	5539	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2899	3009	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5429	5539	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2899	3009	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5429	5539	
==>(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5726	5868	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3846	3988	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5726	5868	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3846	3988	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5726	5868	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3846	3988	
==>the classes passed to us
        # are also subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18236	18359	
==>class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	644	748	
==>sEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	644	748	
==>sEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	644	748	
==>sEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	17	108	
==>e::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	17	108	
==>e::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15053	15168	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12307	12422	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15053	15168	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12307	12422	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15053	15168	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12307	12422	
==>e') {
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1876	2015	
==>1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1876	2015	
==>1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1876	2015	
==>1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3221	3340	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3221	3340	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4745	4864	
==>g("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5345	5484	
==>'$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5345	5484	
==>'$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5345	5484	
==>'$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4771	4876	
==>CESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4771	4876	
==>CESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4771	4876	
==>CESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9293	9400	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6840	6947	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9293	9400	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6840	6947	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9293	9400	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6840	6947	
==>_preorder_dispatcher();
    }
    elsif ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	95	200	
==>nlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	95	200	
==>nlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	95	200	
==>nlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	94	198	
==>nlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	94	198	
==>nlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	94	198	
==>nlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque in <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8973	9086	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::ge <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9166	9279	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::ge <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6024	6127	
==>chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6804	6907	
==>chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6024	6127	
==>chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6804	6907	
==>chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	796	935	
==>dex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, tel <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	796	935	
==>dex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, tel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3758	3880	
==>sh(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3758	3880	
==>sh(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3758	3880	
==>sh(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PC <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9001	9097	
==>leStringCharacters>?
}
rule SingleStringCharacters {  # see 7.8.4
      <SingleStringCharacter> < <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	169	261	
==>se base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pug <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	169	261	
==>se base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pug <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6932	7020	
==>her_singleton_test_on_object'
});

is($Object->another_singleton_test_on_object(), 
   '& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5248	5441	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fir <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5248	5441	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fir <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5248	5441	
==>$_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fir <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	845	936	
==>Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	845	936	
==>Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	845	936	
==>Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	257	377	
==>ew PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = (" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	257	377	
==>ew PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = (" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	257	377	
==>ew PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = (" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2949	3039	
==>ody;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2949	3039	
==>ody;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2949	3039	
==>ody;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	265	371	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	263	369	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	265	371	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	263	369	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	265	371	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	263	369	
==>ariables and access their internal data.
    # This is basically the implementation of
    # the p6opaque c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4279	4387	
==>tcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4279	4387	
==>tcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4279	4387	
==>tcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	628	727	
==>0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	628	727	
==>0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	628	727	
==>0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24497	24685	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26686	26874	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24497	24685	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26686	26874	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24497	24685	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26686	26874	
==>=> sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $arr <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	19795	19923	
==>w(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $outfile->print($sobj->as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11168	11291	
==>Bin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11168	11291	
==>Bin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fil <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11168	11291	
==>Bin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fil <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1897	2011	
==>apital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1897	2011	
==>apital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3895	4002	
==>'acosech';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2187	2289	
==>sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2187	2289	
==>sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2187	2289	
==>sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$: <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1509	1603	
==>5.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COM <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1349	1443	
==>5.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6978	7126	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9948	10096	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6978	7126	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9948	10096	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6978	7126	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9948	10096	
==>|| 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3545	3654	
==>} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3545	3654	
==>} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3545	3654	
==>} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	309	408	
==>meout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	309	408	
==>meout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	309	408	
==>meout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4866	4967	
==>});

		return Blondie::TypeSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1992	2086	
==>nd binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1992	2086	
==>nd binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1992	2086	
==>nd binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34235	34328	
==>lation $other!) returns Relation>

This method is a generic relational operator that returns t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38785	38878	
==>lation $other!) returns Relation>

This method is a generic relational operator that returns t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6641	6753	
==>{ $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::ran <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6641	6753	
==>{ $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::ran <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6641	6753	
==>{ $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::ran <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2469	2568	
==>PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2469	2568	
==>PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2469	2568	
==>PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24ma <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17021	17123	
==>usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= ne <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17021	17123	
==>usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= ne <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12217	12315	
==>ze a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets sto <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16797	16895	
==>ze a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets sto <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12217	12315	
==>ze a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets sto <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16797	16895	
==>ze a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8859	9030	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11832	12003	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8859	9030	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11832	12003	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8859	9030	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11832	12003	
==>Submethod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2027	2144	
==>$type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_si <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2027	2144	
==>$type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_si <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2027	2144	
==>$type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_si <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8394	8500	
==>0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8394	8500	
==>0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8394	8500	
==>0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	865	976	
==>e => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0 <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	865	976	
==>e => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5017	5115	
==>Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the v <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5017	5115	
==>Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6541	6639	
==>Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the v <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22809	22906	
==>ho find bugs should email me.  Messages should include the
code you ran that contains the bug, and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9381	9519	
==>|| {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9381	9519	
==>|| {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13115	13229	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21165	21279	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13394	13508	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21444	21558	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captur <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3337	3449	
==>opy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersect <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3337	3449	
==>opy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersect <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24355	24451	
==>ing lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sen <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24355	24451	
==>ing lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sen <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	658	746	
==>zy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	658	746	
==>zy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1318	1439	
==>|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3614	3735	
==>|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1318	1439	
==>|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3614	3735	
==>|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1129	1231	
==>f->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class" <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2294	2396	
==>f->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5292	5390	
==>push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5292	5390	
==>push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5292	5390	
==>push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13647	13744	
==>:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13647	13744	
==>:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13647	13744	
==>:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13411	13541	
==>";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13411	13541	
==>";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13411	13541	
==>";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_l <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6814	6910	
==>rn +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1) <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7186	7282	
==>rn +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1) <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7485	7581	
==>rn +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2032	2161	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1144	1273	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2032	2161	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1144	1273	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2032	2161	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1144	1273	
==>do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7187	7285	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6317	6415	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2971	3069	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2971	3069	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7187	7285	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6317	6415	
==>includes($member);
}

# these methods are for overloaded operations with non-sets
multi sub *infix: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2597	2702	
==>my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1209	1314	
==>my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1910	2015	
==>my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4303	4405	
==>s_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4303	4405	
==>s_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4893	4995	
==>s_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11610	11705	
==>ze()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<si <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8757	8852	
==>ze()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<si <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11610	11705	
==>ze()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<si <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8757	8852	
==>ze()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<si <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1311	1403	
==>:Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1311	1403	
==>:Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2709	2833	
==>es),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2709	2833	
==>es),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2709	2833	
==>es),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5173	5269	
==>ling (--link option not given), there has to be only one input file.
In linking mode, multiple in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5173	5269	
==>ling (--link option not given), there has to be only one input file.
In linking mode, multiple in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5173	5269	
==>ling (--link option not given), there has to be only one input file.
In linking mode, multiple in <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11172	11295	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12643	12766	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14649	14772	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16120	16243	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13957	14080	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15482	15605	
==>ce.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8525	8701	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6078	6254	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8525	8701	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6078	6254	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8525	8701	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6078	6254	
==>=> '@:MRO')}) {
        ::opaque_instance_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3867	3978	
==>rs;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3867	3978	
==>rs;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3867	3978	
==>rs;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10381	10474	
==>rnals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10381	10474	
==>rnals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10381	10474	
==>rnals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21983	22115	
==>ass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21983	22115	
==>ass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21983	22115	
==>ass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29182	29308	
==>w {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29182	29308	
==>w {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29182	29308	
==>w {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2316	2416	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2316	2416	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2316	2416	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2525	2622	
==>ss $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2525	2622	
==>ss $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2525	2622	
==>ss $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	620	721	
==>ue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	620	721	
==>ue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	620	721	
==>ue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5262	5362	
==>clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5262	5362	
==>clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5262	5362	
==>clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3536	3677	
==>o/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3536	3677	
==>o/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3536	3677	
==>o/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --comp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12317	12431	
==>entify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12317	12431	
==>entify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12317	12431	
==>entify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19772	19904	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16911	17043	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19772	19904	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16911	17043	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19772	19904	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16911	17043	
==>$1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3386	3571	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6322	6507	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3386	3571	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6322	6507	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3386	3571	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6322	6507	
==>b, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 doe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16389	16530	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21106	21247	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16389	16530	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21106	21247	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16389	16530	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21106	21247	
==>rapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5398	5506	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6666	6774	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10928	11036	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5398	5506	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6654	6762	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11078	11186	
==>XX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8865	9039	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11838	12012	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8865	9039	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11838	12012	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8865	9039	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11838	12012	
==>hod';
    }   
    
    {   ## Method "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	358	479	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	351	472	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	358	479	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	351	472	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	358	479	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	351	472	
==>lf = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3409	3500	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6423	6514	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8491	8582	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3409	3500	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6423	6514	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8491	8582	
==>Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7051	7205	
==>ub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7051	7205	
==>ub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7051	7205	
==>ub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1530	1627	
==>ssed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1530	1627	
==>ssed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1530	1627	
==>ssed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	801	892	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1321	1412	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	801	892	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1321	1412	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	801	892	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1321	1412	
==>STORE(new PIL2JS.Box.Constant(array = []));
    if(array.referencee && array.autoderef) arra <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3706	3844	
==>version} <=> $a->{version } } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        my $my_bindir <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	132	244	
==>$self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    ret <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	132	244	
==>$self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	829	926	
==>nstance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	829	926	
==>nstance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	829	926	
==>nstance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClas <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25152	25252	
==>ect methods will each return the same
result and/or make the same change to an object when the permut <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11283	11383	
==>ect methods will each return the same
result and/or make the same change to an object when the permut <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14556	14656	
==>ect methods will each return the same result and/or make the same change
to an object when the permut <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25152	25252	
==>ect methods will each return the same
result and/or make the same change to an object when the permut <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11283	11383	
==>ect methods will each return the same
result and/or make the same change to an object when the permut <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14556	14656	
==>ect methods will each return the same result and/or make the same change
to an object when the permut <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8436	8558	
==>he tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not ba <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	594	716	
==>he tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not ba <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	864	984	
==>he tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not ba <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8153	8273	
==>he tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not ba <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	568	688	
==>he tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not ba <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	864	984	
==>he tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10324	10476	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10324	10476	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10324	10476	
==>lf, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1384	1480	
==>IL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1384	1480	
==>IL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1384	1480	
==>IL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8713	8821	
==>@_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8713	8821	
==>@_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8713	8821	
==>@_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5244	5343	
==>with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5244	5343	
==>with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5244	5343	
==>with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2147	2255	
==>r, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2147	2255	
==>r, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2147	2255	
==>r, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1442	1541	
==>azy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1442	1541	
==>azy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the opt <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1442	1541	
==>azy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13514	13664	
==>se fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13514	13664	
==>se fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13514	13664	
==>se fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	243	356	
==>tore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	243	356	
==>tore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	243	356	
==>tore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13446	13554	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10730	10838	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13446	13554	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10730	10838	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13446	13554	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10730	10838	
==>params->{for}) eq 'class') {
        return ::opaque_instance_attr($self => '%:class_methods');
    }
    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3108	3209	
==>ke_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3108	3209	
==>ke_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3108	3209	
==>ke_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7631	7730	
==>_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7631	7730	
==>_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7631	7730	
==>_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	123	227	
==>0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fals <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	123	227	
==>0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fals <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	123	227	
==>0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fals <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1154	1253	
==>:OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1154	1253	
==>:OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1154	1253	
==>:OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root:: <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2822	2972	
==>t;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3442	3592	
==>t;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2822	2972	
==>t;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3442	3592	
==>t;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1990	2099	
==>5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# T <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1990	2099	
==>5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# T <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10994	11133	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12465	12604	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14471	14610	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15942	16081	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13779	13918	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15304	15443	
==>$!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == 0) {
        # First source is ide <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1102	1196	
==>d FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1102	1196	
==>d FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1102	1196	
==>d FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22252	22344	
==>xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22252	22344	
==>xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22252	22344	
==>xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	661	786	
==>PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	661	786	
==>PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	661	786	
==>PIL2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3002	3109	
==>PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3002	3109	
==>PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3002	3109	
==>PIL2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new P <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1034	1164	
==>ength; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1034	1164	
==>ength; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1034	1164	
==>ength; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scr <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2337	2444	
==>)
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7948	8038	
==>uthorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method b <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7948	8038	
==>uthorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4649	4813	
==>t;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4649	4813	
==>t;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4649	4813	
==>t;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19076	19224	
==>c
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19076	19224	
==>c
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19076	19224	
==>c
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1575	1672	
==>sif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1575	1672	
==>sif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precomp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1575	1672	
==>sif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precomp <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29621	29715	
==>ributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34173	34267	
==>ributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as thos <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33337	33431	
==>ributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as thos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5808	5913	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8778	8883	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5808	5913	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8778	8883	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5808	5913	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8778	8883	
==>method subs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15890	16012	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20607	20729	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15890	16012	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20607	20729	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15890	16012	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20607	20729	
==>multi registry to handle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	104	222	
==>s';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	104	222	
==>s';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	104	222	
==>s';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	103	220	
==>s';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	103	220	
==>s';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	103	220	
==>s';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1358	1484	
==>, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1358	1484	
==>, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1358	1484	
==>, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1026	1119	
==>PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1026	1119	
==>PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1026	1119	
==>PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	217	341	
==>TY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	217	341	
==>TY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	217	341	
==>TY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6490	6605	
==>ck

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6273	6383	
==>ck
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match o <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	2336	2438	
==>nd the original object they had
	# this lets us assign letters to them

	my @letters = split //, "αβ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	853	962	
==>eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	853	962	
==>eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	853	962	
==>eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5149	5255	
==>f:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5149	5255	
==>f:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5149	5255	
==>f:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4682	4779	
==>r_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4682	4779	
==>r_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5272	5369	
==>r_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8417	8508	
==>from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8417	8508	
==>from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8417	8508	
==>from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9746	9862	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12719	12835	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9746	9862	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12719	12835	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9746	9862	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12719	12835	
==>xt METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub : <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17312	17428	
==>R"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .Stri <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16527	16626	
==>a separate value if in
an array context.  If there is no such header field, then the empty
string is <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16527	16626	
==>a separate value if in
an array context.  If there is no such header field, then the empty
string is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21076	21167	
==>nfix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21076	21167	
==>nfix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21076	21167	
==>nfix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7263	7431	
==>";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7263	7431	
==>";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7263	7431	
==>";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	625	726	
==>{
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	625	726	
==>{
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	625	726	
==>{
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1763	1886	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1763	1886	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1763	1886	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1589	1691	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1589	1691	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1589	1691	
==>er(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7660	7764	
==>------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7660	7764	
==>------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7660	7764	
==>------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2865	2959	
==>lass->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2865	2959	
==>lass->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2865	2959	
==>lass->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15999	16144	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20716	20861	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15999	16144	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20716	20861	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15999	16144	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20716	20861	
==>ram => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4268	4436	
==>il = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4268	4436	
==>il = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4268	4436	
==>il = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10487	10654	
==>\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: va <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6828	6995	
==>\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: va <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7677	7844	
==>\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10687	10787	
==>defined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10687	10787	
==>defined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necess <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10687	10787	
==>defined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7663	7777	
==>verse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arra <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7663	7777	
==>verse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arra <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7663	7777	
==>verse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arra <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1398	1510	
==>le->compile(q(<'token'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8382	8487	
==>nion( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self. <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8382	8487	
==>nion( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17706	17836	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14926	15056	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17706	17836	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14926	15056	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17706	17836	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14926	15056	
==>)$/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->ge <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3653	3787	
==>'=',
    );
    __PACKAGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	885	993	
==>dent;

package type;
use base qw/Clone/;

### the types of types we have are:
# type::operator
#	::binary - t <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3699	3800	
==>ll y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-Ma <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3699	3800	
==>ll y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-Ma <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2274	2372	
==>operties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L< <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2274	2372	
==>operties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3281	3413	
==>ble, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3281	3413	
==>ble, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3281	3413	
==>ble, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6509	6612	
==>method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6509	6612	
==>method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6509	6612	
==>method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	788	918	
==>") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	788	918	
==>") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	788	918	
==>") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	724	823	
==>DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	724	823	
==>DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	724	823	
==>DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} } <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1372	1473	
==>est( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1372	1473	
==>est( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1452	1553	
==>est( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4103	4199	
==>l || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4103	4199	
==>l || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4693	4789	
==>l || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1948	2070	
==>l_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1948	2070	
==>l_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    re <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	845	962	
==>ration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	587	704	
==>ration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	845	962	
==>ration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	587	704	
==>ration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start <==
6	/Users/nnunley/pugs/util/combine_tests.pl	306	410	
==>ree with the earlier one's
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a more <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5300	5397	
==>track our status, especially the channels we've joined.
    # Somebody joined. Update %channels an <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5300	5397	
==>track our status, especially the channels we've joined.
    # Somebody joined. Update %channels an <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5739	5834	
==>track our status, especially the channels we've joined.
  # Somebody joined. Update %channels an <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5739	5834	
==>track our status, especially the channels we've joined.
  # Somebody joined. Update %channels an <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1368	1458	
==>19s28.vlinux.de/iblech/pugs/grub.tar.bz2";
my $kernel_local = "vmlinuz";
my $grub_local   = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2317	2487	
==>.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2317	2487	
==>.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2317	2487	
==>.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ? <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	490	586	
==>tput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC AT <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	490	586	
==>tput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC AT <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1046	1142	
==>tput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC AT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2152	2259	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2557	2664	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2152	2259	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2557	2664	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2152	2259	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2557	2664	
==>EOF;
(function () {
  var backup_container = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leav <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8942	9070	
==>t count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => co <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8942	9070	
==>t count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18270	18362	
==>x0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18270	18362	
==>x0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18270	18362	
==>x0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {... <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18480	18563	
==>,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1 <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9802	10007	
==>rams->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'symbol')                
                          ),
                retur <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7896	8086	
==>rams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                retur <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8843	9033	
==>rams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16076	16181	
==>l6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16076	16181	
==>l6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16076	16181	
==>l6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6: <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	750	851	
==>ce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$tod <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	808	909	
==>ce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$tod <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11924	12021	
==>_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07- <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13316	13413	
==>_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07- <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11924	12021	
==>_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07- <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13316	13413	
==>_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22633	22728	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22863	22958	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22633	22728	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22863	22958	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22633	22728	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22863	22958	
==>x0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18411	18516	
==>ogin
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18411	18516	
==>ogin
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C< <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21664	21760	
==>ver

=item C<line>

The original line received from the server (unmodified).

=item C<server>

Th <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20545	20641	
==>ver

=item C<line>

The original line received from the server (unmodified).

=item C<server>

Th <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21664	21760	
==>ver

=item C<line>

The original line received from the server (unmodified).

=item C<server>

Th <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20545	20641	
==>ver

=item C<line>

The original line received from the server (unmodified).

=item C<server>

Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10701	10804	
==>nc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10701	10804	
==>nc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10701	10804	
==>nc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3738	3838	
==>pers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FET <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3738	3838	
==>pers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FET <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3738	3838	
==>pers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FET <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7696	7800	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6826	6930	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3412	3516	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3412	3516	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7696	7800	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6826	6930	
==>e.includes($member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15057	15172	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12311	12426	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15057	15172	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12311	12426	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15057	15172	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12311	12426	
==>{
        ::opaque_instance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5833	5959	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3953	4079	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5833	5959	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3953	4079	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5833	5959	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3953	4079	
==>t allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $superclasses; 
        # clear the MRO now
        ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4106	4201	
==>nternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4106	4201	
==>nternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4106	4201	
==>nternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4870	4962	
==>self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4870	4962	
==>self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4870	4962	
==>self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11884	12035	
==>tr
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wan <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2302	2439	
==>tr
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wan <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2302	2439	
==>tr
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10949	11055	
==>urn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10949	11055	
==>urn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10949	11055	
==>urn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	531	632	
==>\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	297	398	
==>he pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Ob <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	531	632	
==>\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	531	632	
==>\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	297	398	
==>he pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	297	398	
==>he pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Ob <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6331	6436	
==>instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6331	6436	
==>instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$sup <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6331	6436	
==>instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$sup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	355	452	
==>-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	355	452	
==>-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	355	452	
==>-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3195	3297	
==>n=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3195	3297	
==>n=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3195	3297	
==>n=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7307	7400	
==>cks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7307	7400	
==>cks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7307	7400	
==>cks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5005	5105	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3233	3333	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5005	5105	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3233	3333	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5005	5105	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3233	3333	
==>l) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13000	13133	
==>et;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13000	13133	
==>et;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13000	13133	
==>et;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1885	2018	
==>et;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3449	3543	
==>and write .ini style configuration files
with as little code as possible, reducing load time an <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3449	3543	
==>and write .ini style configuration files
with as little code as possible, reducing load time an <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11216	11330	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2332	2446	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7426	7540	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11216	11330	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2332	2446	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7426	7540	
==>meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2284	2411	
==>$class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $cla <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2831	2958	
==>$class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $cla <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3378	3505	
==>$class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $cla <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5332	5442	
==>comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3814	3922	
==>Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module impor <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3872	3980	
==>Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module impor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1835	1934	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2178	2277	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1835	1934	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2178	2277	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1835	1934	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2178	2277	
==>for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4765	4863	
==>n pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4765	4863	
==>n pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4765	4863	
==>n pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	557	653	
==>ng.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	557	653	
==>ng.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	557	653	
==>ng.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7139	7249	
==>erm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3743	3853	
==>erm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4592	4702	
==>erm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2701	2808	
==>ue }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2701	2808	
==>ue }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2701	2808	
==>ue }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10463	10571	
==>ok through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10463	10571	
==>ok through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10463	10571	
==>ok through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1083	1182	
==>to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing th <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1083	1182	
==>to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1630	1729	
==>to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2475	2571	
==>],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2475	2571	
==>],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2475	2571	
==>],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37025	37120	
==>tes to a C<intersection>.  In any situation where a pair of source
relations have zero attribute <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41574	41669	
==>tes to a C<intersection>.  In any situation where a pair of source
relations have zero attribute <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41197	41292	
==>tes to a C<intersection>.  In any situation where a pair of source
relations have zero attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16882	17042	
==>elf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16882	17042	
==>elf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16882	17042	
==>elf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4083	4204	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6732	6853	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4318	4436	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10767	10885	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4318	4436	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10767	10885	
==>match) eq 'Pugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-re <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7644	7745	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6774	6875	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3360	3461	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3360	3461	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7644	7745	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6774	6875	
==>nfix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there's a "i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4425	4546	
==>ame;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4425	4546	
==>ame;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4425	4546	
==>ame;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4108	4202	
==>----------------------------------------
## NOTE:
## code in this section has special cases wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4108	4202	
==>----------------------------------------
## NOTE:
## code in this section has special cases wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4108	4202	
==>----------------------------------------
## NOTE:
## code in this section has special cases wit <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	286	406	
==>LoadFile( $Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in case there's more than one package matching,
    ### sor <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36692	36789	
==>y any source relation has zero
tuples, in which case the result does too.  Another trivial case is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41241	41338	
==>y any source relation has zero
tuples, in which case the result does too.  Another trivial case is <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40864	40961	
==>y any source relation has zero
tuples, in which case the result does too.  Another trivial case is <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16832	16925	
==>=item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
medi <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16832	16925	
==>=item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
medi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	466	560	
==>y is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	466	560	
==>y is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	466	560	
==>y is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2052	2144	
==>elf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2052	2144	
==>elf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2052	2144	
==>elf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1660	1754	
==>a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1660	1754	
==>a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_per <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1660	1754	
==>a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3375	3465	
==>ad([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3375	3465	
==>ad([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3375	3465	
==>ad([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbod <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3539	3650	
==>erl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    i <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2582	2690	
==>erl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2616	2723	
==>th        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2616	2723	
==>th        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2616	2723	
==>th        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(fu <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1839	1945	
==>$compiled);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::Back <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	478	600	
==>ee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	478	600	
==>ee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	478	600	
==>ee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thin <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3976	4096	
==>node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos', <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3976	4096	
==>node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos', <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	826	946	
==>node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5161	5331	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5161	5331	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5161	5331	
==>y->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1571	1685	
==>x.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1571	1685	
==>x.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1571	1685	
==>x.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5397	5498	
==>er of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5397	5498	
==>er of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5397	5498	
==>er of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7217	7305	
==>b { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_d <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1042	1130	
==>b { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_d <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3736	3837	
==>e( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7213	7314	
==>e( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs } <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6170	6271	
==>e( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1487	1585	
==>>code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1821	1919	
==>ve = (shift)->to_native;
    list->new(values %native);
}

sub length { (shift)->keys->length }

su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1487	1585	
==>>code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3692	3838	
==>me =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Var <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5009	5155	
==>me =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Var <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3692	3838	
==>me =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Var <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4997	5143	
==>me =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Var <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	97	197	
==>trict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasynt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	97	197	
==>trict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasynt <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7636	7738	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6766	6868	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3352	3454	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3352	3454	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7636	7738	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6766	6868	
==>i sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- IIRC, there <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12102	12273	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3613	3784	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12102	12273	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3613	3784	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12102	12273	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3613	3784	
==>TO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9291	9420	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12264	12393	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9291	9420	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12264	12393	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9291	9420	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12264	12393	
==>6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3101	3211	
==>lf.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3101	3211	
==>lf.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3101	3211	
==>lf.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38426	38519	
==>es: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURA <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42975	43068	
==>es: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURA <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42625	42718	
==>es: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13079	13196	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10363	10480	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13079	13196	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10363	10480	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13079	13196	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10363	10480	
==>hod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... 
    $p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5236	5371	
==>e =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5248	5383	
==>e =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref( <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1946	2060	
==>b _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_win32} = ( $^O =~ /^(M <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	943	1032	
==>se Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	943	1032	
==>se Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	943	1032	
==>se Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2461	2597	
==>n join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2461	2597	
==>n join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' . <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2461	2597	
==>n join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' . <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3412	3505	
==>er framework. The class itself is actually a factory for
classes which C<does> the Test::Build <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3412	3505	
==>er framework. The class itself is actually a factory for
classes which C<does> the Test::Build <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5609	5702	
==>er framework. The class itself is actually a factory for
classes which C<does> the Test::Build <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24026	24157	
==>attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24026	24157	
==>attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24026	24157	
==>attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1096	1189	
==>fix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1096	1189	
==>fix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1096	1189	
==>fix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1859	1953	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4150	4244	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1822	1916	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1859	1953	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4150	4244	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1822	1916	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9867	9980	
==>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9867	9980	
==>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9867	9980	
==>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2J <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8983	9078	
==>, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other above <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8983	9078	
==>, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other above <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28925	29020	
==>n ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are pre-con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1990	2095	
==>s;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1990	2095	
==>s;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1990	2095	
==>s;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::d <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1275	1376	
==>%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("H <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1275	1376	
==>%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("H <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1275	1376	
==>%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("H <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7419	7529	
==>}
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7419	7529	
==>}
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1458	1564	
==>nt FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compilation error: ", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16008	16105	
==>es get compiled into some
altered form the first time they are run. The result is cached into
C<.p <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16008	16105	
==>es get compiled into some
altered form the first time they are run. The result is cached into
C<.p <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	693	790	
==>flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15672	15798	
==>::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15672	15798	
==>::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15672	15798	
==>::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->m <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12846	12943	
==>E

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document d <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12846	12943	
==>E

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30635	30727	
==><NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> inside the F<__obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	50	147	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	222	319	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	50	147	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	222	319	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	50	147	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	222	319	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH() <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	848	1000	
==>@$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9239	9378	
==>Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descript <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1361	1494	
==>Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descript <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1361	1494	
==>Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descript <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4019	4118	
==>_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $fiel <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4019	4118	
==>_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $fiel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16965	17118	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21680	21833	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16965	17118	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21680	21833	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16965	17118	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21680	21833	
==>s (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes => $subclass;
                    $traversal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5407	5525	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8377	8495	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5407	5525	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8377	8495	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5407	5525	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8377	8495	
==>5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11138	11300	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8691	8853	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11138	11300	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8691	8853	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11138	11300	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8691	8853	
==>sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the current value out o <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	338	445	
==>self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	338	445	
==>self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2744	2839	
==>_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedT <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10664	10759	
==>_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedT <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2744	2839	
==>_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedT <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10664	10759	
==>_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5	101	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5	101	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5	101	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5	100	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5	100	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5	100	
==>r/bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_k <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5361	5486	
==>$set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        clos <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5361	5486	
==>$set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        clos <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	118	225	
==>o be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	122	229	
==>o be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	118	225	
==>o be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	122	229	
==>o be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14077	14237	
==>[ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->ex <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14077	14237	
==>[ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->ex <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14077	14237	
==>[ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->ex <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29577	29670	
==>he
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrappe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34129	34222	
==>he
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrappe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33293	33386	
==>he
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrappe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13077	13188	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10361	10472	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13077	13188	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10361	10472	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13077	13188	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10361	10472	
==>ethod_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # default to instance ... <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4631	4729	
==>ODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$de <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1087	1185	
==>postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4631	4729	
==>ODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1087	1185	
==>postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1087	1185	
==>postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6828	6926	
==>ODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6842	6971	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9812	9941	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6842	6971	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9812	9941	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6842	6971	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9812	9941	
==>a('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3647	3756	
==>eing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7124	7233	
==>eing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6081	6190	
==>eing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21569	21665	
==>};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21569	21665	
==>};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21569	21665	
==>};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13539	13648	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10823	10932	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13539	13648	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10823	10932	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13539	13648	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10823	10932	
==>);
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%:priva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2921	3039	
==>g.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2921	3039	
==>g.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2921	3039	
==>g.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10672	10781	
==>2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10672	10781	
==>2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10672	10781	
==>2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2576	2711	
==>ue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2576	2711	
==>ue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2576	2711	
==>ue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3122	3235	
==>eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3122	3235	
==>eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3122	3235	
==>eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2346	2473	
==>= qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2658	2781	
==>= qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2658	2781	
==>= qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1739	1847	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1739	1847	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1739	1847	
==>ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15311	15505	
==>->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15311	15505	
==>->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $po <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15311	15505	
==>->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1951	2054	
==>o construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1951	2054	
==>o construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1951	2054	
==>o construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1784	1914	
==>_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1784	1914	
==>_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10800	10908	
==>defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $args{progs}) {
	die "test.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	75	176	
==>ext
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sign <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	75	176	
==>ext
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sign <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	75	176	
==>ext
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sign <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3369	3471	
==>aque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subme <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3369	3471	
==>aque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subme <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3369	3471	
==>aque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4009	4105	
==>unction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4009	4105	
==>unction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "I <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4009	4105	
==>unction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3425	3551	
==>hod);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3425	3551	
==>hod);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3425	3551	
==>hod);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $sel <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	962	1075	
==>} elsif ($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\te <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3928	4024	
==>istributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3928	4024	
==>istributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10432	10537	
==>ator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2405	2510	
==>s (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lex <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10432	10537	
==>ator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2405	2510	
==>s (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lex <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2405	2510	
==>s (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13769	13896	
==>y $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13769	13896	
==>y $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13769	13896	
==>y $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	990	1103	
==>. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	990	1103	
==>. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	990	1103	
==>. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32340	32485	
==>$length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32340	32485	
==>$length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32340	32485	
==>$length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20038	20133	
==>ct Hash,
or various combinations of other data types.

While the implementation can be changed g <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24590	24685	
==>ct Hash,
or various combinations of other data types.

While the implementation can be changed g <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23142	23237	
==>ct Hash,
or various combinations of other data types.

While the implementation can be changed g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20691	20797	
==>ace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22358	22464	
==>1
      <'case'> <Expression> <':'> <StatementList>?
}
rule DefaultClause :words {  # see 12.11
      <'def <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20691	20797	
==>ace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20691	20797	
==>ace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7940	8038	
==>IPTION

This class represents an ordered set of spans.

The problem this class solves is when you n <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7940	8038	
==>IPTION

This class represents an ordered set of spans.

The problem this class solves is when you n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2654	2774	
==>:stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2654	2774	
==>:stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2654	2774	
==>:stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3653	3771	
==>enamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7130	7248	
==>enamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6087	6205	
==>enamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9602	9722	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7149	7269	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9602	9722	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7149	7269	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9602	9722	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7149	7269	
==>scendant_dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10075	10238	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7626	7789	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10075	10238	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7626	7789	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10075	10238	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7626	7789	
==>);
    return sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3501	3635	
==>block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = su <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1859	1993	
==>block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2639	2773	
==>block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1871	1975	
==>def; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1871	1975	
==>def; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1871	1975	
==>def; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13413	13571	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13413	13571	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13413	13571	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5655	5813	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4155	4313	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2298	2456	
==>size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5279	5377	
==>We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5279	5377	
==>We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5279	5377	
==>We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &i <==
6	/Users/nnunley/pugs/util/package-osx.pl	3243	3349	
==>l6/Pugs/.packlist
        /Library/Perl/5.8.6/v6.pm
        /Library/Perl/5.8.6/Inline/Pugs.pm
        /usr <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1749	1845	
==>the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1749	1845	
==>the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5721	5819	
==>rs!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4851	4949	
==>rs!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5721	5819	
==>rs!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4851	4949	
==>rs!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
} <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	972	1065	
==>file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {} <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	972	1065	
==>file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12845	12997	
==>LKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12845	12997	
==>LKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12845	12997	
==>LKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || conf <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	664	769	
==>aft.pod 8651.
multi  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	4818	4922	
==>do, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool i <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4876	4980	
==>do, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1124	1306	
==>$last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1124	1306	
==>$last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1124	1306	
==>$last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1691	1789	
==>e::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1691	1789	
==>e::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1691	1789	
==>e::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClas <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29620	29727	
==>PP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29620	29727	
==>PP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27824	27919	
==>is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C< <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	424	519	
==>PP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32376	32471	
==>is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C< <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31468	31563	
==>is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1488	1595	
==>TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1488	1595	
==>TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1488	1595	
==>TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3309	3410	
==>ap {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3309	3410	
==>ap {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3309	3410	
==>ap {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8315	8492	
==>tems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8315	8492	
==>tems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8315	8492	
==>tems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4833	4934	
==>'t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4833	4934	
==>'t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4833	4934	
==>'t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1119	1269	
==>is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has In <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1119	1269	
==>is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has In <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23929	24030	
==>a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22702	22803	
==>a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23929	24030	
==>a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22702	22803	
==>a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17775	17913	
==>method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17775	17913	
==>method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17775	17913	
==>method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11647	11753	
==>_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11647	11753	
==>_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11647	11753	
==>_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8163	8288	
==>ven variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8163	8288	
==>ven variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8163	8288	
==>ven variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	986	1084	
==>rits a number of new attributes from various sources
# and we need to now create these attributes i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	986	1084	
==>rits a number of new attributes from various sources
# and we need to now create these attributes i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	986	1084	
==>rits a number of new attributes from various sources
# and we need to now create these attributes i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5678	5800	
==>cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

s <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5678	5800	
==>cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	631	728	
==>>compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	631	728	
==>>compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15437	15531	
==>or a variance of needs between its different
users, such as their preferred language of communi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15437	15531	
==>or a variance of needs between its different
users, such as their preferred language of communi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	261	371	
==>s a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	261	371	
==>s a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	261	371	
==>s a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4975	5081	
==>od(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4975	5081	
==>od(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4975	5081	
==>od(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3732	3910	
==>thods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3732	3910	
==>thods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3732	3910	
==>thods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15302	15402	
==>b shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15302	15402	
==>b shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15302	15402	
==>b shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2318	2456	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2318	2456	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2318	2456	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4041	4147	
==>int $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4041	4147	
==>int $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the matc <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12030	12128	
==>erse the order of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator.

If all crite <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1220	1355	
==>ass {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1220	1355	
==>ass {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1220	1355	
==>ass {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11774	11872	
==>s
and roles can be polymorphic to one another. 

Because instances of class all conform to the Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11774	11872	
==>s
and roles can be polymorphic to one another. 

Because instances of class all conform to the Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11774	11872	
==>s
and roles can be polymorphic to one another. 

Because instances of class all conform to the Role <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3181	3303	
==>",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3181	3303	
==>",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3181	3303	
==>",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14714	14813	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14714	14813	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14714	14813	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $ <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	4029	4148	
==>";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d $pat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	93	196	
==>RAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	93	196	
==>RAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	93	196	
==>RAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (d <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	806	900	
==>t.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.micros <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	691	777	
==>t.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.micros <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16497	16599	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21214	21316	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16497	16599	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21214	21316	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16497	16599	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21214	21316	
==>TE:
# this *might* work correctly, it should
# collect all the classes, then call DESTROY
# on all them <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2670	2762	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	2013	2105	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2670	2762	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	2013	2105	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2670	2762	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	2013	2105	
==>sis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	861	963	
==>') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	861	963	
==>') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	861	963	
==>') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2125	2204	
==>&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|ru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2125	2204	
==>&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|ru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2125	2204	
==>&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|ru <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1914	2008	
==>Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1914	2008	
==>Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1914	2008	
==>Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6435	6524	
==>NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6435	6524	
==>NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6435	6524	
==>NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14246	14463	
==>,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14246	14463	
==>,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14246	14463	
==>,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Valu <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	30407	30499	
==>he Perl source
directory.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org/> <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23729	23820	
==>a::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a R <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23729	23820	
==>a::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11248	11401	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8801	8954	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11248	11401	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8801	8954	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11248	11401	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8801	8954	
==>e stack
                # get the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is nul <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14380	14518	
==>$r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            S <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17857	17995	
==>$r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            S <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17273	17411	
==>$r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            S <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17452	17580	
==>$!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20929	21057	
==>$!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20516	20644	
==>$!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9110	9239	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12083	12212	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9110	9239	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12083	12212	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9110	9239	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12083	12212	
==>StubMethod::ISA = ('Perl6::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4248	4418	
==>ds}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4248	4418	
==>ds}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4248	4418	
==>ds}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6774	6930	
==>ds}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6774	6930	
==>ds}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6774	6930	
==>ds}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3806	3924	
==>ASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3806	3924	
==>ASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3806	3924	
==>ASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  us <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13171	13282	
==>s ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13171	13282	
==>s ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13171	13282	
==>s ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2872	3001	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11568	11697	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23808	23937	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3065	3194	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11847	11976	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24087	24216	
==>_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	364	480	
==>}

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	396	512	
==>}

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4748	4853	
==>:doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n% <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4748	4853	
==>:doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n% <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4748	4853	
==>:doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n% <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12977	13070	
==>the elements specified by C<$key> or C<$keys> from the invocant.
returns the value(s) that wer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9331	9439	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6878	6986	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9331	9439	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6878	6986	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9331	9439	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6878	6986	
==>f ($order eq ':breadth') {
        $dispatcher = $self->_make_breadth_dispatcher();
    }
    elsif ($order e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1045	1172	
==>g;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1045	1172	
==>g;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1045	1172	
==>g;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	243	340	
==>pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	243	340	
==>pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	243	340	
==>pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4893	5012	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7542	7661	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5106	5219	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11555	11668	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5106	5219	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11555	11668	
==>ete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is use <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11372	11494	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2884	3006	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11372	11494	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2884	3006	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11372	11494	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2884	3006	
==>ox.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9002	9134	
==>oot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	736	868	
==>oot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9002	9134	
==>oot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9002	9134	
==>oot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7849	7953	
==>= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This c <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7849	7953	
==>= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16440	16583	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21157	21300	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16440	16583	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21157	21300	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16440	16583	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21157	21300	
==>er;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, then call DESTR <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	259	373	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	472	586	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	259	373	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	472	586	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	259	373	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	472	586	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	591	693	
==>ot a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	591	693	
==>ot a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	591	693	
==>ot a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12068	12241	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12840	13013	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12068	12241	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12840	13013	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12068	12241	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12840	13013	
==>ty;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1908	2086	
==>ass,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2113	2291	
==>ass,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and ove <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2176	2354	
==>ass,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and ove <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17007	17107	
==>_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOP <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17007	17107	
==>_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOP <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17007	17107	
==>_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOP <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4761	4899	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2948	3086	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4761	4899	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2948	3086	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4761	4899	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2948	3086	
==>do this 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9597	9719	
==>$self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9597	9719	
==>$self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9597	9719	
==>$self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	374	480	
==>g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	374	480	
==>g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	374	480	
==>g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20857	20975	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21501	21619	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17278	17396	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17922	18040	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17018	17120	
==>le usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17018	17120	
==>le usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	11672	11808	
==>and($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Pote <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4836	4954	
==>Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13261	13379	
==>Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15872	15990	
==>Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17360	17478	
==>Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22043	22161	
==>Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14270	14392	
==>ake_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14270	14392	
==>ake_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14270	14392	
==>ake_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    re <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	394	491	
==>dir( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Returns true on success, <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	385	480	
==>nt<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	385	480	
==>nt<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7177	7302	
==>icalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7177	7302	
==>icalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7177	7302	
==>icalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6758	6857	
==>ss "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6758	6857	
==>ss "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6758	6857	
==>ss "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11435	11552	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16165	16282	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11435	11552	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16165	16282	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11435	11552	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16165	16282	
==>I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12734	12887	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19571	19724	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20724	20877	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13013	13166	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19850	20003	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21003	21156	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2027	2242	
==>nt_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $in <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2027	2242	
==>nt_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $in <==
6	/Users/nnunley/pugs/util/package-osx.pl	190	297	
==>and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $rem <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1737	1834	
==>, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1737	1834	
==>, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1737	1834	
==>, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4175	4293	
==>_('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4175	4293	
==>_('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4175	4293	
==>_('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scala <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1768	1869	
==>($indent -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::D <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1166	1262	
==>ign and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of P <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1166	1262	
==>ign and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of P <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	203	317	
==>m $delta = 0.1;
    return ($f($x + $delta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    C <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	980	1086	
==>makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1871	1977	
==>makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	102	195	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	102	195	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	102	195	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2372	2476	
==>:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2372	2476	
==>:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21528	21625	
==>re all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is give <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20409	20506	
==>re all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is give <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21528	21625	
==>re all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is give <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20409	20506	
==>re all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is give <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5350	5453	
==>> 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5350	5453	
==>> 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5350	5453	
==>> 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4096	4188	
==>----------------------------------------------------
## NOTE:
## code in this section has spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4096	4188	
==>----------------------------------------------------
## NOTE:
## code in this section has spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4096	4188	
==>----------------------------------------------------
## NOTE:
## code in this section has spe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2303	2408	
==>turn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2303	2408	
==>turn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2303	2408	
==>turn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13757	13857	
==>$args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13757	13857	
==>$args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13757	13857	
==>$args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DI <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27044	27141	
==>s to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<sele <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31596	31693	
==>s to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<sele <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30652	30749	
==>s to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<sele <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7957	8108	
==>sfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver" <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8421	8572	
==>sfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver" <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23691	23781	
==>ICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTIC <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22464	22554	
==>ICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTIC <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23691	23781	
==>ICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTIC <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22464	22554	
==>ICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTIC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11093	11228	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8646	8781	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11093	11228	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8646	8781	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11093	11228	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8646	8781	
==>ake_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5325	5440	
==>return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6593	6708	
==>return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5325	5440	
==>return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6581	6696	
==>return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2373	2461	
==>$other.size && $other.includes($self.members));
}
method superset($self: Set $other) retu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2373	2461	
==>$other.size && $other.includes($self.members));
}
method superset($self: Set $other) retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29731	29921	
==>) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29731	29921	
==>) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29731	29921	
==>) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22498	22594	
==>nt - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22498	22594	
==>nt - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22498	22594	
==>nt - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	318	432	
==>RSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	318	432	
==>RSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	318	432	
==>RSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	745	843	
==>cl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	745	843	
==>cl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	745	843	
==>cl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2344	2490	
==>re( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2344	2490	
==>re( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2344	2490	
==>re( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11416	11510	
==>predictable 
behavior to class consturction because it isolates the Role specifc
code to the cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11416	11510	
==>predictable 
behavior to class consturction because it isolates the Role specifc
code to the cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11416	11510	
==>predictable 
behavior to class consturction because it isolates the Role specifc
code to the cl <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6369	6508	
==>nately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with n <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6369	6508	
==>nately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1702	1818	
==>lt: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1702	1818	
==>lt: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1702	1818	
==>lt: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	466	571	
==>an, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$.output'   => $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4345	4458	
==>_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4345	4458	
==>_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4345	4458	
==>_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wri <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23665	23766	
==>ult to True or
False, but once it has a value of False, it can not be further changed;
this class defa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28217	28318	
==>ult to True or
False, but once it has a value of False, it can not be further changed;
this class defa <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27030	27131	
==>ult to True or
False, but once it has a value of False, it can not be further changed;
this class defa <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	375	512	
==>%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh. <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	375	512	
==>%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh. <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	166	257	
==>------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	189	280	
==>-
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --------------------------------------- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	166	257	
==>------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------- <==
6	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	189	280	
==>-
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3593	3708	
==>ame) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3593	3708	
==>ame) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3593	3708	
==>ame) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js . <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4125	4220	
==>he options passed to the 
C<new> constructor generally include some sort of key, and sometimes a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25332	25427	
==>t <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24096	24191	
==>t <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4125	4220	
==>he options passed to the 
C<new> constructor generally include some sort of key, and sometimes a <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25332	25427	
==>t <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24096	24191	
==>t <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2601	2726	
==>native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2601	2726	
==>native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2601	2726	
==>native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6241	6349	
==>ice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6241	6349	
==>ice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, <==
6	/Users/nnunley/pugs/util/run-smoke.pl	2735	2833	
==>Smoke matrix saved as '$html_location'.
    You may want to submit the report to the public smokese <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1752	1878	
==>ture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1945	2071	
==>ture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2623	2718	
==>and semantics.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently the mo <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4268	4361	
==>ssing on the C<$description> and
C<$reason> parameters and a true value for the passed paramet <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4268	4361	
==>ssing on the C<$description> and
C<$reason> parameters and a true value for the passed paramet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6465	6558	
==>ssing on the C<$description> and
C<$reason> parameters and a true value for the passed paramet <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10095	10224	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12736	12865	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13572	13701	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16213	16342	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12853	12982	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15575	15704	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!heading) {
        # B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8931	9082	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11904	12055	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8931	9082	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11904	12055	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8931	9082	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11904	12055	
==>just packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::S <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2693	2790	
==>ckend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builde <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2693	2790	
==>ckend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4217	4314	
==>ckend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14533	14629	
==>ds'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14533	14629	
==>ds'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14533	14629	
==>ds'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    = <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22139	22251	
==>ch is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotatio <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17040	17151	
==>ch is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotatio <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6292	6399	
==>n the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5365	5472	
==>n the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6292	6399	
==>n the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5365	5472	
==>n the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2445	2548	
==>$self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2445	2548	
==>$self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2445	2548	
==>$self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2	100	
==>ckage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2	100	
==>ckage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2	100	
==>ckage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17591	17776	
==>f)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17591	17776	
==>f)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17591	17776	
==>f)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22084	22183	
==>ich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26636	26735	
==>ich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25332	25431	
==>ich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29926	30046	
==>b items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29926	30046	
==>b items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29926	30046	
==>b items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fro <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5660	5759	
==>)    --> "(?!",  !, p5_start(R), ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_start(Rx), <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3468	3564	
==>has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3468	3564	
==>has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10157	10287	
==>p ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10157	10287	
==>p ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10157	10287	
==>p ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $m <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4245	4357	
==>List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'P <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4245	4357	
==>List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'P <==
6	/Users/nnunley/pugs/util/config_h.pl	1148	1245	
==>stem.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(< <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	743	842	
==>$_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4110	4206	
==>}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4110	4206	
==>}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4700	4796	
==>}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1177	1269	
==>ntained reference implementation of a Rosetta Engine

=head1 VERSION

This document describes <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1177	1269	
==>ntained reference implementation of a Rosetta Engine

=head1 VERSION

This document describes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10483	10612	
==>grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classe <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10483	10612	
==>grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classe <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22829	22946	
==>=> $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19250	19367	
==>=> $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @ <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7518	7614	
==>ift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list conta <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7518	7614	
==>ift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list conta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2338	2434	
==>::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2338	2434	
==>::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obje <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2338	2434	
==>::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1290	1382	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1290	1382	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1290	1382	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3597	3713	
==>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3848	3961	
==>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3848	3961	
==>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1620	1711	
==>'(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1620	1711	
==>'(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1620	1711	
==>'(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15746	15919	
==>re ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15746	15919	
==>re ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15746	15919	
==>re ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20467	20636	
==>re ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20467	20636	
==>re ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20467	20636	
==>re ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our own multi registry to handle scopi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	815	960	
==>efined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	815	960	
==>efined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	815	960	
==>efined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7495	7631	
==>}
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7495	7631	
==>}
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7495	7631	
==>}
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7351	7460	
==>- needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7351	7460	
==>- needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7351	7460	
==>- needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4039	4135	
==>arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurp <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4039	4135	
==>arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurp <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4629	4725	
==>arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14199	14401	
==>($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14199	14401	
==>($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14199	14401	
==>($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2793	2893	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2793	2893	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Has <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2793	2893	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Has <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	232	368	
==>l'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	232	368	
==>l'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4469	4579	
==>,
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4469	4579	
==>,
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3298	3400	
==>yServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHO <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3298	3400	
==>yServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7899	8043	
==>turn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7899	8043	
==>turn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7899	8043	
==>turn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        m <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	23431	23539	
==>($$@) {
    my($max,$skipped,@failed) = @_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$seen{$_}++, @ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5964	6069	
==>l {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5964	6069	
==>l {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5143	5273	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5143	5273	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5143	5273	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1144	1267	
==>(
        '}' => q( { return { stmt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21187	21284	
==>er tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping wher <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25739	25836	
==>er tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping wher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	637	754	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	725	842	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	637	754	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	725	842	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	637	754	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	725	842	
==>njs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16662	16776	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13867	13981	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16662	16776	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13867	13981	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16662	16776	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13867	13981	
==>$next = $dispatcher->()) {   
        return $next->get_attribute($label, %params)
            if $next->has_attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6519	6662	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8968	9111	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6519	6662	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8968	9111	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6519	6662	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8968	9111	
==>$i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not implemente <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5421	5518	
==>ot::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5421	5518	
==>ot::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5421	5518	
==>ot::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	219	315	
==>roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These funct <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	219	315	
==>roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These funct <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	219	315	
==>roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	289	395	
==>);

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	289	395	
==>);

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	289	395	
==>);

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4022	4118	
==>t @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4022	4118	
==>t @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4022	4118	
==>t @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12303	12438	
==>thod report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.descript <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2687	2816	
==>thod report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.descript <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2687	2816	
==>thod report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.descript <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1397	1496	
==>= args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1397	1496	
==>= args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1397	1496	
==>= args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retur <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3291	3410	
==>rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, s <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3291	3410	
==>rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21590	21686	
==>pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20471	20567	
==>pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21590	21686	
==>pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20471	20567	
==>pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3697	3851	
==>..
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3697	3851	
==>..
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3697	3851	
==>..
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12335	12449	
==>rror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12335	12449	
==>rror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12335	12449	
==>rror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3698	3878	
==>'$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Jun <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3698	3878	
==>'$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Jun <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3698	3878	
==>'$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Jun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5213	5342	
==>?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5213	5342	
==>?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5213	5342	
==>?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3058	3254	
==>|
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3305	3501	
==>|
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5952	6118	
==>y $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6416	6582	
==>y $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14928	15037	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12182	12291	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14928	15037	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12182	12291	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14928	15037	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12182	12291	
==>n attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) eq ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	611	735	
==>f->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11705	11829	
==>f->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25347	25445	
==>e>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24111	24209	
==>e>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25347	25445	
==>e>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24111	24209	
==>e>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23717	23817	
==>se, it can not be further changed;
this class defaults it to False.

=back

This is the main Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28269	28369	
==>se, it can not be further changed;
this class defaults it to False.

=back

This is the main Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27082	27182	
==>se, it can not be further changed;
this class defaults it to False.

=back

This is the main Relation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5600	5697	
==>ould
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5600	5697	
==>ould
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5600	5697	
==>ould
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13059	13168	
==>e') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13059	13168	
==>e') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13059	13168	
==>e') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6085	6185	
==>on of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6085	6185	
==>on of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6085	6185	
==>on of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17669	17793	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14889	15013	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17669	17793	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14889	15013	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17669	17793	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14889	15013	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1, for => ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14699	14817	
==>urn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

packa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14699	14817	
==>urn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

packa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14699	14817	
==>urn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

packa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9935	10048	
==>with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9935	10048	
==>with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9935	10048	
==>with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25661	25774	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27856	27969	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25661	25774	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27856	27969	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25661	25774	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27856	27969	
==>= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4441	4545	
==>:" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4441	4545	
==>:" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4441	4545	
==>:" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	219	319	
==>SOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	219	319	
==>SOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	219	319	
==>SOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	598	728	
==>)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	609	739	
==>)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1791	1913	
==>is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1791	1913	
==>is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1791	1913	
==>is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do y <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	327	420	
==>::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARG <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5816	5937	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8786	8907	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5816	5937	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8786	8907	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5816	5937	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8786	8907	
==>ubs below
        return $method if blessed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($me <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7792	7892	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6922	7022	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3508	3608	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3508	3608	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7792	7892	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6922	7022	
==>'t be
# necessary.
multi sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11933	12129	
==>+ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11933	12129	
==>+ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11933	12129	
==>+ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	80	195	
==>PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	80	195	
==>PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	80	195	
==>PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19843	19941	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16982	17080	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19843	19941	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16982	17080	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19843	19941	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16982	17080	
==>rect ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8926	9062	
==>anation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown pla <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1078	1202	
==>anation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown pla <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1078	1202	
==>anation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown pla <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	198	306	
==>pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	404	512	
==>pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34629	34721	
==>(if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is the definition of F<Re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2292	2564	
==>eading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5769	6041	
==>eading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4699	4971	
==>eading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	279	379	
==>o on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	279	379	
==>o on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obj <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	279	379	
==>o on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3145	3258	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5946	6059	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3145	3258	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5946	6059	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3145	3258	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5946	6059	
==>6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3010	3106	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6024	6120	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8092	8188	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3010	3106	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6024	6120	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8092	8188	
==>rootdir returns Str`

- `devnull returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3781	3948	
==>(@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3781	3948	
==>(@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3781	3948	
==>(@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1554	1659	
==>Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1554	1659	
==>Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1554	1659	
==>Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	683	787	
==>ant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	683	787	
==>ant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	683	787	
==>ant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1406	1508	
==>alue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1406	1508	
==>alue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1406	1508	
==>alue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	567	681	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	889	1003	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1268	1382	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	567	681	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	889	1003	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1268	1382	
==>y = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7841	7958	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10764	10881	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7841	7958	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10764	10881	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7841	7958	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10764	10881	
==>icit test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if bless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1830	1963	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1830	1963	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1830	1963	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{clas <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	3692	3794	
==>sh @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensions {
    my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8470	8567	
==>label};
}


(method get_method ((opaque $self:) (symbol $label)) returns method
    ((($self: get_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	445	556	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	443	554	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	445	556	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	443	554	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	445	556	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	443	554	
==>que ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1055	1181	
==>$.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1055	1181	
==>$.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3829	3944	
==>t {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3829	3944	
==>t {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4363	4472	
==>t {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $c <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4363	4472	
==>t {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12580	12700	
==>XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2946	3064	
==>XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2946	3064	
==>XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12022	12133	
==>XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2426	2535	
==>XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2426	2535	
==>XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2769	2892	
==>$class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2769	2892	
==>$class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2769	2892	
==>$class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2541	2641	
==>0],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2541	2641	
==>0],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2541	2641	
==>0],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18270	18393	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15508	15631	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18270	18393	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15508	15631	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18270	18393	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15508	15631	
==>ce_attr($self => '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2802	2923	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5792	5913	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3091	3206	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9509	9624	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3091	3206	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9509	9624	
==>ll_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2700	2826	
==>f $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2700	2826	
==>f $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2700	2826	
==>f $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16095	16195	
==>l, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16095	16195	
==>l, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16095	16195	
==>l, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1388	1513	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2951	3076	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1388	1513	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2951	3076	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1388	1513	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2951	3076	
==>aracteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the abov <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14823	14936	
==>eturn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class- <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14823	14936	
==>eturn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class- <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1942	2035	
==>:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1905	1998	
==>:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1942	2035	
==>:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1905	1998	
==>:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3247	3510	
==>ist');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $ <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3247	3510	
==>ist');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12544	12643	
==>he result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12602	12701	
==>he result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8083	8181	
==>tr $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8083	8181	
==>tr $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5514	5612	
==>:Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5514	5612	
==>:Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5514	5612	
==>:Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19880	19987	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17019	17126	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19880	19987	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17019	17126	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19880	19987	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17019	17126	
==>.(\.|\:).*$/ && (blessed($value) && $value->isa('Perl6::Attribute'))) {
        # only store instance attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4427	4588	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6939	7100	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4427	4588	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6939	7100	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4427	4588	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6939	7100	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinc <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5519	5707	
==>("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5519	5707	
==>("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	56	158	
==>marFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	56	158	
==>marFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	56	156	
==>marFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	56	156	
==>marFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6039	6208	
==>hifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6039	6208	
==>hifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6039	6208	
==>hifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11021	11159	
==>nt __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8087	8221	
==>nt __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8087	8221	
==>nt __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3130	3232	
==>arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3130	3232	
==>arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3130	3232	
==>arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5485	5583	
==>s_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5485	5583	
==>s_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5485	5583	
==>s_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMai <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3510	3641	
==>tch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3510	3641	
==>tch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3510	3641	
==>tch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	463	563	
==>Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	463	563	
==>Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	463	563	
==>Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	304	401	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	628	725	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	304	401	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	628	725	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	304	401	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	628	725	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)") <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	712	864	
==>ile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3783	3935	
==>ile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	712	864	
==>ile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3783	3935	
==>ile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $m <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23841	23932	
==>han alternatives, and doesn't know about language specific details like
encodings or plurali <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23841	23932	
==>han alternatives, and doesn't know about language specific details like
encodings or plurali <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9188	9283	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4331	4426	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15767	15862	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9188	9283	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4331	4426	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15767	15862	
==>()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to t <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38192	38306	
==>= @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1856	1964	
==>ass, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $cla <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1856	1964	
==>ass, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4164	4259	
==>onstructor, and when calling these methods you should take care not
to call them in function for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4164	4259	
==>onstructor, and when calling these methods you should take care not
to call them in function for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4164	4259	
==>onstructor, and when calling these methods you should take care not
to call them in function for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1065	1175	
==>_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1065	1175	
==>_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1065	1175	
==>_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2293	2382	
==>que_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2293	2382	
==>que_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2293	2382	
==>que_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3905	4015	
==>lf, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3905	4015	
==>lf, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3905	4015	
==>lf, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4743	4836	
==>es whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the orig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4743	4836	
==>es whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the orig <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4743	4836	
==>es whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the orig <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2044	2172	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1156	1284	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2044	2172	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1156	1284	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2044	2172	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1156	1284	
==>ith them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3225	3390	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4031	4196	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1972	2137	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3225	3390	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4031	4196	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1972	2137	
==>nt => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12364	12473	
==>oxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12364	12473	
==>oxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12364	12473	
==>oxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5711	5811	
==>e to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5711	5811	
==>e to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5711	5811	
==>e to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	191	303	
==>vel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	191	303	
==>vel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub pe <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	191	303	
==>vel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12906	13001	
==>{...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12906	13001	
==>{...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB d <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12906	13001	
==>{...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9603	9787	
==>air = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9603	9787	
==>air = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9603	9787	
==>air = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1305	1402	
==>run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stateme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1305	1402	
==>run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stateme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1305	1402	
==>run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stateme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7882	7990	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10805	10913	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7882	7990	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10805	10913	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7882	7990	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10805	10913	
==>ke_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13639	13826	
==>]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13639	13826	
==>]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13639	13826	
==>]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2278	2372	
==>kage'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2278	2372	
==>kage'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2278	2372	
==>kage'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	916	1057	
==>art;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.s <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4155	4296	
==>art;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	916	1057	
==>art;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4155	4296	
==>art;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27767	27860	
==>named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attrib <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27767	27860	
==>named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8267	8365	
==>ef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1452	1550	
==>(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8267	8365	
==>ef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1452	1550	
==>(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8267	8365	
==>ef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1452	1550	
==>(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9640	9758	
==>x_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9640	9758	
==>x_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9640	9758	
==>x_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11600	11714	
==>be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::status();
          $statu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2036	2146	
==>be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $statu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2036	2146	
==>be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $statu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11543	11706	
==>ned $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11543	11706	
==>ned $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11543	11706	
==>ned $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	537	637	
==>(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	537	637	
==>(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	537	637	
==>(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9998	10136	
==>d =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9998	10136	
==>d =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9998	10136	
==>d =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5087	5201	
==>m_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5087	5201	
==>m_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5087	5201	
==>m_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2497	2599	
==>turn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2497	2599	
==>turn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2497	2599	
==>turn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	897	992	
==>N {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	897	992	
==>N {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	897	992	
==>N {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	317	419	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	641	743	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	317	419	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	641	743	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	317	419	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	641	743	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName = <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1648	1771	
==>replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (! <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2229	2352	
==>replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (! <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1648	1771	
==>replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (! <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2229	2352	
==>replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (! <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5623	5729	
==>ation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5623	5729	
==>ation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13875	14038	
==>);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3988	4131	
==>);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3988	4131	
==>);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3988	4131	
==>);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @ <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	378	504	
==>{
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32 <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	378	504	
==>{
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	234	350	
==>ft;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        ass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	573	671	
==>es". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	573	671	
==>es". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	573	671	
==>es". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41177	41272	
==>es into the same files as
program code, rather than requiring separate files.

=item Stevan Litt <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41177	41272	
==>es into the same files as
program code, rather than requiring separate files.

=item Stevan Litt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2931	3084	
==>tch: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2835	2984	
==>tch: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1470	1593	
==>um_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1470	1593	
==>um_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4854	4955	
==>'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4854	4955	
==>'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14947	15085	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14947	15085	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14947	15085	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19646	19783	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19646	19783	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19646	19783	
==>my @autoload = (split '::', our $AUTOLOAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DEST <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1270	1367	
==>ontaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9815	9912	
==>PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1270	1367	
==>ontaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9815	9912	
==>PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9815	9912	
==>PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1817	1914	
==>ontaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18673	18879	
==>ORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18673	18879	
==>ORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18673	18879	
==>ORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2159	2310	
==>$s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2159	2310	
==>$s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2159	2310	
==>$s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5246	5356	
==>Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5246	5356	
==>Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2714	2824	
==>eturn $provides;
}

sub auto_provides {
    my $self = shift;
    return $self unless $self->is_admin;

    unl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	678	766	
==>$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	678	766	
==>$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	678	766	
==>$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14098	14231	
==>nless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14098	14231	
==>nless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14098	14231	
==>nless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3690	3786	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6709	6805	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8778	8874	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3690	3786	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6709	6805	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8778	8874	
==>c::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3269	3384	
==>?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3269	3384	
==>?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3269	3384	
==>?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8770	8879	
==>~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8770	8879	
==>~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8770	8879	
==>~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	768	899	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	856	987	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	768	899	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	856	987	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	768	899	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	856	987	
==>hift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11329	11492	
==>a::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7611	7774	
==>a::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8445	8608	
==>a::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11782	11867	
==>X::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11782	11867	
==>X::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11782	11867	
==>X::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9967	10083	
==>(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{( <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9967	10083	
==>(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{( <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3326	3425	
==>E;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1087	1185	
==>XX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1087	1185	
==>XX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1087	1185	
==>XX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5517	5665	
==>.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5517	5665	
==>.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5517	5665	
==>.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6740	6848	
==>vocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritabl <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6740	6848	
==>vocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritabl <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3639	3747	
==>vocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritabl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16233	16351	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20950	21068	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16233	16351	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20950	21068	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16233	16351	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20950	21068	
==>t;
        Class::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5063	5203	
==>y eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5063	5203	
==>y eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5063	5203	
==>y eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	994	1113	
==>nstance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	994	1113	
==>nstance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	994	1113	
==>nstance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12251	12367	
==>_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" . <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8527	8643	
==>_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" . <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9362	9478	
==>_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4603	4713	
==>_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4603	4713	
==>_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4603	4713	
==>_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	699	825	
==>t redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	699	825	
==>t redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	699	825	
==>t redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9637	9748	
==>ilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub wi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9637	9748	
==>ilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub wi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9637	9748	
==>ilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24892	25040	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27081	27229	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24892	25040	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27081	27229	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24892	25040	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27081	27229	
==>ss defined $samples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6739	6863	
==>$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6739	6863	
==>$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6739	6863	
==>$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2554	2646	
==>patcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2554	2646	
==>patcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2554	2646	
==>patcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.n <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5291	5419	
==>ersion) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Config{osname} eq "cygwin" 
                            or $Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1712	1831	
==>ew_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1712	1831	
==>ew_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1712	1831	
==>ew_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so w <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11095	11190	
==>that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence obje <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11095	11190	
==>that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7868	7986	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10791	10909	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7868	7986	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10791	10909	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7868	7986	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10791	10909	
==>.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	789	934	
==>d_rule( 
        name => '*',
        assoc => 'left',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	744	874	
==>_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	744	874	
==>_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	744	874	
==>_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17452	17550	
==>rocess, calling each compiler
at the right time with the right data.

=item *

Ability to ship prec <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17452	17550	
==>rocess, calling each compiler
at the right time with the right data.

=item *

Ability to ship prec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1409	1508	
==>();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1409	1508	
==>();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1409	1508	
==>();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3062	3262	
==>e' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3062	3262	
==>e' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3062	3262	
==>e' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4996	5095	
==>m B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4996	5095	
==>m B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6520	6619	
==>m B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3260	3422	
==>name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3260	3422	
==>name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3260	3422	
==>name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2962	3062	
==>r die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2962	3062	
==>r die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2962	3062	
==>r die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9380	9486	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6927	7033	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9380	9486	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6927	7033	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9380	9486	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6927	7033	
==>$self->_make_breadth_dispatcher();
    }
    elsif ($order eq ':descendant') {
        $dispatcher = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4561	4727	
==>urly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4561	4727	
==>urly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4561	4727	
==>urly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6379	6476	
==>thoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6379	6476	
==>thoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6379	6476	
==>thoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4264	4412	
==>{ code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2054	2160	
==>ines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2054	2160	
==>ines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=h <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1293	1390	
==>ines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3154	3251	
==>ines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=h <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	593	688	
==>gine, from the entire perl5 source.

# The exploratory effort was abandoned as insufficiently tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13865	13997	
==>=> {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13865	13997	
==>=> {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13865	13997	
==>=> {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13111	13219	
==>ckage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13111	13219	
==>ckage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13111	13219	
==>ckage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	681	800	
==>$i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	681	800	
==>$i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	681	800	
==>$i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3384	3477	
==>lf->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3384	3477	
==>lf->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3384	3477	
==>lf->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25714	25866	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27909	28061	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25714	25866	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27909	28061	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25714	25866	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27909	28061	
==>last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9051	9163	
==>O - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9039	9151	
==>O - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $t <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	4182	4281	
==>s 15, 16, 17, 18, 19 and
20 failed).

=back


=head2 Functions

Test::Harness currently only has one <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	314	545	
==>nstant IS_FILE        => sub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1046	1166	
==>thod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($metho <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12789	12909	
==>pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1046	1166	
==>thod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1046	1166	
==>thod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($metho <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13144	13259	
==>runtime";
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1269	1378	
==>rectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($dir <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1269	1378	
==>rectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($dir <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6982	7079	
==>annels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$rea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6982	7079	
==>annels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$rea <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7331	7426	
==>annels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$rea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7331	7426	
==>annels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12996	13209	
==>key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12996	13209	
==>key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12996	13209	
==>key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21343	21443	
==>the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21343	21443	
==>the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21343	21443	
==>the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defin <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	688	901	
==>ent>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events< <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	688	901	
==>ent>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events< <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10584	10706	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11046	11168	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10578	10700	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11040	11162	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	61	177	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	422	538	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	61	177	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	422	538	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	61	177	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	422	538	
==>erload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub matches {
    my ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10991	11126	
==>che{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10991	11126	
==>che{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10991	11126	
==>che{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7466	7594	
==>@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7466	7594	
==>@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7466	7594	
==>@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7766	7884	
==>ion of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7766	7884	
==>ion of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7766	7884	
==>ion of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3202	3295	
==>utes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3202	3295	
==>utes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3202	3295	
==>utes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($se <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	656	780	
==>}' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	672	796	
==>}' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	648	772	
==>}' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self-> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22344	22440	
==>rministic, such that all of its class
and object methods will each return the same result when in <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26896	26992	
==>rministic, such that all of its class
and object methods will each return the same result when in <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25619	25715	
==>rministic, such that all of its class
and object methods will each return the same result when in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1127	1246	
==>$pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1127	1246	
==>$pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1127	1246	
==>$pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2440	2535	
==>.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2440	2535	
==>.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2440	2535	
==>.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7674	7857	
==>fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7674	7857	
==>fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7674	7857	
==>fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9336	9444	
==>= @_;
    return $S->force_object(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $self->a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1173	1265	
==>o run against all Engines

=head1 VERSION

This document describes Rosetta::Validator version <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1173	1265	
==>o run against all Engines

=head1 VERSION

This document describes Rosetta::Validator version <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4532	4660	
==>warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.s <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5191	5319	
==>warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4532	4660	
==>warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5191	5319	
==>warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.s <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	895	989	
==>- macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	895	989	
==>- macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	263	388	
==>se Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	263	388	
==>se Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	263	388	
==>se Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list = <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	18280	18390	
==>aram => val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo")) <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6093	6184	
==>actually roundtrip parses this document successfully. However, more complex POD 
documents m <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6093	6184	
==>actually roundtrip parses this document successfully. However, more complex POD 
documents m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10335	10478	
==>$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6676	6819	
==>$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7525	7668	
==>$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7604	7732	
==>_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7604	7732	
==>_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7604	7732	
==>_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	104	227	
==>ata::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	146	269	
==>ata::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	104	227	
==>ata::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	146	269	
==>ata::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13562	13662	
==>andler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7770	7870	
==>andler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12215	12326	
==>s { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12215	12326	
==>s { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12215	12326	
==>s { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $k <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3776	3874	
==>st way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test s <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3776	3874	
==>st way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3856	3954	
==>st way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	314	465	
==>_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	314	465	
==>_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_ma <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	314	465	
==>_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6532	6659	
==>npack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6532	6659	
==>npack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6532	6659	
==>npack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4873	5028	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7809	7964	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4873	5028	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7809	7964	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4873	5028	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7809	7964	
==>e to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER::CLASS = $::CLASS;
            # ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16161	16287	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20878	21004	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16161	16287	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20878	21004	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16161	16287	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20878	21004	
==>y->{multi}->{$_name};
            },
        };

        my $name = shift;
        Class::Multimethods::Pure::process_multi($re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2314	2429	
==>$version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2314	2429	
==>$version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2314	2429	
==>$version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13897	13997	
==>Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13897	13997	
==>Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13897	13997	
==>Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9972	10089	
==>{        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9972	10089	
==>{        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9972	10089	
==>{        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8849	9092	
==>ch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8849	9092	
==>ch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Per <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8849	9092	
==>ch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23695	23891	
==>calar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23695	23891	
==>calar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23695	23891	
==>calar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15308	15501	
==>eys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15308	15501	
==>eys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15308	15501	
==>eys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2235	2339	
==>kages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attr <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2235	2339	
==>kages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attr <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	91	189	
==>IXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@conten <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	91	189	
==>IXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@conten <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13355	13450	
==>inated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13355	13450	
==>inated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33670	33790	
==>$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33670	33790	
==>$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33670	33790	
==>$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	898	1003	
==>ing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 20 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	898	1003	
==>ing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 20 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	898	1003	
==>ing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 20 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	417	536	
==>TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	417	536	
==>TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9104	9247	
==>.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9104	9247	
==>.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9104	9247	
==>.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13723	13849	
==>Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13723	13849	
==>Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13723	13849	
==>Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25257	25360	
==>n of its
arguments and any invocant object's attributes is identical; they do not
interact with the outs <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11388	11491	
==>n of its
arguments and any invocant object's attributes is identical; they do not
interact with the outs <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14661	14764	
==>n of its arguments and any invocant
object's attributes is identical; they do not interact with the outs <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25257	25360	
==>n of its
arguments and any invocant object's attributes is identical; they do not
interact with the outs <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11388	11491	
==>n of its
arguments and any invocant object's attributes is identical; they do not
interact with the outs <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14661	14764	
==>n of its arguments and any invocant
object's attributes is identical; they do not interact with the outs <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11311	11444	
==>.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11311	11444	
==>.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.spa <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2915	3017	
==>are; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3072	3174	
==>are; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2915	3017	
==>are; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3072	3174	
==>are; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13161	13316	
==>>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13161	13316	
==>>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13161	13316	
==>>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16021	16125	
==>&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16021	16125	
==>&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16021	16125	
==>&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5376	5496	
==>[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6644	6764	
==>[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5376	5496	
==>[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6632	6752	
==>[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13234	13330	
==>turn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => ch <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6709	6805	
==>turn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6873	6997	
==>ce = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6873	6997	
==>ce = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6873	6997	
==>ce = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	980	1102	
==>= true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	980	1102	
==>= true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	980	1102	
==>= true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	480	581	
==>ome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	480	581	
==>ome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	480	581	
==>ome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7287	7375	
==>IL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7287	7375	
==>IL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7287	7375	
==>IL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	676	802	
==>function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	676	802	
==>function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	676	802	
==>function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3017	3125	
==>function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3017	3125	
==>function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3017	3125	
==>function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5070	5211	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7719	7860	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5275	5410	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11724	11859	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5275	5410	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11724	11859	
==>shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12936	13055	
==>d $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12936	13055	
==>d $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12936	13055	
==>d $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2157	2252	
==>N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2157	2252	
==>N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2157	2252	
==>N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3991	4100	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6640	6749	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4229	4335	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10678	10784	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4229	4335	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10678	10784	
==>urn block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match = $$match if ref($match) eq 'Pugs::R <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5530	5703	
==>ix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    r <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5530	5703	
==>ix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16071	16176	
==>p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16071	16176	
==>p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16071	16176	
==>p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6 <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1482	1581	
==>convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is export {
    D <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1709	1931	
==>if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events< <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1709	1931	
==>if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5393	5504	
==>}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5393	5504	
==>}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5393	5504	
==>}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.a <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4406	4496	
==>edoValue $V) { raise ReferenceError; }
method PutValue (JSX::InternalValue::Reference $V, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6447	6594	
==>urn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6447	6594	
==>urn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6447	6594	
==>urn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4571	4671	
==>ing scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4571	4671	
==>ing scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4571	4671	
==>ing scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_s <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2916	3022	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10839	10945	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6041	6147	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2916	3022	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10839	10945	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6041	6147	
==>sg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2012	2208	
==>umber(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },
        'diag <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	33	136	
==>method BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	33	136	
==>method BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4133	4235	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4133	4235	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4133	4235	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2515	2630	
==>ndex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2515	2630	
==>ndex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2515	2630	
==>ndex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34524	34627	
==>umify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34524	34627	
==>umify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34524	34627	
==>umify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4269	4370	
==>or hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4269	4370	
==>or hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4269	4370	
==>or hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	51	139	
==>one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Objec <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	51	139	
==>one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Objec <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	51	139	
==>one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4124	4229	
==>{
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4124	4229	
==>{
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4124	4229	
==>{
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5451	5546	
==>own>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5451	5546	
==>own>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5451	5546	
==>own>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2071	2184	
==>}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2071	2184	
==>}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2071	2184	
==>}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5948	6054	
==>ce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5948	6054	
==>ce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5948	6054	
==>ce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13881	13998	
==>od($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13881	13998	
==>od($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13881	13998	
==>od($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1619	1724	
==>stcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1619	1724	
==>stcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1619	1724	
==>stcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7889	8007	
==>eturn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7889	8007	
==>eturn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7889	8007	
==>eturn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code . <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29678	29772	
==>his method is a generic relational operator that returns a new Relation::Example
which has a su <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30839	30933	
==>his method is a generic relational operator that returns a new Relation::Example
which has a su <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34896	34990	
==>his method is a generic relational operator that returns a new Relation::Example
which has a su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6961	7082	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9931	10052	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6961	7082	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9931	10052	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6961	7082	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9931	10052	
==>dy (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9135	9285	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12108	12258	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9135	9285	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12108	12258	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9135	9285	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12108	12258	
==>::Method');                

        package Perl6::ClassMethod;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3476	3594	
==>else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3476	3594	
==>else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3476	3594	
==>else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1915	2015	
==>:Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMode <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1915	2015	
==>:Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMode <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1915	2015	
==>:Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMode <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6572	6778	
==>) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6572	6778	
==>) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6572	6778	
==>) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	774	877	
==>ef; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - all <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	774	877	
==>ef; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - all <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	774	877	
==>ef; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - all <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	175	299	
==>non short circuiting

    '&control_structure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$le <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	152	246	
==>or parenthesized
group.  This is approximately the Match object that userland folks will
see, b <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	152	246	
==>or parenthesized
group.  This is approximately the Match object that userland folks will
see, b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2267	2358	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2267	2358	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2267	2358	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1223	1323	
==>w - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1223	1323	
==>w - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1223	1323	
==>w - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21357	21448	
==>6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21357	21448	
==>6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21357	21448	
==>6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5828	5933	
==>m the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as nee <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6958	7063	
==>op();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6958	7063	
==>op();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* - <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6958	7063	
==>op();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* - <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5828	5933	
==>m the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as nee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5828	5933	
==>m the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as nee <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7065	7185	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10035	10155	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7065	7185	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10035	10155	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7065	7185	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10035	10155	
==>nd the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and know if we are bein <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1569	1724	
==>) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $clas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1569	1724	
==>) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $clas <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1569	1724	
==>) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $clas <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	946	1057	
==>@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29d <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1419	1530	
==>@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29d <==
6	/Users/nnunley/pugs/util/claim_drift.pl	461	562	
==>e_sep";

GetOptions \our %Conf, qw(--verbose|v --no|n);

if (! -d "..${FS}DrIFT") {
    warn <<".";
** <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3402	3500	
==>tput to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plan <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3402	3500	
==>tput to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plan <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3482	3580	
==>tput to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plan <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36630	36726	
==>s identical to the
invocant.  Another trivial case is where any any source relation has zero
tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41179	41275	
==>s identical to the
invocant.  Another trivial case is where any any source relation has zero
tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40802	40898	
==>s identical to the
invocant.  Another trivial case is where any any source relation has zero
tupl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3285	3392	
==>) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3285	3392	
==>) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3285	3392	
==>) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29824	29918	
==>attributes having the same names as old attributes
that were wrapped, and it supports having ol <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34376	34470	
==>attributes having the same names as old attributes
that were wrapped, and it supports having ol <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33540	33634	
==>attributes having the same names as old attributes
that were wrapped, and it supports having ol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10352	10524	
==>S &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10352	10524	
==>S &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10352	10524	
==>S &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3654	3777	
==>{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3654	3777	
==>{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3654	3777	
==>{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5547	5653	
==>ess->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2162	2268	
==>error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Not <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5547	5653	
==>ess->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5547	5653	
==>ess->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2162	2268	
==>error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2162	2268	
==>error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Not <==
6	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2373	2497	
==>bundles};
    }

    if (my $perl_version = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ER <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11614	11738	
==>or example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2098	2219	
==>or example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8870	8991	
==>or example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2098	2219	
==>or example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8870	8991	
==>or example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23346	23441	
==>($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : unde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7265	7360	
==>fix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently cap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23346	23441	
==>($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : unde <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23346	23441	
==>($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : unde <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7265	7360	
==>fix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently cap <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7265	7360	
==>fix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently cap <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4474	4592	
==>s);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4474	4592	
==>s);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1754	1866	
==>n;
        }

        my @dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.com
cd $path <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2734	2845	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5382	5493	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2734	2845	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5382	5493	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2734	2845	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5382	5493	
==>stance attribute container type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6169	6287	
==>e::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6169	6287	
==>e::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6169	6287	
==>e::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3234	3351	
==>e::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3234	3351	
==>e::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3234	3351	
==>e::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub :: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1968	2126	
==>e.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8722	8834	
==>"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9557	9669	
==>"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2956	3055	
==>var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2956	3055	
==>var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.leng <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2956	3055	
==>var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.leng <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20117	20252	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17256	17391	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20117	20252	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17256	17391	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20117	20252	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17256	17391	
==>Package normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14265	14379	
==>ined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub P <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14265	14379	
==>ined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub P <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14265	14379	
==>ined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10556	10657	
==>so it makes abstract 
    # methods which must be implemented
    # ---------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10556	10657	
==>so it makes abstract 
    # methods which must be implemented
    # ---------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10556	10657	
==>so it makes abstract 
    # methods which must be implemented
    # ---------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2730	2906	
==>$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2730	2906	
==>$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2730	2906	
==>$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	6722	6820	
==>= "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TO <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6780	6878	
==>= "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TO <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6952	7050	
==>nknown class $cls\n");
}

sub p6_code_mk_CODE {
    my($name,$kind,$pams,$lval,$body)=@_;
    code_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13935	14031	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13935	14031	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13935	14031	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	230	319	
==>rectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	230	319	
==>rectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	230	319	
==>rectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3223	3376	
==>'$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3223	3376	
==>'$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3223	3376	
==>'$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40679	40791	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40679	40791	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40679	40791	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11069	11181	
==>,
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11069	11181	
==>,
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11069	11181	
==>,
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10601	10702	
==>t be implemented
    # -----------------------------------------------

    method add_method;
    met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10601	10702	
==>t be implemented
    # -----------------------------------------------

    method add_method;
    met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10601	10702	
==>t be implemented
    # -----------------------------------------------

    method add_method;
    met <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32365	32533	
==>ams->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->ge <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33020	33188	
==>ams->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->ge <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1417	1556	
==>AY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1761	1895	
==>AY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1368	1502	
==>AY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1761	1895	
==>AY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1116	1292	
==>sts($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1116	1292	
==>sts($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	21819	21929	
==>NC{$module};
  if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3783	3886	
==>oak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3783	3886	
==>oak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4373	4476	
==>oak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9747	9897	
==>$self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passe <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1830	1968	
==>$self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passe <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1830	1968	
==>$self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passe <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13238	13374	
==>. \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9424	9560	
==>. \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10260	10396	
==>. \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26208	26376	
==>=  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26208	26376	
==>=  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26208	26376	
==>=  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6960	7070	
==>=> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6960	7070	
==>=> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6960	7070	
==>=> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6921	7007	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7588	7674	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6921	7007	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7588	7674	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6921	7007	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7588	7674	
==>PING ROLES
## ------------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9955	10116	
==>gs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9955	10116	
==>gs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    . <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9955	10116	
==>gs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1215	1309	
==>use we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1215	1309	
==>use we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1215	1309	
==>use we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1668	1771	
==>,
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1668	1771	
==>,
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1668	1771	
==>,
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1002	1091	
==>helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1002	1091	
==>helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1002	1091	
==>helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3093	3219	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11016	11142	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6218	6344	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3093	3219	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11016	11142	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6218	6344	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8744	8848	
==>because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical a <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1159	1260	
==>?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically comp <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1159	1260	
==>?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically comp <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8454	8555	
==>because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical a <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7274	7367	
==>, $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7274	7367	
==>, $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36406	36500	
==>liminating any result tuples that
duplicate others.  The sequence in which any two source relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40955	41049	
==>liminating any result tuples that
duplicate others.  The sequence in which any two source relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40569	40663	
==>liminating any result tuples that
duplicate others.  The sequence in which any two source relat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3661	3751	
==><EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3661	3751	
==><EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/T <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3661	3751	
==><EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/T <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9161	9260	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4304	4403	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15740	15839	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9161	9260	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4304	4403	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15740	15839	
==>_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or ` <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	310	411	
==>S.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	310	411	
==>S.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	310	411	
==>S.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).F <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1182	1290	
==>wall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", ' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1149	1257	
==>wall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", ' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11550	11644	
==>rns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8697	8791	
==>rns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11550	11644	
==>rns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8697	8791	
==>rns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	102	211	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	97	206	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	102	211	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	97	206	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	102	211	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	97	206	
==>l $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10460	10564	
==>] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10460	10564	
==>] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_p <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11702	11797	
==>C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8849	8944	
==>C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11702	11797	
==>C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8849	8944	
==>C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4035	4175	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6971	7111	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4035	4175	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6971	7111	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4035	4175	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6971	7111	
==>bless the new wrapper method 
        # into the same class as before 
        # because this operation should be 
        # fairly transpare <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5461	5600	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8431	8570	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5461	5600	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8431	8570	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5461	5600	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8431	8570	
==>eturned
        # from another sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # re <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	217	339	
==>port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter mai <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	221	343	
==>port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter mai <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	217	339	
==>port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter mai <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	221	343	
==>port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter mai <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	607	719	
==>p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	607	719	
==>p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6267	6367	
==>two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5397	5497	
==>two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6267	6367	
==>two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5397	5497	
==>two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi s <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7836	7932	
==>ation") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") } <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7836	7932	
==>ation") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") } <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	957	1109	
==>,
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4012	4164	
==>,
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	957	1109	
==>,
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4012	4164	
==>,
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args. <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	532	674	
==>if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        las <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	532	674	
==>if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        las <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	630	742	
==>E' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	630	742	
==>E' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	630	742	
==>E' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4901	5005	
==>>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4901	5005	
==>>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4901	5005	
==>>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5411	5575	
==>equired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5411	5575	
==>equired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5411	5575	
==>equired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9406	9509	
==>he roles mutator/accessor

    # -----------------------------------------------      
    # this collec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9406	9509	
==>he roles mutator/accessor

    # -----------------------------------------------      
    # this collec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9406	9509	
==>he roles mutator/accessor

    # -----------------------------------------------      
    # this collec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5679	5786	
==>>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5679	5786	
==>>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5679	5786	
==>>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4271	4366	
==>e::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {"" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4271	4366	
==>e::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {"" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4271	4366	
==>e::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {"" <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2082	2375	
==>en $fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15845	15940	
==>.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) retur <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19322	19417	
==>.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10235	10327	
==>nt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10235	10327	
==>nt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10235	10327	
==>nt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14188	14308	
==>e => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4261	4373	
==>e => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4261	4373	
==>e => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4261	4373	
==>e => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1541	1650	
==>as Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.clo <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1541	1650	
==>as Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.clo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1369	1486	
==>hority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1369	1486	
==>hority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1369	1486	
==>hority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7435	7522	
==>lect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7435	7522	
==>lect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7435	7522	
==>lect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------------- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8938	9097	
==>( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14667	14826	
==>( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8938	9097	
==>( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14661	14820	
==>( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15152	15245	
==>attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes proper <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15152	15245	
==>attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes proper <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3332	3449	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11890	12007	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6457	6574	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3332	3449	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11890	12007	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6457	6574	
==>ELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $?S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8727	8856	
==>lanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	895	1012	
==>lanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	895	1012	
==>lanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17436	17533	
==>hods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17436	17533	
==>hods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17436	17533	
==>hods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3203	3360	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3203	3360	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3203	3360	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2882	2982	
==>ings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2882	2982	
==>ings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2882	2982	
==>ings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0] <==
6	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	918	1031	
==>~$n~' <= $^n <  2**'~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1701	1809	
==>reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flatte <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6408	6505	
==>($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.key <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7144	7241	
==>($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.key <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6408	6505	
==>($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.key <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7144	7241	
==>($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	288	420	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	286	418	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	288	420	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	286	418	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	288	420	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	286	418	
==>ir internal data.
    # This is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every in <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13655	13751	
==>uous span

This type os span is used to represent continuous measurements, such as times, tempera <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13655	13751	
==>uous span

This type os span is used to represent continuous measurements, such as times, tempera <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	230	326	
==>eal p5 re coverage is much less.  The test passing was simply to
permit refactoring with confiden <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5246	5339	
==>IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5246	5339	
==>IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5246	5339	
==>IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1244	1346	
==>tored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are im <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1244	1346	
==>tored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are im <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1244	1346	
==>tored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	890	985	
==>s to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inhe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	890	985	
==>s to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inhe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	890	985	
==>s to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inhe <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7105	7206	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6235	6336	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2889	2990	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2889	2990	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7105	7206	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6235	6336	
==>s($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12620	12742	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13199	13321	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12620	12742	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13199	13321	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12620	12742	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13199	13321	
==>params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6670	6825	
==>ce
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6670	6825	
==>ce
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6670	6825	
==>ce
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36710	36829	
==>{
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36710	36829	
==>{
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36710	36829	
==>{
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3926	4026	
==>rently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3926	4026	
==>rently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3926	4026	
==>rently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $bo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3115	3202	
==>tself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Si <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3115	3202	
==>tself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Si <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3462	3549	
==>tself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Si <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	884	1005	
==>r);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque dat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	884	1005	
==>r);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque dat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	884	1005	
==>r);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4176	4277	
==>!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4176	4277	
==>!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4176	4277	
==>!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	37	144	
==>9-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	37	144	
==>9-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	37	144	
==>9-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4155	4257	
==>$new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4155	4257	
==>$new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4155	4257	
==>$new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1738	1860	
==>::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1738	1860	
==>::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1738	1860	
==>::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7742	7852	
==>{\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7742	7852	
==>{\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7742	7852	
==>{\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3375	3523	
==>me => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            forea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3375	3523	
==>me => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            forea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3375	3523	
==>me => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            forea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5225	5348	
==>\@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5225	5348	
==>\@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5225	5348	
==>\@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1839	1987	
==>rse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1839	1987	
==>rse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2505	2602	
==>er lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2505	2602	
==>er lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2505	2602	
==>er lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6486	6579	
==>PT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2626	2750	
==>art must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = S <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3662	3786	
==>art must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = S <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2626	2750	
==>art must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = S <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3662	3786	
==>art must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = S <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5935	6039	
==>revious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

metho <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5935	6039	
==>revious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

metho <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13428	13563	
==>ribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3035	3136	
==>emAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3035	3136	
==>emAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3035	3136	
==>emAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1643	1739	
==>RFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The construct <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1643	1739	
==>RFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The construct <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11246	11372	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11721	11847	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11246	11372	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11721	11847	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11246	11372	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11721	11847	
==>od' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        unless defined $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8056	8148	
==>ion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7186	7278	
==>ion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8056	8148	
==>ion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7186	7278	
==>ion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3692	3783	
==>$inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @interse <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3692	3783	
==>$inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @interse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3387	3535	
==>_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3387	3535	
==>_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3387	3535	
==>_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1673	1804	
==>f->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1673	1804	
==>f->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1673	1804	
==>f->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PV <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9532	9701	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15076	15245	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9532	9701	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15070	15239	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3167	3264	
==>e_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $ <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3225	3322	
==>e_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2944	3064	
==>ented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $nam <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3793	3913	
==>ented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $nam <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9819	9930	
==>entering the following
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1635	1744	
==>being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messag <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1635	1744	
==>being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messag <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1635	1744	
==>being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messag <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1572	1725	
==>ings')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1572	1725	
==>ings')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1572	1725	
==>ings')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5682	5807	
==>) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $midd <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5682	5807	
==>) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $midd <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5682	5807	
==>) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $midd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4769	4915	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7705	7851	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4769	4915	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7705	7851	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4769	4915	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7705	7851	
==>iate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33271	33477	
==>th=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33271	33477	
==>th=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33271	33477	
==>th=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	254	357	
==>gs6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	254	357	
==>gs6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $arg <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	254	357	
==>gs6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $arg <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13648	13772	
==>ze() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15173	15297	
==>ze() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12640	12752	
==>ze() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( headi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2791	2894	
==>mAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2791	2894	
==>mAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2791	2894	
==>mAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26425	26517	
==>projection of
each tuple), but that any duplicates following the projection have been
elimina <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30977	31069	
==>projection of
each tuple), but that any duplicates following the projection have been
elimina <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29979	30071	
==>projection of
each tuple), but that any duplicates following the projection have been
elimina <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13583	13732	
==>ist ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13583	13732	
==>ist ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13583	13732	
==>ist ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->ne <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7485	7611	
==>{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $de <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7234	7354	
==>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $de <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	931	1046	
==>"GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_cat',
			type => type("PV <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10862	10971	
==>cdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $EN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10862	10971	
==>cdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $EN <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10862	10971	
==>cdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $EN <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	704	800	
==>ns).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=h <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	704	800	
==>ns).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1260	1356	
==>ns).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=h <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4287	4428	
==>phanumeric-ending token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $name = $as <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	280	373	
==>_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	280	373	
==>_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4391	4481	
==>and().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4391	4481	
==>and().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4391	4481	
==>and().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8563	8703	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11536	11676	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8563	8703	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11536	11676	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8563	8703	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11536	11676	
==>bind the 
            # $?SELF variable, it is needed until we 
            # can properly handle the forcing of method
            # calls w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	702	844	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	790	932	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	702	844	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	790	932	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	702	844	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	790	932	
==>GV;

    # Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9444	9555	
==>ilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9444	9555	
==>ilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9444	9555	
==>ilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3875	3971	
==>hould fail.  C<$description> is the optional
description of the test.  This is the easiest way to <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3875	3971	
==>hould fail.  C<$description> is the optional
description of the test.  This is the easiest way to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3955	4051	
==>hould fail.  C<$description> is the optional
description of the test.  This is the easiest way to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2596	2716	
==>ookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2596	2716	
==>ookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2596	2716	
==>ookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3602	3699	
==>ame = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3602	3699	
==>ame = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3602	3699	
==>ame = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3716	3824	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6652	6760	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3716	3824	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6652	6760	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3716	3824	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6652	6760	
==>od {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6::M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	695	799	
==>$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	695	799	
==>$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	695	799	
==>$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->va <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4246	4338	
==>B<test_test( Str $description? )>

Compares the receivied and expected lines from the previou <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4246	4338	
==>B<test_test( Str $description? )>

Compares the receivied and expected lines from the previou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4326	4418	
==>B<test_test( Str $description? )>

Compares the receivied and expected lines from the previou <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3577	3684	
==>ative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3577	3684	
==>ative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3577	3684	
==>ative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20835	20928	
==>SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20835	20928	
==>SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20835	20928	
==>SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16593	16761	
==>array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16593	16761	
==>array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        star <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16593	16761	
==>array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        star <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	715	822	
==>s => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	715	822	
==>s => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	419	516	
==>s->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{type},
		fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17301	17462	
==>AD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17301	17462	
==>AD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17301	17462	
==>AD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5116	5246	
==>(Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Li <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	0	104	
==>package interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	0	104	
==>package interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7407	7508	
==>:TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7407	7508	
==>:TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7407	7508	
==>:TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9646	9805	
==>elf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param int <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9646	9805	
==>elf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param int <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9646	9805	
==>elf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param int <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2147	2272	
==>b hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2147	2272	
==>b hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	890	1013	
==>all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	199	303	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	140	244	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	199	303	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	140	244	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	199	303	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	140	244	
==>ding to the Gnostics, the Demiurge was able to endow man 
# only with psyche (sensuous soul) — the pneu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4629	4769	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7141	7281	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4629	4769	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7141	7281	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4629	4769	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7141	7281	
==>rivate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9594	9736	
==>escription?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              numbe <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1687	1819	
==>escription?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            numbe <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1687	1819	
==>escription?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            numbe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1051	1181	
==>[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1051	1181	
==>[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1051	1181	
==>[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6421	6526	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9391	9496	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6421	6526	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9391	9496	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6421	6526	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9391	9496	
==>d if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4832	5014	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4832	5014	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4832	5014	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_meth <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3795	3901	
==>s' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_E <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3795	3901	
==>s' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_E <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	645	751	
==>s' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_E <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51746	52032	
==>$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$se <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5685	5945	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                } <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3046	3306	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                } <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5685	5945	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                } <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3046	3306	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51135	51392	
==>$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$se <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2185	2310	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11053	11178	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12012	12137	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2378	2503	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11332	11457	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12291	12416	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ru <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4844	5019	
==>gnature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol ne <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6606	6781	
==>gnature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol ne <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5051	5172	
==>elf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16087	16208	
==>elf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17575	17696	
==>elf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22258	22379	
==>elf->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2425	2556	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4752	4883	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2425	2556	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4752	4883	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2425	2556	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4752	4883	
==>urn bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $na <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1651	1770	
==>arams{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params. <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1651	1770	
==>arams{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params. <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	385	479	
==>SCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	385	479	
==>SCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	75	165	
==>ults;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	75	165	
==>ults;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1405	1540	
==>es')) 
        if $supers->is_empty == $bit::TRUE;    
        
    push @classes => $supers->to_native;    
        
    foreach my $cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1240	1350	
==>(split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1445	1555	
==>(split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1506	1616	
==>(split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12912	13005	
==>nd earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left a <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12912	13005	
==>nd earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	685	809	
==>ngth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	685	809	
==>ngth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	685	809	
==>ngth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17228	17317	
==>om_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17228	17317	
==>om_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17228	17317	
==>om_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13779	13893	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14153	14267	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13779	13893	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14153	14267	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13779	13893	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14153	14267	
==>elete here is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10836	10941	
==>er::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PER <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10836	10941	
==>er::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PER <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10836	10941	
==>er::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PER <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1826	1929	
==>mplemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1826	1929	
==>mplemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1826	1929	
==>mplemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19024	19156	
==>able::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19024	19156	
==>able::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19024	19156	
==>able::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2610	2712	
==><before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2794	2896	
==><before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52785	52883	
==>Module) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5688	5816	
==>ck = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6241	6369	
==>ck = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5881	6009	
==>ck = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6434	6562	
==>ck = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1902	2004	
==>h  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1902	2004	
==>h  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6865	6978	
==>ume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if ( <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6865	6978	
==>ume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if ( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6251	6347	
==>roper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.sub <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5381	5477	
==>roper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.sub <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6251	6347	
==>roper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.sub <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5381	5477	
==>roper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2924	3032	
==>$/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2924	3032	
==>$/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2924	3032	
==>$/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14132	14227	
==>::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14132	14227	
==>::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3] <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14132	14227	
==>::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2318	2439	
==>ttrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2318	2439	
==>ttrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2318	2439	
==>ttrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	911	1011	
==>is
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	911	1011	
==>is
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	911	1011	
==>is
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19770	19893	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16909	17032	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19770	19893	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16909	17032	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19770	19893	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16909	17032	
==>d($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ & <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11141	11263	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12612	12734	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14618	14740	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16089	16211	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13926	14048	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15451	15573	
==>ne tuple; result is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second sour <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3159	3295	
==>ss ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3159	3295	
==>ss ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3159	3295	
==>ss ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $s <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	984	1095	
==>tfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
    }

    return;
} <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13495	13587	
==>port_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to t <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13495	13587	
==>port_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to t <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6729	6835	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5859	5965	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2513	2619	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2513	2619	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6729	6835	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5859	5965	
==>Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.inc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12485	12608	
==>)->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12485	12608	
==>)->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12485	12608	
==>)->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str- <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5439	5550	
==>next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.c <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5439	5550	
==>next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.c <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8348	8438	
==>pec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L]) --> "i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24593	24688	
==>VENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23357	23452	
==>VENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24593	24688	
==>VENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23357	23452	
==>VENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9387	9478	
==>tyle message headers.
The headers consist of attribute-value pairs also called fields, which <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9387	9478	
==>tyle message headers.
The headers consist of attribute-value pairs also called fields, which <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1752	1869	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3315	3432	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1752	1869	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3315	3432	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1752	1869	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3315	3432	
==>LASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3511	3604	
==>rncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3511	3604	
==>rncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3511	3604	
==>rncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9533	9620	
==>:Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9533	9620	
==>:Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9533	9620	
==>:Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5602	5683	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5776	5857	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5966	6047	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5602	5683	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5776	5857	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5966	6047	
==>)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2650	2762	
==>ion( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2650	2762	
==>ion( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8058	8150	
==>n(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7188	7280	
==>n(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8058	8150	
==>n(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7188	7280	
==>n(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5197	5316	
==>bel, $method);
        },          
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19061	19175	
==>} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{z <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20419	20533	
==>} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{z <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1135	1238	
==>FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1135	1238	
==>FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1135	1238	
==>FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8331	8537	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8331	8537	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8331	8537	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3613	3720	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3613	3720	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3613	3720	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1617	1719	
==><= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1617	1719	
==><= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1617	1719	
==><= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2628	2727	
==>';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2628	2727	
==>';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$g <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2628	2727	
==>';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2840	2951	
==>ine;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2840	2951	
==>ine;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2840	2951	
==>ine;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1882	1983	
==>y $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1882	1983	
==>y $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1882	1983	
==>y $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6700	6833	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9670	9803	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6700	6833	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9670	9803	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6700	6833	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9670	9803	
==>s is a private method
    sub ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2802	2908	
==>dy->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2802	2908	
==>dy->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2802	2908	
==>dy->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	65	162	
==>ntime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	65	162	
==>ntime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	65	162	
==>ntime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2868	3000	
==>ttrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3073	3205	
==>ttrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28164	28278	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28443	28557	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21369	21479	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->ad <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17790	17900	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5056	5186	
==>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5056	5186	
==>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5056	5186	
==>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	21687	21801	
==>e "Can't find " ~ $file ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  } <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1384	1480	
==>miters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strict <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1384	1480	
==>miters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strict <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7375	7521	
==>ernals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7533	7671	
==>[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7521	7659	
==>[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4660	4781	
==>_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4660	4781	
==>_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4660	4781	
==>_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15982	16103	
==>));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15982	16103	
==>));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15982	16103	
==>));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32401	32497	
==>s not have an identical header to the invocant relation.  This
method has an alias named C<plus>. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36951	37047	
==>s not have an identical header to the invocant relation.  This
method has an alias named C<plus>. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36241	36337	
==>s not have an identical header to the invocant relation.  This
method has an alias named C<plus>. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4262	4403	
==>ame =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4262	4403	
==>ame =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $nam <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4262	4403	
==>ame =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	649	746	
==>ew PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	649	746	
==>ew PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	649	746	
==>ew PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1972	2104	
==>lass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1972	2104	
==>lass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1972	2104	
==>lass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28734	28859	
==>s perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28734	28859	
==>s perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28734	28859	
==>s perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18490	18648	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15728	15886	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18490	18648	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15728	15886	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18490	18648	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15728	15886	
==>bute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # class attribu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25116	25247	
==>,
such that all of its class and object methods will each return the same
result and/or make the same change to an object when the p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11247	11378	
==>,
such that all of its class and object methods will each return the same
result and/or make the same change to an object when the p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14520	14651	
==>, such that all of its class and
object methods will each return the same result and/or make the same change
to an object when the p <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25116	25247	
==>,
such that all of its class and object methods will each return the same
result and/or make the same change to an object when the p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11247	11378	
==>,
such that all of its class and object methods will each return the same
result and/or make the same change to an object when the p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14520	14651	
==>, such that all of its class and
object methods will each return the same result and/or make the same change
to an object when the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1259	1383	
==>('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1259	1383	
==>('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1259	1383	
==>('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8778	8880	
==>p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8778	8880	
==>p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8778	8880	
==>p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13365	13483	
==>f, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tr <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27198	27316	
==>f, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tr <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5879	5981	
==>{
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5009	5111	
==>{
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5879	5981	
==>{
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5009	5111	
==>{
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21658	21761	
==>{ $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21658	21761	
==>{ $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21658	21761	
==>{ $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2717	2816	
==>,
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2717	2816	
==>,
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2717	2816	
==>,
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12608	12736	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13187	13315	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12608	12736	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13187	13315	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12608	12736	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13187	13315	
==>s{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	61	158	
==>tents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accord <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	61	158	
==>tents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accord <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	61	158	
==>tents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accord <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4512	4625	
==>\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$rea <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4512	4625	
==>\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$rea <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4512	4625	
==>\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$rea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	307	411	
==>.FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	307	411	
==>.FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	307	411	
==>.FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25396	25590	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27591	27785	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25396	25590	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27591	27785	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25396	25590	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27591	27785	
==>f $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7382	7532	
==>m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4450	4554	
==>ubname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $mac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4450	4554	
==>ubname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $mac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4450	4554	
==>ubname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $mac <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2830	2927	
==>parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order i <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2830	2927	
==>parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7641	7795	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10564	10718	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7641	7795	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10564	10718	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7641	7795	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10564	10718	
==>ateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1843	1941	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2186	2284	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1843	1941	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2186	2284	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1843	1941	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2186	2284	
==>oesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' warnings <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2582	2780	
==>s => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2582	2780	
==>s => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2582	2780	
==>s => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2652	2758	
==>(str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2652	2758	
==>(str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2652	2758	
==>(str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6090	6196	
==>es now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6090	6196	
==>es now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6090	6196	
==>es now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	61	166	
==>he experimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	59	159	
==>he experimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar <==
6	/Users/nnunley/pugs/util/p5_to_p6.pl	204	301	
==>c, and extremely foolish
# script, ignoring deeper context, needs lots of
# improvement. Due to re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18106	18285	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15344	15523	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18106	18285	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15344	15523	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18106	18285	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15344	15523	
==>ails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_instance_attr($self => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	361	474	
==>++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	361	474	
==>++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	361	474	
==>++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1541	1639	
==>syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1541	1639	
==>syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1541	1639	
==>syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3173	3288	
==>trings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3173	3288	
==>trings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3173	3288	
==>trings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4541	4640	
==>arts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4541	4640	
==>arts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4541	4640	
==>arts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2709	2801	
==>s %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2709	2801	
==>s %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2709	2801	
==>s %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13436	13561	
==>t' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13436	13561	
==>t' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13436	13561	
==>t' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16841	16947	
==>an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20318	20424	
==>an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19896	20002	
==>an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	668	773	
==>}
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	668	773	
==>}
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	668	773	
==>}
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	727	815	
==>relude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	727	815	
==>relude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	727	815	
==>relude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16599	16712	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21316	21429	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16599	16712	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21316	21429	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16599	16712	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21316	21429	
==>m, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	135	241	
==>package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	135	241	
==>package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	135	241	
==>package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14175	14262	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14175	14262	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14175	14262	
==>@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute(' <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2338	2468	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2885	3015	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3432	3562	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4	96	
==>circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4	96	
==>circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4	96	
==>circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1217	1312	
==>thod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1217	1312	
==>thod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1217	1312	
==>thod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2994	3087	
==>2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2994	3087	
==>2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2994	3087	
==>2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11112	11275	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8665	8828	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11112	11275	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8665	8828	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11112	11275	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8665	8828	
==>ator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6562	6667	
==>cal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6562	6667	
==>cal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6562	6667	
==>cal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1565	1683	
==>gle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1565	1683	
==>gle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1565	1683	
==>gle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1988	2084	
==>umber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1988	2084	
==>umber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1988	2084	
==>umber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4166	4310	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6692	6836	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4166	4310	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6692	6836	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4166	4310	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6692	6836	
==>>add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2800	2902	
==>, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Coul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2800	2902	
==>, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Coul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2800	2902	
==>, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Coul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17025	17114	
==>$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17025	17114	
==>$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17025	17114	
==>$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Clas <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3771	4113	
==>fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.c <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3814	4156	
==>fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.c <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3771	4113	
==>fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.c <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3814	4156	
==>fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.c <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	310	432	
==>ort {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	310	432	
==>ort {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7250	7387	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4809	4946	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7250	7387	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4809	4946	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7250	7387	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4809	4946	
==>o more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptys <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3191	3316	
==>n = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if d <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3191	3316	
==>n = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5038	5134	
==>ditor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rout <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5038	5134	
==>ditor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rout <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5038	5134	
==>ditor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rout <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3574	3668	
==>ata::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp::Parser::VERSI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8329	8493	
==>[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8329	8493	
==>[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8329	8493	
==>[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FO <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1853	1951	
==>ubset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1853	1951	
==>ubset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18719	18808	
==>pression>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpression>
}
rul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	712	853	
==>s";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	712	853	
==>s";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	712	853	
==>s";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2948	3050	
==>tring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2948	3050	
==>tring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2948	3050	
==>tring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs", <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	328	425	
==>(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	328	425	
==>(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	328	425	
==>(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4905	5001	
==>elf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4905	5001	
==>elf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4905	5001	
==>elf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3056	3171	
==>pile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3056	3171	
==>pile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3056	3171	
==>pile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2580	2681	
==>el) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2580	2681	
==>el) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2580	2681	
==>el) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $l <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6385	6486	
==>modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5458	5559	
==>modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6385	6486	
==>modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5458	5559	
==>modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3261	3360	
==>rt:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3261	3360	
==>rt:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.is <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11296	11490	
==>) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.pu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11296	11490	
==>) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	317	423	
==>soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	317	423	
==>soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pack <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	317	423	
==>soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1599	1692	
==>VarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1599	1692	
==>VarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1599	1692	
==>VarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5482	5583	
==>first(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5482	5583	
==>first(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5482	5583	
==>first(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4878	4972	
==>rl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4878	4972	
==>rl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4878	4972	
==>rl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1316	1423	
==>ight, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can auto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1316	1423	
==>ight, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can auto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1316	1423	
==>ight, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can auto <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2412	2501	
==>add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2412	2501	
==>add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2412	2501	
==>add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subna <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	22	121	
==>X;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24280	24450	
==>->new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol->new('? <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29528	29690	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('? <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45646	45808	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('? <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48874	49036	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('? <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49736	49898	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('? <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7845	7949	
==>ned, but if you use regex() then it will return false.

  if (! $parser->regex($rx)) {
    my $errmsg = $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4527	4676	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7176	7325	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4751	4896	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11200	11345	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4751	4896	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11200	11345	
==>te $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        re <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6831	6990	
==>s()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6831	6990	
==>s()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	946	1094	
==>->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $local <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1061	1148	
==>,'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1061	1148	
==>,'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1061	1148	
==>,'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/' <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10160	10274	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12801	12915	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13637	13751	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16278	16392	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12918	13032	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15640	15754	
==>?SELF;
    }

    if ($other!heading === $!heading) {
        # Both sources have identical headings; result is src <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4141	4252	
==>(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4141	4252	
==>(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4141	4252	
==>(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	86	189	
==>sh::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	86	189	
==>sh::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	86	189	
==>sh::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4524	4642	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2736	2854	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4524	4642	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2736	2854	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4524	4642	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2736	2854	
==>re not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pass
    # i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8617	8795	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6170	6348	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8617	8795	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6170	6348	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8617	8795	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6170	6348	
==>ge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO() ] } @{$self->superclasses}), # the MRO of all <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1194	1304	
==>|
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1194	1304	
==>|
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1194	1304	
==>|
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3884	3990	
==>body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3884	3990	
==>body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3884	3990	
==>body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33247	33446	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33247	33446	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33247	33446	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4100	4236	
==>y $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sig <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4100	4236	
==>y $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sig <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4100	4236	
==>y $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sig <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11601	11712	
==>mental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2088	2194	
==>mental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8860	8966	
==>mental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2088	2194	
==>mental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8860	8966	
==>mental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8413	8509	
==>n't care to intercept the building of the tree, you can use the
parse() method to explicitly buil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1812	1943	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	924	1055	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1812	1943	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	924	1055	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1812	1943	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	924	1055	
==>od(sub { 
    my ($self, %params) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method shou <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	1483	1592	
==>aram<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1483	1592	
==>aram<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6484	6577	
==>lass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6484	6577	
==>lass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6484	6577	
==>lass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2028	2120	
==>un::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{'stages'}}}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2476	2593	
==>($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    f <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2476	2593	
==>($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    f <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2476	2593	
==>($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6787	6887	
==>sses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6787	6887	
==>sses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6787	6887	
==>sses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17730	17855	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14950	15075	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17730	17855	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14950	15075	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17730	17855	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14950	15075	
==>or instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_method($1, for => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13337	13457	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18220	18340	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13337	13457	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18220	18340	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13337	13457	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18220	18340	
==>t
    # applicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	21343	21468	
==>r @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3387	3494	
==>turns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._no <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3387	3494	
==>turns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2360	2460	
==>shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2360	2460	
==>shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2360	2460	
==>shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5118	5265	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5118	5265	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5118	5265	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4638	4731	
==>ions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4638	4731	
==>ions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbos <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4638	4731	
==>ions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbos <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9763	9884	
==>dBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9763	9884	
==>dBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9763	9884	
==>dBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11506	11591	
==>he class that consumed it.

---------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11506	11591	
==>he class that consumed it.

---------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11506	11591	
==>he class that consumed it.

---------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4476	4574	
==>iption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromat <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4476	4574	
==>iption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4556	4654	
==>iption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1480	1572	
==>se Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1480	1572	
==>se Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1480	1572	
==>se Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1453	1555	
==>....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1453	1555	
==>....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1453	1555	
==>....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19628	19718	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19628	19718	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19628	19718	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11510	11736	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9063	9289	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11510	11736	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9063	9289	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11510	11736	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9063	9289	
==>d and we 
                    # need to pop it off the stack ...
                    shift @stack;
                    # now go back to the top and start over
                    goto TOP;
                }
                else <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	227	331	
==>libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::Make <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	227	331	
==>libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::Make <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25131	25217	
==>.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Sub <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23895	23981	
==>.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Sub <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25131	25217	
==>.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Sub <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23895	23981	
==>.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Sub <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7786	7897	
==>x, $y;

    return $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5106	5199	
==>er@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1063	1156	
==>er@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	923	1016	
==>er@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5106	5199	
==>er@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1063	1156	
==>er@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24559	24713	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26748	26902	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24559	24713	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26748	26902	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24559	24713	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26748	26902	
==>y $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3133	3266	
==>fined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3133	3266	
==>fined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3133	3266	
==>fined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17373	17468	
==>x1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17373	17468	
==>x1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17373	17468	
==>x1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1632	1752	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3195	3315	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1632	1752	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3195	3315	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1632	1752	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3195	3315	
==>def;
    # this allows us to investigate from where the
    # call came, it is used in private methods 
    $::CALLER::CL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4567	4714	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7079	7226	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4567	4714	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7079	7226	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4567	4714	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7079	7226	
==>ere is no real distinction between the
                    # private class method or the private instance 
                    # method, maybe there <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4889	4993	
==>nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4889	4993	
==>nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11044	11144	
==>er of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.inclu <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8448	8548	
==>er of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.inclu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11044	11144	
==>er of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.inclu <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8448	8548	
==>er of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.inclu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	36	134	
==>use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	36	134	
==>use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	36	134	
==>use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17186	17275	
==>thods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17186	17275	
==>thods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes') <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17186	17275	
==>thods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3781	3911	
==>age Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3781	3911	
==>age Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3781	3911	
==>age Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12251	12352	
==>r qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12251	12352	
==>r qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12251	12352	
==>r qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9800	9904	
==>ext $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9800	9904	
==>ext $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9800	9904	
==>ext $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22594	22688	
==>lementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27146	27240	
==>lementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<R <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25878	25972	
==>lementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	462	583	
==>my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	559	680	
==>my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1730	1844	
==>val_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    n <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1730	1844	
==>val_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    n <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	218	301	
==>----------------------------------------------------------------------------
## cons <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	218	301	
==>----------------------------------------------------------------------------
## cons <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8895	9046	
==>ts );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          f <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1051	1186	
==>ts );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        f <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1051	1186	
==>ts );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12845	12966	
==>er ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12845	12966	
==>er ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12845	12966	
==>er ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4336	4473	
==>f: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4336	4473	
==>f: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18096	18193	
==>["ignorecase"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1592	1683	
==>elf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1592	1683	
==>elf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1592	1683	
==>elf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14596	14700	
==>l'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14596	14700	
==>l'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14596	14700	
==>l'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16200	16300	
==>get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16200	16300	
==>get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16200	16300	
==>get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5115	5238	
==>c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c pos <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5115	5238	
==>c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c pos <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5521	5618	
==>nfix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4651	4748	
==>nfix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5521	5618	
==>nfix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4651	4748	
==>nfix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (S <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4336	4448	
==>?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7813	7925	
==>?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6797	6909	
==>?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13587	13686	
==>) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13587	13686	
==>) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13587	13686	
==>) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16621	16731	
==>a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16621	16731	
==>a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16621	16731	
==>a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4364	4507	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6876	7019	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4364	4507	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6876	7019	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4364	4507	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6876	7019	
==>{
            foreach my $method_name (keys %{$body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we ju <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1401	1533	
==>20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().uni <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1401	1533	
==>20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().uni <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1956	2060	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2318	2422	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1956	2060	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2318	2422	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1 <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5502	5601	
==>:Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database access <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5502	5601	
==>:Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database access <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24730	24827	
==>nt is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC serv <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23494	23591	
==>nt is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC serv <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24730	24827	
==>nt is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC serv <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23494	23591	
==>nt is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC serv <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	666	763	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1186	1283	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	666	763	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1186	1283	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	666	763	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1186	1283	
==>Constant(function (args) {
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop() <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14702	14901	
==>);
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18179	18378	
==>);
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sha <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17595	17794	
==>);
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1313	1405	
==>ray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1313	1405	
==>ray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1313	1405	
==>ray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objec <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3963	4099	
==>han;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3963	4099	
==>han;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4491	4621	
==>han;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ } <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4491	4621	
==>han;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ } <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	724	818	
==>d
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program i <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	724	818	
==>d
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program i <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1660	1773	
==>hod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool: <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1660	1773	
==>hod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	16798	16906	
==>lation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20275	20383	
==>lation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8238	8334	
==>ot the right return value from first Object singleton/class method called by Foo');  

$Foo->add_ <==
6	/Users/nnunley/pugs/util/importgraph.pl	2306	2401	
==>s.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/);

my ($nodes, $edges) = (0, 0);
while (my ($name, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8036	8200	
==>nts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8036	8200	
==>nts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8036	8200	
==>nts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16119	16210	
==>turn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16119	16210	
==>turn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16119	16210	
==>turn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3849	3954	
==>..
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impleme <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3849	3954	
==>..
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impleme <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3849	3954	
==>..
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impleme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1149	1245	
==>, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1149	1245	
==>, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1149	1245	
==>, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5551	5720	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3671	3840	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5551	5720	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3671	3840	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5551	5720	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3671	3840	
==>rclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that non <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5770	5878	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3890	3998	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5770	5878	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3890	3998	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5770	5878	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3890	3998	
==>subclasses of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2620	2755	
==>cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2620	2755	
==>cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2620	2755	
==>cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	978	1110	
==>{ op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_[0]->{out}= $_[1] }
    |   type <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1828	1954	
==>rt}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || de <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1828	1954	
==>rt}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3774	3967	
==>e} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3774	3967	
==>e} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   su <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3774	3967	
==>e} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   su <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5520	5610	
==>stic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5520	5610	
==>stic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7717	7807	
==>stic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3630	3741	
==>ion that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7107	7218	
==>ion that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6064	6175	
==>ion that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	166	271	
==>mat = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	166	271	
==>mat = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML: <==
6	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3478	3571	
==>rian::duration;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:< <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4898	5032	
==>$entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5362	5496	
==>$entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	457	568	
==>= $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9875	9986	
==>= $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1852	1947	
==>e) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark n <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1852	1947	
==>e) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark n <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1290	1405	
==>lex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umla <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1290	1405	
==>lex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umla <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24671	24767	
==>cessfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the m <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23435	23531	
==>cessfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the m <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24671	24767	
==>cessfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the m <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23435	23531	
==>cessfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the m <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32427	32575	
==>returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterat <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33082	33230	
==>returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterat <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2175	2301	
==>&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	194	294	
==>l6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bou <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	194	294	
==>l6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bou <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	194	294	
==>l6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bou <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	486	585	
==>turn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $ <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	486	585	
==>turn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12028	12122	
==>et1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9149	9243	
==>et1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12028	12122	
==>et1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9149	9243	
==>et1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	16	120	
==>e one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	16	120	
==>e one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	16	120	
==>e one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	658	759	
==>ar($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	658	759	
==>ar($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	658	759	
==>ar($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5111	5241	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8081	8211	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5111	5241	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8081	8211	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5111	5241	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8081	8211	
==>local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3297	3406	
==>lf => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to kee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3297	3406	
==>lf => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to kee <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3297	3406	
==>lf => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to kee <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5410	5508	
==>XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5410	5508	
==>XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5410	5508	
==>XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2097	2188	
==>pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2097	2188	
==>pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{prel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2097	2188	
==>pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{prel <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	943	1054	
==>, '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1497	1596	
==>$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1497	1596	
==>$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1497	1596	
==>$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8067	8161	
==>m.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, followe <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8067	8161	
==>m.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, followe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18943	19118	
==>->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18943	19118	
==>->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not y <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18943	19118	
==>->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not y <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5501	5606	
==>ify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5501	5606	
==>ify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless de <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5501	5606	
==>ify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6728	6838	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9698	9808	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6728	6838	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9698	9808	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6728	6838	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9698	9808	
==>b ::make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15995	16114	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20712	20831	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15995	16114	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20712	20831	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15995	16114	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20712	20831	
==>tiparam => \%Class::Multimethods::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_n <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4216	4318	
==>pan ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span:: <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4216	4318	
==>pan ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span:: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39542	39637	
==>, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<p <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39542	39637	
==>, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24266	24360	
==>, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24266	24360	
==>, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<p <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3418	3520	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6432	6534	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8500	8602	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3418	3520	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6432	6534	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8500	8602	
==>no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) returns Bool`

- `path re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4717	4864	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7653	7800	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4717	4864	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7653	7800	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4717	4864	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7653	7800	
==>ispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # ma <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39991	40225	
==>opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get(' <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19540	19765	
==>opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get(' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3512	3688	
==>} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtrack <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4441	4613	
==>} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrack <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3402	3574	
==>} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrack <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4441	4613	
==>} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrack <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3385	3481	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6399	6495	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8467	8563	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3385	3481	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6399	6495	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8467	8563	
==>ath, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolut <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13533	13667	
==>g = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($strin <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	414	543	
==>ut = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for re <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	414	543	
==>ut = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3674	3796	
==>g = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3674	3796	
==>g = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3674	3796	
==>g = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	845	955	
==>_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CAL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	845	955	
==>_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CAL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	845	955	
==>_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CAL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	300	399	
==>'.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remove <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	300	399	
==>'.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remove <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	300	399	
==>'.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remove <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5802	5923	
==>ift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5802	5923	
==>ift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18143	18224	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18451	18532	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41408	41489	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41716	41797	
==>=> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2623	2745	
==>"start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.spa <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	3659	3781	
==>"start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2623	2745	
==>"start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3659	3781	
==>"start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.spa <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2144	2253	
==>t(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.fir <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2144	2253	
==>t(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.fir <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	421	537	
==>fined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	421	537	
==>fined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	421	537	
==>fined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30444	30536	
==>tion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34995	35087	
==>tion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whic <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34177	34269	
==>tion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8774	8940	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6327	6493	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8774	8940	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6327	6493	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8774	8940	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6327	6493	
==>es}), # the MRO of all the superclasses
                [ @{$self->superclasses} ]                      # a list of all the superclasses
            )
        ];
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1757	1870	
==>.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1757	1870	
==>.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.jo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1757	1870	
==>.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.jo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3828	3929	
==>red"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slur <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3828	3929	
==>red"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slur <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4418	4519	
==>red"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3737	3856	
==>= shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3737	3856	
==>= shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $nam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3737	3856	
==>= shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2821	2916	
==>lsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2821	2916	
==>lsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2821	2916	
==>lsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28958	29205	
==>erge')
                            );                          
                      })
                  );
                return $e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6488	6610	
==>acktracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6281	6396	
==>acktracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	588	689	
==>tput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	588	689	
==>tput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	588	689	
==>tput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5549	5653	
==>}";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5549	5653	
==>}";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5549	5653	
==>}";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsna <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1238	1331	
==>lf.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.m <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1238	1331	
==>lf.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.m <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19584	19675	
==>of_char> nodes when inside character classes.  Fixed.
(Mike Lambert)

Non-grouping parenthes <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5327	5443	
==>turn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6595	6711	
==>turn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5327	5443	
==>turn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6583	6699	
==>turn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tr <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1260	1363	
==>equest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return und <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1260	1363	
==>equest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return und <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2971	3069	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5985	6083	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8053	8151	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2971	3069	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5985	6083	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8053	8151	
==>eturns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_toler <==
6	/Users/nnunley/pugs/examples/hop6/Parser.pm	1844	1966	
==>nput) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $ne <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15981	16083	
==>> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privms <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15981	16083	
==>> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privms <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16627	16726	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16627	16726	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16627	16726	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15605	15710	
==>shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15605	15710	
==>shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15605	15710	
==>shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1102	1198	
==>e($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1102	1198	
==>e($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1102	1198	
==>e($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4248	4382	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7184	7318	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4248	4382	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7184	7318	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4248	4382	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7184	7318	
==>hod);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so that it binds values 
    # to $?SELF and $?CL <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3630	3738	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3630	3738	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7918	8023	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7048	7153	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7918	8023	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7048	7153	
==>operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5208	5330	
==>llectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5208	5330	
==>llectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5208	5330	
==>llectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    el <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28942	29056	
==>APP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[T <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28942	29056	
==>APP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[T <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	301	407	
==>APP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6413	6518	
==>erl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6413	6518	
==>erl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6413	6518	
==>erl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27466	27557	
==>exes

=head1 DESCRIPTION

This module contains the object definitions for F<Regexp::Parser>. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13427	13555	
==>elf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13427	13555	
==>elf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13427	13555	
==>elf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2323	2418	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2323	2418	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScop <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2323	2418	
==>$jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScop <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	264	364	
==>'World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> lin <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	264	364	
==>'World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> lin <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	498	587	
==>Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n" <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1111	1200	
==>Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n" <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	498	587	
==>Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n" <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1111	1200	
==>Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9213	9327	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6760	6874	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9213	9327	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6760	6874	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9213	9327	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6760	6874	
==>$dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17492	17633	
==>->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17492	17633	
==>->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17492	17633	
==>->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	53	149	
==>arnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	53	149	
==>arnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	53	149	
==>arnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19151	19273	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16389	16511	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19151	19273	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16389	16511	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19151	19273	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16389	16511	
==>ixed at some point though, becuase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32568	32663	
==>od is the N-ary version of the aforementioned binary union()
operator, and the order of its argu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37118	37213	
==>od is the N-ary version of the aforementioned binary union()
operator, and the order of its argu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36426	36521	
==>od is the N-ary version of the aforementioned binary union()
operator, and the order of its argu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	392	486	
==>on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	392	486	
==>on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	392	486	
==>on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2926	3037	
==>uous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2926	3037	
==>uous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $para <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2926	3037	
==>uous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17190	17281	
==>ULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17190	17281	
==>ULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17190	17281	
==>ULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25195	25297	
==>t and/or make the same change to an object when the permutation of its
arguments and any invocant objec <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11326	11428	
==>t and/or make the same change to an object when the permutation of its
arguments and any invocant objec <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14599	14701	
==>t and/or make the same change
to an object when the permutation of its arguments and any invocant
objec <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25195	25297	
==>t and/or make the same change to an object when the permutation of its
arguments and any invocant objec <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11326	11428	
==>t and/or make the same change to an object when the permutation of its
arguments and any invocant objec <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14599	14701	
==>t and/or make the same change
to an object when the permutation of its arguments and any invocant
objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5055	5188	
==>elf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5055	5188	
==>elf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5055	5188	
==>elf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1480	1589	
==>eClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1480	1589	
==>eClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6:: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1480	1589	
==>eClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16638	16814	
==>ay->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16638	16814	
==>ay->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16638	16814	
==>ay->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->ele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5271	5369	
==>ut files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5271	5369	
==>ut files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5271	5369	
==>ut files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	632	747	
==>s->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	632	747	
==>s->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	632	747	
==>s->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4198	4312	
==>g, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	un <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4198	4312	
==>g, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	un <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4788	4902	
==>g, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	un <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	10940	11077	
==>ion
            # this addition prints out the differnt TODO types
            foreach my $todo_type (keys %todos) {
                my $n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	642	761	
==>> $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	642	761	
==>> $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_ma <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5647	5754	
==>hild === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child N <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5647	5754	
==>hild === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child N <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16217	16320	
==>meter \"$_\" contains potential unsafe characters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8654	8787	
==>ed) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8654	8787	
==>ed) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8654	8787	
==>ed) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2437	2530	
==>ndef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is no <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2437	2530	
==>ndef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is no <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2437	2530	
==>ndef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15135	15246	
==>6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15135	15246	
==>6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15135	15246	
==>6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1508	1607	
==>t
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1508	1607	
==>t
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num: <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1508	1607	
==>t
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3533	3656	
==>, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3533	3656	
==>, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3533	3656	
==>, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2049	2141	
==>~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2049	2141	
==>~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2049	2141	
==>~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4478	4570	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6427	6519	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4478	4570	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6427	6519	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4478	4570	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6427	6519	
==>local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_S <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14578	14682	
==>s will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For examp <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14578	14682	
==>s will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For examp <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6885	6979	
==>SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1325	1419	
==>SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6885	6979	
==>SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1325	1419	
==>SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt> <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	871	1009	
==>$cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_sta <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4110	4248	
==>$cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_sta <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	871	1009	
==>$cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_sta <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4110	4248	
==>$cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19980	20074	
==>ers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19980	20074	
==>ers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4135	4251	
==>ler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parse <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3990	4103	
==>ler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4708	4816	
==>unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4708	4816	
==>unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4708	4816	
==>unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4008	4115	
==>unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6538	6651	
==>am;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6538	6651	
==>am;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5033	5139	
==>method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7701	7807	
==>method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4721	4823	
==>tion must be visible
    in the lexical scope to have any effect. It's possible the
    internal/extern <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6910	7008	
==>ace> { \s+ }

rule identifier { \w+ }
token literal_int { \d+ }

rule simple_call { <identifier><ws <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2527	2631	
==>ode::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1139	1243	
==>ode::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1840	1944	
==>ode::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2555	2644	
==>::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2555	2644	
==>::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2555	2644	
==>::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7293	7428	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4852	4987	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7293	7428	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4852	4987	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7293	7428	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4852	4987	
==>es if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13284	13387	
==>h PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13284	13387	
==>h PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        l <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13284	13387	
==>h PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4419	4515	
==>and().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4419	4515	
==>and().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4419	4515	
==>and().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3858	3991	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6794	6927	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3858	3991	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6794	6927	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3858	3991	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6794	6927	
==>You can only wrap proper methods for Roles";
        return bless sub {
            local $::ROLE = $role;
            return $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2896	2994	
==>enClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2896	2994	
==>enClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2896	2994	
==>enClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	322	416	
==>ow PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	322	416	
==>ow PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	322	416	
==>ow PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19824	19924	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16963	17063	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19824	19924	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16963	17063	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19824	19924	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16963	17063	
==>is probably not correct ...     
    elsif ($label =~ /^.(\.|\:).*$/ && (blessed($value) && $value->i <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3470	3575	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6484	6589	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8552	8657	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3470	3575	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6484	6589	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8552	8657	
==>e_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13895	14017	
==>ble_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13895	14017	
==>ble_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13895	14017	
==>ble_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_met <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5344	5458	
==>p = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2886	3000	
==>p = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3735	3849	
==>p = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6344	6507	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8793	8956	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6344	6507	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8793	8956	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6344	6507	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8793	8956	
==>die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10774	10910	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15315	15451	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10774	10910	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15315	15451	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10774	10910	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15315	15451	
==>_name ne '%:private_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4845	4993	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7781	7929	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4845	4993	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7781	7929	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4845	4993	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7781	7929	
==>again, 
        # making sure to rebless it
        $_[0] = bless sub {
            # bind the previous value of $?CLASS
            local $::CALLER: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	542	667	
==>] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	542	667	
==>] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24702	24798	
==>runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23466	23562	
==>runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24702	24798	
==>runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23466	23562	
==>runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6431	6526	
==>t => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIP <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6431	6526	
==>t => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIP <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13101	13194	
==>uctures (hash refs, array refs, scalars),
which is suitable as a generic data interchange form <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18196	18289	
==>uctures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
form <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13101	13194	
==>uctures (hash refs, array refs, scalars),
which is suitable as a generic data interchange form <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18196	18289	
==>uctures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
form <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6488	6613	
==>=> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6488	6613	
==>=> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6488	6613	
==>=> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15200	15321	
==>here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15200	15321	
==>here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15200	15321	
==>here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global d <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9878	9989	
==>ubrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15719	15830	
==>ubrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9878	9989	
==>ubrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15713	15824	
==>ubrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	1050	1160	
==>d) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1050	1160	
==>d) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13158	13265	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4328	4435	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8784	8891	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13158	13265	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4328	4435	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8784	8891	
==>" package serves only as the name-sake
representative for this whole file, which can be referenced as a unit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4528	4696	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7040	7208	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4528	4696	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7040	7208	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4528	4696	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7040	7208	
==>hod in here...
                    # there is no real distinction between the
                    # private class method or the private instance 
                    # m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6722	6868	
==>( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6722	6868	
==>( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6722	6868	
==>( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	411	507	
==>d

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESC <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	411	507	
==>d

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	967	1063	
==>d

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESC <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6625	6725	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5755	5855	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2409	2509	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2409	2509	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6625	6725	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5755	5855	
==>($two);
}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4576	4716	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7225	7365	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4799	4934	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11248	11383	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4799	4934	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11248	11383	
==>n};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	489	613	
==>n/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	489	613	
==>n/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7854	7972	
==>ix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13448	13566	
==>ix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7854	7972	
==>ix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13442	13560	
==>ix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2120	2225	
==>otemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_dat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2901	3006	
==>otemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_dat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2631	2732	
==>6 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2631	2732	
==>6 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1840	1938	
==>6 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3701	3799	
==>6 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under th <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6665	6779	
==>t {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $re eq ' <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4121	4226	
==>ode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr', <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4121	4226	
==>ode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr', <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	971	1076	
==>ode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr', <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	15976	16071	
==>ution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pet <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16034	16129	
==>ution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	338	442	
==>ong;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	338	442	
==>ong;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	338	442	
==>ong;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4878	4977	
==>B File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4878	4977	
==>B File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4878	4977	
==>B File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9487	9612	
==>1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9475	9600	
==>1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\ <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1719	1816	
==>ruction to source.
 # represented as processing instructions, or maybe comments
 # in the "normati <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1719	1816	
==>ruction to source.
 # represented as processing instructions, or maybe comments
 # in the "normati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2675	2796	
==>th_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7769	7890	
==>th_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2675	2796	
==>th_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7769	7890	
==>th_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4673	4787	
==>rsection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method ad <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4673	4787	
==>rsection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method ad <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1692	1908	
==>}
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_bl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2367	2519	
==>' => sub { # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSiz <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8151	8275	
==>p { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8151	8275	
==>p { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8151	8275	
==>p { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bl <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17371	17468	
==>asses = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @class <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3188	3311	
==>lash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3188	3311	
==>lash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => <==
6	/Users/nnunley/pugs/util/build_pugs.pl	7212	7325	
==>gs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $depends = ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3054	3153	
==>nd "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2049	2147	
==>wi-0.08/
and
  Robert D. Cameron for his "Perl Style Regular Expressions in Prolog".
    http://www <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2945	3040	
==>nd "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4364	4487	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4364	4487	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $di <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4364	4487	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20626	20720	
==>^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20626	20720	
==>^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20626	20720	
==>^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27656	27752	
==>ion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each origi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32208	32304	
==>ion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each origi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31300	31396	
==>ion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each origi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17705	17799	
==>{...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17705	17799	
==>{...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17705	17799	
==>{...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SU <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	602	712	
==>atch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6120	6230	
==>atch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	602	712	
==>atch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6132	6242	
==>atch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match: <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1287	1386	
==>lement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    d <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1287	1386	
==>lement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3673	3779	
==>inding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, In <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3673	3779	
==>inding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, In <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3673	3779	
==>inding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	116	214	
==>"recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	116	214	
==>"recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	116	214	
==>"recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6868	6969	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5998	6099	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2652	2753	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2652	2753	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6868	6969	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5998	6099	
==>ix:<∍> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∊> ($mem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5232	5339	
==>XX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5232	5339	
==>XX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5232	5339	
==>XX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} } <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	214	318	
==>t_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submet <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	214	318	
==>t_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submet <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6562	6652	
==>iv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3899	4019	
==>L_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  ' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3899	4019	
==>L_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  ' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	749	869	
==>L_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10134	10243	
==>emoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10134	10243	
==>emoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10134	10243	
==>emoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispa <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3681	3771	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6700	6790	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8769	8859	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3681	3771	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6700	6790	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8769	8859	
==>File::Spec::Functions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13342	13480	
==>f $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13342	13480	
==>f $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13342	13480	
==>f $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        m <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2227	2365	
==>f $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        m <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9840	9945	
==>lf:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9840	9945	
==>lf:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11791	11947	
==>ap( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            wh <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11791	11947	
==>ap( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            wh <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11791	11947	
==>ap( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            wh <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14611	14734	
==>tlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14611	14734	
==>tlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14611	14734	
==>tlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$ <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20974	21074	
==>0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5701	5800	
==>reate any missing packages 
nessecary, possibly storing a value in the last location.

  # create :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5701	5800	
==>reate any missing packages 
nessecary, possibly storing a value in the last location.

  # create :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5701	5800	
==>reate any missing packages 
nessecary, possibly storing a value in the last location.

  # create :: <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	16168	16255	
==>se@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Darr <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16226	16313	
==>se@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Darr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4342	4438	
==>rts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4342	4438	
==>rts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].to <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4342	4438	
==>rts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	188	283	
==>y to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	188	283	
==>y to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	188	283	
==>y to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here. <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2973	3076	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5987	6090	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8055	8158	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2973	3076	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5987	6090	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8055	8158	
==>urns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `case_tolerant ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2041	2211	
==>nly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2041	2211	
==>nly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2041	2211	
==>nly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21436	21531	
==>($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Ha <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21436	21531	
==>($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Ha <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21436	21531	
==>($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12664	12778	
==>self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"} <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3028	3138	
==>self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"} <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3028	3138	
==>self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"} <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4126	4225	
==>se value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory return <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4126	4225	
==>se value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6323	6422	
==>se value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8093	8231	
==>ad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8093	8231	
==>ad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8093	8231	
==>ad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5251	5363	
==>onstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6519	6631	
==>onstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5251	5363	
==>onstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6507	6619	
==>onstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8750	8855	
==>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/ch <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6279	6380	
==>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/ch <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2969	3075	
==>e terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, versi <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3126	3232	
==>e terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, versi <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2969	3075	
==>e terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, versi <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3126	3232	
==>e terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, versi <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12555	12647	
==>et of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12555	12647	
==>et of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6258	6407	
==>scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6258	6407	
==>scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6258	6407	
==>scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20553	20651	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MAC <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20553	20651	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MAC <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20553	20651	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MAC <==
6	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1702	1818	
==>$EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $EOUT;
    prin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3239	3345	
==>d_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3239	3345	
==>d_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3239	3345	
==>d_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = s <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23914	24009	
==>command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of exte <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23914	24009	
==>command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of exte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4232	4394	
==>$body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4232	4394	
==>$body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4232	4394	
==>$body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6758	6906	
==>$body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6758	6906	
==>$body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6758	6906	
==>$body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9032	9183	
==>$count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9032	9183	
==>$count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9032	9183	
==>$count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3622	3768	
==>$_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3869	4015	
==>$_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	1579	1681	
==>C<Perl6> is the
    # only required language, but supporting C<Perl5> is I<strongly>
    # recommended. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19260	19367	
==>{$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19260	19367	
==>{$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19260	19367	
==>{$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || ' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1874	1985	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2098	2209	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2324	2435	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1874	1985	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2098	2209	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2324	2435	
==>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11839	11935	
==>set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPA <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8986	9082	
==>set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPA <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11839	11935	
==>set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPA <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8986	9082	
==>set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPA <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10655	10743	
==>elf.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10655	10743	
==>elf.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10089	10188	
==>.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `i <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10089	10188	
==>.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `i <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40879	40973	
==>ing to distribute,
because that is a practical way of suggesting improvements to the standard
v <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26439	26533	
==>ing to distribute, because that is a practical way of
suggesting improvements to the standard v <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40879	40973	
==>ing to distribute,
because that is a practical way of suggesting improvements to the standard
v <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26439	26533	
==>ing to distribute, because that is a practical way of
suggesting improvements to the standard v <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4802	4959	
==>copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_p <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4802	4959	
==>copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_p <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2137	2253	
==>fy () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    re <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5108	5224	
==>fy () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    re <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2137	2253	
==>fy () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    re <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5108	5224	
==>fy () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2684	2811	
==>};
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5676	5801	
==>};
}

# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2983	3100	
==>};
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2983	3100	
==>};
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9402	9518	
==>}
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9402	9518	
==>}
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_opti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	111	204	
==>------------------------------------------
## now for some bootstrapping ....

## See http://a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	111	204	
==>------------------------------------------
## now for some bootstrapping ....

## See http://a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	111	204	
==>------------------------------------------
## now for some bootstrapping ....

## See http://a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6015	6198	
==>1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( def <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6015	6198	
==>1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( def <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6015	6198	
==>1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( def <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6069	6241	
==>l));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6069	6241	
==>l));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6069	6241	
==>l));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7906	8140	
==>) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7906	8140	
==>) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7906	8140	
==>) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17760	17853	
==>B infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17760	17853	
==>B infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17760	17853	
==>B infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2996	3101	
==>args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2996	3101	
==>args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2996	3101	
==>args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	212	312	
==>n't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	212	312	
==>n't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	212	312	
==>n't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15623	15737	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20344	20458	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15623	15737	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20344	20458	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15623	15737	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20344	20458	
==>);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Multimet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3629	3722	
==>_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3629	3722	
==>_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3629	3722	
==>_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	417	522	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	53	158	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	417	522	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	53	158	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	417	522	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	53	158	
==>in;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24315	24422	
==>},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24315	24422	
==>},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24315	24422	
==>},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new() <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2260	2359	
==>y $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2260	2359	
==>y $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2340	2439	
==>y $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25591	25680	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27786	27875	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25591	25680	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27786	27875	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25591	25680	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27786	27875	
==>self->elems->unboxed." ".Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3154	3296	
==>supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3154	3296	
==>supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3154	3296	
==>supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	724	830	
==>=> $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net: <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	724	830	
==>=> $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	49	148	
==>warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11082	11224	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8635	8777	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11082	11224	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8635	8777	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11082	11224	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8635	8777	
==>$::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the it <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2019	2164	
==>rimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1793	1932	
==>rimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8378	8517	
==>rimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1793	1932	
==>rimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8378	8517	
==>rimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	660	765	
==>) : bit->new(0) }
sub to_str { 
    # eventually must deal with Inf and NaN
    return str->new((shift)->t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13915	14044	
==>check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13915	14044	
==>check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        el <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13915	14044	
==>check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        el <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	161	278	
==>MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	161	278	
==>MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	161	278	
==>MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&cl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28023	28115	
==>he positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28023	28115	
==>he positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1538	1630	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1538	1630	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1538	1630	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	379	469	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	379	469	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	379	469	
==>d not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarNam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	593	697	
==>pe}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	593	697	
==>pe}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	593	697	
==>pe}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7488	7589	
==>tItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7488	7589	
==>tItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7488	7589	
==>tItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1695	1821	
==>ired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1695	1821	
==>ired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1695	1821	
==>ired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12510	12609	
==>ned };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12510	12609	
==>ned };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12510	12609	
==>ned };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11819	11967	
==>>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11819	11967	
==>>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11819	11967	
==>>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $ <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1229	1341	
==>lf->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Perl version '$perl_ve <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2590	2699	
==>1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_spa <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2590	2699	
==>1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_spa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13116	13284	
==>lue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13116	13284	
==>lue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13116	13284	
==>lue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1257	1369	
==>ecking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1257	1369	
==>ecking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1257	1369	
==>ecking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $j <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1071	1183	
==>e Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1276	1388	
==>e Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; go <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1337	1449	
==>e Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; go <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20422	20521	
==>ted to the ender() method of the node.

The init() method has been moved to another file to help kee <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33102	33189	
==>_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37652	37739	
==>_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24529	24695	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26718	26884	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24529	24695	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26718	26884	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24529	24695	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26718	26884	
==>PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11797	11982	
==>1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    method <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11797	11982	
==>1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    method <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11797	11982	
==>1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6613	6724	
==>Id: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6613	6724	
==>Id: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6613	6724	
==>Id: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19558	19663	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16790	16895	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19558	19663	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16790	16895	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19558	19663	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16790	16895	
==>ce
    if ($label =~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33463	33608	
==>@tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33463	33608	
==>@tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33463	33608	
==>@tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2442	2550	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7881	7989	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2442	2550	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7881	7989	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2442	2550	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7881	7989	
==>sa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9670	9797	
==>ar orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9670	9797	
==>ar orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9670	9797	
==>ar orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(i <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4554	4651	
==>f $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPe <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1237	1331	
==>e = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs') <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1237	1331	
==>e = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs') <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4932	5050	
==>f, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4932	5050	
==>f, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4932	5050	
==>f, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	481	590	
==>dBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	481	590	
==>dBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	481	590	
==>dBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	385	485	
==>ave?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	385	485	
==>ave?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	385	485	
==>ave?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12469	12589	
==>=> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12469	12589	
==>=> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12469	12589	
==>=> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12244	12362	
==>store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12244	12362	
==>store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12244	12362	
==>store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->un <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3009	3249	
==>ement>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3009	3249	
==>ement>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6581	6683	
==>) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tm <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6581	6683	
==>) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tm <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6581	6683	
==>) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tm <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	31076	31172	
==><andy at petdance.com> >>.

This program is free software; you can redistribute it and/or 
modify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6413	6509	
==>_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6413	6509	
==>_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6413	6509	
==>_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	525	617	
==>IL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	525	617	
==>IL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	525	617	
==>IL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6797	6904	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9767	9874	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6797	6904	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9767	9874	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6797	6904	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9767	9874	
==>rn $method if blessed($method) && $method->isa('Private::Method');        
        (defined $method && ref($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2394	2493	
==>$_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2394	2493	
==>$_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2394	2493	
==>$_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2433	2528	
==>$mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2433	2528	
==>$mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2433	2528	
==>$mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12569	12701	
==>('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic metho <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12569	12701	
==>('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1098	1197	
==>b infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1098	1197	
==>b infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1098	1197	
==>b infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b h <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16806	16894	
==>e2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7500	7605	
==>operator.



A ruleop() function gets as argument a list:



### we don't need a "high" level interface (n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7246	7347	
==>operator.

A ruleop() function gets as argument a list:

### we don't need a "high" level interface (n <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1898	1994	
==>eaders = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "P <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1898	1994	
==>eaders = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	615	710	
==>:Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariable <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	615	710	
==>:Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariable <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4988	5124	
==>d ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my in <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4988	5124	
==>d ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my in <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	474	608	
==>);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ r <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	472	606	
==>);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ r <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	474	608	
==>);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ r <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	472	606	
==>);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12169	12270	
==>ti method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15646	15747	
==>ti method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12834	12929	
==>extensions.  Please
refer to L<perldiag> for the explanations of the messages.

These are all co <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19309	19407	
==>n is in separate resource files used by the
program, so that if you wanted to upgrade or localize w <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19309	19407	
==>n is in separate resource files used by the
program, so that if you wanted to upgrade or localize w <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1147	1244	
==>s, like square roots or
cube roots (as in the example above).  Read a Calculus textbook for detail <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21497	21644	
==>es;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21497	21644	
==>es;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21497	21644	
==>es;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5538	5663	
==>$role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5538	5663	
==>$role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5538	5663	
==>$role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7114	7250	
==>nfinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7114	7250	
==>nfinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7114	7250	
==>nfinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4285	4416	
==>return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4285	4416	
==>return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4285	4416	
==>return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24907	25135	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27096	27324	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24907	25135	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27096	27324	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24907	25135	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27096	27324	
==>ples || $self->is_infinite; 
                $samples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4726	4870	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4726	4870	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4726	4870	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16246	16380	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20963	21097	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16246	16380	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20963	21097	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16246	16380	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20963	21097	
==>ass::Multimethods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3392	3496	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6406	6510	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8474	8578	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3392	3496	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6406	6510	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8474	8578	
==>r $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_absolute (Str $file) r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25210	25296	
==>Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25210	25296	
==>Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1781	1905	
==>unction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        }, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1781	1905	
==>unction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        }, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1781	1905	
==>unction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        }, <==
6	/Users/nnunley/pugs/util/version_h.pl	805	916	
==>m $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-r <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35898	35988	
==>=item C<get_set_member_combinations()>

This method returns an array ref having all combina <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35898	35988	
==>=item C<get_set_member_combinations()>

This method returns an array ref having all combina <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3948	4051	
==>BNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3948	4051	
==>BNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3948	4051	
==>BNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6589	6680	
==>UTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6589	6680	
==>UTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many te <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6589	6680	
==>UTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39505	39611	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39775	39881	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39505	39611	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39775	39881	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39505	39611	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39775	39881	
==>$ret, 'Perl6::Value::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    r <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15029	15155	
==>e match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or origi <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19204	19330	
==>e match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or origi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2036	2143	
==>ur &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sour <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2036	2143	
==>ur &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sour <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2036	2143	
==>ur &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sour <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6135	6228	
==>if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7826	7950	
==>idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11826	11946	
==>idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11826	11946	
==>idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9905	10004	
==>tation detail 
    # for the methods described below.
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9905	10004	
==>tation detail 
    # for the methods described below.
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9905	10004	
==>tation detail 
    # for the methods described below.
    # ---------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7858	7965	
==>ns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  == <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6988	7095	
==>ns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  == <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7858	7965	
==>ns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  == <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6988	7095	
==>ns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  == <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	7583	7682	
==>on part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::e <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7641	7740	
==>on part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9288	9416	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12261	12389	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9288	9416	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12261	12389	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9288	9416	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12261	12389	
==>erl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Subm <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2598	2699	
==><!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')> <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2919	3020	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->positio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2782	2883	
==><!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2470	2570	
==>t()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature che <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2470	2570	
==>t()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature che <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2470	2570	
==>t()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature che <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13241	13349	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10525	10633	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13241	13349	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10525	10633	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13241	13349	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10525	10633	
==>ams->{for};
    my $method_table;
    if (lc($params->{for}) eq 'instance' ||
        lc($params->{for}) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	162	279	
==>xup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	162	279	
==>xup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pSt <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	162	279	
==>xup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pSt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4466	4639	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6978	7151	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4466	4639	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6978	7151	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4466	4639	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6978	7151	
==>ame =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # private clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6650	6767	
==>erred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6650	6767	
==>erred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6650	6767	
==>erred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8304	8414	
==>)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8304	8414	
==>)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8304	8414	
==>)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2082	2200	
==>les verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pr <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	396	514	
==>les verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2082	2200	
==>les verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2082	2200	
==>les verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pr <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26702	26798	
==>0x80000
 #define ROPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0 <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	2814	2909	
==>map{$entry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8300	8418	
==>def

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	458	576	
==>def

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	690	805	
==>def
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8021	8136	
==>def
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	436	551	
==>def
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	690	805	
==>def
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15603	15708	
==>r(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15603	15708	
==>r(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15603	15708	
==>r(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	735	826	
==>stance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	735	826	
==>stance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	735	826	
==>stance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2016	2135	
==>angle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2016	2135	
==>angle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2016	2135	
==>angle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1486	1575	
==>ttribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1486	1575	
==>ttribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1486	1575	
==>ttribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_me <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13762	13905	
==>ubstr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3430	3564	
==>:any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tai <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3623	3757	
==>:any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tai <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3883	4014	
==>ubstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3883	4014	
==>ubstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3883	4014	
==>ubstr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	341	461	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	339	459	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	341	461	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	339	459	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	341	461	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	339	459	
==>ntation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    my $GL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15526	15637	
==>m::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15526	15637	
==>m::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15526	15637	
==>m::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35138	35242	
==>t offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35138	35242	
==>t offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $len <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35138	35242	
==>t offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $len <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1708	1833	
==>RCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1708	1833	
==>RCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1708	1833	
==>RCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3403	3502	
==>f->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3403	3502	
==>f->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3403	3502	
==>f->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24791	24889	
==>ue to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22405	22503	
==>ue to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9691	9789	
==>ue to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24791	24889	
==>ue to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22405	22503	
==>ue to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9691	9789	
==>ue to invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, e <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3081	3181	
==>PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::C <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3081	3181	
==>PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::C <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2381	2476	
==>:PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2381	2476	
==>:PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3965	4058	
==>lass got the right method return value');
is($Class->superclass, $Object, '... $Class is now a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5867	5960	
==>lass got the right method return value');
is($Class->superclass, $Object, '... $Class is now a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12554	12690	
==>f: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2924	3054	
==>f: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2924	3054	
==>f: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11996	12123	
==>f: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2404	2525	
==>f: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2404	2525	
==>f: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::W <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12592	12700	
==>ode .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12592	12700	
==>ode .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12592	12700	
==>ode .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4454	4628	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6966	7140	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4454	4628	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6966	7140	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4454	4628	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6966	7140	
==>f ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there is no real distinction between the
                    # p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15007	15184	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15007	15184	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15007	15184	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17787	17963	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17787	17963	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17787	17963	
==>or => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2316	2447	
==>arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2316	2447	
==>arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2316	2447	
==>arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29042	29138	
==>rl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29042	29138	
==>rl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29042	29138	
==>rl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8955	9110	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11928	12083	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8955	9110	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11928	12083	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8955	9110	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11928	12083	
==>so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMethod;
        @Perl6::S <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	715	906	
==>~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buf <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	715	906	
==>~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buf <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22300	22394	
==>l =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21172	21266	
==>l =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22300	22394	
==>l =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21172	21266	
==>l =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	911	1033	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	999	1121	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	911	1033	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	999	1121	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	911	1033	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	999	1121	
==>if($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runjs_args, $arg;
    } else {
      push @pug <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11405	11559	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2917	3071	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11405	11559	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2917	3071	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11405	11559	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2917	3071	
==>return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            i <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	189	301	
==>se Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	76	184	
==>se Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	76	184	
==>se Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17980	18078	
==>e than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17980	18078	
==>e than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5211	5298	
==>RHS(Min,Max), !.
p6_range_bounds( 0 ,Max) --> "...", digits_int(Max).
p6_range_bounds_RH <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	636	736	
==>ructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Me <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	636	736	
==>ructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Me <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33821	33920	
==>t (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array referenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	26	115	
==>eric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	26	115	
==>eric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	26	115	
==>eric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6145	6283	
==>ASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6145	6283	
==>ASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6145	6283	
==>ASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4813	4910	
==>DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4813	4910	
==>DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4813	4910	
==>DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $meth <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10209	10323	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12850	12964	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13686	13800	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16327	16441	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12967	13081	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15689	15803	
==>g) {
        # Both sources have identical headings; result is src intersection.
        return $?SELF!_intersectio <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8000	8126	
==>? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


s <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8058	8184	
==>? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	316	424	
==>?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	316	424	
==>?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32152	32248	
==>r both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the resu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36702	36798	
==>r both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the resu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1481	1608	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3044	3171	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1481	1608	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3044	3171	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1481	1608	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3044	3171	
==>$?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = und <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3854	4031	
==>elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [ <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3854	4031	
==>elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35737	35850	
==>bject, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3096	3198	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3096	3198	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3096	3198	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17778	17959	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14998	15179	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17778	17959	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14998	15179	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17778	17959	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14998	15179	
==>hod($1, for => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8041	8296	
==>tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8041	8296	
==>tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8041	8296	
==>tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1367	1472	
==>d it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1367	1472	
==>d it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1367	1472	
==>d it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1114	1214	
==>?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1114	1214	
==>?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1114	1214	
==>?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23357	23449	
==>nyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redis <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41281	41373	
==>nyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redis <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37307	37399	
==>nyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4601	4706	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7537	7642	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4601	4706	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7537	7642	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4601	4706	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7537	7642	
==>s "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3268	3400	
==>ould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3268	3400	
==>ould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3268	3400	
==>ould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	215	336	
==>);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	215	336	
==>);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	215	336	
==>);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10190	10345	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7741	7896	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10190	10345	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7741	7896	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10190	10345	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7741	7896	
==>top of the stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if curren <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14867	14993	
==>.
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $ke <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14867	14993	
==>.
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $ke <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	147	272	
==>ss defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	147	272	
==>ss defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	238	326	
==>ified_since if_unmodified_since last_modified
    content_type content_encoding content_l <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	238	326	
==>ified_since if_unmodified_since last_modified
    content_type content_encoding content_l <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2829	2945	
==>hing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2829	2945	
==>hing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to no <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2829	2945	
==>hing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to no <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2488	2588	
==>substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2488	2588	
==>substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2488	2588	
==>substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7527	7629	
==>main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7527	7629	
==>main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7527	7629	
==>main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3485	3579	
==>n2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3485	3579	
==>n2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3485	3579	
==>n2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1108	1209	
==>6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1108	1209	
==>6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)= <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1108	1209	
==>6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4394	4485	
==>blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4394	4485	
==>blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4394	4485	
==>blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	645	767	
==>match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	742	864	
==>match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	811	924	
==>> 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start> <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	553	666	
==>> 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start> <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	811	924	
==>> 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start> <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	553	666	
==>> 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3155	3297	
==>rray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3155	3297	
==>rray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fro <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3155	3297	
==>rray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2194	2303	
==>::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2194	2303	
==>::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2194	2303	
==>::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3213	3402	
==>class);
                }
                $class = $eigenclass;                
            }
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2227	2322	
==>f nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more. <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2227	2322	
==>f nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2915	3009	
==>s_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2915	3009	
==>s_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2915	3009	
==>s_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10262	10411	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7813	7962	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10262	10411	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7813	7962	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10262	10411	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7813	7962	
==>ator
                my $current_class = $stack[-1]->();
                # if current is null then ...
                if (not defined $current_class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9230	9337	
==>key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9230	9337	
==>key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9230	9337	
==>key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6512	6605	
==>sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6512	6605	
==>sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6512	6605	
==>sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4879	5002	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7528	7651	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5093	5209	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11542	11658	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5093	5209	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11542	11658	
==>head;
    delete $match->{abort};
    return $match;
}

# not a 'rule node'
# gets a variable from the user's pad
# t <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2743	2903	
==>y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2834	2976	
==>ernation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        opt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3122	3256	
==>ernation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        opt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9540	9674	
==>ernation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3122	3256	
==>ernation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9540	9674	
==>ernation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        opt <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	83	181	
==>ub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	47	145	
==>ub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	135	233	
==>ub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1806	1920	
==>r")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1806	1920	
==>r")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pV <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1806	1920	
==>r")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pV <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1104	1205	
==>perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1104	1205	
==>perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1104	1205	
==>perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22452	22596	
==>Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22452	22596	
==>Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22452	22596	
==>Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3134	3238	
==>->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3134	3238	
==>->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3134	3238	
==>->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14238	14408	
==>et->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14238	14408	
==>et->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14238	14408	
==>et->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{ <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1803	1911	
==>y $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my $ini <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16001	16098	
==>will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a log <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16001	16098	
==>will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a log <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2931	3131	
==>nboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2931	3131	
==>nboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2931	3131	
==>nboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11924	12116	
==>nue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11924	12116	
==>nue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11924	12116	
==>nue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21473	21614	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21473	21614	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    n <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21473	21614	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5686	5799	
==>ody) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5686	5799	
==>ody) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5686	5799	
==>ody) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{att <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5841	5937	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4971	5067	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5841	5937	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4971	5067	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	118	213	
==>new whenever you enter a new rule or parenthesized
group.  This is approximately the Match objec <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	118	213	
==>new whenever you enter a new rule or parenthesized
group.  This is approximately the Match objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	60	151	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	284	375	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	60	151	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	284	375	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	60	151	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	284	375	
==>bjects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(funct <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6732	6842	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9702	9812	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6732	6842	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9702	9812	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6732	6842	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9702	9812	
==>make_private_method ($) {
        my ($method) = @_;
        return $method if blessed($method) && $method->isa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7884	8019	
==>d literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13478	13613	
==>d literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7884	8019	
==>d literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13472	13607	
==>d literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[ <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	1971	2065	
==>(equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=he <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1971	2065	
==>(equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7280	7411	
==>efined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7280	7411	
==>efined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7280	7411	
==>efined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	611	701	
==>sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	611	701	
==>sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	611	701	
==>sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1975	2089	
==>me) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_ev <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1975	2089	
==>me) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_ev <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1975	2089	
==>me) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_ev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5986	6095	
==>utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5986	6095	
==>utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5986	6095	
==>utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1596	1730	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3159	3293	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1596	1730	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3159	3293	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1596	1730	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3159	3293	
==>PACKAGE = undef;
    $::ROLE    = undef;
    # this allows us to investigate from where the
    # call came, it is used in private meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3986	4090	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2077	2181	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3986	4090	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2077	2181	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3986	4090	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2077	2181	
==>ispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $method- <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7007	7106	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6137	6236	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2791	2890	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2791	2890	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7007	7106	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6137	6236	
==>t.includes($member);
}
multi sub *infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes( <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	9132	9265	
==>ring ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (S <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9132	9265	
==>ring ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11549	11680	
==>...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11549	11680	
==>...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            w <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11549	11680	
==>...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            w <==
6	/Users/nnunley/pugs/util/addauthors.pl	1606	1714	
==>anid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => $nic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17318	17492	
==>spatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17318	17492	
==>spatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17318	17492	
==>spatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12709	12808	
==>_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_sin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12709	12808	
==>_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_sin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12709	12808	
==>_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_sin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2205	2313	
==>un::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2205	2313	
==>un::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2205	2313	
==>un::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1400	1500	
==>_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param-> <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1400	1500	
==>_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param-> <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1609	1709	
==>_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	272	375	
==>VIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	272	375	
==>VIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	272	375	
==>VIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1175	1276	
==>he first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1175	1276	
==>he first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $test <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1255	1356	
==>he first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $test <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	519	630	
==>gs "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	519	630	
==>gs "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	519	630	
==>gs "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last st <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1365	1464	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1365	1464	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1365	1464	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22793	22889	
==>hoose to show less than all of the available details depending on the
intended viewer.

=head2 Co <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22926	23022	
==>gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a r <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21744	21840	
==>gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a r <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22793	22889	
==>hoose to show less than all of the available details depending on the
intended viewer.

=head2 Co <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22926	23022	
==>gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21744	21840	
==>gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18485	18639	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15723	15877	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18485	18639	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15723	15877	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18485	18639	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15723	15877	
==>attribute($label, for => 'instance') ?
                    $self->get_attribute($label, for => 'instance')
                    :
                    # clas <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9241	9372	
==>ven lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        w <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9241	9372	
==>ven lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        w <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	997	1098	
==>3dir},
        installsiteman1dir => $Config{installsiteman1dir} || $Config{installman1dir},
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8640	8737	
==>',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8640	8737	
==>',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8640	8737	
==>',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4984	5091	
==>r) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4984	5091	
==>r) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5574	5681	
==>r) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	97	193	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	97	193	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	97	193	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3025	3150	
==>y issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3025	3150	
==>y issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3025	3150	
==>y issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7506	7620	
==>me,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7506	7620	
==>me,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7506	7620	
==>me,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7857	7973	
==>ar match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7857	7973	
==>ar match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7857	7973	
==>ar match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6380	6495	
==>ar  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6380	6495	
==>ar  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6380	6495	
==>ar  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,nu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14946	15098	
==>ined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $cha <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14946	15098	
==>ined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $cha <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9882	9994	
==>le, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @par <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15723	15835	
==>le, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @par <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9882	9994	
==>le, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @par <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15717	15829	
==>le, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23512	23661	
==>v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23512	23661	
==>v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23512	23661	
==>v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11266	11388	
==>b firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11266	11388	
==>b firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11266	11388	
==>b firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2720	2836	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5710	5826	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3015	3124	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9433	9542	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3015	3124	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9433	9542	
==>leops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return altern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10716	10840	
==>( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10716	10840	
==>( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10716	10840	
==>( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2901	3013	
==>ss[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2901	3013	
==>ss[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ei <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2901	3013	
==>ss[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ei <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	445	561	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	665	781	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	445	561	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	665	781	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	445	561	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	665	781	
==>JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNat <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2817	2919	
==>d _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2817	2919	
==>d _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4249	4379	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4442	4572	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4989	5097	
==>ach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4989	5097	
==>ach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4989	5097	
==>ach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->na <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	521	615	
==>ode is currently completely in flux.  It is simultaneously being
overhauled, cleaned up, and p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7025	7169	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9995	10139	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7025	7169	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9995	10139	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7025	7169	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9995	10139	
==>method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the previous call
        # and kno <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3053	3207	
==>ntifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3064	3218	
==>ntifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::captur <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5736	5833	
==>ub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4866	4963	
==>ub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5736	5833	
==>ub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4866	4963	
==>ub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8857	9100	
==>hings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8857	9100	
==>hings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8857	9100	
==>hings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	937	1034	
==>s pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitiali <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	937	1034	
==>s pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitiali <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	937	1034	
==>s pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitiali <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16601	16717	
==>$s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16601	16717	
==>$s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16601	16717	
==>$s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6429	6517	
==>);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6429	6517	
==>);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6429	6517	
==>);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2133	2235	
==>def (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2133	2235	
==>def (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2133	2235	
==>def (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	874	972	
==>miurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throug <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	874	972	
==>miurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throug <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	874	972	
==>miurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throug <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7867	7968	
==>var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7867	7968	
==>var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7867	7968	
==>var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3554	3645	
==>f(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3554	3645	
==>f(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if de <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3554	3645	
==>f(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if de <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6252	6364	
==>ind we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an excepti <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5325	5437	
==>ind we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an excepti <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6252	6364	
==>ind we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an excepti <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5325	5437	
==>ind we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an excepti <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7747	7852	
==>r::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $captu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7485	7586	
==>r::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $captu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6973	7114	
==>op::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6740	6876	
==>op::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6139	6236	
==>`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `cat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8207	8304	
==>`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `cat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6139	6236	
==>`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `cat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8207	8304	
==>`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `cat <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1981	2122	
==>se of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$sec <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1981	2122	
==>se of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$sec <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13082	13176	
==>itive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic dat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18177	18271	
==>itive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic dat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13082	13176	
==>itive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic dat <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18177	18271	
==>itive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16278	16395	
==>y $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here mea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16278	16395	
==>y $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here mea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16278	16395	
==>y $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here mea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2606	2700	
==>\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2606	2700	
==>\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2606	2700	
==>\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1816	1916	
==>"N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1816	1916	
==>"N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1816	1916	
==>"N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7075	7169	
==>-> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7075	7169	
==>-> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline(' <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7075	7169	
==>-> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline(' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6726	6828	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5856	5958	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2510	2612	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2510	2612	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6726	6828	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5856	5958	
==>ns Bool {
    $one.includes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2799	2936	
==>ttrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2799	2936	
==>ttrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2799	2936	
==>ttrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3454	3575	
==>$old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3454	3575	
==>$old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	6362	6464	
==>ad} == 0 >> and C<< $total->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref of all t <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13172	13270	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4342	4440	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8798	8896	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13172	13270	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4342	4440	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8798	8896	
==>es only as the name-sake
representative for this whole file, which can be referenced as a unit by
d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16025	16163	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20742	20880	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16025	16163	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20742	20880	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16025	16163	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20742	20880	
==>ds::Pure::MULTIPARAM,
            install_wrapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13485	13592	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10769	10876	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13485	13592	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10769	10876	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13485	13592	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10769	10876	
==>turn ::opaque_instance_attr($self => '%:class_methods');
    }
    elsif (lc($params->{for}) eq 'private') { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1933	2040	
==>join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compon <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1933	2040	
==>join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compon <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1933	2040	
==>join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compon <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12883	12987	
==>erl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12883	12987	
==>erl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12883	12987	
==>erl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1621	1791	
==>rol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnic <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1621	1791	
==>rol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5719	5846	
==>ame)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5719	5846	
==>ame)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5719	5846	
==>ame)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31676	31767	
==>rs>
duplicate attribute names of the invocant Relation::Example.

=item C<wrap ( Mapping(Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4161	4297	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7097	7233	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4161	4297	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7097	7233	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4161	4297	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7097	7233	
==>airly transparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically ta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3507	3644	
==>ol  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3700	3837	
==>ol  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12058	12153	
==>C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9179	9274	
==>C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12058	12153	
==>C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9179	9274	
==>C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2924	3038	
==>thod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3129	3243	
==>thod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5678	5792	
==>thod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4310	4424	
==>thod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21060	21159	
==>all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25612	25711	
==>all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the s <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22252	22364	
==>aque $self:)) returns num 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        sy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1668	1776	
==>thority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1668	1776	
==>thority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alre <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1668	1776	
==>thority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alre <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1094	1188	
==>rns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>steva <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1094	1188	
==>rns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>steva <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	36	161	
==>"
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	36	161	
==>"
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	36	161	
==>"
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18766	18871	
==>nt.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<pack <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18766	18871	
==>nt.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<pack <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2712	2813	
==>item App

An App makes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2922	3040	
==>st
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2922	3040	
==>st
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38711	38805	
==>riable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name w <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38711	38805	
==>riable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name w <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7222	7306	
==>L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror> <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7222	7306	
==>L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1104	1206	
==>core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1104	1206	
==>core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1104	1206	
==>core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7208	7300	
==>ton_test_on_object',
  '... still got the right return value from first Object singleton/clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8203	8295	
==>ton_test_on_object',
  '... still got the right return value from first Object singleton/clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10772	10864	
==>ton_test_on_object',
  '... still got the right return value from first Object singleton/clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6941	7062	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9911	10032	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6941	7062	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9911	10032	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6941	7062	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9911	10032	
==>nfess "Bad method body (" . ($method || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # ar <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10701	10839	
==>re->new(
                params  => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26044	26181	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27526	27663	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28310	28447	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38674	38811	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39201	39338	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36299	36395	
==>ating pairs where the values of those attributes differ and unioning
the remaining said tuple pai <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38052	38148	
==>ating pairs where the
values of those attributes differ and unioning the remaining said tuple
pai <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40848	40944	
==>ating pairs where the values of those attributes differ and unioning
the remaining said tuple pai <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42601	42697	
==>ating pairs where the
values of those attributes differ and unioning the remaining said tuple
pai <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40462	40558	
==>ating pairs where the values of those attributes differ and unioning
the remaining said tuple pai <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42251	42347	
==>ating pairs where the
values of those attributes differ and unioning the remaining said tuple
pai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4990	5092	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3218	3320	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4990	5092	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3218	3320	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4990	5092	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3218	3320	
==>y ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	771	880	
==>all e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	771	880	
==>all e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	771	880	
==>all e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4048	4149	
==>pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4048	4149	
==>pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and define <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4048	4149	
==>pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and define <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4605	4755	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7254	7404	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4827	4972	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11276	11421	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4827	4972	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11276	11421	
==>bort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # print Dumper( $match ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3402	3531	
==>e eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3402	3531	
==>e eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3402	3531	
==>e eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13186	13313	
==>nd => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $da <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13186	13313	
==>nd => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $da <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8867	8975	
==>6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $default = $op{'paramDefault'};
	pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3899	4019	
==>$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3899	4019	
==>$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3899	4019	
==>$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comma <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19052	19166	
==>>{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20410	20524	
==>>{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree- <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52810	52904	
==>attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('%:namespace' => 'ha <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1421	1534	
==>------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celem <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1421	1534	
==>------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1097	1203	
==>lemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1097	1203	
==>lemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1097	1203	
==>lemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, <==
6	/Users/nnunley/pugs/examples/hop6/Parser.pm	557	658	
==>EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) {
  return(undef, $input);
}

sub End_of_In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3983	4086	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2074	2177	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3983	4086	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2074	2177	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3983	4086	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2074	2177	
==>->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $met <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2798	2952	
==>eturns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        las <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3418	3572	
==>eturns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        las <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2798	2952	
==>eturns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        las <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3418	3572	
==>eturns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        las <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23799	23928	
==>turn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20220	20349	
==>turn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13347	13452	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10631	10736	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13347	13452	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10631	10736	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13347	13452	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10631	10736	
==>q 'submethod') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12781	12894	
==>ial case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12781	12894	
==>ial case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12781	12894	
==>ial case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9207	9318	
==>my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9207	9318	
==>my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Co <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9207	9318	
==>my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15193	15316	
==>elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15193	15316	
==>elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15193	15316	
==>elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5916	6020	
==>- not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5916	6020	
==>- not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5916	6020	
==>- not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13006	13118	
==>l6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13006	13118	
==>l6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13006	13118	
==>l6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13320	13424	
==>ass_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13320	13424	
==>ass_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13320	13424	
==>ass_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1238	1357	
==>OC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1238	1357	
==>OC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1238	1357	
==>OC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3765	3873	
==>ht x for p1');
is($p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @ <==
6	/Users/nnunley/pugs/util/package-osx.pl	1060	1166	
==>.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/ma <==
6	/Users/nnunley/pugs/util/package-osx.pl	3370	3476	
==>.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/ma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11158	11283	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12629	12754	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14635	14760	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16106	16231	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13943	14068	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15468	15593	
==>is second source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1879	1994	
==>->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1879	1994	
==>->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1879	1994	
==>->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	703	810	
==><?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	703	810	
==><?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	703	810	
==><?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11794	11893	
==>, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8941	9040	
==>, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11794	11893	
==>, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8941	9040	
==>, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$s <==
6	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1424	1519	
==>ming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C <==
6	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1424	1519	
==>ming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	596	706	
==>cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	596	706	
==>cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lval <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	596	706	
==>cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4016	4121	
==>okAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->ski <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4016	4121	
==>okAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->ski <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4016	4121	
==>okAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->ski <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2718	2822	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5366	5470	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2718	2822	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5366	5470	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2718	2822	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5366	5470	
==>itializes the instance attribute container type, in
    # perl 6 this should be done automatically
    su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1055	1184	
==>s";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub12 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1059	1180	
==>s";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub12 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3708	3813	
==>= 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3708	3813	
==>= 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3708	3813	
==>= 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retur <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23200	23293	
==>3
      <'function'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'} <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	393	591	
==>eq(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$s <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2540	2651	
==>f both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2540	2651	
==>f both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1303	1400	
==>t_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub state <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1303	1400	
==>t_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub state <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1303	1400	
==>t_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub state <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	915	1028	
==>my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	915	1028	
==>my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	915	1028	
==>my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16608	16711	
==>rray'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::p <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	24144	24244	
==>nt a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow- <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15656	15755	
==>rray'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	455	558	
==>gs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	455	558	
==>gs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	455	558	
==>gs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4307	4393	
==>::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4307	4393	
==>::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4307	4393	
==>::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_su <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6358	6523	
==>hc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5342	5470	
==>ule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&sub <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5535	5663	
==>ule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5617	5739	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8587	8709	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5617	5739	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8587	8709	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5617	5739	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8587	8709	
==>ame sub. This results in this
        # method being passed an already blessed method 
        # instead of a plain CODE re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38866	38972	
==>nternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4461	4567	
==>\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4461	4567	
==>\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4461	4567	
==>\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38866	38972	
==>nternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    retu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38866	38972	
==>nternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	273	370	
==>S.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	273	370	
==>S.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	273	370	
==>S.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4975	5066	
==>(*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4975	5066	
==>(*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4975	5066	
==>(*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
M <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2411	2512	
==>-262, without which
#  this grammar would likely not have been written. - Mitchell N Charity
#


gramm <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9939	10033	
==>et::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $object <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9939	10033	
==>et::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $object <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1612	1701	
==>:inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1612	1701	
==>:inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1612	1701	
==>:inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $se <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25222	25318	
==>ge to an object when the permutation of its
arguments and any invocant object's attributes is ide <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11353	11449	
==>ge to an object when the permutation of its
arguments and any invocant object's attributes is ide <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14626	14722	
==>ge
to an object when the permutation of its arguments and any invocant
object's attributes is ide <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25222	25318	
==>ge to an object when the permutation of its
arguments and any invocant object's attributes is ide <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11353	11449	
==>ge to an object when the permutation of its
arguments and any invocant object's attributes is ide <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14626	14722	
==>ge
to an object when the permutation of its arguments and any invocant
object's attributes is ide <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	965	1071	
==>right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1192	1298	
==>right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1419	1525	
==>right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1644	1750	
==>right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	690	777	
==>nce If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range R <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	690	777	
==>nce If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10056	10209	
==>on,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $de <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	618	761	
==>on,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $de <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	618	761	
==>on,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $de <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12913	13023	
==>src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16390	16500	
==>src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $oth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15752	15862	
==>src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $oth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	983	1103	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1071	1191	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	983	1103	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1071	1191	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	983	1103	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1071	1191	
==>ush @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	329	480	
==>p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	329	480	
==>p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_v <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	329	480	
==>p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_v <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26580	26685	
==>tial is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define RO <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31795	31890	
==>prefers) language A but also understands
language B.  Later on, if for example the first library <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31795	31890	
==>prefers) language A but also understands
language B.  Later on, if for example the first library <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2566	2693	
==>";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2566	2693	
==>";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2566	2693	
==>";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	47	143	
==>modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use wa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	47	143	
==>modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use wa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	47	143	
==>modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use wa <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1455	1549	
==>than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscuring <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40526	40620	
==>t will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILIT <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26040	26134	
==>t will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILIT <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1455	1549	
==>than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscuring <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40526	40620	
==>t will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILIT <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26040	26134	
==>t will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILIT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1915	2017	
==>\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1915	2017	
==>\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1915	2017	
==>\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_man <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3856	3950	
==>tance, passing on the C<$description> 
parameter, and setting the passed parameter to a true va <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3856	3950	
==>tance, passing on the C<$description> 
parameter, and setting the passed parameter to a true va <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6053	6147	
==>tance, passing on the C<$description> 
parameter, and setting the passed parameter to a true va <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2935	3341	
==>ta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2935	3341	
==>ta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta: <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2185	2304	
==>h, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2185	2304	
==>h, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3954	4049	
==>:Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CON <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3954	4049	
==>:Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CON <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	834	949	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	922	1037	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	834	949	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	922	1037	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	834	949	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	922	1037	
==>t;
    } elsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --opti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	467	568	
==>$ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	467	568	
==>$ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  me <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	467	568	
==>$ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  me <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29103	29203	
==>bject into the tree.  It returns a value that says whether
or not it ended up being merged with the p <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16205	16296	
==>e
user instead.

Locale::KeyedText provides a simple but effective mechanism for
application <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16205	16296	
==>e
user instead.

Locale::KeyedText provides a simple but effective mechanism for
application <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13534	13679	
==>spatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13534	13679	
==>spatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13534	13679	
==>spatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9734	9860	
==>lf->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9734	9860	
==>lf->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9734	9860	
==>lf->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35909	36005	
==>attribute names
and corresponding common tuple values are aligned and merged.  The heading
of the <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37652	37748	
==>attribute names and corresponding common tuple values
are aligned and merged.  The heading of the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40459	40555	
==>attribute names
and corresponding common tuple values are aligned and merged.  The heading
of the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42201	42297	
==>attribute names and corresponding common tuple values
are aligned and merged.  The heading of the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40073	40169	
==>attribute names
and corresponding common tuple values are aligned and merged.  The heading
of the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41851	41947	
==>attribute names and corresponding common tuple values
are aligned and merged.  The heading of the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	753	891	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	841	979	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	753	891	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	841	979	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	753	891	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	841	979	
==>"-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_args, spli <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2691	2794	
==>PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2691	2794	
==>PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2691	2794	
==>PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2254	2356	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2254	2356	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2254	2356	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    v <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3663	3774	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3663	3774	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7951	8059	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7081	7189	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7951	8059	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7081	7189	
==>3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3784	3886	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6720	6822	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3784	3886	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6720	6822	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3784	3886	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6720	6822	
==>lessed($method) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper meth <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4111	4242	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6760	6891	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4346	4473	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10795	10922	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4346	4473	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10795	10922	
==>tch';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4556	4660	
==>'$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4556	4660	
==>'$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$. <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4556	4660	
==>'$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1476	1575	
==>? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1476	1575	
==>? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1476	1575	
==>? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	561	665	
==>val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	331	435	
==>val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	331	435	
==>val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8526	8621	
==>m_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8526	8621	
==>m_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8526	8621	
==>m_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	844	948	
==>e "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and au <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	844	948	
==>e "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and au <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	844	948	
==>e "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and au <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5831	5929	
==>PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5831	5929	
==>PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5831	5929	
==>PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10520	10737	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8071	8288	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10520	10737	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8071	8288	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10520	10737	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8071	8288	
==>ck ...
                    pop @stack;
                    # now go back to the top and start over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_mak <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	676	783	
==>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONST <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	676	783	
==>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONST <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23031	23130	
==>s are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27583	27682	
==>s are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Headi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26360	26459	
==>s are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Headi <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24707	24804	
==>atch next.

=back

=head2 Devices and Standards

I made a few C-macro-style functions for easy acc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7316	7455	
==>al",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7316	7455	
==>al",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7316	7455	
==>al",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3389	3505	
==>$eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3389	3505	
==>$eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3389	3505	
==>$eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5681	5803	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3801	3923	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5681	5803	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3801	3923	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5681	5803	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3801	3923	
==>XXX -
        # we should check that none of the classes passed to us
        # are also subclasses of us, this is circular <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1134	1277	
==>ODE
       p6_loop_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20376	20470	
==>eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20376	20470	
==>eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20376	20470	
==>eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10220	10313	
==>ormedness of the input, such as that mandatory
constructor arguments are provided and that the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10220	10313	
==>ormedness of the input, such as that mandatory
constructor arguments are provided and that the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4251	4413	
==>y %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4251	4413	
==>y %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'typ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4251	4413	
==>y %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15688	15779	
==>::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15688	15779	
==>::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15688	15779	
==>::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37264	37428	
==>-1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37264	37428	
==>-1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37264	37428	
==>-1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4217	4328	
==>def;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4217	4328	
==>def;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4217	4328	
==>def;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8254	8404	
==>== 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8254	8404	
==>== 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8254	8404	
==>== 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14073	14193	
==>@{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14073	14193	
==>@{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14073	14193	
==>@{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	667	797	
==>r {
    my $self = shift;
    my $pkg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or return;

    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2091	2212	
==>$body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2091	2212	
==>$body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("A <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2091	2212	
==>$body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("A <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9975	10089	
==>Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Ba <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9975	10089	
==>Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10944	11036	
==>------------------------------------------
Random Thoughts on Role state:
------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10967	11059	
==>-------------------
Random Thoughts on Role state:
------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10944	11036	
==>------------------------------------------
Random Thoughts on Role state:
------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10967	11059	
==>-------------------
Random Thoughts on Role state:
------------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10944	11036	
==>------------------------------------------
Random Thoughts on Role state:
------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10967	11059	
==>-------------------
Random Thoughts on Role state:
------------------------------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17012	17162	
==>canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17012	17162	
==>canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (de <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17012	17162	
==>canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	568	715	
==>t= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16251	16342	
==>simple but effective mechanism for
applications and packages that empowers single binaries t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16251	16342	
==>simple but effective mechanism for
applications and packages that empowers single binaries t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4382	4480	
==>= 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4382	4480	
==>= 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6579	6677	
==>= 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4153	4250	
==>= 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4153	4250	
==>= 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6350	6447	
==>= 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test:: <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16671	16798	
==>local pmc exp
    .local pmc newfrom
    .local pmc code
    .local pmc sub
    .local pmc pad

    null code
    null sub
    i <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6463	6562	
==>of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Documen <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6463	6562	
==>of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Documen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3984	4081	
==>run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3984	4081	
==>run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3984	4081	
==>run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{ <==
6	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	842	962	
==>off|Off|OFF)/;
            $val = undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $val\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	837	944	
==>s when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	837	944	
==>s when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	837	944	
==>s when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document. <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1972	2069	
==>p (lex only) or a dynamic lookup. 



This object-serialization format is shared across all runtim <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1898	1993	
==>p (lex only) or a dynamic lookup. 

This object-serialization format is shared across all runtim <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	273	380	
==>ot loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	273	380	
==>ot loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	273	380	
==>ot loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1291	1389	
==>ulti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs par <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1291	1389	
==>ulti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs par <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1291	1389	
==>ulti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs par <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29664	29773	
==>t "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str { <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29664	29773	
==>t "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str { <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4291	4395	
==>plit(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4291	4395	
==>plit(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17441	17541	
==>erse map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,$RO <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	468	565	
==>t "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1693	1851	
==>ub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1693	1851	
==>ub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $op <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1693	1851	
==>ub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	985	1116	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1073	1204	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	985	1116	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1073	1204	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	985	1116	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1073	1204	
==>h @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2897	3095	
==>ement>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    d <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3151	3349	
==>ement>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    d <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2897	3095	
==>ement>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    d <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3151	3349	
==>ement>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    d <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9071	9169	
==>any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($sel <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9071	9169	
==>any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($sel <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27877	27974	
==>values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32429	32526	
==>values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31521	31618	
==>values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8712	8866	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11685	11839	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8712	8866	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11685	11839	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8712	8866	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11685	11839	
==>he use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $method->(@_);            
        } => 'Perl6::Submetho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2734	2847	
==>r $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2734	2847	
==>r $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2412	2511	
==>erl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2412	2511	
==>erl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1633	1726	
==>erl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3494	3587	
==>erl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	214	321	
==>h & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengt <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	214	321	
==>h & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengt <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2272	2370	
==>like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submetho <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2272	2370	
==>like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submetho <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12936	13030	
==>rs in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple string <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12936	13030	
==>rs in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple string <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8554	8687	
==>$.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8554	8687	
==>$.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1656	1773	
==>ruct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) { <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11724	11829	
==>{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _defau <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2156	2254	
==>@fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UN <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2156	2254	
==>@fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14977	15148	
==>isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14977	15148	
==>isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14977	15148	
==>isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4267	4388	
==>y ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4267	4388	
==>y ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4267	4388	
==>y ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pi <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7114	7273	
==>mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7114	7273	
==>mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	40	140	
==>t a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	44	144	
==>t a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	40	140	
==>t a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	44	144	
==>t a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	880	984	
==>te. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	880	984	
==>te. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	880	984	
==>te. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1043	1136	
==>ix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1043	1136	
==>ix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1043	1136	
==>ix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10437	10547	
==>-----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be imple <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10437	10547	
==>-----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be imple <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10437	10547	
==>-----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be imple <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1162	1264	
==>es

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1162	1264	
==>es

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::R <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1162	1264	
==>es

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3884	4062	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6411	6589	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3884	4062	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6411	6589	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3884	4062	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6411	6589	
==>ethod_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1626	1742	
==>h; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1626	1742	
==>h; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1626	1742	
==>h; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7221	7321	
==>package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pack <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7221	7321	
==>package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pack <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7221	7321	
==>package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17379	17495	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14604	14720	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17379	17495	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14604	14720	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17379	17495	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14604	14720	
==>ute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interf <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3046	3142	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6060	6156	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8128	8224	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3046	3142	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6060	6156	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8128	8224	
==>urns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (S <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2269	2369	
==>_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?S <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2269	2369	
==>_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	450	563	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	448	561	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	450	563	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	448	561	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	450	563	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	448	561	
==>D
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7986	8105	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10909	11028	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7986	8105	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10909	11028	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7986	8105	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10909	11028	
==>('Perl6::Submethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method bod <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2762	2883	
==>y;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2762	2883	
==>y;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1599	1711	
==>i sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1599	1711	
==>i sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1599	1711	
==>i sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code( <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	973	1068	
==>over 4

=item B<new (~type) returns reference>

=item B<to_native () returns *native*>

=item B< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	411	526	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	631	746	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	411	526	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	631	746	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	411	526	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	631	746	
==>) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	126	288	
==>ts = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3180	3342	
==>ts = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	126	288	
==>ts = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3180	3342	
==>ts = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	330	430	
==>sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1058	1156	
==>sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{ma <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7639	7759	
==>(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707 <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7639	7759	
==>(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3335	3443	
==>ude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3335	3443	
==>ude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3335	3443	
==>ude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10912	11071	
==>) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refer <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10912	11071	
==>) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refer <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10912	11071	
==>) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refer <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12207	12314	
==>_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12207	12314	
==>_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12207	12314	
==>_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29616	29710	
==>d attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34168	34262	
==>d attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33332	33426	
==>d attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6726	6815	
==>lf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6726	6815	
==>lf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6726	6815	
==>lf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3204	3310	
==>name nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3204	3310	
==>name nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq no <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3785	3887	
==>name nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3785	3887	
==>name nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq no <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19163	19255	
==>ry to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>() <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19163	19255	
==>ry to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13059	13171	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10343	10455	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13059	13171	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10343	10455	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13059	13171	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10343	10455	
==>add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defaul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5583	5689	
==>y $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lin <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5583	5689	
==>y $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lin <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1589	1694	
==>_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	971	1069	
==>_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarnam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	971	1069	
==>_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarnam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	971	1069	
==>_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarnam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18485	18608	
==>E:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLA <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18485	18608	
==>E:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLA <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24583	24679	
==>1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23347	23443	
==>1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24583	24679	
==>1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23347	23443	
==>1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5865	6003	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6058	6196	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5266	5394	
==>>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XX <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6534	6662	
==>>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5266	5394	
==>>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6522	6650	
==>>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5262	5475	
==>$key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5262	5475	
==>$key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5262	5475	
==>$key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2681	2777	
==>NV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2681	2777	
==>NV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2681	2777	
==>NV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @arg <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26611	26707	
==>ne ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x8000 <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1585	1679	
==>ame{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1585	1679	
==>ame{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	587	680	
==>) = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	587	680	
==>) = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	587	680	
==>) = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7403	7535	
==>=> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7403	7535	
==>=> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        ret <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7403	7535	
==>=> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17288	17395	
==>ESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17288	17395	
==>ESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17288	17395	
==>ESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__EN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1893	2006	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3456	3569	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1893	2006	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3456	3569	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1893	2006	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3456	3569	
==>rators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WAL <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3380	3475	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6394	6489	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8462	8557	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3380	3475	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6394	6489	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8462	8557	
==>tr $path, Str $base) returns Str`

- `no_upwards (*@filenames) returns Array`

- `file_name_is_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10942	11097	
==>ssed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! ' <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1430	1571	
==>ssed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! ' <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1430	1571	
==>ssed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32123	32247	
==>tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32123	32247	
==>tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVE <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32123	32247	
==>tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18285	18405	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15523	15643	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18285	18405	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15523	15643	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18285	18405	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15523	15643	
==>> '%:namespace')->{$label};
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4938	5061	
==>" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4938	5061	
==>" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4938	5061	
==>" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6928	7029	
==>not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not impleme <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1284	1383	
==>not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not impleme <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	386	482	
==>not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { die "not impleme <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6498	6625	
==>kg );

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5297	5409	
==>ld_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5297	5409	
==>ld_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5297	5409	
==>ld_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_rol <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	576	682	
==>rnal packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attrib <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	576	682	
==>rnal packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9971	10062	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7522	7613	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9971	10062	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7522	7613	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9971	10062	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7522	7613	
==>er_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_iter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	97	192	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	321	416	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	97	192	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	321	416	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	97	192	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	321	416	
==>a("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	567	664	
==>conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	458	555	
==>conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	367	464	
==>conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3278	3366	
==>.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3278	3366	
==>.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3278	3366	
==>.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6281	6400	
==>] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6281	6400	
==>] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10259	10354	
==>ns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8152	8247	
==>ns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10259	10354	
==>ns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8152	8247	
==>ns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items i <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	789	968	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	789	968	
==>t => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19751	19846	
==>he nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alrea <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18732	18827	
==>he nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alrea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19751	19846	
==>he nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alrea <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18732	18827	
==>he nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alrea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1013	1109	
==>>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1013	1109	
==>>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1013	1109	
==>>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5763	5857	
==>undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5763	5857	
==>undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5763	5857	
==>undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2503	2625	
==>ule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $templat <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6555	6653	
==>e
status code and message are printed on STDERR.  The return value is
the HTTP response code.

=ite <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6555	6653	
==>e
status code and message are printed on STDERR.  The return value is
the HTTP response code.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22592	22686	
==>mplementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27144	27238	
==>mplementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25876	25970	
==>mplementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7583	7747	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5142	5306	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7583	7747	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5142	5306	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7583	7747	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5142	5306	
==>the python "in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we fi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32877	32971	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33332	33426	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37427	37521	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37882	37976	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36762	36856	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37262	37356	
==>This multi-method is a generic binary relational operator that is like
C<union> except that the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6179	6320	
==>s not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6179	6320	
==>s not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6179	6320	
==>s not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4296	4405	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4296	4405	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4296	4405	
==>spatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9282	9411	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12255	12384	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9282	9411	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12255	12384	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9282	9411	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12255	12384	
==>kage Perl6::PrivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	680	828	
==>pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	680	828	
==>pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ti <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	680	828	
==>pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13745	13845	
==>lf, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13745	13845	
==>lf, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13745	13845	
==>lf, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5336	5488	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8306	8458	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5336	5488	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8306	8458	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5336	5488	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8306	8458	
==>thod) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from anoth <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2093	2226	
==>te->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$no <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2508	2639	
==>te->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2024	2155	
==>te->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2508	2639	
==>te->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$no <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8537	8637	
==>, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8537	8637	
==>, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10053	10160	
==>etc/terminfo/l";
  step
    descr  => "Creating directories " . join(", ", map { "$_" } @dirs),
    ensure = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37136	37231	
==>eir joining degenerates to a
C<product>.  In any situation where the heading of one source relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41685	41780	
==>eir joining degenerates to a
C<product>.  In any situation where the heading of one source relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41308	41403	
==>eir joining degenerates to a
C<product>.  In any situation where the heading of one source relat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13527	13619	
==>sh ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document. <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13527	13619	
==>sh ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4490	4608	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7139	7257	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4715	4830	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11164	11279	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4715	4830	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11164	11279	
==>elete $match->{return};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	777	921	
==>: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d

Into:

 p5-a AND (p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	672	782	
==>_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	672	782	
==>_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	672	782	
==>_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12367	12466	
==>to a single line containing a digest of the original content.
#
# This makes further dividing of Per <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12367	12466	
==>to a single line containing a digest of the original content.
#
# This makes further dividing of Per <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4848	5095	
==>r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_cont <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4848	5095	
==>r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_cont <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10459	10634	
==>r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10459	10634	
==>r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10459	10634	
==>r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_cont <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5660	5772	
==>plements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Ident <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12054	12154	
==>verse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12054	12154	
==>verse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12054	12154	
==>verse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4024	4118	
==>returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4024	4118	
==>returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4024	4118	
==>returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3988	4105	
==>her->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3988	4105	
==>her->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3988	4105	
==>her->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7537	7636	
==>not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7537	7636	
==>not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7537	7636	
==>not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Read <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5601	5742	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3721	3862	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5601	5742	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3721	3862	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5601	5742	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3721	3862	
==>{$superclasses}) {
            $super->add_subclass($self);
        }
        # XXX -
        # we should check that none of the classes passe <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12459	12580	
==>\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12459	12580	
==>\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } e <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18003	18086	
==>->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21261	21344	
==>->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41268	41351	
==>->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44168	44251	
==>->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14716	14836	
==>::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14716	14836	
==>::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14716	14836	
==>::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11733	11845	
==>ason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithRe <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2165	2267	
==>ason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithRe <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2165	2267	
==>ason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithRe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6863	6952	
==>---------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6886	6975	
==>----------------------
## BOOTSTRAPPING ROLES
## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6863	6952	
==>---------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6886	6975	
==>----------------------
## BOOTSTRAPPING ROLES
## ----------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6863	6952	
==>---------------------------------------------
## BOOTSTRAPPING ROLES
## ------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6886	6975	
==>----------------------
## BOOTSTRAPPING ROLES
## ----------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25158	25255	
==>thods will each return the same
result and/or make the same change to an object when the permutati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11289	11386	
==>thods will each return the same
result and/or make the same change to an object when the permutati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14562	14659	
==>thods will each return the same result and/or make the same change
to an object when the permutati <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25158	25255	
==>thods will each return the same
result and/or make the same change to an object when the permutati <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11289	11386	
==>thods will each return the same
result and/or make the same change to an object when the permutati <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14562	14659	
==>thods will each return the same result and/or make the same change
to an object when the permutati <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8448	8577	
==>aptured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	606	735	
==>aptured things

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	876	1003	
==>aptured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8165	8292	
==>aptured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	580	707	
==>aptured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	876	1003	
==>aptured things
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28317	28484	
==>:numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    els <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28317	28484	
==>:numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    els <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28317	28484	
==>:numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	307	412	
==>PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	307	412	
==>PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	307	412	
==>PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	392	508	
==>{ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bin <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	392	508	
==>{ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bin <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	392	508	
==>{ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13032	13142	
==>ng )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16509	16619	
==>ng )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15871	15981	
==>ng )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15509	15629	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12765	12885	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15509	15629	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12765	12885	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15509	15629	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12765	12885	
==>tance') {
        return ::opaque_instance_attr($self => '%:attributes');
    }     
    else {
        confess "There is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8048	8162	
==>sue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $pre <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8048	8162	
==>sue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $pre <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25181	25266	
==>/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23945	24030	
==>/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25181	25266	
==>/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23945	24030	
==>/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1430	1555	
==>n $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1430	1555	
==>n $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6101	6213	
==>keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delet <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6881	6993	
==>keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6101	6213	
==>keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delet <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6881	6993	
==>keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14827	14928	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12081	12182	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14827	14928	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12081	12182	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14827	14928	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12081	12182	
==>ned $attribute && blessed($attribute))
        || confess "InsufficientArguments : you must provide an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	113	204	
==>bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv ca <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	113	204	
==>bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv ca <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	113	204	
==>bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	289	377	
==>uire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	289	377	
==>uire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	289	377	
==>uire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7232	7400	
==>rgs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7232	7400	
==>rgs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7232	7400	
==>rgs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4493	4645	
==>);
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4715	4867	
==>);
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	376	468	
==>CLASS, "methods", "Set", { companion => "class" });
Has($?CLASS, "superclasses", "Set", { com <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5359	5467	
==>th to the package's meta info
        $meta->{archive} =
            $self->pool_rel->file( file($pkg->file)- <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6720	6827	
==>r if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  i <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7989	8095	
==>e $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7989	8095	
==>e $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38131	38223	
==>template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Templa <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38131	38223	
==>template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Templa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13103	13201	
==>turn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PSt <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13103	13201	
==>turn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PSt <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13103	13201	
==>turn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PSt <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31255	31351	
==>nd it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35805	35901	
==>nd it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35023	35119	
==>nd it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2380	2498	
==>" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2380	2498	
==>" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2380	2498	
==>" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12237	12344	
==>oot".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12237	12344	
==>oot".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12237	12344	
==>oot".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:t <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	614	744	
==>= %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Conten <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	614	744	
==>= %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Conten <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9377	9491	
==>storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9377	9491	
==>storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9377	9491	
==>storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxe <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1713	1812	
==>ctHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	716	816	
==>()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	716	816	
==>()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separat <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	716	816	
==>()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2167	2266	
==>.. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2167	2266	
==>.. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->S <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2167	2266	
==>.. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	586	750	
==>my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	586	750	
==>my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	586	750	
==>my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13102	13205	
==>dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13102	13205	
==>dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13102	13205	
==>dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1164	1262	
==>uto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1164	1262	
==>uto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1164	1262	
==>uto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1161	1253	
==>$db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_p <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1161	1253	
==>$db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_p <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1370	1462	
==>$db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_p <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3239	3365	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6232	6356	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3505	3624	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9923	10042	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3505	3624	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9923	10042	
==>s( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16339	16509	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21056	21226	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16339	16509	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21056	21226	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16339	16509	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21056	21226	
==>);

        return sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15769	15891	
==>thod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15769	15891	
==>thod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15769	15891	
==>thod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10267	10386	
==>il "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2300	2407	
==>il "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2300	2407	
==>il "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4161	4272	
==>') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4161	4272	
==>') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->na <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4751	4862	
==>') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->na <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14070	14167	
==>es again
    ### XXX pretty method?
    $self->registered_alternatives([ @{$self->registered_alter <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22509	22601	
==>f the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documenta <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22509	22601	
==>f the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documenta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2786	2881	
==>} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2786	2881	
==>} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2786	2881	
==>} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2975	3087	
==>n "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2975	3087	
==>n "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2975	3087	
==>n "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	585	684	
==>EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	585	684	
==>EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	585	684	
==>EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6607	6717	
==>version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6607	6717	
==>version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6607	6717	
==>version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15833	15937	
==>p ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15833	15937	
==>p ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15833	15937	
==>p ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4499	4632	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2711	2844	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4499	4632	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2711	2844	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4499	4632	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2711	2844	
==>name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something,.. so we pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29275	29390	
==>-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29275	29390	
==>-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29275	29390	
==>-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1418	1525	
==>Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1418	1525	
==>Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1418	1525	
==>Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $sel <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7447	7555	
==>erence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7447	7555	
==>erence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23 <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	448	548	
==>False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::Fal <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	448	548	
==>False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::Fal <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1460	1559	
==>False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::Fal <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1460	1559	
==>False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::Fal <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4943	5047	
==>$ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15979	16083	
==>$ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17467	17571	
==>$ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22150	22254	
==>$ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11200	11300	
==>ce;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11200	11300	
==>ce;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2928	3031	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10851	10954	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6053	6156	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2928	3031	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10851	10954	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6053	6156	
==>vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str $val!) {
    $?SELF!_die_w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13877	13973	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13877	13973	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_in <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13877	13973	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1207	1302	
==>eta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1207	1302	
==>eta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1207	1302	
==>eta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6839	6959	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9809	9929	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6839	6959	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9809	9929	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6839	6959	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9809	9929	
==>>isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10319	10423	
==>----------------------------------------------    
    method resolve () { "<implemented>" }

    # ----- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10342	10446	
==>-----------------------    
    method resolve () { "<implemented>" }

    # ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10319	10423	
==>----------------------------------------------    
    method resolve () { "<implemented>" }

    # ----- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10342	10446	
==>-----------------------    
    method resolve () { "<implemented>" }

    # ---------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10319	10423	
==>----------------------------------------------    
    method resolve () { "<implemented>" }

    # ----- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10342	10446	
==>-----------------------    
    method resolve () { "<implemented>" }

    # ---------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3063	3209	
==>f->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3063	3209	
==>f->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3063	3209	
==>f->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5569	5680	
==>ts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5569	5680	
==>ts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5569	5680	
==>ts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2596	2709	
==>ed,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2596	2709	
==>ed,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11983	12092	
==>s => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a u <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4626	4735	
==>s => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a u <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9470	9566	
==>e_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9470	9566	
==>e_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9616	9733	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12589	12706	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9616	9733	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12589	12706	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9616	9733	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12589	12706	
==>r needs to
    # have some basic abilities, one of which 
    # is to be able to stash the current dispatcher
    # fo <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7228	7367	
==>o we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless depen <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7692	7831	
==>o we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless depen <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18377	18498	
==>get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21636	21757	
==>get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41642	41763	
==>get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44543	44664	
==>get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14012	14160	
==>sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14012	14160	
==>sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14012	14160	
==>sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6557	6649	
==>ce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6557	6649	
==>ce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6557	6649	
==>ce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2099	2290	
==>mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5576	5767	
==>mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4506	4697	
==>mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4032	4142	
==>{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4032	4142	
==>{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4032	4142	
==>{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1459	1582	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1459	1582	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1459	1582	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4989	5096	
==>_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4989	5096	
==>_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4989	5096	
==>_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	713	848	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	801	936	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	713	848	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	801	936	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	713	848	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	801	936	
==>Ignore -B JS and -BJS
    if(uc $arg eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1877	2018	
==>instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1877	2018	
==>instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instanc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1877	2018	
==>instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12461	12557	
==>ype ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12461	12557	
==>ype ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12461	12557	
==>ype ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_privat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4162	4277	
==>x/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it rem <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4162	4277	
==>x/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it rem <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6218	6328	
==>]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	930	1024	
==>sh_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	930	1024	
==>sh_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - l <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	930	1024	
==>sh_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - l <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3781	4003	
==>attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3781	4003	
==>attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7882	7987	
==>des($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simila <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7012	7117	
==>des($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simila <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7882	7987	
==>des($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simila <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7012	7117	
==>des($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simila <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3415	3533	
==>x>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register f <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1773	1891	
==>x>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2553	2671	
==>x>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4560	4669	
==>onfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4560	4669	
==>onfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4560	4669	
==>onfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10550	10652	
==>nted, so it makes abstract 
    # methods which must be implemented
    # ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10550	10652	
==>nted, so it makes abstract 
    # methods which must be implemented
    # ----------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10550	10652	
==>nted, so it makes abstract 
    # methods which must be implemented
    # ----------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28380	28469	
==>d/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32932	33021	
==>d/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attri <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32060	32149	
==>d/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3835	3999	
==>{ 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3835	3999	
==>{ 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->un <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3835	3999	
==>{ 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14470	14564	
==>nlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14470	14564	
==>nlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14470	14564	
==>nlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34048	34160	
==>zy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34048	34160	
==>zy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34048	34160	
==>zy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Valu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37658	37748	
==>ation::Example $other!) returns Relation::Example>

This method is a generic relational ope <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38247	38337	
==>ation::Example $other!) returns Relation::Example>

This method is a generic relational ope <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38498	38588	
==>ation::Example $other!) returns Relation::Example>

This method is a generic relational ope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2237	2360	
==>ay( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14720	14841	
==>ject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stev <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14720	14841	
==>ject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stev <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14720	14841	
==>ject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stev <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	232	343	
==>ay( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	232	343	
==>ay( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7635	7761	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10558	10684	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7635	7761	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10558	10684	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7635	7761	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10558	10684	
==>::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # implicit:
    #    next METHOD unless $?SELF.cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1396	1517	
==>x:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1396	1517	
==>x:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1396	1517	
==>x:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	754	847	
==>sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	754	847	
==>sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	754	847	
==>sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0. <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2424	2534	
==>d_dir'}        = [ Path::Class::dir('root-') ];

### package files/extensions
$config{'meta_ext'}         = [ ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9660	9760	
==>}

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9660	9760	
==>}

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9660	9760	
==>}

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retur <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7464	7563	
==>hift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7464	7563	
==>hift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8229	8334	
==>f->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8229	8334	
==>f->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8229	8334	
==>f->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6:: <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5217	5313	
==>. "::__object__" if $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6896	6987	
==>filtered_content = $class->pmc_process($real_content);
        $class->$post_process($filter <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6896	6987	
==>filtered_content = $class->pmc_process($real_content);
        $class->$post_process($filter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1016	1122	
==>ER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This m <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1016	1122	
==>ER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	600	699	
==>->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	600	699	
==>->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	600	699	
==>->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self-> <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	230	323	
==>se base 'Object::Accessor';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12446	12550	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9997	10101	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12446	12550	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9997	10101	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12446	12550	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9997	10101	
==>$class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	641	751	
==>s, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # ( <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	641	751	
==>s, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # ( <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7034	7132	
==>language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7034	7132	
==>language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11899	11992	
==>ear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11899	11992	
==>ear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6256	6363	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9226	9333	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6256	6363	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9226	9333	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6256	6363	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9226	9333	
==>ethod is the same as a regular 
    # method, it just has a class as an invocant
    sub ::make_class_method <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1868	1992	
==>) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1868	1992	
==>) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2231	2354	
==>) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2540	2663	
==>) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2231	2354	
==>) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2540	2663	
==>) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7014	7139	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9984	10109	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7014	7139	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9984	10109	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7014	7139	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9984	10109	
==>he private method wrapper is wrapped
        # around the basic method body. This checks
        # to see the $?CLASS of the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4440	4574	
==>ltered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4440	4574	
==>ltered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4440	4574	
==>ltered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	304	427	
==>on_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	304	427	
==>on_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	304	427	
==>on_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13344	13521	
==>:List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13344	13521	
==>:List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13344	13521	
==>:List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4541	4699	
==>== 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4541	4699	
==>== 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4541	4699	
==>== 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primit <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1312	1421	
==>mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1312	1421	
==>mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1312	1421	
==>mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning <==
6	/Users/nnunley/pugs/examples/hop6/Parser.pm	1701	1809	
==>r 8 section 3.2

sub alternate(Array *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0] <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1463	1567	
==>Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L:: <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1463	1567	
==>Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L:: <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6201	6347	
==>token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5274	5420	
==>token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6201	6347	
==>token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5274	5420	
==>token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4181	4319	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4374	4512	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1755	1882	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3318	3445	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1755	1882	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3318	3445	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1755	1882	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3318	3445	
==>S = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2127	2229	
==>{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2127	2229	
==>{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2127	2229	
==>{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13437	13536	
==>sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13437	13536	
==>sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13437	13536	
==>sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3466	3617	
==>if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3466	3617	
==>if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3466	3617	
==>if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1915	2041	
==>ass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1915	2041	
==>ass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1915	2041	
==>ass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24791	24918	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26980	27107	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24791	24918	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26980	27107	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24791	24918	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26980	27107	
==>S ",$self->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $sel <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6816	6969	
==>y %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11376	11524	
==>y %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12174	12322	
==>y %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12901	13049	
==>y %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32049	32147	
==>a new Relation that has the same heading
and whose body contains all of the tuples that are in eith <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36599	36697	
==>a new Relation that has the same heading
and whose body contains all of the tuples that are in eith <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	302	442	
==>{
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	302	442	
==>{
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	302	442	
==>{
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	279	373	
==>r.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	279	373	
==>r.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	279	373	
==>r.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16354	16528	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21071	21245	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16354	16528	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21071	21245	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16354	16528	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21071	21245	
==>urn sub {
            my $call = $wrapper->can('call');
            unshift @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8112	8256	
==>::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8112	8256	
==>::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTRO <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8112	8256	
==>::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16568	16666	
==>"List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_ra <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16568	16666	
==>"List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_ra <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16568	16666	
==>"List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_ra <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4515	4615	
==>t2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	406	504	
==>nge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	951	1049	
==>nge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	406	504	
==>nge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	951	1049	
==>nge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	951	1049	
==>nge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29061	29169	
==>nverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29061	29169	
==>nverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	412	508	
==>nverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1969	2061	
==>thod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1969	2061	
==>thod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
met <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1969	2061	
==>thod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5438	5553	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8408	8523	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5438	5553	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8408	8523	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5438	5553	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8408	8523	
==>imes when a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	630	730	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1150	1250	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	630	730	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1150	1250	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	630	730	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1150	1250	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), add = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	91	187	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	352	448	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	91	187	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	352	448	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	91	187	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	352	448	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1].FETCH(), c <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4581	4708	
==>} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2498	2606	
==>e'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1110	1218	
==>e'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10163	10262	
==>Pos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10163	10262	
==>Pos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10163	10262	
==>Pos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
u <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5662	5768	
==>rator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5662	5768	
==>rator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5952	6050	
==>et $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5082	5180	
==>et $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5952	6050	
==>et $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5082	5180	
==>et $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	304	409	
==>ing macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since m <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	304	409	
==>ing macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1625	1723	
==>s Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=ite <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1625	1723	
==>s Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	910	1002	
==>of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering ope <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	910	1002	
==>of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering ope <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1787	1896	
==>() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1787	1896	
==>() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $se <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39579	39670	
==>ved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39579	39670	
==>ved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24303	24393	
==>ved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24303	24393	
==>ved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6440	6536	
==>$two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5570	5666	
==>$two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6632	6728	
==>annot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6440	6536	
==>$two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5570	5666	
==>$two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6632	6728	
==>annot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6318	6468	
==>t ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3443	3593	
==>t ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4292	4442	
==>t ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	961	1075	
==>rn this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	961	1075	
==>rn this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	961	1075	
==>rn this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7972	8114	
==>t ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7972	8114	
==>t ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7972	8114	
==>t ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4099	4190	
==>ss::Rebless defines B<only class methods>. There is no instance
constructor, and when callin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4099	4190	
==>ss::Rebless defines B<only class methods>. There is no instance
constructor, and when callin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4099	4190	
==>ss::Rebless defines B<only class methods>. There is no instance
constructor, and when callin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15663	15801	
==>_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15663	15801	
==>_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15663	15801	
==>_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Cl <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10615	10730	
==>in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14092	14207	
==>in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13391	13506	
==>in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) == <==
6	/Users/nnunley/pugs/util/combine_tests.pl	1301	1467	
==>y $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4815	4912	
==>ay_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@u <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4815	4912	
==>ay_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@u <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5762	5854	
==>B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5762	5854	
==>B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7286	7378	
==>B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10900	11069	
==>( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using crit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7527	7646	
==>ned $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celem <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7527	7646	
==>ned $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celem <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7527	7646	
==>ned $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celem <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	609	715	
==>ges used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	609	715	
==>ges used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10704	10849	
==>);
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10704	10849	
==>);
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10704	10849	
==>);
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3734	3830	
==>okup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3734	3830	
==>okup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $cod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3734	3830	
==>okup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $cod <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	150	299	
==>02 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Author <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	150	299	
==>02 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Author <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40285	40379	
==>odify and distribute must carry
prominent notices stating that you changed the files and the da <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25809	25903	
==>odify and distribute must carry prominent
notices stating that you changed the files and the da <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40285	40379	
==>odify and distribute must carry
prominent notices stating that you changed the files and the da <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25809	25903	
==>odify and distribute must carry prominent
notices stating that you changed the files and the da <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24294	24395	
==>ontrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  ano <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23067	23168	
==>ontrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  ano <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24294	24395	
==>ontrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  ano <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23067	23168	
==>ontrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  ano <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22023	22115	
==>ame to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> " <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22023	22115	
==>ame to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5537	5657	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3657	3777	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5537	5657	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3657	3777	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5537	5657	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3657	3777	
==>less ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_subclass($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2253	2359	
==>goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2253	2359	
==>goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2253	2359	
==>goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	404	505	
==>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want sy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	404	505	
==>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want sy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	404	505	
==>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want sy <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2242	2340	
==>r(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2242	2340	
==>r(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2242	2340	
==>r(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31544	31638	
==>al.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argum <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36094	36188	
==>al.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argum <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35321	35415	
==>al.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argum <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	259	379	
==>CH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	259	379	
==>CH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	259	379	
==>CH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8711	8830	
==>:Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8711	8830	
==>:Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8711	8830	
==>:Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3139	3282	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11062	11205	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6264	6407	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3139	3282	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11062	11205	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6264	6407	
==>SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4165	4302	
==>(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4165	4302	
==>(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4165	4302	
==>(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar' <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5153	5271	
==>&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8748	8841	
==>::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%e <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8748	8841	
==>::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	185	328	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	183	326	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	185	328	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	183	326	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	185	328	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	183	326	
==>{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their internal data.
    # This is basically <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6991	7116	
==>b from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6991	7116	
==>b from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6991	7116	
==>b from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7197	7308	
==>ile @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7197	7308	
==>ile @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7197	7308	
==>ile @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3399	3517	
==>exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $g <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15631	15727	
==>gement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blue <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15631	15727	
==>gement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blue <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3796	3912	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6732	6848	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3796	3912	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6732	6848	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3796	3912	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6732	6848	
==>od) && $method->isa('Perl6::Method'))
            || confess "You can only wrap proper methods for Roles";
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	560	665	
==>CE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	560	665	
==>CE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	560	665	
==>CE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2702	2798	
==>$label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Objec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2702	2798	
==>$label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Objec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2702	2798	
==>$label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	22	123	
==>(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	22	123	
==>(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	22	123	
==>(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box. <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2183	2285	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11051	11153	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12010	12112	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2376	2478	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11330	11432	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12289	12391	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21908	22028	
==>al->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21908	22028	
==>al->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->D <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21908	22028	
==>al->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->D <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20189	20278	
==>($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20189	20278	
==>($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_t <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20189	20278	
==>($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2700	2814	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2700	2814	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2700	2814	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spri <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5788	5883	
==>, 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope' <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5788	5883	
==>, 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope' <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2687	2782	
==>, 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope' <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3685	3852	
==>ry') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Pack <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	310	423	
==>on
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt inf <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3185	3288	
==>rn $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26258	26355	
==>tes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30810	30907	
==>tes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29803	29900	
==>tes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2606	2707	
==>OPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2606	2707	
==>OPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1817	1914	
==>OPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3678	3775	
==>OPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39721	39816	
==>n.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the terms <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39721	39816	
==>n.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the terms <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25097	25256	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27286	27445	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25097	25256	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27286	27445	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25097	25256	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27286	27445	
==>samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18836	18989	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16074	16227	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18836	18989	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16074	16227	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18836	18989	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16074	16227	
==>ce_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # beca <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	231	332	
==>nt    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	231	332	
==>nt    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV <==
6	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	27	128	
==>::Schema;
use Perl6::MetaModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3557	3655	
==>ined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3557	3655	
==>ined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3557	3655	
==>ined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6896	7054	
==>tr->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6896	7054	
==>tr->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::S <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6896	7054	
==>tr->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::S <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3338	3480	
==>ist>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4187	4329	
==>ist>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq ' <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2769	2868	
==>n of the builtin
    $val->set($self->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	6327	6468	
==>o, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6385	6526	
==>o, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4190	4291	
==>tersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3317	3418	
==>tersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4190	4291	
==>tersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3317	3418	
==>tersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $on <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4534	4666	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7470	7602	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4534	4666	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7470	7602	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4534	4666	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7470	7602	
==>ed($method) && $method->isa('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	951	1057	
==>pile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return ble <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	951	1057	
==>pile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9686	9801	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12659	12774	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9686	9801	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12659	12774	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9686	9801	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12659	12774	
==>be able to stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12536	12644	
==>e::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12536	12644	
==>e::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12536	12644	
==>e::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1414	1515	
==>...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1414	1515	
==>...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1414	1515	
==>...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	68	172	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	292	396	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	68	172	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	292	396	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	68	172	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	292	396	
==>f type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20980	21078	
==>unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25532	25630	
==>unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Rel <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24138	24236	
==>unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Rel <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13176	13280	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4346	4450	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8802	8906	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13176	13280	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4346	4450	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8802	8906	
==>nly as the name-sake
representative for this whole file, which can be referenced as a unit by
documentati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11194	11364	
==>$tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything el <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11194	11364	
==>$tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything el <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11194	11364	
==>$tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything el <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2994	3121	
==>sappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3134	3261	
==>sappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	956	1074	
==>>{'to'}    = $to;
    return $o;
}
sub set_as_failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10617	10781	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8168	8332	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10617	10781	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8168	8332	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10617	10781	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8168	8332	
==>r
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_class->supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5446	5562	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8416	8532	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5446	5562	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8416	8532	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5446	5562	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8416	8532	
==>n a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically), P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3804	3901	
==>coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3804	3901	
==>coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3804	3901	
==>coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6978	7062	
==>>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object', <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7965	8049	
==>>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object', <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10534	10618	
==>>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object', <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23823	23952	
==>n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20244	20373	
==>n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5535	5650	
==>[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5535	5650	
==>[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^P <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5535	5650	
==>[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^P <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7925	8014	
==>ope(M,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13724	13857	
==>ange;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13724	13857	
==>ange;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user cod <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13724	13857	
==>ange;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user cod <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5970	6103	
==>ange;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user cod <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4470	4603	
==>ange;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user cod <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7965	8091	
==>= substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10402	10561	
==>::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10402	10561	
==>::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10402	10561	
==>::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11257	11351	
==>ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11257	11351	
==>ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11257	11351	
==>ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods a <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6918	7016	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6048	6146	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2702	2800	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2702	2800	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6918	7016	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6048	6146	
==>ne.includes($member);
}
multi sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8345	8455	
==>> $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Outpu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	555	653	
==>> $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Outpu <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	555	653	
==>> $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Outpu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	163	257	
==>Void" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	163	257	
==>Void" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unles <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	163	257	
==>Void" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unles <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1659	1781	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2240	2362	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1659	1781	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2240	2362	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10784	10878	
==>arily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be exte <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10784	10878	
==>arily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be exte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9549	9650	
==>s_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9549	9650	
==>s_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9549	9650	
==>s_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1678	1777	
==>mand_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1678	1777	
==>mand_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1678	1777	
==>mand_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16548	16653	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21265	21370	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16548	16653	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21265	21370	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16548	16653	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21265	21370	
==>ect all the classes, then call DESTROY
# on all them, then set a flag to tell the
# dispatcher to ignore a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3912	4021	
==>sion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3912	4021	
==>sion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods b <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3912	4021	
==>sion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1996	2096	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1996	2096	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1996	2096	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4509	4653	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7021	7165	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4509	4653	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7021	7165	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4509	4653	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7021	7165	
==>t add a private method in here...
                    # there is no real distinction between the
                    # private class method or th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6468	6582	
==><++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6468	6582	
==><++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6468	6582	
==><++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4435	4524	
==>e, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4435	4524	
==>e, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6632	6721	
==>e, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5241	5388	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8211	8358	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5241	5388	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8211	8358	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5241	5388	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8211	8358	
==>);            
    }

    # make a basic method ...
    sub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4690	4793	
==>%prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[4 <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	702	802	
==>em ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs defines this as List::kv.  And <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8696	8791	
==>st::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8754	8849	
==>st::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38731	38824	
==>replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38731	38824	
==>replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13618	13766	
==>st = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13618	13766	
==>st = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->pu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13618	13766	
==>st = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	306	403	
==>PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	306	403	
==>PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	306	403	
==>PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(u <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	369	552	
==>uleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	369	552	
==>uleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::co <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2392	2531	
==>always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2392	2531	
==>always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	23708	23824	
==>,
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for th <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4974	5089	
==>code2.";goto \&\$f0}\n";
    #print $code;
    eval($code) || die "$@";
  }   
  sub mk_ignore_this_node {
    my($o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3350	3533	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6286	6469	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3350	3533	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6286	6469	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3350	3533	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6286	6469	
==>::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PACKAGE = $pkg;
            return $sub->(@_);       
        };
    }         
 
    ## Me <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1048	1156	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1264	1372	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1482	1590	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1048	1156	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1264	1372	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1482	1590	
==><CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3602	3993	
==>f ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    c <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3602	3993	
==>f ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    c <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	8846	9121	
==>eason}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End Pugs addition        
        
        my %test = (
                    ok          => $results{ok},
                    'ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6349	6568	
==>f ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6349	6568	
==>f ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6349	6568	
==>f ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9757	9912	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \& <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10036	10191	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1921	2034	
==>ct "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1921	2034	
==>ct "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1921	2034	
==>ct "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comma <==
6	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	447	544	
==>t "Testing perl6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "wor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2912	3028	
==>om_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2912	3028	
==>om_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2912	3028	
==>om_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1197	1309	
==>$cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::Ra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1197	1309	
==>$cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::Ra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1197	1309	
==>$cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::Ra <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1112	1235	
==>ctory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_pa <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1112	1235	
==>ctory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_pa <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	7154	7263	
==>UEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGT <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7154	7263	
==>UEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGT <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2378	2473	
==>- fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2378	2473	
==>- fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3041	3139	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6055	6153	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8123	8221	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3041	3139	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6055	6153	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8123	8221	
==>l returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21330	21439	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22451	22560	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23014	23123	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17751	17860	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18872	18981	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19435	19544	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12466	12578	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12466	12578	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12466	12578	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	51	157	
==>ed this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	51	157	
==>ed this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	51	157	
==>ed this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33999	34126	
==>t') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33999	34126	
==>t') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33999	34126	
==>t') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5708	5831	
==>>{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{su <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6707	6803	
==>gs);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6707	6803	
==>gs);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7143	7262	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4702	4821	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7143	7262	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4702	4821	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7143	7262	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4702	4821	
==>qences
        my @nonemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-emp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	755	867	
==>"~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	755	867	
==>"~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	755	867	
==>"~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6172	6290	
==>ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6172	6290	
==>ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6172	6290	
==>ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3237	3354	
==>ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3237	3354	
==>ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3237	3354	
==>ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PACKAGE
    sub ::wra <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5680	5790	
==>de {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "";
    my(%crea <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3135	3241	
==>erl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        t <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3135	3241	
==>erl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	285	377	
==>RRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	285	377	
==>RRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	285	377	
==>RRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2915	3018	
==>{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2915	3018	
==>{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstri <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2915	3018	
==>{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1989	2090	
==>IL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1989	2090	
==>IL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1989	2090	
==>IL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3858	3968	
==>fined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4870	4979	
==>fined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3738	3847	
==>fined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4870	4979	
==>fined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	22	121	
==>vent::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my % <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	22	121	
==>vent::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my % <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	472	574	
==>of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	472	574	
==>of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	472	574	
==>of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15675	15773	
==>{ $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15675	15773	
==>{ $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15675	15773	
==>{ $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10247	10421	
==>param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10247	10421	
==>param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10247	10421	
==>param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppo <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2428	2546	
==>ULL;

I32 regexp_exechook_hook (pTHX_ regexp* r, char* stringarg, char* strend,
                          char* strbeg, <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38970	39068	
==>en R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43784	43882	
==>en R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same t <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24499	24676	
==>ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25762	25939	
==>ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24778	24955	
==>ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26041	26218	
==>ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6612	6716	
==>, $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6612	6716	
==>, $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17773	17885	
==>thod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17773	17885	
==>thod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17773	17885	
==>thod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4083	4194	
==>etamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4083	4194	
==>etamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4083	4194	
==>etamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6512	6651	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8961	9100	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6512	6651	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8961	9100	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6512	6651	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8961	9100	
==>nd =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && defined $start;
            die "Not <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1008	1123	
==>ter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ? <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1882	1997	
==>ter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ? <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1008	1123	
==>ter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ? <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1882	1997	
==>ter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ? <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11181	11277	
==>}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11181	11277	
==>}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3896	4046	
==>um'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'In <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3896	4046	
==>um'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'In <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3896	4046	
==>um'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	37	132	
==>kes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	37	132	
==>kes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	37	132	
==>kes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20117	20247	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20117	20247	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20117	20247	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2628	2726	
==>efix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2628	2726	
==>efix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2628	2726	
==>efix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8727	8889	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14452	14614	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8727	8889	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14446	14608	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13977	14131	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13971	14125	
==>ubstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5854	5950	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8824	8920	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5854	5950	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8824	8920	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5854	5950	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8824	8920	
==>essed($method) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3060	3169	
==>"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $se <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5978	6076	
==>should be careful to avoid changing the 
actual semantics.

Please note that most of the time, it w <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5978	6076	
==>should be careful to avoid changing the 
actual semantics.

Please note that most of the time, it w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6012	6107	
==>tom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6012	6107	
==>tom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6012	6107	
==>tom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5036	5193	
==>$name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5036	5193	
==>$name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5036	5193	
==>$name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1391	1519	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1391	1519	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1391	1519	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11766	11898	
==>tributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2 <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15243	15375	
==>tributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2 <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14578	14710	
==>tributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6703	6810	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking inc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6703	6810	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking inc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6703	6810	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking inc <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1275	1416	
==>end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4514	4655	
==>end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1275	1416	
==>end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4514	4655	
==>end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9681	9788	
==>e command line as -Is.
    # MacPerl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14481	14573	
==>$fh <<GRUB; $wrote_menulst++ };
default 0
timeout 0
color light-blue/black black/light-gray
h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6067	6221	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6067	6221	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start + <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6067	6221	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start + <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7856	7970	
==>exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11855	11966	
==>exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11855	11966	
==>exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2761	2863	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5409	5511	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2761	2863	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5409	5511	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2761	2863	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5409	5511	
==>type, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) { <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1495	1672	
==>t once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4972	5149	
==>t once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3902	4079	
==>t once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7618	7714	
==>list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7618	7714	
==>list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7618	7714	
==>list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7000	7139	
==>2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7000	7139	
==>2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7000	7139	
==>2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	619	722	
==>onfess "Class must be an instance of reference";
    (blessed($attrs) && $attrs->isa('hash'))
        || <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	3170	3267	
==>unc.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $exp <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3228	3325	
==>unc.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $exp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4632	4728	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7568	7664	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4632	4728	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7568	7664	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4632	4728	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7568	7664	
==>'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1533	1628	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1533	1628	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1533	1628	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	374	467	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	374	467	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	374	467	
==>") and not ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12601	12753	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17113	17265	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12601	12753	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17113	17265	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12601	12753	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17113	17265	
==>, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9644	9803	
==>$self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9644	9803	
==>$self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9644	9803	
==>$self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param i <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5006	5104	
==>urns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, dependi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5006	5104	
==>urns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, dependi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6530	6628	
==>urns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, dependi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12085	12230	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3596	3741	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12085	12230	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3596	3741	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12085	12230	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3596	3741	
==>DTO = arr[i].BINDTO;
        }

        for(var i = 0; i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4162	4282	
==>eturn $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4162	4282	
==>eturn $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1651	1755	
==>des = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$r <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1651	1755	
==>des = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29077	29175	
==>y just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33629	33727	
==>y just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9183	9298	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6730	6845	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9183	9298	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6730	6845	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9183	9298	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6730	6845	
==>order eq ':canonical';
    my $dispatcher;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4790	4902	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4790	4902	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5380	5492	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5335	5446	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5335	5446	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5925	6036	
==>@_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2378	2503	
==>le
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{bef <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9150	9275	
==>le
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{bef <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2378	2503	
==>le
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{bef <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9150	9275	
==>le
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{bef <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1609	1711	
==>be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Som <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1609	1711	
==>be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Som <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	197	305	
==>x;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	201	309	
==>x;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	195	303	
==>x;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	195	303	
==>x;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2906	2996	
==>hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_na <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2906	2996	
==>hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_na <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6818	6924	
==>llowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6818	6924	
==>llowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6818	6924	
==>llowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3106	3211	
==>t;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3106	3211	
==>t;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3106	3211	
==>t;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6227	6357	
==>1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6227	6357	
==>1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6227	6357	
==>1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11873	11969	
==>le = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11873	11969	
==>le = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11873	11969	
==>le = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2076	2169	
==>rror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2076	2169	
==>rror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2076	2169	
==>rror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	954	1035	
==>sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Item <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	954	1035	
==>sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Item <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	954	1035	
==>sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Item <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5028	5117	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3256	3345	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5028	5117	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3256	3345	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5028	5117	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3256	3345	
==>ef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canon <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	900	1006	
==>x around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self-referent <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1265	1368	
==>x around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referent <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	864	967	
==>x around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referent <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1265	1368	
==>x around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referent <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10356	10451	
==>t;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is expor <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10356	10451	
==>t;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is expor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28618	28784	
==>join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. no <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28618	28784	
==>join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. no <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28618	28784	
==>join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9203	9310	
==>nvocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9203	9310	
==>nvocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9203	9310	
==>nvocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24571	24729	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26760	26918	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24571	24729	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26760	26918	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24571	24729	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26760	26918	
==>ift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38388	38500	
==>ems}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38388	38500	
==>ems}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38388	38500	
==>ems}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7642	7743	
==>------------------------------------

## NOTE:
## we want to prevent the default version 
## of this f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7642	7743	
==>------------------------------------

## NOTE:
## we want to prevent the default version 
## of this f <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7642	7743	
==>------------------------------------

## NOTE:
## we want to prevent the default version 
## of this f <==
6	/Users/nnunley/pugs/misc/S29_round.xinming.pl	843	948	
==>ulti Num::round_half_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13577	13676	
==>h later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
r <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13577	13676	
==>h later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1867	2001	
==>s> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1867	2001	
==>s> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1867	2001	
==>s> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4707	4828	
==>ethod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4707	4828	
==>ethod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4707	4828	
==>ethod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2722	2896	
==>->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2722	2896	
==>->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    fo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2722	2896	
==>->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    fo <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	277	379	
==>1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line o <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	238	340	
==>1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line o <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	238	340	
==>1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line o <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6774	6874	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5904	6004	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2558	2658	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2558	2658	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6774	6874	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5904	6004	
==>b *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∍ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11241	11359	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2357	2475	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7451	7569	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11241	11359	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2357	2475	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7451	7569	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6061	6185	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6061	6185	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6061	6185	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6359	6450	
==>tespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6359	6450	
==>tespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_insta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6359	6450	
==>tespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_insta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11241	11358	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11716	11833	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11241	11358	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11716	11833	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11241	11358	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11716	11833	
==>_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method label"
        un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5678	5799	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8648	8769	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5678	5799	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8648	8769	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5678	5799	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8648	8769	
==>n already blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other : <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	444	603	
==>sif (!defined $params{'$:expect'}) {
                confess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	788	908	
==>+)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	788	908	
==>+)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	788	908	
==>+)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCo <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1585	1701	
==>',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tild <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1585	1701	
==>',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tild <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1698	1805	
==>here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1903	2010	
==>here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1966	2073	
==>here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6460	6563	
==>il() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6253	6351	
==>il() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    m <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	166	258	
==>sub initialize {
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("",'package');
    P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11081	11222	
==>rn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11081	11222	
==>rn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11081	11222	
==>rn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1477	1580	
==>ugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1477	1580	
==>ugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1477	1580	
==>ugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	54	173	
==>* Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     jo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	54	173	
==>* Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     jo <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	54	173	
==>* Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     jo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	277	369	
==>str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	277	369	
==>str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	277	369	
==>str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17052	17205	
==>thods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17052	17205	
==>thods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we fi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17052	17205	
==>thods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7129	7229	
==>new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7129	7229	
==>new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7129	7229	
==>new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2814	2935	
==>ly
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2814	2935	
==>ly
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2814	2935	
==>ly
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5752	5842	
==>Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5752	5842	
==>Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5752	5842	
==>Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3089	3216	
==>temAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($lin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3089	3216	
==>temAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($lin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3089	3216	
==>temAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($lin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6993	7082	
==>------------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6993	7082	
==>------------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6993	7082	
==>------------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16700	16814	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13905	14019	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16700	16814	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13905	14019	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16700	16814	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13905	14019	
==>return $next->get_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12399	12497	
==>$e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12399	12497	
==>$e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12399	12497	
==>$e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	2117	2244	
==>am<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2117	2244	
==>am<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3169	3270	
==>}
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14902	15001	
==>6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14902	15001	
==>6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14902	15001	
==>6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2024	2124	
==>my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2024	2124	
==>my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2024	2124	
==>my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20425	20523	
==>x:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20425	20523	
==>x:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20425	20523	
==>x:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infi <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13880	13987	
==>rce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur firs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17357	17464	
==>rce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur firs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16737	16844	
==>rce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur firs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1378	1480	
==>etamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1378	1480	
==>etamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
co <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1378	1480	
==>etamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8233	8341	
==>perclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8233	8341	
==>perclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8233	8341	
==>perclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3544	3634	
==>my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3544	3634	
==>my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4134	4224	
==>my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5827	5951	
==>' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5827	5951	
==>' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trai <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5827	5951	
==>' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2289	2401	
==>oesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2289	2401	
==>oesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2289	2401	
==>oesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prun <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7875	7987	
==>my $dir = shift;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+) <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5469	5579	
==>lient_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dua <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5469	5579	
==>lient_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dua <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1908	2058	
==>}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1908	2058	
==>}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1908	2058	
==>}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15034	15139	
==>oins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TO <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18511	18616	
==>oins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TO <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17927	18032	
==>oins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2240	2365	
==>o {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2240	2365	
==>o {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2587	2712	
==>o {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6582	6692	
==>ispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6582	6692	
==>ispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6582	6692	
==>ispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8618	8803	
==>Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8618	8803	
==>Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->sto <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8618	8803	
==>Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->sto <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5718	5818	
==>clude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5718	5818	
==>clude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5718	5818	
==>clude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4365	4505	
==>ER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4365	4505	
==>ER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4365	4505	
==>ER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13243	13343	
==>t the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13243	13343	
==>t the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13243	13343	
==>t the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7403	7513	
==>ce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7403	7513	
==>ce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7403	7513	
==>ce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is pr <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3857	3951	
==>cope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3857	3951	
==>cope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	707	801	
==>cope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2625	2745	
==>g
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2625	2745	
==>g
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2625	2745	
==>g
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(und <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29398	29515	
==>APP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29398	29515	
==>APP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	222	327	
==>APP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	238	347	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	562	671	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	238	347	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	562	671	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	238	347	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	562	671	
==>routine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11897	12024	
==>[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11897	12024	
==>[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11897	12024	
==>[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20233	20338	
==>ut our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20233	20338	
==>ut our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20233	20338	
==>ut our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9735	9867	
==>t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro varia <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6076	6208	
==>t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro varia <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6925	7057	
==>t use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro varia <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11034	11128	
==>\@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	uns <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11034	11128	
==>\@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	uns <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11034	11128	
==>\@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	uns <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7721	7838	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10644	10761	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7721	7838	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10644	10761	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7721	7838	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10644	10761	
==>t:
    #    next METHOD unless $?SELF.class =:= $?CLASS
    # in it. Submethods are also special in that
    # this im <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6139	6323	
==>q 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6139	6323	
==>q 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6139	6323	
==>q 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3769	3858	
==>l1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3769	3858	
==>l1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3769	3858	
==>l1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5796	5906	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3916	4026	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5796	5906	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3916	4026	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5796	5906	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3916	4026	
==>circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:superclasses') = $su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40121	40232	
==>$this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40121	40232	
==>$this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40121	40232	
==>$this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2781	2868	
==>his::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2781	2868	
==>his::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2781	2868	
==>his::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8375	8533	
==>block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, ma <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4735	4893	
==>block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5584	5742	
==>block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37755	37879	
==>:Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37755	37879	
==>:Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37755	37879	
==>:Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2599	2707	
==>sa($param_type))
                || confess "got the wrong type for " . $param->to_str->to_native . " got($ar <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24351	24457	
==>if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->ad <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20772	20878	
==>if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5086	5179	
==>s = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5086	5179	
==>s = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5086	5179	
==>s = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	878	1009	
==>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	878	1009	
==>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	878	1009	
==>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12995	13100	
==>l( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cro <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16472	16577	
==>l( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cro <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15834	15939	
==>l( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	480	598	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	480	598	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	412	530	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	617	735	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	673	791	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	480	598	
==>= 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5520	5643	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3640	3763	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5520	5643	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3640	3763	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5520	5643	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3640	3763	
==>f"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->add_ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	11919	12016	
==>$date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,200 <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	13311	13408	
==>$date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,200 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11919	12016	
==>$date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,200 <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13311	13408	
==>$date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,200 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	587	682	
==>n $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) ret <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	587	682	
==>n $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5684	5783	
==>Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5684	5783	
==>Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5684	5783	
==>Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2479	2577	
==>$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2479	2577	
==>$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2479	2577	
==>$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $se <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5420	5517	
==>ti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4550	4647	
==>ti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5420	5517	
==>ti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4550	4647	
==>ti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4974	5066	
==>Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4974	5066	
==>Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	447	558	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	445	556	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	447	558	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	445	556	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	447	558	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	445	556	
==>e ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6657	6779	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9627	9749	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6657	6779	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9627	9749	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6657	6779	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9627	9749	
==>'Perl6::ClassMethod';
    } 
    
    # this is a private method
    sub ::make_private_method ($) {
        my ($method) = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13305	13500	
==>ete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13305	13500	
==>ete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13305	13500	
==>ete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4021	4158	
==>s;i++) {
        r->startp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = r->lastcloseparen = 0;
    }

    newstr = (r->s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	917	1029	
==>Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  F <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	917	1029	
==>Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  F <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9541	9652	
==>');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard' <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9541	9652	
==>');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11408	11502	
==>es more predictable 
behavior to class consturction because it isolates the Role specifc
code t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11408	11502	
==>es more predictable 
behavior to class consturction because it isolates the Role specifc
code t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11408	11502	
==>es more predictable 
behavior to class consturction because it isolates the Role specifc
code t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7610	7755	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7610	7755	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fet <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7610	7755	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36430	36533	
==>ead body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36430	36533	
==>ead body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36430	36533	
==>ead body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2025	2136	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2430	2541	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2025	2136	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2430	2541	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2025	2136	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2430	2541	
==>") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_SUBL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4737	4902	
==>ispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4737	4902	
==>ispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4737	4902	
==>ispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1255	1359	
==>Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1255	1359	
==>Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1255	1359	
==>Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6723	6884	
==>etch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell') <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6723	6884	
==>etch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell') <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6723	6884	
==>etch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell') <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1899	2049	
==>>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1680	1821	
==>>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1680	1821	
==>>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17128	17240	
==>lue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17128	17240	
==>lue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $nu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17128	17240	
==>lue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $nu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	8202	8299	
==>!($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11679	11776	
==>!($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inter <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10861	10958	
==>!($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inter <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12835	12937	
==>_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12835	12937	
==>_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12835	12937	
==>_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12367	12456	
==>s
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12367	12456	
==>s
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idx <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12367	12456	
==>s
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idx <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11347	11536	
==>block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7629	7818	
==>block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8463	8652	
==>block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7098	7199	
==>ub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7098	7199	
==>ub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7098	7199	
==>ub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	594	710	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	916	1032	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1295	1411	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	594	710	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	916	1032	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1295	1411	
==>1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name>() . " = Pugs::Com <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17359	17543	
==>d( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17359	17543	
==>d( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17359	17543	
==>d( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6414	6522	
==>ance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6414	6522	
==>ance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6414	6522	
==>ance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6000	6187	
==>str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6000	6187	
==>str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6000	6187	
==>str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1987	2082	
==>rencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1987	2082	
==>rencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1987	2082	
==>rencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3076	3209	
==>( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3076	3209	
==>( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3076	3209	
==>( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2537	2662	
==>ir(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2537	2662	
==>ir(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2537	2662	
==>ir(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [] <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9140	9369	
==>are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @ar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5500	5729	
==>are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @ar <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6349	6578	
==>are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7301	7412	
==>gle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7301	7412	
==>gle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7301	7412	
==>gle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	88	197	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	88	197	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	88	197	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1396	1502	
==>ve { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1396	1502	
==>ve { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = arg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1396	1502	
==>ve { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = arg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5558	5657	
==>ion_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5558	5657	
==>ion_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5558	5657	
==>ion_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2529	2620	
==>$label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2529	2620	
==>$label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2529	2620	
==>$label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	893	1001	
==>is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	893	1001	
==>is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	893	1001	
==>is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4222	4333	
==>::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4222	4333	
==>::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4222	4333	
==>::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3793	3881	
==>er $self;
}));

## ---------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3793	3881	
==>er $self;
}));

## ---------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3793	3881	
==>er $self;
}));

## ---------------------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1650	1777	
==>cher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1650	1777	
==>cher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1650	1777	
==>cher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1757	1876	
==>ethod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1757	1876	
==>ethod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1757	1876	
==>ethod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'ad <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	7437	7556	
==>$QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TY <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7437	7556	
==>$QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TY <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	27	129	
==>mmar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Per <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	27	129	
==>mmar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Per <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	27	127	
==>mmar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Per <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	27	127	
==>mmar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Per <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2852	3009	
==>omp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_ele <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2852	3009	
==>omp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_ele <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	288	405	
==>w) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_p <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	288	405	
==>w) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_p <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	288	405	
==>w) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_p <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	288	405	
==>w) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_p <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2452	2565	
==>an NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2875	2985	
==>an NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2370	2480	
==>an NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2875	2985	
==>an NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	639	745	
==>b type {
		my $self = shift;
		my $type = $self->SUPER::type;

		# this method always returns the shallowes <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6023	6129	
==>lf->{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14985	15135	
==>OAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14985	15135	
==>OAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14985	15135	
==>OAD);
        my $label = $autoload[-1];
        #my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19684	19833	
==>OAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19684	19833	
==>OAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19684	19833	
==>OAD);
        my $label = $autoload[-1];
        my $self = shift;   
        # NOTE:
        # DESTROYALL is what should really be called
        # s <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3496	3596	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6510	6610	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8578	8678	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3496	3596	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6510	6610	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8578	8678	
==>returns Bool`

- `path returns Array`

- `canonpath (Str $_path) returns Str`

- `cwd returns Str`

= <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1242	1347	
==>ith _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Se <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1242	1347	
==>ith _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5307	5408	
==>$::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5307	5408	
==>$::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5307	5408	
==>$::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4489	4581	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6438	6530	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4489	4581	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6438	6530	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4489	4581	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6438	6530	
==>:IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3433	3550	
==>$self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3433	3550	
==>$self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3433	3550	
==>$self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3861	3968	
==>' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3861	3968	
==>' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	711	818	
==>' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10800	10905	
==>erl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10800	10905	
==>erl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10800	10905	
==>erl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3057	3158	
==>}
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{param <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3057	3158	
==>}
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{param <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3057	3158	
==>}
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{param <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30135	30266	
==>)' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # there was an 'atom' there
    &RxPOS--;             # this does pos(regex) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1747	1845	
==>>exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2069	2167	
==>>exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37851	37945	
==>is
the result of first pairwise-matching every tuple of each source relation
with every tuple o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42400	42494	
==>is
the result of first pairwise-matching every tuple of each source relation
with every tuple o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42050	42144	
==>is
the result of first pairwise-matching every tuple of each source relation
with every tuple o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3942	4054	
==>ess defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3942	4054	
==>ess defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3942	4054	
==>ess defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4675	4786	
==>n ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4675	4786	
==>n ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4675	4786	
==>n ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1344	1453	
==>ter named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$po <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1344	1453	
==>ter named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$po <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1553	1662	
==>ter named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$po <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38226	38324	
==>e>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

= <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42775	42873	
==>e>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

= <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42425	42523	
==>e>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38953	39076	
==>_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38953	39076	
==>_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38953	39076	
==>_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5024	5131	
==>rgs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5024	5131	
==>rgs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5024	5131	
==>rgs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_o <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	96	213	
==>ub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_outp <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	96	213	
==>ub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_outp <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	922	1020	
==>ly, perhaps, be possible to do this
# Maybe.  And perl5 might benefit from its existence.  Normally <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1831	1928	
==>)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1831	1928	
==>)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1831	1928	
==>)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26400	26618	
==>} @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26400	26618	
==>} @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26400	26618	
==>} @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8453	8609	
==>ied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8453	8609	
==>ied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Pe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8453	8609	
==>ied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Pe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10664	10787	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15205	15328	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10664	10787	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15205	15328	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10664	10787	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15205	15328	
==>ally need to go there
            # if what we are asking for is a private method
            if $method_table_name ne '%:pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5301	5506	
==>[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5301	5506	
==>[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5301	5506	
==>[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1997	2108	
==>turn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1997	2108	
==>turn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1997	2108	
==>turn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2730	2840	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5720	5830	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3023	3128	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9441	9546	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3023	3128	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9441	9546	
==>ub optional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternatio <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18778	18895	
==>($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      e <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20136	20253	
==>($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18775	18869	
==>ffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$l <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17818	17912	
==>ffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$l <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18775	18869	
==>ffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$l <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17818	17912	
==>ffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$l <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8094	8251	
==>sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                ret <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8094	8251	
==>sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8075	8182	
==>add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8075	8182	
==>add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8075	8182	
==>add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL:: <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1402	1497	
==>);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl6::Run::O <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4375	4485	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4599	4709	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4375	4485	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4599	4709	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4375	4485	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4599	4709	
==>mp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14799	14897	
==>.};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14799	14897	
==>.};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14799	14897	
==>.};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5118	5213	
==>m B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5118	5213	
==>m B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7315	7410	
==>m B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24821	24923	
==>voked routine
simply returns, you can assume that it has succeeded, even if the return
value is undefin <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22435	22537	
==>voked routine simply
returns, you can assume that it has succeeded, even if the return value is
undefin <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9721	9823	
==>voked routine
simply returns, you can assume that it has succeeded, even if the return
value is undefin <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24821	24923	
==>voked routine
simply returns, you can assume that it has succeeded, even if the return
value is undefin <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22435	22537	
==>voked routine simply
returns, you can assume that it has succeeded, even if the return value is
undefin <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9721	9823	
==>voked routine
simply returns, you can assume that it has succeeded, even if the return
value is undefin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30488	30626	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32202	32340	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30488	30626	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32202	32340	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30488	30626	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32202	32340	
==>ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $tmp[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4358	4501	
==>h',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4358	4501	
==>h',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$sp <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4358	4501	
==>h',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10037	10136	
==>ssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10037	10136	
==>ssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10037	10136	
==>ssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
u <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14685	14780	
==>tter error handling for cmp_ok

The error handling capabilities need to be expanded more to hand <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14743	14838	
==>tter error handling for cmp_ok

The error handling capabilities need to be expanded more to hand <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23708	23798	
==>ies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22481	22571	
==>ies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23708	23798	
==>ies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22481	22571	
==>ies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2329	2426	
==>MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2329	2426	
==>MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_ha <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2329	2426	
==>MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_ha <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5937	6031	
==>ack

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Ba <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5937	6031	
==>ack

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Ba <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8134	8228	
==>ack

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Ba <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6451	6552	
==>{
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differen <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6451	6552	
==>{
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differen <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8297	8391	
==>t(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPS <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7427	7521	
==>t(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPS <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8297	8391	
==>t(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPS <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7427	7521	
==>t(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2258	2370	
==>label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2258	2370	
==>label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2258	2370	
==>label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2313	2409	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2313	2409	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Str <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2313	2409	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1764	1877	
==>To(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("")) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1764	1877	
==>To(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("")) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1764	1877	
==>To(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("")) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4018	4124	
==>t"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $ba <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4018	4124	
==>t"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $ba <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4018	4124	
==>t"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $ba <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1341	1498	
==>dy.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1341	1498	
==>dy.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1341	1498	
==>dy.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	459	554	
==>rcumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	459	554	
==>rcumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub i <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	459	554	
==>rcumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4486	4578	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6435	6527	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4486	4578	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6435	6527	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4486	4578	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6435	6527	
==>IL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20408	20548	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17547	17687	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20408	20548	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17547	17687	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20408	20548	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17547	17687	
==>ther classes do (this should
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	164	281	
==>aModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	164	281	
==>aModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	164	281	
==>aModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	746	841	
==>nings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	746	841	
==>nings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	746	841	
==>nings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Cons <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7930	8081	
==>next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval " <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8394	8545	
==>next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval " <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1382	1496	
==>s empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $no <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1726	1838	
==>s empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $no <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1333	1445	
==>s empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1726	1838	
==>s empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $no <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4107	4238	
==>irst look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s* <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4107	4238	
==>irst look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s* <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8339	8453	
==>lse)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of capture <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	497	611	
==>lse)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8059	8170	
==>lse)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	474	585	
==>lse)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of capture <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15690	15836	
==>>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15690	15836	
==>>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15690	15836	
==>>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5813	5911	
==>a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5813	5911	
==>a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5813	5911	
==>a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3887	4069	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6414	6596	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3887	4069	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6414	6596	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3887	4069	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6414	6596	
==>od_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if ($body->{submethods}) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16610	16722	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13815	13927	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16610	16722	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13815	13927	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16610	16722	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13815	13927	
==>r = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next->get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	355	460	
==>_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsarg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	355	460	
==>_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsarg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	355	460	
==>_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsarg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3106	3199	
==>xt}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3106	3199	
==>xt}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3106	3199	
==>xt}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5032	5122	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3260	3350	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5032	5122	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3260	3350	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5032	5122	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3260	3350	
==>nless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2332	2458	
==>art;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2332	2458	
==>art;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2332	2458	
==>art;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14696	14793	
==>(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14696	14793	
==>(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14696	14793	
==>(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4202	4329	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6851	6978	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4434	4558	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10883	11007	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4434	4558	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10883	11007	
==>-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7856	7974	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10779	10897	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7856	7974	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10779	10897	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7856	7974	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10779	10897	
==>e overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed($method) && $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	960	1086	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1048	1174	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	960	1086	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1048	1174	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	960	1086	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1048	1174	
==>onging to runjs
      push @runjs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

Ge <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10445	10612	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7996	8163	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10445	10612	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7996	8163	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10445	10612	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7996	8163	
==>rator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @stack;
                    # now go back to the top and start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1323	1443	
==>he 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lval <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1323	1443	
==>he 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lval <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1323	1443	
==>he 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lval <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11034	11166	
==>ndefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11034	11166	
==>ndefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11034	11166	
==>ndefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_fo <==
6	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	682	820	
==>aker_args->{'PL_FILES'};

        if ($args{inline}) {
            $self->Inline->write;
        }
        else {
            $self->Makefi <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4888	5000	
==>start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Obj <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4888	5000	
==>start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Obj <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2469	2558	
==>utput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matche <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2469	2558	
==>utput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2549	2638	
==>utput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5646	5769	
==>ace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realist <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5646	5769	
==>ace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realist <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5646	5769	
==>ace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	15	117	
==>::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	15	117	
==>::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	15	117	
==>::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->ne <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4315	4528	
==>t("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n") <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4315	4528	
==>t("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n") <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26516	26614	
==>ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define R <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5554	5650	
==>:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5554	5650	
==>:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5554	5650	
==>:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4170	4308	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7106	7244	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4170	4308	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7106	7244	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4170	4308	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7106	7244	
==>nsparent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15581	15685	
==>_END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15581	15685	
==>_END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15581	15685	
==>_END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	168	268	
==>p;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	168	268	
==>p;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	168	268	
==>p;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7594	7751	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5153	5310	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7594	7751	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5153	5310	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7594	7751	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5153	5310	
==>"in"
                my %in_tail = (map { $_ => 1 } @{$sub_seq}[ 1 .. $#{$sub_seq} ]);
                # NOTE:
                # jump out as soon as we find o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5606	5712	
==>first(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5606	5712	
==>first(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FA <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5606	5712	
==>first(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FA <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	233	339	
==>ed';

use base 'type::comparable';

my $OBJECT_ID = num->new(0);

# create a null object to 
# be used in b <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	404	509	
==>%att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub ev <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	404	509	
==>%att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub ev <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13210	13331	
==>}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13210	13331	
==>}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13210	13331	
==>}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6402	6517	
==>acter class") if @hex > 1;
        return $S->force_object(anyof_char => chr(hex $h), "\\x[$h]");
      }

      ret <==
6	/Users/nnunley/pugs/inc/Module/Install.pm	1177	1275	
==>subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3017	3115	
==>subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4811	4911	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4811	4911	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5401	5501	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5356	5455	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5356	5455	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type e <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5946	6045	
==>y $ref = $pad->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2958	3152	
==>'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2958	3152	
==>'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2958	3152	
==>'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5231	5338	
==>+= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5231	5338	
==>+= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5231	5338	
==>+= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3211	3329	
==>he tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3211	3329	
==>he tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to b <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3211	3329	
==>he tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2840	2953	
==>up_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2840	2953	
==>up_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2840	2953	
==>up_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13515	13621	
==>";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13515	13621	
==>";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13515	13621	
==>";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	908	1006	
==>COROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	908	1006	
==>COROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	908	1006	
==>COROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5125	5229	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5125	5229	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5125	5229	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	387	490	
==>q "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	387	490	
==>q "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	387	490	
==>q "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4367	4461	
==>C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actua <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4367	4461	
==>C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actua <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5891	5985	
==>C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actua <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17263	17398	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gre <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23229	23364	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17542	17677	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gre <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23508	23643	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gre <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18175	18270	
==>ogram simply returned words for the user, such as
'error opening file', programs would have a ha <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18175	18270	
==>ogram simply returned words for the user, such as
'error opening file', programs would have a ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13644	13785	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13644	13785	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13644	13785	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete h <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5890	6031	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete h <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4390	4531	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete h <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	396	489	
==>hile limited superficial success proved
# straightforward, a more robust solution would be far <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2632	2743	
==>ote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    retu <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2632	2743	
==>ote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	205	315	
==>';

my $namespace = 'grammar1::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4950	5044	
==>lass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4950	5044	
==>lass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4950	5044	
==>lass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor } <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	17624	17780	
==>t,$fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3948	4067	
==>L::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3948	4067	
==>L::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3948	4067	
==>L::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21917	22008	
==>};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21917	22008	
==>};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21917	22008	
==>};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1081	1168	
==>--------------------------------------------------------------------------
## Roles

# Q <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1081	1168	
==>--------------------------------------------------------------------------
## Roles

# Q <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1081	1168	
==>--------------------------------------------------------------------------
## Roles

# Q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5040	5128	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3268	3356	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5040	5128	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3268	3356	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5040	5128	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3268	3356	
==>abel;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6492	6596	
==>d') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6492	6596	
==>d') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6492	6596	
==>d') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	559	655	
==>.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	559	655	
==>.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retur <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	559	655	
==>.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1735	1878	
==>r->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1735	1878	
==>r->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1735	1878	
==>r->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	105	194	
==>65358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	105	194	
==>65358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	105	194	
==>65358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4334	4455	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6983	7104	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4563	4681	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11012	11130	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4563	4681	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11012	11130	
==>me::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Dump <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8614	8744	
==>o the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4974	5104	
==>o the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5823	5953	
==>o the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	764	860	
==>lechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	764	860	
==>lechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	764	860	
==>lechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15667	15791	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15667	15791	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15667	15791	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20388	20508	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20388	20508	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20388	20508	
==>::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28920	29061	
==>.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28920	29061	
==>.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28920	29061	
==>.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10920	11045	
==>s' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10920	11045	
==>s' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10920	11045	
==>s' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7619	7775	
==>tr . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7619	7775	
==>tr . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7619	7775	
==>tr . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2952	3066	
==>$vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2952	3066	
==>$vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2952	3066	
==>$vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3281	3393	
==>^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3281	3393	
==>^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3281	3393	
==>^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2612	2722	
==>53).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2612	2722	
==>53).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1401	1507	
==>an ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1401	1507	
==>an ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	578	670	
==>V_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	578	670	
==>V_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11055	11158	
==>$ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_con <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11055	11158	
==>$ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_con <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11055	11158	
==>$ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_con <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7682	7775	
==>\\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9610	9703	
==>\\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7670	7763	
==>\\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4506	4644	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7155	7293	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4731	4865	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11180	11314	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4731	4865	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11180	11314	
==>eturn};
        delete $match->{abort};
        delete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4063	4178	
==>ods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4063	4178	
==>ods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4063	4178	
==>ods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1459	1554	
==>c} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1459	1554	
==>c} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1459	1554	
==>c} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does no <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4903	5000	
==>...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4903	5000	
==>...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4903	5000	
==>...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1849	1941	
==>JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1849	1941	
==>JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1849	1941	
==>JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6571	6677	
==>ithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6571	6677	
==>ithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6571	6677	
==>ithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	908	1005	
==>/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	908	1005	
==>/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippin <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	908	1005	
==>/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12906	13017	
==>ult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16383	16494	
==>ult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15745	15856	
==>ult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9910	9997	
==>alues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9910	9997	
==>alues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9910	9997	
==>alues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1644	1796	
==>file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_ <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1644	1796	
==>file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13578	13684	
==>x->RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow q <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	583	685	
==>ulti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versio <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	583	685	
==>ulti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versio <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	583	685	
==>ulti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versio <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5115	5229	
==>&&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5115	5229	
==>&&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@thi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5115	5229	
==>&&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	662	766	
==>"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	662	766	
==>"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	662	766	
==>"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3467	3561	
==>----------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3490	3584	
==>-----------------------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3513	3607	
==>------
## BOOTSTRAPPING COMPLETE
## ----------------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5369	5463	
==>----------------------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5392	5486	
==>-----------------------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5415	5509	
==>------
## BOOTSTRAPPING COMPLETE
## ----------------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	569	707	
==>earch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = s <==
6	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	569	707	
==>earch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = s <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	81	182	
==> @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=postcircumfix
$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4235	4400	
==>dy->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4235	4400	
==>dy->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4235	4400	
==>dy->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6761	6912	
==>dy->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6761	6912	
==>dy->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6761	6912	
==>dy->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27381	27479	
==>ibutes; they
must all be set when the object is constructed.  If you want to
conceptually change an <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34907	35005	
==>ibutes;
they must all be set when the object is constructed.  If you want to
conceptually change an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27381	27479	
==>ibutes; they
must all be set when the object is constructed.  If you want to
conceptually change an <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34907	35005	
==>ibutes;
they must all be set when the object is constructed.  If you want to
conceptually change an <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	491	585	
==>("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L< <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	491	585	
==>("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L< <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3997	4093	
==>of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3997	4093	
==>of people. Please see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6976	7071	
==>of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9046	9141	
==>of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6976	7071	
==>of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9046	9141	
==>of people. Please see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7723	7865	
==>= $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2034	2156	
==>= $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2034	2156	
==>= $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2034	2156	
==>= $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11558	11678	
==>tion @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15035	15155	
==>tion @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14784	14904	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12038	12158	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14784	14904	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12038	12158	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14784	14904	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12038	12158	
==>ttribute) = @_;
    (defined $label && defined $attribute && blessed($attribute))
        || confess "InsufficientArgumen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3267	3407	
==>type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3267	3407	
==>type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unb <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3267	3407	
==>type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18730	18864	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15968	16102	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18730	18864	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15968	16102	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18730	18864	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15968	16102	
==>.. so we 
                    # just grab it from the namespoace stash
                    ::opaque_instance_attr($self => '%:namespace <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5726	5853	
==>atch.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone( <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5726	5853	
==>atch.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone( <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4276	4378	
==>ns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3403	3505	
==>ns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4276	4378	
==>ns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3403	3505	
==>ns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14115	14215	
==>ss

A Node object is a simple container which stores data to be used or
displayed by your program.  I <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14115	14215	
==>ss

A Node object is a simple container which stores data to be used or
displayed by your program.  I <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22039	22134	
==>ndlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20920	21015	
==>ndlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=ite <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22039	22134	
==>ndlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=ite <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20920	21015	
==>ndlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=ite <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	18134	18355	
==>=== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21611	21832	
==>=== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21198	21419	
==>=== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1087	1188	
==>ore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1087	1188	
==>ore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1087	1188	
==>ore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4241	4357	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6890	7006	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4472	4586	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10921	11035	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4472	4586	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10921	11035	
==>my %match2 = %$match;
        $match2{capture} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9146	9241	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4289	4384	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15725	15820	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9146	9241	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4289	4384	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15725	15820	
==>en()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logical value, wheth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25013	25204	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27202	27393	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25013	25204	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27202	27393	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25013	25204	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27202	27393	
==>tart;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14520	14698	
==>>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14520	14698	
==>>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14520	14698	
==>>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17193	17299	
==>_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17193	17299	
==>_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements t <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17193	17299	
==>_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	159	281	
==>of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	159	281	
==>of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	159	281	
==>of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (functi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6809	6920	
==>->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6809	6920	
==>->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8826	8935	
==>$how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how);
  });

  # punct POSIX class
  $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6117	6232	
==>= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Cod <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6117	6232	
==>= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Cod <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6117	6232	
==>= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Cod <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3765	3868	
==>gifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3765	3868	
==>gifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3765	3868	
==>gifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8401	8534	
==>' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13912	14045	
==>' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8401	8534	
==>' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13906	14039	
==>' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	80	175	
==>ME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.1 <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	80	175	
==>ME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.1 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	5324	5525	
==>,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8801	9002	
==>,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7821	8022	
==>,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3504	3617	
==>event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3504	3617	
==>event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{ <==
6	/Users/nnunley/pugs/util/testgraph.pl	618	705	
==>eat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v->has_inline_css($Config <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36362	36482	
==>ms;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36362	36482	
==>ms;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$ar <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36362	36482	
==>ms;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23720	23831	
==>/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23720	23831	
==>/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23720	23831	
==>/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbar <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	1887	1989	
==>);
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4255	4357	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3382	3484	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1887	1989	
==>);
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4255	4357	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3382	3484	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28181	28280	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29192	29291	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32733	32832	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33744	33843	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31843	31942	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32890	32989	
==>d has not yet been implemented.>

This method is a generic relational operator that returns a new Re <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21340	21458	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22461	22579	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23024	23142	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17761	17879	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18882	19000	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19445	19563	
==>$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # lo <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	852	985	
==>pan.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($c <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4091	4224	
==>pan.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($c <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	852	985	
==>pan.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($c <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4091	4224	
==>pan.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($c <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3751	3859	
==>rce, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #pri <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3968	4076	
==>rce, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38516	38637	
==>ev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38516	38637	
==>ev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38516	38637	
==>ev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1030	1124	
==>othing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1030	1124	
==>othing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, % <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1030	1124	
==>othing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, % <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9903	10051	
==>'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10182	10330	
==>'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1084	1195	
==>t longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1435	1544	
==>t longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1042	1151	
==>t longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1435	1544	
==>t longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1016	1135	
==>ion.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1016	1135	
==>ion.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1016	1135	
==>ion.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22217	22304	
==>system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22217	22304	
==>system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)} <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22217	22304	
==>system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13387	13499	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10671	10783	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13387	13499	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10671	10783	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13387	13499	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10671	10783	
==>_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class') {
        return ::opaque_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14895	15016	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12149	12270	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14895	15016	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12149	12270	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14895	15016	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12149	12270	
==>entArguments : you must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (ble <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	552	663	
==>nction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	552	663	
==>nction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	552	663	
==>nction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2258	2365	
==>&recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2258	2365	
==>&recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2258	2365	
==>&recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7128	7238	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7128	7238	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7128	7238	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12284	12393	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12284	12393	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12284	12393	
==>ub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _ <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	274	402	
==>ur $FALSE = bless \(my $f = 0) => __PACKAGE__;

sub new {
    my (undef, $value) = @_;
    (defined $value            && 
     lo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2806	2911	
==>less $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2999	3104	
==>less $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12474	12569	
==>te)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12474	12569	
==>te)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12474	12569	
==>te)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6664	6767	
==>ad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, loc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6664	6767	
==>ad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, loc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6664	6767	
==>ad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, loc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	367	465	
==>n "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	367	465	
==>n "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($F <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	367	465	
==>n "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($F <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5210	5360	
==>n;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3437	3565	
==>erclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_disc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3437	3565	
==>erclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_disc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3437	3565	
==>erclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_disc <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1595	1696	
==>rying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_te <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1595	1696	
==>rying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_te <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4077	4182	
==>al { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4077	4182	
==>al { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4077	4182	
==>al { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5785	5883	
==>L2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5785	5883	
==>L2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5785	5883	
==>L2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::i <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2730	2844	
==>or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex acce <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2730	2844	
==>or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex acce <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5894	5990	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5024	5120	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5894	5990	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5024	5120	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5492	5610	
==>bute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5492	5610	
==>bute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5492	5610	
==>bute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4711	4810	
==>_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4711	4810	
==>_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4711	4810	
==>_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14419	14580	
==>le;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14419	14580	
==>le;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14419	14580	
==>le;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	966	1067	
==>0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	966	1067	
==>0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Pe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	966	1067	
==>0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Pe <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3082	3204	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11005	11127	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6207	6329	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3082	3204	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11005	11127	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6207	6329	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'METH' => $me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3508	3640	
==>cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3508	3640	
==>cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3508	3640	
==>cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:ce <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1102	1206	
==>y);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1102	1206	
==>y);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1102	1206	
==>y);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	630	747	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	718	835	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	630	747	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	718	835	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	630	747	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	718	835	
==>my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc $ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3077	3211	
==>s(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3077	3211	
==>s(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3077	3211	
==>s(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6728	6853	
==>L::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefaul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6728	6853	
==>L::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefaul <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6728	6853	
==>L::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefaul <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6780	6899	
==>undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6780	6899	
==>undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6780	6899	
==>undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	166	266	
==>rap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	166	266	
==>rap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
s <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	166	266	
==>rap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13312	13444	
==>ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9498	9630	
==>ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10334	10466	
==>ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \ <==
6	/Users/nnunley/pugs/util/drift.pl	519	643	
==>$_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/data/;
    s/--.*$//;
    /\S/ or ne <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	2	97	
==>le Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combi <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	2	97	
==>le Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9982	10127	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair met <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9982	10127	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair met <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9982	10127	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair met <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5464	5563	
==>scription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::Wi <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5464	5563	
==>scription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::Wi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7661	7760	
==>scription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::Wi <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2950	3060	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5964	6074	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8032	8142	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2950	3060	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5964	6074	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8032	8142	
==>UNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull returns Str`

- `c <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11861	11995	
==>server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      r <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11861	11995	
==>server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      r <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3178	3312	
==>ndle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3850	3947	
==>hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3850	3947	
==>hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3850	3947	
==>hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6442	6538	
==>ound (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('li <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5515	5611	
==>ound (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('li <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6442	6538	
==>ound (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('li <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5515	5611	
==>ound (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('li <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17598	17692	
==>at it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...) <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17598	17692	
==>at it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...) <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4546	4672	
==>start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	5205	5331	
==>start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4546	4672	
==>start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5205	5331	
==>start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18202	18307	
==>ional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot< <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18202	18307	
==>ional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot< <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12267	12406	
==>n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{ta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8543	8682	
==>n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{ta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9378	9517	
==>n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{ta <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3461	3566	
==>duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6938	7043	
==>duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $ma <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5895	6000	
==>duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	443	556	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	663	776	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	443	556	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	663	776	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	443	556	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	663	776	
==>L2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ). <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13595	13723	
==>->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'R <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13595	13723	
==>->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'R <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13595	13723	
==>->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1578	1671	
==>j => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:author <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1578	1671	
==>j => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:author <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1578	1671	
==>j => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:author <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1239	1352	
==>s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1239	1352	
==>s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3857	3964	
==>r::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $. <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4190	4297	
==>r::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3857	3964	
==>r::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $. <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4190	4297	
==>r::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	461	574	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	459	572	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	461	574	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	459	572	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	461	574	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	459	572	
==>LOBAL_INSTANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17369	17463	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14594	14688	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17369	17463	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14594	14688	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17369	17463	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14594	14688	
==>add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7097	7228	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10067	10198	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7097	7228	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10067	10198	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7097	7228	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10067	10198	
==>hecks
        # to see the $?CLASS of the previous call
        # and know if we are being called from within
        # our own clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8216	8397	
==>e {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8216	8397	
==>e {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8216	8397	
==>e {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5187	5289	
==>s which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5187	5289	
==>s which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5187	5289	
==>s which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  m <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	196	308	
==>rbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is ex <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	196	308	
==>rbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is ex <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	196	308	
==>rbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is ex <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	196	308	
==>rbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is ex <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	2272	2369	
==>ty($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always re <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2272	2369	
==>ty($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9956	10113	
==>METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9956	10113	
==>METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9956	10113	
==>METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupp <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7674	7768	
==>from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), ca <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9602	9696	
==>from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), ca <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7662	7756	
==>from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	173	296	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	171	294	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	173	296	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	171	294	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	173	296	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	171	294	
==>TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque instance
    # variables and access their intern <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	418	527	
==>errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	418	527	
==>errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	418	527	
==>errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5976	6082	
==>!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self. <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	6169	6275	
==>!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5976	6082	
==>!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self. <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6169	6275	
==>!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17238	17331	
==>le::KeyedText, that is a terse way of saying that it subscribes to the
localization methodolog <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17238	17331	
==>le::KeyedText, that is a terse way of saying that it subscribes to the
localization methodolog <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3302	3417	
==>use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %b <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3302	3417	
==>use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %b <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3658	3773	
==>use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	28	132	
==>s;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	28	132	
==>s;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	28	132	
==>s;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14848	14967	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19547	19666	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14848	14967	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19547	19666	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14848	14967	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19547	19666	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14409	14578	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14409	14578	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14409	14578	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2940	3109	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4399	4506	
==>h->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4411	4518	
==>h->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous <==
6	/Users/nnunley/pugs/util/addauthors.pl	1302	1410	
==>unt}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3807	3909	
==>atched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3807	3909	
==>atched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	726	824	
==>r whatever



Continuations are used for backtracking.



A "ruleop" function gets some arguments a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10594	10692	
==>r whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments a <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	698	792	
==>r whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1747	1865	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3310	3428	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1747	1865	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3310	3428	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1747	1865	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3310	3428	
==>ER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6726	6838	
==>tion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6726	6838	
==>tion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$? <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6726	6838	
==>tion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4090	4191	
==>value { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4090	4191	
==>value { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4090	4191	
==>value { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6473	6618	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8922	9067	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6473	6618	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8922	9067	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6473	6618	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8922	9067	
==>y $start = $i->start;
            my $end =   $i->end;
            die "Slice start/end is not defined"
                unless defined $end && def <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	97	221	
==>',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'stri <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	97	221	
==>',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'stri <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	97	221	
==>',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'stri <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	97	221	
==>',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'stri <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6781	6875	
==>ischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix mo <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6781	6875	
==>ischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3796	3940	
==>m;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3796	3940	
==>m;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3796	3940	
==>m;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	397	510	
==>ss = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	397	510	
==>ss = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  cons <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	397	510	
==>ss = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  cons <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11064	11189	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8617	8742	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11064	11189	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8617	8742	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11064	11189	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8617	8742	
==>{
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP:
            if (scalar(@stack) != <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	51	166	
==>b ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	51	166	
==>b ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	51	166	
==>b ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1721	1833	
==>set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the memb <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5198	5310	
==>set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the memb <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4128	4240	
==>set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the memb <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	17414	17523	
==>param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_pair is b -> (int x b)
my $hal <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3044	3147	
==>andlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3044	3147	
==>andlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29038	29133	
==>od is a generic relational operator that returns a new Relation::Example
which is the same as th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31886	31981	
==>od is a generic relational operator that returns a new Relation::Example
which is the same as th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32933	33028	
==>od is a generic relational operator that returns a new Relation::Example
which is the same as th <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	191	315	
==>value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parame <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	191	315	
==>value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parame <==
6	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	134	237	
==>dule - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESCRIPTION

Th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1080	1174	
==>NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1080	1174	
==>NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1080	1174	
==>NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2265	2377	
==>e; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2265	2377	
==>e; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2265	2377	
==>e; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pru <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	3762	3859	
==>erday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"t <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3762	3859	
==>erday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"t <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11303	11399	
==>visual() method; specifically, in the case
of a sub-class that adds a handler, the qr() method is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5180	5307	
==>3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5180	5307	
==>3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5180	5307	
==>3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5122	5216	
==>e editor routine is passed the current object in the recursion and
the wanted namespace ("MyNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5122	5216	
==>e editor routine is passed the current object in the recursion and
the wanted namespace ("MyNam <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5122	5216	
==>e editor routine is passed the current object in the recursion and
the wanted namespace ("MyNam <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1455	1571	
==>_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %sta <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1455	1571	
==>_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %sta <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15411	15526	
==>s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
    my $blank = (' ' x 77);
    my $leader = "$te <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25718	25815	
==>ys which attributes are being
renamed, with its keys being the old names and its values the new na <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30270	30367	
==>ys which attributes are being
renamed, with its keys being the old names and its values the new na <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29236	29333	
==>ys which attributes are being
renamed, with its keys being the old names and its values the new na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4799	4938	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5760	5899	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4799	4938	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5760	5899	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4799	4938	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5760	5899	
==>t( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.unbo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4610	4709	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7546	7645	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4610	4709	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7546	7645	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4610	4709	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7546	7645	
==>thod (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10006	10129	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7557	7680	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10006	10129	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7557	7680	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10006	10129	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7557	7680	
==>thod(sub {
    my @stack = $::SELF->_make_dispatcher_iterator($::SELF);
    return sub {
        TOP: {
            if (defi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4318	4425	
==>e ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ?? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4318	4425	
==>e ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ?? <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4318	4425	
==>e ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ?? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6040	6141	
==>tion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6040	6141	
==>tion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6040	6141	
==>tion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	784	957	
==>ement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# sta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	784	957	
==>ement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# sta <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	442	546	
==>ists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
} <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	442	546	
==>ists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
} <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	5821	5904	
==>---------------------------------------------------------------------------
## sibli <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5821	5904	
==>---------------------------------------------------------------------------
## sibli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9899	10028	
==>,@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9899	10028	
==>,@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9899	10028	
==>,@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12402	12526	
==>xed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { B <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12402	12526	
==>xed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { B <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12402	12526	
==>xed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4174	4335	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7110	7271	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4174	4335	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7110	7271	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4174	4335	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7110	7271	
==>rent to anything 
        # outside of the Role.
        } => blessed($method);
    }      
    
    # This sub basically takes a subroutine
    # and wraps it so <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7333	7504	
==>{ Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= P <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7333	7504	
==>{ Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= P <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7333	7504	
==>{ Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9114	9226	
==>der() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1248	1350	
==>der() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1248	1350	
==>der() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13459	13610	
==>ring,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3608	3743	
==>ring,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3608	3743	
==>ring,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3608	3743	
==>ring,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	716	807	
==>I SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STD <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	716	807	
==>I SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STD <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	716	807	
==>I SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2476	2598	
==>f $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->look <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2476	2598	
==>f $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->look <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2476	2598	
==>f $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->look <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1808	1900	
==>y($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1808	1900	
==>y($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1808	1900	
==>y($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5920	6024	
==>t bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5920	6024	
==>t bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::strin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5920	6024	
==>t bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::strin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	340	435	
==>js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	340	435	
==>js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	340	435	
==>js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = q <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7131	7244	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6261	6374	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2915	3028	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2915	3028	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7131	7244	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6261	6374	
==>nfix:<∉> ($member, Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5830	5930	
==>h my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5830	5930	
==>h my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5830	5930	
==>h my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	169	267	
==>xit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	169	267	
==>xit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	169	267	
==>xit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4203	4384	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4203	4384	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4203	4384	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }                
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6729	6896	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6729	6896	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6729	6896	
==>bmethod(
                    $body->{submethods}->{$method_name}
                ));
            }
        }  
        if ($body->{class_methods}) {
            foreach <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4599	4737	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7248	7386	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4821	4954	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11270	11403	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4821	4954	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11270	11403	
==>tch2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%match2;
    }
    #warn "Return String";
    # prin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7167	7290	
==>var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7167	7290	
==>var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7167	7290	
==>var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3157	3262	
==>ss')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3157	3262	
==>ss')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::O <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3157	3262	
==>ss')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::O <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12418	12597	
==>( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12418	12597	
==>( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12418	12597	
==>( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8644	8764	
==>Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8644	8764	
==>Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8644	8764	
==>Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	128	230	
==>f->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	128	230	
==>f->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	128	230	
==>f->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17121	17215	
==>TI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17121	17215	
==>TI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17121	17215	
==>TI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2326	2450	
==>y $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = c <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2326	2450	
==>y $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = c <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4157	4257	
==>lose();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('l <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4157	4257	
==>lose();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('l <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4114	4212	
==>lose();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('l <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4114	4212	
==>lose();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3149	3292	
==>ch, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3149	3292	
==>ch, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3149	3292	
==>ch, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8750	8856	
==>dy;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8750	8856	
==>dy;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8750	8856	
==>dy;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14607	14802	
==>$r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18084	18279	
==>$r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_wi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17500	17695	
==>$r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_wi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1234	1355	
==>e (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1234	1355	
==>e (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1234	1355	
==>e (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	773	881	
==>v(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	773	881	
==>v(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full suppor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	773	881	
==>v(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full suppor <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28896	28991	
==>he new attributes having the same names as old
attributes that become wrapped, and it supports h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33448	33543	
==>he new attributes having the same names as old
attributes that become wrapped, and it supports h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32585	32680	
==>he new attributes having the same names as old
attributes that become wrapped, and it supports h <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6769	6866	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5899	5996	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2553	2650	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2553	2650	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6769	6866	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5899	5996	
==>ti sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5073	5206	
==>= $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5073	5206	
==>= $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5073	5206	
==>= $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method-> <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28327	28423	
==>that the object's contents look
good at a glance); no attribute values are escaped and you should <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35683	35779	
==>that the object's contents look
good at a glance); no attribute values are escaped and you should <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28327	28423	
==>that the object's contents look
good at a glance); no attribute values are escaped and you should <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35683	35779	
==>that the object's contents look
good at a glance); no attribute values are escaped and you should <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7889	7979	
==>s = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7889	7979	
==>s = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12644	12815	
==>ry;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12644	12815	
==>ry;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12644	12815	
==>ry;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14691	14848	
==>( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14691	14848	
==>( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->cl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14691	14848	
==>( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20630	20828	
==>tore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20630	20828	
==>tore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20630	20828	
==>tore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5521	5633	
==>) {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5521	5633	
==>) {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === h <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5521	5633	
==>) {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15312	15410	
==>$_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15312	15410	
==>$_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15312	15410	
==>$_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5975	6130	
==>ss' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5975	6130	
==>ss' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5975	6130	
==>ss' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5494	5588	
==>scription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role exte <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5494	5588	
==>scription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role exte <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7691	7785	
==>scription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role exte <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12677	12784	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4177	4284	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12677	12784	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4177	4284	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12677	12784	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4177	4284	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6287	6406	
==>sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6287	6406	
==>sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13219	13367	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14954	15102	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13219	13367	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14954	15102	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13219	13367	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14954	15102	
==>self->{pops}};
            return pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13852	13968	
==>bj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13852	13968	
==>bj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13852	13968	
==>bj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5720	5814	
==>«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5720	5814	
==>«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5720	5814	
==>«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26098	26222	
==>if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26098	26222	
==>if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26098	26222	
==>if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', m <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3650	3768	
==>l]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pSt <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3650	3768	
==>l]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pSt <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	500	618	
==>l]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pSt <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2893	3000	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10816	10923	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6018	6125	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2893	3000	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10816	10923	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6018	6125	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9477	9640	
==>}
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cm <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15021	15184	
==>}
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9477	9640	
==>}
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cm <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15015	15178	
==>}
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cm <==
6	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1661	1800	
==>me_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($ <==
6	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1661	1800	
==>me_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18006	18177	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleo <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18285	18456	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23701	23790	
==>nd replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22474	22563	
==>nd replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23701	23790	
==>nd replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22474	22563	
==>nd replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25290	25386	
==>nt object's attributes is identical; they do not
interact with the outside environment at all.

A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11421	11517	
==>nt object's attributes is identical; they do not
interact with the outside environment at all.

A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14694	14790	
==>nt
object's attributes is identical; they do not interact with the outside
environment at all.

A <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25290	25386	
==>nt object's attributes is identical; they do not
interact with the outside environment at all.

A <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11421	11517	
==>nt object's attributes is identical; they do not
interact with the outside environment at all.

A <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14694	14790	
==>nt
object's attributes is identical; they do not interact with the outside
environment at all.

A <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1965	2066	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4261	4362	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1928	2029	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1965	2066	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4261	4362	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1928	2029	
==>etta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1211	1307	
==>ain_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1211	1307	
==>ain_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1211	1307	
==>ain_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6209	6298	
==>methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This override <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6209	6298	
==>methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This override <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8406	8495	
==>methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This override <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	547	652	
==>posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	547	652	
==>posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColum <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	547	652	
==>posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColum <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2709	2810	
==>return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2709	2810	
==>return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2709	2810	
==>return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7841	7992	
==>$self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7841	7992	
==>$self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7841	7992	
==>$self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8845	8966	
==>plan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $. <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1001	1114	
==>plan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $. <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1001	1114	
==>plan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	33	129	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	205	301	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	33	129	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	205	301	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	33	129	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	205	301	
==>:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8844	8992	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6397	6545	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8844	8992	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6397	6545	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8844	8992	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6397	6545	
==>erclasses} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2068	2171	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2068	2171	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $au <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2068	2171	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $au <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	131	228	
==>tructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	131	228	
==>tructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	131	228	
==>tructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12034	12126	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9589	9681	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12034	12126	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9589	9681	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12034	12126	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9589	9681	
==>dd_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8572	8734	
==>whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8572	8734	
==>whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8572	8734	
==>whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9310	9444	
==>::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9310	9444	
==>::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9310	9444	
==>::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3220	3398	
==>1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3220	3398	
==>1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->ne <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3220	3398	
==>1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5243	5348	
==>xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5243	5348	
==>xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
M <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5243	5348	
==>xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1292	1397	
==>>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1292	1397	
==>>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1292	1397	
==>>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1323	1423	
==>sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1323	1423	
==>sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1323	1423	
==>sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1748	1868	
==>e => $_[0]{rule}(), } } ]
        | [ <metasyntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule name <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7371	7471	
==>icked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan} <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7371	7471	
==>icked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38282	38381	
==>l = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38282	38381	
==>l = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arra <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38282	38381	
==>l = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6886	6985	
==>lass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6886	6985	
==>lass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6886	6985	
==>lass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cla <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5310	5403	
==>sed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This return <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5310	5403	
==>sed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This return <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7507	7600	
==>sed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	964	1066	
==>(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6257	6359	
==>Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6257	6359	
==>Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6257	6359	
==>Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	964	1066	
==>(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	964	1066	
==>(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24954	25183	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27143	27372	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24954	25183	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27143	27372	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24954	25183	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27143	27372	
==>amples = 2   unless defined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ > <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6389	6495	
==>ew_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6389	6495	
==>ew_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6389	6495	
==>ew_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11236	11340	
==>('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11236	11340	
==>('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11236	11340	
==>('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12474	12570	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10025	10121	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12474	12570	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10025	10121	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12474	12570	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10025	10121	
==>nless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_instance_id($class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4128	4286	
==>abel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4128	4286	
==>abel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLAS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4128	4286	
==>abel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLAS <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6797	6953	
==>v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6797	6953	
==>v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4979	5110	
==>ive . ' => ' . $right->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)-> <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6945	7042	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6075	6172	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2729	2826	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2729	2826	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6945	7042	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6075	6172	
==>ti sub *infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23018	23223	
==>dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23018	23223	
==>dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23018	23223	
==>dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3590	3705	
==>hod('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3590	3705	
==>hod('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3590	3705	
==>hod('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5065	5202	
==>{
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # T <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5065	5202	
==>{
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # T <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5194	5302	
==>m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6462	6570	
==>m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5194	5302	
==>m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6450	6558	
==>m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	691	793	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1211	1313	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	691	793	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1211	1313	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	691	793	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1211	1313	
==>{
    var array = args[1].FETCH(), add = args[2].FETCH(), cc = args.pop();
    if(array == undefined) a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	362	478	
==>}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	362	478	
==>}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::C <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	362	478	
==>}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::C <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16534	16633	
==>SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::ass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16534	16633	
==>SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::ass <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16534	16633	
==>SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::ass <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1353	1510	
==>ght);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1353	1510	
==>ght);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1353	1510	
==>ght);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4421	4521	
==>f->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $mac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4421	4521	
==>f->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $mac <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4421	4521	
==>f->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $mac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4793	4983	
==>ed $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4793	4983	
==>ed $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4793	4983	
==>ed $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2128	2235	
==>e $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2128	2235	
==>e $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOA <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2128	2235	
==>e $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15764	15874	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13014	13124	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15764	15874	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13014	13124	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15764	15874	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13014	13124	
==>abel, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you must provide a label" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8646	8811	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11619	11784	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8646	8811	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11619	11784	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8646	8811	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11619	11784	
==>roperly handle the forcing of method
            # calls without the use of the FORCE 
            # parameter
            local $::SELF = $_[0];
            return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1495	1596	
==>c  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1495	1596	
==>c  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1495	1596	
==>c  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35276	35372	
==>to C<join> except that this method will fail if any of its source Relations
have attributes in co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39826	39922	
==>to C<join> except that this method will fail if any of its source Relations
have attributes in co <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39386	39482	
==>to C<join> except that this method will fail if any of its source Relations
have attributes in co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2902	3007	
==>un_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2902	3007	
==>un_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2902	3007	
==>un_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2744	2843	
==>ze();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6221	6320	
==>ze();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5151	5250	
==>ze();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8566	8679	
==>body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8566	8679	
==>body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8566	8679	
==>body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6960	7056	
==>dule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6960	7056	
==>dule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6960	7056	
==>dule->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5294	5401	
==>ssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5294	5401	
==>ssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5294	5401	
==>ssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	229	326	
==>ssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	229	326	
==>ssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	229	326	
==>ssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { p <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9779	9914	
==>ead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all dep <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6120	6255	
==>ead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all dep <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6969	7104	
==>ead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all dep <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4786	4915	
==>..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $cod <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5077	5169	
==>ied_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5077	5169	
==>ied_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7511	7647	
==>es,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7511	7647	
==>es,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pus <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7511	7647	
==>es,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pus <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19917	20009	
==>($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19917	20009	
==>($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19917	20009	
==>($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MU <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6614	6722	
==>le_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6626	6734	
==>le_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dump <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2190	2293	
==>e(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'gr <==
6	/Users/nnunley/pugs/util/addauthors.pl	445	548	
==>comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  fo <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2474	2575	
==>k.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2532	2633	
==>k.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2325	2547	
==>{ 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1465	1631	
==>{ 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1465	1631	
==>{ 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3750	3846	
==>if ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $para <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3750	3846	
==>if ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $para <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4340	4436	
==>if ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $para <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21291	21412	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22412	22533	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22975	23096	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17712	17833	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18833	18954	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19396	19517	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	1246	1353	
==>e "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1246	1353	
==>e "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12022	12116	
==>f C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> an <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9143	9237	
==>f C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> an <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12022	12116	
==>f C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> an <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9143	9237	
==>f C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33362	33542	
==>else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33362	33542	
==>else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "r <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33362	33542	
==>else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6075	6248	
==>y $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6075	6248	
==>y $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6075	6248	
==>y $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1606	1736	
==>js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1606	1736	
==>js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1606	1736	
==>js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	115	208	
==>--------------------------------------
## now for some bootstrapping ....

## See http://artic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	115	208	
==>--------------------------------------
## now for some bootstrapping ....

## See http://artic <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	115	208	
==>--------------------------------------
## now for some bootstrapping ....

## See http://artic <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6746	6849	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5876	5979	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2530	2633	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2530	2633	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6746	6849	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5876	5979	
==>ncludes($member);
}
multi sub *infix:<∈> ($member, Set $set) returns Bool {
    $set.includes($member) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9509	9645	
==>$ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9509	9645	
==>$ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9509	9645	
==>$ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3982	4091	
==>rray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3982	4091	
==>rray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3982	4091	
==>rray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12263	12385	
==>$package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12257	12379	
==>$package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5475	5574	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5475	5574	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos - <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5475	5574	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos - <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7517	7612	
==>-formed -- any warnings or errors will be determined during this
initial pass.

=head3 Fatal Err <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5186	5293	
==>ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $ <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2366	2466	
==>ne of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appre <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2366	2466	
==>ne of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appre <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3535	3626	
==>Fun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3535	3626	
==>Fun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3535	3626	
==>Fun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1434	1533	
==>$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1434	1533	
==>$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1434	1533	
==>$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4090	4178	
==>Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4090	4178	
==>Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4090	4178	
==>Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8328	8447	
==>tyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8328	8447	
==>tyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8328	8447	
==>tyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8877	8983	
==>: sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8877	8983	
==>: sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8877	8983	
==>: sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	315	431	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	313	429	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	315	431	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	313	429	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	315	431	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	313	429	
==>s is basically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance shou <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6967	7162	
==>main ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6967	7162	
==>main ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6912	7001	
==>der and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1352	1441	
==>der and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6912	7001	
==>der and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1352	1441	
==>der and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5702	5891	
==>the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5702	5891	
==>the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   ) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5702	5891	
==>the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1208	1331	
==>ports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1208	1331	
==>ports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1208	1331	
==>ports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	6733	6855	
==>status
    max         Number of individual tests
    failed      Number which failed
    percent     Percentage of tests w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1551	1646	
==>l6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1551	1646	
==>l6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1551	1646	
==>l6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3388	3474	
==>012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3388	3474	
==>012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1462	1572	
==>ACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1462	1572	
==>ACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURC <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1462	1572	
==>ACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5353	5452	
==>.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5353	5452	
==>.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknow <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5353	5452	
==>.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknow <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9616	9734	
==>] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9616	9734	
==>] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9616	9734	
==>] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3895	3989	
==>c(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3895	3989	
==>c(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3895	3989	
==>c(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8590	8690	
==>([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8590	8690	
==>([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8590	8690	
==>([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1240	1334	
==>g down to your project's base namespace.

Class::Rebless walks scalar, array, and hash referenc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1240	1334	
==>g down to your project's base namespace.

Class::Rebless walks scalar, array, and hash referenc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1240	1334	
==>g down to your project's base namespace.

Class::Rebless walks scalar, array, and hash referenc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1883	2024	
==>ce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1883	2024	
==>ce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1883	2024	
==>ce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24027	24165	
==>if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24027	24165	
==>if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbox <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24027	24165	
==>if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbox <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7394	7578	
==>_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7394	7578	
==>_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7394	7578	
==>_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4308	4400	
==>sign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4308	4400	
==>sign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4308	4400	
==>sign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','. <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	763	876	
==>$i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	763	876	
==>$i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.s <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6359	6465	
==>);
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToInteger(JSX::Value $v) { <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8341	8440	
==>ts_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Te <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8399	8498	
==>ts_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Te <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6151	6243	
==>pr_types.pod r8593.
multi method Array::as_map (@array:) returns Hash {
    hash(@array.pairs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5235	5367	
==>};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5235	5367	
==>};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5235	5367	
==>};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2210	2324	
==>hing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2210	2324	
==>hing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2210	2324	
==>hing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:p <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6691	6786	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5821	5916	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2475	2570	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2475	2570	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6691	6786	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5821	5916	
==>fix:<∋> (Set $one, $member) returns Bool {
    $one.includes($member);
}
multi sub *infix:<∈ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9043	9186	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12016	12159	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9043	9186	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12016	12159	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9043	9186	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12016	12159	
==>ethod;
        
        package Perl6::StubMethod;
        @Perl6::StubMethod::ISA = ('Perl6::Method');                

        package Perl6:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1088	1227	
==>set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1088	1227	
==>set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1088	1227	
==>set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3388	3476	
==>nstance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4082	4170	
==>nstance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5290	5378	
==>nstance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------- <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4336	4462	
==>o
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for co <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4336	4462	
==>o
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for co <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14156	14259	
==>if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          de <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8557	8660	
==>k}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14156	14259	
==>if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          de <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8557	8660	
==>k}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12230	12353	
==>eturn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12230	12353	
==>eturn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12230	12353	
==>eturn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3942	4053	
==>params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3942	4053	
==>params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3942	4053	
==>params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($met <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5720	5830	
==>p($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is expor <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5720	5830	
==>p($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is expor <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6352	6445	
==>head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> w <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3706	3799	
==>head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> w <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6352	6445	
==>head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> w <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3706	3799	
==>head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> w <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3038	3135	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6052	6149	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8120	8217	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3038	3135	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6052	6149	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8120	8217	
==>null returns Str`

- `case_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `split <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	389	493	
==>e, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	389	493	
==>e, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public metho <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	389	493	
==>e, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	56	144	
==>}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	56	144	
==>}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	56	144	
==>}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9196	9311	
==>e "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	6674	6778	
==>e base qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use bas <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2793	2888	
==>yright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contrib <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2950	3045	
==>yright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contrib <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2793	2888	
==>yright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contrib <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2950	3045	
==>yright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15155	15341	
==>d
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15155	15341	
==>d
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15155	15341	
==>d
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15156	15265	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15156	15265	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15156	15265	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$se <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3728	3823	
==>x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3728	3823	
==>x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	765	857	
==>x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	637	727	
==>ref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	637	727	
==>ref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	637	727	
==>ref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20466	20601	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17605	17740	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20466	20601	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17605	17740	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20466	20601	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17605	17740	
==>int though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) eq 'CODE') {
            $value = ::wrap <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12968	13096	
==>primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $siz <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12968	13096	
==>primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $siz <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12968	13096	
==>primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $siz <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1853	1981	
==>primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $siz <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	558	658	
==>::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	558	658	
==>::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	952	1067	
==>n_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	952	1067	
==>n_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Final <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	952	1067	
==>n_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Final <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	685	798	
==>ss = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	685	798	
==>ss = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	685	798	
==>ss = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4242	4348	
==>, $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  prin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4242	4348	
==>, $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  prin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4242	4348	
==>, $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  prin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2579	2682	
==>y '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_rege <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1191	1294	
==>y '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_rege <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1892	1995	
==>y '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_rege <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4284	4406	
==>LASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4284	4406	
==>LASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4284	4406	
==>LASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2431	2582	
==>$_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2678	2829	
==>$_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8682	8780	
==>$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+ <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	415	513	
==>$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8682	8780	
==>$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8682	8780	
==>$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6080	6260	
==>$_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6080	6260	
==>$_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sca <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6080	6260	
==>$_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sca <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4129	4226	
==>back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builde <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4129	4226	
==>back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5653	5750	
==>back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builde <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	47	145	
==>ntation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use D <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	47	145	
==>ntation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use D <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7471	7567	
==>e, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@a <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6601	6697	
==>e, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@a <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7471	7567	
==>e, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@a <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6601	6697	
==>e, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1872	1981	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2096	2205	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2322	2431	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1872	1981	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2096	2205	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2322	2431	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is n <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36333	36428	
==>ose attributes differ and unioning
the remaining said tuple pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38086	38181	
==>ose attributes differ and unioning the remaining said tuple
pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40882	40977	
==>ose attributes differ and unioning
the remaining said tuple pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42635	42730	
==>ose attributes differ and unioning the remaining said tuple
pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40496	40591	
==>ose attributes differ and unioning
the remaining said tuple pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42285	42380	
==>ose attributes differ and unioning the remaining said tuple
pairs, then eliminating any result t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10474	10596	
==>eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10474	10596	
==>eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec- <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10474	10596	
==>eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	924	1037	
==>vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	924	1037	
==>vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	924	1037	
==>vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL: <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2394	2646	
==>ment>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} { <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2394	2646	
==>ment>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} { <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23719	23810	
==>g L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly t <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22492	22583	
==>g L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23719	23810	
==>g L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly t <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22492	22583	
==>g L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1974	2138	
==>,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'aft <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1974	2138	
==>,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'aft <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	636	755	
==>L2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	636	755	
==>L2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	636	755	
==>L2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1001	1099	
==>ikely be pure p5/prolog, with no p6 runtime associated.
Then, 
  - aid in prototyping the regexp sy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4057	4176	
==>ontents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4057	4176	
==>ontents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4057	4176	
==>ontents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1958	2068	
==>e $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1958	2068	
==>e $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1958	2068	
==>e $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7664	7833	
==>@_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7664	7833	
==>@_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7664	7833	
==>@_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3690	3794	
==>lf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3690	3794	
==>lf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3690	3794	
==>lf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18578	18784	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15816	16022	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18578	18784	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15816	16022	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18578	18784	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15816	16022	
==>> 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just grab it from the n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	117	234	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	117	234	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	117	234	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12176	12263	
==>ator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12176	12263	
==>ator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12176	12263	
==>ator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4716	4833	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7365	7482	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4934	5048	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11383	11497	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4934	5048	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11383	11497	
==>n String";
    # print Dumper( $match );
    my $len = length( $match->{tail} );
    my $head = $len ? substr($str, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	179	280	
==>", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	179	280	
==>", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return val <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	179	280	
==>", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return val <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6643	6741	
==>kip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spec <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6643	6741	
==>kip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spec <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8840	8938	
==>kip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	258	369	
==>lass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	258	369	
==>lass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	258	369	
==>lass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17137	17221	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17137	17221	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('% <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17137	17221	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('% <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11286	11444	
==>l_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11286	11444	
==>l_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11286	11444	
==>l_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1603	1724	
==>ulti sub zip (Array *@lists) returns List {
   gather {
     while any(@lists) {
       for @lists -> @list {
         tak <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1634	1723	
==>kage " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1634	1723	
==>kage " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3197	3349	
==>ems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3197	3349	
==>ems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3197	3349	
==>ems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12803	12907	
==>early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12803	12907	
==>early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Disp <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12803	12907	
==>early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Disp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5805	5941	
==>te
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5805	5941	
==>te
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # S <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5805	5941	
==>te
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12538	12651	
==>ll')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->stor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12538	12651	
==>ll')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->stor <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12538	12651	
==>ll')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->stor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24632	24750	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26821	26939	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24632	24750	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26821	26939	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24632	24750	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26821	26939	
==>les = $param{'max'};
                # my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16000	16104	
==>.};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB or <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16000	16104	
==>.};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB or <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16000	16104	
==>.};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB or <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6793	6893	
==>= {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_'] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6793	6893	
==>= {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_'] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6793	6893	
==>= {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_'] <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2751	2896	
==>onfig->new );
        
        ### call the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	744	849	
==>to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	744	849	
==>to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8974	9078	
==>IL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @kv;
    for my $k (@{$_[0]->i <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	105	192	
==>PORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_ch <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	105	192	
==>PORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_ch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9869	9975	
==>tcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9869	9975	
==>tcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9869	9975	
==>tcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5381	5483	
==>};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5381	5483	
==>};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5381	5483	
==>};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1861	1976	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3424	3539	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1861	1976	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3424	3539	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1861	1976	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3424	3539	
==>in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	123	222	
==>kage and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	123	222	
==>kage and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	123	222	
==>kage and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8193	8275	
==>OUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8193	8275	
==>OUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8193	8275	
==>OUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9751	9873	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12724	12846	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9751	9873	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12724	12846	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9751	9873	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12724	12846	
==>THOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6202	6307	
==>.p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6202	6307	
==>.p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6202	6307	
==>.p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18482	18580	
==>bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a p <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18482	18580	
==>bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a p <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	101	199	
==>OTE:
This is a very basic first attempt at a primitive 
s-expr compiler to generate p5 code, it's r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	877	991	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	965	1079	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	877	991	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	965	1079	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	877	991	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	965	1079	
==>pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options as belonging to runjs
      push @runj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5510	5640	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3630	3760	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5510	5640	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3630	3760	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5510	5640	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3630	3760	
==>n ARRAY ref"
            unless ref($superclasses) eq 'ARRAY';
        foreach my $super (@{$superclasses}) {
            $super->a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	387	489	
==>(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTIN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	387	489	
==>(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTIN <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	387	489	
==>(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTIN <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14543	14654	
==>ver (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1310	1421	
==>ocale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interfa <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14543	14654	
==>ver (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1310	1421	
==>ocale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interfa <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13580	13683	
==>ver (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13580	13683	
==>ver (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4315	4424	
==>lf: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::I <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4315	4424	
==>lf: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::I <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	400	496	
==>t::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucke <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	404	500	
==>t::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucke <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	400	496	
==>t::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucke <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	404	500	
==>t::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	323	438	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	321	436	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	323	438	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	321	436	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	323	438	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	321	436	
==>ically the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2121	2215	
==>lkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2121	2215	
==>lkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2121	2215	
==>lkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it u <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13598	13722	
==>= index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = substr($string <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3731	3847	
==>= index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3731	3847	
==>= index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3731	3847	
==>= index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6545	6641	
==>>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You c <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6545	6641	
==>>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6157	6276	
==>->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6157	6276	
==>->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6157	6276	
==>->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Ob <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3821	3916	
==>_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the option <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3821	3916	
==>_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the option <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3901	3996	
==>_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the option <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	286	392	
==>op();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	286	392	
==>op();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	286	392	
==>op();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6686	6781	
==>$self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6686	6781	
==>$self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6686	6781	
==>$self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_m <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13665	13823	
==>rl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9849	10007	
==>rl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10685	10843	
==>rl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1318	1433	
==>y $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1318	1433	
==>y $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1318	1433	
==>y $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shif <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7573	7688	
==>ush @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7766	7881	
==>ush @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::captur <==
6	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	785	881	
==>) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	843	939	
==>) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected) <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	785	881	
==>) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected) <==
6	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	843	939	
==>) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2873	3023	
==>b greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3158	3301	
==>b greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9576	9719	
==>b greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3158	3301	
==>b greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9576	9719	
==>b greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2241	2383	
==>];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7718	7857	
==>@$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1452	1591	
==>le 
        sub multi method submethod
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7730	7869	
==>@$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6923	7034	
==>an we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6923	7034	
==>an we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6923	7034	
==>an we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL:: <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13931	14048	
==>econds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PO <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13931	14048	
==>econds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PO <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13001	13110	
==>econds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PO <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13001	13110	
==>econds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PO <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2286	2379	
==>ase> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2375	2468	
==>ase> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17991	18107	
==>h( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17991	18107	
==>h( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17991	18107	
==>h( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::V <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35379	35475	
==>it will only accept inputs that would result in
a cross-product when joined.  This method has ali <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39929	40025	
==>it will only accept inputs that would result in
a cross-product when joined.  This method has ali <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39489	39585	
==>it will only accept inputs that would result in
a cross-product when joined.  This method has ali <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20463	20676	
==>om_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORIN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20463	20676	
==>om_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORIN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20463	20676	
==>om_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORIN <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5804	5907	
==>ip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5804	5907	
==>ip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5804	5907	
==>ip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21556	21691	
==>rsal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21556	21691	
==>rsal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21556	21691	
==>rsal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1104	1213	
==>_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1104	1213	
==>_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1104	1213	
==>_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } e <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10229	10328	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12870	12969	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13706	13805	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16347	16446	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12987	13086	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15709	15808	
==>sources have identical headings; result is src intersection.
        return $?SELF!_intersection( $o <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3638	3755	
==>flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3638	3755	
==>flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	8816	8917	
==>0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_pl <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8874	8975	
==>0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_pl <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	214	303	
==>0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_pl <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	272	361	
==>0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_pl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16927	17075	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21642	21790	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16927	17075	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21642	21790	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16927	17075	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21642	21790	
==>->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classes = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10078	10213	
==>s_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10078	10213	
==>s_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10078	10213	
==>s_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38641	38762	
==>ist' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38641	38762	
==>ist' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_li <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38641	38762	
==>ist' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_li <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8589	8723	
==>{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8589	8723	
==>{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8589	8723	
==>{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17273	17367	
==>s'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17273	17367	
==>s'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17273	17367	
==>s'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	196	320	
==>as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	196	320	
==>as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	196	320	
==>as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17134	17247	
==>ther than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20611	20724	
==>ther than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20189	20302	
==>ther than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11900	12043	
==>ap, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11900	12043	
==>ap, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11900	12043	
==>ap, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	43	152	
==>:VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	43	152	
==>:VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	43	152	
==>:VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packag <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	885	993	
==>ef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	885	993	
==>ef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	885	993	
==>ef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3363	3469	
==>utes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6840	6946	
==>utes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5797	5903	
==>utes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7606	7830	
==>}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7606	7830	
==>}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7606	7830	
==>}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9959	10064	
==>NT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9959	10064	
==>NT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9959	10064	
==>NT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use P <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4771	4902	
==>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13196	13327	
==>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15807	15938	
==>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17295	17426	
==>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21978	22109	
==>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{ <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3403	3508	
==>multi Array::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from PIL2J <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18352	18554	
==>ext METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18352	18554	
==>ext METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18352	18554	
==>ext METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	79	213	
==>N = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	79	213	
==>N = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	79	213	
==>N = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7207	7317	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7207	7317	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7207	7317	
==>e clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8202	8319	
==>y my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8202	8319	
==>y my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8202	8319	
==>y my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4436	4546	
==>am->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package D <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4436	4546	
==>am->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package D <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5026	5136	
==>am->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package D <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	514	613	
==>rict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compile <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1237	1336	
==>rict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compile <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25158	25244	
==>gbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.open <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23922	24008	
==>gbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.open <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25158	25244	
==>gbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.open <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23922	24008	
==>gbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.open <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6972	7091	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9942	10061	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6972	7091	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9942	10061	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6972	7091	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9942	10061	
==>ethod || 'undef') . ")"; 
        # then the private method wrapper is wrapped
        # around the basic method body. T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	284	390	
==>pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	284	390	
==>pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	284	390	
==>pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3484	3579	
==>el) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3484	3579	
==>el) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3484	3579	
==>el) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6:: <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10416	10540	
==>}
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.cl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10416	10540	
==>}
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.cl <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1947	2058	
==>cription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1947	2058	
==>cription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2027	2138	
==>cription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3802	3900	
==>ing precompiled Perl 6 files.

If you see the error below, it may happen that your perl was compile <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5319	5446	
==>e_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_ <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5319	5446	
==>e_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	17101	17212	
==>ave fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SE <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20578	20689	
==>ave fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SE <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20156	20267	
==>ave fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SE <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3329	3424	
==>al.
  --grub-uri=$grub_uri
    mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5259	5409	
==>$value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5259	5409	
==>$value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5259	5409	
==>$value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1576	1674	
==>a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1576	1674	
==>a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1576	1674	
==>a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5793	5895	
==>.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5793	5895	
==>.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1863	1957	
==>s).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.72 <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1826	1920	
==>s).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.72 <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1863	1957	
==>s).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.72 <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1826	1920	
==>s).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.72 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9360	9535	
==>ijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12837	13012	
==>ijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12091	12266	
==>ijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1421	1515	
==>fg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1421	1515	
==>fg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1421	1515	
==>fg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11122	11232	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12593	12703	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14599	14709	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16070	16180	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13907	14017	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15432	15542	
==>ource is identity-one tuple; result is second source.
        return $other;
    }
    if ($other!heading.size( <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4295	4391	
==>my $Result4 = $Result2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutV <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1013	1163	
==>s;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->n <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11644	11762	
==>ore' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2127	2243	
==>ore' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8899	9015	
==>ore' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2127	2243	
==>ore' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8899	9015	
==>ore' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2581	2686	
==>equired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2581	2686	
==>equired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2581	2686	
==>equired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	877	975	
==>package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	877	975	
==>package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	877	975	
==>package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1324	1430	
==>d think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1324	1430	
==>d think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1324	1430	
==>d think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5254	5341	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5254	5341	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5254	5341	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8135	8304	
==>sa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8135	8304	
==>sa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8135	8304	
==>sa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	42	161	
==>ct;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	42	161	
==>ct;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	42	161	
==>ct;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31551	31644	
==>ivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36101	36194	
==>ivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35328	35421	
==>ivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9586	9678	
==>f $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9586	9678	
==>f $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9586	9678	
==>f $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	85	206	
==>Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	85	206	
==>Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	85	206	
==>Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3259	3368	
==>ponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3259	3368	
==>ponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone Ja <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3259	3368	
==>ponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone Ja <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8495	8619	
==>S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", le <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1801	1924	
==>"<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::const <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1812	1935	
==>"<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::const <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	107	225	
==>onstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	107	225	
==>onstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	107	225	
==>onstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	546	674	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	512	640	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	562	690	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	518	646	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	573	701	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	538	666	
==>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	801	922	
==>supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	801	922	
==>supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	801	922	
==>supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12543	12644	
==>ied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12543	12644	
==>ied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12543	12644	
==>ied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4715	4842	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7651	7778	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4715	4842	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7651	7778	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4715	4842	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7651	7778	
==>'Dispatchable')
            || confess "You must associate the method with a class";          
        # now wrap the method onc <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2384	2505	
==>e;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_ST <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	49	170	
==>se Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * ope <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2384	2505	
==>e;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_ST <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	49	170	
==>se Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * ope <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1391	1486	
==>ify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($n <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1391	1486	
==>ify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4388	4493	
==>rname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4388	4493	
==>rname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4388	4493	
==>rname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1241	1336	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1241	1336	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1241	1336	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4928	5043	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7577	7692	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5140	5249	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11589	11698	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5140	5249	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11589	11698	
==>atch;
}

# not a 'rule node'
# gets a variable from the user's pad
# this is used by the <$var> rule
sub get_v <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12591	12709	
==>wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2957	3073	
==>wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2957	3073	
==>wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12033	12142	
==>wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2437	2544	
==>wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2437	2544	
==>wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9592	9697	
==>$ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9592	9697	
==>$ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9592	9697	
==>$ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19874	19969	
==>e changed afterwards.

If you want something similar but that is more mutable, you can accomplis <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24426	24521	
==>e changed afterwards.

If you want something similar but that is more mutable, you can accomplis <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22978	23073	
==>e changed afterwards.

If you want something similar but that is more mutable, you can accomplis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2330	2453	
==>n $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2330	2453	
==>n $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2330	2453	
==>n $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11969	12073	
==>= "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11969	12073	
==>= "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11969	12073	
==>= "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	158	280	
==>xt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	158	280	
==>xt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	158	280	
==>xt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13493	13591	
==>ie "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccept <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13493	13591	
==>ie "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccept <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13493	13591	
==>ie "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccept <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1724	1848	
==>eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1724	1848	
==>eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1724	1848	
==>eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = p <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9921	10042	
==>get, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8548	8637	
==>nts, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2373	2462	
==>nts, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5332	5452	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8302	8422	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5332	5452	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8302	8422	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5332	5452	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8302	8422	
==>($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems that sometimes when a sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1202	1305	
==>$self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1202	1305	
==>$self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1202	1305	
==>$self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4508	4602	
==>stance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation? <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4508	4602	
==>stance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation? <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6032	6126	
==>stance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	141	246	
==>Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Dat <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	141	246	
==>Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Dat <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	141	246	
==>Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Dat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3617	3715	
==>s/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3617	3715	
==>s/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3617	3715	
==>s/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7890	8027	
==>on_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table ex <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7890	8027	
==>on_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table ex <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18093	18215	
==>faults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, default <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17131	17253	
==>faults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, default <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18093	18215	
==>faults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, default <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17131	17253	
==>faults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, default <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2920	3065	
==>ains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            retu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2920	3065	
==>ains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            retu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2918	3015	
==>ng recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2918	3015	
==>ng recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2918	3015	
==>ng recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}- <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19374	19462	
==>s(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11212	11321	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2328	2437	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7422	7531	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11212	11321	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2328	2437	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7422	7531	
==>tr $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, ' <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6553	6653	
==>s a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete AP <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6553	6653	
==>s a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete AP <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3250	3349	
==>s a single span.

It is intended mostly for "internal" use by the Span class. For a more complete AP <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3250	3349	
==>s a single span.

It is intended mostly for "internal" use by the Span class. For a more complete AP <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	13697	13794	
==>ds to
be sorted out before you can continue.

It is also possible to use the `force_todo()` functi <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13755	13852	
==>ds to
be sorted out before you can continue.

It is also possible to use the `force_todo()` functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	234	339	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	175	280	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	234	339	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	175	280	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	234	339	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	175	280	
==>was able to endow man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	284	382	
==>..
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	284	382	
==>..
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	284	382	
==>..
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wor <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36396	36491	
==>rs, then eliminating any result tuples that
duplicate others.  The sequence in which any two sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40945	41040	
==>rs, then eliminating any result tuples that
duplicate others.  The sequence in which any two sou <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40559	40654	
==>rs, then eliminating any result tuples that
duplicate others.  The sequence in which any two sou <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9572	9716	
==>name} ) .
            " { my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{blo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3784	3894	
==>less { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3784	3894	
==>less { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3784	3894	
==>less { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$se <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	116	217	
==>st::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Build <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	116	217	
==>st::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Build <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4561	4679	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7497	7615	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4561	4679	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7497	7615	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4561	4679	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7497	7615	
==>('Perl6::Method'))
            || confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_wit <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	173	286	
==>return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # prin <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	137	249	
==>return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # prin <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	225	337	
==>return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # prin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1108	1208	
==>routines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1108	1208	
==>routines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1108	1208	
==>routines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6739	6853	
==>arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6739	6853	
==>arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6739	6853	
==>arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3615	3725	
==>fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3615	3725	
==>fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3615	3725	
==>fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11650	11747	
==>ts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11650	11747	
==>ts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12878	12972	
==>$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.un <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9654	9748	
==>$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.un <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12878	12972	
==>$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.un <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9654	9748	
==>$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.un <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	528	635	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	850	957	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1229	1336	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	528	635	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	850	957	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1229	1336	
==>ame> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # dupli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1129	1227	
==>belongs to a
package that is too close to the main namespace for your tastes, and
you want to reble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1129	1227	
==>belongs to a
package that is too close to the main namespace for your tastes, and
you want to reble <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1129	1227	
==>belongs to a
package that is too close to the main namespace for your tastes, and
you want to reble <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5328	5422	
==>ended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5328	5422	
==>ended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5328	5422	
==>ended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1203	1313	
==>put();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

s <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1203	1313	
==>put();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1283	1393	
==>put();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1750	1847	
==>h != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1750	1847	
==>h != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1750	1847	
==>h != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6552	6673	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9001	9122	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6552	6673	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9001	9122	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6552	6673	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9001	9122	
==>tart/end is not defined"
                unless defined $end && defined $start;
            die "Not implemented: instanti <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1571	1721	
==>pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1571	1721	
==>pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1571	1721	
==>pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9214	9325	
==>p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9214	9325	
==>p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9214	9325	
==>p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12450	12553	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10001	10104	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12450	12553	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10001	10104	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12450	12553	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10001	10104	
==>ss) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($self) == ::opaque_in <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	549	650	
==>&C" 
   this file is currently simply a source code generator.
   Which also addresses the problem tha <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	549	650	
==>&C" 
   this file is currently simply a source code generator.
   Which also addresses the problem tha <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11145	11241	
==>des(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias f <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8549	8645	
==>des(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias f <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11145	11241	
==>des(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias f <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8549	8645	
==>des(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16427	16571	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21144	21288	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16427	16571	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21144	21288	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16427	16571	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21144	21288	
==>ft @_, $wrapper;
            goto &$call;
        };
    }    
}

# NOTE:
# this *might* work correctly, it should
# collect all the classes, the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2254	2371	
==>= 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&forma <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2254	2371	
==>= 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&forma <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2601	2718	
==>= 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&forma <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37053	37148	
==>n any situation where a pair of source
relations have zero attributes in common, their joining d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41602	41697	
==>n any situation where a pair of source
relations have zero attributes in common, their joining d <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41225	41320	
==>n any situation where a pair of source
relations have zero attributes in common, their joining d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1371	1475	
==>umify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1371	1475	
==>umify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1371	1475	
==>umify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	379	479	
==>ue is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	379	479	
==>ue is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	379	479	
==>ue is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6646	6784	
==>1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6646	6784	
==>1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6646	6784	
==>1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3425	3533	
==>quired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3425	3533	
==>quired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3425	3533	
==>quired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  u <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9079	9201	
==>package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @ <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10556	10678	
==>package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @ <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1055	1166	
==>re> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
} <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	797	908	
==>re> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
} <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1055	1166	
==>re> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
} <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	797	908	
==>re> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4407	4528	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7056	7177	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4634	4752	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11083	11201	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4634	4752	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11083	11201	
==>2{capture});
        #warn 'post-return: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12470	12580	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12470	12580	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12470	12580	
==>}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s} <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	779	881	
==>matchObj->target();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me->target($target <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18274	18373	
==>r time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
be <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18274	18373	
==>r time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4971	5084	
==>is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4971	5084	
==>is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4971	5084	
==>is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5355	5460	
==>sm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5355	5460	
==>sm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5355	5460	
==>sm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3678	3794	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6614	6730	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3678	3794	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6614	6730	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3678	3794	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6614	6730	
==>inding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @_;
        (defined $method && blessed($met <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3164	3262	
==>ey attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
funct <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3057	3155	
==>i sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@ar <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3164	3262	
==>ey attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
funct <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3057	3155	
==>i sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4813	4917	
==>_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4813	4917	
==>_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4813	4917	
==>_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6304	6407	
==>que_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6304	6407	
==>que_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaqu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6304	6407	
==>que_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaqu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2502	2603	
==>is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::conca <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2419	2518	
==>is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::conca <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12889	12982	
==>. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2) <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9665	9758	
==>. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12889	12982	
==>. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2) <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9665	9758	
==>. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	296	402	
==>ication
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	296	402	
==>ication
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	296	402	
==>ication
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14588	14692	
==>}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_ap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14588	14692	
==>}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_ap <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14588	14692	
==>}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_ap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9469	9580	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7016	7127	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9469	9580	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7016	7127	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9469	9580	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7016	7127	
==>ispatcher = $self->_make_descendant_dispatcher();
    }    
    elsif ($order eq ':ascendant') {
        $dispat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5684	5809	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8654	8779	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5684	5809	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8654	8779	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5684	5809	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8654	8779	
==>ady blessed method 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_me <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12262	12365	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6829	6932	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12262	12365	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6829	6932	
==>TH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	24295	24395	
==>may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28847	28947	
==>may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10320	10430	
==>to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10320	10430	
==>to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindin <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10320	10430	
==>to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	336	439	
==>mt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	336	439	
==>mt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	336	439	
==>mt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4623	4723	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7559	7659	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4623	4723	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7559	7659	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4623	4723	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7559	7659	
==>ethod || 'undef') . ")";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatch <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24795	24895	
==>o invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22409	22509	
==>o invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9695	9795	
==>o invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24795	24895	
==>o invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22409	22509	
==>o invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9695	9795	
==>o invalid input.  If an invoked routine
simply returns, you can assume that it has succeeded, even if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	774	892	
==>ttrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	774	892	
==>ttrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	774	892	
==>ttrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2959	3075	
==>ue;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2959	3075	
==>ue;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobo <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2959	3075	
==>ue;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2380	2623	
==>s')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2380	2623	
==>s')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $typ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2380	2623	
==>s')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1565	1672	
==>ned ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1565	1672	
==>ned ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.l <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1565	1672	
==>ned ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33634	33769	
==>ift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33634	33769	
==>ift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UN <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33634	33769	
==>ift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	848	951	
==>ouldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and autom <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	848	951	
==>ouldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and autom <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	848	951	
==>ouldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and autom <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	10053	10160	
==>2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set con <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7993	8100	
==>2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set con <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10053	10160	
==>2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set con <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7993	8100	
==>2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6969	7062	
==>ost_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_numbe <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6969	7062	
==>ost_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_numbe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2297	2416	
==>should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2297	2416	
==>should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2297	2416	
==>should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fin <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2720	2824	
==>t {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6197	6301	
==>t {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5127	5231	
==>t {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3104	3239	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5905	6040	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3104	3239	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5905	6040	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3104	3239	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5905	6040	
==>s of the attributes

        package Perl6::Attribute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7173	7292	
==>package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = Loa <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	474	593	
==>package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = Loa <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1372	1469	
==>urn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1372	1469	
==>urn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, s <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1421	1517	
==>ane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in partic <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1421	1517	
==>ane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in partic <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3895	4004	
==>pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3895	4004	
==>pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3895	4004	
==>pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1461	1559	
==>ned with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1461	1559	
==>ned with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' par <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1461	1559	
==>ned with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' par <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21902	22113	
==>>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21902	22113	
==>>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21902	22113	
==>>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2116	2275	
==>to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2116	2275	
==>to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2116	2275	
==>to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	45	170	
==>se Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	45	170	
==>se Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	45	170	
==>se Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
#use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	45	168	
==>se Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	45	168	
==>se Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	45	168	
==>se Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed';
use Data::Dumper ();

our $DISPATC <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2109	2259	
==>}       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2109	2259	
==>}       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2109	2259	
==>}       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32607	32701	
==>tioned binary union()
operator, and the order of its arguments is not significant to the result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37157	37251	
==>tioned binary union()
operator, and the order of its arguments is not significant to the result <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36465	36559	
==>tioned binary union()
operator, and the order of its arguments is not significant to the result <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9944	10059	
==>ered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9944	10059	
==>ered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9944	10059	
==>ered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packa <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3902	4011	
==>lues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7379	7488	
==>lues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6345	6454	
==>lues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.v <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9426	9533	
==>h_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9426	9533	
==>h_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20864	20965	
==>t
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the n <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19781	19882	
==>t
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20864	20965	
==>t
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the n <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19781	19882	
==>t
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5774	5881	
==>$thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      poss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5774	5881	
==>$thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      poss <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5774	5881	
==>$thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      poss <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6747	6833	
==>paque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6747	6833	
==>paque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6747	6833	
==>paque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12942	13067	
==>:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implement <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12942	13067	
==>:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implement <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12942	13067	
==>:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implement <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	775	890	
==>ault = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	775	890	
==>ault = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	775	890	
==>ault = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->ne <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13013	13135	
==>umeric => sub { "". ${$_[0]} },
      array => sub { "". @{$_[0]} },
      hash  => sub { "". %{$_[0]} },
      code  => su <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7162	7271	
==>l runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	874	982	
==>ion - pass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XX <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1239	1344	
==>ion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XX <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	838	943	
==>ion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XX <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1239	1344	
==>ion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19312	19418	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4792	4898	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19312	19418	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4792	4898	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19312	19418	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4792	4898	
==>dd_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11298	11445	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8851	8998	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11298	11445	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8851	8998	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11298	11445	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8851	8998	
==>t of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                if (not defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	340	436	
==>. this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	660	756	
==>ool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	660	756	
==>ool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	660	756	
==>ool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	340	436	
==>. this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	340	436	
==>. this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7908	8057	
==>);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $lis <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4268	4417	
==>);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $lis <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5117	5266	
==>);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $lis <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4980	5081	
==>f->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16016	16117	
==>f->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17504	17605	
==>f->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22187	22288	
==>f->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2249	2342	
==>C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see abo <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2249	2342	
==>C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see abo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17405	17584	
==>OAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17405	17584	
==>OAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17405	17584	
==>OAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12377	12552	
==>c->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12377	12552	
==>c->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12377	12552	
==>c->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4224	4348	
==>r',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'P <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4224	4348	
==>r',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'P <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1074	1198	
==>r',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4540	4639	
==>rue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::Hi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4540	4639	
==>rue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::Hi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4540	4639	
==>rue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::Hi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1885	2017	
==>$h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1885	2017	
==>$h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1885	2017	
==>$h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4986	5093	
==>>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4986	5093	
==>>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self- <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4986	5093	
==>>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self- <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20305	20405	
==>Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation i <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24857	24957	
==>Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation i <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2790	2889	
==>method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2790	2889	
==>method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl: <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10732	10827	
==>sing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Roset <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10732	10827	
==>sing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Roset <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	741	902	
==>ch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3812	3973	
==>ch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	741	902	
==>ch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3812	3973	
==>ch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $mat <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7501	7612	
==>Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inc <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7501	7612	
==>Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inc <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	15350	15466	
==>eader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2516	2625	
==>f: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @sp <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5719	5828	
==>f: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2516	2625	
==>f: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5719	5828	
==>f: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @sp <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3717	3814	
==>e.

=item Memory

One sees both segfaults and memory exhaustion when running against
some of the p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6121	6303	
==>')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6121	6303	
==>')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6121	6303	
==>')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument t <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13060	13173	
==>es have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16537	16650	
==>es have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both s <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15899	16012	
==>es have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	87	194	
==>on in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compil <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	85	185	
==>on in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compil <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	79	179	
==>on in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	85	185	
==>on in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compil <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	79	179	
==>on in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compil <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30736	30833	
==>enthesis
itself.  The handler throws an error if it can't match the ')', because
if the 'c)' handl <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24551	24660	
==>r($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !defined $x;
    return $x->defined if p6_is_perl6_o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	299	405	
==>X make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	299	405	
==>X make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subr <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1680	1777	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=bac <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	573	670	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=bac <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1286	1383	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=bac <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3621	3746	
==>, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3872	3993	
==>, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3872	3993	
==>, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1548	1639	
==>nce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1548	1639	
==>nce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1548	1639	
==>nce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4228	4334	
==>not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4228	4334	
==>not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4228	4334	
==>not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11876	11965	
==>_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Intern <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11876	11965	
==>_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Intern <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11876	11965	
==>_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Intern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3869	4045	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6396	6572	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3869	4045	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6396	6572	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3869	4045	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6396	6572	
==>->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        if <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	178	304	
==>join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	178	304	
==>join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15911	16030	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20628	20747	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15911	16030	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20628	20747	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15911	16030	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20628	20747	
==>dle scoping
            multi => \%Class::Multimethods::Pure::MULTI,
            multiparam => \%Class::Multimethods::Pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9568	9776	
==>lear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9568	9776	
==>lear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9568	9776	
==>lear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18379	18586	
==>e ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18379	18586	
==>e ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18379	18586	
==>e ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of t <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9292	9412	
==>her encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1414	1534	
==>:opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed( <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9292	9412	
==>her encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1414	1534	
==>:opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1414	1534	
==>:opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed( <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3694	3790	
==>type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val . " to $typ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1832	1942	
==>lse { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1832	1942	
==>lse { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1832	1942	
==>lse { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4818	4919	
==>" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4818	4919	
==>" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one it <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4818	4919	
==>" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one it <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6953	7056	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6083	6186	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2737	2840	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2737	2840	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6953	7056	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6083	6186	
==>infix:<∊> ($member, Set $set) returns Bool {
    $set.includes($member);
}
multi sub *infix:<∌> (Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2279	2380	
==>dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2279	2380	
==>dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2279	2380	
==>dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	607	707	
==>), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	607	707	
==>), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	607	707	
==>), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4996	5134	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7645	7783	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5204	5335	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11653	11784	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5204	5335	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11653	11784	
==>ad
# this is used by the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2467	2568	
==>eturn'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclarati <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2467	2568	
==>eturn'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclarati <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1668	1764	
==>returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1668	1764	
==>returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1530	1625	
==>xt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1530	1625	
==>xt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3204	3297	
==>sInP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use base qw/Class::Access <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3261	3343	
==>complement_previous, $self.complement_next, $set.complement_previous, $set.compleme <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3261	3343	
==>complement_previous, $self.complement_next, $set.complement_previous, $set.compleme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9109	9232	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9109	9232	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9109	9232	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16961	17049	
==>te('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16961	17049	
==>te('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute(' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16961	17049	
==>te('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11364	11485	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2876	2997	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11364	11485	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2876	2997	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11364	11485	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2876	2997	
==>PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2JS.Box([]).STORE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16453	16557	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16453	16557	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16453	16557	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_met <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2139	2239	
==>s rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ari <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2139	2239	
==>s rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ari <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2139	2239	
==>s rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ari <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8674	8831	
==>return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8674	8831	
==>return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8674	8831	
==>return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	987	1100	
==>tance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1192	1305	
==>tance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1253	1366	
==>tance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5896	6021	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4016	4141	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5896	6021	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4016	4141	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5896	6021	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4016	4141	
==>ses') = $superclasses; 
        # clear the MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6762	6861	
==>The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6762	6861	
==>The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6762	6861	
==>The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2972	3068	
==>6. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2972	3068	
==>6. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3319	3415	
==>6. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2346	2468	
==>nd see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2346	2468	
==>nd see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_clas <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2346	2468	
==>nd see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6591	6699	
==>cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6591	6699	
==>cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6591	6699	
==>cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1303	1401	
==>ymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard agai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1303	1401	
==>ymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard agai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1303	1401	
==>ymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard agai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1935	2048	
==>terfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1935	2048	
==>terfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1935	2048	
==>terfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            :: <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36422	36515	
==>that it will search.

=item C<translate_message( $message! )>

This method takes a (machine-re <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36422	36515	
==>that it will search.

=item C<translate_message( $message! )>

This method takes a (machine-re <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6677	6767	
==>lar::Util::blessed($x) and Scalar::Util::blessed($y)) {
			die "baaah! expected type cannot <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13755	13930	
==>. "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            r <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10958	11091	
==>elation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.si <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12429	12562	
==>elation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14435	14568	
==>elation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.si <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15906	16039	
==>elation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.si <==
6	/Users/nnunley/pugs/util/src_to_blib.pl	204	303	
==>l6 extensions outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(m <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3437	3554	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11995	12112	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6562	6679	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3437	3554	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11995	12112	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6562	6679	
==>ined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1333	1435	
==>...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1333	1435	
==>...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Cont <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1333	1435	
==>...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Cont <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1078	1168	
==>defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1078	1168	
==>defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1078	1168	
==>defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	1689	1786	
==>g->{bin}, "pugs$config->{exe_ext}");

    ($config->{file_sep}) =
      ($Config{sitelib} =~ /([\/ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23903	23999	
==>of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28455	28551	
==>of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body a <==
6	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2074	2169	
==>a function in C<Some::Module> called C<note> without providing any tags, it 
would look for a ta <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2425	2520	
==>oes not facilitate recovering all the roots of a
function (not that Newton's method is ever real <==
6	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2074	2169	
==>a function in C<Some::Module> called C<note> without providing any tags, it 
would look for a ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10597	10713	
==>pped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10597	10713	
==>pped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10597	10713	
==>pped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14223	14317	
==>_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14223	14317	
==>_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14223	14317	
==>_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	992	1111	
==>=> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	992	1111	
==>=> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usag <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	992	1111	
==>=> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usag <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3927	4023	
==>d parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::T <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3927	4023	
==>d parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::T <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6124	6220	
==>d parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15280	15409	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20013	20142	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15280	15409	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20013	20142	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15280	15409	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20013	20142	
==>this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the time
            re <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	4413	4536	
==>ttributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        b <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7890	8013	
==>ttributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        b <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	469	584	
==>s are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	469	584	
==>s are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	7292	7396	
==>$?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALL <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7350	7454	
==>$?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2929	3040	
==>s};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2929	3040	
==>s};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2929	3040	
==>s};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12385	12476	
==>rnals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12385	12476	
==>rnals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12385	12476	
==>rnals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13252	13383	
==>one { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13252	13383	
==>one { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13252	13383	
==>one { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1520	1628	
==>=~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1520	1628	
==>=~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1520	1628	
==>=~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6007	6140	
==>" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6007	6140	
==>" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6007	6140	
==>" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3701	3814	
==>s';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3701	3814	
==>s';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3701	3814	
==>s';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1429	1565	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1429	1565	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1429	1565	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    s <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27050	27166	
==>h;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $se <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1851	1965	
==>re}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $se <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1991	2105	
==>re}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8174	8299	
==>e type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8174	8299	
==>e type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.B <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8174	8299	
==>e type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1301	1408	
==>rations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1301	1408	
==>rations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1301	1408	
==>rations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for u <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2748	2873	
==>< keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2748	2873	
==>< keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2748	2873	
==>< keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = ne <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3557	3661	
==>$cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3557	3661	
==>$cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3557	3661	
==>$cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4027	4132	
==>n() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4027	4132	
==>n() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnti <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4027	4132	
==>n() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnti <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4369	4469	
==>v');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4369	4469	
==>v');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4369	4469	
==>v');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6572	6712	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9542	9682	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6572	6712	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9542	9682	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6572	6712	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9542	9682	
==>thod body (" . ($method || 'undef') . ")";          
        return bless $method => 'Perl6::ClassMethod';
    } 
    
    # this is a privat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5989	6090	
==>int encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5989	6090	
==>int encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5989	6090	
==>int encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	24	120	
==>ict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	24	120	
==>ict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	24	120	
==>ict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::P <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3290	3385	
==>t $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $memb <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3290	3385	
==>t $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $memb <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12086	12178	
==>ems of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9207	9299	
==>ems of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12086	12178	
==>ems of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9207	9299	
==>ems of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2 <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	27020	27113	
==>the original's attributes to what C<project> would
return given the same C<$attrs>.  This meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31572	31665	
==>the original's attributes to what C<project> would
return given the same C<$attrs>.  This meth <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30628	30721	
==>the original's attributes to what C<project> would
return given the same C<$attrs>.  This meth <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4137	4287	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6786	6936	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4371	4517	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10820	10966	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4371	4517	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10820	10966	
==>match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-return: ', Dumper( $match );
        my %match2 = %$match;
        $match2{capture} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36286	36390	
==>ommon,
eliminating pairs where the values of those attributes differ and unioning
the remaining said tupl <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38039	38143	
==>ommon, eliminating pairs where the
values of those attributes differ and unioning the remaining said tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40835	40939	
==>ommon,
eliminating pairs where the values of those attributes differ and unioning
the remaining said tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42588	42692	
==>ommon, eliminating pairs where the
values of those attributes differ and unioning the remaining said tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40449	40553	
==>ommon,
eliminating pairs where the values of those attributes differ and unioning
the remaining said tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42238	42342	
==>ommon, eliminating pairs where the
values of those attributes differ and unioning the remaining said tupl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2878	2980	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10801	10903	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6003	6105	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2878	2980	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10801	10903	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6003	6105	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5704	5812	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3824	3932	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5704	5812	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3824	3932	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5704	5812	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3824	3932	
==>ld check that none of the classes passed to us
        # are also subclasses of us, this is circular inherita <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6426	6532	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9396	9502	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6426	6532	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9396	9502	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6426	6532	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9396	9502	
==>blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28165	28263	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29176	29274	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32717	32815	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33728	33826	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31827	31925	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32874	32972	
==>ODO.  This method has not yet been implemented.>

This method is a generic relational operator that <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	235	356	
==>&infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        Re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1279	1396	
==>ess @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1279	1396	
==>ess @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1279	1396	
==>ess @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%param <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2575	2673	
==>ut an existing one with the
same root path if it exists.

Returns a true value on success, otherwis <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32431	32522	
==>pping> value set members do not match invocant
Relation::Example attribute names, or duplica <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2967	3079	
==>or sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2967	3079	
==>or sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2967	3079	
==>or sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7629	7717	
==>elf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7629	7717	
==>elf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7629	7717	
==>elf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8150	8314	
==>etch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thing <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8150	8314	
==>etch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thing <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8150	8314	
==>etch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thing <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6586	6723	
==>pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12563	12675	
==>his->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12563	12675	
==>his->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12563	12675	
==>his->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6433	6537	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9403	9507	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6433	6537	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9403	9507	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6433	6537	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9403	9507	
==>($method) && $method->isa('Perl6::ClassMethod');        
        (defined $method && ref($method) eq 'COD <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3329	3447	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11887	12005	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6454	6572	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3329	3447	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11887	12005	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6454	6572	
==>$?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !%val.defined;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11314	11437	
==>use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instanc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11314	11437	
==>use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instanc <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11314	11437	
==>use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instanc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2675	2783	
==>under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2675	2783	
==>under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2675	2783	
==>under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30142	30272	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31871	32001	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30142	30272	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31871	32001	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30142	30272	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31871	32001	
==>ray = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2574	2716	
==>:concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @sta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2489	2626	
==>:concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @sta <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7560	7692	
==>iles to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_file <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5601	5705	
==>$sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5601	5705	
==>$sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5601	5705	
==>$sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6195	6322	
==>var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } cat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6195	6322	
==>var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } cat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6195	6322	
==>var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } cat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	701	814	
==>ass();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	701	814	
==>ass();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	701	814	
==>ass();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11124	11287	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8677	8840	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11124	11287	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8677	8840	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11124	11287	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8677	8840	
==>);
    return sub {
        TOP:
            if (scalar(@stack) != -0) {
                # get the iterator on the top of the stack
                # get the curren <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4869	4994	
==>ata)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15905	16030	
==>ata)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17393	17518	
==>ata)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22076	22201	
==>ata)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4101	4201	
==>. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4285	4385	
==>. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position t <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	493	649	
==>ut
        {   ### extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and di <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1249	1364	
==>port {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($go <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1307	1422	
==>port {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($go <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21245	21348	
==>xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21245	21348	
==>xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21245	21348	
==>xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3956	4112	
==>tie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3956	4112	
==>tie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3956	4112	
==>tie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8132	8271	
==>(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      = <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8132	8271	
==>(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      = <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1224	1324	
==>ter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $str = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	137	236	
==>nterface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || d <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	137	236	
==>nterface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || d <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24239	24334	
==>lients with either an AI or other interactive program controlling their
  actions) which are alw <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23012	23107	
==>lients with either an AI or other interactive program controlling their
  actions) which are alw <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24239	24334	
==>lients with either an AI or other interactive program controlling their
  actions) which are alw <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23012	23107	
==>lients with either an AI or other interactive program controlling their
  actions) which are alw <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3426	3542	
==>$path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3426	3542	
==>$path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3426	3542	
==>$path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12497	12594	
==>Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12497	12594	
==>Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12497	12594	
==>Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33963	34071	
==>IVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33963	34071	
==>IVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33963	34071	
==>IVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2561	2662	
==>(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2561	2662	
==>(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PU <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2561	2662	
==>(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38081	38235	
==>e to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38081	38235	
==>e to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38081	38235	
==>e to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2882	3020	
==>fig{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate a list of methods
### se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14025	14148	
==>c_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14025	14148	
==>c_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2328	2521	
==>implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2328	2521	
==>implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2328	2521	
==>implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1358	1461	
==>rl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1358	1461	
==>rl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1358	1461	
==>rl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17356	17541	
==>apture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23322	23507	
==>apture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17635	17820	
==>apture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23601	23786	
==>apture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4128	4230	
==>span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4128	4230	
==>span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2153	2294	
==>method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2153	2294	
==>method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2153	2294	
==>method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5943	6041	
==>ration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5943	6041	
==>ration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarati <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5943	6041	
==>ration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarati <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	940	1042	
==>2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	940	1042	
==>2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	940	1042	
==>2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PI <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4024	4125	
==>)>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4024	4125	
==>)>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<tes <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4104	4205	
==>)>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	382	502	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	380	500	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	382	502	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	380	500	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	382	502	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	380	500	
==>s described in A12 
    
    # Every instance should have a unique ID
    my $GLOBAL_INSTANCE_COUNT = 0;

    # Input: re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	238	346	
==>eturn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	238	346	
==>eturn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	238	346	
==>eturn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13190	13287	
==>$xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13190	13287	
==>$xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13190	13287	
==>$xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15521	15656	
==>}        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15521	15656	
==>}        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15521	15656	
==>}        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	31246	31342	
==>tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35796	35892	
==>tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35014	35110	
==>tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3949	4063	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6598	6712	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4187	4298	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10636	10747	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4187	4298	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10636	10747	
==>ates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $match ) = @_;
    $match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15678	15818	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15678	15818	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15678	15818	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20399	20535	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20399	20535	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20399	20535	
==>to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $regist <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2507	2730	
==>] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

su <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2814	3023	
==>] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

su <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2814	3023	
==>] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7982	8119	
==>rr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7982	8119	
==>rr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = func <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7982	8119	
==>rr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = func <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17718	17856	
==>$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11871	12002	
==>y );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11871	12002	
==>y );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11871	12002	
==>y );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $thi <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10726	10822	
==>reference to an array
of strings for a multi-valued field. If the $value is undefined or not
give <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10726	10822	
==>reference to an array
of strings for a multi-valued field. If the $value is undefined or not
give <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	915	1031	
==>( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	915	1031	
==>( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14465	14567	
==>for at least $live_timeout seconds,
        # even though we've pinged the server (probably several tim <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14465	14567	
==>for at least $live_timeout seconds,
        # even though we've pinged the server (probably several tim <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13506	13604	
==>for at least $live_timeout seconds,
    # even though we've pinged the server (probably several tim <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13506	13604	
==>for at least $live_timeout seconds,
    # even though we've pinged the server (probably several tim <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	22	132	
==>e

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using ind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	22	132	
==>e

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using ind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	22	132	
==>e

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using ind <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2444	2537	
==>fined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2444	2537	
==>fined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2444	2537	
==>fined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4884	5027	
==>ess ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath( <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4884	5027	
==>ess ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath( <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6626	6732	
==>son) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<obj <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6626	6732	
==>son) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<obj <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6996	7098	
==>son) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<obj <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6996	7098	
==>son) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1799	1915	
==>My") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1799	1915	
==>My") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1799	1915	
==>My") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        p <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37034	37128	
==>C<intersection>.  In any situation where a pair of source
relations have zero attributes in com <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41583	41677	
==>C<intersection>.  In any situation where a pair of source
relations have zero attributes in com <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41206	41300	
==>C<intersection>.  In any situation where a pair of source
relations have zero attributes in com <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3583	3763	
==>left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3583	3763	
==>left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7766	7884	
==>after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub rul <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7504	7615	
==>after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub rul <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	2082	2179	
==>im($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2140	2237	
==>im($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	616	719	
==>IL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	616	719	
==>IL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	616	719	
==>IL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1372	1468	
==>:cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1372	1468	
==>:cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1372	1468	
==>:cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2762	2938	
==>ists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6239	6415	
==>ists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5169	5345	
==>ists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	658	817	
==>@vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    me <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	658	817	
==>@vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    me <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11900	11998	
==>fined $handler;
    $handler->($x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handlers <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5785	5925	
==>tant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're req <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5785	5925	
==>tant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're req <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5785	5925	
==>tant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're req <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	789	891	
==>approach is neater, but causes buffering problems when
          // mixed with document.write. See test <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	789	891	
==>approach is neater, but causes buffering problems when
          // mixed with document.write. See test <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	789	891	
==>approach is neater, but causes buffering problems when
          // mixed with document.write. See test <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	525	634	
==>f->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	525	634	
==>f->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	525	634	
==>f->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	10574	10672	
==>for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B< <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10574	10672	
==>for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B< <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21483	21578	
==>right).
In doing so, found that the "too many branches" error wasn't being raised
until the seco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1183	1369	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1183	1369	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1183	1369	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	969	1050	
==>.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	969	1050	
==>.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	969	1050	
==>.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNat <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12206	12303	
==>to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) t <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16786	16883	
==>to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) t <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12206	12303	
==>to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) t <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16786	16883	
==>to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) t <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5239	5330	
==>e("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5239	5330	
==>e("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13451	13584	
==>@{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13451	13584	
==>@{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13451	13584	
==>@{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	752	863	
==>tor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	752	863	
==>tor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	752	863	
==>tor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16591	16711	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13796	13916	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16591	16711	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13796	13916	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16591	16711	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13796	13916	
==>r
    my $dispatcher = $self->dispatcher(':descendant');
    while (my $next = $dispatcher->()) {   
        return $next <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4171	4269	
==>ormalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4171	4269	
==>ormalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($ <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	3560	3655	
==>ig
) where

import qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.Map St <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4312	4403	
==>item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan ob <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4312	4403	
==>item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan ob <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5836	5927	
==>item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan ob <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22014	22107	
==>one tuple respectively have a special meaning in relational algebra which
is analagous to what <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26566	26659	
==>one tuple respectively have a special meaning in relational algebra which
is analagous to what <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25262	25355	
==>one tuple respectively have a special meaning in relational algebra which
is analagous to what <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9313	9425	
==>= "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_ma <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1785	1886	
==>ue for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): ar <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1785	1886	
==>ue for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1360	1457	
==>less %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1360	1457	
==>less %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1360	1457	
==>less %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1552	1673	
==>od() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1552	1673	
==>od() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1552	1673	
==>od() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4797	4915	
==>/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4797	4915	
==>/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4797	4915	
==>/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10455	10610	
==>ice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10455	10610	
==>ice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10455	10610	
==>ice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5438	5538	
==>lpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5438	5538	
==>lpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other opt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5438	5538	
==>lpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other opt <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7852	7962	
==>$child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $ <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7852	7962	
==>$child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5289	5398	
==>r



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # conf <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15725	15832	
==>mbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sy <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2122	2229	
==>mbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sy <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5106	5209	
==>r

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # conf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9000	9129	
==>}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_sl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9000	9129	
==>}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_sl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9000	9129	
==>}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_sl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2200	2313	
==>e($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2200	2313	
==>e($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2200	2313	
==>e($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15179	15301	
==>$any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15179	15301	
==>$any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15179	15301	
==>$any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2606	2706	
==>ile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2606	2706	
==>ile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2606	2706	
==>ile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die " <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13379	13490	
==>implify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16856	16967	
==>implify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16218	16329	
==>implify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	195	303	
==>{
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	195	303	
==>{
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	195	303	
==>{
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1508	1629	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1961	2082	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2396	2517	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2833	2954	
==>return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2709	2809	
==>andler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3282	3382	
==>andler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obje <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16068	16245	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20785	20962	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16068	16245	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20785	20962	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16068	16245	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20785	20962	
==>rapper => sub { 
                my (undef, $_name) = @_;
                $wrapper = $registry->{multi}->{$_name};
            },
        };

        my $name = shift;
        Cl <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9923	10084	
==>the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6264	6425	
==>the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7113	7274	
==>the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $i <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2717	2826	
==>$field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $fiel <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2717	2826	
==>$field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $fiel <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5183	5283	
==>is 0, then $range is an absolute value
# otherwise $range is a fractional error.
# Here $range must b <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11946	12045	
==>l};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11946	12045	
==>l};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11946	12045	
==>l};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3139	3227	
==>.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acces <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3139	3227	
==>.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acces <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3486	3574	
==>.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acces <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	596	739	
==>rn map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    s <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	596	739	
==>rn map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6089	6229	
==>list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6089	6229	
==>list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6089	6229	
==>list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	346	463	
==>s $noplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $plann <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11540	11699	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3052	3211	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11540	11699	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3052	3211	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11540	11699	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3052	3211	
==>i++) {
            if(ret[i]) ret[i].STORE(arr[i]);
          }

          return this;
        }
      );
      proxy.BINDTO = function (other) {
        var a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	566	706	
==>e = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	771	911	
==>e = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	827	967	
==>e = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1573	1670	
==>reak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1573	1670	
==>reak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1573	1670	
==>reak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2622	2725	
==>, '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name - <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1234	1337	
==>, '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1935	2038	
==>, '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34598	34698	
==>hift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34598	34698	
==>hift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34598	34698	
==>hift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	579	671	
==>n)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch condit <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	748	838	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1126	1216	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1765	1855	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2200	2290	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_de <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	748	838	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_de <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2998	3122	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10921	11045	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6123	6247	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2998	3122	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10921	11045	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6123	6247	
==>g!, Str $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25103	25259	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27292	27448	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25103	25259	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27292	27448	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25103	25259	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27292	27448	
==>s ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fe <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3172	3295	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6186	6309	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8254	8377	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3172	3295	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6186	6309	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8254	8377	
==>rns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath (Str $volume, Str $directory, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4907	5018	
==>ype eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4907	5018	
==>ype eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_ <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5497	5608	
==>ype eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	434	532	
==>= @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	434	532	
==>= @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
} <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	434	532	
==>= @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5433	5549	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $< <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6701	6817	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $< <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5433	5549	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $< <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6689	6805	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $< <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3402	3503	
==>siglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3402	3503	
==>siglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3480	3628	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6416	6564	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3480	3628	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6416	6564	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3480	3628	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6416	6564	
==>ub->(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24671	24782	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26860	26971	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24671	24782	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26860	26971	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24671	24782	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26860	26971	
==>my $self = $array->unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9856	9988	
==>sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9856	9988	
==>sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9856	9988	
==>sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1581	1697	
==>ber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $lin <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1581	1697	
==>ber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $lin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1661	1777	
==>ber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $lin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2105	2299	
==>XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2105	2299	
==>XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( ' <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2105	2299	
==>XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3417	3539	
==>e_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3417	3539	
==>e_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3417	3539	
==>e_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2686	2789	
==>'new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2686	2789	
==>'new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2686	2789	
==>'new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3893	3992	
==>prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3893	3992	
==>prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" } <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3893	3992	
==>prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" } <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	5235	5364	
==>", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depen <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5293	5422	
==>", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2821	2944	
==>s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2821	2944	
==>s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2821	2944	
==>s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6424	6531	
==>rl6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return { sub_application_term => $() ,} }
RULE
*{'s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1484	1623	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3047	3186	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1484	1623	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3047	3186	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1484	1623	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3047	3186	
==>OLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $::PACKAGE = undef;
    $::ROLE <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	609	746	
==>y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	609	746	
==>y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	609	746	
==>y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	811	914	
==>JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	811	914	
==>JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	811	914	
==>JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", b <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1537	1665	
==>f $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1537	1665	
==>f $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6231	6356	
==>}
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5304	5429	
==>}
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6231	6356	
==>}
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5304	5429	
==>}
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	896	1010	
==>ply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	896	1010	
==>ply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	896	1010	
==>ply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3935	4037	
==>( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defau <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3935	4037	
==>( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defau <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3935	4037	
==>( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defau <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7211	7369	
==>d->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7211	7369	
==>d->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7211	7369	
==>d->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	259	354	
==>e ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	259	354	
==>e ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	259	354	
==>e ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	72	165	
==>ION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel: <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29046	29139	
==>generic relational operator that returns a new Relation::Example
which is the same as the invo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31894	31987	
==>generic relational operator that returns a new Relation::Example
which is the same as the invo <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32941	33034	
==>generic relational operator that returns a new Relation::Example
which is the same as the invo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	72	165	
==>ION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	72	165	
==>ION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1390	1510	
==>rcumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1390	1510	
==>rcumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1390	1510	
==>rcumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4651	4752	
==>t_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4651	4752	
==>t_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4651	4752	
==>t_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25917	26143	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28118	28344	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25917	26143	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28118	28344	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25917	26143	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28118	28344	
==>ift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6::Value::numify( $self->elems ) == ( <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	18753	18879	
==>if $totals->{skip_reason} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3106	3223	
==>,
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3299	3416	
==>,
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	18	105	
==>://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	18	105	
==>://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	18	105	
==>://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11386	11556	
==>renced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 're <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11386	11556	
==>renced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 're <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11386	11556	
==>renced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 're <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1764	1885	
==>pped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1764	1885	
==>pped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } els <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1764	1885	
==>pped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } els <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9490	9616	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12463	12589	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9490	9616	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12463	12589	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9490	9616	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12463	12589	
==>l6::Submethod::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5988	6083	
==>ning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recurs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5988	6083	
==>ning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recurs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5988	6083	
==>ning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recurs <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7042	7198	
==>'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>= <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7506	7662	
==>'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>= <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9930	10085	
==>'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>= <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1715	1858	
==>'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>= <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1917	2026	
==>p::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1928	2037	
==>p::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6443	6642	
==>nd -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6443	6642	
==>nd -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6443	6642	
==>nd -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7777	7882	
==>self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Als <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7777	7882	
==>self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Als <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7777	7882	
==>self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Als <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10268	10377	
==>ry {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10268	10377	
==>ry {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10268	10377	
==>ry {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3549	3648	
==>(not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3549	3648	
==>(not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3549	3648	
==>(not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30200	30317	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31929	32046	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30200	30317	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31929	32046	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30200	30317	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31929	32046	
==>tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{items}} = () <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14955	15057	
==>ative
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14955	15057	
==>ative
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Va <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14955	15057	
==>ative
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7917	8011	
==>->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7917	8011	
==>->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7917	8011	
==>->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1552	1655	
==>{
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1552	1655	
==>{
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5650	5751	
==>{
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4780	4881	
==>{
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5650	5751	
==>{
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4780	4881	
==>{
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3799	3936	
==>h ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3799	3936	
==>h ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8747	8848	
==>e($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return valu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8747	8848	
==>e($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return valu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9005	9104	
==>e($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return valu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9005	9104	
==>e($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return valu <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10087	10205	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12728	12846	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13564	13682	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16205	16323	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12845	12963	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15567	15685	
==>nd source is identity-one tuple; result is first source.
        return $?SELF;
    }

    if ($other!heading === $!hea <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33882	33978	
==>s what
language they prefer to communicate in, and what their backup choices are,
in order, if pr <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33882	33978	
==>s what
language they prefer to communicate in, and what their backup choices are,
in order, if pr <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	718	812	
==>$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	718	812	
==>$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1274	1368	
==>$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	27262	27353	
==>te path into 
C<HARNESS_FILELEAK_IN_DIR> may give more predictable results.

=item C<HARNESS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2968	3146	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5769	5947	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2968	3146	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5769	5947	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2968	3146	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5769	5947	
==>return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the attributes

        package Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2058	2186	
==>e eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2058	2186	
==>e eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2058	2186	
==>e eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9916	10043	
==>nt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/ter <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13667	13768	
==>isconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time( <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13667	13768	
==>isconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time( <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	1948	2056	
==>$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude b <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15531	15633	
==>ue of the span.

These methods may raise a warning if the new value would put the span 
in an invalid s <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15531	15633	
==>ue of the span.

These methods may raise a warning if the new value would put the span 
in an invalid s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	218	319	
==>- bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair str <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	218	319	
==>- bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair str <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	218	319	
==>- bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15833	15956	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13083	13206	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15833	15956	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13083	13206	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15833	15956	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13083	13206	
==>cientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%params);                    
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12843	12945	
==>_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12843	12945	
==>_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12843	12945	
==>_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2009	2106	
==>new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2009	2106	
==>new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2009	2106	
==>new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	55	162	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	416	523	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	55	162	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	416	523	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	55	162	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	416	523	
==>use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4645	4764	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7581	7700	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4645	4764	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7581	7700	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4645	4764	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7581	7700	
==>";
        (blessed($associated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12326	12429	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6893	6996	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7183	7286	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12326	12429	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6893	6996	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7183	7286	
==>SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => ' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30407	30504	
==>with each set member being an an exclusive alternative for the rest
of the set. There is a separat <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30407	30504	
==>with each set member being an an exclusive alternative for the rest
of the set. There is a separat <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1158	1254	
==>ting out its results.  This makes
analysis of the test results difficult for anything but a human <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	248	343	
==>!! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	248	343	
==>!! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
meth <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	248	343	
==>!! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8936	9089	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11909	12062	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8936	9089	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11909	12062	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8936	9089	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11909	12062	
==>packages
        # so that I can 'tag' the
        # types of the methods
        
        package Perl6::Method;
        
        package Perl6::StubMeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11962	12067	
==>THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11962	12067	
==>THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11962	12067	
==>THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14826	14925	
==>mP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14826	14925	
==>mP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14826	14925	
==>mP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2918	3029	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5448	5559	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2918	3029	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5448	5559	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2918	3029	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5448	5559	
==>= &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1251	1355	
==>run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1251	1355	
==>run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1251	1355	
==>run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3522	3622	
==>2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3522	3622	
==>2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3522	3622	
==>2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc( <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4109	4210	
==>onth and day default
to 1 if not given.

The value for day can also be the string "last", in which cas <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4109	4210	
==>onth and day default
to 1 if not given.

The value for day can also be the string "last", in which cas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2764	2849	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@va <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6216	6301	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2764	2849	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@va <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2764	2849	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24691	24804	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26880	26993	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24691	24804	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26880	26993	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24691	24804	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26880	26993	
==>nboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$self->ele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24141	24264	
==>return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24141	24264	
==>return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24141	24264	
==>return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $m <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3011	3111	
==>diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_te <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3011	3111	
==>diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_te <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3091	3191	
==>diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_te <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5118	5230	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Para <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5118	5230	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Para <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2022	2134	
==>'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Para <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2296	2412	
==>w( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2296	2412	
==>w( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2296	2412	
==>w( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5720	5822	
==>amespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5720	5822	
==>amespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, no <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5720	5822	
==>amespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, no <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21242	21374	
==>sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17663	17795	
==>sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2519	2648	
==>n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2519	2648	
==>n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2519	2648	
==>n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @r <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	11704	11826	
==>whole;
      $link->{relfile}  = $relative_file;
      if ($regex) {
        $reopts||='';
        $link->{regex} = eval "q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16075	16284	
==>rn Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16075	16284	
==>rn Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16075	16284	
==>rn Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elem <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9015	9161	
==>@{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitio <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5375	5521	
==>@{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitio <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6224	6370	
==>@{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitio <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6108	6249	
==>lute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_ <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6108	6249	
==>lute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11872	12008	
==>ate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11872	12008	
==>ate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11872	12008	
==>ate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	3021	3130	
==>);
	} || die "$@\n" . Data::Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9954	10059	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7505	7610	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9954	10059	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7505	7610	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9954	10059	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7505	7610	
==>hod('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dispatcher_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3115	3240	
==>m ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3115	3240	
==>m ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        b <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3115	3240	
==>m ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4835	4958	
==>put=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4835	4958	
==>put=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4835	4958	
==>put=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11751	11905	
==>$thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11751	11905	
==>$thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11751	11905	
==>$thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2984	3096	
==>ass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2984	3096	
==>ass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2984	3096	
==>ass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	879	1019	
==>able';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acce <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	879	1019	
==>able';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acce <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	879	1019	
==>able';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acce <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2009	2103	
==>rl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2009	2103	
==>rl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2009	2103	
==>rl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1517	1647	
==>s_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1517	1647	
==>s_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	843	937	
==>yte level, not the character level, so different 
character encodings may be enciphered in diff <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	843	937	
==>yte level, not the character level, so different 
character encodings may be enciphered in diff <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18718	18811	
==>oblems.  While simultaneously
trying to avoid triggering core behavior which we are not prepar <==
6	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3008	3101	
==>oblems.  While simultaneously
trying to avoid triggering core behavior which we are not prepar <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2447	2558	
==>arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UN <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7541	7652	
==>arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UN <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2447	2558	
==>arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UN <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7541	7652	
==>arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UN <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	973	1072	
==>of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argumen <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	973	1072	
==>of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argumen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7031	7151	
==>_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use co <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7031	7151	
==>_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10760	10861	
==>eturn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10760	10861	
==>eturn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Objec <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10760	10861	
==>eturn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Objec <==
6	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	315	406	
==>approach seems plausible, no?

Clutter::int_sizes 1,2,4... doesnt add much clarity, given th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3036	3138	
==>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3036	3138	
==>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3036	3138	
==>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11396	11516	
==>aracter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2987	3107	
==>aracter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    retu <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1657	1760	
==>used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attribu <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1657	1760	
==>used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attribu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23935	24028	
==>.

My understanding of alternate solutions like "gettext" suggests that they
use a compile-tim <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23935	24028	
==>.

My understanding of alternate solutions like "gettext" suggests that they
use a compile-tim <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25282	25380	
==>y invocant object's attributes is identical; they do not
interact with the outside environment at a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11413	11511	
==>y invocant object's attributes is identical; they do not
interact with the outside environment at a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14686	14784	
==>y invocant
object's attributes is identical; they do not interact with the outside
environment at a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25282	25380	
==>y invocant object's attributes is identical; they do not
interact with the outside environment at a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11413	11511	
==>y invocant object's attributes is identical; they do not
interact with the outside environment at a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14686	14784	
==>y invocant
object's attributes is identical; they do not interact with the outside
environment at a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3528	3662	
==>ef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3528	3662	
==>ef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3528	3662	
==>ef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1169	1266	
==>nd @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1169	1266	
==>nd @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inva <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1169	1266	
==>nd @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inva <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30542	30685	
==>$dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupported di <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1924	2019	
==>ype=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl5::X1 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7759	7848	
==>tements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::P <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1584	1673	
==>tements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::P <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	33106	33194	
==>on>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) retu <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37656	37744	
==>on>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) retu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4938	5038	
==>ODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final posi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4938	5038	
==>ODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final posi <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1264	1362	
==>shift;

	push @{ $self->{param_count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub leave_scope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4804	4900	
==>it preseves something
of the original name. So if you had an object blessed into "MyClass",
it wi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4804	4900	
==>it preseves something
of the original name. So if you had an object blessed into "MyClass",
it wi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4804	4900	
==>it preseves something
of the original name. So if you had an object blessed into "MyClass",
it wi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4906	5003	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3363	3460	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6745	6842	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4906	5003	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3363	3460	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6745	6842	
==>.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	155	256	
==>2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	155	256	
==>2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	155	256	
==>2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonk <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1457	1554	
==>defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1457	1554	
==>defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1457	1554	
==>defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13018	13134	
==>oto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backslash:
    inc pos
    $S0 = sub <==
6	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	19	118	
==>.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

sub <==
6	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	19	118	
==>.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

sub <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3646	3740	
==>description )>

Marks that the next test should pass.  C<$description> is the optional
descript <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3646	3740	
==>description )>

Marks that the next test should pass.  C<$description> is the optional
descript <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3726	3820	
==>description )>

Marks that the next test should pass.  C<$description> is the optional
descript <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6391	6508	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9361	9478	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6391	6508	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9361	9478	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6391	6508	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9361	9478	
==>d) = @_;
        return $method if blessed($method) && $method->isa('Perl6::ClassMethod');        
        (defined $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5865	5985	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8835	8955	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5865	5985	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8835	8955	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5865	5985	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8835	8955	
==>od) && $method->isa('Perl6::Method');
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20612	20725	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20612	20725	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20612	20725	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
})) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17751	17863	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17751	17863	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17751	17863	
==>ub($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9295	9433	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12268	12406	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9295	9433	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12268	12406	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9295	9433	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12268	12406	
==>rivateMethod;        
        @Perl6::PrivateMethod::ISA = ('Perl6::Method');        
        
        package Perl6::Submethod;
        @P <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17885	18010	
==>new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20765	20890	
==>new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24553	24678	
==>new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11205	11302	
==>be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BU <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11205	11302	
==>be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BU <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11205	11302	
==>be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BU <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1842	1975	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	954	1087	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1842	1975	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	954	1087	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1842	1975	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	954	1087	
==>ms) = @_;
    foreach my $key (keys %params) {
        # XXX -
        # The default BUILD method should accept
        # params which <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3778	3894	
==>e "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3778	3894	
==>e "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write t <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3778	3894	
==>e "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13047	13138	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13047	13138	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$ar <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13047	13138	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$ar <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4443	4566	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7092	7215	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4669	4789	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11118	11238	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4669	4789	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11118	11238	
==>turn: ', Dumper( $match2{capture} );
        delete $match->{return};
        delete $match->{abort};
        delete $mat <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11601	11724	
==>).";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11601	11724	
==>).";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4665	4764	
==>ere ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4665	4764	
==>ere ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_role <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4665	4764	
==>ere ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_role <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	30189	30285	
==>with spaces in the filename work.

Keeping whittling away at _run_all_tests()

Clean up how the s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	284	383	
==>ble(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	284	383	
==>ble(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	284	383	
==>ble(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4457	4545	
==>EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4457	4545	
==>EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4457	4545	
==>EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3984	4111	
==>es this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entr <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4448	4575	
==>es this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entr <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6757	6867	
==>aram, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6757	6867	
==>aram, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7298	7392	
==>begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begi <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7298	7392	
==>begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4285	4435	
==>);
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4285	4435	
==>);
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4285	4435	
==>);
            }
        }                
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6811	6947	
==>);
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6811	6947	
==>);
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6811	6947	
==>);
            }
        }  
        if ($body->{class_methods}) {
            foreach my $method_name (keys %{$body->{class_methods}}) { <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17712	17903	
==>:params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19470	19661	
==>:params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39922	40112	
==>:params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                ret <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40981	41171	
==>:params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                ret <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12166	12264	
==>th ref() since we do not yet have
object support. Once object support is created, we will add it he <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12224	12322	
==>th ref() since we do not yet have
object support. Once object support is created, we will add it he <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1450	1553	
==>re ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1450	1553	
==>re ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1450	1553	
==>re ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1083	1175	
==>cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1083	1175	
==>cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1083	1175	
==>cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13820	13960	
==>{
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mul <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13820	13960	
==>{
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mul <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13820	13960	
==>{
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	496	604	
==>erl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	496	604	
==>erl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	496	604	
==>erl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3483	3651	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6419	6587	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3483	3651	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6419	6587	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3483	3651	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6419	6587	
==>>(@_);       
        };
    }         
 
    ## Method primitives
    # since Perl 5 does not have method
    # primitives, we have to make them.
    
    # a convenien <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13353	13470	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10637	10754	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13353	13470	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10637	10754	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13353	13470	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10637	10754	
==>method') {
        return ::opaque_instance_attr($self => '%:methods');
    }
    elsif (lc($params->{for}) eq 'class' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20160	20299	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17299	17438	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20160	20299	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17299	17438	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20160	20299	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17299	17438	
==>attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the ::Package code here
        # because callin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12422	12544	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16933	17055	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12422	12544	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16933	17055	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12422	12544	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16933	17055	
==>the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk the method <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6702	6819	
==>r_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6702	6819	
==>r_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12498	12614	
==>symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #prin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12498	12614	
==>symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #prin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12498	12614	
==>symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #prin <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	716	822	
==>>to_native()} = $value;
    }
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19341	19498	
==>}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallbac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19341	19498	
==>}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallbac <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19341	19498	
==>}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallbac <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11950	12056	
==>re unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11950	12056	
==>re unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11950	12056	
==>re unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1056	1168	
==>->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1056	1168	
==>->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::inst <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1056	1168	
==>->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::inst <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3329	3432	
==>diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export { <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3329	3432	
==>diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4853	4956	
==>diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5198	5352	
==>1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5186	5340	
==>1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3321	3436	
==>nce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3321	3436	
==>nce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM- <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3321	3436	
==>nce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM- <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	421	521	
==>ant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTabl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2509	2632	
==>) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2509	2632	
==>) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2416	2515	
==>matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2416	2515	
==>matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2496	2595	
==>matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42930	43018	
==>istribution:
L<Relation-(0.1.0)|Relation>.

=head1 INCOMPATIBILITIES

None reported.

=he <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1339	1455	
==>an ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1339	1455	
==>an ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3160	3265	
==>less ( $self->{extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2488	2595	
==>,
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2488	2595	
==>,
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2835	2942	
==>,
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13659	13757	
==>{ -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13659	13757	
==>{ -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13659	13757	
==>{ -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3648	3770	
==>e_line {
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	7767	7886	
==>{
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_i <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7767	7886	
==>{
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1356	1462	
==>> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1356	1462	
==>> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc< <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1356	1462	
==>> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1564	1685	
==>ar args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1564	1685	
==>ar args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1564	1685	
==>ar args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3506	3610	
==>imple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3506	3610	
==>imple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3506	3610	
==>imple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1523	1634	
==>);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1523	1634	
==>);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1523	1634	
==>);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13739	13840	
==>y ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13739	13840	
==>y ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with labe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13739	13840	
==>y ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with labe <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	6554	6660	
==>invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mul <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10031	10137	
==>invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mul <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9123	9229	
==>invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2775	2873	
==>ntly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2775	2873	
==>ntly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2775	2873	
==>ntly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	122	251	
==>il 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	122	251	
==>il 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	122	251	
==>il 'blessed';
#use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	121	249	
==>il 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	121	249	
==>il 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	121	249	
==>il 'blessed';
use Data::Dumper ();

our $DISPATCH_TRACE = 0;

{   ## Opaque instances     
    # These functions build opaque ins <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7300	7438	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4859	4997	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7300	7438	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4859	4997	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7300	7438	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4859	4997	
==>ot @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->[0]; # get the hea <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	23	152	
==>pec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

e <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	23	152	
==>pec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2408	2507	
==>to Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2408	2507	
==>to Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1629	1722	
==>to Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3490	3583	
==>to Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3666	3809	
==>late to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4983	5126	
==>late to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3666	3809	
==>late to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4971	5114	
==>late to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5118	5217	
==>t = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5118	5217	
==>t = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13569	13717	
==>e; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13569	13717	
==>e; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13569	13717	
==>e; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	71	173	
==>Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	71	173	
==>Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	71	173	
==>Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11794	11907	
==>e from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]* <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11794	11907	
==>e from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]* <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1988	2095	
==>ol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $kee <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1988	2095	
==>ol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $kee <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23982	24075	
==>ile for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23982	24075	
==>ile for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	312	434	
==>->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	312	434	
==>->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	312	434	
==>->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19976	20065	
==>to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19976	20065	
==>to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19976	20065	
==>to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3063	3188	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6056	6181	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3337	3456	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9755	9874	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3337	3456	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9755	9874	
==>y $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    altern <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50456	50584	
==>send('add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new(
            $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	12023	12146	
==>0]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12023	12146	
==>0]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22611	22714	
==>k

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module doesn't have bugs.  I don't kn <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3410	3506	
==>ION

Config::Tiny is a utility to read and write .ini style configuration files
with as little co <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3410	3506	
==>ION

Config::Tiny is a utility to read and write .ini style configuration files
with as little co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2688	2800	
==>_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2688	2800	
==>_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2688	2800	
==>_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	248	350	
==>got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##pr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	209	311	
==>got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	209	311	
==>got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##pr <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2890	3021	
==>tart_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verba <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3144	3275	
==>tart_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verba <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2890	3021	
==>tart_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verba <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3144	3275	
==>tart_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verba <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	407	506	
==>ot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::Join <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	407	506	
==>ot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::Join <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8541	8714	
==>return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8541	8714	
==>return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4867	4959	
==>p(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4867	4959	
==>p(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4867	4959	
==>p(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4409	4498	
==>Point, '... go the right superclass name for Point3D');
is($p3d->prototype->prototype->cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20473	20712	
==>items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20473	20712	
==>items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20473	20712	
==>items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        m <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4294	4432	
==>ata] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the build <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4554	4660	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4554	4660	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6149	6248	
==>a types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_d <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6149	6248	
==>a types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_d <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4438	4537	
==>q "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4693	4803	
==>n \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4693	4803	
==>n \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4693	4803	
==>n \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1142	1248	
==>elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1142	1248	
==>elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH <==
6	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	134	227	
==>pts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use stric <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	49	165	
==>, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	49	165	
==>, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	49	165	
==>, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2052	2162	
==>) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2052	2162	
==>) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2052	2162	
==>) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS. <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	16087	16277	
==>[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
} <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2079	2183	
==>head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2079	2183	
==>head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # Th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1313	1411	
==>head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # Th <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3174	3272	
==>head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # Th <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26899	26990	
==>egexp::Parser> does
this automatically, but if you are sub-classing it, you'll probably want <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1743	1911	
==>) not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1743	1911	
==>) not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1743	1911	
==>) not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5211	5361	
==>= substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5211	5361	
==>= substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5211	5361	
==>= substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7563	7656	
==>3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7563	7656	
==>3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7563	7656	
==>3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7298	7396	
==>IL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7298	7396	
==>IL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::R <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7298	7396	
==>IL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5926	6112	
==>=> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5926	6112	
==>=> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5926	6112	
==>=> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2761	2867	
==>}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contigu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2761	2867	
==>}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contigu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2761	2867	
==>}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contigu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3482	3599	
==>already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3482	3599	
==>already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3482	3599	
==>already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12918	13027	
==>already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12918	13027	
==>already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($la <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12918	13027	
==>already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($la <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14376	14562	
==>{
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14376	14562	
==>{
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "A <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14376	14562	
==>{
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4405	4535	
==>or ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4405	4535	
==>or ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4405	4535	
==>or ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5093	5186	
==>l { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5093	5186	
==>l { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5093	5186	
==>l { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3966	4050	
==>--------------------------------------------------------------------------
## BEGIN B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3966	4050	
==>--------------------------------------------------------------------------
## BEGIN B <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3966	4050	
==>--------------------------------------------------------------------------
## BEGIN B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10369	10519	
==>= __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10369	10519	
==>= __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                m <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10369	10519	
==>= __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1186	1280	
==>age "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1186	1280	
==>age "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1186	1280	
==>age "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument f <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2955	3069	
==>) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2955	3069	
==>) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2955	3069	
==>) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4225	4328	
==>@_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4225	4328	
==>@_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4225	4328	
==>@_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9895	10007	
==>d .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9895	10007	
==>d .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9895	10007	
==>d .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16550	16661	
==>.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16550	16661	
==>.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16550	16661	
==>.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        | <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2282	2391	
==>bel to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2282	2391	
==>bel to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2282	2391	
==>bel to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1419	1512	
==>turn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1419	1512	
==>turn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1419	1512	
==>turn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11463	11583	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2975	3095	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11463	11583	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2975	3095	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11463	11583	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2975	3095	
==>ew PIL2JS.Box([]).STORE(n).FETCH();
          for(var i = 0; i < arr.length; i++) {
            if(ret[i]) ret[i].STORE(a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34422	34536	
==>}
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offse <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34422	34536	
==>}
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offse <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34422	34536	
==>}
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offse <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3213	3362	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6206	6353	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;
    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3480	3621	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9898	10039	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3480	3621	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9898	10039	
==>),
        non_greedy_plus( $node ) 
    ] );
}

sub non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5863	6055	
==>um_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5863	6055	
==>um_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        } <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5863	6055	
==>um_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3011	3119	
==>am{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3011	3119	
==>am{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3011	3119	
==>am{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1899	2096	
==>$match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2321	2511	
==>$match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1837	2027	
==>$match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2321	2511	
==>$match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state-> <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3273	3367	
==>ub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3273	3367	
==>ub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5552	5689	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8522	8659	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5552	5689	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8522	8659	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5552	5689	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8522	8659	
==>sically), Perl 5 will optimze it and
        # return the exact same sub. This results in this
        # method being passed an already bl <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2528	2656	
==>nside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2528	2656	
==>nside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	971	1064	
==>a structure and recurses through its
hierarchy, reblessing objects that it finds along the way <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	971	1064	
==>a structure and recurses through its
hierarchy, reblessing objects that it finds along the way <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	971	1064	
==>a structure and recurses through its
hierarchy, reblessing objects that it finds along the way <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9910	10062	
==>h( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9910	10062	
==>h( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #wa <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9910	10062	
==>h( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #wa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13729	13827	
==>{ -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13729	13827	
==>{ -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13729	13827	
==>{ -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5691	5860	
==>s' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5691	5860	
==>s' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5691	5860	
==>s' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1028	1132	
==>t;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1028	1132	
==>t;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1028	1132	
==>t;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4726	4905	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7662	7841	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4726	4905	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7662	7841	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4726	4905	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7662	7841	
==>le')
            || confess "You must associate the method with a class";          
        # now wrap the method once again, 
        # making sure to rebless it
        $_[0] = b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18821	18952	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16059	16190	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18821	18952	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16059	16190	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18821	18952	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16059	16190	
==>::opaque_instance_attr($self => '%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate t <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	409	576	
==>e = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $req <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	409	576	
==>e = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $req <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5714	5827	
==>as_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bi <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5714	5827	
==>as_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bi <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6304	6417	
==>as_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bi <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2815	2927	
==>tom> }
rule commit_rule        { \:\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	893	1002	
==>cted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracte <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1286	1395	
==>cted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracte <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	893	1002	
==>cted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracte <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1286	1395	
==>cted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracte <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2851	2955	
==>ing properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $ <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2851	2955	
==>ing properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15800	15939	
==>}
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15800	15939	
==>}
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15800	15939	
==>}
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+/ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2985	3086	
==>"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and run <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2985	3086	
==>"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and run <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2985	3086	
==>"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and run <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7041	7140	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6171	6270	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2825	2924	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2825	2924	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7041	7140	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6171	6270	
==>infix:<∌> (Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4270	4418	
==>ent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4270	4418	
==>ent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6908	7010	
==>msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7198	7300	
==>msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6908	7010	
==>msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7198	7300	
==>msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	17	116	
==>se v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::R <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	17	116	
==>se v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::R <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8793	8887	
==>lied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIG <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3722	3816	
==>lied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIG <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8793	8887	
==>lied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIG <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3722	3816	
==>lied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIG <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2214	2361	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11082	11229	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12041	12188	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2407	2554	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11361	11508	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12320	12467	
==>p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25108	25211	
==>ministic,
such that all of its class and object methods will each return the same
result and/or make the <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11239	11342	
==>ministic,
such that all of its class and object methods will each return the same
result and/or make the <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14512	14615	
==>ministic, such that all of its class and
object methods will each return the same result and/or make the <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25108	25211	
==>ministic,
such that all of its class and object methods will each return the same
result and/or make the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11239	11342	
==>ministic,
such that all of its class and object methods will each return the same
result and/or make the <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14512	14615	
==>ministic, such that all of its class and
object methods will each return the same result and/or make the <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6822	6925	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6822	6925	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6822	6925	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	484	585	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	484	585	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	484	585	
==>is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23554	23660	
==>common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23554	23660	
==>common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23554	23660	
==>common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3736	3833	
==>up('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3736	3833	
==>up('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3736	3833	
==>up('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9573	9696	
==>target, pos, lastpos
    $S0 = substr target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $I0 + 1
    goto en <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6099	6194	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8167	8262	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6099	6194	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8167	8262	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2416	2509	
==>ng_group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <closure> | <code_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5390	5498	
==>solve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subrol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5390	5498	
==>solve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subrol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5390	5498	
==>solve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subrol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2818	2920	
==>name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2818	2920	
==>name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2818	2920	
==>name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2734	2849	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5724	5839	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3027	3137	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9445	9555	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3027	3137	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9445	9555	
==>ptional {
    return alternation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15258	15366	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12514	12622	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15258	15366	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12514	12622	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15258	15366	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12514	12622	
==>thod('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # defau <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29534	29649	
==>tre inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement " <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29534	29649	
==>tre inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement " <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	346	453	
==>tre inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1972	2077	
==>$tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1972	2077	
==>$tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1972	2077	
==>$tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19320	19430	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4800	4910	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19320	19430	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4800	4910	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19320	19430	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4800	4910	
==>d('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	929	1042	
==>ft;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6854	6967	
==>el => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	929	1042	
==>ft;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	929	1042	
==>ft;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6854	6967	
==>el => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if r <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18108	18203	
==>dering

The visual() method of I<anyof> objects will quell the repetition of any
character in th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	483	592	
==>rn)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	483	592	
==>rn)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	483	592	
==>rn)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2149	2251	
==>nt into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2149	2251	
==>nt into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the st <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2149	2251	
==>nt into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the st <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4813	4921	
==>pare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Fla <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4813	4921	
==>pare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Fla <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2568	2666	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2568	2666	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1781	1873	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3642	3734	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5639	5761	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8609	8731	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5639	5761	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8609	8731	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5639	5761	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8609	8731	
==>in this
        # method being passed an already blessed method 
        # instead of a plain CODE ref. This solution is al <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5016	5146	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7665	7795	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5223	5347	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11672	11796	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5223	5347	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11672	11796	
==>y the <$var> rule
sub get_variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1662	1794	
==>ss {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anchor',
      type => $type,
      vis => $vis,
      zerole <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	528	651	
==>s @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	528	651	
==>s @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40868	40987	
==>b elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40868	40987	
==>b elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arr <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40868	40987	
==>b elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6835	6955	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9805	9925	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6835	6955	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9805	9925	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6835	6955	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9805	9925	
==>hod->isa('Private::Method');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad meth <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7154	7258	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6284	6388	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2938	3042	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2938	3042	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7154	7258	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6284	6388	
==>t $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operations with <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7306	7436	
==>rement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7306	7436	
==>rement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7306	7436	
==>rement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3756	3864	
==>tr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3756	3864	
==>tr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3756	3864	
==>tr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->ad <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	35	133	
==>rnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	35	133	
==>rnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	35	133	
==>rnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	35	132	
==>rnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	35	132	
==>rnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	35	132	
==>rnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_keys';
use Scalar::Util 'blessed' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4411	4569	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6923	7081	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4411	4569	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6923	7081	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4411	4569	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6923	7081	
==>body->{class_methods}}) {
                if ($method_name =~ /^_/) {
                    # we just add a private method in here...
                    # there <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2168	2287	
==>py )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	373	486	
==>e a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	578	691	
==>e a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	634	747	
==>e a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::crea <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	169	276	
==>py )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	169	276	
==>py )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3393	3494	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11951	12052	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6518	6619	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3393	3494	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11951	12052	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6518	6619	
==>meth, 'ARG' => $arg } )
        if !%val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_HASH_KEY_EMP_STR' <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1313	1478	
==>is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4552	4717	
==>is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1313	1478	
==>is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4552	4717	
==>is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open <==
6	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	972	1076	
==>ists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url} <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	939	1043	
==>ists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30184	30307	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31913	32036	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30184	30307	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31913	32036	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30184	30307	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31913	32036	
==>y @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) {
        my $len = $array->elems;
        @{$array->{it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6190	6317	
==>new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6190	6317	
==>new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6190	6317	
==>new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3842	3948	
==>unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3842	3948	
==>unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUB <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3842	3948	
==>unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUB <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	260	374	
==>elf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $sel <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1127	1226	
==>tstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refacto <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1127	1226	
==>tstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refacto <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16225	16321	
==>::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16225	16321	
==>::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq " <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16225	16321	
==>::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq " <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	12545	12665	
==>od shift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support for =$fh
class IO does Ite <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	10456	10557	
==>list a -> list a
	tail => do {
		my $a = type::variable::free->new;
		my $l = type::operator::nary->ne <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4175	4275	
==>t {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3302	3402	
==>t {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4175	4275	
==>t {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3302	3402	
==>t {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retur <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11885	11995	
==>ine ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We recor <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11885	11995	
==>ine ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We recor <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10859	10991	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12330	12462	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14336	14468	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15807	15939	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading = <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9878	9998	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading = <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13355	13475	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1469	1595	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3032	3158	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1469	1595	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3032	3158	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1469	1595	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3032	3158	
==>PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = undef;
    $::CLASS   = undef;   
    $:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4250	4392	
==>('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4250	4392	
==>('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buc <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4250	4392	
==>('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5662	5786	
==>n "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5662	5786	
==>n "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5662	5786	
==>n "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6658	6753	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5788	5883	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2442	2537	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2442	2537	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6658	6753	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5788	5883	
==>ators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool {
    $one.includes( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6359	6594	
==>[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6359	6594	
==>[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6359	6594	
==>[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12904	13030	
==>sult = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12904	13030	
==>sult = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4045	4135	
==>op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1209	1337	
==>ort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1209	1337	
==>ort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1209	1337	
==>ort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3925	4043	
==>$clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3925	4043	
==>$clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3925	4043	
==>$clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $ <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	359	466	
==>essed as
#     complemented character sets.  <-[...]>  They are all tagged with
#     #SourceCharacter but n <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5705	5804	
==>I

Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fa <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5705	5804	
==>I

Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fa <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3868	3966	
==>ng on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this p <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3868	3966	
==>ng on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this p <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6065	6163	
==>ng on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19989	20106	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17128	17245	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19989	20106	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17128	17245	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19989	20106	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17128	17245	
==>tes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are add <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	9437	9599	
==>~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt" <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9437	9599	
==>~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt" <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10551	10686	
==>];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	829	945	
==>s { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	829	945	
==>s { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	829	945	
==>s { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7460	7561	
==>y";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7460	7561	
==>y";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->p <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7460	7561	
==>y";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3336	3432	
==>w, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3336	3432	
==>w, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3336	3432	
==>w, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10355	10488	
==>ith {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10355	10488	
==>ith {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10355	10488	
==>ith {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_ <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13926	14030	
==>d make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@othe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17403	17507	
==>d make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@othe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16783	16887	
==>d make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@othe <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3320	3450	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3513	3643	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9234	9345	
==>vocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9234	9345	
==>vocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9234	9345	
==>vocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLa <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5304	5401	
==>access to the value.

=item B<apply (closure) return list>

The closure here will be passed the cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16593	16693	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21310	21410	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16593	16693	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21310	21410	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16593	16693	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21310	21410	
==>ll them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17708	17842	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14928	15062	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17708	17842	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14928	15062	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17708	17842	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14928	15062	
==>/) {
        # check for instance method
        return $self->has_method($1, for => 'instance') ? 
                    $self->get_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8550	8652	
==>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8550	8652	
==>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8550	8652	
==>add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SELF->_make_dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6953	7077	
==>p == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6953	7077	
==>p == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start} <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6953	7077	
==>p == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11452	11561	
==>tfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11452	11561	
==>tfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11452	11561	
==>tfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8564	8748	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6117	6301	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8564	8748	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6117	6301	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8564	8748	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6117	6301	
==>ce_attr($self => '@:MRO') = [
            $self->_merge(
                [ $self ],                                      # the class we are linearizing
                (map { [ $_->MRO( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1843	1950	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3406	3513	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1843	1950	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3406	3513	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1843	1950	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3406	3513	
==>hich are detailed in A12 and are
    # called 'iterators', they basically
    # are ways to walk a dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4852	4970	
==>urn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4852	4970	
==>urn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4852	4970	
==>urn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3415	3516	
==>paque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3415	3516	
==>paque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3415	3516	
==>paque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35980	36079	
==>erged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
The bod <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40530	40628	
==>erged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The bod <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40144	40242	
==>erged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The bod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	446	541	
==>ule     = undef;
$::EigenClass = undef;

## ---------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	446	541	
==>ule     = undef;
$::EigenClass = undef;

## ---------------------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	446	541	
==>ule     = undef;
$::EigenClass = undef;

## ---------------------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13136	13270	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13136	13270	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13136	13270	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5376	5510	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3876	4010	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2021	2155	
==>end of array\n";
        $off = $size;
    }
    # $off is now ready

    $len = +$len if defined($len);
    $len = $size - $off if !de <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2383	2478	
==>e && $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    re <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2383	2478	
==>e && $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    re <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22135	22229	
==>m C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pse <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21016	21110	
==>m C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pse <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22135	22229	
==>m C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pse <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21016	21110	
==>m C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	476	582	
==>args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	476	582	
==>args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	476	582	
==>args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arra <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1957	2060	
==>.Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY F <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1957	2060	
==>.Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY F <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1957	2060	
==>.Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY F <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9095	9273	
==>difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidif <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12572	12750	
==>difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidif <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11808	11986	
==>difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidif <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2336	2461	
==>te_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2541	2666	
==>te_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3332	3457	
==>te_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	41	140	
==>rver_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software re <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	41	140	
==>rver_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2554	2646	
==>.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2554	2646	
==>.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1767	1855	
==>.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3628	3716	
==>.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1793	1885	
==>ore parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1793	1885	
==>ore parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1793	1885	
==>ore parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1187	1305	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	938	1056	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1187	1305	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	938	1056	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1187	1305	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	938	1056	
==>container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it work <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22949	23120	
==>am, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22949	23120	
==>am, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22949	23120	
==>am, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $t <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2574	2690	
==>0    };
   undef;
 }


 multi Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num <==
6	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	320	428	
==>inalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BU <==
6	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	320	428	
==>inalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BU <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10692	10800	
==>ed ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10692	10800	
==>ed ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      re <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10692	10800	
==>ed ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      re <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	13819	13916	
==>O-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13877	13974	
==>O-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str <==
6	/Users/nnunley/pugs/util/testgraph.pl	911	1007	
==>"USAGE";
usage: $0 [OPTIONS] > output_file.html

Generates an HTML summary of a YAML test run. Op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2655	2770	
==>s 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2655	2770	
==>s 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $c <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2655	2770	
==>s 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	514	615	
==>"" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	514	615	
==>"" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	514	615	
==>"" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31272	31475	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31272	31475	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31272	31475	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8617	8726	
==>gs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8617	8726	
==>gs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")." <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8617	8726	
==>gs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")." <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2090	2201	
==>ut = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11211	11316	
==>urn $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test:: <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	95	198	
==>ut = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5 <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	95	198	
==>ut = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1677	1772	
==>urn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test:: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1677	1772	
==>urn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2558	2684	
==>PPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eigen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2558	2684	
==>PPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eigen <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2558	2684	
==>PPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eigen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3139	3242	
==>'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3139	3242	
==>'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3139	3242	
==>'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new( <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10990	11089	
==>r which stores data to be used or
displayed by your program.  It is analagous to a simplified versio <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14153	14252	
==>r which stores data to be used or
displayed by your program.  It is analagous to a simplified versio <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10990	11089	
==>r which stores data to be used or
displayed by your program.  It is analagous to a simplified versio <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14153	14252	
==>r which stores data to be used or
displayed by your program.  It is analagous to a simplified versio <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15166	15264	
==>.  The old header value is always returned.
If the given header did not exist then C<undef> is retu <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15166	15264	
==>.  The old header value is always returned.
If the given header did not exist then C<undef> is retu <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3393	3489	
==>ceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8493	8589	
==>ocal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    n <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3393	3489	
==>ceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tes <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8493	8589	
==>ocal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8493	8589	
==>ocal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    n <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3473	3569	
==>ceived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tes <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	10336	10439	
==>urn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
} <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10336	10439	
==>urn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
} <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23828	23926	
==>or method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28380	28478	
==>or method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This m <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27202	27300	
==>or method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	878	972	
==>PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	878	972	
==>PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	878	972	
==>PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8015	8149	
==>[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8015	8149	
==>[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8015	8149	
==>[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the metho <==
6	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1010	1109	
==>o", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form <==
6	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1010	1109	
==>o", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7700	7798	
==>y ; MatchTest *@indextests --> Int|List )

Iterates the elements of C<@array>, in order. 

If C<@in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4810	4911	
==>e_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4810	4911	
==>e_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4810	4911	
==>e_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1065	1161	
==>>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1065	1161	
==>>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1065	1161	
==>>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PI <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6361	6572	
==>ized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6361	6572	
==>ized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2318	2452	
==>tched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9090	9224	
==>tched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2318	2452	
==>tched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9090	9224	
==>tched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11800	11948	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3311	3459	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11800	11948	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3311	3459	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11800	11948	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3311	3459	
==>lice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr[i]        = n <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7045	7176	
==>bg "# LValue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubPar <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4762	4882	
==>ce( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4762	4882	
==>ce( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	399	505	
==>okenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	399	505	
==>okenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	399	505	
==>okenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self-> <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8499	8614	
==>zation user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, St <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8499	8614	
==>zation user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, St <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	96	198	
==>978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusammen: (änlich wie any)
$s ~~ (1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7733	7830	
==>> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7733	7830	
==>> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine ty <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7733	7830	
==>> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4793	4920	
==>as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4793	4920	
==>as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4793	4920	
==>as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2507	2603	
==>eludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2507	2603	
==>eludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2507	2603	
==>eludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PI <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3109	3236	
==>s->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4809	4931	
==>s->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3837	3955	
==>s->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8952	9052	
==>routine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8952	9052	
==>routine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8952	9052	
==>routine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = s <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4036	4136	
==>ean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  i <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4036	4136	
==>ean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  i <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6186	6282	
==>sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi su <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5316	5412	
==>sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6186	6282	
==>sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi su <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5316	5412	
==>sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2815	2933	
==>q 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2815	2933	
==>q 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2815	2933	
==>q 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) { <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2663	2772	
==>d NIL)
     (= $current (&dispatcher do))
     (while (($current is_not_nil) and ($method is_nil))
        (($ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16308	16413	
==>urn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bu <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16308	16413	
==>urn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9576	9680	
==>warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_siz <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9576	9680	
==>warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_siz <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9576	9680	
==>warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_siz <==
6	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	574	677	
==>ew;

  # Various ways to interpret a test
  my %results = $strap->analyze($name, \@test_output);
  my %r <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17276	17373	
==>tion and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which p <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17276	17373	
==>tion and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which p <==
6	/Users/nnunley/pugs/examples/algorithms/Newton.pm	253	370	
==>x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfprime.ass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11202	11314	
==>@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11202	11314	
==>@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11202	11314	
==>@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBi <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7832	7928	
==>`fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7832	7928	
==>`fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13788	13895	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14162	14269	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13788	13895	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14162	14269	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13788	13895	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14162	14269	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$i], see t/operators/bindi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	107	204	
==>UILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	107	204	
==>UILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	107	204	
==>UILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2583	2675	
==>ing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for option <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2583	2675	
==>ing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for option <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2583	2675	
==>ing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for option <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2669	2794	
==>c(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2669	2794	
==>c(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_fo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2669	2794	
==>c(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	269	375	
==>)(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	269	375	
==>)(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	269	375	
==>)(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12521	12636	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14403	14518	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12521	12636	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14403	14518	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12521	12636	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14403	14518	
==>elf->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14256	14365	
==>nless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14256	14365	
==>nless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14256	14365	
==>nless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6517	6623	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6517	6623	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6517	6623	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18406	18599	
==>'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18685	18878	
==>'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	371	487	
==>e hash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set res <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	371	487	
==>e hash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set res <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2567	2678	
==>XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2567	2678	
==>XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4384	4496	
==>[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39674	39775	
==>ngth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39674	39775	
==>ngth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39674	39775	
==>ngth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4875	4972	
==>utes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4875	4972	
==>utes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1980	2091	
==>local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1980	2091	
==>local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1980	2091	
==>local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8264	8374	
==>ringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8264	8374	
==>ringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8264	8374	
==>ringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2197	2313	
==>- could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2337	2453	
==>- could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5729	5833	
==>om the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5729	5833	
==>om the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    ret <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5729	5833	
==>om the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    ret <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	594	689	
==>->can("name") && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=po <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14589	14783	
==>n Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14589	14783	
==>n Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14589	14783	
==>n Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11059	11162	
==>->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contigu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11059	11162	
==>->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contigu <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11059	11162	
==>->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contigu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10758	10896	
==>the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7099	7237	
==>the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7948	8086	
==>the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1172	1284	
==>"\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1172	1284	
==>"\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1172	1284	
==>"\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1433	1539	
==>heir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1433	1539	
==>heir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash i <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1433	1539	
==>heir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5961	6057	
==>runing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(sk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5961	6057	
==>runing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(sk <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5961	6057	
==>runing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(sk <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2549	2632	
==>essed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2549	2632	
==>essed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2549	2632	
==>essed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3419	3562	
==>=~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3419	3562	
==>=~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3419	3562	
==>=~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29251	29372	
==>am{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29251	29372	
==>am{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - T <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29251	29372	
==>am{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - T <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11510	11640	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2504	2634	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7598	7728	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11510	11640	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2504	2634	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7598	7728	
==>em {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5026	5114	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3254	3342	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5026	5114	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3254	3342	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5026	5114	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3254	3342	
==>ndef unless $label;
    return ::WALKMETH(::opaque_instance_class($self)->dispatcher(':ca <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2269	2406	
==>ose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2269	2406	
==>ose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2269	2406	
==>ose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $ <==
6	/Users/nnunley/pugs/util/grokprims.pl	2012	2135	
==>d $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	35	129	
==>lementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatt <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	35	129	
==>lementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1730	1825	
==>Rat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1730	1825	
==>Rat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1730	1825	
==>Rat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21508	21601	
==>implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21508	21601	
==>implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21508	21601	
==>implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25378	25587	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26036	26245	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28818	29027	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25657	25866	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26315	26524	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29097	29306	
==>', \&{'grammar1::term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	2081	2277	
==>= $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5558	5754	
==>= $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'h <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4488	4684	
==>= $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'h <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2486	2607	
==>args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luck <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2486	2607	
==>args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luck <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2486	2607	
==>args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luck <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6455	6564	
==>PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6455	6564	
==>PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: ! <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6455	6564	
==>PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: ! <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21431	21525	
==>rom_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Arr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21431	21525	
==>rom_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Arr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21431	21525	
==>rom_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Arr <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4946	5054	
==>(Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unle <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4946	5054	
==>(Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unle <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10360	10468	
==>->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zer <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5408	5512	
==>(Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unle <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5408	5512	
==>(Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unle <==
6	/Users/nnunley/pugs/util/drift.pl	52	145	
==>::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}");

- <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13358	13528	
==>push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3519	3669	
==>push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3519	3669	
==>push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3519	3669	
==>push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $s <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2431	2562	
==>n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) ! <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2431	2562	
==>n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) ! <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	85	244	
==>nt;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.p <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	85	244	
==>nt;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1324	1439	
==>f = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1324	1439	
==>f = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1324	1439	
==>f = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsp <==
6	/Users/nnunley/pugs/util/catalog_tests.pl	7766	7867	
==>put_path,"index.html");
    eval { mkpath( $output_path ) };
    die "Failed to create directory $outp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7848	7952	
==>grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7848	7952	
==>grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_n <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7848	7952	
==>grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_n <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	330	430	
==>e referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	330	430	
==>e referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	330	430	
==>e referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2149	2268	
==>tatement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2149	2268	
==>tatement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2149	2268	
==>tatement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	w <==
6	/Users/nnunley/pugs/examples/hop6/Lexer.pm	523	635	
==>fined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exhausted
  my $split := { (spl <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9264	9358	
==>del is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9264	9358	
==>del is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11210	11347	
==>ams,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11210	11347	
==>ams,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11210	11347	
==>ams,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2196	2275	
==>umfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2196	2275	
==>umfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2196	2275	
==>umfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10249	10423	
==>ram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10249	10423	
==>ram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10249	10423	
==>ram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4824	4924	
==>self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4824	4924	
==>self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4824	4924	
==>self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9054	9178	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9054	9178	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9054	9178	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3282	3381	
==>>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3282	3381	
==>>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3282	3381	
==>>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $ <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8588	8953	
==>fix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4823	5050	
==>size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4823	5050	
==>size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10434	10601	
==>size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10434	10601	
==>size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10434	10601	
==>size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2833	2986	
==>tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unle <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3453	3606	
==>tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unle <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2833	2986	
==>tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unle <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3453	3606	
==>tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unle <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3365	3492	
==>ecking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4752	4860	
==>s' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	3649	3748	
==>"~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3649	3748	
==>"~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18688	18784	
==>OPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17731	17827	
==>OPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18688	18784	
==>OPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17731	17827	
==>OPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12822	12967	
==>$::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   = <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11501	11644	
==>$::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' = <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15252	15395	
==>$::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15448	15548	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15448	15548	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15448	15548	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]-> <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	13960	14084	
==>f combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17437	17561	
==>f combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16817	16941	
==>f combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	554	665	
==>tion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	554	665	
==>tion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	554	665	
==>tion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_v <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2233	2366	
==>p == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inter <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2233	2366	
==>p == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inter <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2233	2366	
==>p == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inter <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17687	17807	
==>I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX W <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18901	18995	
==>ery different from SQL, it
is fully capable of modelling anything in the real world accurately, <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18901	18995	
==>ery different from SQL, it
is fully capable of modelling anything in the real world accurately, <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1790	1911	
==>ick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1790	1911	
==>ick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36510	36623	
==>ist, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36510	36623	
==>ist, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36510	36623	
==>ist, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	218	324	
==>pace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3208	3316	
==>') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3208	3316	
==>') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3208	3316	
==>') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7754	7851	
==>_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7754	7851	
==>_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7754	7851	
==>_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6134	6259	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9104	9229	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6134	6259	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9104	9229	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6134	6259	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9104	9229	
==>tub_method () {
        return bless sub { confess "Stub Method!" } => 'Perl6::StubMethod';
    }    
    
    # a class metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35680	35804	
==>f ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35680	35804	
==>f ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body= <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35680	35804	
==>f ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10182	10303	
==>@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10182	10303	
==>@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10182	10303	
==>@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    e <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7548	7729	
==>lf}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var<item>.++;
            #war <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1955	2107	
==>= 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 { <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1955	2107	
==>= 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1645	1744	
==>tive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1645	1744	
==>tive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1645	1744	
==>tive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5133	5302	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8103	8272	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5133	5302	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8103	8272	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5133	5302	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8103	8272	
==>sociated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($method);            
    }

    # make a basic method ...
    sub :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4670	4780	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7606	7716	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4670	4780	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7606	7716	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4670	4780	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7606	7716	
==>ciated_with) && blessed($associated_with) eq 'Dispatchable')
            || confess "You must associate the met <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9006	9138	
==>lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extr <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	740	872	
==>lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9006	9138	
==>lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9006	9138	
==>lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extr <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	926	1040	
==>nite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" A <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	926	1040	
==>nite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" A <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25188	25326	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27377	27515	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25188	25326	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27377	27515	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25188	25326	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27377	27515	
==>rl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6305	6426	
==>tive
        $self->remove_registered_alternative( package => $unlink_this )
            if $unlink_this;

        ### lin <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12663	12765	
==>h n > m
  }

=head2 Standard Warnings and Errors

Here are the standard warning and error messages.  Th <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4926	5021	
==>ference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4053	4148	
==>ference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4926	5021	
==>ference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4053	4148	
==>ference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) ret <==
6	/Users/nnunley/pugs/examples/hop6/Stream.pm	798	913	
==>(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5703	5813	
==>_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_i <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5703	5813	
==>_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6070	6160	
==>quote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required para <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6070	6160	
==>quote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required para <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6070	6160	
==>quote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required para <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3237	3399	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3237	3399	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14265	14363	
==>S (-19)

Missing braces on \%s{}

=item RPe_RBRACE (-20)

Missing right brace on \%s{}

=item RPe_B <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5806	5898	
==>= JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5806	5898	
==>= JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5806	5898	
==>= JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	151	263	
==>eeds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 vers <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	159	271	
==>eeds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 vers <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	151	263	
==>eeds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 vers <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	159	271	
==>eeds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 vers <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1314	1424	
==>THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depend <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	874	984	
==>THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depend <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5380	5511	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8350	8481	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5380	5511	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8350	8481	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5380	5511	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8350	8481	
==>range optimization in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25136	25298	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27325	27487	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25136	25298	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27325	27487	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25136	25298	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27325	27487	
==>ings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = P <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5664	5888	
==>er this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            tak <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5664	5888	
==>er this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            tak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3456	3554	
==>"defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3456	3554	
==>"defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' ob <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3456	3554	
==>"defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' ob <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3179	3276	
==>te implementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.splice(0,1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15664	15773	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15664	15773	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15664	15773	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();
    
    sub ::multi_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20385	20490	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20385	20490	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20385	20490	
==>ods::Pure 
## to make method composition easier

{
    use Class::Multimethods::Pure ();

    sub ::multi_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1827	1956	
==>Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    } <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1827	1956	
==>Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    } <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4843	4956	
==>$code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \@_= <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1687	1798	
==>:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1687	1798	
==>:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1687	1798	
==>:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24976	25189	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27165	27378	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24976	25189	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27165	27378	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24976	25189	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27165	27378	
==>fined $samples;
                my @start;
                my @end;
                my $tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5398	5503	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3518	3623	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5398	5503	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3518	3623	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5398	5503	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3518	3623	
==>self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the superclasse <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11240	11460	
==>->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11240	11460	
==>->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11240	11460	
==>->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2837	2928	
==>rl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2837	2928	
==>rl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # re <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2837	2928	
==>rl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33663	33784	
==>or ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33663	33784	
==>or ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33663	33784	
==>or ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13057	13165	
==>n ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13057	13165	
==>n ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13057	13165	
==>n ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\ <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	526	631	
==>l case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	526	631	
==>l case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5857	5953	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4987	5083	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5857	5953	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4987	5083	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	95	215	
==>0';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no str <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	95	215	
==>0';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no str <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	95	215	
==>0';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	17	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	17	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	17	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9222	9338	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6769	6885	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9222	9338	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6769	6885	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9222	9338	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6769	6885	
==>er;
    if ($order eq ':preorder') {
        $dispatcher = $self->_make_preorder_dispatcher();
    }
    elsif ($orde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5487	5603	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8457	8573	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5487	5603	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8457	8573	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5487	5603	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8457	8573	
==>ther sub has the same opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # retur <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1650	1759	
==>f Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5127	5236	
==>f Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tupl <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4057	4166	
==>f Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tupl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1597	1702	
==>);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1597	1702	
==>);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1597	1702	
==>);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10988	11164	
==>on,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.d <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1474	1634	
==>on,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.d <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1474	1634	
==>on,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2535	2665	
==>);",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2535	2665	
==>);",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2535	2665	
==>);",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	2699	2861	
==>e;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redir <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2699	2861	
==>e;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redir <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25037	25130	
==>eue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23801	23894	
==>eue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25037	25130	
==>eue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23801	23894	
==>eue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2549	2642	
==>y Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2549	2642	
==>y Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatch <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2549	2642	
==>y Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatch <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13138	13253	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21188	21303	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13417	13532	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21467	21582	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19703	19801	
==>Set operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relati <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24255	24353	
==>Set operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relati <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6894	7017	
==>on (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6894	7017	
==>on (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6894	7017	
==>on (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cre <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2299	2421	
==>_native) {
        my $value; 
        my $param      = $params->fetch(num->new($i));
        my $param_type = $param->type <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13608	13705	
==>enter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

Y <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13608	13705	
==>enter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

Y <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10201	10357	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7752	7908	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10201	10357	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7752	7908	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10201	10357	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7752	7908	
==>stack
                # get the current value out of the iterator
                my $current_class = $stack[-1]->();
                # if current is null th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	335	456	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	333	454	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	335	456	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	333	454	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	335	456	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	333	454	
==>mplementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a unique ID
    m <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	138	246	
==>ots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conne <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	142	250	
==>ots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conne <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	138	246	
==>ots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conne <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	142	250	
==>ots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conne <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3416	3509	
==>$ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3416	3509	
==>$ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno <==
6	/Users/nnunley/pugs/misc/S29_round.pl	963	1083	
==>r( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >  .5 { $x_round = sign($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	412	522	
==>de $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	412	522	
==>de $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	412	522	
==>de $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(C <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1151	1239	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1371	1459	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20125	20257	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17264	17396	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20125	20257	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17264	17396	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20125	20257	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17264	17396	
==>normally
        return $self->add_attribute($label, $value);
    } 
    else {
        # XXX -
        # we need to duplicate the :: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5390	5488	
==>levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5390	5488	
==>levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5390	5488	
==>levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13842	13936	
==>ULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13842	13936	
==>ULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13842	13936	
==>ULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4037	4169	
==>,\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5358	5490	
==>,\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4037	4169	
==>,\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5346	5478	
==>,\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7150	7252	
==>constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7150	7252	
==>constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3039	3152	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6032	6145	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3314	3422	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9732	9840	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3314	3422	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9732	9840	
==>ub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_greedy_star { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2944	3070	
==>s($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2944	3070	
==>s($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2944	3070	
==>s($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5727	5844	
==>s($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5727	5844	
==>s($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5727	5844	
==>s($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $attribute <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3949	4116	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6885	7052	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3949	4116	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6885	7052	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3949	4116	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6885	7052	
==>::ROLE = $role;
            return $method->(@_);       
        # NOTE:
        # we bless the new wrapper method 
        # into the same class as before 
        # b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24689	24798	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26878	26987	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24689	24798	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26878	26987	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24689	24798	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26878	26987	
==>>unboxed; # _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn "ELEMS ",$sel <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9001	9130	
==>ss $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8687	8813	
==>ss $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	9830	9943	
==>) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $te <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3147	3253	
==>y;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3147	3253	
==>y;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3147	3253	
==>y;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3737	3836	
==>r. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Buil <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4887	4986	
==>": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3737	3836	
==>r. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Buil <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4887	4986	
==>": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4887	4986	
==>": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5934	6033	
==>r. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Buil <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	1709	1822	
==>y :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not mat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5186	5299	
==>y :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not mat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4116	4229	
==>y :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2068	2175	
==>eof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2068	2175	
==>eof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2068	2175	
==>eof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16786	16927	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16786	16927	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16786	16927	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1420	1522	
==>autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1420	1522	
==>autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef} <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1420	1522	
==>autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef} <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7862	8038	
==>y);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7862	8038	
==>y);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12145	12244	
==>nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16725	16824	
==>nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12145	12244	
==>nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16725	16824	
==>nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2383	2526	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4710	4853	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2383	2526	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4710	4853	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2383	2526	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4710	4853	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($na <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9777	9909	
==>shift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3469	3578	
==>('block')))
        || confess "argument to &each must be either a closure or a block";
    foreach my $val (@ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35824	35931	
==>ds) {
      $_ = $self->{rx}->object(ifmatch => 1, @$_);
    }

The 'ifmatch' object is a positive looking a <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1537	1631	
==>String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1537	1631	
==>String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1537	1631	
==>String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17402	17514	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22110	22222	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17402	17514	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22110	22222	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17402	17514	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22110	22222	
==>pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3635	3743	
==>gic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3635	3743	
==>gic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3635	3743	
==>gic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19325	19422	
==>one can look like a table, where each tuple is a row and each
relation/tuple attribute is a column <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23877	23974	
==>one can look like a table, where each tuple is a row and each
relation/tuple attribute is a column <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22393	22490	
==>one can look like a table, where each tuple is a row and each
relation/tuple attribute is a column <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16601	16795	
==>shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16601	16795	
==>shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        e <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16601	16795	
==>shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13702	13797	
==>ULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13702	13797	
==>ULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13702	13797	
==>ULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8016	8161	
==>boxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8016	8161	
==>boxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fe <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8016	8161	
==>boxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5506	5623	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8476	8593	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5506	5623	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8476	8593	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5506	5623	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8476	8593	
==>me opcodes (a constant
        # subroutine basically), Perl 5 will optimze it and
        # return the exact same sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6552	6665	
==>rimitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6552	6665	
==>rimitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postf <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6552	6665	
==>rimitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postf <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2393	2502	
==>ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2393	2502	
==>ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2393	2502	
==>ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1405	1526	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2968	3089	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1405	1526	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2968	3089	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1405	1526	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2968	3089	
==>the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical var <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10650	10774	
==>with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for tr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14127	14251	
==>with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for tr <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13426	13550	
==>with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for tr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2205	2311	
==>eir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2205	2311	
==>eir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be o <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2205	2311	
==>eir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6249	6361	
==>x( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6249	6361	
==>x( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8421	8525	
==>stplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DES <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35258	35354	
==>abc>), exactf (C<abc> with C</i> on)

Data: array reference of actual characters

=head2 quant

F <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	621	715	
==>stplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DES <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	621	715	
==>stplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DES <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24800	24930	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26989	27119	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24800	24930	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26989	27119	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24800	24930	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26989	27119	
==>->elems;
                $samples-- if defined $samples;
                $samples = 100 unless defined $samples || $self->is_infini <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18854	19004	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16092	16242	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18854	19004	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16092	16242	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18854	19004	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16092	16242	
==>%:namespace')->{$label};
    } 
    else {        
        # XXX -
        # we need to duplicate the ::Package code here
        # because calling nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2591	2704	
==>stify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2591	2704	
==>stify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2938	3051	
==>stify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	505	606	
==>variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	505	606	
==>variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	505	606	
==>variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSco <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8750	8937	
==>uld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unles <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5110	5297	
==>uld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unles <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5959	6146	
==>uld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unles <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2216	2345	
==>me>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2216	2345	
==>me>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fr <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2216	2345	
==>me>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10389	10554	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7940	8105	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10389	10554	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7940	8105	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10389	10554	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7940	8105	
==>defined $current_class) {
                    # that iterator is exhausted and we 
                    # need to pop it off the stack ...
                    pop @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5435	5564	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3555	3684	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5435	5564	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3555	3684	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5435	5564	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3555	3684	
==>fined $superclasses) {
        confess "You must pass the superclasses in an ARRAY ref"
            unless ref($superclasses) eq ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9354	9500	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12327	12473	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9354	9500	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12327	12473	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9354	9500	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12327	12473	
==>('Perl6::Method');        
        
        package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5787	5954	
==>ent
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5787	5954	
==>ent
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5787	5954	
==>ent
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	223	323	
==>rn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	223	323	
==>rn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	223	323	
==>rn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	320	427	
==>sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	320	427	
==>sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_man <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	320	427	
==>sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_man <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	709	812	
==>reation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	709	812	
==>reation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	709	812	
==>reation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23002	23110	
==>e(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10692	10786	
==>and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrari <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6327	6421	
==>ight be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE_ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10692	10786	
==>and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrari <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6327	6421	
==>ight be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6327	6421	
==>ight be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE_ <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10000	10104	
==>ing); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10000	10104	
==>ing); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	941	1044	
==>_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	941	1044	
==>_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	22199	22301	
==>e a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a t <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26751	26853	
==>e a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10440	10594	
==>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10440	10594	
==>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $se <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10440	10594	
==>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4305	4405	
==>rlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4305	4405	
==>rlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4305	4405	
==>rlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overla <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18496	18605	
==>ns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18692	18801	
==>ns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18906	19015	
==>ns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15481	15582	
==>I SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15481	15582	
==>I SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15481	15582	
==>I SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8400	8512	
==>n "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8400	8512	
==>n "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8400	8512	
==>n "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7411	7510	
==>new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7411	7510	
==>new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7411	7510	
==>new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4405	4568	
==>n;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4405	4568	
==>n;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_cou <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4405	4568	
==>n;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_cou <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1462	1592	
==>TRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_p <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1462	1592	
==>TRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_p <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6005	6122	
==>return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($cont <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2896	3048	
==>_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2896	3048	
==>_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2896	3048	
==>_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pa <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5995	6086	
==>de_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
n <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5995	6086	
==>de_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
n <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2894	2985	
==>de_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
n <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3103	3238	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6096	6231	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3376	3504	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9794	9922	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3376	3504	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9794	9922	
==>reedy_plus( $node ) );
}

sub non_greedy_star { 
    my $node = shift;
    alternation( [ 
        null(),
        non_greedy_plu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4566	4723	
==>nt!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $s <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4566	4723	
==>nt!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $s <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23093	23191	
==>annel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a ni <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21902	22000	
==>annel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a ni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23093	23191	
==>annel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a ni <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21902	22000	
==>annel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a ni <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1081	1188	
==>sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((". <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1081	1188	
==>sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((". <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1081	1188	
==>sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((". <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	450	544	
==>ETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	450	544	
==>ETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	450	544	
==>ETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3436	3536	
==>d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3436	3536	
==>d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/ <==
6	/Users/nnunley/pugs/util/build_pugs.pl	3234	3333	
==>rel2abs("dist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($g <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1649	1743	
==>_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1649	1743	
==>_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
su <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1649	1743	
==>_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2989	3111	
==>-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2989	3111	
==>-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2989	3111	
==>-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5137	5237	
==>: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5137	5237	
==>: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5137	5237	
==>: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_p <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3594	3700	
==>, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the dif <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3594	3700	
==>, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the dif <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4469	4573	
==>, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the dif <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4469	4573	
==>, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the dif <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	21606	21700	
==>tributes may be individually addressed only by their names, and all
Relation tuples may be indi <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26158	26252	
==>tributes may be individually addressed only by their names, and all
Relation tuples may be indi <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2348	2462	
==>turn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2348	2462	
==>turn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_sp <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12339	12451	
==>nperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_q <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2468	2573	
==>L2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2468	2573	
==>L2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2468	2573	
==>L2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18574	18734	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15812	15972	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18574	18734	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15812	15972	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18574	18734	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15812	15972	
==>or => 'instance')
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12695	12823	
==>base doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12695	12823	
==>base doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1470	1589	
==>class) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _draw_class_node($class);
        $o <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12494	12605	
==>d $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12494	12605	
==>d $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12494	12605	
==>d $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	846	944	
==>->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	846	944	
==>->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	846	944	
==>->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function ( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6021	6107	
==>r::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::F <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6021	6107	
==>r::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::F <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8218	8304	
==>r::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::F <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7738	7897	
==>a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7738	7897	
==>a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7738	7897	
==>a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4131	4231	
==>h|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4131	4231	
==>h|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4131	4231	
==>h|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5411	5509	
==>sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5411	5509	
==>sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5411	5509	
==>sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34347	34442	
==>::Translator object.
The Set Names property of the new object is set from the named parameter
@s <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34347	34442	
==>::Translator object.
The Set Names property of the new object is set from the named parameter
@s <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48394	48479	
==>::Module = $::Class->send('new');
$::Module->send('superclasses' => list->new($::Packa <==
6	/Users/nnunley/pugs/examples/hop6/Lexer.pm	351	454	
==>l, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurpy magic doesn't work too well <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5223	5347	
==>l(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5223	5347	
==>l(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5223	5347	
==>l(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40930	41041	
==>}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40930	41041	
==>}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container: <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40930	41041	
==>}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20318	20427	
==>oad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20318	20427	
==>oad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20318	20427	
==>oad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1742	1844	
==>ipt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Erro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1742	1844	
==>ipt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Erro <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1742	1844	
==>ipt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Erro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5311	5519	
==>ey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5311	5519	
==>ey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5311	5519	
==>ey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8148	8256	
==>ss definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8148	8256	
==>ss definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retur <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8148	8256	
==>ss definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retur <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1370	1475	
==>tr ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi s <==
6	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	390	495	
==>tr ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	219	318	
==>s {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4227	4326	
==>GetBase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	219	318	
==>s {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	219	318	
==>s {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10253	10382	
==>l
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAI <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2290	2403	
==>l
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6878	6991	
==>_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2290	2403	
==>l
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6878	6991	
==>_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6878	6991	
==>_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1073	1182	
==>symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/memb <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	1053	1162	
==>symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/memb <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1073	1182	
==>symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/memb <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1053	1162	
==>symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/memb <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7967	8058	
==>($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: St <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7967	8058	
==>($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: St <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	6471	6593	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9441	9563	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	6471	6593	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9441	9563	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	6471	6593	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	9441	9563	
==>sMethod');        
        (defined $method && ref($method) eq 'CODE')
            || confess "Bad method body (" . ($metho <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5446	5610	
==>, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5446	5610	
==>, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5446	5610	
==>, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1140	1284	
==>ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_time <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1140	1284	
==>ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_time <==
6	/Users/nnunley/pugs/util/PugsConfig.pm	2704	2833	
==>n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq{("$name", "$va <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3243	3402	
==>}
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3243	3402	
==>}
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3243	3402	
==>}
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( ' <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7083	7184	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6213	6314	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2867	2968	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2867	2968	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7083	7184	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6213	6314	
==>ol {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set $set) returns Bool {
    !$se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3075	3184	
==>s {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3075	3184	
==>s {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$c <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3075	3184	
==>s {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7242	7333	
==>rintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7242	7333	
==>rintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACK <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7242	7333	
==>rintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACK <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9091	9268	
==>'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5451	5628	
==>'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6300	6477	
==>'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4430	4536	
==>ses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4430	4536	
==>ses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4430	4536	
==>ses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11275	11429	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8828	8982	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11275	11429	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8828	8982	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11275	11429	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8828	8982	
==>et the current value out of the iterator
                my $current_class = $stack[0]->();
                # if current is null then ...
                i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2198	2313	
==>quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2198	2313	
==>quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2198	2313	
==>quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1018	1109	
==>_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1018	1109	
==>_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1018	1109	
==>_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_( <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	11165	11285	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12636	12756	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14642	14762	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16113	16233	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13950	14070	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15475	15595	
==>nd source.
        return $other;
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tup <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8611	8753	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11584	11726	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8611	8753	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11584	11726	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8611	8753	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11584	11726	
==>eeded until we 
            # can properly handle the forcing of method
            # calls without the use of the FORCE 
            # paramet <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5009	5147	
==>isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5009	5147	
==>isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->ce <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5009	5147	
==>isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->ce <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	80	215	
==>S = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.ur <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	80	215	
==>S = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.ur <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13318	13426	
==>rl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1894	1998	
==>";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1894	1998	
==>";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1894	1998	
==>";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1194	1291	
==>mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("War <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1194	1291	
==>mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("War <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1194	1291	
==>mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("War <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25643	25771	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27838	27966	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25643	25771	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27838	27966	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25643	25771	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27838	27966	
==>->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	732	830	
==>ever



Continuations are used for backtracking.



A "ruleop" function gets some arguments and ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10600	10698	
==>ever

Continuations are used for backtracking.

A "ruleop" function gets some arguments and ret <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	704	798	
==>ever

Continuations are used for backtracking.

A "ruleop" function gets some arguments and ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14495	14581	
==>:Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14495	14581	
==>:Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14495	14581	
==>:Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9643	9802	
==>t_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1732	1883	
==>t_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $ <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1732	1883	
==>t_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2712	2815	
==>unction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(jun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2712	2815	
==>unction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(jun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2712	2815	
==>unction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(jun <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7657	7779	
==>ay {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !defined $ra->[$i] <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3230	3329	
==>) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_dif <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3230	3329	
==>) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_dif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1202	1320	
==>rn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1202	1320	
==>rn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1202	1320	
==>rn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	306	404	
==>lurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	306	404	
==>lurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	306	404	
==>lurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_pa <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17818	17934	
==>@methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$cl <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28758	28863	
==>emplate file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28758	28863	
==>emplate file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4185	4288	
==>$ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4185	4288	
==>$ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4185	4288	
==>$ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8195	8309	
==>ub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8195	8309	
==>ub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8195	8309	
==>ub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	48	155	
==>ub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	48	155	
==>ub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	48	155	
==>ub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	44	136	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	216	308	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	44	136	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	216	308	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	44	136	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	216	308	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2897	3000	
==>rt(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2897	3000	
==>rt(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2897	3000	
==>rt(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1404	1504	
==>t or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1404	1504	
==>t or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - cons <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1404	1504	
==>t or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - cons <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11801	11896	
==>m,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11801	11896	
==>m,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	8054	8145	
==>union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(se <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7184	7275	
==>union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8054	8145	
==>union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7184	7275	
==>union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9197	9334	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12170	12307	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9197	9334	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12170	12307	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9197	9334	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12170	12307	
==>d;        
        @Perl6::ClassMethod::ISA = ('Perl6::Method');
        
        package Perl6::PrivateMethod;        
        @Perl6::Pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7135	7280	
==>items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7135	7280	
==>items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "u <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7135	7280	
==>items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1155	1262	
==>nshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1155	1262	
==>nshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {" <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1155	1262	
==>nshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {" <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	691	796	
==>$msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	690	795	
==>$msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	691	796	
==>$msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	690	795	
==>$msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7873	7978	
==>s



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7606	7705	
==>s

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	586	701	
==>od($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	586	701	
==>od($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $c <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	586	701	
==>od($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $c <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25201	25293	
==>thod returns a Bool indicating whether the immutable identity of the
argument C<$other> equal <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29753	29845	
==>thod returns a Bool indicating whether the immutable identity of the
argument C<$other> equal <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28683	28775	
==>thod returns a Bool indicating whether the immutable identity of the
argument C<$other> equal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	124	254	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	119	249	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	124	254	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	119	249	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	124	254	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	119	249	
==>ys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  die unless @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9073	9185	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6620	6732	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9073	9185	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6620	6732	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9073	9185	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6620	6732	
==>f, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($order)) || $ord <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3889	3985	
==><$description> is the optional
description of the test.  This is the easiest way to match a faili <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1265	1361	
==>oerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3889	3985	
==><$description> is the optional
description of the test.  This is the easiest way to match a faili <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1265	1361	
==>oerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1265	1361	
==>oerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3969	4065	
==><$description> is the optional
description of the test.  This is the easiest way to match a faili <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2794	2897	
==>$code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
su <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3039	3142	
==>$code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
su <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2794	2897	
==>$code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
su <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3039	3142	
==>$code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5329	5426	
==>locks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcul <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5329	5426	
==>locks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10204	10333	
==>not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10204	10333	
==>not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defin <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10204	10333	
==>not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4170	4284	
==>at you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4170	4284	
==>at you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4170	4284	
==>at you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2233	2353	
==>turns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2233	2353	
==>turns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7561	7655	
==>ne, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6691	6785	
==>ne, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7561	7655	
==>ne, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6691	6785	
==>ne, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	644	746	
==>n-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	644	746	
==>n-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tie <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	644	746	
==>n-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tie <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38414	38509	
==>ODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42963	43058	
==>ODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42613	42708	
==>ODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7947	8071	
==>"<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13541	13665	
==>"<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7947	8071	
==>"<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13535	13659	
==>"<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq ' <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	589	688	
==>set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_sing <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	589	688	
==>set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_sing <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1462	1559	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1907	2004	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1462	1559	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1907	2004	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1462	1559	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1907	2004	
==>if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7023	7127	
==>kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$cha <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7023	7127	
==>kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$cha <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27375	27473	
==>s attributes; they
must all be set when the object is constructed.  If you want to
conceptually cha <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34901	34999	
==>s attributes;
they must all be set when the object is constructed.  If you want to
conceptually cha <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27375	27473	
==>s attributes; they
must all be set when the object is constructed.  If you want to
conceptually cha <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34901	34999	
==>s attributes;
they must all be set when the object is constructed.  If you want to
conceptually cha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13230	13361	
==>ot be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13230	13361	
==>ot be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13230	13361	
==>ot be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	482	606	
==>ist"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	482	606	
==>ist"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	482	606	
==>ist"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9523	9628	
==>_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9523	9628	
==>_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9523	9628	
==>_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	192	293	
==>> "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	192	293	
==>> "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{C <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	192	293	
==>> "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{C <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	605	714	
==>$count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	605	714	
==>$count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	605	714	
==>$count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5035	5134	
==>@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pri <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5035	5134	
==>@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pri <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5035	5134	
==>@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3727	3824	
==>$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is re <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3727	3824	
==>$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is re <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4317	4414	
==>$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3559	3671	
==>my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate t <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4876	4988	
==>my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3559	3671	
==>my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4864	4976	
==>my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate t <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	609	698	
==>Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-No <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	609	698	
==>Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-No <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1583	1694	
==>2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4786	4897	
==>2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	4168	4269	
==>_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4168	4269	
==>_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	405	505	
==>_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	405	505	
==>_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	263	361	
==>rate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlifi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	263	361	
==>rate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlifi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	263	361	
==>rate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlifi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7312	7407	
==>tance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7312	7407	
==>tance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7312	7407	
==>tance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3297	3410	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6233	6346	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3297	3410	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6233	6346	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3297	3410	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6233	6346	
==>ence wrapper for binding/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        re <==
6	/Users/nnunley/pugs/util/ghc_setup.pl	987	1103	
==>on failed (exit code $rv).
.
}

exit $rv;

sub is_root {
    local $@;
    eval('$> == 0') || $@; # System with no co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	273	373	
==>re info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	273	373	
==>re info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	273	373	
==>re info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27890	27982	
==>et_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associat <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27890	27982	
==>et_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associat <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7053	7154	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6183	6284	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2837	2938	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2837	2938	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7053	7154	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6183	6284	
==>(Set $one, $member) returns Bool {
    !$one.includes($member);
}
multi sub *infix:<∉> ($member, Set <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2908	3004	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10831	10927	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6033	6129	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2908	3004	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10831	10927	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6033	6129	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_str (Str $meth!, Str $arg!, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1872	1989	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3435	3552	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1872	1989	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3435	3552	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1872	1989	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3435	3552	
==>are
    # called 'iterators', they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5430	5524	
==>Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5430	5524	
==>Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomme <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5430	5524	
==>Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomme <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7932	8048	
==>ame) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7932	8048	
==>ame) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7932	8048	
==>ame) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1656	1757	
==>BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1656	1757	
==>BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dis <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1656	1757	
==>BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dis <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4653	4788	
==>he private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleto <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4653	4788	
==>he private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleto <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4653	4788	
==>he private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleto <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	723	851	
==>CH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	723	851	
==>CH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummy <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	723	851	
==>CH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummy <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18031	18200	
==>thod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18031	18200	
==>thod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18031	18200	
==>thod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1533	1629	
==>attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1533	1629	
==>attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1533	1629	
==>attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3597	3740	
==>d ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3597	3740	
==>d ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3597	3740	
==>d ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	106	221	
==>, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	106	221	
==>, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	106	221	
==>, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1724	1818	
==>(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1724	1818	
==>(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1724	1818	
==>(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	728	819	
==>aque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	728	819	
==>aque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	728	819	
==>aque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7849	7959	
==>ame ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7849	7959	
==>ame ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $j <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7849	7959	
==>ame ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19207	19312	
==>ally wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19207	19312	
==>ally wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19207	19312	
==>ally wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9251	9393	
==>r::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $descri <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1373	1509	
==>r::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descri <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1373	1509	
==>r::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1173	1282	
==>);
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1173	1282	
==>);
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: * <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1173	1282	
==>);
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: * <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4896	5000	
==>self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4896	5000	
==>self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4896	5000	
==>self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2457	2559	
==>'isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2457	2559	
==>'isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatche <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2457	2559	
==>'isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatche <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4311	4410	
==>unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4311	4410	
==>unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4901	5000	
==>unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12024	12112	
==>::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12024	12112	
==>::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12024	12112	
==>::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	152	556	
==>odel-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.7 <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	152	556	
==>odel-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.7 <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19706	19804	
==>ile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	497	587	
==>ALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.aco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	497	587	
==>ALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.aco <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	497	587	
==>ALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.aco <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1714	1812	
==>*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } cat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1714	1812	
==>*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } cat <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1714	1812	
==>*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } cat <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	26236	26331	
==>the original's attributes; that subset is the same as
those attribute names in the argument C<$a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30788	30883	
==>the original's attributes; that subset is the same as
those attribute names in the argument C<$a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29781	29876	
==>the original's attributes; that subset is the same as
those attribute names in the argument C<$a <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5706	5909	
==>t ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        e <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11658	11851	
==>!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\' <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7940	8133	
==>!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8774	8967	
==>!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3184	3314	
==>"PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$fie <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3184	3314	
==>"PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$fie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1868	1984	
==>" than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1868	1984	
==>" than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1868	1984	
==>" than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	148	243	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	148	243	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), st <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	148	243	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), st <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3270	3390	
==>';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3258	3378	
==>';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5896	5999	
==>ration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5896	5999	
==>ration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5896	5999	
==>ration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2529	2621	
==>itter::Rule::Perl5::Ratchet> converts parsed :ratchet Rules to Perl 5 code.

=back

=head2 Im <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1409	1557	
==>" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _dra <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	619	741	
==>~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ms <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	619	741	
==>~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ms <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18123	18219	
==>all of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
arra <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18123	18219	
==>all of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
arra <==
6	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3147	3241	
==>defaults:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetches a kernel from the In <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4086	4234	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7022	7170	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4086	4234	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7022	7170	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4086	4234	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7022	7170	
==>me class as before 
        # because this operation should be 
        # fairly transparent to anything 
        # outside of the Role.
        } => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4443	4543	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8089	8189	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4443	4543	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8089	8189	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4443	4543	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8089	8189	
==>e->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2787	2909	
==>proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2787	2909	
==>proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2787	2909	
==>proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4927	5046	
==>($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4927	5046	
==>($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4927	5046	
==>($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2565	2676	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3665	3776	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2565	2676	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3665	3776	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2565	2676	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3665	3776	
==>if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::mak <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	465	579	
==>sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::provides($digest);
    ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	505	605	
==>etermine which stack frame points to the code we are filtering.
# This is a method in case it needs t <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	505	605	
==>etermine which stack frame points to the code we are filtering.
# This is a method in case it needs t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	245	342	
==>:Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	245	342	
==>:Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$v <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	245	342	
==>:Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$v <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9848	9962	
==>ram, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defi <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15689	15803	
==>ram, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9848	9962	
==>ram, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15683	15797	
==>ram, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defi <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	697	792	
==>onversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shi <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1287	1382	
==>onversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	390	498	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	383	491	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	390	498	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	383	491	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	390	498	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	383	491	
==>sion";

  return PIL::possibly_ccify $self->{pLHS}, sub {
    my $dest = shift;
    return PIL::possibly_ccif <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8177	8291	
==>(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8177	8291	
==>(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var b <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8177	8291	
==>(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var b <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2755	2853	
==>ds')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2755	2853	
==>ds')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2755	2853	
==>ds')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9695	9806	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12668	12779	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9695	9806	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12668	12779	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9695	9806	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12668	12779	
==>o stash the current dispatcher
    # for use by 'next METHOD', the other of which 
    # is to deal with the spe <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1785	1903	
==>$curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, e <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1785	1903	
==>$curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4763	4879	
==>})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4763	4879	
==>})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4763	4879	
==>})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl <==
6	/Users/nnunley/pugs/util/run-smoke.pl	2094	2205	
==>'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1092	1188	
==>is typically useful when your object belongs to a
package that is too close to the main namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1092	1188	
==>is typically useful when your object belongs to a
package that is too close to the main namespace <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1092	1188	
==>is typically useful when your object belongs to a
package that is too close to the main namespace <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9526	9614	
==>B Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9526	9614	
==>B Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9526	9614	
==>B Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requi <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	6721	6833	
==>my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1163	1269	
==>my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1163	1269	
==>my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1163	1269	
==>my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1912	2001	
==>epresents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Matc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2001	2090	
==>epresents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9895	10008	
==>2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9895	10008	
==>2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9895	10008	
==>2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
} <==
6	/Users/nnunley/pugs/util/drift.pl	219	317	
==>rtable.

$ENV{DERIVEPATH} = "$Bin/../src";

my ($in) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11800	11896	
==>. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $res <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11800	11896	
==>. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $res <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	17225	17369	
==>sts->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bo <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2138	2259	
==>constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'i <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11006	11127	
==>constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2331	2452	
==>constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'i <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11285	11406	
==>constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'i <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9150	9258	
==>@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	694	840	
==>ken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	694	840	
==>ken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	694	840	
==>ken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5576	5670	
==>o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5576	5670	
==>o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5576	5670	
==>o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8380	8500	
==>alize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8380	8500	
==>alize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cla <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8380	8500	
==>alize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cla <==
6	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	525	632	
==>port {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orginal = $1;
		$s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2204	2303	
==> (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) { <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2204	2303	
==> (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) { <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9029	9126	
==>all twice"); }
  previous_comp_hook = PL_regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_h <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5788	5881	
==>%UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5788	5881	
==>%UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    " <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5788	5881	
==>%UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    " <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2840	2929	
==>.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 CO <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2840	2929	
==>.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 CO <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9715	9863	
==>lock} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{exp2}{p <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9502	9621	
==>turn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9502	9621	
==>turn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9502	9621	
==>turn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispa <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	759	852	
==>() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_s <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	759	852	
==>() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	987	1135	
==>ELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	987	1135	
==>ELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF-> <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	987	1135	
==>ELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF-> <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4454	4543	
==>rns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4454	4543	
==>rns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6651	6740	
==>rns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	10965	11098	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	12436	12569	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14442	14575	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15913	16046	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13750	13883	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15275	15408	
==>.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() == <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4376	4476	
==>for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4376	4476	
==>for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«< <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32059	32157	
==>each that corresponds to language A, looking for a match to said error
message.  If it finds one, t <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32059	32157	
==>each that corresponds to language A, looking for a match to said error
message.  If it finds one, t <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5249	5346	
==>for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«< <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5249	5346	
==>for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«< <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32365	32475	
==>is method will fail if
C<$other> does not have an identical header to the invocant relation.  This
method has a <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34060	34170	
==>is method will fail if C<$other> does not have
an identical header to the invocant relation.  This method has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36915	37025	
==>is method will fail if
C<$other> does not have an identical header to the invocant relation.  This
method has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38610	38720	
==>is method will fail if C<$other> does not have
an identical header to the invocant relation.  This method has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36205	36315	
==>is method will fail if
C<$other> does not have an identical header to the invocant relation.  This
method has a <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38071	38181	
==>is method will fail if C<$other> does not have
an identical header to the invocant relation.  This method has a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	60	161	
==>del::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	60	161	
==>del::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	60	161	
==>del::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22829	22921	
==>v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22829	22921	
==>v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22829	22921	
==>v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3581	3709	
==>ait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type> <==
6	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3581	3709	
==>ait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type> <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8187	8294	
==>lse if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	8579	8686	
==>lse if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8187	8294	
==>lse if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8579	8686	
==>lse if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5397	5518	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8367	8488	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5397	5518	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8367	8488	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5397	5518	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8367	8488	
==>n in Perl 5
        # it seems that sometimes when a sub being returned
        # from another sub has the same opcodes (a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5444	5558	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8414	8528	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5444	5558	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8414	8528	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5444	5558	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8414	8528	
==>hen a sub being returned
        # from another sub has the same opcodes (a constant
        # subroutine basically <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7846	7961	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10769	10884	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7846	7961	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10769	10884	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7846	7961	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10769	10884	
==>test can be overridden.
    sub ::make_submethod ($) {
        my ($method) = @_;
        return $method if blessed( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17349	17473	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22057	22181	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17349	17473	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22057	22181	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17349	17473	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22057	22181	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12005	12107	
==>n be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sc <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12437	12539	
==>n be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sc <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12005	12107	
==>n be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sc <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12437	12539	
==>n be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sc <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16084	16178	
==>hat the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16084	16178	
==>hat the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24741	24885	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26930	27074	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24741	24885	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26930	27074	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24741	24885	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26930	27074	
==>} : _('$:cell')->{v};
                # warn "ELEMS ",$self->elems;
                $samples-- if defined $samples;
                $samples = 10 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16585	16687	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21302	21404	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16585	16687	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21302	21404	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16585	16687	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21302	21404	
==>Y
# on all them, then set a flag to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11405	11535	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16135	16265	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11405	11535	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16135	16265	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11405	11535	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16135	16265	
==>me GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ($self)" 
        return unle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5622	5724	
==>pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5622	5724	
==>pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    M <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5622	5724	
==>pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    M <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5118	5213	
==>.
The editor routine is passed the current object in the recursion and
the wanted namespace ("My <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5118	5213	
==>.
The editor routine is passed the current object in the recursion and
the wanted namespace ("My <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5118	5213	
==>.
The editor routine is passed the current object in the recursion and
the wanted namespace ("My <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	270	370	
==>s, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	270	370	
==>s, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	270	370	
==>s, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	38879	38976	
==>COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. D <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43693	43790	
==>COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. D <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43227	43324	
==>COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. D <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8950	9103	
==>= max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @ <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8950	9103	
==>= max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	914	1050	
==>e});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	914	1050	
==>e});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	914	1050	
==>e});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opa <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	4645	4738	
==>self = shift;
	map { $_->free_vars} $self->left, $self->right;
}

package type::operator::nary <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1762	1886	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3325	3449	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1762	1886	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3325	3449	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1762	1886	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3325	3449	
==>ef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are detailed in A12 and are
    # calle <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37752	37874	
==>l6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37752	37874	
==>l6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37752	37874	
==>l6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16591	16704	
==>g
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13012	13125	
==>g
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->o <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	833	943	
==>> <op> <equal>', 
    infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	300	440	
==>ole"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	300	440	
==>ole"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess ' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	300	440	
==>ole"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1460	1559	
==>r(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1460	1559	
==>r(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == u <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1460	1559	
==>r(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	192	301	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	187	296	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	192	301	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	187	296	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	192	301	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	187	296	
==>ess @{ $self->{pLHS} } == 1;

  return bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6954	7079	
==>_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6954	7079	
==>_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = sh <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6954	7079	
==>_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2982	3105	
==>ion = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2982	3105	
==>ion = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cla <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2982	3105	
==>ion = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cla <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	901	1032	
==>. ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!',
        asso <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3895	3998	
==>@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @strin <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3895	3998	
==>@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @strin <==
6	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	21	133	
==>chleife in Perl 6
use v6;
my $i = 1;
loop { # dies ist eine echte Schleife, daher...
	say $i; $i++;
	# last if $i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8895	8989	
==>, "Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(a <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19593	19686	
==>Note that thesse are I<not>
necessarily the names you specified in the constructor. For exampl <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18574	18667	
==>Note that thesse are I<not>
necessarily the names you specified in the constructor. For exampl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19593	19686	
==>Note that thesse are I<not>
necessarily the names you specified in the constructor. For exampl <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18574	18667	
==>Note that thesse are I<not>
necessarily the names you specified in the constructor. For exampl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15109	15238	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15109	15238	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
})) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15109	15238	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
})) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12363	12491	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12363	12491	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12363	12491	
==>tes')->{$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7742	7845	
==>";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7742	7845	
==>";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7742	7845	
==>";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13221	13318	
==>{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13221	13318	
==>{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13221	13318	
==>{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %par <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	14239	14357	
==>expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @v <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4308	4418	
==>expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4308	4418	
==>expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @v <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4308	4418	
==>expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @v <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	3003	3106	
==>);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3003	3106	
==>);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1216	1402	
==>F->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1216	1402	
==>F->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1216	1402	
==>F->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6368	6465	
==>rs are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6368	6465	
==>rs are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6368	6465	
==>rs are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14296	14415	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11562	11681	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14296	14415	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11562	11681	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14296	14415	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11562	11681	
==>self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13954	14068	
==>o'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13954	14068	
==>o'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13954	14068	
==>o'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6554	6646	
==>oduce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6554	6646	
==>oduce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6554	6646	
==>oduce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8373	8491	
==>[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8373	8491	
==>[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8373	8491	
==>[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1917	2013	
==>PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1917	2013	
==>PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = q <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1917	2013	
==>PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19984	20102	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17123	17241	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19984	20102	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17123	17241	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19984	20102	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17123	17241	
==>tributes with the meta model, 
        # class attributes are just package scoped "our" variables
        # so they are <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	644	782	
==>int "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	655	793	
==>int "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        captur <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2007	2099	
==>ake encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2369	2461	
==>ake encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[ <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2007	2099	
==>ake encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[ <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2369	2461	
==>ake encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[ <==
6	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5570	5669	
==>er  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule simple_characte <==
6	/Users/nnunley/pugs/blib6/lib/Date.pm	4912	5009	
==>urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is fr <==
6	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4912	5009	
==>urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is fr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2332	2426	
==>$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2332	2426	
==>$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Strin <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2332	2426	
==>$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Strin <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2042	2215	
==>rs{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_d <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2042	2215	
==>rs{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_d <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2383	2517	
==>r ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), return;
# 
#         ### copy these sources to a build di <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9790	9911	
==>_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

meth <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9790	9911	
==>_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

meth <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	24582	24672	
==>row->new(
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::fr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4230	4356	
==>return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4370	4496	
==>return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	109	224	
==>'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string' <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	109	224	
==>'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string' <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	109	224	
==>'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string' <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	109	224	
==>'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string' <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	410	541	
==>rd    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	410	541	
==>rd    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2253	2347	
==>Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2253	2347	
==>Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1480	1570	
==>Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3341	3431	
==>Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4288	4385	
==>..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5185	5282	
==>..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4288	4385	
==>..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5185	5282	
==>..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19494	19588	
==>change
your main program.

I<Note that an update is planned for Locale::KeyedText that will ena <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19494	19588	
==>change
your main program.

I<Note that an update is planned for Locale::KeyedText that will ena <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11224	11347	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2340	2463	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7434	7557	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11224	11347	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2340	2463	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7434	7557	
==>tr $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8121	8481	
==>'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8121	8481	
==>'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1623	1724	
==>ues  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@indextests --> Int|List )
{
    my @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1450	1547	
==>c_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1450	1547	
==>c_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1450	1547	
==>c_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4441	4746	
==>e}} = 1;
                    $s .= ' ' .
                        $_ eq 'list' 
                            ? $_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1197	1333	
==>.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1197	1333	
==>.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1197	1333	
==>.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14780	14887	
==>_WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14780	14887	
==>_WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14780	14887	
==>_WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10698	10840	
==>everse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10698	10840	
==>everse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10698	10840	
==>everse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum = <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1111	1200	
==>JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1111	1200	
==>JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1111	1200	
==>JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9743	9859	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12716	12832	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9743	9859	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12716	12832	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9743	9859	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12716	12832	
==>'next METHOD', the other of which 
    # is to deal with the special case of the
    # early $::Class object.

    su <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13763	13899	
==>\n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast-> <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9947	10083	
==>\n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10783	10919	
==>\n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast-> <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11209	11342	
==>],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{vis} };
  } <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1824	1927	
==>ts:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1824	1927	
==>ts:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33277	33483	
==>t_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33277	33483	
==>t_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_le <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33277	33483	
==>t_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_le <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7450	7563	
==>self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7450	7563	
==>self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7450	7563	
==>self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4329	4453	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6978	7102	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4558	4679	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11007	11128	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4558	4679	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11007	11128	
==>Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capture});
        #warn 'post-return: ', Du <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11186	11306	
==>ntify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11186	11306	
==>ntify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11186	11306	
==>ntify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14980	15076	
==>MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB j <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14980	15076	
==>MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB j <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14980	15076	
==>MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB j <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1435	1537	
==>:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1435	1537	
==>:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1435	1537	
==>:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	197	293	
==>itive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	197	293	
==>itive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	197	293	
==>itive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13804	13903	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13804	13903	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13804	13903	
==>::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	898	994	
==>ackage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	898	994	
==>ackage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	898	994	
==>ackage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2364	2462	
==>, this port does it's best to work with those limitations and 
still produce a working version of F <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2364	2462	
==>, this port does it's best to work with those limitations and 
still produce a working version of F <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	25840	25934	
==>il if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> v <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30392	30486	
==>il if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> v <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2750	2837	
==>pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_nam <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2750	2837	
==>pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1946	2072	
==>sh.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1946	2072	
==>sh.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1946	2072	
==>sh.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12356	12462	
==>lue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12356	12462	
==>lue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12356	12462	
==>lue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11390	11540	
==>ew(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11390	11540	
==>ew(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11390	11540	
==>ew(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	120	223	
==>ss $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	120	223	
==>ss $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $sel <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	120	223	
==>ss $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $sel <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1141	1314	
==>ool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1141	1314	
==>ool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1141	1314	
==>ool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10799	10943	
==>);
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10799	10943	
==>);
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => s <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10799	10943	
==>);
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => s <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5681	5778	
==>n set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5681	5778	
==>n set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7205	7302	
==>n set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5441	5539	
==>t $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giv <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5441	5539	
==>t $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giv <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6965	7063	
==>t $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giv <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5105	5198	
==>ng on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B< <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5105	5198	
==>ng on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6629	6722	
==>ng on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9273	9409	
==>start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cen <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9273	9409	
==>start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cen <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9273	9409	
==>start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cen <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12819	12919	
==>see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12819	12919	
==>see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12819	12919	
==>see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	24	135	
==>l;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	24	135	
==>l;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	24	135	
==>l;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2268	2362	
==>')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2268	2362	
==>')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $lab <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2268	2362	
==>')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $lab <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7141	7285	
==>should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7141	7285	
==>should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7141	7285	
==>should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13574	13670	
==>fix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13574	13670	
==>fix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13574	13670	
==>fix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	153	261	
==>();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	153	261	
==>();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5449	5546	
==>, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4579	4676	
==>, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5449	5546	
==>, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4579	4676	
==>, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7711	7813	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6841	6943	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3427	3529	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3427	3529	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7711	7813	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6841	6943	
==>ber);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary.
mul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10204	10407	
==>, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10204	10407	
==>, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( sc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10204	10407	
==>, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( sc <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8118	8303	
==>ocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => ' <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12108	12252	
==>ocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => ' <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12108	12252	
==>ocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => ' <==
6	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1346	1483	
==>}
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00 <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1346	1483	
==>}
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00 <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24997	25094	
==>ediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAM <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23761	23858	
==>ediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAM <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24997	25094	
==>ediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAM <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23761	23858	
==>ediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAM <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28433	28558	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28712	28837	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5220	5335	
==>new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$co <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6488	6603	
==>new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5220	5335	
==>new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$co <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6476	6591	
==>new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9889	9999	
==>NV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9889	9999	
==>NV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9889	9999	
==>NV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12645	12739	
==>if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12645	12739	
==>if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12645	12739	
==>if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9243	9346	
==>1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9243	9346	
==>1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $de <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9243	9346	
==>1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6507	6604	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6507	6604	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6507	6604	
==>= (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8251	8369	
==>items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8251	8369	
==>items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8251	8369	
==>items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8223	8334	
==>y @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8223	8334	
==>y @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8223	8334	
==>y @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3254	3364	
==>e?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3254	3364	
==>e?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3254	3364	
==>e?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1842	1946	
==>$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1842	1946	
==>$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1842	1946	
==>$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21571	21669	
==>elow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

= <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20452	20550	
==>elow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

= <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21571	21669	
==>elow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

= <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20452	20550	
==>elow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

= <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	16983	17080	
==>value.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compar <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16983	17080	
==>value.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24531	24704	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26720	26893	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24531	24704	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26720	26893	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24531	24704	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26720	26893	
==>INT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $array->unboxed; # _('$ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24851	24947	
==>ou post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23615	23711	
==>ou post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24851	24947	
==>ou post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23615	23711	
==>ou post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructo <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	755	847	
==>til::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	755	847	
==>til::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	426	532	
==>) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canida <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	426	532	
==>) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canida <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	426	532	
==>) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canida <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	888	988	
==>lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	888	988	
==>lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	888	988	
==>lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	37	153	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	32	148	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	37	153	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	32	148	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	37	153	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	32	148	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5800	6023	
==>'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5800	6023	
==>'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNam <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5800	6023	
==>'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNam <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4115	4243	
==>sub => $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33631	33727	
==>d list one or more elements where each
element is a Template module Member Name and usually corre <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33631	33727	
==>d list one or more elements where each
element is a Template module Member Name and usually corre <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4054	4160	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4309	4415	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4563	4669	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4054	4160	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4309	4415	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4563	4669	
==>])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35902	35998	
==>common attribute names
and corresponding common tuple values are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37645	37741	
==>common attribute names and corresponding common tuple values
are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40452	40548	
==>common attribute names
and corresponding common tuple values are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42194	42290	
==>common attribute names and corresponding common tuple values
are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40066	40162	
==>common attribute names
and corresponding common tuple values are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41844	41940	
==>common attribute names and corresponding common tuple values
are aligned and merged.  The heading <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1966	2108	
==>self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1966	2108	
==>self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1966	2108	
==>self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1503	1613	
==>Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1503	1613	
==>Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1503	1613	
==>Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2439	2547	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7878	7986	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2439	2547	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7878	7986	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2439	2547	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7878	7986	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22639	22740	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22869	22970	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22639	22740	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22869	22970	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22639	22740	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22869	22970	
==>1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defin <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24327	24528	
==>( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24327	24528	
==>( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24327	24528	
==>( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	19	115	
==>ls::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	19	115	
==>ls::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	19	115	
==>ls::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5352	5481	
==>much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  ) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5352	5481	
==>much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  ) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5352	5481	
==>much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4076	4180	
==>ed $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4076	4180	
==>ed $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4076	4180	
==>ed $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15349	15462	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20082	20195	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15349	15462	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20082	20195	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15349	15462	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20082	20195	
==>am not 100% sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8045	8171	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10968	11094	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8045	8171	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10968	11094	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8045	8171	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10968	11094	
==>ef($method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8054	8177	
==>{
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8054	8177	
==>{
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8054	8177	
==>{
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24397	24512	
==>se {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24397	24512	
==>se {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

s <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24397	24512	
==>se {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11689	11794	
==>XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11689	11794	
==>XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined() <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11689	11794	
==>XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined() <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	7342	7440	
==>ther!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10819	10917	
==>ther!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Re <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9956	10054	
==>ther!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Re <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3850	3943	
==>ve up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephras <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3850	3943	
==>ve up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephras <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	516	641	
==>dline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_pars <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	516	641	
==>dline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_pars <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5442	5550	
==>( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5442	5550	
==>( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6400	6507	
==>>rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pu <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6184	6289	
==>>rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3327	3435	
==>]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3327	3435	
==>]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $se <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3327	3435	
==>]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4410	4502	
==>ent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4410	4502	
==>ent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4410	4502	
==>ent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8346	8581	
==>stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8346	8581	
==>stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            p <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8346	8581	
==>stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5713	5839	
==>thod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5713	5839	
==>thod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5713	5839	
==>thod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25616	25733	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27811	27928	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25616	25733	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27811	27928	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25616	25733	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27811	27928	
==>Perl6::Value::numify( $self->elems )." + $_ >= scalar ".(scalar @start)."\n";
                    last unless Perl6::V <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5368	5509	
==>one => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5368	5509	
==>one => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5368	5509	
==>one => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2820	2923	
==>me = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2820	2923	
==>me = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2820	2923	
==>me = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^ <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13219	13402	
==>copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = subs <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3400	3559	
==>copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3400	3559	
==>copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3400	3559	
==>copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subs <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11878	12005	
==>upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pr <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11872	11999	
==>upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pr <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23579	23747	
==>k only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23579	23747	
==>k only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23579	23747	
==>k only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5043	5174	
==>'(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5043	5174	
==>'(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5043	5174	
==>'(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3033	3164	
==>e) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $modul <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3033	3164	
==>e) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $modul <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	217	343	
==>_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	217	343	
==>_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16656	16753	
==>n file that comes
with this "Rosetta" distribution.

While it is possible that one could write a s <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16656	16753	
==>n file that comes
with this "Rosetta" distribution.

While it is possible that one could write a s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	631	732	
==>y($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	401	502	
==>y($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	401	502	
==>y($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1570	1656	
==>rimitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1570	1656	
==>rimitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1570	1656	
==>rimitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5196	5325	
==>gs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5196	5325	
==>gs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5196	5325	
==>gs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	9868	9990	
==>lf:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.wi <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9868	9990	
==>lf:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.wi <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1069	1164	
==>LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2892	3018	
==>ELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2892	3018	
==>ELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2892	3018	
==>ELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7078	7182	
==>rity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7078	7182	
==>rity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_me <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7078	7182	
==>rity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_me <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5539	5799	
==>y
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6388	6648	
==>y
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3324	3433	
==>aque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sy <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3324	3433	
==>aque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sy <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3324	3433	
==>aque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sy <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6985	7093	
==>3 % $n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint3 <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2828	2932	
==>pec->catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1973	2073	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1973	2073	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1973	2073	
==>dd_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	892	991	
==>ib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($out <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	892	991	
==>ib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($out <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8961	9167	
==>aram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8961	9167	
==>aram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8961	9167	
==>aram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	991	1139	
==>=> 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] = <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	950	1093	
==>=> 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5333	5431	
==>($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the Class method
fails_ok { $iFoo->n <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6204	6351	
==>en);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to thr <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5277	5424	
==>en);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to thr <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6204	6351	
==>en);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to thr <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5277	5424	
==>en);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to thr <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1571	1693	
==>or return;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->con <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5870	5964	
==>) }
sub hlp_rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { de <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	65	186	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	60	181	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	65	186	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	60	181	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	65	186	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	60	181	
==>ub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unless ref $self->{pLHS} eq "ARRAY";
  di <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	496	595	
==>ctors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - thi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1041	1140	
==>ctors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - thi <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	496	595	
==>ctors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1041	1140	
==>ctors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - thi <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1041	1140	
==>ctors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - thi <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27703	27795	
==>))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5584	5689	
==>further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5584	5689	
==>further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5584	5689	
==>further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3381	3481	
==>array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3381	3481	
==>array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var js <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3381	3481	
==>array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var js <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2358	2488	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4685	4815	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2358	2488	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4685	4815	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2358	2488	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4685	4815	
==>|| confess "You must provide a name for the attribute";
        return bless \$name => 'Perl6::Attribute';
    }
    
    sub ::mak <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2490	2605	
==>f($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2490	2605	
==>f($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2490	2605	
==>f($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2062	2158	
==>reludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2062	2158	
==>reludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** P <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2062	2158	
==>reludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** P <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4595	4699	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7531	7635	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4595	4699	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7531	7635	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4595	4699	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7531	7635	
==>confess "Bad method (" . ($method || 'undef') . ")";
        (blessed($associated_with) && blessed($assoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5997	6123	
==>0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5997	6123	
==>0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5997	6123	
==>0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	47	134	
==>rvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	47	134	
==>rvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	47	134	
==>rvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7232	7350	
==>t
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7232	7350	
==>t
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7232	7350	
==>t
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4203	4305	
==>hin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4203	4305	
==>hin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$:: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4203	4305	
==>hin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13608	13788	
==>und_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13608	13788	
==>und_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

clas <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13608	13788	
==>und_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

clas <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	579	678	
==>ABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	579	678	
==>ABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	579	678	
==>ABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10769	10886	
==>HECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10769	10886	
==>HECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scala <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10769	10886	
==>HECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scala <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2197	2302	
==>t can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2197	2302	
==>t can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - m <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2197	2302	
==>t can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3714	3822	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6650	6758	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3714	3822	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6650	6758	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3714	3822	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6650	6758	
==>thod {
        my ($method, $role) = @_;
        (defined $method && blessed($method) && $method->isa('Perl6: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29789	29955	
==>ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29789	29955	
==>ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29789	29955	
==>ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11000	11121	
==>$#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11000	11121	
==>$#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11000	11121	
==>$#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	780	986	
==>atch) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3851	4057	
==>atch) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	780	986	
==>atch) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3851	4057	
==>atch) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0 <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1409	1605	
==>atch) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0 <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1409	1605	
==>atch) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2017	2140	
==>elf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2017	2140	
==>elf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2017	2140	
==>elf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_at <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2309	2411	
==>utovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2309	2411	
==>utovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key)) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2309	2411	
==>utovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key)) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32360	32459	
==>.  This method will fail if
C<$other> does not have an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34055	34154	
==>.  This method will fail if C<$other> does not have
an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36910	37009	
==>.  This method will fail if
C<$other> does not have an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38605	38704	
==>.  This method will fail if C<$other> does not have
an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36200	36299	
==>.  This method will fail if
C<$other> does not have an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38066	38165	
==>.  This method will fail if C<$other> does not have
an identical header to the invocant relation.  T <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14795	14906	
==>ything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14795	14906	
==>ything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14795	14906	
==>ything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2327	2423	
==>r package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2327	2423	
==>r package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2327	2423	
==>r package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5298	5426	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8268	8396	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5298	5426	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8268	8396	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5298	5426	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8268	8396	
==>ub ::make_method ($) {
        my ($method) = @_;
        # this accounts for a strange optimization in Perl 5
        # it seems <==
6	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	297	415	
==>s Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0 <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	297	415	
==>s Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0 <==
6	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	297	415	
==>s Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0 <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	297	415	
==>s Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0 <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1934	2030	
==>e...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item w <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1934	2030	
==>e...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2866	3006	
==>any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2866	3006	
==>any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2866	3006	
==>any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7319	7414	
==>is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fi <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7319	7414	
==>is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fi <==
6	/Users/nnunley/pugs/examples/golf/tsanta.pl	85	178	
==>nks.org/?node_id=438876
# For historical interest, I've left this program pretty much
# unchan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5292	5395	
==>is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_res <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5292	5395	
==>is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_res <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5292	5395	
==>is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_res <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12520	12618	
==>ROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12520	12618	
==>ROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12520	12618	
==>ROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5 <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	105	234	
==>export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3159	3288	
==>export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	105	234	
==>export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3159	3288	
==>export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15827	15943	
==>$min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10683	10799	
==>$min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4437	4577	
==>tcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4437	4577	
==>tcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4437	4577	
==>tcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2860	2959	
==>whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2860	2959	
==>whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2860	2959	
==>whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7239	7372	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4798	4931	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7239	7372	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4798	4931	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7239	7372	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4798	4931	
==>f we have no more no-empty sequences
        return @res if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7856	7998	
==>rg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7856	7998	
==>rg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7856	7998	
==>rg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7056	7160	
==>*here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7056	7160	
==>*here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7056	7160	
==>*here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15795	15935	
==>_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15795	15935	
==>_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15795	15935	
==>_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/ <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2594	2693	
==>stics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $d <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2594	2693	
==>stics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $d <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2674	2773	
==>stics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3438	3536	
==>my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3438	3536	
==>my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFu <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3438	3536	
==>my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFu <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2198	2292	
==>RR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/ <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	11565	11655	
==>his function will compare `$got` and `$expected` using `&compare_func`. This will
eventuall <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11623	11713	
==>his function will compare `$got` and `$expected` using `&compare_func`. This will
eventuall <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	619	756	
==>ocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	619	756	
==>ocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4419	4533	
==>y
        # different. Display the numbers if $type isn't a string operator,
        # and the numbers are stringwi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1313	1421	
==>st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1313	1421	
==>st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1313	1421	
==>st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10308	10449	
==>elete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || ( <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10308	10449	
==>elete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || ( <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2964	3069	
==>er
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3121	3226	
==>er
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2964	3069	
==>er
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3121	3226	
==>er
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	572	682	
==>s({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	572	682	
==>s({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cla <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	572	682	
==>s({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6401	6499	
==>ew('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6401	6499	
==>ew('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'In <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6401	6499	
==>ew('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'In <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2003	2133	
==>$_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7] );
            $state[0] = $st unless $ <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2965	3087	
==>}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2965	3087	
==>}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11904	12011	
==>^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12327	12434	
==>^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4547	4654	
==>^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4970	5077	
==>^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4956	5051	
==>llowing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4956	5051	
==>llowing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22673	22776	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22903	23006	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22673	22776	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22903	23006	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22673	22776	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22903	23006	
==>to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1823	1958	
==>ue_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1823	1958	
==>ue_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1823	1958	
==>ue_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15884	15984	
==>l, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15884	15984	
==>l, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15884	15984	
==>l, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1886	2021	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2248	2383	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2557	2692	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1886	2021	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2248	2383	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2557	2692	
==>@octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(inde <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7361	7509	
==>@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7361	7509	
==>@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7361	7509	
==>@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1696	1801	
==>xit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1696	1801	
==>xit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1696	1801	
==>xit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2J <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2306	2411	
==>urns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method star <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2306	2411	
==>urns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method star <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7463	7559	
==>(Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6593	6689	
==>(Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7463	7559	
==>(Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6593	6689	
==>(Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1778	1905	
==>ASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2521	2648	
==>ASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1778	1905	
==>ASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2509	2636	
==>ASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1074	1189	
==>accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut m <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1074	1189	
==>accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1340	1473	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2903	3036	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1340	1473	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2903	3036	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1340	1473	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2903	3036	
==>s
    # which implement certain global 
    # characteristics of the Perl 6 object 
    # space. 
    
    ## $?SELF, $?CLASS, $?PACKA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6405	6560	
==>cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6405	6560	
==>cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6405	6560	
==>cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            ' <==
6	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9829	9942	
==>t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1623	1722	
==>y parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a sp <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1623	1722	
==>y parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a sp <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4535	4642	
==>p_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{pr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4318	4420	
==>p_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{pr <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11594	11686	
==>=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> i <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8741	8833	
==>=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11594	11686	
==>=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> i <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8741	8833	
==>=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37343	37476	
==>array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37343	37476	
==>array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos ret <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37343	37476	
==>array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos ret <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	23687	23788	
==>but once it has a value of False, it can not be further changed;
this class defaults it to False.

=ba <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28239	28340	
==>but once it has a value of False, it can not be further changed;
this class defaults it to False.

=ba <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27052	27153	
==>but once it has a value of False, it can not be further changed;
this class defaults it to False.

=ba <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1822	1978	
==>al
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                mat <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1822	1978	
==>al
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                mat <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13936	14031	
==>:Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13936	14031	
==>:Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	12360	12454	
==>et1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($se <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12360	12454	
==>et1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($se <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11967	12089	
==>od($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11967	12089	
==>od($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], fo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11967	12089	
==>od($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], fo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2594	2712	
==>"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res), <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2594	2712	
==>"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res), <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2594	2712	
==>"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res), <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14577	14679	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11837	11939	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14577	14679	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11837	11939	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14577	14679	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11837	11939	
==>s defined $label;
    my $method_table = $self->_get_method_table(\%params);
    delete $method_table-> <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	226	348	
==>port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event l <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	230	352	
==>port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event l <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	226	348	
==>port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event l <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	230	352	
==>port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event l <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	83	181	
==>package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	83	181	
==>package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text: <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4371	4568	
==>satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4835	5032	
==>satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8016	8147	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8016	8147	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8016	8147	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	685	811	
==>: $root/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %ar <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15089	15239	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15368	15518	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24983	25079	
==>l commands immediately to the server, but creates a queue, which is then
slowly sent to the serve <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23747	23843	
==>l commands immediately to the server, but creates a queue, which is then
slowly sent to the serve <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24983	25079	
==>l commands immediately to the server, but creates a queue, which is then
slowly sent to the serve <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23747	23843	
==>l commands immediately to the server, but creates a queue, which is then
slowly sent to the serve <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8409	8616	
==>1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8409	8616	
==>1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this re <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8409	8616	
==>1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2181	2281	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2181	2281	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2181	2281	
==>->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2289	2399	
==>=> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2289	2399	
==>=> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2636	2746	
==>=> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	363	466	
==>al $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	363	466	
==>al $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	363	466	
==>al $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9534	9681	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12507	12654	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9534	9681	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12507	12654	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9534	9681	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12507	12654	
==>FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilities, one of which 
    # is <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9586	9719	
==>urn "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return em <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5961	6075	
==>cal $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5961	6075	
==>cal $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5961	6075	
==>cal $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \" <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1200	1310	
==>q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1200	1310	
==>q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8727	8901	
==>$param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8727	8901	
==>$param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self- <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8727	8901	
==>$param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28809	28935	
==>.
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28809	28935	
==>.
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28809	28935	
==>.
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4368	4470	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4592	4694	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4368	4470	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4592	4694	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4368	4470	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4592	4694	
==>Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp.isa(" <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14557	14671	
==>econd;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language. <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14557	14671	
==>econd;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23374	23475	
==>_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23374	23475	
==>_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23374	23475	
==>_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s, <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5108	5198	
==>ax,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, p6_r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2157	2306	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1269	1418	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2157	2306	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1269	1418	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2157	2306	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1269	1418	
==>_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25824	25918	
==>-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains ze <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25824	25918	
==>-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains ze <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6922	7011	
==>st::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

document <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1362	1451	
==>st::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

document <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6922	7011	
==>st::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

document <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1362	1451	
==>st::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

document <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8008	8121	
==>s;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8008	8121	
==>s;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8008	8121	
==>s;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16779	16877	
==>mplements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16779	16877	
==>mplements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=hea <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16779	16877	
==>mplements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4619	4719	
==>e skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=i <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4619	4719	
==>e skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6816	6916	
==>e skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=i <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36839	36937	
==>ion (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41388	41486	
==>ion (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation whe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41011	41109	
==>ion (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation whe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	220	345	
==>(function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	220	345	
==>(function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	220	345	
==>(function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	841	956	
==>}

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	841	956	
==>}

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	841	956	
==>}

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10910	11044	
==>eturn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abor <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7984	8110	
==>eturn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abor <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7984	8110	
==>eturn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	21	108	
==>theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	21	108	
==>theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	21	108	
==>theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2635	2751	
==>map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2635	2751	
==>map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2635	2751	
==>map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	30822	30914	
==>sformation have been eliminated. 
Trivial cases are where C<$transformer> returns either an e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35373	35464	
==>sformation have been eliminated.
Trivial cases are where C<$transformer> returns either an e <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34564	34655	
==>sformation have been eliminated.
Trivial cases are where C<$transformer> returns either an e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9557	9708	
==>_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not matc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9557	9708	
==>_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not matc <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9557	9708	
==>_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not matc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2331	2418	
==>ject->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2331	2418	
==>ject->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2331	2418	
==>ject->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
6	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10889	11011	
==>her($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%op <==
6	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10889	11011	
==>her($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%op <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10863	10968	
==>pan
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10863	10968	
==>pan
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10237	10340	
==>)

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10237	10340	
==>)

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	751	872	
==>carp("ender() ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    m <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	19448	19546	
==>as a table.

The intended interface and use of this class in Perl programs is similar to
the intend <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19861	19959	
==>ode in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
marke <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24000	24098	
==>as a table.

The intended interface and use of this class in Perl programs is similar to
the intend <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22516	22614	
==>as a table.

The intended interface and use of this class in Perl programs is similar to
the intend <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19861	19959	
==>ode in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
marke <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3318	3444	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6254	6380	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3318	3444	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6254	6380	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3318	3444	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6254	6380	
==>ing/unbinding $?PACKAGE
    sub ::wrap_package_sub {
        my ($sub, $pkg) = @_;
        return sub {
            local $::PA <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1912	2023	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2274	2385	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2583	2694	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1912	2023	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2274	2385	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2583	2694	
==>plice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2851	3081	
==>r::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2851	3081	
==>r::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _( <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2851	3081	
==>r::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _( <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2835	2942	
==>Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2835	2942	
==>Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4359	4466	
==>Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3740	3988	
==>rface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=he <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3740	3988	
==>rface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=he <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2216	2433	
==>";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2276	2493	
==>";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                f <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1424	1585	
==>";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        f <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1424	1585	
==>";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13618	13748	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10902	11032	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13618	13748	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10902	11032	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13618	13748	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10902	11032	
==>instance_attr($self => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method ta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3438	3542	
==>:fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3438	3542	
==>:fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->u <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3438	3542	
==>:fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	116	217	
==>ccessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	116	217	
==>ccessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	116	217	
==>ccessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5036	5169	
==>,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5036	5169	
==>,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pa <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5036	5169	
==>,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	202	314	
==>JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	202	314	
==>JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH a <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	202	314	
==>JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH a <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13189	13282	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4359	4452	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8815	8908	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13189	13282	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4359	4452	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8815	8908	
==>me-sake
representative for this whole file, which can be referenced as a unit by
documentation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4900	5001	
==>e "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4900	5001	
==>e "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stan <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4900	5001	
==>e "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stan <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5883	5970	
==>>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_edi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5883	5970	
==>>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_edi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5883	5970	
==>>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_edi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14592	14786	
==>rray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14592	14786	
==>rray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14592	14786	
==>rray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4369	4508	
==>_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4369	4508	
==>_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4369	4508	
==>_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5142	5244	
==>multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be u <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4269	4371	
==>multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be u <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5142	5244	
==>multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be u <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4269	4371	
==>multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be u <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	119	217	
==>, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<emp <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	119	217	
==>, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<emp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20434	20560	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17573	17699	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20434	20560	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17573	17699	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20434	20560	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17573	17699	
==>ld
        # be fixed at some point though, becuase it is 
        # actually wrong)
        if ($label =~ /^\&/ && ref($value) <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29030	29125	
==>h wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<un <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33582	33677	
==>h wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<un <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32719	32814	
==>h wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1344	1432	
==>"p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude}, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1344	1432	
==>"p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude}, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1344	1432	
==>"p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude}, <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12390	12512	
==>e;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12390	12512	
==>e;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12390	12512	
==>e;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18214	18307	
==>B infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18214	18307	
==>B infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18214	18307	
==>B infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6364	6576	
==>d );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6364	6576	
==>d );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3870	3988	
==>t> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = sp <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3870	3988	
==>t> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = sp <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4402	4514	
==>t> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = sp <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4402	4514	
==>t> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16548	16655	
==>my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16548	16655	
==>my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' i <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16548	16655	
==>my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' i <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4531	4629	
==>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4531	4629	
==>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) i <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4531	4629	
==>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16540	16652	
==>0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16540	16652	
==>0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16540	16652	
==>0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9 <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4890	4989	
==>run.

Those are the only valid arguments.

You must have a plan set before you can record any tests. <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4890	4989	
==>run.

Those are the only valid arguments.

You must have a plan set before you can record any tests. <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6414	6513	
==>run.

Those are the only valid arguments.

You must have a plan set before you can record any tests. <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2172	2275	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2172	2275	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2172	2275	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3811	3912	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3811	3912	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3811	3912	
==>needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36223	36319	
==>then where each member of a tuple pair has attribute names in common,
eliminating pairs where the <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37976	38072	
==>then where each member of a
tuple pair has attribute names in common, eliminating pairs where the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40772	40868	
==>then where each member of a tuple pair has attribute names in common,
eliminating pairs where the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42525	42621	
==>then where each member of a
tuple pair has attribute names in common, eliminating pairs where the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40386	40482	
==>then where each member of a tuple pair has attribute names in common,
eliminating pairs where the <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42175	42271	
==>then where each member of a
tuple pair has attribute names in common, eliminating pairs where the <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12947	13061	
==>}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12947	13061	
==>}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12947	13061	
==>}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17359	17466	
==>,
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_s <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17359	17466	
==>,
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_s <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2275	2373	
==>nced::extract_delimited( '"' . $_[0], '"' );
    $extracted = substr( $extracted, 1, -1 ) if length <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1430	1553	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2993	3116	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1430	1553	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2993	3116	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1430	1553	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2993	3116	
==>space. 
    
    ## $?SELF, $?CLASS, $?PACKAGE and $?ROLE
    # this mimics the above magical variables    
    $::SELF    = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8205	8322	
==>y $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8205	8322	
==>y $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8205	8322	
==>y $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	996	1105	
==>y) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	996	1105	
==>y) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	996	1105	
==>y) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5791	5888	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8761	8858	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5791	5888	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8761	8858	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5791	5888	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8761	8858	
==>e other ::make_*_method subs below
        return $method if blessed($method) && $method->isa('Per <==
6	/Users/nnunley/pugs/util/gen_prelude.pl	4740	4855	
==>pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with e <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4202	4303	
==>alize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4202	4303	
==>alize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	405	500	
==>rgs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	405	500	
==>rgs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primiti <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	405	500	
==>rgs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primiti <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3934	4039	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6583	6688	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4173	4275	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10622	10724	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4173	4275	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10622	10724	
==>ctions
# - creates a 'capture', unless it detects a 'return block'
sub rule_wrapper {
    my ( $str, $m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	256	366	
==>{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	256	366	
==>{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	256	366	
==>{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14299	14391	
==>to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14299	14391	
==>to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MUL <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14299	14391	
==>to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MUL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4327	4475	
==>:Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4327	4475	
==>:Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4327	4475	
==>:Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3481	3581	
==>);

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3481	3581	
==>);

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3481	3581	
==>);

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8813	8956	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8813	8956	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.k <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8813	8956	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8424	8522	
==>ethod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8424	8522	
==>ethod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8424	8522	
==>ethod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($sel <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11528	11667	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2522	2661	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7616	7755	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11528	11667	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2522	2661	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7616	7755	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15739	15886	
==>ods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15739	15886	
==>ods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15739	15886	
==>ods::Pure ();
    
    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20460	20603	
==>ods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20460	20603	
==>ods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20460	20603	
==>ods::Pure ();

    sub ::multi_sub {
        my $wrapper;
        my $registry; 
        $registry = {
            # maybe we should start our o <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10940	11082	
==>$last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        deb <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10940	11082	
==>$last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        deb <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10044	10136	
==>- this allows, for example, to set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUN <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11624	11713	
==>in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11624	11713	
==>in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Eva <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11624	11713	
==>in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Eva <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3638	3805	
==>[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3638	3805	
==>[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3638	3805	
==>[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    su <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5594	5693	
==><skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5594	5693	
==><skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7118	7217	
==><skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	129	535	
==>2.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

cl <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	129	535	
==>2.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3727	3913	
==>ble' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3727	3913	
==>ble' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _(' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3727	3913	
==>ble' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _(' <==
6	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2918	3012	
==>scription::Named $subscription) {
            %.subscriptions<$subscrption.name>.remove($subscr <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17359	17563	
==>ure( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         r <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23325	23529	
==>ure( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17638	17842	
==>ure( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23604	23808	
==>ure( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         r <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1858	1975	
==>use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub captur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1858	1975	
==>use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub captur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10002	10157	
==>:Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10002	10157	
==>:Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $k <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10002	10157	
==>:Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $k <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2546	2664	
==>$p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2546	2664	
==>$p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5 <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2546	2664	
==>$p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5 <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12004	12125	
==>r => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12004	12125	
==>r => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12004	12125	
==>r => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8768	8886	
==>$length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        pus <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8768	8886	
==>$length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        pus <==
6	/Users/nnunley/pugs/util/run-smoke.pl	905	1008	
==>x) or die "Could change directory: $!";

# '.' needs to be at the front of the path for everything to fi <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	433	552	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	855	974	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	433	552	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	855	974	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	433	552	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	855	974	
==>i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2787	2890	
==>e-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2787	2890	
==>e-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2787	2890	
==>e-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4615	4710	
==>UB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4615	4710	
==>UB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4615	4710	
==>UB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4401	4507	
==>);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4401	4507	
==>);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4401	4507	
==>);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2980	3084	
==>[];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_ho <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2980	3084	
==>[];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_ho <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2980	3084	
==>[];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_ho <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20881	20980	
==>ers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are no <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19798	19897	
==>ers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20881	20980	
==>ers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are no <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19798	19897	
==>ers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are no <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20956	21052	
==>ext aims to bring this sort of functionality to Perl packages
or programs.  Your package or progr <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20956	21052	
==>ext aims to bring this sort of functionality to Perl packages
or programs.  Your package or progr <==
6	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	339	467	
==>e this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     repr <==
6	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	339	467	
==>e this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     repr <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13977	14089	
==>1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	287	384	
==>as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	287	384	
==>as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	287	384	
==>as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10106	10259	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7657	7810	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10106	10259	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7657	7810	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10106	10259	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7657	7810	
==>: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current value out of the it <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3486	3602	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6014	6130	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3486	3602	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6014	6130	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3486	3602	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6014	6130	
==>($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6490	6629	
==>' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6490	6629	
==>' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no ' <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6490	6629	
==>' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21889	21978	
==>tBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21889	21978	
==>tBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21889	21978	
==>tBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULT <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1580	1706	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1580	1706	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var m <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1580	1706	
==>ray();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var m <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10921	11031	
==>ted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10921	11031	
==>ted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10921	11031	
==>ted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6337	6564	
==>ft // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6337	6564	
==>ft // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20196	20290	
==>ast
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopin <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19155	19249	
==>ast
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopin <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20196	20290	
==>ast
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopin <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19155	19249	
==>ast
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopin <==
6	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1425	1539	
==>ILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $ <==
6	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1425	1539	
==>ILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $ <==
6	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2879	2992	
==>ILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4599	4693	
==>eturn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4599	4693	
==>eturn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4599	4693	
==>eturn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13664	13794	
==>$size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13664	13794	
==>$size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is ne <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13664	13794	
==>$size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is ne <==
6	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5910	6040	
==>$size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is ne <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4410	4540	
==>$size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is ne <==
6	/Users/nnunley/pugs/util/run-smoke.pl	1574	1674	
==>-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Con <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2108	2244	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1220	1356	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2108	2244	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1220	1356	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2108	2244	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1220	1356	
==>(see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # this is an ugly w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11734	11864	
==>]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11734	11864	
==>]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11734	11864	
==>]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	9637	9754	
==>t a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13114	13231	
==>t a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12386	12503	
==>t a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15077	15185	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12331	12439	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15077	15185	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12331	12439	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15077	15185	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12331	12439	
==>nstance_attr($self => '%:attributes')->{$label} = $attribute;
    }
    else {
        confess "I do not reco <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4321	4445	
==>|| 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4321	4445	
==>|| 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match- <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11978	12078	
==>t case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar o <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12410	12510	
==>t case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar o <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11978	12078	
==>t case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar o <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12410	12510	
==>t case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar o <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10468	10590	
==>X::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10468	10590	
==>X::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File: <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10468	10590	
==>X::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File: <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	492	610	
==>5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    r <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	492	610	
==>5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    r <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13176	13292	
==>. $_[0] },
      glob  => sub { "". ${$_[0]} },
      lvalue => sub { p6_as_str(${$_[0]}) },
      perl5_object => su <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4592	4703	
==>cument!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            ' <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4592	4703	
==>cument!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            ' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6870	6975	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4427	4532	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6870	6975	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4427	4532	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6870	6975	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4427	4532	
==>my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1291	1417	
==>();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1291	1417	
==>();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    r <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1291	1417	
==>();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    r <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	887	996	
==>) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	887	996	
==>) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	887	996	
==>) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11152	11270	
==>et_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11152	11270	
==>et_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11152	11270	
==>et_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3292	3402	
==>e "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3292	3402	
==>e "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actu <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3292	3402	
==>e "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actu <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9281	9465	
==>atcher")->do()); 
            })->do_while(
                block->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18029	18186	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18308	18465	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::consta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2456	2563	
==>$pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2456	2563	
==>$pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2456	2563	
==>$pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4942	5067	
==>e attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4942	5067	
==>e attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4942	5067	
==>e attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1836	1939	
==>ublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1836	1939	
==>ublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1836	1939	
==>ublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1139	1238	
==>LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1139	1238	
==>LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1139	1238	
==>LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to ma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4772	4868	
==>/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4772	4868	
==>/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given f <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4772	4868	
==>/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	289	389	
==>use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	289	389	
==>use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	289	389	
==>use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	265	359	
==>lue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	265	359	
==>lue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	265	359	
==>lue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Bo <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12557	12692	
==>) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status               = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2927	3056	
==>) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2927	3056	
==>) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status               = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11999	12125	
==>) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status      = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2407	2527	
==>) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2407	2527	
==>) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status      = $self.Test::Builder::Test::Wit <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3108	3219	
==>}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3108	3219	
==>}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludg <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3108	3219	
==>}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludg <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5347	5452	
==>ering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5347	5452	
==>ering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5347	5452	
==>ering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File-> <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3542	3692	
==>t {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3401	3545	
==>t {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	377	479	
==>* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algo <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	381	483	
==>* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	377	479	
==>* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algo <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	381	483	
==>* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algo <==
6	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	715	835	
==>et our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # ask <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	715	835	
==>et our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # ask <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3941	4034	
==>n(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3941	4034	
==>n(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3663	3760	
==>}
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3663	3760	
==>}
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primit <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3663	3760	
==>}
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primit <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	277	372	
==>XX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	277	372	
==>XX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	277	372	
==>XX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36459	36560	
==>ist: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36459	36560	
==>ist: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body ) <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36459	36560	
==>ist: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body ) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21099	21193	
==>{...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21099	21193	
==>{...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21099	21193	
==>{...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5029	5190	
==>' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5029	5190	
==>' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5029	5190	
==>' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4562	4649	
==>m;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optiona <==
6	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4562	4649	
==>m;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optiona <==
6	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5152	5239	
==>m;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optiona <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12109	12315	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12881	13087	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12109	12315	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12881	13087	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12109	12315	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12881	13087	
==>@x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($re <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5487	5599	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6755	6867	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5487	5599	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6743	6855	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[ <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	1702	1801	
==>urns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method ch <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1702	1801	
==>urns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method ch <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3463	3582	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12021	12140	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6588	6707	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3463	3582	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12021	12140	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6588	6707	
==>_msg( 'LKT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
} <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	963	1095	
==>{  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	963	1095	
==>{  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	963	1095	
==>{  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3574	3677	
==>$subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3574	3677	
==>$subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3574	3677	
==>$subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13471	13591	
==>y $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13471	13591	
==>y $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13471	13591	
==>y $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3988	4102	
==>-- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3988	4102	
==>-- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3988	4102	
==>-- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	330	443	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	328	441	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	330	443	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	328	441	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	330	443	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	328	441	
==>the implementation of
    # the p6opaque candidate as described in A12 
    
    # Every instance should have a un <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	663	788	
==>L2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	663	788	
==>L2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	663	788	
==>L2JS.runloop(function () {
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3004	3111	
==>L2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3004	3111	
==>L2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3004	3111	
==>L2JS.runloop(function () {
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9398	9502	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12371	12475	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9398	9502	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12371	12475	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9398	9502	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12371	12475	
==>package Perl6::Submethod;
        @Perl6::Submethod::ISA   = ('Perl6::Method');
        $Perl6::Submethod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6861	6974	
==>ite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6861	6974	
==>ite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6861	6974	
==>ite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2874	2976	
==>(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2874	2976	
==>(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : S <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2874	2976	
==>(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4695	4792	
==>espace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4695	4792	
==>espace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->ad <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4695	4792	
==>espace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->ad <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3076	3194	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10999	11117	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6201	6319	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3076	3194	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10999	11117	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6201	6319	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_EMP_STR',
            { 'ME <==
6	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15678	15775	
==>s
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe. <==
6	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15678	15775	
==>s
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe. <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24836	24932	
==>imply returns, you can assume that it has succeeded, even if the return
value is undefined.

=hea <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22450	22546	
==>imply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=hea <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24836	24932	
==>imply returns, you can assume that it has succeeded, even if the return
value is undefined.

=hea <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22450	22546	
==>imply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=hea <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5962	6091	
==>ue_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5962	6091	
==>ue_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5962	6091	
==>ue_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29678	29800	
==>.],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_S <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29678	29800	
==>.],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_S <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	482	588	
==>.],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	748	883	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	836	971	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	748	883	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	836	971	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	748	883	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	836	971	
==>g eq "-B") {
      shift @ARGV;
      next;
    } elsif(uc $arg eq "-BJS") {
      next;
    } elsif($arg eq "--") {
      push @pugs_ar <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5478	5580	
==>( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5478	5580	
==>( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5478	5580	
==>( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfi <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2066	2167	
==>submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is co <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	71	168	
==>submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is co <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	71	168	
==>submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12903	13009	
==>o from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12903	13009	
==>o from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cla <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12903	13009	
==>o from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cla <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15311	15411	
==>...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15311	15411	
==>...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15311	15411	
==>...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	844	952	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	932	1040	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	844	952	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	932	1040	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	844	952	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	932	1040	
==>lsif($arg eq "--") {
      push @pugs_args, splice @ARGV;
    } elsif($arg =~ /^--/) {  # treat all --options <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2586	2696	
==>r, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	333	437	
==>ation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	333	437	
==>ation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2070	2168	
==>ned $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2070	2168	
==>ned $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2070	2168	
==>ned $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelu <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3949	4109	
==>e_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # Firs <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3949	4109	
==>e_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # Firs <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13024	13150	
==>h;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13024	13150	
==>h;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n" <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13024	13150	
==>h;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n" <==
6	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1909	2035	
==>h;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n" <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14752	14854	
==>6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant I <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14752	14854	
==>6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant I <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14752	14854	
==>6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant I <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6011	6112	
==>e =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6011	6112	
==>e =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6011	6112	
==>e =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14926	15023	
==>from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14926	15023	
==>from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14926	15023	
==>from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	34110	34203	
==>identical header to the invocant relation.  This method has aliases
named C<minus> and C<excep <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38660	38753	
==>identical header to the invocant relation.  This method has aliases
named C<minus> and C<excep <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38121	38214	
==>identical header to the invocant relation.  This method has aliases
named C<minus> and C<excep <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7584	7733	
==>undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7584	7733	
==>undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &in <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7584	7733	
==>undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2155	2234	
==>:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2155	2234	
==>:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2155	2234	
==>:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2701	2824	
==>($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2701	2824	
==>($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2701	2824	
==>($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	853	950	
==>ttr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	853	950	
==>ttr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($at <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	853	950	
==>ttr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($at <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	306	441	
==>e - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	306	441	
==>e - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub { <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	306	441	
==>e - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub { <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3805	3900	
==>t.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descriptio <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3805	3900	
==>t.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descriptio <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3885	3980	
==>t.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descriptio <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9178	9280	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4321	4423	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15757	15859	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9178	9280	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4321	4423	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15757	15859	
==>_is_closed()` / `end_is_closed()`

Return a logical value, whether the `start` or `end` values belong t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	328	441	
==>utput? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

met <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	328	441	
==>utput? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

met <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	28146	28244	
==>urns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relat <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	29157	29255	
==>urns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32698	32796	
==>urns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relat <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33709	33807	
==>urns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7132	7246	
==>x)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7132	7246	
==>x)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $x <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7132	7246	
==>x)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $x <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1441	1547	
==>o text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1441	1547	
==>o text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0 <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1441	1547	
==>o text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0 <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	5	107	
==>e CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAM <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5	107	
==>e CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAM <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16259	16382	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20976	21099	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16259	16382	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20976	21099	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16259	16382	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20976	21099	
==>hods::Pure::process_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $cal <==
6	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	727	835	
==>my $lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	713	802	
==>r assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	713	802	
==>r assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	713	802	
==>r assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425. <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1791	1878	
==>ume the installation process described in README.

------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1631	1718	
==>ume the installation process described in README.

------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15010	15107	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12264	12361	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15010	15107	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12264	12361	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15010	15107	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12264	12361	
==>if (blessed($attribute) eq 'Perl6::Attribute') {
        ::opaque_instance_attr($self => '%:attrib <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10199	10333	
==>die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $kla <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10199	10333	
==>die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $kla <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	14897	15007	
==>h_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18374	18484	
==>h_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowe <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17790	17900	
==>h_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowe <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1040	1138	
==>tBuilder->FETCH('::Test')->FETCH('::Skip')->new(
                '$.description' => $params{'$.desc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1885	1986	
==>', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1885	1986	
==>', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1885	1986	
==>', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3912	4001	
==>:opaque_instance_attr($self => '@:roles');
}));

## -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3912	4001	
==>:opaque_instance_attr($self => '@:roles');
}));

## -------------------------------------- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3912	4001	
==>:opaque_instance_attr($self => '@:roles');
}));

## -------------------------------------- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3089	3253	
==>$offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3089	3253	
==>$offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offs <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3089	3253	
==>$offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offs <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11146	11267	
==>ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11146	11267	
==>ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $c <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11146	11267	
==>ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $c <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2346	2463	
==>_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2346	2463	
==>_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2346	2463	
==>_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2079	2194	
==>turns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $ <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2079	2194	
==>turns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $ <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	17728	17839	
==>.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17728	17839	
==>.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3048	3146	
==>ide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3048	3146	
==>ide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6592	6744	
==>ub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimenta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10799	10951	
==>ub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimenta <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7877	8021	
==>ub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimenta <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6379	6523	
==>ub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimenta <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7877	8021	
==>ub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimenta <==
6	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2385	2491	
==>sts (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1151	1264	
==>mitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1151	1264	
==>mitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hack <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1151	1264	
==>mitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3348	3438	
==>ttr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3348	3438	
==>ttr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3348	3438	
==>ttr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	630	754	
==>/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	629	753	
==>/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	630	754	
==>/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	629	753	
==>/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ <==
6	/Users/nnunley/pugs/blib6/lib/File/Find.pm	70	169	
==>has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted <==
6	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	70	169	
==>has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11405	11539	
==>n->{op1}{op} eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        return " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs: <==
6	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	469	582	
==>: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %para <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	469	582	
==>: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %para <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	586	689	
==>i sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	586	689	
==>i sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	586	689	
==>i sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
m <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9815	9923	
==>ugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9809	9917	
==>ugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$ <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8988	9094	
==>ny installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10465	10571	
==>ny installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4810	4907	
==>is module is meant for people who want a simplified view of the
libwww-perl library.  It should al <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4810	4907	
==>is module is meant for people who want a simplified view of the
libwww-perl library.  It should al <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8891	8986	
==><~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8891	8986	
==><~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8891	8986	
==><~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6818	6926	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5948	6056	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2602	2710	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2602	2710	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6818	6926	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5948	6056	
==>ool {
    $set.includes($member);
}
multi sub *infix:<∍> (Set $one, $member) returns Bool {
    $one.includ <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7200	7298	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6330	6428	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2984	3082	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2984	3082	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7200	7298	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6330	6428	
==>ber);
}

# these methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	444	555	
==>y => 'postcircumfix', 
        assoc => 'non',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2 <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14201	14304	
==>y $exe;
	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Confi <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1140	1243	
==>atch for tokens (putter on #perl6)

    # update: <%var> does longest match based on the keys length() ( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1490	1592	
==>atch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() ( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1097	1199	
==>atch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() ( <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1490	1592	
==>atch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1993	2140	
==>s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1993	2140	
==>s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1993	2140	
==>s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1817	1928	
==>s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	20695	20791	
==>declare any subroutines or export such.

The usual way that Relation indicates a failure is to th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25247	25343	
==>declare any subroutines or export such.

The usual way that Relation indicates a failure is to th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5043	5180	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7692	7829	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5249	5380	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11698	11829	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5249	5380	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11698	11829	
==>variable {
    my $name = shift;
    
    local $@;
    my($idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx+ <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5157	5378	
==>difier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("< <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5157	5378	
==>difier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("< <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18336	18429	
==>such as persistence
solutions.  Moreover, these data structures are in exactly the right input <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18336	18429	
==>such as persistence
solutions.  Moreover, these data structures are in exactly the right input <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13241	13333	
==>such as persistence solutions.
Moreover, these data structures are in exactly the right input <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13241	13333	
==>such as persistence solutions.
Moreover, these data structures are in exactly the right input <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22487	22598	
==>f $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23050	23161	
==>f $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18908	19019	
==>f $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19471	19582	
==>f $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5033	5143	
==>et
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIM <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5033	5143	
==>et
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIM <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4861	4987	
==>+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15897	16023	
==>+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17385	17511	
==>+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}- <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22068	22194	
==>+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}- <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1708	1803	
==>urns an arrayref of files installed by this package

=head2 $alt = $pkg->alternative

Returns th <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	104	196	
==>infix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is parsed) / t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7772	7891	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10695	10814	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7772	7891	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10695	10814	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7772	7891	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10695	10814	
==>LASS
    # in it. Submethods are also special in that
    # this implicit test can be overridden.
    sub ::make_submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5377	5488	
==>s));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5377	5488	
==>s));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $rol <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5377	5488	
==>s));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $rol <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41012	41104	
==>=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41012	41104	
==>=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41012	41104	
==>=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSI <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7707	7808	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6837	6938	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3423	3524	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3423	3524	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7707	7808	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6837	6938	
==>$member);
}
# XXX -- IIRC, there's a "is commutative" or such, so duplicating shouldn't be
# necessary <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1781	1963	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1781	1963	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	678	790	
==>arhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4434	4542	
==>, $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4434	4542	
==>, $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4434	4542	
==>, $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2523	2654	
==>f $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2523	2654	
==>f $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = r <==
6	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2523	2654	
==>f $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = r <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36873	36992	
==>os );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in num <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36873	36992	
==>os );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in num <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36873	36992	
==>os );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in num <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24097	24191	
==>void loops between a client automatically sending something
  in response to something it recei <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22870	22964	
==>void loops between a client automatically sending something
  in response to something it recei <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24097	24191	
==>void loops between a client automatically sending something
  in response to something it recei <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22870	22964	
==>void loops between a client automatically sending something
  in response to something it recei <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6970	7115	
==>f, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_fie <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6970	7115	
==>f, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_fie <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6521	6617	
==>per_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_s <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5651	5747	
==>per_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6521	6617	
==>per_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_s <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5651	5747	
==>per_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4345	4468	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7281	7404	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4345	4468	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7281	7404	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4345	4468	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7281	7404	
==>binds values 
    # to $?SELF and $?CLASS are bound within
    # it.    
    sub ::bind_method_to_class ($$) {
        my ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2810	2911	
==>le or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't writ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2810	2911	
==>le or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't writ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2810	2911	
==>le or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't writ <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22021	22119	
==>e following keys:

=over 4

=item regex

A reference to the original string representation of the r <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	1098	1194	
==>est, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expec <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1156	1252	
==>est, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	257	373	
==>ey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	257	373	
==>ey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	257	373	
==>ey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2266	2374	
==>Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2266	2374	
==>Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2266	2374	
==>Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11597	11708	
==>perimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2084	2190	
==>perimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    w <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8856	8962	
==>perimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2084	2190	
==>perimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    w <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8856	8962	
==>perimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    w <==
6	/Users/nnunley/pugs/misc/Blondie/milner.pl	3595	3691	
==>ype::operator::binary;
use base qw/type::operator/;

use Scalar::Util ();

sub new {
	my $class_t <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1333	1448	
==>value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \ <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1333	1448	
==>value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10716	10821	
==>/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] ruleop::co <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2351	2451	
==>rintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2351	2451	
==>rintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwra <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2351	2451	
==>rintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwra <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2250	2383	
==>nction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2250	2383	
==>nction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array. <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2250	2383	
==>nction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2388	2494	
==>b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2388	2494	
==>b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2388	2494	
==>b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1839	1933	
==>Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1839	1933	
==>Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we h <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1839	1933	
==>Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we h <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2677	2799	
==>_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if ! <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7771	7893	
==>_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if ! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2677	2799	
==>_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if ! <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7771	7893	
==>_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if ! <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	763	879	
==>rt, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	763	879	
==>rt, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) <==
6	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	877	975	
==>CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

= <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	877	975	
==>CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

= <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7245	7340	
==>perations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6375	6470	
==>perations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7245	7340	
==>perations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6375	6470	
==>perations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5843	5943	
==>te_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5843	5943	
==>te_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5843	5943	
==>te_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17835	17925	
==>TI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17835	17925	
==>TI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17835	17925	
==>TI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5845	5950	
==>:= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5845	5950	
==>:= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if ( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5845	5950	
==>:= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	30	117	
==>nals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	30	117	
==>nals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	30	117	
==>nals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(fu <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14880	14981	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12134	12235	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14880	14981	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12134	12235	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14880	14981	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12134	12235	
==>fess "InsufficientArguments : you must provide an attribute and a label";
    #$self->_create_accessor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3257	3391	
==>self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3257	3391	
==>self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3257	3391	
==>self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8506	8628	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8506	8628	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... " <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8506	8628	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... " <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11387	11507	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16117	16237	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11387	11507	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16117	16237	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11387	11507	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16117	16237	
==>eems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef class here ... ( <==
6	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2566	2713	
==>strict from here on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ( <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	138	248	
==>node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	102	211	
==>node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	190	299	
==>node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	116	207	
==>ompiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	116	207	
==>ompiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16067	16171	
==>hr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16067	16171	
==>hr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16067	16171	
==>hr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	939	1054	
==>ke the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	939	1054	
==>ke the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pai <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	939	1054	
==>ke the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pai <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3419	3520	
==>lass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3419	3520	
==>lass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3419	3520	
==>lass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    i <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1066	1193	
==>pply
       p6_applym
       p6_return_CODE
       p6_catch_return_CODE
       p6_loop_CODE
       p6_last_CODE
       p6_next_C <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4858	4970	
==>return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpd <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4858	4970	
==>return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpd <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4445	4555	
==>sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4445	4555	
==>sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = <==
6	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4445	4555	
==>sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4557	4686	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7206	7335	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4780	4906	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11229	11355	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4780	4906	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11229	11355	
==>elete $match2{return};
        delete $match2{abort};
        #warn "Return Object: ", Dumper( \%match2 );
        return \%mat <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12219	12310	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9776	9867	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12219	12310	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9776	9867	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12219	12310	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9776	9867	
==>hod('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SELF->MRO() <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5698	5821	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8668	8791	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5698	5821	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8668	8791	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5698	5821	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8668	8791	
==>thod 
        # instead of a plain CODE ref. This solution is also
        # duplicated in the other ::make_*_method subs be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8705	8823	
==>Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantia <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8705	8823	
==>Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantia <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8705	8823	
==>Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantia <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9937	10025	
==>$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9937	10025	
==>$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9937	10025	
==>$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	306	424	
==>zy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array conta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	306	424	
==>zy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array conta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	306	424	
==>zy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array conta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15423	15525	
==>) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB L <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15423	15525	
==>) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB L <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15423	15525	
==>) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB L <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11751	11861	
==>turn $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2103	2207	
==>full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2103	2207	
==>full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2103	2207	
==>full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2181	2279	
==>turn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    m <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2181	2279	
==>turn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20762	20851	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17900	17989	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20762	20851	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17900	17989	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20762	20851	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17900	17989	
==>etamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8433	8618	
==>:
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8433	8618	
==>:
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8433	8618	
==>:
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg- <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	405	500	
==>method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	405	500	
==>method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLE <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	405	500	
==>method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLE <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4238	4364	
==>d capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4250	4376	
==>d capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name <==
6	/Users/nnunley/pugs/inc/Module/Install/Can.pm	372	497	
==>pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { re <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3433	3534	
==>6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shoul <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3433	3534	
==>6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shoul <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3433	3534	
==>6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shoul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	218	332	
==>PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	218	332	
==>PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	218	332	
==>PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5809	5904	
==>L_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5809	5904	
==>L_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5809	5904	
==>L_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	843	977	
==>rt <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    e <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4082	4216	
==>rt <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	843	977	
==>rt <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    e <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4082	4216	
==>rt <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    e <==
6	/Users/nnunley/pugs/blib6/lib/Tree.pm	8900	9011	
==>ee's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().dep <==
6	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8900	9011	
==>ee's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().dep <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4539	4639	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3666	3766	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	476	576	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	476	576	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4539	4639	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3666	3766	
==>difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, S <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	88	227	
==>{
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	88	227	
==>{
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	88	227	
==>{
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5032	5130	
==>r $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pass <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5032	5130	
==>r $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pass <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6556	6654	
==>r $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pass <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23604	23830	
==>turn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23604	23830	
==>turn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                } <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23604	23830	
==>turn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                } <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13146	13293	
==>d, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13146	13293	
==>d, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'nex <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13146	13293	
==>d, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'nex <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5773	5887	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3893	4007	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5773	5887	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3893	4007	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5773	5887	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3893	4007	
==>classes of us, this is circular inheritance
        # and not allowed.
        ::opaque_instance_attr($self => '@:s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2761	2878	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5751	5868	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3053	3163	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9471	9581	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3053	3163	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9471	9581	
==>nation( [ $_[0], null() ] );
}

sub null_or_optional {
    return alternation( [ null(), $_[0] ] );
}

sub gree <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2435	2559	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4762	4886	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2435	2559	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4762	4886	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2435	2559	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4762	4886	
==>\$name => 'Perl6::Attribute';
    }
    
    sub ::make_stub_attribute ($) {
        my ($name) = @_;
        (defined $name) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15098	15216	
==>. carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15098	15216	
==>. carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15098	15216	
==>. carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	147	252	
==>gister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	147	252	
==>gister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EO <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	147	252	
==>gister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EO <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	36113	36207	
==>lt of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40662	40756	
==>lt of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$ot <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40276	40370	
==>lt of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$ot <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25204	25302	
==>make the same change to an object when the permutation of its
arguments and any invocant object's a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11335	11433	
==>make the same change to an object when the permutation of its
arguments and any invocant object's a <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14608	14706	
==>make the same change
to an object when the permutation of its arguments and any invocant
object's a <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25204	25302	
==>make the same change to an object when the permutation of its
arguments and any invocant object's a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11335	11433	
==>make the same change to an object when the permutation of its
arguments and any invocant object's a <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14608	14706	
==>make the same change
to an object when the permutation of its arguments and any invocant
object's a <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6404	6558	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8853	9007	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6404	6558	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8853	9007	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6404	6558	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8853	9007	
==>tiguous list"
                unless $i->is_contiguous;
            my $start = $i->start;
            my $end =   $i->end;
            die "Slice start/en <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14363	14523	
==>) } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14363	14523	
==>) } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14363	14523	
==>) } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14010	14165	
==>vate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14010	14165	
==>vate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14010	14165	
==>vate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	6680	6788	
==>);
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    } <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6680	6788	
==>);
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	56	153	
==>n the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dum <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	56	153	
==>n the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dum <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	736	828	
==>sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "r <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	736	828	
==>sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "r <==
6	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4225	4346	
==>d error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), return;
        
        1 whi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14197	14307	
==>bel};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14197	14307	
==>bel};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %param <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14197	14307	
==>bel};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %param <==
6	/Users/nnunley/pugs/blib6/lib/CGI.pm	4304	4383	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63) <==
6	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4304	4383	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63) <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2253	2477	
==>Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2313	2537	
==>Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1021	1189	
==>Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1453	1621	
==>Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1021	1189	
==>Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1453	1621	
==>Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12164	12310	
==>++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array aut <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12164	12310	
==>++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array aut <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12164	12310	
==>++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array aut <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18698	18810	
==>er('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15119	15231	
==>er('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} } <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30457	30569	
==>er('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} } <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4285	4412	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6934	7061	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4515	4639	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10964	11088	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4515	4639	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10964	11088	
==>re} = $match->{return}( 
            Pugs::Runtime::Match->new( $match ) 
        );
        #warn "return ",ref($match2{capt <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6481	6607	
==>r_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6481	6607	
==>r_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6481	6607	
==>r_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_met <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11681	11805	
==>::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Tes <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2115	2227	
==>::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Tes <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2115	2227	
==>::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Tes <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	688	844	
==>{
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	688	844	
==>{
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	688	844	
==>{
            _26main_3a_3aexit.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3029	3161	
==>{
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3029	3161	
==>{
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3029	3161	
==>{
      _26main_3a_3aexit.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3624	3751	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6560	6687	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3624	3751	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6560	6687	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3624	3751	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6560	6687	
==>them.
    
    # a convenience wrapper for binding/unbinding $?ROLE
    sub ::wrap_role_method {
        my ($method, $role) = @ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14712	14832	
==>', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and test <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14712	14832	
==>', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and test <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14712	14832	
==>', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and test <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11972	12066	
==>val_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see hel <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11972	12066	
==>val_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see hel <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11972	12066	
==>val_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see hel <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8746	8898	
==>ol};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'bef <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8746	8898	
==>ol};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'bef <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	933	1064	
==>n_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4172	4303	
==>n_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	933	1064	
==>n_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4172	4303	
==>n_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	6633	6732	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5763	5862	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2417	2516	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2417	2516	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6633	6732	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5763	5862	
==>}

# several unicode operators for includes!
multi sub *infix:<∋> (Set $one, $member) returns Bool <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7627	7729	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6757	6859	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3343	3445	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3343	3445	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7627	7729	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6757	6859	
==>);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- II <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	279	377	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	603	701	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	279	377	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	603	701	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	279	377	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	603	701	
==>:SUBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gener <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14475	14605	
==>overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14475	14605	
==>overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name' <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14475	14605	
==>overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1759	1880	
==>ringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1759	1880	
==>ringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1759	1880	
==>ringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3900	4006	
==>$macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3900	4006	
==>$macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation f <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3900	4006	
==>$macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation f <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	633	734	
==>ub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	633	734	
==>ub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(. <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	633	734	
==>ub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(. <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1779	1891	
==>>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1779	1891	
==>>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1779	1891	
==>>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	703	793	
==>lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langua <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	703	793	
==>lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langua <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	703	793	
==>lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langua <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25064	25218	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27253	27407	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25064	25218	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27253	27407	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25064	25218	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27253	27407	
==>tmp;
                for ( 0 .. $samples ) {
                    no warnings 'numeric';
                    last if $_ >= Perl6::Value::numify( $self->elem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13321	13431	
==>@tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13321	13431	
==>@tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13321	13431	
==>@tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1050	1151	
==>st tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1050	1151	
==>st tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - t <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1050	1151	
==>st tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - t <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19347	19464	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4827	4944	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19347	19464	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4827	4944	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19347	19464	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4827	4944	
==>sub {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	3968	4153	
==>ng( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7445	7630	
==>ng( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs! <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6411	6596	
==>ng( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs! <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1178	1279	
==>first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests ) <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1178	1279	
==>first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests ) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1258	1359	
==>first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests ) <==
6	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6979	7095	
==>bg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLValu <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	12706	12802	
==>depends) returns Bool`

This function takes a block of code and runs it. It then smart-matches (` <==
6	/Users/nnunley/pugs/blib6/lib/fp.pm	2233	2329	
==>l.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >> <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12764	12860	
==>depends) returns Bool`

This function takes a block of code and runs it. It then smart-matches (` <==
6	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2233	2329	
==>l.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >> <==
6	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7458	7548	
==>tion_alternative(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(look <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5082	5343	
==>>");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5082	5343	
==>>");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ <==
6	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2552	2661	
==>\d+) todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    total    => $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4829	4921	
==>od_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4829	4921	
==>od_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source i <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4829	4921	
==>od_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source i <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9497	9656	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12470	12629	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9497	9656	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12470	12629	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9497	9656	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12470	12629	
==>method::FORCE = bless \(my $var) => 'FORCE';
    }       
}

{
    
    ## dispatcher
    # the Perl 6 method dispatcher needs to
    # have some basic abilitie <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3164	3258	
==>[ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3350	3444	
==>[ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBu <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28219	28312	
==>thod returns a stringified version of this object which is suitable
for debugging purposes (su <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35575	35668	
==>thod returns a stringified version of this object which is suitable
for debugging purposes (su <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28219	28312	
==>thod returns a stringified version of this object which is suitable
for debugging purposes (su <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35575	35668	
==>thod returns a stringified version of this object which is suitable
for debugging purposes (su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2604	2725	
==>name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initialize <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2604	2725	
==>name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initialize <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2604	2725	
==>name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initialize <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4190	4285	
==>ed diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compa <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4190	4285	
==>ed diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compa <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4270	4365	
==>ed diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1767	1896	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1767	1896	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1767	1896	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1593	1701	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1593	1701	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1593	1701	
==>:descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submeth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21178	21376	
==>$scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21178	21376	
==>$scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21178	21376	
==>$scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7252	7379	
==>sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7252	7379	
==>sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7252	7379	
==>sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_meth <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1719	1823	
==>quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remaind <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2154	2258	
==>quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remaind <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2588	2692	
==>quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remaind <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6560	6658	
==>od_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6560	6658	
==>od_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6560	6658	
==>od_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	807	966	
==>before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements t <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	807	966	
==>before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements t <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2698	2802	
==>matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2698	2802	
==>matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2778	2882	
==>matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6861	6947	
==>dup_finder = Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9943	10074	
==>h should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9943	10074	
==>h should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9943	10074	
==>h should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5014	5108	
==>the test in the current test file.

=item B<Str $.description>

The test's description (optiona <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5014	5108	
==>the test in the current test file.

=item B<Str $.description>

The test's description (optiona <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7211	7305	
==>the test in the current test file.

=item B<Str $.description>

The test's description (optiona <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17943	18082	
==>",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (op <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16981	17120	
==>",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (op <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17943	18082	
==>",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (op <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16981	17120	
==>",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (op <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16243	16348	
==>it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct re <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20669	20774	
==>it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct re <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5674	5797	
==>my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5674	5797	
==>my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::R <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5674	5797	
==>my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::R <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23806	23900	
==>t$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23806	23900	
==>t$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mod <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23806	23900	
==>t$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mod <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6972	7102	
==>y @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6972	7102	
==>y @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %pa <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6972	7102	
==>y @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %pa <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4459	4555	
==>:Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Cl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4459	4555	
==>:Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Cl <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4459	4555	
==>:Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Cl <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	373	496	
==>ix\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @G <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	925	1023	
==>ebugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pee <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	125	221	
==>ebugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pee <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	125	221	
==>ebugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pee <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10512	10602	
==>..}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => su <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10512	10602	
==>..}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => su <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2864	2973	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (Non <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2864	2973	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (Non <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3639	3742	
==>e($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3639	3742	
==>e($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub * <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4513	4615	
==>e($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub * <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4513	4615	
==>e($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub * <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	53	149	
==>f pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	53	149	
==>f pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	53	149	
==>f pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	748	840	
==>tp://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	748	840	
==>tp://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      fu <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	748	840	
==>tp://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      fu <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11890	12023	
==>tr $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest), <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11890	12023	
==>tr $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest), <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1836	1941	
==>scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1836	1941	
==>scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  J <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1836	1941	
==>scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  J <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38659	38761	
==>>regex($_) or die $parser->errmsg;
    print "VISUAL: ", $parser->visual, "\n";
    print "REGEX:  ", $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12645	12777	
==>ss (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12645	12777	
==>ss (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class- <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12645	12777	
==>ss (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class- <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16273	16422	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20990	21139	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16273	16422	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20990	21139	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16273	16422	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20990	21139	
==>ocess_multi($registry,
            $name, -core => 'DumbCache', @_);

        return sub {
            my $call = $wrapper->can('call');
            u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3786	3903	
==>", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3786	3903	
==>", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoc <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3786	3903	
==>", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1401	1487	
==>:Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1401	1487	
==>:Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_att <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1401	1487	
==>:Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_att <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3083	3189	
==>nt(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? joi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3083	3189	
==>nt(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? joi <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3083	3189	
==>nt(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? joi <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1428	1525	
==>= shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1428	1525	
==>= shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PI <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1428	1525	
==>= shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PI <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16427	16533	
==>onfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16427	16533	
==>onfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->ha <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16427	16533	
==>onfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->ha <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	960	1096	
==>);              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	960	1096	
==>);              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	960	1096	
==>);              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	742	867	
==>);
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	947	1072	
==>);
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1003	1128	
==>);
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4844	4941	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2193	2290	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1064	1161	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1234	1331	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item <==
6	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	829	923	
==>ch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILE <==
6	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	714	800	
==>ch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILE <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1840	1987	
==>my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6775	6922	
==>my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1623	1765	
==>my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        retur <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6552	6694	
==>my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1623	1765	
==>my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        retur <==
6	/Users/nnunley/pugs/inc/Module/Install/Base.pm	420	532	
==>ss defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $self = sh <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17367	17490	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22075	22198	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17367	17490	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22075	22198	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17367	17490	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22075	22198	
==>UCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	7152	7251	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6282	6381	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2936	3035	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2936	3035	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7152	7251	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6282	6381	
==>Set $set) returns Bool {
    !$set.includes($member);
}

# these methods are for overloaded operatio <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6349	6465	
==>(__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6349	6465	
==>(__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type-> <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6349	6465	
==>(__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	694	798	
==>efined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	694	798	
==>efined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    w <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	694	798	
==>efined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    w <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2803	2920	
==>b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2803	2920	
==>b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2803	2920	
==>b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1905	2001	
==>:Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1905	2001	
==>:Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modul <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1905	2001	
==>:Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modul <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	751	871	
==>) and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $ke <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	751	871	
==>) and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $ke <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	751	871	
==>) and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $ke <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5974	6065	
==>Type', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Sub <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5974	6065	
==>Type', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Sub <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2873	2964	
==>Type', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10719	10841	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15260	15382	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10719	10841	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15260	15382	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10719	10841	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15260	15382	
==>ng for is a private method
            if $method_table_name ne '%:private_methods';

        # now try and find out method <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1799	1942	
==>ay} )
        if exists $n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10852	10987	
==>METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10852	10987	
==>METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10852	10987	
==>METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10298	10410	
==>s.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10298	10410	
==>s.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10028	10138	
==>_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10028	10138	
==>_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10028	10138	
==>_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3214	3316	
==>simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3214	3316	
==>simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3214	3316	
==>simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14920	15034	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12174	12288	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14920	15034	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12174	12288	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14920	15034	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12174	12288	
==>rovide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attribute) e <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11540	11671	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2534	2665	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7628	7759	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11540	11671	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2534	2665	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7628	7759	
==>msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SEL <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4197	4320	
==>);
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old i <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4197	4320	
==>);
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old i <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4757	4866	
==>object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S' => sub {
    m <==
6	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2980	3080	
==>}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_exechook_hook\n");
    fprintf(stderr," s <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	443	537	
==>::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	443	537	
==>::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1862	2006	
==>| confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1862	2006	
==>| confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::op <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1862	2006	
==>| confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::op <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	314	411	
==>ctions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	314	411	
==>ctions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	314	411	
==>ctions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3470	3579	
==>ethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3470	3579	
==>ethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ma <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3470	3579	
==>ethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ma <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9129	9225	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4272	4368	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/blib6/lib/Span.pm	15708	15804	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9129	9225	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4272	4368	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15708	15804	
==>.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return a logi <==
6	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4002	4095	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test: <==
6	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4002	4095	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5526	5619	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12620	12706	
==>nals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12620	12706	
==>nals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fun <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12620	12706	
==>nals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fun <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4386	4501	
==>there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4386	4501	
==>there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->nam <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4386	4501	
==>there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->nam <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1071	1169	
==>th));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1071	1169	
==>th));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline( <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1071	1169	
==>th));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23055	23159	
==>ndex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23055	23159	
==>ndex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0, <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23055	23159	
==>ndex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	742	836	
==>objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	742	836	
==>objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Be <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	742	836	
==>objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Be <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	240	348	
==>urn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	240	348	
==>urn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	240	348	
==>urn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3851	3947	
==>escription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3851	3947	
==>escription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3851	3947	
==>escription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ], <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9749	9852	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7298	7401	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9749	9852	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7298	7401	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9749	9852	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7298	7401	
==>d_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @values) = @_;
    my <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25366	25571	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27561	27766	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25366	25571	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27561	27766	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25366	25571	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27561	27766	
==>mp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # w <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	112	231	
==>x.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	112	231	
==>x.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    di <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	112	231	
==>x.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    di <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	248	345	
==>ess ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	248	345	
==>ess ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cre <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	248	345	
==>ess ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cre <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3745	3861	
==>[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $m <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3745	3861	
==>[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $m <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19719	19814	
==>es to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, et <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18700	18795	
==>es to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, et <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19719	19814	
==>es to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, et <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18700	18795	
==>es to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, et <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7013	7117	
==>re( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7013	7117	
==>re( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fro <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7013	7117	
==>re( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fro <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13876	13972	
==>om_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13876	13972	
==>om_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13876	13972	
==>om_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1332	1440	
==>sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1332	1440	
==>sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1332	1440	
==>sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2778	2871	
==>eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2778	2871	
==>eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2778	2871	
==>eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2985	3137	
==>ied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2985	3137	
==>ied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_ <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2985	3137	
==>ied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7384	7490	
==>ackage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7384	7490	
==>ackage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %cl <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7384	7490	
==>ackage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4788	4924	
==>:Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4788	4924	
==>:Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $val <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4788	4924	
==>:Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $val <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2627	2752	
==>possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:p <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2627	2752	
==>possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:p <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3649	3745	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7	103	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7	103	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7	103	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
#use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7	102	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7	102	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7	102	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
use Hash::Util 'lock_keys', 'unlock_key <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17313	17427	
==>erse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17313	17427	
==>erse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

= <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17313	17427	
==>erse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

= <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6729	6825	
==>lementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6729	6825	
==>lementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6729	6825	
==>lementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function <==
6	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11700	11831	
==>Y_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _as <==
6	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11700	11831	
==>Y_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _as <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3957	4068	
==>('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(R <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2395	2490	
==>inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2395	2490	
==>inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$sub <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2395	2490	
==>inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$sub <==
6	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3755	3872	
==>plit_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    " <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3755	3872	
==>plit_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    " <==
6	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1249	1357	
==>t () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns O <==
6	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1249	1357	
==>t () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns O <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6258	6362	
==>method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    ret <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6258	6362	
==>method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    ret <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2078	2229	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1190	1341	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2078	2229	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1190	1341	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2078	2229	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1190	1341	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        ::opaque_instance_attr($self => $key) = $params{$key}
            # NOTE:
            # th <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25420	25599	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27615	27794	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25420	25599	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27615	27794	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25420	25599	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27615	27794	
==>eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no warnings 'numeric';
                    # warn "  UNSHIFT: ".$self->ele <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4583	4719	
==>{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4723	4859	
==>{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1165	1277	
==>n #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # note: <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1515	1624	
==>n #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1122	1231	
==>n #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1515	1624	
==>n #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6977	7104	
==>,
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{en <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6977	7104	
==>,
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{en <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6977	7104	
==>,
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{en <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	15108	15213	
==>_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18585	18690	
==>_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18001	18106	
==>_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	737	897	
==>$match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3808	3968	
==>$match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	737	897	
==>$match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3808	3968	
==>$match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5262	5395	
==>rse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

meth <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5262	5395	
==>rse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6649	6767	
==>elf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6649	6767	
==>elf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The ve <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6649	6767	
==>elf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The ve <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1429	1521	
==>XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1429	1521	
==>XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functio <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1429	1521	
==>XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functio <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5491	5602	
==>/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]- <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6759	6870	
==>/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5491	5602	
==>/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]- <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6747	6858	
==>/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]- <==
6	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3010	3108	
==>}
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Comp <==
6	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3010	3108	
==>}
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Comp <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16411	16600	
==>antiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e->get('& <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22927	23059	
==>ub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can( <==
6	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19348	19480	
==>ub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3168	3267	
==>>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mang <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3168	3267	
==>>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mang <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3168	3267	
==>>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mang <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12659	12762	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4159	4262	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12659	12762	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4159	4262	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12659	12762	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4159	4262	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13532	13643	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10816	10927	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13532	13643	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10816	10927	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13532	13643	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10816	10927	
==>ethods');
    }
    elsif (lc($params->{for}) eq 'private') {
        return ::opaque_instance_attr($self => '%: <==
6	/Users/nnunley/pugs/blib6/lib/Test.pm	14281	14380	
==>odo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each strin <==
6	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14339	14438	
==>odo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each strin <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10984	11081	
==>ntainer which stores data to be used or
displayed by your program.  It is analagous to a simplifie <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14147	14244	
==>ntainer which stores data to be used or
displayed by your program.  It is analagous to a simplifie <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10984	11081	
==>ntainer which stores data to be used or
displayed by your program.  It is analagous to a simplifie <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14147	14244	
==>ntainer which stores data to be used or
displayed by your program.  It is analagous to a simplifie <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1742	1855	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3305	3418	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1742	1855	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3305	3418	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1742	1855	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3305	3418	
==>:CALLER::CLASS = undef;

    ## WALKMETH and WALKCLASS
    # these are actually two functions
    # which are deta <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6581	6790	
==>lity only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any co <==
6	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6581	6790	
==>lity only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any co <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	7682	7819	
==>ods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignor <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1999	2116	
==>ods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1999	2116	
==>ods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignor <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1999	2116	
==>ods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignor <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25668	25781	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27863	27976	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25668	25781	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27863	27976	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25668	25781	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27863	27976	
==>r ".(scalar @start)."\n";
                    last unless Perl6::Value::numify( $self->elems ) + $_ >= scalar @sta <==
6	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4115	4222	
==>set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    m <==
6	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4115	4222	
==>set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    m <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	11832	11929	
==>in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8979	9076	
==>in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11832	11929	
==>in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8979	9076	
==>in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 <==
6	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1150	1359	
==>)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syn <==
6	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1150	1359	
==>)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syn <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	533	631	
==>);
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handl <==
6	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1146	1244	
==>);
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handl <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	533	631	
==>);
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handl <==
6	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1146	1244	
==>);
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	325	423	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	649	747	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	325	423	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	649	747	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	325	423	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	649	747	
==>ess {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "& <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3435	3537	
==>:SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3435	3537	
==>:SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3435	3537	
==>:SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3303	3392	
==>t_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_ma <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3520	3609	
==>t_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_ma <==
6	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1560	1659	
==>one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1560	1659	
==>one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	5657	5755	
==>one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4787	4885	
==>one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5657	5755	
==>one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4787	4885	
==>one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (S <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14911	15026	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12165	12280	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14911	15026	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12165	12280	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14911	15026	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12165	12280	
==>ou must provide an attribute and a label";
    #$self->_create_accessor($attribute);          
    if (blessed($attr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1095	1248	
==>> $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1095	1248	
==>> $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    ret <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	892	1020	
==>k 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
} <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	905	1027	
==>k 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
} <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1773	1860	
==>= Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3149	3236	
==>= Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6 <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2513	2673	
==>::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*? <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2524	2684	
==>::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*? <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10487	10638	
==>$_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10487	10638	
==>$_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10487	10638	
==>$_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want <==
6	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3427	3535	
==>(@_);
}

sub define_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return $body;
}

sub define <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2561	2656	
==>:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2561	2656	
==>:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numb <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2561	2656	
==>:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numb <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11806	11951	
==>ell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11806	11951	
==>ell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11806	11951	
==>ell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12686	12824	
==>:CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # Thes <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12686	12824	
==>:CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # Thes <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12686	12824	
==>:CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # Thes <==
6	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	477	621	
==>es ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	477	621	
==>es ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) <==
6	/Users/nnunley/pugs/inc/Test/Harness.pm	29541	29640	
==>age.

Figure a way to report test names in the failure summary.

Rework the test summary so long tes <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	32393	32490	
==>her> does not have an identical header to the invocant relation.  This
method has an alias named C <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36943	37040	
==>her> does not have an identical header to the invocant relation.  This
method has an alias named C <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36233	36330	
==>her> does not have an identical header to the invocant relation.  This
method has an alias named C <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4315	4442	
==>sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstar <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4315	4442	
==>sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstar <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2892	2996	
==>rs.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) t <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3049	3153	
==>rs.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) t <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2892	2996	
==>rs.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) t <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3049	3153	
==>rs.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) t <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3453	3557	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6467	6571	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8535	8639	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3453	3557	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6467	6571	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8535	8639	
==>ray`

- `file_name_is_absolute (Str $file) returns Bool`

- `path returns Array`

- `canonpath (Str $_pat <==
6	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2771	2866	
==>COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorsh <==
6	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2928	3023	
==>COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorsh <==
6	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2771	2866	
==>COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorsh <==
6	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2928	3023	
==>COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorsh <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1187	1272	
==>Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile( <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1187	1272	
==>Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11828	11942	
==>: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spli <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11828	11942	
==>: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spli <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11828	11942	
==>: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spli <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2004	2108	
==>r @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2004	2108	
==>r @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2004	2108	
==>r @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20562	20778	
==>$self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20562	20778	
==>$self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fe <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20562	20778	
==>$self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fe <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	283	388	
==>cant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	283	388	
==>cant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	283	388	
==>cant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10089	10244	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7640	7795	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10089	10244	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7640	7795	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10089	10244	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7640	7795	
==>sub {
        TOP: {
            if (defined $stack[-1]) {
                # get the iterator on the top of the stack
                # get the current valu <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	4015	4119	
==>see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	4015	4119	
==>see that module for more information.

= COPYRIGHT 

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6994	7097	
==>see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	9064	9167	
==>see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6994	7097	
==>see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	9064	9167	
==>see that module for more information.

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6751	6864	
==>Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clo <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6751	6864	
==>Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clo <==
6	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	137	238	
==>kage symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'ty <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14985	15082	
==>eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14985	15082	
==>eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retur <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14985	15082	
==>eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16028	16129	
==>..};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16028	16129	
==>..};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16028	16129	
==>..};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8625	8812	
==>w( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8625	8812	
==>w( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int-> <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8625	8812	
==>w( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int-> <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6531	6629	
==>elf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->cal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6531	6629	
==>elf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->cal <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6531	6629	
==>elf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->cal <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1770	1897	
==>' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1770	1897	
==>' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1770	1897	
==>' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requ <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4022	4126	
==>h\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4022	4126	
==>h\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals:: <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4022	4126	
==>h\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals:: <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	35895	35989	
==>at all common attribute names
and corresponding common tuple values are aligned and merged.  Th <==
6	/Users/nnunley/pugs/blib6/lib/Relation.pm	37638	37732	
==>at all common attribute names and corresponding common tuple values
are aligned and merged.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40445	40539	
==>at all common attribute names
and corresponding common tuple values are aligned and merged.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42187	42281	
==>at all common attribute names and corresponding common tuple values
are aligned and merged.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40059	40153	
==>at all common attribute names
and corresponding common tuple values are aligned and merged.  Th <==
6	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41837	41931	
==>at all common attribute names and corresponding common tuple values
are aligned and merged.  Th <==
6	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17353	17471	
==>{
            my @gut =  $node->fmap(sub { $self->generic_reduce($_[0]) })->str;

            return (ref $node) . "->n <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3447	3546	
==>L::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3447	3546	
==>L::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} an <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3447	3546	
==>L::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} an <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	124	215	
==>.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array pack <==
6	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	124	215	
==>.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array pack <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7146	7287	
==>unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7146	7287	
==>unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7146	7287	
==>unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12302	12442	
==>unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12302	12442	
==>unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12302	12442	
==>unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10609	10772	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8160	8323	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10609	10772	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8160	8323	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10609	10772	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8160	8323	
==>tart over
                    redo TOP;
                }
                else {
                    push @stack => $::SELF->_make_dispatcher_iterator(@{$current_cl <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8457	8579	
==>rrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8457	8579	
==>rrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8457	8579	
==>rrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6354	6447	
==>noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO objec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6354	6447	
==>noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO objec <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6354	6447	
==>noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO objec <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1433	1550	
==>[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1433	1550	
==>[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1433	1550	
==>[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15831	15942	
==>b _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enteri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15831	15942	
==>b _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enteri <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15831	15942	
==>b _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enteri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20066	20184	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17205	17323	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20066	20184	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17205	17323	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20066	20184	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17205	17323	
==>"our" variables
        # so they are added to the Package normally
        return $self->add_attribute($label, $value) <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14869	14999	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19568	19698	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14869	14999	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19568	19698	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14869	14999	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19568	19698	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my @autoload = (split '::', our $AUTOLOAD);
        m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	551	646	
==>$self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	551	646	
==>$self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_meth <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	551	646	
==>$self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_meth <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	893	984	
==>ed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	893	984	
==>ed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	893	984	
==>ed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	610	719	
==>_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $ <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6128	6237	
==>_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	610	719	
==>_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6140	6249	
==>_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $ <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1464	1556	
==>role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public comma <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1464	1556	
==>role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public comma <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	943	1059	
==>thod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	943	1059	
==>thod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class( <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	943	1059	
==>thod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class( <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1320	1414	
==>tant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Inte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1320	1414	
==>tant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Inte <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1320	1414	
==>tant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Inte <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	4095	4207	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6744	6856	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4330	4439	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10779	10888	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4330	4439	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10779	10888	
==>ugs::Runtime::Match';
    return unless $match->{bool};
    if ( $match->{return} ) {
        #warn 'pre-retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	7163	7288	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4722	4847	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	7163	7288	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4722	4847	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	7163	7288	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4722	4847	
==>onemptyseqs = (map { (@{$_} ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retur <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1398	1527	
==>ional => 1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signature_term attr
    #     { $_[0]->{out}= { %{$_[2]}, %{ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5600	5716	
==>\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5600	5716	
==>\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to e <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5600	5716	
==>\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to e <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3568	3658	
==>r := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<characte <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3752	3842	
==>r := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<characte <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35946	36084	
==>y, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35946	36084	
==>y, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35946	36084	
==>y, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24006	24123	
==>at,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24006	24123	
==>at,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($ <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24006	24123	
==>at,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7636	7793	
==>$end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7636	7793	
==>$end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        e <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7636	7793	
==>$end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        e <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3358	3473	
==>elf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3358	3473	
==>elf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3358	3473	
==>elf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3244	3343	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6258	6357	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8326	8425	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3244	3343	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6258	6357	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8326	8425	
==>s Str`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	281	380	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	605	704	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	281	380	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	605	704	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	281	380	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	605	704	
==>UBROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1465	1609	
==>$s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') {
            $vs = "[\n <==
6	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6899	6995	
==>c.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' <==
6	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6899	6995	
==>c.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15829	15925	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13079	13175	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15829	15925	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13079	13175	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15829	15925	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13079	13175	
==>ufficientArguments : you must provide a label";
    my $table = $self->_get_attribute_table(\%par <==
6	/Users/nnunley/pugs/src/perl6/Prelude.pm	13165	13323	
==>se brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3350	3488	
==>se brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3350	3488	
==>se brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($stri <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3350	3488	
==>se brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($stri <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7360	7461	
==>de by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub <==
6	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7360	7461	
==>de by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3531	3643	
==>undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3531	3643	
==>undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why d <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3531	3643	
==>undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why d <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	589	694	
==>TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	589	694	
==>TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pr <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	589	694	
==>TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pr <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3002	3139	
==>,  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3282	3409	
==>,  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9700	9827	
==>,  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3282	3409	
==>,  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9700	9827	
==>,  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub non_ <==
6	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13833	13944	
==>)
  package Regexp::Parser::ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper:: <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5289	5396	
==>my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5289	5396	
==>my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5289	5396	
==>my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	224	321	
==>my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	224	321	
==>my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	224	321	
==>my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", su <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	486	589	
==>t
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	486	589	
==>t
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $s <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	486	589	
==>t
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	398	500	
==>RULE')->code();

    <immediate_statement_rule>*
        { return $() }
RULE
*{'indirect_object'} = Pug <==
6	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14922	15019	
==>o the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<P <==
6	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14922	15019	
==>o the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<P <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2425	2622	
==>n unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                cap <==
6	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2734	2925	
==>n unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                cap <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2734	2925	
==>n unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                cap <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4793	4935	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5754	5896	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4793	4935	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5754	5896	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4793	4935	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5754	5896	
==>:to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = _('$.u <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28321	28514	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28321	28514	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $s <==
6	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28321	28514	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $s <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4872	4977	
==>node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_st <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2414	2519	
==>node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_st <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3195	3300	
==>node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_st <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14010	14124	
==>server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14010	14124	
==>server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13076	13182	
==>server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13076	13182	
==>server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, <==
6	/Users/nnunley/pugs/blib6/lib/Set.pm	4083	4183	
==>Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $ <==
6	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4083	4183	
==>Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $ <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	896	1040	
==>art       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $op <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4135	4279	
==>art       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $op <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	896	1040	
==>art       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $op <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4135	4279	
==>art       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $op <==
6	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3920	4042	
==>:= (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypot <==
6	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3932	4054	
==>:= (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypot <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1916	2029	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2278	2391	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2587	2700	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1916	2029	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2278	2391	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2587	2700	
==>e @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octec <==
6	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17333	17446	
==>/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11948	12060	
==>/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11948	12060	
==>/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse m <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11948	12060	
==>/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse m <==
6	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	778	871	
==>n-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice acc <==
6	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	778	871	
==>n-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice acc <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2687	2800	
==>rbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2687	2800	
==>rbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @comp <==
6	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2687	2800	
==>rbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @comp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5955	6051	
==>=> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5955	6051	
==>=> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pru <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5955	6051	
==>=> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pru <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7590	7739	
==>ned)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7590	7739	
==>ned)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<, <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7590	7739	
==>ned)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<, <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3767	3863	
==>c = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3767	3863	
==>c = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    _ <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3767	3863	
==>c = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    _ <==
6	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11700	11817	
==>l "PGE::Rule", "p6rule"
    $P1 = $P0(mob)
    unless $P1 goto end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to <==
6	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	345	447	
==>multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	345	447	
==>multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi <==
6	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	345	447	
==>multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi <==
6	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20094	20185	
==>ote that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event { <==
6	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20094	20185	
==>ote that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event { <==
6	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6220	6330	
==>urn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method <==
6	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6220	6330	
==>urn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method <==
6	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2509	2617	
==>e ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @sp <==
6	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5712	5820	
==>e ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2509	2617	
==>e ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @sp <==
6	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5712	5820	
==>e ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @sp <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3331	3453	
==>$current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3331	3453	
==>$current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    m <==
6	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3331	3453	
==>$current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    m <==
6	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	82	193	
==>js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	82	193	
==>js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  su <==
6	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	82	193	
==>js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2582	2736	
==>= ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2787	2941	
==>= ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3859	4013	
==>= ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $cu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	705	805	
==>=> $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	705	805	
==>=> $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12077	12196	
==>hod($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12077	12196	
==>hod($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12077	12196	
==>hod($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not fo <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8473	8573	
==>t any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8473	8573	
==>t any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2018	2178	
==>%param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $den <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2018	2178	
==>%param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $den <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4189	4300	
==>d($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4189	4300	
==>d($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4779	4890	
==>d($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	715	822	
==>$self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$k <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23732	23824	
==>http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  Th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22505	22597	
==>http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23732	23824	
==>http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22505	22597	
==>http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  Th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8170	8291	
==>f (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->wa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10404	10507	
==>nnected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10404	10507	
==>nnected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_us <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7764	7853	
==>ts, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1589	1678	
==>ts, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4423	4571	
==>($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4423	4571	
==>($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4423	4571	
==>($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19007	19116	
==>vel (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19007	19116	
==>vel (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	520	689	
==>to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extra <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	810	963	
==>to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	943	1046	
==>.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	943	1046	
==>.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	943	1046	
==>.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::P <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5542	5663	
==>'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implem <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13907	14013	
==>src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, 'apo', <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	329	441	
==>oke_upload          => '',
    inline_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1071	1180	
==>reate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1071	1180	
==>reate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1071	1180	
==>reate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24383	24485	
==>ng-of-line only)?

Very popular.  Used all over perl.  Discussed elsewhere.

 * regmust      string (po <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2661	2804	
==>),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2461	2555	
==>urns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2461	2555	
==>urns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) retu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8939	9030	
==>in32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writt <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8939	9030	
==>in32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writt <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7132	7229	
==>nary",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfiles;
s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12069	12164	
==>ntains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9190	9285	
==>ntains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.n <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12069	12164	
==>ntains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.n <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9190	9285	
==>ntains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4498	4605	
==>es for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4498	4605	
==>es for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4498	4605	
==>es for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5366	5466	
==>body joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5366	5466	
==>body joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7160	7267	
==>fix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7160	7267	
==>fix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7160	7267	
==>fix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18926	19031	
==>Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subrouti <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18926	19031	
==>Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subrouti <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1554	1707	
==>uilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->wri <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	217	327	
==>'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	217	327	
==>'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	217	327	
==>'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	217	327	
==>'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3656	3809	
==>rence->new($val);            
            $closure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->is <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1903	2015	
==>esn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.compleme <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1903	2015	
==>esn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.compleme <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2405	2512	
==>defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2405	2512	
==>defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13796	13894	
==>y a subroutine to each header field in turn.  The callback routine
is called with two parameters; t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13796	13894	
==>y a subroutine to each header field in turn.  The callback routine
is called with two parameters; t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2439	2553	
==>Block       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4310	4412	
==>m archive: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or retu <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7199	7301	
==>ath/parrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @modfile <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3545	3639	
==>ameters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|Re <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3545	3639	
==>ameters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|Re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3541	3660	
==>me = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4858	4977	
==>me = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3541	3660	
==>me = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4846	4965	
==>me = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx in <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17547	17659	
==>tr $string              --> Str )
 multi Str::capitalize ( Str $string = CALLER::<$_> --> Str )

Has the effect o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	593	776	
==>ass, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	593	776	
==>ass, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	593	776	
==>ass, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17234	17362	
==>_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17234	17362	
==>_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2026	2147	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2026	2147	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2026	2147	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6989	7088	
==>e} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7001	7100	
==>e} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8156	8283	
==>]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8144	8271	
==>]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13706	13809	
==>OSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7913	8016	
==>OSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	395	492	
==>which is used for
dispatching private methods.

=back

Normally, when you declare a Method on a Cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23426	23549	
==>$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19847	19970	
==>$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	188	289	
==>turn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	188	289	
==>turn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	188	289	
==>turn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16619	16780	
==>alues -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20096	20257	
==>alues -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5686	5792	
==>$i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5686	5792	
==>$i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5686	5792	
==>$i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	579	700	
==>src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	614	735	
==>src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	579	700	
==>src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $d <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9796	9917	
==>src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $d <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1052	1173	
==>src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9479	9616	
==>>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9479	9616	
==>>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9479	9616	
==>>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5957	6082	
==>e;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5957	6082	
==>e;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5957	6082	
==>e;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6258	6356	
==>els and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6258	6356	
==>els and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object> <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1803	1919	
==>returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @s <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1803	1919	
==>returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	301	417	
==>e; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	301	417	
==>e; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5515	5612	
==>vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5515	5612	
==>vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5515	5612	
==>vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3553	3660	
==>dn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3553	3660	
==>dn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3553	3660	
==>dn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22501	22595	
==>, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22501	22595	
==>, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This doc <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8290	8419	
==>there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8290	8419	
==>there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2649	2752	
==>ex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $progr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1261	1364	
==>ex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1962	2065	
==>ex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $progr <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2341	2494	
==>l)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16718	16828	
==>rl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub ta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16718	16828	
==>rl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub ta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16718	16828	
==>rl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub ta <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	33	131	
==>:Runtime::Nada;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

sub provides { }

__PACK <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5119	5234	
==>efined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this does <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5119	5234	
==>efined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this does <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5119	5234	
==>efined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this does <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	62	162	
==>t (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# -------------------- <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	62	162	
==>t (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# -------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1014	1157	
==>pe;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->lea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1014	1157	
==>pe;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->lea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1014	1157	
==>pe;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->lea <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2654	2766	
==>f = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=he <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2654	2766	
==>f = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=he <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	17041	17192	
==>::Element->new('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), id=>0 <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1436	1545	
==>l6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tests first.  Col <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6386	6494	
==>oc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6386	6494	
==>oc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1118	1216	
==>e did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1118	1216	
==>e did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1118	1216	
==>e did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1922	2024	
==>k - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1922	2024	
==>k - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1922	2024	
==>k - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6234	6331	
==>t get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($sel <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6234	6331	
==>t get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	469	602	
==>r'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	469	602	
==>r'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	469	602	
==>r'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'), <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	818	943	
==>end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	818	943	
==>end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @s <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2950	3060	
==>tion->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else {
			my $type = $self->guess_perl <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29169	29265	
==>/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #define ReREFCNT_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	794	894	
==>-----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	794	894	
==>-----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	794	894	
==>-----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_met <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32615	32706	
==>Message objects on demand into user-readable
message strings, using data from external Templ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32615	32706	
==>Message objects on demand into user-readable
message strings, using data from external Templ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3586	3709	
==>rom;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3586	3709	
==>rom;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3586	3709	
==>rom;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fro <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2767	2886	
==>w( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}:: <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	943	1060	
==>w(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7960	8135	
==>r( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4320	4495	
==>r( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5169	5344	
==>r( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30251	30348	
==>hich will be substituted at run-time before the text
is shown to the user.

Each Template module i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30251	30348	
==>hich will be substituted at run-time before the text
is shown to the user.

Each Template module i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5066	5208	
==>ording to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5066	5208	
==>ording to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4955	5083	
==>( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4955	5083	
==>( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4955	5083	
==>( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sli <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	753	843	
==>ar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1131	1221	
==>ar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1770	1860	
==>ar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2205	2295	
==>ar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	753	843	
==>ar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimit <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25367	25463	
==>vironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Messa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25367	25463	
==>vironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Messa <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23849	23998	
==>t"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13353	13492	
==>t"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13353	13492	
==>t"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13353	13492	
==>t"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        d <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4368	4467	
==>m/~njas/sequences/A001113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # X <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7786	7887	
==>ME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less ty <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7786	7887	
==>ME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less ty <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7786	7887	
==>ME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less ty <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3335	3473	
==>perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3335	3473	
==>perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8784	8916	
==>!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      el <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	948	1068	
==>!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    el <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	948	1068	
==>!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    el <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13968	14082	
==>$tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12983	13078	
==>zed
entities are left alone.

If multiple strings are provided as argument they are each decoded <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12983	13078	
==>zed
entities are left alone.

If multiple strings are provided as argument they are each decoded <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1186	1279	
==>phers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequency <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1186	1279	
==>phers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequency <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17670	17787	
==>for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechb <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17670	17787	
==>for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1050	1156	
==>d in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1050	1156	
==>d in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1050	1156	
==>d in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10328	10450	
==>t, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10328	10450	
==>t, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10328	10450	
==>t, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10952	11047	
==>uch field exists C<undef> will be returned.

A multi-valued field will be returned as separate v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10952	11047	
==>uch field exists C<undef> will be returned.

A multi-valued field will be returned as separate v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2172	2298	
==>eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_cor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2172	2298	
==>eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_cor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2172	2298	
==>eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_cor <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4791	4889	
==>join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5041	5139	
==>join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	241	334	
==>ar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	241	334	
==>ar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1832	1922	
==>(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1832	1922	
==>(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1832	1922	
==>(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	800	924	
==>nt_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	800	924	
==>nt_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	800	924	
==>nt_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class) <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15389	15487	
==>he span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15389	15487	
==>he span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2500	2614	
==>defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2640	2754	
==>defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34076	34169	
==>>)

Data: actual character

=head2 anyof_range

Family: anyof_range

Types: anyof_range (C<X-Y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	428	590	
==>cess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	428	590	
==>cess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	428	590	
==>cess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1989	2103	
==>_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2000	2114	
==>_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14431	14608	
==>ne tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17908	18085	
==>ne tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17324	17501	
==>ne tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1722	1828	
==>$self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hac <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1722	1828	
==>$self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3892	3995	
==>'nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3892	3995	
==>'nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3892	3995	
==>'nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21101	21197	
==>files containing text for users, and your program would use
associated keys internally.

It is st <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21101	21197	
==>files containing text for users, and your program would use
associated keys internally.

It is st <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23842	23978	
==>]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13346	13474	
==>]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13346	13474	
==>]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13346	13474	
==>]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10709	10832	
==>$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10709	10832	
==>$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10709	10832	
==>$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8281	8391	
==>r { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7994	8099	
==>r { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4668	4785	
==>.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j] <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4668	4785	
==>.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13604	13746	
==>s {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13604	13746	
==>s {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%ha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9811	9928	
==>e '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1145	1245	
==>constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( cons <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1145	1245	
==>constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5289	5402	
==>sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5289	5402	
==>sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5289	5402	
==>sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4262	4351	
==>setta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4262	4351	
==>setta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only as <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30428	30524	
==>being an an exclusive alternative for the rest
of the set. There is a separate template module fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	887	983	
==>lgorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30428	30524	
==>being an an exclusive alternative for the rest
of the set. There is a separate template module fo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	887	983	
==>lgorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	887	983	
==>lgorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	23456	23596	
==>("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2666	2772	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $va <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7760	7866	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2666	2772	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7760	7866	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1372	1531	
==>bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1372	1531	
==>bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1372	1531	
==>bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2596	2694	
==>al arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method fro <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2596	2694	
==>al arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method fro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11114	11226	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11264	11376	
==>e =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19457	19555	
==>e.

The intended interface and use of this class in Perl programs is similar to
the intended use of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24009	24107	
==>e.

The intended interface and use of this class in Perl programs is similar to
the intended use of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22525	22623	
==>e.

The intended interface and use of this class in Perl programs is similar to
the intended use of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5126	5299	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5126	5299	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5126	5299	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2752	2870	
==>";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2752	2870	
==>";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7633	7739	
==>ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7633	7739	
==>ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7633	7739	
==>ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsnam <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	412	511	
==>the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	412	511	
==>the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization o <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3038	3159	
==>le> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3038	3159	
==>le> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3615	3712	
==>}

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3615	3712	
==>}

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3615	3712	
==>}

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7089	7193	
==>ent\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7089	7193	
==>ent\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7089	7193	
==>ent\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $x <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1321	1417	
==>n}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    ope <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1321	1417	
==>n}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    ope <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1386	1516	
==>y {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_mes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1386	1516	
==>y {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_mes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3078	3181	
==>onstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3078	3181	
==>onstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3078	3181	
==>onstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7781	7908	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11782	11905	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11782	11905	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	882	972	
==>ompiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    d <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	882	972	
==>ompiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1346	1455	
==>mar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1346	1455	
==>mar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4308	4403	
==>s}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4308	4403	
==>s}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4308	4403	
==>s}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_con <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4749	4943	
==>rt/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4749	4943	
==>rt/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7833	7937	
==>r' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7833	7937	
==>r' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7833	7937	
==>r' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19405	19554	
==>$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }

    _ok( !$diag, _where( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6504	6606	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $o <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5634	5736	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6504	6606	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5634	5736	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14684	14810	
==>r";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14684	14810	
==>r";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14684	14810	
==>r";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10617	10740	
==>->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	225	334	
==>my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	225	334	
==>my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	225	334	
==>my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $arg <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15194	15289	
==>texts, the encoded or
decoded string is returned (without changing the input string).

If you pr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15194	15289	
==>texts, the encoded or
decoded string is returned (without changing the input string).

If you pr <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7087	7192	
==>ifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1427	1526	
==>ifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1427	1526	
==>ifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1427	1526	
==>ifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34155	34247	
==>xpand this
to any number of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8845	8992	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9038	9185	
==>able', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11965	12081	
==>zy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11965	12081	
==>zy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11965	12081	
==>zy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1435	1529	
==>is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9188	9282	
==>= shift;
    # ...
}));

=pod

---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1435	1529	
==>is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9188	9282	
==>= shift;
    # ...
}));

=pod

---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9188	9282	
==>= shift;
    # ...
}));

=pod

---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3182	3303	
==>:Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServe <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3182	3303	
==>:Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4187	4285	
==>lling these methods you should take care not
to call them in function form by mistake; that would n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4187	4285	
==>lling these methods you should take care not
to call them in function form by mistake; that would n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4187	4285	
==>lling these methods you should take care not
to call them in function form by mistake; that would n <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1177	1298	
==>("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($li <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28838	28952	
==>y = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28838	28952	
==>y = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	209	311	
==>y = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT' <==
5	/Users/nnunley/pugs/util/package-osx.pl	5131	5228	
==>26.3pm
        /usr/local/man/man3/Perl6::Bible::S27.3pm
        /usr/local/man/man3/Perl6::Bible: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2117	2289	
==>%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2117	2289	
==>%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	603	704	
==>(-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	603	704	
==>(-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	603	704	
==>(-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delet <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	737	836	
==>e filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	737	836	
==>e filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1293	1392	
==>e filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37765	37861	
==>nd a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module by <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37765	37861	
==>nd a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module by <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13826	13941	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::ge <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14105	14220	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::ge <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3149	3280	
==>$!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3366	3497	
==>$!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10600	10725	
==>minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = @_;
    pu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	849	940	
==>tor for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	849	940	
==>tor for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1826	1929	
==>gs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1826	1929	
==>gs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1826	1929	
==>gs.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3933	4029	
==>ur &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
ou <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3933	4029	
==>ur &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
ou <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13761	13872	
==>r {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  me <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13761	13872	
==>r {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4488	4578	
==>tr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4488	4578	
==>tr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4488	4578	
==>tr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1773	1931	
==>a;
        
        print "Indexing '" . basename($meta) ."'\n";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4326	4424	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4326	4424	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4326	4424	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5413	5508	
==>DE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pSyms, $pSt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8300	8410	
==>self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8300	8410	
==>self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8300	8410	
==>self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36330	36423	
==>thod is used
internally by translate_message() to produce the list of Template module
names th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36330	36423	
==>thod is used
internally by translate_message() to produce the list of Template module
names th <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3005	3245	
==>d_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>(' <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3005	3245	
==>d_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4540	4704	
==>->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4540	4704	
==>->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4540	4704	
==>->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ke <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1370	1489	
==>-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+-- <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3666	3785	
==>-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+-- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1370	1489	
==>-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+-- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3666	3785	
==>-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+-- <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5834	5927	
==>}

=head2 @index_files = $repo->index_files(package => $pkg)

Returns a list of all index_file <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7440	7569	
==>//   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7440	7569	
==>//   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7440	7569	
==>//   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? n <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	391	508	
==>Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	391	508	
==>Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1526	1636	
==>ulti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1526	1636	
==>ulti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1526	1636	
==>ulti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	641	744	
==>ck_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use/ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	641	744	
==>ck_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14577	14719	
==>my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14577	14719	
==>my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14577	14719	
==>my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6863	7005	
==>my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5367	5509	
==>my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code h <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8738	8852	
==>sure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8738	8852	
==>sure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1787	1885	
==>elf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1787	1885	
==>elf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1787	1885	
==>elf = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gra <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	13	116	
==>Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = ( <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	13	116	
==>Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14639	14733	
==>ble(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14639	14733	
==>ble(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14639	14733	
==>ble(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16410	16517	
==>(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param strin <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	173	265	
==>Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ru <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	229	321	
==>Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ru <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	173	265	
==>Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ru <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	229	321	
==>Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	472	575	
==>rently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  pos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	472	575	
==>rently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  pos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	472	575	
==>rently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  pos <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4548	4645	
==>ray is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4548	4645	
==>ray is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1313	1417	
==>ious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True } <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1313	1417	
==>ious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6589	6678	
==>b_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6589	6678	
==>b_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6589	6678	
==>b_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1346	1445	
==>rs? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	722	821	
==>iSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1346	1445	
==>rs? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_has <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	722	821	
==>iSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	722	821	
==>iSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1448	1545	
==>g more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1448	1545	
==>g more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16046	16163	
==>!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.ori <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16046	16163	
==>!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.ori <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5624	5723	
==>]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5624	5723	
==>]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5624	5723	
==>]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6656	6775	
==>ring() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6656	6775	
==>ring() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1797	1906	
==>line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1797	1906	
==>line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1877	1986	
==>line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1394	1520	
==>ted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1394	1520	
==>ted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1042	1141	
==>$ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1042	1141	
==>$ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1042	1141	
==>$ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8155	8260	
==>update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8155	8260	
==>update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5807	5910	
==>$self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5807	5910	
==>$self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5807	5910	
==>$self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new A <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3312	3417	
==>::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	83	188	
==>::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	598	701	
==>nf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	598	701	
==>nf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	598	701	
==>nf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * de <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	716	820	
==>TROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

met <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	716	820	
==>TROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	594	695	
==>lue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	594	695	
==>lue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	594	695	
==>lue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enu <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3059	3157	
==>MPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute b <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3059	3157	
==>MPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1736	1971	
==>g) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    m <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11905	12011	
==>s => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-1 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13297	13403	
==>s => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11905	12011	
==>s => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13297	13403	
==>s => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-1 <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3651	3783	
==>-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16443	16540	
==>ches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DES <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16443	16540	
==>ches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DES <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16443	16540	
==>ches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DES <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2777	2913	
==>eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{la <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2777	2913	
==>eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{la <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5758	5858	
==>e()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5758	5858	
==>e()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5758	5858	
==>e()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1726	1868	
==>')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_comma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2705	2817	
==>ovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2705	2817	
==>ovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2705	2817	
==>ovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1619	1716	
==>')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_comma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17267	17366	
==>age tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
wa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17267	17366	
==>age tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5312	5408	
==>f($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5312	5408	
==>f($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5312	5408	
==>f($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3	107	
==>e v6;

role Array--Perl6;

does Map;
does List;

# push @foo, self



&Array::pop<Array> := &Array::splic <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24104	24199	
==>ops between a client automatically sending something
  in response to something it received.  Th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22877	22972	
==>ops between a client automatically sending something
  in response to something it received.  Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24104	24199	
==>ops between a client automatically sending something
  in response to something it received.  Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22877	22972	
==>ops between a client automatically sending something
  in response to something it received.  Th <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2405	2500	
==>ri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1860	1955	
==>ri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2405	2500	
==>ri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1860	1955	
==>ri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5652	5747	
==>e given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5843	5979	
==>ne;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5843	5979	
==>ne;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1077	1174	
==>AME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1077	1174	
==>AME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $d <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5212	5307	
==>ernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s" <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	503	623	
==>mpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	497	617	
==>mpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	763	863	
==>IL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	763	863	
==>IL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	763	863	
==>IL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10091	10229	
==>~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$iden <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6432	6570	
==>~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$iden <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7281	7419	
==>~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$iden <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2804	2898	
==>r = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2804	2898	
==>r = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2366	2467	
==>ts);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, symbol $label, hash %opts) retu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25186	25272	
==>ork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for examp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23950	24036	
==>ork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for examp <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25186	25272	
==>ork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for examp <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23950	24036	
==>ork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for examp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10022	10158	
==>st },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10022	10158	
==>st },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10022	10158	
==>st },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	376	485	
==>);
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11136	11280	
==>bOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11136	11280	
==>bOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11136	11280	
==>bOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decla <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15898	16016	
==>=item chop

 multi Str::chop (  Str  $string is rw                 --> Char )
 multi Str::chop ( Str *@strings = (CALLE <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6229	6330	
==>nt> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	531	633	
==>it via the closure, then things don\'t work right
      // --the order of output can become all screwed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	531	633	
==>it via the closure, then things don\'t work right
      // --the order of output can become all screwed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	531	633	
==>it via the closure, then things don\'t work right
      // --the order of output can become all screwed <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	717	818	
==>$two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symme <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	717	818	
==>$two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symme <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9408	9540	
==>ess $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a situation where no 'script' <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	684	790	
==>ly if a rootdir gets changed

### base dirs
### XXX touch the 'root' entry and the tests will run somewhere <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4003	4102	
==><test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4003	4102	
==><test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4083	4182	
==><test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1751	1934	
==>]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1751	1934	
==>]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take q <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	700	814	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	700	814	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	700	814	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3122	3230	
==>above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(Str <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3122	3230	
==>above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	224	318	
==>S::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	224	318	
==>S::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	224	318	
==>S::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1352	1481	
==>/;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1352	1481	
==>/;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1643	1755	
==>x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1643	1755	
==>x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1643	1755	
==>x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8371	8469	
==>hift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8371	8469	
==>hift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8371	8469	
==>hift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3924	4017	
==>--------------
## removing children

method remove_child_at ($self: Int $index) returns Tree { <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3924	4017	
==>--------------
## removing children

method remove_child_at ($self: Int $index) returns Tree { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14493	14606	
==>econds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the con <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14493	14606	
==>econds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the con <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13534	13639	
==>econds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the con <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13534	13639	
==>econds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the con <==
5	/Users/nnunley/pugs/util/grokprims.pl	423	528	
==>f, $ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11156	11306	
==>' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11156	11306	
==>' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11156	11306	
==>' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	11931	12048	
==>n, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        ($in, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	147	261	
==>ace;
my $dumper;

# which modules do diffrent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	695	822	
==>| \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule specia <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	695	822	
==>| \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule specia <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12403	12519	
==>::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12403	12519	
==>::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12403	12519	
==>::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1883	2008	
==>y @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1883	2008	
==>y @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1883	2008	
==>y @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this h <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	834	945	
==>rn unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	801	912	
==>rn unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2996	3210	
==>im ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2996	3210	
==>im ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1129	1227	
==>alls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1129	1227	
==>alls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1129	1227	
==>alls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28711	28835	
==>nly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28711	28835	
==>nly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28711	28835	
==>nly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18542	18640	
==>ry for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_b <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18542	18640	
==>ry for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2290	2388	
==>push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) work <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2290	2388	
==>push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) work <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2290	2388	
==>push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) work <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3799	3892	
==>Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3799	3892	
==>Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3699	3831	
==>STROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3699	3831	
==>STROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3699	3831	
==>STROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{p <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	173	264	
==>cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.elem <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	173	264	
==>cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.elem <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6152	6312	
==>onst, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = q <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6152	6312	
==>onst, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = q <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	501	644	
==>Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_as <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	139	238	
==>returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is e <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	139	238	
==>returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8371	8659	
==>";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8371	8659	
==>";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8371	8659	
==>";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #wa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9030	9133	
==>new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9030	9133	
==>new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	177	290	
==>,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	177	290	
==>,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	177	290	
==>,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	989	1103	
==>end {
    my $self = shift;
    my $name = shift;
    my $args = $self->makemaker_args;
    $args->{name} = defined <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1056	1169	
==>e> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

m <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	798	911	
==>e> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

m <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1056	1169	
==>e> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

m <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	798	911	
==>e> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8942	9065	
==>state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            stat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8629	8749	
==>state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4303	4393	
==>s::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4303	4393	
==>s::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4303	4393	
==>s::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13478	13661	
==>capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13757	13940	
==>capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2763	2870	
==>workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2763	2870	
==>workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2763	2870	
==>workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11057	11160	
==>et->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_conti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11057	11160	
==>et->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_conti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11057	11160	
==>et->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_conti <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	619	719	
==>$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to i <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	619	719	
==>$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21443	21540	
==>ase engines with minimal effort.

This might seem strange to somebody who has not tried to port be <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21443	21540	
==>ase engines with minimal effort.

This might seem strange to somebody who has not tried to port be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2407	2502	
==>String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2407	2502	
==>String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2407	2502	
==>String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	362	615	
==>ile:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	362	615	
==>ile:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rose <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11180	11332	
==>n ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11180	11332	
==>n ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11180	11332	
==>n ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8410	8527	
==>lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8410	8527	
==>lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8410	8527	
==>lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %par <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11550	11646	
==>ns only the elements in this recurrence that are not in the given recurrence.

- `intersects( $re <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11550	11646	
==>ns only the elements in this recurrence that are not in the given recurrence.

- `intersects( $re <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	700	846	
==>har eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	700	846	
==>har eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4822	4939	
==>e $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4822	4939	
==>e $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4822	4939	
==>e $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_j <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	21677	21786	
==>y $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "Li <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	531	640	
==>xt if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	566	675	
==>xt if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	531	640	
==>xt if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2558	2653	
==>ler implementation only provides a small sample of
Perl 6 syntax and semantics.

=head2 Other Pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3898	4006	
==>iler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primiti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3759	3865	
==>iler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primiti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	19	120	
==>e strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	19	120	
==>e strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	19	120	
==>e strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From A <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6239	6380	
==>clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6239	6380	
==>clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1208	1307	
==>0
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1208	1307	
==>0
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1208	1307	
==>0
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	97	203	
==>e-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($self:) returns Tree {
    # create the tree lazil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	971	1072	
==>fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	971	1072	
==>fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	971	1072	
==>fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - <==
5	/Users/nnunley/pugs/util/build_pugs.pl	3245	3346	
==>st/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($ghc) . $Config <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1097	1214	
==>e_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1097	1214	
==>e_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1097	1214	
==>e_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10428	10534	
==>t ], 
    '... $Bar class_precendence_list');
    
## does Bar get Object's singleton methods ..

is($Bar-> <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	88	176	
==>rl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumper::Ind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4132	4291	
==>, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4132	4291	
==>, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4132	4291	
==>, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3018	3123	
==>an if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $res <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3018	3123	
==>an if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $res <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2469	2588	
==>ilddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_list( $self->pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6301	6403	
==>\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6301	6403	
==>\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6301	6403	
==>\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sour <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1106	1203	
==>te_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("version") or $CGI->para <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16865	16961	
==>ntent-Encoding header field is used as a modifier to the
media type.  When present, its value ind <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16865	16961	
==>ntent-Encoding header field is used as a modifier to the
media type.  When present, its value ind <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	179	261	
==>tp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requ <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	146	228	
==>tp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requ <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	192	274	
==>tp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13428	13548	
==>f $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13428	13548	
==>f $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13428	13548	
==>f $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_mac <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	183	289	
==>lass.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	183	289	
==>lass.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10884	11026	
==>' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10884	11026	
==>' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10884	11026	
==>' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15326	15430	
==>{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15326	15430	
==>{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2330	2435	
==>ternal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2878	2983	
==>ternal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attri <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30370	30466	
==>ading>) may or may not resemble those of the original. 
The anonymous function in the argument C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34922	35017	
==>ading>) may or may not resemble those of the original.
The anonymous function in the argument C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34104	34199	
==>ading>) may or may not resemble those of the original.
The anonymous function in the argument C< <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	873	1019	
==>rn Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	873	1019	
==>rn Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	722	843	
==>string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	722	843	
==>string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	722	843	
==>string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16768	16975	
==>, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16768	16975	
==>, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16768	16975	
==>, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arra <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2947	3043	
==>resent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<para <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2947	3043	
==>resent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<para <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2191	2364	
==>ion} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2191	2364	
==>ion} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11783	11886	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11783	11886	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11783	11886	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	99	224	
==>it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	99	224	
==>it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	99	224	
==>it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output ". <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9752	9872	
==>eturn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provide <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11229	11349	
==>eturn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provide <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15187	15358	
==>= shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15187	15358	
==>= shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15187	15358	
==>= shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4191	4288	
==>eeded or not.

=head2 @{}

When used as an array reference, the match object returns positional
ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4191	4288	
==>eeded or not.

=head2 @{}

When used as an array reference, the match object returns positional
ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2095	2200	
==>this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DEST <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2095	2200	
==>this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DEST <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2095	2200	
==>this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DEST <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27034	27136	
==>:Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27034	27136	
==>:Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $me <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5119	5340	
==>if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5119	5340	
==>if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1557	1684	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1557	1684	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1557	1684	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var ob <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7753	7860	
==>$pVarName);
}
NODE PApp ($pCxt, $pFun, $pInv, $pArgs) {
    my $has_inv = defined($pInv) ? 1 : 0;
    my @in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7064	7166	
==>:Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4698	4812	
==>rammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4537	4647	
==>rammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39812	39910	
==>t = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39812	39910	
==>t = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39812	39910	
==>t = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2888	2999	
==>_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2888	2999	
==>_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2888	2999	
==>_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8218	8319	
==>n1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the ot <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8218	8319	
==>n1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the ot <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2255	2372	
==>}
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	248	355	
==>}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	248	355	
==>}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7280	7525	
==>ewnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7280	7525	
==>ewnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11522	11650	
==>an.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11522	11650	
==>an.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13322	13450	
==>.= $S0
    goto scan
  addrange:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	62	177	
==>ie unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	62	177	
==>ie unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	62	177	
==>ie unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($na <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8279	8384	
==>.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eit <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8279	8384	
==>.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eit <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2519	2619	
==>r the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
pa <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2519	2619	
==>r the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16270	16390	
==>{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16270	16390	
==>{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1466	1583	
==>s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1466	1583	
==>s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1766	1867	
==>infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1766	1867	
==>infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', a <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5545	5646	
==>pect>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	117	247	
==>eturns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is ex <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	117	247	
==>eturns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5637	5751	
==>es for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5637	5751	
==>es for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5637	5751	
==>es for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pus <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50645	50774	
==>arams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            sub { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7817	7923	
==>nterpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEM <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7817	7923	
==>nterpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEM <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	163	268	
==>format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	163	268	
==>format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['X <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1384	1499	
==>s IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1384	1499	
==>s IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3598	3706	
==>label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3598	3706	
==>label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3598	3706	
==>label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3873	4005	
==>op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3873	4005	
==>op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3595	3703	
==>\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3595	3703	
==>\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3595	3703	
==>\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10322	10435	
==>ion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&match <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13799	13912	
==>ion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&match <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13080	13193	
==>ion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23595	23804	
==>eed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23595	23804	
==>eed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23595	23804	
==>eed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6317	6451	
==>way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs invest <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6317	6451	
==>way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs invest <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1761	1893	
==>push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1761	1893	
==>push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2170	2278	
==>_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2170	2278	
==>_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2170	2278	
==>_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	931	1097	
==>dn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $c <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	931	1097	
==>dn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9488	9599	
==>'' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1591	1692	
==>'' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1591	1692	
==>'' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11983	12099	
==>alar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11983	12099	
==>alar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11983	12099	
==>alar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10103	10198	
==>f those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIO <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10161	10256	
==>f those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIO <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15437	15562	
==>-> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15437	15562	
==>-> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11179	11290	
==>ue::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11179	11290	
==>ue::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11179	11290	
==>ue::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6781	6899	
==>CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $co <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6839	6957	
==>CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2546	2648	
==>perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2546	2648	
==>perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2546	2648	
==>perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31457	31570	
==>arn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31457	31570	
==>arn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31457	31570	
==>arn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6338	6434	
==>e_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6338	6434	
==>e_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoi <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	35	144	
==>ass Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.pare <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	35	144	
==>ass Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.pare <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7477	7597	
==>{
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7477	7597	
==>{
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7477	7597	
==>{
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3381	3495	
==>$set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3381	3495	
==>$set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3373	3489	
==>, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3373	3489	
==>, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1521	1614	
==>lude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1521	1614	
==>lude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1521	1614	
==>lude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	446	541	
==>tr $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Po <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	446	541	
==>tr $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3608	3696	
==>e->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3608	3696	
==>e->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3608	3696	
==>e->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2995	3089	
==>C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the va <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2995	3089	
==>C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6378	6465	
==>ass->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:versi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6378	6465	
==>ass->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:versi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6378	6465	
==>ass->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:versi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5509	5631	
==>t::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5509	5631	
==>t::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5509	5631	
==>t::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	472	570	
==>unction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: * <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	472	570	
==>unction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: * <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1262	1408	
==>:PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (joi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1262	1408	
==>:PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (joi <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8643	8764	
==>umbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8643	8764	
==>umbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	859	966	
==>v}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

packa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13480	13597	
==>shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13480	13597	
==>shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13480	13597	
==>shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	798	909	
==>e => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	809	920	
==>e => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9248	9360	
==>to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is r <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9248	9360	
==>to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2124	2219	
==>ess = sub { Compress::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip comp <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6663	6756	
==>ee";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6663	6756	
==>ee";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1072	1172	
==>is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combine <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1072	1172	
==>is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combine <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23468	23559	
==>ations are immutable rather than mutable, this property and/or
same-named accessor method ca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28020	28111	
==>ations are immutable rather than mutable, this property and/or
same-named accessor method ca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26824	26915	
==>ations are immutable rather than mutable, this property and/or
same-named accessor method ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4338	4469	
==>tch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4350	4481	
==>tch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1337	1423	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1337	1423	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1337	1423	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7447	7591	
==>::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7640	7784	
==>::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5455	5558	
==>eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5455	5558	
==>eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6045	6148	
==>eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18907	19050	
==>$xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18907	19050	
==>$xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18907	19050	
==>$xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#M <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2533	2650	
==>ng == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2533	2650	
==>ng == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9634	9749	
==>$contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9634	9749	
==>$contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5332	5432	
==>mp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5332	5432	
==>mp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5332	5432	
==>mp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1936	2034	
==>x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multime <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1936	2034	
==>x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multime <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1936	2034	
==>x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multime <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10705	10797	
==>thod encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%op <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10705	10797	
==>thod encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3192	3328	
==>::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3192	3328	
==>::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3192	3328	
==>::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1600	1693	
==>lso the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the tim <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1600	1693	
==>lso the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the tim <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4940	5040	
==>S

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final positi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4940	5040	
==>S

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final positi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2668	2765	
==>NTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2668	2765	
==>NTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2668	2765	
==>NTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runj <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11327	11469	
==>c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $v = $f->($close);
        $m->s <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4450	4560	
==>$dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated_by: $package version $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13654	13751	
==>$xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13654	13751	
==>$xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13654	13751	
==>$xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11551	11682	
==>.
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11551	11682	
==>.
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11551	11682	
==>.
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            war <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6483	6597	
==>-> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been em <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6483	6597	
==>-> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been em <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4461	4582	
==>modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4461	4582	
==>modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25207	25300	
==>eturns a Bool indicating whether the immutable identity of the
argument C<$other> equals the i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29759	29852	
==>eturns a Bool indicating whether the immutable identity of the
argument C<$other> equals the i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28689	28782	
==>eturns a Bool indicating whether the immutable identity of the
argument C<$other> equals the i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15413	15509	
==>en it needs to account for a variance of needs between its different
users, such as their preferr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15413	15509	
==>en it needs to account for a variance of needs between its different
users, such as their preferr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13342	13432	
==>self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13342	13432	
==>self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13342	13432	
==>self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2052	2161	
==>em) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2052	2161	
==>em) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $hea <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5131	5224	
==>ed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $pa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5131	5224	
==>ed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6655	6748	
==>ed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $pa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	256	504	
==>nly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	256	504	
==>nly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	89	186	
==>t_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	53	150	
==>t_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	141	238	
==>t_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8810	8906	
==>.

- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

C <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8810	8906	
==>.

- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5219	5309	
==>E FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ )) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5219	5309	
==>E FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ )) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5219	5309	
==>E FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ )) <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	646	764	
==>ket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	646	764	
==>ket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6419	6533	
==>@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6419	6533	
==>@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6419	6533	
==>@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1585	1678	
==>nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenE <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1585	1678	
==>nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7000	7114	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7000	7114	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7000	7114	
==>ethod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::o <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4734	4836	
==>Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = eac <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4593	4695	
==>Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = eac <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1435	1593	
==>s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_elemen <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1435	1593	
==>s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_elemen <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15438	15567	
==>, # Set El Torito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-loa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11794	11892	
==>er( $field, $value )

Add a new field value for the specified header field.  Previous values
for th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11794	11892	
==>er( $field, $value )

Add a new field value for the specified header field.  Previous values
for th <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2077	2174	
==>, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=bac <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2077	2174	
==>, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=bac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3949	4044	
==>o implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3949	4044	
==>o implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3949	4044	
==>o implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	730	836	
==>, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	730	836	
==>, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	730	836	
==>, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params" <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1940	2033	
==>n_setup->('configure', '--user', grep !/^--.*=$/, @{$opts->{SETUP}});

    my $pm = "src/perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5748	5839	
==>js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5748	5839	
==>js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5748	5839	
==>js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1411	1576	
==>my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive $Repodir/$file] )             an <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	150	262	
==>needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ver <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	158	270	
==>needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ver <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	150	262	
==>needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ver <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	158	270	
==>needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ver <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20362	20457	
==>kage installers usually do it.  An os-level preference
/ control-panel displays a list of all th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20362	20457	
==>kage installers usually do it.  An os-level preference
/ control-panel displays a list of all th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3787	3875	
==>::Dumper $self;
}));

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3787	3875	
==>::Dumper $self;
}));

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3787	3875	
==>::Dumper $self;
}));

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1901	2029	
==>py of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1901	2029	
==>py of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6337	6433	
==>outNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6337	6433	
==>outNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6337	6433	
==>outNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10999	11161	
==>*%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10999	11161	
==>*%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3643	3741	
==>=> ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3643	3741	
==>=> ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3643	3741	
==>=> ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1148	1247	
==>rint, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1148	1247	
==>rint, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1148	1247	
==>rint, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37336	37427	
==>d C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41885	41976	
==>d C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2303	2402	
==>iphering.

Both of these functions return a closure.  Call the closure with a block of 
data to have <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2303	2402	
==>iphering.

Both of these functions return a closure.  Call the closure with a block of 
data to have <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3080	3248	
==>return unless defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2980	3143	
==>return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11460	11581	
==>c->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11460	11581	
==>c->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11460	11581	
==>c->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	834	951	
==>> "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_handler('\e' => sub {
    my ($S <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	986	1081	
==>il_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	986	1081	
==>il_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	908	1002	
==>il_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	908	1002	
==>il_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	73	190	
==>) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	73	190	
==>) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	73	190	
==>) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12237	12341	
==>method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12231	12335	
==>method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7965	8080	
==>name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surround <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11961	12073	
==>name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surround <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11961	12073	
==>name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surround <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11413	11506	
==>es()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.inclu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11413	11506	
==>es()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.inclu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2564	2887	
==>pply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39437	39530	
==>YRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5172	5265	
==>YRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39437	39530	
==>YRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5172	5265	
==>YRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16864	17007	
==>inted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16864	17007	
==>inted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16864	17007	
==>inted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	789	900	
==>$child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	789	900	
==>$child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1076	1233	
==>0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1076	1233	
==>0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6492	6588	
==>bless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6492	6588	
==>bless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6492	6588	
==>bless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 A <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6488	6616	
==>) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6488	6616	
==>) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16577	16692	
==>)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16577	16692	
==>)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16577	16692	
==>)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8530	8649	
==>DTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8530	8649	
==>DTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8530	8649	
==>DTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == und <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19767	19862	
==>he
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19767	19862	
==>he
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4093	4203	
==>ction ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4093	4203	
==>ction ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4093	4203	
==>ction ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undef <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7429	7527	
==>( :start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.string <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7429	7527	
==>( :start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.string <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	552	647	
==>ad1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	212	307	
==>normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PI <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	552	647	
==>ad1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	212	307	
==>normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	212	307	
==>normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PI <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	497	706	
==>*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Val("\n"),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13653	13840	
==>andidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13653	13840	
==>andidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13653	13840	
==>andidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	743	866	
==>ef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replac <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	743	866	
==>ef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18104	18220	
==>rror(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14525	14641	
==>rror(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3012	3108	
==>H(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3012	3108	
==>H(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3012	3108	
==>H(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, Th <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1772	1906	
==>:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[- <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1772	1906	
==>:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8187	8305	
==>nk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8187	8305	
==>nk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8187	8305	
==>nk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	387	545	
==>h.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        } <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	387	545	
==>h.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        } <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28406	28496	
==>ng-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32958	33048	
==>ng-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32086	32176	
==>ng-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	310	401	
==>d Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23832	23923	
==>[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	310	401	
==>d Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	310	401	
==>d Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5530	5684	
==>href );

                my $postinst = $meta_dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    system( qq[ $^X $posti <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1223	1337	
==>';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $del <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1223	1337	
==>';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $del <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10821	10914	
==>e Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head2 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10821	10914	
==>e Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head2 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17049	17179	
==>$1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13470	13600	
==>$1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23227	23336	
==>ame = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	419	517	
==>C.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	419	517	
==>C.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6912	7052	
==>r->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print pos <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6912	7052	
==>r->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1816	1920	
==>/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1816	1920	
==>/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1816	1920	
==>/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7400	7517	
==>)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7400	7517	
==>)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7400	7517	
==>)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27969	28061	
==>ring) associated with
the variable name specified in the positional parameter $var_name (a
st <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27969	28061	
==>ring) associated with
the variable name specified in the positional parameter $var_name (a
st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2700	2835	
==>se {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2700	2835	
==>se {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2700	2835	
==>se {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	939	1048	
==>ct ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime: <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	939	1048	
==>ct ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7058	7172	
==>};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7070	7184	
==>};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36508	36621	
==>@list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36508	36621	
==>@list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36508	36621	
==>@list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6419	6582	
==>->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6419	6582	
==>->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6419	6582	
==>->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29495	29595	
==>matches a '|'.  This means the handler for '|' does not need
to match it; it has already been consume <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25816	25912	
==>e its target's C<pos()>.  This method, where it returns a
I<reference> to a scalar, makes it work <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	356	471	
==>> 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably ret <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	356	471	
==>> 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably ret <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	356	471	
==>> 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably ret <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	615	723	
==>returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it is <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	615	723	
==>returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1805	1924	
==>ef( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1805	1924	
==>ef( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28882	29000	
==>MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28882	29000	
==>MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	249	355	
==>MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3143	3281	
==>le->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3283	3421	
==>le->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11654	11774	
==>_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11654	11774	
==>_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11654	11774	
==>_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exis <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8076	8195	
==>ot allowed to delete '$pkg'\n" unless $delete_ok;
    }
=cut
    
    ### uninstall the files
    ### XXX check dependen <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	225	316	
==>$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { hlp('string',@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	250	338	
==>i_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	250	338	
==>i_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	250	338	
==>i_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	622	1047	
==>p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	622	1047	
==>p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	183	279	
==>str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	183	279	
==>str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	183	279	
==>str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	987	1108	
==>};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	987	1108	
==>};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	987	1108	
==>};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16956	17048	
==>t exists mainly to document a certain localization methodology
in an easily accessable manner <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16956	17048	
==>t exists mainly to document a certain localization methodology
in an easily accessable manner <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8314	8456	
==>eturn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8314	8456	
==>eturn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8314	8456	
==>eturn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2819	2927	
==>ir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchun <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2819	2927	
==>ir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchun <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6469	6602	
==>ms.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @pack <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6469	6602	
==>ms.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @pack <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29332	29428	
==>ndle to be executed, you must
explicitly add it to the queue (C<< $parser->{next} >>).

The handl <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1544	1637	
==>ually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS com <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1384	1477	
==>ually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	19	130	
==>PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	19	130	
==>PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	19	130	
==>PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15595	15718	
==>exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15595	15718	
==>exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15595	15718	
==>exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6387	6486	
==>m_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6387	6486	
==>m_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	767	880	
==>>();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filte <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	767	880	
==>>();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	267	367	
==>lass, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	267	367	
==>lass, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	267	367	
==>lass, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2813	2913	
==>urns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2634	2734	
==>urns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2813	2913	
==>urns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2634	2734	
==>urns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12808	12891	
==>" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_var name=id>" <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5400	5524	
==>O))             (list)
     (attribute new (@:subclasses))      (list)
     (attribute new (@:superclasses))    (list)
     ( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1879	1996	
==>empdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10453	10561	
==>as it will look
    }
  }

If passed any other argument, it will warn that it is ignoring it.

The iterator w <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	26	121	
==>OM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Elem <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	26	121	
==>OM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29718	29902	
==>lue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29718	29902	
==>lue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29718	29902	
==>lue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    } <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3475	3577	
==>+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *inf <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3475	3577	
==>+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *inf <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16445	16538	
==>orithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBuck <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16445	16538	
==>orithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBuck <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1480	1626	
==>ions on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1429	1570	
==>ions on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3446	3554	
==>Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3446	3554	
==>Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3446	3554	
==>Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
meth <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27077	27233	
==>nt( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27356	27512	
==>nt( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3498	3607	
==>a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gene <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3498	3607	
==>a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gene <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3498	3607	
==>a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gene <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13977	14076	
==>SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13977	14076	
==>SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13977	14076	
==>SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MU <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13976	14074	
==>ew( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

C <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13976	14074	
==>ew( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

C <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7244	7359	
==>he
        # successfully loaded template module; on a function call
        # death, assume module is damaged and s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7244	7359	
==>he
        # successfully loaded template module; on a function call
        # death, assume module is damaged and s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40440	40552	
==>e ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40440	40552	
==>e ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40440	40552	
==>e ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18681	18795	
==>d $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2899	3002	
==>gs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3056	3159	
==>gs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2899	3002	
==>gs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3056	3159	
==>gs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5506	5619	
==>ion;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5506	5619	
==>ion;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5506	5619	
==>ion;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7781	7867	
==>::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1606	1692	
==>::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11270	11379	
==>ed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeri <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11270	11379	
==>ed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	993	1096	
==>ent_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	993	1096	
==>ent_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	993	1096	
==>ent_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14537	14662	
==>""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14537	14662	
==>""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14537	14662	
==>""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7048	7150	
==>urn $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7048	7150	
==>urn $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26693	26818	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26972	27097	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'ev <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5200	5315	
==>unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surroun <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5399	5510	
==>unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surroun <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5399	5510	
==>unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surroun <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6366	6490	
==>$name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6354	6478	
==>$name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	850	959	
==>ent) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    method notify (*@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	949	1050	
==>lass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we nee <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	949	1050	
==>lass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we nee <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	949	1050	
==>lass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we nee <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22979	23064	
==>-----------------------

rmSomewhere(Re,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,E <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4028	4157	
==>gs;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4028	4157	
==>gs;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4028	4157	
==>gs;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9182	9271	
==>tatements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simpl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3007	3096	
==>tatements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simpl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	59	178	
==>ed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	59	178	
==>ed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	59	178	
==>ed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ", <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4366	4483	
==>moved_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!child <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4366	4483	
==>moved_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!child <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19375	19505	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19654	19784	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @te <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25261	25389	
==>tack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this the first pa <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9572	9682	
==>oize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will n <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9572	9682	
==>oize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will n <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11039	11141	
==>the ok
    percentage to not be comparable.<br />
    The percentage of passed tests is calculated usin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4164	4262	
==>self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4164	4262	
==>self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4164	4262	
==>self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1529	1623	
==>gs->{INST_ARCHLIB} =
      File::Spec->catfile($path, "arch");
    $self->makemaker_args->{INST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17946	18080	
==>items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17946	18080	
==>items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17946	18080	
==>items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1754	1857	
==>my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1754	1857	
==>my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17270	17372	
==>haha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17270	17372	
==>haha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17270	17372	
==>haha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3734	3825	
==>alue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3734	3825	
==>alue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7565	7738	
==>oes($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7565	7738	
==>oes($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7565	7738	
==>oes($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3074	3197	
==>le</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3074	3197	
==>le</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4899	4994	
==>objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4899	4994	
==>objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4543	4635	
==>rray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4543	4635	
==>rray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4543	4635	
==>rray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is prim <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	181	286	
==>n't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.rec <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	181	286	
==>n't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.rec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	237	339	
==>{
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	237	339	
==>{
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	237	339	
==>{
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11678	11817	
==>y print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2161	2297	
==>y print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8933	9069	
==>y print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2161	2297	
==>y print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8933	9069	
==>y print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4981	5096	
==>s! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4981	5096	
==>s! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2692	2789	
==>ackend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2692	2789	
==>ackend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Build <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4216	4313	
==>ackend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Build <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8422	8523	
==>rev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8422	8523	
==>rev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2996	3096	
==>bye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2996	3096	
==>bye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3076	3176	
==>bye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3263	3402	
==>->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3158	3294	
==>->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10380	10501	
==>BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2401	2510	
==>BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2401	2510	
==>BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3622	3727	
==>local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3622	3727	
==>local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3622	3727	
==>local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_f <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7384	7481	
==>ffer input data until they have an entire block, then cipher 
the block and return the new ciphert <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7384	7481	
==>ffer input data until they have an entire block, then cipher 
the block and return the new ciphert <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	137	262	
==>plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method foot <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	137	262	
==>plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method foot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2906	3021	
==>t write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2906	3021	
==>t write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2906	3021	
==>t write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2340	2446	
==>$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2340	2446	
==>$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4746	4891	
==>($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4746	4891	
==>($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3319	3412	
==>$PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3319	3412	
==>$PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3319	3412	
==>$PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1915	2059	
==>]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1915	2059	
==>]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1915	2059	
==>]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2534	2645	
==>_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my in <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2534	2645	
==>_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37021	37135	
==>s defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37021	37135	
==>s defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37021	37135	
==>s defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$re <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2257	2358	
==>h() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: * <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2257	2358	
==>h() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7671	7827	
==>.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7671	7827	
==>.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7671	7827	
==>.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'e <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1978	2108	
==>{ &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when Lis <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1978	2108	
==>{ &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when Lis <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2434	2541	
==>\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2434	2541	
==>\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3429	3533	
==>e $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3429	3533	
==>e $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3429	3533	
==>e $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4528	4708	
==>f ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4528	4708	
==>f ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4528	4708	
==>f ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $met <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3367	3492	
==>t?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $! <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3367	3492	
==>t?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $! <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3033	3129	
==>e client, if available.

=back

In addition, the following request headers are set on the HTTP::H <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3033	3129	
==>e client, if available.

=back

In addition, the following request headers are set on the HTTP::H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9525	9613	
==>UB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9525	9613	
==>UB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9525	9613	
==>UB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6681	6796	
==>tr eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6681	6796	
==>tr eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1249	1346	
==>!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1249	1346	
==>!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1249	1346	
==>!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8789	8895	
==>lly when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure th <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8789	8895	
==>lly when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	209	308	
==>) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	209	308	
==>) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1037	1130	
==>f [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1037	1130	
==>f [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1037	1130	
==>f [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23438	23581	
==>m = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23438	23581	
==>m = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23438	23581	
==>m = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think o <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2244	2379	
==>ics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $de <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3605	3732	
==>ics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $de <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9327	9447	
==>ues --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	723	841	
==>ues --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36397	36493	
==>ff: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36397	36493	
==>ff: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36397	36493	
==>ff: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	940	1049	
==>add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	940	1049	
==>add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	940	1049	
==>add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5634	5728	
==>) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
} <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5634	5728	
==>) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1793	1912	
==>slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1793	1912	
==>slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2029	2148	
==>slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1805	1909	
==>n;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1805	1909	
==>n;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gra <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	320	575	
==>ant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # Exte <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	320	575	
==>ant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # Exte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2588	2681	
==>n-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2588	2681	
==>n-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2588	2681	
==>n-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4146	4250	
==>fined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4146	4250	
==>fined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4146	4250	
==>fined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(r <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	44	146	
==>tive;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	44	146	
==>tive;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4792	4887	
==>collisions, we use a fully qualified function name.

=back

The following are the (pseudo) metho <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4792	4887	
==>collisions, we use a fully qualified function name.

=back

The following are the (pseudo) metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	770	866	
==>eturn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	770	866	
==>eturn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	770	866	
==>eturn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33824	33918	
==>ual user's (or user role's) preferences such that each says what
language they prefer to commun <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33824	33918	
==>ual user's (or user role's) preferences such that each says what
language they prefer to commun <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5970	6072	
==>event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5970	6072	
==>event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	481	580	
==>ue is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	481	580	
==>ue is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	481	580	
==>ue is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	119	225	
==>(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	119	225	
==>(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	119	225	
==>(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	38	127	
==>e Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	38	127	
==>e Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35802	35938	
==>dy=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35802	35938	
==>dy=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35802	35938	
==>dy=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	762	855	
==>DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, the <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	762	855	
==>DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6116	6205	
==>:add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6116	6205	
==>:add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6116	6205	
==>:add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	438	571	
==>\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	438	571	
==>\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3876	3976	
==>Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3876	3976	
==>Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3876	3976	
==>Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5315	5408	
==>y $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5315	5408	
==>y $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5315	5408	
==>y $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11254	11345	
==>$location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encod <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11254	11345	
==>$location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encod <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32320	32441	
==>->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'blo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32975	33096	
==>->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'blo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6974	7089	
==>etup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6974	7089	
==>etup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6974	7089	
==>etup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1486	1598	
==>c . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1486	1598	
==>c . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4490	4582	
==>ance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$rea <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4490	4582	
==>ance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$rea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6687	6779	
==>ance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$rea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1144	1253	
==>ft->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	883	987	
==>ft->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1088	1192	
==>ft->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	87	185	
==>erl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compile <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	87	185	
==>erl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6792	6894	
==>);
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6792	6894	
==>);
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6792	6894	
==>);
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1114	1213	
==>od :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate sour <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1114	1213	
==>od :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate sour <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2381	2488	
==>,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2381	2488	
==>,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2381	2488	
==>,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4326	4426	
==>s Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $fil <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4326	4426	
==>s Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5268	5375	
==>(but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5268	5375	
==>(but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5268	5375	
==>(but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self- <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5850	5942	
==>m%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2h <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5850	5942	
==>m%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5877	6019	
==>=> 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5877	6019	
==>=> 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22533	22649	
==>, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18954	19070	
==>, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $n <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	220	321	
==>d $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1449	1636	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1449	1636	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1449	1636	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31812	31908	
==>::Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32859	32955	
==>::Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6102	6227	
==>e;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6102	6227	
==>e;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6102	6227	
==>e;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3151	3245	
==>, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pai <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3209	3303	
==>, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5575	5675	
==>XX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5575	5675	
==>XX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5575	5675	
==>XX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $js <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13495	13591	
==>y. This means that side effects, such as "say" and
database queries, may occur much later than ex <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13495	13591	
==>y. This means that side effects, such as "say" and
database queries, may occur much later than ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9973	10072	
==>=~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9973	10072	
==>=~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9973	10072	
==>=~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2435	2531	
==>kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit fro <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2435	2531	
==>kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit fro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1266	1506	
==>tant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1393	1633	
==>tant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2121	2213	
==>urn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2121	2213	
==>urn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2121	2213	
==>urn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3502	3641	
==>ically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3502	3641	
==>ically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3502	3641	
==>ically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, on <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4508	4643	
==>e = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must ap <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4508	4643	
==>e = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13969	14112	
==>== undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13969	14112	
==>== undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13969	14112	
==>== undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	415	520	
==>e multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $n <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	473	578	
==>e multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13713	13840	
==>ey->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13713	13840	
==>ey->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13713	13840	
==>ey->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1449	1561	
==>turn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1449	1561	
==>turn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1101	1202	
==>le_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1101	1202	
==>le_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1101	1202	
==>le_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($sel <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3735	3832	
==>e as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3735	3832	
==>e as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4663	4788	
==>ue . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4663	4788	
==>ue . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16994	17083	
==>_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16994	17083	
==>_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16994	17083	
==>_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6586	6686	
==>urn $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@arg <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4914	5010	
==>leared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is($p3d->get_z, 0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21015	21110	
==>'.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21015	21110	
==>'.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21015	21110	
==>'.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15390	15506	
==>odule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15390	15506	
==>odule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5350	5461	
==>i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5350	5461	
==>i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5350	5461	
==>i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4493	4643	
==>ss => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4493	4643	
==>ss => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4493	4643	
==>ss => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9671	9768	
==>ct, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `dif <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9671	9768	
==>ct, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7889	8017	
==>ay();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7889	8017	
==>ay();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7889	8017	
==>ay();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marra <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26164	26275	
==>ly, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27779	27882	
==>else { MatchX->new()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6061	6160	
==>nt package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6061	6160	
==>nt package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6061	6160	
==>nt package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12060	12155	
==>t may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/j <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12060	12155	
==>t may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/j <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4501	4606	
==>, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4559	4664	
==>, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, : <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4271	4364	
==>e & Class::Events::Subscriber $subscriber) {
        $subscriber.($.subscription, $.event.args <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1093	1317	
==>my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'ite <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1093	1317	
==>my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5716	5832	
==>_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5716	5832	
==>_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5716	5832	
==>_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	726	853	
==>{ code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	737	864	
==>{ code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	234	334	
==>:*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification (" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	234	334	
==>:*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification (" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	234	334	
==>:*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification (" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20095	20210	
==>t', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20374	20489	
==>t', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2507	2604	
==>r(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2507	2604	
==>r(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2507	2604	
==>r(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarN <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9926	10020	
==>, difference, and a few
other operations.

This class also provides methods for iterating throu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9926	10020	
==>, difference, and a few
other operations.

This class also provides methods for iterating throu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4176	4339	
==>nf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4176	4339	
==>nf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4176	4339	
==>nf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1183	1277	
==>sure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disab <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1183	1277	
==>sure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disab <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	258	382	
==>'0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	258	382	
==>'0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	431	536	
==>{
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you planned $planned test <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3845	3945	
==>f: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::coun <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3845	3945	
==>f: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::coun <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1165	1305	
==>e_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1165	1305	
==>e_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1264	1362	
==>ring containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1264	1362	
==>ring containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1811	1909	
==>ring containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	783	915	
==>erms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	783	915	
==>erms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13224	13346	
==>are_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13224	13346	
==>are_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1530	1627	
==>rride, intending to provide just such
# a usable module.  Any further efforts should likely take p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1139	1236	
==>ray
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1139	1236	
==>ray
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5345	5440	
==>est's attributes.

=item B<report returns Str>

This returns a string which follows the TAP prot <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5345	5440	
==>est's attributes.

=item B<report returns Str>

This returns a string which follows the TAP prot <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7542	7637	
==>est's attributes.

=item B<report returns Str>

This returns a string which follows the TAP prot <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2257	2369	
==>n $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           retur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2257	2369	
==>n $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2220	2330	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2767	2877	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3314	3424	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2312	2423	
==>ce->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2312	2423	
==>ce->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2312	2423	
==>ce->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = sh <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	425	526	
==>rn map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	425	526	
==>rn map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2265	2369	
==>or my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2265	2369	
==>or my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2265	2369	
==>or my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4145	4240	
==>3)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5: <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4145	4240	
==>3)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5: <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3640	3878	
==>ine ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3640	3878	
==>ine ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7595	7714	
==>($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7595	7714	
==>($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7595	7714	
==>($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7773	7939	
==>1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7773	7939	
==>1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7773	7939	
==>1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14794	14885	
==>circ;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I< <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14794	14885	
==>circ;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13623	13758	
==>ey->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13623	13758	
==>ey->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13623	13758	
==>ey->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23119	23238	
==>POS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19540	19659	
==>POS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3628	3728	
==>l later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3628	3728	
==>l later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3628	3728	
==>l later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymor <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	17	109	
==>:Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	17	109	
==>:Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1207	1353	
==>" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1207	1353	
==>" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3887	3976	
==>JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3887	3976	
==>JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3887	3976	
==>JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15979	16076	
==>re times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

Thes <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15979	16076	
==>re times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

Thes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4871	4964	
==>elf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4871	4964	
==>elf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4871	4964	
==>elf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14111	14281	
==>lue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14111	14281	
==>lue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14111	14281	
==>lue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2078	2178	
==>> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SY <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2078	2178	
==>> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SY <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2425	2525	
==>> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SY <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8832	8929	
==>m_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = unde <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8890	8987	
==>m_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = unde <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	987	1109	
==>st_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	987	1109	
==>st_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.user <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	218	316	
==>etch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	218	316	
==>etch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	218	316	
==>etch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	260	375	
==>ol => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	260	375	
==>ol => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3722	3827	
==>, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3722	3827	
==>, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3722	3827	
==>, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4156	4270	
==>essed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            fore <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4363	4477	
==>essed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            fore <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1446	1541	
==>ch
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure t <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1446	1541	
==>ch
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	167	261	
==>qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSafe;

sub new {
	my $cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1257	1367	
==>} ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1257	1367	
==>} ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1257	1367	
==>} ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3311	3408	
==>er.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Pars <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3195	3288	
==>er.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Pars <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5361	5487	
==>mented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5361	5487	
==>mented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5361	5487	
==>mented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8070	8175	
==>tual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_s <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8128	8233	
==>tual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4090	4182	
==>hods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and whe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4090	4182	
==>hods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and whe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4090	4182	
==>hods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and whe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33510	33601	
==>his method has an alias named C<intersect>.

=item C<intersection (Relation *@others) return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38060	38151	
==>his method has an alias named C<intersect>.

=item C<intersection (Relation *@others) return <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3806	4053	
==>);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3806	4053	
==>);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1924	2027	
==>ub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1924	2027	
==>ub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2004	2107	
==>ub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6662	6780	
==>rg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6662	6780	
==>rg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6662	6780	
==>rg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A <==
5	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	177	275	
==>nput a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 + <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	233	331	
==>nput a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10458	10567	
==>to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10458	10567	
==>to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10458	10567	
==>to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24596	24690	
==>table () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29148	29242	
==>table () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	471	566	
==>6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	471	566	
==>6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1806	2090	
==>not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10690	10816	
==>thod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10690	10816	
==>thod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10690	10816	
==>thod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    meth <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4350	4457	
==>: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1950	2059	
==>e('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1950	2059	
==>e('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1950	2059	
==>e('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File") <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2029	2125	
==>f: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2029	2125	
==>f: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@f <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12751	12892	
==>mbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25216	25356	
==>->get('?@superclasses')); 
                          # clear the MRO now
                          $e->get('$self:')->set_attr(symbol->new('@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4976	5079	
==>(ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4976	5079	
==>(ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5566	5669	
==>(ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	252	452	
==>when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.s <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	252	452	
==>when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3417	3536	
==>>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3417	3536	
==>>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3417	3536	
==>>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6269	6406	
==>alid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to th <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6269	6406	
==>alid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39114	39238	
==>ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39114	39238	
==>ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39114	39238	
==>ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4938	5061	
==>l6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4938	5061	
==>l6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4938	5061	
==>l6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11289	11385	
==>em ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Un <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11289	11385	
==>em ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2375	2505	
==>n't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2375	2505	
==>n't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2375	2505	
==>n't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	493	589	
==>hod literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./asse <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	493	589	
==>hod literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./asse <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	697	828	
==>y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	697	828	
==>y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	697	828	
==>y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15388	15528	
==>concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15667	15807	
==>concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	503	611	
==>_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	503	611	
==>_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	503	611	
==>_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6028	6166	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6221	6359	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16482	16584	
==>hod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16482	16584	
==>hod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16482	16584	
==>hod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9561	9769	
==>self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9561	9769	
==>self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9561	9769	
==>self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4471	4609	
==>s?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $documen <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4471	4609	
==>s?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $documen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8490	8602	
==>not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev-> <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8490	8602	
==>not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4246	4340	
==>sues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4246	4340	
==>sues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4246	4340	
==>sues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17153	17264	
==>gth $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_pe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5380	5482	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4510	4612	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5380	5482	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4510	4612	
==>et {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2721	2904	
==>.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modif <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2721	2904	
==>.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13491	13607	
==>!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so si <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16968	17084	
==>!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so si <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16330	16446	
==>!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so si <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1778	1900	
==>.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1778	1900	
==>.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1778	1900	
==>.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	60	161	
==>nt_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	60	161	
==>nt_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1766	1865	
==>ded only for performance reasons,

# because they are too frequent and they are too slow using the b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	369	467	
==>ded only for performance reasons,
# because they are too frequent and they are too slow using the b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1694	1792	
==>ded only for performance reasons,
# because they are too frequent and they are too slow using the b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	380	478	
==>ded only for performance reasons,
# because they are too frequent and they are too slow using the b <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1371	1462	
==>Safe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie::TypeSafe: <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6530	6819	
==>w(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym-> <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	463	570	
==><source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc:: <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	463	570	
==><source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2821	2914	
==>tion> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2821	2914	
==>tion> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1948	2099	
==>$shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1948	2099	
==>$shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8123	8237	
==>n (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind lis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8123	8237	
==>n (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind lis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8123	8237	
==>n (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	187	297	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenize <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	187	297	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenize <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	187	297	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenize <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5832	5924	
==>ol $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5890	5982	
==>ol $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4462	4572	
==>fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4462	4572	
==>fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4462	4572	
==>fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13279	13387	
==>tifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # see 11.2
      <Prim <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	30265	30364	
==>)

Clean up how the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COMP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4100	4211	
==>il "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4100	4211	
==>il "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4100	4211	
==>il "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = ev <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14239	14338	
==>plified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14239	14338	
==>plified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spe <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1670	1836	
==>s, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box(" <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1670	1836	
==>s, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12607	12693	
==>PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12607	12693	
==>PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12607	12693	
==>PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS: <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1151	1254	
==>te() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2042	2144	
==>te() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1717	1816	
==>tch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1717	1816	
==>tch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1717	1816	
==>tch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6811	6941	
==>inue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6811	6941	
==>inue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5995	6106	
==>' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5995	6106	
==>' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5995	6106	
==>' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	497	599	
==>tors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1042	1144	
==>tors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mo <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	497	599	
==>tors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1042	1144	
==>tors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1042	1144	
==>tors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this mo <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1033	1146	
==>r>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zon <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	775	888	
==>r>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zon <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1033	1146	
==>r>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zon <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	775	888	
==>r>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zon <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1922	2024	
==>> $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	572	703	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub lit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	572	703	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub lit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	523	627	
==>efer to it via the closure, then things don\'t work right
      // --the order of output can become all s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	523	627	
==>efer to it via the closure, then things don\'t work right
      // --the order of output can become all s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	523	627	
==>efer to it via the closure, then things don\'t work right
      // --the order of output can become all s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2644	2755	
==>bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute conta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2644	2755	
==>bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute conta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2644	2755	
==>bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute conta <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	944	1038	
==>set )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrenc <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	944	1038	
==>set )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrenc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9820	9926	
==>n gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1638	1743	
==>mpiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1638	1743	
==>mpiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	258	360	
==>n gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	258	360	
==>n gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2533	2681	
==>),
        ),
    ),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->n <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1215	1360	
==>$span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4454	4599	
==>$span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1215	1360	
==>$span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4454	4599	
==>$span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2912	3046	
==>> -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2912	3046	
==>> -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4235	4335	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4235	4335	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4235	4335	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2716	2832	
==>';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$co <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2716	2832	
==>';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2605	2720	
==>vent<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2605	2720	
==>vent<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and h <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9038	9134	
==>ingCharacters {  # see 7.8.4
      <SingleStringCharacter> <SingleStringCharacters>?
}
rule Doubl <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7312	7435	
==>\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1105	1208	
==>s (faster)
    --output_dir    Output Directory to put the html files (Default: ./t_index)
    --test_di <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1803	1905	
==>s not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1803	1905	
==>s not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1803	1905	
==>s not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11617	11733	
==>urces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15094	15210	
==>urces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14429	14545	
==>urces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1209	1302	
==>date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1209	1302	
==>date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4363	4487	
==>s'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4556	4680	
==>s'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	495	600	
==>nput: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	495	600	
==>nput: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	495	600	
==>nput: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16902	17036	
==>0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16902	17036	
==>0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16902	17036	
==>0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

= <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5838	5946	
==>$self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5838	5946	
==>$self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.star <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22010	22111	
==>ment :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBlock :wor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7774	7872	
==>$pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7774	7872	
==>$pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7774	7872	
==>$pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2437	2530	
==>od all_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1904	2018	
==>arams{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'Tes <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22567	22679	
==>er" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string mname
    .local pmc value
    .local pmc ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3394	3504	
==>l::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3394	3504	
==>l::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3394	3504	
==>l::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	332	457	
==>${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	332	457	
==>${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	332	457	
==>${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8406	8504	
==>ick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NIC <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8406	8504	
==>ick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NIC <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3876	3967	
==>Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org> <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3876	3967	
==>Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	90	179	
==>require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigIn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	90	179	
==>require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigIn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	90	179	
==>require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigIn <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5557	5666	
==>)
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5557	5666	
==>)
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5639	5743	
==>ar, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5639	5743	
==>ar, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6229	6333	
==>ar, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self-> <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3619	3726	
==>eck map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssig <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3619	3726	
==>eck map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13380	13480	
==>$class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13380	13480	
==>$class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13380	13480	
==>$class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5188	5320	
==>$x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5188	5320	
==>$x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5406	5492	
==>main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5406	5492	
==>main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5406	5492	
==>main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1730	1834	
==>atchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( $matchObj ) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12856	12950	
==>ubset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9632	9726	
==>ubset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12856	12950	
==>ubset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9632	9726	
==>ubset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	678	821	
==>::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 N <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	678	821	
==>::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39681	39782	
==>ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39681	39782	
==>ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39681	39782	
==>ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'P <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3345	3464	
==>rusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic o <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3345	3464	
==>rusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic o <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30505	30669	
==>== $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    confess <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19187	19314	
==>ses */

=head2 The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3532	3621	
==>($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3532	3621	
==>($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3532	3621	
==>($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7701	7805	
==>}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7701	7805	
==>}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7701	7805	
==>}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32411	32503	
==>g
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32411	32503	
==>g
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	473	628	
==>rt {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	473	628	
==>rt {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2141	2244	
==>String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2141	2244	
==>String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2141	2244	
==>String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3888	4008	
==>*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4081	4201	
==>*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3244	3354	
==>s([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3244	3354	
==>s([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3244	3354	
==>s([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	874	990	
==>Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Ti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	874	990	
==>Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4507	4614	
==>ass too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4507	4614	
==>ass too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4507	4614	
==>ass too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3078	3184	
==>ess $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3078	3184	
==>ess $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3078	3184	
==>ess $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3425	3516	
==>ject (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The followi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3425	3516	
==>ject (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The followi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2085	2202	
==>node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2085	2202	
==>node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4091	4191	
==>ame
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4091	4191	
==>ame
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4091	4191	
==>ame
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	105	213	
==>op::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	105	213	
==>op::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15161	15258	
==>ethod.  The old header value is always returned.
If the given header did not exist then C<undef> i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15161	15258	
==>ethod.  The old header value is always returned.
If the given header did not exist then C<undef> i <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	736	830	
==>R::_bind_params($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set('$?SELF' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6722	6836	
==>d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6722	6836	
==>d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6722	6836	
==>d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8333	8441	
==>X this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.el <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8333	8441	
==>X this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3368	3470	
==>paque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3368	3470	
==>paque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3368	3470	
==>paque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_subm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	521	622	
==>rgument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash contai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	521	622	
==>rgument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash contai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2933	3069	
==>p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2819	2951	
==>p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9739	9870	
==>e source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variable <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6080	6211	
==>e source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variable <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6929	7060	
==>e source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variable <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1731	1837	
==>de::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1731	1837	
==>de::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2405	2503	
==>ly;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2405	2503	
==>ly;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2405	2503	
==>ly;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4177	4308	
==>l ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4177	4308	
==>l ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailin <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20833	20930	
==>to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25385	25482	
==>to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23973	24070	
==>to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	273	385	
==>}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	273	385	
==>}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7088	7180	
==>IL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7088	7180	
==>IL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7088	7180	
==>IL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1727	1848	
==>.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1727	1848	
==>.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36388	36482	
==>uple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40937	41031	
==>uple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40551	40645	
==>uple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which an <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7637	7736	
==>ody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($ki <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7637	7736	
==>ody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($ki <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4469	4558	
==>lass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand(). <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4469	4558	
==>lass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand(). <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4469	4558	
==>lass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand(). <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6710	6820	
==>"}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6710	6820	
==>"}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6710	6820	
==>"}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	27	134	
==>on;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub opera <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	27	134	
==>on;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub opera <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17544	17708	
==>es -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = ma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21021	21185	
==>es -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = ma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20608	20772	
==>es -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = ma <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3041	3156	
==>= $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3041	3156	
==>= $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	428	618	
==>ine = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($prot <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	428	618	
==>ine = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($prot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6058	6165	
==>";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6058	6165	
==>";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6058	6165	
==>";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1088	1210	
==>rray ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '< <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1088	1210	
==>rray ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4128	4216	
==>acks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4128	4216	
==>acks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4128	4216	
==>acks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2117	2231	
==>$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2117	2231	
==>$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2117	2231	
==>$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16427	16538	
==>Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( g <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19904	20015	
==>Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( g <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5165	5311	
==>'s a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This wa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5629	5775	
==>'s a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5547	5651	
==>"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spider <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5547	5651	
==>"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spider <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5547	5651	
==>"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spider <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21588	21685	
==>t (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21588	21685	
==>t (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21588	21685	
==>t (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULT <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3748	3844	
==>re_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.c <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3748	3844	
==>re_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.c <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	694	1028	
==>}          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $e <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	694	1028	
==>}          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17988	18078	
==>6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17988	18078	
==>6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17988	18078	
==>6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12264	12373	
==>xy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12264	12373	
==>xy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12264	12373	
==>xy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub P <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4697	4791	
==>ce( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4697	4791	
==>ce( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	763	982	
==>onstant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	764	983	
==>onstant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 , <==
5	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	114	202	
==>odule::Install::Scripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11015	11152	
==>le->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11015	11152	
==>le->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11015	11152	
==>le->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Cl <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10353	10454	
==>SIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_childre <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10353	10454	
==>SIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_childre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10104	10231	
==>ie "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10104	10231	
==>ie "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10104	10231	
==>ie "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $:: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1021	1142	
==>bject {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1021	1142	
==>bject {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4764	4869	
==>if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4764	4869	
==>if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4764	4869	
==>if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  lo <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5750	5845	
==>ild Not Found : cannot find object ($child_to_remove) in self";
}

## -------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5750	5845	
==>ild Not Found : cannot find object ($child_to_remove) in self";
}

## -------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3440	3559	
==>re, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3451	3570	
==>re, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4370	4480	
==>ub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4370	4480	
==>ub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4370	4480	
==>ub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11648	11780	
==>hing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11648	11780	
==>hing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11648	11780	
==>hing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16459	16639	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16738	16918	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5776	5883	
==>hisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5776	5883	
==>hisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5776	5883	
==>hisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possib <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4722	4881	
==>"setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5381	5540	
==>"setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4722	4881	
==>"setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5381	5540	
==>"setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2325	2422	
==>to ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: JSX::Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	628	745	
==>ned $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	628	745	
==>ned $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	628	745	
==>ned $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1585	1687	
==>c} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.va <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1585	1687	
==>c} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.va <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1224	1334	
==>pends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expec <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1282	1392	
==>pends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	315	416	
==>.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	315	416	
==>.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	315	416	
==>.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10612	10736	
==>superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10612	10736	
==>superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10612	10736	
==>superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a privat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2024	2127	
==>able file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', ' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2024	2127	
==>able file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1172	1271	
==>1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1172	1271	
==>1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1172	1271	
==>1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7256	7348	
==>------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) r <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7256	7348	
==>------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1771	1891	
==>essages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1771	1891	
==>essages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3027	3130	
==>a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3027	3130	
==>a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3027	3130	
==>a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1419	1528	
==>_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1419	1528	
==>_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1419	1528	
==>_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10770	10920	
==>nt("        $test{todo}/$test{max} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1220	1327	
==>this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1220	1327	
==>this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	613	717	
==>stract syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Dom <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	582	682	
==>stract syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Dom <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10370	10479	
==>$self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->objec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9999	10108	
==>$self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->objec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6330	6424	
==>t be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6330	6424	
==>t be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6330	6424	
==>t be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3081	3277	
==>e: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shel <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3081	3277	
==>e: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11832	11945	
==>plication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11832	11945	
==>plication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11832	11945	
==>plication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7089	7196	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3693	3800	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4542	4649	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1234	1331	
==>time::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1234	1331	
==>time::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	287	404	
==>hift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	287	404	
==>hift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	287	404	
==>hift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_st <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24550	24643	
==>ll of their attributes are private, so you must use accessor methods.
Locale::KeyedText does n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24550	24643	
==>ll of their attributes are private, so you must use accessor methods.
Locale::KeyedText does n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14790	14929	
==>&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15069	15208	
==>&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3423	3530	
==>ram{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3423	3530	
==>ram{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3423	3530	
==>ram{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->sh <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2002	2149	
==>for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2002	2149	
==>for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1404	1503	
==>x:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9960	10054	
==>> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) r <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9960	10054	
==>> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13348	13471	
==>lk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27181	27304	
==>lk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	942	1060	
==>}

    unless( $meta or $meta = $self->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->me <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7367	7470	
==>(splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunks <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7367	7470	
==>(splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunks <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10926	11032	
==>>;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11355	11461	
==>>;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29586	29678	
==>attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple- <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34138	34230	
==>attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple- <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33302	33394	
==>attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple- <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	294	425	
==>ace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	294	425	
==>ace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	796	916	
==>$message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	796	916	
==>$message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line. <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	189	301	
==>"'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11475	11595	
==>s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11475	11595	
==>s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11475	11595	
==>s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24598	24692	
==>ble () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=ite <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29150	29244	
==>ble () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=ite <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24357	24495	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25620	25758	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24636	24774	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25899	26037	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3978	4080	
==>, $pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8509	8723	
==>, {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8509	8723	
==>, {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1845	1939	
==>lease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_stan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1845	1939	
==>lease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_stan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1845	1939	
==>lease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_stan <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2865	3095	
==>~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    r <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2865	3095	
==>~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4212	4314	
==>hould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4212	4314	
==>hould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4212	4314	
==>hould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12646	12743	
==>names.

The header field names ($field) are not case sensitive and '_'
can be used as a replacemen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12646	12743	
==>names.

The header field names ($field) are not case sensitive and '_'
can be used as a replacemen <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29643	29739	
==>ribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34195	34291	
==>ribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33359	33455	
==>ribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1134	1237	
==>$self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1963	2064	
==>$self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2103	2204	
==>$self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5 <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3147	3245	
==>*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from ht <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3147	3245	
==>*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from ht <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17149	17306	
==>refix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17428	17585	
==>refix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3647	3751	
==>t eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3647	3751	
==>t eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3647	3751	
==>t eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infi <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	348	456	
==>ss FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA: <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	348	456	
==>ss FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1455	1552	
==>s);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1455	1552	
==>s);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1455	1552	
==>s);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1364	1463	
==>Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2986	3085	
==>Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1364	1463	
==>Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2986	3085	
==>Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3333	3432	
==>Kao. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1191	1306	
==>$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1191	1306	
==>$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6694	6791	
==>d('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6694	6791	
==>d('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6694	6791	
==>d('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	934	1072	
==>tive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        )) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	934	1072	
==>tive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        )) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	934	1072	
==>tive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        )) <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	439	533	
==>}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	439	533	
==>}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4948	5072	
==>l || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4948	5072	
==>l || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4948	5072	
==>l || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19550	19645	
==>n user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updati <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19550	19645	
==>n user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15207	15311	
==>s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15207	15311	
==>s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15207	15311	
==>s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3830	3933	
==>ogram
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4047	4150	
==>ogram
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9476	9590	
==>ray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9476	9590	
==>ray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9476	9590	
==>ray = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15382	15490	
==>- Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_comp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15382	15490	
==>- Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2794	2908	
==>f->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2794	2908	
==>f->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2794	2908	
==>f->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3005	3103	
==>of Perl 5 modules,
it is completely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The sou <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26134	26228	
==>ribute name is a character
string.

=item C<$!body> - B<Relation::Example Body>

Set of Mapping <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1924	2034	
==>y ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0 <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1924	2034	
==>y ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	157	250	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	157	250	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	157	250	
==>::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	703	942	
==>tant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	704	943	
==>tant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7595	7783	
==>arn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7595	7783	
==>arn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7595	7783	
==>arn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4537	4705	
==>tches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4399	4558	
==>tches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2839	2931	
==>forming implementation by far.
The Parrot implementation is currently at a comparable state a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10056	10210	
==>g', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', unde <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10056	10210	
==>g', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5409	5523	
==>> sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5409	5523	
==>> sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5409	5523	
==>> sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4208	4309	
==>t to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4208	4309	
==>t to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4208	4309	
==>t to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3094	3189	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `cat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3094	3189	
==>litdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `cat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	108	226	
==>ass = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::C <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	108	226	
==>ass = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1327	1422	
==>Column>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1327	1422	
==>Column>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1327	1422	
==>Column>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4268	4411	
==>b {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4809	4952	
==>b {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1989	2123	
==>>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2424	2558	
==>>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2861	2995	
==>>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3255	3404	
==>) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3255	3404	
==>) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3255	3404	
==>) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3927	4029	
==>y} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3927	4029	
==>y} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5425	5644	
==>}} ) {
                    if ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{o <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10810	10939	
==>new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10810	10939	
==>new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        r <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5571	5652	
==>152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/6 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5571	5652	
==>152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	795	903	
==>scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_sta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	795	903	
==>scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_sta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	795	903	
==>scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_sta <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	300	407	
==>t error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	300	407	
==>t error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3366	3507	
==>print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4215	4356	
==>print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	303	419	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    els <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	303	419	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    els <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	303	419	
==>odo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    els <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4659	4762	
==>};

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4659	4762	
==>};

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3481	3578	
==>h C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Fa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3481	3578	
==>h C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Fa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5678	5775	
==>h C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Fa <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1699	1787	
==>hertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the p <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1699	1787	
==>hertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3965	4081	
==>( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3965	4081	
==>( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29036	29132	
==>age Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29036	29132	
==>age Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29036	29132	
==>age Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16279	16444	
==>lass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16279	16444	
==>lass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16279	16444	
==>lass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Me <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3267	3366	
==>se doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3267	3366	
==>se doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012 <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13771	13914	
==>ring,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3892	4023	
==>ring,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3892	4023	
==>ring,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3892	4023	
==>ring,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($st <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6309	6437	
==>(rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Jun <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2916	3056	
==>dence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '&&',
        assoc => 'right',
        prec <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	90	219	
==>e Elemente decrementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und als @x speichern
#=andere Hype <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1020	1117	
==>U, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
aga <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1020	1117	
==>U, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
aga <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	238	331	
==>rkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	238	331	
==>rkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	238	331	
==>rkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1480	1634	
==>ub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1480	1634	
==>ub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1480	1634	
==>ub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2673	2777	
==>q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIG <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2673	2777	
==>q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	468	578	
==>s the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	468	578	
==>s the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	468	578	
==>s the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34156	34247	
==>is method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38706	38797	
==>is method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1125	1228	
==>= get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	988	1086	
==>= get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16836	16926	
==>:Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16836	16926	
==>:Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16836	16926	
==>:Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4972	5085	
==>s_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4972	5085	
==>s_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4972	5085	
==>s_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $m <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1062	1156	
==>, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1062	1156	
==>, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13251	13368	
==>) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16728	16845	
==>) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16090	16207	
==>) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's hea <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	205	299	
==>AML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	205	299	
==>AML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xm <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2440	2625	
==>urns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5917	6102	
==>urns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4847	5032	
==>urns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

metho <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	738	850	
==>m { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# metho <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1328	1440	
==>m { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# metho <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1458	1659	
==>er', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:per <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1458	1659	
==>er', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5650	5771	
==>_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5650	5771	
==>_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5650	5771	
==>_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14080	14199	
==>size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14080	14199	
==>size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14080	14199	
==>size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6342	6461	
==>size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4844	4963	
==>size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	519	621	
==>);
		return $class;
	}

	@.known_parsers = $class._parse_ini_file($fh);

	return $class;
}

method do_w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3365	3488	
==>y $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3365	3488	
==>y $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3365	3488	
==>y $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9328	9507	
==>f, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interf <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9328	9507	
==>f, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interf <==
5	/Users/nnunley/pugs/util/build_pugs.pl	6112	6215	
==>e -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        pu <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3328	3428	
==>= split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3328	3428	
==>= split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5618	5717	
==>Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also override <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5618	5717	
==>Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also override <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7815	7914	
==>Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also override <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	79	187	
==>toconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or d <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	79	187	
==>toconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2404	2501	
==>('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2404	2501	
==>('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2404	2501	
==>('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", " <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	174	271	
==>llback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self: <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	174	271	
==>llback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1716	1842	
==>D.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1716	1842	
==>D.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1716	1842	
==>D.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8689	8796	
==>ecedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6220	6323	
==>ecedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1768	1879	
==>A = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1768	1879	
==>A = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1768	1879	
==>A = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2243	2348	
==>V<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost' <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2243	2348	
==>V<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2807	2909	
==>to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2807	2909	
==>to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2807	2909	
==>to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1331	1454	
==>ss ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1331	1454	
==>ss ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1331	1454	
==>ss ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2153	2252	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2153	2252	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5679	5854	
==>urns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5679	5854	
==>urns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	708	814	
==>}],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	708	814	
==>}],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	708	814	
==>}],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	910	1041	
==>function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	910	1041	
==>function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	910	1041	
==>function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	161	269	
==>on module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@c <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	161	269	
==>on module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6497	6687	
==>) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6497	6687	
==>) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6497	6687	
==>) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'po <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	45	153	
==>:<Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswä <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2821	2924	
==>ESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6502	6684	
==>ing
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6502	6684	
==>ing
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6502	6684	
==>ing
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$ <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1243	1336	
==>-------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1083	1176	
==>-------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6600	6702	
==>make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6600	6702	
==>make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6600	6702	
==>make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($rol <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13842	13965	
==>> {
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13842	13965	
==>> {
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5745	5887	
==>lf: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10850	10992	
==>lf: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5745	5887	
==>lf: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10850	10992	
==>lf: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	76	175	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	76	175	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	76	175	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3304	3399	
==>) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3304	3399	
==>) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bo <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	582	704	
==>urns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	582	704	
==>urns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1068	1170	
==>boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1068	1170	
==>boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1068	1170	
==>boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38894	38997	
==>e is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38894	38997	
==>e is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38894	38997	
==>e is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->ne <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	775	875	
==>ix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compar <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	775	875	
==>ix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26859	26993	
==>le = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27138	27272	
==>le = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22705	22828	
==>sh @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22984	23107	
==>sh @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15282	15375	
==>t's qr() method for you right there!)

=item Regexp::MinLength

Implements a min_length() meth <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1971	2143	
==>nd_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$y'),
            App(
                Sym <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3271	3364	
==>fference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3271	3364	
==>fference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3407	3517	
==>[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3407	3517	
==>[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3407	3517	
==>[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	29	131	
==>use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purpose <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13524	13620	
==>thod Hash::exists ($key --> Bool )

True if invocant has an element whose key matches C<$key>, fa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	566	782	
==>ndent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	566	782	
==>ndent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3491	3597	
==>]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3491	3597	
==>]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3491	3597	
==>]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2957	3060	
==>warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2957	3060	
==>warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2957	3060	
==>warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15297	15392	
==>esponse message for interactive systems.

If the program or any of its components are intended f <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15297	15392	
==>esponse message for interactive systems.

If the program or any of its components are intended f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2529	2657	
==>side++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2529	2657	
==>side++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8921	9028	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12398	12505	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11625	11732	
==>" not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return R <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32396	32562	
==>=> 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_disp <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33051	33217	
==>=> 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_disp <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24242	24357	
==>{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20663	20778	
==>{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2105	2208	
==>^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4955	5070	
==>}
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5177	5292	
==>}
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2298	2417	
==>c|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2298	2417	
==>c|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2298	2417	
==>c|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20078	20193	
==>op::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20357	20472	
==>op::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6755	6861	
==>s->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{ta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6767	6873	
==>s->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5381	5476	
==>body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5381	5476	
==>body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5381	5476	
==>body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2940	3059	
==>plemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3789	3908	
==>plemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3315	3406	
==>=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3315	3406	
==>=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5512	5603	
==>=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	131	244	
==>od);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be calle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	131	244	
==>od);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be calle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	131	244	
==>od);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be calle <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3919	4015	
==>e used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stre <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3919	4015	
==>e used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stre <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9154	9303	
==>rsion');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9154	9303	
==>rsion');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18338	18430	
==>fix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18338	18430	
==>fix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18338	18430	
==>fix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2840	2974	
==>a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2840	2974	
==>a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2840	2974	
==>a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5239	5391	
==>red in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5239	5391	
==>red in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5239	5391	
==>red in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	862	960	
==>vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compil <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	862	960	
==>vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5859	5962	
==>';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5859	5962	
==>';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6449	6552	
==>';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHS <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3336	3437	
==>ubmodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scop <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3336	3437	
==>ubmodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scop <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3224	3336	
==>ASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3224	3336	
==>ASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	723	862	
==>de ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	723	862	
==>de ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7433	7537	
==>efix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7433	7537	
==>efix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7433	7537	
==>efix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4024	4155	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4217	4348	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2732	2830	
==>ith Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2732	2830	
==>ith Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2732	2830	
==>ith Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	375	491	
==>equire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	375	491	
==>equire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	375	491	
==>equire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name = <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2297	2397	
==>ecurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2297	2397	
==>ecurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5583	5690	
==>cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5583	5690	
==>cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13808	13908	
==>::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytes <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30702	30801	
==>The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name come <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30702	30801	
==>The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name come <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8944	9058	
==>ems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8944	9058	
==>ems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9914	10020	
==>ller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9914	10020	
==>ller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9914	10020	
==>ller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9718	9878	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9718	9878	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13246	13377	
==>sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13246	13377	
==>sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13246	13377	
==>sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar % <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11145	11255	
==>f($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_alr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11145	11255	
==>f($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_alr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2024	2138	
==>name');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2024	2138	
==>name');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2024	2138	
==>name');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20939	21032	
==>l as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Ret <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20939	21032	
==>l as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16117	16212	
==>ition, and one
application may handle it internally, while another one displays it to the
user i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16117	16212	
==>ition, and one
application may handle it internally, while another one displays it to the
user i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	554	667	
==>"PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	554	667	
==>"PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	554	667	
==>"PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	768	857	
==>l         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	655	742	
==>l       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1553	1669	
==>flex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otild <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1553	1669	
==>flex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otild <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	899	994	
==>pect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	899	994	
==>pect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	979	1074	
==>pect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13710	13852	
==>off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13710	13852	
==>off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13710	13852	
==>off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5956	6098	
==>off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4456	4598	
==>off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2066	2312	
==>(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2066	2312	
==>(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2066	2312	
==>(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15689	15811	
==>k :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $targe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15689	15811	
==>k :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $targe <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5374	5473	
==>t_open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16228	16346	
==>(
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.o <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16228	16346	
==>(
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23307	23399	
==>org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights rese <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41231	41323	
==>org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights rese <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37257	37349	
==>org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights rese <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20560	20673	
==>ndler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not im <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16981	17094	
==>ndler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not im <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6652	6763	
==>- should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6652	6763	
==>- should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6652	6763	
==>- should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	598	780	
==>eption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExce <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	598	780	
==>eption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExce <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	598	780	
==>eption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExce <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8536	8644	
==>are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.incl <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8536	8644	
==>are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.incl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2904	3012	
==>lo' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_di <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2904	3012	
==>lo' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2984	3092	
==>lo' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_di <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	990	1084	
==>er_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	990	1084	
==>er_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns St <==
5	/Users/nnunley/pugs/misc/Blondie/example.pl	167	279	
==>::C->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&say'),
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&infix <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5798	5908	
==>antiated";
}

sub splat {
	my $self = shift;
	my $accum = shift;

	push @$accum, my $entry = {
		orig => $self, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3549	3652	
==>&& $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3549	3652	
==>&& $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3549	3652	
==>&& $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5901	6010	
==>>force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9422	9521	
==>ill be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9422	9521	
==>ill be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
s <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4199	4295	
==>in which case the
object returned represents the last day for the specified month.

- `today()`
- <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4199	4295	
==>in which case the
object returned represents the last day for the specified month.

- `today()`
- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6732	6845	
==>d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6732	6845	
==>d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6732	6845	
==>d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_insta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	412	518	
==>le
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	412	518	
==>le
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2667	2792	
==>end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        retur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2667	2792	
==>end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        retur <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13373	13470	
==>ing")` parameter to most of the functions is a way
to provide a comment that refers to another fil <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13431	13528	
==>ing")` parameter to most of the functions is a way
to provide a comment that refers to another fil <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	31	126	
==>::Makefile;

use strict 'vars';
use Module::Install::Base;
use ExtUtils::MakeMaker ();

use vars <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11792	11930	
==>$match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12071	12209	
==>$match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ru <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	753	857	
==>sub set {
    my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18760	18854	
==>hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17803	17897	
==>hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18760	18854	
==>hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17803	17897	
==>hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6361	6473	
==>pe
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::NodesInfo::node_named{'$name'};
  su <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5868	5964	
==>eturns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4998	5094	
==>eturns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5868	5964	
==>eturns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4998	5094	
==>eturns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12511	12662	
==>);  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12511	12662	
==>);  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12511	12662	
==>);  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $metho <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13631	13725	
==>med
entities will also be expanded.  The longest matching name in
%entity_to_char will be used. <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13631	13725	
==>med
entities will also be expanded.  The longest matching name in
%entity_to_char will be used. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24944	25040	
==>n's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29496	29592	
==>n's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1651	1743	
==>oLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1651	1743	
==>oLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1651	1743	
==>oLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5383	5557	
==>{
                $t = [ 'SUB' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq ' <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	687	794	
==>us(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	687	794	
==>us(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1549	1653	
==>capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1549	1653	
==>capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12037	12167	
==>s1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12037	12167	
==>s1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12037	12167	
==>s1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4912	5016	
==>if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] consta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4912	5016	
==>if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] consta <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1001	1121	
==>);
        return $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
    }

    return;
}

sub can_cc {
    my $sel <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5305	5425	
==>~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tem <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6573	6693	
==>~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tem <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5305	5425	
==>~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tem <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6561	6681	
==>~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	428	615	
==>lize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	428	615	
==>lize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	428	615	
==>lize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2276	2389	
==>amed 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2287	2400	
==>amed 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26288	26386	
==>s
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30840	30938	
==>s
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the o <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29037	29131	
==>zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33589	33683	
==>zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32726	32820	
==>zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1369	1545	
==>$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1369	1545	
==>$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %eve <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7019	7124	
==>Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7019	7124	
==>Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13894	13988	
==>chTest *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	117	230	
==>hod {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	117	230	
==>hod {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	117	230	
==>hod {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16043	16140	
==>orm the first time they are run. The result is cached into
C<.pmc> files.

Perl has native support <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16043	16140	
==>orm the first time they are run. The result is cached into
C<.pmc> files.

Perl has native support <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4287	4393	
==>s eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1484	1586	
==>med->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, posi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1484	1586	
==>med->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, posi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1693	1795	
==>med->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, posi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22640	22739	
==>After the tree has been created, this key is deleted; this gives the
code a way to be sure compilati <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12512	12615	
==>mment);

Checks if the given line is a comment.  If so, it will place it into
C<$comment> (sans #).

=cu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4816	4913	
==>modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3943	4040	
==>modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4816	4913	
==>modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3943	4040	
==>modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8890	9048	
==>return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12789	12905	
==>return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12789	12905	
==>return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20304	20398	
==>instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normal <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20304	20398	
==>instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normal <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11283	11410	
==>m),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::ca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21055	21150	
==>ing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the cha <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19963	20058	
==>ing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21055	21150	
==>ing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19963	20058	
==>ing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the cha <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4911	5071	
==>Y' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avai <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5375	5535	
==>Y' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10483	10635	
==>'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10483	10635	
==>'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10483	10635	
==>'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1424	1529	
==>eferencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1424	1529	
==>eferencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1424	1529	
==>eferencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	664	762	
==>os+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	664	762	
==>os+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	431	533	
==>E(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	431	533	
==>E(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	431	533	
==>E(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	161	258	
==>&cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	161	258	
==>&cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7592	7714	
==>/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($con <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7592	7714	
==>/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($con <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4393	4489	
==>put match exactly.  If you pass
C<$description>, this will use it as the test description.

=back <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4393	4489	
==>put match exactly.  If you pass
C<$description>, this will use it as the test description.

=back <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4473	4569	
==>put match exactly.  If you pass
C<$description>, this will use it as the test description.

=back <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1579	1717	
==>e::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1579	1717	
==>e::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14830	14931	
==>check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14830	14931	
==>check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14830	14931	
==>check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7673	7782	
==>Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7673	7782	
==>Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7673	7782	
==>Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7300	7394	
==>gin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7300	7394	
==>gin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin' <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	301	403	
==>me , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  m <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	301	403	
==>me , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	205	305	
==>my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	205	305	
==>my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	205	305	
==>my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function <==
5	/Users/nnunley/pugs/util/testgraph.pl	1331	1441	
==>rocess

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4244	4351	
==>$_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4244	4351	
==>$_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4244	4351	
==>$_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2121	2220	
==>sion;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remaining probes re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5523	5650	
==>"*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5745	5872	
==>"*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11856	11977	
==>elf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11856	11977	
==>elf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11856	11977	
==>elf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12806	12910	
==>ly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12806	12910	
==>ly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12806	12910	
==>ly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatc <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26820	26918	
==>::Types::overload;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4332	4425	
==>$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], '$<variable>') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4227	4379	
==>lse {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5548	5700	
==>lse {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4227	4379	
==>lse {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5536	5688	
==>lse {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX <==
5	/Users/nnunley/pugs/util/config_h.pl	1579	1709	
==>he
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        ope <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1474	1585	
==>ect> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<objec <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1474	1585	
==>ect> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<objec <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1312	1411	
==>lf = shift;
    return $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18501	18594	
==>{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19859	19952	
==>{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen' <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	28	127	
==>e--Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11216	11313	
==>d in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submeth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11216	11313	
==>d in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submeth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11216	11313	
==>d in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submeth <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3335	3430	
==>CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1680	1848	
==>chElem($idx);
                return undef unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self = shif <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1227	1339	
==>| '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delim <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1227	1339	
==>| '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delim <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	186	296	
==>XPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first plac <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	186	296	
==>XPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first plac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	482	617	
==>r
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	482	617	
==>r
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	482	617	
==>r
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cla <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4344	4436	
==>t::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document descr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4344	4436	
==>t::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document descr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	868	966	
==>ulti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	868	966	
==>ulti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	868	966	
==>ulti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14354	14448	
==>$target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14354	14448	
==>$target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1620	1728	
==>etch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Uni <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1620	1728	
==>etch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Uni <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1620	1728	
==>etch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Uni <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	485	584	
==>bers;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	485	584	
==>bers;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	534	647	
==>ethod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	534	647	
==>ethod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	534	647	
==>ethod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # fo <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14124	14219	
==>ters to consider unsafe (i.e., which to escape). The default set
of characters to encode are con <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14124	14219	
==>ters to consider unsafe (i.e., which to escape). The default set
of characters to encode are con <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5919	6170	
==>omain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5919	6170	
==>omain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30214	30306	
==>C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34766	34858	
==>C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33939	34031	
==>C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1367	1484	
==>path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1367	1484	
==>path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33228	33328	
==>ed in the order
they appear in this array until a match for that message is found.  Since a
program o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33228	33328	
==>ed in the order
they appear in this array until a match for that message is found.  Since a
program o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	166	260	
==>:atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	166	260	
==>:atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	166	260	
==>:atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1255	1383	
==>'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1255	1383	
==>'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1255	1383	
==>'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defi <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18177	18293	
==>List )
 multi Str::split (      Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26290	26384	
==>===========================

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Ya <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3196	3357	
==>: '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3196	3357	
==>: '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3196	3357	
==>: '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23521	23617	
==>ty and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  D <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28073	28169	
==>ty and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  D <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9154	9328	
==>e;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12631	12805	
==>e;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1414	1533	
==>y type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1414	1533	
==>y type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1414	1533	
==>y type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2944	3060	
==>ntersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
} <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2944	3060	
==>ntersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8583	8680	
==>LTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8583	8680	
==>LTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8583	8680	
==>LTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15400	15497	
==>spread use
then it needs to account for a variance of needs between its different
users, such as t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15400	15497	
==>spread use
then it needs to account for a variance of needs between its different
users, such as t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	449	540	
==>t-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	410	501	
==>t-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	410	501	
==>t-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3076	3222	
==>es} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3076	3222	
==>es} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3076	3222	
==>es} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_cl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	220	322	
==>:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	220	322	
==>:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1368	1523	
==>h = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1368	1523	
==>h = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2118	2221	
==>)(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2118	2221	
==>)(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2118	2221	
==>)(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2865	2978	
==>);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2865	2978	
==>);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pat <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14190	14309	
==>=> operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4263	4374	
==>=> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4263	4374	
==>=> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4263	4374	
==>=> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6034	6137	
==>other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2926	3030	
==>'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fail <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2926	3030	
==>'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fail <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3006	3110	
==>'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fail <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5539	5640	
==>} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5539	5640	
==>} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5111	5212	
==>::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8944	9039	
==>S

The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8944	9039	
==>S

The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9383	9473	
==>l6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3208	3298	
==>l6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3836	3939	
==>ethod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3836	3939	
==>ethod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3836	3939	
==>ethod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPA <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23892	23987	
==>etta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file fo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23892	23987	
==>etta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file fo <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1505	1609	
==>as Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submeth <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1505	1609	
==>as Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submeth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5814	5910	
==>ilter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5814	5910	
==>ilter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5814	5910	
==>ilter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6113	6254	
==>$path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6113	6254	
==>$path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12657	12792	
==>ument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12657	12792	
==>ument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  = <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	138	237	
==>rilliant' and is a suite of modules that will be used
as the base for Perl6's CPAN, also known as si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2020	2123	
==>ie "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2020	2123	
==>ie "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2020	2123	
==>ie "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1018	1120	
==>eturns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1076	1178	
==>eturns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2246	2374	
==>essage.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2246	2374	
==>essage.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	950	1057	
==>Node}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	950	1057	
==>Node}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	950	1057	
==>Node}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39013	39149	
==>cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39013	39149	
==>cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39013	39149	
==>cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2122	2233	
==>$code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2122	2233	
==>$code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13270	13406	
==>)
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13270	13406	
==>)
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12208	12315	
==>to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12208	12315	
==>to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12208	12315	
==>to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5645	5755	
==>~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5645	5755	
==>~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5645	5755	
==>~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32609	32700	
==>nvert Message objects on demand into user-readable
message strings, using data from external <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32609	32700	
==>nvert Message objects on demand into user-readable
message strings, using data from external <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1471	1573	
==>length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1471	1573	
==>length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1471	1573	
==>length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	383	477	
==>DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	383	477	
==>DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2622	2726	
==>won't be run - it must be the
first child of an App for that to happen.

Inherits Unit.

=item App

An Ap <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21777	21877	
==>e was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20658	20758	
==>e was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21777	21877	
==>e was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20658	20758	
==>e was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the m <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17594	17706	
==>".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24637	24733	
==>vent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23401	23497	
==>vent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24637	24733	
==>vent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23401	23497	
==>vent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2736	2850	
==>=> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'par <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7830	7944	
==>=> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'par <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2736	2850	
==>=> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'par <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7830	7944	
==>=> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'par <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3732	3838	
==>he top level App into

    ( Thunk(...), 10 )

At which point the App will put the 10 into the parameter st <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16312	16416	
==>$self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16312	16416	
==>$self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucke <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	821	912	
==>:Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	821	912	
==>:Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	821	912	
==>:Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4588	4737	
==>lon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4588	4737	
==>lon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4588	4737	
==>lon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	261	376	
==>d, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 } <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	261	376	
==>d, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 } <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1354	1454	
==>,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1354	1454	
==>,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20162	20258	
==>ler may choose to declare that its result not be recompiled by
some other containing parser. In t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20162	20258	
==>ler may choose to declare that its result not be recompiled by
some other containing parser. In t <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	15682	15776	
==>urn($leader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_files);

Calcu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1697	1842	
==>(@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (key <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1697	1842	
==>(@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (key <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1697	1842	
==>(@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (key <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18730	18826	
==>y dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguou <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18730	18826	
==>y dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguou <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16081	16232	
==>\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16075	16226	
==>\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1) <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12162	12272	
==>ts>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <H <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9150	9254	
==>trd_img\"",
    ensure => sub { -r $initrd_img and -s $initrd_img == 1024 * $initrd_size },
    using  => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4617	4716	
==>$var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4021	4146	
==>suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4021	4146	
==>suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4021	4146	
==>suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14189	14286	
==>Any return values of the callback routine are ignored.  The loop can
be broken by raising an excep <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14189	14286	
==>Any return values of the callback routine are ignored.  The loop can
be broken by raising an excep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12027	12151	
==>}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12027	12151	
==>}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12027	12151	
==>}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11441	11532	
==>tem>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11441	11532	
==>tem>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.mem <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7233	7338	
==>@rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7233	7338	
==>@rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7233	7338	
==>@rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6557	6651	
==>se_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6557	6651	
==>se_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2333	2442	
==>lude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2550	2659	
==>lude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8516	8680	
==>if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8516	8680	
==>if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8516	8680	
==>if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $s <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1283	1424	
==>es ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $i <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1283	1424	
==>es ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6754	6862	
==>ncrement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6754	6862	
==>ncrement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6754	6862	
==>ncrement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)) <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	159	257	
==>lem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	159	257	
==>lem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3122	3221	
==>e_a 'Val', 'VRat'  , 'value' ,'unk';
node_a 'Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28206	28301	
==>g()>

This method returns a stringified version of this object which is suitable
for debugging p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35562	35657	
==>g()>

This method returns a stringified version of this object which is suitable
for debugging p <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28206	28301	
==>g()>

This method returns a stringified version of this object which is suitable
for debugging p <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35562	35657	
==>g()>

This method returns a stringified version of this object which is suitable
for debugging p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10383	10510	
==>$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_para <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10383	10510	
==>$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_para <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10383	10510	
==>$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_para <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31671	31768	
==>ion has either all of the tuples of
the original, or has zero tuples, respectively.  This method h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36221	36318	
==>ion has either all of the tuples of
the original, or has zero tuples, respectively.  This method h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5422	5584	
==>$required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5422	5584	
==>$required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5422	5584	
==>$required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2333	2456	
==>_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12234	12345	
==>didate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12234	12345	
==>didate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12234	12345	
==>didate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	340	435	
==>e honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSIO <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1613	1704	
==>ift;
	my $node = shift;
	return $self->literal_value($node) unless Scalar::Util::blessed($no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13124	13221	
==>,-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13124	13221	
==>,-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13124	13221	
==>,-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22603	22694	
==>ion is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22603	22694	
==>ion is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5362	5470	
==>hold all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proce <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9757	9865	
==>[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5362	5470	
==>hold all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proce <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9757	9865	
==>[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9757	9865	
==>[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ] <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1392	1673	
==>r (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1392	1673	
==>r (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	931	1041	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	931	1041	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	931	1041	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $cou <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12036	12134	
==>'-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12036	12134	
==>'-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17163	17252	
==>attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17163	17252	
==>attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17163	17252	
==>attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_at <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20990	21082	
==>usly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Po <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20990	21082	
==>usly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19639	19730	
==>1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19639	19730	
==>1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19639	19730	
==>1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4245	4347	
==>e($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4462	4564	
==>e($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12388	12485	
==>DALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (hash %params) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14989	15083	
==>.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14989	15083	
==>.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to t <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13616	13759	
==>')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3749	3880	
==>')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3749	3880	
==>')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3749	3880	
==>')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3321	3423	
==>ub returns { (shift)->{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($left->params->equa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2275	2380	
==>"N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2275	2380	
==>"N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2275	2380	
==>"N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", <==
5	/Users/nnunley/pugs/util/package-osx.pl	5904	6001	
==>an3/Perl6::Overview::File.3
        /usr/local/man/man3/Perl6::Overview::File.3pm
        /usr/loc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1380	1474	
==>e constant RPe_RBRACE => --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => -- <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10807	10961	
==>>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10807	10961	
==>>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37682	37799	
==>"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37682	37799	
==>"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37682	37799	
==>"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1469	1727	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=po <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1469	1727	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5995	6097	
==>PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializati <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5995	6097	
==>PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializati <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5995	6097	
==>PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializati <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6465	6572	
==>>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Da <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6477	6584	
==>>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3972	4076	
==>rrent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3972	4076	
==>rrent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3972	4076	
==>rrent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISP <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	418	559	
==>fined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	333	474	
==>fined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	421	562	
==>fined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1945	2051	
==>excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1945	2051	
==>excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5377	5496	
==>ility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    ret <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5377	5496	
==>ility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7424	7522	
==>llchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7424	7522	
==>llchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7424	7522	
==>llchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ch <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2590	2760	
==>tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alter <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2894	3052	
==>tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2894	3052	
==>tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alter <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	965	1071	
==>n if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	932	1038	
==>n if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4157	4270	
==>$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
} <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4215	4328	
==>$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16168	16265	
==>$xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16168	16265	
==>$xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16168	16265	
==>$xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1845	1984	
==>turn FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because o <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1845	1984	
==>turn FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because o <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1295	1395	
==>exes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> a <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1295	1395	
==>exes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> a <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3993	4093	
==>>{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self-> <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1897	2092	
==>rue,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub { <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1897	2092	
==>rue,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5435	5601	
==>=> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5435	5601	
==>=> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5435	5601	
==>=> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->s <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7498	7619	
==>p::Modifier")
    pos = mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_ccl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6906	6996	
==>::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.org <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1346	1436	
==>::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.org <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6906	6996	
==>::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.org <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1346	1436	
==>::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.org <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11573	11681	
==>$tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    my @alts = map  { $_->[0] } <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	107	214	
==>Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differenc <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	115	222	
==>Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differenc <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	107	214	
==>Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differenc <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	115	222	
==>Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	886	990	
==>w<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	886	990	
==>w<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	886	990	
==>w<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2713	2809	
==>assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2713	2809	
==>assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8125	8322	
==>=> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8125	8322	
==>=> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8125	8322	
==>=> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2039	2150	
==>py) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2039	2150	
==>py) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15354	15458	
==>ub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_hash_handlers{$reft <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5459	5556	
==>) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4589	4686	
==>) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5459	5556	
==>) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4589	4686	
==>) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12871	13025	
==>ied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12871	13025	
==>ied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12871	13025	
==>ied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8345	8453	
==>::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternatio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8056	8159	
==>::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternatio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1699	1818	
==>emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1699	1818	
==>emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3839	3949	
==>2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3839	3949	
==>2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5363	5473	
==>2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Th <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	3991	4145	
==>t "\n";

my $quotable = qr/\w+|$RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3553	3663	
==>);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3553	3663	
==>);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3553	3663	
==>);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::mak <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3630	3731	
==>ath as the root of an Parrot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as the path of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1242	1360	
==>$instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1242	1360	
==>$instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1242	1360	
==>$instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10395	10511	
==>PUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10395	10511	
==>PUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23695	23818	
==>XEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream t <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28910	29006	
==>XEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15444	15536	
==>riance of needs between its different
users, such as their preferred language of communicatio <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15444	15536	
==>riance of needs between its different
users, such as their preferred language of communicatio <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30520	30612	
==>exp::Parser/"Walking the Tree">).

=back

Objects may override these methods (as objects ofte <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4625	4725	
==>ckages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Keye <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4625	4725	
==>ckages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Keye <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1884	1992	
==>code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper:: <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1884	1992	
==>code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2764	2862	
==>ro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2764	2862	
==>ro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2764	2862	
==>ro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7788	7893	
==>turn that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_v <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7788	7893	
==>turn that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2165	2267	
==>ement zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 in <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2165	2267	
==>ement zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 in <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2165	2267	
==>ement zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10914	11072	
==>},
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10914	11072	
==>},
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10914	11072	
==>},
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2284	2407	
==>ag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . ' <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2284	2407	
==>ag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	399	501	
==>VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "ca <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	399	501	
==>VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "ca <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	996	1094	
==>=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=ba <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	996	1094	
==>=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1543	1641	
==>=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34638	34752	
==>ength ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34638	34752	
==>ength ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34638	34752	
==>ength ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21374	21562	
==>elf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21374	21562	
==>elf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21374	21562	
==>elf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5478	5578	
==>Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is wo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5478	5578	
==>Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	704	816	
==>::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	704	816	
==>::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	704	816	
==>::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15761	15862	
==>stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node co <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15761	15862	
==>stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	312	418	
==>l
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	312	418	
==>l
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5483	5577	
==>main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5483	5577	
==>main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5483	5577	
==>main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6173	6278	
==>:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6173	6278	
==>:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6173	6278	
==>:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11793	11889	
==>ds (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11793	11889	
==>ds (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	406	510	
==>is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	406	510	
==>is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	406	510	
==>is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

su <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24232	24324	
==>Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24232	24324	
==>Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	629	725	
==>tch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	629	725	
==>tch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	629	725	
==>tch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12551	12644	
==>tests that are passing represent the
current working features.

This module deals with encodin <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12551	12644	
==>tests that are passing represent the
current working features.

This module deals with encodin <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5273	5402	
==>rt_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5273	5402	
==>rt_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	480	583	
==>ss
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	480	583	
==>ss
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	480	583	
==>ss
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4779	4905	
==>HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4779	4905	
==>HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4779	4905	
==>HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  l <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8226	8326	
==>span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other han <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8226	8326	
==>span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other han <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19470	19587	
==>atements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19749	19866	
==>atements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10271	10362	
==>*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10271	10362	
==>*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10271	10362	
==>*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1184	1307	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1184	1307	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1184	1307	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    su <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24091	24196	
==>r(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20512	20617	
==>r(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5197	5309	
==>ubrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5390	5502	
==>ubrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	755	866	
==>$attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	755	866	
==>$attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	755	866	
==>$attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5564	5675	
==>f->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($se <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5564	5675	
==>f->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($se <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6154	6265	
==>f->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($se <==
5	/Users/nnunley/pugs/util/package-osx.pl	8997	9100	
==>{
    my ($dest, %symlinks) = @_;
    make_dir("${dest}/usr/bin") unless (-d "${dest}/usr/bin");
    chd <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21693	21785	
==>X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7166	7265	
==>de type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7178	7277	
==>de type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7672	7797	
==>d literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7672	7797	
==>d literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4680	4803	
==>e);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4680	4803	
==>e);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4680	4803	
==>e);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25541	25664	
==>ge Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9823	9925	
==>finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9823	9925	
==>finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9233	9322	
==>tatements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3058	3147	
==>tatements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40040	40280	
==>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  -> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19589	19820	
==>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4858	4949	
==>had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4858	4949	
==>had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4858	4949	
==>had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyC <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19108	19234	
==>>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      <Assignment <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4979	5077	
==>ti sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4106	4204	
==>ti sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4979	5077	
==>ti sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4106	4204	
==>ti sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1720	1941	
==>st) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_elem <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1720	1941	
==>st) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	361	462	
==>the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	361	462	
==>the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	361	462	
==>the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @I <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9836	9955	
==>~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7776	7895	
==>~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9836	9955	
==>~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7776	7895	
==>~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4251	4351	
==>:Harness currently only has one function, here it is.

=over 4

=item B<runtests>

  my $allok = runt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14917	15043	
==>r        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14917	15043	
==>r        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14917	15043	
==>r        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8986	9106	
==>n a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $le <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8986	9106	
==>n a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15615	15770	
==>->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15615	15770	
==>->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15615	15770	
==>->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Meth <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1411	1510	
==>stead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1411	1510	
==>stead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5821	5944	
==>delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5821	5944	
==>delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5821	5944	
==>delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6889	7009	
==>y @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX nee <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6889	7009	
==>y @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX nee <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5722	5841	
==>1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5722	5841	
==>1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5722	5841	
==>1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16816	16914	
==>t (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child No <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16816	16914	
==>t (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child No <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18137	18268	
==>'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18416	18547	
==>'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4657	4768	
==>Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4657	4768	
==>Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4657	4768	
==>Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4135	4239	
==>lue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4135	4239	
==>lue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4135	4239	
==>lue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10677	10769	
==>odule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10735	10827	
==>odule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4977	5093	
==>piled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4977	5093	
==>piled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4977	5093	
==>piled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-du <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13980	14089	
==>st of the four
        # languages that has a matching template available.
        print $translator.translate <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13980	14089	
==>st of the four
        # languages that has a matching template available.
        print $translator.translate <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10748	10842	
==>b {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The com <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10748	10842	
==>b {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	82	175	
==>tion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::B <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	82	175	
==>tion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::B <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	82	175	
==>tion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30870	31019	
==>hift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30870	31019	
==>hift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30870	31019	
==>hift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4687	4808	
==>if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13112	13233	
==>if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15723	15844	
==>if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17211	17332	
==>if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21894	22015	
==>if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	684	784	
==>um->new((shift)->to_native() + 0);
}

# implement comparitor method

sub _compare {
    my ($left, $r <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2198	2292	
==>odule names are typically 
capitalized, most "autotags" will be too.

When activated, the speci <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2198	2292	
==>odule names are typically 
capitalized, most "autotags" will be too.

When activated, the speci <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2536	2621	
==>is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2536	2621	
==>is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8634	8754	
==>ure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8634	8754	
==>ure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	947	1042	
==>- separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	947	1042	
==>- separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	947	1042	
==>- separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1637	1745	
==>def) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1637	1745	
==>def) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1637	1745	
==>def) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5653	5760	
==>== $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Fou <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5653	5760	
==>== $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Fou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	320	464	
==>{ access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	320	464	
==>{ access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	320	464	
==>{ access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2438	2531	
==>d throwing the return value away.
Encryptions after this point will be using stronger portions <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2438	2531	
==>d throwing the return value away.
Encryptions after this point will be using stronger portions <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1148	1266	
==>->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1148	1266	
==>->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1148	1266	
==>->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curren <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1010	1099	
==>\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1010	1099	
==>\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2985	3127	
==>n concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2985	3127	
==>n concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33433	33531	
==>he program or first library should
appear first in the array.  Each Set Name can be any defined and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33433	33531	
==>he program or first library should
appear first in the array.  Each Set Name can be any defined and <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10825	10943	
==>pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::v <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10965	11058	
==>C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items
rem <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8369	8462	
==>C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items rem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10965	11058	
==>C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items
rem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8369	8462	
==>C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items rem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1873	1997	
==>ss $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1873	1997	
==>ss $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1873	1997	
==>ss $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19573	19670	
==>use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effec <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19573	19670	
==>use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effec <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1271	1389	
==>1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2564	2661	
==>perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2564	2661	
==>perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This progr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1777	1868	
==>perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3638	3729	
==>perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This progr <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3558	3677	
==>p {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3558	3677	
==>p {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5193	5292	
==>n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClas <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5193	5292	
==>n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClas <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5193	5292	
==>n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	854	963	
==>($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	854	963	
==>($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	854	963	
==>($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2954	3051	
==>in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2954	3051	
==>in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3755	3911	
==>{
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4002	4150	
==>{
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10451	10599	
==>{
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4002	4150	
==>{
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10451	10599	
==>{
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	538	658	
==>fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	538	658	
==>fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	538	658	
==>fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($sel <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4730	4826	
==>1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @interse <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4730	4826	
==>1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @interse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3460	3584	
==>utput, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3460	3584	
==>utput, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3460	3584	
==>utput, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19616	19710	
==>the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19616	19710	
==>the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3207	3343	
==>]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3207	3343	
==>]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3207	3343	
==>]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	969	1072	
==>ecl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1106	1209	
==>ecl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2217	2317	
==>[ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2228	2328	
==>[ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1080	1171	
==>fined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) & <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1080	1171	
==>fined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) & <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1080	1171	
==>fined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) & <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16656	16761	
==>= shift;
    my $node = shift;

    return Val->new($self->reduce($node->val));
}

package Dumper;
use bas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	164	268	
==>ays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	164	268	
==>ays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	164	268	
==>ays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1699	1797	
==>ndex
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol}) <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12371	12466	
==>progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities| <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12371	12466	
==>progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities| <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8979	9093	
==>b classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGMENT since that i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21070	21163	
==>rrently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19978	20071	
==>rrently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21070	21163	
==>rrently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19978	20071	
==>rrently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11362	11499	
==>);
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11362	11499	
==>);
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11362	11499	
==>);
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closur <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2298	2429	
==>e match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2298	2429	
==>e match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8610	8723	
==>',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Regexp::Parser:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20806	20900	
==>ref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, whi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19723	19817	
==>ref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, whi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20806	20900	
==>ref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, whi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19723	19817	
==>ref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, whi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2464	2589	
==>user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2464	2589	
==>user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	107	213	
==>b _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	107	213	
==>b _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	107	213	
==>b _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1566	1680	
==>JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1566	1680	
==>JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1566	1680	
==>JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1288	1387	
==>ead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub alt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1288	1387	
==>ead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub alt <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2123	2273	
==>= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elem <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2123	2273	
==>= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1087	1185	
==>my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1087	1185	
==>my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1087	1185	
==>my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3708	3832	
==>keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3708	3832	
==>keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3708	3832	
==>keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3510	3612	
==>arallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3510	3612	
==>arallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4729	4874	
==>]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'H <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4729	4874	
==>]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'H <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4729	4874	
==>]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'H <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5268	5395	
==>$.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5268	5395	
==>$.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6637	6735	
==>om + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6637	6735	
==>om + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6637	6735	
==>om + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3739	3830	
==>ection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrip <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3739	3830	
==>ection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrip <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	353	483	
==>to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	353	483	
==>to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	353	483	
==>to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things') <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1274	1380	
==>_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = P <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	17499	17603	
==>is b -> (int x b)
my $half_pair = comb(
	fun => ide("pair"),
	param => val(10),
);

# a fully constructed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	470	563	
==>he-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @reque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1296	1389	
==>BLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	470	563	
==>he-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @reque <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1296	1389	
==>BLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1296	1389	
==>BLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	84	217	
==>URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	84	217	
==>URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5321	5440	
==>s currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5321	5440	
==>s currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5321	5440	
==>s currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4648	4760	
==>xed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4648	4760	
==>xed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4648	4760	
==>xed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10779	10875	
==>b {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10779	10875	
==>b {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3510	3652	
==>some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3510	3652	
==>some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1627	1739	
==>{ -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1627	1739	
==>{ -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1627	1739	
==>{ -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } ) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12636	12767	
==>my $status               = $self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $statu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3000	3127	
==>my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $statu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3000	3127	
==>my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $statu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10721	10836	
==>* :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    whil <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10721	10836	
==>* :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    whil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6100	6225	
==>ame;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6100	6225	
==>ame;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6100	6225	
==>ame;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

clas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10351	10449	
==>eld
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10351	10449	
==>eld
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1571	1731	
==>key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _sh <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1571	1731	
==>key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1866	1968	
==>'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1866	1968	
==>'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1866	1968	
==>'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3913	4060	
==>'$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3913	4060	
==>'$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3913	4060	
==>'$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10990	11110	
==>$direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10984	11104	
==>$direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4372	4481	
==>of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7849	7958	
==>of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6833	6942	
==>of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20115	20211	
==>ame, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_autho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20115	20211	
==>ame, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_autho <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24409	24503	
==>n.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modif <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24409	24503	
==>n.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modif <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17604	17797	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18261	18454	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17883	18076	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18540	18733	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	549	688	
==>fix . basename( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8638	8752	
==>Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8638	8752	
==>Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8638	8752	
==>Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Li <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9697	9797	
==>e these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we im <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9697	9797	
==>e these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we im <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3801	3937	
==>~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././x <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3801	3937	
==>~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4147	4252	
==>-
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4147	4252	
==>-
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4147	4252	
==>-
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12611	12733	
==>ew( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12611	12733	
==>ew( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12611	12733	
==>ew( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.un <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2232	2344	
==>tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2232	2344	
==>tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1654	1781	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2397	2524	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1654	1781	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2385	2512	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH' <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5344	5437	
==>{$v}

# 9.2
multi sub ToBoolean(JSX::Value::Undefined $v) { JSX::false }
multi sub ToBoolean(J <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2392	2504	
==>i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2392	2504	
==>i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2392	2504	
==>i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1492	1588	
==>terface

The Cipher API's procedural interface is good enough for many purposes.  
Although the i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1492	1588	
==>terface

The Cipher API's procedural interface is good enough for many purposes.  
Although the i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4484	4613	
==>s->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' => c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	88	196	
==>== 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	88	196	
==>== 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	88	196	
==>== 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	54	155	
==>t Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindungsoperator (sta <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3918	4045	
==>ess defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3918	4045	
==>ess defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7492	7617	
==>l]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4448	4569	
==>ess defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4448	4569	
==>ess defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4325	4481	
==>'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4325	4481	
==>'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4325	4481	
==>'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13685	13784	
==>time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traff <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13685	13784	
==>time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traff <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2145	2253	
==>her, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	682	790	
==>ements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2145	2253	
==>her, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2145	2253	
==>her, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	682	790	
==>ements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10191	10338	
==>rom_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10191	10338	
==>rom_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10191	10338	
==>rom_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	980	1105	
==>ield, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	980	1105	
==>ield, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	314	429	
==>RG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1842	1957	
==>RG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4616	4720	
==>ame]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4616	4720	
==>ame]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4616	4720	
==>ame]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $sel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17305	17438	
==>uleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23271	23404	
==>uleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17584	17717	
==>uleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23550	23683	
==>uleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10187	10282	
==>f $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, last <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1311	1421	
==>s -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfi <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1311	1421	
==>s -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19476	19571	
==>ce files, and not change
your main program.

I<Note that an update is planned for Locale::KeyedT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19476	19571	
==>ce files, and not change
your main program.

I<Note that an update is planned for Locale::KeyedT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9820	9910	
==>ngleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the right return v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3940	4044	
==>:Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3940	4044	
==>:Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3940	4044	
==>:Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgl <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1859	1951	
==><»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >> <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1859	1951	
==><»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2353	2482	
==>table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $d <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2353	2482	
==>table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7264	7372	
==>$_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7264	7372	
==>$_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7264	7372	
==>$_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; su <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2714	2837	
==>hod to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2714	2837	
==>hod to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12975	13082	
==>nt ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - ad <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12975	13082	
==>nt ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - ad <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12975	13082	
==>nt ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - ad <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2244	2351	
==>ostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $r <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2244	2351	
==>ostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2324	2431	
==>ostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $r <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1441	1534	
==>ake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1281	1374	
==>ake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	20071	20198	
==>",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => cond(
					if => c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6398	6496	
==>et $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5528	5626	
==>et $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6398	6496	
==>et $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5528	5626	
==>et $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) re <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7444	7574	
==>$newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7444	7574	
==>$newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1937	2045	
==>cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1937	2045	
==>cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1937	2045	
==>cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3668	3773	
==>}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3668	3773	
==>}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3940	4053	
==>_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3940	4053	
==>_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3940	4053	
==>_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7368	7468	
==>);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10845	10945	
==>);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Rel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2525	2645	
==>se <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2442	2558	
==>se <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12071	12179	
==>oping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.* <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12071	12179	
==>oping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.* <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5116	5217	
==>rget;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Typ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3203	3326	
==>b {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3396	3519	
==>b {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2520	2617	
==>def unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2520	2617	
==>def unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2520	2617	
==>def unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    wh <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6920	7267	
==>fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sy <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2949	3063	
==>mitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2949	3063	
==>mitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2949	3063	
==>mitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sor <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	347	457	
==>our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	347	457	
==>our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	168	271	
==>d generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	168	271	
==>d generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2814	2905	
==>:fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2814	2905	
==>:fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2814	2905	
==>:fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	305	416	
==>T_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	305	416	
==>T_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	305	416	
==>T_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4336	4427	
==>, 'Object', '... $Object got the right method return value');
is($Object->superclass, undef, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6238	6329	
==>, 'Object', '... $Object got the right method return value');
is($Object->superclass, undef, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2016	2162	
==>xperimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1790	1930	
==>xperimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8375	8515	
==>xperimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1790	1930	
==>xperimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8375	8515	
==>xperimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	874	1000	
==>CH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	874	1000	
==>CH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	874	1000	
==>CH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	796	888	
==>->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	796	888	
==>->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9986	10132	
==>OAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method . <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9986	10132	
==>OAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method . <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9986	10132	
==>OAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method . <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2591	2714	
==>d ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defi <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2591	2714	
==>d ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1799	1928	
==>ingify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         // <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1799	1928	
==>ingify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         // <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1273	1378	
==>function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1273	1378	
==>function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1273	1378	
==>function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1343	1471	
==>. $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub u <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3858	3965	
==>::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.l <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4191	4298	
==>::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.l <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3858	3965	
==>::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.l <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4191	4298	
==>::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.l <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1432	1534	
==>d { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $pare <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1432	1534	
==>d { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $pare <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5751	5846	
==>infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5751	5846	
==>infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5751	5846	
==>infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6173	6276	
==>], 
    '... $Bar class_precendence_list');

## make instances of subclasses

my $iBar = $Bar->new;
is($ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10321	10419	
==>)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fat <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8214	8312	
==>)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fat <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10321	10419	
==>)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fat <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8214	8312	
==>)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fat <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	20638	20754	
==>s\n\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    print "\t\t( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32028	32127	
==>elation, and returns a new Relation that has the same heading
and whose body contains all of the tup <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33889	33988	
==>elation, and returns a new Relation that has the same heading and
whose body contains all of the tup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36578	36677	
==>elation, and returns a new Relation that has the same heading
and whose body contains all of the tup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38439	38538	
==>elation, and returns a new Relation that has the same heading and
whose body contains all of the tup <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13049	13140	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13049	13140	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13049	13140	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10793	10896	
==>=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the informa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10793	10896	
==>=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the informa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1027	1120	
==>f($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $hea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1027	1120	
==>f($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $hea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1027	1120	
==>f($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10489	10640	
==>sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10489	10640	
==>sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10489	10640	
==>sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_m <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	19536	19636	
==>omma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma) is builtin is pri <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2264	2354	
==>ted.
Also to iblech, and Michael Schilli of JavaScript::SpiderMonkey, whose
successful work <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13979	14097	
==>fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13979	14097	
==>fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23875	23969	
==>f); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23875	23969	
==>f); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23875	23969	
==>f); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mod <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10413	10515	
==>$string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10413	10515	
==>$string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7128	7220	
==>$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$mat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7128	7220	
==>$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$mat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7128	7220	
==>$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3771	3961	
==>able} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3771	3961	
==>able} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3771	3961	
==>able} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9054	9159	
==>e $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_temp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9054	9159	
==>e $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_temp <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14120	14238	
==>{
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, % <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10481	10574	
==>e $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` method <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17423	17516	
==>e $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` method <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10481	10574	
==>e $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` method <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17423	17516	
==>e $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` method <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2234	2329	
==>ed, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2234	2329	
==>ed, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13075	13161	
==>IL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13075	13161	
==>IL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13075	13161	
==>IL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3216	3330	
==>while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3216	3330	
==>while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11152	11250	
==>s? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11152	11250	
==>s? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11152	11250	
==>s? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1725	1826	
==>Name}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScrip <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1725	1826	
==>Name}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScrip <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1725	1826	
==>Name}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScrip <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	656	752	
==>se what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	not <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	656	752	
==>se what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3294	3401	
==>aque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3996	4095	
==>aque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3917	4035	
==>ts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Exp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3917	4035	
==>ts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Exp <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	767	885	
==>ts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3584	3688	
==>~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3584	3688	
==>~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3584	3688	
==>~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	505	607	
==>e();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	505	607	
==>e();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	455	554	
==>upport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provid <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	455	554	
==>upport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provid <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	455	554	
==>upport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provid <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2175	2271	
==>- Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    requir <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2175	2271	
==>- Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    requir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15359	15526	
==>irs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15359	15526	
==>irs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15359	15526	
==>irs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19717	19814	
==>le sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<us <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19717	19814	
==>le sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<us <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13097	13189	
==>nd C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5391	5483	
==>o{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13097	13189	
==>nd C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5391	5483	
==>o{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5391	5483	
==>o{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1185	1314	
==>sts $table->{prototype};      
        
        my $_table = $table;  
    TRY_AGAIN:
        if (my $method = $_table->{$message} <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5043	5142	
==>qual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4170	4269	
==>qual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5043	5142	
==>qual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4170	4269	
==>qual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
m <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4782	4954	
==>h @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have som <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5246	5418	
==>h @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have som <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4633	4729	
==>->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4633	4729	
==>->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4633	4729	
==>->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eval <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22154	22246	
==>ck/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if app <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21035	21127	
==>ck/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if app <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22154	22246	
==>ck/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if app <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21035	21127	
==>ck/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if app <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18294	18385	
==>,E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1942	2055	
==>s)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1942	2055	
==>s)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1942	2055	
==>s)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ro <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14062	14159	
==>saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container which <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14062	14159	
==>saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container which <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	806	913	
==>TDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::im <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	806	913	
==>TDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::im <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	806	913	
==>TDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::im <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3814	3910	
==>DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3814	3910	
==>DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is c <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3784	3916	
==>de. Do either! Let your caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2138	2256	
==>roup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2728	2846	
==>roup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2138	2256	
==>roup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2716	2834	
==>roup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	890	1001	
==>, (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) pr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	890	1001	
==>, (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) pr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	890	1001	
==>, (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9988	10097	
==>$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9982	10091	
==>$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$nam <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2188	2308	
==>return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return % <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2188	2308	
==>return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return % <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	2203	2300	
==>recursively make shallow copies of the nodes
	# \@free will contain all the free type variables in <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2879	2969	
==>ports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, Th <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2879	2969	
==>ports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, Th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	649	760	
==>scription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::P <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	649	760	
==>scription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10394	10549	
==>defined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10394	10549	
==>defined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10394	10549	
==>defined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2317	2453	
==>match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2243	2371	
==>match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8901	9136	
==>junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8901	9136	
==>junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8901	9136	
==>junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->e <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	442	539	
==>eturns Void {
    $:type_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_children <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	458	567	
==>esently ...
  $maketoken := { [ $^tok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = " <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12841	12937	
==>> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9617	9713	
==>> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12841	12937	
==>> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9617	9713	
==>> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16	114	
==>6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TE <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	74	172	
==>6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5901	6002	
==>= shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOption <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5901	6002	
==>= shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOption <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5901	6002	
==>= shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOption <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15689	15780	
==>ptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15689	15780	
==>ptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	593	710	
==>$opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	609	726	
==>$opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	585	702	
==>$opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	57	150	
==>List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	57	150	
==>List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3478	3617	
==>turn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3478	3617	
==>turn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9130	9247	
==>entation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12983	13096	
==>entation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12983	13096	
==>entation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b < <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3556	3677	
==>n");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3556	3677	
==>n");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5080	5201	
==>n");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5822	5933	
==>-----

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5822	5933	
==>-----

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1813	1917	
==>uired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1813	1917	
==>uired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1813	1917	
==>uired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declar <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5811	5909	
==>e only method that truly must be implemented is the 
one that actually enciphers the data.  They ma <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5811	5909	
==>e only method that truly must be implemented is the 
one that actually enciphers the data.  They ma <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2150	2276	
==>t' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20599	20694	
==>igest lines will
be expanded again.

Every bit of the default process described above is overrid <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20599	20694	
==>igest lines will
be expanded again.

Every bit of the default process described above is overrid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16885	16979	
==>cally load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16885	16979	
==>cally load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11252	11364	
==>the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      . <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11252	11364	
==>the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      . <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3014	3144	
==>oindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $pr <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3478	3608	
==>oindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3140	3228	
==>perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Access <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3140	3228	
==>perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Access <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3487	3575	
==>perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Access <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	675	783	
==>erates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we ha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	643	742	
==>erates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4548	4634	
==>ta::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4548	4634	
==>ta::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5138	5224	
==>ta::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23489	23611	
==>less ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23489	23611	
==>less ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23489	23611	
==>less ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sca <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1036	1133	
==>outine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1036	1133	
==>outine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24151	24275	
==>->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24151	24275	
==>->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24151	24275	
==>->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1331	1435	
==>the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter:: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1331	1435	
==>the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4262	4402	
==>gits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4274	4414	
==>gits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14015	14123	
==>eturn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14015	14123	
==>eturn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14015	14123	
==>eturn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::mak <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	588	710	
==>uffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize( <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	588	710	
==>uffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	920	1012	
==>=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hiera <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	920	1012	
==>=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hiera <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	920	1012	
==>=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hiera <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9735	9849	
==>my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9735	9849	
==>my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9735	9849	
==>my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	ret <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6221	6315	
==>d::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("pat <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6221	6315	
==>d::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("pat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4656	4776	
==>x( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4656	4776	
==>x( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	226	332	
==>count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	226	332	
==>count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	226	332	
==>count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6212	6330	
==>_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($prog <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6212	6330	
==>_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($prog <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6616	6709	
==>em B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6616	6709	
==>em B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8813	8906	
==>em B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11813	11911	
==>lpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasy <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11807	11905	
==>lpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasy <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4264	4357	
==>description? )>

Compares the receivied and expected lines from the previously run tests,
pass <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4264	4357	
==>description? )>

Compares the receivied and expected lines from the previously run tests,
pass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4344	4437	
==>description? )>

Compares the receivied and expected lines from the previously run tests,
pass <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2232	2344	
==>ort {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2627	2739	
==>ort {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2290	2402	
==>ort {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2685	2797	
==>ort {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14158	14373	
==>l6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14158	14373	
==>l6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14158	14373	
==>l6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => su <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7387	7490	
==>.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    els <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7387	7490	
==>.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    els <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2503	2623	
==>sult ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # ot <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2503	2623	
==>sult ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # ot <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4377	4474	
==>todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4377	4474	
==>todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6574	6671	
==>todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder:: <==
5	/Users/nnunley/pugs/util/package-osx.pl	9631	9757	
==>r/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $from (@files <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2185	2299	
==>end($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!sock <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2185	2299	
==>end($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!sock <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2075	2178	
==>m1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25036	25129	
==>ueue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23800	23893	
==>ueue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25036	25129	
==>ueue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23800	23893	
==>ueue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10396	10517	
==>ailed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... " <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10396	10517	
==>ailed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1629	1743	
==>" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @IS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1629	1743	
==>" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @IS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1629	1743	
==>" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @IS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5055	5157	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1638	1740	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14646	14742	
==>arams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14646	14742	
==>arams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14646	14742	
==>arams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	928	1033	
==>IL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Ex <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	928	1033	
==>IL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3799	3892	
==>lass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3799	3892	
==>lass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3799	3892	
==>lass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method { <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6020	6163	
==>D ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6020	6163	
==>D ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6553	6665	
==>BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2). <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6553	6665	
==>BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2). <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6553	6665	
==>BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2). <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2173	2270	
==>ern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upo <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2173	2270	
==>ern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3822	3934	
==>:= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3822	3934	
==>:= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3822	3934	
==>:= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1945	2043	
==>ar is either a static lookup (lex only) or a dynamic lookup. 



This object-serialization format i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1871	1967	
==>ar is either a static lookup (lex only) or a dynamic lookup. 

This object-serialization format i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	780	913	
==>turn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	780	913	
==>turn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pa <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	89	214	
==>uire;

use Blondie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

sub compiler {
    my $self = s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19364	19456	
==>s DBMS) is that data definition statements are structured as
standard data manipulation state <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19364	19456	
==>s DBMS) is that data definition statements are structured as
standard data manipulation state <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	193	295	
==>f $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	193	295	
==>f $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1249	1347	
==>ile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1249	1347	
==>ile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1249	1347	
==>ile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11216	11336	
==>[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11216	11336	
==>[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11216	11336	
==>[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2433	2546	
==>, 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2433	2546	
==>, 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29272	29388	
==>n "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29272	29388	
==>n "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29272	29388	
==>n "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scal <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19755	19851	
==>l-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to have <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19755	19851	
==>l-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to have <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	906	1011	
==>$self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2103	2208	
==>map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cl <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	906	1011	
==>$self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2103	2208	
==>map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2103	2208	
==>map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cl <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5809	6076	
==>$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5809	6076	
==>$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15766	15863	
==>se header fields are used to make a request conditional.  If the requested
resource has (or has no <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15766	15863	
==>se header fields are used to make a request conditional.  If the requested
resource has (or has no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1380	1474	
==>ut}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3],} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1654	1781	
==>, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1654	1781	
==>, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1654	1781	
==>, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	531	627	
==>has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	531	627	
==>has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23373	23464	
==>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23373	23464	
==>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1333	1419	
==>"_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1333	1419	
==>"_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1333	1419	
==>"_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9154	9369	
==>[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10936	11077	
==>sult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12407	12548	
==>sult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14413	14554	
==>sult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15884	16025	
==>sult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6983	7196	
==>]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $req <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6983	7196	
==>]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $req <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	733	874	
==>ra
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (Perl::Type)
#                  | CxtSlu <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7171	7274	
==>o end
  err_close:
    parse_error(mob, pos, "Missing close bracket for \\x...")
    goto end
.end

.sub <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	318	410	
==>m into some format.

For example L<Blondie::Emitter::Pretty> emits ASCII text that is suppose <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8410	8547	
==>ookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8410	8547	
==>ookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $f <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	193	296	
==>e than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPTION

Emitters take a compiled prog <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28295	28392	
==>gging purposes (such as to test that the object's contents look
good at a glance); no attribute va <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35651	35748	
==>gging purposes (such as to test that the object's contents look
good at a glance); no attribute va <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28295	28392	
==>gging purposes (such as to test that the object's contents look
good at a glance); no attribute va <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35651	35748	
==>gging purposes (such as to test that the object's contents look
good at a glance); no attribute va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6818	6923	
==>n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6818	6923	
==>n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6818	6923	
==>n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12148	12243	
==>mé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12148	12243	
==>mé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8981	9093	
==>f !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12458	12570	
==>f !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2640	2741	
==>('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2640	2741	
==>('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2640	2741	
==>('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	23650	23777	
==>shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $failed[-1]) { # don't forget the last one
            if <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7755	7864	
==>rent;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  us <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7755	7864	
==>rent;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  us <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	985	1084	
==>igil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <si <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	985	1084	
==>igil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <si <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7373	7497	
==>_object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8725	8849	
==>_object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19393	19517	
==>_object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	139	250	
==>ealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_ <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	139	250	
==>ealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2081	2223	
==>r_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $outpu <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2081	2223	
==>r_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $outpu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22645	22739	
==>lation::Example is like a Set that exists
over N dimensions rather than one.  The Relation::Exa <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1574	1666	
==>unction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1574	1666	
==>unction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	516	698	
==>> {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                my $s <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	9702	9824	
==>ts{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($estatus, $ws <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	843	946	
==>se { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	843	946	
==>se { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	843	946	
==>se { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9689	9816	
==>xs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9689	9816	
==>xs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9689	9816	
==>xs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	476	591	
==>$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	476	591	
==>$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1612	1713	
==>)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1612	1713	
==>)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1612	1713	
==>)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Nu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1241	1334	
==>ad1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1241	1334	
==>ad1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	90	186	
==>qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	90	186	
==>qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	90	186	
==>qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NA <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20318	20411	
==>k

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicali <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20318	20411	
==>k

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicali <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	391	494	
==>s Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $Q <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	391	494	
==>s Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $Q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1021	1114	
==>(Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1021	1114	
==>(Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1021	1114	
==>(Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarnam <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3401	3498	
==>events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Po <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3401	3498	
==>events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Po <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1916	2014	
==>:Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1916	2014	
==>:Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6708	6805	
==>e);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6708	6805	
==>e);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6708	6805	
==>e);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::mak <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1740	1908	
==>be())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exce <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1740	1908	
==>be())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exce <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1740	1908	
==>be())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exce <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4241	4341	
==>step (v5.8.5)?!?
    return &$step;
  };
}

my @whitespaces;
my $ws = def_rule('ws',mk_dynamic_alt(\@ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20630	20727	
==>ot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to joi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19556	19653	
==>ot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to joi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20630	20727	
==>ot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to joi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19556	19653	
==>ot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to joi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3865	3962	
==>ext test should fail.  C<$description> is the optional
description of the test.  This is the easie <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3865	3962	
==>ext test should fail.  C<$description> is the optional
description of the test.  This is the easie <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3945	4042	
==>ext test should fail.  C<$description> is the optional
description of the test.  This is the easie <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3537	3630	
==>ad1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3537	3630	
==>ad1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This do <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4213	4318	
==>values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4213	4318	
==>values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4213	4318	
==>values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $sel <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21420	21513	
==>native relational database engines with minimal effort.

This might seem strange to somebody w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21420	21513	
==>native relational database engines with minimal effort.

This might seem strange to somebody w <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13325	13437	
==>r subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16802	16914	
==>r subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16164	16276	
==>r subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ot <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13357	13452	
==>ers> object that contains the
removed headers only.

=item $h.clear

This will remove all header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13357	13452	
==>ers> object that contains the
removed headers only.

=item $h.clear

This will remove all header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3666	3779	
==>name =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3666	3779	
==>name =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3666	3779	
==>name =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5610	5704	
==>you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5610	5704	
==>you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document h <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9953	10067	
==>::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9953	10067	
==>::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5664	5797	
==>/^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HA <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5676	5809	
==>/^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HA <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3011	3112	
==>sts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3011	3112	
==>sts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4535	4636	
==>sts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12482	12599	
==>_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12482	12599	
==>_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20703	20815	
==>ew DESTROY))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMET <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	517	614	
==>q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key! <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2045	2142	
==>q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key! <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2755	2888	
==>ass Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns St <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	508	627	
==>ass Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns St <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	508	627	
==>ass Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns St <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11379	11472	
==>ven recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11379	11472	
==>ven recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2045	2179	
==>sing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3637	3767	
==>sing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5941	6065	
==>a("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5941	6065	
==>a("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5941	6065	
==>a("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	162	280	
==>::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	155	269	
==>::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	149	263	
==>::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	155	269	
==>::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	149	263	
==>::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11258	11390	
==>idate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11258	11390	
==>idate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11258	11390	
==>idate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8400	8498	
==>method (opaque $self: symbol $label) returns method { 
    %:methods{$label};
}


(method get_metho <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29504	29595	
==>RM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
pp_regcomp
pp_substcon <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5030	5259	
==>[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5030	5259	
==>[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10869	11038	
==>m_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10869	11038	
==>m_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10869	11038	
==>m_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#pa <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	399	522	
==>06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

r <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	399	522	
==>06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

r <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	548	670	
==>06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
r <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	548	670	
==>06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23146	23239	
==>cessors to them.  The Relation
library provides full generic implementations of all other nece <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8292	8447	
==>fix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4652	4807	
==>fix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5501	5656	
==>fix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	101	200	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	101	200	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12692	12836	
==>$self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12692	12836	
==>$self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12692	12836	
==>$self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4966	5073	
==>ocument = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!paren <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4966	5073	
==>ocument = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!paren <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	54	144	
==>rs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	54	144	
==>rs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	54	144	
==>rs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4079	4282	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4079	4282	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6707	6847	
==>ue::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6707	6847	
==>ue::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6707	6847	
==>ue::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\ <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	153	272	
==>ndle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	153	272	
==>ndle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6846	6958	
==>ar loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6846	6958	
==>ar loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6846	6958	
==>ar loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16484	16675	
==>ift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16484	16675	
==>ift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16484	16675	
==>ift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2700	2800	
==>lf->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3273	3373	
==>lf->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3145	3326	
==>>),
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree.new(:node<T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18033	18149	
==>efaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17071	17187	
==>efaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18033	18149	
==>efaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17071	17187	
==>efaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1066	1216	
==>x = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	387	486	
==>st = $node->digest;

    $digest => Blondie::Backend::Perl::Prim->new(
		equals => $digest,
		body = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12782	12873	
==>fix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    ) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12782	12873	
==>fix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    ) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12782	12873	
==>fix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17917	18100	
==>ck for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17917	18100	
==>ck for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17917	18100	
==>ck for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all e <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1390	1488	
==>aml;
	exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	976	1071	
==>ns.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>autrijus@ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14762	14912	
==>}
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18239	18389	
==>}
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17655	17805	
==>}
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	553	659	
==>]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	553	659	
==>]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	553	659	
==>]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pa <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3697	3792	
==>make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3697	3792	
==>make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	829	969	
==>$n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	829	969	
==>$n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	829	969	
==>$n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22298	22394	
==>he same method names as you or each other, or having multiple search
directories in your path tha <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22298	22394	
==>he same method names as you or each other, or having multiple search
directories in your path tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1886	1993	
==>v = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Car <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1886	1993	
==>v = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Car <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2122	2229	
==>v = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Car <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	65	161	
==>thods
has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:methods;

method new(St <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18189	18277	
==>Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9744	9899	
==>s->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9744	9899	
==>s->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9744	9899	
==>s->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17062	17156	
==>ould not be possible if its
functionality was subsumed into a larger package that would otherwi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17062	17156	
==>ould not be possible if its
functionality was subsumed into a larger package that would otherwi <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	883	976	
==>rldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	883	976	
==>rldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14237	14327	
==>Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14237	14327	
==>Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14237	14327	
==>Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1955	2178	
==>fined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1955	2178	
==>fined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5393	5496	
==>This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test descr <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5393	5496	
==>This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test descr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7590	7693	
==>This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test descr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2236	2374	
==>) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Meta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2236	2374	
==>) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Meta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2236	2374	
==>) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Meta <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	952	1084	
==>.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	952	1084	
==>.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15307	15500	
==>keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15307	15500	
==>keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15307	15500	
==>keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                m <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5201	5358	
==>8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @di <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5201	5358	
==>8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @di <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15346	15444	
==>- B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kinds <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15346	15444	
==>- B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kinds <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18180	18273	
==>$xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18180	18273	
==>$xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18180	18273	
==>$xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1360	1479	
==>-+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1. <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3656	3775	
==>-+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1. <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1360	1479	
==>-+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1. <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3656	3775	
==>-+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1. <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	219	330	
==>rable';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # default to empty strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18949	19125	
==>d} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet full <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18949	19125	
==>d} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet full <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18949	19125	
==>d} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet full <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6523	6614	
==>rclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11581	11672	
==>rclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, ' <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1286	1409	
==>load {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8433	8533	
==>rev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block- <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8433	8533	
==>rev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block- <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5750	5844	
==>od::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This i <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5750	5844	
==>od::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4132	4317	
==>ub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4132	4317	
==>ub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4132	4317	
==>ub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	425	522	
==>_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which sta <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	425	522	
==>_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2371	2487	
==>n (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2371	2487	
==>n (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2371	2487	
==>n (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2796	2892	
==>e(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2796	2892	
==>e(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4880	4997	
==>methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4880	4997	
==>methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4880	4997	
==>methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6260	6369	
==>".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{norm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6260	6369	
==>".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{norm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	266	388	
==>, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	266	388	
==>, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	266	388	
==>, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20023	20121	
==>ocks
to the compilers. It does so in a most specific to most general order.
So inner blocks get com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20023	20121	
==>ocks
to the compilers. It does so in a most specific to most general order.
So inner blocks get com <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14391	14489	
==>s) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14391	14489	
==>s) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $to <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	111	207	
==>t do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.pe <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	100	194	
==>t do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.pe <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	67	161	
==>t do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.pe <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14107	14244	
==>$pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4188	4313	
==>$pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4188	4313	
==>$pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4188	4313	
==>$pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	265	385	
==><...>  - yada-yada-yada

our %hash;

sub recompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::ha <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3856	3963	
==>er::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4189	4296	
==>er::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3856	3963	
==>er::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4189	4296	
==>er::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	769	881	
==>cher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	769	881	
==>cher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	769	881	
==>cher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($a <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1880	1990	
==>Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub ha <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1880	1990	
==>Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub ha <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1542	1756	
==>f ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $ <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1542	1756	
==>f ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9257	9388	
==>ents);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9257	9388	
==>ents);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9257	9388	
==>ents);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6333	6476	
==>=>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    & <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6333	6476	
==>=>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    & <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6333	6476	
==>=>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    & <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	503	604	
==>shift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	503	604	
==>shift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	109	205	
==>: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	109	205	
==>: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2117	2212	
==>{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2117	2212	
==>{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2117	2212	
==>{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2825	2961	
==>eturn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3113	3242	
==>eturn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9531	9660	
==>eturn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3113	3242	
==>eturn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9531	9660	
==>eturn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2853	2948	
==>restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2853	2948	
==>restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2853	2948	
==>restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args. <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2818	2907	
==>ame.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2818	2907	
==>ame.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4933	5051	
==>, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4933	5051	
==>, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4933	5051	
==>, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1952	2051	
==>nonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1952	2051	
==>nonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35684	35806	
==>$length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35684	35806	
==>$length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35684	35806	
==>$length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=sh <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5506	5614	
==>cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5506	5614	
==>cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	506	600	
==>ailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	506	600	
==>ailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7241	7332	
==>printf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7241	7332	
==>printf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7241	7332	
==>printf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BAC <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2962	3090	
==>r block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{ba <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3440	3568	
==>r block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{ba <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	299	400	
==>128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	299	400	
==>128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ciphe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	489	584	
==>or as the first scheme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is sti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3948	4069	
==>onents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3948	4069	
==>onents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3948	4069	
==>onents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7932	8033	
==>( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7662	7759	
==>( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17885	18040	
==>);
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17885	18040	
==>);
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17885	18040	
==>);
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resul <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	767	872	
==>:tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB is <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	767	872	
==>:tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB is <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2973	3075	
==>t_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2973	3075	
==>t_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3053	3155	
==>t_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7975	8061	
==>ammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->assi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1800	1886	
==>ammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->assi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1647	1761	
==>) or error(Params::Check->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_acce <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	423	523	
==>) or error( Params::Check->last_error ), return;

    my $obj = $class->SUPER::new;
    $obj->mk_acce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4537	4629	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4537	4629	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4537	4629	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21425	21519	
==>e relational database engines with minimal effort.

This might seem strange to somebody who has <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21425	21519	
==>e relational database engines with minimal effort.

This might seem strange to somebody who has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6382	6472	
==>>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6382	6472	
==>>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6382	6472	
==>>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   = <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1406	1544	
==>end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4645	4783	
==>end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1406	1544	
==>end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4645	4783	
==>end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1909	2000	
==>unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $args{_self} i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1374	1547	
==>ol( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            }, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1374	1547	
==>ol( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            }, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1374	1547	
==>ol( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            }, <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	425	522	
==>on provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is us <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	425	522	
==>on provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8207	8307	
==>Class method.  Returns a category object.

options:

=item * grammar => $category_name - the name <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12740	12837	
==>ion takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12798	12895	
==>ion takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expe <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1720	1815	
==>size)

The constructor takes as parameters at least C<rate of information> in
items per second a <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1720	1815	
==>size)

The constructor takes as parameters at least C<rate of information> in
items per second a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16073	16180	
==>{
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16073	16180	
==>{
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16073	16180	
==>{
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2553	2652	
==>r $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := ev <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2611	2710	
==>r $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11525	11710	
==>nd
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11525	11710	
==>nd
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11525	11710	
==>nd
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3572	3670	
==>perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3789	3887	
==>perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2553	2671	
==>{
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2553	2671	
==>{
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2553	2671	
==>{
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3944	4044	
==>$self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1251	1351	
==>$self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1432	1541	
==>AME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1432	1541	
==>AME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1432	1541	
==>AME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2257	2351	
==>($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2257	2351	
==>($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4788	4902	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4981	5095	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7657	7759	
==>subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7657	7759	
==>subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7657	7759	
==>subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5828	5933	
==>gil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5828	5933	
==>gil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5828	5933	
==>gil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	119	218	
==>TION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	119	218	
==>TION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rule <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1500	1617	
==>estamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodc <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1500	1617	
==>estamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1430	1538	
==>there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1430	1538	
==>there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1430	1538	
==>there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.s <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6389	6484	
==>by a URL. The document is printed
to the selected default filehandle for output (normally STDOUT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6389	6484	
==>by a URL. The document is printed
to the selected default filehandle for output (normally STDOUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5177	5266	
==>ke_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5177	5266	
==>ke_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5177	5266	
==>ke_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::ma <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8442	8570	
==>::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc p <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2257	2352	
==>n($prog->{ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$res <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7687	7793	
==>fully got template text for the message key, so
        # interpolate the message vars into it and return t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7687	7793	
==>fully got template text for the message key, so
        # interpolate the message vars into it and return t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1159	1256	
==>oo close to the main namespace for your tastes, and
you want to rebless everything down to your pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1159	1256	
==>oo close to the main namespace for your tastes, and
you want to rebless everything down to your pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1159	1256	
==>oo close to the main namespace for your tastes, and
you want to rebless everything down to your pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	759	864	
==>$_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	759	864	
==>$_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	759	864	
==>$_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Name <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7674	7774	
==>$child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    fo <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7674	7774	
==>$child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    fo <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10944	11038	
==>nfo returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docum <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10944	11038	
==>nfo returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docum <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2715	2803	
==>p = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2715	2803	
==>p = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2715	2803	
==>p = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horr <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4588	4703	
==>ffset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4588	4703	
==>ffset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1236	1335	
==>package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1236	1335	
==>package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1236	1335	
==>package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3191	3311	
==>ther) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash sl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3191	3311	
==>ther) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash sl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3191	3311	
==>ther) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash sl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32734	32828	
==>The Translator class as a whole is not pure and deterministic because it
invokes user-defined e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32734	32828	
==>The Translator class as a whole is not pure and deterministic because it
invokes user-defined e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1869	1967	
==>not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1869	1967	
==>not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1869	1967	
==>not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11103	11199	
==>empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `c <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11103	11199	
==>empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8311	8426	
==>$.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8311	8426	
==>$.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4187	4296	
==>};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4404	4513	
==>};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast} <==
5	/Users/nnunley/pugs/util/version_h.pl	1247	1346	
==>(Copied|Merged) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1142	1253	
==>{ # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1142	1253	
==>{ # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1142	1253	
==>{ # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::string <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1958	2067	
==>for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1958	2067	
==>for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1127	1227	
==>Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1127	1227	
==>Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1127	1227	
==>Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine( <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	129	228	
==>e;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" property
when in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	295	387	
==>ftp/Scheme/pure-oo-system.scm

I ended up removing the "purely functional" aspects of it in f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7604	7743	
==>0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7604	7743	
==>0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7604	7743	
==>0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31618	31716	
==>s
could have yet another set for itself.  When the program is run, it would
determine either from a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31618	31716	
==>s
could have yet another set for itself.  When the program is run, it would
determine either from a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	908	1019	
==>ment <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_AR <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	908	1019	
==>ment <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6005	6114	
==>d () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6005	6114	
==>d () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6005	6114	
==>d () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7781	7884	
==>::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7781	7884	
==>::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7781	7884	
==>::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::B <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	53	151	
==>%loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	53	151	
==>%loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get he <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9795	9905	
==>hc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environment variable <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4277	4401	
==>nt->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4277	4401	
==>nt->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4277	4401	
==>nt->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	313	421	
==>y($id)='';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3959	4052	
==>Position <= $position);

  expect_term_1:
  my $key = $$currentTermTable->lkey($target, $white <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13922	14043	
==>nected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13922	14043	
==>nected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2518	2621	
==>med_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2518	2621	
==>med_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2865	2968	
==>med_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4565	4663	
==>^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see commen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4565	4663	
==>^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see commen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4565	4663	
==>^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see commen <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6166	6263	
==>}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6166	6263	
==>}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels an <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5237	5338	
==>igned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths r <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5237	5338	
==>igned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32513	32613	
==>len

Whether this object does is zero-width (like an anchor).

=back

If there is a method with the n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6317	6417	
==>);
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11163	11263	
==>);
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2390	2554	
==>(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2401	2565	
==>(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	368	527	
==>om_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mang <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	368	527	
==>om_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mang <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	368	527	
==>om_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mang <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3128	3262	
==>/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=] <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3128	3262	
==>/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=] <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6520	6634	
==>ide a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method r <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6520	6634	
==>ide a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method r <==
5	/Users/nnunley/pugs/util/testgraph.pl	1183	1278	
==>harness.pl  - produce the data for this tool
   util/catalog_tests.pl - produce cross-linkable t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24074	24169	
==>ng> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28626	28721	
==>ng> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	973	1066	
==>structure and recurses through its
hierarchy, reblessing objects that it finds along the way i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	973	1066	
==>structure and recurses through its
hierarchy, reblessing objects that it finds along the way i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	973	1066	
==>structure and recurses through its
hierarchy, reblessing objects that it finds along the way i <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	9655	9786	
==>sults{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2013	2126	
==>expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2013	2126	
==>expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2093	2206	
==>expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ( <==
5	/Users/nnunley/pugs/util/munge_haddock.pl	74	174	
==>aintained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12941	13075	
==>RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? < <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5705	5820	
==>{
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5705	5820	
==>{
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5705	5820	
==>{
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	50	146	
==>() { "Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt" <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10058	10241	
==>nted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local v <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18871	18963	
==>ve_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joine <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17914	18006	
==>ve_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joine <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18871	18963	
==>ve_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joine <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17914	18006	
==>ve_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joine <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18874	19014	
==>ta} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20232	20372	
==>ta} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2849	2941	
==>etch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2849	2941	
==>etch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2849	2941	
==>etch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4837	4978	
==>et >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4837	4978	
==>et >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1696	1808	
==>ng(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5173	5285	
==>ng(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4103	4215	
==>ng(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$bo <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	185	294	
==>ucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket( <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	185	294	
==>ucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2670	2768	
==>IME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2670	2768	
==>IME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2670	2768	
==>IME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15979	16120	
==>concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16258	16399	
==>concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	560	659	
==>------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	560	659	
==>------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	560	659	
==>------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in th <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1970	2081	
==>ound_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_to <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	48	169	
==>ss HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	48	169	
==>ss HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2250	2346	
==>perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2250	2346	
==>perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2250	2346	
==>perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1836	1960	
==>each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule no <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2579	2703	
==>each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1836	1960	
==>each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2567	2691	
==>each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5202	5356	
==>ll {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ), <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5038	5188	
==>ll {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ), <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2579	2686	
==>sed($arg) && $arg->isa($param_type))
                || confess "got the wrong type for " . $param->to_str-> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2435	2529	
==>set($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_supers <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2435	2529	
==>set($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_supers <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15859	16041	
==>ar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16138	16320	
==>ar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1279	1390	
==>e: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1279	1390	
==>e: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1279	1390	
==>e: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1018	1126	
==>trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@pa <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1892	2000	
==>trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1018	1126	
==>trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1892	2000	
==>trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@pa <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	1813	1909	
==>_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3094	3203	
==>$res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3094	3203	
==>$res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3094	3203	
==>$res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SC <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14977	15071	
==>odes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a re <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14977	15071	
==>odes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9903	10098	
==>{
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9903	10098	
==>{
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9903	10098	
==>{
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9678	9789	
==>oping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9678	9789	
==>oping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14409	14602	
==>('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14409	14602	
==>('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14409	14602	
==>('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compat <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2168	2336	
==>require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # t <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2168	2336	
==>require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2525	2619	
==>que_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2525	2619	
==>que_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2525	2619	
==>que_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Eig <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5441	5594	
==>print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5453	5606	
==>print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1104	1228	
==>6"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1104	1228	
==>6"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1104	1228	
==>6"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_la <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	882	1021	
==>_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	847	979	
==>_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3689	3800	
==>lues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7166	7277	
==>lues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6123	6234	
==>lues )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8307	8417	
==>]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8307	8417	
==>]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8307	8417	
==>]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHU <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1365	1456	
==>::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::C <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1365	1456	
==>::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::C <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13684	13795	
==>ng command as root:
      # umount $initrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ens <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4380	4489	
==>s! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7857	7966	
==>s! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6841	6950	
==>s! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Rel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	635	730	
==>arams{'$.description'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3009	3131	
==>g $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3009	3131	
==>g $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3009	3131	
==>g $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	748	845	
==>_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	748	845	
==>_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4353	4533	
==>unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied th <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4817	4997	
==>unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11792	11895	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11792	11895	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11792	11895	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12426	12542	
==>>min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'plus' }
    e <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5641	5744	
==>urns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4771	4874	
==>urns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5641	5744	
==>urns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4771	4874	
==>urns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2927	3081	
==>{} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 't <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2927	3081	
==>{} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 't <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2927	3081	
==>{} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 't <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1084	1184	
==>d by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1084	1184	
==>d by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4121	4271	
==>return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == In <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4121	4271	
==>return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	463	553	
==>f($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	463	553	
==>f($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	463	553	
==>f($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9161	9272	
==>son = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9161	9272	
==>son = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1524	1612	
==>ref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1524	1612	
==>ref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1524	1612	
==>ref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7977	8111	
==>hers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7977	8111	
==>hers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7977	8111	
==>hers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4488	4590	
==>(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6390	6492	
==>(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list') <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1728	1911	
==>msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method ge <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1728	1911	
==>msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	288	392	
==>t compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportLi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	288	392	
==>t compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportLi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	288	392	
==>t compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportLi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3410	3550	
==>s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3410	3550	
==>s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5806	5910	
==>nd ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5806	5910	
==>nd ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5806	5910	
==>nd ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7300	7444	
==>ASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7300	7444	
==>ASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7300	7444	
==>ASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2169	2305	
==>$year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2169	2305	
==>$year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4815	4989	
==>_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 36 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4815	4989	
==>_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 36 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33977	34092	
==>$_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33977	34092	
==>$_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33977	34092	
==>$_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arra <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5712	5878	
==>!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedTex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5712	5878	
==>!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedTex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1970	2078	
==>cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1970	2078	
==>cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1970	2078	
==>cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT << <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1836	1949	
==>ot implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1836	1949	
==>ot implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1836	1949	
==>ot implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new() <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2603	2704	
==>lts, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2603	2704	
==>lts, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for bu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	958	1112	
==>) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	958	1112	
==>) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12711	12806	
==>LTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12711	12806	
==>LTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12711	12806	
==>LTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1685	1805	
==>->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eva <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2537	2657	
==>->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eva <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2697	2806	
==>{
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2914	3023	
==>{
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl <==
5	/Users/nnunley/pugs/util/file_to_hs.pl	151	243	
==>ath) = fileparse($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8900	9023	
==>nt zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6 <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8900	9023	
==>nt zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	267	371	
==>ash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	267	371	
==>ash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	267	371	
==>ash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2575	2697	
==>h, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2575	2697	
==>h, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2496	2594	
==>}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2496	2594	
==>}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2496	2594	
==>}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4040	4168	
==>};

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4040	4168	
==>};

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	526	640	
==>]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	526	640	
==>]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	526	640	
==>]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self- <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3020	3130	
==>hc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glas <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3020	3130	
==>hc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glas <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	76	179	
==>define &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	76	179	
==>define &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	76	179	
==>define &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37013	37133	
==>place
    $self->add_handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4375	4492	
==>ame) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4375	4492	
==>ame) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4375	4492	
==>ame) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38025	38121	
==>ion::Example but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an i <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11964	12065	
==>', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expect <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12022	12123	
==>', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	504	602	
==>ser's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	504	602	
==>ser's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	504	602	
==>ser's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1680	1828	
==>y($lex) = sub {
        my($t)=shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13836	13935	
==>urn.  The callback routine
is called with two parameters; the name of the field and a single
value ( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7352	7451	
==>ng === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10829	10928	
==>ng === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@ot <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13836	13935	
==>urn.  The callback routine
is called with two parameters; the name of the field and a single
value ( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6867	7036	
==>q ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6867	7036	
==>q ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6284	6394	
==>) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6284	6394	
==>) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6284	6394	
==>) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3965	4085	
==>entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3965	4085	
==>entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	800	908	
==>local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	800	908	
==>local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	800	908	
==>local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6621	6727	
==>, $class;
}

# functions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/node/;

pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7148	7251	
==>:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7148	7251	
==>:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7148	7251	
==>:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7905	8007	
==>.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	900	1009	
==>:cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	900	1009	
==>:cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	900	1009	
==>:cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() } <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	434	535	
==>utput in a file and
specify this file as parameter.
Output will go to STDOUT in PNG format.
INFO

# Re <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24370	24467	
==>d (at beginning-of-line only)?

Very popular.  Used all over perl.  Discussed elsewhere.

 * regmu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	560	673	
==>re Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	560	673	
==>re Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destr <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5043	5155	
==>end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defi <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5043	5155	
==>end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defi <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	101	207	
==>as Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller n <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	101	207	
==>as Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36368	36461	
==>the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40917	41010	
==>the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40531	40624	
==>the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6647	6767	
==>->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6647	6767	
==>->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6647	6767	
==>->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7210	7307	
==>mmunication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop ope <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6965	7059	
==>mmunication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop ope <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15692	15869	
==>mmar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15971	16148	
==>mmar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15280	15417	
==>r1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15559	15696	
==>r1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::c <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	658	791	
==>igest ();
    use Storable ();
    use overload ();
    use Carp ();

    sub atomic { '' }

    sub fmap {
        Carp::croak "virtu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9168	9290	
==>( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10645	10767	
==>( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	298	397	
==>indow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	298	397	
==>indow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	298	397	
==>indow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6109	6205	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8177	8273	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6109	6205	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8177	8273	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2548	2673	
==>6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2548	2673	
==>6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2548	2673	
==>6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	379	476	
==>ut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	379	476	
==>ut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3718	3824	
==>iler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork(' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3718	3824	
==>iler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork(' <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10694	10798	
==>eserv/README">smokeserv's
    README</a> for details.
  </p>

  <p>
    Note that old smoke reports are a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1007	1098	
==>ntent-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1007	1098	
==>ntent-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12409	12547	
==>c = $_[0];
        { local($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	493	593	
==>ION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	493	593	
==>ION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	493	593	
==>ION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $ <==
5	/Users/nnunley/pugs/util/testgraph.pl	594	682	
==>_struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14210	14322	
==>"   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14210	14322	
==>"   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14210	14322	
==>"   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33099	33186	
==>int_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37649	37736	
==>int_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36948	37064	
==>);
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36948	37064	
==>);
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36948	37064	
==>);
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $arr <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4015	4118	
==>request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*EN <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4015	4118	
==>request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8496	8597	
==>);

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8496	8597	
==>);

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8496	8597	
==>);

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17979	18074	
==>k, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17979	18074	
==>k, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickn <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3464	3575	
==>} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", map { quote <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3842	3939	
==>s Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4175	4272	
==>s Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3842	3939	
==>s Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4175	4272	
==>s Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2932	3050	
==>] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2932	3050	
==>] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @path <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3172	3269	
==>This test module allows you to test test modules that use Test::Builder.  It
does this by you sett <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3172	3269	
==>This test module allows you to test test modules that use Test::Builder.  It
does this by you sett <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3252	3349	
==>This test module allows you to test test modules that use Test::Builder.  It
does this by you sett <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8279	8393	
==>q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8279	8393	
==>q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	904	1002	
==>:SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	904	1002	
==>:SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	904	1002	
==>:SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.gen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11105	11285	
==>d Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11105	11285	
==>d Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11105	11285	
==>d Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	255	358	
==>o keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code bl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	255	358	
==>o keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code bl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7370	7467	
==>hers should buffer input data until they have an entire block, then cipher 
the block and return t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7370	7467	
==>hers should buffer input data until they have an entire block, then cipher 
the block and return t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36815	36910	
==>s the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41364	41459	
==>s the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40987	41082	
==>s the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11390	11560	
==>($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11390	11560	
==>($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11390	11560	
==>($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	96	199	
==>s) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	96	199	
==>s) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	96	199	
==>s) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glo <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4759	4857	
==>create one, 1- wrap with push-on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$ <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2411	2504	
==>pturing_group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <closure> | < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16630	16736	
==>my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16630	16736	
==>my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16630	16736	
==>my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10130	10234	
==>my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10130	10234	
==>my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5250	5350	
==>tional error.
# Here $range must be numeric, >= 0
# Non numeric ranges might be a useful future exten <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6416	6513	
==>es, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = split <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6416	6513	
==>es, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = split <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	232	348	
==>ft;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4708	4804	
==>n is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3835	3931	
==>n is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4708	4804	
==>n is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3835	3931	
==>n is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	974	1154	
==>very Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # Th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	974	1154	
==>very Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5124	5232	
==>ng - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5124	5232	
==>ng - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5124	5232	
==>ng - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10550	10660	
==>pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10550	10660	
==>pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10550	10660	
==>pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1080	1184	
==>pe";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub subtract {
    my ($ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12613	12716	
==>ew_env($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => type::variabl <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4119	4252	
==>?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     so <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	661	768	
==>*prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- d <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	661	768	
==>*prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16782	16879	
==>it.  It
also does not make direct use of environment variables, which can aid in
portability.

Pra <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16782	16879	
==>it.  It
also does not make direct use of environment variables, which can aid in
portability.

Pra <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2469	2589	
==>};

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3397	3517	
==>};

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2469	2589	
==>};

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3397	3517	
==>};

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $e <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3677	3783	
==>out whether to raise
    # exceptions or return false values to signal error conditions
    # in library co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4462	4566	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4462	4566	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4462	4566	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3618	3722	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	14	111	
==>:JuncType;

# this is a simple translation of the JuncType type from
# src/Pugs/AST/Internals.hs t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17122	17246	
==>.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13543	13667	
==>.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22298	22420	
==>NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18719	18841	
==>NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4307	4426	
==>ng a cp -R
            my $src = $conf->compile_dir->subdir( $self->package );
            system( qq[cp -R $src ]. $ins <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3251	3456	
==>vents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('par <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3251	3456	
==>vents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('par <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4995	5108	
==>($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8472	8585	
==>($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7483	7596	
==>($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5738	5910	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5738	5910	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5738	5910	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14467	14580	
==>?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14467	14580	
==>?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29601	29721	
==>{ 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29601	29721	
==>{ 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29601	29721	
==>{ 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7170	7276	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7170	7276	
==>al!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3218	3327	
==>ge_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3218	3327	
==>ge_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3218	3327	
==>ge_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	183	278	
==>ertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {.. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	183	278	
==>ertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {.. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3436	3616	
==>Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' => 1,      :$v
    #    'type' => {             Str $v
    #      'b <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14065	14156	
==>"iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thin <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10292	10383	
==>"iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thin <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14065	14156	
==>"iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thin <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10292	10383	
==>"iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15136	15239	
==>ext") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15136	15239	
==>ext") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19690	19781	
==>LTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19690	19781	
==>LTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19690	19781	
==>LTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infi <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	663	830	
==>$line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\ <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	663	830	
==>$line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\ <==
5	/Users/nnunley/pugs/util/version_h.pl	2266	2363	
==>p.hs to show new revision number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18356	18452	
==>s was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<refer <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18356	18452	
==>s was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<refer <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5750	5852	
==>f ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5750	5852	
==>f ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4022	4112	
==>:Test::Fail
instance, passing on the C<$description> parameter and setting the passed
param <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4022	4112	
==>:Test::Fail
instance, passing on the C<$description> parameter and setting the passed
param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6219	6309	
==>:Test::Fail
instance, passing on the C<$description> parameter and setting the passed
param <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13708	13819	
==>ss_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13708	13819	
==>ss_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13708	13819	
==>ss_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3074	3181	
==>, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3074	3181	
==>, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5661	5760	
==>ndefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5661	5760	
==>ndefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5661	5760	
==>ndefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsna <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18869	18964	
==>xpressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anythin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18869	18964	
==>xpressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anythin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4438	4551	
==>$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4438	4551	
==>$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7045	7147	
==>llegal, use $1, \\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits fo <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18669	18762	
==>fficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoid <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2959	3052	
==>fficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoid <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10424	10531	
==>e.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10424	10531	
==>e.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1367	1468	
==>pported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1367	1468	
==>pported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1367	1468	
==>pported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1512	1606	
==>piled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1512	1606	
==>piled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1512	1606	
==>piled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11215	11307	
==>urns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11215	11307	
==>urns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17203	17302	
==>udience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17203	17302	
==>udience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4325	4413	
==>valX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4325	4413	
==>valX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4325	4413	
==>valX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1104	1240	
==>r => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	953	1088	
==>r => '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4540	4659	
==>a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4540	4659	
==>a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4540	4659	
==>a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #wa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2222	2315	
==>ecifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2311	2404	
==>ecifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12762	12846	
==>urn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopContr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12762	12846	
==>urn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopContr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12762	12846	
==>urn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopContr <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4226	4319	
==>, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines s <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4226	4319	
==>, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines s <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	361	460	
==>omparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mul <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	361	460	
==>omparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mul <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1480	1568	
==>/${foreach_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_
} <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15200	15317	
==>rol ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not ? 0 : <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5435	5551	
==>cks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6703	6819	
==>cks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5435	5551	
==>cks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6691	6807	
==>cks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1092	1210	
==>ons(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1092	1210	
==>ons(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1092	1210	
==>ons(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelude <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19980	20074	
==>he operating system itself, to have the user language data in separate
files (usually XML files <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19980	20074	
==>he operating system itself, to have the user language data in separate
files (usually XML files <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27186	27320	
==>>new('@:subclasses'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6264	6357	
==>ss($::Class);

=pod

method add_method (opaque $self: symbol $label, method $method) returns n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	794	926	
==>Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	956	1088	
==>Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19409	19498	
==>_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19409	19498	
==>_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19409	19498	
==>_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7789	7901	
==>orce => BOOL])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shift;
    my %args = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9564	9666	
==>$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9552	9654	
==>$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2377	2477	
==>$self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/)) <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2377	2477	
==>$self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/)) <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6144	6270	
==>od: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5652	5778	
==>od: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1160	1258	
==>t $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1160	1258	
==>t $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1160	1258	
==>t $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14095	14236	
==>ange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14095	14236	
==>ange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14095	14236	
==>ange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6357	6498	
==>ange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4859	5000	
==>ange -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12688	12803	
==>f}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12688	12803	
==>f}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12688	12803	
==>f}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9632	9730	
==>ht work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This mod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9690	9788	
==>ht work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This mod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10578	10756	
==>"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6919	7097	
==>"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7768	7946	
==>"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5939	6049	
==>])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5939	6049	
==>])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2145	2253	
==>$tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2145	2253	
==>$tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7188	7277	
==>($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7188	7277	
==>($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7188	7277	
==>($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); su <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	657	754	
==>ugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.tod <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	657	754	
==>ugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.tod <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36095	36189	
==>lation is the result of first pairwise-matching every
tuple of the invocant relation with every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40644	40738	
==>lation is the result of first pairwise-matching every
tuple of the invocant relation with every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40258	40352	
==>lation is the result of first pairwise-matching every
tuple of the invocant relation with every <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5923	6025	
==>en;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5923	6025	
==>en;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.sp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1853	1971	
==>XX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1853	1971	
==>XX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5950	6042	
==>');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	227	362	
==>ol::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8066	8201	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_MET <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	227	362	
==>ol::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8066	8201	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_MET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8066	8201	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_MET <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	13	109	
==>6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-regex parser <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	13	107	
==>6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-regex parser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	252	340	
==>js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	252	340	
==>js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	252	340	
==>js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_j <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1279	1438	
==>= shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless defined $o->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	240	365	
==>n;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	240	365	
==>n;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	175	280	
==>b set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.joi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	175	280	
==>b set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.joi <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8510	8640	
==>8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "sup <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8510	8640	
==>8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "sup <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1104	1231	
==>ty) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1104	1231	
==>ty) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1104	1231	
==>ty) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join " <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7105	7228	
==>uo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7105	7228	
==>uo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6091	6185	
==>me, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6091	6185	
==>me, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6091	6185	
==>me, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5574	5679	
==>[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5574	5679	
==>[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5574	5679	
==>[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurp <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	747	838	
==>e Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	747	838	
==>e Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4067	4202	
==>',
    );
    __PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	781	878	
==>eE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1906	2003	
==>eE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	781	878	
==>eE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1906	2003	
==>eE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8226	8326	
==>e_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#===================== <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8226	8326	
==>e_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#===================== <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8226	8326	
==>e_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#===================== <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7416	7513	
==>'t define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7416	7513	
==>'t define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9839	9949	
==>) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9839	9949	
==>) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9839	9949	
==>) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5274	5381	
==>use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compile <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5091	5192	
==>use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compile <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	96	191	
==>cter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	96	191	
==>cter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal method <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3077	3250	
==>g;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3077	3250	
==>g;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3077	3250	
==>g;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14181	14298	
==>($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14181	14298	
==>($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1555	1651	
==>ass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1317	1413	
==>ass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1555	1651	
==>ass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1317	1413	
==>ass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4850	4946	
==>\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Could <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1126	1267	
==>ar eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq ' <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1126	1267	
==>ar eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29925	30045	
==>ub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29925	30045	
==>ub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29925	30045	
==>ub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub fr <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6161	6311	
==>ault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5234	5384	
==>ault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6161	6311	
==>ault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5234	5384	
==>ault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we <==
5	/Users/nnunley/pugs/util/package-osx.pl	1577	1675	
==>5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_perl/PIL.pm /Library/Perl/5.8.6/PIL.pm
        /u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4286	4418	
==>tents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4286	4418	
==>tents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4286	4418	
==>tents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

su <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1654	1754	
==>Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1654	1754	
==>Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3680	3929	
==>KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3680	3929	
==>KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21520	21614	
==>in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unsh <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21520	21614	
==>in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unsh <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21520	21614	
==>in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unsh <==
5	/Users/nnunley/pugs/util/package-osx.pl	9115	9227	
==>r/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16620	16730	
==>'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16620	16730	
==>'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16620	16730	
==>'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::B <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21622	21710	
==>2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_offse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1199	1337	
==>ine {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1150	1283	
==>ine {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	390	476	
==>n, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	390	476	
==>n, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	390	476	
==>n, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Ro <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10909	11063	
==>ring\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10909	11063	
==>ring\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4411	4507	
==>lf => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4411	4507	
==>lf => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4411	4507	
==>lf => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $labe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1711	1847	
==>=shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6436	6532	
==>set($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5566	5662	
==>set($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6436	6532	
==>set($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5566	5662	
==>set($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6562	6662	
==>e span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `S <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6562	6662	
==>e span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `S <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3259	3358	
==>e span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see `S <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3259	3358	
==>e span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see `S <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16171	16270	
==>: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: gen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11348	11490	
==>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11348	11490	
==>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11348	11490	
==>[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	283	385	
==>the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	283	385	
==>the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial t <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5441	5563	
==>ISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5947	6055	
==>ISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2120	2216	
==>JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2120	2216	
==>JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2120	2216	
==>JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22598	22691	
==>nnected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22598	22691	
==>nnected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14468	14643	
==>ve no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17945	18120	
==>ve no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17361	17536	
==>ve no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8178	8321	
==>= $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    - <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8178	8321	
==>= $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    - <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14505	14621	
==>).map:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7712	7818	
==>@js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7712	7818	
==>@js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7712	7818	
==>@js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self <==
5	/Users/nnunley/pugs/util/build_pugs.pl	275	369	
==>ib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
build(c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9069	9196	
==>0]");
  });


  ### ':'

  $self->add_flag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if ( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8047	8138	
==>et(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).differ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7177	7268	
==>et(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8047	8138	
==>et(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7177	7268	
==>et(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).differ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13349	13452	
==>warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	751	854	
==>&');
}
 
sub SessionDecode($data) {
    for(split('&',$data)) {
        my($variable,$value) = split('=' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13349	13452	
==>warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13349	13452	
==>warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1460	1552	
==>Pe_BGROUP => --$ENUM, 'Reference to nonexistent group';
use constant RPe_ESLASH => --$ENUM, ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6728	6857	
==>or in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6728	6857	
==>or in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6728	6857	
==>or in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	114	218	
==>on't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	114	218	
==>on't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3806	3987	
==>}, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3806	3987	
==>}, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3806	3987	
==>}, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	743	846	
==>>{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	743	846	
==>>{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->f <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20355	20467	
==>utnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0

    if self != "(" goto i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24214	24309	
==>y used by automatons
  (clients with either an AI or other interactive program controlling their <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22987	23082	
==>y used by automatons
  (clients with either an AI or other interactive program controlling their <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24214	24309	
==>y used by automatons
  (clients with either an AI or other interactive program controlling their <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22987	23082	
==>y used by automatons
  (clients with either an AI or other interactive program controlling their <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8515	8639	
==>us( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for fast <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8219	8336	
==>us( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for fast <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4066	4170	
==>less defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4066	4170	
==>less defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4066	4170	
==>less defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	328	434	
==>rLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	328	434	
==>rLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	328	434	
==>rLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5829	5920	
==>fig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5829	5920	
==>fig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3355	3445	
==>fig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3355	3445	
==>fig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3355	3445	
==>fig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3194	3294	
==>empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3194	3294	
==>empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	364	459	
==>ne("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	364	459	
==>ne("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	364	459	
==>ne("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2472	2602	
==>} ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2472	2602	
==>} ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4740	4868	
==>{ $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4740	4868	
==>{ $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4740	4868	
==>{ $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6381	6528	
==>mit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3506	3653	
==>mit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4355	4502	
==>mit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28122	28220	
==>t of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32674	32772	
==>t of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9113	9236	
==>: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9113	9236	
==>: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9113	9236	
==>: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicin <==
5	/Users/nnunley/pugs/util/config_h.pl	814	922	
==>def PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have c <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11180	11272	
==>$-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END




__END__ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26427	26563	
==>b on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub visual {
    my $self = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6052	6155	
==>s Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5182	5285	
==>s Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6052	6155	
==>s Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5182	5285	
==>s Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10300	10409	
==>name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10300	10409	
==>name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10300	10409	
==>name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2940	3048	
==>r $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2940	3048	
==>r $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1929	2038	
==>R|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1929	2038	
==>R|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1929	2038	
==>R|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($se <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10703	10811	
==>ons 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10703	10811	
==>ons 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3749	3917	
==>Y})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3749	3917	
==>Y})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3749	3917	
==>Y})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{A <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1860	2006	
==>the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1860	2006	
==>the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9841	9963	
==>name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.bui <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9841	9963	
==>name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.bui <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	40	141	
==>:perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	40	141	
==>:perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	40	141	
==>:perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2085	2178	
==>rl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filena <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2085	2178	
==>rl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filena <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2085	2178	
==>rl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filena <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2757	2846	
==>l :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$gh <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2757	2846	
==>l :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$gh <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	86	196	
==>s bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set coul <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	86	196	
==>s bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set coul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	402	506	
==>PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	402	506	
==>PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	402	506	
==>PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14672	14842	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14672	14842	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14672	14842	
==>onClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	976	1075	
==>on

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines : <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	929	1024	
==>on
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5727	5831	
==>e . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an incl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5727	5831	
==>e . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an incl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5727	5831	
==>e . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an incl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17527	17623	
==>on.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17527	17623	
==>on.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14973	15090	
==>numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub { $as_hash_complain-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11981	12081	
==>ase
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12413	12513	
==>ase sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11981	12081	
==>ase
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12413	12513	
==>ase sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1788	1902	
==>LV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1788	1902	
==>LV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1788	1902	
==>LV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15086	15183	
==>(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { . <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15086	15183	
==>(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { . <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7517	7615	
==>ail> 
indicates that there is no more incoming data, and the remaining data should be 
padded and c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7517	7615	
==>ail> 
indicates that there is no more incoming data, and the remaining data should be 
padded and c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	364	460	
==>erl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hoo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	364	460	
==>erl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hoo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	364	460	
==>erl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hoo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2317	2418	
==>NC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2317	2418	
==>NC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2317	2418	
==>NC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() us <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1051	1148	
==>ntent-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my % <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1051	1148	
==>ntent-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my % <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6890	6986	
==>, @array.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2JS Operators.pm r8593.
# Prim.hs says <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6411	6505	
==>| die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@token <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5484	5578	
==>| die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@token <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6411	6505	
==>| die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@token <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5484	5578	
==>| die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@token <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1083	1216	
==>ersion =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($v <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	962	1095	
==>ersion =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6349	6455	
==>ub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6349	6455	
==>ub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6349	6455	
==>ub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return I <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	180	331	
==>\&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	180	331	
==>\&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	400	492	
==>nt(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	400	492	
==>nt(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	400	492	
==>nt(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9795	9917	
==>ed_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method int <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9795	9917	
==>ed_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3349	3449	
==>_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3349	3449	
==>_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3349	3449	
==>_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12455	12568	
==>],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12455	12568	
==>],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6021	6118	
==>sser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6021	6118	
==>sser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6021	6118	
==>sser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16960	17114	
==>);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13381	13535	
==>);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23393	23493	
==>y($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23393	23493	
==>y($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23393	23493	
==>y($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7319	7427	
==>to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7319	7427	
==>to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7319	7427	
==>to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI S <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6670	6772	
==>h seem to still be inside a list?

Basically the item body, much like this text is.

- how should I han <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6670	6772	
==>h seem to still be inside a list?

Basically the item body, much like this text is.

- how should I han <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5171	5301	
==>y $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5171	5301	
==>y $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5171	5301	
==>y $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	118	219	
==>quest::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_AR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	118	219	
==>quest::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_AR <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6870	6982	
==>my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) { <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7429	7541	
==>my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	445	553	
==>b (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	445	553	
==>b (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	445	553	
==>b (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8933	9036	
==>ter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8933	9036	
==>ter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2590	2697	
==>,
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2590	2697	
==>,
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2590	2697	
==>,
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $bo <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2518	2617	
==>e_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join " <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2518	2617	
==>e_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join " <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1774	1911	
==>1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.r <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1774	1911	
==>1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	405	503	
==>lass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	405	503	
==>lass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	405	503	
==>lass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $s <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3290	3386	
==>{skip_all} = $self->{skip_all} if defined $self->{skip_all};

    my $passed = ($totals{max} == 0 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39450	39541	
==>file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5185	5276	
==>file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39450	39541	
==>file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5185	5276	
==>file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006 <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5812	5958	
==>@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4312	4458	
==>@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	73	183	
==>eys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	73	183	
==>eys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	73	183	
==>eys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using funct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1066	1175	
==>s::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1066	1175	
==>s::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1066	1175	
==>s::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box. <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1609	1708	
==>s( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1609	1708	
==>s( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	551	676	
==>},

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	529	649	
==>},
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2024	2127	
==>r( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7795	7897	
==>Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7795	7897	
==>Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!use <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	301	445	
==>);

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], stric <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	295	439	
==>);

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], stric <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1741	1864	
==>ce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1741	1864	
==>ce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1741	1864	
==>ce (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5676	5771	
==>tributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5676	5771	
==>tributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8839	8933	
==>MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8839	8933	
==>MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8839	8933	
==>MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($x <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6886	7019	
==>kage => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11441	11574	
==>kage => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12239	12372	
==>kage => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12966	13099	
==>kage => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2034	2155	
==>rn '\'' . $n->{single_quoted} . '\'' 
        if exists $n->{single_quoted};
            
    return 'qw(' . $n->{angle <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9800	9893	
==>new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26421	26514	
==>ing projection of
each tuple), but that any duplicates following the projection have been
elim <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30973	31066	
==>ing projection of
each tuple), but that any duplicates following the projection have been
elim <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29975	30068	
==>ing projection of
each tuple), but that any duplicates following the projection have been
elim <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9800	9893	
==>new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7594	7720	
==>lass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7594	7720	
==>lass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7594	7720	
==>lass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1566	1656	
==>r <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1566	1656	
==>r <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1280	1412	
==>ield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defaul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1280	1412	
==>ield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defaul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1280	1412	
==>ield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defaul <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	784	880	
==>The C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Juliu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	784	880	
==>The C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Juliu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5666	5806	
==>$v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /package <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5888	6028	
==>$v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /package <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	642	764	
==>tor;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	642	764	
==>tor;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	642	764	
==>tor;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7196	7351	
==>_('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7196	7351	
==>_('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7196	7351	
==>_('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6026	6117	
==>\"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6026	6117	
==>\"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_ni <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8696	8805	
==>subclass,
such as a PHP interpreter for a PHP-based strap.

=cut

sub _command {
    my $self = shift;

    re <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5970	6072	
==>et {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.supe <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5100	5202	
==>et {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.supe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5970	6072	
==>et {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.supe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5100	5202	
==>et {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.supe <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1681	1782	
==>ND_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1904	2001	
==>hange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1904	2001	
==>hange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1904	2001	
==>hange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::in <==
5	/Users/nnunley/pugs/docs/feather/~/gen.pl	936	1026	
==>g, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the automatic upda <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5610	5715	
==>AML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual modu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5417	5518	
==>AML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4622	4715	
==>ox.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4622	4715	
==>ox.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4622	4715	
==>ox.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6364	6477	
==>>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6364	6477	
==>>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6364	6477	
==>>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3512	3615	
==>ed_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3570	3673	
==>ed_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	147	261	
==>$set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	147	261	
==>$set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2962	3072	
==>Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2962	3072	
==>Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2962	3072	
==>Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1091	1321	
==>cument>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1091	1321	
==>cument>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7046	7208	
==>UTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7046	7208	
==>UTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7046	7208	
==>UTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34970	35079	
==>$offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34970	35079	
==>$offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34970	35079	
==>$offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1603	1704	
==>f the signature; it does

not allocate containers.



the Body is just a structure with three node for <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1538	1636	
==>f the signature; it does
not allocate containers.

the Body is just a structure with three node for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2003	2156	
==>ift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2003	2156	
==>ift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2003	2156	
==>ift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1599	1688	
==>le>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1599	1688	
==>le>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14012	14177	
==>elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14012	14177	
==>elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14012	14177	
==>elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary t <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6274	6439	
==>elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary t <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4776	4941	
==>elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20710	20808	
==>:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20710	20808	
==>:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4204	4294	
==>make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4204	4294	
==>make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4204	4294	
==>make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9090	9232	
==>thod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9090	9232	
==>thod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9090	9232	
==>thod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2880	2998	
==>ocation,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2880	2998	
==>ocation,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3683	3897	
==>->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3536	3743	
==>->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3501	3634	
==>{ _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3501	3634	
==>{ _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3501	3634	
==>{ _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11116	11224	
==>den in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11116	11224	
==>den in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2574	2675	
==>iag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2574	2675	
==>iag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2654	2755	
==>iag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12617	12711	
==>ful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depend <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12675	12769	
==>ful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depend <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	21	131	
==>:JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	21	131	
==>:JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	21	131	
==>:JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3903	4001	
==>ule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4087	4185	
==>ule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - S <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	396	534	
==>@_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$file },
    };
    
    check( $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1022	1158	
==>'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2938	3074	
==>'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	980	1112	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2824	2956	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	810	918	
==>hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	810	918	
==>hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	810	918	
==>hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - p <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1704	1805	
==>r $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) ret <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1704	1805	
==>r $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) ret <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	789	918	
==>) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $c <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4184	4287	
==>: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4184	4287	
==>: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	421	523	
==>: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	421	523	
==>: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	824	970	
==>s rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	824	970	
==>s rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3169	3266	
==>: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3169	3266	
==>: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3169	3266	
==>: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cf <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1522	1629	
==>subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <d <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1522	1629	
==>subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	437	538	
==>hat's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	437	538	
==>hat's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	437	538	
==>hat's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3912	4012	
==>sn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3912	4012	
==>sn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3912	4012	
==>sn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ari <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9270	9362	
==>=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9270	9362	
==>=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1586	1708	
==>umber'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder->FETCH(': <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8982	9103	
==>'*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8978	9099	
==>'*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2423	2543	
==>'*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2423	2543	
==>'*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32141	32252	
==>warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32141	32252	
==>warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32141	32252	
==>warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11320	11417	
==>byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub string <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11320	11417	
==>byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub string <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	319	432	
==>$class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	319	432	
==>$class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .t <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	530	628	
==>specify a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9506	9591	
==>et of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9506	9591	
==>et of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)> <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3601	3971	
==>if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            }, <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3601	3971	
==>if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            }, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6348	6558	
==>if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6348	6558	
==>if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6348	6558	
==>if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        }, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	291	411	
==>s;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	497	617	
==>s;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4881	4988	
==>_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2423	2530	
==>_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3204	3311	
==>_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13974	14082	
==>itialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13974	14082	
==>itialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13974	14082	
==>itialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('ma <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6682	6782	
==>pe',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6682	6782	
==>pe',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2631	2749	
==>i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2631	2749	
==>i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2631	2749	
==>i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $clas <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	176	279	
==>se strict;
use Config ();
use File::Spec ();
use ExtUtils::MakeMaker ();

# check if we can load some mo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32920	33013	
==>ional operator that is like
C<union> except that the returned Relation contains only tuples th <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33375	33468	
==>ional operator that is like
C<union> except that the returned Relation contains only tuples th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37470	37563	
==>ional operator that is like
C<union> except that the returned Relation contains only tuples th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37925	38018	
==>ional operator that is like
C<union> except that the returned Relation contains only tuples th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5819	5939	
==>ys) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5819	5939	
==>ys) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5819	5939	
==>ys) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    ma <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17215	17315	
==>y()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17215	17315	
==>y()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	86	226	
==>e {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	86	226	
==>e {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	86	226	
==>e {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2289	2417	
==>e accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, d <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2289	2417	
==>e accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, d <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3061	3161	
==>equire ExtUtils::Manifest;
    local *ExtUtils::Manifest::manicheck = sub { return };

    require Mo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4843	4940	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ite <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2192	2289	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ite <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1063	1160	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ite <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1233	1330	
==>tem B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9902	10007	
==>cher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9902	10007	
==>cher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9902	10007	
==>cher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2967	3067	
==>lization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2967	3067	
==>lization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1926	2026	
==>tanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1926	2026	
==>tanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1926	2026	
==>tanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4259	4338	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4259	4338	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5276	5381	
==>sers>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5276	5381	
==>sers>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1305	1393	
==>amespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1305	1393	
==>amespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1305	1393	
==>amespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10278	10389	
==>, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolve ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10278	10389	
==>, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolve ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10278	10389	
==>, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolve ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21403	21496	
==>ily port
to alternative relational database engines with minimal effort.

This might seem stra <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21403	21496	
==>ily port
to alternative relational database engines with minimal effort.

This might seem stra <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10061	10158	
==>ties.

Note that all set functions may end up being calculated using iterations, 
which can be slo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10061	10158	
==>ties.

Note that all set functions may end up being calculated using iterations, 
which can be slo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5540	5634	
==>$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5540	5634	
==>$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5540	5634	
==>$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3392	3512	
==>True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !define <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3392	3512	
==>True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5418	5526	
==>slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5418	5526	
==>slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5418	5526	
==>slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26524	26752	
==>ify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26524	26752	
==>ify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26524	26752	
==>ify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	292	511	
==>,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	293	512	
==>,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8313	8429	
==>up } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8313	8429	
==>up } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8313	8429	
==>up } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loca <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3435	3544	
==>t:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3435	3544	
==>t:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method heade <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1158	1294	
==>r  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0 <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1158	1294	
==>r  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8439	8537	
==>::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8439	8537	
==>::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8439	8537	
==>::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1524	1629	
==>rns Lazy 
 multi sub  Perl6::List::map (Code $expression ; *@values) returns Lazy {
   gather {
     while <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	945	1040	
==>.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns S <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	945	1040	
==>.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9939	10032	
==>in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the ele <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9939	10032	
==>in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1576	1687	
==>self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1576	1687	
==>self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1576	1687	
==>self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclas <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25358	25452	
==>lation $other!) returns Bool>

This method returns the complement of C<equal> with the same arg <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29910	30004	
==>lation $other!) returns Bool>

This method returns the complement of C<equal> with the same arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4703	4794	
==>chet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4953	5044	
==>chet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5032	5177	
==>$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5496	5641	
==>$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4871	4988	
==>> 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4871	4988	
==>> 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4871	4988	
==>> 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatch <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8549	8652	
==>act => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'br <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1178	1278	
==>t Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, mo <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1178	1278	
==>t Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, mo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35784	35878	
==>nt, where <$other> has the same heading as
the invocant Relation::Example, and returns a new Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37816	37910	
==>nt, where <$other> has the same heading as the
invocant Relation::Example, and returns a new Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14766	14870	
==>:to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100** <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14766	14870	
==>:to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100** <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14766	14870	
==>:to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100** <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32704	32799	
==>mplate modules as a template.
The Translator class as a whole is not pure and deterministic beca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32704	32799	
==>mplate modules as a template.
The Translator class as a whole is not pure and deterministic beca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1482	1580	
==>r" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audre <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1482	1580	
==>r" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	272	359	
==>http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	272	359	
==>http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	272	359	
==>http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4464	4594	
==>ity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4464	4594	
==>ity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4464	4594	
==>ity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14367	14464	
==>es, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sect <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14367	14464	
==>es, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sect <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32013	32110	
==>want to throw your own error, see L</"ERROR HANDLING">.

=back

=head2 Walking an Object

Most obj <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	4162	4258	
==>lease create a file named $SMOKERFILE
either in this directory or under your home. You can use th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2007	2132	
==>----------------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13447	13540	
==>t invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose k <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18534	18627	
==>t invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose k <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13447	13540	
==>t invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose k <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18534	18627	
==>t invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose k <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2630	2741	
==>if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7724	7835	
==>if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $me <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2630	2741	
==>if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $me <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7724	7835	
==>if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $me <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	642	743	
==>= $arg but $.normalizer_role;
            return $normalizer but $.coercer_role, collect_arguments( gr <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3158	3267	
==>t = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20301	20410	
==>bel, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make meth <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3158	3267	
==>t = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20301	20410	
==>bel, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20301	20410	
==>bel, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make meth <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32944	33042	
==>ator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32944	33042	
==>ator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1463	1560	
==>::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1463	1560	
==>::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1463	1560	
==>::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4219	4353	
==>$bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4412	4546	
==>$bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5873	5979	
==>:&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5873	5979	
==>:&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5873	5979	
==>:&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::B <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	234	334	
==>_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inver <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1092	1192	
==>_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inver <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3021	3129	
==>le($runtime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $co <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7885	7991	
==>($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7015	7121	
==>($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7885	7991	
==>($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7015	7121	
==>($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7804	7921	
==>content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7804	7921	
==>content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compil <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	278	420	
==>=> '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "ap <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	278	420	
==>=> '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3240	3354	
==>.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, bu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3240	3354	
==>.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, bu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3240	3354	
==>.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4843	4958	
==>hift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4843	4958	
==>hift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4843	4958	
==>hift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an inf <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21842	21941	
==>ples.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26394	26493	
==>ples.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3360	3474	
==>am{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3360	3474	
==>am{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3360	3474	
==>am{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defi <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	693	793	
==>hod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	693	793	
==>hod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	802	931	
==>ame} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 't <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25328	25423	
==>hmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24092	24187	
==>hmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25328	25423	
==>hmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24092	24187	
==>hmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27589	27755	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1251	1348	
==>te outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1251	1348	
==>te outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1251	1348	
==>te outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	258	347	
==>die::TypeSafe;
use Set::Object ();

{
	package Blondie::Backend::C::Emitter::DuplicateFind <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	546	648	
==>on't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1091	1193	
==>on't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	546	648	
==>on't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1091	1193	
==>on't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1091	1193	
==>on't depend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4756	4892	
==>_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4756	4892	
==>_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4756	4892	
==>_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32681	32776	
==>ificant to the result;
the new Relation contains all the tuples of the source Relations, includi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37231	37326	
==>ificant to the result;
the new Relation contains all the tuples of the source Relations, includi <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5676	5827	
==>n - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4176	4327	
==>n - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	588	677	
==>indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	588	677	
==>indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	588	677	
==>indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22057	22279	
==>uleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22336	22558	
==>uleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4184	4404	
==>('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->is <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2220	2315	
==>lly 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cau <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2220	2315	
==>lly 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cau <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16037	16277	
==>ub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16037	16277	
==>ub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16037	16277	
==>ub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arra <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38043	38133	
==>ule recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_tem <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38043	38133	
==>ule recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_tem <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29463	29591	
==>=> q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER ê <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29463	29591	
==>=> q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER ê <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	283	399	
==>=> q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER ê <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4339	4451	
==>ite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4339	4451	
==>ite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7667	7774	
==>ser->errmsg will return
that error message, and $parser->errnum will return the numerical value
of the messa <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	325	424	
==>d_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	325	424	
==>d_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16013	16108	
==>=item $h.last_modified

This header indicates the date and time at which the resource was last
m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16013	16108	
==>=item $h.last_modified

This header indicates the date and time at which the resource was last
m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4746	4873	
==>pturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4939	5066	
==>pturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18998	19122	
==>AD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18998	19122	
==>AD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18998	19122	
==>AD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20902	21001	
==>h has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19819	19918	
==>h has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20902	21001	
==>h has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19819	19918	
==>h has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26065	26159	
==>ch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36389	36486	
==>print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36389	36486	
==>print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36389	36486	
==>print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19687	19783	
==>o so by including these headers.

=item $h.authorization_basic

This method is used to get or set <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19687	19783	
==>o so by including these headers.

=item $h.authorization_basic

This method is used to get or set <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	838	968	
==>eferer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT', <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	838	968	
==>eferer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4518	4616	
==>..};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4518	4616	
==>..};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4518	4616	
==>..};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7234	7350	
==>rn;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $thun <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14217	14322	
==>me() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; ping <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14217	14322	
==>me() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; ping <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17400	17494	
==>opers and users alike.

For some practical examples of Locale::KeyedText in use, see the /examp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17400	17494	
==>opers and users alike.

For some practical examples of Locale::KeyedText in use, see the /examp <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3977	4084	
==>{ decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = s <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3977	4084	
==>{ decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8951	9047	
==>]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8951	9047	
==>]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8951	9047	
==>]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: In <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	233	337	
==>et.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	233	337	
==>et.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	482	580	
==>hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	482	580	
==>hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	482	580	
==>hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: ini <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20010	20147	
==>lags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16431	16568	
==>lags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7871	7973	
==>h my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7871	7973	
==>h my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7871	7973	
==>h my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	105	214	
==>.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	105	214	
==>.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	105	214	
==>.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnin <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6735	6833	
==>$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6793	6891	
==>$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	286	425	
==>se YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->co <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	284	423	
==>se YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	468	588	
==>2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	468	588	
==>2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	468	588	
==>2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2918	3019	
==>s';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    pac <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2918	3019	
==>s';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    pac <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2918	3019	
==>s';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    pac <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18713	18807	
==>arameters of Node.new(); you need to supply its $document and optional
$parent_node though; you <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18713	18807	
==>arameters of Node.new(); you need to supply its $document and optional
$parent_node though; you <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2193	2307	
==>) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2193	2307	
==>) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8109	8214	
==>();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ / <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4667	4758	
==>:new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseu <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4667	4758	
==>:new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29686	29825	
==>( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29686	29825	
==>( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29686	29825	
==>( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19840	19935	
==>s already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19840	19935	
==>s already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<user <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6575	6697	
==>erl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6575	6697	
==>erl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6575	6697	
==>erl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8335	8427	
==>nts, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
pu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2160	2252	
==>nts, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
pu <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2467	2722	
==>e {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2467	2722	
==>e {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	686	791	
==>.
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	686	791	
==>.
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	686	791	
==>.
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11298	11415	
==>s first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14775	14892	
==>s first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14083	14200	
==>s first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10176	10265	
==>ef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10911	11000	
==>ef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[ <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	846	955	
==>cheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	813	922	
==>cheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4670	4772	
==>self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4670	4772	
==>self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4670	4772	
==>self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17586	17682	
==>ugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::O <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17586	17682	
==>ugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13809	13904	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13809	13904	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13809	13904	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13963	14113	
==>/^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13963	14113	
==>/^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13963	14113	
==>/^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4427	4567	
==>sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4620	4760	
==>sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1505	1615	
==>b as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1505	1615	
==>b as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1505	1615	
==>b as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17951	18046	
==>ble"; any application receiving such a code can identify
it easily in its conditional logic, usi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17951	18046	
==>ble"; any application receiving such a code can identify
it easily in its conditional logic, usi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1746	1868	
==>)  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1746	1868	
==>)  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1746	1868	
==>)  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing-> <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22032	22134	
==>_namelen = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19823	19914	
==>tem Better Abstracting

The object() method calls force_object().  force_object() creates an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18886	19088	
==>ll->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18886	19088	
==>ll->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18886	19088	
==>ll->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite sl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	663	755	
==>&::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	663	755	
==>&::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16479	16582	
==>method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16479	16582	
==>method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16479	16582	
==>method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6053	6181	
==>();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6053	6181	
==>();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6053	6181	
==>();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	158	268	
==>Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	151	257	
==>Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	145	251	
==>Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	151	257	
==>Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	145	251	
==>Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $para <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3829	3949	
==>E} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8684	8783	
==>[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	417	516	
==>[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8684	8783	
==>[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8684	8783	
==>[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1012	1114	
==>.FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1012	1114	
==>.FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1012	1114	
==>.FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9806	9927	
==>insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11955	12054	
==>eld name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value ar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12387	12486	
==>eld name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value ar <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11955	12054	
==>eld name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value ar <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12387	12486	
==>eld name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7161	7267	
==>ype: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7161	7267	
==>ype: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7161	7267	
==>ype: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37524	37616	
==>ter
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37524	37616	
==>ter
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4496	4600	
==>$todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4554	4658	
==>$todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5648	5743	
==>EATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, poss <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5648	5743	
==>EATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, poss <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5648	5743	
==>EATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, poss <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47655	47848	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35515	35701	
==>ams->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6720	6900	
==>ams->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23245	23371	
==>?{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19666	19792	
==>?{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1754	1878	
==>y "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1754	1878	
==>y "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	544	647	
==>, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	544	647	
==>, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	544	647	
==>, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the m <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6639	6736	
==>t::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6639	6736	
==>t::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8836	8933	
==>t::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34018	34113	
==>ram or its libraries.
When translating a message, a match in found in the most preferred languag <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34018	34113	
==>ram or its libraries.
When translating a message, a match in found in the most preferred languag <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1056	1190	
==>defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1056	1190	
==>defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	456	560	
==>$item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fix <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	456	560	
==>$item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fix <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	456	560	
==>$item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12687	12789	
==>p0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12687	12789	
==>p0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12687	12789	
==>p0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	816	908	
==>Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	816	908	
==>Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because : <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2140	2272	
==>xtra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5: <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2140	2272	
==>xtra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2422	2530	
==>btitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2422	2530	
==>btitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2769	2877	
==>btitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5363	5506	
==>less ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5779	5922	
==>less ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5375	5518	
==>less ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5791	5934	
==>less ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n} <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9353	9481	
==>res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


=item r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9920	10064	
==>on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6261	6405	
==>on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7110	7254	
==>on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_] <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	432	553	
==>open my $fh, "$Metactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	11	114	
==>::Repository::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13283	13382	
==>lass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13283	13382	
==>lass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13283	13382	
==>lass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $cl <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5765	5861	
==>er;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforwa <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5765	5861	
==>er;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforwa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3098	3287	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3098	3287	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3098	3287	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4365	4485	
==>infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4365	4485	
==>infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pa <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4888	5002	
==>ils based on the last test line seen.  C<$pass> is
            #true if it was considered to be a passed test.  C<% <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3609	3713	
==>channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3609	3713	
==>channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channel <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	202	297	
==>y packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	202	297	
==>y packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2108	2202	
==>ect.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2197	2291	
==>ect.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21801	21892	
==>Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21801	21892	
==>Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21801	21892	
==>Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15998	16137	
==>_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15998	16137	
==>_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15998	16137	
==>_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2948	3060	
==>ad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2948	3060	
==>ad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3093	3202	
==>S:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3093	3202	
==>S:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3093	3202	
==>S:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	403	513	
==>~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node objec <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	894	1004	
==>~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node objec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	403	513	
==>~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node objec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	894	1004	
==>~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node objec <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3061	3159	
==>more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $compiled = $r->compile($program) <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	14770	14895	
==>or my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_down(_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24073	24172	
==>t of
  this rule is to avoid loops between a client automatically sending something
  in response to <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22846	22945	
==>t of
  this rule is to avoid loops between a client automatically sending something
  in response to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24073	24172	
==>t of
  this rule is to avoid loops between a client automatically sending something
  in response to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22846	22945	
==>t of
  this rule is to avoid loops between a client automatically sending something
  in response to <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6160	6263	
==>tly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6160	6263	
==>tly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2439	2537	
==>TCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2439	2537	
==>TCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2439	2537	
==>TCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	526	629	
==>ds shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	526	629	
==>ds shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	526	629	
==>ds shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new metho <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4671	4766	
==>AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4671	4766	
==>AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4635	4764	
==>rac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4635	4764	
==>rac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	345	449	
==>\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	345	449	
==>\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	345	449	
==>\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25181	25319	
==>}
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25460	25598	
==>}
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13684	13808	
==>y->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13684	13808	
==>y->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13684	13808	
==>y->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2367	2465	
==>= @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2367	2465	
==>= @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2367	2465	
==>= @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	127	224	
==>er_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     re <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	127	224	
==>er_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     re <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10733	10869	
==>ntity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6668	6804	
==>lice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10733	10869	
==>ntity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6668	6804	
==>lice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6668	6804	
==>lice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	826	921	
==>ent, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	826	921	
==>ent, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14350	14442	
==>) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14350	14442	
==>) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14350	14442	
==>) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6 <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1351	1452	
==>ngs, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the ta <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1351	1452	
==>ngs, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1573	1668	
==>shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1573	1668	
==>shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1573	1668	
==>shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2360	2463	
==>lation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Exa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2908	3011	
==>lation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39816	39913	
==>$ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Co <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39816	39913	
==>$ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Co <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39816	39913	
==>$ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	131	236	
==>use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	126	226	
==>use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	120	220	
==>use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	126	226	
==>use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	120	220	
==>use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13538	13670	
==>ubstr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3679	3799	
==>ubstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3679	3799	
==>ubstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3679	3799	
==>ubstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	310	414	
==>sed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args->is_empty == <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	472	576	
==>rom}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	472	576	
==>rom}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1865	1961	
==>er(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Div <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1865	1961	
==>er(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Div <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1865	1961	
==>er(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Div <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8676	8802	
==>\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8676	8802	
==>\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8676	8802	
==>\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1557	1663	
==>C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $cl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1557	1663	
==>C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $cl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4322	4448	
==>d space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initia <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4322	4448	
==>d space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initia <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	59	162	
==>ntation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now impl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	59	162	
==>ntation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now impl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	59	162	
==>ntation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now impl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4316	4449	
==>tion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4316	4449	
==>tion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4316	4449	
==>tion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	39	126	
==>me options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CA <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	97	184	
==>me options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12191	12328	
==>END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12191	12328	
==>END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3113	3227	
==>ram ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3113	3227	
==>ram ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3113	3227	
==>ram ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2858	2967	
==>()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2916	3025	
==>()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3070	3171	
==>le->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3070	3171	
==>le->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3070	3171	
==>le->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9752	9904	
==>) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9752	9904	
==>) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9752	9904	
==>) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2686	2793	
==>P_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2686	2793	
==>P_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13530	13663	
==>ined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13530	13663	
==>ined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13530	13663	
==>ined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'S <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	328	430	
==>various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currentl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	328	430	
==>various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currentl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1651	1751	
==>onstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1651	1751	
==>onstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1651	1751	
==>onstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1520	1616	
==>ocedural interface is good enough for many purposes.  
Although the interface is said to be proce <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1520	1616	
==>ocedural interface is good enough for many purposes.  
Although the interface is said to be proce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1614	1722	
==>nly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1614	1722	
==>nly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1614	1722	
==>nly,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	610	705	
==>ch installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	610	705	
==>ch installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the cha <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6609	6751	
==>$match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10816	10958	
==>$match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7893	8027	
==>$match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6395	6529	
==>$match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7893	8027	
==>$match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5608	5722	
==>tform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5608	5722	
==>tform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9696	9793	
==>sses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::He <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9696	9793	
==>sses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::He <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	444	540	
==>this file need to have the
`is primitive` trait.

Please also declare whether the function can be <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6916	7017	
==>noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	14	114	
==>ass Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	14	114	
==>ass Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cip <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12006	12098	
==>tem C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12006	12098	
==>tem C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document o <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1407	1689	
==>line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $bu <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1407	1689	
==>line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18061	18168	
==>e::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "rev <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18061	18168	
==>e::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "rev <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18061	18168	
==>e::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "rev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	848	1007	
==>s);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	848	1007	
==>s);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	848	1007	
==>s);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15655	15747	
==>ter which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unm <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15655	15747	
==>ter which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	727	830	
==>ift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTION

Provides runtime ro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3248	3348	
==>s>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2835	2928	
==>t2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4704	4797	
==>t2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2835	2928	
==>t2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4704	4797	
==>t2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1652	1802	
==>elf.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefin <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1652	1802	
==>elf.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6199	6336	
==>ub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6199	6336	
==>ub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6199	6336	
==>ub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->na <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4607	4756	
==>st;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4607	4756	
==>st;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4607	4756	
==>st;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10061	10175	
==>connect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10061	10175	
==>connect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $h <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5010	5193	
==>(symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6772	6955	
==>(symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1276	1389	
==>t; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1276	1389	
==>t; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1276	1389	
==>t; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9359	9463	
==>() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.ho <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9359	9463	
==>() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.ho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1092	1196	
==>ircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1092	1196	
==>ircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1092	1196	
==>ircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1078	1172	
==>.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1078	1172	
==>.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2470	2667	
==>ule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2717	2914	
==>ule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6994	7118	
==>rom_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6994	7118	
==>rom_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6994	7118	
==>rom_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	536	650	
==>hod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	536	650	
==>hod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	536	650	
==>hod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for t <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3977	4076	
==>:WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date obj <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3977	4076	
==>:WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date obj <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	225	364	
==>llback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instan <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	225	364	
==>llback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2607	2727	
==>err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2607	2727	
==>err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2607	2727	
==>err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6151	6285	
==>o it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5954	6080	
==>o it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4172	4274	
==>f.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4172	4274	
==>f.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4172	4274	
==>f.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37291	37406	
==>} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to the <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	20290	20394	
==>ries
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2199	2278	
==>ix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2199	2278	
==>ix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2199	2278	
==>ix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_cont <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8893	8998	
==>est case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8893	8998	
==>est case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3062	3160	
==>_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3062	3160	
==>_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3062	3160	
==>_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class') <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50284	50402	
==>ty'), $e->get('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:author <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	790	884	
==>:Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Comp <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	982	1076	
==>:Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Comp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	790	884	
==>:Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Comp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	982	1076	
==>:Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2859	2967	
==>s_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2859	2967	
==>s_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2859	2967	
==>s_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_def <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	72	162	
==>r ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program prot <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	72	162	
==>r ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program prot <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2732	2831	
==>rn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple == <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26241	26340	
==>an sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6209	6308	
==>rn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple == <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5139	5238	
==>rn $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple == <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26241	26340	
==>an sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15108	15247	
==>f = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15108	15247	
==>f = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15108	15247	
==>f = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shift <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9598	9704	
==>of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9598	9704	
==>of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1275	1385	
==>n("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($fil <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1242	1352	
==>n("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4154	4251	
==> to it so that you can refer to it
    #   > inside, but that name is not visible to bind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4154	4251	
==> to it so that you can refer to it
    #   > inside, but that name is not visible to bind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4154	4251	
==> to it so that you can refer to it
    #   > inside, but that name is not visible to bind <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4835	4951	
==>? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bareword} eq 'class' ? ';use Moose' : '' ) . <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24758	24855	
==>n of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you po <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23522	23619	
==>n of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you po <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24758	24855	
==>n of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you po <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23522	23619	
==>n of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you po <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2798	2979	
==>eturns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6275	6456	
==>eturns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1805	1933	
==>ds.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1805	1933	
==>ds.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1805	1933	
==>ds.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14906	15063	
==>}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15185	15342	
==>}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	866	1009	
==>$i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	866	1009	
==>$i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	866	1009	
==>$i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2778	2876	
==>ge, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2778	2876	
==>ge, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6287	6379	
==>port$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6287	6379	
==>port$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6287	6379	
==>port$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2676	2780	
==>.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2676	2780	
==>.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3958	4053	
==>nt
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3958	4053	
==>nt
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3958	4053	
==>nt
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	856	952	
==>b {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	856	952	
==>b {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	856	952	
==>b {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::Ap <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6801	6902	
==>$v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7173	7274	
==>$v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7472	7573	
==>$v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13201	13295	
==>ory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<E <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13201	13295	
==>ory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<E <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3003	3120	
==>f $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_sing <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3003	3120	
==>f $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_sing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3079	3178	
==>ave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3079	3178	
==>ave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3079	3178	
==>ave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2988	3130	
==>0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           jo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2988	3130	
==>0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           jo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9476	9618	
==>0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           jo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8819	8950	
==>",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8815	8946	
==>",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1779	1904	
==>obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1779	1904	
==>obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1779	1904	
==>obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4704	4841	
==>ast_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% si <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4704	4841	
==>ast_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% si <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6049	6150	
==>ould of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6049	6150	
==>ould of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6049	6150	
==>ould of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functio <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6313	6490	
==>trict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9790	9967	
==>trict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4021	4127	
==>s->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4021	4127	
==>s->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4021	4127	
==>s->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lval <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21088	21202	
==>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17509	17623	
==>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2231	2326	
==>);

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2231	2326	
==>);

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2231	2326	
==>);

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	773	885	
==>..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	773	885	
==>..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	773	885	
==>..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5458	5553	
==>tor, but there may be situations in which explicitly zeroizing the 
cipher object would be desir <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5458	5553	
==>tor, but there may be situations in which explicitly zeroizing the 
cipher object would be desir <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1986	2080	
==>l::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1986	2080	
==>l::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1058	1148	
==>ub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1058	1148	
==>ub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1058	1148	
==>ub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10919	11069	
==>>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10919	11069	
==>>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10919	11069	
==>>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems}, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14151	14299	
==>ch ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14430	14578	
==>ch ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	984	1086	
==>hen ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            w <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	984	1086	
==>hen ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1574	1671	
==>v() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1574	1671	
==>v() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1574	1671	
==>v() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	335	472	
==>\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	335	472	
==>\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	335	472	
==>\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3913	4015	
==>ndard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3913	4015	
==>ndard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	10	115	
==>/perl

package Blondie::ADTs;

use strict;
use warnings;

{
	package Blondie::Unit;

	sub new {
		my $clas <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24210	24305	
==>cally used by automatons
  (clients with either an AI or other interactive program controlling t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22983	23078	
==>cally used by automatons
  (clients with either an AI or other interactive program controlling t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24210	24305	
==>cally used by automatons
  (clients with either an AI or other interactive program controlling t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22983	23078	
==>cally used by automatons
  (clients with either an AI or other interactive program controlling t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4052	4214	
==>D() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4052	4214	
==>D() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4052	4214	
==>D() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5612	5737	
==>36),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delt <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5612	5737	
==>36),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14555	14710	
==>listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14555	14710	
==>listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14555	14710	
==>listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # us <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6841	6996	
==>listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # us <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5345	5500	
==>listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1726	1849	
==>ion string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2054	2175	
==>ion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1667	1788	
==>ion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2054	2175	
==>ion string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1788	1887	
==>valence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( name => $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5520	5616	
==>-Type') when you are accessing the web using this
function.  If you need that information you sho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5520	5616	
==>-Type') when you are accessing the web using this
function.  If you need that information you sho <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4009	4097	
==>est::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4009	4097	
==>est::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6206	6294	
==>est::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting t <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4574	4699	
==>nless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2316	2439	
==>nless ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1680	1781	
==>ar obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.appl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1680	1781	
==>ar obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.appl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1680	1781	
==>ar obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.appl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4883	5001	
==>}
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15919	16037	
==>}
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17407	17525	
==>}
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22090	22208	
==>}
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24535	24627	
==>esponding attribute value.

Every Relation::Example attribute has a name that is distinct fro <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	17288	17419	
==>my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conversion <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	427	521	
==>die::Backend::Perl::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14424	14513	
==>p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14424	14513	
==>p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14424	14513	
==>p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI S <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1250	1369	
==>V<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1250	1369	
==>V<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13554	13652	
==>tart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Cont <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13554	13652	
==>tart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Cont <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14889	14982	
==>sion>
    | <MultiplicativeExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22114	22233	
==>self
    self["isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cn <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	169	280	
==>'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($klass) && $klass->isa('opaque'))
        || con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1276	1382	
==>ction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1276	1382	
==>ction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1276	1382	
==>ction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6738	6854	
==>dule_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6738	6854	
==>dule_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1402	1503	
==>r->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1402	1503	
==>r->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1402	1503	
==>r->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5497	5600	
==>q normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6182	6285	
==>be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------- <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5497	5600	
==>q normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6182	6285	
==>be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6182	6285	
==>be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2158	2300	
==>\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1983	2085	
==>,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($te <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1983	2085	
==>,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($te <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1983	2085	
==>,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($te <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3665	3759	
==>c 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_func <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13236	13373	
==>" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9422	9559	
==>" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10258	10395	
==>" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	200	296	
==>tr $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool:: <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	200	296	
==>tr $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool:: <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3039	3151	
==>($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.pars <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3039	3151	
==>($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.pars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12828	12938	
==>ethods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primiti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12828	12938	
==>ethods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primiti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12828	12938	
==>ethods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primiti <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3703	3820	
==>{
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5605	5722	
==>{
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	337	443	
==>map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	337	443	
==>map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	337	443	
==>map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_st <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13050	13141	
==>w set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9774	9865	
==>w set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13050	13141	
==>w set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9774	9865	
==>w set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4692	4779	
==>p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11498	11642	
==>marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possib <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11498	11642	
==>marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4762	4859	
==>$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4762	4859	
==>$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4762	4859	
==>$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3261	3362	
==>m{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3261	3362	
==>m{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3261	3362	
==>m{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2210	2305	
==>Different types of nodes in a Perldoc DOM tree have different properties,
you should see the sub <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2210	2305	
==>Different types of nodes in a Perldoc DOM tree have different properties,
you should see the sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3092	3203	
==>p @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3092	3203	
==>p @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3092	3203	
==>p @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  " <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1568	1669	
==>ort {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1626	1727	
==>ort {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10642	10748	
==>-----------------------------

    method add_method;
    method get_method;
    method has_method;
    met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10642	10748	
==>-----------------------------

    method add_method;
    method get_method;
    method has_method;
    met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10642	10748	
==>-----------------------------

    method add_method;
    method get_method;
    method has_method;
    met <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	346	436	
==>ist methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List ho <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	346	436	
==>ist methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List ho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17842	17953	
==>onfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17842	17953	
==>onfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17842	17953	
==>onfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6198	6306	
==>equent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The wor <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6198	6306	
==>equent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The wor <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8994	9106	
==>_char => "\0", "\\0[0]") if $cc;
    return $S->object(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1173	1280	
==>od duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	915	1022	
==>od duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1173	1280	
==>od duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	915	1022	
==>od duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	18610	18736	
==>=> comb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18223	18320	
==>want to use the same external resources, such as a repository file
on disk, it is expected that th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18223	18320	
==>want to use the same external resources, such as a repository file
on disk, it is expected that th <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6786	6881	
==>in <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module w <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6786	6881	
==>in <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module w <==
5	/Users/nnunley/pugs/util/func_refact.pl	1165	1277	
==>. scalar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\%ccset);
	#while ( <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	235	345	
==>line'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { % <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	235	345	
==>line'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { % <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	235	345	
==>line'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { % <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	235	345	
==>line'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { % <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3145	3251	
==>ity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3145	3251	
==>ity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3145	3251	
==>ity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unle <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5174	5270	
==>method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5174	5270	
==>method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5480	5585	
==>ntiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::At <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5480	5585	
==>ntiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::At <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5480	5585	
==>ntiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::At <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8822	8913	
==>{ Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2647	2738	
==>{ Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2609	2756	
==>ss $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2509	2651	
==>ss $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	115	214	
==>oWarnings;

use Blondie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1105	1201	
==>whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile base <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1105	1201	
==>whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile base <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13898	14003	
==>ile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3388	3491	
==>g "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3388	3491	
==>g "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick. <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1625	1725	
==>t is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.enci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1625	1725	
==>t is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.enci <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3918	4029	
==>urusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3918	4029	
==>urusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23541	23650	
==>p2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23541	23650	
==>p2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23541	23650	
==>p2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $q <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4582	4703	
==>nfix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4582	4703	
==>nfix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3306	3421	
==>art};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3306	3421	
==>art};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3306	3421	
==>art};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9553	9739	
==>";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15097	15283	
==>";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9553	9739	
==>";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15091	15277	
==>";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	462	597	
==>y decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  package_pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21186	21280	
==>ur
module distribtution do not need to have the compilers installed
themselves. So you don't ne <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21186	21280	
==>ur
module distribtution do not need to have the compilers installed
themselves. So you don't ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8660	8756	
==>1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8660	8756	
==>1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8660	8756	
==>1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8183	8271	
==>y @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8183	8271	
==>y @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1903	2101	
==>ch

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2325	2516	
==>ch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1841	2032	
==>ch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2325	2516	
==>ch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = <==
5	/Users/nnunley/pugs/util/addauthors.pl	502	617	
==>{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $au <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10757	10917	
==>$mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        m <==
5	/Users/nnunley/pugs/util/combine_tests.pl	2534	2639	
==>Add revisions which were added, not the target though
    #
    pop @revisions;
    $target->{more_revisio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3974	4070	
==>Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3974	4070	
==>Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3974	4070	
==>Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3646	3781	
==>her => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        ot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4447	4570	
==>ice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4447	4570	
==>ice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4447	4570	
==>ice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$ <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1979	2066	
==>uct  { <construct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<cap <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	508	626	
==>TML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	508	626	
==>TML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6450	6548	
==>turn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6450	6548	
==>turn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6450	6548	
==>turn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3228	3326	
==>sg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3228	3326	
==>sg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3228	3326	
==>sg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10146	10240	
==>the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10204	10298	
==>the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13553	13718	
==>{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13832	13997	
==>{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8828	8928	
==>>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viola <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8828	8928	
==>>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viola <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8828	8928	
==>>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viola <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8662	8761	
==>b not_an_array_index($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11618	11715	
==><$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8765	8862	
==><$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=hea <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11618	11715	
==><$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=hea <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8765	8862	
==><$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	877	985	
==>.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.uns <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	877	985	
==>.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.uns <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	877	985	
==>.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.uns <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20605	20702	
==>really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it li <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20605	20702	
==>really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it li <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2131	2244	
==>split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = ma <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2131	2244	
==>split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1594	1682	
==>:Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1594	1682	
==>:Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1594	1682	
==>:Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	872	1003	
==>body->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	872	1003	
==>body->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	872	1003	
==>body->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1197	1289	
==>s

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1197	1289	
==>s

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPS <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4688	4823	
==>) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4676	4811	
==>) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4384	4489	
==>$pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4384	4489	
==>$pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4384	4489	
==>$pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr << <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5797	5902	
==>++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5797	5902	
==>++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5797	5902	
==>++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15185	15279	
==>es) implement.  This interface is rigorously defined, such that there
should be no ambiguity wh <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15185	15279	
==>es) implement.  This interface is rigorously defined, such that there
should be no ambiguity wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1959	2067	
==>name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1959	2067	
==>name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1959	2067	
==>name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19672	19768	
==>ively acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PR <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19672	19768	
==>ively acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PR <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8648	8987	
==>'$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $stub <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39627	39714	
==>orts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
info <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24350	24437	
==>orts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more info <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39627	39714	
==>orts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
info <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24350	24437	
==>orts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more info <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20491	20590	
==>x1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20491	20590	
==>x1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20491	20590	
==>x1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19217	19312	
==>>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19217	19312	
==>>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the c <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1143	1263	
==>ile::Copy;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!";
        print <<".";
*** <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	826	936	
==>d returns a "rule".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copyin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1195	1300	
==>d returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	794	899	
==>d returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1195	1300	
==>d returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyin <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11373	11526	
==>g;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copyi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	404	516	
==>_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argume <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1262	1374	
==>_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argume <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	586	685	
==>ference()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a r <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	586	685	
==>ference()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3736	3875	
==>f ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5053	5192	
==>f ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3736	3875	
==>f ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5041	5180	
==>f ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5954	6041	
==>p_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) }

my $x1 = def_stmt_pr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7223	7344	
==>d extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7223	7344	
==>d extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1937	2049	
==>{
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1937	2049	
==>{
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1937	2049	
==>{
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use(" <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	766	875	
==>ay be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	766	875	
==>ay be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11101	11191	
==>and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11101	11191	
==>and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11101	11191	
==>and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10740	10856	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10740	10856	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10740	10856	
==>},
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $thi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6033	6127	
==>on when C<want> gets implemented. Currently, the headers
are returned as one long string.

=ite <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6033	6127	
==>on when C<want> gets implemented. Currently, the headers
are returned as one long string.

=ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8627	8757	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8627	8757	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8627	8757	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        }, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20155	20255	
==>ely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintai <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20155	20255	
==>ely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintai <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5639	5727	
==>%!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5639	5727	
==>%!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4475	4602	
==>? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4475	4602	
==>? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4475	4602	
==>? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2890	2989	
==>r allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2890	2989	
==>r allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2042	2187	
==>ta as well
        my $archive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2058	2173	
==>2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @dif <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4277	4392	
==>2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @dif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2058	2173	
==>2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @dif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4277	4392	
==>2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @dif <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	822	922	
==>[ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule term { <comment> | <alternation> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5926	6022	
==>infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5056	5152	
==>infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5926	6022	
==>infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5056	5152	
==>infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	192	287	
==>thod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	192	287	
==>thod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	192	287	
==>thod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20282	20375	
==>tion necessary.  This is something that end users could do,
although program package installer <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20282	20375	
==>tion necessary.  This is something that end users could do,
although program package installer <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2082	2178	
==>method not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2082	2178	
==>method not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	315	409	
==>ire YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	315	409	
==>ire YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	315	409	
==>ire YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	707	810	
==>rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	707	810	
==>rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = ev <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3715	3804	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3715	3804	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4022	4147	
==>matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4022	4147	
==>matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4022	4147	
==>matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ob <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	137	233	
==>e Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	137	233	
==>e Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use P <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6429	6585	
==>TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6487	6643	
==>TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1856	1949	
==>t::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1856	1949	
==>t::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1856	1949	
==>t::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3258	3373	
==>ake_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3258	3373	
==>ake_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3258	3373	
==>ake_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11205	11301	
==>e Document class is pure and deterministic,
such that all of its class and object methods will ea <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11205	11301	
==>e Document class is pure and deterministic,
such that all of its class and object methods will ea <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1484	1603	
==>tr is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @s <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1484	1603	
==>tr is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4897	5037	
==>lsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of tim <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4897	5037	
==>lsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of tim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1355	1452	
==>c=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1355	1452	
==>c=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1355	1452	
==>c=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      = <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	484	619	
==>( $schema->classes ) {

        class($class->name =>
              { instance =>
                { methods => { map { $_->name => $_->c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3805	3902	
==>iff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3805	3902	
==>iff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	439	528	
==>BI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	439	528	
==>BI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8561	8667	
==>TABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8561	8667	
==>TABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8561	8667	
==>TABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1892	1987	
==>sg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_ms <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1892	1987	
==>sg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_ms <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5174	5324	
==>n,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5174	5324	
==>n,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5174	5324	
==>n,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flag <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	577	674	
==>);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descripti <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	577	674	
==>);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descripti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4214	4317	
==>uld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4214	4317	
==>uld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4214	4317	
==>uld take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B< <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5980	6081	
==>"match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5992	6093	
==>"match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3198	3305	
==>val%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3198	3305	
==>val%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3198	3305	
==>val%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; " <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1265	1368	
==>!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1265	1368	
==>!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1771	1884	
==>entation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1771	1884	
==>entation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1771	1884	
==>entation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Cl <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1828	1933	
==>de;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$const <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1828	1933	
==>de;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$const <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8649	8769	
==>w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8649	8769	
==>w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $ <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	97	200	
==>hr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4;

#=Zahlen-Konte <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37266	37360	
==>s positional parameter
$module_name (a string) and checks whether or not it has already been
lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37266	37360	
==>s positional parameter
$module_name (a string) and checks whether or not it has already been
lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	138	254	
==>ect);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	138	254	
==>ect);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	138	254	
==>ect);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14926	15029	
==>X_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9126	9229	
==>X_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31055	31177	
==>>new('_make_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28186	28289	
==>n unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28465	28568	
==>n unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21020	21110	
==>isting (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, T <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21020	21110	
==>isting (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, T <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5291	5410	
==>T +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5291	5410	
==>T +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1724	1830	
==>d {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2159	2265	
==>d {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2593	2699	
==>d {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18977	19075	
==>l world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
le <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18977	19075	
==>l world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3773	3862	
==>ransitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3773	3862	
==>ransitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3773	3862	
==>ransitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5875	6076	
==>line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod:: <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5875	6076	
==>line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3236	3435	
==>line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod:: <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3236	3435	
==>line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod:: <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2984	3089	
==>t to modify the kernel used, you may want to use the
      configuration at
      http://m19s28.vlinux.de/ <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	218	354	
==>N);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    } <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	213	349	
==>N);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3252	3350	
==>om src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3252	3350	
==>om src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3252	3350	
==>om src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt us <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	270	395	
==>d',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	270	395	
==>d',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	33	130	
==>warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	33	130	
==>warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	33	130	
==>warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23212	23327	
==>warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19633	19748	
==>warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3792	3891	
==>e {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3792	3891	
==>e {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3792	3891	
==>e {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.ar <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9690	9805	
==>r{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9690	9805	
==>r{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1040	1149	
==>DERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOL <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5833	5931	
==>TION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5833	5931	
==>TION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3667	3817	
==>h;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3807	3957	
==>h;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2408	2500	
==>self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2408	2500	
==>self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2408	2500	
==>self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20779	20894	
==>tr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17200	17315	
==>tr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2898	3006	
==>%param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2898	3006	
==>%param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2898	3006	
==>%param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1273	1474	
==>re => \$pool_rel,
            },
            index => {
                store => \$index
            },
            index_file => {
                store => \$index_file
            },
            packa <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7194	7297	
==>line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print "can't run $file. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5473	5569	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccept <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5473	5569	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccept <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5473	5569	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccept <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1257	1380	
==>' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementControl->parse( $match, { p => 1 } );
            last <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19087	19199	
==>_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !gre <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20445	20557	
==>_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !gre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4517	4618	
==>We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4517	4618	
==>We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6656	6764	
==>{&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7664	7772	
==>{&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11079	11206	
==>e_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2500	2604	
==>key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2500	2604	
==>key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2500	2604	
==>key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class-> <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14402	14500	
==>lst },
  using  => sub { open my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10611	10719	
==>n't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string]) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10611	10719	
==>n't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string]) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2208	2308	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2208	2308	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2208	2308	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2656	2760	
==>pand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2656	2760	
==>pand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2656	2760	
==>pand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7128	7221	
==>any modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' dir <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7128	7221	
==>any modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12284	12442	
==>[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12284	12442	
==>[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12284	12442	
==>[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instan <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21343	21437	
==>alue
is the corresponding attribute value.

Every Relation attribute has a name that is distinc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25895	25989	
==>alue
is the corresponding attribute value.

Every Relation attribute has a name that is distinc <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13623	13752	
==>ght' );

        if( defined $extra ) {
            my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10276	10370	
==>et.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8169	8263	
==>et.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10276	10370	
==>et.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8169	8263	
==>et.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6845	6948	
==>m => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6845	6948	
==>m => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6845	6948	
==>m => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1338	1434	
==>->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1338	1434	
==>->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8768	8860	
==>sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2593	2685	
==>sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	629	713	
==>CH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	629	713	
==>CH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	629	713	
==>CH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1388	1502	
==>ername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timest <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3668	3782	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1388	1502	
==>ername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timest <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3668	3782	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3668	3782	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1550	1649	
==>piler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4885	4980	
==>piler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	572	667	
==>piler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5025	5120	
==>piler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	572	667	
==>piler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7549	7706	
==>d $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7549	7706	
==>d $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7549	7706	
==>d $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOL <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14384	14484	
==>ith a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14442	14542	
==>ith a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1760	1896	
==>b)/o for 1..2000},
});

}

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38258	38350	
==>ple $other!) returns Relation::Example>

This method is a generic relational operator that re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2000	2085	
==>ule->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2000	2085	
==>ule->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2000	2085	
==>ule->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6593	6765	
==>0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6593	6765	
==>0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labe <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5699	5877	
==>t;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $si <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4199	4377	
==>t;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5633	5748	
==>$new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5633	5748	
==>$new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5633	5748	
==>$new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	747	856	
==>}
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	747	856	
==>}
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	747	856	
==>}
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30286	30378	
==>ndard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34838	34930	
==>ndard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3713	3828	
==>nexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4800	4897	
==>IPTION

This module is meant for people who want a simplified view of the
libwww-perl library.  It <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4800	4897	
==>IPTION

This module is meant for people who want a simplified view of the
libwww-perl library.  It <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21851	21944	
==>main program, Locale::KeyedText can be given input that says what resource
files it should use <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21851	21944	
==>main program, Locale::KeyedText can be given input that says what resource
files it should use <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4649	4756	
==>ath}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%a <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2389	2495	
==>ath}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7371	7472	
==>sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7371	7472	
==>sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7371	7472	
==>sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4627	4740	
==>@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4627	4740	
==>@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " s <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	668	776	
==>:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't w <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	668	776	
==>:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't w <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	159	264	
==>SION = '0.01';

use strict;
use Config ();
use File::Spec ();
use ExtUtils::MakeMaker ();

# check if we c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6677	6782	
==>tters for $() and such

### getters need to know what you want (str, bool, hash, array, match)



- compil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6453	6555	
==>tters for $() and such
### getters need to know what you want (str, bool, hash, array, match)

- compil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19537	19631	
==>pdate is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl exte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19537	19631	
==>pdate is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl exte <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10480	10568	
==>, paramName=>$paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NODE M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4970	5113	
==>$_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4970	5113	
==>$_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4970	5113	
==>$_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name = <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1507	1639	
==>er::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that ty <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1507	1639	
==>er::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2412	2510	
==>>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2412	2510	
==>>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2412	2510	
==>>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!") <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17325	17436	
==>plit(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11940	12050	
==>plit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11940	12050	
==>plit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11940	12050	
==>plit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14284	14381	
==>aces on \%s{}

=item RPe_RBRACE (-20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21)

Refer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1124	1244	
==>te($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1124	1244	
==>te($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1124	1244	
==>te($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13460	13557	
==>another file or test which must be
made to pass before this test can pass (or before an implementa <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13518	13615	
==>another file or test which must be
made to pass before this test can pass (or before an implementa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10073	10234	
==>file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't loc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10073	10234	
==>file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20373	20466	
==>0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20373	20466	
==>0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20373	20466	
==>0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1722	1869	
==>:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1722	1869	
==>:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6841	6947	
==>:make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6841	6947	
==>:make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6841	6947	
==>:make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	794	947	
==>LF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	794	947	
==>LF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	794	947	
==>LF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13262	13357	
==>ests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13320	13415	
==>ests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	40	134	
==>.key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	40	134	
==>.key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	40	134	
==>.key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4117	4196	
==>1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4117	4196	
==>1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13232	13391	
==>-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13226	13385	
==>-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2001	2093	
==>cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 20 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2001	2093	
==>cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 20 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2001	2093	
==>cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 20 <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	225	336	
==>se ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	225	336	
==>se ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4136	4237	
==>$self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::I <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4136	4237	
==>$self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::I <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	161	260	
==>londie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BEGIN {
    __PACKAGE__- <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	139	260	
==>ent',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	139	260	
==>ent',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	139	260	
==>ent',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	139	260	
==>ent',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27984	28082	
==>_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4703	4807	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4703	4807	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4703	4807	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3587	3679	
==>--------------------------------------

# Utility to test that "No method found" error is rai <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5489	5581	
==>--------------------------------------

# Utility to test that "No method found" error is rai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3241	3384	
==>fix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-start
                #print "checking { ... [$white <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1077	1188	
==>$duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration retu <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	819	930	
==>$duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration retu <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1077	1188	
==>$duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration retu <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	819	930	
==>$duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1150	1306	
==>(.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1150	1306	
==>(.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11088	11244	
==>'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Te <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1562	1702	
==>'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1562	1702	
==>'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5302	5438	
==>efined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5302	5438	
==>efined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5302	5438	
==>efined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4461	4590	
==>else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4461	4590	
==>else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.ma <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1278	1387	
==>Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, - <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1278	1387	
==>Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	158	260	
==>enClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# on <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	158	260	
==>enClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# on <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	158	260	
==>enClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# on <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9177	9277	
==>e_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4') <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9235	9335	
==>e_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10773	10870	
==>nboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10773	10870	
==>nboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10773	10870	
==>nboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	299	409	
==>method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get init <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	299	409	
==>method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get init <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1879	1972	
==>rray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1879	1972	
==>rray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1879	1972	
==>rray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	750	876	
==>>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimen <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	750	876	
==>>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimen <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5173	5268	
==>nal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5173	5268	
==>nal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6697	6792	
==>nal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5945	6051	
==>esting_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6003	6109	
==>esting_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	374	476	
==>ement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	374	476	
==>ement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	374	476	
==>ement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1598	1720	
==>l O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1598	1720	
==>l O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36991	37105	
==>umeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36991	37105	
==>umeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36991	37105	
==>umeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8095	8275	
==>warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8095	8275	
==>warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8095	8275	
==>warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1562	1656	
==>export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute ( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1562	1656	
==>export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute ( <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1664	1884	
==>([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $dep <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1664	1884	
==>([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $dep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3593	3690	
==>ts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3593	3690	
==>ts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3593	3690	
==>ts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3915	4014	
==>ed{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3915	4014	
==>ed{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3915	4014	
==>ed{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15221	15329	
==>nf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15221	15329	
==>nf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15221	15329	
==>nf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5952	6057	
==>ex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5952	6057	
==>ex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2458	2665	
==>:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2458	2665	
==>:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8119	8252	
==>var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8119	8252	
==>var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8119	8252	
==>var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16421	16558	
==>ray->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16421	16558	
==>ray->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16421	16558	
==>ray->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension f <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2015	2110	
==>ch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically sc <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2015	2110	
==>ch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically sc <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	990	1106	
==>ir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eva <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	957	1073	
==>ir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eva <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	595	693	
==>:Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	595	693	
==>:Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	595	693	
==>:Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6223	6374	
==>sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6223	6374	
==>sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6223	6374	
==>sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Sc <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7180	7268	
==>is a bad idea

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7180	7268	
==>is a bad idea

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9752	10011	
==>$x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1681	1821	
==>mplemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "! <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1681	1821	
==>mplemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "! <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1681	1821	
==>mplemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "! <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2276	2373	
==>iscarded.

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the intera <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13078	13206	
==>tails_<tmpl_var name=id>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summary>
                < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6378	6489	
==>_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6378	6489	
==>_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6378	6489	
==>_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6870	6961	
==>-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=bac <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6870	6961	
==>-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=bac <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2347	2469	
==>t can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2347	2469	
==>t can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29905	29997	
==>orts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34457	34549	
==>orts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33621	33713	
==>orts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	762	898	
==>ss') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	762	898	
==>ss') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	762	898	
==>ss') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16579	16677	
==>s no such header field, then the empty
string is returned.  This makes it safe to do the following: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16579	16677	
==>s no such header field, then the empty
string is returned.  This makes it safe to do the following: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2221	2317	
==>de) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2221	2317	
==>de) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2221	2317	
==>de) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3146	3240	
==>$path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3146	3240	
==>$path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6241	6364	
==>= $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6241	6364	
==>= $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1182	1287	
==>body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2056	2161	
==>body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	567	665	
==>body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8111	8288	
==>( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8111	8288	
==>( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8111	8288	
==>( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty c <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2134	2246	
==>ub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is add <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2134	2246	
==>ub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is add <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5292	5442	
==>en?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5292	5442	
==>en?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10260	10387	
==>_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10260	10387	
==>_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10260	10387	
==>_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4535	4694	
==>arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4535	4694	
==>arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4535	4694	
==>arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1285	1402	
==>99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1275	1383	
==>99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14671	14823	
==>t = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3889	3990	
==>::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.ri <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4222	4323	
==>::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.ri <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3889	3990	
==>::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.ri <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4222	4323	
==>::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.ri <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36898	37017	
==>Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1823	1939	
==>g{'_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ alternatives    => S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7603	7700	
==>ix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7603	7700	
==>ix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7603	7700	
==>ix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4978	5121	
==>q 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any', <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4978	5121	
==>q 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any', <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4978	5121	
==>q 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any', <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4118	4225	
==>:ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $tod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4176	4283	
==>:ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $tod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1940	2041	
==>nt->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedenc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1940	2041	
==>nt->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2921	3017	
==>recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2921	3017	
==>recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2921	3017	
==>recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->( <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2231	2397	
==>$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \% <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2231	2397	
==>$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8526	8688	
==>r @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cle <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8526	8688	
==>r @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cle <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8526	8688	
==>r @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9399	9502	
==>makes the roles mutator/accessor

    # -----------------------------------------------      
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9399	9502	
==>makes the roles mutator/accessor

    # -----------------------------------------------      
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9399	9502	
==>makes the roles mutator/accessor

    # -----------------------------------------------      
    # this <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15298	15393	
==>e or implement it, and so an
application written to it should behave identically no matter which <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15298	15393	
==>e or implement it, and so an
application written to it should behave identically no matter which <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20539	20633	
==>e by
compilers. After all the compilers have finished, the digest lines will
be expanded again. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8409	8503	
==>};

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive. <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20539	20633	
==>e by
compilers. After all the compilers have finished, the digest lines will
be expanded again. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8409	8503	
==>};

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8409	8503	
==>};

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6992	7116	
==>"splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice don <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6992	7116	
==>"splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice don <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6992	7116	
==>"splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice don <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	68	157	
==>ethod addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	68	157	
==>ethod addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2522	2648	
==>ies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($coo <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2522	2648	
==>ies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($coo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7006	7120	
==>sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7006	7120	
==>sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7006	7120	
==>sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2953	3359	
==>ue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variab <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2953	3359	
==>ue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variab <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2889	2996	
==>ut( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodb <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2889	2996	
==>ut( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodb <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2969	3076	
==>ut( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14643	14814	
==>my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14643	14814	
==>my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14643	14814	
==>my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $a <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4150	4264	
==>= length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws;
  }

  $initchar = substr $target, $po <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1947	2049	
==>ject(bol => $type, '^');
  });

  # sbol (beginning of line in single-line mode)
  $self->add_handler(' <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	863	981	
==>oor($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x);
 }
 &Num::ceil ::= &N <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23110	23207	
==>> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
cha <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21919	22016	
==>> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23110	23207	
==>> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21919	22016	
==>> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9132	9231	
==>y $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9132	9231	
==>y $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9132	9231	
==>y $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_a <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6019	6117	
==>rn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6019	6117	
==>rn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13827	13979	
==>);
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3944	4080	
==>);
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3944	4080	
==>);
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3944	4080	
==>);
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split( <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1689	1793	
==>t, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchOb <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1343	1452	
==>2 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAY <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1330	1432	
==>2 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAY <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1716	1815	
==>ook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_rege <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	412	507	
==>LASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More speci <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	412	507	
==>LASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More speci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	552	674	
==>reate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	552	674	
==>reate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	552	674	
==>reate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cre <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2917	3017	
==>ethod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dm <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2917	3017	
==>ethod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3476	3586	
==>meters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieabl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3476	3586	
==>meters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieabl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3476	3586	
==>meters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieabl <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7631	7736	
==>t is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7631	7736	
==>t is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3152	3258	
==>span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3152	3258	
==>span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4292	4382	
==>s::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4292	4382	
==>s::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4292	4382	
==>s::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12770	12885	
==>s;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2912	3026	
==>subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2912	3026	
==>subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2912	3026	
==>subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3633	3733	
==>e strict;

if($Regexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workar <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3582	3711	
==>it {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
} <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3582	3711	
==>it {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1778	1885	
==>ax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1778	1885	
==>ax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1778	1885	
==>ax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	566	723	
==>mented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;}, <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	537	694	
==>mented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;}, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	566	723	
==>mented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;}, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	566	723	
==>mented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;}, <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3933	4027	
==>ermTable() if ($whitespacePosition <= $position);

  expect_term_1:
  my $key = $$currentTermTa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	913	1045	
==>ction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	913	1045	
==>ction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	913	1045	
==>ction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3085	3186	
==>].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPS <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3085	3186	
==>].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPS <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16633	16739	
==>ned.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this pl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16633	16739	
==>ned.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this pl <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1091	1191	
==>0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker packages so subdirs can use <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	677	775	
==>}
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	677	775	
==>}
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4092	4199	
==>rl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4092	4199	
==>rl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4092	4199	
==>rl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11872	11991	
==>} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the te <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1287	1403	
==>_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1287	1403	
==>_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poin <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11079	11175	
==>`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is exp <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11137	11233	
==>`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is exp <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	869	977	
==>tem;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %! <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	869	977	
==>tem;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %! <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5785	5882	
==>b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5785	5882	
==>b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5785	5882	
==>b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6296	6425	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6296	6425	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6296	6425	
==>> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.retu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18643	18732	
==>type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.ne <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18643	18732	
==>type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8602	8726	
==>print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12510	12632	
==>print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12510	12632	
==>print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n" <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7280	7374	
==>I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7280	7374	
==>I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	629	796	
==>ersion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	629	796	
==>ersion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	629	796	
==>ersion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21221	21352	
==>add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17642	17773	
==>add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3040	3136	
==>t }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Av <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3040	3136	
==>t }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Av <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3040	3136	
==>t }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Av <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14263	14358	
==>oken by raising an exception (C<die>), but the caller of scan()
would have to trap the exception <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14263	14358	
==>oken by raising an exception (C<die>), but the caller of scan()
would have to trap the exception <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	345	445	
==>ne.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.d <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	345	445	
==>ne.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6640	6728	
==>($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6640	6728	
==>($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6640	6728	
==>($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5284	5391	
==>}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5284	5391	
==>}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1307	1403	
==>*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1307	1403	
==>*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1307	1403	
==>*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2232	2370	
==>e {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2232	2370	
==>e {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2232	2370	
==>e {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	862	972	
==>r $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	829	939	
==>r $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	167	267	
==>%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	167	267	
==>%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	167	267	
==>%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22089	22181	
==>om>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mess <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20970	21062	
==>om>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mess <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22089	22181	
==>om>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mess <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20970	21062	
==>om>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mess <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22601	22686	
==>i(E0),
   code_type(C,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_lowe <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	360	498	
==>ub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        m <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	360	498	
==>ub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9064	9176	
==>-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9064	9176	
==>-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9064	9176	
==>-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18782	18905	
==>chable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18782	18905	
==>chable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18782	18905	
==>chable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::A <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	589	692	
==>rue;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	589	692	
==>rue;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4294	4444	
==>y = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4294	4444	
==>y = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4294	4444	
==>y = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19534	19627	
==>t>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19534	19627	
==>t>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4054	4200	
==>/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We init <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4054	4200	
==>/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We init <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2962	3074	
==>ms );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2962	3074	
==>ms );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2962	3074	
==>ms );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2351	2472	
==>ray ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zon <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2351	2472	
==>ray ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1757	1866	
==>1
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1757	1866	
==>1
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1757	1866	
==>1
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3137	3252	
==>ttribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3137	3252	
==>ttribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3137	3252	
==>ttribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_at <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6599	6696	
==>ERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document id <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6599	6696	
==>ERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document id <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	49	147	
==>d1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
insi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	49	147	
==>d1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
insi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2762	2853	
==>onical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2762	2853	
==>onical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2762	2853	
==>onical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2235	2350	
==>$level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2235	2350	
==>$level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2235	2350	
==>$level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$na <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5484	5578	
==>ontent_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5484	5578	
==>ontent_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.heade <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7762	7881	
==>fix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13164	13258	
==>e macro, or otherwise support the
unary form C<delete %hash{$key}> in all it's forms. Below are <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2130	2209	
==>(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2130	2209	
==>(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2130	2209	
==>(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	638	744	
==>> 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	638	744	
==>> 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	638	744	
==>> 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains obj <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9538	9643	
==>w (%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17721	17823	
==>>
}
rule LogicalANDExpression :words {  # see 11.11
      <BitwiseORExpression>
    | <LogicalANDExpres <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16444	16564	
==>ur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16444	16564	
==>ur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4473	4562	
==>::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> paramet <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4473	4562	
==>::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6670	6759	
==>::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> paramet <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1121	1230	
==>6

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> < <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1121	1230	
==>6

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17268	17370	
==>hahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17268	17370	
==>hahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17268	17370	
==>hahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1120	1230	
==>extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1120	1230	
==>extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1120	1230	
==>extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18696	18793	
==>sources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS produ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18696	18793	
==>sources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS produ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40213	40307	
==>ston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute mu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40213	40307	
==>ston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4138	4231	
==>u give a name to it so that you can refer to it
    #   > inside, but that name is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4138	4231	
==>u give a name to it so that you can refer to it
    #   > inside, but that name is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4138	4231	
==>u give a name to it so that you can refer to it
    #   > inside, but that name is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	147	251	
==>er::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	147	251	
==>er::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5600	5698	
==>less defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5600	5698	
==>less defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5600	5698	
==>less defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2778	2891	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2971	3084	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18900	19032	
==>ler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15321	15453	
==>ler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3760	3863	
==>mand($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unl <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3760	3863	
==>mand($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unl <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4615	4710	
==>ssing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $stringTemp, my $tempP <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12119	12314	
==>urce_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12119	12314	
==>urce_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10978	11125	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-deref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10978	11125	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-deref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10978	11125	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-deref <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	569	696	
==>invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invo <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	569	696	
==>invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1141	1249	
==>d)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1141	1249	
==>d)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1141	1249	
==>d)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	47	136	
==>Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	47	136	
==>Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	47	136	
==>Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20069	20155	
==>trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20069	20155	
==>trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18108	18204	
==>a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mult <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18108	18204	
==>a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1319	1411	
==>ule ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1319	1411	
==>ule ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1319	1411	
==>ule ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19375	19547	
==>ss')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19375	19547	
==>ss')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19375	19547	
==>ss')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; got <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14668	14762	
==>ong header
values are not folded.

The optional $eol parameter specifies the line ending sequen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14668	14762	
==>ong header
values are not folded.

The optional $eol parameter specifies the line ending sequen <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7424	7530	
==>rep (@values ;  MatchTest $test   --> Lazy )
{
    List::grep $test, *@values;
}

# signature from S29draft <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3027	3131	
==>ep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An objec <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	298	402	
==>.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP: <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3027	3131	
==>ep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An objec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	298	402	
==>.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6921	7077	
==>'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6921	7077	
==>'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6921	7077	
==>'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unbox <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14679	14808	
==>uleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14958	15087	
==>uleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12198	12337	
==>up_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12198	12337	
==>up_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12198	12337	
==>up_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 an <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3832	3970	
==>$what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self - <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1932	2070	
==>$what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	277	381	
==>pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	277	381	
==>pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	277	381	
==>pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1532	1628	
==>LD NOT BE CHANGED to accommodate the characteristics
#  of particular regex engines.  Its structu <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4911	4998	
==>w('Array',@_)}
sub p6_Hash {p6_new('Hash',@_)}
sub p6_List {p6_new('List',@_)}
sub p6_Sc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10712	10845	
==>sh' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { : <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10712	10845	
==>sh' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { : <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10712	10845	
==>sh' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { : <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12549	12640	
==>superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=hea <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12549	12640	
==>superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9373	9609	
==>e );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9373	9609	
==>e );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9373	9609	
==>e );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7804	7949	
==>'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Defin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7804	7949	
==>'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Defin <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	702	813	
==>elf->prepare_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	3	99	
==>usr/bin/perl

package Blondie::Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28440	28533	
==>t C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32992	33085	
==>t C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32120	32213	
==>t C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3144	3283	
==>t old stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8602	8707	
==>ect;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7571	7676	
==>ect;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8602	8707	
==>ect;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7571	7676	
==>ect;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	434	550	
==>}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1160	1273	
==>}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31333	31424	
==>ich the the
Bool-returning anonymous function in the argument C<$predicate> returns
True whe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35883	35974	
==>ich the the
Bool-returning anonymous function in the argument C<$predicate> returns
True whe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35101	35192	
==>ich the the
Bool-returning anonymous function in the argument C<$predicate> returns
True whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23315	23491	
==>turn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unles <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23315	23491	
==>turn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unles <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23315	23491	
==>turn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unles <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7516	7612	
==>shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list con <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7516	7612	
==>shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5373	5478	
==>print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5373	5478	
==>print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5373	5478	
==>print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3790	3888	
==>se by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `n <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3790	3888	
==>se by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32226	32368	
==>er'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32881	33023	
==>er'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29434	29575	
==>er'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50527	50668	
==>er'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12071	12169	
==>t(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexidecim <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23901	24028	
==>efine REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* wa <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29077	29176	
==>efine REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	901	995	
==>rimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	901	995	
==>rimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	901	995	
==>rimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3046	3192	
==>d}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3046	3192	
==>d}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3046	3192	
==>d}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20919	21014	
==>r (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20919	21014	
==>r (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a p <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4259	4370	
==>ds);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4317	4428	
==>ds);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    t <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3506	3601	
==>ode as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, i <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3506	3601	
==>ode as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, i <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6679	6770	
==>r::Util::blessed($x) and Scalar::Util::blessed($y)) {
			die "baaah! expected type cannot be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1278	1378	
==>f). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1278	1378	
==>f). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1278	1378	
==>f). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4542	4637	
==>oken/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is sti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4792	4887	
==>oken/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is sti <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37055	37156	
==>'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => attri <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20071	20169	
==>iles I think) from the main program binary.  Each user
language is in a separate file, and adding a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22461	22559	
==>ns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosett <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20071	20169	
==>iles I think) from the main program binary.  Each user
language is in a separate file, and adding a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22461	22559	
==>ns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosett <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3323	3446	
==>return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3323	3446	
==>return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7630	7718	
==>lf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7630	7718	
==>lf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7630	7718	
==>lf->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_fu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7710	7855	
==>mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'tab <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7710	7855	
==>mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'tab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	119	214	
==>n Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	119	214	
==>n Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	119	214	
==>n Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::B <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7076	7177	
==>er level OO/Overload 

runtime. 



- internal rule operators



Internal rule operators share a commo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6836	6932	
==>er level OO/Overload 
runtime. 

- internal rule operators

Internal rule operators share a commo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24186	24327	
==>es'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25952	26093	
==>es'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39109	39250	
==>es'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6647	6750	
==>meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, St <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6647	6750	
==>meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2226	2366	
==>t /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2226	2366	
==>t /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2226	2366	
==>t /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Pe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2256	2372	
==>PSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2256	2372	
==>PSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21649	21744	
==>containing:

=over

=item C<line>

The original line received from the server (unmodified).

=it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20530	20625	
==>containing:

=over

=item C<line>

The original line received from the server (unmodified).

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21649	21744	
==>containing:

=over

=item C<line>

The original line received from the server (unmodified).

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20530	20625	
==>containing:

=over

=item C<line>

The original line received from the server (unmodified).

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8153	8242	
==>o->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	460	567	
==>IL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	460	567	
==>IL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	460	567	
==>IL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4590	4689	
==>y
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4590	4689	
==>y
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the ma <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13011	13122	
==>== none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16488	16599	
==>== none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15850	15961	
==>== none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        re <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	226	331	
==>urns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { % <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	226	331	
==>urns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { % <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1857	1991	
==>lf:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## - <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1857	1991	
==>lf:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15440	15550	
==>gs 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15440	15550	
==>gs 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15440	15550	
==>gs 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13808	13942	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13808	13942	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13808	13942	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9458	9550	
==>et($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9458	9550	
==>et($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2052	2318	
==>~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:pe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2052	2318	
==>~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2504	2601	
==>kTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2504	2601	
==>kTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2504	2601	
==>kTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2290	2401	
==>> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2290	2401	
==>> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2637	2748	
==>> $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32731	32825	
==>e.
The Translator class as a whole is not pure and deterministic because it
invokes user-define <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32731	32825	
==>e.
The Translator class as a whole is not pure and deterministic because it
invokes user-define <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2095	2249	
==>ule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2342	2496	
==>ule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1041	1144	
==>Name => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1041	1144	
==>Name => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1041	1144	
==>Name => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	451	557	
==>f I store the node in a variable outside of this function
      // and refer to it via the closure, then th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	451	557	
==>f I store the node in a variable outside of this function
      // and refer to it via the closure, then th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	451	557	
==>f I store the node in a variable outside of this function
      // and refer to it via the closure, then th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2909	3010	
==>k;

# this would load Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Comp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2803	2902	
==>k;
# this would load Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19842	19939	
==>and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19842	19939	
==>and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour c <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4311	4402	
==>yms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterda <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1739	1830	
==>"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4311	4402	
==>yms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterda <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1739	1830	
==>"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1739	1830	
==>"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5983	6102	
==>tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to for <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6041	6160	
==>tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	746	862	
==>{
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	746	862	
==>{
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	746	862	
==>{
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2972	3074	
==>.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2972	3074	
==>.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2972	3074	
==>.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6807	6901	
==>file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6807	6901	
==>file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14822	14918	
==>k() function.

- is_deeply

Once nested data structures are implemented, we will need an easy way <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14880	14976	
==>k() function.

- is_deeply

Once nested data structures are implemented, we will need an easy way <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7195	7282	
==>add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7195	7282	
==>add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7195	7282	
==>add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	463	569	
==>_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8730	8835	
==>_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8730	8835	
==>_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8730	8835	
==>_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30511	30603	
==>see L<Regexp::Parser/"Walking the Tree">).

=back

Objects may override these methods (as obj <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5334	5434	
==>root, whose attributes will hold all of
    # the other data structures used by the Rosetta framework <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1722	1822	
==>argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5334	5434	
==>root, whose attributes will hold all of
    # the other data structures used by the Rosetta framework <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1722	1822	
==>argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1722	1822	
==>argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cr <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	7591	7788	
==>sts,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdir $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4682	4813	
==>caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4682	4813	
==>caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4682	4813	
==>caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8276	8371	
==>hen the regex is finished being parsed, next() returns false, and will
return false if called ag <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1385	1506	
==>eturn $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pug <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1385	1506	
==>eturn $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	221	323	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	221	323	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	221	323	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20936	21132	
==>stant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21215	21411	
==>stant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5718	5818	
==>= shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5718	5818	
==>= shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5718	5818	
==>= shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shif <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2630	2896	
==>\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_el <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2630	2896	
==>\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_el <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9114	9231	
==>dy => $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
}

my $x = 15;
my $pr <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10981	11096	
==>or::arrow->new(
			type::operator::pair->new( $a, $b ),
			$a,
		);
	},
	# (a x b) -> b
	snd => do {
		my $a = type: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	145	246	
==>sh" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub register <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7656	7759	
==>unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7656	7759	
==>unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7656	7759	
==>unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1079	1181	
==>my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    retu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1079	1181	
==>my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17203	17364	
==>mmar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17482	17643	
==>mmar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7391	7485	
==>my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7391	7485	
==>my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7391	7485	
==>my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $sel <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2611	2738	
==>o_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2611	2738	
==>o_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2519	2612	
==>(::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2519	2612	
==>(::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2519	2612	
==>(::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	191	307	
==>@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	191	307	
==>@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	191	307	
==>@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12852	12946	
==>- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Cod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12910	13004	
==>- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	40	139	
==>Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	40	139	
==>Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	40	139	
==>Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15645	15739	
==>ative French or Chinese speaker often prefers to
communicate in those languages.  Or, when view <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15645	15739	
==>ative French or Chinese speaker often prefers to
communicate in those languages.  Or, when view <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34314	34444	
==>ol->new(':canonical')));
                $e->create('$next' => $e->get('$dispatcher')->do());             
                block->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7736	7847	
==>args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7736	7847	
==>args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7736	7847	
==>args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      P <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10060	10156	
==>:Util::FilterNodeDefs;
our($package_name,$method_name);
sub import {
    my($pkg,$name)=@_;
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2442	2579	
==>ce
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2442	2579	
==>ce
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2442	2579	
==>ce
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "li <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4011	4128	
==>= $rules[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6561	6662	
==>\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	next if <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7516	7610	
==>_element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7516	7610	
==>_element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22824	22957	
==>uleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::altern <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23103	23236	
==>uleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::altern <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7614	7710	
==>JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7614	7710	
==>JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7614	7710	
==>JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10013	10128	
==>000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10013	10128	
==>000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10013	10128	
==>000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23406	23497	
==>password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23406	23497	
==>password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>( <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2260	2380	
==>ue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUT <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2260	2380	
==>ue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4665	4758	
==>sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4665	4758	
==>sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4665	4758	
==>sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19497	19598	
==>is class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24049	24150	
==>is class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	964	1062	
==>lass now actually inherits a number of new attributes from various sources
# and we need to now cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	964	1062	
==>lass now actually inherits a number of new attributes from various sources
# and we need to now cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	964	1062	
==>lass now actually inherits a number of new attributes from various sources
# and we need to now cre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7618	7753	
==>ts";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7618	7753	
==>ts";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7618	7753	
==>ts";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14325	14459	
==>g server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any tra <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14325	14459	
==>g server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any tra <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18260	18387	
==>sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21519	21646	
==>sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41525	41652	
==>sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44426	44553	
==>sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%param <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24107	24220	
==>xCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->next <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20528	20641	
==>xCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->next <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	748	860	
==>, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	748	860	
==>, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	748	860	
==>, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5714	5878	
==>def;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5714	5878	
==>def;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5714	5878	
==>def;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1455	1565	
==>my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1422	1532	
==>my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8870	9028	
==>n $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8870	9028	
==>n $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8870	9028	
==>n $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'u <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2975	3079	
==>my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available ) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3439	3543	
==>my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16940	17063	
==>@statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17219	17342	
==>@statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10787	10895	
==>@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10787	10895	
==>@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10787	10895	
==>@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7154	7283	
==>/ this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7154	7283	
==>/ this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7154	7283	
==>/ this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4772	4868	
==>er for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4912	5008	
==>er for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4852	5002	
==>open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4852	5002	
==>open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2324	2446	
==>>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2324	2446	
==>>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2324	2446	
==>>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3921	4051	
==>rn { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Gram <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4186	4288	
==>tr $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4186	4288	
==>tr $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4143	4243	
==>tr $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4143	4243	
==>tr $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4250	4363	
==>t1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.diff <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4250	4363	
==>t1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.diff <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6696	6808	
==>[]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6696	6808	
==>[]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6696	6808	
==>[]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5372	5474	
==>xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5372	5474	
==>xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5372	5474	
==>xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fro <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	646	744	
==>list code from lib.pm because I am hoping that perl6
# and the new module functionality will not ne <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	646	744	
==>list code from lib.pm because I am hoping that perl6
# and the new module functionality will not ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2270	2411	
==>rs;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized(). <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2270	2411	
==>rs;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized(). <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9587	9691	
==>o gather all the roles to be 'resolved'
    # -----------------------------------------------      
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9587	9691	
==>o gather all the roles to be 'resolved'
    # -----------------------------------------------      
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9587	9691	
==>o gather all the roles to be 'resolved'
    # -----------------------------------------------      
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3272	3381	
==>a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested feat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3456	3565	
==>a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested feat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14607	14703	
==>od_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14607	14703	
==>od_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14607	14703	
==>od_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Cl <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1011	1117	
==>}   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1011	1117	
==>}   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2630	2733	
==>d: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=he <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2630	2733	
==>d: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2710	2813	
==>d: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=he <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5547	5665	
==>end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5547	5665	
==>end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	940	1053	
==>PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	940	1053	
==>PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	940	1053	
==>PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "N <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4696	4857	
==>open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5355	5516	
==>open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4696	4857	
==>open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5355	5516	
==>open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.s <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9673	9781	
==>os = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9647	9806	
==>lf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9647	9806	
==>lf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9647	9806	
==>lf->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6432	6525	
==>sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.ne <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6432	6525	
==>sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14009	14108	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14009	14108	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14009	14108	
==>_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1310	1402	
==>::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Per <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1310	1402	
==>::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Per <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3724	3852	
==>> \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8120	8240	
==>> \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3141	3247	
==>ere ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3141	3247	
==>ere ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3141	3247	
==>ere ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2542	2645	
==>formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2542	2645	
==>formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2889	2992	
==>formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3056	3150	
==>C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List conte <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3056	3150	
==>C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List conte <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9908	10079	
==>ilder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              number <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	476	639	
==>ilder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	476	639	
==>ilder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	110	213	
==>ing stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

o <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	110	213	
==>ing stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

o <==
5	/Users/nnunley/pugs/misc/S29_round.pl	4445	4574	
==>x ) {
    my $x_round;

    # round floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36414	36511	
==>$length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36414	36511	
==>$length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36414	36511	
==>$length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @lis <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2324	2415	
==>et_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1114	1213	
==>se PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1114	1213	
==>se PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1114	1213	
==>se PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11562	11656	
==>er

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collecti <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11562	11656	
==>er

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collecti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10246	10349	
==>oro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10246	10349	
==>oro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29072	29167	
==>rict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29072	29167	
==>rict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29072	29167	
==>rict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	96	211	
==>f, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	96	211	
==>f, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	96	211	
==>f, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3963	4067	
==>y $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3963	4067	
==>y $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	141	242	
==>al).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	141	242	
==>al).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	141	242	
==>al).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9046	9141	
==>ode; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documen <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9046	9141	
==>ode; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documen <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13330	13440	
==>set of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16807	16917	
==>set of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16169	16279	
==>set of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15502	15612	
==>dler;
    $handler->($x);
}

sub p6_as_perl5_whatever {
    my($x)=@_;
    return $x if !p6_is_perl6_object($x) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1991	2077	
==>ler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<key>:=(<term1> <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4764	4889	
==>ildren[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4764	4889	
==>ildren[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10515	10615	
==>$name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10515	10615	
==>$name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10515	10615	
==>$name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24028	24160	
==>tempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24028	24160	
==>tempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24028	24160	
==>tempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7318	7419	
==>et {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.diff <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7318	7419	
==>et {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.diff <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1638	1794	
==>. 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar references
    # $source =~ s/\$gram <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13876	13987	
==>$v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self- <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1356	1467	
==>$v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10237	10348	
==>[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10231	10342	
==>[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1017	1142	
==>nflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Reques <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1017	1142	
==>nflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Reques <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1975	2075	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1975	2075	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1975	2075	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	172	269	
==>../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumpe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	172	269	
==>../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumpe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	172	269	
==>../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumpe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15687	15777	
==>onsidered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15687	15777	
==>onsidered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9769	9868	
==>owercase -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	674	781	
==>in::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'p <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	674	781	
==>in::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'p <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1954	2060	
==>(blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1636	1738	
==>(blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2284	2386	
==>(blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12573	12674	
==>CROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# y <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12573	12674	
==>CROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# y <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12573	12674	
==>CROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# y <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16204	16291	
==><nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16262	16349	
==><nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14189	14340	
==>, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14189	14340	
==>, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14189	14340	
==>, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ". <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	167	282	
==>e Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	167	282	
==>e Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17677	17798	
==>s

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17677	17798	
==>s

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1884	1987	
==>Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1884	1987	
==>Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1884	1987	
==>Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25344	25441	
==>b.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it und <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24108	24205	
==>b.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it und <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25344	25441	
==>b.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it und <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24108	24205	
==>b.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it und <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28294	28389	
==>this Relation::Example's body.

=item C<size () returns Int>

This method returns a count of thi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3160	3329	
==>]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3059	3223	
==>]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1808	1912	
==>%seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1808	1912	
==>%seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1808	1912	
==>%seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12013	12123	
==>st traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = tim <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12013	12123	
==>st traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = tim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	542	638	
==>var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	542	638	
==>var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	542	638	
==>var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7144	7251	
==>e {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7156	7263	
==>e {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2062	2165	
==>e, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2062	2165	
==>e, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2062	2165	
==>e, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2835	2951	
==>lf, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2835	2951	
==>lf, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2835	2951	
==>lf, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, I <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25941	26029	
==>pe::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary-> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26184	26272	
==>pe::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9726	9842	
==>y...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9726	9842	
==>y...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9726	9842	
==>y...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1564	1671	
==>ture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1564	1671	
==>ture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_capt <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1935	2045	
==>source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1935	2045	
==>source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $ <==
5	/Users/nnunley/pugs/util/importgraph.pl	1553	1659	
==>: "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$rege <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2952	3051	
==>k as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2845	2942	
==>k as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	387	494	
==>ly if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	387	494	
==>ly if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	387	494	
==>ly if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub pr <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15663	15757	
==>than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15663	15757	
==>than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8020	8150	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8020	8150	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8020	8150	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1005	1122	
==>$filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38008	38101	
==>he invocant Relation::Example but
that aren't in C<$other>.  This method will fail if C<$other <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1780	1906	
==>ebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1780	1906	
==>ebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8397	8489	
==>::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Outp <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	597	687	
==>::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Outp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	597	687	
==>::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Outp <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2100	2200	
==>from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6000	6095	
==>$xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6000	6095	
==>$xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6000	6095	
==>$xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) { <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2506	2601	
==>$html_location);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X $smo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1307	1405	
==>ty_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting an <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1307	1405	
==>ty_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2440	2531	
==>$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2440	2531	
==>$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2440	2531	
==>$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6363	6469	
==>re ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6363	6469	
==>re ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5819	5923	
==>eeded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5819	5923	
==>eeded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5819	5923	
==>eeded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and :: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8563	8658	
==>interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

Thi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8563	8658	
==>interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22527	22621	
==>LL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22527	22621	
==>LL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22527	22621	
==>LL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17372	17472	
==>n_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7913	8013	
==>Block SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17372	17472	
==>n_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7913	8013	
==>Block SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7913	8013	
==>Block SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	110	215	
==>queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	114	219	
==>queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	110	215	
==>queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	114	219	
==>queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	55	142	
==>rl5/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6965	7066	
==>primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6965	7066	
==>primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6965	7066	
==>primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whil <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8862	8958	
==>tinuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The followin <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8862	8958	
==>tinuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The followin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	920	1027	
==>ck()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	920	1027	
==>ck()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	920	1027	
==>ck()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uni <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1373	1472	
==>turn '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1373	1472	
==>turn '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12500	12606	
==>fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1' <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12500	12606	
==>fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24016	24108	
==>t respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28568	28660	
==>t respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27399	27491	
==>t respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> i <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4809	4914	
==>[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4809	4914	
==>[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	830	928	
==>N { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	830	928	
==>N { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	830	928	
==>N { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1267	1367	
==>grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1267	1367	
==>grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $matc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3436	3529	
==>itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=h <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3436	3529	
==>itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5633	5726	
==>itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6865	6981	
==>method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6865	6981	
==>method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6865	6981	
==>method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2711	2815	
==>s String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submeth <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2711	2815	
==>s String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submeth <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	456	611	
==>ars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	456	611	
==>ars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22412	22509	
==>eturn the same result when invoked on the
same object with the same arguments; they do not interac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26964	27061	
==>eturn the same result when invoked on the
same object with the same arguments; they do not interac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25687	25784	
==>eturn the same result when invoked on the
same object with the same arguments; they do not interac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2633	2740	
==>Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2633	2740	
==>Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2633	2740	
==>Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1276	1373	
==>r($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1276	1373	
==>r($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1146	1270	
==>to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1146	1270	
==>to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1146	1270	
==>to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11796	11899	
==>q $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11796	11899	
==>q $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5666	5788	
==>/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5666	5788	
==>/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5666	5788	
==>/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globi <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2010	2110	
==>r>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2010	2110	
==>r>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3503	3647	
==>ise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3503	3647	
==>ise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!chi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15231	15368	
==>f $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15231	15368	
==>f $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15231	15368	
==>f $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3529	3629	
==>->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3529	3629	
==>->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3529	3629	
==>->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6. <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4300	4399	
==>kens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @to <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4300	4399	
==>kens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @to <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4539	4676	
==>ems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = In <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4539	4676	
==>ems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1520	1620	
==>odel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1520	1620	
==>odel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1520	1620	
==>odel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelud <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7744	7906	
==>ch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7744	7906	
==>ch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7744	7906	
==>ch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6884	6978	
==>n(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7902	7996	
==>n(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2183	2276	
==>ad3 Functional interface

The Cipher API's functional interface is perhaps the easiest one tha <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2183	2276	
==>ad3 Functional interface

The Cipher API's functional interface is perhaps the easiest one tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13337	13428	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13337	13428	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13337	13428	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attrib <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5742	5874	
==>( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2112	2220	
==>p>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2112	2220	
==>p>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33439	33537	
==>gram or first library should
appear first in the array.  Each Set Name can be any defined and non-e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33439	33537	
==>gram or first library should
appear first in the array.  Each Set Name can be any defined and non-e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2388	2529	
==>v->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2388	2529	
==>v->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2388	2529	
==>v->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4316	4437	
==>atch::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4328	4449	
==>atch::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $na <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39978	40196	
==>'$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17768	17980	
==>'$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19526	19736	
==>'$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41037	41245	
==>'$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5411	5506	
==>lse }
multi sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26261	26495	
==>art, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26261	26495	
==>art, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26261	26495	
==>art, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23465	23556	
==>SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Lan <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23465	23556	
==>SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Lan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8954	9079	
==>>( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8641	8763	
==>>( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3293	3384	
==>:{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3293	3384	
==>:{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3293	3384	
==>:{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4033	4129	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4033	4129	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4033	4129	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doe <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	710	802	
==>s Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	710	802	
==>s Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4908	5040	
==>, 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4908	5040	
==>, 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	423	516	
==>le = Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.does($role);
 $newclass.ap <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19368	19457	
==>ver, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19368	19457	
==>ver, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4674	4795	
==>lass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7397	7518	
==>lass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	29	137	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	29	137	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	29	137	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14527	14724	
==>r" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14806	15003	
==>r" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3761	3872	
==>: "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3761	3872	
==>: "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3761	3872	
==>: "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1536	1655	
==>at the message is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = c <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8850	8943	
==>ohn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3779	3872	
==>ohn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8850	8943	
==>ohn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3779	3872	
==>ohn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3495	3628	
==>n;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3495	3628	
==>n;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3367	3476	
==>> $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a digit)
  $self- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	8	105	
==>::IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	8	105	
==>::IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $ch <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6507	6601	
==>body was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6507	6601	
==>body was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8689	8814	
==>s + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	863	974	
==>s + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	863	974	
==>s + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3175	3280	
==>rsect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compar <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3175	3280	
==>rsect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25042	25138	
==>hod returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29594	29690	
==>hod returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28506	28602	
==>hod returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rela <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5586	5684	
==>ing output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5586	5684	
==>ing output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5586	5684	
==>ing output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1731	1821	
==>$plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1731	1821	
==>$plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the cip <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5278	5404	
==>@a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method curren <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5278	5404	
==>@a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method curren <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7394	7494	
==>lusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others - <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10871	10971	
==>lusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others - <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12503	12595	
==>ory management, via reverse
  engineering (almost completely undocumented source), in the pre <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3294	3414	
==>e => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3294	3414	
==>e => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5484	5577	
==>ords the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippin <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5484	5577	
==>ords the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7008	7101	
==>ords the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2092	2199	
==>it '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2092	2199	
==>it '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2092	2199	
==>it '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12208	12306	
==>$command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12208	12306	
==>$command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5339	5456	
==>n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6607	6724	
==>n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5339	5456	
==>n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6595	6712	
==>n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16276	16380	
==>->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp::Parser::__ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9951	10084	
==>x) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9951	10084	
==>x) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9951	10084	
==>x) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? u <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13542	13637	
==>start => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holi <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13542	13637	
==>start => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	953	1057	
==>E')->code();\n";
    print $source;
    print "RULE\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Per <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15273	15371	
==>ld also be a prompt or response message for interactive systems.

If the program or any of its comp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15273	15371	
==>ld also be a prompt or response message for interactive systems.

If the program or any of its comp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2923	3019	
==>der in which they were
present in the query string is preserved.

=item C<$q.param()>

This exist <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2923	3019	
==>der in which they were
present in the query string is preserved.

=item C<$q.param()>

This exist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	795	894	
==>d type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	795	894	
==>d type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	795	894	
==>d type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - return <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1659	1744	
==>\@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1659	1744	
==>\@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3361	3452	
==>th_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3361	3452	
==>th_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3361	3452	
==>th_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I.. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12911	13042	
==>rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12911	13042	
==>rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5887	5990	
==>End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5887	5990	
==>End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5887	5990	
==>End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12093	12200	
==>asses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12093	12200	
==>asses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12093	12200	
==>asses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = " <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13707	13808	
==>_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\x <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13707	13808	
==>_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\x <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10794	10948	
==>expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10794	10948	
==>expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	480	603	
==>xup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	480	603	
==>xup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	480	603	
==>xup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2305	2511	
==>nt\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            giv <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2305	2511	
==>nt\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            giv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	523	626	
==>fication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up R <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	523	626	
==>fication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up R <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	523	626	
==>fication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up R <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5246	5409	
==>edy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5246	5409	
==>edy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10341	10448	
==>}

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13818	13925	
==>}

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13099	13206	
==>}

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8322	8424	
==>_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8322	8424	
==>_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8322	8424	
==>_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	252	351	
==>eadonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	252	351	
==>eadonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10403	10530	
==>' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10403	10530	
==>' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10403	10530	
==>' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5803	5898	
==>ent_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is mode <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5803	5898	
==>ent_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is mode <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3096	3310	
==>y

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             ) retu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14054	14146	
==>ode)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10281	10373	
==>ode)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14054	14146	
==>ode)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10281	10373	
==>ode)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	465	584	
==>pt a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "di <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	465	584	
==>pt a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3354	3466	
==>val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3354	3466	
==>val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3354	3466	
==>val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23654	23873	
==>Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23654	23873	
==>Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23654	23873	
==>Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' | <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29354	29447	
==>l fail if any C<$mapping> keys do not match invocant
Relation::Example attribute names, or any <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26369	26461	
==>d add_subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses.push($subclass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2133	2238	
==>" param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2133	2238	
==>" param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2133	2238	
==>" param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	562	657	
==>.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	562	657	
==>.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4085	4219	
==>atch_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4085	4219	
==>atch_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	415	532	
==>elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	415	532	
==>elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	415	532	
==>elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_ <==
5	/Users/nnunley/pugs/util/package-osx.pl	10899	11047	
==>{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?:readline|history\).*\\.\(?:dy <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24176	24303	
==>atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20597	20724	
==>atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S-> <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3277	3379	
==>.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is j <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3277	3379	
==>.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is j <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11265	11415	
==>cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issue <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11265	11415	
==>cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issue <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11265	11415	
==>cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issue <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7748	7855	
==>malize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler(" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7748	7855	
==>malize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler(" <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	633	774	
==>year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($second),
                           ) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39614	39702	
==>, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24337	24425	
==>, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> f <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39614	39702	
==>, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24337	24425	
==>, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> f <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1172	1303	
==>self->val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = shift;
        Digest->compute($sel <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11650	11766	
==>,
      perl5_object => sub { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4434	4543	
==>aram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packag <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4434	4543	
==>aram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packag <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5024	5133	
==>aram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1105	1221	
==>($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1105	1221	
==>($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1105	1221	
==>($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13817	13924	
==>xact' node
    if ($tree->[-1]->family eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	51	150	
==>arnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	51	150	
==>arnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15758	15851	
==>ge, the
application's developer should see more details than joe public would.

Alternately, s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15758	15851	
==>ge, the
application's developer should see more details than joe public would.

Alternately, s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5643	5783	
==>nd();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5643	5783	
==>nd();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5643	5783	
==>nd();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2323	2442	
==>an => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't wor <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2323	2442	
==>an => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't wor <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27177	27297	
==>_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27177	27297	
==>_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13791	13904	
==>NIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13791	13904	
==>NIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13791	13904	
==>NIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1829	1958	
==>!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { retur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1829	1958	
==>!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9454	9574	
==>ocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10260	10380	
==>ocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11175	11295	
==>ocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @oth <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2108	2210	
==>-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2108	2210	
==>-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1341	1436	
==>$is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1341	1436	
==>$is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1341	1436	
==>$is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1816	1930	
==>s{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1816	1930	
==>s{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1816	1930	
==>s{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1648	1756	
==>PI}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1648	1756	
==>PI}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3117	3232	
==>single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3117	3232	
==>single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16925	17022	
==>D (as
either named modules or anonymous routines) and write the rest of the
application in their o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16925	17022	
==>D (as
either named modules or anonymous routines) and write the rest of the
application in their o <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22061	22157	
==>n relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algeb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26613	26709	
==>n relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algeb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25309	25405	
==>n relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algeb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	632	762	
==>) \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	632	762	
==>) \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	632	762	
==>) \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10756	10857	
==>p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10756	10857	
==>p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10756	10857	
==>p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1739	1834	
==>tor takes as parameters at least C<rate of information> in
items per second and C<burst size> in <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1739	1834	
==>tor takes as parameters at least C<rate of information> in
items per second and C<burst size> in <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5522	5630	
==>$S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my ($ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6324	6427	
==>urns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$o <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5454	5557	
==>urns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6324	6427	
==>urns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5454	5557	
==>urns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3897	3995	
==>d by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3897	3995	
==>d by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3897	3995	
==>d by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1999	2094	
==>head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYN <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1999	2094	
==>head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16853	17031	
==>return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16853	17031	
==>return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16853	17031	
==>return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &I <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7447	7568	
==>ING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7447	7568	
==>ING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6959	7177	
==>s'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stric <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6959	7177	
==>s'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stric <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6959	7177	
==>s'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stric <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2199	2307	
==>foreach my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" . $rol <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4443	4543	
==>}
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17015	17165	
==>onical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17015	17165	
==>onical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17015	17165	
==>onical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24160	24289	
==>@cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24160	24289	
==>@cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24160	24289	
==>@cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2017	2143	
==>sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.c <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2017	2143	
==>sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9943	10109	
==>TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sig <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6284	6450	
==>TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sig <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7133	7299	
==>TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sig <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4420	4544	
==>tion    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4420	4544	
==>tion    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of chi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2801	2900	
==>mess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2801	2900	
==>mess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2801	2900	
==>mess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10841	10937	
==>ns Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B< <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10841	10937	
==>ns Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B< <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4539	4680	
==>ltidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4539	4680	
==>ltidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1557	1657	
==>ves (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1557	1657	
==>ves (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1557	1657	
==>ves (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	527	695	
==>( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	615	783	
==>( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	612	775	
==>( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return ' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13698	13810	
==>ent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13698	13810	
==>ent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2467	2572	
==>IL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2467	2572	
==>IL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2467	2572	
==>IL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3295	3392	
==>lue2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Obje <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3295	3392	
==>lue2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Obje <==
5	/Users/nnunley/pugs/util/drift.pl	779	879	
==>rIFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8016	8111	
==><+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7146	7241	
==><+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8016	8111	
==><+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7146	7241	
==><+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4563	4672	
==>tion of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4563	4672	
==>tion of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15046	15149	
==>urces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18523	18626	
==>urces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17939	18042	
==>urces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15654	15751	
==>LTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15654	15751	
==>LTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15654	15751	
==>LTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) { <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8140	8234	
==>em' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

Thi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8140	8234	
==>em' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

Thi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5234	5364	
==>1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ? <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5234	5364	
==>1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7173	7266	
==>common API, which permits the intercommunication 

of data about: backtracking, aborting, capt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6928	7020	
==>common API, which permits the intercommunication 
of data about: backtracking, aborting, capt <==
5	/Users/nnunley/pugs/inc/Module/Install/Include.pm	118	208	
==>e::Install::Include;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub incl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35353	35451	
==>>

This method returns all Set Names elements in this object as an array ref.

=item C<get_member_n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35353	35451	
==>>

This method returns all Set Names elements in this object as an array ref.

=item C<get_member_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5008	5115	
==>my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5008	5115	
==>my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5008	5115	
==>my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub fr <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11370	11466	
==>t experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11428	11524	
==>t experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18223	18314	
==>ather complex algorithm that
Module::Compile uses.

First, the source module is preprocessed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6208	6299	
==>nternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18223	18314	
==>ather complex algorithm that
Module::Compile uses.

First, the source module is preprocessed <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6208	6299	
==>nternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6208	6299	
==>nternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3976	4102	
==>ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3976	4102	
==>ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3976	4102	
==>ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30983	31081	
==>ule from others in
its set. For maximum flexibility in their use, the full name of a module
consist <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30983	31081	
==>ule from others in
its set. For maximum flexibility in their use, the full name of a module
consist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2024	2133	
==>!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2024	2133	
==>!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2024	2133	
==>!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4476	4578	
==>names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4476	4578	
==>names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	51	165	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	51	165	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	51	165	
==>fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even pr <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1036	1132	
==>DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream o <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1036	1132	
==>DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3454	3555	
==>thod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3454	3555	
==>thod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3454	3555	
==>thod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes' <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	130	224	
==>tores a finite string and a position
within that string, and it provides the fundamental operat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	130	224	
==>tores a finite string and a position
within that string, and it provides the fundamental operat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	325	432	
==>>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 name <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	325	432	
==>>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 name <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	325	432	
==>>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 name <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13697	13793	
==>a::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13697	13793	
==>a::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	770	869	
==>, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	770	869	
==>, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	770	869	
==>, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1203	1297	
==>or `require` statements 
will find modules which are not located on Pugs's default
search path. <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1203	1297	
==>or `require` statements 
will find modules which are not located on Pugs's default
search path. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1915	2030	
==>ex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlau <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1915	2030	
==>ex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlau <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3459	3567	
==>.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3459	3567	
==>.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3459	3567	
==>.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superc <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6096	6226	
==>e()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.par <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6096	6226	
==>e()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3858	3957	
==>nal;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3858	3957	
==>nal;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4448	4547	
==>nal;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15178	15281	
==>)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15178	15281	
==>)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1034	1127	
==>h of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1034	1127	
==>h of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1034	1127	
==>h of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1816	1911	
==>library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free so <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1816	1911	
==>library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free so <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20363	20455	
==>entify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20363	20455	
==>entify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20363	20455	
==>entify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7526	7638	
==>nction gets as argument a list:



### we don't need a "high" level interface (named args) 

###    because the a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7270	7379	
==>nction gets as argument a list:

### we don't need a "high" level interface (named args) 
###    because the a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3719	3825	
==>fix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3719	3825	
==>fix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3719	3825	
==>fix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4910	5009	
==>ou want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4910	5009	
==>ou want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4910	5009	
==>ou want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone J <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1962	2055	
==>structor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision opera <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1962	2055	
==>structor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision opera <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1998	2133	
==>abel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
})) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1998	2133	
==>abel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
})) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1998	2133	
==>abel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
})) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17677	17769	
==>inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D stat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17677	17769	
==>inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D stat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4145	4264	
==>path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all i <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4145	4264	
==>path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4403	4515	
==>rlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4403	4515	
==>rlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4403	4515	
==>rlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24649	24744	
==>tion's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29201	29296	
==>tion's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method retu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7069	7243	
==>le_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7069	7243	
==>le_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3240	3345	
==>o_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3240	3345	
==>o_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3240	3345	
==>o_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", na <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1773	1907	
==>.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1773	1907	
==>.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1773	1907	
==>.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8782	8885	
==>$span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8782	8885	
==>$span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3357	3462	
==>[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3357	3462	
==>[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0] <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4547	4652	
==>y to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ar <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4939	5044	
==>y to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ar <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5450	5555	
==>y to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ar <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	774	940	
==>e( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doe <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	774	940	
==>e( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	344	441	
==>lue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	344	441	
==>lue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	344	441	
==>lue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8975	9153	
==>okie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('ve <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8975	9153	
==>okie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	449	584	
==>air is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	449	584	
==>air is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	449	584	
==>air is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6856	6963	
==>n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6856	6963	
==>n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6856	6963	
==>n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1872	2022	
==>();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1872	2022	
==>();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2589	2715	
==>();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2589	2715	
==>();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpat <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	432	514	
==>::Binary>, L<JIB::Package::Installed>, L<JIB::Package::Source>,
L<JIB::Repository>, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	688	794	
==>elf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	688	794	
==>elf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	688	794	
==>elf->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8445	8587	
==>s_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8445	8587	
==>s_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4449	4547	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4449	4547	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4449	4547	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6583	6681	
==>wo) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mult <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5713	5811	
==>wo) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6583	6681	
==>wo) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5713	5811	
==>wo) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mult <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8748	8848	
==>ately.
# This method is called automatically when 
# a subtree is added to a child array
method fix_d <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8748	8848	
==>ately.
# This method is called automatically when 
# a subtree is added to a child array
method fix_d <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29561	29656	
==>fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34113	34208	
==>fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33277	33372	
==>fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
i <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2075	2196	
==>t_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.out <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2075	2196	
==>t_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.out <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2155	2276	
==>t_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.out <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3902	4006	
==>f;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3902	4006	
==>f;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1813	1926	
==>ted.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1813	1926	
==>ted.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1813	1926	
==>ted.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4859	4970	
==>lue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4859	4970	
==>lue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1734	1834	
==>d($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1734	1834	
==>d($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1734	1834	
==>d($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	74	171	
==>y Andras Barthazi
#  This code is totally free, use it as you want
# ----------------------------- <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	74	171	
==>y Andras Barthazi
#  This code is totally free, use it as you want
# ----------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5002	5133	
==>n {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5195	5326	
==>n {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	285	386	
==>by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	285	386	
==>by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	285	386	
==>by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4948	5060	
==>ce => 1)) if $cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	321	426	
==>() ) };
use constant SUBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1874	1973	
==>ame};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1874	1973	
==>ame};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1874	1973	
==>ame};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3519	3621	
==>ead1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5492	5594	
==>nd attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3519	3621	
==>ead1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5492	5594	
==>nd attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5492	5594	
==>nd attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6698	6801	
==>ubclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6698	6801	
==>ubclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6698	6801	
==>ubclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	414	509	
==>SS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More special <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	414	509	
==>SS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More special <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21824	21977	
==>$traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21824	21977	
==>$traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21824	21977	
==>$traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	294	424	
==>,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bles <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	294	424	
==>,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bles <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2636	2734	
==>"*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2636	2734	
==>"*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2636	2734	
==>"*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8376	8468	
==>rt_element ('line_interpolation')>

This event is begun when any block of characters is inter <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8376	8468	
==>rt_element ('line_interpolation')>

This event is begun when any block of characters is inter <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10231	10401	
==>>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6572	6742	
==>>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7421	7591	
==>>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6650	6753	
==>ew( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6650	6753	
==>ew( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9147	9237	
==>ammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2972	3062	
==>ammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6948	7036	
==>bclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6948	7036	
==>bclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6948	7036	
==>bclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6012	6114	
==>\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6012	6114	
==>\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6012	6114	
==>\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21061	21152	
==>er (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Infor <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21061	21152	
==>er (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Infor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18726	18932	
==>ay is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18726	18932	
==>ay is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18726	18932	
==>ay is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3862	4002	
==>\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3850	3990	
==>\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	727	835	
==>mentById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering proble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	727	835	
==>mentById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering proble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	727	835	
==>mentById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering proble <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17465	17568	
==>2);


} regexp;


Notes on functions:

regexp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm)

what is <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4232	4324	
==>56_quantified_op(W, plus_ng(W)) --> "+?", !.
p56_quantified_op(W, ques(W))    --> "?", !.
p56 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13198	13303	
==>:PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13198	13303	
==>:PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13198	13303	
==>:PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Ex <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40719	40809	
==>quired, the copyright holders of
Locale::KeyedText would appreciate being informed any time <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40719	40809	
==>quired, the copyright holders of
Locale::KeyedText would appreciate being informed any time <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2065	2181	
==>'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @dif <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4284	4400	
==>'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @dif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2065	2181	
==>'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @dif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4284	4400	
==>'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @dif <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2257	2362	
==>ndie::Nodes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	477	574	
==>sbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	477	574	
==>sbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	477	574	
==>sbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$sel <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	706	790	
==>cification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	706	790	
==>cification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1625	1739	
==>b bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1625	1739	
==>b bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	200	297	
==>ted in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	200	297	
==>ted in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	200	297	
==>ted in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	455	573	
==>tor::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
        name => 'prefix:<' . $opt{name} . '>' <==
5	/Users/nnunley/pugs/util/importgraph.pl	414	514	
==>verlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = GraphViz->new(
  layout = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30711	30802	
==>riginal (or rather, the corresponding transformation of each tuple), but
that any duplicates <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35262	35353	
==>riginal (or rather, the corresponding transformation of each tuple), but
that any duplicates <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34453	34544	
==>riginal (or rather, the corresponding transformation of each tuple), but
that any duplicates <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7776	7892	
==>new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7776	7892	
==>new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7776	7892	
==>new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray() <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4493	4590	
==>t> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4493	4590	
==>t> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2372	2482	
==>e));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2372	2482	
==>e));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2372	2482	
==>e));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decla <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1310	1417	
==>) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[ <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	939	1044	
==>man1dir},
        installman3dir     => $Config{installman3dir},
        installsiteman1dir => $Config{ins <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	964	1120	
==>SS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETC <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	964	1120	
==>SS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2519	2618	
==>",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2519	2618	
==>",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2519	2618	
==>",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1291	1401	
==>@$nodes can be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1638	1745	
==>@$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1245	1352	
==>@$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1638	1745	
==>@$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39428	39525	
==>es knowledge of the characters
on the lower and upper side of the range, objects must be created d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6962	7181	
==>,
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6962	7181	
==>,
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6962	7181	
==>,
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16535	16682	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16814	16961	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  matc <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8641	8767	
==>e"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8641	8767	
==>e"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4191	4286	
==>d diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compar <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4191	4286	
==>d diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4271	4366	
==>d diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17389	17508	
==>perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17389	17508	
==>perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8664	8764	
==>oublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8664	8764	
==>oublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8664	8764	
==>oublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8923	9024	
==>\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8923	9024	
==>\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8923	9024	
==>\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub na <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38736	38831	
==>ced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38736	38831	
==>ced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13258	13368	
==>yof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # alpha PO <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18863	18955	
==>or
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17906	17998	
==>or
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18863	18955	
==>or
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17906	17998	
==>or
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7616	7714	
==>eturn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7616	7714	
==>eturn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7616	7714	
==>eturn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Ar <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4075	4167	
==>ue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL { <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4075	4167	
==>ue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2399	2518	
==>.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2399	2518	
==>.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2399	2518	
==>.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS. <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3255	3352	
==>$rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3255	3352	
==>$rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3887	3995	
==>ement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3887	3995	
==>ement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	17	113	
==>substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	17	113	
==>substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	17	113	
==>substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1397	1549	
==>//  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1397	1549	
==>//  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7346	7486	
==>'$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7346	7486	
==>'$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7346	7486	
==>'$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3876	3984	
==>ethod complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3876	3984	
==>ethod complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spa <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4212	4301	
==>factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4212	4301	
==>factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6409	6498	
==>factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25252	25355	
==>) is computing
 * it anyway.
 * [regmust is now supplied always.  The tests that use regmust have a
 * h <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6557	6656	
==>:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode ope <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5687	5786	
==>:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode ope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6557	6656	
==>:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode ope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5687	5786	
==>:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode ope <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2414	2677	
==>None Yet)

    # Attributes of every Relation::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Exampl <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3134	3242	
==>ages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Package instances to the repository.
# 
# =cut
# 
# sub add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7107	7206	
==>{
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->mai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7107	7206	
==>{
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->mai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7107	7206	
==>{
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->mai <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4765	4899	
==>self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13190	13324	
==>self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15801	15935	
==>self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17289	17423	
==>self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21972	22106	
==>self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8931	9042	
==>on
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8931	9042	
==>on
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8931	9042	
==>on
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramN <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	561	661	
==>ule or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you wa <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	561	661	
==>ule or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you wa <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4935	5063	
==>irs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4935	5063	
==>irs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1040	1144	
==>rations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1040	1144	
==>rations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1040	1144	
==>rations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remov <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2034	2184	
==>{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2034	2184	
==>{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	281	380	
==>eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line op <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	242	341	
==>eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	242	341	
==>eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line op <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18531	18626	
==>r now it officially is not and you should not share
Rosetta objects between multiple threads, no <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18531	18626	
==>r now it officially is not and you should not share
Rosetta objects between multiple threads, no <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	76	192	
==>ge Blondie::Unit;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6427	6525	
==>d modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5500	5598	
==>d modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6427	6525	
==>d modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5500	5598	
==>d modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end <==
5	/Users/nnunley/pugs/util/config_h.pl	58	153	
==>File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This file seems to determin <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	534	644	
==>regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orginal = $1;
		$sub = $2;
		i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19511	19601	
==>>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19511	19601	
==>>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19511	19601	
==>>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($x <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8554	8750	
==>Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $r <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8554	8750	
==>Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6170	6268	
==>e with the prune method.

This feature is useful, like custom, for when you don't want to mess
with <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6170	6268	
==>e with the prune method.

This feature is useful, like custom, for when you don't want to mess
with <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6170	6268	
==>e with the prune method.

This feature is useful, like custom, for when you don't want to mess
with <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2616	2730	
==>rg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=hea <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2616	2730	
==>rg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=hea <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2963	3077	
==>rg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=hea <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8927	9034	
==>der('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8927	9034	
==>der('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=h <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1922	2042	
==>nt
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1922	2042	
==>nt
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2642	2746	
==>{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2642	2746	
==>{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2642	2746	
==>{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = jo <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12539	12631	
==>et1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12539	12631	
==>et1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2491	2603	
==>> nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7153	7264	
==>dd_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7153	7264	
==>dd_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1822	1925	
==>dd_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1822	1925	
==>dd_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	233	333	
==>Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	233	333	
==>Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	233	333	
==>Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7806	7919	
==>n $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &e <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11283	11396	
==>n $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &e <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10447	10560	
==>n $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &e <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	505	599	
==>d, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	505	599	
==>d, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4013	4118	
==>e "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Int <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4013	4118	
==>e "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Int <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4013	4118	
==>e "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Int <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3868	3972	
==>lid hint $hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	792	893	
==>Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5657	5761	
==>tr( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5657	5761	
==>tr( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5657	5761	
==>tr( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1780	1879	
==>erset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1780	1879	
==>erset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	488	611	
==>my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return reve <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6123	6233	
==>rs{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        de <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6903	7013	
==>rs{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6123	6233	
==>rs{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6903	7013	
==>rs{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        de <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1151	1260	
==>> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method incl <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1151	1260	
==>> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method incl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	424	527	
==>say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	424	527	
==>say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	424	527	
==>say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	233	368	
==>ecial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	233	368	
==>ecial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6060	6180	
==>$n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6060	6180	
==>$n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6060	6180	
==>$n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2643	2764	
==>th"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2643	2764	
==>th"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5756	5869	
==>es, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5756	5869	
==>es, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5756	5869	
==>es, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7661	7844	
==>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7661	7844	
==>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7661	7844	
==>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $sel <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	439	538	
==>vailable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@puc <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	439	538	
==>vailable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@puc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2155	2289	
==>efix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'looser' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2788	2889	
==>}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method un <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2609	2710	
==>}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method un <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2788	2889	
==>}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method un <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2609	2710	
==>}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method un <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2036	2232	
==>_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2036	2232	
==>_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29018	29111	
==>ributes which wrap zero old attributes (they are effectively just an
extension of the relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33570	33663	
==>ributes which wrap zero old attributes (they are effectively just an
extension of the relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32707	32800	
==>ributes which wrap zero old attributes (they are effectively just an
extension of the relation <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13943	14037	
==>overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10170	10264	
==>overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13943	14037	
==>overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10170	10264	
==>overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	380	558	
==>se {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	380	558	
==>se {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7030	7191	
==>MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7030	7191	
==>MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7030	7191	
==>MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12620	12720	
==>de;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12620	12720	
==>de;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12620	12720	
==>de;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2347	2442	
==>named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method comm <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2347	2442	
==>named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method comm <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1200	1321	
==>rs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        pus <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	541	659	
==>rs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        pus <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7009	7105	
==>on\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new container <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7009	7105	
==>on\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new container <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7009	7105	
==>on\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new container <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3198	3340	
==>:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3198	3340	
==>:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3198	3340	
==>:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	275	395	
==>ple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'O <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6582	6693	
==>l_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6582	6693	
==>l_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6383	6490	
==>l_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6383	6490	
==>l_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6442	6547	
==>is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6442	6547	
==>is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2715	2814	
==>2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2715	2814	
==>2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2715	2814	
==>2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	338	466	
==>> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($f <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	338	466	
==>> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	612	722	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	612	722	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	612	722	
==>- $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3334	3437	
==>list iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure-> <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2123	2223	
==>my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurre <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4342	4442	
==>my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2123	2223	
==>my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4342	4442	
==>my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurre <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13917	14028	
==>a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [20 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13917	14028	
==>a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [20 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	134	230	
==>cts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	134	230	
==>cts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	134	230	
==>cts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12905	13035	
==>olon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word comma <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12905	13035	
==>olon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word comma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14374	14492	
==>ded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	708	805	
==>bleName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	708	805	
==>bleName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3270	3410	
==>_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->ad <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6754	6857	
==>lize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6754	6857	
==>lize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %! <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4932	5032	
==>d () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_em <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4932	5032	
==>d () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_em <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	419	556	
==>bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak ( <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	419	556	
==>bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3303	3409	
==>$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3303	3409	
==>$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3303	3409	
==>$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5364	5490	
==>ted...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5364	5490	
==>ted...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5364	5490	
==>ted...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13141	13238	
==>imes a test is broken because something is not implemented yet. So
in order to still allow that to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13199	13296	
==>imes a test is broken because something is not implemented yet. So
in order to still allow that to <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9585	9701	
==>ass->send('add_method' => (
    # method label
        symbol->new('remove_method'), 
    # method body
        metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20703	20814	
==>r::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1227	1326	
==>};

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1227	1326	
==>};

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1227	1326	
==>};

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1226	1346	
==>ram ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TOD <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1226	1346	
==>ram ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	712	831	
==>kip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	712	831	
==>kip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	712	831	
==>kip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $A <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8481	8581	
==>lass','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all typ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8481	8581	
==>lass','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3339	3429	
==>':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3339	3429	
==>':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3339	3429	
==>':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8191	8308	
==>lan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $Cl <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2449	2560	
==>recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2449	2560	
==>recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # w <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	406	511	
==>lan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Cl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	406	511	
==>lan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Cl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8987	9109	
==>>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optiona <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8983	9105	
==>>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optiona <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2428	2549	
==>>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optiona <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2428	2549	
==>>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optiona <==
5	/Users/nnunley/pugs/util/grokprims.pl	90	206	
==>ssoc = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5208	5319	
==>ing => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8685	8796	
==>ing => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7705	7816	
==>ing => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21222	21310	
==>lized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21222	21310	
==>lized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<l <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	131	242	
==>ss)) / $fprime($guess);
}

sub approxfprime(Code $f, Num $x) {
    my Num $delta = 0.1;
    return ($f($x + $del <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4881	4979	
==>=> ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fetch($i)->name->to_nati <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34863	34959	
==>$other> along
their common attributes.  This method will fail if the heading of <$other>
is not a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39413	39509	
==>$other> along
their common attributes.  This method will fail if the heading of <$other>
is not a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38946	39042	
==>$other> along
their common attributes.  This method will fail if the heading of <$other>
is not a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6051	6159	
==>printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6051	6159	
==>printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6051	6159	
==>printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5973	6080	
==>'$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # b <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5973	6080	
==>'$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2736	2847	
==>s;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2736	2847	
==>s;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2736	2847	
==>s;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2489	2583	
==>$self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2489	2583	
==>$self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34031	34255	
==>->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e->create(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	804	916	
==>s_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	804	916	
==>s_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	804	916	
==>s_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	163	268	
==>stBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.error_output' ],
    s <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14001	14109	
==>sub { -d $cdroot and -r $cdroot },
  using  => sub { mkdir $cdroot };

step
  descr  => "Unpacking GRUB in \" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12552	12655	
==>ource =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $sourc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12552	12655	
==>ource =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $sourc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20461	20557	
==>32beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. Aft <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20461	20557	
==>32beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. Aft <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2099	2219	
==>( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    } <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2099	2219	
==>( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1171	1266	
==>BLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1171	1266	
==>BLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1171	1266	
==>BLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3 <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	835	966	
==>ool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	835	966	
==>ool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	2850	2962	
==>push @forall, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀$ <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	28	133	
==>st-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.c <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	28	133	
==>st-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7479	7588	
==>return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7226	7330	
==>return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" l <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35042	35136	
==>C<intersection> if the two source headings are
identical.  This method has an alias named C<mat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39592	39686	
==>C<intersection> if the two source headings are
identical.  This method has an alias named C<mat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39134	39228	
==>C<intersection> if the two source headings are
identical.  This method has an alias named C<mat <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7399	7578	
==>,
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $patt <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7456	7635	
==>,
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $patt <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14850	14951	
==>egexp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10211	10310	
==>rns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10211	10310	
==>rns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4111	4223	
==>1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4111	4223	
==>1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4111	4223	
==>1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" ! <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19195	19288	
==>d C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19195	19288	
==>d C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6049	6163	
==>eck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release. <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6107	6221	
==>eck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	345	449	
==>nt loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more do <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	349	453	
==>nt loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more do <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	345	449	
==>nt loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more do <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	349	453	
==>nt loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3365	3506	
==>ul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3353	3494	
==>ul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5628	5748	
==>ion of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5628	5748	
==>ion of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5628	5748	
==>ion of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	587	689	
==>() returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	587	689	
==>() returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2227	2325	
==>key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2227	2325	
==>key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2227	2325	
==>key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9404	9568	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14948	15112	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9404	9568	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14942	15106	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	671	767	
==>o_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? str->new('1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3035	3133	
==>L2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3035	3133	
==>L2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3035	3133	
==>L2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7521	7609	
==>b { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_cal <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1346	1434	
==>b { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_cal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7606	7725	
==>t;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7606	7725	
==>t;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7606	7725	
==>t;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2987	3089	
==>file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2987	3089	
==>file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2987	3089	
==>file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6552	6648	
==>ad2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directiv <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6552	6648	
==>ad2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directiv <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11189	11322	
==>$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11183	11316	
==>$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	291	388	
==>ned) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	291	388	
==>ned) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	291	388	
==>ned) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	555	653	
==>d $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	555	653	
==>d $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	555	653	
==>d $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]- <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6901	6998	
==>). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' di <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6901	6998	
==>). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' di <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11319	11434	
==>, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11319	11434	
==>, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7707	7814	
==>push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7707	7814	
==>push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7707	7814	
==>push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1940	2062	
==>ery!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1940	2062	
==>ery!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14748	14834	
==>UB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14748	14834	
==>UB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14748	14834	
==>UB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1976	2075	
==>= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1976	2075	
==>= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1976	2075	
==>= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1193	1289	
==>r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1193	1289	
==>r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8036	8160	
==>n "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8036	8160	
==>n "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8036	8160	
==>n "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # un <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1313	1421	
==>nion ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.den <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1313	1421	
==>nion ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.den <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10566	10701	
==>gs
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10566	10701	
==>gs
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10566	10701	
==>gs
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	838	939	
==>rent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	838	939	
==>rent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4147	4298	
==>"not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4147	4298	
==>"not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16125	16223	
==>e
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16125	16223	
==>e
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16125	16223	
==>e
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5600	5695	
==>t::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5600	5695	
==>t::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7797	7892	
==>t::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4095	4190	
==>new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4095	4190	
==>new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4095	4190	
==>new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8640	8750	
==>[ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6173	6279	
==>[ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6571	6664	
==>thority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6571	6664	
==>thority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6571	6664	
==>thority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	656	789	
==>f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	691	824	
==>f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	656	789	
==>f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pa <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9873	10006	
==>f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pa <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1129	1262	
==>f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	678	780	
==>$rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3749	3851	
==>$rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	678	780	
==>$rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3749	3851	
==>$rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($ma <==
5	/Users/nnunley/pugs/util/package-osx.pl	5311	5408	
==>man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/local/man/man3/Perl6::FA <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15267	15496	
==>=> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15267	15496	
==>=> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15267	15496	
==>=> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::op <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3873	4056	
==>{
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3873	4056	
==>{
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10878	11025	
==>'$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10878	11025	
==>'$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10878	11025	
==>'$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Per <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1876	1988	
==>shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":" <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1876	1988	
==>shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10224	10369	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10224	10369	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10224	10369	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DE <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10839	10932	
==>ode,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Mode <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10839	10932	
==>ode,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Mode <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	728	821	
==>ype keeps the C<source> property, and adds C<content>,
which is the whitespace to be represent <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	728	821	
==>ype keeps the C<source> property, and adds C<content>,
which is the whitespace to be represent <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4339	4430	
==>$_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4339	4430	
==>$_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4339	4430	
==>$_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_laz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2018	2139	
==>Val'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2018	2139	
==>Val'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2018	2139	
==>Val'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7936	8032	
==>nt ('item')>

This event is fired when an '=item' directive is reached, the next event fired will <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7936	8032	
==>nt ('item')>

This event is fired when an '=item' directive is reached, the next event fired will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18319	18502	
==>sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18319	18502	
==>sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18319	18502	
==>sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10844	10936	
==>and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model::D <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10844	10936	
==>and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model::D <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12267	12386	
==>{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->forc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4910	5029	
==>{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->forc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2224	2331	
==>!$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2224	2331	
==>!$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2224	2331	
==>!$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11304	11397	
==>elf: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<g <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11304	11397	
==>elf: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18445	18613	
==>d eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whol <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18445	18613	
==>d eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whol <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18445	18613	
==>d eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whol <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7179	7288	
==>ST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH> <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7179	7288	
==>ST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8225	8390	
==>abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8225	8390	
==>abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	573	670	
==>ts, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	573	670	
==>ts, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	573	670	
==>ts, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5542	5701	
==>/ 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5542	5701	
==>/ 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5542	5701	
==>/ 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1050	1150	
==>ule object

that defines ::Main.  A Module object mixes in both Package

and Code -- because it is bo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1000	1098	
==>ule object
that defines ::Main.  A Module object mixes in both Package
and Code -- because it is bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2957	3062	
==>elete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2957	3062	
==>elete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2957	3062	
==>elete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      m <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2561	2657	
==>lder for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These m <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2561	2657	
==>lder for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	7	104	
==>bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Find <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	7	104	
==>bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Find <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	7	104	
==>bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Find <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	969	1103	
==>uration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	711	845	
==>uration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	969	1103	
==>uration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	711	845	
==>uration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1407	1538	
==>:TestPlan')->new( '$.expect' => $tests ));
            }
            elsif ($explanation eq 'no_plan') {
                _('$.testpl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11521	11705	
==>around
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11521	11705	
==>around
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11521	11705	
==>around
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8501	8592	
==>end_element ('line_interpolation')>

This event is fired when interpolation is complete.

=b <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8501	8592	
==>end_element ('line_interpolation')>

This event is fired when interpolation is complete.

=b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2373	2492	
==>f values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear() <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2373	2492	
==>f values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7749	7858	
==>n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_ind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7749	7858	
==>n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_ind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7749	7858	
==>n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_ind <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1853	1946	
==>> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $valu <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1853	1946	
==>> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $valu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	565	663	
==>Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	565	663	
==>Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11765	11916	
==>( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11765	11916	
==>( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11765	11916	
==>( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$meth <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1623	1744	
==>lash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, die <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1623	1744	
==>lash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, die <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8129	8263	
==>e => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8129	8263	
==>e => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5536	5639	
==>LOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5536	5639	
==>LOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5536	5639	
==>LOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3159	3306	
==>([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3159	3306	
==>([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38261	38357	
==>O.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42810	42906	
==>O.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42460	42556	
==>O.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3932	4034	
==>od_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3932	4034	
==>od_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3932	4034	
==>od_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8428	8518	
==>sh @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2253	2343	
==>sh @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2432	2531	
==>_/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2432	2531	
==>_/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2683	2778	
==>$varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2683	2778	
==>$varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2683	2778	
==>$varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2619	2757	
==>rn;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dep <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2703	2813	
==>es;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2703	2813	
==>es;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2783	2893	
==>es;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Tes <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10927	11026	
==>te that, depending on the backend, the
    <code>ext/</code> tests may or may not be run, causing du <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4964	5179	
==>$token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    e <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4964	5179	
==>$token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3759	3928	
==>cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3759	3928	
==>cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3759	3928	
==>cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1050	1200	
==>rname;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has I <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1050	1200	
==>rname;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has I <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8682	8805	
==>$magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8682	8805	
==>$magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	165	255	
==>Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_precedences = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12672	12821	
==>i.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this bind <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12672	12821	
==>i.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this bind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	707	807	
==>turn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	707	807	
==>turn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	707	807	
==>turn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2290	2416	
==>Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2290	2416	
==>Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7169	7260	
==>n_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8164	8255	
==>n_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10733	10824	
==>n_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retur <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7273	7520	
==>= [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7273	7520	
==>= [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	804	899	
==>lare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	804	899	
==>lare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	804	899	
==>lare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18641	18737	
==>rd-coded into your application or package, with one or more
text strings to show human users.  Th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18641	18737	
==>rd-coded into your application or package, with one or more
text strings to show human users.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	400	491	
==>d, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Intern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	400	491	
==>d, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Intern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	400	491	
==>d, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Intern <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10085	10222	
==>ulti method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10085	10222	
==>ulti method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3740	3864	
==>$m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3740	3864	
==>$m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3740	3864	
==>$m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = ' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5181	5308	
==>',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxt <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5181	5308	
==>',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2157	2273	
==>ap {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2157	2273	
==>ap {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2157	2273	
==>ap {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2746	2881	
==>self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $arra <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2746	2881	
==>self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1875	1971	
==>codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1875	1971	
==>codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1875	1971	
==>codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4770	4901	
==>>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13195	13326	
==>>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15806	15937	
==>>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17294	17425	
==>>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21977	22108	
==>>{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2521	2650	
==>"&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2521	2650	
==>"&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2521	2650	
==>"&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3771	3869	
==>hese methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3771	3869	
==>hese methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1628	1729	
==>e»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1628	1729	
==>e»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1628	1729	
==>e»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "inf <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10657	10752	
==>$a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow- <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10895	10990	
==>$a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow- <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11087	11182	
==>$a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow- <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10451	10543	
==>nciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Clas <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10451	10543	
==>nciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5113	5223	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FET <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5113	5223	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FET <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5113	5223	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FET <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5269	5369	
==>>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as p <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5269	5369	
==>>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	472	586	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	472	586	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	472	586	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18253	18348	
==>resources, such as a repository file
on disk, it is expected that the Engines will employ approp <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18253	18348	
==>resources, such as a repository file
on disk, it is expected that the Engines will employ approp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10650	10795	
==>{
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10650	10795	
==>{
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10650	10795	
==>{
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7578	7693	
==>rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7771	7886	
==>rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3422	3526	
==>() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3422	3526	
==>() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3422	3526	
==>() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3398	3495	
==>hod symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturb <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3398	3495	
==>hod symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6666	6801	
==>ead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6666	6801	
==>ead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6666	6801	
==>ead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3002	3116	
==>(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now cont <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3002	3116	
==>(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now cont <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1718	1831	
==>s "bad return value, got($return_value) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

su <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	117	222	
==>t need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	117	222	
==>t need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19506	19600	
==>main program.

I<Note that an update is planned for Locale::KeyedText that will enable
user tex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19506	19600	
==>main program.

I<Note that an update is planned for Locale::KeyedText that will enable
user tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5644	5752	
==>{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5644	5752	
==>{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5644	5752	
==>{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4942	5040	
==>g of any leftover data and returns it as an array of bytes, 
then clears the object's internal stat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4942	5040	
==>g of any leftover data and returns it as an array of bytes, 
then clears the object's internal stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7880	8031	
==>$tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7880	8031	
==>$tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7880	8031	
==>$tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Per <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5110	5251	
==>{ Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::V <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5110	5251	
==>{ Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::V <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	231	331	
==>_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1089	1189	
==>_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_in <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2053	2135	
==><subrule>|<capturing_group>|<noncapturing_group>|<quantified_construct> }
rule quan <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	379	486	
==>($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defin <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	379	486	
==>($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defin <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	654	746	
==>ite all normal output (test results and
descriptions).

=item B<$.error_output>

The filehand <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	654	746	
==>ite all normal output (test results and
descriptions).

=item B<$.error_output>

The filehand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1210	1302	
==>ite all normal output (test results and
descriptions).

=item B<$.error_output>

The filehand <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11037	11201	
==>params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11037	11201	
==>params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11037	11201	
==>params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1469	1589	
==>e_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1469	1589	
==>e_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	291	429	
==>${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	291	429	
==>${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	291	429	
==>${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        | <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28398	28495	
==>rbose> will override this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5268	5365	
==>the current value, 
this allows r/w access to the value.

=item B<apply (closure) return list>

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40378	40488	
==>oxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40378	40488	
==>oxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40378	40488	
==>oxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $valu <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	169	265	
==>group.  This is approximately the Match object that userland folks will
see, but it has some othe <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	169	265	
==>group.  This is approximately the Match object that userland folks will
see, but it has some othe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2443	2537	
==>owing the return value away.
Encryptions after this point will be using stronger portions of th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2443	2537	
==>owing the return value away.
Encryptions after this point will be using stronger portions of th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6397	6485	
==>ule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6397	6485	
==>ule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6397	6485	
==>ule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1017	1181	
==>' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '(' exp ')'         { $out= $_[2] }
;

list_left:  exp                 { $out= [ $_[1] ] }
        | <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25019	25116	
==>, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23783	23880	
==>, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25019	25116	
==>, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23783	23880	
==>, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1808	1940	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2013	2145	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2076	2208	
==>:create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:nam <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2715	2818	
==>ew( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2715	2818	
==>ew( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8605	8726	
==>rs>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$new <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8605	8726	
==>rs>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2349	2467	
==>art and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2349	2467	
==>art and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2349	2467	
==>art and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5136	5244	
==>my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16172	16280	
==>my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17660	17768	
==>my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22343	22451	
==>my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{da <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12511	12597	
==>(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	374	477	
==>s .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	374	477	
==>s .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	374	477	
==>s .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	623	719	
==>------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods ` <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	623	719	
==>------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9082	9198	
==>ndows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- klu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9082	9198	
==>ndows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- klu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9082	9198	
==>ndows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- klu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2097	2200	
==>($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2097	2200	
==>($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2458	2597	
==>ect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expected $.ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12449	12555	
==>r->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12449	12555	
==>r->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12449	12555	
==>r->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36189	36286	
==>: tail

=head2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array refer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3774	3898	
==>' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3774	3898	
==>' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3774	3898	
==>' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23711	23826	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::ge <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23990	24105	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::ge <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9837	9957	
==>ny other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2869	2989	
==>ny other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5800	5919	
==>$.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5800	5919	
==>$.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2355	2441	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)<?p6ws>?\=< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	786	886	
==>-------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	786	886	
==>-------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	786	886	
==>-------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7540	7630	
==>>meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
pu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1365	1455	
==>>meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
pu <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8376	8644	
==>w('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3760	3879	
==>l'))
        || confess "You must store a symbol type in a param list"
            foreach @values;
    $class->SUPER::n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	722	815	
==>@jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	722	815	
==>@jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	722	815	
==>@jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __c <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4861	5034	
==>$x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4861	5034	
==>$x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4737	4858	
==>urn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4737	4858	
==>urn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4737	4858	
==>urn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "T <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3472	3734	
==>e Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3472	3734	
==>e Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15996	16098	
==>$v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15996	16098	
==>$v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15996	16098	
==>$v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1562	1656	
==>eate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reve <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1562	1656	
==>eate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11612	11763	
==>sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11612	11763	
==>sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11612	11763	
==>sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell- <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9099	9192	
==>rn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9099	9192	
==>rn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2108	2228	
==>xpect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2108	2228	
==>xpect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2188	2308	
==>xpect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	85	177	
==>s::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	85	177	
==>s::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule-> <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23776	23902	
==>C_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #def <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1528	1632	
==>bsolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1528	1632	
==>bsolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28977	29078	
==>C_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #def <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1782	1879	
==>v->moniker)) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
} <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10610	10792	
==>ipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print("        $test{todo} <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	550	652	
==>e }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	550	652	
==>e }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33763	33858	
==>r French.  The order of these items corresponds to
an individual user's (or user role's) prefere <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33763	33858	
==>r French.  The order of these items corresponds to
an individual user's (or user role's) prefere <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25298	25469	
==>Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25298	25469	
==>Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25298	25469	
==>Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1493	1592	
==>"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1493	1592	
==>"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	679	783	
==>)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	679	783	
==>)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	679	783	
==>)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick() <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2827	2929	
==><err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2827	2929	
==><err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8827	8927	
==>'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8386	8478	
==>Bin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_roo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	98	190	
==>Bin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_roo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8386	8478	
==>Bin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_roo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8386	8478	
==>Bin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_roo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6102	6231	
==>value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6102	6231	
==>value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6102	6231	
==>value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1532	1645	
==>ind.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    } <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1532	1645	
==>ind.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4276	4382	
==>urn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  prin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4276	4382	
==>urn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  prin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4276	4382	
==>urn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  prin <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3632	3731	
==>er add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3632	3731	
==>er add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7363	7487	
==>:Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8715	8839	
==>:Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19383	19507	
==>:Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4515	4619	
==>n thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) ret <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4573	4677	
==>n thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9408	9532	
==>Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9396	9520	
==>Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	867	978	
==>ists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	867	978	
==>ists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	867	978	
==>ists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // rea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1506	1671	
==>);
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1506	1671	
==>);
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1506	1671	
==>);
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20171	20263	
==>ntains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but wi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20171	20263	
==>ntains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4789	4892	
==>f defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubleq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4789	4892	
==>f defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubleq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4789	4892	
==>f defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubleq <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5838	5934	
==>s/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Conte <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5838	5934	
==>s/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Conte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7458	7591	
==>" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7458	7591	
==>" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	334	441	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	334	441	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	334	441	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_ <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2063	2158	
==>ample, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would lo <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2063	2158	
==>ample, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1904	1995	
==>sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1904	1995	
==>sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1904	1995	
==>sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5379	5488	
==>,               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5379	5488	
==>,               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5379	5488	
==>,               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1330	1429	
==>onsists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1272	1368	
==>onsists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocat <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5232	5359	
==>mp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_ope <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5232	5359	
==>mp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_ope <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19332	19421	
==>om_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19332	19421	
==>om_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19332	19421	
==>om_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2445	2575	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2445	2575	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2445	2575	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7976	8067	
==>lete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7976	8067	
==>lete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14810	14928	
==>$text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14810	14928	
==>$text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2338	2449	
==>ssary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2338	2449	
==>ssary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2338	2449	
==>ssary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3916	4014	
==>tant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3916	4014	
==>tant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3916	4014	
==>tant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functio <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1134	1229	
==>rldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1134	1229	
==>rldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2086	2214	
==>( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $rec <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2086	2214	
==>( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $rec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2166	2294	
==>( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $rec <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1001	1096	
==>perations.)

Although it is secure when used properly, using it incorrectly can lead to 
serious <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1001	1096	
==>perations.)

Although it is secure when used properly, using it incorrectly can lead to 
serious <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	828	950	
==>lsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".* <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	828	950	
==>lsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1542	1639	
==>) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1542	1639	
==>) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1542	1639	
==>) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2665	2765	
==>';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2665	2765	
==>';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2665	2765	
==>';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($con <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15880	15979	
==>e a condition or error that,
while resembling a message that would be shown to a user, is in fact me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15880	15979	
==>e a condition or error that,
while resembling a message that would be shown to a user, is in fact me <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1079	1181	
==>tput );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the firs <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1079	1181	
==>tput );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the firs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1159	1261	
==>tput );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the firs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33030	33232	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33030	33232	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33030	33232	
==>'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6470	6585	
==>le($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6470	6585	
==>le($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5640	5800	
==>m, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5640	5800	
==>m, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5640	5800	
==>m, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            va <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3791	3889	
==>_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3791	3889	
==>_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	217	329	
==>E__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($class, $source) = @_;

    my $fil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7526	7617	
==>:MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chrom <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1754	1845	
==>:MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chrom <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9160	9251	
==>:MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chrom <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1972	2063	
==>:MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chrom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2591	2711	
==>$i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "foun <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2591	2711	
==>$i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "foun <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2591	2711	
==>$i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "foun <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1715	1810	
==>variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Single and <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1646	1739	
==>variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Single and <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1821	1956	
==>e.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1821	1956	
==>e.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3727	3852	
==>e;
        # Bool
        # Says whether this Relation::Example is mutable or not;
        # depending on the implementing cla <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2542	2661	
==>e.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2542	2661	
==>e.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1612	1812	
==>1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1612	1812	
==>1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1612	1812	
==>1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4847	4989	
==>ir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4847	4989	
==>ir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1521	1678	
==>ss @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1469	1620	
==>ss @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3189	3292	
==>de, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3189	3292	
==>de, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3189	3292	
==>de, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @a <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5663	5781	
==>chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5663	5781	
==>chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	191	302	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	191	302	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	191	302	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40978	41073	
==>this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40978	41073	
==>this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40978	41073	
==>this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5618	5708	
==>terator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.ne <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5618	5708	
==>terator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.ne <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	761	862	
==>) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method fin <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	761	862	
==>) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method fin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	400	494	
==>run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	400	494	
==>run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	400	494	
==>run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2683	2787	
==>= JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2683	2787	
==>= JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2683	2787	
==>= JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new P <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3285	3386	
==>^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3285	3386	
==>^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5368	5485	
==>p>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1906	2000	
==>ttle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Buil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9312	9406	
==>ttle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Buil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7678	7770	
==>ttle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Buil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2124	2216	
==>ttle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Buil <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8002	8095	
==>ti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:< <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7132	7225	
==>ti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8002	8095	
==>ti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7132	7225	
==>ti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:< <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30463	30556	
==>e into the node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree">).

=b <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4070	4193	
==>";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
} <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4070	4193	
==>";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	225	326	
==>s[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	225	326	
==>s[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	225	326	
==>s[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2150	2256	
==>od is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { retur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2150	2256	
==>od is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5870	5975	
==>b slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5870	5975	
==>b slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5870	5975	
==>b slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6991	7088	
==>eader("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Conte <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	575	672	
==>C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	575	672	
==>C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6991	7088	
==>eader("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Conte <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16353	16448	
==>hop>, only removes trailing chars that match C</\n/>. In
either case, it returns the number of c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4294	4397	
==>et $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4294	4397	
==>et $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5167	5269	
==>et $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5167	5269	
==>et $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34284	34372	
==>Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1068	1201	
==>s;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariabl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1068	1201	
==>s;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7536	7636	
==>S.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7536	7636	
==>S.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7536	7636	
==>S.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14469	14620	
==>self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14469	14620	
==>self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14469	14620	
==>self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self-> <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	723	857	
==>burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	723	857	
==>burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4511	4706	
==>::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4511	4706	
==>::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	573	688	
==>lete $param->{p};
    warn "Error in compile: unknown parameter '$_'" 
        for keys %$param;
    #print 'rule <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1205	1300	
==>ND> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1205	1300	
==>ND> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1098	1280	
==>s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1098	1280	
==>s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4109	4253	
==>f, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is imple <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4109	4253	
==>f, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is imple <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4109	4253	
==>f, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is imple <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2391	2497	
==>itive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2391	2497	
==>itive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2391	2497	
==>itive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overla <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2422	2510	
==>::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2422	2510	
==>::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	691	816	
==>return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture wa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	684	809	
==>return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture wa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9780	9891	
==>ntial things

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "c <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	169	267	
==>thin that string, and it provides the fundamental operations on strings as
combinators.

    $.text <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	169	267	
==>thin that string, and it provides the fundamental operations on strings as
combinators.

    $.text <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38184	38314	
==>e( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38184	38314	
==>e( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38184	38314	
==>e( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( i <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15081	15178	
==>se routines modify the string passed as the first argument, if
called in a void context.  In scala <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15081	15178	
==>se routines modify the string passed as the first argument, if
called in a void context.  In scala <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9656	9787	
==>0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9656	9787	
==>0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9656	9787	
==>0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    } <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5829	5921	
==>%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5829	5921	
==>%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	692	816	
==>arch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we h <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	692	816	
==>arch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6478	6574	
==>on of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6478	6574	
==>on of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6478	6574	
==>on of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, j <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3390	3505	
==>ndex is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3390	3505	
==>ndex is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1842	1952	
==>n.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub state <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1842	1952	
==>n.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub state <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1842	1952	
==>n.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	586	683	
==>");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	586	683	
==>");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1356	1449	
==>les'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1356	1449	
==>les'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1356	1449	
==>les'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_att <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16888	17027	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17167	17306	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7170	7280	
==>s copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7170	7280	
==>s copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7170	7280	
==>s copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2234	2362	
==>he path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2234	2362	
==>he path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2234	2362	
==>he path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1964	2074	
==>rule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1975	2085	
==>rule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    rule <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14501	14605	
==>TORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14501	14605	
==>TORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6264	6387	
==>($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PAR <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6264	6387	
==>($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PAR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20526	20624	
==><||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20526	20624	
==><||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20526	20624	
==><||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7845	7965	
==>f ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not impl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13439	13559	
==>f ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not impl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7845	7965	
==>f ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not impl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13433	13553	
==>f ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not impl <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7767	7871	
==>exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_comm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12051	12167	
==>| $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12051	12167	
==>| $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12051	12167	
==>| $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess " <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1071	1186	
==>self->keys );
	}

	sub values { values %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	207	318	
==>e 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & err <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3736	3832	
==>, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersect <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3736	3832	
==>, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6938	7028	
==>f => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6938	7028	
==>f => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6938	7028	
==>f => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6626	6745	
==>207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6626	6745	
==>207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2702	2807	
==>die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2702	2807	
==>die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2702	2807	
==>die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1145	1241	
==>*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $time <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1145	1241	
==>*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $time <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1145	1241	
==>*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $time <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1449	1544	
==>st}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1589	1684	
==>st}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10294	10419	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'im <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10573	10698	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'im <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10394	10501	
==>k, trimmed switches from the parms passed.

=cut

sub _cleaned_switches {
    my $self = shift;

    local $ <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1649	1739	
==>ns with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|Real $i <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3508	3597	
==>ns with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|Real $i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5914	6014	
==>AX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Ba <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5914	6014	
==>AX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Ba <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28383	28472	
==>rapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribut <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32935	33024	
==>rapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribut <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32063	32152	
==>rapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribut <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7786	7914	
==>.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7786	7914	
==>.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7786	7914	
==>.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5741	5864	
==>'%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10052	10175	
==>'%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1031	1128	
==>$tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove head <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1031	1128	
==>$tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1111	1208	
==>$tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove head <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22644	22737	
==>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22644	22737	
==>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE <==
5	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	647	754	
==>d $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = "Do you wan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7	108	
==>mmon/iterator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7	103	
==>mmon/iterator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	37	132	
==>mmon/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	37	132	
==>mmon/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	635	752	
==>F->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	635	752	
==>F->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	635	752	
==>F->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14595	14690	
==>nbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{par <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2076	2171	
==>nbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{par <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12411	12518	
==>->object(exact => chr oct $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4198	4301	
==>sh %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the toke <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4198	4301	
==>sh %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the toke <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4155	4256	
==>sh %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the toke <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4155	4256	
==>sh %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the toke <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7807	7938	
==>xp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7807	7938	
==>xp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7807	7938	
==>xp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	376	466	
==>r from referer
    www_authenticate authorization proxy_authorization authorization_basic p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	376	466	
==>r from referer
    www_authenticate authorization proxy_authorization authorization_basic p <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	18349	18552	
==>>content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16203	16310	
==>tart of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12624	12731	
==>tart of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3080	3181	
==>.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= S <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3080	3181	
==>.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7999	8140	
==>',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	337	464	
==>}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	337	464	
==>}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	337	464	
==>}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an att <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3553	3666	
==>name),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3553	3666	
==>name),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3553	3666	
==>name),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2455	2563	
==>(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2455	2563	
==>(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15361	15462	
==>resh_perl
#
# The $resolve must be a subref that tests the first argument
# for success, or returns th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	394	491	
==>5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Token <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	398	495	
==>5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Token <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	394	491	
==>5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Token <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	398	495	
==>5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Token <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1559	1670	
==>[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HAS <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1559	1670	
==>[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HAS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6765	6864	
==>ree software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut

1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6765	6864	
==>ree software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut

1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6765	6864	
==>ree software; you can redistribute it and/or modify it under the same
terms as Perl itself.

=cut

1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16340	16465	
==>e::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16340	16465	
==>e::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16629	16738	
==>return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16629	16738	
==>return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16629	16738	
==>return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	989	1107	
==>os;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	989	1107	
==>os;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	989	1107	
==>os;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1456	1573	
==>lean = (
        %$clean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6228	6322	
==>an 
a helper to other functions.  

=cut

## -------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6228	6322	
==>an 
a helper to other functions.  

=cut

## -------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6228	6322	
==>an 
a helper to other functions.  

=cut

## -------------------------------------------------- <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5204	5297	
==>thunk->val->struct_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $sy <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2911	3015	
==>late_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user te <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2911	3015	
==>late_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12952	13052	
==>ta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12952	13052	
==>ta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12952	13052	
==>ta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $labe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	44	302	
==>xt;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	44	302	
==>xt;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8795	8898	
==>) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8795	8898	
==>) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8795	8898	
==>) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expan <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6199	6333	
==>k_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $self->remove_re <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	783	879	
==>ass Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt] <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	783	879	
==>ass Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13409	13506	
==>r ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13409	13506	
==>r ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13409	13506	
==>r ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21715	21807	
==>head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks som <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21715	21807	
==>head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks som <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8424	8582	
==>XXX - need to wrap $k?
            }
            $A.property_value{$P} = $Result12;
            return;
        }
        # 5
        $A.property_value($P) = $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2670	2771	
==>fval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syn <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2670	2771	
==>fval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syn <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	274	365	
==>ldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::No <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	274	365	
==>ldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::No <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16387	16477	
==>mming language named "Rosetta D", which is computationally complete
(and industrial strengt <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16387	16477	
==>mming language named "Rosetta D", which is computationally complete
(and industrial strengt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8353	8590	
==>fy($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8353	8590	
==>fy($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8353	8590	
==>fy($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7541	7642	
==>e
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7541	7642	
==>e
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16834	16941	
==>orm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20311	20418	
==>orm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19889	19996	
==>orm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3519	3660	
==>, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $inde <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3983	4124	
==>, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $inde <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2956	3066	
==>RLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $bu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2956	3066	
==>RLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16446	16551	
==>hod ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16446	16551	
==>hod ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16446	16551	
==>hod ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2520	2644	
==>ed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub { _('$.description') <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26162	26262	
==>ll be used for the width of the terminal. If it is not
set then it will default to C<COLUMNS>. If thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	295	391	
==>trlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resour <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	295	391	
==>trlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resour <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	295	391	
==>trlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resour <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2280	2381	
==>ebug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2280	2381	
==>ebug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13896	13994	
==>) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13896	13994	
==>) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13896	13994	
==>) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11742	11838	
==>ven recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrenc <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11742	11838	
==>ven recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1072	1193	
==>p {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1072	1193	
==>p {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1072	1193	
==>p {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($f <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3207	3313	
==>);
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3207	3313	
==>);
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	634	733	
==>SubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	634	733	
==>SubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	634	733	
==>SubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33175	33270	
==>ge, the corresponding Template modules will be searched in the order
they appear in this array u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33175	33270	
==>ge, the corresponding Template modules will be searched in the order
they appear in this array u <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2482	2582	
==>s we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2482	2582	
==>s we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2624	2722	
==>xpected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
} <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2624	2722	
==>xpected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2704	2802	
==>xpected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
} <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2077	2176	
==>ype;
	my $to = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => B <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23145	23241	
==>DE> command. Note that you can supply both a nickname and a
channel name to the C<target> paramet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21954	22050	
==>DE> command. Note that you can supply both a nickname and a
channel name to the C<target> paramet <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23145	23241	
==>DE> command. Note that you can supply both a nickname and a
channel name to the C<target> paramet <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21954	22050	
==>DE> command. Note that you can supply both a nickname and a
channel name to the C<target> paramet <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1291	1396	
==>e {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1291	1396	
==>e {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1291	1396	
==>e {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    } <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6511	6613	
==>method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuffic <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6511	6613	
==>method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuffic <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10216	10363	
==>if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><IN <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10216	10363	
==>if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><IN <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	16114	16224	
==>maxsuflen = $suflen if $suflen > $maxsuflen;
    }
    # + 3 : we want three dots between the test name and the <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18740	18836	
==>u need to supply its $document and optional
$parent_node though; you can produce a direct clone l <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18740	18836	
==>u need to supply its $document and optional
$parent_node though; you can produce a direct clone l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4586	4707	
==>:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pars <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4586	4707	
==>:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->pars <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3536	3639	
==>ef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3536	3639	
==>ef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3536	3639	
==>ef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2740	2936	
==>e name
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6290	6387	
==>x:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5420	5517	
==>x:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6290	6387	
==>x:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5420	5517	
==>x:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (S <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4324	4467	
==>g"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "mi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4324	4467	
==>g"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "mi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	551	657	
==>%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	551	657	
==>%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	551	657	
==>%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wor <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29183	29303	
==>eturns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Temp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29183	29303	
==>eturns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Temp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	440	534	
==>'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	440	534	
==>'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	440	534	
==>'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4523	4639	
==>l to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4523	4639	
==>l to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13193	13301	
==>ping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sour <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16670	16778	
==>ping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sour <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16032	16140	
==>ping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sour <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7165	7269	
==>push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7165	7269	
==>push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7165	7269	
==>push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14923	15026	
==>OSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9123	9226	
==>OSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4661	4808	
==>t';
        return;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = shift;
    su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5042	5186	
==>f more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this fu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5042	5186	
==>f more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this fu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15495	15590	
==>ed, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will eas <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15553	15648	
==>ed, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will eas <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8399	8560	
==>ock );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4759	4920	
==>ock );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5608	5769	
==>ock );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_) <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1707	1817	
==>init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1707	1817	
==>init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14687	14825	
==>onstant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14966	15104	
==>onstant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6200	6291	
==>ide some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6200	6291	
==>ide some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8397	8488	
==>ide some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8458	8599	
==>turn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8458	8599	
==>turn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8458	8599	
==>turn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4100	4193	
==>ethod is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4100	4193	
==>ethod is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) return <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11373	11516	
==>evious () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11373	11516	
==>evious () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2028	2151	
==>AL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::i <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	240	344	
==>escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defi <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	240	344	
==>escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11581	11688	
==>XX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2017	2122	
==>XX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2017	2122	
==>XX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21934	22028	
==>that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you u <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21934	22028	
==>that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you u <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4824	4932	
==>arName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4824	4932	
==>arName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1730	1838	
==>arName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	206	301	
==>mes scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	206	301	
==>mes scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4859	4979	
==>he given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4859	4979	
==>he given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4859	4979	
==>he given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6355	6452	
==>t>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6355	6452	
==>t>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	494	620	
==>ue_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	699	825	
==>ue_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	755	881	
==>ue_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter, <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14279	14378	
==>$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each str <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14337	14436	
==>$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each str <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5270	5391	
==>>
    | <'short'>
    | <'boolean'>
    | <'export'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'> <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6183	6283	
==>t_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	672	766	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	672	766	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	672	766	
==>tive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8821	9018	
==>h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5181	5378	
==>h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6030	6227	
==>h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9078	9173	
==>hese methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9078	9173	
==>hese methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1266	1398	
==>nt \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1266	1398	
==>nt \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7564	7655	
==>ams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7564	7655	
==>ams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7564	7655	
==>ams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3120	3271	
==>e {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2998	3143	
==>e {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7932	8040	
==>Method SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTyp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7932	8040	
==>Method SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTyp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7932	8040	
==>Method SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTyp <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1208	1306	
==>returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1208	1306	
==>returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14048	14145	
==>($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14048	14145	
==>($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14048	14145	
==>($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21954	22155	
==>op::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::const <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22233	22434	
==>op::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::const <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	872	979	
==>RI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str i <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	872	979	
==>RI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str i <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	660	760	
==>gex/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no Smart::Commen <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5540	5653	
==>eaders::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $bou <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5540	5653	
==>eaders::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $bou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7681	7767	
==>return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7681	7767	
==>return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7681	7767	
==>return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3449	3549	
==>:fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3449	3549	
==>:fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3449	3549	
==>:fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18331	18422	
==>will employ appropriate measures
such as system-managed locks so that resource corruption or <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18331	18422	
==>will employ appropriate measures
such as system-managed locks so that resource corruption or <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10571	10697	
==>e_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10571	10697	
==>e_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	271	367	
==>::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	271	367	
==>::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	271	367	
==>::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	515	629	
==>ode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	515	629	
==>ode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	515	629	
==>ode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_P <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1965	2071	
==>path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1965	2071	
==>path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	640	751	
==>ke_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	640	751	
==>ke_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	640	751	
==>ke_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12285	12396	
==>ror(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4928	5039	
==>ror(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(a <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26275	26371	
==>, it will
default to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21492	21585	
==>6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND($v);}


my %space <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36497	36588	
==>takes a (machine-readable) Message object as its positional
parameter $message and returns a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36497	36588	
==>takes a (machine-readable) Message object as its positional
parameter $message and returns a <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5462	5549	
==>\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13503	13665	
==>y $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13503	13665	
==>y $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13503	13665	
==>y $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2388	2550	
==>y $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1852	1957	
==>ondie::Node/;
}

{
    package Blondie::Thunk;
    use base 'Blondie::Node::Unit';

    package Blondie::S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	664	774	
==>eturn } or a fail(),

           and it should not backtrack or whatever



Continuations are used for backtrac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10532	10642	
==>eturn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtrac <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2570	2678	
==>rrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2570	2678	
==>rrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	637	744	
==>eturn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtrac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7851	7977	
==>rsing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7851	7977	
==>rsing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7851	7977	
==>rsing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9896	9993	
==>lity functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9954	10051	
==>lity functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5856	5984	
==>gative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	559	664	
==>NCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	559	664	
==>NCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	559	664	
==>NCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_fo <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	694	794	
==>rl-compatible regular expressions

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	585	704	
==>m_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	585	704	
==>m_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	585	704	
==>m_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_ma <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2273	2369	
==>ways succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's n <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2273	2369	
==>ways succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's n <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1445	1640	
==>meta_dir -xz] )
                                                            and die $?;
            print "Writing .packlist equiv...\n";
            ### write a .packlist equiv
            system <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	12642	12765	
==>$.}};
      }
      $output .= "<span class='$class'>$rest</span>";
      
    }
#    $body->push_content("\n");
     $outpu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4414	4506	
==>red to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4414	4506	
==>red to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4414	4506	
==>red to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2191	2282	
==>'(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2191	2282	
==>'(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2191	2282	
==>'(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20213	20302	
==>ization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20213	20302	
==>ization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6783	6911	
==>y $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6783	6911	
==>y $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2331	2433	
==>xists  safe   (rw!Array: Int)\
multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13057	13155	
==>`

Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= AR <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13057	13155	
==>`

Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3614	3724	
==>_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3614	3724	
==>_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3614	3724	
==>_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $rea <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1942	2039	
==>mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1942	2039	
==>mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1985	2090	
==>:as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1985	2090	
==>:as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1985	2090	
==>:as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      P <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18595	18689	
==>s C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOP <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18595	18689	
==>s C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOP <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1435	1613	
==>words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character clas <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1435	1613	
==>words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character clas <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	349	470	
==>py_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	384	505	
==>py_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	349	470	
==>py_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = r <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9562	9683	
==>py_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = r <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3373	3478	
==>self->{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    foreach my $rv ($self->find_extens <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1075	1248	
==>::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1075	1248	
==>::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1075	1248	
==>::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32717	32812	
==>ion contains all the tuples of the source Relations, including
one copy each of any duplicated t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37267	37362	
==>ion contains all the tuples of the source Relations, including
one copy each of any duplicated t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1229	1359	
==>zy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1229	1359	
==>zy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1229	1359	
==>zy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can b <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	41	142	
==>e::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	41	142	
==>e::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7889	8022	
==>eral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13483	13616	
==>eral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7889	8022	
==>eral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13477	13610	
==>eral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8394	8508	
==>]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8382	8496	
==>]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5958	6055	
==>"types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "filling " . $self->dis <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3613	3706	
==>of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3613	3706	
==>of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35224	35363	
==>ray->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop lengt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35224	35363	
==>ray->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop lengt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35224	35363	
==>ray->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop lengt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10206	10338	
==>if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10206	10338	
==>if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->p <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3052	3151	
==>uess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type";
			return Blondie::Type <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3878	4009	
==>_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3866	3997	
==>_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quant <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2331	2425	
==>ead1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing- <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2331	2425	
==>ead1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing- <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39595	39683	
==>d
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation::Exam <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	125	282	
==>ing Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        2 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	125	282	
==>ing Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	524	638	
==>et {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_curr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	524	638	
==>et {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_curr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	524	638	
==>et {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_curr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28719	28812	
==>en't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33271	33364	
==>en't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attrib <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10099	10218	
==>d{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10093	10212	
==>d{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$na <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7682	7882	
==>wnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $ne <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7682	7882	
==>wnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2125	2227	
==>, "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2125	2227	
==>, "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2125	2227	
==>, "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6229	6339	
==>acro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6229	6339	
==>acro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6229	6339	
==>acro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $su <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7088	7184	
==>el::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SE <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7088	7184	
==>el::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SE <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	252	346	
==>SLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	252	346	
==>SLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	943	1040	
==><perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7344	7441	
==>= $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	943	1040	
==><perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	943	1040	
==><perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12662	12793	
==>tr $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12662	12793	
==>tr $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21294	21388	
==>x0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21294	21388	
==>x0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21294	21388	
==>x0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2440	2534	
==>self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2440	2534	
==>self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5643	5742	
==>];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5643	5742	
==>];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5643	5742	
==>];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = ob <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1781	1867	
==>Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3157	3243	
==>Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<p <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2504	2621	
==>é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2504	2621	
==>é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	766	859	
==>on to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constru <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	766	859	
==>on to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constru <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	766	859	
==>on to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constru <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6475	6593	
==>ETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fra <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6475	6593	
==>ETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9905	10016	
==>ch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9905	10016	
==>ch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9905	10016	
==>ch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will hand <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	770	886	
==>d";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	770	886	
==>d";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	770	886	
==>d";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16034	16144	
==>::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16034	16144	
==>::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16034	16144	
==>::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8753	8854	
==>y @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8753	8854	
==>y @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $spa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4011	4150	
==>s[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4011	4150	
==>s[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1206	1314	
==>js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__EN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1206	1314	
==>js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__EN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1206	1314	
==>js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9689	9855	
==>>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_singl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9689	9855	
==>>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_singl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9689	9855	
==>>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_singl <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1345	1451	
==>> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even though <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1345	1451	
==>> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even though <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3220	3349	
==>e (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3220	3349	
==>e (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1997	2102	
==>ss->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1997	2102	
==>ss->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1997	2102	
==>ss->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	316	432	
==>.}

=head1 See also

S02

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGI <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1999	2113	
==>TC") ) + $epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = int($sec);
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3938	4048	
==>ange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3938	4048	
==>ange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3938	4048	
==>ange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	586	683	
==>TTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	586	683	
==>TTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1142	1239	
==>TTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24366	24453	
==>arrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24366	24453	
==>arrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6638	6763	
==>start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6638	6763	
==>start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6638	6763	
==>start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35001	35099	
==>ge an existing Translator object, you must create a new
object that is a clone of the first but for <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35001	35099	
==>ge an existing Translator object, you must create a new
object that is a clone of the first but for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40199	40310	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40199	40310	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40199	40310	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1378	1487	
==>.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.compl <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1378	1487	
==>.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.compl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6485	6623	
==>de($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub un <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6485	6623	
==>de($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15774	15877	
==>$xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15774	15877	
==>$xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15774	15877	
==>$xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12589	12741	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12589	12741	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12589	12741	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3442	3545	
==>k_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3442	3545	
==>k_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4918	5025	
==>ub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15954	16061	
==>ub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17442	17549	
==>ub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22125	22232	
==>ub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4896	4995	
==>.. got the right cleared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8438	8598	
==>},
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => co <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8438	8598	
==>},
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1844	1941	
==>'Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1844	1941	
==>'Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1844	1941	
==>'Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7564	7689	
==>if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7564	7689	
==>if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2072	2175	
==>n, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $author <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2072	2175	
==>n, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $author <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2072	2175	
==>n, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $author <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7710	7820	
==>) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7710	7820	
==>) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1587	1686	
==>conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1587	1686	
==>conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1587	1686	
==>conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2494	2596	
==>TCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2494	2596	
==>TCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2494	2596	
==>TCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2372	2466	
==>use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2372	2466	
==>use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31095	31260	
==>tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31095	31260	
==>tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31095	31260	
==>tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8548	8683	
==>ile = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8548	8683	
==>ile = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $m <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1994	2089	
==>ler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=perl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1994	2089	
==>ler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12427	12605	
==>type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12427	12605	
==>type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12427	12605	
==>type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_par <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5975	6073	
==>ey should be careful to avoid changing the 
actual semantics.

Please note that most of the time, i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5975	6073	
==>ey should be careful to avoid changing the 
actual semantics.

Please note that most of the time, i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	910	1034	
==>, cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	910	1034	
==>, cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	910	1034	
==>, cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(ke <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6213	6312	
==>nk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VS <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6213	6312	
==>nk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	234	330	
==>c_files to reduce confusion and keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24261	24356	
==>AI or other interactive program controlling their
  actions) which are always seen to be replyin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23034	23129	
==>AI or other interactive program controlling their
  actions) which are always seen to be replyin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24261	24356	
==>AI or other interactive program controlling their
  actions) which are always seen to be replyin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23034	23129	
==>AI or other interactive program controlling their
  actions) which are always seen to be replyin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3421	3546	
==>$method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3421	3546	
==>$method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3421	3546	
==>$method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8117	8203	
==>mmar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->ass <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1942	2028	
==>mmar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->ass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5414	5514	
==>} ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5414	5514	
==>} ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5414	5514	
==>} ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12852	12949	
==>moved is returned.

Note that if you pass in multiple field names then it is generally not
possibl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12852	12949	
==>moved is returned.

Note that if you pass in multiple field names then it is generally not
possibl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	353	457	
==>nd ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	353	457	
==>nd ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	353	457	
==>nd ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1389	1481	
==>ew', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars ) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1389	1481	
==>ew', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22444	22569	
==>ment =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22723	22848	
==>ment =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	533	637	
==>te_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	533	637	
==>te_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	533	637	
==>te_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18291	18485	
==>dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18291	18485	
==>dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18291	18485	
==>dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	841	968	
==>[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	841	968	
==>[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6963	7066	
==>=> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11518	11621	
==>=> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12316	12419	
==>=> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13043	13146	
==>=> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10651	10748	
==>.= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2563	2676	
==>$ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2563	2676	
==>$ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2563	2676	
==>$ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15052	15148	
==>e multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15110	15206	
==>e multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1170	1353	
==>0_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        pus <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1049	1232	
==>0_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        pus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10643	10796	
==>her->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10643	10796	
==>her->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10643	10796	
==>her->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8075	8176	
==>nt"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8075	8176	
==>nt"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8075	8176	
==>nt"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18994	19105	
==>NE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BA <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18994	19105	
==>NE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	27	134	
==>g
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	27	134	
==>g
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	27	134	
==>g
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2973	3069	
==>perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2973	3069	
==>perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2973	3069	
==>perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21049	21142	
==>les
will automatically be compiled into .pmc files and shipped with your
distribtution precomp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21049	21142	
==>les
will automatically be compiled into .pmc files and shipped with your
distribtution precomp <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2023	2128	
==>ad2 $bool = $inst_pkg->uninstall

=cut

sub uninstall {
    my $self = shift;
    my $inst = $self->instal <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1537	1633	
==>SCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameter <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1299	1395	
==>SCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameter <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1537	1633	
==>SCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameter <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1299	1395	
==>SCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7826	7944	
==>slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rever <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7826	7944	
==>slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rever <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7826	7944	
==>slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rever <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	106	202	
==>an) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\". <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	106	202	
==>an) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\". <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5295	5401	
==>ch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5295	5401	
==>ch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5295	5401	
==>ch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1175	1260	
==>::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1175	1260	
==>::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1158	1257	
==>Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_htt <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1158	1257	
==>Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_htt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14159	14246	
==>.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14159	14246	
==>.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14159	14246	
==>.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	849	959	
==>ngth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	849	959	
==>ngth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	849	959	
==>ngth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      ret <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3842	3927	
==>nsert_children;

## ------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3842	3927	
==>nsert_children;

## ------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7824	7963	
==>ar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   (List, Code)\
\\n   List      spre    pre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6127	6249	
==>..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(.. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5932	6048	
==>..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(.. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2240	2355	
==>ts.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Reque <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2240	2355	
==>ts.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Reque <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	726	869	
==>f->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14259	14391	
==>did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any)
  number        test number (if any) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5207	5337	
==>itive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5207	5337	
==>itive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5207	5337	
==>itive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but a <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1603	1739	
==>) =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4806	4942	
==>) =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15028	15131	
==>xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15028	15131	
==>xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15028	15131	
==>xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	637	761	
==>> sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	734	858	
==>> sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5899	5988	
==>ode_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5899	5988	
==>ode_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2798	2887	
==>ode_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1023	1140	
==>$p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    while (1 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8606	8713	
==>nt<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<fro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8606	8713	
==>nt<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<fro <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	627	725	
==>eturns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	627	725	
==>eturns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3006	3205	
==>perclass(
                        ::opaque_instance_class($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->super <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16283	16376	
==>tribute if provided (it defaults to empty if the parameter's
corresponding argument is not pro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16283	16376	
==>tribute if provided (it defaults to empty if the parameter's
corresponding argument is not pro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1156	1249	
==>ead1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1156	1249	
==>ead1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1962	2128	
==>or &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1962	2128	
==>or &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1962	2128	
==>or &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15245	15350	
==>content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15245	15350	
==>content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3501	3627	
==>se_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3965	4091	
==>se_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7281	7383	
==>($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7281	7383	
==>($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7281	7383	
==>($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1903	2004	
==>_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1903	2004	
==>_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1903	2004	
==>_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	625	719	
==>plication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($tw <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	625	719	
==>plication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($tw <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3050	3256	
==>.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3050	3256	
==>.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2797	2895	
==>pace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2797	2895	
==>pace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2797	2895	
==>pace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12799	12927	
==>p   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12799	12927	
==>p   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12799	12927	
==>p   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13372	13484	
==>function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evalu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13372	13484	
==>function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evalu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2166	2284	
==>\$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2166	2284	
==>\$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2166	2284	
==>\$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26261	26358	
==>ty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate be <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26261	26358	
==>ty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3969	4118	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3969	4118	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3969	4118	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2401	2495	
==>ve_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2401	2495	
==>ve_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9162	9257	
==>_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9162	9257	
==>_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2263	2356	
==>thods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2263	2356	
==>thods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2263	2356	
==>thods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10873	11022	
==>' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10873	11022	
==>' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10873	11022	
==>' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6882	7011	
==>RAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($val <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6882	7011	
==>RAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($val <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4422	4557	
==>ent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_ty <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4422	4557	
==>ent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	492	599	
==>SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	492	599	
==>SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	492	599	
==>SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posB <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5392	5519	
==>',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5392	5519	
==>',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11128	11231	
==>shift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11128	11231	
==>shift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11128	11231	
==>shift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	791	900	
==>f(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	791	900	
==>f(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	791	900	
==>f(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15530	15626	
==>e used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more att <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15530	15626	
==>e used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3097	3226	
==>ject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4797	4921	
==>ject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3825	3945	
==>ject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	754	858	
==>allback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	754	858	
==>allback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	1363	1493	
==>l5/\s+/, $string);
        
        my @args = $string.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-ling <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	226	336	
==>and folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place wh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	920	1030	
==>ach Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	226	336	
==>and folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place wh <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	920	1030	
==>ach Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16944	17095	
==>s, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      el <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13365	13516	
==>s, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3549	3694	
==>ed slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scala <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3549	3694	
==>ed slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scala <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3549	3694	
==>ed slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scala <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11883	11994	
==>if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12306	12417	
==>if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4526	4637	
==>if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4949	5060	
==>if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1596	1693	
==>educe($node);
			return $self->constructor($reduced) . $self->layout($reduced->str);
		}
	}

	if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2530	2639	
==>1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  for <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2530	2639	
==>1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  for <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2877	2986	
==>1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  for <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6025	6129	
==>currence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrenc <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6025	6129	
==>currence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6735	6849	
==>f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6735	6849	
==>f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6735	6849	
==>f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2336	2436	
==>f: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2336	2436	
==>f: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9799	9934	
==>stitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parse <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6140	6275	
==>stitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6989	7124	
==>stitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parse <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	190	295	
==>el \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets you <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	190	295	
==>el \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets you <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6748	6923	
==>n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .d <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5252	5427	
==>n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34720	34832	
==>ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34720	34832	
==>ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34720	34832	
==>ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1304	1424	
==>(@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemake <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	642	761	
==>(@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemake <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11318	11407	
==>uilder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithRe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1774	1859	
==>uilder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithRe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1774	1859	
==>uilder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithRe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18813	18909	
==>urns an anonymous hash
definition.  While it is obvious that people who would be writing the text <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18813	18909	
==>urns an anonymous hash
definition.  While it is obvious that people who would be writing the text <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14287	14371	
==>::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Ro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14287	14371	
==>::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Ro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14287	14371	
==>::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Ro <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1553	1666	
==>ic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22494	22604	
==>an($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handle <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23057	23167	
==>an($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handle <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18915	19025	
==>an($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handle <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19478	19588	
==>an($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handle <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	951	1048	
==>my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remo <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	951	1048	
==>my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remo <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7854	7950	
==>nal structures.

Cipher authors should assume that if this method is being called, the Secret 
Po <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7854	7950	
==>nal structures.

Cipher authors should assume that if this method is being called, the Secret 
Po <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	3425	3517	
==>test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everything passed but F<t/wat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1635	1740	
==>0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1635	1740	
==>0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1635	1740	
==>0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37359	37452	
==>em C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41908	42001	
==>em C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3465	3583	
==>name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    precedence <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5140	5242	
==>}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4267	4369	
==>}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5140	5242	
==>}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4267	4369	
==>}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8802	8908	
==>ests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8860	8966	
==>ests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6758	6853	
==>bject',
   '... got the right return value from Object singleton/class method');

$Object->add_s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	200	294	
==>ests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	258	352	
==>ests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3507	3604	
==>ng.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6984	7081	
==>ng.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5941	6038	
==>ng.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4233	4321	
==>face::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4233	4321	
==>face::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "R <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1394	1497	
==>::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1394	1497	
==>::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	315	421	
==>&& $value->isa('type'))
        || confess "You must provide a value to reference";
    bless \$value => $c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4236	4335	
==>d of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5133	5232	
==>d of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4236	4335	
==>d of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5133	5232	
==>d of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11890	12029	
==>supported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11890	12029	
==>supported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11890	12029	
==>supported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
} <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6478	6574	
==>e_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6478	6574	
==>e_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12220	12347	
==>n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $runperl = q <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12170	12267	
==>et, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy of <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16750	16847	
==>et, then each element in it is used to
initialize a new Node object (plus an optional hierarchy of <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12170	12267	
==>et, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy of <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16750	16847	
==>et, then each element in it is used to
initialize a new Node object (plus an optional hierarchy of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	259	356	
==>lf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	259	356	
==>lf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	259	356	
==>lf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19818	19914	
==>the
"Basic Authentication Scheme".  In array context it will return two
values; the user name and <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19818	19914	
==>the
"Basic Authentication Scheme".  In array context it will return two
values; the user name and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33687	33806	
==>) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33687	33806	
==>) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33687	33806	
==>) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	864	982	
==>$$o->{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{'from'}  = $from;
    $$o->{'to'}    = $to;
    retur <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1128	1238	
==>s {
    has $.ReadOnly;
    has $.DontEnum;
    has $.DontDelete;
}

class JSX::Value;
has $.property_value;
ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9431	9561	
==>-; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9431	9561	
==>-; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9431	9561	
==>-; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @li <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	506	605	
==>tatement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	712	811	
==>tatement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{cap <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	140	245	
==>k;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	140	245	
==>k;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4819	4914	
==>n sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4819	4914	
==>n sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4819	4914	
==>n sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	142	240	
==>er';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	142	240	
==>er';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	142	240	
==>er';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4240	4355	
==>ache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as ke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4240	4355	
==>ache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as ke <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	10971	11084	
==>miter was specified)
      my $regex    = $7; 
      # captures delimited portion of the string (provided only one <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4753	4864	
==>ache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # ke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4753	4864	
==>ache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # ke <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	737	842	
==>d %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param< <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	737	842	
==>d %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1845	1942	
==>Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1845	1942	
==>Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1845	1942	
==>Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-sl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2379	2518	
==>print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        jo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2379	2518	
==>print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        jo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2379	2518	
==>print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        jo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37950	38045	
==>y(
$msg_key ) and return that subroutine's result, which is a Template text
string if the module <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37950	38045	
==>y(
$msg_key ) and return that subroutine's result, which is a Template text
string if the module <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7691	7812	
==>=> chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7691	7812	
==>=> chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4299	4400	
==>f $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4299	4400	
==>f $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4299	4400	
==>f $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12812	12908	
==>t2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9588	9684	
==>t2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12812	12908	
==>t2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9588	9684	
==>t2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26603	26696	
==>er
is(t($id), "∀α. α → α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t($plus_ten) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2675	2784	
==>onal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2675	2784	
==>onal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3022	3131	
==>onal
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12453	12550	
==>set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12453	12550	
==>set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3684	3778	
==>-> C<clear>

=back

Please read the HTTP::Query documentation for more information on these met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	118	212	
==>s primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3684	3778	
==>-> C<clear>

=back

Please read the HTTP::Query documentation for more information on these met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	118	212	
==>s primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	118	212	
==>s primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12079	12238	
==>params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12079	12238	
==>params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12079	12238	
==>params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidat <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2579	2664	
==>roup/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6. <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2579	2664	
==>roup/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30654	30750	
==>eading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding tr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35205	35301	
==>eading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding tr <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5981	6069	
==>rst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5981	6069	
==>rst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8178	8266	
==>rst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2776	2883	
==>at are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2776	2883	
==>at are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1302	1401	
==>class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(": <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1302	1401	
==>class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(": <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1302	1401	
==>class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(": <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5586	5715	
==>ditor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5586	5715	
==>ditor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5586	5715	
==>ditor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12350	12442	
==>hat attribute defaults to empty if the parameter's
corresponding argument is undefined).  The <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12350	12442	
==>hat attribute defaults to empty if the parameter's
corresponding argument is undefined).  The <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7696	7809	
==>emove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7696	7809	
==>emove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3027	3124	
==>RR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3027	3124	
==>RR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3027	3124	
==>RR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2219	2349	
==>", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2219	2349	
==>", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2219	2349	
==>", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1751	1862	
==>ler_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1751	1862	
==>ler_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	77	205	
==>le ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	77	205	
==>le ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1030	1131	
==>::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1030	1131	
==>::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1030	1131	
==>::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12069	12191	
==>e;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12069	12191	
==>e;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12069	12191	
==>e;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $p <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1206	1317	
==>esc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expec <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1264	1375	
==>esc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expec <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1165	1280	
==>hod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1165	1280	
==>hod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5415	5526	
==>lf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5415	5526	
==>lf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5415	5526	
==>lf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $me <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10961	11093	
==>tion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12432	12564	
==>tion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14438	14570	
==>tion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15909	16041	
==>tion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10158	10257	
==>},
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	524	643	
==>mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	524	643	
==>mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	524	643	
==>mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instan <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	277	382	
==>k {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub ru <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	277	382	
==>k {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub ru <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	526	711	
==>ss->name =>
              { instance =>
                { methods => { map { $_->name => $_->code }
                               $class->methods->members
                             } <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4164	4264	
==>/ `end()`

Return the start or end value of the span.

These methods may return nothing if the span i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15344	15444	
==>/ `end()`

Return the start or end value of the span.

These methods may return nothing if the span i <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4164	4264	
==>/ `end()`

Return the start or end value of the span.

These methods may return nothing if the span i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15344	15444	
==>/ `end()`

Return the start or end value of the span.

These methods may return nothing if the span i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	625	753	
==>e = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	618	746	
==>e = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4018	4123	
==>AheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4018	4123	
==>AheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4018	4123	
==>AheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2782	2903	
==>{
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2782	2903	
==>{
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2782	2903	
==>{
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	567	659	
==>ON

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	567	659	
==>ON

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33929	34041	
==>items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33929	34041	
==>items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33929	34041	
==>items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10171	10269	
==>l parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, e <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10171	10269	
==>l parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31629	31792	
==>hift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31629	31792	
==>hift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31629	31792	
==>hift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1236	1356	
==>te_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1236	1356	
==>te_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	423	530	
==>eep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	423	530	
==>eep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	423	530	
==>eep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13336	13429	
==>ormat for
Document.new(), by which you can create an identical Document (with member
Nodes) to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13336	13429	
==>ormat for
Document.new(), by which you can create an identical Document (with member
Nodes) to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	316	414	
==>ions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	316	414	
==>ions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	316	414	
==>ions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in or <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23972	24066	
==>SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23972	24066	
==>SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This doc <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16189	16288	
==>- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16189	16288	
==>- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	417	512	
==>multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	417	512	
==>multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	417	512	
==>multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6799	6943	
==>nf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6799	6943	
==>nf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.span <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2427	2546	
==>ctional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2427	2546	
==>ctional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5450	5553	
==>f_class => $S->force_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_ha <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11142	11254	
==>/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11142	11254	
==>/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1712	1810	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1712	1810	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1712	1810	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10031	10241	
==>r' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10031	10241	
==>r' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10031	10241	
==>r' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                ret <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7979	8075	
==>=item' directive is reached, the next event fired will be
any text which follows the item.

=item <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7979	8075	
==>=item' directive is reached, the next event fired will be
any text which follows the item.

=item <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6862	7128	
==>/) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6862	7128	
==>/) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18830	19030	
==>er = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18830	19030	
==>er = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18830	19030	
==>er = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16900	17024	
==>@{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13321	13445	
==>@{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1167	1281	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1167	1281	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1167	1281	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $in <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11331	11506	
==>ard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $do <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11331	11506	
==>ard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8694	8815	
==>:isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8694	8815	
==>:isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8694	8815	
==>:isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4275	4420	
==>+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4275	4420	
==>+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14873	14969	
==>th_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18350	18446	
==>th_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17766	17862	
==>th_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31373	31466	
==>ction in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35923	36016	
==>ction in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35141	35234	
==>ction in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18638	18727	
==>node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of No <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18638	18727	
==>node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of No <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14043	14139	
==>KMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14043	14139	
==>KMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14043	14139	
==>KMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16252	16343	
==>imple but effective mechanism for
applications and packages that empowers single binaries to <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16252	16343	
==>imple but effective mechanism for
applications and packages that empowers single binaries to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	442	547	
==>rint dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1231	1336	
==>rint dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22566	22660	
==>t has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ov <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27118	27212	
==>t has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ov <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25850	25944	
==>t has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=ov <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	735	974	
==>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7941	8042	
==>dd_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7941	8042	
==>dd_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7941	8042	
==>dd_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add <==
5	/Users/nnunley/pugs/util/package-osx.pl	6479	6576	
==>::Rule.3
        /usr/local/man/man3/Perl6::Overview::Rule.3pm
        /usr/local/man/man3/Perl6:: <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2352	2446	
==>ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-co <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2352	2446	
==>ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2602	2690	
==>$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2602	2690	
==>$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2602	2690	
==>$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_me <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19292	19418	
==>_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15713	15839	
==>_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      i <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8991	9095	
==>0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @kv;
    for my $k (@{$_[0]->info->{'fields'}}) <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	331	433	
==>eMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	331	433	
==>eMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13577	13779	
==>e {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13577	13779	
==>e {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13577	13779	
==>e {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	273	397	
==>lat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	273	397	
==>lat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19282	19394	
==>};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19282	19394	
==>};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19282	19394	
==>};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11079	11177	
==>be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that jo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11079	11177	
==>be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that jo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4758	4857	
==>pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4758	4857	
==>pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6282	6381	
==>pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
the <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	447	545	
==>head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perld <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	447	545	
==>head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perld <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11550	11651	
==>re done for this, but maybe I will
figure out a good way to do this without. Either way it is still TO <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11550	11651	
==>re done for this, but maybe I will
figure out a good way to do this without. Either way it is still TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2716	2816	
==>@_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2716	2816	
==>@_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2716	2816	
==>@_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..I <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1961	2093	
==>(0),
                        :tz(tz "UTC") ) + $epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2362	2485	
==>ATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '' <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2362	2485	
==>ATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '' <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4154	4272	
==>nfig {
    my $self = shift;
    my $base = $self->is_extension_build
    ? '../..'
    : $self->{_top}{base};

    # E <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16412	16501	
==>ualityExpression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <Relat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16	127	
==>l5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16	127	
==>l5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16	127	
==>l5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18528	18620	
==>C functions
which get called on regular expression compilation and execution) to
parasitize t <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2818	2910	
==>C functions
which get called on regular expression compilation and execution) to
parasitize t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12014	12123	
==>name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4657	4766	
==>name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3084	3189	
==>elf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3084	3189	
==>elf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3084	3189	
==>elf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	80	189	
==>$_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	80	189	
==>$_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	80	189	
==>$_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10144	10242	
==>!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10144	10242	
==>!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4699	4800	
==>()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4699	4800	
==>()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1055	1151	
==>)", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1055	1151	
==>)", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1055	1151	
==>)", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4040	4154	
==>ds.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4040	4154	
==>ds.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4040	4154	
==>ds.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1604	1700	
==>rl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLe <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1604	1700	
==>rl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6011	6196	
==>e + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6011	6196	
==>e + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6011	6196	
==>e + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( d <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4577	4679	
==>ifference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4577	4679	
==>ifference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12882	12985	
==>Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12882	12985	
==>Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12882	12985	
==>Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9710	9808	
==>t;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9710	9808	
==>t;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6090	6205	
==>dd_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2014	2121	
==>| return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2014	2121	
==>| return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1254	1353	
==>| return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3115	3214	
==>| return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13540	13686	
==>o this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13540	13686	
==>o this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13540	13686	
==>o this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Arr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7917	8017	
==>ns => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7917	8017	
==>ns => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	785	900	
==>ersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.joi <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	785	900	
==>ersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.joi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1481	1595	
==>e 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1481	1595	
==>e 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1481	1595	
==>e 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        s <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	2052	2158	
==>|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die <<".";
Can't generate the correct Perl6 eq <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	105	204	
==>htigte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann auch da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3158	3248	
==>/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3158	3248	
==>/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3505	3595	
==>/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38851	38948	
==>n.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Cop <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43665	43762	
==>n.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Cop <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43199	43296	
==>n.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Cop <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3181	3277	
==>$expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3239	3335	
==>$expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5419	5590	
==>1 };
                    
                ### dump out alternatives again
                DumpFile( $Altfile, $href );

                my $postinst = $meta_dir . '/'. $Pos <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6396	6520	
==>match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 inf <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6396	6520	
==>match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 inf <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10158	10267	
==>y for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10158	10267	
==>y for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8448	8571	
==>warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8448	8571	
==>warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8448	8571	
==>warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3438	3528	
==>($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3496	3586	
==>($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6003	6190	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6003	6190	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6003	6190	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fe <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4509	4645	
==>@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4509	4645	
==>@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1393	1491	
==>trings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by givi <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1393	1491	
==>trings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by givi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17423	17519	
==>ues.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17423	17519	
==>ues.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17423	17519	
==>ues.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3251	3359	
==>ctuator>
}
rule InputElementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	9	112	
==>all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	9	112	
==>all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	9	112	
==>all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	146	241	
==>d substitution are used, and
# this brute-force, simplistic, and extremely foolish
# script, ign <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	155	258	
==>use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	155	258	
==>use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	155	258	
==>use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $se <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7282	7378	
==>ersal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$travers <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7282	7378	
==>ersal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$travers <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3322	3489	
==>) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('ri <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3322	3489	
==>) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('ri <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16734	16843	
==>his place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16734	16843	
==>his place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.con <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12963	13062	
==>see 11.1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNameAndValu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8020	8156	
==>i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8020	8156	
==>i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8020	8156	
==>i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6193	6307	
==>);
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<* <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6193	6307	
==>);
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<* <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3738	3986	
==>terface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3738	3986	
==>terface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

= <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3421	3573	
==>eps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _p <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3885	4037	
==>eps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6138	6237	
==>mplemented\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'} <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3767	3875	
==>Stmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3767	3875	
==>Stmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  ' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	617	725	
==>Stmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  ' <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1330	1427	
==>gument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1330	1427	
==>gument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4876	4977	
==>c) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5220	5321	
==>c) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	891	980	
==>copeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	891	980	
==>copeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	891	980	
==>copeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	995	1104	
==>le::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 D <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	995	1104	
==>le::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 D <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8418	8521	
==>.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	618	711	
==>.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	618	711	
==>.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3833	3946	
==>ule . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might b <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3833	3946	
==>ule . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	726	824	
==>}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	726	824	
==>}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	726	824	
==>}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5730	5846	
==>or (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5788	5904	
==>or (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21199	21297	
==>ys whether
they're being turned on or off.  Also, if the flag handler returns 0,
that flag is remov <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22281	22376	
==>ages which
have the same method names as you or each other, or having multiple search
directorie <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22281	22376	
==>ages which
have the same method names as you or each other, or having multiple search
directorie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1561	1673	
==>->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1561	1673	
==>->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1561	1673	
==>->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19580	19668	
==>e on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=hea <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19580	19668	
==>e on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	162	261	
==>temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	162	261	
==>temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	162	261	
==>temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9519	9615	
==>in a particular order.  The
field names are cases insensitive.

Instances of this class are usual <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9519	9615	
==>in a particular order.  The
field names are cases insensitive.

Instances of this class are usual <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12275	12395	
==>value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12275	12395	
==>value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12275	12395	
==>value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no wa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	266	375	
==>$subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - sou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	266	375	
==>$subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - sou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1037	1148	
==>[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1037	1148	
==>[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1037	1148	
==>[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(ne <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36823	36916	
==>t is like
C<union> except that the returned Relation::Example contains only tuples that are in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37323	37416	
==>t is like
C<union> except that the returned Relation::Example contains only tuples that are in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1083	1204	
==>LE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13738	13839	
==>" method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16540	16641	
==>sionNoIn :words {  # see 11.9
      <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'=='> < <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13738	13839	
==>" method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13738	13839	
==>" method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7519	7608	
==>{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7519	7608	
==>{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<chann <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14752	14900	
==>rs/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14752	14900	
==>rs/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14752	14900	
==>rs/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20714	20812	
==>ines or export such.

The usual way that Relation indicates a failure is to throw an exception;
mos <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25266	25364	
==>ines or export such.

The usual way that Relation indicates a failure is to throw an exception;
mos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10399	10509	
==>'${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10399	10509	
==>'${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10399	10509	
==>'${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    } <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11810	11906	
==>:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you can <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11868	11964	
==>:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you can <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12323	12493	
==>i) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12323	12493	
==>i) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3219	3321	
==>y make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3219	3321	
==>y make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3219	3321	
==>y make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1699	1824	
==>))
        || confess "The right hand side must be a core type";    
    ($right->to_num->to_native != 0)
        || confess " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1204	1312	
==>re picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8796	8904	
==>$1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1204	1312	
==>re picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1204	1312	
==>re picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then b <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4476	4613	
==>=> 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4476	4613	
==>=> 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14365	14471	
==>rn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14365	14471	
==>rn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14365	14471	
==>rn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	594	703	
==>SET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (St <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	594	703	
==>SET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6007	6101	
==>a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6007	6101	
==>a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6007	6101	
==>a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4417	4528	
==>name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4429	4540	
==>name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21392	21489	
==>)) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21392	21489	
==>)) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21392	21489	
==>)) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1360	1555	
==>( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1360	1555	
==>( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1360	1555	
==>( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary- <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	285	384	
==>pen( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	285	384	
==>pen( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9635	9745	
==>$pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9635	9745	
==>$pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9635	9745	
==>$pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21309	21405	
==>ight 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is fr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21309	21405	
==>ight 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is fr <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2375	2544	
==>_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4177	4305	
==>ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4177	4305	
==>ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4177	4305	
==>ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNat <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8019	8142	
==>($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2)) <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	598	730	
==>te-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	598	730	
==>te-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22424	22522	
==>me result when invoked on the
same object with the same arguments; they do not interact with the ou <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26976	27074	
==>me result when invoked on the
same object with the same arguments; they do not interact with the ou <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25699	25797	
==>me result when invoked on the
same object with the same arguments; they do not interact with the ou <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13004	13098	
==>ch field.

=item $h.remove_content_headers

This will remove all the header fields used to desc <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37845	37939	
==>ation is
the result of first pairwise-matching every tuple of each source relation
with every t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42394	42488	
==>ation is
the result of first pairwise-matching every tuple of each source relation
with every t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42044	42138	
==>ation is
the result of first pairwise-matching every tuple of each source relation
with every t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13004	13098	
==>ch field.

=item $h.remove_content_headers

This will remove all the header fields used to desc <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2558	2687	
==>ethod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2558	2687	
==>ethod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16913	17000	
==>:make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16913	17000	
==>:make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16913	17000	
==>:make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attrib <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4753	4951	
==>ash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method g <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4753	4951	
==>ash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method g <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	17	106	
==>es JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	17	106	
==>es JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	17	106	
==>es JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19632	19727	
==>rnal files, such as a 2-column
plain-text format that will be much easier for a non-programmer t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19632	19727	
==>rnal files, such as a 2-column
plain-text format that will be much easier for a non-programmer t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5019	5122	
==>e Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1207	1310	
==>r, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5019	5122	
==>e Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1207	1310	
==>r, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1207	1310	
==>r, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13876	14013	
==>ch;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14155	14292	
==>ch;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10590	10700	
==>eturn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10590	10700	
==>eturn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10590	10700	
==>eturn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	425	541	
==>g).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but ra <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	425	541	
==>g).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but ra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38314	38418	
==>item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38314	38418	
==>item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38314	38418	
==>item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	863	980	
==>match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	863	980	
==>match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6571	6675	
==>self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6571	6675	
==>self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6571	6675	
==>self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_insta <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7686	7886	
==>ep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnum <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7686	7886	
==>ep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnum <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5423	5546	
==>'{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5423	5546	
==>'{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19530	19645	
==>rnals::sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List ) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7911	8013	
==>ke set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7041	7143	
==>ke set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7911	8013	
==>ke set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7041	7143	
==>ke set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15715	15817	
==>' => hash->new());
                $e->create('&dispatcher' => $e->get('$class:')->send('dispatcher' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2982	3094	
==>class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2982	3094	
==>class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2982	3094	
==>class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	207	303	
==>q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	207	303	
==>q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8275	8433	
==>fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8275	8433	
==>fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return s <==
5	/Users/nnunley/pugs/util/func_refact.pl	1034	1153	
==>nion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	772	880	
==>makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	673	781	
==>makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3744	3909	
==>%$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3744	3909	
==>%$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6647	6744	
==>to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6647	6744	
==>to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6647	6744	
==>to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10057	10232	
==>);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10057	10232	
==>);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6724	6828	
==>}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6724	6828	
==>}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6724	6828	
==>}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3876	3994	
==>e "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{prel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3876	3994	
==>e "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{prel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3876	3994	
==>e "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{prel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34842	34939	
==>Note that a Translator object does not permit changes to its attributes;
they must all be set when <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34842	34939	
==>Note that a Translator object does not permit changes to its attributes;
they must all be set when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9087	9250	
==>ef($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifte <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9087	9250	
==>ef($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifte <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9087	9250	
==>ef($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifte <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2545	2650	
==>return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2545	2650	
==>return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16965	17078	
==>_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16965	17078	
==>_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16965	17078	
==>_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14665	14767	
==>eue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if define <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14665	14767	
==>eue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1212	1329	
==>@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1212	1329	
==>@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1212	1329	
==>@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.l <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5742	5836	
==>turn Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5742	5836	
==>turn Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1650	1777	
==>emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'H <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2393	2520	
==>emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'H <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4229	4356	
==>{
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = map { $_ eq $item ? '' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1650	1777	
==>emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'H <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2381	2508	
==>emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33506	33624	
==>array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33506	33624	
==>array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33506	33624	
==>array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1644	1739	
==>erl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1644	1739	
==>erl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Comp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1615	1718	
==>turn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1615	1718	
==>turn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15109	15231	
==>rn $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't un <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1515	1631	
==>ble to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1515	1631	
==>ble to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11717	11826	
==>_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
asc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11711	11820	
==>_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
asc <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	337	442	
==>_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	882	987	
==>_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	337	442	
==>_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	882	987	
==>_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	882	987	
==>_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2323	2435	
==>h{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2323	2435	
==>h{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2323	2435	
==>h{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41008	41100	
==>=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and pro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41008	41100	
==>=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and pro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9364	9479	
==>->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9364	9479	
==>->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1977	2065	
==>ini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1977	2065	
==>ini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1977	2065	
==>ini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5303	5416	
==>> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5303	5416	
==>> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5303	5416	
==>> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12552	12644	
==>erset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12552	12644	
==>erset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11615	11740	
==>r example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2099	2221	
==>r example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8871	8993	
==>r example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2099	2221	
==>r example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8871	8993	
==>r example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2373	2504	
==>e($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2373	2504	
==>e($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5758	5854	
==>tus returns Hash>

This method calls the superclass C<status> method and adds the values of the
t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5758	5854	
==>tus returns Hash>

This method calls the superclass C<status> method and adds the values of the
t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7955	8051	
==>tus returns Hash>

This method calls the superclass C<status> method and adds the values of the
t <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3658	3770	
==>ute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are list <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3658	3770	
==>ute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are list <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7015	7112	
==>matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7015	7112	
==>matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7015	7112	
==>matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14686	14777	
==>r ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInterac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14686	14777	
==>r ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInterac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14686	14777	
==>r ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInterac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	528	616	
==>a = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	528	616	
==>a = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12466	12574	
==>rimitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12466	12574	
==>rimitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12466	12574	
==>rimitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7866	7963	
==>lled by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7866	7963	
==>lled by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<chann <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7686	7789	
==>eys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7686	7789	
==>eys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7686	7789	
==>eys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    m <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5675	5770	
==>um%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/26214 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5675	5770	
==>um%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/26214 <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	2533	2652	
==>OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate so <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23570	23672	
==>$mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23570	23672	
==>$mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23570	23672	
==>$mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/ <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	302	404	
==>OT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
main(int ac, char **a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3151	3312	
==>d from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3151	3312	
==>d from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4053	4201	
==>[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3929	4072	
==>[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	140	242	
==>ic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub regi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	951	1057	
==>s);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	951	1057	
==>s);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	951	1057	
==>s);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10652	10749	
==>'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns tha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10652	10749	
==>'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns tha <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3431	3535	
==>the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3431	3535	
==>the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9219	9335	
==>lock->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $k <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9219	9335	
==>lock->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $k <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2862	2959	
==>nals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2862	2959	
==>nals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2862	2959	
==>nals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16707	16822	
==>head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "ble <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16707	16822	
==>head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "ble <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2550	2638	
==>oks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2550	2638	
==>oks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2550	2638	
==>oks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	300	402	
==>ess {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	300	402	
==>ess {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	300	402	
==>ess {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bles <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5744	5845	
==>k>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5744	5845	
==>k>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels an <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5768	5933	
==>r str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5768	5933	
==>r str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5768	5933	
==>r str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7840	7945	
==>name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'") <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7898	8003	
==>name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'") <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1314	1411	
==>a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method o <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1314	1411	
==>a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method o <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16262	16356	
==>he list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1892	1986	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16262	16356	
==>he list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yiel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1892	1986	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1892	1986	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2708	2809	
==>r platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2708	2809	
==>r platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3684	3784	
==>JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3684	3784	
==>JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3684	3784	
==>JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Coul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	274	385	
==>);
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	274	385	
==>);
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	274	385	
==>);
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &in <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6054	6145	
==>id right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6054	6145	
==>id right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2159	2260	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2159	2260	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2159	2260	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21225	21313	
==>ed.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21225	21313	
==>ed.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7718	7823	
==>$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an opti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7457	7558	
==>$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an opti <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13360	13459	
==>e($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13360	13459	
==>e($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13360	13459	
==>e($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15575	15694	
==>}{angle_quoted} . '\' }';
    }

    return _not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	24	134	
==>nt::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	24	134	
==>nt::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8191	8292	
==>(!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8249	8350	
==>(!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9430	9537	
==>ec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('sec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9430	9537	
==>ec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('sec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22760	22861	
==>ned $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22760	22861	
==>ned $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22760	22861	
==>ned $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5534	5676	
==><= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ', <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5534	5676	
==><= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14933	15045	
==>my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14933	15045	
==>my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14933	15045	
==>my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "". <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19778	19872	
==>or set an authorization header that use the
"Basic Authentication Scheme".  In array context it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19778	19872	
==>or set an authorization header that use the
"Basic Authentication Scheme".  In array context it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20289	20377	
==>match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20289	20377	
==>match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20289	20377	
==>match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	993	1101	
==>mple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	993	1101	
==>mple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5635	5738	
==>d files



=head1 Compiler processes



### separate "processes" from actual module documentation?



=h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5442	5539	
==>d files

=head1 Compiler processes

### separate "processes" from actual module documentation?

=h <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1931	2023	
==>ers::macif(%?CONFIG{'num_width'} == 64, 'subset num of num64  where { true }');
Helpers::maci <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6283	6397	
==>[$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy lis <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6283	6397	
==>[$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1076	1168	
==>::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1076	1168	
==>::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1076	1168	
==>::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelud <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	772	926	
==>ir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            syst <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	433	530	
==>ument for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	437	534	
==>ument for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	433	530	
==>ument for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	437	534	
==>ument for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) i <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6599	6706	
==>Unicode categories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | <Mc>
}
rule <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10975	11073	
==>simple container which stores data to be used or
displayed by your program.  It is analagous to a s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14138	14236	
==>simple container which stores data to be used or
displayed by your program.  It is analagous to a s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10975	11073	
==>simple container which stores data to be used or
displayed by your program.  It is analagous to a s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14138	14236	
==>simple container which stores data to be used or
displayed by your program.  It is analagous to a s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	537	771	
==>n 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= " <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	537	771	
==>n 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= " <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17940	18063	
==>can(...)" );
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't interfere with cal <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24807	24903	
==>named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Bo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24807	24903	
==>named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Bo <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5164	5297	
==>$result{ok}
            };

            assert( defined( $details->{ok} ) && defined( $details->{actual_ok} ) );

            # We don <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9763	9878	
==>i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9763	9878	
==>i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9763	9878	
==>i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	21	134	
==>:SExpParser;

use strict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	326	439	
==>l 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	531	644	
==>l 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	587	700	
==>l 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	368	468	
==>btraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# u <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	368	468	
==>btraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# u <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8856	8969	
==>self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8856	8969	
==>self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10868	10967	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10868	10967	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10868	10967	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2152	2384	
==>ze ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2152	2384	
==>ze ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10425	10571	
==>];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_mea <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10425	10571	
==>];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_mea <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	780	893	
==>b copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or warn "opendir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18555	18672	
==>epresents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18555	18672	
==>epresents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18555	18672	
==>epresents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how clas <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6803	6905	
==>1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6803	6905	
==>1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	96	195	
==>RSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	96	195	
==>RSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	96	195	
==>RSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2838	2973	
==>_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2838	2973	
==>_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2838	2973	
==>_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4248	4341	
==>722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4248	4341	
==>722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosett <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10458	10576	
==>efined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10458	10576	
==>efined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2662	2777	
==>ric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2662	2777	
==>ric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2662	2777	
==>ric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27169	27288	
==>> 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27169	27288	
==>> 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6463	6567	
==>lue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6463	6567	
==>lue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6463	6567	
==>lue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19011	19114	
==>nce solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19011	19114	
==>nce solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5372	5473	
==>llar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5372	5473	
==>llar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5372	5473	
==>llar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2198	2328	
==>:Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine cal <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2198	2328	
==>:Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine cal <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2545	2675	
==>:Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine cal <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1478	1605	
==>{
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	156	273	
==>File];


@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### copy all the relevant fi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4758	4855	
==>str2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::ti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4758	4855	
==>str2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11576	11665	
==>-------------------------------------

With this Role meta-model , any Class instances, th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11576	11665	
==>-------------------------------------

With this Role meta-model , any Class instances, th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11576	11665	
==>-------------------------------------

With this Role meta-model , any Class instances, th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	559	685	
==>";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	559	685	
==>";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	559	685	
==>";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.len <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6457	6562	
==>( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ----------- <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6457	6562	
==>( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ----------- <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6255	6421	
==>$self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5763	5929	
==>$self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1835	1973	
==>attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1835	1973	
==>attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1835	1973	
==>attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1043	1159	
==>l, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1043	1159	
==>l, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1043	1159	
==>l, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6468	6569	
==>fier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=k <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6468	6569	
==>fier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3092	3259	
==>= $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matche <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3092	3259	
==>= $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matche <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7626	7720	
==>ub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7626	7720	
==>ub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7626	7720	
==>ub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5115	5229	
==>(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5115	5229	
==>(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5115	5229	
==>(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	2012	2115	
==><'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 = <<'G <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19799	20033	
==>)
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20078	20312	
==>)
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15360	15477	
==>{ int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15360	15477	
==>{ int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15360	15477	
==>{ int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28264	28386	
==>ch::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28543	28665	
==>ch::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	862	971	
==>s *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	862	971	
==>s *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	862	971	
==>s *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3259	3385	
==>arse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3259	3385	
==>arse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	208	306	
==>il("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	208	306	
==>il("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	208	306	
==>il("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5318	5413	
==>bject to clear its internal state as completely as possible. 
This is automatically done as part <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5318	5413	
==>bject to clear its internal state as completely as possible. 
This is automatically done as part <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11054	11190	
==>') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_ME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11054	11190	
==>') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_ME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11054	11190	
==>') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_ME <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29255	29381	
==>turn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29534	29660	
==>turn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3556	3755	
==>$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3556	3755	
==>$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3556	3755	
==>$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3360	3481	
==>before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        els <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3360	3481	
==>before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8755	8938	
==>ent' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8755	8938	
==>ent' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8755	8938	
==>ent' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1180	1270	
==>in/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $EN <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1391	1481	
==>in/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $EN <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8755	8901	
==>lems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8755	8901	
==>lems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	735	836	
==>r



Continuations are used for backtracking.



A "ruleop" function gets some arguments and returns a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10603	10704	
==>r

Continuations are used for backtracking.

A "ruleop" function gets some arguments and returns a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	707	804	
==>r

Continuations are used for backtracking.

A "ruleop" function gets some arguments and returns a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2449	2563	
==>s can NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2872	2983	
==>s can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2367	2478	
==>s can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2872	2983	
==>s can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13201	13306	
==>launder everything for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14872	14965	
==>tive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14872	14965	
==>tive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14872	14965	
==>tive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1000	1090	
==>Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 CO <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1000	1090	
==>Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 CO <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5653	5848	
==>ally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5653	5848	
==>ally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $pa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34288	34379	
==>eneric relational operator that returns the complement of
C<semijoin> with the same argument <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38838	38929	
==>eneric relational operator that returns the complement of
C<semijoin> with the same argument <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38317	38408	
==>eneric relational operator that returns the complement of
C<semijoin> with the same argument <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8337	8455	
==>ure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculat <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8337	8455	
==>ure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculat <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3795	3890	
==>ti sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3795	3890	
==>ti sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10370	10463	
==>.$my_args.$code_body.'}');
    my $code_params = '[map{Perl6::Param->new(@$_)}('.$code_param_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	628	771	
==>"$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	663	806	
==>"$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	628	771	
==>"$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($ <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9845	9988	
==>"$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($ <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1101	1244	
==>"$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1678	1794	
==>Ref>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1678	1794	
==>Ref>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1344	1430	
==>_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1344	1430	
==>_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1344	1430	
==>_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUB <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14805	14934	
==>_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18282	18411	
==>_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17698	17827	
==>_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b. <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1609	1713	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1609	1713	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3996	4151	
==>->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3996	4151	
==>->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3996	4151	
==>->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3990	4084	
==>t_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.comp <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3990	4084	
==>t_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1764	1874	
==>dn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an app <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1764	1874	
==>dn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an app <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1764	1874	
==>dn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an app <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7354	7457	
==>nsity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7354	7457	
==>nsity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4969	5087	
==>"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4969	5087	
==>"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4969	5087	
==>"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	913	1020	
==>shift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_arg <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	913	1020	
==>shift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	294	397	
==>" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	294	397	
==>" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	294	397	
==>" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12395	12488	
==>eatures.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Unti <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12395	12488	
==>eatures.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Unti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8630	8769	
==>efined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8630	8769	
==>efined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8630	8769	
==>efined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3552	3654	
==>/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3425	3522	
==>/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1715	1864	
==>$v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1715	1864	
==>$v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2565	2684	
==>in(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2565	2684	
==>in(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2565	2684	
==>in(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } e <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4985	5090	
==>e_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVal <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4985	5090	
==>e_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVal <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1889	1994	
==>e_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVal <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1388	1486	
==>depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: T <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1388	1486	
==>depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: T <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1138	1269	
==>=> $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1138	1269	
==>=> $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3629	3743	
==>.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3629	3743	
==>.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3629	3743	
==>.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11038	11171	
==>}
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gathe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11038	11171	
==>}
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gathe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16920	17050	
==>to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16920	17050	
==>to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16920	17050	
==>to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5245	5373	
==>%$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5245	5373	
==>%$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5835	5963	
==>%$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8951	9064	
==>work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance met <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8951	9064	
==>work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29091	29194	
==>lue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29091	29194	
==>lue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29091	29194	
==>lue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $c <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10829	10927	
==>set".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10829	10927	
==>set".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6234	6361	
==>object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11513	11615	
==>($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defi <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22490	22592	
==>($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11513	11615	
==>($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11513	11615	
==>($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3996	4143	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3996	4143	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3996	4143	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->ne <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1008	1103	
==>t { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=he <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1008	1103	
==>t { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11994	12088	
==>ap{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11994	12088	
==>ap{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11994	12088	
==>ap{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21995	22189	
==>n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @para <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21995	22189	
==>n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @para <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21995	22189	
==>n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @para <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14331	14439	
==>alues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.000000 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14331	14439	
==>alues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.000000 <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1028	1153	
==>le; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	995	1120	
==>le; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	508	598	
==>cal $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Uti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	508	598	
==>cal $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Uti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	508	598	
==>cal $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Uti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4949	5040	
==>ew PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4949	5040	
==>ew PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4949	5040	
==>ew PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23119	23265	
==>method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42722	42867	
==>method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25052	25179	
==>e) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ev <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20924	21024	
==>ink
# syscall sysopen sysread sysseek syswrite tell telldir truncate umask
# unlink utime warn


# ch <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20086	20182	
==>and-alone objects.

Each object now has an insert() method that defines how it gets placed
into t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5623	5754	
==>$/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5635	5766	
==>$/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	229	359	
==>bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	229	359	
==>bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1898	1998	
==>s should be supplied by name.

Note that the above code is not robust.  (If you need a real implement <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1652	1760	
==>IL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1652	1760	
==>IL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2363	2462	
==>%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2363	2462	
==>%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2363	2462	
==>%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}-> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5615	5718	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode opera <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4745	4848	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode opera <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5615	5718	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode opera <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4745	4848	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode opera <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13790	13891	
==>ng to happen or not happen, but the relevant line of code is
  off in perl runtime guts where it can't <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3859	3974	
==>n

    has @.args;
    method new (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    me <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7874	7976	
==>ne.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7004	7106	
==>ne.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7874	7976	
==>ne.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7004	7106	
==>ne.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3266	3520	
==>ure} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3138	3382	
==>ure} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	306	411	
==>"PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	306	411	
==>"PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	306	411	
==>"PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1150	1259	
==>d}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	164	271	
==>:Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of w <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	164	271	
==>:Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	889	993	
==>d}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1094	1198	
==>d}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5624	5734	
==>s >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5624	5734	
==>s >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5624	5734	
==>s >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $se <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5512	5617	
==>currence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previo <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5512	5617	
==>currence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previo <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11717	11852	
==>)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      m <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14565	14700	
==>)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40010	40126	
==>_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40010	40126	
==>_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40010	40126	
==>_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1998	2106	
==>sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || red <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1998	2106	
==>sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || red <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1998	2106	
==>sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || red <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11507	11602	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and ` <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11565	11660	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14891	15019	
==>hift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14891	15019	
==>hift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14891	15019	
==>hift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $r <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8528	8630	
==>-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8528	8630	
==>-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13843	14019	
==>6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13843	14019	
==>6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13843	14019	
==>6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	723	831	
==>tElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	723	831	
==>tElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	723	831	
==>tElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5908	6008	
==>ft->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5908	6008	
==>ft->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5500	5602	
==>ar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Em <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5309	5409	
==>ar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Em <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2267	2361	
==>s')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $la <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2267	2361	
==>s')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $la <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2267	2361	
==>s')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $la <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6997	7112	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6997	7112	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6997	7112	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    : <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1409	1509	
==>of spec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5::X1::Result;
use strict;
sub ne <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23048	23144	
==>H_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2671	2766	
==>method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY ! <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2671	2766	
==>method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12903	13016	
==>y( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12903	13016	
==>y( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12903	13016	
==>y( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9835	9926	
==>ative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection, <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9835	9926	
==>ative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22948	23128	
==>op::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23227	23407	
==>op::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	253	353	
==>elf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	253	353	
==>elf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	253	353	
==>elf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23942	24095	
==>n Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23942	24095	
==>n Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23942	24095	
==>n Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3270	3392	
==>b ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3984	4086	
==>b ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34817	34917	
==>int "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34817	34917	
==>int "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34817	34917	
==>int "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8258	8407	
==>e )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2268	2366	
==>syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2268	2366	
==>syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1495	1587	
==>syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3356	3448	
==>syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Use <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5067	5204	
==>- use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5067	5204	
==>- use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5067	5204	
==>- use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pa <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3809	3915	
==>DING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))} <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3809	3915	
==>DING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	864	983	
==>de;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	864	983	
==>de;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15377	15491	
==>0 = index target, ">", pos
    if $I0 < pos goto err_close
  name_1:
    $I1 = $I0 - pos
    cname = substr target, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34316	34407	
==>returns a new Locale::KeyedText::Translator object.
The Set Names property of the new object <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34316	34407	
==>returns a new Locale::KeyedText::Translator object.
The Set Names property of the new object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21001	21096	
==>'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21001	21096	
==>'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21001	21096	
==>'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18598	18689	
==>eturns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18598	18689	
==>eturns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18488	18599	
==>!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18684	18795	
==>!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18898	19009	
==>!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8658	8767	
==>!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19100	19209	
==>!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22368	22482	
==>[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22368	22482	
==>[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22368	22482	
==>[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - se <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12435	12533	
==>r a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used to <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12435	12533	
==>r a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used to <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4709	4833	
==>le';  -->  our $f = open 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4758	4881	
==>g"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4758	4881	
==>g"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12803	12915	
==>for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    r <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12803	12915	
==>for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1599	1748	
==>1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1544	1689	
==>1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	149	241	
==>::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	149	241	
==>::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	149	241	
==>::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Containe <==
5	/Users/nnunley/pugs/util/build_pugs.pl	3661	3794	
==>name =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - wor <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15777	15881	
==>n Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ), <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19254	19358	
==>n Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ), <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2163	2254	
==>equest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYN <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2163	2254	
==>equest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYN <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6937	7123	
==>\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod || /^=cut/);  # skip pod text
                next if /^\s*#/;               # and comments
                i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6160	6256	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5290	5386	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6160	6256	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5290	5386	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2568	2672	
==>? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

me <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12999	13103	
==>!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross- <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2568	2672	
==>? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16476	16580	
==>!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross- <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15838	15942	
==>!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8666	8767	
==>ob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	399	500	
==>ob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8666	8767	
==>ob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8666	8767	
==>ob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3031	3130	
==>, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array::splic <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1766	1858	
==>a::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document d <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1766	1858	
==>a::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document d <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4504	4600	
==>on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This p <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4504	4600	
==>on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6701	6797	
==>on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This p <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9728	9823	
==>t is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can exten <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9728	9823	
==>t is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can exten <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1424	1562	
==>};

    ### acc is just for accessors, the others get added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2557	2654	
==>ects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2557	2654	
==>ects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2557	2654	
==>ects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10977	11062	
==>\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27950	28046	
==>elation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32502	32598	
==>elation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31594	31690	
==>elation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16028	16123	
==>odified

This header indicates the date and time at which the resource was last
modified. I<E.g. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16028	16123	
==>odified

This header indicates the date and time at which the resource was last
modified. I<E.g. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9583	9695	
==>e "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9583	9695	
==>e "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9583	9695	
==>e "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	964	1055	
==>zy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ... <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	964	1055	
==>zy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ... <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	990	1092	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::procla <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1048	1150	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::procla <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	820	915	
==>uilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# pop <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	820	915	
==>uilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# pop <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	900	995	
==>uilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# pop <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1255	1360	
==>names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1255	1360	
==>names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1830	1934	
==>op();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1830	1934	
==>op();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1830	1934	
==>op();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9340	9520	
==>f->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9340	9520	
==>f->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9340	9520	
==>f->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0] <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9498	9595	
==>ible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9498	9595	
==>ible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10411	10508	
==>on demand at some time after the input has been set, and could potentially
never be performed at a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10411	10508	
==>on demand at some time after the input has been set, and could potentially
never be performed at a <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3619	3714	
==>.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3619	3714	
==>.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3699	3794	
==>.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	468	570	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	468	570	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	468	570	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))" <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1313	1410	
==>trieve any final data and clear the cipher's state.

=back 4

The procedural interface does the sa <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1313	1410	
==>trieve any final data and clear the cipher's state.

=back 4

The procedural interface does the sa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22736	22880	
==>,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23238	23382	
==>,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4949	5057	
==>) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4949	5057	
==>) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4949	5057	
==>) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5203	5353	
==>pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5203	5353	
==>pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5203	5353	
==>pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5812	5913	
==>eft a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5812	5913	
==>eft a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36016	36154	
==>ems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36016	36154	
==>ems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36016	36154	
==>ems;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13474	13584	
==>m;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    ret <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13474	13584	
==>m;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25846	25940	
==>C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable na <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25846	25940	
==>C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5986	6070	
==>rn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5986	6070	
==>rn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5986	6070	
==>rn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/util/grokprims.pl	967	1090	
==>cmp $b->{assoc} or
               @{$a->{args}} <=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{asso <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14015	14107	
==>=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stev <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10242	10334	
==>=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stev <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14015	14107	
==>=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stev <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10242	10334	
==>=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stev <==
5	/Users/nnunley/pugs/util/build_pugs.pl	176	279	
==>);

our %BuildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40138	40233	
==>rite to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24829	24924	
==>rite to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40138	40233	
==>rite to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24829	24924	
==>rite to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1298	1430	
==>ples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the im <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4776	4908	
==>ples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the im <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19238	19329	
==>,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19238	19329	
==>,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19238	19329	
==>,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	995	1137	
==>g_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1006	1148	
==>g_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1644	1771	
==>dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1644	1771	
==>dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1644	1771	
==>dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8355	8539	
==>_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8355	8539	
==>_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8355	8539	
==>_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next M <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11658	11759	
==>::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10403	10492	
==>ull>
    | <RegularExpressionChars> <RegularExpressionChar>
}
rule RegularExpressionFirstC <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1396	1538	
==>nd    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4635	4777	
==>nd    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1396	1538	
==>nd    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4635	4777	
==>nd    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	895	993	
==>($CGI->param("upload")) {
  process_upload();
} else {
  process_list();
}

exit;

sub process_uplo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	536	662	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	536	662	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	536	662	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	942	1041	
==>o be a next step. And the current Regexp::Parser Object
# ast isnt really what we want long-term.  I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1286	1479	
==>Height
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.ap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1286	1479	
==>Height
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.ap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1286	1479	
==>Height
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.ap <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	197	298	
==>) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fiel <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	197	298	
==>) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	339	439	
==>aps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	339	439	
==>aps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	339	439	
==>aps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pack <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5498	5602	
==>is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5498	5602	
==>is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	896	992	
==>name => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	896	992	
==>name => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	896	992	
==>name => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'du <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1966	2072	
==>me) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1648	1750	
==>me) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2296	2398	
==>me) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6936	7037	
==>real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_conten <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6936	7037	
==>real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_conten <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24256	24433	
==>term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24535	24712	
==>term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10442	10539	
==>gularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before <[*\\\/]>> <N <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17601	17696	
==>ct represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of meth <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17601	17696	
==>ct represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of meth <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5352	5579	
==>LASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5352	5579	
==>LASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6569	6661	
==>authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6569	6661	
==>authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6569	6661	
==>authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4355	4469	
==>:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifie <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4409	4523	
==>:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifie <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4355	4469	
==>:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifie <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4409	4523	
==>:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifie <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13089	13188	
==>ose keys.

=over

=item Unary Form

Implementations should create a suitable macro, or otherwise sup <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8176	8290	
==>s it returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a "next-sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7900	8011	
==>s it returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a "next-sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6080	6177	
==>]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6080	6177	
==>]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6080	6177	
==>]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12876	13000	
==>posed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contigu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12876	13000	
==>posed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contigu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12876	13000	
==>posed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contigu <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7071	7167	
==>atus
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This modu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7071	7167	
==>atus
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This modu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20891	21032	
==>' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::si <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43815	43956	
==>' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::si <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1338	1447	
==>que_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1543	1652	
==>que_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1604	1713	
==>que_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6257	6359	
==>'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special case <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26141	26238	
==>This method is a generic relational operator that returns a new Relation
which has a subset of the <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31136	31233	
==>This method is a generic relational operator that returns a new Relation
which has a subset of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30693	30790	
==>This method is a generic relational operator that returns a new Relation
which has a subset of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35686	35783	
==>This method is a generic relational operator that returns a new Relation
which has a subset of the <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2131	2243	
==>, 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very prima <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2131	2243	
==>, 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very prima <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3993	4092	
==>bjects.

The array of spans must be ordered, and the spans must not intersect with each other.

- em <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3993	4092	
==>bjects.

The array of spans must be ordered, and the spans must not intersect with each other.

- em <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7955	8054	
==>ialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encodin <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2535	2701	
==>constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use con <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11054	11152	
==>s
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8458	8556	
==>s removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11054	11152	
==>s
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8458	8556	
==>s removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23271	23424	
==>ift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $self: list ?@su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	961	1076	
==>" # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	961	1076	
==>" # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	961	1076	
==>" # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "no <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10569	10666	
==>kPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $posEndColumn) {
    "";
}


1;
__END <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50976	51145	
==>ew('$:version'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5020	5128	
==>ts, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{test_count} = scalar @te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	244	337	
==>case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	244	337	
==>case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	244	337	
==>case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16645	16743	
==>at the user sees; it never outputs anything by itself to the user, but
rather returns its results f <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16645	16743	
==>at the user sees; it never outputs anything by itself to the user, but
rather returns its results f <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2023	2130	
==>ious = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TOD <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2023	2130	
==>ious = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TOD <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7856	7957	
==>p => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3461	3556	
==>od

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3461	3556	
==>od

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will p <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15186	15297	
==>b emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$nam <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25160	25247	
==>ot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfou <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23924	24011	
==>ot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfou <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25160	25247	
==>ot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfou <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23924	24011	
==>ot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5680	5856	
==>->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5680	5856	
==>->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5680	5856	
==>->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14212	14308	
==>e callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14212	14308	
==>e callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2312	2423	
==>$self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub para <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10390	10492	
==>_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10669	10771	
==>_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1440	1536	
==>DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to sever <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1440	1536	
==>DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to sever <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2877	3001	
==>You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2877	3001	
==>You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4355	4459	
==>') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4355	4459	
==>') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4355	4459	
==>') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6058	6160	
==>r got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10315	10417	
==>r got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	745	881	
==>@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	745	881	
==>@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	745	881	
==>@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12698	12821	
==>= {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pse <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12698	12821	
==>= {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1013	1125	
==>})')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1013	1125	
==>})')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1013	1125	
==>})')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1869	1966	
==>rsal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, en <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1869	1966	
==>rsal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, en <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11277	11394	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11277	11394	
==>_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	387	483	
==>turn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	387	483	
==>turn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	387	483	
==>turn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLis <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2690	2855	
==>h @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2690	2855	
==>h @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4242	4405	
==>are);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4242	4405	
==>are);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4242	4405	
==>are);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	479	590	
==>ition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		na <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7990	8084	
==>to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7120	7214	
==>to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7990	8084	
==>to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7120	7214	
==>to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4309	4418	
==>ndler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1435	1544	
==>ndler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6532	6630	
==>lf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->call <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6532	6630	
==>lf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->call <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6532	6630	
==>lf->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->call <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8065	8164	
==>ely.  This method should be as thorough as 
possible; for example, it should not merely set arrays t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8065	8164	
==>ely.  This method should be as thorough as 
possible; for example, it should not merely set arrays t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20775	20867	
==>$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20775	20867	
==>$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20775	20867	
==>$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32719	32890	
==>if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32719	32890	
==>if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32719	32890	
==>if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $len <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1490	1604	
==>al O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, gr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1490	1604	
==>al O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, gr <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8795	8909	
==>uce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10438	10536	
==>nts to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header nam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10438	10536	
==>nts to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header nam <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22537	22631	
==>ent at all.

A Relation object has 2 main attributes (implementation details subject to
change) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27089	27183	
==>ent at all.

A Relation object has 2 main attributes (implementation details subject to
change) <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	2614	2725	
==>$config;
    $template =~ s/#all_fields#/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4151	4251	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3278	3378	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4151	4251	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3278	3378	
==>ne, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	546	644	
==>5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10125	10223	
==>PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL: <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	546	644	
==>5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10125	10223	
==>PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10125	10223	
==>PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7564	7678	
==>turn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7564	7678	
==>turn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2029	2219	
==>) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2029	2219	
==>) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2029	2219	
==>) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6590	6703	
==>ild_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6590	6703	
==>ild_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5817	6053	
==>}
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5817	6053	
==>}
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

= <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3178	3412	
==>}
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3178	3412	
==>}
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

= <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6456	6559	
==>ngth($X::str)) || substr($X::str,$X::pos,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	9169	9331	
==>or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
              {$a}.push($m0) if $at > $prev; $prev = $at;
              $pos += {$ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13261	13374	
==>,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	844	938	
==>ores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	844	938	
==>ores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	844	938	
==>ores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21246	21344	
==>t it provides a
common API for access to those databases, each of which takes a different
SQL or ps <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21246	21344	
==>t it provides a
common API for access to those databases, each of which takes a different
SQL or ps <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22349	22440	
==>a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Part <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22349	22440	
==>a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Part <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1230	1321	
==>=head1 NAME

Blondie::Reducer::DynamicScoping - a base class (probably a role) for
implement <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1909	2013	
==>e !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1909	2013	
==>e !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1909	2013	
==>e !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	199	286	
==>es
## ----------------------------------------------------------------------------
## Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	167	254	
==>es
## ----------------------------------------------------------------------------
## Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5913	6015	
==>:Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5913	6015	
==>:Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5913	6015	
==>:Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- par <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	15	111	
==>ob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slas <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	15	111	
==>ob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slas <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20517	20614	
==>range the list in order of preference.  When you
open a program, it will search for language files <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20517	20614	
==>range the list in order of preference.  When you
open a program, it will search for language files <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11587	11700	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11587	11700	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11587	11700	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5870	5966	
==>False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5870	5966	
==>False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5257	5379	
==>^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5257	5379	
==>^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5257	5379	
==>^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        u <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1361	1461	
==>equency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than ob <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1361	1461	
==>equency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than ob <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13817	13969	
==>e.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3934	4070	
==>e.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3934	4070	
==>e.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3934	4070	
==>e.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $str <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22247	22342	
==>ace;
	my @parts = split('::',$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2819	2920	
==>_normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2819	2920	
==>_normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	106	206	
==>)s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression eva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	106	206	
==>)s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression eva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	106	206	
==>)s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression eva <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15762	15887	
==>md );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - sen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15756	15881	
==>md );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - sen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5280	5381	
==>')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ver <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5280	5381	
==>')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ver <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5280	5381	
==>')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ver <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10791	10942	
==>.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10791	10942	
==>.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	215	313	
==>->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	215	313	
==>->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	215	313	
==>->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(u <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10290	10383	
==>THODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the numb <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8183	8276	
==>THODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the numb <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10290	10383	
==>THODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the numb <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8183	8276	
==>THODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the numb <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2401	2517	
==>$runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = shift;
		warn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8695	8791	
==>/^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	428	524	
==>/^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8695	8791	
==>/^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8695	8791	
==>/^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4999	5113	
==>trs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8476	8590	
==>trs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7487	7601	
==>trs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18445	18530	
==>$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18445	18530	
==>$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11290	11424	
==>{
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11290	11424	
==>{
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11290	11424	
==>{
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_c <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7212	7309	
==>...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `fr <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7212	7309	
==>...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `fr <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3210	3332	
==>nv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile <==
5	/Users/nnunley/pugs/util/func_refact.pl	1330	1449	
==>\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2228	2335	
==>);
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2228	2335	
==>);
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2228	2335	
==>);
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10115	10231	
==>my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10115	10231	
==>my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10115	10231	
==>my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a d <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7629	7734	
==>ent is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=it <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7629	7734	
==>ent is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=it <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8385	8487	
==>$m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class',' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8385	8487	
==>$m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class',' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1459	1555	
==>fix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1459	1555	
==>fix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1459	1555	
==>fix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	748	866	
==>. '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2230	2330	
==>->build_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	699	806	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	699	806	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	699	806	
==>", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1270	1373	
==>et( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1270	1373	
==>et( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	55	163	
==>use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	55	163	
==>use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	55	163	
==>use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Met <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35191	35284	
==>lation>

This multi-method is a generic binary relational operator that is identical
to C<join <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39741	39834	
==>lation>

This multi-method is a generic binary relational operator that is identical
to C<join <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1319	1439	
==>ans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of la <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1319	1439	
==>ans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of la <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7621	7718	
==>t;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7621	7718	
==>t;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7621	7718	
==>t;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7335	7439	
==>X - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7335	7439	
==>X - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7335	7439	
==>X - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<- <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6479	6574	
==>pe';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'Stri <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6479	6574	
==>pe';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'Stri <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12810	12999	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13089	13278	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8037	8151	
==>lice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8037	8151	
==>lice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8037	8151	
==>lice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1164	1259	
==>$.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_A <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1164	1259	
==>$.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1497	1586	
==>:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1497	1586	
==>:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1497	1586	
==>:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3198	3307	
==>efined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3198	3307	
==>efined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3198	3307	
==>efined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6504	6609	
==>=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6516	6621	
==>=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22375	22491	
==>p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22375	22491	
==>p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22375	22491	
==>p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# I <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2667	2771	
==>sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2667	2771	
==>sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15019	15183	
==>:constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15298	15462	
==>:constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1409	1570	
==>ed',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Impl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1409	1570	
==>ed',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Impl <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5255	5393	
==>";
        mkdir $dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(g <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20258	20363	
==>= length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16679	16784	
==>= length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25966	26058	
==>duplicate attribute names that aren't being renamed.  This method
supports renaming attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30518	30610	
==>duplicate attribute names that aren't being renamed.  This method
supports renaming attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29493	29585	
==>duplicate attribute names that aren't being renamed.  This method
supports renaming attribute <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5898	6000	
==>event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5898	6000	
==>event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6310	6408	
==>event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6310	6408	
==>event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8056	8151	
==>.. got the right return value from another Object singleton/class method called by Foo');

is($F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1525	1632	
==>=> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1525	1632	
==>=> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1525	1632	
==>=> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4765	4863	
==>e to have any effect. It's possible the
    internal/external distinction is just a trait, and that <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3320	3409	
==>/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2551	2720	
==>}
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5556	5725	
==>}
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2551	2720	
==>}
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5556	5725	
==>}
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	27	124	
==>-class for Arrays, Hashes, Sets and other collections
# like Bags, ordered hashes and so on.

role <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2086	2262	
==>OP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for tha <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2086	2262	
==>OP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	229	318	
==>?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	229	318	
==>?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	229	318	
==>?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2844	2966	
==>L::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2844	2966	
==>L::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2844	2966	
==>L::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # S <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	510	605	
==>t just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	510	605	
==>t just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cip <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9201	9332	
==>??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9201	9332	
==>??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1737	1855	
==>e(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1737	1855	
==>e(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1737	1855	
==>e(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    } <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1335	1432	
==>>run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CO <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3173	3324	
==>, $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3173	3324	
==>, $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	946	1043	
==>rl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	946	1043	
==>rl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	946	1043	
==>rl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=> <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	305	444	
==>RAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert V <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	305	444	
==>RAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert V <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	60	167	
==>if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	60	167	
==>if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	60	167	
==>if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4394	4495	
==>thod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4394	4495	
==>thod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5266	5365	
==>thod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5266	5365	
==>thod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3876	3971	
==>ommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardSlashOrAste <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5493	5596	
==>lue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5493	5596	
==>lue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5493	5596	
==>lue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31275	31372	
==>oFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same di <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31275	31372	
==>oFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same di <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5950	6063	
==>tifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19650	19775	
==>ff =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) an <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16071	16196	
==>ff =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) an <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5364	5489	
==>equire ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils:: <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5882	5983	
==>equire ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils:: <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15540	15634	
==>'<'> <ShiftExpression>
    | <RelationalExpression> <'>'> <ShiftExpression>
    | <RelationalEx <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8019	8151	
==>[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13613	13745	
==>[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8019	8151	
==>[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13607	13739	
==>[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq ' <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9309	9399	
==>--------------------------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17920	18103	
==>for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17920	18103	
==>for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17920	18103	
==>for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4584	4678	
==>cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is par <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4584	4678	
==>cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6079	6251	
==>alue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6079	6251	
==>alue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6079	6251	
==>alue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20018	20112	
==>ed and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
di <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20018	20112	
==>ed and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
di <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12131	12326	
==>=> 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12131	12326	
==>=> 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1199	1301	
==>REFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1199	1301	
==>REFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1199	1301	
==>REFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2706	2832	
==>ss eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2706	2832	
==>ss eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2706	2832	
==>ss eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tm <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3980	4086	
==>symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!se <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3980	4086	
==>symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8191	8308	
==>"x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8191	8308	
==>"x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8191	8308	
==>"x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11418	11517	
==>rns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item W <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11418	11517	
==>rns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item W <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1073	1183	
==>all the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.app <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1073	1183	
==>all the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.app <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1073	1183	
==>all the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.app <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17972	18065	
==>e::Compile attempts to make source filtering a sane process, by
parsing up your module's sourc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17972	18065	
==>e::Compile attempts to make source filtering a sane process, by
parsing up your module's sourc <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8018	8145	
==>727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "a <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8018	8145	
==>727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4214	4311	
==>r own backslash and assertion rules or macros, you may
    use the following syntactic categories: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8975	9069	
==>atements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to ot <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8975	9069	
==>atements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to ot <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1546	1678	
==>~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1546	1678	
==>~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	998	1102	
==>(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ver <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	998	1102	
==>(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ver <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	998	1102	
==>(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ver <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15982	16102	
==>($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alternat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10838	10958	
==>($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alternat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	93	199	
==>hem
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	93	199	
==>hem
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	93	199	
==>hem
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1987	2130	
==>$tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1987	2130	
==>$tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1987	2130	
==>$tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16728	16838	
==>::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16728	16838	
==>::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16728	16838	
==>::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untai <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	112	206	
==>ge Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	13	107	
==>ge Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5921	6021	
==>{

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 speci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4261	4361	
==>name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = sh <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5921	6021	
==>{

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 speci <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4261	4361	
==>name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4261	4361	
==>name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	976	1098	
==>ref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	976	1098	
==>ref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	976	1098	
==>ref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to d <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	968	1083	
==>.' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	968	1083	
==>.' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5664	5806	
==>ils;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = 'header';

        $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8326	8429	
==>index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8314	8417	
==>index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \ <==
5	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	38	130	
==>ator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles oper <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	56	148	
==>ator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles oper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10350	10505	
==>erred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10350	10505	
==>erred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10350	10505	
==>erred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1587	1688	
==>tional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1587	1688	
==>tional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6091	6261	
==>val { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6555	6725	
==>val { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1029	1142	
==>@input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1029	1142	
==>@input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1029	1142	
==>@input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple file <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3246	3369	
==>lo World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP: <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3246	3369	
==>lo World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1155	1251	
==>supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1155	1251	
==>supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1155	1251	
==>supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5474	5566	
==>ze($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<objec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5474	5566	
==>ze($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<objec <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1863	1953	
==>ibes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1863	1953	
==>ibes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1278	1388	
==>t for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Readi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1278	1388	
==>t for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Readi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1278	1388	
==>t for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Readi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	139	246	
==>.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	139	246	
==>.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	246	359	
==>+ thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	246	359	
==>+ thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	246	359	
==>+ thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = ne <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8465	8577	
==>ement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite rec <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8465	8577	
==>ement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite rec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6154	6256	
==>Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make instances of subclasses

my $iB <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1309	1402	
==>.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1272	1365	
==>.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1309	1402	
==>.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1272	1365	
==>.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3515	3642	
==>ere is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) = @_;
    my @x = ($x);
    @x = <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5622	5742	
==>t META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17227	17316	
==>rom_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17227	17316	
==>rom_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17227	17316	
==>rom_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_ <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1470	1567	
==>require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtU <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1387	1478	
==>require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21698	21793	
==>(*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21698	21793	
==>(*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21698	21793	
==>(*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str)) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3328	3419	
==>($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3328	3419	
==>($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $se <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2479	2598	
==>res {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mo <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4067	4186	
==>res {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8559	8664	
==>d)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8559	8664	
==>d)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8559	8664	
==>d)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3288	3421	
==>l &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TOD <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3276	3409	
==>l &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TOD <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2292	2395	
==>urn $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Ru <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	788	889	
==>erl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	788	889	
==>erl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	571	668	
==>boxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	571	668	
==>boxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	571	668	
==>boxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36338	36431	
==>used
internally by translate_message() to produce the list of Template module
names that it wi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36338	36431	
==>used
internally by translate_message() to produce the list of Template module
names that it wi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3153	3283	
==>efined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, * <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3153	3283	
==>efined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, * <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	854	956	
==>ot ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	854	956	
==>ot ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	854	956	
==>ot ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3213	3318	
==>o kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3213	3318	
==>o kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3213	3318	
==>o kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1837	1938	
==>wo) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1837	1938	
==>wo) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12922	13145	
==>( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12922	13145	
==>( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12922	13145	
==>( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            } <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1719	1940	
==>odifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<C <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1719	1940	
==>odifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18685	18788	
==>e described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Line <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18685	18788	
==>e described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Line <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24006	24110	
==>y error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops bet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22779	22883	
==>y error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops bet <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24006	24110	
==>y error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops bet <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22779	22883	
==>y error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops bet <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	902	1000	
==>tiple space-seperated args,
# append an argument to the current list.
sub makemaker_append {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23663	23808	
==>block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23942	24087	
==>block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	606	705	
==>(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	606	705	
==>(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	606	705	
==>(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3071	3272	
==>" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3071	3272	
==>" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta: <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16205	16313	
==>_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_ap <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7341	7444	
==>else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7399	7502	
==>else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1484	1583	
==>method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1484	1583	
==>method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1484	1583	
==>method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dis <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13262	13362	
==>utoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traff <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13262	13362	
==>utoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traff <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1507	1603	
==>h + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1507	1603	
==>h + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1507	1603	
==>h + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11755	11909	
==>ng->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11755	11909	
==>ng->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11755	11909	
==>ng->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34203	34296	
==>pt>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38753	38846	
==>pt>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11167	11347	
==>6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11167	11347	
==>6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11167	11347	
==>6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{t <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2924	3018	
==>s :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2924	3018	
==>s :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	664	772	
==>ter names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Opti <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	664	772	
==>ter names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Opti <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1075	1179	
==>not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1075	1179	
==>not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1075	1179	
==>not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24638	24732	
==>e::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->st <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25610	25704	
==>e::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17367	17460	
==>platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AU <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17367	17460	
==>platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AU <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17367	17460	
==>platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AU <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15536	15651	
==>g, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }x <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18754	18849	
==>if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17797	17892	
==>if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18754	18849	
==>if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17797	17892	
==>if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13120	13247	
==>$::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13120	13247	
==>$::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13120	13247	
==>$::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7356	7449	
==>Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7414	7507	
==>Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	58	160	
==>less { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	58	160	
==>less { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	58	160	
==>less { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14993	15083	
==>common programmatic interface (API), called
the Rosetta Native Interface (RNI), which appli <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14993	15083	
==>common programmatic interface (API), called
the Rosetta Native Interface (RNI), which appli <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7503	7616	
==>le( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_ME <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7503	7616	
==>le( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_ME <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4146	4241	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4146	4241	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4146	4241	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visib <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6646	6814	
==>g_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6839	7007	
==>g_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2309	2401	
==>module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2309	2401	
==>module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2309	2401	
==>module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	538	634	
==>ify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9384	9480	
==>urn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificatio <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	538	634	
==>ify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9384	9480	
==>urn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificatio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9384	9480	
==>urn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1090	1198	
==>ortList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1090	1198	
==>ortList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1090	1198	
==>ortList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod]. <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5776	5866	
==>rse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward ev <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5776	5866	
==>rse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4612	4756	
==>"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4612	4756	
==>"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4612	4756	
==>"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2243	2376	
==>y;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2243	2376	
==>y;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2243	2376	
==>y;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10515	10629	
==>e_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex w <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10515	10629	
==>e_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6755	6862	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6755	6862	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6755	6862	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10204	10299	
==>d emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10204	10299	
==>d emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2177	2299	
==>ne';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATC <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2394	2516	
==>ne';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATC <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37792	37888	
==>ngs of the source relations.  The body of the new relation is
the result of first pairwise-matchi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42341	42437	
==>ngs of the source relations.  The body of the new relation is
the result of first pairwise-matchi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41991	42087	
==>ngs of the source relations.  The body of the new relation is
the result of first pairwise-matchi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3579	3685	
==>{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3579	3685	
==>{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3579	3685	
==>{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20087	20178	
==>keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20087	20178	
==>keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1800	2206	
==>ion object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::C <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1800	2206	
==>ion object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20114	20205	
==>,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20114	20205	
==>,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20114	20205	
==>,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39355	39475	
==>ray;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39355	39475	
==>ray;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39355	39475	
==>ray;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21199	21295	
==>For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25751	25847	
==>For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapp <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6335	6432	
==>rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `n <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8403	8500	
==>rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `n <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6335	6432	
==>rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `n <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8403	8500	
==>rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `n <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4320	4417	
==>.
p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_ra <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4692	4790	
==>.. got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19480	19577	
==>bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19480	19577	
==>bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	3	97	
==>ass Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($se <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	3	97	
==>ass Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3774	3868	
==>ction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __retu <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10250	10344	
==>le RegularExpressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionCh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3774	3868	
==>ction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3774	3868	
==>ction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __retu <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	106	199	
==>?CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12114	12276	
==>= 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12114	12276	
==>= 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12114	12276	
==>= 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1998	2114	
==>};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1998	2114	
==>};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	966	1070	
==>it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	966	1070	
==>it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	966	1070	
==>it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link i <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15376	15468	
==>ML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15376	15468	
==>ML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21633	21778	
==>(@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pus <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21633	21778	
==>(@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pus <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21633	21778	
==>(@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pus <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5664	5773	
==>o_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot f <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5664	5773	
==>o_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot f <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26166	26264	
==>ge Key
it is being used with (others are ignored).  Each variable name can be any
defined and non-e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26166	26264	
==>ge Key
it is being used with (others are ignored).  Each variable name can be any
defined and non-e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5507	5602	
==>ipt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5507	5602	
==>ipt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5507	5602	
==>ipt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/J <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10303	10418	
==>s goto err_closure
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr ta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2096	2199	
==>pile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2096	2199	
==>pile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1328	1427	
==>pile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3189	3288	
==>pile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9841	9971	
==>y $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use| <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9841	9971	
==>y $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use| <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7446	7539	
==>::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7446	7539	
==>::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7446	7539	
==>::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13190	13318	
==>ass here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13190	13318	
==>ass here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13190	13318	
==>ass here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0 <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	425	527	
==>:PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	425	527	
==>:PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3891	4027	
==>turn;

            $obj->registered_alternatives( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( met <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13895	14003	
==>re
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17372	17480	
==>re
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16752	16860	
==>re
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	40	153	
==>nt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	40	153	
==>nt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	40	153	
==>nt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	53	150	
==>ME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	53	150	
==>ME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17458	17580	
==>ode $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHA <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17458	17580	
==>ode $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2685	2798	
==>n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_strin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2685	2798	
==>n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_strin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2685	2798	
==>n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3265	3372	
==>ostcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3265	3372	
==>ostcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3265	3372	
==>ostcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34791	34886	
==>tuples that
are in the invocant Relation and that match any tuples of C<$other> along
their comm <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39341	39436	
==>tuples that
are in the invocant Relation and that match any tuples of C<$other> along
their comm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8395	8505	
==>the string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	553	663	
==>the string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8113	8221	
==>the string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	528	636	
==>the string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { r <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1467	1566	
==>z($tz) );
}

# convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8843	9063	
==>]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8843	9063	
==>]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8843	9063	
==>]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	792	908	
==>l 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	751	862	
==>l 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (t <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3875	3988	
==>smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink k <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41022	41116	
==>he second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=back

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	380	473	
==>ew PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	380	473	
==>ew PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	380	473	
==>ew PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3773	3880	
==>inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3773	3880	
==>inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3773	3880	
==>inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12454	12550	
==>o, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the resu <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12512	12608	
==>o, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the resu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7231	7390	
==>my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = ruleop::concat( \n" .
                "        ruleop::constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	287	406	
==>urn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	287	406	
==>urn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	287	406	
==>urn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $clas <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5022	5121	
==>lf = shift;
	my $node = shift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2310	2407	
==>) && ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invoc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3611	3710	
==>ifference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.dif <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3611	3710	
==>ifference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	883	972	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	883	972	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	883	972	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9903	10086	
==>$fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    mul <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9903	10086	
==>$fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1476	1584	
==>.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1476	1584	
==>.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1476	1584	
==>.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1741	1893	
==>}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1741	1893	
==>}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1741	1893	
==>}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self- <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4602	4711	
==>meter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::In <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4602	4711	
==>meter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6748	6851	
==>imeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6748	6851	
==>imeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6748	6851	
==>imeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28020	28113	
==>ys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(St <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32572	32665	
==>ys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(St <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	882	1002	
==>portList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	882	1002	
==>portList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	882	1002	
==>portList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14269	14367	
==>interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attribute <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14269	14367	
==>interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3674	3791	
==>Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation::Example i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4225	4327	
==>n
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is unio <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3352	3454	
==>n
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is unio <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4225	4327	
==>n
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is unio <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3352	3454	
==>n
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is unio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1452	1639	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1452	1639	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1452	1639	
==>al_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_s <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	787	908	
==>ment ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	787	908	
==>ment ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11520	11646	
==>ernation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11886	12012	
==>ernation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14050	14171	
==>eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14050	14171	
==>eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14050	14171	
==>eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10875	10967	
==>extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document objec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10875	10967	
==>extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document objec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4679	4769	
==>to
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4679	4769	
==>to
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4679	4769	
==>to
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they h <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18424	18521	
==>the most accurate program text
for users, we still get the best results by having a human being wr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7614	7711	
==>:= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» ( <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18424	18521	
==>the most accurate program text
for users, we still get the best results by having a human being wr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7614	7711	
==>:= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7614	7711	
==>:= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» ( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1720	1850	
==>n phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::S <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1720	1850	
==>n phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9567	9669	
==>olve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9567	9669	
==>olve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9567	9669	
==>olve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3852	3959	
==>icks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3852	3959	
==>icks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4384	4487	
==>icks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4384	4487	
==>icks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	56	150	
==>e 'Object::Accessor';

use JIB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3647	3750	
==>ocument that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3647	3750	
==>ocument that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1970	2069	
==>ndef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1970	2069	
==>ndef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1970	2069	
==>ndef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contain <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1180	1326	
==>ve no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1180	1326	
==>ve no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16732	16849	
==>el, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16732	16849	
==>el, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16732	16849	
==>el, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	649	855	
==>l_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	649	855	
==>l_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	649	855	
==>l_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24635	24732	
==>llegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21056	21153	
==>llegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	642	758	
==>, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Be <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	642	758	
==>, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2164	2266	
==>e "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2164	2266	
==>e "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2164	2266	
==>e "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7176	7301	
==>m  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7176	7301	
==>m  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7176	7301	
==>m  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->per <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23555	23660	
==>>object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19976	20081	
==>>object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9258	9356	
==>@xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9258	9356	
==>@xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9258	9356	
==>@xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7657	7753	
==>es care of much of this.)

A default implementation of this method is provided which returns noth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7657	7753	
==>es care of much of this.)

A default implementation of this method is provided which returns noth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6821	6906	
==>lve));

## --------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6821	6906	
==>lve));

## --------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6821	6906	
==>lve));

## --------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2057	2172	
==>::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2057	2172	
==>::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21945	22032	
==>::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21945	22032	
==>::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21945	22032	
==>::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2443	2547	
==>r $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2443	2547	
==>r $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2443	2547	
==>r $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprint <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16765	16865	
==>oin (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20242	20342	
==>oin (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join, <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	950	1078	
==>nd_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	950	1078	
==>nd_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3869	3996	
==>efault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3869	3996	
==>efault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3869	3996	
==>efault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	657	787	
==>$_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	657	787	
==>$_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	657	787	
==>$_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bl <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8211	8309	
==>ement ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8211	8309	
==>ement ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6749	6865	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6942	7058	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7961	8110	
==>n "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        St <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7961	8110	
==>n "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        St <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7961	8110	
==>n "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21136	21230	
==>precompiled. This means that people who install your
module distribtution do not need to have t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21136	21230	
==>precompiled. This means that people who install your
module distribtution do not need to have t <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1715	1842	
==>local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File::Spec- <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1898	2068	
==>ts<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1898	2068	
==>ts<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7893	8001	
==>e_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7893	8001	
==>e_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7893	8001	
==>e_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4443	4546	
==>,4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif ( <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4698	4801	
==>,4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif ( <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4443	4546	
==>,4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif ( <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4698	4801	
==>,4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif ( <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1525	1616	
==>($node->isa("Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce($node);
			retu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7726	7894	
==>y @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the rig <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8190	8358	
==>y @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the rig <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4160	4316	
==>y @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the rig <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4624	4780	
==>y @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the rig <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10718	10823	
==>tical_space))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", !. %# XXX - not quit <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1869	2049	
==>$.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             su <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1869	2049	
==>$.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             su <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19430	19530	
==>t is not the same as a table.

The intended interface and use of this class in Perl programs is simil <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23982	24082	
==>t is not the same as a table.

The intended interface and use of this class in Perl programs is simil <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22498	22598	
==>t is not the same as a table.

The intended interface and use of this class in Perl programs is simil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2748	2891	
==>per;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2953	3096	
==>per;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supercl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29596	29702	
==>arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module My <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29596	29702	
==>arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module My <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	404	498	
==>arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module My <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7936	8046	
==>@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^is macrop5 (.+)$/) {
	ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3254	3352	
==>TR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6379	6477	
==>TR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3254	3352	
==>TR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6379	6477	
==>TR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14810	14951	
==>ect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14810	14951	
==>ect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2505	2622	
==>mp($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2505	2622	
==>mp($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2505	2622	
==>mp($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5301	5479	
==>($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5301	5479	
==>($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17455	17559	
==>{
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17455	17559	
==>{
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17455	17559	
==>{
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( P <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8691	8813	
==>=$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contai <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8691	8813	
==>=$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15443	15553	
==>'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15443	15553	
==>'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15443	15553	
==>'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	753	859	
==>e "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't p <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	753	859	
==>e "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4277	4370	
==>elf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4277	4370	
==>elf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4277	4370	
==>elf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Cod <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2611	2853	
==>_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chom <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2611	2853	
==>_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6872	6997	
==>TION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6872	6997	
==>TION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6872	6997	
==>TION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5848	5955	
==>ue for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5848	5955	
==>ue for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12925	13026	
==>ble";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12925	13026	
==>ble";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12925	13026	
==>ble";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3548	3654	
==>"Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being ren <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7025	7131	
==>"Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being ren <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5982	6088	
==>"Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being ren <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22356	22490	
==>??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18777	18911	
==>??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17803	17906	
==>nce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17803	17906	
==>nce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17803	17906	
==>nce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1734	1832	
==>F;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1734	1832	
==>F;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1734	1832	
==>F;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2523	2645	
==>{ $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.ele <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2523	2645	
==>{ $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.ele <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13893	14007	
==>000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Co <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13893	14007	
==>000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Co <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11411	11512	
==><HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsignedDecimalLiteral>
    | <' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5538	5705	
==>ken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5538	5705	
==>ken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5538	5705	
==>ken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3252	3341	
==>::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3252	3341	
==>::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deci <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17968	18109	
==>sual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(R <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14389	14530	
==>sual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13965	14074	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13965	14074	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13965	14074	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11306	11402	
==>routines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('' <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11306	11402	
==>routines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('' <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6044	6177	
==>tch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(pars <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6044	6177	
==>tch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(pars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1887	1980	
==>lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $lineb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1887	1980	
==>lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $lineb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1887	1980	
==>lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $lineb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1325	1427	
==>itional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1325	1427	
==>itional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1534	1636	
==>itional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{o <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2202	2288	
==>an.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2202	2288	
==>an.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6261	6372	
==>$cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6261	6372	
==>$cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6261	6372	
==>$cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21001	21101	
==>es, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same
d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25553	25653	
==>es, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same
d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17067	17224	
==>fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17067	17224	
==>fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17067	17224	
==>fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8991	9113	
==>am, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8979	9101	
==>am, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	74	180	
==>in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	74	180	
==>in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	74	180	
==>in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$na <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37531	37622	
==>dule_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_l <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37531	37622	
==>dule_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_l <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26392	26486	
==>y
variable values which are references will be passed by reference, so you
may store references <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26392	26486	
==>y
variable values which are references will be passed by reference, so you
may store references <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9012	9184	
==>return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9012	9184	
==>return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9012	9184	
==>return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                r <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	217	337	
==>ndef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	217	337	
==>ndef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $. <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	125	220	
==>vars qw[@EXPORT];
use base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4396	4484	
==>stance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21033	21121	
==>r_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4396	4484	
==>stance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4396	4484	
==>stance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6004	6100	
==>for capture

At runtime, this must return _only_ the capture set inside capture_closure:

  xx(xx <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5812	5906	
==>for capture
At runtime, this must return _only_ the capture set inside capture_closure:
  xx(xx <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28967	29059	
==>rapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33519	33611	
==>rapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32656	32748	
==>rapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (th <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4602	4713	
==>ode has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4994	5105	
==>ode has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27060	27153	
==>ect> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31612	31705	
==>ect> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30668	30761	
==>ect> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>. <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4997	5129	
==>my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5321	5453	
==>my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6277	6372	
==>\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or sem <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6277	6372	
==>\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or sem <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6277	6372	
==>\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or sem <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10144	10269	
==>$host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $con <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10144	10269	
==>$host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	437	532	
==>e FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	437	532	
==>e FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	437	532	
==>e FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9991	10133	
==>my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9991	10133	
==>my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9991	10133	
==>my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{" <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7130	7258	
==>losure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7130	7258	
==>losure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	854	954	
==>ine multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	854	954	
==>ine multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	843	942	
==>LY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	843	942	
==>LY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	843	942	
==>LY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8787	8915	
==>>[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8787	8915	
==>>[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32580	32674	
==>ary version of the aforementioned binary union()
operator, and the order of its arguments is no <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37130	37224	
==>ary version of the aforementioned binary union()
operator, and the order of its arguments is no <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36438	36532	
==>ary version of the aforementioned binary union()
operator, and the order of its arguments is no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19070	19218	
==>r magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19070	19218	
==>r magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19070	19218	
==>r magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        ' <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4776	4885	
==>lready set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4635	4744	
==>lready set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3947	4089	
==>e = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3947	4089	
==>e = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4495	4585	
==>f => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4495	4585	
==>f => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4495	4585	
==>f => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7061	7211	
==>.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@r <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5562	5712	
==>.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@r <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5990	6093	
==>6)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5990	6093	
==>6)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	875	975	
==>per::Dumper($_[0]);
}

sub import {
	# get the format specified on the command line
	$dumper = $forma <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	651	785	
==>d 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zer <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	651	785	
==>d 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17198	17306	
==>$::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17198	17306	
==>$::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17198	17306	
==>$::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2627	2737	
==>angpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2627	2737	
==>angpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2627	2737	
==>angpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workar <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4532	4628	
==>int "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Cou <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4532	4628	
==>int "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Cou <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11864	11962	
==>to wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11922	12020	
==>to wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6468	6559	
==>thoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6468	6559	
==>thoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6468	6559	
==>thoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PI <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8247	8370	
==>r(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773), <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8247	8370	
==>r(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773), <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1334	1424	
==>_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1334	1424	
==>_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1334	1424	
==>_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11178	11301	
==>lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11178	11301	
==>lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11178	11301	
==>lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->c <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	770	889	
==>g
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	770	889	
==>g
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4094	4240	
==>es ) {
        last unless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	89	195	
==>he "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	93	199	
==>he "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	89	195	
==>he "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	93	199	
==>he "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2561	2673	
==>$container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2561	2673	
==>$container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5324	5423	
==>on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5324	5423	
==>on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5324	5423	
==>on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7150	7263	
==>ad is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7150	7263	
==>ad is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7150	7263	
==>ad is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	378	487	
==>length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	378	487	
==>length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	741	868	
==>>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the mu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	741	868	
==>>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2332	2428	
==>L-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2332	2428	
==>L-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2332	2428	
==>L-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16415	16552	
==>rn $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exten <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16415	16552	
==>rn $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exten <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16415	16552	
==>rn $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exten <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1264	1380	
==>nd_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f. <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1264	1380	
==>nd_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1160	1273	
==>}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1160	1273	
==>}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3514	3614	
==>TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3514	3614	
==>TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3514	3614	
==>TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_ty <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3964	4100	
==>an;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3964	4100	
==>an;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4492	4622	
==>an;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4492	4622	
==>an;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3	90	
==>usr/bin/perl

package Blondie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8897	8999	
==>ur &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8897	8999	
==>ur &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8897	8999	
==>ur &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1701	1799	
==>e 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

packag <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1701	1799	
==>e 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

packag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3176	3276	
==>oad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3176	3276	
==>oad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3176	3276	
==>oad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3341	3436	
==>means that the nonce or initialization vector should be hashed with the 
key, not merely appende <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3341	3436	
==>means that the nonce or initialization vector should be hashed with the 
key, not merely appende <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2074	2264	
==>ie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2074	2264	
==>ie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6274	6368	
==>/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6274	6368	
==>/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6274	6368	
==>/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	664	778	
==>sh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(St <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	663	777	
==>sh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(St <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	664	778	
==>sh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(St <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	663	777	
==>sh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3448	3614	
==>rn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3448	3614	
==>rn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3448	3614	
==>rn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4938	5067	
==>ate_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4938	5067	
==>ate_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17337	17450	
==>kg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11952	12064	
==>kg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11952	12064	
==>kg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11952	12064	
==>kg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7564	7667	
==>for @modfiles;

my @pfiles;
step
  descr  => "Searching for Parrot include files",
  ensure => sub { @pf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3917	4073	
==>ell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3917	4073	
==>ell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3917	4073	
==>ell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'sto <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	668	775	
==>py) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	668	775	
==>py) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10380	10556	
==>mijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13857	14033	
==>mijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13138	13314	
==>mijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Re <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14216	14310	
==>00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14216	14310	
==>00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "se <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14007	14099	
==>unsafe characters in $string with their entity
representation. A second argument can be given <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14007	14099	
==>unsafe characters in $string with their entity
representation. A second argument can be given <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19988	20114	
==>STROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19988	20114	
==>STROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19988	20114	
==>STROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23746	23841	
==>e> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The P <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23746	23841	
==>e> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8104	8251	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        D <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8104	8251	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        D <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8104	8251	
==>s => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        D <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2511	2606	
==>ing stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2511	2606	
==>ing stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1867	1984	
==>non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1878	1995	
==>non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2057	2148	
==>er = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2057	2148	
==>er = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2057	2148	
==>er = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2630	2738	
==>dy () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6107	6215	
==>dy () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5037	5145	
==>dy () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!bo <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	579	682	
==>from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<de <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	579	682	
==>from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3175	3281	
==>less (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3175	3281	
==>less (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3175	3281	
==>less (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        } <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9734	9832	
==>{ return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9734	9832	
==>{ return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cip <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2345	2470	
==>_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2550	2675	
==>_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3341	3466	
==>_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:na <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27971	28063	
==>ng) associated with
the variable name specified in the positional parameter $var_name (a
stri <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27971	28063	
==>ng) associated with
the variable name specified in the positional parameter $var_name (a
stri <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12285	12397	
==>nv = env($$);

	Set::Object->new(
		grep { $_->free_vars }
			map { $_->left }
				grep { $_->is_arrow }
					val <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32076	32175	
==>onds to language A, looking for a match to said error
message.  If it finds one, then that is displa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32076	32175	
==>onds to language A, looking for a match to said error
message.  If it finds one, then that is displa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26743	26840	
==>rs of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31295	31392	
==>rs of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1151	1315	
==>.. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evaluate($t);
                n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14875	15006	
==>in => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14875	15006	
==>in => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2529	2632	
==>des($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2529	2632	
==>des($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1214	1349	
==>=> 'equal',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        name => '~',
        assoc => 'left',
        precedence => <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2536	2642	
==>ist {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.in <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5739	5845	
==>ist {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.in <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2536	2642	
==>ist {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.in <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5739	5845	
==>ist {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1056	1185	
==>";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1060	1181	
==>";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11600	11718	
==>ile (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15077	15195	
==>ile (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14412	14530	
==>ile (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rela <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29647	29761	
==>for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29647	29761	
==>for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29647	29761	
==>for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26838	26950	
==>>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <Clas <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40151	40246	
==>ERROR HANDLING

=head2 Creating Custom Messages

It is probably easiest to follow my module when <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2674	2778	
==>/code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { H <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2674	2778	
==>/code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { H <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1863	1994	
==>ng($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1863	1994	
==>ng($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	314	414	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	314	414	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	314	414	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	47	146	
==>*infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	47	146	
==>*infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1443	1536	
==>pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1443	1536	
==>pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1443	1536	
==>pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $i <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	472	586	
==>{
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	472	586	
==>{
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3395	3506	
==>e=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automaticall <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3395	3506	
==>e=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automaticall <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3395	3506	
==>e=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automaticall <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8964	9078	
==>"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	698	812	
==>"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8964	9078	
==>"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8964	9078	
==>"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18777	18866	
==>art,   StrLen $length  ; $replace)
{ Pugs::Internals::substr($s,undef,$start,$length,undef <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1822	1976	
==>led --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_d <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6273	6368	
==>ath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8341	8436	
==>ath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6273	6368	
==>ath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8341	8436	
==>ath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13050	13261	
==>alue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13050	13261	
==>alue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13050	13261	
==>alue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	473	579	
==>= (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableNa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	473	579	
==>= (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableNa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16796	16913	
==>= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16796	16913	
==>= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3165	3263	
==>PTION

This test module allows you to test test modules that use Test::Builder.  It
does this by yo <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3165	3263	
==>PTION

This test module allows you to test test modules that use Test::Builder.  It
does this by yo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3245	3343	
==>PTION

This test module allows you to test test modules that use Test::Builder.  It
does this by yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	587	751	
==>y ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	587	751	
==>y ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	587	751	
==>y ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10009	10116	
==>n0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10009	10116	
==>n0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1773	1957	
==>i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event.
    # No <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6904	6993	
==>st::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1344	1433	
==>st::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6904	6993	
==>st::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1344	1433	
==>st::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5032	5152	
==>, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16068	16188	
==>, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17556	17676	
==>, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22239	22359	
==>, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{ <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2704	2806	
==>e {
print <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to submit the r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	685	813	
==>que instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	685	813	
==>que instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	685	813	
==>que instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4107	4224	
==>e = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3980	4095	
==>e = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7218	7318	
==>ed dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7218	7318	
==>ed dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7218	7318	
==>ed dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25896	25988	
==>n attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute nam <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30448	30540	
==>n attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7804	7938	
==>($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11805	11934	
==>($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11805	11934	
==>($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11061	11162	
==>de into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11061	11162	
==>de into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1575	1674	
==>»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1575	1674	
==>»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1575	1674	
==>»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "in <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	20	114	
==>pher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) ret <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	20	114	
==>pher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10822	10976	
==>= @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10822	10976	
==>= @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1925	2021	
==>ox.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1925	2021	
==>ox.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1925	2021	
==>ox.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::P <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	655	846	
==>}
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	655	846	
==>}
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32692	32857	
==>ue::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32692	32857	
==>ue::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32692	32857	
==>ue::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18249	18439	
==>r::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18249	18439	
==>r::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18249	18439	
==>r::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22903	22994	
==>t>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22903	22994	
==>t>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3695	4080	
==>c.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3695	4080	
==>c.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6080	6169	
==>tem B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6080	6169	
==>tem B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8277	8366	
==>tem B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::T <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5700	5819	
==>omplement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions ---- <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5700	5819	
==>omplement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions ---- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3526	3635	
==>hod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3526	3635	
==>hod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3526	3635	
==>hod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2548	2668	
==>$vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2548	2668	
==>$vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2548	2668	
==>$vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4763	4860	
==>object.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The follo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4763	4860	
==>object.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The follo <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	227	341	
==>elf: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $want <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	227	341	
==>elf: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $want <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3084	3191	
==>eed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3084	3191	
==>eed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3084	3191	
==>eed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ( <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4845	5015	
==>_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an even <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4845	5015	
==>_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an even <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7800	7962	
==>ge <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7800	7962	
==>ge <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1611	1720	
==>t->{assoc};
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9760	9856	
==>ble:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9760	9856	
==>ble:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	421	526	
==>51, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	421	526	
==>51, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2151	2245	
==>ETAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub comp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2151	2245	
==>ETAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub comp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2151	2245	
==>ETAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub comp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10145	10267	
==>cname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10145	10267	
==>cname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7900	8021	
==>)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7900	8021	
==>)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7900	8021	
==>)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello f <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1946	2048	
==>"Blondie::Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduced;
} <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1126	1266	
==>h($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curren <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1126	1266	
==>h($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curren <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1259	1352	
==>::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1259	1352	
==>::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1259	1352	
==>::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	620	808	
==>ETA, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25050	25193	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_ap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25329	25472	
==>$match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_ap <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2103	2221	
==>r,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2114	2232	
==>r,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20313	20456	
==>rl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20313	20456	
==>rl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20313	20456	
==>rl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Arr <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	45	160	
==>n];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	45	160	
==>n];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	537	649	
==>),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	537	649	
==>),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	537	649	
==>),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEig <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	227	321	
==>_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Juncti <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	285	379	
==>_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Juncti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1235	1353	
==>amed_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   sign <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17772	17887	
==>k     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16810	16925	
==>k     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # ( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17772	17887	
==>k     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # ( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16810	16925	
==>k     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	992	1117	
==>( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	992	1117	
==>( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1075	1166	
==>_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1075	1166	
==>_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1075	1166	
==>_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36925	37034	
==>y -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36925	37034	
==>y -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36925	37034	
==>y -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2547	2642	
==>$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $co <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2547	2642	
==>$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	651	767	
==>e w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	651	767	
==>e w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	651	767	
==>e w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw k <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	494	604	
==>alues are the 
    # expected types of those objects (or possibly
    # the default values too)
    (blessed($s <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	146	244	
==>D__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=head1 SYNOPSIS

	use Blondie::Backend::Prim;

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1149	1262	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1149	1262	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1149	1262	
==>$st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $cou <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	381	485	
==>ote: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@ <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	381	485	
==>ote: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11551	11660	
==>chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3418	3523	
==>erl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3418	3523	
==>erl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3418	3523	
==>erl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	6404	6503	
==>you've
got a successful test.

$failed is a hash ref of all the test scripts which failed.  Each key <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1807	1909	
==>members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($sel <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1807	1909	
==>members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3497	3664	
==>:Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
} <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3497	3664	
==>:Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6532	6617	
==>'$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6532	6617	
==>'$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6532	6617	
==>'$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23044	23147	
==>6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23044	23147	
==>6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23044	23147	
==>6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	152	247	
==>nt for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_key <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	152	247	
==>nt for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_key <==
5	/Users/nnunley/pugs/util/config_h.pl	1329	1436	
==>)
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n" <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2351	2456	
==>rn 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free so <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2351	2456	
==>rn 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free so <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31463	31558	
==>read-only argument. The new
Relation has all of the same attributes as the original.  Trivial ca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36013	36108	
==>read-only argument. The new
Relation has all of the same attributes as the original.  Trivial ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4063	4160	
==>b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4063	4160	
==>b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4063	4160	
==>b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETC <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11642	11737	
==>( $recurrence )`

Returns true if this recurrence intersects (has any element in common) with th <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11642	11737	
==>( $recurrence )`

Returns true if this recurrence intersects (has any element in common) with th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2918	3024	
==>'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2918	3024	
==>'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2918	3024	
==>'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1998	2099	
==>@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($d <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1998	2099	
==>@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1609	1743	
==>y;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1609	1743	
==>y;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1609	1743	
==>y;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2609	2723	
==><to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2609	2723	
==><to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2989	3115	
==>capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub var <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2873	2993	
==>capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub var <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	243	356	
==>"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	243	356	
==>"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	243	356	
==>"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2476	2578	
==>r $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2476	2578	
==>r $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2476	2578	
==>r $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?S <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	771	871	
==>file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	771	871	
==>file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4014	4145	
==>};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4014	4145	
==>};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4014	4145	
==>};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2052	2161	
==>SIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = spli <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2052	2161	
==>SIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = spli <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1588	1713	
==>Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1588	1713	
==>Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1588	1713	
==>Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=r <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1763	1856	
==>PTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1763	1856	
==>PTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7115	7297	
==>bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2138	2310	
==>$pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6877	7049	
==>bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2138	2310	
==>$pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2138	2310	
==>$pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24069	24178	
==>);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_ato <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20490	20599	
==>);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_ato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15585	15689	
==>__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15585	15689	
==>__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15585	15689	
==>__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6414	6575	
==>calar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6414	6575	
==>calar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6414	6575	
==>calar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4388	4510	
==>lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4388	4510	
==>lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	448	557	
==>ate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	654	763	
==>ate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2641	2739	
==>Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2641	2739	
==>Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2641	2739	
==>Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2774	2882	
==>ng);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2774	2882	
==>ng);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2774	2882	
==>ng);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1529	1625	
==>en used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kah <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1529	1625	
==>en used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kah <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24098	24197	
==>h are present to pass info from
 * compile to execute that permits the execute phase to run lots fas <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3304	3401	
==>value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	92	179	
==>e::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	279	366	
==>e::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	466	553	
==>e::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12311	12410	
==>n value, but only if no previous
value for that field is set.

The header field name ($field) is not <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12311	12410	
==>n value, but only if no previous
value for that field is set.

The header field name ($field) is not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14549	14633	
==>ain::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14549	14633	
==>ain::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14549	14633	
==>ain::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6007	6108	
==>ource =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6007	6108	
==>ource =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6007	6108	
==>ource =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1309	1406	
==>akes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

met <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1309	1406	
==>akes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

met <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9266	9374	
==>erators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9266	9374	
==>erators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7118	7224	
==>$test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messages since we try to
# be compatib <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22716	22803	
==>below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22716	22803	
==>below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1113	1237	
==>key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1113	1237	
==>key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1113	1237	
==>key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4304	4409	
==>[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4304	4409	
==>[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0 <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4840	4942	
==>ct.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersec <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4840	4942	
==>ct.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	541	639	
==>y ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->ite <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	541	639	
==>y ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->ite <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	541	639	
==>y ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2488	2585	
==>s_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2488	2585	
==>s_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2488	2585	
==>s_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4314	4409	
==>ode> <'}'> ]* }
rule metasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1924	2014	
==>hesize($$) ? "($_)" : $_ for inner_layout($$) }

type::operator::binary: parenthesize($$) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10309	10432	
==>->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        las <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24572	24669	
==>ers.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23336	23433	
==>ers.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has su <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24572	24669	
==>ers.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has su <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23336	23433	
==>ers.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13204	13329	
==>onstant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13204	13329	
==>onstant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	803	923	
==>n,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	803	923	
==>n,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	803	923	
==>n,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8977	9077	
==>e { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8977	9077	
==>e { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8977	9077	
==>e { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13515	13611	
==>this test can pass (or before an implementation
could be started).  This is most useful when writ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13573	13669	
==>this test can pass (or before an implementation
could be started).  This is most useful when writ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2496	2610	
==>i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2496	2610	
==>i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2496	2610	
==>i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17715	17812	
==>ut the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17715	17812	
==>ut the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10468	10566	
==>u would like to force into being TODO tests
then you can pass them through this function. This is p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10526	10624	
==>u would like to force into being TODO tests
then you can pass them through this function. This is p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1403	1499	
==>classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1403	1499	
==>classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1403	1499	
==>classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2539	2642	
==>.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and that the f <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2539	2642	
==>.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and that the f <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1053	1149	
==>lder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1053	1149	
==>lder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1133	1229	
==>lder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2498	2700	
==>er ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2498	2700	
==>er ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            f <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	669	833	
==>{
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1664	1758	
==>hat directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1504	1598	
==>hat directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22129	22363	
==>'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22129	22363	
==>'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22129	22363	
==>'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11379	11514	
==>gram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11373	11508	
==>gram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	432	578	
==>)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	432	578	
==>)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	432	578	
==>)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2731	2832	
==>set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_par <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2731	2832	
==>set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	560	663	
==>b type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	560	663	
==>b type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	560	663	
==>b type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lv <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5484	5579	
==>um/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5484	5579	
==>um/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1954	2097	
==>repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose outp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1954	2097	
==>repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose outp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1954	2097	
==>repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose outp <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	229	368	
==>hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	229	368	
==>hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5542	5729	
==>mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9019	9206	
==>mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	251	357	
==>sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	251	357	
==>sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	251	357	
==>sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15860	15994	
==>] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15860	15994	
==>] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15860	15994	
==>] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9739	9834	
==>d by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "neg <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9739	9834	
==>d by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "neg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2949	3048	
==>urn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Could <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1493	1592	
==>nAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1493	1592	
==>nAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2949	3048	
==>urn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2949	3048	
==>urn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Could <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1942	2049	
==>method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1942	2049	
==>method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1985	2091	
==>symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1667	1769	
==>symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2315	2417	
==>symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8045	8227	
==>:p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8045	8227	
==>:p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8045	8227	
==>:p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	608	721	
==>od footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	608	721	
==>od footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2922	3070	
==>_box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2922	3070	
==>_box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9100	9243	
==>@_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9100	9243	
==>@_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9100	9243	
==>@_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11508	11682	
==>$self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11508	11682	
==>$self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11508	11682	
==>$self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2978	3080	
==>/status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2978	3080	
==>/status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9841	9952	
==>,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9841	9952	
==>,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9841	9952	
==>,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12723	12831	
==>}
    method next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where this <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26146	26237	
==>type::variable::free->new;
	my $b = type::variable::free->new;
	my $type = type::operator::a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12860	12966	
==>r_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12860	12966	
==>r_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12860	12966	
==>r_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6087	6181	
==>nt().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_roo <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6087	6181	
==>nt().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_roo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4003	4128	
==>.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4003	4128	
==>.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4003	4128	
==>.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20976	21091	
==>fmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17397	17512	
==>fmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4285	4391	
==>ns = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a me <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4285	4391	
==>ns = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1096	1195	
==>cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1096	1195	
==>cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1096	1195	
==>cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1726	1834	
==>>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1726	1834	
==>>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1726	1834	
==>>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23481	23574	
==>xt has no non-trivial
external dependencies (it is very simple).

There are other differences. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23481	23574	
==>xt has no non-trivial
external dependencies (it is very simple).

There are other differences. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11325	11480	
==>ine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11325	11480	
==>ine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30002	30116	
==>--";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30002	30116	
==>--";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30002	30116	
==>--";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	221	317	
==>cret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar impl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	221	317	
==>cret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar impl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	708	796	
==>de::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	708	796	
==>de::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	708	796	
==>de::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6185	6283	
==>ay not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving ab <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6185	6283	
==>ay not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18616	18707	
==>LTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18616	18707	
==>LTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18616	18707	
==>LTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	290	401	
==>+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	290	401	
==>+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5401	5502	
==>f lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5401	5502	
==>f lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5401	5502	
==>f lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5445	5568	
==>AME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $sel <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5951	6060	
==>AME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	801	901	
==>ore, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour object <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	801	901	
==>ore, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour object <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	801	901	
==>ore, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour object <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12044	12169	
==>array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12038	12163	
==>array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9418	9512	
==>is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrita <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9418	9512	
==>is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrita <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9418	9512	
==>is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrita <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8993	9122	
==>urn unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::conca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8679	8805	
==>urn unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::conca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1291	1391	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1291	1391	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1291	1391	
==>_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1376	1479	
==>Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1376	1479	
==>Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1376	1479	
==>Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	549	645	
==>::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XM <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	549	645	
==>::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XM <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4235	4347	
==>difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @di <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4235	4347	
==>difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @di <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7069	7172	
==>n $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3673	3776	
==>n $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4522	4625	
==>n $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	177	307	
==>age   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	177	307	
==>age   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3757	3861	
==>e length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3757	3861	
==>e length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3757	3861	
==>e length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - t <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1278	1369	
==>Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1118	1209	
==>Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8904	9033	
==>> {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8904	9033	
==>> {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8904	9033	
==>> {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY = <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2050	2173	
==>) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi su <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	891	1014	
==>) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3846	3952	
==>ap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3846	3952	
==>ap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3846	3952	
==>ap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4913	5017	
==>dir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpd <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4913	5017	
==>dir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13573	13758	
==>se {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13573	13758	
==>se {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13573	13758	
==>se {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1821	1945	
==>export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add suppor <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1821	1945	
==>export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add suppor <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5356	5481	
==>Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5356	5481	
==>Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6467	6575	
==>im'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6467	6575	
==>im'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6467	6575	
==>im'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2095	2208	
==>rt(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2095	2208	
==>rt(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3391	3484	
==>Inv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3391	3484	
==>Inv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3391	3484	
==>Inv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'} <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4979	5202	
==>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mo <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4979	5202	
==>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1678	1786	
==>$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1678	1786	
==>$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1678	1786	
==>$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19458	19770	
==>unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19458	19770	
==>unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19458	19770	
==>unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->un <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8687	8785	
==>ill recurse down the tree and fix the
# depth fields appropriately.
# This method is called automat <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8687	8785	
==>ill recurse down the tree and fix the
# depth fields appropriately.
# This method is called automat <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5673	5794	
==>sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ------ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5673	5794	
==>sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ------ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14733	14841	
==>ric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14733	14841	
==>ric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14733	14841	
==>ric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

u <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21805	21903	
==>ot> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20686	20784	
==>ot> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21805	21903	
==>ot> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20686	20784	
==>ot> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10360	10458	
==>class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5868	5982	
==>ub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5868	5982	
==>ub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5868	5982	
==>ub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4602	4713	
==>::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4795	4906	
==>::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	720	819	
==>ltiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	720	819	
==>ltiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	720	819	
==>ltiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Co <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10174	10270	
==>this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10232	10328	
==>this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10865	10974	
==>rs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10865	10974	
==>rs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10865	10974	
==>rs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20683	20779	
==>on does not declare any subroutines or export such.

The usual way that Relation indicates a fail <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25235	25331	
==>on does not declare any subroutines or export such.

The usual way that Relation indicates a fail <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7864	7967	
==>capture then entire match. For example:

  

  # returns a Match object that has the 'capture' field set <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7598	7699	
==>capture then entire match. For example:
  
  # returns a Match object that has the 'capture' field set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6192	6285	
==>bName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6192	6285	
==>bName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6192	6285	
==>bName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4416	4518	
==>>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4416	4518	
==>>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4416	4518	
==>>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2263	2356	
==>r.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2263	2356	
==>r.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5742	5843	
==>ssibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current le <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5742	5843	
==>ssibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current le <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5742	5843	
==>ssibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current le <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3764	3861	
==>bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, i <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3764	3861	
==>bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2281	2379	
==>few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2281	2379	
==>few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2626	2723	
==>qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2626	2723	
==>qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2626	2723	
==>qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5390	5506	
==>);    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $versi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5390	5506	
==>);    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $versi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5390	5506	
==>);    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $versi <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2883	2974	
==>s to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pug <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2883	2974	
==>s to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pug <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1374	1512	
==>r('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1374	1512	
==>r('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	510	630	
==>();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	510	630	
==>();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	510	630	
==>();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')( <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9137	9261	
==>e and $Config{osname} eq 'cygwin') {

            warn "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # I <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	116	207	
==>mar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	120	211	
==>mar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	114	205	
==>mar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	114	205	
==>mar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2333	2462	
==>ighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2333	2462	
==>ighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2838	2947	
==>lan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2838	2947	
==>lan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2918	3027	
==>lan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8026	8172	
==>obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8026	8172	
==>obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24056	24195	
==>b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24056	24195	
==>b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24056	24195	
==>b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	496	631	
==>ot
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	496	631	
==>ot
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	496	631	
==>ot
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4189	4283	
==>ce_object(anyof_char_comp => "\n", '\N') if $cc;
    return $S->object(exact_comp => "\n", '\N' <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	403	493	
==>= $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::Annotator" <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36871	36971	
==>,
the result is as if it wasn't there at all.  In any situation where a pair
of source relations have <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41420	41520	
==>,
the result is as if it wasn't there at all.  In any situation where a pair
of source relations have <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41043	41143	
==>,
the result is as if it wasn't there at all.  In any situation where a pair
of source relations have <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9712	9809	
==>o the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Const <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9712	9809	
==>o the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Const <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9104	9199	
==>=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'tex <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9104	9199	
==>=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16120	16211	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16120	16211	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16120	16211	
==>urn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribut <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6511	6641	
==>[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6511	6641	
==>[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1393	1503	
==>blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1393	1503	
==>blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1393	1503	
==>blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4834	4984	
==>.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4834	4984	
==>.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4834	4984	
==>.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19483	19618	
==>r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15904	16039	
==>r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5021	5119	
==>int "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5021	5119	
==>int "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14198	14292	
==>NV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14198	14292	
==>NV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14198	14292	
==>NV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5075	5200	
==>ue id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5075	5200	
==>ue id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5075	5200	
==>ue id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4861	4959	
==>- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4861	4959	
==>- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	441	559	
==>modifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        < <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	441	559	
==>modifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	48	165	
==>ub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	48	165	
==>ub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	48	165	
==>ub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	126	230	
==>ody, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	126	230	
==>ody, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	126	230	
==>ody, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memo <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2294	2392	
==>$.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2294	2392	
==>$.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4305	4404	
==>:Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4305	4404	
==>:Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4305	4404	
==>:Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef un <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2993	3086	
==>:opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher data <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2993	3086	
==>:opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher data <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13837	13971	
==>'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13837	13971	
==>'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36450	36545	
==>others.  The sequence in which any two source relations are
combined is inconsequential.  A triv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40999	41094	
==>others.  The sequence in which any two source relations are
combined is inconsequential.  A triv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40613	40708	
==>others.  The sequence in which any two source relations are
combined is inconsequential.  A triv <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32834	32926	
==>sion (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37384	37476	
==>sion (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6587	6676	
==>lob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6587	6676	
==>lob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6587	6676	
==>lob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34929	35048	
==>ef for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34929	35048	
==>ef for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34929	35048	
==>ef for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5340	5457	
==>);
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5340	5457	
==>);
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1800	1962	
==><object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1800	1962	
==><object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1745	1846	
==>,
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1745	1846	
==>,
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1745	1846	
==>,
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2678	2787	
==>g = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2678	2787	
==>g = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4007	4103	
==>rict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use const <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4007	4103	
==>rict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use const <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4007	4103	
==>rict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use const <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3153	3275	
==>_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduc <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3153	3275	
==>_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10661	10769	
==>var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10661	10769	
==>var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10661	10769	
==>var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	690	804	
==>r {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $c <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	690	804	
==>r {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2130	2233	
==>stpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2130	2233	
==>stpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2130	2233	
==>stpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18099	18236	
==>constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18378	18515	
==>constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3359	3450	
==>path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3359	3450	
==>path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3359	3450	
==>path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7759	7860	
==>f scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7759	7860	
==>f scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1458	1548	
==>hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUppe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1458	1548	
==>hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUppe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1458	1548	
==>hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUppe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3733	3902	
==>h = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3873	4042	
==>h = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6658	6754	
==>fix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6658	6754	
==>fix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6658	6754	
==>fix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Nu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	331	520	
==>/) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	331	520	
==>/) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23514	23621	
==>cement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23514	23621	
==>cement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23514	23621	
==>cement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9377	9542	
==>l 6 Code
  
  class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$tod <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10270	10364	
==>mpty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8163	8257	
==>mpty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10270	10364	
==>mpty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8163	8257	
==>mpty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8250	8358	
==>re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8250	8358	
==>re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2589	2694	
==>".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2589	2694	
==>".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2589	2694	
==>".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3160	3261	
==>oes not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3160	3261	
==>oes not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3160	3261	
==>oes not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23144	23242	
==>d up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23144	23242	
==>d up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	395	489	
==>TCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18515	18604	
==>xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18515	18604	
==>xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18515	18604	
==>xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6498	6585	
==>ication_term => $() ,} }
RULE
*{'sub_application'} = Pugs::Compiler::Rule->compile(<<'RU <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5414	5586	
==>}
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@t <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5414	5586	
==>}
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2455	2552	
==>::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blesse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2455	2552	
==>::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blesse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2455	2552	
==>::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blesse <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2704	2839	
==>x:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 ! <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2704	2839	
==>x:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1467	1594	
==>ew();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1467	1594	
==>ew();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1467	1594	
==>ew();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( ' <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18711	18804	
==>void problems.  While simultaneously
trying to avoid triggering core behavior which we are not <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3001	3094	
==>void problems.  While simultaneously
trying to avoid triggering core behavior which we are not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7933	8169	
==>= $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7933	8169	
==>= $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7933	8169	
==>= $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7861	7973	
==>Function:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	27649	27741	
==>)");
is(t($length_and_first), "∀α. list α → (α × int)", ":t length_and_first");
is(t( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1599	1727	
==>rl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "ne <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1599	1727	
==>rl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23223	23317	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23223	23317	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23223	23317	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9159	9328	
==>=> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9159	9328	
==>=> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9159	9328	
==>=> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31051	31142	
==>cant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35601	35692	
==>cant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This me <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36807	36975	
==>tr(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->s <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17913	18011	
==>1 Description

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the int <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27924	28021	
==>rs> is empty, the output relation is
identical to the invocant.  This method will fail if any keys <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32476	32573	
==>rs> is empty, the output relation is
identical to the invocant.  This method will fail if any keys <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31568	31665	
==>rs> is empty, the output relation is
identical to the invocant.  This method will fail if any keys <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1743	1866	
==>$input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS:: <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1743	1866	
==>$input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5744	5840	
==>4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the v <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5744	5840	
==>4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the v <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7941	8037	
==>4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16258	16399	
==>urn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16258	16399	
==>urn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16258	16399	
==>urn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10071	10185	
==>> {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = conne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10071	10185	
==>> {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = conne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18013	18215	
==>self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18013	18215	
==>self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18013	18215	
==>self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24237	24374	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24516	24653	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16480	16605	
==>> $rx,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen => $nparen,
      data => \@data,
      raw => '( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3930	4037	
==>od BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4263	4370	
==>od BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3930	4037	
==>od BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4263	4370	
==>od BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4023	4153	
==>y @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4023	4153	
==>y @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4023	4153	
==>y @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12042	12155	
==>minator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12042	12155	
==>minator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7360	7465	
==>ries = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathc <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7360	7465	
==>ries = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2218	2297	
==>trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2218	2297	
==>trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2218	2297	
==>trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11347	11473	
==>lass1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11347	11473	
==>lass1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11347	11473	
==>lass1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $nam <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	23	124	
==>ers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	23	124	
==>ers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    he <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3273	3412	
==>$data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3273	3412	
==>$data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13978	14097	
==>p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13978	14097	
==>p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13978	14097	
==>p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp u <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9026	9206	
==>lice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete(' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9026	9206	
==>lice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12010	12125	
==>_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%E <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12010	12125	
==>_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%E <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12010	12125	
==>_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1808	1927	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1808	1927	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1808	1927	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

wh <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4092	4211	
==>ult;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4092	4211	
==>ult;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3586	3690	
==>le, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3586	3690	
==>le, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3586	3690	
==>le, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15173	15283	
==>"QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enq <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15173	15283	
==>"QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enq <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	690	788	
==>y();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	690	788	
==>y();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	690	788	
==>y();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.l <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5461	5697	
==>("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7223	7459	
==>("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7174	7276	
==>ction (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7174	7276	
==>ction (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7174	7276	
==>ction (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20224	20346	
==>);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16645	16767	
==>);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14838	14940	
==>_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3912	4013	
==>240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexc <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3912	4013	
==>240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24094	24189	
==>o avoid loops between a client automatically sending something
  in response to something it rec <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22867	22962	
==>o avoid loops between a client automatically sending something
  in response to something it rec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24094	24189	
==>o avoid loops between a client automatically sending something
  in response to something it rec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22867	22962	
==>o avoid loops between a client automatically sending something
  in response to something it rec <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	2	85	
==>ine 1 "inc/Module/Install/Win32.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14395	14590	
==>y $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                di <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14395	14590	
==>y $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                di <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14395	14590	
==>y $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                di <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9451	9583	
==>uld probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink a <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2504	2636	
==>uld probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1358	1475	
==>gs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1358	1475	
==>gs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1358	1475	
==>gs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($sel <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	883	987	
==>>{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->ini <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2718	2813	
==>>{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->ini <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11446	11591	
==>re heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - hered <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11446	11591	
==>re heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - hered <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1918	2013	
==>ow to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1918	2013	
==>ow to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1918	2013	
==>ow to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(funct <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	17842	18043	
==>>as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earlier matches.
                    @stuff = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8975	9117	
==>$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14704	14846	
==>$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8975	9117	
==>$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14698	14840	
==>$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22365	22477	
==>xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22365	22477	
==>xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22365	22477	
==>xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1637	1734	
==>ing the '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Config{_exe}", 'b <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4734	4820	
==>,", digits_int(Max).
p5_range_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_rang <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	18236	18345	
==>{max}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals) = @_;

    my $curr = $t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7016	7116	
==>ng',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7016	7116	
==>ng',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3915	4015	
==>ng',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4454	4537	
==>s(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2994	3114	
==>g(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2994	3114	
==>g(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2994	3114	
==>g(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30976	31073	
==>ach module from others in
its set. For maximum flexibility in their use, the full name of a module <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30976	31073	
==>ach module from others in
its set. For maximum flexibility in their use, the full name of a module <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2773	2939	
==>AL::isa(shift(), 
                                                'JIB::Installation') };
use constant ISA_JIB_REPOSITORY_SET
                            => sub { UNIV <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	146	249	
==>ed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	146	249	
==>ed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
us <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	146	249	
==>ed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
us <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	146	249	
==>ed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
us <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12364	12488	
==>on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11836	11949	
==>ation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11836	11949	
==>ation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11836	11949	
==>ation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/, <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18275	18373	
==>ample of use.

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>, currently maintained by <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	694	804	
==>, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	694	804	
==>, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	694	804	
==>, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->f <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5920	6028	
==>turns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TO <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5978	6086	
==>turns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TO <==
5	/Users/nnunley/pugs/util/config_h.pl	180	294	
==>til/config_h.pl GHC BASEDIR

  GHC     - Location and flags of the ghc executable
              (defaults to 'ghc') <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11837	11934	
==>e set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMP <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8984	9081	
==>e set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMP <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11837	11934	
==>e set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMP <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8984	9081	
==>e set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMP <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14089	14188	
==>st does not fit into one of the standard
testing functions. In that case, you can use the rather blu <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14147	14246	
==>st does not fit into one of the standard
testing functions. In that case, you can use the rather blu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	776	867	
==>olFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	776	867	
==>olFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	776	867	
==>olFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15560	15678	
==>ching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15560	15678	
==>ching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15560	15678	
==>ching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17391	17504	
==>e( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20868	20981	
==>e( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => se <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8236	8455	
==>ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    } <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8236	8455	
==>ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6871	6974	
==>ion') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6871	6974	
==>ion') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6871	6974	
==>ion') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1525	1680	
==>editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1525	1680	
==>editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1525	1680	
==>editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts-> <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1320	1409	
==>self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1320	1409	
==>self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	731	902	
==>tocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETC <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	731	902	
==>tocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETC <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3612	3710	
==>p);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3612	3710	
==>p);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3612	3710	
==>p);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $cod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1020	1186	
==>lock }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1020	1186	
==>lock }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1531	1686	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edito <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1531	1686	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edito <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1531	1686	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edito <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3466	3588	
==>do($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3466	3588	
==>do($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4990	5112	
==>do($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18801	18897	
==>ines and returns an anonymous hash
definition.  While it is obvious that people who would be writ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18801	18897	
==>ines and returns an anonymous hash
definition.  While it is obvious that people who would be writ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4670	4800	
==>- should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4670	4800	
==>- should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4670	4800	
==>- should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2178	2282	
==>de, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2236	2340	
==>de, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17339	17532	
==>), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17339	17532	
==>), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17339	17532	
==>), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confe <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11314	11406	
==>ldren) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11314	11406	
==>ldren) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_ch <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9146	9241	
==>d_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_per <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9146	9241	
==>d_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22036	22127	
==>xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22036	22127	
==>xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22036	22127	
==>xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	373	485	
==>s);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	373	485	
==>s);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	373	485	
==>s);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2340	2446	
==>s{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$? <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2318	2424	
==>s{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15476	15578	
==>$_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15476	15578	
==>$_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15476	15578	
==>$_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2536	2630	
==>-----------
## getting children

method get_child ($self: Int $index) returns Tree { @!children <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2536	2630	
==>-----------
## getting children

method get_child ($self: Int $index) returns Tree { @!children <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8403	8535	
==>) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13914	14046	
==>) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8403	8535	
==>) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13908	14040	
==>) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16562	16651	
==>),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1345	1448	
==>ub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1345	1448	
==>ub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1345	1448	
==>ub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	698	792	
==>how "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	698	792	
==>how "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5053	5275	
==>start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to o <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5053	5275	
==>start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	277	383	
==>pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	277	383	
==>pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	277	383	
==>pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2616	2718	
==>cation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2616	2718	
==>cation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2616	2718	
==>cation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12725	12824	
==>sed as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12725	12824	
==>sed as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1118	1214	
==>PORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1118	1214	
==>PORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1118	1214	
==>PORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DU <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5958	6050	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $eve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5958	6050	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $eve <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5440	5566	
==>hr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "C <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5440	5566	
==>hr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37667	37782	
==>numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37667	37782	
==>numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37667	37782	
==>numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        m <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1297	1439	
==>ript);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktex <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1297	1439	
==>ript);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktex <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6533	6628	
==>key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6533	6628	
==>key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8730	8825	
==>key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5395	5608	
==>ent,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Ha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5395	5608	
==>ent,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32736	32907	
==>ems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32736	32907	
==>ems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32736	32907	
==>ems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5309	5482	
==>end,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_co <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5309	5482	
==>end,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7143	7234	
==>Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7143	7234	
==>Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7143	7234	
==>Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1615	1721	
==>i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1615	1721	
==>i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1615	1721	
==>i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XX <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6742	6839	
==>The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6742	6839	
==>The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5709	5822	
==>:_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Dat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22588	22701	
==>$self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $ne <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19009	19122	
==>$self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $ne <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5709	5822	
==>:_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6299	6412	
==>:_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Dat <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1514	1729	
==>ar eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $re <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1514	1729	
==>ar eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $re <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	415	511	
==>lts by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter::S <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11098	11193	
==>ack

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11098	11193	
==>ack

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2875	3027	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3160	3305	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9578	9723	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3160	3305	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9578	9723	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $a <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	87	193	
==>ay $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should defau <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	87	193	
==>ay $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should defau <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9271	9422	
==>ay $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9271	9422	
==>ay $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9271	9422	
==>ay $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1595	1699	
==>ce is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1595	1699	
==>ce is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciph <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2771	2866	
==>s::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2771	2866	
==>s::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24499	24596	
==>as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mut <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29051	29148	
==>as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mut <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27927	28024	
==>as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mut <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33652	33744	
==>n of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38202	38294	
==>n of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This metho <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5731	5852	
==>currence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5731	5852	
==>currence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	108	219	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	108	219	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	108	219	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	236	346	
==>er = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.ne <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	236	346	
==>er = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2575	2668	
==>sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2575	2668	
==>sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2575	2668	
==>sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1100	1217	
==>paque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1100	1217	
==>paque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1100	1217	
==>paque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14942	15045	
==>d => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14942	15045	
==>d => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10334	10432	
==>van "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10334	10432	
==>van "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33648	33776	
==>ount = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33648	33776	
==>ount = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33648	33776	
==>ount = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9358	9472	
==>$debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alterna <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9358	9472	
==>$debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alterna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2209	2320	
==>'::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2209	2320	
==>'::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2209	2320	
==>'::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versio <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19875	19974	
==>ly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, includ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19875	19974	
==>ly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, includ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4150	4302	
==>header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4150	4302	
==>header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6005	6142	
==>die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6005	6142	
==>die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6005	6142	
==>die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20506	20720	
==>$self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20506	20720	
==>$self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20506	20720	
==>$self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	175	276	
==>12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	175	276	
==>12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	589	686	
==>::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	635	730	
==>::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8558	8652	
==>::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_bad <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8616	8710	
==>::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_bad <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	869	962	
==>lue::Boolean   is JSX::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
cla <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9377	9479	
==>i_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9377	9479	
==>i_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3966	4066	
==>ired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3966	4066	
==>ired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3966	4066	
==>ired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	222	349	
==>m_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	222	349	
==>m_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	222	349	
==>m_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13027	13125	
==>r is also used internally when joining two spans, and when getting the span size.

Create a span of <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13027	13125	
==>r is also used internally when joining two spans, and when getting the span size.

Create a span of <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	739	865	
==>::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $x            --> Int )
 { Pugs::Internals::floor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8170	8296	
==>iable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8170	8296	
==>iable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8170	8296	
==>iable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8526	8619	
==>e(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2351	2444	
==>e(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5562	5667	
==>:',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5562	5667	
==>:',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5562	5667	
==>:',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8344	8443	
==>run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8402	8501	
==>run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5368	5480	
==>)' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5368	5480	
==>)' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1136	1242	
==>}
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1136	1242	
==>}
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1136	1242	
==>}
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11777	11916	
==>int 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8059	8198	
==>int 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8893	9032	
==>int 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1788	1906	
==>rnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1788	1906	
==>rnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8584	8726	
==>n($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8584	8726	
==>n($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14705	14793	
==>I SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14705	14793	
==>I SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14705	14793	
==>I SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5150	5297	
==>ds see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed pac <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5614	5761	
==>ds see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed pac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	672	787	
==>t "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	672	787	
==>t "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	672	787	
==>t "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4298	4446	
==>defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4298	4446	
==>defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4298	4446	
==>defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	230	347	
==>01 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	230	347	
==>01 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5379	5512	
==>::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->par <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5897	6009	
==>::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5998	6093	
==>ptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5998	6093	
==>ptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5998	6093	
==>ptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	192	304	
==>(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	192	304	
==>(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	192	304	
==>(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8384	8480	
==>code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Pe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8384	8480	
==>code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Pe <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10784	10880	
==>.}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empt <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10784	10880	
==>.}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4975	5085	
==>ode block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4975	5085	
==>ode block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4975	5085	
==>ode block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    p <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2584	2680	
==>nds!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two di <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2584	2680	
==>nds!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12496	12640	
==>tion );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2872	3004	
==>tion );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $s <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2872	3004	
==>tion );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7306	7407	
==>eeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    retur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7306	7407	
==>eeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    retur <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1879	1997	
==>"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1879	1997	
==>"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	887	996	
==>roper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all sc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	887	996	
==>roper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all sc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	887	996	
==>roper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all sc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9160	9282	
==>f: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              numbe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1288	1402	
==>f: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            numbe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1288	1402	
==>f: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            numbe <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1635	1736	
==>, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has in <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1635	1736	
==>, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has in <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	68	178	
==>Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	68	178	
==>Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10339	10449	
==>->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8483	8583	
==>ss','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8483	8583	
==>ss','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3920	4121	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3920	4121	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3920	4121	
==>> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                re <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1174	1287	
==>t ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1174	1287	
==>t ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5344	5474	
==>"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5344	5474	
==>"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2915	3019	
==>est.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "Th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2915	3019	
==>est.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2995	3099	
==>est.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "Th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10680	10793	
==>n.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10680	10793	
==>n.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from serv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	246	337	
==>f, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	246	337	
==>f, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	246	337	
==>f, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9398	9531	
==>$text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divid <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9398	9531	
==>$text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33974	34090	
==>a( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33974	34090	
==>a( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33974	34090	
==>a( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38132	38225	
==>ng said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compos <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42681	42774	
==>ng said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compos <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42331	42424	
==>ng said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13893	14010	
==>(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13893	14010	
==>(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13893	14010	
==>(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispat <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1846	1947	
==>header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1846	1947	
==>header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fie <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	509	608	
==>node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a dire <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	509	608	
==>node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a dire <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24191	24283	
==>le::KeyedText does no compile time binding and
will support multiple languages or locales sim <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24191	24283	
==>le::KeyedText does no compile time binding and
will support multiple languages or locales sim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28074	28267	
==>gify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28074	28267	
==>gify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28074	28267	
==>gify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @sta <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4830	4940	
==>' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Ma <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4830	4940	
==>' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3068	3161	
==>addition, the following request headers are set on the HTTP::Headers object,
if they are prese <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2592	2685	
==>method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3068	3161	
==>addition, the following request headers are set on the HTTP::Headers object,
if they are prese <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2592	2685	
==>method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2592	2685	
==>method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1432	1540	
==>er_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1432	1540	
==>er_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1855	1954	
==>s will have a key, which will be specified in the options; check your 
cipher's documentation for de <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1855	1954	
==>s will have a key, which will be specified in the options; check your 
cipher's documentation for de <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2599	2695	
==>ve to specify is probably --initrd-mnt.

Note: I only tested this program on Linux, but it should <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7970	8111	
==>i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7970	8111	
==>i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7970	8111	
==>i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDT <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6266	6392	
==>track => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6266	6392	
==>track => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12381	12531	
==>lse {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12381	12531	
==>lse {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12381	12531	
==>lse {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # wa <==
5	/Users/nnunley/pugs/util/package-osx.pl	8372	8469	
==>n/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/ma <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14359	14454	
==>rl regexp engine was long ago derived from Henry Spencer's
  regexp library.  http://arglist.com <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2990	3105	
==>"";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2990	3105	
==>"";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2990	3105	
==>"";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18156	18251	
==>kname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18156	18251	
==>kname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8549	8653	
==>r( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8549	8653	
==>r( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8549	8653	
==>r( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bi <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3570	3672	
==>re -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cm <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3570	3672	
==>re -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cm <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1240	1371	
==>t--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-- <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3536	3667	
==>t--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1240	1371	
==>t--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3536	3667	
==>t--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-- <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10964	11062	
==>shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtere <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3038	3154	
==>ass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3038	3154	
==>ass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3038	3154	
==>ass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	154	256	
==>::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type clas <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	154	256	
==>::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type clas <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10576	10674	
==>r Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<pa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10576	10674	
==>r Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<pa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3794	3900	
==>ts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3794	3900	
==>ts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	644	750	
==>ts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8769	8866	
==>is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) retu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8769	8866	
==>is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1033	1154	
==>pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	234	348	
==>ugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	234	348	
==>ugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1550	1659	
==>umify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1550	1659	
==>umify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1550	1659	
==>umify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4743	4844	
==>f,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($self <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1337	1462	
==>ass;
}

1;

__END__

    $self->{code} = eval 
        $self->{perl5};
    carp "Error in perl 5 evaluation: $@\nSour <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11315	11438	
==>$in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11315	11438	
==>$in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10556	10667	
==>$in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10556	10667	
==>$in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NI <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1432	1565	
==>vents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1068	1201	
==>vents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>( <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1432	1565	
==>vents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1068	1201	
==>vents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>( <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3378	3480	
==>efining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = shift;
	my ($no <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	857	976	
==>ve() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	857	976	
==>ve() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	380	481	
==>rrect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	380	481	
==>rrect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	380	481	
==>rrect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5985	6094	
==>"utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5985	6094	
==>"utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5985	6094	
==>"utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1371	1472	
==>o or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "select <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1371	1472	
==>o or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "select <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1328	1428	
==>Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pai <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1328	1428	
==>Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pai <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1328	1428	
==>Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pai <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19796	19893	
==>- July 1, 2004

=over 4

=item Better Abstracting

The object() method calls force_object().  forc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35229	35324	
==>mily: exact

Types: exact (C<abc>), exactf (C<abc> with C</i> on)

Data: array reference of actu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9897	10045	
==>ture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10176	10324	
==>ture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5245	5378	
==>ell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5245	5378	
==>ell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5245	5378	
==>ell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9298	9426	
==>1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9286	9414	
==>1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2884	2988	
==>hop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2884	2988	
==>hop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2884	2988	
==>hop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	21337	21453	
==>dule)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1197	1303	
==>does longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1546	1650	
==>does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1153	1257	
==>does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1546	1650	
==>does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can b <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3604	3709	
==>ing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This c <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3604	3709	
==>ing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4760	4904	
==>from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4760	4904	
==>from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4760	4904	
==>from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1533	1628	
==>author
if you'd like a feature added or something change or just have
comments.

=head1 Construc <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	1072	1165	
==>$commits_till_day[42] = 1500 (1500 commits from day 1 to day 42)
my @commits_till_day = dayify <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6005	6128	
==>) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6005	6128	
==>) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1013	1109	
==>Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1013	1109	
==>Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1569	1665	
==>Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2946	3191	
==>uant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{ter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3193	3438	
==>uant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{ter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7161	7286	
==>patcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7161	7286	
==>patcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7161	7286	
==>patcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Cl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3857	4001	
==>\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unles <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3857	4001	
==>\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unles <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	741	869	
==>. $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        preced <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	699	808	
==>nless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	787	896	
==>nless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	r <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	50	155	
==>gy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

subm <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	50	155	
==>gy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

subm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20505	20603	
==>' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20505	20603	
==>' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20505	20603	
==>' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	772	887	
==>gs => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	772	887	
==>gs => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	772	887	
==>gs => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => su <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3980	4087	
==>_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : T <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3980	4087	
==>_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8119	8305	
==>cess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12109	12254	
==>cess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12109	12254	
==>cess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4841	4931	
==>ementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4981	5071	
==>ementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	947	1084	
==>span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    els <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4186	4323	
==>span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    els <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	947	1084	
==>span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    els <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4186	4323	
==>span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    els <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2621	2712	
==>ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self->display_type($res->typ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5822	5947	
==>ift @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5765	5885	
==>imitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5765	5885	
==>imitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5765	5885	
==>imitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::I <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24945	25049	
==>| <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierPrefix> <'?'> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4420	4522	
==>name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4420	4522	
==>name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4420	4522	
==>name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7475	7571	
==>plitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathch <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7475	7571	
==>plitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathch <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1121	1234	
==>{
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $t <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1121	1234	
==>{
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19444	19573	
==>. "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19444	19573	
==>. "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19444	19573	
==>. "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27578	27674	
==>anges.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27578	27674	
==>anges.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5305	5407	
==>);

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5305	5407	
==>);

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5305	5407	
==>);

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1549	1645	
==>ules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1549	1645	
==>ules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1032	1146	
==>f[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, expo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1032	1146	
==>f[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, expo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1032	1146	
==>f[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, expo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31008	31105	
==>t. For maximum flexibility in their use, the full name of a module
consists of the two parts conca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31008	31105	
==>t. For maximum flexibility in their use, the full name of a module
consists of the two parts conca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11786	11928	
==>ne->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11786	11928	
==>ne->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11786	11928	
==>ne->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, " <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8639	8741	
==>This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields ap <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8639	8741	
==>This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1587	1693	
==>6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1587	1693	
==>6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1587	1693	
==>6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1936	2033	
==>=> [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1936	2033	
==>=> [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13655	13783	
==>hods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13655	13783	
==>hods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13655	13783	
==>hods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4354	4448	
==>tered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4354	4448	
==>tered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4354	4448	
==>tered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33558	33649	
==>em C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary vers <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38108	38199	
==>em C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary vers <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	368	500	
==>rt {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9392	9499	
==>nect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9392	9499	
==>nect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	677	782	
==>me[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runn <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	677	782	
==>me[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runn <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2888	3008	
==>e accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacut <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2888	3008	
==>e accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3370	3483	
==>j) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3370	3483	
==>j) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3370	3483	
==>j) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2114	2215	
==>package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2114	2215	
==>package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2114	2215	
==>package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3818	3913	
==>POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3818	3913	
==>POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8875	9001	
==>r"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8875	9001	
==>r"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4026	4127	
==>ntly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4026	4127	
==>ntly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4026	4127	
==>ntly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1327	1453	
==>dxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1327	1453	
==>dxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1327	1453	
==>dxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21655	21755	
==>xt in which they are using your package.  One
can override simply by using the same key code with a n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21655	21755	
==>xt in which they are using your package.  One
can override simply by using the same key code with a n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14180	14317	
==>+ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14180	14317	
==>+ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14180	14317	
==>+ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3165	3276	
==>ore than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3165	3276	
==>ore than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5815	5929	
==>tinue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5815	5929	
==>tinue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12229	12333	
==>.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule HexDigit <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24547	24640	
==>e correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23311	23404	
==>e correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24547	24640	
==>e correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23311	23404	
==>e correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10828	10954	
==>aintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.fi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10828	10954	
==>aintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1088	1186	
==>We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1088	1186	
==>We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1088	1186	
==>We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3903	4060	
==>se_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = . <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3903	4060	
==>se_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = . <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3841	3942	
==>GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->ref();
}
sub p6_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8348	8583	
==>ringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8348	8583	
==>ringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8348	8583	
==>ringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pus <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5696	5797	
==>Var (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
n <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5696	5797	
==>Var (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2841	2987	
==>n( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3129	3267	
==>n( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9547	9685	
==>n( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3129	3267	
==>n( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9547	9685	
==>n( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10861	11014	
==>},
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10861	11014	
==>},
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10861	11014	
==>},
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8516	8613	
==>vent {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<objec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8516	8613	
==>vent {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<objec <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18788	18885	
==>19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this misspe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18788	18885	
==>19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this misspe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2200	2296	
==>ename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2200	2296	
==>ename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2200	2296	
==>ename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2859	2968	
==>[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2859	2968	
==>[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2859	2968	
==>[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1665	1758	
==>ver 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :op <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1665	1758	
==>ver 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :op <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23496	23590	
==>than mutable, this property and/or
same-named accessor method can be used to see if a Relation- <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28048	28142	
==>than mutable, this property and/or
same-named accessor method can be used to see if a Relation- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2867	2971	
==>am;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invoc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2867	2971	
==>am;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invoc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2867	2971	
==>am;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invoc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6931	7030	
==>}
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method conte <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6931	7030	
==>}
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method conte <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1605	1748	
==>ar(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $time_t;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8508	8635	
==>= shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8508	8635	
==>= shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8508	8635	
==>= shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	488	601	
==>}

#line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14141	14255	
==>ayload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14141	14255	
==>ayload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rose <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	939	1047	
==>$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8422	8524	
==>to the category.

options:

=item * name => $operator_name - the name of this operator, such as '+' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5962	6060	
==>to the category.

options:

=item * name => $operator_name - the name of this operator, such as '+' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8726	8946	
==>]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8726	8946	
==>]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8726	8946	
==>]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2286	2404	
==>extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $ext <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2197	2312	
==>extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $ext <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	595	723	
==>plice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zer <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	595	723	
==>plice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2406	2513	
==>$_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2406	2513	
==>$_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2406	2513	
==>$_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11428	11603	
==>.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11428	11603	
==>.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11428	11603	
==>.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	358	456	
==>_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	358	456	
==>_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21140	21236	
==>ompiled. This means that people who install your
module distribtution do not need to have the com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21140	21236	
==>ompiled. This means that people who install your
module distribtution do not need to have the com <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6628	6723	
==>uilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6628	6723	
==>uilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8825	8920	
==>uilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7205	7313	
==>use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7205	7313	
==>use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7205	7313	
==>use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1331	1428	
==>elf.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1331	1428	
==>elf.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10806	10920	
==>$set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fgloc <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10806	10920	
==>$set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fgloc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1144	1242	
==>+ chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1144	1242	
==>+ chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1144	1242	
==>+ chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4021	4148	
==>l $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4021	4148	
==>l $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5068	5174	
==>LTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5068	5174	
==>LTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5068	5174	
==>LTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2404	2522	
==>concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because we can <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2829	2944	
==>concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2324	2439	
==>concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2829	2944	
==>concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3990	4084	
==>neCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAsteriskChar {  # s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4897	5039	
==>updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4897	5039	
==>updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2918	3041	
==>";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2918	3041	
==>";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2918	3041	
==>";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10450	10577	
==>= '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10450	10577	
==>= '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13112	13231	
==>ache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13112	13231	
==>ache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13112	13231	
==>ache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21159	21252	
==>B2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it pr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21159	21252	
==>B2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25043	25188	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25322	25467	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1900	2044	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2093	2237	
==>umper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5136	5237	
==>(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => $(), } }
RUL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8941	9127	
==>xists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5301	5487	
==>xists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6150	6336	
==>xists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4052	4159	
==>>[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4052	4159	
==>>[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8365	8493	
==>eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8365	8493	
==>eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	428	525	
==>ndent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	428	525	
==>ndent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	428	525	
==>ndent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1682	1778	
==>alls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1682	1778	
==>alls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1682	1778	
==>alls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7560	7731	
==>mp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7560	7731	
==>mp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7560	7731	
==>mp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	60	149	
==>Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Pa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	60	149	
==>Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4057	4172	
==>}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4057	4172	
==>}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4057	4172	
==>}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	152	247	
==>::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	152	247	
==>::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime:: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10658	10752	
==>rray>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<requ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10658	10752	
==>rray>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<requ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3494	3585	
==>y $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3494	3585	
==>y $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3494	3585	
==>y $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13839	13953	
==>rl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13839	13953	
==>rl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13839	13953	
==>rl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2159	2264	
==>e->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2159	2264	
==>e->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3455	3556	
==>"When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not def <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3455	3556	
==>"When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not def <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3455	3556	
==>"When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not def <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19461	19544	
==>sernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Retu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19461	19544	
==>sernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6331	6480	
==>bute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6331	6480	
==>bute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6331	6480	
==>bute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($att <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	617	712	
==>alls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	617	712	
==>alls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1215	1322	
==>parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

m <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1215	1322	
==>parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14893	14986	
==>de was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fgloc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14893	14986	
==>de was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fgloc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14893	14986	
==>de was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fgloc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	397	525	
==>.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	397	525	
==>.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29603	29709	
==>r.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29603	29709	
==>r.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	411	505	
==>r.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1846	1986	
==>, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1846	1986	
==>, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1846	1986	
==>, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the instan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1652	1763	
==>leop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1663	1774	
==>leop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4377	4487	
==>fy($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4377	4487	
==>fy($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4377	4487	
==>fy($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    r <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3941	4037	
==>d/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcf <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3941	4037	
==>d/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcf <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3487	3682	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Key <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3487	3682	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Key <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5693	5846	
==>tch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5693	5846	
==>tch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5693	5846	
==>tch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2355	2472	
==>i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->licens <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17227	17328	
==>s `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span ar <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17227	17328	
==>s `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span ar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39272	39364	
==><Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39272	39364	
==><Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4960	5082	
==>it was considered to be a passed test.  C<%test> is the results
            #of the test you're summarizing.
            my <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	414	529	
==>my $self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->classes ) {

        class($class-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2982	3096	
==>\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2982	3096	
==>\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2982	3096	
==>\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24399	24512	
==>c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20820	20933	
==>c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1951	2046	
==>eturns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1951	2046	
==>eturns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1951	2046	
==>eturns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2883	2996	
==>:Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) {
        $gz- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1419	1525	
==>s, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16547	16649	
==>eta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16547	16649	
==>eta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16547	16649	
==>eta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2672	2856	
==>class) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2877	3061	
==>class) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1854	1992	
==>hod append_value ( $arg ) {
            $.string = $arg.value;
            push @.strings, $arg.value;
        }
    }


    role Getopt::A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19793	19891	
==>ode in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19793	19891	
==>ode in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	20	119	
==>:JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	20	119	
==>:JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	20	119	
==>:JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw( <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11874	11972	
==>od tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Re <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11874	11972	
==>od tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7951	8067	
==>{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11947	12060	
==>{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8505	8618	
==>1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$as <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11947	12060	
==>{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9340	9453	
==>1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$as <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3309	3441	
==>o   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3309	3441	
==>o   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3309	3441	
==>o   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$of <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12021	12140	
==>ic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($lin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12021	12140	
==>ic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($lin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	928	1079	
==>3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	928	1079	
==>3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	231	344	
==>e;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	231	344	
==>e;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	231	344	
==>e;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyne <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5630	5715	
==>ic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5630	5715	
==>ic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12363	12505	
==>b { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12363	12505	
==>b { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12363	12505	
==>b { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' => <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6301	6404	
==>- An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6301	6404	
==>- An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	234	352	
==>};

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1138	1248	
==>f=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For wh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1138	1248	
==>f=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For wh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1138	1248	
==>f=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For wh <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	247	341	
==>use Perl6::MM::Method;
use Perl6::MM::Attribute;
use Perl6::MM::C3;

use Carp 'confess';
use Sc <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	562	663	
==>}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interfac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	453	554	
==>}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interfac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	362	463	
==>}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interfac <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7860	7958	
==>Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7860	7958	
==>Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}< <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	894	1000	
==>_pil_tree_yaml;
	    print "# p5\n",number_the_lines($p5),"\n";
	}
	print $cc->warnings;
        print "--- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6436	6536	
==>emove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7172	7272	
==>emove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6436	6536	
==>emove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7172	7272	
==>emove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5878	5977	
==>?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::nu <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5936	6035	
==>?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3677	3764	
==>html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3677	3764	
==>html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3677	3764	
==>html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5507	5615	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5507	5615	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5507	5615	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, ne <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9846	9950	
==>eturns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9846	9950	
==>eturns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Ciph <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13442	13542	
==>pan.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" a <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13442	13542	
==>pan.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7470	7556	
==>collect_all_roles));

## -------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7470	7556	
==>collect_all_roles));

## -------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7470	7556	
==>collect_all_roles));

## -------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35162	35279	
==>ength -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35162	35279	
==>ength -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35162	35279	
==>ength -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21677	21771	
==>channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> ".. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21677	21771	
==>channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> ".. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2608	2759	
==>ss != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2608	2759	
==>ss != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2608	2759	
==>ss != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	839	973	
==>r $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	839	973	
==>r $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7688	7839	
==>method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'incr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7688	7839	
==>method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'incr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7688	7839	
==>method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'incr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8036	8124	
==>sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1861	1949	
==>sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4377	4506	
==>' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4377	4506	
==>' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4377	4506	
==>' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_f <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1125	1240	
==>path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1125	1240	
==>path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3550	3653	
==>return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3550	3653	
==>return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9922	10009	
==>er++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9922	10009	
==>er++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9922	10009	
==>er++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	155	268	
==>:MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	155	268	
==>:MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	155	268	
==>:MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1993	2104	
==>scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{para <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14513	14623	
==>scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13746	13872	
==>ch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13746	13872	
==>ch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13746	13872	
==>ch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3280	3373	
==>, $self.complement_next, $set.complement_previous, $set.complement_next ),
        universe => <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3280	3373	
==>, $self.complement_next, $set.complement_previous, $set.complement_next ),
        universe => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17434	17657	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23400	23623	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17713	17936	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23679	23902	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         r <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15596	15712	
==>unk->val));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2697	2800	
==>.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2697	2800	
==>.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2697	2800	
==>.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	334	435	
==>ssage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Bui <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	334	435	
==>ssage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Bui <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8099	8325	
==>$tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8099	8325	
==>$tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8099	8325	
==>$tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3328	3447	
==>"PVar"' {
        $ret = emit_Variable( $tree[1][0][1] );
    }
    elsif $tree[0] eq '"VInt"' {
        $ret = emit_Int <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3081	3196	
==>ine\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "3rd lin <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1380	1475	
==>ing ease of installation and portability, we may have
  bought fairly simple code with tolerable <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6191	6295	
==>thod stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6191	6295	
==>thod stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20272	20359	
==>b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20272	20359	
==>b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20272	20359	
==>b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value: <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2122	2353	
==>p(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15988	16142	
==>ISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15988	16142	
==>ISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15988	16142	
==>ISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC is <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5021	5118	
==>ment  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9401	9506	
==>d'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9401	9506	
==>d'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9401	9506	
==>d'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'i <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2776	2870	
==>m B<source($new_source)>

Returns the representation of this node in the original text, or at
l <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2776	2870	
==>m B<source($new_source)>

Returns the representation of this node in the original text, or at
l <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	908	1042	
==>{ $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	908	1042	
==>{ $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1805	1918	
==>::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1805	1918	
==>::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1805	1918	
==>::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23497	23644	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23497	23644	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23497	23644	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	816	922	
==>don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stoppe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	816	922	
==>don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stoppe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10339	10478	
==>mc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classe <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10339	10478	
==>mc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9854	9957	
==>a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	290	390	
==>a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	290	390	
==>a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2003	2203	
==>tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2003	2203	
==>tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3268	3364	
==>elf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $inv <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3268	3364	
==>elf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $inv <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3268	3364	
==>elf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $inv <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27181	27336	
==>} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27460	27615	
==>} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3378	3502	
==>rgs, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $pa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3378	3502	
==>rgs, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $pa <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	168	267	
==>dir':$!" unless -d $testdir;

open(my $F, ">$testdir/$exename.c")
    or die "Can't create $testd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15416	15558	
==>f $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15416	15558	
==>f $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15416	15558	
==>f $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1152	1291	
==>se {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: E <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1152	1291	
==>se {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2590	2683	
==>boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2590	2683	
==>boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2590	2683	
==>boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional param <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4409	4501	
==>Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available fo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4409	4501	
==>Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available fo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	745	870	
==>method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	745	870	
==>method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5386	5492	
==>il_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5386	5492	
==>il_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5386	5492	
==>il_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5328	5444	
==>ment {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2870	2986	
==>ment {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3719	3835	
==>ment {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16587	16700	
==>nning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13008	13121	
==>nning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17892	18073	
==>defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17892	18073	
==>defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17892	18073	
==>defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3582	3712	
==>s &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $seen{$me <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1329	1424	
==>);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if defined $symbo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2286	2398	
==>_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2286	2398	
==>_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3018	3118	
==>/;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3018	3118	
==>/;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3018	3118	
==>/;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	287	394	
==>elf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	287	394	
==>elf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	287	394	
==>elf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  re <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2062	2162	
==>ION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2062	2162	
==>ION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1776	1889	
==>class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1776	1889	
==>class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1776	1889	
==>class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support an <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9525	9636	
==>h.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9525	9636	
==>h.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash. <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11115	11256	
==>$src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8150	8241	
==>).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).memb <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7280	7371	
==>).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).memb <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8150	8241	
==>).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).memb <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7280	7371	
==>).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).memb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4761	4871	
==>}

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4761	4871	
==>}

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4761	4871	
==>}

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@se <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5330	5430	
==>s C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI obje <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5330	5430	
==>s C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5895	6014	
==>new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5895	6014	
==>new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5895	6014	
==>new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1234	1335	
==>n code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (howev <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1234	1335	
==>n code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (howev <==
5	/Users/nnunley/pugs/util/drift.pl	853	961	
==>);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit un <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17806	17912	
==>=> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $ni <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16844	16950	
==>=> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17806	17912	
==>=> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16844	16950	
==>=> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $ni <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6927	7072	
==>ds( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                wh <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7391	7536	
==>ds( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1556	1674	
==>BLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1556	1674	
==>BLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1556	1674	
==>BLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	362	474	
==>} keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably return <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	362	474	
==>} keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably return <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	362	474	
==>} keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably return <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3142	3251	
==>fter> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3142	3251	
==>fter> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8162	8333	
==>tch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unbo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8162	8333	
==>tch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unbo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8162	8333	
==>tch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unbo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3117	3267	
==>able {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2995	3139	
==>able {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5449	5571	
==>List::splice  safe   (rw!Array, Int, Int, List)\
\\n   Int       pre     push    safe   (rw!Array, List)\
\\n   Int       p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1049	1161	
==>Lit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1049	1161	
==>Lit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1049	1161	
==>Lit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40327	40433	
==>ss;
  # use constant NAME => VALUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4875	5034	
==>methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4875	5034	
==>methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4875	5034	
==>methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => : <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5586	5699	
==>,
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::anyof_range;
  push @ISA, qw( Regexp::Pars <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7792	7898	
==>e();

is_deeply(
    [ sort $FooBar->get_method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... g <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5889	5986	
==>ected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5947	6044	
==>ected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11931	12023	
==>($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11931	12023	
==>($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11931	12023	
==>($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1966	2084	
==>1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3558	3676	
==>1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3825	3931	
==>tmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3825	3931	
==>tmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	675	781	
==>tmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13201	13295	
==>ply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autopi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13201	13295	
==>ply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autopi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8356	8465	
==>od(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8356	8465	
==>od(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8356	8465	
==>od(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

S <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	549	646	
==>t {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is expo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	549	646	
==>t {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is expo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5902	6001	
==>ash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perfo <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5902	6001	
==>ash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perfo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8099	8198	
==>ash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perfo <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1068	1161	
==>:Text->new("foo");

(also, the latter form is slightly more efficient, though this is
marginal <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1068	1161	
==>:Text->new("foo");

(also, the latter form is slightly more efficient, though this is
marginal <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9646	9786	
==>->new('remove_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9808	9917	
==>rithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7748	7857	
==>rithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9808	9917	
==>rithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7748	7857	
==>rithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	293	402	
==>patible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	293	402	
==>patible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	293	402	
==>patible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    tr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2927	3065	
==>p {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %e <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2927	3065	
==>p {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2560	2658	
==>ion violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2560	2658	
==>ion violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2560	2658	
==>ion violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expan <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1082	1200	
==>hat uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1082	1200	
==>hat uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	123	210	
==>igInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::Na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	123	210	
==>igInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::Na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	123	210	
==>igInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::Na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2419	2545	
==>Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12013	12113	
==>d as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12445	12545	
==>d as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12013	12113	
==>d as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12445	12545	
==>d as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	568	686	
==>h = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	665	783	
==>h = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4 <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5969	6077	
==>n sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL( <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3659	3750	
==>1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurr <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3659	3750	
==>1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurr <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2683	2793	
==>1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2683	2793	
==>1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1362	1462	
==>thod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1362	1462	
==>thod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1362	1462	
==>thod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5625	5760	
==>( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5847	5982	
==>( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14087	14183	
==>ems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14087	14183	
==>ems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14087	14183	
==>ems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::M <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18647	18762	
==>n = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20005	20120	
==>n = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	413	518	
==>dule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	413	518	
==>dule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	413	518	
==>dule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous s <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3281	3384	
==>r;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	500	603	
==>order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3281	3384	
==>r;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	500	603	
==>order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	500	603	
==>order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9835	9969	
==>n =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' ) <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2448	2573	
==>index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { o <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2448	2573	
==>index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { o <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1914	2034	
==>n =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' ) <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1914	2034	
==>n =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6233	6363	
==>e'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6233	6363	
==>e'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6233	6363	
==>e'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2580	2707	
==>msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2580	2707	
==>msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36504	36618	
==>ad, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36504	36618	
==>ad, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36504	36618	
==>ad, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2949	3052	
==>$index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2949	3052	
==>$index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11232	11382	
==>'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11232	11382	
==>'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1978	2112	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1978	2112	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1978	2112	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7513	7654	
==>d' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7513	7654	
==>d' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21979	22067	
==>I SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21979	22067	
==>I SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21979	22067	
==>I SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14438	14557	
==>e need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14438	14557	
==>e need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14438	14557	
==>e need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid me <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4615	4728	
==>) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An excep <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4673	4786	
==>) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An excep <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3598	3703	
==>t $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3598	3703	
==>t $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the differ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4473	4576	
==>t $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4473	4576	
==>t $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the differ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21429	21515	
==>ine float_min_offset substrs->data[1].min_offset
 #define float_max_offset substrs->dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7886	8024	
==>rintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7886	8024	
==>rintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7886	8024	
==>rintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	222	326	
==>n);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
in <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	222	326	
==>n);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7034	7201	
==>urns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7034	7201	
==>urns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7034	7201	
==>urns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2364	2456	
==>gs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. S <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2364	2456	
==>gs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9794	9912	
==>slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9794	9912	
==>slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9794	9912	
==>slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19150	19260	
==>k. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19150	19260	
==>k. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9310	9444	
==>rypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9310	9444	
==>rypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5290	5422	
==>} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5290	5422	
==>} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5290	5422	
==>} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2852	2979	
==>rename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2852	2979	
==>rename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2852	2979	
==>rename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13479	13569	
==>Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corres <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13479	13569	
==>Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corres <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	399	506	
==>t be a more efficient way to do this,
      // but if I store the node in a variable outside of this functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	399	506	
==>t be a more efficient way to do this,
      // but if I store the node in a variable outside of this functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	399	506	
==>t be a more efficient way to do this,
      // but if I store the node in a variable outside of this functio <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5361	5549	
==>$_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8838	9026	
==>$_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7858	8046	
==>$_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1385	1479	
==>f: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1385	1479	
==>f: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3673	3774	
==>g
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3673	3774	
==>g
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4263	4364	
==>g
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1463	1559	
==>(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1463	1559	
==>(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12457	12648	
==>,
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText:: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12457	12648	
==>,
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	559	651	
==>[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	559	651	
==>[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	559	651	
==>[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2j <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2565	2690	
==>ent<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2565	2690	
==>ent<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1809	1910	
==>e

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1809	1910	
==>e

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1809	1910	
==>e

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15709	15850	
==>oo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl - <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15709	15850	
==>oo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8864	8985	
==>r::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1020	1133	
==>r::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1020	1133	
==>r::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7125	7261	
==>h slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7125	7261	
==>h slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7125	7261	
==>h slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemente <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3609	3739	
==>$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3749	3879	
==>$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $ru <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3591	3820	
==>n 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3591	3820	
==>n 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.pr <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3316	3442	
==>ze => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3316	3442	
==>ze => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	154	265	
==>eft/right/non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $se <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	179	283	
==>e name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one fi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	179	283	
==>e name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12884	13107	
==>>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12884	13107	
==>>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12884	13107	
==>>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2118	2227	
==>('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2118	2227	
==>('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4831	5027	
==>)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4681	4871	
==>)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	163	282	
==>= args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	163	282	
==>= args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	163	282	
==>= args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5644	5788	
==>ches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5644	5788	
==>ches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10228	10321	
==>@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$k <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10228	10321	
==>@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$k <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10228	10321	
==>@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	231	334	
==>???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	231	334	
==>???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16351	16448	
==>eturn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16351	16448	
==>eturn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16351	16448	
==>eturn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4530	4666	
==>k;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4530	4666	
==>k;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11337	11459	
==>y $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11337	11459	
==>y $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11337	11459	
==>y $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	342	469	
==>"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	342	469	
==>"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	342	469	
==>"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribut <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	978	1095	
==>t;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    re <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1642	1759	
==>t;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    re <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3149	3264	
==>and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3613	3728	
==>and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4363	4459	
==>f both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it a <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4363	4459	
==>f both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4443	4539	
==>f both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2159	2258	
==>ub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eva <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2217	2316	
==>ub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eva <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3064	3160	
==>6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3064	3160	
==>6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3064	3160	
==>6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  - <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	457	553	
==>r_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	457	553	
==>r_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	457	553	
==>r_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%mo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21468	21562	
==>w seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> be <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21468	21562	
==>w seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> be <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	279	400	
==>@start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	279	400	
==>@start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31241	31337	
==>al's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35791	35887	
==>al's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35009	35105	
==>al's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	140	390	
==>e Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	140	390	
==>e Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is rea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	18	116	
==>se strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::crea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	18	116	
==>se strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::crea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	18	116	
==>se strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::crea <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11046	11195	
==>\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8112	8256	
==>\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8112	8256	
==>\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $matc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7578	7715	
==>$why\n";
        $test++;
    }
    local $^W = 0;
    last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9797	9882	
==>g(_)), {!, fail}.
p5_charset_range_x(B) --> p5_charset_item(char(B)).
p5_charset_item( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3103	3219	
==>ect) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7 <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3649	3765	
==>ect) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5443	5545	
==>return new_box('Int',@_) if $cls eq 'Int';
    return new_box('Num',@_) if $cls eq 'Num';
    return ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6022	6148	
==>ame'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet up <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6022	6148	
==>ame'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet up <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6022	6148	
==>ame'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet up <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8505	8598	
==>analysis before using it in any 
sensitive application.>

B<I<The authors and copyright holder <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8505	8598	
==>analysis before using it in any 
sensitive application.>

B<I<The authors and copyright holder <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18790	18886	
==>le that defines and returns an anonymous hash
definition.  While it is obvious that people who wo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18790	18886	
==>le that defines and returns an anonymous hash
definition.  While it is obvious that people who wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	128	221	
==>ature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	128	221	
==>ature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	128	221	
==>ature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-2 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	374	484	
==>f->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	682	785	
==>too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	682	785	
==>too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	682	785	
==>too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obje <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	405	503	
==>f->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22990	23131	
==>lass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26695	26836	
==>lass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42593	42734	
==>lass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3506	3608	
==>.pm

lib/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3382	3480	
==>.pm
lib/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23780	23907	
==>e_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24059	24186	
==>e_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	75	177	
==>.pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	75	177	
==>.pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	74	173	
==>.pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2680	2804	
==>lags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2820	2944	
==>lags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2359	2469	
==>_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2359	2469	
==>_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2439	2549	
==>_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	131	249	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	131	249	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	131	249	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11174	11271	
==>Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8578	8675	
==>Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11174	11271	
==>Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8578	8675	
==>Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22375	22460	
==>er(_E,C,[char(C)|_]) :- !.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insens <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1972	2080	
==>ent return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
multi method Arra <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24099	24193	
==>id loops between a client automatically sending something
  in response to something it receive <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22872	22966	
==>id loops between a client automatically sending something
  in response to something it receive <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24099	24193	
==>id loops between a client automatically sending something
  in response to something it receive <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22872	22966	
==>id loops between a client automatically sending something
  in response to something it receive <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1210	1305	
==>2. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14217	14312	
==>(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1210	1305	
==>2. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=ite <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14217	14312	
==>(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14217	14312	
==>(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7434	7542	
==>t::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn' <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7492	7600	
==>t::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3572	3676	
==>r $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3572	3676	
==>r $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3572	3676	
==>r $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8536	8675	
==>xt METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8536	8675	
==>xt METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8536	8675	
==>xt METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	903	996	
==>h byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and decipheri <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	903	996	
==>h byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and decipheri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10560	10695	
==>$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10560	10695	
==>$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10560	10695	
==>$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	182	285	
==>argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" hashr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	173	272	
==>argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" hashr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1776	1880	
==>ethod clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::H <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1776	1880	
==>ethod clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1909	2005	
==>ss; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1909	2005	
==>ss; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1909	2005	
==>ss; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	383	493	
==>od(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	383	493	
==>od(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	383	493	
==>od(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5568	5668	
==>field is dual format (can also be a expressed as
# number of seconds from now), so we don't provide a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5568	5668	
==>field is dual format (can also be a expressed as
# number of seconds from now), so we don't provide a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2519	2611	
==>y ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2519	2611	
==>y ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2519	2611	
==>y ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40708	40798	
==>no means required, the copyright holders of
Locale::KeyedText would appreciate being inform <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40708	40798	
==>no means required, the copyright holders of
Locale::KeyedText would appreciate being inform <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17688	17846	
==>ine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17688	17846	
==>ine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17688	17846	
==>ine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confes <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15056	15157	
==>ent. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15056	15157	
==>ent. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8173	8288	
==>" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8173	8288	
==>" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8173	8288	
==>" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pil <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13457	13557	
==>!= 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database que <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13457	13557	
==>!= 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database que <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16999	17123	
==>ther!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # ite <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20476	20600	
==>ther!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # ite <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20054	20178	
==>ther!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # ite <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2556	2659	
==>turn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2556	2659	
==>turn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	962	1066	
==>or single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_diff <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	962	1066	
==>or single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_diff <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1783	1885	
==>pends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1841	1943	
==>pends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $to <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8975	9071	
==>d not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3103	3218	
==>class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3103	3218	
==>class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3103	3218	
==>class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{s <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1486	1580	
==>y giving 
them to the unexported C<Log::Selective::select> function or by including them 
in th <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1486	1580	
==>y giving 
them to the unexported C<Log::Selective::select> function or by including them 
in th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5076	5166	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1033	1123	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	893	983	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5076	5166	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1033	1123	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4443	4576	
==>lse
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4443	4576	
==>lse
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11770	11882	
==>e DynamicScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	783	889	
==>tem.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	783	889	
==>tem.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1417	1527	
==>ttributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - X <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1417	1527	
==>ttributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - X <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1417	1527	
==>ttributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - X <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21287	21395	
==>ook($mn,$name);
}
sub p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_mangle($n,$pkg);
#    print STDERR $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9701	9806	
==>XXX - optimization - pass the string index around, 
# XXX - weaken self-referential things

=pod

A " <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1664	1760	
==>ad2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versi <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1664	1760	
==>ad2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2106	2187	
==>(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2106	2187	
==>(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2106	2187	
==>(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:| <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9047	9172	
==>t;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $b <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9047	9172	
==>t;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11691	11789	
==>ormal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11691	11789	
==>ormal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11691	11789	
==>ormal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dis <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5465	5637	
==>l = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'hea <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5465	5637	
==>l = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16046	16155	
==>f $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16046	16155	
==>f $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16046	16155	
==>f $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1360	1488	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @pat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1360	1488	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1453	1551	
==>= Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1453	1551	
==>= Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1453	1551	
==>= Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2795	2942	
==>@matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matche <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2703	2846	
==>@matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3854	3955	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3854	3955	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3854	3955	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10348	10520	
==>CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10348	10520	
==>CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10348	10520	
==>CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            retu <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18813	18909	
==>d to
support (such as modification of the compiled re op tree the native
compiler creates, but wh <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3103	3199	
==>d to
support (such as modification of the compiled re op tree the native
compiler creates, but wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4530	4673	
==>')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4530	4673	
==>')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4530	4673	
==>')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2649	2756	
==>./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2649	2756	
==>./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./w <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	14100	14454	
==>'??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6263	6362	
==>et($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
mu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5393	5492	
==>et($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6263	6362	
==>et($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5393	5492	
==>et($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
mu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7427	7580	
==>cat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7620	7773	
==>cat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13528	13664	
==>mal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13528	13664	
==>mal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13528	13664	
==>mal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchin <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13527	13661	
==>$string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3668	3790	
==>$string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3668	3790	
==>$string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3668	3790	
==>$string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10734	10841	
==>rl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{progs} <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2246	2352	
==>result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $! <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2641	2747	
==>result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $! <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2304	2410	
==>result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $! <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2699	2805	
==>result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $! <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24979	25070	
==>is exported by Test::Harness by default.

C<$verbose>, C<$switches> and C<$debug> are export <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19445	19754	
==>other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19445	19754	
==>other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19445	19754	
==>other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @it <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2912	3027	
==>roperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $d <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2912	3027	
==>roperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5698	5806	
==>Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5698	5806	
==>Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6288	6396	
==>Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22039	22130	
==>get> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invite <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22039	22130	
==>get> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invite <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11684	11808	
==>ase::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2118	2230	
==>ase::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2118	2230	
==>ase::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test:: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16732	16841	
==>} ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20209	20318	
==>} ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16824	16929	
==>));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16824	16929	
==>));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16824	16929	
==>));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute(' <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4908	5003	
==>rch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4908	5003	
==>rch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6024	6186	
==>onst eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => subs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6024	6186	
==>onst eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2926	3024	
==>:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2926	3024	
==>:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2926	3024	
==>:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	324	577	
==>r $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version ap <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	324	577	
==>r $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10523	10668	
==>ub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10523	10668	
==>ub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10523	10668	
==>ub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# - <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9446	9565	
==>"deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
meth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9446	9565	
==>"deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24594	24762	
==>b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24594	24762	
==>b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24594	24762	
==>b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17182	17325	
==>ture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17461	17604	
==>ture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14854	14948	
==>ubstituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14854	14948	
==>ubstituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequen <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1210	1428	
==>, $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1210	1428	
==>, $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38055	38224	
==>{
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38055	38224	
==>{
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38055	38224	
==>{
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        re <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13964	14113	
==>, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4065	4194	
==>, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4065	4194	
==>, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4065	4194	
==>, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair { <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15652	15745	
==><ShiftExpression>
    | <RelationalExpression> <'>='> <ShiftExpression>
    | <RelationalExpre <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11065	11163	
==>te to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "uni <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11065	11163	
==>te to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "uni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2377	2473	
==>x_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2377	2473	
==>x_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2377	2473	
==>x_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7378	7480	
==>,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7378	7480	
==>,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7378	7480	
==>,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	751	861	
==>Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	751	861	
==>Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	751	861	
==>Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2704	2813	
==>ERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!", <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2704	2813	
==>ERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!", <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14790	14901	
==>-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Parse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35136	35240	
==>ift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35136	35240	
==>ift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35136	35240	
==>ift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $l <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	166	256	
==>root dir
$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) );

$INSTALLATION_D <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	230	349	
==>eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = Fil <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	230	349	
==>eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = Fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1168	1271	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1168	1271	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1168	1271	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1426	1537	
==>}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DES <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1426	1537	
==>}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DES <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13335	13444	
==>] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13335	13444	
==>] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13335	13444	
==>] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21643	21792	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21922	22071	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4138	4233	
==>s>. There is no instance
constructor, and when calling these methods you should take care not
to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4138	4233	
==>s>. There is no instance
constructor, and when calling these methods you should take care not
to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4138	4233	
==>s>. There is no instance
constructor, and when calling these methods you should take care not
to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4953	5066	
==>{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4953	5066	
==>{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4953	5066	
==>{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22679	22774	
==>t contains all possibly useful details, so
that each Template can optionally use them; but often <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22679	22774	
==>t contains all possibly useful details, so
that each Template can optionally use them; but often <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4207	4356	
==>{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4207	4356	
==>{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4207	4356	
==>{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7370	7469	
==>!=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7370	7469	
==>!=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($s <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8467	8636	
==>d keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8467	8636	
==>d keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15237	15338	
==>p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15237	15338	
==>p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15237	15338	
==>p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	693	782	
==>t 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	693	782	
==>t 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	693	782	
==>t 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAn <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1020	1127	
==>ript_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1020	1127	
==>ript_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	383	475	
==>PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	383	475	
==>PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	383	475	
==>PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4720	4832	
==>ay, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4720	4832	
==>ay, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4720	4832	
==>ay, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4020	4131	
==>ay, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5169	5263	
==>mbol { "→" }
sub is_arrow { 1 }

package type::operator::pair;
use base qw/type::operator::bi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	492	610	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	492	610	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	492	610	
==>_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18650	18747	
==>ate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18650	18747	
==>ate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18215	18713	
==>ping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=p <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12120	12234	
==>">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapture
    if iscapt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2177	2273	
==>*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2177	2273	
==>*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2177	2273	
==>*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4212	4324	
==>1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4212	4324	
==>1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2316	2416	
==>nfix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2316	2416	
==>nfix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2316	2416	
==>nfix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new E <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9483	9646	
==>$pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10474	10637	
==>$pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3773	3873	
==>> '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3773	3873	
==>> '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3773	3873	
==>> '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1042	1140	
==>ion? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1042	1140	
==>ion? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($ <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	964	1061	
==>ion? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	964	1061	
==>ion? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1271	1363	
==>nel_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2201	2336	
==>def if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2130	2262	
==>def if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2710	2805	
==>llo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variab <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2710	2805	
==>llo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variab <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3057	3152	
==>llo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variab <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10486	10587	
==>= Interpreter->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n";

eval $co <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1692	1789	
==>en a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1455	1552	
==>en a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1692	1789	
==>en a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1455	1552	
==>en a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5466	5558	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $eve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5466	5558	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9489	9596	
==>$p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9489	9596	
==>$p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9489	9596	
==>$p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurp <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5065	5161	
==>$.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5065	5161	
==>$.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1470	1622	
==>bless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1470	1622	
==>bless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1470	1622	
==>bless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7770	7902	
==>nt =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and det <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7770	7902	
==>nt =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and det <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7344	7476	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7344	7476	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7344	7476	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1269	1371	
==>( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$remainder) = Tex <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	6	99	
==>/bin/perl -w

if(!@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14405	14563	
==>size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14405	14563	
==>size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14405	14563	
==>size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2936	3094	
==>size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	324	417	
==>d = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $self->bind($ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3620	3739	
==>ool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3620	3739	
==>ool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $star <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3308	3416	
==>ath.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3308	3416	
==>ath.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3308	3416	
==>ath.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))" <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5388	5515	
==>TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TC <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5388	5515	
==>TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	415	502	
==>warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
Ge <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	415	502	
==>warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
Ge <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	415	502	
==>warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
Ge <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8781	8885	
==>tomatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # ma <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8781	8885	
==>tomatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5556	5655	
==>= @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cci <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5556	5655	
==>= @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cci <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5556	5655	
==>= @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8559	8699	
==>{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8559	8699	
==>{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8559	8699	
==>{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19173	19282	
==>>{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20531	20640	
==>>{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	878	989	
==>ty of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	878	989	
==>ty of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	878	989	
==>ty of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { thro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3614	3716	
==>e



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own languag <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3486	3584	
==>e

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own languag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18274	18381	
==>h run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18274	18381	
==>h run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18274	18381	
==>h run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here . <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	840	945	
==>imited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	840	945	
==>imited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return P <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8992	9090	
==>y($x->{param}, $y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die "trying to unify <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5963	6057	
==>from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5963	6057	
==>from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5963	6057	
==>from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	638	724	
==>r;
use overload '0+' => sub {Inline::Parrot::PMC::get_int($Inline::Parrot::PMC::interpr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1460	1561	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1460	1561	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1460	1561	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3021	3119	
==>($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3021	3119	
==>($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	320	427	
==>. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic ran <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	865	972	
==>. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic ran <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	320	427	
==>. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic ran <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	865	972	
==>. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic ran <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	865	972	
==>. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic ran <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5022	5228	
==>cript] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4238	4428	
==>cript] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2442	2542	
==>ack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilM <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2442	2542	
==>ack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilM <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2442	2542	
==>ack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilM <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1572	1706	
==>_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_esca <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1572	1706	
==>_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_esca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39552	39657	
==>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39552	39657	
==>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39552	39657	
==>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shi <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1091	1223	
==>~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	970	1102	
==>~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5676	5777	
==>way to
# access it until we have know how both these interfaces can be
# addressed.  One possibility i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5676	5777	
==>way to
# access it until we have know how both these interfaces can be
# addressed.  One possibility i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10111	10202	
==>e::non_capturing_subrule {
    return "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negated_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7718	7833	
==>ses for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7718	7833	
==>ses for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7718	7833	
==>ses for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fla <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	975	1083	
==>ntersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_d <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	975	1083	
==>ntersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	691	804	
==>r my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	691	804	
==>r my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	709	822	
==>r my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13062	13157	
==>es as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitab <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13062	13157	
==>es as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9544	9671	
==>f(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Final <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9544	9671	
==>f(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Final <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9544	9671	
==>f(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Final <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21798	21892	
==>ce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be giv <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21798	21892	
==>ce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be giv <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6103	6205	
==>ument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15489	15591	
==>turn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6103	6205	
==>ument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15489	15591	
==>turn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15489	15591	
==>turn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4808	4904	
==>ype );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4808	4904	
==>ype );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5716	5839	
==>ue->new(
        reference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4691	4794	
==>"%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4691	4794	
==>"%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4691	4794	
==>"%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defi <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	29962	30062	
==>, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	418	580	
==>>();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	418	580	
==>>();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $o <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3648	3758	
==>ing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7125	7235	
==>ing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6082	6192	
==>ing renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4577	4715	
==>)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We init <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4577	4715	
==>)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We init <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	188	289	
==>representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	188	289	
==>representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTIO <==
5	/Users/nnunley/pugs/util/config_h.pl	602	699	
==>T, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) {
    /version (\S+) .*\breleased (.* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14150	14314	
==>nore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14150	14314	
==>nore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14150	14314	
==>nore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #el <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12718	12812	
==>perset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12718	12812	
==>perset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19318	19587	
==>e' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19318	19587	
==>e' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19318	19587	
==>e' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14647	14741	
==>$xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14647	14741	
==>$xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14647	14741	
==>$xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
M <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9470	9563	
==>tributes are private, so you must use accessor methods.
Rosetta::Model does not declare any su <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9470	9563	
==>tributes are private, so you must use accessor methods.
Rosetta::Model does not declare any su <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4404	4522	
==>paramContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3753	3855	
==>! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3753	3855	
==>! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3753	3855	
==>! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, no <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	7471	7568	
==>NS]
    --output-file=FILE, -o  Store results in FILE [default: $Config{"output-file"}]
    --dry, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1503	1755	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1503	1755	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6165	6272	
==>aScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6165	6272	
==>aScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6165	6272	
==>aScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted b <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13896	14061	
==>$skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=he <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3565	3687	
==>lue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4882	5004	
==>lue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3565	3687	
==>lue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4870	4992	
==>lue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8112	8354	
==>- $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8112	8354	
==>- $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8112	8354	
==>- $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            ' <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2819	2916	
==>n-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2877	2974	
==>n-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$to <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	873	1074	
==>0;
    
    sub evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @b <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6597	6693	
==>t handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3951	4047	
==>t handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6597	6693	
==>t handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3951	4047	
==>t handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4691	4823	
==>odified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4691	4823	
==>odified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11516	11611	
==>urn $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3107	3202	
==>urn $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exac <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21620	21711	
==>"Database Independence".  However, the level of DBI's provided independence
is I<Database Dr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21620	21711	
==>"Database Independence".  However, the level of DBI's provided independence
is I<Database Dr <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13150	13240	
==>,[0xabd]).


digits_int(I) --> digit(D0), digits(D), { number_chars(I, [D0|D]) }.
digits([D <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	723	848	
==>ccent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capita <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	723	848	
==>ccent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capita <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	489	590	
==>ode.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	489	590	
==>ode.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	489	590	
==>ode.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FET <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8341	8444	
==>=> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8341	8444	
==>=> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8341	8444	
==>=> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19999	20100	
==>acrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)= <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4231	4359	
==>bedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4231	4359	
==>bedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8776	8893	
==>nc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8776	8893	
==>nc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8776	8893	
==>nc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1199	1319	
==>nts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1199	1319	
==>nts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1199	1319	
==>nts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18935	19030	
==>o edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be use <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18935	19030	
==>o edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be use <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2097	2221	
==>{
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2075	2199	
==>{
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5104	5199	
==>tional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This rol <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5104	5199	
==>tional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7301	7396	
==>tional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This rol <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24349	24466	
==>2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, "?% okay";
    }
    my $ender = 's' x ($skipp <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39629	39716	
==>ts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
inform <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24352	24439	
==>ts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more inform <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39629	39716	
==>ts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
inform <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24352	24439	
==>ts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more inform <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	12821	12952	
==>my $tres = $test_results->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13325	13454	
==>0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13325	13454	
==>0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13325	13454	
==>0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @res <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2210	2339	
==>0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @res <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	446	550	
==>$param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	446	550	
==>$param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4493	4590	
==>tra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4493	4590	
==>tra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5083	5180	
==>tra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3959	4078	
==>lf);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3959	4078	
==>lf);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3959	4078	
==>lf);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22722	22817	
==>is contains zero or more Relation attribute names that
define the heading of this Relation.  Eac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27274	27369	
==>is contains zero or more Relation attribute names that
define the heading of this Relation.  Eac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1348	1444	
==>calar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1348	1444	
==>calar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1348	1444	
==>calar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIAL <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	932	1026	
==>the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pu <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	932	1026	
==>the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18150	18545	
==>_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cla <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21627	22022	
==>_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cla <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21214	21609	
==>_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cla <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11612	11713	
==>evant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 A <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11612	11713	
==>evant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 A <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	885	1006	
==>ta::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	284	402	
==>is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	284	402	
==>is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $i <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	284	402	
==>is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $i <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	284	402	
==>is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5855	5971	
==>ame' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5843	5959	
==>ame' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	791	880	
==>crement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	791	880	
==>crement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	791	880	
==>crement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16730	16855	
==>_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16730	16855	
==>_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16730	16855	
==>_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3140	3233	
==>::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3140	3233	
==>::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8869	8982	
==>users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8869	8982	
==>users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1366	1461	
==>ortList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1366	1461	
==>ortList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1366	1461	
==>ortList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37727	37834	
==>IVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37727	37834	
==>IVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37727	37834	
==>IVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9004	9104	
==>ects:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return not <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9004	9104	
==>ects:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return not <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2462	2587	
==>> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2646	2771	
==>> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6216	6312	
==>ing other than 
a helper to other functions.  

=cut

## ---------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6216	6312	
==>ing other than 
a helper to other functions.  

=cut

## ---------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6216	6312	
==>ing other than 
a helper to other functions.  

=cut

## ---------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28048	28144	
==>tribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32600	32696	
==>tribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2557	2652	
==>)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2557	2652	
==>)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2557	2652	
==>)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	310	425	
==>::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4170	4271	
==>ns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3297	3398	
==>ns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4170	4271	
==>ns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3297	3398	
==>ns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4720	4869	
==>= \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13145	13294	
==>= \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15756	15905	
==>= \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17244	17393	
==>= \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21927	22076	
==>= \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5466	5571	
==>{ Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5466	5571	
==>{ Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5466	5571	
==>{ Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5458	5559	
==>current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5458	5559	
==>current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4456	4586	
==>,
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4456	4586	
==>,
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4456	4586	
==>,
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17563	17653	
==>face.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17563	17653	
==>face.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1211	1322	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1211	1322	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1211	1322	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_inst <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	90	188	
==>:Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our @EXPORT_OK = qw(rule);

sub compil <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	57	138	
==>perl5/site_perl/5.8.8/Module/Install/Compiler.pm"
package Module::Install::Compile <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1548	1643	
==>lic command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1548	1643	
==>lic command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4129	4223	
==>ss methods>. There is no instance
constructor, and when calling these methods you should take c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4129	4223	
==>ss methods>. There is no instance
constructor, and when calling these methods you should take c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4129	4223	
==>ss methods>. There is no instance
constructor, and when calling these methods you should take c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3029	3141	
==>hod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3029	3141	
==>hod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3029	3141	
==>hod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7792	7896	
==>finite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7792	7896	
==>finite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Se <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	311	414	
==>BMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	311	414	
==>BMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	988	1088	
==>nting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	988	1088	
==>nting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	988	1088	
==>nting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5357	5516	
==>=> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5357	5516	
==>=> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5357	5516	
==>=> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	491	592	
==>=> q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Ent <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	491	592	
==>=> q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Ent <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5112	5250	
==>eanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5112	5250	
==>eanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20182	20313	
==>fined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20182	20313	
==>fined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20182	20313	
==>fined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	103	209	
==>ined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	103	209	
==>ined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	103	209	
==>ined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? und <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20853	20949	
==>I recommend above all others for production use.

Most of the other (near term) third party Engin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20853	20949	
==>I recommend above all others for production use.

Most of the other (near term) third party Engin <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	15763	15885	
==>xt;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # reverse <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6579	6678	
==>e_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6579	6678	
==>e_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (S <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	292	389	
==>ode { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_functi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	292	389	
==>ode { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_functi <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6502	6653	
==>|1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5972	6079	
==>or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5766	5869	
==>or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9030	9126	
==>hes>

  my $switches = $self->_switches($file);

Formats and returns the switches necessary to ru <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15607	15701	
==>ct($x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2988	3131	
==>n't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3172	3315	
==>n't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15923	16026	
==>MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15923	16026	
==>MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15923	16026	
==>MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16051	16210	
==>"$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16045	16204	
==>"$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5332	5436	
==>if ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5332	5436	
==>if ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5332	5436	
==>if ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        sh <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4794	4912	
==>'No, Blondie will not have church integers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Appli <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1580	1682	
==>gnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, St <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1580	1682	
==>gnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, St <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12589	12683	
==>urrent working features.

This module deals with encoding and decoding of strings with HTML
cha <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12589	12683	
==>urrent working features.

This module deals with encoding and decoding of strings with HTML
cha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11933	12099	
==>' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8215	8381	
==>' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9049	9215	
==>' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4290	4395	
==>check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4290	4395	
==>check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8162	8262	
==>s to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be for <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8162	8262	
==>s to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	338	425	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	338	425	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	338	425	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3825	3942	
==>ser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3689	3802	
==>ser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with t <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6843	6987	
==>lace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6843	6987	
==>lace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9887	10010	
==>ify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9887	10010	
==>ify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9887	10010	
==>ify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3182	3285	
==>preter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3182	3285	
==>preter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3182	3285	
==>preter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9729	9826	
==>split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @class <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9729	9826	
==>split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @class <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1401	1512	
==>h = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1401	1512	
==>h = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1422	1526	
==>ess {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1422	1526	
==>ess {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1422	1526	
==>ess {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7588	7807	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7588	7807	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7588	7807	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1205	1306	
==>ray of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1205	1306	
==>ray of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes. <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4757	4853	
==>4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns *native*>

=item B<to_bi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	511	606	
==>nput_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax erro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	511	606	
==>nput_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax erro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6667	6761	
==>ded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6667	6761	
==>ded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5151	5285	
==>--- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5151	5285	
==>--- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2421	2519	
==>pes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2421	2519	
==>pes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2421	2519	
==>pes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15043	15186	
==>es')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # how <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15043	15186	
==>es')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # how <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15043	15186	
==>es')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # how <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	544	671	
==>avor;

    unless ($inserted++) {
        regexp_exechook_insert();
        regexp_hook_on();
    }

    no strict 'refs';
    r <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22146	22258	
==>melen;
    if ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Co <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3750	3892	
==>at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3750	3892	
==>at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4554	4653	
==>($accum),
		right => $self->right->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6888	6983	
==>new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6888	6983	
==>new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6888	6983	
==>new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5602	5731	
==>});

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5602	5731	
==>});

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5602	5731	
==>});

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . ' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11357	11450	
==>$item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11357	11450	
==>$item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5716	5853	
==>ist->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5716	5853	
==>ist->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5716	5853	
==>ist->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9818	9926	
==>::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$boo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9812	9920	
==>::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$boo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8874	9031	
==>:SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8874	9031	
==>:SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8874	9031	
==>:SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unbo <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1070	1167	
==>is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSI <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1070	1167	
==>is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSI <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2360	2468	
==>ft;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -le <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2360	2468	
==>ft;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11055	11144	
==>------------------------------------------

What if Roles could provide their own BUILD su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11055	11144	
==>------------------------------------------

What if Roles could provide their own BUILD su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11055	11144	
==>------------------------------------------

What if Roles could provide their own BUILD su <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1932	2148	
==>start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1932	2148	
==>start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34371	34488	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34371	34488	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34371	34488	
==>isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2391	2533	
==>set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2391	2533	
==>set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2391	2533	
==>set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6467	6563	
==>(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@arg <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6467	6563	
==>(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@arg <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24738	24901	
==>grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25017	25180	
==>grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40244	40353	
==>alue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40244	40353	
==>alue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40244	40353	
==>alue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13470	13639	
==>{
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13470	13639	
==>{
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13470	13639	
==>{
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chang <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2355	2524	
==>{
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chang <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13573	13677	
==>reate and init the object
                $e->create('$self' => $e->get('$class:')->send('CREATE' => ($e- <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1362	1455	
==>$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # work around two uninteresting tests.
	$expr =~ s <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5767	5846	
==>62144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5957	6036	
==>62144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5767	5846	
==>62144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5957	6036	
==>62144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24879	24970	
==>ucceeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Clas <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24879	24970	
==>ucceeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13808	13917	
==>ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13808	13917	
==>ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13808	13917	
==>ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1785	1884	
==>ns is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test spl <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1785	1884	
==>ns is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test spl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9956	10091	
==>ss defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9956	10091	
==>ss defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4801	4907	
==>way.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $si <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4801	4907	
==>way.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $si <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4801	4907	
==>way.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1440	1541	
==>::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1440	1541	
==>::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1440	1541	
==>::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1752	1860	
==>turn ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1752	1860	
==>turn ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9307	9411	
==>er::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9307	9411	
==>er::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9307	9411	
==>er::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3916	4014	
==>ostamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5275	5373	
==>ostamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32614	32710	
==>binary union()
operator, and the order of its arguments is not significant to the result;
the new <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37164	37260	
==>binary union()
operator, and the order of its arguments is not significant to the result;
the new <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36472	36568	
==>binary union()
operator, and the order of its arguments is not significant to the result;
the new <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20041	20135	
==>Hash,
or various combinations of other data types.

While the implementation can be changed gre <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24593	24687	
==>Hash,
or various combinations of other data types.

While the implementation can be changed gre <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23145	23239	
==>Hash,
or various combinations of other data types.

While the implementation can be changed gre <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8586	8678	
==>.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-htm <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8586	8678	
==>.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-htm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12920	13042	
==>be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12920	13042	
==>be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12920	13042	
==>be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1417	1513	
==>eturn %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1417	1513	
==>eturn %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2740	2852	
==>atal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use ev <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2798	2910	
==>atal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use ev <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16265	16385	
==>_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method nex <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16265	16385	
==>_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method nex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11433	11527	
==>vior to class consturction because it isolates the Role specifc
code to the class that consumed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11433	11527	
==>vior to class consturction because it isolates the Role specifc
code to the class that consumed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11433	11527	
==>vior to class consturction because it isolates the Role specifc
code to the class that consumed <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26830	26956	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      data => $ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7336	7459	
==>types: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3419	3511	
==>gs, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3419	3511	
==>gs, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3419	3511	
==>gs, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4228	4338	
==>on');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @token <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4228	4338	
==>on');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @token <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	365	472	
==>$type);
}

sub instantiate_container {
    my $self = shift;
    return $self->{type}->new();
}

1;

__END__ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3274	3367	
==>rence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3274	3367	
==>rence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3778	3900	
==>e
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3778	3900	
==>e
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3778	3900	
==>e
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	431	522	
==>print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset= <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	431	522	
==>print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset= <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3934	4060	
==>n;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3934	4060	
==>n;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4464	4584	
==>n;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4464	4584	
==>n;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] } <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3136	3229	
==>ptions and defaults:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetches a kernel <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2629	2743	
==>trict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2617	2731	
==>trict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	722	822	
==>ew PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	722	822	
==>ew PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	722	822	
==>ew PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19529	19668	
==>sh @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19808	19947	
==>sh @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12105	12191	
==>un::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12105	12191	
==>un::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12105	12191	
==>un::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2792	2928	
==>nce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement ce <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2792	2928	
==>nce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement ce <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2792	2928	
==>nce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement ce <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5537	5649	
==>tchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5537	5649	
==>tchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12693	12836	
==>el::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribut <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12693	12836	
==>el::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribut <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	357	476	
==>urn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	357	476	
==>urn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        re <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3616	3722	
==>e} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self->get_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2258	2371	
==>SCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2258	2371	
==>SCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4754	4855	
==>s a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4754	4855	
==>s a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6278	6379	
==>s a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2543	2639	
==>t also contains extra
information passed on by the HTTP server, useful to the authors of CGI scri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2543	2639	
==>t also contains extra
information passed on by the HTTP server, useful to the authors of CGI scri <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	92	345	
==>t symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	92	345	
==>t symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	92	345	
==>t symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	92	345	
==>t symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14998	15098	
==>ect(anyof_class => space => $neg, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_up <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	396	500	
==>t, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	396	500	
==>t, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	396	500	
==>t, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20333	20424	
==>ANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized including <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20333	20424	
==>ANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized including <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5050	5192	
==>{ $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method revers <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5050	5192	
==>{ $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method revers <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4470	4558	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4470	4558	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4470	4558	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13618	13799	
==>{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13618	13799	
==>{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13618	13799	
==>{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	888	1040	
==>match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	881	1033	
==>match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6013	6136	
==>ems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6013	6136	
==>ems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6013	6136	
==>ems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15814	15909	
==>than joe public would.

Alternately, sometimes a program will raise a condition or error that,
w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15814	15909	
==>than joe public would.

Alternately, sometimes a program will raise a condition or error that,
w <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11510	11610	
==>y inclination is to wait until objects are done for this, but maybe I will
figure out a good way to d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11510	11610	
==>y inclination is to wait until objects are done for this, but maybe I will
figure out a good way to d <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	128	244	
==>xport { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2689	2805	
==>m_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	128	244	
==>xport { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2689	2805	
==>m_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2689	2805	
==>m_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5203	5323	
==>bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARR <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5425	5545	
==>bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2424	2514	
==>, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2424	2514	
==>, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2424	2514	
==>, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17626	17792	
==>patcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17626	17792	
==>patcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17626	17792	
==>patcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($d <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	228	345	
==>+^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	228	345	
==>+^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cip <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7919	8066	
==>numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7919	8066	
==>numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7919	8066	
==>numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14095	14193	
==>s not fit into one of the standard
testing functions. In that case, you can use the rather blunt pa <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14153	14251	
==>s not fit into one of the standard
testing functions. In that case, you can use the rather blunt pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11090	11240	
==>val($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11090	11240	
==>val($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11090	11240	
==>val($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9661	9767	
==>ord into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9661	9767	
==>ord into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15450	15618	
==>~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1004	1096	
==>::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.p <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1004	1096	
==>::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1084	1176	
==>::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.p <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2763	2958	
==>fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>( <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2763	2958	
==>fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7596	7736	
==>(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7596	7736	
==>(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7596	7736	
==>(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	601	719	
==>env
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nati <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1199	1309	
==>env
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4585	4683	
==>t::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4585	4683	
==>t::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4585	4683	
==>t::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless <==
5	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	876	1014	
==>undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            di <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2742	2851	
==>(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2742	2851	
==>(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2742	2851	
==>(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	347	456	
==>elf->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit->new(0);
# }

1;

__END__

=pod

=head1 NAME 

t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4149	4256	
==>$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4366	4473	
==>$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1670	1772	
==>umber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1670	1772	
==>umber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1670	1772	
==>umber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Nu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	77	181	
==>ak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loaded;
our @EXPORT = qw( Rx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14442	14536	
==>INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14442	14536	
==>INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14442	14536	
==>INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21863	21954	
==>e the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=he <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21863	21954	
==>e the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1643	1773	
==>$_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1643	1773	
==>$_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1643	1773	
==>$_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12520	12612	
==>eturns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=he <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12520	12612	
==>eturns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=he <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19861	20075	
==>n" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20140	20354	
==>n" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5450	5566	
==>getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5450	5566	
==>getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5450	5566	
==>getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = funct <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	167	267	
==>.FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	167	267	
==>.FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	167	267	
==>.FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    }) <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	48	146	
==>($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	48	146	
==>($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(g <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	615	722	
==>am ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	615	722	
==>am ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2367	2485	
==>n) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## --------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2367	2485	
==>n) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## --------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12672	12767	
==>ith HTML
character entities.  The module provides the following functions:

=over 4

=item decod <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12672	12767	
==>ith HTML
character entities.  The module provides the following functions:

=over 4

=item decod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	134	226	
==>uire 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'g <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	401	515	
==>try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	401	515	
==>try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	401	515	
==>try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3691	3791	
==>e .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($modu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3691	3791	
==>e .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($modu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4488	4622	
==>" .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4628	4762	
==>" .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12064	12185	
==>Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12064	12185	
==>Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12064	12185	
==>Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7333	7431	
==>ch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7333	7431	
==>ch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7333	7431	
==>ch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::In <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17394	17490	
==>chine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17394	17490	
==>chine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12188	12306	
==>rg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6755	6873	
==>rg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12188	12306	
==>rg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6755	6873	
==>rg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	945	1052	
==>at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# note: alter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6981	7097	
==>e contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6981	7097	
==>e contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6981	7097	
==>e contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  s <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1609	1708	
==>)`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start object <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1609	1708	
==>)`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start object <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3922	4031	
==>t it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1256	1351	
==>pand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1256	1351	
==>pand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1256	1351	
==>pand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')" <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15744	15833	
==>ression> <'instanceof'> <ShiftExpression>
    | <RelationalExpression> <'in'> <ShiftExpres <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16968	17082	
==>] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16968	17082	
==>] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16968	17082	
==>] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unb <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13448	13549	
==>ep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
data <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13448	13549	
==>ep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
data <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	496	625	
==>chive);
    $path    =~ s/$Ext$//;

    ### check if it is already installed
    {   my @list = LoadFile( $Available );
        if <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10015	10123	
==>rticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7955	8063	
==>rticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=hea <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10015	10123	
==>rticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=hea <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7955	8063	
==>rticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=hea <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1093	1197	
==>>code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1093	1197	
==>>code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7090	7190	
==>make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7090	7190	
==>make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7090	7190	
==>make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8837	8943	
==>ult'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8837	8943	
==>ult'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8837	8943	
==>ult'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1960	2061	
==>_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1960	2061	
==>_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5398	5506	
==>($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already hav <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5398	5506	
==>($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already hav <==
5	/Users/nnunley/pugs/util/importgraph.pl	1651	1756	
==>=~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_clu <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2012	2110	
==>lement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2012	2110	
==>lement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3342	3452	
==>s($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3342	3452	
==>s($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3342	3452	
==>s($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11130	11238	
==>, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11130	11238	
==>, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	386	482	
==>hod concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2361	2457	
==>ORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	386	482	
==>hod concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2361	2457	
==>ORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2361	2457	
==>ORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(': <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	349	450	
==>a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	894	995	
==>a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	349	450	
==>a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	894	995	
==>a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	894	995	
==>a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10404	10519	
==>p}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10404	10519	
==>p}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10404	10519	
==>p}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15353	15459	
==>target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15353	15459	
==>target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $t <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3924	4030	
==>code Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3924	4030	
==>code Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1373	1461	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1373	1461	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1373	1461	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2436	2529	
==>Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2436	2529	
==>Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2436	2529	
==>Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4433	4524	
==>ssert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4433	4524	
==>ssert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2128	2231	
==>{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2128	2231	
==>{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2128	2231	
==>{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6562	6655	
==>, '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11620	11713	
==>, '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method ba <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16470	16566	
==>arent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16470	16566	
==>arent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3545	3675	
==>$.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3545	3675	
==>$.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4311	4405	
==>ected lines from the previously run tests,
passing if both the diagnostics and output match exa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4311	4405	
==>ected lines from the previously run tests,
passing if both the diagnostics and output match exa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4391	4485	
==>ected lines from the previously run tests,
passing if both the diagnostics and output match exa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4671	4805	
==>\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4864	4998	
==>\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10876	10987	
==>lasses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10876	10987	
==>lasses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10876	10987	
==>lasses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9967	10127	
==>y($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ve <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1748	1896	
==>y($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7514	7625	
==>imitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7514	7625	
==>imitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7514	7625	
==>imitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	450	586	
==>four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	450	586	
==>four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	450	586	
==>four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ = <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1692	1817	
==>{ $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be v <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1692	1817	
==>{ $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1764	1890	
==>able; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1764	1890	
==>able; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1764	1890	
==>able; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to ' <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	13	120	
==>n-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $R <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	13	120	
==>n-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $R <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16934	17072	
==>)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic_reduce {
    my $self = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	761	880	
==>peof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	761	880	
==>peof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	761	880	
==>peof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = e <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	610	719	
==>be used, via :words, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11297	11479	
==>ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unles <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7579	7761	
==>ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unles <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8413	8595	
==>ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unles <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	484	582	
==>/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	484	582	
==>/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9016	9129	
==>);

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9016	9129	
==>);

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	520	641	
==>le =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ", <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	520	641	
==>le =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	944	1036	
==>> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	944	1036	
==>> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	944	1036	
==>> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2761	2901	
==>";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filena <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2978	3118	
==>";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filena <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1850	1946	
==>gs[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1850	1946	
==>gs[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1850	1946	
==>gs[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7272	7408	
==>thod server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7272	7408	
==>thod server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12528	12637	
==>= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12528	12637	
==>= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12528	12637	
==>= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5558	5825	
==>ns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9035	9302	
==>ns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20753	20847	
==>P5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20753	20847	
==>P5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20753	20847	
==>P5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	660	845	
==>OUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	660	845	
==>OUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	660	845	
==>OUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2417	2538	
==>uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $header <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2417	2538	
==>uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15049	15161	
==>_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15049	15161	
==>_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15049	15161	
==>_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1858	1967	
==>ct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1918	2027	
==>ct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12170	12274	
==>::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12170	12274	
==>::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12170	12274	
==>::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	356	450	
==>ion ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	356	450	
==>ion ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12255	12358	
==>an = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This cla <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12255	12358	
==>an = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This cla <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5148	5262	
==>=== any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8625	8739	
==>=== any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2554	2656	
==>ent_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2554	2656	
==>ent_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2554	2656	
==>ent_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6927	7042	
==>shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6927	7042	
==>shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6927	7042	
==>shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new P <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	644	734	
==>ad2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	644	734	
==>ad2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciphe <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	150	262	
==>otdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	150	262	
==>otdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2867	2978	
==>\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2867	2978	
==>\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2867	2978	
==>\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2394	2493	
==>rl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2394	2493	
==>rl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1615	1710	
==>rl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3476	3571	
==>rl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1780	1872	
==>dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.com
cd $path
binar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8656	8773	
==>i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_conti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8656	8773	
==>i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_conti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8656	8773	
==>i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_conti <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15116	15217	
==>ect )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15116	15217	
==>ect )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2038	2165	
==>ail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8810	8937	
==>ail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2038	2165	
==>ail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8810	8937	
==>ail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pri <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6888	6994	
==>)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\w') if $re eq '\w';
    return $o->mk_eater_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5278	5384	
==>d_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5278	5384	
==>d_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5278	5384	
==>d_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	206	308	
==>ls::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Insta <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	100	202	
==>ls::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Insta <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1941	2157	
==>ment>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1941	2157	
==>ment>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	4	102	
==>od key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	4	102	
==>od key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	4	102	
==>od key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5815	5912	
==>kage Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5815	5912	
==>kage Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6405	6502	
==>kage Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3923	4015	
==>: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the orde <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3923	4015	
==>: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the orde <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1974	2106	
==>extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1896	2024	
==>extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4871	4984	
==>->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4871	4984	
==>->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5461	5574	
==>->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4166	4327	
==>^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5487	5648	
==>^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4166	4327	
==>^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5475	5636	
==>^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $nam <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1945	2046	
==>exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\n" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	962	1100	
==>ng_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	962	1100	
==>ng_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	644	759	
==>return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	644	759	
==>return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	644	759	
==>return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pack <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6469	6582	
==>channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6469	6582	
==>channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3874	3980	
==>atching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4091	4197	
==>atching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10422	10510	
==>ap{Perl6::Param->new(@$_)}('.$code_param_info.')]';
    my $namestr = $stringify->($name) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5441	5547	
==>set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5441	5547	
==>set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7714	7819	
==>med => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9642	9747	
==>med => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7702	7807	
==>med => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3820	3991	
==>ie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3820	3991	
==>ie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3820	3991	
==>ie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1242	1339	
==>be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($t <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1242	1339	
==>be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($t <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2112	2219	
==>atfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTI <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2112	2219	
==>atfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16750	16845	
==>...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16750	16845	
==>...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16750	16845	
==>...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	17430	17564	
==>st scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files} <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11083	11177	
==>o remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8487	8581	
==>o remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11083	11177	
==>o remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Retu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8487	8581	
==>o remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Retu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	652	769	
==>:new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for ot <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1136	1253	
==>:new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for ot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1336	1424	
==>ckage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1336	1424	
==>ckage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1336	1424	
==>ckage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5105	5250	
==>sing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5105	5250	
==>sing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5105	5250	
==>sing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my % <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8744	8878	
==>$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9579	9713	
==>$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7305	7416	
==>$_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7305	7416	
==>$_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7305	7416	
==>$_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1385	1489	
==>>code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1385	1489	
==>>code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23215	23337	
==>n(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19636	19758	
==>n(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38745	38865	
==>ev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38745	38865	
==>ev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38745	38865	
==>ev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21781	21904	
==>ements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22060	22183	
==>ements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11978	12083	
==>la IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11978	12083	
==>la IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11978	12083	
==>la IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13722	13860	
==>urn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13722	13860	
==>urn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13722	13860	
==>urn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3085	3182	
==>lowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3085	3182	
==>lowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6722	6842	
==>ble' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            't <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6722	6842	
==>ble' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            't <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6722	6842	
==>ble' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            't <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3434	3530	
==>es Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3434	3530	
==>es Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11238	11357	
==>ing " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11238	11357	
==>ing " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11238	11357	
==>ing " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8269	8373	
==>ys correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each t <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8269	8373	
==>ys correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each t <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4623	4719	
==>ing {
  my($aref,$match_hack,$name,$re)=@_;
  #$match_hack - Match creation is one thing which is <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4174	4269	
==>terpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpol <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4174	4269	
==>terpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpol <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4131	4224	
==>terpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpol <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4131	4224	
==>terpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpol <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9385	9494	
==>1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9443	9552	
==>1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2825	2929	
==>i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2825	2929	
==>i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2825	2929	
==>i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20796	20888	
==>r
$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_stri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20796	20888	
==>r
$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6265	6353	
==>{
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6265	6353	
==>{
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6265	6353	
==>{
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__re <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6143	6253	
==>spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to d <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6143	6253	
==>spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1361	1458	
==>> \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1361	1458	
==>> \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1361	1458	
==>> \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2188	2312	
==>de\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2188	2312	
==>de\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2188	2312	
==>de\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11984	12080	
==>tor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11984	12080	
==>tor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	377	519	
==>y %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \% <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	861	1003	
==>y %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \% <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	277	417	
==>y %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \% <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7673	7768	
==>of this.)

A default implementation of this method is provided which returns nothing.

=item C<z <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7673	7768	
==>of this.)

A default implementation of this method is provided which returns nothing.

=item C<z <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1496	1608	
==>OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1496	1608	
==>OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	122	219	
==>e warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	122	219	
==>e warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtim <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	90	186	
==>e warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtim <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	269	369	
==>[a-zA-Z0-9_]+$/)
        || confess "bad attribute name ($name)";
    $class->SUPER::new($name, $type <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30352	30446	
==>(provided in C<$heading>) may or may not resemble those of the original. 
The anonymous functio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34904	34997	
==>(provided in C<$heading>) may or may not resemble those of the original.
The anonymous functio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34086	34179	
==>(provided in C<$heading>) may or may not resemble those of the original.
The anonymous functio <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23223	23311	
==>dentifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalPa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3587	3696	
==>e( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10166	10275	
==>my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3587	3696	
==>e( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10166	10275	
==>my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10166	10275	
==>my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7284	7390	
==>le->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7284	7390	
==>le->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7284	7390	
==>le->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	125	223	
==>d.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	125	223	
==>d.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5498	5627	
==>apture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @pa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5323	5447	
==>apture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7308	7413	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7308	7413	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7308	7413	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	197	309	
==>batim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is exp <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	197	309	
==>batim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is exp <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	197	309	
==>batim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is exp <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	197	309	
==>batim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is exp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7791	7916	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11792	11913	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11792	11913	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21913	22008	
==>hat resource
files it should use and in what order they should be consulted.  When
Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21913	22008	
==>hat resource
files it should use and in what order they should be consulted.  When
Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1511	1644	
==>PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1511	1644	
==>PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25984	26078	
==>e names that aren't being renamed.  This method
supports renaming attributes to each others' na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30536	30630	
==>e names that aren't being renamed.  This method
supports renaming attributes to each others' na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29511	29605	
==>e names that aren't being renamed.  This method
supports renaming attributes to each others' na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1989	2155	
==>undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2194	2360	
==>undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	283	378	
==>TCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	283	378	
==>TCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	283	378	
==>TCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35717	35823	
==>gative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35717	35823	
==>gative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35717	35823	
==>gative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until bo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3981	4076	
==>ity

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the sam <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3981	4076	
==>ity

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the sam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1978	2078	
==>ernal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1978	2078	
==>ernal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1978	2078	
==>ernal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13035	13118	
==>ocale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translator <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13035	13118	
==>ocale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translator <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20528	20626	
==>|> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20528	20626	
==>|> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20528	20626	
==>|> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16950	17043	
==>ts value indicates what additional
encoding mechanism has been applied to the resource.

=item <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16950	17043	
==>ts value indicates what additional
encoding mechanism has been applied to the resource.

=item <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2150	2266	
==>hod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2150	2266	
==>hod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9372	9464	
==>equire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9372	9464	
==>equire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9372	9464	
==>equire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12479	12593	
==>@pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12479	12593	
==>@pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12479	12593	
==>@pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	57	160	
==>s Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	57	160	
==>s Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15340	15515	
==>ed $type ) {
            $test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2409	2529	
==>t {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because we can use <$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2834	2951	
==>t {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2329	2446	
==>t {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2834	2951	
==>t {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1078	1247	
==>tfile( 
                                $dir, $config->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $ob <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13215	13308	
==>t containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differen <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9887	9980	
==>t containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differen <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13215	13308	
==>t containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differen <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9887	9980	
==>t containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differen <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38439	38533	
==>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42988	43082	
==>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42638	42732	
==>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	430	545	
==>mc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	430	545	
==>mc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1716	1814	
==>* Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1716	1814	
==>* Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1716	1814	
==>* Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1992	2093	
==>ugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1992	2093	
==>ugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1992	2093	
==>ugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	632	726	
==>!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $ou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	632	726	
==>!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $ou <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1070	1193	
==>itbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1070	1193	
==>itbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2748	2848	
==>>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2748	2848	
==>>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2748	2848	
==>>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6450	6589	
==>return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6450	6589	
==>return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6450	6589	
==>return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29233	29342	
==>_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29233	29342	
==>_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1193	1337	
==>ters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1193	1337	
==>ters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1193	1337	
==>ters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _bu <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8835	8934	
==>d union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_paramete <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8835	8934	
==>d union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_paramete <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1786	1893	
==>pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1786	1893	
==>pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1786	1893	
==>pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7473	7564	
==>e(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_co <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8433	8592	
==>lems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8433	8592	
==>lems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1140	1257	
==>Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1140	1257	
==>Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1140	1257	
==>Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2271	2418	
==>it' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2271	2418	
==>it' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2271	2418	
==>it' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6324	6446	
==>e($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6324	6446	
==>e($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	238	348	
==>ll
see, but it has some other clutter because of unclear design.

    $.from         - The place where this sub <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	238	348	
==>ll
see, but it has some other clutter because of unclear design.

    $.from         - The place where this sub <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37760	37860	
==>on is the union of
all the headings of the source relations.  The body of the new relation is
the res <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42309	42409	
==>on is the union of
all the headings of the source relations.  The body of the new relation is
the res <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41959	42059	
==>on is the union of
all the headings of the source relations.  The body of the new relation is
the res <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1944	2051	
==>ce
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# R <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1944	2051	
==>ce
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# R <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1944	2051	
==>ce
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# R <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	179	277	
==>d list through the rule as it is executed, but the linked
list is done in code (i.e. with closures) <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	179	277	
==>d list through the rule as it is executed, but the linked
list is done in code (i.e. with closures) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3927	4027	
==>and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3927	4027	
==>and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4812	4921	
==>DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a re <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4812	4921	
==>DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	313	464	
==>oxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	313	464	
==>oxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	313	464	
==>oxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22651	22750	
==>ree has been created, this key is deleted; this gives the
code a way to be sure compilation was succ <==
5	/Users/nnunley/pugs/docs/feather/~/gen.pl	705	803	
==>sers;

print { $fh } <<'END';
</ul>
<p>
Or <a href="#" onclick="openNewWindows(); return false;">op <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	62	170	
==>ort {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	62	170	
==>ort {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4907	5005	
==>ds rather than rules or macros. (The numeric
    rxmods are recognized by fallback macros defined w <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	962	1057	
==>escription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns B <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	962	1057	
==>escription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1012	1118	
==>iled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1012	1118	
==>iled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1012	1118	
==>iled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23656	23750	
==>rintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or not <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23656	23750	
==>rintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or not <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32916	33012	
==>ther side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32916	33012	
==>ther side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27633	27727	
==>he corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32185	32279	
==>he corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31277	31371	
==>he corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function th <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6506	6604	
==>h line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6506	6604	
==>h line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3275	3363	
==>2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3275	3363	
==>2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3275	3363	
==>2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1181	1319	
==>_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4420	4558	
==>_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1181	1319	
==>_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4420	4558	
==>_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5281	5415	
==>- x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5281	5415	
==>- x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5281	5415	
==>- x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4179	4310	
==>os;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifie <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4179	4310	
==>os;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifie <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1532	1709	
==>r
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(s <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1532	1709	
==>r
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3702	3798	
==><$description> is the optional
description of the test.  This is the easiest way to match a passi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3702	3798	
==><$description> is the optional
description of the test.  This is the easiest way to match a passi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3782	3878	
==><$description> is the optional
description of the test.  This is the easiest way to match a passi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3047	3154	
==>art> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3047	3154	
==>art> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2643	2748	
==>maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2643	2748	
==>maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2643	2748	
==>maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1785	1910	
==>d this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1785	1910	
==>d this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1785	1910	
==>d this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	84	194	
==>has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set co <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	84	194	
==>has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set co <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	49	166	
==>tr $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	49	166	
==>tr $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3444	3578	
==>ft;
    %hash = (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1941	2053	
==>_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1941	2053	
==>_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1941	2053	
==>_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22697	22791	
==>ensions rather than one.  The Relation::Example operators are somewhat of
a superset of the Set <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1383	1479	
==>edural interface does the same thing within a single call, hiding the 
full complexity.

=head3 P <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1383	1479	
==>edural interface does the same thing within a single call, hiding the 
full complexity.

=head3 P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9592	9679	
==>_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9592	9679	
==>_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9592	9679	
==>_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)} <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30467	30572	
==>der->equal_to(str->new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_mak <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3483	3581	
==>ad1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3789	3887	
==>ad1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3483	3581	
==>ad1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3789	3887	
==>ad1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4928	5041	
==>ake sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4928	5041	
==>ake sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed chi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2935	3035	
==>tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2935	3035	
==>tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2935	3035	
==>tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2788	2964	
==>$tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6265	6441	
==>$tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3331	3485	
==>type => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3331	3485	
==>type => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3331	3485	
==>type => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5300	5399	
==>f if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5300	5399	
==>f if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5300	5399	
==>f if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cm <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10295	10391	
==>ovided and that they are of the correct
container type (eg, hash vs array).  The deferred validat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10295	10391	
==>ovided and that they are of the correct
container type (eg, hash vs array).  The deferred validat <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	197	302	
==>rnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @val <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	174	279	
==>rnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7826	7925	
==>ne types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7826	7925	
==>ne types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7826	7925	
==>ne types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	631	733	
==>:Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	631	733	
==>:Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	631	733	
==>:Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_i <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2742	2996	
==>e;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbati <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2742	2996	
==>e;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7378	7476	
==>js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7378	7476	
==>js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7378	7476	
==>js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5040	5181	
==>ists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5040	5181	
==>ists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5040	5181	
==>ists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $ro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	952	1081	
==>x:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	952	1081	
==>x:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24596	24735	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24875	25014	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3884	3993	
==>n "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3884	3993	
==>n "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3884	3993	
==>n "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <l <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3148	3262	
==>ntDiv {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token> <DivPunctuator>
}
r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	336	443	
==>n(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2431	2529	
==>encee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2431	2529	
==>encee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2431	2529	
==>encee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	15	118	
==>rator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look als <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	15	113	
==>rator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look als <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	45	142	
==>rator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look als <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	45	142	
==>rator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look als <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2049	2188	
==>5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2242	2381	
==>5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1898	2000	
==>here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1898	2000	
==>here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1898	2000	
==>here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4145	4298	
==>ge=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4145	4298	
==>ge=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	53	163	
==>xup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	53	163	
==>xup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	53	163	
==>xup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtV <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21373	21471	
==>th the package name?).  An advantage of
this is that, for example, your package could come with a s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21373	21471	
==>th the package name?).  An advantage of
this is that, for example, your package could come with a s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1291	1390	
==>XT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1291	1390	
==>XT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1291	1390	
==>XT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNO <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	634	731	
==>-

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	634	731	
==>-

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4975	5080	
==>$class = "${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21554	21651	
==>do" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, con <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20435	20532	
==>do" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, con <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21554	21651	
==>do" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, con <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20435	20532	
==>do" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1995	2128	
==>{ 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2430	2563	
==>{ 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2867	3000	
==>{ 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2690	2797	
==>ag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.val <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2690	2797	
==>ag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.val <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	149	284	
==>\&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fal <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	191	326	
==>\&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fal <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	149	284	
==>\&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fal <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	191	326	
==>\&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fal <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	216	322	
==>ubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10093	10206	
==>e;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10093	10206	
==>e;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10093	10206	
==>e;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1077	1171	
==><server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan l <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1077	1171	
==><server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11300	11406	
==>y->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11300	11406	
==>y->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11300	11406	
==>y->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6577	6676	
==>turns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this v <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6577	6676	
==>turns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6252	6455	
==>_/$op->{$_}/g for qw( name2 name );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\n" .
                        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6561	6665	
==>arp "parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	247	342	
==>ators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	247	342	
==>ators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	247	342	
==>ators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1226	1324	
==>q 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1226	1324	
==>q 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1226	1324	
==>q 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $met <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7362	7459	
==>atenation.

- "plain" match operators: like 'literal'.



Higher order operators take a list of ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7112	7206	
==>atenation.
- "plain" match operators: like 'literal'.

Higher order operators take a list of ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1061	1195	
==>,
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1103	1237	
==>,
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pref <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	230	338	
==>tch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	230	338	
==>tch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	230	338	
==>tch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JS <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5607	5710	
==>> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differen <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5607	5710	
==>> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3207	3306	
==>t_x, 100, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39246	39334	
==>setta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This document <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39246	39334	
==>setta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This document <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	34	130	
==>tend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage informa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	34	130	
==>tend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage informa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	34	130	
==>tend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage informa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23244	23337	
==>The command is not modified by this module,
aside from appending the correct newline character <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23244	23337	
==>The command is not modified by this module,
aside from appending the correct newline character <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2696	2804	
==>ilename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2696	2804	
==>ilename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2696	2804	
==>ilename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5483	5583	
==>file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5483	5583	
==>file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2555	2665	
==>->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2555	2665	
==>->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2555	2665	
==>->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2019	2126	
==>urn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2019	2126	
==>urn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Per <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1259	1358	
==>urn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3120	3219	
==>urn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Per <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12416	12509	
==>ne you're looking at.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment($line, \$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5102	5193	
==>mpiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1059	1150	
==>mpiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	919	1010	
==>mpiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5102	5193	
==>mpiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1059	1150	
==>mpiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and other <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	341	460	
==>ge::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6509	6603	
==>UB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6509	6603	
==>UB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6509	6603	
==>UB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1336	1425	
==>RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<cl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5974	6092	
==>with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!fi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5974	6092	
==>with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7198	7298	
==>match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7198	7298	
==>match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7198	7298	
==>match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4791	4949	
==>at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4791	4949	
==>at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4791	4949	
==>at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11381	11475	
==>n recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence th <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11381	11475	
==>n recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence th <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4985	5126	
==>' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traver <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5309	5450	
==>' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traver <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9721	9838	
==>length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9721	9838	
==>length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9721	9838	
==>length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices g <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7759	7901	
==>d'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8706	8848	
==>d'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9665	9807	
==>d'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22377	22518	
==>d'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42166	42307	
==>d'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	962	1059	
==>infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	962	1059	
==>infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	962	1059	
==>infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2905	3000	
==>$other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBU <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2905	3000	
==>$other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBU <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	782	889	
==>rn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	782	889	
==>rn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5101	5196	
==>my_editor() on it.
The editor routine is passed the current object in the recursion and
the want <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5101	5196	
==>my_editor() on it.
The editor routine is passed the current object in the recursion and
the want <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5101	5196	
==>my_editor() on it.
The editor routine is passed the current object in the recursion and
the want <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17216	17332	
==>w => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17216	17332	
==>w => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7026	7123	
==>content_language ($self: )          is rw { $self.header("Content-Language") }
method content_leng <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7026	7123	
==>content_language ($self: )          is rw { $self.header("Content-Language") }
method content_leng <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3984	4083	
==>);
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3984	4083	
==>);
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3984	4083	
==>);
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

su <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1291	1383	
==>docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<d <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1291	1383	
==>docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7711	7844	
==>($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7711	7844	
==>($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7711	7844	
==>($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2007	2107	
==>ME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2007	2107	
==>ME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	454	557	
==>(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	454	557	
==>(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	454	557	
==>(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2902	2999	
==>.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2902	2999	
==>.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4558	4713	
==>new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4558	4713	
==>new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4558	4713	
==>new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20079	20174	
==>most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choos <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20079	20174	
==>most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choos <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7857	8038	
==>union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11334	11515	
==>union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10498	10679	
==>union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rela <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5548	5662	
==>start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5548	5662	
==>start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.e <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3698	3801	
==>m C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and s <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3698	3801	
==>m C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5895	5998	
==>m C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41315	41403	
==>3.21, provided feedback towards improving this module's
documentation, particularly towar <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41315	41403	
==>3.21, provided feedback towards improving this module's
documentation, particularly towar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	890	1015	
==>ys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	890	1015	
==>ys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	890	1015	
==>ys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7277	7376	
==>,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7277	7376	
==>,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1510	1763	
==>eading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	894	1001	
==>g index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self-ref <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1259	1363	
==>g index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-ref <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	858	962	
==>g index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-ref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1259	1363	
==>g index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4670	4782	
==>t} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4670	4782	
==>t} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4670	4782	
==>t} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't w <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	231	328	
==>define span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.comp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	231	328	
==>define span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.comp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12203	12324	
==>md =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12197	12318	
==>md =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1351	1460	
==>o_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1351	1460	
==>o_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1351	1460	
==>o_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1038	1140	
==>oxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1038	1140	
==>oxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1038	1140	
==>oxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11101	11260	
==>y and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11101	11260	
==>y and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11101	11260	
==>y and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5418	5542	
==>rse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'state <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5418	5542	
==>rse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'state <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1346	1437	
==>$main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1346	1437	
==>$main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1346	1437	
==>$main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",ma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10432	10559	
==>connect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10432	10559	
==>connect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3442	3543	
==>/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = . <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4578	4678	
==>/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = . <==
5	/Users/nnunley/pugs/util/addauthors.pl	406	499	
==>reach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9139	9233	
==>f($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isIn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9139	9233	
==>f($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isIn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9139	9233	
==>f($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isIn <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8745	8839	
==>SS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, * <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8745	8839	
==>SS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, * <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	909	1031	
==>tion= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	918	1040	
==>tion= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7762	7866	
==>or {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7762	7866	
==>or {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7762	7866	
==>or {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7305	7469	
==>.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7305	7469	
==>.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7305	7469	
==>.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15565	15688	
==>ost likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use F <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15565	15688	
==>ost likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use F <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1493	1612	
==>i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1493	1612	
==>i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5097	5198	
==>item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5097	5198	
==>item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5097	5198	
==>item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	554	667	
==>_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slur <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	554	667	
==>_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slur <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	554	667	
==>_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slur <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33444	33541	
==>or first library should
appear first in the array.  Each Set Name can be any defined and non-empty <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33444	33541	
==>or first library should
appear first in the array.  Each Set Name can be any defined and non-empty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25870	26063	
==>ue::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25870	26063	
==>ue::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25870	26063	
==>ue::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7238	7360	
==>es ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (N <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7238	7360	
==>es ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7148	7257	
==>{ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::double <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7148	7257	
==>{ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::double <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7148	7257	
==>{ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::double <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1571	1686	
==>def()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ibl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1571	1686	
==>def()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ibl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1571	1686	
==>def()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu ibl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1176	1272	
==>nt &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1172	1263	
==>nt &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2844	2972	
==>ass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2844	2972	
==>ass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2844	2972	
==>ass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2	102	
==>dule Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2	102	
==>dule Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3925	4065	
==>'=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34429	34539	
==>ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34429	34539	
==>ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34429	34539	
==>ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12715	12811	
==>re are the standard warning and error messages.  Their values are all
negative; positive values a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1010	1163	
==>, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1010	1163	
==>, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1010	1163	
==>, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b) <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	822	919	
==>s information about the remote user that is using your CGI. 
It also attempts to provide some usef <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	822	919	
==>s information about the remote user that is using your CGI. 
It also attempts to provide some usef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4777	4878	
==>$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4777	4878	
==>$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4777	4878	
==>$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  c <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10201	10285	
==>,defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef", <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10936	11020	
==>,defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4604	4781	
==>unt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4604	4781	
==>unt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4604	4781	
==>unt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    war <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2650	2797	
==>egex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2843	2990	
==>egex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10375	10476	
==>my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10375	10476	
==>my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	859	958	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	859	958	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	859	958	
==>eferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i > <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5351	5478	
==>tLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtS <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5351	5478	
==>tLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2573	2683	
==>ass_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2573	2683	
==>ass_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2573	2683	
==>ass_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5340	5444	
==>ens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5340	5444	
==>ens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5340	5444	
==>ens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tok <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1390	1478	
==>il-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1390	1478	
==>il-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6994	7101	
==>tent, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6994	7101	
==>tent, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	439	542	
==>blib($install_version);

    $self->set_makefile_macros
      if $install_version eq '6';

    $self->Wr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3340	3432	
==>named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3340	3432	
==>named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3191	3376	
==>ast if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    retur <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3191	3376	
==>ast if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4583	4732	
==>y $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4583	4732	
==>y $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4583	4732	
==>y $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8436	8543	
==>y.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5976	6077	
==>y.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30201	30294	
==>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34753	34846	
==>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33926	34019	
==>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8499	8641	
==>y a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8215	8353	
==>y a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4385	4496	
==>m{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4385	4496	
==>m{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4385	4496	
==>m{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6328	6479	
==>) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6328	6479	
==>) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6328	6479	
==>) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nul <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	768	909	
==>.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	768	909	
==>.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19685	19805	
==>tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2672	2770	
==>go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2672	2770	
==>go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2672	2770	
==>go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	674	769	
==>0) }

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7676	7832	
==>xed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7676	7832	
==>xed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7676	7832	
==>xed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4891	5000	
==>span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4891	5000	
==>span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4422	4532	
==>eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4434	4544	
==>eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1261	1355	
==>) {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1261	1355	
==>) {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1261	1355	
==>) {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6218	6338	
==>ort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6018	6132	
==>ort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
th <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2319	2438	
==>rel2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{$di <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6468	6593	
==>pad<"pLValue">;
        dbg "# Parameters: "; my @params =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       "; m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13134	13226	
==>calars),
which is suitable as a generic data interchange format between
Rosetta::Model and ot <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18229	18321	
==>calars), which is suitable as a generic data interchange
format between Rosetta::Model and ot <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13134	13226	
==>calars),
which is suitable as a generic data interchange format between
Rosetta::Model and ot <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18229	18321	
==>calars), which is suitable as a generic data interchange
format between Rosetta::Model and ot <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4061	4176	
==>= do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPer <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18761	18870	
==>ss_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unless_null exp1, end
    .return <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4405	4502	
==>actly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTH <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4405	4502	
==>actly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4485	4582	
==>actly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10894	11000	
==>eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10894	11000	
==>eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10894	11000	
==>eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1112	1209	
==>it
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> o <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1112	1209	
==>it
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> o <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	388	513	
==>=~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17105	17215	
==>fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20582	20692	
==>fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20160	20270	
==>fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	513	623	
==>=~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2782	3053	
==>ffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2782	3053	
==>ffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	258	353	
==>s ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	258	353	
==>s ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	258	353	
==>s ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1655	1794	
==>ME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1655	1794	
==>ME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4967	5063	
==>ustom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4967	5063	
==>ustom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4967	5063	
==>ustom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visite <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3088	3186	
==>r = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3088	3186	
==>r = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5115	5206	
==>value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5115	5206	
==>value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6639	6730	
==>value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo ret <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10243	10372	
==>0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10243	10372	
==>0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method l <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37926	38024	
==>n
with every tuple of each other source relation, then where each member of a
tuple pair has attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42475	42573	
==>n
with every tuple of each other source relation, then where each member of a
tuple pair has attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42125	42223	
==>n
with every tuple of each other source relation, then where each member of a
tuple pair has attrib <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	275	381	
==>rom_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	820	926	
==>rom_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'st <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	275	381	
==>rom_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	820	926	
==>rom_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	820	926	
==>rom_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'st <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1051	1152	
==>est := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1109	1210	
==>est := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6227	6323	
==>stom, for when you don't want to mess
with members belonging to 3rd party classes that your objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6227	6323	
==>stom, for when you don't want to mess
with members belonging to 3rd party classes that your objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6227	6323	
==>stom, for when you don't want to mess
with members belonging to 3rd party classes that your objec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2672	2786	
==>ere so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2672	2786	
==>ere so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2672	2786	
==>ere so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12775	12871	
==>f the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `en <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12775	12871	
==>f the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `en <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3186	3284	
==>s that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enough <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6646	6744	
==>>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specifi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3186	3284	
==>s that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enough <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6646	6744	
==>>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specifi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8843	8941	
==>>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1207	1305	
==>.ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1207	1305	
==>.ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1207	1305	
==>.ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .me <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14966	15060	
==>can also be accessed through the
following convenience methods.  These methods can both be used <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14966	15060	
==>can also be accessed through the
following convenience methods.  These methods can both be used <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2878	3010	
==>ach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2878	3010	
==>ach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2878	3010	
==>ach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2180	2289	
==>l_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	55	154	
==>ict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format', '$s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10276	10403	
==>}
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10276	10403	
==>}
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10276	10403	
==>}
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slic <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3337	3431	
==>embers.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3337	3431	
==>embers.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6498	6634	
==>'=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6498	6634	
==>'=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	271	374	
==>ons = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	232	335	
==>ons = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	232	335	
==>ons = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command l <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7345	7449	
==>n "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7345	7449	
==>n "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16855	16954	
==>ributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16855	16954	
==>ributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16855	16954	
==>ributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	288	407	
==>ions;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	494	613	
==>ions;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23456	23556	
==>p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_com <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23456	23556	
==>p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_com <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23456	23556	
==>p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_com <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6946	7064	
==>gInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        ble <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7505	7623	
==>gInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        ble <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2515	2618	
==>else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2515	2618	
==>else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2515	2618	
==>else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Ar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1938	2104	
==>n($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1938	2104	
==>n($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5871	5971	
==>Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5871	5971	
==>Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7395	7495	
==>Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11145	11266	
==>$ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11145	11266	
==>$ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11145	11266	
==>$ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18229	18327	
==>or opening file', programs would have a harder time figuring out the
best way to deal with it.  But <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18229	18327	
==>or opening file', programs would have a harder time figuring out the
best way to deal with it.  But <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2903	3065	
==>ure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3087	3249	
==>ure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	783	935	
==>ion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	783	935	
==>ion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	783	935	
==>ion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8979	9097	
==>['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8979	9097	
==>['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8979	9097	
==>['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        m <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2680	2780	
==>: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know bett <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2680	2780	
==>: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know bett <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7510	7617	
==>xpected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PI <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7568	7675	
==>xpected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3360	3455	
==>ying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3360	3455	
==>ying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3360	3455	
==>ying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12974	13081	
==>& ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments ar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12974	13081	
==>& ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments ar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12974	13081	
==>& ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8848	8941	
==>r(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2673	2766	
==>r(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1888	1993	
==>lf --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_ne <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1888	1993	
==>lf --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1397	1497	
==>T LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1397	1497	
==>T LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1397	1497	
==>T LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3498	3597	
==>$param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3498	3597	
==>$param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3498	3597	
==>$param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41100	41194	
==>ovided sample usage and patch
code, that supports embedding of Template modules into the same f <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41100	41194	
==>ovided sample usage and patch
code, that supports embedding of Template modules into the same f <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22743	22841	
==>n optionally use them; but often a template will
choose to show less than all of the available deta <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22743	22841	
==>n optionally use them; but often a template will
choose to show less than all of the available deta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3422	3518	
==>Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3422	3518	
==>Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3422	3518	
==>Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string! <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5930	6078	
==>k->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->new('$*OU <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23919	24022	
==>onse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply bac <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22692	22795	
==>onse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply bac <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23919	24022	
==>onse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply bac <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22692	22795	
==>onse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply bac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	476	575	
==>-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	476	575	
==>-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	476	575	
==>-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12765	12862	
==>d2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12765	12862	
==>d2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1247	1355	
==>say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg=" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1247	1355	
==>say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg=" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1247	1355	
==>say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg=" <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1163	1257	
==>)' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'.. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1163	1257	
==>)' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'.. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	269	385	
==><from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	269	385	
==><from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $even <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	117	213	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	117	213	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	117	213	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2382	2520	
==>::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::altern <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2393	2531	
==>::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::altern <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2582	2686	
==>|| "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2582	2686	
==>|| "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3454	3543	
==>piler::Rule> module must be properly installed.

An improperly installed C<Pugs::Compiler: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4883	5006	
==>ld if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if (( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4883	5006	
==>ld if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if (( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4861	4977	
==>);

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4861	4977	
==>);

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4861	4977	
==>);

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @role <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12790	12888	
==>for ="some_file"
# I'm not sure where this is specced, but when I migrated &prefix:<=> from
# meani <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21495	21591	
==>ding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of ps <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20376	20472	
==>ding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of ps <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21495	21591	
==>ding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of ps <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20376	20472	
==>ding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of ps <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2728	2829	
==>S.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2728	2829	
==>S.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2728	2829	
==>S.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitiv <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9258	9357	
==>em1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charse <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1818	1913	
==>y $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCompi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3908	4014	
==>{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3908	4014	
==>{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3908	4014	
==>{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1380	1466	
==>er::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(100 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1380	1466	
==>er::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(100 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	630	729	
==>$match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	836	935	
==>$match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24612	24712	
==>ranch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21033	21133	
==>ranch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20523	20621	
==>ix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20523	20621	
==>ix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20523	20621	
==>ix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   inf <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5641	5750	
==>$rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3456	3563	
==>$rv ($self->find_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3599	3693	
==>S_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3599	3693	
==>S_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3599	3693	
==>S_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11692	11803	
==>}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11686	11797	
==>}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2853	2957	
==>it_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? worka <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2853	2957	
==>it_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? worka <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2853	2957	
==>it_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? worka <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6296	6463	
==>.
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6296	6463	
==>.
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6296	6463	
==>.
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1038	1135	
==>ds (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1038	1135	
==>ds (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3913	4010	
==>tional
description of the test.  This is the easiest way to match a failing test.

=item B<test_ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3913	4010	
==>tional
description of the test.  This is the easiest way to match a failing test.

=item B<test_ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3993	4090	
==>tional
description of the test.  This is the easiest way to match a failing test.

=item B<test_ou <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	989	1084	
==>de<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	989	1084	
==>de<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1725	1984	
==>r => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1725	1984	
==>r => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                } <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2218	2379	
==>ect::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor::new           :
            $args->{insta <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	610	713	
==>start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/la <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	610	713	
==>start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/la <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1625	1735	
==>nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( docum <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1625	1735	
==>nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( docum <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1064	1159	
==>:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1064	1159	
==>:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1064	1159	
==>:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1706	1810	
==>ue::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1706	1810	
==>ue::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1706	1810	
==>ue::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @sta <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5398	5498	
==>ring or a reference to a URI object.

You will not be able to examine the response code or response h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5398	5498	
==>ring or a reference to a URI object.

You will not be able to examine the response code or response h <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12693	12821	
==>tabase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Loca <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12693	12821	
==>tabase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Loca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5963	6066	
==>,
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5963	6066	
==>,
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5963	6066	
==>,
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9724	9839	
==> $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9724	9839	
==> $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4650	4744	
==>return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4650	4744	
==>return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4650	4744	
==>return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	153	269	
==>var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	153	269	
==>var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	153	269	
==>var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Has <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2998	3094	
==>.remote_addr>

The IP address of the client, if available.

=back

In addition, the following req <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2998	3094	
==>.remote_addr>

The IP address of the client, if available.

=back

In addition, the following req <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2978	3106	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greed <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3258	3379	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greed <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9676	9797	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greed <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3258	3379	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greed <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9676	9797	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	396	501	
==>ie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	396	501	
==>ie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	396	501	
==>ie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in or <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	957	1059	
==>atements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro def <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	957	1059	
==>atements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro def <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6124	6281	
==>om, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6124	6281	
==>om, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6124	6281	
==>om, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = n <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1010	1120	
==>shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [] <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2767	2855	
==>p{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars,$tmpvars]);
  "(do{my \$__v_ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16886	17034	
==>" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2296	2425	
==>ier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2307	2436	
==>ier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( ' <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2901	2996	
==>sh up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2901	2996	
==>sh up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12706	12801	
==>data, such as date objects without the time part.

Discrete spans take a "units" specifier, whic <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12706	12801	
==>data, such as date objects without the time part.

Discrete spans take a "units" specifier, whic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3103	3193	
==>ms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3103	3193	
==>ms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3450	3540	
==>ms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	625	737	
==>> {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6817	6911	
==>SO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4169	4263	
==>SO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6817	6911	
==>SO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4169	4263	
==>SO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6309	6406	
==>:ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6309	6406	
==>:ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6309	6406	
==>:ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3058	3151	
==>s Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3058	3151	
==>s Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11398	11546	
==>date;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11398	11546	
==>date;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11398	11546	
==>date;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_typ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2637	2770	
==>e)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading componen <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2637	2770	
==>e)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading componen <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1525	1739	
==>) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $ch <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1525	1739	
==>) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5936	6039	
==>d from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5936	6039	
==>d from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5936	6039	
==>d from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child p <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6965	7064	
==>s really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::ins <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6965	7064	
==>s really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::ins <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34908	35005	
==>method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39458	39555	
==>method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38991	39088	
==>method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relatio <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11476	11576	
==>O DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11476	11576	
==>O DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3286	3376	
==>stant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3286	3376	
==>stant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3286	3376	
==>stant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13496	13640	
==>anidate' => str->new('P6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	236	359	
==>ethod calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

and maybe

    \(...)
    ^T

=head1 See also

=cut

# TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	932	1023	
==>:JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	932	1023	
==>:JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	932	1023	
==>:JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1522	1645	
==>untime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1975	2098	
==>untime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2410	2533	
==>untime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2847	2970	
==>untime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	27930	28025	
==>t($map), "∀α. ∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	797	909	
==>X - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direct <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	806	918	
==>X - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5495	5599	
==>fined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5495	5599	
==>fined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5495	5599	
==>fined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1521	1630	
==>q 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1521	1630	
==>q 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1521	1630	
==>q 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2869	2973	
==>X - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2869	2973	
==>X - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\ <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1835	1962	
==>oor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2372	2499	
==>oor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15307	15407	
==>ft { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15307	15407	
==>ft { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15307	15407	
==>ft { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	170	281	
==>$match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	170	281	
==>$match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    m <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	316	424	
==>od finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi metho <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	316	424	
==>od finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18467	18563	
==>character
class would render as C<[\w\d:]>.  If you want to go even further and remove
any embedd <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1505	1676	
==>or $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1505	1676	
==>or $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7138	7239	
==>ch \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7138	7239	
==>ch \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7138	7239	
==>ch \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Ne <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7010	7111	
==>e_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto e <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5409	5507	
==>two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4539	4637	
==>two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5409	5507	
==>two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4539	4637	
==>two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1178	1339	
==>tring ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1178	1339	
==>tring ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10466	10586	
==>turn $S->object(quant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4159	4264	
==>1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
secti <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4159	4264	
==>1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
secti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	204	303	
==>::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	204	303	
==>::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	204	303	
==>::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15100	15194	
==>ures of arbitrary depth and of
an arbitrary type. The function signatures will likely look some <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15158	15252	
==>ures of arbitrary depth and of
an arbitrary type. The function signatures will likely look some <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2655	2753	
==>mber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2655	2753	
==>mber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2655	2753	
==>mber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3176	3268	
==>],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3362	3454	
==>],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FET <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16189	16289	
==>al it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($sy <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2598	2698	
==>al it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($sy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17271	17368	
==>ION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17271	17368	
==>ION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17271	17368	
==>ION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18471	18572	
==>n::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18667	18768	
==>n::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18881	18982	
==>n::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19083	19184	
==>n::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19418	19519	
==>n::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $ <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1272	1387	
==>xit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unles <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14884	14983	
==>want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14884	14983	
==>want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14884	14983	
==>want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3228	3327	
==>want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1138	1238	
==>c::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # de <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1138	1238	
==>c::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # de <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6724	6822	
==>r( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6736	6834	
==>r( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6432	6526	
==>:) (symbol $label) (method $method)) returns nil
    ((($self: get_attr (symbol new (%:methods) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11862	11957	
==>r of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9009	9104	
==>r of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11862	11957	
==>r of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9009	9104	
==>r of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	40	134	
==>d::Perl;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

use Blondie::Backend::Perl: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8448	8558	
==>r::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.tes <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	646	744	
==>r::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	646	744	
==>r::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.tes <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38408	38503	
==>ng the %msg_vars into it, where each variable value is
substituted for any occurance of its corr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38408	38503	
==>ng the %msg_vars into it, where each variable value is
substituted for any occurance of its corr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7426	7560	
==>"; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7426	7560	
==>"; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7426	7560	
==>"; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4496	4603	
==>ath =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($cla <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4496	4603	
==>ath =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2900	3017	
==>y $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split ind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2900	3017	
==>y $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split ind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2900	3017	
==>y $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split ind <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	70	162	
==>uire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use I <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	70	162	
==>uire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13308	13410	
==>_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13308	13410	
==>_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13308	13410	
==>_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1078	1208	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1078	1208	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1078	1208	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$P <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1596	1688	
==>g)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1596	1688	
==>g)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1645	1785	
==>atch applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1645	1785	
==>atch applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	915	1010	
==>Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	915	1010	
==>Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	915	1010	
==>Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1312	1417	
==>) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1312	1417	
==>) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1312	1417	
==>) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15511	15606	
==>returns Bool;

Because these functions will be mutually recursive, they will easily be
able hand <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15569	15664	
==>returns Bool;

Because these functions will be mutually recursive, they will easily be
able hand <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6839	6956	
==>=> 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_dat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6839	6956	
==>=> 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16056	16159	
==>6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16056	16159	
==>6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16056	16159	
==>6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2325	2437	
==>$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2325	2437	
==>$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2325	2437	
==>$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9095	9186	
==>tem XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9095	9186	
==>tem XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	617	759	
==>? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	593	728	
==>? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	554	649	
==>cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	554	649	
==>cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	554	649	
==>cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	2120	2240	
==>askell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1298	1400	
==>boxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1298	1400	
==>boxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1298	1400	
==>boxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of th <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45243	45333	
==>($::Object));

$::Package->send('add_attribute', (symbol->new('$:name')      => attribute-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3633	3760	
==>06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3633	3760	
==>06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3633	3760	
==>06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:ce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	307	424	
==>) or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pk <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	307	424	
==>) or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pk <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4092	4190	
==>ting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4092	4190	
==>ting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6289	6387	
==>ting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1266	1359	
==>u are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's ava <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1106	1199	
==>u are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's ava <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13283	13456	
==>rams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13283	13456	
==>rams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13283	13456	
==>rams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4575	4706	
==>given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4575	4706	
==>given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13810	13962	
==>rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3927	4063	
==>rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3927	4063	
==>rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3927	4063	
==>rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13344	13452	
==>king scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -type f] ) {
        chomp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1676	1806	
==>)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1676	1806	
==>)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1676	1806	
==>)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1131	1247	
==>\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1131	1247	
==>\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10045	10164	
==>ge $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10045	10164	
==>ge $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10045	10164	
==>ge $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31872	31969	
==>e the first library generates an error
message and wants it shown to the user, the main program wo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31872	31969	
==>e the first library generates an error
message and wants it shown to the user, the main program wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	320	419	
==>dleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	320	419	
==>dleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	320	419	
==>dleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3220	3312	
==>ecipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3220	3312	
==>ecipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	19	127	
==>pt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = ha <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	19	127	
==>pt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	568	662	
==>"Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	568	662	
==>"Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	568	662	
==>"Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15544	15667	
==>->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tabl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15544	15667	
==>->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tabl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15544	15667	
==>->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tabl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4476	4572	
==>ypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4476	4572	
==>ypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1198	1300	
==>{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1198	1300	
==>{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1444	1538	
==>Group");
    $optable->addToken("<commit>", "term:", "nows", "PGE::Exp::Commit");
    $optable- <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9540	9628	
==>oper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a prope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9540	9628	
==>oper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a prope <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13503	13657	
==>sh = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3648	3786	
==>sh = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3648	3786	
==>sh = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3648	3786	
==>sh = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = sub <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	16166	16292	
==>html->as_text
            $heading = $p->interpolate($heading);
            $heading =~ s/^\s+|\s+$//g;;
            $heading = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2602	2764	
==>cat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3006	3162	
==>cat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2517	2673	
==>cat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3006	3162	
==>cat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        m <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14708	14814	
==>ite alternatives file: $@" ), return;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c-b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4329	4433	
==>{
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4329	4433	
==>{
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4919	5023	
==>{
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	544	637	
==>Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	544	637	
==>Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4727	4864	
==>\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4727	4864	
==>\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4727	4864	
==>\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	704	805	
==>@!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTH <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	704	805	
==>@!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3292	3400	
==>slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3292	3400	
==>slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3648	3756	
==>slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2235	2337	
==>returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2235	2337	
==>returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1111	1215	
==>= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1111	1215	
==>= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1111	1215	
==>= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', un <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23490	23578	
==>tion files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Mig <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23490	23578	
==>tion files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Mig <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5402	5523	
==>n.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.pre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5402	5523	
==>n.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.pre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2997	3149	
==>{
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2997	3149	
==>{
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8609	8723	
==>r[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8609	8723	
==>r[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8609	8723	
==>r[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	40	140	
==>mit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code lat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	40	140	
==>mit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code lat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	40	140	
==>mit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code lat <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31742	31835	
==>espectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36292	36385	
==>espectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $ot <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17229	17391	
==>RIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumer <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17229	17391	
==>RIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	409	542	
==>+;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	409	542	
==>+;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	409	542	
==>+;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5058	5189	
==>: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5058	5189	
==>: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1629	1724	
==>ay is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1629	1724	
==>ay is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1629	1724	
==>ay is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $co <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1921	2037	
==>omalies
    # to each event.
    # Note that I use the test number for reference, which will
    # blow up in our fac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	539	637	
==>DO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	539	637	
==>DO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	539	637	
==>DO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - la <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28134	28228	
==>heading () returns Set of Str>

This method returns this Relation::Example's heading.

=item C< <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	413	504	
==>e if $node.defined;   
}

## --------------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	413	504	
==>e if $node.defined;   
}

## --------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12028	12117	
==>psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12028	12117	
==>psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12028	12117	
==>psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2555	2687	
==>Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fals <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2555	2687	
==>Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fals <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2555	2687	
==>Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fals <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9102	9208	
==>x =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9102	9208	
==>x =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1311	1476	
==>d_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $op <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4550	4715	
==>d_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1311	1476	
==>d_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4550	4715	
==>d_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $op <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2495	2650	
==>le) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		next;
	    }
	    
	    # normal comment
	    prin <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13475	13584	
==>b infest_syns {
    my $index = shift;

    my $p = Pod::PlainText->new(width => 1000);

    mkpath(my $syndir <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28749	28856	
==>he text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAP <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28749	28856	
==>he text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAP <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	997	1093	
==>}
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2853	2948	
==>}))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = sh <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4011	4112	
==>t( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4011	4112	
==>t( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4091	4192	
==>t( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3206	3298	
==>shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3206	3298	
==>shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $cont <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3269	3380	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty stri <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3269	3380	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2768	2851	
==>:Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2768	2851	
==>:Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2768	2851	
==>:Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2350	2460	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2350	2460	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2350	2460	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @va <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24450	24547	
==>setta is free software; you can redistribute it and/or modify it under
the terms of the GNU Genera <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24450	24547	
==>setta is free software; you can redistribute it and/or modify it under
the terms of the GNU Genera <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18807	18899	
==>nd it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furtherm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17850	17942	
==>nd it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furtherm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18807	18899	
==>nd it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furtherm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17850	17942	
==>nd it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furtherm <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12529	12620	
==>s a particular one, use the error_is() method:

  if ($parser->error_is($parser->RPe_BCURLY) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4422	4542	
==>t },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4422	4542	
==>t },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8418	8516	
==>>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8418	8516	
==>>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8418	8516	
==>>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_att <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11301	11416	
==>shift;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLA <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21427	21523	
==>)>

Adds a callback to be executed when the bot receives a corresponding message.
Event names whi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20308	20404	
==>)>

Adds a callback to be executed when the bot receives a corresponding message.
Event names whi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21427	21523	
==>)>

Adds a callback to be executed when the bot receives a corresponding message.
Event names whi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20308	20404	
==>)>

Adds a callback to be executed when the bot receives a corresponding message.
Event names whi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4047	4157	
==>aram list";
    $self->SUPER::store($index, $value);
}

sub unshift : method { 
    my $self = shift;
    (bles <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3080	3177	
==>s->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $typ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3080	3177	
==>s->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $typ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3080	3177	
==>s->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $typ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4232	4322	
==>b as_p5 { $_[0]{'p5'}->value }
sub as_pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_code <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	28	138	
==>olt in Perl weiterhin Strings:
$a = "a" x 3  # "aaa"

#=der xx Operator
# neu in Perl 6 ist der xx Operator
# s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5404	5502	
==>set($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4534	4632	
==>set($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5404	5502	
==>set($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4534	4632	
==>set($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15583	15723	
==>$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15577	15717	
==>$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15300	15399	
==>ync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15300	15399	
==>ync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15300	15399	
==>ync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4893	5002	
==>n "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4893	5002	
==>n "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4893	5002	
==>n "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1000	1104	
==>eturn unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1000	1104	
==>eturn unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8854	8968	
==>d $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8854	8968	
==>d $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8854	8968	
==>d $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17134	17230	
==>kage that would otherwise use
it.  Hereafter, if any other package or application says that it us <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17134	17230	
==>kage that would otherwise use
it.  Hereafter, if any other package or application says that it us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1099	1219	
==>k 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2") <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1102	1213	
==>k 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2") <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6387	6485	
==>of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6387	6485	
==>of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8584	8682	
==>of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pa <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8694	8810	
==>> ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7390	7492	
==>event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($cu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7390	7492	
==>event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($cu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7718	7816	
==>event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($cu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7718	7816	
==>event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($cu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1107	1207	
==>lan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output() <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1107	1207	
==>lan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output() <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1187	1287	
==>lan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output() <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14287	14381	
==>e("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(St <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14287	14381	
==>e("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(St <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1363	1539	
==>st', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1363	1539	
==>st', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5009	5145	
==>( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5009	5145	
==>( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5009	5145	
==>( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6646	6773	
==>rn $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14091	14187	
==>umentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE AL <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10318	10414	
==>umentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE AL <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14091	14187	
==>umentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE AL <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10318	10414	
==>umentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE AL <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6112	6260	
==>= $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6932	7080	
==>= $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6112	6260	
==>= $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6932	7080	
==>= $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span <==
5	/Users/nnunley/pugs/util/version_h.pl	319	432	
==>old_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	416	529	
==>E. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	416	529	
==>E. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	416	529	
==>E. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13282	13375	
==>il, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("string <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13340	13433	
==>il, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("string <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14480	14593	
==>ive_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # conc <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14480	14593	
==>ive_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # conc <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5471	5582	
==>nfo::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        pu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13521	13626	
==>ive_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # conc <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13521	13626	
==>ive_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # conc <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7639	7777	
==>content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARG <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7639	7777	
==>content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8150	8273	
==>iner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8150	8273	
==>iner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8150	8273	
==>iner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	307	410	
==>$sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ v <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	307	410	
==>$sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ v <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	307	410	
==>$sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1978	2073	
==>($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1978	2073	
==>($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($fi <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	558	724	
==>,
        ),
    ),

    '&infix:<*>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23656	23747	
==>>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22429	22520	
==>>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23656	23747	
==>>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22429	22520	
==>>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6086	6225	
==>fy this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span] <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6906	7045	
==>fy this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span] <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6086	6225	
==>fy this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span] <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6906	7045	
==>fy this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span] <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4144	4252	
==>traverse_ast( %pad<"tpParam"> ), traverse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1658	1772	
==>for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Beca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1658	1772	
==>for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Beca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1658	1772	
==>for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Beca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24354	24450	
==>ying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24354	24450	
==>ying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21702	21902	
==>lue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21702	21902	
==>lue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21702	21902	
==>lue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_-> <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6939	7042	
==>ntext" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6997	7100	
==>ntext" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4459	4585	
==>( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7936	8062	
==>( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mappi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2285	2378	
==>function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2285	2378	
==>function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2285	2378	
==>function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	157	266	
==>ub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	157	266	
==>ub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	157	266	
==>ub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	98	189	
==>-------------------------
## Mini Meta-Model with explicit EigenClasses
## ----------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	121	212	
==>--
## Mini Meta-Model with explicit EigenClasses
## ---------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6747	6850	
==>IL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6747	6850	
==>IL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6747	6850	
==>IL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8920	9017	
==>tem I<newline>

This event handles newlines in the text, it is a specialization of the 'string' ev <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8920	9017	
==>tem I<newline>

This event handles newlines in the text, it is a specialization of the 'string' ev <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4989	5108	
==>fix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change it <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4989	5108	
==>fix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1570	1676	
==>p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Nu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1570	1676	
==>p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Nu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1570	1676	
==>p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	765	890	
==>_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	765	890	
==>_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	765	890	
==>_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1575	1680	
==>ad1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = q <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1575	1680	
==>ad1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = q <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	209	324	
==>rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	213	328	
==>rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	207	322	
==>rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	265	380	
==>rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	207	322	
==>rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6637	6833	
==>re that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6637	6833	
==>re that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1407	1503	
==>sname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1407	1503	
==>sname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1407	1503	
==>sname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	244	347	
==>/head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server could <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	244	347	
==>/head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server could <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3880	3969	
==>--------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3880	3969	
==>--------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3880	3969	
==>--------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5100	5209	
==>_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5100	5209	
==>_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5100	5209	
==>_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21726	21825	
==>ing the same key code with a new user message in
one of their own resource files.  At some appropria <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21726	21825	
==>ing the same key code with a new user message in
one of their own resource files.  At some appropria <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21252	21378	
==>my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17673	17799	
==>my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	197	292	
==>nt to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	197	292	
==>nt to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	197	292	
==>nt to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13239	13339	
==>* get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13239	13339	
==>* get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13239	13339	
==>* get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3044	3143	
==>other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susc <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3044	3143	
==>other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	477	582	
==>rn map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	477	582	
==>rn map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pre <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3718	3822	
==>}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if define <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5078	5182	
==>}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6461	6559	
==>ew('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Nu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6461	6559	
==>ew('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Nu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6461	6559	
==>ew('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Nu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	168	295	
==>cs;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is c <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	168	295	
==>cs;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7957	8075	
==>} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in sur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11953	12068	
==>} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in sur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11953	12068	
==>} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in sur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9253	9404	
==>{
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9253	9404	
==>{
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) { <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	7594	7695	
==>s $index->{_dirs} or exists $index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35829	35923	
==>ombines it with the
invocant relation into a new Relation, such that all common attribute names <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40379	40473	
==>ombines it with the
invocant relation into a new Relation, such that all common attribute names <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1637	1767	
==>ture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were include <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1571	1695	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were include <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	368	481	
==>%hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	368	481	
==>%hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	368	481	
==>%hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13001	13143	
==>)
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21051	21193	
==>)
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13280	13422	
==>)
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21330	21472	
==>)
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7376	7501	
==>ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star,\n" .
                main::emit_rule( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	923	1049	
==>var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	923	1049	
==>var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	923	1049	
==>var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12301	12400	
==>o the given value, but only if no previous
value for that field is set.

The header field name ($fie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12301	12400	
==>o the given value, but only if no previous
value for that field is set.

The header field name ($fie <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4828	4968	
==>unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($toke <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4828	4968	
==>unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($toke <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5856	5980	
==>( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5856	5980	
==>( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_i <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	15296	15406	
==>he width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3732	3857	
==>b { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3732	3857	
==>b { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3732	3857	
==>b { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}} <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1248	1344	
==>mory footprint of constant size because the
algorithm is based on statistics. This was my main mo <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1248	1344	
==>mory footprint of constant size because the
algorithm is based on statistics. This was my main mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12562	12678	
==>ned variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12562	12678	
==>ned variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12562	12678	
==>ned variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packag <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11784	11898	
==>nt_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.ne <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11784	11898	
==>nt_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.ne <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5605	5707	
==>>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( St <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5605	5707	
==>>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( St <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7129	7231	
==>>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( St <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9827	9920	
==>set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9827	9920	
==>set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	378	474	
==>ed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_close <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	378	474	
==>ed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_close <==
5	/Users/nnunley/pugs/util/run-smoke.pl	862	958	
==>smokeserv-client.pl'); 

chdir($pugs_sandbox) or die "Could change directory: $!";

# '.' needs t <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1391	1486	
==>ed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_close <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1391	1486	
==>ed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_close <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6768	6869	
==>ed or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6768	6869	
==>ed or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3775	3876	
==>, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5677	5778	
==>, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2937	3029	
==>ce_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs::Compiler::Gramma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38837	38941	
==>- optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38837	38941	
==>- optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38837	38941	
==>- optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15353	15452	
==>onds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15353	15452	
==>onds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	867	977	
==>ine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	867	977	
==>ine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	867	977	
==>ine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PI <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12101	12198	
==>ect.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12101	12198	
==>ect.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	787	904	
==>NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	787	904	
==>NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	787	904	
==>NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_u <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13460	13555	
==>.

=item $h.header_field_names

Returns the list of distinct names for the fields present in the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13460	13555	
==>.

=item $h.header_field_names

Returns the list of distinct names for the fields present in the <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30381	30481	
==>ctually match.  The real closing parenthesis handler
is:

  $self->add_handler('c)' => sub {
    my ( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20366	20463	
==>DeclarationNoIn>
}
rule VariableDeclaration :words {  # see 12.2
      <Identifier> <Initialiser>? <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14582	14676	
==>spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14582	14676	
==>spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long heade <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4490	4605	
==>}
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4490	4605	
==>}
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	422	521	
==>ntaining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	422	521	
==>ntaining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	422	521	
==>ntaining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($ite <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11602	11714	
==>ental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2089	2196	
==>ental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8861	8968	
==>ental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2089	2196	
==>ental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8861	8968	
==>ental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1177	1283	
==>t just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1177	1283	
==>t just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3619	3714	
==>autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3619	3714	
==>autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3619	3714	
==>autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	753	870	
==>ve
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	753	870	
==>ve
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	753	870	
==>ve
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w w <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3475	3589	
==>0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # / <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3475	3589	
==>0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # / <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4842	5036	
==>nce last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warn <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4842	5036	
==>nce last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1126	1238	
==>ted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1126	1238	
==>ted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1126	1238	
==>ted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11309	11424	
==>sult ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11309	11424	
==>sult ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1064	1177	
==>OPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1064	1177	
==>OPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1064	1177	
==>OPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sco <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4002	4137	
==>my $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21064	21158	
==>k>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19972	20066	
==>k>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21064	21158	
==>k>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19972	20066	
==>k>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8154	8307	
==>> [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8154	8307	
==>> [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8154	8307	
==>> [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2722	2846	
==>rs only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all cha <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2906	3030	
==>rs only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12825	12933	
==>rying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12825	12933	
==>rying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12825	12933	
==>rying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2438	2539	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2438	2539	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2438	2539	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    clas <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6566	6663	
==>de and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6566	6663	
==>de and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2777	2881	
==>$.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    do <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2777	2881	
==>$.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    do <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	23	111	
==>N internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	23	111	
==>N internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	23	111	
==>N internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8279	8438	
==>'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8279	8438	
==>'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8279	8438	
==>'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10774	10872	
==>` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$tod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10832	10930	
==>` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$tod <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1095	1319	
==>ault     => $config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9945	10147	
==>s }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9945	10147	
==>s }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9945	10147	
==>s }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2452	2566	
==>urn $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my $s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1882	2004	
==>@a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @t <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1882	2004	
==>@a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26416	26508	
==>sponding projection of
each tuple), but that any duplicates following the projection have bee <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30968	31060	
==>sponding projection of
each tuple), but that any duplicates following the projection have bee <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29970	30062	
==>sponding projection of
each tuple), but that any duplicates following the projection have bee <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7785	7893	
==>ture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7773	7881	
==>ture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3628	3726	
==>{
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3628	3726	
==>{
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3628	3726	
==>{
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2193	2320	
==>n @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2193	2320	
==>n @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	777	872	
==>printf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	777	872	
==>printf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	777	872	
==>printf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::dou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4273	4382	
==>") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4273	4382	
==>") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4273	4382	
==>") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    an <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	541	643	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedTex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	541	643	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedTex <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	858	959	
==>uration::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_ancho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30585	30686	
==>->object(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4254	4352	
==>class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4254	4352	
==>class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4254	4352	
==>class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	726	878	
==>' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	726	878	
==>' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	726	878	
==>' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	165	257	
==>t 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	165	257	
==>t 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	18069	18340	
==>depth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    fore <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36529	36624	
==>s not significant to the result;
the new Relation::Example contains all the tuples of the source <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20050	20143	
==>various combinations of other data types.

While the implementation can be changed greatly (it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24602	24695	
==>various combinations of other data types.

While the implementation can be changed greatly (it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23154	23247	
==>various combinations of other data types.

While the implementation can be changed greatly (it <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9323	9455	
==>b ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $unive <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9323	9455	
==>b ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $unive <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11255	11370	
==>cond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard cas <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14732	14847	
==>cond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard cas <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14040	14155	
==>cond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard cas <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11263	11376	
==>h bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11263	11376	
==>h bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1470	1576	
==>XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1470	1576	
==>XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1470	1576	
==>XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21893	22068	
==>LAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21893	22068	
==>LAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21893	22068	
==>LAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retur <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17730	17821	
==>are and/or invoke/execute Rosetta D statements and routines
within the virtual machine, inpu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17730	17821	
==>are and/or invoke/execute Rosetta D statements and routines
within the virtual machine, inpu <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11905	12004	
==>s using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurre <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11905	12004	
==>s using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurre <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32303	32400	
==>rdless of
which is the invocant and which is the argument.  This method will fail if
C<$other> doe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36853	36950	
==>rdless of
which is the invocant and which is the argument.  This method will fail if
C<$other> doe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36143	36240	
==>rdless of
which is the invocant and which is the argument.  This method will fail if
C<$other> doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5135	5241	
==>mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join(' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5135	5241	
==>mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join(' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5135	5241	
==>mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join(' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30643	30740	
==>es but the whole module must represent a single
language.

The name of each Template module has tw <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30643	30740	
==>es but the whole module must represent a single
language.

The name of each Template module has tw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	814	928	
==>f $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	814	928	
==>f $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	814	928	
==>f $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8992	9091	
==>Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods m <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8992	9091	
==>Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3506	3934	
==>cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                retu <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3506	3934	
==>cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6293	6541	
==>cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6293	6541	
==>cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6293	6541	
==>cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            retu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13675	13817	
==>x-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3804	3934	
==>x-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3804	3934	
==>x-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3804	3934	
==>x-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4221	4319	
==>that_should_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1748	1862	
==>is or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	28	142	
==>arser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bles <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1748	1862	
==>is or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	28	142	
==>arser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	28	142	
==>arser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bles <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6651	6776	
==>losure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6651	6776	
==>losure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12731	12830	
==>_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12731	12830	
==>_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12731	12830	
==>_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10095	10231	
==>d clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.dele <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10095	10231	
==>d clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.dele <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36459	36553	
==>The sequence in which any two source relations are
combined is inconsequential.  A trivial case <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41008	41102	
==>The sequence in which any two source relations are
combined is inconsequential.  A trivial case <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40622	40716	
==>The sequence in which any two source relations are
combined is inconsequential.  A trivial case <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	1540	1648	
==>$config); 
    add_path(installsitelib     => $config); 

    $config->{perl5path} = $^X;
    $config->{pugsp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12522	12618	
==>ce to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12522	12618	
==>ce to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1343	1438	
==>_stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1343	1438	
==>_stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self. <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22148	22260	
==>len;
    if ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Colu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5517	5615	
==>ing the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, a <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5517	5615	
==>ing the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5572	5668	
==>handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would ta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5572	5668	
==>handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would ta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5572	5668	
==>handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would ta <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	151	265	
==>od BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj = <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	151	265	
==>od BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	223	322	
==>ction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	223	322	
==>ction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	223	322	
==>ction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.1 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2859	2978	
==>"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2859	2978	
==>"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17675	17768	
==>TI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17675	17768	
==>TI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17675	17768	
==>TI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	269	436	
==>ct is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	269	436	
==>ct is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	269	436	
==>ct is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:super <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1702	1801	
==>k> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1702	1801	
==>k> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see th <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3586	3706	
==>= -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3586	3706	
==>= -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11634	11741	
==>1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11634	11741	
==>1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11634	11741	
==>1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9192	9316	
==>j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9192	9316	
==>j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9192	9316	
==>j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not ma <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	849	939	
==>cut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
sp <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	849	939	
==>cut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6007	6144	
==>$status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6007	6144	
==>$status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	448	549	
==>JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	448	549	
==>JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	448	549	
==>JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without t <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3937	4033	
==>when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3937	4033	
==>when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	263	373	
==>am } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	263	373	
==>am } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	781	881	
==>is, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	781	881	
==>is, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	781	881	
==>is, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8555	8666	
==>senting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = R <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8555	8666	
==>senting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	440	540	
==>ns that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	440	540	
==>ns that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	440	540	
==>ns that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3041	3143	
==>arts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3041	3143	
==>arts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3041	3143	
==>arts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24277	24377	
==>es, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation obj <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28829	28929	
==>es, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation obj <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3325	3485	
==>nt Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3789	3949	
==>nt Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3932	4046	
==>e YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3932	4046	
==>e YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3932	4046	
==>e YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1893	2008	
==>e;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1893	2008	
==>e;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1503	1605	
==>$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1503	1605	
==>$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1503	1605	
==>$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3525	3635	
==>apping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7002	7112	
==>apping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5959	6069	
==>apping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2345	2452	
==>col;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_mess <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2345	2452	
==>col;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_mess <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	846	943	
==>fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* m <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	846	943	
==>fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	110	203	
==>-------------------------------------------
## now for some bootstrapping ....

## See http:// <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	110	203	
==>-------------------------------------------
## now for some bootstrapping ....

## See http:// <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	110	203	
==>-------------------------------------------
## now for some bootstrapping ....

## See http:// <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37792	37888	
==>itional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37792	37888	
==>itional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	509	602	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	509	602	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	509	602	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	259	362	
==>s, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	259	362	
==>s, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	259	362	
==>s, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	352	452	
==>_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	352	452	
==>_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9513	9626	
==>re is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_heigh <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9513	9626	
==>re is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_heigh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3386	3474	
==>ethod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3386	3474	
==>ethod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3386	3474	
==>ethod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('sup <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10675	10774	
==>kslashSequence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <NonTerminator>
}
rule NonTermi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19573	19667	
==>ername, or ircname. Note that thesse are I<not>
necessarily the names you specified in the cons <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18554	18648	
==>ername, or ircname. Note that thesse are I<not>
necessarily the names you specified in the cons <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19573	19667	
==>ername, or ircname. Note that thesse are I<not>
necessarily the names you specified in the cons <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18554	18648	
==>ername, or ircname. Note that thesse are I<not>
necessarily the names you specified in the cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13721	13832	
==>=> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13721	13832	
==>=> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13721	13832	
==>=> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5019	5118	
==>353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache35 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5019	5118	
==>353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache35 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6983	7149	
==>d $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            els <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6983	7149	
==>d $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30389	30503	
==>e ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30389	30503	
==>e ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30389	30503	
==>e ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $l <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5831	5944	
==>lf = shift;
	my $accum = shift;

	push @$accum, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{new <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3011	3109	
==>WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3011	3109	
==>WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3604	3700	
==>WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3604	3700	
==>WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4566	4699	
==>y_splice' => sub { # $idx_from -> $idx_to -> @replace_list -> @list
                my $self = shift;
                my $idx_from = s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1740	1863	
==>un($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CP <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1740	1863	
==>un($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CP <==
5	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1024	1130	
==>hift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29463	29564	
==>s true if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj-> <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3353	3547	
==>@args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3353	3547	
==>@args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10439	10593	
==>>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10439	10593	
==>>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10439	10593	
==>>params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $s <==
5	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	733	863	
==>Assert failed';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=head1 AUT <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8137	8257	
==>$h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        giv <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8137	8257	
==>$h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        giv <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20210	20299	
==>horization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20210	20299	
==>horization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3231	3333	
==>rrent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3231	3333	
==>rrent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3231	3333	
==>rrent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $cu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26380	26475	
==>d output, any
variable values which are references will be passed by reference, so you
may store <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26380	26475	
==>d output, any
variable values which are references will be passed by reference, so you
may store <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12331	12553	
==>,
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12331	12553	
==>,
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4866	4972	
==>ops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4866	4972	
==>ops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4866	4972	
==>ops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28732	28829	
==>example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28732	28829	
==>example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14395	14489	
==>( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14395	14489	
==>( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14395	14489	
==>( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::A <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3744	3881	
==>e =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5061	5198	
==>e =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3744	3881	
==>e =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5049	5186	
==>e =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38496	38602	
==>Class->send('add_method' => (
    # method label
        symbol->new('get_attribute_list'),
    # method bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3036	3186	
==>ne =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3036	3186	
==>ne =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3036	3186	
==>ne =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8772	8863	
==>setta::Model" package serves only as the name-sake
representative for this whole file, which <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8772	8863	
==>setta::Model" package serves only as the name-sake
representative for this whole file, which <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31012	31182	
==>>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31012	31182	
==>>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31012	31182	
==>>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14597	14730	
==>_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14597	14730	
==>_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3044	3183	
==>ub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3044	3183	
==>ub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3044	3183	
==>ub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $p <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1250	1372	
==>y $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed firs <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	810	932	
==>y $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed firs <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3361	3511	
==>ule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3608	3758	
==>ule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	467	572	
==>cial variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16390	16485	
==>nt_type = 'text/html';

The value returned will be converted to lower case, and potential
parame <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16390	16485	
==>nt_type = 'text/html';

The value returned will be converted to lower case, and potential
parame <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19275	19371	
==>runloop, which is only exited if the connection to the server
dies. To read data from the server, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18300	18396	
==>runloop, which is only exited if the connection to the server
dies. To read data from the server, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19275	19371	
==>runloop, which is only exited if the connection to the server
dies. To read data from the server, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18300	18396	
==>runloop, which is only exited if the connection to the server
dies. To read data from the server, <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25298	25418	
==>aracter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disj <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6629	6735	
==>) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6629	6735	
==>) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6999	7101	
==>) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6999	7101	
==>) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7937	8071	
==>{
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7937	8071	
==>{
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7937	8071	
==>{
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3325	3422	
==>s. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGH <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3325	3422	
==>s. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGH <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	216	372	
==>ur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	216	372	
==>ur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7175	7284	
==>y) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7175	7284	
==>y) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7175	7284	
==>y) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3379	3471	
==>self, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4061	4153	
==>self, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18048	18193	
==>,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	5	119	
==>ction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	5	119	
==>ction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	5	119	
==>ction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_ <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	647	750	
==>ookies{$_} ~ "; expires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesAdd( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	23180	23298	
==>=> fun(
		param => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			the <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	435	534	
==>$b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<qu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	435	534	
==>$b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<qu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6505	6596	
==>. $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11563	11654	
==>. $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar') <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10980	11145	
==>hase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10980	11145	
==>hase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3206	3313	
==>|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$huma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3206	3313	
==>|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$huma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3206	3313	
==>|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$huma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21713	21807	
==>y($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::sp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21713	21807	
==>y($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::sp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21713	21807	
==>y($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::sp <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3040	3131	
==>d($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {5 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3040	3131	
==>d($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	668	770	
==>'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	668	770	
==>'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	668	770	
==>'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11414	11509	
==>ted you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, S <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11472	11567	
==>ted you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20179	20275	
==>amp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19138	19234	
==>amp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20179	20275	
==>amp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19138	19234	
==>amp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of t <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6676	6767	
==>spike_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	870	995	
==>size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!membe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	870	995	
==>size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!membe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37968	38086	
==>lar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37968	38086	
==>lar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37968	38086	
==>lar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	231	341	
==>gs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	231	341	
==>gs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	231	341	
==>gs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3249	3348	
==>C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3249	3348	
==>C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9941	10082	
==>> sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9941	10082	
==>> sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9941	10082	
==>> sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2110	2204	
==>t.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2199	2293	
==>t.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gramma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2080	2223	
==>tent?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2080	2223	
==>tent?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!con <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29478	29574	
==>trs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34030	34126	
==>trs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33194	33290	
==>trs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1464	1594	
==>testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1806	1932	
==>testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1413	1539	
==>testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1806	1932	
==>testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10020	10118	
==>er );
}

multi method exclusion (Relation::Example *@others) returns Relation::Example {

    for @ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3948	4042	
==>ng children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3948	4042	
==>ng children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3855	3944	
==>---------------------------------
## Package

## See http://article.gmane.org/gmane.comp.l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3855	3944	
==>---------------------------------
## Package

## See http://article.gmane.org/gmane.comp.l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3855	3944	
==>---------------------------------
## Package

## See http://article.gmane.org/gmane.comp.l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3956	4107	
==>arse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognized token '",sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12294	12412	
==>ie \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8570	8688	
==>ie \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9405	9523	
==>ie \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2374	2470	
==>t does it's best to work with those limitations and 
still produce a working version of File::Spe <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2374	2470	
==>t does it's best to work with those limitations and 
still produce a working version of File::Spe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6360	6480	
==>x( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6360	6480	
==>x( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18433	18529	
==>$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18433	18529	
==>$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18433	18529	
==>$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4974	5179	
==>ves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4974	5179	
==>ves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12791	12903	
==>f the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12791	12903	
==>f the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12791	12903	
==>f the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq ' <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	572	817	
==>);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1189	1288	
==>needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringificat <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1189	1288	
==>needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringificat <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1189	1288	
==>needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringificat <==
5	/Users/nnunley/pugs/util/package-osx.pl	2810	2890	
==>Users/dromano/dev/pugs/src/pge/run_pge.pir /System/Library/Perl6/darwin-thread-mu <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	294	434	
==>unt, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _t <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	294	434	
==>unt, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3811	3905	
==>tem B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3811	3905	
==>tem B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3891	3985	
==>tem B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8176	8283	
==>turns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toenco <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8176	8283	
==>turns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toenco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5696	5798	
==>rn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5696	5798	
==>rn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5696	5798	
==>rn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($meth <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5122	5221	
==>ecurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5122	5221	
==>ecurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6377	6474	
==>erloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6377	6474	
==>erloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6377	6474	
==>erloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11244	11360	
==>our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11244	11360	
==>our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10489	10597	
==>our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10489	10597	
==>our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1071	1170	
==>a core type";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub subtra <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2982	3196	
==>Criterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterio <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1951	2116	
==>new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, allow => DIR_EXISTS, s <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2107	2229	
==>t everywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class::E <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1815	1928	
==>in;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate dir <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1815	1928	
==>in;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate dir <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	367	467	
==>ment, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	367	467	
==>ment, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4900	4996	
==>blic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4900	4996	
==>blic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7097	7193	
==>blic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7756	7898	
==>thod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8703	8845	
==>thod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9662	9804	
==>thod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10606	10701	
==>ead2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Arra <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10606	10701	
==>ead2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Arra <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10281	10438	
==>$_->package ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $tes <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24695	24790	
==>ead2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23459	23554	
==>ead2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24695	24790	
==>ead2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23459	23554	
==>ead2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12980	13094	
==>%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12980	13094	
==>%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6364	6462	
==>s the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6364	6462	
==>s the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8561	8659	
==>s the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<T <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3490	3605	
==>u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis o <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3490	3605	
==>u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2138	2241	
==>== String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2138	2241	
==>== String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2138	2241	
==>== String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4723	4822	
==>%cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we current <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4723	4822	
==>%cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we current <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2126	2222	
==>y JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2126	2222	
==>y JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2126	2222	
==>y JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	86	223	
==>Escape ();
use Term::ReadKey;

{
    package Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUTO <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6671	6818	
==>ns[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            unde <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6671	6818	
==>ns[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1578	1679	
==>)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1578	1679	
==>)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1578	1679	
==>)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $me <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4984	5113	
==>iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        ret <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4984	5113	
==>iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11028	11111	
==>---------------------------------------------------------------------

What if Roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11028	11111	
==>---------------------------------------------------------------------

What if Roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11028	11111	
==>---------------------------------------------------------------------

What if Roles <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15549	15668	
==>});

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10405	10524	
==>});

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29956	30049	
==>zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34508	34601	
==>zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33672	33765	
==>zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17764	17882	
==>elf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17764	17882	
==>elf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17764	17882	
==>elf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=po <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1695	1794	
==>oot returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

me <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1695	1794	
==>oot returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1409	1582	
==>l::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1409	1582	
==>l::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	609	760	
==>{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	609	760	
==>{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	609	760	
==>{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	871	993	
==>g.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	884	1001	
==>g.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	189	289	
==>d Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	189	289	
==>d Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	189	289	
==>d Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23016	23198	
==>i-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23016	23198	
==>i-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23016	23198	
==>i-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scala <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4191	4287	
==>"last", in which case the
object returned represents the last day for the specified month.

- `to <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4191	4287	
==>"last", in which case the
object returned represents the last day for the specified month.

- `to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12307	12406	
==>t(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12307	12406	
==>t(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12307	12406	
==>t(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	101	197	
==>Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Fu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	101	197	
==>Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Fu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4276	4396	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4469	4589	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6997	7095	
==>rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6997	7095	
==>rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6997	7095	
==>rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10356	10475	
==>elf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10356	10475	
==>elf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10356	10475	
==>elf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $se <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4998	5110	
==>NIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to ou <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4998	5110	
==>NIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to ou <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19304	19453	
==>d label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39756	39905	
==>d label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6649	6756	
==>_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6649	6756	
==>_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6649	6756	
==>_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magica <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12959	13067	
==>efined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12959	13067	
==>efined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12959	13067	
==>efined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and a <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	141	261	
==>%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape ( <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	141	261	
==>%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13322	13441	
==>= $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13322	13441	
==>= $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13322	13441	
==>= $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cla <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	651	772	
==>pe() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	651	772	
==>pe() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	342	436	
==>2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	342	436	
==>2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	342	436	
==>2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1618	1748	
==>ly = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1618	1748	
==>ly = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	797	894	
==>my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	797	894	
==>my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	877	974	
==>my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6850	6995	
==>is with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = can <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6850	6995	
==>is with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = can <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30386	30479	
==>ay not resemble those of the original. 
The anonymous function in the argument C<$transformer> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34938	35030	
==>ay not resemble those of the original.
The anonymous function in the argument C<$transformer> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34120	34212	
==>ay not resemble those of the original.
The anonymous function in the argument C<$transformer> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4286	4394	
==>he nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4286	4394	
==>he nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4797	4903	
==>he nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4797	4903	
==>he nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14680	14773	
==>isk_size=$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
GRU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$sel <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2649	2751	
==>CHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pu <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2649	2751	
==>CHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4040	4180	
==><?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Compiler::Regex- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27077	27179	
==>> 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_CO <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27077	27179	
==>> 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_CO <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15824	15918	
==>ublic would.

Alternately, sometimes a program will raise a condition or error that,
while rese <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15824	15918	
==>ublic would.

Alternately, sometimes a program will raise a condition or error that,
while rese <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15790	15898	
==>rror(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10646	10754	
==>rror(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	15	113	
==>y ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	15	113	
==>y ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	15	113	
==>y ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that w <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3331	3437	
==>not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "So <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6808	6914	
==>not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "So <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5765	5871	
==>not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "So <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7609	7704	
==>d and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7609	7704	
==>d and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementat <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1407	1504	
==>have to be insane to use this for anything more than obscuring text from 
accidental viewing.  (ro <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1407	1504	
==>have to be insane to use this for anything more than obscuring text from 
accidental viewing.  (ro <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27612	27707	
==>riginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32164	32259	
==>riginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31256	31351	
==>riginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	453	556	
==>ccepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	998	1101	
==>ccepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	453	556	
==>ccepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	998	1101	
==>ccepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	998	1101	
==>ccepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4870	5027	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4870	5027	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4870	5027	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3004	3119	
==>description');
            return $ok;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Pass' => class <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	195	300	
==>mprove me!
#
# TODO:
# 1. Modularize this.
# 2. Get to work concurrently with 'make test'
# 3. 'make smoke <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2266	2401	
==>tring of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2266	2401	
==>tring of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	731	832	
==>TCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	731	832	
==>TCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	731	832	
==>TCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14002	14143	
==>e/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14002	14143	
==>e/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14002	14143	
==>e/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4177	4309	
==>ture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4049	4178	
==>ture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8010	8144	
==>) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (S <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8010	8144	
==>) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3053	3165	
==>.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3053	3165	
==>.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3053	3165	
==>.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does no <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4008	4134	
==>);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4008	4134	
==>);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2625	2722	
==>"prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2625	2722	
==>"prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2625	2722	
==>"prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7400	7533	
==>[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9377	9510	
==>[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7388	7521	
==>[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9365	9498	
==>[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2255	2378	
==>my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2778	2931	
==>Plan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	531	666	
==>Plan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	531	666	
==>Plan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31188	31289	
==>o be set:

=over 4

=item branch

Whether this object has branches (like C<|>).

=item family

The gen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23776	23869	
==>use accessor
methods.  Relation::Example does not declare any subroutines or export such.

The <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17005	17113	
==>{pkg}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3373	3480	
==>$_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3373	3480	
==>$_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3373	3480	
==>$_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")" <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1722	1826	
==>nuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashscreen.txt";
my $lib6         = "../.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6074	6178	
==>fy($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6074	6178	
==>fy($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6074	6178	
==>fy($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resul <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	164	259	
==>Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher(" <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	164	259	
==>Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	431	523	
==>nc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	431	523	
==>nc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	431	523	
==>nc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versio <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25212	25303	
==>ther free software
components, as defined by the Free Software Foundation at
L<http://www.gn <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25212	25303	
==>ther free software
components, as defined by the Free Software Foundation at
L<http://www.gn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	250	357	
==>use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	250	357	
==>use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	250	357	
==>use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die " <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2277	2374	
==>» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Se <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2277	2374	
==>» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	239	336	
==>rminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	239	336	
==>rminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	239	336	
==>rminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10740	10870	
==>eturns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10740	10870	
==>eturns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7008	7111	
==>rn $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $self->add_handle <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26226	26325	
==>rs of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holde <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26226	26325	
==>rs of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8015	8137	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8015	8137	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8015	8137	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17541	17637	
==>y dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mod <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17541	17637	
==>y dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mod <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	423	546	
==>d not read $Metafile";

    my $path    = $struct->{package};
    
    ### create a buildroot
    my $builddir    = $Build_p <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4121	4229	
==>.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, " <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4179	4287	
==>.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21810	21904	
==>nce, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21810	21904	
==>nce, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12399	12510	
==>ngs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12399	12510	
==>ngs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12399	12510	
==>ngs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18217	18715	
==>ng(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15675	15793	
==>my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2072	2190	
==>my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	160	266	
==>y $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	160	266	
==>y $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	478	596	
==>y $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pmc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	218	330	
==>{
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	218	330	
==>{
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	218	330	
==>{
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Ge <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	412	515	
==>,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array]* of Str

sub parse (@start, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2526	2641	
==>aram->to_str->to_native =~ /^\?/) {
            (blessed($arg) && $arg->isa($param_type))
                || confess <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2457	2555	
==>substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2457	2555	
==>substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2457	2555	
==>substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2788	2924	
==>t ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bo <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2788	2924	
==>t ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2195	2295	
==>->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2195	2295	
==>->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2195	2295	
==>->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool") <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1375	1466	
==>rt_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1375	1466	
==>rt_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	32	131	
==>se strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	32	131	
==>se strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	32	131	
==>se strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2324	2420	
==>ching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2541	2637	
==>ching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5193	5343	
==>=> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5193	5343	
==>=> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5193	5343	
==>=> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17320	17426	
==>e span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17320	17426	
==>e span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1600	1735	
==>ng_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'litera <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1611	1746	
==>ng_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'litera <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1730	1842	
==>nt.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1730	1842	
==>nt.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1730	1842	
==>nt.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2606	2712	
==>$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2606	2712	
==>$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2606	2712	
==>$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pS <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1764	1859	
==>ntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=hea <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1764	1859	
==>ntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32897	33041	
==>$ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32897	33041	
==>$ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32897	33041	
==>$ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	442	534	
==>e keeps the C<source> property, and adds nothing else.

More specialised processing instructi <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	442	534	
==>e keeps the C<source> property, and adds nothing else.

More specialised processing instructi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	795	898	
==>} elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	795	898	
==>} elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	795	898	
==>} elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12389	12481	
==>ugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities> <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12389	12481	
==>ugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	587	697	
==>b array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	587	697	
==>b array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	589	688	
==>pe => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	589	688	
==>pe => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	589	688	
==>pe => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3652	3814	
==>lot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3652	3814	
==>lot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3652	3814	
==>lot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5972	6064	
==>force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5660	5752	
==>force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3227	3329	
==>lock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3227	3329	
==>lock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3227	3329	
==>lock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    / <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	931	1032	
==>test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub  Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1920	2018	
==>->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass (@{$class->su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36794	36885	
==>inary relational operator that is like
C<union> except that the returned Relation::Example c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37294	37385	
==>inary relational operator that is like
C<union> except that the returned Relation::Example c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	62	147	
==>l::Psyche;

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	62	147	
==>l::Psyche;

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	62	147	
==>l::Psyche;

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2892	2994	
==>ompiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2892	2994	
==>ompiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25412	25506	
==>r Rosetta and the licenses
of the other components concerned, provided that you include the sou <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25412	25506	
==>r Rosetta and the licenses
of the other components concerned, provided that you include the sou <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1992	2090	
==>= md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The submitted smoke was already su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17110	17256	
==>bel, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17110	17256	
==>bel, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17110	17256	
==>bel, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	818	935	
==>) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	818	935	
==>) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3441	3565	
==>lue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3441	3565	
==>lue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3441	3565	
==>lue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $sel <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7911	7999	
==>uth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_aut <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7911	7999	
==>uth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_aut <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1500	1612	
==>CT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{A <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1500	1612	
==>CT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14763	14871	
==>,
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinterac <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14763	14871	
==>,
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinterac <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14763	14871	
==>,
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinterac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16934	17056	
==>{ $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16934	17056	
==>{ $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16934	17056	
==>{ $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6073	6191	
==>.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficie <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6073	6191	
==>.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficie <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7837	7934	
==>ethod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7837	7934	
==>ethod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16403	16491	
==>tever annotation went with this attribute when it's declared"
$::Class->add_method('find_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16403	16491	
==>tever annotation went with this attribute when it's declared"
$::Class->add_method('find_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16403	16491	
==>tever annotation went with this attribute when it's declared"
$::Class->add_method('find_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2709	2844	
==>y;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2709	2844	
==>y;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2709	2844	
==>y;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HAS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16235	16340	
==>owing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16235	16340	
==>owing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	593	701	
==>returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	593	701	
==>returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11817	11904	
==>TI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11817	11904	
==>TI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11817	11904	
==>TI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4852	4965	
==>uch.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { lo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4852	4965	
==>uch.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12138	12242	
==>nt class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12138	12242	
==>nt class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12138	12242	
==>nt class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25883	26103	
==>( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25883	26103	
==>( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25883	26103	
==>( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5834	5925	
==>iny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5834	5925	
==>iny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repo <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	701	824	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./ass <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	701	824	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./ass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1441	1547	
==>OLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1441	1547	
==>OLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1441	1547	
==>OLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17625	17721	
==>ctive Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
comp <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17625	17721	
==>ctive Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4971	5088	
==>bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level v <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4971	5088	
==>bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level v <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4971	5088	
==>bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level v <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	969	1083	
==>opy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $str <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	969	1083	
==>opy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $str <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	226	325	
==>ode) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq( <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	226	325	
==>ode) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4404	4496	
==>dd_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4404	4496	
==>dd_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4404	4496	
==>dd_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$sub <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19529	19624	
==>hat an update is planned for Locale::KeyedText that will enable
user text to be stored in non-Pe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19529	19624	
==>hat an update is planned for Locale::KeyedText that will enable
user text to be stored in non-Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4481	4572	
==>from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change manglin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4481	4572	
==>from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change manglin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4481	4572	
==>from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change manglin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11036	11131	
==>ile/Filter some source code into something else. This is almost
# always overridden in a subclas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11036	11131	
==>ile/Filter some source code into something else. This is almost
# always overridden in a subclas <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37279	37373	
==>enerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41828	41922	
==>enerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41451	41545	
==>enerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rela <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9054	9158	
==>essary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\" <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6201	6300	
==>essary duplication
	my $self = shift;
	$self->{instance}->splat(@_);
}

sub left {
	my $self = shift <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31505	31599	
==>ll of the same attributes as the original.  Trivial cases are
where C<$predicate> simply return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36055	36149	
==>ll of the same attributes as the original.  Trivial cases are
where C<$predicate> simply return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35282	35376	
==>ll of the same attributes as the original.  Trivial cases are
where C<$predicate> simply return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7980	8081	
==>ill validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fn <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7980	8081	
==>ill validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	512	611	
==>...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the orig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	512	611	
==>...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the orig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	512	611	
==>...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the orig <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	747	890	
==>(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	747	890	
==>(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	747	890	
==>(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5561	5660	
==>, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0 <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5619	5718	
==>, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5923	6311	
==>w 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7685	8073	
==>w 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	30856	30953	
==>ch for many years, and then
Michael G Schwern.

Current maintainer is Andy Lester C<< <andy at pet <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	11950	12044	
==>tput_dir, "Synopsis", "$linkfile.html");
      $output .= "<a href='". abs2rel($syn_path, dirna <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13102	13191	
==>pertyName> <':'> <AssignmentExpression>
    | <PropertyNameAndValueList> <','> <PropertyNa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15126	15240	
==>rs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18603	18717	
==>rs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18019	18133	
==>rs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2979	3079	
==>tor, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2979	3079	
==>tor, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8329	8461	
==>urn split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8329	8461	
==>urn split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12056	12171	
==>CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Priv <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12056	12171	
==>CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Priv <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12056	12171	
==>CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Priv <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1286	1441	
==>$key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1286	1441	
==>$key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1020	1122	
==>method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1020	1122	
==>method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1020	1122	
==>method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added c <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1264	1455	
==>events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('he <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1264	1455	
==>events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	971	1070	
==>metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	971	1070	
==>metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	971	1070	
==>metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8981	9100	
==>t->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8981	9100	
==>t->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8981	9100	
==>t->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fro <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1572	1675	
==>=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.searc <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1572	1675	
==>=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.searc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13435	13557	
==>o &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13435	13557	
==>o &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13435	13557	
==>o &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRA <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12033	12125	
==>ncode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12033	12125	
==>ncode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1491	1585	
==>$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1491	1585	
==>$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27525	27614	
==>efinitions for F<Regexp::Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	548	663	
==>urce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	548	663	
==>urce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1261	1355	
==>Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1261	1355	
==>Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1261	1355	
==>Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7113	7242	
==>mpty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7113	7242	
==>mpty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10553	10664	
==>'$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$met <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10553	10664	
==>'$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$met <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10553	10664	
==>'$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13667	13798	
==>ze + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necess <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13667	13798	
==>ze + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necess <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13667	13798	
==>ze + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necess <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5913	6044	
==>ze + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necess <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4413	4544	
==>ze + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necess <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6135	6261	
==>[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6135	6261	
==>[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3896	3992	
==>nals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3896	3992	
==>nals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3896	3992	
==>nals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if de <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1286	1407	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3582	3703	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1286	1407	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3582	3703	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	438	565	
==>gex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	535	662	
==>gex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10152	10278	
==>rt = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10152	10278	
==>rt = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10152	10278	
==>rt = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1796	1931	
==>ing classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, \%hash ) 
                        or error <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	2021	2136	
==>L test run
     util/run-smome.pl     - automate the smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# In <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1289	1389	
==>line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagno <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1289	1389	
==>line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagno <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1369	1469	
==>line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagno <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1909	1999	
==>t are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1872	1962	
==>t are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1909	1999	
==>t are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1872	1962	
==>t are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12960	13043	
==>ets("[","]").
brackets("<",">"). brackets(">","<").
brackets("/","/"). brackets("!", <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13326	13458	
==>" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9512	9644	
==>" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10348	10480	
==>" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1327	1442	
==>ck => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1327	1442	
==>ck => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.pa <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	489	737	
==>{
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %o <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	489	737	
==>{
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9731	9868	
==>> "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9731	9868	
==>> "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9731	9868	
==>> "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLAS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20618	20735	
==>lue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20618	20735	
==>lue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20618	20735	
==>lue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__E <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	377	472	
==>junction;

# for running the test suite multiple times in the same process
$Test::testing_starte <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	435	530	
==>junction;

# for running the test suite multiple times in the same process
$Test::testing_starte <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20367	20463	
==>ocket to the server is currently connected.

Note that you might want to use the C<logged_in> met <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19315	19411	
==>ocket to the server is currently connected.

Note that you might want to use the C<logged_in> met <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20367	20463	
==>ocket to the server is currently connected.

Note that you might want to use the C<logged_in> met <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19315	19411	
==>ocket to the server is currently connected.

Note that you might want to use the C<logged_in> met <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13102	13196	
==>ver

=item Unary Form

Implementations should create a suitable macro, or otherwise support the <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1001	1107	
==>one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1001	1107	
==>one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6051	6152	
==>ttr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6051	6152	
==>ttr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6051	6152	
==>ttr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaqu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2714	2866	
==>turn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2714	2866	
==>turn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2714	2866	
==>turn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2580	2674	
==>other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2580	2674	
==>other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.mem <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11278	11398	
==>-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14755	14875	
==>-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14063	14183	
==>-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retur <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3904	4019	
==>hr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9A <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3904	4019	
==>hr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9A <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	485	585	
==>,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all tho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1279	1374	
==>:Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1279	1374	
==>:Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1279	1374	
==>:Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
} <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	25	116	
==>om src/Pugs/AST/Internals.hs, line starting `data VJunc'

has Perl::JuncType $.juncType;

ha <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1811	1921	
==>they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    return unless $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1738	1844	
==>they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    return unless $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1352	1449	
==>mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1352	1449	
==>mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1352	1449	
==>mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classnam <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7333	7546	
==>= $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$na <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7333	7546	
==>= $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$na <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10689	10789	
==>fined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10689	10789	
==>fined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10689	10789	
==>fined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3884	4017	
==>ode this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3884	4017	
==>ode this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	622	745	
==>n { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	638	761	
==>n { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	614	737	
==>n { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1363	1480	
==>files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	701	817	
==>files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6612	6724	
==>False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6612	6724	
==>False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6612	6724	
==>False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5724	5839	
==>$ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5724	5839	
==>$ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6314	6429	
==>$ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
u <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2694	2791	
==>tomagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for no <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2694	2791	
==>tomagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for no <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7675	7786	
==>e {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = shi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12273	12368	
==>child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defau <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12273	12368	
==>child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defau <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	805	897	
==>y $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description ) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	805	897	
==>y $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description ) <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	313	429	
==>edding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	313	429	
==>edding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	161	272	
==>Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	161	272	
==>Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	161	272	
==>Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5089	5200	
==>) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string
su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5311	5422	
==>) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string
su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11984	12077	
==>x) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11984	12077	
==>x) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11984	12077	
==>x) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_u <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3133	3259	
==>t {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3133	3259	
==>t {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1149	1258	
==>ttrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1149	1258	
==>ttrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1149	1258	
==>ttrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3559	3674	
==>s of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7036	7151	
==>s of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5993	6108	
==>s of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5890	6000	
==>ate on strings (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the ru <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5686	5792	
==>ate on strings (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2920	3029	
==>cal $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2920	3029	
==>cal $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2920	3029	
==>cal $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4335	4414	
==>)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4) <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4335	4414	
==>)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13231	13347	
==>_preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13231	13347	
==>_preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4062	4226	
==>\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5383	5547	
==>\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4062	4226	
==>\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5371	5535	
==>\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        e <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	582	678	
==>uncs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7827	7976	
==>' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine tha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7827	7976	
==>' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4608	4722	
==>>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4608	4722	
==>>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4608	4722	
==>>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8922	9092	
==>son (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       ) <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8922	9092	
==>son (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5616	5746	
==>new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5616	5746	
==>new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5616	5746	
==>new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3080	3232	
==>(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tai <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2962	3105	
==>(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tai <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32047	32142	
==>his object (for flag assertions
and C<(?:...)>).

=item omit

Whether this object is omitted fro <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24949	25043	
==>, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, wh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24949	25043	
==>, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, wh <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	846	946	
==>ber of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specifie <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	846	946	
==>ber of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specifie <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	804	901	
==>t      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expec <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	804	901	
==>t      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	884	981	
==>t      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expec <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	243	351	
==>et is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is n <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	243	351	
==>et is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2389	2488	
==>& $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2389	2488	
==>& $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2389	2488	
==>& $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8922	9078	
==>\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8922	9078	
==>\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5979	6094	
==>@rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'esc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6172	6287	
==>@rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'esc <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22499	22605	
==>apture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3243	3348	
==>al(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3243	3348	
==>al(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3243	3348	
==>al(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $! <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6843	6938	
==>ese events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element (' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6843	6938	
==>ese events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element (' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14525	14722	
==>for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14804	15001	
==>for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ru <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13584	13746	
==>\"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$cod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9768	9930	
==>\"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10604	10766	
==>\"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11687	11784	
==>nce they
are just instances of Class which does Role too. So this means that all classes
and roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11687	11784	
==>nce they
are just instances of Class which does Role too. So this means that all classes
and roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11687	11784	
==>nce they
are just instances of Class which does Role too. So this means that all classes
and roles <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21654	21748	
==>heir names, and all
Relation tuples may be individually addressed only by their values; neither <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26206	26300	
==>heir names, and all
Relation tuples may be individually addressed only by their values; neither <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6766	6867	
==>pted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any da <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6766	6867	
==>pted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any da <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4078	4166	
==>sh();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4078	4166	
==>sh();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4078	4166	
==>sh();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4297	4382	
==>NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4297	4382	
==>NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4297	4382	
==>NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5404	5531	
==>om_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5404	5531	
==>om_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5404	5531	
==>om_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	564	812	
==>ven version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	564	812	
==>ven version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	739	845	
==>t)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	739	845	
==>t)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	739	845	
==>t)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2545	2643	
==>ream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can co <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2545	2643	
==>ream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38843	38938	
==>renDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43657	43752	
==>renDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43191	43286	
==>renDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relat <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2044	2166	
==>(%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 m <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	885	1007	
==>(%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5469	5574	
==>tNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5469	5574	
==>tNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5469	5574	
==>tNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4828	5024	
==>(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4678	4868	
==>(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	173	271	
==>.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value onl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	173	271	
==>.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value onl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	173	271	
==>.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value onl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8997	9087	
==>->singleton_test_on_object } '... instance calling metaclass singleton method fails';

is($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11446	11536	
==>->singleton_test_on_object } '... instance calling metaclass singleton method fails';

is($ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7073	7208	
==>lue =   %pad<"pSubLValue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	479	584	
==>orithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  pr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	483	588	
==>orithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  pr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	479	584	
==>orithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  pr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	483	588	
==>orithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  pr <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6250	6346	
==>o a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $siblin <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6250	6346	
==>o a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $siblin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1707	1860	
==>::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return valu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1707	1860	
==>::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return valu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23475	23567	
==>are immutable rather than mutable, this property and/or
same-named accessor method can be use <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28027	28119	
==>are immutable rather than mutable, this property and/or
same-named accessor method can be use <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26831	26923	
==>are immutable rather than mutable, this property and/or
same-named accessor method can be use <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	726	853	
==>tch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	726	853	
==>tch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	726	853	
==>tch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thro <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6457	6550	
==>start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represe <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6457	6550	
==>start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represe <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	525	644	
==>d #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year($year), :mont <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11744	11845	
==>ves the given items if they are already in the set, or inserts the items if
they're not in the set.

R <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8891	8992	
==>ves the given items if they are already in the set, or inserts the items if
they're not in the set.

R <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11744	11845	
==>ves the given items if they are already in the set, or inserts the items if
they're not in the set.

R <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8891	8992	
==>ves the given items if they are already in the set, or inserts the items if
they're not in the set.

R <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	749	858	
==>s a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero att <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4227	4336	
==>s a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero att <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3324	3412	
==>= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$const <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3324	3412	
==>= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$const <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16092	16196	
==>source was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16092	16196	
==>source was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3739	3837	
==>ption of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descr <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3739	3837	
==>ption of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3819	3917	
==>ption of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5655	5787	
==>required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5655	5787	
==>required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5655	5787	
==>required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1034	1132	
==>ce: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1034	1132	
==>ce: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34156	34278	
==>:Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34156	34278	
==>:Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34156	34278	
==>:Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9025	9124	
==>try

the only overhead is a SVMG (i.e. bless())

you can return the same failure object always

then <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8728	8824	
==>try
the only overhead is a SVMG (i.e. bless())
you can return the same failure object always
then <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7578	7714	
==>mit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18814	18906	
==>l drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17857	17949	
==>l drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18814	18906	
==>l drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17857	17949	
==>l drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5178	5301	
==>:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree[0] eq ' <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1351	1470	
==>------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.ind <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3647	3766	
==>------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.ind <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1351	1470	
==>------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.ind <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3647	3766	
==>------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.ind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9851	10001	
==>my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9851	10001	
==>my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9851	10001	
==>my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5111	5208	
==>inishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5111	5208	
==>inishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7377	7494	
==>ERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif ( <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7377	7494	
==>ERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3292	3388	
==>args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3292	3388	
==>args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3292	3388	
==>args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{P <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	443	541	
==>the base native nil type

=head1 METHODS

=over 4

=item B<new (*native*) returns nil>

=item B<to_ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6430	6527	
==>odifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5503	5600	
==>odifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_e <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6430	6527	
==>odifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_e <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5503	5600	
==>odifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5678	5822	
==>fined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5678	5822	
==>fined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!p <==
5	/Users/nnunley/pugs/util/importgraph.pl	2612	2723	
==>efined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = each %{$module->[0]}) {
    n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1344	1453	
==>ammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1344	1453	
==>ammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32199	32296	
==>any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sam <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36749	36846	
==>any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sam <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36039	36136	
==>any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sam <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1345	1439	
==>e table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various ta <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1345	1439	
==>e table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various ta <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9136	9247	
==>set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9136	9247	
==>set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5439	5542	
==>es = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5439	5542	
==>es = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5439	5542	
==>es = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1200	1361	
==>/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1200	1361	
==>/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1778	1890	
==>{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1778	1890	
==>{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1778	1890	
==>{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	253	352	
==>t(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1781	1880	
==>t(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	457	572	
==>nvocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	457	572	
==>nvocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	457	572	
==>nvocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6133	6230	
==>ndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6133	6230	
==>ndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	556	982	
==>40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	556	982	
==>40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	98	197	
==>se 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::R <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	66	165	
==>se 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::R <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	98	197	
==>se 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1893	1993	
==>() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1893	1993	
==>() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1893	1993	
==>() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	536	628	
==>Bot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	536	628	
==>Bot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7149	7307	
==>nt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7149	7307	
==>nt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7149	7307	
==>nt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8602	8723	
==>>[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8602	8723	
==>>[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	541	796	
==>key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	541	796	
==>key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14030	14132	
==>om_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14030	14132	
==>om_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14030	14132	
==>om_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($x <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4101	4290	
==>::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4101	4290	
==>::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3159	3292	
==>) { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $conte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3159	3292	
==>) { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $conte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3159	3292	
==>) { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $conte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15241	15349	
==>>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15241	15349	
==>>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15241	15349	
==>>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13475	13567	
==>n.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13475	13567	
==>n.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corr <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3606	3786	
==>.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fo <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3606	3786	
==>.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39881	39988	
==>return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39881	39988	
==>return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39881	39988	
==>return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9906	10029	
==>"splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9906	10029	
==>"splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9906	10029	
==>"splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2360	2480	
==>',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2360	2480	
==>',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5526	5650	
==>the existing content of the index
        push @$index_content, $meta;
        
        ### XXX do delayed writes, as an expl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2562	2680	
==>self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2562	2680	
==>self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2562	2680	
==>self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      re <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22399	22484	
==>!.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insensitive_char_eq(C,X), !.
c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6301	6447	
==>t to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6301	6447	
==>t to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6301	6447	
==>t to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4092	4205	
==>rl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::imme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4941	5054	
==>rl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::imme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6207	6311	
==>ar_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_inst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6207	6311	
==>ar_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_inst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6207	6311	
==>ar_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_inst <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21834	21928	
==>, usually in the
main program, Locale::KeyedText can be given input that says what resource
fil <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21834	21928	
==>, usually in the
main program, Locale::KeyedText can be given input that says what resource
fil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34361	34457	
==>bject.
The Set Names property of the new object is set from the named parameter
@set_names (an ar <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34361	34457	
==>bject.
The Set Names property of the new object is set from the named parameter
@set_names (an ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3397	3484	
==>=> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3397	3484	
==>=> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3397	3484	
==>=> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2861	2969	
==>contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defau <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2861	2969	
==>contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defau <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2861	2969	
==>contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defau <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18628	18735	
==>web page
     contains the link that the user followed to the current
     page.  Most browsers pass this in <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18628	18735	
==>web page
     contains the link that the user followed to the current
     page.  Most browsers pass this in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7817	7948	
==>t( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "< <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7817	7948	
==>t( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2280	2397	
==>ry subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2280	2397	
==>ry subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2280	2397	
==>ry subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	198	297	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	198	297	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	198	297	
==>, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21224	21321	
==>ion class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25776	25873	
==>ion class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute na <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7175	7273	
==>f this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Arra <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7175	7273	
==>f this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2658	2754	
==>NV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2658	2754	
==>NV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2658	2754	
==>NV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6476	6613	
==>,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6476	6613	
==>,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6476	6613	
==>,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$str <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12963	13138	
==>" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21013	21188	
==>" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13242	13417	
==>" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21292	21467	
==>" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	17594	17758	
==>->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10034	10179	
==>_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10034	10179	
==>_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10034	10179	
==>_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22012	22104	
==>a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", targ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22012	22104	
==>a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", targ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1061	1173	
==>sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placehold <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1061	1173	
==>sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placehold <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14731	14833	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14731	14833	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14731	14833	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $at <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1987	2135	
==>ir(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1987	2135	
==>ir(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1987	2135	
==>ir(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.ge <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9044	9171	
==>my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $p <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10521	10648	
==>my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10445	10545	
==>ter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10445	10545	
==>ter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4553	4649	
==>acro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4553	4649	
==>acro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4553	4649	
==>acro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15660	15798	
==>hod_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15660	15798	
==>hod_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15660	15798	
==>hod_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2369	2466	
==>elf->_stages) {
	my $result = $self->{$stage};
	next if !defined $result;
	my $warn = $result->war <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9573	9657	
==>ape_sequence(R).
p5_charset_item(setrange(A,B)) --> p5_charset_item(char(A)), "-", p5 <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1026	1165	
==>rt;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4265	4404	
==>rt;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1026	1165	
==>rt;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4265	4404	
==>rt;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13193	13287	
==>(currently Inline::C),
  and is thus not very portable to broken (no compiler) microsoft system <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6255	6368	
==>bind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6255	6368	
==>bind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6255	6368	
==>bind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	14062	14169	
==>/i ) { $synpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_fro <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17772	17877	
==>sub, code, exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = def <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1247	1342	
==>eturn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B') <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2412	2507	
==>eturn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7825	7939	
==>method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7825	7939	
==>method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7825	7939	
==>method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @par <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20899	20997	
==>ssume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25451	25549	
==>ssume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19318	19410	
==>field value consist of a challenge that indicates the
authentication scheme and parameters ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5245	5337	
==>:IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19318	19410	
==>field value consist of a challenge that indicates the
authentication scheme and parameters ap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5245	5337	
==>:IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5245	5337	
==>:IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5036	5140	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5036	5140	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1940	2044	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11299	11394	
==>>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode ver <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11299	11394	
==>>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode ver <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3449	3553	
==>::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node ob <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3449	3553	
==>::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1886	1989	
==>Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1886	1989	
==>Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1886	1989	
==>Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > St <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8336	8556	
==>y;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sor <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8800	9020	
==>y;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	869	960	
==>:doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	869	960	
==>:doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	869	960	
==>:doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2824	2926	
==>ield;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this fiel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2824	2926	
==>ield;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this fiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3833	3931	
==>argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3833	3931	
==>argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3833	3931	
==>argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	258	375	
==>$bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *no <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	262	379	
==>$bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	258	375	
==>$bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	262	379	
==>$bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *no <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13472	13572	
==>e_object(anyof_class => alpha => $neg, \$how);
  });

  # alnum POSIX class
  $self->add_handler('POS <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7501	7609	
==>"returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'S <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7501	7609	
==>"returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6677	6778	
==>n (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6677	6778	
==>n (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6677	6778	
==>n (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8149	8313	
==>fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8149	8313	
==>fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8149	8313	
==>fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23425	23517	
==>.")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", tex <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23425	23517	
==>.")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19340	19497	
==>}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19340	19497	
==>}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19340	19497	
==>}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallba <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9218	9356	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9411	9549	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7241	7372	
==>t I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7241	7372	
==>t I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7241	7372	
==>t I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	913	1014	
==>{ return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @ar <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	913	1014	
==>{ return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @ar <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3768	4111	
==>= $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3811	4154	
==>= $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3768	4111	
==>= $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3811	4154	
==>= $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3146	3237	
==>::TypeSafe::Annotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1633	1822	
==>b b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1633	1822	
==>b b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1633	1822	
==>b b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its le <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2917	3025	
==>ift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A.. <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2917	3025	
==>ift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34008	34134	
==>->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVER <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34008	34134	
==>->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVER <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34008	34134	
==>->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVER <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31767	31864	
==>rent user is fluent in (and prefers) language A but also understands
language B.  Later on, if for <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31767	31864	
==>rent user is fluent in (and prefers) language A but also understands
language B.  Later on, if for <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1469	1584	
==>= eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1469	1584	
==>= eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1215	1316	
==>w method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * Ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1215	1316	
==>w method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * Ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1215	1316	
==>w method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * Ne <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6547	6652	
==>gs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6547	6652	
==>gs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7777	7878	
==>=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7777	7878	
==>=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7777	7878	
==>=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2632	2729	
==>run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2632	2729	
==>run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2632	2729	
==>run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10968	11064	
==>he program will emit warnings during the execution of some methods, 
because it will try to itera <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10968	11064	
==>he program will emit warnings during the execution of some methods, 
because it will try to itera <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1227	1367	
==>ing;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unles <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1227	1367	
==>ing;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unles <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	786	892	
==>erload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	786	892	
==>erload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	786	892	
==>erload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16358	16453	
==>argument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16358	16453	
==>argument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then t <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4488	4630	
==>n_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4488	4630	
==>n_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3142	3235	
==>le options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3142	3235	
==>le options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3142	3235	
==>le options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  - <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	109	275	
==>Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Availab <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5591	5694	
==>}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4721	4824	
==>}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all t <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5591	5694	
==>}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all t <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4721	4824	
==>}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7750	7857	
==>lize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QU <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7750	7857	
==>lize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17526	17619	
==>xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17526	17619	
==>xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17526	17619	
==>xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($x <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1346	1477	
==>LT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescap <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1346	1477	
==>LT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2040	2148	
==>nents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2040	2148	
==>nents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2040	2148	
==>nents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10014	10191	
==>.. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6355	6532	
==>.. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7204	7381	
==>.. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3372	3490	
==>n::Example, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of on <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14597	14703	
==>s, lastpos
    if $I0 > pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	358	464	
==>{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1126	1225	
==>f calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remembe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1126	1225	
==>f calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remembe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1126	1225	
==>f calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remembe <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	389	484	
==>{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_ad <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1815	1937	
==>cname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutatio <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1815	1937	
==>cname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19954	20045	
==>,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19954	20045	
==>,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19954	20045	
==>,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13776	13888	
==>thod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13776	13888	
==>thod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13776	13888	
==>thod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $met <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7789	7893	
==>pan0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7789	7893	
==>pan0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44764	45034	
==>w($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7010	7126	
==>{
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7010	7126	
==>{
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7010	7126	
==>{
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17831	17946	
==>alyze" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5614	5710	
==>>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jsp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5614	5710	
==>>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jsp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5614	5710	
==>>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jsp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7985	8073	
==>els{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $kille <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7985	8073	
==>els{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $kille <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9	132	
==>ugs;







1;





### There is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Compil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9	121	
==>ugs;



1;


### There is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	277	373	
==>thod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	277	373	
==>thod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	277	373	
==>thod sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER:: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1827	1943	
==>@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $c <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1827	1943	
==>@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2431	2529	
==>$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2431	2529	
==>$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2431	2529	
==>$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	578	683	
==>s headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $da <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5762	5861	
==>:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5762	5861	
==>:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35084	35182	
==>he first but for the changes.

=back

A Translator object has these methods:

=over

=item C<export <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35084	35182	
==>he first but for the changes.

=back

A Translator object has these methods:

=over

=item C<export <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	895	1021	
==>nce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	895	1021	
==>nce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	895	1021	
==>nce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8418	8518	
==>sif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8406	8506	
==>sif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3355	3462	
==>s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! du <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6832	6939	
==>s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! du <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5789	5896	
==>s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! du <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	656	748	
==>you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a n <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	656	748	
==>you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a n <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19728	19834	
==>Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item context"?
}

 
 multi p <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3083	3180	
==>~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3083	3180	
==>~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5821	6000	
==>length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5821	6000	
==>length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5821	6000	
==>length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14880	15010	
==>"after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14874	15004	
==>"after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1738	1845	
==>[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1738	1845	
==>[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1738	1845	
==>[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4064	4162	
==>* ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4248	4346	
==>* ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * po <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3875	4019	
==>}
    elsif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        pr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4995	5091	
==>r the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4995	5091	
==>r the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43053	43149	
==>r the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22814	22910	
==>T_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 PMf_MULTILINE

 ROPT_ANCH 
 ROPT_ANCH_BO <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11425	11524	
==>ay>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write mo <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11425	11524	
==>ay>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5666	5762	
==>) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5666	5762	
==>) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5666	5762	
==>) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~< <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	906	1030	
==>tr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	906	1030	
==>tr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17838	17946	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20718	20826	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24506	24614	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23864	24004	
==>f($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13366	13498	
==>f($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13366	13498	
==>f($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13366	13498	
==>f($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	354	472	
==>ure::env'))
        || confess "env must be a closure::env";
    # params is a hash whose keys are the names
    # of v <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2319	2421	
==>Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
me <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2319	2421	
==>Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3975	4072	
==>DIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3975	4072	
==>DIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3975	4072	
==>DIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base= <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7673	7779	
==>et.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7673	7779	
==>et.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	330	424	
==>eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	330	424	
==>eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	330	424	
==>eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13176	13297	
==>rt => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13176	13297	
==>rt => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1634	1737	
==>ber(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1634	1737	
==>ber(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1634	1737	
==>ber(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	857	978	
==>paque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	857	978	
==>paque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	857	978	
==>paque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5196	5297	
==>ULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5196	5297	
==>ULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5196	5297	
==>ULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7032	7129	
==>low-level functional operators, and the higher level OO/Overload 

runtime. 



- internal rule op <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6792	6886	
==>low-level functional operators, and the higher level OO/Overload 
runtime. 

- internal rule op <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1879	2022	
==>encoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1879	2022	
==>encoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14478	14606	
==>e
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14478	14606	
==>e
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14478	14606	
==>e
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9243	9484	
==>{
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9243	9484	
==>{
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9243	9484	
==>{
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    i <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4170	4267	
==>n also be the string "last", in which case the
object returned represents the last day for the spe <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4170	4267	
==>n also be the string "last", in which case the
object returned represents the last day for the spe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	737	862	
==>code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	748	873	
==>code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_cap <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	272	393	
==>lass, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()-> <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	352	466	
==>Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	352	466	
==>Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15574	15692	
==>('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10430	10548	
==>('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	916	1030	
==>dy => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	916	1030	
==>dy => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	916	1030	
==>dy => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	437	622	
==>sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	437	622	
==>sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	437	622	
==>sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Juncti <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4151	4252	
==>mpty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == In <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4151	4252	
==>mpty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == In <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7810	7957	
==>_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and co <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7810	7957	
==>_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3600	3715	
==>r @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3600	3715	
==>r @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3600	3715	
==>r @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprin <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2127	2242	
==>PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Express <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2127	2242	
==>PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Express <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7438	7547	
==>LASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7438	7547	
==>LASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7438	7547	
==>LASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25081	25176	
==>he argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29633	29728	
==>he argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6854	7019	
==>1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6854	7019	
==>1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6854	7019	
==>1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12888	13020	
==>rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12888	13020	
==>rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Ha <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4946	5107	
==>m
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4946	5107	
==>m
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	578	694	
==>this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	578	694	
==>this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	578	694	
==>this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatch <==
5	/Users/nnunley/pugs/util/config_h.pl	1193	1295	
==>adline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	480	649	
==>gs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	480	649	
==>gs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	480	649	
==>gs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23417	23509	
==><gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> ". <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23417	23509	
==><gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> ". <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	369	507	
==>e "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	369	507	
==>e "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14883	15007	
==>stant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14883	15007	
==>stant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14883	15007	
==>stant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39549	39643	
==>n R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Da <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39549	39643	
==>n R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Da <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24273	24366	
==>n R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Da <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24273	24366	
==>n R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Da <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8975	9065	
==>ead1 SEE ALSO

Summary of Perl 6 Operators: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1668	1781	
==>le($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1668	1781	
==>le($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1668	1781	
==>le($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($sel <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11915	12009	
==>he set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11915	12009	
==>he set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4716	4846	
==>ta} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13141	13271	
==>ta} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15752	15882	
==>ta} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17240	17370	
==>ta} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21923	22053	
==>ta} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1435	1567	
==>g ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1435	1567	
==>g ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4508	4603	
==>he C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This para <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4508	4603	
==>he C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6705	6800	
==>he C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This para <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5009	5128	
==>er });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16045	16164	
==>er });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17533	17652	
==>er });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22216	22335	
==>er });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9108	9219	
==>nd-line switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42873	43038	
==>ift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	100	201	
==>:Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	100	201	
==>:Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	100	201	
==>:Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to <==
5	/Users/nnunley/pugs/misc/Date/lib/Date.pm	357	452	
==>tion) returns Date {
    $self.add(-$duration);
}

method difference($self: Date $other) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35955	36108	
==>) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35955	36108	
==>) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35955	36108	
==>) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  t <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7209	7317	
==>" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @modfiles > 0 },
  using <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19731	19832	
==>abelledStatement>
    | <SwitchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5514	5674	
==>->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5514	5674	
==>->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5514	5674	
==>->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3049	3174	
==>t <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    el <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3049	3174	
==>t <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    el <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2056	2178	
==>ect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2056	2178	
==>ect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2136	2258	
==>ect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	642	734	
==>atch->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	642	734	
==>atch->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_fil <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	64	173	
==>se File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $ <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	64	173	
==>se File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35916	36069	
==>tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35916	36069	
==>tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35916	36069	
==>tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative o <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	624	714	
==>sults = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($name, $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24142	24280	
==>y $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24142	24280	
==>y $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24142	24280	
==>y $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defi <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2475	2571	
==>xt>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for du <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2475	2571	
==>xt>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for du <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	194	394	
==>:constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	195	395	
==>:constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2166	2261	
==>ake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2166	2261	
==>ake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2166	2261	
==>ake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2836	2944	
==>", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2836	2944	
==>", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2836	2944	
==>", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, " <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18555	18656	
==>eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19913	20014	
==>eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree- <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3029	3157	
==>_[0] =~ $re; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metadata object of 1 package, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4991	5113	
==>h @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4991	5113	
==>h @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4991	5113	
==>h @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shi <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15153	15264	
==>);
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31485	31666	
==>. ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31485	31666	
==>. ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31485	31666	
==>. ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5324	5420	
==>to clear its internal state as completely as possible. 
This is automatically done as part of C<f <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5324	5420	
==>to clear its internal state as completely as possible. 
This is automatically done as part of C<f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12937	13115	
==>ice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12937	13115	
==>ice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12937	13115	
==>ice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16935	17028	
==>When present, its value indicates what additional
encoding mechanism has been applied to the r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16935	17028	
==>When present, its value indicates what additional
encoding mechanism has been applied to the r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1473	1621	
==>for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1577	1725	
==>for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1473	1621	
==>for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1577	1725	
==>for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9952	10061	
==>ointer in the match tree
4 - a grammar name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23703	23811	
==>p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23703	23811	
==>p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23703	23811	
==>p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	267	373	
==>>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </b <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	267	373	
==>>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8427	8580	
==>eturn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8427	8580	
==>eturn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2975	3087	
==>- "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2975	3087	
==>- "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2975	3087	
==>- "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20716	20815	
==>es or export such.

The usual way that Relation indicates a failure is to throw an exception;
most o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25268	25367	
==>es or export such.

The usual way that Relation indicates a failure is to throw an exception;
most o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	478	570	
==>sin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	478	570	
==>sin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	478	570	
==>sin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26120	26244	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::str <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26120	26244	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::str <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26120	26244	
==>ify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::str <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9693	9812	
==>ns_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithm <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9693	9812	
==>ns_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4135	4251	
==>ture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4007	4121	
==>ture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2409	2504	
==>ring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2409	2504	
==>ring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2409	2504	
==>ring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13211	13336	
==>( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_stri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13211	13336	
==>( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	931	1037	
==>)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	931	1037	
==>)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	931	1037	
==>)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5597	5718	
==>ct, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5597	5718	
==>ct, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5597	5718	
==>ct, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_n <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	302	399	
==>lter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	302	399	
==>lter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31219	31314	
==>a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subs <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35793	35888	
==>tion as its C<$other> argument and combines it with the
invocant relation into a new Relation, s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35769	35864	
==>a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subs <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40343	40438	
==>tion as its C<$other> argument and combines it with the
invocant relation into a new Relation, s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34987	35082	
==>a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9593	9684	
==>lurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9593	9684	
==>lurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9593	9684	
==>lurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4040	4119	
==>\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4040	4119	
==>\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1931	2045	
==>thod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $u <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1931	2045	
==>thod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3538	3637	
==>nless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3538	3637	
==>nless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3538	3637	
==>nless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7411	7532	
==>s
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cann <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7411	7532	
==>s
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cann <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7411	7532	
==>s
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cann <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9469	9559	
==>sh @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3294	3384	
==>sh @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Pe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10963	11095	
==>on.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12434	12566	
==>on.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14440	14572	
==>on.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15911	16043	
==>on.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	605	701	
==>n}->insert($node);
		$self->SUPER::generic_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1413	1523	
==>d + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1413	1523	
==>d + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_star <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4678	4781	
==>ilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4678	4781	
==>ilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4678	4781	
==>ilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14421	14550	
==>NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14421	14550	
==>NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14421	14550	
==>NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3973	4067	
==>( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3973	4067	
==>( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2090	2193	
==>Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2090	2193	
==>Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2090	2193	
==>Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.i <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	921	1022	
==>urn $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	909	1010	
==>urn $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18152	18249	
==>h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18152	18249	
==>h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	843	939	
==>$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	843	939	
==>$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	843	939	
==>$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9464	9608	
==>boxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9464	9608	
==>boxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9464	9608	
==>boxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19657	19753	
==>ages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the major <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19657	19753	
==>ages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the major <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6457	6542	
==>('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authorit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6457	6542	
==>('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authorit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6457	6542	
==>('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authorit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6145	6299	
==>l);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6145	6299	
==>l);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6145	6299	
==>l);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4431	4532	
==>/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4278	4377	
==>/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14396	14584	
==>p::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14675	14863	
==>p::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6506	6601	
==>I SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6506	6601	
==>I SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6506	6601	
==>I SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5877	5990	
==>arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5877	5990	
==>arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5877	5990	
==>arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$max <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38823	38918	
==>t.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38823	38918	
==>t.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3017	3115	
==>SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2909	3005	
==>SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	199	292	
==>y PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	199	292	
==>y PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	199	292	
==>y PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	125	227	
==>on dependency.
### This is a bug and will be fixed.
use File::Spec ();
use ExtUtils::MakeMaker ();

use <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19808	19906	
==>ect is determined when it is constructed, and the object can
not be changed afterwards.

If you wan <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24360	24458	
==>ect is determined when it is constructed, and the object can
not be changed afterwards.

If you wan <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22912	23010	
==>ect is determined when it is constructed, and the object can
not be changed afterwards.

If you wan <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6763	6861	
==>ct(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1156	1273	
==>Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1156	1273	
==>Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	865	971	
==>are all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	865	971	
==>are all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	865	971	
==>are all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5686	5883	
==>st( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49601	49733	
==>method label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	509	634	
==>') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'en <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	509	634	
==>') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'en <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	524	621	
==>filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	116	215	
==>AX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	116	215	
==>AX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	116	215	
==>AX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4077	4175	
==>- A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4077	4175	
==>- A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13217	13360	
==>}

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13217	13360	
==>}

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13217	13360	
==>}

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2330	2427	
==>fully functioning modules in 
Pugs, this port does it's best to work with those limitations and 
s <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2330	2427	
==>fully functioning modules in 
Pugs, this port does it's best to work with those limitations and 
s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19280	19421	
==>method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39732	39873	
==>method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1523	1642	
==>ed_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1523	1642	
==>ed_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1523	1642	
==>ed_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7116	7228	
==>all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTEN <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7116	7228	
==>all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTEN <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	961	1142	
==>$count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	961	1142	
==>$count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10947	11089	
==>mental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8017	8153	
==>mental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8017	8153	
==>mental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5685	5791	
==>ed in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5685	5791	
==>ed in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5685	5791	
==>ed in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because els <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20635	20730	
==>ivate, so you must use accessor
methods.  Relation does not declare any subroutines or export su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25187	25282	
==>ivate, so you must use accessor
methods.  Relation does not declare any subroutines or export su <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8401	8496	
==>lation')>

This event is begun when any block of characters is interpolated for modifiers.

=ite <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8401	8496	
==>lation')>

This event is begun when any block of characters is interpolated for modifiers.

=ite <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16057	16150	
==>ocumentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16057	16150	
==>ocumentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14532	14616	
==>PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14532	14616	
==>PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14532	14616	
==>PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$P <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1071	1241	
==>f $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push( <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1071	1241	
==>f $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5885	5990	
==>it_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { prin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5885	5990	
==>it_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { prin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5885	5990	
==>it_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	145	250	
==>ainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	145	250	
==>ainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	145	250	
==>ainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::D <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6163	6265	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6163	6265	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11641	11760	
==>before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2124	2241	
==>before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8896	9013	
==>before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2124	2241	
==>before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8896	9013	
==>before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15441	15607	
==>y->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rew <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15441	15607	
==>y->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rew <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15441	15607	
==>y->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rew <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15440	15533	
==>a variance of needs between its different
users, such as their preferred language of communica <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15440	15533	
==>a variance of needs between its different
users, such as their preferred language of communica <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17178	17327	
==>ibutes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'nu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17178	17327	
==>ibutes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10667	10768	
==>d = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10667	10768	
==>d = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10667	10768	
==>d = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	221	314	
==>/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	221	314	
==>/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	221	314	
==>/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packag <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2176	2275	
==>a::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2176	2275	
==>a::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5280	5373	
==>a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mar <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5280	5373	
==>a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6804	6897	
==>a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but mar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3692	3807	
==>if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3692	3807	
==>if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3692	3807	
==>if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21073	21166	
==>e compiled into .pmc files and shipped with your
distribtution precompiled. This means that pe <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21073	21166	
==>e compiled into .pmc files and shipped with your
distribtution precompiled. This means that pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11734	11836	
==>[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applica <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11734	11836	
==>[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applica <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11734	11836	
==>[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applica <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1702	1799	
==>n &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    retu <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1702	1799	
==>n &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	616	726	
==>to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: pre <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	616	726	
==>to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: pre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	202	291	
==>//article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	202	291	
==>//article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	202	291	
==>//article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Clas <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6534	6631	
==>s r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method A <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6739	6836	
==>s r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method A <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2378	2486	
==>array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2378	2486	
==>array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2378	2486	
==>array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12665	12772	
==>force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6140	6247	
==>force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15970	16261	
==>ft )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15970	16261	
==>ft )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15970	16261	
==>ft )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celem <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1312	1411	
==>aders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1312	1411	
==>aders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10286	10385	
==>Get or set the value of one or more header fields.  The header field
name ($field) is not case sensi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10286	10385	
==>Get or set the value of one or more header fields.  The header field
name ($field) is not case sensi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5798	5893	
==>r(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5798	5893	
==>r(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5798	5893	
==>r(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arra <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1586	1696	
==>f shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4789	4899	
==>f shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	212	314	
==>nd, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	212	314	
==>nd, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	212	314	
==>nd, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETC <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12268	12403	
==>age::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12262	12397	
==>age::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13366	13466	
==>s { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13366	13466	
==>s { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13366	13466	
==>s { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14794	14906	
==>("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14794	14906	
==>("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	556	653	
==>r @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	556	653	
==>r @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	556	653	
==>r @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8783	8887	
==>matically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5697	5801	
==>it' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8783	8887	
==>matically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5697	5801	
==>it' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5697	5801	
==>it' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13528	13648	
==>\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13528	13648	
==>\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13528	13648	
==>\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10719	10830	
==>rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key} <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10719	10830	
==>rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13146	13260	
==>ammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21196	21310	
==>ammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13425	13539	
==>ammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21475	21589	
==>ammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	584	686	
==>fig{sitebin},
        siteprefix=> $Config{siteprefix},

        installscript  => $Config{installscrip <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8766	8875	
==>ectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8824	8933	
==>ectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7839	7944	
==>needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7839	7944	
==>needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7839	7944	
==>needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8644	8793	
==>h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12551	12695	
==>h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12551	12695	
==>h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9131	9230	
==>:Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9131	9230	
==>:Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13905	14023	
==>> [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ], <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13905	14023	
==>> [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ], <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13905	14023	
==>> [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1016	1114	
==>(or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in both P <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	966	1063	
==>(or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in both P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	922	1051	
==>opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	947	1076	
==>opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2646	2756	
==>c_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2646	2756	
==>c_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2646	2756	
==>c_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14754	14892	
==>,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15033	15171	
==>,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14739	14839	
==>::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14739	14839	
==>::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14739	14839	
==>::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribut <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7519	7652	
==>Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            retu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7519	7652	
==>Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1282	1385	
==>>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1282	1385	
==>>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1282	1385	
==>>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, m <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3114	3311	
==>pp->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->n <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10616	10739	
==>ch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) if $switch ne "";
    }

    return @switche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5023	5233	
==>od_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5023	5233	
==>od_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5023	5233	
==>od_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2982	3077	
==>rved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2982	3077	
==>rved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1422	1528	
==>iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1422	1528	
==>iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1422	1528	
==>iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLO <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10803	10906	
==>r to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10803	10906	
==>r to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1704	1803	
==>:MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Plugg <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1704	1803	
==>:MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Plugg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8396	8494	
==>SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8396	8494	
==>SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8396	8494	
==>SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    loc <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27627	27726	
==>:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27627	27726	
==>:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1482	1574	
==>ndChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeigh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1482	1574	
==>ndChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeigh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1482	1574	
==>ndChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeigh <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1691	1801	
==>| <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1691	1801	
==>| <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22441	22537	
==>voked on the
same object with the same arguments; they do not interact with the outside
environme <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26993	27089	
==>voked on the
same object with the same arguments; they do not interact with the outside
environme <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25716	25812	
==>voked on the
same object with the same arguments; they do not interact with the outside
environme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7678	7799	
==>xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7678	7799	
==>xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7678	7799	
==>xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11609	11726	
==>_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11603	11720	
==>_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4793	4933	
==>lse {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13218	13358	
==>lse {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15829	15969	
==>lse {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17317	17457	
==>lse {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22000	22140	
==>lse {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9926	10034	
==>": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9926	10034	
==>": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9926	10034	
==>": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23467	23558	
==>E ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Langu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23467	23558	
==>E ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Langu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19172	19286	
==>} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15593	15707	
==>} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2696	2792	
==>btitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2696	2792	
==>btitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3043	3139	
==>btitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2310	2433	
==>eop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2321	2444	
==>eop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3070	3177	
==>callbacks can have them.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $line = $it->n <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3056	3160	
==>- An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3056	3160	
==>- An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1336	1433	
==>al { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1336	1433	
==>al { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1336	1433	
==>al { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate a <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2421	2517	
==>rt any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2421	2517	
==>rt any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24235	24372	
==>erm1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24514	24651	
==>erm1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11839	11924	
==>::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_ha <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11839	11924	
==>::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_ha <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11839	11924	
==>::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4044	4161	
==>($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4044	4161	
==>($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4044	4161	
==>($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16656	16762	
==>=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16656	16762	
==>=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bo <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15788	15898	
==>n't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2185	2291	
==>n't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14273	14372	
==>rface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14273	14372	
==>rface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26532	26626	
==>em C<$!is_mutable> - B<Relation::Example Is Mutable>

Bool - This attribute is True if the Rela <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8065	8194	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8258	8387	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	197	288	
==>Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	197	288	
==>Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	192	280	
==>Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4040	4226	
==>}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7517	7703	
==>}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9983	10084	
==>aces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9983	10084	
==>aces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9983	10084	
==>aces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::P <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	567	681	
==>ol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	567	681	
==>ol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2815	2915	
==>ode) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2815	2915	
==>ode) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2815	2915	
==>ode) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10919	11121	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10919	11121	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10919	11121	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8128	8229	
==>assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8128	8229	
==>assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3504	3607	
==>},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3504	3607	
==>},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3504	3607	
==>},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24200	24292	
==>Text does no compile time binding and
will support multiple languages or locales simultaneous <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24200	24292	
==>Text does no compile time binding and
will support multiple languages or locales simultaneous <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5245	5379	
==>$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5257	5391	
==>$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	192	294	
==>:PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	192	294	
==>:PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	192	294	
==>:PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17931	18113	
==>ethod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17931	18113	
==>ethod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17931	18113	
==>ethod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5541	5636	
==>dule is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Regi <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5541	5636	
==>dule is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Regi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2965	3125	
==>d};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2965	3125	
==>d};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2965	3125	
==>d};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2778	2894	
==>{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2778	2894	
==>{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2087	2218	
==>d}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4459	4556	
==>is is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31174	31270	
==>erator that returns a new Relation
which has a subset of the original's tuples, and it works like <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35724	35820	
==>erator that returns a new Relation
which has a subset of the original's tuples, and it works like <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4305	4401	
==>is is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21121	21300	
==>NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21121	21300	
==>NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21121	21300	
==>NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $po <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	115	212	
==>eless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	115	212	
==>eless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2217	2326	
==>ODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2217	2326	
==>ODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2217	2326	
==>ODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3024	3117	
==>s :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3024	3117	
==>s :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10115	10237	
==>atch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10115	10237	
==>atch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10115	10237	
==>atch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6764	6863	
==>t Events

For each POD element, an event is fired, the first argument to all these events is
the C<$ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6764	6863	
==>t Events

For each POD element, an event is fired, the first argument to all these events is
the C<$ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10727	10820	
==>returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B< <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10727	10820	
==>returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18040	18129	
==>lt "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18040	18129	
==>lt "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resul <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18040	18129	
==>lt "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resul <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6550	6668	
==>decl = "no strict; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29414	29525	
==>f_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15835	15938	
==>($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15835	15938	
==>($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15835	15938	
==>($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13272	13437	
==>p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13413	13545	
==>tch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPAT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13413	13545	
==>tch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPAT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13413	13545	
==>tch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPAT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19251	19344	
==>got some weird error.
This should never happen.  Please contact the author immediately.
Here's <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1210	1321	
==>xt( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1210	1321	
==>xt( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	413	514	
==>005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	413	514	
==>005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	413	514	
==>005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1268	1397	
==>%*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1268	1397	
==>%*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	523	615	
==>EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	523	615	
==>EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	523	615	
==>EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9231	9345	
==>er('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9231	9345	
==>er('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21701	21801	
==>xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21701	21801	
==>xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21701	21801	
==>xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# S <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2848	2945	
==>nt work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3005	3102	
==>nt work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2848	2945	
==>nt work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3005	3102	
==>nt work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it an <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10296	10380	
==><RegularExpressionFirstChar> <RegularExpressionChars>
}
rule RegularExpressionChars { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2855	2973	
==>rave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2855	2973	
==>rave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4873	4986	
==>hod_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4873	4986	
==>hod_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4873	4986	
==>hod_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "meth <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2611	2710	
==>not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that t <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2611	2710	
==>not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8129	8259	
==>pack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8129	8259	
==>pack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8129	8259	
==>pack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6109	6231	
==>y ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unl <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3786	3907	
==>y ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unl <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1898	2022	
==>ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort k <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1898	2022	
==>ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4794	4917	
==>local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4794	4917	
==>local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4794	4917	
==>local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2501	2616	
==>@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2501	2616	
==>@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2501	2616	
==>@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11583	11681	
==>Simple's test will not be relevant though.

=item Create a Visitor class

This would also be a good <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11583	11681	
==>Simple's test will not be relevant though.

=item Create a Visitor class

This would also be a good <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14259	14355	
==>UB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14259	14355	
==>UB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14259	14355	
==>UB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26562	26656	
==>structor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and retur <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26562	26656	
==>structor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5388	5518	
==>t unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5388	5518	
==>t unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14391	14485	
==>LTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14391	14485	
==>LTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14391	14485	
==>LTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unl <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6959	7097	
==>git {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1080	1177	
==>ied
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1080	1177	
==>ied
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_heade <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4028	4136	
==>of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = stri <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4028	4136	
==>of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3969	4064	
==>4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3969	4064	
==>4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3969	4064	
==>4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5751	5877	
==>];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5751	5877	
==>];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5751	5877	
==>];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6121	6229	
==>o $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6121	6229	
==>o $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	533	675	
==>->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	533	675	
==>->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $o <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1958	2181	
==>ed $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.csta <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1958	2181	
==>ed $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.csta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4768	4874	
==>w_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4768	4874	
==>w_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4768	4874	
==>w_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	929	1042	
==>dChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	929	1042	
==>dChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	929	1042	
==>dChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i+ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21008	21108	
==>iple times.  The result of doing so,
it that only the last of these fields will be present in the hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21008	21108	
==>iple times.  The result of doing so,
it that only the last of these fields will be present in the hea <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1083	1198	
==>ring is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (S <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1083	1198	
==>ring is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	696	802	
==>ode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	696	802	
==>ode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	696	802	
==>ode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3972	4113	
==>e paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3972	4113	
==>e paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1290	1393	
==>ect
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1290	1393	
==>ect
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1290	1393	
==>ect
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => sto <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	850	960	
==>thers to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  im <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	850	960	
==>thers to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  im <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3715	3822	
==>g our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3715	3822	
==>g our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5239	5346	
==>g our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :t <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4263	4402	
==>end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@li <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4263	4402	
==>end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1565	1680	
==>), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1565	1680	
==>), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1565	1680	
==>), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3312	3464	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unkn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3312	3464	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unkn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3312	3464	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unkn <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5438	5562	
==>pdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .can <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5438	5562	
==>pdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1614	1725	
==>$instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1614	1725	
==>$instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1614	1725	
==>$instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || conf <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4830	4936	
==>!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4830	4936	
==>!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event { <==
5	/Users/nnunley/pugs/util/package-osx.pl	9269	9422	
==>r) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4165	4300	
==>dence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        precede <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1544	1670	
==>X SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1544	1670	
==>X SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1544	1670	
==>X SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4106	4218	
==>nless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $requ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4106	4218	
==>nless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $requ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4106	4218	
==>nless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $requ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1430	1534	
==><statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1430	1534	
==><statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use P <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4115	4233	
==>) = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4115	4233	
==>) = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4115	4233	
==>) = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1198	1301	
==>BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2363	2466	
==>BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	18	117	
==>e v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2999	3098	
==>on (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	18	117	
==>e v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2999	3098	
==>on (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2999	3098	
==>on (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3775	3891	
==>_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. T <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3775	3891	
==>_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2975	3086	
==>ringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2975	3086	
==>ringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2975	3086	
==>ringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_la <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23621	23742	
==>handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${& <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20042	20163	
==>handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1180	1284	
==>00]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1180	1284	
==>00]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1180	1284	
==>00]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringif <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6943	7043	
==>will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6943	7043	
==>will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4452	4574	
==>n > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cook <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4452	4574	
==>n > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cook <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4330	4430	
==>rue value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4330	4430	
==>rue value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6527	6627	
==>rue value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2751	2854	
==>le {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2751	2854	
==>le {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2751	2854	
==>le {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writin <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1074	1167	
==>e as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures differentl <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1074	1167	
==>e as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures differentl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1225	1323	
==>r returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1225	1323	
==>r returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1772	1870	
==>r returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13141	13231	
==>Locale::KeyedText" package serves only as the name-sake
representative for this whole file, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13141	13231	
==>Locale::KeyedText" package serves only as the name-sake
representative for this whole file, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9164	9426	
==>, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5524	5786	
==>, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6373	6635	
==>, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4578	4674	
==>he only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

T <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4578	4674	
==>he only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

T <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7415	7542	
==>$rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1083	1192	
==>nstance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1083	1192	
==>nstance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1083	1192	
==>nstance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29188	29283	
==>dy matched what they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3649	3784	
==>_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3649	3784	
==>_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1878	2012	
==>rt_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1878	2012	
==>rt_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13898	14020	
==>_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13898	14020	
==>_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13898	14020	
==>_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_method <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2756	2932	
==>hod exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6233	6409	
==>hod exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5163	5339	
==>hod exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6605	6706	
==>l" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6605	6706	
==>l" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14597	14723	
==>hile $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14597	14723	
==>hile $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14597	14723	
==>hile $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6883	7009	
==>hile $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5387	5513	
==>hile $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1725	1893	
==>dent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1725	1893	
==>dent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1725	1893	
==>dent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7477	7575	
==>.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7477	7575	
==>.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenti <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	198	302	
==>05 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	198	302	
==>05 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defi <==
5	/Users/nnunley/pugs/util/package-osx.pl	5541	5638	
==>n/man3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/man/ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7313	7408	
==>s:



- higher order operators: alternation, concatenation.

- "plain" match operators: like 'li <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7065	7157	
==>s:

- higher order operators: alternation, concatenation.
- "plain" match operators: like 'li <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3464	3575	
==>of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3464	3575	
==>of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1713	1808	
==>R::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1713	1808	
==>R::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1713	1808	
==>R::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	870	988	
==>attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	870	988	
==>attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	870	988	
==>attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1493	1586	
==>iewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.) <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1493	1586	
==>iewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9982	10079	
==>e($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9982	10079	
==>e($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5695	5790	
==>_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5695	5790	
==>_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5695	5790	
==>_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5680	5870	
==>t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3136	3239	
==>s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3136	3239	
==>s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3136	3239	
==>s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5138	5238	
==>0, then check it's exact
# else if $expected is 0, then $range is an absolute value
# otherwise $rang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8826	8926	
==>p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8826	8926	
==>p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8826	8926	
==>p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vio <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17068	17162	
==>cimal number indicating the size in bytes of the message content.

=item $h.content_language

T <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17068	17162	
==>cimal number indicating the size in bytes of the message content.

=item $h.content_language

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	211	337	
==>> { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	211	337	
==>> { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	211	337	
==>> { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4762	4853	
==>assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':% <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4762	4853	
==>assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':% <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13198	13305	
==>non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16675	16782	
==>non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16037	16144	
==>non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10241	10343	
==>item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10241	10343	
==>item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17239	17336	
==>num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17239	17336	
==>num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, B <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17239	17336	
==>num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, B <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12888	12982	
==>Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, St <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12946	13040	
==>Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	144	241	
==>ingified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Multi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	144	241	
==>ingified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Multi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	144	241	
==>ingified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Multi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25889	25980	
==>Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30441	30532	
==>Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attri <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6277	6435	
==>' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6335	6493	
==>' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2042	2156	
==>s[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2042	2156	
==>s[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2042	2156	
==>s[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is ne <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14557	14694	
==>or @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18034	18171	
==>or @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17450	17587	
==>or @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pus <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22784	22902	
==>fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						param => val(10),
					),
				), <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22446	22554	
==>fun => ide("length_and_first"),
			param => comb(
				fun => ide("listify"),
				param => val(10),
			),
		), <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2190	2312	
==>oo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2190	2312	
==>oo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13833	13937	
==>( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13833	13937	
==>( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13833	13937	
==>( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10765	10919	
==>ndef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_tra <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10765	10919	
==>ndef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39940	40064	
==>ub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39940	40064	
==>ub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39940	40064	
==>ub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13267	13367	
==>ody.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13267	13367	
==>ody.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13267	13367	
==>ody.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34022	34115	
==>anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyof <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2084	2188	
==>ibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will alre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2084	2188	
==>ibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will alre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2084	2188	
==>ibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will alre <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22194	22287	
==>", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22194	22287	
==>", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10802	10950	
==>t{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into cod <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10802	10950	
==>t{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8633	8768	
==>i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8633	8768	
==>i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8633	8768	
==>i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	124	219	
==>rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	124	219	
==>rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	124	219	
==>rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitiv <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1370	1464	
==>rameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1370	1464	
==>rameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4953	5067	
==>ad1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4953	5067	
==>ad1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5787	5883	
==>actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5787	5883	
==>actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5787	5883	
==>actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1393	1524	
==>substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1393	1524	
==>substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3679	3802	
==>ss defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3679	3802	
==>ss defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3679	3802	
==>ss defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1443	1549	
==>ur %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$l <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1443	1549	
==>ur %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1496	1615	
==>) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1496	1615	
==>) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4915	5022	
==>':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4915	5022	
==>':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4915	5022	
==>':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	779	889	
==>ed($label) && $label->isa('str'));
    
    my $args = list->new($inv, @args);
    
    my $class = $inv->class <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9018	9227	
==>t' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2750	2854	
==>Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2750	2854	
==>Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2830	2934	
==>Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Tes <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3605	3705	
==>g{include_re} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3526	3640	
==>:untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Imp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3526	3640	
==>:untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Imp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3526	3640	
==>:untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Imp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11706	11799	
==>at live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11706	11799	
==>at live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Nod <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5040	5181	
==>osure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5040	5181	
==>osure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	904	1023	
==>use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	904	1023	
==>use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	904	1023	
==>use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Per <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5713	5947	
==>oro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // y <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5713	5947	
==>oro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1714	1820	
==>hy did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1714	1820	
==>hy did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1714	1820	
==>hy did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2390	2500	
==>or @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2390	2500	
==>or @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8887	8981	
==>fix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8887	8981	
==>fix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8887	8981	
==>fix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4810	4945	
==>G_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4810	4945	
==>G_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4810	4945	
==>G_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4874	4989	
==>$module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    clo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4874	4989	
==>$module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    clo <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9322	9434	
==>([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9380	9492	
==>([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6321	6429	
==>oot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6321	6429	
==>oot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6321	6429	
==>oot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9003	9118	
==>rule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alter <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12861	12971	
==>rule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12861	12971	
==>rule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alter <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24912	25001	
==><:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediat <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24912	25001	
==><:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16995	17095	
==>a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16995	17095	
==>a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4182	4267	
==>te('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4182	4267	
==>te('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4182	4267	
==>te('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21737	21836	
==>e key code with a new user message in
one of their own resource files.  At some appropriate place, u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21737	21836	
==>e key code with a new user message in
one of their own resource files.  At some appropriate place, u <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3979	4068	
==>false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3979	4068	
==>false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6176	6265	
==>false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1644	1740	
==>my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase devel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	87	177	
==>Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	87	177	
==>Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	87	177	
==>Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  ev <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16996	17078	
==>es_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	255	350	
==>tc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	255	350	
==>tc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	255	350	
==>tc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3822	3916	
==>ing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class ref <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5724	5818	
==>ing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class ref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9676	9843	
==>ure} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	987	1149	
==>d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %ev <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	987	1149	
==>d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %ev <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6901	7008	
==>0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "gen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6913	7020	
==>0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "gen <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8202	8297	
==>/xhtml" xml:lang="en">
<head>
  <title>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Ty <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	310	424	
==>ONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, whe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	801	915	
==>ONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, whe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	310	424	
==>ONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, whe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	801	915	
==>ONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, whe <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	38	126	
==>iler;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18838	19036	
==>ram[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18838	19036	
==>ram[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18838	19036	
==>ram[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbox <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19539	19684	
==>se',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2811	2921	
==>" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $eve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2811	2921	
==>" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $eve <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2681	2774	
==>DESCRIPTION

This is a subclass of L<Blondie::Reducere> that performs the actions denoted by
t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31026	31118	
==>-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35576	35668	
==>-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20097	20194	
==>.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that it <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20097	20194	
==>.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that it <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29812	29907	
==>ing the new attributes having the same names as old attributes
that were wrapped, and it support <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34364	34459	
==>ing the new attributes having the same names as old attributes
that were wrapped, and it support <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33528	33623	
==>ing the new attributes having the same names as old attributes
that were wrapped, and it support <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6569	6707	
==>} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4262	4356	
==>ce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed pa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4262	4356	
==>ce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed pa <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11497	11591	
==>e warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Language::Att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6459	6553	
==>ce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13477	13692	
==>cher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13477	13692	
==>cher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13477	13692	
==>cher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dep <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17338	17450	
==>"$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13759	13871	
==>"$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7250	7374	
==>this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	551	675	
==>this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4456	4546	
==>s
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C< <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4456	4546	
==>s
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6653	6743	
==>s
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C< <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3606	3714	
==>capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3799	3907	
==>capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12379	12473	
==>returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12437	12531	
==>returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1289	1379	
==>e grammer pretty prints bare types (no foralll)
my $pretty = Language::AttributeGrammar->ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1590	1727	
==>ueue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comma <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1590	1727	
==>ueue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4938	5042	
==>pace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4938	5042	
==>pace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4938	5042	
==>pace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1112	1227	
==>equire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1079	1194	
==>equire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2423	2514	
==>n_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2423	2514	
==>n_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2423	2514	
==>n_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLo <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1786	1892	
==>rt($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reaso <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1786	1892	
==>rt($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reaso <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36090	36183	
==>ew relation is the result of first pairwise-matching every
tuple of the invocant relation with <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40639	40732	
==>ew relation is the result of first pairwise-matching every
tuple of the invocant relation with <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40253	40346	
==>ew relation is the result of first pairwise-matching every
tuple of the invocant relation with <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15257	15430	
==>$values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15257	15430	
==>$values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15257	15430	
==>$values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $arr <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3888	3999	
==>$self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3888	3999	
==>$self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14377	14524	
==>$e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.ge <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14377	14524	
==>$e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2349	2440	
==>= args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2349	2440	
==>= args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2349	2440	
==>= args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETC <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3759	3858	
==>tringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_dif <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3759	3858	
==>tringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7352	7446	
==>h $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7352	7446	
==>h $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7352	7446	
==>h $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8688	8851	
==>nto:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5048	5211	
==>nto:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5897	6060	
==>nto:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1981	2088	
==>eturn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4216	4323	
==>eturn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5572	5697	
==>exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30786	30888	
==>he Set Name comes first and makes up most of the module name; it
must be the same for every module in t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30786	30888	
==>he Set Name comes first and makes up most of the module name; it
must be the same for every module in t <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18163	18262	
==>')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41428	41527	
==>')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1548	1667	
==>L::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1548	1667	
==>L::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1548	1667	
==>L::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mang <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2029	2128	
==>zation format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1953	2048	
==>zation format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # f <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	650	754	
==>nless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool { <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	650	754	
==>nless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35341	35438	
==>r I<real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5034	5136	
==>PRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5034	5136	
==>PRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5034	5136	
==>PRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6512	6612	
==>e );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use b <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6512	6612	
==>e );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3224	3325	
==>/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3224	3325	
==>/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3224	3325	
==>/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3445	3536	
==>C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are deleg <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3445	3536	
==>C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are deleg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1906	2006	
==>')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1906	2006	
==>')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1906	2006	
==>')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, ' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2530	2624	
==>his class represents the query string portion of a requested URI.
It provides the following met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2530	2624	
==>his class represents the query string portion of a requested URI.
It provides the following met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9500	9619	
==>return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9500	9619	
==>return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9500	9619	
==>return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dis <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8289	8384	
==>x{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratch <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8277	8372	
==>x{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5221	5326	
==>$new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $vers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5221	5326	
==>$new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $vers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5221	5326	
==>$new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $vers <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7293	7390	
==>alled as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer in <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7293	7390	
==>alled as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer in <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5098	5214	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16134	16250	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17622	17738	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22305	22421	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1807	1911	
==>rint "checking angle quote ... [$whitespace_before]\n";
                $m = Pugs::Grammar::Term->angle_q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5753	5857	
==>=> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5753	5857	
==>=> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5753	5857	
==>=> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($s <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	89	183	
==>ER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	89	183	
==>ER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1323	1414	
==>L2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1323	1414	
==>L2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1323	1414	
==>L2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2800	2890	
==>ersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2800	2890	
==>ersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3561	3664	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3561	3664	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	124	224	
==>information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	124	224	
==>information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	124	224	
==>information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19711	19828	
==>>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19711	19828	
==>>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19711	19828	
==>>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is pr <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5365	5468	
==>th'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_a <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5365	5468	
==>th'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4999	5149	
==>_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4999	5149	
==>_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4999	5149	
==>_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or C <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13868	13972	
==>cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8074	8178	
==>cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4772	4872	
==>bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4772	4872	
==>bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4772	4872	
==>bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3530	3614	
==>APPING COMPLETE
## ------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5432	5516	
==>APPING COMPLETE
## ------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8668	8790	
==>lic/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&q <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8668	8790	
==>lic/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1383	1486	
==>:PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1383	1486	
==>:PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1383	1486	
==>:PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10006	10164	
==>od clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10006	10164	
==>od clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	498	599	
==>ction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a vali <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	498	599	
==>ction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a vali <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	498	599	
==>ction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a vali <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26751	26897	
==>,
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27030	27176	
==>,
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6451	6547	
==>s adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which conta <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6451	6547	
==>s adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which conta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8648	8744	
==>s adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which conta <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10335	10509	
==>,
        name => '&print',
        body => sub {
            my $self = shift;
            my $fh = shift->val;
            print $fh @_;
        }
    },
    map {{ arity => <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1961	2063	
==>ogram =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4548	4641	
==>s[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4548	4641	
==>s[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4548	4641	
==>s[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.del <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1103	1194	
==>----------------------------------------------------
## Roles

# Questions on Role methods s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1103	1194	
==>----------------------------------------------------
## Roles

# Questions on Role methods s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1103	1194	
==>----------------------------------------------------
## Roles

# Questions on Role methods s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3233	3323	
==>rl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_progra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3450	3540	
==>rl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_progra <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	387	507	
==>ks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used t <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	387	507	
==>ks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5708	5805	
==>o overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the supercl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5708	5805	
==>o overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7905	8002	
==>o overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the supercl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8394	8528	
==>x eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            war <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13905	14039	
==>x eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            war <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8394	8528	
==>x eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            war <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13899	14033	
==>x eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            war <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	452	561	
==>d {
    $:type_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_children(
            Tree.new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5247	5352	
==>parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5247	5352	
==>parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5247	5352	
==>parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3272	3370	
==>esn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3272	3370	
==>esn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	51	167	
==>fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	51	167	
==>fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	51	167	
==>fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17138	17230	
==>em $h.content_language

The natural language(s) of the intended audience for the message
cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17138	17230	
==>em $h.content_language

The natural language(s) of the intended audience for the message
cont <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1673	1781	
==>ll merge them in memory, but
    you may wish to check for new settings and edit the old
    config file by h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	768	872	
==>acktracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimiza <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1139	1237	
==>acktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiza <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	738	836	
==>acktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiza <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1139	1237	
==>acktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiza <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5273	5376	
==>n::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5273	5376	
==>n::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5273	5376	
==>n::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar, <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	28	128	
==>e v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	28	128	
==>e v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15161	15270	
==>= $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15161	15270	
==>= $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15161	15270	
==>= $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17032	17128	
==>uage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17032	17128	
==>uage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	893	996	
==>e, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	904	1007	
==>e, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2836	2932	
==>f <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2836	2932	
==>f <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2836	2932	
==>f <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	236	340	
==>t

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	236	340	
==>t

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	809	910	
==>lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spars <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	809	910	
==>lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spars <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	809	910	
==>lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spars <==
5	/Users/nnunley/pugs/util/func_refact.pl	1020	1143	
==>it 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11640	11735	
==>s the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(... <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8787	8882	
==>s the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(... <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11640	11735	
==>s the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(... <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8787	8882	
==>s the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(... <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	21689	21858	
==>> comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3512	3675	
==>q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3759	3922	
==>q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11870	11965	
==>method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11870	11965	
==>method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	976	1091	
==>D () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	976	1091	
==>D () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7071	7181	
==>" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7071	7181	
==>" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8288	8394	
==>method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11765	11871	
==>method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	67	170	
==>pen2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	67	170	
==>pen2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	67	170	
==>pen2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	599	729	
==>> ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	804	934	
==>> ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	860	990	
==>> ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10386	10490	
==>return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so ou <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10386	10490	
==>return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3998	4116	
==>@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3998	4116	
==>@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3998	4116	
==>@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurp <==
5	/Users/nnunley/pugs/util/version_h.pl	459	562	
==>file in which the keyword appears
# is modified.
my $revision = 0;

# SVK tries to ask the user question <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5552	5647	
==>('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex')->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5241	5333	
==>-- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5241	5333	
==>-- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5241	5333	
==>-- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7061	7187	
==>ry_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7061	7187	
==>ry_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2697	2787	
==>rt(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2697	2787	
==>rt(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2697	2787	
==>rt(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9919	10022	
==>xtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion : <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1134	1235	
==>xtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion : <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	305	401	
==>ect;
multi method exists ($index ) returns Object;
multi method exists (*@index ) returns List of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7564	7670	
==>Slurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7564	7670	
==>Slurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7564	7670	
==>Slurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PI <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1686	1782	
==>->isa('nil')))
        || confess "bad return value, got($return_value) expected(" . $self->{sig} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6363	6498	
==>=> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6363	6498	
==>=> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6363	6498	
==>=> {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12574	12677	
==>/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12574	12677	
==>/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	88	189	
==>OOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	88	189	
==>OOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	88	189	
==>OOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1326	1421	
==>MITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1326	1421	
==>MITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3579	3684	
==>ame};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $para <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3579	3684	
==>ame};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $para <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4169	4274	
==>ame};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $para <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16572	16668	
==>::KeyedText gives your application the maximum amount of control as
to what the user sees; it nev <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16572	16668	
==>::KeyedText gives your application the maximum amount of control as
to what the user sees; it nev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2209	2308	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2209	2308	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2209	2308	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22955	23053	
==>er tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27507	27605	
==>er tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2318	2455	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2865	3002	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3412	3549	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3147	3241	
==>:count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode interse <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3147	3241	
==>:count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode interse <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	191	307	
==>char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	191	307	
==>char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3639	3765	
==>cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3639	3765	
==>cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3639	3765	
==>cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10417	10533	
==>RM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=he <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10417	10533	
==>RM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=he <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	151	263	
==>lf = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my % <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	151	263	
==>lf = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4637	4730	
==>tions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4637	4730	
==>tions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4637	4730	
==>tions] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11607	11814	
==>, { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11607	11814	
==>, { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37181	37277	
==>any situation where the heading of one source relation is a
full subset of another, the result de <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41730	41826	
==>any situation where the heading of one source relation is a
full subset of another, the result de <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41353	41449	
==>any situation where the heading of one source relation is a
full subset of another, the result de <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11556	11647	
==>tml, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @acc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11556	11647	
==>tml, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @acc <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1207	1321	
==>= shift;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5047	5160	
==>es;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5047	5160	
==>es;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5047	5160	
==>es;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2410	2506	
==>em B<divide (x as num) returns num>

=item B<increment () returns num>

=item B<decrement () retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	809	911	
==>L2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	809	911	
==>L2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	809	911	
==>L2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval" <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12579	12671	
==>C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12579	12671	
==>C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	207	325	
==>$rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless def <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	201	319	
==>$rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless def <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	207	325	
==>$rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless def <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	201	319	
==>$rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless def <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6942	7040	
==>esolved);
print $error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9153	9414	
==>definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5513	5774	
==>definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6362	6623	
==>definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22611	22705	
==>KeyedText would also handle
this.

A program generates a Message that contains all possibly use <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22611	22705	
==>KeyedText would also handle
this.

A program generates a Message that contains all possibly use <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9662	9775	
==>g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decod <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9662	9775	
==>g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decod <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3191	3293	
==>d compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3191	3293	
==>d compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32059	32154	
==>NDLING">.

=back

=head2 Walking an Object

Most objects inherit their ender() and walk() method <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	185	324	
==>( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	185	324	
==>( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5819	5916	
==>:Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5819	5916	
==>:Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5819	5916	
==>:Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	979	1084	
==>1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slur <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	979	1084	
==>1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25394	25490	
==>normal algebra.

A picture of a Relation::Example can look like a table, where each of its tuples <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18662	18840	
==>LE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18662	18840	
==>LE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18662	18840	
==>LE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24943	25037	
==>ale::KeyedText::Message Class

A Message object is a simple container which stores data to be u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24943	25037	
==>ale::KeyedText::Message Class

A Message object is a simple container which stores data to be u <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20383	20477	
==>interface of Relation is entirely object-oriented; you use it by
creating objects from its memb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24935	25029	
==>interface of Relation is entirely object-oriented; you use it by
creating objects from its memb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1553	1644	
==>e() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1553	1644	
==>e() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1553	1644	
==>e() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21944	22072	
==>es => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21944	22072	
==>es => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21944	22072	
==>es => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9252	9351	
==>art` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" o <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9252	9351	
==>art` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	253	368	
==>ub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = su <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	249	362	
==>ub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7413	7500	
==>Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7413	7500	
==>Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7413	7500	
==>Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ------ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1919	2015	
==>($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1919	2015	
==>($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1919	2015	
==>($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13547	13638	
==>slash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13547	13638	
==>slash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4933	5110	
==>pture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { con <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4780	4952	
==>pture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7216	7316	
==>rted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7216	7316	
==>rted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7216	7316	
==>rted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dis <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17430	17626	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23396	23592	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17709	17905	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23675	23871	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	347	463	
==>for my $line (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9521	9653	
==>ngle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9521	9653	
==>ngle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9521	9653	
==>ngle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12679	12806	
==>y Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_ty <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12679	12806	
==>y Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_ty <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5837	5944	
==>return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args he <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5837	5944	
==>return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args he <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	43	142	
==>)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	43	142	
==>)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	43	142	
==>)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6272	6396	
==>eturn @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6272	6396	
==>eturn @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4666	4749	
==>ICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4666	4749	
==>ICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4666	4749	
==>ICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2229	2345	
==>r = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2229	2345	
==>r = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2229	2345	
==>r = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10382	10496	
==>ME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs - <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10382	10496	
==>ME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5642	5756	
==>ke subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9953	10067	
==>ke subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1448	1544	
==>> '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1448	1544	
==>> '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1448	1544	
==>> '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_in <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13090	13206	
==>ing the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13090	13206	
==>ing the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [1 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1088	1187	
==>n.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1088	1187	
==>n.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1635	1734	
==>n.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5384	5511	
==>_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5384	5511	
==>_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	631	748	
==>f->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	631	748	
==>f->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	631	748	
==>f->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1875	1980	
==>($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1875	1980	
==>($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1875	1980	
==>($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsna <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	829	920	
==>n of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Valida <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	829	920	
==>n of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Valida <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9907	10091	
==>close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9907	10091	
==>close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2249	2346	
==>ules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2249	2346	
==>ules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2249	2346	
==>ules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	82	202	
==>e Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV o <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	87	207	
==>e Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3453	3561	
==>s.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3453	3561	
==>s.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3453	3561	
==>s.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11865	12059	
==>eys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11865	12059	
==>eys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1600	1710	
==>gs[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1600	1710	
==>gs[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1600	1710	
==>gs[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5752	5871	
==>ble);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5752	5871	
==>ble);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6342	6461	
==>ble);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7152	7264	
==>talled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to de <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	453	565	
==>talled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to de <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3036	3171	
==>re( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3047	3182	
==>re( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	706	797	
==>lue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	706	797	
==>lue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	706	797	
==>lue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	298	410	
==>eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'ref <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	298	410	
==>eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6051	6156	
==>sses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6051	6156	
==>sses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6051	6156	
==>sses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2855	2949	
==><$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2855	2949	
==><$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7735	7849	
==>s;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7735	7849	
==>s;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4470	4574	
==>]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4470	4574	
==>]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4470	4574	
==>]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3982	4082	
==>Hands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object fo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3982	4082	
==>Hands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2972	3070	
==>(@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2972	3070	
==>(@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2972	3070	
==>(@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->super <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1599	1714	
==>e($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1599	1714	
==>e($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1599	1714	
==>e($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "* <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9573	9681	
==>e( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9573	9681	
==>e( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6794	6923	
==>a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_de <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7258	7387	
==>a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_de <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2270	2397	
==>',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2270	2397	
==>',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2147	2259	
==>quires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self- <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5599	5699	
==>ype{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_roo <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1766	1864	
==>ect
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=po <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1766	1864	
==>ect
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=po <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16112	16209	
==>n will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing r <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16112	16209	
==>n will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6072	6185	
==>= $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq ' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6072	6185	
==>= $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq ' <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	962	1062	
==>$wanted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$wanted];

  re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14593	14692	
==>clude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14593	14692	
==>clude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	17	126	
==>imple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13034	13143	
==>. ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $met <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	17	126	
==>imple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13034	13143	
==>. ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13034	13143	
==>. ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15576	15701	
==>tes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15576	15701	
==>tes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15576	15701	
==>tes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16562	16680	
==>e;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it wi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16562	16680	
==>e;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it wi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1895	2020	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but r <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1895	2020	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6180	6300	
==>aque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6180	6300	
==>aque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6180	6300	
==>aque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14525	14648	
==>s
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14525	14648	
==>s
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14525	14648	
==>s
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6827	6931	
==>"normal";
}

sub runcore2human {
  local $_ = shift;

  $_ eq "jsperl5"and return "JSPERL5 (Perl 6 on Jav <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	824	916	
==>t->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? bit->new(1) : bit- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3067	3268	
==>{
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3067	3268	
==>{
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3067	3268	
==>{
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3806	3905	
==>return $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(gpos => gpos => '\G');
  }) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17684	17776	
==>yof> objects) now have another attribute, C<charmap>,
which is a hash reference holding chara <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	685	812	
==>n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	685	812	
==>n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	685	812	
==>n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	467	604	
==>ixed with other types in the same level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	785	882	
==>t serves as the basis for a method dispatch scope.  Note that methods
differ from normal Code refs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2816	2910	
==>s->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2816	2910	
==>s->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2816	2910	
==>s->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14852	14957	
==>) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14852	14957	
==>) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14852	14957	
==>) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SU <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4240	4334	
==>reference, the match object returns positional
captures as match objects.

=head2 %{}

When use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4240	4334	
==>reference, the match object returns positional
captures as match objects.

=head2 %{}

When use <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3910	4031	
==>m;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can not open '$fname.tex' for writing";
#    print FH <<" <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24000	24108	
==>e "p6_loop_CODE: bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6053	6157	
==>the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5860	5960	
==>the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38196	38288	
==><minus> and C<except>.

=item C<semidifference (Relation::Example $other!) returns Relation:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1501	1608	
==>&& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1501	1608	
==>&& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1501	1608	
==>&& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7370	7468	
==>n.

- "plain" match operators: like 'literal'.



Higher order operators take a list of match opera <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7120	7215	
==>n.
- "plain" match operators: like 'literal'.

Higher order operators take a list of match opera <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3648	3782	
==>:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3648	3782	
==>:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3648	3782	
==>:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9197	9299	
==>@classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9197	9299	
==>@classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1261	1367	
==>e-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1261	1367	
==>e-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1261	1367	
==>e-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rk <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8041	8125	
==>------------------------------------------------------------------
## utility methods <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8041	8125	
==>------------------------------------------------------------------
## utility methods <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1722	1820	
==><`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1722	1820	
==><`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6026	6123	
==>B undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6026	6123	
==>B undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6026	6123	
==>B undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12086	12208	
==>us      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      } <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2488	2604	
==>us      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    } <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2488	2604	
==>us      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    } <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6415	6508	
==>printed
to the selected default filehandle for output (normally STDOUT) as
data is received fr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6415	6508	
==>printed
to the selected default filehandle for output (normally STDOUT) as
data is received fr <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	682	783	
==>d test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	682	783	
==>d test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4006	4103	
==>IL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4006	4103	
==>IL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4006	4103	
==>IL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2797	2931	
==>ns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::Tru <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2797	2931	
==>ns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::Tru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	722	821	
==>.bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 200 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	722	821	
==>.bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 200 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	722	821	
==>.bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 200 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22556	22757	
==>),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6343	6439	
==>e.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5473	5569	
==>e.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6343	6439	
==>e.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5473	5569	
==>e.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset( <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3417	3597	
==>ush @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || [] };
            }
        
            ### find the alternative wit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2284	2419	
==>{
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } els <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2284	2419	
==>{
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } els <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2284	2419	
==>{
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } els <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28448	28547	
==>> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Test::Harness tests itself

  $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1842	1996	
==>, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { be <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2089	2243	
==>, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	434	537	
==>ated
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	434	537	
==>ated
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	434	537	
==>ated
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relat <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14517	14644	
==>or!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14517	14644	
==>or!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6819	6945	
==>1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6819	6945	
==>1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6819	6945	
==>1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2498	2614	
==>ive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2498	2614	
==>ive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2498	2614	
==>ive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Pe <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5012	5103	
==>sent and responses received, then you should use the full object-oriented
interface provided <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5012	5103	
==>sent and responses received, then you should use the full object-oriented
interface provided <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7336	7548	
==>newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7336	7548	
==>newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11736	11834	
==>ole too. So this means that all classes
and roles can be polymorphic to one another. 

Because inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11736	11834	
==>ole too. So this means that all classes
and roles can be polymorphic to one another. 

Because inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11736	11834	
==>ole too. So this means that all classes
and roles can be polymorphic to one another. 

Because inst <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1457	1560	
==>my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1457	1560	
==>my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3146	3237	
==>pParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3146	3237	
==>pParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3146	3237	
==>pParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6068	6204	
==>TA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA sec <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6068	6204	
==>TA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA sec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1183	1281	
==>d ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see chao <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1183	1281	
==>d ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see chao <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1183	1281	
==>d ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see chao <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4573	4687	
==>asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4573	4687	
==>asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4573	4687	
==>asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_in <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	963	1067	
==>two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	963	1067	
==>two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2830	2947	
==>d run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2830	2947	
==>d run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2577	2683	
==>(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2577	2683	
==>(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2657	2763	
==>(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3739	3926	
==>ing - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3624	3805	
==>ing - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8150	8294	
==>$list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4510	4654	
==>$list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5359	5503	
==>$list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3165	3310	
==>{     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3893	4012	
==>{     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6821	6923	
==>$/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matche <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6821	6923	
==>$/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matche <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6821	6923	
==>$/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	951	1050	
==>{scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	951	1050	
==>{scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	951	1050	
==>{scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8986	9085	
==>rload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8689	8786	
==>rload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can retu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	510	659	
==>ing') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	510	659	
==>ing') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6275	6410	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6275	6410	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6275	6410	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5746	6008	
==>f ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5746	6008	
==>f ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.p <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3107	3367	
==>f ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3107	3367	
==>f ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.p <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14821	14915	
==>exist at several Unicode levels at once. Which level you
interact with typically depends on wha <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5613	5735	
==>fix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $sel <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13953	14048	
==>. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vila <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10180	10275	
==>. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vila <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13953	14048	
==>. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vila <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10180	10275	
==>. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vila <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7767	7900	
==>= 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11769	11897	
==>= 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11769	11897	
==>= 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1480	1586	
==>-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
} <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1480	1586	
==>-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4943	5070	
==>alue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4943	5070	
==>alue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4943	5070	
==>alue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2963	3059	
==>e client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2963	3059	
==>e client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6409	6528	
==>) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Uti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6409	6528	
==>) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Uti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13387	13484	
==>x)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13387	13484	
==>x)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13387	13484	
==>x)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	125	231	
==>function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	125	231	
==>function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	125	231	
==>function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	205	310	
==>multi  List::join (Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8732	8835	
==>multi  List::join (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6653	6779	
==>sure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6653	6779	
==>sure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2406	2517	
==>n - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2406	2517	
==>n - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2406	2517	
==>n - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2033	2156	
==>lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2033	2156	
==>lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2033	2156	
==>lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	513	613	
==>}
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	513	613	
==>}
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	642	769	
==>$pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	642	769	
==>$pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1957	2049	
==>new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1957	2049	
==>new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1957	2049	
==>new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8419	8556	
==>method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8419	8556	
==>method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8419	8556	
==>method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4333	4424	
==>ame, 'Object', '... $Object got the right method return value');
is($Object->superclass, und <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6235	6326	
==>ame, 'Object', '... $Object got the right method return value');
is($Object->superclass, und <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1940	2083	
==>n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1928	2071	
==>n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	549	655	
==>rs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	549	655	
==>rs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	549	655	
==>rs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23700	23802	
==>as a value of False, it can not be further changed;
this class defaults it to False.

=back

This is th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28252	28354	
==>as a value of False, it can not be further changed;
this class defaults it to False.

=back

This is th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27065	27167	
==>as a value of False, it can not be further changed;
this class defaults it to False.

=back

This is th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17023	17117	
==>n easily accessable manner, such that would not be possible if its
functionality was subsumed i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17023	17117	
==>n easily accessable manner, such that would not be possible if its
functionality was subsumed i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8169	8261	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *inf <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7299	7391	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *inf <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8169	8261	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *inf <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7299	7391	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *inf <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1043	1135	
==>erm1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1287	1386	
==>ation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1287	1386	
==>ation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1287	1386	
==>ation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elem <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8897	8993	
==>_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::In <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8897	8993	
==>_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12362	12469	
==>sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12362	12469	
==>sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12362	12469	
==>sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3834	3932	
==>g.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Retu <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3834	3932	
==>g.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	408	518	
==>{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->B <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3455	3558	
==>NS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3455	3558	
==>NS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3535	3638	
==>NS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<n <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	428	529	
==>{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->B <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1037	1163	
==>in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "im <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1242	1368	
==>in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "im <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	76	180	
==>ft;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	76	180	
==>ft;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	76	180	
==>ft;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15662	15800	
==>d_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15662	15800	
==>d_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15662	15800	
==>d_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::C <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	900	1004	
==>+;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = reverse @commits;
@d <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5444	5535	
==>o = PIL::PIL1CPerl5::NodesInfo::Object->new($name,$rep,$type,\@pairs);
        $node_named{$ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5195	5328	
==>ntinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }), <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5195	5328	
==>ntinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }), <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6423	6531	
==>nals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6423	6531	
==>nals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6423	6531	
==>nals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18023	18216	
==>$t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21500	21693	
==>$t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21087	21280	
==>$t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mappi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	51	168	
==>nt_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	51	168	
==>nt_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3184	3280	
==>ersion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3184	3280	
==>ersion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13489	13616	
==>head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::Key <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13489	13616	
==>head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::Key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	804	920	
==>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	804	920	
==>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	804	920	
==>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10431	10584	
==>tement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10710	10863	
==>tement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alt <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	916	1037	
==>tr $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	916	1037	
==>tr $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic f <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	965	1060	
==>ray::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1655	1759	
==>ix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1655	1759	
==>ix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1655	1759	
==>ix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7916	8018	
==>compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7916	8018	
==>compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4663	4767	
==>ft;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4663	4767	
==>ft;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4663	4767	
==>ft;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	707	810	
==>:Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	707	810	
==>:Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1098	1222	
==>.
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\", <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1098	1222	
==>.
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\", <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4087	4247	
==>turn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5408	5568	
==>turn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4087	4247	
==>turn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5396	5556	
==>turn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $va <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13587	13683	
==>ment whose key matches C<$key>, false
otherwise.

An unary form is expected. See Hash::delete


= <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17758	17903	
==>ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14179	14324	
==>ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsS <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2369	2482	
==>= 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2369	2482	
==>= 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2369	2482	
==>= 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	722	834	
==>constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	722	834	
==>constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14809	14904	
==>SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14809	14904	
==>SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14809	14904	
==>SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7982	8104	
==>amName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $stringify = sub {
	my($s)=@_;
	$s = <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	241	345	
==>$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


c <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	241	345	
==>$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


c <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4042	4143	
==>@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4042	4143	
==>@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3157	3493	
==>t );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interact <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3157	3493	
==>t );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interact <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2744	2863	
==>l $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2744	2863	
==>l $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2744	2863	
==>l $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkT <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23694	23793	
==>s
named variables, which can be used in any order, or not used at all, or
used multiple times.  Loca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23694	23793	
==>s
named variables, which can be used in any order, or not used at all, or
used multiple times.  Loca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9301	9424	
==>methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9301	9424	
==>methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4004	4120	
==>n for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4004	4120	
==>n for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4004	4120	
==>n for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        m <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6651	6771	
==>s, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14621	14728	
==>g, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct POSIX clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3336	3431	
==>,
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4030	4125	
==>,
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5238	5333	
==>,
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $O <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5166	5311	
==>._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail { <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5166	5311	
==>._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1891	1985	
==>if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1891	1985	
==>if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1891	1985	
==>if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.ref <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	821	921	
==>nts (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set:: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	821	921	
==>nts (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set:: <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1083	1180	
==>");

(also, the latter form is slightly more efficient, though this is
marginal in string COW envi <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1083	1180	
==>");

(also, the latter form is slightly more efficient, though this is
marginal in string COW envi <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	139	235	
==>ke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke): skipped tests have pos point t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1112	1257	
==>*/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1112	1257	
==>*/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1112	1257	
==>*/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scro <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2267	2374	
==>defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2267	2374	
==>defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6056	6156	
==>ing example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5847	5945	
==>ing example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4720	4814	
==>IL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4720	4814	
==>IL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4720	4814	
==>IL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	132	245	
==>stallation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	137	249	
==>stallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	135	247	
==>stallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3352	3458	
==>> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3352	3458	
==>> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4689	4799	
==>d, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4689	4799	
==>d, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	638	740	
==>zy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	638	740	
==>zy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	638	740	
==>zy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1365	1492	
==>les {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FI <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	703	829	
==>les {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1627	1744	
==>elf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1627	1744	
==>elf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1627	1744	
==>elf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods w <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17149	17257	
==>0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(R <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17306	17414	
==>0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5057	5151	
==>";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5057	5151	
==>";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5057	5151	
==>";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3203	3335	
==>();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3203	3335	
==>();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12629	12722	
==>ks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12629	12722	
==>ks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12629	12722	
==>ks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	236	528	
==>ol = $_[0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # norm <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6262	6396	
==>eys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4163	4279	
==>undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. Se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4163	4279	
==>undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. Se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4163	4279	
==>undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. Se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17547	17710	
==>-> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21024	21187	
==>-> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20611	20774	
==>-> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapp <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9700	9800	
==>hese
method _head() returns Array { return }
method _tail() returns Array { return }

# What we imple <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9700	9800	
==>hese
method _head() returns Array { return }
method _tail() returns Array { return }

# What we imple <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	16	123	
==>use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2tim <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	16	123	
==>use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2tim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9658	9757	
==>'lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9658	9757	
==>'lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9658	9757	
==>'lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2648	2775	
==>],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26mai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2648	2775	
==>],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26mai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2648	2775	
==>],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26mai <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5899	5992	
==>ngine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5899	5992	
==>ngine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model doc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	657	864	
==>,
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	657	864	
==>,
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	657	864	
==>,
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_p <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10155	10261	
==>x = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $ind <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10155	10261	
==>x = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $ind <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3405	3538	
==>al>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13109	13219	
==>ct.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16586	16696	
==>ct.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15948	16058	
==>ct.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8367	8472	
==>rn "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1146	1249	
==>---------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1146	1249	
==>---------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1146	1249	
==>---------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles an <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9694	9792	
==>, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Ret <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9694	9792	
==>, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13937	14035	
==>::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13937	14035	
==>::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13937	14035	
==>::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    c <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9919	10016	
==>an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new feat <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9977	10074	
==>an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new feat <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1145	1243	
==>nd current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1145	1243	
==>nd current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	809	978	
==>) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	809	978	
==>) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	809	978	
==>) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                ret <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	160	259	
==>ially
forms a linked list through the rule as it is executed, but the linked
list is done in code (i <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	160	259	
==>ially
forms a linked list through the rule as it is executed, but the linked
list is done in code (i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	343	572	
==>ontrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	343	572	
==>ontrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	343	572	
==>ontrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err ins <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6935	7152	
==>se {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join(" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6935	7152	
==>se {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join(" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15526	15627	
==>message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15526	15627	
==>message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2029	2120	
==>rl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2029	2120	
==>rl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2029	2120	
==>rl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".re <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32430	32578	
==>urns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33085	33233	
==>urns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10317	10446	
==>) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              description => $description,
              passed <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	863	984	
==>) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passed <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	863	984	
==>) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4222	4343	
==>: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @ol <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4222	4343	
==>: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @ol <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16244	16353	
==>'s value
    my $builtin = $self->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31889	31986	
==>ry generates an error
message and wants it shown to the user, the main program would check each
of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31889	31986	
==>ry generates an error
message and wants it shown to the user, the main program would check each
of <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2784	2960	
==>Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6261	6437	
==>Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6509	6603	
==>on of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6509	6603	
==>on of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6509	6603	
==>on of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8315	8416	
==>SS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=hea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8315	8416	
==>SS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=hea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8315	8416	
==>SS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22326	22420	
==>otice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22326	22420	
==>otice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2527	2666	
==>ence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '-',
        block => sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3140	3244	
==>ubpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3140	3244	
==>ubpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3140	3244	
==>ubpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15560	15660	
==>s may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigge <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15560	15660	
==>s may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5515	5662	
==>'$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5515	5662	
==>'$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5515	5662	
==>'$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5737	5853	
==>it("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5795	5911	
==>it("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3935	4129	
==>dy.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7412	7606	
==>dy.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6378	6572	
==>dy.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pro <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11120	11214	
==>ns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count ret <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11120	11214	
==>ns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7653	7775	
==>able_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'pri <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7653	7775	
==>able_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20565	20781	
==>lf;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20565	20781	
==>lf;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20565	20781	
==>lf;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9064	9186	
==>or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Avail <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10541	10663	
==>or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Avail <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4032	4136	
==>::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4032	4136	
==>::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3334	3424	
==>cher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3334	3424	
==>cher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3334	3424	
==>cher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11437	11578	
==>>new('new'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	397	495	
==>BJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	397	495	
==>BJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32310	32406	
==>ts its Template modules to come
from Perl modules, but in the future they may alternately be some <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32310	32406	
==>ts its Template modules to come
from Perl modules, but in the future they may alternately be some <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	624	716	
==>c($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc( <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	624	716	
==>c($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	48	135	
==>nternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	48	135	
==>nternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	48	135	
==>nternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impor <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2188	2333	
==>e: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2188	2333	
==>e: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8431	8559	
==>:__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1909	2015	
==>n.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method un <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1909	2015	
==>n.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3066	3174	
==>rent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3066	3174	
==>rent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3066	3174	
==>rent_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        un <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1296	1402	
==>$one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $on <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1296	1402	
==>$one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6418	6519	
==>cts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6418	6519	
==>cts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6418	6519	
==>cts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_na <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8560	8650	
==>rammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2385	2475	
==>rammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1549	1793	
==>Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localizati <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1549	1793	
==>Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localizati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1053	1155	
==>ck?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1053	1155	
==>ck?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1053	1155	
==>ck?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, wh <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10011	10110	
==>t.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10011	10110	
==>t.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2534	2630	
==>ys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2534	2630	
==>ys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2534	2630	
==>ys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1018	1115	
==>CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
a <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1018	1115	
==>CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	597	690	
==>thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	597	690	
==>thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	597	690	
==>thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7675	7818	
==>'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7675	7818	
==>'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6398	6481	
==>d_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6398	6481	
==>d_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6398	6481	
==>d_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7921	8038	
==>pected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    el <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7979	8096	
==>pected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6427	6538	
==>) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6427	6538	
==>) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6427	6538	
==>) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	720	878	
==>push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamelessly s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	913	1012	
==>that
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	913	1012	
==>that
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_com <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12289	12385	
==>hat new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12289	12385	
==>hat new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6124	6245	
==>ethods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6124	6245	
==>ethods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6124	6245	
==>ethods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1452	1556	
==>onfess "Index must be a num type";
    # replace the value with a nil type
    $self->[$index->to_native] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	693	794	
==>het version for an implementation
and tests.

- Quantified matches could use less stack space.

- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8900	9043	
==>eop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9093	9236	
==>eop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5471	5575	
==>->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5471	5575	
==>->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5471	5575	
==>->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SEL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9665	9803	
==>ify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9665	9803	
==>ify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9665	9803	
==>ify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	881	985	
==>y the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	881	985	
==>y the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3505	3616	
==>];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3505	3616	
==>];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3505	3616	
==>];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2896	2993	
==>( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( rec <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2896	2993	
==>( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( rec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	564	674	
==>on\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	564	674	
==>on\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	564	674	
==>on\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1633	1729	
==>multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1633	1729	
==>multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1489	1596	
==>ment_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_li <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1489	1596	
==>ment_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6966	7076	
==>prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6966	7076	
==>prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6966	7076	
==>prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "f <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3861	3965	
==>/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
} <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3861	3965	
==>/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2149	2363	
==>boxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2149	2363	
==>boxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2149	2363	
==>boxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13871	13988	
==>cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13865	13982	
==>cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4652	4784	
==>@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13077	13209	
==>@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15688	15820	
==>@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17176	17308	
==>@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21859	21991	
==>@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8515	8633	
==>TO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8515	8633	
==>TO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8515	8633	
==>TO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3936	4046	
==>] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4153	4263	
==>] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34718	34819	
==>);
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34718	34819	
==>);
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2717	2817	
==>SBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2717	2817	
==>SBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2717	2817	
==>SBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1326	1426	
==>s to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1326	1426	
==>s to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1326	1426	
==>s to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20967	21058	
==>st map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database man <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20967	21058	
==>st map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database man <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13577	13688	
==>ATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_)[2]&0020)) }
		    split quot <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	3180	3291	
==>); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3506	3604	
==>write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  clo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3506	3604	
==>write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  clo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3506	3604	
==>write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	724	854	
==>macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	724	854	
==>macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	724	854	
==>macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7685	7788	
==>echunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7685	7788	
==>echunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3556	3661	
==>t.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3556	3661	
==>t.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3556	3661	
==>t.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19536	19633	
==>nes within a given block between a C<use> and C<no> statement
are marked to be passed to that comp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19536	19633	
==>nes within a given block between a C<use> and C<no> statement
are marked to be passed to that comp <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	903	1016	
==>st );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	891	1004	
==>st );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2592	2685	
==>xing, return value checking and autoboxing/un-boxing
# TODO - add support for optional paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2592	2685	
==>xing, return value checking and autoboxing/un-boxing
# TODO - add support for optional paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2592	2685	
==>xing, return value checking and autoboxing/un-boxing
# TODO - add support for optional paramet <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9373	9504	
==>),
            _preprocess_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6014	6110	
==>ix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5144	5240	
==>ix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6014	6110	
==>ix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5144	5240	
==>ix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	579	686	
==>ap_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	579	686	
==>ap_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	579	686	
==>ap_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17637	17730	
==>t::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYN <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17637	17730	
==>t::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	94	223	
==>b new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	94	223	
==>b new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	94	223	
==>b new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1369	1466	
==>ck 4

The procedural interface does the same thing within a single call, hiding the 
full complexi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1369	1466	
==>ck 4

The procedural interface does the same thing within a single call, hiding the 
full complexi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9014	9143	
==>ool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8700	8826	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1039	1144	
==>)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1039	1144	
==>)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1039	1144	
==>)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	187	319	
==>SS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remot <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	187	319	
==>SS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remot <==
5	/Users/nnunley/pugs/util/importgraph.pl	1336	1437	
==>ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefined clusters
sub setup_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1110	1202	
==>&::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1110	1202	
==>&::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_ba <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7276	7405	
==>td_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $ir <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7276	7405	
==>td_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $ir <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6925	7020	
==>);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matche <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6925	7020	
==>);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matche <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6925	7020	
==>);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	276	380	
==>tor (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	276	380	
==>tor (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	276	380	
==>tor (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4512	4608	
==>t support OO, methods are
implemented as hash keys to code refs. The only function this module
ex <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4512	4608	
==>t support OO, methods are
implemented as hash keys to code refs. The only function this module
ex <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	399	651	
==>q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	399	651	
==>q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4333	4439	
==>_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4333	4439	
==>_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4333	4439	
==>_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pac <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	4364	4479	
==>dentity (and this message).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7831	7921	
==>, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7898	7988	
==>, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1656	1746	
==>, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1723	1813	
==>, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2729	2829	
==>$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2729	2829	
==>$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2729	2829	
==>$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	907	1003	
==>is is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	907	1003	
==>is is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6844	6950	
==>_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5047	5153	
==>js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6844	6950	
==>_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5047	5153	
==>js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5047	5153	
==>js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile an <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1943	2084	
==>{
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_st <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1943	2084	
==>{
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	485	599	
==>efix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	485	599	
==>efix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	485	599	
==>efix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2824	2924	
==>>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2824	2924	
==>>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14407	14498	
==>xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14407	14498	
==>xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14407	14498	
==>xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2814	2954	
==>rated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2814	2954	
==>rated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2695	2792	
==>unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2695	2792	
==>unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2695	2792	
==>unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$: <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14004	14172	
==>v, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4101	4245	
==>v, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4101	4245	
==>v, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4101	4245	
==>v, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is st <==
5	/Users/nnunley/pugs/util/testgraph.pl	131	222	
==>::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, qw(inl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3622	3737	
==>es
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3622	3737	
==>es
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3622	3737	
==>es
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	820	916	
==>ric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	820	916	
==>ric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7505	7629	
==>h(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7505	7629	
==>h(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7505	7629	
==>h(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1616	1721	
==>t '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1616	1721	
==>t '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1082	1185	
==>lass, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1082	1185	
==>lass, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10486	10583	
==>classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10486	10583	
==>classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10486	10583	
==>classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5254	5346	
==>Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5254	5346	
==>Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedT <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10594	10720	
==>array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10594	10720	
==>array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10594	10720	
==>array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].u <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1637	1732	
==>dule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugin <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1637	1732	
==>dule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10456	10550	
==>en set, and could potentially
never be performed at all.  They validate everything except
well- <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10456	10550	
==>en set, and could potentially
never be performed at all.  They validate everything except
well- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1448	1534	
==>b circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1448	1534	
==>b circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1448	1534	
==>b circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3172	3319	
==>}
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3172	3319	
==>}
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3172	3319	
==>}
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15144	15238	
==>ve this attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15144	15238	
==>ve this attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13243	13411	
==>rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3420	3568	
==>rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3420	3568	
==>rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3420	3568	
==>rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	167	284	
==>ntainer::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5666	5792	
==>oundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5666	5792	
==>oundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34117	34228	
==>return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34117	34228	
==>return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34117	34228	
==>return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1662	1788	
==>q "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1662	1788	
==>q "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1662	1788	
==>q "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      % <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5685	5790	
==>s_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5685	5790	
==>s_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @sp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4582	4755	
==>cc,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching cons <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4443	4606	
==>cc,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	259	368	
==>ush
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	259	368	
==>ush
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	259	368	
==>ush
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * ne <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16514	16605	
==>files), often even while the program is executing.

Locale::KeyedText gives your application <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16514	16605	
==>files), often even while the program is executing.

Locale::KeyedText gives your application <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	67	169	
==>Schläft { lauf_weg();  }
	when 'hungrig'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2647	2764	
==>on;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2647	2764	
==>on;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2647	2764	
==>on;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        loc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12780	12894	
==>if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12780	12894	
==>if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_E <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6885	6984	
==>ld
ignore the opening one. However, this means I should defer events until I get to the
end of the l <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6885	6984	
==>ld
ignore the opening one. However, this means I should defer events until I get to the
end of the l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9619	9713	
==>se($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9619	9713	
==>se($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9619	9713	
==>se($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - g <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2592	2697	
==>le->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Var <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2592	2697	
==>le->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Var <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14892	15000	
==>t ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@resu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14892	15000	
==>t ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@resu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14892	15000	
==>t ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@resu <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3236	3344	
==>t ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@resu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8323	8429	
==>ry 
(a namespace or a Grammar name).

=head2 add_op ()

Instance method.  Adds a new operator to the c <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6044	6169	
==>$x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6044	6169	
==>$x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.sta <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37062	37155	
==>uation where a pair of source
relations have zero attributes in common, their joining degenera <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41611	41704	
==>uation where a pair of source
relations have zero attributes in common, their joining degenera <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41234	41327	
==>uation where a pair of source
relations have zero attributes in common, their joining degenera <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37313	37467	
==>}
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37313	37467	
==>}
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37313	37467	
==>}
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5099	5222	
==>tr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5099	5222	
==>tr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7833	7942	
==>nc);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    ret <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7833	7942	
==>nc);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4475	4573	
==>ng methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month( <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4475	4573	
==>ng methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24311	24408	
==>le are all the same as those of
all the other tuples.

For purposes of the Relation::Example class <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14888	15008	
==>th of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number o <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19056	19176	
==>th of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number o <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	497	615	
==>/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	497	615	
==>/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	416	517	
==>ion cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::import { }

sub node($h,$t) { <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	19923	20015	
==>san_module_imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatever) {
    die "Can't lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8293	8422	
==>te
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8293	8422	
==>te
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8293	8422	
==>te
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9375	9465	
==>$?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9375	9465	
==>$?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7071	7245	
==>_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7071	7245	
==>_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2978	3077	
==>d $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2978	3077	
==>d $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2978	3077	
==>d $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6059	6186	
==>ute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6059	6186	
==>ute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6059	6186	
==>ute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8691	8783	
==>ual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schnei <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8691	8783	
==>ual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schnei <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	693	838	
==>urn unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	665	805	
==>urn unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2134	2236	
==>ef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2134	2236	
==>ef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2134	2236	
==>ef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14299	14450	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14299	14450	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14299	14450	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so. <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14371	14483	
==>($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $se <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1851	1963	
==>($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6658	6773	
==>r is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = sp <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6658	6773	
==>r is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2766	2873	
==>);
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2766	2873	
==>);
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2766	2873	
==>);
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	810	919	
==>f PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	810	919	
==>f PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	810	919	
==>f PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1012	1113	
==>@with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@wi <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1012	1113	
==>@with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2710	2826	
==>shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2710	2826	
==>shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2710	2826	
==>shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $pa <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10993	11084	
==>item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name ret <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10993	11084	
==>item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2059	2172	
==>^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET| <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2059	2172	
==>^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET| <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2628	2736	
==>ceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2628	2736	
==>ceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2628	2736	
==>ceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9253	9372	
==>unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1849	1947	
==>le and others.

This program is free software; you can redistribute it and/or modify it
under the s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1849	1947	
==>le and others.

This program is free software; you can redistribute it and/or modify it
under the s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12466	12562	
==>|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that a <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12466	12562	
==>|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that a <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24955	25051	
==>ugh
 * that pregcomp() supplies a regmust only if the r.e. contains something
 * potentially expe <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1172	1287	
==>lders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1172	1287	
==>lders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4355	4449	
==>.Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4355	4449	
==>.Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4355	4449	
==>.Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13442	13577	
==>+ scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13442	13577	
==>+ scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13442	13577	
==>+ scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    P <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40613	40712	
==>NTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40613	40712	
==>NTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5255	5466	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5255	5466	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5255	5466	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6447	6543	
==>Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6447	6543	
==>Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12589	12741	
==>v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12589	12741	
==>v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12589	12741	
==>v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2168	2282	
==>nt_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2168	2282	
==>nt_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7611	7756	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7611	7756	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7611	7756	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10314	10423	
==>\$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10308	10417	
==>\$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40360	40470	
==>ref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40360	40470	
==>ref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40360	40470	
==>ref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this-> <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10399	10493	
==>are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( clos <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10399	10493	
==>are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( clos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	805	931	
==>bel, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	805	931	
==>bel, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	805	931	
==>bel, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        ( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6638	6733	
==>add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibli <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6638	6733	
==>add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibli <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16037	16133	
==>uman user.  In some
situations, a shared program component may raise such a condition, and one
ap <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16037	16133	
==>uman user.  In some
situations, a shared program component may raise such a condition, and one
ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	264	358	
==>new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	264	358	
==>new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	264	358	
==>new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7860	7972	
==>_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $ha <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7860	7972	
==>_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $ha <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7860	7972	
==>_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2703	2797	
==>>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2703	2797	
==>>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9309	9419	
==>h @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11624	11734	
==>h @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8959	9066	
==>fference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_dif <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8959	9066	
==>fference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2185	2292	
==>d
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Boo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2185	2292	
==>d
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Boo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2185	2292	
==>d
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Boo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20442	20533	
==>e the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true valu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20442	20533	
==>e the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true valu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11011	11120	
==>$code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11161	11270	
==>$code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	265	365	
==>!@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	265	365	
==>!@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	265	365	
==>!@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7150	7261	
==>->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7150	7261	
==>->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1819	1922	
==>->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1819	1922	
==>->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14574	14710	
==>$self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14574	14710	
==>$self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14574	14710	
==>$self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1609	1703	
==>/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $r <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1609	1703	
==>/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13131	13246	
==>1" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name= <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6339	6445	
==>);
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, & <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6339	6445	
==>);
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, & <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1048	1149	
==>ent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1048	1149	
==>ent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1377	1496	
==>+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3673	3792	
==>+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1377	1496	
==>+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3673	3792	
==>+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	207	314	
==>();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4744	4864	
==>r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4744	4864	
==>r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10320	10411	
==>$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10320	10411	
==>$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10320	10411	
==>$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7313	7444	
==>Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	614	745	
==>Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	621	726	
==>ess({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $bea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	621	726	
==>ess({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $bea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	621	726	
==>ess({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $bea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	852	950	
==>\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	852	950	
==>\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	852	950	
==>\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pN <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2536	2628	
==>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Varia <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2536	2628	
==>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Varia <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5625	5735	
==>,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TV <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5625	5735	
==>,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TV <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2522	2632	
==>,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TV <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	373	482	
==>ter? requires peeking in, might be a
    ### catch22 if we don't do it from repository metadata
    my $path = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18561	18653	
==>edded class that is I<entirely> redundant (that is, I<every>
character in that embedded class <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1494	1671	
==>ut once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4971	5148	
==>ut once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3901	4078	
==>ut once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1015	1121	
==>0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1015	1121	
==>0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9953	10093	
==>args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9953	10093	
==>args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9953	10093	
==>args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5 <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	925	1019	
==>- instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	925	1019	
==>- instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1670	1779	
==>ority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1670	1779	
==>ority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1670	1779	
==>ority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37973	38066	
==>n that subroutine's result, which is a Template text
string if the module recognizes $msg_key, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37973	38066	
==>n that subroutine's result, which is a Template text
string if the module recognizes $msg_key, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11880	12075	
==>'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS', <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11880	12075	
==>'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8453	8585	
==>n $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8453	8585	
==>n $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8453	8585	
==>n $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	776	925	
==>{
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8858	8950	
==>y & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3787	3879	
==>y & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8858	8950	
==>y & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3787	3879	
==>y & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	15	129	
==>it;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	15	129	
==>it;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	15	129	
==>it;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (% <==
5	/Users/nnunley/pugs/util/run-smoke.pl	635	738	
==>n   = $ARGV[1] or die "Need HTML output file location";
my $optional_args   = $ARGV[2] || "";

my $smoke <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	584	686	
==>n {
	die "virtual method 'run' called on @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Run <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7403	7500	
==>$P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp:: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8346	8443	
==>$P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp:: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9080	9177	
==>$P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp:: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10841	10938	
==>$P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp:: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12562	12659	
==>$P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1815	1921	
==>cii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1875	1981	
==>cii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2501	2598	
==>this by actually running a command.

Returns the perl version on success and false on failure.

=c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28014	28108	
==>any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32566	32660	
==>any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mappi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1875	2043	
==>of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2080	2248	
==>of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2143	2311	
==>of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            ' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	289	386	
==>handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs- <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	289	386	
==>handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1777	1895	
==>The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5254	5372	
==>The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4184	4302	
==>The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14562	14666	
==>enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14562	14666	
==>enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	780	925	
==>ackage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	780	925	
==>ackage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        " <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5006	5149	
==>e$makefile$postamble" or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5503	5635	
==>[-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, $class;
  }
}


{
  pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2801	2903	
==>&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2801	2903	
==>&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2801	2903	
==>&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,und <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7897	8017	
==>you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7897	8017	
==>you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7897	8017	
==>you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9244	9332	
==>sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3069	3157	
==>sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->su <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	227	406	
==>=> Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sy <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3553	3706	
==>s defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @stat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4481	4631	
==>s defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @stat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3442	3592	
==>s defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4481	4631	
==>s defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @stat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17985	18105	
==>al)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17023	17143	
==>al)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17985	18105	
==>al)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17023	17143	
==>al)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120 <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9308	9408	
==>items_opt([])                --> {true}.
p5_charset_item(class_neg(X)) --> "[:^", charset_identifier( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9274	9397	
==>);
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9274	9397	
==>);
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9274	9397	
==>);
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$val <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1646	1749	
==>ot_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1646	1749	
==>ot_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2885	3000	
==>chunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shif <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2885	3000	
==>chunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	112	211	
==>die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	112	211	
==>die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	112	211	
==>die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9010	9125	
==>on::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the inv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9808	9923	
==>on::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the inv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10717	10832	
==>on::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the inv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11543	11658	
==>on::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the inv <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17258	17370	
==>UT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2367	2476	
==>%channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2367	2476	
==>%channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6560	6651	
==>unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6560	6651	
==>unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6560	6651	
==>unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1189	1285	
==>le). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1189	1285	
==>le). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1189	1285	
==>le). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2605	2700	
==>ng with the exact same key twice can compromise both encryptions.

If two different data streams <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2605	2700	
==>ng with the exact same key twice can compromise both encryptions.

If two different data streams <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14600	14726	
==>e $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14600	14726	
==>e $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14600	14726	
==>e $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6886	7012	
==>e $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5390	5516	
==>e $i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4948	5063	
==>--link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4948	5063	
==>--link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4948	5063	
==>--link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HT <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	256	350	
==>:IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	256	350	
==>:IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	332	471	
==>_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	816	955	
==>_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	234	369	
==>_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30296	30401	
==>to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descenda <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1719	1822	
==>ts.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# Nice debugging outp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12303	12402	
==>6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12303	12402	
==>6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12303	12402	
==>6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12570	12667	
==>( $field, ... )

This function removes the header fields with the specified names.

The header fie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12570	12667	
==>( $field, ... )

This function removes the header fields with the specified names.

The header fie <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2292	2414	
==>ility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', ' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2292	2414	
==>ility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5207	5304	
==>ce."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5207	5304	
==>ce."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5207	5304	
==>ce."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2886	3016	
==>{ \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $pro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1508	1638	
==>{ \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13441	13545	
==>Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13441	13545	
==>Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13441	13545	
==>Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2475	2585	
==>untime

    # update: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +sh <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2393	2500	
==>untime
    # update: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	544	643	
==>$subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	544	643	
==>$subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	544	643	
==>$subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3086	3205	
==>fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3086	3205	
==>fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13123	13232	
==>s->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13123	13232	
==>s->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13123	13232	
==>s->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Conta <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7753	7997	
==>alue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                ce <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7753	7997	
==>alue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                ce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	739	830	
==>ce_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	739	830	
==>ce_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	739	830	
==>ce_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4781	4951	
==>ub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4781	4951	
==>ub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4781	4951	
==>ub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar-> <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3394	3522	
==>ntinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized". <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3394	3522	
==>ntinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized". <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15042	15139	
==>on

Many times during a program's operation, the program (or a package it uses)
will need to displ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15042	15139	
==>on

Many times during a program's operation, the program (or a package it uses)
will need to displ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7404	7486	
==>ectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7404	7486	
==>ectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7404	7486	
==>ectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2960	3059	
==>he bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	764	863	
==>tes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2960	3059	
==>he bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAM <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	764	863	
==>tes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	764	863	
==>tes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3199	3401	
==>et(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3199	3401	
==>et(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3145	3279	
==>s([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3145	3279	
==>s([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3145	3279	
==>s([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17657	17810	
==>=> 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17657	17810	
==>=> 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15168	15274	
==>@lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15168	15274	
==>@lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15168	15274	
==>@lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9240	9371	
==>rom position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned be <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9240	9371	
==>rom position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned be <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9240	9371	
==>rom position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned be <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2426	2527	
==>hObj );
  if ( (substr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->fro <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6552	6651	
==>nsure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7873	8003	
==>interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13467	13597	
==>interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7873	8003	
==>interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13461	13591	
==>interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	297	409	
==>loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potent <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3096	3229	
==>et)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ { <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3096	3229	
==>et)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1911	2020	
==>hod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1911	2020	
==>hod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1911	2020	
==>hod));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=he <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3552	3671	
==>le @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3552	3671	
==>le @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8510	8628	
==>_val_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6224	6334	
==>$n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6224	6334	
==>$n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2954	3079	
==>cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2954	3079	
==>cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	180	281	
==>in);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	180	281	
==>in);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	180	281	
==>in);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2j <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	84	190	
==>ode = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _t <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	84	190	
==>ode = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10208	10312	
==>-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10208	10312	
==>-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10208	10312	
==>-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1479	1587	
==>";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1479	1587	
==>";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1479	1587	
==>";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	517	609	
==>e 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_obje <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	517	609	
==>e 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	670	889	
==>,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	671	890	
==>,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1364	1466	
==>r).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1364	1466	
==>r).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1364	1466	
==>r).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
me <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2138	2269	
==>t $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool: <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2138	2269	
==>t $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	563	663	
==>---
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	563	663	
==>---
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	563	663	
==>---
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2500	2613	
==>IL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2500	2613	
==>IL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2500	2613	
==>IL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16878	16976	
==>herwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16878	16976	
==>herwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	880	1002	
==>n join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	880	1002	
==>n join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	151	252	
==>require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	151	252	
==>require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	151	252	
==>require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11256	11376	
==>{
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11256	11376	
==>{
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11256	11376	
==>{
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38199	38293	
==>ut possibly empty) Template text string in
its positional parameter $text (a string), and a Mes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38199	38293	
==>ut possibly empty) Template text string in
its positional parameter $text (a string), and a Mes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	929	1042	
==>lX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	929	1042	
==>lX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	929	1042	
==>lX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14379	14475	
==>s_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14379	14475	
==>s_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	268	393	
==>rns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($v <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	268	393	
==>rns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($v <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12385	12483	
==>losest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both prev <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12385	12483	
==>losest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both prev <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34610	34700	
==>xp::Parser::THING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37183	37326	
==>L::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37183	37326	
==>L::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37183	37326	
==>L::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4787	4894	
==>dd ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4787	4894	
==>dd ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	603	711	
==>e Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	603	711	
==>e Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	603	711	
==>e Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOp <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1005	1101	
==>}
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1005	1101	
==>}
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	134	542	
==>.);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	134	542	
==>.);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Ros <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2151	2330	
==>tr->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2151	2330	
==>tr->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2151	2330	
==>tr->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5513	5686	
==>.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $te <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5513	5686	
==>.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2693	2788	
==>"Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2693	2788	
==>"Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2693	2788	
==>"Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»" <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	708	822	
==>[i]);
    printf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $te <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13425	13516	
==>s) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18512	18603	
==>s) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13425	13516	
==>s) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18512	18603	
==>s) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4629	4752	
==>eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4641	4764	
==>eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6521	6634	
==>nt: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isName <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6521	6634	
==>nt: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isName <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6521	6634	
==>nt: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isName <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4111	4205	
==>ersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3238	3332	
==>ersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4111	4205	
==>ersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3238	3332	
==>ersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two) <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4978	5065	
==>_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape_sequence { \\ <[t <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	520	626	
==>pen     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	520	626	
==>pen     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14271	14383	
==>*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14271	14383	
==>*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1073	1182	
==>ate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1073	1182	
==>ate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1073	1182	
==>ate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9627	9738	
==>rn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10463	10574	
==>rn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	262	362	
==>y ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	262	362	
==>y ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	262	362	
==>y ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5522	5644	
==>'$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5522	5644	
==>'$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5522	5644	
==>'$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1656	1753	
==>o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infi <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1656	1753	
==>o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4760	4897	
==>1], method => $_[3], param => $_[4], } }
        

    | MY NUM attr 
        { $_[0]->{out}= { 
            op1 => { op => $_[1]{stmt} }, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3553	3653	
==>text.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3553	3653	
==>text.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3553	3653	
==>text.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array)) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15216	15310	
==>< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() method for you right <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1836	1965	
==>age is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := su <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1836	1965	
==>age is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2497	2606	
==>})')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2497	2606	
==>})')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2497	2606	
==>})')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values ( <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4257	4351	
==>ot
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comm <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4257	4351	
==>ot
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6933	7024	
==>ethod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6933	7024	
==>ethod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6933	7024	
==>ethod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher }) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2105	2246	
==>ch}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2105	2246	
==>ch}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2625	2722	
==>'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2625	2722	
==>'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2625	2722	
==>'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14082	14211	
==>$self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # bounded quan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18038	18155	
==>ts to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defau <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17076	17193	
==>ts to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defau <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18038	18155	
==>ts to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defau <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17076	17193	
==>ts to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defau <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	17672	17766	
==>t => \&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_callbac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14527	14619	
==>:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14527	14619	
==>:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14527	14619	
==>:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_met <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	549	640	
==>time::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })-> <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15723	15820	
==>on(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(mat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18782	18875	
==>r C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_ti <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17825	17918	
==>r C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_ti <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18782	18875	
==>r C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_ti <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17825	17918	
==>r C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_ti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6387	6498	
==>';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6399	6510	
==>';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2166	2265	
==>f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2166	2265	
==>f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2166	2265	
==>f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS: <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6106	6252	
==>ew('$string'),
                Val->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '& <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24713	24808	
==>he C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCON <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23477	23572	
==>he C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCON <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24713	24808	
==>he C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCON <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23477	23572	
==>he C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCON <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6947	7158	
==>_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6947	7158	
==>_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6947	7158	
==>_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4675	4767	
==>t1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4675	4767	
==>t1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( r <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2391	2491	
==>hift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{c <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15998	16097	
==>hift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2214	2293	
==>er:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2214	2293	
==>er:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2214	2293	
==>er:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_post <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6391	6494	
==>er_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the str <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5464	5567	
==>er_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the str <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6391	6494	
==>er_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the str <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5464	5567	
==>er_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the str <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7221	7323	
==>ub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15454	15610	
==>($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15454	15610	
==>($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15454	15610	
==>($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6686	6783	
==>document identified by a URL and stores it in the file. The
return value is the HTTP response code <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6686	6783	
==>document identified by a URL and stores it in the file. The
return value is the HTTP response code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31318	31502	
==>$ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31318	31502	
==>$ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31318	31502	
==>$ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5754	5848	
==>Not Found : cannot find object ($child_to_remove) in self";
}

## ----------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5754	5848	
==>Not Found : cannot find object ($child_to_remove) in self";
}

## ----------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3460	3585	
==>rrent match, even if there is another
        match inside the closure
    $/()  
        just the capture - what's returned i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2463	2585	
==>CK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2463	2585	
==>CK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2463	2585	
==>CK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2416	2509	
==>yml), $html_location) == 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($htm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2259	2369	
==>}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2259	2369	
==>}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2259	2369	
==>}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)", <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11590	11684	
==><All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which ar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11590	11684	
==><All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3164	3305	
==>| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3164	3305	
==>| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3164	3305	
==>| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27725	27860	
==>nstant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28004	28139	
==>nstant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1568	1719	
==>$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1568	1719	
==>$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1568	1719	
==>$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  su <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13636	13742	
==>l items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13636	13742	
==>l items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	682	931	
==>uit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	682	931	
==>uit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1578	1692	
==>$x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1578	1692	
==>$x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1578	1692	
==>$x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3736	3846	
==>= $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debuggi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3736	3846	
==>= $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debuggi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3736	3846	
==>= $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debuggi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4163	4259	
==>ructor generally include some sort of key, and sometimes also 
parameters for block size and so o <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4163	4259	
==>ructor generally include some sort of key, and sometimes also 
parameters for block size and so o <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19120	19227	
==>$hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19120	19227	
==>$hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rose <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	5628	5729	
==>(skip => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller. <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2863	2962	
==>:PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    h <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2863	2962	
==>:PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	953	1057	
==>eturn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	953	1057	
==>eturn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	953	1057	
==>eturn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2588	2690	
==>Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2492	2590	
==>Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{ <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3490	3599	
==>_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) } <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1802	1909	
==>_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) } <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2339	2446	
==>_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) } <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2901	3008	
==>_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) } <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48542	48632	
==>on')   => attribute->new('$:version'   => 'str')));
$::Module->send('add_attribute', (symbo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1882	2005	
==>>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1882	2005	
==>>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1882	2005	
==>>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15941	16051	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19418	19528	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1785	1921	
==>value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1785	1921	
==>value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1785	1921	
==>value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8332	8456	
==>, $1) if $o =~ /([^0-7;])/;

      if ($cc) {
        $S->error(0, "\\0[A;B] in character class") if @oct > 1;
        return <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1360	1456	
==>" is duplicated, and has been alocated $symbol" if defined $symbol;

	my $result = $self->inner_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7018	7163	
==>)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7018	7163	
==>)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7018	7163	
==>)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1573	1675	
==>et::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pu <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1573	1675	
==>et::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pu <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7583	7759	
==>)
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.clos <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7583	7759	
==>)
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.clos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4656	4761	
==>es

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4656	4761	
==>es

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4656	4761	
==>es

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13311	13436	
==>off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13311	13436	
==>off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13311	13436	
==>off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2196	2321	
==>off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5505	5602	
==>= NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regexecp;
  PL_regexecp = &reg <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2318	2459	
==>ernation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2329	2470	
==>ernation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	178	277	
==>l6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	178	277	
==>l6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	178	277	
==>l6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18948	19089	
==>'(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15369	15510	
==>'(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10382	10475	
==>nals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10382	10475	
==>nals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10382	10475	
==>nals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ev <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	71	324	
==>ile, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	71	324	
==>ile, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	71	324	
==>ile, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	71	324	
==>ile, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6409	6521	
==>s - litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    got <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38926	39033	
==>mization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38926	39033	
==>mization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38926	39033	
==>mization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret- <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2063	2166	
==>n Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    i <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2063	2166	
==>n Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8153	8291	
==>ble_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8346	8484	
==>ble_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5849	5948	
==>.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5849	5948	
==>.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5849	5948	
==>.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1102	1210	
==>oper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUIL <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1082	1190	
==>oper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUIL <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1102	1210	
==>oper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUIL <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1082	1190	
==>oper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUIL <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6658	6749	
==>_dirs}->{$_});
}


# Generating error.html
my $error_file = catfile($output_dir,"error.html" <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6630	6732	
==>er>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6630	6732	
==>er>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12838	12934	
==>ee op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12838	12934	
==>ee op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12838	12934	
==>ee op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4823	4916	
==>mt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4823	4916	
==>mt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4823	4916	
==>mt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]- <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10307	10416	
==>od previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10307	10416	
==>od previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5095	5187	
==>ption (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=bac <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5095	5187	
==>ption (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=bac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7292	7384	
==>ption (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=bac <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4343	4456	
==>{
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $t <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4343	4456	
==>{
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6514	6617	
==>d_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6514	6617	
==>d_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6514	6617	
==>d_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	669	796	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	874	1001	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	930	1057	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1034	1142	
==>Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1034	1142	
==>Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2984	3083	
==>urn a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limit <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2984	3083	
==>urn a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4542	4637	
==>USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [opt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4542	4637	
==>USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [opt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4542	4637	
==>USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [opt <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16647	16755	
==>str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16647	16755	
==>str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13658	13753	
==>mended "Good Practice" order.

In scalar context return the number of distinct field names.

=it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13658	13753	
==>mended "Good Practice" order.

In scalar context return the number of distinct field names.

=it <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	29783	29877	
==>aps total_results()

Remember exit code

Completely redo the print summary code.

Implement Str <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5616	5700	
==>omb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive. <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5616	5700	
==>omb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10120	10252	
==>pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10120	10252	
==>pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10120	10252	
==>pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6344	6441	
==>al', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
nod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6344	6441	
==>al', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	434	540	
==>self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	434	540	
==>self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	434	540	
==>self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($sel <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1451	1552	
==>ub ucfirst (Str $str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1 <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12066	12164	
==>ts_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexi <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	520	645	
==>ine;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_pa <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	520	645	
==>ine;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1288	1382	
==>fg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1288	1382	
==>fg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1288	1382	
==>fg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelud <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7322	7429	
==>n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7322	7429	
==>n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7322	7429	
==>n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	485	582	
==>am cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys shou <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	485	582	
==>am cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys shou <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	305	413	
==>bers:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	305	413	
==>bers:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1329	1435	
==>nk so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert thei <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1329	1435	
==>nk so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert thei <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1329	1435	
==>nk so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert thei <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	461	564	
==>, idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	461	564	
==>, idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	461	564	
==>, idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	186	289	
==>X - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inherita <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	178	279	
==>X - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inherita <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22756	22912	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23035	23191	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17100	17195	
==>$xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17100	17195	
==>$xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17100	17195	
==>$xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2950	3149	
==>_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2950	3149	
==>_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2950	3149	
==>_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1221	1379	
==>e {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_co <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1221	1379	
==>e {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3118	3223	
==>de");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3118	3223	
==>de");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3118	3223	
==>de");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1085	1229	
==>_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1085	1229	
==>_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1085	1229	
==>_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11799	11897	
==>field, $value )

Add a new field value for the specified header field.  Previous values
for the sam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11799	11897	
==>field, $value )

Add a new field value for the specified header field.  Previous values
for the sam <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9020	9200	
==>kie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.de <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9020	9200	
==>kie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.de <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12102	12212	
==>.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12102	12212	
==>.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00: <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1334	1442	
==>e::Gregorian.new
        ( :year($year), :month($1),  :day($2),
          :hour($5),    :minute($6), :second( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3872	3974	
==>arn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3872	3974	
==>arn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3872	3974	
==>arn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curre <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	230	330	
==>st das so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8913	9005	
==>f the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14524	14616	
==>('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8913	9005	
==>f the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14524	14616	
==>('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14524	14616	
==>('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1701	1818	
==>tance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in ps <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1701	1818	
==>tance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in ps <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1701	1818	
==>tance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in ps <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	698	785	
==>one-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer T <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	698	785	
==>one-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6783	6885	
==>.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 S <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9949	10051	
==>ed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $se <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6783	6885	
==>.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 S <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9949	10051	
==>ed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8980	9082	
==>.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 S <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8886	9000	
==>ke sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.p <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8886	9000	
==>ke sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3717	3818	
==>JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# paramet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3717	3818	
==>JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# paramet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3717	3818	
==>JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# paramet <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2218	2370	
==>r C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exit(0);
    }
    unless (-f "$exename.exe") {
    if (open(LOG,'lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10113	10235	
==>spatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10113	10235	
==>spatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10113	10235	
==>spatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cla <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	79	163	
==>Module/Install/Makefile.pm"
package Module::Install::Makefile;
use Module::Install::B <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4642	4763	
==>idex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4642	4763	
==>idex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	474	629	
==>k);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	474	629	
==>k);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37579	37701	
==>nd;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3000	3106	
==>et;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, O <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3000	3106	
==>et;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34443	34552	
==>lice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34443	34552	
==>lice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34443	34552	
==>lice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20204	20299	
==>not be recompiled by
some other containing parser. In this case the result of the compilation
is <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20204	20299	
==>not be recompiled by
some other containing parser. In this case the result of the compilation
is <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13216	13358	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27330	27472	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13495	13637	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27609	27751	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12766	12867	
==>.shift() }
}

# Support for ="some_file"
# I'm not sure where this is specced, but when I migrated &pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2349	2474	
==>tance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2554	2679	
==>tance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3345	3470	
==>tance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10066	10183	
==>e'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10060	10177	
==>e'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$nam <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25050	25147	
==>ayed by your program.  The Message class is pure and deterministic,
such that all of its class and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25050	25147	
==>ayed by your program.  The Message class is pure and deterministic,
such that all of its class and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3652	3745	
==>= undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3652	3745	
==>= undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3652	3745	
==>= undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	519	635	
==>* size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	519	635	
==>* size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14690	14785	
==>_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14690	14785	
==>_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14690	14785	
==>_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN_ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7805	7909	
==>=> $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7805	7909	
==>=> $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7417	7516	
==>eading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basech <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7417	7516	
==>eading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basech <==
5	/Users/nnunley/pugs/util/build_pugs.pl	6444	6539	
==>ckage => 'plugins', -package => 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @lib <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24734	24895	
==>\&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25013	25174	
==>\&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3684	3826	
==>f );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3933	4071	
==>f );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3933	4071	
==>f );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7806	7949	
==>bably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2103	2227	
==>bably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2103	2227	
==>bably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2103	2227	
==>bably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 <==
5	/Users/nnunley/pugs/examples/cookbook/test.pl	391	496	
==>not -e "$dir/$file.expected";
    unlink "$file.out";
    system "$pugs $f.p6 > $file.out";
    if (compar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9382	9485	
==>{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9382	9485	
==>{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9382	9485	
==>{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22252	22347	
==>inheriting from multiple packages which
have the same method names as you or each other, or havi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22252	22347	
==>inheriting from multiple packages which
have the same method names as you or each other, or havi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4743	4909	
==>hable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4743	4909	
==>hable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4743	4909	
==>hable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5606	5691	
==>hannels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5606	5691	
==>hannels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5526	5685	
==>$start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5526	5685	
==>$start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5526	5685	
==>$start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) fr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16423	16541	
==>m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(an <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12844	12962	
==>m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	151	286	
==>stance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	151	286	
==>stance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	151	286	
==>stance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ] <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8095	8191	
==>eturn lists of spans.

In this example, @span may contain zero, one, two, or three spans, dependi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8095	8191	
==>eturn lists of spans.

In this example, @span may contain zero, one, two, or three spans, dependi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3366	3473	
==>s($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one wa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3366	3473	
==>s($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4892	4989	
==>ep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4892	4989	
==>ep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4892	4989	
==>ep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	226	373	
==>e_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	226	373	
==>e_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	226	373	
==>e_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4304	4413	
==>st>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4304	4413	
==>st>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2890	2990	
==>== 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2890	2990	
==>== 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2890	2990	
==>== 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4208	4304	
==>return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4208	4304	
==>return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4238	4342	
==>d @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4238	4342	
==>d @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4238	4342	
==>d @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $sel <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32442	32536	
==>ocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36992	37086	
==>ocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12056	12244	
==>cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15533	15721	
==>cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3444	3536	
==>s actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 ME <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3444	3536	
==>s actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 ME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5641	5733	
==>s actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 ME <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23534	23621	
==>ibution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Vali <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23534	23621	
==>ibution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Vali <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1144	1242	
==>odule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1144	1242	
==>odule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1144	1242	
==>odule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1552	1641	
==>= $parent.depth() + 1;
}

## ------------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1552	1641	
==>= $parent.depth() + 1;
}

## ------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3432	3554	
==>ame')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3432	3554	
==>ame')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3432	3554	
==>ame')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5019	5128	
==>SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5019	5128	
==>SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	714	811	
==>rc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi me <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	714	811	
==>rc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5552	5648	
==>ix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5552	5648	
==>ix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5552	5648	
==>ix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (A <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4944	5049	
==>ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15980	16085	
==>ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17468	17573	
==>ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22151	22256	
==>ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $ <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3294	3395	
==>- 1 }
method mday returns Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use Duration::Gregor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8631	8816	
==>unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8631	8816	
==>unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8631	8816	
==>unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4187	4283	
==>ing "last", in which case the
object returned represents the last day for the specified month.

- <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4187	4283	
==>ing "last", in which case the
object returned represents the last day for the specified month.

- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	599	700	
==>);

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	599	700	
==>);

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	599	700	
==>);

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1070	1168	
==>f->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1070	1168	
==>f->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29885	30024	
==>$_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29885	30024	
==>$_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29885	30024	
==>$_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1108	1223	
==>) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) retur <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1108	1223	
==>) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10915	11041	
==>params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10915	11041	
==>params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10915	11041	
==>params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1765	1873	
==>le>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = sl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1765	1873	
==>le>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = sl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	127	377	
==>.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	127	377	
==>.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	401	487	
==>@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	401	487	
==>@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	401	487	
==>@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::E <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1024	1142	
==>.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) { <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17263	17359	
==>itwiseANDExpression>
}
rule BitwiseXORExpressionNoIn :words {  # see 11.10
      <BitwiseANDExpre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4819	4913	
==>.] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attent <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4819	4913	
==>.] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attent <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4819	4913	
==>.] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attent <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29438	29534	
==>utes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33990	34086	
==>utes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33154	33250	
==>utes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18737	18830	
==>ltaneously
trying to avoid triggering core behavior which we are not prepared to
support (such <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3027	3120	
==>ltaneously
trying to avoid triggering core behavior which we are not prepared to
support (such <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21401	21494	
==>asily port
to alternative relational database engines with minimal effort.

This might seem st <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21401	21494	
==>asily port
to alternative relational database engines with minimal effort.

This might seem st <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	452	580	
==>\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	549	677	
==>\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11612	11725	
==>ER::status();
          my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2048	2157	
==>ER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2048	2157	
==>ER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5158	5257	
==>res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5158	5257	
==>res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5158	5257	
==>res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packag <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5764	5861	
==>lly the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5764	5861	
==>lly the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %ha <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5297	5429	
==>= [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?S <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5297	5429	
==>= [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?S <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	804	933	
==>ping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22683	22774	
==>tation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22683	22774	
==>tation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1494	1605	
==>fy {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1494	1605	
==>fy {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1494	1605	
==>fy {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4134	4232	
==>lean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4134	4232	
==>lean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13479	13651	
==>it( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17107	17200	
==>es of the message content.

=item $h.content_language

The natural language(s) of the intended <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17107	17200	
==>es of the message content.

=item $h.content_language

The natural language(s) of the intended <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11795	11880	
==>le(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11795	11880	
==>le(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11795	11880	
==>le(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	905	1013	
==>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	905	1013	
==>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	905	1013	
==>{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  us <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5216	5320	
==>hem as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5216	5320	
==>hem as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channe <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3823	3924	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    su <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4156	4257	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3823	3924	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4156	4257	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    su <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	20807	20908	
==>/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3706	3888	
==>s')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3706	3888	
==>s')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3706	3888	
==>s')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18736	18834	
==>e the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and con <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18736	18834	
==>e the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3217	3323	
==>ugs;

* it executes perl5

* perl5 will call the C<v6.pm> module.

This is an invalid header:

    #!/usr/b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1409	1505	
==>emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5937	6033	
==>emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4223	4317	
==>emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4747	4841	
==>emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   return <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17051	17165	
==>ms from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17051	17165	
==>ms from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16083	16186	
==>val = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined gl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15899	15995	
==>cified in this field,
then the server will return a C<304 Not Modified> response instead of
the d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15899	15995	
==>cified in this field,
then the server will return a C<304 Not Modified> response instead of
the d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	208	321	
==>)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	208	321	
==>)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	208	321	
==>)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17244	17342	
==>is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the P <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17244	17342	
==>is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the P <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7129	7246	
==>lable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to dele <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	430	547	
==>lable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to dele <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3734	3834	
==>nce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pair <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7211	7311	
==>nce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pair <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6168	6268	
==>nce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pair <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1630	1755	
==>ere, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2211	2336	
==>ere, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1630	1755	
==>ere, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2211	2336	
==>ere, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1882	2014	
==>?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XX <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1882	2014	
==>?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5130	5257	
==>me: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5130	5257	
==>me: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4495	4618	
==>xt->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somethi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4495	4618	
==>xt->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somethi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4495	4618	
==>xt->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somethi <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1615	1729	
==>eader (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1615	1729	
==>eader (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11830	11951	
==>if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4473	4594	
==>if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	995	1089	
==>?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	995	1089	
==>?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	995	1089	
==>?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16388	16499	
==>0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16388	16499	
==>0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16388	16499	
==>0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9938	10034	
==>, and a few
other operations.

This class also provides methods for iterating through the set, an <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9938	10034	
==>, and a few
other operations.

This class also provides methods for iterating through the set, an <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1783	1966	
==>urn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .e <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1783	1966	
==>urn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1861	1976	
==>$thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1861	1976	
==>$thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "In <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1861	1976	
==>$thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "In <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	65	176	
==>art_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	65	176	
==>art_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	65	176	
==>art_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	65	176	
==>art_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_ <==
5	/Users/nnunley/pugs/util/grokprims.pl	1486	1585	
==>sif (/(list|chaining) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } elsif (/left-ass <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3896	4029	
==>*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3896	4029	
==>*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16971	17102	
==>aracter.


=item uc

 multi Str::uc         (  Str $string              --> Str )
 multi Str::uc         ( Str $string = CALLER::<$_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4428	4553	
==>*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4428	4553	
==>*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1299	1409	
==>iscard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1299	1409	
==>iscard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1299	1409	
==>iscard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($at <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	489	590	
==>.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but tru <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	489	590	
==>.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but tru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1478	1577	
==>udepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1478	1577	
==>udepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1478	1577	
==>udepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2097	2245	
==>[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nodes;

            } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2512	2657	
==>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2028	2173	
==>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2512	2657	
==>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            } <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	133	239	
==>ER::_, Num :$base )
    returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $bas <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5208	5337	
==>oclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5266	5395	
==>oclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3580	3704	
==>als{passing} = $passed ? 1 : 0;

    return %totals;
}


sub _analyze_line {
    my($self, $line, $totals) = @_;

    my %res <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27435	27576	
==>e'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35378	35519	
==>e'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36303	36444	
==>e'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37838	37979	
==>e'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45553	45694	
==>e'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9077	9177	
==>rying to unify incompatible types:\n" . Dumper(@_);
};


# these are the type signatures of some buil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21676	21771	
==><line>

The original line received from the server (unmodified).

=item C<server>

The server th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20557	20652	
==><line>

The original line received from the server (unmodified).

=item C<server>

The server th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21676	21771	
==><line>

The original line received from the server (unmodified).

=item C<server>

The server th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20557	20652	
==><line>

The original line received from the server (unmodified).

=item C<server>

The server th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19219	19376	
==>( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19219	19376	
==>( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19219	19376	
==>( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1499	1591	
==>m to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_ <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1499	1591	
==>m to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1868	2032	
==>sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6803	6967	
==>sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1650	1805	
==>sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6579	6734	
==>sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1650	1805	
==>sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20627	20725	
==>ield name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4244	4342	
==>:Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20627	20725	
==>ield name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4244	4342	
==>:Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4244	4342	
==>:Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6642	6751	
==>() { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::V <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6642	6751	
==>() { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::V <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3070	3162	
==>($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple sub <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10315	10403	
==>)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11050	11138	
==>)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4643	4757	
==>ot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4783	4897	
==>ot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1555	1652	
==>PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1555	1652	
==>PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1555	1652	
==>PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3219	3333	
==>d kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3219	3333	
==>d kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3219	3333	
==>d kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4771	4878	
==>e ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $modu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4771	4878	
==>e ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7719	7818	
==>ult version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7719	7818	
==>ult version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7719	7818	
==>ult version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true, <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6395	6490	
==>he main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6395	6490	
==>he main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1279	1382	
==>, '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<exp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1279	1382	
==>, '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5649	5746	
==>$jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5649	5746	
==>$jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5649	5746	
==>$jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2413	2569	
==>d;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2413	2569	
==>d;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2413	2569	
==>d;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1011	1111	
==>turn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1011	1111	
==>turn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

C <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3532	3631	
==>d1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instance <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3532	3631	
==>d1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5729	5828	
==>d1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instance <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	97	195	
==>Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	97	195	
==>Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	302	412	
==>hod members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initial <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	302	412	
==>hod members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initial <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2209	2308	
==>, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2209	2308	
==>, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2209	2308	
==>, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_) <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	911	1047	
==>an.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_star <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4150	4286	
==>an.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	911	1047	
==>an.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4150	4286	
==>an.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2164	2274	
==>ine:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm -- <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	332	438	
==>vert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1190	1296	
==>vert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	844	949	
==>$ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	844	949	
==>$ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	844	949	
==>$ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12620	12747	
==>undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns del <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12620	12747	
==>undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns del <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12620	12747	
==>undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns del <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3066	3172	
==>nv;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3066	3172	
==>nv;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	922	1046	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	922	1046	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	922	1046	
==>$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3675	3772	
==>$span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3675	3772	
==>$span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1930	2046	
==>ind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    * <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1930	2046	
==>ind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    * <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2166	2275	
==>ind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1)) <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2101	2194	
==><===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2101	2194	
==><===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3053	3207	
==>in '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2990	3132	
==>uire Config;
        $perl_version = $Config::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -epr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1368	1456	
==><${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1368	1456	
==><${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1368	1456	
==><${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumf <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	672	789	
==>e no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	672	789	
==>e no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	672	789	
==>e no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19330	19428	
==>urce files used by the
program, so that if you wanted to upgrade or localize what text the user
see <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19330	19428	
==>urce files used by the
program, so that if you wanted to upgrade or localize what text the user
see <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1487	1610	
==>_diag "# Failed $where\n";
    }

    # Ensure that the message is properly escaped.
    _diag @mess;

    $test++;

    ret <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13410	13533	
==>d $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	462	569	
==>elf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	462	569	
==>elf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	462	569	
==>elf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2935	3036	
==>s = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2935	3036	
==>s = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2935	3036	
==>s = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	817	914	
==>ss supports PMC compilation.
#
# The hope is that this will allow interoperability with modules th <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	817	914	
==>ss supports PMC compilation.
#
# The hope is that this will allow interoperability with modules th <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	577	718	
==>"") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get o <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	577	718	
==>"") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22724	22847	
==>simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23003	23126	
==>simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" ) <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2605	2699	
==>rn "reduce(" . (ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self->display_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36572	36693	
==>d  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36572	36693	
==>d  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36572	36693	
==>d  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1135	1248	
==>::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1135	1248	
==>::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13301	13523	
==>= [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13301	13523	
==>= [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13301	13523	
==>= [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @param <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5785	5891	
==>";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expect <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5843	5949	
==>";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expect <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2237	2362	
==>e whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # r <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2237	2362	
==>e whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1554	1669	
==>>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1554	1669	
==>>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1554	1669	
==>>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	814	922	
==>ot have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	814	922	
==>ot have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	814	922	
==>ot have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1848	1944	
==>gorithms will have a key, which will be specified in the options; check your 
cipher's documentat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1848	1944	
==>gorithms will have a key, which will be specified in the options; check your 
cipher's documentat <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4754	4962	
==>] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4018	4186	
==>] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basename($_) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13434	13581	
==>] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basename($_) <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1163	1290	
==>modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text h <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1163	1290	
==>modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6962	7064	
==>is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6962	7064	
==>is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6962	7064	
==>is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  wh <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11676	11768	
==>a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11676	11768	
==>a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3606	3701	
==>s written to provide functionality
while Perl 6 was still being developed.

This module is prima <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3606	3701	
==>s written to provide functionality
while Perl 6 was still being developed.

This module is prima <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	616	710	
==>al $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	616	710	
==>al $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	616	710	
==>al $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2921	3035	
==>);
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2921	3035	
==>);
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2921	3035	
==>);
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.el <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5319	5420	
==>etta Interface root, whose attributes will hold all of
    # the other data structures used by the Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5319	5420	
==>etta Interface root, whose attributes will hold all of
    # the other data structures used by the Ros <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	986	1105	
==>n(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	986	1105	
==>n(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	107	200	
==>----------------------------------------------
## now for some bootstrapping ....

## See http <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	107	200	
==>----------------------------------------------
## now for some bootstrapping ....

## See http <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	107	200	
==>----------------------------------------------
## now for some bootstrapping ....

## See http <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2837	2941	
==>ess %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2837	2941	
==>ess %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30468	30563	
==>but (Set of Str $attrs!) returns Relation::Example>

This method is the same as C<project> but t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	658	750	
==>iletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	658	750	
==>iletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	658	750	
==>iletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsnam <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8274	8365	
==>difier_spec_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1492	1715	
==>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %e <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1492	1715	
==>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7383	7536	
==>l' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7383	7536	
==>l' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7383	7536	
==>l' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.nam <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	382	478	
==>y in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and a <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	382	478	
==>y in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4528	4618	
==>eturn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acce <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4528	4618	
==>eturn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acce <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5118	5208	
==>eturn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acce <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	304	530	
==>rogram = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8421	8565	
==>sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List. <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8421	8565	
==>sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List. <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5724	5803	
==>hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%6 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5724	5803	
==>hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%6 <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	951	1073	
==>%param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	693	815	
==>%param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	951	1073	
==>%param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	693	815	
==>%param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1070	1187	
==>93.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2568	2670	
==>ar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Du <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2708	2810	
==>ar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Du <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5921	6016	
==>custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5921	6016	
==>custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5921	6016	
==>custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6711	6861	
==>f;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6711	6861	
==>f;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40926	41037	
==>yref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Contai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40926	41037	
==>yref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Contai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40926	41037	
==>yref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Contai <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	19050	19181	
==>r ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $line, $type, $totals) = @_;

    die "F <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7058	7172	
==>f warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under taint, but open -| is <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	624	727	
==>L2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	624	727	
==>L2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	624	727	
==>L2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1789	1893	
==>d, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1789	1893	
==>d, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1789	1893	
==>d, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10157	10364	
==>key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10157	10364	
==>key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10157	10364	
==>key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $met <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1066	1158	
==>nd object-oriented interfaces both follow the same basic steps, 
albeit with different interf <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1066	1158	
==>nd object-oriented interfaces both follow the same basic steps, 
albeit with different interf <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	244	359	
==>y ($grammar) = caller;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12047	12143	
==>>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same si <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9168	9264	
==>>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same si <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12047	12143	
==>>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same si <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9168	9264	
==>>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same si <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	459	570	
==>b prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	459	570	
==>b prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	459	570	
==>b prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10336	10431	
==>rse )`

Creates a recurrence set.

The complementary functions are emulated using iterations.

S <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10336	10431	
==>rse )`

Creates a recurrence set.

The complementary functions are emulated using iterations.

S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10293	10417	
==>erent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10293	10417	
==>erent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10293	10417	
==>erent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12117	12214	
==>before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12117	12214	
==>before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1808	1925	
==>s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1808	1925	
==>s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2044	2161	
==>s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Dat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	668	783	
==>(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	668	783	
==>(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6846	6958	
==>^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6846	6958	
==>^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6846	6958	
==>^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4341	4440	
==>rt {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Boo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4341	4440	
==>rt {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Boo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16078	16205	
==>tation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method rese <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16078	16205	
==>tation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method rese <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6507	6606	
==>e = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getEle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6507	6606	
==>e = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getEle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6507	6606	
==>e = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getEle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5653	5788	
==>$xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the lin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5653	5788	
==>$xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the lin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5653	5788	
==>$xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the lin <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	17	129	
==>et;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, an <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	17	129	
==>et;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, an <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8090	8223	
==>d = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13684	13817	
==>d = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8090	8223	
==>d = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13678	13811	
==>d = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3664	3772	
==>E "$preamble$makefile$postamble";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3473	3596	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3473	3596	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3473	3596	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10160	10260	
==>from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { y <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10160	10260	
==>from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { y <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20189	20280	
==>.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20189	20280	
==>.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1005	1114	
==>ntrolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1005	1114	
==>ntrolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1005	1114	
==>ntrolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3091	3182	
==>unc($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $e <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3149	3240	
==>unc($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $e <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23614	23738	
==>ne REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_subst <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2205	2305	
==>and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2183	2283	
==>and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	351	450	
==>Params;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp. <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28844	28941	
==>ne REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_subst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8742	8849	
==>t 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8742	8849	
==>t 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8742	8849	
==>t 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6960	7164	
==>SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10437	10641	
==>SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9556	9760	
==>SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3227	3338	
==>tory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two togeth <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3227	3338	
==>tory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two togeth <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4775	4921	
==>a} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13200	13346	
==>a} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15811	15957	
==>a} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17299	17445	
==>a} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21982	22128	
==>a} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9501	9615	
==>ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4961	5058	
==>ubset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
mu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4088	4185	
==>ubset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4961	5058	
==>ubset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4088	4185	
==>ubset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3910	4030	
==>s_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3910	4030	
==>s_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3910	4030	
==>s_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14526	14640	
==>$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8728	8842	
==>$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16282	16403	
==>e a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16282	16403	
==>e a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2965	3077	
==>);
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2965	3077	
==>);
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2965	3077	
==>);
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5598	5699	
==>d_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event ba <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5598	5699	
==>d_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event ba <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	383	505	
==>port() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshi <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	383	505	
==>port() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2286	2381	
==>)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2286	2381	
==>)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2286	2381	
==>)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	652	835	
==>STANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	652	835	
==>STANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	652	835	
==>STANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors fo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25283	25373	
==>on at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a sy <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25283	25373	
==>on at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a sy <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2551	2687	
==>the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2551	2687	
==>the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	823	943	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

me <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	823	943	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

me <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5833	5941	
==>LE')->code();

    $<op> := (die|\.\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11728	11836	
==>ndler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11728	11836	
==>ndler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	200	301	
==>e Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	222	320	
==>Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[1]-1, 0, [ <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	104	200	
==>mmented.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($var) returns Bool is buil <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20026	20163	
==>($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &R <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16447	16584	
==>($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &R <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	583	697	
==>y.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	583	697	
==>y.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	583	697	
==>y.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3798	3897	
==>mlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3798	3897	
==>mlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3798	3897	
==>mlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	489	586	
==>}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	489	586	
==>}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11132	11246	
==>ontiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11132	11246	
==>ontiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11132	11246	
==>ontiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $arr <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3115	3218	
==>}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return if $self->node_is_define <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9447	9548	
==>-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100',
		  '-inf' => '-100**100**100 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10872	10985	
==>{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13621	13803	
==>n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9805	9987	
==>n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10641	10823	
==>n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20734	20830	
==>ir open opendir pipe print printf read readdir readline
# readlink readpipe recv rename rewinddir <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2889	2983	
==>ts fail, analyze the summary report:

  t/base..............ok
  t/nonumbers.........ok
  t/ok. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7976	8120	
==>s_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7976	8120	
==>s_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7976	8120	
==>s_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closu <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	265	397	
==>{
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.spli <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	265	397	
==>{
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.spli <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4668	4801	
==>y @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4463	4587	
==>on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	939	1038	
==>ter all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the di <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	939	1038	
==>ter all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1495	1594	
==>ter all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the di <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13289	13417	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13289	13417	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13289	13417	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2174	2302	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	927	1020	
==>-$ENUM, 'Unmatched (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCU <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5070	5197	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16106	16233	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17594	17721	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22277	22404	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1179	1298	
==>rpc_regexP5->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8043	8168	
==>my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8043	8168	
==>my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8043	8168	
==>my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1200	1291	
==>(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1200	1291	
==>(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2375	2504	
==>e\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	84	189	
==>des the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nic <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	88	193	
==>des the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	84	189	
==>des the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	88	193	
==>des the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7733	7837	
==>' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7733	7837	
==>' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7733	7837	
==>' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4891	4988	
==>factor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4891	4988	
==>factor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) ret <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	656	813	
==>supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @nonempt <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25951	26045	
==>is original copyright notice and other credits.
Rosetta is distributed in the hope that it will <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25951	26045	
==>is original copyright notice and other credits.
Rosetta is distributed in the hope that it will <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	13	99	
==>Rule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	13	99	
==>Rule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strat <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	273	370	
==>() {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left of <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	273	370	
==>() {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	68	159	
==>re Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	68	159	
==>re Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	68	159	
==>re Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1732	1919	
==>ocument => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return { <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1732	1919	
==>ocument => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3702	3842	
==>{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3702	3842	
==>{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3702	3842	
==>{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4002	4106	
==>$name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4002	4106	
==>$name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4002	4106	
==>$name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9902	10053	
==>]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9902	10053	
==>]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9902	10053	
==>]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6226	6332	
==>char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6214	6320	
==>char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $na <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16764	16873	
==>nge (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (? <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13185	13294	
==>nge (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6028	6117	
==>tf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6028	6117	
==>tf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6028	6117	
==>tf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11244	11404	
==>opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11244	11404	
==>opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11244	11404	
==>opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1551	1641	
==>mpile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1551	1641	
==>mpile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	286	388	
==>!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	286	388	
==>!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	286	388	
==>!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15910	16009	
==>hile resembling a message that would be shown to a user, is in fact meant
to be interpreted by the m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15910	16009	
==>hile resembling a message that would be shown to a user, is in fact meant
to be interpreted by the m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6186	6304	
==>ch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return joi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6198	6316	
==>ch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return joi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	641	739	
==>rintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	641	739	
==>rintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	641	739	
==>rintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9427	9564	
==>nts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9427	9564	
==>nts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9427	9564	
==>nts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2696	2831	
==>ol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2696	2831	
==>ol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15723	15850	
==>_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15723	15850	
==>_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15723	15850	
==>_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13926	14029	
==>) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pas <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13984	14087	
==>) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pas <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19478	19596	
==>elation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20475	20593	
==>elation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22762	22863	
==>d $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22762	22863	
==>d $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22762	22863	
==>d $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1264	1377	
==>5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7885	7994	
==>g, $how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2782	2883	
==>ee EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workarou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2782	2883	
==>ee EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workarou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2782	2883	
==>ee EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workarou <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	944	1053	
==>a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that conta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	944	1053	
==>a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that conta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13209	13314	
==>tection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::Lo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13209	13314	
==>tection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::Lo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13209	13314	
==>tection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38252	38352	
==>ore after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38252	38352	
==>ore after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38252	38352	
==>ore after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7894	7982	
==>!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7894	7982	
==>!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1008	1101	
==>hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typical <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1008	1101	
==>hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typical <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1008	1101	
==>hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typical <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5965	6058	
==>me, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10222	10315	
==>me, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2381	2511	
==>Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2381	2511	
==>Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2381	2511	
==>Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12281	12388	
==>\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12281	12388	
==>\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18784	18897	
==>c;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15205	15318	
==>c;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3156	3255	
==>ramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3156	3255	
==>ramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3156	3255	
==>ramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4512	4623	
==>s')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4512	4623	
==>s')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4512	4623	
==>s')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	616	718	
==>/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getsto <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	616	718	
==>/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getsto <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11421	11584	
==>h = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Du <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7703	7866	
==>h = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Du <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8537	8700	
==>h = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Du <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3282	3405	
==>= "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # * <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3270	3393	
==>= "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # * <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6310	6411	
==>lemental(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_elemental(R)         --> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23599	23694	
==>nds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22372	22467	
==>nds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23599	23694	
==>nds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22372	22467	
==>nds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1498	1623	
==>to = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1498	1623	
==>to = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9400	9578	
==>" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9400	9578	
==>" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9400	9578	
==>" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7101	7224	
==>ist        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we'r <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	402	525	
==>ist        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we'r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1470	1604	
==>sed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1470	1604	
==>sed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4809	4915	
==>, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4809	4915	
==>, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4809	4915	
==>, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub J <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2841	2945	
==>%standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2841	2945	
==>%standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1212	1314	
==>_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1212	1314	
==>_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1212	1314	
==>_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EX <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2472	2575	
==>y - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configur <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2472	2575	
==>y - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	378	475	
==>[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	378	475	
==>[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	378	475	
==>[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1374	1496	
==>n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1374	1496	
==>n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9123	9243	
==>s ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23881	23977	
==>, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, wh <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28433	28529	
==>, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, wh <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1273	1388	
==>};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1273	1388	
==>};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2055	2145	
==>->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2055	2145	
==>->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2055	2145	
==>->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4587	4723	
==>l5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4727	4863	
==>l5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3674	3785	
==>ame =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3674	3785	
==>ame =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3674	3785	
==>ame =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10099	10271	
==>elf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10099	10271	
==>elf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10099	10271	
==>elf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4180	4303	
==>$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4180	4303	
==>$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH = <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9717	9867	
==>azy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @value <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	940	1066	
==>azy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13435	13537	
==>ash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13435	13537	
==>ash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13435	13537	
==>ash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2791	2899	
==>pt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2791	2899	
==>pt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2791	2899	
==>pt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5882	5984	
==>conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::M <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5882	5984	
==>conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::M <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	209	340	
==>opy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $mess <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	209	340	
==>opy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $mess <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11545	11670	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11545	11670	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11545	11670	
==>od () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	740	918	
==>mple::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attrs!) {
    %!attrs = %at <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4400	4501	
==>refix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4400	4501	
==>refix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5272	5371	
==>refix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5272	5371	
==>refix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1833	1937	
==>ects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1833	1937	
==>ects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1387	1480	
==>}
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1387	1480	
==>}
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1387	1480	
==>}
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29588	29695	
==>R être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    mo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29588	29695	
==>R être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1843	1940	
==>n Little and others.

This program is free software; you can redistribute it and/or modify it
unde <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1843	1940	
==>n Little and others.

This program is free software; you can redistribute it and/or modify it
unde <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	396	491	
==>R être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

mo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1022	1122	
==>ected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1022	1122	
==>ected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($p <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	944	1043	
==>ected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	944	1043	
==>ected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13180	13275	
==>based module (currently Inline::C),
  and is thus not very portable to broken (no compiler) micr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1225	1365	
==>_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1175	1310	
==>_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3338	3458	
==>s when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3338	3458	
==>s when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3338	3458	
==>s when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2335	2469	
==>my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2335	2469	
==>my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40919	41030	
==>->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40919	41030	
==>->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40919	41030	
==>->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3146	3272	
==>cent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, di <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3146	3272	
==>cent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1303	1416	
==>ject that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1303	1416	
==>ject that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1303	1416	
==>ject that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22114	22224	
==>map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22114	22224	
==>map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22114	22224	
==>map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	391	492	
==>X

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurre <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	391	492	
==>X

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1035	1135	
==>ces
# and we need to now create these attributes in all the currently live instances
# of Class (whic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1035	1135	
==>ces
# and we need to now create these attributes in all the currently live instances
# of Class (whic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1035	1135	
==>ces
# and we need to now create these attributes in all the currently live instances
# of Class (whic <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16425	16524	
==>_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16425	16524	
==>_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13157	13287	
==>OTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13157	13287	
==>OTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13157	13287	
==>OTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont b <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2154	2261	
==>ens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2154	2261	
==>ens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	140	274	
==>nt {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	140	274	
==>nt {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	140	274	
==>nt {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SU <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2271	2384	
==>p1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2271	2384	
==>p1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10451	10605	
==>>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10451	10605	
==>>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10451	10605	
==>>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-l <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36882	36977	
==>tionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36882	36977	
==>tionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	649	777	
==>) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	649	777	
==>) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	649	777	
==>) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private metho <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1642	1767	
==>"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1642	1767	
==>"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15084	15202	
==>xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15084	15202	
==>xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15084	15202	
==>xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11478	11592	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11757	11871	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7149	7363	
==>se {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.c <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7149	7363	
==>se {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1739	1835	
==>(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1739	1835	
==>(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1739	1835	
==>(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::do <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2307	2424	
==>r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    sa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2307	2424	
==>r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	819	924	
==>! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	819	924	
==>! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	819	924	
==>! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	137	242	
==>= shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	137	242	
==>= shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	137	242	
==>= shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7357	7448	
==>F--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7357	7448	
==>F--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7382	7582	
==>d_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            key <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7846	8046	
==>d_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6641	6763	
==>' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6641	6763	
==>' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6641	6763	
==>' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22718	22820	
==>_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22718	22820	
==>_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22718	22820	
==>_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	229	316	
==>use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	229	316	
==>use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5 <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2636	2733	
==>n that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2636	2733	
==>n that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2128	2223	
==>]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2128	2223	
==>]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2128	2223	
==>]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVa <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	582	691	
==>name) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2677	2774	
==>d $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2677	2774	
==>d $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2677	2774	
==>d $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3482	3578	
==>n files
with as little code as possible, reducing load time and memory overhead.

Written using P <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3482	3578	
==>n files
with as little code as possible, reducing load time and memory overhead.

Written using P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2762	2878	
==>local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2762	2878	
==>local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2762	2878	
==>local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercla <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17405	17511	
==>) character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17405	17511	
==>) character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4398	4490	
==>sh

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4398	4490	
==>sh

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24846	24943	
==>rns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Loca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24846	24943	
==>rns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Loca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	153	244	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	153	244	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	153	244	
==>e::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14416	14522	
==>Lib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) { <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14416	14522	
==>Lib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	460	562	
==>->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	460	562	
==>->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	460	562	
==>->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subna <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14064	14177	
==>ng's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and tim <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14064	14177	
==>ng's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and tim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5428	5523	
==>. Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5428	5523	
==>. Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5428	5523	
==>. Of course, this feature is not available
when linking to a standalone JavaScript file.

Recomm <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4623	4722	
==>∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersecti <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3750	3849	
==>∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersecti <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4623	4722	
==>∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersecti <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3750	3849	
==>∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersecti <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2816	2929	
==>utput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2816	2929	
==>utput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2966	3079	
==>rammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4340	4453	
==>utput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2954	3067	
==>rammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8739	8842	
==>e $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and comp <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8739	8842	
==>e $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and comp <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11888	11985	
==>losures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the ele <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11888	11985	
==>losures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1940	2100	
==>ray->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1940	2100	
==>ray->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1940	2100	
==>ray->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23062	23152	
==>deE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23062	23152	
==>deE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comm <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7464	7573	
==>mbers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7464	7573	
==>mbers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3931	4028	
==>d it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3931	4028	
==>d it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAAC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3931	4028	
==>d it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAAC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	999	1118	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	999	1118	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	999	1118	
==>ce;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12414	12532	
==>ick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12414	12532	
==>ick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1299	1405	
==>e, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.p <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1299	1405	
==>e, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5651	5746	
==>E

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5651	5746	
==>E

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5651	5746	
==>E

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1174	1324	
==>atement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1379	1529	
==>atement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3018	3122	
==>ex into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3018	3122	
==>ex into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3018	3122	
==>ex into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->pu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21192	21288	
==>ven this fact, Rosetta's most prominant feature is that it provides a
common API for access to th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21192	21288	
==>ven this fact, Rosetta's most prominant feature is that it provides a
common API for access to th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3360	3454	
==>ing this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIO <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3360	3454	
==>ing this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3440	3534	
==>ing this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIO <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	256	380	
==>me value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib. <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	256	380	
==>me value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14322	14443	
==>@r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17799	17920	
==>@r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17215	17336	
==>@r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35406	35499	
==>that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39956	40049	
==>that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39516	39609	
==>that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8085	8175	
==>) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statement <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1910	2000	
==>) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statement <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1780	1889	
==>at  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]> <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1780	1889	
==>at  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3241	3471	
==>ug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expir <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3241	3471	
==>ug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9411	9519	
==>il_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9411	9519	
==>il_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9411	9519	
==>il_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pil <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5928	6111	
==>y $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()' <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5928	6111	
==>y $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11354	11446	
==>r::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test::Base
  { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1810	1896	
==>r::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1810	1896	
==>r::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17271	17406	
==>nstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23237	23372	
==>nstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17550	17685	
==>nstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23516	23651	
==>nstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1548	1678	
==>};
    
    while( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2464	2657	
==>ift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2711	2904	
==>ift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6443	6612	
==>ESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6443	6612	
==>ESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6443	6612	
==>ESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	713	839	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        ret <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	713	839	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17299	17391	
==>nly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20776	20868	
==>nly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20354	20446	
==>nly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3588	3708	
==>)->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3588	3708	
==>)->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3588	3708	
==>)->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{t <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1227	1335	
==>ss we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1227	1335	
==>ss we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18465	18565	
==>World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18465	18565	
==>World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12662	12750	
==>ct 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12662	12750	
==>ct 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12662	12750	
==>ct 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1068	1199	
==>Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1068	1199	
==>Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1068	1199	
==>Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(ne <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2429	2527	
==>-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi" <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2429	2527	
==>-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11698	11848	
==>tringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8740	8890	
==>h->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11698	11848	
==>tringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11698	11848	
==>tringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8740	8890	
==>h->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5869	5991	
==>n.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::C <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5869	5991	
==>n.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11732	11820	
==>s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11732	11820	
==>s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11732	11820	
==>s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15267	15375	
==>tr $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15267	15375	
==>tr $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27418	27512	
==>the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31970	32064	
==>the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31053	31147	
==>the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, an <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5705	5843	
==>ement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no wa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5705	5843	
==>ement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no wa <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1675	1786	
==>od clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.inser <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1675	1786	
==>od clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.inser <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4349	4458	
==>use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_config;
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16524	16670	
==>tant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { bl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16803	16949	
==>tant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	117	218	
==>elete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	117	218	
==>elete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed e <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	117	218	
==>elete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed e <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4764	4885	
==>( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a li <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4764	4885	
==>( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	484	587	
==>ings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	484	587	
==>ings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	484	587	
==>ings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3103	3206	
==>DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.me <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3103	3206	
==>DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30232	30328	
==>essage Variables, which will be substituted at run-time before the text
is shown to the user.

Ea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30232	30328	
==>essage Variables, which will be substituted at run-time before the text
is shown to the user.

Ea <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5696	5816	
==>Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $noop = $o-> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7083	7306	
==>revious( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7083	7306	
==>revious( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	153	246	
==>written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remove <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	153	246	
==>written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remove <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	153	246	
==>written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remove <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15832	15942	
==>tring message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .Exception
    $S0 = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3844	3953	
==>chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = nor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3844	3953	
==>chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = nor <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4376	4481	
==>chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = nor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4376	4481	
==>chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = nor <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4141	4248	
==>$desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4199	4306	
==>$desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	336	433	
==>al soul, really concreate and practical 
# things like Object, Package and Module. It was also cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	336	433	
==>al soul, really concreate and practical 
# things like Object, Package and Module. It was also cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	336	433	
==>al soul, really concreate and practical 
# things like Object, Package and Module. It was also cre <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3502	3603	
==>tional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object represent <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3502	3603	
==>tional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object represent <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3087	3256	
==>ail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3087	3256	
==>ail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6408	6496	
==>lasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6408	6496	
==>lasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6408	6496	
==>lasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:ve <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2716	2838	
==>rameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2900	3022	
==>rameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2287	2391	
==>out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2287	2391	
==>out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2367	2471	
==>out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13985	14102	
==>them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scala <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13985	14102	
==>them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scala <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3283	3378	
==>IS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a s <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3283	3378	
==>IS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5480	5575	
==>IS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16883	16977	
==>tically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16883	16977	
==>tically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	247	335	
==>alar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	247	335	
==>alar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	247	335	
==>alar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	705	798	
==><..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	705	798	
==><..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	705	798	
==><..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1972	2073	
==>e "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1972	2073	
==>e "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1972	2073	
==>e "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29946	30044	
==>sor method to read values from it by key.  Each template hash
key corresponds to the Message Key at <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29946	30044	
==>sor method to read values from it by key.  Each template hash
key corresponds to the Message Key at <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3254	3366	
==>ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thor <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3254	3366	
==>ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thor <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36011	36109	
==>relation is the union of the invocant and <$other> headings. 
The body of the new relation is the r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40561	40658	
==>relation is the union of the invocant and <$other> headings.
The body of the new relation is the r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40175	40272	
==>relation is the union of the invocant and <$other> headings.
The body of the new relation is the r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3947	4049	
==>e $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $tmpl = HTML::Templat <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11930	12031	
==>= Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 d <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13322	13423	
==>= Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11930	12031	
==>= Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13322	13423	
==>= Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 d <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15198	15297	
==>ng
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15256	15355	
==>ng
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	431	520	
==>pported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	431	520	
==>pported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	431	520	
==>pported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1041	1147	
==>OPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1041	1147	
==>OPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1041	1147	
==>OPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	358	456	
==>e , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	358	456	
==>e , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2650	2849	
==>};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2650	2849	
==>};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9094	9237	
==>\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl exte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9094	9237	
==>\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl exte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9094	9237	
==>\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl exte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	120	255	
==>Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	120	255	
==>Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	120	255	
==>Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_ev <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7026	7146	
==>K_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boun <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7026	7146	
==>K_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boun <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21796	21896	
==>is is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20677	20777	
==>is is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21796	21896	
==>is is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20677	20777	
==>is is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to. <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11961	12059	
==>num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5376	5549	
==>thod') {
                $t = [ 'SUB' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12328	12434	
==>]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12328	12434	
==>]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12328	12434	
==>]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_fro <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38511	38615	
==>ranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7648	7751	
==>ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_str <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7648	7751	
==>ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_str <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4235	4333	
==>ton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4235	4333	
==>ton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5759	5857	
==>ton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6096	6191	
==>Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Ar <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8164	8259	
==>Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Ar <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6096	6191	
==>Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Ar <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8164	8259	
==>Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Ar <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7007	7102	
==>{
    "(do{ ".DOWN($pThunk)."})";
}
NODE PCode ($pType, $pParams, $pLValue, $pIsMulti, $pBody) { <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7490	7619	
==>ck if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depend <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	791	920	
==>ck if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depend <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8545	8649	
==>o_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8545	8649	
==>o_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8545	8649	
==>o_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13510	13647	
==>ss, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13510	13647	
==>ss, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13510	13647	
==>ss, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will hand <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1261	1352	
==>s the continuation (i.e. returns whatever the
continuation returns) with an updated C<Result <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1261	1352	
==>s the continuation (i.e. returns whatever the
continuation returns) with an updated C<Result <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13661	13783	
==>{
            my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8773	8881	
==>/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8773	8881	
==>/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8773	8881	
==>/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : spr <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10998	11092	
==>NV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7547	7701	
==>defined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7547	7701	
==>defined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7547	7701	
==>defined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = ( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1366	1467	
==>s
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does Lis <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1366	1467	
==>s
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does Lis <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10217	10317	
==>f the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10217	10317	
==>f the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36968	37061	
==>have identical headings, for these their joining
degenerates to a C<intersection>.  In any sit <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41517	41610	
==>have identical headings, for these their joining
degenerates to a C<intersection>.  In any sit <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41140	41233	
==>have identical headings, for these their joining
degenerates to a C<intersection>.  In any sit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2173	2277	
==>ail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2173	2277	
==>ail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10238	10339	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10238	10339	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10238	10339	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11447	11552	
==>y($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11447	11552	
==>y($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11447	11552	
==>y($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19759	19858	
==>ts in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19759	19858	
==>ts in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	318	429	
==>st which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	318	429	
==>st which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4129	4232	
==>-------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4129	4232	
==>-------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4129	4232	
==>-------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-c <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1702	1838	
==>gths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () re <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1702	1838	
==>gths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6315	6418	
==>e_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6315	6418	
==>e_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6315	6418	
==>e_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15117	15241	
==>::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15117	15241	
==>::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15117	15241	
==>::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2391	2505	
==>= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_err <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2391	2505	
==>= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_err <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	841	945	
==>Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16664	16768	
==>_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	841	945	
==>Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16664	16768	
==>_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16664	16768	
==>_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	503	617	
==>re
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Construct <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	503	617	
==>re
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Construct <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	266	371	
==>- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- opt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	248	350	
==>- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- opt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	821	917	
==>q( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Token->compile(q( \: <r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10709	10832	
==>_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10709	10832	
==>_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10709	10832	
==>_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]') <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	213	311	
==>audreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls wi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	204	301	
==>audreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls wi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11662	11798	
==>b call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            af <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2145	2278	
==>b call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            af <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8917	9050	
==>b call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            af <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2145	2278	
==>b call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            af <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8917	9050	
==>b call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            af <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1626	1747	
==>le';
}

{
    package Dispatchable;
    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15567	15667	
==>$prog, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_args->{progfile} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2800	2892	
==>b Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2800	2892	
==>b Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2800	2892	
==>b Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4799	4918	
==>ath/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4799	4918	
==>ath/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4799	4918	
==>ath/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want t <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2081	2198	
==>t as they
    # both respond to ->type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3748	3853	
==>essed($test) && $test->isa('TestBuilder::Test'))
                || confess "test argument must be a TestB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10461	10615	
==>start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10461	10615	
==>start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10461	10615	
==>start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12936	13046	
==>~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fol <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12936	13046	
==>~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11117	11295	
==>uto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11117	11295	
==>uto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11117	11295	
==>uto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1601	1717	
==>($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1601	1717	
==>($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6435	6540	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6435	6540	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6435	6540	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1374	1465	
==>il::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1374	1465	
==>il::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10700	10878	
==>t();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10700	10878	
==>t();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3383	3481	
==>t, $right) = @_;
    ($left->params->equal_to($right->params) == bit->new(1) && 
     $left->return <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10001	10097	
==>s($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for pro <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10001	10097	
==>s($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for pro <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18618	18712	
==>reads, nor have objects in separate
threads try to access the same external resources.>

Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18618	18712	
==>reads, nor have objects in separate
threads try to access the same external resources.>

Rosett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10925	11008	
==>-------------------------------------------------------------
Random Thoughts on Rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10925	11008	
==>-------------------------------------------------------------
Random Thoughts on Rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10925	11008	
==>-------------------------------------------------------------
Random Thoughts on Rol <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16437	16589	
==>_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_subst <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20863	21015	
==>_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_subst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	116	222	
==>ame = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	116	222	
==>ame = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	116	222	
==>ame = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retur <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5379	5499	
==>~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) :: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5379	5499	
==>~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1025	1132	
==>:NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1025	1132	
==>:NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1025	1132	
==>:NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fix <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	403	570	
==>ub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

mul <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1867	2018	
==>= cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = cano <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1867	2018	
==>= cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = cano <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2584	2711	
==>= cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = cano <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2584	2711	
==>= cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = cano <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	828	944	
==>es { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	828	944	
==>es { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	828	944	
==>es { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_strin <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	880	993	
==>E

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no lo <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	880	993	
==>E

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	151	272	
==>age PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	151	272	
==>age PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	151	272	
==>age PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1217	1318	
==>' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" nam <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1217	1318	
==>' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1698	1825	
==>1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2441	2568	
==>1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1698	1825	
==>1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2429	2556	
==>1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	789	893	
==>my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));

    for my $dir <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5093	5195	
==>ontent_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $messag <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5093	5195	
==>ontent_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $messag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	94	192	
==>as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	94	192	
==>as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	94	192	
==>as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argna <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	615	735	
==>it 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	234	350	
==>cfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	234	350	
==>cfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	234	350	
==>cfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8029	8132	
==>ar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBar- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10613	10838	
==>s, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text . <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10613	10838	
==>s, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1381	1480	
==>udepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1381	1480	
==>udepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1381	1480	
==>udepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8135	8250	
==>ure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8328	8443	
==>ure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2287	2384	
==>=> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2287	2384	
==>=> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2287	2384	
==>=> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1011	1116	
==>a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1011	1116	
==>a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1011	1116	
==>a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15144	15239	
==>type. The function signatures will likely look something
like this:

  multi sub is_deeply (Arra <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15202	15297	
==>type. The function signatures will likely look something
like this:

  multi sub is_deeply (Arra <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12170	12277	
==>^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12170	12277	
==>^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+ <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	1999	2099	
==>1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19805	19899	
==><_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19805	19899	
==><_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15739	15836	
==>a::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15739	15836	
==>a::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6002	6090	
==>rm the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6002	6090	
==>rm the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8199	8287	
==>rm the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1886	2011	
==>r'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => ro <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6046	6143	
==>returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5176	5273	
==>returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6046	6143	
==>returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5176	5273	
==>returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4709	4829	
==>t;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4562	4679	
==>t;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37470	37558	
==>as named C<intersect>.

=item C<intersection (Relation::Example *@others) returns Relatio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4408	4609	
==>ure;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4275	4469	
==>ure;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8043	8145	
==>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8043	8145	
==>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8043	8145	
==>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19882	19978	
==>urn two
values; the user name and the password.  In scalar context it will
return I<"uname:passwo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19882	19978	
==>urn two
values; the user name and the password.  In scalar context it will
return I<"uname:passwo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19876	19970	
==>changed afterwards.

If you want something similar but that is more mutable, you can accomplish <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24428	24522	
==>changed afterwards.

If you want something similar but that is more mutable, you can accomplish <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22980	23074	
==>changed afterwards.

If you want something similar but that is more mutable, you can accomplish <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3671	3770	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersect <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3671	3770	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersect <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7	102	
==>hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7	102	
==>hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7	102	
==>hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2025	2156	
==>PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2025	2156	
==>PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2025	2156	
==>PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9546	9635	
==>ubset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subse <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9546	9635	
==>ubset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subse <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18083	18209	
==>al) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14504	14630	
==>al) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38218	38314	
==>C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42767	42863	
==>C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42417	42513	
==>C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3459	3558	
==>Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description") <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3459	3558	
==>Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description") <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4983	5082	
==>Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description") <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	802	891	
==>le contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	802	891	
==>le contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPl <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4188	4316	
==>map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, mak <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4188	4316	
==>map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, mak <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1421	1515	
==>rgs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1421	1515	
==>rgs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1421	1515	
==>rgs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4112	4204	
==>=> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4112	4204	
==>=> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4112	4204	
==>=> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13491	13582	
==>, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13491	13582	
==>, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	428	628	
==>s.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $ind <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	428	628	
==>s.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $ind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8259	8352	
==>"" if !defined $pilc;
    $pilc->expand();
}

#=============================================== <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8259	8352	
==>"" if !defined $pilc;
    $pilc->expand();
}

#=============================================== <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8259	8352	
==>"" if !defined $pilc;
    $pilc->expand();
}

#=============================================== <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8980	9087	
==>(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8980	9087	
==>(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8980	9087	
==>(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1346	1441	
==>(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Laz <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1346	1441	
==>(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Laz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7105	7227	
==>ata_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Br <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7105	7227	
==>ata_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Br <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	468	576	
==>operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * emp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	468	576	
==>operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * emp <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18886	18985	
==>erty or a Perl class (like
C<\w> or C<\S>), the object's C<data> field points to the underlying
obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20453	20665	
==>:Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20453	20665	
==>:Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20453	20665	
==>:Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #w <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7406	7566	
==>name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7406	7566	
==>name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	838	952	
==>lent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	838	952	
==>lent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	838	952	
==>lent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35771	35864	
==>hat takes
another Relation as its C<$other> argument and combines it with the
invocant relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40321	40414	
==>hat takes
another Relation as its C<$other> argument and combines it with the
invocant relatio <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7630	7829	
==>capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7630	7829	
==>capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21837	21927	
==>ct ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21837	21927	
==>ct ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21837	21927	
==>ct ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2843	2951	
==>st( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2843	2951	
==>st( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CR <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1583	1672	
==>tr $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1583	1672	
==>tr $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1583	1672	
==>tr $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12318	12433	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12597	12712	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2468	2561	
==>@a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2468	2561	
==>@a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2468	2561	
==>@a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2823	3079	
==>}
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1223	1351	
==>-------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1223	1351	
==>-------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39690	39782	
==>uncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39690	39782	
==>uncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2047	2148	
==>)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2047	2148	
==>)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2047	2148	
==>)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8617	8707	
==>rsion 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8617	8707	
==>rsion 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Do <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4921	5035	
==>rse_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRH <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	4	107	
==>age v6;

# invokes the Perl6-to-Perl5 compiler and creates a .pmc file

use strict;
use warnings;

my $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5255	5353	
==>kage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5255	5353	
==>kage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5255	5353	
==>kage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6923	7041	
==>@copy) {
        my $path = dir($key)->subdir($pkg->meta->$key);
        
        # maybe use another mechanism to call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5090	5185	
==>obj, calls my_editor() on it.
The editor routine is passed the current object in the recursion a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5090	5185	
==>obj, calls my_editor() on it.
The editor routine is passed the current object in the recursion a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5090	5185	
==>obj, calls my_editor() on it.
The editor routine is passed the current object in the recursion a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2961	3101	
==>new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol->new('&di <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4770	4883	
==>new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol->new('&di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16492	16588	
==>ULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16492	16588	
==>ULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16492	16588	
==>ULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6003	6191	
==>),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9480	9668	
==>),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6551	6647	
==>x)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6551	6647	
==>x)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6551	6647	
==>x)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	44	150	
==>ck
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	44	150	
==>ck
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2274	2371	
==>if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $q <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2274	2371	
==>if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $q <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2274	2371	
==>if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $q <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4273	4406	
==>erclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2888	3020	
==>erclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3093	3225	
==>erclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($sel <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2730	2840	
==>al
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2730	2840	
==>al
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13334	13437	
==>:density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13334	13437	
==>:density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1796	1896	
==>fy lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1796	1896	
==>fy lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1796	1896	
==>fy lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} valu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2281	2391	
==>_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2281	2391	
==>_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22542	22636	
==>{...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22542	22636	
==>{...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22542	22636	
==>{...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3420	3548	
==>ld) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} el <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3420	3548	
==>ld) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} el <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3420	3548	
==>ld) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} el <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1722	1829	
==>ls::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2574	2681	
==>ls::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker:: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6930	7085	
==>$value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_L <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6930	7085	
==>$value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_L <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4070	4174	
==>s) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4070	4174	
==>s) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4070	4174	
==>s) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3232	3330	
==>{
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_diff <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3232	3330	
==>{
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_diff <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1353	1449	
==>::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1353	1449	
==>::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1353	1449	
==>::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14227	14325	
==>:Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14227	14325	
==>:Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14227	14325	
==>:Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $t <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7310	7406	
==>C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7310	7406	
==>C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15560	15687	
==>lf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15560	15687	
==>lf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15560	15687	
==>lf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4520	4622	
==>tring
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4520	4622	
==>tring
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2784	2920	
==>t($block) . "    ;\n" .
        # "    }\n" .
        "    push \@$grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6465	6566	
==>>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7201	7302	
==>>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6465	6566	
==>>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7201	7302	
==>>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}< <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1322	1521	
==>p::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1449	1648	
==>p::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5989	6099	
==>-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5989	6099	
==>-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5989	6099	
==>-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	750	885	
==>ch object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result { <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	750	885	
==>ch object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	356	463	
==>$_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	356	463	
==>$_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	356	463	
==>$_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1051	1156	
==>before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) { <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	793	898	
==>before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) { <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1051	1156	
==>before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) { <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	793	898	
==>before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4357	4453	
==>sh @{ $self->{values}{no_index}{$type} }, @_ if $type;
    return $self->{values}{no_index};
}

s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11488	11608	
==>.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11488	11608	
==>.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16822	16910	
==>ULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16822	16910	
==>ULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16822	16910	
==>ULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10805	10921	
==>te;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

--------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10805	10921	
==>te;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

--------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10805	10921	
==>te;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

--------------- <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2983	3087	
==>et ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + o <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2983	3087	
==>et ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	828	931	
==>sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	828	931	
==>sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	828	931	
==>sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	458	556	
==>lly override things they didn't intend to.

# Determine which stack frame points to the code we are <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	458	556	
==>lly override things they didn't intend to.

# Determine which stack frame points to the code we are <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11571	11687	
==>ill need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11571	11687	
==>ill need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11571	11687	
==>ill need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "ma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5962	6066	
==>s.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5962	6066	
==>s.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channel <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8843	8957	
==>n values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work... <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8843	8957	
==>n values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work... <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9099	9209	
==>n values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work... <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9099	9209	
==>n values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work... <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3903	4006	
==>n) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2199	2303	
==>can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2199	2303	
==>can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2199	2303	
==>can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22871	22969	
==>dy> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27423	27521	
==>dy> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
th <==
5	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	501	615	
==>/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstract:\s+ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3334	3434	
==>span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8102	8202	
==>span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3334	3434	
==>span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8102	8202	
==>span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23957	24111	
==>unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23957	24111	
==>unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23957	24111	
==>unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other di <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35589	35682	
==>lation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40139	40232	
==>lation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	227	332	
==>can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	227	332	
==>can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14952	15048	
==>LTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14952	15048	
==>LTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14952	15048	
==>LTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8119	8256	
==>od || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8119	8256	
==>od || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8119	8256	
==>od || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::S <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	234	341	
==>@_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $di <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	307	414	
==>@_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	531	651	
==>) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positio <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	531	651	
==>) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positio <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	531	651	
==>) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positio <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4877	4969	
==>eudo) methods for Config::Tiny objects. These
methods can be called with the following syntax <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4877	4969	
==>eudo) methods for Config::Tiny objects. These
methods can be called with the following syntax <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5215	5326	
==>sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5215	5326	
==>sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5215	5326	
==>sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1284	1393	
==>rammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1284	1393	
==>rammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3072	3181	
==>well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3072	3181	
==>well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3072	3181	
==>well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a laz <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1406	1505	
==>($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1406	1505	
==>($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	574	681	
==>e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	574	681	
==>e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1331	1431	
==>onstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1331	1431	
==>onstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1331	1431	
==>onstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4348	4487	
==>hile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4348	4487	
==>hile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4348	4487	
==>hile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13668	13767	
==>missing, or core bug that needs to
be sorted out before you can continue.

It is also possible to us <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13726	13825	
==>missing, or core bug that needs to
be sorted out before you can continue.

It is also possible to us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	482	590	
==>sibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	482	590	
==>sibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	482	590	
==>sibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16904	16999	
==>plication in Rosetta D (as
either named modules or anonymous routines) and write the rest of the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16904	16999	
==>plication in Rosetta D (as
either named modules or anonymous routines) and write the rest of the <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5840	5936	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4970	5066	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5840	5936	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4970	5066	
==>⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆ <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1025	1115	
==>$re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re_symbol;
our $re_comma = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35993	36086	
==>s of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35993	36086	
==>s of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10816	10926	
==>else { # array
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5516	5617	
==>f ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5516	5617	
==>f ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6106	6207	
==>f ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_ <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	126	208	
==>.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/S05.pod
  http://www.nntp.perl.org/group <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2407	2536	
==>ken_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2407	2536	
==>ken_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11527	11637	
==>fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11527	11637	
==>fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11527	11637	
==>fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".jo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16064	16161	
==>ey are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. I <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16064	16161	
==>ey are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19183	19276	
==>xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19183	19276	
==>xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19183	19276	
==>xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7425	7541	
==>ary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7425	7541	
==>ary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2366	2462	
==>::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2366	2462	
==>::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2366	2462	
==>::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1954	2127	
==>odes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5741	5914	
==>odes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1954	2127	
==>odes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5741	5914	
==>odes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1756	1857	
==>eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { require C <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1773	1890	
==>ie "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5250	5367	
==>ie "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4180	4297	
==>ie "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1411	1509	
==>er contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1411	1509	
==>er contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34748	34849	
==>ranslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note tha <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34748	34849	
==>ranslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	275	373	
==>ons here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	275	373	
==>ons here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	275	373	
==>ons here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5142	5244	
==>um(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5142	5244	
==>um(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5142	5244	
==>um(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9279	9372	
==>ment(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3104	3197	
==>ment(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1572	1662	
==>andle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1572	1662	
==>andle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1572	1662	
==>andle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19578	19665	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19578	19665	
==>are on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

= <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2514	2633	
==>ed( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2514	2633	
==>ed( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	313	424	
==>submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $sa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	313	424	
==>submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $sa <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9927	10035	
==>$noop = $o->noop;
    my($min,$max)= (@{$o->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->i <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3010	3124	
==>sh : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2807	2892	
==>oin(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@var <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6259	6344	
==>oin(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@var <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2807	2892	
==>oin(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@var <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2807	2892	
==>oin(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6500	6623	
==>checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6293	6409	
==>checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1235	1340	
==>yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $lin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1235	1340	
==>yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $lin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1235	1340	
==>yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $lin <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4314	4436	
==>ng) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if ! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7791	7913	
==>ng) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if ! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6775	6897	
==>ng) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if ! <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16782	16898	
==>IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ir <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16782	16898	
==>IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ir <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1126	1241	
==>ccent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute acce <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1126	1241	
==>ccent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute acce <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3088	3185	
==>value of the parameter named C<$name>.  If called in List context,
it will return a list of values <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3088	3185	
==>value of the parameter named C<$name>.  If called in List context,
it will return a list of values <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4671	4767	
==>itrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in ord <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	91	190	
==>pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	91	190	
==>pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	91	190	
==>pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24088	24185	
==>y>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28640	28737	
==>y>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3594	3709	
==>me) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3594	3709	
==>me) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3594	3709	
==>me) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10188	10328	
==>\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6529	6669	
==>\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7378	7518	
==>\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match:: <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	941	1055	
==>%hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) returns List|Str { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1693	1787	
==>ass [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs inside c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3248	3379	
==>nt Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nT <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3712	3843	
==>nt Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5948	6073	
==>:PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5948	6073	
==>:PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5948	6073	
==>:PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical f <==
5	/Users/nnunley/pugs/util/package-osx.pl	8702	8811	
==>$dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	923	1026	
==>tead of copying the whole string to $tail every time



# XXX - weaken self-referential things



sub ru <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	886	985	
==>tead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub ru <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2471	2568	
==>grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XX <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2471	2568	
==>grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2258	2390	
==>_ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2805	2937	
==>_ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3352	3484	
==>_ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5679	5774	
==>4); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%6 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5679	5774	
==>4); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9445	9552	
==>-----------------------------------------      
    # this collects a unique list of roles 
    # gather rec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9445	9552	
==>-----------------------------------------      
    # this collects a unique list of roles 
    # gather rec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9445	9552	
==>-----------------------------------------      
    # this collects a unique list of roles 
    # gather rec <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8886	8992	
==>his 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8886	8992	
==>his 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mu <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11952	12073	
==>ymbol $symbol could not be resolved by $self";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	444	558	
==>r die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	479	593	
==>r die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	444	558	
==>r die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\. <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9657	9771	
==>r die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6930	7123	
==>,
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6930	7123	
==>,
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6930	7123	
==>,
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17327	17440	
==>Pe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13748	13861	
==>Pe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_obje <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	2138	2260	
==>ur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_day < $cur_day;
    } else {
      $t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7287	7391	
==>b reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->generic_reduce($app);

	my ($thun <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	564	696	
==>e());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	564	696	
==>e());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	564	696	
==>e());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15786	15896	
==>can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compil <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2183	2289	
==>can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compil <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12336	12434	
==>ooks (except for comp, obviously) look for the flag value,
  and call the original Perl_ funcs if i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16791	16885	
==>lso does not make direct use of environment variables, which can aid in
portability.

Practical <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18259	18353	
==>:Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16791	16885	
==>lso does not make direct use of environment variables, which can aid in
portability.

Practical <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18259	18353	
==>:Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2900	2998	
==>ly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2900	2998	
==>ly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2900	2998	
==>ly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12940	13034	
==>ot
possible to tell which of the returned values belonged to which field.

=item $h.remove_cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12940	13034	
==>ot
possible to tell which of the returned values belonged to which field.

=item $h.remove_cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12565	12693	
==>>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12565	12693	
==>>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12565	12693	
==>>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' => <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2285	2383	
==>bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by ca <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2285	2383	
==>bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8640	8756	
==>lue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8640	8756	
==>lue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8640	8756	
==>lue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List - <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	203	318	
==>_role = ::Getopt::Argument::Coercer::Null;

        method bind ( Code &fun, Array of Str @args ) {
            $fun <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2379	2470	
==>ON_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regex <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9034	9155	
==>(Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@va <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	492	600	
==>(Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2172	2272	
==>ant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2172	2272	
==>ant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2172	2272	
==>ant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	401	520	
==>e Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	401	520	
==>e Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2456	2564	
==>class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl block <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2159	2254	
==>ok for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" w <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2159	2254	
==>ok for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" w <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1239	1386	
==>cription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        retur <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1239	1386	
==>cription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18459	18549	
==>ion (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.ne <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18655	18745	
==>ion (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.ne <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18869	18959	
==>ion (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1416	1541	
==>SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1416	1541	
==>SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1416	1541	
==>SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    f <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1047	1142	
==>y $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1105	1200	
==>y $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends) <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12002	12112	
==>ignedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	355	459	
==>ule
### Upgrade this to not have to load the module if possible
sub can_use {
	my ($self, $mod, $ver) = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16941	17031	
==>als::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16941	17031	
==>als::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16941	17031	
==>als::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	666	792	
==>$param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7367	7493	
==>ndefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	666	792	
==>$param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7367	7493	
==>ndefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7367	7493	
==>ndefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24560	24712	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25823	25975	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24839	24991	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26102	26254	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleo <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4143	4238	
==>quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	233	339	
==>';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	233	339	
==>';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11898	12015	
==>_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11898	12015	
==>_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11898	12015	
==>_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tm <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1555	1661	
==>identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\- <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1555	1661	
==>identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\- <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4248	4383	
==>->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8261	8380	
==>r( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8261	8380	
==>r( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1508	1618	
==>lass, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::C <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1508	1618	
==>lass, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::C <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19632	19788	
==>leop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::consta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19911	20067	
==>leop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::consta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4272	4394	
==>class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4272	4394	
==>class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4272	4394	
==>class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	5333	5448	
==>onversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn't open file ${srcf <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9877	9971	
==>ver 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validati <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9877	9971	
==>ver 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validati <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1463	1556	
==>functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code & <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1463	1556	
==>functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code & <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1894	2009	
==>g brackets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3750	3848	
==>ue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_so <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3934	4032	
==>ue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_so <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22528	22621	
==>lso provide some variable values to be
interpolated into the user strings; Locale::KeyedText w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22528	22621	
==>lso provide some variable values to be
interpolated into the user strings; Locale::KeyedText w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13605	13749	
==>t' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13605	13749	
==>t' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13605	13749	
==>t' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5128	5251	
==>=> chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922), <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5128	5251	
==>=> chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922), <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11934	12032	
==>able->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11934	12032	
==>able->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11934	12032	
==>able->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $labe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19644	19740	
==>end of an inner block
effectively acts as a C<no> statement for any compile sections in
that bloc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19644	19740	
==>end of an inner block
effectively acts as a C<no> statement for any compile sections in
that bloc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9809	9928	
==>E:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9809	9928	
==>E:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9809	9928	
==>E:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6493	6590	
==>a is received from the network.  If the request fails, then the
status code and message are printe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6493	6590	
==>a is received from the network.  If the request fails, then the
status code and message are printe <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16910	17020	
==>ER::<$_> --> Str )

Like C<lc>, but only affects the first character.


=item uc

 multi Str::uc         (  Str <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23694	23785	
==>> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE me <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22467	22558	
==>> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE me <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23694	23785	
==>> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE me <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22467	22558	
==>> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE me <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1392	1512	
==>age_re, no_override => 1 },
    };

    ### acc is just for accessors, the others get added for our 
    ### param checki <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5981	6076	
==>rc/Main.hs';
    my @pkgs = qw(-hide-all-packages -package stm -package network -package mtl -pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4306	4398	
==>Assign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4306	4398	
==>Assign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4306	4398	
==>Assign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1353	1445	
==>> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers su <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1353	1445	
==>> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4649	4740	
==>ft;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4649	4740	
==>ft;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4649	4740	
==>ft;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	86	192	
==>s the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	90	196	
==>s the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	86	192	
==>s the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	90	196	
==>s the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2613	2715	
==>> $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_handler( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15084	15215	
==>} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDER <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	300	416	
==>elf:) returns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3239	3353	
==>a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3239	3353	
==>a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3239	3353	
==>a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1136	1256	
==>_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4375	4495	
==>_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1136	1256	
==>_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4375	4495	
==>_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	465	560	
==>sion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (shift)->join(str->n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2322	2460	
==>->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2248	2378	
==>->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5383	5491	
==>rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5383	5491	
==>rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5383	5491	
==>rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	306	414	
==>rint "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	306	414	
==>rint "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	93	179	
==>------------------------------------------------------------
## now for some bootstrapp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	93	179	
==>------------------------------------------------------------
## now for some bootstrapp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	93	179	
==>------------------------------------------------------------
## now for some bootstrapp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13912	14028	
==>tringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13912	14028	
==>tringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13912	14028	
==>tringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "st <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9509	9607	
==>culate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a lo <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9509	9607	
==>culate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1548	1666	
==>" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1548	1666	
==>" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1548	1666	
==>" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1722	1819	
==>er (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should a <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1722	1819	
==>er (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12568	12734	
==>\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in ex <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8842	9008	
==>\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in ex <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9677	9843	
==>\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in ex <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11268	11406	
==>)
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11268	11406	
==>)
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5974	6095	
==>( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5974	6095	
==>( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5329	5425	
==>vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5329	5425	
==>vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5329	5425	
==>vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::u <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1908	2104	
==>lement>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1908	2104	
==>lement>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2727	2835	
==>e =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2727	2835	
==>e =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2727	2835	
==>e =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	491	667	
==>n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	484	660	
==>n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$ <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	848	987	
==>) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	848	987	
==>) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4795	4889	
==>self->force_object(@_);
}


sub force_object {
  Carp::croak("class name passed where object re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8891	8987	
==>`empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for S <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8891	8987	
==>`empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	398	493	
==>ructors implement deep cloning
# * functions that don't support deep cloning emit warnings on cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	398	493	
==>ructors implement deep cloning
# * functions that don't support deep cloning emit warnings on cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	398	493	
==>ructors implement deep cloning
# * functions that don't support deep cloning emit warnings on cl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5544	5708	
==>turn " # use v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12345	12475	
==>my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2725	2851	
==>my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2725	2851	
==>my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21290	21382	
==>object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Parser::unles <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	897	1010	
==>S.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	897	1010	
==>S.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	897	1010	
==>S.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8678	8779	
==>rn $S->force_object(anyof_class => lower => $neg, $how);
  });

  # print POSIX class
  $self->add_han <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	6315	6413	
==>Number of test files skipped

If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've
got <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11964	12090	
==>er,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11964	12090	
==>er,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	8159	8267	
==>ectory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_par <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	87	193	
==>Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	87	193	
==>Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&a <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	467	580	
==>ss: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	467	580	
==>ss: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3676	3777	
==>airs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3676	3777	
==>airs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3676	3777	
==>airs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	486	596	
==>ap &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        retur <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	486	596	
==>ap &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	528	629	
==>ts()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	528	629	
==>ts()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	528	629	
==>ts()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11020	11121	
==>he set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8424	8525	
==>he set. Returns the number of items removed.

It is not fatal to remove an item which is not in the se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11020	11121	
==>he set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8424	8525	
==>he set. Returns the number of items removed.

It is not fatal to remove an item which is not in the se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15398	15494	
==>subref that tests the first argument
# for success, or returns the definition of success (e.g. th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5484	5609	
==>:inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5484	5609	
==>:inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5484	5609	
==>:inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21228	21325	
==>ired) that each Perl package which
uses this would come up with keys which are unique across all P <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21228	21325	
==>ired) that each Perl package which
uses this would come up with keys which are unique across all P <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7806	7933	
==>);
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complem <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7806	7933	
==>);
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complem <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12435	12552	
==>ut, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method shift <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1329	1422	
==>L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

Th <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1329	1422	
==>L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

Th <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	407	508	
==>ge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are jus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	952	1053	
==>ge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are jus <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	407	508	
==>ge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are jus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	952	1053	
==>ge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are jus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	952	1053	
==>ge() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are jus <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2031	2207	
==>>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if define <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2031	2207	
==>>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	149	248	
==>ne options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	149	248	
==>ne options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	149	248	
==>ne options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsL <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10480	10662	
==>ext ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _di <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10480	10662	
==>ext ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _di <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	76	177	
==>use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we sto <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	76	177	
==>use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we sto <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8247	8341	
==>ght return value from first Object singleton/class method called by Foo');  

$Foo->add_singlet <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1924	2019	
==>_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1924	2019	
==>_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1222	1314	
==>lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1222	1314	
==>lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1222	1314	
==>lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Cl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13205	13378	
==>mijoin;

###########################################################################

multi method product (Relation::Example $other!) returns Relation::Example {

    die "T <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8658	8795	
==>fix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14383	14520	
==>fix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8658	8795	
==>fix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14377	14514	
==>fix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "cod <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21603	21699	
==>ages instead which are
more appropriate to the context in which they are using your package.  One <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21603	21699	
==>ages instead which are
more appropriate to the context in which they are using your package.  One <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3410	3503	
==>shift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3410	3503	
==>shift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3410	3503	
==>shift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4130	4254	
==>? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4130	4254	
==>? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4130	4254	
==>? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $na <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	168	263	
==>nto a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	168	263	
==>nto a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1060	1218	
==>scape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!par <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1060	1218	
==>scape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!par <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	138	249	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	138	249	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	138	249	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8933	9094	
==>ariables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8933	9094	
==>ariables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8933	9094	
==>ariables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4409	4503	
==>eads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( .. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4256	4349	
==>eads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( .. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2083	2224	
==>p == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        las <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2083	2224	
==>p == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        las <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2083	2224	
==>p == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        las <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32593	32685	
==>purpose is to convert Message objects on demand into user-readable
message strings, using dat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32593	32685	
==>purpose is to convert Message objects on demand into user-readable
message strings, using dat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17787	17896	
==>bot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16825	16934	
==>bot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17787	17896	
==>bot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16825	16934	
==>bot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11447	11551	
==>=~ /return/;
    return "#return-block#" . $code;
}
sub node::runtime_alternation {
    my $code = match: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17561	17726	
==>_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17561	17726	
==>_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17561	17726	
==>_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2199	2334	
==>undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2128	2260	
==>undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10418	10558	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10418	10558	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10418	10558	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	273	387	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.define <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	273	387	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.define <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11359	11456	
==>l a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `c <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11417	11514	
==>l a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4353	4449	
==>s_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($curr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4353	4449	
==>s_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($curr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4943	5039	
==>s_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2629	2741	
==>xt = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2629	2741	
==>xt = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2629	2741	
==>xt = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3094	3192	
==>of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Othe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3094	3192	
==>of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Othe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9765	9873	
==>eturn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # W <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9765	9873	
==>eturn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # W <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	541	642	
==>{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	541	642	
==>{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	541	642	
==>{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3397	3510	
==>tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3397	3510	
==>tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3397	3510	
==>tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15923	16034	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19400	19511	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5890	6017	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5890	6017	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5890	6017	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32784	32875	
==>terministic because it
invokes user-defined external files for reading, mainly in the
C<tran <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32784	32875	
==>terministic because it
invokes user-defined external files for reading, mainly in the
C<tran <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34976	35098	
==>t length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34976	35098	
==>t length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34976	35098	
==>t length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $l <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1259	1362	
==>tes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    retu <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	730	828	
==>ent to $session and return the result.
  # The session's event handler won't be executed until @:ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2513	2625	
==>ine('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2513	2625	
==>ine('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2513	2625	
==>ine('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_ev <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1333	1433	
==>zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if on <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1333	1433	
==>zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if on <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17635	17730	
==>tta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17635	17730	
==>tta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	598	718	
==>t least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1086	1206	
==>t least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	598	718	
==>t least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1086	1206	
==>t least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1582	1693	
==>).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@index <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5371	5559	
==>$_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8848	9036	
==>$_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7868	8056	
==>$_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1546	1654	
==>protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline);
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1546	1654	
==>protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline);
    } <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2211	2396	
==>st' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=it <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2211	2396	
==>st' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4848	4942	
==>So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4848	4942	
==>So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4848	4942	
==>So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10375	10525	
==>$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10375	10525	
==>$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10375	10525	
==>$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	863	993	
==>ty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processe <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	863	993	
==>ty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processe <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21075	21239	
==>thod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43999	44146	
==>thod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36031	36129	
==>n of the invocant and <$other> headings. 
The body of the new relation is the result of first pairw <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40581	40678	
==>n of the invocant and <$other> headings.
The body of the new relation is the result of first pairw <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40195	40292	
==>n of the invocant and <$other> headings.
The body of the new relation is the result of first pairw <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	731	834	
==>nt comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native cmp $right <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29020	29113	
==>xample>

This method is a generic relational operator that returns a new Relation::Example
whi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29668	29761	
==>xample>

This method is a generic relational operator that returns a new Relation::Example
whi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30829	30922	
==>xample>

This method is a generic relational operator that returns a new Relation::Example
whi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34886	34979	
==>xample>

This method is a generic relational operator that returns a new Relation::Example
whi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4173	4271	
==>malize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4173	4271	
==>malize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	957	1054	
==>ER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	957	1054	
==>ER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	957	1054	
==>ER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	379	492	
==>{
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	411	524	
==>{
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2128	2223	
==>kao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2128	2223	
==>kao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2128	2223	
==>kao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7004	7110	
==>base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7004	7110	
==>base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4902	4999	
==>{...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4902	4999	
==>{...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4902	4999	
==>{...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9968	10163	
==>tion,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Te <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	534	717	
==>tion,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	534	717	
==>tion,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	556	707	
==>texxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_store' => sub { # evaluated in <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	684	798	
==>anted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1012	1118	
==>rn(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXP <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1012	1118	
==>rn(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXP <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1012	1118	
==>rn(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXP <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25768	25866	
==>l to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Mes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25768	25866	
==>l to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Mes <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13509	13613	
==>te span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.inters <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13509	13613	
==>te span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.inters <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12652	12743	
==>}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12652	12743	
==>}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12652	12743	
==>}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::Ap <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7056	7204	
==>ays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5557	5705	
==>ays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	805	913	
==>ub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	805	913	
==>ub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	805	913	
==>ub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3198	3302	
==>servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3198	3302	
==>servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3779	3879	
==>servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3779	3879	
==>servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname <==
5	/Users/nnunley/pugs/util/package-osx.pl	5002	5099	
==>ocal/man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6::Bible::S22.3pm
        /usr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3994	4141	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3994	4141	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3994	4141	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int-> <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1264	1357	
==>you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1104	1197	
==>you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's a <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1547	1650	
==>alls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse: <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1547	1650	
==>alls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16967	17056	
==>.};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeek <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16967	17056	
==>.};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeek <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16967	17056	
==>.};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeek <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1861	1974	
==>= "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n";
	    } el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13727	13826	
==>) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13727	13826	
==>) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13727	13826	
==>) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6 <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	127	223	
==>Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, %conf{' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2553	2645	
==>v.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2553	2645	
==>v.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1766	1854	
==>v.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3627	3715	
==>v.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gra <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3009	3114	
==>rray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3009	3114	
==>rray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3009	3114	
==>rray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22342	22441	
==>=> $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22619	22718	
==>=> $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4235	4349	
==>g %!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4235	4349	
==>g %!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4985	5093	
==>foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4985	5093	
==>foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4985	5093	
==>foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	596	695	
==>holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	596	695	
==>holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	596	695	
==>holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	251	347	
==>are not implemented
    * Constructors should emit error messages if there are unknown parameters <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	251	347	
==>are not implemented
    * Constructors should emit error messages if there are unknown parameters <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4784	4889	
==>y)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4784	4889	
==>y)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4784	4889	
==>y)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorre <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1640	1736	
==>xternal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # ( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1640	1736	
==>xternal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7503	7617	
==>$name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7503	7617	
==>$name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7503	7617	
==>$name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	417	513	
==>ead1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	417	513	
==>ead1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8041	8155	
==>::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8041	8155	
==>::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8041	8155	
==>::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $othe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2883	2984	
==>->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	914	1015	
==>->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12950	13063	
==>ub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12950	13063	
==>ub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12950	13063	
==>ub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{ha <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11255	11351	
==>s) returns Bool is export`

These functions should work with most reg-exps, but given that they a <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11313	11409	
==>s) returns Bool is export`

These functions should work with most reg-exps, but given that they a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7321	7475	
==>d->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7321	7475	
==>d->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1530	1640	
==>self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1530	1640	
==>self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1530	1640	
==>self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4909	5017	
==>d_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (spl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4909	5017	
==>d_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (spl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5487	5584	
==>l6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5487	5584	
==>l6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5487	5584	
==>l6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n" <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4193	4312	
==>mplement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4193	4312	
==>mplement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9485	9599	
==>s[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9485	9599	
==>s[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9485	9599	
==>s[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3553	3658	
==>ll put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setti <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3553	3658	
==>ll put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	668	770	
==>])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	668	770	
==>])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	668	770	
==>])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12702	12815	
==>c;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6177	6290	
==>c;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5366	5469	
==>it (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5366	5469	
==>it (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5366	5469	
==>it (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37785	37880	
==>its positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37785	37880	
==>its positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	74	166	
==>N = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	74	166	
==>N = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	74	166	
==>N = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4215	4383	
==>=> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4215	4383	
==>=> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4215	4383	
==>=> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16	116	
==>e URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Bas <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16	116	
==>e URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Bas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18734	18839	
==>information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alia <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18734	18839	
==>information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alia <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4155	4241	
==>));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4155	4241	
==>));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4155	4241	
==>));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1365	1491	
==>p();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1365	1491	
==>p();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1365	1491	
==>p();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20097	20194	
==>ation_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20097	20194	
==>ation_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5709	5914	
==>l FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5709	5914	
==>l FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5709	5914	
==>l FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4094	4197	
==>enerates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3950	4051	
==>enerates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Com <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	4553	4666	
==>use this "is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fail" clashe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5605	5707	
==>nfix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great un <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4735	4837	
==>nfix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great un <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5605	5707	
==>nfix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great un <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4735	4837	
==>nfix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21557	21692	
==>sal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21557	21692	
==>sal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21557	21692	
==>sal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $se <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1297	1388	
==>o@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved. <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1297	1388	
==>o@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved. <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7710	7851	
==>%mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2021	2142	
==>%mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2021	2142	
==>%mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2021	2142	
==>%mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Per <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12917	13015	
==>thod Hash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or C< <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29755	29874	
==>key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template modul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29755	29874	
==>key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template modul <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	418	512	
==>d1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	418	512	
==>d1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	974	1068	
==>d1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3163	3332	
==>tate}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3062	3226	
==>tate}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1653	1756	
==>nt encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1653	1756	
==>nt encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1653	1756	
==>nt encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1338	1476	
==>request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1338	1476	
==>request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9248	9358	
==>ms(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9248	9358	
==>ms(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9248	9358	
==>ms(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	419	536	
==>neric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	964	1081	
==>neric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep() <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	419	536	
==>neric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	964	1081	
==>neric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	964	1081	
==>neric range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep() <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14094	14225	
==>} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # bounded quantifier (but no <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	3	103	
==>ass Meta::Class;

use Set;
use Meta::Assoc;
use Meta::Attrib;
use Meta::Method;

use Meta::Util;

Has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6506	6600	
==>ation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6506	6600	
==>ation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6506	6600	
==>ation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	675	785	
==>> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	675	785	
==>> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	675	785	
==>> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20315	20408	
==>back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonic <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20315	20408	
==>back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonic <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7215	7355	
==>d $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7215	7355	
==>d $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8407	8534	
==>om_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8407	8534	
==>om_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8407	8534	
==>om_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3551	3650	
==>' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3551	3650	
==>' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3551	3650	
==>' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/stor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1005	1103	
==>($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slur <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1005	1103	
==>($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2979	3096	
==>ify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2979	3096	
==>ify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2979	3096	
==>ify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    u <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1190	1279	
==>5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RU <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1401	1490	
==>5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RU <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2504	2623	
==>ist::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Array)\
#   ie, both return and argument types <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	145	238	
==>ine | SubBlock | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubPrim»;
has SubType $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2196	2287	
==>ction (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2196	2287	
==>ction (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2196	2287	
==>ction (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3895	4001	
==>>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3895	4001	
==>>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3895	4001	
==>>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wal <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	946	1065	
==>y
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4424	4543	
==>y
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	77	168	
==>unction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	77	168	
==>unction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	77	168	
==>unction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  }) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3738	3900	
==>match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3985	4139	
==>match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10434	10588	
==>match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3985	4139	
==>match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10434	10588	
==>match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20947	21161	
==>" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21226	21440	
==>" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	204	333	
==>pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subno <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	204	333	
==>pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subno <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	204	333	
==>pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subno <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14228	14448	
==>});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14228	14448	
==>});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14228	14448	
==>});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    u <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18809	18912	
==>can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        docum <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18809	18912	
==>can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        docum <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	625	730	
==>s.

A class is a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can co <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	771	871	
==>ay::unshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14817	14916	
==>age Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14817	14916	
==>age Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14817	14916	
==>age Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_st <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14723	14852	
==>fic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14723	14852	
==>fic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	290	412	
==>= 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	290	412	
==>= 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	290	412	
==>= 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair ins <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3769	3876	
==>e\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7036	7140	
==>$s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::ter <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3640	3744	
==>$s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::ter <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5770	5874	
==>AML::DumpFile($index, $index_content);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4489	4593	
==>$s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::ter <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29669	29790	
==>NVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            retu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29669	29790	
==>NVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            retu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	473	578	
==>NVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4878	4975	
==>sh>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and returns <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4878	4975	
==>sh>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1591	1699	
==>al => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1591	1699	
==>al => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2611	2715	
==>]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2611	2715	
==>]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2611	2715	
==>]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8700	8852	
==>t "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12606	12752	
==>t "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12606	12752	
==>t "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        r <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5412	5507	
==>~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5412	5507	
==>~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2545	2686	
==>Text::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2545	2686	
==>Text::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8590	8699	
==>gs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8590	8699	
==>gs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8590	8699	
==>gs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^per <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3220	3331	
==>rg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6345	6456	
==>rg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3220	3331	
==>rg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6345	6456	
==>rg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?S <==
5	/Users/nnunley/pugs/util/version_h.pl	727	825	
==>ease -- do nothing!
}
elsif (-r $svn_entries) {
    print "Writing version from $svn_entries to $ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8121	8360	
==>$v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8121	8360	
==>$v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8121	8360	
==>$v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15633	15729	
==>ment systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluepr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15633	15729	
==>ment systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluepr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1557	1678	
==>perly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller($Level);
    retu <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18467	18571	
==>.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4202	4291	
==>ce_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4202	4291	
==>ce_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4202	4291	
==>ce_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4517	4642	
==>increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1762	1887	
==>{
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4517	4642	
==>increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5239	5364	
==>{
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4169	4294	
==>{
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7253	7397	
==>d $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7253	7397	
==>d $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17126	17219	
==>B symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17126	17219	
==>B symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17126	17219	
==>B symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23090	23209	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42693	42812	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3207	3322	
==>::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3207	3322	
==>::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3207	3322	
==>::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11048	11204	
==>";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8114	8264	
==>";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8114	8264	
==>";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1569	1675	
==>cumentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4904	5002	
==>cumentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	591	689	
==>cumentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5044	5142	
==>cumentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	591	689	
==>cumentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4853	4957	
==>orted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4853	4957	
==>orted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4853	4957	
==>orted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27465	27562	
==>ually change an existing Message object, you must create a new
object that is a clone of the first <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27465	27562	
==>ually change an existing Message object, you must create a new
object that is a clone of the first <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8046	8151	
==>dent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8046	8151	
==>dent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8046	8151	
==>dent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22933	23031	
==>ains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and values <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27485	27583	
==>ains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and values <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10088	10213	
==>ems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10088	10213	
==>ems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10088	10213	
==>ems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5190	5297	
==>string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5190	5297	
==>string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	382	552	
==>> 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	382	552	
==>> 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	382	552	
==>> 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15915	16016	
==>Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enq <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15915	16016	
==>Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1911	2096	
==>" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1911	2096	
==>" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1911	2096	
==>" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8226	8392	
==>nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8690	8856	
==>nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5894	6054	
==>h.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5894	6054	
==>h.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5894	6054	
==>h.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,nul <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8062	8171	
==>("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8120	8229	
==>("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testi <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	40	171	
==>ape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX n <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	40	171	
==>ape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1632	1742	
==>ethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5109	5219	
==>ethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4039	4149	
==>ethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19019	19115	
==>ersection( $other!body ),
    );
}

my method _semijoin (Relation::Example $other!) returns Relat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23116	23211	
==>iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21925	22020	
==>iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23116	23211	
==>iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21925	22020	
==>iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15260	15466	
==>1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15260	15466	
==>1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15260	15466	
==>1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26274	26368	
==>hile it is by no means required, the copyright holders of Rosetta would
appreciate being inform <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26274	26368	
==>hile it is by no means required, the copyright holders of Rosetta would
appreciate being inform <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	104	232	
==>xport {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	104	232	
==>xport {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3121	3213	
==>pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3121	3213	
==>pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3121	3213	
==>pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1795	1917	
==>t
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1795	1917	
==>t
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1795	1917	
==>t
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1228	1316	
==>itionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1228	1316	
==>itionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Com <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6550	6664	
==>n) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } els <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6550	6664	
==>n) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16634	16730	
==>spatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16634	16730	
==>spatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16634	16730	
==>spatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6065	6246	
==>[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6065	6246	
==>[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6065	6246	
==>[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3054	3155	
==>= @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3054	3155	
==>= @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5614	5753	
==>ady

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4114	4253	
==>ady

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5120	5232	
==>e::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2662	2774	
==>e::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3443	3555	
==>e::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10045	10179	
==>eturn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10881	11015	
==>eturn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1100	1194	
==><\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1100	1194	
==><\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1100	1194	
==><\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub in <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2647	2752	
==>{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') {
    if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4584	4688	
==>:Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4584	4688	
==>:Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4584	4688	
==>:Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Nu <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	20	118	
==>ound_toward_nearest (Num $x, int $symmetrical? = 1) {
# XXX -- Not implemented
# How should I imple <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1491	1611	
==>ocument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docume <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1491	1611	
==>ocument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docume <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1491	1611	
==>ocument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docume <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23405	23499	
==>re "Relation" is a Role rather than a Class, and some
implementations are immutable rather than <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27957	28051	
==>re "Relation" is a Role rather than a Class, and some
implementations are immutable rather than <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	240	350	
==>anges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	240	350	
==>anges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	240	350	
==>anges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22198	22299	
==>ke a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26750	26851	
==>ke a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4060	4188	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4060	4188	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4060	4188	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    :: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13484	13580	
==>ch must be
made to pass before this test can pass (or before an implementation
could be started). <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13542	13638	
==>ch must be
made to pass before this test can pass (or before an implementation
could be started). <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3695	3963	
==>_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3695	3963	
==>_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14591	14785	
==>Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14591	14785	
==>Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14591	14785	
==>Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	370	471	
==>es that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	370	471	
==>es that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	370	471	
==>es that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23972	24059	
==>L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this modu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23972	24059	
==>L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14638	14773	
==>f->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14638	14773	
==>f->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14638	14773	
==>f->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	655	783	
==>str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	752	880	
==>str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5391	5503	
==>os, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5391	5503	
==>os, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5391	5503	
==>os, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	8	103	
==>JIB::Package::Installed;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constant <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14844	14939	
==>rd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8132	8225	
==>ast '=item' directive, followed by any text on the same line.

=item I<start_element ('verbati <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8132	8225	
==>ast '=item' directive, followed by any text on the same line.

=item I<start_element ('verbati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1974	2066	
==>bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1974	2066	
==>bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1974	2066	
==>bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21703	21811	
==>sub "p6analyze" :method
    .param pmc pad
    .local int isarray, iscapture
    .local string cname
    .loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	423	610	
==>normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	423	610	
==>normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	423	610	
==>normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15337	15435	
==>cted, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) ret <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15395	15493	
==>cted, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) ret <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4473	4594	
==>d = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    els <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4473	4594	
==>d = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4903	5003	
==>-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4903	5003	
==>-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4903	5003	
==>-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20625	20764	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20904	21043	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13453	13573	
==>{
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_p <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13453	13573	
==>{
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_p <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15204	15316	
==>initrd_gz and -M $iso <= -M "$cdroot/boot/grub/menu.lst" },
  using  => sub {
    system
      "mkisofs",
      " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3345	3458	
==>ss defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3345	3458	
==>ss defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3345	3458	
==>ss defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17555	17651	
==>uments.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17555	17651	
==>uments.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13929	14088	
==>ate methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13929	14088	
==>ate methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13929	14088	
==>ate methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2468	2623	
==>apture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2479	2634	
==>apture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '? <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10980	11107	
==>, { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10980	11107	
==>, { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4116	4221	
==>hObj->position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16203	16300	
==>ts into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  str <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20629	20726	
==>ts into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  str <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4271	4439	
==>0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4271	4439	
==>0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7686	7785	
==>b cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7686	7785	
==>b cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7686	7785	
==>b cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5529	5625	
==>_Match_appender($r,$name);
  push(@operators,[$r,$op]);
  $r;
}

# so Regexp::Parser doesn't have <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2643	2733	
==>::Backend::Perl::Interpreter;

=head1 DESCRIPTION

This is a subclass of L<Blondie::Reducer <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13663	13784	
==>string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3792	3905	
==>string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3792	3905	
==>string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3792	3905	
==>string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1) <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	705	807	
==>ript     => $Config{installsitescript} || $Config{installscript},
        installbin     => $Config{ins <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	572	657	
==>entation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haske <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	572	657	
==>entation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haske <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14296	14380	
==>ot::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14296	14380	
==>ot::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14296	14380	
==>ot::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36672	36791	
==>sh( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36672	36791	
==>sh( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36672	36791	
==>sh( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splic <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	362	465	
==>d_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	362	465	
==>d_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $nam <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1818	1919	
==>"Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob pat <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1818	1919	
==>"Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2810	2908	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2810	2908	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2810	2908	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	142	247	
==>n be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * clean <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	142	247	
==>n be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * clean <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1933	2021	
==>we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1933	2021	
==>we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1933	2021	
==>we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9091	9188	
==>cter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <!before <LineTe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8156	8249	
==>ers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
mu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7286	7379	
==>ers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8156	8249	
==>ers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
mu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7286	7379	
==>ers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8414	8505	
==>th_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8414	8505	
==>th_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8414	8505	
==>th_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1502	1647	
==>ruct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	382	502	
==>_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $nod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	417	537	
==>_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $nod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	382	502	
==>_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $nod <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9595	9715	
==>_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $nod <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	126	250	
==>rray $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad( <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	126	250	
==>rray $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	674	791	
==>eate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	674	791	
==>eate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	674	791	
==>eate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1799	1916	
==>f the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1799	1916	
==>f the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2035	2152	
==>f the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2258	2357	
==>'<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2258	2357	
==>'<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5829	5975	
==>lar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2139	2232	
==>ix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2139	2232	
==>ix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2139	2232	
==>ix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32052	32144	
==>eturns block {
    $self._make_dispatcher_iterator(@:MRO.reverse);
}

=cut

$::Class->send('a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7309	7495	
==>>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7309	7495	
==>>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7309	7495	
==>>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            } <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7132	7275	
==>ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep alre <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7596	7739	
==>ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep alre <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5359	5468	
==>d of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = norma <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5359	5468	
==>d of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = norma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7712	7816	
==>named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9640	9744	
==>named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7700	7804	
==>named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5529	5653	
==>e)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6026	6145	
==>e) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8662	8772	
==>1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25954	26044	
==>:free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a) <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26197	26287	
==>:free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8955	9068	
==>...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8955	9068	
==>...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9452	9558	
==>ptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9452	9558	
==>ptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9452	9558	
==>ptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2584	2683	
==>::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2584	2683	
==>::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2584	2683	
==>::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DE <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11092	11190	
==>of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node obj <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11092	11190	
==>of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2865	2966	
==>$attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2865	2966	
==>$attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2865	2966	
==>$attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25917	26010	
==>nges, in
addition to preserving this original copyright notice and other credits.
Rosetta is d <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25917	26010	
==>nges, in
addition to preserving this original copyright notice and other credits.
Rosetta is d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	288	401	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	288	401	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	288	401	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11340	11438	
==>kies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11340	11438	
==>kies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1026	1128	
==>&& $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1259	1361	
==>&& $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6126	6217	
==>bs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6126	6217	
==>bs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6126	6217	
==>bs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	197	325	
==>y $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $sel <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18525	18624	
==>> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17561	17660	
==>> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18525	18624	
==>> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17561	17660	
==>> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5081	5195	
==>KAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5081	5195	
==>KAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5081	5195	
==>KAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	435	541	
==>AL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[W <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	435	541	
==>AL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[W <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3946	4160	
==>Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->new(
        Seq->new( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3247	3345	
==>EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6372	6470	
==>EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3247	3345	
==>EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6372	6470	
==>EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5050	5155	
==>n_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5050	5155	
==>n_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5050	5155	
==>n_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18150	18246	
==>he nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18150	18246	
==>he nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	203	324	
==>=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	132	244	
==>erator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	132	244	
==>erator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtim <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	661	759	
==>ve form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1251	1349	
==>ve form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23528	23701	
==>calar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23528	23701	
==>calar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23528	23701	
==>calar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar-> <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	88	179	
==>ilter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method h <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	88	179	
==>ilter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method h <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9908	10025	
==>" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we're VMS, since VMS requires a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7119	7229	
==>=> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    return $S->for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	726	828	
==>OP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEG <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	726	828	
==>OP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEG <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	726	828	
==>OP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEG <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7643	7768	
==>9),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "e <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7643	7768	
==>9),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	204	299	
==>8-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	204	299	
==>8-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access() <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	204	299	
==>8-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2783	2919	
==>(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which imp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2783	2919	
==>(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which imp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2783	2919	
==>(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which imp <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	336	428	
==>ar_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	336	428	
==>ar_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6353	6458	
==>e // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6353	6458	
==>e // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20840	20932	
==>nfix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20840	20932	
==>nfix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20840	20932	
==>nfix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5397	5524	
==>lf->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6583	6705	
==>_('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6583	6705	
==>_('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6583	6705	
==>_('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Va <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5915	6021	
==>lf->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	192	307	
==>v->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	192	307	
==>v->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	192	307	
==>v->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2713	2817	
==>elds) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($dat <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2713	2817	
==>elds) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($dat <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	286	384	
==>ive isa Perl::Type;

# junctive types can only be disjunctions and conjunctions, so
# sub-type Junc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2965	3077	
==>(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while3.pl	41	153	
==>e strict;
my $i = 1;
do { # keine echte Schleife...
	print "$i\n"; $i++;
	# last if $i==3; # ... würde nicht geh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2965	3077	
==>(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2965	3077	
==>(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22314	22422	
==>-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1476	1575	
==>K &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1476	1575	
==>K &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1476	1575	
==>K &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1095	1191	
==>ng utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1095	1191	
==>ng utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38800	38910	
==>et = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XX <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38800	38910	
==>et = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XX <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38800	38910	
==>et = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	184	285	
==>Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	184	285	
==>Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2363	2480	
==>m:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2363	2480	
==>m:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2363	2480	
==>m:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as P <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5673	5779	
==>:Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5673	5779	
==>:Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10065	10174	
==>&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10065	10174	
==>&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10065	10174	
==>&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26345	26440	
==>ew Relation has all
of the tuples of the original (or rather, the corresponding projection of
ea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30897	30992	
==>ew Relation has all
of the tuples of the original (or rather, the corresponding projection of
ea <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	149	265	
==>se base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	142	254	
==>se base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	136	248	
==>se base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	142	254	
==>se base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	136	248	
==>se base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $p <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2902	2994	
==>s@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1311	1403	
==>array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obj <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2902	2994	
==>s@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1311	1403	
==>array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1311	1403	
==>array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obj <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10698	10875	
==>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10698	10875	
==>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7460	7584	
==>$b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7460	7584	
==>$b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7460	7584	
==>$b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1302	1416	
==>};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1302	1416	
==>};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1302	1416	
==>};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        wa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2885	2996	
==>mmar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3025	3136	
==>mmar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disap <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8815	8919	
==>delete stringifies its return values,
      # but I was unable to work out a test case, and in interactiv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8815	8919	
==>delete stringifies its return values,
      # but I was unable to work out a test case, and in interactiv <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9071	9173	
==>delete stringifies its return values,
    # but I was unable to work out a test case, and in interactiv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9071	9173	
==>delete stringifies its return values,
    # but I was unable to work out a test case, and in interactiv <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6959	7061	
==>error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn an <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18232	18328	
==>se the same external resources, such as a repository file
on disk, it is expected that the Engine <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18232	18328	
==>se the same external resources, such as a repository file
on disk, it is expected that the Engine <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2906	3031	
==>r("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2906	3031	
==>r("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	577	690	
==>eginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	577	690	
==>eginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	577	690	
==>eginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5004	5137	
==>n => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    ret <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5004	5137	
==>n => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2246	2354	
==>b {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2246	2354	
==>b {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2246	2354	
==>b {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(? <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46005	46155	
==>->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49239	49389	
==>->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50117	50267	
==>->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3374	3513	
==>'||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        precedence => 'looser',
        other = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13288	13379	
==>unexpected on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not impleme <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8570	8700	
==>keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8570	8700	
==>keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4209	4316	
==>in(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @IS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4209	4316	
==>in(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @IS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4209	4316	
==>in(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @IS <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	775	883	
==>e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	775	883	
==>e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	775	883	
==>e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3279	3375	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3279	3375	
==>r $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33333	33539	
==>h;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33333	33539	
==>h;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33333	33539	
==>h;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1688	1815	
==>},
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1688	1815	
==>},
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4574	4722	
==>package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b-> <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5038	5186	
==>package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5038	5146	
==>n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5038	5146	
==>n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5038	5146	
==>n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31293	31388	
==>p> operator; that subset is those for which the the
Bool-returning anonymous function in the arg <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35843	35938	
==>p> operator; that subset is those for which the the
Bool-returning anonymous function in the arg <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35061	35156	
==>p> operator; that subset is those for which the the
Bool-returning anonymous function in the arg <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3488	3581	
==>teractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3488	3581	
==>teractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3912	4032	
==>tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $htm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3912	4032	
==>tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $htm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3912	4032	
==>tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $htm <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1328	1423	
==>path($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1328	1423	
==>path($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9026	9169	
==>, sub { 
                          my $e = shift; 
                          $e->set("$method", $e->get("$current")->send("get_method", $e->get( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1121	1225	
==>roper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%pa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1101	1205	
==>roper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%pa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1121	1225	
==>roper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%pa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1101	1205	
==>roper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5661	5784	
==>Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9972	10095	
==>Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5857	5960	
==>.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5857	5960	
==>.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5857	5960	
==>.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4687	4789	
==>code instead of taking from filter,
    # because we need all the lines including the ones before the ` <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4687	4789	
==>code instead of taking from filter,
    # because we need all the lines including the ones before the ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4544	4645	
==>s);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4544	4645	
==>s);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4544	4645	
==>s);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj;
} <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11686	11779	
==>rence intersects (has any element in common) with the given recurrence.

- `equal( $recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11686	11779	
==>rence intersects (has any element in common) with the given recurrence.

- `equal( $recurrence <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4440	4532	
==>PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4440	4532	
==>PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4440	4532	
==>PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	825	936	
==>$match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	825	936	
==>$match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5555	5654	
==>.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5555	5654	
==>.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5555	5654	
==>.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->pa <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12302	12407	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6869	6974	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12302	12407	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6869	6974	
==>if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11329	11445	
==>_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6724	6837	
==>$pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub war <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1166	1273	
==>$pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub war <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1166	1273	
==>$pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub war <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1166	1273	
==>$pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub war <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14178	14276	
==>e" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raisin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14178	14276	
==>e" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raisin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	47	139	
==>L::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitiv <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	47	139	
==>L::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitiv <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	47	139	
==>L::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitiv <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1781	1877	
==>rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (N <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25138	25223	
==><examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversio <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23902	23987	
==><examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversio <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25138	25223	
==><examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversio <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23902	23987	
==><examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversio <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12927	13074	
==>ze_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12927	13074	
==>ze_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4382	4509	
==>'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4382	4509	
==>'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4382	4509	
==>'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1358	1461	
==>le->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1498	1601	
==>le->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4297	4501	
==>i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4297	4501	
==>i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        m <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8888	8985	
==>GEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by Ke <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8888	8985	
==>GEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by Ke <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30223	30316	
==>C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34775	34868	
==>C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33948	34041	
==>C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	164	291	
==>"{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	164	291	
==>"{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	164	291	
==>"{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2643	2743	
==>int "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2783	2883	
==>int "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6521	6635	
==>from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6521	6635	
==>from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6521	6635	
==>from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($f <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10962	11058	
==>wise the program will emit warnings during the execution of some methods, 
because it will try to <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10962	11058	
==>wise the program will emit warnings during the execution of some methods, 
because it will try to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2120	2277	
==>my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1889	2042	
==>my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1889	2042	
==>my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30421	30517	
==>member being an an exclusive alternative for the rest
of the set. There is a separate template mo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30421	30517	
==>member being an an exclusive alternative for the rest
of the set. There is a separate template mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4403	4537	
==>$type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4403	4537	
==>$type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4403	4537	
==>$type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ari <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	356	469	
==>"warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DO <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	356	469	
==>"warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	111	210	
==>ings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	111	210	
==>ings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	111	210	
==>ings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17496	17588	
==>lly from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17496	17588	
==>lly from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longe <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1224	1328	
==>t, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace f <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1224	1328	
==>t, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15587	15683	
==>m_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15587	15683	
==>m_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15587	15683	
==>m_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	687	800	
==>PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	687	800	
==>PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	687	800	
==>PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	604	700	
==>';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PE <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	650	744	
==>';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8317	8459	
==>rn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8317	8459	
==>rn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8317	8459	
==>rn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    retu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33408	33503	
==>on> except that the returned Relation contains only tuples that are in
all of the source Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37958	38053	
==>on> except that the returned Relation contains only tuples that are in
all of the source Relatio <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	737	860	
==>s;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	737	860	
==>s;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	912	1010	
==>E_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	912	1010	
==>E_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	912	1010	
==>E_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} } <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13841	13946	
==><Expression> <']'>
    | <CallExpression> <'.'> <Identifier>
}
rule Arguments :words {  # see 11.2
      < <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39538	39632	
==>2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39538	39632	
==>2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24262	24355	
==>2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24262	24355	
==>2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports t <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8488	8659	
==>.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2169	2283	
==>OPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2169	2283	
==>OPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1399	1508	
==>OPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3260	3369	
==>OPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	681	789	
==>s) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *in <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	681	789	
==>s) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *in <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11357	11463	
==>iteral {  # see 9.3.1
      <StrDecimalLiteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2075	2169	
==>al AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, host <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2075	2169	
==>al AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, host <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	419	604	
==>ion_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	419	604	
==>ion_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	419	604	
==>ion_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4668	4791	
==>"' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4668	4791	
==>"' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11407	11506	
==>!_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	955	1054	
==>peid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL:: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14884	14983	
==>!_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@other <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	955	1054	
==>peid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	955	1054	
==>peid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	589	743	
==>le->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	589	743	
==>le->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1642	1745	
==>} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1642	1745	
==>} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1642	1745	
==>} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13125	13274	
==>= { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13125	13274	
==>= { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13125	13274	
==>= { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39201	39284	
==>del>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::She <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39201	39284	
==>del>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::She <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4942	5046	
==>be PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValu <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4942	5046	
==>be PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7138	7230	
==>he ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7138	7230	
==>he ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7138	7230	
==>he ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:rol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3004	3125	
==>e "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3004	3125	
==>e "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3004	3125	
==>e "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2076	2181	
==>meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2076	2181	
==>meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4098	4197	
==>$_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4098	4197	
==>$_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4098	4197	
==>$_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16503	16595	
==>ed database functionality;
this language, which satisfies TTM's definition of a "D" language, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16503	16595	
==>ed database functionality;
this language, which satisfies TTM's definition of a "D" language, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4732	4850	
==>es.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4732	4850	
==>es.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11564	11684	
==>it for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11564	11684	
==>it for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2712	2804	
==>Scope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2712	2804	
==>Scope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2712	2804	
==>Scope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10589	10696	
==>erator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10589	10696	
==>erator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Sp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7732	7836	
==>bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9660	9764	
==>bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7720	7824	
==>bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6575	6688	
==>x = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_char <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6575	6688	
==>x = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_char <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4979	5088	
==>block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4979	5088	
==>block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4979	5088	
==>block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	236	355	
==>run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	236	355	
==>run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	236	355	
==>run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	847	946	
==>]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	847	946	
==>]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4980	5090	
==>mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4980	5090	
==>mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4980	5090	
==>mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6232	6329	
==>tty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 FU <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6232	6329	
==>tty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 FU <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3627	3737	
==>lation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7104	7214	
==>lation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6061	6171	
==>lation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12069	12177	
==>utoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12069	12177	
==>utoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10458	10572	
==>--------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10458	10572	
==>--------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10458	10572	
==>--------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12254	12352	
==>r( $field, $value )

Set the specified header to the given value, but only if no previous
value for <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12254	12352	
==>r( $field, $value )

Set the specified header to the given value, but only if no previous
value for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1450	1548	
==>)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1450	1548	
==>)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1450	1548	
==>)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11919	12012	
==>et.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11919	12012	
==>et.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9433	9559	
==>*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9421	9547	
==>*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	725	833	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	725	833	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	725	833	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3792	3900	
==>aded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compile <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3656	3761	
==>aded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5123	5215	
==>), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5123	5215	
==>), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5123	5215	
==>), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6139	6245	
==>ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6139	6245	
==>ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6139	6245	
==>ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4239	4341	
==>nt {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %han <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4239	4341	
==>nt {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %han <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1512	1606	
==>p';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ENUM, 'Unr <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8091	8184	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7221	7314	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8091	8184	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7221	7314	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1860	1961	
==>tor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1860	1961	
==>tor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1860	1961	
==>tor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	395	485	
==>Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	395	485	
==>Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9294	9452	
==>eys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        ] )
    } @keys;
    r <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2723	2831	
==>urn !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::sign (Nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1699	1798	
==>self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1699	1798	
==>self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1699	1798	
==>self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $me <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19976	20101	
==>y $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16397	16522	
==>y $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S- <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9738	9848	
==>fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3436	3526	
==>sa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depen <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3494	3584	
==>sa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depen <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4995	5107	
==>G INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	550	662	
==>);

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4995	5107	
==>G INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	550	662	
==>);

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	550	662	
==>);

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	901	1004	
==>::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	901	1004	
==>::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Do <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1191	1287	
==>x:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1191	1287	
==>x:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1191	1287	
==>x:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1377	1477	
==>$one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) { <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1377	1477	
==>$one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5581	5680	
==>rst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5581	5680	
==>rst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5581	5680	
==>rst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4683	4807	
==>ift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4683	4807	
==>ift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4683	4807	
==>ift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5106	5206	
==>ized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've reg <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5106	5206	
==>ized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've reg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4179	4293	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4179	4293	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4179	4293	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.pe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7415	7508	
==>n, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7415	7508	
==>n, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5787	6009	
==>ds( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we fou <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6251	6473	
==>ds( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we fou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4113	4219	
==>ORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4113	4219	
==>ORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4113	4219	
==>ORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4164	4312	
==>=> '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4164	4312	
==>=> '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34961	35071	
==>" offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34961	35071	
==>" offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34961	35071	
==>" offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3304	3416	
==>rl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3304	3416	
==>rl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3304	3416	
==>rl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw " <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7845	7950	
==>ns

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7845	7950	
==>ns

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4382	4582	
==>y( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package s <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4846	5046	
==>y( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9490	9598	
==>ain" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9490	9598	
==>ain" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9490	9598	
==>ain" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8722	8865	
==>match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8722	8865	
==>match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3426	3527	
==>attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3426	3527	
==>attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3426	3527	
==>attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	872	980	
==>ASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package method::sig <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	428	522	
==>est::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This c <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	428	522	
==>est::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	984	1078	
==>est::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3966	4152	
==>ate};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3845	4024	
==>ate};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4603	4705	
==>>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4603	4705	
==>>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4603	4705	
==>>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $r <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1126	1232	
==>shift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $Config{cc} may contain args; try <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1068	1168	
==>shift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Config{cc} may contain args; try <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5650	5845	
==>y; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        re <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5650	5845	
==>y; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13085	13186	
==>line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13085	13186	
==>line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13085	13186	
==>line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2132	2249	
==>for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2132	2249	
==>for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2132	2249	
==>for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20100	20197	
==>o inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20100	20197	
==>o inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	594	701	
==>rule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	594	701	
==>rule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12280	12377	
==>y($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12280	12377	
==>y($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12280	12377	
==>y($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16597	16767	
==>y = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16597	16767	
==>y = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16597	16767	
==>y = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2885	3025	
==>non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3069	3209	
==>non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- ca <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12000	12096	
==>', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$tod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12058	12154	
==>', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$tod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4596	4731	
==>ew > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4596	4731	
==>ew > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1934	2038	
==>te sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1934	2038	
==>te sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1934	2038	
==>te sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4338	4435	
==>p, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4338	4435	
==>p, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4338	4435	
==>p, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7234	7324	
==>6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1059	1149	
==>6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @st <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4048	4157	
==>Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there ar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4048	4157	
==>Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4635	4737	
==>("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4635	4737	
==>("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4635	4737	
==>("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3960	4078	
==>otocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3820	3934	
==>otocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	304	405	
==>LIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	304	405	
==>LIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	304	405	
==>LIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
} <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11839	11969	
==>n @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.j <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15316	15446	
==>n @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.j <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14651	14781	
==>n @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.j <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11894	12004	
==>P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the tim <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11894	12004	
==>P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the tim <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2606	2727	
==>f }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2606	2727	
==>f }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2317	2417	
==>od' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2317	2417	
==>od' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2317	2417	
==>od' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13766	13888	
==>zed app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available language <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13766	13888	
==>zed app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available language <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3824	3922	
==>my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3824	3922	
==>my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3824	3922	
==>my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4616	4864	
==>ext;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4616	4864	
==>ext;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	252	343	
==>tion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	252	343	
==>tion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	252	343	
==>tion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4671	4776	
==>equire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has al <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4530	4635	
==>equire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3380	3481	
==>as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3380	3481	
==>as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3380	3481	
==>as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5816	6059	
==>) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @fou <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6280	6523	
==>) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @fou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1706	1839	
==>lse {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1706	1839	
==>lse {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1706	1839	
==>lse {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13468	13571	
==>=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13468	13571	
==>=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3543	3681	
==>()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3543	3681	
==>()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3543	3681	
==>()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	487	584	
==>cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at l <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	487	584	
==>cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8565	8665	
==>return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8565	8665	
==>return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8565	8665	
==>return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Mode <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Mode <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4027	4127	
==>onth => $month, day => $day )`

Returns a date object for the given values.  The month and day defaul <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4027	4127	
==>onth => $month, day => $day )`

Returns a date object for the given values.  The month and day defaul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12354	12463	
==>nt' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12354	12463	
==>nt' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12354	12463	
==>nt' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unbo <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8985	9087	
==>st::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9043	9145	
==>st::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3667	3774	
==>tname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3667	3774	
==>tname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3373	3461	
==>ss.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3373	3461	
==>ss.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3373	3461	
==>ss.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.ad <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4117	4218	
==>mpile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4334	4435	
==>mpile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2934	3184	
==>s>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3181	3431	
==>s>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2564	2665	
==>ispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2564	2665	
==>ispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2564	2665	
==>ispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11125	11219	
==>c?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, St <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11183	11277	
==>c?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, St <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3122	3227	
==>PI.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3122	3227	
==>PI.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6888	7016	
==>) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6888	7016	
==>) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1821	1925	
==>push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1821	1925	
==>push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1901	2005	
==>push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	13	277	
==>gs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	13	277	
==>gs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9599	9723	
==>+) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9599	9723	
==>+) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9599	9723	
==>+) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.len <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2526	2625	
==>s $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2526	2625	
==>s $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2526	2625	
==>s $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => : <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5552	5648	
==>pan.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5552	5648	
==>pan.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9834	9944	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9834	9944	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9834	9944	
==>alues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15257	15354	
==>ing the input string).

If you prefer not to import these routines into your namespace, you can
ca <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15257	15354	
==>ing the input string).

If you prefer not to import these routines into your namespace, you can
ca <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6908	7057	
==>$list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub lo <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6908	7057	
==>$list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11532	11641	
==>= '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11532	11641	
==>= '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11532	11641	
==>= '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5057	5195	
==>f->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5057	5195	
==>f->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5057	5195	
==>f->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2628	2722	
==>s:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2628	2722	
==>s:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4036	4159	
==>($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4036	4159	
==>($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4036	4159	
==>($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object] <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2428	2538	
==>IE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2428	2538	
==>IE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5442	5606	
==>$end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5442	5606	
==>$end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5442	5606	
==>$end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22565	22654	
==>terface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22565	22654	
==>terface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3886	3994	
==>_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4103	4211	
==>_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16669	16774	
==>e( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This modu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16669	16774	
==>e( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This modu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16669	16774	
==>e( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This modu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22052	22179	
==>' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22612	22739	
==>' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18473	18600	
==>' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19033	19160	
==>' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24867	24989	
==>ule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15. <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8423	8531	
==>tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# L <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8481	8589	
==>tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# L <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	880	978	
==>e($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	880	978	
==>e($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	880	978	
==>e($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  packag <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2954	3067	
==>a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2954	3067	
==>a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2954	3067	
==>a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1207	1298	
==>::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use F <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1207	1298	
==>::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use F <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4905	5023	
==>r(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $e <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4905	5023	
==>r(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5377	5478	
==>{...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5377	5478	
==>{...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5377	5478	
==>{...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1196	1373	
==>@res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1196	1373	
==>@res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1196	1373	
==>@res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20209	20321	
==>> $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${& <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16630	16742	
==>> $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${& <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1883	1975	
==>:L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1883	1975	
==>:L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16117	16208	
==>return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16117	16208	
==>return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16117	16208	
==>return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18666	18843	
==>RRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18666	18843	
==>RRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18666	18843	
==>RRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0] <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6144	6268	
==>x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_e <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6144	6268	
==>x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_e <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	822	993	
==>& ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PR <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	822	993	
==>& ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PR <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38883	38980	
==>RIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43697	43794	
==>RIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43231	43328	
==>RIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dunca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6824	6950	
==>Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6824	6950	
==>Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6824	6950	
==>Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	608	721	
==>{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	608	721	
==>{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8084	8216	
==>dy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7807	7934	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17235	17327	
==>ommon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20712	20804	
==>ommon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20290	20382	
==>ommon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	808	951	
==>dence => 'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a p <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3200	3322	
==>ecutable -V};
}

sub _build_exclude_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23334	23421	
==>hat are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23334	23421	
==>hat are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2960	3187	
==>_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # clas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8054	8281	
==>_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # clas <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2960	3187	
==>_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # clas <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8054	8281	
==>_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # clas <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	218	308	
==>bst[0] und $obst[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	332	452	
==>shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	332	452	
==>shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	332	452	
==>shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5894	6002	
==>{
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5894	6002	
==>{
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3973	4064	
==>ubpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3973	4064	
==>ubpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3973	4064	
==>ubpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7238	7328	
==>ndirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1063	1153	
==>ndirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3917	4090	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3917	4090	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3917	4090	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	125	224	
==>Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	125	224	
==>Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	952	1082	
==>ere in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.t <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	952	1082	
==>ere in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1925	2038	
==>:ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1925	2038	
==>:ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1925	2038	
==>:ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5378	5487	
==>t to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5378	5487	
==>t to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5378	5487	
==>t to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	738	839	
==>Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_h <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	738	839	
==>Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_h <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	822	966	
==>me < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	822	966	
==>me < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11486	11612	
==>on {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14963	15089	
==>on {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2008	2101	
==>);
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	816	915	
==>];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	816	915	
==>];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	816	915	
==>];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6592	6690	
==>ng directory indices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating e <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	45	142	
==>arnings;

use JIB::Constants;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1373	1509	
==>apture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1318	1447	
==>apture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5259	5360	
==>ref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5259	5360	
==>ref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5259	5360	
==>ref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10684	10806	
==>calar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - gi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10684	10806	
==>calar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - gi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10684	10806	
==>calar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - gi <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	932	1033	
==>$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is e <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	990	1091	
==>$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6226	6365	
==>eword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _m <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1565	1665	
==>the characteristics
#  of particular regex engines.  Its structure follows the spec.  If for
#  insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1650	1741	
==>$meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1650	1741	
==>$meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1650	1741	
==>$meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:r <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6355	6480	
==>sym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6355	6480	
==>sym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4521	4632	
==>subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4521	4632	
==>subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4521	4632	
==>subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3885	3977	
==>cant missing'
	    if !defined $args->{invocant};

	$self->invocant->bind(\$args->{invocant}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12325	12415	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumf <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20184	20274	
==>clarationList> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn :words {  # s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12325	12415	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12325	12415	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumf <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	926	1056	
==>ls:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # T <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	926	1056	
==>ls:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3183	3283	
==>lurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3183	3283	
==>lurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3183	3283	
==>lurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9212	9360	
==>param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9212	9360	
==>param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9212	9360	
==>param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	948	1041	
==>escription( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descript <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	948	1041	
==>escription( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descript <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11436	11606	
==>],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11436	11606	
==>],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11436	11606	
==>],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10287	10405	
==>c_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10287	10405	
==>c_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2206	2346	
==>e(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1061	1173	
==>} else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1061	1173	
==>} else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4706	4809	
==>x[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4706	4809	
==>x[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6667	6762	
==>ibuted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6667	6762	
==>ibuted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6667	6762	
==>ibuted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22489	22583	
==>o indicate a
condition, often it will also provide some variable values to be
interpolated into <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22489	22583	
==>o indicate a
condition, often it will also provide some variable values to be
interpolated into <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3146	3269	
==>"Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3146	3269	
==>"Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4386	4491	
==>l argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4386	4491	
==>l argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4976	5081	
==>l argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4993	5143	
==>ack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	463	613	
==>to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4993	5143	
==>ack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	463	613	
==>to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	463	613	
==>to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	558	667	
==>azy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	558	667	
==>azy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	558	667	
==>azy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fi <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4707	4811	
==>urns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4707	4811	
==>urns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5924	6200	
==>ents<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5924	6200	
==>ents<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	297	448	
==>_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	297	448	
==>_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	297	448	
==>_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7692	7800	
==>(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7692	7800	
==>(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	720	827	
==>hift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	720	827	
==>hift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	720	827	
==>hift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10244	10389	
==>toflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10244	10389	
==>toflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	657	759	
==>tances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	657	759	
==>tances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	657	759	
==>tances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLAS <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	560	670	
==>ent_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	766	876	
==>ent_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12552	12650	
==>o()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12552	12650	
==>o()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12552	12650	
==>o()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	393	508	
==>ed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	375	484	
==>ed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3699	3792	
==>($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3699	3792	
==>($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3699	3792	
==>($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method( <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1724	1817	
==>q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command: <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1724	1817	
==>q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9440	9531	
==>LTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9440	9531	
==>LTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9440	9531	
==>LTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9796	9902	
==>=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	148	253	
==>=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	236	337	
==>=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	236	337	
==>=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	141	241	
==>=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1059	1162	
==>@without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @withou <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1059	1162	
==>@without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @withou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2752	2849	
==>ho = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2752	2849	
==>ho = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2752	2849	
==>ho = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6169	6302	
==>"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6169	6302	
==>"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6169	6302	
==>"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3252	3335	
==>n( $self.complement_previous, $self.complement_next, $set.complement_previous, $set. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3252	3335	
==>n( $self.complement_previous, $self.complement_next, $set.complement_previous, $set. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7377	7500	
==>r(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596), <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7377	7500	
==>r(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23555	23661	
==>ommon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23555	23661	
==>ommon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23555	23661	
==>ommon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	237	388	
==>=> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	237	388	
==>=> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	237	388	
==>=> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        m <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4614	4717	
==>om 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the da <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4614	4717	
==>om 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the da <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	690	803	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	690	803	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	690	803	
==>_26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4042	4145	
==>handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4042	4145	
==>handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3005	3121	
==>1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3005	3121	
==>1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3005	3121	
==>1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4464	4571	
==>e_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compilin <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4464	4571	
==>e_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compilin <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1674	1785	
==>path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1674	1785	
==>path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns St <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	990	1100	
==>d, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	990	1100	
==>d, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	990	1100	
==>d, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	114	227	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_sourc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	111	217	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_sourc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	105	211	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_sourc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	111	217	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_sourc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	105	211	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_sourc <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3950	4084	
==>d the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   print "not " unless $test;
        #   print " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2003	2114	
==>oin "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2003	2114	
==>oin "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2003	2114	
==>oin "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	150	238	
==>use Scalar::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25770	25866	
==>d subclasses ((opaque $self:)) returns list 
    ($self: get_attr (symbol new @:subclasses)))

=c <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1731	1825	
==>has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1494	1588	
==>has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1731	1825	
==>has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1494	1588	
==>has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6111	6218	
==>::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be doc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8985	9091	
==>Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8985	9091	
==>Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8985	9091	
==>Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5901	6005	
==>::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be doc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1602	1711	
==>gs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@AR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2077	2173	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rose <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5864	5960	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2077	2173	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5864	5960	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rose <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13905	14068	
==>substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4014	4153	
==>substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4014	4153	
==>substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4014	4153	
==>substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tra <==
5	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	399	526	
==>) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1625	1775	
==>te_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1625	1775	
==>te_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1625	1775	
==>te_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7663	7766	
==>ve (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

Th <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7663	7766	
==>ve (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10204	10376	
==>->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10204	10376	
==>->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10204	10376	
==>->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	536	625	
==>head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, writt <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	536	625	
==>head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, writt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4988	5106	
==>ial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4988	5106	
==>ial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4988	5106	
==>ial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correc <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	539	639	
==>ators

method parent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	539	639	
==>ators

method parent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1362	1477	
==>gs),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1362	1477	
==>gs),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1362	1477	
==>gs),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27813	27907	
==>y()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27813	27907	
==>y()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_n <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	365	494	
==>SIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	365	494	
==>SIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24990	25084	
==>Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29542	29636	
==>Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28454	28548	
==>Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22944	23043	
==>s of this approach over similar packages is that
text is always looked up by a key which is not mean <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22944	23043	
==>s of this approach over similar packages is that
text is always looked up by a key which is not mean <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2495	2608	
==>new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2495	2608	
==>new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2495	2608	
==>new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } e <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2638	2740	
==>3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.yea <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2638	2740	
==>3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.yea <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2163	2284	
==>rnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2380	2501	
==>rnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8567	8667	
==>turn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8567	8667	
==>turn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8567	8667	
==>turn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1943	2057	
==>$proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/( <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1943	2057	
==>$proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	152	248	
==>tion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	152	248	
==>tion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	152	248	
==>tion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11231	11449	
==>er::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DES <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11231	11449	
==>er::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DES <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11231	11449	
==>er::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DES <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9753	9907	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10032	10186	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4436	4566	
==>$next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4436	4566	
==>$next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4436	4566	
==>$next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe the <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4393	4506	
==>ut are acutally numerically
        # different. Display the numbers if $type isn't a string operator,
        # a <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1110	1198	
==>r::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_i <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	952	1099	
==>start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4191	4338	
==>start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	952	1099	
==>start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4191	4338	
==>start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	783	880	
==>ootstrap path, which was the objective.

# Interest was expressed in developing this into a cpan m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1291	1410	
==>id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($i <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21318	21437	
==>sh
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["reps"] = reps
    pad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1291	1410	
==>id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1291	1410	
==>id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($i <==
5	/Users/nnunley/pugs/util/package-osx.pl	8900	9010	
==>$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($des <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	78	206	
==>re Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	78	206	
==>re Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	78	206	
==>re Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4588	4686	
==>:$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_d <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4588	4686	
==>:$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5671	5776	
==>t(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8130	8221	
==>a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inter <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7260	7351	
==>a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inter <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8130	8221	
==>a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inter <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7260	7351	
==>a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inter <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	792	915	
==>ule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A0 <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	792	915	
==>ule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1499	1654	
==>ts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1499	1654	
==>ts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1499	1654	
==>ts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	649	748	
==>NV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_k <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	649	748	
==>NV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_k <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	941	1064	
==>captures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	941	1064	
==>captures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3845	3936	
==>t::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramete <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3845	3936	
==>t::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramete <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6042	6133	
==>t::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramete <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19918	20012	
==>ou accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the ni <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18899	18993	
==>ou accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19918	20012	
==>ou accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18899	18993	
==>ou accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the ni <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1103	1194	
==>ucing " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6207	6349	
==>+ %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6207	6349	
==>+ %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6207	6349	
==>+ %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $j <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4095	4201	
==>y_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end val <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4095	4201	
==>y_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end val <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1630	1750	
==>eturn if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.dele <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1630	1750	
==>eturn if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.dele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4192	4301	
==>ml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4192	4301	
==>ml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4192	4301	
==>ml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17345	17538	
==>TOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17345	17538	
==>TOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17345	17538	
==>TOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Me <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	375	473	
==>nput_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	375	473	
==>nput_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16230	16473	
==>},
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16230	16473	
==>},
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16230	16473	
==>},
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	908	1008	
==>[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	919	1019	
==>[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5388	5566	
==>ault,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defaul <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5388	5566	
==>ault,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defaul <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5388	5566	
==>ault,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defaul <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4068	4201	
==>('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4068	4201	
==>('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4224	4349	
==>};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4224	4349	
==>};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4224	4349	
==>};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5858	5965	
==>ordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normali <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5858	5965	
==>ordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normali <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	870	993	
==>}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	771	894	
==>}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5346	5458	
==>s && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5346	5458	
==>s && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5346	5458	
==>s && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7368	7472	
==>ODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @li <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7368	7472	
==>ODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @li <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	398	492	
==>ox.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	398	492	
==>ox.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	398	492	
==>ox.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	435	534	
==>nctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	435	534	
==>nctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	435	534	
==>nctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	856	945	
==>a::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine::E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	856	945	
==>a::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine::E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4602	4704	
==>stance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4602	4704	
==>stance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4602	4704	
==>stance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38271	38366	
==>t (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It return <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38271	38366	
==>t (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	614	741	
==>_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_la <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	614	741	
==>_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_la <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	614	741	
==>_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_la <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	514	612	
==>reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} second <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	514	612	
==>reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} second <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2267	2420	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2267	2420	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2267	2420	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6071	6166	
==>>($self, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5498	5597	
==>t($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4628	4727	
==>t($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5498	5597	
==>t($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4628	4727	
==>t($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14255	14343	
==>ame,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['u <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12612	12722	
==>->new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter- <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6513	6610	
==>*@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6513	6610	
==>*@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7385	7480	
==>*@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7385	7480	
==>*@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12413	12529	
==>hod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12413	12529	
==>hod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12413	12529	
==>hod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1803	1900	
==>&::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
} <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1803	1900	
==>&::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5704	5814	
==>runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5692	5802	
==>runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6590	6698	
==>$cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6590	6698	
==>$cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6590	6698	
==>$cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitiv <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4271	4384	
==>.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0] <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4271	4384	
==>.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0] <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4024	4129	
==>$_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	130	228	
==>t is passed around.  It essentially
forms a linked list through the rule as it is executed, but the <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	130	228	
==>t is passed around.  It essentially
forms a linked list through the rule as it is executed, but the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14075	14243	
==>->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14075	14243	
==>->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14075	14243	
==>->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $li <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1433	1529	
==>=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1433	1529	
==>=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8368	8476	
==>llo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Littl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8368	8476	
==>llo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Littl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8368	8476	
==>llo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Littl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22486	22581	
==>y to indicate a
condition, often it will also provide some variable values to be
interpolated in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22486	22581	
==>y to indicate a
condition, often it will also provide some variable values to be
interpolated in <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18307	18400	
==><add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1715	1808	
==>or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.' <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18307	18400	
==><add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1715	1808	
==>or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1715	1808	
==>or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2823	2999	
==>= bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2823	2999	
==>= bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2823	2999	
==>= bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5435	5583	
==>rint Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5657	5805	
==>rint Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	577	714	
==>= $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h;
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	577	714	
==>= $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h;
} <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1925	2058	
==>= basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirname );
# 
#         
#         ### copy over sourc <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1093	1191	
==>es both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1093	1191	
==>es both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	680	840	
==>level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.nam <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	680	840	
==>level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7897	8035	
==>%s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7897	8035	
==>%s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7897	8035	
==>%s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3342	3466	
==>ass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3342	3466	
==>ass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3342	3466	
==>ass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5693	5803	
==>$.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5693	5803	
==>$.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.sp <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7978	8088	
==>egexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24267	24361	
==>other interactive program controlling their
  actions) which are always seen to be replying les <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23040	23134	
==>other interactive program controlling their
  actions) which are always seen to be replying les <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24267	24361	
==>other interactive program controlling their
  actions) which are always seen to be replying les <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23040	23134	
==>other interactive program controlling their
  actions) which are always seen to be replying les <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1345	1440	
==>infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1345	1440	
==>infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1345	1440	
==>infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1433	1553	
==>";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1433	1553	
==>";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1433	1553	
==>";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6919	7026	
==>t.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $o <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6977	7084	
==>t.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $o <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28706	28800	
==>ll serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28706	28800	
==>ll serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19411	19500	
==>rom_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19411	19500	
==>rom_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19411	19500	
==>rom_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17913	18052	
==>esult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17913	18052	
==>esult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17913	18052	
==>esult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Per <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4534	4632	
==>`end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4534	4632	
==>`end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22146	22257	
==>I SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22146	22257	
==>I SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22146	22257	
==>I SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@x <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3176	3277	
==>.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is inte <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3176	3277	
==>.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7878	8001	
==>sses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7878	8001	
==>sses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7878	8001	
==>sses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3006	3096	
==>method symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).u <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3006	3096	
==>method symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	653	787	
==>rict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	653	787	
==>rict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1142	1242	
==>nf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1142	1242	
==>nf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1142	1242	
==>nf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bi <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7870	7971	
==>method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.trav <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7870	7971	
==>method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.trav <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1988	2083	
==>es and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1988	2083	
==>es and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1988	2083	
==>es and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10026	10172	
==>< $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10026	10172	
==>< $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10026	10172	
==>< $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Per <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7708	7814	
==>ethod post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7708	7814	
==>ethod post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9898	10012	
==>) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15739	15853	
==>) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9898	10012	
==>) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15733	15847	
==>) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16362	16451	
==>xpression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <RelationalExp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5508	5628	
==>$) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5508	5628	
==>$) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5508	5628	
==>$) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26732	26828	
==>e new object is set from the named parameter
$msg_key (a string); the optional named parameter %m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26732	26828	
==>e new object is set from the named parameter
$msg_key (a string); the optional named parameter %m <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3800	3939	
==>et your caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	259	376	
==>ammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to wor <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	250	365	
==>ammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to wor <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13483	13596	
==>dler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13483	13596	
==>dler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3965	4094	
==>$fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $o <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3965	4094	
==>$fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12727	12825	
==>aque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12727	12825	
==>aque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12727	12825	
==>aque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	577	726	
==>n" );
        @:output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3727	3854	
==>$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), ret <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8123	8242	
==>$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), ret <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5938	6035	
==>e::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5938	6035	
==>e::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	489	627	
==>tween> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last charac <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	489	627	
==>tween> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last charac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6943	7057	
==>$self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6943	7057	
==>$self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6943	7057	
==>$self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4794	4901	
==>s_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4794	4901	
==>s_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4794	4901	
==>s_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20062	20158	
==>most specific to most general order.
So inner blocks get compiled first, then outer blocks.

A co <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20062	20158	
==>most specific to most general order.
So inner blocks get compiled first, then outer blocks.

A co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37640	37748	
==>ninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37640	37748	
==>ninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37640	37748	
==>ninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2514	2619	
==>to the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACK <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2514	2619	
==>to the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACK <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5077	5198	
==>de_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5077	5198	
==>de_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               ' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1981	2102	
==>de_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               ' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	413	510	
==>et::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnIn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	413	510	
==>et::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnIn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3253	3377	
==>set; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3253	3377	
==>set; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3253	3377	
==>set; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8148	8259	
==>n returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7874	7982	
==>n returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2970	3078	
==>ile (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclose <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13887	13992	
==>s_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.ge <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19091	19196	
==>s_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.ge <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13887	13992	
==>s_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.ge <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19091	19196	
==>s_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	375	474	
==>($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	375	474	
==>($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	375	474	
==>($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1065	1162	
==>ause the module to shift across all byte values, not just the ones 
corresponding to letters.

=he <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1065	1162	
==>ause the module to shift across all byte values, not just the ones 
corresponding to letters.

=he <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1874	2022	
==>Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %para <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1874	2022	
==>Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4766	4882	
==>oxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'in <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4766	4882	
==>oxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'in <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4766	4882	
==>oxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10672	10777	
==>p{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10672	10777	
==>p{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10672	10777	
==>p{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6102	6207	
==>mar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - sh <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5892	5994	
==>mar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4520	4627	
==>acro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4520	4627	
==>acro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4520	4627	
==>acro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4553	4655	
==>es ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4611	4713	
==>es ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17135	17272	
==>k) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17135	17272	
==>k) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2461	2559	
==>rs = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstract <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2461	2559	
==>rs = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstract <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2461	2559	
==>rs = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstract <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24052	24189	
==>$a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24052	24189	
==>$a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24052	24189	
==>$a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13710	13831	
==>, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  err_br <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	159	263	
==>ype.  The below is expressive enough to do the
# same thing, but the conversion is a bit "lossy".
#
# has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5878	5992	
==>e::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5878	5992	
==>e::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5878	5992	
==>e::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLI <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2250	2353	
==>universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next == <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2250	2353	
==>universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next == <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9347	9490	
==>=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10338	10481	
==>=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15011	15108	
==>ULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15011	15108	
==>ULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15011	15108	
==>ULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	711	828	
==>@_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	711	828	
==>@_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	711	828	
==>@_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24906	25000	
==>n
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simpl <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24906	25000	
==>n
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simpl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	279	402	
==>alid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlifica <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	279	402	
==>alid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlifica <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	279	402	
==>alid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlifica <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7257	7378	
==>> chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr( <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7257	7378	
==>> chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	213	356	
==>.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	213	356	
==>.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12367	12489	
==>{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12367	12489	
==>{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12367	12489	
==>{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14720	14913	
==>);
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14720	14913	
==>);
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14720	14913	
==>);
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                d <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10430	10606	
==>&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13907	14083	
==>&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8210	8355	
==>0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4570	4715	
==>0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5419	5564	
==>0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1723	1845	
==>e($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1723	1845	
==>e($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1723	1845	
==>e($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	754	850	
==>ot support enciphering individual bits.  Also note that the 
Cipher API operates at the byte leve <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	754	850	
==>ot support enciphering individual bits.  Also note that the 
Cipher API operates at the byte leve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8986	9122	
==>art . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8986	9122	
==>art . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8986	9122	
==>art . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	196	293	
==>a-model can be experimented
# on without loosing this code as a reference point.

use Test::More t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12003	12093	
==>n::Example $other!) returns Relation::Example {
    return $?SELF.difference( $?SELF.semijo <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8851	8987	
==>/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classif <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13433	13525	
==>e one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl h <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18520	18612	
==>e one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13433	13525	
==>e one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18520	18612	
==>e one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28877	28976	
==>d, prop, open, quant, ref,
reg_any.

=item my $f = $obj->flags()

The flag value for this object.  T <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	757	855	
==>expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	815	913	
==>expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	757	855	
==>expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	815	913	
==>expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2497	2610	
==>w PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2497	2610	
==>w PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2497	2610	
==>w PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } els <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7415	7519	
==>, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7415	7519	
==>, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9214	9347	
==>: }xgc) {
      my $n = '::';
      return $S->$n;
    }

    if (${&Rx} =~ m{ \G ([a-z]+) }xgc) {
    }

  });

  $self->add_handler( <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1728	1827	
==>o source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $n <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1728	1827	
==>o source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $n <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	894	992	
==>supported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provid <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	894	992	
==>supported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provid <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	759	874	
==>typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	759	874	
==>typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	759	874	
==>typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	682	777	
==>(cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perl <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	682	777	
==>(cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2772	2948	
==>erl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2772	2948	
==>erl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2772	2948	
==>erl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12389	12515	
==>e_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12668	12794	
==>e_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6323	6438	
==>inue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6323	6438	
==>inue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	342	441	
==>pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	342	441	
==>pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	342	441	
==>pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11589	11696	
==>0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11589	11696	
==>0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11589	11696	
==>0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32448	32542	
==>relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36998	37092	
==>relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns R <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2098	2210	
==>w PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2098	2210	
==>w PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2098	2210	
==>w PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

s <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11805	11908	
==>erse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructo <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1050	1150	
==>ocs Do not generate html files for the perl6 design docs (faster)
    --output_dir    Output Director <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5397	5648	
==>value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5397	5648	
==>value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21429	21570	
==>@param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21429	21570	
==>@param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21429	21570	
==>@param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11867	11998	
==>nt."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15344	15475	
==>nt."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14679	14810	
==>nt."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10444	10554	
==>is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exis <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10444	10554	
==>is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1713	1814	
==>= perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1713	1814	
==>= perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1713	1814	
==>= perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21109	21203	
==>ntaining text for users, and your program would use
associated keys internally.

It is strongly <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21109	21203	
==>ntaining text for users, and your program would use
associated keys internally.

It is strongly <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	724	893	
==>match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	724	893	
==>match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7032	7139	
==>ifiers_supported_p5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps." <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5439	5541	
==>Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5249	5349	
==>Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /l <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	136	234	
==>mpiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	136	234	
==>mpiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4833	4930	
==>he string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4833	4930	
==>he string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6357	6454	
==>he string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26448	26631	
==>. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26448	26631	
==>. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26448	26631	
==>. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10260	10372	
==>sult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10260	10372	
==>sult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled en <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2517	2624	
==>et ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2517	2624	
==>et ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3272	3367	
==>ead1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class rep <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3272	3367	
==>ead1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class rep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5469	5564	
==>ead1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class rep <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2107	2216	
==>));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2107	2216	
==>));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2107	2216	
==>));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20699	20796	
==>are any subroutines or export such.

The usual way that Relation indicates a failure is to throw a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25251	25348	
==>are any subroutines or export such.

The usual way that Relation indicates a failure is to throw a <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7558	7663	
==>der_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child) <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7558	7663	
==>der_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5716	5811	
==>l.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5716	5811	
==>l.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5716	5811	
==>l.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	350	449	
==>add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	350	449	
==>add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	350	449	
==>add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate || <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13000	13152	
==>-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13000	13152	
==>-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3780	3910	
==>kage Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3780	3910	
==>kage Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3780	3910	
==>kage Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1115	1229	
==>lf: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1115	1229	
==>lf: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1798	1907	
==>( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1858	1967	
==>( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3888	3987	
==>s') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3888	3987	
==>s') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3888	3987	
==>s') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4387	4528	
==>,
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4387	4528	
==>,
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11126	11234	
==>ue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11126	11234	
==>ue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11126	11234	
==>ue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2384	2491	
==>is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2384	2491	
==>is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2384	2491	
==>is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{' <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14877	14972	
==>ine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14877	14972	
==>ine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9585	9692	
==>ay has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9585	9692	
==>ay has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9585	9692	
==>ay has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	687	787	
==>)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $tra <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	687	787	
==>)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	43	142	
==>orph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	43	142	
==>orph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	43	142	
==>orph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything defi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6667	6762	
==>{
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($ev <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35393	35488	
==>ccept inputs that would result in
a cross-product when joined.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6667	6762	
==>{
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($ev <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39943	40038	
==>ccept inputs that would result in
a cross-product when joined.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39503	39598	
==>ccept inputs that would result in
a cross-product when joined.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5986	6123	
==>.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5986	6123	
==>.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21433	21526	
==>stinct from the other
attributes, though several attributes may store values of the same class <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25985	26078	
==>stinct from the other
attributes, though several attributes may store values of the same class <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24618	24711	
==>stinct from the other
attributes, though several attributes may store values of the same class <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12921	13036	
==>->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27060	27175	
==>->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2936	3038	
==>my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2936	3038	
==>my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2936	3038	
==>my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21004	21100	
==>{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21004	21100	
==>{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21004	21100	
==>{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13097	13217	
==>_;
      }
    };

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c " <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1018	1128	
==>f spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_su <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1018	1128	
==>f spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_su <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12720	12815	
==>date objects without the time part.

Discrete spans take a "units" specifier, which can be eithe <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12720	12815	
==>date objects without the time part.

Discrete spans take a "units" specifier, which can be eithe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8345	8550	
==>:stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8345	8550	
==>:stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8345	8550	
==>:stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1148	1244	
==>and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succee <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1148	1244	
==>and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succee <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11107	11256	
==>e "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11107	11256	
==>e "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11107	11256	
==>e "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subde <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1580	1680	
==>ILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::Pos <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1580	1680	
==>ILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::Pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	804	905	
==>, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	804	905	
==>, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	804	905	
==>, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects wi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5552	5651	
==>The retry_after field is dual format (can also be a expressed as
# number of seconds from now), so w <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5552	5651	
==>The retry_after field is dual format (can also be a expressed as
# number of seconds from now), so w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6265	6367	
==>return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6265	6367	
==>return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6265	6367	
==>return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operato <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8712	8804	
==>File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8712	8804	
==>File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

St <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1028	1149	
==>name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1428	1549	
==>name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1902	2023	
==>name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7339	7443	
==>d subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Ret <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7339	7443	
==>d subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19302	19431	
==>f) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15723	15852	
==>f) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5253	5358	
==>en;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5253	5358	
==>en;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5253	5358	
==>en;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28071	28264	
==>ringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28071	28264	
==>ringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28071	28264	
==>ringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7705	7838	
==>gs;
        for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Arguments: ", @args. <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4760	4874	
==>blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES
} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9446	9587	
==>",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9434	9575	
==>",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5587	5681	
==>tends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<St <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5587	5681	
==>tends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<St <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7784	7878	
==>tends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<St <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3787	3956	
==>.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "< <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3787	3956	
==>.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "< <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7650	7772	
==>and does a '<=>' on them, returning the result.

=cut

sub _vcmp {
    my $self = shift;
    my ($x, $y) = @_;
    
    s/_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7494	7597	
==>maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7494	7597	
==>maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24082	24220	
==>ts, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24361	24499	
==>ts, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2966	3090	
==>attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2966	3090	
==>attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2966	3090	
==>attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27723	27857	
==>constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28002	28136	
==>constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2690	2797	
==>angpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2690	2797	
==>angpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2690	2797	
==>angpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::I <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5060	5215	
==>ts $ast->{stmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23154	23251	
==>nd. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21963	22060	
==>nd. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23154	23251	
==>nd. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21963	22060	
==>nd. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5933	6054	
==>if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5933	6054	
==>if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	994	1100	
==>.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	994	1100	
==>.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	994	1100	
==>.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	460	556	
==>r}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	460	556	
==>r}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	460	556	
==>r}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift) <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	317	440	
==>Code $f,
    Code +$fprime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6115	6233	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6115	6233	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6115	6233	
==>elf->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	376	471	
==>ub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scal <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10143	10266	
==>_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10137	10260	
==>_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2276	2379	
==>(keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2276	2379	
==>(keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2276	2379	
==>(keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11153	11352	
==>( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11153	11352	
==>( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11153	11352	
==>( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # e <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9895	9990	
==>scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string repr <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9895	9990	
==>scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string repr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2353	2454	
==>rameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - calle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2353	2454	
==>rameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - calle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2353	2454	
==>rameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - calle <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10620	10717	
==>onal

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<quer <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10620	10717	
==>onal

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<quer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5263	5363	
==>lone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5263	5363	
==>lone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5263	5363	
==>lone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19351	19444	
==>e that indicates the
authentication scheme and parameters applicable to the requested URI.

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19351	19444	
==>e that indicates the
authentication scheme and parameters applicable to the requested URI.

=i <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1422	1537	
==>bmethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1422	1537	
==>bmethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PIL <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9181	9286	
==>tion ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9181	9286	
==>tion ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($sp <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	70	164	
==>::Pugs;
use strict;
use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindB <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8357	8529	
==>d );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4717	4889	
==>d );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5566	5738	
==>d );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	634	733	
==>mpile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	634	733	
==>mpile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Co <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10019	10154	
==>UR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: NOTE ###
    # this is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19710	19805	
==>cally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18691	18786	
==>cally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19710	19805	
==>cally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18691	18786	
==>cally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11222	11351	
==>:opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11222	11351	
==>:opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11222	11351	
==>:opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLA <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6196	6292	
==>|| die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6196	6292	
==>|| die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_ <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1946	2049	
==>l perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1946	2049	
==>l perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1897	1997	
==>ption.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1897	1997	
==>ption.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1897	1997	
==>ption.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1244	1354	
==>ng soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expressed as
#     <no_Lin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1132	1235	
==>ongest match for tokens (putter on #perl6)

    # update: <%var> does longest match based on the keys le <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1482	1584	
==>ongest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys le <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1089	1191	
==>ongest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys le <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1482	1584	
==>ongest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17012	17111	
==>ust fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9675	9774	
==>ispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17012	17111	
==>ust fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9675	9774	
==>ispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9675	9774	
==>ispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3478	3575	
==>e-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3662	3759	
==>e-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	289	380	
==>");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	289	380	
==>");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	289	380	
==>");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	484	592	
==>IES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3514	3622	
==>.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	484	592	
==>IES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3514	3622	
==>.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3514	3622	
==>.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5567	5836	
==>on {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9044	9313	
==>on {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29861	30015	
==>e {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29861	30015	
==>e {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29861	30015	
==>e {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13138	13278	
==>ase ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13138	13278	
==>ase ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13138	13278	
==>ase ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10103	10237	
==>(*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10103	10237	
==>(*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2127	2226	
==>ends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2185	2284	
==>ends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6211	6303	
==>rnals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Inter <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6211	6303	
==>rnals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Inter <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6211	6303	
==>rnals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Inter <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20107	20205	
==>c = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20107	20205	
==>c = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4944	5039	
==>y of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4944	5039	
==>y of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4944	5039	
==>y of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4678	4799	
==>ub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4678	4799	
==>ub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4678	4799	
==>ub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3395	3501	
==>ol {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3395	3501	
==>ol {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	479	587	
==>$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	479	587	
==>$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	479	587	
==>$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12196	12293	
==>map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12196	12293	
==>map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	308	409	
==>2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	308	409	
==>2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	308	409	
==>2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1341	1439	
==>is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) r <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1341	1439	
==>is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) r <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1984	2079	
==>o C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1984	2079	
==>o C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1811	1915	
==>en.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1811	1915	
==>en.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1811	1915	
==>en.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26210	26306	
==>ored).  Each variable name can be any
defined and non-empty string, and each variable value can b <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26210	26306	
==>ored).  Each variable name can be any
defined and non-empty string, and each variable value can b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11661	11759	
==>r.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11661	11759	
==>r.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13107	13257	
==>Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13107	13257	
==>Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13107	13257	
==>Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @li <==
5	/Users/nnunley/pugs/util/addauthors.pl	1061	1203	
==>st/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2167	2276	
==>::oop{$id} = {ops=>[undef],var=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12781	12904	
==>_('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # the <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12781	12904	
==>_('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # the <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12781	12904	
==>_('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # the <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4327	4406	
==>((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4327	4406	
==>((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13036	13151	
==>ss->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $resul <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13036	13151	
==>ss->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $resul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2713	2819	
==>methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2713	2819	
==>methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2713	2819	
==>methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Containe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	131	241	
==>pe::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	131	241	
==>pe::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	131	241	
==>pe::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@ <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1584	1702	
==>:maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Wi <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	287	394	
==>ary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * ov <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	287	394	
==>ary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * ov <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1495	1595	
==>:maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Wi <==
5	/Users/nnunley/pugs/util/package-osx.pl	2816	2896	
==>dromano/dev/pugs/src/pge/run_pge.pir /System/Library/Perl6/darwin-thread-multi-2l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14377	14481	
==>wer POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8580	8684	
==>wer POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	180	278	
==>l::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	180	278	
==>l::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	180	278	
==>l::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3917	4018	
==>intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.ne <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3917	4018	
==>intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	838	934	
==>ER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	838	934	
==>ER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	838	934	
==>ER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11770	11870	
==>y are already in the set, or inserts the items if
they're not in the set.

Returns the number of item <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8917	9017	
==>y are already in the set, or inserts the items if
they're not in the set.

Returns the number of item <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11770	11870	
==>y are already in the set, or inserts the items if
they're not in the set.

Returns the number of item <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8917	9017	
==>y are already in the set, or inserts the items if
they're not in the set.

Returns the number of item <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1821	1913	
==>ntests(@tests)> runs all the testscripts named
as arguments and checks standard output for th <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1868	2033	
==>esult.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1868	2033	
==>esult.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16834	16923	
==>s::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16834	16923	
==>s::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16834	16923	
==>s::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5902	6020	
==>copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5902	6020	
==>copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5902	6020	
==>copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3714	3805	
==>$self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3714	3805	
==>$self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4170	4276	
==>1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4170	4276	
==>1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4170	4276	
==>1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12607	12710	
==>ADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6082	6185	
==>ADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    re <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4970	5177	
==>t("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4970	5177	
==>t("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2413	2521	
==>r => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2413	2521	
==>r => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2760	2868	
==>r => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5866	5973	
==>hift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5866	5973	
==>hift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5866	5973	
==>hift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20649	20745	
==>der you chose so to pick a supported language closest to your
preference.  Presumably the message <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20649	20745	
==>der you chose so to pick a supported language closest to your
preference.  Presumably the message <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	301	424	
==>le calls will need to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2480	2602	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2480	2602	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2480	2602	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	291	408	
==>le calls will need to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balan <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2224	2397	
==>f,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.ne <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2224	2397	
==>f,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.ne <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4325	4441	
==>'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4325	4441	
==>'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCod <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1175	1291	
==>'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	922	1029	
==>cement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

T <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	922	1029	
==>cement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3232	3334	
==>for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // []. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3232	3334	
==>for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // []. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3232	3334	
==>for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // []. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11378	11537	
==>::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11657	11816	
==>::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	119	217	
==>:Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	119	217	
==>:Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	119	217	
==>:Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostic <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	243	356	
==>le::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- t <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10561	10673	
==>ist => $a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $a = type::variab <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	211	315	
==>e('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Sim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	211	315	
==>e('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Sim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	211	315	
==>e('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Sim <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7499	7606	
==>nted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # runni <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7557	7664	
==>nted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # runni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	124	217	
==>-----------------------------
## now for some bootstrapping ....

## See http://article.gmane. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	124	217	
==>-----------------------------
## now for some bootstrapping ....

## See http://article.gmane. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	124	217	
==>-----------------------------
## now for some bootstrapping ....

## See http://article.gmane. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11529	11639	
==>'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11529	11639	
==>'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11529	11639	
==>'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	913	1004	
==>plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering opera <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	913	1004	
==>plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering opera <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2844	2938	
==>I.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2844	2938	
==>I.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2476	2569	
==>)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2476	2569	
==>)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2476	2569	
==>)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLET <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1444	1537	
==>such
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1444	1537	
==>such
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6657	6794	
==>ndary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6657	6794	
==>ndary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7306	7421	
==>span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7306	7421	
==>span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $sp <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	664	781	
==>ck>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <b <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	664	781	
==>ck>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14159	14245	
==>byte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($le <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14159	14245	
==>byte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($le <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14159	14245	
==>byte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($le <==
5	/Users/nnunley/pugs/util/package-osx.pl	10457	10599	
==>-1]!";

    my @header = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	347	456	
==>as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the v <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	838	947	
==>as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the v <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	347	456	
==>as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the v <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	838	947	
==>as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the v <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5503	5685	
==>hod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8980	9162	
==>hod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2737	2844	
==>round
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2737	2844	
==>round
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2737	2844	
==>round
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "per <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3163	3303	
==>tch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3163	3303	
==>tch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3891	3998	
==>full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7368	7475	
==>full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6334	6441	
==>full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7504	7641	
==>h;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7492	7629	
==>h;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2675	2794	
==>ake_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2675	2794	
==>ake_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2675	2794	
==>ake_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3517	3633	
==>ub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4834	4950	
==>ub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3517	3633	
==>ub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4822	4938	
==>ub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical p <==
5	/Users/nnunley/pugs/util/package-osx.pl	584	700	
==>nfo
        /usr/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/inclu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7029	7148	
==>ed_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7029	7148	
==>ed_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37777	37876	
==>f
all the headings of the source relations.  The body of the new relation is
the result of first pai <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42326	42425	
==>f
all the headings of the source relations.  The body of the new relation is
the result of first pai <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41976	42075	
==>f
all the headings of the source relations.  The body of the new relation is
the result of first pai <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2105	2296	
==>e = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5582	5773	
==>e = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4512	4703	
==>e = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headin <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1395	1549	
==>}
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1395	1549	
==>}
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6861	6976	
==>k!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6861	6976	
==>k!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6861	6976	
==>k!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2234	2330	
==>es within the strategy.  They're
done like this until pugs gets support for virtual classes.

=cu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2234	2330	
==>es within the strategy.  They're
done like this until pugs gets support for virtual classes.

=cu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3215	3344	
==>tart;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $ope <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3215	3344	
==>tart;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $ope <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16423	16524	
==>ject, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infini <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16423	16524	
==>ject, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infini <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2894	2992	
==> (Array *@arrays --> Lazy) { zip *@arrays }

# copied from S29draft.pod 8651.
multi List::zip ( Ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5697	5835	
==>er( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5697	5835	
==>er( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $con <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10664	10757	
==>pe::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10902	10995	
==>pe::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11094	11187	
==>pe::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11470	11575	
==>$name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11470	11575	
==>$name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11470	11575	
==>$name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6006	6114	
==>rait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6006	6114	
==>rait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	674	774	
==>iner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/grou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	674	774	
==>iner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/grou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	674	774	
==>iner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/grou <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3109	3216	
==>n.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3109	3216	
==>n.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	861	957	
==>s a message to the normal output filehandle, adding leading C<#>
characters after all newlines if <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	861	957	
==>s a message to the normal output filehandle, adding leading C<#>
characters after all newlines if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1417	1513	
==>s a message to the normal output filehandle, adding leading C<#>
characters after all newlines if <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21951	22201	
==>>is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # speculative syn <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4631	4730	
==>t $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3758	3857	
==>t $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4631	4730	
==>t $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3758	3857	
==>t $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9545	9646	
==>hod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_te <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1638	1735	
==>hod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1638	1735	
==>hod todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_te <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11081	11177	
==>mplement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" re <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11081	11177	
==>mplement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9466	9639	
==>n;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15010	15183	
==>n;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9466	9639	
==>n;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15004	15177	
==>n;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$c <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21456	21552	
==>new();
    $$mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	269	368	
==>hods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   M <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	269	368	
==>hods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   M <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	269	368	
==>hods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   M <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1753	1849	
==>resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$n <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1753	1849	
==>resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8034	8197	
==>ments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTIO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8034	8197	
==>ments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTIO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8034	8197	
==>ments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTIO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18994	19091	
==>y, and it
can support a complete SQL emulation layer on top of it, so that your
legacy application <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18994	19091	
==>y, and it
can support a complete SQL emulation layer on top of it, so that your
legacy application <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	633	842	
==>n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	633	842	
==>n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2655	2756	
==>self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2655	2756	
==>self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2655	2756	
==>self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8318	8472	
==>turn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8318	8472	
==>turn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8318	8472	
==>turn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1786	1918	
==>given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::R <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1786	1918	
==>given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::R <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10902	11031	
==>t) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $sel <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10902	11031	
==>t) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16258	16364	
==>o_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16258	16364	
==>o_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16258	16364	
==>o_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1580	1696	
==>t(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1580	1696	
==>t(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1580	1696	
==>t(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $sel <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9573	9673	
==>]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9573	9673	
==>]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# C <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13775	13873	
==>->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13775	13873	
==>->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13775	13873	
==>->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->g <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2002	2106	
==>erl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2142	2246	
==>erl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1229	1326	
==>Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1229	1326	
==>Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1229	1326	
==>Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7288	7435	
==>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7288	7435	
==>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7288	7435	
==>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1839	1954	
==>rn \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = . <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1839	1954	
==>rn \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = . <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12927	13038	
==>on.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) { <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16404	16515	
==>on.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) { <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15766	15877	
==>on.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2475	2574	
==>:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2475	2574	
==>:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- c <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	478	588	
==>al $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_ru <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	591	698	
==>al $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17235	17332	
==>my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, St <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17235	17332	
==>my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, St <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17235	17332	
==>my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5958	6087	
==>opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5958	6087	
==>opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5958	6087	
==>opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencla <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8556	8660	
==>t 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this met <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8556	8660	
==>t 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this met <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1549	1705	
==>ect> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1549	1705	
==>ect> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	683	790	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	683	790	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	683	790	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8121	8228	
==>al($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8121	8228	
==>al($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8121	8228	
==>al($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3351	3446	
==>!$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3351	3446	
==>!$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) retur <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4579	4843	
==>batim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4579	4843	
==>batim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5955	6080	
==>ute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5955	6080	
==>ute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5955	6080	
==>ute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEP <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	875	980	
==>e lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	875	980	
==>e lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16920	17007	
==>ttribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16920	17007	
==>ttribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16920	17007	
==>ttribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10525	10690	
==>ize;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10525	10690	
==>ize;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10525	10690	
==>ize;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->sto <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3142	3275	
==>name - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3359	3492	
==>name - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		pr <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1633	1731	
==>lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1633	1731	
==>lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2603	2698	
==>ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2603	2698	
==>ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2603	2698	
==>ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECUR <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1510	1630	
==>ode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeigh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1510	1630	
==>ode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeigh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1510	1630	
==>ode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeigh <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7350	7449	
==>se_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the sa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7350	7449	
==>se_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6318	6418	
==>S.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6318	6418	
==>S.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6318	6418	
==>S.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8842	8941	
==>gical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match obj <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8549	8646	
==>gical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2674	2798	
==>xy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2674	2798	
==>xy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2674	2798	
==>xy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(ke <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19135	19233	
==>utside of a character class, so I'm a little wary of making them
objects in their own right, even i <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26232	26327	
==>PT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5915	6139	
==>>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5915	6139	
==>>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5915	6139	
==>>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1582	1720	
==>Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unk <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1582	1720	
==>Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unk <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	411	511	
==>6.0.10)
# and with very little knowledge of Perl 6. These five examples
# can be improved in many way <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11133	11225	
==>C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<ha <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8537	8629	
==>C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<ha <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11133	11225	
==>C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<ha <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8537	8629	
==>C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<ha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19852	20048	
==>ant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20131	20327	
==>ant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1263	1376	
==>'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  ,'Bool',
  'pIsM <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4243	4345	
==>ree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'as <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4460	4562	
==>ree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'as <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1718	1838	
==>alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2046	2164	
==>alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1659	1777	
==>alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2046	2164	
==>alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2188	2294	
==>name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10025	10186	
==>_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2082	2235	
==>_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2082	2235	
==>_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11939	12069	
==>ncat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12218	12348	
==>ncat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10370	10483	
==>d_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10370	10483	
==>d_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10370	10483	
==>d_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10805	10911	
==>:Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10805	10911	
==>:Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10805	10911	
==>:Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1350	1450	
==>e letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1350	1450	
==>e letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8252	8346	
==>return "" if !defined $pilc;
    $pilc->expand();
}

#========================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8252	8346	
==>return "" if !defined $pilc;
    $pilc->expand();
}

#========================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8252	8346	
==>return "" if !defined $pilc;
    $pilc->expand();
}

#========================================= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20755	20848	
==>e::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. M <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20755	20848	
==>e::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	0	103	
==>package Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	0	103	
==>package Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	0	103	
==>package Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10627	10724	
==>an update several fields with a single invocation.

The $value argument may be a plain string or a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10627	10724	
==>an update several fields with a single invocation.

The $value argument may be a plain string or a <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1063	1289	
==>header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1063	1289	
==>header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6215	6354	
==>\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6215	6354	
==>\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6215	6354	
==>\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1002	1138	
==>x:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1002	1138	
==>x:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9609	9697	
==>_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9609	9697	
==>_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9609	9697	
==>_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15015	15190	
==>my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15015	15190	
==>my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15015	15190	
==>my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = sh <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	158	253	
==>azy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite() <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	158	253	
==>azy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite() <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10245	10363	
==>ing;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # co <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10245	10363	
==>ing;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1029	1115	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_object <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1029	1115	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_object <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1029	1115	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	363	470	
==>yche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	363	470	
==>yche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	363	470	
==>yche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eigen <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1275	1380	
==>Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf storage position

    foreac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16612	16706	
==>is more of a theoretical
exercise, a jump-start to built-in reversing capability in Perl.

=ite <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	58	170	
==>nction; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stri <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	58	170	
==>nction; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stri <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19471	19580	
==>xp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19878	19969	
==>the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19878	19969	
==>the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2718	2857	
==>[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2718	2857	
==>[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6054	6156	
==>,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6054	6156	
==>,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6054	6156	
==>,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17012	17106	
==>dology
in an easily accessable manner, such that would not be possible if its
functionality was <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17012	17106	
==>dology
in an easily accessable manner, such that would not be possible if its
functionality was <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	725	819	
==>osetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interfa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	725	819	
==>osetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interfa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	409	500	
==>int-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	370	461	
==>int-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	370	461	
==>int-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8916	9016	
==>eturn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8916	9016	
==>eturn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8916	9016	
==>eturn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1041	1138	
==>der
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1041	1138	
==>der
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url, <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	865	971	
==>r die "can't match '$iso8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year.defined an <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13956	14052	
==>his will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10183	10279	
==>his will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13956	14052	
==>his will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10183	10279	
==>his will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain ( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2982	3097	
==>_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    ! <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16303	16400	
==>apturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3954	4047	
==>ain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3954	4047	
==>ain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3954	4047	
==>ain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3582	3747	
==>./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3582	3747	
==>./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18767	18869	
==>uest.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18767	18869	
==>uest.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can a <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	47	146	
==>$guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime($ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13852	13956	
==>$set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. Th <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13852	13956	
==>$set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	65	167	
==>eturn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	65	167	
==>eturn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	65	167	
==>eturn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5596	5801	
==>_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5596	5801	
==>_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5596	5801	
==>_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6340	6437	
==>N>

Although not technically part of the API, most ciphers will want to implement 
a constructor w <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6340	6437	
==>N>

Although not technically part of the API, most ciphers will want to implement 
a constructor w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7295	7407	
==>:Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_ar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7295	7407	
==>:Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7555	7662	
==>::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::L <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7555	7662	
==>::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::L <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7555	7662	
==>::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::L <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29020	29202	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29299	29481	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9067	9168	
==>S::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9067	9168	
==>S::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9067	9168	
==>S::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_j <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15927	16122	
==>capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15921	16116	
==>capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4806	4963	
==>ev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4806	4963	
==>ev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4806	4963	
==>ev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9480	9597	
==>efault { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {... <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9480	9597	
==>efault { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {... <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1982	2078	
==>ne('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1982	2078	
==>ne('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1982	2078	
==>ne('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7613	7740	
==>58),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "ex <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7613	7740	
==>58),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1111	1207	
==>nstances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# need <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1111	1207	
==>nstances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# need <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1111	1207	
==>nstances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# need <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3613	3724	
==>(Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3613	3724	
==>(Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2938	3048	
==>(Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2938	3048	
==>(Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2836	2955	
==>$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$co <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2836	2955	
==>$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9032	9137	
==>}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9032	9137	
==>}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9032	9137	
==>}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7316	7445	
==>).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7316	7445	
==>).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7316	7445	
==>).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24382	24474	
==>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; y <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24382	24474	
==>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; y <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	828	944	
==>C, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12498	12614	
==>C, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38298	38396	
==>::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38298	38396	
==>::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38298	38396	
==>::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16638	16804	
==>e');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16638	16804	
==>e');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16638	16804	
==>e');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_me <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2867	2970	
==>t a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functio <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2867	2970	
==>t a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functio <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2306	2481	
==>lue('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($si <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	191	296	
==>6 - Entities in a program's model (M1)

=head1 SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32898	32992	
==>y.  The headings are object I<classes>.  The field
"family" represents the general category int <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	988	1077	
==>ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	988	1077	
==>ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1705	1801	
==>se reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1705	1801	
==>se reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4051	4135	
==>OOTSTRAPPING AREA
## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4051	4135	
==>OOTSTRAPPING AREA
## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4051	4135	
==>OOTSTRAPPING AREA
## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	706	857	
==>->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3777	3928	
==>->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	706	857	
==>->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3777	3928	
==>->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        p <==
5	/Users/nnunley/pugs/util/importgraph.pl	2204	2289	
==>ts');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compil <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8875	9010	
==>_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $univ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8875	9010	
==>_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $univ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5029	5143	
==>, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5029	5143	
==>, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5619	5733	
==>, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2526	2637	
==>}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1 <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1676	1785	
==>} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4112	4213	
==>meter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the fa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4112	4213	
==>meter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the fa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6309	6410	
==>meter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14335	14452	
==>( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14335	14452	
==>( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14335	14452	
==>( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16639	16733	
==>red
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16639	16733	
==>red
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15506	15634	
==>eue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15506	15634	
==>eue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	220	320	
==>w()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	220	320	
==>w()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	220	320	
==>w()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->hand <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3389	3496	
==>::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3389	3496	
==>::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3389	3496	
==>::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2461	2556	
==>.}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it shou <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2461	2556	
==>.}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it shou <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	962	1073	
==>ependencies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t$obj->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2869	2979	
==>h") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2869	2979	
==>h") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2869	2979	
==>h") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @re <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6929	7028	
==>ugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure => sub { defined $pugs_versi <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	56	158	
==>e $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Date <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	56	158	
==>e $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Date <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	256	350	
==>Expr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	256	350	
==>Expr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	256	350	
==>Expr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4782	4886	
==>3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p3d->get <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2024	2126	
==>de();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2024	2126	
==>de();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2024	2126	
==>de();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2437	2532	
==>_version> returns the version of a certain perl binary.
It does this by actually running a comma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9706	9804	
==>',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9706	9804	
==>',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9706	9804	
==>',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1270	1362	
==>oes the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1270	1362	
==>oes the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3064	3168	
==>ent = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3064	3168	
==>ent = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24992	25086	
==>pping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the arg <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29544	29638	
==>pping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the arg <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28456	28550	
==>pping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4316	4440	
==>hanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4316	4440	
==>hanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4316	4440	
==>hanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $und <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6326	6443	
==>tr( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6338	6455	
==>tr( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4022	4126	
==>bject(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1329	1433	
==>bject(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8347	8438	
==>=============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8347	8438	
==>=============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8347	8438	
==>=============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec-> <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1719	1825	
==>plement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limi <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1719	1825	
==>plement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37885	37979	
==>tching every tuple of each source relation
with every tuple of each other source relation, then <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42434	42528	
==>tching every tuple of each source relation
with every tuple of each other source relation, then <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42084	42178	
==>tching every tuple of each source relation
with every tuple of each other source relation, then <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10998	11106	
==>self->write or return;
    
    ### unisntall metadata
    system( qq[rm -rf ] . $self->control_dir( $inst_pk <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28410	28507	
==>and you shouldn't try to
extract them.  This method is also defined as the implicit handler when
c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35766	35863	
==>and you shouldn't try to
extract them.  This method is also defined as the implicit handler when
c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28410	28507	
==>and you shouldn't try to
extract them.  This method is also defined as the implicit handler when
c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35766	35863	
==>and you shouldn't try to
extract them.  This method is also defined as the implicit handler when
c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1876	1978	
==>ported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1876	1978	
==>ported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1876	1978	
==>ported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4566	4663	
==>ing, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

Whe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4566	4663	
==>ing, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

Whe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3915	4050	
==>b {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4108	4243	
==>b {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10875	10980	
==>ething suitable
for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4163	4263	
==>s whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match obj <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4163	4263	
==>s whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7593	7712	
==>ef($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7593	7712	
==>ef($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7593	7712	
==>ef($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	291	387	
==>a string that represents the 
node type, which are checked against each other for agreement at BU <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	291	387	
==>a string that represents the 
node type, which are checked against each other for agreement at BU <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1654	1772	
==>:Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = Devel::STDE <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4899	4995	
==>et {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<== <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4026	4122	
==>et {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<== <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4899	4995	
==>et {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<== <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4026	4122	
==>et {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<== <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1337	1432	
==>$link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1337	1432	
==>$link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1337	1432	
==>$link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbos <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3814	3908	
==>u need something
with more power, move up to Config::Simple, Config::General or one of the
many <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3814	3908	
==>u need something
with more power, move up to Config::Simple, Config::General or one of the
many <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4010	4146	
==>ags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8135	8259	
==>if ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13729	13853	
==>if ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8135	8259	
==>if ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13723	13847	
==>if ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	739	913	
==>fined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	739	913	
==>fined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5159	5256	
==>g.

When compiling (--link option not given), there has to be only one input file.
In linking mode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5159	5256	
==>g.

When compiling (--link option not given), there has to be only one input file.
In linking mode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5159	5256	
==>g.

When compiling (--link option not given), there has to be only one input file.
In linking mode <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2239	2505	
==>$buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2239	2505	
==>$buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5613	5758	
==>}
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5613	5758	
==>}
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5613	5758	
==>}
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	743	873	
==>t_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	743	873	
==>t_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	743	873	
==>t_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	766	872	
==>ebug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	766	872	
==>ebug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1603	1785	
==>ner;
            },

            'array_fetchVal' => sub { # $idx -> $value
                my $self = shift;
                my $idx = shift;
                $self->array_fetchElem($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21905	21997	
==>C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message wa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20786	20878	
==>C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message wa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21905	21997	
==>C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message wa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20786	20878	
==>C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message wa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17047	17180	
==>leop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17326	17459	
==>leop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::ca <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36970	37078	
==>ass->send('add_attribute', (symbol->new('@:MRO')             => attribute->new('@:MRO'             => 'list') <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1074	1175	
==>xp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1074	1175	
==>xp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2878	2973	
==>query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2878	2973	
==>query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	519	613	
==>r-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encod <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	519	613	
==>r-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encod <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5815	5909	
==>oken.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/UnicodeC.o' if grep /WIT <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24997	25091	
==>(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29549	29643	
==>(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28461	28555	
==>(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1956	2072	
==>age) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOV <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1956	2072	
==>age) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOV <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3084	3211	
==>ext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3084	3211	
==>ext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3084	3211	
==>ext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23955	24047	
==>new Relation object, whose Heading and
Body attributes are set respectively from the optional <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28507	28599	
==>new Relation object, whose Heading and
Body attributes are set respectively from the optional <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17644	17736	
==>fix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17644	17736	
==>fix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17644	17736	
==>fix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10104	10225	
==>_class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10104	10225	
==>_class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10104	10225	
==>_class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if ex <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12979	13068	
==>1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Messag <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12979	13068	
==>1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Messag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2181	2284	
==>or
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2181	2284	
==>or
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2181	2284	
==>or
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6232	6326	
==>andler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6232	6326	
==>andler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21476	21587	
==>->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17897	18008	
==>->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	641	735	
==>o which to write all normal output (test results and
descriptions).

=item B<$.error_output>

T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	641	735	
==>o which to write all normal output (test results and
descriptions).

=item B<$.error_output>

T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1197	1291	
==>o which to write all normal output (test results and
descriptions).

=item B<$.error_output>

T <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1386	1490	
==>tion --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1386	1490	
==>tion --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	229	326	
==>its) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	229	326	
==>its) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	229	326	
==>its) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9770	9906	
==>,
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9770	9906	
==>,
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9770	9906	
==>,
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::nex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7545	7653	
==>nels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. U <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7545	7653	
==>nels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. U <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1385	1540	
==>ig;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, store => \$inst,
            allow => sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	71	187	
==>st) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	71	187	
==>st) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	71	187	
==>st) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post() <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3198	3310	
==>_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13388	13498	
==>o a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16865	16975	
==>o a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16227	16337	
==>o a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1292	1391	
==>the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural in <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1292	1391	
==>the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural in <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	55	308	
==>ckages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	55	308	
==>ckages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	55	308	
==>ckages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	55	308	
==>ckages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2430	2513	
==>( map { $class->build_indirect_typed_value($_->type, Blondie::TypeSafe::Type::Std->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3785	3901	
==>'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3785	3901	
==>'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3785	3901	
==>'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16152	16240	
==>sse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Du <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16210	16298	
==>sse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Du <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1187	1301	
==>unc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1187	1301	
==>unc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1187	1301	
==>unc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19524	19620	
==>ote that an update is planned for Locale::KeyedText that will enable
user text to be stored in no <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19524	19620	
==>ote that an update is planned for Locale::KeyedText that will enable
user text to be stored in no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11056	11162	
==>ch::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11206	11312	
==>ch::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4746	4851	
==>L::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4746	4851	
==>L::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4746	4851	
==>L::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6133	6289	
==>tr, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegEx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6133	6289	
==>tr, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegEx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6133	6289	
==>tr, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegEx <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8605	8700	
==>OT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual cipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8605	8700	
==>OT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual cipher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	275	376	
==>(function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	275	376	
==>(function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	275	376	
==>(function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last stateme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16151	16247	
==>c> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefit <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16151	16247	
==>c> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3588	3732	
==>{ return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3600	3744	
==>{ return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12467	12588	
==>{ $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12467	12588	
==>{ $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12467	12588	
==>{ $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	202	296	
==>d_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	202	296	
==>d_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26444	26536	
==>tuple), but that any duplicates following the projection have been
eliminated.  Trivial cases <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30996	31088	
==>tuple), but that any duplicates following the projection have been
eliminated.  Trivial cases <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29998	30090	
==>tuple), but that any duplicates following the projection have been
eliminated.  Trivial cases <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11218	11387	
==>$tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefere <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11218	11387	
==>$tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefere <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11218	11387	
==>$tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefere <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	482	585	
==>ile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	482	585	
==>ile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	12498	12654	
==>3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) {
        $class = $test_class->{$lines->{$.}};
      } <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3661	3761	
==>$P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20649	20745	
==>MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20649	20745	
==>MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20649	20745	
==>MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' } <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2329	2613	
==>al(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11760	11893	
==>~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15237	15370	
==>~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14572	14705	
==>~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6282	6402	
==>ype, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24170	24295	
==>fthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20591	20716	
==>fthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2164	2284	
==>s copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $mess <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	165	273	
==>s copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $mess <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	165	273	
==>s copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $mess <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3302	3406	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3302	3406	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3302	3406	
==>"; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	276	379	
==>DENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	276	379	
==>DENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1088	1187	
==>statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1088	1187	
==>statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1088	1187	
==>statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $con <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1066	1163	
==>ages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1066	1163	
==>ages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5358	5491	
==>yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5358	5491	
==>yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5358	5491	
==>yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10760	10975	
==>ss};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@clas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10760	10975	
==>ss};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@clas <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1628	1737	
==>ine     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is ex <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1628	1737	
==>ine     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1708	1817	
==>ine     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is ex <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7291	7422	
==>oadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	592	723	
==>oadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	408	517	
==>hing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	408	517	
==>hing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	408	517	
==>hing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refere <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2520	2616	
==>Script::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_input>*}
rule ws_required {<?ws_input <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2498	2624	
==>e
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2498	2624	
==>e
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3327	3428	
==>arn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3327	3428	
==>arn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3327	3428	
==>arn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI S <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6518	6616	
==>ns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6518	6616	
==>ns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1575	1729	
==>s')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1575	1729	
==>s')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1575	1729	
==>s')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn " <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10799	10951	
==>de<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10799	10951	
==>de<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1032	1157	
==>ugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1032	1157	
==>ugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1032	1157	
==>ugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20253	20347	
==>> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true v <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20253	20347	
==>> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2377	2487	
==>une;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2377	2487	
==>une;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2377	2487	
==>une;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $pr <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18445	18540	
==>e engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions
w <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2735	2830	
==>e engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions
w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22150	22348	
==>:constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22429	22627	
==>:constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1952	2070	
==>egex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1952	2070	
==>egex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6813	6914	
==>e qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9943	10086	
==>},
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9943	10086	
==>},
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9943	10086	
==>},
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8873	8968	
==><string>

This event processes raw strings.

=item I<newline>

This event handles newlines in th <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8873	8968	
==><string>

This event processes raw strings.

=item I<newline>

This event handles newlines in th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10329	10481	
==>param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10329	10481	
==>param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10329	10481	
==>param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14169	14269	
==>rim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    retur <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1649	1749	
==>rim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    retur <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2399	2618	
==>";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2399	2618	
==>";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40601	40724	
==>ft {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40601	40724	
==>ft {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40601	40724	
==>ft {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4756	4875	
==>fference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Re <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4756	4875	
==>fference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16456	16552	
==>..};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16456	16552	
==>..};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16456	16552	
==>..};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3580	3690	
==>de>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2651	2758	
==>bs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self->{_top}{base} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7546	7651	
==>p @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7546	7651	
==>p @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7546	7651	
==>p @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	343	466	
==>chet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $cla <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	343	466	
==>chet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	504	607	
==>05-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 20 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	504	607	
==>05-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 20 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	504	607	
==>05-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 20 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24534	24646	
==>s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !defined $x;
    return $x->defined if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7242	7345	
==>got the right return value from first Object singleton/class method');   

## make class

my $Foo = $Cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23123	23323	
==>->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23123	23323	
==>->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23123	23323	
==>->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	59	160	
==>st::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::B <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	59	160	
==>st::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::B <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	156	293	
==>ase;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	156	293	
==>ase;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9320	9435	
==>ldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9320	9435	
==>ldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9320	9435	
==>ldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3951	4044	
==>assed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, da <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3951	4044	
==>assed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, da <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	63	148	
==>ub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	63	148	
==>ub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	63	148	
==>ub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4534	4696	
==>t $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.st <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4534	4696	
==>t $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	23	112	
==>:MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descriptio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	23	112	
==>:MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descriptio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	23	112	
==>:MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descriptio <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	467	575	
==>started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	525	633	
==>started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::tes <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7809	7910	
==>dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOP <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7809	7910	
==>dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOP <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2897	2997	
==>e>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RULE
*{'assign'} = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9881	9984	
==>t can remain an implementation detail 
    # for the methods described below.
    # -------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9881	9984	
==>t can remain an implementation detail 
    # for the methods described below.
    # -------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9881	9984	
==>t can remain an implementation detail 
    # for the methods described below.
    # -------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11373	11467	
==>the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11373	11467	
==>the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4313	4415	
==>l2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_comp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4313	4415	
==>l2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_comp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4313	4415	
==>l2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_comp <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2822	2918	
==>PPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2822	2918	
==>PPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6492	6587	
==>ars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @gl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6492	6587	
==>ars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @gl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6492	6587	
==>ars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @gl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9417	9511	
==>ers consist of attribute-value pairs also called fields, which
may be repeated, and which are p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9417	9511	
==>ers consist of attribute-value pairs also called fields, which
may be repeated, and which are p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7139	7252	
==>does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7139	7252	
==>does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7139	7252	
==>does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23978	24088	
==>h @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->er <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20399	20509	
==>h @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->er <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	320	476	
==>r $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_li <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	320	476	
==>r $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_li <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3572	3692	
==>ue if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3572	3692	
==>ue if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to en <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22994	23099	
==>p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Ali <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40556	40649	
==>ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26070	26163	
==>ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40556	40649	
==>ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26070	26163	
==>ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17398	17485	
==>1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13009	13114	
==>},

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $com <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13009	13114	
==>},

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14969	15066	
==>xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14969	15066	
==>xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14969	15066	
==>xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
M <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2026	2145	
==>in(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2026	2145	
==>in(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2106	2225	
==>in(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	293	398	
==>block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	293	398	
==>block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9894	10004	
==>$S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  $self- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22005	22100	
==>from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not ava <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20886	20981	
==>from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not ava <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22005	22100	
==>from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not ava <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20886	20981	
==>from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not ava <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2257	2378	
==>ave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tild <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2257	2378	
==>ave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tild <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9757	9862	
==>if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9757	9862	
==>if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9757	9862	
==>if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5937	6076	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5937	6076	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5937	6076	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2389	2487	
==>line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $messag <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2389	2487	
==>line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $messag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7807	7911	
==>- The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7807	7911	
==>- The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7807	7911	
==>- The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'F <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2771	2868	
==>t never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count( <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2771	2868	
==>t never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	489	599	
==>n, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	489	599	
==>n, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	489	599	
==>n, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelu <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12993	13088	
==>tive infinite if the recurrence is an empty set.

- `stringify()`

Return a string representatio <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12993	13088	
==>tive infinite if the recurrence is an empty set.

- `stringify()`

Return a string representatio <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5507	5616	
==>y_type {
		my $self = shift;

		my $node = shift;
		my $expected_type = shift;

		my $de_facto_type = $node->t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	576	677	
==>is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called whi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	576	677	
==>is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called whi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	415	507	
==>ush(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ / <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	415	507	
==>ush(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ / <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2564	2685	
==>hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2564	2685	
==>hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2564	2685	
==>hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[ <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	1915	2006	
==>---------------------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2606	2691	
==>==========================================

:- style_check(-discontiguous). % remove i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1096	1204	
==>x.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1096	1204	
==>x.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1096	1204	
==>x.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } <==
5	/Users/nnunley/pugs/util/package-osx.pl	11784	11884	
==>y ($dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.pass");
}

&change_files($dest, %c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	0	92	
==>﻿package Pugs::Grammar::Num;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1577	1676	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1577	1676	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1577	1676	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19178	19270	
==>muted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19178	19270	
==>muted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8683	8782	
==>it will recurse down the tree and fix the
# depth fields appropriately.
# This method is called auto <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8683	8782	
==>it will recurse down the tree and fix the
# depth fields appropriately.
# This method is called auto <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	36	129	
==>ss.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	36	129	
==>ss.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	36	129	
==>ss.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::T <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2871	2972	
==>Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functiona <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2871	2972	
==>Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functiona <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1637	1736	
==>bject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1637	1736	
==>bject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1637	1736	
==>bject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatche <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1321	1425	
==>_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Intern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1321	1425	
==>_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Intern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1321	1425	
==>_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Intern <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3982	4083	
==>dText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3982	4083	
==>dText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7264	7359	
==>efix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7264	7359	
==>efix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7264	7359	
==>efix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	473	578	
==>UILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	473	578	
==>UILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	473	578	
==>UILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # t <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4486	4565	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4486	4565	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11131	11223	
==>get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns ev <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11131	11223	
==>get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns ev <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33075	33163	
==>as aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37625	37713	
==>as aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36969	37057	
==>as aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15084	15182	
==>his Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
"r <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15084	15182	
==>his Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
"r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5154	5246	
==>_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5154	5246	
==>_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5154	5246	
==>_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6575	6692	
==>Otherwise, root through the file to locate the case-preserved
        # version of the package name.
        if ( $sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23641	23756	
==>defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("", <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23641	23756	
==>defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("", <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23641	23756	
==>defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("", <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5673	5780	
==>xp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regex <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11069	11197	
==>$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11069	11197	
==>$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1048	1153	
==>sed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a vali <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1048	1153	
==>sed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a vali <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1048	1153	
==>sed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a vali <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9152	9261	
==>t ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8998	9103	
==>tarted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9056	9161	
==>tarted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1280	1383	
==>t ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1280	1383	
==>t ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4538	4632	
==>le/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4788	4882	
==>le/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	566	673	
==>t::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	566	673	
==>t::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	566	673	
==>t::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15551	15655	
==><E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time aft <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15551	15655	
==><E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time aft <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2925	3034	
==><FF>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
ru <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2710	2809	
==>(however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_ur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2710	2809	
==>(however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_ur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21855	21946	
==>ly.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21855	21946	
==>ly.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs th <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	22	121	
==>.1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	22	121	
==>.1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2643	2727	
==>= run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2643	2727	
==>= run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2643	2727	
==>= run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3641	3747	
==>class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3641	3747	
==>class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3641	3747	
==>class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	272	363	
==>bleName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	272	363	
==>bleName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::C <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7784	7914	
==>.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

sub <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7784	7914	
==>.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23620	23744	
==>EC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr alre <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4241	4344	
==>d to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in the para <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28850	28947	
==>EC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr alre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	445	579	
==>nloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	445	579	
==>nloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	445	579	
==>nloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4534	4641	
==>mp_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4317	4419	
==>mp_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{p <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3191	3447	
==>>new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8066	8210	
==>x eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13660	13804	
==>x eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8066	8210	
==>x eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13654	13798	
==>x eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	653	860	
==>rl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	653	860	
==>rl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	653	860	
==>rl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub ev <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8953	9075	
==>b { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8953	9075	
==>b { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1234	1370	
==>" => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1234	1370	
==>" => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1234	1370	
==>" => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $autho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3416	3538	
==>code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3416	3538	
==>code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19055	19198	
==>mar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19334	19477	
==>mar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6696	6809	
==>{
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6696	6809	
==>{
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6696	6809	
==>{
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	49	160	
==>b fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	49	160	
==>b fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	49	160	
==>b fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TC <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7577	7676	
==>ation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to arra <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7577	7676	
==>ation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to arra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3956	4072	
==>tion {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2190	2306	
==>tion {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2971	3087	
==>tion {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2068	2164	
==>, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look for <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2068	2164	
==>, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7194	7351	
==>mify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7194	7351	
==>mify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7194	7351	
==>mify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10380	10491	
==>EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:per <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10380	10491	
==>EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:per <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2752	2857	
==>$hint eq 'String' {
        my $Result1 = $O.<[[Get]]>('toString');
        if $Result1.isa(JSX::Value::Ob <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6100	6195	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array` <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8168	8263	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array` <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6100	6195	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array` <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8168	8263	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array` <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3015	3137	
==>circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ende <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3015	3137	
==>circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ende <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3015	3137	
==>circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ende <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1361	1465	
==>o {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7120	7219	
==>::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . joi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7120	7219	
==>::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . joi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7120	7219	
==>::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . joi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1346	1444	
==>o {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	110	228	
==>tant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	110	228	
==>tant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	110	228	
==>tant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3] <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10411	10519	
==>ildren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>) <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10411	10519	
==>ildren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16083	16290	
==>p::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::al <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16362	16569	
==>p::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11879	11973	
==>face/API they are 
interchangable with one another, classes and Roles are unified. THis is like <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11879	11973	
==>face/API they are 
interchangable with one another, classes and Roles are unified. THis is like <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11879	11973	
==>face/API they are 
interchangable with one another, classes and Roles are unified. THis is like <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1211	1298	
==>---------------------------------------------

Since you are using Microsoft Windows, yo <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1051	1138	
==>---------------------------------------------

Since you are using Microsoft Windows, yo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	689	807	
==>s::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3760	3878	
==>s::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	689	807	
==>s::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3760	3878	
==>s::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29901	29995	
==>::Example has all
of the tuples of the original (or rather, the corresponding projection of
eac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4711	4843	
==>->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13136	13268	
==>->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15747	15879	
==>->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17235	17367	
==>->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21918	22050	
==>->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::cr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1287	1390	
==>_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1287	1390	
==>_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1496	1599	
==>_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1121	1211	
==>otocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1121	1211	
==>otocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14048	14185	
==>$i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14048	14185	
==>$i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14048	14185	
==>$i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destro <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6310	6447	
==>$i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destro <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4812	4949	
==>$i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2190	2288	
==>age->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2190	2288	
==>age->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2190	2288	
==>age->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6202	6295	
==>implementation of most block and stream ciphers to a constructor, 
the cryptographic core, and <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6202	6295	
==>implementation of most block and stream ciphers to a constructor, 
the cryptographic core, and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11046	11191	
==>f exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use thi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11046	11191	
==>f exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use thi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11046	11191	
==>f exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use thi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	737	833	
==>d TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole byte <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	737	833	
==>d TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole byte <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2002	2198	
==>age.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2002	2198	
==>age.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1727	1832	
==>value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BIN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1727	1832	
==>value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BIN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1727	1832	
==>value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BIN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3324	3483	
==>ay->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3324	3483	
==>ay->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3324	3483	
==>ay->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $ <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	300	403	
==>n = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
for my $key (keys %funcs <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	187	287	
==>bMethod SubRoutine SubBlock SubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl::Pad <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6528	6647	
==>arp::CarpLevel = 2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    m <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1131	1231	
==>arn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File: <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1131	1231	
==>arn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18581	18676	
==>ort of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18581	18676	
==>ort of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object" <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4595	4746	
==>dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        } <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4595	4746	
==>dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	953	1051	
==>elude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	953	1051	
==>elude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	953	1051	
==>elude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	532	642	
==>ruct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	532	642	
==>ruct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	532	642	
==>ruct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retur <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	18	117	
==>eMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(Write <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	18	117	
==>eMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(Write <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	770	868	
==>hs defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextes <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4957	5052	
==>is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4084	4179	
==>is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4957	5052	
==>is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4084	4179	
==>is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29396	29512	
==>MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29396	29512	
==>MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7709	7820	
==>n $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7709	7820	
==>n $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	220	324	
==>MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        = <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1863	2015	
==>ase = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1863	2015	
==>ase = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2580	2708	
==>ase = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2580	2708	
==>ase = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = c <==
5	/Users/nnunley/pugs/util/testgraph.pl	1796	1920	
==>l::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1081	1177	
==>eadonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1081	1177	
==>eadonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1081	1177	
==>eadonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7742	7840	
==>returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher o <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7742	7840	
==>returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	637	722	
==>still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	637	722	
==>still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	637	722	
==>still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2797	2903	
==>components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all EN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2797	2903	
==>components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all EN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2797	2903	
==>components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all EN <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9903	9997	
==>re referred to as "immediate" and "deferred".  The immediate validations
are performed at the m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9903	9997	
==>re referred to as "immediate" and "deferred".  The immediate validations
are performed at the m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	97	199	
==>%$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	97	199	
==>%$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	97	199	
==>%$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	983	1079	
==>has the same effect as
them being defined in the Class, so this effect is called the
"Flattening" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22724	22820	
==>e sure compilation was successful.

=item maxpar

The highest number of parentheses.  It will end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1578	1677	
==>implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

us <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1578	1677	
==>implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

us <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1578	1677	
==>implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

us <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8144	8238	
==>directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

This ev <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8144	8238	
==>directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

This ev <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4352	4525	
==>ing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4352	4525	
==>ing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6770	6878	
==>return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6770	6878	
==>return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6770	6878	
==>return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1375	1475	
==>- 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1375	1475	
==>- 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1375	1475	
==>- 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	245	341	
==>s::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	245	341	
==>s::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pug <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8204	8332	
==>$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8204	8332	
==>$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17298	17390	
==>bute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17298	17390	
==>bute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17298	17390	
==>bute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8744	8931	
==>it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5104	5291	
==>it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5953	6140	
==>it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	226	322	
==>ot;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 N <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	226	322	
==>ot;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 N <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1131	1239	
==>$body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1131	1239	
==>$body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1131	1239	
==>$body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contro <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13037	13135	
==>t_headers

This will remove all the header fields used to describe the content of
a message.  All h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13037	13135	
==>t_headers

This will remove all the header fields used to describe the content of
a message.  All h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1648	1785	
==>ile-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1855	1992	
==>ile-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1577	1683	
==>_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1577	1683	
==>_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1577	1683	
==>_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1073	1188	
==>!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1073	1188	
==>!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1073	1188	
==>!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1818	1924	
==>ocuments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut") <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1818	1924	
==>ocuments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut") <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23777	23873	
==>NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22550	22646	
==>NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23777	23873	
==>NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22550	22646	
==>NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3854	4014	
==>t; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3854	4014	
==>t; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3854	4014	
==>t; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        }, <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	11287	11401	
==>ition, $whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe. Uses the shell.

    multi sub open <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	227	318	
==>";
say "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s Lieblingsdrink ist %li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6629	6741	
==>MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6629	6741	
==>MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6629	6741	
==>MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11428	11528	
==>params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11428	11528	
==>params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14839	14960	
==>ar expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular exp <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19007	19128	
==>ar expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11913	12024	
==>$pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11913	12024	
==>$pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11913	12024	
==>$pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::' <==
5	/Users/nnunley/pugs/util/package-osx.pl	10843	10966	
==>d \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                n <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6716	6810	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= A <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8785	8879	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= A <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6716	6810	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= A <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8785	8879	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= A <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11183	11300	
==>>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a di <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11183	11300	
==>>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2939	3049	
==>XX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2939	3049	
==>XX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2939	3049	
==>XX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $bar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4216	4348	
==>::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::R <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5157	5271	
==>$!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8634	8748	
==>$!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3668	3776	
==>ove
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3668	3776	
==>ove
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3668	3776	
==>ove
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2672	2786	
==>rity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2672	2786	
==>rity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2672	2786	
==>rity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	546	637	
==>ass->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$met <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	546	637	
==>ass->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1044	1158	
==>the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1044	1158	
==>the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1044	1158	
==>the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32490	32582	
==>C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37040	37132	
==>C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	801	926	
==>$epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	801	926	
==>$epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1110	1205	
==>c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1110	1205	
==>c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1110	1205	
==>c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2745	2956	
==>ntime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => "ANGLE", ang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	276	379	
==>R = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($COR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	276	379	
==>R = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($COR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	276	379	
==>R = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($COR <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28132	28226	
==>d to invoke perl on
each test.  For example, setting C<HARNESS_PERL_SWITCHES> to C<-W> will
run <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3748	3846	
==>$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3748	3846	
==>$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	70	157	
==>stant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	70	157	
==>stant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	70	157	
==>stant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	873	982	
==>ds g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	873	982	
==>ds g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	873	982	
==>ds g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5783	6004	
==>$_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5783	6004	
==>$_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5783	6004	
==>$_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $na <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	711	816	
==>/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single e <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	711	816	
==>/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7486	7689	
==>main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8320	8523	
==>main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5964	6093	
==>ubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5964	6093	
==>ubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5964	6093	
==>ubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $cl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4091	4223	
==>mes;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4091	4223	
==>mes;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5889	5991	
==>peratorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsrSta <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1298	1391	
==>talls a event handler listening
for all C<PRIVMSG>s. Each time people say something (in public <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1298	1391	
==>talls a event handler listening
for all C<PRIVMSG>s. Each time people say something (in public <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7181	7304	
==>},
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7181	7304	
==>},
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7181	7304	
==>},
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5	105	
==>ge Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5	105	
==>ge Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	836	951	
==>[2],} }\n" .  
        "\t | 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1 <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9845	9958	
==>elf->_filtered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	38	133	
==>es the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	38	133	
==>es the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	38	133	
==>es the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7841	7960	
==>warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #war <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7841	7960	
==>warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #war <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7841	7960	
==>warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #war <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14692	14801	
==>$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14692	14801	
==>$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3860	3967	
==>PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.lef <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4193	4300	
==>PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.lef <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3860	3967	
==>PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.lef <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4193	4300	
==>PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.lef <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3007	3093	
==>2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21935	22030	
==>n (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for nu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20816	20911	
==>n (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for nu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21935	22030	
==>n (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for nu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20816	20911	
==>n (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for nu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9646	9755	
==>sult ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9646	9755	
==>sult ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1268	1371	
==>, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1268	1371	
==>, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1268	1371	
==>, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	405	504	
==>or split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	405	504	
==>or split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	405	504	
==>or split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	342	460	
==>chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars), <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	342	460	
==>chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	577	685	
==>Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrappe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	577	685	
==>Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrappe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	577	685	
==>Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrappe <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3013	3175	
==>hile $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	617	723	
==>_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1879	1985	
==>_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	617	723	
==>_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1879	1985	
==>_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6805	6913	
==>ical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6805	6913	
==>ical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6805	6913	
==>ical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8283	8379	
==>:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work w <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8283	8379	
==>:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4891	4999	
==>umify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4891	4999	
==>umify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4891	4999	
==>umify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6767	6856	
==>from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<chan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6767	6856	
==>from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<chan <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4242	4415	
==>X - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4242	4415	
==>X - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22937	23082	
==>STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22937	23082	
==>STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22937	23082	
==>STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1880	1991	
==>);
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1880	1991	
==>);
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1880	1991	
==>);
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10448	10548	
==>s already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($ob <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10448	10548	
==>s already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($ob <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15967	16068	
==>elf = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$sym <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2360	2461	
==>elf = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$sym <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2033	2166	
==>rsecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2033	2166	
==>rsecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5994	6110	
==>allchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5994	6110	
==>allchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5994	6110	
==>allchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5732	5829	
==>ti sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4862	4959	
==>ti sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3760	3857	
==>\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ], <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5732	5829	
==>ti sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4862	4959	
==>ti sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	6066	6192	
==>l_tests, 0, $this_size;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self- <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5467	5564	
==>s Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4597	4694	
==>s Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5467	5564	
==>s Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4597	4694	
==>s Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12951	13153	
==>isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12951	13153	
==>isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12951	13153	
==>isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	387	495	
==>ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @di <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	387	495	
==>ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11122	11252	
==>hod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_norm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11122	11252	
==>hod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_norm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11122	11252	
==>hod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_norm <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23780	23873	
==>lements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23780	23873	
==>lements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> i <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	43	144	
==>ams;
use base qw/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8907	9000	
==>005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dis <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3836	3929	
==>005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dis <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8907	9000	
==>005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dis <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3836	3929	
==>005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, dis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16576	16687	
==>me p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will comp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16576	16687	
==>me p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4452	4552	
==>::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4452	4552	
==>::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4452	4552	
==>::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7205	7308	
==>tant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7205	7308	
==>tant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19622	19715	
==>sa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19622	19715	
==>sa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19622	19715	
==>sa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3648	3774	
==>v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3648	3774	
==>v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3648	3774	
==>v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell') <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3939	4157	
==>r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3939	4157	
==>r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2982	3086	
==>r methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2982	3086	
==>r methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2982	3086	
==>r methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	419	532	
==>{
    push @:events, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5437	5534	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4567	4664	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5437	5534	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4567	4664	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1812	1909	
==>$ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1812	1909	
==>$ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1812	1909	
==>$ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25851	25946	
==>sg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25851	25946	
==>sg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names an <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	899	1009	
==>or addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other mo <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	899	1009	
==>or addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other mo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23057	23156	
==>values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27609	27708	
==>values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26386	26485	
==>values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7730	7824	
==>er("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Pro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7730	7824	
==>er("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Pro <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	460	578	
==>a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Rem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1005	1123	
==>a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Rem <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	460	578	
==>a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Rem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1005	1123	
==>a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Rem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1005	1123	
==>a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Rem <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2617	2740	
==>t copy sources to '$builddir'" ), return;
#     }
# 
#     my $cwd = JIB::Utils->_chdir( dir => $builddir ) 
#         or er <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6127	6238	
==>_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6907	7018	
==>_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug " <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6127	6238	
==>_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug " <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6907	7018	
==>_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug " <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3754	3866	
==>split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0", <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3754	3866	
==>split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0", <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32404	32501	
==>ot have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36954	37051	
==>ot have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36244	36341	
==>ot have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29921	30042	
==>}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29921	30042	
==>}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29921	30042	
==>}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	956	1055	
==>Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	956	1055	
==>Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::S <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13627	13768	
==>{
                my $pre = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3760	3889	
==>{
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3760	3889	
==>{
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3760	3889	
==>{
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1060	1178	
==>/) {
	    print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $debug_w <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3713	3812	
==>rence($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.unio <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6696	6795	
==>,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6696	6795	
==>,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed' <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3713	3812	
==>rence($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.unio <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3595	3694	
==>,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6887	7020	
==>'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements insid <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6887	7020	
==>'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements insid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1660	1765	
==>,  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1660	1765	
==>,  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1660	1765	
==>,  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", " <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3595	3699	
==>>{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2636	2739	
==>>{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1983	2081	
==>R::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1983	2081	
==>R::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1983	2081	
==>R::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	378	512	
==>sa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	378	512	
==>sa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	378	512	
==>sa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15079	15178	
==>y ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15079	15178	
==>y ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	268	395	
==>turns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XX <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	268	395	
==>turns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XX <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	498	603	
==>t $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	498	603	
==>t $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6117	6208	
==>open $syn_index: $!";
    $template = HTML::Template->new(filename => 'util/catalog_tmpl/Syn <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6564	6662	
==>(IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3918	4016	
==>(IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a s <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6564	6662	
==>(IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a s <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3918	4016	
==>(IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a s <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	21040	21126	
==>r(Bool::False,$module);
}
sub Pugs::Internals::require_use_helper ($use_,$module) is bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	957	1052	
==>5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	957	1052	
==>5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	957	1052	
==>5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13193	13287	
==>$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6668	6762	
==>$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1420	1533	
==>node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4544	4654	
==>node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4544	4654	
==>node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16984	17089	
==>argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16984	17089	
==>argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Ros <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3627	3749	
==>1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3615	3737	
==>1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	639	753	
==>ub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	639	753	
==>ub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	639	753	
==>ub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14537	14677	
==>e') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connect <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14537	14677	
==>e') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	896	1005	
==>port
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we'r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	896	1005	
==>port
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we'r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	896	1005	
==>port
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we'r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15721	15849	
==>mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enque <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15721	15849	
==>mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	20	126	
==>hangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sig <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	20	126	
==>hangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sig <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	20	126	
==>hangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Sig <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2760	2866	
==>ester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2760	2866	
==>ester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2840	2946	
==>ester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Bu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2825	2924	
==>> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2825	2924	
==>> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7989	8086	
==>r Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method shou <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7989	8086	
==>r Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method shou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2806	2897	
==>6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2806	2897	
==>6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2806	2897	
==>6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2322	2460	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2322	2460	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2322	2460	
==>e
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_insta <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1716	1836	
==>ef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # c <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1716	1836	
==>ef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # c <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1941	2048	
==>delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compil <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1941	2048	
==>delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2233	2338	
==>e); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2233	2338	
==>e); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2233	2338	
==>e); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3226	3372	
==>y $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3226	3372	
==>y $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3226	3372	
==>y $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4764	4901	
==>e {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4752	4889	
==>e {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # X <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9291	9403	
==>alue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9291	9403	
==>alue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9291	9403	
==>alue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'} <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13879	13990	
==>5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13879	13990	
==>5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6352	6508	
==>eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3477	3633	
==>eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4326	4482	
==>eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    r <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	245	343	
==>sfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then trie <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	245	343	
==>sfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then trie <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13175	13270	
==>urces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16652	16747	
==>urces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16014	16109	
==>urces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2304	2419	
==>th $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2304	2419	
==>th $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2304	2419	
==>th $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24333	24430	
==>t is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28885	28982	
==>t is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1307	1428	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0| <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3603	3724	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0| <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1307	1428	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0| <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3603	3724	
==>5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0| <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	516	608	
==>ode->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->inse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6073	6196	
==>eys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6073	6196	
==>eys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6073	6196	
==>eys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_nam <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3464	3564	
==>meters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can red <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3464	3564	
==>meters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can red <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1440	1535	
==>unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	356	451	
==>S.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub in <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1440	1535	
==>unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	356	451	
==>S.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	356	451	
==>S.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2332	2433	
==>], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2332	2433	
==>], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2332	2433	
==>], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7643	7731	
==>ub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1468	1556	
==>ub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13704	13814	
==>_class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13704	13814	
==>_class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13704	13814	
==>_class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6655	6750	
==>never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loade <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6655	6750	
==>never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loade <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2072	2180	
==>head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.L <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2072	2180	
==>head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.L <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	368	463	
==>nt(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	368	463	
==>nt(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	368	463	
==>nt(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2935	3083	
==>(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $l <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2935	3083	
==>(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13177	13298	
==>oad()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13177	13298	
==>oad()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14820	14915	
==>nternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14820	14915	
==>nternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14820	14915	
==>nternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1577	1713	
==>RI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1577	1713	
==>RI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	878	996	
==>elf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	878	996	
==>elf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	878	996	
==>elf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9732	9832	
==>sh(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9732	9832	
==>sh(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9732	9832	
==>sh(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24372	24471	
==>eturn $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ift <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20793	20892	
==>eturn $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ift <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9505	9617	
==>ect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_tr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9505	9617	
==>ect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6769	6868	
==>sion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6769	6868	
==>sion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6769	6868	
==>sion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:ve <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18645	18736	
==>od _exclusion (Relation::Example $other!) returns Relation::Example {
    return Relation::E <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16165	16256	
==>xpressionNoIn> <'instanceof'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4703	4876	
==>key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4703	4876	
==>key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4703	4876	
==>key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1227	1361	
==>@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1227	1361	
==>@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2779	3038	
==>ined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2779	3038	
==>ined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3945	4061	
==>arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positiona <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3945	4061	
==>arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positiona <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4535	4651	
==>arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positiona <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1228	1341	
==>s}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1228	1341	
==>s}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	385	488	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	385	488	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	385	488	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5136	5308	
==>= $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5136	5308	
==>= $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5136	5308	
==>= $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8521	8632	
==>ndex{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8509	8620	
==>ndex{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         p <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3179	3332	
==>cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value o <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3179	3332	
==>cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value o <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4545	4650	
==>ary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4937	5042	
==>ary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5448	5553	
==>ary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5542	5665	
==>eturn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5554	5677	
==>eturn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17163	17255	
==>B link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17163	17255	
==>B link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17163	17255	
==>B link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4553	4655	
==>..
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4553	4655	
==>..
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4553	4655	
==>..
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1609	1705	
==>>{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1749	1845	
==>>{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast} <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1732	1856	
==>method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strateg <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1732	1856	
==>method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strateg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4084	4193	
==>m{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DES <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4084	4193	
==>m{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DES <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4084	4193	
==>m{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DES <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	342	474	
==>{ %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	342	474	
==>{ %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	341	444	
==>>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	341	444	
==>>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	341	444	
==>>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34435	34531	
==>d> object it
creates!

A method call for a F<Regexp::MyRx::THING> object will look in its own
pac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5429	5666	
==>t")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7191	7428	
==>t")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1997	2095	
==>arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1997	2095	
==>arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1997	2095	
==>arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@sel <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7996	8101	
==>defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7996	8101	
==>defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37881	37974	
==>e-matching every tuple of each source relation
with every tuple of each other source relation, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42430	42523	
==>e-matching every tuple of each source relation
with every tuple of each other source relation, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42080	42173	
==>e-matching every tuple of each source relation
with every tuple of each other source relation, <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5122	5223	
==>d1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5122	5223	
==>d1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20541	20639	
==>) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20541	20639	
==>) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20541	20639	
==>) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	129	237	
==>r $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Da <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	129	237	
==>r $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Da <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7348	7613	
==>= $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal e <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7348	7613	
==>= $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	335	470	
==>);
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' can't be mixed <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1583	1687	
==>PSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1583	1687	
==>PSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7086	7204	
==>oundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7086	7204	
==>oundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP:: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29588	29680	
==>tributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34140	34232	
==>tributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33304	33396	
==>tributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3113	3264	
==>)
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3360	3511	
==>)
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4956	5056	
==>er the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4956	5056	
==>er the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7153	7253	
==>er the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	60	161	
==>nd intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	60	161	
==>nd intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	60	161	
==>nd intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# ne <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	60	161	
==>nd intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# ne <==
5	/Users/nnunley/pugs/misc/Blondie/example.pl	440	540	
==>my $t2 = times;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	688	963	
==>@{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	688	963	
==>@{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	688	963	
==>@{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->f <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17057	17152	
==>hat would not be possible if its
functionality was subsumed into a larger package that would oth <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17057	17152	
==>hat would not be possible if its
functionality was subsumed into a larger package that would oth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3260	3357	
==>y == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3260	3357	
==>y == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3260	3357	
==>y == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mod <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1590	1684	
==>not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1648	1742	
==>not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18276	18368	
==>terchange
format between Rosetta::Model and other Perl code such as persistence
solutions.  M <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18276	18368	
==>terchange
format between Rosetta::Model and other Perl code such as persistence
solutions.  M <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13181	13272	
==>terchange format between
Rosetta::Model and other Perl code such as persistence solutions.
M <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24790	24881	
==>elation::Example
attributes may be individually addressed only by their names, and all
Relat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13181	13272	
==>terchange format between
Rosetta::Model and other Perl code such as persistence solutions.
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4940	5046	
==>s {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $O <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4940	5046	
==>s {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $O <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4940	5046	
==>s {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $O <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	406	502	
==>__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	406	502	
==>__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

Thi <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	163	291	
==>x:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Th <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2090	2217	
==>x:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	421	538	
==>Noop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	421	538	
==>Noop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	421	538	
==>Noop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1236	1349	
==>ngth() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1585	1694	
==>ngth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1192	1301	
==>ngth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1585	1694	
==>ngth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	268	353	
==>::OnPerl5::X1::Api::p6_initialize_package("main",'package');
    Perl6::Run::OnPerl5:: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6177	6295	
==>pen && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6177	6295	
==>pen && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1164	1272	
==>ubnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1164	1272	
==>ubnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1164	1272	
==>ubnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6453	6652	
==>p
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6453	6652	
==>p
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6453	6652	
==>p
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n" <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1318	1418	
==>is called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1318	1418	
==>is called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24117	24259	
==>ons
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24117	24259	
==>ons
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24117	24259	
==>ons
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8935	9029	
==>rl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8935	9029	
==>rl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta:: <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3854	3968	
==>self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how 's.
	#join "", "[ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6077	6170	
==>!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<ch <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6857	6950	
==>!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6077	6170	
==>!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6857	6950	
==>!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	197	312	
==>ter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	197	312	
==>ter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	197	312	
==>ter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6104	6216	
==>etodo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6162	6274	
==>etodo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15072	15171	
==>self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9271	9370	
==>self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	936	1033	
==>lasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	936	1033	
==>lasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	936	1033	
==>lasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	416	518	
==>-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	416	518	
==>-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	416	518	
==>-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair str <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12592	12686	
==>function removes the header fields with the specified names.

The header field names ($field) a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12592	12686	
==>function removes the header fields with the specified names.

The header field names ($field) a <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3898	4006	
==>1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3898	4006	
==>1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23357	23458	
==>(p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23357	23458	
==>(p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23357	23458	
==>(p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	969	1121	
==>plit('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($k <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	969	1121	
==>plit('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6300	6389	
==>_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6300	6389	
==>_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6300	6389	
==>_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewlin <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	948	1114	
==>ass", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callbac <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	948	1114	
==>ass", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callbac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	873	974	
==>eference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	873	974	
==>eference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	873	974	
==>eference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1534	1667	
==>ackage_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4737	4870	
==>ackage_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3249	3345	
==>nless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3249	3345	
==>nless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3249	3345	
==>nless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5128	5242	
==>d variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5350	5464	
==>d variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    m <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8153	8257	
==>returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_param <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8545	8649	
==>returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_param <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8153	8257	
==>returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_param <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8545	8649	
==>returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_param <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35919	36016	
==>g
and whose body contains all of the tuples that are in either or both of the
invocant Relation::E <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1355	1453	
==>nd a Body.



the Pad contains My/State/Temp markers for container

allocation, as well as the comp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1297	1392	
==>nd a Body.

the Pad contains My/State/Temp markers for container
allocation, as well as the comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14333	14424	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14333	14424	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14333	14424	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1106	1215	
==>air_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1106	1215	
==>air_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1106	1215	
==>air_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } els <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1167	1264	
==>'s 
search path so that later `use` or `require` statements 
will find modules which are not locat <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1167	1264	
==>'s 
search path so that later `use` or `require` statements 
will find modules which are not locat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3737	3941	
==>}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3737	3941	
==>}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3737	3941	
==>}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1191	1312	
==>ed, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	751	872	
==>ed, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7768	7880	
==>,
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7768	7880	
==>,
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7768	7880	
==>,
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = A <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4003	4100	
==>( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4003	4100	
==>( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11461	11572	
==>le->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11461	11572	
==>le->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11461	11572	
==>le->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %para <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8086	8191	
==>ark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8086	8191	
==>ark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24120	24252	
==>f ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24120	24252	
==>f ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24120	24252	
==>f ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2192	2314	
==>tine     Base class for all nameable executable objects
    Sub         Perl subroutine
    Method      Perl method
    Sub <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	381	488	
==>class = shift;
  my $object = bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $gramm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10867	10992	
==>un;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and p <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10867	10992	
==>un;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3874	3975	
==>~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3874	3975	
==>~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3874	3975	
==>~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {.. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11231	11374	
==>, \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11510	11653	
==>, \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2528	2662	
==>} 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numer <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2528	2662	
==>} 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numer <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2528	2662	
==>} 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13107	13211	
==>tch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13107	13211	
==>tch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13107	13211	
==>tch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7662	7781	
==>$r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11139	11258	
==>$r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	600	697	
==>er 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
desc <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	600	697	
==>er 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
desc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1156	1253	
==>er 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
desc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1812	1908	
==>r::RegexPerl5> wraps Perl 5 Regexes to return a B<Match> object.

* Runtime Classes

=item * L<Pu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2252	2346	
==>ted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	795	888	
==>ted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2163	2256	
==>ted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	795	888	
==>ted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $e <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18327	18424	
==>the guts of the perl core, to permit the use
of alternate regexp engines.  There being little docu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8872	8968	
==>rg>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8872	8968	
==>rg>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	225	313	
==>le;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	225	313	
==>le;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1512	1731	
==>ush @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18656	18835	
==>n "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18656	18835	
==>n "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18656	18835	
==>n "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6325	6444	
==>optimization for faster backtracking, less stack usage
    return sub {
        my $state = $_[1] || $node;
        m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8560	8663	
==>channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8560	8663	
==>channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11689	11789	
==>->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11689	11789	
==>->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11689	11789	
==>->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1723	1836	
==>oin(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6731	6821	
==>R

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEM <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8800	8890	
==>R

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEM <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6731	6821	
==>R

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEM <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8800	8890	
==>R

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEM <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7935	8075	
==>mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7935	8075	
==>mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7935	8075	
==>mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	8	123	
==>st::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invali <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	8	123	
==>st::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invali <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29169	29284	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29448	29563	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3563	3662	
==>rl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3563	3662	
==>rl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3563	3662	
==>rl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3819	3917	
==>, call the finish() method to return any leftover data 
and clear the cipher object.

The methods i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3819	3917	
==>, call the finish() method to return any leftover data 
and clear the cipher object.

The methods i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6246	6341	
==>new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6246	6341	
==>new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6246	6341	
==>new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15513	15680	
==>$array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15513	15680	
==>$array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15513	15680	
==>$array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # X <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4047	4149	
==>t the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4047	4149	
==>t the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

= <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10553	10676	
==>ists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $co <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10553	10676	
==>ists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2311	2409	
==>s->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2311	2409	
==>s->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2311	2409	
==>s->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19578	19674	
==>and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effective <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19578	19674	
==>and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effective <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	552	647	
==>self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	552	647	
==>self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	552	647	
==>self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	165	257	
==>=> `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
u <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	318	410	
==>=> `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
u <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	468	622	
==>($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	468	622	
==>($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2229	2315	
==>paque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2229	2315	
==>paque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2229	2315	
==>paque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5165	5280	
==>ll
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_metho <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5917	6015	
==>lti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5047	5145	
==>lti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5917	6015	
==>lti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5047	5145	
==>lti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2479	2707	
==>le (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $ver <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2479	2707	
==>le (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $ver <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4116	4227	
==>"a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! "" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4116	4227	
==>"a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! "" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4116	4227	
==>"a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! "" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19413	19535	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @ter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19692	19814	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @ter <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3620	3716	
==>ass instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3620	3716	
==>ass instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5817	5913	
==>ass instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2363	2484	
==>an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2363	2484	
==>an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7546	7642	
==>x)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7546	7642	
==>x)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7546	7642	
==>x)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	401	512	
==>tion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	401	512	
==>tion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	401	512	
==>tion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undef <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15825	15925	
==>mation used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field l <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20058	20158	
==>mation used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5505	5626	
==>r ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5505	5626	
==>r ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5505	5626	
==>r ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22192	22285	
==>..", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22192	22285	
==>..", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E< <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2491	2600	
==>ned( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3419	3528	
==>ned( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2491	2600	
==>ned( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3419	3528	
==>ned( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	969	1070	
==>converted to Ruby, ...
# and then converted to perl (see above)
# all so that we can parse a scheme-li <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12334	12473	
==>\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8610	8749	
==>\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9445	9584	
==>\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast-> <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	508	599	
==>alised processing instructions may sub-class this module or
provide special behaviour when a <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	508	599	
==>alised processing instructions may sub-class this module or
provide special behaviour when a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2502	2700	
==>ned $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2502	2700	
==>ned $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1156	1274	
==>eave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1156	1274	
==>eave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1156	1274	
==>eave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	142	255	
==>s;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	137	244	
==>s;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	131	238	
==>s;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	137	244	
==>s;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	131	238	
==>s;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1672	1776	
==>= $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1672	1776	
==>= $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1672	1776	
==>= $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14933	15022	
==>xport it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entit <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14933	15022	
==>xport it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entit <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2221	2322	
==>rse = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns B <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2448	2549	
==>d);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2221	2322	
==>rse = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2448	2549	
==>d);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2448	2549	
==>d);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4937	5150	
==>fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4937	5150	
==>fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4937	5150	
==>fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	805	971	
==>e;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	805	971	
==>e;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5767	5933	
==>to term_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "P <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1654	1757	
==>r( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1858	1961	
==>r( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1342	1447	
==>y_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Prototype]]>;
    return JSX:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	246	341	
==>ngs;
no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2062	2154	
==>'Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (roo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2062	2154	
==>'Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (roo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2062	2154	
==>'Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (roo <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	18408	18511	
==>ensures that id is polymorphic when used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id,
	in <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17982	18083	
==>t;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21240	21341	
==>t;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41247	41348	
==>t;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44147	44248	
==>t;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol-> <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14255	14394	
==>.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %tran <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4324	4447	
==>.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tran <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4324	4447	
==>.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tran <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4324	4447	
==>.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tran <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5800	5903	
==>ect(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24578	24673	
==>=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succes <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23342	23437	
==>=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succes <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24578	24673	
==>=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succes <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23342	23437	
==>=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succes <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4744	4835	
==>JSX::InternalValue::List is Array;

# 8.9 The Completion Type
class JSX::InternalValue::Comp <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	853	959	
==>ler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.valu <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	853	959	
==>ler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14387	14476	
==>e('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14387	14476	
==>e('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14387	14476	
==>e('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3471	3566	
==>ocedural and functional 
interfaces are layers on top of the object-oriented backend.

To use th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3471	3566	
==>ocedural and functional 
interfaces are layers on top of the object-oriented backend.

To use th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2538	2632	
==>or(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2538	2632	
==>or(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2538	2632	
==>or(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6806	6933	
==>my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6999	7126	
==>my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30438	30534	
==>n exclusive alternative for the rest
of the set. There is a separate template module for each dis <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30438	30534	
==>n exclusive alternative for the rest
of the set. There is a separate template module for each dis <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7163	7259	
==>an do use any of the
following methods:

=over 4

=item $parser = Regexp::Parser->new($regex)

Yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1634	1748	
==>"-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = q <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1634	1748	
==>"-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = q <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1634	1748	
==>"-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = q <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2222	2317	
==>d vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILC <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2222	2317	
==>d vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	222	331	
==>ursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	222	331	
==>ursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	222	331	
==>ursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	661	756	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	661	756	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1615	1804	
==>ym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n') <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31924	32019	
==>takes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the in <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33785	33880	
==>takes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36474	36569	
==>takes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38335	38430	
==>takes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
in <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	638	756	
==>N__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	638	756	
==>N__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2328	2435	
==>lls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optio <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2328	2435	
==>lls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optio <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2675	2782	
==>lls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21802	21989	
==>lar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21802	21989	
==>lar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21802	21989	
==>lar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13981	14074	
==>MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=b <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13981	14074	
==>MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=b <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16395	16492	
==>Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. I <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16395	16492	
==>Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14120	14207	
==>:make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14120	14207	
==>:make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14120	14207	
==>:make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_att <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2538	2663	
==>!~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Coo <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2538	2663	
==>!~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Coo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4760	4877	
==>->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4760	4877	
==>->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4760	4877	
==>->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->t <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7120	7281	
==>apture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$new <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7120	7281	
==>apture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$new <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1597	1695	
==>ion (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1597	1695	
==>ion (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1597	1695	
==>ion (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13627	13731	
==>you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13627	13731	
==>you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4303	4396	
==>de $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4303	4396	
==>de $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4303	4396	
==>de $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», * <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3699	3900	
==>interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph') <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3742	3943	
==>interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph') <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3699	3900	
==>interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph') <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3742	3943	
==>interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph') <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	12	118	
==>operator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe Cont <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1613	1749	
==>an );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1613	1749	
==>an );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2300	2398	
==>);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2300	2398	
==>);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2300	2398	
==>);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10731	10857	
==>mes6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10731	10857	
==>mes6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10731	10857	
==>mes6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2230	2328	
==>() { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    doe <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2230	2328	
==>() { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12895	12990	
==>params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12895	12990	
==>params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12895	12990	
==>params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19020	19113	
==>ic and mathematics and philosophy ("a predicate ranging
over more than one argument"), which i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22670	22763	
==>ic
and mathematics and philosophy ("a predicate ranging over more than one
argument"), which i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22539	22660	
==>class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23041	23162	
==>class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1244	1342	
==>e?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1244	1342	
==>e?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1244	1342	
==>e?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9590	9694	
==>if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9590	9694	
==>if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9590	9694	
==>if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5472	5570	
==>f($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5472	5570	
==>f($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5472	5570	
==>f($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9096	9202	
==>te( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1230	1328	
==>te( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1230	1328	
==>te( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1493	1591	
==>$proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Re <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	998	1087	
==>luePrimitive;
class JSX::Value::Object is JSX::Value;
class JSX::Value::Array is JSX::Valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	550	683	
==>ion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	521	654	
==>ion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	550	683	
==>ion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	550	683	
==>ion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	241	339	
==>DS

=head2 $repo = JIB::Repository->new(...);

Required arguments:

=over 4

=item root

The root d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2288	2429	
==>0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2276	2417	
==>0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1116	1234	
==>$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1116	1234	
==>$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1116	1234	
==>$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8095	8252	
==>ub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                retu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8095	8252	
==>ub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35398	35512	
==>?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };

He <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8698	8798	
==>sswd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8698	8798	
==>sswd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1556	1696	
==>nt.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal writ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1556	1696	
==>nt.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal writ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1556	1696	
==>nt.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal writ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3644	3738	
==>s done by setting C<$match.multidex> to the index where
captures should put themselves.  In the <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3644	3738	
==>s done by setting C<$match.multidex> to the index where
captures should put themselves.  In the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2474	2571	
==>'is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2474	2571	
==>'is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2474	2571	
==>'is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14905	15001	
==>ed an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan cur <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14963	15059	
==>ed an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan cur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1911	2017	
==>: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1911	2017	
==>: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4881	4977	
==>contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4881	4977	
==>contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7078	7174	
==>contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1748	1878	
==>calar};
        
    return _mangle_var( $n->{array} )
        if exists $n->{array};
        
    return _mangle_var( $n->{ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20166	20288	
==>&= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16587	16709	
==>&= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10262	10368	
==>rs!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10262	10368	
==>rs!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21728	21843	
==>@{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # sus <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18149	18264	
==>@{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # sus <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1207	1312	
==>iles
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path:: <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	117	209	
==>:Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::D <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	117	209	
==>:Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::D <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1088	1201	
==>rence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subme <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1068	1181	
==>rence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subme <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1088	1201	
==>rence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subme <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1068	1181	
==>rence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subme <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1602	1710	
==>([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('call' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5121	5292	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5121	5292	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5121	5292	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16424	16520	
==>pyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you can <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16482	16578	
==>pyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you can <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	101	244	
==>n;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	101	244	
==>n;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1939	2042	
==>b-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not suppo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1939	2042	
==>b-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not suppo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1939	2042	
==>b-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not suppo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7005	7183	
==>body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(def <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7005	7183	
==>body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(def <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7005	7183	
==>body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(def <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14809	14924	
==>essage(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14809	14924	
==>essage(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1782	1901	
==>f,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1782	1901	
==>f,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1782	1901	
==>f,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1293	1390	
==>r for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUT <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1293	1390	
==>r for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9884	10007	
==>istify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9884	10007	
==>istify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9884	10007	
==>istify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7457	7565	
==>, :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7457	7565	
==>, :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17291	17453	
==>rn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17291	17453	
==>rn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17291	17453	
==>rn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Per <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	440	594	
==>s.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	440	594	
==>s.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3975	4090	
==>ername hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3975	4090	
==>ername hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6222	6311	
==>y a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6222	6311	
==>y a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6222	6311	
==>y a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	646	821	
==>$value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	646	821	
==>$value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8546	8645	
==>.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8546	8645	
==>.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8546	8645	
==>.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  } <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5454	5581	
==>{
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimensio <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5454	5581	
==>{
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimensio <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23372	23504	
==>N_ZERO_LEN        1
 #define REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #def <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7778	7889	
==>nknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"| <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2075	2180	
==>nknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2075	2180	
==>nknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2075	2180	
==>nknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"| <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4778	4897	
==>eady set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4637	4756	
==>eady set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3753	3847	
==>>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3753	3847	
==>>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3753	3847	
==>>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12019	12116	
==>c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12019	12116	
==>c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12019	12116	
==>c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39191	39274	
==>osetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Ro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39191	39274	
==>osetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3004	3112	
==>ft @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3004	3112	
==>ft @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3004	3112	
==>ft @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.is <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1806	1907	
==>y is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1806	1907	
==>y is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4234	4336	
==>ub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3361	3463	
==>ub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4234	4336	
==>ub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3361	3463	
==>ub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi s <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	27132	27227	
==>), "∀α. ∀β. (α × β) → β", ":t snd");
is(t($id_pair), "(int × str)", ":t id(pair(id( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	778	885	
==>eturn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	778	885	
==>eturn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7063	7163	
==>e{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7063	7163	
==>e{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7063	7163	
==>e{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16141	16272	
==>bmethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16141	16272	
==>bmethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	61	156	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	61	156	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	61	156	
==>rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5037	5148	
==>LASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5037	5148	
==>LASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5037	5148	
==>LASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $ <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	323	431	
==>lq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	323	431	
==>lq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14021	14122	
==>.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3495	3596	
==>>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurp <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14079	14180	
==>.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3495	3596	
==>>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3495	3596	
==>>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurp <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8473	8575	
==>archy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hie <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8473	8575	
==>archy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	474	573	
==>2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of element <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	474	573	
==>2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of element <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	474	573	
==>2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of element <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4641	4780	
==>M2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4641	4780	
==>M2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4641	4780	
==>M2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3845	3948	
==>y $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3845	3948	
==>y $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10465	10565	
==>he command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1381	1481	
==>calar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10465	10565	
==>he command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1381	1481	
==>calar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1381	1481	
==>calar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7110	7231	
==>sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7110	7231	
==>sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7110	7231	
==>sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10078	10177	
==>-1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar v <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10078	10177	
==>-1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7933	8073	
==>it' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7933	8073	
==>it' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7933	8073	
==>it' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14164	14263	
==>elation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17641	17740	
==>elation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9988	10145	
==>. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2049	2196	
==>. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2049	2196	
==>. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_n <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6443	6584	
==>, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XX <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6443	6584	
==>, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XX <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5644	5748	
==>::__object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Reg <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4252	4354	
==>tamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Cou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5841	5942	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5841	5942	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5841	5942	
==>"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3609	3716	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3609	3716	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3609	3716	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27929	28022	
==>returns the Message Variable value (a string) associated with
the variable name specified in t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27929	28022	
==>returns the Message Variable value (a string) associated with
the variable name specified in t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1188	1293	
==>w/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1309	1413	
==>(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1309	1413	
==>(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1309	1413	
==>(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20895	20988	
==>p socket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell telldir trunc <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17018	17112	
==>tring representation of the span.

- `compare( $span )`

Compares the spans numerically. Return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17018	17112	
==>tring representation of the span.

- `compare( $span )`

Compares the spans numerically. Return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3626	3718	
==>d the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3626	3718	
==>d the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3626	3718	
==>d the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3106	3233	
==>lass->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4806	4928	
==>lass->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3834	3952	
==>lass->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17046	17160	
==>l items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17046	17160	
==>l items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $s <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1082	1206	
==>the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have fo <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1082	1206	
==>the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3651	3752	
==>f.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3651	3752	
==>f.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3651	3752	
==>f.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) i <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19897	20000	
==>ementList :words {  # see 12.1
      <Statement>
    | <StatementList> <Statement>
}
rule VariableStatem <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	372	472	
==>NFO unless @ARGV;
Pipe output of "svn log" or save "svn log" output in a file and
specify this file a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12578	12666	
==>[];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12578	12666	
==>[];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12578	12666	
==>[];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13725	13858	
==>nge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13725	13858	
==>nge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13725	13858	
==>nge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5971	6104	
==>nge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4471	4604	
==>nge;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7077	7217	
==>};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7077	7217	
==>};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7077	7217	
==>};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5839	5961	
==>are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms">.map:{ $_[0] };
        dbg "# S <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	532	626	
==>ULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Co <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18141	18241	
==>tried it with element 1 being
#1 and 0 being empty, this is less awkward.

=head1 EXAMPLES

See F<exa <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7964	8060	
==>==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7094	7190	
==>==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7964	8060	
==>==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7094	7190	
==>==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	396	509	
==>ass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	396	509	
==>ass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	396	509	
==>ass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  con <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19046	19141	
==>losophy ("a predicate ranging
over more than one argument"), which is also the basis of the rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22696	22791	
==>losophy ("a predicate ranging over more than one
argument"), which is also the basis of the rela <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	740	901	
==>tch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3811	3972	
==>tch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	740	901	
==>tch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3811	3972	
==>tch = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $ma <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2134	2241	
==>, is efficient,
#     and has captures for easy use of the resulting matches.
#   * Perhaps define a macro g <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3724	4059	
==>"<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3724	4059	
==>"<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	879	993	
==>rnary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '? <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	859	964	
==>/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, may <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	859	964	
==>/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, may <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22098	22335	
==>,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22377	22614	
==>,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $m <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7816	7952	
==>@*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only di <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7816	7952	
==>@*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only di <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12544	12636	
==>ar name=skipped> skipped"><tmpl_var name=skipped></span>,</td>
	      <td class="num tests_un <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5570	5679	
==>n.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5570	5679	
==>n.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4178	4270	
==>ults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4178	4270	
==>ults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6375	6467	
==>ults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	601	783	
==>ion.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcepti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	601	783	
==>ion.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcepti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	601	783	
==>ion.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcepti <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4515	4641	
==>y $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5000	5126	
==>y $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17322	17524	
==>"\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23288	23490	
==>"\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17601	17803	
==>"\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23567	23769	
==>"\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	381	475	
==>GE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1583	1691	
==>"compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1583	1691	
==>"compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2158	2252	
==>L", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2158	2252	
==>L", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2158	2252	
==>L", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	635	734	
==>urn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	635	734	
==>urn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	635	734	
==>urn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	223	312	
==>New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	223	312	
==>New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10354	10542	
==>ub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10354	10542	
==>ub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10354	10542	
==>ub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celem <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10963	11064	
==>) }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<d <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10963	11064	
==>) }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<d <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3153	3261	
==>le date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3153	3261	
==>le date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	487	579	
==>a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	487	579	
==>a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	487	579	
==>a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3912	4040	
==>rn unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3912	4040	
==>rn unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4442	4564	
==>rn unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4442	4564	
==>rn unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	491	612	
==>ur, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23802	23897	
==>he main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28354	28449	
==>he main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1328	1416	
==>s .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1328	1416	
==>s .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1328	1416	
==>s .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3269	3403	
==>{
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3269	3403	
==>{
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3269	3403	
==>{
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16986	17080	
==>he rest of the
application in their other language(s) of choice.  Assuming the main
application <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16986	17080	
==>he rest of the
application in their other language(s) of choice.  Assuming the main
application <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	307	446	
==>or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	307	446	
==>or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2023	2144	
==>my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2023	2144	
==>my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2023	2144	
==>my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5278	5374	
==>new;
is($iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2792	2884	
==>);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6244	6336	
==>);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2792	2884	
==>);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2792	2884	
==>);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2306	2406	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2306	2406	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2306	2406	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	130	228	
==>rnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	130	228	
==>rnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2935	3041	
==>st);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2935	3041	
==>st);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2935	3041	
==>st);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	723	837	
==>_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	705	816	
==>_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	705	816	
==>_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7436	7539	
==>\d') if $re eq '\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compilation bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	71	160	
==>arp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::TestPlan' => class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24132	24277	
==>) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24132	24277	
==>) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24132	24277	
==>) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       d <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3842	3949	
==>odule: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3900	4007	
==>odule: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1325	1466	
==>ode - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1336	1477	
==>ode - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14415	14532	
==>hift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14415	14532	
==>hift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14415	14532	
==>hift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2573	2720	
==>& 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2573	2720	
==>& 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2573	2720	
==>& 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $clas <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5987	6078	
==>maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5987	6078	
==>maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23303	23403	
==>ur text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23303	23403	
==>ur text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10205	10302	
==>PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10205	10302	
==>PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10205	10302	
==>PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6920	7089	
==>et = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6920	7089	
==>et = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9843	9974	
==>s->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9843	9974	
==>s->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9843	9974	
==>s->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shif <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	449	548	
==>It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	994	1093	
==>It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don' <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	449	548	
==>It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	994	1093	
==>It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	994	1093	
==>It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() don' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2544	2640	
==>ie "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2544	2640	
==>ie "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2544	2640	
==>ie "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = unde <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26207	26302	
==>ignored).  Each variable name can be any
defined and non-empty string, and each variable value c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26207	26302	
==>ignored).  Each variable name can be any
defined and non-empty string, and each variable value c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8944	9102	
==>], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14673	14831	
==>], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8944	9102	
==>], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14667	14825	
==>], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10677	10808	
==>e "fancy open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10704	10824	
==>tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Ob <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10704	10824	
==>tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Ob <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10704	10824	
==>tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Ob <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11152	11247	
==>nds) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11210	11305	
==>nds) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str : <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1794	2200	
==>Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interf <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1794	2200	
==>Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	215	339	
==>INTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	215	339	
==>INTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	215	339	
==>INTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11443	11582	
==>ving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11443	11582	
==>ving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11443	11582	
==>ving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %o <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	613	737	
==>truct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1097	1221	
==>truct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1401	1502	
==>} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1401	1502	
==>} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1401	1502	
==>} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1242	1336	
==>decipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1242	1336	
==>decipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data an <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13689	13883	
==>y {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                sho <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13689	13883	
==>y {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                sho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5400	5500	
==>p::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take ad <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5400	5500	
==>p::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take ad <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5990	6090	
==>p::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take ad <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14685	14776	
==>e always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4l <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14685	14776	
==>e always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1722	1844	
==>!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1722	1844	
==>!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1722	1844	
==>!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	711	822	
==>e?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	711	822	
==>e?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2375	2507	
==>$path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $b <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2375	2507	
==>$path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6401	6509	
==>::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6401	6509	
==>::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6401	6509	
==>::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_ins <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1026	1188	
==>y $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1026	1188	
==>y $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5381	5492	
==>gs.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5381	5492	
==>gs.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5381	5492	
==>gs.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	196	308	
==>ovides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The of <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	196	308	
==>ovides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	787	886	
==>l names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# A <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	787	886	
==>l names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# A <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	787	886	
==>l names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5062	5179	
==>->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5062	5179	
==>->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5062	5179	
==>->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2182	2278	
==>ass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2182	2278	
==>ass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6760	6879	
==>et = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6760	6879	
==>et = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6760	6879	
==>et = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3687	3804	
==>sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3687	3804	
==>sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      f <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	138	273	
==>my $config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	836	953	
==>'.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	836	953	
==>'.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1028	1137	
==>::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1028	1137	
==>::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2117	2220	
==>".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2117	2220	
==>".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2117	2220	
==>".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8593	8690	
==>ack

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8593	8690	
==>ack

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38118	38279	
==>store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38118	38279	
==>store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38118	38279	
==>store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15188	15289	
==>queue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Que <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15188	15289	
==>queue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Que <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6850	6951	
==>$PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6850	6951	
==>$PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6850	6951	
==>$PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->bo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2918	3018	
==>Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	182	282	
==>Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	98	210	
==>/Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$B <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	98	210	
==>/Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$B <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	98	210	
==>/Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$B <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2534	2632	
==>f the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2534	2632	
==>f the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3271	3386	
==>S::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3271	3386	
==>S::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3271	3386	
==>S::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15903	16000	
==>that,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15903	16000	
==>that,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21936	22032	
==>e no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectiv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26488	26584	
==>e no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectiv <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4415	4510	
==>k

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder insta <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4415	4510	
==>k

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5939	6034	
==>k

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder insta <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9929	10031	
==>rs_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9929	10031	
==>rs_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3978	4078	
==>ment_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3978	4078	
==>ment_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3978	4078	
==>ment_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
M <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6296	6396	
==><PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6296	6396	
==><PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2235	2331	
==>}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2235	2331	
==>}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2235	2331	
==>}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1953	2054	
==>ment_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1953	2054	
==>ment_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1953	2054	
==>ment_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1990	2085	
==>}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1990	2085	
==>}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1863	1965	
==>turns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2491	2593	
==>'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1863	1965	
==>turns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2491	2593	
==>'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2491	2593	
==>'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17819	17999	
==>> 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=b <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17819	17999	
==>> 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5437	5531	
==>$jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5437	5531	
==>$jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5437	5531	
==>$jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13567	13700	
==>})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__D <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13567	13700	
==>})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1019	1122	
==>DO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1019	1122	
==>DO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1019	1122	
==>DO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5085	5195	
==>{...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5085	5195	
==>{...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5085	5195	
==>{...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# M <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6786	6892	
==>ls>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6786	6892	
==>ls>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14299	14517	
==>1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14299	14517	
==>1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	12	113	
==>Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	12	113	
==>Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	12	113	
==>Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1944	2037	
==>de levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1944	2037	
==>de levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1944	2037	
==>de levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12463	12614	
==>array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6583	6695	
==>a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6583	6695	
==>a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6583	6695	
==>a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primi <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13090	13193	
==>t->new($t_of_param);
	} else {
		return $prev_generic;
	}
}

# the type of the function the arrow operat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24194	24324	
==>++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24194	24324	
==>++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24194	24324	
==>++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6656	6760	
==>G' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6656	6760	
==>G' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5453	5550	
==>t $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $tw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4583	4680	
==>t $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5453	5550	
==>t $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4583	4680	
==>t $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $tw <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10561	10652	
==>rch.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href=" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14153	14318	
==>e this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14153	14318	
==>e this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14153	14318	
==>e this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else { <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1651	1764	
==>$f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRI <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1651	1764	
==>$f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRI <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1832	1941	
==>or now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1832	1941	
==>or now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10563	10662	
==>akes abstract 
    # methods which must be implemented
    # --------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10563	10662	
==>akes abstract 
    # methods which must be implemented
    # --------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10563	10662	
==>akes abstract 
    # methods which must be implemented
    # --------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10063	10160	
==>ist - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.f <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10063	10160	
==>ist - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.f <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5243	5341	
==>$tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s-%s--%d <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11812	11909	
==>tems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cle <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8959	9056	
==>tems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cle <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11812	11909	
==>tems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cle <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8959	9056	
==>tems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cle <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4272	4386	
==>Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4272	4386	
==>Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	353	459	
==>t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	353	459	
==>t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	353	459	
==>t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   . <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10664	10791	
==>y ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10664	10791	
==>y ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	74	170	
==>::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	74	170	
==>::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	74	170	
==>::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19359	19458	
==>ach tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23911	24010	
==>ach tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22427	22526	
==>ach tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1284	1382	
==>a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attributes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1284	1382	
==>a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attributes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4379	4554	
==>],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4379	4554	
==>],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4379	4554	
==>],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20598	20743	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20877	21022	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3666	3912	
==>class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packag <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3666	3912	
==>class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packag <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12912	13027	
==>te_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep m/^- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7721	7832	
==>ssage key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7721	7832	
==>ssage key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33496	33621	
==>};
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33496	33621	
==>};
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33496	33621	
==>};
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1774	1886	
==>::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1774	1886	
==>::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	852	962	
==>h; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	852	962	
==>h; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	852	962	
==>h; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4632	4729	
==>ype',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4632	4729	
==>ype',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PI <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7110	7268	
==>ex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newn <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7110	7268	
==>ex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4394	4482	
==>instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4394	4482	
==>instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4394	4482	
==>instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(s <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9197	9324	
==>13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.c <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9197	9324	
==>13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12020	12120	
==>replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12020	12120	
==>replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $hea <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	401	495	
==>mar Perl6::Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustive  { <':exhaustive' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3725	3903	
==>dy->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3725	3903	
==>dy->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3725	3903	
==>dy->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9057	9189	
==>d";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9057	9189	
==>d";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19705	19962	
==>ub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40165	40422	
==>ub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3749	3952	
==>name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3749	3952	
==>name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3749	3952	
==>name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7176	7268	
==>>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SEL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	88	180	
==>tail = slurp($filename);

print <<PRELUDE;
package Grammar::Perl6;
use base 'Pugs::Grammar::B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7176	7268	
==>>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7176	7268	
==>>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SEL <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16770	16858	
==>> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpression <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1114	1231	
==>et_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1114	1231	
==>et_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1114	1231	
==>et_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7311	7406	
==>ors:



- higher order operators: alternation, concatenation.

- "plain" match operators: like ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7063	7155	
==>ors:

- higher order operators: alternation, concatenation.
- "plain" match operators: like ' <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13818	13914	
==>%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests --> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13981	14075	
==>ugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Bl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10208	10302	
==>ugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Bl <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13981	14075	
==>ugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Bl <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10208	10302	
==>ugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Bl <==
5	/Users/nnunley/pugs/util/package-osx.pl	6873	6970	
==>view::Variable.3pm
        /usr/local/man/man3/Perl6::Perl5::Differences.3
        /usr/local/man/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1082	1178	
==>ch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1082	1178	
==>ch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1082	1178	
==>ch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4426	4510	
==>PING Roles
## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6617	6739	
==>There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6061	6183	
==>f, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5569	5691	
==>f, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6617	6739	
==>There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6617	6739	
==>There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16416	16536	
==>Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12837	12957	
==>Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4648	4744	
==>().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alrea <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4648	4744	
==>().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alrea <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4648	4744	
==>().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alrea <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11452	11554	
==>ns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are do <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11452	11554	
==>ns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10387	10516	
==>]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10387	10516	
==>]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10387	10516	
==>]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2359	2479	
==>as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <va <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2359	2479	
==>as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9148	9380	
==>iple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys % <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5508	5740	
==>iple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys % <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6357	6589	
==>iple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys % <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41172	41265	
==>s>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37198	37291	
==>s>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2024	2160	
==>a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2024	2160	
==>a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	442	548	
==>ars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	442	548	
==>ars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	442	548	
==>ars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	738	1062	
==>{
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	738	1062	
==>{
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1687	1786	
==>ormal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.off <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1687	1786	
==>ormal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.off <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1687	1786	
==>ormal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.off <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8000	8108	
==>', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still true)

  matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7731	7836	
==>', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still true)
  matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1601	1694	
==>rName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1601	1694	
==>rName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1601	1694	
==>rName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4845	4980	
==>%%\n" .
        "statement:  exp { return(\$_[0]->{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25334	25429	
==><iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24098	24193	
==><iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25334	25429	
==><iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24098	24193	
==><iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12436	12542	
==>, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12436	12542	
==>, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12436	12542	
==>, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$s <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	597	689	
==>FA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	597	689	
==>FA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3	102	
==>od

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	285	384	
==>he Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object ( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3	102	
==>od

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	285	384	
==>he Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	285	384	
==>he Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10929	11074	
==>'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10929	11074	
==>'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10929	11074	
==>'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15539	15641	
==>riginated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the dat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15539	15641	
==>riginated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the dat <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	753	879	
==>rt;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	753	879	
==>rt;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        r <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6732	6833	
==>pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=ite <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6732	6833	
==>pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=ite <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3206	3292	
==>ode_is_defined($node);

	return $self->define_literal(@_) unless $self->can_reduce($nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1238	1352	
==>6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1238	1352	
==>6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1238	1352	
==>6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13009	13106	
==>urns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structure <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13009	13106	
==>urns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3884	4001	
==>s}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { und <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3884	4001	
==>s}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { und <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3884	4001	
==>s}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { und <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	847	941	
==>ally, they will be constructed as a series of events fired in by
something that C<.does(Perldoc <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	847	941	
==>ally, they will be constructed as a series of events fired in by
something that C<.does(Perldoc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3324	3474	
==>urn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3324	3474	
==>urn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3324	3474	
==>urn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Juncti <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3659	3758	
==>f.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3659	3758	
==>f.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1758	1894	
==>ase;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        e <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1758	1894	
==>ase;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2708	2811	
==>nt(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2708	2811	
==>nt(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2708	2811	
==>nt(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8254	8357	
==>:Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8254	8357	
==>:Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8254	8357	
==>:Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6384	6476	
==>rom_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6384	6476	
==>rom_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	566	693	
==>nd',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect', <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	566	693	
==>nd',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6395	6509	
==>onstant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6395	6509	
==>onstant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6395	6509	
==>onstant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8719	8847	
==>Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testpla <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	887	1003	
==>Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testpla <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	887	1003	
==>Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testpla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3229	3332	
==>in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3229	3332	
==>in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22816	22941	
==>ub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23318	23443	
==>ub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	323	423	
==>ing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	323	423	
==>ing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	323	423	
==>ing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't ope <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11952	12080	
==>ver => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for * <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11952	12080	
==>ver => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for * <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1324	1427	
==>ss ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagno <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1324	1427	
==>ss ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagno <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1404	1507	
==>ss ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagno <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12241	12495	
==>ine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12241	12495	
==>ine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	147	262	
==>ass = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	147	262	
==>ass = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	147	262	
==>ass = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Clas <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3206	3319	
==>.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method dif <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3206	3319	
==>.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method dif <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	818	952	
==>thod parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	818	952	
==>thod parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1352	1446	
==>BNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1352	1446	
==>BNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1352	1446	
==>BNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	666	775	
==>le;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3737	3846	
==>le;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	666	775	
==>le;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3737	3846	
==>le;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4434	4529	
==>ceError; }
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($V <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8549	8645	
==>is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_m <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8549	8645	
==>is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	572	666	
==>elf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	572	666	
==>elf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	572	666	
==>elf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3819	3980	
==>...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # .. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3819	3980	
==>...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # .. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3819	3980	
==>...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # .. <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	305	396	
==>); Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	305	396	
==>); Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7752	7869	
==>elf.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7752	7869	
==>elf.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11863	11951	
==>rom_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11863	11951	
==>rom_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11863	11951	
==>rom_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6055	6154	
==>s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Ei <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6055	6154	
==>s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Ei <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6055	6154	
==>s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Ei <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2791	2889	
==>an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub rem <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2791	2889	
==>an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub rem <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14141	14277	
==>$pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4218	4342	
==>$pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4218	4342	
==>$pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4218	4342	
==>$pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22015	22131	
==>to reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[cname] = self
    self["isa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17332	17440	
==>perl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expected : $expec <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11976	12075	
==>not case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scala <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12408	12507	
==>not case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scala <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11976	12075	
==>not case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scala <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12408	12507	
==>not case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scala <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4752	4867	
==><=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4752	4867	
==><=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4752	4867	
==><=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37410	37505	
==>em C<load_template_module( $module_name! )>

This method takes the name of a Perl package in its <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37410	37505	
==>em C<load_template_module( $module_name! )>

This method takes the name of a Perl package in its <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1982	2077	
==>.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1982	2077	
==>.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1982	2077	
==>.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	117	210	
==>::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::D <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	117	210	
==>::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::D <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	51	303	
==>y packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	51	303	
==>y packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	51	303	
==>y packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	51	303	
==>y packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	620	717	
==>ILE = ".smoker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOptions \our %Config, qw(--output <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	161	280	
==>e_vorbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_d <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3115	3226	
==>$name}         = \%totals;
    while( defined(my $line = $it->next) ) {
        $self->_analyze_line($line, \%to <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	77	178	
==>::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	72	173	
==>::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	72	173	
==>::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base} <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3759	3856	
==>n C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latt <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3759	3856	
==>n C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1936	2029	
==>nt Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1936	2029	
==>nt Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1936	2029	
==>nt Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4672	4782	
==>rt.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4672	4782	
==>rt.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4672	4782	
==>rt.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array. <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3972	4081	
==>rt.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array. <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1244	1344	
==>f $RE{balanced}{-parens=>'{}'};
sub conv_foreach {
    $_ = shift;
    my $foreach_kw = 'for(?:each)? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1758	1880	
==>e || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1758	1880	
==>e || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1758	1880	
==>e || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad inst <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1168	1277	
==>OGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_n <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1168	1277	
==>OGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	710	820	
==>ion ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expect <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	710	820	
==>ion ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3563	3667	
==>what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3563	3667	
==>what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3563	3667	
==>what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13751	13851	
==>e";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13751	13851	
==>e";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13751	13851	
==>e";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	964	1061	
==>ort {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	964	1061	
==>ort {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4715	4813	
==>essarily the ciphertext version of the data given.
The data may be either a string or an array of b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4715	4813	
==>essarily the ciphertext version of the data given.
The data may be either a string or an array of b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11221	11316	
==>some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11221	11316	
==>some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11221	11316	
==>some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13698	13827	
==>y $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13698	13827	
==>y $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13698	13827	
==>y $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible b <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5944	6073	
==>y $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible b <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4444	4573	
==>y $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1813	1947	
==>do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5290	5424	
==>do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4220	4354	
==>do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13558	13664	
==>*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_)[2]&0 <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	557	653	
==>cessfully built!  Type '$Config{make} install' to install.\n";

# make an educated guess of wheth <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12695	12808	
==>) if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6170	6283	
==>) if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7559	7652	
==>ain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7559	7652	
==>ain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7559	7652	
==>ain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1702	1808	
==>];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1702	1808	
==>];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1702	1808	
==>];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]- <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12991	13087	
==>et the next value.
The unit specifier is also used internally when joining two spans, and when ge <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12991	13087	
==>et the next value.
The unit specifier is also used internally when joining two spans, and when ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29499	29614	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29499	29614	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29499	29614	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	478	586	
==>>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	478	586	
==>>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14797	14909	
==>hing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14797	14909	
==>hing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14797	14909	
==>hing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1406	1495	
==>:Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1406	1495	
==>:Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24979	25077	
==>d all commands immediately to the server, but creates a queue, which is then
slowly sent to the ser <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23743	23841	
==>d all commands immediately to the server, but creates a queue, which is then
slowly sent to the ser <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24979	25077	
==>d all commands immediately to the server, but creates a queue, which is then
slowly sent to the ser <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23743	23841	
==>d all commands immediately to the server, but creates a queue, which is then
slowly sent to the ser <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	258	353	
==>tion process involves:
# creating an *event*
# getting the *subscriptions* for it, and convertin <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8948	9059	
==>*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1555	1666	
==>f "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8948	9059	
==>*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1555	1666	
==>f "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1555	1666	
==>f "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2047	2170	
==>{
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_pa <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2047	2170	
==>{
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4972	5088	
==>recompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --ya <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4972	5088	
==>recompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --ya <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4972	5088	
==>recompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --ya <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17239	17336	
==>that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17239	17336	
==>that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2493	2587	
==>ntegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2493	2587	
==>ntegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2493	2587	
==>ntegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/u <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4080	4189	
==>/s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    return ($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	865	968	
==>optimization - pass the string index around, 

# XXX   instead of copying the whole string to $tail ever <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1230	1332	
==>optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail ever <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	829	931	
==>optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail ever <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1230	1332	
==>optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail ever <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2809	2913	
==>unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2809	2913	
==>unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2809	2913	
==>unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $para <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	445	539	
==>ter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- bet <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	445	539	
==>ter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- bet <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11235	11343	
==>tr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) ret <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11235	11343	
==>tr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	29	125	
==>str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	29	125	
==>str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	29	125	
==>str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	122	263	
==>events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3176	3317	
==>events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	122	263	
==>events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3176	3317	
==>events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	496	610	
==>label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exhaus <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6333	6441	
==>=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = Test::Harness::Iterator->new($fh);
    r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7903	8007	
==>bs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7033	7137	
==>bs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7903	8007	
==>bs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7033	7137	
==>bs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5930	6031	
==>ze $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2330	2431	
==>eters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5930	6031	
==>ze $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2330	2431	
==>eters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2330	2431	
==>eters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	307	429	
==>export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	307	429	
==>export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5983	6090	
==>E')->code();

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <bl <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1485	1588	
==>$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    i <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1485	1588	
==>$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22989	23183	
==>eop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23268	23462	
==>eop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] ) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5125	5270	
==>'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5125	5270	
==>'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36445	36542	
==>ay reference of any number of objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifthe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4445	4565	
==>->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4445	4565	
==>->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4984	5076	
==>print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB y <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4984	5076	
==>print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB y <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4984	5076	
==>print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1470	1565	
==>rom t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1470	1565	
==>rom t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1470	1565	
==>rom t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	593	685	
==>ame, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hopin <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	593	685	
==>ame, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hopin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3156	3266	
==>bj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3156	3266	
==>bj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3156	3266	
==>bj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		f <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2143	2240	
==>t the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...} <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2143	2240	
==>t the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8432	8545	
==>$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8432	8545	
==>$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8432	8545	
==>$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24513	24605	
==>Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24513	24605	
==>Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7474	7585	
==>nc)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $f <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7474	7585	
==>nc)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5778	5877	
==>uire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5778	5877	
==>uire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5778	5877	
==>uire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::J <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1180	1298	
==>ot a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1180	1298	
==>ot a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1180	1298	
==>ot a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2350	2460	
==>"Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_stri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2350	2460	
==>"Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	258	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	258	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	258	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2261	2360	
==>xists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2239	2338	
==>xists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7851	8034	
==>n;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11328	11511	
==>n;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10492	10675	
==>n;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3947	4046	
==>thod decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns St <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3947	4046	
==>thod decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns St <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2501	2613	
==>teral
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <bef <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2685	2797	
==>teral
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <bef <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14154	14241	
==>.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14154	14241	
==>.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14154	14241	
==>.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	672	800	
==>econd),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( Str $iso8601 ) returns Date::Grego <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4967	5085	
==>ink precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4967	5085	
==>ink precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4967	5085	
==>ink precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  - <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5445	5560	
==><'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14524	14691	
==>:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18001	18168	
==>:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17417	17584	
==>:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	234	338	
==>g_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local has <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	234	338	
==>g_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local has <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14012	14136	
==>tegory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very roug <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10185	10309	
==>tegory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very roug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11021	11145	
==>tegory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very roug <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11261	11378	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_di <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11261	11378	
==>e_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_di <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34897	35071	
==>spatcher')->do());
                })->do_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$return') == $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	26	128	
==>is is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	30	132	
==>is is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	26	128	
==>is is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	30	132	
==>is is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	826	941	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	826	941	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	826	941	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1234	1327	
==>meters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1234	1327	
==>meters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters> <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	762	886	
==>es -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2161	2264	
==>"infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2161	2264	
==>"infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2161	2264	
==>"infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4243	4335	
==>rms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6ws> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8357	8472	
==>r)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8357	8472	
==>r)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8357	8472	
==>r)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12315	12414	
==>Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the ele <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12315	12414	
==>Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the ele <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6615	6720	
==>'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6615	6720	
==>'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2145	2241	
==>*»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2145	2241	
==>*»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2145	2241	
==>*»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numbe <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1630	1732	
==>Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
} <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1630	1732	
==>Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1522	1610	
==>deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1522	1610	
==>deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1522	1610	
==>deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8742	8885	
==>4;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.c <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8742	8885	
==>4;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1614	1702	
==>deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1614	1702	
==>deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1614	1702	
==>deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gener <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20276	20376	
==>d worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24828	24928	
==>d worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23389	23489	
==>d worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4324	4414	
==>ME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSIO <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4324	4414	
==>ME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSIO <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4422	4544	
==>ode();

    \{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::statements> ]* ) <?p6ws>? 
    \}
        { return { bloc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4950	5062	
==>gil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4950	5062	
==>gil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4950	5062	
==>gil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $m <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	703	801	
==>.*$//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strptime($date, " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	880	977	
==>lti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	880	977	
==>lti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	880	977	
==>lti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13043	13139	
==>- `stringify()`

Return a string representation of the set.

For most recurrence sets, this is '- <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13043	13139	
==>- `stringify()`

Return a string representation of the set.

For most recurrence sets, this is '- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2534	2649	
==>()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2534	2649	
==>()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16973	17060	
==>lasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16973	17060	
==>lasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16973	17060	
==>lasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasse <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7358	7471	
==>$head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7358	7471	
==>$head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref no <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3520	3630	
==>= +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6997	7107	
==>= +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5954	6064	
==>= +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8651	8780	
==>ft;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8651	8780	
==>ft;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3729	3834	
==>s;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3729	3834	
==>s;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3729	3834	
==>s;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6091	6197	
==>ue');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10348	10454	
==>ue');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1786	1896	
==>s
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1786	1896	
==>s
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1786	1896	
==>s
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	215	316	
==>infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	215	316	
==>infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	155	259	
==>s;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	155	259	
==>s;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	155	259	
==>s;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1668	1808	
==>e_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DB <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1668	1808	
==>e_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12834	12970	
==>thod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12834	12970	
==>thod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12834	12970	
==>thod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5771	6040	
==>)
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7533	7802	
==>)
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15595	15700	
==>ispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15595	15700	
==>ispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15595	15700	
==>ispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3164	3297	
==>tart => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3164	3297	
==>tart => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3164	3297	
==>tart => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2553	2657	
==>$status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2553	2657	
==>$status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1483	1592	
==>es
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# ba <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1483	1592	
==>es
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1029	1116	
==>_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1029	1116	
==>_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1029	1116	
==>_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	762	906	
==>ode);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	762	906	
==>ode);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	762	906	
==>ode);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5417	5521	
==>map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($f <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5417	5521	
==>map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8986	9107	
==>!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8986	9107	
==>!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!cha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6589	6701	
==>0,@_) }; # 0 for -
sub unlike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $e <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12547	12645	
==>evious one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Re <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12547	12645	
==>evious one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	388	491	
==>pe:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	388	491	
==>pe:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	388	491	
==>pe:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1338	1439	
==>d to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1338	1439	
==>d to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23843	23962	
==>_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another itera <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2240	2338	
==>ber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29030	29128	
==>_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another itera <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2240	2338	
==>ber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2240	2338	
==>ber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7115	7237	
==>ing to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7115	7237	
==>ing to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7115	7237	
==>ing to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(v <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	553	665	
==>hthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circum <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	553	665	
==>hthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circum <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9457	9572	
==>se );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinit <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9457	9572	
==>se );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33624	33738	
==>array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33624	33738	
==>array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33624	33738	
==>array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	77	193	
==>ur $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	77	193	
==>ur $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	77	193	
==>ur $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # ex <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15723	15833	
==>lusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19200	19310	
==>lusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6252	6361	
==>\"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6252	6361	
==>\"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	203	303	
==>e)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	203	303	
==>e)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	203	303	
==>e)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $clas <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9674	9769	
==>rs will need to override these
method _head() returns Array { return }
method _tail() returns Ar <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9674	9769	
==>rs will need to override these
method _head() returns Array { return }
method _tail() returns Ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19618	19711	
==>e->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19618	19711	
==>e->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19618	19711	
==>e->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11275	11398	
==>y {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11275	11398	
==>y {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11275	11398	
==>y {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	207	322	
==>Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	207	322	
==>Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	453	584	
==>urn unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	434	561	
==>urn unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0], <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3664	3767	
==>r::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3664	3767	
==>r::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5861	5964	
==>r::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	305	418	
==>KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash ref <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	796	909	
==>KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash ref <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	305	418	
==>KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash ref <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	796	909	
==>KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash ref <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1168	1268	
==>if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23728	23833	
==>my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23728	23833	
==>my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23728	23833	
==>my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3059	3146	
==>nt_next =>     $self._get_intersection( $self.complement_next, $self.complement_previous <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3059	3146	
==>nt_next =>     $self._get_intersection( $self.complement_next, $self.complement_previous <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4260	4401	
==>$name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4260	4401	
==>$name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4260	4401	
==>$name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $n <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1110	1208	
==>sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpn <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1110	1208	
==>sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15668	15782	
==>e "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15668	15782	
==>e "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6686	6793	
==>ion(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6686	6793	
==>ion(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6686	6793	
==>ion(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18479	18580	
==>le $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18675	18776	
==>le $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18889	18990	
==>le $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19091	19192	
==>le $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19426	19527	
==>le $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2869	3008	
==>odes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2774	2910	
==>odes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	3	112	
==>b plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	3	112	
==>b plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	3	112	
==>b plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6776	6880	
==>pand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6776	6880	
==>pand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6776	6880	
==>pand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7010	7107	
==>span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7010	7107	
==>span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4980	5099	
==>hild.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits List.

=item <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25316	25410	
==>Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redis <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24080	24174	
==>Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redis <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25316	25410	
==>Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redis <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24080	24174	
==>Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redis <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4958	5057	
==>before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4958	5057	
==>before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6482	6581	
==>before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8316	8414	
==>e other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8316	8414	
==>e other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7215	7318	
==>ct 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7227	7330	
==>ct 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	976	1073	
==>obal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	976	1073	
==>obal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	976	1073	
==>obal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16172	16320	
==>return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16172	16320	
==>return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16172	16320	
==>return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7099	7208	
==>);
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7099	7208	
==>);
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6977	7088	
==>sible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6977	7088	
==>sible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6977	7088	
==>sible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2997	3097	
==>andom number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2997	3097	
==>andom number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27426	27520	
==>is constructed.  If you want to
conceptually change an existing Message object, you must create <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12917	13011	
==>I SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27426	27520	
==>is constructed.  If you want to
conceptually change an existing Message object, you must create <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12917	13011	
==>I SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12917	13011	
==>I SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3266	3382	
==>ksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3266	3382	
==>ksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	421	520	
==>->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	421	520	
==>->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	421	520	
==>->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6139	6297	
==>t = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when I <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6139	6297	
==>t = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1821	1969	
==>patcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1821	1969	
==>patcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1821	1969	
==>patcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9926	10066	
==>$elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $dif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9926	10066	
==>$elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $dif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9926	10066	
==>$elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $dif <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1698	1825	
==>'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1698	1825	
==>'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $c <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	252	366	
==>(
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	252	366	
==>(
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1103	1203	
==>assname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1103	1203	
==>assname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1103	1203	
==>assname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2421	2571	
==>val { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2421	2571	
==>val { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2421	2571	
==>val { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $cl <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7194	7286	
==>s.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-req <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7194	7286	
==>s.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-req <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	917	1090	
==>,
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	917	1090	
==>,
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4783	4878	
==>t unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4783	4878	
==>t unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4783	4878	
==>t unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	454	548	
==>ation_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	454	548	
==>ation_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6009	6192	
==>dle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6009	6192	
==>dle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6009	6192	
==>dle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11182	11321	
==>.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11182	11321	
==>.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3217	3354	
==>h'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3217	3354	
==>h'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3217	3354	
==>h'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	610	719	
==>and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Examp <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10898	11001	
==>ting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{P <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14205	14323	
==>t_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1685	1803	
==>t_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10052	10151	
==>less $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub node::non_capt <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14795	14890	
==>t elegant system, which makes
it easy to create and use relational databases in a very reliable, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14795	14890	
==>t elegant system, which makes
it easy to create and use relational databases in a very reliable, <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6826	6976	
==>@_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PAC <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11386	11531	
==>@_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PAC <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12184	12329	
==>@_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PAC <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12911	13056	
==>@_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PAC <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1678	1776	
==>fter __END__.

package Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25207	25355	
==>> <DecimalDigits> <','> <DecimalDigits> <'}'>
}
rule Atom {  # see 15.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <Char <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5394	5492	
==>lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11881	11979	
==>er:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

This means you must have the F<charnames> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5394	5492	
==>lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5394	5492	
==>lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	148	253	
==>n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest cop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	148	253	
==>n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest cop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	148	253	
==>n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest cop <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	171	268	
==>file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	171	268	
==>file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2196	2290	
==>equest for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1484	1578	
==>tring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»", <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2196	2290	
==>equest for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1484	1578	
==>tring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1484	1578	
==>tring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»", <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	416	513	
==>gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	416	513	
==>gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3897	4019	
==>ltering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect agains <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3897	4019	
==>ltering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect agains <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12966	13095	
==>s primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $si <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12966	13095	
==>s primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $si <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12966	13095	
==>s primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $si <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1851	1980	
==>s primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $si <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	498	607	
==>9

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	464	578	
==>_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	464	578	
==>_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	464	578	
==>_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub a <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12726	12822	
==>set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12726	12822	
==>set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1886	1997	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1886	1997	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1886	1997	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15855	15948	
==>nifesto.com/>, and its authors have also written
several books and papers and taught classes o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15855	15948	
==>nifesto.com/>, and its authors have also written
several books and papers and taught classes o <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33008	33107	
==>- B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each elemen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9226	9325	
==>x) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33008	33107	
==>- B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each elemen <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9226	9325	
==>x) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9226	9325	
==>x) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3592	3718	
==>'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3592	3718	
==>'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3592	3718	
==>'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::Eig <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3032	3131	
==>fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2924	3021	
==>fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4628	4728	
==>ges in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedTe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4628	4728	
==>ges in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedTe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7429	7516	
==>d('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7429	7516	
==>d('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7429	7516	
==>d('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2422	2669	
==>');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'al <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2422	2669	
==>');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'al <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2422	2669	
==>');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'al <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1657	1756	
==>e response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1657	1756	
==>e response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) ( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7311	7426	
==>.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.n <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7311	7426	
==>.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2036	2147	
==>();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2036	2147	
==>();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2036	2147	
==>();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12566	12732	
==>p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13100	13266	
==>p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12560	12726	
==>p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13094	13260	
==>p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7327	7430	
==>pe;
		my $rthunk = $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10745	10847	
==>_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HA <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20621	20723	
==>EC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => su <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17042	17144	
==>EC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10745	10847	
==>_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10745	10847	
==>_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	362	467	
==>y++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	362	467	
==>y++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	362	467	
==>y++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	986	1079	
==>:mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	986	1079	
==>:mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6768	6878	
==>yof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10985	11119	
==>tch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10985	11119	
==>tch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10985	11119	
==>tch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "M <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	851	954	
==>e15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_d <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	736	825	
==>e15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4292	4397	
==>};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4292	4397	
==>};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4292	4397	
==>};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULT <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11297	11392	
==>et>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode v <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11297	11392	
==>et>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode v <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17731	17827	
==>is guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17731	17827	
==>is guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39829	39924	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39829	39924	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39829	39924	
==>f UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9255	9397	
==>est.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $descriptio <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1377	1513	
==>est.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descriptio <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1377	1513	
==>est.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descriptio <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18838	18939	
==>ke this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$origi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18838	18939	
==>ke this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$origi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1394	1535	
==>_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4633	4774	
==>_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1394	1535	
==>_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4633	4774	
==>_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $ <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5246	5347	
==>ion';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } for `@{[$rev_get_cmd]}`;
    $s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26652	26801	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26931	27080	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	181	277	
==>ause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	181	277	
==>ause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	181	277	
==>ause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25337	25429	
==>=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C<e <==
5	/Users/nnunley/pugs/docs/feather/~/gen.pl	484	576	
==>ir <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/public_html/*";
m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29889	29981	
==>=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C<e <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5839	5926	
==>---------------------------------------------------------
## sibling methods

method get <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5839	5926	
==>---------------------------------------------------------
## sibling methods

method get <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	623	747	
==>~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { sa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	623	747	
==>~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { sa <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3642	3737	
==>tr $description )>

Marks that the next test should pass.  C<$description> is the optional
descr <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3642	3737	
==>tr $description )>

Marks that the next test should pass.  C<$description> is the optional
descr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3722	3817	
==>tr $description )>

Marks that the next test should pass.  C<$description> is the optional
descr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	803	930	
==>): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	803	930	
==>): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1229	1331	
==>ode;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1229	1331	
==>ode;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1229	1331	
==>ode;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ne <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6376	6515	
==>stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no leadi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6376	6515	
==>stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no leadi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6779	6894	
==>\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6779	6894	
==>\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6779	6894	
==>\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1519	1630	
==>1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1519	1630	
==>1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1519	1630	
==>1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5773	5873	
==>r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5773	5873	
==>r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3586	3681	
==>.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3586	3681	
==>.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3586	3681	
==>.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5738	5832	
==>entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record. <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	414	508	
==>node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX Th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5738	5832	
==>entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	414	508	
==>node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7262	7356	
==>entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1711	1826	
==>ml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacu <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1711	1826	
==>ml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1702	1823	
==>ar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1702	1823	
==>ar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1702	1823	
==>ar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10710	10801	
==>m B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type ret <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10710	10801	
==>m B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4678	4831	
==>elf.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $sel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4678	4831	
==>elf.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2787	2885	
==>ard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2787	2885	
==>ard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2787	2885	
==>ard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2798	2900	
==>etval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(bac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2798	2900	
==>etval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(bac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2798	2900	
==>etval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(bac <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9487	9580	
==>ate, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or expo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9487	9580	
==>ate, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or expo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20622	20716	
==>ibutes are private, so you must use accessor
methods.  Relation does not declare any subroutine <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25174	25268	
==>ibutes are private, so you must use accessor
methods.  Relation does not declare any subroutine <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5092	5196	
==>ence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7760	7864	
==>ence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1648	1751	
==>.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1648	1751	
==>.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1648	1751	
==>.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7161	7299	
==>m{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7161	7299	
==>m{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7161	7299	
==>m{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6427	6542	
==>a_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6427	6542	
==>a_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rose <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4466	4583	
==>y $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4466	4583	
==>y $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4466	4583	
==>y $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4443	4558	
==>$attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7920	8035	
==>$attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	75	182	
==>my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	75	182	
==>my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	75	182	
==>my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	179	276	
==>' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSL <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	179	276	
==>' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSL <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	315	419	
==>an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The foll <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	315	419	
==>an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The foll <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3658	3754	
==>)>

Marks that the next test should pass.  C<$description> is the optional
description of the tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3658	3754	
==>)>

Marks that the next test should pass.  C<$description> is the optional
description of the tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3738	3834	
==>)>

Marks that the next test should pass.  C<$description> is the optional
description of the tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11686	11786	
==>map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11686	11786	
==>map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11686	11786	
==>map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clon <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13133	13226	
==>person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepare <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13133	13226	
==>person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepare <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1271	1380	
==>argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1271	1380	
==>argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1271	1380	
==>argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "* <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	284	382	
==>eturns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	284	382	
==>eturns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9214	9332	
==>llest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        f <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9214	9332	
==>llest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1885	1985	
==>self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1885	1985	
==>self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1885	1985	
==>self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7829	8042	
==>art =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7829	8042	
==>art =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7829	8042	
==>art =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tm <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33537	33627	
==>ed C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38087	38177	
==>ed C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-me <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3141	3257	
==>eturn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $dat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3141	3257	
==>eturn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $dat <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3981	4104	
==>h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3981	4104	
==>h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	831	954	
==>h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	326	438	
==>) {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $. <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	326	438	
==>) {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1124	1222	
==>mpile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1124	1222	
==>mpile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1124	1222	
==>mpile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with -- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5663	5797	
==>{
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'loo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5663	5797	
==>{
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'loo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13119	13228	
==>$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13119	13228	
==>$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13119	13228	
==>$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::C <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4864	4970	
==>turn;

    for my $index ( $self->index_file, $self->index_files(package => $pkg) ) {
        unless (-e $i <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1035	1130	
==>Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::cat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1035	1130	
==>Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::cat <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3129	3218	
==>p6_alternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34157	34254	
==>d and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<ne <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34157	34254	
==>d and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1809	1901	
==>)(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1809	1901	
==>)(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1809	1901	
==>)(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (ar <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	704	807	
==>st_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	704	807	
==>st_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	109	211	
==>s Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

m <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	109	211	
==>s Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

m <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19895	19992	
==>C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(cha <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	561	674	
==>ear($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($seco <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	628	741	
==>ear($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($seco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5144	5239	
==>compile anything.

When compiling (--link option not given), there has to be only one input file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5144	5239	
==>compile anything.

When compiling (--link option not given), there has to be only one input file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5144	5239	
==>compile anything.

When compiling (--link option not given), there has to be only one input file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15891	16022	
==>_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15891	16022	
==>_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15891	16022	
==>_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&P <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1503	1593	
==>f (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_com <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1417	1504	
==>f ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_com <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5035	5135	
==>atdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead o <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5035	5135	
==>atdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1384	1479	
==>// IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1384	1479	
==>// IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1384	1479	
==>// IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelud <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6172	6269	
==>$nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8240	8337	
==>$nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6172	6269	
==>$nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8240	8337	
==>$nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2619	2707	
==>=============================

:- style_check(-discontiguous). % remove is plausible

p5_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19440	19750	
==>r = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19440	19750	
==>r = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19440	19750	
==>r = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4578	4726	
==>age satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{ver <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5042	5190	
==>age satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{ver <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3562	3663	
==>Default}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3562	3663	
==>Default}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3562	3663	
==>Default}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17468	17557	
==>ll be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML docume <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17468	17557	
==>ll be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML docume <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15411	15528	
==>ead1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15411	15528	
==>ead1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	879	982	
==>body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	879	982	
==>body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	879	982	
==>body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2365	2535	
==>= shift;
                my $idx = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4504	4613	
==>ash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5833	5942	
==>ash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4504	4613	
==>ash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5821	5930	
==>ash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4421	4562	
==>boxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4421	4562	
==>boxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4421	4562	
==>boxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1796	1898	
==>ckage main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1796	1898	
==>ckage main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3135	3245	
==>s = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3135	3245	
==>s = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3135	3245	
==>s = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4376	4485	
==>n 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    retu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4376	4485	
==>n 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2394	2584	
==>=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2394	2584	
==>=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12521	12628	
==>($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12521	12628	
==>($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25405	25508	
==>ches.]
 *
 * [In fact, we now use regmust in many cases to locate where the search
 * starts in the stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4239	4349	
==>n($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4239	4349	
==>n($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4239	4349	
==>n($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ? <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4636	4743	
==>s($self)->{'@:roles'}}) {
        # make a note of the role for does()
        $roles{::opaque_instance_attr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22496	22590	
==>ending.>

=head1 DESCRIPTION

This library provides a partial implementation, in the form of se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3331	3455	
==>t> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Co <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3331	3455	
==>t> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4173	4280	
==>aram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4173	4280	
==>aram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4763	4870	
==>aram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2306	2434	
==>6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2222	2341	
==>6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4191	4301	
==>if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4191	4301	
==>if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4191	4301	
==>if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14181	14283	
==>thod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14181	14283	
==>thod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14181	14283	
==>thod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12498	12598	
==>ions will eval a code snippet, and then pass the result to is or ok
on success, or report that the ev <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12556	12656	
==>ions will eval a code snippet, and then pass the result to is or ok
on success, or report that the ev <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23847	23984	
==>ext"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13351	13480	
==>ext"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13351	13480	
==>ext"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13351	13480	
==>ext"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20050	20157	
==>b p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if($param =~ /\*/) {
	my $mo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	259	397	
==>' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.output <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2000	2136	
==>ow this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run pe <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	314	450	
==>ow this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2000	2136	
==>ow this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2000	2136	
==>ow this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2934	3037	
==>",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2934	3037	
==>",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2934	3037	
==>",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", " <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12624	12722	
==>d, or holidays per month.

It is also used when the objects represent "chunks" of data, such as dat <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12624	12722	
==>d, or holidays per month.

It is also used when the objects represent "chunks" of data, such as dat <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9898	10000	
==>ss .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, po <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10246	10348	
==>ss .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, po <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1046	1137	
==>S.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1046	1137	
==>S.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1046	1137	
==>S.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6352	6550	
==>ined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6352	6550	
==>ined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	261	366	
==>9 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	261	366	
==>9 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	261	366	
==>9 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	115	270	
==>op::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\| <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	116	271	
==>op::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\| <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17181	17280	
==>($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20658	20757	
==>($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20236	20335	
==>($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!headi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3121	3243	
==>sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3121	3243	
==>sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3121	3243	
==>sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         ! <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	551	641	
==>ON

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell| <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	551	641	
==>ON

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell| <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7226	7419	
==>&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7419	7612	
==>&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2529	2623	
==>instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenCl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2529	2623	
==>instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenCl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2529	2623	
==>instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenCl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7070	7206	
==>:Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7070	7206	
==>:Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3203	3305	
==>CALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3203	3305	
==>CALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3203	3305	
==>CALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($el <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6486	6587	
==>s' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6486	6587	
==>s' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3053	3163	
==>t.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3053	3163	
==>t.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3053	3163	
==>t.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { ' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3611	3715	
==>hod intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._no <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3611	3715	
==>hod intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5761	5914	
==>od for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5761	5914	
==>od for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5761	5914	
==>od for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts . <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9444	9596	
==>TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10435	10587	
==>TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4803	4906	
==>p($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4803	4906	
==>p($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4803	4906	
==>p($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@sel <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10954	11049	
==>Document object is a simple container which stores data to be used or
displayed by your program. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10954	11049	
==>Document object is a simple container which stores data to be used or
displayed by your program. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5535	5660	
==>\n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5757	5882	
==>\n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2117	2221	
==>ape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - ex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2117	2221	
==>ape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - ex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2117	2221	
==>ape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	764	889	
==>add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	764	889	
==>add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	764	889	
==>add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You mu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	520	632	
==>ig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	520	632	
==>ig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5919	6042	
==>erm.bareword>
            #~ { return { method => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24044	24143	
==>ceipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sendi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22817	22916	
==>ceipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sendi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24044	24143	
==>ceipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sendi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22817	22916	
==>ceipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sendi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3642	3752	
==>st that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5544	5654	
==>st that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4056	4140	
==>RAPPING AREA
## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4056	4140	
==>RAPPING AREA
## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4056	4140	
==>RAPPING AREA
## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	152	252	
==>rigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7639	7739	
==>---------------------------------------

## NOTE:
## we want to prevent the default version 
## of th <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	152	252	
==>rigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7639	7739	
==>---------------------------------------

## NOTE:
## we want to prevent the default version 
## of th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7639	7739	
==>---------------------------------------

## NOTE:
## we want to prevent the default version 
## of th <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8518	8630	
==>SCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8518	8630	
==>SCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6393	6503	
==>d_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6393	6503	
==>d_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_s <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1843	1928	
==>------------------------------------------------------------------------------
.
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5373	5483	
==>INDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5373	5483	
==>INDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5373	5483	
==>INDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8032	8129	
==>l be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once the <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8032	8129	
==>l be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once the <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	247	358	
==>ebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	247	358	
==>ebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2486	2587	
==>ame) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2486	2587	
==>ame) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2486	2587	
==>ame) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta. <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4860	5001	
==>e, List)\
\\n   List      pre     grep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3863	4001	
==>( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            el <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4875	5010	
==>( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            el <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3743	3878	
==>( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            el <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4875	5010	
==>( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            el <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5990	6105	
==>arameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_ab <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5990	6105	
==>arameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2219	2329	
==>w_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2219	2329	
==>w_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2219	2329	
==>w_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $autho <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	396	502	
==>ck(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'e <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	396	502	
==>ck(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	346	442	
==>=> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	346	442	
==>=> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	346	442	
==>=> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	485	588	
==>lt
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	485	588	
==>lt
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	485	588	
==>lt
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5765	5849	
==>tation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item O <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5765	5849	
==>tation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item O <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16871	17016	
==>} else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @que <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16871	17016	
==>} else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @que <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8440	8552	
==>( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8440	8552	
==>( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8440	8552	
==>( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	523	637	
==>on'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version it <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	494	608	
==>on'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version it <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	523	637	
==>on'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version it <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	523	637	
==>on'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version it <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	979	1078	
==>lues,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $test ;   *@values) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2884	3002	
==>PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2884	3002	
==>PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2884	3002	
==>PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.lengt <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1369	1469	
==>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1369	1469	
==>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3709	3814	
==>th line\n11th line\n10th line\n".
        "9th line\n8th line\n7th line\n6th line\n5th line\n".
        "4 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	393	492	
==>[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	393	492	
==>[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5971	6068	
==>opment.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. T <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5971	6068	
==>opment.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1862	2013	
==>>{abort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_[3 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2559	2655	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2559	2655	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1772	1862	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3633	3723	
==>.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6357	6487	
==>@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6357	6487	
==>@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6357	6487	
==>@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15297	15405	
==>rget" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "IS <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15297	15405	
==>rget" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "IS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2885	3001	
==>ependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $pr <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3349	3465	
==>ependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5525	5622	
==>ar _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5525	5622	
==>ar _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5525	5622	
==>ar _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11598	11709	
==>erimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2085	2191	
==>erimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8857	8963	
==>erimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2085	2191	
==>erimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8857	8963	
==>erimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23567	23660	
==>erences.  Where other solutions take variables, they
seem to be positional (like with 'sprintf <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23567	23660	
==>erences.  Where other solutions take variables, they
seem to be positional (like with 'sprintf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39180	39296	
==>ub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39180	39296	
==>ub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39180	39296	
==>ub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arra <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4593	4699	
==>ects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- comp <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4593	4699	
==>ects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3108	3268	
==>my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3108	3268	
==>my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3108	3268	
==>my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sho <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	337	453	
==>ile


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	543	659	
==>ile


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_st <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	914	1034	
==>$fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Sinc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	914	1034	
==>$fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Sinc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1789	1889	
==>'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1789	1889	
==>'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1789	1889	
==>'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {.. <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3459	3622	
==>e %.subscriptions<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	837	946	
==>unction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	837	946	
==>unction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	837	946	
==>unction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3188	3296	
==>units (Num $radians, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radia <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1296	1448	
==>d    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4535	4687	
==>d    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1296	1448	
==>d    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4535	4687	
==>d    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	514	606	
==>ype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrScalarSu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11554	11685	
==>gth( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11548	11679	
==>gth( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemen <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25365	25461	
==>environment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Mes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25365	25461	
==>environment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Mes <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1902	1991	
==>roto method export_attrs of Relation::LaxAttrList () {...}

proto method export_attr_names <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	62	179	
==>est";      # print "$test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20617	20717	
==>NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17038	17138	
==>NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20731	20830	
==>ch.

The usual way that Relation indicates a failure is to throw an exception;
most often this is du <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25283	25382	
==>ch.

The usual way that Relation indicates a failure is to throw an exception;
most often this is du <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26318	26462	
==>> 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub on {
    my $self = shift;
    $se <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2917	3020	
==>e; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public Li <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3074	3177	
==>e; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public Li <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2917	3020	
==>e; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public Li <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3074	3177	
==>e; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public Li <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15702	15818	
==>ode = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $sel <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2099	2215	
==>ode = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	892	1001	
==>y $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	892	1001	
==>y $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	892	1001	
==>y $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3268	3363	
==>lti sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3268	3363	
==>lti sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8344	8436	
==>ringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8344	8436	
==>ringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8344	8436	
==>ringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8073	8233	
==>g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8073	8233	
==>g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8073	8233	
==>g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27750	27875	
==>,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28029	28154	
==>,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	629	789	
==>' .
                        package_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scal <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8903	9039	
==>$_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd intege <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8903	9039	
==>$_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd intege <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8803	8905	
==>subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's d <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8803	8905	
==>subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23399	23524	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19820	19945	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7147	7241	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7147	7241	
==>r $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	681	768	
==>genClass->superclasses([ $::Class ]);

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	681	768	
==>genClass->superclasses([ $::Class ]);

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	681	768	
==>genClass->superclasses([ $::Class ]);

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23717	23851	
==>down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4468	4564	
==>erl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4718	4814	
==>erl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=he <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14209	14302	
==>wnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14209	14302	
==>wnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	416	536	
==>er($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $v <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30745	30845	
==>rts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module name <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30745	30845	
==>rts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8958	9048	
==>push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_op <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2783	2873	
==>push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_op <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7688	7841	
==>== Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "A <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7688	7841	
==>== Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "A <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13672	13764	
==>d"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13672	13764	
==>d"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13672	13764	
==>d"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %param <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26099	26223	
==>f ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26099	26223	
==>f ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26099	26223	
==>f ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11095	11218	
==>iscardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $va <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11095	11218	
==>iscardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $va <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6015	6111	
==>fficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
} <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6015	6111	
==>fficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
} <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2039	2148	
==>ness will honor the C<-T> or C<-t> in the #! line on your
test files.  So if you begin a test with:

    #!per <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2830	2924	
==>( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurre <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4699	4793	
==>( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2830	2924	
==>( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4699	4793	
==>( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2034	2154	
==>and_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2034	2154	
==>and_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2034	2154	
==>and_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15224	15326	
==>d code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15224	15326	
==>d code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6635	6748	
==>lit " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6635	6748	
==>lit " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7005	7112	
==>lit " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7005	7112	
==>lit " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1393	1499	
==>2;
    my $proto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto. <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11586	11680	
==>e set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<co <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8733	8827	
==>e set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<co <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11586	11680	
==>e set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<co <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8733	8827	
==>e set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<co <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9547	9638	
==>StructHook::make_qr_regexp_pair("a",1,sub{
  print STDERR "hi\n";
  my $ret = shift(@returns <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3044	3183	
==>ersion};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl_ve <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8736	8828	
==>:Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
repres <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8736	8828	
==>:Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
repres <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7207	7292	
==>-------------------------------------------------------------------
## traversal

meth <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7207	7292	
==>-------------------------------------------------------------------
## traversal

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11901	12051	
==>=~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11901	12051	
==>=~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11901	12051	
==>=~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7114	7247	
==>$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qua <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7114	7247	
==>$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qua <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	465	596	
==>$filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	463	594	
==>$filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	465	596	
==>$filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	463	594	
==>$filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2387	2498	
==>$args->{test} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6075	6211	
==>, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6075	6211	
==>, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6075	6211	
==>, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13731	13865	
==>n Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15256	15390	
==>n Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3932	4035	
==>::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3932	4035	
==>::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3932	4035	
==>::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1820	1921	
==>loody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/m <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1820	1921	
==>loody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29955	30074	
==>t;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29955	30074	
==>t;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29955	30074	
==>t;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15434	15537	
==>digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9631	9734	
==>digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15888	15990	
==>invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15888	15990	
==>invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $use <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37462	37558	
==>tioned binary join()
operator, and the order of its arguments is not significant to the result;
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42011	42107	
==>tioned binary join()
operator, and the order of its arguments is not significant to the result;
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41652	41748	
==>tioned binary join()
operator, and the order of its arguments is not significant to the result;
t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8044	8187	
==>ng Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8044	8187	
==>ng Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8044	8187	
==>ng Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    r <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7309	7413	
==>:CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSIT <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7367	7471	
==>:CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSIT <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	820	930	
==>se File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5362	5459	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4492	4589	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5362	5459	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4492	4589	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14010	14100	
==>ed_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20358	20448	
==>e::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14010	14100	
==>ed_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20358	20448	
==>e::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20358	20448	
==>e::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1890	2023	
==>e) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1890	2023	
==>e) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8429	8533	
==>oing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, t <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8429	8533	
==>oing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14062	14160	
==>$::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14062	14160	
==>$::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14062	14160	
==>$::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless def <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1223	1471	
==>odes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1223	1471	
==>odes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2181	2282	
==>ill already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2181	2282	
==>ill already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2181	2282	
==>ill already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7693	7881	
==>ef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7693	7881	
==>ef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7693	7881	
==>ef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3944	4061	
==>Named {
    has $.name;

    method new ($.name, *@args) {
        super *@args;
    }
}

class Class::Events::Notific <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	20518	20609	
==>dex->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	33	140	
==>::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	33	140	
==>::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	33	140	
==>::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $c <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	42	139	
==>s qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	42	139	
==>s qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13392	13544	
==>ring = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3549	3685	
==>ring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3549	3685	
==>ring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3549	3685	
==>ring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17537	17669	
==>ird - $node doesn't fmap but is an object";
            return "$node";
        }
    } else {
        return defined $node ? String: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	908	1016	
==>attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	908	1016	
==>attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	908	1016	
==>attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	8647	8753	
==>'} || %mods{'exhaustive'};
    my $adverbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX dis <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13246	13343	
==>--> digit(D), digits(T), !.
digits([])    --> [].
digit(D) --> [D], { code_type(D, digit) }.

hexd <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2521	2636	
==>tr $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2521	2636	
==>tr $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2521	2636	
==>tr $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1592	1688	
==>ad1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISB <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1592	1688	
==>ad1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISB <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8705	8818	
==>method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $test <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	501	611	
==>vailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	468	578	
==>vailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	873	978	
==>method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	873	978	
==>method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $test <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3893	4067	
==>~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $r <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3893	4067	
==>~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	19	113	
==>work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	19	113	
==>work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	19	113	
==>work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15212	15320	
==>$newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15212	15320	
==>$newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38258	38358	
==>ter the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38258	38358	
==>ter the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38258	38358	
==>ter the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28915	29123	
==>ammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29194	29402	
==>ammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1919	2018	
==>} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1919	2018	
==>} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1919	2018	
==>} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) { <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8258	8362	
==>is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8258	8362	
==>is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1829	1931	
==>) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# dif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1829	1931	
==>) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# dif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1829	1931	
==>) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# dif <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1476	1596	
==>:cwd();
    unless( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] );
        return;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5637	5738	
==>kage Regexp::Parser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2355	2451	
==>'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->ST <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2355	2451	
==>'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->ST <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2355	2451	
==>'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->ST <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	9	98	
==>S::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	9	98	
==>S::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	9	98	
==>S::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	262	368	
==>APP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that b <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	262	368	
==>APP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8652	8754	
==>{ Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8652	8754	
==>{ Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8652	8754	
==>{ Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MU <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9353	9474	
==>ntime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9546	9667	
==>ntime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1262	1358	
==>N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1262	1358	
==>N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1262	1358	
==>N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2994	3120	
==>. $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2994	3120	
==>. $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2994	3120	
==>. $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6037	6130	
==>ity is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this documen <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6037	6130	
==>ity is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this documen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2379	2493	
==>ass;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2379	2493	
==>ass;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2379	2493	
==>ass;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	64	159	
==>m package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	64	159	
==>m package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33590	33715	
==>h, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERS <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33590	33715	
==>h, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERS <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33590	33715	
==>h, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERS <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	209	316	
==>export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	209	316	
==>export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1886	2003	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1886	2003	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1886	2003	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::mak <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4385	4490	
==>st);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4385	4490	
==>st);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	308	425	
==>t<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	312	429	
==>t<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	308	425	
==>t<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	312	429	
==>t<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5874	5976	
==>value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->new();
	$o- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3091	3190	
==>ue of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Ot <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3091	3190	
==>ue of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Ot <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4267	4360	
==>assing on the C<$description> and
C<$reason> parameters and a true value for the passed parame <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4267	4360	
==>assing on the C<$description> and
C<$reason> parameters and a true value for the passed parame <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6464	6557	
==>assing on the C<$description> and
C<$reason> parameters and a true value for the passed parame <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5101	5251	
==>se
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	684	808	
==>ength; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	684	808	
==>ength; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	684	808	
==>ength; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29817	29912	
==>et is the same as
those attribute names in the argument C<$attrs>.  The new Relation::Example ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8910	9145	
==>normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_jun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8910	9145	
==>normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_jun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8910	9145	
==>normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_jun <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	98	201	
==>ants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename] <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	103	205	
==>ants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename] <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	101	203	
==>ants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename] <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6329	6428	
==>);
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6329	6428	
==>);
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	472	588	
==>"$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	472	588	
==>"$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

su <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5201	5298	
==>do returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5201	5298	
==>do returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6725	6822	
==>do returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11372	11540	
==>ot auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11372	11540	
==>ot auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11372	11540	
==>ot auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1678	1770	
==>ase(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1678	1770	
==>ase(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	109	232	
==>od cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can ov <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	109	232	
==>od cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can ov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2282	2400	
==>essage is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_o <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	271	381	
==>essage is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	271	381	
==>essage is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3126	3248	
==>S::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3126	3248	
==>S::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3126	3248	
==>S::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Di <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5291	5389	
==>files = _globdir $dir;

Returns all the files in a directory.  This is shorthand for backwards
comp <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2137	2234	
==>als::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( Num $x = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	278	382	
==>ure
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	278	382	
==>ure
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	278	382	
==>ure
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7367	7526	
==>->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7367	7526	
==>->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7367	7526	
==>->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::m <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7078	7215	
==>ray.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@resul <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5579	5716	
==>ray.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@resul <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8152	8243	
==>dler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.ke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8152	8243	
==>dler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7125	7212	
==>_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7125	7212	
==>_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7125	7212	
==>_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub} <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2049	2142	
==>n operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2049	2142	
==>n operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6308	6390	
==>ntf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6308	6390	
==>ntf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6308	6390	
==>ntf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5648	5747	
==>as undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5648	5747	
==>as undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4772	4865	
==>de mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4772	4865	
==>de mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4772	4865	
==>de mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	799	897	
==>wo) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superse <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	799	897	
==>wo) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5852	6002	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1767	1897	
==>if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1767	1897	
==>if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	949	1056	
==>ate a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symm <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	949	1056	
==>ate a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symm <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9723	9874	
==>r) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> j <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	946	1073	
==>r) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> j <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5423	5533	
==>ng) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5423	5533	
==>ng) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5423	5533	
==>ng) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) <==
5	/Users/nnunley/pugs/util/config_h.pl	204	323	
==>DIR

  GHC     - Location and flags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1491	1580	
==>ute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1491	1580	
==>ute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1491	1580	
==>ute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method( <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	3265	3350	
==>d
  -----------------------------------------------------------------------
  t/waterl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14002	14108	
==>= $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14002	14108	
==>= $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14002	14108	
==>= $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confes <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	571	669	
==>DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node t <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	571	669	
==>DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1327	1426	
==>(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1327	1426	
==>(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1327	1426	
==>(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	955	1051	
==>to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	955	1051	
==>to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	168	288	
==>::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.que <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	168	288	
==>::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.que <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7290	7405	
==>r"
    .param pmc mob
    .local int pos, lastpos
    .local string target, value
    .local pmc mfrom, mpos
    $P0 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25098	25195	
==>ple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29650	29747	
==>ple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

Th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2236	2340	
==>ages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attri <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2236	2340	
==>ages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3574	3677	
==>K" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3574	3677	
==>K" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3574	3677	
==>K" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3299	3405	
==>_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3299	3405	
==>_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3299	3405	
==>_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defin <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2411	2543	
==>ault { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Arr <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2411	2543	
==>ault { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	814	928	
==>> \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	814	928	
==>> \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	814	928	
==>> \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6378	6485	
==>= $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_char <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6378	6485	
==>= $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_char <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8817	8908	
==>ame } '... instance calling metaclass method fails';

fails_ok { $iFoo->another_singleton_te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	539	642	
==>tement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	539	642	
==>tement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	539	642	
==>tement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	432	526	
==>s::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an imp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	432	526	
==>s::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an imp <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	349	468	
==>le    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re <==
5	/Users/nnunley/pugs/util/grokprims.pl	2134	2224	
==>nt "<td><tt>$example</tt></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4423	4564	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4423	4564	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4423	4564	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	565	667	
==>ct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependency dec <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3018	3109	
==>NVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanc <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3864	3972	
==>=> '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3864	3972	
==>=> '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1339	1425	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1339	1425	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1339	1425	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3946	4082	
==>an = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .gr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3946	4082	
==>an = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .gr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4474	4604	
==>an = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .gr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4474	4604	
==>an = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	237	351	
==>ta::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23653	23769	
==>eed to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	54	169	
==>e $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	54	169	
==>e $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	54	169	
==>e $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28872	28970	
==>eed to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #defin <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2749	2869	
==>t::zip. r8593.
# But Prim.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, both return and argument types d <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6471	6568	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5601	5698	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6471	6568	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5601	5698	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Se <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1295	1406	
==>y ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1295	1406	
==>y ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) i <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5028	5134	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LV <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5028	5134	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LV <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1932	2038	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LV <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1608	1713	
==>tr( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1812	1917	
==>tr( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1988	2088	
==>ROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(': <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1988	2088	
==>ROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(': <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1988	2088	
==>ROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(': <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11662	11768	
==>ernation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12020	12126	
==>ernation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { captu <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	370	475	
==>f->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ig <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	370	475	
==>f->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ig <==
5	/Users/nnunley/pugs/util/package-osx.pl	7626	7714	
==>/local/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/Perl6::Spec::Functio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6645	6756	
==>PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6645	6756	
==>PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6645	6756	
==>PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCont <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3440	3527	
==>multi method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3440	3527	
==>multi method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor' <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7866	8054	
==>apture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    }) <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7866	8054	
==>apture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    }) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29429	29523	
==>er
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33981	34075	
==>er
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33145	33239	
==>er
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribute <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8651	8763	
==><users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8651	8763	
==><users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8915	9021	
==><users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8915	9021	
==><users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2638	2743	
==>,
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 S <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1728	1915	
==>>[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and a <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	159	285	
==>infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2086	2211	
==>infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	857	969	
==>ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	857	969	
==>ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14192	14302	
==>>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14192	14302	
==>>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14192	14302	
==>>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, % <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2432	2537	
==>:join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num->new(0), $ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1778	1878	
==>s($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5489	5583	
==>t_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Co <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5489	5583	
==>t_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1989	2081	
==>lf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1989	2081	
==>lf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1989	2081	
==>lf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $sel <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1652	1775	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2233	2356	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1652	1775	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2233	2356	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file <==
5	/Users/nnunley/pugs/util/func_refact.pl	2339	2448	
==>sts $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	273	376	
==>s = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command lin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	234	337	
==>s = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command lin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	234	337	
==>s = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command lin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1122	1221	
==>ar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1122	1221	
==>ar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29846	29941	
==>App::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29846	29941	
==>App::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10920	11001	
==>------------------------------------------------------------------
Random Thoughts <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10920	11001	
==>------------------------------------------------------------------
Random Thoughts <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10920	11001	
==>------------------------------------------------------------------
Random Thoughts <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8331	8482	
==>urn { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8331	8482	
==>urn { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	815	930	
==>out=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	815	930	
==>out=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	815	930	
==>out=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8598	8695	
==>=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is e <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8598	8695	
==>=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1362	1453	
==>);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1362	1453	
==>);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1362	1453	
==>);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_di <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1714	1815	
==>d lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1714	1815	
==>d lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1714	1815	
==>d lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value! <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19270	19366	
==>xPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's D <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19270	19366	
==>xPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's D <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7175	7284	
==>EQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LEN <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7175	7284	
==>EQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LEN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	553	650	
==>-------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff late <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	553	650	
==>-------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff late <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	553	650	
==>-------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff late <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5476	5587	
==>et = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5476	5587	
==>et = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5476	5587	
==>et = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3211	3318	
==>r> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3211	3318	
==>r> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1053	1158	
==>s() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closu <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1053	1158	
==>s() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7040	7138	
==>w PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will tak <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7040	7138	
==>w PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will tak <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7040	7138	
==>w PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will tak <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7994	8130	
==>++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7994	8130	
==>++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7994	8130	
==>++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5789	5888	
==>ix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5789	5888	
==>ix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2838	2970	
==>a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2838	2970	
==>a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2838	2970	
==>a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3557	3679	
==>code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3557	3679	
==>code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4922	5023	
==>@set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4922	5023	
==>@set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18038	18196	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18317	18475	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parse <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36123	36216	
==>t pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40672	40765	
==>t pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40286	40379	
==>t pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rela <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6086	6226	
==>te_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6086	6226	
==>te_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6086	6226	
==>te_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8788	8910	
==>rse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8788	8910	
==>rse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9911	10036	
==>y[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9911	10036	
==>y[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9911	10036	
==>y[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14058	14169	
==>?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17535	17646	
==>?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relatio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	706	804	
==>IN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	912	1010	
==>IN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	887	978	
==>ehaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	887	978	
==>ehaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	887	978	
==>ehaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2342	2485	
==>other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2342	2485	
==>other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4746	4850	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4746	4850	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4746	4850	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1222	1344	
==>r that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4700	4822	
==>r that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	651	755	
==>lse {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	651	755	
==>lse {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	651	755	
==>lse {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1236	1355	
==><EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1236	1355	
==><EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1236	1355	
==><EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3056	3167	
==>$ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3056	3167	
==>$ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1436	1556	
==>e($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1436	1556	
==>e($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1436	1556	
==>e($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cla <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11175	11266	
==>type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) re <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11175	11266	
==>type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11589	11714	
==>q '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11583	11708	
==>q '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8225	8330	
==>LASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8225	8330	
==>LASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8225	8330	
==>LASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3822	3955	
==>e,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3962	4095	
==>e,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5626	5734	
==>or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5626	5734	
==>or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5626	5734	
==>or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4789	4907	
==>o \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4789	4907	
==>o \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4789	4907	
==>o \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3014	3131	
==>=> 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # sma <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3014	3131	
==>=> 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # sma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9453	9595	
==>r $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9441	9583	
==>r $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1319	1423	
==>nite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to ins <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1319	1423	
==>nite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to ins <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1319	1423	
==>nite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to ins <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2908	3015	
==>);
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2908	3015	
==>);
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2988	3095	
==>);
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	48	141	
==>FindBin;

die << "." unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'};
Please inv <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26598	26689	
==>ource
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will print debugging inform <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10435	10563	
==>ash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10435	10563	
==>ash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10435	10563	
==>ash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27922	28014	
==>method returns the Message Variable value (a string) associated with
the variable name specif <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27922	28014	
==>method returns the Message Variable value (a string) associated with
the variable name specif <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8324	8474	
==>String(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1387	1497	
==>$tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1433	1531	
==>lequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard opera <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1433	1531	
==>lequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard opera <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1433	1531	
==>lequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard opera <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7188	7303	
==>p = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7188	7303	
==>p = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7188	7303	
==>p = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	314	426	
==>}, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled(sub {
       	my $gr <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26008	26112	
==>5.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <Source <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3935	4079	
==>ives( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( meta => $_, installation => $obj) }
                map <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27617	27713	
==>se methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27617	27713	
==>se methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13112	13204	
==>ead2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13112	13204	
==>ead2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Return <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	968	1089	
==>ent::Style {
        has $value;

        method ^string_to_arguments ( $string ) {
            return $?CLASS.new( $strin <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4358	4471	
==>defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4412	4525	
==>defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4358	4471	
==>defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4412	4525	
==>defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2060	2173	
==>ethod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2060	2173	
==>ethod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2060	2173	
==>ethod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => : <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	697	793	
==>t = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6du <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	697	793	
==>t = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6du <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26895	27038	
==>od',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    j <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2787	2878	
==>varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6239	6330	
==>varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2787	2878	
==>varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2787	2878	
==>varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	772	881	
==>ve() . '');
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2083	2175	
==>opyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2083	2175	
==>opyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2083	2175	
==>opyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; yo <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16811	16896	
==>ityExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpression :wor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3268	3428	
==>lename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3268	3428	
==>lename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3268	3428	
==>lename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2855	2980	
==>s::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./st <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2855	2980	
==>s::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25780	25958	
==>tart;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25780	25958	
==>tart;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25780	25958	
==>tart;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1018	1109	
==>t put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1018	1109	
==>t put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3282	3395	
==>ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expecte <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3282	3395	
==>ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expecte <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4806	4919	
==>ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expecte <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1990	2092	
==>AME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1990	2092	
==>AME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3895	4005	
==>e::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    re <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3895	4005	
==>e::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	489	585	
==>utput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC A <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	489	585	
==>utput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1045	1141	
==>utput;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC A <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6053	6439	
==>ent")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7815	8201	
==>ent")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1219	1317	
==>ckup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1219	1317	
==>ckup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1219	1317	
==>ckup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VA <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	627	811	
==>nt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $ <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	627	811	
==>nt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1981	2081	
==>d('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1981	2081	
==>d('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1981	2081	
==>d('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispat <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17002	17135	
==>f from a file
  wait              the wait code of the test run, if from a file

  max               total tests which should have bee <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6282	6381	
==>b ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = To <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3327	3418	
==>IPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fram <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3327	3418	
==>IPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fram <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5524	5615	
==>IPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fram <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3160	3267	
==>$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3148	3255	
==>$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4281	4426	
==>ch my $val (@{$self}) {
        if ($closure->isa('closure')) {
            $list->push(
                $closure->do(
                    list->n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	15901	16005	
==>ig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	485	584	
==>::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	485	584	
==>::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	485	584	
==>::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8056	8188	
==>f ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13650	13782	
==>f ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8056	8188	
==>f ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13644	13776	
==>f ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2) <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1233	1325	
==>Coercer::Null { }
}

module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Pe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1391	1507	
==>ame?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp o <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1391	1507	
==>ame?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6126	6225	
==>l
this is to return the string set in advance with the prune method.

This feature is useful, like c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6126	6225	
==>l
this is to return the string set in advance with the prune method.

This feature is useful, like c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6126	6225	
==>l
this is to return the string set in advance with the prune method.

This feature is useful, like c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4357	4500	
==>sh',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4357	4500	
==>sh',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4357	4500	
==>sh',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7608	7729	
==>hr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(870 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7608	7729	
==>hr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(870 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4538	4634	
==>R <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4538	4634	
==>R <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4538	4634	
==>R <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15436	15527	
==>ncorporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15436	15527	
==>ncorporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7987	8144	
==>g list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junct <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7987	8144	
==>g list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junct <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7987	8144	
==>g list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junct <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14465	14562	
==>der.  Since it
internally uses the C<scan> method to build the string, the result
will use case as <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14465	14562	
==>der.  Since it
internally uses the C<scan> method to build the string, the result
will use case as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7905	8023	
==>lass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7905	8023	
==>lass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7905	8023	
==>lass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	889	990	
==>e

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter:: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	889	990	
==>e

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	831	947	
==>xy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	831	947	
==>xy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	831	947	
==>xy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5630	5738	
==>"$op ($condition) $then\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_st <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1585	1708	
==>current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_t <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1585	1708	
==>current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1547	1644	
==>) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1547	1644	
==>) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1547	1644	
==>) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	101	206	
==>6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	101	206	
==>6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	101	206	
==>6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6662	6764	
==>e->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6674	6776	
==>e->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1964	2095	
==>{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1964	2095	
==>{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4261	4354	
==>em,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4261	4354	
==>em,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4261	4354	
==>em,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	583	738	
==>path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	618	773	
==>path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	583	738	
==>path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $s <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9800	9955	
==>path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $s <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1056	1211	
==>path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13209	13359	
==>$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13209	13359	
==>$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13209	13359	
==>$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12750	12848	
==> $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a p <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12750	12848	
==> $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a p <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8398	8515	
==>1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Cabal version
        if ($has_new_cabal) { <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1801	1907	
==>a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $len = $leng <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	113	217	
==>('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	113	217	
==>('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	113	217	
==>('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PI <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1426	1528	
==>ns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1426	1528	
==>ns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8902	9001	
==>{...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8902	9001	
==>{...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8902	9001	
==>{...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULT <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1222	1320	
==>rity; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the mes <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1222	1320	
==>rity; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the mes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33918	34015	
==>@{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33918	34015	
==>@{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33918	34015	
==>@{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5850	6006	
==>efine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5850	6006	
==>efine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5850	6006	
==>efine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    di <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	335	439	
==>atchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	335	439	
==>atchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13445	13567	
==>t";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13445	13567	
==>t";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13445	13567	
==>t";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PS <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6281	6376	
==>t().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6281	6376	
==>t().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19639	19765	
==>POS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16060	16186	
==>POS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	516	625	
==>:node<Any>).add_children(
            Tree.new(:node<Void>).add_children(
                Tree.new(:node<Objec <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7154	7255	
==>e "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7166	7267	
==>e "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3347	3520	
==>age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # cor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3347	3520	
==>age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # cor <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	800	903	
==>('&',$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_decode($v <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3888	3988	
==>matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3888	3988	
==>matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9645	9804	
==>test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1734	1885	
==>test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1734	1885	
==>test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2538	2633	
==>s represents the query string portion of a requested URI.
It provides the following methods:

=o <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2538	2633	
==>s represents the query string portion of a requested URI.
It provides the following methods:

=o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4586	4702	
==>ist');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:meth <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21573	21671	
==>ow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20454	20552	
==>ow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21573	21671	
==>ow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20454	20552	
==>ow for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=it <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14022	14148	
==>get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14022	14148	
==>get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20723	20825	
==>}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20723	20825	
==>}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20723	20825	
==>}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13763	13885	
==>alized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available langu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13763	13885	
==>alized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available langu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15344	15446	
==>};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15344	15446	
==>};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15344	15446	
==>};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7753	7874	
==>n old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7753	7874	
==>n old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7753	7874	
==>n old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1072	1171	
==>we need to test to check for circular superclasses?
# I guess that we're not the superclass of any s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20561	20660	
==>hash %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :ascendant)))
     ( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5013	5124	
==>{
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handl <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5013	5124	
==>{
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	271	379	
==>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	271	379	
==>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	271	379	
==>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warni <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10341	10460	
==>int "$test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "s <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1502	1610	
==>_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fi <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1502	1610	
==>_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25546	25642	
==>nd as the GPL requires distribution of
source code.  However, for an additional fee, the copyrigh <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25546	25642	
==>nd as the GPL requires distribution of
source code.  However, for an additional fee, the copyrigh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2294	2387	
==>my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2294	2387	
==>my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30103	30194	
==>native for the functionality provided
by the 5 generic relational operators [C<extend>, C<pr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34655	34746	
==>native for the functionality provided
by the 5 generic relational operators [C<extend>, C<pr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33828	33919	
==>native for the functionality provided
by the 5 generic relational operators [C<extend>, C<pr <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7453	7628	
==>= defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7453	7628	
==>= defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14712	14799	
==>O::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14712	14799	
==>O::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14712	14799	
==>O::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {... <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3307	3432	
==>{
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3307	3432	
==>{
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22857	22953	
==>t it is incremented during the initial pass, so that on
the second pass (the tree-building), it c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	850	941	
==>t describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pendin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	850	941	
==>t describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pendin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15379	15506	
==>100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15379	15506	
==>100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15379	15506	
==>100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROY <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6559	6688	
==>d_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6752	6881	
==>d_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3249	3363	
==>s_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3249	3363	
==>s_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3249	3363	
==>s_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9836	9940	
==>s given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9836	9940	
==>s given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9836	9940	
==>s given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = fu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2161	2260	
==>ASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2161	2260	
==>ASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12282	12422	
==>date = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12282	12422	
==>date = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12282	12422	
==>date = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $sp <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2603	2713	
==>first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2603	2713	
==>first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2173	2276	
==>y $self = shift;
	my $node = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $reduce <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	205	299	
==>doc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	205	299	
==>doc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1224	1324	
==>') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1224	1324	
==>') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1224	1324	
==>') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4563	4659	
==>ire LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4563	4659	
==>ire LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	91	193	
==>STRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	91	193	
==>STRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	91	193	
==>STRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	66	161	
==>------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	66	161	
==>------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $. <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16901	17033	
==>$attrs'));     
            }
        )
    )
);

=pod

method BUILDALL (opaque $self: hash %params) returns nil {
    my $dispatcher <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6498	6599	
==>$topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto ope <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24574	24671	
==>s.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23338	23435	
==>s.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24574	24671	
==>s.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23338	23435	
==>s.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	802	919	
==>chable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	802	919	
==>chable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	802	919	
==>chable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38293	38388	
==>ssage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38293	38388	
==>ssage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modi <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	80	185	
==>ub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoper <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	80	185	
==>ub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoper <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	127	235	
==>s';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($kl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28291	28387	
==>debugging purposes (such as to test that the object's contents look
good at a glance); no attribu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35647	35743	
==>debugging purposes (such as to test that the object's contents look
good at a glance); no attribu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28291	28387	
==>debugging purposes (such as to test that the object's contents look
good at a glance); no attribu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35647	35743	
==>debugging purposes (such as to test that the object's contents look
good at a glance); no attribu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4361	4504	
==>',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4361	4504	
==>',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23023	23121	
==>nd values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27575	27673	
==>nd values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26352	26450	
==>nd values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7950	8086	
==>ELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_descr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2269	2405	
==>) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7950	8086	
==>ELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_descr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7950	8086	
==>ELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_descr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2269	2405	
==>) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{st <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11569	11675	
==>arser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  package Re <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14010	14104	
==>rs.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10237	10331	
==>rs.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14010	14104	
==>rs.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10237	10331	
==>rs.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

S <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13206	13322	
==>e: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9392	9508	
==>e: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10228	10344	
==>e: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16219	16325	
==>ss (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12640	12746	
==>ss (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6365	6524	
==>ew('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13953	14054	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13953	14054	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13953	14054	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must pr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9598	9687	
==>@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{'isNamed'};
	push(@args, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	110	237	
==>e strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	110	237	
==>e strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	110	237	
==>e strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUT <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3589	3709	
==>d \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4438	4558	
==>d \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1419	1520	
==>n.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJEC <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1419	1520	
==>n.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJEC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	967	1071	
==>FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	967	1071	
==>FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	967	1071	
==>FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}-> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3909	4011	
==>methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Ci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3909	4011	
==>methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Ci <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4392	4509	
==>ance_attrs($self)->{'%:methods'}->{$label};
        },
        'add_method' => sub ($$$) {
            my ($self, $lab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	77	191	
==>L::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Dev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	77	191	
==>L::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Dev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	77	191	
==>L::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Dev <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35111	35208	
==>s.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method r <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35111	35208	
==>s.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method r <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10884	11023	
==>tor();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iter <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10884	11023	
==>tor();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9407	9535	
==>>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9407	9535	
==>>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9407	9535	
==>>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	815	945	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	782	906	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	456	564	
==>jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	456	564	
==>jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	456	564	
==>jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2205	2366	
==>t>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an ar <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2205	2366	
==>t>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6510	6607	
==>@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6510	6607	
==>@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6510	6607	
==>@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4036	4171	
==>tate[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3912	4043	
==>tate[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13426	13540	
==>emijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16903	17017	
==>emijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16265	16379	
==>emijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3986	4096	
==>") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3986	4096	
==>") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3986	4096	
==>") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$se <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8896	9003	
==>re' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the pac <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8896	9003	
==>re' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the pac <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8287	8409	
==>ze($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8287	8409	
==>ze($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2077	2169	
==>e tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2077	2169	
==>e tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2077	2169	
==>e tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4372	4475	
==>ent {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_dat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4557	4660	
==>ent {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1281	1372	
==>:inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1281	1372	
==>:inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1281	1372	
==>:inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4045	4161	
==>f ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_cl <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1132	1248	
==>) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1099	1215	
==>) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4045	4161	
==>f ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4045	4161	
==>f ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_cl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1208	1456	
==>when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1208	1456	
==>when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2926	3052	
==>rs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2926	3052	
==>rs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2926	3052	
==>rs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11445	11553	
==>pec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11445	11553	
==>pec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11445	11553	
==>pec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9572	9664	
==>per_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9572	9664	
==>per_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	830	945	
==>) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	620	733	
==>) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1198	1311	
==>) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	620	733	
==>) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1186	1299	
==>) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9951	10067	
==>nes($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9951	10067	
==>nes($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9951	10067	
==>nes($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17563	17676	
==>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13984	14097	
==>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3969	4077	
==>exical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3981	4089	
==>exical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25769	25867	
==>s being the old names and its values the new names.
This method will fail if any C<$mapping> keys d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30321	30419	
==>s being the old names and its values the new names.
This method will fail if any C<$mapping> keys d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29287	29385	
==>s being the old names and its values the new names.
This method will fail if any C<$mapping> keys d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11476	11632	
==>n "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11476	11632	
==>n "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11476	11632	
==>n "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4897	5030	
==>ier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4897	5030	
==>ier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11347	11527	
==>::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a ha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11347	11527	
==>::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a ha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11347	11527	
==>::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1377	1503	
==>rn $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_objec <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8864	8969	
==>mes6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $default = $op{'paramDefault' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4125	4243	
==>+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4125	4243	
==>+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $matc <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3229	3340	
==>ry.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3229	3340	
==>ry.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1073	1167	
==>njunction> }

rule conjunction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjun <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5149	5248	
==>s a config file, and returns a boolean value
of success or failure

=item data

The C<data> method r <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5149	5248	
==>s a config file, and returns a boolean value
of success or failure

=item data

The C<data> method r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3244	3343	
==>_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3244	3343	
==>_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3244	3343	
==>_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8020	8117	
==>nt fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is fi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8020	8117	
==>nt fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2844	2949	
==>{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOpti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2844	2949	
==>{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOpti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2844	2949	
==>{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOpti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	387	489	
==>e,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = un <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	387	489	
==>e,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5424	5575	
==>=> $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5424	5575	
==>=> $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5424	5575	
==>=> $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9623	9723	
==>l indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invok <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9623	9723	
==>l indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invok <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17653	17806	
==>e'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17653	17806	
==>e'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	566	670	
==>$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	566	670	
==>$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	566	670	
==>$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1248	1350	
==>que data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1248	1350	
==>que data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1248	1350	
==>que data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36724	36818	
==>nslator object's Set and Member properties; if none
could be matched, this method returns undef <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36724	36818	
==>nslator object's Set and Member properties; if none
could be matched, this method returns undef <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	255	359	
==>ions;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	216	320	
==>ions;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	216	320	
==>ions;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1530	1629	
==>? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1530	1629	
==>? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7884	8037	
==>guments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argument <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7884	8037	
==>guments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argument <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7884	8037	
==>guments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argument <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19837	19936	
==>cation Scheme".  In array context it will return two
values; the user name and the password.  In sca <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19837	19936	
==>cation Scheme".  In array context it will return two
values; the user name and the password.  In sca <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7819	8014	
==>bj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7819	8014	
==>bj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	150	266	
==>omCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	150	266	
==>omCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	150	266	
==>omCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	451	573	
==>->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	451	573	
==>->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	451	573	
==>->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $sel <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13362	13479	
==>fic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13362	13479	
==>fic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2026	2173	
==>om,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2026	2173	
==>om,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2026	2173	
==>om,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$t <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1838	1949	
==>om,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$t <==
5	/Users/nnunley/pugs/util/config_h.pl	446	542	
==>_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8955	9078	
==>n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8955	9078	
==>n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8955	9078	
==>n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4068	4154	
==>s the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4068	4154	
==>s the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Ex <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14437	14613	
==>les can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17914	18090	
==>les can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17330	17506	
==>les can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!hea <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32101	32205	
==>r(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5417	5513	
==>multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4547	4643	
==>multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5417	5513	
==>multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4547	4643	
==>multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2093	2211	
==>e_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2874	2992	
==>e_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7838	7952	
==>not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3574	3675	
==>, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3574	3675	
==>, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Consta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Consta <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2005	2165	
==>param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2005	2165	
==>param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1387	1514	
==>ec'};
      }
      else { die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	85	197	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	89	201	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	83	195	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	82	194	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	83	195	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3190	3316	
==>ue::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v}) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3190	3316	
==>ue::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v}) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3190	3316	
==>ue::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v}) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2022	2119	
==>t_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=h <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2022	2119	
==>t_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=h <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	503	627	
==>re just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1048	1172	
==>re just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	503	627	
==>re just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1048	1172	
==>re just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1048	1172	
==>re just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3499	3617	
==>any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3499	3617	
==>any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3041	3146	
==>lass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3041	3146	
==>lass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3041	3146	
==>lass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('c <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3723	3968	
==>ymmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 0;
            }
            else {
                if rand <= .5 {
                    $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4858	4955	
==>*infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3985	4082	
==>*infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4858	4955	
==>*infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3985	4082	
==>*infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6883	7008	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6883	7008	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6883	7008	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4804	4900	
==>we use a fully qualified function name.

=back

The following are the (pseudo) methods for Config <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4804	4900	
==>we use a fully qualified function name.

=back

The following are the (pseudo) methods for Config <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6349	6516	
==>$ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1293	1408	
==>t is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1293	1408	
==>t is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1293	1408	
==>t is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	307	449	
==>"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quo <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	307	449	
==>"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21438	21533	
==>t from the other
attributes, though several attributes may store values of the same class;
every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25990	26085	
==>t from the other
attributes, though several attributes may store values of the same class;
every <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24623	24718	
==>t from the other
attributes, though several attributes may store values of the same class;
every <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	124	229	
==>r;
use base qw(Pugs::Grammar::BaseCategory);

sub add_rule {
    # print "add infix operator\n";
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25321	25414	
==>Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24085	24178	
==>Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25321	25414	
==>Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24085	24178	
==>Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7339	7449	
==>ray, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define these all in terms of kv, and leave kv a stub { <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12005	12100	
==>>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9126	9221	
==>>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12005	12100	
==>>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9126	9221	
==>>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1774	1883	
==>Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1914	2023	
==>Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'r <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2859	2952	
==>natives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3359	3451	
==>Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3359	3451	
==>Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1407	1506	
==>ft();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1407	1506	
==>ft();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1407	1506	
==>ft();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.pe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15484	15575	
==>ers, such as their preferred language of communication, or their
privileges regarding access <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15484	15575	
==>ers, such as their preferred language of communication, or their
privileges regarding access <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11269	11447	
==>0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11269	11447	
==>0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11269	11447	
==>0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15904	15997	
==>system for writing modules that I<compile> other
Perl modules.

Modules that use these compila <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15904	15997	
==>system for writing modules that I<compile> other
Perl modules.

Modules that use these compila <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9248	9424	
==>, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9248	9424	
==>, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3329	3444	
==>($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3329	3444	
==>($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3329	3444	
==>($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5808	5915	
==>rray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5808	5915	
==>rray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5808	5915	
==>rray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1194	1298	
==>ile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1194	1298	
==>ile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20679	20773	
==>ave to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20679	20773	
==>ave to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16145	16237	
==>$label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16145	16237	
==>$label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16145	16237	
==>$label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7229	7334	
==>ift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7229	7334	
==>ift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7229	7334	
==>ift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7488	7586	
==>_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basech <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7488	7586	
==>_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basech <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	145	246	
==>x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4321	4422	
==>d('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	145	246	
==>x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
mult <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4321	4422	
==>d('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4321	4422	
==>d('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23510	23659	
==>p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23510	23659	
==>p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23510	23659	
==>p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	720	819	
==>when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	720	819	
==>when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1849	1989	
==>l, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1788	1925	
==>l, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	596	702	
==>even'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	596	702	
==>even'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	596	702	
==>even'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14137	14277	
==>h
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10310	10450	
==>h
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11146	11286	
==>h
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14105	14203	
==>::Node Class

A Node object is a simple container which stores data to be used or
displayed by your <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14105	14203	
==>::Node Class

A Node object is a simple container which stores data to be used or
displayed by your <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1198	1315	
==>nsity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method unio <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1198	1315	
==>nsity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method unio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1190	1285	
==>for your tastes, and
you want to rebless everything down to your project's base namespace.

Clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1190	1285	
==>for your tastes, and
you want to rebless everything down to your project's base namespace.

Clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1190	1285	
==>for your tastes, and
you want to rebless everything down to your project's base namespace.

Clas <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	280	395	
==>ssing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1138	1253	
==>ssing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	30	126	
==>sition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	30	126	
==>sition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	30	126	
==>sition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmt <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	889	1078	
==>evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffe <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18328	18448	
==>('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21587	21707	
==>('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41593	41713	
==>('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44494	44614	
==>('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3723	3871	
==>ent>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                <? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18032	18201	
==>hod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18032	18201	
==>hod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18032	18201	
==>hod
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construc <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	483	580	
==>ream cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys sh <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	483	580	
==>ream cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys sh <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1516	1661	
==>($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ / <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22159	22251	
==>annel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropri <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21040	21132	
==>annel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropri <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22159	22251	
==>annel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropri <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21040	21132	
==>annel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8801	8906	
==>y @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8801	8906	
==>y @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8801	8906	
==>y @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # X <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7218	7312	
==>= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7218	7312	
==>= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	400	608	
==>. 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5580	5689	
==>}

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5580	5689	
==>}

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5580	5689	
==>}

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @ <==
5	/Users/nnunley/pugs/t/packages/Test.pm	352	460	
==>my package My::Package {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $arg2) is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1257	1352	
==>eout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1257	1352	
==>eout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1257	1352	
==>eout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11456	11593	
==>s Str $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wan <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1904	2029	
==>s Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wan <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1904	2029	
==>s Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8467	8563	
==>nels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8467	8563	
==>nels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2201	2322	
==>5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3693	3804	
==>ent {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3693	3804	
==>ent {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	198	307	
==>5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	198	307	
==>5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	877	1005	
==>key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	877	1005	
==>key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	877	1005	
==>key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17193	17313	
==>ults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("I <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17193	17313	
==>ults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7244	7407	
==>rn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7244	7407	
==>rn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7244	7407	
==>rn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        m <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1713	1810	
==>econstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "n <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1713	1810	
==>econstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "n <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7218	7332	
==>2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating inte <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7218	7332	
==>2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	449	559	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	449	559	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	449	559	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.B <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1135	1245	
==>y ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11067	11223	
==>referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11067	11223	
==>referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11067	11223	
==>referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3977	4095	
==>1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3977	4095	
==>1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3613	3791	
==>> -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3613	3791	
==>> -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2621	2772	
==>apture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2924	3064	
==>apture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2924	3064	
==>apture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4076	4190	
==>->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "]";
      }
    }
END
}

{
  package Ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7545	7653	
==>eos => '\z');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2538	2634	
==>, "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2538	2634	
==>, "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2538	2634	
==>, "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:« <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	555	808	
==>_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	555	808	
==>_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3013	3112	
==>r}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3013	3112	
==>r}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3013	3112	
==>r}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	657	785	
==>_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	657	785	
==>_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	657	785	
==>_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1731	1829	
==>tatement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1731	1829	
==>tatement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9690	9798	
==>y @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %ha <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9690	9798	
==>y @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6431	6536	
==>\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6431	6536	
==>\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6431	6536	
==>\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	493	633	
==>} ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	493	633	
==>} ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	493	633	
==>} ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SE <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3241	3338	
==>/^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('', <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3241	3338	
==>/^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('', <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6606	6708	
==>ories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4597	4699	
==>onstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6606	6708	
==>ories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4597	4699	
==>onstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4597	4699	
==>onstant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6191	6295	
==>}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6191	6295	
==>}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6191	6295	
==>}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17569	17670	
==>$str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17569	17670	
==>$str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7897	7999	
==>nd determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7897	7999	
==>nd determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5363	5463	
==>o refs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling meta <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2318	2458	
==>s on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempora <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2318	2458	
==>s on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempora <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4833	4926	
==>y_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4833	4926	
==>y_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4833	4926	
==>y_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::ex <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1286	1411	
==>gest->compute($self);
    }

    package Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	640	746	
==>L2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	640	746	
==>L2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	640	746	
==>L2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started b <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	962	1056	
==>Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
    my $sub = substr($code, <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3607	3726	
==>Z>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpa <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3607	3726	
==>Z>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20729	20824	
==>: ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20729	20824	
==>: ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20729	20824	
==>: ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13136	13240	
==>$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13136	13240	
==>$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13136	13240	
==>$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'm <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	891	989	
==>orker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($work <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	891	989	
==>orker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($work <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21935	22051	
==>isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7777	7883	
==>2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Tes <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8882	8980	
==>atchObjPos = -1;
  die "Missing ternary close at offset $whitespacePosition \n";
  return ( $matchO <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	22	116	
==>2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	22	116	
==>2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Tes <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17441	17664	
==>ny'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23407	23630	
==>ny'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17720	17943	
==>ny'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23686	23909	
==>ny'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5983	6103	
==>aw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) i <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	30704	30798	
==>was inspired by Larry Wall's TEST script that came
with perl distributions for ages. Numerous a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16269	16397	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = & <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12690	12818	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6381	6494	
==>js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6381	6494	
==>js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6381	6494	
==>js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6145	6245	
==>a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6145	6245	
==>a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVa <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8662	8789	
==>e = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_univers <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8662	8789	
==>e = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_univers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	625	727	
==>Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	625	727	
==>Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	625	727	
==>Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	105	204	
==>o warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    def <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	105	204	
==>o warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    def <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	105	204	
==>o warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    def <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12540	12638	
==>in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Mo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12540	12638	
==>in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4697	4823	
==>q '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13122	13248	
==>q '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15733	15859	
==>q '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17221	17347	
==>q '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21904	22030	
==>q '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->ty <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17196	17302	
==>) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20673	20779	
==>) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20251	20357	
==>) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18002	18099	
==>of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attached <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2361	2458	
==>of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attached <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2390	2521	
==>t
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9162	9293	
==>t
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2390	2521	
==>t
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9162	9293	
==>t
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34305	34394	
==>>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, digi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23522	23648	
==>new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23875	24001	
==>new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1401	1501	
==>List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1401	1501	
==>List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1401	1501	
==>List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1705	1839	
==>$chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    retur <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1705	1839	
==>$chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7137	7247	
==>JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7137	7247	
==>JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7137	7247	
==>JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? P <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11399	11506	
==>t::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submethod BUILD ( $.reason <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15485	15585	
==>t_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if t <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15485	15585	
==>t_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1851	1950	
==>t::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1851	1950	
==>t::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2133	2264	
==>> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trai <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2133	2264	
==>> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	283	400	
==>a {
    my $self = $_[0];
    return 1 if $_[1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] eq 'Num'  && defined <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6384	6491	
==>()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_c <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6384	6491	
==>()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_c <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4085	4268	
==>ep;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4085	4268	
==>ep;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5973	6076	
==>\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5973	6076	
==>\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5973	6076	
==>\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	135	242	
==>ame});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrouti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	135	242	
==>ame});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrouti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	135	242	
==>ame});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrouti <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4317	4417	
==>s starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the confi <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4317	4417	
==>s starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the confi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27730	27865	
==>t( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28009	28144	
==>t( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2640	2760	
==>ken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2640	2760	
==>ken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2640	2760	
==>ken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Clas <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7809	7945	
==>) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11810	11941	
==>) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11810	11941	
==>) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7044	7140	
==>e text of the header, that will be processed as a interpolated string (to allow for
any modifiers <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7044	7140	
==>e text of the header, that will be processed as a interpolated string (to allow for
any modifiers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2172	2274	
==>ero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2172	2274	
==>ero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2172	2274	
==>ero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	376	471	
==>=head1 NAME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Ver <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1372	1465	
==>_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10017	10159	
==>servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = und <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10017	10159	
==>servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = und <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	86	185	
==>unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	86	185	
==>unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	86	185	
==>unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35813	35949	
==>il until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35813	35949	
==>il until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35813	35949	
==>il until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	681	807	
==>ry Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'F <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	681	807	
==>ry Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'F <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3624	3780	
==>erl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*u <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3624	3780	
==>erl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*u <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	940	1048	
==>onfig.yml';
    my $config_template   = 'util/config-template.yml';
    $filename           ||= $ENV{PUGS_BUI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7829	7924	
==>uthorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authoriza <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7829	7924	
==>uthorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authoriza <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5411	5512	
==>.' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5411	5512	
==>.' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5411	5512	
==>.' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7836	7934	
==>element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_elem <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7836	7934	
==>element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2358	2470	
==>s); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2358	2470	
==>s); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2358	2470	
==>s); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8649	8745	
==>_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8707	8803	
==>_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_te <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3010	3119	
==>b assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcv <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3010	3119	
==>b assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcv <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1033	1130	
==>the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=b <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1033	1130	
==>the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1589	1686	
==>the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2390	2512	
==>($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2390	2512	
==>($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2390	2512	
==>($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16687	16795	
==>.content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'T <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16687	16795	
==>.content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'T <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25569	25668	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its att <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28255	28354	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its att <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30121	30220	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its att <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32807	32906	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its att <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10373	10466	
==>nly defined, non-blank, trimmed switches from the parms passed.

=cut

sub _cleaned_switches { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11677	11786	
==>ef($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11677	11786	
==>ef($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11677	11786	
==>ef($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29881	29975	
==>ery simple, consisting mainly of a data-stuffed hash
and an accessor method to read values from <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29881	29975	
==>ery simple, consisting mainly of a data-stuffed hash
and an accessor method to read values from <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5658	5790	
==>$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6926	7058	
==>$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5658	5790	
==>$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6914	7046	
==>$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1 <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1790	1881	
==>symbol})->(\[.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbo <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5449	5560	
==>f.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5449	5560	
==>f.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	695	804	
==>elf->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9863	9959	
==>ject, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `str <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9863	9959	
==>ject, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `str <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6245	6357	
==>har eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6233	6345	
==>har eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	124	219	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	124	219	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	124	219	
==>ription = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	813	918	
==>_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	813	918	
==>_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	813	918	
==>_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13271	13357	
==>\%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermina <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13271	13357	
==>\%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermina <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2709	2852	
==>ags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "fla <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2849	2992	
==>ags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "fla <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	89	188	
==>as Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod B <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	89	188	
==>as Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod B <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2384	2483	
==>at all.
# A couple of others I don't remember at the moment but should be mentioned...

package Back <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	107	220	
==>se 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rul <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	104	210	
==>se 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rul <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	98	204	
==>se 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	104	210	
==>se 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	98	204	
==>se 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rul <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	298	403	
==>PIL2;

my $debug_traverse = 0;

# tokenizer

sub tokenize ( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	96	195	
==>s this script highly depends on the
# exact commandline options given.)
# Searching for a way to kee <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	96	195	
==>s this script highly depends on the
# exact commandline options given.)
# Searching for a way to kee <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	96	195	
==>s this script highly depends on the
# exact commandline options given.)
# Searching for a way to kee <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2969	3066	
==>T(){ }LET pairs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvar <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	463	598	
==>dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shif <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	463	598	
==>dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17557	17675	
==>a( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17557	17675	
==>a( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17557	17675	
==>a( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2173	2361	
==>tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2173	2361	
==>tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2194	2302	
==>elete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2194	2302	
==>elete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2194	2302	
==>elete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8958	9092	
==>y', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { N <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8958	9092	
==>y', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { N <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8958	9092	
==>y', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { N <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3098	3194	
==>Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simp <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3098	3194	
==>Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7586	7693	
==>";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7586	7693	
==>";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	441	540	
==>nidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	441	540	
==>nidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	441	540	
==>nidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4412	4536	
==>( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4412	4536	
==>( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4412	4536	
==>( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->el <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	836	946	
==>lation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4314	4424	
==>lation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2201	2310	
==>oesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2201	2310	
==>oesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2201	2310	
==>oesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - w <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7343	7446	
==>se {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7401	7504	
==>se {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tes <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1513	1625	
==>method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2114	2226	
==>stant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Ar <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1513	1625	
==>method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2114	2226	
==>stant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2114	2226	
==>stant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	467	640	
==>e; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	382	555	
==>e; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	470	643	
==>e; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	361	475	
==>ule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	361	475	
==>ule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3570	3682	
==>{
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3570	3682	
==>{
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3570	3682	
==>{
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods' <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	525	632	
==>rrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c code compiled\n";
my $i = n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5494	5591	
==>is module provides an implementation for Perl 6 Rule categories.  

The module is still very unsta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4730	4829	
==>I SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4730	4829	
==>I SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4730	4829	
==>I SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1978	2073	
==>r( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1978	2073	
==>r( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	12	108	
==>Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5: <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	12	108	
==>Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3968	4108	
==>q[ -xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->preinst );
            if( -e $preinst && -s _ ) { <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8746	8856	
==>oin (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $deli <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	219	327	
==>oin (Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $deli <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1699	1802	
==>cial case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1699	1802	
==>cial case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3715	3828	
==>0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3899	4012	
==>0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	394	489	
==>Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	394	489	
==>Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	394	489	
==>Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15020	15115	
==>ment this as a mutually recursive multi-
sub which will be able to handle structures of arbitrar <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15078	15173	
==>ment this as a mutually recursive multi-
sub which will be able to handle structures of arbitrar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11522	11604	
==>nsumed it.

----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11522	11604	
==>nsumed it.

----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11522	11604	
==>nsumed it.

----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3274	3386	
==>me =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3274	3386	
==>me =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3274	3386	
==>me =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_stri <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12890	12985	
==>ol :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12948	13043	
==>ol :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str : <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9537	9633	
==>ntains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argumen <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16027	16123	
==>ntains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argumen <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9537	9633	
==>ntains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argumen <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16027	16123	
==>ntains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argumen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26498	26591	
==>dy must be
mutually distinct.

=item C<$!is_mutable> - B<Relation::Example Is Mutable>

Bool - <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5014	5125	
==>) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky thing <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	733	833	
==>iece of a Blondie program.";

   	$node->fmap(sub { $self->reduce($_[0]) });
}

__PACKAGE__;

__END__ <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	569	685	
==>tack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 c <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	253	351	
==>as a possible
# bootstrap path for perl6.

# The perl5 regexp engine is unfortunately entangled wit <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1823	1943	
==>ay "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take e <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1823	1943	
==>ay "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8108	8221	
==>$code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8108	8221	
==>$code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8108	8221	
==>$code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19736	19867	
==>);
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19736	19867	
==>);
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19736	19867	
==>);
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18714	18811	
==>to show human users.  This association would normally be
stored in a Perl file that defines and re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18714	18811	
==>to show human users.  This association would normally be
stored in a Perl file that defines and re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4641	4742	
==>:PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4641	4742	
==>:PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4641	4742	
==>:PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentr <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	305	403	
==>ions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is exp <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	305	403	
==>ions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31563	31761	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31563	31761	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31563	31761	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{item <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6815	6958	
==>data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6815	6958	
==>data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4180	4290	
==>se {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub di <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4238	4348	
==>se {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7727	7832	
==>{($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7727	7832	
==>{($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7727	7832	
==>{($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @cl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2545	2696	
==>> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2545	2696	
==>> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3614	3723	
==>set -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3614	3723	
==>set -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3614	3723	
==>set -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3354	3467	
==>:
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3354	3467	
==>:
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3354	3467	
==>:
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.ad <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	613	717	
==>s ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	613	717	
==>s ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38125	38287	
==>$item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38125	38287	
==>$item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38125	38287	
==>$item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Pe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11615	11735	
==>if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11615	11735	
==>if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1014	1170	
==>$name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remot <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1014	1170	
==>$name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remot <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9832	9954	
==>w_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $ir <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9832	9954	
==>w_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $ir <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2588	2685	
==>es a small sample of
Perl 6 syntax and semantics.

=head2 Other Perl 6 implementations

The Pugs/H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4025	4141	
==>g mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4025	4141	
==>g mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4025	4141	
==>g mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19399	19490	
==>tements are structured as
standard data manipulation statements but that the target relation <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19399	19490	
==>tements are structured as
standard data manipulation statements but that the target relation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9194	9296	
==>l',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9194	9296	
==>l',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9194	9296	
==>l',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16031	16129	
==>me
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has nat <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16031	16129	
==>me
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has nat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4267	4435	
==>gil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4267	4435	
==>gil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4267	4435	
==>gil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7086	7225	
==>ybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7086	7225	
==>ybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_matc <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10125	10220	
==>sing iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings i <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10125	10220	
==>sing iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	516	606	
==>::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(ble <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	516	606	
==>::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(ble <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	516	606	
==>::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(ble <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14662	14832	
==>e'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14662	14832	
==>e'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14662	14832	
==>e'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOL <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13532	13621	
==>\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13532	13621	
==>\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13514	13676	
==>off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13514	13676	
==>off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13514	13676	
==>off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2399	2561	
==>off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5702	5812	
==>U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safefree(r->prec <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	1270	1385	
==>.[$_];
    }
    
    return $value.($next, $u), tail($input);
  };
}

## Chapter 8 section 3.2

sub concatenate(Arr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20898	20997	
==>which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19815	19914	
==>which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20898	20997	
==>which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19815	19914	
==>which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6208	6324	
==>else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6208	6324	
==>else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6208	6324	
==>else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wor <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2718	2826	
==>~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

me <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2718	2826	
==>~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

me <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7749	7864	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7942	8057	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4603	4707	
==>unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4603	4707	
==>unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4603	4707	
==>unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unb <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6405	6515	
==>angs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_supp <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16381	16490	
==>->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2594	2691	
==>XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2594	2691	
==>XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2594	2691	
==>XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	697	803	
==>args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. Thi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	697	803	
==>args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. Thi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	697	803	
==>args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. Thi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4720	4822	
==>node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SE <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4720	4822	
==>node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SE <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1740	1853	
==>ir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2703	2803	
==>building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	533	633	
==>mations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @ar <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	533	633	
==>mations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @ar <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2703	2803	
==>building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4227	4327	
==>building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29522	29638	
==>ir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Ren <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29522	29638	
==>ir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Ren <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	334	442	
==>ir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Ren <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10255	10349	
==>new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Create <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10255	10349	
==>new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Create <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	20366	20499	
==>>{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubiou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39527	39632	
==>ist' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39527	39632	
==>ist' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39527	39632	
==>ist' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub sh <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5606	5705	
==>get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complem <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5606	5705	
==>get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2574	2662	
==>ttr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2574	2662	
==>ttr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2574	2662	
==>ttr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('g <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10564	10661	
==>t()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10564	10661	
==>t()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	850	945	
==>lar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	850	945	
==>lar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	850	945	
==>lar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28872	28992	
==>elcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28872	28992	
==>elcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1993	2102	
==>put);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value her <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1993	2102	
==>put);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value her <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	239	347	
==>elcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be i <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4940	5044	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  } <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4940	5044	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	943	1040	
==>plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	943	1040	
==>plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	943	1040	
==>plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaM <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2108	2214	
==>$path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2108	2214	
==>$path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21725	21824	
==>by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26277	26376	
==>by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24937	25036	
==>by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29176	29302	
==>sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29176	29302	
==>sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29176	29302	
==>sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    re <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	640	752	
==>o in native win32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33689	33788	
==>ce

Family: space

Types: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digit

Family: di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2034	2199	
==>($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2034	2199	
==>($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2034	2199	
==>($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retur <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1846	1963	
==>($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    retur <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19113	19225	
==>tion regular expression */
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18975	19082	
==>::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18975	19082	
==>::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18975	19082	
==>::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15940	16033	
==>e found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Be <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15998	16091	
==>e found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Be <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11671	11804	
==>hich may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2154	2284	
==>hich may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8926	9056	
==>hich may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2154	2284	
==>hich may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8926	9056	
==>hich may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17785	17880	
==>s
mapped to a user-readable message at some point.  For example, Oracle
databases often have err <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17785	17880	
==>s
mapped to a user-readable message at some point.  For example, Oracle
databases often have err <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1450	1544	
==>:_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1450	1544	
==>:_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1450	1544	
==>:_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.to <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4717	4840	
==>n_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4717	4840	
==>n_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6391	6488	
==>AP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6391	6488	
==>AP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8588	8685	
==>AP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3270	3376	
==>"class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3270	3376	
==>"class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3270	3376	
==>"class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	805	900	
==>e = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	805	900	
==>e = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2552	2654	
==>rc =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2552	2654	
==>rc =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2552	2654	
==>rc =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4925	5026	
==>thod end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4925	5026	
==>thod end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1252	1355	
==>erencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1252	1355	
==>erencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1252	1355	
==>erencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

su <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6033	6129	
==>t_dir,"Synopsis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_ind <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7852	7946	
==>ge Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30365	30484	
==>ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30365	30484	
==>ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30365	30484	
==>ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last i <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6224	6322	
==>ts : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibl <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6224	6322	
==>ts : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibl <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1445	1579	
==>lement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $siz <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1081	1215	
==>lement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $siz <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1445	1579	
==>lement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $siz <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1081	1215	
==>lement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $siz <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	75	172	
==>oof of concept.  A feasibility and performance reality check.
# Hopefully it will develop into a p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1526	1638	
==>e $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3169	3281	
==>eturn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operat <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1526	1638	
==>e $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3169	3281	
==>eturn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3169	3281	
==>eturn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operat <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15392	15491	
==>xpect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represen <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8969	9068	
==>primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15392	15491	
==>xpect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8969	9068	
==>primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8969	9068	
==>primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8051	8178	
==>for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8051	8178	
==>for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8051	8178	
==>for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	92	211	
==>char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must chec <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	92	211	
==>char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must chec <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8145	8258	
==>*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8338	8451	
==>*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3968	4067	
==>ns:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4152	4251	
==>ns:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ra <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8951	9049	
==>with $y->{name} in " . Dumper(@_);

	unify($x->{param}, $y->{param}, @_);
};

multi unify => ('type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12173	12283	
==>un::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12173	12283	
==>un::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12173	12283	
==>un::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30985	31076	
==>ich case
this method returns the identity-one Relation or the invocant relation,
respectivel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35535	35626	
==>ich case
this method returns the identity-one Relation or the invocant relation,
respectivel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2678	2837	
==>egex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2871	3030	
==>egex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	645	743	
==>f "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	645	743	
==>f "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	645	743	
==>f "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7157	7375	
==>) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub _c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16972	17086	
==>back
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @qu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16972	17086	
==>back
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @qu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	13	114	
==>rl

package Blondie::Nodes;
use base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class: <==
5	/Users/nnunley/pugs/util/version_h.pl	91	183	
==>. "/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15364	15468	
==>f }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15364	15468	
==>f }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15364	15468	
==>f }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	129	226	
==>_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a path <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	129	226	
==>_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a path <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7087	7206	
==>r(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(83 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7087	7206	
==>r(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(83 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3859	3968	
==>s($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3859	3968	
==>s($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3859	3968	
==>s($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    } <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	184	288	
==>t COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0 <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	184	288	
==>t COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1155	1255	
==>JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1155	1255	
==>JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1155	1255	
==>JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	857	966	
==>de has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	857	966	
==>de has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	857	966	
==>de has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7383	7487	
==>", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normaliz <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7383	7487	
==>", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normaliz <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10063	10219	
==>_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6404	6560	
==>_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7253	7409	
==>_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1295	1387	
==>/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/ <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1295	1387	
==>/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52026	52223	
==>et('$self:')->get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    ) <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1338	1439	
==>" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea nam <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1338	1439	
==>" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1863	1958	
==>insic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1791	1884	
==>insic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	615	787	
==>l end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] \n";
    return {
        bo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21713	21810	
==>om the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20594	20691	
==>om the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> ne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21713	21810	
==>om the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> ne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20594	20691	
==>om the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26361	26523	
==>' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::string <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26361	26523	
==>' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::string <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26361	26523	
==>' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::string <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	1	98	
==>se v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific method <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	1	98	
==>se v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8225	8365	
==>y;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8225	8365	
==>y;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2502	2605	
==>s.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2502	2605	
==>s.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2502	2605	
==>s.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n% <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	686	797	
==>ule source: ', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	210	316	
==>$_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	210	316	
==>$_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	210	316	
==>$_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2309	2406	
==>ION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11482	11608	
==>ubmethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1926	2044	
==>ubmethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1926	2044	
==>ubmethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	760	862	
==>known node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	848	950	
==>known node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1120	1244	
==>not specify any filenames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13935	14054	
==>ds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13935	14054	
==>ds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13005	13116	
==>ds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13005	13116	
==>ds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	355	459	
==>th_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module t <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	355	459	
==>th_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12285	12382	
==>); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12285	12382	
==>); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12285	12382	
==>); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2340	2556	
==>.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2340	2556	
==>.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5430	5534	
==>y @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5430	5534	
==>y @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5430	5534	
==>y @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1141	1260	
==>origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1141	1260	
==>origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1141	1260	
==>origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7056	7170	
==>am};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node ty <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7068	7182	
==>am};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1385	1510	
==>lassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1385	1510	
==>lassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1385	1510	
==>lassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #} <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	600	687	
==>dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support t <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	600	687	
==>dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support t <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9275	9380	
==>g) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859- <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9275	9380	
==>g) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17313	17412	
==>ing.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20790	20889	
==>ing.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20368	20467	
==>ing.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3782	3912	
==>ake_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3782	3912	
==>ake_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3782	3912	
==>ake_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    :: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13579	13678	
==>::carp("p6_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { $as_arr <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	3098	3195	
==>ib} = 'C:\usr\site\lib';
    require Data::Dumper;
    print Data::Dumper::Dumper(get_config());
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18836	18951	
==>6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18836	18951	
==>6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18836	18951	
==>6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2979	3086	
==>[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2979	3086	
==>[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	619	715	
==>* Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	619	715	
==>* Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	619	715	
==>* Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32552	32646	
==>e attributes for configuration, its
main purpose is to convert Message objects on demand into u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32552	32646	
==>e attributes for configuration, its
main purpose is to convert Message objects on demand into u <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27549	27646	
==>to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspondi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32101	32198	
==>to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspondi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28390	28480	
==>into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32942	33032	
==>into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32070	32160	
==>into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are b <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11673	11790	
==>current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11673	11790	
==>current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3108	3198	
==>ons] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3108	3198	
==>ons] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3108	3198	
==>ons] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15241	15379	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15241	15379	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15241	15379	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pa <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5894	5994	
==>(" . join(", ", @params) . ") {" . join("\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4339	4432	
==>. go the right class name for Point3D');
is($p3d->prototype->class, \&Point, '... go the right <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2089	2206	
==>bose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ": <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	403	520	
==>bose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ": <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2089	2206	
==>bose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ": <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2089	2206	
==>bose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ": <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5134	5245	
==>>compile( q(
            <Pugs::Grammar::Term.double_quoted>
            { return { double_quoted => $/{'Pugs::G <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22479	22579	
==>- see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22479	22579	
==>- see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22479	22579	
==>- see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internal <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5673	5768	
==>span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5673	5768	
==>span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3219	3343	
==>s array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{lab <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3219	3343	
==>s array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{lab <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1031	1131	
==>=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B< <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1031	1131	
==>=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1578	1678	
==>=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	151	259	
==>m in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	151	259	
==>m in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	151	259	
==>m in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	402	506	
==>his sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	402	506	
==>his sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	39	152	
==>arnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	39	152	
==>arnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	39	152	
==>arnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	454	562	
==>pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	454	562	
==>pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	454	562	
==>pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14506	14604	
==>> method to build the string, the result
will use case as suggested by HTTP spec, and it will follo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14506	14604	
==>> method to build the string, the result
will use case as suggested by HTTP spec, and it will follo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3525	3636	
==>name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3525	3636	
==>name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3525	3636	
==>name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29997	30092	
==>plate hash
key corresponds to the Message Key attribute of a Message object, and each
hash value <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29997	30092	
==>plate hash
key corresponds to the Message Key attribute of a Message object, and each
hash value <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	292	399	
==>thods.  Just for internal 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	632	738	
==>UE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contai <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9876	9982	
==>Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@{$o->data}{'min', <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	632	738	
==>UE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	632	738	
==>UE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contai <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3325	3444	
==>able gives us a hint to the
        # cygwin root.  There is probably a better way to find this.
        # (registry loo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12264	12367	
==>' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6831	6934	
==>' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12264	12367	
==>' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6831	6934	
==>' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35977	36130	
==>length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35977	36130	
==>length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35977	36130	
==>length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15335	15430	
==>ion written to it should behave identically no matter which
conforming "Engine" is in use.

Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15335	15430	
==>ion written to it should behave identically no matter which
conforming "Engine" is in use.

Rose <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7736	7841	
==>sname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7736	7841	
==>sname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7736	7841	
==>sname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1382	1477	
==>self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1382	1477	
==>self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2697	2831	
==>ed $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2697	2831	
==>ed $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2697	2831	
==>ed $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9240	9354	
==>nt-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::He <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9240	9354	
==>nt-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::He <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17146	17278	
==>perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17146	17278	
==>perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nic <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13447	13552	
==>> todo</span>,<br />
                <span class="tests_skipped"><tmpl_var name=skipped> skipped</span> an <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7341	7443	
==>ntain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lis <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7341	7443	
==>ntain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	477	583	
==>rgs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	477	583	
==>rgs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	477	583	
==>rgs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	84	182	
==>s C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method ass <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	84	182	
==>s C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method ass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	92	221	
==>sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	92	221	
==>sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	92	221	
==>sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23441	23554	
==>s {  # see clause 13
      <SourceElements>
}
rule Program :words {  # see clause 14
      <SourceElements>
}
rule <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1820	1933	
==>alue;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15670	15797	
==>= 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15670	15797	
==>= 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15670	15797	
==>= 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15805	15925	
==>,
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) },
      scalar_numeric     => sub <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15428	15530	
==>ression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5599	5702	
==>be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5599	5702	
==>be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5668	5767	
==>);
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5668	5767	
==>);
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5668	5767	
==>);
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbox <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3191	3302	
==>">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !de <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1862	1959	
==>from top level.
    delete $args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18476	18577	
==>ample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18672	18773	
==>ample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18886	18987	
==>ample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19088	19189	
==>ample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19423	19524	
==>ample $other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2308	2422	
==>x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2308	2422	
==>x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2308	2422	
==>x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7212	7324	
==>start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7212	7324	
==>start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_open <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3482	3591	
==>epc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3482	3591	
==>epc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3482	3591	
==>epc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	689	787	
==>atement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	895	993	
==>atement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1202	1295	
==>( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1202	1295	
==>( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6824	7000	
==>subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                nex <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3620	3756	
==>user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4937	5073	
==>user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3620	3756	
==>user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4925	5061	
==>user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3545	3707	
==>q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (< <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3792	3954	
==>q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11065	11210	
==>return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11065	11210	
==>return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11065	11210	
==>return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5111	5247	
==>ern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5111	5247	
==>ern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5111	5247	
==>ern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18781	18877	
==>998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid thi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18781	18877	
==>998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4500	4596	
==>oming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4500	4596	
==>oming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5090	5186	
==>oming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8054	8149	
==>llows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' direct <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8054	8149	
==>llows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' direct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11101	11253	
==>);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11101	11253	
==>);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11101	11253	
==>);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $su <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9332	9427	
==>s not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9332	9427	
==>s not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C< <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20682	20821	
==>h @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20961	21100	
==>h @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	890	987	
==>rithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, cou <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	890	987	
==>rithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, cou <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	890	987	
==>rithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, cou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6853	6962	
==>is_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6853	6962	
==>is_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6853	6962	
==>is_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16417	16512	
==>users to add
support for new languages easily and without a recompile (such as by simply
copying <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16417	16512	
==>users to add
support for new languages easily and without a recompile (such as by simply
copying <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3608	3716	
==>};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3608	3716	
==>};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3608	3716	
==>};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24626	24722	
==>www.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You shou <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24626	24722	
==>www.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You shou <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3660	3792	
==>xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3660	3792	
==>xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1578	1687	
==>"compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1578	1687	
==>"compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1578	1687	
==>"compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2946	3086	
==>t;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2946	3086	
==>t;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	760	852	
==>fix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	760	852	
==>fix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	760	852	
==>fix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2041	2171	
==>f;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2041	2171	
==>f;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2041	2171	
==>f;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33620	33711	
==>multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation $othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38170	38261	
==>multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5657	5780	
==>my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9968	10091	
==>my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	368	464	
==>w Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obj <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	368	464	
==>w Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obj <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	368	464	
==>w Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	722	848	
==>),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	722	848	
==>),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	722	848	
==>),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26m <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	667	771	
==>%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1948	2052	
==>%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10325	10467	
==>($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10325	10467	
==>($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10325	10467	
==>($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[id <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	185	302	
==>ew_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL::Run::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1	91	
==>package Perl6::Core::Hash;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::S <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5196	5416	
==>terface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 360 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5196	5416	
==>terface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 360 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9273	9385	
==>>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9273	9385	
==>>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9273	9385	
==>>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1746	1884	
==>sufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1746	1884	
==>sufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6180	6271	
==>xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6180	6271	
==>xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6180	6271	
==>xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1087	1241	
==>te $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1227	1381	
==>te $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	825	914	
==>w PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	825	914	
==>w PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	825	914	
==>w PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23009	23191	
==>th multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23009	23191	
==>th multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23009	23191	
==>th multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3739	3858	
==>dule, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we ca <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3739	3858	
==>dule, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we ca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18727	18822	
==>t will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17770	17865	
==>t will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18727	18822	
==>t will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17770	17865	
==>t will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop th <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22337	22421	
==>ar_type(Cb,to_lower(C)).

charset_member(_E,C,[char(C)|_]) :- !.
charset_member(E0,C, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5158	5291	
==>art/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5158	5291	
==>art/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1704	1827	
==>t will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1704	1827	
==>t will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1704	1827	
==>t will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_in <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4171	4288	
==>se,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complem <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4171	4288	
==>se,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complem <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2572	2674	
==>r = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2572	2674	
==>r = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2572	2674	
==>r = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4214	4339	
==>+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4214	4339	
==>+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	205	307	
==>";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	205	307	
==>";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	205	307	
==>";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12191	12307	
==>param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12191	12307	
==>param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12191	12307	
==>param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	50	140	
==><uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	50	140	
==><uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7342	7480	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7342	7480	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7342	7480	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4360	4491	
==>pan.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4360	4491	
==>pan.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8036	8147	
==>op
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @bloc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8036	8147	
==>op
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @bloc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	244	353	
==>JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	244	353	
==>JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	244	353	
==>JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor ha <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6635	6771	
==>e     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe   (rw!Pair <==
5	/Users/nnunley/pugs/util/package-osx.pl	521	636	
==>mble
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/loc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5220	5374	
==>ndex] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5208	5362	
==>ndex] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3291	3401	
==>rray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3291	3401	
==>rray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3291	3401	
==>rray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->par <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3070	3223	
==>b {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3070	3223	
==>b {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	52	153	
==>implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	52	153	
==>implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	52	153	
==>implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5158	5262	
==>refix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5158	5262	
==>refix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5158	5262	
==>refix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	971	1069	
==>$x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	971	1069	
==>$x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2268	2408	
==>ing of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2268	2408	
==>ing of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    % <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3061	3169	
==>n_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3061	3169	
==>n_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3061	3169	
==>n_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31506	31702	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31506	31702	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31506	31702	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, sh <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11146	11238	
==>status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11146	11238	
==>status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	435	551	
==>turn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	435	551	
==>turn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	435	551	
==>turn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } = <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4392	4481	
==>rypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4392	4481	
==>rypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting <==
5	/Users/nnunley/pugs/util/ghc_setup.pl	459	601	
==>l';
    }
    else {
        # If this is merely a copy, tell the user to "make register".
        $prompt_register = 1;
    }
}
print "*** Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	857	955	
==>();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	857	955	
==>();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	857	955	
==>();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26881	26974	
==>nd/or
same-named accessor method can be used to see if a Relation::Example-doing object
can mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	474	572	
==>File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	474	572	
==>File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	474	572	
==>File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($E <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3593	3679	
==>:= <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3777	3863	
==>:= <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4470	4572	
==>lf->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4123	4223	
==>lti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3250	3350	
==>lti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4123	4223	
==>lti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3250	3350	
==>lti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode uni <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8302	8399	
==>m_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8360	8457	
==>m_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12890	13016	
==>ed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12890	13016	
==>ed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12890	13016	
==>ed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || con <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2986	3089	
==>odo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2986	3089	
==>odo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2260	2373	
==>rn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2260	2373	
==>rn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3054	3153	
==>b _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3054	3153	
==>b _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3054	3153	
==>b _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1787	1935	
==>s) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1787	1935	
==>s) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1787	1935	
==>s) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5174	5304	
==>or taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5174	5304	
==>or taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14694	14819	
==>however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14694	14819	
==>however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14694	14819	
==>however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1090	1203	
==>however at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so ....
    m <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16273	16376	
==>elf->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6749	6896	
==>'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6749	6896	
==>'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6749	6896	
==>'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	514	624	
==>_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  -- <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	514	624	
==>_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  -- <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5991	6090	
==>$two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mult <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5121	5220	
==>$two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5991	6090	
==>$two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5121	5220	
==>$two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mult <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2766	2858	
==>running the test
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=b <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5800	6050	
==>d $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                } <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5800	6050	
==>d $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17056	17210	
==>s
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17056	17210	
==>s
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17056	17210	
==>s
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5520	5642	
==>x:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5520	5642	
==>x:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1688	1796	
==>re can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1688	1796	
==>re can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1688	1796	
==>re can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # meth <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10940	11045	
==>s::openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4336	4434	
==>not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4336	4434	
==>not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str { <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5209	5306	
==>not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5209	5306	
==>not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7006	7107	
==>cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode role <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7006	7107	
==>cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode role <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6726	6824	
==>>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6726	6824	
==>>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6726	6824	
==>>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ( <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	284	411	
==>d tail drop upto upfrom show promise
#                 filter transform merge list_to_stream cutsort
#                 iterate_f <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6319	6424	
==>d;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6319	6424	
==>d;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6099	6202	
==>rammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5889	5989	
==>rammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2826	2947	
==>n = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2826	2947	
==>n = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2826	2947	
==>n = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "th <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14184	14279	
==>r blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14242	14337	
==>r blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1366	1481	
==>mpile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an imple <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1366	1481	
==>mpile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an imple <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24243	24344	
==>w->new($a, $a);

	is($type->stringify, "∀α. α → α", "pretty print a -> a");
}
{
	my $type = typ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4929	5025	
==>L1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18873	18963	
==>$code)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_log <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1215	1358	
==>n unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1165	1303	
==>n unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4526	4637	
==>close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4526	4637	
==>close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4526	4637	
==>close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12562	12689	
==>')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12562	12689	
==>')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12562	12689	
==>')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2664	2777	
==>: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2804	2917	
==>: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15743	15953	
==>Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15743	15953	
==>Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15743	15953	
==>Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1113	1205	
==>ON

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filte <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1113	1205	
==>ON

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	481	590	
==>e {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sca <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	481	590	
==>e {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sca <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	481	590	
==>e {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sca <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	19	119	
==>e v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	19	119	
==>e v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7023	7120	
==>s,$lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5124	5220	
==>ot_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4251	4347	
==>ot_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($t <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5124	5220	
==>ot_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($t <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4251	4347	
==>ot_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	705	858	
==>turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d

In <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18318	18412	
==>d other Perl code such as persistence
solutions.  Moreover, these data structures are in exactl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18318	18412	
==>d other Perl code such as persistence
solutions.  Moreover, these data structures are in exactl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13223	13316	
==>d other Perl code such as persistence solutions.
Moreover, these data structures are in exactl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13223	13316	
==>d other Perl code such as persistence solutions.
Moreover, these data structures are in exactl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	103	203	
==>05-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	103	203	
==>05-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	103	203	
==>05-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), k <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7792	7891	
==>&Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: ' <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7850	7949	
==>&Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: ' <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	733	829	
==>rns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	733	829	
==>rns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10267	10363	
==>ionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
rule Regular <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15564	15659	
==><Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15564	15659	
==><Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7085	7187	
==>crement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7085	7187	
==>crement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7085	7187	
==>crement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tm <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4827	4917	
==>assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4827	4917	
==>assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11424	11618	
==>[ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11424	11618	
==>[ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14283	14403	
==>f ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17760	17880	
==>f ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17176	17296	
==>f ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18530	18630	
==>n
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19888	19988	
==>n
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21118	21211	
==>fix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21118	21211	
==>fix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21118	21211	
==>fix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$x <==
5	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	663	819	
==>stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	449	553	
==>ire $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "delet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8716	8819	
==>ire $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "delet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8716	8819	
==>ire $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "delet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8716	8819	
==>ire $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "delet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19986	20112	
==>DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19986	20112	
==>DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19986	20112	
==>DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 1 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22078	22190	
==>x/::/g;    
    if($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28065	28155	
==>t__> Base Class

All nodes inherit from F<Regexp::Parser::__object__> the following
methods <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4838	4988	
==>&{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4838	4988	
==>&{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15413	15521	
==>end}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15413	15521	
==>end}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15413	15521	
==>end}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8798	8957	
==>s number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #t <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2510	2668	
==>iven $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|para <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2510	2668	
==>iven $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12700	12827	
==>s number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12700	12827	
==>s number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1810	1965	
==>my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1810	1965	
==>my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1810	1965	
==>my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" i <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4304	4405	
==>s (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4304	4405	
==>s (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15778	15893	
==>Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15778	15893	
==>Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2911	3017	
==>> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2911	3017	
==>> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2911	3017	
==>> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7441	7588	
==>file ) ) {
        return 1;

    } else {        
        error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	745	857	
==>:PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	745	857	
==>:PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	745	857	
==>:PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } el <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2949	3045	
==>sent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2949	3045	
==>sent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	134	235	
==>&g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	134	235	
==>&g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4935	5029	
==>ociativity of the original operator and auto-metaed versions
# of user-defined ops are not gene <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4935	5029	
==>ociativity of the original operator and auto-metaed versions
# of user-defined ops are not gene <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4935	5029	
==>ociativity of the original operator and auto-metaed versions
# of user-defined ops are not gene <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5339	5523	
==>ody >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5339	5523	
==>ody >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1045	1169	
==>ck>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1445	1569	
==>ck>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1919	2043	
==>ck>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4896	5086	
==>}, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6528	6624	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5658	5754	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6528	6624	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5658	5754	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6399	6500	
==>port {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Pa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6399	6500	
==>port {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	734	834	
==>ys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	734	834	
==>ys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	734	834	
==>ys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6. <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1273	1369	
==>nt, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daugh <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1273	1369	
==>nt, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daugh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	249	344	
==>! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	249	344	
==>! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	249	344	
==>! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2435	2545	
==>une;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2435	2545	
==>une;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2435	2545	
==>une;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($pr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18955	19047	
==>has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18955	19047	
==>has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35233	35375	
==>ft_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35233	35375	
==>ft_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35233	35375	
==>ft_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=sh <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	384	485	
==>{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1111	1209	
==>{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2243	2379	
==>s" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2243	2379	
==>s" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2243	2379	
==>s" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1313	1405	
==>ompiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1313	1405	
==>ompiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	502	610	
==>lass->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5552	5651	
==>2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5552	5651	
==>2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5552	5651	
==>2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self- <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	71	163	
==>rocessing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perld <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	71	163	
==>rocessing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perld <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17965	18158	
==>lass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17965	18158	
==>lass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17965	18158	
==>lass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	374	562	
==>ode_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, " . 
                    "style = roun <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1134	1220	
==>_args";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10120	10263	
==>${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10120	10263	
==>${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10120	10263	
==>${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	462	564	
==>ite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIP <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	462	564	
==>ite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIP <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	746	906	
==>oken;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http://mail. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2066	2205	
==>print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2066	2205	
==>print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2066	2205	
==>print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3541	3648	
==>);
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$gram <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4228	4354	
==>n.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7705	7831	
==>n.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    d <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6261	6355	
==>t::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6261	6355	
==>t::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8458	8552	
==>t::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Thi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13825	13938	
==>ad of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13819	13932	
==>ad of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16124	16214	
==>$self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16124	16214	
==>$self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16124	16214	
==>$self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_l <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13172	13268	
==>ction the arrow operator, applied to the type of the parameter (as allocated in the new env), and <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10475	10569	
==>i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` m <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17417	17511	
==>i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` m <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10475	10569	
==>i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17417	17511	
==>i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7168	7295	
==>now if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7168	7295	
==>now if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7168	7295	
==>now if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	641	760	
==>=> $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	641	760	
==>=> $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_m <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10901	10996	
==>fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10901	10996	
==>fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	929	1022	
==>hly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	929	1022	
==>hly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1476	1569	
==>hly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1879	1996	
==>tar( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1890	2007	
==>tar( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4569	4664	
==>mpiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Avail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4569	4664	
==>mpiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Avail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4569	4664	
==>mpiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Avail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3727	3905	
==>->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3727	3905	
==>->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3727	3905	
==>->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3868	3967	
==>s }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi su <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3868	3967	
==>s }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi su <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2019	2226	
==>eading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expor <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5496	5703	
==>eading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expor <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4426	4633	
==>eading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10704	10827	
==>>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10704	10827	
==>>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10704	10827	
==>>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2217	2335	
==>tart";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

metho <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2217	2335	
==>tart";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8128	8325	
==>$tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8128	8325	
==>$tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8128	8325	
==>$tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->n <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1283	1434	
==>$meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand wavin <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1283	1434	
==>$meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand wavin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	907	1011	
==>my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	907	1011	
==>my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	907	1011	
==>my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16052	16149	
==>irst time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16052	16149	
==>irst time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4022	4133	
==>optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' han <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3880	3988	
==>optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' han <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	868	971	
==>ull_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	868	971	
==>ull_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	868	971	
==>ull_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5955	6074	
==>$_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5955	6074	
==>$_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5955	6074	
==>$_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17248	17345	
==>($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$ne <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13669	13766	
==>($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9740	9858	
==>lems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9740	9858	
==>lems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9740	9858	
==>lems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elem <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	142	250	
==>arent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.par <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	142	250	
==>arent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.par <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18347	18445	
==>users, easy messages are
better.

I have found that when it comes to getting the most accurate prog <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18347	18445	
==>users, easy messages are
better.

I have found that when it comes to getting the most accurate prog <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1226	1320	
==>def;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1226	1320	
==>def;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1226	1320	
==>def;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5212	5343	
==>plify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $resul <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5212	5343	
==>plify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $resul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2363	2458	
==>ing(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2363	2458	
==>ing(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2363	2458	
==>ing(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22304	22413	
==>};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22304	22413	
==>};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22304	22413	
==>};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_] <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5730	5829	
==>ool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5730	5829	
==>ool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12118	12245	
==>est::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Tes <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2520	2633	
==>est::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2520	2633	
==>est::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Tes <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6275	6375	
==>m'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
no <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6275	6375	
==>m'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37258	37423	
==>os == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37258	37423	
==>os == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37258	37423	
==>os == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spli <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9707	9835	
==>pulated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9707	9835	
==>pulated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2853	2957	
==>e class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value ob <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2853	2957	
==>e class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value ob <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3650	3749	
==>e Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3650	3749	
==>e Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans. <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	552	650	
==>riable names.
*verbose  = *Verbose;
*switches = *Switches;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22052	22160	
==>about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from origina <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16954	17061	
==>about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from origina <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2592	2695	
==>ule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2776	2879	
==>ule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('para <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	71	173	
==>01';

use File::Copy;

# change these two lines if it turns out we need the real YAML.pm
use PugsBuild: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6213	6323	
==>1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	351	466	
==>exPerl5;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	141	243	
==>w(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	145	247	
==>w(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	139	241	
==>w(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	139	241	
==>w(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4283	4388	
==>$@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4283	4388	
==>$@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4283	4388	
==>$@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12182	12276	
==>alue if the parameter is a member of the recurrence.
Otherwise, returns the previous element in <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12182	12276	
==>alue if the parameter is a member of the recurrence.
Otherwise, returns the previous element in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15369	15474	
==>ub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15369	15474	
==>ub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15369	15474	
==>ub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $ <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	385	513	
==>or $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.]) <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	385	513	
==>or $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.]) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	470	584	
==>readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	505	619	
==>readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	470	584	
==>readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4891	5060	
==>[0]->{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1187	1334	
==>ay o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2, <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1187	1334	
==>ay o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2, <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1989	2100	
==>g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world was young, the moun <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	25719	25814	
==>ne of the
above messages.

=item C<FAILED--Further testing stopped: %s>

If a single subtest dec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8465	8602	
==>_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8465	8602	
==>_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8465	8602	
==>_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5657	5760	
==>e_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5657	5760	
==>e_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6561	6657	
==>args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6561	6657	
==>args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7432	7527	
==>args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7432	7527	
==>args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args) <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8847	8938	
==>bleStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule DoubleStrin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	511	685	
==>:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	511	685	
==>:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	511	685	
==>:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Clas <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	539	630	
==>d1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	539	630	
==>d1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2571	2671	
==>_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2571	2671	
==>_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2571	2671	
==>_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	12	103	
==>Rule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Resu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	12	103	
==>Rule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Resu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5056	5168	
==>method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5056	5168	
==>method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5056	5168	
==>method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	81	183	
==>vent {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	81	183	
==>vent {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7052	7176	
==>{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1400	1510	
==>{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1400	1510	
==>{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1400	1510	
==>{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modif <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6472	6576	
==>urns nil
    ((($self: get_attr (symbol new (%:methods))) store ($label $method))))

=cut

{
    # add th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7206	7321	
==>in),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7206	7321	
==>in),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7206	7321	
==>in),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ pa <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	343	441	
==>hod block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	343	441	
==>hod block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2627	2778	
==>_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2541	2687	
==>_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	214	323	
==>ngs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	214	323	
==>ngs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	214	323	
==>ngs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12399	12519	
==>nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12399	12519	
==>nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!hand <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6446	6560	
==>pe' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6446	6560	
==>pe' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22814	22900	
==>(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20161	20256	
==>fic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19120	19215	
==>fic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20161	20256	
==>fic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19120	19215	
==>fic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1058	1151	
==>nd a JIB::Package::Installed
on a META_OBJ.

XXX needs verification
XXX needs binary package r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1326	1423	
==>oper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1326	1423	
==>oper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($tw <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4336	4431	
==>iously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$desc <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4336	4431	
==>iously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$desc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4416	4511	
==>iously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$desc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	509	609	
==>@_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	509	609	
==>@_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	509	609	
==>@_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1851	1949	
==>.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1851	1949	
==>.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi s <==
5	/Users/nnunley/pugs/util/config_h.pl	1467	1564	
==>te Haskell compiler backends disabled.  If you want
    Template Haskell support, please compile y <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8073	8168	
==>rs }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7203	7298	
==>rs }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8073	8168	
==>rs }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7203	7298	
==>rs }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21439	21533	
==>allback to be executed when the bot receives a corresponding message.
Event names which are all <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20320	20414	
==>allback to be executed when the bot receives a corresponding message.
Event names which are all <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21439	21533	
==>allback to be executed when the bot receives a corresponding message.
Event names which are all <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20320	20414	
==>allback to be executed when the bot receives a corresponding message.
Event names which are all <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4209	4360	
==>ied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4209	4360	
==>ied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4209	4360	
==>ied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) ) <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8444	8553	
==>$$operator{type} = $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	752	844	
==>constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12164	12268	
==>_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    tr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12164	12268	
==>_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    tr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12164	12268	
==>_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    tr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2353	2446	
==>lf.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) retur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2353	2446	
==>lf.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) retur <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6196	6288	
==>::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($st <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6196	6288	
==>::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19271	19361	
==>!= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19271	19361	
==>!= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19271	19361	
==>!= p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n( <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	54	163	
==>equire '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[Loa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	54	163	
==>equire '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[Loa <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	112	232	
==>art_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	112	232	
==>art_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'n <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	112	232	
==>art_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'n <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	112	232	
==>art_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6512	6626	
==>warn "Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4372	4479	
==>eta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4372	4479	
==>eta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4372	4479	
==>eta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_ins <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21316	21401	
==>_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logge <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21316	21401	
==>_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logge <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1292	1412	
==>1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1292	1412	
==>1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2651	2747	
==>doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2651	2747	
==>doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2651	2747	
==>doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6900	7005	
==>d" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_cat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1257	1359	
==>d" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_cat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	359	458	
==>d" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_cat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2808	2904	
==>f you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2705	2798	
==>f you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	427	543	
==>= shift;
    $match .= '';
    # print "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = length( $mat <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5758	5837	
==>8+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5948	6027	
==>8+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5758	5837	
==>8+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5948	6027	
==>8+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	771	877	
==>e methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $dep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	771	877	
==>e methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $dep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	771	877	
==>e methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $dep <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4156	4256	
==>Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7776	7875	
==>[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	retur <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2328	2443	
==>b eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    p <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2328	2443	
==>b eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	73	179	
==>odel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END__ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	73	179	
==>odel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END__ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	73	179	
==>odel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END__ <==
5	/Users/nnunley/pugs/util/claim_drift.pl	1006	1159	
==>n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5177	5293	
==>:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5177	5293	
==>:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5177	5293	
==>:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} el <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17998	18098	
==>ulti Str::split (  Str $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8002	8139	
==>:SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8002	8139	
==>:SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8002	8139	
==>:SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14930	15048	
==>first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Man <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14930	15048	
==>first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Man <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3844	3993	
==>} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4089	4231	
==>} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10538	10680	
==>} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4089	4231	
==>} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10538	10680	
==>} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless it detects a 'return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	42	164	
==>us-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Processi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	42	164	
==>us-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Processi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29414	29509	
==>rapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33966	34061	
==>rapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33130	33225	
==>rapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoca <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2560	2708	
==>$x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_ro <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10136	10252	
==>ting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10136	10252	
==>ting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16190	16304	
==>d = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Ty <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16190	16304	
==>d = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Ty <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4519	4628	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4712	4821	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17793	17898	
==>in Perl 6.  You must specify units.

=item index 

Needs to be in terms of StrPos, not Int.

=item pack

= <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4604	4706	
==>object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Ret <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4604	4706	
==>object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Ret <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	138	244	
==>RT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	138	244	
==>RT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hat <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1644	1742	
==>sa($self->{sig}->returns) || $return_value->isa('nil')))
        || confess "bad return value, got( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5029	5121	
==>s received, then you should use the full object-oriented
interface provided by the C<LWP::Use <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5029	5121	
==>s received, then you should use the full object-oriented
interface provided by the C<LWP::Use <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9508	9622	
==>f there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_h <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9508	9622	
==>f there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3887	3981	
==>-
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3887	3981	
==>-
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3887	3981	
==>-
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2151	2314	
==>< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2398	2561	
==>< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1550	1655	
==>>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1550	1655	
==>>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1550	1655	
==>>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	492	615	
==>eturn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	492	615	
==>eturn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	492	615	
==>eturn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14338	14437	
==>ag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored by <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14396	14495	
==>ag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored by <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	904	1019	
==>Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Confl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	904	1019	
==>Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Confl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2358	2450	
==>meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2358	2450	
==>meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2358	2450	
==>meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1276	1378	
==>$self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1276	1378	
==>$self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1276	1378	
==>$self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BA <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11650	11742	
==>TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11650	11742	
==>TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17333	17467	
==>},
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17333	17467	
==>},
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	568	666	
==>onversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	459	557	
==>onversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	368	466	
==>onversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5834	5938	
==>ubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// D <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5834	5938	
==>ubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// D <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5834	5938	
==>ubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// D <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7842	7939	
==>) }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7842	7939	
==>) }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10733	10838	
==>eating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

cor <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10733	10838	
==>eating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

cor <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1067	1163	
==>eturn 1;
}

=pod

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdir> changes directory to <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7783	7869	
==>Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_ele <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1608	1694	
==>Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_ele <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6713	6820	
==>mplemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6713	6820	
==>mplemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2708	2801	
==>~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2708	2801	
==>~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2708	2801	
==>~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js { <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27907	28009	
==>ARGV;

do {
print "----\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r- <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3135	3232	
==>$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $base) {
    given $base <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1331	1425	
==>ime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1331	1425	
==>ime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1331	1425	
==>ime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	294	402	
==>t ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	294	402	
==>t ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5839	5940	
==>~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5839	5940	
==>~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5839	5940	
==>~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2701	2815	
==>{ 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2701	2815	
==>{ 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2701	2815	
==>{ 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15493	15589	
==>of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a so <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15493	15589	
==>of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a so <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3535	3644	
==>ass($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3535	3644	
==>ass($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3535	3644	
==>ass($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10504	10598	
==>replacement for '-' in header names.

The header() method accepts multiple ($field => $value) p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10504	10598	
==>replacement for '-' in header names.

The header() method accepts multiple ($field => $value) p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5217	5361	
==>sif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' 
                || $ast- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	748	871	
==>y");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	748	871	
==>y");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	748	871	
==>y");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21101	21193	
==>nd shipped with your
distribtution precompiled. This means that people who install your
modul <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21101	21193	
==>nd shipped with your
distribtution precompiled. This means that people who install your
modul <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5423	5524	
==>a response when it has been received.
method client_date ($self: )         is rw { $self!date_header(' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5423	5524	
==>a response when it has been received.
method client_date ($self: )         is rw { $self!date_header(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	206	303	
==>fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	206	303	
==>fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	206	303	
==>fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SU <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9479	9679	
==>) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9479	9679	
==>) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6765	6895	
==>$step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6765	6895	
==>$step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6765	6895	
==>$step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&I <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3559	3677	
==>urn 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8596	8702	
==>pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8596	8702	
==>pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8596	8702	
==>pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	559	657	
==>.txt
  
This system is still relatively "functional" in flavor, however, it is
not pure since it us <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3016	3128	
==>ue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &cont <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3016	3128	
==>ue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &cont <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8835	8936	
==>object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", subs <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34149	34246	
==>y defined and non-empty string.

=back

This is the main Translator constructor method:

=over

=i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34149	34246	
==>y defined and non-empty string.

=back

This is the main Translator constructor method:

=over

=i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18016	18113	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18016	18113	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this N <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35434	35523	
==>-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39984	40073	
==>-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39544	39633	
==>-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3634	3738	
==>Glob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3634	3738	
==>Glob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	484	588	
==>Glob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9690	9788	
==>e> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HTT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9690	9788	
==>e> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HTT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6093	6224	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6093	6224	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6093	6224	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5828	5938	
==>port {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our a <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5828	5938	
==>port {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38642	38763	
==>st' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38642	38763	
==>st' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38642	38763	
==>st' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_lis <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3836	3937	
==>d_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3836	3937	
==>d_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10710	10830	
==>_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10710	10830	
==>_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10710	10830	
==>_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribu <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9449	9774	
==>ined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.st <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9449	9774	
==>ined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33721	33864	
==>sa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33721	33864	
==>sa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33721	33864	
==>sa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	338	445	
==>rver could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	338	445	
==>rver could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6851	6942	
==>inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6851	6942	
==>inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6851	6942	
==>inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12423	12601	
==>ec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12423	12601	
==>ec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12423	12601	
==>ec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6973	7130	
==>ure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $cl <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6973	7130	
==>ure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1763	1865	
==>a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1763	1865	
==>a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1763	1865	
==>a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Pa <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9824	9917	
==>d from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, inte <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9824	9917	
==>d from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3250	3367	
==>m => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3250	3367	
==>m => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3250	3367	
==>m => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::o <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3155	3259	
==>($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(pa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3155	3259	
==>($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1392	1501	
==>orted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1392	1501	
==>orted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1392	1501	
==>orted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 & <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7272	7368	
==>$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHO <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7272	7368	
==>$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15501	15611	
==>qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16916	17026	
==>qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21672	21782	
==>qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2654	2752	
==>s>?\=<?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } }
RULE
*{ <==
5	/Users/nnunley/pugs/util/claim_drift.pl	168	266	
==>point symlinks to the current one if you want to regenerate
# files. We should probably make this a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5801	5922	
==>delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inst <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5801	5922	
==>delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inst <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5801	5922	
==>delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inst <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10269	10368	
==>n. A plan is simply the number of tests which are
expected to run. This should be specified at the v <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10327	10426	
==>n. A plan is simply the number of tests which are
expected to run. This should be specified at the v <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6390	6499	
==>aram ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6390	6499	
==>aram ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4163	4270	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4163	4270	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4163	4270	
==>d('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    m <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8411	8517	
==>or HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidenta <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8411	8517	
==>or HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidenta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4613	4706	
==>t.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4613	4706	
==>t.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4613	4706	
==>t.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1808	1911	
==>Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1808	1911	
==>Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1808	1911	
==>Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impor <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7849	7946	
==>---- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7582	7676	
==>---- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	667	777	
==>rn } or a fail(),

           and it should not backtrack or whatever



Continuations are used for backtrackin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10535	10645	
==>rn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtrackin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	640	747	
==>rn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtrackin <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7480	7578	
==>rtext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the r <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7480	7578	
==>rtext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the r <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2425	2556	
==>ser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $re <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2425	2556	
==>ser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9202	9295	
==>&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9202	9295	
==>&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9202	9295	
==>&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLE <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13164	13256	
==>a generic data interchange format between
Rosetta::Model and other Perl code such as persiste <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18259	18351	
==>a generic data interchange
format between Rosetta::Model and other Perl code such as persiste <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13164	13256	
==>a generic data interchange format between
Rosetta::Model and other Perl code such as persiste <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18259	18351	
==>a generic data interchange
format between Rosetta::Model and other Perl code such as persiste <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1990	2122	
==>LOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1990	2122	
==>LOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23863	23978	
==>q 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23863	23978	
==>q 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23863	23978	
==>q 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elem <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2261	2463	
==>turn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5738	5940	
==>turn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4668	4870	
==>turn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22829	22921	
==>opic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22829	22921	
==>opic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37758	37882	
==>lue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37758	37882	
==>lue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37758	37882	
==>lue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $arr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4928	5033	
==>S.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}+ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4928	5033	
==>S.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5635	5773	
==>de an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5635	5773	
==>de an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5635	5773	
==>de an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1076	1186	
==>} );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracte <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1076	1186	
==>} );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12830	12937	
==>ake_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12830	12937	
==>ake_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12830	12937	
==>ake_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	174	276	
==>tative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	174	276	
==>tative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10776	10902	
==>bject(quant => 0, 1);
  });


  ### '('

  $self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S- <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15019	15125	
==>not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? split( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	56	161	
==>is file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	56	161	
==>is file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	56	161	
==>is file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11029	11172	
==>calar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11029	11172	
==>calar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11029	11172	
==>calar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17294	17396	
==>1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17294	17396	
==>1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3879	3982	
==>ction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3879	3982	
==>ction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3879	3982	
==>ction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


= <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13483	13578	
==>} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetri <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13483	13578	
==>} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7751	7855	
==>e_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7751	7855	
==>e_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7751	7855	
==>e_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4953	5051	
==>5, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/o <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4953	5051	
==>5, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2894	3020	
==>F.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2894	3020	
==>F.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2894	3020	
==>F.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circul <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1127	1222	
==>t "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq ( <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1127	1222	
==>t "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	302	414	
==>AS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	793	905	
==>AS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	302	414	
==>AS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	793	905	
==>AS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1326	1502	
==>);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1326	1502	
==>);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3156	3284	
==>_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3156	3284	
==>_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3156	3284	
==>_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8140	8271	
==>fix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4500	4631	
==>fix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5349	5480	
==>fix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2196	2315	
==>atus_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2196	2315	
==>atus_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1889	2013	
==>report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_num <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6322	6425	
==>eturns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    ! <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5452	5555	
==>eturns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    ! <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6322	6425	
==>eturns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    ! <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5452	5555	
==>eturns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    ! <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1479	1600	
==>ub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->packag <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4682	4803	
==>ub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->packag <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10365	10472	
==>ree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10365	10472	
==>ree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1823	1930	
==>ace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'c');
  });

  $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2413	2509	
==>with a number of bytes and throwing the return value away.
Encryptions after this point will be u <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2413	2509	
==>with a number of bytes and throwing the return value away.
Encryptions after this point will be u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1122	1229	
==>class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1122	1229	
==>class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1122	1229	
==>class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-0 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3855	3952	
==>his is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWIL <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3855	3952	
==>his is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5645	5768	
==>{ ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5645	5768	
==>{ ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5645	5768	
==>{ ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15844	15936	
==>is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15844	15936	
==>is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5136	5252	
==>,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5136	5252	
==>,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5136	5252	
==>,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18574	18671	
==>ot> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "ob <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18574	18671	
==>ot> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7536	7650	
==>call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7536	7650	
==>call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7536	7650	
==>call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	991	1090	
==>dgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	991	1090	
==>dgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10544	10704	
==>und: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6885	7045	
==>und: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7734	7894	
==>und: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6032	6125	
==>or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".* <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5823	5915	
==>or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".* <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1426	1584	
==>_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= " <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1426	1584	
==>_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29334	29454	
==>, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29334	29454	
==>, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29334	29454	
==>, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{ <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3315	3465	
==>r {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    default { take %.sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	899	1008	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1292	1401	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	899	1008	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1292	1401	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne ' <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14241	14369	
==>pand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4310	4426	
==>pand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4310	4426	
==>pand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4310	4426	
==>pand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2873	2984	
==>rn "[ " . join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # item=>'<item>',
    my ($self, $defaul <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7157	7327	
==>greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7350	7520	
==>greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 , <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3421	3533	
==>($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3421	3533	
==>($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3421	3533	
==>($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3760	3853	
==>e shouldn't need to have documentation/comments. If you need something
with more power, move u <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3760	3853	
==>e shouldn't need to have documentation/comments. If you need something
with more power, move u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7752	7852	
==>ng over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7752	7852	
==>ng over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7752	7852	
==>ng over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5118	5214	
==>ename)

The C<read> method reads a config file, and returns a boolean value
of success or failure <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5118	5214	
==>ename)

The C<read> method reads a config file, and returns a boolean value
of success or failure <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2457	2660	
==>new(:node<Submethod>),
                                ),
                                Tree.new(:node<Macro>)
                            ),
                            Tree.new(:node<Block>).add_child <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3734	3902	
==>ot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3734	3902	
==>ot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3734	3902	
==>ot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1610	1743	
==>';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_capture = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14697	14844	
==>\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14976	15123	
==>\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ru <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9809	9955	
==>,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1890	2020	
==>,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1890	2020	
==>,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1248	1355	
==>"Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set G <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1248	1355	
==>"Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set G <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3595	3721	
==>k($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3595	3721	
==>k($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5119	5245	
==>k($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4247	4371	
==>s'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4440	4564	
==>s'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1885	1995	
==>rt
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1885	1995	
==>rt
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1965	2075	
==>rt
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	465	561	
==>ity> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	465	561	
==>ity> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14990	15182	
==>Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14990	15182	
==>Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14990	15182	
==>Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $ar <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	319	447	
==>ture
    hash
    integer
    number
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub n <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	2118	2232	
==>ONE_DAY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_day < $cu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6010	6114	
==>presenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrenc <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6010	6114	
==>presenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1672	1835	
==>,[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1672	1835	
==>,[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1672	1835	
==>,[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                f <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1367	1482	
==>,[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2012	2118	
==>: cannot find $file from $name" unless -e $file;
    }

    $self->version_from($file)      unless $self->v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1124	1223	
==>Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remem <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1124	1223	
==>Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remem <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1124	1223	
==>Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remem <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7594	7691	
==>hould be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defaul <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7594	7691	
==>hould be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defaul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29587	29713	
==>f;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29587	29713	
==>f;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29587	29713	
==>f;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2664	2776	
==>ck($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $vers <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2664	2776	
==>ck($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $vers <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30504	30600	
==>ginal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35055	35151	
==>ginal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34237	34333	
==>ginal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24916	25012	
==>w(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, " <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25357	25453	
==>w(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7665	7780	
==>_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7665	7780	
==>_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7665	7780	
==>_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8021	8131	
==>bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8009	8119	
==>bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14074	14186	
==>slator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14074	14186	
==>slator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5011	5112	
==>nd::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($re <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5011	5112	
==>nd::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($re <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5601	5702	
==>nd::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($re <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4876	4974	
==>ne, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4003	4101	
==>ne, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4876	4974	
==>ne, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4003	4101	
==>ne, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3405	3500	
==>xtSlurpy' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'T <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5888	6035	
==>::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $cl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5888	6035	
==>::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1049	1154	
==>re emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1049	1154	
==>re emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1049	1154	
==>re emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32631	32725	
==>se attributes, it is
I<imperative> you use the method to access the attribute when I<outside>
t <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12363	12507	
==>r'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        { local($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22041	22137	
==>lers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20922	21018	
==>lers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22041	22137	
==>lers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20922	21018	
==>lers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	38	154	
==>.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'star <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	38	154	
==>.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'star <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1193	1294	
==>ng %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1193	1294	
==>ng %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1193	1294	
==>ng %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12064	12154	
==>help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12064	12154	
==>help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12064	12154	
==>help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fro <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22141	22264	
==>isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subpat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2298	2402	
==>oo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2298	2402	
==>oo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2298	2402	
==>oo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exi <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	594	691	
==>s to interpret a test
  my %results = $strap->analyze($name, \@test_output);
  my %results = $stra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	557	662	
==>my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$v <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	327	432	
==>my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	327	432	
==>my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$v <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4422	4518	
==>le, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not suppo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4422	4518	
==>le, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not suppo <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16407	16533	
==>->digest)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $builtin = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1075	1172	
==>fix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1075	1172	
==>fix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1075	1172	
==>fix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sh <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	533	627	
==><JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Floria <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3745	3863	
==>is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3745	3863	
==>is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3745	3863	
==>is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7369	7461	
==>(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1194	1286	
==>(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1694	1819	
==>$vs = $v->describe;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s . <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10994	11092	
==>the specified items from the set. Returns the number of items
removed.

It is not fatal to remove a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8398	8496	
==>the specified items from the set. Returns the number of items removed.

It is not fatal to remove a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10994	11092	
==>the specified items from the set. Returns the number of items
removed.

It is not fatal to remove a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8398	8496	
==>the specified items from the set. Returns the number of items removed.

It is not fatal to remove a <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4587	4687	
==>->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_vars} $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6427	6523	
==>one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5557	5653	
==>one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6427	6523	
==>one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5557	5653	
==>one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13523	13659	
==>&_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13523	13659	
==>&_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13523	13659	
==>&_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9124	9221	
==>n there's absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8824	8919	
==>n there's absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cu <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2027	2122	
==>erl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to c <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2027	2122	
==>erl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2122	2229	
==>ndefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup A <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2929	3036	
==>efined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2122	2229	
==>ndefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2122	2229	
==>ndefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup A <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2917	3024	
==>efined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5960	6313	
==>$e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_ni <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7722	8075	
==>$e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_ni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5963	6176	
==>rn $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5963	6176	
==>rn $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5963	6176	
==>rn $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $val <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7260	7386	
==>to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) { <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	561	687	
==>to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40703	40795	
==>s by no means required, the copyright holders of
Locale::KeyedText would appreciate being inf <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40703	40795	
==>s by no means required, the copyright holders of
Locale::KeyedText would appreciate being inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12208	12298	
==>ss->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12208	12298	
==>ss->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12208	12298	
==>ss->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27579	27674	
==>on has all
of the tuples of the original (or rather, the corresponding extension of
each tuple). <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32131	32226	
==>on has all
of the tuples of the original (or rather, the corresponding extension of
each tuple). <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38123	38214	
==>rs_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empt <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38123	38214	
==>rs_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39752	39842	
==>-ary version of the aforementioned.

=item C<join (Relation::Example $other!) returns Relat <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4317	4436	
==>proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LW <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4317	4436	
==>proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LW <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5134	5245	
==>$name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5134	5245	
==>$name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5134	5245	
==>$name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	289	386	
==>relude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primiti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	289	386	
==>relude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primiti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	289	386	
==>relude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primiti <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5112	5208	
==>= %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5112	5208	
==>= %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4434	4624	
==>Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4434	4624	
==>Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4434	4624	
==>Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	832	1009	
==>lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@cur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	832	1009	
==>lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9923	10054	
==>names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9923	10054	
==>names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9923	10054	
==>names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2248	2362	
==>ad1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2248	2362	
==>ad1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6430	6573	
==>s and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie co <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6430	6573	
==>s and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5300	5404	
==>parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pIn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5300	5404	
==>parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pIn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5300	5404	
==>parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pIn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	221	315	
==>n
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	221	315	
==>n
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	221	315	
==>n
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SU <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6756	6845	
==>ize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6756	6845	
==>ize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_n <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	695	818	
==>A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subi <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	695	818	
==>A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3375	3463	
==>.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3375	3463	
==>.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3375	3463	
==>.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1767	1874	
==>$line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1767	1874	
==>$line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1847	1954	
==>$line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7365	7462	
==>my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7365	7462	
==>my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5458	5559	
==>_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5458	5559	
==>_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5458	5559	
==>_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1432	1527	
==>this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is of <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1432	1527	
==>this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is of <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7218	7339	
==>s::Check->last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1432	1546	
==>[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1586	1685	
==>RE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1586	1685	
==>RE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1586	1685	
==>RE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7460	7611	
==>array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7460	7611	
==>array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3060	3163	
==>i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3060	3163	
==>i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3060	3163	
==>i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17558	17654	
==>packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or d <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17558	17654	
==>packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22611	22701	
==>};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22611	22701	
==>};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22611	22701	
==>};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3720	3822	
==>got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3720	3822	
==>got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3720	3822	
==>got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1119	1209	
==>protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1119	1209	
==>protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32673	32817	
==>mp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32673	32817	
==>mp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32673	32817	
==>mp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @re <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4437	4544	
==>d zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) retur <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4437	4544	
==>d zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	517	613	
==>here's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	517	613	
==>here's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	517	613	
==>here's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	683	778	
==>, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	683	778	
==>, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16047	16142	
==>hat
lives in the Document object given in the named parameter $document, and
whose Node Type att <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16047	16142	
==>hat
lives in the Document object given in the named parameter $document, and
whose Node Type att <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	91	201	
==>on (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	91	201	
==>on (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	91	201	
==>on (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, i <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1383	1483	
==>c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package % <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	1324	1419	
==>day, $devs_till_day[-1] while
  @devs_till_day < @commits_till_day;

# Create the graph.
my $gra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9444	9578	
==>$count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9444	9578	
==>$count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9444	9578	
==>$count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4899	5032	
==>1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the re <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4899	5032	
==>1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the re <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5093	5218	
==>',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPar <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5093	5218	
==>',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPar <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1997	2122	
==>',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2412	2518	
==>ub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2412	2518	
==>ub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	281	392	
==>)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	281	392	
==>)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6675	6773	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for S <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6675	6773	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8872	8970	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21113	21206	
==>o event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "passw <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21113	21206	
==>o event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "passw <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11305	11418	
==>ent nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11305	11418	
==>ent nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10546	10651	
==>ent nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10546	10651	
==>ent nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12897	13000	
==>ly strings) into
  $1,etal, or even into the return value.  In that event, it may not
  be possible to g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1015	1132	
==>object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1015	1132	
==>object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1015	1132	
==>object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	486	588	
==>Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	486	588	
==>Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compi <==
5	/Users/nnunley/pugs/util/build_pugs.pl	4204	4340	
==>ted, "dist";

        if (@candidates > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Found mor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4667	4778	
==>t &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4667	4778	
==>t &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4667	4778	
==>t &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @ar <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3967	4077	
==>t &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26510	26718	
==>:Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26510	26718	
==>:Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26510	26718	
==>:Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "P <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7555	7655	
==>\"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7555	7655	
==>\"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2294	2397	
==>{
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2294	2397	
==>{
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2294	2397	
==>{
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2874	2994	
==>}
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2874	2994	
==>}
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	269	363	
==>l options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	269	363	
==>l options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	269	363	
==>l options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8175	8292	
==>ge PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8175	8292	
==>ge PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8175	8292	
==>ge PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19497	19591	
==>nge
your main program.

I<Note that an update is planned for Locale::KeyedText that will enable <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19497	19591	
==>nge
your main program.

I<Note that an update is planned for Locale::KeyedText that will enable <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19372	19476	
==>o_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that takes a fu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1491	1594	
==>db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1491	1594	
==>db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1700	1803	
==>db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional = <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7700	7792	
==>(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6720	6828	
==>ted";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6720	6828	
==>ted";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	666	766	
==>rrently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macro <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	666	766	
==>rrently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macro <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14004	14100	
==>Iterates the elements of C<%hash> in no apparent order, but the order
will be the same between su <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2376	2782	
==>Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2376	2782	
==>Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4974	5090	
==>compiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4974	5090	
==>compiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4974	5090	
==>compiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39387	39496	
==>= shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39387	39496	
==>= shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39387	39496	
==>= shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSA <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1481	1575	
==>de;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Varia <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1481	1575	
==>de;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Varia <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7583	7705	
==>plication/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_pa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7583	7705	
==>plication/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2111	2206	
==>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2111	2206	
==>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2111	2206	
==>name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	231	336	
==>ata::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	231	336	
==>ata::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# X <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1363	1455	
==>rst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1363	1455	
==>rst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1363	1455	
==>rst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is pri <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2303	2400	
==>nctionality fixed proper to use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22034	22128	
==>ic
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20915	21009	
==>ic
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22034	22128	
==>ic
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20915	21009	
==>ic
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4613	4795	
==>king - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Du <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4613	4795	
==>king - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Du <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	361	518	
==>l_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        me <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	361	518	
==>l_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        me <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	361	518	
==>l_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5365	5464	
==>STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would tak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5365	5464	
==>STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would tak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5365	5464	
==>STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would tak <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3509	3592	
==>o-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3509	3592	
==>o-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9798	9910	
==>od

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	150	261	
==>od



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	238	344	
==>od

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	238	344	
==>od

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	143	248	
==>od

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1884	2002	
==>("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1884	2002	
==>("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1884	2002	
==>("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	927	1033	
==>\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, sw <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	927	1033	
==>\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, sw <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10925	11020	
==>r 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns S <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10925	11020	
==>r 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2830	2924	
==>ubroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2830	2924	
==>ubroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3177	3271	
==>ubroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8239	8345	
==>less keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8239	8345	
==>less keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8239	8345	
==>less keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2659	2806	
==>{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2852	2999	
==>{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4912	5040	
==>nite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4912	5040	
==>nite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4912	5040	
==>nite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20626	20744	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20626	20744	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20626	20744	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5541	5643	
==>:private_methods)) (hash)
     (attribute new (%:attributes))      (hash)
     (attribute new (%:method <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	887	987	
==>6::Run::OnPerl5::X1::BB::pugs_args || "";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18828	19028	
==>ther = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18828	19028	
==>ther = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18828	19028	
==>ther = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinit <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1820	1915	
==>y $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1878	1973	
==>y $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6028	6212	
==>' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6028	6212	
==>' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6028	6212	
==>' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bi <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3374	3491	
==>> 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3374	3491	
==>> 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6178	6297	
==>k) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7176	7295	
==>k) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21335	21429	
==>B does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21335	21429	
==>B does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21335	21429	
==>B does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	50	152	
==>ex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	50	152	
==>ex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	50	152	
==>ex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/") <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5903	5987	
==>://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIG <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5903	5987	
==>://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3208	3321	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3208	3321	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3208	3321	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25799	25892	
==>an be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25799	25892	
==>an be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2499	2642	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet def <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2499	2642	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet def <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2499	2642	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet def <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10900	11014	
==>ivecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method rea <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10900	11014	
==>ivecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method rea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3655	3770	
==>ethod found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    lik <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5557	5672	
==>ethod found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    lik <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24366	24463	
==>",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24366	24463	
==>",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24366	24463	
==>",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5707	5830	
==>= { %{$param[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5525	5645	
==>= { %{$param[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3970	4066	
==>ouldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3970	4066	
==>ouldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3970	4066	
==>ouldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11836	12029	
==>sses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11836	12029	
==>sses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11836	12029	
==>sses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Clas <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	619	747	
==>with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $cu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	619	747	
==>with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $cu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	15042	15167	
==>5 (up to one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variation from UTC in seconds
    h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24809	24909	
==>TROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23573	23673	
==>TROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24809	24909	
==>TROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23573	23673	
==>TROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15409	15551	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15409	15551	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15409	15551	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about ou <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3118	3239	
==>dd types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    nil <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	39	126	
==>il;
require Perl6::Run::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
requ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3755	3872	
==>.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3755	3872	
==>.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3755	3872	
==>.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19135	19231	
==>he relational
data model proposed by Edgar. F. Codd, upon which anything in the world can
be mode <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22785	22881	
==>he relational data model proposed
by Edgar. F. Codd, upon which anything in the world can be mode <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1470	1578	
==>= args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1470	1578	
==>= args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1470	1578	
==>= args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8693	8786	
==>l(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2518	2611	
==>l(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31333	31518	
==>$i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31333	31518	
==>$i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31333	31518	
==>$i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$r <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5815	5963	
==>sult,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $s <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4315	4463	
==>sult,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $s <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6071	6186	
==>e bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6461	6576	
==>e bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2541	2654	
==>r, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2541	2654	
==>r, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2541	2654	
==>r, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (st <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11191	11288	
==>ll given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11191	11288	
==>ll given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	253	349	
==>ef $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creatin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	253	349	
==>ef $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creatin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	253	349	
==>ef $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creatin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12489	12588	
==>ment may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

Th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12489	12588	
==>ment may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1542	1637	
==>c}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1542	1637	
==>c}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1542	1637	
==>c}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc} <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13178	13336	
==>e!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3363	3501	
==>e!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3363	3501	
==>e!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3363	3501	
==>e!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '- <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11059	11158	
==>e to not be comparable.<br />
    The percentage of passed tests is calculated using the total numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8006	8108	
==>e eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8006	8108	
==>e eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8006	8108	
==>e eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18284	18379	
==>e address (URI) of the document from which the
requested resource address was obtained.

The "Fr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18284	18379	
==>e address (URI) of the document from which the
requested resource address was obtained.

The "Fr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14326	14441	
==>m::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14326	14441	
==>m::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14326	14441	
==>m::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5437	5533	
==>str> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher o <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5437	5533	
==>str> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher o <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13379	13516	
==>.3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13379	13516	
==>.3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1064	1166	
==>body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1064	1166	
==>body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1064	1166	
==>body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8250	8356	
==>bject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8250	8356	
==>bject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8250	8356	
==>bject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_metho <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	990	1092	
==>returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/( <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	990	1092	
==>returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/( <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	2171	2294	
==>urrfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Config{inclu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1460	1579	
==>.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp < <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1460	1579	
==>.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp < <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3637	3732	
==>s, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3637	3732	
==>s, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to th <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3221	3336	
==>extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3221	3336	
==>extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4998	5104	
==>dd_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4998	5104	
==>dd_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4998	5104	
==>dd_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12772	12869	
==>e if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- ` <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3759	3856	
==>This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks th <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12772	12869	
==>e if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- ` <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3759	3856	
==>This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3839	3936	
==>This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35078	35178	
==>e of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<ex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35078	35178	
==>e of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<ex <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	343	438	
==>cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	343	438	
==>cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1327	1422	
==>ynamic scopes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer::Dynamic <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13056	13206	
==>1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13050	13200	
==>1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21185	21288	
==>};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21185	21288	
==>};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21185	21288	
==>};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduc <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2970	3071	
==>ation vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2970	3071	
==>ation vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ci <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9810	9924	
==>turing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15651	15765	
==>turing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9810	9924	
==>turing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15645	15759	
==>turing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd ) <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	12	112	
==>ace--Perl6;

has Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8781	8962	
==>efined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8781	8962	
==>efined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8781	8962	
==>efined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $par <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3683	3782	
==>= q{$full_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	43	137	
==>ge: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str = shift;
if($str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1270	1379	
==>ar cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1270	1379	
==>ar cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1270	1379	
==>ar cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	719	823	
==>Y
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	719	823	
==>Y
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30420	30532	
==>t $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30420	30532	
==>t $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30420	30532	
==>t $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	995	1086	
==>result = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description ) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	995	1086	
==>result = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description ) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	556	647	
==>has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	556	647	
==>has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	20	107	
==>ludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	20	107	
==>ludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	20	107	
==>ludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	302	414	
==>cal $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	302	414	
==>cal $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	302	414	
==>cal $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22544	22635	
==>head2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22544	22635	
==>head2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rose <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9834	9946	
==>($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9834	9946	
==>($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9834	9946	
==>($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5083	5191	
==>cate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8560	8668	
==>cate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4487	4585	
==>ort extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acce <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4487	4585	
==>ort extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acce <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5077	5175	
==>ort extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acce <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17787	17880	
==>'Mozilla/1.2';

=item $h.server

The server header field contains information about the softwa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17787	17880	
==>'Mozilla/1.2';

=item $h.server

The server header field contains information about the softwa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21217	21314	
==>e Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15508	15605	
==>irs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx-> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25769	25866	
==>e Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15508	15605	
==>irs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15508	15605	
==>irs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14624	14759	
==>ps}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14624	14759	
==>ps}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14624	14759	
==>ps}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37988	38082	
==>ne's result, which is a Template text
string if the module recognizes $msg_key, and the undefin <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37988	38082	
==>ne's result, which is a Template text
string if the module recognizes $msg_key, and the undefin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10861	10966	
==>key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10861	10966	
==>key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10861	10966	
==>key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11976	12071	
==>constructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11976	12071	
==>constructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	81	187	
==>as Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	81	187	
==>as Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5047	5144	
==>= '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5047	5144	
==>= '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6571	6668	
==>= '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4979	5093	
==>$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4979	5093	
==>$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4979	5093	
==>$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1777	1870	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1777	1870	
==>oc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4798	4911	
==>users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4798	4911	
==>users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7759	7863	
==>s_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7759	7863	
==>s_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7759	7863	
==>s_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7340	7461	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7340	7461	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7340	7461	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	801	912	
==>> $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	812	923	
==>> $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3979	4094	
==>nor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3979	4094	
==>nor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3979	4094	
==>nor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6602	6699	
==>.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document ident <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6602	6699	
==>.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document ident <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8470	8571	
==>0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8470	8571	
==>0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5829	5929	
==>ch my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5829	5929	
==>ch my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5829	5929	
==>ch my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40062	40321	
==>')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19611	19861	
==>')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2247	2339	
==>dd_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2247	2339	
==>dd_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2247	2339	
==>dd_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19585	19676	
==>xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19585	19676	
==>xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19585	19676	
==>xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4022	4112	
==>opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4022	4112	
==>opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ciphe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	825	939	
==>->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	825	939	
==>->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	825	939	
==>->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2054	2152	
==>cross all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1978	2071	
==>cross all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8621	8806	
==>->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8621	8806	
==>->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8621	8806	
==>->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9610	9783	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9889	10062	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	788	910	
==>:PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            wh <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	788	910	
==>:PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            wh <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36497	36591	
==>elations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41046	41140	
==>elations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40660	40754	
==>elations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5583	5684	
==>S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1)) if $cc;
    retu <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	31180	31270	
==>er the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>.

=cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2873	2984	
==>*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s* <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2873	2984	
==>*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s* <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2873	2984	
==>*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s* <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	418	528	
==>properly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!member <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	418	528	
==>properly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!member <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5984	6139	
==>b {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5984	6139	
==>b {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5984	6139	
==>b {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39646	39734	
==>enDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39646	39734	
==>enDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Ke <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12530	12633	
==>$args{stderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18702	18797	
==>epted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17745	17840	
==>epted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18702	18797	
==>epted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17745	17840	
==>epted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	687	795	
==>ue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	687	795	
==>ue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	687	795	
==>ue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fix <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3961	4055	
==>Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day ) <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3961	4055	
==>Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1423	1545	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1423	1545	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1423	1545	
==>'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5614	5720	
==>*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual module do <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5421	5523	
==>*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual module do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32676	32821	
==>-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32676	32821	
==>-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32676	32821	
==>-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1495	1590	
==>wing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=h <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1495	1590	
==>wing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3256	3356	
==>$event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3256	3356	
==>$event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	775	1099	
==>E>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $siz <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	775	1099	
==>E>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $siz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4165	4271	
==>-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4165	4271	
==>-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4165	4271	
==>-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6140	6295	
==>, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(patt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6140	6295	
==>, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(patt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6140	6295	
==>, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(patt <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	606	702	
==>change ciphers simply by changing the class name used.

Ciphers used with the Cipher API must ope <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	606	702	
==>change ciphers simply by changing the class name used.

Ciphers used with the Cipher API must ope <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	712	858	
==>.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	712	858	
==>.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1213	1305	
==>e recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1213	1305	
==>e recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1213	1305	
==>e recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercla <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7302	7434	
==>";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7314	7446	
==>";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1575	1674	
==>Although the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=it <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1575	1674	
==>Although the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9314	9403	
==>est_iFoo_singleton_method' 
});

is($iFoo->test_iFoo_singleton_method(), 
   '$iFoo::test_ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	18400	18510	
==>$max  = $totals->{max};
    my $detail = $totals->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_l <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6882	6978	
==>d1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1322	1418	
==>d1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6882	6978	
==>d1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1322	1418	
==>d1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2005	2211	
==>.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2005	2211	
==>.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10014	10176	
==>1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	578	730	
==>1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	578	730	
==>1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3014	3140	
==>{
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3014	3140	
==>{
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10083	10196	
==>patch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10083	10196	
==>patch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10083	10196	
==>patch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7646	7753	
==>ll;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7646	7753	
==>ll;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7646	7753	
==>ll;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12758	12851	
==>item decode_entities( $string, ... )

This routine replaces HTML entities found in the $string <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12758	12851	
==>item decode_entities( $string, ... )

This routine replaces HTML entities found in the $string <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1528	1686	
==>des;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1476	1628	
==>des;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	652	757	
==>} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	422	527	
==>} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	422	527	
==>} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3382	3498	
==>| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3382	3498	
==>| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3382	3498	
==>| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38463	38558	
==>substituted for any occurance of its corresponding variable name that is
bounded by '<' and '>'. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38463	38558	
==>substituted for any occurance of its corresponding variable name that is
bounded by '<' and '>'. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1558	1731	
==>le( 
        name => '|',
        assoc => 'left',
        precedence => 'looser',
        other => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4917	5036	
==>ssage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4917	5036	
==>ssage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4917	5036	
==>ssage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->e <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	546	649	
==>file
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $d <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2998	3103	
==>e plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# = <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7377	7481	
==>e plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12278	12379	
==>)')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12278	12379	
==>)')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12278	12379	
==>)')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6570	6722	
==>= shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10777	10929	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7856	8002	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6358	6504	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7856	8002	
==>= shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7757	7866	
==>%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7757	7866	
==>%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7757	7866	
==>%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18486	18580	
==>ical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, e <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18486	18580	
==>ical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6101	6202	
==>l it needs to do to signal
this is to return the string set in advance with the prune method.

This fe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6101	6202	
==>l it needs to do to signal
this is to return the string set in advance with the prune method.

This fe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6101	6202	
==>l it needs to do to signal
this is to return the string set in advance with the prune method.

This fe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5588	5694	
==>her propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5588	5694	
==>her propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5588	5694	
==>her propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2585	2679	
==>.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2585	2679	
==>.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16616	16770	
==>$label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16616	16770	
==>$label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16616	16770	
==>$label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instan <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24706	24824	
==>n|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21127	21245	
==>n|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_h <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1670	1788	
==>re( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1670	1788	
==>re( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1413	1515	
==>ying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1413	1515	
==>ying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1413	1515	
==>ying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6054	6187	
==>w!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6608	6708	
==>'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

nod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6608	6708	
==>'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

nod <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15558	15652	
==>s regarding access to information details, or their technical
skills.  For example, a native Fr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15558	15652	
==>s regarding access to information details, or their technical
skills.  For example, a native Fr <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	509	646	
==>$directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.* <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	509	646	
==>$directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1150	1268	
==>valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1150	1268	
==>valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1150	1268	
==>valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15315	15509	
==>p( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15315	15509	
==>p( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15315	15509	
==>p( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1902	2008	
==>! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

me <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1902	2008	
==>! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

me <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7858	7985	
==>q q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13452	13579	
==>q q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7858	7985	
==>q q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13446	13573	
==>q q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        re <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	724	843	
==>values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1074	1194	
==>ode => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1085	1205	
==>ode => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	802	904	
==>ame>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13277	13371	
==>these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object tha <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13277	13371	
==>these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object tha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9162	9261	
==>thod:

  my $captgroups = $parser->nparen;

=head2 Getting All Captures

You can access all the capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2374	2466	
==>(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2374	2466	
==>(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2374	2466	
==>(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanc <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18573	18664	
==>(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14594	14701	
==>ss = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14594	14701	
==>ss = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2472	2567	
==>..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - ch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2472	2567	
==>..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - ch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2472	2567	
==>..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - ch <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13408	13506	
==>e elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not th <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13408	13506	
==>e elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5653	5776	
==>@_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic exam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5653	5776	
==>@_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic exam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5653	5776	
==>@_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic exam <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19597	19682	
==>le::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19597	19682	
==>le::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBI <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1596	1718	
==>h = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_al <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1596	1718	
==>h = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1424	1533	
==>a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1424	1533	
==>a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1424	1533	
==>a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_c <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	675	799	
==>nt
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	675	799	
==>nt
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	738	849	
==>astes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	738	849	
==>astes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	738	849	
==>astes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# Th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13283	13397	
==>($@) {
	    warn "test.pl had problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_sep <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1281	1373	
==>ngine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1281	1373	
==>ngine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6588	6714	
==>, fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not imp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6588	6714	
==>, fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not imp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1699	1808	
==>($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1699	1808	
==>($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1699	1808	
==>($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17419	17616	
==>);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # stor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17419	17616	
==>);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # stor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17419	17616	
==>);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # stor <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3116	3245	
==>n) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3116	3245	
==>n) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4494	4646	
==>e .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4494	4646	
==>e .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4494	4646	
==>e .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2506	2621	
==>int FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2723	2838	
==>int FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3088	3196	
==>e);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3088	3196	
==>e);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3088	3196	
==>e);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10286	10377	
==>"\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11021	11112	
==>"\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4146	4254	
==>te it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4146	4254	
==>te it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4146	4254	
==>te it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	87	182	
==>MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::TestBuil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13212	13385	
==>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13212	13385	
==>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13212	13385	
==>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else { <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1609	1724	
==>se base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" } <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1731	1821	
==>iled { $_[0]{'has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30088	30211	
==>s->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30088	30211	
==>s->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30088	30211	
==>s->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$arr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3229	3328	
==>\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3217	3316	
==>\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	392	508	
==>:Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2595	2705	
==>str ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2595	2705	
==>str ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2595	2705	
==>str ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(subs <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2057	2159	
==>AME

num - the core num type


=head1 METHODS

=over 4

=item B<new (*native*) returns num>

=item B<to <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4915	5073	
==>ir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( q <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4147	4285	
==>ir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5492	5606	
==>@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5492	5606	
==>@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5492	5606	
==>@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11769	11897	
==>f exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11769	11897	
==>f exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11769	11897	
==>f exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1613	1716	
==>self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2261	2364	
==>self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	977	1114	
==>> 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub b <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	977	1114	
==>> 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14283	14365	
==>=> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14283	14365	
==>=> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14283	14365	
==>=> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10758	10899	
==>\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn ran <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10758	10899	
==>\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn ran <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	686	817	
==>' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5033	5133	
==>lso loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5033	5133	
==>lso loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6233	6346	
==>/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6233	6346	
==>/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6233	6346	
==>/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
} <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10039	10143	
==>PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10039	10143	
==>PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4742	4875	
==>h $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4742	4875	
==>h $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4742	4875	
==>h $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8850	8944	
==>ischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 m <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8850	8944	
==>ischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18101	18197	
==>xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18101	18197	
==>xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18101	18197	
==>xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($x <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9773	9890	
==>rHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a li <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2134	2244	
==>$v} = $k;
   }
   %result;
 }

 multi sub Array::reverse (   @values) returns Lazy|Str {
 multi sub  Perl6::Lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	241	339	
==>S => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	241	339	
==>S => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	241	339	
==>S => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	25016	25143	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__EN <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21437	21564	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	603	702	
==>ift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	603	702	
==>ift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	603	702	
==>ift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10157	10289	
==>listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$bo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10157	10289	
==>listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$bo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10157	10289	
==>listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$bo <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	68	175	
==>Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `... <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	68	175	
==>Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `... <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	911	1040	
==>pt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!',
        assoc => 'no <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1157	1264	
==>s we have 
    for my $depends ( @list ) {
        print "\n*** $entry->{package} depends on $depends->{pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	353	448	
==>:RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	353	448	
==>:RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	353	448	
==>:RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15197	15396	
==>, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15197	15396	
==>, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15197	15396	
==>, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22691	22781	
==>s pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22691	22781	
==>s pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2015	2128	
==>ieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acut <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2015	2128	
==>ieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8248	8351	
==>Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8248	8351	
==>Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8248	8351	
==>Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5121	5217	
==>e.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4248	4344	
==>e.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5121	5217	
==>e.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4248	4344	
==>e.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15336	15421	
==>W0).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9016	9141	
==>pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $bloc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9016	9141	
==>pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $bloc <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4194	4317	
==>e' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'p <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4194	4317	
==>e' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1044	1167	
==>e' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2294	2412	
==>);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { va <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2294	2412	
==>);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { va <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2641	2759	
==>);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24887	25002	
==>ure_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25166	25281	
==>ure_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	113	229	
==>ail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1.. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	113	229	
==>ail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	289	386	
==>fined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	289	386	
==>fined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	289	386	
==>fined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2110	2208	
==>=> 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2110	2208	
==>=> 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6270	6381	
==>e,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6270	6381	
==>e,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6270	6381	
==>e,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4275	4367	
==>$Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6177	6269	
==>$Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	681	802	
==>new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer::DynamicSc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2206	2309	
==>en in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 ca <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7068	7169	
==>_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in g <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7068	7169	
==>_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in g <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2125	2225	
==>en in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 ca <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	931	1049	
==>, telling captures where in the deep structure
                     to store what they've captured.

=cut

our class Ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	931	1049	
==>, telling captures where in the deep structure
                     to store what they've captured.

=cut

our class Ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9017	9120	
==>.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9017	9120	
==>.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9017	9120	
==>.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13903	14015	
==>}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same lin <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13903	14015	
==>}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5752	5855	
==>),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5752	5855	
==>),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5752	5855	
==>),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tr <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5593	5706	
==>$tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5593	5706	
==>$tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1536	1629	
==>_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1536	1629	
==>_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1536	1629	
==>_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11798	11955	
==>de ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11798	11955	
==>de ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11798	11955	
==>de ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $re <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	550	685	
==>or ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Installation->new( dir => $dir )
            or er <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5043	5142	
==>\(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs::Compiler::Rule->compile(<<'RUL <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1752	1892	
==>l - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1693	1830	
==>l - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1106	1225	
==>rl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1106	1225	
==>rl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1106	1225	
==>rl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14786	14931	
==>a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14786	14931	
==>a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14786	14931	
==>a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13729	13844	
==>_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13729	13844	
==>_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => { <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7080	7218	
==>y.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ? <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5581	5719	
==>y.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1231	1345	
==>buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1231	1345	
==>buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1231	1345	
==>buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this i <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	144	257	
==>sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tol <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	144	257	
==>sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7910	8005	
==>gleton;
  has Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $.t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	142	233	
==>gleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	142	233	
==>gleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.t <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	521	650	
==>},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{siteprefix},

        in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2534	2658	
==>dPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2534	2658	
==>dPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2534	2658	
==>dPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve t <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11997	12098	
==>.  Match
  information gets inserted in $1 etal.  These will be limited to
  strings, rather than Matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1470	1585	
==>(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1470	1585	
==>(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1470	1585	
==>(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4582	4679	
==>arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a stri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4582	4679	
==>arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a stri <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13854	13958	
==>et2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13854	13958	
==>et2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1709	1802	
==>ALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1709	1802	
==>ALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1709	1802	
==>ALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2735	2836	
==>SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2735	2836	
==>SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4259	4360	
==>SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5473	5568	
==>hod fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9071	9166	
==>hod fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18471	18572	
==>Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {w <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18471	18572	
==>Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20733	20831	
==>.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20733	20831	
==>.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20733	20831	
==>.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MUL <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2118	2230	
==>t(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2118	2230	
==>t(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2118	2230	
==>t(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array| <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10509	10607	
==>les/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=hea <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10509	10607	
==>les/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=hea <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	41	149	
==>0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration cons <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	41	149	
==>0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4673	4775	
==>f->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4673	4775	
==>f->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4673	4775	
==>f->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5686	5824	
==>pack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5686	5824	
==>pack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5686	5824	
==>pack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.leng <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3258	3366	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1108	1216	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->obje <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5351	5465	
==>pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base got <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2382	2481	
==>ub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@co <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	530	629	
==>ms->{fixity} || "listy",
    );
}

sub type { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2382	2481	
==>ub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2382	2481	
==>ub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3965	4080	
==>e}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3965	4080	
==>e}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3965	4080	
==>e}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3525	3619	
==>ta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3525	3619	
==>ta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5925	6091	
==>d
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5925	6091	
==>d
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5925	6091	
==>d
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1882	2021	
==>= sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2419	2558	
==>= sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19126	19299	
==>y supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19126	19299	
==>y supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19126	19299	
==>y supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5157	5269	
==>@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5157	5269	
==>@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2161	2348	
==>d;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2161	2348	
==>d;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2161	2348	
==>d;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6760	6877	
==>ray, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module document <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5931	6040	
==>{
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we ha <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5989	6098	
==>{
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we ha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6535	6643	
==>ray, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module document <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4698	4800	
==>nt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in order to copy files to it.
  --cdroo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8906	9118	
==>re( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8906	9118	
==>re( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8906	9118	
==>re( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5278	5373	
==>senting the configuration data

=item write

The C<write> method the file for the properties, an <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5278	5373	
==>senting the configuration data

=item write

The C<write> method the file for the properties, an <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2457	2585	
==>Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2597	2725	
==>Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7535	7641	
==>$dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7535	7641	
==>$dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7535	7641	
==>$dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» ( <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	336	454	
==>$mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5038	5140	
==>Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Sin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5038	5140	
==>Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Sin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14086	14178	
==>channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14086	14178	
==>channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4112	4230	
==>RO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4112	4230	
==>RO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4112	4230	
==>RO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclas <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14140	14240	
==>([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8374	8465	
==>y $placeholder = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fmap(s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9267	9391	
==>.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9267	9391	
==>.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9267	9391	
==>.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	676	775	
==>ather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	676	775	
==>ather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40764	40872	
==>= delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40764	40872	
==>= delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40764	40872	
==>= delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub ele <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1795	1883	
==>ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmno <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1795	1883	
==>ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmno <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13489	13634	
==>for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13489	13634	
==>for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1962	2060	
==>(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar tha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1962	2060	
==>(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar tha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1962	2060	
==>(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar tha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17216	17325	
==>six = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13637	13746	
==>six = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2939	3043	
==>test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2939	3043	
==>test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Te <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3019	3123	
==>test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10408	10567	
==>ER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10408	10567	
==>ER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10408	10567	
==>ER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateM <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1897	1995	
==>expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1955	2053	
==>expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29746	29865	
==>Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Templ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29746	29865	
==>Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Templ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4249	4341	
==>::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value fo <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4249	4341	
==>::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6446	6538	
==>::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value fo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2371	2489	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7465	7583	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2371	2489	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7465	7583	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6188	6288	
==>iv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($node- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5484	5580	
==>sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3527	3622	
==>);
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2J <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2233	2328	
==>f algorithm switching.  When their fast method fails, they fall back
on something more likely to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3527	3622	
==>);
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3527	3622	
==>);
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2J <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5676	5875	
==>t("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $l <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3037	3236	
==>t("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $l <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5676	5875	
==>t("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $l <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3037	3236	
==>t("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $l <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	454	551	
==>(abs($x) + 0.4))
}

our Int multi Num::round_half_down (Num $x, int $symmetrical? = 1) {
	return i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40748	40842	
==>y list, in which case the returned Relation::Example is identical to the
invocant.  Another tri <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5756	5835	
==>128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$d <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5946	6025	
==>128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5756	5835	
==>128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5946	6025	
==>128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2724	2869	
==>\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2917	3062	
==>\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_ru <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11374	11533	
==>mar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11653	11812	
==>mar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5204	5332	
==>to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5204	5332	
==>to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5204	5332	
==>to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefine <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7180	7336	
==>rl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7180	7336	
==>rl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7180	7336	
==>rl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 . <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9768	9861	
==>nd a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infi <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9768	9861	
==>nd a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7501	7725	
==>x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7501	7725	
==>x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4443	4562	
==>ly if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4443	4562	
==>ly if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4443	4562	
==>ly if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12442	12563	
==>s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12442	12563	
==>s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12442	12563	
==>s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $th <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13194	13290	
==>()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method retur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13194	13290	
==>()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method retur <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5320	5453	
==>ile(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30435	30546	
==>= ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30435	30546	
==>= ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30435	30546	
==>= ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10593	10691	
==>ut can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10651	10749	
==>ut can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	127	228	
==>late Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	127	228	
==>late Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	127	228	
==>late Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	512	605	
==>ld the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	512	605	
==>ld the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3842	3943	
==>ge ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3842	3943	
==>ge ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3842	3943	
==>ge ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20734	20827	
==>BUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20734	20827	
==>BUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	14	116	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	14	116	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	14	116	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4655	4748	
==>y $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4655	4748	
==>y $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2727	2846	
==>f (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2727	2846	
==>f (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2727	2846	
==>f (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH' <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	296	392	
==>r_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CG <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	296	392	
==>r_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CG <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6840	6953	
==>{ 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    retu <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6840	6953	
==>{ 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	261	355	
==>ow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.It <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	261	355	
==>ow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.It <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	261	355	
==>ow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.It <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4653	4838	
==>hed name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim ta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	698	824	
==>unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", D <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	691	817	
==>unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", D <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9422	9529	
==>$path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9422	9529	
==>$path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exi <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5973	6115	
==>e;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ar <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4473	4615	
==>e;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13727	13868	
==>e;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13727	13868	
==>e;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13727	13868	
==>e;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1024	1161	
==>> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2940	3077	
==>> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	982	1115	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2826	2959	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*) <==
5	/Users/nnunley/pugs/util/combine_tests.pl	706	834	
==>ename/number
    # into %sum
    #
    my %sum;
    my @revisions;
    for my $data (@_) {
        my $revision = $data->{revisio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	142	254	
==>::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	106	217	
==>::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	194	305	
==>::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1351	1448	
==>ONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart ) <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1351	1448	
==>ONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15432	15555	
==>ckage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sourc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15432	15555	
==>ckage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sourc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5244	5336	
==>@_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5244	5336	
==>@_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5244	5336	
==>@_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3863	3966	
==>ode");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3863	3966	
==>ode");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3863	3966	
==>ode");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4424	4524	
==>o the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `st <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4424	4524	
==>o the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `st <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	624	747	
==>lso holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	624	747	
==>lso holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11674	11770	
==>ble};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11674	11770	
==>ble};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11674	11770	
==>ble};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11814	11970	
==>_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11814	11970	
==>_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11814	11970	
==>_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11347	11441	
==><$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11347	11441	
==><$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $it <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1938	2152	
==>ed $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    metho <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1938	2152	
==>ed $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2065	2164	
==>nt_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2065	2164	
==>nt_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2065	2164	
==>nt_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14757	14906	
==>nding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14757	14906	
==>nding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14757	14906	
==>nding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result ! <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2031	2125	
==>t, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2031	2125	
==>t, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1868	2009	
==>ww-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARG <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1868	2009	
==>ww-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARG <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6699	6804	
==>ype';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'B <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6699	6804	
==>ype';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'B <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3598	3703	
==>ype';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4184	4292	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4184	4292	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4184	4292	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6670	6775	
==>tain getters for $() and such

### getters need to know what you want (str, bool, hash, array, match)



- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6446	6548	
==>tain getters for $() and such
### getters need to know what you want (str, bool, hash, array, match)

- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13930	14046	
==>er->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13930	14046	
==>er->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13930	14046	
==>er->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMET <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17675	17772	
==>n refer to an error condition by an
internal code which is guaranteed to be unique for a situation <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17675	17772	
==>n refer to an error condition by an
internal code which is guaranteed to be unique for a situation <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14820	14913	
==>ities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  B <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14820	14913	
==>ities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4497	4582	
==>bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4497	4582	
==>bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4497	4582	
==>bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10421	10559	
==>bOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  . <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10421	10559	
==>bOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  . <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10421	10559	
==>bOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  . <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	20935	21067	
==>rint "\tafter all the subtests completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not s <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3545	3644	
==>inary to put on the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --parrot-path as the root <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8553	8739	
==>d eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8553	8739	
==>d eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8553	8739	
==>d eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18626	18727	
==>l of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lin <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18626	18727	
==>l of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lin <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2913	3027	
==>s}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "END";
The '$meth <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	122	228	
==>unt ) {
	my @numbers := $prim...$prim+$count :by(2);
	let $prim;
	
	for @numbers -> $prim {
		return 1 if i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5	102	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7782	7929	
==>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5174	5321	
==>urn;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7782	7929	
==>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7782	7929	
==>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5186	5333	
==>urn;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1677	1776	
==>etc/terminfo/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscre <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1029	1127	
==>Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilres <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1029	1127	
==>Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilres <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	951	1048	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilres <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	951	1048	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilres <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	327	435	
==>t Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %para <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	327	435	
==>t Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6741	6833	
==>&& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## -- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6741	6833	
==>&& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## -- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6741	6833	
==>&& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## -- <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9285	9392	
==>RL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't open $file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9576	9666	
==>'*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9576	9666	
==>'*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9576	9666	
==>'*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue', <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2686	2805	
==>package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die " <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3150	3269	
==>package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die " <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1215	1324	
==>odo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_per <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1273	1382	
==>odo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_per <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10373	10472	
==>eg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_cla <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3144	3263	
==>pan.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3144	3263	
==>pan.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2090	2194	
==>,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2090	2194	
==>,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].de <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2090	2194	
==>,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].de <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37300	37413	
==>atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to the constr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22401	22499	
==>)
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pendi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5813	5909	
==>XICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5813	5909	
==>XICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5813	5909	
==>XICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	993	1110	
==>blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	993	1110	
==>blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	993	1110	
==>blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($meth <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8305	8407	
==>k>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8305	8407	
==>k>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nic <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	153	297	
==>e
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7517	7636	
==>nless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7517	7636	
==>nless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7517	7636	
==>nless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28152	28243	
==>,"\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5731	5846	
==>var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5731	5846	
==>var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6321	6436	
==>var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19425	19516	
==>standard data manipulation statements but that the target relation
variables are system cata <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19425	19516	
==>standard data manipulation statements but that the target relation
variables are system cata <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2028	2160	
==>ilable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2006	2138	
==>ilable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	993	1124	
==>_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	993	1124	
==>_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	993	1124	
==>_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{j <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3321	3457	
==>tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3321	3457	
==>tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1273	1374	
==>}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringi <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1273	1374	
==>}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1163	1254	
==>L1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1163	1254	
==>L1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1163	1254	
==>L1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EX <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1256	1359	
==>.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/R <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25970	26064	
==>iated with the message, and can be interpolated into the
human-readable version.  Each variable <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25970	26064	
==>iated with the message, and can be interpolated into the
human-readable version.  Each variable <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6674	6762	
==>elf.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@sib <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6674	6762	
==>elf.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@sib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7645	7808	
==>ems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7645	7808	
==>ems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7645	7808	
==>ems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	515	607	
==>ersion
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant m <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	515	607	
==>ersion
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4089	4219	
==>ere are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4089	4219	
==>ere are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5195	5324	
==>ngs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5195	5324	
==>ngs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5195	5324	
==>ngs) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9546	9659	
==>@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9546	9659	
==>@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9546	9659	
==>@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8602	8697	
==>n items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8602	8697	
==>n items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4192	4303	
==>pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4192	4303	
==>pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4782	4893	
==>pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15705	15796	
==>=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to ma <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15705	15796	
==>=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3524	3633	
==>ethod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3524	3633	
==>ethod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3524	3633	
==>ethod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obje <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3054	3160	
==>curate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %r <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3054	3160	
==>curate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	989	1094	
==>-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	989	1094	
==>-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	989	1094	
==>-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible na <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1233	1327	
==>- $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@ite <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1233	1327	
==>- $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@ite <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17136	17249	
==>er than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20613	20726	
==>er than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20191	20304	
==>er than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!hea <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	864	963	
==>ubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($t <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	864	963	
==>ubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5365	5494	
==>'"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(St <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5365	5494	
==>'"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8740	8850	
==>{
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8740	8850	
==>{
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8740	8850	
==>{
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprint <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8311	8424	
==>hings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8311	8424	
==>hings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8311	8424	
==>hings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13266	13378	
==>ompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13266	13378	
==>ompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1. <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1610	1730	
==>t;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_all_children() <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1610	1730	
==>t;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_all_children() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4837	4940	
==>e = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4837	4940	
==>e = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4837	4940	
==>e = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5079	5189	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1036	1146	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	896	1006	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5079	5189	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1036	1146	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17616	17713	
==>n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17616	17713	
==>n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17616	17713	
==>n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23223	23316	
==>mbiguous results or associations.  Or alternately, the other
packages require your text data t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23223	23316	
==>mbiguous results or associations.  Or alternately, the other
packages require your text data t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7392	7476	
==>$match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7392	7476	
==>$match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7392	7476	
==>$match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5428	5527	
==>n't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5428	5527	
==>n't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5428	5527	
==>n't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	956	1050	
==>or debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_soft <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	956	1050	
==>or debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_soft <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7433	7577	
==>ar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7433	7577	
==>ar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7433	7577	
==>ar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	384	488	
==>n;

# for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNC <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	442	546	
==>n;

# for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNC <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3615	3818	
==>(defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.re <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3615	3818	
==>(defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10033	10130	
==>::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10033	10130	
==>::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10033	10130	
==>::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5332	5437	
==>ss defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5332	5437	
==>ss defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5332	5437	
==>ss defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	258	507	
==>y = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	258	507	
==>y = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4579	4672	
==>yobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4579	4672	
==>yobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4579	4672	
==>yobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2249	2354	
==>_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2249	2354	
==>_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2249	2354	
==>_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2162	2256	
==>universe = self.union( self.complement )
    return $.universe = $self unless defined $.univers <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2162	2256	
==>universe = self.union( self.complement )
    return $.universe = $self unless defined $.univers <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	397	505	
==>_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	397	505	
==>_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	397	505	
==>_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9193	9281	
==>sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statemen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3018	3106	
==>sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statemen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2867	2964	
==>lue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2867	2964	
==>lue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2867	2964	
==>lue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15299	15394	
==>ponse message for interactive systems.

If the program or any of its components are intended for <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15299	15394	
==>ponse message for interactive systems.

If the program or any of its components are intended for <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15838	16001	
==>e( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16117	16280	
==>e( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4084	4205	
==>ift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sor <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4381	4474	
==>morrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The followi <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4381	4474	
==>morrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The followi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	138	253	
==>nings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	133	242	
==>nings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	127	236	
==>nings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	133	242	
==>nings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	127	236	
==>nings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3953	4054	
==>:infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3953	4054	
==>:infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3953	4054	
==>:infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10456	10553	
==>sts which you would like to force into being TODO tests
then you can pass them through this functi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10514	10611	
==>sts which you would like to force into being TODO tests
then you can pass them through this functi <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	644	768	
==>y $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$ <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	644	768	
==>y $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5884	5993	
==>3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5884	5993	
==>3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5884	5993	
==>3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6363	6469	
==>rse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6363	6469	
==>rse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6363	6469	
==>rse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13377	13476	
==>)` parameter to most of the functions is a way
to provide a comment that refers to another file or t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13435	13534	
==>)` parameter to most of the functions is a way
to provide a comment that refers to another file or t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2839	2981	
==>ion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3127	3261	
==>ion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9545	9679	
==>ion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3127	3261	
==>ion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9545	9679	
==>ion( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6975	7086	
==>+> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6975	7086	
==>+> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6975	7086	
==>+> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking incr <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12172	12270	
==>() since we do not yet have
object support. Once object support is created, we will add it here, an <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12230	12328	
==>() since we do not yet have
object support. Once object support is created, we will add it here, an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2011	2124	
==>ame_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2011	2124	
==>ame_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2011	2124	
==>ame_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $j <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1712	1818	
==>}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    ST <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1712	1818	
==>}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    ST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	350	450	
==>y concreate and practical 
# things like Object, Package and Module. It was also created
# by God (wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	350	450	
==>y concreate and practical 
# things like Object, Package and Module. It was also created
# by God (wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	350	450	
==>y concreate and practical 
# things like Object, Package and Module. It was also created
# by God (wh <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18413	18518	
==>in
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Ne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18413	18518	
==>in
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2418	2516	
==>= thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2418	2516	
==>= thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2418	2516	
==>= thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1594	1715	
==>ethod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1594	1715	
==>ethod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1486	1583	
==>ing(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1486	1583	
==>ing(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1486	1583	
==>ing(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3209	3369	
==>) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3209	3369	
==>) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3209	3369	
==>) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $e <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1574	1666	
==>in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1414	1506	
==>in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	534	702	
==>},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	534	702	
==>},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	534	702	
==>},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_clas <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13032	13130	
==>also used internally when joining two spans, and when getting the span size.

Create a span of 10 u <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13032	13130	
==>also used internally when joining two spans, and when getting the span size.

Create a span of 10 u <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6573	6747	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6766	6940	
==>'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4115	4258	
==>lue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4115	4258	
==>lue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4115	4258	
==>lue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemente <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6603	6713	
==>efix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6603	6713	
==>efix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6603	6713	
==>efix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16077	16173	
==>ct given in the named parameter $document, and
whose Node Type attribute is set from the named pa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16077	16173	
==>ct given in the named parameter $document, and
whose Node Type attribute is set from the named pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2538	2645	
==>mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2538	2645	
==>mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2538	2645	
==>mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth' <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6059	6154	
==>a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6059	6154	
==>a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14275	14454	
==>" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14554	14733	
==>" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4578	4676	
==>?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4578	4676	
==>?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6775	6873	
==>?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2978	3089	
==>ring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2978	3089	
==>ring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2978	3089	
==>ring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1806	1902	
==>infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1806	1902	
==>infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1277	1412	
==>($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1277	1412	
==>($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1426	1530	
==>nvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1426	1530	
==>nvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1426	1530	
==>nvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19266	19374	
==>->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonCla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19266	19374	
==>->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonCla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19266	19374	
==>->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonCla <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34677	34773	
==>Relation, and returns a new Relation that has the
same heading as the invocant and whose body con <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39227	39323	
==>Relation, and returns a new Relation that has the
same heading as the invocant and whose body con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	75	177	
==>ntainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	75	177	
==>ntainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	75	177	
==>ntainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), ke <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25945	26039	
==>ing this original copyright notice and other credits.
Rosetta is distributed in the hope that i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25945	26039	
==>ing this original copyright notice and other credits.
Rosetta is distributed in the hope that i <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6983	7134	
==>return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6983	7134	
==>return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12103	12223	
==>')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12103	12223	
==>')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12103	12223	
==>')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21423	21518	
==>...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event name <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20304	20399	
==>...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event name <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21423	21518	
==>...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event name <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20304	20399	
==>...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	627	758	
==>ion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	627	758	
==>ion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	627	758	
==>ion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37501	37598	
==>order of its arguments is not significant to the result;
the new Relation is the result of combini <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42050	42147	
==>order of its arguments is not significant to the result;
the new Relation is the result of combini <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5993	6111	
==>, nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) {
      Renew(r->o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1493	1592	
==>pcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1493	1592	
==>pcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18424	18511	
==>l is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18424	18511	
==>l is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19396	19685	
==>arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $ot <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19396	19685	
==>arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $ot <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19396	19685	
==>arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $ot <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3916	4021	
==>, # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3916	4021	
==>, # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29119	29229	
==>le MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29119	29229	
==>le MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	462	564	
==>le MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5719	5818	
==>e API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5719	5818	
==>e API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3266	3369	
==>od | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignatu <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3266	3369	
==>od | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignatu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3316	3417	
==>f, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3316	3417	
==>f, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3316	3417	
==>f, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($labe <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1975	2077	
==>ne, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1975	2077	
==>ne, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3987	4078	
==>sion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3987	4078	
==>sion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3987	4078	
==>sion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obje <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15082	15226	
==>of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19257	19401	
==>of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40324	40433	
==>lue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40324	40433	
==>lue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40324	40433	
==>lue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	550	665	
==>.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	550	665	
==>.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	550	665	
==>.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1628	1723	
==>also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<` <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1628	1723	
==>also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<` <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4359	4460	
==>e, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4359	4460	
==>e, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7528	7622	
==>_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sor <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7528	7622	
==>_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sor <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7528	7622	
==>_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sor <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	349	484	
==>fmap {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4212	4335	
==>e_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Litera <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4212	4335	
==>e_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Litera <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1062	1185	
==>e_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Litera <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13487	13577	
==>MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_required> <MemberExpression> <Argum <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6837	6984	
==>mp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bou <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6837	6984	
==>mp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bou <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3651	3746	
==>iption )>

Marks that the next test should pass.  C<$description> is the optional
description of <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3651	3746	
==>iption )>

Marks that the next test should pass.  C<$description> is the optional
description of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3731	3826	
==>iption )>

Marks that the next test should pass.  C<$description> is the optional
description of <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2162	2271	
==>\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2943	3052	
==>\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2535	2632	
==>GIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2535	2632	
==>GIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2535	2632	
==>GIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9478	9638	
==>},
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9478	9638	
==>},
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9478	9638	
==>},
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $va <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5485	5581	
==>tions in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5485	5581	
==>tions in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8747	8852	
==>imP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8747	8852	
==>imP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8747	8852	
==>imP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB pref <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20778	20878	
==>ressionStatement :words {  # see 12.4
      <!before <'function'>><Expression> <';'> #lookahead
}
rul <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1524	1618	
==>er_args->{INST_ARCHLIB} =
      File::Spec->catfile($path, "arch");
    $self->makemaker_args-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1179	1299	
==>,
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1179	1299	
==>,
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1179	1299	
==>,
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    f <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3859	3948	
==>6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harv <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3859	3948	
==>6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3045	3188	
==>w('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        '] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3045	3188	
==>w('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        '] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3045	3188	
==>w('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        '] <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7790	7885	
==>an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=ba <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7790	7885	
==>an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=ba <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4321	4444	
==>:get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4333	4456	
==>:get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq ' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5433	5541	
==>TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5433	5541	
==>TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7630	7738	
==>TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22299	22393	
==>el =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21171	21265	
==>el =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22299	22393	
==>el =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21171	21265	
==>el =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1396	1475	
==>ias>|<hash_alias>|<external_scalar_alias>|<external_array_alias>|<external_hash_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2688	2842	
==>^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2935	3089	
==>^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3030	3134	
==>ach.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::V <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3030	3134	
==>ach.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::V <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3030	3134	
==>ach.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	352	569	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $inden <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	352	569	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $inden <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5310	5413	
==>ode::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2852	2955	
==>ode::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3701	3804	
==>ode::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	167	269	
==>mes;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_iden <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	167	269	
==>mes;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_iden <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3777	3877	
==>ion when running against
some of the perl5 t/op/ test files.  Use of the perl api has to be
checked f <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	17	114	
==>ny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	17	114	
==>ny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13248	13385	
==>ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9434	9571	
==>ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10270	10407	
==>ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17488	17611	
==>de_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_l <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17488	17611	
==>de_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_l <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14874	14969	
==>,
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  metho <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14874	14969	
==>,
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  metho <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6030	6120	
==>Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6030	6120	
==>Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8227	8317	
==>Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These n <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12489	12608	
==>$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num },
     );
sub p6_as_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	168	273	
==>'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $inte <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	374	479	
==>'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $inte <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	42	141	
==>ental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'it <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	42	141	
==>ental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'it <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3855	4032	
==>lsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3855	4032	
==>lsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20315	20423	
==>toload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20315	20423	
==>toload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20315	20423	
==>toload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7832	8008	
==>{
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7832	8008	
==>{
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7832	8008	
==>{
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1846	1953	
==>capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1986	2093	
==>capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12032	12160	
==>} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12032	12160	
==>} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12032	12160	
==>} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5662	5761	
==>esults.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implemente <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5662	5761	
==>esults.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implemente <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4309	4453	
==>";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4309	4453	
==>";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4309	4453	
==>";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7843	7948	
==>pans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

T <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7843	7948	
==>pans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2349	2449	
==>Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2349	2449	
==>Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2349	2449	
==>Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.i <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10166	10262	
==>tion of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10224	10320	
==>tion of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2717	2844	
==>elf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2717	2844	
==>elf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2717	2844	
==>elf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	506	596	
==>cialised processing instructions may sub-class this module or
provide special behaviour whe <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	506	596	
==>cialised processing instructions may sub-class this module or
provide special behaviour whe <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2088	2211	
==>ns },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $bur <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2088	2211	
==>ns },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $bur <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6273	6371	
==>ders. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a doc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6273	6371	
==>ders. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a doc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	92	190	
==>eCategory);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3864	4028	
==>resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4328	4492	
==>resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	228	331	
==>rt Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	228	331	
==>rt Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	228	331	
==>rt Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5958	6117	
==>t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['',''] unless $match; # defined($t);

        #prin <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1453	1554	
==>eport_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12679	12780	
==>e zero tuples; so does result.
        return Relation::Example.new( heading => $!heading, body => set <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1453	1554	
==>eport_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numb <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1533	1634	
==>eport_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numb <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11720	11830	
==>g "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11720	11830	
==>g "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method h <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4329	4440	
==>$j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method ze <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4329	4440	
==>$j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method ze <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	174	276	
==>iled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	174	276	
==>iled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	174	276	
==>iled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1832	1969	
==>ce_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1832	1969	
==>ce_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1832	1969	
==>ce_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pee <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24798	24917	
==>RAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21219	21338	
==>RAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4356	4462	
==>'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimiz <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4356	4462	
==>'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimiz <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28975	29079	
==>r a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28975	29079	
==>r a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINA <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7701	7801	
==>ler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	330	430	
==>r a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINA <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7701	7801	
==>ler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14267	14414	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14267	14414	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chang <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14267	14414	
==>nding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chang <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7787	7883	
==>en an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7787	7883	
==>en an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '= <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	707	810	
==>rom_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	707	810	
==>rom_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1771	1867	
==>IL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precomp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1771	1867	
==>IL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precomp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1771	1867	
==>IL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precomp <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3177	3281	
==>info} = join '', qx{$executable -V};
}

sub _build_exclude_re {
    my $excl = join "|", # map { quotemet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19567	19661	
==>me, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18548	18642	
==>me, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19567	19661	
==>me, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18548	18642	
==>me, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18457	18565	
==>(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14878	14986	
==>(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3508	3601	
==>eturncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3508	3601	
==>eturncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3508	3601	
==>eturncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11916	12056	
==>ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift fo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11916	12056	
==>ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift fo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11916	12056	
==>ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift fo <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7157	7266	
==>Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it ex <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1453	1556	
==>t looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how accurate <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21542	21637	
==>SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21542	21637	
==>SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21542	21637	
==>SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2634	2727	
==>ad1 API METHODS

These methods must be implemented by subclasses... though a default
implement <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2634	2727	
==>ad1 API METHODS

These methods must be implemented by subclasses... though a default
implement <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15383	15479	
==>ntifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes it <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15383	15479	
==>ntifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3803	3931	
==>ame;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3803	3931	
==>ame;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3803	3931	
==>ame;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20984	21075	
==>of your distrbution's modules that use Module::Compile based modules
will automatically be c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20984	21075	
==>of your distrbution's modules that use Module::Compile based modules
will automatically be c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2928	3042	
==>' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3133	3247	
==>' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5682	5796	
==>' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4314	4428	
==>' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$l <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3487	3590	
==>$right->returns) ? 
        bit->new(1) : bit->new(0)
}

package closure::params;

use strict;
use warni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1588	1696	
==>->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1588	1696	
==>->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1588	1696	
==>->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6491	6591	
==>{
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6491	6591	
==>{
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5953	6070	
==>n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't op <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5953	6070	
==>n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't op <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5953	6070	
==>n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't op <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18447	18550	
==><referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18447	18550	
==><referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1775	2180	
==>osetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1775	2180	
==>osetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

c <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	912	1031	
==>tlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        r <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8350	8455	
==>= $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	789	886	
==>tlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11531	11612	
==>.

------------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1839	1920	
==>.

------------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1679	1760	
==>.

------------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11531	11612	
==>.

------------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11531	11612	
==>.

------------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2550	2656	
==>) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2550	2656	
==>) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9367	9466	
==>~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    m <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9367	9466	
==>~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	101	200	
==>op/regexp.t
our $bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xf <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2369	2508	
==>r',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8928	9067	
==>r',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2369	2508	
==>r',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8924	9063	
==>r',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opti <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36837	36930	
==>string with contents of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3944	4063	
==>components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3944	4063	
==>components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3944	4063	
==>components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8126	8235	
==>elf!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::deco <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8126	8235	
==>elf!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::deco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9104	9292	
==>(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $it <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9104	9292	
==>(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $it <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9104	9292	
==>(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1099	1212	
==>$_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1099	1212	
==>$_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1099	1212	
==>$_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10321	10423	
==>ry directory the initrd.gz will be built later from.
      We'll copy pugs and the libraries it needs t <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11402	11493	
==>opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2792	2907	
==>= Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2792	2907	
==>= Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2792	2907	
==>= Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3908	4010	
==>tate[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matche <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3908	4010	
==>tate[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matche <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1068	1187	
==>{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    di <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1900	2014	
==>{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2040	2154	
==>{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    di <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3650	3762	
==>a => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3650	3762	
==>a => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $d <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1347	1466	
==>----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0 <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3643	3762	
==>----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1347	1466	
==>----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3643	3762	
==>----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4353	4456	
==>qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7254	7388	
==>atisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($e <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7718	7852	
==>atisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11986	12150	
==>version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11986	12150	
==>version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1111	1216	
==>ame = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1111	1216	
==>ame = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1111	1216	
==>ame = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2414	2523	
==>lass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2414	2523	
==>lass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2414	2523	
==>lass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16158	16251	
==>rom the named parameter $node_type (a
string); the optional named parameter %attributes (a has <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16158	16251	
==>rom the named parameter $node_type (a
string); the optional named parameter %attributes (a has <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7007	7106	
==>ncoding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7007	7106	
==>ncoding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	281	378	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	281	378	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	281	378	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2377	2489	
==>with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ changing <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2289	2396	
==>with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ changing <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3397	3503	
==>$self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3397	3503	
==>$self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3397	3503	
==>$self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12892	13069	
==>O_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12892	13069	
==>O_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4143	4267	
==>ap { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4143	4267	
==>ap { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4143	4267	
==>ap { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13144	13284	
==>.
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this won <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13144	13284	
==>.
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this won <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13144	13284	
==>.
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this won <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16692	16793	
==>Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16692	16793	
==>Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11884	12010	
==>r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11884	12010	
==>r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11884	12010	
==>r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10280	10420	
==>] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6621	6761	
==>] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7470	7610	
==>] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7991	8085	
==>basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Prox <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7991	8085	
==>basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Prox <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9828	9959	
==>>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9828	9959	
==>>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9828	9959	
==>>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6429	6524	
==>art => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCR <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6429	6524	
==>art => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	286	386	
==>ge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	831	931	
==>ge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' v <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	286	386	
==>ge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	831	931	
==>ge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	831	931	
==>ge() and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' v <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13085	13313	
==>>new('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	577	692	
==>: array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	577	692	
==>: array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	577	692	
==>: array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on ob <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29027	29122	
==>on: that is, they have not matched something yet.
Handle names that I<do> have a "predecessor" ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9977	10081	
==>ar
context, it returns the next node:

  while (my $node = $iter->()) {
    # $node is a Regexp::Parser:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22126	22218	
==>rs.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseud <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21007	21099	
==>rs.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseud <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22126	22218	
==>rs.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseud <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21007	21099	
==>rs.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseud <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9988	10125	
==>ny --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparato <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1202	1336	
==>ny --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Comparato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	488	583	
==>0) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	488	583	
==>0) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	488	583	
==>0) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Coul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3289	3400	
==>o be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) ac <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3289	3400	
==>o be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) ac <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3289	3400	
==>o be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) ac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1845	1944	
==>'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1845	1944	
==>'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2305	2434	
==>} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9077	9206	
==>} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2305	2434	
==>} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9077	9206	
==>} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $n <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4154	4257	
==>ts
sub strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ s{^=\w(.*?)^=cut$}{"\n" x ($1 =~ y/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1927	2094	
==>n if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1927	2094	
==>n if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental! <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3512	3611	
==>Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
*{'rul <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18655	18752	
==>hreads try to access the same external resources.>

Rosetta does not use any dialect of SQL in its <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18655	18752	
==>hreads try to access the same external resources.>

Rosetta does not use any dialect of SQL in its <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1554	1653	
==>ssert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1554	1653	
==>ssert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	602	731	
==>}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	618	747	
==>}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	594	723	
==>}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1343	1439	
==>VMSG>s. Each time people say something (in public), the current
time and the text they said is sa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1343	1439	
==>VMSG>s. Each time people say something (in public), the current
time and the text they said is sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9256	9406	
==>@a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9256	9406	
==>@a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9256	9406	
==>@a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2939	3037	
==>ulti Array::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @v <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4696	4793	
==>ulti Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @v <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7920	8023	
==>alize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7920	8023	
==>alize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9477	9565	
==>_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9477	9565	
==>_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9477	9565	
==>_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14382	14489	
==>l6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14382	14489	
==>l6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14382	14489	
==>l6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $t <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	698	795	
==>t operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  A <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	698	795	
==>t operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  A <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1604	1722	
==>return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for s <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1604	1722	
==>return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2714	2810	
==>} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable bi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2714	2810	
==>} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable bi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3061	3157	
==>} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable bi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4777	4898	
==>oncat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4777	4898	
==>oncat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7622	7719	
==>Internals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliase <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7622	7719	
==>Internals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliase <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7622	7719	
==>Internals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliase <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2735	2842	
==>substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2735	2842	
==>substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2735	2842	
==>substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, - <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10353	10456	
==>ue_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10353	10456	
==>ue_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v re <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6335	6439	
==>Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6335	6439	
==>Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2895	2993	
==>( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $se <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2895	2993	
==>( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $se <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1106	1198	
==>S_PERL}  = "./pugs $optional_args";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1347	1453	
==>..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:del <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	367	473	
==>..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:del <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8823	8929	
==>..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:del <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21023	21118	
==>ograms.  Your package or program can be distributed with one or more
resource files containing t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21023	21118	
==>ograms.  Your package or program can be distributed with one or more
resource files containing t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	637	739	
==>_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	637	739	
==>_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7240	7337	
==>'-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7240	7337	
==>'-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7240	7337	
==>'-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1773	2038	
==>v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # tok <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1773	2038	
==>v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # tok <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6270	6355	
==>IL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6270	6355	
==>IL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6270	6355	
==>IL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__retu <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4654	4789	
==>nal">,
            %pad<"isWritable">, %pad<"paramContext">,   
            %pad<"paramDefault">,   # ???
        );
    }
    elsif $tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7893	8022	
==>if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7893	8022	
==>if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7893	8022	
==>if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31876	31967	
==>ntaining those assertions will fail to compile and throw an
error (specifically, B<RPe_NOTRE <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	125	225	
==>ass - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infin <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	125	225	
==>ass - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infin <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4934	5037	
==>utes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.define <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4934	5037	
==>utes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6206	6303	
==>re is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6206	6303	
==>re is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6206	6303	
==>re is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cla <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3768	3990	
==>g Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.spl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3768	3990	
==>g Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.spl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2745	2844	
==>$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2745	2844	
==>$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2745	2844	
==>$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5" <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5367	5467	
==>em B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descri <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5367	5467	
==>em B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7564	7664	
==>em B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descri <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3043	3141	
==>200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://ww <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2011	2116	
==>ndef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2011	2116	
==>ndef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2011	2116	
==>ndef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10161	10249	
==>)?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10896	10984	
==>)?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	364	482	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	364	482	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	364	482	
==>unction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5932	6048	
==>nimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.c <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5932	6048	
==>nimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2272	2379	
==>2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2272	2379	
==>2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2272	2379	
==>2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	908	1012	
==>ent class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	908	1012	
==>ent class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document o <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5148	5275	
==>a"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(9 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5148	5275	
==>a"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(9 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	586	697	
==><PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	586	697	
==><PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	586	697	
==><PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	120	237	
==>oin ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	120	237	
==>oin ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	120	237	
==>oin ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18521	18620	
==>:IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 MET <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18521	18620	
==>:IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 MET <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7302	7396	
==>opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7302	7396	
==>opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7302	7396	
==>opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2460	2553	
==>aders.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2460	2553	
==>aders.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3862	3964	
==>est splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3862	3964	
==>est splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3862	3964	
==>est splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21738	21831	
==>t I<Database Language
Independence>.  To further demonstrate the difference, it is useful to
c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21738	21831	
==>t I<Database Language
Independence>.  To further demonstrate the difference, it is useful to
c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7622	7778	
==>. ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7622	7778	
==>. ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7622	7778	
==>. ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bi <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2195	2294	
==>rgs{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2173	2272	
==>rgs{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14818	14912	
==>:Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14818	14912	
==>:Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14818	14912	
==>:Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3473	3560	
==>re -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing - <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3473	3560	
==>re -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing - <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2463	2671	
==>5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2463	2671	
==>5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8107	8218	
==>e as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8107	8218	
==>e as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8107	8218	
==>e as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16473	16568	
==>_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16473	16568	
==>_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16473	16568	
==>_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	467	559	
==>perty, and adds nothing else.

More specialised processing instructions may sub-class this mo <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	467	559	
==>perty, and adds nothing else.

More specialised processing instructions may sub-class this mo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16483	16612	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19960	20089	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19520	19649	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other! <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4007	4094	
==>e::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method cons <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4007	4094	
==>e::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method cons <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7742	7861	
==>t "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shif <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7742	7861	
==>t "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4864	4970	
==>_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4864	4970	
==>_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4864	4970	
==>_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13169	13283	
==>e(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13169	13283	
==>e(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13169	13283	
==>e(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => meth <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7245	7349	
==>ode::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7257	7361	
==>ode::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9251	9350	
==>ethod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9251	9350	
==>ethod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	503	593	
==>:_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	503	593	
==>:_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	503	593	
==>:_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2028	2142	
==>');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2028	2142	
==>');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2028	2142	
==>');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM- <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10725	10827	
==>har_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10725	10827	
==>har_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4114	4247	
==>>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4114	4247	
==>>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4114	4247	
==>>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21577	21667	
==><$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Ret <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21577	21667	
==><$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16017	16114	
==>itself and not any human user.  In some
situations, a shared program component may raise such a co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16017	16114	
==>itself and not any human user.  In some
situations, a shared program component may raise such a co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	797	885	
==>n_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	797	885	
==>n_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	797	885	
==>n_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	170	288	
==>er::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	163	277	
==>er::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	157	271	
==>er::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	163	277	
==>er::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	157	271	
==>er::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3177	3277	
==>::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3177	3277	
==>::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3177	3277	
==>::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1611	1703	
==>:Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports mul <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1611	1703	
==>:Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17766	17886	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17766	17886	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17766	17886	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	373	491	
==>mizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - eas <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	352	465	
==>mizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - eas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3737	3921	
==>b { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3737	3921	
==>b { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3737	3921	
==>b { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell') <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8530	8641	
==>capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8526	8637	
==>capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_cap <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12798	12906	
==>shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $self->execute($self->compile(@_))->val;
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	887	995	
==>e string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1252	1357	
==>e string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	851	956	
==>e string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken se <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1252	1357	
==>e string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	380	491	
==>, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, wh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	380	491	
==>, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16116	16216	
==>6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16116	16216	
==>6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16116	16216	
==>6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MUL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6574	6697	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6574	6697	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6574	6697	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15195	15299	
==>al combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18672	18776	
==>al combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5693	5808	
==>cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5693	5808	
==>cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7588	7688	
==>.
Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into arra <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7588	7688	
==>.
Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1216	1310	
==>t the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1216	1310	
==>t the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1216	1310	
==>t the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7417	7561	
==>ey->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7417	7561	
==>ey->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7417	7561	
==>ey->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ) <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1068	1184	
==>ix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib} <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1068	1184	
==>ix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4566	4698	
==>|| $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, bu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4578	4710	
==>|| $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	72	170	
==>, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	72	170	
==>, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	72	170	
==>, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	17	118	
==>use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	17	118	
==>use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	17	118	
==>use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
us <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10065	10162	
==>t - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.fro <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10065	10162	
==>t - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.fro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5148	5294	
==>le;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5148	5294	
==>le;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5148	5294	
==>le;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @rol <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4910	5008	
==>bj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4910	5008	
==>bj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1575	1725	
==>t
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1575	1725	
==>t
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1575	1725	
==>t
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      do <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22785	22923	
==>le = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23064	23202	
==>le = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7665	7802	
==>ew( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7665	7802	
==>ew( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7665	7802	
==>ew( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1519	1632	
==>d utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1519	1632	
==>d utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4843	5094	
==>ned $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_con <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4843	5094	
==>ned $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10454	10633	
==>ned $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10454	10633	
==>ned $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10454	10633	
==>ned $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_con <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21859	21957	
==>to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<fr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20740	20838	
==>to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<fr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21859	21957	
==>to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<fr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20740	20838	
==>to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<fr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30396	30493	
==>ject.

=item $obj->walk()

"Walks" the object.  This is used to dive into the node's children
when <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	264	380	
==>my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left   'infix:<times>' '/'
%left   NEG
%righ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	490	599	
==>enBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	494	603	
==>enBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	490	599	
==>enBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	494	603	
==>enBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $i <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	118	212	
==>IL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	118	212	
==>IL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1502	1590	
==>JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1502	1590	
==>JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1502	1590	
==>JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8332	8437	
==>members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8332	8437	
==>members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2452	2560	
==>n {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_con <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2452	2560	
==>n {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_con <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2452	2560	
==>n {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_con <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22982	23072	
==>icks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(tar <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22982	23072	
==>icks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(tar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7690	7811	
==>};
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7690	7811	
==>};
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7690	7811	
==>};
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7950	8048	
==>is class represents an ordered set of spans.

The problem this class solves is when you need do per <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7950	8048	
==>is class represents an ordered set of spans.

The problem this class solves is when you need do per <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	302	414	
==>[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexs <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	302	414	
==>[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexs <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	765	867	
==>.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	765	867	
==>.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2227	2341	
==>d}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2227	2341	
==>d}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2227	2341	
==>d}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3445	3546	
==>pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compiler.pm



### how abou <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3323	3419	
==>pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compiler.pm

### how abou <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5413	5524	
==>ule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

metho <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5413	5524	
==>ule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1856	1956	
==>{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = eac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1856	1956	
==>{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = eac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1856	1956	
==>{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = eac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2285	2425	
==>fier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2285	2425	
==>fier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4211	4331	
==>$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4211	4331	
==>$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4211	4331	
==>$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7874	8004	
==>13),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowas <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7874	8004	
==>13),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1053	1175	
==>_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1053	1175	
==>_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1053	1175	
==>_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1220	1469	
==>g Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $ms <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1220	1469	
==>g Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $ms <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17352	17537	
==>>$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17352	17537	
==>>$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17352	17537	
==>>$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        P <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	665	754	
==>t to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	665	754	
==>t to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1836	1936	
==>str($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1836	1936	
==>str($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1836	1936	
==>str($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differen <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19835	19934	
==>tication Scheme".  In array context it will return two
values; the user name and the password.  In s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19835	19934	
==>tication Scheme".  In array context it will return two
values; the user name and the password.  In s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2802	2983	
==>ns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6279	6460	
==>ns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10103	10221	
==>name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10097	10215	
==>name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name' <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13181	13296	
==>$S0
    if $I0 == -1 goto addchar
    $S0 = substr "\n\r\t\f\a\e\0", $I0, 1
  addchar:
    inc pos
    if isrange go <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4389	4498	
==>_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        univ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4389	4498	
==>_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        univ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	67	169	
==>urn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Cod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	67	169	
==>urn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Cod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	67	169	
==>urn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2679	2790	
==>return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2667	2778	
==>return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1509	1604	
==>ap(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1509	1604	
==>ap(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1509	1604	
==>ap(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3089	3220	
==>amic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped from '&func' in
                   # the env, whic <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	767	860	
==>junction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $. <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	959	1052	
==>junction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	767	860	
==>junction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	959	1052	
==>junction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $. <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4713	4852	
==>t: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4713	4852	
==>t: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	294	395	
==>f $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	294	395	
==>f $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	294	395	
==>f $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4601	4750	
==>n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5065	5214	
==>n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3842	3989	
==>curse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3842	3989	
==>curse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3842	3989	
==>curse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a h <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32162	32257	
==>the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  With <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36712	36807	
==>the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  With <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6479	6587	
==>$_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6479	6587	
==>$_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6479	6587	
==>$_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17604	17706	
==>n()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    sa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17604	17706	
==>n()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    sa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3789	3944	
==>tate},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4035	4182	
==>tate},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10484	10631	
==>tate},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4035	4182	
==>tate},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10484	10631	
==>tate},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1142	1241	
==>ow_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1142	1241	
==>ow_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1351	1450	
==>ow_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27532	27630	
==>e values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32084	32182	
==>e values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	913	1022	
==>2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	913	1022	
==>2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	913	1022	
==>2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1507	1628	
==>thod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should acc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1507	1628	
==>thod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should acc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1507	1628	
==>thod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should acc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1555	1659	
==>}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1555	1659	
==>}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8253	8416	
==>match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8253	8416	
==>match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4148	4258	
==>@array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4148	4258	
==>@array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4148	4258	
==>@array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	13	118	
==>0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) retur <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	13	118	
==>0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4945	5039	
==>ary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4945	5039	
==>ary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4945	5039	
==>ary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13787	13892	
==>es.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100 <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13787	13892	
==>es.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1623	1727	
==>r(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1623	1727	
==>r(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1623	1727	
==>r(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4765	4892	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4958	5085	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16719	16833	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16719	16833	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16719	16833	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1234	1368	
==>] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1234	1368	
==>] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	822	935	
==>ASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	822	935	
==>ASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	822	935	
==>ASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3545	3673	
==>"pugs-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} < <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9922	10034	
==>$child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9922	10034	
==>$child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_w <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10652	10762	
==>.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

In <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10652	10762	
==>.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

In <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	304	427	
==>er object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1529	1652	
==>er object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5543	5669	
==>$len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4043	4169	
==>$len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5271	5386	
==>et( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLE <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8748	8863	
==>et( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLE <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7768	7883	
==>et( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLE <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1438	1629	
==>ing class, it can default to True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4916	5106	
==>ing class, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3846	4036	
==>ing class, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

su <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1526	1644	
==>%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $re <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1526	1644	
==>%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13762	13871	
==>} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18965	19074	
==>} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13762	13871	
==>} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18965	19074	
==>} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $origin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3029	3153	
==>1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3029	3153	
==>1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3029	3153	
==>1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3990	4114	
==>, 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3850	3969	
==>, 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	844	959	
==>( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	853	968	
==>( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18603	18693	
==>($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18603	18693	
==>($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18603	18693	
==>($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	514	673	
==>push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	602	761	
==>push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	599	753	
==>push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n-> <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2500	2597	
==>all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C< <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2500	2597	
==>all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17975	18070	
==>Compile attempts to make source filtering a sane process, by
parsing up your module's source cod <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17975	18070	
==>Compile attempts to make source filtering a sane process, by
parsing up your module's source cod <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1492	1633	
==>(keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') {
            $vs = "[\n".$o->_indent(join(",\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	757	857	
==>Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	757	857	
==>Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	757	857	
==>Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9386	9482	
==>group, pass its numerical
value:

  my $capture_2 = $parser->captures(2);

=head2 Walking the Tre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9590	9696	
==>s $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9590	9696	
==>s $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9590	9696	
==>s $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $star <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7275	7364	
==>s, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1100	1189	
==>s, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	675	800	
==>e;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $p <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	675	800	
==>e;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9778	9896	
==>ile::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9778	9896	
==>ile::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9778	9896	
==>ile::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13954	14069	
==>_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13954	14069	
==>_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13954	14069	
==>_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4200	4300	
==>tialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4200	4300	
==>tialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4442	4586	
==>{
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4635	4779	
==>{
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1702	1820	
==>nd .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1702	1820	
==>nd .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1702	1820	
==>nd .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.ge <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35623	35715	
==>mple $other!) returns Relation::Example>

This multi-method is a generic binary relational op <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36720	36812	
==>mple $other!) returns Relation::Example>

This multi-method is a generic binary relational op <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37220	37312	
==>mple $other!) returns Relation::Example>

This multi-method is a generic binary relational op <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39268	39360	
==>mple $other!) returns Relation::Example>

This multi-method is a generic binary relational op <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39816	39908	
==>mple $other!) returns Relation::Example>

This multi-method is a generic binary relational op <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5433	5547	
==>$self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5718	5832	
==>$self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1828	1936	
==>@_;
  $self->parse if $self->{stack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8040	8133	
==>ray { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).d <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7170	7263	
==>ray { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).d <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8040	8133	
==>ray { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).d <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7170	7263	
==>ray { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14276	14388	
==>ed
      if (
        ($tree->[-1]->family eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree->[-1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1165	1267	
==>le = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1165	1267	
==>le = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bod <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	211	311	
==>ject that userland folks will
see, but it has some other clutter because of unclear design.

    $.fr <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	211	311	
==>ject that userland folks will
see, but it has some other clutter because of unclear design.

    $.fr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3685	3797	
==>g.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7162	7274	
==>g.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6119	6231	
==>g.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.v <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21154	21248	
==>ls C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21154	21248	
==>ls C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	463	609	
==>ay is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    els <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	463	609	
==>ay is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    els <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8253	8394	
==>x id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4613	4754	
==>x id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5462	5603	
==>x id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2779	2870	
==>_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6231	6322	
==>_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2779	2870	
==>_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2779	2870	
==>_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10523	10609	
==>.

is($Bar->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1480	1596	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1480	1596	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1480	1596	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35346	35443	
==>names()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35346	35443	
==>names()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5087	5230	
==>an;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yiel <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5087	5230	
==>an;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	518	620	
==>repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	518	620	
==>repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	518	620	
==>repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14011	14118	
==>cher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14011	14118	
==>cher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14011	14118	
==>cher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39102	39195	
==>SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosett <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39102	39195	
==>SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosett <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	891	986	
==>s running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	891	986	
==>s running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3987	4173	
==>%full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation { <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7464	7650	
==>%full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	338	451	
==>$str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	338	451	
==>$str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	338	451	
==>$str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16282	16383	
==>turn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16282	16383	
==>turn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16282	16383	
==>turn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	429	526	
==>ny('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	429	526	
==>ny('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5952	6077	
==>my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5952	6077	
==>my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5952	6077	
==>my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6103	6221	
==>x(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5909	6021	
==>x(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	583	690	
==>lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pugs-Com <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	66	160	
==>lib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$Bin/../Pugs-Utils/lib",
    "$Bin/../Pugs-Com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5057	5150	
==>es$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5057	5150	
==>es$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5057	5150	
==>es$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4102	4217	
==>elf.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4102	4217	
==>elf.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6623	6724	
==>ethod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6623	6724	
==>ethod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6623	6724	
==>ethod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::mak <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1442	1550	
==>_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1442	1550	
==>_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3426	3531	
==>' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3426	3531	
==>' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3426	3531	
==>' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4781	4884	
==>er of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3660	3763	
==>b declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $ <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4781	4884	
==>er of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3660	3763	
==>b declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3660	3763	
==>b declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	141	241	
==>js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	141	241	
==>js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	141	241	
==>js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub u <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4075	4171	
==>is class method constructs a new cipher object.  The options passed to the 
C<new> constructor ge <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4075	4171	
==>is class method constructs a new cipher object.  The options passed to the 
C<new> constructor ge <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	990	1103	
==>from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	990	1103	
==>from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2408	2517	
==>it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2408	2517	
==>it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2408	2517	
==>it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14786	14887	
==>File::Spec->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable fi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23127	23223	
==>Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21936	22032	
==>Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23127	23223	
==>Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21936	22032	
==>Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to the <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4745	4894	
==>rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@mod <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4745	4894	
==>rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@mod <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19992	20086	
==>a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data ty <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24544	24638	
==>a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data ty <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23096	23190	
==>a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data ty <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17710	17901	
==>d::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19468	19659	
==>d::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39920	40110	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40979	41169	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                r <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1194	1310	
==>c = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2511	2655	
==>_fetchSize)){
                    $self->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slo <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4673	4793	
==>_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5332	5452	
==>_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4673	4793	
==>_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5332	5452	
==>_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7489	7646	
==>s < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7489	7646	
==>s < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7489	7646	
==>s < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20473	20588	
==>${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16894	17009	
==>${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13416	13547	
==>d, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"... <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13410	13541	
==>d, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15638	15755	
==>ub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15638	15755	
==>ub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15638	15755	
==>ub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shi <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13794	13915	
==>cope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1274	1395	
==>cope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12443	12548	
==>, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12443	12548	
==>, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12443	12548	
==>, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	835	944	
==>'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	835	944	
==>'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4136	4258	
==>heck the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die " <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4136	4258	
==>heck the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3383	3479	
==>O - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3383	3479	
==>O - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3383	3479	
==>O - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8342	8462	
==>:signature->new(
            params => closure::params->new(
                        symbol->new("&dispatcher", q<block>) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40890	40984	
==>ribute,
because that is a practical way of suggesting improvements to the standard
version.

=h <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26450	26544	
==>ribute, because that is a practical way of
suggesting improvements to the standard version.

=h <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40890	40984	
==>ribute,
because that is a practical way of suggesting improvements to the standard
version.

=h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26450	26544	
==>ribute, because that is a practical way of
suggesting improvements to the standard version.

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	818	920	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	818	920	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	818	920	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	440	531	
==>TP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	440	531	
==>TP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5975	6072	
==>});

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5975	6072	
==>});

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5975	6072	
==>});

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5408	5557	
==>eturn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5408	5557	
==>eturn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3594	3686	
==>ed to create a specific class instances which
perform the Test::Builder::Test::Base role.

=o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3594	3686	
==>ed to create a specific class instances which
perform the Test::Builder::Test::Base role.

=o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5791	5883	
==>ed to create a specific class instances which
perform the Test::Builder::Test::Base role.

=o <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10528	10716	
==>/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10528	10716	
==>/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2834	2938	
==>' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2834	2938	
==>' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2834	2938	
==>' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eigen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38234	38347	
==>ay;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38234	38347	
==>ay;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38234	38347	
==>ay;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1535	1633	
==>PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1535	1633	
==>PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5239	5357	
==>$tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5239	5357	
==>$tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5239	5357	
==>$tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->e <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8685	8791	
==>size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8685	8791	
==>size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	232	350	
==>return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	232	350	
==>return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	232	350	
==>return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7396	7496	
==>ors: like 'literal'.



Higher order operators take a list of match operators, and return a new 

mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7145	7242	
==>ors: like 'literal'.

Higher order operators take a list of match operators, and return a new 
mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1009	1118	
==>e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4204	4312	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3331	3439	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4204	4312	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3331	3439	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9015	9148	
==>g ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\0 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9015	9148	
==>g ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13299	13401	
==>lass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13299	13401	
==>lass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13299	13401	
==>lass::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	187	288	
==>o native
sub to_native { undef }

# conversion to other native types
sub to_num { num->new(0)  }
sub t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	44	142	
==>header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get inst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	44	142	
==>header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	44	142	
==>header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get inst <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	44	142	
==>header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get inst <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3718	3853	
==>$^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5035	5170	
==>$^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3718	3853	
==>$^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5023	5158	
==>$^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	468	561	
==>generic reductions don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3876	3990	
==>$fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3876	3990	
==>$fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3876	3990	
==>$fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horri <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16075	16180	
==>e at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16075	16180	
==>e at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	881	1080	
==>leop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	882	1081	
==>leop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4151	4261	
==>(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4151	4261	
==>(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4151	4261	
==>(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13737	13830	
==>field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13737	13830	
==>field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10815	10942	
==>n sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { ret <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10815	10942	
==>n sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4255	4348	
==>a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postci <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4255	4348	
==>a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postci <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4255	4348	
==>a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postci <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15102	15212	
==>l { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15102	15212	
==>l { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5182	5282	
==>);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	193	282	
==>ader_field_names scan
    date expires if_modified_since if_unmodified_since last_modified <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	193	282	
==>ader_field_names scan
    date expires if_modified_since if_unmodified_since last_modified <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35569	35682	
==>n_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35569	35682	
==>n_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35569	35682	
==>n_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24351	24447	
==>ing.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28903	28999	
==>ing.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6426	6542	
==>);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6426	6542	
==>);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6426	6542	
==>);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13407	13502	
==>dText" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13407	13502	
==>dText" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4010	4117	
==>self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2748	2855	
==>l->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch ti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4010	4117	
==>self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2748	2855	
==>l->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2748	2855	
==>l->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch ti <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20097	20194	
==>Rosetta" core
distribution to allow the core to be completely testable on its own.  It is
coded in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20097	20194	
==>Rosetta" core
distribution to allow the core to be completely testable on its own.  It is
coded in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6258	6346	
==>s.  

=cut

## -------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6258	6346	
==>s.  

=cut

## -------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6258	6346	
==>s.  

=cut

## -------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4734	4848	
==>s_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4734	4848	
==>s_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11903	11991	
==>gs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11903	11991	
==>gs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11903	11991	
==>gs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	847	1006	
==>$1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	814	964	
==>$1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	102	208	
==>sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	102	208	
==>sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	102	208	
==>sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1108	1210	
==>g traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1108	1210	
==>g traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1108	1210	
==>g traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11709	11806	
==>g syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&in <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11767	11864	
==>g syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13990	14102	
==>redocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13990	14102	
==>redocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17482	17579	
==>x0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17482	17579	
==>x0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17482	17579	
==>x0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9722	9911	
==>ion,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	302	479	
==>ion,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builde <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	302	479	
==>ion,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	876	992	
==>ng;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) retur <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	876	992	
==>ng;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8586	8738	
==>$_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8586	8738	
==>$_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11562	11649	
==>---------------------------------------------------

With this Role meta-model , any Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11562	11649	
==>---------------------------------------------------

With this Role meta-model , any Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11562	11649	
==>---------------------------------------------------

With this Role meta-model , any Cla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1928	2036	
==>t we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickge <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1928	2036	
==>t we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3655	3753	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, "> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3655	3753	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, "> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3655	3753	
==>_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, "> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25114	25209	
==>s a special exception, the copyright holders
of Rosetta give you permission to link Rosetta with <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25114	25209	
==>s a special exception, the copyright holders
of Rosetta give you permission to link Rosetta with <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3397	3484	
==>ttrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4091	4178	
==>ttrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5299	5386	
==>ttrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12932	13032	
==>te (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or C<$keys> from the i <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1821	1917	
==>ethod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.interse <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1821	1917	
==>ethod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.interse <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10556	10649	
==>ethod accepts multiple ($field => $value) pairs, which
means that you can update several field <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10556	10649	
==>ethod accepts multiple ($field => $value) pairs, which
means that you can update several field <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3780	3896	
==>hift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a one-liner";
    }
    elsif($arg eq '- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	822	915	
==>';
use constant RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8359	8450	
==>=================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8359	8450	
==>=================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8359	8450	
==>=================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2310	2441	
==>" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2310	2441	
==>" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2310	2441	
==>" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	953	1081	
==>of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.sub <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	953	1081	
==>of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31055	31219	
==>mp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31055	31219	
==>mp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31055	31219	
==>mp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2172	2275	
==>iff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.n <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2172	2275	
==>iff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.n <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9294	9413	
==>rset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set  <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9294	9413	
==>rset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set  <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8745	8846	
==>ames6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8745	8846	
==>ames6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8745	8846	
==>ames6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10358	10503	
==>le) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10358	10503	
==>le) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3845	3940	
==>__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3845	3940	
==>__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3845	3940	
==>__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	856	963	
==>::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	856	963	
==>::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26380	26476	
==>f the original (or rather, the corresponding projection of
each tuple), but that any duplicates f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30932	31028	
==>f the original (or rather, the corresponding projection of
each tuple), but that any duplicates f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29934	30030	
==>f the original (or rather, the corresponding projection of
each tuple), but that any duplicates f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2209	2310	
==>yntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2209	2310	
==>yntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1437	1535	
==>yntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3298	3396	
==>yntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gramm <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14982	15079	
==>i method join (Relation::Example $other!) returns Relation::Example {

    # First look for trivia <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8999	9170	
==>bareword} eq 'export' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14856	14978	
==>++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14856	14978	
==>++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14856	14978	
==>++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] ! <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3200	3322	
==>++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4066	4177	
==>l-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4066	4177	
==>l-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4066	4177	
==>l-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only on <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9801	9899	
==>n of being the very first module written for Pugs.

It provides a simple set of common test utility <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9859	9957	
==>n of being the very first module written for Pugs.

It provides a simple set of common test utility <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3149	3280	
==>s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self! <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3149	3280	
==>s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self! <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15112	15211	
==>der value is set if you pass
an argument to the method.  The old header value is always returned.
If <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15112	15211	
==>der value is set if you pass
an argument to the method.  The old header value is always returned.
If <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25237	25331	
==>)),
  E1 = amat(C0,flgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2486	2577	
==>e experimental Perl6-to-Perl5 compiler.

The current state of this compiler implementation o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2377	2537	
==>ct;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19703	19797	
==>utomatically tries to use slight variations of the nickname in the
login phase (for example C<b <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18684	18778	
==>utomatically tries to use slight variations of the nickname in the
login phase (for example C<b <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19703	19797	
==>utomatically tries to use slight variations of the nickname in the
login phase (for example C<b <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18684	18778	
==>utomatically tries to use slight variations of the nickname in the
login phase (for example C<b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12346	12484	
==>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8622	8760	
==>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9457	9595	
==>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ) <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2352	2447	
==>on which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first element <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2352	2447	
==>on which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first element <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7005	7122	
==>lt}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7005	7122	
==>lt}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7005	7122	
==>lt}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of co <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2724	2839	
==>e );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $sel <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2724	2839	
==>e );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24557	24696	
==>=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24557	24696	
==>=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24557	24696	
==>=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6048	6149	
==>YNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6048	6149	
==>YNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10112	10207	
==>UCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

R <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8052	8147	
==>UCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

R <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10112	10207	
==>UCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

R <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8052	8147	
==>UCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

R <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12375	12468	
==>td>
	      <td class="num tests_todo"><span title="<tmpl_var name=todo> todo"><tmpl_var name=t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12084	12197	
==>atus      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $stat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2486	2595	
==>atus      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $stat <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2486	2595	
==>atus      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $stat <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15116	15214	
==>d as the first argument, if
called in a void context.  In scalar and array contexts, the encoded or <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15116	15214	
==>d as the first argument, if
called in a void context.  In scalar and array contexts, the encoded or <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1536	1633	
==>t;
    $.depth  = $parent.depth() + 1;
}

## ----------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1536	1633	
==>t;
    $.depth  = $parent.depth() + 1;
}

## ----------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17249	17341	
==>e_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17249	17341	
==>e_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17249	17341	
==>e_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribut <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4927	5055	
==>(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4927	5055	
==>(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3585	3713	
==>brule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3725	3853	
==>brule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1355	1467	
==>s List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1355	1467	
==>s List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21078	21170	
==>ix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21078	21170	
==>ix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21078	21170	
==>ix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15171	15287	
==>sts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15171	15287	
==>sts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15171	15287	
==>sts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        } <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4215	4310	
==>n.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open() <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4215	4310	
==>n.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2395	2493	
==>eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2395	2493	
==>eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2395	2493	
==>eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2275	2369	
==>self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2275	2369	
==>self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12349	12497	
==>sa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12349	12497	
==>sa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12349	12497	
==>sa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unb <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4	104	
==>le Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4	104	
==>le Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10373	10510	
==>, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10373	10510	
==>, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2859	2956	
==>ternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2859	2956	
==>ternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2859	2956	
==>ternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9271	9378	
==>d at ^

### because it was specialized for subrules

### - needs to be generalized, and the anchor should on <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8967	9072	
==>d at ^
### because it was specialized for subrules
### - needs to be generalized, and the anchor should on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	519	622	
==>item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	519	622	
==>item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	519	622	
==>item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6102	6217	
==>h::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6114	6229	
==>h::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2099	2194	
==>EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2099	2194	
==>EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2099	2194	
==>EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16678	16779	
==>$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16678	16779	
==>$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16678	16779	
==>$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14231	14330	
==>to a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14231	14330	
==>to a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	511	608	
==>$::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	511	608	
==>$::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	511	608	
==>$::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	577	671	
==>(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	577	671	
==>(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1400	1524	
==>}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1400	1524	
==>}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1400	1524	
==>}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) { <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12305	12399	
==>set($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12305	12399	
==>set($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10822	11002	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10822	11002	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10822	11002	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7155	7255	
==>vize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7155	7255	
==>vize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16119	16226	
==><E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16119	16226	
==><E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1550	1642	
==>Case() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1550	1642	
==>Case() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1550	1642	
==>Case() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10769	10928	
==>xpander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7110	7269	
==>xpander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7959	8118	
==>xpander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$pr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15561	15680	
==>000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15561	15680	
==>000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() { <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	18705	18835	
==>ntf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc Pugs::Internals::sprintf(l <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5935	6053	
==>erator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5935	6053	
==>erator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($s <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	607	738	
==>t) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($gues <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	633	748	
==>/;


$| = 1;
my $start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/ <==
5	/Users/nnunley/pugs/util/package-osx.pl	5635	5732	
==>n/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/loc <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1548	1643	
==>ction or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1548	1643	
==>ction or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3348	3467	
==>ating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3348	3467	
==>ating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3348	3467	
==>ating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18322	18426	
==>class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14743	14847	
==>class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	662	782	
==>iagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnost <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	662	782	
==>iagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnost <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4477	4568	
==>gil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change man <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4477	4568	
==>gil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change man <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4477	4568	
==>gil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change man <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2256	2407	
==>et> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2256	2407	
==>et> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14580	14715	
==>= shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14580	14715	
==>= shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14580	14715	
==>= shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6220	6333	
==>ap { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6232	6345	
==>ap { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2566	2704	
==>y( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2566	2704	
==>y( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2566	2704	
==>y( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11215	11348	
==>os1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11209	11342	
==>os1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20166	20268	
==>e on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and eas <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20166	20268	
==>e on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and eas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1538	1634	
==>ecrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitive <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1538	1634	
==>ecrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitive <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1538	1634	
==>ecrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitive <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3450	3770	
==>Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding S <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3450	3770	
==>Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding S <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3676	3795	
==>ts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3676	3795	
==>ts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	526	645	
==>ts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9855	10004	
==>key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9855	10004	
==>key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9855	10004	
==>key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4986	5115	
==>returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     n <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4986	5115	
==>returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1932	2028	
==>_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1932	2028	
==>_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1932	2028	
==>_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8486	8575	
==>statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->u <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2311	2400	
==>statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12423	12529	
==>undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12423	12529	
==>undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12423	12529	
==>undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16074	16165	
==>s

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <j <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16132	16223	
==>s

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <j <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3104	3203	
==>g application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go! <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3104	3203	
==>g application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6563	6661	
==>source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6563	6661	
==>source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6563	6661	
==>source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9906	10060	
==>xt_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9906	10060	
==>xt_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9906	10060	
==>xt_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	715	825	
==>poch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting fo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	715	825	
==>poch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1743	1872	
==>$n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refere <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2486	2615	
==>$n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refere <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1743	1872	
==>$n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refere <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2474	2603	
==>$n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refere <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25523	25622	
==>ack is >= 0, the regmust search is never
 * wasted effort.  The regback variable says how many chara <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5216	5356	
==><name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5228	5368	
==><name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4048	4157	
==>'\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\N' => sub {
    my ($S <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4191	4290	
==>e sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's docu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4191	4290	
==>e sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's docu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1749	1878	
==>ss $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1749	1878	
==>ss $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1749	1878	
==>ss $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2960	3060	
==>y~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2960	3060	
==>y~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4151	4260	
==>Value}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4151	4260	
==>Value}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4151	4260	
==>Value}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup { <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1223	1322	
==>{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1223	1322	
==>{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2787	2891	
==>ilder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2787	2891	
==>ilder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4311	4415	
==>ilder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Ou <==
5	/Users/nnunley/pugs/misc/IDE-support/server.pl	154	249	
==>put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m;
say '(m <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18490	18574	
==>_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10561	10746	
==>pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10561	10746	
==>pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1279	1397	
==>_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1279	1397	
==>_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1279	1397	
==>_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12316	12422	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYP <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6883	6989	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYP <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12316	12422	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYP <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6883	6989	
==>ed;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14685	14797	
==>od $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $clas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14685	14797	
==>od $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $clas <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	2568	2678	
==>file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3 <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3004	3114	
==>file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3 <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3990	4100	
==>file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30937	31061	
==>NIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30937	31061	
==>NIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30937	31061	
==>NIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7896	8006	
==>- source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_bloc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7908	8018	
==>- source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_bloc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1807	1914	
==>export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $l <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1807	1914	
==>export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1887	1994	
==>export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	76	178	
==>ule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	76	178	
==>ule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Te <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	485	603	
==>brule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	485	603	
==>brule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4039	4193	
==>ifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4027	4181	
==>ifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2939	3031	
==>sbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2939	3031	
==>sbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2939	3031	
==>sbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7321	7457	
==>$rule = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	548	681	
==>rsion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pu <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	519	652	
==>rsion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	548	681	
==>rsion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	548	681	
==>rsion is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1250	1373	
==>TTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1250	1373	
==>TTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1407	1514	
==>) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1407	1514	
==>) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1407	1514	
==>) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6017	6115	
==>icient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

me <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6017	6115	
==>icient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	184	278	
==>ile is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	184	278	
==>ile is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	184	278	
==>ile is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %param <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9894	10000	
==>tinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	329	431	
==>tinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	329	431	
==>tinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2485	2585	
==>e develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is mo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2485	2585	
==>e develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is mo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14762	14859	
==>nce to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substit <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14762	14859	
==>nce to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	147	243	
==>10 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	147	243	
==>10 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	147	243	
==>10 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1663	1777	
==>IL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1663	1777	
==>IL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1663	1777	
==>IL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because { <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	29	126	
==>composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	29	126	
==>composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1354	1450	
==>st = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1354	1450	
==>st = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1354	1450	
==>st = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noim <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20078	20164	
==>gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20078	20164	
==>gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4082	4185	
==>compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4082	4185	
==>compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4082	4185	
==>compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5296	5393	
==>uration data

=item write

The C<write> method the file for the properties, and writes it
to disk. <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5296	5393	
==>uration data

=item write

The C<write> method the file for the properties, and writes it
to disk. <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4399	4514	
==>ack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@token <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4399	4514	
==>ack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@token <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8023	8137	
==>\@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8023	8137	
==>\@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8023	8137	
==>\@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "E <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	971	1092	
==>/assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.po <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	971	1092	
==>/assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5805	5919	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5805	5919	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5805	5919	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($ <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1233	1328	
==>put to other uses as well.

Log::Selective exports a single function, C<note>, which is called w <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1233	1328	
==>put to other uses as well.

Log::Selective exports a single function, C<note>, which is called w <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3275	3369	
==>he expected output and diagnostic output of tests,
running those tests, and then telling this m <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3275	3369	
==>he expected output and diagnostic output of tests,
running those tests, and then telling this m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3355	3449	
==>he expected output and diagnostic output of tests,
running those tests, and then telling this m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11863	12056	
==>.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11863	12056	
==>.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37871	37984	
==>$pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37871	37984	
==>$pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37871	37984	
==>$pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13227	13325	
==>B exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13227	13325	
==>B exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13227	13325	
==>B exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1446	1540	
==>a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module fi <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1446	1540	
==>a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1685	1785	
==>nf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1685	1785	
==>nf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1685	1785	
==>nf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1785	1880	
==>eople interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<stat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1785	1880	
==>eople interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<stat <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16909	17013	
==>common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20386	20490	
==>common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19964	20068	
==>common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size( <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	57	146	
==>erldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	57	146	
==>erldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1431	1554	
==>or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1431	1554	
==>or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1431	1554	
==>or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6528	6643	
==>an1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6528	6643	
==>an1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5813	6009	
==>ned $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5813	6009	
==>ned $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5813	6009	
==>ned $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => su <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4520	4665	
==>g satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4984	5129	
==>g satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1557	1671	
==>ier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1557	1671	
==>ier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1557	1671	
==>ier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # X <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9076	9189	
==>module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::M <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9134	9247	
==>module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::M <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6412	6510	
==>sts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and ad <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6412	6510	
==>sts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8609	8707	
==>sts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and ad <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12648	12739	
==>et1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12648	12739	
==>et1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6429	6607	
==>' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBI <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6429	6607	
==>' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBI <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6429	6607	
==>' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBI <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1222	1324	
==>ast = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1222	1324	
==>ast = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24700	24818	
==>'ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21121	21239	
==>'ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35368	35465	
==>in common; it will only accept inputs that would result in
a cross-product when joined.  This meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39918	40015	
==>in common; it will only accept inputs that would result in
a cross-product when joined.  This meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39478	39575	
==>in common; it will only accept inputs that would result in
a cross-product when joined.  This meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4634	4773	
==>e class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4634	4773	
==>e class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4634	4773	
==>e class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_clas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10772	10867	
==>alued field. If the $value is undefined or not
given, then that header field will remain unchang <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10772	10867	
==>alued field. If the $value is undefined or not
given, then that header field will remain unchang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2469	2570	
==>longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2469	2570	
==>longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2469	2570	
==>longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13020	13120	
==>ctions both take blocks of code, run the code, and test whether they live or die.

=== A Note about T <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13078	13178	
==>ctions both take blocks of code, run the code, and test whether they live or die.

=== A Note about T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2752	2852	
==>exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2752	2852	
==>exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2752	2852	
==>exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1291	1380	
==>pec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::S <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1291	1380	
==>pec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::S <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6798	6921	
==>y @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6855	6978	
==>y @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14160	14288	
==>msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Pr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14160	14288	
==>msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	570	668	
==>($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	570	668	
==>($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	570	668	
==>($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1131	1249	
==>r, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1131	1249	
==>r, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1131	1249	
==>r, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25750	25844	
==>ee software components.

Any versions of Rosetta that you modify and distribute must carry prom <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25750	25844	
==>ee software components.

Any versions of Rosetta that you modify and distribute must carry prom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1167	1282	
==>e => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1167	1282	
==>e => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1167	1282	
==>e => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = n <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8812	8922	
==>s added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8812	8922	
==>s added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5428	5556	
==>o"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(93 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5428	5556	
==>o"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(93 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1851	1958	
==>2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1851	1958	
==>2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1851	1958	
==>2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13169	13288	
==>get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13169	13288	
==>get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2032	2130	
==>imethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuati <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2032	2130	
==>imethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuati <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2032	2130	
==>imethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	222	360	
==>ile(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	222	360	
==>ile(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	222	360	
==>ile(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.re <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9192	9303	
==>de = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypti <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9192	9303	
==>de = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypti <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1365	1469	
==>iltin is primitive {
    lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $st <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26514	26606	
==>> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRanges>
}
rule Nonemp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3548	3638	
==>param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3548	3638	
==>param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4138	4228	
==>param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	813	911	
==>depc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	813	911	
==>depc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	813	911	
==>depc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pre <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1279	1372	
==>nd in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be f <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1279	1372	
==>nd in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1571	1713	
==>> sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1571	1713	
==>> sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1571	1713	
==>> sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= " <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	781	889	
==>e understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	781	889	
==>e understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13295	13519	
==>ame } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13295	13519	
==>ame } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13295	13519	
==>ame } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @p <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4866	5022	
==>_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specifie <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4866	5022	
==>_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specifie <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	473	608	
==>AV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        30 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	473	608	
==>AV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        30 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12659	12789	
==>ethod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12659	12789	
==>ethod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12659	12789	
==>ethod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2704	2857	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2704	2857	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2704	2857	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $t <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16169	16270	
==>or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16169	16270	
==>or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2022	2142	
==>th($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2022	2142	
==>th($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8947	9061	
==>"sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8947	9061	
==>"sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8947	9061	
==>"sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8078	8225	
==>vious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8078	8225	
==>vious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	118	223	
==>dy => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	118	223	
==>dy => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	118	223	
==>dy => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to le <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5429	5531	
==>renthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache35 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5429	5531	
==>renthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache35 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3736	3829	
==>ue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3736	3829	
==>ue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3736	3829	
==>ue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2513	2671	
==>n $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragra <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2513	2671	
==>n $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	841	949	
==>_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	841	949	
==>_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	841	949	
==>_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17302	17402	
==>g. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17302	17402	
==>g. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8858	8969	
==>04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8858	8969	
==>04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8858	8969	
==>04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variabl <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1071	1179	
==>et
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1071	1179	
==>et
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1600	1707	
==>o keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1600	1707	
==>o keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1600	1707	
==>o keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .ST <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18499	18591	
==>th
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_ha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18499	18591	
==>th
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_ha <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29924	30021	
==>ffed hash
and an accessor method to read values from it by key.  Each template hash
key correspond <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29924	30021	
==>ffed hash
and an accessor method to read values from it by key.  Each template hash
key correspond <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5247	5340	
==>stance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's AP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5247	5340	
==>stance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's AP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5247	5340	
==>stance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's AP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18228	18416	
==>:Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18228	18416	
==>:Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18228	18416	
==>:Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $m <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2975	3070	
==>available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigat <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2975	3070	
==>available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7878	8011	
==>polated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pref <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13472	13605	
==>polated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7878	8011	
==>polated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13466	13599	
==>polated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pref <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14061	14169	
==>>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local string tar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	289	537	
==>sed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	289	537	
==>sed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	130	232	
==>e
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	130	232	
==>e
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	130	232	
==>e
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10655	10771	
==>an.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10655	10771	
==>an.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1504	1607	
==>fect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1504	1607	
==>fect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1504	1607	
==>fect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5545	5658	
==>f: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5545	5658	
==>f: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2385	2489	
==>my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2385	2489	
==>my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2385	2489	
==>my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5312	5435	
==>ous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5312	5435	
==>ous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	831	942	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	831	942	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	831	942	
==>)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) e <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2112	2219	
==>sity );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2112	2219	
==>sity );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.star <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	674	765	
==>avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	674	765	
==>avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	674	765	
==>avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	372	529	
==>=> sub {
            my $self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            'array_fetch' => sub { <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	207	314	
==>rams = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $diges <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	280	387	
==>rams = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $diges <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	14	105	
==>le::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	14	105	
==>le::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5016	5190	
==>[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4860	5026	
==>[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3234	3379	
==>ame = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3234	3379	
==>ame = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3234	3379	
==>ame = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10054	10191	
==>calar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10054	10191	
==>calar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10054	10191	
==>calar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $c <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1234	1328	
==>ucket has a memory footprint of constant size because the
algorithm is based on statistics. Thi <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1234	1328	
==>ucket has a memory footprint of constant size because the
algorithm is based on statistics. Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12868	12994	
==>e not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12868	12994	
==>e not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12868	12994	
==>e not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	346	449	
==>OPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IR <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	346	449	
==>OPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	988	1248	
==>key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=e <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	988	1248	
==>key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3280	3382	
==>xed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3280	3382	
==>xed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3280	3382	
==>xed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3172	3306	
==>w = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3172	3306	
==>w = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3096	3205	
==>g->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - eve <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3096	3205	
==>g->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - eve <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3096	3205	
==>g->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7774	7875	
==>us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7774	7875	
==>us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7774	7875	
==>us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13949	14049	
==>heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $cla <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13949	14049	
==>heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $cla <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2131	2246	
==>on( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2142	2257	
==>on( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# no <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7401	7488	
==>bpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7401	7488	
==>bpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7401	7488	
==>bpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8084	8189	
==>"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8084	8189	
==>"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8084	8189	
==>"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25872	25968	
==>Variables>

Hash(Str) of Any - This contains zero or more variable names and values
that are asso <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25872	25968	
==>Variables>

Hash(Str) of Any - This contains zero or more variable names and values
that are asso <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8293	8439	
==>xt->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[C <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8293	8439	
==>xt->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	572	675	
==>all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - str <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	572	675	
==>all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - str <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	572	675	
==>all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - str <==
5	/Users/nnunley/pugs/util/func_refact.pl	2370	2506	
==>g{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callee <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2589	2715	
==>{ $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    metho <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2589	2715	
==>{ $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2589	2694	
==>:Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2589	2694	
==>:Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3572	3697	
==>from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3572	3697	
==>from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3572	3697	
==>from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr( <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1172	1283	
==>art ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1172	1283	
==>art ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1541	1658	
==>n.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1541	1658	
==>n.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1541	1658	
==>n.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2365	2494	
==>_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*E <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2365	2494	
==>_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5162	5278	
==>rg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5162	5278	
==>rg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5162	5278	
==>rg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	526	630	
==>= @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< lib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	526	630	
==>= @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< lib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	526	630	
==>= @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< lib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1515	1606	
==>Filter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRI <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1515	1606	
==>Filter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	809	937	
==>::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	809	937	
==>::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	809	937	
==>::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31580	31675	
==>icate> simply returns True or False regardless of its
argument, in which case the new Relation h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36130	36225	
==>icate> simply returns True or False regardless of its
argument, in which case the new Relation h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14741	14856	
==>{},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14741	14856	
==>{},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14741	14856	
==>{},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt> <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16476	16574	
==>sers should consider setting their I/O handles to autochomp
instead of this step.


=item lc

 mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1553	1680	
==>FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1553	1680	
==>FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1553	1680	
==>FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2394	2520	
==>nding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2394	2520	
==>nding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5278	5400	
==>a',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data struct <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5278	5400	
==>a',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data struct <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10132	10232	
==>G' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_tem <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10132	10232	
==>G' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_tem <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	11	109	
==>::Package::Source;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JI <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16486	16608	
==>1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_han <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12907	13029	
==>1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_han <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1580	1678	
==>e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1580	1678	
==>e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1580	1678	
==>e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled P <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1998	2200	
==>rent tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can f <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1998	2200	
==>rent tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18437	18576	
==>| $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18437	18576	
==>| $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18437	18576	
==>| $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10452	10630	
==>n;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The relation in $other has at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13929	14107	
==>n;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The relation in $other has at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1583	1699	
==>s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1583	1699	
==>s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1583	1699	
==>s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	800	921	
==>S;

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24269	24364	
==>her interactive program controlling their
  actions) which are always seen to be replying lest t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23042	23137	
==>her interactive program controlling their
  actions) which are always seen to be replying lest t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24269	24364	
==>her interactive program controlling their
  actions) which are always seen to be replying lest t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23042	23137	
==>her interactive program controlling their
  actions) which are always seen to be replying lest t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9922	10034	
==>= 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9922	10034	
==>= 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9922	10034	
==>= 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19654	19748	
==>2-column
plain-text format that will be much easier for a non-programmer to edit.
But the curre <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19654	19748	
==>2-column
plain-text format that will be much easier for a non-programmer to edit.
But the curre <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5833	5956	
==>ch => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $mini <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5833	5956	
==>ch => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $mini <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4823	4918	
==>MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4823	4918	
==>MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4823	4918	
==>MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9775	9935	
==>ript ); 
        }      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sure we dont s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3769	3903	
==>ey};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3769	3903	
==>ey};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38316	38411	
==>f
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38316	38411	
==>f
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating t <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2718	2901	
==>$fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_mo <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2718	2901	
==>$fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	392	488	
==>s(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	392	488	
==>s(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	392	488	
==>s(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $s <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	837	940	
==>se versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub regist <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	837	940	
==>se versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub regist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2590	2676	
==>methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2590	2676	
==>methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2590	2676	
==>methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1338	1430	
==>lish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SY <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1338	1430	
==>lish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5780	5869	
==>l2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5780	5869	
==>l2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5780	5869	
==>l2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

su <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1134	1253	
==>ct the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   print "Writing <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1782	1897	
==>month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our & <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1782	1897	
==>month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our & <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1431	1541	
==>e(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1431	1541	
==>e(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4065	4178	
==>tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4282	4395	
==>tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1380	1483	
==>KUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1380	1483	
==>KUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1380	1483	
==>KUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = ne <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	129	232	
==>duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Date <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	137	240	
==>duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Date <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	129	232	
==>duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Date <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	137	240	
==>duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Date <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1828	1928	
==>ons: $options - match: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $equi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8258	8465	
==>bmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8258	8465	
==>bmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8258	8465	
==>bmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	589	688	
==>tr $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pil <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	589	688	
==>tr $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pil <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7702	7892	
==>}

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the r <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8166	8356	
==>}

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4140	4314	
==>}

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the r <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4604	4778	
==>}

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the r <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10867	10972	
==>tch", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    las <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4069	4199	
==>eys %main::;
        print "\n---- Conversion subs ----\n";
        print $conv;
    }
    elsif  ($arg eq '-s'){
        print <<' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4160	4259	
==>two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3287	3386	
==>two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4160	4259	
==>two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3287	3386	
==>two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1228	1356	
==>--

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<bod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1228	1356	
==>--

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<bod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6581	6671	
==>n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6581	6671	
==>n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6581	6671	
==>n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.ca <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40657	40755	
==>) or Carp::croak().  The argument list is used to fill in
the format string for sprintf().

=over 4 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19549	19641	
==>the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18530	18622	
==>the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19549	19641	
==>the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18530	18622	
==>the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	95	226	
==>gory);

=for pod

Parses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferenc <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1524	1635	
==>ode $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Boo <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1524	1635	
==>ode $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Boo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	809	917	
==>TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	809	917	
==>TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7956	8107	
==>isfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8420	8571	
==>isfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14895	14988	
==>density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14895	14988	
==>density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" se <==
5	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	218	311	
==>_parsers(Class $class: Str ?$dir is copy, Str ?$file is copy) returns Class {
	@.known_parsers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13324	13434	
==>p = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13324	13434	
==>p = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13324	13434	
==>p = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::H <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	29	127	
==>class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	29	127	
==>class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10910	11043	
==>nt_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10910	11043	
==>nt_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10910	11043	
==>nt_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1992	2090	
==>e> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
S <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1992	2090	
==>e> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16152	16291	
==>LD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        " <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16152	16291	
==>LD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3345	3435	
==>turn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3345	3435	
==>turn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3345	3435	
==>turn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22094	22202	
==>V *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible dange <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16995	17102	
==>V *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible dange <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17415	17511	
==>xed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17415	17511	
==>xed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17415	17511	
==>xed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4140	4276	
==>= sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4333	4469	
==>= sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2 <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3067	3235	
==>ge_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### imp <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14147	14286	
==>kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4224	4351	
==>kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4224	4351	
==>kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4224	4351	
==>kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5550	5663	
==>, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_pre <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5550	5663	
==>, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_pre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1509	1618	
==>_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argument <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1509	1618	
==>_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argument <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1509	1618	
==>_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argument <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	24	132	
==>td-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	24	132	
==>td-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5598	5705	
==>ation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5598	5705	
==>ation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5598	5705	
==>ation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1898	2146	
==>/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifie <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1898	2146	
==>/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifie <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36646	36742	
==>he
invocant.  Another trivial case is where any any source relation has zero
tuples, in which cas <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41195	41291	
==>he
invocant.  Another trivial case is where any any source relation has zero
tuples, in which cas <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40818	40914	
==>he
invocant.  Another trivial case is where any any source relation has zero
tuples, in which cas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1799	1907	
==>a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1799	1907	
==>a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1799	1907	
==>a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $na <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1254	1361	
==>opaque'))
        || confess "You can only compare opaque types with other opaque types (not $right)";
    r <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8232	8335	
==>eral> <ExponentPart>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <Deci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39080	39221	
==>p },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39080	39221	
==>p },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39080	39221	
==>p },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    un <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12776	12890	
==>pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12776	12890	
==>pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29421	29540	
==>ue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inv <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29421	29540	
==>ue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inv <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	245	352	
==>ue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inv <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11102	11196	
==>ee $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11102	11196	
==>ee $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	161	259	
==>ional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::Fu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	161	259	
==>ional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::Fu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	193	280	
==>l6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	193	280	
==>l6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	193	280	
==>l6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	31	130	
==>tem $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	31	130	
==>tem $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	31	130	
==>tem $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18033	18124	
==>ogin()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18033	18124	
==>ogin()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	291	397	
==>and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	836	942	
==>and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	291	397	
==>and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	836	942	
==>and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	836	942	
==>and from_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	878	1003	
==>cket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 item <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	878	1003	
==>cket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 item <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3006	3106	
==>test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3006	3106	
==>test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  te <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3086	3186	
==>test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3207	3367	
==>h}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3207	3367	
==>h}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3207	3367	
==>h}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15722	15863	
==>ed "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=he <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15722	15863	
==>ed "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=he <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24041	24225	
==>{  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'>
    | <'@'>
    | <'&'>
    | <'='>
    | <'+'>
    | <'$'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6734	6861	
==>/$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6734	6861	
==>/$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6734	6861	
==>/$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(fu <==
5	/Users/nnunley/pugs/util/func_refact.pl	2224	2348	
==>nds;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying: $cand\n";
        next if exists $ccset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8383	8500	
==>nd;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8383	8500	
==>nd;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8383	8500	
==>nd;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21333	21427	
==>uit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21333	21427	
==>uit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18019	18221	
==>class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18019	18221	
==>class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18019	18221	
==>class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoa <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1948	2046	
==>$got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2006	2104	
==>$got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3632	3735	
==>: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3632	3735	
==>: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2019	2110	
==>de::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2019	2110	
==>de::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2019	2110	
==>de::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2758	2877	
==>_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QU <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2746	2865	
==>_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QU <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6656	6752	
==>so overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6656	6752	
==>so overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8853	8949	
==>so overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2152	2263	
==>s = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") || <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2152	2263	
==>s = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") || <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2152	2263	
==>s = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") || <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17314	17413	
==>fits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Modu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17314	17413	
==>fits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Modu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15463	15703	
==>> 'str'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->cre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6340	6497	
==>pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3256	3364	
==>components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalon <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3256	3364	
==>components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalon <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3256	3364	
==>components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	546	650	
==>use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	546	650	
==>use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	546	650	
==>use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22263	22359	
==>oes not declare any subroutines or export such.

The usual way that Rosetta indicates a failure i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22263	22359	
==>oes not declare any subroutines or export such.

The usual way that Rosetta indicates a failure i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6856	6966	
==>infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6856	6966	
==>infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6856	6966	
==>infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $st <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17548	17644	
==>TML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17548	17644	
==>TML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16165	16263	
==>x ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16165	16263	
==>x ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16165	16263	
==>x ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6027	6125	
==>, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5834	5930	
==>, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	737	839	
==>e buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   t <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	737	839	
==>e buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1173	1290	
==>D () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal - <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1173	1290	
==>D () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	681	794	
==>:Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	681	794	
==>:Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	681	794	
==>:Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7105	7237	
==>ta_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7105	7237	
==>ta_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21948	22075	
==>> $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21948	22075	
==>> $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21948	22075	
==>> $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6907	7034	
==>== Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6907	7034	
==>== Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6907	7034	
==>== Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1996	2117	
==>g on stubs or prims some how?

    return $reduced;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16143	16263	
==>tr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3991	4094	
==><unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3991	4094	
==><unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3991	4094	
==><unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16787	16887	
==>span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16787	16887	
==>span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, i <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1184	1279	
==>turn _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1184	1279	
==>turn _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17200	17289	
==>lass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17200	17289	
==>lass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17200	17289	
==>lass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7762	7872	
==>s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7762	7872	
==>s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7762	7872	
==>s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PI <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1762	1856	
==>List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Ran <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1762	1856	
==>List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Ran <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16511	16640	
==>orner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    sub r <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2838	2946	
==>ix}/$self->{path}", $self);
    }

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4277	4363	
==>ircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4277	4363	
==>ircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4277	4363	
==>ircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_und <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12480	12590	
==>sts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12480	12590	
==>sts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12480	12590	
==>sts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1602	1701	
==>gex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1602	1701	
==>gex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14122	14330	
==>= 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14122	14330	
==>= 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14122	14330	
==>= 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	81	182	
==>Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	81	182	
==>Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1334	1430	
==>or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1334	1430	
==>or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1334	1430	
==>or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	876	981	
==>st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	876	981	
==>st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	876	981	
==>st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14173	14276	
==>>body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
} <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1653	1756	
==>>body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12983	13093	
==>> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgume <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12983	13093	
==>> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgume <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12983	13093	
==>> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgume <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1760	1853	
==>CRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Rie <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1760	1853	
==>CRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Rie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37590	37706	
==>mify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37590	37706	
==>mify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37590	37706	
==>mify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3641	3741	
==>e diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two di <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3641	3741	
==>e diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3577	3687	
==>$$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3577	3687	
==>$$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3577	3687	
==>$$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1983	2079	
==>anted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1983	2079	
==>anted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2733	2861	
==>);
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2733	2861	
==>);
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2733	2861	
==>);
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	427	540	
==>and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	427	540	
==>and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2906	3029	
==>},
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3111	3234	
==>},
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5660	5783	
==>},
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4292	4415	
==>},
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23243	23336	
==>ry
operators (over said accessors), which can be employed when objects of
multiple different R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	195	301	
==>new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	195	301	
==>new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	195	301	
==>new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->func <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2840	2934	
==>e
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2840	2934	
==>e
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2282	2394	
==>control_dir( $self->package );
        my $data     = $conf->archive_data;
        my $control  = $conf->archive_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2507	2719	
==>v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2507	2719	
==>v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2524	2620	
==>unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2524	2620	
==>unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2524	2620	
==>unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	259	368	
==>$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	259	368	
==>$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10665	10770	
==>(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10665	10770	
==>(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10665	10770	
==>(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24359	24497	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25622	25760	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24638	24776	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25901	26039	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3293	3400	
==>n invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute C</usr/bin/pugs>.

* it tell <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	912	1034	
==>%param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after> <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	654	776	
==>%param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after> <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	912	1034	
==>%param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after> <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	654	776	
==>%param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after> <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16000	16095	
==>@strings = (CALLER::<$_>) is rw --> Char )

Trims the last character from C<$string>, and return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	925	1038	
==>ars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	925	1038	
==>ars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	925	1038	
==>ars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2447	2544	
==>ues with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Valu <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2447	2544	
==>ues with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Valu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1197	1308	
==>rule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1208	1319	
==>rule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40342	40446	
==>sh @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40342	40446	
==>sh @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40342	40446	
==>sh @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10903	11053	
==>)
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11182	11332	
==>)
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	697	798	
==>map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	697	798	
==>map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	697	798	
==>map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1179	1281	
==>, but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1179	1281	
==>, but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1179	1281	
==>, but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_re <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	682	774	
==>er::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	682	774	
==>er::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4854	4973	
==>an}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthes <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4854	4973	
==>an}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthes <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4411	4529	
==>ntext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"par <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6055	6154	
==>d - this is too specific - it only applies to Span::Int objects
# method density () returns Object { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6055	6154	
==>d - this is too specific - it only applies to Span::Int objects
# method density () returns Object { <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2824	2926	
==>cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12766	12868	
==>m_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2824	2926	
==>cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12766	12868	
==>m_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12766	12868	
==>m_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5349	5466	
==>classes' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5349	5466	
==>classes' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5349	5466	
==>classes' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21188	21277	
==>e that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21188	21277	
==>e that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16286	16407	
==>me} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1693	1794	
==>ated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compile <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	724	825	
==>::MM_Unix->parse_version($file)) if -f $file;
    }

    $self->version or die << "END";
Can't determi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1693	1794	
==>ated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1693	1794	
==>ated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compile <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4178	4294	
==>inst the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) e <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4178	4294	
==>inst the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) e <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3852	3959	
==>2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Pe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3852	3959	
==>2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5376	5483	
==>2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Pe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8968	9070	
==>(Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9766	9868	
==>(Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10675	10777	
==>(Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11501	11603	
==>(Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12277	12379	
==>(Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23392	23527	
==>hod eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23392	23527	
==>hod eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23392	23527	
==>hod eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6146	6277	
==>" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6146	6277	
==>" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13484	13596	
==>an identifier is not in the lexical scope we can't know it's type
ide: type($$) = {
	my $t = env($$)->{$.v};

	di <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1714	1808	
==>at is called TAP, the Test Anything
Protocol.  It is defined in L<Test::Harness::TAP>.

C<Test: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6597	6685	
==>nit_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_except <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6597	6685	
==>nit_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_except <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6597	6685	
==>nit_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_except <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9043	9166	
==>pression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $e <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	501	611	
==>pression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	464	564	
==>tribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	464	564	
==>tribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	464	564	
==>tribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3206	3312	
==>me nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq norm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3206	3312	
==>me nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq norm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3787	3889	
==>me nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq norm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3787	3889	
==>me nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq norm <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4322	4420	
==>piled Prelude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to precom <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9252	9394	
==>::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $descrip <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1374	1510	
==>::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1374	1510	
==>::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descrip <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3119	3225	
==>We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bu <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3119	3225	
==>We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13169	13327	
==>rute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3354	3492	
==>rute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3354	3492	
==>rute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3354	3492	
==>rute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0 <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2542	2677	
==>eturns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparato <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8555	8711	
==>it($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4915	5071	
==>it($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5764	5920	
==>it($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2752	2853	
==>d size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2752	2853	
==>d size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3143	3322	
==>nt++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3143	3322	
==>nt++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3143	3322	
==>nt++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { re <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2774	2898	
==>e );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2774	2898	
==>e );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4160	4291	
==>ned;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4160	4291	
==>ned;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4160	4291	
==>ned;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19533	19627	
==>iables rather than user-defined
relation variables.  In SQL terms, you create or alter tables b <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19533	19627	
==>iables rather than user-defined
relation variables.  In SQL terms, you create or alter tables b <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6561	6685	
==>> chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(821 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6561	6685	
==>> chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(821 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9612	9720	
==>failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9612	9720	
==>failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9612	9720	
==>failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19907	20050	
==>THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $ot <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19907	20050	
==>THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $ot <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19907	20050	
==>THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $ot <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14608	14705	
==>ds. The
following is a list of future features planned for this module.

- better error handling f <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14666	14763	
==>ds. The
following is a list of future features planned for this module.

- better error handling f <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2032	2147	
==>lets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	636	751	
==>mport(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		construc <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2032	2147	
==>lets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	636	751	
==>mport(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		construc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	636	751	
==>mport(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		construc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38454	38573	
==>rray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38454	38573	
==>rray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38454	38573	
==>rray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	184	293	
==>r;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	184	293	
==>r;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a st <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1304	1480	
==>(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<sta <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1304	1480	
==>(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20176	20307	
==>|| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20176	20307	
==>|| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20176	20307	
==>|| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9125	9298	
==>Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9125	9298	
==>Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9125	9298	
==>Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetc <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1261	1413	
==>ata...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[t <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1737	1831	
==>catfile($path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5707	5820	
==>d::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package D <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5707	5820	
==>d::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package D <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6297	6410	
==>d::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package D <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12383	12477	
==>rns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) return <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12441	12535	
==>rns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) return <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	16921	17080	
==>led, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11814	11911	
==>ms if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clear <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8961	9058	
==>ms if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clear <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11814	11911	
==>ms if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clear <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8961	9058	
==>ms if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clear <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26017	26104	
==>stify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3745	3859	
==>z => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class = <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7782	7893	
==>wn modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2079	2184	
==>wn modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2079	2184	
==>wn modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2079	2184	
==>wn modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1156	1273	
==>ETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1156	1273	
==>ETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1156	1273	
==>ETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6004	6104	
==>ich we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Docum <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6004	6104	
==>ich we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Docum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6022	6132	
==>ix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6022	6132	
==>ix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6022	6132	
==>ix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	254	371	
==>atches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	254	371	
==>atches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	254	371	
==>atches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6730	6831	
==>object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6730	6831	
==>object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $even <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3409	3547	
==>\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3409	3547	
==>\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36586	36704	
==>rray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36586	36704	
==>rray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36586	36704	
==>rray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub f <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4149	4430	
==>first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #w <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21491	21591	
==>s may store values of the same class;
every Relation tuple must be distinct from the other tuples.  A <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26043	26143	
==>s may store values of the same class;
every Relation tuple must be distinct from the other tuples.  A <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3720	3813	
==>HTTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

= <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3720	3813	
==>HTTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

= <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8302	8436	
==>[ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assign <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8302	8436	
==>[ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assign <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6821	6921	
==>ction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6821	6921	
==>ction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6821	6921	
==>ction (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4897	5001	
==>elf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4897	5001	
==>elf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4897	5001	
==>elf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1476	1574	
==>yFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1476	1574	
==>yFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15504	15605	
==>$v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15504	15605	
==>$v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15504	15605	
==>$v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  i <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18904	19004	
==>but which we obviously don't have).


=head1 struct regexp

  typedef struct regexp {

=head2 The reg <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4845	4932	
==>new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
sub p6_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3532	3669	
==>bel} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3532	3669	
==>bel} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8010	8142	
==>if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8010	8142	
==>if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8010	8142	
==>if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11966	12134	
==>& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11966	12134	
==>& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11966	12134	
==>& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3122	3239	
==>X just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3122	3239	
==>X just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3744	3858	
==>>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3744	3858	
==>>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3744	3858	
==>>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unles <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1819	1933	
==>uleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1830	1944	
==>uleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4208	4312	
==>self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4208	4312	
==>self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4208	4312	
==>self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21362	21451	
==>head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21362	21451	
==>head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	905	1027	
==>_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	905	1027	
==>_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3073	3188	
==>f not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3073	3188	
==>f not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3073	3188	
==>f not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2983	3135	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2983	3135	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2983	3135	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16369	16463	
==>@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16427	16521	
==>@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1807	1930	
==>hunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $me <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1807	1930	
==>hunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2759	2859	
==>d("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2759	2859	
==>d("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2759	2859	
==>d("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3025	3132	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3025	3132	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3025	3132	
==>@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16234	16328	
==>TTM itself and
various other external documentation for much of that.

The Rosetta Native Inter <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16234	16328	
==>TTM itself and
various other external documentation for much of that.

The Rosetta Native Inter <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8646	8742	
==>eader($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8646	8742	
==>eader($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3359	3452	
==>l);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3359	3452	
==>l);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3359	3452	
==>l);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Clas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12703	12830	
==>sn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12703	12830	
==>sn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	891	996	
==>\$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	891	996	
==>\$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	891	996	
==>\$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => su <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13934	14038	
==>he least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17411	17515	
==>he least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16791	16895	
==>he least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4444	4535	
==>to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<dec <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4444	4535	
==>to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<dec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	169	269	
==>fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	169	269	
==>fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	169	269	
==>fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2454	2551	
==>ry_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also co <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2454	2551	
==>ry_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12272	12425	
==>:var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12266	12419	
==>:var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14751	14864	
==>FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14751	14864	
==>FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14751	14864	
==>FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	646	761	
==>h ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6164	6279	
==>h ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	646	761	
==>h ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6176	6291	
==>h ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9578	9662	
==>Foo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singleton_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	275	372	
==>s5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\% <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	275	372	
==>s5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\% <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	275	372	
==>s5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\% <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12425	12521	
==>e recurrence that is closest to the parameter.
If both previous and next elements are at the same <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12425	12521	
==>e recurrence that is closest to the parameter.
If both previous and next elements are at the same <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2663	2854	
==>m|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2663	2854	
==>m|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5151	5264	
==>OPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(l <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5476	5568	
==>($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5476	5568	
==>($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22032	22156	
==>ROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22032	22156	
==>ROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22032	22156	
==>ROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5506	5609	
==>ze($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5506	5609	
==>ze($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10675	10806	
==>1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10669	10800	
==>1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24046	24140	
==>al named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28598	28692	
==>al named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27429	27523	
==>al named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24321	24473	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25584	25736	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24600	24752	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25863	26015	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6776	6910	
==>e_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU pub <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6833	6967	
==>e_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU pub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19002	19118	
==>start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19002	19118	
==>start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19002	19118	
==>start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1154	1263	
==>) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Ob <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	896	1005	
==>) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Ob <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1154	1263	
==>) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Ob <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	896	1005	
==>) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Ob <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4395	4486	
==>ol {$_[0]?1:undef}
sub p6_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]}
sub p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5411	5519	
==>lf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5411	5519	
==>lf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5411	5519	
==>lf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7948	8048	
==>ine and compile a routine that will validate whether the 'person'
    # table exists (and is correct) <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7948	8048	
==>ine and compile a routine that will validate whether the 'person'
    # table exists (and is correct) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	817	951	
==>e or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	817	951	
==>e or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.ma <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3218	3337	
==>diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAI <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3218	3337	
==>diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4742	4861	
==>diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8551	8723	
==>ool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8551	8723	
==>ool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8924	9035	
==>violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8924	9035	
==>violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8924	9035	
==>violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2060	2209	
==>ate->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2476	2622	
==>ate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1992	2138	
==>ate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2476	2622	
==>ate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $s <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5847	5953	
==>+= $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_reason}) ) {
        $type = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12160	12277	
==>us{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2560	2665	
==>us{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2560	2665	
==>us{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5318	5420	
==>al( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/C <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5133	5231	
==>al( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/C <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14218	14335	
==>id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.exec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14218	14335	
==>id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.exec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3239	3352	
==>s;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3239	3352	
==>s;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3239	3352	
==>s;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39039	39185	
==>t },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub uns <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39039	39185	
==>t },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub uns <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39039	39185	
==>t },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub uns <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11840	11938	
==>$

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11840	11938	
==>$

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12495	12596	
==>xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12495	12596	
==>xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12495	12596	
==>xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1834	1933	
==>ort, the api got cleaned up a bit. :)
Some features are still missing but will be added in the futur <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1834	1933	
==>ort, the api got cleaned up a bit. :)
Some features are still missing but will be added in the futur <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26510	26614	
==> list β → list (α × β)", "pretty print :t zip");
}




# tests for the type inferrencer
is(t($id) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	805	899	
==>:Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	997	1091	
==>:Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	805	899	
==>:Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	997	1091	
==>:Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	599	728	
==>$a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	599	728	
==>$a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	599	728	
==>$a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is pr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39846	39937	
==>blic License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39846	39937	
==>blic License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1257	1365	
==>methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1257	1365	
==>methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1257	1365	
==>methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6600	6702	
==>e on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
cop <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6600	6702	
==>e on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
cop <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7345	7458	
==>et' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7345	7458	
==>et' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9879	9971	
==>sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9879	9971	
==>sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9879	9971	
==>sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorde <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10818	10914	
==>= "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26203	26311	
==>tern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
mo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1020	1136	
==>>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1225	1341	
==>>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1286	1402	
==>>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2066	2216	
==>0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2482	2629	
==>0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1998	2145	
==>0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2482	2629	
==>0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1884	1995	
==>_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $vis) = @_;
    my <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9811	9921	
==>hmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7751	7861	
==>hmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9811	9921	
==>hmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7751	7861	
==>hmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	873	993	
==>y[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.ke <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	873	993	
==>y[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.ke <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3252	3356	
==>all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3252	3356	
==>all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20820	20906	
==>given object of type 'OBJ':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12617	12732	
==>}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12617	12732	
==>}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12617	12732	
==>}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7805	7906	
==>bject representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinit <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7805	7906	
==>bject representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38093	38259	
==>n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store afte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38093	38259	
==>n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store afte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38093	38259	
==>n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store afte <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2253	2371	
==>IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    prin <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2253	2371	
==>IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22617	22712	
==>TI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22617	22712	
==>TI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22617	22712	
==>TI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7655	7741	
==>::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1480	1566	
==>::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	995	1183	
==>$abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_c <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	995	1183	
==>$abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2375	2488	
==>(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2375	2488	
==>(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2375	2488	
==>(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1685	1793	
==>[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1685	1793	
==>[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1685	1793	
==>[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2364	2453	
==>em($^X, qw(-w ./util/testgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Cou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1390	1518	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1390	1518	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1390	1518	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%param <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4977	5085	
==>dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tain <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4977	5085	
==>dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35278	35418	
==>il ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35278	35418	
==>il ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35278	35418	
==>il ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1047	1151	
==>ell a Match object to continue the previous match from where it left off.
sub next {
  my ( $self ) =  @_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26091	26190	
==>00010
 #define ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Che <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	354	459	
==>@_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	354	459	
==>@_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	354	459	
==>@_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9151	9247	
==>ate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' } <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9151	9247	
==>ate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' } <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2015	2133	
==>y~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2015	2133	
==>y~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7297	7399	
==>ve {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7297	7399	
==>ve {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7297	7399	
==>ve {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3262	3360	
==>copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3262	3360	
==>copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17785	17879	
==>{...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17785	17879	
==>{...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17785	17879	
==>{...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1070	1188	
==>adable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variabl <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1070	1188	
==>adable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3691	3782	
==>uce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3691	3782	
==>uce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3691	3782	
==>uce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8444	8548	
==>t( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8444	8548	
==>t( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8444	8548	
==>t( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1278	1371	
==>ms) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

metho <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1278	1371	
==>ms) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

metho <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1507	1715	
==>rr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1].push(token)
            end
        }
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6678	6807	
==>rl5 {
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8960	9048	
==>que_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8960	9048	
==>que_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8960	9048	
==>que_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2792	2903	
==>S.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2792	2903	
==>S.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2792	2903	
==>S.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mod <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2034	2126	
==>rl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2034	2126	
==>rl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1269	1363	
==>:SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time peo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1269	1363	
==>:SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time peo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19324	19460	
==>(${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19324	19460	
==>(${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19324	19460	
==>(${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	749	870	
==>@_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacemen <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	749	870	
==>@_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacemen <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53013	53120	
==>('$:authority' => 'str'));            
}

# add their names in
$::Class->send('name'   => str->new('Class')) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	33	129	
==>rse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	33	129	
==>rse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1507	1601	
==>e15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\C <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1347	1441	
==>e15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1451	1574	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->fi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1451	1574	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->fi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1451	1574	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->fi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9784	9896	
==>ected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9784	9896	
==>ected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane s <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1492	1594	
==>lti submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1492	1594	
==>lti submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6654	6749	
==>om> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6654	6749	
==>om> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6654	6749	
==>om> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6980	7094	
==>$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6980	7094	
==>$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6980	7094	
==>$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	240	347	
==>t $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	240	347	
==>t $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2777	2900	
==>ub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1399	1522	
==>ub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13627	13714	
==>on went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13627	13714	
==>on went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13627	13714	
==>on went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17826	18004	
==>!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21303	21481	
==>!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20890	21068	
==>!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11638	11731	
==>it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Aud <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11638	11731	
==>it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Aud <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17316	17415	
==>.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20793	20892	
==>.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20371	20470	
==>.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retu <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1636	1731	
==>ommand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create th <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1476	1571	
==>ommand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2917	3031	
==>'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3122	3236	
==>'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5671	5785	
==>'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4303	4417	
==>'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:met <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15456	15550	
==>esired level. However, attempting to stuff something into
the string at a higher level that doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1044	1157	
==>S = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1044	1157	
==>S = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1044	1157	
==>S = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19457	19563	
==>se Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block bet <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19457	19563	
==>se Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block bet <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4239	4332	
==>ng(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4239	4332	
==>ng(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4239	4332	
==>ng(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	11975	12092	
==>ernals::runInteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4483	4581	
==>e "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration. <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15921	16019	
==>e "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4483	4581	
==>e "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15921	16019	
==>e "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1481	1603	
==>m attr
    #     { $_[0]->{out}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1764	1867	
==>lly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1764	1867	
==>lly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1764	1867	
==>lly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self-> <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23456	23540	
==>--------------------

replace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Repla <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7031	7136	
==>turn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3635	3740	
==>turn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4484	4589	
==>turn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8185	8280	
==>me line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is fo <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8185	8280	
==>me line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is fo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3821	3935	
==>ram list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $index, $valu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9058	9167	
==>interpreter.
# Arguments :
#   switches => [ command-line switches ]
#   nolib    => 1 # don't use -I../lib (i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	269	357	
==>ontainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	269	357	
==>ontainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	269	357	
==>ontainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::T <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1250	1357	
==>age::AttributeGrammar;

# this attribute grammer pretty prints bare types (no foralll)
my $pretty = Language <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12003	12104	
==>can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12435	12536	
==>can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12003	12104	
==>can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12435	12536	
==>can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8972	9072	
==>mitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8972	9072	
==>mitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8972	9072	
==>mitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die " <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20248	20345	
==>class.

The walker() method is also now abstracted -- each node it comes across
will have its walk <==
5	/Users/nnunley/pugs/util/package-osx.pl	4755	4852	
==>l/man/man3/Perl6::Bible::S09.3pm
        /usr/local/man/man3/Perl6::Bible::S10.3pm
        /usr/lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1303	1422	
==>sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1303	1422	
==>sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1303	1422	
==>sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $j <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1719	1828	
==>d clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

meth <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1719	1828	
==>d clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12485	12638	
==>eturn '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13919	14064	
==>k the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # N <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13919	14064	
==>k the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # N <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13919	14064	
==>k the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # N <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23817	23932	
==>if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10371	10546	
==>my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10371	10546	
==>my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10371	10546	
==>my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems => <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5361	5477	
==>is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its su <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5361	5477	
==>is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1412	1530	
==>headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1412	1530	
==>headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	461	568	
==>();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	461	568	
==>();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	461	568	
==>();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10742	10860	
==>insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Not <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10742	10860	
==>insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Not <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3863	3970	
==>to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3863	3970	
==>to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5387	5494	
==>to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1400	1502	
==>now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1400	1502	
==>now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1400	1502	
==>now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    m <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5235	5325	
==>ecode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5235	5325	
==>ecode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	839	937	
==>onstant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	839	937	
==>onstant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	839	937	
==>onstant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23046	23136	
==>d2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23046	23136	
==>d2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2862	3019	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3150	3297	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9568	9715	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3150	3297	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9568	9715	
==>);
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9950	10050	
==>%handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9950	10050	
==>%handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2604	2708	
==>e = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1216	1320	
==>e = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1917	2021	
==>e = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1448	1544	
==>hmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1448	1544	
==>hmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2011	2146	
==>p\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	325	460	
==>p\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2011	2146	
==>p\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2011	2146	
==>p\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27510	27600	
==>EN)
 #define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)
 #define RX <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2906	3114	
==>} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2906	3114	
==>} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2906	3114	
==>} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11415	11533	
==>d_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3006	3124	
==>d_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1940	2054	
==>>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1940	2054	
==>>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1940	2054	
==>>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18992	19089	
==>ely, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicati <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18992	19089	
==>ely, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicati <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52040	52244	
==>get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## ------------- <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2524	2642	
==>ut Prim.hs is \\n   List      list    Y       safe   (Array)\
#   ie, both return and argument types differ.
multi infi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	59	174	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { sa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	59	174	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { sa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	59	174	
==>, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { sa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4597	4712	
==>ew_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4439	4550	
==>ew_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3912	4009	
==>{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3912	4009	
==>{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3912	4009	
==>{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12114	12241	
==>r::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16687	16809	
==>et( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16966	17088	
==>et( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{captu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2516	2629	
==>r::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2516	2629	
==>r::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	534	638	
==>p(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1079	1183	
==>p(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	534	638	
==>p(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1079	1183	
==>p(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1079	1183	
==>p(), map() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	123	235	
==>e JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	128	239	
==>e JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	126	237	
==>e JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5954	6053	
==>= 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_v <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5954	6053	
==>= 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_v <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12252	12347	
==>ill add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12310	12405	
==>ill add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	353	448	
==>t "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"prin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	314	409	
==>t "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"prin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	314	409	
==>t "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2832	2942	
==>tive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2832	2942	
==>tive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2832	2942	
==>tive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invo <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2772	2855	
==>6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler> <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2772	2855	
==>6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5739	5954	
==>at check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6203	6418	
==>at check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3399	3486	
==>rs($Class)->{'$:superclass'} = $Object;

## -------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4093	4180	
==>rs($Class)->{'$:superclass'} = $Object;

## -------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5301	5388	
==>rs($Class)->{'$:superclass'} = $Object;

## -------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13730	13869	
==>nd_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13730	13869	
==>nd_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13730	13869	
==>nd_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3236	3370	
==>[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3429	3563	
==>[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1691	1817	
==>required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1691	1817	
==>required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1691	1817	
==>required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14172	14267	
==>se the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $de <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14230	14325	
==>se the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $de <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	284	404	
==>ttrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    retu <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	284	404	
==>ttrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1471	1562	
==>AN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1471	1562	
==>AN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1471	1562	
==>AN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18057	18154	
==>requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h-> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18057	18154	
==>requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5133	5228	
==>utine is passed the current object in the recursion and
the wanted namespace ("MyName" in the co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5133	5228	
==>utine is passed the current object in the recursion and
the wanted namespace ("MyName" in the co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5133	5228	
==>utine is passed the current object in the recursion and
the wanted namespace ("MyName" in the co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9794	9962	
==>e @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9794	9962	
==>e @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9794	9962	
==>e @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always retu <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3167	3267	
==>ctor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3167	3267	
==>ctor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33979	34076	
==>of the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will fa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38529	38626	
==>of the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	854	949	
==>ent)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	854	949	
==>ent)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	854	949	
==>ent)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2457	2605	
==>shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2662	2810	
==>shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5918	6019	
==>and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parenta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5918	6019	
==>and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parenta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5918	6019	
==>and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parenta <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	957	1083	
==>name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: f <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	957	1083	
==>name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2414	2513	
==>ing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2414	2513	
==>ing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2414	2513	
==>ing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31512	31708	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31512	31708	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31512	31708	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @t <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3192	3322	
==>g (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #p <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3656	3786	
==>g (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5953	6069	
==>dd_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5953	6069	
==>dd_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5953	6069	
==>dd_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24949	25043	
==>tatically or dynamically with other components is making a
combined work based on Rosetta.  Thu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24949	25043	
==>tatically or dynamically with other components is making a
combined work based on Rosetta.  Thu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19231	19329	
==>of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19231	19329	
==>of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4581	4668	
==>sname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4581	4668	
==>sname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4581	4668	
==>sname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	603	712	
==>gs.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	603	712	
==>gs.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	603	712	
==>gs.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pai <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20744	20836	
==>els.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its ke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20744	20836	
==>els.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24192	24322	
==>$i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24192	24322	
==>$i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24192	24322	
==>$i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2951	3047	
==>stname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if av <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2951	3047	
==>stname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if av <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3946	4081	
==>\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4139	4274	
==>\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4243	4354	
==>ody);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4243	4354	
==>ody);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4243	4354	
==>ody);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	80	187	
==>mentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	78	178	
==>mentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	72	172	
==>mentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	78	178	
==>mentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	72	172	
==>mentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4772	4876	
==>ine('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4772	4876	
==>ine('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4772	4876	
==>ine('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of co <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18898	18998	
==>(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18898	18998	
==>(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4665	4776	
==>output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4665	4776	
==>output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4665	4776	
==>output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Coul <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	542	675	
==>ata = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# T <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	542	675	
==>ata = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# T <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2906	3027	
==>'$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3755	3876	
==>'$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14858	14949	
==>tevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14858	14949	
==>tevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14858	14949	
==>tevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1227	1336	
==>:Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::M <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1227	1336	
==>:Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2132	2238	
==>ns ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2132	2238	
==>ns ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2132	2238	
==>ns ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16925	17044	
==>e.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16925	17044	
==>e.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove a <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1589	1699	
==>ool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LVa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4684	4793	
==>ool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LVa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4684	4793	
==>ool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LVa <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3835	3936	
==>"Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our & <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3835	3936	
==>"Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2460	2559	
==>}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2460	2559	
==>}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2460	2559	
==>}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inval <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	448	543	
==>eate ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $pla <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	448	543	
==>eate ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $pla <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5111	5228	
==>p
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5111	5228	
==>p
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5111	5228	
==>p
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	265	375	
==>LTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	265	375	
==>LTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14245	14348	
==>s, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14245	14348	
==>s, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16920	17007	
==>ULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritabl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16920	17007	
==>ULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritabl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16920	17007	
==>ULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2635	2749	
==>ray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2635	2749	
==>ray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2635	2749	
==>ray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      v <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33240	33339	
==>der
they appear in this array until a match for that message is found.  Since a
program or library m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33240	33339	
==>der
they appear in this array until a match for that message is found.  Since a
program or library m <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	694	812	
==>uce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9298	9414	
==>uce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2895	2991	
==>ead1 SYNOPSIS

    use Blondie::Backend::Perl::Builtins;

=head1 DESCRIPTION

This file bridges b <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1245	1338	
==>f $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s->run <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5635	5721	
==>@o = qw( src/pcre/pcre.o src/syck/bytecode.o src/syck/emitter.o src/syck/gram.o src/syc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4405	4515	
==>e interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4405	4515	
==>e interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_var <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16891	16993	
==>MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16891	16993	
==>MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16891	16993	
==>MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1656	1785	
==>> [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for perform <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1590	1713	
==>> [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for perform <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1967	2084	
==>= shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1967	2084	
==>= shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1967	2084	
==>= shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5269	5372	
==>f_char_comp => "\t", '\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40277	40371	
==>at you modify and distribute must carry
prominent notices stating that you changed the files an <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25801	25895	
==>at you modify and distribute must carry prominent
notices stating that you changed the files an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40277	40371	
==>at you modify and distribute must carry
prominent notices stating that you changed the files an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25801	25895	
==>at you modify and distribute must carry prominent
notices stating that you changed the files an <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10103	10216	
==>mplate_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpola <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10103	10216	
==>mplate_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpola <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	182	277	
==>Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	182	277	
==>Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	178	269	
==>Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::C <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3514	3624	
==>l5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4317	4418	
==>ethod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4317	4418	
==>ethod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4317	4418	
==>ethod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11668	11778	
==>ckage Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8353	8455	
==>sh, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8341	8443	
==>sh, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15905	16044	
==>attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15905	16044	
==>attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15905	16044	
==>attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1364	1492	
==>param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Functio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1364	1492	
==>param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Functio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9728	9845	
==>+ idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9728	9845	
==>+ idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9728	9845	
==>+ idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1851	1940	
==>cument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documenta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1851	1940	
==>cument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documenta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5968	6070	
==>rrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5968	6070	
==>rrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5968	6070	
==>rrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use con <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	756	855	
==>y the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This who <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	756	855	
==>y the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This who <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	193	315	
==>:Tester::Output
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is copy )
    {
        push @: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1542	1652	
==>o
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1542	1652	
==>o
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1542	1652	
==>o
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_metho <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4844	4939	
==>o_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	951	1098	
==>idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fail <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	951	1098	
==>idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fail <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	951	1098	
==>idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fail <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	228	335	
==>e / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular ref <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	228	335	
==>e / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular ref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10403	10509	
==>"$_[1] negate( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quote <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18886	18980	
==>onds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17929	18023	
==>onds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18886	18980	
==>onds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17929	18023	
==>onds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12875	13003	
==>$to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12875	13003	
==>$to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9107	9222	
==>();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

---- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9107	9222	
==>();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

---- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9107	9222	
==>();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

---- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2695	2803	
==>verse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2695	2803	
==>verse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1203	1298	
==>ter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1203	1298	
==>ter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1203	1298	
==>ter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6707	6857	
==>$.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    met <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6707	6857	
==>$.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7318	7414	
==>attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7318	7414	
==>attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7318	7414	
==>attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14079	14214	
==>f->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14079	14214	
==>f->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14079	14214	
==>f->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5271	5382	
==>s @:superclasses;
    has %:private_methods;
    has %:attributes;
    has %:methods;
}

(class (Class)
    ((at <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	319	410	
==>nd::C::Emitter::DuplicateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub gene <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14778	14883	
==>) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use cons <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14778	14883	
==>) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use cons <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14778	14883	
==>) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use cons <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1001	1103	
==>tfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    r <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1001	1103	
==>tfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7216	7322	
==>ad = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying neces <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7216	7322	
==>ad = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying neces <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7216	7322	
==>ad = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying neces <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4717	4814	
==>s and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fu <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4717	4814	
==>s and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	284	407	
==>->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	457	580	
==>->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	284	407	
==>->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	457	580	
==>->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        " <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5314	5411	
==>"pugs-smoke-%s-r%d-%s-%s--%d-%d--%d-%d-%d-%d-%d-%d--%s.html",
    (map { $smoke{$_}          } qw< <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4647	4884	
==>tart ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                re <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4647	4884	
==>tart ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14369	14556	
==>=> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14369	14556	
==>=> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14369	14556	
==>=> sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3832	3946	
==>ops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3832	3946	
==>ops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3832	3946	
==>ops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless d <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5186	5319	
==>, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5186	5319	
==>, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7797	7900	
==>('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7797	7900	
==>('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7797	7900	
==>('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9338	9446	
==>'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9338	9446	
==>'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9338	9446	
==>'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'} <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26219	26320	
==>ookahead
}
rule CharacterClass {  # see 15.10.1
      <'['> <!before <'^'>> <ClassRanges> <']'> #looka <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1836	1925	
==>'smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5851	5959	
==>,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5851	5959	
==>,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5851	5959	
==>,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9722	9815	
==><$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9722	9815	
==><$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2881	2979	
==>rict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descri <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2881	2979	
==>rict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descri <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2881	2979	
==>rict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descri <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	724	818	
==>de type keeps the C<source> property, and adds C<content>,
which is the whitespace to be repres <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	724	818	
==>de type keeps the C<source> property, and adds C<content>,
which is the whitespace to be repres <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1901	2006	
==>and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1901	2006	
==>and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1901	2006	
==>and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5607	5710	
==>ressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have kn <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5607	5710	
==>ressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have kn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1638	1751	
==>e { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1638	1751	
==>e { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1638	1751	
==>e { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39239	39329	
==>>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This doc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39239	39329	
==>>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This doc <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1100	1225	
==>.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.c <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1100	1225	
==>.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2683	2798	
==>name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2683	2798	
==>name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2683	2798	
==>name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15070	15190	
==>f);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15070	15190	
==>f);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15070	15190	
==>f);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23203	23300	
==>("...")>

Sends a command to the server. The command is not modified by this module,
aside from ap <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23203	23300	
==>("...")>

Sends a command to the server. The command is not modified by this module,
aside from ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12829	12929	
==>cks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12829	12929	
==>cks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12829	12929	
==>cks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5667	5763	
==>rs{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especia <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5667	5763	
==>rs{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especia <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5949	6075	
==>->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5949	6075	
==>->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1449	1555	
==>EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1449	1555	
==>EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1449	1555	
==>EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2426	2540	
==>1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2426	2540	
==>1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2426	2540	
==>1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	137	245	
==>::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	137	245	
==>::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5015	5164	
==>es}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5015	5164	
==>es}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5015	5164	
==>es}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16348	16441	
==>esponding argument is not provided).  If the optional named parameter
$parent_node (a Node) is <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16348	16441	
==>esponding argument is not provided).  If the optional named parameter
$parent_node (a Node) is <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	824	931	
==>, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Ru <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	614	719	
==>, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	614	719	
==>, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Ru <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	5	96	
==>Parse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	5	96	
==>Parse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	936	1073	
==>cedence => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        preced <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8822	8928	
==>stringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8822	8928	
==>stringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs de <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9078	9182	
==>stringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9078	9182	
==>stringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs de <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4247	4344	
==>size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4247	4344	
==>size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14250	14396	
==>ee t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14250	14396	
==>ee t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14250	14396	
==>ee t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1246	1359	
==>cation};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) un <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1246	1359	
==>cation};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2835	2969	
==>ister "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2835	2969	
==>ister "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2835	2969	
==>ister "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9871	9974	
==>ew_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tre <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9871	9974	
==>ew_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7238	7345	
==>store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7238	7345	
==>store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7238	7345	
==>store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clo <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4715	4811	
==>tes and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4715	4811	
==>tes and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9845	9957	
==>n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${names <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8793	8899	
==>when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tr <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8793	8899	
==>when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	321	418	
==>tput = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simpl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	321	418	
==>tput = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simpl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2560	2684	
==>) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_st <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2560	2684	
==>) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_st <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36412	36507	
==>ting any result tuples that
duplicate others.  The sequence in which any two source relations ar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40961	41056	
==>ting any result tuples that
duplicate others.  The sequence in which any two source relations ar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40575	40670	
==>ting any result tuples that
duplicate others.  The sequence in which any two source relations ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2322	2449	
==>dence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2322	2449	
==>dence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	348	447	
==>canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canida <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	348	447	
==>canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canida <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	348	447	
==>canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canida <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7239	7409	
==>rpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wra <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7239	7409	
==>rpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wra <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7239	7409	
==>rpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wra <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	471	572	
==><≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	471	572	
==><≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3628	3739	
==>v} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3628	3739	
==>v} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3628	3739	
==>v} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $s <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1139	1241	
==>$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code w <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1139	1241	
==>$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code w <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10122	10321	
==>('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->remove($e->get('$label'));                                                  
            }
        )
    )
);

=po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1235	1334	
==>sif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1235	1334	
==>sif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1235	1334	
==>sif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8134	8223	
==>does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar'), '... iFooBar does rBar' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5785	5906	
==>pport for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5785	5906	
==>pport for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5785	5906	
==>pport for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5961	6066	
==>content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Ty <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5961	6066	
==>content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	709	849	
==>tOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	709	849	
==>tOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	709	849	
==>tOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20075	20171	
==>E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20075	20171	
==>E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8237	8450	
==>( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8237	8450	
==>( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8237	8450	
==>( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20696	20795	
==>elf->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17117	17216	
==>elf->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15356	15455	
==>l them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Ent <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15356	15455	
==>l them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Ent <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	467	559	
==>ame eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	467	559	
==>ame eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	467	559	
==>ame eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2277	2379	
==>'(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2277	2379	
==>'(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1133	1233	
==>a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1133	1233	
==>a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1133	1233	
==>a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2396	2531	
==>6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2396	2531	
==>6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2396	2531	
==>6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29265	29363	
==>rator that returns a new Relation
which is the same as the invocant Relation but that some of its
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33817	33915	
==>rator that returns a new Relation
which is the same as the invocant Relation but that some of its
t <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	463	563	
==>split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	463	563	
==>split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21649	21746	
==>0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21649	21746	
==>0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21649	21746	
==>0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17941	18080	
==>st",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16979	17118	
==>st",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # ( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17941	18080	
==>st",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # ( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16979	17118	
==>st",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7454	7607	
==>rn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ran <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7454	7607	
==>rn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ran <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7454	7607	
==>rn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ran <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2232	2327	
==>ized, most "autotags" will be too.

When activated, the special tag C<:all> will cause all traci <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2232	2327	
==>ized, most "autotags" will be too.

When activated, the special tag C<:all> will cause all traci <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2536	2647	
==>{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2536	2647	
==>{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2056	2149	
==>:cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2056	2149	
==>:cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2056	2149	
==>:cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3726	3842	
==>ument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref($next) eq "CO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12101	12201	
==>the Tree

If you want to work with the parse tree independently, use the root()
method to get it.  Fr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1203	1300	
==>6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1203	1300	
==>6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1203	1300	
==>6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->sup <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3291	3433	
==>snt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3291	3433	
==>snt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3291	3433	
==>snt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subst <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	851	964	
==>\$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	860	973	
==>\$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3660	3764	
==>hift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10979	11077	
==>...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8383	8481	
==>...)>

Removes the specified items from the set. Returns the number of items removed.

It is not fa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10979	11077	
==>...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8383	8481	
==>...)>

Removes the specified items from the set. Returns the number of items removed.

It is not fa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13264	13398	
==>'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9450	9584	
==>'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10286	10420	
==>'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1491	1618	
==>, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1491	1618	
==>, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        " <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1845	2009	
==>) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1845	2009	
==>) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $ba <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2566	2702	
==>) {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2566	2702	
==>) {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $ba <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1703	1804	
==>Whitespace = 1 if ((index $options, "nows") >= 0);

  #print "name: $name - eq: $equivalence - rp: $re <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	141	258	
==>ER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

= <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	141	258	
==>ER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7278	7389	
==>s_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7278	7389	
==>s_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7278	7389	
==>s_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29085	29183	
==>n
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33637	33735	
==>n
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3285	3396	
==>as to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3285	3396	
==>as to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3285	3396	
==>as to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14729	14823	
==>ndling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14787	14881	
==>ndling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14011	14109	
==>nce for each value.  The field name passed to the
callback routine has case as suggested by HTTP sp <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14011	14109	
==>nce for each value.  The field name passed to the
callback routine has case as suggested by HTTP sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1037	1129	
==>b prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1037	1129	
==>b prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1037	1129	
==>b prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Re <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4846	4975	
==>) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = eac <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4705	4834	
==>) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = eac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40351	40460	
==>s->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40351	40460	
==>s->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40351	40460	
==>s->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	217	337	
==>card_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $es <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	217	337	
==>card_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $es <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	725	823	
==>1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compare($_[1]) == -1 ? bit->new(1) : bi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9399	9495	
==>'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_asse <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9399	9495	
==>'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_asse <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	437	562	
==>nction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(prox <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	437	562	
==>nction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(prox <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	437	562	
==>nction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(prox <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1829	1945	
==>"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1829	1945	
==>"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13774	13969	
==>) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13774	13969	
==>) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13774	13969	
==>) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19817	19914	
==>) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can giv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19817	19914	
==>) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can giv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6767	6885	
==>ew_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6767	6885	
==>ew_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6767	6885	
==>ew_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retur <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1100	1199	
==>rl, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_ht <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1100	1199	
==>rl, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_ht <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2298	2398	
==>O - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2298	2398	
==>O - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2298	2398	
==>O - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is con <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2786	2884	
==>ther; you might not be able to derive the 
plaintext from the result, but any cryptographer worth t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2786	2884	
==>ther; you might not be able to derive the 
plaintext from the result, but any cryptographer worth t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1623	1780	
==>{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1623	1780	
==>{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1623	1780	
==>{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pI <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23775	23901	
==>apture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24054	24180	
==>apture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7234	7352	
==>uring_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7222	7340	
==>uring_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program ) <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1721	1820	
==>Perl 5's POE to Perl 6. It is only an experiment, it's not
API compatible to the original POE, and i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5063	5203	
==>e}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5063	5203	
==>e}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5063	5203	
==>e}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1525	1630	
==>>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  : <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1525	1630	
==>>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9110	9233	
==>ted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9110	9233	
==>ted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9110	9233	
==>ted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Sli <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15702	15800	
==>ctively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15702	15800	
==>ctively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyr <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2137	2235	
==>tem glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebast <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2137	2235	
==>tem glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebast <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9494	9585	
==>".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_av <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9494	9585	
==>".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_av <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9494	9585	
==>".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_av <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1820	1961	
==>odes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1759	1897	
==>odes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4758	4864	
==>ests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_results($t <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15611	15711	
==>e span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case).

- <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15611	15711	
==>e span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case).

- <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4627	4726	
==>nd TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<? <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4627	4726	
==>nd TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<? <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6824	6923	
==>nd TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<? <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30664	30758	
==>The new Relation has all of the tuples of the
original (or rather, the corresponding transforma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35215	35309	
==>The new Relation has all of the tuples of the
original (or rather, the corresponding transforma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1868	2021	
==>stance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2073	2226	
==>stance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2136	2289	
==>stance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes' <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	122	223	
==>{
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>* <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	122	223	
==>{
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>* <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8634	8752	
==>integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous = <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8634	8752	
==>integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7804	7897	
==>(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7804	7897	
==>(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7804	7897	
==>(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_met <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16314	16419	
==>elf;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16314	16419	
==>elf;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2144	2242	
==>/^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2144	2242	
==>/^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2144	2242	
==>/^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".j <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1920	2142	
==>},
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.ba <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1920	2142	
==>},
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1054	1197	
==>dentify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1054	1197	
==>dentify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1054	1197	
==>dentify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @r <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8929	9050	
==>ang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8929	9050	
==>ang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6405	6509	
==>nline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6405	6509	
==>nline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6405	6509	
==>nline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	735	852	
==>( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2140	2254	
==>o Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2140	2254	
==>o Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1372	1481	
==>o Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3233	3342	
==>o Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Co <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1389	1511	
==>or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Ne <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1356	1478	
==>or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Ne <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	6832	6945	
==>d($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($file)";
        p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7966	8076	
==>ect) = @_;
  my $fail;
  while (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2591	2677	
==>>compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?slurp<?p6ws <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6262	6485	
==>next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_spa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6262	6485	
==>next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	52	153	
==>for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	52	153	
==>for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	52	153	
==>for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUN <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1896	2030	
==>f %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1896	2030	
==>f %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4237	4325	
==>uilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4237	4325	
==>uilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6434	6522	
==>uilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	920	1031	
==>has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	920	1031	
==>has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  ha <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10131	10258	
==>f;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_logi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10131	10258	
==>f;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_logi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24222	24348	
==>_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2606	2707	
==>, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2606	2707	
==>, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for build <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	476	609	
==>return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	456	585	
==>return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14650	14767	
==>tempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14650	14767	
==>tempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14650	14767	
==>tempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	857	960	
==>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1250	1353	
==>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1880	1983	
==>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	857	960	
==>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1250	1353	
==>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1996	2118	
==>l( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fals <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5473	5595	
==>l( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fals <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4403	4525	
==>l( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fals <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12225	12329	
==>-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:0 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12225	12329	
==>-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:0 <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2150	2263	
==>e( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $interse <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2150	2263	
==>e( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $interse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12	108	
==>6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12	108	
==>6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12	108	
==>6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1223	1421	
==>$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1223	1421	
==>$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8894	9015	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8894	9015	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8894	9015	
==>the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6127	6266	
==>h @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6127	6266	
==>h @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6127	6266	
==>h @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  re <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13766	13870	
==>_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This ro <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13766	13870	
==>_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This ro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3490	3628	
==>turn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3683	3821	
==>turn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11849	11935	
==>l5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11849	11935	
==>l5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11849	11935	
==>l5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14297	14414	
==>f->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    eval <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9867	9964	
==>r->walker(2);  # top- through third-level

The iterator returned is a function reference.  When ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17311	17403	
==>classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level function <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17311	17403	
==>classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level function <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17311	17403	
==>classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level function <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7541	7672	
==>) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7541	7672	
==>) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7541	7672	
==>) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.u <==
5	/Users/nnunley/pugs/util/version_h.pl	536	639	
==>es to ask the user questions when it has a STDIN and there is
# no repository.  Since we don't need a ST <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45059	45151	
==>---------------------------------------
## now build Package & Module, so we can create somet <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28863	28982	
==>O' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a numb <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28863	28982	
==>O' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a numb <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	230	337	
==>O' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a numb <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2146	2241	
==>tion for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional inter <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2146	2241	
==>tion for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional inter <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13633	13740	
==>ily eq "flags";

    # quantifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED)
      if $tre <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2470	2604	
==>ional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].i <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2470	2604	
==>ional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1373	1476	
==>String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1373	1476	
==>String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1373	1476	
==>String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(St <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25328	25420	
==>vocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the compleme <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29880	29972	
==>vocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the compleme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5648	5756	
==>iderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  requ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5648	5756	
==>iderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  requ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5648	5756	
==>iderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  requ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	17557	17654	
==>>{files}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	143	246	
==>t13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $ju <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	143	246	
==>t13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $ju <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	129	229	
==>mation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUAR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	129	229	
==>mation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUAR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	129	229	
==>mation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUAR <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8128	8219	
==>(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).int <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7258	7349	
==>(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).int <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8128	8219	
==>(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).int <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7258	7349	
==>(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).int <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	117	229	
==>.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	117	229	
==>.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	117	229	
==>.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0] <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1258	1359	
==>)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1258	1359	
==>)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1549	1650	
==>t .= _draw_class_node($class);
        $output .= "node_" . $class->class->id . " -- node_" . $class-> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10364	10462	
==>et. Returns the number of items
inserted.

It is not fatal to insert an item which is already inser <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8257	8355	
==>et. Returns the number of items inserted.

It is not fatal to insert an item which is already inser <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10364	10462	
==>et. Returns the number of items
inserted.

It is not fatal to insert an item which is already inser <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8257	8355	
==>et. Returns the number of items inserted.

It is not fatal to insert an item which is already inser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5791	6014	
==>SubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5791	6014	
==>SubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5791	6014	
==>SubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1999	2131	
==>rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0") <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1999	2131	
==>rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0") <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10682	10855	
==>hans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10682	10855	
==>hans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16215	16346	
==>lues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19692	19823	
==>lues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19225	19356	
==>lues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2880	2980	
==>]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2880	2980	
==>]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2880	2980	
==>]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6521	6616	
==>nf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direct <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6521	6616	
==>nf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direct <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5506	5654	
==>above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be ab <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5970	6118	
==>above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1841	1970	
==>ody!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1841	1970	
==>ody!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1841	1970	
==>ody!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1875	1966	
==>s.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1964	2055	
==>s.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	88	186	
==>r;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	88	186	
==>r;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	88	186	
==>r;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonke <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1502	1598	
==>rl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, thin <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1502	1598	
==>rl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, thin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2021	2129	
==>d.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2021	2129	
==>d.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2021	2129	
==>d.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	793	895	
==>s::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	793	895	
==>s::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2334	2430	
==>Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2334	2430	
==>Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3306	3396	
==>"$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3306	3396	
==>"$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3306	3396	
==>"$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11295	11429	
==>e $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11295	11429	
==>e $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23683	23795	
==>$qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23683	23795	
==>$qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23683	23795	
==>$qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8399	8514	
==>return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8399	8514	
==>return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8399	8514	
==>return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq ' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18399	18500	
==>ry of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18399	18500	
==>ry of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10069	10199	
==>_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10069	10199	
==>_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30825	30917	
==>rmation have been eliminated. 
Trivial cases are where C<$transformer> returns either an empt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35376	35467	
==>rmation have been eliminated.
Trivial cases are where C<$transformer> returns either an empt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34567	34658	
==>rmation have been eliminated.
Trivial cases are where C<$transformer> returns either an empt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1796	1937	
==>h = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1736	1874	
==>h = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10308	10403	
==>."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10308	10403	
==>."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10308	10403	
==>."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3702	3808	
==>hen ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3702	3808	
==>hen ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3610	3711	
==>kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3610	3711	
==>kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3610	3711	
==>kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10849	10999	
==>ircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10849	10999	
==>ircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5417	5528	
==>($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->aut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5417	5528	
==>($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->aut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5417	5528	
==>($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->aut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5197	5314	
==>::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5197	5314	
==>::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5787	5904	
==>::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9124	9224	
==>e HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9124	9224	
==>e HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3902	4009	
==>ocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3902	4009	
==>ocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3902	4009	
==>ocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1161	1261	
==>"ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1160	1253	
==>"ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2114	2215	
==>$f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2114	2215	
==>$f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2114	2215	
==>$f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3333	3431	
==>t 
also means that the nonce or initialization vector should be hashed with the 
key, not merely ap <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3333	3431	
==>t 
also means that the nonce or initialization vector should be hashed with the 
key, not merely ap <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2505	2655	
==>cendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2710	2860	
==>cendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3782	3932	
==>cendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14645	14741	
==>m RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] range "%s-%s"

=item RPe_IRANGE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	505	604	
==>\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	505	604	
==>\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	505	604	
==>\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33215	33306	
==>multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37765	37856	
==>multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $ot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4165	4288	
==>^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4165	4288	
==>^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4165	4288	
==>^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	285	381	
==>TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an A <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	285	381	
==>TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an A <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4821	4971	
==>.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions thems <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4821	4971	
==>.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions thems <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	119	209	
==>$FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	119	209	
==>$FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	119	209	
==>$FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pars <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2703	2827	
==>t($arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self->{env}->set($param->to_st <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4187	4283	
==>.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3314	3410	
==>.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4187	4283	
==>.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3314	3410	
==>.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17634	17798	
==>key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21111	21275	
==>key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20698	20862	
==>key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1195	1333	
==>newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1146	1279	
==>newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2205	2309	
==>erywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2216	2320	
==>erywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    rul <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33068	33156	
==>ethod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=ite <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37618	37706	
==>ethod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=ite <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36962	37050	
==>ethod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=ite <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2947	3069	
==>ed"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3796	3918	
==>ed"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	391	483	
==>ox.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	391	483	
==>ox.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	391	483	
==>ox.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retc <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	819	951	
==>end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	819	951	
==>end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3078	3176	
==>$methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3078	3176	
==>$methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3078	3176	
==>$methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	436	540	
==>1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	352	456	
==>ble 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	436	540	
==>1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	436	540	
==>1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	352	456	
==>ble 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3392	3497	
==>ode {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3392	3497	
==>ode {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1987	2074	
==>age');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1987	2074	
==>age');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1987	2074	
==>age');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5739	5903	
==>ttr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5739	5903	
==>ttr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5739	5903	
==>ttr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # typ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	18	119	
==>e v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	18	119	
==>e v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4977	5140	
==>this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _pa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5441	5604	
==>this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1207	1302	
==>_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1207	1302	
==>_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1207	1302	
==>_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE > <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	1326	1451	
==>d_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $con <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	772	871	
==>ion
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    h <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	964	1063	
==>ion
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    h <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	772	871	
==>ion
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    h <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	964	1063	
==>ion
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    h <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3268	3375	
==>fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3268	3375	
==>fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	587	688	
==>utput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	587	688	
==>utput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	587	688	
==>utput} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1353	1504	
==>il->to_native);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9740	9850	
==>',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9740	9850	
==>',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	536	639	
==>eck if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN_ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	536	639	
==>eck if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37307	37404	
==>ring) and checks whether or not it has already been
loaded, returning true if so and false if not. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37307	37404	
==>ring) and checks whether or not it has already been
loaded, returning true if so and false if not. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36757	36852	
==>oes too.  Another trivial case is if any
source relation is the identity-one relation (zero attr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41306	41401	
==>oes too.  Another trivial case is if any
source relation is the identity-one relation (zero attr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40929	41024	
==>oes too.  Another trivial case is if any
source relation is the identity-one relation (zero attr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8245	8362	
==>if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the "m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7968	8081	
==>if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the "m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	948	1055	
==>{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	948	1055	
==>{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	948	1055	
==>{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8316	8470	
==>return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8316	8470	
==>return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8316	8470	
==>return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell') <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5661	5784	
==>Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scalar <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	64	171	
==>onfig;
use JIB::Utils;

use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22688	22791	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22688	22791	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22688	22791	
==>o_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1441	1538	
==>T_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expec <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1441	1538	
==>T_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expec <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24898	24991	
==>he return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24898	24991	
==>he return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16978	17065	
==>UB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16978	17065	
==>UB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16978	17065	
==>UB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5965	6065	
==>CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5965	6065	
==>CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5965	6065	
==>CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	834	933	
==>iler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	834	933	
==>iler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2339	2446	
==>/protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($statu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2339	2446	
==>/protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($statu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5839	5931	
==>ilter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5839	5931	
==>ilter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5839	5931	
==>ilter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myo <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10165	10291	
==>p        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($tem <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10165	10291	
==>p        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($tem <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	568	663	
==>)(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	568	663	
==>)(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	568	663	
==>)(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5864	6015	
==>cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not impleme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5876	6027	
==>cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not impleme <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25404	25499	
==>urns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29956	30051	
==>urns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28895	28990	
==>urns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5851	5962	
==>$replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9328	9439	
==>$replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8006	8117	
==>me};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prepr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12001	12107	
==>me};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prepr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12001	12107	
==>me};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prepr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14051	14164	
==>, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($serve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14051	14164	
==>, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($serve <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29721	29814	
==>another,
or are the same as the unaffected invocant's attributes.  This method
supports having <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34273	34366	
==>another,
or are the same as the unaffected invocant's attributes.  This method
supports having <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33437	33530	
==>another,
or are the same as the unaffected invocant's attributes.  This method
supports having <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10479	10645	
==>/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6820	6986	
==>/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7669	7835	
==>/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9914	10071	
==>ect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9914	10071	
==>ect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10954	11072	
==>]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10954	11072	
==>]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10954	11072	
==>]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].B <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5281	5375	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACK <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5281	5375	
==>rren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACK <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1326	1423	
==>eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1326	1423	
==>eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1326	1423	
==>eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1272	1402	
==>e    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1272	1402	
==>e    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6154	6252	
==>ng set in advance with the prune method.

This feature is useful, like custom, for when you don't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6154	6252	
==>ng set in advance with the prune method.

This feature is useful, like custom, for when you don't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6154	6252	
==>ng set in advance with the prune method.

This feature is useful, like custom, for when you don't w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1004	1123	
==>ings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1004	1123	
==>ings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1004	1123	
==>ings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9450	9560	
==>ath_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9450	9560	
==>ath_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1210	1320	
==>_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1210	1320	
==>_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	219	313	
==>?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	219	313	
==>?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	219	313	
==>?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	16060	16204	
==>path};
            my $regex   = $link->{regex};

            # create a representation that is like the $html->as_text
            $heading = $p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2322	2444	
==>> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule para <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2322	2444	
==>> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule para <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2876	2995	
==>> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule para <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2876	2995	
==>> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule para <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12553	12652	
==>f things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12553	12652	
==>f things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11758	11843	
==>le ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11758	11843	
==>le ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11758	11843	
==>le ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eva <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9024	9204	
==>splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9024	9204	
==>splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2147	2242	
==>, "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2147	2242	
==>, "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2147	2242	
==>, "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub c <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13651	13774	
==>e = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3780	3895	
==>e = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3780	3895	
==>e = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3780	3895	
==>e = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6663	6764	
==>y of the match fields? */
}

/*
 * regexp_compile
 */

static regcomp_t previous_comp_hook = NULL;

re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9326	9441	
==>remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9326	9441	
==>remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9326	9441	
==>remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7486	7599	
==>Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7486	7599	
==>Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10077	10213	
==>TOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10077	10213	
==>TOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10077	10213	
==>TOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7327	7441	
==>header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7327	7441	
==>header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17184	17284	
==>SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20661	20761	
==>SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20239	20339	
==>SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2443	2542	
==>replace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of supp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2350	2447	
==>replace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of supp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23462	23606	
==>m );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23462	23606	
==>m );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23462	23606	
==>m );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retur <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10202	10302	
==>eturns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10202	10302	
==>eturns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the se <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5214	5382	
==>_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5214	5382	
==>_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14496	14594	
==>s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14496	14594	
==>s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14496	14594	
==>s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3705	3802	
==>his class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3705	3802	
==>his class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1109	1211	
==>turn %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" va <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1109	1211	
==>turn %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4037	4129	
==>taModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::N <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4037	4129	
==>taModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::N <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4037	4129	
==>taModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6081	6188	
==>func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6081	6188	
==>func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6081	6188	
==>func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $c <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2905	3003	
==>id 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random n <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2905	3003	
==>id 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random n <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	860	960	
==>rint, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	860	960	
==>rint, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2453	2549	
==>my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2453	2549	
==>my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2453	2549	
==>my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	882	1061	
==>Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    retu <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	218	323	
==>outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	378	482	
==>s tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	378	482	
==>s tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, * <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	378	482	
==>s tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	31	145	
==>s;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	31	145	
==>s;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	31	145	
==>s;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  lo <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1459	1565	
==>IB} =
      File::Spec->catfile($path, "lib");
    $self->makemaker_args->{INST_ARCHLIB} =
      File::Spec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2431	2535	
==>s here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = ::create_class(
    '$:nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7905	8021	
==>$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7893	8009	
==>$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2249	2356	
==>oin {
    my ($self, $delimiter) = @_;
    (blessed($delimiter) && $delimiter->isa('str'))
        || confes <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1161	1264	
==>s::trunc($x);
 }
 our &Num::int ::= &Num::truncate;

 # XXX - referred to, but not specced, in S29.
 mul <==
5	/Users/nnunley/pugs/util/grokprims.pl	553	666	
==>gs = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc{$assoc};
  } els <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8899	8997	
==>span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9285	9383	
==>span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8899	8997	
==>span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9285	9383	
==>span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5694	5819	
==>elf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5694	5819	
==>elf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5694	5819	
==>elf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33545	33642	
==>ring.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33545	33642	
==>ring.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3293	3395	
==>[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3293	3395	
==>[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0] <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37142	37237	
==>ining degenerates to a
C<product>.  In any situation where the heading of one source relation is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41691	41786	
==>ining degenerates to a
C<product>.  In any situation where the heading of one source relation is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41314	41409	
==>ining degenerates to a
C<product>.  In any situation where the heading of one source relation is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1576	1713	
==>time::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1576	1713	
==>time::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2357	2452	
==>, "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2357	2452	
==>, "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2357	2452	
==>, "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3549	3659	
==>Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3549	3659	
==>Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	84	179	
==>r';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Deve <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	84	179	
==>r';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Deve <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	84	179	
==>r';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Deve <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1645	1745	
==>ld not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rul <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1703	1803	
==>ld not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	235	322	
==>ontainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	235	322	
==>ontainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	235	322	
==>ontainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requi <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10949	11068	
==>le($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37463	37581	
==>FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37463	37581	
==>FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37463	37581	
==>FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::V <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18914	19007	
==>1::BB::debug && !$eval_log_file) {
	open($eval_log_file,">>deleteme_code.pl") or die $!;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5682	5821	
==>r unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5682	5821	
==>r unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5682	5821	
==>r unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	567	675	
==>e invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY> <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	567	675	
==>e invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6258	6473	
==>push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6722	6937	
==>push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3656	3788	
==>. "    ;\n" .
        "    require Runtime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runti <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15185	15282	
==>t Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15185	15282	
==>t Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Docu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5453	5556	
==>AML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5263	5364	
==>AML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4660	4760	
==>ing here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4660	4760	
==>ing here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4660	4760	
==>ing here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5375	5490	
==>= $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5375	5490	
==>= $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5375	5490	
==>= $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	240	338	
==>Lazy lists are not implemented
    * Constructors should emit error messages if there are unknown p <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	240	338	
==>Lazy lists are not implemented
    * Constructors should emit error messages if there are unknown p <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	549	655	
==>ers{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$ma <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	549	655	
==>ers{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6815	6919	
==>0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6815	6919	
==>0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6815	6919	
==>0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_att <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11765	11864	
==>}

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11765	11864	
==>}

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $serv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3263	3352	
==>ine('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3263	3352	
==>ine('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3263	3352	
==>ine('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5988	6142	
==>onstant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5988	6142	
==>onstant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1370	1484	
==>med;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1370	1484	
==>med;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1579	1693	
==>med;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $nam <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15846	15945	
==>c? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal use <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20079	20178	
==>c? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal use <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2764	2860	
==>ber(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2764	2860	
==>ber(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2764	2860	
==>ber(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	881	994	
==>ing.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	881	994	
==>ing.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	881	994	
==>ing.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stand <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	47	150	
==>wurf() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf( <==
5	/Users/nnunley/pugs/util/addauthors.pl	120	220	
==>ess /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1305	1409	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1305	1409	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1305	1409	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircum <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26389	26484	
==>te a modified version of Rosetta
that you are willing to distribute, because that is a practical <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26389	26484	
==>te a modified version of Rosetta
that you are willing to distribute, because that is a practical <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	405	521	
==>am->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	405	521	
==>am->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1400	1486	
==>postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1400	1486	
==>postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1400	1486	
==>postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	70	186	
==>s keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	70	186	
==>s keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	70	186	
==>s keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	736	836	
==>ll module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $db <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	736	836	
==>ll module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $db <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5481	5593	
==>eturn a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5306	5415	
==>eturn a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2218	2326	
==>AY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2218	2326	
==>AY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2218	2326	
==>AY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10246	10347	
==>$h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10246	10347	
==>$h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15577	15673	
==>) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15577	15673	
==>) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15577	15673	
==>) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12875	12971	
==>};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12875	12971	
==>};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12875	12971	
==>};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_ <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	11	105	
==>---------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code i <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	11	105	
==>---------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10879	11051	
==>)
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11158	11330	
==>)
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12128	12241	
==>er('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4771	4884	
==>er('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18124	18220	
==>CH("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4947	5056	
==>,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4947	5056	
==>,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17039	17128	
==>attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17039	17128	
==>attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17039	17128	
==>attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10126	10299	
==>, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10126	10299	
==>, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1011	1114	
==>oo)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trait <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1011	1114	
==>oo)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trait <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1011	1114	
==>oo)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trait <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	500	630	
==>i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	500	630	
==>i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	500	630	
==>i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3040	3156	
==>eld};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3040	3156	
==>eld};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defin <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4467	4568	
==>Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4525	4626	
==>Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	81	173	
==>ackage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	81	173	
==>ackage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	81	173	
==>ackage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8762	8936	
==>te($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # varia <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8762	8936	
==>te($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # varia <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8762	8936	
==>te($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # varia <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13757	13860	
==>$other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17234	17337	
==>$other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24347	24485	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25610	25748	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24626	24764	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25889	26027	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1164	1298	
==>AGE__->add_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	320	424	
==>~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &join.assuming:d <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22583	22685	
==>t_gen = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	902	994	
==>w PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	902	994	
==>w PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	902	994	
==>w PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6765	6913	
==>=> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6765	6913	
==>=> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6765	6913	
==>=> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxe <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14348	14448	
==>iag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP pr <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14406	14506	
==>iag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1077	1190	
==>p;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1077	1190	
==>p;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1077	1190	
==>p;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15570	15664	
==>Hugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15570	15664	
==>Hugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23855	23976	
==>x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8551	8662	
==>e,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8551	8662	
==>e,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8551	8662	
==>e,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29042	29142	
==>x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35391	35510	
==>ody=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35391	35510	
==>ody=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35391	35510	
==>ody=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12081	12197	
==>server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12081	12197	
==>server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13178	13319	
==>= $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13178	13319	
==>= $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12274	12407	
==>= $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12274	12407	
==>= $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2594	2710	
==>::oop{$id}{'op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::o <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3620	3730	
==>aller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto() <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3678	3788	
==>aller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto() <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37527	37624	
==>not significant to the result;
the new Relation is the result of combining all of the source Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42076	42173	
==>not significant to the result;
the new Relation is the result of combining all of the source Relat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1872	1976	
==>ine ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1872	1976	
==>ine ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1952	2056	
==>ine ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5816	5916	
==>rtable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5816	5916	
==>rtable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8114	8235	
==>_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8114	8235	
==>_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8114	8235	
==>_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16435	16553	
==>) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12856	12974	
==>) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1966	2108	
==>foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1966	2108	
==>foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1966	2108	
==>foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work ar <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5258	5362	
==>removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5258	5362	
==>removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2555	2660	
==>@_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last if defined $self->{$stage};
	push(@to <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1906	2029	
==>lues'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like -> <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1505	1610	
==>d_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1505	1610	
==>d_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and he <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5631	5732	
==>ay 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @t <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5631	5732	
==>ay 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21933	22062	
==>push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21933	22062	
==>push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21933	22062	
==>push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	459	565	
==>it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	459	565	
==>it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._ <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1567	1697	
==>ename}_exe.uu")) {
    print "# Unpacking $exename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4348	4456	
==>mallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4348	4456	
==>mallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4348	4456	
==>mallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9244	9342	
==>harset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                --> {t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7497	7623	
==>:rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7690	7816	
==>:rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2405	2510	
==>(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2405	2510	
==>(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2405	2510	
==>(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1608	1714	
==>DO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1608	1714	
==>DO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1608	1714	
==>DO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the ' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31004	31102	
==>s set. For maximum flexibility in their use, the full name of a module
consists of the two parts co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31004	31102	
==>s set. For maximum flexibility in their use, the full name of a module
consists of the two parts co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7905	8020	
==>me $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11902	12015	
==>me $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11902	12015	
==>me $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayre <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17739	17832	
==>r invoke/execute Rosetta D statements and routines
within the virtual machine, input data to i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17739	17832	
==>r invoke/execute Rosetta D statements and routines
within the virtual machine, input data to i <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13548	13698	
==>ing,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3689	3823	
==>ing,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3689	3823	
==>ing,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3689	3823	
==>ing,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3878	3986	
==>hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36377	36472	
==>hers) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41564	41659	
==>hers) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37088	37181	
==>hers) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37538	37631	
==>hers) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39692	39785	
==>hers) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4860	4963	
==>et" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4860	4963	
==>et" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4860	4963	
==>et" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self-> <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	185	278	
==>::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::Type <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33901	33993	
==>Data: array reference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

En <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2095	2228	
==>->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2510	2641	
==>->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$node <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2026	2157	
==>->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2510	2641	
==>->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$node <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	954	1066	
==>lias prototype to some common names for super
        return $table->{prototype}
            if ($message eq 'pro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	680	813	
==>| \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	680	813	
==>| \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    ru <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4177	4272	
==>gs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The op <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4177	4272	
==>gs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5701	5796	
==>gs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The op <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4075	4200	
==>ry { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::pr <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4133	4258	
==>ry { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33253	33450	
==>->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33253	33450	
==>->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33253	33450	
==>->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshif <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2789	2926	
==>cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2789	2926	
==>cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7914	8060	
==>rse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7914	8060	
==>rse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7914	8060	
==>rse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10352	10474	
==>, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10352	10474	
==>, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2190	2322	
==>{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2190	2322	
==>{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4052	4176	
==>Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawN <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4052	4176	
==>Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawN <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	902	1026	
==>Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawN <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4743	4842	
==>366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns th <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4743	4842	
==>366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	183	279	
==>'new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	183	279	
==>'new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	183	279	
==>'new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	452	568	
==>d a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	657	773	
==>d a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	713	829	
==>d a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2943	3042	
==>le) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

= <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2943	3042	
==>le) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

= <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4379	4501	
==>&& $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= f <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4379	4501	
==>&& $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1930	2033	
==>(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1930	2033	
==>(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1930	2033	
==>(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10683	10797	
==>ext}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10683	10797	
==>ext}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11086	11182	
==>atenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11086	11182	
==>atenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13586	13679	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13586	13679	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13586	13679	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4124	4225	
==>s to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4308	4409	
==>s to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7701	7794	
==>\\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9629	9722	
==>\\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7689	7782	
==>\\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3839	3964	
==>un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $req <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3839	3964	
==>un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $req <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3839	3964	
==>un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $req <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1496	1618	
==>on =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1496	1618	
==>on =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4108	4294	
==>[$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $val <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5429	5615	
==>[$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $val <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4108	4294	
==>[$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $val <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5417	5603	
==>[$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $val <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1591	1701	
==>egister', '--user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        syst <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	364	501	
==>r this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	353	480	
==>r this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1878	1973	
==>er(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1878	1973	
==>er(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1878	1973	
==>er(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13112	13280	
==>::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13112	13280	
==>::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13112	13280	
==>::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12788	12885	
==>nce is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12788	12885	
==>nce is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	942	1050	
==>($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::I <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	942	1050	
==>($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::I <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1362	1490	
==>OS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1362	1490	
==>OS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1597	1709	
==>::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1597	1709	
==>::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1597	1709	
==>::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16332	16590	
==>> 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16332	16590	
==>> 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16332	16590	
==>> 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	15430	15561	
==>$1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name=>$name);
            
            my @ <==
5	/Users/nnunley/pugs/util/grokprims.pl	1945	2052	
==>$arity == 1) {
    $example = "\$$a0$name";
  } elsif (/special/ and $arity == 1) {
    $example = "$name\$$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3656	3806	
==>es
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3656	3806	
==>es
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3656	3806	
==>es
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24724	24824	
==>d have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if no <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24724	24824	
==>d have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if no <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13145	13291	
==>Motto: If in doubt use brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $id <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3330	3460	
==>Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3330	3460	
==>Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3330	3460	
==>Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $id <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	739	843	
==>losure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || confess "body must be a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2132	2310	
==>$op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1901	2073	
==>$op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1901	2073	
==>$op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    } <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9424	9542	
==>max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_n <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12576	12668	
==>var name=skipped></span>,</td>
	      <td class="num tests_unexpect"><span title="<tmpl_var n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38028	38179	
==>isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38028	38179	
==>isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38028	38179	
==>isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->s <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17025	17145	
==>ring              --> Str )
 multi Str::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18209	18326	
==>Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $delimi <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	522	624	
==>->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8789	8890	
==>->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8789	8890	
==>->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8789	8890	
==>->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27310	27403	
==>ates and returns a new Relation::Example object, whose Heading and
Body attributes are set res <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25083	25179	
==>e class is pure and deterministic,
such that all of its class and object methods will each return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14487	14583	
==>e class is pure and deterministic, such that all of its class and
object methods will each return <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25083	25179	
==>e class is pure and deterministic,
such that all of its class and object methods will each return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25595	25691	
==>e class is pure and deterministic, such that all of its class
and object methods will each return <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14487	14583	
==>e class is pure and deterministic, such that all of its class and
object methods will each return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	750	873	
==>);
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docume <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	750	873	
==>);
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docume <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	750	873	
==>);
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docume <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	251	367	
==>ch';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	251	367	
==>ch';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7911	8057	
==>:Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7911	8057	
==>:Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7911	8057	
==>:Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12941	13038	
==>as these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of thi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12941	13038	
==>as these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of thi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4618	4716	
==>rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4618	4716	
==>rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stri <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	474	581	
==>fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Find <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	474	581	
==>fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Find <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36907	37004	
==>e at all.  In any situation where a pair
of source relations have identical headings, for these th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41456	41553	
==>e at all.  In any situation where a pair
of source relations have identical headings, for these th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41079	41176	
==>e at all.  In any situation where a pair
of source relations have identical headings, for these th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1679	1824	
==>ammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1679	1824	
==>ammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	790	878	
==>"_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	790	878	
==>"_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	790	878	
==>"_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequo <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8575	8693	
==>recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8575	8693	
==>recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5833	5932	
==>L2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5833	5932	
==>L2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5833	5932	
==>L2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9605	9724	
==>:isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9605	9724	
==>:isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9605	9724	
==>:isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38520	38618	
==>le name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38520	38618	
==>le name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2695	2824	
==>@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, I <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2695	2824	
==>@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2596	2714	
==>n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2596	2714	
==>n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2596	2714	
==>n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	234	350	
==>l5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

m <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	234	350	
==>l5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4458	4571	
==>)\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4458	4571	
==>)\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1088	1176	
==>en("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10468	10635	
==>$slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10468	10635	
==>$slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10468	10635	
==>$slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3015	3171	
==>st(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self->get_test_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5964	6070	
==>d => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => Pugs::Compiler::Regex->comp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4541	4663	
==>ure}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4553	4675	
==>ure}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6681	6789	
==>arn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6681	6789	
==>arn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6681	6789	
==>arn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, und <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	915	1045	
==>ce.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	915	1045	
==>ce.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	915	1045	
==>ce.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	658	784	
==>match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dum <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	651	777	
==>match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dum <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	59	306	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant valu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	59	306	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16302	16404	
==>_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16302	16404	
==>_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16302	16404	
==>_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3016	3132	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3016	3132	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3016	3132	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7871	7971	
==>l 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7871	7971	
==>l 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12519	12648	
==>~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12519	12648	
==>~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2746	2845	
==>class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2746	2845	
==>class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2746	2845	
==>class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15224	15350	
==>v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15503	15629	
==>v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         rul <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10851	10946	
==>C> and turns it into something suitable
for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB { <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2235	2327	
==>g/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command li <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2235	2327	
==>g/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10813	10985	
==>se 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10813	10985	
==>se 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10813	10985	
==>se 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend}, <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	488	651	
==>t => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.paren <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	488	651	
==>t => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.paren <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6311	6409	
==>Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5441	5539	
==>Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6311	6409	
==>Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5441	5539	
==>Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	119	214	
==>").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals::ins <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	481	589	
==>ontent>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text no <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	481	589	
==>ontent>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2375	2470	
==>fix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2375	2470	
==>fix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2375	2470	
==>fix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6994	7168	
==>=> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6994	7168	
==>=> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6994	7168	
==>=> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	270	369	
==>instead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors shou <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	270	369	
==>instead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors shou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2726	2836	
==>urn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$conten <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1362	1472	
==>Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2726	2836	
==>urn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$conten <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1362	1472	
==>Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1362	1472	
==>Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11009	11112	
==>ams->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11009	11112	
==>ams->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11009	11112	
==>ams->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10098	10195	
==>gument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10098	10195	
==>gument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17506	17648	
==>( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20983	21125	
==>( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20570	20712	
==>( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26727	26856	
==>ture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27006	27135	
==>ture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	456	564	
==>ired => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	940	1048	
==>ired => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	576	680	
==>>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	576	680	
==>>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	576	680	
==>>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10520	10642	
==>aModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10520	10642	
==>aModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10520	10642	
==>aModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2107	2205	
==>ty => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2107	2205	
==>ty => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43184	43404	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46528	46748	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36434	36640	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37969	38175	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37506	37605	
==>on.  Here's the new class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Pa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11273	11450	
==>age?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.pu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11273	11450	
==>age?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.pu <==
5	/Users/nnunley/pugs/inc/Module/Install/Base.pm	444	561	
==>method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_top-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12565	12661	
==>eader( $field, ... )

This function removes the header fields with the specified names.

The head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12565	12661	
==>eader( $field, ... )

This function removes the header fields with the specified names.

The head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1904	2004	
==>n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1904	2004	
==>n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1904	2004	
==>n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1219	1343	
==>else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1219	1343	
==>else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1219	1343	
==>else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6339	6439	
==>ar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11185	11285	
==>ar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8761	8883	
==>= $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  package Regexp::Parser::quant;

  # Needed for regexp_try.pl, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3477	3565	
==>------------------------------------------
## BOOTSTRAPPING COMPLETE
## ----------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3500	3588	
==>-------------------
## BOOTSTRAPPING COMPLETE
## ---------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5379	5467	
==>------------------------------------------
## BOOTSTRAPPING COMPLETE
## ----------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5402	5490	
==>-------------------
## BOOTSTRAPPING COMPLETE
## ---------------------------------------- <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	1194	1320	
==>f += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s (@scr) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6967	7069	
==>imitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6967	7069	
==>imitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6967	7069	
==>imitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	857	945	
==>en("term:\\D", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1094	1211	
==>if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            bles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1094	1211	
==>if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            bles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1094	1211	
==>if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            bles <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1114	1229	
==>uire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pass <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1081	1196	
==>uire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pass <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12438	12542	
==>tion to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12438	12542	
==>tion to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18410	18506	
==>I SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18410	18506	
==>I SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18410	18506	
==>I SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	18982	19131	
==>he header, when there is no regex
                # or if the regex failed
                unless ($found) {
                  push @bad_regex, { rege <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3553	3652	
==>$_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although th <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3553	3652	
==>$_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although th <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1545	1641	
==>can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new la <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1545	1641	
==>can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new la <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8046	8183	
==>ass 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13640	13777	
==>ass 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8046	8183	
==>ass 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13634	13771	
==>ass 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cm <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2881	3008	
==>exist yet, this is a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $obj->m <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3699	3829	
==>};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $name =~ s/::/-/g;
        die "Error in name(): ' <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6324	6437	
==>or, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5397	5510	
==>or, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier( <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6324	6437	
==>or, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5397	5510	
==>or, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier( <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	6618	6758	
==>:

    name        Name of the test which failed
    estat       Script's exit value
    wstat       Script's wait status
    max         Num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8697	8793	
==>perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	430	526	
==>perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8697	8793	
==>perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8697	8793	
==>perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1 <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7476	7572	
==>' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' dire <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	48	144	
==>Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevi <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	49	145	
==>Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevi <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	49	145	
==>Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7476	7572	
==>' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' dire <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8	114	
==>in/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8	114	
==>in/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8	114	
==>in/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3802	3899	
==>ur data.  Finally, call the finish() method to return any leftover data 
and clear the cipher obje <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3802	3899	
==>ur data.  Finally, call the finish() method to return any leftover data 
and clear the cipher obje <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1439	1533	
==>quire ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	508	598	
==>actical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair" <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1359	1449	
==>quire ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	508	598	
==>actical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	508	598	
==>actical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15984	16076	
==>method creates and returns a new Rosetta::Model::Node object, that
lives in the Document obje <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15984	16076	
==>method creates and returns a new Rosetta::Model::Node object, that
lives in the Document obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3056	3144	
==>);

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3056	3144	
==>);

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3056	3144	
==>);

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13255	13357	
==>$xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13255	13357	
==>$xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13255	13357	
==>$xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30656	30752	
==>ole module must represent a single
language.

The name of each Template module has two parts, the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30656	30752	
==>ole module must represent a single
language.

The name of each Template module has two parts, the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1472	1569	
==>js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1472	1569	
==>js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1472	1569	
==>js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15139	15235	
==>rary type. The function signatures will likely look something
like this:

  multi sub is_deeply ( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15197	15293	
==>rary type. The function signatures will likely look something
like this:

  multi sub is_deeply ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3410	3520	
==>->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3410	3520	
==>->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3410	3520	
==>->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16555	16654	
==>ray context.  If there is no such header field, then the empty
string is returned.  This makes it sa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16555	16654	
==>ray context.  If there is no such header field, then the empty
string is returned.  This makes it sa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1864	1960	
==>universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	834	930	
==>FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math:: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1864	1960	
==>universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	834	930	
==>FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	834	930	
==>FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math:: <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	44	150	
==>*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_path <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5311	5417	
==>:SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	44	150	
==>*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_path <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5311	5417	
==>:SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5311	5417	
==>:SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7089	7192	
==>TABLE_TERNARY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  push @o <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12909	13006	
==>when iterating through the span range, the unit is added to the current value to get the next valu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12909	13006	
==>when iterating through the span range, the unit is added to the current value to get the next valu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	885	976	
==>h

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	885	976	
==>h

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

= <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4505	4639	
==>date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Mus <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4505	4639	
==>date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Mus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1955	2057	
==>nstruct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stev <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1955	2057	
==>nstruct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stev <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1955	2057	
==>nstruct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8190	8344	
==>{$n->{param}} 
            ) .
            ')';
    }

    return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1608	1748	
==>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1608	1748	
==>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1608	1748	
==>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4581	4688	
==>ile12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@tt) { C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	333	436	
==>::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	333	436	
==>::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	333	436	
==>::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23064	23162	
==>ex with a variable in it, that '$' will be interpreted as
an anchor. If you want to include variabl <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4869	4964	
==>>.assuming(offset(0) :length(1));

 multi Array::shift ( --> Scalar ) {
   Array::shift CALLER:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5306	5407	
==>($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5306	5407	
==>($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5306	5407	
==>($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $sup <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3236	3336	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $spa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3236	3336	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $spa <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5561	5691	
==>n < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4061	4191	
==>n < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1047	1154	
==>ng Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1047	1154	
==>ng Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1047	1154	
==>ng Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15877	15980	
==>{ $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15877	15980	
==>{ $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15877	15980	
==>{ $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULT <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3335	3433	
==>we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3335	3433	
==>we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	869	1072	
==>lse {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle pr <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	869	1072	
==>lse {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	979	1083	
==>JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	979	1083	
==>JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	979	1083	
==>JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the rea <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	17	114	
==>e::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocate <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	17	114	
==>e::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocate <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4080	4195	
==>has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4080	4195	
==>has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1416	1531	
==>>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1416	1531	
==>>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compil <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15560	15660	
==>$node = Thunk->new($self->reduce($thunk->val));
    $self->leave_scope;

    return $node;
}

sub red <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20354	20468	
==>eturn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20633	20747	
==>eturn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5474	5581	
==>ine", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5474	5581	
==>ine", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5474	5581	
==>ine", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5936	6106	
==>ch[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5936	6106	
==>ch[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5936	6106	
==>ch[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	142	239	
==>elect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is e <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	142	239	
==>elect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2153	2255	
==>name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2153	2255	
==>name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2153	2255	
==>name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    r <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	580	672	
==>tore()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Per <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	580	672	
==>tore()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Per <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10018	10127	
==>cular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7958	8067	
==>cular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10018	10127	
==>cular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7958	8067	
==>cular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16720	16809	
==>rClassOps

Implements character class operations like union, intersection, and
subtraction <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1896	2027	
==>sif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1896	2027	
==>sif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($ba <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2605	2720	
==>sif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2605	2720	
==>sif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($ba <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23993	24088	
==>f an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation: <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13400	13550	
==>ubstr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3557	3691	
==>ubstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3557	3691	
==>ubstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3557	3691	
==>ubstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	248	364	
==>t ( sort { $a->{package} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$struct->{packa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6438	6543	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6438	6543	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6438	6543	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15618	15741	
==>tries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15618	15741	
==>tries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $! <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1217	1319	
==>.pm.yml";
    unlink "blib6/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18283	18377	
==>he source module is preprocessed to hide heredocs, since the content
inside heredocs can possib <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18283	18377	
==>he source module is preprocessed to hide heredocs, since the content
inside heredocs can possib <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	482	608	
==>TORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	482	608	
==>TORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	482	608	
==>TORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15553	15647	
==>es quantifiers as objects, and makes 'min' and 'max' attributes of
other objects themselves.

= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4275	4368	
==>hitespace is significant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3983	4091	
==>: '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3983	4091	
==>: '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3983	4091	
==>: '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lva <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8008	8105	
==>Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir return <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8008	8105	
==>Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10495	10644	
==>$klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10495	10644	
==>$klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15496	15598	
==>nf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15496	15598	
==>nf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15496	15598	
==>nf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return ' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2034	2206	
==>nd,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2034	2206	
==>nd,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	757	874	
==>pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old ver <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	757	874	
==>pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old ver <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	711	813	
==>nt::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	711	813	
==>nt::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	711	813	
==>nt::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	922	1018	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	922	1018	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	922	1018	
==>IL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37223	37318	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string) and ch <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37223	37318	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string) and ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1563	1681	
==>angle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1563	1681	
==>angle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1563	1681	
==>angle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	312	510	
==>=> q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $() ,}
            }
    ) );
    __PACKAGE__->re <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6206	6303	
==>Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5336	5433	
==>Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6206	6303	
==>Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5336	5433	
==>Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5153	5307	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5153	5307	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5153	5307	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3956	4061	
==>pile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4173	4278	
==>pile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19698	19793	
==>RC> automatically tries to use slight variations of the nickname in the
login phase (for example <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19698	19793	
==>RC> automatically tries to use slight variations of the nickname in the
login phase (for example <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6468	6562	
==>p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6468	6562	
==>p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6468	6562	
==>p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MUL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1339	1456	
==>cal $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1339	1456	
==>cal $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1339	1456	
==>cal $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24437	24532	
==>t>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside fro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24437	24532	
==>t>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside fro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10133	10291	
==>ments";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10133	10291	
==>ments";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10133	10291	
==>ments";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4100	4183	
==>setta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4100	4183	
==>setta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosett <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	128	253	
==>ay $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() { <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	128	253	
==>ay $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20323	20434	
==>] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20323	20434	
==>] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20323	20434	
==>] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2407	2510	
==>/g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2407	2510	
==>/g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2407	2510	
==>/g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3936	4045	
==>change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3936	4045	
==>change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3936	4045	
==>change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6639	6740	
==>u can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6639	6740	
==>u can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24685	24914	
==>es')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->new($ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	110	237	
==>{
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	110	237	
==>{
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffe <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1286	1397	
==>am<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1.. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1286	1397	
==>am<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1.. <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1983	2130	
==>n;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    my %hash = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35737	35835	
==>y: close

Types: close1, close2 ... closeN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5394	5490	
==>ng the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5394	5490	
==>ng the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5394	5490	
==>ng the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a st <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3310	3459	
==>gather {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    default { take <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1068	1188	
==>E, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      pr <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23929	24037	
==>ule uriCharacter {  # see 15.1.3
      <uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	20	131	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	20	131	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	20	131	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pV <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	800	902	
==>ined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it a <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	800	902	
==>ined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	624	734	
==>s = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reve <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	624	734	
==>s = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reve <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5981	6071	
==>'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5981	6071	
==>'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2880	2970	
==>'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8577	8698	
==>ev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offs <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8577	8698	
==>ev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offs <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	657	754	
==>s Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	657	754	
==>s Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	657	754	
==>s Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1518	1710	
==>msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1518	1710	
==>msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1255	1354	
==>il, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20135	20233	
==>e core to be completely testable on its own.  It is
coded intentionally in a simple fashion so that <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20135	20233	
==>e core to be completely testable on its own.  It is
coded intentionally in a simple fashion so that <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33235	33325	
==>N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37785	37875	
==>N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Relat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1077	1201	
==>.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto(" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1080	1195	
==>.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	699	806	
==>>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	699	806	
==>>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	699	806	
==>>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LE <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21560	21654	
==>stinct from the other tuples.  All Relation
attributes may be individually addressed only by th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26112	26206	
==>stinct from the other tuples.  All Relation
attributes may be individually addressed only by th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14224	14313	
==>lasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14224	14313	
==>lasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14224	14313	
==>lasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4196	4345	
==>'$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4196	4345	
==>'$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4196	4345	
==>'$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$: <==
5	/Users/nnunley/pugs/util/func_refact.pl	2731	2850	
==>or
        sort {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4364	4470	
==>>[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11954	12066	
==>};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11954	12066	
==>};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11954	12066	
==>};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description = <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3497	3602	
==>f if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equa <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3497	3602	
==>f if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equa <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9907	10029	
==>,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7847	7969	
==>,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9907	10029	
==>,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7847	7969	
==>,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	113	210	
==>le/lib",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar::Perl6;
use stri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1762	1890	
==>e}(), } } ]
        | [ <metasyntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule named_capture {
        \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4289	4403	
==>vn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4289	4403	
==>vn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4289	4403	
==>vn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::dou <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4893	5005	
==>red") unless ref $_[0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2172	2292	
==>|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2172	2292	
==>|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1748	1857	
==>"* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1748	1857	
==>"* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1748	1857	
==>"* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run run <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	371	482	
==>uery $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keyword <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	371	482	
==>uery $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keyword <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	92	236	
==>my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	92	236	
==>my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39985	40103	
==>f => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39985	40103	
==>f => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39985	40103	
==>f => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::num <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	483	583	
==>, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUI <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	483	583	
==>, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1304	1402	
==>meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1304	1402	
==>meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1304	1402	
==>meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12988	13084	
==>o get the next value.
The unit specifier is also used internally when joining two spans, and when <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12988	13084	
==>o get the next value.
The unit specifier is also used internally when joining two spans, and when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1688	1780	
==>ass = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1688	1780	
==>ass = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1688	1780	
==>ass = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5348	5488	
==>unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5348	5488	
==>unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5348	5488	
==>unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the v <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7808	7907	
==>zy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGH <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7808	7907	
==>zy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1303	1422	
==>ods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1303	1422	
==>ods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1303	1422	
==>ods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13487	13601	
==>{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13487	13601	
==>{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@a <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	172	282	
==>c);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '& <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	172	282	
==>c);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13964	14064	
==>(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13964	14064	
==>(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13964	14064	
==>(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $x <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2809	2927	
==>=> 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # smal <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2809	2927	
==>=> 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # smal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	603	689	
==>@args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	603	689	
==>@args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	603	689	
==>@args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	978	1075	
==>al ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	978	1075	
==>al ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	978	1075	
==>al ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3817	3910	
==>ttempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appro <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3817	3910	
==>ttempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appro <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2826	2927	
==>t $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

su <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2826	2927	
==>t $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1155	1253	
==>not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1155	1253	
==>not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1155	1253	
==>not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34092	34204	
==>ay->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34092	34204	
==>ay->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34092	34204	
==>ay->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

su <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14371	14471	
==><< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This rout <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14371	14471	
==><< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This rout <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46012	46162	
==>t_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49246	49396	
==>t_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50124	50274	
==>t_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new(' <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1732	1859	
==>atfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $ <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1732	1859	
==>atfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13686	13804	
==>ib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13686	13804	
==>ib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2619	2717	
==>n ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2619	2717	
==>n ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2619	2717	
==>n ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24829	24925	
==>rs disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23593	23689	
==>rs disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24829	24925	
==>rs disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23593	23689	
==>rs disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21473	21564	
==>arser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Reg <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6816	6932	
==>te module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6816	6932	
==>te module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12809	12893	
==>e PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12809	12893	
==>e PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12809	12893	
==>e PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	817	975	
==>'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10761	10893	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11227	11359	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10755	10887	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11221	11353	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4817	4941	
==>odel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4817	4941	
==>odel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4817	4941	
==>odel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDO <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20088	20204	
==>e( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20367	20483	
==>e( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12505	12624	
==>} elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12505	12624	
==>} elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3650	3772	
==>aram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3650	3772	
==>aram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3650	3772	
==>aram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10269	10376	
==>msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value / <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10269	10376	
==>msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value / <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	441	546	
==>te - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    u <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	441	546	
==>te - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14604	14708	
==>ble} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*EN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14604	14708	
==>ble} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*EN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14604	14708	
==>ble} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8582	8681	
==>L2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8582	8681	
==>L2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8582	8681	
==>L2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inp <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1244	1338	
==>entation($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicate($node);
	warn $ <==
5	/Users/nnunley/pugs/docs/feather/~/gen.pl	385	475	
==>/script>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These users have somethin <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14515	14624	
==>@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->registered_alternatives };
    eval { DumpFi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21723	21819	
==>ver (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20604	20700	
==>ver (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21723	21819	
==>ver (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20604	20700	
==>ver (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7389	7529	
==>, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7389	7529	
==>, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7389	7529	
==>, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21471	21567	
==>gh several attributes may store values of the same class;
every Relation tuple must be distinct f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26023	26119	
==>gh several attributes may store values of the same class;
every Relation tuple must be distinct f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4288	4411	
==>Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4288	4411	
==>Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4288	4411	
==>Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10620	10730	
==>e if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpola <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10778	10888	
==>e if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpola <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	451	602	
==>ar *s = GetCommandLine();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9000	9113	
==>rns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9798	9911	
==>rns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10707	10820	
==>rns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11533	11646	
==>rns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16840	17004	
==>r => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16840	17004	
==>r => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16840	17004	
==>r => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispat <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7157	7320	
==>/\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$ava <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7621	7784	
==>/\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$ava <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4014	4126	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto( <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4310	4422	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4072	4184	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4368	4480	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto( <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11093	11187	
==>or
comparisions. C<@by> differs from C<$by> in that each criteria is
applied, in order, until a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	232	333	
==>s::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	232	333	
==>s::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6981	7080	
==>hority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authorit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6981	7080	
==>hority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authorit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6981	7080	
==>hority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authorit <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2939	3062	
==>n = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3653	3776	
==>m{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $cl <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2939	3062	
==>n = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3653	3776	
==>m{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3653	3776	
==>m{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33018	33124	
==>.

This is very sparse.  Future versions will have more complete
documentation.  For now, read the source ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3311	3411	
==>eturn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8079	8179	
==>eturn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3311	3411	
==>eturn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8079	8179	
==>eturn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return B <==
5	/Users/nnunley/pugs/util/func_refact.pl	2360	2496	
==>r $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6837	6961	
==>$start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6837	6961	
==>$start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6837	6961	
==>$start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33870	33962	
==>y: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I<anyo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2563	2660	
==><statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2563	2660	
==><statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_gramma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	529	619	
==>ect >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	529	619	
==>ect >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	529	619	
==>ect >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_insta <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	275	453	
==>),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	586	684	
==>san:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	586	684	
==>san:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	586	684	
==>san:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25595	25690	
==>flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5893	6012	
==>ay @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5893	6012	
==>ay @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5893	6012	
==>ay @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.el <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5300	5393	
==>base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5300	5393	
==>base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9011	9109	
==>c %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2660	2757	
==>IL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2660	2757	
==>IL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2660	2757	
==>IL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($sel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8714	8810	
==>c %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure obje <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3121	3246	
==>broutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            pr <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3585	3710	
==>broutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3808	3911	
==>~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3808	3911	
==>~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3808	3911	
==>~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	586	719	
==>lta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	586	719	
==>lta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7546	7653	
==>Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7546	7653	
==>Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7546	7653	
==>Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10760	10901	
==>0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10760	10901	
==>0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1481	1589	
==>al $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1481	1589	
==>al $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2935	3042	
==>al $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7363	7514	
==>'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*=' <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1028	1141	
==>ome point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1902	2015	
==>ome point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1028	1141	
==>ome point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1902	2015	
==>ome point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3050	3162	
==>explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3050	3162	
==>explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4574	4686	
==>explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2090	2197	
==>");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.tra <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2090	2197	
==>");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7848	7945	
==>L::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7848	7945	
==>L::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7848	7945	
==>L::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14912	15008	
==>ent way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programma <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14912	15008	
==>ent way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3077	3189	
==>tasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3065	3177	
==>tasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9863	9959	
==>$p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9863	9959	
==>$p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9863	9959	
==>$p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2162	2371	
==>data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2162	2371	
==>data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want t <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1303	1469	
==>$o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 u <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10020	10119	
==>o set the input, and input that
fails immediate evaluation will not be set at all.  The scope of imm <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10020	10119	
==>o set the input, and input that
fails immediate evaluation will not be set at all.  The scope of imm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1071	1192	
==>{ code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1082	1203	
==>{ code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1501	1596	
==>_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1501	1596	
==>_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1501	1596	
==>_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31697	31825	
==>et, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31697	31825	
==>et, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31697	31825	
==>et, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	974	1081	
==>, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	974	1081	
==>, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5455	5660	
==>d_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_ty <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5455	5660	
==>d_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1024	1147	
==>) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1024	1147	
==>) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1024	1147	
==>) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8550	8682	
==>heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12027	12159	
==>heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3030	3144	
==>tes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3030	3144	
==>tes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3030	3144	
==>tes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29826	30049	
==>ns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11224	11410	
==>isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11224	11410	
==>isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11224	11410	
==>isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                re <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	3508	3613	
==>g.
-}


module Pugs.Config (
    config,
    getConfig
) where

import qualified Data.Map as Map
import qu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9233	9351	
==>ctify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependen <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10710	10828	
==>ctify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3216	3323	
==>sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3216	3323	
==>sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3216	3323	
==>sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9935	10073	
==>slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9935	10073	
==>slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9935	10073	
==>slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $sl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3020	3133	
==>y $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" an <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3020	3133	
==>y $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" an <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3794	3887	
==>e, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3794	3887	
==>e, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5991	6084	
==>e, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descrip <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1344	1441	
==>>struct_equiv . " is duplicated, and has been alocated $symbol" if defined $symbol;

	my $result = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3156	3249	
==>::Annotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struct_equiv => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4237	4332	
==>ay reference, the match object returns positional
captures as match objects.

=head2 %{}

When u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4237	4332	
==>ay reference, the match object returns positional
captures as match objects.

=head2 %{}

When u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	838	932	
==>e.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all + <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	838	932	
==>e.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all + <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	838	932	
==>e.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33554	33676	
==>rray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33554	33676	
==>rray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33554	33676	
==>rray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array- <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5623	5716	
==>turn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5623	5716	
==>turn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1852	1955	
==>[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1852	1955	
==>[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1852	1955	
==>[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1517	1609	
==>lease download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1357	1449	
==>lease download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\) <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6933	7058	
==>n::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6933	7058	
==>n::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17843	17932	
==>nfix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17843	17932	
==>nfix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17843	17932	
==>nfix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16512	16625	
==>py) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) retu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16512	16625	
==>py) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) retu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17500	17605	
==>py) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) retu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17500	17605	
==>py) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) retu <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	174	270	
==>for the
# meta-model, except perhaps to express sub-types, default values,
# etc.
enum ExpType « <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1456	1567	
==>um; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1456	1567	
==>um; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1456	1567	
==>um; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9935	10031	
==>d "deferred".  The immediate validations
are performed at the moment the user tries to set the in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9935	10031	
==>d "deferred".  The immediate validations
are performed at the moment the user tries to set the in <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10441	10560	
==>[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        fo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10441	10560	
==>[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4471	4587	
==>ole, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4471	4587	
==>ole, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4471	4587	
==>ole, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'R <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15892	16076	
==>os to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15886	16070	
==>os to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6401	6503	
==>S::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6401	6503	
==>S::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6401	6503	
==>S::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3748	3858	
==>infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3748	3858	
==>infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3748	3858	
==>infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19068	19161	
==>C2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19068	19161	
==>C2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_hea <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8507	8628	
==>ks{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8507	8628	
==>ks{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16887	16989	
==>('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16887	16989	
==>('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16887	16989	
==>('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => :: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9026	9243	
==>Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - t <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9026	9243	
==>Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3045	3139	
==>0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3045	3139	
==>0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avail <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3045	3139	
==>0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avail <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9968	10092	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9968	10092	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9968	10092	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25504	25603	
==>nt a -> b x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pair->new(
			type::v <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9490	9589	
==>quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITESPACE, target, pos, last <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3454	3572	
==>the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - what <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3465	3583	
==>the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - what <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	607	701	
==>item B<$.output>

The filehandle to which to write all normal output (test results and
descript <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	607	701	
==>item B<$.output>

The filehandle to which to write all normal output (test results and
descript <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1163	1257	
==>item B<$.output>

The filehandle to which to write all normal output (test results and
descript <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4732	4840	
==>the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimiz <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4569	4674	
==>the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimiz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21300	21398	
==>1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21300	21398	
==>1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21300	21398	
==>1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2955	3064	
==>']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2955	3064	
==>']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2955	3064	
==>']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self- <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	39	134	
==>as $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	39	134	
==>as $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10661	10815	
==>->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10661	10815	
==>->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10661	10815	
==>->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6031	6148	
==>> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6031	6148	
==>> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12575	12687	
==>f}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12575	12687	
==>f}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12575	12687	
==>f}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashre <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1470	1571	
==>f ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1470	1571	
==>f ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.st <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4246	4348	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3373	3475	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4246	4348	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3373	3475	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	101	199	
==>TestBuilder->STORE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Object ],
    class_me <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4712	4850	
==>fied;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4712	4850	
==>fied;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7948	8084	
==>:SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7948	8084	
==>:SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7948	8084	
==>:SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_des <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9692	9789	
==>ned with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
fu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9692	9789	
==>ned with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
fu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3171	3261	
==>l>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_access <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3171	3261	
==>l>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_access <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3518	3608	
==>l>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_access <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8802	8915	
==>sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how);
  });

  # pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5353	5446	
==>niq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5353	5446	
==>niq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5353	5446	
==>niq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1277	1367	
==>5358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is built <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	16897	17048	
==>ntf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4869	5019	
==>);
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4869	5019	
==>);
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13428	13522	
==>is will remove all header fields.

=item $h.header_field_names

Returns the list of distinct na <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13428	13522	
==>is will remove all header fields.

=item $h.header_field_names

Returns the list of distinct na <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	308	417	
==>{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $. <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	308	417	
==>{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5225	5327	
==>ople who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5225	5327	
==>ople who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	87	188	
==>less keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	87	188	
==>less keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	87	188	
==>less keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2384	2493	
==>ibute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2384	2493	
==>ibute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2384	2493	
==>ibute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3060	3155	
==>repeatedly to encipher data.
The encipherer closure can be called with a string, and should be c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3060	3155	
==>repeatedly to encipher data.
The encipherer closure can be called with a string, and should be c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39455	39546	
==>is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Dar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5190	5281	
==>is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Dar <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39455	39546	
==>is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Dar <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5190	5281	
==>is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Dar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1717	1835	
==>er}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1717	1835	
==>er}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1717	1835	
==>er}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1829	1933	
==>ne ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1829	1933	
==>ne ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24459	24572	
==>_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20880	20993	
==>_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13902	14009	
==>::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13902	14009	
==>::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13902	14009	
==>::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3605	3701	
==>--------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5507	5603	
==>--------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1418	1513	
==>our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1418	1513	
==>our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1418	1513	
==>our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4673	4801	
==>p::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] | <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4527	4651	
==>p::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] | <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	867	957	
==>L_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopei <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	867	957	
==>L_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopei <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	867	957	
==>L_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopei <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10449	10568	
==>eason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2466	2573	
==>eason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2466	2573	
==>eason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16871	16963	
==>ity.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16871	16963	
==>ity.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2835	2947	
==>ed $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2835	2947	
==>ed $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2835	2947	
==>ed $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { ex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15400	15500	
==>is kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the da <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15400	15500	
==>is kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35780	35902	
==>> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35780	35902	
==>> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35780	35902	
==>> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class- <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1911	2013	
==>ing this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1911	2013	
==>ing this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9525	9682	
==>0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder::Test::TODO.new( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4990	5101	
==>';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4990	5101	
==>';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr( <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2033	2136	
==>ay () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (I <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2033	2136	
==>ay () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (I <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	912	1017	
==>:Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2863	2960	
==>$lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2863	2960	
==>$lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2863	2960	
==>$lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	842	935	
==>:Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		return <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28755	28849	
==>g> value set members do not match invocant
Relation attribute names, or duplicate any other val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33307	33401	
==>g> value set members do not match invocant
Relation attribute names, or duplicate any other val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1986	2087	
==>=> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is access <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1986	2087	
==>=> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is access <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1986	2087	
==>=> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is access <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2467	2593	
==>> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ] <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2467	2593	
==>> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4020	4138	
==>reshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4020	4138	
==>reshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3103	3199	
==>p_ok($p->id, '!=', $p1->id, '... got different ids');

my $old_p_id = $p->id;

$p->set_x(100);
is <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1139	1246	
==>s primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1139	1246	
==>s primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1139	1246	
==>s primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<post <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5801	5902	
==>ub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5801	5902	
==>ub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	337	447	
==>elf->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::Co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6737	6843	
==>ant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6737	6843	
==>ant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6141	6232	
==>ular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6141	6232	
==>ular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block an <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5387	5484	
==>) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$nu <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5387	5484	
==>) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$nu <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	727	846	
==>et; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $sc <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	694	813	
==>et; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $sc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	824	917	
==>' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	824	917	
==>' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	824	917	
==>' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1754	1850	
==>ludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1754	1850	
==>ludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1754	1850	
==>ludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't e <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23908	24003	
==>y :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28460	28555	
==>y :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attri <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24976	25073	
==>send all commands immediately to the server, but creates a queue, which is then
slowly sent to the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23740	23837	
==>send all commands immediately to the server, but creates a queue, which is then
slowly sent to the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24976	25073	
==>send all commands immediately to the server, but creates a queue, which is then
slowly sent to the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23740	23837	
==>send all commands immediately to the server, but creates a queue, which is then
slowly sent to the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7767	7862	
==>ELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7767	7862	
==>ELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7767	7862	
==>ELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1463	1556	
==>lexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1463	1556	
==>lexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5754	5869	
==>ckup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5754	5869	
==>ckup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5754	5869	
==>ckup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2695	2789	
==>Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2695	2789	
==>Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17900	17995	
==>t like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code c <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17900	17995	
==>t like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14253	14343	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14253	14343	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14253	14343	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1430	1530	
==>y Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1430	1530	
==>y Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increm <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1430	1530	
==>y Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increm <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12315	12409	
==>00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, yo <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12315	12409	
==>00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, yo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4688	4781	
==>roject_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.di <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8165	8258	
==>roject_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4540	4631	
==>@PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4540	4631	
==>@PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4540	4631	
==>@PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	3	107	
==>kage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	3	107	
==>kage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	113	203	
==>PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	113	203	
==>PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	113	203	
==>PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $sel <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8855	8995	
==>self->control_dir( $inst_pkg->package )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            sys <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	779	901	
==>ength; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	779	901	
==>ength; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	779	901	
==>ength; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2730	2827	
==>m not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd like to offe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2628	2724	
==>m not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd like to offe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1606	1707	
==>arnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    ope <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1606	1707	
==>arnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    ope <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1860	1956	
==>dler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1860	1956	
==>dler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $me <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1860	1956	
==>dler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11967	12072	
==>p = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11967	12072	
==>p = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11967	12072	
==>p = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5550	5653	
==>Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 C <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5358	5458	
==>Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2135	2252	
==>[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2195	2312	
==>[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5098	5201	
==>z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5098	5201	
==>z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5098	5201	
==>z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18708	18804	
==>rings to show human users.  This association would normally be
stored in a Perl file that defines <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18708	18804	
==>rings to show human users.  This association would normally be
stored in a Perl file that defines <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20234	20329	
==>guage file to the program package.  No
recompilation necessary.  This is something that end user <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20234	20329	
==>guage file to the program package.  No
recompilation necessary.  This is something that end user <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6227	6319	
==>paque_instance_attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve it <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1668	1788	
==>@LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1668	1788	
==>@LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	954	1069	
==>3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	954	1069	
==>3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	954	1069	
==>3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally <==
5	/Users/nnunley/pugs/misc/S29_round.pl	4806	4934	
==>nd floor below 0
    if $x < 0 {
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18371	18477	
==>p @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4258	4360	
==>hift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4258	4360	
==>hift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4258	4360	
==>hift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18347	18469	
==>t->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMET <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21606	21728	
==>t->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMET <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41612	41734	
==>t->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMET <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44513	44635	
==>t->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMET <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13153	13249	
==>the type of the function the arrow operator, applied to the type of the parameter (as allocated i <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11176	11293	
==>= 1
  nocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1:
    pos = find_not_ccl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1106	1215	
==>_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($c <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1086	1195	
==>_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($c <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1106	1215	
==>_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1086	1195	
==>_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($c <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2077	2195	
==>Bin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of sc <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2077	2195	
==>Bin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of sc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2499	2612	
==>es) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2499	2612	
==>es) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2499	2612	
==>es) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13147	13320	
==>1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13141	13314	
==>1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5014	5117	
==>s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5014	5117	
==>s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5014	5117	
==>s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5897	6009	
==>thod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5897	6009	
==>thod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5897	6009	
==>thod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sour <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23879	23974	
==>dled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::See <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23879	23974	
==>dled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::See <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2892	3027	
==>) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2892	3027	
==>) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2892	3027	
==>) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM- <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7782	7874	
==>C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7782	7874	
==>C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Ciph <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	555	674	
==>, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$fil <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	522	641	
==>, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3936	4033	
==>};
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3936	4033	
==>};
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3936	4033	
==>};
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5543	5710	
==>~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5543	5710	
==>~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5543	5710	
==>~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4508	4624	
==>me}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $arg <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2249	2364	
==>me}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14021	14146	
==>warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    ev <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14021	14146	
==>warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    ev <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14021	14146	
==>warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    ev <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2106	2218	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2106	2218	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	349	458	
==>wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	349	458	
==>wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	349	458	
==>wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($it <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	742	848	
==>ns!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're s <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	742	848	
==>ns!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're s <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4286	4453	
==>0} --> %v{0};

    $#v   --> @v.last_index;

    $r = \@v --> $r = @v;
    $r = \%v --> $r = %v;
    
    $r->[0]  --> $r[0];
    $r->{0}  --> $r{0};
    $r->(0)  --> $ <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2452	2578	
==>~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${re_symbol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15465	15561	
==>e_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15465	15561	
==>e_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15465	15561	
==>e_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4094	4274	
==>nst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, ins <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13156	13250	
==>able as a generic data interchange format between
Rosetta::Model and other Perl code such as pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18251	18345	
==>able as a generic data interchange
format between Rosetta::Model and other Perl code such as pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13156	13250	
==>able as a generic data interchange format between
Rosetta::Model and other Perl code such as pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18251	18345	
==>able as a generic data interchange
format between Rosetta::Model and other Perl code such as pe <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	119	224	
==>e Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	119	224	
==>e Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6817	6921	
==>0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6817	6921	
==>0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6817	6921	
==>0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17158	17305	
==>my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17158	17305	
==>my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ", <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17158	17305	
==>my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ", <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5162	5250	
==>modified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5162	5250	
==>modified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1332	1430	
==>T
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1332	1430	
==>T
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1332	1430	
==>T
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	865	953	
==>lass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	865	953	
==>lass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2394	2507	
==>ents appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <z <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2394	2507	
==>ents appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <z <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13173	13283	
==>my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13173	13283	
==>my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13173	13283	
==>my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catc <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1317	1432	
==>y $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &j <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	337	452	
==>y $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &j <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8793	8908	
==>y $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &j <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38603	38700	
==>xt and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38603	38700	
==>xt and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of an <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8593	8701	
==>urnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normaliz <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8593	8701	
==>urnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normaliz <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3693	4078	
==>etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defin <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3693	4078	
==>etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10568	10699	
==>d} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10568	10699	
==>d} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10568	10699	
==>d} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3151	3263	
==>span );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $spa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3151	3263	
==>span );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3627	3726	
==>on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3627	3726	
==>on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3627	3726	
==>on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3772	3882	
==>) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3772	3882	
==>) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4362	4472	
==>) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($s <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	314	417	
==>rl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	314	417	
==>rl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %pa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27885	27982	
==>s
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invoc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32437	32534	
==>s
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invoc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31529	31626	
==>s
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invoc <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3766	3859	
==>a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3766	3859	
==>a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2101	2219	
==>tar,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2112	2230	
==>tar,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15344	15451	
==>cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15344	15451	
==>cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15344	15451	
==>cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_ <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4786	4896	
==>lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$runcore}{$c <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4839	4945	
==>sts);
    _show_results($tot, $failedtests);

    my $ok = _all_ok($tot);

    assert(($ok xor keys %$faile <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17214	17319	
==>F);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.dif <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20691	20796	
==>F);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.dif <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20269	20374	
==>F);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	423	534	
==>{
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	423	534	
==>{
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	423	534	
==>{
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	24	126	
==>fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	24	126	
==>fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	898	1022	
==>%tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = % <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	640	764	
==>%tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = % <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	898	1022	
==>%tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = % <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	640	764	
==>%tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = % <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	68	159	
==>se qw/Blondie::Reducer Blondie::Reducer::DynamicScoping/;

use strict;
use warnings;
no warn <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1929	2072	
==>fig->repo_pool)
        ));
        $obj->index((defined $index
                    ? dir($index)
                    : $obj->root->subdir($conf <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4294	4402	
==>, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as respons <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4294	4402	
==>, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as respons <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4805	4911	
==>, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as respons <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4805	4911	
==>, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as respons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6985	7101	
==>ntexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6985	7101	
==>ntexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6985	7101	
==>ntexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub a <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12439	12532	
==>e the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12439	12532	
==>e the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6181	6322	
==>> substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0]) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6181	6322	
==>> substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0]) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2857	2948	
==>d=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2857	2948	
==>d=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2857	2948	
==>d=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1244	1595	
==>placed.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

cl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1244	1595	
==>placed.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2409	2518	
==>}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2409	2518	
==>}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2409	2518	
==>}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9643	9759	
==>herwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rec <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9643	9759	
==>herwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1936	2029	
==>intf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1936	2029	
==>intf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1936	2029	
==>intf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1829	1942	
==>sif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1829	1942	
==>sif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1829	1942	
==>sif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_d <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	808	902	
==>ect was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.ne <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	808	902	
==>ect was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.ne <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	59	166	
==>ch, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkett <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6297	6394	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (St <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8365	8462	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6297	6394	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8365	8462	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2987	3187	
==>ew( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2987	3187	
==>ew( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2987	3187	
==>ew( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14622	14724	
==>nel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14622	14724	
==>nel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	18	117	
==>::Attribute;

use Perl6::Core::Symbol;

package attribute;

use strict;
use warnings;

use Carp 'con <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21393	21475	
==>ethod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DE <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21703	21785	
==>ethod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DE <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44300	44382	
==>ethod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DE <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44610	44692	
==>ethod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10276	10397	
==>t skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $rea <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2309	2418	
==>t skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $rea <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2309	2418	
==>t skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $rea <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15027	15122	
==>ead2 Introduction

Many times during a program's operation, the program (or a package it uses)
w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15027	15122	
==>ead2 Introduction

Many times during a program's operation, the program (or a package it uses)
w <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	764	928	
==>values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	939	1076	
==>t    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    } <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4178	4315	
==>t    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    } <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	939	1076	
==>t    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    } <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4178	4315	
==>t    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15457	15588	
==>uld be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9859	9990	
==>cro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6200	6331	
==>cro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15451	15582	
==>uld be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7049	7180	
==>cro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15841	15976	
==>_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15841	15976	
==>_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15841	15976	
==>_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3909	4006	
==>.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.comp <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3909	4006	
==>.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.comp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6119	6240	
==>$path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3796	3916	
==>$path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15748	15850	
==>x) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15748	15850	
==>x) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15748	15850	
==>x) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5507	5620	
==>fix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5507	5620	
==>fix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	424	511	
==>iers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	424	511	
==>iers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	424	511	
==>iers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20907	21137	
==>O STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20907	21137	
==>O STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20907	21137	
==>O STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3445	3575	
==>Y' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3445	3575	
==>Y' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9298	9410	
==>unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9298	9410	
==>unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9298	9410	
==>unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12452	12551	
==>replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=ite <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12452	12551	
==>replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=ite <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1427	1547	
==>ail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1438	1558	
==>ail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6725	6835	
==>SX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == ( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7097	7207	
==>SX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == ( <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7396	7506	
==>SX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5828	6070	
==>"&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7590	7832	
==>"&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	421	524	
==>e result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	421	524	
==>e result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	421	524	
==>e result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1684	1918	
==>IT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4683	4781	
==>p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode manglin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4683	4781	
==>p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode manglin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4683	4781	
==>p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode manglin <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25804	25887	
==>----------------------------------------------------------------

listify(X,L) :- at <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5760	5877	
==>>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3096	3213	
==>>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3945	4062	
==>>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12117	12203	
==>$header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12117	12203	
==>$header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5510	5610	
==>ub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_man <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5510	5610	
==>ub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_man <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5510	5610	
==>ub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_man <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30634	30730	
==>le Messages but the whole module must represent a single
language.

The name of each Template mod <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30634	30730	
==>le Messages but the whole module must represent a single
language.

The name of each Template mod <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12197	12304	
==>ule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLitera <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11847	11941	
==>turns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8994	9088	
==>turns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11847	11941	
==>turns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8994	9088	
==>turns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12438	12551	
==>$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12438	12551	
==>$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12438	12551	
==>$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cro <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2147	2252	
==>my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2147	2252	
==>my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4602	4701	
==>?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
pl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4602	4701	
==>?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
pl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6126	6225	
==>?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
pl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36315	36409	
==>Fre'].  This method is used
internally by translate_message() to produce the list of Template m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36315	36409	
==>Fre'].  This method is used
internally by translate_message() to produce the list of Template m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2881	2981	
==>$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2881	2981	
==>$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2881	2981	
==>$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31018	31108	
==>identity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $pred <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35568	35658	
==>identity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $pred <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14576	14680	
==>his will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For exa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14576	14680	
==>his will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7423	7510	
==>_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7423	7510	
==>_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7423	7510	
==>_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ---------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3239	3371	
==>expected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expected;
    }
    else {
        $pass = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1123	1236	
==>},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1123	1236	
==>},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1123	1236	
==>},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    } <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	365	464	
==>dd('sid',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Sessio <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8808	8933	
==>eed status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->package )
                          ->file( $conf <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6496	6594	
==>x:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6496	6594	
==>x:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (S <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7368	7464	
==>x:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7368	7464	
==>x:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (S <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7093	7207	
==>int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix($_,$pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3227	3340	
==>if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3227	3340	
==>if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	387	497	
==>const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	387	497	
==>const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	811	928	
==>() {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	811	928	
==>() {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14573	14657	
==>'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->ti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14573	14657	
==>'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->ti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14573	14657	
==>'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->ti <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3242	3345	
==>done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3242	3345	
==>done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6264	6361	
==>perclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6264	6361	
==>perclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6264	6361	
==>perclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:sup <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10817	10926	
==>ion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10817	10926	
==>ion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10817	10926	
==>ion (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19106	19201	
==>ted to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other progr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19106	19201	
==>ted to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other progr <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1598	1731	
==>se {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($sel <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1598	1731	
==>se {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7421	7547	
==>}
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7421	7547	
==>}
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7421	7547	
==>}
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Ru <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19090	19195	
==>hod BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: set_att <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28244	28340	
==>d version of this object which is suitable
for debugging purposes (such as to test that the objec <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35600	35696	
==>d version of this object which is suitable
for debugging purposes (such as to test that the objec <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28244	28340	
==>d version of this object which is suitable
for debugging purposes (such as to test that the objec <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35600	35696	
==>d version of this object which is suitable
for debugging purposes (such as to test that the objec <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5358	5501	
==>xt unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5774	5917	
==>xt unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5370	5513	
==>xt unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5786	5929	
==>xt unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1464	1571	
==>=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<ti <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35449	35546	
==>r_names()>

This method returns all Member Names elements in this object as an array
ref.

=item C <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35449	35546	
==>r_names()>

This method returns all Member Names elements in this object as an array
ref.

=item C <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35006	35101	
==>n.  This method
degenerates into an C<intersection> if the two source headings are
identical.  T <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39556	39651	
==>n.  This method
degenerates into an C<intersection> if the two source headings are
identical.  T <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1943	2046	
==>inal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1943	2046	
==>inal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21068	21161	
==>TI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21068	21161	
==>TI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21068	21161	
==>TI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	65	182	
==>ict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_lea <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	65	182	
==>ict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_lea <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3023	3139	
==><zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3023	3139	
==><zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4806	4904	
==>failedtests) = _run_all_tests(@tests);
    _show_results($tot, $failedtests);

    my $ok = _all_ok <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22361	22484	
==>od
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname"] = "ws" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6492	6598	
==>an}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7228	7334	
==>an}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6492	6598	
==>an}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7228	7334	
==>an}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	435	537	
==>and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	446	548	
==>and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	151	247	
==>he ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	151	247	
==>he ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	151	247	
==>he ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2705	2840	
==>> $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2601	2730	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13599	13715	
==>ng, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17076	17192	
==>ng, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16438	16554	
==>ng, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7659	7762	
==>oxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7659	7762	
==>oxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7659	7762	
==>oxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6911	7011	
==>, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6911	7011	
==>, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5002	5125	
==>ribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5002	5125	
==>ribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5002	5125	
==>ribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12799	12897	
==>nite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last el <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12799	12897	
==>nite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last el <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	956	1103	
==>t_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_star <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4195	4342	
==>t_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	956	1103	
==>t_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4195	4342	
==>t_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_star <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	755	861	
==>r) and (
        (.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12105	12248	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12105	12248	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12105	12248	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $param <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5119	5243	
==>ey)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4978	5102	
==>ey)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->i <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1615	1736	
==>set => "Set", iset => "Set",         # also for now
        hash => "Hash", ihash => "Hash",     #  └── "" ──┘ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1703	1798	
==>f = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1703	1798	
==>f = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1703	1798	
==>f = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4877	4976	
==>nv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4877	4976	
==>nv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4877	4976	
==>nv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38083	38174	
==>ed value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38083	38174	
==>ed value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6269	6369	
==>o);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5399	5499	
==>o);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6269	6369	
==>o);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5399	5499	
==>o);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5061	5168	
==>a)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5061	5168	
==>a)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5061	5168	
==>a)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ( <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	535	634	
==>) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	593	692	
==>) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1523	1632	
==>nt_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1523	1632	
==>nt_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	646	746	
==>ubclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	646	746	
==>ubclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	646	746	
==>ubclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	684	833	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	695	844	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5957	6052	
==>ASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5957	6052	
==>ASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8154	8249	
==>ASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Tes <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4945	5060	
==>it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4945	5060	
==>it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14023	14124	
==>: p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB gr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14023	14124	
==>: p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB gr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14023	14124	
==>: p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5101	5198	
==>eout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5101	5198	
==>eout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5101	5198	
==>eout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	} <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2017	2177	
==>m && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8859	8980	
==>uilder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Tes <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8571	8688	
==>family => 'clump',
      type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1015	1128	
==>uilder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1015	1128	
==>uilder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13977	14084	
==>fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13977	14084	
==>fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6219	6316	
==>{
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6219	6316	
==>{
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6219	6316	
==>{
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10770	10898	
==>ke: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10770	10898	
==>ke: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rose <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4294	4403	
==>relude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4294	4403	
==>relude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4294	4403	
==>relude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26066	26162	
==>name is a machine-readable short
string; the allowed variable names you can have depend on the Me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26066	26162	
==>name is a machine-readable short
string; the allowed variable names you can have depend on the Me <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	584	690	
==>n::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pugs <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	584	690	
==>n::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2120	2213	
==>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2120	2213	
==>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2120	2213	
==>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5260	5354	
==>h>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attr <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11022	11116	
==>m B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5260	5354	
==>h>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attr <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11022	11116	
==>m B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7457	7551	
==>h>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6517	6614	
==>N_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callcha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6517	6614	
==>N_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callcha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6517	6614	
==>N_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callcha <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21307	21392	
==>tE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<g <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21307	21392	
==>tE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7454	7609	
==>h( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $dif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7454	7609	
==>h( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $dif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7454	7609	
==>h( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $dif <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15766	15860	
==>Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15766	15860	
==>Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1472	1578	
==>X ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1472	1578	
==>X ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1472	1578	
==>X ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILT <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1691	1788	
==>three node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1623	1717	
==>three node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided t <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4456	4571	
==>> &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4456	4571	
==>> &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3021	3119	
==>2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3021	3119	
==>2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3021	3119	
==>2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no lo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3010	3230	
==>y;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3010	3230	
==>y;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1856	1967	
==>SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1856	1967	
==>SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1856	1967	
==>SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13292	13408	
==>ed anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPAT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13292	13408	
==>ed anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPAT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13292	13408	
==>ed anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPAT <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2190	2285	
==>C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2190	2285	
==>C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8318	8419	
==>d to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pack <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8318	8419	
==>d to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1150	1249	
==>$self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1150	1249	
==>$self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1150	1249	
==>$self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->f <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4513	4625	
==>000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7844	7948	
==>et $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6974	7078	
==>et $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7844	7948	
==>et $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6974	7078	
==>et $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1633	1774	
==>n->{num} 
        if exists $n->{num};
        
    return _mangle_var( $n->{scalar} )
        if exists $n->{scalar};
        
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5444	5570	
==>);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**10 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	178	279	
==>:Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	178	279	
==>:Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	178	279	
==>:Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1757	1880	
==>)'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1757	1880	
==>)'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6931	7040	
==>= map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6931	7040	
==>= map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6931	7040	
==>= map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1022	1149	
==>childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1022	1149	
==>childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1022	1149	
==>childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9342	9432	
==>he C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9342	9432	
==>he C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23118	23214	
==>lech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel na <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21927	22023	
==>lech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel na <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23118	23214	
==>lech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel na <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21927	22023	
==>lech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel na <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1241	1331	
==>code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	962	1068	
==>nore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	962	1068	
==>nore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	962	1068	
==>nore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7764	7859	
==>proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method author <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7764	7859	
==>proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method author <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7408	7514	
==>g_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7408	7514	
==>g_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6714	6814	
==>to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6714	6814	
==>to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6714	6814	
==>to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2891	3106	
==>ar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3138	3353	
==>ar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	914	1028	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	914	1028	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	914	1028	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4839	4966	
==>...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    L <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4839	4966	
==>...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    L <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4839	4966	
==>...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    L <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16143	16232	
==>.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

D <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16201	16290	
==>.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

D <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4147	4337	
==>if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4147	4337	
==>if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9530	9617	
==>gs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9530	9617	
==>gs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9530	9617	
==>gs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12900	13027	
==>= $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $br <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6375	6502	
==>= $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $br <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1568	1682	
==>{undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1568	1682	
==>{undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1568	1682	
==>{undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4713	4852	
==>$m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4713	4852	
==>$m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4713	4852	
==>$m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       } <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	264	396	
==>ax
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proce <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	264	396	
==>ax
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proce <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2102	2228	
==>m<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2102	2228	
==>m<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7745	7843	
==>each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7745	7843	
==>each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `s <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2924	3019	
==>->{names}{$node->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::Util::b <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	397	514	
==>r ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?OS eq any <M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20275	20379	
==>rn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mult <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20275	20379	
==>rn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mult <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20275	20379	
==>rn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mult <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3160	3259	
==>t_expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10303	10459	
==>rom_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10303	10459	
==>rom_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10303	10459	
==>rom_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15036	15133	
==>$password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to : <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15036	15133	
==>$password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8675	8833	
==>eturn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8675	8833	
==>eturn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8675	8833	
==>eturn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => - <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2923	3026	
==>depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$tod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2981	3084	
==>depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$tod <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12000	12182	
==>product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15477	15659	
==>product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14812	14994	
==>product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16958	17056	
==>ence object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16958	17056	
==>ence object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2944	3144	
==>) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2944	3144	
==>) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2944	3144	
==>) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18278	18376	
==>me figuring out the
best way to deal with it.  But for displaying to users, easy messages are
bette <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18278	18376	
==>me figuring out the
best way to deal with it.  But for displaying to users, easy messages are
bette <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9782	9904	
==>-------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9782	9904	
==>-------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9782	9904	
==>-------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implemen <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18877	18974	
==>is misspelling in your programs and still send the right
thing on the wire.

When setting the refe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18877	18974	
==>is misspelling in your programs and still send the right
thing on the wire.

When setting the refe <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3534	3729	
==>fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>") <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3534	3729	
==>fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>") <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12600	12705	
==>t_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12600	12705	
==>t_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12600	12705	
==>t_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11722	11819	
==>s which does Role too. So this means that all classes
and roles can be polymorphic to one another. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11722	11819	
==>s which does Role too. So this means that all classes
and roles can be polymorphic to one another. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11722	11819	
==>s which does Role too. So this means that all classes
and roles can be polymorphic to one another. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23832	23926	
==>ne.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23832	23926	
==>ne.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8237	8366	
==>st literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8237	8366	
==>st literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8237	8366	
==>st literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5433	5530	
==>ailure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHOR <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5433	5530	
==>ailure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHOR <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8256	8470	
==>dency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX sh <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8720	8934	
==>dency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13382	13482	
==>lass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13382	13482	
==>lass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13382	13482	
==>lass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2374	2510	
==>e +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2374	2510	
==>e +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2374	2510	
==>e +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5181	5278	
==>le (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5001	5095	
==>le (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	830	1033	
==>}
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = so <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	830	1033	
==>}
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = so <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	830	1033	
==>}
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = so <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3161	3267	
==>h, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => s <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3161	3267	
==>h, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3787	3904	
==>, $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3787	3904	
==>, $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3787	3904	
==>, $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invoca <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3470	3579	
==>0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3470	3579	
==>0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]. <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	566	704	
==>age_version
            list_dependencies  dependency_satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8974	9097	
==>\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $d <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	708	831	
==>\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8974	9097	
==>\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8974	9097	
==>\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4436	4572	
==>eturn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4629	4765	
==>eturn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8818	8939	
==>ts
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	978	1091	
==>ts
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	978	1091	
==>ts
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3557	3705	
==>ildren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3557	3705	
==>ildren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2087	2223	
==>vel) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2087	2223	
==>vel) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2087	2223	
==>vel) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9648	9779	
==>a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9648	9779	
==>a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9648	9779	
==>a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	857	986	
==>nst.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	857	986	
==>nst.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13211	13314	
==>a( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13211	13314	
==>a( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13211	13314	
==>a( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSE <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4109	4207	
==>fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4109	4207	
==>fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4546	4666	
==>t( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select :: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8023	8143	
==>t( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select :: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7016	7136	
==>t( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6530	6620	
==>foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11588	11678	
==>foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3374	3488	
==>interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3591	3705	
==>interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2885	2978	
==>is node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2885	2978	
==>is node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2885	2978	
==>is node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11741	11957	
==>date);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11741	11957	
==>date);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11741	11957	
==>date);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                retur <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4845	4935	
==>new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4845	4935	
==>new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3245	3360	
==>$<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimpleme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3429	3544	
==>$<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimpleme <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19300	19399	
==>cal tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23852	23951	
==>cal tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22368	22467	
==>cal tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tupl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4419	4554	
==>"~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4419	4554	
==>"~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4419	4554	
==>"~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "meth <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1402	1513	
==>s
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1402	1513	
==>s
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4209	4324	
==>te_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( ge <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5058	5173	
==>te_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( ge <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1141	1244	
==>, this is not yet 
    # populated with anything, so ....
    my $supers = $class->get_attr(symbol->new( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1136	1230	
==>);
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1136	1230	
==>);
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9438	9572	
==>/^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code di <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9438	9572	
==>/^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4069	4174	
==>ou can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4069	4174	
==>ou can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4069	4174	
==>ou can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that y <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	561	724	
==>my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16046	16141	
==>.  In some
situations, a shared program component may raise such a condition, and one
applicatio <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16046	16141	
==>.  In some
situations, a shared program component may raise such a condition, and one
applicatio <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9538	9632	
==>el does not declare any subroutines or export such.

The usual way that Rosetta::Model indicate <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9538	9632	
==>el does not declare any subroutines or export such.

The usual way that Rosetta::Model indicate <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1827	1977	
==>n;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<ob <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1827	1977	
==>n;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1051	1164	
==>r ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1051	1164	
==>r ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1051	1164	
==>r ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = :: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4915	5013	
==>nish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clears <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	971	1069	
==>w actually inherits a number of new attributes from various sources
# and we need to now create the <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4915	5013	
==>nish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clears <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	971	1069	
==>w actually inherits a number of new attributes from various sources
# and we need to now create the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	971	1069	
==>w actually inherits a number of new attributes from various sources
# and we need to now create the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7497	7631	
==>ods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7497	7631	
==>ods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7497	7631	
==>ods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21867	21957	
==>e file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21867	21957	
==>e file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13163	13275	
==>y ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13163	13275	
==>y ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13163	13275	
==>y ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { % <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	400	493	
==>f(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	400	493	
==>f(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	176	287	
==>igure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	176	287	
==>igure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3060	3155	
==>_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3060	3155	
==>_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3060	3155	
==>_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	15813	15964	
==>.new( pairs zip @ids, @tm );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2778	2901	
==>m } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7872	7995	
==>m } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2778	2901	
==>m } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7872	7995	
==>m } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4081	4233	
==>ol');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4081	4233	
==>ol');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12597	12740	
==>rint \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8871	9014	
==>rint \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9706	9849	
==>rint \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9567	9730	
==>-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which co <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8432	8539	
==>t ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks lik <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8490	8597	
==>t ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks lik <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	267	357	
==>thods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	267	357	
==>thods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3913	4024	
==>urn $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3913	4024	
==>urn $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	247	349	
==>6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	247	349	
==>6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	247	349	
==>6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this mak <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6691	6851	
==>?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:ter <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6748	6908	
==>?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:ter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5039	5157	
==>ke_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a ta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5039	5157	
==>ke_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a ta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5039	5157	
==>ke_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7450	7603	
==>return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7450	7603	
==>return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7450	7603	
==>return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9954	10141	
==>= @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11431	11618	
==>= @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2203	2314	
==>\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2203	2314	
==>\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2203	2314	
==>\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13419	13524	
==>e =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13419	13524	
==>e =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4921	5021	
==>arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4921	5021	
==>arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6445	6545	
==>arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10393	10505	
==>e_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');
    
## does Bar get Object's si <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	225	331	
==>ourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval ' <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	225	331	
==>ourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval ' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	194	296	
==>ode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
mu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	194	296	
==>ode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
mu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2814	2933	
==>',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, d <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2814	2933	
==>',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12750	12857	
==>);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12750	12857	
==>);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12750	12857	
==>);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6087	6207	
==>f (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $bas <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6087	6207	
==>f (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $bas <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7000	7106	
==>th($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_vo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7000	7106	
==>th($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_vo <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	746	844	
==>to "ok, this looks doable".  So yes, the code is
an utter mess.

The project objectives are nominal <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	171	280	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($clas <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	173	282	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($clas <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	186	295	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($clas <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	163	272	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($clas <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	167	276	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($clas <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3646	3755	
==>being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.key <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7123	7232	
==>being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.key <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6080	6189	
==>being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.key <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9554	9651	
==>conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will ins <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9554	9651	
==>conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will ins <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5112	5245	
==>e   (Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   L <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8055	8146	
==>nion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7185	7276	
==>nion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8055	8146	
==>nion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7185	7276	
==>nion(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4089	4189	
==>embers;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.in <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4089	4189	
==>embers;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	412	510	
==>FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	412	510	
==>FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	412	510	
==>FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6684	6792	
==>.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6684	6792	
==>.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6684	6792	
==>.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6763	6863	
==>crypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6763	6863	
==>crypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	229	329	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	229	329	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	229	329	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssi <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	82	178	
==>ect attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	82	178	
==>ect attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5217	5344	
==>eturn $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            whil <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13120	13241	
==>pan of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13120	13241	
==>pan of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a spa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2115	2214	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::Ke <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2115	2214	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::Ke <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31148	31243	
==>,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Fo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31148	31243	
==>,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1351	1443	
==>::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1351	1443	
==>::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1351	1443	
==>::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	421	622	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	421	622	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13096	13199	
==>ormal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13096	13199	
==>ormal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13096	13199	
==>ormal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->( <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7503	7611	
==>" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running un <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7561	7669	
==>" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1353	1455	
==>tion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1353	1455	
==>tion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1353	1455	
==>tion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1930	2055	
==>s to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1930	2055	
==>s to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1930	2055	
==>s to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19005	19102	
==>an support a complete SQL emulation layer on top of it, so that your
legacy applications can be mi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19005	19102	
==>an support a complete SQL emulation layer on top of it, so that your
legacy applications can be mi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	168	296	
==>ument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_elemen <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	168	296	
==>ument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_elemen <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1832	1936	
==>();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1832	1936	
==>();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1832	1936	
==>();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7659	7793	
==>e::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7659	7793	
==>e::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7659	7793	
==>e::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6351	6453	
==>ple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6351	6453	
==>ple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $en <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6237	6388	
==>st malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6237	6388	
==>st malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6237	6388	
==>st malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1746	1842	
==>file needed by this module.

You may then resume the installation process described in README.

- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1586	1682	
==>file needed by this module.

You may then resume the installation process described in README.

- <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	281	399	
==>ts is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	281	399	
==>ts is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	281	399	
==>ts is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	281	399	
==>ts is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	452	555	
==>y ($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21630	21803	
==>alue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21630	21803	
==>alue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21630	21803	
==>alue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scala <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4324	4461	
==>!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $f <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4324	4461	
==>!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3052	3215	
==>ype eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3052	3215	
==>ype eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3052	3215	
==>ype eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	570	678	
==>nvocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' k <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	570	678	
==>nvocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' k <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2308	2438	
==>$n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2308	2438	
==>$n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2750	2847	
==>methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2750	2847	
==>methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2750	2847	
==>methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7659	7841	
==>->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7659	7841	
==>->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7659	7841	
==>->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2443	2550	
==>k?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2443	2550	
==>k?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4072	4227	
==>tore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4072	4227	
==>tore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4072	4227	
==>tore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# S <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8906	9047	
==>/ 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8906	9047	
==>/ 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8274	8523	
==>} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract synt <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8274	8523	
==>} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract synt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3658	3759	
==>";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3658	3759	
==>";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3658	3759	
==>";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5178	5339	
==>ffset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @bo <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5178	5339	
==>ffset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @bo <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	57	176	
==>asename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    proto <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	62	181	
==>asename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    proto <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	62	181	
==>asename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    proto <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	742	857	
==>an = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep length <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	851	958	
==>{ a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	851	958	
==>{ a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the elem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	851	958	
==>{ a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the elem <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8089	8184	
==>nstalled.  This caches its result,
any further calls to ghc_pkg This method expects to
be called <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	178	286	
==>t{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]";

# Hash Referenz:
say "$test{a}";   # print <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3965	4070	
==>$target, $from, 1) =~ /</ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	125	225	
==>oop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	125	225	
==>oop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	125	225	
==>oop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5269	5446	
==>al to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stac <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5269	5446	
==>al to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2469	2596	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2469	2596	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2469	2596	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11697	11831	
==>sage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2180	2311	
==>sage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8952	9083	
==>sage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2180	2311	
==>sage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8952	9083	
==>sage 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	110	243	
==>umper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	152	285	
==>umper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	110	243	
==>umper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	152	285	
==>umper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     = <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29311	29442	
==>TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #defin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8162	8286	
==>ld and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8162	8286	
==>ld and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14506	14628	
==>tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14506	14628	
==>tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14506	14628	
==>tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8961	9062	
==>hName($^X) if $self->{_is_win32};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_sw <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2243	2335	
==>l 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2243	2335	
==>l 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1470	1560	
==>l 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3331	3421	
==>l 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7377	7536	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7377	7536	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7377	7536	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22932	23024	
==>is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22932	23024	
==>is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4950	5073	
==>UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a uni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4950	5073	
==>UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a uni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4950	5073	
==>UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a uni <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2792	2903	
==>is_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2792	2903	
==>is_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13141	13245	
==>if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.la <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13141	13245	
==>if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.la <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4177	4278	
==>"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4177	4278	
==>"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4177	4278	
==>"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  ret <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6146	6247	
==>ing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6204	6305	
==>ing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3631	3730	
==>es which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3631	3730	
==>es which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5828	5927	
==>es which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1103	1217	
==>nsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1103	1217	
==>nsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29674	29769	
==>uple-valued attribute are the same as those of another,
or are the same as the unaffected invoca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34226	34321	
==>uple-valued attribute are the same as those of another,
or are the same as the unaffected invoca <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33390	33485	
==>uple-valued attribute are the same as those of another,
or are the same as the unaffected invoca <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6605	6705	
==>find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 ! <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9739	9839	
==>find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 ! <==
5	/Users/nnunley/pugs/util/package-osx.pl	7083	7180	
==>man3/Perl6::Perl5::Docfinder.3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr/local/man/ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21422	21515	
==>tive relational database engines with minimal effort.

This might seem strange to somebody who <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21422	21515	
==>tive relational database engines with minimal effort.

This might seem strange to somebody who <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2015	2174	
==>f.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tru <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2394	2553	
==>f.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tru <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2015	2174	
==>f.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tru <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2394	2553	
==>f.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::Tru <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8069	8155	
==>, p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L])  --> "m", p5_modifier_spec_po <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13791	13888	
==>nction to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13849	13946	
==>nction to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1697	1788	
==>_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1697	1788	
==>_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1697	1788	
==>_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2924	3038	
==>ass != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2924	3038	
==>ass != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2924	3038	
==>ass != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCla <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7165	7278	
==>sion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10642	10755	
==>sion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10390	10504	
==>new(
			type::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::va <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13945	14039	
==>erloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10172	10266	
==>erloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13945	14039	
==>erloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10172	10266	
==>erloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugw <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17398	17599	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23364	23565	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17677	17878	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23643	23844	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	646	738	
==>UM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? inco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10529	10636	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10529	10636	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10529	10636	
==>_('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2734	2836	
==>hod assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2734	2836	
==>hod assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1286	1398	
==>t in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1633	1742	
==>t in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1240	1349	
==>t in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1633	1742	
==>t in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless r <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5283	5381	
==>y $list = PIL::PIL1CPerl5::NodesList::get_name_rep_type_pairs_list();
    my $code = "";
    for (@ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	944	1042	
==>ll newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagno <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	944	1042	
==>ll newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagno <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1500	1598	
==>ll newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagno <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13295	13389	
==>$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13295	13389	
==>$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	813	913	
==>less->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	813	913	
==>less->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	813	913	
==>less->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1343	1437	
==>epresentations of @header_order.  This is used
# for sorting and case matching.
our %header_ord <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1343	1437	
==>epresentations of @header_order.  This is used
# for sorting and case matching.
our %header_ord <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12902	13009	
==>n::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12902	13009	
==>n::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12902	13009	
==>n::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	689	790	
==>ngify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id() <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	689	790	
==>ngify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id() <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21445	21591	
==>'&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$me <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44352	44498	
==>'&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$me <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1019	1131	
==>rimitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! Pe <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	949	1048	
==>SA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($verbose $switches);

$Verbose  = $EN <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23531	23620	
==>_n(0,Replace,[_|T],[Replace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1837	1948	
==>y ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1837	1948	
==>y ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1837	1948	
==>y ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12071	12175	
==>ETH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12071	12175	
==>ETH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $m <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3300	3420	
==>atdir( $meta_dir, $config->meta_file ) );
            
            my %avail = map { $_->{package} => $_ } LoadFile( $Ava <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3505	3621	
==>und = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1816	1931	
==>und = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2353	2468	
==>und = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2915	3030	
==>und = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1098	1214	
==>blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1098	1214	
==>blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1098	1214	
==>blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18676	18787	
==>llowed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18676	18787	
==>llowed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10- <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15540	15660	
==>oncat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 + 1
    goto end
  err_close:
    p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	488	577	
==>("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $lengt <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1101	1190	
==>("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $lengt <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	488	577	
==>("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $lengt <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1101	1190	
==>("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $lengt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6216	6418	
==>_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6216	6418	
==>_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6216	6418	
==>_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	195	296	
==>ntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\% <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	195	296	
==>ntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\% <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1025	1128	
==>as Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1025	1128	
==>as Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35056	35153	
==>> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39606	39703	
==>> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39148	39245	
==>> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C< <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1853	1977	
==>e) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) {
		++$col <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3776	3884	
==>PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  , <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3776	3884	
==>PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  , <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	626	734	
==>PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  , <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16308	16399	
==>nd: generic_in($.then) = { generic($.if) }
cond: generic_in($.else) = { generic($.then) }
co <==
5	/Users/nnunley/pugs/util/drift.pl	1438	1544	
==>./}; # Hack to fix includes (It's stupid!)
    print OUT $_;
}
print OUT @scary_header;
my $module;
while ( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6158	6254	
==>roper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prope <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5288	5384	
==>roper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6158	6254	
==>roper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5288	5384	
==>roper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.prope <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10530	10660	
==>f (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10530	10660	
==>f (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3101	3218	
==>ription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3101	3218	
==>ription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4625	4742	
==>ription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.d <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3604	3715	
==>pile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18850	18941	
==>een traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17893	17984	
==>een traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18850	18941	
==>een traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17893	17984	
==>een traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14910	15007	
==>ration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14910	15007	
==>ration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( o <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5776	5871	
==>de_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
no <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5776	5871	
==>de_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
no <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2675	2770	
==>de_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
no <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	623	761	
==>inue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	623	761	
==>inue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12188	12319	
==>elf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->option <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12188	12319	
==>elf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->option <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12188	12319	
==>elf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->option <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	549	695	
==>../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	549	695	
==>../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4093	4189	
==>>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4093	4189	
==>>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4683	4779	
==>>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18121	18251	
==>fy($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18121	18251	
==>fy($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18121	18251	
==>fy($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper:: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10090	10184	
==>tions may end up being calculated using iterations, 
which can be slow sometimes.
Set functions <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10090	10184	
==>tions may end up being calculated using iterations, 
which can be slow sometimes.
Set functions <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7638	7794	
==>$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7695	7851	
==>$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3741	3855	
==>_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3741	3855	
==>_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3741	3855	
==>_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	617	737	
==>return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	633	753	
==>return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	609	729	
==>return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2828	2927	
==>It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less th <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2828	2927	
==>It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4424	4528	
==>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
s <==
5	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	466	566	
==>ive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    syste <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	943	1040	
==>? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	943	1040	
==>? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	943	1040	
==>? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3211	3410	
==>'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3085	3277	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1061	1233	
==>q 'prototype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23751	23849	
==>rary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of lo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22267	22365	
==>rary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4598	4696	
==>BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4598	4696	
==>BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4598	4696	
==>BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23472	23565	
==>::KeyedText has no non-trivial
external dependencies (it is very simple).

There are other dif <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23472	23565	
==>::KeyedText has no non-trivial
external dependencies (it is very simple).

There are other dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4217	4319	
==>> '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4217	4319	
==>> '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4217	4319	
==>> '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14591	14684	
==>chars )

This routine works just like encode_entities, except that the replacement
entities ar <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14591	14684	
==>chars )

This routine works just like encode_entities, except that the replacement
entities ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3495	3607	
==>ar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3712	3824	
==>ar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	71	178	
==>sa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	71	178	
==>sa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	71	178	
==>sa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:« <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3585	3686	
==>OUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3585	3686	
==>OUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3585	3686	
==>OUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8423	8521	
==>age contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8423	8521	
==>age contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	682	785	
==>intf STDERR "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12715	12815	
==>ble::free->new()
	);
	\%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	667	759	
==>acro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	667	759	
==>acro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	667	759	
==>acro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH() <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1142	1267	
==>end to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1142	1267	
==>end to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1142	1267	
==>end to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, do <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1292	1401	
==>urns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($f <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1292	1401	
==>urns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8953	9125	
==>R(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8953	9125	
==>R(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rose <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5296	5402	
==>e;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not impleme <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2838	2944	
==>e;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not impleme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3687	3793	
==>e;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not impleme <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1103	1212	
==>.'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write op <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1103	1212	
==>.'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write op <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8817	8916	
==>WN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4725	4820	
==>eturns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_bu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8202	8297	
==>eturns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_bu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3825	3938	
==>pping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7302	7415	
==>pping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5471	5571	
==>_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5471	5571	
==>_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5471	5571	
==>_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	692	792	
==>dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4136	4236	
==>\$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	692	792	
==>dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4136	4236	
==>\$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4136	4236	
==>\$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3669	3784	
==>rror is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5571	5686	
==>rror is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3517	3623	
==>der PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3517	3623	
==>der PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3517	3623	
==>der PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1232	1324	
==>verything down to your project's base namespace.

Class::Rebless walks scalar, array, and has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1232	1324	
==>verything down to your project's base namespace.

Class::Rebless walks scalar, array, and has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1232	1324	
==>verything down to your project's base namespace.

Class::Rebless walks scalar, array, and has <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20760	20851	
==>botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20760	20851	
==>botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1648	1789	
==>ect>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1648	1789	
==>ect>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3782	3883	
==>->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3782	3883	
==>->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3782	3883	
==>->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	828	952	
==>ormal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	828	952	
==>ormal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	828	952	
==>ormal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9460	9580	
==>leop::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::opti <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29110	29211	
==>is is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11012	11115	
==>->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11012	11115	
==>->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11012	11115	
==>->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	281	381	
==>encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	281	381	
==>encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2960	3101	
==>a = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2960	3101	
==>a = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11375	11492	
==>=> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11375	11492	
==>=> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11375	11492	
==>=> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1811	1918	
==>code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::No <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1811	1918	
==>code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::No <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36708	36806	
==>ation has zero
tuples, in which case the result does too.  Another trivial case is if any
source re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41257	41355	
==>ation has zero
tuples, in which case the result does too.  Another trivial case is if any
source re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40880	40978	
==>ation has zero
tuples, in which case the result does too.  Another trivial case is if any
source re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4543	4647	
==>igil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4543	4647	
==>igil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4543	4647	
==>igil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32874	32969	
==>anslate_message()> method, but it has no other side effects.

A Translator object has 2 main att <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32874	32969	
==>anslate_message()> method, but it has no other side effects.

A Translator object has 2 main att <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9993	10132	
==>aram = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9993	10132	
==>aram = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1280	1398	
==>instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1280	1398	
==>instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1280	1398	
==>instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance & <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15062	15160	
==>g a program's operation, the program (or a package it uses)
will need to display a message to the u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15062	15160	
==>g a program's operation, the program (or a package it uses)
will need to display a message to the u <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38125	38218	
==>remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42674	42767	
==>remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42324	42417	
==>remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	308	463	
==>y %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4912	5004	
==>.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $o <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4039	4131	
==>.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4912	5004	
==>.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4039	4131	
==>.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2714	2831	
==>ed $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2714	2831	
==>ed $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2714	2831	
==>ed $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # war <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8436	8536	
==>ion.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8436	8536	
==>ion.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3080	3187	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\e", '\E') if $cc;
    return $S->o <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6568	6665	
==>$fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a stri <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3922	4019	
==>$fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a stri <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6568	6665	
==>$fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a stri <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3922	4019	
==>$fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6131	6261	
==>e =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6131	6261	
==>e =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6131	6261	
==>e =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{metho <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	552	656	
==>TE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	552	656	
==>TE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1562	1673	
==>e a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 're <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1562	1673	
==>e a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 're <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1562	1673	
==>e a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 're <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	25	128	
==>0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

met <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	25	128	
==>0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19857	19987	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19857	19987	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19857	19987	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DE <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4144	4262	
==>conv;
    }
    elsif  ($arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3692	3786	
==>an';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_func 'asinh';
trig_func 'acosh' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35016	35148	
==>= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35016	35148	
==>= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35016	35148	
==>= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2827	2928	
==>od ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (S <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2827	2928	
==>od ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4315	4417	
==>js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4315	4417	
==>js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4315	4417	
==>js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compil <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1776	1872	
==>children == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1776	1872	
==>children == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34898	34997	
==>es.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39448	39547	
==>es.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38981	39080	
==>es.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1469	1568	
==>values for them.

It includes the parameters as well as anything declared within

that scope.



the <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1408	1503	
==>values for them.
It includes the parameters as well as anything declared within
that scope.

the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	457	591	
==>y => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	457	591	
==>y => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4951	5049	
==>, '... got the right cleared y for p3d');
is($p3d->get_z, 0, '... got the right cleared z for p3d') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1335	1427	
==>"abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1335	1427	
==>"abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3454	3774	
==>g::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3454	3774	
==>g::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	542	637	
==>------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some oth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	542	637	
==>------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some oth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	542	637	
==>------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some oth <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2823	2958	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1445	1580	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2285	2403	
==>broutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2285	2403	
==>broutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2285	2403	
==>broutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = () <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24988	25102	
==>5.10.1
      <QuantifierPrefix>
    | <QuantifierPrefix> <'?'>
}
rule QuantifierPrefix {  # see 15.10.1
      <'*'> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2325	2425	
==>ammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2325	2425	
==>ammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1550	1646	
==>ammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3411	3507	
==>ammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4883	5022	
==>}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $sel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4883	5022	
==>}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3764	3862	
==>=> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3764	3862	
==>=> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3764	3862	
==>=> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	779	878	
==>th}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2614	2713	
==>th}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2455	2553	
==>er(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2455	2553	
==>er(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2455	2553	
==>er(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5008	5114	
==>d the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_con <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5008	5114	
==>d the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_con <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5546	5645	
==>esh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetim <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5546	5645	
==>esh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	311	402	
==>s::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	992	1100	
==>=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	992	1100	
==>=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3558	3661	
==>_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3558	3661	
==>_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3558	3661	
==>_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4964	5108	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4964	5108	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4964	5108	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11640	11774	
==>sible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11640	11774	
==>sible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4830	4970	
==>less (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token) <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4830	4970	
==>less (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	95	220	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	95	220	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	95	220	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_fr <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3823	3961	
==>elf: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #retur <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1923	2061	
==>elf: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36479	36586	
==>{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36479	36586	
==>{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36479	36586	
==>{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7739	7864	
==>x, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7739	7864	
==>x, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7739	7864	
==>x, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1035	1131	
==>s simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1035	1131	
==>s simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	271	376	
==>of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	271	376	
==>of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9353	9452	
==>() = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9353	9452	
==>() = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9353	9452	
==>() = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7993	8106	
==>check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7993	8106	
==>check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7993	8106	
==>check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      P <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	500	601	
==>gin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Uti <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	500	601	
==>gin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Uti <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3548	3710	
==>(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3795	3957	
==>(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	215	327	
==>ict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	215	327	
==>ict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	215	327	
==>ict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4011	4110	
==>in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4011	4110	
==>in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1374	1507	
==>>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1374	1507	
==>>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1374	1507	
==>>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9000	9111	
==>=== $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12477	12588	
==>=== $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4121	4227	
==>rint $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4121	4227	
==>rint $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4121	4227	
==>rint $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_per <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1912	2010	
==>rcase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last compon <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1912	2010	
==>rcase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last compon <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6123	6370	
==>y], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR depende <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6587	6834	
==>y], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR depende <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7102	7198	
==>ode');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7102	7198	
==>ode');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7102	7198	
==>ode');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2184	2293	
==>xe($version, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5503	5604	
==>o);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4633	4734	
==>o);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5503	5604	
==>o);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4633	4734	
==>o);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1011	1155	
==>ent] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # contin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1011	1155	
==>ent] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # contin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1677	1784	
==>s_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1677	1784	
==>s_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1677	1784	
==>s_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.leng <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5851	5978	
==>"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5851	5978	
==>"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5101	5193	
==>ending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=it <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5101	5193	
==>ending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6625	6717	
==>ending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1402	1506	
==>BNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1402	1506	
==>BNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1402	1506	
==>BNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13053	13150	
==>will remove all the header fields used to describe the content of
a message.  All header field nam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13053	13150	
==>will remove all the header fields used to describe the content of
a message.  All header field nam <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3800	3905	
==>PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr) <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3800	3905	
==>PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr) <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	650	755	
==>PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	559	656	
==>ample-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do expor <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	559	656	
==>ample-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do expor <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1558	1656	
==>ule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4893	4985	
==>ule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	580	672	
==>ule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5033	5125	
==>ule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	580	672	
==>ule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1739	1830	
==>sar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('' <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1739	1830	
==>sar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	221	335	
==>::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	221	335	
==>::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	221	335	
==>::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15268	15364	
==>METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return the <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15268	15364	
==>METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return the <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24264	24381	
==>eturn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20685	20802	
==>eturn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3424	3511	
==>s'} = $Object;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4118	4205	
==>s'} = $Object;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5326	5413	
==>s'} = $Object;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	922	1045	
==>a
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	922	1045	
==>a
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1237	1352	
==>lock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1237	1352	
==>lock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1237	1352	
==>lock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6046	6236	
==>->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6046	6236	
==>->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6046	6236	
==>->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair- <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7305	7402	
==>gs) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7305	7402	
==>gs) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25466	25636	
==>', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26124	26294	
==>', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25745	25915	
==>', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26403	26573	
==>', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	264	360	
==>hod delete (*@index ) returns List of Object;
multi method exists ($index ) returns Object;
multi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9920	10043	
==>,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7860	7983	
==>,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9920	10043	
==>,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7860	7983	
==>,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	35	131	
==>rnings;

use lib '../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Ut <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6999	7107	
==>me'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'pos <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6999	7107	
==>me'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'pos <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3898	4006	
==>me'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'pos <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15079	15178	
==>dd_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9278	9377	
==>dd_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1241	1357	
==>e',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessabl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1241	1357	
==>e',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4797	4900	
==>= ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4797	4900	
==>= ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4797	4900	
==>= ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1525	1657	
==>ime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1978	2110	
==>ime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2413	2545	
==>ime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2850	2982	
==>ime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        cap <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14983	15092	
==>pying \"$src\" to \"$dest\"",
    ensure => sub { -r $dest and -M $dest <= -M $src },
    using  => sub { copy <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5330	5446	
==>"' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{" <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5330	5446	
==>"' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3324	3432	
==>o/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3324	3432	
==>o/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3324	3432	
==>o/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually per <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2406	2500	
==>ktracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $co <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2406	2500	
==>ktracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11654	11773	
==>fter' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2137	2254	
==>fter' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8909	9026	
==>fter' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2137	2254	
==>fter' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8909	9026	
==>fter' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4241	4368	
==>ize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4241	4368	
==>ize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6524	6628	
==>'$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6524	6628	
==>'$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6524	6628	
==>'$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10772	10878	
==>tor';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10772	10878	
==>tor';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10770	10868	
==>- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10770	10868	
==>- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10770	10868	
==>- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9585	9758	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9864	10037	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3328	3441	
==>$radians / (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - spec ambiguous
	default { fail "invalid t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1798	1901	
==>define %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.ins <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1798	1901	
==>define %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	181	314	
==>om_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	181	314	
==>om_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	181	314	
==>om_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16815	16908	
==>to a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pm <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16815	16908	
==>to a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	580	704	
==>l = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	580	704	
==>l = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	580	704	
==>l = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.lengt <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4709	4809	
==>{
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $tim <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4709	4809	
==>{
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $tim <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10985	11107	
==>ndefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10985	11107	
==>ndefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10985	11107	
==>ndefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19874	19965	
==>hat the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19874	19965	
==>hat the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1205	1303	
==>write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29 <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1205	1303	
==>write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14744	14831	
==>TI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::ch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14744	14831	
==>TI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::ch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14744	14831	
==>TI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::ch <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1810	2224	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1810	2224	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2123	2207	
==>= run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2123	2207	
==>= run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2123	2207	
==>= run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1205	1445	
==>ant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1332	1572	
==>ant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	69	163	
==>etamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	69	163	
==>etamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	69	163	
==>etamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	724	871	
==>ss' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	724	871	
==>ss' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	724	871	
==>ss' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4379	4482	
==>(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1505	1608	
==>(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6888	6996	
==>del::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_dat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6888	6996	
==>del::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20870	20963	
==>MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20870	20963	
==>MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20870	20963	
==>MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	475	586	
==>[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	475	586	
==>[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	608	710	
==>tie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .acc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	608	710	
==>tie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .acc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	608	710	
==>tie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .acc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11436	11561	
==>{
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11436	11561	
==>{
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11436	11561	
==>{
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12131	12229	
==>ameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurre <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12131	12229	
==>ameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1456	1560	
==>tional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1456	1560	
==>tional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1665	1769	
==>tional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6095	6187	
==>ry to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> ca <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6095	6187	
==>ry to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	490	621	
==>tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3676	3783	
==>r("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAM <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3676	3783	
==>r("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAM <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2414	2572	
==>\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2414	2572	
==>\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	829	926	
==>nstant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	829	926	
==>nstant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	829	926	
==>nstant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11258	11406	
==>spatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11258	11406	
==>spatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11258	11406	
==>spatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1133	1231	
==>size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!me <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1133	1231	
==>size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!me <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2777	3006	
==>efined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2777	3006	
==>efined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9348	9466	
==>, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9348	9466	
==>, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4995	5132	
==>CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $as <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4995	5132	
==>CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $as <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4995	5132	
==>CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $as <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2141	2262	
==>expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2141	2262	
==>expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4413	4596	
==>>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4413	4596	
==>>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4413	4596	
==>>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contai <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	752	856	
==>>code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	752	856	
==>>code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1894	2081	
==>eturns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my metho <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1894	2081	
==>eturns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	423	535	
==>=~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  fla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	423	535	
==>=~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  fla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	423	535	
==>=~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  fla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39669	39770	
==>( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39669	39770	
==>( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39669	39770	
==>( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33549	33647	
==>.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or mor <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33549	33647	
==>.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or mor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	97	206	
==>ct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	97	206	
==>ct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	97	206	
==>ct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4885	4981	
==>ist of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4885	4981	
==>ist of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4304	4422	
==>> { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.conte <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4304	4422	
==>> { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.conte <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3265	3373	
==>ang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3265	3373	
==>ang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3265	3373	
==>ang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18084	18206	
==>ional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17122	17244	
==>ional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18084	18206	
==>ional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17122	17244	
==>ional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2387	2486	
==>right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brack <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	123	227	
==>ile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $l <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	123	227	
==>ile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	162	262	
==>{\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	162	262	
==>{\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	162	262	
==>{\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2877	3106	
==>";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2877	3106	
==>";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6892	6990	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6892	6990	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6892	6990	
==>= @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1891	1987	
==>on by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9297	9393	
==>on by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7663	7757	
==>on by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2109	2203	
==>on by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8875	8974	
==>&list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8875	8974	
==>&list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8875	8974	
==>&list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primit <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1973	2068	
==>uit one by extracting the 
last component of the calling function's package name.  (For example, <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1973	2068	
==>uit one by extracting the 
last component of the calling function's package name.  (For example, <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	198	323	
==>version    => '0',
        perl_subversion => '0',

        osname    => $Config{osname},
        pager     => $Config{pager}, <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5454	5554	
==>ests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proc <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5512	5612	
==>ests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4300	4396	
==>atch objects.

=head2 %{}

When used as a hash reference, the match object returns named captures <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4300	4396	
==>atch objects.

=head2 %{}

When used as a hash reference, the match object returns named captures <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4591	4692	
==>an2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.diff <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4591	4692	
==>an2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.diff <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	27514	27614	
==>as though STDOUT were
not a console.  You may need to set this if you don't want harness to
output mo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1957	2047	
==>$?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$va <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1957	2047	
==>$?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16111	16258	
==>l_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16105	16252	
==>l_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2963	3072	
==>);

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<ite <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7080	7186	
==>($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7092	7198	
==>($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1788	1886	
==>ie ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1788	1886	
==>ie ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1788	1886	
==>ie ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $se <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	30	127	
==>rence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_ <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	30	127	
==>rence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1746	1854	
==>ich do not have an implementation. These
    # methods are then required to be implemented by the 
    # comp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1746	1854	
==>ich do not have an implementation. These
    # methods are then required to be implemented by the 
    # comp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1746	1854	
==>ich do not have an implementation. These
    # methods are then required to be implemented by the 
    # comp <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	559	662	
==>n coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	559	662	
==>n coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1227	1365	
==>ifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1227	1365	
==>ifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8395	8501	
==>self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pk <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	198	291	
==>rray into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Arr <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	198	291	
==>rray into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	787	893	
==>s like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man wi <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1165	1271	
==>arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	787	893	
==>s like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man wi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	787	893	
==>s like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man wi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2056	2161	
==>arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	392	496	
==>bject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# ps <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	392	496	
==>bject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# ps <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	392	496	
==>bject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# ps <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	273	365	
==>M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argume <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	273	365	
==>M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argume <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2009	2121	
==>:name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2009	2121	
==>:name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2009	2121	
==>:name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3977	4071	
==>ability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3977	4071	
==>ability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6077	6205	
==>]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6077	6205	
==>]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6077	6205	
==>]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = ' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8526	8622	
==>olation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8526	8622	
==>olation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18596	18750	
==>capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18875	19029	
==>capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2946	3052	
==>\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2946	3052	
==>\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2946	3052	
==>\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methn <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1116	1292	
==>(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt> <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1116	1292	
==>(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1703	1848	
==>) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1703	1848	
==>) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1703	1848	
==>) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13449	13627	
==>y @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13449	13627	
==>y @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13449	13627	
==>y @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2334	2512	
==>y @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8993	9100	
==>.local int min, max, islazy
    .local int pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_global "PG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6655	6787	
==>bName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6655	6787	
==>bName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6655	6787	
==>bName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1727	1823	
==>air).  (The value of the 
pair is currently unused, but for forward compatibility it should alway <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1727	1823	
==>air).  (The value of the 
pair is currently unused, but for forward compatibility it should alway <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1531	1684	
==>ew;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not imple <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1531	1684	
==>ew;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not imple <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1531	1684	
==>ew;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not imple <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16077	16176	
==>e methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a sca <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16077	16176	
==>e methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a sca <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9391	9516	
==>ht = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9391	9516	
==>ht = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1564	1653	
==>ce_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1564	1653	
==>ce_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1564	1653	
==>ce_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5104	5198	
==>iler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

T <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1061	1155	
==>iler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	921	1015	
==>iler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5104	5198	
==>iler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1061	1155	
==>iler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2239	2350	
==>e->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2239	2350	
==>e->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2239	2350	
==>e->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39985	40082	
==>ption) any later version.  You
should have received a copy of the LGPL as part of the Locale::Keye <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39985	40082	
==>ption) any later version.  You
should have received a copy of the LGPL as part of the Locale::Keye <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2258	2364	
==>: undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2258	2364	
==>: undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2258	2364	
==>: undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = f <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1119	1208	
==>rl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    doe <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1119	1208	
==>rl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11909	12050	
==>d .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11909	12050	
==>d .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11909	12050	
==>d .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cla <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4888	5025	
==>thod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4888	5025	
==>thod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1700	1816	
==>];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15555	15650	
==>er J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBMS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15555	15650	
==>er J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBMS <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	340	456	
==>en = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	340	456	
==>en = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	340	456	
==>en = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	795	893	
==>ize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SY <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	795	893	
==>ize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SY <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	774	915	
==>$1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	743	879	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4811	4930	
==>me)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4811	4930	
==>me)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4811	4930	
==>me)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self-> <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	640	780	
==>::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compile <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	640	780	
==>::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11533	11651	
==>(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11533	11651	
==>(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11533	11651	
==>(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() no <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1600	1720	
==>aughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstru <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1600	1720	
==>aughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstru <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	6905	7002	
==>ie "can't parse chunk ($file)";
        push @{ $self->{meat}{test_files} }, @{$chunk->{test_files <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19101	19196	
==>nstructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for exa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19101	19196	
==>nstructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14720	14823	
==>6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14720	14823	
==>6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14720	14823	
==>6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::P <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11937	12036	
==>se HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encod <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11937	12036	
==>se HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3529	3652	
==>{
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4846	4969	
==>{
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3529	3652	
==>{
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4834	4957	
==>{
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	195	292	
==>t's really 
pretty bad actually, and the s-expr got quite messy
as well. Although that could be fi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11412	11543	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11412	11543	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2685	2775	
==>urn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2685	2775	
==>urn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2685	2775	
==>urn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $lab <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3541	3653	
==>l_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ( <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2584	2693	
==>l_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2534	2631	
==>!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2534	2631	
==>!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2534	2631	
==>!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {m <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4776	4915	
==>r}]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Generates the details based on the last test l <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14518	14621	
==>ough we've pinged the server (probably several times). So, we
        # conclude, the connection is b0rk <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14518	14621	
==>ough we've pinged the server (probably several times). So, we
        # conclude, the connection is b0rk <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13555	13654	
==>ough we've pinged the server (probably several times). So, we
    # conclude, the connection is b0rk <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13555	13654	
==>ough we've pinged the server (probably several times). So, we
    # conclude, the connection is b0rk <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2664	2770	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7758	7864	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2664	2770	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7758	7864	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3222	3319	
==>a kernel from the Internet.
  --kernel-local=$kernel_local
    Locally, the kernel is saved as --k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9022	9126	
==>($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9022	9126	
==>($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9022	9126	
==>($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2021	2107	
==>qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Ut <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	53	138	
==>qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scalar::Ut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1936	2061	
==>$name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1936	2061	
==>$name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1936	2061	
==>$name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ob <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	156	256	
==>est "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) return <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	156	256	
==>est "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19729	19849	
==>Method');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19729	19849	
==>Method');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19729	19849	
==>Method');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct .. <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	920	1016	
==>nt (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my me <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	920	1016	
==>nt (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	620	802	
==>bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	620	802	
==>bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	620	802	
==>bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatc <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3493	3593	
==>normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $uni <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3493	3593	
==>normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $uni <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1657	1764	
==>f defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1657	1764	
==>f defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1737	1844	
==>f defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	599	702	
==>self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	599	702	
==>self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	508	607	
==>event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::D <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	508	607	
==>event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::D <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3749	3845	
==>rns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3749	3845	
==>rns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a) <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1653	1749	
==>ram("smoke")) ||
    $CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'ref <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25320	25450	
==>a}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25879	26009	
==>a}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35960	36058	
==>es are aligned and merged.  The heading
of the new relation is the union of the invocant and <$othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40510	40608	
==>es are aligned and merged.  The heading
of the new relation is the union of the invocant and <$othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40124	40222	
==>es are aligned and merged.  The heading
of the new relation is the union of the invocant and <$othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6224	6334	
==>h @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any long <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6224	6334	
==>h @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any long <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6224	6334	
==>h @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any long <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6108	6200	
==>hese 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6108	6200	
==>hese 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7452	7555	
==>in { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7452	7555	
==>in { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7452	7555	
==>in { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package P <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11989	12084	
==>ethod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11989	12084	
==>ethod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mod <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10548	10653	
==>islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Error in closure quantif <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23611	23707	
==>MSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send repl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22384	22480	
==>MSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send repl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23611	23707	
==>MSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send repl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22384	22480	
==>MSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send repl <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2702	2821	
==>3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_version osname <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4656	4766	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4656	4766	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4656	4766	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  m <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3956	4065	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3350	3462	
==>my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3350	3462	
==>my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3350	3462	
==>my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, b <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6210	6306	
==>ash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6210	6306	
==>ash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, the <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	717	872	
==>pec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $scrip <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	717	872	
==>pec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $scrip <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	545	683	
==>ve {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	545	683	
==>ve {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	545	683	
==>ve {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infi <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	262	385	
==>ny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ( <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	262	385	
==>ny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1101	1195	
==>tly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1101	1195	
==>tly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1101	1195	
==>tly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). Th <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2189	2355	
==>y' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	122	224	
==>se Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require => 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10279	10378	
==>que_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10279	10378	
==>que_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10279	10378	
==>que_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => :: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	212	312	
==>use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	212	312	
==>use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	948	1040	
==>xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	948	1040	
==>xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	948	1040	
==>xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5419	5528	
==>ple:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5419	5528	
==>ple:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5419	5528	
==>ple:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh } <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	121	220	
==>(array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	121	220	
==>(array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macr <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7606	7720	
==>( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7606	7720	
==>( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5079	5187	
==>uplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8556	8664	
==>uplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7567	7675	
==>uplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2960	3104	
==>de, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3241	3377	
==>de, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9659	9795	
==>de, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3241	3377	
==>de, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9659	9795	
==>de, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( gre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29055	29236	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29334	29515	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2658	2756	
==>r(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2658	2756	
==>r(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2658	2756	
==>r(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1988	2090	
==>Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $currfile =~ $Config{exclude <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6340	6436	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.supers <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5470	5566	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.supers <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6340	6436	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.supers <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5470	5566	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.supers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2852	2970	
==>-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2852	2970	
==>-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2852	2970	
==>-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compil <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3200	3294	
==>self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $oth <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3200	3294	
==>self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $oth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14067	14193	
==>>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14067	14193	
==>>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14067	14193	
==>>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2502	2599	
==>name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_t <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2502	2599	
==>name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	645	756	
==>e, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Loc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	645	756	
==>e, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	748	840	
==>ions;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	748	840	
==>ions;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	748	840	
==>ions;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude:: <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3139	3251	
==>es not
    # recognise cygwin absolute paths.  This kludge includes the
    # win32ified path as well.

    if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10315	10426	
==>$pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10315	10426	
==>$pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10315	10426	
==>$pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1123	1224	
==>__END__

=pod

=head1 NAME

symbol - the core symbol type

=head1 METHODS

=over 4

=item B<new (*nati <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13398	13495	
==>5-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the resul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2470	2567	
==>(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Num <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13398	13495	
==>5-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the resul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2470	2567	
==>(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Num <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2470	2567	
==>(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Num <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6380	6488	
==>r->reganch = 0;
    /* Make sure environment is set up (also helps scare off perl) */
    r->reganch |= ROPT_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4907	5010	
==>bject(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8682	8867	
==>::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8682	8867	
==>::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8682	8867	
==>::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        ret <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19096	19191	
==>he constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (fo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19096	19191	
==>he constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (fo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6202	6361	
==>/;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6202	6361	
==>/;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9187	9312	
==>ption = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_numbe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1315	1432	
==>ption = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_numbe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1315	1432	
==>ption = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9399	9526	
==>$::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9399	9526	
==>$::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9399	9526	
==>$::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4407	4509	
==>[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4592	4694	
==>[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $va <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10778	10932	
==>spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10778	10932	
==>spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2615	2755	
==>BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2615	2755	
==>BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2615	2755	
==>BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11124	11281	
==>orting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8187	8335	
==>orting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8187	8335	
==>orting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	321	459	
==>attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	321	459	
==>attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5248	5376	
==>ars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5248	5376	
==>ars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5838	5966	
==>ars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8635	8728	
==>k(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2460	2553	
==>k(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11281	11438	
==>data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - te <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11281	11438	
==>data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3089	3220	
==>rt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3089	3220	
==>rt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3089	3220	
==>rt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2931	3028	
==>hich they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2931	3028	
==>hich they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an a <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	14256	14346	
==>ype::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		), <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24595	24685	
==>ype::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		), <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24892	24982	
==>ype::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		), <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3557	3667	
==>} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3557	3667	
==>} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	764	856	
==><^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	764	856	
==><^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	764	856	
==><^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3055	3227	
==>ew(
                           symbol->new('&dispatcher' => 'block'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->n <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2009	2116	
==>de_type {
	my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	90	207	
==>0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::T <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18502	18619	
==>n coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14923	15040	
==>n coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	90	207	
==>0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	90	207	
==>0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1081	1185	
==>$a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1081	1185	
==>$a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1081	1185	
==>$a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s( <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4256	4358	
==>ens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ d <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4256	4358	
==>ens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19136	19236	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19136	19236	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19136	19236	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10423	10522	
==>eturns Void`

If you have some tests which you would like to force into being TODO tests
then you ca <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10481	10580	
==>eturns Void`

If you have some tests which you would like to force into being TODO tests
then you ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5273	5410	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5466	5603	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2299	2423	
==>bute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2299	2423	
==>bute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2299	2423	
==>bute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1555	1657	
==>js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1555	1657	
==>js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1555	1657	
==>js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20176	20276	
==>wn.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for de <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20176	20276	
==>wn.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4467	4571	
==>command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2607	2711	
==>>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4467	4571	
==>command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4467	4571	
==>command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2791	2895	
==>>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constan <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4520	4647	
==>"Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^mul <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4520	4647	
==>"Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4140	4251	
==>f(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4140	4251	
==>f(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4140	4251	
==>f(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31036	31132	
==>n their use, the full name of a module
consists of the two parts concatenated without any delimit <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31036	31132	
==>n their use, the full name of a module
consists of the two parts concatenated without any delimit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9581	9684	
==>lue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9581	9684	
==>lue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9581	9684	
==>lue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->p <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	66	157	
==>has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.inclu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	66	157	
==>has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.inclu <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1443	1577	
==>"para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1443	1577	
==>"para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1295	1398	
==>is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1295	1398	
==>is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1504	1607	
==>is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4794	4896	
==>t breaks other MM-users
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40525	40619	
==>it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILI <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26039	26133	
==>it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40525	40619	
==>it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26039	26133	
==>it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	485	676	
==>r;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($stat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	485	676	
==>r;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	544	646	
==>2
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	544	646	
==>2
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	544	646	
==>2
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sli <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3585	3713	
==>me') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3585	3713	
==>me') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3585	3713	
==>me') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2471	2598	
==>irst)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- ch <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2471	2598	
==>irst)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- ch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	661	811	
==>c_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_path);
        }
    }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	696	846	
==>c_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_path);
        }
    }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	661	811	
==>c_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_path);
        }
    }
} <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9878	10028	
==>c_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_path);
        }
    }
} <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1134	1284	
==>c_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $dest_path);
        }
    }
} <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24086	24184	
==>s in regexp.h are present to pass info from
 * compile to execute that permits the execute phase to <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13962	14056	
==>ll change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10189	10283	
==>ll change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13962	14056	
==>ll change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10189	10283	
==>ll change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15250	15342	
==>w)(?!\w)/>. (So
that's the object's qr() method for you right there!)

=item Regexp::MinLengt <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1886	1977	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1849	1940	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1886	1977	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1849	1940	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	502	612	
==>]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2030	2140	
==>]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2049	2156	
==>"sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2049	2156	
==>"sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2049	2156	
==>"sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); war <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1543	1649	
==>uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1543	1649	
==>uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1543	1649	
==>uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17002	17101	
==>6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> mod <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17002	17101	
==>6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	464	566	
==>$OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	464	566	
==>$OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	464	566	
==>$OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11684	11777	
==>urrence intersects (has any element in common) with the given recurrence.

- `equal( $recurren <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11684	11777	
==>urrence intersects (has any element in common) with the given recurrence.

- `equal( $recurren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9185	9312	
==>end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9185	9312	
==>end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9185	9312	
==>end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	191	288	
==>lues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_C <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	191	288	
==>lues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_C <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2464	2580	
==>ype> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2464	2580	
==>ype> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5358	5459	
==>tes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5358	5459	
==>tes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7555	7656	
==>tes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - tes <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11909	12053	
==>eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8191	8335	
==>eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9025	9169	
==>eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38255	38349	
==>l parameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38255	38349	
==>l parameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5952	6049	
==>or => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5952	6049	
==>or => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5952	6049	
==>or => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15944	16038	
==>e> other
Perl modules.

Modules that use these compilation modules get compiled into some
alter <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15944	16038	
==>e> other
Perl modules.

Modules that use these compilation modules get compiled into some
alter <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	602	705	
==>:Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { native($_) } ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28374	28472	
==>e); no attribute values are escaped and you shouldn't try to
extract them.  This method is also def <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35730	35828	
==>e); no attribute values are escaped and you shouldn't try to
extract them.  This method is also def <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28374	28472	
==>e); no attribute values are escaped and you shouldn't try to
extract them.  This method is also def <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35730	35828	
==>e); no attribute values are escaped and you shouldn't try to
extract them.  This method is also def <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3655	3822	
==>}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3655	3822	
==>}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18710	18843	
==>a {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18710	18843	
==>a {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18710	18843	
==>a {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispat <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4317	4439	
==>" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($in <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4317	4439	
==>" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9225	9324	
==>r - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ... <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9225	9324	
==>r - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ... <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9225	9324	
==>r - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ... <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2150	2390	
==>perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2150	2390	
==>perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11433	11571	
==>rent = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.cu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11433	11571	
==>rent = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.cu <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	306	426	
==>p6';
use Stream;# :all;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_of_Input lookfor
#                 alt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11844	11977	
==>eturn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11844	11977	
==>eturn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11844	11977	
==>eturn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18566	18659	
==>r expression compilation and execution) to
parasitize the regexp struct - attempting to make i <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2856	2949	
==>r expression compilation and execution) to
parasitize the regexp struct - attempting to make i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1915	2038	
==>function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1915	2038	
==>function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1915	2038	
==>function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Rea <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1428	1527	
==>w( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHO <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1428	1527	
==>w( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHO <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36519	36615	
==>is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41068	41164	
==>is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40682	40778	
==>is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retur <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10478	10566	
==>elf.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $cipherte <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10478	10566	
==>elf.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $cipherte <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1790	1903	
==>~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	967	1078	
==>~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1440	1551	
==>~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4150	4246	
==>ed by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" V <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4150	4246	
==>ed by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" V <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16570	16679	
==>:";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::O <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16570	16679	
==>:";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::O <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2562	2667	
==>this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1174	1279	
==>this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1875	1980	
==>this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11371	11464	
==>y will not get inherited. This provides more predictable 
behavior to class consturction becau <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11371	11464	
==>y will not get inherited. This provides more predictable 
behavior to class consturction becau <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11371	11464	
==>y will not get inherited. This provides more predictable 
behavior to class consturction becau <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4355	4454	
==>indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4355	4454	
==>indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4355	4454	
==>indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subnam <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7853	8082	
==>lled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allo <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1154	1383	
==>lled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14807	14903	
==>quire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14807	14903	
==>quire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14807	14903	
==>quire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5R <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	821	939	
==>$buf);
        $tok = $maketoken.($tok, $label)
          if defined $tok;
        @tokens.push( ($sep, $tok, $i).grep: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	329	441	
==>lues) % 2 == 0)
        || confess "not enough elements to construct a hash (must be an even number)";
    my %va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1472	1571	
==>p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1472	1571	
==>p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1472	1571	
==>p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  m <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1832	1952	
==>@list) is builtin is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6526	6621	
==>(Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6526	6621	
==>(Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Eve <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35906	35996	
==>get_set_member_combinations()>

This method returns an array ref having all combinations of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35906	35996	
==>get_set_member_combinations()>

This method returns an array ref having all combinations of <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	998	1102	
==>]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# B <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	998	1102	
==>]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6542	6643	
==>nt = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var wi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6542	6643	
==>nt = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var wi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6542	6643	
==>nt = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var wi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3435	3542	
==>copedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<s <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3435	3542	
==>copedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9884	9986	
==>an remain an implementation detail 
    # for the methods described below.
    # ---------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9884	9986	
==>an remain an implementation detail 
    # for the methods described below.
    # ---------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9884	9986	
==>an remain an implementation detail 
    # for the methods described below.
    # ---------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5916	6058	
==>_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5928	6070	
==>_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4630	4737	
==>= PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4630	4737	
==>= PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4630	4737	
==>= PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27527	27687	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27806	27966	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1363	1464	
==>multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement te <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1363	1464	
==>multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement te <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1363	1464	
==>multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14599	14761	
==>$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14599	14761	
==>$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14599	14761	
==>$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11245	11350	
==>toping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11245	11350	
==>toping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(. <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4389	4532	
==>.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            w <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4389	4532	
==>.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            w <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	324	446	
==>E__->bootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8580	8673	
==>ule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Gramma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2405	2498	
==>ule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Gramma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	161	299	
==>rom_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	161	299	
==>rom_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	161	299	
==>rom_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4321	4443	
==>,

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4172	4290	
==>,
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7615	7780	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7615	7780	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7615	7780	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13694	13789	
==>etta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13694	13789	
==>etta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1671	1783	
==>$is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid o <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1671	1783	
==>$is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6238	6327	
==>L2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6238	6327	
==>L2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6238	6327	
==>L2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS <==
5	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	446	561	
==>erl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with th <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2804	2909	
==>f->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	304	403	
==>setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	304	403	
==>setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	304	403	
==>setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2541	2659	
==>my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2541	2659	
==>my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2541	2659	
==>my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8028	8140	
==>ction (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11505	11617	
==>ction (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	110	257	
==>t {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3164	3311	
==>t {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	110	257	
==>t {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3164	3311	
==>t {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	19972	20077	
==>put path of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($inpat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12547	12660	
==>( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12547	12660	
==>( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12547	12660	
==>( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7570	7668	
==>t" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7570	7668	
==>t" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2189	2325	
==>mp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2189	2325	
==>mp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2189	2325	
==>mp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unle <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10727	10828	
==>rn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10727	10828	
==>rn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7973	8084	
==>_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7973	8084	
==>_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7973	8084	
==>_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5030	5138	
==>] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5252	5360	
==>] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1279	1382	
==>block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::FA <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1950	2050	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0 <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2312	2412	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1950	2050	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2312	2412	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	85	231	
==>.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	85	231	
==>.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	632	746	
==>.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	632	746	
==>.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	632	746	
==>.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12548	12696	
==>ms[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12548	12696	
==>ms[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12548	12696	
==>ms[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5504	5612	
==>cumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5504	5612	
==>cumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6873	6986	
==>@args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6873	6986	
==>@args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6873	6986	
==>@args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9513	9598	
==><$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9513	9598	
==><$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3037	3135	
==>ibute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3037	3135	
==>ibute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3037	3135	
==>ibute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9152	9246	
==>:Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9152	9246	
==>:Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	620	749	
==>elf.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod B <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	620	749	
==>elf.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6448	6556	
==>!perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6448	6556	
==>!perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6448	6556	
==>!perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isL <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7647	7734	
==>est(lookbehind(R))     --> p5_elemental(lookbehind(R)).
p5_condition_test(lookbehind_not <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2676	2954	
==>", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            } <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1366	1644	
==>", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2676	2954	
==>", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1366	1644	
==>", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            } <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	540	641	
==>ad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the last scope by $self. It may <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	387	491	
==>lved by $self";
}

sub find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pad <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8231	8322	
==>et @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7361	7452	
==>et @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8231	8322	
==>et @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7361	7452	
==>et @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11694	11824	
==>ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my met <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11694	11824	
==>ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	620	704	
==>sname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	620	704	
==>sname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	620	704	
==>sname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4067	4318	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4067	4318	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3901	4021	
==>Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pE <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3901	4021	
==>Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pE <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	751	871	
==>Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pE <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	44	171	
==>i_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	44	171	
==>i_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10719	10850	
==>$pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10719	10850	
==>$pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10719	10850	
==>$pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16503	16616	
==>= $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12924	13037	
==>= $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2965	3113	
==>stead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2965	3113	
==>stead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1048	1145	
==>e can parse a scheme-like syntax 
# with Attribute Grammers (stolen from Haskell (I think))

class <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12391	12484	
==>f C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12391	12484	
==>f C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2252	2362	
==>>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2252	2362	
==>>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2252	2362	
==>>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18016	18111	
==>ress for the human
user who controls the requesting user agent.  The address should be
machine-u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18016	18111	
==>ress for the human
user who controls the requesting user agent.  The address should be
machine-u <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5282	5413	
==>_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6550	6681	
==>_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5282	5413	
==>_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6538	6669	
==>_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18256	18384	
==>$e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21515	21643	
==>$e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41521	41649	
==>$e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%pa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44422	44550	
==>$e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%pa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5223	5350	
==>file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->meta->to_struct;
        
        # add the ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17336	17496	
==>ram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17336	17496	
==>ram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17336	17496	
==>ram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unb <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13841	13961	
==>=> -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13841	13961	
==>=> -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1973	2115	
==>rk because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1973	2115	
==>rk because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	889	990	
==>azy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	889	990	
==>azy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	889	990	
==>azy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8312	8425	
==>l - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	470	583	
==>l - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    c <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16311	16423	
==>_gen(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8032	8142	
==>l - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	447	557	
==>l - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5793	5921	
==>n::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6642	6770	
==>n::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	257	368	
==>enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	257	368	
==>enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	257	368	
==>enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = sh <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3307	3423	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is speci <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3307	3423	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is speci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39824	39920	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39824	39920	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39824	39920	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10142	10291	
==>n/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10142	10291	
==>n/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14823	14936	
==>rl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14823	14936	
==>rl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14823	14936	
==>rl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8683	8852	
==>map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8683	8852	
==>map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8683	8852	
==>map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24934	25026	
==>the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but cr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24934	25026	
==>the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but cr <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5669	5779	
==>dir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5669	5779	
==>dir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1519	1623	
==>hod end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1519	1623	
==>hod end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	618	715	
==>o implement <after>.

- Captures need an internal 'counter', see the ratchet version for an impl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17132	17256	
==>) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13553	13677	
==>) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32385	32480	
==>ay alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32385	32480	
==>ay alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Lo <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2602	2694	
==>class $1;/g;
}

conv_open {
    s/open (${re_scopeop}?\s*${re_varname})\s*${re_comma}\s*($RE{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7250	7350	
==>ead;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7250	7350	
==>ead;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7250	7350	
==>ead;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => cur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1041	1132	
==>t-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1041	1132	
==>t-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2230	2348	
==>xecutable objects
    Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine acting li <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11762	11874	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12041	12153	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8805	8895	
==>push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->vari <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2630	2720	
==>push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->vari <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	140	239	
==>.z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (. <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	140	239	
==>.z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6151	6246	
==>n (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6151	6246	
==>n (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6151	6246	
==>n (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('n <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26413	26514	
==>N		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #define <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	756	854	
==>ninteresting
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in dev <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5290	5436	
==>lled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### ha <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5754	5900	
==>lled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3842	3948	
==>>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3842	3948	
==>>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3842	3948	
==>>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@compo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1450	1569	
==>gine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1450	1569	
==>gine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4146	4263	
==>};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4146	4263	
==>};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4146	4263	
==>};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2429	2522	
==>::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::Ei <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2429	2522	
==>::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::Ei <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2429	2522	
==>::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::Ei <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4838	4930	
==>e to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5088	5180	
==>e to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14394	14554	
==>= $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14394	14554	
==>= $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14394	14554	
==>= $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2925	3085	
==>= $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	167	264	
==>has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.supers;

m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24579	24671	
==>ivate, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2086	2178	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24579	24671	
==>ivate, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2086	2178	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2086	2178	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6701	6818	
==>ar_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_typ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6701	6818	
==>ar_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1522	1632	
==>c);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1522	1632	
==>c);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1522	1632	
==>c);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15833	15927	
==>back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15833	15927	
==>back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13075	13221	
==>ents array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13075	13221	
==>ents array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13075	13221	
==>ents array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4076	4206	
==>st' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4076	4206	
==>st' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1549	1657	
==>erms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1549	1657	
==>erms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3677	3769	
==>fier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3677	3769	
==>fier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3677	3769	
==>fier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	356	454	
==>structors should emit error messages if there are unknown parameters
    * Lazy lists are not imple <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	356	454	
==>structors should emit error messages if there are unknown parameters
    * Lazy lists are not imple <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	45	141	
==>t;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::En <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	45	141	
==>t;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::En <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	45	141	
==>t;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::En <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4285	4409	
==>. _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4425	4549	
==>. _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5856	5949	
==>pe', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5856	5949	
==>pe', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2755	2848	
==>pe', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1247	1390	
==>ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1247	1390	
==>ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2200	2299	
==>x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2200	2299	
==>x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2200	2299	
==>x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10292	10462	
==>=> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10292	10462	
==>=> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10292	10462	
==>=> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	624	730	
==>") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = " <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	624	730	
==>") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1584	1696	
==>$x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1584	1696	
==>$x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1584	1696	
==>$x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18041	18137	
==>s, multiple DBMS objects will not
have references to each other at a level visible in the Rosetta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18041	18137	
==>s, multiple DBMS objects will not
have references to each other at a level visible in the Rosetta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10159	10297	
==>ift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10159	10297	
==>ift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10159	10297	
==>ift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cla <==
5	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	23	114	
==>imple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# O <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	41	132	
==>imple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# O <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18403	18596	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18700	18893	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18682	18875	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18979	19172	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4509	4609	
==>$Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8303	8463	
==>'', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12252	12375	
==>'', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12252	12375	
==>'', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13202	13302	
==>sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6677	6777	
==>sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5093	5222	
==>e->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5093	5222	
==>e->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5093	5222	
==>e->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10157	10252	
==>sed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10157	10252	
==>sed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->hea <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9291	9417	
==>match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9279	9405	
==>match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2027	2124	
==>.pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2027	2124	
==>.pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2027	2124	
==>.pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17029	17170	
==>) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13450	13591	
==>) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13870	13978	
==>r that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17347	17455	
==>r that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16727	16835	
==>r that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6136	6248	
==>ls>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6136	6248	
==>ls>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left chann <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3384	3471	
==>ue_instance_attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4078	4165	
==>ue_instance_attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5286	5373	
==>ue_instance_attrs($Class)->{'$:superclass'} = $Object;

## ----------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1729	1859	
==>ths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    retu <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1729	1859	
==>ths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3283	3379	
==>ons yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3283	3379	
==>ons yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3283	3379	
==>ons yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4284	4406	
==>le::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4284	4406	
==>le::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4284	4406	
==>le::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  d <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4200	4320	
==>)(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_prox <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4200	4320	
==>)(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_prox <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11233	11337	
==>ing in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is rese <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11233	11337	
==>ing in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is rese <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10478	10578	
==>ing in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is rese <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10478	10578	
==>ing in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is rese <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3675	3775	
==>0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workaround
    package Regexp::Parser::anyof_cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4772	4904	
==>data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13197	13329	
==>data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15808	15940	
==>data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17296	17428	
==>data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21979	22111	
==>data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{da <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3256	3587	
==>cure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3256	3587	
==>cure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25754	25853	
==>d, with its keys being the old names and its values the new names.
This method will fail if any C<$m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30306	30405	
==>d, with its keys being the old names and its values the new names.
This method will fail if any C<$m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29272	29371	
==>d, with its keys being the old names and its values the new names.
This method will fail if any C<$m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	717	843	
==>rave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	717	843	
==>rave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19685	19779	
==>hod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19685	19779	
==>hod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19685	19779	
==>hod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6018	6153	
==>$status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA) <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6018	6153	
==>$status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18649	18776	
==>which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &D <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18649	18776	
==>which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &D <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18649	18776	
==>which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &D <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32799	32893	
==>tacked nature of the
tree.  However, having them returned while I<walking> the tree is
helpful. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22882	22973	
==>::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This d <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17456	17547	
==>has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22882	22973	
==>::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17456	17547	
==>has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1501	1608	
==>ing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1512	1619	
==>ing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	462	675	
==>er ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                whe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	462	675	
==>er ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1217	1351	
==>_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1217	1351	
==>_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1217	1351	
==>_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1958	2071	
==>my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrappe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1958	2071	
==>my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrappe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1958	2071	
==>my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrappe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	832	928	
==>p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, whi <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	832	928	
==>p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2381	2496	
==>s;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2381	2496	
==>s;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2381	2496	
==>s;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17344	17453	
==>);
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20821	20930	
==>);
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $! <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23831	23967	
==>flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13335	13463	
==>flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13335	13463	
==>flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13335	13463	
==>flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15084	15189	
==>ue new (\$class: %attrs)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2192	2361	
==>p );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2192	2361	
==>p );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2192	2361	
==>p );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11564	11656	
==>t/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11564	11656	
==>t/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $h <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8151	8281	
==>ined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cooki <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8151	8281	
==>ined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cooki <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	790	894	
==>undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	790	894	
==>undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	790	894	
==>undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7085	7251	
==>v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7549	7715	
==>v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3658	3762	
==>d not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3658	3762	
==>d not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3658	3762	
==>d not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice leng <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1611	1747	
==>span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Func <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1611	1747	
==>span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Func <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	980	1084	
==>, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	980	1084	
==>, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	980	1084	
==>, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa(" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2357	2484	
==>ags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2904	3031	
==>ags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3451	3578	
==>ags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22264	22366	
==>hmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22264	22366	
==>hmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22264	22366	
==>hmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xx <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1964	2052	
==>Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs host <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1964	2052	
==>Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs host <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7269	7412	
==>y $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    loca <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2031	2170	
==>atch} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _ge <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2031	2170	
==>atch} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _ge <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9640	9767	
==>.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    retu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9640	9767	
==>.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3740	3846	
==>tra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sig <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3740	3846	
==>tra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	141	234	
==>------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.la <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	141	234	
==>------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.la <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	141	234	
==>------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.la <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	188	352	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>" <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	188	352	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11645	11750	
==>inedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11645	11750	
==>inedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11645	11750	
==>inedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11434	11552	
==>ub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => ch <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3025	3143	
==>ub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4904	4996	
==>now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4904	4996	
==>now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4904	4996	
==>now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34292	34396	
==>clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34292	34396	
==>clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34292	34396	
==>clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10579	10716	
==>params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10579	10716	
==>params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10579	10716	
==>params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3487	3583	
==>ctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3487	3583	
==>ctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	289	407	
==>pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	289	407	
==>pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	289	407	
==>pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27979	28072	
==>ciated with
the variable name specified in the positional parameter $var_name (a
string).

=it <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27979	28072	
==>ciated with
the variable name specified in the positional parameter $var_name (a
string).

=it <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1478	1585	
==>PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1478	1585	
==>PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5792	5885	
==>ECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5792	5885	
==>ECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5792	5885	
==>ECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2798	2909	
==>are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2798	2909	
==>are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2798	2909	
==>are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1700	1809	
==>=~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons,

# because <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1632	1736	
==>=~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons,
# because <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24259	24423	
==>f ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24259	24423	
==>f ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24259	24423	
==>f ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7185	7309	
==>y = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7185	7309	
==>y = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7185	7309	
==>y = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(und <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9485	9603	
==>t { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
meth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9485	9603	
==>t { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18685	18820	
==>t called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18685	18820	
==>t called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18685	18820	
==>t called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    su <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2794	2928	
==>turns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool:: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2794	2928	
==>turns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool:: <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1335	1447	
==>3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which ea <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1335	1447	
==>3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which ea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17956	18048	
==>I SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17956	18048	
==>I SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17956	18048	
==>I SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18471	18625	
==>/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18750	18904	
==>/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4004	4096	
==>rgs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4004	4096	
==>rgs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4004	4096	
==>rgs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14480	14636	
==>oad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14480	14636	
==>oad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14480	14636	
==>oad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1606	1703	
==>value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (St <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1606	1703	
==>value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (St <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21533	21628	
==>s yours may wish to
override some of your messages, showing other messages instead which are
mor <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21533	21628	
==>s yours may wish to
override some of your messages, showing other messages instead which are
mor <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	697	789	
==>criptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	697	789	
==>criptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1253	1345	
==>criptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	426	616	
==>_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($pr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	426	616	
==>_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($pr <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1285	1421	
==>>dir(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipula <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6363	6458	
==>e?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8431	8526	
==>e?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6363	6458	
==>e?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8431	8526	
==>e?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10993	11129	
==>)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10993	11129	
==>)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10993	11129	
==>)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15651	15744	
==>e after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15651	15744	
==>e after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11086	11251	
==>$i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11086	11251	
==>$i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11086	11251	
==>$i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13913	14016	
==>ing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend ) <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13913	14016	
==>ing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend ) <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6281	6399	
==>r(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978), <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6281	6399	
==>r(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22015	22105	
==>to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22015	22105	
==>to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22015	22105	
==>to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	967	1098	
==>ken eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	967	1098	
==>ken eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	967	1098	
==>ken eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2081	2190	
==>size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2081	2190	
==>size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($ <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	4551	4676	
==>e MY::Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f = o <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3289	3408	
==>le::Spec->catdir( $meta_dir, $config->meta_file ) );
            
            my %avail = map { $_->{package} => $_ } Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4918	5020	
==>"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4918	5020	
==>"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4918	5020	
==>"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2528	2657	
==>)  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2528	2657	
==>)  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2528	2657	
==>)  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1290	1389	
==>h indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1290	1389	
==>h indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11207	11334	
==>ngify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11207	11334	
==>ngify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11207	11334	
==>ngify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	685	811	
==>~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $sta <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	685	811	
==>~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3645	3757	
==>ler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target sy <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3515	3622	
==>ler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target sy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5079	5185	
==>jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5079	5185	
==>jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5079	5185	
==>jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param ( <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	288	382	
==>ment - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8478	8572	
==>UBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAM <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	288	382	
==>ment - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8478	8572	
==>UBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAM <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8478	8572	
==>UBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAM <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2507	2615	
==>nce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5710	5818	
==>nce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2507	2615	
==>nce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5710	5818	
==>nce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1326	1427	
==>Params'  ,'[TParam]',
  'pLValue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4372	4479	
==>s $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4372	4479	
==>s $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4372	4479	
==>s $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    lo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16502	16595	
==>ply
copying files), often even while the program is executing.

Locale::KeyedText gives your a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16502	16595	
==>ply
copying files), often even while the program is executing.

Locale::KeyedText gives your a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14448	14547	
==>utes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14448	14547	
==>utes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14448	14547	
==>utes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4383	4480	
==>named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4383	4480	
==>named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38887	38991	
==>if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38887	38991	
==>if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38887	38991	
==>if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::Li <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9552	9642	
==>$set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (supe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9552	9642	
==>$set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (supe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5859	5984	
==>data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $statu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5859	5984	
==>data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $statu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4584	4682	
==>- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4584	4682	
==>- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set ) <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	670	762	
==>bject->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->wh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14245	14363	
==>t";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	602	713	
==>tta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	602	713	
==>tta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1313	1409	
==>);
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Com <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1313	1409	
==>);
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Com <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	372	483	
==>List = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	372	483	
==>List = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	372	483	
==>List = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9899	9998	
==>OMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9899	9998	
==>OMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure' <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5218	5348	
==>"", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5276	5406	
==>"", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2941	3051	
==>.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2941	3051	
==>.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	938	1042	
==>inv->class);        
}

package method::signature;

use strict;
use warnings;

use base 'closure::signatu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1195	1291	
==>) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1195	1291	
==>) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1195	1291	
==>) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22563	22655	
==>te that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22563	22655	
==>te that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("n <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1111	1237	
==>E

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &in <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1111	1237	
==>E

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &in <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23362	23453	
==>F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41286	41377	
==>F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37312	37403	
==>F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23083	23180	
==>, with the other packages like "gettext" it looks like you
are supposed to pass in english text an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11681	11778	
==>ole since they
are just instances of Class which does Role too. So this means that all classes
and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23083	23180	
==>, with the other packages like "gettext" it looks like you
are supposed to pass in english text an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11681	11778	
==>ole since they
are just instances of Class which does Role too. So this means that all classes
and <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11681	11778	
==>ole since they
are just instances of Class which does Role too. So this means that all classes
and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5313	5504	
==>>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5313	5504	
==>>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5313	5504	
==>>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11571	11692	
==>rams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11571	11692	
==>rams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11571	11692	
==>rams) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class. <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3707	3824	
==>rns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        w <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3707	3824	
==>rns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        w <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2908	3025	
==>ol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # rep <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2908	3025	
==>ol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # rep <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2891	2988	
==>int newstr;

    if(stringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    sta <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4086	4170	
==>versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Except <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4086	4170	
==>versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Except <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7275	7383	
==>delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7275	7383	
==>delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2587	2683	
==>n't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2587	2683	
==>n't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2587	2683	
==>n't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8727	8851	
==>rp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8727	8851	
==>rp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4565	4666	
==>s. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a strin <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4565	4666	
==>s. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a strin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6762	6863	
==>s. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1440	1543	
==>lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1440	1543	
==>lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1440	1543	
==>lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4722	4819	
==>ND__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This mo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4862	4959	
==>ND__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This mo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3036	3137	
==>>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_ag <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3036	3137	
==>>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_ag <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27641	27735	
==>sponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32193	32287	
==>sponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31285	31379	
==>sponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4736	4858	
==>r ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4736	4858	
==>r ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5907	5997	
==>ubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5907	5997	
==>ubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2806	2896	
==>ubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1235	1426	
==>my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1235	1426	
==>my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1235	1426	
==>my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7323	7411	
==>boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7323	7411	
==>boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9085	9189	
==>:;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9085	9189	
==>:;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9085	9189	
==>:;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3359	3460	
==>mented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3543	3644	
==>mented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1210	1307	
==>f() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1210	1307	
==>f() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1210	1307	
==>f() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18614	18704	
==>sh ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18614	18704	
==>sh ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35283	35380	
==>in> except that this method will fail if any of its source Relations
have attributes in common; it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39833	39930	
==>in> except that this method will fail if any of its source Relations
have attributes in common; it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39393	39490	
==>in> except that this method will fail if any of its source Relations
have attributes in common; it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1550	1645	
==>d::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy }) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1550	1645	
==>d::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy }) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4988	5110	
==>In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(ba <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4988	5110	
==>In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	473	579	
==>(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	473	579	
==>(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	473	579	
==>(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $sel <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12361	12455	
==>o, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12419	12513	
==>o, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3126	3231	
==>dler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircnam <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3126	3231	
==>dler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircnam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5980	6083	
==>ar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5980	6083	
==>ar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5980	6083	
==>ar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2608	2713	
==>\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    re <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2608	2713	
==>\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2688	2793	
==>\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9562	9661	
==>pile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a reco <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9562	9661	
==>pile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a reco <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2600	2770	
==>bug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, A <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2600	2770	
==>bug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1362	1466	
==>mented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1362	1466	
==>mented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1362	1466	
==>mented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>un <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5964	6072	
==>{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} || <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3215	3312	
==>LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3215	3312	
==>LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2721	2816	
==>me' and 'value' pairs.  This
method should be called before any other methods, as it initialises <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2721	2816	
==>me' and 'value' pairs.  This
method should be called before any other methods, as it initialises <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3086	3279	
==>re:<if>'),
                App->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6694	6794	
==>[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6706	6806	
==>[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2222	2339	
==>urn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'l <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2222	2339	
==>urn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'l <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3032	3129	
==>ndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	775	870	
==>_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	775	870	
==>_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2981	3098	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2865	2979	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    retur <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10985	11082	
==>mes;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->va <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3398	3494	
==>rn 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\ <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1824	1919	
==>where { true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset num of num32  where { tru <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	109	214	
==>ep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	109	214	
==>ep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	109	214	
==>ep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33479	33576	
==>t in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33479	33576	
==>t in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6765	6928	
==>ile $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5269	5432	
==>ile $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	304	408	
==>d ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	304	408	
==>d ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	304	408	
==>d ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27483	27620	
==>p = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27483	27620	
==>p = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27483	27620	
==>p = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3522	3632	
==>eAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval lat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3522	3632	
==>eAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval lat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3522	3632	
==>eAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval lat <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11504	11598	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` a <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11562	11656	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` a <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	706	812	
==>ime[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	706	812	
==>ime[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1956	2073	
==>mble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{in <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1956	2073	
==>mble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16843	16934	
==>als::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16843	16934	
==>als::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16843	16934	
==>als::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13627	13807	
==>->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13627	13807	
==>->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13627	13807	
==>->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_des <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1154	1280	
==>egex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_cur <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1154	1280	
==>egex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_cur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	613	745	
==>y $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	648	780	
==>y $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	613	745	
==>y $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9830	9962	
==>y $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1086	1218	
==>y $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2460	2573	
==>ile: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2677	2790	
==>ile: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	70	168	
==>l5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	70	168	
==>l5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	70	168	
==>l5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2181	2281	
==>));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2181	2281	
==>));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2181	2281	
==>));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11707	11802	
==>_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm, <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11707	11802	
==>_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7924	8024	
==>ernation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alter <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7654	7750	
==>ernation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1013	1106	
==>as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1013	1106	
==>as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1013	1106	
==>as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2247	2378	
==>p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2247	2378	
==>p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2247	2378	
==>p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3888	3995	
==>:Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

metho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3888	3995	
==>:Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1666	1780	
==>Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1666	1780	
==>Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1666	1780	
==>Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {und <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7156	7251	
==>O) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::Use <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7156	7251	
==>O) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::Use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14523	14701	
==>_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->z <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14523	14701	
==>_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->z <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14523	14701	
==>_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->z <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16851	17003	
==>shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $cod <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16851	17003	
==>shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	597	726	
==>h) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	597	726	
==>h) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	597	726	
==>h) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DES <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16812	16904	
==>ect use of environment variables, which can aid in
portability.

Practically speaking, Locale <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16812	16904	
==>ect use of environment variables, which can aid in
portability.

Practically speaking, Locale <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4178	4310	
==>*$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4178	4310	
==>*$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7896	8004	
==>ethod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7896	8004	
==>ethod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7896	8004	
==>ethod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1629	1746	
==>f, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods whi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1629	1746	
==>f, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods whi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1629	1746	
==>f, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods whi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2439	2554	
==>ue_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2644	2759	
==>ue_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9563	9680	
==>ket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9563	9680	
==>ket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29002	29093	
==>tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extensi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33554	33645	
==>tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extensi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32691	32782	
==>tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extensi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7746	7908	
==>( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7746	7908	
==>( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7746	7908	
==>( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10568	10680	
==>ase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10568	10680	
==>ase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10911	11111	
==>methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10911	11111	
==>methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10911	11111	
==>methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5915	6027	
==>mented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5903	6015	
==>mented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24159	24282	
==>$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24159	24282	
==>$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24159	24282	
==>$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7758	7878	
==>cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7758	7878	
==>cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5507	5778	
==>[\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($vers <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5507	5778	
==>[\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($vers <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9910	10005	
==>The iterator returned is a function reference.  When called in scalar
context, it returns the ne <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6439	6542	
==>returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6439	6542	
==>returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	837	938	
==>),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	837	938	
==>),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	837	938	
==>),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. . <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	324	430	
==>n, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	324	430	
==>n, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8198	8299	
==>rious reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create you <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8198	8299	
==>rious reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4121	4234	
==>default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $option <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4121	4234	
==>default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $option <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4121	4234	
==>default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $option <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	364	460	
==>);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $temp <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	364	460	
==>);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $temp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	248	369	
==>hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	248	369	
==>hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	248	369	
==>hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %h <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9313	9412	
==>ties
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mult <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9313	9412	
==>ties
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mult <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3696	3945	
==>ge

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3696	3945	
==>ge

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	132	236	
==>de is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	132	236	
==>de is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10360	10459	
==>ularExpressionChars {  # see 7.8.5
      <null>
    | <RegularExpressionChars> <RegularExpressionCha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6599	6722	
==>) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6599	6722	
==>) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	12	122	
==>:PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	12	122	
==>:PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	12	122	
==>:PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3847	4001	
==>trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18006	18102	
==>y
it easily in its conditional logic, using a simple 'equals', and then the
application can "do t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18006	18102	
==>y
it easily in its conditional logic, using a simple 'equals', and then the
application can "do t <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6405	6496	
==>lers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTION <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6405	6496	
==>lers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTION <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9622	9748	
==>mber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        or <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9622	9748	
==>mber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        or <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9622	9748	
==>mber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        or <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12432	12525	
==>ite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs w <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12432	12525	
==>ite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19514	19602	
==>oxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorizat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4331	4419	
==>BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19514	19602	
==>oxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorizat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4331	4419	
==>BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4331	4419	
==>BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7398	7582	
==>e}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7398	7582	
==>e}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7398	7582	
==>e}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6293	6389	
==>uplicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6293	6389	
==>uplicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified b <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15233	15330	
==>ined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
appl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15233	15330	
==>ined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
appl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13646	13742	
==>x:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13646	13742	
==>x:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13646	13742	
==>x:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5024	5148	
==>r($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5024	5148	
==>r($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5024	5148	
==>r($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       } <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	309	417	
==>ze            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	309	417	
==>ze            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method star <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1201	1307	
==>value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1738	1844	
==>$ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1201	1307	
==>value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1738	1844	
==>$ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1738	1844	
==>$ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	179	316	
==>ompile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	179	316	
==>ompile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6912	7042	
==>a}) {
      $self->{data}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	955	1080	
==>($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	955	1080	
==>($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4291	4414	
==>) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4291	4414	
==>) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4291	4414	
==>) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad d <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11713	11810	
==>ically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11713	11810	
==>ically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2 <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1324	1438	
==>ng in a real context.

The newton function must receive at least:

    y - target value for y
    f - function of o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8271	8378	
==>ick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8271	8378	
==>ick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curni <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9611	9712	
==>ine and compile a procedure that will insert a record into the
    # 'person' table, which is populate <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9611	9712	
==>ine and compile a procedure that will insert a record into the
    # 'person' table, which is populate <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10771	10870	
==>ill broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10771	10870	
==>ill broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10771	10870	
==>ill broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$di <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22045	22136	
==>arameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22045	22136	
==>arameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<ni <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7226	7479	
==>t_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                m <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7226	7479	
==>t_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15467	15569	
==>>value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15467	15569	
==>>value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15467	15569	
==>>value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9748	9857	
==>',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9748	9857	
==>',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9748	9857	
==>',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20762	20862	
==>n indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invok <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25314	25414	
==>n indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invok <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4151	4266	
==>ield ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4151	4266	
==>ield ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1872	1971	
==>rName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1872	1971	
==>rName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1872	1971	
==>rName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8991	9144	
==>RCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8991	9144	
==>RCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1003	1114	
==>ar i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1003	1114	
==>ar i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1003	1114	
==>ar i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	363	459	
==>hers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unna <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	363	459	
==>hers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unna <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1321	1449	
==>t => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - infini <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3346	3453	
==>selves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3346	3453	
==>selves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	868	957	
==>xample for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::e <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	868	957	
==>xample for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3759	4017	
==>'<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_tex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3759	4017	
==>'<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1168	1265	
==>and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1168	1265	
==>and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1168	1265	
==>and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5208	5336	
==>$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5208	5336	
==>$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5208	5336	
==>$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1466	1566	
==>nd values for them.

It includes the parameters as well as anything declared within

that scope.



t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1405	1501	
==>nd values for them.
It includes the parameters as well as anything declared within
that scope.

t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1582	1700	
==>f} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1582	1700	
==>f} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1582	1700	
==>f} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2490	2593	
==>$desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$tod <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2548	2651	
==>$desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$tod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6903	7007	
==>};
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_categ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1260	1361	
==>};
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_categ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	362	460	
==>};
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_categ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7402	7495	
==>h, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $ma <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7402	7495	
==>h, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10273	10389	
==>klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @bloc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10273	10389	
==>klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @bloc <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18020	18120	
==>gicalORExpression :words {  # see 11.11
      <LogicalANDExpression>
    | <LogicalORExpression> <'|| <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3839	3958	
==>ight sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3839	3958	
==>ight sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	577	682	
==>xt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	577	682	
==>xt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	577	682	
==>xt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12857	13009	
==>nless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12857	13009	
==>nless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12857	13009	
==>nless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	688	784	
==>er API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	688	784	
==>er API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1897	2008	
==>split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0.. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1897	2008	
==>split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5461	5555	
==>available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5461	5555	
==>available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5461	5555	
==>available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2J <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	21323	21444	
==>percent = 100*(scalar @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { can <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5016	5120	
==>o) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $on <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4143	4247	
==>o) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5016	5120	
==>o) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4143	4247	
==>o) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $on <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2841	2939	
==>ass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2738	2832	
==>ass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Com <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1893	2035	
==>\$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1881	2023	
==>\$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3272	3388	
==>ieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # smal <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3272	3388	
==>ieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # smal <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	736	840	
==>e (aka mad golfer)

use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'in <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14239	14354	
==>>= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<ra <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14239	14354	
==>>= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<ra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3652	3751	
==>$invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3652	3751	
==>$invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3652	3751	
==>$invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	164	259	
==>programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	164	259	
==>programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	164	259	
==>programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "th <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1787	2049	
==>n 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1787	2049	
==>n 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffe <==
5	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	206	328	
==>is >5 and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29932	30032	
==>t.

=item my $r = $obj->raw()

The raw representation of this object.  It does not look at the
childr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13948	14047	
==>N (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12183	12317	
==>[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovifica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12183	12317	
==>[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovifica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12183	12317	
==>[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovifica <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13377	13490	
==>ion.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated l <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13377	13490	
==>ion.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated l <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12466	12563	
==>2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1966	2063	
==>f:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12466	12563	
==>2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1966	2063	
==>f:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1966	2063	
==>f:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7390	7490	
==>ret val means module doesn't define key, skip to next module.
        $text = .get_template_text_from <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7390	7490	
==>ret val means module doesn't define key, skip to next module.
        $text = .get_template_text_from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7643	7732	
==>utothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7643	7732	
==>utothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7643	7732	
==>utothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functio <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7288	7407	
==>chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr( <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7288	7407	
==>chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1072	1184	
==>ad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1072	1184	
==>ad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1072	1184	
==>ad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4773	4869	
==>, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array> <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	302	396	
==>, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40780	40873	
==>eciate being informed any time you create a
modified version of Locale::KeyedText that you are <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40780	40873	
==>eciate being informed any time you create a
modified version of Locale::KeyedText that you are <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1866	1958	
==>{'num_width'} == 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{'num_wid <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2648	2755	
==>value on success, otherwise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $self- <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4091	4191	
==>t you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4091	4191	
==>t you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4171	4271	
==>t you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11191	11311	
==>on;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1661	1767	
==>on;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1661	1767	
==>on;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class T <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8507	8600	
==>ement ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=he <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8507	8600	
==>ement ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=he <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9703	9807	
==>w( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.cl <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9703	9807	
==>w( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3427	3519	
==>ib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3427	3519	
==>ib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3427	3519	
==>ib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21777	21942	
==>ush @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21777	21942	
==>ush @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21777	21942	
==>ush @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @clas <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14836	14941	
==>:KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECO <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14836	14941	
==>:KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9764	9927	
==>mber(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $sel <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1847	1992	
==>mber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $sel <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1847	1992	
==>mber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $sel <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2469	2584	
==>_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2469	2584	
==>_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5473	5576	
==>}
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5473	5576	
==>}
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1597	1692	
==>self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1597	1692	
==>self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1597	1692	
==>self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3859	3971	
==>if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3859	3971	
==>if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3859	3971	
==>if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self- <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2280	2379	
==>s until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD ( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2280	2379	
==>s until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3877	4004	
==>s a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3877	4004	
==>s a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3877	4004	
==>s a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{ <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1029	1140	
==>ree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1029	1140	
==>ree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6664	6784	
==>n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6664	6784	
==>n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7835	7939	
==>ses_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7835	7939	
==>ses_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7835	7939	
==>ses_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	963	1100	
==>ng_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	963	1100	
==>ng_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18992	19107	
==>om_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18992	19107	
==>om_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18992	19107	
==>om_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULT <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3154	3260	
==>te but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3154	3260	
==>te but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5531	5626	
==>ult), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5531	5626	
==>ult), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the te <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7055	7150	
==>ult), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the te <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	18734	18891	
==>);
            }
            when any(<E G F>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),1.0*$arg);
            }
            when <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5609	5703	
==>Rat';
    return get_meta('Complex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4161	4253	
==>is parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Ski <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4161	4253	
==>is parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Ski <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6358	6450	
==>is parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Ski <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7588	7737	
==>y ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expir <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7588	7737	
==>y ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expir <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6971	7072	
==>isrc -isrc/pcre -I. -Isrc -Isrc/pcre -static ";
    $ghc_flags .= " -Wall " #  -package-name Pugs -odi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2189	2284	
==>turn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2189	2284	
==>turn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5364	5480	
==>t('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5364	5480	
==>t('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5364	5480	
==>t('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12581	12676	
==>report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, St <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12639	12734	
==>report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3544	3688	
==>defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3544	3688	
==>defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3544	3688	
==>defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1676	1779	
==>::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1676	1779	
==>::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13272	13390	
==>know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13272	13390	
==>know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13272	13390	
==>know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_di <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8770	8879	
==>dly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_b <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8828	8937	
==>dly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_b <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7439	7569	
==>us_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 api;

    nulpat = savepv( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3538	3636	
==>e v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3538	3636	
==>e v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2 <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4073	4164	
==>alue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4073	4164	
==>alue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	174	270	
==>od

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	174	270	
==>od

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	174	270	
==>od

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	321	493	
==>lass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	321	493	
==>lass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	321	493	
==>lass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3446	3550	
==>eader_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_fiel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3446	3550	
==>eader_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_fiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8177	8279	
==>lass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8177	8279	
==>lass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8177	8279	
==>lass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $na <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	431	531	
==>erldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#l <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	431	531	
==>erldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14095	14196	
==>'@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14095	14196	
==>'@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14095	14196	
==>'@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14926	15017	
==>nqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14926	15017	
==>nqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1135	1232	
==>CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1135	1232	
==>CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1135	1232	
==>CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3922	4018	
==>ing utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document des <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3922	4018	
==>ing utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document des <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	439	539	
==>ngs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	984	1084	
==>ngs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), m <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	439	539	
==>ngs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	984	1084	
==>ngs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	984	1084	
==>ngs, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9659	9809	
==>Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reaso <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	241	385	
==>Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reaso <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	241	385	
==>Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reaso <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3103	3185	
==>f.complement_next, $self.complement_previous, $set.complement_next, $set.complement <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3103	3185	
==>f.complement_next, $self.complement_previous, $set.complement_next, $set.complement <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3651	3749	
==>y));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Roo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3651	3749	
==>y));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Roo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3651	3749	
==>y));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Roo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24566	24661	
==>ters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is mu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29118	29213	
==>ters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is mu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	830	945	
==>en.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	830	945	
==>en.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6057	6158	
==>_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6057	6158	
==>_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6057	6158	
==>_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2475	2629	
==>be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.i <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2475	2629	
==>be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3846	3933	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3846	3933	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3846	3933	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_un <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21959	22072	
==>* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef P <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16861	16973	
==>* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10163	10273	
==>or my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10163	10273	
==>or my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10163	10273	
==>or my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4649	4754	
==>s defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4649	4754	
==>s defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13656	13756	
==>>send('CREATE' => ($e->get('$canidate'), $e->get('%params'))));
                $e->get('$self')->sen <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1103	1198	
==>or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1103	1198	
==>or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and re <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	412	511	
==>is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	957	1056	
==>is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just n <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	412	511	
==>is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	957	1056	
==>is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	957	1056	
==>is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24176	24312	
==>y $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24176	24312	
==>y $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24176	24312	
==>y $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [] <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	15	109	
==>:DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	15	109	
==>:DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14643	14761	
==>arn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14643	14761	
==>arn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14643	14761	
==>arn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	753	855	
==>todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	811	913	
==>todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6231	6360	
==>ode'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6231	6360	
==>ode'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6231	6360	
==>ode'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7127	7221	
==>ation to the output.

A default implementation of this method is provided which returns nothing <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7127	7221	
==>ation to the output.

A default implementation of this method is provided which returns nothing <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6553	6711	
==>y { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10760	10918	
==>y { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7840	7992	
==>y { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6342	6494	
==>y { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7840	7992	
==>y { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $ma <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13500	13626	
==>SIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Tr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13500	13626	
==>SIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2786	2896	
==>s should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2786	2896	
==>s should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2786	2896	
==>s should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	279	398	
==>self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	279	398	
==>self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	279	398	
==>self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	274	393	
==>ock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to work



{

  package <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	264	379	
==>ock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to work

{
  package <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6121	6246	
==>], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3288	3413	
==>], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4137	4262	
==>], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31598	31695	
==>rns True or False regardless of its
argument, in which case the new Relation has either all of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36148	36245	
==>rns True or False regardless of its
argument, in which case the new Relation has either all of the <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5386	5516	
==>ext unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.de <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5386	5516	
==>ext unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.de <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5727	5837	
==>ame = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3063	3173	
==>ame = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3912	4022	
==>ame = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	72	160	
==>ot::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	72	160	
==>ot::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	72	160	
==>ot::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18881	18978	
==>del::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11676	11773	
==>oes Role since they
are just instances of Class which does Role too. So this means that all classe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18881	18978	
==>del::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11676	11773	
==>oes Role since they
are just instances of Class which does Role too. So this means that all classe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11676	11773	
==>oes Role since they
are just instances of Class which does Role too. So this means that all classe <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15677	15804	
==>s and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $self->{lone_no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1071	1184	
==>rst match (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # upd <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1422	1533	
==>rst match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upd <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1029	1140	
==>rst match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1422	1533	
==>rst match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upd <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	310	558	
==>used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.72 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	310	558	
==>used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.72 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	854	952	
==>%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	854	952	
==>%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	854	952	
==>%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12396	12506	
==>y $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12396	12506	
==>y $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12396	12506	
==>y $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5741	5837	
==>head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (succes <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5741	5837	
==>head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (succes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8379	8481	
==>ILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Build <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1069	1169	
==>hm is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to comb <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1069	1169	
==>hm is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to comb <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	583	679	
==>ILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	583	679	
==>ILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Build <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2506	2628	
==>STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2506	2628	
==>STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	499	596	
==>tive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	499	596	
==>tive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	499	596	
==>tive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15639	15759	
==>) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10495	10615	
==>) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11889	12004	
==>f any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_produ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15366	15481	
==>f any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_produ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14701	14816	
==>f any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_produ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	616	725	
==>become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getEl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	616	725	
==>become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getEl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	616	725	
==>become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getEl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11337	11435	
==>Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11337	11435	
==>Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.hea <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2283	2378	
==>The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17038	17133	
==>:Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlin <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2283	2378	
==>The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17038	17133	
==>:Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17038	17133	
==>:Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	504	604	
==>* Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finishe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	504	604	
==>* Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finishe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	504	604	
==>* Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finishe <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2594	2691	
==>ee Software, and may be used, distributed and modified under 
the same terms as Perl itself.

=cut <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2594	2691	
==>ee Software, and may be used, distributed and modified under 
the same terms as Perl itself.

=cut <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	559	683	
==>equire CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "H <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	559	683	
==>equire CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34679	34797	
==>ngth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34679	34797	
==>ngth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34679	34797	
==>ngth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9060	9197	
==>=> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9060	9197	
==>=> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9060	9197	
==>=> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'st <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1008	1104	
==>or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1008	1104	
==>or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1726	1829	
==>prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  war <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1726	1829	
==>prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  war <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1726	1829	
==>prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  war <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8687	8780	
==>ame).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8687	8780	
==>ame).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	650	757	
==>le( $rule_source, $param )
        if exists $param->{P5} || exists $param->{Perl5};

    my $self = { sourc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23975	24081	
==>s too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22748	22854	
==>s too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23975	24081	
==>s too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22748	22854	
==>s too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7287	7416	
==>ex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7287	7416	
==>ex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5723	5847	
==>rgs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5723	5847	
==>rgs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5723	5847	
==>rgs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9915	10020	
==>ail 
    # for the methods described below.
    # -----------------------------------------------
    # ha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9915	10020	
==>ail 
    # for the methods described below.
    # -----------------------------------------------
    # ha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9915	10020	
==>ail 
    # for the methods described below.
    # -----------------------------------------------
    # ha <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20307	20403	
==>t, while it performs correctly
and reliably, it also performs quite slowly; you should only use E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20307	20403	
==>t, while it performs correctly
and reliably, it also performs quite slowly; you should only use E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23691	23802	
==>fined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23691	23802	
==>fined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23691	23802	
==>fined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2355	2448	
==>iedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2355	2448	
==>iedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2496	2611	
==>new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->vers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2496	2611	
==>new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->vers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2496	2611	
==>new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->vers <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4986	5080	
==>d>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
co <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4986	5080	
==>d>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5469	5670	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5469	5670	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5469	5670	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            } <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4048	4144	
==>&Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4048	4144	
==>&Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	984	1102	
==>][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	984	1102	
==>][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    us <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	676	774	
==>%tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normaliz <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	676	774	
==>%tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normaliz <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	474	571	
==>ot_Interp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap t <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3364	3484	
==>horn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # s <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3364	3484	
==>horn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3353	3464	
==>-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3353	3464	
==>-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3353	3464	
==>-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.is <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13581	13723	
==>or_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13581	13723	
==>or_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27803	27897	
==>returns a
value that is optionally a calculation using original attribute values as
inputs.  As <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32355	32449	
==>returns a
value that is optionally a calculation using original attribute values as
inputs.  As <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31447	31541	
==>returns a
value that is optionally a calculation using original attribute values as
inputs.  As <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8705	8813	
==>se => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8705	8813	
==>se => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8353	8457	
==>/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8353	8457	
==>/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8353	8457	
==>/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	658	756	
==>pe
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Uti <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	658	756	
==>pe
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Uti <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22725	22820	
==>contains zero or more Relation attribute names that
define the heading of this Relation.  Each a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27277	27372	
==>contains zero or more Relation attribute names that
define the heading of this Relation.  Each a <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4327	4412	
==>_dynamic_alt(\@whitespaces));

my @statements;
def_rule('statement',mk_dynamic_alt(\@s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1158	1284	
==>nt "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $prog <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1363	1489	
==>nt "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $prog <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	713	803	
==>ULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	713	803	
==>ULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	713	803	
==>ULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2072	2209	
==>p @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2072	2209	
==>p @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7447	7568	
==>ns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::en <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7447	7568	
==>ns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::en <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31201	31299	
==>the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3063	3171	
==>}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3063	3171	
==>}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3063	3171	
==>}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6878	6975	
==>O - optimization - return the internal list object, if there is one
    return Perl6::Value::List. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6878	6975	
==>O - optimization - return the internal list object, if there is one
    return Perl6::Value::List. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9982	10159	
==>ture_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9982	10159	
==>ture_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9982	10159	
==>ture_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $sel <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1593	1692	
==>$match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1593	1692	
==>$match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@p <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2400	2508	
==>esult;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 { <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2400	2508	
==>esult;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2940	3040	
==>am}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2940	3040	
==>am}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2940	3040	
==>am}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPa <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1246	1415	
==>n,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1246	1415	
==>n,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14818	14913	
==>Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14818	14913	
==>Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14818	14913	
==>Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::Pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3394	3505	
==>tore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var _ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3394	3505	
==>tore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var _ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3394	3505	
==>tore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var _ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9137	9242	
==>self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # retur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9137	9242	
==>self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # retur <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2771	2894	
==>val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7865	7988	
==>val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2771	2894	
==>val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7865	7988	
==>val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_w <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8280	8382	
==>ry') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "can't unify $x->{name <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3718	3873	
==>urn;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve th <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4182	4337	
==>urn;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3546	3667	
==>description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3546	3667	
==>description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5070	5191	
==>description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $d <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9693	9797	
==>{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    retur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9693	9797	
==>{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1271	1366	
==>ut;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
lo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1271	1366	
==>ut;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
lo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1271	1366	
==>ut;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
lo <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4690	4815	
==>XX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compar <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4690	4815	
==>XX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compar <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4348	4446	
==>passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the facto <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4348	4446	
==>passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the facto <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6545	6643	
==>passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the facto <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4391	4484	
==>}

=head2 $bool = $repo->add_package_to_index(package => $pkg)

Adds a package to all necessar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1658	1750	
==>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1658	1750	
==>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	276	365	
==>c_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	309	398	
==>c_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6923	7073	
==>cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6923	7073	
==>cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6923	7073	
==>cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	606	728	
==>ize = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } e <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	606	728	
==>ize = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } e <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1104	1223	
==>t       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4343	4462	
==>t       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1104	1223	
==>t       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4343	4462	
==>t       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3045	3136	
==>term1>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8723	8899	
==>y = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8723	8899	
==>y = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8723	8899	
==>y = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $sel <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3818	3900	
==>._get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3818	3900	
==>._get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33331	33537	
==>gth;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33331	33537	
==>gth;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33331	33537	
==>gth;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9697	9860	
==>p { _pp_depends( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	19361	19520	
==>nt_list)[0]->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the to <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2855	3001	
==>y_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3602	3732	
==>me =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3602	3732	
==>me =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3602	3732	
==>me =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{met <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3049	3164	
==>({
        item => '<item>',
    } );
}



__END__

use Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3189	3288	
==>tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3189	3288	
==>tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3189	3288	
==>tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	476	571	
==>Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_stri <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	476	571	
==>Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_stri <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	588	689	
==>viour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> o <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	588	689	
==>viour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5315	5414	
==>4main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5315	5414	
==>4main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5315	5414	
==>4main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10015	10114	
==>ies to set the input, and input that
fails immediate evaluation will not be set at all.  The scope o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10015	10114	
==>ies to set the input, and input that
fails immediate evaluation will not be set at all.  The scope o <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2327	2520	
==>or_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>(' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2327	2520	
==>or_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>(' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1408	1597	
==>, ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1408	1597	
==>, ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / t <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21684	21776	
==>_type(C, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2649	2756	
==>/ We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2649	2756	
==>/ We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2649	2756	
==>/ We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arra <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9805	9897	
==>ts of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containin <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9805	9897	
==>ts of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1054	1154	
==>ied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1054	1154	
==>ied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1054	1154	
==>ied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40264	40356	
==>:KeyedText that you modify and distribute must carry
prominent notices stating that you chang <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40264	40356	
==>:KeyedText that you modify and distribute must carry
prominent notices stating that you chang <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1062	1195	
==>s $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.c <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1062	1195	
==>s $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1791	1905	
==>->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1791	1905	
==>->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1791	1905	
==>->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pI <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1914	2057	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2107	2250	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_de <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10359	10498	
==>\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6700	6839	
==>\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7549	7688	
==>\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1996	2143	
==>L2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1996	2143	
==>L2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1996	2143	
==>L2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7080	7170	
==>tta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7080	7170	
==>tta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	580	677	
==>pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	580	677	
==>pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20929	21025	
==>6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20929	21025	
==>6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20929	21025	
==>6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22549	22669	
==>, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23051	23171	
==>, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3312	3423	
==>log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3312	3423	
==>log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3312	3423	
==>log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5037	5194	
==>name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5037	5194	
==>name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5037	5194	
==>name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	359	462	
==>ODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	171	270	
==>ODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4088	4197	
==>f $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4305	4414	
==>f $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4634	4730	
==>y($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub field_is_optional { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	284	372	
==>= Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	317	405	
==>= Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6048	6177	
==>word} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_call: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7122	7223	
==>tting the removal of siblings 
# as I think in general it is a bad idea

## -------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7122	7223	
==>tting the removal of siblings 
# as I think in general it is a bad idea

## -------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3367	3458	
==>::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, w <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3367	3458	
==>::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4144	4269	
==>^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4144	4269	
==>^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5527	5627	
==>_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5527	5627	
==>_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5527	5627	
==>_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8840	8998	
==>turn;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8840	8998	
==>turn;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4614	4722	
==>$ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($wr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4614	4722	
==>$ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($wr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4614	4722	
==>$ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($wr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2305	2406	
==>ds,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2305	2406	
==>ds,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2305	2406	
==>ds,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $g <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2999	3094	
==>.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value o <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2999	3094	
==>.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3406	3566	
==>0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3406	3566	
==>0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3406	3566	
==>0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34775	34878	
==>ew(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does no <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34775	34878	
==>ew(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	609	715	
==>hink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	609	715	
==>hink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	609	715	
==>hink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10076	10165	
==>undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10811	10900	
==>undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4464	4629	
==>++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4464	4629	
==>++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4464	4629	
==>++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15197	15293	
==>t.  This interface is rigorously defined, such that there
should be no ambiguity when trying to i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15197	15293	
==>t.  This interface is rigorously defined, such that there
should be no ambiguity when trying to i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15808	15935	
==>arget $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15808	15935	
==>arget $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2416	2511	
==>rom_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2416	2511	
==>rom_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2416	2511	
==>rom_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11261	11360	
==>ir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($F <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11261	11360	
==>ir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($F <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11261	11360	
==>ir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($F <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	712	809	
==>dards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfou <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	712	809	
==>dards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfou <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	341	574	
==>= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	341	574	
==>= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10274	10390	
==>pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_clos <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	335	437	
==>["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $matc <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	335	437	
==>["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $matc <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4156	4323	
==>$step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $st <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4156	4323	
==>$step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8613	8778	
==>::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8613	8778	
==>::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8613	8778	
==>::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8940	9078	
==>'$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8940	9078	
==>'$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8940	9078	
==>'$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7912	8013	
==>( spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this c <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7912	8013	
==>( spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7994	8088	
==>uby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub * <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7124	7218	
==>uby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub * <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7994	8088	
==>uby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub * <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7124	7218	
==>uby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub * <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	765	855	
==>roken $?
my $Ignore_Exitcode = $ENV{HARNESS_IGNORE_EXITCODE};

my $Files_In_Dir = $ENV{HARN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	632	782	
==>st/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	667	817	
==>st/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	632	782	
==>st/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $ <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9849	9999	
==>st/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $ <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1105	1255	
==>st/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10503	10685	
==>_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10503	10685	
==>_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9457	9571	
==>s.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9457	9571	
==>s.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9457	9571	
==>s.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3274	3383	
==>rl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3274	3383	
==>rl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3274	3383	
==>rl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functio <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	599	696	
==>ame keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour ar <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	599	696	
==>ame keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4196	4328	
==>op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{bar <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1308	1420	
==>s for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_de <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	868	980	
==>s for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_de <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16228	16319	
==>::KeyedText provides a simple but effective mechanism for
applications and packages that emp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16228	16319	
==>::KeyedText provides a simple but effective mechanism for
applications and packages that emp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9245	9394	
==>.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9245	9394	
==>.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7169	7280	
==>:VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7169	7280	
==>:VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7169	7280	
==>:VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangl <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4419	4573	
==>.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4419	4573	
==>.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $m <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	587	691	
==>n} = { map { $_ => $_ } @nodes };
	$self->{names} = { $program => '$main' };

	$self->make_name($_) for @ <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1013	1106	
==>array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1013	1106	
==>array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22109	22208	
==>on of the regex.

=item len

The length of the original string representation of the regex.

=item t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7670	7768	
==>and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object r <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7670	7768	
==>and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object r <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	733	827	
==>y just accessor methods
for variables.

=item *

unbound private attributes, which are actually <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1707	1800	
==>nd value encapsulation features.

They are discussed in the main L<Blondie> documentation.

=c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7236	7384	
==>t.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7236	7384	
==>t.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7236	7384	
==>t.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      | <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9972	10117	
==>)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10251	10396	
==>)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_cap <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19960	20129	
==>get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params') <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40420	40589	
==>get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5932	6031	
==>~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5932	6031	
==>~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB unde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5932	6031	
==>~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB unde <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22717	22839	
==>ts, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22996	23118	
==>ts, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2578	2683	
==>5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2578	2683	
==>5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2578	2683	
==>5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2529	2639	
==>headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2529	2639	
==>headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3305	3390	
==>instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3305	3390	
==>instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3305	3390	
==>instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21477	21596	
==>can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6224	6332	
==>ded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params retur <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6224	6332	
==>ded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params retur <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1979	2086	
==>o prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2859	2966	
==>o prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1403	1503	
==>FEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1403	1503	
==>FEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1403	1503	
==>FEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6008	6107	
==>we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6008	6107	
==>we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20594	20691	
==>ple if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you migh <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20594	20691	
==>ple if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you migh <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30901	30997	
==>ns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35451	35547	
==>ns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34642	34738	
==>ns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5853	5969	
==>$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5841	5957	
==>$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34830	34932	
==>, $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34830	34932	
==>, $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34830	34932	
==>, $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21634	21730	
==>",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21634	21730	
==>",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kic <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	709	820	
==>tfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b } <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	709	820	
==>tfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2955	3062	
==>de sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2955	3062	
==>de sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2955	3062	
==>de sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7145	7255	
==>cc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7145	7255	
==>cc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7145	7255	
==>cc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12984	13080	
==>urns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string repre <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12984	13080	
==>urns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string repre <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11690	11805	
==>: undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $refty <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10085	10179	
==>cular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all paramet <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8025	8119	
==>cular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all paramet <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10085	10179	
==>cular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all paramet <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8025	8119	
==>cular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all paramet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14283	14417	
==>rn $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14283	14417	
==>rn $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14283	14417	
==>rn $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17011	17134	
==>lasses
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

Ther <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18849	18941	
==>my method _intersection (Relation::Example $other!) returns Relation::Example {
    return Re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1510	1623	
==>y $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submeth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1510	1623	
==>y $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submeth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2827	2938	
==>n $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2827	2938	
==>n $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2827	2938	
==>n $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1823	1977	
==>instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2028	2182	
==>instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2091	2245	
==>instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:super <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3579	3689	
==>:$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3637	3747	
==>:$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9155	9254	
==>UB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9155	9254	
==>UB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9155	9254	
==>UB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14841	14935	
==>e and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14841	14935	
==>e and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10002	10107	
==>int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10002	10107	
==>int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10002	10107	
==>int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n" <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2438	2534	
==>ot content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L< <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2438	2534	
==>ot content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L< <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	10	132	
==>odule File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is e <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	10	132	
==>odule File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7799	7895	
==>exicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7799	7895	
==>exicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7799	7895	
==>exicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5983	6085	
==>::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5983	6085	
==>::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1490	1590	
==>elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1490	1590	
==>elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1490	1590	
==>elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PG <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19704	19852	
==>++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16125	16273	
==>++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1630	1736	
==>(
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1630	1736	
==>(
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1630	1736	
==>(
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12808	12981	
==>|
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data() <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12808	12981	
==>|
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4875	4981	
==>->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4875	4981	
==>->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4875	4981	
==>->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $s <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8627	8731	
==>of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8627	8731	
==>of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1831	1933	
==>nt Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1008	1108	
==>nt Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1481	1581	
==>nt Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1112	1222	
==>t
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: * <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1092	1202	
==>t
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: * <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1112	1222	
==>t
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: * <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1092	1202	
==>t
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: * <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1794	1898	
==>CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10667	10807	
==>n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7008	7148	
==>n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7857	7997	
==>n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data:: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8964	9083	
==>ation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12441	12560	
==>ation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11014	11170	
==>= ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $q <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11014	11170	
==>= ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4319	4408	
==>= qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4319	4408	
==>= qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4319	4408	
==>= qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4994	5112	
==>se
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly wi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4994	5112	
==>se
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly wi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4994	5112	
==>se
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly wi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	332	436	
==>to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	332	436	
==>to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1834	1932	
==>_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1834	1932	
==>_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1834	1932	
==>_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9553	9648	
==>lare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9553	9648	
==>lare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2347	2461	
==>iMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.O <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2347	2461	
==>iMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.O <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2347	2461	
==>iMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17329	17426	
==>item *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17329	17426	
==>item *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10355	10496	
==>) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6696	6837	
==>) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7545	7686	
==>) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10847	10965	
==>b {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1838	1935	
==>,t/macros --output_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2195	2324	
==>ta::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2195	2324	
==>ta::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2542	2671	
==>ta::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7001	7095	
==>s, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7001	7095	
==>s, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_s <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13756	13886	
==>moke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</body>
</htm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	16	118	
==>itter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	16	118	
==>itter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
u <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4008	4115	
==>ompile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4225	4332	
==>ompile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "c <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	769	890	
==>doc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	769	890	
==>doc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	876	970	
==>the normal output filehandle, adding leading C<#>
characters after all newlines if they are not <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	876	970	
==>the normal output filehandle, adding leading C<#>
characters after all newlines if they are not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1432	1526	
==>the normal output filehandle, adding leading C<#>
characters after all newlines if they are not <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	157	267	
==>tatement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	157	267	
==>tatement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	157	267	
==>tatement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2105	2207	
==>ker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->nam <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1214	1313	
==>ker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->nam <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10150	10284	
==>ty;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entiti <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10150	10284	
==>ty;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entiti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	854	963	
==>s {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	854	963	
==>s {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	854	963	
==>s {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2981	3133	
==>0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2981	3133	
==>0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2981	3133	
==>0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5835	5943	
==>1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @ite <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5835	5943	
==>1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @ite <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4970	5112	
==>ist)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1369	1491	
==>:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is co <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1369	1491	
==>:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21201	21289	
==>annel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {... <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21201	21289	
==>annel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {... <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5652	5755	
==>keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5652	5755	
==>keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8826	8935	
==>ule_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8826	8935	
==>ule_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	471	558	
==>Class = undef;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	471	558	
==>Class = undef;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	471	558	
==>Class = undef;

## --------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1843	1972	
==>s(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1843	1972	
==>s(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1843	1972	
==>s(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3325	3426	
==>ex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ( <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3325	3426	
==>ex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7206	7379	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7206	7379	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7206	7379	
==>)->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($sel <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	872	971	
==>?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	872	971	
==>?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	550	672	
==>:create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	550	672	
==>:create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	550	672	
==>:create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot c <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1327	1430	
==>------ end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_ne <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1327	1430	
==>------ end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6250	6372	
==>h )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6262	6384	
==>h )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4703	4801	
==>my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4703	4801	
==>my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4703	4801	
==>my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38120	38281	
==>ore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fil <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38120	38281	
==>ore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fil <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38120	38281	
==>ore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35253	35348	
==>ash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_nam <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35253	35348	
==>ash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_nam <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5005	5117	
==>SE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our datab <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5005	5117	
==>SE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our datab <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12736	12836	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12736	12836	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12736	12836	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2492	2612	
==>undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2492	2612	
==>undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2492	2612	
==>undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5636	5737	
==>ead: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail ) <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5636	5737	
==>ead: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail ) <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4558	4660	
==>et1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $dif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4558	4660	
==>et1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4046	4131	
==>GIN BOOTSTRAPPING AREA
## ------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4046	4131	
==>GIN BOOTSTRAPPING AREA
## ------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4046	4131	
==>GIN BOOTSTRAPPING AREA
## ------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10821	10964	
==>h = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7898	8033	
==>h = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7898	8033	
==>h = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26273	26372	
==>ing, and each variable value can be anything at
all.  Note that while the Hash itself is copied on i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26273	26372	
==>ing, and each variable value can be anything at
all.  Note that while the Hash itself is copied on i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8381	8486	
==>implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 1000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8381	8486	
==>implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 1000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8381	8486	
==>implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 1000 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15306	15407	
==>rt these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HT <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15306	15407	
==>rt these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HT <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2250	2425	
==>$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
s <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2250	2425	
==>$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	464	573	
==>[ $ | \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14428	14521	
==>pen my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0 <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16127	16217	
==>> <ShiftExpression>
    | <RelationalExpressionNoIn> <'instanceof'> <ShiftExpression>
}
rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5223	5374	
==>die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5223	5374	
==>die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5223	5374	
==>die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            def <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4711	4818	
==>le('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $k <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4570	4677	
==>le('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $k <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4323	4419	
==>t]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1334	1426	
==>ontext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1334	1426	
==>ontext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6087	6199	
==>$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %! <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6867	6979	
==>$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6087	6199	
==>$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6867	6979	
==>$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %! <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15609	15700	
==>,E0).

rm(standalone(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11032	11142	
==>ram->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11032	11142	
==>ram->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11032	11142	
==>ram->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	159	258	
==>nfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config: <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	159	258	
==>nfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	559	673	
==>nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/] <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	559	673	
==>nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5145	5237	
==>lass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5145	5237	
==>lass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5145	5237	
==>lass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Clas <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4851	4941	
==>ate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5101	5191	
==>ate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20211	20298	
==>tch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20211	20298	
==>tch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20211	20298	
==>tch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1243	1378	
==>am_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1243	1378	
==>am_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1243	1378	
==>am_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, su <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2825	2944	
==>int cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $en <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2825	2944	
==>int cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $en <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2106	2218	
==>List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box(" <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2106	2218	
==>List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box(" <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4750	4846	
==>map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4750	4846	
==>map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8532	8626	
==>om Foo singleton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Object <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4196	4312	
==>en        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more th <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4196	4312	
==>en        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3803	3908	
==>me the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3803	3908	
==>me the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3803	3908	
==>me the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29710	29878	
==>erl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29710	29878	
==>erl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29710	29878	
==>erl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37002	37100	
==>sage );

=back

The Translator class also has these utility methods, which are all used by
translat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37002	37100	
==>sage );

=back

The Translator class also has these utility methods, which are all used by
translat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3465	3606	
==>a("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3465	3606	
==>a("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3465	3606	
==>a("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1308	1434	
==>~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $strin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1308	1434	
==>~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $strin <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11162	11310	
==>0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $resu <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11162	11310	
==>0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $resu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8616	8739	
==>$oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8616	8739	
==>$oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %user <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1356	1472	
==>ontrol
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$srcdi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7421	7577	
==>e_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'ta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7421	7577	
==>e_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11575	11677	
==>urn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11575	11677	
==>urn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11575	11677	
==>urn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2506	2623	
==>$base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2506	2623	
==>$base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	17	132	
==>kage PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	17	132	
==>kage PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	17	132	
==>kage PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SO <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2167	2290	
==>[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2167	2290	
==>[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3267	3362	
==>t

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test clas <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3267	3362	
==>t

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5464	5559	
==>t

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test clas <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6269	6369	
==>nf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6269	6369	
==>nf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2561	2660	
==>',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2561	2660	
==>',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2561	2660	
==>',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5278	5409	
==>>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sou <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6546	6677	
==>>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5278	5409	
==>>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6534	6665	
==>>(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - sou <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5398	5512	
==>to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    ### build a from => to ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12916	13025	
==>p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12916	13025	
==>p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12916	13025	
==>p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12792	12890	
==>e fields removed.  In scalar
context the number of fields removed is returned.

Note that if you pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12792	12890	
==>e fields removed.  In scalar
context the number of fields removed is returned.

Note that if you pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5991	6116	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5991	6116	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5991	6116	
==>ribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cla <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4640	4759	
==>ue.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4640	4759	
==>ue.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differ <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11513	11629	
==>ame></th></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var nam <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11887	11984	
==>:Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13279	13376	
==>:Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11887	11984	
==>:Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13279	13376	
==>:Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end = <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14207	14350	
==>[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = $f_test->($noop);
      }
      if(no <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14516	14619	
==>though we've pinged the server (probably several times). So, we
        # conclude, the connection is b0 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14516	14619	
==>though we've pinged the server (probably several times). So, we
        # conclude, the connection is b0 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13553	13652	
==>though we've pinged the server (probably several times). So, we
    # conclude, the connection is b0 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13553	13652	
==>though we've pinged the server (probably several times). So, we
    # conclude, the connection is b0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11963	12084	
==>method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11963	12084	
==>method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11963	12084	
==>method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20164	20254	
==>name contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20164	20254	
==>name contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30848	31014	
==>se {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30848	31014	
==>se {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30848	31014	
==>se {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->el <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8733	8822	
==>:Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edit <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8733	8822	
==>:Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5742	5884	
==>ch, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5754	5896	
==>ch, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3742	3865	
==>>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   sta <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3742	3865	
==>>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   sta <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3742	3865	
==>>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	86	249	
==>^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	86	249	
==>^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1766	1863	
==>-s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1766	1863	
==>-s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1766	1863	
==>-s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pre <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5428	5547	
==>s) = @_;
    my $pass;
    if (!defined $got or !defined $expected or !defined $range) {
        # This is a fail, but d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	226	334	
==>die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	226	334	
==>die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	226	334	
==>die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the ref <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5803	5909	
==>lf->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14083	14203	
==>e + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14083	14203	
==>e + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14083	14203	
==>e + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bin <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6345	6465	
==>e + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bin <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4847	4967	
==>e + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19681	19810	
==>/, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16102	16231	
==>/, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5073	5166	
==>on>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mess <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5073	5166	
==>on>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mess <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7270	7363	
==>on>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mess <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5211	5345	
==>if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5211	5345	
==>if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5211	5345	
==>if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => : <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12863	12961	
==>turned.

Note that if you pass in multiple field names then it is generally not
possible to tell wh <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12863	12961	
==>turned.

Note that if you pass in multiple field names then it is generally not
possible to tell wh <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6127	6373	
==>$index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6591	6837	
==>$index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5843	5939	
==>ues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5843	5939	
==>ues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8040	8136	
==>ues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2222	2326	
==>before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2222	2326	
==>before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	521	618	
==>:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	521	618	
==>:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	521	618	
==>:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28769	28875	
==>e "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welco <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28769	28875	
==>e "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9421	9525	
==>r/accessor

    # -----------------------------------------------      
    # this collects a unique list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9421	9525	
==>r/accessor

    # -----------------------------------------------      
    # this collects a unique list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9421	9525	
==>r/accessor

    # -----------------------------------------------      
    # this collects a unique list <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	632	736	
==>0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	632	736	
==>0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	632	736	
==>0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 an <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32883	32980	
==>essage()> method, but it has no other side effects.

A Translator object has 2 main attributes:

= <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32883	32980	
==>essage()> method, but it has no other side effects.

A Translator object has 2 main attributes:

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1419	1519	
==>- store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1419	1519	
==>- store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1419	1519	
==>- store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12810	12906	
==>y `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12868	12964	
==>y `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5502	5632	
==>re

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5327	5452	
==>re
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1278	1379	
==>) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1278	1379	
==>) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1278	1379	
==>) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	555	702	
==>>code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	555	702	
==>>code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4634	4738	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4634	4738	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4634	4738	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3672	3772	
==>f $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $D <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3672	3772	
==>f $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $D <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	56	155	
==>ts and other collections
# like Bags, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9334	9424	
==>PTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers cons <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9334	9424	
==>PTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers cons <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2114	2217	
==>$@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2551	2651	
==>n $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersectio <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5754	5854	
==>n $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersectio <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2551	2651	
==>n $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersectio <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5754	5854	
==>n $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersectio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2700	2806	
==>push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2700	2806	
==>push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2700	2806	
==>push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24349	24442	
==>le::KeyedText is entirely object-oriented; you use it
by creating objects from its member clas <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24349	24442	
==>le::KeyedText is entirely object-oriented; you use it
by creating objects from its member clas <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2050	2227	
==>b { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           ( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2050	2227	
==>b { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3650	3754	
==>dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3650	3754	
==>dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3650	3754	
==>dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15782	15876	
==>d1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free softwar <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15782	15876	
==>d1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free softwar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1472	1561	
==>uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1472	1561	
==>uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1472	1561	
==>uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	352	472	
==>{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	352	472	
==>{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	860	965	
==>s primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	860	965	
==>s primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	860	965	
==>s primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infi <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13292	13458	
==>x;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3461	3607	
==>x;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3461	3607	
==>x;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3461	3607	
==>x;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($st <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7344	7456	
==>f;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1047	1152	
==>ching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.* <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1047	1152	
==>ching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.* <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	533	630	
==>es all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	533	630	
==>es all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1089	1186	
==>es all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The fi <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1006	1136	
==>uf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while +@newtoks > 2 
         || +@newtoks && !defined $i <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	419	517	
==>_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	419	517	
==>_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1431	1528	
==>_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1431	1528	
==>_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35737	35860	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35737	35860	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35737	35860	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2690	2797	
==>l and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2690	2797	
==>l and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	297	505	
==>) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	297	505	
==>) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	297	505	
==>) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) b <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1148	1251	
==>:Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1148	1251	
==>:Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8548	8652	
==>rl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8548	8652	
==>rl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8548	8652	
==>rl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1655	1746	
==>e (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attri <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1655	1746	
==>e (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9792	9914	
==>---    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation det <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9792	9914	
==>---    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation det <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9792	9914	
==>---    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation det <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9169	9277	
==>ression.arity) );
     }
   }
 }


=item reduce

 multi Array::reduce (@values ; Code *&expression --> Scalar <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7759	7862	
==>elf = shift;
	my $prim = shift;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4126	4234	
==>[ 'file4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ ' <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	674	776	
==>ay.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	674	776	
==>ay.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13516	13605	
==>aracter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13516	13605	
==>aracter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13427	13531	
==>===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13427	13531	
==>===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7274	7362	
==>t hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7274	7362	
==>t hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7274	7362	
==>t hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, I <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11649	11751	
==>push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11649	11751	
==>push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	832	926	
==>$x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	832	926	
==>$x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	832	926	
==>$x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mu <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	340	461	
==>e in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	340	461	
==>e in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	458	552	
==>(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	458	552	
==>(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	458	552	
==>(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34164	34289	
==>List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34164	34289	
==>List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34164	34289	
==>List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13734	13834	
==>riginal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13734	13834	
==>riginal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37170	37269	
==>duct>.  In any situation where the heading of one source relation is a
full subset of another, the r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41719	41818	
==>duct>.  In any situation where the heading of one source relation is a
full subset of another, the r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41342	41441	
==>duct>.  In any situation where the heading of one source relation is a
full subset of another, the r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2624	2729	
==>.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2528	2627	
==>.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	671	764	
==>tput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wri <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	671	764	
==>tput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1227	1320	
==>tput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wri <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8087	8209	
==>_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), gre <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6753	6870	
==>my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_int <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6753	6870	
==>my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_int <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1564	1672	
==>ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $s <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1564	1672	
==>ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7620	7729	
==>");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str :: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7620	7729	
==>");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str :: <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6083	6181	
==>ne, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 't <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18979	19070	
==>. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_aut <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18979	19070	
==>. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_aut <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9929	10043	
==>ve zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13406	13520	
==>ve zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1759	1867	
==>args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1759	1867	
==>args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1759	1867	
==>args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11523	11664	
==>ode = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7805	7946	
==>ode = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8639	8780	
==>ode = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1028	1166	
==>ay   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|n <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1028	1166	
==>ay   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	512	617	
==>OF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	512	617	
==>OF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	512	617	
==>OF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if( <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1667	1754	
==>$expr =~ s/\$\+\[([0-9]+)\]/'".$m->['.($1-1).']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10218	10337	
==>_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10218	10337	
==>_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10218	10337	
==>_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29375	29494	
==>O - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29375	29494	
==>O - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29375	29494	
==>O - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35720	35812	
==>ti-method is a generic binary relational operator that takes
another Relation as its C<$other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40270	40362	
==>ti-method is a generic binary relational operator that takes
another Relation as its C<$other <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1797	1909	
==>y $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	908	1018	
==>y $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1569	1666	
==>atching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1569	1666	
==>atching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1613	1708	
==>self->leave_scope; # deletes pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash str <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6767	6900	
==>ed capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6767	6900	
==>ed capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1783	1882	
==>om);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EE <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7657	7752	
==>will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7398	7490	
==>will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23258	23355	
==>ernals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23258	23355	
==>ernals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23258	23355	
==>ernals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33321	33417	
==>rogram or library may wish to override the user text of another library
which it uses, the Templa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33321	33417	
==>rogram or library may wish to override the user text of another library
which it uses, the Templa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11959	12187	
==>[
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expressio <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11959	12187	
==>[
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expressio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14764	14936	
==>ps}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14764	14936	
==>ps}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14764	14936	
==>ps}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self- <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14388	14522	
==>then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Rege <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8680	8791	
==>_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8676	8787	
==>_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'} <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3613	3709	
==>hm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Sch <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3613	3709	
==>hm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Sch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13194	13298	
==>::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13194	13298	
==>::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13194	13298	
==>::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23586	23753	
==>fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23586	23753	
==>fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23586	23753	
==>fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scal <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27643	27739	
==>C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27643	27739	
==>C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2881	2994	
==>heck the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2881	2994	
==>heck the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	344	452	
==>er... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	344	452	
==>er... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	344	452	
==>er... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7360	7528	
==>ss dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7824	7992	
==>ss dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2134	2236	
==>(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2134	2236	
==>(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2134	2236	
==>(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	646	772	
==>my $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pug <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2241	2333	
==>erl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2241	2333	
==>erl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1468	1558	
==>erl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3329	3419	
==>erl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7840	7969	
==>g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7840	7969	
==>g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7840	7969	
==>g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nul <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11082	11205	
==>(Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($versi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11082	11205	
==>(Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($versi <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4180	4290	
==>', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4180	4290	
==>', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1030	1140	
==>', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17169	17267	
==>n it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module:: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17169	17267	
==>n it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5425	5592	
==>undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5425	5592	
==>undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5425	5592	
==>undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5393	5487	
==>atically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situatio <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5393	5487	
==>atically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12982	13198	
==>my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12982	13198	
==>my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12982	13198	
==>my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19397	19491	
==><logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logge <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19397	19491	
==><logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2546	2658	
==>) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2546	2658	
==>) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2546	2658	
==>) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5542	5645	
==>ier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=po <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5542	5645	
==>ier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=po <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9017	9131	
==>ubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my % <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9017	9131	
==>ubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4607	4692	
==>E__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4607	4692	
==>E__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5197	5282	
==>E__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8384	8503	
==>eop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8092	8207	
==>eop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	759	859	
==>ethods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	759	859	
==>ethods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	759	859	
==>ethods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31492	31690	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31492	31690	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31492	31690	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        p <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	717	815	
==>or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	717	815	
==>or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37517	37641	
==>e {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37517	37641	
==>e {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37517	37641	
==>e {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uni <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9046	9157	
==>ap $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17215	17314	
==>turns nil
    ((= &dispatcher (($self: class) send (dispatcher :descendant)))
     (= $method (WALKM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9012	9138	
==>sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $b <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9012	9138	
==>sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $b <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14888	14984	
==>ented, we will need an easy way
to test them. So we will implement the Test::More function is_dee <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14946	15042	
==>ented, we will need an easy way
to test them. So we will implement the Test::More function is_dee <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29582	29676	
==>med attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34134	34228	
==>med attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33298	33392	
==>med attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tupl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2515	2612	
==>undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2515	2612	
==>undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2515	2612	
==>undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_meth <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1811	1903	
==>can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infix <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1811	1903	
==>can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infix <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11037	11192	
==>g', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'nam <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11037	11192	
==>g', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1700	1801	
==>('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1700	1801	
==>('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1700	1801	
==>('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	284	395	
==>as %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	284	395	
==>as %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4890	4989	
==>p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4890	4989	
==>p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4890	4989	
==>p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	873	996	
==>isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } el <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	886	1004	
==>isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1018	1125	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1018	1125	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1018	1125	
==>cessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	774	904	
==>epl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	774	904	
==>epl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	774	904	
==>epl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs= <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16588	16697	
==>str;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21014	21123	
==>str;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1139	1339	
==>ate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %ev <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1139	1339	
==>ate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	941	1068	
==>on (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	941	1068	
==>on (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	941	1068	
==>on (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14412	14581	
==>y_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14412	14581	
==>y_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14412	14581	
==>y_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() mu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6960	7051	
==>n::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6972	7063	
==>n::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36120	36243	
==>gth -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36120	36243	
==>gth -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36120	36243	
==>gth -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $c <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2755	2869	
==>t) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match) <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2755	2869	
==>t) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match) <==
5	/Users/nnunley/pugs/misc/S29_round.pl	606	726	
==>n($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2072	2180	
==>>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6315	6423	
==>_equiv);
}

sub mangle_sym_name {
	my $self = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2072	2180	
==>>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2072	2180	
==>>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2799	2927	
==>!$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7893	8021	
==>!$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2799	2927	
==>!$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7893	8021	
==>!$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2518	2623	
==>ut = _draw_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $output .= _draw_role( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3388	3739	
==>ep } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end - <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3388	3739	
==>ep } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6227	6446	
==>ep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6227	6446	
==>ep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6227	6446	
==>ep } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end - <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13264	13364	
==>s_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1467	1567	
==>prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13264	13364	
==>s_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13264	13364	
==>s_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1674	1774	
==>prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18784	19012	
==>1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18784	19012	
==>1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18784	19012	
==>1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $o <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2403	2513	
==>alue for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2403	2513	
==>alue for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6764	6871	
==>oor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7136	7243	
==>oor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7435	7542	
==>oor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12450	12554	
==>r dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $sour <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12450	12554	
==>r dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $sour <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22275	22374	
==>, but a Relation is not a table.

The Relation class is pure and deterministic, such that all of its <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26827	26926	
==>, but a Relation is not a table.

The Relation class is pure and deterministic, such that all of its <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6614	6711	
==>to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6614	6711	
==>to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6614	6711	
==>to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3335	3444	
==>ub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3335	3444	
==>ub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3335	3444	
==>ub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23878	23970	
==>out language specific details like
encodings or plurality.

My understanding of alternate sol <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23878	23970	
==>out language specific details like
encodings or plurality.

My understanding of alternate sol <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1078	1181	
==>E.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1078	1181	
==>E.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1078	1181	
==>E.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4575	4676	
==>push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4575	4676	
==>push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29166	29288	
==>um::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29166	29288	
==>um::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29166	29288	
==>um::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	590	701	
==>class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	590	701	
==>class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4096	4206	
==>on ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4096	4206	
==>on ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4096	4206	
==>on ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefine <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	322	423	
==>'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine " <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	322	423	
==>'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine " <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4821	4953	
==>st;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $len <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4821	4953	
==>st;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $len <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5537	5634	
==>my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5537	5634	
==>my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5537	5634	
==>my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	35	150	
==>Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    ha <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	35	150	
==>Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3318	3423	
==>elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3318	3423	
==>elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3318	3423	
==>elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB <==
5	/Users/nnunley/pugs/util/package-osx.pl	10607	10727	
==>n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @foote <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6313	6427	
==>have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5386	5500	
==>have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6313	6427	
==>have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5386	5500	
==>have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29905	30003	
==>ainly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template h <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29905	30003	
==>ainly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4562	4671	
==>fess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4562	4671	
==>fess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4562	4671	
==>fess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10608	10714	
==>cessfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.usern <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10608	10714	
==>cessfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.usern <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	469	588	
==>lter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	469	588	
==>lter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	809	910	
==>left->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21365	21463	
==>idt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it unde <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21365	21463	
==>idt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it unde <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2220	2373	
==>> $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2149	2297	
==>> $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8169	8300	
==>ined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8181	8312	
==>ined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6538	6635	
==>kage ${pkg_root}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5600	5805	
==>->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5600	5805	
==>->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5600	5805	
==>->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8690	8808	
==>] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8686	8804	
==>] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** <==
5	/Users/nnunley/pugs/util/addauthors.pl	553	685	
==>h my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for so <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13723	13837	
==>file($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" );
        unless ( -f $syn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6768	6868	
==>mitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6768	6868	
==>mitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6768	6868	
==>mitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new P <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	206	293	
==>---------------------------------------------------------------------------
## This is a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	174	261	
==>---------------------------------------------------------------------------
## This is a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9223	9308	
==>---------------------------------------------------------------------------

This is a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9223	9308	
==>---------------------------------------------------------------------------

This is a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9223	9308	
==>---------------------------------------------------------------------------

This is a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12797	12925	
==>pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mov <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12797	12925	
==>pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mov <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12797	12925	
==>pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mov <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	675	775	
==>t $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infi <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	675	775	
==>t $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11673	11787	
==>return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9358	9467	
==>return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	16211	16317	
==>t name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9441	9536	
==>-value pairs also called fields, which
may be repeated, and which are printed in a particular or <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9441	9536	
==>-value pairs also called fields, which
may be repeated, and which are printed in a particular or <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20822	20918	
==><#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks w <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19739	19835	
==><#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20822	20918	
==><#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19739	19835	
==><#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22395	22490	
==>g', 'c', and 'o' flags now evoke "Useless ..." warnings when used
in flag and non-capturing grou <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	604	759	
==>5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	604	759	
==>5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	289	407	
==>er::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl6-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40641	40738	
==>ARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyrigh <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40641	40738	
==>ARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyrigh <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1560	1668	
==>$tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1560	1668	
==>$tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1640	1748	
==>$tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $d <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2705	2797	
==>ugh a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2705	2797	
==>ugh a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7165	7316	
==>fix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7165	7316	
==>fix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16805	16899	
==>that into its own executable, in practice one would
normally just write some components of thei <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2070	2164	
==>return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return < <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16805	16899	
==>that into its own executable, in practice one would
normally just write some components of thei <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2070	2164	
==>return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2070	2164	
==>return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6410	6515	
==>oxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return N <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6410	6515	
==>oxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return N <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6410	6515	
==>oxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return N <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20386	20481	
==>do it.  An os-level preference
/ control-panel displays a list of all the languages your program <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20386	20481	
==>do it.  An os-level preference
/ control-panel displays a list of all the languages your program <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15988	16082	
==>THORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16046	16140	
==>THORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2293	2385	
==>mber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2293	2385	
==>mber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2293	2385	
==>mber(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4163	4265	
==>ss->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4163	4265	
==>ss->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4163	4265	
==>ss->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1163	1262	
==>minator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1163	1262	
==>minator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10926	11041	
==>pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10926	11041	
==>pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21493	21640	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21493	21640	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21493	21640	
==>lasses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$clas <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4775	4880	
==>eturn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4775	4880	
==>eturn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6001	6091	
==>SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6001	6091	
==>SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9324	9414	
==>Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3149	3239	
==>Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @state <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2900	2990	
==>SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14451	14571	
==>alue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14451	14571	
==>alue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14451	14571	
==>alue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->un <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17727	17841	
==>new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaul <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17727	17841	
==>new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaul <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	903	1012	
==>',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	903	1012	
==>',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1927	2040	
==>fs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1927	2040	
==>fs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1927	2040	
==>fs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5444	5541	
==>tem err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This mod <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5444	5541	
==>tem err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This mod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20403	20530	
==>sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20682	20809	
==>sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11701	11803	
==>_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must prov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11701	11803	
==>_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must prov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11701	11803	
==>_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must prov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5720	5841	
==>rclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' }, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10031	10152	
==>rclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' }, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4302	4409	
==>mplement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    m <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4302	4409	
==>mplement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1640	1736	
==>end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($end_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1765	1885	
==>to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1765	1885	
==>to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1765	1885	
==>to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	575	680	
==>ernal packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	575	680	
==>ernal packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attr <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4422	4565	
==>t ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4422	4565	
==>t ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than en <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	199	308	
==>le

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    A <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10052	10158	
==>"etc/terminfo/l";
  step
    descr  => "Creating directories " . join(", ", map { "$_" } @dirs),
    ensure <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	185	289	
==>le
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    A <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1506	1629	
==>rotocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newlin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1506	1629	
==>rotocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3344	3458	
==>->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3344	3458	
==>->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3344	3458	
==>->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1691	1879	
==>ode {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method expor <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1691	1879	
==>ode {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method expor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6462	6552	
==>rintWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  wr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6462	6552	
==>rintWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  wr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6462	6552	
==>rintWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  wr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	520	688	
==>me {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	520	688	
==>me {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	696	813	
==>lue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	696	813	
==>lue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	696	813	
==>lue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1285	1388	
==>db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $d <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1285	1388	
==>db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $d <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1494	1597	
==>db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $d <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	704	804	
==>ubmethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	704	804	
==>ubmethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2310	2423	
==>] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite:: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2310	2423	
==>] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1081	1188	
==>umify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1081	1188	
==>umify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1081	1188	
==>umify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4403	4546	
==>new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4403	4546	
==>new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1583	1680	
==>cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1583	1680	
==>cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1583	1680	
==>cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pre <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1608	1737	
==>ler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1608	1737	
==>ler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4066	4159	
==>ses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4066	4159	
==>ses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4066	4159	
==>ses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8047	8163	
==>h ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8047	8163	
==>h ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4477	4579	
==>:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4477	4579	
==>:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4477	4579	
==>:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	486	635	
==>volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:pe <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	486	635	
==>volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:pe <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2790	2883	
==>y $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2790	2883	
==>y $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2375	2465	
==>-w ./util/testgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not conve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2199	2311	
==>se($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2199	2311	
==>se($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2199	2311	
==>se($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10521	10629	
==>urrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10521	10629	
==>urrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7600	7787	
==>bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7600	7787	
==>bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7600	7787	
==>bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24915	25035	
==>y $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($ <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	446	536	
==>'blib6/pugs/perl6') for <perl5/*>;
    copy_all("$_/blibjs/", 'blib6/pugs/js') for <perl5/* <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4746	4866	
==>: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4746	4866	
==>: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3010	3118	
==>ram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3010	3118	
==>ram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3010	3118	
==>ram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9946	10129	
==>Toady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6287	6470	
==>Toady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7136	7319	
==>Toady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8999	9159	
==>y ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8999	9159	
==>y ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	964	1060	
==>(Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2097	2193	
==>class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	964	1060	
==>(Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	964	1060	
==>(Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2186	2282	
==>class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<P <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1963	2129	
==>&infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List:: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14034	14150	
==>== 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17511	17627	
==>== 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tup <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3561	3664	
==>ence
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3561	3664	
==>ence
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12246	12361	
==>ement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8522	8637	
==>ement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9357	9472	
==>ement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8641	8737	
==>of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::n <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8699	8795	
==>of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2868	3006	
==>"no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } els <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3085	3223	
==>"no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } els <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3612	3704	
==>cific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$nu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3612	3704	
==>cific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$nu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5809	5901	
==>cific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$nu <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1809	1952	
==>l_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	982	1107	
==>equest Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondit <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	982	1107	
==>equest Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22742	22836	
==>more Relation attribute names that
define the heading of this Relation.  Each attribute name is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27294	27388	
==>more Relation attribute names that
define the heading of this Relation.  Each attribute name is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1269	1389	
==>1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1474	1594	
==>1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1535	1655	
==>1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1275	1367	
==>he same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1275	1367	
==>he same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3181	3301	
==>cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3181	3301	
==>cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9304	9418	
==>> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, $how);
  });

  # w <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31745	31838	
==>ectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36295	36388	
==>ectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4170	4279	
==>> *STDOUT);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24141	24239	
==>nding something
  in response to something it received.  This is typically used by automatons
  (cl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22914	23012	
==>nding something
  in response to something it received.  This is typically used by automatons
  (cl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24141	24239	
==>nding something
  in response to something it received.  This is typically used by automatons
  (cl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22914	23012	
==>nding something
  in response to something it received.  This is typically used by automatons
  (cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3580	3733	
==>ted)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resultin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3580	3733	
==>ted)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resultin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3580	3733	
==>ted)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resultin <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	697	818	
==>piler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	697	818	
==>piler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	336	439	
==>d be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "V <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	336	439	
==>d be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "V <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	336	439	
==>d be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "V <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6825	6923	
==>get to the end of the line and find no closing match, I should
ignore the opening one. However, thi <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6825	6923	
==>get to the end of the line and find no closing match, I should
ignore the opening one. However, thi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2238	2427	
==>Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7118	7229	
==>} else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7118	7229	
==>} else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_heade <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8216	8313	
==>ments to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but le <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8216	8313	
==>ments to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2019	2144	
==>le $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2019	2144	
==>le $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2019	2144	
==>le $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	708	811	
==>eader, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

mu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	708	811	
==>eader, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

mu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	638	779	
==>_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2849	2961	
==>f,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2849	2961	
==>f,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2849	2961	
==>f,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1978	2072	
==>n wrapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor the C<-T> or C<-t> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5301	5423	
==>erator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Opera <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1033	1132	
==>1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional pro <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1033	1132	
==>1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional pro <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3937	4034	
==>d and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::A <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3937	4034	
==>d and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3173	3313	
==>}
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3173	3313	
==>}
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3173	3313	
==>}
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7128	7252	
==>als
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CO <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7128	7252	
==>als
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CO <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1538	1662	
==>aybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5247	5366	
==>0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5247	5366	
==>0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5247	5366	
==>0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get(' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1454	1555	
==>aybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($fil <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3704	3804	
==>method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi me <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1804	1904	
==>method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3154	3252	
==>paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3154	3252	
==>paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3154	3252	
==>paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1704	1805	
==>bug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> l <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1704	1805	
==>bug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> l <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15861	15963	
==>rence( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19338	19440	
==>rence( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    retur <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2194	2289	
==>IS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = Meta::Class.new("Class");

=head1 DE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12867	13021	
==>f->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12867	13021	
==>f->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12867	13021	
==>f->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arra <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1420	1520	
==>(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1420	1520	
==>(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6672	6790	
==>pe eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6672	6790	
==>pe eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6672	6790	
==>pe eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1868	1960	
==>or Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Run <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1957	2049	
==>or Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	796	921	
==>put=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	796	921	
==>put=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	796	921	
==>put=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3794	3900	
==>ds to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MI <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3794	3900	
==>ds to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MI <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13132	13241	
==>LF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16609	16718	
==>LF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15971	16080	
==>LF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1808	1912	
==>rn $return_value;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('l <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	905	1007	
==>$metas[0];

    my @to_install = _recurse_resolve( list_dependencies( $found, 1 ) );

    print "Instal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16645	16821	
==>();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16645	16821	
==>();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16645	16821	
==>();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unb <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8051	8153	
==>as no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7780	7879	
==>as no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function retu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11758	11858	
==>items if they are already in the set, or inserts the items if
they're not in the set.

Returns the nu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8905	9005	
==>items if they are already in the set, or inserts the items if
they're not in the set.

Returns the nu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11758	11858	
==>items if they are already in the set, or inserts the items if
they're not in the set.

Returns the nu <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8905	9005	
==>items if they are already in the set, or inserts the items if
they're not in the set.

Returns the nu <==
5	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	557	652	
==>Ingerson. All rights reserved.

This program is free software; you can redistribute it and/or mo <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4003	4133	
==>PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4003	4133	
==>PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34049	34145	
==>other>.  This method will fail if C<$other> does not have
an identical header to the invocant rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38599	38695	
==>other>.  This method will fail if C<$other> does not have
an identical header to the invocant rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38060	38156	
==>other>.  This method will fail if C<$other> does not have
an identical header to the invocant rel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4565	4681	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4565	4681	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4565	4681	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3430	3537	
==>an.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3430	3537	
==>an.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8237	8401	
==>end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8237	8401	
==>end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8237	8401	
==>end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5611	5715	
==>object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5611	5715	
==>object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3010	3141	
==>mp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3010	3141	
==>mp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1023	1125	
==>hod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1023	1125	
==>hod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1023	1125	
==>hod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added clas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2462	2636	
==>> -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2462	2636	
==>> -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5690	5786	
==>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5690	5786	
==>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5690	5786	
==>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3907	4015	
==>),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7384	7492	
==>),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6350	6458	
==>),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	373	521	
==>continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	373	521	
==>continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16725	16835	
==>lue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16725	16835	
==>lue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16725	16835	
==>lue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::un <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21141	21235	
==>r program would use
associated keys internally.

It is strongly suggested (but not required) th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21141	21235	
==>r program would use
associated keys internally.

It is strongly suggested (but not required) th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	105	245	
==>essage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	105	245	
==>essage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33412	33508	
==>Template module for the program or first library should
appear first in the array.  Each Set Name <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33412	33508	
==>Template module for the program or first library should
appear first in the array.  Each Set Name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4264	4359	
==>')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4264	4359	
==>')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4264	4359	
==>')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS: <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3938	4040	
==>ple, the <Pos1> and <End> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1161	1253	
==>ize 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n or $^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6434	6519	
==>::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6434	6519	
==>::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6434	6519	
==>::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	506	610	
==>Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	506	610	
==>Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	506	610	
==>Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't w <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2098	2196	
==>> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2098	2196	
==>> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7849	7947	
==>t')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7849	7947	
==>t')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24543	24640	
==>d to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29095	29192	
==>d to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27971	28068	
==>d to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	299	396	
==>ing Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	299	396	
==>ing Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	299	396	
==>ing Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15978	16081	
==>ue::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15978	16081	
==>ue::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15978	16081	
==>ue::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21246	21339	
==>ng the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21246	21339	
==>ng the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("re <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	405	629	
==>list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'par <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	405	629	
==>list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8117	8223	
==>losure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8117	8223	
==>losure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8117	8223	
==>losure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5083	5203	
==>PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTPa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5083	5203	
==>PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTPa <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1987	2107	
==>PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTPa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14829	14935	
==>{
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("IN <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14829	14935	
==>{
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("IN <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	794	899	
==>.value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'Relation'
            and .value <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	326	427	
==>h C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alterna <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	326	427	
==>h C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alterna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31521	31727	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31521	31727	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31521	31727	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_le <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	18784	18923	
==>etail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output coun <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13093	13197	
==>tring for use with sprintf().

  # for when you have a zero-width chunk
  # with a boundless quantifier o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3995	4102	
==>b { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3995	4102	
==>b { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3995	4102	
==>b { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $par <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	999	1096	
==>Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	999	1096	
==>Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17567	17708	
==>new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40836	40977	
==>new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13659	13782	
==>{
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15184	15307	
==>{
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12651	12762	
==>{
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( heading => $!he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1761	1881	
==>vref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1761	1881	
==>vref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1997	2117	
==>vref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5064	5167	
==>y(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7732	7835	
==>y(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list') <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	763	867	
==>DO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search i <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	763	867	
==>DO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6260	6354	
==>cks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6260	6354	
==>cks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6260	6354	
==>cks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Cont <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1327	1468	
==>e - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1338	1479	
==>e - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4259	4355	
==>ROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4259	4355	
==>ROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4259	4355	
==>ROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13055	13165	
==>_[1]->val }

sub reduce_stub {
    my $self = shift;
    die "trying to reduce a stub at runtime";
}

sub reduc <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1725	1828	
==>TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP_PRELUDE): $! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4077	4179	
==>s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4077	4179	
==>s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4077	4179	
==>s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3558	3678	
==>t
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3558	3678	
==>t
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17298	17401	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17298	17401	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17298	17401	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AU <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1838	1953	
==>}

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1838	1953	
==>}

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1912	2004	
==>, "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1912	2004	
==>, "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1912	2004	
==>, "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15951	16067	
==>al_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15951	16067	
==>al_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15951	16067	
==>al_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3638	3734	
==>s( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
de <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3638	3734	
==>s( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3718	3814	
==>s( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
de <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	173	266	
==>f our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	231	324	
==>f our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2046	2152	
==>d

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2046	2152	
==>d

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2046	2152	
==>d

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7931	8016	
==>%users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7931	8016	
==>%users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	315	418	
==>nels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IR <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	315	418	
==>nels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2101	2195	
==>= "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2101	2195	
==>= "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2101	2195	
==>= "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8630	8735	
==>"Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8630	8735	
==>"Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newni <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1053	1157	
==>air(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1053	1157	
==>air(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1053	1157	
==>air(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FET <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2737	2840	
==>@ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", ". <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2737	2840	
==>@ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", ". <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2737	2840	
==>@ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", ". <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2580	2681	
==>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2580	2681	
==>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2110	2223	
==>rint ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	424	537	
==>rint ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2110	2223	
==>rint ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2110	2223	
==>rint ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1734	1825	
==>nary: level($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { join(" ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3214	3340	
==>ff = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3214	3340	
==>ff = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3214	3340	
==>ff = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9907	10019	
==>( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15748	15860	
==>( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9907	10019	
==>( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15742	15854	
==>( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21767	21868	
==>tting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the field.  There w <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	220	346	
==>tems per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	220	346	
==>tems per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7169	7294	
==>r mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7169	7294	
==>r mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7169	7294	
==>r mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	716	805	
==>);

## ----------------------------------------------------------------------------
## Obj <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	716	805	
==>);

## ----------------------------------------------------------------------------
## Obj <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	716	805	
==>);

## ----------------------------------------------------------------------------
## Obj <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5889	5990	
==>utes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cl <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5889	5990	
==>utes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8086	8187	
==>utes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cl <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8427	8527	
==>se if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8427	8527	
==>se if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	394	528	
==>- A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  i <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	394	528	
==>- A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2067	2177	
==>($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2067	2177	
==>($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2067	2177	
==>($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	13318	13699	
==>non   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wst <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1287	1417	
==>\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13749	13860	
==>s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13749	13860	
==>s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13749	13860	
==>s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15522	15630	
==>]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15522	15630	
==>]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15522	15630	
==>]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exam <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15497	15600	
==>ct )`

Change the start or end value of the span.

These methods may raise a warning if the new value wo <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15497	15600	
==>ct )`

Change the start or end value of the span.

These methods may raise a warning if the new value wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1491	1618	
==>CH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1491	1618	
==>CH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1491	1618	
==>CH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die(" <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	57	154	
==>as $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	57	154	
==>as $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5057	5197	
==>e->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5057	5197	
==>e->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5057	5197	
==>e->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	501	597	
==>ral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: - <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	501	597	
==>ral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: - <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21023	21134	
==>lf->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17444	17555	
==>lf->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13604	13699	
==>hen we also unterminated named
entities will also be expanded.  The longest matching name in
%en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13604	13699	
==>hen we also unterminated named
entities will also be expanded.  The longest matching name in
%en <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	654	744	
==>@cpan.org)
# --------------------------------------------------

use strict;
use IO::All;
u <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	488	629	
==>.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	488	629	
==>.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20185	20275	
==>~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20185	20275	
==>~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20185	20275	
==>~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5658	5767	
==>: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5658	5767	
==>: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5658	5767	
==>: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7998	8098	
==>of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7998	8098	
==>of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3279	3420	
==>''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3279	3420	
==>''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5195	5310	
==>s primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we hav <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5195	5310	
==>s primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we hav <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5195	5310	
==>s primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we hav <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12770	12883	
==>th the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12770	12883	
==>th the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12770	12883	
==>th the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4027	4118	
==>value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher obje <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4027	4118	
==>value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher obje <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	21472	21603	
==>"$path.yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::c <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13880	13971	
==>_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_array_complain->("sca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	389	500	
==>r;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

su <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	389	500	
==>r;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

su <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1180	1280	
==>->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o);
    $s .= "[".$$o->{'RULE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5807	5901	
==>ody left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5807	5901	
==>ody left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $even <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25602	25696	
==>ever, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limite <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25602	25696	
==>ever, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limite <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5511	5604	
==>> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all() <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5511	5604	
==>> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all() <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7035	7128	
==>> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all() <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4650	4757	
==>{ code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4708	4815	
==>{ code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9282	9379	
==>*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9282	9379	
==>*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9282	9379	
==>*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_h <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	544	670	
==>output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostic <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	544	670	
==>output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9855	9956	
==>counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9855	9956	
==>counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9855	9956	
==>counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9449	9573	
==>ght if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through th <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9449	9573	
==>ght if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2093	2204	
==>= $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	98	201	
==>= $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	98	201	
==>= $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	766	873	
==>getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	766	873	
==>getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28985	29076	
==>ports having new tuple-valued
attributes which wrap zero old attributes (they are effectivel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33537	33628	
==>ports having new tuple-valued
attributes which wrap zero old attributes (they are effectivel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32674	32765	
==>ports having new tuple-valued
attributes which wrap zero old attributes (they are effectivel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20336	20507	
==>'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20336	20507	
==>'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20336	20507	
==>'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $s <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1246	1359	
==>lues;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.di <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1246	1359	
==>lues;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15918	16033	
==>_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15918	16033	
==>_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15918	16033	
==>_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8324	8428	
==>$m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(par <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8324	8428	
==>$m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(par <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5523	5629	
==>span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40411	40517	
==>shift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5523	5629	
==>span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40411	40517	
==>shift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40411	40517	
==>shift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3772	3896	
==>es' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3772	3896	
==>es' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3772	3896	
==>es' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12232	12352	
==>tr $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12232	12352	
==>tr $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2825	2923	
==>ake_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2825	2923	
==>ake_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2825	2923	
==>ake_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:at <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21080	21174	
==>ies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21080	21174	
==>ies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel = <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2264	2364	
==>re
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

su <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2264	2364	
==>re
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2735	2850	
==>xpected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2735	2850	
==>xpected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	245	333	
==>o_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	245	333	
==>o_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	245	333	
==>o_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2278	2407	
==>it}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2278	2407	
==>it}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2278	2407	
==>it}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        P <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2865	2993	
==>p > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2865	2993	
==>p > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3457	3565	
==>ta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3457	3565	
==>ta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3457	3565	
==>ta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $supe <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1428	1523	
==>textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', su <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1428	1523	
==>textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', su <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10057	10186	
==>$data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10057	10186	
==>$data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4634	4726	
==>$inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4634	4726	
==>$inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4634	4726	
==>$inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1300	1410	
==>an be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref($nodes) e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1647	1754	
==>an be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1254	1361	
==>an be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1647	1754	
==>an be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) e <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15964	16056	
==>),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0, <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15259	15356	
==>g the input string).

If you prefer not to import these routines into your namespace, you can
call <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15259	15356	
==>g the input string).

If you prefer not to import these routines into your namespace, you can
call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18634	18724	
==>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18634	18724	
==>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18634	18724	
==>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$x <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11936	12131	
==>call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11936	12131	
==>call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' = <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	918	1133	
==>_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	918	1133	
==>_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2787	2891	
==>se Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2787	2891	
==>se Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2867	2971	
==>se Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12271	12375	
==>eth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6838	6942	
==>eth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12271	12375	
==>eth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6838	6942	
==>eth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1194	1285	
==>ONVERSION_SUBS section
# temporarily for the use of $RE{balanced}{-parens=>'{}'};
sub conv_f <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5898	6004	
==>elation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }), <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9375	9481	
==>elation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4241	4336	
==>ty issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4241	4336	
==>ty issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4241	4336	
==>ty issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1351	1457	
==>. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2973	3079	
==>. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1351	1457	
==>. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2973	3079	
==>. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3320	3426	
==>. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12878	12997	
==>race = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }x <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6353	6472	
==>race = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2730	2822	
==>ad1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as we <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2730	2822	
==>ad1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as we <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3077	3169	
==>ad1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as we <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	496	615	
==>circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	512	631	
==>circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3197	3303	
==>var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3197	3303	
==>var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3197	3303	
==>var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_i <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	188	294	
==>t in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my % <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	188	294	
==>t in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3580	3685	
==>{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3580	3685	
==>{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3580	3685	
==>{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28873	29036	
==>ems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

packa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28873	29036	
==>ems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

packa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28873	29036	
==>ems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

packa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6384	6475	
==>lection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatt <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6384	6475	
==>lection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatt <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2834	2987	
==>tch) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2834	2987	
==>tch) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13726	13852	
==>th = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13726	13852	
==>th = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13726	13852	
==>th = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5494	5613	
==>te_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5494	5613	
==>te_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5494	5613	
==>te_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || co <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2109	2213	
==>e_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2109	2213	
==>e_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2420	2527	
==>self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2420	2527	
==>self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2420	2527	
==>self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16951	17052	
==>ts to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16951	17052	
==>ts to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15095	15198	
==>X_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9294	9397	
==>X_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1375	1518	
==>s(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1375	1518	
==>s(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	145	258	
==>sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	145	258	
==>sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	145	258	
==>sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9264	9421	
==>$fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old > <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10255	10412	
==>$fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1129	1242	
==>^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1129	1242	
==>^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1129	1242	
==>^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Va <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4161	4273	
==>nto the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5)?!?
    return &$ste <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40528	40621	
==>will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26042	26135	
==>will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40528	40621	
==>will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26042	26135	
==>will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3114	3240	
==>, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3114	3240	
==>, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10189	10287	
==>s_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or th <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10189	10287	
==>s_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7216	7313	
==>ation 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9141	9235	
==>$p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6971	7065	
==>ation 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9141	9235	
==>$p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9141	9235	
==>$p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4951	5084	
==>>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4951	5084	
==>>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4951	5084	
==>>store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13095	13193	
==>r die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implem <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13153	13251	
==>r die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	547	651	
==>ASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	547	651	
==>ASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	547	651	
==>ASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6249	6348	
==>te %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6249	6348	
==>te %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10164	10348	
==>st::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          retur <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	718	890	
==>st::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        retur <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	718	890	
==>st::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        retur <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9028	9123	
==>em paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9028	9123	
==>em paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2560	2671	
==>me)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2560	2671	
==>me)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->autho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2560	2671	
==>me)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->autho <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	961	1064	
==>m = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	754	857	
==>ntry and the tests will run somewhere quite different!
$config{'root'}             = [ $Cwd->subdir('fr' <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5026	5149	
==>),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5026	5149	
==>),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3158	3269	
==>a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postci <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3158	3269	
==>a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postci <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3158	3269	
==>a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postci <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2287	2415	
==>my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.va <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2287	2415	
==>my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5164	5269	
==>ts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5164	5269	
==>ts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5164	5269	
==>ts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38153	38296	
==>lse {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38153	38296	
==>lse {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38153	38296	
==>lse {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14670	14773	
==>_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disc <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14670	14773	
==>_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disc <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7748	7957	
==>l6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        retur <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7748	7957	
==>l6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5381	5493	
==>" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5381	5493	
==>" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5381	5493	
==>" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6275	6401	
==>-> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is expor <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6275	6401	
==>-> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is expor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4640	4742	
==>sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4640	4742	
==>sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4640	4742	
==>sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4713	4836	
==>ray' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4713	4836	
==>ray' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4713	4836	
==>ray' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4665	4779	
==>. "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4805	4919	
==>. "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	314	423	
==>sa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	314	423	
==>sa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	314	423	
==>sa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11804	11900	
==>1 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11804	11900	
==>1 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) { <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2239	2350	
==>}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$config <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8723	8830	
==><~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8723	8830	
==><~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8723	8830	
==><~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2685	2801	
==>String()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2685	2801	
==>String()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2685	2801	
==>String()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::R <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11876	11988	
==>self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved b <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	285	392	
==>self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved b <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4784	4891	
==>annels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End o <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4784	4891	
==>annels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2859	3089	
==>:Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2859	3089	
==>:Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2859	3089	
==>:Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	246	354	
==>w) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	246	354	
==>w) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13405	13540	
==>SPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13405	13540	
==>SPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13405	13540	
==>SPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17683	17803	
==>eg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


X <==
5	/Users/nnunley/pugs/util/build_pugs.pl	7291	7409	
==>ys|cygwin)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7347	7447	
==>[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7347	7447	
==>[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7347	7447	
==>[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classe <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1981	2075	
==>you should
be left with nothing but questions about what this object represents.

It represents <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1981	2075	
==>you should
be left with nothing but questions about what this object represents.

It represents <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17437	17660	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23403	23626	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17716	17939	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23682	23905	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2536	2632	
==>intable($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node) ? <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	780	881	
==>ation syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	780	881	
==>ation syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4063	4157	
==>}

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcirc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4063	4157	
==>}

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcirc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4063	4157	
==>}

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcirc <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	852	969	
==>-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	753	870	
==>-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1553	1663	
==>->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8813	8912	
==>%users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8813	8912	
==>%users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1998	2162	
==>"},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s . <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1998	2162	
==>"},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s . <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1998	2162	
==>"},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s . <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1822	1938	
==>"},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s . <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14712	14807	
==>upported. Use the C<.buckets>
property instead.

=back


=head2 Str

General notes about strings <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5953	6077	
==>.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5953	6077	
==>.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5953	6077	
==>.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6721	6826	
==>assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6721	6826	
==>assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	541	642	
==>p() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1086	1187	
==>p() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair const <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	541	642	
==>p() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair const <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1086	1187	
==>p() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair const <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1086	1187	
==>p() don't depend on coroutines
# * Removed pair() - this module does not have access to the Pair const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2626	2742	
==>umber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2626	2742	
==>umber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2626	2742	
==>umber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? ' <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9834	9949	
==>s_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixe <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9834	9949	
==>s_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	865	971	
==>mes:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refer <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	865	971	
==>mes:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refer <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	865	971	
==>mes:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refer <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1489	1581	
==>ctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1489	1581	
==>ctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	246	394	
==>.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             tog <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23613	23708	
==>tta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Per <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23613	23708	
==>tta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Per <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8310	8474	
==>sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8310	8474	
==>sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	447	538	
==>int-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_prin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	408	499	
==>int-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_prin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	408	499	
==>int-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_prin <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1356	1555	
==>NS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )" <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1356	1555	
==>NS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	16	124	
==>t;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	16	124	
==>t;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	16	124	
==>t;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursio <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23441	23563	
==>n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19862	19984	
==>n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3435	3538	
==>name.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3435	3538	
==>name.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3435	3538	
==>name.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	93	399	
==>e Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	93	399	
==>e Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12660	12765	
==>_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12660	12765	
==>_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12660	12765	
==>_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey { <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15525	15626	
==>t;

    $self->enter_scope;
    my $node = Thunk->new($self->reduce($thunk->val));
    $self->leave_sc <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6503	6601	
==>each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docume <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6503	6601	
==>each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docume <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20888	20985	
==>ing.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20888	20985	
==>ing.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10666	10758	
==>item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2241	2333	
==>ect->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Objec <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10666	10758	
==>item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2241	2333	
==>ect->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Objec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2241	2333	
==>ect->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Objec <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36363	36466	
==>::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of the aforementi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37074	37177	
==>::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of the aforementi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37524	37627	
==>::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of the aforementi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39678	39781	
==>::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of the aforementi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41550	41653	
==>::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of the aforementi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1967	2117	
==>s} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2027	2177	
==>s} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5023	5126	
==>\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ie <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5023	5126	
==>\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ie <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5023	5126	
==>\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17088	17186	
==>e B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch it <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17088	17186	
==>e B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch it <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20613	20710	
==>ant a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20613	20710	
==>ant a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	507	598	
==>not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3010	3153	
==>$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3010	3153	
==>$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3010	3153	
==>$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6294	6383	
==>L<Regexp::Parser::Objects> for documentation about nodes and the objects
that represent th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9747	9903	
==>name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9747	9903	
==>name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9747	9903	
==>name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7803	7942	
==>atch;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7803	7942	
==>atch;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3060	3191	
==>ntf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32 <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3060	3191	
==>ntf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	557	671	
==>i, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	557	671	
==>i, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) i <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14548	14634	
==>verse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1), !.
%# X <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13283	13442	
==>f->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13283	13442	
==>f->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13283	13442	
==>f->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	644	774	
==>my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11738	11868	
==>my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4839	4932	
==>ected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4839	4932	
==>ected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4839	4932	
==>ected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10497	10588	
==>_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10497	10588	
==>_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16494	16636	
==>32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20920	21062	
==>32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9238	9349	
==>nt'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9238	9349	
==>nt'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9238	9349	
==>nt'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19592	19820	
==>rray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19592	19820	
==>rray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19592	19820	
==>rray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVE <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3282	3400	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This gr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3282	3400	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5448	5565	
==>>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5448	5565	
==>>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5448	5565	
==>>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2393	2488	
==>Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compile <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2393	2488	
==>Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compile <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2901	3006	
==>PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValu <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2901	3006	
==>PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5700	5796	
==>remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5700	5796	
==>remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5700	5796	
==>remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11086	11195	
==>inite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11086	11195	
==>inite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11086	11195	
==>inite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2204	2306	
==>urrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2204	2306	
==>urrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10661	10787	
==>'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10661	10787	
==>'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10661	10787	
==>'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::n <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	521	624	
==>, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi subm <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	521	624	
==>, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi subm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1905	2056	
==>c.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1905	2056	
==>c.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3637	3750	
==>e, *@args) {
            $publisher.notify(Class::Events::Event::Named.new($name));
        }
    }
}

class Class <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1978	2074	
==>s C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is add <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1978	2074	
==>s C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4762	4880	
==>ss,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4740	4840	
==>ix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diff <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3867	3967	
==>ix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diff <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4740	4840	
==>ix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diff <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3867	3967	
==>ix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diff <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4245	4355	
==>arams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4245	4355	
==>arams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4245	4355	
==>arams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_i <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13513	13608	
==>sh are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then w <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13513	13608	
==>sh are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12324	12473	
==>tr
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2708	2849	
==>tr
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2708	2849	
==>tr
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12033	12125	
==>rl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12033	12125	
==>rl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12033	12125	
==>rl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3975	4159	
==>ush @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            :: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1420	1563	
==>n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1408	1551	
==>n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4637	4736	
==>ey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Th <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4637	4736	
==>ey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Th <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4637	4736	
==>ey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13722	13856	
==>change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13722	13856	
==>change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13722	13856	
==>change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user co <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5968	6102	
==>change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user co <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4468	4602	
==>change;
        while $i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user co <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	322	427	
==>lar(@values) % 2 == 0)
        || confess "not enough elements to construct a hash (must be an even number <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11521	11624	
==>s)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22498	22601	
==>s)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11521	11624	
==>s)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11521	11624	
==>s)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8785	8883	
==>nts

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

T <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8785	8883	
==>nts

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3178	3272	
==>ugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3178	3272	
==>ugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3178	3272	
==>ugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1187	1292	
==>L::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1187	1292	
==>L::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1187	1292	
==>L::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16118	16214	
==>, and
whose Node Type attribute is set from the named parameter $node_type (a
string); the option <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16118	16214	
==>, and
whose Node Type attribute is set from the named parameter $node_type (a
string); the option <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21605	21702	
==>es instead which are
more appropriate to the context in which they are using your package.  One
ca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21605	21702	
==>es instead which are
more appropriate to the context in which they are using your package.  One
ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12223	12327	
==>ge PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12223	12327	
==>ge PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12223	12327	
==>ge PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7758	7876	
==>osure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcul <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7758	7876	
==>osure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3046	3161	
==>uldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3046	3161	
==>uldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3046	3161	
==>uldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3759	3892	
==>[^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5076	5209	
==>[^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3759	3892	
==>[^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5064	5197	
==>[^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	602	712	
==>ues, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::reduce (Code $expressi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24135	24231	
==>lly sending something
  in response to something it received.  This is typically used by automato <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22908	23004	
==>lly sending something
  in response to something it received.  This is typically used by automato <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24135	24231	
==>lly sending something
  in response to something it received.  This is typically used by automato <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22908	23004	
==>lly sending something
  in response to something it received.  This is typically used by automato <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4215	4311	
==>class_that_should_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19779	20013	
==>op::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20058	20292	
==>op::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37155	37243	
==><Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<ja <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3750	3907	
==>e} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interfac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3997	4146	
==>e} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interfac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10446	10595	
==>e} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interfac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3997	4146	
==>e} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interfac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10446	10595	
==>e} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interfac <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4486	4583	
==>nt version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The onl <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4486	4583	
==>nt version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The onl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4844	4939	
==>XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4844	4939	
==>XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4844	4939	
==>XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associat <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9197	9341	
==>h.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9197	9341	
==>h.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $e <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5593	5721	
==>ta;
        
        ### XXX do delayed writes, as an explicit ->write() call on the
        ### object, like in JIB::Installatio <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	391	515	
==>/\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	516	625	
==>/\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg-> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5041	5186	
==>{
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidat <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5505	5650	
==>{
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1791	1885	
==>)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1791	1885	
==>)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1791	1885	
==>)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	826	930	
==>oned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	826	930	
==>oned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	826	930	
==>oned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18745	18841	
==>n the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18745	18841	
==>n the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2482	2628	
==>ML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2482	2628	
==>ML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2482	2628	
==>ML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3934	4028	
==>ead1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3934	4028	
==>ead1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Ros <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4100	4271	
==>}, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4100	4271	
==>}, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4100	4271	
==>}, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->el <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	439	542	
==>nput_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	439	542	
==>nput_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16772	16954	
==>e');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16772	16954	
==>e');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16772	16954	
==>e');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instanc <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1135	1234	
==>it with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to enciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1135	1234	
==>it with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to enciph <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11630	11749	
==>connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11630	11749	
==>connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2591	2688	
==>"255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2591	2688	
==>"255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2591	2688	
==>"255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13316	13471	
==>);
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13316	13471	
==>);
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9976	10076	
==>s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9976	10076	
==>s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9976	10076	
==>s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
us <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26994	27095	
==>xample usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26994	27095	
==>xample usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1297	1391	
==>$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1297	1391	
==>$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1297	1391	
==>$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24368	24536	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       , <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25631	25799	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24647	24815	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25910	26078	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       , <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	99	200	
==>erl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2932	3060	
==>_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8026	8154	
==>_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2932	3060	
==>_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8026	8154	
==>_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if <==
5	/Users/nnunley/pugs/util/package-osx.pl	7794	7891	
==>n/man3/Perl6::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/lo <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1725	1832	
==>:MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VER <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2577	2684	
==>:MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VER <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3373	3463	
==>('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3373	3463	
==>('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3373	3463	
==>('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7775	7912	
==>arn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7775	7912	
==>arn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7775	7912	
==>arn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2338	2451	
==>l was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_o <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2396	2509	
==>l was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_o <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4087	4186	
==>d setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to f <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4087	4186	
==>d setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6284	6383	
==>d setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11543	11633	
==>t") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11543	11633	
==>t") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain i <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2738	2858	
==>sity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

meth <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2738	2858	
==>sity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2381	2482	
==>l $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2381	2482	
==>l $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2381	2482	
==>l $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4692	4795	
==>. ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4832	4935	
==>. ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5247	5363	
==>ammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            < <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18236	18330	
==>C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18236	18330	
==>C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37344	37436	
==>ral_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-ar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41893	41985	
==>ral_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-ar <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10738	10851	
==>een.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10738	10851	
==>een.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1455	1552	
==>imitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1455	1552	
==>imitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1455	1552	
==>imitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21278	21380	
==>cher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44185	44287	
==>cher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3895	3993	
==>y a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3895	3993	
==>y a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3895	3993	
==>y a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6723	6813	
==>lf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6723	6813	
==>lf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6723	6813	
==>lf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	923	1088	
==>ub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	923	1088	
==>ub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	923	1088	
==>ub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	543	645	
==>her contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Ha <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	543	645	
==>her contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Ha <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	229	347	
==>DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	229	347	
==>DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4674	4772	
==>ibing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contain <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4674	4772	
==>ibing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contain <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6871	6969	
==>ibing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contain <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	850	955	
==>instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1055	1160	
==>instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1111	1216	
==>instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18138	18234	
==>ructor. If the nickname is already used, this module
will try to use a permuted nick (for example <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18138	18234	
==>ructor. If the nickname is already used, this module
will try to use a permuted nick (for example <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10087	10250	
==>@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10087	10250	
==>@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10087	10250	
==>@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	20	116	
==>strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	20	116	
==>strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	592	839	
==>ion applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::D <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	592	839	
==>ion applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::D <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48752	48900	
==>l
        symbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3918	4028	
==>n $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) i <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20990	21090	
==>) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,cs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1670	1794	
==>BNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1670	1794	
==>BNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1670	1794	
==>BNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	26	129	
==>ool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	26	129	
==>ool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent <==
5	/Users/nnunley/pugs/util/grokprims.pl	378	486	
==>ast unless /^\\\\n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2933	3033	
==>tribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versio <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3090	3190	
==>tribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versio <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2933	3033	
==>tribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versio <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3090	3190	
==>tribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12036	12184	
==>sh @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12036	12184	
==>sh @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12036	12184	
==>sh @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15853	15952	
==>turn $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resoluti <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2250	2345	
==>turn $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resoluti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3088	3189	
==>[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3088	3189	
==>[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3088	3189	
==>[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __return <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32683	32779	
==>data from external Template modules as a template.
The Translator class as a whole is not pure an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32683	32779	
==>data from external Template modules as a template.
The Translator class as a whole is not pure an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13802	13900	
==>"... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13802	13900	
==>"... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13802	13900	
==>"... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1150	1246	
==>::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1150	1246	
==>::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules ma <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10110	10205	
==>ence($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10110	10205	
==>ence($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3077	3186	
==>nt $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3077	3186	
==>nt $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3077	3186	
==>nt $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20350	20445	
==>, it also performs quite slowly; you should only use Example
for testing, development, and study <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20350	20445	
==>, it also performs quite slowly; you should only use Example
for testing, development, and study <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8856	8991	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8856	8991	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8856	8991	
==>lass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8451	8554	
==>my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8451	8554	
==>my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12435	12557	
==>ription";
          return join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2813	2927	
==>ription";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2813	2927	
==>ription";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4247	4327	
==>F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4247	4327	
==>F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	425	544	
==>e( $self, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9909	10020	
==>erator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9909	10020	
==>erator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9909	10020	
==>erator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20783	20881	
==>ams))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=cut

$::Class->send('a <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1684	1810	
==>, return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($ro <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16835	16932	
==>be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can b <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16835	16932	
==>be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can b <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1521	1614	
==>e download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), the <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1361	1454	
==>e download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), the <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5464	5570	
==>tart <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5464	5570	
==>tart <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2414	2518	
==>find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2414	2518	
==>find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2414	2518	
==>find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1886	2018	
==>s rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1886	2018	
==>s rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2366	2468	
==>ister_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2366	2468	
==>ister_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31225	31322	
==>ther this object has branches (like C<|>).

=item family

The general family of this object.

=ite <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1837	1977	
==>" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work be <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1837	1977	
==>" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	362	465	
==>cation
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to M <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	362	465	
==>cation
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to M <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	362	465	
==>cation
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to M <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2655	2765	
==>ted in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- spec <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2839	2949	
==>ted in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- spec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2237	2344	
==>m_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2237	2344	
==>m_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2237	2344	
==>m_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2012	2116	
==>t, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2012	2116	
==>t, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2012	2116	
==>t, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pat <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12689	12785	
==>sent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units" <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12689	12785	
==>sent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3913	4029	
==>C!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3913	4029	
==>C!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3913	4029	
==>C!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18007	18103	
==>gine class to implement it; that is, multiple DBMS objects will not
have references to each other <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18007	18103	
==>gine class to implement it; that is, multiple DBMS objects will not
have references to each other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8452	8556	
==>a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8452	8556	
==>a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8452	8556	
==>a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2226	2314	
==>n ($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2226	2314	
==>n ($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5475	5640	
==>undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5475	5640	
==>undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5475	5640	
==>undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9366	9458	
==>et1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superse <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9366	9458	
==>et1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superse <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10404	10527	
==>h \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10398	10521	
==>h \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11324	11430	
==>ib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11324	11430	
==>ib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11324	11430	
==>ib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2188	2292	
==>_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @! <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2188	2292	
==>_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3906	4006	
==>self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3906	4006	
==>self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4496	4596	
==>self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3423	3536	
==>shift(@mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where( <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6145	6239	
==>splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfil <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8213	8307	
==>splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfil <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6145	6239	
==>splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfil <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8213	8307	
==>splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfil <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2283	2451	
==>s; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2283	2451	
==>s; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13180	13291	
==>y)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13180	13291	
==>y)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13180	13291	
==>y)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32059	32182	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32059	32182	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32059	32182	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20213	20312	
==>imple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, whi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20213	20312	
==>imple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, whi <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1410	1562	
==>t the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1410	1562	
==>t the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	466	553	
==>EigenClass = undef;

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	466	553	
==>EigenClass = undef;

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	466	553	
==>EigenClass = undef;

## ---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4706	4800	
==>open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4928	5022	
==>open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or di <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17363	17460	
==>lf, which provides a virtual machine in which Perl code runs).

The classes and methods of this "R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17363	17460	
==>lf, which provides a virtual machine in which Perl code runs).

The classes and methods of this "R <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3385	3491	
==>t, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $des <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3385	3491	
==>t, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4909	5015	
==>t, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $des <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	209	308	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	209	308	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3660	3797	
==>n $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3800	3937	
==>n $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	363	472	
==>. ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	363	472	
==>. ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	363	472	
==>. ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loca <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3238	3351	
==>( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3238	3351	
==>( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20138	20230	
==>_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20138	20230	
==>_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20138	20230	
==>_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MU <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2902	3037	
==>return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &* <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2902	3037	
==>return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3860	3959	
==>"
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3860	3959	
==>"
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3860	3959	
==>"
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3929	4109	
==>pen), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3929	4109	
==>pen), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1994	2090	
==>elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1994	2090	
==>elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1994	2090	
==>elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13190	13341	
==>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22490	22600	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23053	23163	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18911	19021	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19474	19584	
==>S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2904	3133	
==>e_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3151	3380	
==>e_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<? <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3966	4056	
==>parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3966	4056	
==>parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6163	6253	
==>parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3148	3250	
==>ement of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3148	3250	
==>ement of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3148	3250	
==>ement of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2988	3084	
==>=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the fol <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2988	3084	
==>=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the fol <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6522	6624	
==>enerated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6534	6636	
==>enerated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1869	1970	
==>args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1869	1970	
==>args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1869	1970	
==>args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17312	17432	
==>irst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER::<$_> --> Str )

Performs a U <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1457	1554	
==>e to
be run.

The interface is currently incomplete.  I<Please> contact the author
if you'd like a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9387	9477	
==>sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3212	3302	
==>sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @state <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2091	2180	
==>Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/cameron <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1300	1406	
==>unt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1300	1406	
==>unt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1300	1406	
==>unt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2241	2336	
==>rface is perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2241	2336	
==>rface is perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1124	1240	
==>:Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1124	1240	
==>:Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2593	2695	
==>tcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2593	2695	
==>tcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2593	2695	
==>tcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1067	1178	
==>ve($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.del <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1067	1178	
==>ve($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.del <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3181	3289	
==>zy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3181	3289	
==>zy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3181	3289	
==>zy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35906	36044	
==>om_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35906	36044	
==>om_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35906	36044	
==>om_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18689	18791	
==>scribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines b <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18689	18791	
==>scribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines b <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15741	15853	
==>l;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    ret <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2138	2250	
==>l;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15247	15345	
==>ass->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15247	15345	
==>ass->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15247	15345	
==>ass->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5916	6048	
==>. add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        fore <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5916	6048	
==>. add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        fore <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5916	6048	
==>. add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        fore <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3481	3575	
==>otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3481	3575	
==>otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2709	2841	
==>,
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docume <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7803	7935	
==>,
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docume <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2709	2841	
==>,
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docume <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7803	7935	
==>,
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docume <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2366	2474	
==>RIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3654	3780	
==>ear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3654	3780	
==>ear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3654	3780	
==>ear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie( <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	805	906	
==>b fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	805	906	
==>b fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2563	2675	
==>d( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2563	2675	
==>d( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1234	1329	
==>nd, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCol <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1234	1329	
==>nd, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCol <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1234	1329	
==>nd, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCol <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2025	2141	
==>other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2025	2141	
==>other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2812	2902	
==>ck::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2812	2902	
==>ck::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2812	2902	
==>ck::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Cod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2856	2984	
==>l  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1478	1606	
==>l  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4220	4326	
==>os_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4220	4326	
==>os_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4810	4916	
==>os_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11132	11312	
==>r $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11132	11312	
==>r $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11132	11312	
==>r $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required+ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12992	13080	
==>lso describes the same-number versions of Locale::KeyedText::Message
("Message") and Loca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12992	13080	
==>lso describes the same-number versions of Locale::KeyedText::Message
("Message") and Loca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	198	308	
==>ck, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	202	312	
==>ck, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	198	308	
==>ck, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	202	312	
==>ck, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	386	482	
==>ils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Returns true on <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15906	16016	
==>solution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2299	2409	
==>solution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	715	818	
==>*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	715	818	
==>*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	715	818	
==>*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1773	1891	
==>hod)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1773	1891	
==>hod)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1773	1891	
==>hod)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::ma <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34969	35063	
==>f the heading of the invocant Relation.  This method
degenerates into an C<intersection> if the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39519	39613	
==>f the heading of the invocant Relation.  This method
degenerates into an C<intersection> if the <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1284	1412	
==>_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loo <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1284	1412	
==>_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3993	4094	
==>.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test yo <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3993	4094	
==>.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test yo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4073	4174	
==>.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test yo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8467	8613	
==>ule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12379	12521	
==>ule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12379	12521	
==>ule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->co <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9834	9945	
==>ecks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted, <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11311	11422	
==>ecks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13441	13645	
==>ndle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13441	13645	
==>ndle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13441	13645	
==>ndle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	276	382	
==>est</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</ht <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	276	382	
==>est</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</ht <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	923	1037	
==>HE;

    sub digest {
        my $self = shift;
        $DIGEST_CACHE{overload::StrVal($self)} ||= $self->compute_d <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4962	5121	
==>,
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::Fals <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4962	5121	
==>,
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::Fals <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3819	3932	
==>ue := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3819	3932	
==>ue := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3819	3932	
==>ue := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7796	7903	
==>]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7784	7891	
==>]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	125	219	
==>327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	125	219	
==>327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	125	219	
==>327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ? <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19726	19820	
==>se slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18707	18801	
==>se slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19726	19820	
==>se slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18707	18801	
==>se slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2810	2903	
==>Parrot Perl 6 is the best performing implementation by far.
The Parrot implementation is curre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3841	3972	
==>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4086	4210	
==>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10535	10659	
==>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4086	4210	
==>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10535	10659	
==>{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unless <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	627	878	
==>ackages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	627	878	
==>ackages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15470	15581	
==>) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15470	15581	
==>) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15470	15581	
==>) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15593	15729	
==>_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no F <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15593	15729	
==>_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5313	5414	
==>F) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5313	5414	
==>F) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5313	5414	
==>F) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclass <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9066	9177	
==>ptures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9054	9165	
==>ptures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7448	7551	
==>b main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ packa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7448	7551	
==>b main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ packa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7448	7551	
==>b main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ packa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24766	24882	
==>G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21187	21303	
==>G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2823	2924	
==>)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2823	2924	
==>)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2823	2924	
==>)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infi <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8769	8891	
==>ram,
		);
	}

	sub can_reduce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAM <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19092	19200	
==>>error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15513	15621	
==>>error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8928	9032	
==>he Tree

You can access the root of the tree with the root() method:

  my $root = $parser->root;

It wil <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1401	1501	
==>leave_scope;

	pop @{ $self->{param_count_stack} };
}

sub count_param {
	my $self = shift;
	$self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4321	4441	
==>if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5642	5762	
==>if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4321	4441	
==>if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5630	5750	
==>if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	590	695	
==>otations are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $type = $self->SUPER::t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5495	5603	
==>ode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5495	5603	
==>ode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5495	5603	
==>ode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32697	32792	
==>rnal Template modules as a template.
The Translator class as a whole is not pure and determinist <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32697	32792	
==>rnal Template modules as a template.
The Translator class as a whole is not pure and determinist <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13921	14047	
==>{ _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14200	14326	
==>{ _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2907	3023	
==>me),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2907	3023	
==>me),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2907	3023	
==>me),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2261	2406	
==>[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2261	2406	
==>[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	684	802	
==>)
    printf("[%s]", av[i]);
    printf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or d <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2796	2911	
==>alue;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2796	2911	
==>alue;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15410	15509	
==>ass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15410	15509	
==>ass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15410	15509	
==>ass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17639	17735	
==>rn programs or database systems often refer to an error condition by an
internal code which is gu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17639	17735	
==>rn programs or database systems often refer to an error condition by an
internal code which is gu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10528	10681	
==>s'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10807	10960	
==>s'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1565	1664	
==>s will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1565	1664	
==>s will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1565	1664	
==>s will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11164	11302	
==>$.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.curr <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11164	11302	
==>$.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2015	2136	
==>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2015	2136	
==>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2015	2136	
==>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	576	672	
==>->cc_lib_paths(@_);
}

sub lib_links {
	warn "lib_links has been changed to cc_lib_links due to c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5017	5122	
==>sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5017	5122	
==>sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5017	5122	
==>sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefin <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8551	8649	
==>reates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creat <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8551	8649	
==>reates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1201	1317	
==>r( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1201	1317	
==>r( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m-> <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	776	876	
==>rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <te <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2173	2270	
==>ch is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2173	2270	
==>ch is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20982	21240	
==>am );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20982	21240	
==>am );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20982	21240	
==>am );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10767	10864	
==>quire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10825	10922	
==>quire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bo <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7168	7288	
==>& !%modifiers_supported_p6.{$k} {
                warning "Modifier :$k is not yet supported by PGE/pugs.";
            } <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8182	8288	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11659	11765	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10841	10947	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi m <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2353	2453	
==>Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14210	14425	
==>{
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14210	14425	
==>{
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14210	14425	
==>{
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20641	20737	
==>how up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20641	20737	
==>how up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	827	932	
==>@res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	827	932	
==>@res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	827	932	
==>@res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2611	2765	
==>rrent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2816	2970	
==>rrent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3888	4042	
==>rrent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            } <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2916	3011	
==>$self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2916	3011	
==>$self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5686	5791	
==>::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    lo <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5686	5791	
==>::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6543	6629	
==>y' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6543	6629	
==>y' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6543	6629	
==>y' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	866	986	
==>string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	879	994	
==>string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1762	1874	
==>an implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1762	1874	
==>an implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1762	1874	
==>an implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # ( <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	538	657	
==>eme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    prin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	505	624	
==>eme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16040	16150	
==>:Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16040	16150	
==>:Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16040	16150	
==>:Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6590	6702	
==>dy:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6590	6702	
==>dy:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6590	6702	
==>dy:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	576	668	
==>INV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	576	668	
==>INV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11095	11245	
==>subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11095	11245	
==>subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11095	11245	
==>subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	877	983	
==>-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub pr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1778	1876	
==>ed => $named, positional => $positional,
	   invocant => $invocant,
	   named_slurpy => $named_slur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19890	19981	
==>s are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Curren <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19890	19981	
==>s are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Curren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3536	3624	
==>lf => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('ge <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3536	3624	
==>lf => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('ge <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3536	3624	
==>lf => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('ge <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13748	13885	
==>->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9932	10069	
==>->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10768	10905	
==>->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captur <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1906	2008	
==>l/yaml_harness.pl  - produce the data for this tool
     util/testgraph.pl     - Generates an HTML summ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8045	8142	
==>egerLiteral>
}
rule DecimalLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13151	13299	
==>ispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13151	13299	
==>ispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13151	13299	
==>ispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1686	1820	
==>s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1686	1820	
==>s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1024	1138	
==>aram<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	766	880	
==>aram<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_ <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1024	1138	
==>aram<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_ <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	766	880	
==>aram<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_ <==
5	/Users/nnunley/pugs/util/importgraph.pl	43	138	
==>ph.pl [--layout=neato]
# produces importgraph.ps in the current directory
# it expects to run fr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2676	2802	
==>.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2676	2802	
==>.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2676	2802	
==>.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # C <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1894	1988	
==>stand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruc <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1894	1988	
==>stand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruc <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	8037	8178	
==>$tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $T <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2694	2808	
==>t ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2694	2808	
==>t ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    retu <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	138	233	
==>0;
use constant PGE_OPTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_O <==
5	/Users/nnunley/pugs/util/package-osx.pl	4246	4334	
==>/usr/local/man/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Perl6::Bible::E05.3 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31251	31346	
==>er] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31251	31346	
==>er] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18011	18102	
==>+ p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18011	18102	
==>+ p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18011	18102	
==>+ p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	666	780	
==>bal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	666	780	
==>bal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	666	780	
==>bal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6351	6465	
==>bal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3240	3349	
==>_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20567	20680	
==>(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implement <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16988	17101	
==>(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implement <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6545	6650	
==>constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6545	6650	
==>constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6545	6650	
==>constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_p <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9255	9381	
==>ne the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $c <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9255	9381	
==>ne the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $c <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	610	709	
==>del object called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# this co <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11164	11256	
==>versal set" recurrence object.

- `complement()`

Returns everything (from the universal set) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11164	11256	
==>versal set" recurrence object.

- `complement()`

Returns everything (from the universal set) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17565	17730	
==>List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17565	17730	
==>List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17565	17730	
==>List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @pa <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3044	3145	
==>un($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3044	3145	
==>un($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1166	1279	
==>hod start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1166	1279	
==>hod start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5303	5397	
==>iled, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wit <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5303	5397	
==>iled, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6827	6921	
==>iled, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wit <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11534	11641	
==>b num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11534	11641	
==>b num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode <==
5	/Users/nnunley/pugs/misc/Date/lib/Date.pm	443	546	
==>r) returns Duration {
    ...
}

#method infix:<->($self: Date $other) returns Duration {
    #$self.dif <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2613	2710	
==>thod end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     return <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2613	2710	
==>thod end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3170	3397	
==>cure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3170	3397	
==>cure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2451	2548	
==>Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2451	2548	
==>Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2451	2548	
==>Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modul <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9971	10120	
==>am_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9971	10120	
==>am_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1386	1482	
==>:BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseCl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1386	1482	
==>:BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseCl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1386	1482	
==>:BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseCl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9801	9937	
==>itutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6142	6278	
==>itutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6991	7127	
==>itutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed r <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2858	2968	
==>e_upload_script $html_location

    Or add
        smoke_upload: 1 
    to your config.yml file if you want the <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11616	11706	
==>_comment --> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of_line([C|T]) --> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8685	8870	
==>ELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8685	8870	
==>ELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8685	8870	
==>ELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	17723	17897	
==>rt = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $spe <==
5	/Users/nnunley/pugs/util/claim_drift.pl	620	732	
==>level of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    exit 1;
}

for my $o <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	151	245	
==>ge and a compiler collection for
the purpose of demonstrating an approach to compilation.

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4916	5009	
==>metric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4043	4136	
==>metric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4916	5009	
==>metric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4043	4136	
==>metric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2544	2656	
==>Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2544	2656	
==>Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2544	2656	
==>Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16627	16719	
==>min_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies the <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21053	21145	
==>min_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	172	288	
==>e unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	172	288	
==>e unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	172	288	
==>e unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	838	936	
==>:Document {

    # External packages used by the Rosetta::Model::Document class, that do export sym <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	838	936	
==>:Document {

    # External packages used by the Rosetta::Model::Document class, that do export sym <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	540	644	
==>, to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	540	644	
==>, to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3915	4014	
==>onal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3915	4014	
==>onal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
us <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3915	4014	
==>onal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1770	1906	
==>$pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1770	1906	
==>$pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1770	1906	
==>$pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4726	4829	
==>arn "Enormous test number seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n" <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3266	3364	
==>nit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a number or a string. Fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10216	10330	
==>l => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S->object(bol => bol => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4005	4113	
==>= $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_v <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2956	3063	
==>= $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2971	3075	
==>ody = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2971	3075	
==>ody = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	496	596	
==>*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	496	596	
==>*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5783	5881	
==>PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5783	5881	
==>PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5783	5881	
==>PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9827	9962	
==>') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9827	9962	
==>') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9827	9962	
==>') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18228	18325	
==>to use the same external resources, such as a repository file
on disk, it is expected that the Eng <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18228	18325	
==>to use the same external resources, such as a repository file
on disk, it is expected that the Eng <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3034	3166	
==>pe;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3034	3166	
==>pe;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3034	3166	
==>pe;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1364	1457	
==>&::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is expo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1364	1457	
==>&::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is expo <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5869	5973	
==>l $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX::true :: +0 }
multi sub ToNum <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5632	5735	
==>$two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4762	4865	
==>$two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5632	5735	
==>$two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4762	4865	
==>$two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11239	11357	
==>, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11239	11357	
==>, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # w <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10484	10594	
==>, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10484	10594	
==>, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8304	8407	
==>des
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11493	11590	
==>tem I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11493	11590	
==>tem I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1265	1358	
==>6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1265	1358	
==>6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1265	1358	
==>6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)} <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	498	616	
==>!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	498	616	
==>!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14213	14329	
==>with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17690	17806	
==>with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17106	17222	
==>with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5841	5941	
==>bute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5841	5941	
==>bute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5841	5941	
==>bute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41191	41284	
==>me files as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41191	41284	
==>me files as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2355	2486	
==>e:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2355	2486	
==>e:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2355	2486	
==>e:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cla <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1777	1867	
==>u may then resume the installation process described in README.

-------------------------- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1617	1707	
==>u may then resume the installation process described in README.

-------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7915	8044	
==>tr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13509	13638	
==>tr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7915	8044	
==>tr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13503	13632	
==>tr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4803	4925	
==>OCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4803	4925	
==>OCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4803	4925	
==>OCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFI <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25483	25585	
==>arch
 * starts in the string, so if regback is >= 0, the regmust search is never
 * wasted effort.  The <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	1046	1138	
==>allsiteman1dir} || $Config{installman1dir},
        installsiteman3dir => $Config{installsite <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2683	2800	
==>rn $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2671	2788	
==>rn $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4832	4945	
==>pParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4832	4945	
==>pParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4832	4945	
==>pParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1022	1126	
==>(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1022	1126	
==>(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1022	1126	
==>(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	594	693	
==>)" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrenc <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	594	693	
==>)" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9228	9429	
==>>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9228	9429	
==>>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9228	9429	
==>>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        re <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2696	2827	
==>tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2696	2827	
==>tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5251	5350	
==>bj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5251	5350	
==>bj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5251	5350	
==>bj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31337	31522	
==>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31337	31522	
==>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31337	31522	
==>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_l <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8609	8704	
==>ew( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8609	8704	
==>ew( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5888	6051	
==>< match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5888	6051	
==>< match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5888	6051	
==>< match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null, <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2142	2272	
==>ear) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fa <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2142	2272	
==>ear) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fa <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3063	3172	
==>data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $da <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3063	3172	
==>data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $da <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1820	1926	
==>*@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (r <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	997	1101	
==>*@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (r <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1470	1574	
==>*@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (r <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5596	5701	
==>dex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5596	5701	
==>dex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4309	4403	
==>xpected lines from the previously run tests,
passing if both the diagnostics and output match e <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4309	4403	
==>xpected lines from the previously run tests,
passing if both the diagnostics and output match e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4389	4483	
==>xpected lines from the previously run tests,
passing if both the diagnostics and output match e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1118	1297	
==>:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@curre <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1118	1297	
==>:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@curre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7376	7478	
==>xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7376	7478	
==>xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7376	7478	
==>xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3800	3905	
==>m=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4017	4122	
==>m=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1181	1282	
==>r constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1181	1282	
==>r constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1181	1282	
==>r constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	432	542	
==>$self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	432	542	
==>$self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	432	542	
==>$self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5619	5726	
==>s_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intac <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5619	5726	
==>s_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3153	3300	
==>methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3881	4002	
==>methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2206	2308	
==>CE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2206	2308	
==>CE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2206	2308	
==>CE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27479	27576	
==>he names of the new attributes, and
the values provide values applied to each tuple.  The new Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32031	32128	
==>he names of the new attributes, and
the values provide values applied to each tuple.  The new Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31114	31211	
==>he names of the new attributes, and
the values provide values applied to each tuple.  The new Rela <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25966	26062	
==>yright notice and other credits.
Rosetta is distributed in the hope that it will be useful, but W <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25966	26062	
==>yright notice and other credits.
Rosetta is distributed in the hope that it will be useful, but W <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21491	21585	
==>sponding message.
Event names which are all lowercase are "pseudo" events. See below for a list <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20372	20466	
==>sponding message.
Event names which are all lowercase are "pseudo" events. See below for a list <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21491	21585	
==>sponding message.
Event names which are all lowercase are "pseudo" events. See below for a list <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20372	20466	
==>sponding message.
Event names which are all lowercase are "pseudo" events. See below for a list <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37019	37106	
==>d C<symmetric_difference>.

=item C<exclusion (Relation::Example *@others) returns Relat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18724	18898	
==>rray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18724	18898	
==>rray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18724	18898	
==>rray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} || <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5138	5260	
==>subs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } e <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5196	5318	
==>subs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4735	4935	
==>> 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match failure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8909	9020	
==>ludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	643	754	
==>ludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8909	9020	
==>ludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8909	9020	
==>ludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7254	7419	
==>plemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7254	7419	
==>plemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7254	7419	
==>plemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	733	873	
==>nce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	733	873	
==>nce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	733	873	
==>nce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dis <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2100	2225	
==>et" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2100	2225	
==>et" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11797	11916	
==>her digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11797	11916	
==>her digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2951	3052	
==>p();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2951	3052	
==>p();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2951	3052	
==>p();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.l <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1305	1412	
==>moke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") =~ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25606	25703	
==>ys how many characters back from
 * where regmust matched is the earliest possible start of the ma <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27668	27762	
==>tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32220	32314	
==>tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31312	31406	
==>tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6224	6376	
==>ATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6224	6376	
==>ATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35552	35664	
==>e {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35552	35664	
==>e {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35552	35664	
==>e {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3483	3631	
==>{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3483	3631	
==>{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3483	3631	
==>{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14066	14161	
==>on. A second argument can be given to specify which
characters to consider unsafe (i.e., which t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14066	14161	
==>on. A second argument can be given to specify which
characters to consider unsafe (i.e., which t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1631	1737	
==>o method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1836	1942	
==>o method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2185	2292	
==>- @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2185	2292	
==>- @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2185	2292	
==>- @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pus <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14461	14563	
==>$self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::le <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1941	2043	
==>$self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::le <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10262	10414	
==>,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              description => $d <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	812	954	
==>,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	812	954	
==>,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19638	19730	
==>ames you specified in the constructor. For example,
C<Net::IRC> automatically tries to use sl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19638	19730	
==>ames you specified in the constructor. For example,
C<Net::IRC> automatically tries to use sl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1677	1781	
==>lf->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified vari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1677	1781	
==>lf->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified vari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1677	1781	
==>lf->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified vari <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18461	18559	
==>ers, we still get the best results by having a human being write out
that text themselves.

What Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18461	18559	
==>ers, we still get the best results by having a human being write out
that text themselves.

What Lo <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5415	5513	
==>ue of success or failure;

=item err_str

The C<err_str> method returns the last error message

=ba <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5415	5513	
==>ue of success or failure;

=item err_str

The C<err_str> method returns the last error message

=ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1049	1141	
==>p") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1049	1141	
==>p") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1049	1141	
==>p") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14693	14826	
==>$ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14693	14826	
==>$ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14693	14826	
==>$ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14430	14526	
==>ader fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14430	14526	
==>ader fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4111	4356	
==>le Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4111	4356	
==>le Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	813	915	
==>undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	813	915	
==>undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	813	915	
==>undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1020	1169	
==>ethod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1020	1169	
==>ethod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	652	785	
==>f (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $des <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	687	820	
==>f (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	652	785	
==>f (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $des <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9869	10002	
==>f (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $des <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1125	1258	
==>f (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_all($src_path, $des <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	992	1154	
==>.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	992	1154	
==>.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6959	7055	
==>ul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6959	7055	
==>ul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6959	7055	
==>ul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9504	9670	
==>6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9504	9670	
==>6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9504	9670	
==>6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12500	12595	
==>ty, but gains one element for each Node in the Node
hierarchies created from a defined @root_nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12500	12595	
==>ty, but gains one element for each Node in the Node
hierarchies created from a defined @root_nod <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1566	1686	
==>) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shif <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8871	8964	
==>.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3800	3893	
==>.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8871	8964	
==>.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3800	3893	
==>.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4154	4273	
==>/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4154	4273	
==>/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1890	1986	
==>$meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1890	1986	
==>$meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1890	1986	
==>$meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9370	9507	
==>->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[T <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9370	9507	
==>->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	936	1038	
==>eturns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	936	1038	
==>eturns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	936	1038	
==>eturns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - e <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6106	6252	
==>spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6926	7072	
==>spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6106	6252	
==>spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6926	7072	
==>spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6732	6829	
==>_t previous_comp_hook = NULL;

regexp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2938	3051	
==>*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(. <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1312	1425	
==>*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2938	3051	
==>*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2938	3051	
==>*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(. <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6468	6575	
==>ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self->gene <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2851	2961	
==>lse {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2851	2961	
==>lse {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2851	2961	
==>lse {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15959	16051	
==>::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norm <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16017	16109	
==>::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norm <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1007	1133	
==>409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1007	1133	
==>409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8447	8555	
==>ethod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8447	8555	
==>ethod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8447	8555	
==>ethod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaqu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	399	507	
==>nd_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	399	507	
==>nd_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	399	507	
==>nd_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16822	16914	
==>MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
whe <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16822	16914	
==>MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7975	8086	
==>ame;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7975	8086	
==>ame;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7975	8086	
==>ame;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::R <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	248	349	
==>n::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrenc <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	248	349	
==>n::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrenc <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4509	4612	
==>ception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depen <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4567	4670	
==>ception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depen <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5745	5841	
==>> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/fa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5745	5841	
==>> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/fa <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14636	14724	
==>/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_size=$initrd_size quiet
initrd   /boot/in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12932	13183	
==>$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12932	13183	
==>$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12932	13183	
==>$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_pa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2107	2280	
==>art_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2107	2280	
==>art_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	531	627	
==>uctions may sub-class this module or
provide special behaviour when a property is set.  If we eve <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	531	627	
==>uctions may sub-class this module or
provide special behaviour when a property is set.  If we eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1100	1190	
==>-------------------------------------------------------
## Roles

# Questions on Role metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1100	1190	
==>-------------------------------------------------------
## Roles

# Questions on Role metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1100	1190	
==>-------------------------------------------------------
## Roles

# Questions on Role metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18826	19026	
==>$other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18826	19026	
==>$other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18826	19026	
==>$other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1514	1612	
==>@_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
		retu <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1085	1181	
==>ould be
# unsustainable, and unsuitable for anything but throwaway code.
# However, the perl5 cor <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19783	19892	
==>kage $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6396	6501	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6396	6501	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6396	6501	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) }, <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	49	149	
==>n perl6-ish perl 5
# (makes use of attribute grammars and multimethods)

# first part is a type prett <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2486	2622	
==>,
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2321	2433	
==>ash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2321	2433	
==>ash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2321	2433	
==>ash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pa <==
5	/Users/nnunley/pugs/util/config_h.pl	855	961	
==>fine PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12923	13038	
==>qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27062	27177	
==>qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14338	14448	
==>->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14338	14448	
==>->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14338	14448	
==>->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17329	17415	
==>make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17329	17415	
==>make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17329	17415	
==>make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_at <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	283	407	
==>_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	767	891	
==>_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5567	5664	
==>E to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE woul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5567	5664	
==>E to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE woul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5567	5664	
==>E to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE woul <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4264	4374	
==>n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	687	787	
==>>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	687	787	
==>>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	687	787	
==>>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2783	2936	
==>urn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2783	2936	
==>urn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2783	2936	
==>urn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2828	2931	
==>ctor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2828	2931	
==>ctor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	886	996	
==>tfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is c <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1760	1870	
==>tfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	886	996	
==>tfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1760	1870	
==>tfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is c <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23127	23227	
==>> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Identi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7558	7676	
==>],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7558	7676	
==>],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18755	18871	
==>x0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( star <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18755	18871	
==>x0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( star <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18755	18871	
==>x0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( star <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1316	1481	
==>open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_en <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4555	4720	
==>open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1316	1481	
==>open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4555	4720	
==>open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_en <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22630	22735	
==>ACK;
  }

After the tree has been created, this key is deleted; this gives the
code a way to be sure compi <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	239	336	
==>@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { hlp('string',@_); }
sub node_a { hl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2743	2838	
==>e_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10663	10758	
==>e_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2743	2838	
==>e_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10663	10758	
==>e_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keyed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4202	4354	
==>@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slots')}) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	55	202	
==>rl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	55	201	
==>rl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constan <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2691	2785	
==>) returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2691	2785	
==>) returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1214	1321	
==>up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1214	1321	
==>up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1214	1321	
==>up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40056	40152	
==>as part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Fre <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40056	40152	
==>as part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Fre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1404	1571	
==>LF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1404	1571	
==>LF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1404	1571	
==>LF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2430	2540	
==>1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2430	2540	
==>1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy <==
5	/Users/nnunley/pugs/util/file_to_hs.pl	795	925	
==>nclude\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	540	650	
==>e {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	540	650	
==>e {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	540	650	
==>e {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecas <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	124	225	
==>s
# something which does subscriber can recieve them
# two kinds of things that can do subscriber:
# - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5581	5677	
==>ursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5581	5677	
==>ursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5581	5677	
==>ursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($ <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2297	2391	
==>Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Fin <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2297	2391	
==>Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Fin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5661	5771	
==>er to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5661	5771	
==>er to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5307	5412	
==>xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5307	5412	
==>xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5307	5412	
==>xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8129	8225	
==>s and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8129	8225	
==>s and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_ni <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	313	407	
==>{ $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	313	407	
==>{ $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	313	407	
==>{ $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7097	7198	
==>sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7097	7198	
==>sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7097	7198	
==>sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3255	3345	
==>mpile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3472	3562	
==>mpile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22830	23004	
==>scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - tes <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22830	23004	
==>scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - tes <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22830	23004	
==>scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1475	1587	
==>};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; > <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1475	1587	
==>};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; > <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3353	3457	
==>$set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3353	3457	
==>$set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5431	5534	
==>($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5431	5534	
==>($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5431	5534	
==>($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1355	1464	
==>s($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1560	1669	
==>s($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1621	1730	
==>s($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:meth <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	889	992	
==>setta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	889	992	
==>setta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1712	1836	
==>D; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4304	4417	
==>('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5625	5738	
==>('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolati <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4304	4417	
==>('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolati <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5613	5726	
==>('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35629	35726	
==>other!) returns Relation::Example>

This multi-method is a generic binary relational operator that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36726	36823	
==>other!) returns Relation::Example>

This multi-method is a generic binary relational operator that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37226	37323	
==>other!) returns Relation::Example>

This multi-method is a generic binary relational operator that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39274	39371	
==>other!) returns Relation::Example>

This multi-method is a generic binary relational operator that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39822	39919	
==>other!) returns Relation::Example>

This multi-method is a generic binary relational operator that <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5201	5354	
==>constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5189	5342	
==>constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13764	13855	
==>n::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13764	13855	
==>n::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStm <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13764	13855	
==>n::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7243	7342	
==>to blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	163	262	
==>e strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Big <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7243	7342	
==>to blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	163	262	
==>e strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Big <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	163	262	
==>e strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Big <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1111	1308	
==>ge.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submetho <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1111	1308	
==>ge.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submetho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2196	2300	
==>at can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2196	2300	
==>at can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2196	2300	
==>at can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7550	7656	
==>d pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7550	7656	
==>d pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	726	828	
==>1
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	726	828	
==>1
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	726	828	
==>1
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clone <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	492	625	
==>r);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	492	625	
==>r);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8135	8257	
==>tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8135	8257	
==>tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8135	8257	
==>tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1535	1626	
==>$$) = { join(" ", $.name, layout($.param)) }
type::operator::nary: level($.param) = { level( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8833	8931	
==>, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3762	3860	
==>, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8833	8931	
==>, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3762	3860	
==>, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <b <==
5	/Users/nnunley/pugs/util/package-osx.pl	2115	2205	
==>ite_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_perl/PIL /Libra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3571	3678	
==>\"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3571	3678	
==>\"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3571	3678	
==>\"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not d <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1129	1225	
==>atpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is exp <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1129	1225	
==>atpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19068	19200	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19068	19200	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19068	19200	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} } <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1361	1487	
==>s $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	101	194	
==>-Compiler-Rule/lib",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar:: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14309	14426	
==>ng the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14309	14426	
==>ng the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	860	963	
==>mes people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	860	963	
==>mes people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	852	947	
==>the behavior of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbose();
  $strap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37986	38116	
==>h( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37986	38116	
==>h( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37986	38116	
==>h( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	152	257	
==>nvitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::I <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	152	257	
==>nvitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::I <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3615	3745	
==>->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3755	3885	
==>->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13214	13310	
==>table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13214	13310	
==>table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13214	13310	
==>table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $lab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3322	3432	
==>n't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3322	3432	
==>n't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3322	3432	
==>n't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $cont <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6772	6878	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a R <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6772	6878	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a R <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24365	24503	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25628	25766	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24644	24782	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25907	26045	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops ) <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	196	297	
==>ee lazily ...
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show_tree ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2164	2276	
==>];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionApp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2164	2276	
==>];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionApp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1639	1733	
==>$sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1639	1733	
==>$sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1639	1733	
==>$sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15650	15787	
==>fined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15650	15787	
==>fined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15650	15787	
==>fined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not f <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	265	365	
==>un;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ " <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	265	365	
==>un;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ " <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17580	17728	
==>[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14001	14149	
==>[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3763	3884	
==>e is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3763	3884	
==>e is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3763	3884	
==>e is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.k <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5530	5637	
==>sure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5530	5637	
==>sure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1244	1330	
==>L2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1244	1330	
==>L2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1244	1330	
==>L2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline(' <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2241	2360	
==>() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2241	2360	
==>() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5836	5936	
==>lice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5836	5936	
==>lice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the or <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5836	5936	
==>lice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the or <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	511	641	
==>}
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	511	641	
==>}
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2487	2587	
==>fined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2487	2587	
==>fined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2487	2587	
==>fined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	673	800	
==>package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	673	800	
==>package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	673	800	
==>package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       ) <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	443	560	
==>est) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { ( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	443	560	
==>est) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10032	10216	
==>),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->remove($e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2580	2691	
==>implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2580	2691	
==>implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2580	2691	
==>implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lan <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28515	28611	
==>w Test::Harness tests itself

  $ cd ~/src/devel/Test-Harness
  $ perl -Mblib -e 'use Test::Harne <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5531	5673	
==>il <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5531	5673	
==>il <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3993	4085	
==>st::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=it <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3993	4085	
==>st::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5517	5609	
==>st::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=it <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1847	1951	
==>}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descript <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1847	1951	
==>}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descript <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1927	2031	
==>}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descript <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2264	2364	
==>eturn $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2264	2364	
==>eturn $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4159	4275	
==>rs && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    retur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4159	4275	
==>rs && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25217	25310	
==>ool indicating whether the immutable identity of the
argument C<$other> equals the immutable i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29769	29862	
==>ool indicating whether the immutable identity of the
argument C<$other> equals the immutable i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28699	28792	
==>ool indicating whether the immutable identity of the
argument C<$other> equals the immutable i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19423	19534	
==>are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19423	19534	
==>are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17227	17327	
==>ibutes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17227	17327	
==>ibutes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17227	17327	
==>ibutes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => : <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13196	13313	
==>e \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_as <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9382	9499	
==>e \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_as <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10218	10335	
==>e \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_as <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	457	542	
==>-------------------------------------------------------------
## accessors and mutator <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	457	542	
==>-------------------------------------------------------------
## accessors and mutator <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4567	4694	
==>) ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4567	4694	
==>) ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1445	1557	
==>var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1445	1557	
==>var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1445	1557	
==>var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7548	7675	
==>nd - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7548	7675	
==>nd - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7548	7675	
==>nd - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->fr <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2610	2721	
==>n eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } spli <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2610	2721	
==>n eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } spli <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3983	4115	
==>array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3983	4115	
==>array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3983	4115	
==>array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	709	813	
==>an/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for singl <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	709	813	
==>an/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for singl <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4331	4453	
==>$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    el <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4389	4511	
==>$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3708	3809	
==>ude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3708	3809	
==>ude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3708	3809	
==>ude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludep <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1528	1631	
==>er; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitte <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1668	1771	
==>er; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4905	5001	
==>ch => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4905	5001	
==>ch => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4905	5001	
==>ch => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12677	12780	
==>ld - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(define <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12677	12780	
==>ld - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(define <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12677	12780	
==>ld - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(define <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9901	10002	
==>thod
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9901	10002	
==>thod
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16944	17065	
==>sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16944	17065	
==>sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16944	17065	
==>sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Pe <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2024	2114	
==>-------------------------------------------
## adding children 

method add_child ($self: T <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2024	2114	
==>-------------------------------------------
## adding children 

method add_child ($self: T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3431	3522	
==>lass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base ro <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3431	3522	
==>lass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5628	5719	
==>lass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base ro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5308	5442	
==>ef( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dum <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5530	5664	
==>ef( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9625	9739	
==>f $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9625	9739	
==>f $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9625	9739	
==>f $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37992	38121	
==>s );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37992	38121	
==>s );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37992	38121	
==>s );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->stor <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13773	13888	
==>r($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13767	13882	
==>r($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8775	8904	
==>}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8763	8892	
==>}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	908	1016	
==>w PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	908	1016	
==>w PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	908	1016	
==>w PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30802	30893	
==>s following the transformation have been eliminated. 
Trivial cases are where C<$transformer <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35353	35443	
==>s following the transformation have been eliminated.
Trivial cases are where C<$transformer <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34544	34634	
==>s following the transformation have been eliminated.
Trivial cases are where C<$transformer <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4780	4962	
==>,<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5002	5184	
==>,<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	854	951	
==>l (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	854	951	
==>l (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	854	951	
==>l (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reble <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3266	3388	
==>{
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3266	3388	
==>{
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4790	4912	
==>{
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20515	20610	
==>Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a lis <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20515	20610	
==>Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	356	456	
==>at sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	356	456	
==>at sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	356	456	
==>at sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19147	19237	
==>der(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authentica <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19147	19237	
==>der(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authentica <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1090	1220	
==>zy {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $del <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7287	7385	
==>redocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler` <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7287	7385	
==>redocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler` <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2581	2671	
==>hild ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children return <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2581	2671	
==>hild ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3248	3385	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3441	3578	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25911	26004	
==>es, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30463	30556	
==>es, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29438	29531	
==>es, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7020	7149	
==>= shift if @_;
      $self->{neg};
    }
  }

  sub visual {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22009	22104	
==>. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availab <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20890	20985	
==>. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availab <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22009	22104	
==>. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availab <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20890	20985	
==>. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availab <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1661	1789	
==>-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <dec <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1661	1789	
==>-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <dec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7638	7742	
==>ub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7638	7742	
==>ub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7638	7742	
==>ub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1829	1983	
==>ce(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2034	2188	
==>ce(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2097	2251	
==>ce(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	493	600	
==>x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	493	600	
==>x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1282	1394	
==>| [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1282	1394	
==>| [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	610	716	
==>-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	610	716	
==>-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	610	716	
==>-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6569	6682	
==>r = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6569	6682	
==>r = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6569	6682	
==>r = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1790	1899	
==>imal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1790	1899	
==>imal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16711	16850	
==>er.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16711	16850	
==>er.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7739	7843	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7739	7843	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7739	7843	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	826	960	
==>::BB::pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval= <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22481	22593	
==>->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23044	23156	
==>->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18902	19014	
==>->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19465	19577	
==>->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self- <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27971	28069	
==>_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define R <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6495	6591	
==>returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5625	5721	
==>returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6495	6591	
==>returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5625	5721	
==>returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1782	1884	
==>formance reasons,

# because they are too frequent and they are too slow using the basic 

# rule parse <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1710	1810	
==>formance reasons,
# because they are too frequent and they are too slow using the basic 
# rule parse <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	385	484	
==>formance reasons,
# because they are too frequent and they are too slow using the basic
# rule parse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	396	495	
==>formance reasons,
# because they are too frequent and they are too slow using the basic
# rule parse <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10297	10387	
==>aramDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocant, isOptional=>$ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	103	233	
==>!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export { <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	103	233	
==>!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export { <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11995	12122	
==>f";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    push @{ $self->{scopes}[-1] }, P <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	481	603	
==>cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	382	504	
==>cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3033	3167	
==>pture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3044	3178	
==>pture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2332	2411	
==>_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2332	2411	
==>_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2332	2411	
==>_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5454	5571	
==>revious }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5454	5571	
==>revious }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_ <==
5	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	753	865	
==>pl", topic => '', entry => '', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5794	5886	
==>um/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5794	5886	
==>um/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15608	15720	
==>p - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15608	15720	
==>p - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15608	15720	
==>p - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TOD <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40174	40269	
==>, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40174	40269	
==>, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7978	8122	
==>methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7978	8122	
==>methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7978	8122	
==>methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7862	7961	
==>ent is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event i <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7862	7961	
==>ent is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9359	9474	
==>.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (l <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9359	9474	
==>.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12776	12882	
==>s->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12776	12882	
==>s->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12776	12882	
==>s->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical' <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3645	3882	
==>~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_ele <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3645	3882	
==>~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14400	14492	
==>ytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14400	14492	
==>ytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14400	14492	
==>ytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2495	2627	
==>od clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2495	2627	
==>od clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25019	25113	
==>returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29571	29665	
==>returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28483	28577	
==>returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9793	9913	
==>nel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9793	9913	
==>nel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29368	29489	
==>X - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERS <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29368	29489	
==>X - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERS <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29368	29489	
==>X - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERS <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3538	3634	
==>{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3722	3818	
==>{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-re <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	518	630	
==>sed($key)   && $key->isa('type')) && 
         (blessed($value) && $value->isa('type')))
            || confess " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23852	23951	
==>CE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22625	22724	
==>CE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23852	23951	
==>CE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22625	22724	
==>CE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1637	1824	
==>{ $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1637	1824	
==>{ $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1637	1824	
==>{ $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexi <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	23563	23694	
==>= @failed;
    my @result = ();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7763	7893	
==>(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `find $parrot_path/runtime/parrot/i <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3387	3502	
==>..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3387	3502	
==>..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3541	3648	
==>equote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3541	3648	
==>equote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3541	3648	
==>equote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6360	6465	
==>elf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6360	6465	
==>elf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6360	6465	
==>elf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13599	13698	
==>rameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13599	13698	
==>rameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8702	8819	
==>$span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8702	8819	
==>$span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16744	16853	
==>in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16744	16853	
==>in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16744	16853	
==>in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2256	2369	
==>\n/){
		    $valuex = eval("\"$value\""); die "bug $@\n$value\n" if $@;
		}
		if ($res ne $valuex) {
		    print " <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4202	4303	
==>two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3329	3430	
==>two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4202	4303	
==>two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3329	3430	
==>two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15163	15273	
==>xp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2738	2825	
==>$vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PA <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6190	6277	
==>$vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2738	2825	
==>$vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2738	2825	
==>$vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PA <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	633	755	
==>else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	633	755	
==>else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	633	755	
==>else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

su <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	56	143	
==>ready been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Confi <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	56	143	
==>ready been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Confi <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	408	550	
==>sing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line. <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	408	550	
==>sing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8514	8618	
==>nboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8514	8618	
==>nboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8514	8618	
==>nboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7495	7622	
==>8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7495	7622	
==>8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11872	11961	
==>l(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::In <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11872	11961	
==>l(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::In <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11872	11961	
==>l(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::In <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	294	412	
==>e) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsaf <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	294	412	
==>e) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsaf <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1766	1866	
==>d all_methods($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21961	22056	
==>TERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects fr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21961	22056	
==>TERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects fr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4094	4189	
==>structs a new cipher object.  The options passed to the 
C<new> constructor generally include so <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4094	4189	
==>structs a new cipher object.  The options passed to the 
C<new> constructor generally include so <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4452	4545	
==>', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4452	4545	
==>', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20055	20144	
==>_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20055	20144	
==>_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20055	20144	
==>_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	597	725	
==>ice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	597	725	
==>ice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	331	447	
==>6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	331	447	
==>6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	331	447	
==>6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1277	1459	
==>dy.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1277	1459	
==>dy.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1277	1459	
==>dy.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add on <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16639	16765	
==>apture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16918	17044	
==>apture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4309	4430	
==>eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5630	5751	
==>eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4309	4430	
==>eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5618	5739	
==>eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        r <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1445	1541	
==>ypes.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5112	5204	
==>he value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo r <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5112	5204	
==>he value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6636	6728	
==>he value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9029	9209	
==>e(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('pat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9029	9209	
==>e(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('pat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	514	609	
==>ser::Objects;
use Regexp::Parser::Handlers;


# this handles 'use base "Regexp::Parser"'
# which <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1995	2089	
==>!$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1995	2089	
==>!$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5570	5692	
==>/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6838	6960	
==>/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5570	5692	
==>/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6826	6948	
==>/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $c <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6732	6818	
==>[C], {\+(p5_metachar([C]))}.
p5_elemental(char(C)) --> "\\", [C], {p5_metachar([C])}.
% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9189	9314	
==>ion = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1317	1434	
==>ion = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1317	1434	
==>ion = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1296	1408	
==>how_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1296	1408	
==>how_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Ros <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1400	1682	
==>s) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1400	1682	
==>s) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2744	2921	
==>0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2744	2921	
==>0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2744	2921	
==>0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5037	5172	
==>e others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5037	5172	
==>e others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5037	5172	
==>e others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call th <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5999	6094	
==>NS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
ac <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5999	6094	
==>NS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
ac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3352	3508	
==>thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3352	3508	
==>thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3352	3508	
==>thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11866	12011	
==>/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11866	12011	
==>/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=c <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6430	6542	
==>: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- i <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6430	6542	
==>: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13967	14076	
==>b p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13967	14076	
==>b p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13967	14076	
==>b p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_in <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16187	16281	
==>egstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20613	20707	
==>egstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5465	5593	
==>ch my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5465	5593	
==>ch my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5465	5593	
==>ch my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @par <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17030	17125	
==>y accessable manner, such that would not be possible if its
functionality was subsumed into a la <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17030	17125	
==>y accessable manner, such that would not be possible if its
functionality was subsumed into a la <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14109	14246	
==>ds in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14109	14246	
==>ds in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14109	14246	
==>ds in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2438	2534	
==>you're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2438	2534	
==>you're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3782	3950	
==>is Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # H <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3782	3950	
==>is Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7661	7796	
==>r->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7661	7796	
==>r->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7661	7796	
==>r->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7785	7913	
==>8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "p <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7785	7913	
==>8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7414	7523	
==>old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7414	7523	
==>old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7414	7523	
==>old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($x <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22666	22775	
==>_and_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => com <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4135	4244	
==>s;
	return UNIVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8337	8441	
==>ed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8337	8441	
==>ed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8337	8441	
==>ed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	868	967	
==>rser gets it, turns it into a AST node (the API is

specified in Perl6::API::AST - so maybe the impl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13772	13870	
==>ass->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	822	920	
==>rser gets it, turns it into a AST node (the API is
specified in Perl6::API::AST - so maybe the impl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13772	13870	
==>ass->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13772	13870	
==>ass->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9813	9922	
==>b add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9813	9922	
==>b add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9813	9922	
==>b add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11790	11886	
==>Model::Node - This stores an ordered list of all this
Document's Node objects that do not have pa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11790	11886	
==>Model::Node - This stores an ordered list of all this
Document's Node objects that do not have pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15563	15689	
==>=> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15563	15689	
==>=> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15563	15689	
==>=> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$:: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	348	448	
==>lse, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_em <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	348	448	
==>lse, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_em <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1189	1290	
==>f->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1189	1290	
==>f->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1189	1290	
==>f->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9869	9974	
==>vides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11346	11451	
==>vides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	948	1046	
==>utomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	948	1046	
==>utomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	948	1046	
==>utomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1323	1426	
==>$tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1323	1426	
==>$tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13576	13672	
==>x:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13576	13672	
==>x:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13576	13672	
==>x:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5538	5680	
==>succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5538	5680	
==>succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2779	2896	
==>f:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2779	2896	
==>f:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2779	2896	
==>f:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	443	693	
==>=> sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1736	1865	
==>umper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2479	2608	
==>umper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1736	1865	
==>umper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2467	2596	
==>umper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11466	11591	
==>)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11466	11591	
==>)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	83	202	
==>0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	83	202	
==>0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	83	202	
==>0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7968	8105	
==>ented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subst <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13562	13699	
==>ented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subst <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7968	8105	
==>ented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subst <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13556	13693	
==>ented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subst <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2830	2928	
==>_PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base compiler for Blondie ASTs

=h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1188	1289	
==>main body closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35976	36074	
==>nd merged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
Th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1135	1233	
==>main body closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40526	40623	
==>nd merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40140	40237	
==>nd merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	34	150	
==>use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	34	150	
==>use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7333	7430	
==>ain().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7333	7430	
==>ain().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7333	7430	
==>ain().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16187	16312	
==>$text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16187	16312	
==>$text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1449	1554	
==>ode, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1449	1554	
==>ode, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1449	1554	
==>ode, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docum <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1656	1763	
==>";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1861	1968	
==>";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1924	2031	
==>";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_cl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1453	1550	
==>:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::F <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1453	1550	
==>:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::F <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	431	554	
==>h Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	431	554	
==>h Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2810	2926	
==>, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2810	2926	
==>, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2810	2926	
==>, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21193	21438	
==>r->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21193	21438	
==>r->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21193	21438	
==>r->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	114	224	
==>t {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	114	224	
==>t {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6204	6318	
==>turn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6216	6330	
==>turn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1892	2004	
==>ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1892	2004	
==>ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1892	2004	
==>ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4839	5089	
==>defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    ci <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4839	5089	
==>defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    ci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10450	10628	
==>defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        ci <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10450	10628	
==>defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        ci <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10450	10628	
==>defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        ci <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4272	4399	
==>eturn Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4272	4399	
==>eturn Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	999	1096	
==>ve { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	999	1096	
==>ve { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	999	1096	
==>ve { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
s <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5822	6025	
==>tack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $to <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5822	6025	
==>tack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $to <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4954	5124	
==>tack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $to <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4954	5124	
==>tack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $to <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	2745	2844	
==>->{orig}};
		unless ($assigned) {
			$assigned = shift @letters;
			$map{$entry->{orig}} = $assigned <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2935	3037	
==>qual (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	105	207	
==>= 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6412	6514	
==>qual (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	105	207	
==>= 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	105	207	
==>= 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1913	2094	
==>eturn {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1913	2094	
==>eturn {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5139	5247	
==>op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2681	2789	
==>op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3462	3570	
==>op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2553	2665	
==>c;

rule ws          {<?ws_input>*}
rule ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <Lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6515	6611	
==>Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $typ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6515	6611	
==>Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $typ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6515	6611	
==>Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $typ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22544	22634	
==>, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_type(C,to_lower(Cx) <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	7382	7536	
==>syn_indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub build_indexes {
    my $path     = shif <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	390	518	
==>o process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	390	518	
==>o process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	108	216	
==>eys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	108	216	
==>eys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	108	216	
==>eys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10069	10178	
==>main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10069	10178	
==>main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10069	10178	
==>main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($f <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6321	6423	
==>ting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.ne <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6321	6423	
==>ting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.ne <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2313	2578	
==>'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5790	6055	
==>'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4720	4985	
==>'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1189	1293	
==>t, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: se <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1177	1281	
==>t, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4251	4356	
==>plemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4251	4356	
==>plemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4251	4356	
==>plemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26154	26252	
==>on the Message Key
it is being used with (others are ignored).  Each variable name can be any
defin <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26154	26252	
==>on the Message Key
it is being used with (others are ignored).  Each variable name can be any
defin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5439	5540	
==>JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.ins <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5439	5540	
==>JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5575	5673	
==>B ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5575	5673	
==>B ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5575	5673	
==>B ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10188	10303	
==>ur own class or not.
        return bless sub {
            confess "Cannot call private method from different class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10188	10303	
==>ur own class or not.
        return bless sub {
            confess "Cannot call private method from different class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10188	10303	
==>ur own class or not.
        return bless sub {
            confess "Cannot call private method from different class <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	554	651	
==>arent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	554	651	
==>arent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1895	2011	
==>om;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _indent {my($o,$s)=@_; $s =~ s/^(?!\ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10993	11100	
==>rocess it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10993	11100	
==>rocess it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13960	14052	
==>my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13960	14052	
==>my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	293	414	
==>};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	293	414	
==>};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2074	2184	
==>ew(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2074	2184	
==>ew(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2074	2184	
==>ew(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5767	5887	
==>itives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5767	5887	
==>itives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5767	5887	
==>itives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1980	2124	
==>s
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1980	2124	
==>s
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1980	2124	
==>s
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by th <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1370	1462	
==>l eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $dep <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1428	1520	
==>l eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $dep <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6683	6843	
==>nt( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6876	7036	
==>nt( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4978	5108	
==>);            
        },
        'status' => sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithRea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4261	4372	
==>) },
        'status' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithRea <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	378	474	
==>y $prog = shift;

    $self->compiler->compile($self, Blondie::Prelude->env, $prog);
}

sub compi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3525	3649	
==>ble {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4842	4966	
==>ble {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3525	3649	
==>ble {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4830	4954	
==>ble {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19262	19356	
==>ense of
uniformity.

=item Documentation

Fixed some poor wording, and documented the problem w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13646	13793	
==>{
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13646	13793	
==>{
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13646	13793	
==>{
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is n <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5892	6039	
==>{
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is n <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4392	4539	
==>{
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2966	3078	
==>for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2966	3078	
==>for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2966	3078	
==>for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoca <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10305	10409	
==>NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_c <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10305	10409	
==>NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2166	2295	
==>for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2166	2295	
==>for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2166	2295	
==>for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21660	21774	
==>eg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18081	18195	
==>eg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	524	722	
==>r;
            }
            push @{$stack} => $new_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if (@{$stack}) {
                pus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2285	2411	
==>hes("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2285	2411	
==>hes("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsnam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2285	2411	
==>hes("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsnam <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3807	3924	
==>l type in a param list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10330	10444	
==>her );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= & <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13807	13921	
==>her );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= & <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13088	13202	
==>her );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6965	7058	
==>->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_n <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6965	7058	
==>->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	88	214	
==>eturns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	88	214	
==>eturns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10301	10409	
==>urn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13778	13886	
==>urn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13059	13167	
==>urn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_sem <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3185	3330	
==>[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3432	3577	
==>[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	132	251	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	132	251	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	132	251	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1034	1144	
==>here, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out the "not ".
    # VMS will avenge. <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2944	3050	
==>and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) th <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3101	3207	
==>and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) th <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2944	3050	
==>and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) th <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3101	3207	
==>and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) th <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26885	27115	
==>'$self:'    => 'opaque'),
                            symbol->new('$subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6742	6872	
==>{
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	93	194	
==>keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	93	194	
==>keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	93	194	
==>keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11601	11761	
==>ator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    ( <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11601	11761	
==>ator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4287	4381	
==>od max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4287	4381	
==>od max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4287	4381	
==>od max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5316	5411	
==>ethod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5316	5411	
==>ethod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5316	5411	
==>ethod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6102	6187	
==>>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6102	6187	
==>>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4575	4670	
==>&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11241	11336	
==>ILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important th <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4575	4670	
==>&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11241	11336	
==>ILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11241	11336	
==>ILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important th <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3404	3581	
==>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3452	3629	
==>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3404	3581	
==>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3452	3629	
==>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15621	15751	
==>will be on separate lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11968	12089	
==>nt( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'iden <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12247	12368	
==>nt( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'iden <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14431	14530	
==>dd_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14431	14530	
==>dd_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14431	14530	
==>dd_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2561	2679	
==>ent <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2561	2679	
==>ent <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7292	7381	
==>::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7292	7381	
==>::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7292	7381	
==>::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is prim <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8483	8577	
==>orm your own security analysis before using it in any 
sensitive application.>

B<I<The authors <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8483	8577	
==>orm your own security analysis before using it in any 
sensitive application.>

B<I<The authors <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21143	21236	
==>ck

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optio <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21143	21236	
==>ck

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optio <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19159	19252	
==>R::<$?PARSER>)
{
    Pugs::Internals::eval($code,$lang);
}


 multi Control::Basic::evalfile ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16499	16591	
==>simply
copying files), often even while the program is executing.

Locale::KeyedText gives yo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16499	16591	
==>simply
copying files), often even while the program is executing.

Locale::KeyedText gives yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	575	737	
==>"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	575	737	
==>"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	575	737	
==>"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10231	10333	
==>field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header field <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10231	10333	
==>field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header field <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8413	8540	
==>n_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asse <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13924	14051	
==>n_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8413	8540	
==>n_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13918	14045	
==>n_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code asse <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17706	17821	
==>t(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14399	14547	
==>}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14399	14547	
==>}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14399	14547	
==>}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6305	6442	
==>XT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6305	6442	
==>XT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21181	21277	
==>e, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21181	21277	
==>e, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1459	1542	
==>:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1459	1542	
==>:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1459	1542	
==>:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4457	4565	
==>rite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4457	4565	
==>rite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4457	4565	
==>rite_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't c <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13456	13551	
==>ided.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities ar <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13456	13551	
==>ided.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities ar <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4130	4267	
==>$values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_index} ) {
        pu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2492	2616	
==>lue // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &ci <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2492	2616	
==>lue // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &ci <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2459	2546	
==>scribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2459	2546	
==>scribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5161	5303	
==>};

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5161	5303	
==>};

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34664	34782	
==>ess defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34664	34782	
==>ess defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34664	34782	
==>ess defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	219	343	
==>rt => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main ev <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	223	347	
==>rt => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	219	343	
==>rt => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	223	347	
==>rt => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main ev <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	11577	11695	
==>unrun tests as failures.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed}}, $test{'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21196	21467	
==>new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21196	21467	
==>new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21196	21467	
==>new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    nex <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7288	7377	
==>mar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1113	1202	
==>mar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11942	12085	
==>n";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $stat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2356	2487	
==>n";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $stat <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2356	2487	
==>n";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $stat <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13627	13721	
==>names are returned in the recommended "Good Practice" order.

In scalar context return the numb <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13627	13721	
==>names are returned in the recommended "Good Practice" order.

In scalar context return the numb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3206	3305	
==>}
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3206	3305	
==>}
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3206	3305	
==>}
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9758	9853	
==>)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inter <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9758	9853	
==>)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inter <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2031	2145	
==>t2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.diffe <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2031	2145	
==>t2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.diffe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5623	5734	
==>pace{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5623	5734	
==>pace{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5623	5734	
==>pace{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	251	411	
==>do = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	251	411	
==>do = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	251	411	
==>do = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17828	17921	
==>er header field contains information about the software being
used by the originating server p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17828	17921	
==>er header field contains information about the software being
used by the originating server p <==
5	/Users/nnunley/pugs/util/package-osx.pl	1019	1125	
==>c/parrot
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/in <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5516	5613	
==>ub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4646	4743	
==>ub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5516	5613	
==>ub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4646	4743	
==>ub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4499	4617	
==>s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4487	4605	
==>s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3073	3174	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3073	3174	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3073	3174	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_insta <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4341	4498	
==>self = {
        name => $name,
        rep  => $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%fiel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6497	6608	
==>MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6497	6608	
==>MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6497	6608	
==>MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PI <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7299	7406	
==>@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define thes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1042	1189	
==>l_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1042	1189	
==>l_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1042	1189	
==>l_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22186	22280	
==>iles appropriately in the search
list.  The analogy is similar to inheriting from multiple pack <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22186	22280	
==>iles appropriately in the search
list.  The analogy is similar to inheriting from multiple pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2972	3075	
==>open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2972	3075	
==>open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2972	3075	
==>open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0 <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	762	855	
==>l.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is und <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	762	855	
==>l.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is und <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1509	1613	
==>lti sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4540	4644	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1509	1613	
==>lti sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unic <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4540	4644	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4540	4644	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1781	1878	
==>ss /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1781	1878	
==>ss /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1781	1878	
==>ss /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3764	3854	
==>Test::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3822	3912	
==>Test::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", : <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5278	5390	
==>ys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %chan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5278	5390	
==>ys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %chan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1373	1478	
==>,
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1373	1478	
==>,
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1373	1478	
==>,
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2J <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1167	1294	
==>{ _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan alread <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2931	3044	
==>/\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1305	1418	
==>/\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2931	3044	
==>/\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2931	3044	
==>/\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9683	9790	
==>command line as -Is.
    # MacPerl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18328	18422	
==>rl code such as persistence
solutions.  Moreover, these data structures are in exactly the righ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18328	18422	
==>rl code such as persistence
solutions.  Moreover, these data structures are in exactly the righ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13233	13326	
==>rl code such as persistence solutions.
Moreover, these data structures are in exactly the righ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13233	13326	
==>rl code such as persistence solutions.
Moreover, these data structures are in exactly the righ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6415	6558	
==>" print STDERR '', " . _emit( $n->{param} );
            }
            return " print '', $s";
        }
        if ( $n->{method}{bareword} <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16524	16647	
==>mar      :optional
    .param int has_gram        :opt_flag
    .param string name         :optional
    .param int has_name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1957	2059	
==>_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1957	2059	
==>_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1957	2059	
==>_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	100	203	
==>unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	100	203	
==>unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	100	203	
==>unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	136	233	
==>f
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches noth <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	136	233	
==>f
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches noth <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16332	16444	
==>any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19809	19921	
==>any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	154	249	
==>se base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_min <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	154	249	
==>se base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_min <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	154	249	
==>se base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_min <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24868	24993	
==>h;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25147	25272	
==>h;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	536	648	
==>, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	536	648	
==>, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	536	648	
==>, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24318	24425	
==>-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24318	24425	
==>-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24318	24425	
==>-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16461	16557	
==>y and without a recompile (such as by simply
copying files), often even while the program is exec <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16461	16557	
==>y and without a recompile (such as by simply
copying files), often even while the program is exec <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6700	6788	
==>elete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6700	6788	
==>elete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8108	8219	
==>doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8108	8219	
==>doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	67	169	
==>ky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	67	169	
==>ky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	67	169	
==>ky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &ex <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	344	446	
==>) is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	889	991	
==>) is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	344	446	
==>) is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	889	991	
==>) is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	889	991	
==>) is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10488	10655	
==>\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6829	6996	
==>\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7678	7845	
==>\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15747	15840	
==>error message, the
application's developer should see more details than joe public would.

Alt <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15747	15840	
==>error message, the
application's developer should see more details than joe public would.

Alt <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1733	1853	
==>us?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_uni <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1733	1853	
==>us?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_uni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1214	1317	
==>user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1214	1317	
==>user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1214	1317	
==>user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	332	436	
==>ns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	332	436	
==>ns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	332	436	
==>ns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17421	17514	
==>of the document.  In libwww-perl this header will be
initialized automatically from the E<lt>T <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17421	17514	
==>of the document.  In libwww-perl this header will be
initialized automatically from the E<lt>T <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3937	4131	
==>.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proje <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7414	7608	
==>.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proje <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6380	6574	
==>.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proje <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	579	681	
==>ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub get <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	579	681	
==>ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub get <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5904	6023	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5904	6023	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5904	6023	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9035	9124	
==>ar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2860	2949	
==>ar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	883	994	
==>{(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ibl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	883	994	
==>{(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ibl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	883	994	
==>{(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ibl <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1760	1868	
==>ackage() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# ind <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	854	954	
==>EDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} else {
  pro <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5609	5711	
==>:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicod <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4739	4841	
==>:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicod <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5609	5711	
==>:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicod <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4739	4841	
==>:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicod <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14338	14438	
==>rlapi, etc.

  The perl regexp engine was long ago derived from Henry Spencer's
  regexp library.  ht <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4159	4303	
==>e_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $result{type} = 't <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17845	17956	
==>ess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17845	17956	
==>ess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17845	17956	
==>ess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$a <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	199	287	
==>/Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:config no_auto_version);

my (@eval,$repl <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2128	2238	
==>e = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2128	2238	
==>e = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	528	637	
==>R_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	528	637	
==>R_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	528	637	
==>R_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	697	798	
==>d BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	697	798	
==>d BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	980	1132	
==>{

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	980	1132	
==>{

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Mod <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16842	16962	
==>n opaque->new(reference->new($e->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
);

=pod

method <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27071	27175	
==>_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27071	27175	
==>_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABL <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5818	6062	
==>(($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7580	7824	
==>(($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	323	434	
==>/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(", <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	323	434	
==>/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(", <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	323	434	
==>/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9434	9552	
==>();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9434	9552	
==>();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9434	9552	
==>();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_valu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12852	12960	
==>t our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12852	12960	
==>t our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7762	7890	
==>ined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7762	7890	
==>ined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7762	7890	
==>ined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	622	739	
==>gument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	622	739	
==>gument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	311	413	
==>5-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	311	413	
==>5-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	311	413	
==>5-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implemen <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17505	17595	
==>ta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17505	17595	
==>ta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1833	1932	
==>e for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1833	1932	
==>e for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1833	1932	
==>e for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	536	630	
==>=> q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	536	630	
==>=> q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6039	6160	
==>() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6039	6160	
==>() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9002	9145	
==>$cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14731	14874	
==>$cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9002	9145	
==>$cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14725	14868	
==>$cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	427	546	
==>fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4077	4173	
==>> [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4660	4756	
==>> [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19428	19519	
==>0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19428	19519	
==>0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19428	19519	
==>0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7380	7497	
==>_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc( <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7380	7497	
==>_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29496	29612	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29496	29612	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29496	29612	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5510	5615	
==>t/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = % <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5510	5615	
==>t/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = % <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	989	1078	
==>use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	989	1078	
==>use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	989	1078	
==>use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11220	11339	
==>ments for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # H <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11220	11339	
==>ments for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17386	17482	
==>low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17386	17482	
==>low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17386	17482	
==>low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15660	15776	
==>length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use o <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19893	20009	
==>length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	548	653	
==>e of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	548	653	
==>e of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	548	653	
==>e of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16761	16943	
==>=> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16761	16943	
==>=> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16761	16943	
==>=> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16424	16523	
==>oodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16424	16523	
==>oodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algor <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1146	1246	
==>hod includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1146	1246	
==>hod includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4159	4251	
==>This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::S <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4159	4251	
==>This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6356	6448	
==>This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18831	18948	
==>ect(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15252	15369	
==>ect(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1359	1456	
==>nless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1359	1456	
==>nless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1359	1456	
==>nless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = a <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	2951	3064	
==>elude.pm should probably be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3761	3864	
==>ngth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3761	3864	
==>ngth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3761	3864	
==>ngth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12720	12822	
==>le ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <ElementList> <','> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10132	10285	
==>{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10132	10285	
==>{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10132	10285	
==>{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16376	16522	
==>truct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20802	20948	
==>truct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8882	8985	
==>Span { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8882	8985	
==>Span { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8599	8691	
==>s "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8599	8691	
==>s "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8599	8691	
==>s "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturn <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2167	2436	
==>{
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2167	2436	
==>{
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4346	4439	
==>->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4346	4439	
==>->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4346	4439	
==>->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reble <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7229	7350	
==>al {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3833	3954	
==>al {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4682	4803	
==>al {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] = <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2648	2746	
==>s then incorporated into the match.  XXX it is not clear
that this is the optimal interface for thi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2648	2746	
==>s then incorporated into the match.  XXX it is not clear
that this is the optimal interface for thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	178	275	
==>l6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Ind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	178	275	
==>l6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Ind <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	178	275	
==>l6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Ind <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19604	19691	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19604	19691	
==>edText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

N <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10924	11037	
==>my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
prin <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4491	4591	
==>ccum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $self->right->spl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6030	6120	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6030	6120	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6030	6120	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4224	4429	
==>.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = sp <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4224	4429	
==>.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37167	37291	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37167	37291	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37167	37291	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12355	12465	
==>tor(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12355	12465	
==>tor(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12355	12465	
==>tor(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2807	2916	
==>ame\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2807	2916	
==>ame\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1263	1384	
==>path}.pm"};
}

sub autoload {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12372	12478	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12372	12478	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12372	12478	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.un <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1491	1585	
==>e to nonexistent group';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14400	14595	
==>ub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14400	14595	
==>ub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14400	14595	
==>ub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6546	6666	
==>or long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6546	6666	
==>or long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1962	2048	
==>ly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1962	2048	
==>ly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1962	2048	
==>ly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2385	2524	
==>>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2385	2524	
==>>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2385	2524	
==>>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private metho <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15171	15269	
==>ect using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT ME <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15171	15269	
==>ect using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT ME <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16575	16698	
==>opt_flag
    .param string name         :optional
    .param int has_name        :opt_flag
    .local pmc exp
    .local pmc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15888	16029	
==>le = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15888	16029	
==>le = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15888	16029	
==>le = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8374	8471	
==>MER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabiliti <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8374	8471	
==>MER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabiliti <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3344	3440	
==>ns that the nonce or initialization vector should be hashed with the 
key, not merely appended to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	700	796	
==>'ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3344	3440	
==>ns that the nonce or initialization vector should be hashed with the 
key, not merely appended to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	700	796	
==>'ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	700	796	
==>'ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	704	820	
==>() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provid <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	704	820	
==>() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3381	3488	
==>e_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3381	3488	
==>e_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3381	3488	
==>e_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1392	1499	
==>array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1392	1499	
==>array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1392	1499	
==>array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.pu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6593	6690	
==>wd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6593	6690	
==>wd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12134	12238	
==>urrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Roo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12134	12238	
==>urrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Roo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12134	12238	
==>urrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Roo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17997	18091	
==>n identify
it easily in its conditional logic, using a simple 'equals', and then the
applicatio <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17997	18091	
==>n identify
it easily in its conditional logic, using a simple 'equals', and then the
applicatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13958	14104	
==>t if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13958	14104	
==>t if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13958	14104	
==>t if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2793	2889	
==>lass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2793	2889	
==>lass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2793	2889	
==>lass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15008	15102	
==>_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15008	15102	
==>_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent N <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4705	4841	
==>y $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\$$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	996	1101	
==>2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	996	1101	
==>2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	996	1101	
==>2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	34	159	
==>006;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        requi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1170	1286	
==>rn { stmt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5356	5455	
==>nstant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5356	5455	
==>nstant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5356	5455	
==>nstant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1819	1967	
==>ispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1819	1967	
==>ispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obje <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1819	1967	
==>ispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Obje <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11363	11457	
==>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11363	11457	
==>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	56	176	
==>my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< serve <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	56	176	
==>my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< serve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	475	577	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	475	577	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	475	577	
==>eturn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))", <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4278	4425	
==>('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<= <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2882	3013	
==>events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3136	3267	
==>events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2882	3013	
==>events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3136	3267	
==>events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13470	13685	
==>$dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispact <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13470	13685	
==>$dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispact <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13470	13685	
==>$dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispact <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10471	10580	
==>::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10629	10738	
==>::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implement <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	859	969	
==>urn { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_grou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	859	969	
==>urn { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_grou <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11848	12073	
==>[
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11848	12073	
==>[
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1757	1860	
==>ndirect_typed_value {
	my $class = shift;
	my $val = shift;
	my $type = shift || $val->type;

	Blondie:: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10374	10471	
==>oding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10374	10471	
==>oding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10592	10718	
==>=>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10592	10718	
==>=>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10592	10718	
==>=>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22415	22509	
==>installed in.

Generally, when a program package would return a code-key to indicate a
conditio <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22415	22509	
==>installed in.

Generally, when a program package would return a code-key to indicate a
conditio <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10693	10870	
==>.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.tra <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10693	10870	
==>.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4707	4817	
==>be there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4707	4817	
==>be there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4707	4817	
==>be there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12137	12295	
==>ams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12137	12295	
==>ams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12137	12295	
==>ams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec-> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	317	441	
==>oadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %ha <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	315	439	
==>oadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12264	12374	
==>$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12264	12374	
==>$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12264	12374	
==>$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22470	22565	
==>return a code-key to indicate a
condition, often it will also provide some variable values to be <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22470	22565	
==>return a code-key to indicate a
condition, often it will also provide some variable values to be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7083	7186	
==>ead = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7083	7186	
==>ead = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7083	7186	
==>ead = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18085	18181	
==>lication can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18085	18181	
==>lication can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program s <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	583	698	
==>ead1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo< <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	583	698	
==>ead1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13502	13607	
==>op_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13502	13607	
==>op_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13502	13607	
==>op_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	522	653	
==>gument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	522	653	
==>gument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	522	653	
==>gument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @arg <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14660	14763	
==>:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14660	14763	
==>:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	912	1012	
==>import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	912	1012	
==>import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	912	1012	
==>import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8879	8994	
==>->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8568	8680	
==>->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        retur <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	784	886	
==>s @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () retur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	784	886	
==>s @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () retur <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1764	1860	
==>kage Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5107	5207	
==>r@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1064	1164	
==>r@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	924	1024	
==>r@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5107	5207	
==>r@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1064	1164	
==>r@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This progr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7730	7827	
==>vided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7730	7827	
==>vided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8123	8218	
==>is example, @span may contain zero, one, two, or three spans, depending on
the contents of $span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8123	8218	
==>is example, @span may contain zero, one, two, or three spans, depending on
the contents of $span <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10071	10165	
==>e( '$_[0]', \\&{'$name'} )\n";
}
sub node::non_capturing_subrule {
    return "$_[1] \\&{'$name <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2133	2289	
==>e>";
        return; 
    }
    if $tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6308	6420	
==>red", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in character class") if @h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13579	13669	
==>tion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13579	13669	
==>tion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13579	13669	
==>tion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last' <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6677	6797	
==>> chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6677	6797	
==>> chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5323	5434	
==>statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2865	2976	
==>statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3714	3825	
==>statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15798	15898	
==>de's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<ne <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15798	15898	
==>de's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5252	5348	
==>package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5252	5348	
==>package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5252	5348	
==>package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'} <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4286	4391	
==>ub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4344	4449	
==>ub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2557	2654	
==>r($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarte <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2557	2654	
==>r($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarte <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1055	1148	
==>t understand what round-alternate means.
# But in my understanding, The implemention below mig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38984	39118	
==>alue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38984	39118	
==>alue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38984	39118	
==>alue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret-> <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4186	4281	
==>)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4186	4281	
==>)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17888	18070	
==>ess defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17888	18070	
==>ess defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17888	18070	
==>ess defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($s <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6482	6619	
==>ncode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

su <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6482	6619	
==>ncode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

su <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6480	6593	
==>isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6480	6593	
==>isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3309	3404	
==>'t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3309	3404	
==>'t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3309	3404	
==>'t match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3406	3507	
==>etric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    sa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3406	3507	
==>etric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    sa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32422	32518	
==>al header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36972	37068	
==>al header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36262	36358	
==>al header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rela <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4358	4489	
==>.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4358	4489	
==>.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4143	4248	
==>-----
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issue <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4143	4248	
==>-----
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issue <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4143	4248	
==>-----
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issue <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	884	989	
==>my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kno <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	884	989	
==>my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kno <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	884	989	
==>my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kno <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1120	1221	
==>erl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1120	1221	
==>erl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1466	1599	
==>xt.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1466	1599	
==>xt.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1466	1599	
==>xt.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	413	544	
==>s backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtra <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	413	544	
==>s backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9362	9535	
==>n;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9362	9535	
==>n;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	86	184	
==>e PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bles <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	86	184	
==>e PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bles <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	86	184	
==>e PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bles <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9758	9869	
==>) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = spli <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3487	3587	
==>ter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })} <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3487	3587	
==>ter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })} <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	276	370	
==>ove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {} <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	276	370	
==>ove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19890	20024	
==>with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19890	20024	
==>with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19890	20024	
==>with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to a <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1913	2024	
==>lob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.gl <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1913	2024	
==>lob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.gl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14092	14228	
==>) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10265	10401	
==>) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11101	11237	
==>) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'st <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3520	3645	
==>.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @inte <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3520	3645	
==>.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @inte <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4456	4597	
==>us_sub();
            $status->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STO <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	454	556	
==>est::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is expo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	512	614	
==>est::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is expo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13772	13868	
==>ess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is cal <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13772	13868	
==>ess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is cal <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1028	1126	
==>my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove he <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1028	1126	
==>my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove he <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24085	24183	
==>->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20506	20604	
==>->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1108	1206	
==>my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove he <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2128	2262	
==>should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if($@) {
        chomp($@);
        erro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39554	39646	
==>Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Darre <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39554	39646	
==>Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Darre <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24278	24369	
==>Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Darre <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24278	24369	
==>Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Darre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2944	3096	
==>t( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3226	3369	
==>t( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9644	9787	
==>t( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3226	3369	
==>t( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9644	9787	
==>t( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optio <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13975	14139	
==>plit('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4076	4216	
==>plit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4076	4216	
==>plit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4076	4216	
==>plit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	102	208	
==>ctually belong on "Map"

 multi sub grep (Any|Junction $test ; *@values) returns List {
   gather {
     fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2084	2207	
==>ess $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could jus <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2224	2347	
==>ess $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could jus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2915	3007	
==>fess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2915	3007	
==>fess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2915	3007	
==>fess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3049	3219	
==>ing) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3049	3219	
==>ing) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3049	3219	
==>ing) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3191	3313	
==>', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_ver <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2314	2403	
==>t[1]} = %tokenClone;
    $self->whitespaceOperatorTable()->{$spacePresent[1]} = %tokenClon <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2347	2445	
==>p();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2347	2445	
==>p();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2347	2445	
==>p();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6045	6138	
==>ile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5836	5928	
==>ile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6383	6576	
==>ture:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                Val->n <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22476	22579	
==>us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


 } rege <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17374	17476	
==>us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} rege <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6738	6837	
==>pture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6750	6849	
==>pture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	203	314	
==>t =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	203	314	
==>t =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	203	314	
==>t =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6698	6797	
==>ntified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6698	6797	
==>ntified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirro <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	651	743	
==>, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> wit <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	651	743	
==>, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> wit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22831	22929	
==>ame is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2230	2328	
==>$js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27383	27481	
==>ame is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2230	2328	
==>$js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2230	2328	
==>$js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2453	2546	
==>tem L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7157	7250	
==>}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2453	2546	
==>tem L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7157	7250	
==>}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7157	7250	
==>}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17994	18114	
==>utoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    flo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17032	17152	
==>utoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    flo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17994	18114	
==>utoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    flo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17032	17152	
==>utoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    flo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4108	4224	
==>$type,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftyp <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12949	13083	
==>_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6424	6558	
==>_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1773	1865	
==>elf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1773	1865	
==>elf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1773	1865	
==>elf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3895	3997	
==>for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3895	3997	
==>for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3895	3997	
==>for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) { <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	444	545	
==>y ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	444	545	
==>y ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38423	38548	
==>ray;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38423	38548	
==>ray;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38423	38548	
==>ray;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15743	15850	
==>push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10599	10706	
==>push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      retur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8878	8987	
==>to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8878	8987	
==>to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1022	1110	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1022	1110	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1022	1110	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5614	5724	
==>ss grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5614	5724	
==>ss grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5614	5724	
==>ss grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	381	487	
==>af pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	381	487	
==>af pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4500	4593	
==>tever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4500	4593	
==>tever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4500	4593	
==>tever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Nam <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28201	28295	
==>string()>

This method returns a stringified version of this object which is suitable
for debug <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35557	35651	
==>string()>

This method returns a stringified version of this object which is suitable
for debug <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28201	28295	
==>string()>

This method returns a stringified version of this object which is suitable
for debug <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35557	35651	
==>string()>

This method returns a stringified version of this object which is suitable
for debug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1695	1800	
==>* fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1695	1800	
==>* fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1695	1800	
==>* fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-1 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5249	5343	
==>t is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Key <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5249	5343	
==>t is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Key <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4884	5050	
==>t );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4884	5050	
==>t );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1731	1851	
==>ious?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_u <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1731	1851	
==>ious?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_u <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17527	17645	
==>d

  skip              number of tests skipped

So a successful test should have max == seen == ok.


There is one fina <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3351	3520	
==>fault {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3351	3520	
==>fault {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16660	16761	
==>her DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16660	16761	
==>her DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16660	16761	
==>her DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13248	13349	
==>ag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13248	13349	
==>ag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13248	13349	
==>ag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	95	186	
==>rs $!headers handles «
    header push_header init_header remove_header remove_content_head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	95	186	
==>rs $!headers handles «
    header push_header init_header remove_header remove_content_head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7054	7191	
==>cro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7054	7191	
==>cro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7054	7191	
==>cro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11831	11940	
==>lank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11825	11934	
==>lank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cm <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50843	50961	
==>ier' => $e->get('$self:')->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4855	4953	
==>ub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparis <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3982	4080	
==>ub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparis <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4855	4953	
==>ub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparis <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3982	4080	
==>ub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparis <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13780	13896	
==>1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13780	13896	
==>1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5540	5648	
==>ray, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a bet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5540	5648	
==>ray, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a bet <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5540	5648	
==>ray, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a bet <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1864	2044	
==>ain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1864	2044	
==>ain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2873	2974	
==>r(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2873	2974	
==>r(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2873	2974	
==>r(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5515	5631	
==>ing
    ### note we have to create the directories first if it's a dir -> dir
    ### move. Which means a bit more wo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13590	13701	
==>T)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow quantifiers
    $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3775	3863	
==>Data::Dumper::Dumper $self;
}));

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3775	3863	
==>Data::Dumper::Dumper $self;
}));

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3775	3863	
==>Data::Dumper::Dumper $self;
}));

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4028	4166	
==>c = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3904	4038	
==>c = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1315	1416	
==>patcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1315	1416	
==>patcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1315	1416	
==>patcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3478	3597	
==>,          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Firs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3478	3597	
==>,          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Firs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3478	3597	
==>,          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Firs <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12466	12564	
==>ends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or ok <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12524	12622	
==>ends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or ok <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4253	4405	
==>are
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4253	4405	
==>are
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37662	37752	
==>n::Example $other!) returns Relation::Example>

This method is a generic relational operato <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38251	38341	
==>n::Example $other!) returns Relation::Example>

This method is a generic relational operato <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38502	38592	
==>n::Example $other!) returns Relation::Example>

This method is a generic relational operato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	183	299	
==>ys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	183	299	
==>ys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	183	299	
==>ys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3405	3506	
==>Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3285	3382	
==>Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5579	5840	
==>ODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9056	9317	
==>ODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $headi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1441	1547	
==>RTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1441	1547	
==>RTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1441	1547	
==>RTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4980	5086	
==>ument;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $par <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4980	5086	
==>ument;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	866	964	
==>s'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	866	964	
==>s'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	866	964	
==>s'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11728	11924	
==>h_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                contin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11728	11924	
==>h_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                contin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11728	11924	
==>h_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                contin <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11637	11731	
==>sects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) w <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11637	11731	
==>sects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14909	15006	
==>a reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!paren <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14909	15006	
==>a reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!paren <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7123	7215	
==>oot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7123	7215	
==>oot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7123	7215	
==>oot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4810	4948	
==>$t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13235	13373	
==>$t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15846	15984	
==>$t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17334	17472	
==>$t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22017	22155	
==>$t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2414	2512	
==>rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2414	2512	
==>rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17231	17324	
==>t $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20708	20801	
==>t $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20286	20379	
==>t $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5100	5235	
==>w
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5100	5235	
==>w
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5100	5235	
==>w
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24718	24814	
==>t of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping(S <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29270	29366	
==>t of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping(S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11495	11684	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11495	11684	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11495	11684	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	531	646	
==>constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	531	646	
==>constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7997	8097	
==>PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7997	8097	
==>PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7997	8097	
==>PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	446	541	
==>d1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	446	541	
==>d1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	248	381	
==>mk_accessors(qw/
    target
    from
    position
    coroutine
    capture
    hash
    integer
    number
    /
}

sub new {
  my $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2445	2565	
==>s::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2585	2705	
==>s::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gra <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9960	10065	
==>tringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9960	10065	
==>tringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3814	3916	
==>ses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3814	3916	
==>ses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3814	3916	
==>ses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2020	2119	
==>ry - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2020	2119	
==>ry - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5369	5623	
==>h.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        ve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5369	5623	
==>h.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11311	11430	
==>// Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11311	11430	
==>// Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11311	11430	
==>// Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14414	14517	
==>targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14414	14517	
==>targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5229	5327	
==>de above).  This lets you to
do anything you like with each object, but is (at least nominally)
int <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5229	5327	
==>de above).  This lets you to
do anything you like with each object, but is (at least nominally)
int <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5229	5327	
==>de above).  This lets you to
do anything you like with each object, but is (at least nominally)
int <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7161	7255	
==>ors share a common API, which permits the intercommunication 

of data about: backtracking, abo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6916	7009	
==>ors share a common API, which permits the intercommunication 
of data about: backtracking, abo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3059	3229	
==>'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3059	3229	
==>'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3059	3229	
==>'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclas <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3330	3468	
==>t;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3330	3468	
==>t;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9553	9700	
==>tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	423	557	
==>ram ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.par <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	423	557	
==>ram ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.par <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7984	8084	
==>l_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greed <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7711	7807	
==>l_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greed <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	157	270	
==>day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	157	270	
==>day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18053	18136	
==>l6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18053	18136	
==>l6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18053	18136	
==>l6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	618	719	
==>ble
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1391	1492	
==>} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #pr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	618	719	
==>ble
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	618	719	
==>ble
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw') <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1531	1632	
==>} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #pr <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3007	3128	
==>$open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3007	3128	
==>$open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2453	2552	
==>lices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2453	2552	
==>lices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2453	2552	
==>lices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3400	3593	
==>( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3400	3593	
==>( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3400	3593	
==>( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _( <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1940	2056	
==>=> 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1940	2056	
==>=> 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6222	6344	
==>f ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6222	6344	
==>f ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6222	6344	
==>f ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_nam <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10367	10472	
==>eturns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4651	4756	
==>->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->ne <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10367	10472	
==>eturns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4651	4756	
==>->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4651	4756	
==>->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14641	14759	
==>@classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14641	14759	
==>@classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14641	14759	
==>@classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6537	6635	
==>ad1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6537	6635	
==>ad1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8857	8992	
==>_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8853	8988	
==>_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8442	8559	
==>create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8442	8559	
==>create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8442	8559	
==>create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5563	5708	
==>= shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5563	5708	
==>= shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5563	5708	
==>= shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11422	11554	
==>_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) { <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11422	11554	
==>_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2460	2565	
==>eturn 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2460	2565	
==>eturn 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8422	8526	
==>rl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8422	8526	
==>rl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8422	8526	
==>rl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11194	11345	
==>D()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11194	11345	
==>D()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11194	11345	
==>D()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1050	1190	
==>%*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1050	1190	
==>%*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOT <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10459	10562	
==>nserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10459	10562	
==>nserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2873	2973	
==>VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2873	2973	
==>VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1016	1107	
==>re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1016	1107	
==>re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1016	1107	
==>re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1175	1361	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1175	1361	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1175	1361	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $:: <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	522	622	
==>y %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $ma <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	522	622	
==>y %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10369	10475	
==>DO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10369	10475	
==>DO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10369	10475	
==>DO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	506	603	
==>y only
# represent transformations between PIL node types; out-of-band data is not listed.

sub ty <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	506	603	
==>y only
# represent transformations between PIL node types; out-of-band data is not listed.

sub ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11252	11373	
==>++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11252	11373	
==>++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11252	11373	
==>++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1728	1836	
==>$self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1728	1836	
==>$self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	941	1108	
==>re "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.c <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	941	1108	
==>re "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5312	5430	
==>numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5312	5430	
==>numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $sta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5312	5430	
==>numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $sta <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2171	2309	
==>ear % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 { <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2171	2309	
==>ear % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6487	6680	
==>$op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1419	1527	
==>o instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1419	1527	
==>o instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1419	1527	
==>o instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8010	8112	
==>alue) = each %$suspect) {
    # Force a hash recompute if this perl's internals can cache the hash key. <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13917	14019	
==>shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_pri <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1397	1499	
==>shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3501	3600	
==>ram{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3501	3600	
==>ram{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3501	3600	
==>ram{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	316	428	
==>utoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	316	428	
==>utoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	316	428	
==>utoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	82	191	
==>b {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	82	191	
==>b {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1:: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	915	1057	
==>$signature = closure::signature->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8256	8357	
==>ons:

=item * grammar => $category_name - the name of this category 
(a namespace or a Grammar name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5188	5286	
==>>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5188	5286	
==>>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5188	5286	
==>>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7346	7518	
==>Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7346	7518	
==>Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7346	7518	
==>Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4695	4804	
==>aim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1 <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4753	4862	
==>aim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	609	729	
==>ed
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	609	729	
==>ed
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	609	729	
==>ed
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

m <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5507	5608	
==>port {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec plat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5507	5608	
==>port {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec plat <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	316	444	
==>urn unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	316	444	
==>urn unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2593	2693	
==>il { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2593	2693	
==>il { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2593	2693	
==>il { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2810	2928	
==>_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2810	2928	
==>_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2810	2928	
==>_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3333	3450	
==>ap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$var,$tok);
        r <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	291	392	
==>make smoke' make target that uploads the results of this
#    to a server somewhere.


package Test::H <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1865	1979	
==>::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1865	1979	
==>::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	210	305	
==>s2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	210	305	
==>s2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	210	305	
==>s2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13244	13345	
==>__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13244	13345	
==>__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13244	13345	
==>__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30561	30657	
==>"user type") for each distinct Message; each file can be
shared by multiple Messages but the whol <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30561	30657	
==>"user type") for each distinct Message; each file can be
shared by multiple Messages but the whol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1093	1207	
==>r")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1093	1207	
==>r")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1093	1207	
==>r")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL:: <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	59	149	
==>ISO8601;

our $iso8601_duration_re_anchored = rx:perl5/^$iso8601_duration_re$/;

has Int $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2812	2900	
==>,",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$d <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6264	6352	
==>,",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2812	2900	
==>,",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2812	2900	
==>,",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$d <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6114	6233	
==>eturn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6114	6233	
==>eturn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5166	5274	
==>od_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5166	5274	
==>od_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5166	5274	
==>od_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3140	3282	
==>y $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3140	3282	
==>y $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3140	3282	
==>y $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writabl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	470	568	
==>version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $ver <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	470	568	
==>version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $ver <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9201	9311	
==>iphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encry <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9201	9311	
==>iphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encry <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5523	5622	
==>cify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5523	5622	
==>cify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5523	5622	
==>cify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7958	8094	
==>not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13552	13688	
==>not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7958	8094	
==>not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13546	13682	
==>not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = ' <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	384	488	
==>l(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nested addition",
	} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5323	5422	
==>::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5323	5422	
==>::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5323	5422	
==>::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	126	224	
==>ule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	126	224	
==>ule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5883	5998	
==>bind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNB <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5883	5998	
==>bind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNB <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5883	5998	
==>bind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13496	13603	
==>'{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13496	13603	
==>'{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	629	751	
==>olds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new match <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	629	751	
==>olds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new match <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35015	35108	
==>method
degenerates into an C<intersection> if the two source headings are
identical.  This met <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39565	39658	
==>method
degenerates into an C<intersection> if the two source headings are
identical.  This met <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39107	39200	
==>method
degenerates into an C<intersection> if the two source headings are
identical.  This met <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1727	1869	
==>d = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1727	1869	
==>d = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18685	18790	
==>p0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless_null exp0, exp1null
    .re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14018	14189	
==>hods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14018	14189	
==>hods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14018	14189	
==>hods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5108	5265	
==><hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$curre <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6870	7027	
==><hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$curre <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8991	9096	
==>f $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8991	9096	
==>f $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	644	739	
==>-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	644	739	
==>-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	644	739	
==>-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1910	2073	
==>, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go b <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1910	2073	
==>, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6716	6820	
==>nloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6716	6820	
==>nloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6716	6820	
==>nloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3770	3880	
==>{
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	475	585	
==>s infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_k <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1333	1443	
==>s infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_k <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3770	3880	
==>{
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3770	3880	
==>{
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11577	11697	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11577	11697	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11577	11697	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8693	8788	
==>Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an exist <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8693	8788	
==>Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an exist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14915	15027	
==>e "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14915	15027	
==>e "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14915	15027	
==>e "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1318	1408	
==>setta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en ver <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1318	1408	
==>setta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en ver <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1944	2106	
==>>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1944	2106	
==>>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1944	2106	
==>>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XX <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	435	535	
==>::Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	435	535	
==>::Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6677	6787	
==>f $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6677	6787	
==>f $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3578	3670	
==>::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    k <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3578	3670	
==>::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    k <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3578	3670	
==>::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    k <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3096	3197	
==>x.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3096	3197	
==>x.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3096	3197	
==>x.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs! <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16594	16688	
==>hat.  This module is more of a theoretical
exercise, a jump-start to built-in reversing capabil <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22505	22653	
==>thod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42294	42441	
==>thod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1401	1521	
==>objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1401	1521	
==>objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1401	1521	
==>objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6486	6590	
==>unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6486	6590	
==>unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6486	6590	
==>unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unb <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4621	4713	
==>an1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4621	4713	
==>an1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurre <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17674	17793	
==>`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHO <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17674	17793	
==>`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHO <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4282	4390	
==>}

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@in <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4282	4390	
==>}

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4941	5055	
==>instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4941	5055	
==>instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4941	5055	
==>instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	230	336	
==>value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$k <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	230	336	
==>value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$k <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10899	10992	
==>add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10899	10992	
==>add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10344	10458	
==>n::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10344	10458	
==>n::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10344	10458	
==>n::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	377	482	
==>his is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $director <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	377	482	
==>his is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $director <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2275	2394	
==>{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2275	2394	
==>{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2275	2394	
==>{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7794	7907	
==>ild is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $trave <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7794	7907	
==>ild is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $trave <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	247	362	
==>d_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_d <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	247	362	
==>d_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2278	2379	
==>.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2278	2379	
==>.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2278	2379	
==>.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15796	15936	
==>[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15796	15936	
==>[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15796	15936	
==>[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14670	14764	
==>ent
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_enti <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14670	14764	
==>ent
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_enti <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	892	1000	
==>acted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1285	1393	
==>acted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	892	1000	
==>acted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1285	1393	
==>acted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
5	/Users/nnunley/pugs/util/grokprims.pl	1365	1467	
==>ty-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37018	37113	
==>egenerates to a C<intersection>.  In any situation where a pair of source
relations have zero at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41567	41662	
==>egenerates to a C<intersection>.  In any situation where a pair of source
relations have zero at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41190	41285	
==>egenerates to a C<intersection>.  In any situation where a pair of source
relations have zero at <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9794	9887	
==>on.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets ca <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9794	9887	
==>on.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets ca <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2620	2746	
==>ume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2620	2746	
==>ume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1717	1821	
==>e_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2152	2256	
==>e_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2586	2690	
==>e_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1041	1154	
==>""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::Mk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1041	1154	
==>""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::Mk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1041	1154	
==>""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::Mk <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17051	17155	
==>ed 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17051	17155	
==>ed 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6183	6302	
==>capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6183	6302	
==>capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2087	2189	
==>->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2087	2189	
==>->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Ap <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2087	2189	
==>->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Ap <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6028	6295	
==>n eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on th <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6028	6295	
==>n eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5997	6079	
==>NBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5997	6079	
==>NBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5997	6079	
==>NBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2002	2107	
==>er::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.erro <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	4	108	
==>le File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
ha <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	4	108	
==>le File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
ha <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	17	112	
==>er::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.erro <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	17	112	
==>er::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.erro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	611	709	
==>y($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	611	709	
==>y($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2049	2142	
==>) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2049	2142	
==>) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2049	2142	
==>) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3044	3152	
==>Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3044	3152	
==>Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3044	3152	
==>Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13416	13515	
==>ts of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
ch <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13416	13515	
==>ts of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1950	2090	
==>lGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1950	2090	
==>lGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1950	2090	
==>lGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14191	14297	
==>raffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $la <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14191	14297	
==>raffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $la <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4975	5108	
==>'"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4595	4693	
==>X::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4595	4693	
==>X::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4595	4693	
==>X::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12973	13065	
==>returned values belonged to which field.

=item $h.remove_content_headers

This will remove a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12973	13065	
==>returned values belonged to which field.

=item $h.remove_content_headers

This will remove a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23005	23188	
==>t with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23005	23188	
==>t with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23005	23188	
==>t with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	20	116	
==>eaders;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles  <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	20	116	
==>eaders;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles  <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5141	5240	
==>\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prot <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5141	5240	
==>\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prot <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5141	5240	
==>\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_prot <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11629	11723	
==>- `intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in c <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11629	11723	
==>- `intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in c <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	158	290	
==>uire XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @IS <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	153	285	
==>uire XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @IS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37969	38098	
==>:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'not <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6000	6095	
==>t (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6000	6095	
==>t (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7817	7971	
==>}
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7817	7971	
==>}
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7817	7971	
==>}
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos+ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9424	9531	
==>onnected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9424	9531	
==>onnected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3609	3719	
==>write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3609	3719	
==>write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3609	3719	
==>write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	617	714	
==>tor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only meth <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	617	714	
==>tor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2094	2201	
==>}

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2094	2201	
==>}

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2094	2201	
==>}

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2443	2545	
==>_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2674	2776	
==>_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	992	1089	
==>odule for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by u <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	992	1089	
==>odule for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by u <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7426	7516	
==>_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1251	1341	
==>_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	817	905	
==>:Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCShor <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10833	10927	
==>odel code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	386	480	
==>un_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10833	10927	
==>odel code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	386	480	
==>un_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	386	480	
==>un_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22082	22174	
==>of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20963	21055	
==>of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22082	22174	
==>of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20963	21055	
==>of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever t <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1125	1213	
==>:Exp::CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShor <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	196	298	
==>cher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub <==
5	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	140	232	
==>rl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals::install_pragma_value( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5694	5783	
==>in(",",map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16193	16281	
==>val Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16251	16339	
==>val Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1481	1678	
==>rt_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1481	1678	
==>rt_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1554	1647	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1554	1647	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1554	1647	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { j <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9174	9293	
==>start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuild::Config->l <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12080	12173	
==>the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9201	9294	
==>the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12080	12173	
==>the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9201	9294	
==>the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7346	7477	
==>ogram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7334	7465	
==>ogram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	695	799	
==>it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	695	799	
==>it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	695	799	
==>it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8273	8402	
==>bel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8273	8402	
==>bel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8273	8402	
==>bel =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38064	38154	
==>ey, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38064	38154	
==>ey, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, % <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13089	13186	
==>y and the same number of strings are returned.

If called in void context the arguments are decode <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13089	13186	
==>y and the same number of strings are returned.

If called in void context the arguments are decode <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4861	4956	
==>t::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whethe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4861	4956	
==>t::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whethe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7058	7153	
==>t::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whethe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3981	4126	
==>cks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3981	4126	
==>cks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4507	4646	
==>cks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4507	4646	
==>cks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ n <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13765	13872	
==>") },
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar_numeric     => sub { $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23631	23742	
==>r C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' a <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7238	7335	
==>oaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.unio <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6368	6465	
==>oaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.unio <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7238	7335	
==>oaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.unio <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6368	6465	
==>oaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.unio <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4983	5124	
==>n"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      trav <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9337	9464	
==>roper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9337	9464	
==>roper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1302	1395	
==>rcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1302	1395	
==>rcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7469	7569	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7469	7569	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7469	7569	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMa <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6055	6150	
==>mplemented. Currently, the headers
are returned as one long string.

=item List Context

All hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6055	6150	
==>mplemented. Currently, the headers
are returned as one long string.

=item List Context

All hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9101	9273	
==>e::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9101	9273	
==>e::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9101	9273	
==>e::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            m <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1465	1625	
==>-0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str { <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1465	1625	
==>-0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2282	2474	
==>ng' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5759	5951	
==>ng' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4689	4881	
==>ng' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4269	4419	
==>pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writte <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4269	4419	
==>pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	775	876	
==>arams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	775	876	
==>arams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	775	876	
==>arams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody- <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2912	3008	
==>E<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint w <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2912	3008	
==>E<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2594	2698	
==>ch => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{captur <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	584	682	
==>pair() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	584	682	
==>pair() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	590	684	
==>ldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cu <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	590	684	
==>ldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21760	21935	
==>patcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44667	44842	
==>patcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3523	3691	
==>r_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3523	3691	
==>r_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4549	4695	
==>>{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### remove this <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4589	4729	
==>match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4589	4729	
==>match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3453	3568	
==>_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3453	3568	
==>_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4591	4684	
==>:Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1722	1892	
==>($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # j <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1722	1892	
==>($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # j <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9714	9803	
==>n $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9714	9803	
==>n $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9714	9803	
==>n $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1525	1651	
==>t($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1525	1651	
==>t($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $s <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	16	133	
==>use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $cha <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	16	133	
==>use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $cha <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18427	18532	
==>'.";\n";
    $code .= "}\n";

    eval_p5_code($code);
}
sub p6_wrap_code_with_package {
    my($code,$pkg <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1734	1845	
==>'(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1734	1845	
==>'(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1734	1845	
==>'(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

meth <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	859	951	
==>ill be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)> <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	859	951	
==>ill be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1360	1466	
==>h(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1360	1466	
==>h(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1360	1466	
==>h(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14564	14655	
==>_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except tha <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14564	14655	
==>_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26632	26861	
==>tr );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26632	26861	
==>tr );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26632	26861	
==>tr );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1912	2027	
==>mflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or um <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1912	2027	
==>mflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or um <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1085	1191	
==>cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1085	1191	
==>cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1085	1191	
==>cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referen <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4423	4515	
==>ate.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4423	4515	
==>ate.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	855	954	
==>this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to ma <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	855	954	
==>this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	21	114	
==>g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	21	114	
==>g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	21	114	
==>g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18798	18903	
==>$S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15219	15324	
==>$S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3618	3709	
==>d_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3618	3709	
==>d_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelud <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3618	3709	
==>d_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelud <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1316	1438	
==>tr type";
    (blessed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $s <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2256	2346	
==>em($^X, qw(-w ./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	68	155	
==>::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	68	155	
==>::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	68	155	
==>::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2128	2324	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5605	5801	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4535	4731	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!bo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18220	18354	
==>hs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14641	14775	
==>hs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1176	1286	
==>limiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi- <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1176	1286	
==>limiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2068	2175	
==>ins a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2068	2175	
==>ins a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2068	2175	
==>ins a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2134	2249	
==>mars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2134	2249	
==>mars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pug <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1366	1476	
==>mars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3227	3337	
==>mars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pug <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4818	4958	
==>sntall metadata
    system(qq[rm -rf $meta])                                    and die $?;

    print "\n\tPackage '$pkg' and associated met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7674	7804	
==>jects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7674	7804	
==>jects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7674	7804	
==>jects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var re <==
5	/Users/nnunley/pugs/util/ghc_setup.pl	163	252	
==>e::Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4124	4233	
==>{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makei <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4124	4233	
==>{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makei <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16863	16970	
==>in,
    # where some source attributes are in common, and each
    # source has attributes not in the other. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20340	20447	
==>in,
    # where some source attributes are in common, and each
    # source has attributes not in the other. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19918	20025	
==>in,
    # where some source attributes are in common, and each
    # source has attributes not in the other. <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	914	1039	
==>) and die "$?";
        chdir $builddir or die "Could not chdir to $builddir: $!";
    }

    ### build an archive file
    my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	444	544	
==>ore documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	448	548	
==>ore documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	444	544	
==>ore documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	448	548	
==>ore documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	795	916	
==>=> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	795	916	
==>=> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	795	916	
==>=> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$P <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1603	1719	
==>b {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_c <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1514	1612	
==>b {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_c <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	538	663	
==>ugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basi <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	538	663	
==>ugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5071	5193	
==>unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5071	5193	
==>unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5071	5193	
==>unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	383	499	
==>._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	383	499	
==>._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	383	499	
==>._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15808	15904	
==>95-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it a <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15808	15904	
==>95-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	631	759	
==>$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	624	752	
==>$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4712	4811	
==>queness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4712	4811	
==>queness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4712	4811	
==>queness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3619	3735	
==>lurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3619	3735	
==>lurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3619	3735	
==>lurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1636	1733	
==>les to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1636	1733	
==>les to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1111	1205	
==>Continuations are used for backtracking.

A "ruleop" function gets some arguments and returns a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1111	1205	
==>Continuations are used for backtracking.

A "ruleop" function gets some arguments and returns a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1873	1983	
==>urrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1873	1983	
==>urrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1873	1983	
==>urrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $me <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23540	23632	
==>otE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23540	23632	
==>otE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2674	2799	
==>RT;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2891	3016	
==>RT;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-ca <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34379	34471	
==>t.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38929	39021	
==>t.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38408	38500	
==>t.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relati <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	165	378	
==>code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	165	378	
==>code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11983	12167	
==>);
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

mu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15460	15644	
==>);
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

mu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14795	14979	
==>);
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10085	10242	
==>",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10085	10242	
==>",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10085	10242	
==>",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1181	1276	
==>*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REM <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1181	1276	
==>*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REM <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	344	450	
==>bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	344	450	
==>bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36808	36903	
==>ation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41357	41452	
==>ation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40980	41075	
==>ation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14322	14457	
==>esting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14322	14457	
==>esting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14322	14457	
==>esting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4131	4230	
==>in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4315	4414	
==>in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2202	2311	
==>hen Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2202	2311	
==>hen Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4091	4186	
==>Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Thi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4091	4186	
==>Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Thi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5615	5710	
==>Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Thi <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	11786	11901	
==>ts||='';
        $link->{regex} = eval "qr/$regex/$reopts";
      }
      $link->{sourcepath}=$output_path;
      $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5884	5988	
==>ub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5884	5988	
==>ub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5884	5988	
==>ub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1746	1839	
==>e { true }');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }') <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	556	686	
==>) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	556	686	
==>) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14211	14330	
==>m } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbo <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1691	1810	
==>m } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	109	210	
==>re::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings;

use Carp 'confess';
u <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27161	27272	
==>a;
    my $str = join("",map{chr($_)} @$strA);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$np <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15802	15934	
==>ass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15802	15934	
==>ass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15802	15934	
==>ass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35517	35611	
==>ject as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35517	35611	
==>ject as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version of <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3922	4032	
==>rammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4139	4249	
==>rammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12380	12489	
==>->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12380	12489	
==>->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12380	12489	
==>->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $c <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1937	2085	
==>_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Available );
                for my $depe <==
5	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	266	377	
==>=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14230	14333	
==>m, mpos
    .local string cname
    newfrom = find_global "PGE::Match", "newfrom"
    $P0 = getattribute <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	440	534	
==>s given below, although Haskellesque, are not pure functions.  They only
# represent transforma <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	440	534	
==>s given below, although Haskellesque, are not pure functions.  They only
# represent transforma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	696	972	
==>hings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	696	972	
==>hings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	696	972	
==>hings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9912	10012	
==>ist $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9912	10012	
==>ist $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6450	6620	
==>=> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6450	6620	
==>=> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6450	6620	
==>=> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	15	117	
==>::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	15	117	
==>::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use st <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3377	3505	
==>rse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions ar <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3377	3505	
==>rse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions ar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12619	12733	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13627	13741	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15152	15266	
==>= 0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2967	3089	
==>for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2967	3089	
==>for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2967	3089	
==>for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14055	14161	
==>},
      code  => sub { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("ref") }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4334	4439	
==>= join "", map $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = joi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11065	11188	
==>method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            . <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11065	11188	
==>method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            . <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3469	3587	
==>ind_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        eval { r <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2959	3070	
==>empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method conc <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2959	3070	
==>empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method conc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2196	2315	
==>:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $messag <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	193	300	
==>:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $messag <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	193	300	
==>:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $messag <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	74	170	
==>rt { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	74	170	
==>rt { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SE <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22170	22293	
==>$S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .return <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2246	2345	
==>2 Nodes

Nodes are parts of the Blondie Abstract Syntax Tree, and can be executed by a
runtime. An e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	168	261	
==>ew PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	168	261	
==>ew PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	168	261	
==>ew PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETC <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19514	19644	
==>ariable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19793	19923	
==>ariable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	8	102	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	8	102	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	8	102	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4203	4316	
==>v, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4203	4316	
==>v, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4793	4906	
==>v, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5576	5672	
==>b flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5634	5730	
==>b flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4976	5084	
==>_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4976	5084	
==>_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4976	5084	
==>_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6459	6565	
==>{flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    lo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6471	6577	
==>{flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    lo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31247	31343	
==>uples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35797	35893	
==>uples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35015	35111	
==>uples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4230	4319	
==>ion:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SE <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4230	4319	
==>ion:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11701	11801	
==>pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11701	11801	
==>pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11701	11801	
==>pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3159	3251	
==>ement_next, $set.complement_previous ),
        complement_previous => $self._get_intersectio <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3159	3251	
==>ement_next, $set.complement_previous ),
        complement_previous => $self._get_intersectio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	705	807	
==>d_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	705	807	
==>d_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8258	8353	
==>.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8258	8353	
==>.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8258	8353	
==>.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5069	5200	
==>Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5. <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5069	5200	
==>Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5713	5829	
==>new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5713	5829	
==>new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5713	5829	
==>new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreac <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1102	1200	
==>ad1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1102	1200	
==>ad1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1649	1747	
==>ad1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2475	2602	
==>6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2475	2602	
==>6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2475	2602	
==>6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	842	940	
==>s is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so... <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	842	940	
==>s is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6068	6190	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6068	6190	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6068	6190	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36092	36191	
==>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36267	36366	
==>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5252	5348	
==>ou to
do anything you like with each object, but is (at least nominally)
intended to allow filter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5252	5348	
==>ou to
do anything you like with each object, but is (at least nominally)
intended to allow filter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5252	5348	
==>ou to
do anything you like with each object, but is (at least nominally)
intended to allow filter <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5818	5913	
==>date %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5818	5913	
==>date %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<f <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6362	6476	
==>ne
    dec pos
  term_literal_one:
    $I0 = pos - litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	93	193	
==>to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	93	193	
==>to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	93	193	
==>to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	93	193	
==>to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8543	8640	
==>event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<st <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8543	8640	
==>event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9646	9742	
==>re ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9646	9742	
==>re ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9646	9742	
==>re ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1535	1637	
==>s, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1535	1637	
==>s, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1535	1637	
==>s, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number( <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	364	457	
==>Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	364	457	
==>Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2282	2379	
==>mbers));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2282	2379	
==>mbers));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31367	31460	
==>us function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sol <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35917	36010	
==>us function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sol <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35135	35228	
==>us function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sol <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1704	1842	
==>ap { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1704	1842	
==>ap { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7284	7373	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7284	7373	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7284	7373	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	215	335	
==>return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $e <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	215	335	
==>return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	54	143	
==>ap!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	54	143	
==>ap!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	54	143	
==>ap!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6288	6527	
==>($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::W <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2845	2943	
==>nce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) } <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4714	4812	
==>nce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) } <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2845	2943	
==>nce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) } <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4714	4812	
==>nce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11433	11529	
==>attributes is identical; they do not
interact with the outside environment at all.

A Document ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1396	1492	
==>elude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-ba <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11433	11529	
==>attributes is identical; they do not
interact with the outside environment at all.

A Document ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1396	1492	
==>elude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1396	1492	
==>elude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5787	5969	
==>ine
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5787	5969	
==>ine
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5787	5969	
==>ine
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8334	8443	
==>nal( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8045	8149	
==>nal( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1352	1454	
==>);

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inpu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1352	1454	
==>);

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inpu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1352	1454	
==>);

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inpu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12894	12988	
==>$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$de <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12952	13046	
==>$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	376	472	
==>s run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	376	472	
==>s run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	376	472	
==>s run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10369	10554	
==>est::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::B <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	911	1080	
==>est::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::B <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	911	1080	
==>est::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::B <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1391	1483	
==>ate/Temp markers for container

allocation, as well as the compile-time-bound values for them <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1331	1422	
==>ate/Temp markers for container
allocation, as well as the compile-time-bound values for them <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7866	7997	
==>ield', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate wheth <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7866	7997	
==>ield', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate wheth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1381	1492	
==>defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1586	1697	
==>defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1647	1758	
==>defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            g <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5643	5736	
==>d get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5643	5736	
==>d get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6191	6330	
==>sed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6191	6330	
==>sed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6191	6330	
==>sed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $se <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1857	1971	
==>value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1857	1971	
==>value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16451	16559	
==>sults =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1489	1585	
==>RR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available options:
  --smo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12031	12121	
==>->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12031	12121	
==>->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12031	12121	
==>->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14886	15027	
==>r $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enq <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14886	15027	
==>r $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14855	14982	
==>nf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14855	14982	
==>nf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14855	14982	
==>nf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14125	14221	
==>rl.plover.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h ./regcomp.c <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1823	1918	
==>ure ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while set <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1823	1918	
==>ure ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1014	1105	
==>{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1014	1105	
==>{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1014	1105	
==>{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1553	1655	
==>not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Er <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1553	1655	
==>not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Er <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1553	1655	
==>not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Er <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7286	7382	
==>l

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_o <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7286	7382	
==>l

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_o <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1160	1348	
==>, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
} <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1160	1348	
==>, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1358	1474	
==>Token;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1358	1474	
==>Token;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1358	1474	
==>Token;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2855	2978	
==>IL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2855	2978	
==>IL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2855	2978	
==>IL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	167	286	
==>has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.messa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	167	286	
==>has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.messa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9964	10086	
==>ew(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9964	10086	
==>ew(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1650	1753	
==>osure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe? <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1650	1753	
==>osure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe? <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	565	657	
==>x engine, that establishes feasiblity.
# Limited testing suggest performance is quite plausib <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1224	1380	
==>sg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1224	1380	
==>sg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1224	1380	
==>sg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retu <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1965	2068	
==>f requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2845	2948	
==>f requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10799	10946	
==>ubst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10799	10946	
==>ubst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14789	14894	
==>= sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14789	14894	
==>= sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14789	14894	
==>= sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('re <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5159	5299	
==>)
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6921	7061	
==>)
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2768	2883	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2961	3076	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  ma <==
5	/Users/nnunley/pugs/util/munge_haddock.pl	81	182	
==>ed during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14645	14742	
==>g the header fields.  Long header
values are not folded.

The optional $eol parameter specifies th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14645	14742	
==>g the header fields.  Long header
values are not folded.

The optional $eol parameter specifies th <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7187	7272	
==>d idea

## --------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7187	7272	
==>d idea

## --------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3664	3819	
==>' => 1,           *$v
    #    'attribute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7547	7646	
==>he List section.
multi Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	125	220	
==>n Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	125	220	
==>n Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
u <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	123	214	
==>n Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12864	12987	
==>xgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6339	6462	
==>xgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\} <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3934	4029	
==>eter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::F <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3934	4029	
==>eter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6131	6226	
==>eter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::F <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	662	762	
==>$p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16451	16550	
==>=> sub { $_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (map{p6_perl6_objects_from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2875	2971	
==>,map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2875	2971	
==>,map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2875	2971	
==>,map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# X <==
5	/Users/nnunley/pugs/util/package-osx.pl	10307	10421	
==>s[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) unless (-d $dirs);
    
    open  REMOVER, '>', "$dest$files[- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	641	747	
==>s = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	641	747	
==>s = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!header <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	286	386	
==>d

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

meth <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	286	386	
==>d

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11394	11564	
==>0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11394	11564	
==>0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11394	11564	
==>0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SEL <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	427	537	
==>lete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	427	537	
==>lete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3371	3475	
==>('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3371	3475	
==>('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3371	3475	
==>('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5465	5562	
==>t there may be situations in which explicitly zeroizing the 
cipher object would be desirable.

No <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5465	5562	
==>t there may be situations in which explicitly zeroizing the 
cipher object would be desirable.

No <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	569	816	
==>ersion applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::Key <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	569	816	
==>ersion applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::Key <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	524	645	
==>);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1084	1203	
==>meta_dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1367	1482	
==>ndler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	221	334	
==>S.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	221	334	
==>S.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	221	334	
==>S.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10675	10774	
==>n.

The $value argument may be a plain string or a reference to an array
of strings for a multi-valu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10675	10774	
==>n.

The $value argument may be a plain string or a reference to an array
of strings for a multi-valu <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6294	6416	
==>"# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMult <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9817	9917	
==>self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9817	9917	
==>self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21471	21568	
==>yright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redis <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21471	21568	
==>yright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8158	8321	
==>rn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8158	8321	
==>rn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8158	8321	
==>rn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4922	5039	
==>pository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4922	5039	
==>pository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1233	1333	
==>_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1233	1333	
==>_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1442	1542	
==>_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36975	37068	
==>tor.translate_message( $message );

=back

The Translator class also has these utility methods <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36975	37068	
==>tor.translate_message( $message );

=back

The Translator class also has these utility methods <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26847	26952	
==>uage::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)];
#use Languag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	698	796	
==>:PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8317	8415	
==>>add_package(package => $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-style: bs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	698	796	
==>:PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	698	796	
==>:PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5121	5250	
==>t "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5121	5250	
==>t "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2167	2287	
==>de>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2167	2287	
==>de>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2167	2287	
==>de>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $ev <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2359	2506	
==>atedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sy <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4931	5040	
==>vent {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4931	5040	
==>vent {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5395	5500	
==>vent {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5395	5500	
==>vent {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5567	5674	
==>fix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5567	5674	
==>fix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5567	5674	
==>fix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	693	785	
==>_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->fr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	693	785	
==>_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->fr <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3267	3376	
==>{ $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / ( <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1777	1885	
==>= do{local $/=undef; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4509	4607	
==>sed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org > <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4509	4607	
==>sed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org > <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4589	4687	
==>sed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5924	6106	
==>d => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5924	6106	
==>d => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5924	6106	
==>d => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end => <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2540	2625	
==>rchived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNT <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2540	2625	
==>rchived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5080	5195	
==>parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5080	5195	
==>parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5080	5195	
==>parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tok <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1191	1286	
==>the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results a <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1191	1286	
==>the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9485	9603	
==>hostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9485	9603	
==>hostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3724	3827	
==>rators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3724	3827	
==>rators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3724	3827	
==>rators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a an <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1739	1850	
==>)
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1739	1850	
==>)
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1739	1850	
==>)
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	605	715	
==>}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
} <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	605	715	
==>}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13515	13632	
==>ribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation wen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13515	13632	
==>ribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation wen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13515	13632	
==>ribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation wen <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9625	9723	
==>a) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() retu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9625	9723	
==>a) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28581	28781	
==>' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28581	28781	
==>' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28581	28781	
==>' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7806	7907	
==>she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normali <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7806	7907	
==>she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normali <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1945	2063	
==>ode;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1945	2063	
==>ode;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	152	246	
==>le syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Ba <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	152	246	
==>le syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Ba <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	150	240	
==>le syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Ba <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9082	9261	
==>dy => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12559	12738	
==>dy => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11795	11974	
==>dy => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

me <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11530	11618	
==>header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/ht <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11530	11618	
==>header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/ht <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19909	20052	
==>ROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19909	20052	
==>ROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19909	20052	
==>ROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $othe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9873	9968	
==>ed over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate valid <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	101	196	
==>RE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9873	9968	
==>ed over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate valid <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	101	196	
==>RE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	101	196	
==>RE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functi <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	337	466	
==>ere this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     rep <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	337	466	
==>ere this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     rep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1819	1937	
==>my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $sampl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1819	1937	
==>my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $sampl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1819	1937	
==>my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $sampl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5149	5284	
==>${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Sc <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5149	5284	
==>${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Sc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4924	5039	
==>not STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4924	5039	
==>not STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4924	5039	
==>not STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18938	19061	
==>ata} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20296	20419	
==>ata} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8468	8563	
==>ES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8468	8563	
==>ES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8468	8563	
==>ES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::C <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	848	969	
==>ve zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set mem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4326	4447	
==>ve zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set mem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3220	3341	
==>ve zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set mem <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5986	6089	
==>del document in which we store some local
    # command definitions and fragments thereof.
    my Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5986	6089	
==>del document in which we store some local
    # command definitions and fragments thereof.
    my Rosett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	122	238	
==>d the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	122	238	
==>d the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	122	238	
==>d the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	843	937	
==>-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	728	814	
==>-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35651	35785	
==>y->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35651	35785	
==>y->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35651	35785	
==>y->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3326	3412	
==>~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3326	3412	
==>~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3801	3912	
==>} elsif($stage eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	56	157	
==>ibrary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	60	161	
==>ibrary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	56	157	
==>ibrary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	60	161	
==>ibrary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1921	2056	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1701	1828	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1701	1828	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24776	24871	
==>etta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24776	24871	
==>etta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29968	30084	
==>x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29968	30084	
==>x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29968	30084	
==>x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2648	2754	
==>ader (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2648	2754	
==>ader (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11074	11170	
==>implified version of the
"Document" interface defined in the XML DOM spec; it exists as a contain <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11074	11170	
==>implified version of the
"Document" interface defined in the XML DOM spec; it exists as a contain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19833	19922	
==>to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19833	19922	
==>to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19833	19922	
==>to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7570	7786	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7570	7786	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAM <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7570	7786	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAM <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12670	12777	
==>_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6145	6252	
==>_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->a <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13197	13363	
==>xpand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3378	3524	
==>xpand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3378	3524	
==>xpand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3378	3524	
==>xpand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	594	718	
==>\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10211	10327	
==>arn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10211	10327	
==>arn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10211	10327	
==>arn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2487	2609	
==>[ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2487	2609	
==>[ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	278	374	
==>=~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	278	374	
==>=~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	278	374	
==>=~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9948	10067	
==>hod('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9948	10067	
==>hod('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9948	10067	
==>hod('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15057	15162	
==>re Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15057	15162	
==>re Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5642	5779	
==>atches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5642	5779	
==>atches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3842	3954	
==>ft;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3842	3954	
==>ft;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3842	3954	
==>ft;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11218	11386	
==>fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1589	1717	
==>d_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$curr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1589	1717	
==>d_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$curr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1589	1717	
==>d_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$curr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40551	40649	
==>wing Warnings and Errors

There are three methods you can use when a problem arises.  They use
Carp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8140	8309	
==>Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8140	8309	
==>Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8140	8309	
==>Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITE <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	652	763	
==>iption ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	652	763	
==>iption ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	438	533	
==>ap{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	438	533	
==>ap{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	438	533	
==>ap{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3338	3485	
==>] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3338	3485	
==>] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return ca <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28441	28541	
==>x); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #defi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3636	3731	
==>arnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3853	3948	
==>arnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1515	1627	
==>thod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1515	1627	
==>thod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4730	4824	
==>X::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4730	4824	
==>X::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4730	4824	
==>X::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6442	6544	
==>[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6442	6544	
==>[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6442	6544	
==>[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL is <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8055	8145	
==>template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 't <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8055	8145	
==>template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 't <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15317	15445	
==>num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15317	15445	
==>num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15317	15445	
==>num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'un <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4043	4141	
==>ailed.

=item B<List of Failed>

A list of the tests which failed.  Successive failures may be
abbr <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	56	154	
==>thod - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code ob <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5743	5957	
==>heck
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6207	6421	
==>heck
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10129	10273	
==>$binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6470	6614	
==>$binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7319	7463	
==>$binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1360	1488	
==>f($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Fun <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1360	1488	
==>f($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Fun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4080	4194	
==>H_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4080	4194	
==>H_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4080	4194	
==>H_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9584	9716	
==>{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10420	10552	
==>{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3831	3933	
==>};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3831	3933	
==>};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3831	3933	
==>};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1334	1482	
==>e(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1334	1482	
==>e(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5271	5363	
==>TINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5271	5363	
==>TINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5271	5363	
==>TINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant(' <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1879	2024	
==>eader ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $hea <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1879	2024	
==>eader ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19843	19936	
==>) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19843	19936	
==>) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19843	19936	
==>) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10137	10270	
==>ft;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not imp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10137	10270	
==>ft;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not imp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10137	10270	
==>ft;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not imp <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5842	5973	
==>match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.P <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5842	5973	
==>match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.P <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	628	725	
==>by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi- <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	628	725	
==>by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12010	12104	
==>pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12010	12104	
==>pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12010	12104	
==>pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8079	8218	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8272	8411	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	3315	3418	
==>side a thingy

package type::operator;
use base qw/type/;

sub new {
	my $class = shift;
	bless {}, $cla <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3467	3565	
==>ect;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4070	4161	
==>_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, qu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13069	13171	
==>e_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13069	13171	
==>e_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3722	3817	
==>ound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name. <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3722	3817	
==>ound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name. <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4312	4407	
==>ound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1548	1656	
==>te_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1548	1656	
==>te_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6566	6658	
==>cted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6566	6658	
==>cted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6566	6658	
==>cted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4529	4648	
==>new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4529	4648	
==>new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4529	4648	
==>new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3156	3255	
==>alled at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Ci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3156	3255	
==>alled at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Ci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4704	4803	
==>.";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4704	4803	
==>.";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4704	4803	
==>.";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else { <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	505	603	
==>G   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str i <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	505	603	
==>G   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str i <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9079	9191	
==>text-align:   right; }

    .details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4339	4433	
==>nd_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15775	15869	
==>nd_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4339	4433	
==>nd_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15775	15869	
==>nd_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2185	2294	
==>y);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2185	2294	
==>y);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2185	2294	
==>y);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_clas <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32522	32615	
==>a Translator object stores some attributes for configuration, its
main purpose is to convert M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32522	32615	
==>a Translator object stores some attributes for configuration, its
main purpose is to convert M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16052	16190	
==>instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16052	16190	
==>instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16052	16190	
==>instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for n <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	914	1046	
==>risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'inter <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	914	1046	
==>risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'inter <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16423	16534	
==>rns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19900	20011	
==>rns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37137	37232	
==>ir joining degenerates to a
C<product>.  In any situation where the heading of one source relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41686	41781	
==>ir joining degenerates to a
C<product>.  In any situation where the heading of one source relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41309	41404	
==>ir joining degenerates to a
C<product>.  In any situation where the heading of one source relati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	495	619	
==>his is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	495	619	
==>his is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	495	619	
==>his is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27144	27238	
==>_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a g <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31696	31790	
==>_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a g <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3071	3200	
==>node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::Lazy> <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1029	1149	
==>available';             # available packages MD
$Altfile        = $Meta . '/registered-alts';       # registered alternat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3033	3152	
==>ses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3033	3152	
==>ses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3033	3152	
==>ses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $sel <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1010	1157	
==>rt       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4249	4396	
==>rt       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1010	1157	
==>rt       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4249	4396	
==>rt       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	256	355	
==>---------------------------------

my %Cookies;

sub CookiesInit() {
    %Cookies=();
    if (%*ENV{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18865	18993	
==>lass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18865	18993	
==>lass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18865	18993	
==>lass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AU <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3933	4037	
==>$key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3933	4037	
==>$key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16871	17015	
==>$class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':cano <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16871	17015	
==>$class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':cano <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16871	17015	
==>$class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':cano <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17201	17301	
==>h %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :descendant)))
     (= $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8993	9090	
==>DE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	775	926	
==>olException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	775	926	
==>olException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	775	926	
==>olException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$con <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	568	679	
==>: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "imm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	774	885	
==>: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "imm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	373	492	
==>( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	470	589	
==>( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $m <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1251	1399	
==>buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@line <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1251	1399	
==>buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@line <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16235	16372	
==>n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16229	16366	
==>n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7695	7806	
==>I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CCLASS_WORD, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8320	8430	
==>assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	478	588	
==>assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8040	8147	
==>assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	455	562	
==>assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    captur <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7167	7269	
==>ature from S29draft.pod 8651.  In the List section.
multi Array::grep (@values ;      Code *&test   --> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7518	7679	
==>',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7518	7679	
==>',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18113	18207	
==>tan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18113	18207	
==>tan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18113	18207	
==>tan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MU <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6184	6318	
==>%events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have a <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5257	5391	
==>%events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have a <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6184	6318	
==>%events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have a <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5257	5391	
==>%events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have a <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	341	470	
==>bstr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1374	1473	
==>ray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1374	1473	
==>ray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.len <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1374	1473	
==>ray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.len <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1552	1650	
==>h for many purposes.  
Although the interface is said to be procedural, it is invoked via two class <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1552	1650	
==>h for many purposes.  
Although the interface is said to be procedural, it is invoked via two class <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	1713	1831	
==>3.2

sub alternate(Array *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23697	23787	
==>o send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mess <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22470	22560	
==>o send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mess <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23697	23787	
==>o send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mess <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22470	22560	
==>o send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mess <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5751	5853	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5830	5932	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $c <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6005	6096	
==>ms a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@array:) returns List <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1752	1858	
==>rr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1752	1858	
==>rr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1752	1858	
==>rr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	416	514	
==>l similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	416	514	
==>l similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7129	7286	
==>ice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7129	7286	
==>ice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7129	7286	
==>ice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	768	869	
==>Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that thi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	768	869	
==>Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11553	11703	
==>te
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11553	11703	
==>te
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3743	3871	
==>rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25314	25408	
==>osophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25314	25408	
==>osophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27905	28038	
==>)
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28184	28317	
==>)
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	284	454	
==>ce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	284	454	
==>ce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	284	454	
==>ce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [] <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	409	537	
==>OGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &re <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	409	537	
==>OGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &re <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1037	1134	
==>alpha {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20773	20865	
==>0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5618	5710	
==>l_tests(@test_files);

Runs all the given C<@test_files> (as C<runtests()>) but does it
quiet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20773	20865	
==>0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20773	20865	
==>0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5574	5706	
==>y, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5574	5706	
==>y, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	269	376	
==>05-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	269	376	
==>05-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	269	376	
==>05-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2765	2884	
==>_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ", <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2753	2872	
==>_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	948	1040	
==>)($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	948	1040	
==>)($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	948	1040	
==>)($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(funct <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	572	776	
==>s, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	572	776	
==>s, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2030	2149	
==>= $_[0]{ident}();
          return { named_capture => $body, } 
        }
    }
    unshift @rule_terms, 'named_capture' <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16059	16158	
==>( $object )`

These methods return a logical value. 

The argument can be a Span object, a Recurrenc <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16059	16158	
==>( $object )`

These methods return a logical value. 

The argument can be a Span object, a Recurrenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19907	20041	
==>e this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors du <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19907	20041	
==>e this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors du <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19907	20041	
==>e this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors du <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9012	9110	
==>e into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_L <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9012	9110	
==>e into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_L <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2151	2265	
==>++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2151	2265	
==>++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17088	17228	
==>KMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17088	17228	
==>KMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17088	17228	
==>KMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6098	6193	
==>de.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6098	6193	
==>de.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5584	5707	
==>have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5584	5707	
==>have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5584	5707	
==>have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_metho <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1250	1349	
==>ly 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1250	1349	
==>ly 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13547	13705	
==>top {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13547	13705	
==>top {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13547	13705	
==>top {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2432	2590	
==>top {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2883	2992	
==>e}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self->autoload;
    $self->preload;

    # Unregister loader <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13714	13854	
==>r($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3839	3967	
==>r($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3839	3967	
==>r($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3839	3967	
==>r($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9873	9969	
==>ee->new;
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				type::operator:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7338	7547	
==>nf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7338	7547	
==>nf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7338	7547	
==>nf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $clas <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	169	285	
==>';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pri <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	133	248	
==>';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	221	336	
==>';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pri <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1688	1790	
==>>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.intersect <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1688	1790	
==>>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.intersect <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6010	6123	
==>) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!user <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6790	6903	
==>) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6010	6123	
==>) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6790	6903	
==>) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!user <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	788	882	
==>use Blondie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5540	5713	
==>ch.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### n <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6004	6177	
==>ch.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	357	477	
==>ethod"} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	723	835	
==>YPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	723	835	
==>YPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VA <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12699	12795	
==>`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence is i <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12699	12795	
==>`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence is i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22031	22125	
==>ively have a special meaning in relational algebra which
is analagous to what the identity numb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26583	26677	
==>ively have a special meaning in relational algebra which
is analagous to what the identity numb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25279	25373	
==>ively have a special meaning in relational algebra which
is analagous to what the identity numb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10846	11026	
==>es;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10846	11026	
==>es;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10846	11026	
==>es;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_disp <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15869	15968	
==>n ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` a <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15869	15968	
==>n ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	139	286	
==>state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encryp <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	139	286	
==>state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encryp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1973	2103	
==>ty; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1973	2103	
==>ty; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1973	2103	
==>ty; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4336	4484	
==>ems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4336	4484	
==>ems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4336	4484	
==>ems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3773	3892	
==>if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3773	3892	
==>if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2227	2333	
==>, "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2227	2333	
==>, "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2227	2333	
==>, "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Nu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32677	32773	
==>using data from external Template modules as a template.
The Translator class as a whole is not p <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32677	32773	
==>using data from external Template modules as a template.
The Translator class as a whole is not p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4279	4371	
==>:Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1702	1794	
==>lass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4279	4371	
==>:Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repre <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1702	1794	
==>lass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1702	1794	
==>lass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14862	14965	
==>ULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14862	14965	
==>ULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14862	14965	
==>ULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13468	13560	
==>ash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13468	13560	
==>ash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3438	3562	
==>ex == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3438	3562	
==>ex == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1759	1862	
==>(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1759	1862	
==>(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Nu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1759	1862	
==>(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	617	744	
==>ass
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	617	744	
==>ass
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	617	744	
==>ass
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2516	2623	
==>st::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.out <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2516	2623	
==>st::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.out <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4748	4913	
==>else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4748	4913	
==>else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5163	5321	
==>ing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5163	5321	
==>ing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5163	5321	
==>ing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $na <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3452	3585	
==>{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3452	3585	
==>{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2492	2592	
==>eturns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2492	2592	
==>eturns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2492	2592	
==>eturns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39929	40055	
==>:Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39929	40055	
==>:Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39929	40055	
==>:Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $k <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	777	874	
==>individual bits.  Also note that the 
Cipher API operates at the byte level, not the character lev <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	777	874	
==>individual bits.  Also note that the 
Cipher API operates at the byte level, not the character lev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9520	9641	
==>ical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9520	9641	
==>ical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9520	9641	
==>ical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1849	1955	
==>Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1849	1955	
==>Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11796	11908	
==>from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11796	11908	
==>from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	936	1038	
==>"PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	936	1038	
==>"PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	936	1038	
==>"PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	342	460	
==>} 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, cl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	342	460	
==>} 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1520	1615	
==>cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_contr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1520	1615	
==>cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_contr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1520	1615	
==>cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_contr <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3864	3968	
==>ingify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our & <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3864	3968	
==>ingify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our & <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	838	938	
==>S.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	838	938	
==>S.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	838	938	
==>S.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18631	18803	
==>'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optio <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18910	19082	
==>'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optio <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28251	28349	
==>or a 'branch'
node), another object (for a 'quant' node), or it might not exist at all
(for an 'anc <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2406	2500	
==>pe;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2406	2500	
==>pe;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14566	14683	
==>$s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numbe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14566	14683	
==>$s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numbe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14566	14683	
==>$s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numbe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1155	1267	
==>ule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1166	1278	
==>ule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23638	23738	
==>ementing class, it can default to True or
False, but once it has a value of False, it can not be furt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28190	28290	
==>ementing class, it can default to True or
False, but once it has a value of False, it can not be furt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27003	27103	
==>ementing class, it can default to True or
False, but once it has a value of False, it can not be furt <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2889	2984	
==>nion($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.st <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2889	2984	
==>nion($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.st <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	239	346	
==>$host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq ' <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	275	381	
==>$host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	761	865	
==>, pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	761	865	
==>, pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	761	865	
==>, pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5641	5797	
==>appens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5641	5797	
==>appens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5641	5797	
==>appens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3316	3440	
==>ord'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3509	3633	
==>ord'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14614	14741	
==>to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14614	14741	
==>to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14614	14741	
==>to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bo <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11572	11668	
==>n this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns t <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11572	11668	
==>n this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1627	1777	
==>_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1627	1777	
==>_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1627	1777	
==>_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15359	15469	
==>ffset of the last char within the capture.
n=0 is the total match?

  U32 lastparen;          /* last paren mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23060	23159	
==>e thing.)

=item nparen

The number of OPENs (capturing groups) in the regex.

=item captures

An ar <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	244	357	
==>ed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	244	357	
==>ed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34131	34224	
==>he invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiff <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38681	38774	
==>he invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiff <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38142	38235	
==>he invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiff <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2500	2618	
==>sa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14701	14807	
==>ar('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      req <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14701	14807	
==>ar('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      req <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14701	14807	
==>ar('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      req <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2398	2490	
==>e slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::Li <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2398	2490	
==>e slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6149	6287	
==>tribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6149	6287	
==>tribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6149	6287	
==>tribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub i <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	335	437	
==>er::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{site <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	335	437	
==>er::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{site <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13396	13510	
==>$ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13396	13510	
==>$ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13396	13510	
==>$ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $arr <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2279	2380	
==>eaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tre <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2279	2380	
==>eaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10345	10487	
==><$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6686	6828	
==><$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7535	7677	
==><$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11947	12044	
==>k

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This metho <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11947	12044	
==>k

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10802	10905	
==>d:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but the regex; it might be
sli <==
5	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	322	421	
==>install and have all the distribution components you need.

= WHY

You should use this module as a s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4706	4827	
==>($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4706	4827	
==>($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4945	5043	
==>for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4945	5043	
==>for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5535	5633	
==>for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var-> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	460	587	
==>mpare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	460	587	
==>mpare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15733	15841	
==>_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15733	15841	
==>_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15733	15841	
==>_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7323	7500	
==>},
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7323	7500	
==>},
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7323	7500	
==>},
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18986	19075	
==>t the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18986	19075	
==>t the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	635	729	
==>them C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc:: <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	635	729	
==>them C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1460	1603	
==>bs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1460	1603	
==>bs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1460	1603	
==>bs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $cl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5611	5715	
==>ed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know ho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5611	5715	
==>ed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know ho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8073	8173	
==>tant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8073	8173	
==>tant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8073	8173	
==>tant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variabl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17380	17473	
==>se
benefits to developers and users alike.

For some practical examples of Locale::KeyedText i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17380	17473	
==>se
benefits to developers and users alike.

For some practical examples of Locale::KeyedText i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19783	19918	
==>f .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $ba <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16204	16339	
==>f .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	71	172	
==>::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	71	172	
==>::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	71	172	
==>::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20976	21066	
==>setta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	249	339	
==>%params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20976	21066	
==>setta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	249	339	
==>%params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	249	339	
==>%params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4070	4251	
==>ess defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start = <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4070	4251	
==>ess defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4831	4928	
==>taoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4831	4928	
==>taoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4831	4928	
==>taoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	619	775	
==>0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$rep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	619	775	
==>0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$rep <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	619	775	
==>0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$rep <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16621	16747	
==>tch;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16900	17026	
==>tch;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	865	989	
==>$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1071	1195	
==>$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5106	5210	
==>\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
loc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5106	5210	
==>\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
loc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5106	5210	
==>\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
loc <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2712	2813	
==>atforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLA <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2712	2813	
==>atforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLA <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10660	10754	
==>= type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10898	10992	
==>= type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11090	11184	
==>= type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	320	425	
==>0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	320	425	
==>0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	320	425	
==>0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way t <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1350	1441	
==>ult> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parser <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1350	1441	
==>ult> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9513	9617	
==>y $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9513	9617	
==>y $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9513	9617	
==>y $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, start <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1667	1763	
==>r @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1667	1763	
==>r @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18922	19028	
==>on. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subro <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18922	19028	
==>on. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subro <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13210	13307	
==>rn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13210	13307	
==>rn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13210	13307	
==>rn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3054	3223	
==>{
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3054	3223	
==>{
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3054	3223	
==>{
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	495	601	
==>urce, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	495	601	
==>urce, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 S <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	927	1050	
==>"\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.char <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	927	1050	
==>"\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.char <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	175	261	
==>trapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	175	261	
==>trapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	175	261	
==>trapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4240	4364	
==>ible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4240	4364	
==>ible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4240	4364	
==>ible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2974	3095	
==>ph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $se <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2974	3095	
==>ph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $se <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6383	6483	
==>!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5456	5556	
==>!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6383	6483	
==>!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5456	5556	
==>!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	43	139	
==>se Perl6::Core::Type;

package type::equivalence;

use strict;
use warnings;

use Scalar::Util 'b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3332	3439	
==>n $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3332	3439	
==>n $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3332	3439	
==>n $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{t <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1703	1799	
==>$name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?w <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1703	1799	
==>$name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4150	4265	
==>extToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4150	4265	
==>extToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4150	4265	
==>extToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15588	15680	
==>easily be
able handle arbitrarily complex data structures automatically (at least
that is wha <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15646	15738	
==>easily be
able handle arbitrarily complex data structures automatically (at least
that is wha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	414	602	
==>:non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	414	602	
==>:non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17229	17329	
==>utes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17229	17329	
==>utes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17229	17329	
==>utes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::m <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13161	13315	
==>r.  Will be run with /x
my $Extra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional to <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	1560	1707	
==>$_ based on $f\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2967	3062	
==>) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribut <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2967	3062	
==>) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribut <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3314	3409	
==>) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribut <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17048	17166	
==>n:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20525	20643	
==>n:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20103	20221	
==>n:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having f <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23868	23961	
==>'t know about language specific details like
encodings or plurality.

My understanding of alte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23868	23961	
==>'t know about language specific details like
encodings or plurality.

My understanding of alte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38915	39021	
==>TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38915	39021	
==>TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38915	39021	
==>TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19547	19640	
==>lanned for Locale::KeyedText that will enable
user text to be stored in non-Perl external file <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19547	19640	
==>lanned for Locale::KeyedText that will enable
user text to be stored in non-Perl external file <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1229	1352	
==>ure_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    met <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1229	1352	
==>ure_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7270	7370	
==>->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7270	7370	
==>->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7270	7370	
==>->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPT <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	327	582	
==>ues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External pa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	327	582	
==>ues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6469	6583	
==>++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6469	6583	
==>++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6469	6583	
==>++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	664	765	
==>) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no Smart::Comments;\n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4363	4458	
==>a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15799	15894	
==>a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4363	4458	
==>a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15799	15894	
==>a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	237	341	
==>g"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	237	341	
==>g"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	237	341	
==>g"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4168	4265	
==>can also be the string "last", in which case the
object returned represents the last day for the s <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4168	4265	
==>can also be the string "last", in which case the
object returned represents the last day for the s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1687	1782	
==>coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1687	1782	
==>coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1687	1782	
==>coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instanc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1052	1180	
==>,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1009	1133	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1458	1562	
==>kes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to cre <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1458	1562	
==>kes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to cre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	925	1019	
==>mat specified on the command line
	$dumper = $format{$Pugs::Utils::Interface::format};

	# load <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7941	8038	
==>item')>

This event is fired when an '=item' directive is reached, the next event fired will be
an <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7941	8038	
==>item')>

This event is fired when an '=item' directive is reached, the next event fired will be
an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9093	9238	
==>nts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9093	9238	
==>nts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9093	9238	
==>nts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->c <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2071	2206	
==>e = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $arc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13014	13117	
==>} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	959	1059	
==>return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	959	1059	
==>return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	959	1059	
==>return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_t <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1260	1355	
==>f
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys() <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1260	1355	
==>f
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23666	23889	
==>);
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'in <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23666	23889	
==>);
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'in <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23666	23889	
==>);
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'in <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16183	16335	
==>,
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corner <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24209	24314	
==>hift;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	653	755	
==>rk: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	653	755	
==>rk: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	653	755	
==>rk: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), val <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11158	11252	
==>eturns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11216	11310	
==>eturns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5971	6151	
==>ues.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9448	9628	
==>ues.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1406	1500	
==>new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1406	1500	
==>new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1406	1500	
==>new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14000	14123	
==>e grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10173	10296	
==>e grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11009	11132	
==>e grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2129	2233	
==>» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    ! <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2129	2233	
==>» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1630	1740	
==>itives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1630	1740	
==>itives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1630	1740	
==>itives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	277	373	
==>e vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	277	373	
==>e vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	909	1027	
==>{
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	909	1027	
==>{
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	909	1027	
==>{
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "va <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2517	2694	
==>nt ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2517	2694	
==>nt ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4709	4881	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4709	4881	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4709	4881	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7096	7244	
==>$param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7096	7244	
==>$param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7096	7244	
==>$param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	702	816	
==>nst = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - general <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4919	5022	
==>inue;
   has $.return;
   has $.throw;
}
class JSX::InternalValue::Completion {
   submethod BUILD { $.t <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3976	4120	
==>_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () ret <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3976	4120	
==>_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3055	3157	
==>} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{para <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3055	3157	
==>} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{para <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3055	3157	
==>} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{para <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5337	5466	
==>as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5337	5466	
==>as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5337	5466	
==>as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    ou <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10696	10800	
==>ay $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `rem <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10696	10800	
==>ay $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `rem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11235	11453	
==>Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11235	11453	
==>Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11235	11453	
==>Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	454	561	
==>=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $par <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	486	593	
==>=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $par <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15918	16058	
==>*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'li <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16197	16337	
==>*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'li <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3364	3480	
==>lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until( <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3364	3480	
==>lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until( <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	80	184	
==>ase, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=head1 NAME

Class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11175	11284	
==>:Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11175	11284	
==>:Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11175	11284	
==>:Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4452	4542	
==>iphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipherin <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4452	4542	
==>iphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipherin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3330	3450	
==>);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3330	3450	
==>);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3330	3450	
==>);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    el <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10482	10579	
==>o force into being TODO tests
then you can pass them through this function. This is primarily a re <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10540	10637	
==>o force into being TODO tests
then you can pass them through this function. This is primarily a re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7831	7955	
==>, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11831	11951	
==>, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11831	11951	
==>, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$nam <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1009	1107	
==>ist is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These met <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1009	1107	
==>ist is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These met <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7616	7756	
==>rent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.curre <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7616	7756	
==>rent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.curre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2893	3054	
==>[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2893	3054	
==>[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9279	9391	
==>aram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9279	9391	
==>aram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9279	9391	
==>aram'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2560	2787	
==>}
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_li <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2560	2787	
==>}
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15414	15538	
==>tr        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15414	15538	
==>tr        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15414	15538	
==>tr        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14652	14763	
==>t possible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14652	14763	
==>t possible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17815	17930	
==>",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16853	16968	
==>",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17815	17930	
==>",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16853	16968	
==>",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     = <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7967	8082	
==>raverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( %app<"pInv"> );
        $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16631	16732	
==>assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB C <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16631	16732	
==>assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB C <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16631	16732	
==>assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB C <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	308	400	
==>Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `eleme <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	308	400	
==>Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `eleme <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2034	2148	
==>_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self-> <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2730	2830	
==>akes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we have a Thunk ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1054	1146	
==>:JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1054	1146	
==>:JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1054	1146	
==>:JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9042	9161	
==>Name'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'para <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9042	9161	
==>Name'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'para <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9042	9161	
==>Name'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'para <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4713	4811	
==>nitialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4713	4811	
==>nitialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13990	14095	
==>is still alive, the server will
        # respond with a PONG, so everything's fine. But if the connection <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13990	14095	
==>is still alive, the server will
        # respond with a PONG, so everything's fine. But if the connection <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13056	13157	
==>is still alive, the server will
    # respond with a PONG, so everything's fine. But if the connection <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13056	13157	
==>is still alive, the server will
    # respond with a PONG, so everything's fine. But if the connection <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18889	18979	
==>n>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule As <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1577	1693	
==>tant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1577	1693	
==>tant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1577	1693	
==>tant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	41	142	
==>ict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	41	142	
==>ict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26270	26403	
==>et_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $self: opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	195	322	
==>t = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n";
    return $output;
}

my %SEEN;

sub _ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1214	1323	
==>}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1214	1323	
==>}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1214	1323	
==>}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6885	6979	
==>rn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6885	6979	
==>rn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6885	6979	
==>rn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::in <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10745	10836	
==>m B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length r <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10745	10836	
==>m B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	698	824	
==>~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	698	824	
==>~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	564	674	
==>own.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	564	674	
==>own.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	564	674	
==>own.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c con <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22906	23038	
==>dd_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19327	19459	
==>dd_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2349	2455	
==>ox.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2349	2455	
==>ox.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2349	2455	
==>ox.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Ca <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4627	4744	
==>ontent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mul <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4627	4744	
==>ontent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mul <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27003	27096	
==>lement subset of the original's attributes to what C<project> would
return given the same C<$a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31555	31648	
==>lement subset of the original's attributes to what C<project> would
return given the same C<$a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30611	30704	
==>lement subset of the original's attributes to what C<project> would
return given the same C<$a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10266	10380	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13743	13857	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13024	13138	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a sem <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9665	9778	
==>> { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9665	9778	
==>> { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11784	11965	
==>fined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11784	11965	
==>fined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Laz <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11784	11965	
==>fined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Laz <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3416	3531	
==>imization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting her <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3416	3531	
==>imization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting her <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15342	15457	
==>sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15342	15457	
==>sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15342	15457	
==>sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11646	11738	
==>ccepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11646	11738	
==>ccepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15674	15797	
==>K $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15674	15797	
==>K $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueu <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5799	5892	
==>de_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGloba <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5799	5892	
==>de_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGloba <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2698	2791	
==>de_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGloba <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23449	23543	
==>ported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23449	23543	
==>ported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3532	3623	
==>w(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3532	3623	
==>w(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3532	3623	
==>w(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3111	3296	
==>M2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3111	3296	
==>M2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3111	3296	
==>M2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to H <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13815	13918	
==>ution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $ha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13815	13918	
==>ution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $ha <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1516	1708	
==>%!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1516	1708	
==>%!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6044	6216	
==>d;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6044	6216	
==>d;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6044	6216	
==>d;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5269	5372	
==>::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dol <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5269	5372	
==>::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dol <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5269	5372	
==>::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dol <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14019	14113	
==>cters in $string with their entity
representation. A second argument can be given to specify wh <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14019	14113	
==>cters in $string with their entity
representation. A second argument can be given to specify wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2902	3024	
==>ists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2902	3024	
==>ists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2902	3024	
==>ists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{at <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3908	4007	
==>, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3908	4007	
==>, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Ciph <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12403	12520	
==>'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12403	12520	
==>'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12403	12520	
==>'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	363	471	
==>cause the hash 
    # does not seem to get initialized properly
    # and calling members before any values a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	363	471	
==>cause the hash 
    # does not seem to get initialized properly
    # and calling members before any values a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1961	2090	
==>$i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1961	2090	
==>$i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1961	2090	
==>$i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($typ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3867	3969	
==>s::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3867	3969	
==>s::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14266	14394	
==>ft()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.siz <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17743	17871	
==>ft()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.siz <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17159	17287	
==>ft()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.siz <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7320	7410	
==>h @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::P <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1145	1235	
==>h @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7762	7893	
==>s $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining block <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7762	7893	
==>s $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining block <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5920	6021	
==>d ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5920	6021	
==>d ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5920	6021	
==>d ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2135	2239	
==>$file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2135	2239	
==>$file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2294	2423	
==>th

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2211	2330	
==>th
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3504	3614	
==>th > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3504	3614	
==>th > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3504	3614	
==>th > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	444	555	
==>nuation" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	676	784	
==>nuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	422	530	
==>nuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	676	784	
==>nuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7562	7666	
==>.
multi Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# sign <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9194	9381	
==>hods'))
                  ->fetch($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method remove_method (opaque $self: symbol $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36246	36386	
==>=> (
    # method label
        symbol->new('get_attribute'),
    # method body
        method->new(
            $::ENV,
            method:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5635	5770	
==>I SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the be <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5635	5770	
==>I SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the be <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5635	5770	
==>I SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the be <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33521	33611	
==>has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38071	38161	
==>has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17234	17323	
==>6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17234	17323	
==>6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17234	17323	
==>6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7881	8013	
==>ated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13475	13607	
==>ated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7881	8013	
==>ated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13469	13601	
==>ated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13247	13354	
==>ords {  # see 11.1.5
      <Identifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6672	6770	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6672	6770	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6672	6770	
==>tch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speed <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26190	26285	
==>with (others are ignored).  Each variable name can be any
defined and non-empty string, and each <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26190	26285	
==>with (others are ignored).  Each variable name can be any
defined and non-empty string, and each <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17768	17936	
==>$r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21245	21413	
==>$r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20832	21000	
==>$r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4596	4698	
==>for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4596	4698	
==>for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10884	11036	
==>o};  
            
            ## XXX - Begin Pugs addition
            # this addition prints out the differnt TODO types
            foreach my $todo_t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3343	3453	
==>int_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3560	3670	
==>int_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespac <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7934	8033	
==>:Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUN <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7934	8033	
==>:Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUN <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1557	1664	
==>ing $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19306	19402	
==>f the connection to the server
dies. To read data from the server, a blocking C<readline> call is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18331	18427	
==>f the connection to the server
dies. To read data from the server, a blocking C<readline> call is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19306	19402	
==>f the connection to the server
dies. To read data from the server, a blocking C<readline> call is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18331	18427	
==>f the connection to the server
dies. To read data from the server, a blocking C<readline> call is <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5725	5825	
==>->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5804	5904	
==>->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1390	1478	
==>tive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1390	1478	
==>tive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1390	1478	
==>tive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9342	9479	
==>ndler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8799	8905	
==>f_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8857	8963	
==>f_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	197	291	
==>f_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	255	349	
==>f_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1546	1641	
==>modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1546	1641	
==>modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14486	14579	
==>ink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14486	14579	
==>ink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14486	14579	
==>ink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2139	2243	
==>ans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns b <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2139	2243	
==>ans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2723	2812	
==>WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2723	2812	
==>WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2723	2812	
==>WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method( <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	57	258	
==>548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	57	258	
==>548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1012	1112	
==>::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1012	1112	
==>::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1012	1112	
==>::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3059	3174	
==>dlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3059	3174	
==>dlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3059	3174	
==>dlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21068	21163	
==>ibuted with one or more
resource files containing text for users, and your program would use
ass <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21068	21163	
==>ibuted with one or more
resource files containing text for users, and your program would use
ass <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2871	3011	
==>./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        ret <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2871	3011	
==>./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3706	3804	
==>then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan') <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3706	3804	
==>then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5230	5328	
==>then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4302	4474	
==>',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my % <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4302	4474	
==>',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my % <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4302	4474	
==>',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my % <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21304	21399	
==>s a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21304	21399	
==>s a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12165	12282	
==>kip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::Wit <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2565	2670	
==>kip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::Wit <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2565	2670	
==>kip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::Wit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	930	1030	
==>"Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1182	1282	
==>"Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2623	2785	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1313	1475	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2623	2785	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1313	1475	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40574	40671	
==>s

There are three methods you can use when a problem arises.  They use
Carp::carp() or Carp::croa <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12619	12719	
==>t, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = "" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24845	24942	
==>u if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the const <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23609	23706	
==>u if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the const <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24845	24942	
==>u if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the const <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23609	23706	
==>u if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1303	1413	
==>rd_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1303	1413	
==>rd_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1303	1413	
==>rd_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_n <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6868	6962	
==>intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6868	6962	
==>intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36937	37047	
==>hift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_handler('&' => <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18264	18363	
==>ve a harder time figuring out the
best way to deal with it.  But for displaying to users, easy messa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18264	18363	
==>ve a harder time figuring out the
best way to deal with it.  But for displaying to users, easy messa <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1334	1429	
==>e round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->n <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1334	1429	
==>e round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	769	871	
==>ve a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it mea <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	769	871	
==>ve a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it mea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	824	922	
==>que_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	824	922	
==>que_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	824	922	
==>que_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eigen <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1899	1993	
==>infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => > <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1899	1993	
==>infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => > <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	63	168	
==>ss {
    my $self = shift;
    Carp::carp("class() deprecated; use family() instead");
    $self->family(@ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18699	18793	
==>accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17742	17836	
==>accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18699	18793	
==>accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17742	17836	
==>accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16912	17008	
==>n in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applicat <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	50	146	
==>der Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	51	147	
==>der Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	51	147	
==>der Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16912	17008	
==>n in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applicat <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9000	9198	
==>, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checkin <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9000	9198	
==>, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checkin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	341	465	
==>ve_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	341	465	
==>ve_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	341	465	
==>ve_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self- <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3363	3489	
==>t.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie. <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3363	3489	
==>t.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10291	10403	
==>msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10291	10403	
==>msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	82	184	
==>::ADTs;

use Memoize;
memoize('env');

use Module::Pluggable (
    sub_name => "submodules",
    search <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18292	18397	
==>$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22001	22096	
==>ent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20882	20977	
==>ent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22001	22096	
==>ent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20882	20977	
==>ent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16305	16477	
==>l;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16299	16471	
==>l;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12374	12482	
==>line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12374	12482	
==>line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8084	8170	
==>BLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<htm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1932	2049	
==>ro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1932	2049	
==>ro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12571	12683	
==>shref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12571	12683	
==>shref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12571	12683	
==>shref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{ha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8620	8749	
==>rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sho <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4980	5109	
==>rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sho <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5829	5958	
==>rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sho <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3322	3423	
==>and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3322	3423	
==>and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	601	758	
==>a comment until end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2101	2244	
==>>{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            go <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2861	2982	
==>n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2861	2982	
==>n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2861	2982	
==>n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16557	16654	
==>gle span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16557	16654	
==>gle span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4788	4884	
==>n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4788	4884	
==>n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4788	4884	
==>n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_un <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10556	10675	
==>ogram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11018	11137	
==>ogram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10550	10669	
==>ogram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11012	11131	
==>ogram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	359	456	
==>ups} = Set::Object->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1170	1281	
==>s,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1170	1281	
==>s,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1170	1281	
==>s,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @I <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	245	342	
==>erfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	245	342	
==>erfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Ciph <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4259	4363	
==>{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4259	4363	
==>{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4259	4363	
==>{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1937	2038	
==>tus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MAND <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1937	2038	
==>tus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MAND <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15602	15702	
==>xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15602	15702	
==>xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15602	15702	
==>xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5209	5300	
==>le::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5209	5300	
==>le::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14079	14195	
==>osetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_per <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14079	14195	
==>osetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1807	1907	
==>t work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1807	1907	
==>t work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1807	1907	
==>t work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	709	874	
==>DOUT),
    map { native($_) } (
        {
            arity => 3,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_[2] : $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2722	2839	
==>->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2722	2839	
==>->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2722	2839	
==>->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6 <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1088	1194	
==>urn scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self = shift;
    return $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5220	5388	
==>f );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*sh <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5220	5388	
==>f );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4989	5111	
==>rsions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4989	5111	
==>rsions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4989	5111	
==>rsions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4543	4640	
==>RHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4543	4640	
==>RHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4543	4640	
==>RHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15694	15830	
==>m        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15694	15830	
==>m        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15694	15830	
==>m        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	829	926	
==>rence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	829	926	
==>rence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27823	27940	
==>};
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20879	20977	
==>users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19796	19894	
==>users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20879	20977	
==>users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19796	19894	
==>users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2735	2843	
==>b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2735	2843	
==>b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2735	2843	
==>b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1597	1688	
==>ugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1597	1688	
==>ugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> comp <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11031	11133	
==>urns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8435	8537	
==>urns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11031	11133	
==>urns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8435	8537	
==>urns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	29908	30003	
==>y implemented)

Straps->analyze_file() not taint clean, don't know if it can be

Fix that damned <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8110	8226	
==>shift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8303	8419	
==>shift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1497	1607	
==>{
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1497	1607	
==>{
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1497	1607	
==>{
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22716	22818	
==>p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22716	22818	
==>p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22716	22818	
==>p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	631	719	
==>---------------------------------------------------------
## private methods

my method s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	631	719	
==>---------------------------------------------------------
## private methods

my method s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3988	4115	
==>his dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4452	4579	
==>his dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8570	8679	
==>ackup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, ** <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8570	8679	
==>ackup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, ** <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8570	8679	
==>ackup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, ** <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2000	2118	
==>XX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Statu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2000	2118	
==>XX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Statu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18970	19102	
==>=~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15391	15523	
==>=~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	383	472	
==>:Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	383	472	
==>:Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	383	472	
==>:Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Eva <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	365	489	
==>ROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_lis <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	365	489	
==>ROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	370	472	
==>s of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	370	472	
==>s of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	370	472	
==>s of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3341	3447	
==>", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3341	3447	
==>", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3341	3447	
==>", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	955	1057	
==>statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	955	1057	
==>statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro d <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	929	1056	
==>first
        unshift @rv, _recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1964	2055	
==>oto method export_attr_names of List of Relation::AttrName () {...}

proto method export_att <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	686	792	
==>$self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	686	792	
==>$self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	686	792	
==>$self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_2 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9635	9731	
==>TION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9635	9731	
==>TION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13041	13139	
==>aders

This will remove all the header fields used to describe the content of
a message.  All heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13041	13139	
==>aders

This will remove all the header fields used to describe the content of
a message.  All heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10877	10972	
==>ttribute_list;            
}

------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10877	10972	
==>ttribute_list;            
}

------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10877	10972	
==>ttribute_list;            
}

------------------------------------------------------------------ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2056	2178	
==>content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2056	2178	
==>content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4511	4605	
==>C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parame <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4511	4605	
==>C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parame <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6708	6802	
==>C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parame <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	426	632	
==>} ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12323	12423	
==><Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) b <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12323	12423	
==><Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35556	35649	
==>ct (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40106	40199	
==>ct (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	589	698	
==>, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last nex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	589	698	
==>, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last nex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	589	698	
==>, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last nex <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2466	2563	
==>e 
with no arguments to finish the ciphering and clear the cipher's state.  
Remember that cipheri <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2466	2563	
==>e 
with no arguments to finish the ciphering and clear the cipher's state.  
Remember that cipheri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1447	1544	
==>(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1447	1544	
==>(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1447	1544	
==>(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4312	4486	
==>, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # E <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4312	4486	
==>, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15155	15320	
==>b  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15155	15320	
==>b  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15155	15320	
==>b  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13140	13244	
==>l]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13140	13244	
==>l]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13140	13244	
==>l]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24435	24534	
==>returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28987	29086	
==>returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2810	2933	
==>turn;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, bec <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2810	2933	
==>turn;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, bec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1416	1512	
==>ute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1416	1512	
==>ute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1416	1512	
==>ute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	486	590	
==>gs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new ho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	486	590	
==>gs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new ho <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	486	590	
==>gs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new ho <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13031	13127	
==>s are provided as argument they are each decoded
separately and the same number of strings are re <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13031	13127	
==>s are provided as argument they are each decoded
separately and the same number of strings are re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11880	12020	
==>name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12159	12299	
==>name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6348	6456	
==>JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6348	6456	
==>JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6348	6456	
==>JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1967	2080	
==>ub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1967	2080	
==>ub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=he <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6442	6548	
==>nce}->free_vars;
}

package node;
# all AST nodes inherit from this

sub new {
	my $class = shift;
	bless { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1208	1314	
==>ub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3069	3175	
==>ub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=he <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	57	161	
==>r = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1889	1981	
==>p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
su <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3093	3185	
==>(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1889	1981	
==>p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1889	1981	
==>p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1676	1819	
==>ile ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2005	2145	
==>ile ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1618	1758	
==>ile ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2005	2145	
==>ile ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4913	5025	
==>0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACKAGE_ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13786	13904	
==>span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13786	13904	
==>span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1178	1275	
==>say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1178	1275	
==>say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1178	1275	
==>say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_o <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9111	9242	
==>ist    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify prop <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10588	10719	
==>ist    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify prop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1486	1597	
==>eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitesp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1486	1597	
==>eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitesp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1486	1597	
==>eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitesp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2952	3068	
==>d if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2952	3068	
==>d if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2994	3108	
==>erbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ". <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2994	3108	
==>erbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ". <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2994	3108	
==>erbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ". <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5090	5231	
==>ss {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5090	5231	
==>ss {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5090	5231	
==>ss {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7228	7326	
==>ata about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6982	7076	
==>ata about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9111	9223	
==>header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4143	4250	
==>esc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4201	4308	
==>esc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1245	1347	
==>header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1245	1347	
==>header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10408	10585	
==>nt "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10408	10585	
==>nt "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10408	10585	
==>nt "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_inf <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2146	2254	
==>ernal {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' fo <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2146	2254	
==>ernal {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' fo <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4537	4643	
==>s necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/b <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4929	5035	
==>s necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/b <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5440	5546	
==>s necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	339	432	
==>ecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated o <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22743	22829	
==>[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
charset_member(_,C,[class_neg( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3287	3412	
==>.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3287	3412	
==>.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.le <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3287	3412	
==>.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.le <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4303	4416	
==>&code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4361	4474	
==>&code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8665	8789	
==>ck}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pug <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8665	8789	
==>ck}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pug <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8929	9045	
==>ck}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pug <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8929	9045	
==>ck}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pug <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2506	2614	
==>$oper->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ahead' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2028	2124	
==>than_or_equal_to($params->length) == $bit::TRUE)
        || confess "too many arguments passed to <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25048	25140	
==>is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<ex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23812	23904	
==>is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<ex <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25048	25140	
==>is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<ex <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23812	23904	
==>is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1244	1342	
==>PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1244	1342	
==>PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1244	1342	
==>PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17877	17974	
==>more than one DBMS object at a time, and they are
essentially all isolated from each other, even i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17877	17974	
==>more than one DBMS object at a time, and they are
essentially all isolated from each other, even i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	622	728	
==>n $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6203	6309	
==>int Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	622	728	
==>n $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	622	728	
==>n $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6203	6309	
==>int Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>' <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	324	440	
==>a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <sub <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	324	440	
==>a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9723	9825	
==>lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9723	9825	
==>lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9723	9825	
==>lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12193	12290	
==>, [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specifie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12193	12290	
==>, [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specifie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8418	8509	
==>1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8418	8509	
==>1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8418	8509	
==>1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5183	5311	
==>p]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5183	5311	
==>p]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5183	5311	
==>p]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3403	3506	
==>osetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3403	3506	
==>osetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24691	24786	
==>tem C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29243	29338	
==>tem C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40020	40134	
==>s;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40020	40134	
==>s;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40020	40134	
==>s;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1779	1881	
==>een traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 1 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1779	1881	
==>een traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3204	3308	
==>|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3204	3308	
==>|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3204	3308	
==>|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22941	23033	
==>g.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22941	23033	
==>g.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRONM <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4399	4518	
==>T looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4399	4518	
==>T looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	305	419	
==>t,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %op <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10207	10306	
==>Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10207	10306	
==>Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10482	10592	
==>] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10640	10750	
==>] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13038	13146	
==>opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13038	13146	
==>opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13038	13146	
==>opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12859	12983	
==>type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12859	12983	
==>type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	333	451	
==>r = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	333	451	
==>r = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	333	451	
==>r = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6296	6394	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5426	5524	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6296	6394	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5426	5524	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8800	8896	
==>$uint < $A.property_value{'length'};
    $A.property_value{'length'} = $uint + 1; #XXX dont forge <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4581	4724	
==>is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4581	4724	
==>is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3865	3965	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3865	3965	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3865	3965	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1105	1207	
==>se} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1105	1207	
==>se} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1105	1207	
==>se} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4043	4302	
==>returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=enc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4043	4302	
==>returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=enc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3964	4078	
==>ny
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # A <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3964	4078	
==>ny
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # A <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8752	8855	
==>igit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleString <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12018	12138	
==>rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12018	12138	
==>rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2803	2897	
==>::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2803	2897	
==>::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eigen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2803	2897	
==>::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eigen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29524	29656	
==>) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29524	29656	
==>) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29524	29656	
==>) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24896	24989	
==>loor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other compo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24896	24989	
==>loor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other compo <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8407	8503	
==>')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<end <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4880	4976	
==>e, incorrect. There is *no* attention
# paid to the associativity of the original operator and au <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8407	8503	
==>')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<end <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4880	4976	
==>e, incorrect. There is *no* attention
# paid to the associativity of the original operator and au <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4880	4976	
==>e, incorrect. There is *no* attention
# paid to the associativity of the original operator and au <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13418	13541	
==>:Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13418	13541	
==>:Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3115	3204	
==>pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3115	3204	
==>pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3115	3204	
==>pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludep <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40619	40720	
==>ITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means requ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40619	40720	
==>ITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means requ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3730	3826	
==>f $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3730	3826	
==>f $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3730	3826	
==>f $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	730	841	
==>ate {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in P <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	730	841	
==>ate {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	682	775	
==>S->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	682	775	
==>S->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	682	775	
==>S->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9085	9197	
==>ls()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9085	9197	
==>ls()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1253	1349	
==>od postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1253	1349	
==>od postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1253	1349	
==>od postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a has <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1809	1934	
==>urns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1809	1934	
==>urns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19484	19608	
==>ep ( Num $for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conver <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23519	23608	
==>e Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L< <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23519	23608	
==>e Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L< <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2836	2934	
==>ugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistr <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2993	3091	
==>ugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistr <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2836	2934	
==>ugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistr <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2993	3091	
==>ugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistr <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5102	5190	
==>-----------------------------------------------
## now begin creating the metamodel, star <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2079	2195	
==>s>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionApp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2079	2195	
==>s>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionApp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1509	1602	
==>%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1509	1602	
==>%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1509	1602	
==>%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	565	679	
==>sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	565	679	
==>sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	565	679	
==>sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12280	12379	
==>on that takes an object (or a reference
to an array of them) and does something to them (and their c <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	166	264	
==>=pod

=head1 NAME

Blondie::Prelude::Strings - String related builtins

=head1 SYNOPSIS

    use Bl <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2119	2232	
==>meSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5113	5217	
==>tem);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5113	5217	
==>tem);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5113	5217	
==>tem);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	40	139	
==>Core::Closure;

package method;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'bl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	331	580	
==>lues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	331	580	
==>lues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	941	1043	
==>s two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	941	1043	
==>s two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	941	1043	
==>s two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13958	14072	
==>MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13958	14072	
==>MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13958	14072	
==>MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5914	6033	
==>my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5914	6033	
==>my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5914	6033	
==>my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27159	27252	
==>em C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31711	31804	
==>em C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relatio <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7755	7866	
==>e the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7755	7866	
==>e the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4056	4166	
==>"S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4056	4166	
==>"S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4056	4166	
==>"S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $unde <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13934	14048	
==>ice alias.

sub DIE {
    print STDERR "# @_\n";
    exit 1;
}

# A somewhat safer version of the sometimes wrong $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10363	10466	
==>= $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10363	10466	
==>= $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parr <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	711	806	
==>der::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file co <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	711	806	
==>der::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file co <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	493	632	
==>n> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	493	632	
==>n> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21806	21897	
==>split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21806	21897	
==>split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21806	21897	
==>split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12637	12884	
==>:KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12637	12884	
==>:KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3334	3453	
==>files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unsl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3334	3453	
==>files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unsl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3334	3453	
==>files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unsl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9308	9437	
==>nd =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9308	9437	
==>nd =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9308	9437	
==>nd =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	552	659	
==>kages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4030	4137	
==>kages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5136	5261	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5337	5458	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5337	5458	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22534	22633	
==>9, 2004

=over 4

=item First Release

Documentation not complete, etc.

=back

=head1 CAVEATS

=ove <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16241	16336	
==>else) = { env($$) }

cond: generic_in($.if) = { generic_in($$) }
cond: generic_in($.then) = { ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8541	8715	
==>= $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8541	8715	
==>= $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8541	8715	
==>= $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3041	3154	
==>{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does not
    # rec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2873	2978	
==>$S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22349	22462	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22628	22741	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40957	41059	
==>$this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40957	41059	
==>$this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exte <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40957	41059	
==>$this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2007	2157	
==>};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1783	1925	
==>};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8368	8510	
==>};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1783	1925	
==>};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8368	8510	
==>};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8765	8877	
==>ncat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8958	9070	
==>ncat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1346	1432	
==>a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1346	1432	
==>a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1346	1432	
==>a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5481	5579	
==>_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5481	5579	
==>_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5481	5579	
==>_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8645	8738	
==>for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8645	8738	
==>for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3903	4027	
==>captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 say <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3915	4039	
==>captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 say <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3277	3365	
==>S.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3277	3365	
==>S.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3277	3365	
==>S.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3667	3783	
==>elf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3667	3783	
==>elf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3667	3783	
==>elf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefine <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4683	4774	
==>ructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOT <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4683	4774	
==>ructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1006	1121	
==>value { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1211	1326	
==>value { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1272	1387	
==>value { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'i <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17147	17255	
==>,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17304	17412	
==>,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4112	4229	
==>> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4112	4229	
==>> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with e <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4316	4415	
==>es) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolut <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4316	4415	
==>es) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolut <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1039	1130	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1039	1130	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1039	1130	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	969	1128	
==>w($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	969	1128	
==>w($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12785	12876	
==>ass->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12785	12876	
==>ass->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12785	12876	
==>ass->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16094	16194	
==>ULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16094	16194	
==>ULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16094	16194	
==>ULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15059	15158	
==>ric);>

=back

All these routines modify the string passed as the first argument, if
called in a voi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15059	15158	
==>ric);>

=back

All these routines modify the string passed as the first argument, if
called in a voi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8310	8404	
==>fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the spe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8310	8404	
==>fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the spe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	432	567	
==>turn '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    metho <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	432	567	
==>turn '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17440	17538	
==>x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17440	17538	
==>x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17440	17538	
==>x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6541	6658	
==>rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6541	6658	
==>rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6541	6658	
==>rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36224	36311	
==>nd Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','My <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36224	36311	
==>nd Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','My <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23979	24153	
==>s( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23979	24153	
==>s( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23979	24153	
==>s( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->n <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1713	1827	
==>t:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( $matchObj <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25195	25292	
==>>stringify, "∀α. ∀β. (α × β)", "pretty print a x b");
}
{
	my $type = type::operator::arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	120	250	
==>ift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	120	250	
==>ift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	120	250	
==>ift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7140	7256	
==>turn
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7128	7244	
==>turn
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $p <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4983	5107	
==>"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(9 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4983	5107	
==>"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(9 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2089	2182	
==>i = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2089	2182	
==>i = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2089	2182	
==>i = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cf <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	194	302	
==>onfess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22157	22254	
==>thods on those objects.  All of
their attributes are private, so you must use accessor methods.  R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22157	22254	
==>thods on those objects.  All of
their attributes are private, so you must use accessor methods.  R <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9430	9526	
==>thods on those objects.  All of
their attributes are private, so you must use accessor methods.
R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9430	9526	
==>thods on those objects.  All of
their attributes are private, so you must use accessor methods.
R <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8125	8259	
==>ee(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8125	8259	
==>ee(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1080	1176	
==>Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1080	1176	
==>Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1080	1176	
==>Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1346	1452	
==>s_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1346	1452	
==>s_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1346	1452	
==>s_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) su <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1267	1357	
==>continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> obj <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1267	1357	
==>continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17680	17773	
==>B infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17680	17773	
==>B infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17680	17773	
==>B infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1975	2103	
==>" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2192	2320	
==>" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	868	971	
==>t a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	868	971	
==>t a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	868	971	
==>t a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied( <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	398	518	
==>directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unl <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	398	518	
==>directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10244	10357	
==>entical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13721	13834	
==>entical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13002	13115	
==>entical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11278	11378	
==>,
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11278	11378	
==>,
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11278	11378	
==>,
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9260	9359	
==>_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9260	9359	
==>_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect( <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2420	2550	
==>$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4008	4138	
==>$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9531	9649	
==>{
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9531	9649	
==>{
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9531	9649	
==>{
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2356	2560	
==>tch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2356	2560	
==>tch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2341	2443	
==>x_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2341	2443	
==>x_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2341	2443	
==>x_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10052	10149	
==>:PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Param <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10052	10149	
==>:PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Param <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10052	10149	
==>:PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Param <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9440	9533	
==>ad2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9440	9533	
==>ad2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$s <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2048	2191	
==>well
        my $archive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	308	416	
==>nt "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	308	416	
==>nt "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18875	18974	
==>eople who would be writing the text
would have to know how to edit Perl files, this shouldn't be a p <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18875	18974	
==>eople who would be writing the text
would have to know how to edit Perl files, this shouldn't be a p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2269	2417	
==>unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specif <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2269	2417	
==>unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4462	4574	
==>ad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4462	4574	
==>ad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5052	5164	
==>ad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base ' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9450	9547	
==>et contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $ob <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9450	9547	
==>et contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	340	436	
==>won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	340	436	
==>won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	340	436	
==>won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inline <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11568	11719	
==>t 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT! <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7850	8001	
==>t 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8684	8835	
==>t 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT! <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6563	6697	
==>rray.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5067	5201	
==>rray.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8094	8213	
==>tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8094	8213	
==>tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8094	8213	
==>tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16698	16808	
==>pe eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; ver <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16698	16808	
==>pe eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; ver <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3900	4083	
==>ND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        ret <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3900	4083	
==>ND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6792	6892	
==>B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6792	6892	
==>B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8989	9089	
==>B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	82	326	
==>on't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constan <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	82	326	
==>on't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constan <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	760	885	
==>m->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	742	864	
==>m->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writabl <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	742	864	
==>m->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writabl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1934	2077	
==>h: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1714	1848	
==>h: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1714	1848	
==>h: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return s <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1406	1511	
==>();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1327	1427	
==>();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defin <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5175	5278	
==>as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5175	5278	
==>as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ci <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31300	31395	
==>ator; that subset is those for which the the
Bool-returning anonymous function in the argument C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35850	35945	
==>ator; that subset is those for which the the
Bool-returning anonymous function in the argument C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35068	35163	
==>ator; that subset is those for which the the
Bool-returning anonymous function in the argument C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12645	12823	
==>->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12639	12817	
==>->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8967	9071	
==>$xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8967	9071	
==>$xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8967	9071	
==>$xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {. <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1085	1187	
==>ceholder to make a DAG out of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::in <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4551	4649	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3678	3776	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4551	4649	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3678	3776	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4895	4998	
==>we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4895	4998	
==>we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1681	1782	
==>on (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1681	1782	
==>on (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1681	1782	
==>on (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2978	3092	
==>n "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<varia <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3827	3941	
==>n "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<varia <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26442	26539	
==>re the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->object(TYPE => A <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	789	876	
==>ead1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example fo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	789	876	
==>ead1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example fo <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	111	205	
==>ementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2 <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	111	205	
==>ementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10672	10812	
==>aram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10672	10812	
==>aram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10672	10812	
==>aram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2910	3014	
==>c, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2968	3072	
==>c, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38898	38995	
==>e is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43712	43809	
==>e is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14209	14298	
==>ibute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14209	14298	
==>ibute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14209	14298	
==>ibute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6241	6412	
==>bute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6241	6412	
==>bute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6241	6412	
==>bute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no c <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8127	8225	
==>ple, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8127	8225	
==>ple, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0 <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6783	6898	
==>,
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramNa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6783	6898	
==>,
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramNa <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3682	3797	
==>,
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramNa <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	2413	2523	
==>9:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub eval <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	286	388	
==>ement. Due to regexp's limits, it is only
# expected to serve as a tool to somewhat speed up
# the rewr <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	14543	14703	
==>s != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delete @f{@dir_files};
                my @f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4742	4882	
==>s : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $val <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4730	4870	
==>s : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $val <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1142	1259	
==>and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4620	4737	
==>and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3532	3649	
==>and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3174	3274	
==>PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3174	3274	
==>PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3174	3274	
==>PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0 <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1591	1709	
==>command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->ca <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1502	1602	
==>command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11497	11590	
==>::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11497	11590	
==>::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11497	11590	
==>::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f) <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	766	866	
==>turns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQU <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	766	866	
==>turns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQU <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6339	6436	
==>l($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event:: <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6339	6436	
==>l($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2377	2463	
==>{ ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2377	2463	
==>{ ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2377	2463	
==>{ ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13074	13193	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21124	21243	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13353	13472	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21403	21522	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::o <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	105	201	
==>::Core::Bit;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warning <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4593	4695	
==>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4593	4695	
==>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4593	4695	
==>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSub <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21387	21480	
==>Every Relation attribute has a name that is distinct from the other
attributes, though several <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25939	26032	
==>Every Relation attribute has a name that is distinct from the other
attributes, though several <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22439	22535	
==>invoked on the
same object with the same arguments; they do not interact with the outside
environ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26991	27087	
==>invoked on the
same object with the same arguments; they do not interact with the outside
environ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25714	25810	
==>invoked on the
same object with the same arguments; they do not interact with the outside
environ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16257	16374	
==>d_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12678	12795	
==>d_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3289	3396	
==>ub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3289	3396	
==>ub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3289	3396	
==>ub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $ <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	958	1061	
==>turn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &s <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	958	1061	
==>turn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1230	1328	
==>t add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1230	1328	
==>t add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1230	1328	
==>t add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(I <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7094	7190	
==>O) This module only supports HTTP as the protocol.

=item (TODO) This module does not support pro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7094	7190	
==>O) This module only supports HTTP as the protocol.

=item (TODO) This module does not support pro <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6564	6660	
==>x->file($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub _in <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	730	863	
==>pe-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=c <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	730	863	
==>pe-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1921	2013	
==>rl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1921	2013	
==>rl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1921	2013	
==>rl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20224	20316	
==>ic

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=ba <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5291	5383	
==>ing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retur <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5291	5383	
==>ing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20224	20316	
==>ic

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7488	7580	
==>ing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27693	27845	
==>" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27972	28124	
==>" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3066	3173	
==>ackage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3066	3173	
==>ackage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3066	3173	
==>ackage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8757	8923	
==>$$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12662	12808	
==>$$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12662	12808	
==>$$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool = <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1588	1706	
==>be_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1499	1599	
==>be_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2013	2133	
==>->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2013	2133	
==>->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2013	2133	
==>->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11350	11447	
==>re "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Ve <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11350	11447	
==>re "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Ve <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8036	8152	
==>d basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8036	8152	
==>d basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7494	7598	
==>e {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7494	7598	
==>e {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7494	7598	
==>e {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1598	1706	
==>uld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me reph <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1598	1706	
==>uld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me reph <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1598	1706	
==>uld create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me reph <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3409	3506	
==>e time zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= CO <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3409	3506	
==>e time zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= CO <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6494	6680	
==>atch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6494	6680	
==>atch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4374	4479	
==>From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<| <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4374	4479	
==>From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<| <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4374	4479	
==>From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<| <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38857	38960	
==>urn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38857	38960	
==>urn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38857	38960	
==>urn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23496	23590	
==>rivial
external dependencies (it is very simple).

There are other differences.  Where other so <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23496	23590	
==>rivial
external dependencies (it is very simple).

There are other differences.  Where other so <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26090	26256	
==>ams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->get <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10748	10913	
==>ams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38720	38885	
==>ams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39247	39412	
==>ams->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8464	8566	
==>$s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\"" <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6203	6343	
==>array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $si <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4705	4845	
==>array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5881	6004	
==>@_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5881	6004	
==>@_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5881	6004	
==>@_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11455	11600	
==>c marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc termin <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11455	11600	
==>c marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc termin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4348	4453	
==>53> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4348	4453	
==>53> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless de <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	21228	21325	
==>y $txt, $canon) = _canonfailed($test->{max},$test->{skipped},@{$test->{failed}});
            $per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3321	3433	
==>know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3321	3433	
==>know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3321	3433	
==>know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $su <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2907	3011	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	171	275	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	315	421	
==>, 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	315	421	
==>, 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	315	421	
==>, 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
u <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11763	11858	
==>qual( $recurrence )`

Returns true if the closures that define the recurrences are exactly the s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11763	11858	
==>qual( $recurrence )`

Returns true if the closures that define the recurrences are exactly the s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1192	1296	
==>s: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libra <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1192	1296	
==>s: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libra <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1192	1296	
==>s: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libra <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23211	23303	
==>ld
produce ambiguous results or associations.  Or alternately, the other
packages require you <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23211	23303	
==>ld
produce ambiguous results or associations.  Or alternately, the other
packages require you <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	360	473	
==>t++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	360	473	
==>t++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	360	473	
==>t++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14557	14647	
==>ntities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, ex <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14557	14647	
==>ntities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16260	16478	
==>ems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16260	16478	
==>ems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16260	16478	
==>ems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1871	1962	
==>Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1960	2051	
==>Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1002	1106	
==>' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1002	1106	
==>' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1002	1106	
==>' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1460	1556	
==>ese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxx <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1460	1556	
==>ese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxx <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9345	9441	
==>nce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12822	12918	
==>nce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12076	12172	
==>nce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidi <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13156	13250	
==>ontext the arguments are decoded in-place.

This routine is exported by default.

=item _decode <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13156	13250	
==>ontext the arguments are decoded in-place.

This routine is exported by default.

=item _decode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	297	420	
==>>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	297	420	
==>>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	297	420	
==>>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10373	10472	
==>ethod clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10373	10472	
==>ethod clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6728	6840	
==>on () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?PO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6728	6840	
==>on () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?PO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6728	6840	
==>on () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?PO <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4692	4787	
==>hertext, but is not necessarily the ciphertext version of the data given.
The data may be either <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4692	4787	
==>hertext, but is not necessarily the ciphertext version of the data given.
The data may be either <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4355	4478	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4355	4478	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4355	4478	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5723	5833	
==>ntact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5723	5833	
==>ntact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9173	9291	
==>t()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13024	13139	
==>t()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13024	13139	
==>t()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19048	19143	
==>sophy ("a predicate ranging
over more than one argument"), which is also the basis of the relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22698	22793	
==>sophy ("a predicate ranging over more than one
argument"), which is also the basis of the relati <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6382	6489	
==>ot()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6382	6489	
==>ot()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3189	3298	
==>d('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3189	3298	
==>d('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3189	3298	
==>d('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22019	22111	
==>el name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<g <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22019	22111	
==>el name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<g <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	51	179	
==>ape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method para <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	51	179	
==>ape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1091	1179	
==>:doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1091	1179	
==>:doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1091	1179	
==>:doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5843	5994	
==>h( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5843	5994	
==>h( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5843	5994	
==>h( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17193	17289	
==>rm, if lowercase. This is not a Unicode "titlecase" operation, but a
full "uppercase".


=item uc <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	482	576	
==>e code for driving events, and implements a
# "named event" mechanism, for Class::Publisher lik <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1441	1568	
==>t traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1441	1568	
==>t traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6348	6472	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6348	6472	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6348	6472	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str:: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2097	2232	
==>}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # o <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2097	2232	
==>}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	487	581	
==>use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	487	581	
==>use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	487	581	
==>use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4970	5067	
==>om>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4970	5067	
==>om>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited ob <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4970	5067	
==>om>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited ob <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15700	15792	
==>le.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15700	15792	
==>le.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2801	2888	
==>l3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_} <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6253	6340	
==>l3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2801	2888	
==>l3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2801	2888	
==>l3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_} <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1364	1443	
==>numbered_scalar_alias>|<array_alias>|<hash_alias>|<external_scalar_alias>|<exter <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10407	10537	
==>all_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10407	10537	
==>all_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5510	5610	
==>ee->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5510	5610	
==>ee->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5510	5610	
==>ee->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6860	6968	
==>x)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6860	6968	
==>x)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6860	6968	
==>x)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pre <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6629	6729	
==>. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. There <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6629	6729	
==>. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. There <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2091	2205	
==>elete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $modul <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2091	2205	
==>elete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $modul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3535	3641	
==>defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3535	3641	
==>defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3535	3641	
==>defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4014	4109	
==>se Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant In <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4014	4109	
==>se Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant In <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4014	4109	
==>se Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant In <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	521	615	
==>ent transformations between PIL node types; out-of-band data is not listed.

sub type_check (*@ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	521	615	
==>ent transformations between PIL node types; out-of-band data is not listed.

sub type_check (*@ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14352	14460	
==>Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware of future <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10908	11006	
==>_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10908	11006	
==>_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10908	11006	
==>_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $me <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	72	153	
==>ite_perl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::Install::Makefi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7009	7105	
==>This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	483	579	
==>0, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die " <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7009	7105	
==>This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This modu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	483	579	
==>0, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	483	579	
==>0, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die " <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	603	756	
==>> -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	603	756	
==>> -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	938	1053	
==>ake the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	938	1053	
==>ake the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	938	1053	
==>ake the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	906	1027	
==>rCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	906	1027	
==>rCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	906	1027	
==>rCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "inf <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3751	3864	
==>als = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $k <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3751	3864	
==>als = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $k <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8875	9008	
==>$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8875	9008	
==>$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6128	6245	
==>d($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6128	6245	
==>d($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6128	6245	
==>d($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8922	9042	
==>stance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8922	9042	
==>stance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8922	9042	
==>stance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {}, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3018	3113	
==>sts as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter nam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3018	3113	
==>sts as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14776	14949	
==>->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14776	14949	
==>->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14776	14949	
==>->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1216	1312	
==>ew($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1183	1279	
==>ew($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8618	8811	
==>r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12095	12288	
==>r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11304	11497	
==>r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differen <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11043	11142	
==>e it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11043	11142	
==>e it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	457	609	
==>F!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	457	609	
==>F!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3170	3289	
==>g = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3170	3289	
==>g = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3170	3289	
==>g = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1305	1409	
==>ne('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1305	1409	
==>ne('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1305	1409	
==>ne('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spli <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2881	2983	
==>oes Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    m <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2881	2983	
==>oes Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    m <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1522	1639	
==>+;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1522	1639	
==>+;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl:: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7655	7758	
==>ts ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_metho <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3152	3244	
==>t.complement_next, $set.complement_previous ),
        complement_previous => $self._get_inte <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3152	3244	
==>t.complement_next, $set.complement_previous ),
        complement_previous => $self._get_inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16479	16598	
==>t class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16479	16598	
==>t class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16479	16598	
==>t class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::C <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11621	11713	
==>s
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numeri <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11621	11713	
==>s
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numeri <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1420	1569	
==>te_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Fileslist                         or die $! <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1920	2035	
==>>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1920	2035	
==>>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3090	3190	
==>s = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version? <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3090	3190	
==>s = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1688	1821	
==>e;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1688	1821	
==>e;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1688	1821	
==>e;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5330	5446	
==>urn ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of t <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5330	5446	
==>urn ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2747	2851	
==>$lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2747	2851	
==>$lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2747	2851	
==>$lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { P <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1641	1733	
==>me_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1641	1733	
==>me_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1286	1426	
==>) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_ <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1286	1426	
==>) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1756	1870	
==>ct_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1756	1870	
==>ct_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1992	2106	
==>ct_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3279	3397	
==>n 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3279	3397	
==>n 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18136	18236	
==>ne relation and join all sources to it.
    my Relation::Example $r1 .= new( heading => set(), body = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5683	5782	
==>Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5683	5782	
==>Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1646	1748	
==>."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1646	1748	
==>."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1646	1748	
==>."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21425	21524	
==>member(class_pos(word)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C) :- <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13823	13911	
==>, { number_chars(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), oc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12605	12745	
==>,
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12605	12745	
==>,
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12605	12745	
==>,
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns d <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1692	1816	
==>tils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1585	1676	
==>tils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12236	12445	
==>>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12236	12445	
==>>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12236	12445	
==>>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4440	4553	
==>t {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4440	4553	
==>t {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3620	3726	
==>n \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3620	3726	
==>n \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9	104	
==>cks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9	104	
==>cks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9	104	
==>cks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2558	2710	
==>@_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2763	2915	
==>@_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3835	3987	
==>@_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7743	7850	
==>e(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7743	7850	
==>e(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_hand <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	226	339	
==>from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zo <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	226	339	
==>from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13678	13771	
==>lass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13678	13771	
==>lass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13678	13771	
==>lass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	437	591	
==>$pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	495	649	
==>if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } el <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	437	591	
==>$pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	495	649	
==>if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	495	649	
==>if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } el <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10561	10717	
==>want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10561	10717	
==>want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $serv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	432	527	
==>.

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	432	527	
==>.

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	432	527	
==>.

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1262	1374	
==>unt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1262	1374	
==>unt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1262	1374	
==>unt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11506	11607	
==>1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3097	3198	
==>1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10384	10482	
==>= Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node< <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10384	10482	
==>= Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2466	2559	
==>lass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2466	2559	
==>lass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2466	2559	
==>lass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPP <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	866	959	
==>development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F< <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	866	959	
==>development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6232	6322	
==>..};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6232	6322	
==>..};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6232	6322	
==>..};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3447	3557	
==>5 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3943	4053	
==>s something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3447	3557	
==>5 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3447	3557	
==>5 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3955	4065	
==>s something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5109	5272	
==>} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2670	2776	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_el <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7764	7870	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_el <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2670	2776	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_el <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7764	7870	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_el <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2497	2748	
==>';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2744	2995	
==>';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11486	11604	
==>this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11486	11604	
==>this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11486	11604	
==>this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	736	841	
==>g);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenE <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	736	841	
==>g);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5156	5255	
==>@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pack <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5156	5255	
==>@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pack <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5156	5255	
==>@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pack <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8977	9119	
==>[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14706	14848	
==>[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8977	9119	
==>[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14700	14842	
==>[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]] <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25573	25666	
==>operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type:: <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	946	1046	
==>ng more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	946	1046	
==>ng more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2160	2239	
==>cumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2160	2239	
==>cumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2160	2239	
==>cumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3790	3982	
==>et: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3790	3982	
==>et: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12575	12690	
==>$_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12575	12690	
==>$_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12575	12690	
==>$_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14288	14468	
==>et->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14288	14468	
==>et->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14288	14468	
==>et->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2635	2734	
==>returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2635	2734	
==>returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4751	4919	
==>& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4751	4919	
==>& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4751	4919	
==>& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20548	20648	
==>ow you to force a
specific spelling.  For example if you really want a header field name
to show up a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20548	20648	
==>ow you to force a
specific spelling.  For example if you really want a header field name
to show up a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6937	7090	
==>);
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6937	7090	
==>);
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6937	7090	
==>);
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$val <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5763	5901	
==>er = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set:: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5763	5901	
==>er = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14708	14827	
==>Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14708	14827	
==>Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14708	14827	
==>Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	761	856	
==>orization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Locat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	761	856	
==>orization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Locat <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3445	3558	
==>cute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3445	3558	
==>cute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3534	3633	
==>meday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3534	3633	
==>meday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3614	3713	
==>meday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1165	1265	
==>ke Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1165	1265	
==>ke Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1165	1265	
==>ke Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "s <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1444	1540	
==>h eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< inf <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1444	1540	
==>h eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4141	4243	
==>$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4141	4243	
==>$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4141	4243	
==>$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else { <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3892	3988	
==><*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3892	3988	
==><*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11605	11722	
==>my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15082	15199	
==>my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14417	14534	
==>my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14570	14669	
==>>add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8772	8871	
==>>add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1494	1666	
==>{ 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1494	1666	
==>{ 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Juncti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1494	1666	
==>{ 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Juncti <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8164	8300	
==>43),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8164	8300	
==>43),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	949	1085	
==>or all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie int <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40164	40259	
==>Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Loc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40164	40259	
==>Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Loc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1011	1103	
==>t-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1011	1103	
==>t-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_head <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28266	28388	
==>::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28545	28667	
==>::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5445	5546	
==>s well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5445	5546	
==>s well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5445	5546	
==>s well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2191	2312	
==>re => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2179	2300	
==>re => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	182	272	
==>rl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	182	272	
==>rl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	182	272	
==>rl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12817	12964	
==>$ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12817	12964	
==>$ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12817	12964	
==>$ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21212	21308	
==>>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21212	21308	
==>>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	210	318	
==>essage was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	210	318	
==>essage was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2012	2108	
==>Model's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2012	2108	
==>Model's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2012	2108	
==>Model's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3083	3192	
==>ldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3083	3192	
==>ldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3083	3192	
==>ldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13399	13500	
==>('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7608	7709	
==>('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	652	809	
==>statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <bef <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	652	809	
==>statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <bef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2381	2520	
==>elf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2381	2520	
==>elf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2381	2520	
==>elf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5153	5257	
==>ace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1260	1364	
==>& $key->isa('type'))
        || confess "Key must be a str type";
    (blessed($value) && $value->isa('ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	656	750	
==>n the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	656	750	
==>n the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	656	750	
==>n the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38440	38562	
==>se {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARR <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38440	38562	
==>se {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARR <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38440	38562	
==>se {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARR <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20930	21026	
==>o
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or progra <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20930	21026	
==>o
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or progra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3000	3200	
==>d' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3000	3200	
==>d' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3000	3200	
==>d' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unbox <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26510	26634	
==>_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26789	26913	
==>_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21436	21578	
==>) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21436	21578	
==>) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21436	21578	
==>) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'S <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	232	336	
==>>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-[" <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	232	336	
==>>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-[" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4654	4754	
==>>add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->forc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5380	5480	
==>>add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->forc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6781	6880	
==>Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6781	6880	
==>Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6781	6880	
==>Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6018	6181	
==>f ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6018	6181	
==>f ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10870	10966	
==>d get_attribute_list;            
}

------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10870	10966	
==>d get_attribute_list;            
}

------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10870	10966	
==>d get_attribute_list;            
}

------------------------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	759	865	
==>sed for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1130	1230	
==>sed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	729	829	
==>sed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1130	1230	
==>sed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - o <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2552	2637	
==>ux
my $prolog = <<'END';
%============================================================ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9019	9135	
==>my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9212	9328	
==>my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	852	965	
==>{ return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	852	965	
==>{ return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	852	965	
==>{ return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return th <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4648	4775	
==>½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338), <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4648	4775	
==>½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2847	2939	
==>:fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2847	2939	
==>:fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2847	2939	
==>:fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11908	12016	
==>*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12331	12439	
==>*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4551	4659	
==>*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4974	5082	
==>*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $nam <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2538	2641	
==>returns Int { die if $.year < 0; $.year % 100 }
method century returns Int { die if $.year < 0; int($.ye <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1333	1442	
==>::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1538	1647	
==>::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1599	1708	
==>::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18866	18972	
==>C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18866	18972	
==>C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<_ <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2600	2726	
==>}),
                '-p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	561	668	
==>0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet) <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	561	668	
==>0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14552	14649	
==>eeds. This module will be the code support for those needs. The
following is a list of future feat <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14610	14707	
==>eeds. This module will be the code support for those needs. The
following is a list of future feat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16314	16451	
==>@return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16314	16451	
==>@return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16314	16451	
==>@return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	208	304	
==>e (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.ne <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	208	304	
==>e (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.ne <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13405	13536	
==>nstant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13399	13530	
==>nstant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8878	8983	
==>ode = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['def <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8878	8983	
==>ode = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['def <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8878	8983	
==>ode = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['def <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4123	4243	
==>mple.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assig <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4123	4243	
==>mple.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assig <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17762	17869	
==>nperl_args, $name);
}

sub can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2025	2120	
==>ialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1949	2040	
==>ialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5887	5988	
==>tr $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die L <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5887	5988	
==>tr $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die L <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	337	434	
==>e) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	337	434	
==>e) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	337	434	
==>e) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inli <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7516	7763	
==>al "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7980	8227	
==>al "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1077	1174	
==>x:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1077	1174	
==>x:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1077	1174	
==>x:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shou <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14838	14935	
==>F4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
expo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	0	97	
==>sub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14838	14935	
==>F4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
expo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	0	97	
==>sub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	0	97	
==>sub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39016	39153	
==>art => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39016	39153	
==>art => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39016	39153	
==>art => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $re <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2428	2535	
==>art;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns L <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2428	2535	
==>art;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns L <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18831	18950	
==>$rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33043	33133	
==>source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symme <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37593	37683	
==>source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symme <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36937	37027	
==>source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	494	593	
==>args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	494	593	
==>args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	494	593	
==>args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$na <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4123	4206	
==>("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command ( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4123	4206	
==>("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	374	477	
==>qui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	374	477	
==>qui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	374	477	
==>qui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$ar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20213	20310	
==>imple as adding a language file to the program package.  No
recompilation necessary.  This is some <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20213	20310	
==>imple as adding a language file to the program package.  No
recompilation necessary.  This is some <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24910	25034	
==>n { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25189	25313	
==>n { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2035	2138	
==>components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2035	2138	
==>components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2035	2138	
==>components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map { <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5344	5443	
==>{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5344	5443	
==>{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1219	1314	
==>_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1219	1314	
==>_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1219	1314	
==>_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEn <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	80	199	
==>ict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \& <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	122	241	
==>ict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	80	199	
==>ict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	122	241	
==>ict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \& <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16217	16313	
==>{ env($$) }
cond: env($.else) = { env($$) }

cond: generic_in($.if) = { generic_in($$) }
cond: ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7304	7409	
==>ined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7304	7409	
==>ined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7304	7409	
==>ined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TC <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12947	13038	
==>ribes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Local <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12947	13038	
==>ribes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Local <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2421	2527	
==>or    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2421	2527	
==>or    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(: <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2558	2772	
==>x:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readlin <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2558	2772	
==>x:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2572	2662	
==>PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2572	2662	
==>PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2572	2662	
==>PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6138	6239	
==>n of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6138	6239	
==>n of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6138	6239	
==>n of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29973	30068	
==>they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34525	34620	
==>they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4444	4547	
==>. $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4444	4547	
==>. $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4444	4547	
==>. $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13001	13096	
==>t value.
The unit specifier is also used internally when joining two spans, and when getting the <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13001	13096	
==>t value.
The unit specifier is also used internally when joining two spans, and when getting the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8647	8830	
==>);
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8647	8830	
==>);
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8647	8830	
==>);
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	175	336	
==>Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Builddir       $Bindir     $Data       $Contr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10626	10722	
==>params,";
    $code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1006	1115	
==>CLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1006	1115	
==>CLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1006	1115	
==>CLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	14	108	
==>ass Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	14	108	
==>ass Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4909	5017	
==>, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4909	5017	
==>, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4909	5017	
==>, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6242	6343	
==>l. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6242	6343	
==>l. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13509	13660	
==>y whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13509	13660	
==>y whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13509	13660	
==>y whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	816	944	
==>',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	816	944	
==>',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authen <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6766	6879	
==>closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6766	6879	
==>closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1991	2125	
==>ew( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extrac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2426	2560	
==>ew( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extrac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2863	2997	
==>ew( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extrac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19098	19210	
==>.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first co <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19098	19210	
==>.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first co <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1026	1118	
==>-oriented interfaces.  The 
functional and object-oriented interfaces both follow the same ba <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1026	1118	
==>-oriented interfaces.  The 
functional and object-oriented interfaces both follow the same ba <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6753	6912	
==>) eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6753	6912	
==>) eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3415	3517	
==>>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3415	3517	
==>>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3415	3517	
==>>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$se <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3779	3875	
==>ring )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3779	3875	
==>ring )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35626	35719	
==>ry version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This mul <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40176	40269	
==>ry version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This mul <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10179	10319	
==>ding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6520	6660	
==>ding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7369	7509	
==>ding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2461	2561	
==>lar::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30929	31027	
==>y, if you want to add a new POSIX character class, its handler
must start with "POSIX_".

=item $pa <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14618	14714	
==>llowing is a list of future features planned for this module.

- better error handling for cmp_ok <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14676	14772	
==>llowing is a list of future features planned for this module.

- better error handling for cmp_ok <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3208	3303	
==>intf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3208	3303	
==>intf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3208	3303	
==>intf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	107	206	
==>infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`m <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	107	206	
==>infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2151	2243	
==>method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2151	2243	
==>method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2151	2243	
==>method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8138	8349	
==>d ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8138	8349	
==>d ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8138	8349	
==>d ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 } <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11554	11654	
==>one for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO. <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11554	11654	
==>one for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13568	13716	
==>h(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13568	13716	
==>h(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13568	13716	
==>h(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2453	2601	
==>h(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1096	1213	
==>:emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7381	7508	
==>def : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7381	7508	
==>def : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7381	7508	
==>def : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $js <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1749	1849	
==>tracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1809	1909	
==>tracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	697	805	
==>d > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	697	805	
==>d > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2775	2866	
==>$self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitesp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2775	2866	
==>$self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitesp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2775	2866	
==>$self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitesp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	698	831	
==>l_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	698	831	
==>l_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	698	831	
==>l_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yam <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3154	3268	
==>deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depe <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3618	3732	
==>deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12737	12864	
==>we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12737	12864	
==>we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12737	12864	
==>we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispa <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11571	11673	
==>sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \& <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11571	11673	
==>sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \& <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16088	16192	
==>e resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16088	16192	
==>e resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34789	34888	
==>_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34789	34888	
==>_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34789	34888	
==>_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n" <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4118	4219	
==>::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Pe <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4118	4219	
==>::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Pe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8735	8847	
==>);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set op <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8735	8847	
==>);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3490	3601	
==>$indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3490	3601	
==>$indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3490	3601	
==>$indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4996	5106	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4996	5106	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4996	5106	
==>[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	680	780	
==><title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functio <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	680	780	
==><title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functio <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3660	3787	
==>ler; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "r <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3718	3845	
==>ler; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1900	2006	
==>..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1900	2006	
==>..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1900	2006	
==>..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12568	12690	
==>it  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12568	12690	
==>it  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12568	12690	
==>it  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLAS <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	306	405	
==>dules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Find <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	318	417	
==>dules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Find <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19915	20088	
==>".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19915	20088	
==>".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19915	20088	
==>".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #retu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12898	12992	
==>grams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It al <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12898	12992	
==>grams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It al <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23729	23842	
==>heck_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4389	4495	
==>> "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4389	4495	
==>> "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4389	4495	
==>> "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUB <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28932	29029	
==>heck_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13659	13794	
==>a( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13659	13794	
==>a( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13659	13794	
==>a( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVE <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	210	311	
==>sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	210	311	
==>sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1797	1900	
==>ailable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fg <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1797	1900	
==>ailable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	94	193	
==>is creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	94	193	
==>is creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	94	193	
==>is creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3420	3573	
==>v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3420	3573	
==>v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	186	288	
==>odel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Dat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	186	288	
==>odel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Dat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	186	288	
==>odel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4294	4424	
==>lass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4294	4424	
==>lass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4294	4424	
==>lass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1526	1622	
==>al interface is good enough for many purposes.  
Although the interface is said to be procedural, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1526	1622	
==>al interface is good enough for many purposes.  
Although the interface is said to be procedural, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8039	8172	
==>::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8039	8172	
==>::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8039	8172	
==>::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $meth <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5092	5208	
==>ibute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8569	8685	
==>ibute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        headi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33580	33802	
==>w('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2205	2339	
==>if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2134	2265	
==>if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6148	6267	
==>urn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return - <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6148	6267	
==>urn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return - <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22052	22160	
==>if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_namelen;
    if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4682	4784	
==>her)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create('WALKCLASS' => closure->new(
        $: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	740	839	
==>ods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	740	839	
==>ods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	740	839	
==>ods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arra <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2807	2905	
==>06, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is f <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2964	3062	
==>06, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is f <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19145	19243	
==>nal
data model proposed by Edgar. F. Codd, upon which anything in the world can
be modelled.

A rel <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2807	2905	
==>06, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is f <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2964	3062	
==>06, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10764	10884	
==>list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10764	10884	
==>list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10764	10884	
==>list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13523	13630	
==>=~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13523	13630	
==>=~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	20	116	
==>s::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	20	116	
==>s::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	20	116	
==>s::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Pe <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12683	12776	
==>aracter entities.  The module provides the following functions:

=over 4

=item decode_entitie <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12683	12776	
==>aracter entities.  The module provides the following functions:

=over 4

=item decode_entitie <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	476	586	
==>ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21326	21422	
==>'s visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

Mor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4855	4950	
==>plementation is, of course, incorrect. There is *no* attention
# paid to the associativity of th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4855	4950	
==>plementation is, of course, incorrect. There is *no* attention
# paid to the associativity of th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4855	4950	
==>plementation is, of course, incorrect. There is *no* attention
# paid to the associativity of th <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5442	5551	
==>t $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5442	5551	
==>t $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.star <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8625	8730	
==>= "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8625	8730	
==>= "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9380	9474	
==>askell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9380	9474	
==>askell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9380	9474	
==>askell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_fr <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3296	3425	
==>"\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps ) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3760	3889	
==>"\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	453	546	
==>postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	453	546	
==>postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	453	546	
==>postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9885	9975	
==>return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9885	9975	
==>return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9885	9975	
==>return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_di <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7576	7665	
==>nts, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1401	1490	
==>nts, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->su <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	328	427	
==>returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	328	427	
==>returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23855	23943	
==>ndef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23855	23943	
==>ndef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23855	23943	
==>ndef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo, <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1332	1441	
==>rectory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1332	1441	
==>rectory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16694	16801	
==>$c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16694	16801	
==>$c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16694	16801	
==>$c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bo <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3692	3790	
==>ect based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Giv <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3692	3790	
==>ect based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Giv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4892	4988	
==>. There is *no* attention
# paid to the associativity of the original operator and auto-metaed ve <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4892	4988	
==>. There is *no* attention
# paid to the associativity of the original operator and auto-metaed ve <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4892	4988	
==>. There is *no* attention
# paid to the associativity of the original operator and auto-metaed ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10178	10332	
==>n =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2227	2361	
==>n =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2227	2361	
==>n =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9461	9557	
==>lled fields, which
may be repeated, and which are printed in a particular order.  The
field names <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9461	9557	
==>lled fields, which
may be repeated, and which are printed in a particular order.  The
field names <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1037	1265	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1037	1265	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	395	497	
==>rncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	395	497	
==>rncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	395	497	
==>rncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6094	6196	
==>ethod restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9571	9673	
==>ethod restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9204	9303	
==>};
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9204	9303	
==>};
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9204	9303	
==>};
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junctio <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14890	15030	
==>hannel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14890	15030	
==>hannel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14381	14470	
==>tribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14381	14470	
==>tribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14381	14470	
==>tribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2302	2412	
==>my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($pat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2302	2412	
==>my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17043	17148	
==>NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17043	17148	
==>NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17043	17148	
==>NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29800	29894	
==>supports having the new attributes having the same names as old attributes
that were wrapped, a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24527	24621	
==>rms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<htt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34352	34446	
==>supports having the new attributes having the same names as old attributes
that were wrapped, a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33516	33610	
==>supports having the new attributes having the same names as old attributes
that were wrapped, a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24527	24621	
==>rms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<htt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1783	1934	
==>_[0], $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11717	11813	
==>2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the ite <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8864	8960	
==>2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the ite <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11717	11813	
==>2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the ite <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8864	8960	
==>2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the ite <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1210	1370	
==>are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                nex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7886	8045	
==>rn $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7886	8045	
==>rn $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21696	21790	
==>tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21696	21790	
==>tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
" <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7422	7590	
==>'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7479	7647	
==>'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5810	5907	
==>on filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Cla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5810	5907	
==>on filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Cla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5810	5907	
==>on filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Cla <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5659	5760	
==>e.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5659	5760	
==>e.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7856	7957	
==>e.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19359	19451	
==>m the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19359	19451	
==>m the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$bot <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1061	1227	
==>old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1061	1227	
==>old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4137	4289	
==>l: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4137	4289	
==>l: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	680	781	
==>ide::PCRE - Perl-compatible regular expressions

=head1 SYNOPSIS

    use re::override-PCRE;

    if ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8570	8712	
==>rammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12479	12618	
==>rammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12479	12618	
==>rammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5625	5749	
==>b new {
	my $class = shift;
	bless {
		instance => undef,
	}, $class;
}

sub instantiate {
	my $self = shift;
	$self->{instan <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	414	525	
==>x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1243	1360	
==>\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { 
        b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1254	1371	
==>\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { 
        b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36029	36127	
==>ion of the invocant and <$other> headings. 
The body of the new relation is the result of first pai <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40579	40676	
==>ion of the invocant and <$other> headings.
The body of the new relation is the result of first pai <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40193	40290	
==>ion of the invocant and <$other> headings.
The body of the new relation is the result of first pai <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7055	7159	
==>an0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7055	7159	
==>an0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a d <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2448	2545	
==>Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unles <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2448	2545	
==>Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2528	2625	
==>Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unles <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8421	8559	
==>thod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8421	8559	
==>thod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8421	8559	
==>thod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6837	6959	
==>tch->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6837	6959	
==>tch->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7593	7714	
==>turns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method p <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7593	7714	
==>turns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3729	3845	
==>e. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3729	3845	
==>e. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3729	3845	
==>e. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5476	5619	
==>e )->stringify();
        
        # append it to the existing content of the index
        push @$index_content, $meta;
        
        ### XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5025	5146	
==>ft @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16061	16182	
==>ft @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17549	17670	
==>ft @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22232	22353	
==>ft @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3599	3703	
==>} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2640	2743	
==>})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7538	7634	
==>o->id, 6, '... $Foo is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the right method retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37060	37157	
==>Types: minmod (C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Re <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8841	8937	
==>hed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3770	3866	
==>hed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8841	8937	
==>hed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3770	3866	
==>hed by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11753	11905	
==>urn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11753	11905	
==>urn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11753	11905	
==>urn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref me <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1137	1243	
==>- substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1137	1243	
==>- substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5146	5287	
==>or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5146	5287	
==>or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5146	5287	
==>or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        b <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3495	3612	
==>e = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return () <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3495	3612	
==>e = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return () <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4123	4313	
==>' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4123	4313	
==>' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4123	4313	
==>' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1487	1602	
==>my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my St <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1487	1602	
==>my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my St <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	78	173	
==>ext }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	78	173	
==>ext }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	78	173	
==>ext }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33222	33348	
==>p list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33222	33348	
==>p list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33222	33348	
==>p list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8064	8158	
==>item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, foll <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8064	8158	
==>item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, foll <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	336	505	
==>{
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	336	505	
==>{
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	204	309	
==>l, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $p <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12759	12852	
==>ative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is a <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12759	12852	
==>ative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10613	10750	
==>$_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11075	11212	
==>$_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10607	10744	
==>$_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11069	11206	
==>$_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	2327	2430	
==>e pass, and the original object they had
	# this lets us assign letters to them

	my @letters = split // <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19008	19123	
==>=> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19008	19123	
==>=> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19008	19123	
==>=> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^.. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2439	2543	
==>xport(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2439	2543	
==>xport(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	444	570	
==>om '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indenta <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7896	8002	
==>}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mult <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7026	7132	
==>}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7896	8002	
==>}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mult <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7026	7132	
==>}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mult <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3489	3606	
==>olved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_d <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3953	4070	
==>olved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2170	2264	
==>(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2170	2264	
==>(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2170	2264	
==>(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»" <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19974	20067	
==>at manually using a set of mappings, or a multi-dimensional object Hash,
or various combinatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24526	24619	
==>at manually using a set of mappings, or a multi-dimensional object Hash,
or various combinatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23078	23171	
==>at manually using a set of mappings, or a multi-dimensional object Hash,
or various combinatio <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	87	173	
==>de_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	87	173	
==>de_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11962	12061	
==>ass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11962	12061	
==>ass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11962	12061	
==>ass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (def <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17490	17582	
==>hose of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::In <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17490	17582	
==>hose of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	302	400	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	302	400	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	302	400	
==>$self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19802	19898	
==>header that use the
"Basic Authentication Scheme".  In array context it will return two
values; t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19802	19898	
==>header that use the
"Basic Authentication Scheme".  In array context it will return two
values; t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3452	3609	
==>(shift)->{'$:name'}
        },
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3150	3275	
==>, "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3150	3275	
==>, "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3150	3275	
==>, "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10", <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1126	1223	
==>hines and not for
humans. It has no syntax, only an abstract syntax tree, and some very simple
ope <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13061	13162	
==>ir numeric value, and a format string for use with sprintf().

  # for when you have a zero-width chun <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31900	31992	
==>elational operator that takes a single
Relation in its C<$other> argument, where <$other> has <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33761	33853	
==>elational operator that takes a single Relation
in its C<$other> argument, where <$other> has <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36450	36542	
==>elational operator that takes a single
Relation in its C<$other> argument, where <$other> has <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38311	38403	
==>elational operator that takes a single Relation
in its C<$other> argument, where <$other> has <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1521	1659	
==>:Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


class <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1521	1659	
==>:Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


class <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2284	2379	
==>(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2284	2379	
==>(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2284	2379	
==>(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4160	4292	
==>1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4160	4292	
==>1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4160	4292	
==>1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scal <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	391	498	
==>atch
# asking the notifications to dispatch themselves

# the code tries to provide reusable code for drivin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22078	22174	
==>head1 SYNOPSIS

    use Relation::Example;

I<This documentation is pending.>

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23072	23277	
==>, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23072	23277	
==>, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23072	23277	
==>, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bin <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22353	22449	
==>ltiple search
directories in your path that packages could be installed in.

Generally, when a pr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22353	22449	
==>ltiple search
directories in your path that packages could be installed in.

Generally, when a pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8480	8608	
==>her."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8480	8608	
==>her."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8480	8608	
==>her."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1553	1676	
==>ds = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1553	1676	
==>ds = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!pa <==
5	/Users/nnunley/pugs/util/build_pugs.pl	4328	4463	
==>*** Found more than one '$basename' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6119	6216	
==>ne, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5249	5346	
==>ne, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6119	6216	
==>ne, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5249	5346	
==>ne, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13574	13724	
==>$self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13574	13724	
==>$self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13574	13724	
==>$self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = A <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3875	3961	
==>ff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3875	3961	
==>ff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10102	10233	
==>TCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value att <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10102	10233	
==>TCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value att <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10102	10233	
==>TCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value att <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	609	735	
==>se {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    } <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	609	735	
==>se {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2376	2500	
==>lass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2376	2500	
==>lass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2376	2500	
==>lass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	201	296	
==>int rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	201	296	
==>int rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7674	7778	
==>rray2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into a <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7674	7778	
==>rray2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1545	1646	
==>rgs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1545	1646	
==>rgs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1545	1646	
==>rgs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    v <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2489	2598	
==>fined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3417	3526	
==>fined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2489	2598	
==>fined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3417	3526	
==>fined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $e <==
5	/Users/nnunley/pugs/util/combine_tests.pl	2539	2644	
==>evisions which were added, not the target though
    #
    pop @revisions;
    $target->{more_revisions} = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10323	10433	
==>alue {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10323	10433	
==>alue {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	21	121	
==>odel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	21	121	
==>odel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	21	121	
==>odel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6143	6253	
==>ringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6143	6253	
==>ringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6143	6253	
==>ringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1406	1508	
==>p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1406	1508	
==>p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1290	1390	
==>,
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1290	1390	
==>,
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1290	1390	
==>,
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < Str <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	95	185	
==>ies);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entit <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	95	185	
==>ies);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entit <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1621	1748	
==>v
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% >> $meta_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2826	2951	
==>ze
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersect <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2826	2951	
==>ze
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersect <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1860	1956	
==>s named
as arguments and checks standard output for the expected strings
in TAP format.

The F<pr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3228	3319	
==>ue.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3228	3319	
==>ue.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@val <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	87	198	
==>.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	87	198	
==>.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	123	228	
==>$self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	123	228	
==>$self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	123	228	
==>$self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = s <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	2383	2519	
==>urn @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6596	6707	
==>ttern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6596	6707	
==>ttern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6596	6707	
==>ttern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10155	10265	
==>ng_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1113	1230	
==>ailed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1113	1230	
==>ailed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1171	1391	
==>,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::cons <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1298	1518	
==>,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1448	1544	
==>DO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decremen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1448	1544	
==>DO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decremen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1448	1544	
==>DO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decremen <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5257	5380	
==>_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5257	5380	
==>_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3404	3517	
==>t(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.cha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3404	3517	
==>t(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.cha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3404	3517	
==>t(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4655	4776	
==>_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4655	4776	
==>_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4655	4776	
==>_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1076	1183	
==>i submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'to <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1076	1183	
==>i submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14440	14610	
==>st yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $lis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14440	14610	
==>st yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $lis <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14440	14610	
==>st yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $lis <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2971	3141	
==>st yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $lis <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4754	4885	
==>>
}
rule Keyword {  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | <' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13094	13203	
==>------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13094	13203	
==>------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13094	13203	
==>------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1559	1657	
==>any purposes.  
Although the interface is said to be procedural, it is invoked via two class 
metho <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1559	1657	
==>any purposes.  
Although the interface is said to be procedural, it is invoked via two class 
metho <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19290	19392	
==>ion>
}
rule ExpressionNoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4722	4854	
==>th_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4722	4854	
==>th_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3596	3704	
==>ef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3596	3704	
==>ef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3596	3704	
==>ef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1000	1149	
==>_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + char <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1000	1149	
==>_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + char <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1000	1149	
==>_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + char <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3853	3966	
==>////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3853	3966	
==>////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9004	9109	
==>match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9197	9302	
==>match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1057	1159	
==>t we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will sti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1057	1159	
==>t we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will sti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1057	1159	
==>t we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will sti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4989	5100	
==>-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4989	5100	
==>-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4989	5100	
==>-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbi <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2403	2496	
==>/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6 <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2403	2496	
==>/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4687	4846	
==>n.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5346	5505	
==>n.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4687	4846	
==>n.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5346	5505	
==>n.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $ <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	769	893	
==>{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort keys %ccset;
}

if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20231	20436	
==>nd cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20231	20436	
==>nd cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20231	20436	
==>nd cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = P <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2628	2737	
==>t]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    d <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2628	2737	
==>t]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6759	6873	
==>ent );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6759	6873	
==>ent );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6759	6873	
==>ent );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	819	914	
==>er API operates at the byte level, not the character level, so different 
character encodings ma <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	819	914	
==>er API operates at the byte level, not the character level, so different 
character encodings ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16769	16865	
==>s module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16769	16865	
==>s module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16769	16865	
==>s module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10355	10445	
==>nt ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11090	11180	
==>nt ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6144	6282	
==>he attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6144	6282	
==>he attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6144	6282	
==>he attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7475	7574	
==>mplate_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7475	7574	
==>mplate_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7283	7414	
==>umper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7295	7426	
==>umper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3854	3968	
==>s ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3854	3968	
==>s ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3854	3968	
==>s ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	520	622	
==>__cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	520	622	
==>__cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	520	622	
==>__cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsna <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8906	9003	
==>w strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8906	9003	
==>w strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of t <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1429	1606	
==>5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $v <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1429	1606	
==>5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2412	2521	
==>ep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100], <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2412	2521	
==>ep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100], <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2412	2521	
==>ep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100], <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7107	7231	
==>"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => ch <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7107	7231	
==>"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3989	4092	
==>l:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   state <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3989	4092	
==>l:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   state <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3989	4092	
==>l:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   state <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1828	1945	
==>o an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1828	1945	
==>o an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1828	1945	
==>o an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
su <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6162	6269	
==>::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!i <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3839	3945	
==>::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7347	7481	
==>method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7347	7481	
==>method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2189	2319	
==>use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subro <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2189	2319	
==>use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subro <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2536	2666	
==>use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subro <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13522	13641	
==>table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13522	13641	
==>table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13522	13641	
==>table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6683	6783	
==>$flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "synt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6695	6795	
==>$flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "synt <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2234	2362	
==>t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    . <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2234	2362	
==>t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3624	3717	
==>.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3624	3717	
==>.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3624	3717	
==>.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6611	6720	
==>lchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6611	6720	
==>lchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6611	6720	
==>lchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	27	124	
==>currence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_ti <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	27	124	
==>currence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_ti <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3393	3570	
==>rt_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (def <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3441	3618	
==>rt_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (def <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3393	3570	
==>rt_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (def <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3441	3618	
==>rt_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (def <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12534	12657	
==>' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18198	18293	
==>y to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18198	18293	
==>y to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4487	4585	
==>ack

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chro <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4487	4585	
==>ack

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4567	4665	
==>ack

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7239	7337	
==>backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order oper <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6993	7087	
==>backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order oper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20320	20463	
==>lue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20320	20463	
==>lue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20320	20463	
==>lue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fro <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21195	21283	
==>the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21195	21283	
==>the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $even <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2104	2257	
==>s the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() firs <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2104	2257	
==>s the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() firs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3546	3645	
==>nd (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3546	3645	
==>nd (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3546	3645	
==>nd (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ <==
5	/Users/nnunley/pugs/util/package-osx.pl	2061	2150	
==>/5.8.6/Class/Rebless.pm
        /usr/local/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/P <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5984	6090	
==>s_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent() <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6177	6283	
==>s_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent() <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5984	6090	
==>s_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent() <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6177	6283	
==>s_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent() <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2085	2174	
==>AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$(INST_ARCHLIB)/ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4215	4330	
==>tement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5064	5179	
==>tement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11835	11929	
==>ances of class all conform to the Role interface/API they are 
interchangable with one another, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11835	11929	
==>ances of class all conform to the Role interface/API they are 
interchangable with one another, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11835	11929	
==>ances of class all conform to the Role interface/API they are 
interchangable with one another, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8514	8641	
==>t;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $coun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8514	8641	
==>t;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $coun <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8514	8641	
==>t;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $coun <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2179	2279	
==>Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2179	2279	
==>Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6425	6555	
==>|| $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interfa <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2773	2868	
==>PYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2930	3025	
==>PYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2773	2868	
==>PYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2930	3025	
==>PYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3752	3937	
==>@matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3637	3816	
==>@matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1385	1479	
==>debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1385	1479	
==>debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1385	1479	
==>debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2222	2348	
==>y $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	wh <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2222	2348	
==>y $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	wh <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2222	2348	
==>y $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	wh <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7246	7342	
==><method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7246	7342	
==><method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns an <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7947	8101	
==>e, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7947	8101	
==>e, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7947	8101	
==>e, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match <==
5	/Users/nnunley/pugs/util/func_refact.pl	965	1091	
==>rint "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%c <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	821	940	
==>->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3698	3842	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3946	4087	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10395	10536	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3946	4087	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10395	10536	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	952	1059	
==>ing to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # altern <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	915	1017	
==>ing to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # altern <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	925	1026	
==>$obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	913	1014	
==>$obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil <==
5	/Users/nnunley/pugs/util/drift.pl	116	213	
==>Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at a <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6206	6337	
==>>new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39625	39712	
==>eports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
in <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24348	24435	
==>eports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39625	39712	
==>eports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24348	24435	
==>eports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more in <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	311	468	
==>parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	311	468	
==>parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4947	5046	
==>f the original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4947	5046	
==>f the original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4947	5046	
==>f the original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  < <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	956	1080	
==>m<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dur <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	698	822	
==>m<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dur <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	956	1080	
==>m<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dur <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	698	822	
==>m<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37109	37199	
==>ect in the I<quant> family

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	585	685	
==>rn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	585	685	
==>rn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	585	685	
==>rn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18268	18363	
==>ed to specify the address (URI) of the document from which the
requested resource address was ob <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18268	18363	
==>ed to specify the address (URI) of the document from which the
requested resource address was ob <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1591	1682	
==>xamples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	889	980	
==>aviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1591	1682	
==>xamples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	889	980	
==>aviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	889	980	
==>aviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4167	4276	
==>ache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2365	2474	
==>up_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variab <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4167	4276	
==>ache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2365	2474	
==>up_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variab <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2365	2474	
==>up_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variab <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	448	557	
==>ng is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	448	557	
==>ng is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3069	3185	
==>',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3069	3185	
==>',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	781	875	
==>l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	781	875	
==>l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	781	875	
==>l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1849	1962	
==>self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) returns Set {
    set(
        set( $se <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34458	34554	
==>ray ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some ex <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34458	34554	
==>ray ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some ex <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7665	7761	
==>pVarName) {
    return "is macrop5 $pVarName" if p6_macrop5($pVarName);
    p6_var_CODE($pVarName <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12483	12567	
==>x_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1682	1774	
==>cipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

En <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1682	1774	
==>cipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

En <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40737	40849	
==>:numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40737	40849	
==>:numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40737	40849	
==>:numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10559	10668	
==>_add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10559	10668	
==>_add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1407	1517	
==>line('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1407	1517	
==>line('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1407	1517	
==>line('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22220	22315	
==>ist.  The analogy is similar to inheriting from multiple packages which
have the same method nam <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22220	22315	
==>ist.  The analogy is similar to inheriting from multiple packages which
have the same method nam <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4861	4984	
==>hildren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4861	4984	
==>hildren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6527	6646	
==>ech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6527	6646	
==>ech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6527	6646	
==>ech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5781	5888	
==>>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("PA <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5781	5888	
==>>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("PA <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6190	6307	
==>.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An ob <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6190	6307	
==>.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An ob <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	259	356	
==>e;

class Perl::Type::Junctive isa Perl::Type;

# junctive types can only be disjunctions and conj <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18685	18778	
==>what the core expects to avoid problems.  While simultaneously
trying to avoid triggering core <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2975	3068	
==>what the core expects to avoid problems.  While simultaneously
trying to avoid triggering core <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3135	3244	
==>r

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('He <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3135	3244	
==>r

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('He <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7698	7792	
==>=> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9626	9720	
==>=> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7686	7780	
==>=> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6540	6654	
==>= $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6540	6654	
==>= $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3467	3564	
==>@{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3467	3564	
==>@{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3467	3564	
==>@{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6948	7134	
==>";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto;
            retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	202	319	
==>)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	202	319	
==>)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39905	39998	
==>ation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any lat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39905	39998	
==>ation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any lat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3066	3221	
==>mp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3066	3221	
==>mp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34046	34141	
==>C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocant <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38596	38691	
==>C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocant <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38057	38152	
==>C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1556	1660	
==>shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1556	1660	
==>shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1556	1660	
==>shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17182	17278	
==>ch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17182	17278	
==>ch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9252	9352	
==>ne',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9252	9352	
==>ne',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9252	9352	
==>ne',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx-> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3935	4032	
==>ted and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher: <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3935	4032	
==>ted and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8894	9040	
==>ate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14623	14769	
==>ate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8894	9040	
==>ate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14617	14763	
==>ate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1516	1635	
==>ced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify laz <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1516	1635	
==>ced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify laz <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1516	1635	
==>ced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify laz <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3531	3629	
==>ar>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3715	3813	
==>ar>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7044	7164	
==>/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT = <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7044	7164	
==>/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1779	1879	
==>.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1779	1879	
==>.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1779	1879	
==>.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13686	13879	
==>ray') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13686	13879	
==>ray') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13686	13879	
==>ray') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12525	12618	
==>s true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12525	12618	
==>s true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C< <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10842	10966	
==>)        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 MET <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10842	10966	
==>)        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 MET <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2474	2576	
==>Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2474	2576	
==>Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2474	2576	
==>Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9928	10087	
==>e'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10207	10366	
==>e'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1056	1173	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1056	1173	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1056	1173	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2774	2872	
==>%msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::Ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2774	2872	
==>%msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::Ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	492	584	
==>class of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	492	584	
==>class of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	492	584	
==>class of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasse <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	459	651	
==>{
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	459	651	
==>{
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2403	2499	
==>(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2403	2499	
==>(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2403	2499	
==>(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$po <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6887	7033	
==>$s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'say';
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	131	229	
==>ng the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	131	229	
==>ng the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24884	24999	
==>apture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25163	25278	
==>apture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37459	37553	
==>mentioned binary join()
operator, and the order of its arguments is not significant to the resu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42008	42102	
==>mentioned binary join()
operator, and the order of its arguments is not significant to the resu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41649	41743	
==>mentioned binary join()
operator, and the order of its arguments is not significant to the resu <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2441	2562	
==>encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octec <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2441	2562	
==>encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octec <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18103	18205	
==>ecase"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .pa <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37276	37370	
==>al parameter
$module_name (a string) and checks whether or not it has already been
loaded, retu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37276	37370	
==>al parameter
$module_name (a string) and checks whether or not it has already been
loaded, retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10383	10566	
==>rt->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10383	10566	
==>rt->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10383	10566	
==>rt->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	530	630	
==>subroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addre <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	530	630	
==>subroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addre <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4490	4603	
==>am]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'Sub <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4490	4603	
==>am]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'Sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	844	939	
==>$x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	844	939	
==>$x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	844	939	
==>$x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2414	2523	
==>pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2414	2523	
==>pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2414	2523	
==>pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2414	2510	
==>aders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2414	2510	
==>aders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11965	12065	
==>x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )`

R <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11965	12065	
==>x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )`

R <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10494	10582	
==>paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NODE MkPos ($posName <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	4623	4760	
==>if ( @tests ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guarante <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	627	731	
==>"STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6145	6249	
==>"STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	627	731	
==>"STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6157	6261	
==>"STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6685	6798	
==>PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6685	6798	
==>PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6685	6798	
==>PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !pe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37717	37810	
==>thod is a generic relational operator that takes a single Relation::Example
in its C<$other> a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38557	38650	
==>thod is a generic relational operator that takes a single Relation::Example
in its C<$other> a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	168	276	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	170	278	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	183	291	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	160	268	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	164	272	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2718	2836	
==>s a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2718	2836	
==>s a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	576	688	
==>th (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	576	688	
==>th (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	576	688	
==>th (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2603	2707	
==>*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2603	2707	
==>*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2603	2707	
==>*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7378	7490	
==>odel::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7378	7490	
==>odel::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1858	1958	
==>slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1858	1958	
==>slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1858	1958	
==>slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..I <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1846	1986	
==>tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1785	1922	
==>tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9214	9328	
==>arn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9214	9328	
==>arn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9214	9328	
==>arn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2984	3105	
==>_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2984	3105	
==>_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2175	2282	
==>, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $f <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2175	2282	
==>, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $f <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20097	20196	
==>iableDeclarationList :words {  # see 12.2
      <VariableDeclaration>
    | <VariableDeclarationList <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8885	9007	
==>r(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8885	9007	
==>r(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9934	10044	
==>s.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9934	10044	
==>s.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9934	10044	
==>s.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10150	10298	
==>mplementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( grep { $_->package ne $in <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	115	234	
==>GIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pa <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	117	236	
==>GIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14816	14911	
==>ch makes
it easy to create and use relational databases in a very reliable,
portable, and effici <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14816	14911	
==>ch makes
it easy to create and use relational databases in a very reliable,
portable, and effici <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3033	3139	
==>eturn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3033	3139	
==>eturn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3033	3139	
==>eturn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	221	323	
==>file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	221	323	
==>file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'R <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	70	197	
==>til::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	70	197	
==>til::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1920	2013	
==>ompile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1920	2013	
==>ompile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1920	2013	
==>ompile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14090	14226	
==>ck) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10263	10399	
==>ck) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11099	11235	
==>ck) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq ' <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	821	915	
==>on whole bytes, XORing elements of a constantly-transforming 
state table with each byte of pla <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	821	915	
==>on whole bytes, XORing elements of a constantly-transforming 
state table with each byte of pla <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	850	973	
==>ait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	850	973	
==>ait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11282	11369	
==>ilder::Test::Base {}
  class Test::Builder::Test::Fail does Test::Builder::Test::Base {} <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1740	1825	
==>ilder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {} <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1740	1825	
==>ilder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9580	9691	
==>ed_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9580	9691	
==>ed_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4483	4573	
==>ce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4483	4573	
==>ce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4483	4573	
==>ce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6657	6793	
==>ting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6657	6793	
==>ting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6657	6793	
==>ting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2820	2937	
==>}
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2820	2937	
==>}
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11950	12100	
==>e( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11950	12100	
==>e( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11950	12100	
==>e( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1336	1450	
==>nternal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1336	1450	
==>nternal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7712	7834	
==>X - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7712	7834	
==>X - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23163	23253	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23163	23253	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23163	23253	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5495	5611	
==>broles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5495	5611	
==>broles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5495	5611	
==>broles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	782	884	
==>ess @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () ret <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	782	884	
==>ess @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10548	10704	
==>d = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10548	10704	
==>d = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10548	10704	
==>d = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->param <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6026	6118	
==>mpile or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5817	5908	
==>mpile or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3983	4114	
==>fier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3971	4102	
==>fier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	372	475	
==>>{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   push( @{$_[0]->{levels}[$_[1]]}, $_[2] ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23549	23683	
==>class($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2745	2876	
==>r => 'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        prec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1546	1649	
==>f $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1546	1649	
==>f $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1546	1649	
==>f $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8129	8262	
==>chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "in <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8129	8262	
==>chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1880	1973	
==>::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1880	1973	
==>::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1880	1973	
==>::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11496	11627	
==>"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11490	11621	
==>"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	401	523	
==>f(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	401	523	
==>f(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	401	523	
==>f(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4635	4770	
==>= shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13060	13195	
==>= shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15671	15806	
==>= shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17159	17294	
==>= shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21842	21977	
==>= shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2450	2570	
==>ntime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2590	2710	
==>ntime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1085	1181	
==>store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1085	1181	
==>store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1085	1181	
==>store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9626	9742	
==>other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13103	13219	
==>other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12375	12491	
==>other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headin <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1838	1941	
==>)`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1838	1941	
==>)`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3943	4040	
==>her API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3943	4040	
==>her API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14169	14256	
==>$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14169	14256	
==>$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14169	14256	
==>$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native-> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	592	698	
==>+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	592	698	
==>+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	486	586	
==>{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	486	586	
==>{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	486	586	
==>{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4214	4397	
==>oc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "%$a ";
                for ( @{ $assoc{$_} } ) {
                    next if $seen{$_->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1037	1150	
==>oreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $att <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19656	19769	
==>2 lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

=head2 Other th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1037	1150	
==>oreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1037	1150	
==>oreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $att <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3197	3330	
==>ld !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ? <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3197	3330	
==>ld !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1210	1320	
==>erl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\]) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1210	1320	
==>erl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\]) <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	868	956	
==>Backend::Foo->compile($program);
    my $result = Blondie::Backend::Foo->execute($compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	367	474	
==>de} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	367	474	
==>de} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	367	474	
==>de} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20044	20142	
==>. It does so in a most specific to most general order.
So inner blocks get compiled first, then out <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20044	20142	
==>. It does so in a most specific to most general order.
So inner blocks get compiled first, then out <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4132	4378	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale:: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4132	4378	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8290	8464	
==>) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8290	8464	
==>) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8290	8464	
==>) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1628	1741	
==>return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2408	2521	
==>return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8544	8650	
==>E ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8544	8650	
==>E ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8544	8650	
==>E ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify + <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1799	1922	
==>($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.ur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1799	1922	
==>($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.ur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	608	707	
==>al" in flavor, however, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ft <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8697	8792	
==>t::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8755	8850	
==>t::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13441	13580	
==>( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13441	13580	
==>( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6751	6842	
==>>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ----------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6751	6842	
==>>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ----------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6751	6842	
==>>isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ----------- <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3332	3418	
==>erl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Pe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3332	3418	
==>erl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Pe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5207	5312	
==>istered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5207	5312	
==>istered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5381	5479	
==>ntainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5381	5479	
==>ntainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5971	6069	
==>ntainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2108	2210	
==>d support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error mess <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2108	2210	
==>d support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error mess <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2349	2445	
==>$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'* <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2349	2445	
==>$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'* <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2349	2445	
==>$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12991	13118	
==>ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12991	13118	
==>ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12991	13118	
==>ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3971	4089	
==>lemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3831	3945	
==>lemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	402	505	
==>my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	402	505	
==>my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	402	505	
==>my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20888	20986	
==>, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unorder <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25440	25538	
==>, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unorder <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	566	664	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all nor <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	566	664	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all nor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1122	1220	
==>er.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all nor <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15687	15780	
==>m C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered li <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15687	15780	
==>m C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9809	9918	
==>al case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9809	9918	
==>al case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9809	9918	
==>al case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2558	2656	
==>onform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is all <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2558	2656	
==>onform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is all <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3032	3164	
==>rn $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3032	3164	
==>rn $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3032	3164	
==>rn $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5693	5798	
==>from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5175	5280	
==>from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1806	1906	
==>ture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1806	1906	
==>ture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1806	1906	
==>ture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12368	12467	
==>o a single line containing a digest of the original content.
#
# This makes further dividing of Perl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12368	12467	
==>o a single line containing a digest of the original content.
#
# This makes further dividing of Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1637	1766	
==>i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'* <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1637	1766	
==>i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'* <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1637	1766	
==>i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'* <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2147	2255	
==>dir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2125	2233	
==>dir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9246	9391	
==>hifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9246	9391	
==>hifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9246	9391	
==>hifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8460	8575	
==>~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http:/ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8460	8575	
==>~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http:/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15158	15267	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15158	15267	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15158	15267	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12110	12203	
==>et1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12110	12203	
==>et1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $se <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	564	664	
==>cale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	564	664	
==>cale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	458	554	
==>zer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	458	554	
==>zer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	458	554	
==>zer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shif <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	593	720	
==>" if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	593	720	
==>" if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20710	20818	
==>value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20710	20818	
==>value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20710	20818	
==>value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12243	12365	
==>= $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4886	5008	
==>= $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	725	835	
==>ng . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	725	835	
==>ng . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	725	835	
==>ng . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	771	883	
==>e hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	771	883	
==>e hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	771	883	
==>e hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	691	785	
==>hod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	691	785	
==>hod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22826	22918	
==>x($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22826	22918	
==>x($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22826	22918	
==>x($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39417	39518	
==>t ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39417	39518	
==>t ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39417	39518	
==>t ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6990	7082	
==>ay "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $g <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7048	7140	
==>ay "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $g <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5112	5225	
==>s}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"END_DIE";
The '$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1172	1269	
==>performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compile <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1712	1809	
==>erl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes

=i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1172	1269	
==>performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1172	1269	
==>performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compile <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10453	10576	
==>($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10453	10576	
==>($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2236	2358	
==>($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2236	2358	
==>($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2236	2358	
==>($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    } <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1188	1332	
==>re @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1188	1332	
==>re @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1926	2062	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1706	1834	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1706	1834	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3536	3669	
==>[], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3536	3669	
==>[], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3536	3669	
==>[], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abov <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14421	14516	
==>t does not support any analogy of CDATA sections, though).
The Node class is pure and determinis <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14421	14516	
==>t does not support any analogy of CDATA sections, though).
The Node class is pure and determinis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11164	11281	
==>description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1634	1739	
==>description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1634	1739	
==>description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2144	2239	
==>nction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional int <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2144	2239	
==>nction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional int <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1436	1535	
==>may not have a MI version that works with the Makefile.PL. This would
# result in false errors or un <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10988	11086	
==>moves the specified items from the set. Returns the number of items
removed.

It is not fatal to re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8392	8490	
==>moves the specified items from the set. Returns the number of items removed.

It is not fatal to re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10988	11086	
==>moves the specified items from the set. Returns the number of items
removed.

It is not fatal to re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8392	8490	
==>moves the specified items from the set. Returns the number of items removed.

It is not fatal to re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4881	4971	
==>nto "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4881	4971	
==>nto "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4881	4971	
==>nto "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10208	10294	
==>d($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
pri <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10943	11029	
==>d($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
pri <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13916	14009	
==>urrently, no operators are overloaded. This will change as soon Pugs supports overload operato <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10143	10236	
==>urrently, no operators are overloaded. This will change as soon Pugs supports overload operato <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13916	14009	
==>urrently, no operators are overloaded. This will change as soon Pugs supports overload operato <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10143	10236	
==>urrently, no operators are overloaded. This will change as soon Pugs supports overload operato <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16651	16742	
==>mp-start to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	815	962	
==>r $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CL <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	815	962	
==>r $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4941	5034	
==>Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4941	5034	
==>Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4941	5034	
==>Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31535	31628	
==>he original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36085	36178	
==>he original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35312	35405	
==>he original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7913	8001	
==>h("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7913	8001	
==>h("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17974	18072	
==>if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2159	2257	
==>my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq " <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17974	18072	
==>if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2159	2257	
==>my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2159	2257	
==>my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28430	28722	
==>, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28430	28722	
==>, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28430	28722	
==>, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6381	6479	
==>rule, which unsets the flag before returning.

- this can also be used to do fail() and assert(), a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6175	6272	
==>rule, which unsets the flag before returning.
- this can also be used to do fail() and assert(), a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	426	532	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	426	532	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	426	532	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13131	13270	
==>ecial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13131	13270	
==>ecial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13131	13270	
==>ecial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1406	1527	
==>/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1406	1527	
==>/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	37	147	
==>ww.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	37	147	
==>ww.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12945	13044	
==>e, the unit is added to the current value to get the next value.
The unit specifier is also used int <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12945	13044	
==>e, the unit is added to the current value to get the next value.
The unit specifier is also used int <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4770	4865	
==>ains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Ba <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4770	4865	
==>ains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6967	7062	
==>ains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10477	10646	
==>f->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10477	10646	
==>f->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10477	10646	
==>f->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6949	7048	
==>e prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6949	7048	
==>e prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1812	1913	
==>::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1812	1913	
==>::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1150	1243	
==>e =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1150	1243	
==>e =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1150	1243	
==>e =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLA <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8759	8867	
==>.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8759	8867	
==>.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11110	11207	
==>package ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata remove <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	594	685	
==>ed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::Li <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	594	685	
==>ed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8524	8686	
==>lar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8524	8686	
==>lar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8524	8686	
==>lar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	866	972	
==>r_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	866	972	
==>r_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11623	11744	
==>= 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11617	11738	
==>= 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	668	776	
==>'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	668	776	
==>'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	668	776	
==>'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$. <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24849	24966	
==>\n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1575	1715	
==>! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1575	1715	
==>! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	527	631	
==>($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	527	631	
==>($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6523	6620	
==>Newline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6523	6620	
==>Newline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6523	6620	
==>Newline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: func <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	197	291	
==>(%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	197	291	
==>(%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	197	291	
==>(%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('ble <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19477	19569	
==>header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authori <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19477	19569	
==>header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authori <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1206	1316	
==>::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1206	1316	
==>::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1206	1316	
==>::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->ne <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2661	2764	
==>ove
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2661	2764	
==>ove
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17234	17340	
==>he chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17234	17340	
==>he chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17234	17340	
==>he chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1655	1756	
==>pan.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJE <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1655	1756	
==>pan.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23549	23656	
==>b rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23549	23656	
==>b rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23549	23656	
==>b rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	25	120	
==>2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if al <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	25	120	
==>2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if al <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27182	27292	
==>();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $parser->add_flag($f <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8065	8168	
==>my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		return Blondie::TypeSafe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19281	19373	
==>($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19281	19373	
==>($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19281	19373	
==>($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MU <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6142	6269	
==>->offsets[0] = len;
    }

    r->offsets[1] = RECOGNITION_FLAG;

    /*XXX should SvREFCNT_dec current value */
    r->substrs- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32007	32103	
==>ing as
the invocant Relation, and returns a new Relation that has the same heading
and whose body <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33868	33964	
==>ing as the
invocant Relation, and returns a new Relation that has the same heading and
whose body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36557	36653	
==>ing as
the invocant Relation, and returns a new Relation that has the same heading
and whose body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38418	38514	
==>ing as the
invocant Relation, and returns a new Relation that has the same heading and
whose body <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5870	6000	
==>e',
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $se <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39587	39676	
==>dress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24310	24399	
==>dress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39587	39676	
==>dress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24310	24399	
==>dress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3131	3246	
==>"352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        sp <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3131	3246	
==>"352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	407	504	
==>es Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	407	504	
==>es Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	407	504	
==>es Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5461	5567	
==>$.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5461	5567	
==>$.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4403	4499	
==>bject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4403	4499	
==>bject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5927	6023	
==>bject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Bu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8444	8604	
==>( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4804	4964	
==>( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5653	5813	
==>( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8903	9047	
==>::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9096	9240	
==>::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1763	1897	
==>:{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1763	1897	
==>:{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1763	1897	
==>:{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15764	15865	
==>res an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node const <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15764	15865	
==>res an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node const <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2399	2569	
==>eturn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2709	2874	
==>eturn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2709	2874	
==>eturn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	16	104	
==>Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeG <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	16	104	
==>Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeG <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11868	12038	
==>$e->get('?%params')
                  ->is_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2427	2540	
==>ty == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2427	2540	
==>ty == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2427	2540	
==>ty == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else { <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27063	27158	
==>nly. */
 #define REINT_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUI <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7097	7221	
==>y @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if w <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	398	522	
==>y @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3618	3737	
==>efine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3618	3737	
==>efine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3618	3737	
==>efine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4346	4464	
==>return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4346	4464	
==>return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	934	1216	
==>46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	934	1216	
==>46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4341	4435	
==>rg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4341	4435	
==>rg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4341	4435	
==>rg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_j <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	102	197	
==>%PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DEL <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	102	197	
==>%PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DEL <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24932	25025	
==>this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29484	29577	
==>this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15719	15825	
==>in unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10575	10681	
==>in unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36393	36487	
==>pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any two <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40942	41036	
==>pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any two <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40556	40650	
==>pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any two <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4248	4373	
==>ld = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> * <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4248	4373	
==>ld = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> * <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	422	549	
==>ds:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * s <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	422	549	
==>ds:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4994	5088	
==>p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4994	5088	
==>p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4994	5088	
==>p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1763	1884	
==>ef;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1763	1884	
==>ef;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1999	2120	
==>ef;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5895	5999	
==>s Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5895	5999	
==>s Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8397	8532	
==>h.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8397	8532	
==>h.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13378	13505	
==>hift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13378	13505	
==>hift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13378	13505	
==>hift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14302	14434	
==>raffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14302	14434	
==>raffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1422	1526	
==>.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1422	1526	
==>.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1422	1526	
==>.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3717	3846	
==>erl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3717	3846	
==>erl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3717	3846	
==>erl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Pr <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8736	8839	
==>:num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8794	8897	
==>:num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tes <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30528	30624	
==>urn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35079	35175	
==>urn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34261	34357	
==>urn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4688	4782	
==>LE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4910	5004	
==>LE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1323	1425	
==>:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1323	1425	
==>:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1323	1425	
==>:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %par <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	629	767	
==>bug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $ab <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	629	767	
==>bug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11483	11581	
==>f !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11483	11581	
==>f !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11483	11581	
==>f !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18452	18548	
==>nted.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officiall <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3521	3617	
==>t     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18452	18548	
==>nted.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officiall <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3521	3617	
==>t     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3521	3617	
==>t     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20835	21039	
==>p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20835	21039	
==>p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20835	21039	
==>p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        el <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7103	7227	
==>span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7103	7227	
==>span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47858	48115	
==>lue' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4419	4578	
==>name = $ast->{op};
            if (   defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && defined $$m->{tail}
                && $$m-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2221	2331	
==>role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authori <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2221	2331	
==>role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authori <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2221	2331	
==>role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authori <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1687	1804	
==>$Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1687	1804	
==>$Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1687	1804	
==>$Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19900	19990	
==>alized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, ther <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19900	19990	
==>alized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, ther <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6922	7100	
==>urried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6922	7100	
==>urried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6922	7100	
==>urried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	424	516	
==>ule Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	424	516	
==>ule Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30045	30138	
==>!) returns Relation>

This method is a short-hand or alternative for the functionality provide <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34597	34690	
==>!) returns Relation>

This method is a short-hand or alternative for the functionality provide <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	22	126	
==>.pl - fglock

#

# native library for the experimental implementation of p6-regex parser

#

# see: READM <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	22	122	
==>.pl - fglock
#
# native library for the experimental implementation of p6-regex parser
#
# see: READM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	307	404	
==>IL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	307	404	
==>IL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	307	404	
==>IL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(un <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8062	8158	
==>t that we have F<ghc_pkg> installed.  This caches its result,
any further calls to ghc_pkg This m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1331	1457	
==>FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1331	1457	
==>FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1331	1457	
==>FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	510	609	
==>my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} sec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	510	609	
==>my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} sec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5539	5639	
==>@lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_nu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5539	5639	
==>@lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2856	2949	
==>sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2856	2949	
==>sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2856	2949	
==>sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14895	15005	
==>ith_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18372	18482	
==>ith_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17788	17898	
==>ith_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21173	21268	
==>eys internally.

It is strongly suggested (but not required) that each Perl package which
uses t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21173	21268	
==>eys internally.

It is strongly suggested (but not required) that each Perl package which
uses t <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3446	3814	
==>turn $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                e <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3446	3814	
==>turn $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6265	6481	
==>turn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6265	6481	
==>turn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6265	6481	
==>turn $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2947	3064	
==>s($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2947	3064	
==>s($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2947	3064	
==>s($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_cu <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3496	3609	
==>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3496	3609	
==>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	459	578	
==>ess [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	459	578	
==>ess [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	459	578	
==>ess [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @I <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	133	242	
==>Assert;
use Exporter;
use Benchmark;
use Config;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EXP <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1235	1331	
==>2js or pilrun), and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve as a refe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11165	11361	
==>& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11165	11361	
==>& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11165	11361	
==>& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4477	4612	
==>{},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document ) <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4477	4612	
==>{},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3019	3149	
==>ckage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $matc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3019	3149	
==>ckage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $matc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3019	3149	
==>ckage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $matc <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6989	7096	
==>e = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6989	7096	
==>e = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1482	1588	
==>ys required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1689	1795	
==>ys required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4268	4362	
==>dule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4268	4362	
==>dule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4268	4362	
==>dule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13938	14048	
==>('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13938	14048	
==>('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13938	14048	
==>('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2517	2611	
==>urn \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2517	2611	
==>urn \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    < <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4874	5000	
==>6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2118	2230	
==>mpile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2118	2230	
==>mpile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1350	1457	
==>mpile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3211	3318	
==>mpile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8569	8669	
==>rn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.ke <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8569	8669	
==>rn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.ke <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8569	8669	
==>rn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.ke <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7949	8037	
==>push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1774	1862	
==>push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10687	10802	
==>/^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10845	10960	
==>/^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    retur <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1144	1256	
==>$x if $x ~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $delimiter) returns Str
 multi sub  Perl <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	912	1013	
==>::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_o <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	912	1013	
==>::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_o <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3487	3617	
==>ne    => @caller[2],
        subname => @caller[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! undef;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4621	4727	
==><$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4621	4727	
==><$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4621	4727	
==><$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_f <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5040	5126	
==>d(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1904	2036	
==>},
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1904	2036	
==>},
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1904	2036	
==>},
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.R <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2202	2300	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2202	2300	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6878	7002	
==>$ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6878	7002	
==>$ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6878	7002	
==>$ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6773	6873	
==>L will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 A <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6773	6873	
==>L will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 A <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2156	2272	
==>g {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5127	5243	
==>g {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2156	2272	
==>g {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5127	5243	
==>g {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	432	542	
==>e CxtVoid;  # is that enough?

# here, I think we have the same problem as with Set; how do you
# specify a hig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2933	3133	
==>oxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2933	3133	
==>oxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2933	3133	
==>oxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2662	2817	
==>turn sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        whil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2574	2724	
==>turn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        whil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22427	22523	
==>.

Generally, when a program package would return a code-key to indicate a
condition, often it wi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22427	22523	
==>.

Generally, when a program package would return a code-key to indicate a
condition, often it wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17241	17332	
==>$xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17241	17332	
==>$xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17241	17332	
==>$xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	310	424	
==>y_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	310	424	
==>y_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13870	13965	
==>unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13870	13965	
==>unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13870	13965	
==>unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9480	9619	
==>o, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2533	2672	
==>o, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4796	4901	
==>p as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4796	4901	
==>p as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4796	4901	
==>p as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3079	3179	
==>$one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.differenc <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3079	3179	
==>$one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.differenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	495	586	
==>ss of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	495	586	
==>ss of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	495	586	
==>ss of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35581	35697	
==>l ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35581	35697	
==>l ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35581	35697	
==>l ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3519	3634	
==>f ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3519	3634	
==>f ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', ma <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14489	14592	
==>S0 = substr target, pos, 1
    if $S0 == '<' goto name
    $I0 = find_not_cclass .CCLASS_NUMERIC, target <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8251	8343	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

= <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7381	7473	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8251	8343	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7381	7473	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3695	3813	
==>ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Beg <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5597	5715	
==>ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Beg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	555	660	
==>NSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	555	660	
==>NSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	555	660	
==>NSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_j <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1929	2058	
==>rgs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1929	2058	
==>rgs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1929	2058	
==>rgs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	648	776	
==>skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14168	14262	
==>Pe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	332	491	
==>from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	332	491	
==>from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	332	491	
==>from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6835	6953	
==>ue' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6835	6953	
==>ue' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_ <==
5	/Users/nnunley/pugs/util/func_refact.pl	387	479	
==>the initial set. -except <fname> introduces a function to
ignore, can iterate. -debug <fname> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	571	733	
==>d.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	571	733	
==>d.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	571	733	
==>d.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|ev <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2385	2503	
==>"auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2385	2503	
==>"auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4660	4784	
==>value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4660	4784	
==>value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4061	4159	
==>em * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4245	4343	
==>em * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	876	972	
==>ndie::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # might or might n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	531	642	
==>& $key->isa('type')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23107	23204	
==>apturing groups) in the regex.

=item captures

An array reference to the 'open' nodes.

=item fla <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5984	6075	
==>bMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5984	6075	
==>bMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2883	2974	
==>bMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	317	431	
==>lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	317	431	
==>lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2436	2535	
==>.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedP <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2436	2535	
==>.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedP <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2436	2535	
==>.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5467	5579	
==>::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5467	5579	
==>::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5467	5579	
==>::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	541	639	
==>Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allow <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	541	639	
==>Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allow <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	386	497	
==>PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	386	497	
==>PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	386	497	
==>PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  = <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7762	7847	
==>do_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7820	7905	
==>do_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2719	2865	
==>nt( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2912	3058	
==>nt( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1798	1903	
==>8-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1798	1903	
==>8-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1798	1903	
==>8-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34275	34382	
==>y $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34275	34382	
==>y $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34275	34382	
==>y $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Pe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17086	17182	
==>ritten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17086	17182	
==>ritten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	618	713	
==>prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix: <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	618	713	
==>prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	38	131	
==>.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Typ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	38	131	
==>.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Typ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	38	131	
==>.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Typ <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1777	1867	
==>port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1777	1867	
==>port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	415	523	
==>ements OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	393	497	
==>ements OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23267	23368	
==>te is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Lo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27819	27920	
==>te is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Lo <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	88	179	
==>.
#=Kontextunabhängigkeit
Da die kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Prob <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	843	992	
==>> [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	810	951	
==>> [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	559	663	
==>r, in the case of a Role, it
is not bound to a type until the role is included in the class.

This has th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	451	543	
==>al_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via W <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	451	543	
==>al_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via W <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1728	1844	
==>SION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1728	1844	
==>SION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1728	1844	
==>SION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4881	4992	
==>$.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4881	4992	
==>$.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5920	6032	
==>./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5920	6032	
==>./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5920	6032	
==>./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1967	2065	
==>ams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1967	2065	
==>ams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3054	3184	
==>fval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<pa <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3054	3184	
==>fval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<pa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16965	17082	
==>other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20442	20559	
==>other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20020	20137	
==>other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7004	7129	
==>{
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7004	7129	
==>{
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7004	7129	
==>{
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $para <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17581	17678	
==>no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17581	17678	
==>no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4316	4448	
==>ipt>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4316	4448	
==>ipt>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4316	4448	
==>ipt>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    di <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	39	234	
==>ethod new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return :: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	39	234	
==>ethod new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7269	7366	
==>lass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7269	7366	
==>lass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7269	7366	
==>lass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand() <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13875	13982	
==>t source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17352	17459	
==>t source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16732	16839	
==>t source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5771	5941	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5771	5941	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5771	5941	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	126	235	
==>ar;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLen <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	126	235	
==>ar;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4072	4206	
==>_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4072	4206	
==>_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4072	4206	
==>_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3682	3794	
==>lass]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3866	3978	
==>lass]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match va <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5411	5534	
==>open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x ) <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5411	5534	
==>open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13734	13828	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13734	13828	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13734	13828	
==>table = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1625	1768	
==>tried even if it were expecting a simple '<'
            
                # after whitespace means '<' (default)
                # without white <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5960	6079	
==>{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5960	6079	
==>{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5960	6079	
==>{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::/ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	296	406	
==>s, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough elements to construct a hash (m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3371	3476	
==>[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3371	3476	
==>[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3371	3476	
==>[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra param <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38947	39043	
==>opyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43761	43857	
==>opyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	466	571	
==>iousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.l <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	466	571	
==>iousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.l <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9729	9825	
==>odule was built to facilitate the Pugs test suite. It has the
distinction of being the very first <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9787	9883	
==>odule was built to facilitate the Pugs test suite. It has the
distinction of being the very first <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23549	23643	
==>, for efficiency, and they can optionally extend the
Relation library's interface.

See also th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5150	5304	
==>$ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5150	5304	
==>$ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5150	5304	
==>$ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10963	11104	
==>_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardable <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10963	11104	
==>_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardable <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4404	4605	
==>capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                cap <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4271	4465	
==>capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3710	3811	
==>e::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3710	3811	
==>e::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3710	3811	
==>e::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	893	1023	
==>ch => $1,
        tail  => $2
    });
}
sub varglobal {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5704	5829	
==>ar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10015	10140	
==>ar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20837	20950	
==>d_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17258	17371	
==>d_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1565	1681	
==>0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1565	1681	
==>0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1078	1173	
==>6main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1078	1173	
==>6main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1078	1173	
==>6main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLI <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2265	2364	
==>ally, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5854	5953	
==>est.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2265	2364	
==>ally, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5854	5953	
==>est.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5854	5953	
==>est.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6139	6255	
==>BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6139	6255	
==>BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6139	6255	
==>BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12755	12852	
==>et2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a prope <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12755	12852	
==>et2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a prope <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11164	11296	
==>us},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11164	11296	
==>us},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11164	11296	
==>us},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6833	6939	
==>l',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6833	6939	
==>l',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx' <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	653	1061	
==>I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	653	1061	
==>I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34354	34448	
==>in> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

= <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38904	38998	
==>in> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

= <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38383	38477	
==>in> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

= <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2283	2403	
==>some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2283	2403	
==>some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2613	2728	
==>un";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	378	483	
==>un";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	378	483	
==>un";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6061	6158	
==>alue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6061	6158	
==>alue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6061	6158	
==>alue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21465	21561	
==>, though several attributes may store values of the same class;
every Relation tuple must be dist <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26017	26113	
==>, though several attributes may store values of the same class;
every Relation tuple must be dist <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	828	945	
==>ation = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befor <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	570	687	
==>ation = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befor <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	828	945	
==>ation = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befor <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	570	687	
==>ation = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<befor <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5117	5220	
==>e return block could be generated automatically ?
  );

Pseudo-code for usage inside a grammar:

    rul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	613	726	
==>nteger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	613	726	
==>nteger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2463	2572	
==>$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $su <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2463	2572	
==>$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $su <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2810	2919	
==>$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	113	257	
==>n => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	113	257	
==>n => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	113	257	
==>n => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_st <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12050	12166	
==>so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12050	12166	
==>so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18371	18571	
==>nger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18371	18571	
==>nger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18371	18571	
==>nger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "ma <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1585	1693	
==>root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1585	1693	
==>root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2077	2186	
==>ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2077	2186	
==>ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2077	2186	
==>ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4646	4744	
==>e.

=head2 ""

When used as a string, the match object returns the stringified version
of the resul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4646	4744	
==>e.

=head2 ""

When used as a string, the match object returns the stringified version
of the resul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	132	229	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	132	229	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	132	229	
==>elf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwra <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11111	11207	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11169	11265	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	597	708	
==>rder of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	597	708	
==>rder of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	597	708	
==>rder of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1008	1105	
==>modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@ <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1008	1105	
==>modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2804	2921	
==>, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2804	2921	
==>, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2804	2921	
==>, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alter <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12752	12845	
==>rt.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)`. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12752	12845	
==>rt.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)`. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	539	658	
==>ode =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	574	693	
==>ode =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	539	658	
==>ode =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	689	789	
==>cfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cr <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	689	789	
==>cfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13519	13617	
==>t names for the fields present in the
header.  The field names have case as suggested by HTTP spec, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13519	13617	
==>t names for the fields present in the
header.  The field names have case as suggested by HTTP spec, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1706	1894	
==>> $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1706	1894	
==>> $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7674	7813	
==>ingle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7674	7813	
==>ingle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7674	7813	
==>ingle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_- <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1811	1906	
==>odules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1811	1906	
==>odules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30373	30493	
==>th = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30373	30493	
==>th = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30373	30493	
==>th = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_le <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12397	12493	
==>nyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5040	5136	
==>nyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	753	1000	
==>and.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	753	1000	
==>and.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1005	1102	
==>r deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1005	1102	
==>r deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1005	1102	
==>r deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1961	2152	
==>"^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1961	2152	
==>"^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1961	2152	
==>"^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxe <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9253	9358	
==>elete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9253	9358	
==>elete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	102	224	
==>nt
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things role <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	102	224	
==>nt
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things role <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	939	1034	
==>e PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	939	1034	
==>e PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	939	1034	
==>e PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15912	16005	
==>or writing modules that I<compile> other
Perl modules.

Modules that use these compilation mod <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15912	16005	
==>or writing modules that I<compile> other
Perl modules.

Modules that use these compilation mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2055	2164	
==>_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2055	2164	
==>_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2055	2164	
==>_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2084	2180	
==>h, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2084	2180	
==>h, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2003	2138	
==>this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	317	452	
==>this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2003	2138	
==>this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2003	2138	
==>this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	576	680	
==>[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub perl5 {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4002	4156	
==>ks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4002	4156	
==>ks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4528	4674	
==>ks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4528	4674	
==>ks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless d <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15124	15213	
==>ultiplicativeExpression>
    | <AdditiveExpression> <'-'> <MultiplicativeExpression>
}
rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37374	37516	
==>);
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37374	37516	
==>);
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37374	37516	
==>);
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub stor <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	126	264	
==>local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dy <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	121	259	
==>local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dy <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2183	2296	
==>x accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2183	2296	
==>x accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29706	29802	
==>me as those of another,
or are the same as the unaffected invocant's attributes.  This method
sup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34258	34354	
==>me as those of another,
or are the same as the unaffected invocant's attributes.  This method
sup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33422	33518	
==>me as those of another,
or are the same as the unaffected invocant's attributes.  This method
sup <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5204	5325	
==>mp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5204	5325	
==>mp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1136	1238	
==>_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1136	1238	
==>_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1136	1238	
==>_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2489	2610	
==>s: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2489	2610	
==>s: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2489	2610	
==>s: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11448	11568	
==>.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11448	11568	
==>.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4867	4987	
==>_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4867	4987	
==>_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4867	4987	
==>_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spec <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3637	3738	
==>YNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3637	3738	
==>YNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered se <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19810	19912	
==>ement>
}
rule Block :words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList :words <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1183	1284	
==>nce_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26977	27074	
==>t to the name of a directory, harness will check after each
test whether new files appeared in tha <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	922	1018	
==>nce_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1127	1223	
==>nce_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9870	9987	
==>==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	932	1044	
==>Val => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	932	1044	
==>Val => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	932	1044	
==>Val => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PI <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4154	4253	
==>that does
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8771	8888	
==>n already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	935	1044	
==>n already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect = <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	935	1044	
==>n already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect = <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4176	4276	
==>compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4176	4276	
==>compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4721	4836	
==>zer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      opt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4559	4670	
==>zer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      opt <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5095	5201	
==>$self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $fil <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26184	26282	
==>r that returns a new Relation
which has a subset of the original's attributes; that subset is the s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30736	30834	
==>r that returns a new Relation
which has a subset of the original's attributes; that subset is the s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4746	4878	
==>f->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4746	4878	
==>f->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4746	4878	
==>f->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16095	16207	
==>lation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19572	19684	
==>lation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1972	2092	
==>ary_non =>       
        "exp 'name' exp 'name2' exp \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ternary', op1 => \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	51	160	
==>ERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	65	174	
==>ERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	51	160	
==>ERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	51	160	
==>ERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7830	7972	
==>ed( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delet <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1131	1273	
==>ed( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8602	8711	
==>if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8602	8711	
==>if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8602	8711	
==>if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11857	11985	
==>tr $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11857	11985	
==>tr $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3665	3791	
==>nClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3665	3791	
==>nClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3665	3791	
==>nClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2027	2149	
==>dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2027	2149	
==>dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2027	2149	
==>dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS { <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	186	292	
==>tags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $p <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	186	292	
==>tags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34505	34600	
==>d parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34505	34600	
==>d parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Transl <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1195	1301	
==>eck $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expressio <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1195	1301	
==>eck $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expressio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2192	2271	
==>circumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2192	2271	
==>circumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2192	2271	
==>circumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stateme <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7765	7889	
==>= $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11242	11366	
==>= $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10406	10530	
==>= $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3315	3401	
==>f ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3315	3401	
==>f ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11107	11202	
==>Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11107	11202	
==>Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11107	11202	
==>Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21785	21878	
==><gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21785	21878	
==><gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5263	5426	
==>ue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5263	5426	
==>ue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5263	5426	
==>ue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2059	2157	
==>bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2059	2157	
==>bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	863	991	
==>if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	863	991	
==>if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7250	7364	
==>IL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7250	7364	
==>IL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7250	7364	
==>IL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2641	2761	
==>if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2641	2761	
==>if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	470	571	
==><EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	470	571	
==><EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	470	571	
==><EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4476	4625	
==>)->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4476	4625	
==>)->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4476	4625	
==>)->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12436	12528	
==>like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12436	12528	
==>like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17186	17307	
==>l, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17186	17307	
==>l, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_hand <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2368	2469	
==>uct_equiv => $reduced_struct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar::Util <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3927	4023	
==>distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
clas <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3927	4023	
==>distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
clas <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1869	1992	
==>($compile_only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	60	181	
==>ur $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($self) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4815	4939	
==>aModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4815	4939	
==>aModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4815	4939	
==>aModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to ST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7839	8069	
==>b { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7839	8069	
==>b { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7839	8069	
==>b { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4890	4984	
==>pturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5083	5177	
==>pturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(. <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7473	7616	
==>ic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7530	7673	
==>ic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6233	6347	
==>"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6233	6347	
==>"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6233	6347	
==>"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11909	12045	
==>rn "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2323	2449	
==>rn "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2323	2449	
==>rn "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10633	10740	
==>g and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHOD <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10633	10740	
==>g and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHOD <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8557	8741	
==>=> 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8557	8741	
==>=> 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16730	16828	
==>the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModul <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16730	16828	
==>the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModul <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1856	1953	
==>ate a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods which return the p6 vers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5256	5372	
==>ass') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5256	5372	
==>ass') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5256	5372	
==>ass') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curren <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33731	33828	
==>nds to a
language like English or French.  The order of these items corresponds to
an individual u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33731	33828	
==>nds to a
language like English or French.  The order of these items corresponds to
an individual u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6731	6895	
==>boxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6731	6895	
==>boxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6731	6895	
==>boxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return S <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2486	2592	
==>}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2486	2592	
==>}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $ <==
5	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	973	1076	
==>topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic ~~ $wik <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7505	7593	
==>head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1733	1821	
==>head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9139	9227	
==>head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1951	2039	
==>head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<g <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9333	9504	
==>plemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'comm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9333	9504	
==>plemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'comm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6627	6732	
==>X - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6627	6732	
==>X - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6627	6732	
==>X - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23884	24034	
==>eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23884	24034	
==>eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23884	24034	
==>eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $me <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2458	2593	
==>=> $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2458	2593	
==>=> $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8704	8822	
==>'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8704	8822	
==>'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8704	8822	
==>'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14484	14583	
==>e is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the co <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14542	14641	
==>e is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	679	796	
==>:add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	695	812	
==>:add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	671	788	
==>:add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2953	3062	
==>F$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2953	3062	
==>F$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8269	8360	
==>ined $pilc;
    $pilc->expand();
}

#======================================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8269	8360	
==>ined $pilc;
    $pilc->expand();
}

#======================================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8269	8360	
==>ined $pilc;
    $pilc->expand();
}

#======================================================= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2145	2235	
==>mmar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2234	2324	
==>mmar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3883	3983	
==>elf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XX <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3883	3983	
==>elf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XX <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4473	4573	
==>elf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XX <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9359	9456	
==>urns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9359	9456	
==>urns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_n <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	646	761	
==>SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessor <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1130	1245	
==>SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessor <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9287	9445	
==>($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TA <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10278	10436	
==>($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TA <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3163	3271	
==>2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3163	3271	
==>2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3163	3271	
==>2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  J <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	998	1088	
==>=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	998	1088	
==>=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5321	5432	
==>e_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2863	2974	
==>e_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3712	3823	
==>e_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    re <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1712	1819	
==>.density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1712	1819	
==>.density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2032	2205	
==>n %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2032	2205	
==>n %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29994	30107	
==>s -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29994	30107	
==>s -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29994	30107	
==>s -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16725	16841	
==>te($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16725	16841	
==>te($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16725	16841	
==>te($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15968	16061	
==>d> response instead of
the document itself.

=item $h.last_modified

This header indicates the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15968	16061	
==>d> response instead of
the document itself.

=item $h.last_modified

This header indicates the <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1396	1520	
==>ed some good path manipulation tools.. this is too much work :(
#     
#     ### clean out the builddir 
#     {   if( -d $bu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8331	8444	
==>(true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	489	602	
==>(true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8051	8161	
==>(true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	466	576	
==>(true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1781	1909	
==>';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2524	2652	
==>';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1781	1909	
==>';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2512	2640	
==>';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $co <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5437	5555	
==>ons}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $se <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3675	3854	
==>mp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        e <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3675	3854	
==>mp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2770	2866	
==>currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2770	2866	
==>currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2770	2866	
==>currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14007	14154	
==>t => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14007	14154	
==>t => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14007	14154	
==>t => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3667	3790	
==>r'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3860	3983	
==>r'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	888	993	
==>patchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	888	993	
==>patchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	888	993	
==>patchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12511	12607	
==>r a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12511	12607	
==>r a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12896	13002	
==>a header (1..M) line.  If so, it places how
many tests there will be in C<< $strap->{max} >>, a list of whi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11121	11214	
==>et.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in th <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8525	8618	
==>et.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in th <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11121	11214	
==>et.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in th <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8525	8618	
==>et.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4251	4473	
==>:Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_onl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4251	4473	
==>:Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_onl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2371	2473	
==>, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2371	2473	
==>, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2371	2473	
==>, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2642	2756	
==>her.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of som <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2642	2756	
==>her.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of som <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2642	2756	
==>her.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of som <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2948	3046	
==>glock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as we <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2841	2937	
==>glock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as we <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	302	419	
==>rs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	302	419	
==>rs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	302	419	
==>rs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	615	716	
==>Which also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   A <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	615	716	
==>Which also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   A <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4499	4619	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4692	4812	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5065	5176	
==>tf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" he <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5065	5176	
==>tf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" he <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5065	5176	
==>tf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" he <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5470	5576	
==>vious ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5470	5576	
==>vious ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23136	23224	
==>ULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23136	23224	
==>ULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23136	23224	
==>ULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2179	2282	
==>py {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2179	2282	
==>py {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4101	4193	
==>::Rebless defines B<only class methods>. There is no instance
constructor, and when calling t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4101	4193	
==>::Rebless defines B<only class methods>. There is no instance
constructor, and when calling t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4101	4193	
==>::Rebless defines B<only class methods>. There is no instance
constructor, and when calling t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13133	13304	
==>( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->del <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13133	13304	
==>( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->del <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13133	13304	
==>( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->del <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21196	21290	
==>strongly suggested (but not required) that each Perl package which
uses this would come up with <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21196	21290	
==>strongly suggested (but not required) that each Perl package which
uses this would come up with <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9551	9650	
==>>:

  my $iter = $parser->walker;

This will produce an iterator that will traverse the entire parse <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2874	2971	
==>he Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the t <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3031	3128	
==>he Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the t <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2874	2971	
==>he Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the t <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3031	3128	
==>he Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7221	7325	
==>ng decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7221	7325	
==>ng decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7221	7325	
==>ng decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) } <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2581	2679	
==>ed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::R <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2581	2679	
==>ed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::R <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	417	543	
==>not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# L <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11960	12058	
==>ame ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argume <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12392	12490	
==>ame ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argume <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11960	12058	
==>ame ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argume <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12392	12490	
==>ame ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argume <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1958	2100	
==>our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1958	2100	
==>our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1958	2100	
==>our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1578	1711	
==>,

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1514	1643	
==>,
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1661	1757	
==>> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1661	1757	
==>> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1661	1757	
==>> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24004	24095	
==>.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmid <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24004	24095	
==>.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	135	231	
==>ub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	135	231	
==>ub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	135	231	
==>ub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)" <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	409	503	
==>rint $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for crypto <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	409	503	
==>rint $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for crypto <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6008	6103	
==>{
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6008	6103	
==>{
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6008	6103	
==>{
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19401	19486	
==>is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19401	19486	
==>is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6028	6134	
==>$fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6028	6134	
==>$fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6028	6134	
==>$fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8691	8796	
==>my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES] <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8691	8796	
==>my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2448	2605	
==>in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX sh <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2448	2605	
==>in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2084	2231	
==>->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2084	2231	
==>->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2084	2231	
==>->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	456	573	
==>med;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	456	573	
==>med;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1423	1536	
==>tes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1423	1536	
==>tes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in C <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1423	1536	
==>tes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in C <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	321	432	
==>== $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities in <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	321	432	
==>== $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7244	7343	
==>'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7244	7343	
==>'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7244	7343	
==>'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4649	4755	
==>= 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5308	5414	
==>= 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4649	4755	
==>= 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5308	5414	
==>= 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields <==
5	/Users/nnunley/pugs/util/package-osx.pl	5648	5745	
==>:Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/local/man/man3/P <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	697	798	
==>ntersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	697	798	
==>ntersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3457	3554	
==>expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3457	3554	
==>expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3457	3554	
==>expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9280	9420	
==>>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9280	9420	
==>>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9280	9420	
==>>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	242	352	
==>class 'PIL::Run::Container::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21928	22021	
==>ormation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availab <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20809	20902	
==>ormation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availab <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21928	22021	
==>ormation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availab <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20809	20902	
==>ormation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3826	3941	
==>$js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3826	3941	
==>$js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3826	3941	
==>$js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19978	20072	
==>ilers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specif <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19978	20072	
==>ilers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7326	7508	
==>ate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7326	7508	
==>ate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7326	7508	
==>ate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8623	8759	
==>],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8816	8952	
==>],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27840	27982	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optiona <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28119	28261	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optiona <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	143	247	
==>urn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	143	247	
==>urn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	143	247	
==>urn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5342	5497	
==>{
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5758	5913	
==>{
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5354	5509	
==>{
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5770	5925	
==>{
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15913	16007	
==>on>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalExpressionNoIn> < <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41744	41840	
==>lt;
the new Relation::Example is the result of combining all of the source Relations,
such that a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28247	28342	
==>ersion of this object which is suitable
for debugging purposes (such as to test that the object' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35603	35698	
==>ersion of this object which is suitable
for debugging purposes (such as to test that the object' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28247	28342	
==>ersion of this object which is suitable
for debugging purposes (such as to test that the object' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35603	35698	
==>ersion of this object which is suitable
for debugging purposes (such as to test that the object' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11798	11910	
==>om the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$// <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11798	11910	
==>om the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$// <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1727	1826	
==>.= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1727	1826	
==>.= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1727	1826	
==>.= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	647	752	
==>metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Du <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	647	752	
==>metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Du <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	647	752	
==>metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Du <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14483	14587	
==>>pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    m <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14483	14587	
==>>pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13528	13635	
==>^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($cl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13528	13635	
==>^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1034	1132	
==>ix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1034	1132	
==>ix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1034	1132	
==>ix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	583	687	
==>$val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	353	457	
==>$val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	353	457	
==>$val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val e <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4140	4238	
==>t given.

The value for day can also be the string "last", in which case the
object returned repres <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4140	4238	
==>t given.

The value for day can also be the string "last", in which case the
object returned repres <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3703	3802	
==>ther.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3703	3802	
==>ther.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6286	6382	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6286	6382	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6286	6382	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7673	7849	
==>>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # no <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7673	7849	
==>>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # no <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7673	7849	
==>>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # no <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	263	411	
==>j = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        ret <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	263	411	
==>j = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8984	9140	
==>";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "be <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14713	14869	
==>";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "be <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8984	9140	
==>";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "be <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14707	14863	
==>";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "be <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43289	43385	
==>n is Copyright (c) 2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Relation> for deta <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	415	514	
==>a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	960	1059	
==>a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	415	514	
==>a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	960	1059	
==>a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	960	1059	
==>a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors are just new( <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4882	5019	
==>key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($ke <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4741	4878	
==>key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2039	2139	
==>String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2039	2139	
==>String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2039	2139	
==>String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	745	844	
==>$jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	745	844	
==>$jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	745	844	
==>$jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37601	37689	
==>t_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the na <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37601	37689	
==>t_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the na <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3782	3960	
==>: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4246	4424	
==>: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3301	3444	
==>To:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3765	3908	
==>To:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	647	750	
==>t @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't op <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	104	211	
==>t and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	108	215	
==>t and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	104	211	
==>t and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	108	215	
==>t and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13438	13535	
==>d

=item RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5382	5520	
==>> $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - gen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5213	5344	
==>> $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - gen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3478	3602	
==>ave ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($sl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3478	3602	
==>ave ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($sl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3478	3602	
==>ave ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($sl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1699	1820	
==>s for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1699	1820	
==>s for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5225	5328	
==>ML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3029	3128	
==>iled!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3029	3128	
==>iled!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5044	5143	
==>ML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3109	3208	
==>iled!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12384	12571	
==>le
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12378	12565	
==>le
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1836	1988	
==>ase eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        e <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1836	1988	
==>ase eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        e <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2557	2685	
==>ase eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    e <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2557	2685	
==>ase eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4656	4748	
==>it->new(0) if $left->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i ( <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1613	1749	
==>ename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6364	6469	
==>ion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5437	5542	
==>ion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifi <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6364	6469	
==>ion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5437	5542	
==>ion about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2586	2700	
==>alue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2586	2700	
==>alue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2586	2700	
==>alue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8047	8152	
==>alize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, an <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8047	8152	
==>alize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, an <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1014	1116	
==>h );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($wo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1014	1116	
==>h );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9453	9542	
==>re_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9453	9542	
==>re_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9453	9542	
==>re_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1705	1824	
==>'call')} unless uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3843	3945	
==>abel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3843	3945	
==>abel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3843	3945	
==>abel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TR <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2070	2166	
==>ed immediately -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6407	6552	
==>=> $11,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1543	1676	
==>in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1748	1881	
==>in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2081	2195	
==>e) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1759	1865	
==>e) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20194	20280	
==>=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("log <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20194	20280	
==>=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("log <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12698	12805	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12698	12805	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12698	12805	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7214	7318	
==>SES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7214	7318	
==>SES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	402	508	
==>rs qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	608	714	
==>rs qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2843	2946	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2843	2946	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2843	2946	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5849	5985	
==>preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5849	5985	
==>preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5849	5985	
==>preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MUL <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31632	31730	
==>s
argument, in which case the new Relation has either all of the tuples of
the original, or has zer <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36182	36280	
==>s
argument, in which case the new Relation has either all of the tuples of
the original, or has zer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14077	14205	
==>= "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14077	14205	
==>= "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	125	226	
==>ge and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the De <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	125	226	
==>ge and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the De <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	125	226	
==>ge and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the De <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2151	2258	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2151	2258	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2151	2258	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12482	12581	
==>th types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12482	12581	
==>th types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3315	3422	
==>s_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ / <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3315	3422	
==>s_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ / <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3315	3422	
==>s_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ / <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9487	9575	
==>b { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3312	3400	
==>b { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2005	2115	
==>t    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2005	2115	
==>t    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2085	2195	
==>t    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5017	5123	
==>l __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5017	5123	
==>l __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11937	12068	
==>by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11937	12068	
==>by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11937	12068	
==>by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12452	12548	
==>t to the parameter.
If both previous and next elements are at the same distance, returns the prev <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12452	12548	
==>t to the parameter.
If both previous and next elements are at the same distance, returns the prev <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1239	1359	
==>addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_para <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1239	1359	
==>addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_para <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5465	5559	
==>ne the response code or response headers
(like 'Content-Type') when you are accessing the web u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5465	5559	
==>ne the response code or response headers
(like 'Content-Type') when you are accessing the web u <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14520	14658	
==>on.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14520	14658	
==>on.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	992	1095	
==>g (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	992	1095	
==>g (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	992	1095	
==>g (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24101	24238	
==>s = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Mat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24101	24238	
==>s = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Mat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24101	24238	
==>s = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Mat <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4882	4989	
==>curr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4882	4989	
==>curr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8785	8904	
==>iverse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8785	8904	
==>iverse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2420	2511	
==>nt 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2420	2511	
==>nt 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2420	2511	
==>nt 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13665	13795	
==>size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13665	13795	
==>size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13665	13795	
==>size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nec <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5911	6041	
==>size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nec <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4411	4541	
==>size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is nec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6401	6537	
==>xec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6401	6537	
==>xec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6401	6537	
==>xec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2569	2702	
==>:PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pa <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2569	2702	
==>:PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9427	9556	
==>unt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9427	9556	
==>unt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9427	9556	
==>unt--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    m <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	30	150	
==>0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	30	150	
==>0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless d <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	951	1197	
==>le

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference imp <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	951	1197	
==>le

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference imp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	794	930	
==>aram->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	776	907	
==>aram->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	776	907	
==>aram->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slu <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2235	2358	
==>urst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2235	2358	
==>urst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1602	1691	
==>ls::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Inter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1602	1691	
==>ls::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Inter <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1602	1691	
==>ls::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Inter <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1299	1448	
==>ion ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $fil <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	716	845	
==>hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38164	38259	
==>ating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TO <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42713	42808	
==>ating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TO <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42363	42458	
==>ating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TO <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12834	12934	
==>) }

# possibly amend the list of generic variables if the paramter type of the function is free
fun: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	433	533	
==>%Pugs::Grammar::Var::hash,
    );
    $class->SUPER::recompile;
}

BEGIN {
    __PACKAGE__->recompile <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15354	15488	
==>::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15633	15767	
==>::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8581	8691	
==>ength; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8581	8691	
==>ength; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8581	8691	
==>ength; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12740	12876	
==>Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12740	12876	
==>Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $t <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5573	5689	
==>attribute new (%:attributes))      (hash)
     (attribute new (%:methods))         (hash)))    

=cut

# create the b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15221	15316	
==>n header did not exist then C<undef> is returned.

Methods that deal with dates/times always con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15221	15316	
==>n header did not exist then C<undef> is returned.

Methods that deal with dates/times always con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7673	7829	
==>nboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'exp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7673	7829	
==>nboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'exp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7673	7829	
==>nboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'exp <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	380	480	
==>SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<c <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	380	480	
==>SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<c <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6507	6669	
==>ule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.matc <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6507	6669	
==>ule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4475	4576	
==>XX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4475	4576	
==>XX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4475	4576	
==>XX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bo <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1913	2040	
==>\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->q <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1913	2040	
==>\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->q <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1941	2034	
==>icode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1941	2034	
==>icode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1941	2034	
==>icode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	302	421	
==>perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	302	421	
==>perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	302	421	
==>perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4126	4228	
==>plement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4126	4228	
==>plement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

m <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	374	473	
==>greement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskellesq <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	374	473	
==>greement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskellesq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8513	8637	
==>plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for fa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8217	8334	
==>plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6331	6434	
==>$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6331	6434	
==>$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6331	6434	
==>$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2102	2253	
==>| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2102	2253	
==>| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2102	2253	
==>| redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curren <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	60	153	
==>eed to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	60	153	
==>eed to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2979	3081	
==>nstant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2979	3081	
==>nstant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2979	3081	
==>nstant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40760	40852	
==>KeyedText would appreciate being informed any time you create a
modified version of Locale::K <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40760	40852	
==>KeyedText would appreciate being informed any time you create a
modified version of Locale::K <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5490	5648	
==>while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5490	5648	
==>while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2717	2822	
==>ods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2717	2822	
==>ods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2717	2822	
==>ods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container:: <==
5	/Users/nnunley/pugs/util/testgraph.pl	1343	1453	
==>E
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_class { "My::Fi <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7914	8007	
==>bmethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.co <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7914	8007	
==>bmethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36448	36539	
==>m C<translate_message( $message! )>

This method takes a (machine-readable) Message object a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36448	36539	
==>m C<translate_message( $message! )>

This method takes a (machine-readable) Message object a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	624	730	
==>at were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	624	730	
==>at were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	624	730	
==>at were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2854	2957	
==>{ use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $< <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2854	2957	
==>{ use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7288	7401	
==>ingleton/class method');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2	103	
==>pX/Common/iterator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2	98	
==>pX/Common/iterator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	32	127	
==>pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	32	127	
==>pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debu <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16144	16284	
==>) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_state>

  $strap->_r <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6984	7101	
==>"permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "r <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6984	7101	
==>"permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "r <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8070	8175	
==>ty;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8070	8175	
==>ty;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	638	752	
==>$class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1122	1236	
==>$class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	122	216	
==>* Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	122	216	
==>* Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	122	216	
==>* Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005 <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	136	241	
==>lback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($cl <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	136	241	
==>lback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15452	15550	
==>ble = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15452	15550	
==>ble = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15452	15550	
==>ble = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$lab <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4115	4321	
==>n 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4115	4321	
==>n 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	632	735	
==>works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	632	735	
==>works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	632	735	
==>works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exp <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1357	1460	
==>s/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/b <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21417	21512	
==>vent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Even <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20298	20393	
==>vent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21417	21512	
==>vent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20298	20393	
==>vent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Even <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1788	1902	
==>L::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::C <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1788	1902	
==>L::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	458	566	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	458	566	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	458	566	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1304	1492	
==>"ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1304	1492	
==>"ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1304	1492	
==>"ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13326	13419	
==>s.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
you <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13326	13419	
==>s.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3890	4027	
==>ss1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3890	4027	
==>ss1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3890	4027	
==>ss1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1364	1454	
==>?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1364	1454	
==>?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2043	2167	
==>e}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2043	2167	
==>e}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6477	6599	
==>@_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interface to the internal rule functions
# - creat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2753	2900	
==>erl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2753	2900	
==>erl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	448	549	
==>*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	448	549	
==>*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	448	549	
==>*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

o <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2886	3007	
==>n,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is e <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2886	3007	
==>n,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	253	362	
==>the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	253	362	
==>the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	253	362	
==>the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4919	5040	
==>t provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4919	5040	
==>t provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4919	5040	
==>t provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATE <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2499	2595	
==>turns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2499	2595	
==>turns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3772	3915	
==>ate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4018	4154	
==>ate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10467	10603	
==>ate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4018	4154	
==>ate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10467	10603	
==>ate => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1175	1269	
==>aders.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1175	1269	
==>aders.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6161	6252	
==>ernals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6161	6252	
==>ernals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6161	6252	
==>ernals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1884	2009	
==>size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1884	2009	
==>size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2399	2498	
==>);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2399	2498	
==>);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2399	2498	
==>);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH() <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3715	3871	
==>tch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3963	4114	
==>tch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10412	10563	
==>tch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3963	4114	
==>tch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10412	10563	
==>tch->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30827	30920	
==>ation have been eliminated. 
Trivial cases are where C<$transformer> returns either an empty
t <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11154	11247	
==>Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($se <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11154	11247	
==>Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35378	35470	
==>ation have been eliminated.
Trivial cases are where C<$transformer> returns either an empty
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34569	34661	
==>ation have been eliminated.
Trivial cases are where C<$transformer> returns either an empty
t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1337	1471	
==>),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1283	1411	
==>),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2483	2578	
==>2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2483	2578	
==>2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2483	2578	
==>2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8849	9026	
==>ule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5209	5386	
==>ule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6058	6235	
==>ule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{name <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5112	5239	
==>->dir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing index file
        my $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34743	34843	
==>hod returns the identity-one Relation::Example or the invocant relation,
respectively.

=item C<restr <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3591	3689	
==>t>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. Se <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3591	3689	
==>t>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	620	709	
==>Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	620	709	
==>Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	620	709	
==>Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7868	8066	
==>xt, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_mod <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7868	8066	
==>xt, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2607	2706	
==>$proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2607	2706	
==>$proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2607	2706	
==>$proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2918	3067	
==>}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2918	3067	
==>}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2979	3090	
==>y $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2979	3090	
==>y $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2979	3090	
==>y $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13817	13923	
==>p { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13817	13923	
==>p { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13817	13923	
==>p { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	99	200	
==>ontains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all element <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	99	200	
==>ontains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all element <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40306	40402	
==>must carry
prominent notices stating that you changed the files and the date of any
changes, in a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25830	25926	
==>must carry prominent
notices stating that you changed the files and the date of any changes, in
a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40306	40402	
==>must carry
prominent notices stating that you changed the files and the date of any
changes, in a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25830	25926	
==>must carry prominent
notices stating that you changed the files and the date of any changes, in
a <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4420	4508	
==>e(W, Z) --> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_ran <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33429	33527	
==>or the program or first library should
appear first in the array.  Each Set Name can be any defined <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33429	33527	
==>or the program or first library should
appear first in the array.  Each Set Name can be any defined <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6403	6500	
==>wo) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) return <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5533	5630	
==>wo) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6403	6500	
==>wo) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5533	5630	
==>wo) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) return <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	672	765	
==>e::override::PCRE - Perl-compatible regular expressions

=head1 SYNOPSIS

    use re::override <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6655	6796	
==>atch...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6440	6572	
==>atch...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1444	1698	
==>_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::Ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7795	7945	
==>"pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7795	7945	
==>"pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7795	7945	
==>"pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10776	10878	
==>old smoke reports are automatically deleted, so you may not want
    to link directly to a smoke.
  </p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36624	36720	
==>tion is identical to the
invocant.  Another trivial case is where any any source relation has zer <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41173	41269	
==>tion is identical to the
invocant.  Another trivial case is where any any source relation has zer <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7694	7787	
==>tch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9622	9715	
==>tch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7682	7775	
==>tch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1086	1198	
==>longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1437	1547	
==>longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> do <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1044	1154	
==>longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> do <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1437	1547	
==>longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> do <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1482	1578	
==>rmance.

However, pugs critical path is currently more oo than rules, my time
is limited, and the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2914	3030	
==>for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2914	3030	
==>for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4525	4632	
==>>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4525	4632	
==>>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4525	4632	
==>>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12248	12368	
==>include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6339	6436	
==>abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8407	8504	
==>abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6339	6436	
==>abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8407	8504	
==>abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10222	10373	
==>_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10222	10373	
==>_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5741	5850	
==>of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5741	5850	
==>of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5741	5850	
==>of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1947	2090	
==>0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1947	2090	
==>0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11014	11138	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11014	11138	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11014	11138	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9984	10181	
==>} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8790	8910	
==>et operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8790	8910	
==>et operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $i <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4526	4634	
==>2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4526	4634	
==>2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15626	15799	
==>p()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15626	15799	
==>p()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15626	15799	
==>p()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2038	2149	
==>d to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2038	2149	
==>d to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7033	7142	
==>_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7033	7142	
==>_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7033	7142	
==>_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Con <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6000	6117	
==>elf.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @! <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6000	6117	
==>elf.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1396	1496	
==>->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_par <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1396	1496	
==>->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_par <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1605	1705	
==>->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	502	610	
==>try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	502	610	
==>try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	502	610	
==>try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { t <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1979	2076	
==>$.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1979	2076	
==>$.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4629	4735	
==>ixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	220	326	
==>MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	220	326	
==>MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4629	4735	
==>ixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4629	4735	
==>ixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7890	8010	
==>ng for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7890	8010	
==>ng for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7890	8010	
==>ng for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12128	12224	
==>EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12128	12224	
==>EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	866	964	
==>e () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	866	964	
==>e () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1151	1245	
==>tity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@gene <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1151	1245	
==>tity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@gene <==
5	/Users/nnunley/pugs/util/importgraph.pl	2131	2216	
==>k('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_r <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	818	997	
==>earch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               un <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	818	997	
==>earch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	415	517	
==>rName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	415	517	
==>rName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	415	517	
==>rName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6473	6599	
==>ute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6473	6599	
==>ute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6473	6599	
==>ute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => :: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2052	2151	
==>---------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2052	2151	
==>---------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18744	18869	
==>D = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18744	18869	
==>D = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18744	18869	
==>D = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23953	24045	
==>g of alternate solutions like "gettext" suggests that they
use a compile-time macro-based app <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23953	24045	
==>g of alternate solutions like "gettext" suggests that they
use a compile-time macro-based app <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	374	542	
==>access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	374	542	
==>access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	374	542	
==>access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            ' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16600	16699	
==>d, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16600	16699	
==>d, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4749	4902	
==>tidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4749	4902	
==>tidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	73	182	
==>in/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-Me <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	73	182	
==>in/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-Me <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	73	182	
==>in/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-Me <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1457	1550	
==>e therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst siz <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1457	1550	
==>e therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst siz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1528	1633	
==>se},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1528	1633	
==>se},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1528	1633	
==>se},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-o <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8300	8397	
==>num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8358	8455	
==>num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Te <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	8103	8203	
==>= HTML::Template->new(filename => 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7441	7540	
==>ars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7441	7540	
==>ars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7441	7540	
==>ars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1766	1877	
==>mplementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1766	1877	
==>mplementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1766	1877	
==>mplementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	204	314	
==>is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	204	314	
==>is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2036	2256	
==>s<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element> <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2036	2256	
==>s<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2719	2848	
==>= [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2719	2848	
==>= [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2719	2848	
==>= [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18055	18211	
==>urn $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18055	18211	
==>urn $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18055	18211	
==>urn $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2515	2630	
==>"# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2732	2847	
==>"# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to us <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	59	164	
==>t.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	59	164	
==>t.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	59	164	
==>t.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS:: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5639	5734	
==>ex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$nu <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5639	5734	
==>ex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1981	2083	
==>k - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1981	2083	
==>k - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1981	2083	
==>k - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7603	7703	
==>y list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_arra <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7603	7703	
==>y list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_arra <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2125	2228	
==>s_failed {
    my($self)=@_;
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	return <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1642	1742	
==>to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The valu <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1642	1742	
==>to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The valu <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2071	2168	
==>sents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2071	2168	
==>sents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2864	3122	
==>lsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # var <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2969	3070	
==>51.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14422	14511	
==>ta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14422	14511	
==>ta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14422	14511	
==>ta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8269	8378	
==>::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7982	8086	
==>::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	378	461	
==>difiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	378	461	
==>difiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	378	461	
==>difiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	425	547	
==>d)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	425	547	
==>d)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	425	547	
==>d)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	528	626	
==>f_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	586	684	
==>f_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2729	2917	
==>\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2729	2917	
==>\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	861	989	
==>new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	861	989	
==>new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	861	989	
==>new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  }) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6994	7105	
==>{# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6994	7105	
==>{# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6994	7105	
==>{# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_se <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16216	16313	
==>les; you can read TTM itself and
various other external documentation for much of that.

The Roset <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16216	16313	
==>les; you can read TTM itself and
various other external documentation for much of that.

The Roset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5645	5745	
==>ossibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5645	5745	
==>ossibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5645	5745	
==>ossibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	569	740	
==>urrent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	569	740	
==>urrent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2732	2827	
==>head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2732	2827	
==>head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Te <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2812	2907	
==>head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1623	1736	
==>superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1623	1736	
==>superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1623	1736	
==>superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23192	23282	
==>ckname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23192	23282	
==>ckname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2379	2514	
==>],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2926	3061	
==>],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3473	3608	
==>],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	713	819	
==>urns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub o <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	771	877	
==>urns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6876	6994	
==>UBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6876	6994	
==>UBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6876	6994	
==>UBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9056	9173	
==>ub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9056	9173	
==>ub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9056	9173	
==>ub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23493	23581	
==>n files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migrat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23493	23581	
==>n files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migrat <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3699	3804	
==>Will reduce all the children of the top level App into

    ( Thunk(...), 10 )

At which point the App wil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23650	23741	
==>B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22423	22514	
==>B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23650	23741	
==>B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22423	22514	
==>B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8581	8742	
==>h
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->first <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8581	8742	
==>h
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->first <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8581	8742	
==>h
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->first <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	655	765	
==>DFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => s <==
5	/Users/nnunley/pugs/util/package-osx.pl	7980	8077	
==>.3pm
        /usr/local/man/man3/Perl6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2000	2102	
==>eferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2000	2102	
==>eferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2000	2102	
==>eferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10392	10491	
==>ems
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is common <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10392	10491	
==>ems
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is common <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2132	2258	
==>s->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2132	2258	
==>s->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2132	2258	
==>s->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto & <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3115	3208	
==>ence($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::H <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3115	3208	
==>ence($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::H <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6810	6932	
==>decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($va <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6810	6932	
==>decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($va <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1439	1556	
==>ce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1644	1761	
==>ce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1705	1822	
==>ce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5435	5599	
==>end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5435	5599	
==>end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5435	5599	
==>end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $l <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5313	5446	
==>end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5313	5446	
==>end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1414	1550	
==>ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tai <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1758	1889	
==>ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tai <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1365	1496	
==>ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1758	1889	
==>ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tai <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5681	5779	
==>ass method.  Returns a category object.

options:

=item * name => $category_name - the name of thi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4694	4790	
==>=~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4916	5012	
==>=~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16700	16832	
==>()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16979	17111	
==>()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12432	12530	
==>not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12432	12530	
==>not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12432	12530	
==>not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attrib <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4837	4953	
==>$1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4837	4953	
==>$1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36161	36296	
==>until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36161	36296	
==>until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36161	36296	
==>until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @t <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2045	2138	
==>----------------------
## adding children 

method add_child ($self: Tree $child) returns Tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2045	2138	
==>----------------------
## adding children 

method add_child ($self: Tree $child) returns Tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11113	11237	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11113	11237	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11113	11237	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23870	23983	
==>/* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #de <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29047	29148	
==>/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5343	5472	
==>il isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5343	5472	
==>il isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5343	5472	
==>il isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &inf <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7920	8006	
==>->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_sca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1745	1831	
==>->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_sca <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5818	5932	
==>ue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$min <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5818	5932	
==>ue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$min <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7886	7994	
==>N($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOW <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1905	2084	
==>>( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# exp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1905	2084	
==>>( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13135	13264	
==>$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13135	13264	
==>$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13135	13264	
==>$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4553	4792	
==>$_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $p <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1668	1767	
==>m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32-> <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	492	584	
==>lse.

More specialised processing instructions may sub-class this module or
provide special b <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	492	584	
==>lse.

More specialised processing instructions may sub-class this module or
provide special b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1561	1648	
==>m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8517	8641	
==>( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8221	8338	
==>( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4623	4735	
==>attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8100	8212	
==>attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7093	7205	
==>attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rela <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	762	922	
==>}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	924	1084	
==>}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4413	4526	
==>%param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4413	4526	
==>%param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4413	4526	
==>%param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7333	7435	
==>TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7333	7435	
==>TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7333	7435	
==>TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16537	16630	
==>e the program is executing.

Locale::KeyedText gives your application the maximum amount of co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16537	16630	
==>e the program is executing.

Locale::KeyedText gives your application the maximum amount of co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15372	15536	
==>{ 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15372	15536	
==>{ 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15372	15536	
==>{ 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11597	11693	
==>e not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence in <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11597	11693	
==>e not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7521	7673	
==>t && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7521	7673	
==>t && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7521	7673	
==>t && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // P <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16478	16572	
==>ecompile (such as by simply
copying files), often even while the program is executing.

Locale: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16478	16572	
==>ecompile (such as by simply
copying files), often even while the program is executing.

Locale: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	601	706	
==>ate>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	601	706	
==>ate>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2598	2702	
==>die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2598	2702	
==>die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2598	2702	
==>die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14258	14470	
==>_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff direc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14258	14470	
==>_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff direc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14258	14470	
==>_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff direc <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10317	10417	
==>.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

R <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10317	10417	
==>.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

R <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4422	4537	
==>\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with req <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4422	4537	
==>\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with req <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1275	1372	
==>y) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1275	1372	
==>y) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1275	1372	
==>y) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_do <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5996	6119	
==>$final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6386	6509	
==>$final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4496	4619	
==>$final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4888	5011	
==>$final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	410	509	
==>n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($pat,$str,$ok,$thing,$value,@rest)=sp <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3183	3304	
==>tion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descriptio <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3183	3304	
==>tion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4707	4828	
==>tion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descriptio <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1704	1802	
==>Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1704	1802	
==>Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9541	9659	
==>ar orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9541	9659	
==>ar orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9541	9659	
==>ar orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	623	727	
==>tion = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descr <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	623	727	
==>tion = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4771	4942	
==>tore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4771	4942	
==>tore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4771	4942	
==>tore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	542	667	
==>!! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $strin <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	542	667	
==>!! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $strin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1538	1671	
==>_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1538	1671	
==>_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2647	2745	
==>)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2647	2745	
==>)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2647	2745	
==>)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7438	7607	
==>entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	739	908	
==>entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	89	175	
==>----------------------------------------------------------------
## now for some bootst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	89	175	
==>----------------------------------------------------------------
## now for some bootst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	89	175	
==>----------------------------------------------------------------
## now for some bootst <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4094	4255	
==>nstant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = ev <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5415	5576	
==>nstant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4094	4255	
==>nstant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5403	5564	
==>nstant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = ev <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11521	11636	
==>$S0 = substr target, pos, 2
    if $S0 == ": " goto subrule_text
    $S0 = substr target, pos, 1
    if $S0 != " " g <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17958	18083	
==>M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17958	18083	
==>M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19946	20069	
==>~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{fl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16367	16490	
==>~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{fl <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	241	340	
==>@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1362	1479	
==>n;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1362	1479	
==>n;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1362	1479	
==>n;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9002	9104	
==>.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9002	9104	
==>.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $sp <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2186	2469	
==>mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2186	2469	
==>mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6401	6614	
==>hould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6401	6614	
==>hould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6401	6614	
==>hould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12175	12281	
==>map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12175	12281	
==>map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12175	12281	
==>map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	960	1062	
==>~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>( <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	960	1062	
==>~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13160	13346	
==>nf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13160	13346	
==>nf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13160	13346	
==>nf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::Li <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	190	329	
==>P::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	190	329	
==>P::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2058	2206	
==>state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2474	2619	
==>state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1990	2135	
==>state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2474	2619	
==>state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if <==
5	/Users/nnunley/pugs/util/addauthors.pl	945	1055	
==>r) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7924	8060	
==>if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7924	8060	
==>if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6309	6413	
==>LF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6309	6413	
==>LF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6309	6413	
==>LF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	894	1000	
==>/ The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	894	1000	
==>/ The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	894	1000	
==>/ The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = ( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1563	1656	
==>:Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1563	1656	
==>:Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1350	1457	
==>fix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1350	1457	
==>fix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1350	1457	
==>fix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is a <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3549	3651	
==>e2',  $file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3rd line\n2nd line\n1st line\n" ], <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2968	3067	
==>......ok
  t/ok................ok
  t/test-harness......ok
  t/waterloo..........dubious
          T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11665	11788	
==>nboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11665	11788	
==>nboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11665	11788	
==>nboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	615	712	
==>phers simply by changing the class name used.

Ciphers used with the Cipher API must operate on by <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	615	712	
==>phers simply by changing the class name used.

Ciphers used with the Cipher API must operate on by <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5562	5726	
==>n invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5562	5726	
==>n invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5562	5726	
==>n invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type = <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2932	3038	
==>matchObj );
  if ( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $matchObj->from <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	27361	27455	
==>x 'str'))(id)");
is(t($fac), "int → int", ":t fac");
is(t($length), "∀α. list α → int", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	809	937	
==>class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	809	937	
==>class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	809	937	
==>class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7588	7702	
==>ub emit {
    my($o)=@_;
    my $re = $o->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30987	31083	
==>llowing attributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object wit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13816	13986	
==>ad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13816	13986	
==>ad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5854	5953	
==>$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5854	5953	
==>$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5854	5953	
==>$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5288	5454	
==>art =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infi <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5288	5454	
==>art =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	614	723	
==>- hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	614	723	
==>- hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	5820	5908	
==>emplate->param(files => $total_files);
$template->param(links => $total_links);
print $fh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1432	1681	
==>e::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Inte <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1432	1681	
==>e::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	169	269	
==>::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	169	269	
==>::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	169	269	
==>::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2322	2436	
==>ses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2322	2436	
==>ses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1838	1939	
==>GS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1838	1939	
==>GS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1838	1939	
==>GS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10660	10767	
==>zy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Include <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10660	10767	
==>zy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Include <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3323	3422	
==>as to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3323	3422	
==>as to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3323	3422	
==>as to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([Li <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1041	1141	
==>t $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1041	1141	
==>t $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1588	1688	
==>t $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	800	889	
==>file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Null <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	800	889	
==>file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Null <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10708	10811	
==>ny( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14185	14288	
==>ny( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13484	13587	
==>ny( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8534	8635	
==>( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $spa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8534	8635	
==>( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $spa <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1912	2046	
==>ast_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    t <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1912	2046	
==>ast_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1578	1676	
==>.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1578	1676	
==>.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1578	1676	
==>.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Ro <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13568	13703	
==>ndle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13568	13703	
==>ndle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%hand <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19530	19623	
==>eE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
nec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19530	19623	
==>eE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
nec <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23120	23208	
==>tures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmSomewhere(Re,[C|Fx],F1, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7706	7844	
==>t = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7706	7844	
==>t = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14113	14231	
==>ocale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14113	14231	
==>ocale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1090	1190	
==>n $self;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->meta

The <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	157	259	
==>5-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	157	259	
==>5-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	157	259	
==>5-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Re <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1559	1654	
==>F).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1559	1654	
==>F).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5594	5729	
==>with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5606	5741	
==>with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6580	6677	
==>sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6580	6677	
==>sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6580	6677	
==>sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fro <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	75	175	
==>Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within th <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	75	175	
==>Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within th <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30860	30954	
==>ial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is id <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35410	35504	
==>ial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is id <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34601	34695	
==>ial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is id <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4768	4918	
==>re_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $selec <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4768	4918	
==>re_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $selec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40709	40821	
==>_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40709	40821	
==>_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40709	40821	
==>_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1708	1809	
==>:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1708	1809	
==>:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1708	1809	
==>:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20970	21066	
==>ing this sort of functionality to Perl packages
or programs.  Your package or program can be dist <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20970	21066	
==>ing this sort of functionality to Perl packages
or programs.  Your package or program can be dist <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	89	191	
==>-------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!pa <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	89	191	
==>-------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19232	19327	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19232	19327	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19232	19327	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4843	4997	
==>||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4843	4997	
==>||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12743	12827	
==>piX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12743	12827	
==>piX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::E <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12743	12827	
==>piX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::E <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9558	9668	
==>msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9558	9668	
==>msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23889	23978	
==>UB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23889	23978	
==>UB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$q <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23889	23978	
==>UB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$q <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	485	596	
==>code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	256	364	
==>serv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11691	11841	
==>alue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'd <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11691	11841	
==>alue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'd <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11691	11841	
==>alue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'd <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11808	11923	
==>:Skip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.nu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2230	2337	
==>:Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.nu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2230	2337	
==>:Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3380	3473	
==>die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3380	3473	
==>die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4359	4545	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4359	4545	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4359	4545	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	232	330	
==>optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	220	316	
==>optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	496	644	
==>e eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $su <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	496	644	
==>e eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $su <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4239	4380	
==>turn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4239	4380	
==>turn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2507	2638	
==>. '/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse package names eas <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1184	1299	
==>b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1184	1299	
==>b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7131	7241	
==>c PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7131	7241	
==>c PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7131	7241	
==>c PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	495	603	
==>le(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	495	603	
==>le(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5425	5521	
==>6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5425	5521	
==>6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5425	5521	
==>6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	222	335	
==>lable;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21693	21789	
==>nal line received from the server (unmodified).

=item C<server>

The server the line was sent fr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20574	20670	
==>nal line received from the server (unmodified).

=item C<server>

The server the line was sent fr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21693	21789	
==>nal line received from the server (unmodified).

=item C<server>

The server the line was sent fr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20574	20670	
==>nal line received from the server (unmodified).

=item C<server>

The server the line was sent fr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3677	3785	
==>for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3677	3785	
==>for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	78	181	
==>ist' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	78	181	
==>ist' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	78	181	
==>ist' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3614	3726	
==>er = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.go <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3672	3784	
==>er = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.go <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3162	3277	
==>st;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3162	3277	
==>st;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	382	493	
==>q 'Num'  && defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pug <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3745	3854	
==>st;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3745	3854	
==>st;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5886	5990	
==>erpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5874	5978	
==>erpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11727	11827	
==>der('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11727	11827	
==>der('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new fi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19441	19525	
==>match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18010	18100	
==>ax),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0 <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18321	18411	
==>ax),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4626	4715	
==>w(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::Lex <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4626	4715	
==>w(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::Lex <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5216	5305	
==>w(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::Lex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1721	1863	
==>class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1721	1863	
==>class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1721	1863	
==>class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	309	404	
==>earMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	309	404	
==>earMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12181	12412	
==>a( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12181	12412	
==>a( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12181	12412	
==>a( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16600	16703	
==>tf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21026	21129	
==>tf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1616	1751	
==>);
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Function <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1616	1751	
==>);
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Function <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13558	13668	
==>et of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17035	17145	
==>et of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16397	16507	
==>et of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6003	6106	
==>});   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6003	6106	
==>});   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6003	6106	
==>});   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wou <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1200	1298	
==>tp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymou <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1167	1265	
==>tp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11248	11483	
==>tems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11248	11483	
==>tems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11248	11483	
==>tems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3221	3312	
==>rst value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3221	3312	
==>rst value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5069	5164	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flav <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1026	1121	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flav <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	886	981	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flav <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5069	5164	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flav <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1026	1121	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flav <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	360	463	
==>ange. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	905	1008	
==>ange. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	360	463	
==>ange. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	905	1008	
==>ange. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	905	1008	
==>ange. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5922	6103	
==>end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5922	6103	
==>end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5922	6103	
==>end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20082	20180	
==>t general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to d <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20082	20180	
==>t general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36249	36390	
==>>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # pr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36249	36390	
==>>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # pr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36249	36390	
==>>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # pr <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	620	717	
==>E

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Se <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	620	717	
==>E

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15808	15953	
==>_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15808	15953	
==>_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15808	15953	
==>_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1330	1428	
==>return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1330	1428	
==>return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1017	1141	
==>on.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1017	1141	
==>on.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1017	1141	
==>on.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	944	1036	
==>oesn't distinguish 
between enciphering and deciphering operations.)

Although it is secure w <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	944	1036	
==>oesn't distinguish 
between enciphering and deciphering operations.)

Although it is secure w <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30791	30893	
==>t Name comes first and makes up most of the module name; it
must be the same for every module in the sa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30791	30893	
==>t Name comes first and makes up most of the module name; it
must be the same for every module in the sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4519	4614	
==>$sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4519	4614	
==>$sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4519	4614	
==>$sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2373	2478	
==>od is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2373	2478	
==>od is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	548	646	
==>SS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	548	646	
==>SS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	548	646	
==>SS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory res <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1278	1401	
==>s = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1278	1401	
==>s = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1278	1401	
==>s = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1023	1127	
==>thods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Ba <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1023	1127	
==>thods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	618	714	
==>y (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	618	714	
==>y (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	618	714	
==>y (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36714	36809	
==>ng the Translator object's Set and Member properties; if none
could be matched, this method retu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36714	36809	
==>ng the Translator object's Set and Member properties; if none
could be matched, this method retu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24699	24796	
==>later version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5639	5736	
==>ly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24699	24796	
==>later version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5639	5736	
==>ly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5639	5736	
==>ly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5369	5490	
==>de = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6637	6758	
==>de = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5369	5490	
==>de = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6625	6746	
==>de = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1358	1451	
==>self.SUPER::set_superclasses($super);

}

method all_superclasses($self:) returns Set {
    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1821	1951	
==>t_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1821	1951	
==>t_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1821	1951	
==>t_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10607	10699	
==>ed correctly
depending on their types, that their attributes have reasonable values, and
that <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10607	10699	
==>ed correctly
depending on their types, that their attributes have reasonable values, and
that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5158	5310	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextk <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5158	5310	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextk <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5158	5310	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextk <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	688	813	
==>rect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidd <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	688	813	
==>rect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidd <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12621	12775	
==>URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12621	12775	
==>URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8934	9060	
==>implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cs <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8934	9060	
==>implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	366	475	
==>)" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	366	475	
==>)" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	366	475	
==>)" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11411	11531	
==>->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11411	11531	
==>->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11411	11531	
==>->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9026	9121	
==>ta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9026	9121	
==>ta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4064	4165	
==>[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation out <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4064	4165	
==>[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation out <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4064	4165	
==>[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation out <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	413	511	
==>cal ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_down (Nu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35456	35552	
==>mple has either all of the tuples of
the original, or has zero tuples, respectively.  This method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	610	748	
==>=> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	610	748	
==>=> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	610	748	
==>=> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3519	3613	
==>c difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.diff <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3519	3613	
==>c difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.diff <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18765	18875	
==>{
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20123	20233	
==>{
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5065	5160	
==>n{syncat};
  $position = $operator->to();
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_PREFIX <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19199	19291	
==>le C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19199	19291	
==>le C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	467	641	
==>') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5366	5485	
==>$code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6634	6753	
==>$code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5366	5485	
==>$code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6622	6741	
==>$code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5019	5190	
==>) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    matc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5019	5190	
==>) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    matc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5019	5190	
==>) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3662	3785	
==>d_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3855	3978	
==>d_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14758	14887	
==>0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14758	14887	
==>0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14758	14887	
==>0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOL <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	954	1069	
==>s Bool is builtin is primitive is unsafe {
        # say "e:args:" ~ @args.perl; # XXX delme
        Pugs::Internals <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26190	26285	
==>Relation::Example Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2004	2109	
==>ndef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2004	2109	
==>ndef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2004	2109	
==>ndef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2079	2174	
==>ead1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # user <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2001	2093	
==>ead1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # user <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11854	12081	
==>if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11854	12081	
==>if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11854	12081	
==>if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_par <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11378	11474	
==>cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14855	14951	
==>cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8912	9024	
==>abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8912	9024	
==>abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8912	9024	
==>abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5739	5847	
==>->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	317	416	
==>ub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::DuplicateF <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	602	731	
==>+$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	807	936	
==>+$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	863	992	
==>+$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	244	366	
==>];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	242	364	
==>];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11299	11428	
==>$name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_creat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11299	11428	
==>$name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_creat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11299	11428	
==>$name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_creat <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19767	19864	
==>tion will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organiz <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19767	19864	
==>tion will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organiz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	524	652	
==>$src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	524	652	
==>$src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	524	652	
==>$src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7953	8062	
==>l_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi;
    if(api == 13) { <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2414	2503	
==>nfix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", "<infix:&", "lef <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1997	2120	
==>e,
				struct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	my $to <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5035	5154	
==>ub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16071	16190	
==>ub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17559	17678	
==>ub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22242	22361	
==>ub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1488	1589	
==>ion for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=ite <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1488	1589	
==>ion for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20960	21057	
==>1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20960	21057	
==>1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20960	21057	
==>1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4928	5045	
==>n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. ( <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4928	5045	
==>n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4835	4944	
==>S.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4835	4944	
==>S.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4835	4944	
==>S.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11760	11870	
==>tus;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      method rep <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2190	2288	
==>tus;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method rep <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2190	2288	
==>tus;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method rep <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	60	154	
==>ce.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    do <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	60	154	
==>ce.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13214	13416	
==>me } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13214	13416	
==>me } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13214	13416	
==>me } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            wa <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4324	4415	
==>.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4324	4415	
==>.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1708	1828	
==>find $Repodir -type f | grep '$Metaext\$'] ) {
        chomp $meta;
        
        print "Indexing '" . basename($meta) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6263	6367	
==>nd %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6263	6367	
==>nd %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2283	2380	
==>code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATOR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2283	2380	
==>code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATOR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	125	531	
==>(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	125	531	
==>(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	639	744	
==>end the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	639	744	
==>end the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	639	744	
==>end the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes l <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	689	814	
==>Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	689	814	
==>Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11264	11373	
==>y $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11264	11373	
==>y $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11264	11373	
==>y $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7599	7751	
==>should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7611	7763	
==>should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitti <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	269	365	
==>JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	269	365	
==>JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	269	365	
==>JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10174	10283	
==>(keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10174	10283	
==>(keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10174	10283	
==>(keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1006	1113	
==>_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1006	1113	
==>_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4601	4713	
==>odo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4659	4771	
==>odo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2718	2808	
==>rn ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2718	2808	
==>rn ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2718	2808	
==>rn ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_met <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2053	2159	
==>lines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2053	2159	
==>lines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

= <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5557	5662	
==>nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->for <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1292	1389	
==>lines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3153	3250	
==>lines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13160	13315	
==>->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # const <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13160	13315	
==>->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # const <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13160	13315	
==>->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # const <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10393	10504	
==>est{skip_all} and length $test{skip_all}) {
                print "skipped\n        all skipped: $test{skip_all} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34397	34489	
==>(C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6820	6969	
==>for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3320	3420	
==>6; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ': <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4657	4757	
==>6; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ': <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3320	3420	
==>6; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ': <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4879	4979	
==>6; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ': <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1145	1252	
==>_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1145	1252	
==>_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6918	7013	
==>matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6918	7013	
==>matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6918	7013	
==>matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4544	4646	
==>an;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 ) <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4544	4646	
==>an;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 ) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6435	6531	
==>turns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6435	6531	
==>turns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8632	8728	
==>turns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	575	680	
==>$bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for ' <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	575	680	
==>$bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11271	11364	
==>BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
becau <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11271	11364	
==>BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
becau <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11271	11364	
==>BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
becau <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3189	3310	
==>p",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3189	3310	
==>p",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3189	3310	
==>p",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3363	3456	
==>::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3363	3456	
==>::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1450	1593	
==>a) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1450	1593	
==>a) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1865	1980	
==>o a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1865	1980	
==>o a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {und <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1865	1980	
==>o a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {und <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13696	13816	
==>', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['En <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13696	13816	
==>', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['En <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30781	30874	
==>ut
that any duplicates following the transformation have been eliminated. 
Trivial cases are w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35332	35424	
==>ut
that any duplicates following the transformation have been eliminated.
Trivial cases are w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34523	34615	
==>ut
that any duplicates following the transformation have been eliminated.
Trivial cases are w <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6960	7097	
==>{
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.curr <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6960	7097	
==>{
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13418	13539	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13418	13539	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13418	13539	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2113	2294	
==>r that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3705	3882	
==>r that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1984	2081	
==>mt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1984	2081	
==>mt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compi <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2833	2922	
==>ition})\s*($RE{balanced}{-parens=>'()'})\s*($RE{balanced}{-parens=>'{}'})/){
        my ($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18067	18212	
==>'s $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $name;
    $na <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14133	14236	
==>ression :words {  # see 11.2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :word <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3747	3848	
==>CK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3747	3848	
==>CK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3747	3848	
==>CK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get th <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8659	8778	
==>lf, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.unio <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8659	8778	
==>lf, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.unio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4754	4867	
==>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4754	4867	
==>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4754	4867	
==>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16258	16379	
==>_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16252	16373	
==>_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3273	3369	
==>{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3273	3369	
==>{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3273	3369	
==>{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12088	12182	
==>ool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since we <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12146	12240	
==>ool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since we <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1932	2024	
==>ferent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1932	2024	
==>ferent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1932	2024	
==>ferent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	750	848	
==>t_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nm <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9528	9621	
==>setta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9528	9621	
==>setta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Mod <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	643	733	
==>t_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8966	9055	
==>method fails';
fails_ok { $iFoo->singleton_test_on_object } '... instance calling metaclas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7784	7908	
==>();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7784	7908	
==>();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7784	7908	
==>();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret- <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5446	5557	
==>\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @te <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	547	644	
==>(or possibly
    # the default values too)
    (blessed($signature) && ($signature->isa('closure:: <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2878	2982	
==>tproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2878	2982	
==>tproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4083	4180	
==>$method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4083	4180	
==>$method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4083	4180	
==>$method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38653	38778	
==>>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38653	38778	
==>>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38653	38778	
==>>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $arr <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7167	7261	
==>header')>

This event is fired after the '=head(n)' directive and it's accompanying text has be <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7167	7261	
==>header')>

This event is fired after the '=head(n)' directive and it's accompanying text has be <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15052	15156	
==>pper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9251	9355	
==>pper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4713	4802	
==>:Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4713	4802	
==>:Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4713	4802	
==>:Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1059	1178	
==>^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sit <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1059	1178	
==>^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6326	6440	
==>= $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6326	6440	
==>= $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6326	6440	
==>= $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2330	2431	
==>[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2330	2431	
==>[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2330	2431	
==>[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5333	5430	
==>e> method the file for the properties, and writes it
to disk.  Returns boolean value of success or <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5333	5430	
==>e> method the file for the properties, and writes it
to disk.  Returns boolean value of success or <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25900	26047	
==>,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26179	26326	
==>,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5527	5638	
==>ttr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5527	5638	
==>ttr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5527	5638	
==>ttr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	832	935	
==>hen Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	832	935	
==>hen Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	832	935	
==>hen Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	733	828	
==>lus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_diffe <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	733	828	
==>lus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_diffe <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8534	8632	
==>ks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8592	8690	
==>ks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Te <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1876	2019	
==>rn $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1876	2019	
==>rn $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3608	3700	
==>tem C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=bac <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3608	3700	
==>tem C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=bac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1737	1828	
==>ed"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1737	1828	
==>ed"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1737	1828	
==>ed"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	49	160	
==>ngs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	49	160	
==>ngs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	49	160	
==>ngs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1194	1290	
==>now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1194	1290	
==>now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	4280	4380	
==>ne function, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5645	5752	
==>turn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6198	6305	
==>turn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5838	5945	
==>turn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6391	6498	
==>turn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	654	741	
==>line::Parrot::PMC::interpreter=$i;
run_bytecode($i,"loadlib.pbc");
print $msg;
print "Da <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	959	1089	
==>(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	959	1089	
==>(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	959	1089	
==>(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2014	2115	
==>ass->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2014	2115	
==>ass->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1826	1980	
==>tance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2031	2185	
==>tance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2094	2248	
==>tance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercla <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1129	1269	
==>eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1129	1269	
==>eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	373	623	
==>e Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Eng <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	373	623	
==>e Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Eng <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7278	7383	
==>b expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7278	7383	
==>b expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7278	7383	
==>b expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


p <==
5	/Users/nnunley/pugs/util/importgraph.pl	1031	1145	
==>"Unrecognised import|module: $_";
    }
  }

  close $fh;

  unless (defined $module_name) {
    warn "couldn't fin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22293	22386	
==>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specif <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21165	21258	
==>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specif <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22293	22386	
==>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specif <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21165	21258	
==>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specif <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23673	23761	
==>lace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3403	3596	
==>$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3403	3596	
==>$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3403	3596	
==>$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$. <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3404	3496	
==>)\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	568	659	
==>(?(condition)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5723	5846	
==>, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5541	5661	
==>, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{a <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4019	4128	
==>"};" is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comments and docs while <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13663	13821	
==>perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tai <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9847	10005	
==>perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tai <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10683	10841	
==>perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tai <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4079	4184	
==>');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5981	6086	
==>');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15224	15395	
==>$array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15224	15395	
==>$array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15224	15395	
==>$array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4232	4348	
==>ew( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_co <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4232	4348	
==>ew( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8157	8392	
==>calar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8157	8392	
==>calar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8157	8392	
==>calar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($s <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	778	900	
==>:Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	778	900	
==>:Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2159	2275	
==>compile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2607	2714	
==>al->new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
5	/Users/nnunley/pugs/util/package-osx.pl	8269	8366	
==>al/man/man3/Perl6::Spec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr/loc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	32	128	
==>mar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	32	128	
==>mar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27605	27763	
==>" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27884	28042	
==>" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17875	17966	
==>TI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17875	17966	
==>TI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17875	17966	
==>TI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4196	4324	
==>atch.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4196	4324	
==>atch.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	639	748	
==>ue = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // htt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	639	748	
==>ue = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // htt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	639	748	
==>ue = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // htt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5638	5754	
==>role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5638	5754	
==>role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5638	5754	
==>role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10253	10362	
==>bly be faster)

    # also, the signature for this sub is nowhere near finalized; it should
    # support asyn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4492	4595	
==>s to 1 in Rules.

=item * Perl5 => 1 - Use Perl 5 grammar and semantics for Regex.

=head2 match (Str $m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4177	4274	
==>match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4177	4274	
==>match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	75	169	
==>t.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	190	284	
==>nverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlExc <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	75	169	
==>t.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	190	284	
==>nverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlExc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	190	284	
==>nverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlExc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2750	2850	
==>rn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2750	2850	
==>rn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2750	2850	
==>rn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eig <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4387	4486	
==>d captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4387	4486	
==>d captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9394	9499	
==>'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9394	9499	
==>'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9394	9499	
==>'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPar <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5990	6082	
==>LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5990	6082	
==>LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5632	5751	
==>$line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5632	5751	
==>$line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    r <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4977	5084	
==>r]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4977	5084	
==>r]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PI <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1881	1988	
==>r]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PI <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8753	8845	
==>Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2860	2952	
==>$vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8753	8845	
==>Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2860	2952	
==>$vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2860	2952	
==>$vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3787	3917	
==>( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitial <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3787	3917	
==>( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitial <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4222	4337	
==>_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4210	4325	
==>_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] } <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4167	4265	
==>alue (JSX::InternalValue::Reference $V) {
    my $Result2 = GetBase($V);
    raise ReferenceError i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13925	14046	
==>ted {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel") <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13925	14046	
==>ted {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel") <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2407	2512	
==>pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2407	2512	
==>pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2407	2512	
==>pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18660	18838	
==>HOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18660	18838	
==>HOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18660	18838	
==>HOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $par <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1744	1879	
==>lBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BE <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1744	1879	
==>lBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BE <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22509	22652	
==>at STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3295	3432	
==>p>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4144	4281	
==>p>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1644	1764	
==>}
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1644	1764	
==>}
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = S <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18029	18137	
==>"p6analyze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return (self)
.e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18520	18615	
==>write out
that text themselves.

What Locale::KeyedText does is associate each member in a set o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18520	18615	
==>write out
that text themselves.

What Locale::KeyedText does is associate each member in a set o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16935	17072	
==>$lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13356	13493	
==>$lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5770	5869	
==>ic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5770	5869	
==>ic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5770	5869	
==>ic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Cl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9822	9940	
==>1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40550	40644	
==>THOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTI <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26064	26158	
==>THOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40550	40644	
==>THOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26064	26158	
==>THOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1447	1574	
==>data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1447	1574	
==>data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38206	38303	
==>ers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42755	42852	
==>ers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<su <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42405	42502	
==>ers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<su <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16208	16314	
==>of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12629	12735	
==>of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4755	4852	
==>ameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Buil <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	310	407	
==>sents the 
node type, which are checked against each other for agreement at BUILD time
for the bel <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	310	407	
==>sents the 
node type, which are checked against each other for agreement at BUILD time
for the bel <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4755	4852	
==>ameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Buil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6952	7049	
==>ameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Buil <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	577	701	
==>data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "T <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	577	701	
==>data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4038	4152	
==>hods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4038	4152	
==>hods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4038	4152	
==>hods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4050	4292	
==>+, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port doe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4050	4292	
==>+, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5556	5658	
==>attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5556	5658	
==>attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5556	5658	
==>attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11906	12047	
==>thod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11906	12047	
==>thod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11906	12047	
==>thod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6286	6384	
==>' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6286	6384	
==>' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1328	1452	
==>create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1328	1452	
==>create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1328	1452	
==>create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->a <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14050	14152	
==>005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14050	14152	
==>005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_sp <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3921	4024	
==>on breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3921	4024	
==>on breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27850	28006	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28129	28285	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1006	1096	
==>er_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1006	1096	
==>er_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1006	1096	
==>er_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1025	1131	
==>Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1025	1131	
==>Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1025	1131	
==>Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5408	5513	
==>r_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_st <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5408	5513	
==>r_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_st <==
5	/Users/nnunley/pugs/util/run-smoke.pl	451	543	
==>install at Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/file. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2835	2979	
==>rnation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        option <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3123	3259	
==>rnation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        option <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9541	9677	
==>rnation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        option <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3123	3259	
==>rnation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        option <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9541	9677	
==>rnation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        option <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13219	13311	
==>ntaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9891	9983	
==>ntaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13219	13311	
==>ntaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9891	9983	
==>ntaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6645	6860	
==>the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $re <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6645	6860	
==>the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1404	1502	
==>"Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1404	1502	
==>"Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1404	1502	
==>"Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6868	6985	
==>1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6868	6985	
==>1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40495	40616	
==>oxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40495	40616	
==>oxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40495	40616	
==>oxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	914	1015	
==>::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILSt <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	914	1015	
==>::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILSt <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12963	13114	
==>le( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, un <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12957	13108	
==>le( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, un <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35350	35446	
==>s
have attributes in common; it will only accept inputs that would result in
a cross-product when <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39900	39996	
==>s
have attributes in common; it will only accept inputs that would result in
a cross-product when <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39460	39556	
==>s
have attributes in common; it will only accept inputs that would result in
a cross-product when <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16859	16952	
==>ound, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16859	16952	
==>ound, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2742	2831	
==>ss->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2742	2831	
==>ss->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2742	2831	
==>ss->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14544	14684	
==>}

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14544	14684	
==>}

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14544	14684	
==>}

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6830	6970	
==>}

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5334	5474	
==>}

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all possible <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29672	29794	
==>RTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29672	29794	
==>RTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	476	582	
==>RTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1232	1336	
==>y to find out the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@ch <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1168	1263	
==>y to find out the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@ch <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22259	22355	
==>ta
does not declare any subroutines or export such.

The usual way that Rosetta indicates a failu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22259	22355	
==>ta
does not declare any subroutines or export such.

The usual way that Rosetta indicates a failu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	191	279	
==>qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	191	279	
==>qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	191	279	
==>qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6747	6885	
==>rt;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6747	6885	
==>rt;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6747	6885	
==>rt;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->sp <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	475	587	
==>mation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	475	587	
==>mation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2704	2887	
==>rary
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2704	2887	
==>rary
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8521	8616	
==>set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8521	8616	
==>set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8521	8616	
==>set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1306	1413	
==>IL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1306	1413	
==>IL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1306	1413	
==>IL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5322	5418	
==>e.

=item B<apply (closure) return list>

The closure here will be passed the current value itsel <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33762	33857	
==>exp::AndBranch> example.  Let me explain what the
'&' metacharacter will mean.  If you've used F <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22324	22440	
==>l prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18745	18861	
==>l prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3056	3169	
==>is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3056	3169	
==>is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3056	3169	
==>is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	636	737	
==>lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# T <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	636	737	
==>lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# T <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	636	737	
==>lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# T <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3253	3349	
==>on(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3253	3349	
==>on(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7259	7362	
==>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7259	7362	
==>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7259	7362	
==>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2188	2270	
==>tp://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if yo <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2188	2270	
==>tp://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13397	13534	
==>" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13397	13534	
==>" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13397	13534	
==>" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dis <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11441	11557	
==>eth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11441	11557	
==>eth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3395	3505	
==>lf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3395	3505	
==>lf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3395	3505	
==>lf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5177	5268	
==>Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DES <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5177	5268	
==>Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DES <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	975	1093	
==>nsity );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	975	1093	
==>nsity );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3953	4042	
==>::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3953	4042	
==>::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3953	4042	
==>::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13603	13702	
==>ters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13603	13702	
==>ters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mod <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25717	25814	
==>ays which attributes are being
renamed, with its keys being the old names and its values the new n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30269	30366	
==>ays which attributes are being
renamed, with its keys being the old names and its values the new n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29235	29332	
==>ays which attributes are being
renamed, with its keys being the old names and its values the new n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	561	818	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

cl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	561	818	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16852	16980	
==>ersal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16852	16980	
==>ersal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16852	16980	
==>ersal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1065	1184	
==>xpr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1065	1184	
==>xpr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2256	2370	
==>eturn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2256	2370	
==>eturn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2256	2370	
==>eturn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	554	654	
==>tart / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_ne <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	554	654	
==>tart / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3040	3132	
==>ript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_bas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3040	3132	
==>ript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_bas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3040	3132	
==>ript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_bas <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6130	6267	
==>har'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6323	6460	
==>har'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1838	1972	
==>atchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1838	1972	
==>atchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1838	1972	
==>atchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7475	7649	
==>fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7475	7649	
==>fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7475	7649	
==>fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fe <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6140	6266	
==>hr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6140	6266	
==>hr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3801	3901	
==>s="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3801	3901	
==>s="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3801	3901	
==>s="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id= <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	582	674	
==>$node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trig <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	582	674	
==>$node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trig <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	86	185	
==>},
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	86	185	
==>},
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	86	185	
==>},
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31709	31807	
==>r from a user config file or a user interface that the
current user is fluent in (and prefers) lang <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31709	31807	
==>r from a user config file or a user interface that the
current user is fluent in (and prefers) lang <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3727	3916	
==>s;
        },                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1504	1631	
==>. ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1504	1631	
==>. ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1504	1631	
==>. ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26917	27010	
==>F<prove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	282	451	
==>ance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	282	451	
==>ance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	282	451	
==>ance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6315	6421	
==>n.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder th <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6315	6421	
==>n.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder th <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10780	10898	
==>ts in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

F <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10780	10898	
==>ts in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5940	6042	
==>om the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5940	6042	
==>om the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5940	6042	
==>om the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pack <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5626	5724	
==>turn $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5626	5724	
==>turn $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4466	4554	
==>seClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4466	4554	
==>seClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4466	4554	
==>seClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expan <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2205	2391	
==>en 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2205	2391	
==>en 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	278	424	
==>ate?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.count <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	278	424	
==>ate?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.count <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	191	317	
==>(\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - optional, de <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7148	7246	
==>ulti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10625	10723	
==>ulti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21150	21246	
==>TI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21150	21246	
==>TI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21150	21246	
==>TI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	478	585	
==>{ ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	478	585	
==>{ ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11664	11760	
==>keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11664	11760	
==>keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11664	11760	
==>keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11329	11445	
==>rl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11329	11445	
==>rl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11329	11445	
==>rl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	690	795	
==>donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	690	795	
==>donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	670	802	
==>) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	670	802	
==>) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	670	802	
==>) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1042	1143	
==>different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1042	1143	
==>different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29829	29992	
==>m->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29829	29992	
==>m->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29829	29992	
==>m->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- ite <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26800	26893	
==>e optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26800	26893	
==>e optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3056	3199	
==>'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'le <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5281	5385	
==>_PACKAGE__ . "::$type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3936	4036	
==>rence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3936	4036	
==>rence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3936	4036	
==>rence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pug <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11794	11935	
==>, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8076	8217	
==>, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8910	9051	
==>, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4298	4402	
==>left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=pe <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4298	4402	
==>left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=pe <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4339	4440	
==>(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{", !, p <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6306	6404	
==>one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5436	5534	
==>one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6306	6404	
==>one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5436	5534	
==>one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13889	14006	
==>cher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13889	14006	
==>cher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13889	14006	
==>cher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $di <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1986	2087	
==>ethod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns Lis <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1986	2087	
==>ethod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns Lis <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9265	9371	
==>Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq " <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9265	9371	
==>Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17220	17318	
==>now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17220	17318	
==>now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17220	17318	
==>now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	181	291	
==>entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # amp <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	181	291	
==>entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # amp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8712	8815	
==>SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8712	8815	
==>SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8712	8815	
==>SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1159	1256	
==>d($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $tim <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1159	1256	
==>d($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $tim <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1159	1256	
==>d($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $tim <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5499	5591	
==>, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9097	9189	
==>, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1231	1330	
==>rns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE AL <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1231	1330	
==>rns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE AL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1778	1877	
==>rns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE AL <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28092	28189	
==>em C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32644	32741	
==>em C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1124	1223	
==>::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1124	1223	
==>::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2510	2608	
==>b {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2510	2608	
==>b {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2510	2608	
==>b {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27251	27366	
==>able_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit chang <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27251	27366	
==>able_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit chang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2755	2856	
==>c pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2755	2856	
==>c pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @AR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2755	2856	
==>c pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @AR <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23326	23457	
==>@_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19747	19878	
==>@_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1210	1315	
==>red};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1210	1315	
==>red};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1419	1524	
==>red};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1428	1550	
==>ce_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1428	1550	
==>ce_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1428	1550	
==>ce_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Per <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16658	16754	
==>'s "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16658	16754	
==>'s "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, t <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3736	3908	
==>|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is cop <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3736	3908	
==>|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is cop <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4521	4616	
==>igil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4521	4616	
==>igil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4521	4616	
==>igil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primiti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4237	4331	
==>larity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4237	4331	
==>larity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4237	4331	
==>larity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8625	8714	
==>724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8625	8714	
==>724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1672	1803	
==>AME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1672	1803	
==>AME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1672	1803	
==>AME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #wa <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	475	570	
==>( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods f <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	475	570	
==>( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3293	3427	
==>,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3486	3620	
==>,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19919	20011	
==>xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19919	20011	
==>xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19919	20011	
==>xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULT <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1650	1780	
==>ture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for pe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1584	1708	
==>ture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	9	104	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	9	104	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	9	104	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::M <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	548	653	
==>e in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 } <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	548	653	
==>e in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 } <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3665	3762	
==>algorithm description. See links or read
the source (there are about 10 lines of sparse perl in se <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3665	3762	
==>algorithm description. See links or read
the source (there are about 10 lines of sparse perl in se <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2545	2642	
==>:Interpreter - A perl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39706	39799	
==>more
information.

Locale::KeyedText is free software; you can redistribute it and/or modify
i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39706	39799	
==>more
information.

Locale::KeyedText is free software; you can redistribute it and/or modify
i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	137	243	
==>gs) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	137	243	
==>gs) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	137	243	
==>gs) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(ha <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	328	430	
==>ile @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.bu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	328	430	
==>ile @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.bu <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	7279	7399	
==>ble for design documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5513	5632	
==>*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6781	6900	
==>*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5513	5632	
==>*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6769	6888	
==>*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $cod <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3654	3796	
==>y $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4118	4260	
==>y $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	57	165	
==>ion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elem <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	57	165	
==>ion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elem <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	57	165	
==>ion (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	111	211	
==>e * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	111	211	
==>e * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	111	211	
==>e * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2576	2671	
==>nodes that contain only source representation.

=back

=head1 API METHODS

These methods must be <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2576	2671	
==>nodes that contain only source representation.

=back

=head1 API METHODS

These methods must be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2628	2766	
==>c . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2628	2766	
==>c . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2628	2766	
==>c . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2436	2545	
==>ldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2494	2603	
==>ldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	308	413	
==>Practice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	308	413	
==>Practice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3599	3695	
==>ray.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3599	3695	
==>ray.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3599	3695	
==>ray.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1854	1964	
==>) {
    if $O.property_value.exists($P) {
        my $attr = $O.property_attributes{$P};
        return JSX::fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2940	3041	
==>fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2940	3041	
==>fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2940	3041	
==>fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	135	233	
==>:Compiler::Token;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada- <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10384	10499	
==>='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I l <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10384	10499	
==>='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	438	541	
==>scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	438	541	
==>scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	438	541	
==>scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tr <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1503	1601	
==>Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2498	2596	
==>ks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compil <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1503	1601	
==>Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2498	2596	
==>ks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2498	2596	
==>ks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	192	316	
==>@_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	192	316	
==>@_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3258	3362	
==>te' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3258	3362	
==>te' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3258	3362	
==>te' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	378	477	
==>ist context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	378	477	
==>ist context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	378	477	
==>ist context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15427	15516	
==>Rosetta incorporates a complete and uncompromising implementation of "The
Third Manifesto" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15427	15516	
==>Rosetta incorporates a complete and uncompromising implementation of "The
Third Manifesto" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20390	20487	
==>uld only use Example
for testing, development, and study; you should not use it in production.

Fo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20390	20487	
==>uld only use Example
for testing, development, and study; you should not use it in production.

Fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4104	4198	
==>ant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4104	4198	
==>ant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4104	4198	
==>ant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9850	9965	
==>hese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9850	9965	
==>hese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9850	9965	
==>hese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	151	253	
==>e system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits fr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	144	244	
==>e system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits fr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11418	11528	
==>$other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        retu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14895	15005	
==>$other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        retu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26376	26470	
==>es of the original (or rather, the corresponding projection of
each tuple), but that any duplic <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30928	31022	
==>es of the original (or rather, the corresponding projection of
each tuple), but that any duplic <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29930	30024	
==>es of the original (or rather, the corresponding projection of
each tuple), but that any duplic <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	51	169	
==>rnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
us <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	49	167	
==>rnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
us <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3421	3522	
==>instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3421	3522	
==>instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3421	3522	
==>instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2397	2510	
==>e < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2397	2510	
==>e < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	993	1096	
==>ndard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	993	1096	
==>ndard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	993	1096	
==>ndard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13991	14151	
==>i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13991	14151	
==>i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13991	14151	
==>i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The . <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6253	6413	
==>i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The . <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4755	4915	
==>i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            # The . <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2934	3044	
==>->VERSION;
    my %values  = %{ $self->{'values'} };

    delete $values{sign};
    if ( my $perl_version = del <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14026	14168	
==>[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14026	14168	
==>[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14026	14168	
==>[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice-> <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10307	10409	
==>{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $code_ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21552	21648	
==>class_member(class_pos(X)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_member(class_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	358	467	
==>ke structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subna <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	358	467	
==>ke structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	329	432	
==>provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	329	432	
==>provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	329	432	
==>provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5529	5643	
==>h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5529	5643	
==>h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2241	2350	
==>=> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2241	2350	
==>=> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2241	2350	
==>=> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9239	9338	
==>unction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9239	9338	
==>unction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9239	9338	
==>unction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19642	19735	
==>thods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19642	19735	
==>thods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14808	14956	
==>map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14808	14956	
==>map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14808	14956	
==>map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$sel <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11567	11706	
==>ed;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11567	11706	
==>ed;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push( <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5211	5340	
==>rt    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5913	6012	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5043	5142	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5913	6012	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5043	5142	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	386	488	
==>n(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	386	488	
==>n(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	386	488	
==>n(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTI <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9427	9526	
==>e a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set si <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9427	9526	
==>e a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set si <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20321	20418	
==>dE<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20321	20418	
==>dE<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1475	1567	
==>de.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1475	1567	
==>de.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1475	1567	
==>de.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40348	40457	
==>this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unsh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40348	40457	
==>this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unsh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40348	40457	
==>this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unsh <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1721	1818	
==>ue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Co <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1721	1818	
==>ue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21990	22122	
==>verse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21990	22122	
==>verse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21990	22122	
==>verse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5882	5961	
==>(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5882	5961	
==>(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36652	36768	
==>>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36652	36768	
==>>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36652	36768	
==>>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splice <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1399	1502	
==>.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/b <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8293	8391	
==>ead2 C<_command>

  my $command = $self->_command();

Returns the command that runs the test.  Comb <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4922	5045	
==>T +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4922	5045	
==>T +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9452	9567	
==>= args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9452	9567	
==>= args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9452	9567	
==>= args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	300	422	
==>=> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sheb <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	300	422	
==>=> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sheb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2874	2966	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2874	2966	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2874	2966	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5501	5604	
==>$version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5501	5604	
==>$version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5501	5604	
==>$version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	831	927	
==>tract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	831	927	
==>tract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36316	36444	
==>_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36316	36444	
==>_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36316	36444	
==>_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2921	3042	
==>is is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2921	3042	
==>is is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16208	16341	
==>@tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corner) retu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8405	8508	
==>$oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8405	8508	
==>$oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12454	12600	
==>return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12454	12600	
==>return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	325	443	
==>qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5374	5471	
==>class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5374	5471	
==>class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	463	646	
==>}
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	463	646	
==>}
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	463	646	
==>}
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2863	2960	
==>count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from th <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2863	2960	
==>count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19788	19927	
==>$_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16209	16348	
==>$_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1980	2083	
==>def() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is ac <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1980	2083	
==>def() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is ac <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1980	2083	
==>def() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is ac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11867	11983	
==>f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11867	11983	
==>f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11867	11983	
==>f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @c <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	689	785	
==>A::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.n <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	689	785	
==>A::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2098	2224	
==>= @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      || <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2098	2224	
==>= @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      || <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2098	2224	
==>= @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      || <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3543	3648	
==>ar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is don <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3543	3648	
==>ar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is don <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	475	634	
==>put'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?! <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5875	5990	
==>stic: Most of the first tests (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3959	4048	
==>ue_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3959	4048	
==>ue_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3959	4048	
==>ue_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6345	6477	
==>($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6345	6477	
==>($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6345	6477	
==>($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	570	701	
==>e::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	570	701	
==>e::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	161	280	
==>atches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	161	280	
==>atches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	161	280	
==>atches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18754	18858	
==>age> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until th <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18754	18858	
==>age> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until th <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7768	7895	
==>empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7768	7895	
==>empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5276	5382	
==>hod_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5276	5382	
==>hod_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5276	5382	
==>hod_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11029	11175	
==>report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1507	1645	
==>report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1507	1645	
==>report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2065	2187	
==>($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    o <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2065	2187	
==>($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13199	13303	
==>patch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13199	13303	
==>patch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13199	13303	
==>patch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class: <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11784	11884	
==>in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8931	9031	
==>in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11784	11884	
==>in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8931	9031	
==>in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=h <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10421	10514	
==>="indent2">$ make smoke
$ ./util/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2060	2161	
==>Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$o <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2060	2161	
==>Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14831	14922	
==>sts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's ow <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14831	14922	
==>sts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's ow <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14831	14922	
==>sts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's ow <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1178	1307	
==>fess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1178	1307	
==>fess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1178	1307	
==>fess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %param <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2301	2413	
==>$tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.star <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2301	2413	
==>$tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.star <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12322	12546	
==>n_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.com <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12322	12546	
==>n_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2571	2676	
==>~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"... <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2571	2676	
==>~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"... <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2571	2676	
==>~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"... <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2560	2669	
==>@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2560	2669	
==>@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2560	2669	
==>@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. X <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12260	12359	
==>eld, $value )

Set the specified header to the given value, but only if no previous
value for that f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12260	12359	
==>eld, $value )

Set the specified header to the given value, but only if no previous
value for that f <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2354	2450	
==>ip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2354	2450	
==>ip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing th <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5307	5404	
==>, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an op <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5307	5404	
==>, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6831	6928	
==>, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an op <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8605	8697	
==>.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8605	8697	
==>.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2793	2888	
==>-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=h <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2793	2888	
==>-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=h <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3140	3235	
==>-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	792	885	
==>$compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	792	885	
==>$compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	420	562	
==>ned $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	335	477	
==>ned $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	423	565	
==>ned $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1920	2022	
==>ocate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/. <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1920	2022	
==>ocate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11608	11725	
==>$r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15085	15202	
==>$r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14420	14537	
==>$r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15058	15161	
==>OSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9257	9360	
==>OSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3077	3183	
==>data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<d <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3077	3183	
==>data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8195	8277	
==>GH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8195	8277	
==>GH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8195	8277	
==>GH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1639	1751	
==>t_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$ta <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1639	1751	
==>t_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2180	2288	
==>py and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2180	2288	
==>py and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2180	2288	
==>py and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1004	1109	
==>w< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1004	1109	
==>w< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1004	1109	
==>w< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} } <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14964	15051	
==>ies qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entiti <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14964	15051	
==>ies qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entiti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1379	1484	
==>de} = eval 
        $self->{perl5};
    carp "Error in perl 5 evaluation: $@\nSource:\n$self->{perl5}\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3	100	
==>ckage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3	100	
==>ckage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3	100	
==>ckage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Met <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	493	585	
==>("$_/blibjs/", 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Conf <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6326	6429	
==>ns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5456	5559	
==>ns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6326	6429	
==>ns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5456	5559	
==>ns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23231	23331	
==>r>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words { <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2934	3042	
==>::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2934	3042	
==>::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8043	8147	
==>die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shif <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12036	12136	
==>die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shif <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12036	12136	
==>die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5673	5851	
==>g = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5673	5851	
==>g = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5673	5851	
==>g = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2255	2368	
==>$class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2255	2368	
==>$class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	534	724	
==>le' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Ski <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	534	724	
==>le' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Ski <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32436	32549	
==>pen' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means that when a <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	735	838	
==>tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here" <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	735	838	
==>tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here" <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12749	12851	
==>so, it maybe probably be
in terms of longest non-infinite.  -law]

=back



=head2 Hash

=over 4

=item <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11411	11508	
==>( $recurrence )`

Returns only the elements in this recurrence that are also in the given recurren <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11411	11508	
==>( $recurrence )`

Returns only the elements in this recurrence that are also in the given recurren <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12405	12501	
==>ns the element in the recurrence that is closest to the parameter.
If both previous and next elem <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12405	12501	
==>ns the element in the recurrence that is closest to the parameter.
If both previous and next elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	154	251	
==>s so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	154	251	
==>s so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	154	251	
==>s so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  re <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13504	13598	
==>o_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is T <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13504	13598	
==>o_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26212	26377	
==>oin( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26212	26377	
==>oin( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26212	26377	
==>oin( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	240	341	
==>*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)" <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	240	341	
==>*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3234	3348	
==>value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $hu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3234	3348	
==>value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $hu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3234	3348	
==>value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $hu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16721	16815	
==>possible that one could write a self-contained application in
Rosetta D and compile that into i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16721	16815	
==>possible that one could write a self-contained application in
Rosetta D and compile that into i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7577	7700	
==>eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7577	7700	
==>eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	560	666	
==>even => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	560	666	
==>even => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	560	666	
==>even => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11456	11586	
==>r = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11450	11580	
==>r = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4579	4697	
==>\"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4579	4697	
==>\"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4579	4697	
==>\"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = o <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9620	9738	
==>mbership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9620	9738	
==>mbership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4551	4649	
==>:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4551	4649	
==>:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4551	4649	
==>:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Ha <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	496	648	
==>egex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	496	648	
==>egex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2009	2160	
==>_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2009	2160	
==>_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2009	2160	
==>_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11783	11916	
==>n with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15260	15393	
==>n with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14595	14728	
==>n with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15207	15304	
==>)`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are av <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15207	15304	
==>)`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are av <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	833	929	
==>lutter::int_size($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <= $^n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20211	20306	
==>m the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19170	19265	
==>m the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20211	20306	
==>m the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19170	19265	
==>m the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bo <==
5	/Users/nnunley/pugs/util/package-osx.pl	3239	3336	
==>/Perl6/Pugs/.packlist
        /Library/Perl/5.8.6/v6.pm
        /Library/Perl/5.8.6/Inline/Pugs.pm <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3212	3318	
==>$event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our userna <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3212	3318	
==>$event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our userna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6610	6711	
==>foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6610	6711	
==>foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6610	6711	
==>foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9992	10200	
==>{
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20729	20903	
==>param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CEL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20729	20903	
==>param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CEL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20729	20903	
==>param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CEL <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2312	2472	
==>{
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13406	13509	
==>_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7615	7718	
==>_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36728	36826	
==>s, in which case the result does too.  Another trivial case is if any
source relation is the identi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41277	41375	
==>s, in which case the result does too.  Another trivial case is if any
source relation is the identi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40900	40998	
==>s, in which case the result does too.  Another trivial case is if any
source relation is the identi <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1286	1423	
==>9..27]);

        if ( defined $/[28] ) {
            $duration = duration($/[29..35]);
            $duration.start = $start;
        } el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9419	9523	
==>tor/accessor

    # -----------------------------------------------      
    # this collects a unique li <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9419	9523	
==>tor/accessor

    # -----------------------------------------------      
    # this collects a unique li <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9419	9523	
==>tor/accessor

    # -----------------------------------------------      
    # this collects a unique li <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34002	34099	
==>x> can be matched
at the same location".  Therefore it would be represented in Perl with a
look-ah <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3348	3494	
==>=> -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified exp <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3348	3494	
==>=> -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	761	849	
==>@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Objec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	761	849	
==>@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Objec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	761	849	
==>@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Objec <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	628	738	
==>g;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Some experimental ver <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5442	5544	
==>N", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5442	5544	
==>N", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12456	12553	
==>2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a super <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12456	12553	
==>2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a super <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2813	2908	
==>ral' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2813	2908	
==>ral' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17264	17357	
==>};
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17264	17357	
==>};
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17264	17357	
==>};
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB inf <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17938	18032	
==>machine readable"; any application receiving such a code can identify
it easily in its conditio <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17938	18032	
==>machine readable"; any application receiving such a code can identify
it easily in its conditio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2137	2229	
==>)')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2137	2229	
==>)')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2137	2229	
==>)')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1541	1637	
==>s a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, whi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1541	1637	
==>s a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5641	5768	
==>n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5641	5768	
==>n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5641	5768	
==>n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2553	2666	
==>::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2553	2666	
==>::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3546	3653	
==>tovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::gl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3546	3653	
==>tovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::gl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3546	3653	
==>tovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::gl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25433	25527	
==>enses
of the other components concerned, provided that you include the source
code of the other <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25433	25527	
==>enses
of the other components concerned, provided that you include the source
code of the other <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2819	2942	
==>equired";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3283	3406	
==>equired";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	829	938	
==>ure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1034	1143	
==>ure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1090	1199	
==>ure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7213	7319	
==>$head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7213	7319	
==>$head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7213	7319	
==>$head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying ne <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17557	17654	
==>ents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17557	17654	
==>ents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1001	1132	
==>ted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1001	1132	
==>ted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6426	6529	
==>?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6426	6529	
==>?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6426	6529	
==>?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3903	4007	
==>"Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3903	4007	
==>"Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3903	4007	
==>"Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7386	7480	
==>r $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7386	7480	
==>r $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8234	8382	
==>my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8234	8382	
==>my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8234	8382	
==>my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    e <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5537	5634	
==>ct would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5537	5634	
==>ct would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cip <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6792	7021	
==>kie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6792	7021	
==>kie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8545	8659	
==>ce}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8545	8659	
==>ce}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8545	8659	
==>ce}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	749	859	
==>ty>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	749	859	
==>ty>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1189	1289	
==>d JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1189	1289	
==>d JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1189	1289	
==>d JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline " <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3267	3370	
==>$parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3267	3370	
==>$parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19830	19919	
==>p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19830	19919	
==>p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19830	19919	
==>p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($x <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	598	709	
==>y $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6116	6227	
==>y $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	598	709	
==>y $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6128	6239	
==>y $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { mat <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26084	26187	
==>. list α → α", "pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	my $b = type:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	918	1032	
==>topped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	918	1032	
==>topped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1173	1284	
==>on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1173	1284	
==>on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1173	1284	
==>on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $sel <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15621	15734	
==>=~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10477	10590	
==>=~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	973	1077	
==>y
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	973	1077	
==>y
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	973	1077	
==>y
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2339	2470	
==>uleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2350	2481	
==>uleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10957	11065	
==>{%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code in <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10957	11065	
==>{%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1310	1408	
==>ub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1310	1408	
==>ub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1310	1408	
==>ub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3217	3313	
==>mparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3217	3313	
==>mparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3217	3313	
==>mparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functio <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26662	26754	
==>new Locale::KeyedText::Message object.
The Message Key attribute of the new object is set fro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26662	26754	
==>new Locale::KeyedText::Message object.
The Message Key attribute of the new object is set fro <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2477	2598	
==>$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (reverse <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3013	3123	
==>'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	509	608	
==>ement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	715	814	
==>ement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	196	304	
==>ix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	200	308	
==>ix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	194	302	
==>ix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	194	302	
==>ix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %op <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	663	764	
==>` namespace, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19022	19133	
==>) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not n <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19022	19133	
==>) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7128	7228	
==>"new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7128	7228	
==>"new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7128	7228	
==>"new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4499	4596	
==>AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wg <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4499	4596	
==>AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wg <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4579	4676	
==>AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wg <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	606	696	
==>ype { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	606	696	
==>ype { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5121	5229	
==>thing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5121	5229	
==>thing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5121	5229	
==>thing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13392	13501	
==>semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16869	16978	
==>semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16231	16340	
==>semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	533	637	
==>bers.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	533	637	
==>bers.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defi <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	401	533	
==>h that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  implem <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	401	533	
==>h that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  implem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5682	5787	
==>ndled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5682	5787	
==>ndled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5682	5787	
==>ndled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1716	1835	
==>oup,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1727	1846	
==>oup,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	151	248	
==>r hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	151	248	
==>r hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	151	248	
==>r hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9697	9811	
==>e_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9697	9811	
==>e_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9697	9811	
==>e_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34197	34289	
==>C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a gen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38747	38839	
==>C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a gen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	371	476	
==>2)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	371	476	
==>2)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead o <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	371	476	
==>2)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead o <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1764	1868	
==>r->new($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2853	2952	
==>}
}

package closure::signature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'b <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1334	1443	
==>end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has C <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1334	1443	
==>end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has C <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	232	333	
==>id

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, wh <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	232	333	
==>id

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, wh <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19499	19595	
==>to a string
# thiss tests that the inferrence of higher order functions is correct
my $app_to_str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40845	40960	
==>>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40845	40960	
==>>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40845	40960	
==>>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1247	1350	
==>port {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import' <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1247	1350	
==>port {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4611	4709	
==>nt version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4861	4959	
==>nt version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1104	1201	
==>this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1104	1201	
==>this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1104	1201	
==>this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1570	1668	
==>or kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1570	1668	
==>or kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1570	1668	
==>or kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21224	21319	
==>required) that each Perl package which
uses this would come up with keys which are unique across <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21224	21319	
==>required) that each Perl package which
uses this would come up with keys which are unique across <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37972	38089	
==>= $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37972	38089	
==>= $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37972	38089	
==>= $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scal <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5556	5653	
==>eb using this
function.  If you need that information you should use the full OO
interface (see L< <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5556	5653	
==>eb using this
function.  If you need that information you should use the full OO
interface (see L< <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8430	8543	
==>e => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name ' <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8430	8543	
==>e => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name ' <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13451	13602	
==>bstr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = ind <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3600	3735	
==>bstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = ind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3600	3735	
==>bstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = ind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3600	3735	
==>bstr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = ind <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1030	1135	
==>raffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1030	1135	
==>raffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2400	2489	
==>::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2400	2489	
==>::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2400	2489	
==>::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3922	4023	
==>QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $new <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3922	4023	
==>QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $new <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21266	21362	
==>a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the correspo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25818	25914	
==>a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the correspo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24442	24538	
==>a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the correspo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10979	11132	
==>$expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nest <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10979	11132	
==>$expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nest <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6539	6642	
==>@arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6539	6642	
==>@arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6539	6642	
==>@arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11733	11931	
==>e($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11733	11931	
==>e($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11733	11931	
==>e($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37340	37434	
==>t has already been
loaded, returning true if so and false if not.

=item C<load_template_module <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37340	37434	
==>t has already been
loaded, returning true if so and false if not.

=item C<load_template_module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36897	37004	
==>::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36897	37004	
==>::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36897	37004	
==>::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5741	5841	
==>nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5741	5841	
==>nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channel <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10088	10208	
==>all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available } <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6516	6612	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pro <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5646	5742	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pro <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6516	6612	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pro <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5646	5742	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pro <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2795	2894	
==>d vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Comp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2795	2894	
==>d vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1824	1922	
==>cument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1824	1922	
==>cument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1824	1922	
==>cument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1408	1577	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1408	1577	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1408	1577	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub { <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1682	1779	
==>/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 por <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1682	1779	
==>/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 por <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	456	554	
==>ly, when you declare a Method on a Class, it is bound to that
Class' C<Type> object immediately; ho <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32021	32116	
==>ocant Relation, and returns a new Relation that has the same heading
and whose body contains all <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33882	33977	
==>ocant Relation, and returns a new Relation that has the same heading and
whose body contains all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36571	36666	
==>ocant Relation, and returns a new Relation that has the same heading
and whose body contains all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38432	38527	
==>ocant Relation, and returns a new Relation that has the same heading and
whose body contains all <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9720	9856	
==>.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9720	9856	
==>.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9720	9856	
==>.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	503	618	
==>d return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * univer <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	503	618	
==>d return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * univer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20936	21032	
==>$_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20936	21032	
==>$_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20936	21032	
==>$_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	412	507	
==>hars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	412	507	
==>hars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6377	6502	
==>ttrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curryi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6377	6502	
==>ttrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curryi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6377	6502	
==>ttrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curryi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24874	24965	
==>has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24874	24965	
==>has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1911	2026	
==>remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1911	2026	
==>remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4016	4106	
==>BLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4016	4106	
==>BLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5540	5630	
==>BLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1953	2076	
==>stant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1953	2076	
==>stant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1953	2076	
==>stant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      c <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1734	1827	
==>:Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1734	1827	
==>:Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39234	39353	
==>ecific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character classes are not returned <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1777	1890	
==>ompiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1777	1890	
==>ompiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9426	9518	
==>$xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9426	9518	
==>$xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9426	9518	
==>$xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	196	304	
==>::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	196	304	
==>::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	196	304	
==>::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2430	2528	
==>ery string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2430	2528	
==>ery string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1743	1867	
==>D = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7852	7970	
==>efix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implement <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13446	13564	
==>efix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7852	7970	
==>efix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13440	13558	
==>efix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implement <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10870	10965	
==>todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10928	11023	
==>todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6452	6572	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6452	6572	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6452	6572	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3379	3476	
==>tta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3379	3476	
==>tta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7624	7773	
==>art, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7624	7773	
==>art, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7624	7773	
==>art, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17491	17588	
==>nter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17491	17588	
==>nter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3408	3556	
==>[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless de <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3300	3445	
==>[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless de <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	698	799	
==>$dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	698	799	
==>$dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	698	799	
==>$dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	87	182	
==>ode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# intern <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	87	182	
==>ode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# intern <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2568	2656	
==>ance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2568	2656	
==>ance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2568	2656	
==>ance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10653	10794	
==>. $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pack <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10653	10794	
==>. $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pack <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10653	10794	
==>. $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pack <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3689	3814	
==>.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3689	3814	
==>.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2797	2898	
==>y @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2797	2898	
==>y @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9451	9550	
==>rn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9451	9550	
==>rn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9451	9550	
==>rn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	490	653	
==>y:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	490	653	
==>y:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8185	8332	
==>return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8185	8332	
==>return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8185	8332	
==>return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2911	3042	
==>ub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2911	3042	
==>ub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6715	6811	
==>PU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6715	6811	
==>PU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6715	6811	
==>PU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1327	1465	
==>_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1327	1465	
==>_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1327	1465	
==>_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	262	376	
==>f->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self- <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	23	112	
==>----------------------------------------------
# This script converts p5 source to p6. Cur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	37	140	
==>od BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	37	140	
==>od BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	436	532	
==>ed (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	436	532	
==>ed (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	436	532	
==>ed (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. T <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	509	632	
==>\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	509	632	
==>\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6110	6205	
==>mP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6110	6205	
==>mP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6110	6205	
==>mP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10997	11118	
==>ar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } & <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10997	11118	
==>ar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } & <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10997	11118	
==>ar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } & <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14527	14680	
==>);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all poss <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14527	14680	
==>);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all poss <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14527	14680	
==>);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all poss <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6813	6966	
==>);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all poss <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5317	5470	
==>);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all poss <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1092	1237	
==>etta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1092	1237	
==>etta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5954	6045	
==>outine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5954	6045	
==>outine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2853	2944	
==>outine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'Su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12414	12557	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12414	12557	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12414	12557	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	479	579	
==>() { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	479	579	
==>() { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	62	185	
==>eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	62	185	
==>eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	237	334	
==>return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	198	295	
==>return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	198	295	
==>return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6168	6353	
==>rn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6168	6353	
==>rn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6168	6353	
==>rn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19810	19907	
==>hat use the
"Basic Authentication Scheme".  In array context it will return two
values; the user n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19810	19907	
==>hat use the
"Basic Authentication Scheme".  In array context it will return two
values; the user n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	239	347	
==>s {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	239	347	
==>s {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	239	347	
==>s {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Par <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9946	10049	
==>text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9946	10049	
==>text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	577	687	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      jo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	577	687	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      jo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	577	687	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      jo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8763	8864	
==>my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8759	8860	
==>my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3589	3703	
==>->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3840	3951	
==>->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3840	3951	
==>->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1268	1360	
==>OR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-lia <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1268	1360	
==>OR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-lia <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8831	8962	
==>rm;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8827	8958	
==>rm;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2198	2297	
==>('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2198	2297	
==>('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2198	2297	
==>('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Packa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	400	521	
==>onal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	400	521	
==>onal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	400	521	
==>onal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1275	1371	
==>, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughte <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1275	1371	
==>, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughte <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3644	3748	
==>on't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3644	3748	
==>on't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3644	3748	
==>on't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23207	23297	
==>annel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23207	23297	
==>annel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6192	6300	
==>!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&gr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9669	9777	
==>!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&gr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8743	8851	
==>!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&gr <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3195	3383	
==>ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            } <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3195	3383	
==>ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3521	3689	
==>ter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3521	3689	
==>ter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to t <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14753	14858	
==>d when doing p6 regex.



Notes on struct regex:

  typedef struct regexp {

The regular expression:

  I3 <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	254	416	
==>},

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1930	2092	
==>},

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	254	416	
==>},

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1930	2092	
==>},

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	2915	3027	
==>$skip = 0, Str :$label)
        returns Control::Caller is primitive is builtin is safe {
    my @caller = Pugs:: <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3719	3810	
==>human written files, and anything we
write shouldn't need to have documentation/comments. If <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3719	3810	
==>human written files, and anything we
write shouldn't need to have documentation/comments. If <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4038	4140	
==>_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4038	4140	
==>_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4038	4140	
==>_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ whil <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7657	7742	
==>snt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test:: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7715	7800	
==>snt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test:: <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2207	2312	
==>ead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$id} if $debu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3047	3143	
==>ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnosti <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3047	3143	
==>ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnosti <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3127	3223	
==>ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnosti <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	101	194	
==>uce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13313	13406	
==>actly the right input format for
Document.new(), by which you can create an identical Document <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13313	13406	
==>actly the right input format for
Document.new(), by which you can create an identical Document <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	81	171	
==>01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	81	171	
==>01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	81	171	
==>01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parse <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1007	1127	
==>e the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4485	4605	
==>e the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3388	3508	
==>e the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3066	3163	
==>urning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $oth <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3066	3163	
==>urning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $oth <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3482	3616	
==>et_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    * <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1840	1974	
==>et_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    * <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2620	2754	
==>et_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    * <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15953	16069	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19430	19546	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4331	4495	
==>ue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4331	4495	
==>ue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4331	4495	
==>ue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	303	398	
==>e<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	303	398	
==>e<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1648	1747	
==>\%\<<name>\>  \:\=  <construct>  }
rule numbered_scalar_alias  {  \$<number>    \:\=  <construct>  } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20875	20973	
==>d C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19792	19890	
==>d C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20875	20973	
==>d C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19792	19890	
==>d C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30772	30874	
==>ember
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for eve <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30772	30874	
==>ember
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2671	2767	
==>X XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2671	2767	
==>X XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2671	2767	
==>X XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2655	2776	
==>un_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2655	2776	
==>un_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2655	2776	
==>un_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20456	20551	
==>4bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compiler <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20456	20551	
==>4bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compiler <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11061	11195	
==>";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11061	11195	
==>";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11061	11195	
==>";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	295	394	
==>et_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	295	394	
==>et_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12098	12240	
==>});
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12098	12240	
==>});
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9076	9194	
==>b {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HAS <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12932	13044	
==>b {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HAS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12932	13044	
==>b {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HAS <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30138	30228	
==>ed
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34690	34780	
==>ed
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33863	33953	
==>ed
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3508	3616	
==>" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3508	3616	
==>" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3508	3616	
==>" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comma <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6052	6158	
==>SIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AU <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6052	6158	
==>SIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AU <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15898	16006	
==>turn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextch <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10754	10862	
==>turn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2530	2627	
==>lass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2530	2627	
==>lass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2530	2627	
==>lass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	65	173	
==>ts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	65	173	
==>ts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	65	173	
==>ts returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7996	8095	
==>rs>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebod <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7996	8095	
==>rs>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2552	2663	
==>name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2552	2663	
==>name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2552	2663	
==>name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_clas <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	246	345	
==>one in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-cal <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	246	345	
==>one in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-cal <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26946	27083	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27225	27362	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3093	3203	
==>k you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each eleme <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3093	3203	
==>k you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each eleme <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3093	3203	
==>k you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each eleme <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2001	2145	
==>PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2001	2145	
==>PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1049	1145	
==>ative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1049	1145	
==>ative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1049	1145	
==>ative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3312	3470	
==>d $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3452	3610	
==>d $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8690	8847	
==>b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8690	8847	
==>b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8690	8847	
==>b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3043	3141	
==>$a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'bu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3043	3141	
==>$a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'bu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3043	3141	
==>$a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'bu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10433	10525	
==>*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
me <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10433	10525	
==>*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
me <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3064	3175	
==>ubroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3542	3653	
==>ubroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{o <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3226	3321	
==>use Test::Builder.  It
does this by you setting the expected output and diagnostic output of tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3226	3321	
==>use Test::Builder.  It
does this by you setting the expected output and diagnostic output of tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3306	3401	
==>use Test::Builder.  It
does this by you setting the expected output and diagnostic output of tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3761	3930	
==>ll')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3761	3930	
==>ll')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3761	3930	
==>ll')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_) <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1629	1757	
==>ew
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as pr <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1629	1757	
==>ew
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10550	10669	
==>my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11012	11131	
==>my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10544	10663	
==>my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11006	11125	
==>my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	18	119	
==>ackage Blondie::Prelude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    s <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	757	879	
==>) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	724	846	
==>) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14267	14365	
==>::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14267	14365	
==>::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14267	14365	
==>::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3212	3313	
==>FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3429	3530	
==>FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16195	16292	
==>Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16195	16292	
==>Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16195	16292	
==>Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6492	6602	
==>inst_pkg );

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $inst_pkg <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	708	803	
==>r native types
sub to_str { (shift)->to_native ? str->new('1') : str->new('')  }
sub to_num { (s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	51	144	
==>est::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!outp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	51	144	
==>est::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!outp <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	622	714	
==>eral information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot1 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	622	714	
==>eral information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot1 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28693	28788	
==>e API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" y <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28693	28788	
==>e API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" y <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24692	24858	
==>, 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24971	25137	
==>, 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6273	6368	
==>x) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6273	6368	
==>x) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6273	6368	
==>x) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3158	3258	
==>intf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3158	3258	
==>intf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3158	3258	
==>intf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20769	20861	
==>rned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colons <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20769	20861	
==>rned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colons <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2613	2744	
==>ookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet- <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2613	2744	
==>ookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15355	15456	
==>B flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15355	15456	
==>B flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15355	15456	
==>B flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12335	12458	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12335	12458	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12335	12458	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	705	802	
==>iables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	705	802	
==>iables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14204	14409	
==>thod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14204	14409	
==>thod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14204	14409	
==>thod) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1655	1745	
==>me>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1655	1745	
==>me>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15758	15970	
==>ist->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15758	15970	
==>ist->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15758	15970	
==>ist->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shif <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	21346	21470	
==>{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $tes <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15943	16060	
==>is rw                 --> Char )
 multi Str::chop ( Str *@strings = (CALLER::<$_>) is rw --> Char )

Trims the last ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8121	8255	
==>r m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8121	8255	
==>r m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8121	8255	
==>r m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(str <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	251	352	
==>time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is expor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	251	352	
==>time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is expor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1744	1860	
==>ge?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1744	1860	
==>ge?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1744	1860	
==>ge?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2424	2521	
==>od proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $othe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2424	2521	
==>od proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8050	8186	
==>ethod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8050	8186	
==>ethod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8050	8186	
==>ethod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            re <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1117	1231	
==>ove      => 1,
    );

    if (!$rv) {
        die << '.';

------------------------------------------------------- <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13701	13814	
==>t:
      # umount $initrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => sub { -r $in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1296	1393	
==>opying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternati <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1296	1393	
==>opying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternati <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4352	4440	
==>-------------------------------------------------------------
## BOOTSTRAPPING Roles
## - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4375	4463	
==>--------------------------------------
## BOOTSTRAPPING Roles
## ------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4398	4486	
==>---------------
## BOOTSTRAPPING Roles
## ----------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15406	15592	
==>( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18883	19069	
==>( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6211	6366	
==>bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6211	6366	
==>bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6211	6366	
==>bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar-> <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	411	516	
==>lete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_typ <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	411	516	
==>lete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1266	1368	
==>e::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multis <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1266	1368	
==>e::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multis <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1266	1368	
==>e::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multis <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6511	6610	
==>e of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6511	6610	
==>e of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6547	6632	
==>> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6547	6632	
==>> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6547	6632	
==>> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3617	3777	
==>upertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3617	3777	
==>upertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3617	3777	
==>upertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	932	1057	
==>nt $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package My <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	932	1057	
==>nt $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package My <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3113	3216	
==>s,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3113	3216	
==>s,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13635	13732	
==>I SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13635	13732	
==>I SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13635	13732	
==>I SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7691	7811	
==>set () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object r <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7691	7811	
==>set () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16520	16633	
==>};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16520	16633	
==>};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16520	16633	
==>};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3740	3846	
==>al $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5642	5748	
==>al $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13922	14074	
==>a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fina <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13922	14074	
==>a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fina <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13922	14074	
==>a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fina <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36798	36889	
==>y relational operator that is like
C<union> except that the returned Relation::Example conta <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37298	37389	
==>y relational operator that is like
C<union> except that the returned Relation::Example conta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8142	8366	
==>= shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12131	12281	
==>= shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12131	12281	
==>= shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        } <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8669	8787	
==>);
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8669	8787	
==>);
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2199	2334	
==>->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2199	2334	
==>->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2199	2334	
==>->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2541	2635	
==>'t yet have object support, this module is more like the
Perl 5 File::Spec::Functions module th <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2541	2635	
==>'t yet have object support, this module is more like the
Perl 5 File::Spec::Functions module th <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8230	8436	
==>$x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8230	8436	
==>$x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15439	15556	
==>b qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16854	16971	
==>b qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21610	21727	
==>b qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	458	608	
==>[ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	458	608	
==>[ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	458	608	
==>[ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->ne <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22725	22824	
==>t each Template can optionally use them; but often a template will
choose to show less than all of t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22725	22824	
==>t each Template can optionally use them; but often a template will
choose to show less than all of t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2958	3069	
==>>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2958	3069	
==>>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->el <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2958	3069	
==>>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->el <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19777	19874	
==>ta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19777	19874	
==>ta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4906	5046	
==>{
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4906	5046	
==>{
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	844	956	
==>side of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	844	956	
==>side of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	844	956	
==>side of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5179	5339	
==>) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5179	5339	
==>) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5179	5339	
==>) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2576	2687	
==>r>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2760	2871	
==>r>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subru <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24399	24496	
==>:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28951	29048	
==>:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27818	27915	
==>:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relatio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5108	5288	
==>rn $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5120	5300	
==>rn $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9272	9387	
==>= `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9272	9387	
==>= `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9272	9387	
==>= `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1574	1695	
==>class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- place <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1779	1900	
==>class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- place <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1467	1567	
==>Name'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4591	4687	
==>Name'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4591	4687	
==>Name'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23811	23908	
==>o PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22584	22681	
==>o PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23811	23908	
==>o PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22584	22681	
==>o PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be se <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24788	24876	
==>lag_i(E0,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2127	2259	
==>1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2127	2259	
==>1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2127	2259	
==>1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10441	10554	
==>ariable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10599	10712	
==>ariable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1566	1684	
==>s ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1566	1684	
==>s ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1566	1684	
==>s ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	761	921	
==>.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('R <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	761	921	
==>.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	79	182	
==>)s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	79	182	
==>)s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	79	182	
==>)s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1628	1729	
==>ods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1628	1729	
==>ods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1628	1729	
==>ods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	779	878	
==>rently defined as subs, which we can get away with since
   this is currently simply a code generato <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	779	878	
==>rently defined as subs, which we can get away with since
   this is currently simply a code generato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	856	984	
==>else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	856	984	
==>else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	856	984	
==>else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16953	17046	
==>value indicates what additional
encoding mechanism has been applied to the resource.

=item $h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16953	17046	
==>value indicates what additional
encoding mechanism has been applied to the resource.

=item $h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2751	2874	
==>_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2998	3121	
==>_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33052	33257	
==>) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33052	33257	
==>) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33052	33257	
==>) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2268	2394	
==>l::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () retur <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2268	2394	
==>l::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4370	4510	
==>' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4370	4510	
==>' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4370	4510	
==>' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6106	6204	
==>ubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'x <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6106	6204	
==>ubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29109	29218	
==>lue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29109	29218	
==>lue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29109	29218	
==>lue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %pa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	250	351	
==>finite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	250	351	
==>finite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11849	11978	
==>or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15326	15455	
==>or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14661	14790	
==>or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @oth <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14686	14781	
==>ter error handling for cmp_ok

The error handling capabilities need to be expanded more to handl <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14744	14839	
==>ter error handling for cmp_ok

The error handling capabilities need to be expanded more to handl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9748	9898	
==>self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1831	1969	
==>self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1831	1969	
==>self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7444	7577	
==>$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7444	7577	
==>$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6370	6589	
==>n {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6370	6589	
==>n {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	621	749	
==>(function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	621	749	
==>(function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	621	749	
==>(function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(va <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4829	4929	
==>)`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYR <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4829	4929	
==>)`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16795	16887	
==>SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16795	16887	
==>SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16795	16887	
==>SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17003	17120	
==>atcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17003	17120	
==>atcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17003	17120	
==>atcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts) <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	622	706	
==>------------------------------------------------------------------
## private methods <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	622	706	
==>------------------------------------------------------------------
## private methods <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30684	30853	
==>dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10019	10137	
==>));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10019	10137	
==>));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10019	10137	
==>));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; d <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9267	9381	
==>uotes) ]
#   progfile => perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1200	1307	
==>s longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1549	1654	
==>s longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be mo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1156	1261	
==>s longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be mo <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16264	16369	
==>GE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .local pmc optable
    optable = find_global "PGE::P6Rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1549	1654	
==>s longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1604	1702	
==>_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1604	1702	
==>_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1604	1702	
==>_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6:: <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3887	3984	
==>Seq will reduce its children one by one. First Param will
introduce a new symbol, $x, taking the 1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1208	1305	
==>ctually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the call <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2819	2939	
==>$self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list"
            for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	87	193	
==>hift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	87	193	
==>hift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	87	193	
==>hift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ su <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2692	2789	
==>> is exportable and can be
used to set perl command line options used for running the test
script( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	488	587	
==>er_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifier <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	488	587	
==>er_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifier <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	488	587	
==>er_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifier <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	30	121	
==>NTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWA <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	88	179	
==>NTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWA <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6689	6788	
==>cking for Pugs binary",
  help   => "Compile Pugs if you haven't done so already (looked at $pugs)." <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27704	27802	
==>Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C< <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27704	27802	
==>Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C< <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20080	20168	
==>LLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefix:<:10> <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	607	724	
==>pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsCon <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	607	724	
==>pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsCon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1144	1249	
==>ox.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic dataty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1144	1249	
==>ox.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic dataty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1144	1249	
==>ox.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic dataty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2903	3007	
==>fined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2903	3007	
==>fined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2903	3007	
==>fined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6061	6152	
==>t now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howeve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6061	6152	
==>t now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howeve <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1061	1171	
==>if $cc;
    return $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $c <==
5	/Users/nnunley/pugs/util/func_refact.pl	575	679	
==>our $nodes = YAML::LoadFile($Conf{nodes}) or
        die "can't load nodes data: $!";

our %ignoring;

$i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7679	7782	
==>e::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7679	7782	
==>e::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7679	7782	
==>e::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5207	5341	
==>mple',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, wh <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5207	5341	
==>mple',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4578	4682	
==>Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4578	4682	
==>Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4578	4682	
==>Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1011	1151	
==>er) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        'te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32148	32259	
==>et ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32148	32259	
==>et ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32148	32259	
==>et ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	899	996	
==>ub import {
	# get the format specified on the command line
	$dumper = $format{$Pugs::Utils::Inter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2976	3116	
==>[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{sta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3499	3636	
==>[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2879	3016	
==>[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3499	3636	
==>[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{sta <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14110	14207	
==>$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => sub { system " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32883	33031	
==>f = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32883	33031	
==>f = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32883	33031	
==>f = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6268	6367	
==>', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6268	6367	
==>', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2793	2899	
==>sh @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of al <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2793	2899	
==>sh @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of al <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2793	2899	
==>sh @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of al <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1372	1467	
==>ther rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1372	1467	
==>ther rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12759	12882	
==>xtkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12759	12882	
==>xtkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12759	12882	
==>xtkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = P <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	933	1041	
==>s;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    re <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	933	1041	
==>s;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17532	17675	
==>ess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17532	17675	
==>ess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17532	17675	
==>ess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no war <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3525	3626	
==>YNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file. <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3525	3626	
==>YNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10540	10664	
==>.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10540	10664	
==>.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10540	10664	
==>.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Arr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3763	3878	
==>runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # bu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3628	3739	
==>runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7354	7504	
==>s' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7354	7504	
==>s' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7354	7504	
==>s' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2551	2665	
==>.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2551	2665	
==>.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3280	3425	
==>/ ) {
                # after whitespace means block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $w <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5988	6087	
==>et($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5118	5217	
==>et($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5988	6087	
==>et($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5118	5217	
==>et($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	35	158	
==>P::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Pr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	35	158	
==>P::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9112	9224	
==>r . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9112	9224	
==>r . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9112	9224	
==>r . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12742	12890	
==>macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9016	9164	
==>macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9851	9999	
==>macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11323	11415	
==>turns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children re <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11323	11415	
==>turns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	328	420	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	328	420	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	328	420	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().v <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15088	15178	
==>ons invoke and which
multiple interchangeable "Engine" back-ends (usually provided by third <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15088	15178	
==>ons invoke and which
multiple interchangeable "Engine" back-ends (usually provided by third <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13863	14006	
==>{
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13863	14006	
==>{
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3476	3573	
==>ms == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3476	3573	
==>ms == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3476	3573	
==>ms == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	841	963	
==>ugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($co <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	841	963	
==>ugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2398	2503	
==>M";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2398	2503	
==>M";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2398	2503	
==>M";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5638	5754	
==>s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6906	7022	
==>s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5638	5754	
==>s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6894	7010	
==>s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $cod <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1884	1985	
==>w/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have disti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7622	7765	
==>ta using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.ne <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7622	7765	
==>ta using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1254	1365	
==>d
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1254	1365	
==>d
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1254	1365	
==>d
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1204	1316	
==>ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1204	1316	
==>ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1411	1511	
==>n options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1411	1511	
==>n options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1411	1511	
==>n options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12747	12877	
==>path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12747	12877	
==>path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for b <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29039	29134	
==>d is a generic relational operator that returns a new Relation::Example
which is the same as the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31887	31982	
==>d is a generic relational operator that returns a new Relation::Example
which is the same as the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32934	33029	
==>d is a generic relational operator that returns a new Relation::Example
which is the same as the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2899	2997	
==>$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afte <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2899	2997	
==>$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afte <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2899	2997	
==>$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afte <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	39018	39113	
==>n redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMEN <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43832	43927	
==>n redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMEN <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35860	36070	
==>ub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->store(
                      $e- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1972	2154	
==>_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_va <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5759	5941	
==>_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1972	2154	
==>_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5759	5941	
==>_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	19	117	
==>ar::Pod;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# XXX - this module i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18892	18986	
==>Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17935	18029	
==>Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18892	18986	
==>Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17935	18029	
==>Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7158	7283	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7158	7283	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7158	7283	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23342	23428	
==>in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMP <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23342	23428	
==>in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	768	898	
==>> ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	768	898	
==>> ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	768	898	
==>> ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2588	2684	
==>ch: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2728	2824	
==>ch: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2892	2999	
==>que_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2892	2999	
==>que_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2892	2999	
==>que_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10155	10260	
==>unperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $ru <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34302	34391	
==>E:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11195	11372	
==>ch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shif <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5468	5582	
==>()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6736	6850	
==>()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5468	5582	
==>()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6724	6838	
==>()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4635	4770	
==>e a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition must be implemented as a runtime primiti <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13687	13808	
==>d
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13029	13118	
==>mt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13029	13118	
==>mt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13029	13118	
==>mt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2443	2674	
==>_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2752	2974	
==>_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2752	2974	
==>_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        retu <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1357	1493	
==>rlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        } <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1357	1493	
==>rlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10387	10580	
==>();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        ci <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10387	10580	
==>();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        ci <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10387	10580	
==>();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        ci <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1208	1331	
==>en
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->l <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13734	13851	
==>en possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7197	7319	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7197	7319	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7197	7319	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            ' <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5920	6033	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5920	6033	
==>ake a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19131	19274	
==>e warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19131	19274	
==>e warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19131	19274	
==>e warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3889	3986	
==>s a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4073	4170	
==>s a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gramma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1978	2112	
==>=> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1978	2112	
==>=> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1978	2112	
==>=> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::mak <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14375	14471	
==>$h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  S <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14375	14471	
==>$h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  S <==
5	/Users/nnunley/pugs/util/package-osx.pl	10219	10330	
==>e the $file[-1]).
sub create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22120	22212	
==>handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21001	21093	
==>handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22120	22212	
==>handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21001	21093	
==>handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	869	967	
==>use strict;
use warnings;
#use Smart::Comments; #for debugging, look also at Filtered-Comments.pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	46	143	
==>use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	72	167	
==>use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	43	138	
==>use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	72	167	
==>use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6048	6202	
==>xt ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6048	6202	
==>xt ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8477	8575	
==>oot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8477	8575	
==>oot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8477	8575	
==>oot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38237	38332	
==>g in
its positional parameter $text (a string), and a Message Variables hash ref
in its position <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38237	38332	
==>g in
its positional parameter $text (a string), and a Message Variables hash ref
in its position <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10613	10721	
==>t compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10613	10721	
==>t compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7681	7784	
==>:Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7681	7784	
==>:Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7681	7784	
==>:Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2160	2280	
==>editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2160	2280	
==>editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2160	2280	
==>editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder wh <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22702	22800	
==>ng>

Set of Str - This contains zero or more Relation attribute names that
define the heading of th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27254	27352	
==>ng>

Set of Str - This contains zero or more Relation attribute names that
define the heading of th <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14573	14698	
==>sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopen <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14573	14698	
==>sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopen <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1389	1487	
==>tring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1389	1487	
==>tring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1389	1487	
==>tring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Strin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21894	22006	
==>S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18315	18427	
==>S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4399	4507	
==>rams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4399	4507	
==>rams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4399	4507	
==>rams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2937	3048	
==>me'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2937	3048	
==>me'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2937	3048	
==>me'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1158	1252	
==>m B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () retu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1211	1305	
==>m B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37876	37989	
==><= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37876	37989	
==><= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37876	37989	
==><= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3475	3572	
==>$test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3533	3630	
==>$test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3264	3405	
==>( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3264	3405	
==>( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3264	3405	
==>( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6628	6735	
==>:Match) contain:



### Match actually contain getters for $() and such

### getters need to know what you w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6406	6510	
==>:Match) contain:

### Match actually contain getters for $() and such
### getters need to know what you w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3691	3796	
==>f = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3691	3796	
==>f = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3691	3796	
==>f = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37558	37654	
==>the new Relation is the result of combining all of the source Relations,
such that all common att <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42107	42203	
==>the new Relation is the result of combining all of the source Relations,
such that all common att <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7360	7503	
==>'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7360	7503	
==>'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7360	7503	
==>'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $s <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12564	12657	
==>e passing represent the
current working features.

This module deals with encoding and decodin <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12564	12657	
==>e passing represent the
current working features.

This module deals with encoding and decodin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1957	2086	
==>ace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1957	2086	
==>ace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1957	2086	
==>ace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3204	3302	
==>em 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameter <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3204	3302	
==>em 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6908	7024	
==>ate).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6908	7024	
==>ate).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6908	7024	
==>ate).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = functi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	619	726	
==>y the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	619	726	
==>y the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Ros <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7665	7835	
==>_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7665	7835	
==>_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7665	7835	
==>_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq ' <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2101	2204	
==>DO - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this erro <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2101	2204	
==>DO - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this erro <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3050	3212	
==>@tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3050	3212	
==>@tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	298	418	
==>\{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	298	418	
==>\{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	298	418	
==>\{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16125	16325	
==>key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16125	16325	
==>key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16125	16325	
==>key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17026	17119	
==>asily accessable manner, such that would not be possible if its
functionality was subsumed int <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17026	17119	
==>asily accessable manner, such that would not be possible if its
functionality was subsumed int <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7786	7916	
==>losure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

subme <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7786	7916	
==>losure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

subme <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7891	8050	
==>SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7891	8050	
==>SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1561	1657	
==>S::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1561	1657	
==>S::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1561	1657	
==>S::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	522	620	
==>ind_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	522	620	
==>ind_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	522	620	
==>ind_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SE <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2196	2293	
==>x:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, S <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2196	2293	
==>x:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15709	15818	
==>get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15709	15818	
==>get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15709	15818	
==>get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || co <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7735	7835	
==>r) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NA <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7735	7835	
==>r) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NA <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1117	1207	
==>ot::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1117	1207	
==>ot::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1117	1207	
==>ot::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10609	10733	
==>'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10609	10733	
==>'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10609	10733	
==>'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pri <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2221	2327	
==>infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2221	2327	
==>infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5895	6111	
==>$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$po <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5895	6111	
==>$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$po <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1621	1712	
==>(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1621	1712	
==>(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1621	1712	
==>(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3815	3965	
==>rray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3815	3965	
==>rray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3815	3965	
==>rray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	722	850	
==>e::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $nu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	722	850	
==>e::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7393	7523	
==>s1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7393	7523	
==>s1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7393	7523	
==>s1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9335	9446	
==>k;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9335	9446	
==>k;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5902	6013	
==>perops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method revers <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5902	6013	
==>perops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method revers <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5902	6013	
==>perops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method revers <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19703	19797	
==>ead-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the com <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19703	19797	
==>ead-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the com <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10284	10407	
==>ll with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' ) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2317	2428	
==>ll with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' ) <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2317	2428	
==>ll with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	399	507	
==>> 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	399	507	
==>> 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package t <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4838	4964	
==>scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => ch <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4838	4964	
==>scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3121	3238	
==>elems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3121	3238	
==>elems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3121	3238	
==>elems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1763	1930	
==>t == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1763	1930	
==>t == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10605	10714	
==>] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10605	10714	
==>] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10605	10714	
==>] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10496	10620	
==>operly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10496	10620	
==>operly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10496	10620	
==>operly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tm <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9684	9779	
==>esponse> classes, internal to the
library.

The following methods are available:

=over 4

=item <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9684	9779	
==>esponse> classes, internal to the
library.

The following methods are available:

=over 4

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10716	10951	
==>{
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10716	10951	
==>{
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12806	12902	
==>) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, St <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12864	12960	
==>) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, St <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1009	1197	
==>ug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1009	1197	
==>ug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1400	1508	
==>(temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1400	1508	
==>(temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1400	1508	
==>(temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5275	5369	
==>06, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=hea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5275	5369	
==>06, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5704	5885	
==>,
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg ( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5704	5885	
==>,
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14104	14197	
==>elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14104	14197	
==>elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14104	14197	
==>elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1526	1673	
==>::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1526	1673	
==>::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1526	1673	
==>::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1037	1132	
==>ha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question/ <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1037	1132	
==>ha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question/ <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	302	408	
==>l = $self;
  }

  # Internal method which pushes a given $callback to @:events.
  my method enqueue (Code $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6396	6494	
==>eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7132	7230	
==>eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6396	6494	
==>eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7132	7230	
==>eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan} <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	660	776	
==>1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%pa <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	660	776	
==>1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5800	5895	
==>VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5800	5895	
==>VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5800	5895	
==>VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3443	3548	
==>handles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3443	3548	
==>handles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3443	3548	
==>handles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defin <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2557	2654	
==>h @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB) <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2557	2654	
==>h @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29405	29522	
==>LO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fourni <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29405	29522	
==>LO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fourni <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	229	334	
==>LO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fourni <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22868	22964	
==>ded viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach ov <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22868	22964	
==>ded viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach ov <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11146	11276	
==>_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11140	11270	
==>_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6	110	
==>pied from S29draft.pod 8651.
multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4206	4320	
==>ce -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4206	4320	
==>ce -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4206	4320	
==>ce -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2143	2241	
==>ob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Ri <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2143	2241	
==>ob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Ri <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5830	5966	
==>erm_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    litstart = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4714	4826	
==>t @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4714	4826	
==>t @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4714	4826	
==>t @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ ! <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4014	4125	
==>t @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3115	3220	
==>y $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3115	3220	
==>y $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3115	3220	
==>y $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17720	17810	
==>mpile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual ma <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17720	17810	
==>mpile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual ma <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1956	2064	
==>lessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1638	1742	
==>lessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2286	2390	
==>lessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35130	35226	
==>ator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35130	35226	
==>ator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9850	9971	
==>1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7790	7911	
==>1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9850	9971	
==>1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7790	7911	
==>1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4339	4454	
==>}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14761	14890	
==>>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14761	14890	
==>>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14761	14890	
==>>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5560	5668	
==>&& ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    el <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5560	5668	
==>&& ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15314	15412	
==>[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15314	15412	
==>[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15314	15412	
==>[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9555	9650	
==>mes are cases insensitive.

Instances of this class are usually created as member variables of t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9555	9650	
==>mes are cases insensitive.

Instances of this class are usually created as member variables of t <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2124	2248	
==>ion]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section} <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2124	2248	
==>ion]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	398	509	
==>unction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	398	509	
==>unction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	398	509	
==>unction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == un <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	303	416	
==>return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	303	416	
==>return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10358	10489	
==>it 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2794	2909	
==>.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localho <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2794	2909	
==>.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localho <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2385	2498	
==>it 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2385	2498	
==>it 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10187	10310	
==>tity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10187	10310	
==>tity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17291	17384	
==>d_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17291	17384	
==>d_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17291	17384	
==>d_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('% <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6258	6354	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($tw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5388	5484	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6258	6354	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5388	5484	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($tw <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	30954	31048	
==>dance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern C<< <schwern at pobo <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1582	1675	
==>% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that director <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1422	1515	
==>% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that director <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33514	33617	
==>per and
shallower in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is us <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1323	1422	
==>lled with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1323	1422	
==>lled with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3515	3613	
==>rs on top of the object-oriented backend.

To use the Cipher API, you must first create an object o <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3515	3613	
==>rs on top of the object-oriented backend.

To use the Cipher API, you must first create an object o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	225	344	
==>am ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratch <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	219	338	
==>am ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratch <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	225	344	
==>am ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratch <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	219	338	
==>am ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratch <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2834	2941	
==>ass, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self->aut <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13468	13585	
==>ading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16945	17062	
==>ading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16307	16424	
==>ading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second s <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	172	286	
==>@paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()" <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	172	286	
==>@paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()" <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1921	2017	
==>}

sub Pugs::Internals::log_base(Num $x, Num $base) {
    return Pugs::Internals::log($x)   if !d <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8263	8356	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7393	7486	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8263	8356	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7393	7486	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4991	5140	
==>le' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4991	5140	
==>le' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4991	5140	
==>le' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8354	8458	
==>s more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- ` <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8354	8458	
==>s more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5985	6118	
==>/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5985	6118	
==>/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5985	6118	
==>/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20870	20970	
==>ls a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20870	20970	
==>ls a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	300	479	
==>class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	300	479	
==>class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	300	479	
==>class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	77	229	
==>.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    mu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	77	229	
==>.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    mu <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3807	3917	
==>amble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{pos <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5167	5276	
==>amble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	973	1075	
==>dant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	973	1075	
==>dant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	973	1075	
==>dant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	841	998	
==>subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	841	998	
==>subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	841	998	
==>subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	31	126	
==>e warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	31	126	
==>e warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBu <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1522	1744	
==>se {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1522	1744	
==>se {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4187	4330	
==>l = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4187	4330	
==>l = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4187	4330	
==>l = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2711	2886	
==>defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) ) <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2711	2886	
==>defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) ) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8187	8293	
==>n."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11664	11770	
==>n."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10846	10952	
==>n."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3226	3323	
==>since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3226	3323	
==>since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2900	2987	
==>l END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2900	2987	
==>l END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2900	2987	
==>l END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5774	5960	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5774	5960	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5774	5960	
==>rray->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1268	1374	
==>am<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array ( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1268	1374	
==>am<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4137	4244	
==>'t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4137	4244	
==>'t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4137	4244	
==>'t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,u <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21677	21772	
==>ation tuples may be individually addressed only by their values; neither
may be addressed by any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26229	26324	
==>ation tuples may be individually addressed only by their values; neither
may be addressed by any <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3488	3584	
==>$todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1071	1167	
==>->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.N <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3546	3642	
==>$todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1071	1167	
==>->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1071	1167	
==>->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.N <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4412	4534	
==>optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the num <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4412	4534	
==>optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1649	1752	
==>e "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1649	1752	
==>e "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1649	1752	
==>e "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Wa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10009	10123	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10288	10402	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7238	7385	
==>s = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7238	7385	
==>s = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7238	7385	
==>s = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2690	2811	
==>control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PRE <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	276	393	
==>keys = qw{
    build_requires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4551	4801	
==>s to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version numb <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4551	4801	
==>s to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version numb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16692	16789	
==>SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16692	16789	
==>SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16692	16789	
==>SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
M <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2510	2609	
==>TATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2510	2609	
==>TATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	928	1024	
==>g.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	928	1024	
==>g.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	928	1024	
==>g.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1113	1285	
==>x, period",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $strin <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9117	9254	
==>ax += 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2860	2974	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2860	2974	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2860	2974	
==>oin "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3077	3192	
==>aram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3077	3192	
==>aram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3077	3192	
==>aram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1460	1575	
==>ource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1217	1332	
==>ource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5253	5367	
==>{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5253	5367	
==>{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5253	5367	
==>{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14983	15085	
==>=> $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14983	15085	
==>=> $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2877	2976	
==>e strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2877	2976	
==>e strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2877	2976	
==>e strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_des <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19107	19283	
==>ys are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19107	19283	
==>ys are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19107	19283	
==>ys are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2043	2185	
==>'%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::crea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2248	2390	
==>'%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::crea <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6537	6654	
==>hod next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    ret <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6537	6654	
==>hod next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4397	4494	
==>Plan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4397	4494	
==>Plan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5921	6018	
==>Plan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35281	35421	
==>) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35281	35421	
==>) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35281	35421	
==>) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $l <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2794	2891	
==>u might not be able to derive the 
plaintext from the result, but any cryptographer worth the name <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2794	2891	
==>u might not be able to derive the 
plaintext from the result, but any cryptographer worth the name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	644	751	
==>.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	644	751	
==>.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	644	751	
==>.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ing <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22697	22788	
==>ing.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=hea <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22697	22788	
==>ing.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	411	514	
==>ef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	411	514	
==>ef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	411	514	
==>ef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9946	10038	
==>strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9946	10038	
==>strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4959	5066	
==>method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How doe <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4959	5066	
==>method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How doe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13624	13721	
==>(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13624	13721	
==>(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13624	13721	
==>(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7102	7417	
==>sd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Arti <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7159	7474	
==>sd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Arti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16109	16206	
==>@_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16109	16206	
==>@_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16109	16206	
==>@_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_att <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3172	3300	
==>qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4998	5092	
==>tom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1587	1681	
==>ule);
    $optable->addToken("term:<?", "term:", "nows", &parse_subrule);
    $optable->addToke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4998	5092	
==>tom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4998	5092	
==>tom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7585	7705	
==>$cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7585	7705	
==>$cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7585	7705	
==>$cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5626	5713	
==>>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5626	5713	
==>>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10256	10408	
==>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # prin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10256	10408	
==>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # prin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10256	10408	
==>clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # prin <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5402	5540	
==>defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5402	5540	
==>defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $ <==
5	/Users/nnunley/pugs/util/func_refact.pl	135	237	
==>s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filename containing nodes data produ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21641	21735	
==>ashref, containing:

=over

=item C<line>

The original line received from the server (unmodifi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20522	20616	
==>ashref, containing:

=over

=item C<line>

The original line received from the server (unmodifi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21641	21735	
==>ashref, containing:

=over

=item C<line>

The original line received from the server (unmodifi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20522	20616	
==>ashref, containing:

=over

=item C<line>

The original line received from the server (unmodifi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1042	1155	
==>$filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	802	914	
==>'( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	802	914	
==>'( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub g <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30975	31068	
==>nal, in which case
this method returns the identity-one Relation or the invocant relation,
res <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35525	35618	
==>nal, in which case
this method returns the identity-one Relation or the invocant relation,
res <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12668	12834	
==>},
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12668	12834	
==>},
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12668	12834	
==>},
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to d <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	719	833	
==>that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesize <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	719	833	
==>that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesize <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4491	4610	
==>://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2232	2350	
==>://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19527	19651	
==>push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19806	19930	
==>push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6539	6639	
==>ument = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6539	6639	
==>ument = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6539	6639	
==>ument = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

va <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1792	1898	
==>ass, %args) = @_;

    # ignore the prefix on extension modules built from top level.
    delete $args{pref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5293	5395	
==>= $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5293	5395	
==>= $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5293	5395	
==>= $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1455	1555	
==>)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1455	1555	
==>)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	531	625	
==>etrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	531	625	
==>etrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	531	625	
==>etrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5509	5692	
==>ap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8986	9169	
==>ap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1064	1159	
==>te these attributes in all the currently live instances
# of Class (which are ::Class, ::Package <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1064	1159	
==>te these attributes in all the currently live instances
# of Class (which are ::Class, ::Package <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1064	1159	
==>te these attributes in all the currently live instances
# of Class (which are ::Class, ::Package <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	111	210	
==>tc
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	111	210	
==>tc
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20068	20158	
==>t p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20068	20158	
==>t p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20068	20158	
==>t p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1855	1970	
==>amples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1855	1970	
==>amples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1855	1970	
==>amples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self- <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1210	1309	
==>turns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1210	1309	
==>turns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	679	830	
==>sub _draw_class_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6643	6786	
==>gle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{param} ) . ', "\n"';
            }
            return " print <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9503	9610	
==>ge name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9503	9610	
==>ge name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9503	9610	
==>ge name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6324	6420	
==>y { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6324	6420	
==>y { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6324	6420	
==>y { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	176	270	
==>hod assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empt <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	176	270	
==>hod assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empt <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5887	6018	
==>max             Number of individual tests ran
    ok              Number of individual tests passed
    sub_skipped     Number of i <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7126	7243	
==>vailable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to d <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	427	544	
==>vailable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to d <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9603	9715	
==>taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPer <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2014	2118	
==>le-line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8787	8918	
==>if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	951	1070	
==>if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	951	1070	
==>if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4838	4928	
==>mplementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTH <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4978	5068	
==>mplementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	561	680	
==>ew
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	561	680	
==>ew
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	561	680	
==>ew
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	452	544	
==>e C<source> property, and adds nothing else.

More specialised processing instructions may su <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	452	544	
==>e C<source> property, and adds nothing else.

More specialised processing instructions may su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4378	4482	
==>l5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4227	4328	
==>l5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4638	4729	
==>efered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4638	4729	
==>efered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4638	4729	
==>efered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	20281	20420	
==>,
						param => val(0),
					),
					then => ide("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7069	7176	
==>code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7081	7188	
==>code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[ <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	64	164	
==>eturns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	20	118	
==>eturns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9238	9337	
==>har_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $asc <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9238	9337	
==>har_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $asc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12256	12387	
==>ircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $n->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1153	1265	
==>elf );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2832	2926	
==>$lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unkn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2832	2926	
==>$lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unkn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2832	2926	
==>$lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unkn <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7290	7426	
==>: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7290	7426	
==>: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	407	499	
==>fined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	407	499	
==>fined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	407	499	
==>fined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1839	1936	
==>s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1839	1936	
==>s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1839	1936	
==>s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCla <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	961	1046	
==>nt-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Rang <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	961	1046	
==>nt-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Rang <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3169	3290	
==>ssed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3169	3290	
==>ssed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4693	4814	
==>ssed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	228	331	
==>('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a lo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	228	331	
==>('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a lo <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1071	1190	
==>}

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1071	1190	
==>}

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20114	20207	
==>ion can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24666	24759	
==>ion can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23218	23311	
==>ion can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5553	5763	
==>>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5553	5763	
==>>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5553	5763	
==>>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                m <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1223	1341	
==>$.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rul <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1223	1341	
==>$.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14330	14446	
==>o_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14330	14446	
==>o_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14330	14446	
==>o_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3181	3293	
==>= undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interf <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3398	3510	
==>= undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19160	19254	
==>LTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19160	19254	
==>LTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19160	19254	
==>LTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8467	8600	
==>ss;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8467	8600	
==>ss;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8467	8600	
==>ss;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pri <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1622	1718	
==>ere's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< inf <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1622	1718	
==>ere's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< inf <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	581	679	
==>sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new(0) }

# methods

sub fetch { ${$_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5351	5448	
==>Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4481	4578	
==>Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5351	5448	
==>Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4481	4578	
==>Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4122	4303	
==>this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4122	4303	
==>this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$docu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16986	17100	
==>y.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20463	20577	
==>y.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20041	20155	
==>y.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to h <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	882	986	
==>b referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is expor <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	882	986	
==>b referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is expor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39673	39773	
==>ength, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39673	39773	
==>ength, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39673	39773	
==>ength, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23140	23307	
==>ymbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42743	42909	
==>ymbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	683	781	
==>lue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	683	781	
==>lue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	683	781	
==>lue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl. <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13500	13653	
==>_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3645	3782	
==>_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3645	3782	
==>_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3645	3782	
==>_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8770	8859	
==>0), p5_charset_def_x(L0,L), !. % 45 is -
p5_charset_def([char(93)|L]) --> "]", p5_charset_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7096	7204	
==>->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', ass <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7096	7204	
==>->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', ass <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22586	22679	
==>tes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27138	27231	
==>tes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25870	25963	
==>tes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!headi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14539	14636	
==>ULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14539	14636	
==>ULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14539	14636	
==>ULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir:: <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	401	493	
==>P::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revisio <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	401	493	
==>P::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revisio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11761	11912	
==>>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11761	11912	
==>>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11761	11912	
==>>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	324	470	
==>s) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params{'$:ex <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	84	176	
==>IB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Binary;
use JIB: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16243	16359	
==>n)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${& <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12664	12780	
==>n)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${& <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8789	8936	
==>rn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8789	8936	
==>rn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4085	4186	
==>reach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4085	4186	
==>reach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4085	4186	
==>reach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_n <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2927	3073	
==>fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@li <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2927	3073	
==>fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13297	13396	
==>MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13297	13396	
==>MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13297	13396	
==>MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MU <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2372	2501	
==>ags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2919	3048	
==>ags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3466	3595	
==>ags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33336	33433	
==>ry may wish to override the user text of another library
which it uses, the Template module for th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33336	33433	
==>ry may wish to override the user text of another library
which it uses, the Template module for th <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11439	11557	
==>thod product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14916	15034	
==>thod product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Rela <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5909	6010	
==>icts ... add method
                $self->add_method($method_name => $role->get_method($method_name)) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5909	6010	
==>icts ... add method
                $self->add_method($method_name => $role->get_method($method_name)) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5909	6010	
==>icts ... add method
                $self->add_method($method_name => $role->get_method($method_name)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2575	2685	
==>s_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2575	2685	
==>s_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2575	2685	
==>s_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    retu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5581	5660	
==>c2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5581	5660	
==>c2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18827	18963	
==>{
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18827	18963	
==>{
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18827	18963	
==>{
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Di <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3332	3432	
==>esents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
sec <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3332	3432	
==>esents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
sec <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7365	7548	
==>rrent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.p <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7365	7548	
==>rrent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2399	2494	
==>ne('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2399	2494	
==>ne('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2399	2494	
==>ne('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14272	14393	
==>est.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8386	8490	
==>bstr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8386	8490	
==>bstr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8386	8490	
==>bstr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1160	1255	
==>o syntax, only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7236	7341	
==>st];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7236	7341	
==>st];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7236	7341	
==>st];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33144	33239	
==>en we have to translate a
message, the corresponding Template modules will be searched in the or <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33144	33239	
==>en we have to translate a
message, the corresponding Template modules will be searched in the or <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11125	11242	
==>%params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11125	11242	
==>%params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11125	11242	
==>%params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13588	13683	
==>inated is TRUE then we also unterminated named
entities will also be expanded.  The longest matc <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13588	13683	
==>inated is TRUE then we also unterminated named
entities will also be expanded.  The longest matc <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1025	1147	
==>t {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1025	1147	
==>t {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1734	1843	
==>, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1734	1843	
==>, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1734	1843	
==>, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $c <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9007	9173	
==>X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	87	204	
==>e warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	129	246	
==>e warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	87	204	
==>e warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	129	246	
==>e warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2063	2179	
==>+];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2063	2179	
==>+];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexica <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2063	2179	
==>+];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexica <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	476	585	
==>cause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        retu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	476	585	
==>cause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2844	2965	
==>socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $. <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2844	2965	
==>socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $. <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14740	14840	
==>>
property instead.

=back


=head2 Str

General notes about strings:

A Str can exist at several Uni <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6374	6470	
==>fix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5504	5600	
==>fix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6374	6470	
==>fix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5504	5600	
==>fix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17259	17356	
==>osix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13680	13777	
==>osix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1245	1337	
==>atatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1245	1337	
==>atatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1245	1337	
==>atatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17823	18002	
==>' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17823	18002	
==>' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3379	3480	
==>nction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3379	3480	
==>nction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3379	3480	
==>nction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code) <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6104	6235	
==>-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:per <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6104	6235	
==>-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4147	4256	
==>bject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4147	4256	
==>bject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4147	4256	
==>bject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23429	23531	
==>_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splic <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23429	23531	
==>_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splic <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23429	23531	
==>_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splic <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	665	758	
==>does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	665	758	
==>does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6637	6843	
==>.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($do <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6637	6843	
==>.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($do <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2792	2897	
==>st::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2792	2897	
==>st::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2872	2977	
==>st::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25008	25176	
==>e->get('$_')->send('add_subclass' => $e->get('$self:'));
                              })
                          );
                          $e->get('$self:')->set_a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33791	33890	
==>t

Types: digit (C<\d>), ndigit (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7139	7233	
==>f => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7139	7233	
==>f => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7139	7233	
==>f => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37000	37122	
==>ntext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37000	37122	
==>ntext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37000	37122	
==>ntext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24420	24519	
==>ort_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
el <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28972	29071	
==>ort_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2148	2277	
==>e;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2148	2277	
==>e;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2148	2277	
==>e;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9358	9457	
==>set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set conta <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9358	9457	
==>set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set conta <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	21488	21668	
==>comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in => com <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	485	636	
==>x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    returns Num { exp($x,0.5) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	222	325	
==>have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	222	325	
==>have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	222	325	
==>have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7270	7392	
==>($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functio <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19872	19965	
==>l C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informati <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18853	18946	
==>l C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informati <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19872	19965	
==>l C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informati <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18853	18946	
==>l C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informati <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11875	12024	
==>returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2293	2428	
==>returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2293	2428	
==>returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	930	1033	
==>re_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	930	1033	
==>re_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self. <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1177	1355	
==>h = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$ <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1177	1355	
==>h = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3789	3919	
==>hod(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3789	3919	
==>hod(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3789	3919	
==>hod(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19287	19406	
==>y ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15708	15827	
==>y ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12127	12241	
==>V;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12127	12241	
==>V;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12127	12241	
==>V;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1661	1849	
==>ot work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1661	1849	
==>ot work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1661	1849	
==>ot work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23617	23737	
==>add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20038	20158	
==>add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	676	826	
==>sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{captur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	649	793	
==>sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3545	3635	
==>y $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3545	3635	
==>y $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4135	4225	
==>y $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1963	2078	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1963	2078	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1963	2078	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1161	1275	
==>_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1161	1275	
==>_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1161	1275	
==>_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	502	613	
==>/EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	502	613	
==>/EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	945	1089	
==>ri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        ret <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	945	1089	
==>ri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5927	6026	
==>ired, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5927	6026	
==>ired, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5927	6026	
==>ired, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4368	4528	
==>en) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4368	4528	
==>en) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4368	4528	
==>en) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5519	5702	
==>ng(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8996	9179	
==>ng(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17327	17416	
==>p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17327	17416	
==>p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17327	17416	
==>p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6644	6762	
==>y ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6644	6762	
==>y ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6644	6762	
==>y ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "T <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3541	3652	
==>es => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra = <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3541	3652	
==>es => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	528	633	
==>,
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	528	633	
==>,
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	528	633	
==>,
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class- <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5334	5429	
==>ts internal state as completely as possible. 
This is automatically done as part of C<finish>, C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5334	5429	
==>ts internal state as completely as possible. 
This is automatically done as part of C<finish>, C <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1917	2022	
==>_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index->to_native]
    );
}

sub len <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1676	1776	
==>on();
  return ("") if $position < 0 or $position <= $from;
  return substr $target, $from, $position <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19315	19412	
==>nection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18340	18437	
==>nection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19315	19412	
==>nection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18340	18437	
==>nection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2203	2301	
==>:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2203	2301	
==>:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2203	2301	
==>:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)", <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1599	1692	
==>> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find th <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1599	1692	
==>> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16404	16501	
==>lows any end users to add
support for new languages easily and without a recompile (such as by sim <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16404	16501	
==>lows any end users to add
support for new languages easily and without a recompile (such as by sim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2197	2331	
==>turn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2197	2331	
==>turn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2197	2331	
==>turn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10302	10391	
==>n stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10302	10391	
==>n stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	56	155	
==>N = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document des <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	56	155	
==>N = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document des <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1644	1739	
==>$code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1644	1739	
==>$code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1644	1739	
==>$code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5978	6118	
==>($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5978	6118	
==>($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5978	6118	
==>($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1976	2083	
==>put($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningf <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1976	2083	
==>put($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5203	5314	
==>i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @toke <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5203	5314	
==>i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @toke <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5203	5314	
==>i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @toke <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6467	6575	
==>pan0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6467	6575	
==>pan0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7015	7155	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7015	7155	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7015	7155	
==>ee perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	230	333	
==>Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	230	333	
==>Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5506	5612	
==>must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set ' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5791	5897	
==>must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	364	451	
==>c);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	364	451	
==>c);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	364	451	
==>c);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	520	646	
==>e.

=cut

sub new {
    my($proto, $thing) = @_;

    my $self = {};
    if( ref $thing eq 'GLOB' ) {
        bless $self, 'Tes <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11598	11692	
==>d2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8745	8839	
==>d2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11598	11692	
==>d2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8745	8839	
==>d2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12500	12618	
==>mtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12500	12618	
==>mtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12500	12618	
==>mtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	578	692	
==>d}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	578	692	
==>d}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4396	4604	
==>hod')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2871	2996	
==>e_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11567	11692	
==>e_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3064	3189	
==>e_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11846	11971	
==>e_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2052	2161	
==>Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2052	2161	
==>Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1500	1588	
==>S::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1500	1588	
==>S::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1500	1588	
==>S::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PI <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17722	17838	
==>tr,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return MatchX->new() <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21643	21737	
==>href, containing:

=over

=item C<line>

The original line received from the server (unmodified <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20524	20618	
==>href, containing:

=over

=item C<line>

The original line received from the server (unmodified <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21643	21737	
==>href, containing:

=over

=item C<line>

The original line received from the server (unmodified <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20524	20618	
==>href, containing:

=over

=item C<line>

The original line received from the server (unmodified <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4569	4687	
==>e pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4569	4687	
==>e pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4569	4687	
==>e pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  m <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8924	9019	
==>I<newline>

This event handles newlines in the text, it is a specialization of the 'string' even <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8924	9019	
==>I<newline>

This event handles newlines in the text, it is a specialization of the 'string' even <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	611	752	
==>r) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $cla <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	611	752	
==>r) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18676	18793	
==>ethods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18676	18793	
==>ethods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18676	18793	
==>ethods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12896	13057	
==>, %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12896	13057	
==>, %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12896	13057	
==>, %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7896	8001	
==>xample:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_word( 'abc123', <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7630	7732	
==>xample:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_word( 'abc123', <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	925	1089	
==>q/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requi <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	925	1089	
==>q/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3837	3942	
==>LF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connectio <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3837	3942	
==>LF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connectio <==
5	/Users/nnunley/pugs/util/drift.pl	1616	1708	
==>t OUT <<".";
module $module.Instances ()
where
import $module
import Data.Yaml.Syck
import Dr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28158	28252	
==>is object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28158	28252	
==>is object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4057	4148	
==>superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4057	4148	
==>superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4057	4148	
==>superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	784	896	
==>, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.pri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	784	896	
==>, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.pri <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1216	1313	
==>m B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=ba <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1216	1313	
==>m B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1763	1860	
==>m B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=ba <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15692	15803	
==>ody ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19169	19280	
==>ody ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3041	3137	
==>{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftyp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3041	3137	
==>{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftyp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3041	3137	
==>{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftyp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	79	176	
==>:Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	79	176	
==>:Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14454	14597	
==>rnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14454	14597	
==>rnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14454	14597	
==>rnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1566	1659	
==>mpiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.val <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1566	1659	
==>mpiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.val <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	640	890	
==>package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	640	890	
==>package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rose <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17190	17284	
==>\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($re);
  my $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	189	280	
==>mer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	189	280	
==>mer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	254	369	
==>) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	254	369	
==>) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6562	6668	
==>s.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6562	6668	
==>s.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6562	6668	
==>s.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1263	1430	
==>ed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.pas <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1263	1430	
==>ed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.pas <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	504	614	
==>tion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	504	614	
==>tion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	504	614	
==>tion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1390	1502	
==>mpiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1390	1502	
==>mpiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6122	6233	
==>p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6122	6233	
==>p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6122	6233	
==>p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6706	6832	
==>]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        i <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6706	6832	
==>]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9602	9725	
==>{
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9602	9725	
==>{
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9602	9725	
==>{
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.lengt <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19282	19380	
==>, which is only exited if the connection to the server
dies. To read data from the server, a blocki <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18307	18405	
==>, which is only exited if the connection to the server
dies. To read data from the server, a blocki <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19282	19380	
==>, which is only exited if the connection to the server
dies. To read data from the server, a blocki <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18307	18405	
==>, which is only exited if the connection to the server
dies. To read data from the server, a blocki <==
5	/Users/nnunley/pugs/util/package-osx.pl	6729	6817	
==>r/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overv <==
5	/Users/nnunley/pugs/util/version_h.pl	172	276	
==>$base/.svn/entries";

my $old_revision = -1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#defi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21129	21224	
==>ref, which has the channels C<nick> has joined as
keys. Note that the channel names are normaliz <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20037	20132	
==>ref, which has the channels C<nick> has joined as
keys. Note that the channel names are normaliz <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21129	21224	
==>ref, which has the channels C<nick> has joined as
keys. Note that the channel names are normaliz <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20037	20132	
==>ref, which has the channels C<nick> has joined as
keys. Note that the channel names are normaliz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3346	3455	
==>(usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3346	3455	
==>(usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3346	3455	
==>(usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16622	16721	
==>unt of control as
to what the user sees; it never outputs anything by itself to the user, but
rather <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16622	16721	
==>unt of control as
to what the user sees; it never outputs anything by itself to the user, but
rather <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28147	28247	
==>g
methods:

=over 4

=item my $d = $obj->data()

The object's data.  This might be an array reference <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	731	824	
==>=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1856	1949	
==>=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	731	824	
==>=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1856	1949	
==>=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3594	3704	
==>only
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3594	3704	
==>only
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3594	3704	
==>only
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    meth <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1464	1555	
==>n "selected", either by giving 
them to the unexported C<Log::Selective::select> function or <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1464	1555	
==>n "selected", either by giving 
them to the unexported C<Log::Selective::select> function or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26377	26537	
==>::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26377	26537	
==>::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26377	26537	
==>::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7832	7961	
==>_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7832	7961	
==>_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4029	4145	
==>re p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4029	4145	
==>re p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4029	4145	
==>re p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6 <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2513	2610	
==>module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2513	2610	
==>module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2443	2568	
==>ultidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $contain <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2443	2568	
==>ultidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $contain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7264	7363	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7264	7363	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7264	7363	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6256	6430	
==>)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6256	6430	
==>)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6256	6430	
==>)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add a <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5075	5165	
==>t-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions are <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5075	5165	
==>t-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions are <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3165	3284	
==>= $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3165	3284	
==>= $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3165	3284	
==>= $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	894	990	
==>haracter encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	894	990	
==>haracter encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1838	1968	
==>5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    w <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1838	1968	
==>5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1105	1206	
==>erl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1105	1206	
==>erl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1105	1206	
==>erl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$j <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13214	13338	
==>_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13214	13338	
==>_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	40	151	
==>trict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	40	151	
==>trict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	40	151	
==>trict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3278	3431	
==>me && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3278	3431	
==>me && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5168	5272	
==>($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5168	5272	
==>($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5168	5272	
==>($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13327	13434	
==>the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $spa <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13327	13434	
==>the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	216	316	
==>umber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().au <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	216	316	
==>umber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().au <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	216	316	
==>umber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().au <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4117	4301	
==>e;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4117	4301	
==>e;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8272	8417	
==>[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (no <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8272	8417	
==>[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (no <==
5	/Users/nnunley/pugs/misc/Date/lib/Date.pm	205	302	
==>e_t
method time_t($self:) returns Int {
    ...
}

method add($self: Duration $duration) returns D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16974	17129	
==>ray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16974	17129	
==>ray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOA <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16974	17129	
==>ray->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOA <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7912	8027	
==>$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7900	8015	
==>$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	466	567	
==>= Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	466	567	
==>= Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1997	2090	
==>}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1997	2090	
==>}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1997	2090	
==>}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3812	3934	
==>= shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3812	3934	
==>= shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3812	3934	
==>= shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2278	2374	
==>f.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2278	2374	
==>f.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7240	7364	
==>'$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7240	7364	
==>'$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7240	7364	
==>'$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	862	978	
==>side;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has In <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	862	978	
==>side;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has In <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10367	10552	
==>:Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	909	1078	
==>:Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	909	1078	
==>:Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22663	22802	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22942	23081	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11006	11141	
==>ethod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not foun <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11006	11141	
==>ethod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not foun <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11006	11141	
==>ethod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not foun <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1236	1328	
==>l recurrence set.

These methods are disabled: complement(), difference($set)

  ------------ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1236	1328	
==>l recurrence set.

These methods are disabled: complement(), difference($set)

  ------------ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13873	14013	
==>, see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13873	14013	
==>, see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13873	14013	
==>, see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } el <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14297	14407	
==>ast_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14297	14407	
==>ast_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7248	7351	
==>IL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @IS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7248	7351	
==>IL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @IS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7248	7351	
==>IL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @IS <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14859	14960	
==>et");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14859	14960	
==>et");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8984	9103	
==>start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8984	9103	
==>start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8984	9103	
==>start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7928	8024	
==>:Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 modul <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7928	8024	
==>:Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 modul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11981	12123	
==>mper( $n );
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        return '()'
            unless defined  $n->{e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1254	1385	
==>=> 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5048	5158	
==>sh @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5048	5158	
==>sh @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5048	5158	
==>sh @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9272	9428	
==>sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::p <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10263	10419	
==>sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8082	8192	
==>ict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub exp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8082	8192	
==>ict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub exp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8082	8192	
==>ict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub exp <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6321	6434	
==>error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5394	5507	
==>error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifi <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6321	6434	
==>error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5394	5507	
==>error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	424	537	
==>mber)";
    my %values;
    while (my ($key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1840	1979	
==>$?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1840	1979	
==>$?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1840	1979	
==>$?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8009	8108	
==>son'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_d <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8009	8108	
==>son'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6912	7062	
==>ed} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6912	7062	
==>ed} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6912	7062	
==>ed} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #wa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7895	7993	
==>tive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directiv <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7895	7993	
==>tive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directiv <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5806	5904	
==>t, the only method that truly must be implemented is the 
one that actually enciphers the data.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5666	5764	
==>st.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js te <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5806	5904	
==>t, the only method that truly must be implemented is the 
one that actually enciphers the data.  Th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5666	5764	
==>st.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5666	5764	
==>st.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js te <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17863	17988	
==>:__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20743	20868	
==>:__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24531	24656	
==>:__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1812	1926	
==>rn "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1812	1926	
==>rn "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->cod <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2101	2217	
==>de ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2101	2217	
==>de ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join( <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2106	2220	
==>xename.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is your C <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4423	4513	
==>pher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> ar <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4423	4513	
==>pher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35305	35446	
==>f );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35305	35446	
==>f );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35305	35446	
==>f );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4528	4625	
==>o 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or de <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4528	4625	
==>o 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37736	37846	
==>isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37736	37846	
==>isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37736	37846	
==>isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28083	28180	
==>ion.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32635	32732	
==>ion.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This metho <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	427	546	
==>undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	427	546	
==>undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4480	4584	
==>ie "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4480	4584	
==>ie "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4480	4584	
==>ie "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5547	5679	
==>C
        # in our path.   Let's hunt around for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8854	8947	
==>Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.co <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3783	3876	
==>Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.co <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8854	8947	
==>Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.co <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3783	3876	
==>Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.co <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1790	1900	
==>_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  } <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	500	603	
==>n;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	500	603	
==>n;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18169	18265	
==>ady used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=hea <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18169	18265	
==>ady used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1870	1980	
==>barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "ou <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1870	1980	
==>barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "ou <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1870	1980	
==>barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21415	21511	
==>g>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All right <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21415	21511	
==>g>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All right <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3878	3988	
==>>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3878	3988	
==>>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3878	3988	
==>>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2757	2856	
==>e removed by XORing them together; you might not be able to derive the 
plaintext from the result, b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2757	2856	
==>e removed by XORing them together; you might not be able to derive the 
plaintext from the result, b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	778	882	
==>> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	778	882	
==>> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	778	882	
==>> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unl <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36355	36450	
==>y translate_message() to produce the list of Template module
names that it will search.

=item C <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36355	36450	
==>y translate_message() to produce the list of Template module
names that it will search.

=item C <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2330	2440	
==>proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2330	2440	
==>proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	312	404	
==>il
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	312	404	
==>il
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	312	404	
==>il
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_j <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4051	4195	
==>[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5372	5516	
==>[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4051	4195	
==>[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5360	5504	
==>[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1724	1825	
==>modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = su <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5108	5230	
==>);

    # This local subroutine returns the version of ghc passed to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --v <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	423	533	
==>"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	423	533	
==>"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	19	112	
==>::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export { <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	19	112	
==>::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25451	25621	
==>capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26109	26279	
==>capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25730	25900	
==>capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26388	26558	
==>capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10044	10171	
==>D   = 2;

    # Simple file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: NOTE ###
    # this is intended to even <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15842	15997	
==>r = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15842	15997	
==>r = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15842	15997	
==>r = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, ' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35269	35363	
==>ments, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This met <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35269	35363	
==>ments, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This met <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2380	2501	
==>s>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2380	2501	
==>s>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3475	3584	
==>(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3475	3584	
==>(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3475	3584	
==>(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1787	1924	
==>lue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1787	1924	
==>lue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1787	1924	
==>lue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7393	7491	
==>t data until they have an entire block, then cipher 
the block and return the new ciphertext (or pl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7393	7491	
==>t data until they have an entire block, then cipher 
the block and return the new ciphertext (or pl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12193	12326	
==>params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12193	12326	
==>params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12193	12326	
==>params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	947	1078	
==>. '/control';               # dir to store control MD
$Available      = $Meta . '/available';             # available packages MD
$A <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4359	4461	
==>hat will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4359	4461	
==>hat will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5232	5331	
==>hat will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5232	5331	
==>hat will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7124	7259	
==>ms( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7124	7259	
==>ms( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7124	7259	
==>ms( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2610	2716	
==>$idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2610	2716	
==>$idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1769	1908	
==>LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1769	1908	
==>LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2299	2394	
==>)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2299	2394	
==>)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2299	2394	
==>)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10263	10366	
==>ld $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10263	10366	
==>ld $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2114	2216	
==>escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2114	2216	
==>escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2114	2216	
==>escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8351	8463	
==>put );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.ou <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	561	661	
==>put );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	561	661	
==>put );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.ou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8702	8802	
==>oad bool to false ;)

(I mean, seriously, because that's what p6 does)

and also you can overload @{} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8413	8511	
==>oad bool to false ;)
(I mean, seriously, because that's what p6 does)
and also you can overload @{} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1321	1426	
==>>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1321	1426	
==>>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2734	2826	
==>DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2734	2826	
==>DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3081	3173	
==>DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4382	4525	
==>$__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4382	4525	
==>$__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4382	4525	
==>$__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24070	24165	
==>eading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28622	28717	
==>eading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attrib <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16525	16669	
==>body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20002	20146	
==>body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19562	19706	
==>body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1841	1933	
==>like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1841	1933	
==>like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1071	1195	
==>>{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1027	1146	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	717	823	
==>$_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	717	823	
==>$_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	717	823	
==>$_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1197	1312	
==>riables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1197	1312	
==>riables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1878	2022	
==>.= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1878	2022	
==>.= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1878	2022	
==>.= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22469	22577	
==>entered and then exited.  The general concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE = CURRE <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6867	6964	
==>Exp?
}

NODE PRawName ($pRawName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4449	4553	
==>subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4449	4553	
==>subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4449	4553	
==>subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	815	911	
==>lass supports PMC compilation.
#
# The hope is that this will allow interoperability with modules <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	815	911	
==>lass supports PMC compilation.
#
# The hope is that this will allow interoperability with modules <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1453	1555	
==>O - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1453	1555	
==>O - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1453	1555	
==>O - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret sh <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1455	1555	
==>return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1455	1555	
==>return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
u <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1751	1888	
==>te($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { retu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1751	1888	
==>te($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { retu <==
5	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	860	985	
==>t.tmpl", topic => $topic, entry => $entry );
    }
    when 'update' { 
        say "Updating";
#        die "No topic no entr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1692	1795	
==>eption class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1692	1795	
==>eption class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	281	396	
==>e!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	281	396	
==>e!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	281	396	
==>e!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41015	41105	
==>=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41015	41105	
==>=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15016	15143	
==>theses */

The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* sa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16578	16690	
==>size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16578	16690	
==>size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2391	2486	
==>ethod remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2391	2486	
==>ethod remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16155	16252	
==>iles. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1538	1635	
==>thod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods' <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16155	16252	
==>iles. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1538	1635	
==>thod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1538	1635	
==>thod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods' <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1191	1340	
==>e all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	50	172	
==>ngs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	50	172	
==>ngs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	50	172	
==>ngs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19274	19372	
==>ted>

Returns a true value if the bot's socket to the server is currently connected.

Note that you <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19274	19372	
==>ted>

Returns a true value if the bot's socket to the server is currently connected.

Note that you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	67	189	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	67	189	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	67	189	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3975	4067	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3975	4067	
==>x:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	79	187	
==>into:

- Introduction

- Documentation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    C <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	71	173	
==>into:
- Introduction
- Documentation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38162	38254	
==>.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation::E <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8601	8691	
==>osetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Mode <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8601	8691	
==>osetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Mode <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8299	8453	
==>atch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4659	4813	
==>atch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5508	5662	
==>atch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24924	25018	
==>, USA.

Linking Rosetta statically or dynamically with other components is making a
combined wo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24924	25018	
==>, USA.

Linking Rosetta statically or dynamically with other components is making a
combined wo <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1792	1923	
==>.value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::N <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1792	1923	
==>.value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2664	2777	
==>s->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2664	2777	
==>s->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2664	2777	
==>s->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1355	1481	
==>ass, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1355	1481	
==>ass, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1355	1481	
==>ass, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::mak <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12948	13149	
==>6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12948	13149	
==>6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12948	13149	
==>6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10129	10286	
==>ocal $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pm <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10129	10286	
==>ocal $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9703	9824	
==>onstant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	873	981	
==>tion - pass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# X <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1238	1343	
==>tion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# X <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	837	942	
==>tion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1238	1343	
==>tion - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# X <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12892	12999	
==>ge PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12892	12999	
==>ge PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12892	12999	
==>ge PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	951	1044	
==>e::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	951	1044	
==>e::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5814	5967	
==>end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5814	5967	
==>end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5814	5967	
==>end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38267	38362	
==>$text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38267	38362	
==>$text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17796	17889	
==>I SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<* <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17796	17889	
==>I SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<* <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17796	17889	
==>I SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<* <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23792	23883	
==>cale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about la <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23792	23883	
==>cale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about la <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	70	207	
==>s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	70	207	
==>s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	356	462	
==>]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	356	462	
==>]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	356	462	
==>]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PI <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	23629	23757	
==>b(
						fun => ide("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	29448	29539	
==>Harness::Straps)

Document the format.

Fix HARNESS_COMPILE_TEST without breaking its core u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2274	2353	
==>_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2274	2353	
==>_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_post <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2274	2353	
==>_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_post <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3276	3384	
==>= $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3276	3384	
==>= $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3276	3384	
==>= $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wh <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1858	1963	
==>e'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'di <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1858	1963	
==>e'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'di <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11723	11893	
==>{ $_->[1] } # flag toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6148	6268	
==>{&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7146	7266	
==>{&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn( <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1126	1222	
==>ext = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragme <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1126	1222	
==>ext = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragme <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13564	13770	
==>:any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13843	14049	
==>:any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14503	14647	
==>b { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14503	14647	
==>b { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14503	14647	
==>b { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19810	19945	
==>$v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16231	16366	
==>$v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37178	37274	
==>In any situation where the heading of one source relation is a
full subset of another, the result <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41727	41823	
==>In any situation where the heading of one source relation is a
full subset of another, the result <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41350	41446	
==>In any situation where the heading of one source relation is a
full subset of another, the result <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4240	4332	
==>etta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4240	4332	
==>etta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6291	6378	
==>----------------------------------------------------------
## Module

$::Module = $::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6291	6378	
==>----------------------------------------------------------
## Module

$::Module = $::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6291	6378	
==>----------------------------------------------------------
## Module

$::Module = $::Cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2641	2847	
==>ll' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2641	2847	
==>ll' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2641	2847	
==>ll' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Conta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2344	2476	
==>::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2355	2487	
==>::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5481	5589	
==>ion)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5481	5589	
==>ion)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5481	5589	
==>ion)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4937	5037	
==>);
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^mult <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4937	5037	
==>);
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24354	24592	
==>hod( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24354	24592	
==>hod( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24354	24592	
==>hod( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1255	1348	
==>rs,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative represe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1255	1348	
==>rs,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative represe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1580	1686	
==>m',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1580	1686	
==>m',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1580	1686	
==>m',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1316	1405	
==>sts(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Obj <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1316	1405	
==>sts(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Obj <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	538	660	
==>uire CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	538	660	
==>uire CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	553	663	
==>:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	553	663	
==>:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	553	663	
==>:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3262	3413	
==>if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3262	3413	
==>if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9342	9456	
==>$!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9342	9456	
==>$!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9342	9456	
==>$!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6008	6130	
==>@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6008	6130	
==>@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6008	6130	
==>@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @r <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	945	1048	
==>n %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]): <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	945	1048	
==>n %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]): <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1371	1500	
==>LD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1371	1500	
==>LD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1371	1500	
==>LD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3213	3314	
==>(Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $on <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3213	3314	
==>(Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $on <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1620	1784	
==>LVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1620	1784	
==>LVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29491	29619	
==>_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29491	29619	
==>_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	307	423	
==>_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12257	12380	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12257	12380	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12257	12380	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$. <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	345	442	
==>xport { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	345	442	
==>xport { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	709	1122	
==>idator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	709	1122	
==>idator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosett <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23073	23173	
==>pping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body mu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27625	27725	
==>pping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body mu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26402	26502	
==>pping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body mu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	849	958	
==>@_ ) if @_;
    $args;
}

# For mm args that take multiple space-seperated args,
# append an argument to the c <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	324	454	
==>Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	324	454	
==>Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4294	4386	
==>ncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4294	4386	
==>ncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4294	4386	
==>ncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PI <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13539	13745	
==>) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ', ', 
                map { 
                    join( ' => ', map { "'" . _ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4253	4371	
==>} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we del <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4253	4371	
==>} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we del <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4766	4880	
==>} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we del <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4766	4880	
==>} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we del <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	222	347	
==>t on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8026	8120	
==>@b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Arra <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7156	7250	
==>@b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Arra <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8026	8120	
==>@b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Arra <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7156	7250	
==>@b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Arra <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20570	20681	
==>ser :words {  # see 12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <' <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14326	14434	
==>symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1806	1914	
==>symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1034	1135	
==>ition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1267	1368	
==>ition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6698	6842	
==>x:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6698	6842	
==>x:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6698	6842	
==>x:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8674	8787	
==>e $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8674	8787	
==>e $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	730	838	
==>!! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	730	838	
==>!! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1203	1298	
==>e_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1203	1298	
==>e_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1203	1298	
==>e_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	139	244	
==>6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	139	244	
==>6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	139	244	
==>6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use D <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18485	18579	
==>st results by having a human being write out
that text themselves.

What Locale::KeyedText does <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18485	18579	
==>st results by having a human being write out
that text themselves.

What Locale::KeyedText does <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1720	1808	
==>r.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, retu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1720	1808	
==>r.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6057	6211	
==>: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6877	7031	
==>: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6057	6211	
==>: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6877	7031	
==>: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2613	2716	
==>s) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==",join(" ",@todo) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7103	7235	
==>rn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7103	7235	
==>rn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @it <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7103	7235	
==>rn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @it <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16347	16444	
==>f the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be conv <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16347	16444	
==>f the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be conv <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5558	5691	
==>d', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5751	5884	
==>d', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3087	3212	
==>ok
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3087	3212	
==>ok
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3087	3212	
==>ok
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1934	2055	
==>urn '"' . $n->{double_quoted} . '"' 
        if exists $n->{double_quoted};
            
    return '\'' . $n->{single_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2008	2108	
==>5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2008	2108	
==>5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2008	2108	
==>5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2573	2673	
==>lxname.cmd");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Could not build $exe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4951	5163	
==>) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4951	5163	
==>) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4951	5163	
==>) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24371	24477	
==>]->visual, $self->{data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package Reg <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2469	2561	
==>symmetrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi Num::truncation (Num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6083	6222	
==>ibute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6083	6222	
==>ibute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6083	6222	
==>ibute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12828	12925	
==>g utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSIO <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12828	12925	
==>g utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSIO <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11117	11269	
==>ists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11117	11269	
==>ists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1228	1322	
==>= undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1228	1322	
==>= undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1228	1322	
==>= undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31073	31168	
==>e
consists of the two parts concatenated without any delimiter.  This means,
for example, that t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31073	31168	
==>e
consists of the two parts concatenated without any delimiter.  This means,
for example, that t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7053	7179	
==>my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7053	7179	
==>my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7053	7179	
==>my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warn <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	886	987	
==>sar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	886	987	
==>sar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :m <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	431	587	
==>os => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Par <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	431	587	
==>os => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Par <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35382	35477	
==>will only accept inputs that would result in
a cross-product when joined.  This method has alias <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39932	40027	
==>will only accept inputs that would result in
a cross-product when joined.  This method has alias <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39492	39587	
==>will only accept inputs that would result in
a cross-product when joined.  This method has alias <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3367	3499	
==>tr;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ . <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3367	3499	
==>tr;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2363	2473	
==>ub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2363	2473	
==>ub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2363	2473	
==>ub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_-> <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4905	5029	
==>$value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4764	4888	
==>$value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10655	10762	
==>rgs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10655	10762	
==>rgs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10655	10762	
==>rgs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3573	3746	
==>_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $o <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3573	3746	
==>_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2510	2607	
==>MAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2510	2607	
==>MAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2510	2607	
==>MAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compil <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9467	9625	
==>onfig{_exe}$}
            ) {

                # Smells like a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_exe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4857	4983	
==>ta([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15893	16019	
==>ta([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17381	17507	
==>ta([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22064	22190	
==>ta([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8164	8293	
==>s defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8176	8305	
==>s defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
} <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	697	822	
==>path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have be <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	697	822	
==>path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have be <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2116	2297	
==>hat.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( re <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3708	3885	
==>hat.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4531	4641	
==>});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4531	4641	
==>});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4531	4641	
==>});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8627	8762	
==>fore { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8627	8762	
==>fore { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2206	2316	
==>M;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$k <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2206	2316	
==>M;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$k <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2206	2316	
==>M;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17994	18109	
==>@result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17994	18109	
==>@result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17994	18109	
==>@result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Val <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15006	15113	
==>$__c__}';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2549	2776	
==>\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    pu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2796	3023	
==>\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6021	6109	
==>tringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6021	6109	
==>tringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6021	6109	
==>tringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	23475	23619	
==>ram => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide("f"),
					),
					par <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26293	26388	
==>elation::Example; each Set member is a Mapping whose keys and values are
attribute names and val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7547	7636	
==>y Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1775	1864	
==>y Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9181	9270	
==>y Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1993	2082	
==>y Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3798	3918	
==>ulti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $ <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1898	2018	
==>ulti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19695	19812	
==>alue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19695	19812	
==>alue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19695	19812	
==>alue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	432	628	
==>in '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$prog <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2863	2977	
==>>config;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $bu <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	312	419	
==>age;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $ac <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	312	419	
==>age;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $ac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	179	286	
==>|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreac <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26728	26824	
==>il if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31280	31376	
==>il if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	123	216	
==>.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	123	216	
==>.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	123	216	
==>.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::i <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7647	7875	
==>e};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7647	7875	
==>e};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13581	13730	
==>@list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13581	13730	
==>@list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13581	13730	
==>@list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9911	10016	
==>(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9911	10016	
==>(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9911	10016	
==>(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14877	14971	
==>antics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14877	14971	
==>antics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3598	3805	
==>ype') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CL <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3598	3805	
==>ype') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CL <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3598	3805	
==>ype') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CL <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1273	1391	
==>q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1273	1391	
==>q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	559	728	
==>m($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	559	728	
==>m($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6106	6223	
==>$ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6106	6223	
==>$ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6106	6223	
==>$ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2623	2744	
==>der {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENG <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2623	2744	
==>der {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6771	6858	
==>Role->add_method('resolve' => ::make_method($_resolve));

## --------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6771	6858	
==>Role->add_method('resolve' => ::make_method($_resolve));

## --------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6771	6858	
==>Role->add_method('resolve' => ::make_method($_resolve));

## --------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12913	13017	
==>ASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12913	13017	
==>ASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12913	13017	
==>ASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	36	134	
==>DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a proc <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	36	134	
==>DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a proc <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5303	5435	
==>y($s) = $X::str;
      pos($s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(& <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6113	6214	
==>_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.bu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6113	6214	
==>_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.bu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12963	13053	
==>yedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12963	13053	
==>yedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1829	1923	
==>to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1829	1923	
==>to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1829	1923	
==>to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# .. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5018	5111	
==>eturns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5018	5111	
==>eturns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	66	186	
==>ification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	66	186	
==>ification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	66	186	
==>ification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8659	8748	
==>s, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2484	2573	
==>s, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1453	1561	
==>» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $on <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1453	1561	
==>» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $on <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1242	1337	
==>:Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1242	1337	
==>:Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1242	1337	
==>:Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10819	10934	
==>('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params," <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10819	10934	
==>('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params," <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10819	10934	
==>('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params," <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1129	1243	
==>load::StrVal($self)};
    }

    sub compute_digest {
    my $self = shift;
        my $sha1 = Digest->new("SHA-1") <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	753	843	
==>he perl backend that
conditionally excludes some builtin operators to demonstrate dynamicit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17901	18042	
==>pe_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=ove <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17901	18042	
==>pe_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=ove <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10120	10238	
==>gument #3 to:

    { bool => 0 } - match failed

or to a hashref containing:

    bool  - an "assertion" (true/fa <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1778	1890	
==>at functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1778	1890	
==>at functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3990	4090	
==>est.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3990	4090	
==>est.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4070	4170	
==>est.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17835	17942	
==>->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHOR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17835	17942	
==>->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHOR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17835	17942	
==>->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHOR <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10220	10322	
==>->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10220	10322	
==>->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	82	181	
==>l 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	82	181	
==>l 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	591	688	
==>@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	591	688	
==>@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	591	688	
==>@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2409	2516	
==>1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2409	2516	
==>1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2409	2516	
==>1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17925	18022	
==>e
essentially all isolated from each other, even if more than one uses the
same Engine class to im <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17925	18022	
==>e
essentially all isolated from each other, even if more than one uses the
same Engine class to im <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28018	28176	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28018	28176	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28018	28176	
==>ch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' | <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4093	4172	
==>0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4093	4172	
==>0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	394	501	
==>seem to get initialized properly
    # and calling members before any values are
    # set results in a erro <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	394	501	
==>seem to get initialized properly
    # and calling members before any values are
    # set results in a erro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5	98	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5	98	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5	98	
==>r/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1682	1822	
==>defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2011	2148	
==>defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $node <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1624	1761	
==>defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2011	2148	
==>defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $node <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18073	18163	
==>lANDExpression>
    | <LogicalORExpression> <'||'> <LogicalANDExpression>
}
rule LogicalORE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33937	34049	
==>) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33937	34049	
==>) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33937	34049	
==>) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2639	2741	
==>.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2639	2741	
==>.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	115	235	
==>izer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	115	235	
==>izer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	115	235	
==>izer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $cl <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6020	6127	
==>}
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event h <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6020	6127	
==>}
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1035	1173	
==>tr   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1035	1173	
==>tr   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12914	13008	
==>ULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12914	13008	
==>ULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12914	13008	
==>ULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7567	7674	
==>w($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_si <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7567	7674	
==>w($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_si <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7567	7674	
==>w($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_si <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	2	100	
==>/usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	2	100	
==>/usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23093	23208	
==>REC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19514	19629	
==>REC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1425	1520	
==>nals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1425	1520	
==>nals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1425	1520	
==>nals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo () <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17876	18033	
==>n_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21353	21510	
==>n_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20940	21097	
==>n_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11920	12019	
==>=' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is rig <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11920	12019	
==>=' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is rig <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	805	936	
==>r";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	824	945	
==>r";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3902	4003	
==>"" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3902	4003	
==>"" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3902	4003	
==>"" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arit <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	600	741	
==>e";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	635	776	
==>e";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	600	741	
==>e";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_ <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9817	9958	
==>e";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_ <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1073	1214	
==>e";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2074	2186	
==>ll {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $sel <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15001	15097	
==>rrently is to implement this as a mutually recursive multi-
sub which will be able to handle stru <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15059	15155	
==>rrently is to implement this as a mutually recursive multi-
sub which will be able to handle stru <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11686	11770	
==>little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<g <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11686	11770	
==>little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<g <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5715	5841	
==>allation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    return 1;
}

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1002	1104	
==>ect
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1002	1104	
==>ect
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1002	1104	
==>ect
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	825	926	
==>me = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# get the forma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16554	16666	
==>_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16554	16666	
==>_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16554	16666	
==>_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1759	1856	
==>(literal).



App is divided to Multiple, Single and Primitive dispatch.

Lit is divided to variou <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1690	1784	
==>(literal).

App is divided to Multiple, Single and Primitive dispatch.
Lit is divided to variou <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17176	17288	
==>g, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13597	13709	
==>g, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23061	23161	
==>es.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27613	27713	
==>es.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26390	26490	
==>es.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tupl <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	727	823	
==>` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	727	823	
==>` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10818	10939	
==>sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_d <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10818	10939	
==>sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13485	13589	
==>1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13485	13589	
==>1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13485	13589	
==>1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	742	858	
==>my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	742	858	
==>my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	334	433	
==>class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	334	433	
==>class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	334	433	
==>class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a ha <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2389	2512	
==>ic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if $x < 0       { return -1    };
   if <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13893	14005	
==>();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19097	19209	
==>();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13893	14005	
==>();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19097	19209	
==>();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3595	3701	
==>document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3595	3701	
==>document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	868	966	
==>ta::Dumper::Dumper($_[0]);
}

sub import {
	# get the format specified on the command line
	$dumper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13484	13602	
==>t;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13484	13602	
==>t;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13484	13602	
==>t;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( ' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4020	4119	
==>ng C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4020	4119	
==>ng C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2162	2439	
==>re:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ), <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2538	2658	
==>) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2538	2658	
==>) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2538	2658	
==>) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg. <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8744	8861	
==>ch_return_CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	262	374	
==>H(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	262	374	
==>H(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	262	374	
==>H(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13348	13443	
==>cument.new(), by which you can create an identical Document (with member
Nodes) to the one you f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13348	13443	
==>cument.new(), by which you can create an identical Document (with member
Nodes) to the one you f <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10261	10364	
==>ield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTO <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10261	10364	
==>ield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3109	3198	
==>ude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3109	3198	
==>ude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3109	3198	
==>ude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	579	688	
==>ALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	579	688	
==>ALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	579	688	
==>ALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Re <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	53	146	
==>final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.a <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	53	146	
==>final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9898	10005	
==>s) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) { <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9898	10005	
==>s) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36952	37043	
==>ource relations have identical headings, for these their joining
degenerates to a C<intersec <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41501	41592	
==>ource relations have identical headings, for these their joining
degenerates to a C<intersec <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41124	41215	
==>ource relations have identical headings, for these their joining
degenerates to a C<intersec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1761	1889	
==>ass . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1761	1889	
==>ass . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1761	1889	
==>ass . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebles <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5192	5310	
==>string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5414	5532	
==>string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4938	5064	
==>";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4938	5064	
==>";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4938	5064	
==>";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	484	588	
==>e( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	484	588	
==>e( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4292	4392	
==>e methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4292	4392	
==>e methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4292	4392	
==>e methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15234	15332	
==>Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C< <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15234	15332	
==>Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2336	2457	
==>for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2336	2457	
==>for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2336	2457	
==>for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17581	17674	
==>ng Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17581	17674	
==>ng Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3524	3627	
==>ion($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3524	3627	
==>ion($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $on <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13577	13675	
==>able};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13577	13675	
==>able};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13577	13675	
==>able};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1169	1281	
==>sed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1169	1281	
==>sed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1169	1281	
==>sed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	320	421	
==>is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns A <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	320	421	
==>is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns A <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2394	2489	
==>>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text n <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2394	2489	
==>>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1417	1503	
==>bute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1417	1503	
==>bute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1417	1503	
==>bute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6507	6640	
==>only allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure t <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6507	6640	
==>only allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9109	9208	
==>::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9109	9208	
==>::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9109	9208	
==>::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27605	27699	
==>f the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32157	32251	
==>f the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31249	31343	
==>f the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2784	2869	
==>or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please subm <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2784	2869	
==>or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please subm <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4482	4588	
==>rce($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	139	238	
==>installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	139	238	
==>installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	139	238	
==>installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	139	238	
==>installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3493	3609	
==>ode = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3493	3609	
==>ode = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1131	1246	
==>w PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1131	1246	
==>w PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1131	1246	
==>w PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1965	2060	
==>O - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub ad <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1965	2060	
==>O - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub ad <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1965	2060	
==>O - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub ad <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11912	12005	
==>s the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11912	12005	
==>s the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1915	2031	
==>te;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTT <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1915	2031	
==>te;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17409	17509	
==>o_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17409	17509	
==>o_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17409	17509	
==>o_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
M <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4399	4500	
==>_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4584	4685	
==>_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22097	22194	
==>f(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22097	22194	
==>f(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22097	22194	
==>f(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @x <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1082	1210	
==>le);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::F <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1049	1177	
==>le);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8542	8645	
==>es->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8542	8645	
==>es->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8542	8645	
==>es->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1052	1149	
==>boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1052	1149	
==>boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1052	1149	
==>boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to ini <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	210	303	
==>input_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	210	303	
==>input_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	78	178	
==>constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	78	178	
==>constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	78	178	
==>constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4066	4159	
==>d :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4066	4159	
==>d :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	276	371	
==>S::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("..." <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	276	371	
==>S::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("..." <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	276	371	
==>S::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("..." <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3883	4147	
==>ment>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $t <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3926	4190	
==>ment>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $t <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3883	4147	
==>ment>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $t <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3926	4190	
==>ment>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $t <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3753	3847	
==>ig_func 'asinh';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
tr <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6619	6716	
==>Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to i <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6619	6716	
==>Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6255	6351	
==>t to mess
with members belonging to 3rd party classes that your object might be
holding. Using th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6255	6351	
==>t to mess
with members belonging to 3rd party classes that your object might be
holding. Using th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6255	6351	
==>t to mess
with members belonging to 3rd party classes that your object might be
holding. Using th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5653	5784	
==>variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5875	6006	
==>variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9716	9801	
==>dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9716	9801	
==>dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9716	9801	
==>dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12645	12769	
==>d handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!han <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12645	12769	
==>d handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!han <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1035	1136	
==>(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1035	1136	
==>(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1035	1136	
==>(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17791	17891	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17791	17891	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17791	17891	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18663	18761	
==>ne boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> sta <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18663	18761	
==>ne boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18344	18546	
==>nfess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18344	18546	
==>nfess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18344	18546	
==>nfess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8806	8915	
==>rson_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TAB <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8806	8915	
==>rson_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TAB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10340	10451	
==>private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10340	10451	
==>private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10340	10451	
==>private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the cl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5418	5514	
==>.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5418	5514	
==>.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curni <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27083	27238	
==>(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27362	27517	
==>(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7926	8026	
==>an );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves i <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7926	8026	
==>an );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves i <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3240	3328	
==>elf->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_equiv <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4886	5002	
==>);

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler->n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4719	4829	
==>);
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1132	1232	
==>_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1132	1232	
==>_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1132	1232	
==>_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsv <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	265	366	
==>= 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSI <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	265	366	
==>= 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4836	4932	
==>ginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4836	4932	
==>ginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4836	4932	
==>ginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11380	11529	
==>e::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break g <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11380	11529	
==>e::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break g <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11380	11529	
==>e::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break g <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	389	508	
==>ring is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patte <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	389	508	
==>ring is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4096	4210	
==>};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4096	4210	
==>};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4096	4210	
==>};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19564	19659	
==>::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-colu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19564	19659	
==>::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-colu <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	592	728	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	592	728	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11763	11847	
==>xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11763	11847	
==>xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_pe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11763	11847	
==>xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_pe <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6373	6508	
==>ay)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     safe   (List)\
\\n   Junction  pre     all     s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26083	26180	
==>-readable short
string; the allowed variable names you can have depend on the Message Key
it is be <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26083	26180	
==>-readable short
string; the allowed variable names you can have depend on the Message Key
it is be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	384	485	
==>itive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	384	485	
==>itive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	384	485	
==>itive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Arr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15763	15857	
==>the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanif <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15763	15857	
==>the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanif <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	870	1022	
==>elf->{levels}}, $_-1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'looser' ) {
                splice( @{$self <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24601	24697	
==>head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23365	23461	
==>head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24601	24697	
==>head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23365	23461	
==>head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2759	2875	
==>rity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2759	2875	
==>rity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2759	2875	
==>rity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  us <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7204	7304	
==>ch returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as par <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7204	7304	
==>ch returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as par <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8014	8171	
==>= match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8014	8171	
==>= match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8014	8171	
==>= match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pus <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4289	4381	
==>ay()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tom <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4289	4381	
==>ay()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	974	1096	
==>_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	974	1096	
==>_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	974	1096	
==>_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = c <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	550	637	
==>darc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$no <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	550	637	
==>darc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$no <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25630	25725	
==>ocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says which <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30182	30277	
==>ocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says which <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25249	25343	
==>able identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29801	29895	
==>able identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28731	28825	
==>able identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11710	11846	
==>iven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15187	15323	
==>iven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14522	14658	
==>iven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @other <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12541	12641	
==>s the result to is or ok
on success, or report that the eval was not successful on failure.

- `throw <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12599	12699	
==>s the result to is or ok
on success, or report that the eval was not successful on failure.

- `throw <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4106	4271	
==>($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4570	4735	
==>($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6357	6458	
==>rr) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6357	6458	
==>rr) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6357	6458	
==>rr) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2J <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12900	13013	
==>tify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12900	13013	
==>tify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12900	13013	
==>tify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	18	122	
==>use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	18	122	
==>use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2157	2256	
==>IL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2157	2256	
==>IL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2157	2256	
==>IL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8136	8231	
==>nds {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) { <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8194	8289	
==>nds {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) { <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4118	4311	
==>rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4118	4311	
==>rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38047	38199	
==>ar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38047	38199	
==>ar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $ite <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38047	38199	
==>ar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	463	566	
==>pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	463	566	
==>pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	463	566	
==>pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1873	1974	
==>tr {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1873	1974	
==>tr {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25040	25160	
==>s, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25595	25715	
==>s, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2079	2196	
==>y $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependenc <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3448	3561	
==>y $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependenc <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11564	11665	
==>ignedDecimalLiteral>
}
rule StrUnsignedDecimalLiteral {  # see 9.3.1
      <'Infinity'>
    | <Decimal <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2020	2124	
==>my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSafe: <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18635	18737	
==>pressionNoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <Le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2208	2307	
==>ls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2208	2307	
==>ls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2208	2307	
==>ls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4799	4950	
==>umber of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have dif <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4799	4950	
==>umber of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have dif <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4380	4495	
==>);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track d <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4380	4495	
==>);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track d <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8660	8769	
==>OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_C__/$unic <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1359	1490	
==>h();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
m <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1359	1490	
==>h();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12128	12256	
==>eason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO doe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2530	2644	
==>eason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO doe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2530	2644	
==>eason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO doe <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	817	948	
==>*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_ut <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	817	948	
==>*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_ut <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	12	105	
==>doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	12	105	
==>doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	12	105	
==>doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29047	29157	
==>LT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29047	29157	
==>LT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	398	496	
==>LT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15991	16088	
==>en `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15991	16088	
==>en `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods re <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4334	4443	
==>tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track dow <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4388	4497	
==>tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track dow <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4334	4443	
==>tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track dow <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4388	4497	
==>tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track dow <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3452	3555	
==>hat Mapping is the name
        # of one of this Relation::Example's attributes and the value correspond <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5162	5389	
==>if (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5162	5389	
==>if (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quo <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8902	9008	
==>avoured ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we ca <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	239	335	
==>tent;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	239	335	
==>tent;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	796	901	
==>PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	796	901	
==>PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	796	901	
==>PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PI <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	82	183	
==>nge returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * t <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	82	183	
==>nge returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4409	4533	
==>us}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4409	4533	
==>us}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4409	4533	
==>us}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12837	12933	
==>ected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12895	12991	
==>ected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1796	1896	
==>Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	77	177	
==>es;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1796	1896	
==>Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1796	1896	
==>Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	42	141	
==>es;
sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6879	7004	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6879	7004	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6879	7004	
==>cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4484	4587	
==>od difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4484	4587	
==>od difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14839	14952	
==>que_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14839	14952	
==>que_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14839	14952	
==>que_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	959	1068	
==>ckage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Si <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	959	1068	
==>ckage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6168	6277	
==>mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6168	6277	
==>mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6168	6277	
==>mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20480	20574	
==>ead2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20480	20574	
==>ead2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$bot <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	548	653	
==>turn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	548	653	
==>turn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	548	653	
==>turn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1478	1582	
==>tf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encodin <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1478	1582	
==>tf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encodin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5308	5428	
==>/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tempor <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6576	6696	
==>/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tempor <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5308	5428	
==>/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tempor <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6564	6684	
==>/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - tempor <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22887	23004	
==>se:
    mname = ":i"
  setpad:
    $P0 = pad[mname]
    pad[mname] = value
    exp = self[0]
    exp = exp.p6analyze(p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	258	380	
==>o .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	258	380	
==>o .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	258	380	
==>o .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # cor <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	482	601	
==>n::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_ope <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	482	601	
==>n::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_ope <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	673	805	
==>TA },
    };
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    ### make it a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39390	39482	
==>perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5125	5217	
==>perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39390	39482	
==>perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5125	5217	
==>perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keyed <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2766	2862	
==>ead1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of auth <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2923	3019	
==>ead1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of auth <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2766	2862	
==>ead1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of auth <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2923	3019	
==>ead1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of auth <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15108	15204	
==>h at the
beginning and end of a "word", respectively.  C<< /</ >> is equivalent to
C</(?!\w)(?=\w <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34536	34639	
==>rray ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_na <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34536	34639	
==>rray ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_na <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5687	5782	
==><+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5687	5782	
==><+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5687	5782	
==><+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4776	4947	
==>2N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $progra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4998	5169	
==>2N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $progra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	607	714	
==>code;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	607	714	
==>code;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	607	714	
==>code;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34161	34285	
==>e::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34161	34285	
==>e::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34161	34285	
==>e::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	152	249	
==>my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $I <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	152	249	
==>my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	619	767	
==>t_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	654	802	
==>t_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	619	767	
==>t_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_a <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9836	9984	
==>t_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_a <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1092	1240	
==>t_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_path, $dest_path);
        }
        if (-d $src_path) {
            copy_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	368	487	
==>ion () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2 <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5627	5746	
==>A $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	368	487	
==>ion () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	368	487	
==>ion () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2149	2243	
==>nt);
    $optable->addToken("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17012	17147	
==>{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }x <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13433	13568	
==>{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2110	2241	
==>= Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&In <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2110	2241	
==>= Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&In <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2110	2241	
==>= Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&In <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2832	2975	
==>lternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        op <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3120	3255	
==>lternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        op <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9538	9673	
==>lternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3120	3255	
==>lternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9538	9673	
==>lternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        op <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36834	36931	
==>relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41383	41480	
==>relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41006	41103	
==>relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situati <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16341	16435	
==>ned mainly in terms of a new high-level
programming language named "Rosetta D", which is comput <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16341	16435	
==>ned mainly in terms of a new high-level
programming language named "Rosetta D", which is comput <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	783	895	
==>ny parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	783	895	
==>ny parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	783	895	
==>ny parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3968	4074	
==>d.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4185	4291	
==>d.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1439	1533	
==>ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3521	3612	
==>s.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3521	3612	
==>s.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3521	3612	
==>s.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1419	1510	
==>ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2033	2140	
==>tput;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	44	141	
==>tput;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	44	141	
==>tput;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13122	13218	
==>e sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13122	13218	
==>e sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answe <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	983	1078	
==>re details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> dir <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	983	1078	
==>re details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> dir <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11032	11182	
==>$args{progs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else { <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3917	4041	
==>egistered_alternatives( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( meta => $_, insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16255	16360	
==>6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16255	16360	
==>6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16255	16360	
==>6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB fr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12634	12880	
==>le::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to use <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12634	12880	
==>le::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5454	5562	
==>rts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(':: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5454	5562	
==>rts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(':: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5454	5562	
==>rts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(':: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34801	34908	
==>tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inser <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34801	34908	
==>tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inser <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34801	34908	
==>tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inser <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23420	23509	
==>rwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
externa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23420	23509	
==>rwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
externa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	84	192	
==>ation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub comp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	82	183	
==>ation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub comp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	76	177	
==>ation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	82	183	
==>ation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	76	177	
==>ation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8700	8819	
==>";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defau <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8700	8819	
==>";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defau <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8700	8819	
==>";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defau <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15368	15476	
==>$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9565	9673	
==>$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @ <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2413	2517	
==>n maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) { <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2413	2517	
==>n maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2509	2611	
==>q $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($prot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2509	2611	
==>q $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($prot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2509	2611	
==>q $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($prot <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3740	3870	
==>submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3752	3882	
==>submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8885	9014	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8885	9014	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8885	9014	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ] <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	16	118	
==>ugs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementati <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	16	118	
==>ugs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5670	5768	
==>f ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5670	5768	
==>f ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6260	6358	
==>f ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    e <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	288	380	
==>lement.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-styl <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	288	380	
==>lement.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-styl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	127	284	
==>g Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	127	284	
==>g Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1644	1751	
==>lit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1644	1751	
==>lit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1644	1751	
==>lit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1160	1269	
==>urn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1160	1269	
==>urn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4050	4146	
==>->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4050	4146	
==>->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4640	4736	
==>->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7272	7494	
==>e {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7272	7494	
==>e {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @span <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	756	846	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1134	1224	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1773	1863	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2208	2298	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	756	846	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5770	5897	
==>PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5770	5897	
==>PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5770	5897	
==>PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3140	3265	
==>a
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$h <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3140	3265	
==>a
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3501	3617	
==>er<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18995	19111	
==>range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SU <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3501	3617	
==>er<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18995	19111	
==>range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18995	19111	
==>range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8016	8150	
==>0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8016	8150	
==>0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8016	8150	
==>0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18912	19006	
==>ould have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18912	19006	
==>ould have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	871	1021	
==>data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unesca <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	871	1021	
==>data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unesca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13817	13913	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13817	13913	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13817	13913	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pre <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4863	4997	
==>$time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: ) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4863	4997	
==>$time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	2	93	
==>XXX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	2	93	
==>XXX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	2	93	
==>XXX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Ru <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2241	2351	
==>odule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*mod <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2241	2351	
==>odule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1111	1215	
==>perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1111	1215	
==>perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1111	1215	
==>perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mod <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5217	5312	
==>=item get($url)

The get() function will fetch the document identified by the given URL
and retu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5217	5312	
==>=item get($url)

The get() function will fetch the document identified by the given URL
and retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7422	7508	
==>PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7422	7508	
==>PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7422	7508	
==>PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inlin <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1478	1583	
==>two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* R <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1478	1583	
==>two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	393	492	
==>nt 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	393	492	
==>nt 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	393	492	
==>nt 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9496	9612	
==>c);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9496	9612	
==>c);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9496	9612	
==>c);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7458	7559	
==>e, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?S <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7458	7559	
==>e, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	1	110	
==>ackage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	1	110	
==>ackage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	1	110	
==>ackage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23199	23291	
==>t, which could
produce ambiguous results or associations.  Or alternately, the other
packages <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23199	23291	
==>t, which could
produce ambiguous results or associations.  Or alternately, the other
packages <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2605	2700	
==>s->version($version)     if defined $version;
    $new_class->authority($authority) if defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2605	2700	
==>s->version($version)     if defined $version;
    $new_class->authority($authority) if defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2605	2700	
==>s->version($version)     if defined $version;
    $new_class->authority($authority) if defined $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14918	15012	
==>IENCE METHODS

The most frequently used headers can also be accessed through the
following conv <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14918	15012	
==>IENCE METHODS

The most frequently used headers can also be accessed through the
following conv <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8066	8178	
==>ick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8066	8178	
==>ick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6234	6344	
==>p(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6234	6344	
==>p(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6234	6344	
==>p(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	498	649	
==>elf<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            fo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	498	649	
==>elf<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11811	11916	
==>p::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11811	11916	
==>p::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11811	11916	
==>p::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35726	35833	
==>fset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35726	35833	
==>fset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35726	35833	
==>fset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == leng <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4281	4385	
==>tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this i <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4281	4385	
==>tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11752	11906	
==>thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11752	11906	
==>thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11752	11906	
==>thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1783	1881	
==>akefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Ma <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1783	1881	
==>akefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Ma <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5460	5556	
==>ason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5460	5556	
==>ason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6984	7080	
==>ason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3642	3734	
==>intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersecti <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3642	3734	
==>intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersecti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	628	744	
==>",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pugs-Compiler-Precedence/lib",
        
        "$Bin/../lib", <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3582	3684	
==>-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3582	3684	
==>-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4457	4557	
==>-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4457	4557	
==>-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3769	4112	
==>->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_a <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6047	6151	
==>_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = subst <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3710	3862	
==>nd;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3710	3862	
==>nd;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3469	3576	
==>ra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3469	3576	
==>ra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3469	3576	
==>ra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9815	9951	
==>, _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9815	9951	
==>, _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9815	9951	
==>, _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::n <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19058	19150	
==>age Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3217	3335	
==>new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7599	7689	
==>erl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1827	1917	
==>erl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9233	9323	
==>erl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2045	2135	
==>erl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>st <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	113	217	
==>include Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	113	217	
==>include Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7373	7475	
==>t($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7373	7475	
==>t($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7373	7475	
==>t($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	711	820	
==>T: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	917	1026	
==>T: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #p <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4000	4131	
==>wn PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compil <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4000	4131	
==>wn PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18715	18842	
==>> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18715	18842	
==>> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18715	18842	
==>> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13251	13394	
==>ine      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => st <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13251	13394	
==>ine      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => st <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12343	12478	
==>ine      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => st <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12343	12478	
==>ine      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => st <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2739	2850	
==>> \$perl },
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    my $perl_ve <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5617	5750	
==>'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit( $n->{pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24121	24216	
==>ent automatically sending something
  in response to something it received.  This is typically u <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22894	22989	
==>ent automatically sending something
  in response to something it received.  This is typically u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24121	24216	
==>ent automatically sending something
  in response to something it received.  This is typically u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22894	22989	
==>ent automatically sending something
  in response to something it received.  This is typically u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2653	2785	
==>L::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requir <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2653	2785	
==>L::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requir <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2653	2785	
==>L::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requir <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9640	9734	
==>odule_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9640	9734	
==>odule_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12720	12813	
==>element in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns p <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12720	12813	
==>element in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3510	3609	
==>$^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3510	3609	
==>$^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5902	6010	
==>ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5902	6010	
==>ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5902	6010	
==>ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20089	20180	
==>ys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20089	20180	
==>ys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $ev <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	50	190	
==>r        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is ex <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	50	190	
==>r        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is ex <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	51	179	
==>r        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is ex <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	51	179	
==>r        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is ex <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24552	24647	
==>2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29104	29199	
==>2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27980	28075	
==>2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Rel <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10802	10894	
==>urns Str>

=item B<content_length returns Str>

=back

B<The following informational function <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10802	10894	
==>urns Str>

=item B<content_length returns Str>

=back

B<The following informational function <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1154	1250	
==>lain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference do <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1154	1250	
==>lain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference do <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	697	818	
==>ack or pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8383	8485	
==>:($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8383	8485	
==>:($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5706	5800	
==>ctual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5509	5599	
==>ctual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	217	315	
==>ress sub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt Pos Pad Sym Stmts Prim Val V <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11884	11980	
==>te::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13276	13372	
==>te::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11884	11980	
==>te::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13276	13372	
==>te::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, e <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9342	9464	
==>ere this option belongs: $_" unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((j <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15074	15172	
==>s operation, the program (or a package it uses)
will need to display a message to the user, or gene <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15074	15172	
==>s operation, the program (or a package it uses)
will need to display a message to the user, or gene <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23627	23721	
==>many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this mo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23627	23721	
==>many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14941	15050	
==>shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14941	15050	
==>shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14941	15050	
==>shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3768	3864	
==>e_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $se <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3768	3864	
==>e_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5116	5216	
==>gE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1073	1173	
==>gE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	933	1033	
==>gE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5116	5216	
==>gE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1073	1173	
==>gE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1042	1138	
==>s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1042	1138	
==>s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1042	1138	
==>s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	878	971	
==>as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C< <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	878	971	
==>as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2136	2240	
==>p {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2136	2240	
==>p {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2136	2240	
==>p {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	727	827	
==>ug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	727	827	
==>ug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	14446	14667	
==>ylesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl.org/css/perl.css"
                                   ));
        if (exists $i <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12077	12184	
==>move_available( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7649	7754	
==>$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmet <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7649	7754	
==>$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmet <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5177	5276	
==>ected is 0, then $range is an absolute value
# otherwise $range is a fractional error.
# Here $range <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3608	3741	
==>$name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3608	3741	
==>$name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3608	3741	
==>$name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaq <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9674	9770	
==>sc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9732	9828	
==>sc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1069	1174	
==>en, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1069	1174	
==>en, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1069	1174	
==>en, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13309	13413	
==>t containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the r <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13309	13413	
==>t containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11284	11460	
==>ard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11284	11460	
==>ard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1551	1643	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1551	1643	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1551	1643	
==>w PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1803	1948	
==>rn;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir ) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	807	901	
==>til::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	999	1093	
==>til::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	807	901	
==>til::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	999	1093	
==>til::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	732	837	
==>XXX touch the 'root' entry and the tests will run somewhere quite different!
$config{'root'}             = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6194	6290	
==>ix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5324	5420	
==>ix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6194	6290	
==>ix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5324	5420	
==>ix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4330	4425	
==>nite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4330	4425	
==>nite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4330	4425	
==>nite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub i <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1038	1131	
==>s Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1038	1131	
==>s Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2419	2543	
==>> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2419	2543	
==>> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2419	2543	
==>> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_wh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7930	8035	
==>bject that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7662	7764	
==>bject that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Matc <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35376	35471	
==>all Set Names elements in this object as an array ref.

=item C<get_member_names()>

This method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16644	16739	
==>o ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35376	35471	
==>all Set Names elements in this object as an array ref.

=item C<get_member_names()>

This method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16644	16739	
==>o ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16644	16739	
==>o ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTI <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3048	3159	
==>cat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syncat} = P <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6129	6226	
==>wo) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5259	5356	
==>wo) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6129	6226	
==>wo) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5259	5356	
==>wo) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15530	15702	
==>boxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimizati <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15530	15702	
==>boxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimizati <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15530	15702	
==>boxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimizati <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	683	813	
==>uth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	683	813	
==>uth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3698	3818	
==>ram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3698	3818	
==>ram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3698	3818	
==>ram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_j <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1177	1286	
==>> 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfia <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1177	1286	
==>> 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfia <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1167	1274	
==>constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1167	1274	
==>constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9386	9482	
==>n sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9386	9482	
==>n sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9386	9482	
==>n sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7938	8023	
==>~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($kille <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7938	8023	
==>~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($kille <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1495	1610	
==>al>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1495	1610	
==>al>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1495	1610	
==>al>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3570	3680	
==>h ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3570	3680	
==>h ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	314	432	
==>port(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) re <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	314	432	
==>port(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) re <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1933	2025	
==>hat informative but utterly confusing synopsis, you should
be left with nothing but questions <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1933	2025	
==>hat informative but utterly confusing synopsis, you should
be left with nothing but questions <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9969	10065	
==>ations
are performed at the moment the user tries to set the input, and input that
fails immediat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9969	10065	
==>ations
are performed at the moment the user tries to set the input, and input that
fails immediat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3008	3149	
==>ll = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3008	3149	
==>ll = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3008	3149	
==>ll = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4084	4181	
==>e of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unico <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4084	4181	
==>e of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unico <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2844	2966	
==>pan.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2844	2966	
==>pan.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $s <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2688	2790	
==>my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2688	2790	
==>my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16297	16380	
==>d_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10170	10295	
==>within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10170	10295	
==>within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10170	10295	
==>within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5249	5361	
==>) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5249	5361	
==>) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4553	4653	
==>d> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should co <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4553	4653	
==>d> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6750	6850	
==>d> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5441	5540	
==>ined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($auth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5441	5540	
==>ined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($auth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5441	5540	
==>ined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($auth <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10241	10335	
==>};
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10241	10335	
==>};
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12971	13086	
==>nt) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> St <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12971	13086	
==>nt) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3706	3813	
==>t == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3706	3813	
==>t == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3706	3813	
==>t == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7921	8087	
==>::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4281	4447	
==>::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5130	5296	
==>::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $b <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	592	694	
==>ults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	592	694	
==>ults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10458	10577	
==>:Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10458	10577	
==>:Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10458	10577	
==>:Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2595	2691	
==>n { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2595	2691	
==>n { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement gr <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17024	17148	
==>)
    $P0 = 0

    $P0 = find_global "PGE::Rule", "p6rule"
    exp = $P0(exp)
    unless exp goto end
    $S0 = exp
    if $S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25060	25157	
==>ur program.  The Message class is pure and deterministic,
such that all of its class and object me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25060	25157	
==>ur program.  The Message class is pure and deterministic,
such that all of its class and object me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6606	6732	
==>LEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6606	6732	
==>LEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6606	6732	
==>LEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2171	2277	
==>lass, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2171	2277	
==>lass, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5470	5643	
==>~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5470	5643	
==>~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5727	5843	
==>f, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5727	5843	
==>f, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use b <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6317	6433	
==>f, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use b <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1496	1605	
==>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,] <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1496	1605	
==>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7453	7554	
==>n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7453	7554	
==>n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7453	7554	
==>n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2333	2475	
==>b = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gree <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8892	9034	
==>b = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gree <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2333	2475	
==>b = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gree <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8888	9030	
==>b = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gree <==
5	/Users/nnunley/pugs/util/build_pugs.pl	4028	4165	
==>src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidates, $File::Fi <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4374	4497	
==>{ code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4432	4555	
==>{ code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $t <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11086	11192	
==>urn sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        els <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11086	11192	
==>urn sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        els <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1520	1786	
==>verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                whe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1520	1786	
==>verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                whe <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2624	2736	
==>?%opts)) returns method 
    ((= $method NIL)
     (= $current (&dispatcher do))
     (while (($current is_not_ni <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	48	149	
==>s.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level struct <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	48	149	
==>s.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level struct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16637	16733	
==>tcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16637	16733	
==>tcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16637	16733	
==>tcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DES <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3338	3432	
==>tta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable cl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3338	3432	
==>tta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	441	543	
==>lement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	441	543	
==>lement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	441	543	
==>lement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35848	35947	
==>{rx}->object(ifmatch => 1, @$_);
    }

The 'ifmatch' object is a positive looking assertion, and th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1582	1680	
==>racter class") if @names > 1;
        return $S->force_object(anyof_char => $S->nchar($n), "\\c[$n] <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11286	11411	
==>', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ? <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11286	11411	
==>', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ? <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1053	1161	
==>native seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15076	15165	
==>ch applications invoke and which
multiple interchangeable "Engine" back-ends (usually prov <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15076	15165	
==>ch applications invoke and which
multiple interchangeable "Engine" back-ends (usually prov <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12366	12477	
==>}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12366	12477	
==>}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12366	12477	
==>}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unles <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1605	1710	
==>use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1605	1710	
==>use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ < <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6316	6420	
==>.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method sta <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6316	6420	
==>.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20539	20637	
==>x1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20539	20637	
==>x1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20539	20637	
==>x1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$x <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4526	4654	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8003	8131	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6996	7124	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	762	898	
==>ponse.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $messag <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	762	898	
==>ponse.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $messag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4230	4341	
==>my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4230	4341	
==>my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4230	4341	
==>my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $ar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20111	20212	
==>ry.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20111	20212	
==>ry.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5871	5970	
==>s}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5871	5970	
==>s}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5871	5970	
==>s}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6177	6362	
==>F;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6177	6362	
==>F;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6177	6362	
==>F;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scal <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	462	623	
==>F,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	462	623	
==>F,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2936	3186	
==>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3183	3433	
==>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5988	6089	
==>od('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5988	6089	
==>od('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5988	6089	
==>od('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4607	4709	
==>('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4607	4709	
==>('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4607	4709	
==>('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	15	116	
==>:Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	15	116	
==>:Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11171	11305	
==>s;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11165	11299	
==>s;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2376	2468	
==>hing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2376	2468	
==>hing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2376	2468	
==>hing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10132	10265	
==>= shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10132	10265	
==>= shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10132	10265	
==>= shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() no <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8680	8777	
==>:encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8680	8777	
==>:encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4009	4134	
==>q "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4009	4134	
==>q "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4009	4134	
==>q "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape s <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3293	3396	
==>appen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3293	3396	
==>appen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2855	3021	
==>m, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2855	3021	
==>m, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13181	13288	
==>have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16658	16765	
==>have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16020	16127	
==>have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # Th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16425	16606	
==>:optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16704	16885	
==>:optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29430	29538	
==>ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29430	29538	
==>ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29430	29538	
==>ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9328	9454	
==>$self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9328	9454	
==>$self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9328	9454	
==>$self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # war <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7637	7722	
==>('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &T <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7695	7780	
==>('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &T <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9609	9745	
==>rnation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9589	9725	
==>rnation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1474	1587	
==>say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1474	1587	
==>say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1474	1587	
==>say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $cou <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35824	35919	
==>and combines it with the
invocant relation into a new Relation, such that all common attribute n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40374	40469	
==>and combines it with the
invocant relation into a new Relation, such that all common attribute n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5085	5246	
==>( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5085	5246	
==>( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5085	5246	
==>( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32775	32868	
==>ding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37325	37418	
==>ding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Rel <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4249	4345	
==>it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::O <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4249	4345	
==>it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5773	5869	
==>it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10050	10226	
==>('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10050	10226	
==>('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10050	10226	
==>('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16419	16510	
==>, which is computationally complete
(and industrial strength) and has fully integrated datab <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16419	16510	
==>, which is computationally complete
(and industrial strength) and has fully integrated datab <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2648	2756	
==>of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6125	6233	
==>of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5055	5163	
==>of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7358	7459	
==>code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7358	7459	
==>code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4164	4296	
==>, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4152	4284	
==>, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1541	1647	
==>].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1541	1647	
==>].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1541	1647	
==>].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	482	673	
==>$str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	482	673	
==>$str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1788	1920	
==>en rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1788	1920	
==>en rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4472	4560	
==>aque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4472	4560	
==>aque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4472	4560	
==>aque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	255	360	
==>{
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	255	360	
==>{
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	255	360	
==>{
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	736	838	
==>tr $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
su <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	736	838	
==>tr $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
su <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13531	13658	
==>er_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13531	13658	
==>er_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1498	1601	
==>$x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1498	1601	
==>$x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1498	1601	
==>$x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16507	16660	
==>eading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take ma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19984	20137	
==>eading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take ma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19544	19697	
==>eading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take ma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5719	5818	
==>normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5719	5818	
==>normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a c <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1046	1171	
==>rpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API} <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1046	1171	
==>rpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1849	1946	
==>,$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1849	1946	
==>,$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1849	1946	
==>,$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12961	13056	
==>over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's membe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12961	13056	
==>over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's membe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1570	1660	
==>ss($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1570	1660	
==>ss($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1570	1660	
==>ss($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUIL <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3090	3209	
==>flex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3090	3209	
==>flex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6449	6545	
==>I SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6449	6545	
==>I SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6449	6545	
==>I SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6030	6192	
==>q substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6030	6192	
==>q substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1699	1818	
==>H and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1699	1818	
==>H and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1699	1818	
==>H and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6315	6558	
==>>str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6315	6558	
==>>str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6315	6558	
==>>str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            } <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1654	1771	
==>mp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1654	1771	
==>mp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6371	6501	
==>') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6371	6501	
==>') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6371	6501	
==>') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::op <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	0	102	
==>module fp-0.0.1;

# Function composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
mul <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	0	102	
==>module fp-0.0.1;

# Function composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3062	3208	
==>lf->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3062	3208	
==>lf->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3062	3208	
==>lf->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17416	17509	
==>::Compile controls the compilation process, calling each compiler
at the right time with the r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17416	17509	
==>::Compile controls the compilation process, calling each compiler
at the right time with the r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4674	4795	
==>shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13099	13220	
==>shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15710	15831	
==>shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17198	17319	
==>shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21881	22002	
==>shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14919	15028	
==>e superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14919	15028	
==>e superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14919	15028	
==>e superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1495	1589	
==>to
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F< <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1495	1589	
==>to
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F< <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17225	17328	
==>orule;})/g;
  my $parser = Regexp::Parser->new($re);
  my $n = eval{ $parser->root };
  die "$@" if !def <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1203	1299	
==>values,   Str $delimiter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26390	26482	
==>inal (or rather, the corresponding projection of
each tuple), but that any duplicates followi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30942	31034	
==>inal (or rather, the corresponding projection of
each tuple), but that any duplicates followi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29944	30036	
==>inal (or rather, the corresponding projection of
each tuple), but that any duplicates followi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2247	2350	
==>te: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::captu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2258	2361	
==>te: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3237	3333	
==>ub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3237	3333	
==>ub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3237	3333	
==>ub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isF <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	883	993	
==>d
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	883	993	
==>d
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	883	993	
==>d
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4117	4214	
==>hen used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4117	4214	
==>hen used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5721	5850	
==>t;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5721	5850	
==>t;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	14	111	
==>l
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script hi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	14	111	
==>l
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script hi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	14	111	
==>l
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script hi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9209	9317	
==>.
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9209	9317	
==>.
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8297	8440	
==>$val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonab <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8297	8440	
==>$val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1115	1213	
==>n your object belongs to a
package that is too close to the main namespace for your tastes, and
you <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1115	1213	
==>n your object belongs to a
package that is too close to the main namespace for your tastes, and
you <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1115	1213	
==>n your object belongs to a
package that is too close to the main namespace for your tastes, and
you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2300	2430	
==>:VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2300	2430	
==>:VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2300	2430	
==>:VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3125	3225	
==>r, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so lib/ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3015	3111	
==>r, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so lib/ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1949	2083	
==>or -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= " <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1949	2083	
==>or -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= " <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	105	209	
==>se JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Pa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	110	213	
==>se JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Pa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	108	211	
==>se JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	178	282	
==>FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	178	282	
==>FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	178	282	
==>FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	603	691	
==>error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	603	691	
==>error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	782	886	
==>a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	782	886	
==>a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	782	886	
==>a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	10	106	
==>IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", - <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	10	106	
==>IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4319	4427	
==>> [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4512	4620	
==>> [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10137	10240	
==>---------------------------------------  
    # collects all the roles, and applies them to the
    # in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10137	10240	
==>---------------------------------------  
    # collects all the roles, and applies them to the
    # in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10137	10240	
==>---------------------------------------  
    # collects all the roles, and applies them to the
    # in <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1595	1734	
==>floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1595	1734	
==>floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24088	24222	
==>my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24088	24222	
==>my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24088	24222	
==>my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51531	51667	
==>->get('$self:')
                  ->get_attr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and(block->new( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7106	7232	
==>$code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7094	7220	
==>$code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2658	2750	
==>1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2658	2750	
==>1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2658	2750	
==>1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13485	13682	
==>( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13764	13961	
==>( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23460	23549	
==>mplementations are immutable rather than mutable, this property and/or
same-named accessor <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28012	28101	
==>mplementations are immutable rather than mutable, this property and/or
same-named accessor <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26816	26905	
==>mplementations are immutable rather than mutable, this property and/or
same-named accessor <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13781	13924	
==>1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3902	4033	
==>1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3902	4033	
==>1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3902	4033	
==>1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	863	993	
==>defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	855	981	
==>bel)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	855	981	
==>bel)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	855	981	
==>bel)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14004	14103	
==>mewhat safer version of the sometimes wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Per <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17451	17584	
==>har => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13872	14005	
==>har => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4709	4822	
==>eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4709	4822	
==>eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4709	4822	
==>eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1623	1722	
==>d test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1623	1722	
==>d test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1623	1722	
==>d test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1487	1579	
==>oftlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PA <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1327	1419	
==>oftlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PA <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7964	8138	
==>et_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4324	4498	
==>et_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5173	5347	
==>et_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5763	5864	
==>, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5842	5943	
==>, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3090	3241	
==>name ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3307	3458	
==>name ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15572	15715	
==>) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15572	15715	
==>) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15572	15715	
==>) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11927	12065	
==>er
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10975	11072	
==>ove(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8379	8476	
==>ove(...)>

Removes the specified items from the set. Returns the number of items removed.

It is n <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10975	11072	
==>ove(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is n <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8379	8476	
==>ove(...)>

Removes the specified items from the set. Returns the number of items removed.

It is n <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2044	2148	
==>ets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $pa <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2044	2148	
==>ets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $pa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17782	17879	
==>ite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17782	17879	
==>ite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1377	1456	
==>opeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	541	639	
==>returns List of Object|Object
multi sub pairs  (@array ; Any|Junction *@indextests) returns List of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4128	4224	
==>gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/perl6>.

- the Perl 6 Synopsi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7538	7778	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7538	7778	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7538	7778	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12820	12965	
==>=> $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12820	12965	
==>=> $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2586	2689	
==>"inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2586	2689	
==>"inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2586	2689	
==>"inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4586	4723	
==>Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4586	4723	
==>Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4586	4723	
==>Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1494	1592	
==>nonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1494	1592	
==>nonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5697	5864	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5697	5864	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5697	5864	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1216	1314	
==>Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1216	1314	
==>Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8870	9002	
==>ate the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8870	9002	
==>ate the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3907	4004	
==>.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  thr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3907	4004	
==>.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  thr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3907	4004	
==>.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  thr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23683	23809	
==>en(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20104	20230	
==>en(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	604	701	
==>05-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	604	701	
==>05-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	604	701	
==>05-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3905	4002	
==>dity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramete <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3905	4002	
==>dity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramete <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3905	4002	
==>dity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramete <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2487	2633	
==>xp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2487	2633	
==>xp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2487	2633	
==>xp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it <==
5	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	940	1053	
==>say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	982	1078	
==>o/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::Package::In <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7178	7303	
==>60),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7178	7303	
==>60),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3486	3610	
==>my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3486	3610	
==>my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3486	3610	
==>my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4818	4908	
==>module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4958	5048	
==>module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documen <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12331	12419	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12331	12419	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12331	12419	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_f <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2509	2593	
==>bscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6 <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2509	2593	
==>bscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5187	5308	
==>B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5187	5308	
==>B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5187	5308	
==>B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubN <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4514	4593	
==>\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&6 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4514	4593	
==>\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6551	6704	
==>try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6340	6487	
==>try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	798	933	
==>t;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	798	933	
==>t;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3619	3722	
==>d_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    nex <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3619	3722	
==>d_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    nex <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	455	545	
==>rint Dumper($rule->($grammar)->( $_[0], undef, $tree, $tree )) if $ENV{DEBUG_lrep};
	Pugs:: <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2432	2562	
==>s -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item confor <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2432	2562	
==>s -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item confor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9338	9465	
==>nature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9338	9465	
==>nature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9338	9465	
==>nature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8617	8783	
==>erson,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8617	8783	
==>erson,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compi <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1477	1576	
==>'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSub <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4600	4696	
==>'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSub <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4600	4696	
==>'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4602	4735	
==>. 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 N <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4742	4875	
==>. 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	104	201	
==>tes ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	104	201	
==>tes ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	104	201	
==>tes ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accordin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1045	1165	
==>= 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1045	1165	
==>= 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8118	8211	
==>rray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7248	7341	
==>rray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8118	8211	
==>rray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7248	7341	
==>rray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set <==
5	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	132	225	
==>ripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use str <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6602	6751	
==>ers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6602	6751	
==>ers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2511	2608	
==>y $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2511	2608	
==>y $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2511	2608	
==>y $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.F <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10201	10327	
==>ast_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10201	10327	
==>ast_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nick <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1780	1889	
==>een;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1780	1889	
==>een;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1780	1889	
==>een;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %se <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14866	14999	
==>n;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19034	19167	
==>n;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	134	227	
==>Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	134	227	
==>Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	132	221	
==>Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3695	3831	
==>_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3888	4024	
==>_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_ <==
5	/Users/nnunley/pugs/util/package-osx.pl	825	931	
==>bparrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        /usr/local/lib/libparrot.dylib
        /usr/ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24281	24382	
==>ullch if none obvious

Confined to regcomp/regexec.

 * reganch      is the match anchored (at beginni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13273	13372	
==>}
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13273	13372	
==>}
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13273	13372	
==>}
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__fl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2293	2435	
==>my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2293	2435	
==>my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2293	2435	
==>my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7663	7796	
==>= 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7856	7989	
==>= 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5714	5851	
==>$list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5714	5851	
==>$list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5714	5851	
==>$list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($li <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17367	17467	
==>y it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header wi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17367	17467	
==>y it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header wi <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	825	942	
==>duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<be <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	567	684	
==>duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<be <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	825	942	
==>duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<be <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	567	684	
==>duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<be <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	749	851	
==>s which are of its type.

=item *

It serves as the basis for a method dispatch scope.  Note that metho <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7395	7516	
==>$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7395	7516	
==>$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3333	3441	
==>re and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3333	3441	
==>re and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3333	3441	
==>re and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    ret <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1106	1222	
==>al { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($hos <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1073	1189	
==>al { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($hos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11319	11413	
==>It is important that submethods are used
because they will not get inherited. This provides mor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11319	11413	
==>It is important that submethods are used
because they will not get inherited. This provides mor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11319	11413	
==>It is important that submethods are used
because they will not get inherited. This provides mor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4680	4789	
==>urn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4680	4789	
==>urn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4680	4789	
==>urn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24654	24754	
==>on 2 of the
License, or (at your option) any later version.  You should have received a
copy of the G <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24654	24754	
==>on 2 of the
License, or (at your option) any later version.  You should have received a
copy of the G <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2150	2271	
==>ode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2150	2271	
==>ode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1427	1520	
==>support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1427	1520	
==>support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1427	1520	
==>support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37045	37138	
==>as these utility methods, which are all used by
translate_message() to handle the trickier par <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37045	37138	
==>as these utility methods, which are all used by
translate_message() to handle the trickier par <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14163	14250	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14163	14250	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14163	14250	
==>_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	61	166	
==>piler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Com <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3149	3249	
==>e, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.interse <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3149	3249	
==>e, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.interse <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	54	153	
==>piler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Com <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	54	153	
==>piler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2953	3052	
==>lude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2953	3052	
==>lude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2953	3052	
==>lude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output", <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3873	3959	
==>noff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs1 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3873	3959	
==>noff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs1 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5433	5558	
==>ite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstr <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5433	5558	
==>ite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstr <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	752	866	
==>DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        ret <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	752	866	
==>DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6132	6239	
==>dence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make instances of s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1686	1789	
==>e::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1686	1789	
==>e::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2976	3077	
==>t close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScrip <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2976	3077	
==>t close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScrip <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2976	3077	
==>t close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScrip <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28274	28372	
==>_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (RX_MATCH_COPIE <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6825	6917	
==>r 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4177	4269	
==>r 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6825	6917	
==>r 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4177	4269	
==>r 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16586	16697	
==>];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X:: <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15636	15741	
==>];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14647	14764	
==>"attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14647	14764	
==>"attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14647	14764	
==>"attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39953	40052	
==>.1 of the License, or (at your option) any later version.  You
should have received a copy of the LG <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39953	40052	
==>.1 of the License, or (at your option) any later version.  You
should have received a copy of the LG <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2508	2627	
==>0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

su <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2508	2627	
==>0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5026	5134	
==>s = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5026	5134	
==>s = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5026	5134	
==>s = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1091	1228	
==>_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1091	1228	
==>_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1091	1228	
==>_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9339	9432	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3164	3257	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23801	23930	
==>rn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RP <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20222	20351	
==>rn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2635	2722	
==>y $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2635	2722	
==>y $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2635	2722	
==>y $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7788	7889	
==>ize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7788	7889	
==>ize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1181	1282	
==>tance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	920	1016	
==>tance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1125	1221	
==>tance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	961	1096	
==>,
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name          => substr($pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3271	3383	
==>>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3271	3383	
==>>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3271	3383	
==>>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10537	10637	
==>oring it.

The iterator will return undef when it has reached the end of the tree;
it will then reset <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12067	12219	
==>_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an insta <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12067	12219	
==>_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1702	1795	
==>var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1702	1795	
==>var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1702	1795	
==>var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1433	1548	
==>ecl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'p <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4557	4669	
==>ecl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'p <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4557	4669	
==>ecl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'p <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1696	1791	
==>s used only for reconstruction to source.
 # represented as processing instructions, or maybe co <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1696	1791	
==>s used only for reconstruction to source.
 # represented as processing instructions, or maybe co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	195	328	
==>header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	195	328	
==>header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6218	6311	
==>?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6218	6311	
==>?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6218	6311	
==>?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18101	18198	
==>her at a level visible in the Rosetta Native
Interface, if at all.  To account for situations wher <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18101	18198	
==>her at a level visible in the Rosetta Native
Interface, if at all.  To account for situations wher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	680	769	
==>IL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	680	769	
==>IL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	680	769	
==>IL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2818	2933	
==>ce of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2818	2933	
==>ce of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2818	2933	
==>ce of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6303	6408	
==>self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6303	6408	
==>self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21488	21616	
==>e_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21767	21895	
==>e_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34858	34968	
==>offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34858	34968	
==>offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34858	34968	
==>offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	75	200	
==>P::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	75	200	
==>P::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14084	14193	
==>S->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14084	14193	
==>S->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14084	14193	
==>S->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $met <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4865	5016	
==>irs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4865	5016	
==>irs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9027	9149	
==>t::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( spli <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5250	5360	
==>category>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., precedenc <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	485	594	
==>t::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( spli <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14214	14416	
==>@{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14214	14416	
==>@{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14214	14416	
==>@{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatch <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20100	20191	
==>t_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20100	20191	
==>t_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12928	13039	
==>result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class-> <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12928	13039	
==>result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6182	6287	
==>@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6182	6287	
==>@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6182	6287	
==>@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15410	15522	
==>new_pad($param->val => undef);

    return $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = sh <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19305	19406	
==>ressionNoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <Assig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	922	1022	
==>air->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	922	1022	
==>air->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	922	1022	
==>air->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11595	11707	
==>e = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11595	11707	
==>e = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11595	11707	
==>e = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	348	448	
==>$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	348	448	
==>$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5224	5350	
==>epot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attri <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5224	5350	
==>epot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4592	4687	
==>amespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4592	4687	
==>amespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4592	4687	
==>amespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new na <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19278	19403	
==>");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &R <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15699	15824	
==>");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1196	1320	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1196	1320	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1196	1320	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1399	1521	
==>pr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1399	1521	
==>pr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1255	1364	
==>$domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'http <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1255	1364	
==>$domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'http <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	598	702	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	598	702	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	598	702	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $tod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	601	795	
==>trs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	601	795	
==>trs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	601	795	
==>trs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18606	18719	
==>xPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15027	15140	
==>xPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    m <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	389	496	
==>tation;
	use base qw/Blondie::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my $self = shift;
		die "anno <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2086	2191	
==>AME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2086	2191	
==>AME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1320	1419	
==>AME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3181	3280	
==>AME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1362	1466	
==>at {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1362	1466	
==>at {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22222	22311	
==>m - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22222	22311	
==>m - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22222	22311	
==>m - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12968	13105	
==>($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12968	13105	
==>($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15597	15701	
==>d uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15597	15701	
==>d uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15597	15701	
==>d uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	53	150	
==>eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	53	150	
==>eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	53	150	
==>eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (ar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25783	25877	
==>ions of Rosetta that you modify and distribute must carry prominent
notices stating that you ch <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25783	25877	
==>ions of Rosetta that you modify and distribute must carry prominent
notices stating that you ch <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	581	973	
==>LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_ele <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	581	973	
==>LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10644	10753	
==>o) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10644	10753	
==>o) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10644	10753	
==>o) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1405	1517	
==>as Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1405	1517	
==>as Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	384	484	
==>_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	384	484	
==>_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	384	484	
==>_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8317	8452	
==>type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'i <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8317	8452	
==>type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	49	144	
==>rl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the res <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	49	144	
==>rl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the res <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	49	144	
==>rl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the res <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5310	5420	
==>{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ fo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5310	5420	
==>{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3549	3639	
==>unction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3549	3639	
==>unction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3549	3639	
==>unction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoint <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16516	16628	
==>{
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16516	16628	
==>{
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17504	17608	
==>{
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17504	17608	
==>{
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4016	4114	
==>'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34785	34883	
==>$len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34785	34883	
==>$len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34785	34883	
==>$len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	57	146	
==>erl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl fo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	57	146	
==>erl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10097	10194	
==>::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10097	10194	
==>::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10097	10194	
==>::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PS <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	22	118	
==>rcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfo <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	22	118	
==>rcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfo <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2055	2158	
==>before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathf <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2055	2158	
==>before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathf <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7661	7757	
==>tr => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9589	9685	
==>tr => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7649	7745	
==>tr => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0 <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1564	1693	
==>rent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7907	8010	
==>o make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7037	7140	
==>o make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7907	8010	
==>o make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7037	7140	
==>o make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1783	1970	
==>'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuild <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12162	12256	
==>1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12162	12256	
==>1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$se <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	863	955	
==>ft;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Type <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	863	955	
==>ft;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11893	12035	
==>ported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11893	12035	
==>ported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11893	12035	
==>ported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2192	2292	
==>'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ') <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2192	2292	
==>'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ') <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5796	5894	
==>lf; in fact, the only method that truly must be implemented is the 
one that actually enciphers the <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5796	5894	
==>lf; in fact, the only method that truly must be implemented is the 
one that actually enciphers the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2615	2727	
==>"Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2615	2727	
==>"Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2615	2727	
==>"Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9048	9143	
==>TP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9048	9143	
==>TP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1497	1674	
==>push(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1].push(to <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4288	4397	
==>pic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4288	4397	
==>pic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23471	23557	
==>d2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23471	23557	
==>d2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2135	2241	
==>itance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> comm <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2135	2241	
==>itance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> comm <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1499	1593	
==>st->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self->{env}) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	245	335	
==>julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	245	335	
==>julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1103	1261	
==>> sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1103	1261	
==>> sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1103	1261	
==>> sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->v <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6334	6429	
==>ONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6334	6429	
==>ONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29130	29273	
==>('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque $self: symbol $order) returns block {
    $order = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	627	733	
==>->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	627	733	
==>->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	627	733	
==>->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5490	5586	
==>n values of the
closure are collected into another list which is then returned from 
this functio <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1854	1956	
==>'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1854	1956	
==>'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16	118	
==>-CDS

# A typed lambda calculus in perl6-ish perl 5
# (makes use of attribute grammars and multimethods <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33741	33836	
==>anguage like English or French.  The order of these items corresponds to
an individual user's (o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33741	33836	
==>anguage like English or French.  The order of these items corresponds to
an individual user's (o <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	698	819	
==>ations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 }
} <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	698	819	
==>ations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 }
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2894	2992	
==>igenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2894	2992	
==>igenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2894	2992	
==>igenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasse <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20443	20543	
==>($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2133	2229	
==>ef = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Messag <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2133	2229	
==>ef = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Messag <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2586	2677	
==>turn $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_closed <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2586	2677	
==>turn $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_closed <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	542	673	
==>tr ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	542	673	
==>tr ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	542	673	
==>tr ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2no <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1029	1127	
==>end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functiona <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1029	1127	
==>end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functiona <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7304	7489	
==>ier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7497	7682	
==>ier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3545	3649	
==>ie "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3545	3649	
==>ie "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3545	3649	
==>ie "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4428	4584	
==>k()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $ma <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4428	4584	
==>k()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2426	2555	
==>= 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2426	2555	
==>= 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2426	2555	
==>= 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14348	14460	
==>hod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14348	14460	
==>hod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14348	14460	
==>hod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => : <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8037	8135	
==>ipher to be deleted immediately.  This method should be as thorough as 
possible; for example, it s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8037	8135	
==>ipher to be deleted immediately.  This method should be as thorough as 
possible; for example, it s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1157	1334	
==>e
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    retur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1157	1334	
==>e
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	608	713	
==>ew( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	608	713	
==>ew( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	608	713	
==>ew( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SE <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3351	3496	
==>my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4200	4345	
==>my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11045	11183	
==>|| 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11045	11183	
==>|| 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11045	11183	
==>|| 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3714	3826	
==>intf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3714	3826	
==>intf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3714	3826	
==>intf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3311	3415	
==>rmalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username host <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3311	3415	
==>rmalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username host <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17264	17396	
==>boxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17264	17396	
==>boxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17264	17396	
==>boxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3055	3179	
==>$span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3055	3179	
==>$span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ( <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	220	329	
==>{}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6R <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39593	39681	
==>comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24316	24404	
==>comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39593	39681	
==>comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24316	24404	
==>comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	886	1007	
==>( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	886	1007	
==>( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	103	220	
==>< {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	103	220	
==>< {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	103	220	
==>< {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3621	3739	
==>rpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3621	3739	
==>rpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3621	3739	
==>rpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2123	2222	
==>e may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2123	2222	
==>e may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	432	575	
==>m>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	432	575	
==>m>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3269	3371	
==>, "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3269	3371	
==>, "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3269	3371	
==>, "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	103	226	
==>0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	103	226	
==>0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	103	226	
==>0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pil <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3384	3480	
==>Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

= <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3384	3480	
==>Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

= <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10962	11064	
==>Number Conversions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpac <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3742	3835	
==>md = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PAT <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	846	939	
==>md = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PAT <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3742	3835	
==>md = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PAT <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	779	869	
==>md = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PAT <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1462	1578	
==>annels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submetho <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1462	1578	
==>annels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submetho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2050	2142	
==>$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2050	2142	
==>$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2050	2142	
==>$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2210	2318	
==>is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is fir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2210	2318	
==>is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is fir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6132	6225	
==>body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6132	6225	
==>body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6132	6225	
==>body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
% <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	160	278	
==>ie;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc: <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	160	278	
==>ie;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11619	11734	
==>tus();
          my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reas <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2055	2166	
==>tus();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reas <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2055	2166	
==>tus();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35509	35639	
==>y->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35509	35639	
==>y->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35509	35639	
==>y->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @hea <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4251	4357	
==>e_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4251	4357	
==>e_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22132	22224	
==>item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

Th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21013	21105	
==>item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22132	22224	
==>item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

Th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21013	21105	
==>item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

Th <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	145	237	
==>ng which an implementation will overwrite. So smartmatch can be
implemented using some is_sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8018	8162	
==>xed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8018	8162	
==>xed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8018	8162	
==>xed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fet <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7539	7676	
==>( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7596	7733	
==>( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	740	844	
==>[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	740	844	
==>[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	740	844	
==>[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30714	30812	
==>each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30714	30812	
==>each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9459	9603	
==>'$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9459	9603	
==>'$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9459	9603	
==>'$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3544	3697	
==>urn unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - sta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4472	4622	
==>urn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3433	3583	
==>urn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4472	4622	
==>urn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - sta <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16839	16944	
==>e_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2623	2727	
==>length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ / <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2623	2727	
==>length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8760	8862	
==>es5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defaul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8760	8862	
==>es5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defaul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8760	8862	
==>es5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defaul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12526	12627	
==>erl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12526	12627	
==>erl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12526	12627	
==>erl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6906	7005	
==>her Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6670	6766	
==>her Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5379	5497	
==>Term.substitution>
            { return { 
                    substitution => $/{'Pugs::Grammar::Term.substitution'}-> <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7607	7709	
==>body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pVarName) {
    return "is macrop5 $pVarName" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2337	2556	
==>ed";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2337	2556	
==>ed";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2337	2556	
==>ed";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16884	17023	
==>pture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17163	17302	
==>pture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	23	119	
==>This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	23	119	
==>This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	23	119	
==>This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	650	745	
==>er), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	650	745	
==>er), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	650	745	
==>er), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18266	18358	
==>handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18266	18358	
==>handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2563	2670	
==>e =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2563	2670	
==>e =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2563	2670	
==>e =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5711	5828	
==>\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sig <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5711	5828	
==>\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sig <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5711	5828	
==>\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sig <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12821	12916	
==>e with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) r <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12879	12974	
==>e with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17005	17129	
==>ody.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteration <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20482	20606	
==>ody.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteration <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20060	20184	
==>ody.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteration <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4766	4857	
==>rt_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4766	4857	
==>rt_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18549	18676	
==>> sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening par <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14970	15097	
==>> sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	494	607	
==>self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	494	607	
==>self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	494	607	
==>self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a & <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1025	1166	
==>ing ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $esca <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1025	1166	
==>ing ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $esca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1754	1856	
==>umber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1754	1856	
==>umber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1754	1856	
==>umber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3197	3322	
==>location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %o <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3197	3322	
==>location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2361	2456	
==>tring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2361	2456	
==>tring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2361	2456	
==>tring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", " <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	526	696	
==>pen '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++ <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	526	696	
==>pen '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	934	1027	
==>TION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	934	1027	
==>TION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	934	1027	
==>TION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8750	8933	
==>ecrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8750	8933	
==>ecrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8750	8933	
==>ecrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5974	6089	
==>hift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6167	6282	
==>hift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4501	4607	
==>_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4501	4607	
==>_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4501	4607	
==>_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12468	12628	
==>1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12462	12622	
==>1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36881	36981	
==>lt is as if it wasn't there at all.  In any situation where a pair
of source relations have identical <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41430	41530	
==>lt is as if it wasn't there at all.  In any situation where a pair
of source relations have identical <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41053	41153	
==>lt is as if it wasn't there at all.  In any situation where a pair
of source relations have identical <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12689	12851	
==>n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    prin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8963	9125	
==>n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    prin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9798	9960	
==>n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    prin <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1961	2078	
==>{ Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1961	2078	
==>{ Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15921	16061	
==>block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16200	16340	
==>block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10414	10553	
==>[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6755	6894	
==>[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7604	7743	
==>[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$ar <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3096	3217	
==>eturn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        star <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3096	3217	
==>eturn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        star <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	822	931	
==>y($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	822	931	
==>y($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	822	931	
==>y($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9377	9471	
==>$set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9377	9471	
==>$set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Re <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5245	5338	
==>tus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5245	5338	
==>tus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7442	7535	
==>tus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2750	2909	
==>ackslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18931	19032	
==>namespace [ "PGE::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savere <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6645	6738	
==>b@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6645	6738	
==>b@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6645	6738	
==>b@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6138	6268	
==>e;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6138	6268	
==>e;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15368	15489	
==>_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15368	15489	
==>_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15368	15489	
==>_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    ret <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20632	20725	
==>o flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link listen 
# l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.72 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.72 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.72 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.72 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8497	8608	
==>xt or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASS <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13676	13787	
==>sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15201	15312	
==>sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8497	8608	
==>xt or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASS <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12668	12767	
==>sources have zero tuples; so does result.
        return Relation::Example.new( heading => $!heading <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5926	6043	
==>Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5926	6043	
==>Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	173	286	
==>what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	173	286	
==>what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	173	286	
==>what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<! <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	900	1012	
==>ate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1106	1218	
==>ate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2692	2800	
==>upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 & <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2692	2800	
==>upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 & <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2692	2800	
==>upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 & <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4502	4598	
==>arname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4502	4598	
==>arname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4502	4598	
==>arname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4240	4335	
==>nts the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today' <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4240	4335	
==>nts the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today' <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	426	538	
==>ng information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    requ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	426	538	
==>ng information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    requ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2420	2533	
==>PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2420	2533	
==>PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2420	2533	
==>PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".ke <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5234	5342	
==>export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*EN <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5234	5342	
==>export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1403	1513	
==>package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use M <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1403	1513	
==>package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22512	22604	
==>ULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22512	22604	
==>ULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22512	22604	
==>ULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	38	150	
==>operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be span <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	38	150	
==>operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	936	1037	
==>patcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	936	1037	
==>patcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	936	1037	
==>patcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        fo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	209	321	
==>rl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a=<>;
    my $sr <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9299	9386	
==>type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9494	9581	
==>type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9689	9776	
==>type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11345	11432	
==>type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	137	235	
==>rns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) r <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	137	235	
==>rns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4528	4623	
==>e same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Set <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4528	4623	
==>e same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Set <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6052	6147	
==>e same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Set <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5071	5189	
==>dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5071	5189	
==>dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2797	2933	
==>tchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warning <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3316	3439	
==>d) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            un <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3316	3439	
==>d) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            un <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10057	10174	
==>med{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10051	10168	
==>med{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$na <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13132	13253	
==>, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13132	13253	
==>, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4073	4165	
==>::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4073	4165	
==>::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4073	4165	
==>::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pack <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	105	212	
==>::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differe <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	113	220	
==>::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differe <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	105	212	
==>::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differe <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	113	220	
==>::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differe <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1590	1697	
==>b digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw/Blondie::Unit Blondi <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	328	446	
==>os.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	328	446	
==>os.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6781	6868	
==>method('resolve' => ::make_method($_resolve));

## ------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6781	6868	
==>method('resolve' => ::make_method($_resolve));

## ------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6781	6868	
==>method('resolve' => ::make_method($_resolve));

## ------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	433	548	
==>okenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	433	548	
==>okenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	433	548	
==>okenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13986	14088	
==>my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        for $c- <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15725	15822	
==>ports is not
allowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10982	11105	
==>( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10982	11105	
==>( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10982	11105	
==>( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3335	3427	
==>DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oo <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3335	3427	
==>DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	139	253	
==>:Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	139	253	
==>:Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tok <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	139	253	
==>:Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tok <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2235	2330	
==>ules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2324	2419	
==>ules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* C <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8064	8219	
==>ISTS
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7008	7141	
==>} elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7472	7605	
==>} elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9896	10028	
==>} elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1681	1805	
==>} elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22941	23112	
==>E = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22941	23112	
==>E = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22941	23112	
==>E = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sca <==
5	/Users/nnunley/pugs/util/build_pugs.pl	3101	3226	
==>1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File: <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3523	3614	
==>> {true}.

p6_concatenation(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_c <==
5	/Users/nnunley/pugs/util/build_pugs.pl	5143	5273	
==>r .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $d <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10909	11020	
==>ave zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!hea <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12380	12491	
==>ave zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14386	14497	
==>ave zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15857	15968	
==>ave zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!hea <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4943	5041	
==>ave a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4943	5041	
==>ave a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6467	6565	
==>ave a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descrip <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	422	517	
==>NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provid <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	422	517	
==>NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provid <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10386	10562	
==>.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13863	14039	
==>.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13144	13320	
==>.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3080	3183	
==>pan, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
} <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3080	3183	
==>pan, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3158	3301	
==>y' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3158	3301	
==>y' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3158	3301	
==>y' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ". <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2273	2393	
==>turn 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastia <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2273	2393	
==>turn 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastia <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8272	8383	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8272	8383	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    loc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8272	8383	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    loc <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	920	1028	
==>args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spe <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	920	1028	
==>args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	303	429	
==>tive Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	303	429	
==>tive Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8241	8355	
==>, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o =~ /([^0-7;] <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32318	32413	
==>emplate modules to come
from Perl modules, but in the future they may alternately be something
e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32318	32413	
==>emplate modules to come
from Perl modules, but in the future they may alternately be something
e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5253	5365	
==>>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5253	5365	
==>>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5253	5365	
==>>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3235	3324	
==>st';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3235	3324	
==>st';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12894	13033	
==>i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  packa <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5620	5747	
==>ive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5620	5747	
==>ive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18468	18567	
==>tion::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18664	18763	
==>tion::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18878	18977	
==>tion::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19080	19179	
==>tion::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19415	19514	
==>tion::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        heading <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7463	7636	
==>$name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7463	7636	
==>$name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	380	490	
==>h, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	380	490	
==>h, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	380	490	
==>h, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1692	1792	
==>ugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Mo <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1692	1792	
==>ugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Mo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15795	15891	
==>make a request conditional.  If the requested
resource has (or has not) been modified since the t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1102	1198	
==>\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15795	15891	
==>make a request conditional.  If the requested
resource has (or has not) been modified since the t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1102	1198	
==>\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1102	1198	
==>\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ( <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2294	2391	
==>we currently do not have objects or fully functioning modules in 
Pugs, this port does it's best t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2294	2391	
==>we currently do not have objects or fully functioning modules in 
Pugs, this port does it's best t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3348	3470	
==>method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3348	3470	
==>method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3348	3470	
==>method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18136	18232	
==>ta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to us <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18136	18232	
==>ta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to us <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3722	3875	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3970	4118	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10419	10567	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3970	4118	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10419	10567	
==>ool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18463	18564	
==>(Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18659	18760	
==>(Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18873	18974	
==>(Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19075	19176	
==>(Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        head <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19410	19511	
==>(Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new(
        head <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1257	1371	
==>lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1257	1371	
==>lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1257	1371	
==>lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33534	33624	
==>named C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38084	38174	
==>named C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	315	410	
==>pan::Code.compare is incomplete
    * Constructors should emit error messages if there are unkno <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	315	410	
==>pan::Code.compare is incomplete
    * Constructors should emit error messages if there are unkno <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1359	1453	
==>old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1359	1453	
==>old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1359	1453	
==>old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3103	3257	
==>ation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3103	3257	
==>ation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9602	9718	
==>r($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9602	9718	
==>r($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9602	9718	
==>r($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11416	11523	
==>ethod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11416	11523	
==>ethod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11416	11523	
==>ethod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	350	455	
==>.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set: <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	350	455	
==>.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13575	13772	
==>lse {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13575	13772	
==>lse {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13575	13772	
==>lse {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2743	2873	
==>capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2638	2762	
==>capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1809	1936	
==>.= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1809	1936	
==>.= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1809	1936	
==>.= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," } <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	637	739	
==>The required 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	536	632	
==>The required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3749	3887	
==>$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3749	3887	
==>$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3749	3887	
==>$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2400	2497	
==>ith those limitations and 
still produce a working version of File::Spec for use as we develop 
Pu <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2400	2497	
==>ith those limitations and 
still produce a working version of File::Spec for use as we develop 
Pu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16880	16986	
==>ome source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20357	20463	
==>ome source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19935	20041	
==>ome source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7696	7791	
==>$_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7696	7791	
==>$_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7696	7791	
==>$_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13656	13750	
==>satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite obje <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13656	13750	
==>satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite obje <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13676	13837	
==>n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " . <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9860	10021	
==>n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10696	10857	
==>n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " . <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6552	6646	
==>l::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6552	6646	
==>l::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4160	4328	
==>p);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4160	4328	
==>p);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2704	2827	
==>t.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2704	2827	
==>t.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2704	2827	
==>t.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2947	3113	
==>isa(shift(), 
                                                'JIB::Repository::Set') };
use constant ISA_JIB_INSTALLATION_SET
                            => sub { UNI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2077	2182	
==>$code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2077	2182	
==>$code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2077	2182	
==>$code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalne <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6831	6928	
==>* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9293	9504	
==>->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9293	9504	
==>->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9293	9504	
==>->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9956	10065	
==>= $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9950	10059	
==>= $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$nam <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2993	3110	
==>tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ogra <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2993	3110	
==>tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ogra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1113	1209	
==>tances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1113	1209	
==>tances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1113	1209	
==>tances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3304	3405	
==>e_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3304	3405	
==>e_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3304	3405	
==>e_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	479	578	
==>46

=cut

$VERSION = "2.46";

# Backwards compatibility for exportable variable names.
*verbose  = * <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	2606	2704	
==>letters for type variables
	# it's ok to destroy the objects since they're copies
	foreach my $entr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3005	3203	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3005	3203	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3005	3203	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bin <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5672	5774	
==>l: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5672	5774	
==>l: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31488	31668	
==>.." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31488	31668	
==>.." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31488	31668	
==>.." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16483	16578	
==>> (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16483	16578	
==>> (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	372	470	
==>alar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Adde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	372	470	
==>alar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Adde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	372	470	
==>alar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Adde <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3301	3445	
==>xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3301	3445	
==>xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13325	13444	
==>::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13325	13444	
==>::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13325	13444	
==>::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	26	124	
==>use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'l <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	26	124	
==>use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'l <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3361	3453	
==>ass represents a single test within the
Test::Builder framework. The class itself is actually <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3361	3453	
==>ass represents a single test within the
Test::Builder framework. The class itself is actually <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5558	5650	
==>ass represents a single test within the
Test::Builder framework. The class itself is actually <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1512	1695	
==>alue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4989	5172	
==>alue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3919	4102	
==>alue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mappi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	402	519	
==>~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Run <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14127	14224	
==>_alternatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12016	12110	
==>true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9137	9231	
==>true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12016	12110	
==>true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9137	9231	
==>true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23614	23705	
==>rary's interface.

See also the bundled L<Relation::Example>, which provides a minimal in-RA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6479	6582	
==>@arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6479	6582	
==>@arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6479	6582	
==>@arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3025	3124	
==>lf.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3025	3124	
==>lf.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1053	1162	
==>$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1053	1162	
==>$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1053	1162	
==>$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($tod <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1547	1649	
==>) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should no <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1605	1707	
==>) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2317	2539	
==>h->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+le <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1457	1623	
==>h->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+le <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1457	1623	
==>h->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+le <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	477	576	
==>temAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	477	576	
==>temAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	477	576	
==>temAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25023	25151	
==>lue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4384	4480	
==>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9222	9316	
==>alar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9222	9316	
==>alar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9222	9316	
==>alar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	90	225	
==>URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	90	225	
==>URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	165	254	
==>sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	165	254	
==>sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	165	254	
==>sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24728	24890	
==>rm1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25007	25169	
==>rm1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	803	912	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	803	912	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	803	912	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2990	3122	
==>sses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2990	3122	
==>sses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2990	3122	
==>sses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $e <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1041	1149	
==>$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1644	1740	
==>index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($end_index <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6602	6758	
==>$rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6795	6951	
==>$rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule- <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14509	14616	
==>pos, 1
    if $S0 == '<' goto name
    $I0 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6570	6670	
==>$Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6582	6682	
==>$Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	924	1035	
==>less { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	924	1035	
==>less { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	924	1035	
==>less { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15944	16044	
==>ld be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human use <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15944	16044	
==>ld be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human use <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15082	15181	
==>ion, the program (or a package it uses)
will need to display a message to the user, or generate a me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15082	15181	
==>ion, the program (or a package it uses)
will need to display a message to the user, or generate a me <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13565	13711	
==>push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13565	13711	
==>push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13565	13711	
==>push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2450	2596	
==>push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17674	17802	
==>ils           an array ref reporting the result of 
                    each test looks like this:

    $results{details}[$test_n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	197	357	
==>ies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	197	357	
==>ies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13740	13877	
==>= \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9924	10061	
==>= \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10760	10897	
==>= \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9182	9329	
==>}  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7732	7838	
==>->{stack} };
    return $self;
  }
}


{
  package Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2210	2315	
==>expad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2210	2315	
==>expad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2210	2315	
==>expad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2638	2735	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2638	2735	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2638	2735	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»", <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12909	13005	
==>ld names then it is generally not
possible to tell which of the returned values belonged to which <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12909	13005	
==>ld names then it is generally not
possible to tell which of the returned values belonged to which <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	727	857	
==>ro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	727	857	
==>ro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	727	857	
==>ro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	57	151	
==>ree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	57	151	
==>ree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1768	1880	
==>lementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1768	1880	
==>lementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1768	1880	
==>lementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A1 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	979	1090	
==>ft;

    # FIXME - in the future the compiler might allow adding globals
    # ought to check if the runtime has <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3303	3391	
==>L\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCA <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24224	24323	
==>ion has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28776	28875	
==>ion has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5609	5703	
==>any_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5609	5703	
==>any_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5609	5703	
==>any_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthing <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11136	11229	
==>set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8540	8633	
==>set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11136	11229	
==>set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8540	8633	
==>set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> i <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	6166	6256	
==>ate->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", [ sor <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37708	37807	
==>e aligned and merged.  The heading of the new relation is the union of
all the headings of the sourc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42257	42356	
==>e aligned and merged.  The heading of the new relation is the union of
all the headings of the sourc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41907	42006	
==>e aligned and merged.  The heading of the new relation is the union of
all the headings of the sourc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20589	20684	
==>over time.  One plan which I favor is that
the new (under development) enterprise-strength and P <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20589	20684	
==>over time.  One plan which I favor is that
the new (under development) enterprise-strength and P <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1684	1808	
==>mpile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class sh <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1684	1808	
==>mpile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1516	1616	
==>etamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1516	1616	
==>etamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1516	1616	
==>etamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{pr <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9586	9701	
==>is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9586	9701	
==>is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1623	1731	
==>recompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1623	1731	
==>recompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unle <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1623	1731	
==>recompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unle <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15814	15918	
==>heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19291	19395	
==>heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18770	18874	
==>heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (R <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2775	2860	
==>ompiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Pl <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2775	2860	
==>ompiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Pl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2976	3090	
==>urn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3825	3939	
==>urn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<var <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2010	2112	
==>);
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2010	2112	
==>);
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2010	2112	
==>);
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	344	448	
==>al_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:aln <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	344	448	
==>al_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:aln <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5193	5281	
==>::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5193	5281	
==>::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5193	5281	
==>::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11287	11404	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_N <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11287	11404	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6860	6968	
==>rl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6860	6968	
==>rl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6860	6968	
==>rl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param? <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2745	2863	
==>{
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		if (Sca <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6445	6541	
==>d (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5518	5614	
==>d (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6445	6541	
==>d (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5518	5614	
==>d (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3938	4050	
==>ith the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3798	3907	
==>ith the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33367	33548	
==>{
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33367	33548	
==>{
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33367	33548	
==>{
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @re <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9790	9891	
==>trings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9790	9891	
==>trings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19690	19842	
==>{
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16111	16263	
==>{
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	989	1137	
==>F->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	989	1137	
==>F->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	989	1137	
==>F->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->va <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4406	4502	
==>ct.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4406	4502	
==>ct.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Build <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5930	6026	
==>ct.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Build <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6263	6356	
==>to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6263	6356	
==>to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4743	4909	
==>ersion } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARR <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5207	5373	
==>ersion } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARR <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	228	332	
==>s[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	228	332	
==>s[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	228	332	
==>s[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      func <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3007	3115	
==>$param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3007	3115	
==>$param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3007	3115	
==>$param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $pa <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7155	7252	
==>ult implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7155	7252	
==>ult implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	547	679	
==>bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really have a native form
sub to_nati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	584	694	
==>qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	584	694	
==>qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	584	694	
==>qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1105	1204	
==>pc_regex->match($str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7305	7475	
==>art->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? In <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7305	7475	
==>art->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? In <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7305	7475	
==>art->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? In <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1791	1903	
==>rl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1931	2043	
==>rl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2017	2122	
==>$self->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charna <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28422	28518	
==>ldn't try to
extract them.  This method is also defined as the implicit handler when
coercing thi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35778	35874	
==>ldn't try to
extract them.  This method is also defined as the implicit handler when
coercing thi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28422	28518	
==>ldn't try to
extract them.  This method is also defined as the implicit handler when
coercing thi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35778	35874	
==>ldn't try to
extract them.  This method is also defined as the implicit handler when
coercing thi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1164	1292	
==>n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1164	1292	
==>n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15196	15330	
==>if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15196	15330	
==>if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15196	15330	
==>if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	740	827	
==>ynopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on F <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	740	827	
==>ynopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3645	3770	
==>fix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3645	3770	
==>fix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3645	3770	
==>fix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27112	27229	
==>e::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27112	27229	
==>e::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GI <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9880	9990	
==>$self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.string <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9880	9990	
==>$self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17037	17126	
==>d_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17037	17126	
==>d_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17037	17126	
==>d_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attri <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8138	8242	
==>s {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        sa <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8196	8300	
==>s {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12165	12250	
==>atcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12165	12250	
==>atcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12165	12250	
==>atcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5867	6067	
==>rint(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NA <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5867	6067	
==>rint(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NA <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3228	3426	
==>rint(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NA <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3228	3426	
==>rint(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NA <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	878	997	
==>,
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # print "P6 loaded from '$filename'\n";
    open FILE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5405	5527	
==>v}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5405	5527	
==>v}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5405	5527	
==>v}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9322	9412	
==>::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @sta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3147	3237	
==>::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @sta <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2220	2358	
==>cfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $heade <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2220	2358	
==>cfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	153	258	
==>sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	153	258	
==>sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	153	258	
==>sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied f <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5162	5271	
==>eturn $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5605	5703	
==>defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5605	5703	
==>defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5605	5703	
==>defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite { <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27791	27886	
==>le object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	491	618	
==>paque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counte <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	696	823	
==>paque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counte <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	752	879	
==>paque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counte <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	324	430	
==>ss $install_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $se <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5577	5679	
==>,$op]);
  $r;
}

# so Regexp::Parser doesn't have to struggle with the {?{...})
sub hlp_ws {  def_white <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4160	4311	
==>return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4160	4311	
==>return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4160	4311	
==>return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($disp <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	885	1010	
==>fo out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	9251	9349	
==>y $test_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_results->{events <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4690	4803	
==>>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4690	4803	
==>>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4690	4803	
==>>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4113	4213	
==>er. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4297	4397	
==>er. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Sta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7392	7541	
==>method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7392	7541	
==>method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5583	5684	
==>assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5583	5684	
==>assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5583	5684	
==>assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	541	661	
==>up,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	541	661	
==>up,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	541	661	
==>up,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10938	11039	
==>_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11367	11468	
==>_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4319	4439	
==>k are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4319	4439	
==>k are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4830	4946	
==>k are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4830	4946	
==>k are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	605	711	
==>::Compiler::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1337	1455	
==>illed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1337	1455	
==>illed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1337	1455	
==>illed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27650	27748	
==>t_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27650	27748	
==>t_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which co <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2094	2205	
==>NOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2094	2205	
==>NOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16247	16352	
==>( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16247	16352	
==>( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16247	16352	
==>( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3401	3511	
==>rams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3401	3511	
==>rams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3401	3511	
==>rams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2302	2395	
==>d _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2302	2395	
==>d _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11301	11434	
==>um_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11301	11434	
==>um_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11301	11434	
==>um_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec- <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3196	3320	
==>ool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defin <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3196	3320	
==>ool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defin <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	511	632	
==>ash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JI <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	505	626	
==>ash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2163	2259	
==>o fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2163	2259	
==>o fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2163	2259	
==>o fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1854	1958	
==>name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1854	1958	
==>name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1506	1594	
==>ernals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1506	1594	
==>ernals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1506	1594	
==>ernals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS:: <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4701	4825	
==>led - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_idx= <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14931	15047	
==>(get_attributes)) apply 
            ((= %attrs store (($_ name) ($_ instantite_container)))
             (= $c (WALK <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1988	2085	
==>= \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1988	2085	
==>= \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1988	2085	
==>= \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n" <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4038	4139	
==>h will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be print <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4038	4139	
==>h will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be print <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1042	1141	
==>2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1042	1141	
==>2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1042	1141	
==>2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	22	128	
==>ft.pod 8651.
multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @values -> $x { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2000	2096	
==>id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2000	2096	
==>id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2000	2096	
==>id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} t <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5928	6018	
==>docs/notes/piln_object_repr_types.pod r8593.
# while (@array: --> List) { seems a preferabl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30145	30297	
==>l::NIL || $order->equal_to(str->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6227	6323	
==>eturns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5357	5453	
==>eturns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6227	6323	
==>eturns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5357	5453	
==>eturns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10129	10242	
==>unction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10129	10242	
==>unction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10129	10242	
==>unction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, s <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1628	1727	
==>ameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span th <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1628	1727	
==>ameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3476	3572	
==>var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3476	3572	
==>var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3476	3572	
==>var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11695	11806	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11695	11806	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11695	11806	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11058	11164	
==>::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11208	11314	
==>::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3974	4074	
==>atch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3974	4074	
==>atch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4054	4154	
==>atch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected ou <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20021	20114	
==>and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
dist <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20021	20114	
==>and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
dist <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13414	13545	
==>cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\". <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13408	13539	
==>cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\". <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7051	7147	
==>of the header, that will be processed as a interpolated string (to allow for
any modifiers).

=it <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7051	7147	
==>of the header, that will be processed as a interpolated string (to allow for
any modifiers).

=it <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10095	10213	
==>named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10089	10207	
==>named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25833	25928	
==>ring.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25833	25928	
==>ring.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22783	22953	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22783	22953	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22783	22953	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3618	3721	
==>::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3618	3721	
==>::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	68	166	
==>(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	68	166	
==>(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	68	166	
==>(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = ar <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15888	15980	
==>Test::More

Information about the TAP protocol can be found in the Test::Harness
distribution <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15946	16038	
==>Test::More

Information about the TAP protocol can be found in the Test::Harness
distribution <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1819	1920	
==>::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1819	1920	
==>::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1801	1924	
==>ername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1801	1924	
==>ername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3539	3660	
==>LED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAIL <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3539	3660	
==>LED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5063	5184	
==>LED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAIL <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1209	1341	
==>ort         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Interna <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1209	1341	
==>ort         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Interna <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6299	6404	
==>( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-cont <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6299	6404	
==>( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-cont <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6299	6404	
==>( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-cont <==
5	/Users/nnunley/pugs/util/package-osx.pl	1114	1211	
==>usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/his <==
5	/Users/nnunley/pugs/util/package-osx.pl	3424	3521	
==>usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/his <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1659	1754	
==>TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1659	1754	
==>TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1659	1754	
==>TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5535	5699	
==>},
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5535	5699	
==>},
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5535	5699	
==>},
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4218	4342	
==>(\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4230	4354	
==>(\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match = <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	620	745	
==>" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2} <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	620	745	
==>" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1085	1182	
==>a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1085	1182	
==>a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1085	1182	
==>a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23736	23865	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20157	20286	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2354	2463	
==>f not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2354	2463	
==>f not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2354	2463	
==>f not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

su <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5358	5501	
==>irlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir un <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5358	5501	
==>irlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2	105	
==>e warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2	105	
==>e warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2	105	
==>e warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5396	5491	
==>cally done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5396	5491	
==>cally done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	445	538	
==>lti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	445	538	
==>lti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	445	538	
==>lti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11342	11530	
==>mp( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7624	7812	
==>mp( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8458	8646	
==>mp( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2005	2110	
==>5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2145	2250	
==>5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3582	3700	
==>:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3582	3700	
==>:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3582	3700	
==>:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->clas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1731	1822	
==>=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for Engl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1731	1822	
==>=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for Engl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9391	9484	
==>) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9391	9484	
==>) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9391	9484	
==>) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	930	1022	
==>$expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	930	1022	
==>$expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1248	1362	
==>hich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1248	1362	
==>hich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implem <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1248	1362	
==>hich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implem <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6530	6636	
==>hannels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6530	6636	
==>hannels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left ch <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4495	4632	
==>> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4635	4772	
==>> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3206	3300	
==>')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3206	3300	
==>')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3206	3300	
==>')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	609	709	
==>arams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	609	709	
==>arams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	609	709	
==>arams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lv <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5636	5738	
==>e running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the e <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5636	5738	
==>e running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7160	7262	
==>e running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the e <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	447	530	
==>-----------------------------------------------------------------------
## accessors <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	447	530	
==>-----------------------------------------------------------------------
## accessors <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2949	3067	
==>ection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

metho <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2949	3067	
==>ection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

metho <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1966	2076	
==>I use the test number for reference, which will
    # blow up in our faces when tests are inserted.
    # It is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7574	7681	
==>"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7574	7681	
==>"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<use <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10549	10676	
==>{
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!coo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10549	10676	
==>{
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!coo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1997	2098	
==>b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1997	2098	
==>b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1997	2098	
==>b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7273	7387	
==>urn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3877	3991	
==>urn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4726	4840	
==>urn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15847	15942	
==>ymmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19324	19419	
==>ymmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5638	5772	
==>UB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5638	5772	
==>UB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5638	5772	
==>UB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19165	19259	
==>() or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19165	19259	
==>() or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must b <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2572	2683	
==>nion ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2572	2683	
==>nion ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10990	11096	
==>else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10990	11096	
==>else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10990	11096	
==>else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($su <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8181	8287	
==>ol::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8573	8679	
==>ol::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8181	8287	
==>ol::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8573	8679	
==>ol::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19692	19789	
==>::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $p <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8987	9094	
==>set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepenc <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8987	9094	
==>set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8322	8425	
==>$_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8322	8425	
==>$_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8322	8425	
==>$_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	990	1088	
==>tance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  La <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	990	1088	
==>tance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  La <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2508	2620	
==>::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2508	2620	
==>::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2508	2620	
==>::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.pe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3321	3427	
==>@new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.k <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3321	3427	
==>@new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.k <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4971	5079	
==>and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4971	5079	
==>and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4971	5079	
==>and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34947	35044	
==>her>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39497	39594	
==>her>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	22	164	
==>{
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	22	164	
==>{
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	224	327	
==>us soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	224	327	
==>us soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	224	327	
==>us soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is th <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2084	2202	
==>ults.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wante <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2084	2202	
==>ults.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wante <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9426	9528	
==>ta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical vari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9426	9528	
==>ta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical vari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9426	9528	
==>ta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical vari <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	759	861	
==>tdout',
			fixity => "nullary",
			type => Blondie::TypeSafe::Type::Std->new("GV"),
		},
		{
			arity = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31961	32056	
==>er> argument, where <$other> has the same heading as
the invocant Relation, and returns a new Re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33822	33917	
==>er> argument, where <$other> has the same heading as the
invocant Relation, and returns a new Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36511	36606	
==>er> argument, where <$other> has the same heading as
the invocant Relation, and returns a new Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38372	38467	
==>er> argument, where <$other> has the same heading as the
invocant Relation, and returns a new Re <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6527	6631	
==>s Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6527	6631	
==>s Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $o <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7399	7501	
==>s Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7399	7501	
==>s Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $o <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7712	7813	
==>map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	224	327	
==>shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->di <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	297	400	
==>shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	187	282	
==>ay to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	187	282	
==>ay to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	187	282	
==>ay to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4156	4266	
==>->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4156	4266	
==>->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".jo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4156	4266	
==>->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".jo <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4692	4792	
==>data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some v <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4551	4651	
==>data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some v <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6788	6899	
==>print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6788	6899	
==>print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	72	165	
==>egister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	72	165	
==>egister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	72	165	
==>egister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1915	2073	
==>($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1915	2073	
==>($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1915	2073	
==>($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	320	421	
==>RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2697	2788	
==>:z::not
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8765	8867	
==>efix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8765	8867	
==>efix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8765	8867	
==>efix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20154	20247	
==>t's important;
the interface/behaviour is), this Relation data type is proposed to be
generall <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24706	24799	
==>t's important;
the interface/behaviour is), this Relation data type is proposed to be
generall <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28919	29060	
==>$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28919	29060	
==>$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28919	29060	
==>$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13100	13217	
==>this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

packa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13100	13217	
==>this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

packa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13100	13217	
==>this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	319	415	
==>enclasses
## to all Classes created. See Method_Dispatch_w_EigenClasses.jpg in this 
## same dire <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2426	2520	
==>ymbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} = Blondie::Com <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8106	8216	
==>l_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8106	8216	
==>l_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4551	4653	
==>tml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4551	4653	
==>tml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4551	4653	
==>tml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	995	1091	
==>= $compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	995	1091	
==>= $compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	581	668	
==>L::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_mac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	581	668	
==>L::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_mac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	581	668	
==>L::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_mac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16948	17098	
==>before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13369	13519	
==>before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4651	4784	
==>last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4651	4784	
==>last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4651	4784	
==>last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9973	10070	
==>ns
are performed at the moment the user tries to set the input, and input that
fails immediate eva <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9973	10070	
==>ns
are performed at the moment the user tries to set the input, and input that
fails immediate eva <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2017	2152	
==>pture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2017	2152	
==>pture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2602	2698	
==>("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2602	2698	
==>("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2602	2698	
==>("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1633	1748	
==>r .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7565	7653	
==>lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

do <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1793	1881	
==>lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

do <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9199	9287	
==>lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

do <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2011	2099	
==>lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

do <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5631	5747	
==>ld {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die " <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5631	5747	
==>ld {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5000	5106	
==>_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5000	5106	
==>_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5000	5106	
==>_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_n <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	326	422	
==>cer

# the algorithm implemented is Hindley-Milner type inferrencing, as explained in
# this arti <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28121	28203	
==>$rx->('abc')->('abc')->describe,"\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n" <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12731	12854	
==>duce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2397	2498	
==>rsion
sub *WALKMETH (block &dispatcher, symbol $label, hash %opts) returns method {
    { (&dispatcher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6249	6343	
==>ternals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6249	6343	
==>ternals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6249	6343	
==>ternals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3475	3572	
==>>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3475	3572	
==>>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3475	3572	
==>>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19291	19385	
==>sh_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGUR <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19291	19385	
==>sh_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGUR <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	962	1074	
==>ircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	962	1074	
==>ircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nic <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8414	8515	
==>);
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8414	8515	
==>);
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38915	39008	
==>-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are creating a new esc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11618	11736	
==>onnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler fou <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11618	11736	
==>onnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler fou <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	492	598	
==>sh(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	r <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	492	598	
==>sh(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	r <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8353	8456	
==>e DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8290	8431	
==>ll
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 're <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8290	8431	
==>ll
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 're <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8290	8431	
==>ll
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 're <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11937	12047	
==>\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11937	12047	
==>\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5976	6112	
==>ss $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_ski <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5976	6112	
==>ss $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_ski <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3948	4071	
==>uce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3948	4071	
==>uce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3948	4071	
==>uce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7028	7143	
==>ck' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $sta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7028	7143	
==>ck' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	901	1005	
==>lf->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	901	1005	
==>lf->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	901	1005	
==>lf->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9888	10000	
==>lue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 F <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9888	10000	
==>lue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5051	5161	
==>@list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5051	5161	
==>@list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5051	5161	
==>@list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21313	21414	
==>send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WAL <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44220	44321	
==>send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WAL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1908	2003	
==>ntf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1908	2003	
==>ntf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1908	2003	
==>ntf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  ou <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17036	17136	
==>on of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17036	17136	
==>on of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10326	10423	
==>(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10326	10423	
==>(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28181	28275	
==>urns this Relation::Example's heading.

=item C<body () returns Set of Mapping(Str) of Any>

Th <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	701	797	
==>perate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Als <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	701	797	
==>perate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Als <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2318	2414	
==>_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2318	2414	
==>_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2318	2414	
==>_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $j <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1012	1115	
==>PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1012	1115	
==>PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1012	1115	
==>PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	702	803	
==>o determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return tru <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	702	803	
==>o determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return tru <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10107	10244	
==>CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for pa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10107	10244	
==>CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for pa <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	680	780	
==>tly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can inv <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	680	780	
==>tly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can inv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14087	14226	
==>$size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14087	14226	
==>$size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14087	14226	
==>$size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6349	6488	
==>$size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4851	4990	
==>$size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2444	2587	
==>'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2444	2587	
==>'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2444	2587	
==>'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35524	35614	
==>>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40074	40164	
==>>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	782	889	
==>::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	782	889	
==>::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	904	1037	
==>%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	904	1037	
==>%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	904	1037	
==>%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13563	13661	
==>.  The field names have case as suggested by HTTP spec, and the
names are returned in the recommend <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13563	13661	
==>.  The field names have case as suggested by HTTP spec, and the
names are returned in the recommend <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3410	3637	
==>graph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3458	3685	
==>graph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3410	3637	
==>graph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3458	3685	
==>graph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($ <==
5	/Users/nnunley/pugs/util/version_h.pl	1310	1416	
==>= $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # convert /svk <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3804	3949	
==>)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5121	5266	
==>)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3804	3949	
==>)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5109	5254	
==>)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14342	14439	
==>e->[-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	512	628	
==>referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	512	628	
==>referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	512	628	
==>referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22878	22969	
==>set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22878	22969	
==>set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1392	1623	
==>sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 mult <==
5	/Users/nnunley/pugs/util/build_pugs.pl	433	529	
==>0 - build a pugs executable

This script calls GHC to build a pugs exectuable, optionally inlinin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7604	7697	
==>xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7604	7697	
==>xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7604	7697	
==>xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5848	5948	
==>S

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Un <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5848	5948	
==>S

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Un <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5869	5966	
==>and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=ov <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5869	5966	
==>and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=ov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8066	8163	
==>and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=ov <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	159	350	
==>y $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4054	4216	
==>ub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4054	4216	
==>ub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4054	4216	
==>ub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	224	381	
==>y $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9510	9812	
==>{
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   ( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9510	9812	
==>{
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6661	6795	
==>},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6661	6795	
==>},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6661	6795	
==>},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3066	3167	
==>::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaqu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13396	13497	
==>ler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => al <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7605	7706	
==>ler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => al <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3066	3167	
==>::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3066	3167	
==>::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaqu <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1111	1218	
==>| +@newtoks && !defined $i {

        @tokens.push( @newtoks.shift );
        @tokens.push( $maketoken.(@new <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1931	2019	
==>istribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1894	1982	
==>istribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1931	2019	
==>istribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1894	1982	
==>istribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1750	1852	
==>:{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ful <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1750	1852	
==>:{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ful <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1750	1852	
==>:{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ful <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2280	2377	
==>:Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it a <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2280	2377	
==>:Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2968	3064	
==>>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_nex <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2968	3064	
==>>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_nex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2360	2451	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2360	2451	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2360	2451	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23538	23642	
==>f;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19959	20063	
==>f;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3836	3925	
==>----------------------------------------------------
## Package

## See http://article.gma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3836	3925	
==>----------------------------------------------------
## Package

## See http://article.gma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3836	3925	
==>----------------------------------------------------
## Package

## See http://article.gma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8912	9124	
==>ey, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8912	9124	
==>ey, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8912	9124	
==>ey, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	599	741	
==>CKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	495	605	
==>::Runtime::Perl6::Scalar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bl <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25262	25363	
==>ting
 * it anyway.
 * [regmust is now supplied always.  The tests that use regmust have a
 * heuristic <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33071	33160	
==>od has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37621	37710	
==>od has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36965	37054	
==>od has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C< <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20374	20487	
==>('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16795	16908	
==>('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3258	3351	
==>:name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3258	3351	
==>:name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3258	3351	
==>:name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6862	6989	
==>my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLE <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11417	11544	
==>my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLE <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12215	12342	
==>my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLE <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12942	13069	
==>my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLE <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	8867	8971	
==>th    = rel2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1947	2083	
==>e_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1947	2083	
==>e_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1947	2083	
==>e_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5429	5552	
==>{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5429	5552	
==>{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expre <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1724	1821	
==>le_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1724	1821	
==>le_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	142	238	
==>tringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	142	238	
==>tringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	142	238	
==>tringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9724	9852	
==>rn " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9724	9852	
==>rn " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9724	9852	
==>rn " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                ret <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	494	603	
==>check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$d <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	488	597	
==>check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$d <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10118	10218	
==>$span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10118	10218	
==>$span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6387	6478	
==>);

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6387	6478	
==>);

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6387	6478	
==>);

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2690	2799	
==>, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2690	2799	
==>, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2186	2283	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2186	2283	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2186	2283	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15837	15940	
==>`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15895	15998	
==>`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2988	3089	
==>%s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2988	3089	
==>%s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2988	3089	
==>%s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16221	16352	
==>rep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19698	19829	
==>rep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19231	19362	
==>rep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.valu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34050	34149	
==>lating a message, a match in found in the most preferred language
is used.  Each Set Name can be any <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34050	34149	
==>lating a message, a match in found in the most preferred language
is used.  Each Set Name can be any <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1412	1552	
==>_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <= <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4651	4791	
==>_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <= <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1412	1552	
==>_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <= <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4651	4791	
==>_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <= <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6104	6243	
==>w!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\\n   List      pre     k <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1466	1597	
==>e
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->pac <==
5	/Users/nnunley/pugs/util/package-osx.pl	10796	10917	
==>{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4967	5064	
==>ft @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16003	16100	
==>ft @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17491	17588	
==>ft @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22174	22271	
==>ft @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	80	195	
==>IB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative;

use YAML                    qw[L <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	141	247	
==>qw[bin];
    require '_inc.pl';
    protoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	777	877	
==>l2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	777	877	
==>l2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	777	877	
==>l2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5451	5554	
==>k 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5451	5554	
==>k 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7648	7751	
==>k 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2109	2206	
==>lti sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2109	2206	
==>lti sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	975	1084	
==>ef($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	975	1084	
==>ef($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	975	1084	
==>ef($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	315	420	
==>ur $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @par <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	315	420	
==>ur $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11675	11799	
==>::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2109	2221	
==>::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builde <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2109	2221	
==>::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10741	10831	
==>=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_len <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10741	10831	
==>=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_len <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	125	224	
==>E);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	125	224	
==>E);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	125	224	
==>E);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	231	371	
==>'_' /xge;
    return $s;
}

sub _mangle_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3901	4009	
==>r that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3762	3868	
==>r that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	687	785	
==>statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::em <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	893	991	
==>statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::em <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8714	8858	
==>item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8714	8858	
==>item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8714	8858	
==>item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n = <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6489	6603	
==>S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22256	22350	
==>lation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8947	9048	
==>eturned to carry the same magic.



overload in p5 is just static %OVERLOAD entry

the only overhead i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8652	8750	
==>eturned to carry the same magic.

overload in p5 is just static %OVERLOAD entry
the only overhead i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2314	2410	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2314	2410	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2314	2410	
==>~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = Stri <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2390	2502	
==>ate it.
        mkpath(dirname($ppc_yml));
        
        run($^X, qw<util/gen_prelude.pl -v -i src/perl6/Prelu <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10881	10992	
==>t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10881	10992	
==>t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1052	1156	
==>ti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringi <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1052	1156	
==>ti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringi <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8060	8174	
==>n error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) r <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8060	8174	
==>n error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2910	2999	
==>s_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2910	2999	
==>s_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2910	2999	
==>s_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInv <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4696	4839	
==>lse {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    wh <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4696	4839	
==>lse {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4603	4688	
==>CKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4603	4688	
==>CKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var n <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5193	5278	
==>CKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var n <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3980	4086	
==>ecode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = spl <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3980	4086	
==>ecode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = spl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4645	4748	
==>n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4645	4748	
==>n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4645	4748	
==>n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7476	7585	
==>nd return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7223	7327	
==>nd return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1658	1755	
==>j => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1658	1755	
==>j => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1658	1755	
==>j => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7655	7777	
==>y;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7655	7777	
==>y;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7655	7777	
==>y;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = ne <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1842	1945	
==>ebug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 S <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1842	1945	
==>ebug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 S <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	237	344	
==>0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5: <==
5	/Users/nnunley/pugs/util/package-osx.pl	1371	1471	
==>ugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/local/bin/p6doc ../../ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1515	1614	
==>space' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1515	1614	
==>space' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1515	1614	
==>space' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    : <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11163	11255	
==>tem B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11163	11255	
==>tem B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2532	2633	
==>ubs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2532	2633	
==>ubs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2532	2633	
==>ubs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2744	2838	
==>ersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2744	2838	
==>ersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	134	245	
==>) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	134	245	
==>) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	134	245	
==>) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6850	6956	
==>hod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6850	6956	
==>hod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6850	6956	
==>hod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10907	11004	
==>ast of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10907	11004	
==>ast of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi- <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9048	9170	
==>ion ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expre <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	506	615	
==>ion ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $expre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5522	5620	
==>xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5522	5620	
==>xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5522	5620	
==>xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10109	10249	
==>m_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10109	10249	
==>m_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10109	10249	
==>m_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_ <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1999	2091	
==>=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equiva <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1999	2091	
==>=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equiva <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1979	2105	
==>or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2196	2322	
==>or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1970	2067	
==>{
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1970	2067	
==>{
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1970	2067	
==>{
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Co <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	972	1083	
==>chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciit <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	932	1033	
==>rt - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.p <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	932	1033	
==>rt - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20431	20530	
==>ment, and study; you should not use it in production.

For production use, there should be a wide va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20431	20530	
==>ment, and study; you should not use it in production.

For production use, there should be a wide va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1221	1317	
==>rl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1221	1317	
==>rl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1221	1317	
==>rl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.k <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16158	16251	
==>internally, while another one displays it to the
user instead.

Locale::KeyedText provides a s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16158	16251	
==>internally, while another one displays it to the
user instead.

Locale::KeyedText provides a s <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6923	7270	
==>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	225	357	
==>peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	111	236	
==>peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	111	236	
==>peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return ' <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	970	1071	
==>ft;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitter::Pretty->new->string($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14756	14872	
==>' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14756	14872	
==>' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14756	14872	
==>' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	17	121	
==>r-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	17	121	
==>r-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3432	3554	
==>tents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3432	3554	
==>tents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3432	3554	
==>tents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3776	3874	
==>C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, sa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3776	3874	
==>C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3252	3366	
==>(( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!! <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3252	3366	
==>(( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1120	1217	
==>->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1120	1217	
==>->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1120	1217	
==>->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6072	6174	
==>?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_typ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6072	6174	
==>?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_typ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14986	15081	
==>sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wit <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18463	18558	
==>sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wit <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17879	17974	
==>sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1523	1638	
==>b { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1523	1638	
==>b { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16912	17015	
==>mon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20389	20492	
==>mon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19967	20070	
==>mon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6345	6496	
==>e => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6345	6496	
==>e => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6345	6496	
==>e => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role- <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	287	394	
==>urrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	287	394	
==>urrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4914	5006	
==>ymmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4041	4133	
==>ymmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4914	5006	
==>ymmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4041	4133	
==>ymmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2454	2537	
==>direct_typed_value($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $to <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	635	757	
==>ft;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shif <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	536	658	
==>ft;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14809	14922	
==>.
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14809	14922	
==>.
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14809	14922	
==>.
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the su <==
5	/Users/nnunley/pugs/misc/S29_round.pl	144	264	
==>loor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sig <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6279	6373	
==>tr $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8347	8441	
==>tr $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6279	6373	
==>tr $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8347	8441	
==>tr $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5366	5489	
==>$class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11021	11144	
==>$class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3820	3926	
==>PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3820	3926	
==>PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	670	776	
==>PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9718	9835	
==>ng crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ / <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9718	9835	
==>ng crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ / <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9718	9835	
==>ng crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ / <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2382	2472	
==>L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by send <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2382	2472	
==>L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by send <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	398	493	
==>$.node   = $node if $node.defined;   
}

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	262	357	
==>.value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	398	493	
==>$.node   = $node if $node.defined;   
}

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	262	357	
==>.value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	262	357	
==>.value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12414	12538	
==>tion = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      method status retu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14234	14350	
==>ping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $sel <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2792	2908	
==>tion = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status retu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14234	14350	
==>ping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $sel <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2792	2908	
==>tion = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7397	7526	
==>Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7397	7526	
==>Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7397	7526	
==>Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33860	33960	
==>im>, you might know
about its '\&' regex assertion.  It's an "AND", much like '|' is an
"OR".  The vi <==
5	/Users/nnunley/pugs/util/package-osx.pl	4205	4302	
==>l/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man/man3/Perl6::Bible::E04.3pm
        /usr/lo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11111	11210	
==>nterface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11111	11210	
==>nterface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Docu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36761	36855	
==>too.  Another trivial case is if any
source relation is the identity-one relation (zero attribu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41310	41404	
==>too.  Another trivial case is if any
source relation is the identity-one relation (zero attribu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40933	41027	
==>too.  Another trivial case is if any
source relation is the identity-one relation (zero attribu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1057	1159	
==>(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1057	1159	
==>(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1057	1159	
==>(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "N <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7332	7433	
==>ersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if def <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7332	7433	
==>ersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if def <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3843	3984	
==>$fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3843	3984	
==>$fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3843	3984	
==>$fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20380	20475	
==>he interface of Relation is entirely object-oriented; you use it by
creating objects from its me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24932	25027	
==>he interface of Relation is entirely object-oriented; you use it by
creating objects from its me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	526	630	
==>attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	526	630	
==>attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	526	630	
==>attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    : <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14201	14297	
==>alues of the callback routine are ignored.  The loop can
be broken by raising an exception (C<die <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14201	14297	
==>alues of the callback routine are ignored.  The loop can
be broken by raising an exception (C<die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8032	8195	
==>guments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCT <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8032	8195	
==>guments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCT <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8032	8195	
==>guments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCT <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4838	4997	
==>from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4078	4213	
==>from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2577	2705	
==>tion file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2577	2705	
==>tion file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4229	4324	
==>g to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines fr <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4229	4324	
==>g to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines fr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4309	4404	
==>g to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines fr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7077	7175	
==>ed by 
a block cipher mode role to add some information to the output.

A default implementation of <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7077	7175	
==>ed by 
a block cipher mode role to add some information to the output.

A default implementation of <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2250	2338	
==>size && $other.includes($self.members));
}
method proper_subset($self: Set $other) return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2250	2338	
==>size && $other.includes($self.members));
}
method proper_subset($self: Set $other) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16313	16463	
==>rn ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16313	16463	
==>rn ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16313	16463	
==>rn ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7693	7797	
==>( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7693	7797	
==>( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7693	7797	
==>( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6825	6926	
==>rmalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6825	6926	
==>rmalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	893	1007	
==>fix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	918	1032	
==>fix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	991	1092	
==>etch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	991	1092	
==>etch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	991	1092	
==>etch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1324	1428	
==>rray ; MatchTest *@indextests )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, Pair($k,@array[$k] <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3802	3901	
==>C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3802	3901	
==>C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1905	1998	
==>o interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1905	1998	
==>o interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1260	1381	
==>s valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4738	4859	
==>s valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	166	270	
==>BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	166	270	
==>BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	166	270	
==>BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37404	37498	
==>.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl package <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37404	37498	
==>.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl package <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7797	7890	
==>ole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7797	7890	
==>ole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7797	7890	
==>ole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11650	11758	
==>eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_cla <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11644	11752	
==>eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4768	4872	
==>PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4768	4872	
==>PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4768	4872	
==>PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1205	1335	
==>ons, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1205	1335	
==>ons, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	298	393	
==>ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	298	393	
==>ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	298	393	
==>ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17375	17493	
==>elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13796	13914	
==>elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	321	419	
==>Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	321	419	
==>Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	321	419	
==>Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9401	9515	
==>$ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9401	9515	
==>$ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9401	9515	
==>$ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1332	1425	
==>h an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Bac <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1332	1425	
==>h an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Bac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1608	1710	
==>prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1608	1710	
==>prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1608	1710	
==>prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} els <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20248	20340	
==>>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execute <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20248	20340	
==>>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execute <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3352	3449	
==>'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type';

node_a 'Type', ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4042	4186	
==>',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	240	340	
==>" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $co <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	240	340	
==>" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $co <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	296	395	
==>" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $co <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	296	395	
==>" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1398	1494	
==>$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1398	1494	
==>$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1398	1494	
==>$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8422	8543	
==>$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8422	8543	
==>$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8422	8543	
==>$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9451	9563	
==>s export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5: <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9451	9563	
==>s export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7619	7765	
==>t != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    } <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7619	7765	
==>t != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1020	1135	
==>. should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1020	1135	
==>. should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1020	1135	
==>. should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	911	1076	
==>ss' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	911	1076	
==>ss' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	911	1076	
==>ss' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7698	7800	
==>:$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7437	7535	
==>:$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1096	1229	
==>tr $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $met <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1096	1229	
==>tr $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $met <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8184	8290	
==>tion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi met <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11661	11767	
==>tion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi met <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10843	10949	
==>tion."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi met <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5195	5315	
==>ing
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5417	5537	
==>ing
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18275	18369	
==>x1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18275	18369	
==>x1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18275	18369	
==>x1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19208	19363	
==>ue::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19208	19363	
==>ue::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19208	19363	
==>ue::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unb <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	478	576	
==>n $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	478	576	
==>n $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6305	6428	
==>eturn @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method refer <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6305	6428	
==>eturn @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method refer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1041	1130	
==>odel_w_Roles.pl

$::Role = undef;

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1041	1130	
==>odel_w_Roles.pl

$::Role = undef;

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1041	1130	
==>odel_w_Roles.pl

$::Role = undef;

## ---------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12822	12970	
==>>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12822	12970	
==>>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12822	12970	
==>>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1828	1923	
==>ch.

Lit is divided to various intrinsic object types, including

intrinsic Code (which then has <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1757	1850	
==>ch.
Lit is divided to various intrinsic object types, including
intrinsic Code (which then has <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5757	5919	
==>ff + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $s <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4257	4419	
==>ff + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18690	18809	
==>)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18690	18809	
==>)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18690	18809	
==>)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	10	117	
==>L::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	10	117	
==>L::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	10	117	
==>L::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { bo <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14823	14920	
==>t => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14823	14920	
==>t => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	498	597	
==>dBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	498	597	
==>dBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	498	597	
==>dBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18743	18838	
==>eed to supply its $document and optional
$parent_node though; you can produce a direct clone lik <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18743	18838	
==>eed to supply its $document and optional
$parent_node though; you can produce a direct clone lik <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48030	48191	
==>y $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:namespace'))
                  ->store(
                      $e->get( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1549	1656	
==>regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1549	1656	
==>regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17602	17705	
==>returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17602	17705	
==>returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17206	17315	
==>t);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((revers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17206	17315	
==>t);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((revers <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17206	17315	
==>t);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((revers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	841	947	
==>my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	841	947	
==>my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	841	947	
==>my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15641	15738	
==>tems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15641	15738	
==>tems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5228	5339	
==><{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5228	5339	
==><{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1998	2105	
==>s.map:{ .get_assocations }
       );
}

# sigh ... how you get used to infrastructure you've built up in Per <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16358	16450	
==>ms of a new high-level
programming language named "Rosetta D", which is computationally compl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16358	16450	
==>ms of a new high-level
programming language named "Rosetta D", which is computationally compl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	407	502	
==>s[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	407	502	
==>s[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	407	502	
==>s[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3383	3469	
==>015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3383	3469	
==>015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7889	7996	
==>. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_word( 'abc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1163	1268	
==>}

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1163	1268	
==>}

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1163	1268	
==>}

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7623	7727	
==>. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_word( 'abc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14195	14373	
==>([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14195	14373	
==>([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11628	11743	
==>backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2093	2190	
==>on of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2093	2190	
==>on of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23274	23372	
==>the other
packages require your text data to be stored in a format other than Perl
files.  Or alter <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23274	23372	
==>the other
packages require your text data to be stored in a format other than Perl
files.  Or alter <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17997	18091	
==>Internet e-mail address for the human
user who controls the requesting user agent.  The address <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17997	18091	
==>Internet e-mail address for the human
user who controls the requesting user agent.  The address <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2876	2970	
==>), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternative <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	871	1009	
==>aram<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %t <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	613	751	
==>aram<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %t <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	871	1009	
==>aram<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %t <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	613	751	
==>aram<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10980	11089	
==>$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::constant( '$p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1357	1530	
==>le Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1357	1530	
==>le Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1242	1344	
==>ame} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument aft <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1242	1344	
==>ame} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument aft <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1451	1553	
==>ame} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument aft <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	490	605	
==>-  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	490	605	
==>-  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	490	605	
==>-  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	275	370	
==>s = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	333	428	
==>s = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2293	2406	
==>.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2293	2406	
==>.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2293	2406	
==>.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9285	9376	
==>not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9285	9376	
==>not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16488	16608	
==>ax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS messages that won't be expected
        $res <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1757	1864	
==>ons may be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	673	776	
==>');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	673	776	
==>');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	673	776	
==>');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2178	2314	
==>X use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        giv <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2178	2314	
==>X use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        giv <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4471	4594	
==>keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %p <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12090	12183	
==>of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12090	12183	
==>of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1211	1320	
==>hift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	950	1054	
==>hift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1155	1259	
==>hift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Disp <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6256	6344	
==>("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6256	6344	
==>("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh) <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29282	29403	
==>EE(aTHX_ re)

 #define FBMcf_TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1941	2059	
==>as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1941	2059	
==>as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1941	2059	
==>as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autot <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2944	3038	
==>though running C<v6-pugs> requires the installation of a lot of Perl 5 modules,
it is completel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	881	983	
==>xed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	881	983	
==>xed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	881	983	
==>xed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - return <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	456	557	
==>S29draft.pod 8651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @val <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20835	20935	
==>E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5585	5834	
==>ch::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6434	6683	
==>ch::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3650	3756	
==>yz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3650	3756	
==>yz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3650	3756	
==>yz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2770	2922	
==>er::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	523	657	
==>er::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	523	657	
==>er::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7945	8044	
==>et 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher to <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7945	8044	
==>et 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher to <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8579	8700	
==>($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8579	8700	
==>($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6074	6170	
==>ix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6074	6170	
==>ix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6074	6170	
==>ix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13952	14067	
==>er_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARG <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13952	14067	
==>er_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARG <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13952	14067	
==>er_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	113	209	
==>lues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	113	209	
==>lues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	113	209	
==>lues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2572	2666	
==>ion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2572	2666	
==>ion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26348	26515	
==>str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26348	26515	
==>str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26348	26515	
==>str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36487	36578	
==>is method takes a (machine-readable) Message object as its positional
parameter $message and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36487	36578	
==>is method takes a (machine-readable) Message object as its positional
parameter $message and <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1388	1503	
==>alue;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1388	1503	
==>alue;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5469	5563	
==>SITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5469	5563	
==>SITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5469	5563	
==>SITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14727	14841	
==>tages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14727	14841	
==>tages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14727	14841	
==>tages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3274	3379	
==>end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_ope <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3274	3379	
==>end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_ope <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9151	9258	
==>($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, $how);
  });

  # upper POS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1112	1210	
==>dir => '/some/dir' )

C<_chdir> changes directory to a dir.

Returns old cwd on success, false on f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2193	2284	
==>}
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2193	2284	
==>}
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2193	2284	
==>}
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	982	1130	
==>name($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	851	967	
==>name($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1, <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10971	11073	
==>);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4843	4954	
==>ges and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_conten <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4843	4954	
==>ges and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_conten <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3851	3940	
==>-------------------------------------
## Package

## See http://article.gmane.org/gmane.co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3851	3940	
==>-------------------------------------
## Package

## See http://article.gmane.org/gmane.co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3851	3940	
==>-------------------------------------
## Package

## See http://article.gmane.org/gmane.co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14537	14685	
==>implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14531	14679	
==>implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1791	1907	
==>member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5268	5384	
==>member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4198	4314	
==>member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2204	2359	
==>ch}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2188	2301	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2583	2696	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2246	2359	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2641	2754	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6575	6743	
==>ft;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experiment <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10782	10950	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experiment <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7861	8020	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experiment <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6363	6522	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experiment <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7861	8020	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experiment <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21253	21349	
==>presented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25805	25901	
==>presented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24429	24525	
==>presented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9211	9304	
==>of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

R <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9211	9304	
==>of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4475	4582	
==>_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4475	4582	
==>_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	895	997	
==>s the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	895	997	
==>s the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	895	997	
==>s the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6907	7022	
==>4main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6907	7022	
==>4main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6907	7022	
==>4main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  su <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	82	175	
==>nstruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	82	175	
==>nstruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1434	1552	
==>rgs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1434	1552	
==>rgs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1434	1552	
==>rgs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].F <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	5	95	
==>Parse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert> <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	5	95	
==>Parse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14443	14560	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14443	14560	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14443	14560	
==>Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $t <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7321	7437	
==>open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7321	7437	
==>open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6929	7029	
==>> '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6929	7029	
==>> '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6929	7029	
==>> '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30273	30366	
==>ke Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34825	34918	
==>ke Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3359	3514	
==>nt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3359	3514	
==>nt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3359	3514	
==>nt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(? <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5571	5668	
==>}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5629	5726	
==>}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2826	3003	
==>'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $eigenclass-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8618	8721	
==>.. Object cannot call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11246	11345	
==>ile::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11246	11345	
==>ile::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11246	11345	
==>ile::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File:: <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2443	2565	
==>code(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2443	2565	
==>code(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2209	2303	
==>label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2209	2303	
==>label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2209	2303	
==>label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12140	12280	
==>ent lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of line <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12140	12280	
==>ent lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of line <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13311	13416	
==>if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13311	13416	
==>if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13311	13416	
==>if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7122	7234	
==>xical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        preceden <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7122	7234	
==>xical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        preceden <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	657	753	
==>S.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	657	753	
==>S.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	657	753	
==>S.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5227	5422	
==>))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6989	7184	
==>))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7279	7397	
==>"unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7279	7397	
==>"unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7279	7397	
==>"unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1461	1591	
==>STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1461	1591	
==>STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29598	29704	
==>rêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyAp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29598	29704	
==>rêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyAp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	406	500	
==>rêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyAp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	12	270	
==>ugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'RO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	12	270	
==>ugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'RO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	12	270	
==>ugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'RO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	12	270	
==>ugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'RO <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1878	2001	
==>_only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_com <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5634	5741	
==>ashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5634	5741	
==>ashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5634	5741	
==>ashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17047	17152	
==>signed 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'dat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17047	17152	
==>signed 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'dat <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18977	19107	
==>G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQIN <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15398	15528	
==>G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQIN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	351	447	
==>s ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	351	447	
==>s ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	351	447	
==>s ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1200	1298	
==>body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1200	1298	
==>body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1200	1298	
==>body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $ <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2311	2405	
==>l links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graha <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2311	2405	
==>l links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4978	5075	
==>$line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $lin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4978	5075	
==>$line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $lin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4978	5075	
==>$line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $lin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15826	15922	
==>any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15826	15922	
==>any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10507	10617	
==>y $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10507	10617	
==>y $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1967	2075	
==>2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1967	2075	
==>2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1967	2075	
==>2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10, <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5949	6077	
==>ype = 'bailout';
        $self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13005	13109	
==>ng ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16482	16586	
==>ng ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15844	15948	
==>ng ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produc <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13805	13904	
==>ve)
val: type($$) = { $.t }

# combs (applications) pass their env to eval their children
comb: env( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12099	12225	
==>lf.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  clas <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2501	2613	
==>lf.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

clas <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2501	2613	
==>lf.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

clas <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	865	963	
==>export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is exp <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	865	963	
==>export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	521	697	
==>s'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	521	697	
==>s'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	521	697	
==>s'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37474	37570	
==>he name of a Perl package in its positional parameter
$module_name (a string) and tries to load i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37474	37570	
==>he name of a Perl package in its positional parameter
$module_name (a string) and tries to load i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4979	5186	
==>y = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4979	5186	
==>y = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4979	5186	
==>y = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	5090	5221	
==>nv_reference
              conv_foreach conv_package conv_open conv_condition
          
              )){
    no strict;
if(main->c <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	224	325	
==>the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4846	5074	
==>( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4846	5074	
==>( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4846	5074	
==>( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'k <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2178	2270	
==>elf->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $sel <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1284	1375	
==>elf->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6320	6450	
==>emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6595	6724	
==>emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16492	16598	
==>f => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16492	16598	
==>f => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16492	16598	
==>f => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3326	3437	
==>s}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3326	3437	
==>s}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3326	3437	
==>s}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : unde <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11408	11502	
==>ue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11408	11502	
==>ue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1174	1309	
==>_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:<+ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	118	231	
==>tr2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAUL <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	118	231	
==>tr2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAUL <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1039	1135	
==>sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional progra <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1039	1135	
==>sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional progra <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5750	5911	
==>op = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4250	4411	
==>op = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	247	336	
==>est copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bui <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	247	336	
==>est copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bui <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	247	336	
==>est copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bui <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19530	19623	
==>variables rather than user-defined
relation variables.  In SQL terms, you create or alter tabl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19530	19623	
==>variables rather than user-defined
relation variables.  In SQL terms, you create or alter tabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3350	3440	
==>'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3350	3440	
==>'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3350	3440	
==>'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6657	6756	
==>in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6657	6756	
==>in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$f <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32743	32837	
==>s of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37293	37387	
==>s of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36610	36704	
==>s of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7118	7262	
==>ount = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7118	7262	
==>ount = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7118	7262	
==>ount = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18363	18464	
==>btained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>:

     < <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18363	18464	
==>btained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>:

     < <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11938	12037	
==>->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11938	12037	
==>->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11938	12037	
==>->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37649	37745	
==>!, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37649	37745	
==>!, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	831	939	
==>_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	831	939	
==>_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	831	939	
==>_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1336	1434	
==>ncludes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@ite <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1336	1434	
==>ncludes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7278	7409	
==>IL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7278	7409	
==>IL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7278	7409	
==>IL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . " <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1224	1319	
==>aptures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1224	1319	
==>aptures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21792	22023	
==>))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41796	42027	
==>))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44699	44930	
==>))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1413	1559	
==>'&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$n'),
						App(
							Sym('&control_structure:<i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3575	3710	
==>ods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaque_in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12985	13118	
==>y $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12985	13118	
==>y $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12985	13118	
==>y $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spli <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1870	2003	
==>y $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spli <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1456	1560	
==>($^O =~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not supported on your <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14498	14611	
==>s,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connecti <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14498	14611	
==>s,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connecti <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7279	7389	
==>S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler('\z' => sub {
    my ($S, $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13539	13644	
==>s,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connecti <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13539	13644	
==>s,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connecti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19180	19325	
==>> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19180	19325	
==>> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19180	19325	
==>> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ($ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12925	13017	
==>ON

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-num <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12925	13017	
==>ON

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-num <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14150	14251	
==>ke things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests of Set.

=cut <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14150	14251	
==>ke things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests of Set.

=cut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1303	1396	
==>= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1303	1396	
==>= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1303	1396	
==>= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5072	5170	
==>x:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4199	4297	
==>x:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5072	5170	
==>x:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4199	4297	
==>x:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23114	23211	
==>POS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 R <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13149	13272	
==>_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13149	13272	
==>_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40959	41061	
==>his ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extens <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40959	41061	
==>his ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extens <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40959	41061	
==>his ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extens <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1608	1703	
==>ry there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 ve <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1608	1703	
==>ry there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 ve <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5348	5532	
==>ength;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5348	5532	
==>ength;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	32	127	
==>se strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	32	127	
==>se strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	32	127	
==>se strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3986	4094	
==>l;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3986	4094	
==>l;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3986	4094	
==>l;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "funct <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1095	1199	
==>s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1095	1199	
==>s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34094	34207	
==>->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34094	34207	
==>->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34094	34207	
==>->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub f <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11148	11257	
==>)
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF! <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11148	11257	
==>)
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	443	606	
==>],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	443	606	
==>],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	443	606	
==>],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10689	10805	
==>\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10847	10963	
==>\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	890	992	
==>p { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	890	992	
==>p { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new(" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	890	992	
==>p { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new(" <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12414	12508	
==>e, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will e <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12472	12566	
==>e, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3501	3611	
==>use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3718	3828	
==>use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	347	443	
==>Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defau <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	347	443	
==>Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defau <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	347	443	
==>Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defau <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1611	1705	
==>w (*native*) returns bit>

=item B<to_native () returns *native*>

=item B<to_bit () returns bi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3479	3567	
==>----------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3502	3590	
==>-----------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5381	5469	
==>----------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5404	5492	
==>-----------------
## BOOTSTRAPPING COMPLETE
## ------------------------------------------ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	522	670	
==>print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	515	663	
==>print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rul <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15857	15947	
==>ode constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15857	15947	
==>ode constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%a <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9248	9337	
==>ODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$value->[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5234	5331	
==>ove).  This lets you to
do anything you like with each object, but is (at least nominally)
intende <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5234	5331	
==>ove).  This lets you to
do anything you like with each object, but is (at least nominally)
intende <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5234	5331	
==>ove).  This lets you to
do anything you like with each object, but is (at least nominally)
intende <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	556	659	
==>ce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	556	659	
==>ce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	556	659	
==>ce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_me <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3698	3818	
==>th;
    carp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), r <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2687	2784	
==>t data streams are enciphered with the same key, the encryption 
can be removed by XORing them tog <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2687	2784	
==>t data streams are enciphered with the same key, the encryption 
can be removed by XORing them tog <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	291	380	
==>re Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	291	380	
==>re Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	291	380	
==>re Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2169	2289	
==>y )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message i <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	170	278	
==>y )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message i <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	170	278	
==>y )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message i <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1230	1327	
==>{
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1230	1327	
==>{
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2857	3024	
==>abel}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{la <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2857	3024	
==>abel}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{la <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7521	7610	
==>normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7521	7610	
==>normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18732	18936	
==>tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18732	18936	
==>tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18732	18936	
==>tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8511	8685	
==>:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation::Example <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5650	5767	
==>lf->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11041	11173	
==>d);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11041	11173	
==>d);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11041	11173	
==>d);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18666	18762	
==>ation or package, with one or more
text strings to show human users.  This association would norm <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18666	18762	
==>ation or package, with one or more
text strings to show human users.  This association would norm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1200	1301	
==>G{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1200	1301	
==>G{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1200	1301	
==>G{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21499	21593	
==>"newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21499	21593	
==>"newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#cha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7122	7255	
==>ternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12130	12263	
==>ternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7122	7255	
==>ternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12124	12257	
==>ternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10817	10927	
==>ge => $new_alt );
    }

    ### remove this package from the available list
    $self->remove_available( packa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24438	24589	
==>apture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25701	25852	
==>apture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24717	24868	
==>apture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25980	26131	
==>apture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capt <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11215	11313	
==>ed by calling the qr() method of each node in the tree,
which may be different from the visual() me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	509	766	
==>eturns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	509	766	
==>eturns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11397	11553	
==>= ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11397	11553	
==>= ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) i <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	1205	1301	
==>fy(@developers);
# @devs_till_day should have the same length as @commits_till_day --
# fill if n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15677	15838	
==>l} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15677	15838	
==>l} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15677	15838	
==>l} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norma <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14806	14899	
==>s 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - Thi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14806	14899	
==>s 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5073	5267	
==>$body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5073	5267	
==>$body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5073	5267	
==>$body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17703	17797	
==>ormation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17703	17797	
==>ormation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	738	855	
==>nce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	943	1060	
==>nce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	999	1116	
==>nce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instan <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1846	1951	
==>s Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &:: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1846	1951	
==>s Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24185	24282	
==>t received.  This is typically used by automatons
  (clients with either an AI or other interactiv <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22958	23055	
==>t received.  This is typically used by automatons
  (clients with either an AI or other interactiv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24185	24282	
==>t received.  This is typically used by automatons
  (clients with either an AI or other interactiv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22958	23055	
==>t received.  This is typically used by automatons
  (clients with either an AI or other interactiv <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6482	6575	
==>IPTION

This module parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6165	6297	
==>t-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5968	6092	
==>t-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1906	2003	
==>nge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1906	2003	
==>nge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1906	2003	
==>nge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inli <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5420	5656	
==>("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$met <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7182	7418	
==>("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5784	5872	
==>eys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5784	5872	
==>eys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5784	5872	
==>eys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} } <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6814	6961	
==>= (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl', <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6871	7018	
==>= (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl', <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5654	5793	
==>ble to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$s <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6118	6257	
==>ble to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	157	272	
==>.61';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19224	19381	
==>her, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19224	19381	
==>her, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19224	19381	
==>her, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12768	12862	
==>inite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty se <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12768	12862	
==>inite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21606	21713	
==>n $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18027	18134	
==>n $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1031	1122	
==>:Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1031	1122	
==>:Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1031	1122	
==>:Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::J <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19549	19643	
==>se.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authenti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19549	19643	
==>se.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authenti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2277	2370	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2277	2370	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2277	2370	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3046	3137	
==>utput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|out <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1196	1287	
==>pile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1196	1287	
==>pile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3046	3137	
==>utput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|out <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3046	3137	
==>utput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|out <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13538	13743	
==>::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13538	13743	
==>::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13538	13743	
==>::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_disp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4773	4873	
==>al machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4773	4873	
==>al machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	275	395	
==>my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	275	395	
==>my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	275	395	
==>my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8850	8948	
==>t with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

Th <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8850	8948	
==>t with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

Th <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	310	436	
==>ort {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	310	436	
==>ort {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4019	4125	
==>"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4019	4125	
==>"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4019	4125	
==>"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1109	1283	
==>ams.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1109	1283	
==>ams.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8422	8531	
==>pe," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8422	8531	
==>pe," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8422	8531	
==>pe," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9809	9915	
==>and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_sati <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11286	11392	
==>and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_sati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	865	969	
==>ould not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	865	969	
==>ould not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$s <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1294	1393	
==>6/haskell.
  - perhaps serve as a reference implementation for a while.  By
  sacrificing ease of in <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1373	1475	
==>st( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1373	1475	
==>st( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1453	1555	
==>st( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13706	13805	
==>ic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13706	13805	
==>ic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconne <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5965	6068	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5095	5198	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5965	6068	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5095	5198	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one. <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4169	4270	
==>le by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file referenced by -- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3371	3512	
==>ches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3264	3402	
==>ches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	635	743	
==>art() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	635	743	
==>art() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	635	743	
==>art() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1897	1991	
==>/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1897	1991	
==>/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numbe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1897	1991	
==>/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numbe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8553	8646	
==>cation.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurity <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8553	8646	
==>cation.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurity <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9230	9337	
==>=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sig <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9230	9337	
==>=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sig <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9230	9337	
==>=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sig <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3860	3956	
==>s a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAM <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3860	3956	
==>s a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1364	1457	
==>r @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1364	1457	
==>r @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1364	1457	
==>r @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possib <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5171	5260	
==>since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5171	5260	
==>since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ($ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11110	11260	
==>tity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, h <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11110	11260	
==>tity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1791	1892	
==>b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1791	1892	
==>b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1791	1892	
==>b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4118	4323	
==>header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4118	4323	
==>header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6150	6254	
==>ated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_met <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6150	6254	
==>ated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_met <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6150	6254	
==>ated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_met <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	668	767	
==>e code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	668	767	
==>e code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30917	31012	
==>ty
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35467	35562	
==>ty
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34658	34753	
==>ty
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2323	2479	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27477	27633	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2516	2672	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27756	27912	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2679	2784	
==>ad script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You ma <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7249	7395	
==>x' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7249	7395	
==>x' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	779	877	
==>rl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	779	877	
==>rl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	779	877	
==>rl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(k <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21354	21464	
==>urn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-beh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17775	17885	
==>urn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-beh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5184	5292	
==>ars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5184	5292	
==>ars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5184	5292	
==>ars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1616	1773	
==>{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1616	1773	
==>{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1616	1773	
==>{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3969	4083	
==>est<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3969	4083	
==>est<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35919	36073	
==>l );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offse <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35919	36073	
==>l );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offse <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35919	36073	
==>l );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offse <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	64	172	
==>r Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	64	172	
==>r Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	531	700	
==>$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	531	700	
==>$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4816	4945	
==>en       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't insta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4816	4945	
==>en       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't insta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4816	4945	
==>en       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't insta <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6594	6699	
==>hannels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6594	6699	
==>hannels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.d <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6266	6373	
==>_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{in <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26215	26312	
==>hich has a subset of the original's attributes; that subset is the same as
those attribute names i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30767	30864	
==>hich has a subset of the original's attributes; that subset is the same as
those attribute names i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29760	29857	
==>hich has a subset of the original's attributes; that subset is the same as
those attribute names i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3462	3554	
==>eturn $S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	318	416	
==>w( @rule_terms );

# ----- the following were included only for performance reasons,
# because they <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	329	427	
==>w( @rule_terms );

# ----- the following were included only for performance reasons,
# because they <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7091	7181	
==>s::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7091	7181	
==>s::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7091	7181	
==>s::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2680	2858	
==>s => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2680	2858	
==>s => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2680	2858	
==>s => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3838	3946	
==>g $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depen <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3896	4004	
==>g $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depen <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4988	5102	
==>tem( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$scrip <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4204	4314	
==>tem( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$scrip <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20265	20366	
==>y basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24817	24918	
==>y basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23378	23479	
==>y basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	185	312	
==>r ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	185	312	
==>r ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	81	176	
==>experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	81	176	
==>experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	81	176	
==>experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_m <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	355	574	
==>ype {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	355	574	
==>ype {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2644	2747	
==>ned, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2644	2747	
==>ned, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2644	2747	
==>ned, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cel <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18428	18535	
==>] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14849	14956	
==>] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5400	5497	
==>x)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5400	5497	
==>x)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5400	5497	
==>x)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14153	14288	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14153	14288	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14153	14288	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	146	242	
==>ity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special mean <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	146	242	
==>ity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special mean <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9332	9427	
==>UB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9332	9427	
==>UB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9332	9427	
==>UB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($x <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36664	36758	
==>te corresponding to the Message could be
found using the Translator object's Set and Member pro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36664	36758	
==>te corresponding to the Message could be
found using the Translator object's Set and Member pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5818	6032	
==>key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5818	6032	
==>key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5818	6032	
==>key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5992	6096	
==>%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'i <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5992	6096	
==>%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2404	2558	
==>,
                from  => \$_[3]{match}[0]->from,
                to    => \$_[3]{match}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3] <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1593	1689	
==>e}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
I <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1593	1689	
==>e}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
I <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	914	1010	
==>nts; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	115	208	
==>nts; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	115	208	
==>nts; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15180	15324	
==>$array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15180	15324	
==>$array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15180	15324	
==>$array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1372	1511	
==>r($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $ <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1372	1511	
==>r($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10099	10215	
==>) if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10099	10215	
==>) if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2736	2837	
==>in_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2736	2837	
==>in_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2736	2837	
==>in_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1478	1650	
==>'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1478	1650	
==>'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1478	1650	
==>'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1249	1338	
==>r::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the mean <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1249	1338	
==>r::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the mean <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8760	8867	
==>ts
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8760	8867	
==>ts
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12993	13098	
==>all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16470	16575	
==>all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15832	15937	
==>all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is c <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2065	2219	
==>eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shi <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2065	2219	
==>eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	53	149	
==>:MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	53	149	
==>:MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	53	149	
==>:MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10065	10236	
==>me' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10065	10236	
==>me' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5605	5725	
==>it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5605	5725	
==>it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5605	5725	
==>it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1523	1667	
==>";\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7923	8038	
==>$code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7923	8038	
==>$code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7923	8038	
==>$code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1653	1778	
==>o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1653	1778	
==>o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1653	1778	
==>o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	241	360	
==>h_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter fun <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	241	360	
==>h_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter fun <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13866	13969	
==>original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13866	13969	
==>original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1921	2019	
==>w(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1921	2019	
==>w(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1921	2019	
==>w(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4256	4396	
==>',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'a <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	15220	15331	
==>y(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from the function
	# since th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	572	671	
==>// I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 4 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	572	671	
==>// I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 4 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	572	671	
==>// I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 4 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7396	7506	
==>($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7396	7506	
==>($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7396	7506	
==>($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $x <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19061	19157	
==>so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Li <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19061	19157	
==>so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9535	9661	
==>= shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9535	9661	
==>= shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9535	9661	
==>= shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::str <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1108	1212	
==>ub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1108	1212	
==>ub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2924	3040	
==>\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2924	3040	
==>\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2924	3040	
==>\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	966	1066	
==>ep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_ra <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	966	1066	
==>ep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_ra <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3672	3796	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3672	3796	
==>ur args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $p <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1473	1586	
==>=> 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1473	1586	
==>=> 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò' <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	6908	7002	
==>ed (as string).

C<$failed> should be empty if everything passed.

B<NOTE> Currently this funct <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4263	4366	
==>t $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3390	3493	
==>t $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4263	4366	
==>t $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3390	3493	
==>t $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	145	239	
==>mplemented in p6 (S29 already defines some p6 implementations).
# To contribute, just scroll do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	74	172	
==>Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	74	172	
==>Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	74	172	
==>Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

= <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	557	649	
==>case methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Re <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	557	649	
==>case methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Re <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	166	318	
==>r;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %sp <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	166	318	
==>r;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	609	708	
==>te for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	609	708	
==>te for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	609	708	
==>te for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3404	3503	
==>::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3404	3503	
==>::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	522	629	
==>umber is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1380	1487	
==>umber is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3554	3650	
==>item B<new>

This is a Factory method used to create a specific class instances which
perform the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3554	3650	
==>item B<new>

This is a Factory method used to create a specific class instances which
perform the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5751	5847	
==>item B<new>

This is a Factory method used to create a specific class instances which
perform the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8269	8417	
==>1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8269	8417	
==>1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8269	8417	
==>1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5742	5870	
==>atch2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitial <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5742	5870	
==>atch2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitial <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2346	2462	
==>sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2346	2462	
==>sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2693	2809	
==>sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2738	2839	
==>$S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3311	3412	
==>$S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14983	15156	
==>nt( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15262	15435	
==>nt( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4126	4243	
==>,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PEx <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4126	4243	
==>,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PEx <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	976	1093	
==>,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PEx <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	537	680	
==>rs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	742	885	
==>rs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	798	941	
==>rs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%att <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13426	13539	
==>me");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13426	13539	
==>me");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4255	4368	
==>-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4255	4368	
==>-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4255	4368	
==>-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('o <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10318	10406	
==>\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef"," <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11053	11141	
==>\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef"," <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1522	1627	
==>del_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1522	1627	
==>del_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1522	1627	
==>del_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precom <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	942	1033	
==>e::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	942	1033	
==>e::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8282	8376	
==>urns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7412	7506	
==>urns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8282	8376	
==>urns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7412	7506	
==>urns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7509	7645	
==>odes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7509	7645	
==>odes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7509	7645	
==>odes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        p <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	456	555	
==>nless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ER <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	456	555	
==>nless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ER <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5397	5519	
==>$X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls emit() u <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5211	5309	
==>$b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5211	5309	
==>$b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks o <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	532	625	
==>onforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simpl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	532	625	
==>onforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simpl <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5009	5149	
==>lf->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4868	5008	
==>lf->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1027	1140	
==>assdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1027	1140	
==>assdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1027	1140	
==>assdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4757	4889	
==>ush @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13182	13314	
==>ush @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15793	15925	
==>ush @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17281	17413	
==>ush @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21964	22096	
==>ush @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    } <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2784	2930	
==>nt $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    wh <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3404	3550	
==>nt $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    wh <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2784	2930	
==>nt $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    wh <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3404	3550	
==>nt $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    wh <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2202	2300	
==>Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/) }

	su <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4704	4844	
==>grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4704	4844	
==>grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14135	14248	
==>RGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14135	14248	
==>RGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14135	14248	
==>RGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33876	33971	
==>ch says what
language they prefer to communicate in, and what their backup choices are,
in order <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28810	28905	
==>ribute names, or duplicate any other value set members.  This
method supports having the new att <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33876	33971	
==>ch says what
language they prefer to communicate in, and what their backup choices are,
in order <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33362	33457	
==>ribute names, or duplicate any other value set members.  This
method supports having the new att <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32499	32594	
==>ribute names, or duplicate any other value set members.  This
method supports having the new att <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1754	1877	
==>t: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; ca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1754	1877	
==>t: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; ca <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1754	1877	
==>t: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; ca <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3	118	
==>e v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3	118	
==>e v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4945	5068	
==>abel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4945	5068	
==>abel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4945	5068	
==>abel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28018	28120	
==>ty) and 
     ($self: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (symb <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7722	7813	
==>d=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38213	38331	
==>}
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, cou <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38213	38331	
==>}
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, cou <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38213	38331	
==>}
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, cou <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	261	365	
==>m_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INST <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	261	365	
==>m_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10596	10706	
==>1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10596	10706	
==>1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10596	10706	
==>1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17211	17309	
==>empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17211	17309	
==>empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19323	19443	
==>OS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15744	15864	
==>OS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36528	36624	
==>equential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41077	41173	
==>equential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40691	40787	
==>equential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relat <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2593	2690	
==>ional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2593	2690	
==>ional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3297	3382	
==>:opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3297	3382	
==>:opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3297	3382	
==>:opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6920	7037	
==>arn("Warning: $e\n")};
    for %mods.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers <==
5	/Users/nnunley/pugs/util/build_pugs.pl	478	573	
==>s GHC to build a pugs exectuable, optionally inlining
precompiled modules in a second pass.

Pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1799	1891	
==>addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1799	1891	
==>addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1799	1891	
==>addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1629	1738	
==>{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expande <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1629	1738	
==>{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expande <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21233	21331	
==>' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and eac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25785	25883	
==>' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and eac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24409	24507	
==>' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and eac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5624	5727	
==>a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5624	5727	
==>a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6214	6317	
==>a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3268	3363	
==>User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the H <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3268	3363	
==>User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	29	142	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	29	142	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	29	142	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  ret <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18724	18819	
==>.  While simultaneously
trying to avoid triggering core behavior which we are not prepared to
su <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3014	3109	
==>.  While simultaneously
trying to avoid triggering core behavior which we are not prepared to
su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13663	13797	
==>args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that ou <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13663	13797	
==>args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2049	2150	
==>o PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2049	2150	
==>o PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2049	2150	
==>o PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1956	2123	
==>port for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1956	2123	
==>port for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1956	2123	
==>port for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	216	308	
==>this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	216	308	
==>this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4807	4972	
==>0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4657	4818	
==>0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5364	5481	
==>ake_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mus <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5364	5481	
==>ake_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mus <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5364	5481	
==>ake_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6506	6632	
==>port_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6506	6632	
==>port_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6506	6632	
==>port_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7909	7998	
==>e $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7909	7998	
==>e $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<f <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3142	3252	
==>$buffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3142	3252	
==>$buffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2461	2561	
==>le'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2461	2561	
==>le'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2461	2561	
==>le'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main packa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2313	2437	
==>> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2313	2437	
==>> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2313	2437	
==>> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23328	23427	
==>ty to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Role <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27880	27979	
==>ty to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Role <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	453	555	
==>Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	453	555	
==>Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	453	555	
==>Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8110	8294	
==>b _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12100	12243	
==>b _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12100	12243	
==>b _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15638	15758	
==>l need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15638	15758	
==>l need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7371	7536	
==>ue::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7371	7536	
==>ue::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7371	7536	
==>ue::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2507	2646	
==>rl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id shoul <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2507	2646	
==>rl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id shoul <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7855	7997	
==>ut);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    } <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7855	7997	
==>ut);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3900	4014	
==>$label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3900	4014	
==>$label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3900	4014	
==>$label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6499	6599	
==>ess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docu <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6499	6599	
==>ess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docu <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3097	3195	
==>ul?
# =head2 @bools = $repo->add_packages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Package insta <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21207	21304	
==>oses of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25759	25856	
==>oses of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3720	3840	
==>0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3720	3840	
==>0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3720	3840	
==>0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = sh <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22963	23061	
==>over similar packages is that
text is always looked up by a key which is not meant to be meaningful <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22963	23061	
==>over similar packages is that
text is always looked up by a key which is not meant to be meaningful <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6280	6484	
==>}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6280	6484	
==>}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6280	6484	
==>}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15890	15984	
==>st::More

Information about the TAP protocol can be found in the Test::Harness
distribution.

= <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15948	16042	
==>st::More

Information about the TAP protocol can be found in the Test::Harness
distribution.

= <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13876	13977	
==>sub { system "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating directory \"$ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10655	10756	
==>ub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10655	10756	
==>ub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2321	2421	
==>de = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2321	2421	
==>de = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2321	2421	
==>de = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2529	2652	
==>.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2529	2652	
==>.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2529	2652	
==>.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	307	403	
==>rguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	307	403	
==>rguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5565	5664	
==><\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5565	5664	
==><\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5565	5664	
==><\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26883	26978	
==>ibute if the corresponding argument is
provided (it defaults to empty if the argument is not pro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26883	26978	
==>ibute if the corresponding argument is
provided (it defaults to empty if the argument is not pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20669	20774	
==>ttr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20669	20774	
==>ttr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20669	20774	
==>ttr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5725	5931	
==>g =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5725	5931	
==>g =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5725	5931	
==>g =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13213	13327	
==>person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13213	13327	
==>person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8556	8673	
==>,\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8552	8669	
==>,\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2876	2974	
==>$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2876	2974	
==>$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2876	2974	
==>$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12181	12314	
==>= ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12181	12314	
==>= ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12181	12314	
==>= ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	124	227	
==>:CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Boo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	124	227	
==>:CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Boo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12836	12947	
==>ts {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12836	12947	
==>ts {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12836	12947	
==>ts {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12465	12568	
==>erl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,} <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12465	12568	
==>erl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12653	12831	
==>urce =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_he <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12653	12831	
==>urce =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2548	2645	
==>Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2548	2645	
==>Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2548	2645	
==>Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	598	727	
==>name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	614	743	
==>name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	590	719	
==>name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4402	4521	
==>ooks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4402	4521	
==>ooks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5721	5832	
==>e-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5709	5820	
==>e-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16537	16639	
==>ethod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16537	16639	
==>ethod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16537	16639	
==>ethod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1586	1725	
==>p = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1586	1725	
==>p = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	252	340	
==>opied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	252	340	
==>opied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	252	340	
==>opied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9402	9522	
==>opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "syst <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10131	10226	
==>t(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8071	8166	
==>t(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10131	10226	
==>t(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8071	8166	
==>t(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14038	14156	
==>example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10211	10329	
==>example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11047	11165	
==>example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $ca <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7005	7122	
==>0),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7005	7122	
==>0),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250) <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6015	6134	
==>x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6015	6134	
==>x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3089	3191	
==>_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3089	3191	
==>_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3089	3191	
==>_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5140	5262	
==>bs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } els <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5198	5320	
==>bs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6154	6272	
==>MPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6154	6272	
==>MPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6154	6272	
==>MPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasse <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18143	18449	
==>$r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21620	21926	
==>$r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21207	21513	
==>$r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18124	18219	
==>parsing or ambiguity involved.
By contrast, if a program simply returned words for the user, suc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18124	18219	
==>parsing or ambiguity involved.
By contrast, if a program simply returned words for the user, suc <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6712	6812	
==>$prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$Data: <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4783	4880	
==>.9 The Completion Type
class JSX::InternalValue::Completion_type { # XXX - should be enum
   has $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29462	29556	
==>e argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34014	34108	
==>e argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33178	33272	
==>e argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14222	14394	
==>>{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14222	14394	
==>>{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14222	14394	
==>>{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return sh <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19829	19925	
==>nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19829	19925	
==>nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3621	3728	
==>->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3621	3728	
==>->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4211	4318	
==>->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$p <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3497	3592	
==>ied.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3497	3592	
==>ied.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6212	6323	
==>ete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(norm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6212	6323	
==>ete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(norm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1552	1658	
==>nwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1552	1658	
==>nwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1552	1658	
==>nwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8701	8898	
==>::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8701	8898	
==>::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8701	8898	
==>::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2192	2287	
==>ional interface

The Cipher API's functional interface is perhaps the easiest one that allows 
f <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2192	2287	
==>ional interface

The Cipher API's functional interface is perhaps the easiest one that allows 
f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7017	7155	
==>s - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7017	7155	
==>s - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clone <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7017	7155	
==>s - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clone <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	370	490	
==>t) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	370	490	
==>t) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3208	3330	
==>nt($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_version ], @{ $value <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	16245	16360	
==>xlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22850	22944	
==>UB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22850	22944	
==>UB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22850	22944	
==>UB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	202	356	
==>trs => [ '$:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            's <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	78	182	
==>les in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to bu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	78	182	
==>les in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to bu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	78	182	
==>les in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to bu <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	78	182	
==>les in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	601	704	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	601	704	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	601	704	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1217	1308	
==>s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Sim <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1217	1308	
==>s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Sim <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22695	22841	
==>,
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = sh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23197	23343	
==>,
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4961	5087	
==>er



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4790	4911	
==>er

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [], <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3120	3235	
==>sult;
}

sub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !define <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7192	7319	
==>) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->en <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37199	37294	
==>module_name! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37438	37533	
==>module_name! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37199	37294	
==>module_name! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37438	37533	
==>module_name! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4837	4962	
==>arp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13262	13387	
==>arp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15873	15998	
==>arp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17361	17486	
==>arp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22044	22169	
==>arp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5380	5502	
==>data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11035	11157	
==>data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	40	154	
==>rict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	40	154	
==>rict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	40	154	
==>rict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10031	10145	
==>s;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10031	10145	
==>s;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10031	10145	
==>s;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------------- <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	993	1091	
==>ut =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    retu <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	993	1091	
==>ut =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7420	7526	
==>y $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7420	7526	
==>y $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7420	7526	
==>y $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1022	1227	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1022	1227	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	426	526	
==>e
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	426	526	
==>e
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	426	526	
==>e
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16066	16217	
==>($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16066	16217	
==>($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16066	16217	
==>($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an un <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8092	8189	
==>t return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depen <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8092	8189	
==>t return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depen <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3092	3216	
==>trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_p <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3092	3216	
==>trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23635	23735	
==>mplementing class, it can default to True or
False, but once it has a value of False, it can not be f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28187	28287	
==>mplementing class, it can default to True or
False, but once it has a value of False, it can not be f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27000	27100	
==>mplementing class, it can default to True or
False, but once it has a value of False, it can not be f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2557	2717	
==>eop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2568	2728	
==>eop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2452	2551	
==>p->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2452	2551	
==>p->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2452	2551	
==>p->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fai <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1116	1258	
==>> $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1116	1258	
==>> $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1849	1956	
==>IL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_che <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1849	1956	
==>IL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_che <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1849	1956	
==>IL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_che <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13547	13671	
==>oop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13547	13671	
==>oop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1006	1112	
==>ument object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1006	1112	
==>ument object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set o <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20285	20377	
==>/* Unwarranted chumminess with compiler. */

regcomp.h: This is essentially a linear encoding <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3472	3592	
==>) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1784	1902	
==>) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2321	2439	
==>) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2883	3001	
==>) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2456	2568	
==>{prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shif <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5903	6010	
==>me not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5891	5998	
==>me not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2119	2213	
==>_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2119	2213	
==>_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2119	2213	
==>_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6504	6674	
==>$end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6504	6674	
==>$end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return I <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6504	6674	
==>$end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return I <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18410	18515	
==>login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18410	18515	
==>login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3462	3687	
==>lasses             
            elsif (exists $__classes__{$t}) {               
                my $message = pop @t;
                @t = ($t . $message);                
            }
            
            # misc keyword <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2420	2515	
==>Int { $.year }
method quarter returns Int { int(($.month+2)/3) }
method month_0 returns Int { $. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8347	8507	
==>};
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8347	8507	
==>};
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2342	2458	
==>l_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2342	2458	
==>l_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2342	2458	
==>l_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2868	3029	
==>density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2868	3029	
==>density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if d <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21301	21396	
==>ey is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25853	25948	
==>ey is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24477	24572	
==>ey is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rela <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21740	21841	
==>mily' in objects.  I was getting
confused by it, so I figured it was a sign that I'd chosen an awful n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32566	32658	
==>or configuration, its
main purpose is to convert Message objects on demand into user-readable <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32566	32658	
==>or configuration, its
main purpose is to convert Message objects on demand into user-readable <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23417	23506	
==>therwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
exte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23417	23506	
==>therwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
exte <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17769	17934	
==>alue',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attrib <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17769	17934	
==>alue',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1209	1304	
==>t, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginCo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1209	1304	
==>t, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginCo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1209	1304	
==>t, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginCo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3702	3808	
==>ffset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test spl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3702	3808	
==>ffset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test spl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3702	3808	
==>ffset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test spl <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	663	758	
==>f these
methods

=item *

unbound public attributes, which are actually just accessor methods
fo <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6188	6274	
==>(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+(\w+)\s+{([^}]* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12248	12366	
==>e {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12248	12366	
==>e {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12248	12366	
==>e {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxe <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4502	4616	
==>rgs{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path} <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2243	2356	
==>rgs{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2721	2895	
==>eturn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2721	2895	
==>eturn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4086	4204	
==>nstance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4086	4204	
==>nstance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4086	4204	
==>nstance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3602	3703	
==>->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3602	3703	
==>->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3602	3703	
==>->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2647	2733	
==>t->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6() <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2647	2733	
==>t->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6() <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	422	534	
==>>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "ch <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	422	534	
==>>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	813	918	
==>pen my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	813	918	
==>pen my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	813	918	
==>pen my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Te <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1719	1837	
==>$self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1719	1837	
==>$self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12832	12941	
==>exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12832	12941	
==>exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12832	12941	
==>exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8240	8365	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8240	8365	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8240	8365	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) }, <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2024	2135	
==>/lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory fro <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2024	2135	
==>/lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory fro <==
5	/Users/nnunley/pugs/util/addauthors.pl	1285	1385	
==>author->{commitcount}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5990	6085	
==>ram}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5990	6085	
==>ram}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5990	6085	
==>ram}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10449	10543	
==>rns list
    ((($self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	968	1073	
==>.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	968	1073	
==>.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	968	1073	
==>.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it i <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2466	2568	
==>f_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2466	2568	
==>f_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2313	2423	
==>$dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2313	2423	
==>$dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1568	1659	
==>) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1568	1659	
==>) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1568	1659	
==>) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14238	14456	
==>=> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14238	14456	
==>=> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14238	14456	
==>=> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1462	1573	
==>>{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	17650	17747	
==>eader_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4479	4584	
==>^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*E <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4479	4584	
==>^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4625	4727	
==>args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4625	4727	
==>args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4625	4727	
==>args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shi <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1810	1910	
==>open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
.
        forea <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1326	1446	
==>e we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traf <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1326	1446	
==>e we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traf <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	197	311	
==>),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	197	311	
==>),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	197	311	
==>),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	82	213	
==>e::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	82	213	
==>e::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir ret <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	664	781	
==>! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	664	781	
==>! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method c <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8283	8396	
==>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this.
    return $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	401	509	
==>_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	401	509	
==>_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	401	509	
==>_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefi <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13795	13893	
==>on to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13853	13951	
==>on to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13130	13277	
==>_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13130	13277	
==>_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13130	13277	
==>_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13065	13161	
==>all the header fields used to describe the content of
a message.  All header field names prefixed <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13065	13161	
==>all the header fields used to describe the content of
a message.  All header field names prefixed <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5710	5879	
==>atch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5710	5879	
==>atch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5710	5879	
==>atch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13319	13424	
==>~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13319	13424	
==>~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2052	2174	
==>$expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2052	2174	
==>$expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2132	2254	
==>$expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2601	2704	
==>ified is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for si <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2505	2604	
==>ified is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for si <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6260	6373	
==>) loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6260	6373	
==>) loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6260	6373	
==>) loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instanti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1623	1716	
==>006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistr <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1623	1716	
==>006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2769	2879	
==>bug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Pe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2769	2879	
==>bug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Pe <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	16111	16215	
==>ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	595	690	
==>hematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @ <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	595	690	
==>hematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13158	13313	
==>able'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21208	21363	
==>able'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13437	13592	
==>able'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21487	21642	
==>able'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22666	22764	
==>to say this module doesn't have bugs.  I don't know of any in
this current version, because I've tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6328	6428	
==>al(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6328	6428	
==>al(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6328	6428	
==>al(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18748	18844	
==>he
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This mo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18748	18844	
==>he
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This mo <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4086	4204	
==>n $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4086	4204	
==>n $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	120	229	
==>tion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	120	229	
==>tion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	120	229	
==>tion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11496	11609	
==>return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11496	11609	
==>return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11496	11609	
==>return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25104	25202	
==>xists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29656	29754	
==>xists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This meth <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	366	501	
==>rst_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~ <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	366	501	
==>rst_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6064	6165	
==>LF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6064	6165	
==>LF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6064	6165	
==>LF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7158	7303	
==>before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7158	7303	
==>before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7158	7303	
==>before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->el <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	248	373	
==>as $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Quer <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	248	373	
==>as $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Quer <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	688	794	
==>>.

This means;

=over

=item *

You can construct new classes which are of its type.

=item *

It serves a <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17204	17301	
==>rcase. This is not a Unicode "titlecase" operation, but a
full "uppercase".


=item ucfirst

 mult <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5289	5383	
==>s passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5289	5383	
==>s passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6813	6907	
==>s passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2693	2798	
==>diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Bui <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2693	2798	
==>diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Bui <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2773	2878	
==>diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Bui <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	640	736	
==>the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte blocks <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	640	736	
==>the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte blocks <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15789	15890	
==>l this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1800	1901	
==>2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15789	15890	
==>l this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1800	1901	
==>2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1800	1901	
==>2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  t <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	480	653	
==>rray::shift @CALLER::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$length <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8005	8098	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7135	7228	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8005	8098	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7135	7228	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4961	5069	
==>thod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does P <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2762	2870	
==>::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4961	5069	
==>thod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does P <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2762	2870	
==>::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4286	4394	
==>::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	371	621	
==>et)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	371	621	
==>et)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2510	2644	
==>w PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2510	2644	
==>w PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2510	2644	
==>w PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(key <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14695	14791	
==>olded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14695	14791	
==>olded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2534	2625	
==>l) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2534	2625	
==>l) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2534	2625	
==>l) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stub <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	760	874	
==><= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	760	874	
==><= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	781	878	
==>o .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	781	878	
==>o .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	781	878	
==>o .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8068	8272	
==>) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8068	8272	
==>) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8068	8272	
==>) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1001	1113	
==>ugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<E <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1001	1113	
==>ugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10931	11041	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10931	11041	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10931	11041	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $va <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8521	8616	
==>using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take resp <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8521	8616	
==>using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take resp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15171	15270	
==>r $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($comm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15171	15270	
==>r $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($comm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4174	4271	
==>ub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4174	4271	
==>ub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4174	4271	
==>ub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2157	2264	
==>return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exist <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2135	2242	
==>return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1403	1497	
==>dd_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1403	1497	
==>dd_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1403	1497	
==>dd_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12282	12440	
==>$_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12282	12440	
==>$_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12282	12440	
==>$_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher inst <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3608	3696	
==>arse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3608	3696	
==>arse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4310	4422	
==>onical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4310	4422	
==>onical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4310	4422	
==>onical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4023	4129	
==>n $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $sp <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4023	4129	
==>n $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6207	6342	
==>.
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6207	6342	
==>.
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6207	6342	
==>.
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3542	3645	
==>has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expres <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3542	3645	
==>has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expres <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	293	398	
==>s generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <AR <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	293	398	
==>s generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1353	1455	
==>IL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1353	1455	
==>IL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1353	1455	
==>IL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2036	2142	
==>be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1718	1820	
==>be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2398	2531	
==>reedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8957	9090	
==>reedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2398	2531	
==>reedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8953	9086	
==>reedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5358	5455	
==>ist>

The closure here will be passed the current value itself, which means 
you it is essentially <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	902	1077	
==>node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.deb <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	902	1077	
==>node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.deb <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13675	13766	
==>::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13675	13766	
==>::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13675	13766	
==>::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1229	1333	
==>t it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for th <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1229	1333	
==>t it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8222	8328	
==>hift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8222	8328	
==>hift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8222	8328	
==>hift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7459	7563	
==>anyof_char_comp => chr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", map c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28918	29014	
==>nsume an ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3236	3463	
==>::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug(" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3236	3463	
==>::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6366	6463	
==>tors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6366	6463	
==>tors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6366	6463	
==>tors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3984	4092	
==>val;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3984	4092	
==>val;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3984	4092	
==>val;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2327	2460	
==>comp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2327	2460	
==>comp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2327	2460	
==>comp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of ex <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12231	12325	
==>&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<No <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12231	12325	
==>&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<No <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2187	2324	
==>my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2187	2324	
==>my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2187	2324	
==>my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	452	549	
==>ION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	452	549	
==>ION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11798	11955	
==>che{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11798	11955	
==>che{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLAS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11798	11955	
==>che{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLAS <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4550	4652	
==>r the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4550	4652	
==>r the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5993	6120	
==>n";
        return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($co <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19680	19774	
==>Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8350	8441	
==>==========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->cat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8350	8441	
==>==========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->cat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8350	8441	
==>==========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->cat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1826	1979	
==>hostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A p <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1826	1979	
==>hostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	707	806	
==>q "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	707	806	
==>q "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	707	806	
==>q "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9169	9346	
==>clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9169	9346	
==>clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9169	9346	
==>clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->stor <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2763	2871	
==>PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2763	2871	
==>PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7047	7359	
==>eld;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop / <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7047	7359	
==>eld;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	86	172	
==>-------------------------------------------------------------------
## now for some boo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	86	172	
==>-------------------------------------------------------------------
## now for some boo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	86	172	
==>-------------------------------------------------------------------
## now for some boo <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2050	2170	
==>ns     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2050	2170	
==>ns     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	168	255	
==>e bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	168	255	
==>e bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	168	255	
==>e bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1139	1241	
==>3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1139	1241	
==>3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1139	1241	
==>3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[' <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4577	4676	
==>t ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operation <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4577	4676	
==>t ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	134	260	
==>nv = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ente <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	134	260	
==>nv = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ente <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	134	260	
==>nv = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ente <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6811	6910	
==>stant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasynta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6811	6910	
==>stant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasynta <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3191	3290	
==>s, but which we obviously don't have).

Whether this will all succeed or not is an open question.  B <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22362	22460	
==>at all of its class
and object methods will each return the same result when invoked on the
same ob <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26914	27012	
==>at all of its class
and object methods will each return the same result when invoked on the
same ob <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25637	25735	
==>at all of its class
and object methods will each return the same result when invoked on the
same ob <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1491	1587	
==>s ||= list->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13394	13526	
==>st->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4015	4117	
==>tr $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=it <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4015	4117	
==>tr $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4095	4197	
==>tr $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=it <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	617	713	
==>here are more.  Useful short-term. Eventually not needed,
# once macro rxmodinternal:<x> etc work <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1320	1448	
==>ameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1320	1448	
==>ameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34312	34407	
==>or that returns the complement of
C<semijoin> with the same argument.  This method has aliases n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38862	38957	
==>or that returns the complement of
C<semijoin> with the same argument.  This method has aliases n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38341	38436	
==>or that returns the complement of
C<semijoin> with the same argument.  This method has aliases n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6790	6885	
==>th.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Ite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6790	6885	
==>th.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Ite <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6790	6885	
==>th.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Ite <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20438	20530	
==>o use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true v <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20438	20530	
==>o use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13441	13640	
==>:next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13441	13640	
==>:next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13441	13640	
==>:next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cla <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	733	838	
==>fined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	733	838	
==>fined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6400	6496	
==>on (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6400	6496	
==>on (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6400	6496	
==>on (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19102	19197	
==>igrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19102	19197	
==>igrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1781	1884	
==>{
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1781	1884	
==>{
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1781	1884	
==>{
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	166	266	
==>::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) { <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	166	266	
==>::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15748	15890	
==>r $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    inv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15748	15890	
==>r $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    inv <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2688	2807	
==>mpl = {
        perl    => { required => 1, store => \$perl },
    };

    check( $tmpl, \%hash ) or error(Params::Check <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3618	3705	
==>rtion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3802	3889	
==>rtion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :f <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5812	5952	
==>_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # cl <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5812	5952	
==>_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # cl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5770	5865	
==>st_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Buil <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5770	5865	
==>st_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Buil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7294	7389	
==>st_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Buil <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8334	8456	
==>ct>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $ne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8334	8456	
==>ct>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7589	7675	
==>cumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7589	7675	
==>cumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7589	7675	
==>cumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10403	10518	
==>ed_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10682	10797	
==>ed_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	873	971	
==>emiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	873	971	
==>emiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	873	971	
==>emiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles throu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1770	1858	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3146	3234	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<? <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9139	9241	
==>se are the type signatures of some builtins
our %prelude = (
	# int -> int -> int
	add => type::operato <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22073	22170	
==>turns the first one it finds.  This also works for the multiple language
or permissions issue; sim <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22073	22170	
==>turns the first one it finds.  This also works for the multiple language
or permissions issue; sim <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16462	16555	
==>et::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(ra <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16462	16555	
==>et::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(ra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11735	11933	
==>$candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11735	11933	
==>$candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11735	11933	
==>$candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2	99	
==>ckage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2	99	
==>ckage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1921	2036	
==>($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1921	2036	
==>($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1921	2036	
==>($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7347	7446	
==>erson' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7347	7446	
==>erson' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	170	278	
==>le;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which fi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	170	278	
==>le;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	146	257	
==>:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	146	257	
==>:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	146	257	
==>:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1280	1371	
==>s = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2ab <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1280	1371	
==>s = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2ab <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6466	6561	
==>> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolea <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6466	6561	
==>> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8663	8758	
==>> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolea <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12426	12518	
==>ave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12426	12518	
==>ave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	899	1013	
==>xt.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.po <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	899	1013	
==>xt.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4676	4781	
==>s (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4676	4781	
==>s (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4676	4781	
==>s (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2044	2216	
==>(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2044	2216	
==>(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2044	2216	
==>(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1676	1815	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1676	1815	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1676	1815	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	148	244	
==>y encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meanin <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	148	244	
==>y encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meanin <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	364	503	
==>. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	909	1048	
==>. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors ar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	364	503	
==>. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	909	1048	
==>. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	909	1048	
==>. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accepts a 'celems' closure.
#   Both constructors ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12723	12838	
==>ect(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6198	6313	
==>ect(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	736	824	
==>---------------------------------------------------------------
## Object

# The 'Object' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	736	824	
==>---------------------------------------------------------------
## Object

# The 'Object' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	736	824	
==>---------------------------------------------------------------
## Object

# The 'Object' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1045	1140	
==>est::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from outp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1045	1140	
==>est::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from outp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1125	1220	
==>est::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from outp <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2515	2609	
==>urn $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open } <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2515	2609	
==>urn $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	697	808	
==>param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	697	808	
==>param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	715	826	
==>param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35884	35977	
==>on, such that all common attribute names
and corresponding common tuple values are aligned and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40434	40527	
==>on, such that all common attribute names
and corresponding common tuple values are aligned and <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14225	14341	
==>t_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17702	17818	
==>t_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17118	17234	
==>t_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20082	20170	
==>)>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20082	20170	
==>)>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9379	9491	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9379	9491	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9379	9491	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FE <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6295	6392	
==>ecific-language-like syntax, contained in a package

### rule must ever use Rule::rule form - neve <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6080	6176	
==>ecific-language-like syntax, contained in a package
### rule must ever use Rule::rule form - neve <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	457	595	
==>ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            m <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	457	595	
==>ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11110	11229	
==>n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34071	34169	
==>atch in found in the most preferred language
is used.  Each Set Name can be any defined and non-emp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34071	34169	
==>atch in found in the most preferred language
is used.  Each Set Name can be any defined and non-emp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2221	2321	
==>port(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2221	2321	
==>port(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3725	3824	
==>e test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3725	3824	
==>e test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5922	6021	
==>e test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	732	842	
==>ad1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print " <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1316	1426	
==>ad1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	208	309	
==>* Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	208	309	
==>* Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	208	309	
==>* Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	488	592	
==>valX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	488	592	
==>valX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	488	592	
==>valX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19321	19423	
==>INE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19321	19423	
==>INE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1936	2077	
==>ples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1936	2077	
==>ples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1936	2077	
==>ples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6706	6816	
==>verse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    ) <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6706	6816	
==>verse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15513	15624	
==>ss, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15513	15624	
==>ss, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5119	5229	
==>+, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5119	5229	
==>+, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5709	5819	
==>+, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	890	998	
==>rray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	890	998	
==>rray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	890	998	
==>rray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7305	7401	
==>>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

Thi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7305	7401	
==>>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	225	322	
==>t}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	225	322	
==>t}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	225	322	
==>t}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pF <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2390	2484	
==>ment>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The T <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2390	2484	
==>ment>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The T <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5638	5765	
==>st::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	119	220	
==>-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	119	220	
==>-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	119	220	
==>-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52406	52490	
==>w('@:superclasses') => list->new($::Module));

$::Module->set_attr(symbol->new('@:sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5123	5239	
==>_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2665	2781	
==>_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3446	3562	
==>_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5244	5339	
==>function will fetch the document identified by the given URL
and return it.  It returns C<undef> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5244	5339	
==>function will fetch the document identified by the given URL
and return it.  It returns C<undef> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9406	9528	
==>statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_cre <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9406	9528	
==>statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_cre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	13	125	
==>PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	13	125	
==>PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	13	125	
==>PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4952	5047	
==>more control or access to the header fields in the requests
sent and responses received, then yo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4952	5047	
==>more control or access to the header fields in the requests
sent and responses received, then yo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5137	5229	
==>ecording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5137	5229	
==>ecording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6661	6753	
==>ecording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17339	17452	
==>);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11954	12066	
==>);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11954	12066	
==>);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11954	12066	
==>);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_= <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	28	128	
==>ode $.code;

=head1 NAME

Method - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	997	1111	
==>6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	997	1111	
==>6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	997	1111	
==>6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37712	37805	
==>n its positional parameter
$module_name (a string), and a Message Key in its positional parame <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37712	37805	
==>n its positional parameter
$module_name (a string), and a Message Key in its positional parame <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1191	1375	
==>);
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1191	1375	
==>);
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1191	1375	
==>);
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18629	18724	
==>p struct - attempting to make it look sufficiently
like what the core expects to avoid problems. <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2919	3014	
==>p struct - attempting to make it look sufficiently
like what the core expects to avoid problems. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16123	16323	
==>$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16123	16323	
==>$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16123	16323	
==>$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11723	11815	
==><gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11723	11815	
==><gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	663	760	
==>rf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() u <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	663	760	
==>rf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() u <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4863	4959	
==>:Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4863	4959	
==>:Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7060	7156	
==>:Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	327	428	
==>> Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) retu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	327	428	
==>> Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17438	17535	
==>ds'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17438	17535	
==>ds'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17438	17535	
==>ds'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5347	5487	
==>ssed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  us <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4744	4844	
==>*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differen <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3871	3971	
==>*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differen <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4744	4844	
==>*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differen <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3871	3971	
==>*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5953	6071	
==>f($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5953	6071	
==>f($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5953	6071	
==>f($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3653	3752	
==>arrot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as the path of the PGE shipped with <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1642	1736	
==>ile::Spec->catfile($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec-> <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5606	5838	
==>e = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token) <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5606	5838	
==>e = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12699	12870	
==>f->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12699	12870	
==>f->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12699	12870	
==>f->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3378	3539	
==>sh';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3378	3539	
==>sh';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3378	3539	
==>sh';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4295	4392	
==>ation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encr <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4295	4392	
==>ation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10128	10225	
==>::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10128	10225	
==>::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10128	10225	
==>::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::P <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14737	14851	
==>@";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Bu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	241	343	
==>ass Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.rec <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	241	343	
==>ass Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.rec <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25254	25345	
==>rg/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25254	25345	
==>rg/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6641	6752	
==>rl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   param <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6641	6752	
==>rl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   param <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6641	6752	
==>rl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   param <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	361	457	
==>iphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
un <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	361	457	
==>iphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
un <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13924	14077	
==>delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13924	14077	
==>delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13924	14077	
==>delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17376	17477	
==>ading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20853	20954	
==>ading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!he <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3748	3886	
==>\...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3748	3886	
==>\...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1677	1773	
==>}

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1677	1773	
==>}

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1677	1773	
==>}

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12987	13114	
==>eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12987	13114	
==>eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12987	13114	
==>eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4100	4201	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersec <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4100	4201	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31167	31265	
==>ng attributes may also be set:

=over 4

=item branch

Whether this object has branches (like C<|>) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4500	4591	
==>space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4500	4591	
==>space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4500	4591	
==>space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'} <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18840	18922	
==>,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11491	11653	
==>n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7773	7935	
==>n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8607	8769	
==>n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	21	120	
==>ker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMak <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	21	120	
==>ker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMak <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1555	1671	
==>ex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1555	1671	
==>ex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4394	4505	
==>."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4394	4505	
==>."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4394	4505	
==>."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbin <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2764	2871	
==>r

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2764	2871	
==>r

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2844	2951	
==>r

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6474	6576	
==>od end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _g <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6474	6576	
==>od end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _g <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3700	3866	
==>\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 lev <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3700	3866	
==>\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 lev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16345	16473	
==>if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16345	16473	
==>if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16345	16473	
==>if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for c <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	296	400	
==>:Kernel = $self;
  }

  # Internal method which pushes a given $callback to @:events.
  my method enqueue <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13405	13504	
==>functions is a way
to provide a comment that refers to another file or test which must be
made to pa <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13463	13562	
==>functions is a way
to provide a comment that refers to another file or test which must be
made to pa <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3462	3556	
==>ry for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=ite <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3462	3556	
==>ry for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=ite <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5659	5753	
==>ry for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=ite <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4066	4166	
==>AsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlashOr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26477	26574	
==>references to other objects in them if you wish.

=back

This is the main Message constructor meth <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26477	26574	
==>references to other objects in them if you wish.

=back

This is the main Message constructor meth <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3812	3907	
==>l@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which i <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3812	3907	
==>l@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1548	1650	
==>[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1548	1650	
==>[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1548	1650	
==>[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var p <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13189	13280	
==>in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13189	13280	
==>in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8468	8607	
==>] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8468	8607	
==>] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8468	8607	
==>] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10809	10912	
==>dd new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10809	10912	
==>dd new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33768	33895	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33768	33895	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33768	33895	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arr <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9049	9149	
==>over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9049	9149	
==>over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7469	7590	
==>=> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7218	7334	
==>=> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2939	3050	
==>ms: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2939	3050	
==>ms: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2939	3050	
==>ms: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15417	15545	
==>YNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Conv <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15417	15545	
==>YNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Conv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4195	4296	
==>ases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4195	4296	
==>ases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4195	4296	
==>ases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective met <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	288	385	
==>org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	288	385	
==>org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	288	385	
==>org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26755	26850	
==>m the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26755	26850	
==>m the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13973	14110	
==>p( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13973	14110	
==>p( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13973	14110	
==>p( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5486	5606	
==>tch;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and mat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5486	5606	
==>tch;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and mat <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	84	185	
==>------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

ha <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	84	185	
==>------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16219	16312	
==>:Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16219	16312	
==>:Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16219	16312	
==>:Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8579	8706	
==>turn;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code asserti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8579	8706	
==>turn;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code asserti <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	262	360	
==>ee the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	262	360	
==>ee the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	262	360	
==>ee the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8514	8616	
==>ck}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8514	8616	
==>ck}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11806	11893	
==>$xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11806	11893	
==>$xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11806	11893	
==>$xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MUL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	483	655	
==>> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	398	570	
==>> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	486	658	
==>> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4383	4482	
==>lement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4383	4482	
==>lement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2841	2993	
==>items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3461	3613	
==>items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2841	2993	
==>items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3461	3613	
==>items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	15181	15288	
==>nction, based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2909	3020	
==>shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2909	3020	
==>shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2909	3020	
==>shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3476	3572	
==>thin quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3476	3572	
==>thin quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3620	3741	
==>aram> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada trai <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3620	3741	
==>aram> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada trai <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	161	255	
==>in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from he <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	161	255	
==>in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from he <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	161	255	
==>in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11994	12112	
==>my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11994	12112	
==>my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11994	12112	
==>my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5751	5854	
==>return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5739	5842	
==>return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1931	2090	
==>y $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1931	2090	
==>y $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1931	2090	
==>y $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1180	1315	
==>::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1180	1315	
==>::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24307	24401	
==>.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24307	24401	
==>.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9723	9810	
==>her_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9723	9810	
==>her_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9723	9810	
==>her_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6098	6223	
==>rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => c <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6098	6223	
==>rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3881	3977	
==>fail.  C<$description> is the optional
description of the test.  This is the easiest way to match <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3881	3977	
==>fail.  C<$description> is the optional
description of the test.  This is the easiest way to match <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3961	4057	
==>fail.  C<$description> is the optional
description of the test.  This is the easiest way to match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4036	4198	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4036	4198	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4036	4198	
==>b { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1157	1245	
==>piler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1377	1465	
==>piler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2581	2694	
==>ing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2581	2694	
==>ing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2581	2694	
==>ing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6453	6565	
==>'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6453	6565	
==>'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15237	15337	
==>));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15237	15337	
==>));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15237	15337	
==>));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27656	27754	
==>ash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27656	27754	
==>ash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36847	36964	
==>= Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36847	36964	
==>= Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uni <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36847	36964	
==>= Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uni <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1698	1801	
==>unc;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "compiled: $co <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	795	895	
==>$obj = $class->SUPER::new();
    $obj->mk_accessors( qw[installations] );
    
    $obj->installation <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	831	948	
==>names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * cre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	831	948	
==>names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * cre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14713	14888	
==>list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14713	14888	
==>list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14713	14888	
==>list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2563	2660	
==>install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2563	2660	
==>install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2031	2133	
==>nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my me <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2031	2133	
==>nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my me <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37246	37341	
==>subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41795	41890	
==>subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41418	41513	
==>subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<na <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12925	13091	
==>ate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12925	13091	
==>ate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38383	38495	
==>->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38383	38495	
==>->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$arr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38383	38495	
==>->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7360	7508	
==>\@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7360	7508	
==>\@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7360	7508	
==>\@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2423	2522	
==>and we can stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2330	2427	
==>and we can stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3110	3237	
==>an.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3110	3237	
==>an.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12332	12418	
==>>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12332	12418	
==>>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12332	12418	
==>>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(su <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10720	10825	
==>eading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14197	14302	
==>eading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13496	13601	
==>eading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20874	20969	
==>gram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to br <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20874	20969	
==>gram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to br <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1927	2078	
==>@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1927	2078	
==>@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1927	2078	
==>@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25883	25974	
==>ocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30435	30526	
==>ocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5605	5726	
==>s Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5605	5726	
==>s Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2628	2734	
==>}
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of the l <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	389	489	
==>}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the l <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	389	489	
==>}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the l <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1132	1274	
==>rent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree a <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1132	1274	
==>rent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6197	6307	
==>ing,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9674	9784	
==>ing,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8748	8858	
==>ing,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	952	1082	
==>extNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	952	1082	
==>extNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	952	1082	
==>extNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3823	3925	
==>in "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3823	3925	
==>in "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	338	456	
==>airs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	338	456	
==>airs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	338	456	
==>airs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15284	15401	
==>ss Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.flood <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15284	15401	
==>ss Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.flood <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1766	1875	
==>u: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1766	1875	
==>u: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1766	1875	
==>u: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, b <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8080	8176	
==>objects, that return lists of spans.

In this example, @span may contain zero, one, two, or three <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8080	8176	
==>objects, that return lists of spans.

In this example, @span may contain zero, one, two, or three <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5112	5301	
==>capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        fo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5124	5313	
==>capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3783	3901	
==>ed;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_inv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3783	3901	
==>ed;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_inv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3783	3901	
==>ed;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_inv <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	493	611	
==>:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    re <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	493	611	
==>:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	576	675	
==>.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	576	675	
==>.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	576	675	
==>.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1459	1574	
==>nder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEG <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1459	1574	
==>nder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2428	2526	
==>ferencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2428	2526	
==>ferencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2428	2526	
==>ferencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1270	1403	
==>message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # u <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1270	1403	
==>message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2848	2940	
==>cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2848	2940	
==>cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2848	2940	
==>cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16582	16683	
==>my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$ar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16582	16683	
==>my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$ar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16582	16683	
==>my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$ar <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	563	659	
==>r, in that keys should produce the same keystream and thus text 
should be enciphered and deciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	563	659	
==>r, in that keys should produce the same keystream and thus text 
should be enciphered and deciphe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3233	3355	
==>r|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3233	3355	
==>r|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3233	3355	
==>r|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8975	9080	
==>et') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8975	9080	
==>et') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11766	11863	
==>l classes
and roles can be polymorphic to one another. 

Because instances of class all conform to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11766	11863	
==>l classes
and roles can be polymorphic to one another. 

Because instances of class all conform to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11766	11863	
==>l classes
and roles can be polymorphic to one another. 

Because instances of class all conform to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5400	5508	
==>} elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5400	5508	
==>} elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5400	5508	
==>} elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	0	101	
==>use Cipher;
class Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to impleme <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	0	101	
==>use Cipher;
class Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to impleme <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7687	7839	
==>elete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2004	2130	
==>elete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2004	2130	
==>elete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2004	2130	
==>elete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	446	547	
==>ler::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11564	11659	
==>ied item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elem <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8711	8806	
==>ied item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11564	11659	
==>ied item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8711	8806	
==>ied item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elem <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1993	2086	
==>g C<@args> as arguments.
Note that possibly, the event handler is I<not> called immediately -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3322	3430	
==>/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3322	3430	
==>/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3322	3430	
==>/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually p <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4756	4858	
==>ta given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly fa <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4756	4858	
==>ta given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly fa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12897	13002	
==>livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping sec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3544	3649	
==>"\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12897	13002	
==>livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping sec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3544	3649	
==>"\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3544	3649	
==>"\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2188	2295	
==>plement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of arra <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2188	2295	
==>plement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3931	4035	
==>e;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3931	4035	
==>e;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3931	4035	
==>e;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1000	1128	
==>{ say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1008	1131	
==>{ say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1046	1146	
==>- test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1046	1146	
==>- test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1046	1146	
==>- test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50876	51011	
==>tr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  - <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7476	7590	
==>ad1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7476	7590	
==>ad1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is i <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14084	14180	
==>ckage hooks working.

Notes:

  http://perl.plover.com/Rx/paper/

  Some files of interest in the <==
5	/Users/nnunley/pugs/util/func_refact.pl	195	287	
==>ith -n filename containing nodes data produced by --nodes
of graphfuncs.pl. Will print initia <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	319	416	
==>is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	319	416	
==>is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2219	2311	
==>x:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2219	2311	
==>x:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2219	2311	
==>x:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6581	6769	
==>elf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            retur <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6581	6769	
==>elf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9557	9650	
==>ndef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9557	9650	
==>ndef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9557	9650	
==>ndef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3191	3318	
==>Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.r <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3191	3318	
==>Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1946	2053	
==>f = shift;
    msg("Package already installed");
    return $self;
}    

=head2 $bool = $inst_pkg->uninstal <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6253	6355	
==>die when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to EN <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6253	6355	
==>die when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to EN <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5260	5397	
==>vOK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stder <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	378	491	
==>line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($pat,$str,$ok,$thin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7196	7288	
==>ject::singleton_test_on_object',
  '... still got the right return value from first Object si <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8191	8283	
==>ject::singleton_test_on_object',
  '... still got the right return value from first Object si <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10760	10852	
==>ject::singleton_test_on_object',
  '... still got the right return value from first Object si <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2519	2638	
==>} elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2519	2638	
==>} elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1729	1854	
==>er_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1729	1854	
==>er_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1729	1854	
==>er_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3876	3981	
==>registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed i <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3876	3981	
==>registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1307	1418	
==>hitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1307	1418	
==>hitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1307	1418	
==>hitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3766	3865	
==>y if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.strin <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3766	3865	
==>y if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16713	16823	
==>ge Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16713	16823	
==>ge Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16713	16823	
==>ge Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
s <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	469	567	
==>test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an im <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	469	567	
==>test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an im <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1097	1225	
==>[ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1053	1175	
==>[ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5553	5660	
==>';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1158	1261	
==>mespace of symbols and has

a main body closure. 



the Package part of the Module is simply a hash fro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1106	1206	
==>mespace of symbols and has
a main body closure. 

the Package part of the Module is simply a hash fro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7707	7808	
==>tch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9635	9736	
==>tch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7695	7796	
==>tch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3561	3660	
==>er.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3561	3660	
==>er.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2893	2998	
==>_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2881	2986	
==>_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	897	996	
==>ined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	897	996	
==>ined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	897	996	
==>ined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3628	3770	
==>0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3768	3910	
==>0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $gramm <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11352	11452	
==>w, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14829	14929	
==>w, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14137	14237	
==>w, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product ( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31894	31986	
==>nary relational operator that takes a single
Relation in its C<$other> argument, where <$othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23798	23890	
==>qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36444	36536	
==>nary relational operator that takes a single
Relation in its C<$other> argument, where <$othe <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23798	23890	
==>qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23798	23890	
==>qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7313	7606	
==>ro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7313	7606	
==>ro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	498	606	
==>f $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	498	606	
==>f $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	498	606	
==>f $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4881	4998	
==>r_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compile <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4714	4825	
==>r_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3632	3733	
==>nvocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3632	3733	
==>nvocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3632	3733	
==>nvocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3137	3276	
==>Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4837	4971	
==>Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3865	3990	
==>Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	996	1099	
==>ody>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.prin <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	996	1099	
==>ody>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.prin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3229	3341	
==>name> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3229	3341	
==>name> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3810	3916	
==>name> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3810	3916	
==>name> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($ <==
5	/Users/nnunley/pugs/misc/Date/lib/Date.pm	635	732	
==>elf.subtract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$sel <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6	99	
==>6;
module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Has <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6	99	
==>6;
module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Has <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8743	8894	
==>eturn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12648	12793	
==>eturn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12648	12793	
==>eturn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11149	11259	
==>onnected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11149	11259	
==>onnected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8195	8331	
==>) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8195	8331	
==>) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4636	4733	
==>ests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descri <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4636	4733	
==>ests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6833	6930	
==>ests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14845	14969	
==>constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14845	14969	
==>constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14845	14969	
==>constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10000	10108	
==>) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9994	10102	
==>) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'} <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5441	5588	
==>herefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5905	6052	
==>herefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2581	2710	
==>= new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2581	2710	
==>= new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2581	2710	
==>= new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21802	21895	
==>ing utf8

=head1 NAME

Relation::Example -
Simple in-memory implementation of the Relation rol <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5072	5153	
==>alar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Placeholder") <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35070	35203	
==>n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35070	35203	
==>n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35070	35203	
==>n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	635	742	
==>sults = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method vi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	635	742	
==>sults = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method vi <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	569	725	
==>[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf("[%s]", av[i]);
    printf( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2234	2380	
==>ype => new Object(),
    # class definition
        get_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3961	4094	
==>ty < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Sligh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3961	4094	
==>ty < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Sligh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3961	4094	
==>ty < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Sligh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2080	2189	
==>ore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2080	2189	
==>ore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2080	2189	
==>ore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3602	3699	
==>mar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3819	3916	
==>mar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	752	866	
==>today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	752	866	
==>today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	301	393	
==>CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	301	393	
==>CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	301	393	
==>CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	544	703	
==>m\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	537	696	
==>m\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2134	2226	
==>h })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2134	2226	
==>h })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2134	2226	
==>h })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14665	14812	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14665	14812	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14665	14812	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3124	3250	
==>,  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3124	3250	
==>,  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7040	7152	
==>$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /A <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7599	7711	
==>$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /A <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2892	2992	
==>, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year] <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2892	2992	
==>, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	50	149	
==>arnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2281	2392	
==>op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2281	2392	
==>op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2628	2739	
==>op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35704	35796	
==>ation>

This multi-method is a generic binary relational operator that takes
another Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40254	40346	
==>ation>

This multi-method is a generic binary relational operator that takes
another Relation <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10228	10342	
==>$sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=h <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10228	10342	
==>$sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1005	1111	
==>ic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPacka <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1005	1111	
==>ic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPacka <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1005	1111	
==>ic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPacka <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3608	3717	
==>= $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3608	3717	
==>= $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3608	3717	
==>= $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10358	10456	
==>e ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quotin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10358	10456	
==>e ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quotin <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3009	3120	
==>&continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($matc <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3009	3120	
==>&continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	37	135	
==>routines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	37	135	
==>routines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	37	135	
==>routines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5535	5637	
==>s

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8707	8808	
==>));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Foun <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8707	8808	
==>));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Foun <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5344	5444	
==>s
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related f <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	205	298	
==>s", "Set", { companion => "class" });
Has($?CLASS, "associations", "Set", { companion => "clas <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1620	1790	
==>trol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1620	1790	
==>trol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curni <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28889	29009	
==>,
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28889	29009	
==>,
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	256	364	
==>,
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9655	9759	
==>);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9655	9759	
==>);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9655	9759	
==>);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	231	323	
==>ule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	231	323	
==>ule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3348	3441	
==>p :: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3348	3441	
==>p :: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1599	1688	
==>b statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1599	1688	
==>b statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1599	1688	
==>b statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:< <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6453	6568	
==>rt, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PG <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4241	4348	
==>vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4241	4348	
==>vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4241	4348	
==>vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	208	304	
==>nts before every fully qualified subroutine.
* takes a rexep as the only argument
* not tested mu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	693	780	
==>nted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	693	780	
==>nted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	693	780	
==>nted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24594	24694	
==>eturn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_han <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21015	21115	
==>eturn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_han <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16697	16793	
==>ode::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16697	16793	
==>ode::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16697	16793	
==>ode::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1126	1226	
==>ct belongs to a
package that is too close to the main namespace for your tastes, and
you want to rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1126	1226	
==>ct belongs to a
package that is too close to the main namespace for your tastes, and
you want to rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1126	1226	
==>ct belongs to a
package that is too close to the main namespace for your tastes, and
you want to rebl <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11627	11717	
==>code = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numericall <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11627	11717	
==>code = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numericall <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3513	3652	
==>ted)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3513	3652	
==>ted)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3513	3652	
==>ted)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availabl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1562	1663	
==>(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->nc <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6114	6223	
==>= $$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	46	142	
==>e Perl6::Runtime;
use Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first attempt at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19916	20009	
==>d into blocks and the blocks have been
marked for various compilers, Module::Compile dispatche <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19916	20009	
==>d into blocks and the blocks have been
marked for various compilers, Module::Compile dispatche <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4225	4316	
==>.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4225	4316	
==>.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4225	4316	
==>.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_de <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4226	4420	
==>cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4226	4420	
==>cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1404	1505	
==>($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1404	1505	
==>($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1404	1505	
==>($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4829	4942	
==>ir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4829	4942	
==>ir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	117	236	
==>N {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pack <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	119	238	
==>N {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pack <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1153	1250	
==>st Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1153	1250	
==>st Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1153	1250	
==>st Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	444	567	
==>H')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	444	567	
==>H')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	444	567	
==>H')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package Ev <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1969	2064	
==>g synopsis, you should
be left with nothing but questions about what this object represents.

It <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1969	2064	
==>g synopsis, you should
be left with nothing but questions about what this object represents.

It <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5777	5875	
==>is to return a negative value for
# relative seconds and a positive value for epoch based time valu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5777	5875	
==>is to return a negative value for
# relative seconds and a positive value for epoch based time valu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2341	2436	
==>_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descriptio <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2341	2436	
==>_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2421	2516	
==>_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descriptio <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1992	2132	
==>elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1992	2132	
==>elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    } <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6527	6624	
==>ssed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6527	6624	
==>ssed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8724	8821	
==>ssed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4593	4704	
==>ument!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4593	4704	
==>ument!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'n <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	557	654	
==>context (such as the IRC evalbot) using `is safe` or `is unsafe`.

For functions exported to the g <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40755	40847	
==>ale::KeyedText would appreciate being informed any time you create a
modified version of Loca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40755	40847	
==>ale::KeyedText would appreciate being informed any time you create a
modified version of Loca <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	838	958	
==>Y () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	838	958	
==>Y () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5268	5361	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5268	5361	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5268	5361	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBo <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8808	8918	
==>3052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1730	1830	
==><= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1730	1830	
==><= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1730	1830	
==><= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6269	6360	
==>tal(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !.
p5_elemen <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2134	2308	
==>fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2134	2308	
==>fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29810	29905	
==>aving the new attributes having the same names as old attributes
that were wrapped, and it suppo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34362	34457	
==>aving the new attributes having the same names as old attributes
that were wrapped, and it suppo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33526	33621	
==>aving the new attributes having the same names as old attributes
that were wrapped, and it suppo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1713	1821	
==>itive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1713	1821	
==>itive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1713	1821	
==>itive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19775	19872	
==>l also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization pa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19775	19872	
==>l also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1625	1755	
==>lHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      windo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1625	1755	
==>lHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      windo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1625	1755	
==>lHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      windo <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7134	7235	
==>zy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

... <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7134	7235	
==>zy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

... <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	392	500	
==>ere must be a more efficient way to do this,
      // but if I store the node in a variable outside of this f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	392	500	
==>ere must be a more efficient way to do this,
      // but if I store the node in a variable outside of this f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	392	500	
==>ere must be a more efficient way to do this,
      // but if I store the node in a variable outside of this f <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34744	34842	
==>he invocant and whose body contains all of the tuples that
are in the invocant Relation and that ma <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39294	39392	
==>he invocant and whose body contains all of the tuples that
are in the invocant Relation and that ma <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1313	1434	
==>ce> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless define <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1313	1434	
==>ce> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless define <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	252	352	
==>T);
  my $it = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1092	1186	
==>o, the latter form is slightly more efficient, though this is
marginal in string COW environmen <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1092	1186	
==>o, the latter form is slightly more efficient, though this is
marginal in string COW environmen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1518	1642	
==>' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbox <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1518	1642	
==>' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbox <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1518	1642	
==>' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbox <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1538	1640	
==>e remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2200	2302	
==>e remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2808	2948	
==>)};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2808	2948	
==>)};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15943	16060	
==>ng _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15943	16060	
==>ng _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15943	16060	
==>ng _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5099	5213	
==>ist ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5099	5213	
==>ist ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5099	5213	
==>ist ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2662	2759	
==>ms($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method sho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2662	2759	
==>ms($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method sho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1765	1888	
==>Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1765	1888	
==>Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1765	1888	
==>Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FE <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2500	2597	
==>e_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2500	2597	
==>e_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1403	1543	
==>t = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1403	1543	
==>t = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1403	1543	
==>t = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      r <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15610	15703	
==>arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONME <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15668	15761	
==>arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONME <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5440	5677	
==>"has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$cur <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7202	7439	
==>"has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$cur <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	913	1013	
==>mits++;
}

# $commits[0] should be first commit, not last
@commits    = reverse @commits;
@developers <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	575	672	
==>== $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏ <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	575	672	
==>== $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5687	5867	
==>=> {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my meth <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5687	5867	
==>=> {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1132	1251	
==>ef($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1132	1251	
==>ef($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1132	1251	
==>ef($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; su <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25819	25913	
==>.
This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30371	30465	
==>.
This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1236	1339	
==>"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1236	1339	
==>"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1236	1339	
==>"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %mo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23433	23521	
==>n-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependenci <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23433	23521	
==>n-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependenci <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	259	369	
==>= shift;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16313	16408	
==>tta Native Interface is defined mainly in terms of a new high-level
programming language named " <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16313	16408	
==>tta Native Interface is defined mainly in terms of a new high-level
programming language named " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41294	41383	
==>tive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41294	41383	
==>tive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23710	23835	
==>x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9707	9818	
==>tch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9707	9818	
==>tch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9707	9818	
==>tch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns-> <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28923	29022	
==>x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #defin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35613	35703	
==>ation::Example $other!) returns Relation::Example>

This multi-method is a generic binary r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36710	36800	
==>ation::Example $other!) returns Relation::Example>

This multi-method is a generic binary r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37210	37300	
==>ation::Example $other!) returns Relation::Example>

This multi-method is a generic binary r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39258	39348	
==>ation::Example $other!) returns Relation::Example>

This multi-method is a generic binary r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39806	39896	
==>ation::Example $other!) returns Relation::Example>

This multi-method is a generic binary r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2751	2836	
==>,",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.":: <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6203	6288	
==>,",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.":: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2751	2836	
==>,",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.":: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2751	2836	
==>,",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.":: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15745	15839	
==>unmodified_since

These header fields are used to make a request conditional.  If the requested <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15745	15839	
==>unmodified_since

These header fields are used to make a request conditional.  If the requested <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1507	1600	
==>recompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1507	1600	
==>recompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1507	1600	
==>recompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and - <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2447	2547	
==>'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2447	2547	
==>'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2447	2547	
==>'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exha <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36768	36863	
==>if none
could be matched, this method returns undef.  This method could be
considered to impleme <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36768	36863	
==>if none
could be matched, this method returns undef.  This method could be
considered to impleme <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	695	815	
==>ort<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	695	815	
==>ort<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	641	726	
==>l_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	641	726	
==>l_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	641	726	
==>l_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27961	28117	
==>_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unsh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27961	28117	
==>_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unsh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27961	28117	
==>_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unsh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5210	5325	
==>op1 => ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub a <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	21736	21848	
==>Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest name string for f <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3215	3344	
==>->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{d <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3679	3808	
==>->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4068	4172	
==>ss defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4068	4172	
==>ss defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4068	4172	
==>ss defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%para <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8793	8912	
==>operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $int <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8793	8912	
==>operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9491	9583	
==>re ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9491	9583	
==>re ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9491	9583	
==>re ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2365	2459	
==>inking about trying a prolog plugin.

Fyi,
Yaswi apparently requires swi prolog be built ./conf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1643	1735	
==>ie) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1643	1735	
==>ie) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1643	1735	
==>ie) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_j <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38879	38970	
==>AL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5771	5891	
==>es,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5771	5891	
==>es,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5771	5891	
==>es,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBL <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	63	163	
==>.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    ( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	63	163	
==>.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1507	1607	
==>f ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1507	1607	
==>f ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1507	1607	
==>f ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18755	18851	
==>uld normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  Whi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18755	18851	
==>uld normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  Whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7559	7666	
==>ype"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7559	7666	
==>ype"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7559	7666	
==>ype"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List- <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6298	6397	
==>ates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6298	6397	
==>ates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. <==
5	/Users/nnunley/pugs/util/func_refact.pl	2645	2758	
==>{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort {score(@{$ca <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4254	4354	
==>since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @file <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5151	5251	
==>since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @file <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4254	4354	
==>since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @file <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5151	5251	
==>since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @file <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1599	1757	
==>L',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedT <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1599	1757	
==>L',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedT <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3016	3138	
==>ion);
            $subscription.subscriber.remove_subscription($subscription);
        }
        
        method get_subscr <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	682	796	
==>util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $o <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	682	796	
==>util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8325	8513	
==>thod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8325	8513	
==>thod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8325	8513	
==>thod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	173	285	
==>sefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	173	285	
==>sefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5386	5582	
==>ER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8863	9059	
==>ER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO. <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6008	6107	
==>nging the 
actual semantics.

Please note that most of the time, it will not be necessary to write t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6008	6107	
==>nging the 
actual semantics.

Please note that most of the time, it will not be necessary to write t <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3159	3254	
==>lic/UNIDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6	103	
==>e PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6	103	
==>e PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6	103	
==>e PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnin <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13133	13227	
==>l header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13133	13227	
==>l header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5733	5854	
==>gs    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return joi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5733	5854	
==>gs    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return joi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5733	5854	
==>gs    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return joi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12796	12903	
==>event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method liveche <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12796	12903	
==>event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method liveche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10475	10644	
==>size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10475	10644	
==>size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $othe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10475	10644	
==>size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $othe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17067	17201	
==>ro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17346	17480	
==>ro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8722	8825	
==><EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8722	8825	
==><EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8722	8825	
==><EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16091	16178	
==><stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestprac <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16149	16236	
==><stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestprac <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1080	1183	
==>members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns B <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1080	1183	
==>members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns B <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32810	32907	
==>re of the
tree.  However, having them returned while I<walking> the tree is
helpful.

The walk() m <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	108	201	
==>calhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   } <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	108	201	
==>calhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8406	8527	
==>>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8406	8527	
==>>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8406	8527	
==>>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4428	4527	
==>e span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4428	4527	
==>e span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1257	1355	
==>t 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1257	1355	
==>t 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2923	3031	
==>CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2923	3031	
==>CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4720	4925	
==>t's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Se <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4720	4925	
==>t's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Se <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7961	8077	
==>if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11957	12070	
==>if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11957	12070	
==>if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	379	563	
==>ture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	379	563	
==>ture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15812	15916	
==>>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15812	15916	
==>>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15812	15916	
==>>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2806	2908	
==>method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2806	2908	
==>method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2806	2908	
==>method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2	100	
==>e v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes t <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2	100	
==>e v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes t <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2104	2207	
==>Blondie::Node::List';

    package Blondie::Val;
    use base 'Blondie::Node::Unit';

    package Blondi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8688	8787	
==>ick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8688	8787	
==>ick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnic <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1339	1434	
==>ve representations of @header_order.  This is used
# for sorting and case matching.
our %header_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1339	1434	
==>ve representations of @header_order.  This is used
# for sorting and case matching.
our %header_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15328	15456	
==>n;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this sho <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15322	15450	
==>n;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this sho <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	82	208	
==>onf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XX <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	62	183	
==>DGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (< <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	62	183	
==>DGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (< <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	112	519	
==>et)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	112	519	
==>et)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16673	16778	
==>tart => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16673	16778	
==>tart => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16673	16778	
==>tart => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	704	806	
==>me of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	704	806	
==>me of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	595	685	
==>t::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	595	685	
==>t::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	595	685	
==>t::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6008	6147	
==>op->{fixity}_$op->{assoc}"};
                    unless ( defined $t ) {
                        warn "can't find template for '$op->{fixi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1364	1477	
==>alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing altern <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1708	1819	
==>alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing altern <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1315	1426	
==>alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing altern <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1708	1819	
==>alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing altern <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3437	3562	
==>f.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3437	3562	
==>f.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3437	3562	
==>f.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9076	9196	
==>complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9076	9196	
==>complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5715	5819	
==>no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5715	5819	
==>no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5715	5819	
==>no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8522	8616	
==>terpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8522	8616	
==>terpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Eve <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3353	3485	
==>{
                    when '*' { take %.subscription.values».members };
                    default { take %.subscriptions<$_>.membe <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9481	9581	
==>ntersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9481	9581	
==>ntersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2076	2168	
==>ke encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2076	2168	
==>ke encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11979	12084	
==>ers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15456	15561	
==>ers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14791	14896	
==>ers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2302	2396	
==>e Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2302	2396	
==>e Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2302	2396	
==>e Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22475	22568	
==>itE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note tha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22475	22568	
==>itE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2184	2307	
==>$instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2184	2307	
==>$instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2184	2307	
==>$instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $in <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15419	15514	
==>needs to account for a variance of needs between its different
users, such as their preferred la <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15419	15514	
==>needs to account for a variance of needs between its different
users, such as their preferred la <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1456	1586	
==>0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1444	1574	
==>0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16527	16636	
==>b {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16527	16636	
==>b {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16527	16636	
==>b {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16059	16170	
==>';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16059	16170	
==>';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16059	16170	
==>';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2254	2357	
==>osetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2254	2357	
==>osetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2677	2792	
==>self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2677	2792	
==>self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2677	2792	
==>self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $se <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8843	8940	
==>n object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT MET <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8843	8940	
==>n object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT MET <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12775	12881	
==>defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12775	12881	
==>defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12775	12881	
==>defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULT <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11588	11685	
==>e that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11588	11685	
==>e that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recur <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4885	4981	
==>ains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4885	4981	
==>ains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7082	7178	
==>ains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2124	2215	
==>ix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2124	2215	
==>ix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7567	7741	
==>arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7567	7741	
==>arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1584	1684	
==>entation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use const <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1584	1684	
==>entation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use const <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1584	1684	
==>entation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use const <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6039	6154	
==>have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6097	6212	
==>have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3384	3491	
==>Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3384	3491	
==>Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3384	3491	
==>Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	353	484	
==>elf = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	353	484	
==>elf = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	353	484	
==>elf = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hac <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12882	12978	
==>e character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrec <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12882	12978	
==>e character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	613	719	
==>-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	613	719	
==>-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	613	719	
==>-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()-> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4002	4094	
==>ay { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicod <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4002	4094	
==>ay { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9586	9715	
==>, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1679	1800	
==>, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1 <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1679	1800	
==>, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1 <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	70	177	
==>$Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	70	177	
==>$Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19943	20067	
==>} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16364	16488	
==>} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4606	4719	
==>', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $_[0]->{o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3115	3212	
==>s::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much be <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3005	3099	
==>s::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6478	6583	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6478	6583	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6478	6583	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	667	767	
==>rs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	667	767	
==>rs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2991	3098	
==>am}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2991	3098	
==>am}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2991	3098	
==>am}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{par <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6006	6097	
==>Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are retu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6006	6097	
==>Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are retu <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3700	3936	
==>{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('para <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3700	3936	
==>{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2308	2418	
==>$thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2308	2418	
==>$thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2308	2418	
==>$thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @s <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2722	2862	
==>sif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            @a[$i] = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8864	8969	
==>'t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\" <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	598	703	
==>'t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8864	8969	
==>'t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8864	8969	
==>'t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\" <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3720	3835	
==>port {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-88 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3720	3835	
==>port {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-88 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5911	6011	
==>e returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5911	6011	
==>e returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8108	8208	
==>e returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Tes <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9821	9928	
==>> -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9821	9928	
==>> -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> S <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10616	10713	
==>mational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B< <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10616	10713	
==>mational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	258	352	
==>throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	258	352	
==>throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	258	352	
==>throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11937	12079	
==>reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2351	2481	
==>reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2351	2481	
==>reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4246	4359	
==>method BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4246	4359	
==>method BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_nod <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7971	8071	
==>span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7971	8071	
==>span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1172	1270	
==>s so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3012	3110	
==>s so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25836	25933	
==>()>.  This method, where it returns a
I<reference> to a scalar, makes it work (!).

B<These functi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12291	12397	
==>+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:? <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12291	12397	
==>+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4075	4169	
==>};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4075	4169	
==>};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4075	4169	
==>};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4126	4367	
==>{
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                whe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4126	4367	
==>{
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2617	2715	
==>il2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2617	2715	
==>il2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2617	2715	
==>il2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3555	3659	
==>$self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate userna <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3555	3659	
==>$self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate userna <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2715	2812	
==>mit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2715	2812	
==>mit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expr <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6294	6385	
==>self->runtime->cast_node_type($node, $de_facto_type, $expected_type);
		}
	}

	sub is_placeh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3196	3338	
==>{
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3927	4032	
==>{ ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1536	1640	
==>_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1536	1640	
==>_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3907	4011	
==>se64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($se <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3907	4011	
==>se64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($se <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2058	2184	
==>t_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2058	2184	
==>t_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2138	2264	
==>t_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1697	1794	
==>node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Mult <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1629	1723	
==>node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2522	2637	
==>h my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2522	2637	
==>h my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2522	2637	
==>h my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "* <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1888	1988	
==>tuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.a <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1888	1988	
==>tuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3257	3401	
==>pen IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            nex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3257	3401	
==>pen IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            nex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3257	3401	
==>pen IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            nex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16401	16523	
==>$cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16401	16523	
==>$cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7304	7413	
==>hannels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<fr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7304	7413	
==>hannels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<fr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14177	14264	
==>superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14177	14264	
==>superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14177	14264	
==>superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6509	6642	
==>ly allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure tha <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6509	6642	
==>ly allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8454	8557	
==>return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8454	8557	
==>return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8454	8557	
==>return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7802	7969	
==>1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7802	7969	
==>1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7802	7969	
==>1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a j <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5110	5248	
==>cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5110	5248	
==>cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $matc <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10009	10105	
==>RAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10009	10105	
==>RAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2898	2993	
==>ct;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2898	2993	
==>ct;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2898	2993	
==>ct;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	882	987	
==>XX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	882	987	
==>XX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	882	987	
==>XX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5382	5477	
==>is is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may b <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5382	5477	
==>is is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may b <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6374	6467	
==>e $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6374	6467	
==>e $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4655	4746	
==>bj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4655	4746	
==>bj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4655	4746	
==>bj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	716	822	
==>hs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	716	822	
==>hs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	716	822	
==>hs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5061	5158	
==>x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5061	5158	
==>x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3172	3291	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6297	6416	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3172	3291	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6297	6416	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1099	1192	
==>" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9722	9843	
==>rs },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9722	9843	
==>rs },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %us <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14616	14727	
==>s b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14616	14727	
==>s b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11509	11601	
==>ngleton method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1906	2057	
==>ef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1906	2057	
==>ef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1906	2057	
==>ef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $ins <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	773	905	
==>ft @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	773	905	
==>ft @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1010	1121	
==>rrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pr <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1010	1121	
==>rrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1071	1167	
==>]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1071	1167	
==>]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1071	1167	
==>]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $C <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23688	23811	
==>fine REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1570	1684	
==>et_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1570	1684	
==>et_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1650	1764	
==>et_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    t <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28903	28999	
==>fine REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7581	7799	
==>s_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7581	7799	
==>s_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7581	7799	
==>s_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Met <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	533	627	
==>rade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Lan <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	533	627	
==>rade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Lan <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21420	21534	
==>str(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17841	17955	
==>str(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8576	8674	
==>new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8576	8674	
==>new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8576	8674	
==>new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8181	8281	
==>ns, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.ma <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8181	8281	
==>ns, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.ma <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3607	3704	
==>hat you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3607	3704	
==>hat you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3687	3784	
==>hat you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4108	4235	
==>'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4248	4375	
==>'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1575	1673	
==>ak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1575	1673	
==>ak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1575	1673	
==>ak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3731	3859	
==>);

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3731	3859	
==>);

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3731	3859	
==>);

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_in <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22100	22196	
==>s.  This also works for the multiple language
or permissions issue; simply order the files approp <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22100	22196	
==>s.  This also works for the multiple language
or permissions issue; simply order the files approp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13485	13599	
==>er{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, * <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13485	13599	
==>er{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1114	1213	
==>If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm wo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1114	1213	
==>If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm wo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1114	1213	
==>If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm wo <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3789	3897	
==>r ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File:: <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3789	3897	
==>r ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6870	6962	
==>matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6870	6962	
==>matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6870	6962	
==>matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1244	1360	
==>unction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1244	1360	
==>unction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1244	1360	
==>unction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9920	10022	
==>r => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connec <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9920	10022	
==>r => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9808	9992	
==>a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9808	9992	
==>a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9808	9992	
==>a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3798	3974	
==>( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something tha <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4262	4438	
==>( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something tha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3464	3581	
==>O: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3452	3569	
==>O: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3866	3968	
==>splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3866	3968	
==>splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3866	3968	
==>splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1437	1567	
==>my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_li <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1425	1555	
==>my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10776	10875	
==>xed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10776	10875	
==>xed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10776	10875	
==>xed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8826	9001	
==>=~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12727	12859	
==>=~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12727	12859	
==>=~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # su <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	262	385	
==>{
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	262	385	
==>{
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21380	21476	
==>_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21380	21476	
==>_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21380	21476	
==>_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	86	175	
==>e::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

h <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	86	175	
==>e::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

h <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9532	9694	
==>ndows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whate <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2062	2186	
==>":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 c <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	376	500	
==>":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2062	2186	
==>":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2062	2186	
==>":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29411	29521	
==>ss { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29411	29521	
==>ss { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29411	29521	
==>ss { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8004	8111	
==>$.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8004	8111	
==>$.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	612	722	
==>{
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	612	722	
==>{
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	612	722	
==>{
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4961	5068	
==>new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4961	5068	
==>new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1982	2147	
==>= shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1982	2147	
==>= shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1982	2147	
==>= shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3975	4122	
==>nt lines,
        # happens often on VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self->{saw_lo <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1638	1730	
==>des> and some
more objects.

They provide stringification, fmapping and value encapsulation f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4262	4409	
==>{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4262	4409	
==>{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4262	4409	
==>{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { S <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12640	12757	
==>e database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $co <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12640	12757	
==>e database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36591	36708	
==>= shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36591	36708	
==>= shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36591	36708	
==>= shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	507	616	
==>() returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	507	616	
==>() returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1187	1292	
==>positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1187	1292	
==>positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1187	1292	
==>positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19194	19294	
==>.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19194	19294	
==>.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	169	268	
==>g engine, aiming to generate the same data structure as
the 'ratchet' version.

- It currently pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	389	487	
==>Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	393	491	
==>Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	389	487	
==>Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	393	491	
==>Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::T <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6221	6359	
==>$p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method ca <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6221	6359	
==>$p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method ca <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38318	38412	
==>DO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42867	42961	
==>DO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42517	42611	
==>DO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14703	14821	
==>0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14703	14821	
==>0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14703	14821	
==>0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package P <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	294	395	
==>push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	294	395	
==>push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1654	1751	
==>ep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1654	1751	
==>ep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1654	1751	
==>ep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6194	6387	
==>ay; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6194	6387	
==>ay; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4587	4692	
==>m::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4587	4692	
==>m::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4587	4692	
==>m::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	131	260	
==>{
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	131	260	
==>{
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	131	260	
==>{
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = arg <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13872	13969	
==>ason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13930	14027	
==>ason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	3	112	
==>ssignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	3	112	
==>ssignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	3	112	
==>ssignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  di <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3287	3387	
==>Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3287	3387	
==>Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1204	1305	
==>ion)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1204	1305	
==>ion)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1204	1305	
==>ion)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed va <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4195	4295	
==>st::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4253	4353	
==>st::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1883	1989	
==>comp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1883	1989	
==>comp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } els <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1883	1989	
==>comp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } els <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5424	5517	
==>ests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) re <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5482	5575	
==>ests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2167	2286	
==>ont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2167	2286	
==>ont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2167	2286	
==>ont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1265	1362	
==>etter frequency to crack the cipher, and even if the message is 
contrived to hide the letter freq <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1265	1362	
==>etter frequency to crack the cipher, and even if the message is 
contrived to hide the letter freq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	298	441	
==>' => sub {
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.output'}       || \*STDOUT);
            _('$.erro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7311	7417	
==>.. rBar now does Role');

# create a class to put the roles in ...
my $FooBar = $Class->new(
    '$:name' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	281	378	
==>re...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	281	378	
==>re...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	281	378	
==>re...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	591	726	
==>eue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	591	726	
==>eue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2052	2169	
==>b command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2052	2169	
==>b command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messag <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2052	2169	
==>b command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messag <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	73	188	
==>rint_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	73	188	
==>rint_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4687	4783	
==>my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4687	4783	
==>my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4687	4783	
==>my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18595	18714	
==>);

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19953	20072	
==>);

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	190	288	
==>kell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path q <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	190	288	
==>kell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path q <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	190	288	
==>kell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path q <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9016	9120	
==>se");
}

# runperl - Runs a separate perl interpreter.
# Arguments :
#   switches => [ command-line switc <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6186	6287	
==>wn, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %modifiers_known = map {;($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4507	4604	
==>ositional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACK <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4507	4604	
==>ositional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACK <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5097	5194	
==>ositional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACK <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5585	5700	
==>r);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5585	5700	
==>r);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6175	6290	
==>r);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Dat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1590	1693	
==>0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^ <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1216	1310	
==>t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_build_exclude_re();

my $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5101	5230	
==>++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5101	5230	
==>++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5101	5230	
==>++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->r <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4895	5009	
==>ed on the last test line seen.  C<$pass> is
            #true if it was considered to be a passed test.  C<%test> i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	642	751	
==>print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3527	3633	
==>r.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifyin <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3402	3503	
==>r.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifyin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	535	638	
==>IL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	535	638	
==>IL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	535	638	
==>IL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28513	28736	
==>$str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28513	28736	
==>$str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28513	28736	
==>$str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets p <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3898	3993	
==>w)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3898	3993	
==>w)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5558	5661	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4688	4791	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5558	5661	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4688	4791	
==>rns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.s <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12265	12365	
==>n the caller package, and thus get CORE if none are defined.

  The C hooks (except for comp, obvious <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3787	3932	
==>substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3927	4072	
==>substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6225	6339	
==>e.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $sel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6225	6339	
==>e.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $sel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30223	30313	
==>Relation::Example or the invocant Relation::Example respectively.  This method will fail if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16988	17164	
==>boxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16988	17164	
==>boxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16988	17164	
==>boxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($se <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1654	1774	
==>read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9749	9856	
==>----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9749	9856	
==>----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9749	9856	
==>----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these at <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2724	2826	
==>turn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normali <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2724	2826	
==>turn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normali <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4958	5086	
==>else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4958	5086	
==>else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4958	5086	
==>else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7003	7120	
==>240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(825 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7003	7120	
==>240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(825 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6827	6949	
==>sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6827	6949	
==>sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4021	4120	
==>me}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4021	4120	
==>me}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4021	4120	
==>me}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2951	3056	
==>passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Go <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2951	3056	
==>passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Go <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3031	3136	
==>passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Go <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17602	17699	
==>nd/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error condi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17602	17699	
==>nd/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error condi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10771	10877	
==>ou can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this in <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10771	10877	
==>ou can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9475	9563	
==>om_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9475	9563	
==>om_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9475	9563	
==>om_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	868	978	
==>g_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	879	989	
==>g_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # pri <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4255	4372	
==>[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take ind <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4255	4372	
==>[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take ind <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4982	5092	
==>e_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: ni <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	102	206	
==>.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $i <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18812	18894	
==>,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6652	6866	
==>gram runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_con <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6652	6866	
==>gram runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4693	4796	
==>s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4693	4796	
==>s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4693	4796	
==>s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if define <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	375	498	
==>se Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_fact <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	375	498	
==>se Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_fact <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3272	3372	
==>_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3272	3372	
==>_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3272	3372	
==>_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $se <==
5	/Users/nnunley/pugs/misc/S29_round.pl	427	542	
==>elow 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * floor( ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16250	16355	
==>og( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16250	16355	
==>og( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16250	16355	
==>og( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI S <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9439	9527	
==>lass_pos(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_charset_item(R) --> p56_char_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2955	3067	
==>$a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2955	3067	
==>$a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2955	3067	
==>$a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20255	20349	
==>gram package.  No
recompilation necessary.  This is something that end users could do,
although <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20255	20349	
==>gram package.  No
recompilation necessary.  This is something that end users could do,
although <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3882	4000	
==>. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3882	4000	
==>. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $ni <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3097	3210	
==>elf->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4414	4526	
==>. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4414	4526	
==>. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $ni <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1259	1408	
==>d       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4498	4647	
==>d       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1259	1408	
==>d       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4498	4647	
==>d       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1059	1193	
==>ce => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        p <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6248	6362	
==>ST {
        %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c contin <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	987	1088	
==>t { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PR <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	987	1088	
==>t { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PR <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1642	1741	
==>= _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1642	1741	
==>= _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	430	540	
==>n; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	430	540	
==>n; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	430	540	
==>n; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15502	15606	
==>e and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15502	15606	
==>e and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2353	2479	
==>*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8912	9038	
==>*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2353	2479	
==>*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8908	9034	
==>*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11898	12014	
==>}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test itself is one; we ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3200	3313	
==>:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3200	3313	
==>:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3200	3313	
==>:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11369	11466	
==>eturn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] ma <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11369	11466	
==>eturn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] ma <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12717	12813	
==>as date objects without the time part.

Discrete spans take a "units" specifier, which can be eit <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12717	12813	
==>as date objects without the time part.

Discrete spans take a "units" specifier, which can be eit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1004	1097	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1004	1097	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1004	1097	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8241	8453	
==>ey, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8241	8453	
==>ey, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8241	8453	
==>ey, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{ti <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10040	10191	
==>n             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10040	10191	
==>n             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    } <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4555	4662	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4555	4662	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3544	3646	
==>ult} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3544	3646	
==>ult} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3544	3646	
==>ult} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     = <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6795	6943	
==>ODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Pe <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6795	6943	
==>ODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6590	6694	
==>oes' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6590	6694	
==>oes' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6590	6694	
==>oes' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6394	6593	
==>if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6394	6593	
==>if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2771	2879	
==>26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2771	2879	
==>26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2771	2879	
==>26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3352	3458	
==>on's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18933	19039	
==>with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Endi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6829	6935	
==>on's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5786	5892	
==>on's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18933	19039	
==>with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Endi <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1139	1263	
==>type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	749	842	
==>o Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1874	1967	
==>o Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	749	842	
==>o Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1874	1967	
==>o Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	818	927	
==>f->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	719	828	
==>f->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3416	3521	
==>gs[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3416	3521	
==>gs[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3416	3521	
==>gs[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6710	6851	
==>"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6710	6851	
==>"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end" <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6710	6851	
==>"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22919	23053	
==>?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19340	19474	
==>?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2447	2574	
==>et {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <s <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2447	2574	
==>et {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1182	1282	
==>=> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1182	1282	
==>=> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1182	1282	
==>=> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7938	8123	
==>aram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7938	8123	
==>aram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7938	8123	
==>aram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22864	22959	
==>ntended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22864	22959	
==>ntended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1136	1237	
==>-------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concern <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1136	1237	
==>-------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concern <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1136	1237	
==>-------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concern <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1059	1156	
==>pe Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1059	1156	
==>pe Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_h <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6109	6265	
==>ed and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when Li <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6109	6265	
==>ed and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14322	14435	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14322	14435	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14322	14435	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_me <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6243	6373	
==>(!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6243	6373	
==>(!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	280	391	
==>();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	280	391	
==>();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	280	391	
==>();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6907	7028	
==>>{data}) {
      $self->{data}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2347	2434	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2347	2434	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2347	2434	
==>('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_me <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16653	16735	
==>ion(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0,B1,E0,E1).
rm(union(_Re1,Re2),F <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1535	1668	
==>ile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1330	1461	
==>ile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16943	17034	
==>s::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16943	17034	
==>s::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16943	17034	
==>s::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7597	7719	
==>w-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7597	7719	
==>w-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3623	3724	
==>_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3623	3724	
==>_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3623	3724	
==>_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4838	4944	
==>es are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4838	4944	
==>es are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4838	4944	
==>es are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	283	388	
==>and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = calle <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	283	388	
==>and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = calle <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	10176	10293	
==>$infile  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_pa <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	884	993	
==>catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'i <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1758	1867	
==>catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'i <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	884	993	
==>catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'i <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1758	1867	
==>catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	101	193	
==>----------------------------------------------------
## now for some bootstrapping ....

## S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	101	193	
==>----------------------------------------------------
## now for some bootstrapping ....

## S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	101	193	
==>----------------------------------------------------
## now for some bootstrapping ....

## S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6602	6709	
==>g) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6602	6709	
==>g) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6602	6709	
==>g) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5002	5097	
==>bject, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7670	7765	
==>bject, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1974	2157	
==>age( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _comman <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1974	2157	
==>age( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _comman <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5172	5322	
==>ern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5172	5322	
==>ern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5172	5322	
==>ern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14994	15158	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14994	15158	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14994	15158	
==>$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4865	4963	
==>', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4865	4963	
==>', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7018	7160	
==>t },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

P <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7018	7160	
==>t },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

P <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1248	1343	
==>'new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1248	1343	
==>'new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1248	1343	
==>'new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	69	170	
==>T);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	69	170	
==>T);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	69	170	
==>T);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34437	34531	
==>ter
@set_names (an array ref), and Member Names is set from the named parameter
@member_names ( <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34437	34531	
==>ter
@set_names (an array ref), and Member Names is set from the named parameter
@member_names ( <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1229	1333	
==>le;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($dire <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1229	1333	
==>le;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($dire <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15480	15597	
==>($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15480	15597	
==>($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15480	15597	
==>($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38398	38490	
==>nterpolating the %msg_vars into it, where each variable value is
substituted for any occuranc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38398	38490	
==>nterpolating the %msg_vars into it, where each variable value is
substituted for any occuranc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8907	9036	
==>}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8907	9036	
==>}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8907	9036	
==>}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1804	1897	
==>es

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Run <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1893	1986	
==>es

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	560	662	
==>= @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	560	662	
==>= @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	560	662	
==>= @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_metho <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1809	1905	
==>t

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1809	1905	
==>t

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1227	1327	
==>rred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11880	11976	
==>hing other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve either or both of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2195	2290	
==>unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2195	2290	
==>unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2195	2290	
==>unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5315	5437	
==>assAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5315	5437	
==>assAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this sh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5315	5437	
==>assAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this sh <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	494	594	
==>n: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	494	594	
==>n: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22524	22650	
==>new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23026	23152	
==>new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	716	829	
==>que') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this ju <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	716	829	
==>que') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this ju <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	716	829	
==>que') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this ju <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13596	13760	
==>l: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9780	9944	
==>l: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10616	10780	
==>l: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6370	6505	
==>e handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6370	6505	
==>e handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4618	4750	
==>en) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4618	4750	
==>en) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	405	491	
==>l, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	405	491	
==>l, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	405	491	
==>l, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13431	13522	
==>the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Per <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18518	18609	
==>the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Per <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13431	13522	
==>the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Per <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18518	18609	
==>the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9953	10064	
==>- $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9953	10064	
==>- $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9953	10064	
==>- $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11280	11370	
==>item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) return <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11280	11370	
==>item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) return <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2938	3076	
==>st if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	989	1085	
==>parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	989	1085	
==>parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	911	1006	
==>parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	911	1006	
==>parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13979	14096	
==>=> $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    # the body is a code ref <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	109	213	
==>ensity = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	109	213	
==>ensity = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2077	2175	
==>EMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2077	2175	
==>EMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35609	35700	
==>(Relation::Example $other!) returns Relation::Example>

This multi-method is a generic binar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36706	36797	
==>(Relation::Example $other!) returns Relation::Example>

This multi-method is a generic binar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37206	37297	
==>(Relation::Example $other!) returns Relation::Example>

This multi-method is a generic binar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39254	39345	
==>(Relation::Example $other!) returns Relation::Example>

This multi-method is a generic binar <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39802	39893	
==>(Relation::Example $other!) returns Relation::Example>

This multi-method is a generic binar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	884	990	
==>n $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicol <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	884	990	
==>n $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6228	6321	
==>__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6228	6321	
==>__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6228	6321	
==>__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	68	165	
==>me::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	68	165	
==>me::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	68	165	
==>me::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18325	18416	
==>gines will employ appropriate measures
such as system-managed locks so that resource corrupt <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18325	18416	
==>gines will employ appropriate measures
such as system-managed locks so that resource corrupt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	279	378	
==>rolException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	279	378	
==>rolException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	279	378	
==>rolException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15875	15970	
==>ts authors have also written
several books and papers and taught classes on the subject over the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15875	15970	
==>ts authors have also written
several books and papers and taught classes on the subject over the <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4795	4924	
==>tem from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4795	4924	
==>tem from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3448	3570	
==>('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3448	3570	
==>('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3448	3570	
==>('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	127	237	
==>::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	127	237	
==>::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	127	237	
==>::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@arg <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	355	456	
==>ARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub que <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	355	456	
==>ARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub que <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4671	4771	
==>say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4671	4771	
==>say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4671	4771	
==>say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3825	3920	
==>turns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3825	3920	
==>turns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	626	811	
==>META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY,
        },
        ### XXX thi <==
5	/Users/nnunley/pugs/util/grokprims.pl	2421	2517	
==>"</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1837	1931	
==>file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1837	1931	
==>file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1085	1177	
==>file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramma <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4733	4837	
==>the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the st <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4733	4837	
==>the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the st <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6257	6361	
==>the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the st <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1227	1319	
==>-----------------------------

Since you are using Microsoft Windows, you will need the 'nmak <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1067	1159	
==>-----------------------------

Since you are using Microsoft Windows, you will need the 'nmak <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3553	3753	
==>ge => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	900	1020	
==>n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1825	1934	
==>ub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1825	1934	
==>ub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1825	1934	
==>ub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8974	9094	
==>". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8974	9094	
==>". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8974	9094	
==>". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2684	2790	
==>ubrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2868	2974	
==>ubrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-ru <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5899	5999	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Keye <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5899	5999	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Keye <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6407	6502	
==>) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6407	6502	
==>) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6407	6502	
==>) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNe <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2010	2114	
==>rl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catf <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2010	2114	
==>rl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catf <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27554	27649	
==>og)->reganch &= ~ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_set(prog, t) ((t) \
					? RX_MATC <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	615	706	
==>for general information.

=head2 Constructor options

With no options, Cipher::Caesar create <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	615	706	
==>for general information.

=head2 Constructor options

With no options, Cipher::Caesar create <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	136	239	
==>e ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 w <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3559	3656	
==>B<new>

This is a Factory method used to create a specific class instances which
perform the Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3559	3656	
==>B<new>

This is a Factory method used to create a specific class instances which
perform the Test: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5756	5853	
==>B<new>

This is a Factory method used to create a specific class instances which
perform the Test: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10580	10710	
==>ll')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10580	10710	
==>ll')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10580	10710	
==>ll')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3427	3552	
==>r1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 }, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3620	3745	
==>r1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 }, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4630	4826	
==>{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4630	4826	
==>{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4630	4826	
==>{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	231	355	
==>ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*E <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	231	355	
==>ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*E <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3342	3475	
==>abel};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3342	3475	
==>abel};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1753	1861	
==>08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1753	1861	
==>08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1753	1861	
==>08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15550	15664	
==>our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimetho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15550	15664	
==>our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimetho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15550	15664	
==>our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimetho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	996	1097	
==>whatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	996	1097	
==>whatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5015	5118	
==>_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i+ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5015	5118	
==>_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i+ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5605	5708	
==>_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i+ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3127	3224	
==>ub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, * <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3127	3224	
==>ub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5186	5294	
==>s {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5186	5294	
==>s {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5186	5294	
==>s {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4178	4273	
==>($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4178	4273	
==>($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6114	6282	
==>bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6114	6282	
==>bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16430	16557	
==>en, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen = <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1265	1380	
==>ect {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - ch <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1265	1380	
==>ect {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - ch <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23577	23747	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23856	24026	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	382	494	
==>sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	382	494	
==>sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	382	494	
==>sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	586	685	
==>ir() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should te <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	586	685	
==>ir() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4690	4780	
==>UPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4690	4780	
==>UPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4690	4780	
==>UPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11780	11921	
==>t->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11780	11921	
==>t->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11780	11921	
==>t->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->e <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1595	1715	
==>add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reco <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1595	1715	
==>add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reco <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	391	485	
==>IL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	391	485	
==>IL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	391	485	
==>IL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].to <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3380	3504	
==>ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.ite <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3380	3504	
==>ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	477	591	
==>_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	477	591	
==>_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	477	591	
==>_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2780	2879	
==>ecurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2780	2879	
==>ecurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# reble <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2780	2879	
==>ecurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# reble <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	932	1028	
==>y $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # te <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	932	1028	
==>y $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	564	689	
==>ams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	564	689	
==>ams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dis <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	564	689	
==>ams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dis <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17444	17537	
==>he iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17444	17537	
==>he iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10152	10287	
==>ies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!coo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10152	10287	
==>ies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!coo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	623	722	
==>$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	393	492	
==>$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	393	492	
==>$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1513	1610	
==>nly one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1513	1610	
==>nly one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2710	2806	
==>cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2710	2806	
==>cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2710	2806	
==>cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3323	3431	
==>= shift;
		my $node = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = B::c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23707	23797	
==>lies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is use <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22480	22570	
==>lies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23707	23797	
==>lies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22480	22570	
==>lies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is use <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12296	12408	
==>ACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4939	5051	
==>ACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16155	16252	
==>::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16155	16252	
==>::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16155	16252	
==>::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20196	20427	
==>v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20196	20427	
==>v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20196	20427	
==>v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	678	780	
==>tive { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1268	1370	
==>tive { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { s <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2294	2391	
==>ard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
i <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2294	2391	
==>ard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1134	1286	
==>elf->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx = sh <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	696	804	
==>r all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accesso <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1180	1288	
==>r all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accesso <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4351	4443	
==>. $Object got the right method return value');
is($Object->superclass, undef, '... $Object go <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6253	6345	
==>. $Object got the right method return value');
is($Object->superclass, undef, '... $Object go <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4165	4275	
==>()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4165	4275	
==>()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4165	4275	
==>()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24246	24337	
==>yright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24246	24337	
==>yright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1021	1114	
==>urns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<ser <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1021	1114	
==>urns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<ser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4145	4236	
==>lass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4145	4236	
==>lass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4145	4236	
==>lass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new <==
5	/Users/nnunley/pugs/util/drift.pl	486	608	
==>!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	425	539	
==>pendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	460	574	
==>pendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	425	539	
==>pendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $no <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9638	9752	
==>pendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15976	16128	
==>abel)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prev <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15976	16128	
==>abel)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prev <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15976	16128	
==>abel)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prev <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2616	2719	
==>e ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parame <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2800	2903	
==>e ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parame <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3774	3907	
==>path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:pe <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3774	3907	
==>path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:pe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15595	15715	
==>n {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19072	19192	
==>n {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my meth <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1086	1197	
==>ust be a block";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12486	12609	
==>->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12486	12609	
==>->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12486	12609	
==>->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str-> <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12332	12431	
==>at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave qu <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12332	12431	
==>at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave qu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	794	919	
==>on't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	794	919	
==>on't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1727	1833	
==>nt an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1727	1833	
==>nt an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1727	1833	
==>nt an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2412	2520	
==>capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2659	2767	
==>capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3977	4078	
==>:KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3977	4078	
==>:KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	28116	28211	
==>an't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all identifiers need to be re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13556	13707	
==>RACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13556	13707	
==>RACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13556	13707	
==>RACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7057	7157	
==>"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $ki <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7057	7157	
==>"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $ki <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8429	8539	
==>ent<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        fo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8429	8539	
==>ent<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	150	253	
==>bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	150	253	
==>bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	150	253	
==>bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self-> <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	164	275	
==>:Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->en <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	237	348	
==>:Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14990	15088	
==>.&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14990	15088	
==>.&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14990	15088	
==>.&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1402	1509	
==>deref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1402	1509	
==>deref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1402	1509	
==>deref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41069	41163	
==>26, suggested a feature, and provided sample usage and patch
code, that supports embedding of T <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41069	41163	
==>26, suggested a feature, and provided sample usage and patch
code, that supports embedding of T <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4034	4130	
==>t_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.compleme <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4034	4130	
==>t_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.compleme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18639	18729	
==>x0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18639	18729	
==>x0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18639	18729	
==>x0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	813	916	
==>ath -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	813	916	
==>ath -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29008	29102	
==>---- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29008	29102	
==>---- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29008	29102	
==>---- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1905	2045	
==>except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1905	2045	
==>except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1905	2045	
==>except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	808	922	
==>s Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	808	922	
==>s Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5184	5310	
==>fined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5184	5310	
==>fined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1308	1411	
==>my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1308	1411	
==>my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1308	1411	
==>my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32397	32570	
==>$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32397	32570	
==>$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32397	32570	
==>$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else { <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	752	854	
==>< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	752	854	
==>< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1297	1465	
==>ELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1297	1465	
==>ELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1297	1465	
==>ELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] ) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6444	6541	
==>a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6444	6541	
==>a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5352	5548	
==>urn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5352	5548	
==>urn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5352	5548	
==>urn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11515	11670	
==>ASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11515	11670	
==>ASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11515	11670	
==>ASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15077	15171	
==>d privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15077	15171	
==>d privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15079	15274	
==>code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15079	15274	
==>code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15079	15274	
==>code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17044	17139	
==>anner, such that would not be possible if its
functionality was subsumed into a larger package t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17044	17139	
==>anner, such that would not be possible if its
functionality was subsumed into a larger package t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11345	11464	
==>r
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11345	11464	
==>r
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11345	11464	
==>r
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_ <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	784	892	
==>gs(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flag <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	685	793	
==>gs(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flag <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3006	3155	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statemen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11702	11851	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statemen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3199	3348	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statemen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11981	12130	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statemen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	486	596	
==>on',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rul <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7409	7537	
==>oc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7409	7537	
==>oc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_pe <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1263	1390	
==>$tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.new
        ( :year($year), :month($1),  :da <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1764	1884	
==>k
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1764	1884	
==>k
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9501	9604	
==>);
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1112	1215	
==>);

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub p <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9501	9604	
==>);
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1112	1215	
==>);

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1192	1295	
==>);

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4586	4708	
==>::Compiler::Regex->compile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Compile <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6370	6466	
==>y $sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2387	2480	
==>ncee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2387	2480	
==>ncee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2387	2480	
==>ncee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2973	3074	
==>dn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaSc <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	421	522	
==>and with very little knowledge of Perl 6. These five examples
# can be improved in many ways, and have <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2973	3074	
==>dn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaSc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2973	3074	
==>dn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaSc <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3878	3975	
==>a /etc/inputrc.
  --terminfo=$terminfo
    To make, for example, the <Pos1> and <End> keys working <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10180	10308	
==>&Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10180	10308	
==>&Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10180	10308	
==>&Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_co <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1599	1698	
==>nvironment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represe <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1599	1698	
==>nvironment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represe <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1819	1985	
==>a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1819	1985	
==>a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we ch <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6059	6161	
==>e::variable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this si <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	682	782	
==>e Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	682	782	
==>e Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16779	16899	
==>$n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! in <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6520	6624	
==>sers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      de <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7256	7360	
==>sers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6520	6624	
==>sers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7256	7360	
==>sers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	822	927	
==>y, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	822	927	
==>y, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	822	927	
==>y, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15346	15443	
==>program or any of its components are intended for widespread use
then it needs to account for a va <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15346	15443	
==>program or any of its components are intended for widespread use
then it needs to account for a va <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4040	4147	
==>g.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comments and docs while preserving the lin <==
5	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	32	126	
==>Spec <catfile splitpath>;

our @.known_parsers;
my $parser_details = 'ParserDetails.ini';
# use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10458	10567	
==>ODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tie <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10458	10567	
==>ODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tie <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10458	10567	
==>ODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tie <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	182	278	
==>an be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLAT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	182	278	
==>an be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLAT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3550	3675	
==>{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3550	3675	
==>{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3550	3675	
==>{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => : <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15650	15770	
==>on? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if def <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15650	15770	
==>on? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if def <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	504	606	
==>l6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig. <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	504	606	
==>l6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig. <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	17255	17357	
==>5),
);

# the pair function takes any param and returns a function that takes any param
# that function <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2170	2266	
==>attern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2170	2266	
==>attern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12761	12863	
==>6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12761	12863	
==>6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12761	12863	
==>6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3950	4041	
==>Class', '... $Class got the right method return value');
is($Class->superclass, $Object, '.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5852	5943	
==>Class', '... $Class got the right method return value');
is($Class->superclass, $Object, '.. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5440	5551	
==>ext( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.cu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5440	5551	
==>ext( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13445	13551	
==>6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13445	13551	
==>6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13445	13551	
==>6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2766	2898	
==>,
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2766	2898	
==>,
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2766	2898	
==>,
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12974	13068	
==>Unrecognized
entities are left alone.

If multiple strings are provided as argument they are ea <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12974	13068	
==>Unrecognized
entities are left alone.

If multiple strings are provided as argument they are ea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1757	1925	
==>ted" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1757	1925	
==>ted" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1757	1925	
==>ted" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9234	9350	
==>}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9234	9350	
==>}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compi <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3380	3493	
==>orces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform> <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3380	3493	
==>orces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	685	792	
==>_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	685	792	
==>_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are cu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	685	792	
==>_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	179	275	
==>ecause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	179	275	
==>ecause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	179	275	
==>ecause we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &J <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1180	1275	
==>_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($pa <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1180	1275	
==>_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4252	4369	
==>urce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4252	4369	
==>urce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4252	4369	
==>urce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1536	1651	
==>ile: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1536	1651	
==>ile: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25713	25808	
==>llows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25713	25808	
==>llows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11107	11201	
==>ke smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11107	11201	
==>ke smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11107	11201	
==>ke smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22733	22852	
==>~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->er <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19154	19273	
==>~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->er <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6569	6681	
==>/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6569	6681	
==>/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6569	6681	
==>/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9662	9859	
==>r->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9662	9859	
==>r->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9662	9859	
==>r->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5148	5295	
==>ends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed p <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5612	5759	
==>ends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	102	206	
==>bugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	97	195	
==>bugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4543	4635	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4543	4635	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4543	4635	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9354	9468	
==>pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9354	9468	
==>pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9354	9468	
==>pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9444	9534	
==>sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @stat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3269	3359	
==>sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @stat <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	844	983	
==>'*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $cha <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	844	983	
==>'*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4461	4549	
==>X::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4461	4549	
==>X::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4461	4549	
==>X::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	501	761	
==>!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	501	761	
==>!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3450	3558	
==>_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3450	3558	
==>_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3450	3558	
==>_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1785	1901	
==>.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    retur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1785	1901	
==>.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10657	10908	
==>lass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10657	10908	
==>lass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	974	1072	
==>value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	974	1072	
==>value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	974	1072	
==>value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1291	1530	
==>te($t);
                next;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (jo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	520	619	
==>!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	520	619	
==>!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	520	619	
==>!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	813	909	
==>OUTINE(abs($x)));
}

our Int multi Num::round_half_odd (Num $x) {
	return int($x.is_odd ?? $x + 0 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1567	1678	
==>_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' par <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1567	1678	
==>_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' par <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5881	5991	
==>_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5881	5991	
==>_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	13	108	
==>rld needs a Perl6 regex pattern reference grammar.
Here is a place to accumulate one.

Resources <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1837	1966	
==>r (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1837	1966	
==>r (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1837	1966	
==>r (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " i <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10908	11009	
==>C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB} <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3377	3470	
==>g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18474	18590	
==>]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14895	15011	
==>]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1857	1959	
==>me, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1857	1959	
==>me, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1857	1959	
==>me, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	895	994	
==>\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	895	994	
==>\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6515	6610	
==>subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6515	6610	
==>subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6515	6610	
==>subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1229	1328	
==>ns.

=head1 CONSTRUCTS

=head2 Base ADTs

All nodes as well as a few other objects are implemented a <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2150	2245	
==>efix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FU <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2150	2245	
==>efix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6539	6628	
==>($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11597	11686	
==>($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '.. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	243	363	
==>);
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	243	363	
==>);
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	134	233	
==>'-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instan <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	134	233	
==>'-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instan <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	134	233	
==>'-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instan <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2198	2442	
==>in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.r <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2198	2442	
==>in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16934	17023	
==>:Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16934	17023	
==>:Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16934	17023	
==>:Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	678	787	
==>ms) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	678	787	
==>ms) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	678	787	
==>ms) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' a <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1616	1712	
==>ve.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fr <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1616	1712	
==>ve.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12552	12647	
==>hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12552	12647	
==>hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Docu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4510	4604	
==>_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4510	4604	
==>_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# X <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4510	4604	
==>_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# X <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9710	9864	
==>op::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9989	10143	
==>op::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7358	7470	
==>captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7358	7470	
==>captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7358	7470	
==>captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1744	1866	
==>/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1744	1866	
==>/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4643	4742	
==>ere is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4643	4742	
==>ere is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4643	4742	
==>ere is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though i <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	415	555	
==>0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defin <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	415	555	
==>0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23680	23793	
==>my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23680	23793	
==>my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23680	23793	
==>my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    ev <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	141	251	
==>ule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	867	977	
==>ule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11643	11748	
==>efinedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11643	11748	
==>efinedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11643	11748	
==>efinedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5701	5876	
==>od" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) d <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7463	7638	
==>od" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23235	23329	
==>.};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23235	23329	
==>.};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23235	23329	
==>.};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1379	1545	
==>words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1379	1545	
==>words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5372	5475	
==>f->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5372	5475	
==>f->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5372	5475	
==>f->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = ma <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2503	2729	
==>nts<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2503	2729	
==>nts<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2528	2639	
==>,
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1	105	
==>odule Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $co <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1	105	
==>odule Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10682	10803	
==>d add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10682	10803	
==>d add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10682	10803	
==>d add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attrib <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3693	3785	
==>tream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wil <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3693	3785	
==>tream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14023	14148	
==>rn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14023	14148	
==>rn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14023	14148	
==>rn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3	101	
==>kage Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @E <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3	101	
==>kage Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37895	38018	
==>{
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37895	38018	
==>{
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37895	38018	
==>{
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2924	3030	
==>::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: St <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2924	3030	
==>::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: St <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3511	3632	
==>XX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Late <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3511	3632	
==>XX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Late <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2365	2456	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2365	2456	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2365	2456	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17497	17593	
==>$xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17497	17593	
==>$xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17497	17593	
==>$xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	982	1075	
==>g and deciphering operations.)

Although it is secure when used properly, using it incorrectly <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	982	1075	
==>g and deciphering operations.)

Although it is secure when used properly, using it incorrectly <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11611	11706	
==><text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11611	11706	
==><text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4360	4454	
==>6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4360	4454	
==>6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4360	4454	
==>6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13772	13898	
==>1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':can <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13772	13898	
==>1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':can <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13772	13898	
==>1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':can <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9565	9676	
==>ted },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_au <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9565	9676	
==>ted },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_au <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1426	1522	
==>, "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1426	1522	
==>, "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1426	1522	
==>, "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge» <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	499	639	
==>w) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1844	1984	
==>LF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the inst <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	499	639	
==>w) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1844	1984	
==>LF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1844	1984	
==>LF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10963	11073	
==>text}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somet <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10963	11073	
==>text}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	734	834	
==>ithout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	734	834	
==>ithout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our % <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	734	834	
==>ithout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our % <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11600	11711	
==>imental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2087	2193	
==>imental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8859	8965	
==>imental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2087	2193	
==>imental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8859	8965	
==>imental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	510	633	
==>ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	510	633	
==>ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	510	633	
==>ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    re <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12569	12669	
==>n be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used whe <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12569	12669	
==>n be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2303	2401	
==>ultisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is contex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2303	2401	
==>ultisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is contex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2303	2401	
==>ultisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is contex <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4715	4809	
==>r die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checks <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4937	5031	
==>r die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checks <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1826	1943	
==>ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1826	1943	
==>ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1826	1943	
==>ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	635	733	
==>- the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-lan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	603	698	
==>- the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-lan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6490	6608	
==>Name'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6490	6608	
==>Name'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6490	6608	
==>Name'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25330	25428	
==>tml>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25330	25428	
==>tml>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4252	4373	
==>pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PT <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4252	4373	
==>pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PT <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1102	1223	
==>pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PT <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	484	595	
==>ck>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    i <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	484	595	
==>ck>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2954	3116	
==>ure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3138	3300	
==>ure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1644	1750	
==>my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1644	1750	
==>my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1644	1750	
==>my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3659	3780	
==>-run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3659	3780	
==>-run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3659	3780	
==>-run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	834	924	
==>:Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacem <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	834	924	
==>:Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacem <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9731	9841	
==>TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $mod <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9731	9841	
==>TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	77	179	
==>Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	77	179	
==>Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	77	179	
==>Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24189	24333	
==>erl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24189	24333	
==>erl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24189	24333	
==>erl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.un <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1639	1752	
==>* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natura <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1639	1752	
==>* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natura <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1551	1666	
==>hod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1551	1666	
==>hod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1551	1666	
==>hod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12917	13024	
==>ata}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27056	27163	
==>ata}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23785	23883	
==>s;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23785	23883	
==>s;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23785	23883	
==>s;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MU <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3843	3936	
==>@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).interse <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3843	3936	
==>@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).interse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7483	7597	
==>acro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7483	7597	
==>acro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7483	7597	
==>acro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4451	4539	
==>or Point3D');
is($p3d->prototype->prototype->class, \&Object, '... go the right super-sup <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5945	6056	
==>gth($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5945	6056	
==>gth($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7550	7646	
==>)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7550	7646	
==>)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7550	7646	
==>)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6761	6870	
==>'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLaz <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6761	6870	
==>'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLaz <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3660	3769	
==>'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLaz <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1506	1598	
==>>code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1506	1598	
==>>code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<ru <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6505	6626	
==>an !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6505	6626	
==>an !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4189	4307	
==>tore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_desc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4189	4307	
==>tore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_desc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4189	4307	
==>tore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_desc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16795	16959	
==>onform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16795	16959	
==>onform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11610	11702	
==>n't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11610	11702	
==>n't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11610	11702	
==>n't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	28	142	
==>) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	28	142	
==>) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Ro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	28	142	
==>) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Ro <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3568	3670	
==>core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3568	3670	
==>core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6004	6114	
==>sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6004	6114	
==>sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6004	6114	
==>sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6806	6904	
==>ove from path (we have $ghc_version).
*** Please install a newer version from http://haskell.org/gh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	185	281	
==>misc/pX/Common/lrep*
# ***************

use strict;
use warnings;
no warnings 'redefine';

use Fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4360	4541	
==>ture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4228	4403	
==>ture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5406	5506	
==>ical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5406	5506	
==>ical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5406	5506	
==>ical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	311	477	
==>dent) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            p <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	311	477	
==>dent) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1736	1888	
==>asses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1736	1888	
==>asses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1736	1888	
==>asses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	674	816	
==>pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=he <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	674	816	
==>pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=he <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	739	853	
==>L2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	739	853	
==>L2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	739	853	
==>L2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20936	21077	
==>('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43860	44001	
==>('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24309	24421	
==>max) {
        push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, " <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1752	1845	
==>ipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1752	1845	
==>ipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14228	14344	
==>ttrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17705	17821	
==>ttrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17121	17237	
==>ttrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pus <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7538	7650	
==>as argument a list:



### we don't need a "high" level interface (named args) 

###    because the actual rule o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7282	7391	
==>as argument a list:

### we don't need a "high" level interface (named args) 
###    because the actual rule o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4368	4471	
==>element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4553	4656	
==>element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3337	3439	
==>$node = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = B::class($ob <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9795	9890	
==>turn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9795	9890	
==>turn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $spa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9240	9334	
==>turn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9240	9334	
==>turn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	823	927	
==>, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	823	927	
==>, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	823	927	
==>, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14127	14226	
==>y @params = $self->params;

    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim-> <==
5	/Users/nnunley/pugs/util/package-osx.pl	2021	2110	
==>site_perl/Class/Rebless.pm /Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/per <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2559	2668	
==>e same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differe <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2559	2668	
==>e same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16289	16392	
==>rl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16289	16392	
==>rl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16289	16392	
==>rl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5255	5377	
==>ributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5255	5377	
==>ributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            docu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5054	5236	
==>version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5054	5236	
==>version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2170	2293	
==>eturn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2170	2293	
==>eturn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2170	2293	
==>eturn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} : <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4642	4761	
==>.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differen <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4642	4761	
==>.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differen <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14387	14497	
==>}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1] <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1867	1977	
==>}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1] <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8665	8756	
==>!.
p5_modifier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charse <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8985	9103	
==>"spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Ma <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8985	9103	
==>"spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3822	3919	
==>s which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3822	3919	
==>s which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3822	3919	
==>s which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17587	17686	
==>item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17587	17686	
==>item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17587	17686	
==>item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	98	193	
==>hat
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxima <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	98	193	
==>hat
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxima <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7515	7612	
==>_tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7515	7612	
==>_tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded an <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10352	10448	
==>g, hash vs array).  The deferred validations are performed
on demand at some time after the input <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10352	10448	
==>g, hash vs array).  The deferred validations are performed
on demand at some time after the input <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23310	23404	
==>ation::Example data type is proposed to be
generally useful, and very basic, and worthy of incl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11915	12060	
==>'\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8197	8342	
==>'\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9031	9176	
==>'\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4757	4875	
==>$length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4757	4875	
==>$length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12116	12243	
==>:Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2518	2631	
==>:Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2518	2631	
==>:Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::T <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11188	11286	
==>f all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11188	11286	
==>f all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	175	303	
==>> { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	175	303	
==>> { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	438	558	
==>eAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self- <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	458	566	
==>eAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self- <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3754	3849	
==>sed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pa <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3754	3849	
==>sed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5951	6046	
==>sed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8788	8893	
==>ugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a te <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8788	8893	
==>ugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a te <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	11915	12019	
==>t;
      my $syn_path = catfile($output_dir, "Synopsis", "$linkfile.html");
      $output .= "<a href='". <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9044	9147	
==>ugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a te <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9044	9147	
==>ugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4041	4142	
==>vified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4041	4142	
==>vified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4041	4142	
==>vified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_unde <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10172	10268	
==>ined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10172	10268	
==>ined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', % <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36533	36630	
==>tial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41082	41179	
==>tial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12787	12878	
==>s->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12787	12878	
==>s->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12787	12878	
==>s->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13902	13998	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13902	13998	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13902	13998	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot run <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	97	188	
==>e;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM:: <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	97	188	
==>e;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	567	697	
==>time::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	954	1084	
==>time::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	567	697	
==>time::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	954	1084	
==>time::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5676	5793	
==>Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub recompile {
    my $class = shift;

    # tokenizer
    %hash <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13154	13309	
==>variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21204	21359	
==>variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13433	13588	
==>variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21483	21638	
==>variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3120	3242	
==>b preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions(
            "$self-> <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1095	1185	
==>$code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) ) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1095	1185	
==>$code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) ) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21301	21398	
==>h are unique across all Perl packages
(perhaps the key name can start with the package name?).  An <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21301	21398	
==>h are unique across all Perl packages
(perhaps the key name can start with the package name?).  An <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7351	7441	
==>::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_al <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7351	7441	
==>::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_al <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7351	7441	
==>::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_al <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2086	2210	
==>s $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2226	2350	
==>s $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12740	12839	
==>_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12740	12839	
==>_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12740	12839	
==>_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1419	1514	
==>er

allocation, as well as the compile-time-bound values for them.

It includes the parameters a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	27	120	
==>hod map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1359	1452	
==>er
allocation, as well as the compile-time-bound values for them.
It includes the parameters a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	27	120	
==>hod map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	27	120	
==>hod map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15291	15412	
==>0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15291	15412	
==>0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15291	15412	
==>0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11012	11109	
==>tions) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext? <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11012	11109	
==>tions) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext? <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3205	3325	
==>tart = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3205	3325	
==>tart = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3072	3180	
==>($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3072	3180	
==>($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3072	3180	
==>($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	662	767	
==>d_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_v <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	662	767	
==>d_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5580	5712	
==>("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $sel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5580	5712	
==>("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40583	40697	
==>ayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40583	40697	
==>ayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40583	40697	
==>ayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1268	1389	
==>rs
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %pa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1268	1389	
==>rs
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1678	1776	
==>',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1678	1776	
==>',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1678	1776	
==>',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(Ev <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3804	3899	
==>nfix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3804	3899	
==>nfix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	721	815	
==>ment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	721	815	
==>ment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	721	815	
==>ment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25167	25260	
==>on $other!) returns Bool>

This method returns a Bool indicating whether the immutable identit <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29719	29812	
==>on $other!) returns Bool>

This method returns a Bool indicating whether the immutable identit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	415	501	
==>6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	415	501	
==>6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	415	501	
==>6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4533	4712	
==>ext eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4533	4712	
==>ext eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4533	4712	
==>ext eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	798	895	
==>ION

This module provides information about the remote user that is using your CGI. 
It also attem <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	798	895	
==>ION

This module provides information about the remote user that is using your CGI. 
It also attem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7855	8025	
==>1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7855	8025	
==>1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7855	8025	
==>1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                i <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2228	2334	
==>an't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sourc <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2228	2334	
==>an't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sourc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5231	5333	
==>hannels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5231	5333	
==>hannels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5301	5401	
==>class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5301	5401	
==>class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5301	5401	
==>class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4776	4874	
==>e => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4776	4874	
==>e => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	545	642	
==>eturn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	545	642	
==>eturn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	545	642	
==>eturn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17079	17216	
==>y $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12436	12540	
==>rray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autoviv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12436	12540	
==>rray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autoviv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12436	12540	
==>rray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autoviv <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23961	24064	
==>lies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22734	22837	
==>lies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23961	24064	
==>lies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22734	22837	
==>lies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  T <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10942	11037	
==>assed it, but it will not operate
differently.

The string representation is built by calling th <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1603	1715	
==>tive());
}

sub divide {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || con <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13098	13191	
==>structures (hash refs, array refs, scalars),
which is suitable as a generic data interchange f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18193	18286	
==>structures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13098	13191	
==>structures (hash refs, array refs, scalars),
which is suitable as a generic data interchange f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18193	18286	
==>structures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	898	1004	
==>e extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	898	1004	
==>e extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	898	1004	
==>e extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	710	807	
==>other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1300	1397	
==>other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7029	7136	
==>am" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7041	7148	
==>am" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2868	2971	
==>ugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2868	2971	
==>ugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $na <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2868	2971	
==>ugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $na <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11688	11802	
==>sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12046	12160	
==>sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>' <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15312	15421	
==>elf->reduce($ast);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($par <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2602	2708	
==>pty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2602	2708	
==>pty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10540	10677	
==>lems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10540	10677	
==>lems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10540	10677	
==>lems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list o <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1545	1646	
==>ds) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1603	1704	
==>ds) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2854	2975	
==>it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2854	2975	
==>it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2854	2975	
==>it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Cl <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16509	16623	
==>o)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_no <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20384	20474	
==>nondeterministic
finite-state machine (aka syntax charts or "railroad normal form" in
parsi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9679	9852	
==>ield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # e <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9679	9852	
==>ield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	784	915	
==>ss [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1086	1202	
==>the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value fo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4564	4680	
==>the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3128	3240	
==>ive call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3128	3240	
==>ive call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3128	3240	
==>ive call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      define <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2106	2203	
==>ciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interf <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2106	2203	
==>ciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interf <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	681	790	
==>$0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	681	790	
==>$0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2664	2757	
==>ve_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2664	2757	
==>ve_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2664	2757	
==>ve_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13303	13401	
==>rce =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`) <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13303	13401	
==>rce =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`) <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	8	120	
==>GI::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for % <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	8	120	
==>GI::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2457	2557	
==>::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2457	2557	
==>::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2457	2557	
==>::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main p <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14369	14480	
==>arget = $P0
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = length target
    inc p <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	892	988	
==>ir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24934	25027	
==>2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores da <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24934	25027	
==>2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores da <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	822	912	
==>ir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3547	3708	
==>r->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3547	3708	
==>r->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things') <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3547	3708	
==>r->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things') <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18484	18579	
==>y use the perl regcompp and regexecp hooks (C functions
which get called on regular expression c <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2774	2869	
==>y use the perl regcompp and regexecp hooks (C functions
which get called on regular expression c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13590	13752	
==>:List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13590	13752	
==>:List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13590	13752	
==>:List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15490	15612	
==>urst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15490	15612	
==>urst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run a <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1436	1550	
==>, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module provides a Perl i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8713	8803	
==>hod load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8713	8803	
==>hod load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27718	27805	
==>_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_on(prog <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8512	8659	
==>{
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8512	8659	
==>{
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1734	1849	
==>it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1939	2054	
==>it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2002	2117	
==>it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	136	301	
==>RT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	136	301	
==>RT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	136	301	
==>RT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1973	2068	
==>ography> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1973	2068	
==>ography> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10321	10457	
==>ams => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10321	10457	
==>ams => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10321	10457	
==>ams => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scala <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1987	2087	
==>) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1987	2087	
==>) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5453	5567	
==>) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->is <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5738	5852	
==>) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3262	3367	
==>n all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3262	3367	
==>n all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3262	3367	
==>n all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6513	6646	
==>llow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that th <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6513	6646	
==>llow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9454	9573	
==>rn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9454	9573	
==>rn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9454	9573	
==>rn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	750	841	
==>ammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1128	1219	
==>ammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1767	1858	
==>ammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2202	2293	
==>ammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	750	841	
==>ammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delim <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2752	2868	
==>cute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2752	2868	
==>cute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1801	1902	
==>1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1801	1902	
==>1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1801	1902	
==>1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuf <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9699	9803	
==>f.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $sel <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9699	9803	
==>f.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	953	1048	
==>otstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	953	1048	
==>otstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	953	1048	
==>otstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_R <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1760	1873	
==>rollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1760	1873	
==>rollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1760	1873	
==>rollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	124	223	
==>ray-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	124	223	
==>ray-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5011	5135	
==>vaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5011	5135	
==>vaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5011	5135	
==>vaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14831	14935	
==>cale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14831	14935	
==>cale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2063	2179	
==>al($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shif <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2063	2179	
==>al($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22285	22380	
==>ethod not to actually create any objects.  Afterwards, it is an array
reference of (node) object <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3374	3468	
==>my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3374	3468	
==>my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11827	11989	
==>f $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11827	11989	
==>f $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11827	11989	
==>f $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {} <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	630	741	
==>imeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	630	741	
==>imeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26915	27051	
==>minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9957	10081	
==>order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no pa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7897	8021	
==>order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no pa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9957	10081	
==>order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no pa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7897	8021	
==>order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14618	14754	
==>f->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14618	14754	
==>f->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14618	14754	
==>f->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8079	8210	
==>:greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ g <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7802	7928	
==>:greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ g <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3430	3567	
==>}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octe <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3430	3567	
==>}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1504	1600	
==>O - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1504	1600	
==>O - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1504	1600	
==>O - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	217	316	
==>eyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	208	306	
==>eyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21126	21220	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21126	21220	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21126	21220	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13165	13278	
==>table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13165	13278	
==>table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13165	13278	
==>table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4463	4575	
==>moved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optim <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4463	4575	
==>moved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optim <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1754	1945	
==>%events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element> <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1754	1945	
==>%events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4270	4383	
==>self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4270	4383	
==>self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4270	4383	
==>self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10461	10610	
==>},
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10461	10610	
==>},
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10461	10610	
==>},
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq ' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	413	516	
==>d (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	413	516	
==>d (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11806	11958	
==>gcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);

      if ($n =~ /\d/) {
        --&RxPOS;
        my $v = "";

        # outs <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10351	10451	
==>ms into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is al <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8244	8344	
==>ms into the set. Returns the number of items inserted.

It is not fatal to insert an item which is al <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10351	10451	
==>ms into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is al <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8244	8344	
==>ms into the set. Returns the number of items inserted.

It is not fatal to insert an item which is al <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4084	4185	
==>the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of ex <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4084	4185	
==>the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4164	4265	
==>the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of ex <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21113	21208	
==>ning text for users, and your program would use
associated keys internally.

It is strongly sugg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21113	21208	
==>ning text for users, and your program would use
associated keys internally.

It is strongly sugg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5210	5318	
==>e::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6478	6586	
==>e::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5210	5318	
==>e::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6466	6574	
==>e::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4429	4528	
==>hunk will
finish, the stacks will be popped once more, and the whole AST is now reduced
to 11.

Inhe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	285	481	
==>add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $() ,}
            } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2702	2859	
==>slash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17089	17202	
==>er loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20566	20679	
==>er loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20144	20257	
==>er loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	445	540	
==>dule     = undef;
$::EigenClass = undef;

## --------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	445	540	
==>dule     = undef;
$::EigenClass = undef;

## --------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	445	540	
==>dule     = undef;
$::EigenClass = undef;

## --------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21383	21477	
==>ten to it should easily port
to alternative relational database engines with minimal effort.

T <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21383	21477	
==>ten to it should easily port
to alternative relational database engines with minimal effort.

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8134	8291	
==>match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8134	8291	
==>match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8134	8291	
==>match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	841	930	
==>al shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - inst <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	841	930	
==>al shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - inst <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3907	4007	
==>empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The ar <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3907	4007	
==>empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	435	534	
==>rt BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	435	534	
==>rt BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	435	534	
==>rt BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4263	4365	
==>".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4263	4365	
==>".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_se <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4263	4365	
==>".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_se <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10690	10785	
==>, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10690	10785	
==>, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12944	13145	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12944	13145	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12944	13145	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pop <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2307	2435	
==>n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2307	2435	
==>n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11161	11358	
==>mp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11161	11358	
==>mp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyth <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11161	11358	
==>mp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyth <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2029	2135	
==>aluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2169	2275	
==>aluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8187	8295	
==>ub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8187	8295	
==>ub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8187	8295	
==>ub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9127	9226	
==>quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9123	9222	
==>quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implement <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2124	2225	
==>cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (Y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2124	2225	
==>cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (Y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2124	2225	
==>cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (Y <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7848	7941	
==>andler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.ke <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7848	7941	
==>andler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1886	1992	
==>:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1886	1992	
==>:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1886	1992	
==>:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4131	4227	
==>ne), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4131	4227	
==>ne), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@ne <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8632	8817	
==>&& system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1782	1944	
==>&& system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3488	3612	
==>ift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3488	3612	
==>ift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3488	3612	
==>ift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7472	7625	
==>universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.u <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7472	7625	
==>universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6148	6238	
==>SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6148	6238	
==>SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6148	6238	
==>SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MU <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13747	13868	
==>' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13741	13862	
==>' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1672	1776	
==>tuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1672	1776	
==>tuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1908	2012	
==>tuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4231	4358	
==>ew( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die " <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7708	7835	
==>ew( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die " <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6692	6819	
==>ew( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19297	19398	
==>N - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19297	19398	
==>N - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	448	551	
==>ests are passing.  While
# the spike "coded to the tests", and thus is far from being a
# complete p5 co <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6346	6442	
==>ubset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($tw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5476	5572	
==>ubset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6346	6442	
==>ubset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5476	5572	
==>ubset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($tw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2343	2466	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2343	2466	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2343	2466	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1404	1511	
==>= $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1404	1511	
==>= $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13131	13301	
==>_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13131	13301	
==>_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13131	13301	
==>_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )-> <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7652	7800	
==>read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $in <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7652	7800	
==>read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1344	1455	
==>ass($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1344	1455	
==>ass($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1344	1455	
==>ass($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ... <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2236	2340	
==>alBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHO <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2236	2340	
==>alBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8754	8859	
==>PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8754	8859	
==>PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8754	8859	
==>PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = ar <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9858	9954	
==>an object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9858	9954	
==>an object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17781	17876	
==>ent = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the so <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17781	17876	
==>ent = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the so <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	805	898	
==>es a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_n <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	805	898	
==>es a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_n <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5658	5748	
==>ple_character  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\]> }
rule metacharacter { <[\{\}\[\]\(\)\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5041	5165	
==>r->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($sel <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5041	5165	
==>r->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($sel <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5631	5755	
==>r->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1586	1701	
==>s not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLAS <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1586	1701	
==>s not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLAS <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8468	8561	
==>e_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2293	2386	
==>e_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3443	3535	
==>ib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3443	3535	
==>ib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3443	3535	
==>ib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2258	2391	
==>ode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroiz <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2258	2391	
==>ode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroiz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6280	6365	
==>---------------------------------------------------------------------
## Module

$::Mo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6280	6365	
==>---------------------------------------------------------------------
## Module

$::Mo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6280	6365	
==>---------------------------------------------------------------------
## Module

$::Mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6850	6965	
==>x:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6850	6965	
==>x:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6850	6965	
==>x:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is p <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9435	9548	
==>$string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $res <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9435	9548	
==>$string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $res <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4310	4422	
==>spatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4310	4422	
==>spatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4310	4422	
==>spatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatche <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2038	2144	
==>nf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refer <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2038	2144	
==>nf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3800	3914	
==>g{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3800	3914	
==>g{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3800	3914	
==>g{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	712	816	
==>r, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	712	816	
==>r, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8060	8192	
==>discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8060	8192	
==>discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookie <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10692	10804	
==>n."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14169	14281	
==>n."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13468	13580	
==>n."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more effi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11585	11687	
==>le($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11585	11687	
==>le($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11585	11687	
==>le($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2547	2640	
==>:List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Cont <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2547	2640	
==>:List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Cont <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	780	896	
==>d intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	780	896	
==>d intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6796	6900	
==>er way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6796	6900	
==>er way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6796	6900	
==>er way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	129	240	
==>PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optiona <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	129	240	
==>PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optiona <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15140	15246	
==>DO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18617	18723	
==>DO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18033	18139	
==>DO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4773	4924	
==>>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4785	4936	
==>>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1197	1301	
==>y,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1197	1301	
==>y,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1197	1301	
==>y,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4650	4796	
==>_->add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'looser',
        other => 'or',
    );
    
    # '->' is not an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	821	936	
==>.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	821	936	
==>.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	821	936	
==>.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7184	7293	
==>mitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7184	7293	
==>mitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is prim <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7184	7293	
==>mitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is prim <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13868	13984	
==>of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13868	13984	
==>of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11781	11878	
==>oles can be polymorphic to one another. 

Because instances of class all conform to the Role inter <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11781	11878	
==>oles can be polymorphic to one another. 

Because instances of class all conform to the Role inter <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11781	11878	
==>oles can be polymorphic to one another. 

Because instances of class all conform to the Role inter <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	615	742	
==>Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Un <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	615	742	
==>Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4718	4840	
==>|| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4718	4840	
==>|| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4718	4840	
==>|| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->ne <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16943	17048	
==>attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20420	20525	
==>attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19998	20103	
==>attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12608	12706	
==>s an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Retur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12608	12706	
==>s an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	219	338	
==>, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	213	332	
==>, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	219	338	
==>, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	213	332	
==>, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param-> <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	101	195	
==>ule::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';

use strict;
use Confi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8681	8853	
==>elf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8681	8853	
==>elf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8681	8853	
==>elf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	740	833	
==>symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	740	833	
==>symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1495	1609	
==>proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chun <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1495	1609	
==>proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17157	17264	
==>ue
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17157	17264	
==>ue
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17157	17264	
==>ue
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1852	2019	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# exper <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6787	6954	
==>ft;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# exper <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1635	1793	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# exper <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6564	6722	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# exper <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1635	1793	
==>ft;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# exper <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5123	5240	
==>e) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16159	16276	
==>e) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17647	17764	
==>e) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22330	22447	
==>e) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self- <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	776	876	
==>ir/$plxname.bat")
    or die "Can't create $testdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12724	12862	
==>tatus{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed;
          return $status <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23534	23671	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23813	23950	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} ) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3086	3218	
==>tatus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3086	3218	
==>tatus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12144	12291	
==>cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12138	12285	
==>cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1699	1805	
==>>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1699	1805	
==>>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1699	1805	
==>>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4034	4137	
==>'(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4034	4137	
==>'(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4034	4137	
==>'(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8668	8764	
==>s fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=b <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8668	8764	
==>s fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	134	238	
==>rl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	134	238	
==>rl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	134	238	
==>rl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15066	15166	
==>s a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15066	15166	
==>s a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3182	3308	
==>rl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3182	3308	
==>rl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3182	3308	
==>rl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ce <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11802	11921	
==>ym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	211	325	
==>ym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7913	8013	
==>IS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec:: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7913	8013	
==>IS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec:: <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1080	1174	
==>rver_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan litt <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1080	1174	
==>rver_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan litt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13067	13154	
==>(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13067	13154	
==>(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13067	13154	
==>(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6 <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2257	2384	
==>or that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we go <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2257	2384	
==>or that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we go <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5583	5710	
==>935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5583	5710	
==>935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34582	34678	
==>s C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39132	39228	
==>s C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38638	38734	
==>s C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1414	1512	
==>$method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1619	1717	
==>$method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1680	1778	
==>$method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $met <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40443	40537	
==>right notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
us <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40443	40537	
==>right notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
us <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1943	2051	
==>"RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1943	2051	
==>"RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7290	7465	
==>$tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7290	7465	
==>$tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7290	7465	
==>$tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _( <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2494	2604	
==>{ $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket c <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2494	2604	
==>{ $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26941	27039	
==>ts to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Messa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26941	27039	
==>ts to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Messa <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3256	3350	
==>uilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builde <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3256	3350	
==>uilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5453	5547	
==>uilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4269	4402	
==>:superclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2884	3016	
==>:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3089	3221	
==>:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3805	3921	
==>mar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3669	3781	
==>mar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	290	394	
==>nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	290	394	
==>nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Conta <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	290	394	
==>nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Conta <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	40	133	
==>emote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	40	133	
==>emote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1902	2029	
==>n Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1902	2029	
==>n Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1547	1646	
==>eturn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1547	1646	
==>eturn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1547	1646	
==>eturn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17211	17321	
==>y $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->er <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13632	13742	
==>y $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->er <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1483	1580	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1483	1580	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1483	1580	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, unde <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36999	37097	
==>message );

=back

The Translator class also has these utility methods, which are all used by
trans <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36999	37097	
==>message );

=back

The Translator class also has these utility methods, which are all used by
trans <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1233	1329	
==>}
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (split <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1233	1329	
==>}
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (split <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1233	1329	
==>}
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (split <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10150	10267	
==>if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ke <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10150	10267	
==>if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ke <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10150	10267	
==>if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ke <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1429	1536	
==>NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.n <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1429	1536	
==>NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11286	11408	
==>( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11286	11408	
==>( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11286	11408	
==>( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $th <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6335	6431	
==><BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constru <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6335	6431	
==><BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constru <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1537	1648	
==>sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # r <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1537	1648	
==>sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5851	5961	
==>sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # r <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5851	5961	
==>sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34113	34206	
==>yof_range

Family: anyof_range

Types: anyof_range (C<X-Y>)

Data: array reference of lower an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5192	5339	
==>ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5028	5171	
==>ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6344	6468	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6344	6468	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6344	6468	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14576	14738	
==>{
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITC <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18053	18215	
==>{
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITC <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17469	17631	
==>{
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITC <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1808	1925	
==>e ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($program);
    $pr <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3639	3735	
==>f->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14764	14893	
==>"<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are ha <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14758	14887	
==>"<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1318	1428	
==>eys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1318	1428	
==>eys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1318	1428	
==>eys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modif <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7106	7202	
==>le only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7106	7202	
==>le only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6523	6608	
==>ttribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6523	6608	
==>ttribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6523	6608	
==>ttribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3896	4000	
==>ctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3896	4000	
==>ctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3896	4000	
==>ctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17945	18039	
==>e, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17945	18039	
==>e, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2355	2473	
==>BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2355	2473	
==>BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2355	2473	
==>BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1053	1231	
==>ass} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    retu <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1053	1231	
==>ass} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2217	2318	
==>.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2217	2318	
==>.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ari <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2217	2318	
==>.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ari <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12991	13102	
==>|| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12991	13102	
==>|| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12991	13102	
==>|| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1706	1815	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undef <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1706	1815	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undef <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5320	5432	
==>els>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parent <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5320	5432	
==>els>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parent <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5417	5509	
==>f-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5417	5509	
==>f-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5417	5509	
==>f-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8326	8446	
==>mptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8326	8446	
==>mptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8326	8446	
==>mptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3258	3356	
==>y $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method cont <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3258	3356	
==>y $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	354	521	
==>l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	354	521	
==>l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	354	521	
==>l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2905	3010	
==>o define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connect <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2905	3010	
==>o define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connect <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16901	17049	
==>atch ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17180	17328	
==>atch ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19676	19769	
==>leton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19676	19769	
==>leton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19676	19769	
==>leton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_metho <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17447	17552	
==>gin
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17447	17552	
==>gin
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	327	415	
==>erl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	327	415	
==>erl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	327	415	
==>erl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1512	1621	
==>Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add calle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1512	1621	
==>Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add calle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1512	1621	
==>Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add calle <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11258	11349	
==>child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11258	11349	
==>child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_ch <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	125	227	
==>rint "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$a[0]";
Perl 6: my @array = ( <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	961	1078	
==>') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	961	1078	
==>') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6088	6192	
==>itialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6088	6192	
==>itialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6088	6192	
==>itialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	874	986	
==>re defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	874	986	
==>re defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	874	986	
==>re defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2191	2294	
==>set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2191	2294	
==>set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	324	509	
==>s,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	324	509	
==>s,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	324	509	
==>s,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            ' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9690	9784	
==>t one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set conta <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9690	9784	
==>t one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set conta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22077	22332	
==>" )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22356	22611	
==>" )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1011	1115	
==>n we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1011	1115	
==>n we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen t <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	266	365	
==>ppearing, and
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
clas <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12563	12692	
==>sts -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip fu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3780	3887	
==>ap = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7257	7364	
==>ap = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7760	7858	
==>ay2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7760	7858	
==>ay2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2211	2353	
==>[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2211	2353	
==>[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16459	16584	
==>nd give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 cod <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16459	16584	
==>nd give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 cod <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1326	1423	
==>erl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = " <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1195	1302	
==>gify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1195	1302	
==>gify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	759	866	
==>[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2],} }\n" .  
        "\t | ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6051	6153	
==>ns and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data typ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6051	6153	
==>ns and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data typ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4594	4728	
==>. ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4734	4868	
==>. ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19916	20008	
==>s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19916	20008	
==>s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19916	20008	
==>s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
M <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5120	5277	
==>)
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e ge <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6882	7039	
==>)
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	315	405	
==>r stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	315	405	
==>r stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	315	405	
==>r stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10773	10886	
==>t for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readlin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10773	10886	
==>t for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2535	2631	
==>a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2535	2631	
==>a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2535	2631	
==>a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4495	4597	
==>information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4495	4597	
==>information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4495	4597	
==>information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7561	7656	
==>ng data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class tak <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7561	7656	
==>ng data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class tak <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8285	8429	
==>em { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8285	8429	
==>em { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5573	5684	
==>ner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5typ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5573	5684	
==>ner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5typ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6163	6274	
==>ner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5typ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2651	2982	
==>p(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'), <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2816	2932	
==>> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Num  $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2370	2504	
==>me => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'prefix:<say>',
    #);
    
    __PACKAGE_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21730	21826	
==>modified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20611	20707	
==>modified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21730	21826	
==>modified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20611	20707	
==>modified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12518	12626	
==>ndler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	706	814	
==>ode = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but ca <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12518	12626	
==>ndler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, lo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	706	814	
==>ode = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	706	814	
==>ode = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9235	9342	
==>f->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9235	9342	
==>f->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9235	9342	
==>f->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4916	5011	
==>S::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary! <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1543	1638	
==>er modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4916	5011	
==>S::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4916	5011	
==>S::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1543	1638	
==>er modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	454	550	
==>herit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method he <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	454	550	
==>herit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7922	8017	
==>s Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  h <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	152	243	
==>s Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
h <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	152	243	
==>s Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15598	15719	
==>) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $mi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10454	10575	
==>) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $mi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1120	1224	
==>,'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1120	1224	
==>,'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1120	1224	
==>,'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11703	11816	
==>dler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $na <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4346	4459	
==>dler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $na <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1982	2088	
==>a('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1664	1766	
==>a('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2312	2414	
==>a('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $b <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2384	2477	
==>perl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the version of a certai <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28806	28897	
==>ertion, branch, close,
clump, digit, exact, flags, group, groupp, minmod, prop, open, quant, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4049	4137	
==><Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=he <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4049	4137	
==><Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5573	5661	
==><Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=he <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13656	13815	
==>turn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9840	9999	
==>turn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10676	10835	
==>turn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4468	4563	
==>de reference, the match object returns the I<result>
object; this is normally the entire match s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4468	4563	
==>de reference, the match object returns the I<result>
object; this is normally the entire match s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2529	2632	
==>_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2529	2632	
==>_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2529	2632	
==>_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bod <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	85	184	
==>eally be an acccessor - all it's doing is making the
# "source" property of the object fallback to " <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	85	184	
==>eally be an acccessor - all it's doing is making the
# "source" property of the object fallback to " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2401	2531	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7495	7625	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2401	2531	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7495	7625	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1033	1121	
==>ath"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $Config{"exclud <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23781	23878	
==>CE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that auto <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22554	22651	
==>CE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that auto <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23781	23878	
==>CE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that auto <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22554	22651	
==>CE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that auto <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	59	140	
==>l/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::In <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1652	1766	
==>l};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1652	1766	
==>l};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9297	9400	
==>e');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9297	9400	
==>e');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message h <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	2393	2494	
==>ean to insert.
# Top level index is file, second level is an array ref of hash refs.
# FIXME: Document <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	509	642	
==>er = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	509	642	
==>er = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3050	3159	
==>d {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refere <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3050	3159	
==>d {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refere <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4812	4906	
==>.
p5_range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true}.

%# XXX - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33214	33328	
==>warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33214	33328	
==>warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33214	33328	
==>warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3460	3562	
==>= $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $un <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3460	3562	
==>= $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $un <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	972	1082	
==>b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2572	2682	
==>b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6574	6683	
==>ethod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canoni <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6574	6683	
==>ethod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canoni <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6574	6683	
==>ethod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canoni <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7365	7532	
==>pendency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{vers <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7829	7996	
==>pendency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{vers <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35384	35479	
==>ll only accept inputs that would result in
a cross-product when joined.  This method has aliases <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39934	40029	
==>ll only accept inputs that would result in
a cross-product when joined.  This method has aliases <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39494	39589	
==>ll only accept inputs that would result in
a cross-product when joined.  This method has aliases <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2346	2581	
==>ol  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1478	1649	
==>ol  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1478	1649	
==>ol  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1304	1396	
==>::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1304	1396	
==>::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6621	6732	
==>tion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning impleme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6621	6732	
==>tion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning impleme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6621	6732	
==>tion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning impleme <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4023	4126	
==>(@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4023	4126	
==>(@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16948	17039	
==>sReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16948	17039	
==>sReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16948	17039	
==>sReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::I <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8933	9085	
==>brule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14662	14814	
==>brule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8933	9085	
==>brule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14656	14808	
==>brule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    } <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1189	1307	
==>ine_c {
	my $self = shift;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10159	10254	
==>d to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10159	10254	
==>d to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23129	23219	
==>e op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23129	23219	
==>e op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23129	23219	
==>e op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49025	49217	
==>mbol->new('?$version' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$version <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12502	12635	
==>' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12502	12635	
==>' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12502	12635	
==>' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26313	26424	
==>->new(
            type::operator::nary->new(list => $b),
            type::operator::nary->new(list => type::op <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9360	9496	
==> $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # othe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9360	9496	
==> $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # othe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1535	1641	
==>Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1535	1641	
==>Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1535	1641	
==>Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	507	610	
==>o}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	507	610	
==>o}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	890	987	
==>stfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	890	987	
==>stfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	890	987	
==>stfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3710	3812	
==>dler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircnam <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3710	3812	
==>dler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircnam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8412	8529	
==>sts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8412	8529	
==>sts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8412	8529	
==>sts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	57	153	
==>hat holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	57	153	
==>hat holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10040	10185	
==>y[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10040	10185	
==>y[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10040	10185	
==>y[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.di <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	812	916	
==>compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	812	916	
==>compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	419	553	
==>f PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	419	553	
==>f PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	419	553	
==>f PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i] <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1799	1898	
==>MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $! <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1799	1898	
==>MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18201	18297	
==>) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18201	18297	
==>) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18201	18297	
==>) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23278	23375	
==>$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23278	23375	
==>$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23278	23375	
==>$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20368	20461	
==>result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf3 <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20368	20461	
==>result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13987	14112	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13987	14112	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13987	14112	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_valu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6240	6352	
==>'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6240	6352	
==>'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3193	3348	
==>'$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3193	3348	
==>'$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3193	3348	
==>'$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15221	15315	
==>gorously defined, such that there
should be no ambiguity when trying to invoke or implement it, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15221	15315	
==>gorously defined, such that there
should be no ambiguity when trying to invoke or implement it, <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1055	1245	
==>n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1055	1245	
==>n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6058	6180	
==>mts"> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6305	6402	
==>al', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6305	6402	
==>al', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3164	3314	
==>]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> x <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3164	3314	
==>]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5454	5586	
==>}
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            pu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5454	5586	
==>}
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            pu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5454	5586	
==>}
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33729	33873	
==>'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33729	33873	
==>'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33729	33873	
==>'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2173	2278	
==>r $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (def <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2231	2336	
==>r $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (def <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2106	2279	
==>pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signature from S29dra <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	314	483	
==>d %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	314	483	
==>d %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	156	251	
==>$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumpe <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	156	251	
==>$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9825	9957	
==>e =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        csta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9825	9957	
==>e =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        csta <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9825	9957	
==>e =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        csta <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1050	1152	
==>xport { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
su <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1050	1152	
==>xport { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14791	14902	
==>h anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14791	14902	
==>h anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14791	14902	
==>h anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1836	1928	
==>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3212	3304	
==>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15463	15646	
==>n;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18940	19123	
==>n;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1492	1609	
==>msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1492	1609	
==>msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $cou <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1492	1609	
==>msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $cou <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7191	7307	
==>, "[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, "]";
    }
  }
}


{
  packag <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23055	23158	
==>turn (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param pmc pad
    .loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1348	1447	
==>/ later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1348	1447	
==>/ later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1348	1447	
==>/ later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $c <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19968	20137	
==>lf:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40428	40597	
==>lf:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2337	2472	
==>||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2337	2472	
==>||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2337	2472	
==>||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1375	1534	
==>s a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=po <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1170	1273	
==>_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.1415 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	68	157	
==>che;

## ----------------------------------------------------------------------------
## n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	68	157	
==>che;

## ----------------------------------------------------------------------------
## n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	68	157	
==>che;

## ----------------------------------------------------------------------------
## n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6106	6206	
==>uld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6106	6206	
==>uld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6106	6206	
==>uld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1160	1248	
==>er::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1380	1468	
==>er::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	701	920	
==>nstant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	702	921	
==>nstant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9954	10070	
==>($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9954	10070	
==>($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9954	10070	
==>($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ma <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5982	6081	
==>ld be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3656	3755	
==>::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5982	6081	
==>ld be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3656	3755	
==>::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5853	5952	
==>::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	313	415	
==>t Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pro <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	274	376	
==>t Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	274	376	
==>t Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pro <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2945	3042	
==>rray::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @values <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4702	4798	
==>rray::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @values <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	255	504	
==>only = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) r <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	255	504	
==>only = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	983	1093	
==>blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1210	1320	
==>blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1437	1547	
==>blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    r <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	559	667	
==>b run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14039	14130	
==>wump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mis <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10266	10357	
==>wump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mis <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14039	14130	
==>wump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mis <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10266	10357	
==>wump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mis <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3263	3421	
==>it_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15524	15642	
==>) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15524	15642	
==>) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2299	2431	
==>eg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2846	2978	
==>eg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3393	3525	
==>eg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2003	2126	
==>s>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2003	2126	
==>s>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1865	1986	
==>epare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { . <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1865	1986	
==>epare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5408	5519	
==>ole->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5408	5519	
==>ole->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5408	5519	
==>ole->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	356	483	
==>oup started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	356	483	
==>oup started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7061	7160	
==>id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7061	7160	
==>id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7061	7160	
==>id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3277	3389	
==>ller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7003	7104	
==>x:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @res <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	3	104	
==>ckage Pkg_re_tests;
use strict;

our $bl;  # this is questionable.


# verbatim from perl-5.9.2/t/op/r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7003	7104	
==>x:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7003	7104	
==>x:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @res <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12499	12599	
==>.

- Discrete span

This is used to represent ranges of things that can be counted, such as beats per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1398	1498	
==>,
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Str <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12499	12599	
==>.

- Discrete span

This is used to represent ranges of things that can be counted, such as beats per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1398	1498	
==>,
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1398	1498	
==>,
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3016	3134	
==>nclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3016	3134	
==>nclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3016	3134	
==>nclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->s <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	943	1046	
==>urn %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:] <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	943	1046	
==>urn %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	209	312	
==>tensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	209	312	
==>tensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	209	312	
==>tensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	214	315	
==>ur $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $fi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	214	315	
==>ur $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2809	2928	
==>tically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2809	2928	
==>tically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2809	2928	
==>tically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13884	13983	
==>ns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skippe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13942	14041	
==>ns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skippe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11619	11748	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2103	2229	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8875	9001	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2103	2229	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8875	9001	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4854	4973	
==>n 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4854	4973	
==>n 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4854	4973	
==>n 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31497	31592	
==>on has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36047	36142	
==>on has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	615	710	
==>.output>

The filehandle to which to write all normal output (test results and
descriptions).

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	615	710	
==>.output>

The filehandle to which to write all normal output (test results and
descriptions).

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1171	1266	
==>.output>

The filehandle to which to write all normal output (test results and
descriptions).

= <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38667	38760	
==>llo World!".  All
occurances of any given variable name will be replaced, non-recursively,
and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38667	38760	
==>llo World!".  All
occurances of any given variable name will be replaced, non-recursively,
and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	750	858	
==>)\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	750	858	
==>)\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	750	858	
==>)\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39151	39236	
==>ain dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39151	39236	
==>ain dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5672	5793	
==>/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5672	5793	
==>/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5672	5793	
==>/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_ma <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35842	35936	
==>th the
invocant relation into a new Relation, such that all common attribute names
and correspo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40392	40486	
==>th the
invocant relation into a new Relation, such that all common attribute names
and correspo <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1035	1131	
==>You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effi <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1035	1131	
==>You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1577	1667	
==>d lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1577	1667	
==>d lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1577	1667	
==>d lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3788	3890	
==>named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3788	3890	
==>named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4378	4480	
==>named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->nam <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12356	12457	
==>O_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message', <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12356	12457	
==>O_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message', <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2020	2175	
==>imental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1794	1943	
==>imental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8379	8528	
==>imental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1794	1943	
==>imental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8379	8528	
==>imental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4832	4933	
==>n't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4832	4933	
==>n't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4832	4933	
==>n't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5148	5245	
==>odule_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)/ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5148	5245	
==>odule_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)/ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4473	4589	
==>or 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4473	4589	
==>or 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1149	1247	
==>[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1149	1247	
==>[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1149	1247	
==>[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21087	21179	
==>=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21087	21179	
==>=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11243	11329	
==>Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1701	1785	
==>Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1701	1785	
==>Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2889	3043	
==>, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shif <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40562	40655	
==>RRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26076	26169	
==>RRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPO <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40562	40655	
==>RRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26076	26169	
==>RRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPO <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5230	5436	
==>stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @mod <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5230	5436	
==>stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2431	2527	
==>, $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapSt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2431	2527	
==>, $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapSt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2431	2527	
==>, $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapSt <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4814	4982	
==>_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8291	8459	
==>_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7293	7461	
==>_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relatio <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18263	18358	
==>head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18263	18358	
==>head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the serv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15349	15457	
==>t}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15349	15457	
==>t}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15349	15457	
==>t}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	39	127	
==>XPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	39	127	
==>XPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1787	1890	
==>de;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1787	1890	
==>de;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29441	29536	
==>s.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/un <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33993	34088	
==>s.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/un <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33157	33252	
==>s.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13075	13179	
==>esult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13075	13179	
==>esult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	439	530	
==>_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	439	530	
==>_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	439	530	
==>_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11208	11416	
==>::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7490	7698	
==>::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8324	8532	
==>::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9526	9646	
==>ge, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherw <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9526	9646	
==>ge, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherw <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	640	869	
==>{
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	640	869	
==>{
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34828	34963	
==>w {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      fami <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8747	8880	
==>w {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [[]],
      fami <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10285	10384	
==>stance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10285	10384	
==>stance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10285	10384	
==>stance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6698	6843	
==>ail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6698	6843	
==>ail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35209	35302	
==>i-method is a generic binary relational operator that is identical
to C<join> except that this <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39759	39852	
==>i-method is a generic binary relational operator that is identical
to C<join> except that this <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39319	39412	
==>i-method is a generic binary relational operator that is identical
to C<join> except that this <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11792	11932	
==>$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8074	8214	
==>$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8908	9048	
==>$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\" <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6385	6497	
==>f || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    r <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6385	6497	
==>f || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11484	11645	
==>match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$sr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7766	7927	
==>match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$sr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8600	8761	
==>match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$sr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9451	9541	
==>lication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3276	3366	
==>lication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5042	5183	
==>ts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5042	5183	
==>ts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5042	5183	
==>ts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8704	8809	
==>et.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8704	8809	
==>et.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3255	3375	
==>ell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3255	3375	
==>ell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3255	3375	
==>ell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	783	899	
==>ing time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	783	899	
==>ing time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1323	1461	
==>tial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1323	1461	
==>tial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1323	1461	
==>tial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new( <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16523	16642	
==>,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1- <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15577	15688	
==>,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12745	12865	
==>rgs,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connecti <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12745	12865	
==>rgs,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connecti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	85	184	
==>ays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	85	184	
==>ays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	85	184	
==>ays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2436	2539	
==>list in @nodes can NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2859	2961	
==>list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2354	2456	
==>list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2859	2961	
==>list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6693	6774	
==>----------------------------------------------------------------------

ok($Class- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2763	2897	
==>::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	516	636	
==>::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $r <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	516	636	
==>::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15915	16009	
==>ield,
then the server will return a C<304 Not Modified> response instead of
the document itself <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15915	16009	
==>ield,
then the server will return a C<304 Not Modified> response instead of
the document itself <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4613	4736	
==>y $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.mat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4613	4736	
==>y $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6096	6206	
==>xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5902	6007	
==>xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7765	7861	
==>e_object(anyof_char_comp => chr(hex $1), "\\X$1") if $cc;
      return $S->object(exact_comp => c <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2031	2173	
==>f -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2031	2173	
==>f -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2640	2741	
==>e "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2640	2741	
==>e "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2640	2741	
==>e "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	691	799	
==>{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	691	799	
==>{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	691	799	
==>{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL: <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13537	13628	
==>5C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13537	13628	
==>5C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2645	2764	
==>all to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> W <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2645	2764	
==>all to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> W <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2645	2764	
==>all to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> W <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10275	10379	
==>.3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10275	10379	
==>.3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16402	16605	
==>ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16402	16605	
==>ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16402	16605	
==>ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10065	10217	
==>apture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10901	11053	
==>apture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	747	943	
==>de->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7975	8070	
==>,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).mem <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7105	7200	
==>,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7975	8070	
==>,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7105	7200	
==>,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).mem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2374	2463	
==>se Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOC <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2374	2463	
==>se Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOC <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2374	2463	
==>se Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOC <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12484	12586	
==>with a new type variable)
# this new env is passed down to the body, but is also reused in the 'type' a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	792	892	
==>-------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	792	892	
==>-------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	792	892	
==>-------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_m <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4026	4121	
==>to $x. Then the app is reduced. First its children will be reduced -
Sym('&infix:<+>') will reso <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	349	458	
==>cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3128	3231	
==>il::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	163	266	
==>cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3128	3231	
==>il::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3128	3231	
==>il::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	166	258	
==>:Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	166	258	
==>:Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	166	258	
==>:Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1230	1318	
==>ionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1230	1318	
==>ionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3675	3787	
==>b { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3675	3787	
==>b { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3675	3787	
==>b { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15221	15330	
==>{ enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $targ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15221	15330	
==>{ enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $targ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4061	4168	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4061	4168	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4061	4168	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12764	12947	
==>{
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12764	12947	
==>{
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12764	12947	
==>{
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	347	467	
==>rl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0.. <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	347	467	
==>rl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9430	9535	
==>= $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9430	9535	
==>= $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9430	9535	
==>= $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = ' <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	926	1017	
==>erl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	926	1017	
==>erl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3067	3197	
==>::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dep <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3531	3661	
==>::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2261	2356	
==>_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2261	2356	
==>_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2261	2356	
==>_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4851	4987	
==>:move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=po <==
5	/Users/nnunley/pugs/misc/Blondie/example.pl	759	863	
==>1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pretty-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	427	528	
==>ts a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucket <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	427	528	
==>ts a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucket <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	427	528	
==>ts a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucket <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9212	9340	
==>";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        conc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13062	13186	
==>";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        conc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13062	13186	
==>";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        conc <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	667	784	
==>ng;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_ <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	667	784	
==>ng;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3136	3268	
==>perclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3136	3268	
==>perclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3136	3268	
==>perclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7623	7722	
==>}];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7623	7722	
==>}];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1576	1712	
==>) . ' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11550	11668	
==>h::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] ruleop::alternatio <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4224	4320	
==>lder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4224	4320	
==>lder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5748	5844	
==>lder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<ou <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	50	146	
==>t @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns A <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	50	146	
==>t @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12929	13054	
==>to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12929	13054	
==>to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12929	13054	
==>to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------- <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	265	367	
==>(Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparis <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	265	367	
==>(Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparis <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2018	2148	
==>rogram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1996	2126	
==>rogram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16996	17112	
==>s->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16996	17112	
==>s->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16996	17112	
==>s->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4147	4260	
==>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4147	4260	
==>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4147	4260	
==>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<! <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	295	405	
==>RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	295	405	
==>RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1354	1490	
==>r {
            take $.subscriptions.members;

            # FIXME this is bullshit - i ought to read the details
            #for $class <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8679	8808	
==>gated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14404	14533	
==>gated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8679	8808	
==>gated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14398	14527	
==>gated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	328	456	
==>val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	328	456	
==>val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2338	2432	
==>use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2338	2432	
==>use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2338	2432	
==>use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	966	1081	
==>f every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	966	1081	
==>f every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13017	13104	
==>_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priva <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13017	13104	
==>_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priva <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13017	13104	
==>_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priva <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9483	9614	
==>ec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exist <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9483	9614	
==>ec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exist <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9637	9755	
==>$max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9637	9755	
==>$max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9637	9755	
==>$max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4891	5004	
==>of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4891	5004	
==>of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3831	3920	
==>---------------------------------------------------------
## Package

## See http://articl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3831	3920	
==>---------------------------------------------------------
## Package

## See http://articl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3831	3920	
==>---------------------------------------------------------
## Package

## See http://articl <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12490	12611	
==>efix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method curr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2564	2674	
==>l:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2564	2674	
==>l:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2564	2674	
==>l:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    t <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5480	5580	
==>as the AST is left they are unified
# a free variable can be instantiated to point to another type ob <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	460	567	
==>ng the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $ta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	471	578	
==>ng the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $ta <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5886	5984	
==>Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5886	5984	
==>Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7410	7508	
==>Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9762	9942	
==>rd);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9762	9942	
==>rd);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1777	1903	
==>ady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1777	1903	
==>ady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1777	1903	
==>ady added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9593	9706	
==>$text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_wi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9593	9706	
==>$text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2137	2230	
==>d_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2137	2230	
==>d_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2137	2230	
==>d_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1474	1581	
==>er::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $fie <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1474	1581	
==>er::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $fie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9299	9397	
==>nction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9299	9397	
==>nction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9299	9397	
==>nction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3942	4063	
==>rn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3942	4063	
==>rn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3942	4063	
==>rn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36730	36827	
==>r object's Set and Member properties; if none
could be matched, this method returns undef.  This m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36730	36827	
==>r object's Set and Member properties; if none
could be matched, this method returns undef.  This m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12744	12870	
==>use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12744	12870	
==>use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12744	12870	
==>use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19242	19336	
==>This header must be included as part of a C<401 Unauthorized> response.
The field value consist <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19242	19336	
==>This header must be included as part of a C<401 Unauthorized> response.
The field value consist <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12659	12776	
==>te {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	802	907	
==>- whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	802	907	
==>- whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	802	907	
==>- whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)} <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6436	6536	
==>rnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29010	29102	
==>elation::Example>

This method is a generic relational operator that returns a new Relation:: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29658	29750	
==>elation::Example>

This method is a generic relational operator that returns a new Relation:: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30819	30911	
==>elation::Example>

This method is a generic relational operator that returns a new Relation:: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34876	34968	
==>elation::Example>

This method is a generic relational operator that returns a new Relation:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9474	9606	
==>elems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9474	9606	
==>elems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9474	9606	
==>elems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12126	12239	
==>dler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $na <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4769	4882	
==>dler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $na <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25395	25604	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             rul <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26053	26262	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25674	25883	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26332	26541	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             rul <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10367	10490	
==>}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3919	4038	
==>!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3919	4038	
==>!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3919	4038	
==>!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5605	5707	
==>xpressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5605	5707	
==>xpressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32507	32606	
==>ift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33162	33261	
==>ift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2399	2497	
==>", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2399	2497	
==>", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2399	2497	
==>", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6952	7076	
==>gs_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6952	7076	
==>gs_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6952	7076	
==>gs_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24415	24519	
==>lternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20836	20940	
==>lternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9721	9844	
==>$pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9721	9844	
==>$pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9721	9844	
==>$pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15542	15633	
==>so export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15542	15633	
==>so export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5779	5963	
==>of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5779	5963	
==>of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5779	5963	
==>of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1772	1880	
==>new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1772	1880	
==>new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

meth <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19891	20009	
==>e_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16312	16430	
==>e_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8999	9104	
==>ULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8999	9104	
==>ULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8999	9104	
==>ULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29628	29736	
==>T' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	756	864	
==>ns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29628	29736	
==>T' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	756	864	
==>ns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	432	528	
==>T' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9096	9240	
==>>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9096	9240	
==>>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9096	9240	
==>>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10022	10202	
==>lf = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10022	10202	
==>lf = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10022	10202	
==>lf = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19144	19237	
==>e
trouble.  Likewise, emulation layers for any other programming language can
be supported, su <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19144	19237	
==>e
trouble.  Likewise, emulation layers for any other programming language can
be supported, su <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5868	5949	
==>lse { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5868	5949	
==>lse { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	351	438	
==>se Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	351	438	
==>se Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	351	438	
==>se Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4528	4670	
==>n_bareword} 
                  ? _mangle_ident( $n->{param}{cpan_bareword} )
                  : _emit( $n->{param}{sub} );
            my @ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23006	23106	
==>s looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other package <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23006	23106	
==>s looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other package <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4363	4450	
==>stance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Rat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4613	4700	
==>stance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Rat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8907	9032	
==>ogram = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8895	9020	
==>ogram = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3483	3593	
==>ub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3483	3593	
==>ub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'E <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3483	3593	
==>ub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6989	7144	
==>tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6989	7144	
==>tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6989	7144	
==>tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retur <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2004	2112	
==>ib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - pa <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2004	2112	
==>ib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - pa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9274	9402	
==>nick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9274	9402	
==>nick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9608	9709	
==>s to be 'resolved'
    # -----------------------------------------------      
    method collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9608	9709	
==>s to be 'resolved'
    # -----------------------------------------------      
    method collect_all_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9608	9709	
==>s to be 'resolved'
    # -----------------------------------------------      
    method collect_all_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14589	14749	
==>}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14589	14749	
==>}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14589	14749	
==>}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3287	3439	
==>s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3287	3439	
==>s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2425	2546	
==>E__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_templat <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2425	2546	
==>E__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_templat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4537	4632	
==>tional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cur <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4537	4632	
==>tional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6061	6156	
==>tional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9807	9926	
==>OTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9807	9926	
==>OTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9807	9926	
==>OTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5911	6009	
==>ars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Mes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5911	6009	
==>ars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Mes <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3113	3229	
==>odo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3113	3229	
==>odo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4637	4753	
==>odo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19544	19643	
==>ended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24096	24195	
==>ended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1843	1956	
==>AL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1843	1956	
==>AL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	393	486	
==>S::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	393	486	
==>S::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	393	486	
==>S::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9533	9653	
==>,
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9533	9653	
==>,
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17662	17756	
==>1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17662	17756	
==>1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17662	17756	
==>1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10246	10391	
==>flush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10246	10391	
==>flush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37070	37165	
==>here a pair of source
relations have zero attributes in common, their joining degenerates to a
C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41619	41714	
==>here a pair of source
relations have zero attributes in common, their joining degenerates to a
C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41242	41337	
==>here a pair of source
relations have zero attributes in common, their joining degenerates to a
C <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24934	25026	
==>nking Rosetta statically or dynamically with other components is making a
combined work based <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8423	8515	
==>CRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24934	25026	
==>nking Rosetta statically or dynamically with other components is making a
combined work based <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8423	8515	
==>CRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8423	8515	
==>CRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=c <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	916	1027	
==>ths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCR <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	916	1027	
==>ths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19912	20007	
==>ething similar but that is more mutable, you can accomplish
that manually using a set of mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24464	24559	
==>ething similar but that is more mutable, you can accomplish
that manually using a set of mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23016	23111	
==>ething similar but that is more mutable, you can accomplish
that manually using a set of mapping <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8681	8779	
==>=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;] <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	27060	27158	
==>appeared in that directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, direc <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	414	512	
==>=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8681	8779	
==>=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8681	8779	
==>=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;] <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	90	207	
==>organ
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 s <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	91	208	
==>organ
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 s <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	91	204	
==>organ
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2875	2982	
==>mute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.nex <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2875	2982	
==>mute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.nex <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	747	837	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1125	1215	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1764	1854	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2199	2289	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	747	837	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_d <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3280	3426	
==>&continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ), <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3280	3426	
==>&continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ), <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5615	5715	
==>ll of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reaso <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5615	5715	
==>ll of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reaso <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7139	7239	
==>ll of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reaso <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1032	1139	
==>represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attribute <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4510	4617	
==>represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attribute <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2396	2495	
==>hing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2396	2495	
==>hing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2396	2495	
==>hing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3510	3686	
==>te} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4439	4611	
==>te} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3400	3572	
==>te} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4439	4611	
==>te} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtra <==
5	/Users/nnunley/pugs/util/combine_tests.pl	2233	2341	
==>@{ $target->{meat}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{even <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12419	12525	
==>ug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12419	12525	
==>ug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11444	11539	
==>ss consturction because it isolates the Role specifc
code to the class that consumed it.

------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11444	11539	
==>ss consturction because it isolates the Role specifc
code to the class that consumed it.

------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11444	11539	
==>ss consturction because it isolates the Role specifc
code to the class that consumed it.

------ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36807	36900	
==>eturns undef.  This method could be
considered to implement the 'main' functionality of Locale <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36807	36900	
==>eturns undef.  This method could be
considered to implement the 'main' functionality of Locale <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21921	22010	
==>ULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21921	22010	
==>ULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21921	22010	
==>ULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8219	8362	
==>->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8219	8362	
==>->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8219	8362	
==>->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	149	250	
==>the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	142	241	
==>the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5217	5329	
==>m = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5217	5329	
==>m = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5217	5329	
==>m = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @v <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7195	7302	
==>ch template text for the given message key from the
        # successfully loaded template module; on a func <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7195	7302	
==>ch template text for the given message key from the
        # successfully loaded template module; on a func <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33678	33798	
==>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33678	33798	
==>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33678	33798	
==>{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1868	1959	
==>"abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1868	1959	
==>"abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5386	5643	
==>);                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5386	5643	
==>);                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11378	11526	
==>lue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may brea <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11378	11526	
==>lue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may brea <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11378	11526	
==>lue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may brea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3421	3540	
==>_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doubl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3421	3540	
==>_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doubl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3421	3540	
==>_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doubl <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3383	3477	
==>Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3383	3477	
==>Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1594	1692	
==>DO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1594	1692	
==>DO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1594	1692	
==>DO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9103	9197	
==>::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = " <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9103	9197	
==>::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = " <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	1952	2056	
==>when 'perl6'   { Pugs::Internals::eval($code) };
            when 'perl5'   { Pugs::Internals::eval_perl5 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5429	5525	
==>nfix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4559	4655	
==>nfix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5429	5525	
==>nfix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4559	4655	
==>nfix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1502	1606	
==>tly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility function <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1502	1606	
==>tly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility function <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2243	2322	
==>ry:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2243	2322	
==>ry:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2243	2322	
==>ry:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31576	31782	
==>h;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31576	31782	
==>h;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31576	31782	
==>h;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10311	10413	
==>zy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop` <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10311	10413	
==>zy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop` <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22321	22415	
==>bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destina <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22321	22415	
==>bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destina <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30389	30482	
==>not resemble those of the original. 
The anonymous function in the argument C<$transformer> is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34941	35033	
==>not resemble those of the original.
The anonymous function in the argument C<$transformer> is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34123	34215	
==>not resemble those of the original.
The anonymous function in the argument C<$transformer> is <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22294	22416	
==>RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18715	18837	
==>RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1	91	
==>ub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1	91	
==>ub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1	91	
==>ub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive { <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	355	473	
==><TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8931	9023	
==>brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifie <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3860	3952	
==>brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifie <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8931	9023	
==>brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifie <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3860	3952	
==>brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifie <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6018	6161	
==>ILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defin <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6018	6161	
==>ILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2486	2581	
==>"S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2486	2581	
==>"S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2486	2581	
==>"S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1729	1826	
==>ad1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifyi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1729	1826	
==>ad1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifyi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1405	1523	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1405	1523	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1405	1523	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7410	7513	
==>illee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7410	7513	
==>illee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2649	2797	
==>=> 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2547	2690	
==>=> 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	965	1067	
==>g) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	965	1067	
==>g) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	435	531	
==>, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  registe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	435	531	
==>, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  registe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	435	531	
==>, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  registe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13940	14035	
==>re overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam " <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10167	10262	
==>re overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam " <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13940	14035	
==>re overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam " <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10167	10262	
==>re overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam " <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8945	9039	
==>[$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4474	4578	
==>_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4474	4578	
==>_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4474	4578	
==>_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13151	13244	
==>es prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<L <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13151	13244	
==>es prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<L <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12918	13046	
==>d normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12918	13046	
==>d normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	997	1108	
==>->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	997	1108	
==>->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCx <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	997	1108	
==>->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCx <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12700	12808	
==>ble( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XX <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28272	28369	
==>ch is suitable
for debugging purposes (such as to test that the object's contents look
good at a g <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35628	35725	
==>ch is suitable
for debugging purposes (such as to test that the object's contents look
good at a g <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28272	28369	
==>ch is suitable
for debugging purposes (such as to test that the object's contents look
good at a g <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35628	35725	
==>ch is suitable
for debugging purposes (such as to test that the object's contents look
good at a g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14649	14756	
==>y_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_la <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14649	14756	
==>y_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_la <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14649	14756	
==>y_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_la <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	424	517	
==>n("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.clo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	424	517	
==>n("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15563	15685	
==>Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15563	15685	
==>Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15563	15685	
==>Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18263	18355	
==>dd_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18263	18355	
==>dd_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<a <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14198	14318	
==>tor.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4271	4383	
==>tor.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4271	4383	
==>tor.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4271	4383	
==>tor.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.va <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	636	742	
==>$named, $positional, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1295	1402	
==>hod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "pos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1295	1402	
==>hod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "pos <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1295	1402	
==>hod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "pos <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2508	2606	
==>ng and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2508	2606	
==>ng and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	173	267	
==>method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method e <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	173	267	
==>method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4668	4758	
==>ses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4668	4758	
==>ses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4668	4758	
==>ses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
bles <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	977	1100	
==>tion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	977	1100	
==>tion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6765	6883	
==>$new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6765	6883	
==>$new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6765	6883	
==>$new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11055	11241	
==>d => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11055	11241	
==>d => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11055	11241	
==>d => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array-> <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2931	3045	
==>, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accen <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2931	3045	
==>, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accen <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	871	990	
==>l_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	871	990	
==>l_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5178	5290	
==>ot::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5178	5290	
==>ot::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5178	5290	
==>ot::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3301	3406	
==>me>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3301	3406	
==>me>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<user <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1556	1652	
==>() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1556	1652	
==>() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1556	1652	
==>() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	457	565	
==>s) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	457	565	
==>s) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	457	565	
==>s) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_ar <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6723	6828	
==>sert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6723	6828	
==>sert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18012	18181	
==>mmon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21489	21658	
==>mmon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21076	21245	
==>mmon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } ) <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3365	3491	
==>keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.de <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3365	3491	
==>keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.de <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8354	8500	
==>new(
            params => closure::params->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8456	8577	
==>e) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8456	8577	
==>e) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19893	19985	
==>bout is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19893	19985	
==>bout is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3144	3269	
==>'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '& <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3144	3269	
==>'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '& <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3144	3269	
==>'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '& <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12461	12557	
==>ct's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hierar <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12461	12557	
==>ct's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hierar <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	203	299	
==>OSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
use const <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7508	7603	
==>ersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetri <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6638	6733	
==>ersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetri <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7508	7603	
==>ersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetri <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6638	6733	
==>ersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetri <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	87	179	
==>MOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	87	179	
==>MOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14095	14234	
==>ve class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14095	14234	
==>ve class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14095	14234	
==>ve class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $metho <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	354	472	
==>or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	338	449	
==>or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8857	8965	
==>$h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8857	8965	
==>$h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5463	5560	
==>ailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5463	5560	
==>ailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5463	5560	
==>ailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28	279	
==>xternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28	279	
==>xternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28	279	
==>xternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28	279	
==>xternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1179	1310	
==>ion.end = duration($/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( de <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	74	171	
==>y be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	74	171	
==>y be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2109	2202	
==>g Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2109	2202	
==>g Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2109	2202	
==>g Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4194	4293	
==>hese methods you should take care not
to call them in function form by mistake; that would not do at <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4194	4293	
==>hese methods you should take care not
to call them in function form by mistake; that would not do at <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4194	4293	
==>hese methods you should take care not
to call them in function form by mistake; that would not do at <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2378	2475	
==>$x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< i <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2378	2475	
==>$x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17608	17720	
==>s Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17608	17720	
==>s Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6554	6645	
==>ar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11612	11703	
==>ar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7754	7885	
==>dex', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7754	7885	
==>dex', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21829	21917	
==>UB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21829	21917	
==>UB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21829	21917	
==>UB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...} <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2282	2432	
==>Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1051	1201	
==>Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8668	8812	
==>RNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8668	8812	
==>RNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8668	8812	
==>RNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6279	6396	
==>eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6291	6408	
==>eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13665	13779	
==>SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17142	17256	
==>SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16504	16618	
==>SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5572	5683	
==>)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that ma <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5572	5683	
==>)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2329	2458	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2329	2458	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2329	2458	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	509	604	
==>er Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Acc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	509	604	
==>er Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Acc <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	531	625	
==>rl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Voi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	531	625	
==>rl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Voi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9553	9646	
==>rot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB requir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9553	9646	
==>rot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB requir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9553	9646	
==>rot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB requir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2574	2692	
==>= @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2574	2692	
==>= @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2574	2692	
==>= @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16238	16352	
==>gation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $ne <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12659	12773	
==>gation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5641	5757	
==>e;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5641	5757	
==>e;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5641	5757	
==>e;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bod <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	229	341	
==>@.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

me <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	229	341	
==>@.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2589	2728	
==>->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2589	2728	
==>->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2589	2728	
==>->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $sel <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20751	20848	
==>hat Relation indicates a failure is to throw an exception;
most often this is due to invalid input <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25303	25400	
==>hat Relation indicates a failure is to throw an exception;
most often this is due to invalid input <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2787	2905	
==>y $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2787	2905	
==>y $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2787	2905	
==>y $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_c <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1700	1793	
==>m $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information> <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1700	1793	
==>m $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1967	2098	
==>] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1967	2098	
==>] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9181	9289	
==>'t check the AUTO flag yet for link management
    LINKING: {   
        my $alt = $self->remove_registered_a <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9419	9525	
==>decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9419	9525	
==>decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+) <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2267	2413	
==>.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify wi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2267	2413	
==>.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify wi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18771	18868	
==>Operator> <AssignmentExpression>
}
rule AssignmentExpressionNoIn :words {  # see 11.13
      <Cond <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17986	18081	
==>empts to make source filtering a sane process, by
parsing up your module's source code into vari <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17986	18081	
==>empts to make source filtering a sane process, by
parsing up your module's source code into vari <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1740	1860	
==>match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2068	2186	
==>match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1681	1799	
==>match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2068	2186	
==>match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7159	7267	
==>.. rFoo now does Role');

my $rBar = $Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	959	1078	
==>l_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	968	1087	
==>l_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5843	5948	
==>evel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5843	5948	
==>evel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5843	5948	
==>evel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5435	5557	
==>shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5435	5557	
==>shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5435	5557	
==>shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2473	2574	
==>for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this m <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2473	2574	
==>for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	283	384	
==>V{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	283	384	
==>V{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	283	384	
==>V{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12476	12573	
==>E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12476	12573	
==>E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=h <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2080	2202	
==>nless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2058	2180	
==>nless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40490	40588	
==>xt is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the im <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40490	40588	
==>xt is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the im <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11966	12064	
==>00**100**100;
my %as_num_handlers =
    ( undef => sub { Carp::carp("p6_as_num called on undef"); $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12261	12402	
==>et );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8537	8678	
==>et );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9372	9513	
==>et );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast- <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6579	6675	
==>e are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6579	6675	
==>e are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12965	13131	
==>en();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12965	13131	
==>en();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1269	1373	
==>mts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1269	1373	
==>mts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1269	1373	
==>mts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	412	557	
==>nt',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	412	557	
==>nt',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	213	301	
==>/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Te <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	213	301	
==>/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Te <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	213	301	
==>/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Te <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4634	4750	
==>q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Com <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4774	4890	
==>q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1872	1965	
==>my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1872	1965	
==>my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1872	1965	
==>my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10420	10551	
==>rops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10420	10551	
==>rops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10420	10551	
==>rops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13869	13986	
==>($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13863	13980	
==>($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cm <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	613	728	
==>+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	580	695	
==>+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	375	477	
==>neric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	375	477	
==>neric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	375	477	
==>neric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?C <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8896	9034	
==>* int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd i <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8896	9034	
==>* int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1151	1258	
==>s.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1151	1258	
==>s.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	27	124	
==>quire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	27	124	
==>quire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	27	124	
==>quire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5940	6074	
==>make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (key <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5940	6074	
==>make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (key <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5940	6074	
==>make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (key <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12247	12343	
==>ml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the curre <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12247	12343	
==>ml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the curre <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3816	3944	
==><->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1916	2044	
==><->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4332	4421	
==>Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4332	4421	
==>Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4332	4421	
==>Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2050	2149	
==>ed across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1409	1504	
==>ntrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1409	1504	
==>ntrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1409	1504	
==>ntrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1974	2068	
==>ed across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	37	295	
==>KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	37	295	
==>KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3270	3405	
==>h") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3270	3405	
==>h") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3270	3405	
==>h") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	82	184	
==>$mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	82	184	
==>$mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	82	184	
==>$mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13474	13570	
==>ader_field_names

Returns the list of distinct names for the fields present in the
header.  The f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13474	13570	
==>ader_field_names

Returns the list of distinct names for the fields present in the
header.  The f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10915	11043	
==>am . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10909	11037	
==>am . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1017	1119	
==>ed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * adde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1017	1119	
==>ed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * adde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1017	1119	
==>ed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * adde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2620	2719	
==>and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2620	2719	
==>and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2620	2719	
==>and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14075	14173	
==>you need to test does not fit into one of the standard
testing functions. In that case, you can use <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14133	14231	
==>you need to test does not fit into one of the standard
testing functions. In that case, you can use <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4506	4639	
==>',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4506	4639	
==>',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8141	8265	
==>ult container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8141	8265	
==>ult container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8141	8265	
==>ult container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29280	29400	
==>w -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29280	29400	
==>w -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29280	29400	
==>w -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1295	1392	
==>it {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::new <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1551	1648	
==>it {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13276	13375	
==>eadlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13276	13375	
==>eadlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13276	13375	
==>eadlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2741	2834	
==>sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2741	2834	
==>sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	479	595	
==>IR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	514	630	
==>IR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	479	595	
==>IR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9468	9583	
==>tname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9468	9583	
==>tname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3880	4039	
==>te} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4892	5047	
==>te} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3760	3915	
==>te} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4892	5047	
==>te} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4420	4522	
==>h @bsrStack, "bsr_token_match_2";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11307	11419	
==>eys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11307	11419	
==>eys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11307	11419	
==>eys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0] <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4059	4167	
==>n::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4059	4167	
==>n::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9240	9363	
==>'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9240	9363	
==>'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9240	9363	
==>'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3407	3518	
==>!g; $s }

sub emit_grammar_perl5 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting gra <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11597	11707	
==>"indent2">Pugs&nbsp;<tmpl_var name=pugs_version></td>
            <td>
              <tmpl_if name=pugs_revisio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2611	2710	
==>nly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2611	2710	
==>nly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2611	2710	
==>nly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7647	7745	
==>lled. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7647	7745	
==>lled. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22172	22291	
==>=~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->erro <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18593	18712	
==>=~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->erro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6055	6152	
==>die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6055	6152	
==>die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6055	6152	
==>die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6585	6691	
==>ICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reaso <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6585	6691	
==>ICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reaso <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15459	15555	
==>:opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15459	15555	
==>:opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15459	15555	
==>:opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1801	1927	
==>erbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2042	2168	
==>erbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1801	1927	
==>erbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1801	1927	
==>erbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2260	2372	
==>my $meta_dir = $inst->control_dir( $self->package );
        my $data     = $conf->archive_data;
        my $cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11747	11897	
==>$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11747	11897	
==>$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11747	11897	
==>$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11688	11772	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt> <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11688	11772	
==>ttle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt> <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	244	382	
==>s) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$ <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	244	382	
==>s) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13437	13554	
==>ther );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16914	17031	
==>ther );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16276	16393	
==>ther );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6995	7152	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6995	7152	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6995	7152	
==>},

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	230	330	
==>Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	230	330	
==>Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8504	8608	
==>>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8504	8608	
==>>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8504	8608	
==>>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8220	8322	
==>alIntegerLiteral> <ExponentPart>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZer <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	701	799	
==>:<x> etc works.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { [<word>|<[\. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1494	1583	
==>('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1494	1583	
==>('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1494	1583	
==>('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9164	9273	
==>ontext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9164	9273	
==>ontext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9164	9273	
==>ontext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3119	3222	
==>'closure::params'))
        || confess "Bad params in signature";
    $options{returns} = 'type' if !(ex <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7186	7281	
==>push @operatorStack, $operator;
  $position = $operator->to();
  goto expect_term if ( $tokenCat <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1698	1822	
==>f %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1698	1822	
==>f %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11910	12006	
==>s);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11910	12006	
==>s);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11910	12006	
==>s);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9871	10031	
==>$todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	443	593	
==>$todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            r <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	443	593	
==>$todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            r <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1547	1651	
==>ig::Config{_exe}";
    print STDERR "done.\n" if $Config{verbose};
}

sub inline {
    print STDERR "Gene <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5902	5996	
==>ray.elems;
}

# name from docs/notes/piln_object_repr_types.pod r8593.
# while (@array: --> Lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	775	870	
==>d::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	775	870	
==>d::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	775	870	
==>d::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objec <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24226	24320	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comme <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24226	24320	
==>ork.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4662	4796	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4662	4796	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4662	4796	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4439	4520	
==>ecoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4439	4520	
==>ecoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3032	3136	
==>h = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	431	535	
==>f this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3032	3136	
==>h = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	431	535	
==>f this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	431	535	
==>f this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
: <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1571	1702	
==>path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $cur <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1571	1702	
==>path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $cur <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20861	20959	
==>rent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19778	19876	
==>rent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20861	20959	
==>rent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19778	19876	
==>rent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	138	235	
==>ist;
my $list;
sub get_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name,@pair <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	18574	18705	
==>(
				fun => ide("pair"),
				param => comb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2618	2731	
==>{
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2618	2731	
==>{
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2618	2731	
==>{
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9579	9679	
==>"a",1,sub{
  print STDERR "hi\n";
  my $ret = shift(@returns);
  return reverse(@$ret);
});
my(@a)=sp <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1584	1696	
==>the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i an <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2246	2358	
==>the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i an <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29506	29601	
==>vocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34058	34153	
==>vocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33222	33317	
==>vocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17849	17965	
==>egexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20729	20845	
==>egexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24517	24633	
==>egexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx, <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11005	11103	
==>the execution of some methods, 
because it will try to iterate to find a "complement set" that is e <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11005	11103	
==>the execution of some methods, 
because it will try to iterate to find a "complement set" that is e <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2572	2819	
==>ass Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages use <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2572	2819	
==>ass Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages use <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4812	4980	
==>ct_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8289	8457	
==>ct_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7291	7459	
==>ct_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6992	7115	
==>time::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6992	7115	
==>time::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	376	487	
==>fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	376	487	
==>fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	376	487	
==>fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4679	4771	
==>res depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4929	5021	
==>res depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5099	5197	
==>decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A str <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5099	5197	
==>decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4061	4152	
==>rclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4061	4152	
==>rclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4061	4152	
==>rclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6894	7006	
==>$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ], <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6894	7006	
==>$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ], <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6894	7006	
==>$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ], <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3563	3939	
==>$end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3563	3939	
==>$end;
                                if ( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6330	6546	
==>$end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6330	6546	
==>$end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6330	6546	
==>$end;
            if ( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18762	18861	
==>document and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18762	18861	
==>document and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14649	14745	
==>ms);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14649	14745	
==>ms);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14649	14745	
==>ms);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11118	11227	
==>n in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments fo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11118	11227	
==>n in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7954	8106	
==>::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7954	8106	
==>::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7954	8106	
==>::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # cl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7458	7556	
==>d return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more in <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7458	7556	
==>d return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more in <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5711	5808	
==>reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1176	1273	
==>h path so that later `use` or `require` statements 
will find modules which are not located on Pug <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5711	5808	
==>reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1176	1273	
==>h path so that later `use` or `require` statements 
will find modules which are not located on Pug <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7235	7332	
==>reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5170	5276	
==>xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5170	5276	
==>xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5170	5276	
==>xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $ <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2490	2582	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This pr <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2490	2582	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This pr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9959	10055	
==>iate validations
are performed at the moment the user tries to set the input, and input that
fail <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9959	10055	
==>iate validations
are performed at the moment the user tries to set the input, and input that
fail <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2200	2294	
==>TROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asce <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2200	2294	
==>TROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asce <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2200	2294	
==>TROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3808	3927	
==>epc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3808	3927	
==>epc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3808	3927	
==>epc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19848	19949	
==>me".  In array context it will return two
values; the user name and the password.  In scalar context i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19848	19949	
==>me".  In array context it will return two
values; the user name and the password.  In scalar context i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11581	11713	
==>$.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - A <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11581	11713	
==>$.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - A <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1680	1784	
==>lice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code *&expressi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2001	2110	
==>these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule param <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2001	2110	
==>these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule param <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	198	286	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	198	286	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	198	286	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6051	6153	
==>ld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6051	6153	
==>ld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6051	6153	
==>ld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function ( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16563	16658	
==>.

Locale::KeyedText gives your application the maximum amount of control as
to what the user se <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16563	16658	
==>.

Locale::KeyedText gives your application the maximum amount of control as
to what the user se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8902	9023	
==>ck;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8902	9023	
==>ck;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1108	1219	
==>= 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1108	1219	
==>= 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1108	1219	
==>= 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1204	1321	
==>),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($se <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1204	1321	
==>),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5601	5699	
==>/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5601	5699	
==>/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5601	5699	
==>/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl -- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6014	6126	
==>p {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6014	6126	
==>p {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6014	6126	
==>p {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11787	11889	
==>s = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
x <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11781	11883	
==>s = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
x <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	252	375	
==>tr $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	252	375	
==>tr $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	252	375	
==>tr $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7385	7480	
==>n1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.densit <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7385	7480	
==>n1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.densit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1872	2005	
==>||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1872	2005	
==>||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1872	2005	
==>||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16710	16823	
==>html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    . <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16710	16823	
==>html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8653	8770	
==>y($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_co <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8653	8770	
==>y($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_co <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8653	8770	
==>y($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_co <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	603	717	
==>code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! " <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	603	717	
==>code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5705	5903	
==>\$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1913	2039	
==>non-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	319	430	
==>%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = joi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	319	430	
==>%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = joi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	319	430	
==>%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = joi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6191	6327	
==>r the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6191	6327	
==>r the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	53	155	
==>, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return val <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	53	155	
==>, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return val <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	53	155	
==>, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return val <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8088	8239	
==>ical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12081	12224	
==>ical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12081	12224	
==>ical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            re <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1584	1667	
==>-------------------------------------------------------------------------
## informa <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1584	1667	
==>-------------------------------------------------------------------------
## informa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5395	5524	
==>ndir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	167	262	
==>grams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	768	863	
==>ie <<"END";
Can't determine a NAME for this distribution.
Please use the 'name' function in Make <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	167	262	
==>grams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	167	262	
==>grams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1996	2129	
==>se = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(" <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1996	2129	
==>se = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1638	1727	
==>w_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1638	1727	
==>w_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1638	1727	
==>w_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($me <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4495	4622	
==>char {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	186	301	
==>e::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	150	264	
==>e::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	238	352	
==>e::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1755	1848	
==>}');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Helper <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	605	704	
==>cope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSym <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	605	704	
==>cope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSym <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	605	704	
==>cope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSym <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17030	17125	
==>nguage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" fil <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17030	17125	
==>nguage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" fil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4443	4558	
==>*stuff>
         macro rxmetachar:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21660	21755	
==>ames, and all
Relation tuples may be individually addressed only by their values; neither
may be <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26212	26307	
==>ames, and all
Relation tuples may be individually addressed only by their values; neither
may be <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12971	13109	
==>mitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12971	13109	
==>mitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12971	13109	
==>mitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        w <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1856	1994	
==>mitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        w <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16718	16838	
==>yp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_CODE {
    my($pkg)=@_;
    "\$${ROOT}::${pkg}::META";
}
su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1160	1350	
==>warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1160	1350	
==>warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1160	1350	
==>warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_ <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1547	1643	
==>= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyri <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1547	1643	
==>= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyri <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10881	11002	
==>self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $cl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10881	11002	
==>self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37664	37770	
==>in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37664	37770	
==>in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37664	37770	
==>in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1344	1480	
==>turn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1355	1491	
==>turn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	55	174	
==>:Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pro <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	60	179	
==>:Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pro <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	60	179	
==>:Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	184	304	
==>the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	184	304	
==>the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	184	304	
==>the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15342	15437	
==>tten to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta inc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15342	15437	
==>tten to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta inc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2710	2870	
==>my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nod <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2620	2775	
==>my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	547	647	
==>s applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	547	647	
==>s applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	547	647	
==>s applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	577	669	
==>erclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	577	669	
==>erclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	577	669	
==>erclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cla <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21005	21096	
==>I onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21005	21096	
==>I onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6983	7104	
==>oundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6983	7104	
==>oundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3191	3294	
==>}
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3191	3294	
==>}
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3191	3294	
==>}
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  su <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1723	1838	
==>S->object(exact => "\t", '\t');
  });

  # bol, mbol, sbol
  $self->add_handler('^' => sub {
    my ($S) = @_;
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1155	1267	
==>$js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1155	1267	
==>$js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1155	1267	
==>$js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27974	28071	
==>(($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13500	13718	
==>SPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13500	13718	
==>SPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13500	13718	
==>SPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5284	5434	
==>ead = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5284	5434	
==>ead = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8097	8240	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8097	8240	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8097	8240	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ] <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	651	748	
==>ay "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::fo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	709	806	
==>ay "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::fo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4076	4218	
==>a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4088	4230	
==>a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8238	8338	
==>r($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8238	8338	
==>r($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8238	8338	
==>r($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================= <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8256	8379	
==>::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            params => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4950	5059	
==>l 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4950	5059	
==>l 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless de <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5412	5517	
==>l 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5412	5517	
==>l 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless de <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2640	2857	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1330	1547	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2640	2857	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1330	1547	
==>{ 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1551	1652	
==>rovide just such
# a usable module.  Any further efforts should likely take place there.

# Some raw d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4678	4787	
==>eturn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4678	4787	
==>eturn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4678	4787	
==>eturn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	615	719	
==>dator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator obje <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	615	719	
==>dator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	373	483	
==>{$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.cha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	373	483	
==>{$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.cha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	373	483	
==>{$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.cha <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22193	22293	
==>ok like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26745	26845	
==>ok like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16342	16439	
==>ype of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16342	16439	
==>ype of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22821	22913	
==>(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0), <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22821	22913	
==>(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0), <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22821	22913	
==>(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0), <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2448	2580	
==>ce_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2653	2785	
==>ce_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2738	2848	
==>" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2738	2848	
==>" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2738	2848	
==>" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2258	2354	
==>ulti sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2258	2354	
==>ulti sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2343	2501	
==>%{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2343	2501	
==>%{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	71	165	
==>amodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	71	165	
==>amodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cla <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	71	165	
==>amodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1671	1779	
==>n (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1671	1779	
==>n (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1671	1779	
==>n (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_re <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15930	16029	
==>of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `conta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15930	16029	
==>of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `conta <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	364	478	
==>onfess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || confess "body must be a code ref";
    m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8164	8256	
==>lti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7294	7386	
==>lti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8164	8256	
==>lti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7294	7386	
==>lti sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4292	4408	
==>s_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        & <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4350	4466	
==>s_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        & <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24882	24991	
==>lt;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported b <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4568	4674	
==>s_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) { <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4626	4732	
==>s_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) { <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1064	1168	
==>| confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4386	4488	
==>ify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4386	4488	
==>ify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5259	5358	
==>ify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5259	5358	
==>ify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3567	3795	
==>=>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3567	3795	
==>=>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3567	3795	
==>=>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5213	5314	
==>a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the ciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5213	5314	
==>a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the ciphe <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	621	746	
==>Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1379	1494	
==>t is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1723	1836	
==>t is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1330	1443	
==>t is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1723	1836	
==>t is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2630	2752	
==>mespace
    Module      Perl 6 standard namespace
    Class       Perl 6 standard class namespace
    Object      Perl 6 ob <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13254	13359	
==>r(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str }, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	190	310	
==>x.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	190	310	
==>x.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	190	310	
==>x.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
} <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17210	17309	
==>h of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexib <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22310	22409	
==>h of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexib <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5771	5947	
==>n to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($to <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5771	5947	
==>n to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($to <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4907	5071	
==>n to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($to <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4907	5071	
==>n to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5420	5577	
==>arn 'use v5 - not implemented'";
            }
            if ( $n->{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8966	9099	
==>alue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8966	9099	
==>alue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8966	9099	
==>alue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1125	1222	
==>t.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromati <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1125	1222	
==>t.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8966	9104	
==>f $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8966	9104	
==>f $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8966	9104	
==>f $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an un <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22482	22580	
==>guments; they do not interact with the outside
environment at all.

A Relation object has 2 main at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27034	27132	
==>guments; they do not interact with the outside
environment at all.

A Relation object has 2 main at <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7321	7422	
==>essary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7321	7422	
==>essary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7321	7422	
==>essary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16803	16902	
==>s a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a si <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16803	16902	
==>s a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a si <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8357	8459	
==>et - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unico <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8357	8459	
==>et - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unico <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22574	22666	
==>ternals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22574	22666	
==>ternals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22574	22666	
==>ternals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	591	738	
==>y all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### X <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3112	3232	
==>}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3112	3232	
==>}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	358	473	
==>match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	358	473	
==>match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be ca <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3686	3811	
==>\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3686	3811	
==>\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	1660	1770	
==>ly>
    # recommended.

    # safety of the individual methods is defined in Pugs.Prim.hs
    # (maybe :lang<YA <==
5	/Users/nnunley/pugs/examples/cookbook/test.pl	417	521	
==>d";
    unlink "$file.out";
    system "$pugs $f.p6 > $file.out";
    if (compare("$file.out", "$dir/$fil <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1060	1155	
==>dent;
	warn "annotation: $node";
	warn "reducing " . $node->struct_equiv; #. Data::Dumper::Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	28	139	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	28	139	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	28	139	
==>nings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33463	33561	
==>ould
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@! <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33463	33561	
==>ould
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@! <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1131	1245	
==>, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1131	1245	
==>, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1131	1245	
==>, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thro <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3966	4059	
==>ot preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATION <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3966	4059	
==>ot preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATION <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10870	11019	
==>ame' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10870	11019	
==>ame' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10870	11019	
==>ame' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33753	33845	
==>eneric relational operator that takes a single Relation
in its C<$other> argument, where <$ot <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38303	38395	
==>eneric relational operator that takes a single Relation
in its C<$other> argument, where <$ot <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16683	16802	
==>ue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16683	16802	
==>ue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1248	1349	
==>%mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_kn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1248	1349	
==>%mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_kn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1248	1349	
==>%mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_kn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35442	35575	
==>array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35442	35575	
==>array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35442	35575	
==>array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2758	2857	
==>)};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2758	2857	
==>)};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2758	2857	
==>)};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1181	1273	
==>tracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1181	1273	
==>tracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1126	1229	
==>rate longest match for tokens (putter on #perl6)

    # update: <%var> does longest match based on the k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1476	1578	
==>rate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the k <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1083	1185	
==>rate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the k <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1476	1578	
==>rate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the k <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29596	29689	
==>others' names.

=item C<project (Set of Str $attrs!) returns Relation::Example>

This method i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	529	649	
==>$b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posit <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	529	649	
==>$b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posit <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	529	649	
==>$b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posit <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	77	191	
==>ay of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	77	191	
==>ay of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4727	4827	
==>erl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4727	4827	
==>erl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinit <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4727	4827	
==>erl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27493	27590	
==>e new attributes, and
the values provide values applied to each tuple.  The new Relation has all
o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32045	32142	
==>e new attributes, and
the values provide values applied to each tuple.  The new Relation has all
o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11026	11163	
==>PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8092	8225	
==>PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8092	8225	
==>PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4877	4974	
==>urns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4877	4974	
==>urns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2029	2148	
==>Undef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Base <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2029	2148	
==>Undef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Base <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2029	2148	
==>Undef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Base <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15828	15923	
==>he requested
resource has (or has not) been modified since the time specified in this field,
the <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15828	15923	
==>he requested
resource has (or has not) been modified since the time specified in this field,
the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2408	2534	
==>ost specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2408	2534	
==>ost specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9187	9311	
==>urn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9187	9311	
==>urn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9187	9311	
==>urn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2159	2361	
==>($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2159	2361	
==>($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2159	2361	
==>($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        el <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1286	1386	
==>r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1286	1386	
==>r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15883	16000	
==>shift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove al <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15883	16000	
==>shift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	637	734	
==>her stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	637	734	
==>her stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	637	734	
==>her stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1984	2073	
==>tionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unoffic <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1984	2073	
==>tionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unoffic <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3575	3750	
==>state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4503	4674	
==>state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3464	3635	
==>state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4503	4674	
==>state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	10543	10650	
==>$filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO is primitive is unsa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2113	2243	
==>gnored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2113	2243	
==>gnored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2113	2243	
==>gnored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Per <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1510	1610	
==>t) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1510	1610	
==>t) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6278	6394	
==>ame' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6278	6394	
==>ame' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6278	6394	
==>ame' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1498	1603	
==>n if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1705	1810	
==>n if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	852	989	
==>+) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	852	989	
==>+) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.global <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	852	989	
==>+) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.global <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	2034	2136	
==>\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die <<".";
Can't generat <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9328	9428	
==>$value->[1])" }
NODE VNum ($value) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2193	2313	
==>ile (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my S <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2193	2313	
==>ile (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5533	5630	
==>ge:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o tes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5533	5630	
==>ge:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o tes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5533	5630	
==>ge:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o tes <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5239	5349	
==>tcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5239	5349	
==>tcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	632	734	
==>d = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	632	734	
==>d = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	632	734	
==>d = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}- <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1242	1431	
==>$abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAM <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1242	1431	
==>$abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6913	7001	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6913	7001	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6913	7001	
==>opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method(' <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2415	2519	
==>UE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little c <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2415	2519	
==>UE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5792	5885	
==>create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5792	5885	
==>create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5792	5885	
==>create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9890	10027	
==>a' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9890	10027	
==>a' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9890	10027	
==>a' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	110	210	
==>AGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base class - not more than just a name <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1793	1891	
==>y $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28562	28718	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28841	28997	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2221	2375	
==>tput.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self } <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2221	2375	
==>tput.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self } <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7834	7933	
==>I1), ")", {I is I1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,gro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10091	10204	
==>che;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10091	10204	
==>che;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10091	10204	
==>che;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1988	2082	
==>< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡ <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1988	2082	
==>< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡ <==
5	/Users/nnunley/pugs/util/addauthors.pl	835	978	
==>ors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, la <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1175	1293	
==>to $Builddir first, THEN copy later if all goes well
        {   print "Writing meta data...\n";
            system( qq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1299	1391	
==>eginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1299	1391	
==>eginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1299	1391	
==>eginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $c <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5619	5721	
==>et $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operator <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4749	4851	
==>et $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operator <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5619	5721	
==>et $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operator <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4749	4851	
==>et $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operator <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1182	1276	
==>d quantifiers';
use constant RPe_LBRACK => --$ENUM, 'Unmatched [';
use constant RPe_EQUANT => - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2782	2885	
==>ompile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2782	2885	
==>ompile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2782	2885	
==>ompile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2350	2481	
==>coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2350	2481	
==>coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2350	2481	
==>coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5444	5548	
==>f this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: T <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5444	5548	
==>f this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1859	2059	
==>>[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1798	1991	
==>>[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5228	5387	
==>,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5228	5387	
==>,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5228	5387	
==>,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6485	6646	
==>sults in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net A <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6485	6646	
==>sults in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	369	469	
==>2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	369	469	
==>2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	369	469	
==>2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2524	2643	
==>erhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    m <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2524	2643	
==>erhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1278	1376	
==>e JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1278	1376	
==>e JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1278	1376	
==>e JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3120	3214	
==>er =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path. <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3120	3214	
==>er =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5055	5141	
==>n ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5055	5141	
==>n ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5055	5141	
==>n ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5368	5479	
==>elf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5368	5479	
==>elf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5368	5479	
==>elf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $po <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5457	5559	
==>p = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_ope <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5457	5559	
==>p = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_ope <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7966	8108	
==>var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7966	8108	
==>var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7966	8108	
==>var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12474	12575	
==>less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12474	12575	
==>less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1373	1486	
==>on list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1717	1828	
==>on list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1324	1435	
==>on list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1717	1828	
==>on list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on <==
5	/Users/nnunley/pugs/util/testgraph.pl	967	1073	
==>es an HTML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header (for bro <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7845	7959	
==>~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7903	8017	
==>~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28165	28260	
==>er->del_flag(@flags)

Deletes the handlers for the flags -- you need only pass the flag names,
w <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10317	10411	
==>lf.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10317	10411	
==>lf.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	327	476	
==>.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFF <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	327	476	
==>.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFF <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4361	4500	
==>CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4361	4500	
==>CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4361	4500	
==>CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! " <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2054	2163	
==>) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2054	2163	
==>) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2255	2360	
==>id : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2255	2360	
==>id : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2255	2360	
==>id : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1904	2001	
==>Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic look <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37201	37297	
==>the heading of one source relation is a
full subset of another, the result degenerates to a C<sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41750	41846	
==>the heading of one source relation is a
full subset of another, the result degenerates to a C<sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41373	41469	
==>the heading of one source relation is a
full subset of another, the result degenerates to a C<sem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1831	1927	
==>Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic look <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5306	5491	
==>tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            wh <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5306	5491	
==>tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7619	7765	
==>> $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7619	7765	
==>> $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7619	7765	
==>> $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start => <==
5	/Users/nnunley/pugs/util/func_refact.pl	1336	1455	
==>t, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Conf{debu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4004	4124	
==>t $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4004	4124	
==>t $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9378	9481	
==>$p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9378	9481	
==>$p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9378	9481	
==>$p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	843	938	
==>> Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	843	938	
==>> Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	923	1018	
==>> Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2372	2459	
==>$0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2372	2459	
==>$0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6555	6662	
==>ernation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actua <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6336	6438	
==>ernation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actua <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	745	838	
==>ed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), ST <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	745	838	
==>ed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), ST <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3929	4022	
==>on't give back the private accessors
sub ls_all_accessors { sort keys %config }
sub ls_accesso <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6070	6182	
==>',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6070	6182	
==>',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6070	6182	
==>',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	628	731	
==>= undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descripti <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	628	731	
==>= undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descripti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3604	3998	
==>( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3604	3998	
==>( defined $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6351	6573	
==>( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6351	6573	
==>( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6351	6573	
==>( defined $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	57	162	
==>ort.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	57	162	
==>ort.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	57	162	
==>ort.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23510	23605	
==>l dependencies (it is very simple).

There are other differences.  Where other solutions take va <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23510	23605	
==>l dependencies (it is very simple).

There are other differences.  Where other solutions take va <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3939	4035	
==>t::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3939	4035	
==>t::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2147	2239	
==>) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2147	2239	
==>) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2147	2239	
==>) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14326	14488	
==>urn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14326	14488	
==>urn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14326	14488	
==>urn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6576	6713	
==>he DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a . <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6576	6713	
==>he DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40487	40600	
==>lue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40487	40600	
==>lue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40487	40600	
==>lue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shi <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	509	602	
==>is is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	509	602	
==>is is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5772	5901	
==>=> chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5772	5901	
==>=> chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6200	6327	
==>egexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6200	6327	
==>egexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6200	6327	
==>egexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5308	5414	
==>Name}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5308	5414	
==>Name}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5308	5414	
==>Name}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scop <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3079	3178	
==>her data.
The encipherer closure can be called with a string, and should be called at the 
end of en <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3079	3178	
==>her data.
The encipherer closure can be called with a string, and should be called at the 
end of en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1101	1197	
==>te($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1101	1197	
==>te($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1101	1197	
==>te($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9897	9990	
==>ined with union, intersection, difference, and a few
other operations.

This class also provid <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9897	9990	
==>ined with union, intersection, difference, and a few
other operations.

This class also provid <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1230	1338	
==>ition( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2021	2126	
==>f->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3133	3224	
==>ement_previous, $set.complement_next, $set.complement_previous ),
        complement_previou <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3133	3224	
==>ement_previous, $set.complement_next, $set.complement_previous ),
        complement_previou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6788	6875	
==>'resolve' => ::make_method($_resolve));

## -------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6788	6875	
==>'resolve' => ::make_method($_resolve));

## -------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6788	6875	
==>'resolve' => ::make_method($_resolve));

## -------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26909	27005	
==>s Relation>

This method is the same as C<project> but that the returned Relation has
the complem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31461	31557	
==>s Relation>

This method is the same as C<project> but that the returned Relation has
the complem <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2562	2712	
==>h my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escap <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4331	4440	
==>y $src = $conf->compile_dir->subdir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     a <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3210	3310	
==>$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolet <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4893	4989	
==>sually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4893	4989	
==>sually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2439	2560	
==>rn Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2579	2700	
==>rn Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11792	11877	
==>_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11792	11877	
==>_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11792	11877	
==>_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15979	16099	
==>ode }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15979	16099	
==>ode }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $ <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1988	2099	
==>onfig, %$conf };
    }

    $class->env_override($conf);
    $class->defaults($conf);
    return $conf;
}

sub e <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	140	246	
==>ethods;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addM <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13268	13368	
==>tribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13268	13368	
==>tribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13268	13368	
==>tribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	785	884	
==>SS, "code", "Str");

# corresponding reverse attributes
#has Meta::Assoc @.rev_assocs;   # of assocs <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1684	1812	
==>ch
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1684	1812	
==>ch
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2858	2957	
==>e return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2858	2957	
==>e return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2858	2957	
==>e return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12458	12563	
==>ng of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/( <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12458	12563	
==>ng of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4111	4205	
==>-------------------------------------
## NOTE:
## code in this section has special cases within <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4111	4205	
==>-------------------------------------
## NOTE:
## code in this section has special cases within <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4111	4205	
==>-------------------------------------
## NOTE:
## code in this section has special cases within <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11360	11484	
==>> {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11360	11484	
==>> {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11360	11484	
==>> {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	714	835	
==>str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	714	835	
==>str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8401	8513	
==>0) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8401	8513	
==>0) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8401	8513	
==>0) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shif <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5186	5288	
==>re that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unles <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5186	5288	
==>re that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unles <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	656	780	
==>eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    } <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	656	780	
==>eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6847	6953	
==>method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6847	6953	
==>method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6847	6953	
==>method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclass <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18325	18497	
==>turn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING T <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18325	18497	
==>turn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING T <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18325	18497	
==>turn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING T <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9527	9631	
==>$self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9527	9631	
==>$self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	208	307	
==>.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	208	307	
==>.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	208	307	
==>.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setT <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24914	25006	
==>02110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24914	25006	
==>02110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25478	25599	
==>my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    my ($class, $r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21498	21594	
==>g message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseud <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20379	20475	
==>g message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseud <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21498	21594	
==>g message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseud <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20379	20475	
==>g message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseud <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	465	562	
==>$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tri <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	465	562	
==>$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	245	338	
==>MAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	245	338	
==>MAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	245	338	
==>MAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Te <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2442	2558	
==>aramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>* <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2442	2558	
==>aramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7056	7161	
==>0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7056	7161	
==>0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7056	7161	
==>0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3197	3295	
==>e {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3197	3295	
==>e {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3197	3295	
==>e {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7844	7951	
==>r;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($ki <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7844	7951	
==>r;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($ki <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5135	5228	
==>}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5135	5228	
==>}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5135	5228	
==>}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2227	2335	
==>hild);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2227	2335	
==>hild);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	207	306	
==>as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	207	306	
==>as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	207	306	
==>as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8347	8437	
==>rammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2172	2262	
==>rammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statem <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	204	305	
==>ust check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns S <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	204	305	
==>ust check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30428	30519	
==>e anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34979	35070	
==>e anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34161	34252	
==>e anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	692	821	
==>tance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	692	821	
==>tance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	692	821	
==>tance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	562	665	
==>ering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This i <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	562	665	
==>ering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7678	7834	
==>d' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7678	7834	
==>d' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7678	7834	
==>d' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_j <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	774	897	
==>ring = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # X <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	774	897	
==>ring = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # X <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	10	115	
==>gs::Runtime::RuleInline;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Per <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24218	24315	
==>ed by automatons
  (clients with either an AI or other interactive program controlling their
  act <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22991	23088	
==>ed by automatons
  (clients with either an AI or other interactive program controlling their
  act <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24218	24315	
==>ed by automatons
  (clients with either an AI or other interactive program controlling their
  act <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22991	23088	
==>ed by automatons
  (clients with either an AI or other interactive program controlling their
  act <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	862	966	
==>s people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.ne <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	862	966	
==>s people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7768	7866	
==>uld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7768	7866	
==>uld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7768	7866	
==>uld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7575	7701	
==>uantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7563	7689	
==>uantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3835	3929	
==>scription )>

Marks that the next test should fail.  C<$description> is the optional
descriptio <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3835	3929	
==>scription )>

Marks that the next test should fail.  C<$description> is the optional
descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3915	4009	
==>scription )>

Marks that the next test should fail.  C<$description> is the optional
descriptio <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1999	2127	
==>$tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5476	5604	
==>$tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4406	4534	
==>$tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    r <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	441	548	
==>t   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method a <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	441	548	
==>t   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24683	24849	
==>( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24962	25128	
==>( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2772	2868	
==>O - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2772	2868	
==>O - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2772	2868	
==>O - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3275	3385	
==>ub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3275	3385	
==>ub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3275	3385	
==>ub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1127	1226	
==>ase';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1127	1226	
==>ase';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25280	25398	
==>:capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25559	25677	
==>:capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16997	17092	
==>:hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16997	17092	
==>:hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16997	17092	
==>:hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3389	3498	
==>r) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3389	3498	
==>r) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eva <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3389	3498	
==>r) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eva <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15950	16048	
==>ample: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / ` <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15950	16048	
==>ample: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / ` <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2873	3005	
==>shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3078	3210	
==>shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8536	8640	
==>e::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8536	8640	
==>e::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8536	8640	
==>e::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1240	1339	
==>age PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1240	1339	
==>age PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1240	1339	
==>age PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int', <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16850	16947	
==>e spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16850	16947	
==>e spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6630	6749	
==>set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6630	6749	
==>set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6630	6749	
==>set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6085	6201	
==>t_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24935	25023	
==>-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1) :- set_flag_s( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2397	2536	
==>ity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence => 't <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1503	1611	
==>self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->regex($rx) or return i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4687	4790	
==>!! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4687	4790	
==>!! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4687	4790	
==>!! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1895	2014	
==>:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11670	11789	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11670	11789	
==>ELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1895	2014	
==>:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	464	574	
==>n iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($proto, $thing) = @_;

    m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	760	884	
==>self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;| <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	760	884	
==>self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;| <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6176	6267	
==>$name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6176	6267	
==>$name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::ini <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6176	6267	
==>$name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::ini <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	697	846	
==>$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	697	846	
==>$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	413	507	
==>$params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{ty <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	489	583	
==>$params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	308	399	
==>xed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	308	399	
==>xed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	308	399	
==>xed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1625	1731	
==>umfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1625	1731	
==>umfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1625	1731	
==>umfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key] <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3424	3523	
==>fic to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3424	3523	
==>fic to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can' <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6830	6953	
==>me""pSubParams""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	353	461	
==>age grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	559	667	
==>age grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5733	5835	
==>ail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5733	5835	
==>ail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5627	5789	
==>tim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pr <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2988	3150	
==>tim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5627	5789	
==>tim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2988	3150	
==>tim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32422	32513	
==>any C<$mapping> value set members do not match invocant
Relation::Example attribute names, o <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	263	382	
==>::Source->new( dir => $dir ) 
        or die "Could not create JIB::Source object from '$dir'";
        
    my $pkg = $ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	512	622	
==>SAL::require::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6385	6483	
==>ewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6385	6483	
==>ewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6385	6483	
==>ewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	905	1044	
==>f->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p}    unless defined $self->{p};
                        # def <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6375	6484	
==>h ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6387	6496	
==>h ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13888	13994	
==>educe_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1368	1474	
==>educe_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1582	1681	
==>mand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1582	1681	
==>mand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1582	1681	
==>mand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28734	28828	
==>ped, or any C<$mapping> value set members do not match invocant
Relation attribute names, or du <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33286	33380	
==>ped, or any C<$mapping> value set members do not match invocant
Relation attribute names, or du <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1763	1888	
==>returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        e <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1763	1888	
==>returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1545	1636	
==>stance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1545	1636	
==>stance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1545	1636	
==>stance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_n <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10274	10432	
==>grep { $_->package ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	790	899	
==>O - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	790	899	
==>O - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	790	899	
==>O - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	495	600	
==>e block 
        closure closure::env closure::signature closure::params
        opaque method attribute C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13632	13783	
==>ze_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13632	13783	
==>ze_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13632	13783	
==>ze_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5878	6029	
==>ze_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4378	4529	
==>ze_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11604	11737	
==>tal!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2091	2218	
==>tal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8863	8990	
==>tal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2091	2218	
==>tal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8863	8990	
==>tal!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10818	10918	
==>t return value from first Object singleton/class method called by Bar');      
  
is($Bar->singleton_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6783	6882	
==>printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

st <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4135	4234	
==>printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

st <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6783	6882	
==>printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

st <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4135	4234	
==>printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

st <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1168	1276	
==>functions get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scop <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13694	13796	
==>functions get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3662	3752	
==>EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3662	3752	
==>EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3662	3752	
==>EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR <==
5	/Users/nnunley/pugs/util/grokprims.pl	1882	1993	
==>{
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$name";
  } e <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8976	9073	
==>n::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other do <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9774	9871	
==>n::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other do <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10683	10780	
==>n::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other do <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11509	11606	
==>n::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11791	12027	
==>match: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11791	12027	
==>match: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11791	12027	
==>match: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17761	17857	
==>E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains infor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17761	17857	
==>E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains infor <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11930	12030	
==>nctions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strin <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11988	12088	
==>nctions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7515	7598	
==>(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7515	7598	
==>(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7515	7598	
==>(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbod <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	781	897	
==>nning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($coun <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	781	897	
==>nning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($coun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	125	235	
==>un::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	125	235	
==>un::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	125	235	
==>un::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29121	29237	
==>se Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29121	29237	
==>se Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29121	29237	
==>se Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4350	4442	
==>eration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4350	4442	
==>eration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17525	17666	
==>' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40794	40935	
==>' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16153	16262	
==>ng paren)

  # any character

  # backslash

  # start of char class (and possible negation)
  $self->add_hand <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33626	33718	
==>method is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38176	38268	
==>method is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39689	39787	
==>$array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39689	39787	
==>$array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39689	39787	
==>$array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10587	10683	
==>t_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10587	10683	
==>t_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4268	4394	
==>e state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4268	4394	
==>e state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12905	13008	
==>or} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12905	13008	
==>or} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12905	13008	
==>or} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1570	1675	
==>methods = $class->get_attr(symbol->new('%:methods'));
        #warn "looking for method (" . $label->to_na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7987	8074	
==>ush \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8633	8720	
==>ush \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7975	8062	
==>ush \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8621	8708	
==>ush \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7224	7350	
==>ble with Test::More::skip().
sub skip {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STD <==
5	/Users/nnunley/pugs/util/build_pugs.pl	3553	3676	
==>xup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.!/!g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3045	3139	
==>ute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3045	3139	
==>ute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3045	3139	
==>ute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5165	5280	
==>ult generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5165	5280	
==>ult generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {. <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11911	12015	
==>or
C<cmp>.

=back

Any Criterion may recieve either or both of the traits C<is descending>
and C<is insen <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10386	10475	
==>-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
prin <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11121	11210	
==>-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
prin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20637	20752	
==>&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17058	17173	
==>&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3645	3740	
==>nitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3645	3740	
==>nitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! E <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3645	3740	
==>nitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! E <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4212	4302	
==>de();

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25184	25270	
==>twork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23948	24034	
==>twork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25184	25270	
==>twork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exa <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23948	24034	
==>twork/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	785	958	
==>ment> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	785	958	
==>ment> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# stat <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9	123	
==>use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span c <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9	123	
==>use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35602	35698	
==>amily: open

Types: open1, open2 ... openN (C<(>)

Data: array reference of any number of objects <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1368	1496	
==>BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1368	1496	
==>BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1368	1496	
==>BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	308	433	
==>ess flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ( <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	308	433	
==>ess flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15996	16149	
==>TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15996	16149	
==>TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15996	16149	
==>TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	20	116	
==>ime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	20	116	
==>ime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1796	2202	
==>ception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interfac <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1796	2202	
==>ception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interfac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11475	11599	
==>work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in orde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11475	11599	
==>work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in orde <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11475	11599	
==>work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in orde <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1484	1586	
==>Result;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	value => $valu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22179	22274	
==>essage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21060	21155	
==>essage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22179	22274	
==>essage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21060	21155	
==>essage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	445	549	
==>'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	445	549	
==>'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	445	549	
==>'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6122	6212	
==>yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6122	6212	
==>yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementat <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6388	6731	
==>ext                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } els <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6852	7195	
==>ext                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9165	9267	
==>hod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9165	9267	
==>hod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9165	9267	
==>hod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	327	441	
==>lib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	327	441	
==>lib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4960	5058	
==>data and returns it as an array of bytes, 
then clears the object's internal state.  This should be <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4960	5058	
==>data and returns it as an array of bytes, 
then clears the object's internal state.  This should be <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10288	10381	
==>itches>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Returns only defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4045	4153	
==>($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4045	4153	
==>($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4045	4153	
==>($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class-> <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6702	6798	
==>iblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6702	6798	
==>iblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5479	5613	
==>n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5701	5835	
==>n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7499	7598	
==>r @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7499	7598	
==>r @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7499	7598	
==>r @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	251	419	
==>ET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	251	419	
==>ET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	647	756	
==>_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	647	756	
==>_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	647	756	
==>_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13145	13334	
==>def, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13145	13334	
==>def, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13145	13334	
==>def, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3039	3201	
==>ush( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3039	3201	
==>ush( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2509	2633	
==>g;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7577	7666	
==>nteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1805	1894	
==>nteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9211	9300	
==>nteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2023	2112	
==>nteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4626	4759	
==>my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13051	13184	
==>my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15662	15795	
==>my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17150	17283	
==>my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21833	21966	
==>my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30934	31029	
==>or a tuple that is identical to the original, in which case
this method returns the identity-one <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35484	35579	
==>or a tuple that is identical to the original, in which case
this method returns the identity-one <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34675	34770	
==>or a tuple that is identical to the original, in which case
this method returns the identity-one <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2551	2644	
==>t, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Containe <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2551	2644	
==>t, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Containe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14073	14174	
==>er('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => dig <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8278	8379	
==>er('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => dig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3754	3852	
==>in "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3754	3852	
==>in "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3754	3852	
==>in "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supe <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13873	14021	
==>nd);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_das <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3986	4118	
==>nd);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_das <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3986	4118	
==>nd);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_das <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3986	4118	
==>nd);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_das <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9856	9953	
==>o_singleton_method',
 '... still got the right return value from $iFoo singleton method');

## mak <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20828	20956	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    return $se <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6305	6404	
==>, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, S <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8373	8472	
==>, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6305	6404	
==>, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8373	8472	
==>, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, S <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1847	1950	
==>te {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () retur <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1847	1950	
==>te {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () retur <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36463	36558	
==>sequence in which any two source relations are
combined is inconsequential.  A trivial case is w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41012	41107	
==>sequence in which any two source relations are
combined is inconsequential.  A trivial case is w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40626	40721	
==>sequence in which any two source relations are
combined is inconsequential.  A trivial case is w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	120	211	
==>--------------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	143	234	
==>---------
## Mini Meta-Model with Self-Bootstrapping Roles
## ------------------------------ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1617	1732	
==>cate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	484	590	
==>rint STDERR
		"# Looks like you planned $planned tests but ran $ran.\n";
	} elsif ($noplan) {
	    print "1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3888	3991	
==>ete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3888	3991	
==>ete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3888	3991	
==>ete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10015	10131	
==>0000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10015	10131	
==>0000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10015	10131	
==>0000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	156	258	
==>$class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::R <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	882	984	
==>$class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21980	22174	
==>d PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21980	22174	
==>d PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21980	22174	
==>d PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3745	3880	
==>$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3733	3868	
==>$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1151	1305	
==>() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $bloc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1151	1305	
==>() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $bloc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19467	19557	
==>:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19467	19557	
==>:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19467	19557	
==>:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1923	2038	
==>kefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{i <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1923	2038	
==>kefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3112	3224	
==>It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3112	3224	
==>It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3112	3224	
==>It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5627	5772	
==>ame>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5639	5784	
==>ame>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7107	7215	
==>ill break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7107	7215	
==>ill break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7107	7215	
==>ill break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS. <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10534	10654	
==>ee.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10534	10654	
==>ee.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_ch <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	794	887	
==>5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	633	726	
==>5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	633	726	
==>5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	308	414	
==>rgs);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLS <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	308	414	
==>rgs);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLS <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	934	1038	
==>y = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:. <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	934	1038	
==>y = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:. <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4983	5083	
==>tespacePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $posit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	666	785	
==>{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	666	785	
==>{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	666	785	
==>{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15479	15572	
==>mplementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hug <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15479	15572	
==>mplementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hug <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4552	4651	
==>o"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4552	4651	
==>o"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1287	1385	
==>alse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1287	1385	
==>alse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1287	1385	
==>alse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2564	2680	
==>}        = [ META => sub { $_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{ <==
5	/Users/nnunley/pugs/util/claim_drift.pl	846	948	
==>ss -f $real;
    my $clean = sub { $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2398	2527	
==>UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7492	7621	
==>UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2398	2527	
==>UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7492	7621	
==>UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3839	3936	
==>Use of the perl api has to be
checked for correctness, and the problems tracked down.

=item Compl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1656	1790	
==>ule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2399	2533	
==>ule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1656	1790	
==>ule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2387	2521	
==>ule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21577	21671	
==>NAME

Regexp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

This module h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2218	2347	
==>>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2218	2347	
==>>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2218	2347	
==>>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1871	1973	
==>);
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1871	1973	
==>);
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!he <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6824	6951	
==>turn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $ava <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7288	7415	
==>turn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $ava <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1708	1829	
==>t->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1708	1829	
==>t->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1802	1907	
==>d $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1802	1907	
==>d $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1802	1907	
==>d $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11846	11954	
==>20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11846	11954	
==>20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	289	384	
==>referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	289	384	
==>referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	289	384	
==>referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23712	23824	
==>qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23712	23824	
==>qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23712	23824	
==>qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SU <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15039	15129	
==>e Rosetta Native Interface (RNI), which applications invoke and which
multiple interchangea <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15039	15129	
==>e Rosetta Native Interface (RNI), which applications invoke and which
multiple interchangea <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15461	15553	
==>etween its different
users, such as their preferred language of communication, or their
privi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15461	15553	
==>etween its different
users, such as their preferred language of communication, or their
privi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2051	2140	
==>ao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2051	2140	
==>ao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2051	2140	
==>ao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3955	4143	
==>ass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3955	4143	
==>ass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3955	4143	
==>ass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.u <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	651	753	
==>0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	651	753	
==>0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3196	3290	
==>ixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

lib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1977	2068	
==>rameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3083	3174	
==>ixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
lib <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1977	2068	
==>rameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1977	2068	
==>rameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1930	2075	
==>{
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2136	2235	
==>span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4355	4454	
==>span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2136	2235	
==>span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4355	4454	
==>span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16786	16894	
==>) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source attr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20263	20371	
==>) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2533	2632	
==>rse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2533	2632	
==>rse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2533	2632	
==>rse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3805	3913	
==>tmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'p <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3805	3913	
==>tmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	655	763	
==>tmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5028	5134	
==>ight method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7696	7802	
==>ight method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1024	1151	
==>ildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1024	1151	
==>ildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1024	1151	
==>ildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3722	3822	
==>ding.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7199	7299	
==>ding.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6156	6256	
==>ding.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24855	24950	
==>can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::Key <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24855	24950	
==>can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::Key <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	368	468	
==>er
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = spr <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	368	468	
==>er
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = spr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1557	1654	
==>ivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1557	1654	
==>ivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1557	1654	
==>ivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	116	213	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	116	213	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	116	213	
==>lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23766	23860	
==>osetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23766	23860	
==>osetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rose <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2223	2349	
==>R.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will b <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2223	2349	
==>R.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will b <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30339	30438	
==>e module ideally comes as part of a set, at least one member
large, with each set member being an an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30339	30438	
==>e module ideally comes as part of a set, at least one member
large, with each set member being an an <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5543	5636	
==>ion <= $position );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($target, $whitespa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1954	2085	
==>der of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5431	5562	
==>der of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4361	4492	
==>der of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $bo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8570	8662	
==>SION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-num <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8570	8662	
==>SION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-num <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5466	5577	
==>d client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5466	5577	
==>d client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1265	1358	
==>s::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1265	1358	
==>s::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1265	1358	
==>s::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5231	5333	
==>ugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5050	5148	
==>ugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lan <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4181	4274	
==>s to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4181	4274	
==>s to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6378	6471	
==>s to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13761	13955	
==>st->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore requ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13761	13955	
==>st->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore requ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13761	13955	
==>st->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore requ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1720	1857	
==>^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

me <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1720	1857	
==>^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18939	19112	
==>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18939	19112	
==>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18939	19112	
==>cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14733	14877	
==>md eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14727	14871	
==>md eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" an <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3498	3598	
==>lans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3498	3598	
==>lans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3578	3678	
==>lans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9014	9111	
==>OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8717	8812	
==>OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11561	11707	
==>ar::Alias', " .
            "\\" . _emit( $n->{exp2} );
    }

    if ( exists $n->{exp2}{bare_block} ) {
        # $a = { 42 } 
        retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20987	21083	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20987	21083	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20987	21083	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xo <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1380	1583	
==>nt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1380	1583	
==>nt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	187	285	
==>ues(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (first <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	187	285	
==>ues(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (first <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	187	285	
==>ues(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (first <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1215	1351	
==>endData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1215	1351	
==>endData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1215	1351	
==>endData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4572	4675	
==>) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.* <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4765	4868	
==>) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.* <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2906	3042	
==>er   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n" <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2906	3042	
==>er   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n" <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1783	1894	
==>st_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    p <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1783	1894	
==>st_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1863	1974	
==>st_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7853	8010	
==>add_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            stor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13383	13518	
==>my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13383	13518	
==>my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13383	13518	
==>my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2268	2403	
==>my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	94	206	
==>Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	94	206	
==>Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	121	290	
==>re, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } cat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	121	290	
==>re, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } cat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	121	290	
==>re, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } cat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3896	3989	
==>lass, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5798	5891	
==>lass, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	910	1056	
==>ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	910	1056	
==>ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2052	2164	
==>ndef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2052	2164	
==>ndef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2052	2164	
==>ndef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	367	503	
==>unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $li <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	367	503	
==>unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5691	5810	
==>ar %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5691	5810	
==>ar %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5691	5810	
==>ar %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7352	7617	
==>et.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end o <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7352	7617	
==>et.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1705	1804	
==>%params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1705	1804	
==>%params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1705	1804	
==>%params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15493	15632	
==>bel = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15493	15632	
==>bel = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15493	15632	
==>bel = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3670	3772	
==>::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3670	3772	
==>::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	561	667	
==>ons to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Par <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	534	635	
==>ons to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Par <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13382	13520	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13661	13799	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21886	21975	
==>hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21886	21975	
==>hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21886	21975	
==>hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
M <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16349	16478	
==>g_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20775	20904	
==>g_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20071	20160	
==>6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20071	20160	
==>6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20071	20160	
==>6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1163	1271	
==>2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1163	1271	
==>2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1163	1271	
==>2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8094	8190	
==>set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8094	8190	
==>set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2985	3134	
==>ub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3265	3404	
==>ub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9683	9822	
==>ub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3265	3404	
==>ub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9683	9822	
==>ub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $node ) );
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2300	2406	
==>H\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2517	2623	
==>H\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	631	728	
==>U and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	631	728	
==>U and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	631	728	
==>U and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16016	16121	
==>urn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16016	16121	
==>urn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16016	16121	
==>urn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # na <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7841	7934	
==>bject's internal structures.

Cipher authors should assume that if this method is being called <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7841	7934	
==>bject's internal structures.

Cipher authors should assume that if this method is being called <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9841	9949	
==>list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	279	382	
==>list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	279	382	
==>list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32114	32211	
==>s inherit their ender() and walk() methods from the base
object class; most have no ending node, a <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	110	203	
==>martmatch seem like the kind of
thing which an implementation will overwrite. So smartmatch ca <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	636	751	
==>u are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	636	751	
==>u are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2527	2621	
==>my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2527	2621	
==>my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2527	2621	
==>my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6312	6420	
==>on' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scal <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6312	6420	
==>on' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	74	174	
==>] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	74	174	
==>] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	74	174	
==>] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5818	5938	
==>in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5818	5938	
==>in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5818	5938	
==>in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self-> <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17254	17350	
==>nything we want with it.
This is perhaps the most flexible place to allocate large data
which Per <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22354	22450	
==>nything we want with it.
This is perhaps the most flexible place to allocate large data
which Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2052	2166	
==>array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2052	2166	
==>array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2052	2166	
==>array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fa <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13294	13386	
==>de the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` paramet <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13352	13444	
==>de the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` paramet <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4134	4265	
==>continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-inde <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4134	4265	
==>continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-inde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2375	2485	
==>prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2375	2485	
==>prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2375	2485	
==>prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9412	9522	
==>L::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\z/\n/; }
    my $to <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11016	11112	
==>used or
displayed by your program.  It is analagous to a simplified version of the
"Document" int <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11016	11112	
==>used or
displayed by your program.  It is analagous to a simplified version of the
"Document" int <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9409	9498	
==>@statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3234	3323	
==>@statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1943	2074	
==>)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1943	2074	
==>)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	275	363	
==>er::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::O <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	275	363	
==>er::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::O <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	275	363	
==>er::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35626	35745	
==>len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive lengt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35626	35745	
==>len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive lengt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35626	35745	
==>len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive lengt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7	105	
==>mmon/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warni <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7	105	
==>mmon/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warni <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2735	2841	
==>onstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2735	2841	
==>onstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2735	2841	
==>onstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $ar <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	879	964	
==>::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjuncti <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	879	964	
==>::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjuncti <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4548	4689	
==>$token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($toke <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4548	4689	
==>$token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($toke <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1134	1243	
==>_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_reg <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19826	19926	
==>.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19826	19926	
==>.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is the <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	660	756	
==>umber_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	718	814	
==>umber_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3009	3168	
==>Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @r <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3009	3168	
==>Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7798	7949	
==>s = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7798	7949	
==>s = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7798	7949	
==>s = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tm <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40122	40365	
==>nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19671	19905	
==>nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3817	3923	
==>eters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3817	3923	
==>eters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3817	3923	
==>eters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12315	12469	
==>es)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12315	12469	
==>es)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12315	12469	
==>es)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+" <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	534	645	
==>ocess(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($buc <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	534	645	
==>ocess(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($buc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1124	1243	
==>%attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1124	1243	
==>%attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1124	1243	
==>%attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5604	5738	
==>match->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5604	5738	
==>match->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5195	5292	
==>t given), there has to be only one input file.
In linking mode, multiple input files may be specif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5195	5292	
==>t given), there has to be only one input file.
In linking mode, multiple input files may be specif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5195	5292	
==>t given), there has to be only one input file.
In linking mode, multiple input files may be specif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1058	1168	
==>r "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1058	1168	
==>r "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1058	1168	
==>r "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11015	11119	
==>nsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exist <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11015	11119	
==>nsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exist <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1130	1282	
==>g->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta(   $meta     );
        $ob <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14545	14656	
==>r (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14545	14656	
==>r (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13582	13685	
==>r (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13582	13685	
==>r (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2681	2792	
==>ition $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2681	2792	
==>ition $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2681	2792	
==>ition $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4307	4410	
==>e booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivec <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	716	815	
==>st_filehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5947	6050	
==>} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNO <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5947	6050	
==>} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6108	6203	
==>rimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6108	6203	
==>rimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6108	6203	
==>rimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4795	4939	
==>$_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4645	4786	
==>$_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38248	38342	
==>group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42797	42891	
==>group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42447	42541	
==>group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	716	837	
==>gister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	716	837	
==>gister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	716	837	
==>gister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other <==
5	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	124	225	
==>Sample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DES <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2123	2216	
==>xpression may lead to execution of arbitrary code;
each alternate engine may introduce additio <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	20524	20679	
==>m => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"),
							),
							param => ide <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1854	1959	
==>Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1854	1959	
==>Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2640	2743	
==>bset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2640	2743	
==>bset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34397	34519	
==>st') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34397	34519	
==>st') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34397	34519	
==>st') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	759	847	
==>DGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is expo <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	759	847	
==>DGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is expo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3174	3299	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenienc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3174	3299	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenienc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3174	3299	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenienc <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4360	4455	
==>63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4360	4455	
==>63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	785	907	
==>var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	767	884	
==>var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	767	884	
==>var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw} <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3400	3508	
==>s ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6877	6985	
==>s ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5834	5942	
==>s ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16493	16585	
==>y integrated database functionality;
this language, which satisfies TTM's definition of a "D" <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16493	16585	
==>y integrated database functionality;
this language, which satisfies TTM's definition of a "D" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2309	2448	
==>t:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2309	2448	
==>t:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	839	948	
==>CLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	839	948	
==>CLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	839	948	
==>CLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2709	2821	
==>ndef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-f <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2767	2879	
==>ndef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7510	7617	
==>('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7510	7617	
==>('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7510	7617	
==>('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4536	4687	
==>" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4676	4827	
==>" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	142	252	
==>cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	142	252	
==>cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	142	252	
==>cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3711	3876	
==>r)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3851	4016	
==>r)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $matc <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16051	16150	
==>udge. But for now, as a simple script, it suffices.
# This script doesn't run as root, anyway.
sub c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4481	4579	
==>e method.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

Th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4731	4829	
==>e method.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19768	19916	
==>>unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19768	19916	
==>>unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19768	19916	
==>>unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ". <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14937	15040	
==>>pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14937	15040	
==>>pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20364	20474	
==>dd_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16785	16895	
==>dd_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4082	4179	
==>m (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4082	4179	
==>m (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4672	4769	
==>m (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11794	11931	
==>rray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11794	11931	
==>rray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11794	11931	
==>rray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1590	1683	
==>ion, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map` <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1590	1683	
==>ion, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8336	8457	
==>s => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8336	8457	
==>s => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8336	8457	
==>s => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse ar <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1726	1826	
==>ep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own m <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1726	1826	
==>ep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4066	4211	
==>,
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3586	3701	
==>X - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4903	5018	
==>X - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3586	3701	
==>X - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4891	5006	
==>X - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4115	4229	
==>ined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4115	4229	
==>ined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $o <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4115	4229	
==>ined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $o <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2521	2617	
==>AVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec::F <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2521	2617	
==>AVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec::F <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50988	51186	
==>n'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get(' <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4648	4792	
==>uld not register package"), return;
            
            
            my $postinst = $meta_dir->file( $conf->postinst );
            if( -e $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	284	379	
==>ethod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::n <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	284	379	
==>ethod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::n <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21722	21816	
==>class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_member(class_neg(xdigit)    ,C) <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6333	6534	
==>.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => cor <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6333	6534	
==>.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => cor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13024	13112	
==>($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13024	13112	
==>($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13024	13112	
==>($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3078	3187	
==>I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy prox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3078	3187	
==>I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy prox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3078	3187	
==>I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy prox <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	457	554	
==>nless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	457	554	
==>nless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3250	3507	
==>t a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3250	3507	
==>t a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14744	14890	
==>/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.Li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14744	14890	
==>/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.Li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14744	14890	
==>/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.Li <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4635	4780	
==>=> [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%ha <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5287	5432	
==>=> [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8406	8524	
==>yle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8406	8524	
==>yle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8406	8524	
==>yle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my % <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13603	13705	
==>imes). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traff <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13603	13705	
==>imes). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traff <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6007	6104	
==>6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6007	6104	
==>6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6007	6104	
==>6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35722	35830	
==>e offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35722	35830	
==>e offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35722	35830	
==>e offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == l <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21845	21939	
==>n the
main program, Locale::KeyedText can be given input that says what resource
files it shoul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21845	21939	
==>n the
main program, Locale::KeyedText can be given input that says what resource
files it shoul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	248	386	
==>_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results',
    ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3524	3648	
==>and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3524	3648	
==>and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3524	3648	
==>and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4057	4154	
==>tr $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4057	4154	
==>tr $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4057	4154	
==>tr $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1272	1359	
==>::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1272	1359	
==>::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1272	1359	
==>::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	451	552	
==>en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_k <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	451	552	
==>en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_k <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1304	1438	
==>f);
    }

    package Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $_[2] }

    packag <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	247	353	
==>b parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	247	353	
==>b parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	247	353	
==>b parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	247	353	
==>b parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5795	5905	
==>gled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5795	5905	
==>gled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by P <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5795	5905	
==>gled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by P <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3122	3231	
==>s) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This shou <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3122	3231	
==>s) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This shou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	714	822	
==>$_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub al <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	714	822	
==>$_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub al <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	714	822	
==>$_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub al <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15763	15868	
==>, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10619	10724	
==>, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8146	8254	
==>lass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8146	8254	
==>lass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8146	8254	
==>lass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    ret <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1142	1243	
==>ster loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    de <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2982	3083	
==>ster loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12498	12648	
==>(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12498	12648	
==>(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12498	12648	
==>(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless ( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8380	8488	
==>u either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If howe <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8380	8488	
==>u either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If howe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22767	22909	
==>n => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    jo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23269	23411	
==>n => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    jo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12729	12851	
==>'$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12729	12851	
==>'$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12729	12851	
==>'$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented i <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	5	124	
==>v6;

role Math::Trig;

our @trig = q:x:/ sin cos tan asin acos atan sec cosec cotan asec
                  acosec acotan <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22797	22893	
==>e to show less than all of the available details depending on the
intended viewer.

=head2 Compar <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15028	15124	
==>s as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22797	22893	
==>e to show less than all of the available details depending on the
intended viewer.

=head2 Compar <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15086	15182	
==>s as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3776	3878	
==>, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an emp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3776	3878	
==>, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an emp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3776	3878	
==>, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an emp <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3165	3260	
==>< '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.or <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3165	3260	
==>< '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.or <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2484	2585	
==>r> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2484	2585	
==>r> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5181	5295	
==>ta = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $re <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5181	5295	
==>ta = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3012	3117	
==>y, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3012	3117	
==>y, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3012	3117	
==>y, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Co <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4771	4900	
==>ist;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4771	4900	
==>ist;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	534	636	
==>e, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	534	636	
==>e, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	534	636	
==>e, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => : <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14219	14355	
==>= 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14498	14634	
==>= 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7502	7627	
==>push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7502	7627	
==>push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7502	7627	
==>push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$c <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1960	2102	
==>dly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11591	11695	
==>wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::status( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2027	2129	
==>wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status( <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2027	2129	
==>wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status( <==
5	/Users/nnunley/pugs/util/build_pugs.pl	6775	6871	
==>ush @libs, grep /^-prof/, @_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build -idist/build/src -Ld <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5085	5192	
==>e::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5085	5192	
==>e::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5085	5192	
==>e::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13569	13662	
==>1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13569	13662	
==>1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in on <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10417	10542	
==>{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10411	10536	
==>{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	601	702	
==>t), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	601	702	
==>t), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	601	702	
==>t), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3815	3922	
==>e_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3815	3922	
==>e_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	665	772	
==>e_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1369	1466	
==>ay something (in public), the current
time and the text they said is saved.

If the (optional) rol <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1369	1466	
==>ay something (in public), the current
time and the text they said is saved.

If the (optional) rol <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3059	3197	
==>^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2941	3071	
==>^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2528	2622	
==>multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2528	2622	
==>multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2528	2622	
==>multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	190	301	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	190	301	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // R <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	190	301	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // R <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4033	4132	
==>) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4217	4316	
==>) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10069	10183	
==>my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10069	10183	
==>my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10069	10183	
==>my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_clas <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5959	6063	
==>hans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %chan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5959	6063	
==>hans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %chan <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9407	9711	
==>sfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10884	11188	
==>sfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	130	228	
==>supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	130	228	
==>supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	130	228	
==>supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2039	2133	
==>:= not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2097	2191	
==>:= not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6271	6364	
==>)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6271	6364	
==>)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6271	6364	
==>)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespac <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	437	556	
==>earch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	437	556	
==>earch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6504	6601	
==>k

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6504	6601	
==>k

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Y <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6504	6601	
==>k

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Y <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2433	2550	
==>EMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2433	2550	
==>EMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	490	588	
==>pher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should pro <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	490	588	
==>pher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6793	6889	
==>o - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6793	6889	
==>o - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6793	6889	
==>o - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3614	3736	
==>method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barena <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3614	3736	
==>method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barena <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3614	3736	
==>method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barena <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5536	5629	
==>t method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9134	9227	
==>t method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2236	2368	
==>= -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end interse <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2236	2368	
==>= -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end interse <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2236	2368	
==>= -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end interse <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	765	865	
==>Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	765	865	
==>Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4434	4570	
==>r( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4574	4710	
==>r( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> " <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	636	729	
==>dle to which to write all normal output (test results and
descriptions).

=item B<$.error_outp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	636	729	
==>dle to which to write all normal output (test results and
descriptions).

=item B<$.error_outp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1192	1285	
==>dle to which to write all normal output (test results and
descriptions).

=item B<$.error_outp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10131	10245	
==>code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10131	10245	
==>code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10131	10245	
==>code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19509	19605	
==>bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19509	19605	
==>bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
ha <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4345	4470	
==>$YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    }
    else {
        $dump .= << "META";
n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	688	796	
==>return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	776	884	
==>return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub no <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4027	4131	
==>(Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4027	4131	
==>(Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8297	8483	
==>&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8297	8483	
==>&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8297	8483	
==>&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1705	1817	
==>e> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1705	1817	
==>e> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4450	4566	
==>ush @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4438	4554	
==>ush @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6237	6329	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6237	6329	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6237	6329	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()) <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3063	3165	
==>c') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3063	3165	
==>c') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2584	2684	
==>nt($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2584	2684	
==>nt($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2584	2684	
==>nt($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1659	1761	
==>: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1659	1761	
==>: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1659	1761	
==>: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17581	17678	
==>for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IR <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17581	17678	
==>for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IR <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17119	17247	
==>utation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17119	17247	
==>utation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4059	4158	
==>s of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4059	4158	
==>s of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4139	4238	
==>s of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	709	820	
==>ned $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	797	908	
==>ned $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22823	22915	
==>ndex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22823	22915	
==>ndex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22823	22915	
==>ndex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6035	6217	
==>w'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6035	6217	
==>w'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6035	6217	
==>w'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' = <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12756	12847	
==>negative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12756	12847	
==>negative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3658	3753	
==>use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3875	3970	
==>use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29795	29901	
==>TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consistin <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29795	29901	
==>TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consistin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	526	631	
==>b parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokeni <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	526	631	
==>b parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokeni <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	526	631	
==>b parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokeni <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4924	5068	
==>Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4924	5068	
==>Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	940	1039	
==>fined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	940	1039	
==>fined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	940	1039	
==>fined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_n <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3232	3346	
==>ate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" o <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3232	3346	
==>ate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	355	454	
==>temAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	355	454	
==>temAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	355	454	
==>temAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23550	23644	
==>re are other differences.  Where other solutions take variables, they
seem to be positional (li <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23550	23644	
==>re are other differences.  Where other solutions take variables, they
seem to be positional (li <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1987	2085	
==>function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1987	2085	
==>function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1987	2085	
==>function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1583	1675	
==>ame>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1583	1675	
==>ame>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20669	20770	
==>ot implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17090	17191	
==>ot implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12175	12262	
==>rator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12175	12262	
==>rator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12175	12262	
==>rator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1305	1433	
==>ks :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1305	1433	
==>ks :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1305	1433	
==>ks :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5306	5400	
==>the cipher object to clear its internal state as completely as possible. 
This is automatically <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5306	5400	
==>the cipher object to clear its internal state as completely as possible. 
This is automatically <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	604	719	
==>($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	604	719	
==>($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	604	719	
==>($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs l <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5791	5903	
==>$name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5779	5891	
==>$name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1973	2089	
==>t;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1973	2089	
==>t;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1973	2089	
==>t;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, <==
5	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	476	574	
==>ge Filtered::Comments;
use Filter::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12937	13020	
==>rackets("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
brackets( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3633	3735	
==>cript>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "htt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3633	3735	
==>cript>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "htt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3633	3735	
==>cript>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "htt <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2732	2825	
==>n exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representati <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2732	2825	
==>n exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representati <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4354	4471	
==>g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuatio <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4354	4471	
==>g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2927	3040	
==>b infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2927	3040	
==>b infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2927	3040	
==>b infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10727	10859	
==>alue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10727	10859	
==>alue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10727	10859	
==>alue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14199	14304	
==>= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traf <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14199	14304	
==>= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traf <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	704	820	
==>shift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	704	820	
==>shift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14506	14602	
==>rogress. As Pugs grows, so will it's
testing needs. This module will be the code support for thos <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14564	14660	
==>rogress. As Pugs grows, so will it's
testing needs. This module will be the code support for thos <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14269	14357	
==>ode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6089	6216	
==>$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6089	6216	
==>$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	121	214	
==>p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	121	214	
==>p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Pr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	121	214	
==>p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Pr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4246	4462	
==>-> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4246	4462	
==>-> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4142	4237	
==>ar a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4142	4237	
==>ar a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4142	4237	
==>ar a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	472	583	
==>PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	472	583	
==>PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	472	583	
==>PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	434	535	
==>r::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	434	535	
==>r::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	96	216	
==>l'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use wa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1338	1446	
==>odes = shift;

    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1683	1789	
==>odes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1290	1396	
==>odes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1683	1789	
==>odes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return su <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1302	1423	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3598	3719	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1302	1423	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3598	3719	
==>|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19316	19405	
==>oor wording, and documented the problem with using F<SUPER::>
inside F<MyClass::__object__ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10633	10726	
==>their types, that their attributes have reasonable values, and
that attributes or Nodes are no <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10633	10726	
==>their types, that their attributes have reasonable values, and
that attributes or Nodes are no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6203	6295	
==>point = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6203	6295	
==>point = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6203	6295	
==>point = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15897	15996	
==>_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15897	15996	
==>_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15897	15996	
==>_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_T <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	595	684	
==>----------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------ <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	618	707	
==>-----
# Author: Yung-chung Lin (xern@cpan.org)
# ----------------------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6571	6745	
==>ot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6764	6938	
==>ot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3749	3851	
==>! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3749	3851	
==>! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3749	3851	
==>! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1 <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3501	3625	
==>} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    return %t <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2024	2145	
==>($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, St <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2024	2145	
==>($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, St <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13785	13887	
==>e the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13785	13887	
==>e the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18879	19080	
==>elf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18879	19080	
==>elf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18879	19080	
==>elf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Inf <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10632	10728	
==>nce set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10632	10728	
==>nce set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	765	884	
==>(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	765	884	
==>(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	765	884	
==>(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expor <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14621	14738	
==><RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the out <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14621	14738	
==><RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the out <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	152	272	
==>r;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	152	272	
==>r;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	152	272	
==>r;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2219	2330	
==>return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME> <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2219	2330	
==>return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8563	8667	
==>'$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8563	8667	
==>'$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8563	8667	
==>'$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6322	6422	
==>, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming exa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6107	6206	
==>, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming exa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4197	4300	
==>ool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4197	4300	
==>ool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	40	142	
==>imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	40	142	
==>imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	40	142	
==>imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3533	3657	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3533	3657	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3533	3657	
==>thod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11717	11822	
==>ee->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9402	9502	
==>ee->[-2];
    return unless $prev->type eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data} <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6259	6453	
==>ro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @re <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6259	6453	
==>ro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7456	7556	
==>ch_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7456	7556	
==>ch_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7456	7556	
==>ch_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2371	2475	
==>return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output m <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2371	2475	
==>return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2451	2555	
==>return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1528	1626	
==>= $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1528	1626	
==>= $parent;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7962	8072	
==>less $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7962	8072	
==>less $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7962	8072	
==>less $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19221	19318	
==>involved in making the program would be editing them.  At
the same time, this information is in se <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19221	19318	
==>involved in making the program would be editing them.  At
the same time, this information is in se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2936	3042	
==>elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2936	3042	
==>elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2936	3042	
==>elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems par <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	651	741	
==>-------------------------------------
## private methods

my method set_height ($self: Tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	651	741	
==>-------------------------------------
## private methods

my method set_height ($self: Tree <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11253	11348	
==>es>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11253	11348	
==>es>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	496	590	
==>e "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	496	590	
==>e "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	496	590	
==>e "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15027	15134	
==>ring.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15027	15134	
==>ring.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3989	4086	
==>il2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3989	4086	
==>il2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3989	4086	
==>il2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metam <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9140	9269	
==>elf->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = '::';
      return $S->$n;
    } <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6067	6189	
==>le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub per <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5575	5697	
==>le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub per <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4491	4586	
==>SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_name <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4491	4586	
==>SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_name <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28251	28347	
==>on of this object which is suitable
for debugging purposes (such as to test that the object's con <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35607	35703	
==>on of this object which is suitable
for debugging purposes (such as to test that the object's con <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28251	28347	
==>on of this object which is suitable
for debugging purposes (such as to test that the object's con <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35607	35703	
==>on of this object which is suitable
for debugging purposes (such as to test that the object's con <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2894	2983	
==>on-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3907	4046	
==>level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5131	5270	
==>level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12958	13071	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12958	13071	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12958	13071	
==>e {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	476	581	
==>DALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	476	581	
==>DALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	476	581	
==>DALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19961	20049	
==>eptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
imple <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19961	20049	
==>eptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
imple <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21976	22064	
==>ULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21976	22064	
==>ULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21976	22064	
==>ULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($x <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3716	3823	
==>symbol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with proto <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	513	617	
==>ir stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	513	617	
==>ir stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	513	617	
==>ir stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * c <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	282	380	
==>Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B<FOR INTERNAL USE ONLY!>

Th <==
5	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	91	227	
==>ally {
        $a > 5 or retry;
        $a = -1000;
        $still_running--;
    }
    say 'Thread 1 finished: $a is >5 and reset to -10 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18383	18496	
==>tack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6970	7070	
==>r iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6970	7070	
==>r iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6970	7070	
==>r iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1893	2036	
==>= $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1674	1809	
==>= $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub neg <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1674	1809	
==>= $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub neg <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8829	8960	
==>term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greed <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8825	8956	
==>term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greed <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8645	8746	
==>tch[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unsh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8633	8734	
==>tch[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unsh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23348	23442	
==>4 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you ca <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41272	41366	
==>4 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you ca <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37298	37392	
==>4 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you ca <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4111	4206	
==>et" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4111	4206	
==>et" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1872	1966	
==>/ Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1872	1966	
==>/ Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1872	1966	
==>/ Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1268	1364	
==>ing_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1268	1364	
==>ing_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1268	1364	
==>ing_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAG <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3860	3953	
==>ocale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Transla <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3860	3953	
==>ocale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Transla <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28343	28440	
==>s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extrac <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35699	35796	
==>s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extrac <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28343	28440	
==>s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extrac <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35699	35796	
==>s contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extrac <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18174	18259	
==>m(repeat_ng(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1450	1555	
==>ie::TypeSafe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11851	11947	
==>fied header field.  Previous values
for the same field are retained.

As for the header() method, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11851	11947	
==>fied header field.  Previous values
for the same field are retained.

As for the header() method, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1742	1832	
==>self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1742	1832	
==>self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1742	1832	
==>self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	298	410	
==>m_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	843	955	
==>m_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	298	410	
==>m_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	843	955	
==>m_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	843	955	
==>m_range() constructors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() <==
5	/Users/nnunley/pugs/util/package-osx.pl	5326	5432	
==>.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/local/man/man3/Perl6::FAQ::Capture.3
        /us <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11601	11694	
==>C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an ali <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8748	8841	
==>C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an ali <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11601	11694	
==>C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an ali <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8748	8841	
==>C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an ali <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12514	12621	
==>%!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12514	12621	
==>%!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23338	23439	
==>{
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23338	23439	
==>{
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23338	23439	
==>{
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : un <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	918	1210	
==>29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	918	1210	
==>29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	18	120	
==>e v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use H <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	18	120	
==>e v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2471	2568	
==>od('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2471	2568	
==>od('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2471	2568	
==>od('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_insta <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14668	14773	
==>ASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, mpos) = ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13304	13414	
==>\$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" . <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9490	9600	
==>\$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10326	10436	
==>\$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" . <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22277	22367	
==>otE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optional <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22277	22367	
==>otE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optional <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5089	5213	
==>alue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5089	5213	
==>alue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  ' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1993	2117	
==>alue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  ' <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	586	707	
==>re CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	586	707	
==>re CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3511	3642	
==>if ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3511	3642	
==>if ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11788	11891	
==>if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = dele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11788	11891	
==>if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = dele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11788	11891	
==>if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = dele <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3358	3598	
==>% ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3227	3454	
==>% ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bo <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28013	28107	
==>ity, you can use the C<--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	493	585	
==>PTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	493	585	
==>PTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13556	13722	
==>rammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13835	14001	
==>rammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19495	19584	
==>b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19495	19584	
==>b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19495	19584	
==>b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	811	911	
==>rl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PI <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	771	871	
==>er meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struc <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1255	1355	
==>er meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	811	911	
==>rl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	811	911	
==>rl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1190	1292	
==>ctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1190	1292	
==>ctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1190	1292	
==>ctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4607	4700	
==>exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::T <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4607	4700	
==>exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9676	9788	
==>c)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9676	9788	
==>c)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9676	9788	
==>c)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1784	1880	
==>he plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, which w <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1784	1880	
==>he plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, which w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31763	31891	
==>}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31763	31891	
==>}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31763	31891	
==>}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10478	10571	
==>ntially
never be performed at all.  They validate everything except
well-formedness, such as t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10478	10571	
==>ntially
never be performed at all.  They validate everything except
well-formedness, such as t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1854	1954	
==>s > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'}) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1854	1954	
==>s > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'}) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1854	1954	
==>s > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'}) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2313	2407	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superse <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2313	2407	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3422	3550	
==>) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3422	3550	
==>) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3422	3550	
==>) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34457	34550	
==>emijoin (Relation $other!) returns Relation>

This method is a generic relational operator tha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39007	39100	
==>emijoin (Relation $other!) returns Relation>

This method is a generic relational operator tha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	466	579	
==>$bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	466	579	
==>$bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5855	5944	
==><prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5855	5944	
==><prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5855	5944	
==><prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10000	10174	
==>=>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.ne <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	564	728	
==>=>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.ne <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	564	728	
==>=>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.ne <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4617	4829	
==>f ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    un <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4617	4829	
==>f ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	755	859	
==>lues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	755	859	
==>lues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	755	859	
==>lues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6154	6259	
==>_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6154	6259	
==>_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6154	6259	
==>_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2558	2654	
==>ry string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.par <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2558	2654	
==>ry string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.par <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3221	3332	
==>->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top_obj) = @_;
    $path = "$s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10050	10156	
==>[1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7990	8096	
==>[1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10050	10156	
==>[1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7990	8096	
==>[1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8701	8830	
==>=> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8701	8830	
==>=> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8701	8830	
==>=> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	203	306	
==>R = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functio <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	203	306	
==>R = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functio <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31755	31851	
==>that the
current user is fluent in (and prefers) language A but also understands
language B.  Lat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31755	31851	
==>that the
current user is fluent in (and prefers) language A but also understands
language B.  Lat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2951	3042	
==>y;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2951	3042	
==>y;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2951	3042	
==>y;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1181	1289	
==>%s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1181	1289	
==>%s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1181	1289	
==>%s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1910	2011	
==>which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. 



Th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1837	1935	
==>which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. 

Th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19773	19878	
==>}
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tree->[- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22987	23084	
==>ule parses I<regexes>, not Perl.  If you send a single-quoted
string as a regex with a variable in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1231	1321	
==>Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1231	1321	
==>Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1231	1321	
==>Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2165	2341	
==><rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2412	2588	
==><rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	310	418	
==>,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	310	418	
==>,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	310	418	
==>,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11463	11593	
==>0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11457	11587	
==>0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$' <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	50	146	
==>the compiled dispatch table... accessors should be in here
has Method %.dispatch;

# private acce <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	41	134	
==>st::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstr <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	41	134	
==>st::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstr <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4425	4540	
==>0001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ 'file4' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	138	239	
==>tils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_pe <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	138	239	
==>tils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_pe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40097	40194	
==>tion, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40097	40194	
==>tion, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4137	4254	
==>aram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4137	4254	
==>aram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4137	4254	
==>aram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4499	4609	
==>pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4499	4609	
==>pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7227	7396	
==>am{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7227	7396	
==>am{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7227	7396	
==>am{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1158	1262	
==>has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1158	1262	
==>has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that h <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20498	20609	
==>ords {  # see 12.2
      <Identifier> <InitialiserNoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> <As <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4323	4472	
==>rl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4323	4472	
==>rl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4323	4472	
==>rl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1953	2045	
==>RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1953	2045	
==>RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in th <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2784	2899	
==>cription);
            $subscriber.note_subscription($subscription);
        }

        method remove_subscription ( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3042	3150	
==>o more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3042	3150	
==>o more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	594	692	
==>de;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	594	692	
==>de;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2601	2732	
==>etcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2601	2732	
==>etcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2601	2732	
==>etcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2918	3017	
==>e sure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It wi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2918	3017	
==>e sure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3152	3261	
==>if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3152	3261	
==>if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3152	3261	
==>if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15296	15391	
==>oke or implement it, and so an
application written to it should behave identically no matter whi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15296	15391	
==>oke or implement it, and so an
application written to it should behave identically no matter whi <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	1746	1866	
==>exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $new <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1052	1188	
==>?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1052	1188	
==>?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5539	5636	
==>ion is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers poss <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5539	5636	
==>ion is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers poss <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5539	5636	
==>ion is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers poss <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1328	1428	
==>key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SEL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1328	1428	
==>key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SEL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	956	1051	
==>s
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	956	1051	
==>s
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	956	1051	
==>s
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pa <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3786	3899	
==>93.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13500	13608	
==>})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13500	13608	
==>})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2818	2909	
==>ow_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tran <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2818	2909	
==>ow_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tran <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10566	10697	
==>ied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10566	10697	
==>ied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10566	10697	
==>ied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5602	5723	
==>urns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5602	5723	
==>urns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32640	32775	
==>}
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32640	32775	
==>}
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32640	32775	
==>}
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14261	14355	
==>Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14261	14355	
==>Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7188	7302	
==>turn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3792	3906	
==>turn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4641	4755	
==>turn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24374	24464	
==>can.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free s <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24374	24464	
==>can.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free s <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3255	3508	
==>cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cen <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3255	3508	
==>cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6134	6295	
==>cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6134	6295	
==>cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cen <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6134	6295	
==>cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cen <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13312	13467	
==>eys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13312	13467	
==>eys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4648	4752	
==>Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4648	4752	
==>Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4648	4752	
==>Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8822	8923	
==>pParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type) { "sh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1059	1207	
==>Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1059	1207	
==>Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	398	522	
==>- optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso86 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19303	19398	
==>eature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition sta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19303	19398	
==>eature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition sta <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2322	2430	
==>aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7416	7524	
==>aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2322	2430	
==>aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7416	7524	
==>aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1507	1614	
==>reated '$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could not chdir back to '$Cw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27512	27692	
==>$tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27512	27692	
==>$tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27512	27692	
==>$tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14819	14947	
==>uleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15098	15226	
==>uleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1319	1432	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.appl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1319	1432	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.appl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1319	1432	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.appl <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	204	304	
==>LLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6667	6780	
==>rt {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=' <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6667	6780	
==>rt {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3205	3315	
==>"N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3205	3315	
==>"N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3205	3315	
==>"N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1437	1543	
==>nfinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1437	1543	
==>nfinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1437	1543	
==>nfinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11827	11924	
==>ield value for the specified header field.  Previous values
for the same field are retained.

As f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11827	11924	
==>ield value for the specified header field.  Previous values
for the same field are retained.

As f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11802	11899	
==>erts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cle <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8949	9046	
==>erts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cle <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11802	11899	
==>erts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cle <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8949	9046	
==>erts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cle <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10202	10299	
==>th id');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4449	4549	
==>PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4449	4549	
==>PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4449	4549	
==>PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	642	737	
==>p<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	642	737	
==>p<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21523	21620	
==>ich are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20404	20501	
==>ich are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21523	21620	
==>ich are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20404	20501	
==>ich are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13317	13406	
==>e=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<spa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35301	35399	
==>is method will fail if any of its source Relations
have attributes in common; it will only accept i <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6573	6671	
==>ring';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6573	6671	
==>ring';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  ' <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39851	39949	
==>is method will fail if any of its source Relations
have attributes in common; it will only accept i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39411	39509	
==>is method will fail if any of its source Relations
have attributes in common; it will only accept i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5157	5275	
==>= (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My D <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5157	5275	
==>= (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My D <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1250	1345	
==>ethod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1250	1345	
==>ethod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1250	1345	
==>ethod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7938	8070	
==>RE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7938	8070	
==>RE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7938	8070	
==>RE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4979	5084	
==>rt) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4979	5084	
==>rt) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(. <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32173	32270	
==>t Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36723	36820	
==>t Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10373	10466	
==>un::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10373	10466	
==>un::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10373	10466	
==>un::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Eva <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	145	262	
==>dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	145	262	
==>dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3237	3338	
==>IL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3237	3338	
==>IL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3237	3338	
==>IL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	340	446	
==>de);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_reduce {
	my $self = shift;
	my $node = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8664	8764	
==>e set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.membe <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7633	7733	
==>e set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.membe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8664	8764	
==>e set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.membe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7633	7733	
==>e set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.membe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1565	1675	
==>ti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1565	1675	
==>ti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1565	1675	
==>ti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$co <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3893	3992	
==>-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3893	3992	
==>-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	114	248	
==>r;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	156	290	
==>r;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	114	248	
==>r;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	156	290	
==>r;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&f <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1234	1357	
==>.new
        source.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	793	926	
==>in_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'spec <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	793	926	
==>in_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'spec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2589	2700	
==>line";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2589	2700	
==>line";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2589	2700	
==>line";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1523	1655	
==>age() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        re <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4726	4858	
==>age() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6322	6425	
==>-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6322	6425	
==>-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6322	6425	
==>-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12934	13030	
==>bject has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5471	5567	
==>valX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacce <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12934	13030	
==>bject has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of al <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5471	5567	
==>valX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacce <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5471	5567	
==>valX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacce <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	530	640	
==>)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	790	900	
==>)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1062	1172	
==>)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1 <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	814	922	
==>ub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	814	922	
==>ub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2285	2407	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9057	9179	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2285	2407	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9057	9179	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    m <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	467	573	
==>Repoindex  $Repodir    $Metaext

            package_prefix  package_authority   package_name  package_vers <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20767	20933	
==>oncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21046	21212	
==>oncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4775	4888	
==>arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4775	4888	
==>arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::dou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4775	4888	
==>arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::dou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1835	1929	
==>t is divided to various intrinsic object types, including

intrinsic Code (which then has Pad/S <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1763	1856	
==>t is divided to various intrinsic object types, including
intrinsic Code (which then has Pad/S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5765	5907	
==>ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5765	5907	
==>ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5765	5907	
==>ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7576	7698	
==>m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)* <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7576	7698	
==>m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)* <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36484	36580	
==>()
operator, and the order of its arguments is not significant to the result;
the new Relation::E <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41670	41766	
==>()
operator, and the order of its arguments is not significant to the result;
the new Relation::E <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3285	3380	
==>d output and diagnostic output of tests,
running those tests, and then telling this module to co <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3285	3380	
==>d output and diagnostic output of tests,
running those tests, and then telling this module to co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3365	3460	
==>d output and diagnostic output of tests,
running those tests, and then telling this module to co <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4219	4342	
==>L_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
nod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4219	4342	
==>L_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
nod <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1069	1192	
==>L_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
nod <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32412	32529	
==>ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

Th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12280	12384	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6847	6951	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12280	12384	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6847	6951	
==>' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $met <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6753	6927	
==>rn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $ar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6753	6927	
==>rn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $ar <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3816	3911	
==><test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3816	3911	
==><test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3896	3991	
==><test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the o <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2765	2878	
==>osure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print ci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2765	2878	
==>osure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print ci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6223	6316	
==>nit_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6223	6316	
==>nit_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6223	6316	
==>nit_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8797	8929	
==>lan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	961	1081	
==>lan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanat <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	961	1081	
==>lan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	485	601	
==>import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	485	601	
==>import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6653	6762	
==>f ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7661	7770	
==>f ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_obje <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3453	3551	
==>ype',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 ' <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1739	1836	
==>duced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int : <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1739	1836	
==>duced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3956	4067	
==>t Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3816	3924	
==>t Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2865	2971	
==>lf;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2865	2971	
==>lf;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2865	2971	
==>lf;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3392	3496	
==>use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3272	3372	
==>use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2414	2513	
==>g_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceiv <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2414	2513	
==>g_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceiv <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2494	2593	
==>g_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceiv <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3896	3994	
==>d the problems tracked down.

=item Completeness

\G, pos(), etc, are not yet supported.

=back

=h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25120	25204	
==>ork/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23884	23968	
==>ork/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25120	25204	
==>ork/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23884	23968	
==>ork/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9619	9730	
==>q 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args) {
	# In VMS protect with double <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10261	10363	
==>op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10261	10363	
==>op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2156	2251	
==>ome ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is pe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2156	2251	
==>ome ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5854	5969	
==>en = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5854	5969	
==>en = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5854	5969	
==>en = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arr <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2048	2156	
==>t.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2048	2156	
==>t.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6050	6150	
==>($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6050	6150	
==>($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6050	6150	
==>($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23007	23095	
==>nel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23007	23095	
==>nel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$chann <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6337	6457	
==>=> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6337	6457	
==>=> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6337	6457	
==>=> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub { <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1107	1209	
==>@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::override - Override Perl regular expres <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6647	6741	
==>);

my $source = `cat parser_spike_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumpe <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3914	4011	
==>ure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complemen <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3914	4011	
==>ure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complemen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1544	1645	
==>Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1751	1852	
==>Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35387	35482	
==>only accept inputs that would result in
a cross-product when joined.  This method has aliases na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39937	40032	
==>only accept inputs that would result in
a cross-product when joined.  This method has aliases na <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39497	39592	
==>only accept inputs that would result in
a cross-product when joined.  This method has aliases na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2062	2191	
==>rl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2202	2331	
==>rl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter o <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	835	931	
==>output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	835	931	
==>output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	915	1011	
==>output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2543	2684	
==>edText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input err <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3433	3574	
==>tr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2543	2684	
==>edText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input err <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3433	3574	
==>tr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3433	3574	
==>tr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fro <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	586	712	
==>assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m { <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	586	712	
==>assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10740	10849	
==>dx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10740	10849	
==>dx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10740	10849	
==>dx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15028	15155	
==>> '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15028	15155	
==>> '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15028	15155	
==>> '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @class <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21325	21417	
==>C<$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Not <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21325	21417	
==>C<$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Not <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5245	5371	
==>y $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3745	3871	
==>y $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6633	6721	
==>ce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6633	6721	
==>ce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6633	6721	
==>ce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_met <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1742	1924	
==>%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (St <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1742	1924	
==>%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10737	10857	
==>hod;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10737	10857	
==>hod;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10737	10857	
==>hod;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribut <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2937	3051	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.],
    ' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2937	3051	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.],
    ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	608	698	
==>sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	608	698	
==>sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	608	698	
==>sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7077	7186	
==>reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normal <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7077	7186	
==>reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1588	1695	
==>) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1588	1695	
==>) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1588	1695	
==>) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3219	3332	
==>new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	810	923	
==>_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes her <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3219	3332	
==>new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	810	923	
==>_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes her <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	810	923	
==>_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes her <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4757	4898	
==>_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        ret <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4757	4898	
==>_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7876	7976	
==>S = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7876	7976	
==>S = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_par <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7876	7976	
==>S = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1397	1562	
==>= PIL::Run::Container::Scalar->new;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5091	5207	
==>sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16127	16243	
==>sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17615	17731	
==>sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22298	22414	
==>sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} } <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2289	2439	
==>art_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2289	2439	
==>art_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13366	13463	
==>x) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13366	13463	
==>x) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13366	13463	
==>x) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14120	14246	
==>my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (define <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14120	14246	
==>my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1351	1441	
==>etamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1351	1441	
==>etamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1351	1441	
==>etamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3236	3354	
==>end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %p <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3236	3354	
==>end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3272	3368	
==>lf._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3272	3368	
==>lf._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5834	5926	
==>ion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5834	5926	
==>ion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5834	5926	
==>ion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18087	18219	
==>t). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18087	18219	
==>t). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18087	18219	
==>t). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #u <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3180	3272	
==>lement_previous ),
        complement_previous => $self._get_intersection( $self.complement_p <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3180	3272	
==>lement_previous ),
        complement_previous => $self._get_intersection( $self.complement_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3192	3295	
==>lude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3192	3295	
==>lude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3192	3295	
==>lude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30185	30277	
==>lso contain variable names that correspond
to Message Variables, which will be substituted at <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30185	30277	
==>lso contain variable names that correspond
to Message Variables, which will be substituted at <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1086	1253	
==>pr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1086	1253	
==>pr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17258	17354	
==>ead1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17258	17354	
==>ead1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17258	17354	
==>ead1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	23043	23178	
==>test->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Colum <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2123	2226	
==>elf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2123	2226	
==>elf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2123	2226	
==>elf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16982	17083	
==>);
    my Relation::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	419	529	
==>f: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	419	529	
==>f: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	419	529	
==>f: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $se <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21571	21664	
==>our messages, showing other messages instead which are
more appropriate to the context in whic <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21571	21664	
==>our messages, showing other messages instead which are
more appropriate to the context in whic <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5919	6029	
==>[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5919	6029	
==>[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const e <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8029	8131	
==>of_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28584	28677	
==>::KeyedText doesn't define any "Template" modules, but it expects you
to make modules having a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28584	28677	
==>::KeyedText doesn't define any "Template" modules, but it expects you
to make modules having a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3850	3957	
==>$nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normali <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3850	3957	
==>$nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normali <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4382	4485	
==>$nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normali <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4382	4485	
==>$nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normali <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	769	872	
==>sts will run somewhere quite different!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	682	796	
==>d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	682	796	
==>d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	789	897	
==>eep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0) is bu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17968	18062	
==>his header should contain an Internet e-mail address for the human
user who controls the reques <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17968	18062	
==>his header should contain an Internet e-mail address for the human
user who controls the reques <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3228	3377	
==>{ 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3228	3377	
==>{ 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4061	4161	
==>fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4061	4161	
==>fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4061	4161	
==>fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2244	2363	
==>}    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() } <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2244	2363	
==>}    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7049	7158	
==>primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is cop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7049	7158	
==>primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is cop <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7049	7158	
==>primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is cop <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34430	34522	
==>C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a gen <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38980	39072	
==>C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a gen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8705	8795	
==>$ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8705	8795	
==>$ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8705	8795	
==>$ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10311	10442	
==>instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10311	10442	
==>instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10311	10442	
==>instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7045	7148	
==>rint postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statemen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7045	7148	
==>rint postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statemen <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1270	1381	
==>ion => INSTALLATION_OBJECT )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->c <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	743	844	
==>n 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir/$plxname.bat: $! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3668	3768	
==>cating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3668	3768	
==>cating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4258	4358	
==>cating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8820	8983	
==>ted";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8820	8983	
==>ted";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	112	201	
==>9323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	112	201	
==>9323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	112	201	
==>9323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3163	3276	
==>ways return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3163	3276	
==>ways return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3163	3276	
==>ways return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # o <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3784	3879	
==>nal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCT <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3784	3879	
==>nal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCT <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13273	13400	
==>ned($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13273	13400	
==>ned($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13273	13400	
==>ned($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@li <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2158	2285	
==>ned($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@li <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39820	39946	
==>class");
      return $S->force_object(exact => "y");
    }
    else {
      # ...
    }
  });

Also note the C<RPe_BADESC> war <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1915	2025	
==>{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1915	2025	
==>{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2151	2261	
==>{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5570	5673	
==>g (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event:: <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5570	5673	
==>g (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7757	7861	
==>ses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7757	7861	
==>ses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7757	7861	
==>ses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26332	26428	
==>ttrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding proj <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30884	30980	
==>ttrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding proj <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4275	4372	
==>remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5172	5269	
==>remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4275	4372	
==>remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5172	5269	
==>remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	783	878	
==>r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test::Harne <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	656	786	
==>tore => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), ret <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14738	14860	
==>if !$m;
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3309	3425	
==>ted,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specifi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3309	3425	
==>ted,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specifi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4235	4334	
==>$V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(GetProp <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2157	2262	
==>mpty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2157	2262	
==>mpty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	152	248	
==>, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	152	248	
==>, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	152	248	
==>, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4864	5040	
==>}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_nam <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4864	5040	
==>}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	58	159	
==>ting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	58	159	
==>ting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	58	159	
==>ting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub g <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9387	9522	
==>fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10378	10513	
==>fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4443	4573	
==>+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4443	4573	
==>+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4443	4573	
==>+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! " <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7745	7942	
==>$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7745	7942	
==>$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16811	16910	
==>) without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16811	16910	
==>) without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16811	16910	
==>) without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12688	12817	
==>if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12688	12817	
==>if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13763	13882	
==>>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13763	13882	
==>>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13763	13882	
==>>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1368	1500	
==>fault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1368	1500	
==>fault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1368	1500	
==>fault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4482	4575	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4482	4575	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1476	1576	
==>m|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1476	1576	
==>m|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1476	1576	
==>m|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4952	5050	
==>eftover data and returns it as an array of bytes, 
then clears the object's internal state.  This s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4952	5050	
==>eftover data and returns it as an array of bytes, 
then clears the object's internal state.  This s <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3343	3467	
==>r>
    | <Comment>
    | <Token>
    | <RegularExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	516	608	
==>harset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1129	1221	
==>harset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	516	608	
==>harset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1129	1221	
==>harset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1664	1810	
==>e_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1664	1810	
==>e_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6679	6777	
==>, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6679	6777	
==>, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6679	6777	
==>, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1843	1991	
==>$op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6778	6926	
==>$op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1626	1769	
==>$op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6555	6698	
==>$op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1626	1769	
==>$op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2626	2750	
==>ave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "i <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2626	2750	
==>ave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6540	6644	
==>:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6540	6644	
==>:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6540	6644	
==>:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11658	11776	
==>' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2141	2257	
==>' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8913	9029	
==>' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2141	2257	
==>' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8913	9029	
==>' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variable: $_[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7622	7729	
==>{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7622	7729	
==>{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7622	7729	
==>{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17464	17559	
==>eyedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17464	17559	
==>eyedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3996	4121	
==>already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe) <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4460	4585	
==>already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20002	20095	
==>)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20002	20095	
==>)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20002	20095	
==>)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6748	6856	
==>tch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6748	6856	
==>tch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6748	6856	
==>tch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	381	475	
==>SCRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
tr <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	381	475	
==>SCRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
tr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	41	150	
==>Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	34	137	
==>Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	34	137	
==>Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	34	137	
==>Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	34	137	
==>Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1443	1573	
==>ALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1443	1573	
==>ALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1443	1573	
==>ALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8019	8106	
==>ush @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1844	1931	
==>ush @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4959	5070	
==>ompare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4959	5070	
==>ompare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1305	1409	
==>rt
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1305	1409	
==>rt
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1385	1489	
==>rt
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4046	4160	
==>Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4046	4160	
==>Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4046	4160	
==>Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26081	26177	
==>s.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30633	30729	
==>s.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17596	17749	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18253	18406	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17875	18028	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18532	18685	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	13774	13875	
==>r own type (see package val above)
val: type($$) = { $.t }

# combs (applications) pass their env to e <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7034	7211	
==>$newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7034	7211	
==>$newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	9	96	
==>s sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	9	96	
==>s sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	9	96	
==>s sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1002	1139	
==>turns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        sig  => <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14583	14687	
==>l print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14583	14687	
==>l print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3410	3509	
==>he 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that can <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3410	3509	
==>he 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that can <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4231	4329	
==>eters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2419	2517	
==>copes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4231	4329	
==>eters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2419	2517	
==>copes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2419	2517	
==>copes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16019	16154	
==>ep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16019	16154	
==>ep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16019	16154	
==>ep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12427	12535	
==>fs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be au <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12427	12535	
==>fs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be au <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12427	12535	
==>fs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be au <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	835	931	
==>h, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backt <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	835	931	
==>h, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4304	4474	
==>d $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4304	4474	
==>d $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4304	4474	
==>d $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21323	21418	
==>e and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25875	25970	
==>e and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17297	17389	
==>ot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17297	17389	
==>ot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19952	20043	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19952	20043	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19952	20043	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27196	27338	
==>,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27475	27617	
==>,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	38428	38521	
==>: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATI <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42977	43070	
==>: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATI <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42627	42720	
==>: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATI <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2761	2897	
==>ub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation') };
use constant ISA_JIB_REPOSITORY_SET <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8183	8301	
==>an => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      ret <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1250	1366	
==>rce.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	398	504	
==>an => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	398	504	
==>an => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2250	2411	
==>stic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11420	11530	
==>ther );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14897	15007	
==>ther );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4029	4126	
==>hod vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4029	4126	
==>hod vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10846	10983	
==>curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10846	10983	
==>curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11012	11111	
==>ams = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11012	11111	
==>ams = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11012	11111	
==>ams = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15245	15399	
==>f ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15239	15393	
==>f ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3874	3974	
==>). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3874	3974	
==>). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3874	3974	
==>). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1349	1499	
==>t_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item') <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1349	1499	
==>t_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item') <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2558	2658	
==>le->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Vari <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2698	2798	
==>le->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Vari <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3008	3150	
==>s[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3530	3669	
==>s[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2910	3049	
==>s[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3530	3669	
==>s[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6560	6651	
==>s instance)

$Object->add_singleton_method('singleton_test_on_object' => sub { 
    '&Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13113	13241	
==>th the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13113	13241	
==>th the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13113	13241	
==>th the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be define <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35172	35269	
==>em C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elem <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35172	35269	
==>em C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29406	29517	
==>= bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29406	29517	
==>= bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29406	29517	
==>= bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14042	14139	
==>name passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be vi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14042	14139	
==>name passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be vi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2937	3054	
==>? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3401	3518	
==>? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13902	14009	
==>}
rule Arguments :words {  # see 11.2
      <'('> <')'>
    | <'('> <ArgumentList> <')'>
}
rule ArgumentList <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	626	724	
==>should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) re <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	626	724	
==>should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6725	6886	
==>ch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6725	6886	
==>ch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6725	6886	
==>ch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16649	16770	
==>rn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16649	16770	
==>rn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	10618	10733	
==>> $file);
  my $output = ""; 
  
  while (my $rest = <$infile>) {
    chomp $rest;
    $output .= "<a name='line_$.' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18842	18933	
==>hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17885	17976	
==>hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18842	18933	
==>hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17885	17976	
==>hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3141	3245	
==>get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3141	3245	
==>get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3141	3245	
==>get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2504	2646	
==>'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2504	2646	
==>'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2504	2646	
==>'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20703	20799	
==>to your
preference.  Presumably the messages in these files are looked up by the
program using ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20703	20799	
==>to your
preference.  Presumably the messages in these files are looked up by the
program using ke <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2939	3345	
==>Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Int <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2939	3345	
==>Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Int <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3634	3745	
==>that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7111	7222	
==>that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6068	6179	
==>that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1100	1192	
==>ry functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1100	1192	
==>ry functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1170	1275	
==>ymbols and has

a main body closure. 



the Package part of the Module is simply a hash from strings

(sy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2419	2523	
==>from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2419	2523	
==>from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2419	2523	
==>from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1118	1219	
==>ymbols and has
a main body closure. 

the Package part of the Module is simply a hash from strings
(sy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19280	19383	
==>C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first blo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19280	19383	
==>C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first blo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3912	4011	
==>, :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3912	4011	
==>, :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5436	5535	
==>, :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9641	9757	
==>full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13118	13234	
==>full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $! <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12390	12506	
==>full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $! <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11467	11582	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11746	11861	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3591	3706	
==>val $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4908	5023	
==>val $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3591	3706	
==>val $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4896	5011	
==>val $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5201	5310	
==>\T' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\t", '\T') if $cc;
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37624	37739	
==>t;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37624	37739	
==>t;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37624	37739	
==>t;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2063	2176	
==>)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2063	2176	
==>)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9553	9673	
==>- $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9553	9673	
==>- $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9553	9673	
==>- $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $sl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8193	8409	
==>store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8193	8409	
==>store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8193	8409	
==>store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1592	1684	
==>here's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> fo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1592	1684	
==>here's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> fo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3264	3374	
==>ETH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empt <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3264	3374	
==>ETH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	490	597	
==>R_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	490	597	
==>R_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	490	597	
==>R_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  po <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	21226	21437	
==>("n"),
                    else => comb(
                        fun => comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3487	3621	
==>efined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matche <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4416	4548	
==>efined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matche <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3377	3509	
==>efined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matche <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4416	4548	
==>efined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3096	3285	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3096	3285	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3096	3285	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1200	1304	
==>method BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param< <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1200	1304	
==>method BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6255	6358	
==>S.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6255	6358	
==>S.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6255	6358	
==>S.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr. <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	749	837	
==>ttp://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1s <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	749	837	
==>ttp://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9732	9847	
==>ed>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9732	9847	
==>ed>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9732	9847	
==>ed>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8136	8235	
==>hould not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In real <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8136	8235	
==>hould not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In real <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3618	3773	
==>AR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3618	3773	
==>AR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3618	3773	
==>AR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17256	17355	
==>.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()` <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17256	17355	
==>.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()` <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7962	8076	
==>sg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to see if an error is a particular error, see
L</" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39601	39689	
==>, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenD <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24324	24412	
==>, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenD <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39601	39689	
==>, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenD <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24324	24412	
==>, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2728	2839	
==>type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2728	2839	
==>type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2728	2839	
==>type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7442	7551	
==>f_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7500	7609	
==>f_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3809	3989	
==>\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3809	3989	
==>\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6279	6414	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6279	6414	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6279	6414	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2367	2474	
==>ance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2367	2474	
==>ance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2367	2474	
==>ance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instanc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1023	1139	
==>);
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1023	1139	
==>);
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1023	1139	
==>);
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple f <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1815	1914	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) { <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1815	1914	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3612	3745	
==>e . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3612	3745	
==>e . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3612	3745	
==>e . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	560	649	
==>equest_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization E <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	560	649	
==>equest_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2757	2889	
==>lf->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2757	2889	
==>lf->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2757	2889	
==>lf->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1151	1253	
==>\} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1151	1253	
==>\} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11092	11177	
==>st-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11092	11177	
==>st-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11092	11177	
==>st-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	503	614	
==>allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	503	614	
==>allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	503	614	
==>allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3429	3524	
==>where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3307	3399	
==>where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29365	29472	
==>RINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29365	29472	
==>RINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1769	1870	
==>s ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bo <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1769	1870	
==>s ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	193	292	
==>RINGS is readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1117	1213	
==>arameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a pa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1117	1213	
==>arameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2293	2372	
==>tfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2293	2372	
==>tfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2293	2372	
==>tfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:| <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	200	305	
==>s readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	200	305	
==>s readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYA <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5038	5131	
==>test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diag <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5038	5131	
==>test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7235	7328	
==>test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4986	5092	
==>et->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sing <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4986	5092	
==>et->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sing <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4986	5092	
==>et->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sing <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1298	1403	
==>Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infin <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1298	1403	
==>Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1977	2087	
==>arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1977	2087	
==>arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1977	2087	
==>arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
C <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3180	3277	
==>P5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3180	3277	
==>P5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method a <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7447	7566	
==>& $self->{_is_vms} ) {
        eval q{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $results{'ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4992	5098	
==>ass->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4992	5098	
==>ass->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4992	5098	
==>ass->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23356	23453	
==><Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule FunctionBody :words {  # see cl <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7314	7429	
==>art_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7314	7429	
==>art_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	521	622	
==>n::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	521	622	
==>n::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	521	622	
==>n::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7693	7796	
==>=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=ov <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7693	7796	
==>=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=ov <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	938	1066	
==>an => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	938	1066	
==>an => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	938	1066	
==>an => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Pe <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2358	2477	
==>so get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http:// <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2358	2477	
==>so get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http:// <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31658	31755	
==>sertion).

=item max

The maximum repetition count of this object (for quantifiers).

=item min

T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25078	25164	
==>ver.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23842	23928	
==>ver.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25078	25164	
==>ver.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23842	23928	
==>ver.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6641	6809	
==>turing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6834	7002	
==>turing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7223	7332	
==>d $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7223	7332	
==>d $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7223	7332	
==>d $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14671	14789	
==>we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated wi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14671	14789	
==>we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated wi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14671	14789	
==>we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated wi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1067	1177	
==>we take the MRO first, however at some early
    # stages of the bootstrap, this is not yet 
    # populated wi <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24989	25081	
==>d by Test::Harness by default.

C<$verbose>, C<$switches> and C<$debug> are exported upon req <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	563	684	
==>LF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	563	684	
==>LF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	563	684	
==>LF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5288	5388	
==>eClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5288	5388	
==>eClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5288	5388	
==>eClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35102	35198	
==>he changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

Thi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35102	35198	
==>he changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6445	6590	
==>eturn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6445	6590	
==>eturn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6445	6590	
==>eturn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10385	10481	
==>tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10443	10539	
==>tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7946	8053	
==>ranslate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7958	8065	
==>ranslate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6543	6649	
==>MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6543	6649	
==>MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6543	6649	
==>MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	769	891	
==>/\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	769	891	
==>/\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	470	568	
==>$js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	470	568	
==>$js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	470	568	
==>$js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6745	6859	
==>lar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6745	6859	
==>lar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10303	10403	
==>ole too.
    # -----------------------------------------------    
    method resolve () { "<implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10303	10403	
==>ole too.
    # -----------------------------------------------    
    method resolve () { "<implemen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10303	10403	
==>ole too.
    # -----------------------------------------------    
    method resolve () { "<implemen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7300	7466	
==>erl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7300	7466	
==>erl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7300	7466	
==>erl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS- <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13255	13349	
==>> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13255	13349	
==>> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13679	13816	
==>hange -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13679	13816	
==>hange -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13679	13816	
==>hange -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5925	6062	
==>hange -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4425	4562	
==>hange -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to destroy all <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	375	534	
==>=> $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.stat <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	375	534	
==>=> $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3352	3477	
==>b bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3352	3477	
==>b bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3708	3833	
==>b bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21910	22030	
==>->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21910	22030	
==>->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DES <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21910	22030	
==>->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DES <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1376	1475	
==>ithout any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, re <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1376	1475	
==>ithout any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5602	5700	
==>$rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5602	5700	
==>$rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5602	5700	
==>$rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	452	537	
==>------------------------------------------------------------------
## accessors and mu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	452	537	
==>------------------------------------------------------------------
## accessors and mu <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	2938	3060	
==>$self->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
}

sub set_build_info {
    my($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21189	21282	
==>module distribtution do not need to have the compilers installed
themselves. So you don't need <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21189	21282	
==>module distribtution do not need to have the compilers installed
themselves. So you don't need <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1848	1940	
==>to various intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1776	1867	
==>to various intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6253	6365	
==>match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6253	6365	
==>match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1725	1863	
==>\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method p <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1725	1863	
==>\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37684	37783	
==>g common tuple values
are aligned and merged.  The heading of the new relation is the union of
all t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42233	42332	
==>g common tuple values
are aligned and merged.  The heading of the new relation is the union of
all t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41883	41982	
==>g common tuple values
are aligned and merged.  The heading of the new relation is the union of
all t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3200	3333	
==>!! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3200	3333	
==>!! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14697	14810	
==>r
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_mes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14697	14810	
==>r
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_mes <==
5	/Users/nnunley/pugs/util/version_h.pl	2288	2381	
==>ion number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2258	2373	
==>c_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimzed` w <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19734	19829	
==>t variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18715	18810	
==>t variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19734	19829	
==>t variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18715	18810	
==>t variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4096	4196	
==>'re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diag <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4096	4196	
==>'re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4176	4276	
==>'re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diag <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2653	2751	
==>:Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as P <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2653	2751	
==>:Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4719	4817	
==>ified version
of the result object (usually the entire match string).

=head2 0+

When used as a nu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4719	4817	
==>ified version
of the result object (usually the entire match string).

=head2 0+

When used as a nu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3302	3396	
==>nostic output of tests,
running those tests, and then telling this module to compare the receiv <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3302	3396	
==>nostic output of tests,
running those tests, and then telling this module to compare the receiv <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3382	3476	
==>nostic output of tests,
running those tests, and then telling this module to compare the receiv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6053	6190	
==>es up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filte <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6053	6190	
==>es up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5675	5781	
==>ssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5675	5781	
==>ssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5675	5781	
==>ssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3829	3969	
==>de, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4074	4207	
==>de, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10523	10656	
==>de, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4074	4207	
==>de, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10523	10656	
==>de, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'capture', unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13293	13421	
==>= $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13293	13421	
==>= $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13293	13421	
==>= $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chan <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2178	2306	
==>= $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	671	792	
==>n "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clea <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1490	1633	
==>te_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # scr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29620	29747	
==>hift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29620	29747	
==>hift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29620	29747	
==>hift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1711	1814	
==>hift;

    $by_digest{$digest};
}

sub build_indirect_typed_value {
	my $class = shift;
	my $val = shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3523	3622	
==>lice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3523	3622	
==>lice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3523	3622	
==>lice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11100	11196	
==>k

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11100	11196	
==>k

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1007	1194	
==>ect:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1007	1194	
==>ect:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if th <==
5	/Users/nnunley/pugs/util/importgraph.pl	1301	1406	
==>$mod (values %modules) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3244	3326	
==>ersection( $self.complement_previous, $self.complement_next, $set.complement_previo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3244	3326	
==>ersection( $self.complement_previous, $self.complement_next, $set.complement_previo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36676	36773	
==>case is where any any source relation has zero
tuples, in which case the result does too.  Another <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41225	41322	
==>case is where any any source relation has zero
tuples, in which case the result does too.  Another <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40848	40945	
==>case is where any any source relation has zero
tuples, in which case the result does too.  Another <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1576	1694	
==>_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15225	15334	
==>)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15225	15334	
==>)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15225	15334	
==>)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1487	1587	
==>_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtil <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	23018	23170	
==>'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1571	1676	
==>new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1571	1676	
==>new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1571	1676	
==>new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.lengt <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3515	3609	
==>ubs and no inexistant symbols

=back

The compiler inherits L<Blondie::Reducer> in order to tra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7169	7282	
==>($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7169	7282	
==>($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7169	7282	
==>($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $t <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15636	15729	
==>ll characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15636	15729	
==>ll characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	801	950	
==>method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	801	950	
==>method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1953	2050	
==>urns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1953	2050	
==>urns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1953	2050	
==>urns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3297	3424	
==>$self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3297	3424	
==>$self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3297	3424	
==>$self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($se <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22569	22687	
==>if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in EvalX.
        re <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	20781	20879	
==>dex->{_dirs}->{$subdir . "/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8479	8627	
==>1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8479	8627	
==>1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9652	9757	
==>, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9652	9757	
==>, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9652	9757	
==>, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  re <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25527	25625	
==>t the object
represents (or gives the name of a condition being reported, if it is used
as an excep <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3193	3291	
==>ws you to test test modules that use Test::Builder.  It
does this by you setting the expected outpu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25527	25625	
==>t the object
represents (or gives the name of a condition being reported, if it is used
as an excep <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3193	3291	
==>ws you to test test modules that use Test::Builder.  It
does this by you setting the expected outpu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3273	3371	
==>ws you to test test modules that use Test::Builder.  It
does this by you setting the expected outpu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2496	2598	
==>lap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2496	2598	
==>lap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2496	2598	
==>lap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18595	18686	
==>) returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') correspo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18595	18686	
==>) returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') correspo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7055	7196	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7055	7196	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7055	7196	
==>ELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # pe <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3838	3931	
==>re power, move up to Config::Simple, Config::General or one of the
many other Config:: modules <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3838	3931	
==>re power, move up to Config::Simple, Config::General or one of the
many other Config:: modules <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16557	16673	
==>Module;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16557	16673	
==>Module;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	953	1055	
==>>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	953	1055	
==>>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	953	1055	
==>>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12858	12969	
==>key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12858	12969	
==>key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12858	12969	
==>key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4015	4115	
==>eam;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4015	4115	
==>eam;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1421	1541	
==>::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1421	1541	
==>::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1421	1541	
==>::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->g <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6575	6674	
==>s intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The ` <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6575	6674	
==>s intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The ` <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12993	13104	
==>) {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12993	13104	
==>) {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12993	13104	
==>) {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2933	3030	
==>the
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tre <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2933	3030	
==>the
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tre <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	2024	2125	
==>'   { Pugs::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::Internals::eval_haskell <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32483	32573	
==>le::KeyedText::Translator Class

While a Translator object stores some attributes for confi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32483	32573	
==>le::KeyedText::Translator Class

While a Translator object stores some attributes for confi <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5782	5867	
==>search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implement <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5782	5867	
==>search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implement <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3114	3254	
==>n('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3114	3254	
==>n('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3114	3254	
==>n('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	715	808	
==>as invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	715	808	
==>as invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2791	2939	
==>$match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        } <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2791	2939	
==>$match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3125	3239	
==>class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3125	3239	
==>class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3125	3239	
==>class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bo <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6849	6982	
==>nst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_I <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11404	11537	
==>nst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_I <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12202	12335	
==>nst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_I <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12929	13062	
==>nst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_I <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31136	31235	
==>).  Here is a very simple complete sub-class that does not allow
the C<(?{ ... })> and C<(??{ ... }) <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1668	1785	
==>pare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1668	1785	
==>pare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6965	7054	
==>----------------------------------------------

# stub this for the moment ...
$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6965	7054	
==>----------------------------------------------

# stub this for the moment ...
$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6965	7054	
==>----------------------------------------------

# stub this for the moment ...
$::Class->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	347	576	
==>olException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	347	576	
==>olException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	347	576	
==>olException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24791	24889	
==>on, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
F <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24791	24889	
==>on, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
F <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7054	7394	
==>cense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7111	7451	
==>cense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	677	777	
==>r = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	677	777	
==>r = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	677	777	
==>r = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13831	13949	
==>ct;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $k <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13831	13949	
==>ct;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $k <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4176	4284	
==>a("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4176	4284	
==>a("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4176	4284	
==>a("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	19534	19653	
==>int = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1268	1448	
==>cument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1268	1448	
==>cument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1268	1448	
==>cument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	231	341	
==>cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	231	341	
==>cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15898	16079	
==>subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15892	16073	
==>subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3126	3218	
==>options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3126	3218	
==>options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3126	3218	
==>options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs= <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1851	2047	
==>in.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1851	2047	
==>in.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5897	6009	
==>ng hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5897	6009	
==>ng hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5897	6009	
==>ng hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1971	2101	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1971	2101	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1971	2101	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  und <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2908	3000	
==>=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<va <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2908	3000	
==>=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8532	8666	
==>code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '! <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8532	8666	
==>code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13371	13499	
==>calized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13371	13499	
==>calized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13371	13499	
==>calized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4706	4827	
==>method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4706	4827	
==>method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4706	4827	
==>method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $met <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2256	2352	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2256	2352	
==>$msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3549	3659	
==>ookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out) <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3549	3659	
==>ookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14454	14624	
==>p::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14733	14903	
==>p::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	154	303	
==>nce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	154	303	
==>nce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	154	303	
==>nce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	424	524	
==>ure
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	424	524	
==>ure
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	424	524	
==>ure
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a c <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16918	17008	
==>1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1376	1553	
==>ributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1376	1553	
==>ributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	121	224	
==>s) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	121	224	
==>s) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	121	224	
==>s) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7619	7755	
==>datory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_inde <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7619	7755	
==>datory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_inde <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11028	11129	
==>ame) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$code_val));";
    }
    $code;
}

my %as_bool_handlers <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20029	20113	
==>C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20029	20113	
==>C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	636	775	
==>od.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $se <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	636	775	
==>od.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	407	510	
==>sname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	407	510	
==>sname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return << <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	407	510	
==>sname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return << <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11603	11717	
==>o work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11603	11717	
==>o work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11603	11717	
==>o work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/po <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24981	25077	
==>her components is making a
combined work based on Rosetta.  Thus, the terms and conditions of the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24981	25077	
==>her components is making a
combined work based on Rosetta.  Thus, the terms and conditions of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	375	492	
==>$jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	375	492	
==>$jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	375	492	
==>$jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2534	2641	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.], <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2534	2641	
==>> q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.], <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4895	5002	
==>so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4895	5002	
==>so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4895	5002	
==>so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36235	36320	
==>of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre']. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36235	36320	
==>of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre']. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8474	8617	
==>ext unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4834	4977	
==>ext unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5683	5826	
==>ext unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5201	5331	
==>name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5213	5343	
==>name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6459	6586	
==>c->catfile( $to, $target ) 
                } File::Find::Rule->file->in( $from );
    } else {
        %from = ( $from => $to ) <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	699	813	
==>self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer::DynamicScoping::Pad- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1651	1759	
==>sa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1651	1759	
==>sa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1651	1759	
==>sa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15171	15271	
==>nerate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15171	15271	
==>nerate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
co <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8298	8509	
==>=> $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $ar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8298	8509	
==>=> $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $ar <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	445	542	
==>put

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	445	542	
==>put

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1001	1098	
==>put

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28460	28728	
==>}
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28460	28728	
==>}
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28460	28728	
==>}
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).per <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8496	8623	
==>my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clump',
      type => 'clump',
      vis = <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	15620	15731	
==>ow it oughta look, with @ids being class level.
        #my @ids = <year month day hour min sec picosec wday yda <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1967	2157	
==>->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2387	2571	
==>->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1903	2087	
==>->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2387	2571	
==>->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node, <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5439	5527	
==>_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10985	11105	
==>ocal $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10979	11099	
==>ocal $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4289	4397	
==>elf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... lo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4289	4397	
==>elf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... lo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4289	4397	
==>elf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	552	658	
==>vide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	552	658	
==>vide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	552	658	
==>vide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08- <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2084	2185	
==>unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2084	2185	
==>unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	728	853	
==>tures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     in <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	728	853	
==>tures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1566	1708	
==>ibe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1566	1708	
==>ibe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1566	1708	
==>ibe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4164	4295	
==>atches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4036	4164	
==>atches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11043	11150	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11043	11150	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11043	11150	
==>ue;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	278	384	
==>t</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	278	384	
==>t</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2690	2786	
==>$data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) } <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2690	2786	
==>$data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1932	2022	
==>eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1932	2022	
==>eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:« <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1932	2022	
==>eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:« <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1215	1374	
==>, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub comm <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1215	1374	
==>, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub comm <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29630	29725	
==>or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anoth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34182	34277	
==>or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anoth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33346	33441	
==>or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anoth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9519	9711	
==>0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9519	9711	
==>0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9519	9711	
==>0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4672	4861	
==>ch: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4672	4861	
==>ch: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6105	6240	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6105	6240	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6105	6240	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    c <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9300	9426	
==>ess ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $m <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9300	9426	
==>ess ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3520	3625	
==>)
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3520	3625	
==>)
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3520	3625	
==>)
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{p <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7934	8030	
==>ment ('item')>

This event is fired when an '=item' directive is reached, the next event fired wi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7934	8030	
==>ment ('item')>

This event is fired when an '=item' directive is reached, the next event fired wi <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2814	2924	
==>( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.clo <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2814	2924	
==>( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.clo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13108	13206	
==>-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13108	13206	
==>-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13108	13206	
==>-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3594	3724	
==>ethod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3594	3724	
==>ethod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $bo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3594	3724	
==>ethod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $bo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3151	3248	
==>te references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters ar <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3151	3248	
==>te references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	561	654	
==>fg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	561	654	
==>fg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	561	654	
==>fg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35483	35570	
==>med
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40033	40120	
==>med
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	717	868	
==>'((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3788	3939	
==>'((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	717	868	
==>'((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3788	3939	
==>'((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1815	1905	
==>ss::runtests(@tests)> runs all the testscripts named
as arguments and checks standard outpu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	840	957	
==>tion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	840	957	
==>tion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	840	957	
==>tion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      fo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18232	18330	
==>opening file', programs would have a harder time figuring out the
best way to deal with it.  But fo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18232	18330	
==>opening file', programs would have a harder time figuring out the
best way to deal with it.  But fo <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3817	4118	
==>h.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'h <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3817	4118	
==>h.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12366	12473	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12366	12473	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12366	12473	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _( <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8562	8703	
==>\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10153	10285	
==>ax} unexpectedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5347	5456	
==>);
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5347	5456	
==>);
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5347	5456	
==>);
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set( <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13738	13836	
==>ue.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

= <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13796	13894	
==>ue.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2253	2342	
==>f => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2253	2342	
==>f => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2253	2342	
==>f => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4234	4386	
==>dency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $e <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4698	4850	
==>dency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	24	134	
==>warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1838	1960	
==>mples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1838	1960	
==>mples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1838	1960	
==>mples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2416	2529	
==>n', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2416	2529	
==>n', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4614	4767	
==>$capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4474	4618	
==>$capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3185	3314	
==>tribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3185	3314	
==>tribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3185	3314	
==>tribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{clas <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4730	4841	
==>$res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span ) <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4730	4841	
==>$res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3086	3183	
==>:Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3086	3183	
==>:Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3086	3183	
==>:Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5447	5550	
==>his
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tre <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5447	5550	
==>his
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17500	17597	
==>1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17500	17597	
==>1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17500	17597	
==>1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	495	618	
==>o cperl-mode ;))

our $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: (\d+) \s* M <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4154	4261	
==>r_token_match_1";
    goto token_match;
    bsr_token_match_1:
    goto found_term if $operator;
    goto nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	19	111	
==>ity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	19	111	
==>ity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	19	111	
==>ity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24041	24179	
==>q 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24041	24179	
==>q 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24041	24179	
==>q 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6724	6828	
==>= .template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6724	6828	
==>= .template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12805	12901	
==>S_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12805	12901	
==>S_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12805	12901	
==>S_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from P <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13520	13610	
==>ter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13520	13610	
==>ter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12141	12245	
==>class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pk <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12141	12245	
==>class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pk <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12141	12245	
==>class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pk <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1442	1541	
==>y::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1442	1541	
==>y::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2216	2323	
==>d is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { retu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2216	2323	
==>d is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { retu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1506	1611	
==>iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

su <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1506	1611	
==>iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

su <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7817	7917	
==>ntDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.< <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4967	5082	
==>x_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the pa <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4967	5082	
==>x_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2483	2595	
==>nt(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2483	2595	
==>nt(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2483	2595	
==>nt(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5561	5665	
==>at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5561	5665	
==>at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5561	5665	
==>at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2970	3068	
==>t, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2970	3068	
==>t, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5914	6026	
==>(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5914	6026	
==>(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5914	6026	
==>(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32509	32602	
==>Class

While a Translator object stores some attributes for configuration, its
main purpose is <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32509	32602	
==>Class

While a Translator object stores some attributes for configuration, its
main purpose is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1270	1376	
==>for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1270	1376	
==>for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PI <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1270	1376	
==>for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26464	26563	
==>ou
may store references to other objects in them if you wish.

=back

This is the main Message const <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26464	26563	
==>ou
may store references to other objects in them if you wish.

=back

This is the main Message const <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	1421	1549	
==>it;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it we <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	185	282	
==>l_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	241	338	
==>l_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	185	282	
==>l_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	241	338	
==>l_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11632	11755	
==>adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2115	2236	
==>adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8887	9008	
==>adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2115	2236	
==>adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8887	9008	
==>adds an 'before' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	836	950	
==>mp"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	836	950	
==>mp"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	836	950	
==>mp"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1535	1647	
==>s supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1535	1647	
==>s supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	317	486	
==>$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	317	486	
==>$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	317	486	
==>$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1223	1319	
==>act_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1223	1319	
==>act_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10413	10532	
==>) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10413	10532	
==>) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10413	10532	
==>) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	228	323	
==>re");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	228	323	
==>re");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5321	5468	
==>sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to ins <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5785	5932	
==>sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to ins <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5502	5631	
==>e';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5502	5631	
==>e';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int', <==
5	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	243	347	
==>");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grap <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7429	7539	
==>mper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7441	7551	
==>mper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1660	1761	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1660	1761	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1660	1761	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatc <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1920	2057	
==>:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $cont <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1920	2057	
==>:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	425	541	
==>VERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	425	541	
==>VERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	425	541	
==>VERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4782	4885	
==>-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4782	4885	
==>-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4782	4885	
==>-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1221	1311	
==>I.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1221	1311	
==>I.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2766	2903	
==>e }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tai <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2766	2903	
==>e }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3249	3347	
==>= 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3249	3347	
==>= 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3249	3347	
==>= 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	633	730	
==>lementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	633	730	
==>lementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cle <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	633	730	
==>lementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cle <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5175	5266	
==>::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 D <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5175	5266	
==>::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8284	8382	
==>qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8284	8382	
==>qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8284	8382	
==>qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24670	24765	
==>oolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29222	29317	
==>oolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1261	1375	
==>ng is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1261	1375	
==>ng is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1261	1375	
==>ng is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= " <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1832	1933	
==>got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

su <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1890	1991	
==>got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

su <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6278	6403	
==>@ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6278	6403	
==>@ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3183	3279	
==>il2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3183	3279	
==>il2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3183	3279	
==>il2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $n <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1917	2020	
==>- Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2790	2893	
==>emAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1917	2020	
==>- Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2790	2893	
==>emAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2790	2893	
==>emAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7228	7350	
==>last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $file <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3553	3671	
==>attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8941	9036	
==>rcumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8941	9036	
==>rcumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8941	9036	
==>rcumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[] <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	539	662	
==>]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an ex <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	539	662	
==>]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an ex <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19884	19979	
==>afterwards.

If you want something similar but that is more mutable, you can accomplish
that man <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24436	24531	
==>afterwards.

If you want something similar but that is more mutable, you can accomplish
that man <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22988	23083	
==>afterwards.

If you want something similar but that is more mutable, you can accomplish
that man <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13482	13572	
==>cifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') correspon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1567	1657	
==>class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13482	13572	
==>cifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') correspon <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1567	1657	
==>class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1567	1657	
==>class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2471	2598	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2471	2598	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2471	2598	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cel <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29230	29356	
==>$capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29509	29635	
==>$capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10172	10281	
==>$pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    my($name,$vars,$body)=@_;

    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1421	1527	
==>r - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1421	1527	
==>r - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2494	2597	
==>e: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2411	2512	
==>e: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6138	6293	
==>rr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6138	6293	
==>rr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6138	6293	
==>rr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pa <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39531	39625	
==>) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39531	39625	
==>) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3977	4162	
==>irs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7454	7639	
==>irs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6420	6605	
==>irs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1388	1492	
==>' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set: <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1388	1492	
==>' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3177	3309	
==>$op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3177	3309	
==>$op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3443	3552	
==>printf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3443	3552	
==>printf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3443	3552	
==>printf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($meth <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1359	1477	
==>ary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_ru <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1326	1444	
==>ary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	428	523	
==>join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	428	523	
==>join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	428	523	
==>join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1666	1886	
==>\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1666	1886	
==>\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3383	3479	
==>are the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3383	3479	
==>are the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3463	3559	
==>are the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	589	695	
==>les like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	589	695	
==>les like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	589	695	
==>les like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11198	11290	
==>harset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11198	11290	
==>harset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	77	245	
==>];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $M <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1380	1486	
==>array.keys -> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Ite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2213	2315	
==>mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2213	2315	
==>mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2213	2315	
==>mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	975	1095	
==>"1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1563	1674	
==>tr $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1563	1674	
==>tr $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5877	5987	
==>tr $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5877	5987	
==>tr $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3122	3229	
==>lse {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3122	3229	
==>lse {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3122	3229	
==>lse {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	518	620	
==>($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *pre <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	518	620	
==>($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *pre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13591	13754	
==>_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9775	9938	
==>_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10611	10774	
==>_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13641	13741	
==>es will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13641	13741	
==>es will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	945	1057	
==>:magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	945	1057	
==>:magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	945	1057	
==>:magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7084	7190	
==>umper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', na <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7084	7190	
==>umper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17802	17976	
==>') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17802	17976	
==>') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17802	17976	
==>') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16290	16383	
==>ications and packages that empowers single binaries to support N
locales or user types simulta <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16290	16383	
==>ications and packages that empowers single binaries to support N
locales or user types simulta <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3842	3953	
==>pen =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3842	3953	
==>pen =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10250	10349	
==>e_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10250	10349	
==>e_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10250	10349	
==>e_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11097	11233	
==>Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11097	11233	
==>Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11097	11233	
==>Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22515	22610	
==>ten it will also provide some variable values to be
interpolated into the user strings; Locale:: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22515	22610	
==>ten it will also provide some variable values to be
interpolated into the user strings; Locale:: <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	959	1065	
==>eturn $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    ret <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	959	1065	
==>eturn $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5844	5945	
==>lems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5844	5945	
==>lems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5844	5945	
==>lems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8392	8574	
==>elf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_ME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8392	8574	
==>elf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_ME <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8392	8574	
==>elf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_ME <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5611	5710	
==>omplement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_n <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5611	5710	
==>omplement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17572	17705	
==>' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17572	17705	
==>' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13916	14045	
==>heck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13916	14045	
==>heck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13916	14045	
==>heck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        els <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3047	3170	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3240	3363	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3827	3935	
==>xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3827	3935	
==>xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3827	3935	
==>xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    fo <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1917	2010	
==>dded in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1917	2010	
==>dded in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9792	9944	
==>turns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9792	9944	
==>turns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->param <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9792	9944	
==>turns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->param <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1695	1812	
==>[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2475	2592	
==>[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16995	17112	
==>as a name if none was given
    unless( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $n <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1133	1244	
==>pen_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) { <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4372	4483	
==>pen_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1133	1244	
==>pen_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4372	4483	
==>pen_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19150	19245	
==>PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19150	19245	
==>PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19150	19245	
==>PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	836	930	
==>1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	836	930	
==>1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5565	5729	
==>nvocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5565	5729	
==>nvocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5565	5729	
==>nvocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15033	15158	
==>tch result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19208	19333	
==>tch result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	836	953	
==>%param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %pa <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	578	695	
==>%param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	836	953	
==>%param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %pa <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	578	695	
==>%param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %pa <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1677	1773	
==>g{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24105	24233	
==>ED tests @canon\n";
        $canon = join ' ', @canon;
    } else {
        push @result, "FAILED test $last\n";
        $canon = <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	312	427	
==>s.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clon <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	312	427	
==>s.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clon <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1303	1390	
==>%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1303	1390	
==>%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14605	14715	
==>onnection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug " <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14605	14715	
==>onnection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug " <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5072	5165	
==>est has passed or failed, depending on the value of C<$passed>,
recording C<$description> as a <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5072	5165	
==>est has passed or failed, depending on the value of C<$passed>,
recording C<$description> as a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6596	6689	
==>est has passed or failed, depending on the value of C<$passed>,
recording C<$description> as a <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7785	7899	
==>en -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: St <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7785	7899	
==>en -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19978	20068	
==>_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19978	20068	
==>_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19978	20068	
==>_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	44	156	
==>7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	LAST {
		print $potato, "more.";
	}
} <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2543	2652	
==>>elems)->to_native
    )     
}

# some of the common list operations

sub head { @{$_[0]}[0] }
sub tail { lis <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2864	3030	
==>. ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2864	3030	
==>. ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28940	29034	
==>ndle names that have no "predecessor" (that is, a '&&' without a '&')
are pre-consumption: that <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3346	3439	
==>(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\n <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3346	3439	
==>(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\n <==
5	/Users/nnunley/pugs/util/package-osx.pl	4603	4700	
==>cal/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13154	13247	
==>itable as a generic data interchange format between
Rosetta::Model and other Perl code such as <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18249	18342	
==>itable as a generic data interchange
format between Rosetta::Model and other Perl code such as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13154	13247	
==>itable as a generic data interchange format between
Rosetta::Model and other Perl code such as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18249	18342	
==>itable as a generic data interchange
format between Rosetta::Model and other Perl code such as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4471	4592	
==>ds => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4471	4592	
==>ds => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4471	4592	
==>ds => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12394	12488	
==>- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Th <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12452	12546	
==>- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8518	8635	
==>= arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8518	8635	
==>= arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8518	8635	
==>= arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i]. <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	213	323	
==>nces from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - im <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	213	323	
==>nces from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - im <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5767	5944	
==>er on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>( <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5767	5944	
==>er on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>( <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4903	5068	
==>er on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>( <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4903	5068	
==>er on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3281	3387	
==>shift;
    list->new(CORE::reverse(@{$self}));
}

## list iterators

sub each : method {
    my ($self, $cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2295	2384	
==>e_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2295	2384	
==>e_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2295	2384	
==>e_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaq <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3827	3943	
==>n 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'u <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3827	3943	
==>n 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9528	9615	
==>Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9528	9615	
==>Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requir <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9528	9615	
==>Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_requir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1187	1288	
==>elf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1187	1288	
==>elf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1187	1288	
==>elf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "P <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	140	230	
==>r init_header remove_header remove_content_headers header_field_names scan
    date expires <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	140	230	
==>r init_header remove_header remove_content_headers header_field_names scan
    date expires <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	2097	2204	
==>n\d\b/
      or die <<".";
Can't generate the correct Perl6 equivalent for:

    $path

field name: $name
os <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8178	8271	
==>:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7308	7401	
==>:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8178	8271	
==>:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7308	7401	
==>:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15089	15234	
==>'group',
      data => \@data,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5384	5498	
==>turn new_box('Bit',(shift()?1:0),@_) if $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4562	4660	
==>js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4562	4660	
==>js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4562	4660	
==>js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	274	384	
==>--------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.wid <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	274	384	
==>--------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.wid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1436	1537	
==>S_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1436	1537	
==>S_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1436	1537	
==>S_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2263	2386	
==>nd, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2263	2386	
==>nd, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2263	2386	
==>nd, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ". <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23210	23306	
==>is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27762	27858	
==>is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	790	927	
==>> $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	772	904	
==>> $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	772	904	
==>> $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	18674	18788	
==>_reason};
            $totals->{skip_reason} = 'various reasons'
              if $totals->{skip_reason} ne $detail <==
5	/Users/nnunley/pugs/util/run-smoke.pl	2383	2474	
==>l/testgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8428	8570	
==>x') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12341	12479	
==>x') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12341	12479	
==>x') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4323	4430	
==>turns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinit <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4323	4430	
==>turns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2022	2229	
==>ing);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5499	5706	
==>ing);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4429	4636	
==>ing);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_a <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1649	1748	
==>mpty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size. <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1649	1748	
==>mpty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1326	1446	
==>aults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1326	1446	
==>aults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1326	1446	
==>aults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1356	1460	
==>sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1356	1460	
==>sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6951	7071	
==>lice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6951	7071	
==>lice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6951	7071	
==>lice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2664	2761	
==>tions.

If two different data streams are enciphered with the same key, the encryption 
can be rem <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2664	2761	
==>tions.

If two different data streams are enciphered with the same key, the encryption 
can be rem <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5437	5536	
==>n it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5437	5536	
==>n it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9436	9533	
==>',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9436	9533	
==>',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_lo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21554	21648	
==>)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_space;
BEGIN{
%space_from_sigil = ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1748	1853	
==>{ $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARG <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1748	1853	
==>{ $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10969	11072	
==>$ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10969	11072	
==>$ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10969	11072	
==>$ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38709	38803	
==>variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38709	38803	
==>variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22782	22900	
==>flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19203	19321	
==>flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1268	1383	
==>pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1268	1383	
==>pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1268	1383	
==>pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1533	1637	
==>i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1533	1637	
==>i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1533	1637	
==>i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	123	223	
==>ay {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$da <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	123	223	
==>ay {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$da <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1448	1646	
==>"my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                m <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1448	1646	
==>"my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9168	9321	
==>nt*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   sa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9168	9321	
==>nt*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   sa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9168	9321	
==>nt*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   sa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24927	25020	
==>SA.

Linking Rosetta statically or dynamically with other components is making a
combined work <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24927	25020	
==>SA.

Linking Rosetta statically or dynamically with other components is making a
combined work <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6048	6142	
==>lock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
nod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6048	6142	
==>lock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
nod <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2947	3041	
==>lock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
nod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1422	1538	
==>= ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try ag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1627	1743	
==>= ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try ag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1688	1804	
==>= ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try ag <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21229	21326	
==>hods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gis <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21229	21326	
==>hods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gis <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6427	6520	
==>d::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2 <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6427	6520	
==>d::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19775	19865	
==>UB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<l <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19775	19865	
==>UB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<l <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19775	19865	
==>UB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8797	8952	
==>::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8797	8952	
==>::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8797	8952	
==>::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24062	24157	
==>ers
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zer <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28614	28709	
==>ers
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zer <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	764	892	
==>m to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	764	892	
==>m to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18449	18547	
==>w( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18449	18547	
==>w( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18449	18547	
==>w( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	875	1003	
==>r(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	875	1003	
==>r(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	875	1003	
==>r(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $valu <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1796	1892	
==>a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1796	1892	
==>a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1362	1475	
==>f(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1362	1475	
==>f(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1362	1475	
==>f(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3300	3403	
==>>force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1150	1253	
==>>force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	738	866	
==>6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	738	866	
==>6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	738	866	
==>6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22521	22687	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self: <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42310	42475	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12798	12892	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12798	12892	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12798	12892	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5311	5468	
==>> sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5311	5468	
==>> sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5311	5468	
==>> sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - d <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	810	903	
==>or English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SY <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	810	903	
==>or English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4789	4977	
==>efined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4789	4977	
==>efined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4789	4977	
==>efined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1002	1104	
==>er
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident or <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1002	1104	
==>er
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1033	1179	
==>:SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1033	1179	
==>:SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1033	1179	
==>:SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6081	6184	
==>Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,mes <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6081	6184	
==>Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,mes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1965	2067	
==>:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1965	2067	
==>:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1965	2067	
==>:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15891	15979	
==>tem C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

T <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15891	15979	
==>tem C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22793	22989	
==>lar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22793	22989	
==>lar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22793	22989	
==>lar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # X <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4086	4199	
==>val_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4935	5048	
==>val_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1529	1615	
==>gs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<rege <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1529	1615	
==>gs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<rege <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25485	25695	
==>rm2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26143	26353	
==>rm2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25764	25974	
==>rm2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26422	26632	
==>rm2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3257	3419	
==>er => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            preceden <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4784	4954	
==>{ 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4784	4954	
==>{ 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4784	4954	
==>{ 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->sto <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16405	16504	
==>t, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16405	16504	
==>t, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side o <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14033	14125	
==>7-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full p <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14033	14125	
==>7-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	29	130	
==>pe {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	29	130	
==>pe {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	29	130	
==>pe {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.C <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10435	10527	
==>options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
meth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10435	10527	
==>options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
meth <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2231	2335	
==>Level = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARR <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5063	5160	
==>sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4190	4287	
==>sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5063	5160	
==>sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4190	4287	
==>sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1186	1359	
==>ts<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>( <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1186	1359	
==>ts<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5589	5686	
==>lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5589	5686	
==>lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5589	5686	
==>lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ . <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16653	16760	
==>$X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::curren <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6679	6781	
==>_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6679	6781	
==>_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7047	7145	
==>_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7047	7145	
==>_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11023	11195	
==>$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11023	11195	
==>$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11023	11195	
==>$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $t <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	304	474	
==>f ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsi <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	304	474	
==>f ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13198	13354	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27312	27468	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13477	13633	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27591	27747	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	5674	5778	
==>"\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3905	4009	
==>Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3905	4009	
==>Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	66	162	
==>unctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	66	162	
==>unctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	66	162	
==>unctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Per <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2775	2901	
==>gs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2704	2829	
==>)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if ! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2704	2829	
==>)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if ! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2704	2829	
==>)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1867	1974	
==>nt, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_ou <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1867	1974	
==>nt, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	523	610	
==>-------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	523	610	
==>-------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	523	610	
==>-------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6279	6548	
==>];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other err <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6743	7012	
==>];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other err <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21625	21797	
==>l6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21625	21797	
==>l6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21625	21797	
==>l6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	223	341	
==>aram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	217	335	
==>aram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	223	341	
==>aram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	217	335	
==>aram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ra <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28725	28816	
==>ib
  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-harne <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3469	3599	
==>class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3469	3599	
==>class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3469	3599	
==>class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3519	3627	
==>der('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $sta <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3519	3627	
==>der('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1139	1237	
==>se Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1139	1237	
==>se Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1139	1237	
==>se Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3578	3704	
==>m} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3578	3704	
==>m} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5444	5544	
==>ULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5444	5544	
==>ULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( u <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5444	5544	
==>ULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2836	2954	
==>rint STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2836	2954	
==>rint STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2836	2954	
==>rint STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1419	1513	
==>am<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1419	1513	
==>am<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<s <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5456	5601	
==>ite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5456	5601	
==>ite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2521	2624	
==>_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2521	2624	
==>_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2868	2971	
==>_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15717	15861	
==>inks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  D <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19950	20094	
==>inks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  D <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9472	9587	
==>r array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9472	9587	
==>r array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9472	9587	
==>r array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2546	2663	
==>$set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { sh <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2546	2663	
==>$set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2485	2584	
==>%mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2485	2584	
==>%mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2485	2584	
==>%mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4726	4869	
==>ce => 'looser',
        other => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_rule( 
    #    name => '->',
    #    as <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1106	1236	
==>osure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1106	1236	
==>osure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6619	6739	
==>lar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6619	6739	
==>lar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4645	4869	
==>}
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4645	4869	
==>}
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it b <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	356	470	
==>y is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	356	470	
==>y is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	490	601	
==>ded Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	490	601	
==>ded Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14294	14379	
==>tHandSideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSideExpression><no_L <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	478	586	
==>.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1023	1131	
==>.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pai <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	478	586	
==>.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1023	1131	
==>.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1023	1131	
==>.
#   Both constructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7541	7670	
==>ff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7541	7670	
==>ff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7541	7670	
==>ff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Lis <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7597	7712	
==>apturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7790	7905	
==>apturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24722	24885	
==>e( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25001	25164	
==>e( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	924	1022	
==>debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	124	220	
==>debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	124	220	
==>debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4078	4192	
==>TCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4078	4192	
==>TCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4078	4192	
==>TCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($labe <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	420	530	
==>operly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	420	530	
==>operly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3017	3160	
==>AY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3017	3160	
==>AY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	111	212	
==>@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	111	212	
==>@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	111	212	
==>@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2101	2210	
==>d();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2101	2210	
==>d();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2101	2210	
==>d();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Ev <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17529	17620	
==>alance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a sing <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17529	17620	
==>alance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a sing <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4722	4996	
==>tart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  su <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4722	4996	
==>tart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1152	1248	
==>$str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1152	1248	
==>$str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1152	1248	
==>$str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4045	4178	
==>@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4045	4178	
==>@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5191	5294	
==>6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5191	5294	
==>6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5191	5294	
==>6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1226	1332	
==>preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1226	1332	
==>preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1226	1332	
==>preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3408	3508	
==>rn Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3408	3508	
==>rn Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2311	2438	
==>$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8201	8307	
==>is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8593	8699	
==>is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8201	8307	
==>is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8593	8699	
==>is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	537	646	
==>bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	537	646	
==>bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	537	646	
==>bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEn <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3550	3654	
==>n is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# u <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3550	3654	
==>n is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# u <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	123	221	
==>:Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	123	221	
==>:Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5582	5676	
==>le extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5582	5676	
==>le extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7779	7873	
==>le extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2703	2807	
==>onstant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2703	2807	
==>onstant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2703	2807	
==>onstant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	668	764	
==>st I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unles <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	668	764	
==>st I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unles <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7278	7396	
==>emplate module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7278	7396	
==>emplate module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8338	8448	
==>}

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8338	8448	
==>}

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8338	8448	
==>}

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1291	1440	
==>e, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3758	3860	
==>n stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1121	1223	
==>}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = jo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3758	3860	
==>n stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3758	3860	
==>n stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21995	22089	
==>h a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21995	22089	
==>h a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2079	2172	
==>rl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2079	2172	
==>rl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2079	2172	
==>rl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8015	8159	
==>t;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8015	8159	
==>t;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8015	8159	
==>t;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SU <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2001	2105	
==>e2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fix <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2001	2105	
==>e2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fix <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2434	2559	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2434	2559	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2434	2559	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(* <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14598	14713	
==>> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # input <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14598	14713	
==>> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # input <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35217	35357	
==>) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35217	35357	
==>) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35217	35357	
==>) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2572	2667	
==>mmy nodes that contain only source representation.

=back

=head1 API METHODS

These methods mus <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2572	2667	
==>mmy nodes that contain only source representation.

=back

=head1 API METHODS

These methods mus <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2604	2796	
==>]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'col <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2851	3043	
==>]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'col <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	656	749	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	656	749	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	656	749	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.po <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	563	713	
==>osish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	563	713	
==>osish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6611	6701	
==>l@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6611	6701	
==>l@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6611	6701	
==>l@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17293	17398	
==>d = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17293	17398	
==>d = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17293	17398	
==>d = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE(' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21395	21488	
==>lation attribute has a name that is distinct from the other
attributes, though several attribu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25947	26040	
==>lation attribute has a name that is distinct from the other
attributes, though several attribu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7154	7266	
==>->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7154	7266	
==>->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7154	7266	
==>->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", P <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1972	2076	
==>) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members))) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1972	2076	
==>) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members))) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7234	7340	
==>xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - us <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7234	7340	
==>xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - us <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7234	7340	
==>xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - us <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1472	1564	
==>ted", either by giving 
them to the unexported C<Log::Selective::select> function or by inclu <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1472	1564	
==>ted", either by giving 
them to the unexported C<Log::Selective::select> function or by inclu <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	215	316	
==>y $bench = shift;
my $duration = shift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	167	260	
==>rgs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8048	8141	
==>e::instantiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nullary ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	167	260	
==>rgs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	167	260	
==>rgs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	9510	9701	
==>o},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $resul <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32910	33002	
==>nary relational operator that is like
C<union> except that the returned Relation contains onl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33365	33457	
==>nary relational operator that is like
C<union> except that the returned Relation contains onl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37460	37552	
==>nary relational operator that is like
C<union> except that the returned Relation contains onl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37915	38007	
==>nary relational operator that is like
C<union> except that the returned Relation contains onl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2215	2338	
==>")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2215	2338	
==>")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2215	2338	
==>")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1025	1117	
==>te a recurrence set with full bidirectional functionality.

The complementary functions are e <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1025	1117	
==>te a recurrence set with full bidirectional functionality.

The complementary functions are e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2005	2141	
==>is help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 c <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	319	455	
==>is help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2005	2141	
==>is help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2005	2141	
==>is help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 c <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22142	22235	
==><CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule Ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18240	18352	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18240	18352	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18240	18352	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	573	664	
==>Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. Wh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	573	664	
==>Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. Wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4206	4307	
==>given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLIN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4206	4307	
==>given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLIN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4206	4307	
==>given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLIN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20797	20887	
==>re a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Insta <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20797	20887	
==>re a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Insta <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2785	3045	
==>_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2785	3045	
==>_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	3064	3171	
==>$dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone { <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6879	6977	
==>I should
ignore the opening one. However, this means I should defer events until I get to the
end o <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6879	6977	
==>I should
ignore the opening one. However, this means I should defer events until I get to the
end o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3746	3844	
==>:Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3746	3844	
==>:Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3746	3844	
==>:Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8767	8859	
==>e "Rosetta::Model" package serves only as the name-sake
representative for this whole file, w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8767	8859	
==>e "Rosetta::Model" package serves only as the name-sake
representative for this whole file, w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2203	2305	
==>FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2203	2305	
==>FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2203	2305	
==>FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3096	3179	
==>n( $self.complement_next, $self.complement_previous, $set.complement_next, $set.comp <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3096	3179	
==>n( $self.complement_next, $self.complement_previous, $set.complement_next, $set.comp <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7229	7340	
==>sure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4819	4930	
==>e {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $spa <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7229	7340	
==>sure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4819	4930	
==>e {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $spa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4819	4930	
==>e {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5563	5673	
==>=~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip pa <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5563	5673	
==>=~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip pa <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15148	15243	
==>t language
we're going into, or what environmental parameter to pay attention to
to select our l <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1440	1650	
==>le
            },
            packages => {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2211	2324	
==>obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2211	2324	
==>obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2211	2324	
==>obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	465	563	
==>ON

Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility for exportable variable names <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7165	7268	
==>> 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7165	7268	
==>> 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5702	5801	
==>eate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5702	5801	
==>eate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::F <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5702	5801	
==>eate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::F <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1782	1896	
==>er::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1782	1896	
==>er::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class P <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29076	29169	
==>at returns a new Relation::Example
which is the same as the invocant Relation::Example but tha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31924	32017	
==>at returns a new Relation::Example
which is the same as the invocant Relation::Example but tha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32971	33064	
==>at returns a new Relation::Example
which is the same as the invocant Relation::Example but tha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	864	977	
==>x(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autodere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	864	977	
==>x(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autodere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	864	977	
==>x(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autodere <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	812	903	
==>nse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	812	903	
==>nse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1445	1563	
==>ue::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinit <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1445	1563	
==>ue::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5772	5870	
==>last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5772	5870	
==>last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5772	5870	
==>last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Ba <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7015	7150	
==>%hash = @_;
    
    require File::stat;
    
    my $file;
    my $tmpl = {
        file    => { required => 1, allow => IS_FILE, store <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19063	19176	
==>=
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{ze <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20421	20534	
==>=
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{ze <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20557	20654	
==>e
modules that become available over time.  One plan which I favor is that
the new (under developm <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20557	20654	
==>e
modules that become available over time.  One plan which I favor is that
the new (under developm <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	19272	19384	
==>on}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, we save lots <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	97	191	
==>Harness::Straps;
use Test::Harness::Assert;
use Exporter;
use Benchmark;
use Config;
use strict <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1954	2046	
==>:Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1954	2046	
==>:Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1954	2046	
==>:Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11212	11339	
==>},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11212	11339	
==>},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11212	11339	
==>},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14471	14566	
==>though).
The Node class is pure and deterministic, such that all of its class and
object methods <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14471	14566	
==>though).
The Node class is pure and deterministic, such that all of its class and
object methods <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6344	6481	
==>return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6344	6481	
==>return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6344	6481	
==>return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3376	3462	
==>012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3376	3462	
==>012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	27	130	
==>ed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_help <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	27	130	
==>ed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_help <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	27	130	
==>ed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_help <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	114	213	
==>e does NameSpace;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" p <==
5	/Users/nnunley/pugs/util/svnlog2graph.pl	1212	1309	
==>elopers);
# @devs_till_day should have the same length as @commits_till_day --
# fill if needed
pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5688	5810	
==>[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5688	5810	
==>[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5688	5810	
==>[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1 <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5815	5907	
==>(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5815	5907	
==>(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1079	1221	
==>?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $ <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1079	1221	
==>?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1901	1999	
==>Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1901	1999	
==>Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1901	1999	
==>Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4245	4375	
==>re one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4257	4387	
==>re one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2603	2697	
==>ass->version($version)     if defined $version;
    $new_class->authority($authority) if define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2603	2697	
==>ass->version($version)     if defined $version;
    $new_class->authority($authority) if define <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2603	2697	
==>ass->version($version)     if defined $version;
    $new_class->authority($authority) if define <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17651	17761	
==>:IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	122	232	
==>::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17651	17761	
==>:IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	122	232	
==>::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	122	232	
==>::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21846	21946	
==>.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26398	26498	
==>.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4140	4233	
==>ndef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4140	4233	
==>ndef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4140	4233	
==>ndef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4199	4297	
==>value of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / ` <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4199	4297	
==>value of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / ` <==
5	/Users/nnunley/pugs/util/build_pugs.pl	2747	2857	
==>my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or die "open: $out: $!";
    binmode $of <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	32	129	
==>the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	32	129	
==>the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	32	129	
==>the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	32	129	
==>the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6155	6255	
==>ther way, I think it might be useful to have this if for nothing other than 
a helper to other functi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6155	6255	
==>ther way, I think it might be useful to have this if for nothing other than 
a helper to other functi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6155	6255	
==>ther way, I think it might be useful to have this if for nothing other than 
a helper to other functi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13826	13925	
==>field in turn.  The callback routine
is called with two parameters; the name of the field and a sing <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13826	13925	
==>field in turn.  The callback routine
is called with two parameters; the name of the field and a sing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5181	5279	
==>slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5181	5279	
==>slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5181	5279	
==>slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($sel <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23352	23436	
==>rent distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILIT <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23352	23436	
==>rent distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILIT <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1482	1582	
==>- an old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or so <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24553	24647	
==>ect newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fir <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23317	23411	
==>ect newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fir <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24553	24647	
==>ect newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fir <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23317	23411	
==>ect newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18998	19115	
==>ge( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18998	19115	
==>ge( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18998	19115	
==>ge( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10763	10858	
==>op::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immedia <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11042	11137	
==>op::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immedia <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6786	6882	
==>1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6786	6882	
==>1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6786	6882	
==>1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	470	592	
==>referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	470	592	
==>referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	470	592	
==>referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  }) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23084	23190	
==>r(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19505	19611	
==>r(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    m <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	192	298	
==>sed June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

W <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	192	298	
==>sed June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

W <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4409	4511	
==>g "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4409	4511	
==>g "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4409	4511	
==>g "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5083	5174	
==>est's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opt <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5083	5174	
==>est's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opt <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7280	7371	
==>est's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opt <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16169	16256	
==>e@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Darre <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16227	16314	
==>e@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Darre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18754	18887	
==>::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18754	18887	
==>::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18754	18887	
==>::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        got <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7681	7775	
==>)

A default implementation of this method is provided which returns nothing.

=item C<zeroize> <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7681	7775	
==>)

A default implementation of this method is provided which returns nothing.

=item C<zeroize> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2714	2830	
==>'0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2714	2830	
==>'0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1620	1722	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1620	1722	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1620	1722	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1907	2032	
==>rrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1907	2032	
==>rrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1907	2032	
==>rrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40268	40361	
==>edText that you modify and distribute must carry
prominent notices stating that you changed th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40268	40361	
==>edText that you modify and distribute must carry
prominent notices stating that you changed th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7410	7554	
==>$k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7410	7554	
==>$k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7410	7554	
==>$k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringif <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3315	3413	
==>tent ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3315	3413	
==>tent ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1431	1533	
==>t tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \* <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1431	1533	
==>t tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4001	4096	
==>ram{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4001	4096	
==>ram{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4001	4096	
==>ram{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	823	927	
==>ate: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_wid <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	823	927	
==>ate: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_wid <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3553	3650	
==>thod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definition <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3553	3650	
==>thod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definition <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3553	3650	
==>thod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definition <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6832	6956	
==>TCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6832	6956	
==>TCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $k <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6832	6956	
==>TCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $k <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	312	430	
==>_any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	312	430	
==>_any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5526	5638	
==>b name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub opt <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5526	5638	
==>b name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub opt <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5526	5638	
==>b name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub opt <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	658	754	
==>$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_to <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	716	812	
==>$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2618	2746	
==>) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2618	2746	
==>) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2618	2746	
==>) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5914	6012	
==>e only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5914	6012	
==>e only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7359	7487	
==>val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7359	7487	
==>val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      pus <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7359	7487	
==>val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      pus <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	719	814	
==>n
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	719	814	
==>n
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	690	807	
==>::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	690	807	
==>::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	690	807	
==>::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "P <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3638	3736	
==>od($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a co <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3638	3736	
==>od($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6668	6793	
==>eturn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return COR <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6668	6793	
==>eturn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return COR <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6668	6793	
==>eturn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return COR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9524	9618	
==>.
Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9524	9618	
==>.
Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2429	2523	
==>rns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2429	2523	
==>rns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6692	6805	
==>($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6692	6805	
==>($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6692	6805	
==>($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10194	10294	
==>ty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end o <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10194	10294	
==>ty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end o <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	13516	13860	
==>=> $tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED befor <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12027	12121	
==>set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9148	9242	
==>set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12027	12121	
==>set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9148	9242	
==>set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1806	1968	
==>al => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_hash_vivifyElem($idx)->sc <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2842	2938	
==>rrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4711	4807	
==>rrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2842	2938	
==>rrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4711	4807	
==>rrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12687	12793	
==>nperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub runperl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14512	14615	
==>ven though we've pinged the server (probably several times). So, we
        # conclude, the connection i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14512	14615	
==>ven though we've pinged the server (probably several times). So, we
        # conclude, the connection i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13549	13648	
==>ven though we've pinged the server (probably several times). So, we
    # conclude, the connection i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13549	13648	
==>ven though we've pinged the server (probably several times). So, we
    # conclude, the connection i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1374	1567	
==>id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1374	1567	
==>id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1374	1567	
==>id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_(' <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	520	624	
==>Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        loc <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	520	624	
==>Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        loc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11329	11445	
==>eset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11329	11445	
==>eset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11329	11445	
==>eset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2809	2918	
==>pe>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2809	2918	
==>pe>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4819	4913	
==>ber, the match object returns the numified version
of the result object (usually the entire mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4819	4913	
==>ber, the match object returns the numified version
of the result object (usually the entire mat <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31343	31434	
==>e
Bool-returning anonymous function in the argument C<$predicate> returns
True when given th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35893	35984	
==>e
Bool-returning anonymous function in the argument C<$predicate> returns
True when given th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35111	35202	
==>e
Bool-returning anonymous function in the argument C<$predicate> returns
True when given th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	904	1008	
==>d sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	904	1008	
==>d sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	904	1008	
==>d sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08 <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5213	5303	
==>code = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5213	5303	
==>code = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9832	10003	
==>okies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9832	10003	
==>okies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10627	10745	
==>cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10627	10745	
==>cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10627	10745	
==>cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1916	2053	
==>TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1916	2053	
==>TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34132	34241	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiza <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34132	34241	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiza <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34132	34241	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiza <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9788	9940	
==>->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9788	9940	
==>->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9788	9940	
==>->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3363	3492	
==>tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3363	3492	
==>tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1137	1243	
==>= shift;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter_ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12599	12705	
==>($.body) = { new_env($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5795	5890	
==>yper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5795	5890	
==>yper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5795	5890	
==>yper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8793	8972	
==>) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8793	8972	
==>) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nex <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8793	8972	
==>) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4979	5093	
==>d expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4979	5093	
==>d expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3407	3536	
==>"link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3407	3536	
==>"link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3407	3536	
==>"link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3244	3363	
==>ree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3244	3363	
==>ree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5282	5399	
==>values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8759	8876	
==>values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7779	7896	
==>values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } ) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1646	1754	
==>for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1851	1959	
==>for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub :: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12001	12112	
==>ect(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4644	4755	
==>ect(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6786	6888	
==>ar pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6786	6888	
==>ar pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6786	6888	
==>ar pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1338	1479	
==>");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1338	1479	
==>");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1338	1479	
==>");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bod <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7291	7420	
==>erse_ast ( %pad<"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pa <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	648	771	
==>nt {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	141	255	
==>String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	141	255	
==>String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	141	255	
==>String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10959	11058	
==>ent object is a simple container which stores data to be used or
displayed by your program.  It is a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10959	11058	
==>ent object is a simple container which stores data to be used or
displayed by your program.  It is a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4144	4278	
==>_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4284	4418	
==>_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9717	9805	
==>dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9717	9805	
==>dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9717	9805	
==>dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_me <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4939	5069	
==>re} = [
      map {{
        catname => $_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3616	3718	
==>der('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is e <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3616	3718	
==>der('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1634	1735	
==>contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1634	1735	
==>contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3606	3731	
==>s"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diffe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7083	7208	
==>s"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diffe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6040	6165	
==>s"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diffe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2382	2473	
==>turn $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2382	2473	
==>turn $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12063	12159	
==>t1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9184	9280	
==>t1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12063	12159	
==>t1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9184	9280	
==>t1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$s <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6720	6816	
==>get_meta($cls)->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($c <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1790	1908	
==>?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1790	1908	
==>?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4250	4348	
==>.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subcl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4250	4348	
==>.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subcl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4250	4348	
==>.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subcl <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	561	674	
==>elf
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBi <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	561	674	
==>elf
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19228	19318	
==><!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19228	19318	
==><!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19228	19318	
==><!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0, <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4316	4421	
==>'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4316	4421	
==>'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1166	1271	
==>'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2502	2596	
==>$other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2502	2596	
==>$other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $o <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	155	262	
==>) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	155	262	
==>) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2434	2533	
==>by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2434	2533	
==>by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2434	2533	
==>by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2479	2589	
==>nstant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2479	2589	
==>nstant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2479	2589	
==>nstant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
} <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14721	14810	
==>C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<e <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14721	14810	
==>C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	254	396	
==>s => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	254	396	
==>s => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	254	396	
==>s => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9706	9803	
==>shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9706	9803	
==>shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4678	4774	
==>\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('% <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4900	4996	
==>\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16146	16240	
==>alue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16146	16240	
==>alue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16146	16240	
==>alue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12518	12636	
==>et_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12518	12636	
==>et_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2517	2620	
==>te methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2517	2620	
==>te methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2517	2620	
==>te methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1870	1973	
==>$line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1870	1973	
==>$line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1950	2053	
==>$line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13620	13721	
==>et2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13620	13721	
==>et2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	803	919	
==>tal A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedi <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	803	919	
==>tal A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1750	1841	
==>o_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1750	1841	
==>o_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1750	1841	
==>o_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_ne <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3128	3282	
==>args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3128	3282	
==>args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	333	433	
==>lf)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	333	433	
==>lf)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	333	433	
==>lf)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CAL <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2357	2518	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2550	2711	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         rul <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8367	8476	
==>scribe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Caba <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	836	940	
==>es?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %vari <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	836	940	
==>es?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %vari <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14615	14751	
==>b';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14615	14751	
==>b';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14615	14751	
==>b';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18112	18211	
==>e a compiler is called it only gets the source code that it should be
looking at.

This section desc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18112	18211	
==>e a compiler is called it only gets the source code that it should be
looking at.

This section desc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	315	429	
==>IVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	315	429	
==>IVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSA <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	315	429	
==>IVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSA <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	423	515	
==>ORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	423	515	
==>ORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11789	11904	
==>an = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( day <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11789	11904	
==>an = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( day <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24386	24500	
==>[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24386	24500	
==>[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24386	24500	
==>[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2238	2357	
==>ms();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2238	2357	
==>ms();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3417	3509	
==>amework. The class itself is actually a factory for
classes which C<does> the Test::Builder:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3417	3509	
==>amework. The class itself is actually a factory for
classes which C<does> the Test::Builder:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5614	5706	
==>amework. The class itself is actually a factory for
classes which C<does> the Test::Builder:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3090	3254	
==>offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offse <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3090	3254	
==>offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offse <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3090	3254	
==>offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offse <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5280	5373	
==><MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base6 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5280	5373	
==><MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base6 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1311	1437	
==>load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.quer <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1311	1437	
==>load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.quer <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7474	7581	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7474	7581	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7474	7581	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      " <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3750	3924	
==>ined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3750	3924	
==>ined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17798	17934	
==>op::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18077	18213	
==>op::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	134	241	
==>gs -CPIL2-JSON -e ' say "hello" ' | \
    ../../pugs pil2_json_emit_p6.p6

  #! /usr/bin/pugs
  use v6;
  &* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10047	10152	
==>ttributes;
    # -----------------------------------------------    
      
    # ------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10047	10152	
==>ttributes;
    # -----------------------------------------------    
      
    # ------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10047	10152	
==>ttributes;
    # -----------------------------------------------    
      
    # ------------------------ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36593	36688	
==>in which case the returned Relation is identical to the
invocant.  Another trivial case is where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41142	41237	
==>in which case the returned Relation is identical to the
invocant.  Another trivial case is where <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11617	11742	
==>rg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11617	11742	
==>rg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30839	30951	
==>cher_iterator (opaque $self: list @values) returns block {
    my $counter = 0;
    return sub {
        return @ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31962	32060	
==>ogram would check each
of the 3 Template module sets in turn, looking at just the set member for
ea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31962	32060	
==>ogram would check each
of the 3 Template module sets in turn, looking at just the set member for
ea <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	401	496	
==>ent_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	401	496	
==>ent_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14461	14554	
==>> ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14461	14554	
==>> ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14461	14554	
==>> ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9042	9134	
==>t.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9042	9134	
==>t.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Return <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1764	1917	
==>}
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('b <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1764	1917	
==>}
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11215	11324	
==>.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'li <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11215	11324	
==>.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'li <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11215	11324	
==>.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	592	701	
==>true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	592	701	
==>true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	592	701	
==>true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next r <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	78	167	
==>e Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::W <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	78	167	
==>e Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::W <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7179	7318	
==>= $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7179	7318	
==>= $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5023	5121	
==>assed, Str $description = '' )>

Records that a test has passed or failed, depending on the value o <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5023	5121	
==>assed, Str $description = '' )>

Records that a test has passed or failed, depending on the value o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6547	6645	
==>assed, Str $description = '' )>

Records that a test has passed or failed, depending on the value o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9016	9196	
==>@cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %has <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9016	9196	
==>@cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %has <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	404	528	
==>@$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	404	528	
==>@$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	404	528	
==>@$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1646	1754	
==>var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1646	1754	
==>var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1646	1754	
==>var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13404	13520	
==>ems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13404	13520	
==>ems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13404	13520	
==>ems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2290	2404	
==>t ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
meth <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2290	2404	
==>t ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4643	4756	
==>he fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4643	4756	
==>he fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4643	4756	
==>he fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9909	10002	
==>erred to as "immediate" and "deferred".  The immediate validations
are performed at the moment <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9909	10002	
==>erred to as "immediate" and "deferred".  The immediate validations
are performed at the moment <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3130	3307	
==>LF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Som <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6607	6784	
==>LF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Som <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6392	6505	
==>kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ ur <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6392	6505	
==>kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ ur <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4760	4848	
==>nge_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_range_bounds_RHS(_Min,-)   --> " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4274	4413	
==>$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4262	4401	
==>$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8765	8884	
==>>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8765	8884	
==>>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8765	8884	
==>>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                un <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	298	400	
==>pan.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

metho <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	298	400	
==>pan.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13698	13795	
==>};
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13698	13795	
==>};
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13698	13795	
==>};
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2622	2734	
==>on)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2622	2734	
==>on)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2622	2734	
==>on)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1427	1530	
==>e_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1427	1530	
==>e_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19492	19611	
==>le.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.value <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20489	20608	
==>le.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	665	763	
==>nstant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	665	763	
==>nstant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	665	763	
==>nstant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6457	6581	
==>self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6457	6581	
==>self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6457	6581	
==>self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_m <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1029	1136	
==>export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_w <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1029	1136	
==>export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1442	1585	
==>rn sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1785	1923	
==>rn sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1392	1530	
==>rn sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1785	1923	
==>rn sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7045	7168	
==>ted_p5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	587	711	
==>nt STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->vers <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2346	2448	
==>e_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2346	2448	
==>e_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2346	2448	
==>e_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'} <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1708	1803	
==>leaning and adding p6, tuck it into the pugs distribution
somewhere with test files, and do obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15793	15935	
==>ray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15793	15935	
==>ray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$st <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15793	15935	
==>ray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	600	717	
==>_setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	600	717	
==>_setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9070	9184	
==>pport module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('So <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9128	9242	
==>pport module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('So <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	266	374	
==>eneric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	266	374	
==>eneric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	266	374	
==>eneric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37033	37145	
==>os;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37033	37145	
==>os;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37033	37145	
==>os;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items} <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5861	5957	
==>::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5861	5957	
==>::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39565	39660	
==>is, use force_object(), which creates
an object regardless of what pass it's on.

  $parser->add <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21059	21152	
==>C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chann <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19967	20060	
==>C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21059	21152	
==>C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chann <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19967	20060	
==>C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chann <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5036	5175	
==>ned;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5036	5175	
==>ned;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6144	6245	
==>UTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to ot <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6144	6245	
==>UTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to ot <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6144	6245	
==>UTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to ot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	654	771	
==>< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	654	771	
==>< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"), <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	654	771	
==>< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"), <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9175	9281	
==>er('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9175	9281	
==>er('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3914	4016	
==>med_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3914	4016	
==>med_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4504	4606	
==>med_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named ar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18026	18120	
==>he human
user who controls the requesting user agent.  The address should be
machine-usable, as <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18026	18120	
==>he human
user who controls the requesting user agent.  The address should be
machine-usable, as <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11995	12107	
==>rd the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $la <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11995	12107	
==>rd the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $la <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	796	896	
==>k

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fil <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	796	896	
==>k

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fil <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1352	1452	
==>k

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11147	11268	
==>et->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11147	11268	
==>et->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11147	11268	
==>et->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20040	20137	
==>lers. It does so in a most specific to most general order.
So inner blocks get compiled first, the <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20040	20137	
==>lers. It does so in a most specific to most general order.
So inner blocks get compiled first, the <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4285	4406	
==>_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
n <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4285	4406	
==>_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
n <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1135	1256	
==>_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
n <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7236	7326	
==>--------------------------------------
## traversal

method traverse ($self: Code $func, St <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7236	7326	
==>--------------------------------------
## traversal

method traverse ($self: Code $func, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1179	1292	
==>n::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1179	1292	
==>n::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1179	1292	
==>n::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Eva <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2032	2126	
==>rg/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to check <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2032	2126	
==>rg/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to check <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13665	13829	
==>person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e ) <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13665	13829	
==>person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5665	5769	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5665	5769	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5665	5769	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.un <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	85	208	
==>emplate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	85	208	
==>emplate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3097	3213	
==>nfess "you can only add types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1473	1575	
==>onent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $exponent) i <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9096	9196	
==>l "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	90	204	
==>in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	88	194	
==>in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	82	188	
==>in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	88	194	
==>in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	82	188	
==>in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    m <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	7	110	
==>.pl - Perl 5
use strict;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lie <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19910	20004	
==>n give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18891	18985	
==>n give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19910	20004	
==>n give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18891	18985	
==>n give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To se <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4076	4174	
==>arameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4076	4174	
==>arameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6273	6371	
==>arameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter d <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7342	7549	
==>BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7399	7606	
==>BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4191	4298	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4191	4298	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4191	4298	
==>JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _2 <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	759	861	
==>sors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for ke <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1243	1345	
==>sors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for ke <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1128	1224	
==>m B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foote <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1128	1224	
==>m B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foote <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1675	1771	
==>m B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foote <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1078	1278	
==>events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_elem <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1078	1278	
==>events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1902	1996	
==>e the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1902	1996	
==>e the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1902	1996	
==>e the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	160	266	
==>ler;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILT <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	160	266	
==>ler;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8233	8338	
==>array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8233	8338	
==>array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8233	8338	
==>array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4748	4846	
==>his parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4748	4846	
==>his parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6945	7043	
==>his parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3114	3208	
==>turns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) return <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3114	3208	
==>turns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) return <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20680	20776	
==>ation does not declare any subroutines or export such.

The usual way that Relation indicates a f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25232	25328	
==>ation does not declare any subroutines or export such.

The usual way that Relation indicates a f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	674	762	
==>IL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	674	762	
==>IL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	674	762	
==>IL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINU <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2070	2241	
==>_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2070	2241	
==>_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4676	4794	
==>d
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4676	4794	
==>d
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4676	4794	
==>d
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubN <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8194	8290	
==>oined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8194	8290	
==>oined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4365	4479	
==>ody>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --he <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4365	4479	
==>ody>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --he <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4365	4479	
==>ody>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --he <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8302	8401	
==>shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8014	8109	
==>shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_st <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2132	2259	
==>dex
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = ma <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2132	2259	
==>dex
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3066	3191	
==>g};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'space' }

  su <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3218	3316	
==>only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this any <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3218	3316	
==>only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this any <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1243	1347	
==>lock = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1243	1347	
==>lock = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	196	296	
==>::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	196	296	
==>::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	196	296	
==>::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1245	1355	
==>@spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1245	1355	
==>@spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2127	2234	
==>ne $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2127	2234	
==>ne $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2127	2234	
==>ne $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLO <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2006	2095	
==>bject matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2095	2184	
==>bject matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1381	1486	
==>I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1381	1486	
==>I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1381	1486	
==>I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EV <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1036	1132	
==>hods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1036	1132	
==>hods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12300	12455	
==>TP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12300	12455	
==>TP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	741	846	
==>= args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	741	846	
==>= args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	741	846	
==>= args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3521	3645	
==>h inside the closure
    $/()  
        just the capture - what''s returned in { return ... }
    $/0
        the first subma <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30254	30351	
==>h will be substituted at run-time before the text
is shown to the user.

Each Template module idea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30254	30351	
==>h will be substituted at run-time before the text
is shown to the user.

Each Template module idea <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17295	17431	
==>ale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17295	17431	
==>ale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3142	3273	
==>e, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3142	3273	
==>e, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3142	3273	
==>e, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2923	3090	
==>lt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3206	3363	
==>lt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9624	9781	
==>lt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3206	3363	
==>lt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9624	9781	
==>lt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8647	8750	
==>es(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @member <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7616	7719	
==>es(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @member <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8647	8750	
==>es(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @member <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7616	7719	
==>es(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @member <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	25	117	
==>:BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use Pugs::Compiler::Regex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20974	21233	
==>re( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20974	21233	
==>re( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20974	21233	
==>re( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $sc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5183	5292	
==>me = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2725	2834	
==>me = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4881	4984	
==>se $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4881	4984	
==>se $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4881	4984	
==>se $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13691	13790	
==>me in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13691	13790	
==>me in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb = <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7495	7641	
==>complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7495	7641	
==>complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2156	2279	
==>t :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2156	2279	
==>t :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2156	2279	
==>t :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3776	3929	
==>=> $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4022	4168	
==>=> $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10471	10617	
==>=> $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4022	4168	
==>=> $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10471	10617	
==>=> $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	752	880	
==>i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	752	880	
==>i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	752	880	
==>i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	677	782	
==>s: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The " <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	677	782	
==>s: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	125	226	
==>aScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (& <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	125	226	
==>aScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (& <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	125	226	
==>aScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (& <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7580	7676	
==>maining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7580	7676	
==>maining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of t <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5594	5699	
==>index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5594	5699	
==>index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_chi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4655	4756	
==>ws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4655	4756	
==>ws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6179	6280	
==>ws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5871	5986	
==>_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5871	5986	
==>_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0.. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5871	5986	
==>_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0.. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1188	1295	
==>s

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1188	1295	
==>s

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3735	3835	
==>ame}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3735	3835	
==>ame}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		u <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4325	4425	
==>ame}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		u <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2603	2700	
==>ys to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2603	2700	
==>ys to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1935	2039	
==>omorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () r <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1935	2039	
==>omorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	138	234	
==>Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs: <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1756	1851	
==>ECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns th <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1519	1614	
==>ECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns th <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1756	1851	
==>ECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns th <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1519	1614	
==>ECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16981	17075	
==>nt a certain localization methodology
in an easily accessable manner, such that would not be po <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16981	17075	
==>nt a certain localization methodology
in an easily accessable manner, such that would not be po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7810	7925	
==>e    - an optional "continuation"

  $capture       - capture then entire match. For example:

  

  # returns a Mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7545	7657	
==>e    - an optional "continuation"
  $capture       - capture then entire match. For example:
  
  # returns a Mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2386	2485	
==>ant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2386	2485	
==>ant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2386	2485	
==>ant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3115	3216	
==>ntains the directories the resulting relative path
    # must ascend out of before it can descend to $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3115	3216	
==>ntains the directories the resulting relative path
    # must ascend out of before it can descend to $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2297	2376	
==>_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2297	2376	
==>_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2297	2376	
==>_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19420	19543	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&li <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19699	19822	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1187	1307	
==>urrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1187	1307	
==>urrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1187	1307	
==>urrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech f <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8894	9006	
==>mplement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8894	9006	
==>mplement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2016	2114	
==>ength - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2016	2114	
==>ength - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2016	2114	
==>ength - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8484	8613	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8484	8613	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8484	8613	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	62	162	
==>nings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	62	162	
==>nings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
u <==
5	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	88	215	
==>ery core test program to prepare it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	510	626	
==>s(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	481	597	
==>s(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	510	626	
==>s(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	510	626	
==>s(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	431	563	
==>ery: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($na <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	431	563	
==>ery: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	698	804	
==>e}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	698	804	
==>e}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	698	804	
==>e}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9964	10081	
==>thod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9964	10081	
==>thod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9964	10081	
==>thod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17395	17499	
==>handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17395	17499	
==>handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15694	15786	
==>communicate in those languages.  Or, when viewing an error message, the
application's develop <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15694	15786	
==>communicate in those languages.  Or, when viewing an error message, the
application's develop <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36742	36838	
==>et and Member properties; if none
could be matched, this method returns undef.  This method could <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	759	855	
==>tp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36742	36838	
==>et and Member properties; if none
could be matched, this method returns undef.  This method could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	759	855	
==>tp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	759	855	
==>tp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11276	11431	
==>];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11276	11431	
==>];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $sp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11276	11431	
==>];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $sp <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8447	8546	
==>single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8447	8546	
==>single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3677	3799	
==>n");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_p <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3677	3799	
==>n");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5201	5323	
==>n");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	783	890	
==>sg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  S <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	783	890	
==>sg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  S <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9571	9763	
==>{ ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            } <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9571	9763	
==>{ ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5618	5742	
==>o {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5618	5742	
==>o {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5618	5742	
==>o {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	332	435	
==>m_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	877	980	
==>m_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	332	435	
==>m_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	877	980	
==>m_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	877	980	
==>m_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generic range for s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16194	16440	
==>rray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16194	16440	
==>rray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16194	16440	
==>rray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	393	491	
==>ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	393	491	
==>ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15029	15126	
==>e>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15029	15126	
==>e>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1361	1455	
==>ew PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1361	1455	
==>ew PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1361	1455	
==>ew PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($j <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8279	8429	
==>= -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary li <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8279	8429	
==>= -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1688	1792	
==>ch: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1688	1792	
==>ch: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1688	1792	
==>ch: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4830	4938	
==>{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4830	4938	
==>{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4830	4938	
==>{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8139	8234	
==>new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the speci <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8139	8234	
==>new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the speci <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10606	10718	
==>split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10606	10718	
==>split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10606	10718	
==>split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$i <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4170	4265	
==>096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4170	4265	
==>096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\d <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26484	26579	
==>l way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26484	26579	
==>l way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1015	1149	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1157	1291	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1299	1433	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1441	1575	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1728	1862	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        nam <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11754	11844	
==>s@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11754	11844	
==>s@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aa <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13200	13308	
==>n-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16677	16785	
==>n-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's he <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16039	16147	
==>n-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's he <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34566	34662	
==>e Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39116	39212	
==>e Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1525	1672	
==>to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1525	1672	
==>to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handl <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	988	1101	
==>sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1652	1765	
==>sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5592	5690	
==>ble, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	432	555	
==>if $s eq '$*OS';  
    
    # special variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5500	5610	
==>\$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6768	6878	
==>\$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5500	5610	
==>\$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6756	6866	
==>\$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	75	193	
==>ur $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	75	193	
==>ur $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	75	193	
==>ur $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13530	13625	
==>ass (or before an implementation
could be started).  This is most useful when writing modules an <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13588	13683	
==>ass (or before an implementation
could be started).  This is most useful when writing modules an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3905	4025	
==>reludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3905	4025	
==>reludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3905	4025	
==>reludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_con <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	244	343	
==>{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	244	343	
==>{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	394	509	
==>} => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	394	509	
==>} => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	394	509	
==>} => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35262	35357	
==>f 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

Th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35262	35357	
==>f 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

Th <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3244	3350	
==>th => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /with <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3244	3350	
==>th => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /with <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18558	18648	
==>0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18558	18648	
==>0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18558	18648	
==>0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	39	134	
==>[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	39	134	
==>[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use wa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	39	134	
==>[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use wa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19349	19443	
==>onnected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logg <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19349	19443	
==>onnected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logg <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9947	10108	
==>$meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11424	11585	
==>$meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2204	2295	
==>tr) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2204	2295	
==>tr) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2204	2295	
==>tr) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2760	2856	
==>ILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11659	11755	
==>ces, themselves does Role since they
are just instances of Class which does Role too. So this mea <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2760	2856	
==>ILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11659	11755	
==>ces, themselves does Role since they
are just instances of Class which does Role too. So this mea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11659	11755	
==>ces, themselves does Role since they
are just instances of Class which does Role too. So this mea <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2245	2344	
==>ild.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_chil <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2245	2344	
==>ild.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_chil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1467	1563	
==>s from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (th <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1467	1563	
==>s from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (th <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1467	1563	
==>s from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6852	6958	
==>_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6852	6958	
==>_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6852	6958	
==>_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MUL <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11325	11418	
==>all elements both from this recurrence and from the given recurrence.

- `intersection( $recur <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11325	11418	
==>all elements both from this recurrence and from the given recurrence.

- `intersection( $recur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	749	860	
==>ructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	749	860	
==>ructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	749	860	
==>ructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2413	2518	
==>rgs) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2664	2769	
==>rgs) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4221	4332	
==>erl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4221	4332	
==>erl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4221	4332	
==>erl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8037	8121	
==>----------------------------------------------------------------------
## utility met <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8037	8121	
==>----------------------------------------------------------------------
## utility met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16912	17037	
==>bclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16912	17037	
==>bclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16912	17037	
==>bclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19491	19588	
==>re Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19491	19588	
==>re Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3650	3777	
==>ckage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3708	3835	
==>ckage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34589	34684	
==>her> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39139	39234	
==>her> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38645	38740	
==>her> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4468	4577	
==>cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4468	4577	
==>cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4468	4577	
==>cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16903	17001	
==>ngle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringif <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16903	17001	
==>ngle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringif <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1867	1994	
==>m $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1867	1994	
==>m $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2209	2309	
==>> '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2209	2309	
==>> '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2209	2309	
==>> '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1138	1239	
==>ction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1138	1239	
==>ction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1138	1239	
==>ction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16111	16205	
==>a condition, and one
application may handle it internally, while another one displays it to the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16111	16205	
==>a condition, and one
application may handle it internally, while another one displays it to the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13953	14104	
==>$label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13953	14104	
==>$label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13953	14104	
==>$label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4962	5061	
==>ta and returns it as an array of bytes, 
then clears the object's internal state.  This should be ca <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4962	5061	
==>ta and returns it as an array of bytes, 
then clears the object's internal state.  This should be ca <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17574	17672	
==>der is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in req <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13789	13887	
==>has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($lab <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17574	17672	
==>der is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in req <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13789	13887	
==>has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13789	13887	
==>has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($lab <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28782	28889	
==>g.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.], <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28782	28889	
==>g.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.], <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	58	153	
==>}
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	58	153	
==>}
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	58	153	
==>}
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33969	34084	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33969	34084	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33969	34084	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4414	4507	
==>ym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4414	4507	
==>ym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4172	4325	
==>ue('@:slots')}, mk_containers(@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	963	1068	
==>e = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4103	4208	
==>bmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	963	1068	
==>e = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4103	4208	
==>bmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4103	4208	
==>bmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4012	4140	
==>$got, $type, $expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3633	3757	
==>t;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3633	3757	
==>t;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3633	3757	
==>t;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17438	17538	
==>reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10748	10962	
==>ntext->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$con <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10748	10962	
==>ntext->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	223	323	
==>, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	223	323	
==>, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	223	323	
==>, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7648	7766	
==>Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7648	7766	
==>Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7648	7766	
==>Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	205	296	
==>rl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attribute;
u <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1707	1796	
==>ws", &parse_enumclass);
    $optable->addToken("term:<-[", "term:", "nows", &parse_enumcla <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	378	487	
==>dd_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables:
# c-indentation-styl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5519	5617	
==>*infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4649	4747	
==>*infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5519	5617	
==>*infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4649	4747	
==>*infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4825	4952	
==>e;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13250	13377	
==>e;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15861	15988	
==>e;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17349	17476	
==>e;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22032	22159	
==>e;
        Carp::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17580	17767	
==>} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17580	17767	
==>} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17580	17767	
==>} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32471	32561	
==>ad2 The Locale::KeyedText::Translator Class

While a Translator object stores some attribut <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32471	32561	
==>ad2 The Locale::KeyedText::Translator Class

While a Translator object stores some attribut <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1304	1424	
==><recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unl <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1304	1424	
==><recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2045	2159	
==>$self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2045	2159	
==>$self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2045	2159	
==>$self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4550	4711	
==>ray {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4550	4711	
==>ray {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8363	8472	
==>{ "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan L <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8363	8472	
==>{ "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan L <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8363	8472	
==>{ "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan L <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15243	15340	
==>an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15243	15340	
==>an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5349	5444	
==>s attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5349	5444	
==>s attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7546	7641	
==>s attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12610	12762	
==>elf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12610	12762	
==>elf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12610	12762	
==>elf->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	157	250	
==>ktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	157	250	
==>ktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1021	1145	
==>name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1021	1145	
==>name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $clas <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1021	1145	
==>name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $clas <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15827	15930	
==>t's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP proto <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15885	15988	
==>t's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP proto <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4965	5060	
==>ks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4965	5060	
==>ks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<user <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2878	3009	
==>atch => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1500	1631	
==>atch => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19387	19484	
==>relation/tuple attribute is a column, but it is not the same as a table.

The intended interface a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23939	24036	
==>relation/tuple attribute is a column, but it is not the same as a table.

The intended interface a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22455	22552	
==>relation/tuple attribute is a column, but it is not the same as a table.

The intended interface a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	131	314	
==>"return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	131	314	
==>"return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1422	1529	
==>nstantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1422	1529	
==>nstantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1422	1529	
==>nstantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17950	18084	
==>s;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17950	18084	
==>s;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17950	18084	
==>s;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->sh <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9874	9966	
==>rrence sets can be combined with union, intersection, difference, and a few
other operations. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9874	9966	
==>rrence sets can be combined with union, intersection, difference, and a few
other operations. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7756	7879	
==>4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7756	7879	
==>4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7756	7879	
==>4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25094	25187	
==>hole combination.  As a special exception, the copyright holders
of Rosetta give you permissio <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25094	25187	
==>hole combination.  As a special exception, the copyright holders
of Rosetta give you permissio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15544	15652	
==>[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15544	15652	
==>[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15544	15652	
==>[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arit <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3898	3990	
==>urn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` fo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3898	3990	
==>urn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4016	4118	
==>"\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4016	4118	
==>"\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4016	4118	
==>"\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	23	118	
==>::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::E <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	23	118	
==>::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::E <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1256	1379	
==>piler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1256	1379	
==>piler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9906	10017	
==>_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9906	10017	
==>_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9906	10017	
==>_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26385	26480	
==>create a modified version of Rosetta
that you are willing to distribute, because that is a pract <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26385	26480	
==>create a modified version of Rosetta
that you are willing to distribute, because that is a pract <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10005	10161	
==>il}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10841	10997	
==>il}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5270	5361	
==>eturns a hash containing two keys, C<passed> and C<description>, from the
test's attributes. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5270	5361	
==>eturns a hash containing two keys, C<passed> and C<description>, from the
test's attributes. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7467	7558	
==>eturns a hash containing two keys, C<passed> and C<description>, from the
test's attributes. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7932	8104	
==>lems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "auto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7932	8104	
==>lems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "auto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7932	8104	
==>lems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "auto <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11070	11170	
==>hod('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11070	11170	
==>hod('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11070	11170	
==>hod('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, % <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3834	3917	
==>on( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3834	3917	
==>on( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11904	12048	
==>=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11904	12048	
==>=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	334	448	
==>, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	334	448	
==>, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	334	448	
==>, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element i <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20110	20212	
==>rray"] = padarray
    .return (self)
.end
    
.namespace [ "PGE::Exp::Group" ] 

.sub "p6analyze" :met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	748	848	
==>?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yiel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	748	848	
==>?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yiel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	748	848	
==>?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yiel <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19254	19349	
==>must be included as part of a C<401 Unauthorized> response.
The field value consist of a challen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19254	19349	
==>must be included as part of a C<401 Unauthorized> response.
The field value consist of a challen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1576	1679	
==>tion.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4911	5006	
==>tion.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	598	693	
==>tion.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5051	5146	
==>tion.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	598	693	
==>tion.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Pe <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6048	6174	
==>n"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963) <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6048	6174	
==>n"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2613	2733	
==>l2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2613	2733	
==>l2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2613	2733	
==>l2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7609	7747	
==>e( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7609	7747	
==>e( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7609	7747	
==>e( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        } <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	865	985	
==>"\\ " x 4;
	    return;
	} elsif ( $chr eq "\\") {
	    print "\\textbackslash{}";
	    return;
	} elsif ($chr =~ /\^/) { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6043	6159	
==>x) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin'} = Pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18634	18752	
==>class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18634	18752	
==>class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18634	18752	
==>class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7378	7484	
==>ompiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7378	7484	
==>ompiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $ <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	190	327	
==>eport (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = appe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2345	2453	
==>";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2345	2453	
==>";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2345	2453	
==>";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1610	1702	
==>gnized escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2369	2483	
==>use Set;
        has %.subscriptions of Set;

        # when you say add_subscription("foo", ...) then "foo" is the <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	2217	2302	
==>nd walked alone.

-}

---------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	490	573	
==>----------------------------------------------------------------------------
## Eige <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	490	573	
==>----------------------------------------------------------------------------
## Eige <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	490	573	
==>----------------------------------------------------------------------------
## Eige <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4890	4999	
==>-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns S <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4890	4999	
==>-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2416	2515	
==>Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2416	2515	
==>Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2416	2515	
==>Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10320	10446	
==>e
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3134	3265	
==>e: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sou <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3351	3482	
==>e: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11870	11966	
==>table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11870	11966	
==>table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11870	11966	
==>table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6666	6770	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6666	6770	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6666	6770	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13848	13964	
==>e::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13848	13964	
==>e::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if P <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13848	13964	
==>e::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	980	1092	
==>->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	980	1092	
==>->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Ru <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1390	1489	
==>ram<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1390	1489	
==>ram<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<sp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8429	8583	
==>urn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8429	8583	
==>urn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7061	7170	
==>other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7061	7170	
==>other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7061	7170	
==>other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8941	9051	
==>) = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8941	9051	
==>) = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1467	1563	
==>->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1467	1563	
==>->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1467	1563	
==>->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14813	14907	
==>Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14813	14907	
==>Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14813	14907	
==>Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1372	1461	
==>arser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifier <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1372	1461	
==>arser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifier <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5712	5876	
==>undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # The <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5712	5876	
==>undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # The <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5712	5876	
==>undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # The <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	920	1073	
==>};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	883	1029	
==>};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	501	614	
==>b FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter { <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	501	614	
==>b FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9865	9971	
==>ispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _nor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9865	9971	
==>ispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _nor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9865	9971	
==>ispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _nor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9234	9344	
==>s $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9234	9344	
==>s $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9234	9344	
==>s $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28071	28172	
==>moved from the resulting
object's visual flag set, so C<(?ig-o)> becomes C<(?i)>.

=item $parser->del_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18778	18876	
==>0.021 -- July 3, 2004

=over 4

=item I<anyof_class> Changed

If an I<anyof_class> element is a Uni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11233	11391	
==>tance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11233	11391	
==>tance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11233	11391	
==>tance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	89	186	
==>fic methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	89	186	
==>fic methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6008	6145	
==>e));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6008	6145	
==>e));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6008	6145	
==>e));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	438	554	
==>y @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	438	554	
==>y @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$po <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3502	3623	
==>tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      an <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1972	2089	
==>tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7371	7485	
==>n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7371	7485	
==>n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7371	7485	
==>n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; m <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1003	1107	
==>{};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, ta <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1003	1107	
==>{};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, ta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	599	699	
==>= shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	599	699	
==>= shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	599	699	
==>= shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1880	1988	
==>( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1880	1988	
==>( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3815	3920	
==>"You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3815	3920	
==>"You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3815	3920	
==>"You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49637	49778	
==>thority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3944	4041	
==>confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3944	4041	
==>confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::R <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3944	4041	
==>confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::R <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	23839	23933	
==>printer
{
	my $type = type::operator::arrow->new(
		type::variable::free->new,
		my $b = type:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	201	320	
==>sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	205	324	
==>sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	199	318	
==>sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	257	376	
==>sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	199	318	
==>sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixit <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21059	21146	
==>pe(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11311	11478	
==>m );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11311	11478	
==>m );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11311	11478	
==>m );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3331	3441	
==>t;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	102	212	
==>t;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10301	10394	
==>d2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8194	8287	
==>d2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10301	10394	
==>d2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8194	8287	
==>d2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4960	5050	
==>class JSX::InternalValue::Completion {
   submethod BUILD { $.type = JSX::InternalValue::Co <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	193	306	
==>ule::Install::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop prote <==
5	/Users/nnunley/pugs/misc/Blondie/example.pl	512	621	
==>s  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times;

pri <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27392	27488	
==>tes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31944	32040	
==>tes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31027	31123	
==>tes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13614	13748	
==>my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13614	13748	
==>my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%hand <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17743	17838	
==>) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17743	17838	
==>) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17743	17838	
==>) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29484	29587	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29484	29587	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29484	29587	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36303	36394	
==>pFre','MyLibFre'].  This method is used
internally by translate_message() to produce the lis <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36303	36394	
==>pFre','MyLibFre'].  This method is used
internally by translate_message() to produce the lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3138	3316	
==>},
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3138	3316	
==>},
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3138	3316	
==>},
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13396	13501	
==>0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13396	13501	
==>0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	658	787	
==>(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Conc <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	658	787	
==>(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Conc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6686	6798	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6686	6798	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6686	6798	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1796	1903	
==>hod child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @! <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1796	1903	
==>hod child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @! <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	446	537	
==>JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	446	537	
==>JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	446	537	
==>JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
met <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2167	2249	
==>osted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/ <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2167	2249	
==>osted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1111	1239	
==>plit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1111	1239	
==>plit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1111	1239	
==>plit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @ <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	405	522	
==>$*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	405	522	
==>$*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21994	22116	
==>ect(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18415	18537	
==>ect(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^ <==
5	/Users/nnunley/pugs/util/drift.pl	1319	1428	
==>ary_header);

open IN, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) {
    /OPTION/ or last;
	s{\Q <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	141	246	
==>qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	141	246	
==>qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	141	246	
==>qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20989	21088	
==>ould not occur multiple times.  The result of doing so,
it that only the last of these fields will b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20989	21088	
==>ould not occur multiple times.  The result of doing so,
it that only the last of these fields will b <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7426	7596	
==>endencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependenc <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	727	897	
==>endencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependenc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1168	1280	
==>name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1168	1280	
==>name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1168	1280	
==>name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10518	10626	
==>::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10676	10784	
==>::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21044	21138	
==>1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21044	21138	
==>1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21044	21138	
==>1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	554	687	
==>er.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we hav <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	554	687	
==>er.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we hav <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2498	2622	
==>%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2498	2622	
==>%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2498	2622	
==>%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	876	973	
==>led.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previou <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	876	973	
==>led.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previou <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3559	3707	
==>dren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# ins <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3559	3707	
==>dren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# ins <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10362	10499	
==>$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10356	10493	
==>$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_mat <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	5838	5943	
==>VRule does Rule {}
class Rul does Rule is builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
mult <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	430	574	
==>'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	430	574	
==>'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	430	574	
==>'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4893	4990	
==>ctor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4893	4990	
==>ctor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2906	3006	
==>ame if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2906	3006	
==>ame if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2906	3006	
==>ame if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die " <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2676	2772	
==>wo different data streams are enciphered with the same key, the encryption 
can be removed by XOR <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2676	2772	
==>wo different data streams are enciphered with the same key, the encryption 
can be removed by XOR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19276	19435	
==>->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'Anon <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19276	19435	
==>->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'Anon <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19276	19435	
==>->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'Anon <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	103	213	
==>_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = obj <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	103	213	
==>_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = obj <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	84	199	
==>d by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Cha <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	85	200	
==>d by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Cha <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	85	200	
==>d by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Cha <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	57	149	
==>emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# E <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	57	149	
==>emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# E <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3223	3382	
==>antifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3234	3393	
==>antifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15370	15499	
==>ill work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15370	15499	
==>ill work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15370	15499	
==>ill work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = ' <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1377	1483	
==>reach my $module (qw< fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Conf <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3907	4009	
==>IL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Express <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4240	4342	
==>IL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Express <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3907	4009	
==>IL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Express <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4240	4342	
==>IL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Express <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1083	1257	
==>:identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1083	1257	
==>:identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1083	1257	
==>:identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3063	3154	
==>method complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3063	3154	
==>method complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	499	622	
==>is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	499	622	
==>is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	499	622	
==>is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bles <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2522	2631	
==>pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    m <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2522	2631	
==>pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6527	6632	
==>}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Lef <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6527	6632	
==>}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Lef <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29553	29652	
==>ed
to match it; it has already been consumed.

If you created a handle for '&&' without a predecesso <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5351	5448	
==>pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5351	5448	
==>pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5351	5448	
==>pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pac <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2439	2535	
==>t element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@ar <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2439	2535	
==>t element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5128	5225	
==>->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5128	5225	
==>->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10228	10317	
==>def","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?" <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10963	11052	
==>def","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?" <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16933	17018	
==>rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1297	1411	
==>lready_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1297	1411	
==>lready_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1297	1411	
==>lready_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2J <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21922	22015	
==>ibution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-or <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21922	22015	
==>ibution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-or <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1238	1342	
==>$_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1238	1342	
==>$_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21723	21820	
==>r,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21723	21820	
==>r,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21723	21820	
==>r,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6874	6970	
==>ection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $cl <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6874	6970	
==>ection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $cl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21683	21778	
==>tuples may be individually addressed only by their values; neither
may be addressed by any ordin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26235	26330	
==>tuples may be individually addressed only by their values; neither
may be addressed by any ordin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24895	24990	
==>tuples may be individually addressed only by their values; neither
may be addressed by any ordin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21900	22020	
==>$traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21900	22020	
==>$traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21900	22020	
==>$traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1835	1950	
==>[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->m <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	946	1059	
==>[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36066	36173	
==>ve offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36066	36173	
==>ve offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36066	36173	
==>ve offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7761	7865	
==>al>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule Null <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2951	3047	
==>s_abbr[./month_0] }

# yes, these functions are not "correct" :)
method doy returns Int { $.month <==
5	/Users/nnunley/pugs/util/version_h.pl	1259	1373	
==>ed) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $sourc <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4221	4318	
==>Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5118	5215	
==>Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4221	4318	
==>Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5118	5215	
==>Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11199	11371	
==>>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11199	11371	
==>>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11199	11371	
==>>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	987	1103	
==>Text::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident thi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	987	1103	
==>Text::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident thi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17183	17282	
==>, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Retur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17183	17282	
==>, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Retur <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3317	3412	
==>f tests,
running those tests, and then telling this module to compare the received
output to the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3317	3412	
==>f tests,
running those tests, and then telling this module to compare the received
output to the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3397	3492	
==>f tests,
running those tests, and then telling this module to compare the received
output to the <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5659	5767	
==>ild_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : ca <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5659	5767	
==>ild_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1020	1114	
==>h.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1020	1114	
==>h.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1020	1114	
==>h.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefine <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6632	6739	
==>fined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$patt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6632	6739	
==>fined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$patt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6632	6739	
==>fined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$patt <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25742	25838	
==>ith the same arguments; they do not interact with the outside
environment at all.

A Relation::Ex <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	319	413	
==>otated = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $self->bi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14602	14732	
==>tible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14602	14732	
==>tible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14602	14732	
==>tible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7363	7456	
==>iag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed+ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7421	7514	
==>iag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14242	14343	
==>er('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => gra <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8446	8547	
==>er('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => gra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1907	1999	
==>$n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1907	1999	
==>$n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1907	1999	
==>$n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	206	332	
==>h eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $ <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	206	332	
==>h eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7639	7758	
==>Overloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7080	7194	
==>Overloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9212	9305	
==>:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9212	9305	
==>:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9212	9305	
==>:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2783	2881	
==>? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText:: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2783	2881	
==>? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6040	6137	
==>ackage know it's parent package? How would this look in Perl 6?
Would it be a package level versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6040	6137	
==>ackage know it's parent package? How would this look in Perl 6?
Would it be a package level versio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6040	6137	
==>ackage know it's parent package? How would this look in Perl 6?
Would it be a package level versio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29425	29534	
==>} }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29425	29534	
==>} }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29425	29534	
==>} }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1141	1249	
==>loodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $conn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1141	1249	
==>loodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $conn <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16046	16138	
==>:SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	663	755	
==>ootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------------- <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16046	16138	
==>:SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	663	755	
==>ootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	663	755	
==>ootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5655	5755	
==>fined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is impl <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5655	5755	
==>fined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is impl <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	123	217	
==>l::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.02';

use <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35497	35584	
==>n_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40047	40134	
==>n_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) return <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10648	10776	
==>h {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10648	10776	
==>h {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8831	8930	
==>ethod union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_para <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8831	8930	
==>ethod union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7936	8024	
==>ingleton methods ..

is($Foo->another_singleton_test_on_object(), 
   '&Object::another_s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3676	3801	
==>dule";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3734	3859	
==>dule";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2036	2138	
==>n't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("-- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2036	2138	
==>n't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("-- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2036	2138	
==>n't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("-- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29300	29393	
==>hich is the same as the invocant Relation but that some of its
tuple/Mapping-valued attributes <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33852	33945	
==>hich is the same as the invocant Relation but that some of its
tuple/Mapping-valued attributes <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13925	14029	
==>nd make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17402	17506	
==>nd make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16782	16886	
==>nd make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@oth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11031	11128	
==>ned as separate values in list
context and will be concatenated with ", " as separator in scalar
c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11031	11128	
==>ned as separate values in list
context and will be concatenated with ", " as separator in scalar
c <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13756	13899	
==>nd = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3877	4008	
==>nd = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3877	4008	
==>nd = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $stri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3877	4008	
==>nd = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $stri <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2746	2856	
==>asic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package M <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	265	376	
==>eturns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	265	376	
==>eturns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36129	36221	
==>wise-matching every
tuple of the invocant relation with every tuple of the <$other> relation, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40678	40770	
==>wise-matching every
tuple of the invocant relation with every tuple of the <$other> relation, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40292	40384	
==>wise-matching every
tuple of the invocant relation with every tuple of the <$other> relation, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	444	549	
==>orks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	444	549	
==>orks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	444	549	
==>orks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5804	5908	
==>ue for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shif <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5804	5908	
==>ue for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10200	10370	
==>ion => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Tes <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	752	912	
==>ion => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	752	912	
==>ion => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Tes <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8298	8394	
==>) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8286	8382	
==>) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1] <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2049	2185	
==>lable );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectifie <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3422	3550	
==>lable );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectifie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	396	503	
==>b tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	396	503	
==>b tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	396	503	
==>b tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1743	1845	
==>pt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1743	1845	
==>pt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1743	1845	
==>pt...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	731	830	
==>lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TO <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	731	830	
==>lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9945	10069	
==>:Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9945	10069	
==>:Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9945	10069	
==>:Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    m <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2120	2222	
==>r sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PI <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2120	2222	
==>r sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PI <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17072	17171	
==>`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurr <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17072	17171	
==>`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3409	3506	
==>eans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ver <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3409	3506	
==>eans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ver <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3409	3506	
==>eans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ver <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	595	720	
==>{
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	595	720	
==>{
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16458	16575	
==>$count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16458	16575	
==>$count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" c <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16458	16575	
==>$count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1239	1373	
==>\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1239	1373	
==>\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	643	798	
==>sub new {
        my $class = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	533	648	
==>}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2990	3100	
==>';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2990	3100	
==>';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2990	3100	
==>';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseC <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4906	5064	
==>lf.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4906	5064	
==>lf.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3709	3855	
==>lf.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3709	3855	
==>lf.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10675	10775	
==>nning the next
time it is called.

=head2 Viewing the Regex

You can get the regex back from the pars <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3597	3716	
==>is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

reg <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3597	3716	
==>is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

reg <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2211	2315	
==>method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Objec <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2211	2315	
==>method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Objec <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4154	4252	
==>e_type($node));
}

sub define_named_block {
	my $self = shift;
	my ($node, $symbol, $body, $type) = <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7154	7252	
==>ethod exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10631	10729	
==>ethod exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $oth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1310	1403	
==>([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1310	1403	
==>([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1310	1403	
==>([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1400	1521	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1400	1521	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not o <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1400	1521	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not o <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15263	15359	
==>JECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Retur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15263	15359	
==>JECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3759	3980	
==>rreponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3759	3980	
==>rreponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10933	11098	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10933	11098	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10933	11098	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Ar <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10722	10814	
==>- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10722	10814	
==>- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1415	1525	
==>onstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1415	1525	
==>onstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1415	1525	
==>onstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25243	25334	
==>enfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt < <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25243	25334	
==>enfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	863	969	
==>names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	863	969	
==>names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->ref <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	863	969	
==>names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->ref <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1283	1378	
==>soft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1123	1218	
==>soft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17282	17383	
==>ined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17282	17383	
==>ined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19547	19637	
==>:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19547	19637	
==>:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19547	19637	
==>:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$x <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7464	7600	
==>rn 1;

    } else {        
        error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VER <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	6729	6840	
==>= $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warnin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1171	1276	
==>= $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1171	1276	
==>= $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warnin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1171	1276	
==>= $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warnin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19817	19934	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19817	19934	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19817	19934	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	439	543	
==>sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	439	543	
==>sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16628	16795	
==>=> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16628	16795	
==>=> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16628	16795	
==>=> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6175	6274	
==>k';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNu <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6175	6274	
==>k';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2865	3013	
==>ode}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3049	3197	
==>ode}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return cod <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7661	7777	
==>ned;

        # We successfully got template text for the message key, so
        # interpolate the message vars into <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7661	7777	
==>ned;

        # We successfully got template text for the message key, so
        # interpolate the message vars into <==
5	/Users/nnunley/pugs/misc/IDE-support/server.pl	163	258	
==>-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m;
say '(message "d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10844	11024	
==>sses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10844	11024	
==>sses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10844	11024	
==>sses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_di <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5754	5852	
==>ssed.  One possibility is to return a negative value for
# relative seconds and a positive value fo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5754	5852	
==>ssed.  One possibility is to return a negative value for
# relative seconds and a positive value fo <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2548	2663	
==>L $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Ex <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2548	2663	
==>L $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	895	992	
==>:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	895	992	
==>:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	895	992	
==>:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2032	2233	
==>}

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5509	5710	
==>}

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4439	4640	
==>}

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ha <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16209	16300	
==>er instead.

Locale::KeyedText provides a simple but effective mechanism for
applications an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16209	16300	
==>er instead.

Locale::KeyedText provides a simple but effective mechanism for
applications an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1053	1144	
==>and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{orig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1053	1144	
==>and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{orig <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1053	1144	
==>and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{orig <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	453	560	
==>efinitions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definiti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	429	533	
==>efinitions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definiti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	428	516	
==>= PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummyc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	428	516	
==>= PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummyc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	428	516	
==>= PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummyc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1781	1884	
==>ly(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1781	1884	
==>ly(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1781	1884	
==>ly(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1769	1871	
==>, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1827	1929	
==>, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1042	1140	
==>ly we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1042	1140	
==>ly we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1042	1140	
==>ly we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6973	7078	
==>h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'p <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6973	7078	
==>h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3872	3977	
==>h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'p <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3706	3988	
==>late($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            % <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3749	4031	
==>late($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            % <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3706	3988	
==>late($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            % <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3749	4031	
==>late($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            % <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	21055	21186	
==>module);
}
sub Pugs::Internals::require_use_helper ($use_,$module) is builtin is unsafe {
  my sub opRequire() { 
    $use_
      ?? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5900	6056	
==>t;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	16801	16922	
==>nc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15822	15921	
==>mbol->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list->new($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6301	6392	
==>han}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6301	6392	
==>han}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick> <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9024	9157	
==>:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9024	9157	
==>:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5630	5726	
==>rs possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5630	5726	
==>rs possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5630	5726	
==>rs possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17306	17405	
==>no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.ti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17306	17405	
==>no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13607	13705	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13607	13705	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13607	13705	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6980	7133	
==>ined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            } <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6980	7133	
==>ined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1043	1167	
==>6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1043	1167	
==>6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1043	1167	
==>6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SO <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	827	951	
==>z files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13968	14073	
==>er. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13968	14073	
==>er. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13034	13135	
==>er. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13034	13135	
==>er. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12017	12205	
==>" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8299	8487	
==>" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9133	9321	
==>" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	203	381	
==>ta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta- <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	268	412	
==>ta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6710	6805	
==>rams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6710	6805	
==>rams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6710	6805	
==>rams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28831	28922	
==>equal (Relation::Example $other!) returns Bool>

This method returns the complement of C<equ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3260	3389	
==>y %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3400	3529	
==>y %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	231	330	
==>nt::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificatio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	231	330	
==>nt::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificatio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	231	330	
==>nt::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificatio <==
5	/Users/nnunley/pugs/util/package-osx.pl	37	139	
==>ings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parrot|pugs-parrot] target <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34043	34141	
==>n translating a message, a match in found in the most preferred language
is used.  Each Set Name ca <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34043	34141	
==>n translating a message, a match in found in the most preferred language
is used.  Each Set Name ca <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	429	522	
==>Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	429	522	
==>Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8530	8717	
==>aram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8530	8717	
==>aram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8530	8717	
==>aram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	494	666	
==>@$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	582	754	
==>@$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	579	746	
==>@$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1623	1713	
==>return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1623	1713	
==>return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gram <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1935	2152	
==>rt_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:per <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1935	2152	
==>rt_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1577	1679	
==>ee = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1577	1679	
==>ee = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Du <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1577	1679	
==>ee = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Du <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4446	4549	
==>f($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4446	4549	
==>f($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4446	4549	
==>f($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16112	16204	
==>com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman < <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16170	16262	
==>com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman < <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2977	3104	
==>nsity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool:: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2977	3104	
==>nsity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36801	36922	
==>y $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36801	36922	
==>y $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36801	36922	
==>y $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9772	9901	
==>+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) { <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9772	9901	
==>+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) { <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	748	873	
==>_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosav <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	748	873	
==>_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosav <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10649	10749	
==>d will start from the beginning the next
time it is called.

=head2 Viewing the Regex

You can get th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2908	3006	
==>ng (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2908	3006	
==>ng (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2908	3006	
==>ng (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37280	37373	
==>arameter
$module_name (a string) and checks whether or not it has already been
loaded, returni <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37280	37373	
==>arameter
$module_name (a string) and checks whether or not it has already been
loaded, returni <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	7	93	
==>lso: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	7	93	
==>lso: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	7	93	
==>lso: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2626	2756	
==>an::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2626	2756	
==>an::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6088	6216	
==>nboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6088	6216	
==>nboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6088	6216	
==>nboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12601	12715	
==>})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12601	12715	
==>})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8988	9094	
==>ky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8988	9094	
==>ky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8988	9094	
==>ky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17661	17840	
==>) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17661	17840	
==>) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17661	17840	
==>) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1396	1528	
==>..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1396	1528	
==>..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13077	13227	
==>@res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13077	13227	
==>@res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13077	13227	
==>@res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{po <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3823	3939	
==>{
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3823	3939	
==>{
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6018	6116	
==>ome local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6018	6116	
==>ome local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1946	2039	
==>d JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1946	2039	
==>d JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1946	2039	
==>d JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8770	8861	
==>Rosetta::Model" package serves only as the name-sake
representative for this whole file, whi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8770	8861	
==>Rosetta::Model" package serves only as the name-sake
representative for this whole file, whi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17796	17910	
==>leop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18075	18189	
==>leop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5325	5429	
==>lf->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5325	5429	
==>lf->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5325	5429	
==>lf->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9474	9589	
==>her->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9474	9589	
==>her->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array ha <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9474	9589	
==>her->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array ha <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15723	15829	
==>nless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $mi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10579	10685	
==>nless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $mi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	857	975	
==>hing ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 're <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1063	1181	
==>hing ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 're <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7304	7398	
==>aque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7304	7398	
==>aque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7304	7398	
==>aque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6141	6258	
==>OTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello fr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6141	6258	
==>OTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello fr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6141	6258	
==>OTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello fr <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2888	2989	
==>3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::Valu <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3433	3534	
==>3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::Valu <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3723	3833	
==>smoker;
    $self->get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_ti <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40904	40998	
==>e that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLED <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26464	26558	
==>e that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLED <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40904	40998	
==>e that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLED <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26464	26558	
==>e that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLED <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13209	13320	
==>al headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16686	16797	
==>al headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a p <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16048	16159	
==>al headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a p <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14994	15090	
==>plan currently is to implement this as a mutually recursive multi-
sub which will be able to hand <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15052	15148	
==>plan currently is to implement this as a mutually recursive multi-
sub which will be able to hand <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4643	4792	
==>@modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have a <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4643	4792	
==>@modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have a <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	162	267	
==>that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    h <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	162	267	
==>that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12361	12479	
==>de .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12361	12479	
==>de .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12361	12479	
==>de .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exi <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1441	1545	
==>="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $re <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1441	1545	
==>="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16226	16366	
==>] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16220	16360	
==>] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	321	438	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	321	438	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	321	438	
==>" # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	452	575	
==>the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocan <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	452	575	
==>the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1291	1401	
==>self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1291	1401	
==>self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1291	1401	
==>self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attri <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10744	10851	
==>ing );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14221	14328	
==>ing );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13520	13627	
==>ing );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7298	7390	
==>h_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1] <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7298	7390	
==>h_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8079	8200	
==>mp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8079	8200	
==>mp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8079	8200	
==>mp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref( <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2017	2133	
==>size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = ti <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2017	2133	
==>size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = ti <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	370	480	
==>if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_AR <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	370	480	
==>if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_AR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4459	4564	
==>0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4459	4564	
==>0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4459	4564	
==>0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.p <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	325	446	
==>->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4998	5106	
==>);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1581	1689	
==>);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	571	671	
==>.
#
# To test head.p6, tail.p6, rev.p6, mid.p6, wc.p6 for correctness,
# simply run this program in t <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	371	466	
==>->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%arg <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11130	11256	
==>rn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11124	11250	
==>rn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2293	2386	
==>y $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2293	2386	
==>y $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2293	2386	
==>y $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	662	763	
==>:next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	403	504	
==>>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	662	763	
==>:next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_op <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	403	504	
==>>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	403	504	
==>>{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23602	23710	
==>my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23602	23710	
==>my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23602	23710	
==>my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4973	5065	
==><Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4973	5065	
==><Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15192	15362	
==>implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15186	15356	
==>implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1288	1454	
==>=     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1288	1454	
==>=     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descrip <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2173	2336	
==>t       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21177	21282	
==>ional argument that says whether
they're being turned on or off.  Also, if the flag handler returns 0,
tha <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28215	28308	
==>s method returns a stringified version of this object which is suitable
for debugging purposes <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35571	35664	
==>s method returns a stringified version of this object which is suitable
for debugging purposes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28215	28308	
==>s method returns a stringified version of this object which is suitable
for debugging purposes <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35571	35664	
==>s method returns a stringified version of this object which is suitable
for debugging purposes <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	525	643	
==>pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	525	643	
==>pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	525	643	
==>pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2890	2987	
==>ugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fglock things <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2784	2879	
==>ugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fglock things <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	137	253	
==>y $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	137	253	
==>y $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	137	253	
==>y $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{t <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17562	17670	
==>E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17746	17854	
==>E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	606	711	
==>>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	606	711	
==>>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	606	711	
==>>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1536	1634	
==>ce is good enough for many purposes.  
Although the interface is said to be procedural, it is invok <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1536	1634	
==>ce is good enough for many purposes.  
Although the interface is said to be procedural, it is invok <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34312	34404	
==>and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new obj <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34312	34404	
==>and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new obj <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5792	5912	
==>rt && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5792	5912	
==>rt && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2477	2576	
==>$x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2477	2576	
==>$x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
su <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2477	2576	
==>$x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
su <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2659	2783	
==>pilMain"> );
        $ret = emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = t <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7466	7562	
==>t $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6596	6692	
==>t $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7466	7562	
==>t $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6596	6692	
==>t $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4660	4772	
==>0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user ha <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4519	4631	
==>0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7035	7144	
==>0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Conte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7035	7144	
==>0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Conte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7035	7144	
==>0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Conte <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6612	6770	
==>$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5116	5274	
==>$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6356	6461	
==>ew {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6356	6461	
==>ew {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6356	6461	
==>ew {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->ne <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1432	1528	
==>re 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4803	4899	
==>ource if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1432	1528	
==>re 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4803	4899	
==>ource if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4803	4899	
==>ource if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6808	6918	
==>"test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $contex <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6866	6976	
==>"test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $contex <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	133	239	
==>e Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($klass) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17752	17848	
==>nique for a situation, and this is
mapped to a user-readable message at some point.  For example, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17752	17848	
==>nique for a situation, and this is
mapped to a user-readable message at some point.  For example, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17141	17266	
==>ype  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    = <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17141	17266	
==>ype  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5330	5430	
==>homp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5330	5430	
==>homp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5330	5430	
==>homp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1175	1350	
==>f $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $ab <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1175	1350	
==>f $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $ab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14565	14716	
==>ument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14565	14716	
==>ument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14565	14716	
==>ument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7181	7316	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7181	7316	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7181	7316	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => :: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1886	1997	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1886	1997	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10201	10299	
==>use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10201	10299	
==>use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10201	10299	
==>use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17459	17551	
==>"Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17459	17551	
==>"Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta N <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9683	9855	
==>:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9962	10134	
==>:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6524	6651	
==><+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6524	6651	
==><+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7116	7205	
==>$var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7116	7205	
==>$var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7116	7205	
==>$var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3669	3793	
==>->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3918	4039	
==>->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3918	4039	
==>->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state} <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3066	3167	
==>uffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3066	3167	
==>uffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2595	2692	
==>bset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ " <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2595	2692	
==>bset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4872	4962	
==>blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4872	4962	
==>blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4872	4962	
==>blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2615	2835	
==>Comparator
                      | Pair(KeyExtractor, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8793	8948	
==>erl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8793	8948	
==>erl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8793	8948	
==>erl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	21	113	
==>:Ref;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Bi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21432	21574	
==>ram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21432	21574	
==>ram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21432	21574	
==>ram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	420	528	
==>as Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	420	528	
==>as Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3004	3152	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11700	11848	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::state <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3197	3345	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::state <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11979	12127	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::state <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16107	16208	
==>d with a
list, it chops each item in turn, and returns the last character
chopped.


=item chomp

 mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1903	1996	
==>) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1903	1996	
==>) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1903	1996	
==>) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function ( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5454	5537	
==>num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num% <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5454	5537	
==>num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num% <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	468	562	
==>ellesque, are not pure functions.  They only
# represent transformations between PIL node types <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	468	562	
==>ellesque, are not pure functions.  They only
# represent transformations between PIL node types <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1583	1692	
==>";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1583	1692	
==>";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1583	1692	
==>";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	87	182	
==>l6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pu <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	87	182	
==>l6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pu <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	714	814	
==>thod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    retur <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	714	814	
==>thod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5199	5394	
==>d $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5199	5394	
==>d $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5199	5394	
==>d $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8288	8451	
==>eturn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8288	8451	
==>eturn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	3122	3229	
==>re just because of an icky pugsbug.
    #my %idx = <package file line subname subtype params> Y 0 .. 5; # ug <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22032	22126	
==>eric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handler <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20913	21007	
==>eric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handler <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22032	22126	
==>eric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handler <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20913	21007	
==>eric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handler <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4985	5103	
==>pecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4985	5103	
==>pecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4985	5103	
==>pecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # cor <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10609	10714	
==>is method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10609	10714	
==>is method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11070	11215	
==>n (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11070	11215	
==>n (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11070	11215	
==>n (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1282	1383	
==>'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1422	1523	
==>'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2915	3019	
==>f the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2915	3019	
==>f the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9618	9709	
==>cant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9618	9709	
==>cant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1] <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9618	9709	
==>cant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1] <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1361	1471	
==>{
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 mul <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	381	491	
==>{
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	452	548	
==>self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	452	548	
==>self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->ev <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	452	548	
==>self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	909	1015	
==>rse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	909	1015	
==>rse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	909	1015	
==>rse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8020	8118	
==>olves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

I <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8020	8118	
==>olves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

I <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1877	1995	
==>rc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1877	1995	
==>rc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	686	791	
==>r->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	686	791	
==>r->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	686	791	
==>r->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3499	3627	
==>h = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3499	3627	
==>h = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3499	3627	
==>h = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[- <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5617	5717	
==>eturns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is ex <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5675	5775	
==>eturns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is ex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6649	6786	
==>my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $bo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6649	6786	
==>my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16324	16434	
==>&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16324	16434	
==>&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16324	16434	
==>&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2321	2417	
==>jects or fully functioning modules in 
Pugs, this port does it's best to work with those limitati <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2321	2417	
==>jects or fully functioning modules in 
Pugs, this port does it's best to work with those limitati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1909	2000	
==>turn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1909	2000	
==>turn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1909	2000	
==>turn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	380	469	
==>om referer
    www_authenticate authorization proxy_authorization authorization_basic prox <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	380	469	
==>om referer
    www_authenticate authorization proxy_authorization authorization_basic prox <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1898	2015	
==>for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1898	2015	
==>for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2352	2453	
==>returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2352	2453	
==>returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2352	2453	
==>returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy sl <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3196	3381	
==>f @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @re <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3196	3381	
==>f @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @re <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	959	1060	
==>+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	959	1060	
==>+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17271	17390	
==>ercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $str <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22785	22880	
==>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21612	21707	
==>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22785	22880	
==>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21612	21707	
==>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16756	16864	
==>'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16756	16864	
==>'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tai <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16756	16864	
==>'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tai <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14438	14541	
==>0000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )` <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14438	14541	
==>0000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )` <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	251	357	
==>./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	251	357	
==>./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4003	4096	
==>hrow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4003	4096	
==>hrow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4003	4096	
==>hrow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3216	3342	
==>le $equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{na <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3735	3858	
==>match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3735	3858	
==>match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3735	3858	
==>match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1120	1217	
==>tr type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () return <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13400	13511	
==>./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13400	13511	
==>./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2896	2997	
==>c => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2896	2997	
==>c => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2896	2997	
==>c => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11746	11847	
==>s the given items if they are already in the set, or inserts the items if
they're not in the set.

Ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8893	8994	
==>s the given items if they are already in the set, or inserts the items if
they're not in the set.

Ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11746	11847	
==>s the given items if they are already in the set, or inserts the items if
they're not in the set.

Ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8893	8994	
==>s the given items if they are already in the set, or inserts the items if
they're not in the set.

Ret <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3918	4016	
==>e by one. First Param will
introduce a new symbol, $x, taking the 10 off the parameter stack and bi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11178	11294	
==>f $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1648	1752	
==>f $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1648	1752	
==>f $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15552	15644	
==>ll be mutually recursive, they will easily be
able handle arbitrarily complex data structures <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15610	15702	
==>ll be mutually recursive, they will easily be
able handle arbitrarily complex data structures <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	694	801	
==>self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	694	801	
==>self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	694	801	
==>self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::C <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	272	374	
==>f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	272	374	
==>f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11232	11339	
==>main, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11232	11339	
==>main, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4027	4119	
==>ACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4027	4119	
==>ACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4027	4119	
==>ACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11874	12016	
==>y $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b. <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11874	12016	
==>y $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9198	9312	
==>udge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9198	9312	
==>udge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9198	9312	
==>udge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1822	1917	
==>reate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1822	1917	
==>reate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1822	1917	
==>reate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33043	33249	
==>::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33043	33249	
==>::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33043	33249	
==>::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9453	9573	
==>ering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroi <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9453	9573	
==>ering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroi <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9149	9256	
==>thod fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9149	9256	
==>thod fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	765	868	
==>ION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	765	868	
==>ION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	765	868	
==>ION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutin <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4346	4449	
==>:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub * <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4346	4449	
==>:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22791	22890	
==>$v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22791	22890	
==>$v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22791	22890	
==>$v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	327	433	
==>q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each H <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	818	924	
==>q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each H <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	327	433	
==>q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each H <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	818	924	
==>q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each H <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9839	9931	
==>2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> whi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9839	9931	
==>2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5046	5150	
==>push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5046	5150	
==>push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5046	5150	
==>push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shif <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3401	3495	
==>@variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3585	3679	
==>@variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13958	14107	
==>sh @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4059	4188	
==>sh @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4059	4188	
==>sh @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4059	4188	
==>sh @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $ <==
5	/Users/nnunley/pugs/misc/S29_round.pl	757	861	
==>nd = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_symmet <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2941	3142	
==>%events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne ' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3195	3396	
==>%events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne ' <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2941	3142	
==>%events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne ' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3195	3396	
==>%events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16058	16175	
==>{ \G \? }xgc;
    return;
  });

  # alternation branch

  # opening parenthesis (maybe capturing paren)

  # any char <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14196	14393	
==>d->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher mag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14196	14393	
==>d->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher mag <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14196	14393	
==>d->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher mag <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19378	19466	
==>cking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernam <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19378	19466	
==>cking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7068	7209	
==>tch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7068	7209	
==>tch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3843	3945	
==>new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3843	3945	
==>new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3843	3945	
==>new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2J <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	308	413	
==>IL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	308	413	
==>IL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	308	413	
==>IL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17014	17108	
==>pplied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17014	17108	
==>pplied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	160	277	
==>fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	160	277	
==>fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	160	277	
==>fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24955	25051	
==>lly or dynamically with other components is making a
combined work based on Rosetta.  Thus, the t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24955	25051	
==>lly or dynamically with other components is making a
combined work based on Rosetta.  Thus, the t <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	428	531	
==>mes in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	486	589	
==>mes in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_te <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2507	2601	
==>r.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2507	2601	
==>r.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other) <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16270	16352	
==>,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3199	3346	
==>$date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3199	3346	
==>$date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2705	2805	
==>ilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test:: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2705	2805	
==>ilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4229	4329	
==>ilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test:: <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	237	354	
==>age';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in case <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7554	7699	
==>for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7554	7699	
==>for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1249	1335	
==>:Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1249	1335	
==>:Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1249	1335	
==>:Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2286	2407	
==>mpatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param(' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2286	2407	
==>mpatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	78	162	
==>---------------------------------------------------------------------------
## now fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	78	162	
==>---------------------------------------------------------------------------
## now fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	78	162	
==>---------------------------------------------------------------------------
## now fo <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	666	798	
==>'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.nu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	666	798	
==>'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.nu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	735	839	
==>*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	735	839	
==>*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	735	839	
==>*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7869	7986	
==>{
    my $dir = shift;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1251	1354	
==>$o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	26	113	
==>nternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	26	113	
==>nternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	26	113	
==>nternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28828	28931	
==>8 = 0)))

 #define REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24254	24351	
==>her an AI or other interactive program controlling their
  actions) which are always seen to be re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23027	23124	
==>her an AI or other interactive program controlling their
  actions) which are always seen to be re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24254	24351	
==>her an AI or other interactive program controlling their
  actions) which are always seen to be re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23027	23124	
==>her an AI or other interactive program controlling their
  actions) which are always seen to be re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	123	231	
==>trict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	119	221	
==>trict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	113	215	
==>trict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	119	221	
==>trict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	113	215	
==>trict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2764	2861	
==>new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2764	2861	
==>new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2764	2861	
==>new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_wh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15909	15997	
==>ent!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15909	15997	
==>ent!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5037	5183	
==>y ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5501	5647	
==>y ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5966	6060	
==>lf = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5966	6060	
==>lf = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5966	6060	
==>lf = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::V <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1948	2091	
==>ub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbos <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1948	2091	
==>ub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbos <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1948	2091	
==>ub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbos <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9270	9370	
==>ly one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9270	9370	
==>ly one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	518	776	
==>r {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	518	776	
==>r {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9147	9241	
==>tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9147	9241	
==>tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9147	9241	
==>tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13292	13465	
==>->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13292	13465	
==>->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13292	13465	
==>->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	794	932	
==>nt $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	794	932	
==>nt $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2805	2903	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2805	2903	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2805	2903	
==>dd_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8694	8785	
==>Perl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Funct <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8694	8785	
==>Perl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Funct <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18235	18332	
==>the same external resources, such as a repository file
on disk, it is expected that the Engines wi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18235	18332	
==>the same external resources, such as a repository file
on disk, it is expected that the Engines wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6601	6691	
==>Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6601	6691	
==>Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6601	6691	
==>Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22068	22273	
==>rn $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22068	22273	
==>rn $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22068	22273	
==>rn $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array f <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	629	750	
==>s (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$_> --> N <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	233	335	
==>) unless $:tree.defined;
    return $:tree;
}

method show_tree ($self:) returns Void {
    $self.tree( <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2130	2241	
==>::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", s <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2130	2241	
==>::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	629	731	
==>$::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	629	731	
==>$::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	629	731	
==>$::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	387	517	
==>", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	387	517	
==>", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	387	517	
==>", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var v <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13467	13564	
==>t "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C< <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13467	13564	
==>t "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C< <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	618	737	
==>ck or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	618	737	
==>ck or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36385	36479	
==>d tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40934	41028	
==>d tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40548	40642	
==>d tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5189	5317	
==>*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shoul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5189	5317	
==>*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shoul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5189	5317	
==>*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shoul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1249	1359	
==>2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_au <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1242	1344	
==>2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_au <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2571	2680	
==>(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2571	2680	
==>(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2571	2680	
==>(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13241	13348	
==>val "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14211	14318	
==>val "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3323	3422	
==>{
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3323	3422	
==>{
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3323	3422	
==>{
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].F <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10682	10774	
==>, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10740	10832	
==>, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	682	794	
==>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	682	794	
==>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	682	794	
==>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	46	157	
==>use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	46	157	
==>use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4771	4897	
==>:PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4771	4897	
==>:PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4771	4897	
==>:PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $se <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15765	15868	
==>is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if no <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2162	2265	
==>is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if no <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	15	116	
==>ck;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

subm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	718	819	
==>.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_li <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	15	116	
==>ck;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

subm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	718	819	
==>.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_li <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	718	819	
==>.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_li <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25303	25399	
==>ttributes is identical; they do not
interact with the outside environment at all.

A Message obje <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25303	25399	
==>ttributes is identical; they do not
interact with the outside environment at all.

A Message obje <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1375	1511	
==>ture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1320	1449	
==>ture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37933	38029	
==>every tuple of each other source relation, then where each member of a
tuple pair has attribute n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42482	42578	
==>every tuple of each other source relation, then where each member of a
tuple pair has attribute n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42132	42228	
==>every tuple of each other source relation, then where each member of a
tuple pair has attribute n <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4218	4334	
==>return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4218	4334	
==>return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3904	4019	
==>Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3904	4019	
==>Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3904	4019	
==>Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4953	5059	
==>)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	914	1020	
==>FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()) <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4953	5059	
==>)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	914	1020	
==>FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	914	1020	
==>FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11637	11732	
==>urns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8784	8879	
==>urns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11637	11732	
==>urns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8784	8879	
==>urns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10423	10562	
==>rCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10423	10562	
==>rCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10423	10562	
==>rCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12628	12743	
==>gedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12628	12743	
==>gedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10249	10386	
==>) -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='t <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10249	10386	
==>) -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4228	4354	
==>ms) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4228	4354	
==>ms) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4228	4354	
==>ms) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12698	12829	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12698	12829	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12698	12829	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1151	1250	
==>ncludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1151	1250	
==>ncludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	2161	2301	
==>c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14675	14790	
==>l possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14675	14790	
==>l possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14675	14790	
==>l possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.del <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26615	26720	
==>angesNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash>
    | < <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	671	767	
==>)`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( cl <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	671	767	
==>)`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( cl <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2469	2577	
==>rgs->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1727	1827	
==>hod(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1727	1827	
==>hod(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1727	1827	
==>hod(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1626	1725	
==>rgs->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1950	2081	
==>nstance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1950	2081	
==>nstance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1950	2081	
==>nstance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        ( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1284	1399	
==>lf, $block) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "OR takes a block";    
    if ($ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12748	12854	
==>lt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $sel <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17649	17801	
==>toire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribute <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17649	17801	
==>toire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribute <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4285	4393	
==>= $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4285	4393	
==>= $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there .. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4285	4393	
==>= $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there .. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11804	11913	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11804	11913	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11804	11913	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15004	15109	
==>antite_container)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\$class: %attrs))) <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6547	6643	
==>lease install GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_v <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2173	2342	
==>re type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat s <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2173	2342	
==>re type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12293	12449	
==>$method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12293	12449	
==>$method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12293	12449	
==>$method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .... <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8569	8762	
==>sion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Ill <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9033	9226	
==>sion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Ill <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4582	4705	
==>sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4582	4705	
==>sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4582	4705	
==>sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{s <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6868	7124	
==>pp->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7225	7481	
==>pp->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1954	2066	
==>Int multi Num::round_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int mult <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12103	12192	
==>-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prin <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12103	12192	
==>-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prin <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	381	485	
==>e resolved by $self";
}

sub find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20815	20910	
==>ibing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19732	19827	
==>ibing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20815	20910	
==>ibing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19732	19827	
==>ibing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2994	3089	
==>admin} or die << "END";
The '$method' method does not exist in the '$self->{prefix}' path!
Pleas <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19012	19104	
==>s to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18046	18138	
==>s to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19012	19104	
==>s to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constr <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18046	18138	
==>s to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3345	3516	
==>type,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3345	3516	
==>type,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3345	3516	
==>type,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2404	2513	
==>am('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2404	2513	
==>am('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17913	18053	
==>ck)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    li <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16951	17091	
==>ck)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    li <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17913	18053	
==>ck)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    li <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16951	17091	
==>ck)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    li <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	115	215	
==>:Symbol;
use Perl6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13931	14081	
==>self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13931	14081	
==>self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13931	14081	
==>self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8705	8823	
==>$prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8705	8823	
==>$prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2153	2272	
==>ment_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2153	2272	
==>ment_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2153	2272	
==>ment_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8489	8584	
==>ur own security analysis before using it in any 
sensitive application.>

B<I<The authors and co <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8489	8584	
==>ur own security analysis before using it in any 
sensitive application.>

B<I<The authors and co <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7828	7970	
==>fied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $del <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1129	1271	
==>fied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $del <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15605	15705	
==>>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15605	15705	
==>>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15605	15705	
==>>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pref <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13298	13390	
==>he `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13356	13448	
==>he `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26465	26556	
==>duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31017	31108	
==>duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30019	30110	
==>duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10725	10866	
==>ocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7066	7207	
==>ocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7915	8056	
==>ocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21258	21345	
==>rE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21258	21345	
==>rE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7060	7218	
==>on_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_dat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7060	7218	
==>on_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1057	1173	
==>s :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1057	1173	
==>s :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1057	1173	
==>s :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ... <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1128	1281	
==>y $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1128	1281	
==>y $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5643	5746	
==>1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5643	5746	
==>1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6233	6336	
==>1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11002	11119	
==>>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11002	11119	
==>>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11002	11119	
==>>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3010	3102	
==>Create an encipherer closure, which can be called repeatedly to encipher data.
The encipherer <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3010	3102	
==>Create an encipherer closure, which can be called repeatedly to encipher data.
The encipherer <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1931	2060	
==>s = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1931	2060	
==>s = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1931	2060	
==>s = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$id <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	603	719	
==>s - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	603	719	
==>s - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1746	1852	
==>d) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1746	1852	
==>d) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6147	6251	
==>updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6147	6251	
==>updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6147	6251	
==>updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5146	5250	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2688	2792	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3469	3573	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4622	4725	
==>':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platfor <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4622	4725	
==>':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platfor <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10765	10949	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26107	26273	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->get_a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38737	38902	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39264	39429	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_a <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2975	3090	
==>3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1061	1307	
==>ule Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localiza <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1061	1307	
==>ule Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localiza <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16068	16173	
==>r( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16068	16173	
==>r( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16068	16173	
==>r( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2954	3078	
==>n't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@li <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2954	3078	
==>n't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@li <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1610	1727	
==>mpanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2272	2389	
==>mpanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9748	9864	
==>undef, if we didn't find anything).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please se <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16451	16620	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16730	16899	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19291	19394	
==>)
{
    eval(slurp($filename),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Int <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9832	9929	
==>n be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Re <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9832	9929	
==>n be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2789	2892	
==>time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2789	2892	
==>time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2789	2892	
==>time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26724	26821	
==>te of the new object is set from the named parameter
$msg_key (a string); the optional named param <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26724	26821	
==>te of the new object is set from the named parameter
$msg_key (a string); the optional named param <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4386	4488	
==>spacePosition = $position;
    push @bsrStack, "bsr_token_match_2";
    goto token_match;
    bsr_token <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2159	2427	
==>(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2159	2427	
==>(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3452	3552	
==>il("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3452	3552	
==>il("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3452	3552	
==>il("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2635	2844	
==>^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_lin <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2635	2844	
==>^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_lin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	639	783	
==>eturn { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <stat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	639	783	
==>eturn { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <stat <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	435	575	
==>Copying '$archive'\n";
    
        ### get the metadata out
        {   ### extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4712	4909	
==>m->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1405	1507	
==>pand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1405	1507	
==>pand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1405	1507	
==>pand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12040	12126	
==>char(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	127	252	
==>le;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            progr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	127	252	
==>le;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            progr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6475	6571	
==>_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB at <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6475	6571	
==>_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB at <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6475	6571	
==>_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5517	5640	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5517	5640	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5517	5640	
==>m( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	311	418	
==>s 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	297	398	
==>s 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6218	6334	
==>gexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5829	5926	
==>b *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4959	5056	
==>b *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5829	5926	
==>b *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4959	5056	
==>b *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	6	112	
==>e PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	6	112	
==>e PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	6	112	
==>e PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1795	1891	
==>t string, returning the ciphertext version.  Most 
algorithms will have a key, which will be spec <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1795	1891	
==>t string, returning the ciphertext version.  Most 
algorithms will have a key, which will be spec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22789	22906	
==>}, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->ad <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19210	19327	
==>}, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2880	2984	
==>around.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2880	2984	
==>around.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2880	2984	
==>around.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8861	8997	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8861	8997	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8861	8997	
==>=> {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { acc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1784	1914	
==>er('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $cont <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1784	1914	
==>er('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10936	11055	
==>" + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10936	11055	
==>" + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10936	11055	
==>" + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        re <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3381	3478	
==>ector should be hashed with the 
key, not merely appended to it; appending can create precisely th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3381	3478	
==>ector should be hashed with the 
key, not merely appended to it; appending can create precisely th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5556	5655	
==>retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we do <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5556	5655	
==>retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we do <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19688	19786	
==>uperset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24240	24338	
==>uperset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The va <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41011	41105	
==>gured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8456	8559	
==>turn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8456	8559	
==>turn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8456	8559	
==>turn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_pa <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1052	1144	
==>l::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1052	1144	
==>l::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23626	23751	
==>Y_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already che <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16780	16902	
==>lse      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16780	16902	
==>lse      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16780	16902	
==>lse      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0 <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28856	28954	
==>Y_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already che <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13366	13495	
==>is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13366	13495	
==>is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13366	13495	
==>is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($ <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1603	1696	
==>MMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1443	1536	
==>MMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13249	13405	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27363	27519	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13528	13684	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27642	27798	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14867	14962	
==>on> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpression>
    | <Mult <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	603	977	
==>}
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	603	977	
==>}
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	840	979	
==>t.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	840	979	
==>t.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	840	979	
==>t.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          J <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1962	2068	
==>plemented";
}

sub perl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $def <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10958	11051	
==>=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of it <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8362	8455	
==>=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10958	11051	
==>=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8362	8455	
==>=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	207	315	
==>=> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>() <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	211	319	
==>=> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>() <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	207	315	
==>=> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>() <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	211	319	
==>=> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>() <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23718	23818	
==>e $self) (list ?@superclasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasses a <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2053	2249	
==>_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2053	2249	
==>_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4603	4699	
==>) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4603	4699	
==>) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4603	4699	
==>) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4408	4504	
==>pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4408	4504	
==>pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4408	4504	
==>pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1326	1421	
==>ing
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the te <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1326	1421	
==>ing
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the te <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15432	15542	
==>= $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2830	2940	
==>arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPara <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15432	15542	
==>= $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2830	2940	
==>arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPara <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2830	2940	
==>arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPara <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5411	5522	
==>($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5411	5522	
==>($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5411	5522	
==>($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1278	1378	
==>s/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list co <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1278	1378	
==>s/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6585	6722	
==>ell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieab <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6585	6722	
==>ell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieab <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6585	6722	
==>ell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieab <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8526	8636	
==>ted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <h <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8526	8636	
==>ted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4496	4616	
==>elf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4496	4616	
==>elf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4496	4616	
==>elf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32243	32338	
==>splays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32243	32338	
==>splays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to co <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6076	6217	
==>O - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curre <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6896	7037	
==>O - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curre <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6076	6217	
==>O - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curre <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6896	7037	
==>O - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.curre <==
5	/Users/nnunley/pugs/util/package-osx.pl	5583	5680	
==>cal/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Perl6::Overview.3pm
        /usr/local/ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21376	21475	
==>o Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21376	21475	
==>o Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same t <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15206	15305	
==>er to pay attention to
to select our language.  so I suspect the default should be Grf. -law]

Attem <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2885	2981	
==>od union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2885	2981	
==>od union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12797	12918	
==>=> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12797	12918	
==>=> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12797	12918	
==>=> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            } <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5822	5914	
==>oclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5880	5972	
==>oclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5924	6037	
==>a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12882	12995	
==>&& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5924	6037	
==>a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cw <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12882	12995	
==>&& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12882	12995	
==>&& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11269	11409	
==>print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11401	11541	
==>print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4692	4793	
==>(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4692	4793	
==>(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4692	4793	
==>(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3670	3873	
==>concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3917	4120	
==>concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1364	1480	
==>cursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1364	1480	
==>cursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1364	1480	
==>cursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{p <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	816	913	
==>nite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	816	913	
==>nite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	14560	14739	
==>{
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delete @f{@dir_files};
                my @f = sort keys %f;
                pri <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6443	6548	
==>urn $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- interna <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6443	6548	
==>urn $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- interna <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6433	6531	
==>oid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

no <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6433	6531	
==>oid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	61	173	
==>-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	61	173	
==>-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	61	173	
==>-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        att <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2195	2279	
==>w.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2195	2279	
==>w.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8400	8528	
==>= p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8400	8528	
==>= p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8400	8528	
==>= p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2222	2342	
==>le( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $pre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2439	2559	
==>le( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $pre <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9909	10034	
==>,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  sa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7849	7974	
==>,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  sa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9909	10034	
==>,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  sa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7849	7974	
==>,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  sa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	881	995	
==>oncat {
    my ($left, $right) = @_;
    (blessed($right))
        || confess "The right hand side must be a core t <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14480	14588	
==>(?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2612	2714	
==>HT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2612	2714	
==>HT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1823	1921	
==>HT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3684	3782	
==>HT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	190	293	
==>, cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	190	293	
==>, cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	190	293	
==>, cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsi <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	798	898	
==>BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is runnin <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	798	898	
==>BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is runnin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7969	8128	
==>junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7969	8128	
==>junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7969	8128	
==>junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	893	1032	
==>message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	893	1032	
==>message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28522	28618	
==>g the new tuple-valued attribute names and each of its values
the set of old attribute names that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33074	33170	
==>g the new tuple-valued attribute names and each of its values
the set of old attribute names that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32202	32298	
==>g the new tuple-valued attribute names and each of its values
the set of old attribute names that <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7128	7219	
==>n}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($ch <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7128	7219	
==>n}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($ch <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15350	15466	
==>has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15350	15466	
==>has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6965	7075	
==>f ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{ab <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6965	7075	
==>f ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{ab <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5788	5882	
==>referred',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], '$.value' => <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45527	45676	
==>l
        symbol->new('name'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	220	323	
==>:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	220	323	
==>:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3966	4061	
==>L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appen <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3966	4061	
==>L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	135	240	
==>warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	130	230	
==>warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	124	224	
==>warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	130	230	
==>warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	124	224	
==>warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $param ) = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17115	17211	
==>};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17115	17211	
==>};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17115	17211	
==>};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($x <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10016	10108	
==>ining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_diffe <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10016	10108	
==>ining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_diffe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4420	4534	
==>];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4420	4534	
==>];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	511	598	
==>-------------------------------------------------------
## Eigenclass

$::EigenClass = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	511	598	
==>-------------------------------------------------------
## Eigenclass

$::EigenClass = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	511	598	
==>-------------------------------------------------------
## Eigenclass

$::EigenClass = $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8683	8847	
==>ook into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5043	5207	
==>ook into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5892	6056	
==>ook into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3776	3877	
==>im(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    el <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3834	3935	
==>im(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    el <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5413	5585	
==>->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-com <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5425	5597	
==>->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-com <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5515	5609	
==>sts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Sk <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5515	5609	
==>sts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Sk <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7039	7133	
==>sts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Sk <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1092	1195	
==>sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1092	1195	
==>sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1089	1190	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1089	1190	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1089	1190	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17838	17937	
==>d output data from it.

You can create more than one DBMS object at a time, and they are
essentially <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10288	10387	
==>nce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_priv <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17838	17937	
==>d output data from it.

You can create more than one DBMS object at a time, and they are
essentially <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10288	10387	
==>nce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_priv <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10288	10387	
==>nce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_priv <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5194	5313	
==>(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8671	8790	
==>(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7691	7810	
==>(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1237	1393	
==>p > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4476	4632	
==>p > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1237	1393	
==>p > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4476	4632	
==>p > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	978	1101	
==>::eval_parrot (Str $code) is builtin is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4665	4787	
==>ame\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4677	4799	
==>ame\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1626	1715	
==>tance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1626	1715	
==>tance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1626	1715	
==>tance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11174	11308	
==>text) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subrou <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11174	11308	
==>text) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subrou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13566	13694	
==>( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13566	13694	
==>( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13566	13694	
==>( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bi <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	402	506	
==>the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

su <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	460	564	
==>the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11725	11810	
==>(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11725	11810	
==>(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx)) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11725	11810	
==>(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18596	18726	
==>layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18596	18726	
==>layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18596	18726	
==>layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Disp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1420	1517	
==>text they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1420	1517	
==>text they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2569	2700	
==>f        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.el <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2569	2700	
==>f        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.el <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6888	7008	
==>$a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6888	7008	
==>$a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6888	7008	
==>$a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3171	3281	
==>ed $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3171	3281	
==>ed $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3171	3281	
==>ed $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$ <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	992	1082	
==>pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descripti <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	992	1082	
==>pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descripti <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4841	4954	
==>tr is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4841	4954	
==>tr is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1097	1197	
==>le lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1097	1197	
==>le lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1097	1197	
==>le lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs opt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6593	6749	
==>b {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10800	10956	
==>b {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7878	8025	
==>b {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6380	6527	
==>b {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7878	8025	
==>b {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5146	5283	
==>= peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5347	5478	
==>= peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5347	5478	
==>= peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3815	3919	
==>he generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4032	4136	
==>he generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10060	10197	
==>$method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10060	10197	
==>$method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$clas <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10060	10197	
==>$method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$clas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7949	8067	
==>me() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7949	8067	
==>me() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13261	13361	
==>'has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13261	13361	
==>'has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13261	13361	
==>'has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19440	19531	
==>anipulation statements but that the target relation
variables are system catalog relation va <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19440	19531	
==>anipulation statements but that the target relation
variables are system catalog relation va <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6609	6714	
==>ub unlike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5450	5551	
==>e->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5450	5551	
==>e->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5450	5551	
==>e->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless-> <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	3561	3656	
==>g
) where

import qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.Map Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16140	16243	
==>$xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16140	16243	
==>$xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16140	16243	
==>$xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41219	41310	
==>ther than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 20 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41219	41310	
==>ther than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 20 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6026	6168	
==>set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cu <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6026	6168	
==>set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	360	456	
==>x.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	360	456	
==>x.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	360	456	
==>x.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2934	3045	
==>:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2934	3045	
==>:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2934	3045	
==>:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3146	3249	
==>iversal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) } <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3146	3249	
==>iversal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1339	1446	
==>n () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInterna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1339	1446	
==>n () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInterna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1339	1446	
==>n () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInterna <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11786	11883	
==>');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little whi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11844	11941	
==>');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6655	6790	
==>enting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6655	6790	
==>enting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6655	6790	
==>enting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	312	407	
==>q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableN <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	312	407	
==>q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableN <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5306	5444	
==>),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(92 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5306	5444	
==>),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(92 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4859	4989	
==>mp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8565	8659	
==>I<The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by bu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8565	8659	
==>I<The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by bu <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19800	19903	
==>aram to a higher order function
my $app_id_to_str = comb(
	fun => $app_to_str,
	param => $id,
);

# we c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	394	493	
==>afe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slic <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	394	493	
==>afe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slic <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	394	493	
==>afe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slic <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	203	296	
==>piler::RegexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6646	6749	
==>) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6646	6749	
==>) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6646	6749	
==>) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18199	18296	
==>header is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (UR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18199	18296	
==>header is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (UR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4085	4259	
==>sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4085	4259	
==>sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell') <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4085	4259	
==>sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell') <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1360	1463	
==>'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1360	1463	
==>'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3280	3381	
==>= @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1130	1231	
==>= @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5434	5527	
==>ourse, this feature is not available
when linking to a standalone JavaScript file.

Recommende <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5434	5527	
==>ourse, this feature is not available
when linking to a standalone JavaScript file.

Recommende <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5434	5527	
==>ourse, this feature is not available
when linking to a standalone JavaScript file.

Recommende <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3331	3445	
==>rp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, ac <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3331	3445	
==>rp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, ac <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	828	942	
==>FILES => join(" ", grep length, $clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25606	25704	
==>h is the same as the invocant Relation but that some of its attributes
are renamed.  The argument C <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30158	30256	
==>h is the same as the invocant Relation but that some of its attributes
are renamed.  The argument C <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7286	7408	
==>pilation bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7928	8043	
==>ss_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7928	8043	
==>ss_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7928	8043	
==>ss_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TOD <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	14350	14457	
==>$.fun,
		$.param,
	);

	# first of all the type of the thing we're appling must be a function
	die "Can't ap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9860	10077	
==>t;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9860	10077	
==>t;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9860	10077	
==>t;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for ( <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1147	1298	
==>$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $vers <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1026	1177	
==>$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $vers <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4192	4301	
==>0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method co <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4192	4301	
==>0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	996	1091	
==>return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	996	1091	
==>return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	996	1091	
==>return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	200	310	
==>s Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	200	310	
==>s Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1439	1527	
==>ing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1439	1527	
==>ing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1439	1527	
==>ing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	861	957	
==>est.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	861	957	
==>est.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	861	957	
==>est.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18203	18295	
==>tion describes the rather complex algorithm that
Module::Compile uses.

First, the source mod <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18203	18295	
==>tion describes the rather complex algorithm that
Module::Compile uses.

First, the source mod <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3175	3295	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6300	6420	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3175	3295	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $me <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6300	6420	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $me <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4235	4337	
==>reduced to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in t <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3622	3716	
==>vide functionality
while Perl 6 was still being developed.

This module is primarily for readin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	27	121	
==>equire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math:: <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3622	3716	
==>vide functionality
while Perl 6 was still being developed.

This module is primarily for readin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	27	121	
==>equire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	27	121	
==>equire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19373	19463	
==>uthentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19373	19463	
==>uthentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36425	36529	
==>d: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36425	36529	
==>d: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36425	36529	
==>d: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2834	2933	
==>, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pug <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2731	2826	
==>, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pug <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1917	2140	
==>rn },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1917	2140	
==>rn },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7080	7182	
==>les' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7080	7182	
==>les' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaq <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7080	7182	
==>les' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5241	5410	
==>d in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5241	5410	
==>d in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5241	5410	
==>d in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            r <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16270	16363	
==>contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16270	16363	
==>contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	303	536	
==>s.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                whe <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	303	536	
==>s.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1314	1406	
==>OUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1314	1406	
==>OUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1314	1406	
==>OUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5944	6048	
==>d $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5932	6036	
==>d $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4568	4659	
==>->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4568	4659	
==>->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4568	4659	
==>->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6492	6669	
==>pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6492	6669	
==>pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sli <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6492	6669	
==>pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sli <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	329	466	
==>ater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	329	466	
==>ater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2477	2582	
==>> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2477	2582	
==>> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2108	2200	
==>n (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2108	2200	
==>n (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2108	2200	
==>n (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16203	16317	
==>ge"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .loc <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2383	2478	
==>($self->[2]->exists($name) == $bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4240	4350	
==>(@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4240	4350	
==>(@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4240	4350	
==>(@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15062	15157	
==>/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15062	15157	
==>/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	299	401	
==>ROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	299	401	
==>ROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	299	401	
==>ROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBL <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1611	1705	
==>);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :nega <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1669	1763	
==>);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :nega <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32380	32475	
==>hey may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 T <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32380	32475	
==>hey may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 T <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7164	7289	
==>"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => ch <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7164	7289	
==>"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8697	8817	
==>a( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8697	8817	
==>a( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8697	8817	
==>a( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: ins <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4611	4736	
==>rac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4611	4736	
==>rac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide" <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23485	23580	
==>ble rather than mutable, this property and/or
same-named accessor method can be used to see if a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28037	28132	
==>ble rather than mutable, this property and/or
same-named accessor method can be used to see if a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26841	26936	
==>ble rather than mutable, this property and/or
same-named accessor method can be used to see if a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3544	3655	
==>=> $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => % <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3544	3655	
==>=> $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => % <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8686	8810	
==>ic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to con <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8686	8810	
==>ic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to con <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2177	2271	
==>ss.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2177	2271	
==>ss.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2177	2271	
==>ss.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SEL <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4355	4484	
==>_a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4355	4484	
==>_a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4355	4484	
==>_a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8485	8596	
==>ect>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8485	8596	
==>ect>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6292	6405	
==>_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6280	6393	
==>_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	323	425	
==>E to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	323	425	
==>E to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	323	425	
==>E to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FE <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9908	10058	
==>> sub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S->object(eol => eol => '$$');
  });


  ### '@'


  ### '%'


  ### '^'

  $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8452	8590	
==>hift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8452	8590	
==>hift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8452	8590	
==>hift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
5	/Users/nnunley/pugs/util/config_h.pl	95	222	
==>);

=pod

=head1 DOCUMENTATION

This file seems to determine some configuration.

  util/config_h.pl GHC BASEDIR

  GHC     - Lo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	135	386	
==>);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	135	386	
==>);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3811	3911	
==>lasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3811	3911	
==>lasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3811	3911	
==>lasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	858	963	
==>turn $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @it <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	858	963	
==>turn $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16877	16973	
==>_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16877	16973	
==>_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:supercl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16877	16973	
==>_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:supercl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	708	852	
==>ocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!ur <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	708	852	
==>ocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!ur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16142	16234	
==>6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16142	16234	
==>6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16142	16234	
==>6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1695	1835	
==>e ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2024	2161	
==>e ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1637	1774	
==>e ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2024	2161	
==>e ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state-> <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	380	502	
==>{ our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s/\W//g;

    die "U <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	520	650	
==>2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	520	650	
==>2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	520	650	
==>2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3087	3169	
==>tersection( $self.complement_next, $self.complement_previous, $set.complement_next, <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3087	3169	
==>tersection( $self.complement_next, $self.complement_previous, $set.complement_next, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8577	8691	
==>het' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8565	8679	
==>het' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Ru <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20679	20781	
==>nted (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17100	17202	
==>nted (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22526	22620	
==>This library provides a partial implementation, in the form of several
roles, for a Relation da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12960	13071	
==>fined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12960	13071	
==>fined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12960	13071	
==>fined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2005	2106	
==>lf.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2005	2106	
==>lf.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	65	165	
==>r and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	65	165	
==>r and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	65	165	
==>r and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
us <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1256	1353	
==>iler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junct <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1256	1353	
==>iler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junct <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14545	14727	
==>,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14824	15006	
==>,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7627	7734	
==>s $? == 0;

    $self->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTA <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6587	6684	
==>inted on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6587	6684	
==>inted on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3147	3264	
==>= 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3147	3264	
==>= 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1120	1219	
==>2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1120	1219	
==>2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1120	1219	
==>2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4883	5026	
==>less ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4883	5026	
==>less ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11622	11716	
==>is Role meta-model , any Class instances, themselves does Role since they
are just instances of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11622	11716	
==>is Role meta-model , any Class instances, themselves does Role since they
are just instances of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11622	11716	
==>is Role meta-model , any Class instances, themselves does Role since they
are just instances of <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5409	5581	
==>y
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is pas <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5873	6045	
==>y
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is pas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7491	7592	
==>em;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7491	7592	
==>em;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7491	7592	
==>em;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TC <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	146	242	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	146	242	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	146	242	
==>s rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11962	12055	
==>set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11962	12055	
==>set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21634	21807	
==>::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21634	21807	
==>::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21634	21807	
==>::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16367	16466	
==>t. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16367	16466	
==>t. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, a <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1298	1397	
==>d_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18798	18890	
==>econds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17841	17933	
==>econds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18798	18890	
==>econds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17841	17933	
==>econds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4401	4564	
==>Token;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4401	4564	
==>Token;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4401	4564	
==>Token;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10108	10231	
==>$.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10108	10231	
==>$.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_a <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3187	3449	
==>t) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            int <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3187	3449	
==>t) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            int <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6036	6141	
==>$ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6036	6141	
==>$ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2010	2103	
==>a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2010	2103	
==>a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2010	2103	
==>a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3206	3298	
==>much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3093	3182	
==>much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	33	147	
==>y $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log "test1";
beispiel;
log "t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8939	9049	
==>n') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8939	9049	
==>n') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	878	980	
==>nboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	878	980	
==>nboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	878	980	
==>nboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - ret <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	717	807	
==>.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Ut <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	717	807	
==>.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Ut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3889	4012	
==>. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3889	4012	
==>. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1019	1128	
==>cher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1019	1128	
==>cher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1019	1128	
==>cher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	7	108	
==>say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	7	108	
==>say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	7	108	
==>say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16743	16838	
==>d write a self-contained application in
Rosetta D and compile that into its own executable, in p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16743	16838	
==>d write a self-contained application in
Rosetta D and compile that into its own executable, in p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5115	5237	
==>f->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5115	5237	
==>f->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5115	5237	
==>f->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7640	7738	
==>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7640	7738	
==>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	400	514	
==>class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEB <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	400	514	
==>class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEB <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	400	514	
==>class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEB <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4452	4531	
==>erl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4452	4531	
==>erl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10562	10721	
==>args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6903	7062	
==>args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7752	7911	
==>args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1174	1271	
==>ort {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1174	1271	
==>ort {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6421	6584	
==>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6421	6584	
==>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6421	6584	
==>cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21862	21960	
==>lid
for a Relation to have zero attributes, though such a Relation can have no
more than a single t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26414	26512	
==>lid
for a Relation to have zero attributes, though such a Relation can have no
more than a single t <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2082	2252	
==>signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	341	449	
==>H>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifie <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	832	940	
==>H>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifie <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	341	449	
==>H>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifie <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	832	940	
==>H>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifie <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	753	880	
==>ds => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        },
        'DEST <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	858	980	
==>tributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4336	4458	
==>tributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3230	3352	
==>tributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tu <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	28365	28458	
==>ts.  Setting C<$Test::Harness::verbose> will override this,
or you can use the C<-v> switch in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12771	12888	
==>my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12771	12888	
==>my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12771	12888	
==>my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	274	382	
==>func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$coun <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	274	382	
==>func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$coun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3302	3421	
==>_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3302	3421	
==>_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3302	3421	
==>_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4398	4507	
==>ement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4398	4507	
==>ement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4432	4526	
==>. $Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_list <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6334	6428	
==>. $Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_list <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4989	5098	
==>\"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4989	5098	
==>\"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $it <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4989	5098	
==>\"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $it <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	948	1046	
==>ub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str i <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	948	1046	
==>ub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3420	3521	
==>[List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3420	3521	
==>[List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3420	3521	
==>[List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - s <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	270	369	
==>losures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	270	369	
==>losures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3599	3725	
==>e doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4916	5042	
==>e doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3599	3725	
==>e doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4904	5030	
==>e doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4260	4369	
==>tion( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7632	7767	
==>} ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7632	7767	
==>} ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2791	2891	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.H <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2791	2891	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.H <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2791	2891	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.H <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16858	16976	
==>Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16858	16976	
==>Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16858	16976	
==>Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3480	3591	
==>kage Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3697	3808	
==>kage Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	36	135	
==>tion
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	36	135	
==>tion
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9265	9379	
==>o | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10742	10856	
==>o | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3601	3712	
==>b canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this w <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3601	3712	
==>b canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this w <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2926	3036	
==>b canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2926	3036	
==>b canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22929	23032	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22929	23032	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22929	23032	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15337	15435	
==>de_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
w <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15337	15435	
==>de_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
w <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6099	6226	
==>ns {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        retur <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3776	3902	
==>ns {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7923	8035	
==>2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7923	8035	
==>2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].ST <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7923	8035	
==>2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].ST <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7892	8003	
==>XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7904	8015	
==>XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4149	4257	
==>pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4149	4257	
==>pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4149	4257	
==>pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5634	5738	
==>Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5634	5738	
==>Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5634	5738	
==>Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	627	719	
==>information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 enc <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	627	719	
==>information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 enc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5592	5721	
==>match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

# ------- higher-order ruleops

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28472	28590	
==>b init {
    my $self = shift;
    $self->SUPER::init();

    $self->add_handler('&' => sub {
      # $S will be the Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4406	4513	
==>ethod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4406	4513	
==>ethod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4406	4513	
==>ethod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5877	6037	
==>r( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5889	6049	
==>r( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15920	16035	
==>0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15920	16035	
==>0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15920	16035	
==>0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4203	4304	
==>lement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4203	4304	
==>lement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10547	10707	
==>: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6888	7048	
==>: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7737	7897	
==>: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6889	7013	
==>nally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6889	7013	
==>nally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7346	7515	
==>$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7346	7515	
==>$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7346	7515	
==>$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4779	4910	
==>return 'package ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bar <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12176	12296	
==>p.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return unless $self->{_is_vms};

    if (defined $self->{_o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1662	1784	
==>> 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1662	1784	
==>> 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13626	13744	
==>in.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17103	17221	
==>in.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16465	16583	
==>in.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1332	1456	
==>te_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1332	1456	
==>te_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1332	1456	
==>te_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3080	3178	
==>rns the value of the parameter named C<$name>.  If called in List context,
it will return a list of <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3080	3178	
==>rns the value of the parameter named C<$name>.  If called in List context,
it will return a list of <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2817	2926	
==>Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, ' <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2817	2926	
==>Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2897	3006	
==>Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, ' <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1256	1346	
==>hese methods are disabled: complement(), difference($set)

  ---------------- end Construct <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1256	1346	
==>hese methods are disabled: complement(), difference($set)

  ---------------- end Construct <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5817	5921	
==>d map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        hea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9294	9398	
==>d map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10185	10286	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10185	10286	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10185	10286	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	663	770	
==>tching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        wa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	630	737	
==>tching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2626	2727	
==>my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STem <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2626	2727	
==>my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STem <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2626	2727	
==>my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1558	1666	
==>ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1558	1666	
==>ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1558	1666	
==>ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)= <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	815	910	
==>d1 DESCRIPTION

This module provides information about the server your CGI is running on. It als <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	815	910	
==>d1 DESCRIPTION

This module provides information about the server your CGI is running on. It als <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7341	7549	
==>: 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7341	7549	
==>: 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7341	7549	
==>: 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2670	2795	
==>ESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2887	3012	
==>ESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1127	1224	
==>le multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1127	1224	
==>le multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1127	1224	
==>le multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --li <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1166	1256	
==>l::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1166	1256	
==>l::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	996	1108	
==>an 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_su <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	996	1108	
==>an 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4817	4928	
==>gle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4817	4928	
==>gle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4817	4928	
==>gle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $s <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13240	13409	
==>y @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($str <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4031	4189	
==>>get('&dispatcher')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3417	3566	
==>y @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3417	3566	
==>y @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3417	3566	
==>y @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($str <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3392	3622	
==>int("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3392	3622	
==>int("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10120	10228	
==>ing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10120	10228	
==>ing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10120	10228	
==>ing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff ) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2763	2887	
==>l( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._ge <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2763	2887	
==>l( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._ge <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3557	3677	
==>l( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._ge <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3557	3677	
==>l( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._ge <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17622	17738	
==>").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	895	1044	
==>set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	895	1044	
==>set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	895	1044	
==>set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($t <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	524	640	
==>ethod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	524	640	
==>ethod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4707	4876	
==>ed = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } els <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5171	5340	
==>ed = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } els <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1262	1365	
==>s=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1262	1365	
==>s=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1262	1365	
==>s=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3871	3985	
==>e;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3871	3985	
==>e;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3871	3985	
==>e;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1813	1966	
==>));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool)
        ));
        $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10633	10776	
==>thod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10633	10776	
==>thod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10633	10776	
==>thod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbox <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6801	6909	
==>> sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10226	10336	
==>ion" (true/false)
    from  - string pointer for start of this match
    to    - string pointer for next matc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22104	22196	
==>ble for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (v <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20985	21077	
==>ble for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (v <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22104	22196	
==>ble for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (v <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20985	21077	
==>ble for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (v <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14820	14951	
==>n->{op1}{op} eq '~' ) {
        return ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _e <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8886	8979	
==>IGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3815	3908	
==>IGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8886	8979	
==>IGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3815	3908	
==>IGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8706	8798	
==>on of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTH <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8706	8798	
==>on of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2450	2560	
==>n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2450	2560	
==>n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2450	2560	
==>n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k} <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1412	1515	
==>superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1412	1515	
==>superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2502	2645	
==>al { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2502	2645	
==>al { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2502	2645	
==>al { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3041	3133	
==>Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

ou <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3041	3133	
==>Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

ou <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7702	7819	
==>23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no p <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7702	7819	
==>23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28812	28907	
==>bute names, or duplicate any other value set members.  This
method supports having the new attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33364	33459	
==>bute names, or duplicate any other value set members.  This
method supports having the new attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32501	32596	
==>bute names, or duplicate any other value set members.  This
method supports having the new attri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4374	4471	
==>k "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4374	4471	
==>k "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4964	5061	
==>k "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19764	19860	
==>.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D howev <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19764	19860	
==>.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D howev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	911	1009	
==>s {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	911	1009	
==>s {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	911	1009	
==>s {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FET <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25776	25872	
==>ser.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message V <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25776	25872	
==>ser.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message V <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21746	21845	
==>e with a new user message in
one of their own resource files.  At some appropriate place, usually in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21746	21845	
==>e with a new user message in
one of their own resource files.  At some appropriate place, usually in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19982	20073	
==>xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19982	20073	
==>xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19982	20073	
==>xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_t <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	8456	8596	
==>$results{details}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # This addi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21079	21174	
==>there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19987	20082	
==>there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21079	21174	
==>there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19987	20082	
==>there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3925	4024	
==>( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3925	4024	
==>( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6258	6346	
==>tubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6258	6346	
==>tubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6258	6346	
==>tubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11819	11935	
==>cess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11819	11935	
==>cess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4980	5080	
==>any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has p <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4980	5080	
==>any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6504	6604	
==>any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has p <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5180	5269	
==>delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5180	5269	
==>delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31128	31275	
==>= $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31128	31275	
==>= $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31128	31275	
==>= $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Per <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10723	10821	
==>ass $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(S <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10723	10821	
==>ass $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1505	1663	
==>$_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1505	1663	
==>$_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2637	2746	
==>? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2637	2746	
==>? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2637	2746	
==>? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(unde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12417	12539	
==>,
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12417	12539	
==>,
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12417	12539	
==>,
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7764	7882	
==>>{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7502	7613	
==>>{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18001	18098	
==>ck

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4075	4172	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = arg <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18001	18098	
==>ck

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4075	4172	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4075	4172	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = arg <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	101	219	
==>> 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7262	7364	
==>the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7262	7364	
==>the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3385	3478	
==>t
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3385	3478	
==>t
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HT <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1425	1552	
==>elf: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1425	1552	
==>elf: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6654	6755	
==>uperclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6654	6755	
==>uperclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6654	6755	
==>uperclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ins <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36939	37055	
==>( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36939	37055	
==>( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36939	37055	
==>( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $po <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2643	2739	
==>base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
ho <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2643	2739	
==>base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
ho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	917	1022	
==>ses here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	917	1022	
==>ses here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	917	1022	
==>ses here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5143	5239	
==>following functions are provided (and exported) by this module:

=over 3

=item get($url)

The ge <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5143	5239	
==>following functions are provided (and exported) by this module:

=over 3

=item get($url)

The ge <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1361	1495	
==>splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1361	1495	
==>splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16487	16585	
==>.};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16487	16585	
==>.};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16487	16585	
==>.};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11486	11648	
==>tch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7768	7930	
==>tch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8602	8764	
==>tch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21753	21852	
==>a;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21753	21852	
==>a;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21753	21852	
==>a;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35635	35727	
==>n of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-metho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40185	40277	
==>n of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3001	3110	
==>gth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3001	3110	
==>gth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3001	3110	
==>gth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8481	8575	
==>rform your own security analysis before using it in any 
sensitive application.>

B<I<The autho <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8481	8575	
==>rform your own security analysis before using it in any 
sensitive application.>

B<I<The autho <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2987	3092	
==>e = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsecti <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2987	3092	
==>e = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsecti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12021	12112	
==>als::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Inte <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12021	12112	
==>als::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Inte <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12021	12112	
==>als::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Inte <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1155	1273	
==>S\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCod <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1508	1626	
==>eady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t m <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1155	1273	
==>S\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1508	1626	
==>eady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1508	1626	
==>eady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t m <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9928	10037	
==>n IFTHEN
    if (@$st and @{ $st->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][- <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2788	2885	
==>s Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Cont <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2945	3042	
==>s Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Cont <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2788	2885	
==>s Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Cont <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2945	3042	
==>s Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Cont <==
5	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	925	1047	
==>y scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1493	1610	
==>rt {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA M <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1493	1610	
==>rt {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA M <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3481	3582	
==>name> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trai <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3481	3582	
==>name> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trai <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4839	4954	
==>r, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4839	4954	
==>r, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3114	3203	
==>egular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3114	3203	
==>egular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3114	3203	
==>egular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9293	9454	
==>s
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wan <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10770	10931	
==>s
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	983	1094	
==>de $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	983	1094	
==>de $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub stateme <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	983	1094	
==>de $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub stateme <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8757	8912	
==>.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set- <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8757	8912	
==>.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set- <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	149	264	
==>et;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	149	264	
==>et;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8346	8454	
==>rgl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pL <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14248	14365	
==>eave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dy <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1728	1845	
==>eave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8836	8931	
==>P6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8836	8931	
==>P6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8836	8931	
==>P6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ( <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6015	6122	
==>revious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

met <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6015	6122	
==>revious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

met <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2403	2505	
==>)[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the v <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2403	2505	
==>)[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the v <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17420	17505	
==>,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(qu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15104	15243	
==>$self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15104	15243	
==>$self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15104	15243	
==>$self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15908	16005	
==>ral books and papers and taught classes on the subject over the last
35+ years, along with Codd hi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15908	16005	
==>ral books and papers and taught classes on the subject over the last
35+ years, along with Codd hi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3580	3683	
==>.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $sel <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3580	3683	
==>.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6423	6521	
==>_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6423	6521	
==>_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6423	6521	
==>_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3650	3754	
==>"parse" if $level == $#{$self->{levels}};
        $s = $s . "    *$equal = Pugs::Compiler::Rule->compile( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3645	3748	
==>);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3645	3748	
==>);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4519	4621	
==>);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4519	4621	
==>);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix: <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	399	504	
==>am $other) {
    ...
}

method &infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe something like <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23862	23961	
==>VMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22635	22734	
==>VMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23862	23961	
==>VMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22635	22734	
==>VMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10172	10313	
==>t \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "matc <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6513	6654	
==>t \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7362	7503	
==>t \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "matc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1605	1699	
==>%!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pair <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1605	1699	
==>%!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pair <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1930	2076	
==>[ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1930	2076	
==>[ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	601	700	
==>ished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	601	700	
==>ished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	601	700	
==>ished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	691	789	
==>objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	691	789	
==>objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Has <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	691	789	
==>objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Has <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12095	12191	
==>odo, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not y <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12153	12249	
==>odo, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not y <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2006	2131	
==>noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::ca <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8741	8848	
==>work
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8741	8848	
==>work
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	248	338	
==>ius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-le <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	248	338	
==>ius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-le <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5553	5819	
==>ier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5553	5819	
==>ier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4458	4561	
==>0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0.. <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4458	4561	
==>0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3347	3436	
==>lass is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4041	4130	
==>lass is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5249	5338	
==>lass is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6659	6777	
==>ion) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6659	6777	
==>ion) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6659	6777	
==>ion) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($ve <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8785	8884	
==>e_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8785	8884	
==>e_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21716	21962	
==>$_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21716	21962	
==>$_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21716	21962	
==>$_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18614	18721	
==>} of whatever web page
     contains the link that the user followed to the current
     page.  Most browser <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18614	18721	
==>} of whatever web page
     contains the link that the user followed to the current
     page.  Most browser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7920	8052	
==>-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7920	8052	
==>-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7920	8052	
==>-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => su <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2451	2560	
==>icies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&A <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1774	1871	
==>me - eq: $equivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %tok <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24315	24495	
==>urn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24315	24495	
==>urn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24315	24495	
==>urn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	451	586	
==>p 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<coun <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	451	586	
==>p 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<coun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	770	880	
==>{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	770	880	
==>{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	770	880	
==>{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10958	11052	
==>eld exists C<undef> will be returned.

A multi-valued field will be returned as separate values <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10958	11052	
==>eld exists C<undef> will be returned.

A multi-valued field will be returned as separate values <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	241	360	
==>keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	241	360	
==>keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	241	360	
==>keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1303	1404	
==>link $fn or die "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6558	6644	
==>ss does Role

## ---------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20142	20238	
==>d will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as aut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	465	561	
==>okenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20142	20238	
==>d will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as aut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	465	561	
==>okenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	465	561	
==>okenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8350	8586	
==>ngify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8350	8586	
==>ngify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8350	8586	
==>ngify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15564	15675	
==>= shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21735	21846	
==>= shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2552	2649	
==>item conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2552	2649	
==>item conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5342	5438	
==>, the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5342	5438	
==>, the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5342	5438	
==>, the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4716	4820	
==>y "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @li <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4716	4820	
==>y "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	303	406	
==>s
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	303	406	
==>s
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	303	406	
==>s
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16988	17093	
==>ment is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16988	17093	
==>ment is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4857	4956	
==>Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4857	4956	
==>Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4857	4956	
==>Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4045	4146	
==>sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4045	4146	
==>sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4045	4146	
==>sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	508	603	
==>tor {
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL::require::ERROR;
	$ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7574	7667	
==>symbol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods))) exists ($label))) <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7017	7134	
==>me"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7017	7134	
==>me"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	206	302	
==>r Perl6's CPAN, also known as sixpan.

Please refer the documentation of the other Modules in the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20405	20499	
==>cted.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logg <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20405	20499	
==>cted.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8450	8687	
==>ems ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8450	8687	
==>ems ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8450	8687	
==>ems ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	538	636	
==>cters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	538	636	
==>cters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14313	14489	
==>ion( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14592	14768	
==>ion( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4698	4797	
==>)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4698	4797	
==>)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4698	4797	
==>)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8601	8772	
==>@a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8601	8772	
==>@a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8601	8772	
==>@a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19011	19151	
==>,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19290	19430	
==>,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5919	6053	
==>954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5919	6053	
==>954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	134	226	
==>imitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, an <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	134	226	
==>imitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, an <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	134	226	
==>imitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7411	7571	
==>rn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7411	7571	
==>rn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7411	7571	
==>rn Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8483	8576	
==>TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeSafe::Type::Bot <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2298	2385	
==>element => $() } }
RULE
*{'assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RU <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4374	4477	
==>bject(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1500	1603	
==>bject(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3900	3999	
==>ollowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3900	3999	
==>ollowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs - <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3900	3999	
==>ollowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs - <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1016	1161	
==>ew(:node<Hash>).add_children(
                                Tree.new(:node<Hash::Const>),
                                Tree.new(:node<Hash::E <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23792	23888	
==>is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic repl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22565	22661	
==>is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic repl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23792	23888	
==>is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic repl <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22565	22661	
==>is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic repl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	226	365	
==>1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	226	365	
==>1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	226	365	
==>1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28268	28390	
==>get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28547	28669	
==>get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1249	1344	
==>t
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which d <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1249	1344	
==>t
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13545	13703	
==>$stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13545	13703	
==>$stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13545	13703	
==>$stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fin <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2430	2588	
==>$stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1590	1743	
==>3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do { <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16148	16322	
==>uleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16427	16601	
==>uleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statement <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10481	10615	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10760	10894	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statement <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23479	23572	
==>_;
    '(try { '.$code.' } catch Perl6::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10055	10152	
==>Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10055	10152	
==>Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2454	2548	
==>e (" . $name->to_str->to_native . ") already exists";
    return $self->[2]->store($name, $nil: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38251	38344	
==>ional parameter $text (a string), and a Message Variables hash ref
in its positional parameter <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38251	38344	
==>ional parameter $text (a string), and a Message Variables hash ref
in its positional parameter <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1930	2081	
==>rmutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1930	2081	
==>rmutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	821	933	
==>.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	821	933	
==>.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	821	933	
==>.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18443	18562	
==>nto a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFA <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18443	18562	
==>nto a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFA <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5076	5174	
==>> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and retur <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5076	5174	
==>> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and retur <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26095	26190	
==>ng of this Relation::Example.  Each attribute name is a character
string.

=item C<$!body> - B<R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	152	252	
==>arnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	152	252	
==>arnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	152	252	
==>arnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	448	546	
==>ns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is exp <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	448	546	
==>ns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is exp <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5434	5542	
==>mes.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= & <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5434	5542	
==>mes.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= & <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5136	5242	
==>g{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to inst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5136	5242	
==>g{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to inst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5136	5242	
==>g{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to inst <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1258	1374	
==>$submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1258	1374	
==>$submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2523	2614	
==>b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2523	2614	
==>b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2523	2614	
==>b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	603	719	
==>e);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	603	719	
==>e);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	603	719	
==>e);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1225	1313	
==>Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple:: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1225	1313	
==>Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4605	4716	
==>cument );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$pare <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4605	4716	
==>cument );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$pare <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16725	16822	
==>TI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16725	16822	
==>TI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16725	16822	
==>TI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4480	4606	
==>t;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4480	4606	
==>t;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4480	4606	
==>t;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2085	2191	
==>$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2073	2179	
==>$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, captur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9506	9616	
==>5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code faile <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9506	9616	
==>5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code faile <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9506	9616	
==>5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code faile <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22249	22345	
==>ds.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indicat <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22249	22345	
==>ds.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indicat <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	158	255	
==>et_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$li <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2564	2703	
==>fix';
        return circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4499	4615	
==>me}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4499	4615	
==>me}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4499	4615	
==>me}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PI <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8428	8523	
==>from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Cod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	791	912	
==>ode, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_l <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	791	912	
==>ode, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2613	2710	
==>var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2613	2710	
==>var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2613	2710	
==>var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2J <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19869	19990	
==>ld;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16290	16411	
==>ld;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2033	2132	
==>s_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2033	2132	
==>s_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2033	2132	
==>s_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13829	13944	
==>e instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13829	13944	
==>e instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3820	3918	
==>[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3820	3918	
==>[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3820	3918	
==>[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constan <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1930	2057	
==>>print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1908	2035	
==>>print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	543	642	
==>-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementatio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	543	642	
==>-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementatio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	543	642	
==>-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementatio <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4190	4318	
==>r @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4190	4318	
==>r @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	36	141	
==>e warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	36	141	
==>e warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	36	141	
==>e warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	36	135	
==>source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	36	135	
==>source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	36	135	
==>source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all g <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	36	135	
==>source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all g <==
5	/Users/nnunley/pugs/util/claim_drift.pl	435	531	
==>r die "Can't determine file_sep";

GetOptions \our %Conf, qw(--verbose|v --no|n);

if (! -d "..${ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1117	1292	
==>FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1117	1292	
==>FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4475	4595	
==>> {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4475	4595	
==>> {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4475	4595	
==>> {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11906	12014	
==>}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12329	12437	
==>}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4549	4657	
==>}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4972	5080	
==>}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $n <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	506	607	
==>type},
		fixity => $params->{fixity} || "listy",
    );
}

sub type { [ map { Blondie::TypeSafe::Type: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	679	783	
==>s_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my b <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	679	783	
==>s_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2874	2969	
==>" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leav <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2874	2969	
==>" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leav <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2874	2969	
==>" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leav <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	397	490	
==>_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Star <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	397	490	
==>_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Star <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4418	4518	
==>self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4418	4518	
==>self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4418	4518	
==>self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	327	423	
==>mpare is incomplete
    * Constructors should emit error messages if there are unknown parameters <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	327	423	
==>mpare is incomplete
    * Constructors should emit error messages if there are unknown parameters <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	100	248	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	100	248	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	100	248	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6212	6328	
==>);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6200	6316	
==>);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	418	608	
==>:<?? !!>'),
                    Sym('$cond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	982	1079	
==>ashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1361	1458	
==>ashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	982	1079	
==>ashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1361	1458	
==>ashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1796	1898	
==>nstant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1796	1898	
==>nstant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1796	1898	
==>nstant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	747	842	
==>Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about t <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	747	842	
==>Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8862	8973	
==>ut I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8862	8973	
==>ut I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1646	1754	
==>>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1646	1754	
==>>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implem <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1646	1754	
==>>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implem <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8166	8308	
==>_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scal <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8166	8308	
==>_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scal <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2777	2893	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2777	2893	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SEL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2777	2893	
==>hey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SEL <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25099	25245	
==>n
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{len} }

  # acces <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1213	1344	
==>, join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1213	1344	
==>, join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	887	982	
==>t( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

su <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	887	982	
==>t( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6956	7174	
==>rams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6956	7174	
==>rams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6956	7174	
==>rams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no st <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5247	5373	
==>' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'T <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5247	5373	
==>' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'T <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2389	2518	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $? <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7483	7612	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2389	2518	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7483	7612	
==>'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $? <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	107	202	
==>, or of Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12503	12613	
==>{
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12503	12613	
==>{
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12503	12613	
==>{
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13224	13316	
==>>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13224	13316	
==>>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9917	10053	
==>skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1982	2108	
==>skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Bu <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1982	2108	
==>skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Bu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1370	1473	
==>ringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1370	1473	
==>ringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6091	6290	
==>w';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6091	6290	
==>w';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                di <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6091	6290	
==>w';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                di <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1403	1519	
==>PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1403	1519	
==>PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4697	4823	
==>ass($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4697	4823	
==>ass($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4697	4823	
==>ass($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1638	1754	
==>ext if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1638	1754	
==>ext if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	587	726	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return em <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	675	814	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return em <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	672	806	
==>elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return em <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5798	5890	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5798	5890	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17798	17950	
==>)
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $com <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21275	21427	
==>)
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $com <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20862	21014	
==>)
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $com <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1329	1429	
==>ith zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only i <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1329	1429	
==>ith zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1095	1212	
==>ate_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1095	1212	
==>ate_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1095	1212	
==>ate_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.ad <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5639	5736	
==>$cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5639	5736	
==>$cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2856	2977	
==>, $self);
    }

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	22752	22863	
==>pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"), <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30456	30548	
==>argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35007	35099	
==>argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34189	34281	
==>argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	751	847	
==>s no distinction between them.)  The C<:shift(N)> option can be used to 
select a different numbe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	751	847	
==>s no distinction between them.)  The C<:shift(N)> option can be used to 
select a different numbe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14212	14301	
==>te('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14212	14301	
==>te('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14212	14301	
==>te('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24291	24392	
==>dy> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28843	28944	
==>dy> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4346	4442	
==>})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4346	4442	
==>})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4346	4442	
==>})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2226	2321	
==>actorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< cons <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2226	2321	
==>actorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17461	17549	
==>Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17461	17549	
==>Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17461	17549	
==>Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	819	923	
==>set('$?SELF'    => $inv);
    $self->{env}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21743	21839	
==>item C<server>

The server the line was sent from. This is I<not> necessarily the server you
conn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20624	20720	
==>item C<server>

The server the line was sent from. This is I<not> necessarily the server you
conn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21743	21839	
==>item C<server>

The server the line was sent from. This is I<not> necessarily the server you
conn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20624	20720	
==>item C<server>

The server the line was sent from. This is I<not> necessarily the server you
conn <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	953	1137	
==>x,$string is rw,$pass){
    if $pass > 2 {
        chop $string;
        "$string and " ~  
        pick (
            "$x",
            "is $x",
            "$x, period",
            " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29125	29240	
==>arp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29125	29240	
==>arp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @item <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29125	29240	
==>arp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @item <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	693	791	
==>->FETCH('::Test')->FETCH('::TODO')->new(
                '$.description' => $params{'$.description' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3414	3503	
==>est::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object). <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3414	3503	
==>est::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object). <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5527	5633	
==>ent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5527	5633	
==>ent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6	107	
==>Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6	107	
==>Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6	107	
==>Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Per <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5507	5602	
==>like 'Content-Type') when you are accessing the web using this
function.  If you need that infor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5507	5602	
==>like 'Content-Type') when you are accessing the web using this
function.  If you need that infor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7382	7471	
==>itive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7382	7471	
==>itive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7382	7471	
==>itive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1231	1334	
==>eedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1231	1334	
==>eedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10902	10998	
==>method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10902	10998	
==>method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10902	10998	
==>method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2810	2932	
==>);
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2810	2932	
==>);
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2810	2932	
==>);
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5821	5928	
==>an = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.st <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5821	5928	
==>an = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5262	5429	
==>me ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $require <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5262	5429	
==>me ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $require <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5262	5429	
==>me ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $require <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16681	16800	
==>ueue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16681	16800	
==>ueue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7367	7501	
==>)                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

met <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7367	7501	
==>)                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

met <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2010	2145	
==>urn { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2374	2509	
==>urn { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1931	2062	
==>urn { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2283	2414	
==>urn { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8110	8236	
==>t? )
  {
      return $:singleton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  metho <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13884	13991	
==>relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17361	17468	
==>relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16741	16848	
==>relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11119	11211	
==>=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$loca <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11119	11211	
==>=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$loca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6293	6421	
==>"argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6293	6421	
==>"argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6293	6421	
==>"argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->c <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5738	5834	
==>elf->{instance} = shift;
	bless $self, "type::variable::instantiated";
}

sub splat {
	my $self = <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5622	5715	
==>sts(@test_files);

Runs all the given C<@test_files> (as C<runtests()>) but does it
quietly (n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15441	15599	
==>N || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15441	15599	
==>N || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15441	15599	
==>N || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispat <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	241	352	
==>ethod pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    r <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	241	352	
==>ethod pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1367	1561	
==>_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1367	1561	
==>_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1367	1561	
==>_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5095	5200	
==>e_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7763	7868	
==>e_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	149	246	
==>PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig tak <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	149	246	
==>PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig tak <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	149	246	
==>PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig tak <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21310	21395	
==>lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21310	21395	
==>lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8484	8624	
==>method::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8484	8624	
==>method::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8484	8624	
==>method::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1123	1228	
==>f STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOLD . RED, <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	572	676	
==>d($value) && $value->isa('type')))
            || confess "Keys must be strings, and values must be nativ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	260	367	
==>b match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->add_handler('atom' => sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2689	2792	
==>inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2689	2792	
==>inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2689	2792	
==>inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3078	3173	
==>ptions{params}) && $options{params}->isa('closure::params'))
        || confess "Bad params in s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12291	12429	
==>pec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12291	12429	
==>pec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->typ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12291	12429	
==>pec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->typ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10390	10506	
==>'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ exa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10390	10506	
==>'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ exa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	424	531	
==>v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	424	531	
==>v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | < <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3897	4000	
==>de::list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6913	7009	
==>rt_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you ar <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6913	7009	
==>rt_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7295	7394	
==>tive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7295	7394	
==>tive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7295	7394	
==>tive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9642	9737	
==>his class handles an infinite recurrence set, defined with closures. 

A recurrence set is defin <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9642	9737	
==>his class handles an infinite recurrence set, defined with closures. 

A recurrence set is defin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	112	222	
==>006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	109	212	
==>006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	103	206	
==>006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	109	212	
==>006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	103	206	
==>006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20002	20125	
==>up' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom > <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16423	16546	
==>up' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom > <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17708	17821	
==>pected : /$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($proto, @met <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13649	13747	
==>e language feature missing, or core bug that needs to
be sorted out before you can continue.

It is <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13707	13805	
==>e language feature missing, or core bug that needs to
be sorted out before you can continue.

It is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4348	4466	
==>turn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4348	4466	
==>turn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_p <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	98	203	
==>red hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert met <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2816	2907	
==>show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2816	2907	
==>show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6294	6415	
==>$self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6294	6415	
==>$self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6294	6415	
==>$self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6256	6365	
==>han\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6256	6365	
==>han\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1918	2031	
==>trict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1918	2031	
==>trict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1918	2031	
==>trict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26723	26820	
==>ll fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31275	31372	
==>ll fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1978	2093	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CL <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1978	2093	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18300	18392	
==>x:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7626	7718	
==>};
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1451	1543	
==>};
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18300	18392	
==>x:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18300	18392	
==>x:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2525	2656	
==>::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a nat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2525	2656	
==>::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a nat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2525	2656	
==>::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a nat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3542	3646	
==>it " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3542	3646	
==>it " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7565	7665	
==>st for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7565	7665	
==>st for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7565	7665	
==>st for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primi <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	464	555	
==>property, and adds nothing else.

More specialised processing instructions may sub-class thi <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	464	555	
==>property, and adds nothing else.

More specialised processing instructions may sub-class thi <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2673	2794	
==>espace
    Class       Perl 6 standard class namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern matchi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5494	5605	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implemen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5494	5605	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implemen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5494	5605	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implemen <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14729	14837	
==>: $@" ), return;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	636	734	
==>entation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	636	734	
==>entation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	636	734	
==>entation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean u <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	633	729	
==>ILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns D <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	633	729	
==>ILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3960	4147	
==>> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3960	4147	
==>> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3960	4147	
==>> {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7751	7848	
==>f the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store` <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7751	7848	
==>f the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store` <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28533	28769	
==>@start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28533	28769	
==>@start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # cor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28533	28769	
==>@start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # cor <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1564	1670	
==>lean_files {
    my $self  = shift;
    my $realclean = $self->makemaker_args->{realclean} ||= {};
    %$re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11977	12068	
==>od semidifference (Relation::Example $other!) returns Relation::Example {
    return $?SELF. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5998	6153	
==>const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $con <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5998	6153	
==>const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3345	3466	
==>nd_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3345	3466	
==>nd_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3345	3466	
==>nd_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        wa <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2390	2494	
==>ect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.ind <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2390	2494	
==>ect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.ind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16517	16617	
==>less $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16517	16617	
==>less $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16517	16617	
==>less $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9320	9456	
==>tringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9320	9456	
==>tringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9320	9456	
==>tringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2628	2724	
==>write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test librarie <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2628	2724	
==>write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test librarie <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	242	346	
==>ort {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		% <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	242	346	
==>ort {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5274	5459	
==>')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5274	5459	
==>')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5274	5459	
==>')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2702	2879	
==>art ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($den <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2702	2879	
==>art ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($den <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33994	34119	
==>::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33994	34119	
==>::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33994	34119	
==>::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        ret <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7307	7405	
==>where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, S <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7307	7405	
==>where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16563	16673	
==>1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entrie <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16563	16673	
==>1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entrie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8452	8541	
==>(@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8452	8541	
==>(@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8452	8541	
==>(@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBN <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2404	2577	
==>n $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2404	2577	
==>n $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	523	623	
==>buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pair <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	523	623	
==>buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pair <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	523	623	
==>buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pair <==
5	/Users/nnunley/pugs/util/package-osx.pl	3591	3688	
==>l/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man/man3/Perl6::API. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7275	7369	
==>@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7275	7369	
==>@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7275	7369	
==>@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	105	196	
==>"
package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basen <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4913	5032	
==>t to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4913	5032	
==>t to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1262	1370	
==>delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST par <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1262	1370	
==>delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST par <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24468	24550	
==>G),amat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat(C0, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4006	4144	
==>atches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4006	4144	
==>atches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10142	10240	
==>L::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10142	10240	
==>L::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10142	10240	
==>L::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25595	25695	
==>rted, if it is used
as an exception payload).  The key is intended to be read by a machine and
mapped <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25595	25695	
==>rted, if it is used
as an exception payload).  The key is intended to be read by a machine and
mapped <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12120	12212	
==>::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12120	12212	
==>::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12120	12212	
==>::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21927	22128	
==>::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22206	22407	
==>::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4235	4330	
==>_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4235	4330	
==>_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4235	4330	
==>_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""} <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6315	6575	
==>)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10826	10952	
==>plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10826	10952	
==>plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self. <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6196	6290	
==>e the implementation of most block and stream ciphers to a constructor, 
the cryptographic core <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6196	6290	
==>e the implementation of most block and stream ciphers to a constructor, 
the cryptographic core <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	100	215	
==>ND__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	98	205	
==>ND__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	92	199	
==>ND__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	98	205	
==>ND__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	92	199	
==>ND__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7296	7417	
==>::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descripti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7296	7417	
==>::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descripti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7296	7417	
==>::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descripti <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	27	123	
==>=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew wh <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	27	123	
==>=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew wh <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11505	11626	
==>domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11505	11626	
==>domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2232	2337	
==>6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2232	2337	
==>6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2232	2337	
==>6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef( <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	16834	17042	
==>ng,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backlink = HTML:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18305	18398	
==>e document from which the
requested resource address was obtained.

The "Free On-line Dictiona <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18305	18398	
==>e document from which the
requested resource address was obtained.

The "Free On-line Dictiona <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2976	3069	
==>glock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fgl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2868	2960	
==>glock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fgl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4248	4351	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3375	3478	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4248	4351	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3375	3478	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> ( <==
5	/Users/nnunley/pugs/util/build_pugs.pl	6044	6133	
==>-package network -package mtl -package template-haskell -package base -package pugs-fps -p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10490	10619	
==>ie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10490	10619	
==>ie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookie <==
5	/Users/nnunley/pugs/util/run-smoke.pl	3277	3406	
==>=~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7462	7570	
==>h operators, and return a new 

match operator.



A ruleop() function gets as argument a list:



### we don <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7209	7312	
==>h operators, and return a new 
match operator.

A ruleop() function gets as argument a list:

### we don <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12276	12376	
==>(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12276	12376	
==>(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12276	12376	
==>(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Cl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20809	20904	
==>DBMS natively, and be I<the> back-end which
I recommend above all others for production use.

Mo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20809	20904	
==>DBMS natively, and be I<the> back-end which
I recommend above all others for production use.

Mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	832	939	
==>equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	832	939	
==>equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	832	939	
==>equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]-> <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2316	2417	
==>se all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  R <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2316	2417	
==>se all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  R <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1814	1951	
==>ft;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $args = check( $tmpl, \%has <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6309	6406	
==>r $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8377	8474	
==>r $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6309	6406	
==>r $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8377	8474	
==>r $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4267	4366	
==>aram object).

Then the thunk for + will be reduced, with 1 and 10 in the parameter stack, the
dynam <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14664	14761	
==>s'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => m <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	246	343	
==>ge is much less.  The test passing was simply to
permit refactoring with confidence.

It uses Lang <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14664	14761	
==>s'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14664	14761	
==>s'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => m <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11073	11193	
==>method BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.cur <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11073	11193	
==>method BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14116	14206	
==>TI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14116	14206	
==>TI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14116	14206	
==>TI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6819	6963	
==>ere, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6819	6963	
==>ere, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9183	9313	
==>path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9183	9313	
==>path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('p <==
5	/Users/nnunley/pugs/util/build_pugs.pl	4874	4965	
==>if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5700	5852	
==>ttr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5700	5852	
==>ttr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5700	5852	
==>ttr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6930	7062	
==>) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6930	7062	
==>) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2778	2912	
==>_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2778	2912	
==>_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2778	2912	
==>_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # wh <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8060	8156	
==>operations on 
Span objects, that return lists of spans.

In this example, @span may contain zero <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8060	8156	
==>operations on 
Span objects, that return lists of spans.

In this example, @span may contain zero <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1213	1308	
==>d_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1213	1308	
==>d_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1213	1308	
==>d_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4285	4378	
==>.. $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6187	6280	
==>.. $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	150	253	
==>each use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	150	253	
==>each use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	150	253	
==>each use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless re <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2614	2705	
==>able via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list vi <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2614	2705	
==>able via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list vi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14238	14333	
==>om_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14238	14333	
==>om_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14238	14333	
==>om_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULT <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10049	10171	
==>EF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.def <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10049	10171	
==>EF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.def <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3869	3989	
==>CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3869	3989	
==>CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3869	3989	
==>CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31346	31620	
==>es' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => num->new(0) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9615	9780	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15159	15324	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9615	9780	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15153	15318	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3814	3927	
==>re object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3826	3939	
==>re object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2534	2642	
==>discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2534	2642	
==>discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2534	2642	
==>discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1497	1695	
==>y  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'm <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1497	1695	
==>y  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'm <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20365	20462	
==>And the ending node for stack-type
nodes has been abstracted to the ender() method of the node.

T <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3570	3666	
==>n using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still bei <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3570	3666	
==>n using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still bei <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11594	11783	
==>[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'ev <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7876	8065	
==>[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8710	8899	
==>[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'ev <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10540	10633	
==>Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10540	10633	
==>Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphe <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	992	1106	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1866	1980	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retu <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	992	1106	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retu <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1866	1980	
==>'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8307	8399	
==>lled by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&Foo::single <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2282	2389	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2282	2389	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2282	2389	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2857	2960	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value objec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2857	2960	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value objec <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10704	10883	
==>children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t { <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10704	10883	
==>children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17078	17162	
==>e_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17078	17162	
==>e_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17078	17162	
==>e_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	404	521	
==>r die "Could not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2885	2978	
==>ode) and $node->can("type")){
			return Blondie::TypeSafe::Annotation->new(
				type => $node- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2418	2542	
==>} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2418	2542	
==>} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $ne <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2418	2542	
==>} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $ne <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2988	3080	
==>{@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$co <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2988	3080	
==>{@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$co <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6860	6972	
==>span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6860	6972	
==>span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1504	1608	
==>e} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1504	1608	
==>e} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1713	1817	
==>e} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3370	3473	
==>everything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3251	3351	
==>everything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8504	8602	
==>$pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8504	8602	
==>$pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8504	8602	
==>$pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5460	5592	
==>ame },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11998	12119	
==>e Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11998	12119	
==>e Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11998	12119	
==>e Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5966	6084	
==>ame }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    lo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3557	3732	
==>fined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### bac <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4485	4656	
==>fined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### bac <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3446	3617	
==>fined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### bac <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4485	4656	
==>fined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### bac <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8932	9055	
==>le { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	750	907	
==>.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	750	907	
==>.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	750	907	
==>.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      }) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1184	1278	
==>urn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1184	1278	
==>urn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1523	1640	
==>Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavai <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1523	1640	
==>Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3002	3104	
==>}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3002	3104	
==>}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3002	3104	
==>}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	292	396	
==>xtkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	292	396	
==>xtkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contain <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	292	396	
==>xtkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contain <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9871	9969	
==>lue::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9871	9969	
==>lue::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14311	14431	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14311	14431	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14311	14431	
==>= @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->ad <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	209	309	
==>r returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export { <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	209	309	
==>r returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3594	3699	
==>ndef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3594	3699	
==>ndef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3594	3699	
==>ndef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4405	4499	
==>ut reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4252	4345	
==>ut reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6867	6990	
==>tle ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6867	6990	
==>tle ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1208	1313	
==>uired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1208	1313	
==>uired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1417	1522	
==>uired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1564	1886	
==></PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                wh <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1564	1886	
==></PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	517	622	
==>os?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	517	622	
==>os?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	517	622	
==>os?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	931	1041	
==>py},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	931	1041	
==>py},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1245	1353	
==>plementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1245	1353	
==>plementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1245	1353	
==>plementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1214	1341	
==>@rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1214	1341	
==>@rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8479	8604	
==>f x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8479	8604	
==>f x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8479	8604	
==>f x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $co <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1153	1254	
==>ludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $an <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1153	1254	
==>ludes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2728	2828	
==>lf->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2728	2828	
==>lf->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2728	2828	
==>lf->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	203	315	
==>->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16278	16390	
==>else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_subst <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20704	20816	
==>else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_subst <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	203	315	
==>->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	203	315	
==>->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	982	1084	
==>title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kid <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	982	1084	
==>title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kid <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	867	992	
==>var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	867	992	
==>var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	867	992	
==>var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalSco <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22615	22711	
==>ubject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27167	27263	
==>ubject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set o <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	429	530	
==>osetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STR <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	429	530	
==>osetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7363	7451	
==>resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7363	7451	
==>resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7363	7451	
==>resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1070	1170	
==>$) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1070	1170	
==>$) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1070	1170	
==>$) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Per <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2051	2143	
==>gs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2140	2232	
==>gs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2257	2366	
==>d Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2257	2366	
==>d Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2257	2366	
==>d Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	279	384	
==>r, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	261	363	
==>r, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6601	6710	
==>getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6601	6710	
==>getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6601	6710	
==>getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16708	16809	
==>to Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the resu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16708	16809	
==>to Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the resu <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	981	1094	
==>so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in o <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	981	1094	
==>so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6533	6645	
==>$to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1).. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6533	6645	
==>$to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1).. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6533	6645	
==>$to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1).. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4615	4750	
==>data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13040	13175	
==>data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15651	15786	
==>data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17139	17274	
==>data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21822	21957	
==>data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2516	2627	
==>$_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_PO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2516	2627	
==>$_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_PO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2516	2627	
==>$_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_PO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38267	38372	
==>nd 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38267	38372	
==>nd 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38267	38372	
==>nd 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pus <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7663	7752	
==>>sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
pus <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1488	1577	
==>>sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
pus <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5251	5359	
==>}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $dir;

Returns all the files in a directory.  This i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8966	9061	
==>free software, and may be used, distributed and/or modified under 
the same terms as Perl itself <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3895	3990	
==>free software, and may be used, distributed and/or modified under 
the same terms as Perl itself <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8966	9061	
==>free software, and may be used, distributed and/or modified under 
the same terms as Perl itself <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3895	3990	
==>free software, and may be used, distributed and/or modified under 
the same terms as Perl itself <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7464	7643	
==>version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            ne <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7928	8107	
==>version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2701	2824	
==>next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2701	2824	
==>next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2701	2824	
==>next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	831	939	
==>ody must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = closure::sig <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11162	11268	
==>ype::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	588	677	
==>JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	588	677	
==>JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	588	677	
==>JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	494	596	
==>6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Could <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8761	8862	
==>6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8761	8862	
==>6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8761	8862	
==>6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Could <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3018	3126	
==>ingify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3018	3126	
==>ingify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3018	3126	
==>ingify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18058	18160	
==>d('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALKME <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41323	41425	
==>d('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALKME <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2692	2813	
==>t defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2692	2813	
==>t defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2692	2813	
==>t defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6784	6890	
==>nels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6784	6890	
==>nels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody w <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11564	11685	
==>sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15041	15162	
==>sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14376	14497	
==>sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The h <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13306	13401	
==>e in exactly the right input format for
Document.new(), by which you can create an identical Doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13306	13401	
==>e in exactly the right input format for
Document.new(), by which you can create an identical Doc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3886	3988	
==>'... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modul <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3886	3988	
==>'... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5410	5512	
==>'... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modul <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1368	1468	
==>ub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::C <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1368	1468	
==>ub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::C <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4024	4155	
==>", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5345	5476	
==>", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4024	4155	
==>", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5333	5464	
==>", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $ <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	14457	14563	
==>pply non function type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $f-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13476	13610	
==>},
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13476	13610	
==>},
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13476	13610	
==>},
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        s <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	369	469	
==>tt = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	369	469	
==>tt = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13653	13746	
==>e when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13653	13746	
==>e when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13653	13746	
==>e when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($se <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17428	17519	
==>document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17428	17519	
==>document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4593	4697	
==>turn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4593	4697	
==>turn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4593	4697	
==>turn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::strin <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10264	10358	
==>r(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method enci <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10264	10358	
==>r(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method enci <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6432	6529	
==>nnot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6432	6529	
==>nnot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1277	1370	
==>ar %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1277	1370	
==>ar %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1277	1370	
==>ar %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	448	569	
==>etactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root/;
        p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5018	5136	
==>ss $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5018	5136	
==>ss $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5018	5136	
==>ss $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

met <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	20081	20175	
==>IL2JS::Internals::use_perl5_module_noimp := &PIL2JS::Internals::use_perl5_module_imp;


# In sr <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50394	50524	
==>'$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('identi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4274	4403	
==>}
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-ti <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5595	5724	
==>}
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-ti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4274	4403	
==>}
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-ti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5583	5712	
==>}
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4204	4319	
==>equired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4204	4319	
==>equired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4204	4319	
==>equired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1434	1531	
==>self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1434	1531	
==>self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2115	2274	
==>$to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2115	2274	
==>$to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?! <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2115	2274	
==>$to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?! <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	984	1071	
==>guage Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires La <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	984	1071	
==>guage Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires La <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	723	843	
==>"&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	723	843	
==>"&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	723	843	
==>"&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	418	528	
==>param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	418	528	
==>param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6958	7087	
==>-1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6958	7087	
==>-1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6958	7087	
==>-1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5027	5140	
==>r) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5027	5140	
==>r) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8975	9211	
==>ey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8975	9211	
==>ey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8975	9211	
==>ey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10855	10950	
==>$desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, B <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10913	11008	
==>$desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2908	3024	
==>b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2908	3024	
==>b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2908	3024	
==>b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays ar <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1275	1367	
==>The interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent mod <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1275	1367	
==>The interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent mod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3006	3149	
==>in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3146	3289	
==>in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2059	2154	
==>g{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2059	2154	
==>g{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
* <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2059	2154	
==>g{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
* <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8792	8912	
==>tant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8985	9105	
==>tant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1645	1750	
==>ude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1645	1750	
==>ude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->rea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1645	1750	
==>ude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->rea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10410	10569	
==>::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10410	10569	
==>::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10410	10569	
==>::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMet <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14580	14681	
==>er('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => pri <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8782	8883	
==>er('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => pri <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13873	13976	
==>l_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_save <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13873	13976	
==>l_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_save <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1478	1580	
==>nfinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1478	1580	
==>nfinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1478	1580	
==>nfinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >= <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31617	31714	
==>egardless of its
argument, in which case the new Relation has either all of the tuples of
the orig <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36167	36264	
==>egardless of its
argument, in which case the new Relation has either all of the tuples of
the orig <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1214	1307	
==>t $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1214	1307	
==>t $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1214	1307	
==>t $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	769	883	
==>en($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	769	883	
==>en($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	769	883	
==>en($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	711	812	
==>ction($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	711	812	
==>ction($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4167	4271	
==>il;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4167	4271	
==>il;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4167	4271	
==>il;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1676	1779	
==>$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi enc <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1676	1779	
==>$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi enc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	645	758	
==>as stopped by a { return } or a fail(),

           and it should not backtrack or whatever



Continuations are u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10513	10626	
==>as stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are u <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	618	728	
==>as stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are u <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20221	20314	
==>er was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>co <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20221	20314	
==>er was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>co <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	131	228	
==>) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($cla <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	131	228	
==>) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($cla <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1051	1164	
==>= @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1051	1164	
==>= @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	70	173	
==>where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	70	173	
==>where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	70	173	
==>where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here t <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	749	836	
==>return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variable <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	749	836	
==>return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variable <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2781	2878	
==>f => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2781	2878	
==>f => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2781	2878	
==>f => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3672	3767	
==>"enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the c <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3672	3767	
==>"enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2175	2308	
==>1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2175	2308	
==>1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2522	2655	
==>1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bin <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1739	1834	
==>lf->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nativ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2061	2156	
==>lf->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nativ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1804	1912	
==>ha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1864	1972	
==>ha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9261	9364	
==>=~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9261	9364	
==>=~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9261	9364	
==>=~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ / <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1871	1999	
==>undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1871	1999	
==>undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1871	1999	
==>undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5609	5712	
==>'line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parse <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5609	5712	
==>'line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2310	2449	
==>nce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2310	2449	
==>nce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2310	2449	
==>nce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::o <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1866	1966	
==>"\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  do <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1866	1966	
==>"\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  do <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	278	391	
==>\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	278	391	
==>\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    r <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	373	472	
==>eset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   retu <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	373	472	
==>eset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   retu <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18422	18513	
==>tExpression> <':'> <AssignmentExpression>
}
rule ConditionalExpressionNoIn :words {  # see 1 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4855	4986	
==>@head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4855	4986	
==>@head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1306	1425	
==>')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1306	1425	
==>')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1306	1425	
==>')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7222	7337	
==>ven message key from the
        # successfully loaded template module; on a function call
        # death, assume m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7222	7337	
==>ven message key from the
        # successfully loaded template module; on a function call
        # death, assume m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1563	1651	
==>g) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1563	1651	
==>g) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1563	1651	
==>g) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3723	3829	
==>pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3940	4046	
==>pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3031	3127	
==><EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_op <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3031	3127	
==><EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_op <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3031	3127	
==><EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10743	10958	
==>e $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {% <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10743	10958	
==>e $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {% <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6991	7147	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6991	7147	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6991	7147	
==>ed} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17355	17455	
==>glish the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17355	17455	
==>glish the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14279	14370	
==>@c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14279	14370	
==>@c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14279	14370	
==>@c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6628	6750	
==>thod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6628	6750	
==>thod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            | <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6628	6750	
==>thod(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            | <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	658	755	
==>~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	658	755	
==>~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	939	1076	
==>hile @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	939	1076	
==>hile @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2137	2240	
==>{
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2137	2240	
==>{
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2137	2240	
==>{
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely i <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17841	18038	
==>ms' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41109	41303	
==>ms' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4772	4887	
==>=> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increme <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4772	4887	
==>=> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increme <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4772	4887	
==>=> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increme <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2942	3086	
==>f $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    pr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1780	1917	
==>sses
        foreach my $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1252	1351	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1252	1351	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "inf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1252	1351	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "inf <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4570	4669	
==>=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4570	4669	
==>=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6767	6866	
==>=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11141	11248	
==>c_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11141	11248	
==>c_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, p <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2497	2601	
==>xpect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2497	2601	
==>xpect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2577	2681	
==>xpect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3644	3747	
==>head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3644	3747	
==>head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6078	6185	
==>e eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6078	6185	
==>e eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6078	6185	
==>e eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24256	24350	
==>ple languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24256	24350	
==>ple languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4601	4710	
==>ed;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the Fil <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4601	4710	
==>ed;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the Fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1120	1219	
==>-----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1120	1219	
==>-----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recen <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1120	1219	
==>-----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1687	1835	
==>->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "N <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1687	1835	
==>->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "N <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1687	1835	
==>->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "N <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21054	21154	
==>nly the last of these fields will be present in the header
after the call.  All values ought to be ke <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21054	21154	
==>nly the last of these fields will be present in the header
after the call.  All values ought to be ke <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4374	4521	
==>@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "O <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4374	4521	
==>@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13848	13941	
==>UB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13848	13941	
==>UB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13848	13941	
==>UB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s( <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9708	9858	
==>ues --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       rever <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	931	1057	
==>ues --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    rever <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40989	41086	
==>yref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40989	41086	
==>yref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cla <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40989	41086	
==>yref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cla <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3188	3315	
==>r::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3188	3315	
==>r::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	741	846	
==>PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	741	846	
==>PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	741	846	
==>PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0 <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12887	12980	
==>.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9663	9756	
==>.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12887	12980	
==>.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9663	9756	
==>.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5921	6012	
==>ethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'S <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5921	6012	
==>ethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'S <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2820	2911	
==>ethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	44	133	
==>::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->com <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	44	133	
==>::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->com <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21477	21622	
==>TROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44384	44529	
==>TROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9765	9886	
==>in;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9765	9886	
==>in;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9765	9886	
==>in;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1111	1226	
==>l,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1122	1237	
==>l,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1532	1639	
==>nwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1532	1639	
==>nwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1532	1639	
==>nwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	773	871	
==>e create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	773	871	
==>e create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	773	871	
==>e create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2760	2857	
==>hod>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2760	2857	
==>hod>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2434	2618	
==>() returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5911	6095	
==>() returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4841	5025	
==>() returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10053	10152	
==>html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10053	10152	
==>html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	858	972	
==>prefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	858	972	
==>prefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	858	972	
==>prefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8077	8167	
==>iable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1902	1992	
==>iable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1097	1194	
==>ck -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1097	1194	
==>ck -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1097	1194	
==>ck -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7042	7138	
==>the text of the header, that will be processed as a interpolated string (to allow for
any modifie <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7042	7138	
==>the text of the header, that will be processed as a interpolated string (to allow for
any modifie <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7384	7523	
==>undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7384	7523	
==>undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant & <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7384	7523	
==>undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant & <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19717	19812	
==>rogrammer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19717	19812	
==>rogrammer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2793	2894	
==>$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2793	2894	
==>$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	48	146	
==>arnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


u <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	53	150	
==>arnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

u <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	51	148	
==>arnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6136	6257	
==>] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n";
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6136	6257	
==>] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n";
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6136	6257	
==>] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n";
} <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	785	883	
==>tandard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server you <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	785	883	
==>tandard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server you <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21127	21306	
==>T A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21127	21306	
==>T A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $sc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21127	21306	
==>T A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $sc <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3349	3435	
==>\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3349	3435	
==>\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38989	39123	
==>:List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38989	39123	
==>:List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38989	39123	
==>:List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2468	2577	
==>et_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, . <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2468	2577	
==>et_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, . <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12157	12256	
==>ray ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
h <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16737	16836	
==>ray ref) is set, then each element in it is used to
initialize a new Node object (plus an optional h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12157	12256	
==>ray ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16737	16836	
==>ray ref) is set, then each element in it is used to
initialize a new Node object (plus an optional h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	992	1086	
==>less defined $_[0];
    my $bool = $_[0] =~ / ^([\$|\@|\%]\*(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ / <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6181	6281	
==>de_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6181	6281	
==>de_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , ' <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29047	29140	
==>eneric relational operator that returns a new Relation::Example
which is the same as the invoc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31895	31988	
==>eneric relational operator that returns a new Relation::Example
which is the same as the invoc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32942	33035	
==>eneric relational operator that returns a new Relation::Example
which is the same as the invoc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2409	2515	
==>$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2409	2515	
==>$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2409	2515	
==>$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1345	1447	
==>r C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Comp <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1345	1447	
==>r C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Comp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14112	14213	
==>mehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14112	14213	
==>mehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1465	1598	
==>ailed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Ba <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1465	1598	
==>ailed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4208	4301	
==>cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Interna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4208	4301	
==>cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Interna <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4208	4301	
==>cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Interna <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14274	14370	
==>sing an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14274	14370	
==>sing an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14347	14438	
==>able} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::arr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14347	14438	
==>able} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::arr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14347	14438	
==>able} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4831	5015	
==>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4831	5015	
==>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4831	5015	
==>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10033	10130	
==>ut, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
vali <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10033	10130	
==>ut, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
vali <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3552	3656	
==>ift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3552	3656	
==>ift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3552	3656	
==>ift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	242	339	
==>d = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FOR <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	300	397	
==>d = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FOR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18565	18772	
==>&& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18565	18772	
==>&& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18565	18772	
==>&& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7848	8023	
==>th}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $po <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7848	8023	
==>th}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $po <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	259	382	
==>value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.im <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	259	382	
==>value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.im <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9808	9920	
==>=~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9808	9920	
==>=~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9808	9920	
==>=~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8665	8787	
==>erms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8858	8980	
==>erms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2805	2899	
==>rs_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2805	2899	
==>rs_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2805	2899	
==>rs_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOn <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7349	7459	
==>urrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, rever <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7349	7459	
==>urrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, rever <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7349	7459	
==>urrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, rever <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1240	1331	
==>RSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1240	1331	
==>RSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6542	6689	
==>ays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $siz <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5046	5193	
==>ays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $siz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7375	7473	
==>as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7375	7473	
==>as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7375	7473	
==>as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $j <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	603	708	
==>.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </hea <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	603	708	
==>.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7267	7362	
==>x:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7267	7362	
==>x:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7267	7362	
==>x:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5227	5345	
==>e;
			$type = $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $self->simplify_type(@_);
		S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	493	602	
==>ucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	497	606	
==>ucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	493	602	
==>ucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	497	606	
==>ucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2853	3012	
==>ainer ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2853	3012	
==>ainer ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2853	3012	
==>ainer ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2565	2665	
==>{
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2565	2665	
==>{
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5398	5525	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5591	5718	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17168	17258	
==>k ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17168	17258	
==>k ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17168	17258	
==>k ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($x <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	99	202	
==>ION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	99	202	
==>ION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	591	694	
==>'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRA <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	361	464	
==>'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRA <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	361	464	
==>'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5408	5516	
==>$self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5408	5516	
==>$self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5408	5516	
==>$self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2J <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	668	775	
==>s ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns V <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	668	775	
==>s ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns V <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15482	15592	
==>self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16897	17007	
==>self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21653	21763	
==>self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7998	8098	
==>>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody q <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7998	8098	
==>>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody q <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	617	749	
==>print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Una <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	617	749	
==>print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Una <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37606	37699	
==>of the source Relations,
such that all common attribute names and corresponding common tuple v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42155	42248	
==>of the source Relations,
such that all common attribute names and corresponding common tuple v <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41805	41898	
==>of the source Relations,
such that all common attribute names and corresponding common tuple v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23457	23600	
==>@param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23457	23600	
==>@param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23457	23600	
==>@param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12452	12563	
==>ts, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lis <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3002	3108	
==>ts, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lis <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6764	6867	
==>ee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6764	6867	
==>ee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3910	3996	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on ho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3910	3996	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on ho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3910	3996	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on ho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5771	5915	
==>eturn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5771	5915	
==>eturn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3778	3920	
==>>() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { retu <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	678	795	
==>, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://downloa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	577	680	
==>, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://downloa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1058	1216	
==>nescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1058	1216	
==>nescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8662	8789	
==>\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8662	8789	
==>\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8662	8789	
==>\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10617	10734	
==>$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10617	10734	
==>$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10617	10734	
==>$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4350	4434	
==>---------------------------------------------------------------
## BOOTSTRAPPING Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6588	6672	
==>---------------------------------------------------------------
## BOOTSTRAPPING Role <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10390	10535	
==>ks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($u <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10390	10535	
==>ks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8211	8353	
==>r->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8211	8353	
==>r->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8211	8353	
==>r->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	218	332	
==>Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	218	332	
==>Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	218	332	
==>Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (use <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1067	1172	
==>nge(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead o <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1067	1172	
==>nge(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12365	12527	
==>" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = E <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9943	10041	
==>diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9943	10041	
==>diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.sp <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2453	2547	
==>ame) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, an <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2453	2547	
==>ame) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3627	3767	
==>s\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1035	1173	
==>ressed as
#     <!before x> <Foo>
#   * "lookahead is not an element of { x }" is expressed as
#     <!before x>
#     Such usage is tagged <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	272	369	
==>JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	272	369	
==>JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	272	369	
==>JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6580	6701	
==>LASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6580	6701	
==>LASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6580	6701	
==>LASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11199	11293	
==><child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_ch <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11199	11293	
==><child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_ch <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2303	2444	
==>t.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=po <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2303	2444	
==>t.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	535	659	
==>name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	551	675	
==>name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	527	651	
==>name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' ) <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1156	1366	
==>) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax err <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1156	1366	
==>) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax err <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15032	15226	
==>new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15032	15226	
==>new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15032	15226	
==>new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16570	16748	
==>values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20047	20225	
==>values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19607	19785	
==>values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3491	3597	
==>n $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3491	3597	
==>n $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3468	3577	
==>dmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3468	3577	
==>dmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3468	3577	
==>dmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11795	11890	
==>ver the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Unt <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11853	11948	
==>ver the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Unt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10468	10621	
==>: @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10468	10621	
==>: @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10468	10621	
==>: @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2565	2698	
==>PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tre <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2565	2698	
==>PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tre <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	759	901	
==>0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instanc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	759	901	
==>0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instanc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2209	2312	
==>w
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2209	2312	
==>w
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2209	2312	
==>w
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17832	17939	
==>elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FR <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14253	14360	
==>elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3218	3315	
==>IL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3218	3315	
==>IL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3218	3315	
==>IL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	230	340	
==>use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	150	260	
==>use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	148	258	
==>use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	146	256	
==>use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messa <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	14	118	
==>Klassen in Perl 6
use v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $var = new Meine <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16542	16684	
==>er {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20019	20161	
==>er {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19579	19721	
==>er {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pa <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11006	11105	
==>LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_INC>

  my @fi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40638	40734	
==>hey use
Carp::carp() or Carp::croak().  The argument list is used to fill in
the format string fo <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1422	1529	
==>KEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2876	2983	
==>KEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1422	1529	
==>KEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	243	339	
==>th Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_ra <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	243	339	
==>th Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_ra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17793	17967	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17793	17967	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17793	17967	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->clas <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9001	9131	
==>tar', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8997	9127	
==>tar', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quant <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15790	15904	
==>w(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19267	19381	
==>w(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18746	18860	
==>w(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20671	20760	
==>strength and Perl implemented
database server named L<Genezzo> (see also L<http://www.gene <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20671	20760	
==>strength and Perl implemented
database server named L<Genezzo> (see also L<http://www.gene <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	138	269	
==>tant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	138	269	
==>tant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	138	269	
==>tant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18204	18303	
==>r is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18204	18303	
==>r is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	717	830	
==>cting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::C <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	717	830	
==>cting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::C <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4386	4480	
==>ilder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and ret <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4386	4480	
==>ilder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5910	6004	
==>ilder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3647	3740	
==>_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3647	3740	
==>_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3647	3740	
==>_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21172	21264	
==>who install your
module distribtution do not need to have the compilers installed
themselves. <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21172	21264	
==>who install your
module distribtution do not need to have the compilers installed
themselves. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7743	7902	
==>$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7743	7902	
==>$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7743	7902	
==>$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2862	2994	
==>ance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3067	3199	
==>ance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            :: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2095	2318	
==>n(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2095	2318	
==>n(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2095	2318	
==>n(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.b <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2142	2257	
==>1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2142	2257	
==>1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gra <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1649	1768	
==>X::false;
    if $O.property_value.exists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.propert <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17679	17777	
==>tered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalt <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17679	17777	
==>tered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalt <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5051	5146	
==>y the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method re <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5051	5146	
==>y the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method re <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3258	3519	
==>art =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3258	3519	
==>art =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6137	6306	
==>art =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6137	6306	
==>art =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6137	6306	
==>art =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	419	524	
==>)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	419	524	
==>)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	419	524	
==>)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22275	22365	
==>vmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "..." <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22275	22365	
==>vmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "..." <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	861	969	
==>x it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	861	969	
==>x it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1960	2067	
==>\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1960	2067	
==>\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1960	2067	
==>\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19172	19299	
==>apture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19451	19578	
==>apture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14916	15031	
==>:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18393	18508	
==>:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more sem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17809	17924	
==>:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more sem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5224	5359	
==>must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this j <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5224	5359	
==>must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this j <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5224	5359	
==>must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this j <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21361	21456	
==>ponding attribute value.

Every Relation attribute has a name that is distinct from the other
at <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25913	26008	
==>ponding attribute value.

Every Relation attribute has a name that is distinct from the other
at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1794	1911	
==>w_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (! <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1794	1911	
==>w_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (! <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1794	1911	
==>w_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (! <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18724	18819	
==>f Node.new(); you need to supply its $document and optional
$parent_node though; you can produce <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18724	18819	
==>f Node.new(); you need to supply its $document and optional
$parent_node though; you can produce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8735	8833	
==>mes6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpD <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8735	8833	
==>mes6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpD <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8735	8833	
==>mes6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpD <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18024	18121	
==>lement it; that is, multiple DBMS objects will not
have references to each other at a level visibl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18024	18121	
==>lement it; that is, multiple DBMS objects will not
have references to each other at a level visibl <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14676	14781	
==>alue form of C<keys> is not longer supported. Use the C<.buckets>
property instead.

=back


=head2 Str

G <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28208	28304	
==>ted.>

This method is a generic relational operator that returns a new Relation
which is the same <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29219	29315	
==>ted.>

This method is a generic relational operator that returns a new Relation
which is the same <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32760	32856	
==>ted.>

This method is a generic relational operator that returns a new Relation
which is the same <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33771	33867	
==>ted.>

This method is a generic relational operator that returns a new Relation
which is the same <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34664	34889	
==>k->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4723	4860	
==>: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4723	4860	
==>: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Coul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4723	4860	
==>: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Coul <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	340	439	
==>stract author license
    distribution_type perl_version tests
>;
my @tuple_keys = qw<
    build_req <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20966	21063	
==>o bring this sort of functionality to Perl packages
or programs.  Your package or program can be d <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20966	21063	
==>o bring this sort of functionality to Perl packages
or programs.  Your package or program can be d <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6060	6154	
==>s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6060	6154	
==>s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', ' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2959	3053	
==>s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16043	16194	
==>op::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'gramm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16322	16473	
==>op::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'gramm <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16882	16988	
==>e source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20359	20465	
==>e source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.s <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19937	20043	
==>e source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	495	596	
==>nder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	495	596	
==>nder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1685	1783	
==>::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1685	1783	
==>::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1685	1783	
==>::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11535	11691	
==>\n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7817	7973	
==>\n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8651	8807	
==>\n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8717	8843	
==>$_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = R <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8717	8843	
==>$_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = R <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1052	1161	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an A <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1052	1161	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2290	2391	
==>xy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2290	2391	
==>xy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2290	2391	
==>xy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1524	1618	
==>uld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1524	1618	
==>uld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1524	1618	
==>uld accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() s <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1855	1946	
==>doc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informativ <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1855	1946	
==>doc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informativ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	646	811	
==>,0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	622	778	
==>,0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11771	11896	
==>L2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11771	11896	
==>L2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11771	11896	
==>L2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15614	15726	
==>ese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - us <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15614	15726	
==>ese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - us <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15614	15726	
==>ese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - us <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16104	16215	
==>ther!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19581	19692	
==>ther!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.val <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	8684	8793	
==>verbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3327	3425	
==>l (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4664	4762	
==>l (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf' <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3327	3425	
==>l (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4886	4984	
==>l (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	127	295	
==>nd, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(er <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	127	295	
==>nd, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(er <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	127	295	
==>nd, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(er <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1424	1546	
==>$extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1424	1546	
==>$extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21900	22075	
==>_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21900	22075	
==>_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21900	22075	
==>_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8159	8258	
==>rays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8159	8258	
==>rays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21957	22051	
==>rom>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=ite <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20838	20932	
==>rom>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=ite <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21957	22051	
==>rom>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=ite <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20838	20932	
==>rom>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=ite <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15581	15721	
==>on$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15575	15715	
==>on$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subr <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	181	264	
==>://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Require <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	148	231	
==>://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Require <==
5	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	194	277	
==>://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Require <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13169	13280	
==>his ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13169	13280	
==>his ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13169	13280	
==>his ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27504	27601	
==>butes, and
the values provide values applied to each tuple.  The new Relation has all
of the tuple <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32056	32153	
==>butes, and
the values provide values applied to each tuple.  The new Relation has all
of the tuple <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5382	5515	
==>M_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5900	6012	
==>M_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3112	3218	
==>ool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3112	3218	
==>ool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3112	3218	
==>ool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	373	496	
==>$.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> e <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	373	496	
==>$.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3248	3358	
==>r $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3248	3358	
==>r $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3248	3358	
==>r $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9129	9303	
==>y' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9129	9303	
==>y' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9129	9303	
==>y' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6278	6378	
==>e C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my($self, $name, $f <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29829	29924	
==>me as
those attribute names in the argument C<$attrs>.  The new Relation::Example has all
of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9109	9285	
==>sa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9109	9285	
==>sa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9109	9285	
==>sa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $p <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5721	5821	
==>Label'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
n <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5721	5821	
==>Label'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	793	970	
==>or;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	793	970	
==>or;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	221	318	
==>s
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are cal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	221	318	
==>s
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are cal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	221	318	
==>s
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are cal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16127	16327	
==>y' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16127	16327	
==>y' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16127	16327	
==>y' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_la <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5029	5132	
==>ODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #prin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5029	5132	
==>ODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	575	673	
==>- New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	575	673	
==>- New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	575	673	
==>- New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22989	23079	
==>mebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22989	23079	
==>mebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E< <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1063	1271	
==>=
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octe <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1063	1271	
==>=
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2252	2348	
==>useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2252	2348	
==>useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2252	2348	
==>useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3452	3597	
==>/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3916	4061	
==>/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2611	2719	
==>my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2611	2719	
==>my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2611	2719	
==>my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3038	3148	
==>ny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3038	3148	
==>ny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3038	3148	
==>ny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1427	1518	
==>ile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1427	1518	
==>ile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3196	3357	
==>b rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is a <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19176	19284	
==>(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::nullary <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2312	2413	
==>th @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2312	2413	
==>th @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2312	2413	
==>th @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2600	2704	
==>return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method siz <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6077	6181	
==>return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method siz <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5007	5111	
==>return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method siz <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2547	2644	
==>s_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?S <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2547	2644	
==>s_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	614	734	
==>my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	614	734	
==>my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	614	734	
==>my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { ( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3161	3267	
==>status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3161	3267	
==>status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3253	3369	
==>>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3437	3553	
==>>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1614	1717	
==>Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1614	1717	
==>Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1614	1717	
==>Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4554	4653	
==>ash keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B< <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4554	4653	
==>ash keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B< <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3077	3174	
==>eturns the value of the parameter named C<$name>.  If called in List context,
it will return a lis <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3077	3174	
==>eturns the value of the parameter named C<$name>.  If called in List context,
it will return a lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11295	11388	
==>Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11295	11388	
==>Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. per <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11295	11388	
==>Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40508	40626	
==>urn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40508	40626	
==>urn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40508	40626	
==>urn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5991	6167	
==>$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5991	6167	
==>$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6516	6619	
==>source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6516	6619	
==>source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6516	6619	
==>source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10545	10691	
==>new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10545	10691	
==>new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10545	10691	
==>new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefin <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	836	963	
==>>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	836	963	
==>>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	4548	4667	
==>nless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{shuffle}) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	854	957	
==>t open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatical <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	854	957	
==>t open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatical <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	854	957	
==>t open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatical <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32778	32873	
==>e class as well.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5014	5128	
==>}
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;
    $self->admin- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1213	1317	
==>e'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1213	1317	
==>e'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22824	22920	
==>ibute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27376	27472	
==>ibute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	17022	17141	
==>:= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floo <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8787	8892	
==>cally when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8787	8892	
==>cally when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1681	1778	
==>967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is consta <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1681	1778	
==>967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is consta <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4318	4519	
==>t package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothin <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4782	4983	
==>t package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34949	35085	
==>] ],
      family => 'branch',
      type => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10555	10647	
==>edness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10555	10647	
==>edness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, th <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3770	3885	
==>~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-f <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3770	3885	
==>~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-f <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6755	6864	
==>w(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7127	7236	
==>w(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7426	7535	
==>w(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4502	4606	
==>cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4502	4606	
==>cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4502	4606	
==>cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &in <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17977	18075	
==>more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
h <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17977	18075	
==>more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13069	13239	
==>ne;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13069	13239	
==>ne;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13069	13239	
==>ne;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #war <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2185	2280	
==>ody>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different propertie <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2185	2280	
==>ody>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different propertie <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3445	3562	
==>il = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3445	3562	
==>il = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6620	6709	
==>-------------------------------
## BOOTSTRAPPING Roles COMPLETE
## ----------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6643	6732	
==>--------
## BOOTSTRAPPING Roles COMPLETE
## ---------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6597	6682	
==>------------------------------------------------------
## BOOTSTRAPPING Roles COMPLETE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1441	1535	
==>s(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1441	1535	
==>s(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1441	1535	
==>s(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pr <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1170	1261	
==>ompiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1170	1261	
==>ompiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1746	1859	
==>_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1746	1859	
==>_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1746	1859	
==>_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	69	170	
==>gs;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" functi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	65	161	
==>gs;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" functi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4214	4320	
==>) if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not a unicode p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1085	1188	
==>ernatives_file

=cut

sub registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->dir <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3260	3384	
==>ass' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaqu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16810	16918	
==>eturn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16810	16918	
==>eturn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16810	16918	
==>eturn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3974	4078	
==>ass' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaqu <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2089	2211	
==>> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <tr <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2089	2211	
==>> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <tr <==
5	/Users/nnunley/pugs/util/version_h.pl	343	452	
==>ast;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that is only updated whe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10253	10354	
==>y_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10253	10354	
==>y_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return w <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10253	10354	
==>y_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24844	24937	
==>sed only by their names, and all
Relation::Example tuples may be individually addressed only b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3332	3447	
==>pile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3332	3447	
==>pile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3332	3447	
==>pile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10210	10311	
==>= Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A laz <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10210	10311	
==>= Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A laz <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9691	9805	
==>type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9691	9805	
==>type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9691	9805	
==>type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $se <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6005	6115	
==>s}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub find_extensions {
    my ($sel <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23013	23110	
==>ctionDeclaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParameterL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9805	9920	
==>6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9805	9920	
==>6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9805	9920	
==>6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16325	16422	
==>s. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence ob <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16325	16422	
==>s. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence ob <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2011	2126	
==>) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    re <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2011	2126	
==>) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36706	36803	
==>elation has zero
tuples, in which case the result does too.  Another trivial case is if any
source <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41255	41352	
==>elation has zero
tuples, in which case the result does too.  Another trivial case is if any
source <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40878	40975	
==>elation has zero
tuples, in which case the result does too.  Another trivial case is if any
source <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6798	6906	
==>lf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6798	6906	
==>lf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6798	6906	
==>lf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->co <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14376	14483	
==>ator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.000000000 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14376	14483	
==>ator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.000000000 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30428	30539	
==>ength == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30428	30539	
==>ength == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30428	30539	
==>ength == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1081	1179	
==>s the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search pa <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1081	1179	
==>s the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1270	1374	
==>);
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1270	1374	
==>);
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::C <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25664	25758	
==>can sell you an alternate, limited license that allows you to link
Rosetta with non-free softwa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25664	25758	
==>can sell you an alternate, limited license that allows you to link
Rosetta with non-free softwa <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11753	11852	
==>code = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAM <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11753	11852	
==>code = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	47	141	
==>elf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	47	141	
==>elf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	47	141	
==>elf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2176	2288	
==>ant.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @l <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2176	2288	
==>ant.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4095	4203	
==>([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4095	4203	
==>([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4095	4203	
==>([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4868	4987	
==>filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4868	4987	
==>filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4868	4987	
==>filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	260	358	
==>or PIL nodes.  vtype() returns a string that represents the 
node type, which are checked against e <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	260	358	
==>or PIL nodes.  vtype() returns a string that represents the 
node type, which are checked against e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	254	372	
==>eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	254	372	
==>eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERS <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	254	372	
==>eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERS <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4273	4386	
==>Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4273	4386	
==>Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2305	2408	
==>{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($! <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2283	2386	
==>{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4414	4543	
==>lass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of so <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4414	4543	
==>lass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of so <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4414	4543	
==>lass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of so <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9963	10068	
==>ngify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.m <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9963	10068	
==>ngify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15747	15848	
==>::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15747	15848	
==>::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1948	2037	
==>{my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1948	2037	
==>{my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1948	2037	
==>{my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21847	22029	
==>e( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21847	22029	
==>e( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21847	22029	
==>e( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$meth <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18660	18754	
==>r example,
this module automatically tries to use slight variations of the nickname in the
logi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18660	18754	
==>r example,
this module automatically tries to use slight variations of the nickname in the
logi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2849	2961	
==>span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2849	2961	
==>span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4212	4357	
==>=> 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4212	4357	
==>=> 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9738	9867	
==>nk $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's any other package that's now the <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1740	1830	
==>te::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans = <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1740	1830	
==>te::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3099	3213	
==>rn $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3099	3213	
==>rn $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3099	3213	
==>rn $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3852	3951	
==>Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creat <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3852	3951	
==>Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13288	13405	
==>e used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DIS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13288	13405	
==>e used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DIS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13288	13405	
==>e used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DIS <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28627	28718	
==>equal (Relation::Example $other!) returns Bool>

This method returns a Bool indicating wheth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2106	2238	
==>tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2106	2238	
==>tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2106	2238	
==>tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == - <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9645	9739	
==>_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9645	9739	
==>_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11918	12082	
==>' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #" <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8200	8364	
==>' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9034	9198	
==>' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30043	30136	
==>attribute of a Message object, and each
hash value contains the user-readable message text ass <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30043	30136	
==>attribute of a Message object, and each
hash value contains the user-readable message text ass <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5291	5416	
==>";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6559	6684	
==>";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5291	5416	
==>";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6547	6672	
==>";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fil <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6062	6165	
==>to end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat = P <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15664	15787	
==>_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it ca <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2061	2184	
==>_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	112	214	
==>SA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	112	214	
==>SA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	112	214	
==>SA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5374	5468	
==>nstead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5374	5468	
==>nstead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availabl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5374	5468	
==>nstead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availabl <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1118	1214	
==>got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1176	1272	
==>got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$t <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30876	30970	
==>ere C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35426	35520	
==>ere C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34617	34711	
==>ere C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3782	3904	
==>ed_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3975	4097	
==>ed_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newl <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	14181	14286	
==>= {
	my $f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8577	8682	
==>t_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8573	8678	
==>t_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13901	14055	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13901	14055	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13901	14055	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $of <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10941	11070	
==>turn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10941	11070	
==>turn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6866	6980	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6866	6980	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6866	6980	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3632	3739	
==>TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedTe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3632	3739	
==>TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedTe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2201	2321	
==>3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2201	2321	
==>3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5750	5867	
==>num => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	242	339	
==>issing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	242	339	
==>issing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input fil <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7260	7368	
==>ues %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub r <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10264	10357	
==>new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8157	8250	
==>new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10264	10357	
==>new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8157	8250	
==>new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7683	7846	
==>/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7683	7846	
==>/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$p <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6462	6594	
==>ed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6462	6594	
==>ed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITE <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	2772	2875	
==>docs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find desig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6642	6768	
==>t + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $ste <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6642	6768	
==>t + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $ste <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6642	6768	
==>t + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $ste <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11947	12054	
==>ity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11947	12054	
==>ity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Sp <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3904	4029	
==>(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3904	4029	
==>(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1771	1863	
==>$self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1771	1863	
==>$self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1771	1863	
==>$self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	932	1058	
==>deAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	932	1058	
==>deAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	932	1058	
==>deAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5771	5869	
==>ility is to return a negative value for
# relative seconds and a positive value for epoch based tim <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5771	5869	
==>ility is to return a negative value for
# relative seconds and a positive value for epoch based tim <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6774	6900	
==>e' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rd <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6774	6900	
==>e' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5343	5442	
==>PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5343	5442	
==>PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5343	5442	
==>PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Bo <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7701	7804	
==>rective) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' dire <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7701	7804	
==>rective) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' dire <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2145	2247	
==>t went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2145	2247	
==>t went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2145	2247	
==>t went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6356	6511	
==>HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3481	3636	
==>HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4330	4485	
==>HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22331	22471	
==>=> (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42120	42260	
==>=> (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3971	4095	
==>b { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return cons <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5292	5416	
==>b { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return cons <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3971	4095	
==>b { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return cons <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5280	5404	
==>b { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return cons <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4459	4559	
==>representation {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig};
}

sub is_dupli <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18968	19066	
==>n the real world accurately, and it
can support a complete SQL emulation layer on top of it, so tha <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18968	19066	
==>n the real world accurately, and it
can support a complete SQL emulation layer on top of it, so tha <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16496	16594	
==>s_from_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19071	19166	
==>ging
over more than one argument"), which is also the basis of the relational
data model propose <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22721	22816	
==>ging over more than one
argument"), which is also the basis of the relational data model propose <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3135	3292	
==>me : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3135	3292	
==>me : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_ins <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3135	3292	
==>me : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_ins <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	272	423	
==>P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @a <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	272	423	
==>P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	622	757	
==>eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.injec <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	622	757	
==>eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.injec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24432	24545	
==>failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24432	24545	
==>failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24432	24545	
==>failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5718	5823	
==>y $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5718	5823	
==>y $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5718	5823	
==>y $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runt <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5550	5643	
==>cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5550	5643	
==>cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9582	9702	
==>ssed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              tod <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1675	1787	
==>ssed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            tod <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1675	1787	
==>ssed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            tod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12409	12531	
==>scription = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      method stat <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2787	2901	
==>scription = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method stat <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2787	2901	
==>scription = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method stat <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29218	29325	
==>paque $self: symbol $order) returns block {
    $order = ':ascendant' 
        if !~$order || $order == ':ca <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17386	17573	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23352	23539	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17665	17852	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23631	23818	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	127	225	
==>PI könnte ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1223	1406	
==>{
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                unless ($c){
                    $c = PIL::Run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36287	36415	
==>n_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36287	36415	
==>n_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36287	36415	
==>n_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $l <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12195	12288	
==>riables
ROOT: env($$) = { Clone::clone(\%types::prelude) }
ROOT: generic_in($$) = {
	my $env = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3643	3786	
==>rse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3643	3786	
==>rse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3643	3786	
==>rse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slo <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	389	509	
==>Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	389	509	
==>Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4350	4522	
==>iling
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increm <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4350	4522	
==>iling
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6618	6726	
==>= $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6618	6726	
==>= $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6618	6726	
==>= $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2235	2370	
==>\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2235	2370	
==>\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2235	2370	
==>\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	679	774	
==>r that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<co <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	679	774	
==>r that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<co <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	197	315	
==>source dir';

for my $srcdir (@ARGV ) {
    
    ### copy all the relevant files to the repo
    for my $archive ( qx[f <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9828	9919	
==>ctions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_pa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17430	17521	
==>cument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>.. <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9828	9919	
==>ctions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17430	17521	
==>cument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>.. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3796	3924	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3989	4117	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6529	6641	
==>l/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6529	6641	
==>l/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6529	6641	
==>l/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !per <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3509	3611	
==>mber of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what y <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3509	3611	
==>mber of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what y <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3589	3691	
==>mber of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what y <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34207	34300	
==>d upper bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NA <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	18472	18727	
==>$regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $2, $backlink, $3);
                      $found = 1;
                      last;
                    }

                    if (!$found) {
                      # Par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4930	5038	
==>>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4930	5038	
==>>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4930	5038	
==>>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15448	15543	
==>ould be matched by the regex; provides
a front-end method for the parser.

=item Regexp::QuantAt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4022	4184	
==>disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4022	4184	
==>disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	462	565	
==>to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	462	565	
==>to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	462	565	
==>to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2297	2391	
==>in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2297	2391	
==>in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2297	2391	
==>in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
u <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13563	13654	
==>C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13563	13654	
==>C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are on <==
5	/Users/nnunley/pugs/util/config_h.pl	1896	2021	
==>mp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7640	7736	
==>:Block> class takes care of much of this.)

A default implementation of this method is provided w <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7640	7736	
==>:Block> class takes care of much of this.)

A default implementation of this method is provided w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8438	8527	
==>ents, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2263	2352	
==>ents, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1385	1481	
==>L::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1385	1481	
==>L::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1385	1481	
==>L::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.B <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41288	41378	
==>nteractive.com>)

On 2005.03.21, provided feedback towards improving this module's
document <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41288	41378	
==>nteractive.com>)

On 2005.03.21, provided feedback towards improving this module's
document <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6480	6581	
==>x_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $ir <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6480	6581	
==>x_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $ir <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4831	4930	
==>ax for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4831	4930	
==>ax for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4831	4930	
==>ax for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(C <==
5	/Users/nnunley/pugs/misc/Blondie/example.pl	107	215	
==>er::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $prog = Seq(
	App(
		S <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1939	2040	
==>ake encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oct <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2301	2402	
==>ake encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oct <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1939	2040	
==>ake encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oct <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2301	2402	
==>ake encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1265	1372	
==>mpiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1265	1372	
==>mpiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1265	1372	
==>mpiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2582	2676	
==>s more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2582	2676	
==>s more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	690	790	
==>tfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	690	790	
==>tfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	690	790	
==>tfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARG <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1858	1950	
==>::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative bu <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1858	1950	
==>::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4141	4269	
==>('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4141	4269	
==>('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4141	4269	
==>('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	854	944	
==>and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	854	944	
==>and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5005	5157	
==>isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5005	5157	
==>isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5005	5157	
==>isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or s <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	968	1063	
==>irectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in t <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	968	1063	
==>irectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7690	7787	
==>cate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($se <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7690	7787	
==>cate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1065	1159	
==>arname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID suppl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1065	1159	
==>arname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID suppl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1065	1159	
==>arname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID suppl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8098	8221	
==>if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8098	8221	
==>if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1221	1319	
==>(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1221	1319	
==>(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1221	1319	
==>(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use objec <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17555	17650	
==>method emits a warning and returns undef.

- `span()`

Returns the internal object that represen <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17555	17650	
==>method emits a warning and returns undef.

- `span()`

Returns the internal object that represen <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2491	2604	
==>,@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

mu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2491	2604	
==>,@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

mu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2491	2604	
==>,@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

mu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6654	6764	
==>";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6712	6822	
==>";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4213	4313	
==>= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4213	4313	
==>= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4213	4313	
==>= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22670	22840	
==>{
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22670	22840	
==>{
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22670	22840	
==>{
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->sto <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7122	7247	
==>),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "we <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7122	7247	
==>),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "we <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3374	3495	
==>is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3374	3495	
==>is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34039	34136	
==>n't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the inv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38589	38686	
==>n't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the inv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38050	38147	
==>n't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the inv <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1618	1742	
==>ngify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1618	1742	
==>ngify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8833	8927	
==>rimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8833	8927	
==>rimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8833	8927	
==>rimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5214	5325	
==>fess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5214	5325	
==>fess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5214	5325	
==>fess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribut <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23569	23662	
==>setta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23569	23662	
==>setta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1922	2032	
==>nstant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <clos <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1933	2043	
==>nstant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <clos <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	2592	2701	
==>ine\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\ <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3028	3137	
==>ine\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6045	6153	
==>ss( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                error( "Could not create sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13992	14147	
==>);
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13986	14141	
==>);
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11272	11381	
==>.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11272	11381	
==>.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6266	6363	
==>rclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6266	6363	
==>rclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6266	6363	
==>rclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:super <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7223	7407	
==>) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7223	7407	
==>) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7223	7407	
==>) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                r <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13891	13993	
==>reate a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtst <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13891	13993	
==>reate a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11184	11298	
==>dentify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11184	11298	
==>dentify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11184	11298	
==>dentify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1894	1997	
==>my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::Fi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1894	1997	
==>my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::Fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13122	13232	
==>::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13122	13232	
==>::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13122	13232	
==>::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7241	7339	
==>&{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7253	7351	
==>&{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule { <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4614	4732	
==>= Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.it <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4614	4732	
==>= Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.it <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7728	7842	
==>// &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7728	7842	
==>// &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7728	7842	
==>// &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fun <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4486	4614	
==>header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.def <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4486	4614	
==>header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.def <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	242	355	
==>store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	242	355	
==>store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	242	355	
==>store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3534	3666	
==>my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3522	3654	
==>my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '? <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14946	15055	
==>e() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18423	18532	
==>e() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17839	17948	
==>e() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13360	13495	
==>he ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13360	13495	
==>he ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             war <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13360	13495	
==>he ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             war <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34532	34626	
==>tional operator that takes a single Relation
in its C<$other> argument, where the heading of <$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39082	39176	
==>tional operator that takes a single Relation
in its C<$other> argument, where the heading of <$ <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	985	1177	
==>say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	985	1177	
==>say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4688	4801	
==>stance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4688	4801	
==>stance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4688	4801	
==>stance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32342	32488	
==>ength - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32342	32488	
==>ength - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32342	32488	
==>ength - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	100	200	
==>t!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	100	200	
==>t!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1539	1660	
==>ecl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1539	1660	
==>ecl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1539	1660	
==>ecl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::na <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18244	18341	
==>.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18244	18341	
==>.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8415	8552	
==>if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8415	8552	
==>if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8415	8552	
==>if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $metho <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3924	4029	
==>erl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimize <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3784	3887	
==>erl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimize <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	321	425	
==>an?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $outp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	321	425	
==>an?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $outp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1338	1439	
==>perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1338	1439	
==>perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1338	1439	
==>perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2253	2359	
==>:= eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$de <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2311	2417	
==>:= eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	809	914	
==>COPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	809	914	
==>COPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	809	914	
==>COPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4755	4875	
==>epends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi su <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4813	4933	
==>epends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi su <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16753	16856	
==><%results> returned from C<analyze()> contain the following
information:

  passing           true if th <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	1771	1879	
==>ile ( my $file = readdir DH ) {
            next if $file eq File::Spec->updir || $file eq File::Spec->curdir <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1583	1672	
==>::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1583	1672	
==>::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) retur <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1538	1652	
==>upported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'tex <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1538	1652	
==>upported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2200	2295	
==>($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2200	2295	
==>($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2200	2295	
==>($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12834	13089	
==>h' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12834	13089	
==>h' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12834	13089	
==>h' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $a <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2502	2628	
==>pen,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2502	2628	
==>pen,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span: <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1001	1156	
==>y $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	880	1035	
==>y $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14155	14262	
==>(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14155	14262	
==>(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14155	14262	
==>(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	469	582	
==>ol;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	469	582	
==>ol;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, matc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6864	6986	
==>remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6864	6986	
==>remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13825	13935	
==>{

    # First do some optimizing of the order that source relations are
    # combined, so to try and make the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17302	17412	
==>{

    # First do some optimizing of the order that source relations are
    # combined, so to try and make the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16682	16792	
==>{

    # First do some optimizing of the order that source relations are
    # combined, so to try and make the <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1442	1580	
==>.= "\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARR <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2404	2503	
==>x into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2404	2503	
==>x into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1625	1718	
==>x into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3486	3579	
==>x into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6627	6734	
==>callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6627	6734	
==>callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6627	6734	
==>callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4771	4862	
==>g_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attribute <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4771	4862	
==>g_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attribute <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16430	16536	
==>ess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16430	16536	
==>ess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16430	16536	
==>ess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19883	19981	
==>w Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19883	19981	
==>w Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
the <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5823	5971	
==>ray[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_chan <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4323	4471	
==>ray[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_chan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2330	2455	
==>::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2535	2660	
==>::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3326	3451	
==>::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15263	15438	
==>s = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15263	15438	
==>s = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15263	15438	
==>s = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ar <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4479	4608	
==>255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            + <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4479	4608	
==>255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4360	4482	
==>f($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4360	4482	
==>f($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4360	4482	
==>f($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	376	482	
==>untime::RuleCompiler->compiled(sub {
       	my $grammar = shift;
	my $tree;
	print Dumper($rule->($grammar <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8511	8595	
==>modifier_spec_neg(L), !.
p5_modifier_spec_neg([-s|L]) --> "s", p5_modifier_spec_neg(L <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2009	2118	
==>Scope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2009	2118	
==>Scope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2009	2118	
==>Scope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          un <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31649	31744	
==>)T|F)>
assertion).

=item max

The maximum repetition count of this object (for quantifiers).

= <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	81	172	
==>ow-away code.
use strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2075	2201	
==>"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2075	2201	
==>"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2075	2201	
==>"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap- <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3279	3392	
==>conv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    print( < <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3562	3650	
==>6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) --> p6_quant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	562	718	
==>mplemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        ex <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	533	689	
==>mplemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	562	718	
==>mplemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        ex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	562	718	
==>mplemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        ex <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30846	30942	
==>ree.  Use Damian Conway's F<NEXT> module
instead.  This module is standard with Perl 5.8.

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3918	4029	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        } <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7395	7506	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        } <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6361	6472	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        } <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	754	846	
==>erldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Norm <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	754	846	
==>erldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Norm <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	485	618	
==>rse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	485	618	
==>rse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1178	1275	
==>ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1178	1275	
==>ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1178	1275	
==>ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5931	6100	
==>= match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5931	6100	
==>= match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5931	6100	
==>= match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10116	10214	
==>/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10116	10214	
==>/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=it <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1985	2169	
==>,
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5772	5956	
==>,
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1985	2169	
==>,
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5772	5956	
==>,
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = ' <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16278	16396	
==>ules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3813	3912	
==>iled Perl 6 files.

If you see the error below, it may happen that your perl was compiled without PM <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4920	5018	
==>>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free softwa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2144	2242	
==>.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4920	5018	
==>>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free softwa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2144	2242	
==>.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2144	2242	
==>.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Cons <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7134	7261	
==>op @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4602	4702	
==>h)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipli <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3729	3829	
==>h)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipli <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4602	4702	
==>h)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipli <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3729	3829	
==>h)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipli <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	509	629	
==>t @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	544	664	
==>t @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	509	629	
==>t @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1379	1477	
==>until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1379	1477	
==>until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3073	3209	
==>int eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3073	3209	
==>int eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3073	3209	
==>int eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1208	1317	
==>r in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1348	1457	
==>r in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4355	4466	
==>e ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4355	4466	
==>e ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4355	4466	
==>e ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MUL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9896	10002	
==>rts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9896	10002	
==>rts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32202	32299	
==>s
each set's member for language B and displays that; and so on.

I<For the present, Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32202	32299	
==>s
each set's member for language B and displays that; and so on.

I<For the present, Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28471	28563	
==>utes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33023	33115	
==>utes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32151	32243	
==>utes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	376	479	
==>rgs{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10108	10205	
==>se features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- ` <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10166	10263	
==>se features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- ` <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18002	18142	
==>@methods) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $pro <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	878	998	
==>d.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns H <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	878	998	
==>d.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns H <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33951	34046	
==>choices are,
in order, if preferred ones aren't supported by a program or its libraries.
When tr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33951	34046	
==>choices are,
in order, if preferred ones aren't supported by a program or its libraries.
When tr <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5689	5789	
==>e($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5689	5789	
==>e($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20798	20888	
==>infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20798	20888	
==>infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20798	20888	
==>infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1648	1756	
==>nostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @ex <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1648	1756	
==>nostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1728	1836	
==>nostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14820	14955	
==>$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14820	14955	
==>$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14820	14955	
==>$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@ <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3164	3299	
==>$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2066	2165	
==>- the core num type


=head1 METHODS

=over 4

=item B<new (*native*) returns num>

=item B<to_nativ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	421	539	
==>unless $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        push @EXP <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28385	28482	
==>ibute values are escaped and you shouldn't try to
extract them.  This method is also defined as th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35741	35838	
==>ibute values are escaped and you shouldn't try to
extract them.  This method is also defined as th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28385	28482	
==>ibute values are escaped and you shouldn't try to
extract them.  This method is also defined as th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35741	35838	
==>ibute values are escaped and you shouldn't try to
extract them.  This method is also defined as th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7708	7846	
==>e};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# - <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9278	9410	
==>e};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# - <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9278	9410	
==>e};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7448	7579	
==>e};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# - <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10577	10661	
==>_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(verti <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	835	1012	
==>:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	835	1012	
==>:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3610	3698	
==>>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3610	3698	
==>>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3610	3698	
==>>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2453	2564	
==>onpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq ' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2453	2564	
==>onpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13161	13270	
==>macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13161	13270	
==>macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13161	13270	
==>macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3743	3867	
==>urn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3743	3867	
==>urn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3743	3867	
==>urn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wit <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13544	13637	
==>list
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can pro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13544	13637	
==>list
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can pro <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3458	3585	
==>!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!chil <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3458	3585	
==>!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!chil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3319	3419	
==>$eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3319	3419	
==>$eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3319	3419	
==>$eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	60	165	
==>ile
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'J <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	60	165	
==>ile
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'J <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	60	165	
==>ile
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'J <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1007	1098	
==>erver_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns I <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1007	1098	
==>erver_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15538	15709	
==>1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15538	15709	
==>1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - sh <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15538	15709	
==>1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - sh <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7804	7897	
==>urns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assum <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7804	7897	
==>urns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10458	10612	
==>r @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10458	10612	
==>r @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10458	10612	
==>r @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " - <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	638	738	
==>d.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<f <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	638	738	
==>d.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5720	5925	
==>string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5720	5925	
==>string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $st <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5720	5925	
==>string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $st <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23311	23402	
==>gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "... <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23311	23402	
==>gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "... <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10945	11063	
==>value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10945	11063	
==>value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10945	11063	
==>value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return arr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1926	2023	
==>de;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1926	2023	
==>de;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1905	2006	
==>rintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1905	2006	
==>rintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1905	2006	
==>rintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22635	22732	
==>us 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27187	27284	
==>us 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4443	4582	
==>>{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4583	4722	
==>>{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	384	480	
==>U resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	384	480	
==>U resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	384	480	
==>U resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "l <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15083	15183	
==>andler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9282	9382	
==>andler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16879	16966	
==>Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16879	16966	
==>Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16879	16966	
==>Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {.. <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6106	6255	
==>ems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6106	6255	
==>ems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14204	14293	
==>_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14204	14293	
==>_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14204	14293	
==>_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12493	12636	
==>ray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12493	12636	
==>ray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12493	12636	
==>ray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2264	2404	
==>begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2264	2404	
==>begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18426	18534	
==>dule is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8358	8466	
==>}
}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ( <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18426	18534	
==>dule is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19531	19631	
==>ar to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rath <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24083	24183	
==>ar to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rath <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4874	4975	
==>ber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can rec <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4874	4975	
==>ber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can rec <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6398	6499	
==>ber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can rec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1988	2102	
==>ash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1988	2102	
==>ash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1988	2102	
==>ash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8241	8340	
==>t is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event clos <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8241	8340	
==>t is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event clos <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8694	8817	
==>'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descripti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8694	8817	
==>'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descripti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8694	8817	
==>'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descripti <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	12	109	
==>ss DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_d <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	12	109	
==>ss DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8993	9111	
==>"-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $di <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	727	845	
==>"-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8993	9111	
==>"-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $di <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8993	9111	
==>"-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $di <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2223	2317	
==>ut");
    $optable->addToken("postfix:::", "postfix:*", "left", &fail);
    $optable->addToken( <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7409	7536	
==>593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "l <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7409	7536	
==>593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1486	1597	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1486	1597	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1486	1597	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5324	5480	
==>} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5156	5305	
==>} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and r <==
5	/Users/nnunley/pugs/util/package-osx.pl	7321	7418	
==>::Spec::CPAN.3
        /usr/local/man/man3/Perl6::Spec::CPAN.3pm
        /usr/local/man/man3/Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	363	456	
==>ti sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEF <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	363	456	
==>ti sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEF <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5171	5301	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5171	5301	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5171	5301	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3747	3844	
==>ns.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete API <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3747	3844	
==>ns.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete API <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36573	36668	
==>ge and returns an equivalent human readable text message
string; this assumes that a Template co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29476	29571	
==>attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36573	36668	
==>ge and returns an equivalent human readable text message
string; this assumes that a Template co <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34028	34123	
==>attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33192	33287	
==>attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	129	231	
==>l::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	129	231	
==>l::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	129	231	
==>l::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20572	20670	
==>ic spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead o <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20572	20670	
==>ic spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21771	21894	
==>push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22050	22173	
==>push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6067	6178	
==>ine',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6067	6178	
==>ine',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6067	6178	
==>ine',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1152	1319	
==>ntinue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1152	1319	
==>ntinue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2206	2317	
==>RE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ver <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2206	2317	
==>RE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ver <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2206	2317	
==>RE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ver <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6861	6969	
==>>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $eve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6861	6969	
==>>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4630	4737	
==>>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4630	4737	
==>>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4630	4737	
==>>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{j <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	624	723	
==>ct model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	624	723	
==>ct model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiS <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	624	723	
==>ct model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiS <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2822	2916	
==>se Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2822	2916	
==>se Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3959	4063	
==>:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3959	4063	
==>:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3959	4063	
==>:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? ' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2572	2675	
==>od superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
metho <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2572	2675	
==>od superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3061	3154	
==>rl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3061	3154	
==>rl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3061	3154	
==>rl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options ar <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	607	696	
==>l.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full P <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	607	696	
==>l.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full P <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2567	2678	
==>or not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2567	2678	
==>or not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2567	2678	
==>or not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6933	7033	
==>n 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an interface between the 

lo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6697	6793	
==>n 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an interface between the 
lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13125	13249	
==>ment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13125	13249	
==>ment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12745	12845	
==>class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12745	12845	
==>class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12745	12845	
==>class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	429	588	
==>t
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1055	1180	
==>$.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4294	4419	
==>$.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1055	1180	
==>$.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4294	4419	
==>$.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	11859	11974	
==>pen2 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2270	2384	
==>rapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2270	2384	
==>rapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2270	2384	
==>rapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3096	3209	
==>}
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3096	3209	
==>}
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1881	1977	
==>fix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1881	1977	
==>fix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7082	7175	
==>ue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7082	7175	
==>ue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7082	7175	
==>ue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_T <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24791	24887	
==>returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29343	29439	
==>returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	949	1039	
==>lude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	949	1039	
==>lude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	949	1039	
==>lude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
us <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1752	1876	
==>tils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5244	5349	
==>',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5244	5349	
==>',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5244	5349	
==>',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1633	1724	
==>tils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1581	1675	
==>e_subrule);
    $optable->addToken("term:<?", "term:", "nows", &parse_subrule);
    $optable->a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5725	5855	
==>s' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10036	10166	
==>s' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33651	33779	
==>t = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33651	33779	
==>t = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33651	33779	
==>t = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4152	4269	
==>tToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4152	4269	
==>tToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4152	4269	
==>tToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . ( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2947	3059	
==>user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2947	3059	
==>user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6105	6209	
==>::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6105	6209	
==>::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () r <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6749	6850	
==>ER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escap <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6807	6908	
==>ER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escap <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2079	2171	
==>--------------------------------------
## some metamodel tools

=pod

sub *WALKMETH (block &d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5424	5526	
==>d would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5424	5526	
==>d would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

T <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5424	5526	
==>d would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

T <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13028	13124	
==>+ $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1. <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13028	13124	
==>+ $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1. <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	797	939	
==>m->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	779	912	
==>m->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	779	912	
==>m->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4435	4558	
==>$pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
}
sub rep_ty <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1667	1765	
==>s, and inserting a names where needed.

   Example:
     perl util/catalog_tests.pl --p6design_dir= <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	263	362	
==>* Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric rang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	808	907	
==>* Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric rang <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	263	362	
==>* Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric rang <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	808	907	
==>* Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric rang <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	808	907	
==>* Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric rang <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13550	13647	
==>om_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13550	13647	
==>om_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13550	13647	
==>om_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2624	2713	
==>)->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2624	2713	
==>)->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1763	1886	
==>x.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1763	1886	
==>x.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1763	1886	
==>x.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4902	5000	
==>arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document! <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4902	5000	
==>arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document! <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9970	10075	
==>' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $s <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	103	208	
==>eu in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiederholt xx listen:
@a = (1, 2) xx 2 # ( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9970	10075	
==>' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21071	21161	
==>s SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21071	21161	
==>s SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	715	835	
==>of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4193	4313	
==>of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a Re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26697	26793	
==>pectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31249	31345	
==>pectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30278	30374	
==>pectively.  This method will fail if
any members of C<$attrs> do not match attribute names of the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2525	2674	
==>b ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2730	2879	
==>b ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3802	3951	
==>b ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercla <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17404	17510	
==>loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17404	17510	
==>loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12079	12178	
==>oot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Ro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12079	12178	
==>oot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Ro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12079	12178	
==>oot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Ro <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1343	1440	
==>r the cipher's state.

=back 4

The procedural interface does the same thing within a single call, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1343	1440	
==>r the cipher's state.

=back 4

The procedural interface does the same thing within a single call, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1669	1769	
==>okbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 module <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1669	1769	
==>okbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4485	4583	
==>eport extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Ac <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4485	4583	
==>eport extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Ac <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5075	5173	
==>eport extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Ac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2720	2825	
==>ode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2720	2825	
==>ode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2720	2825	
==>ode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Could <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2888	2990	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method v <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2888	2990	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method v <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	614	717	
==>t_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_s <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	614	717	
==>t_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4993	5091	
==>mber>

The number of the test in the current test file.

=item B<Str $.description>

The test's des <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4993	5091	
==>mber>

The number of the test in the current test file.

=item B<Str $.description>

The test's des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7190	7288	
==>mber>

The number of the test in the current test file.

=item B<Str $.description>

The test's des <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5593	5723	
==>> \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $names <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5593	5723	
==>> \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $names <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5593	5723	
==>> \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $names <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8605	8708	
==>th fields are all out of whack.
# This is where this method comes into play
# it will recurse down the t <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8605	8708	
==>th fields are all out of whack.
# This is where this method comes into play
# it will recurse down the t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7430	7601	
==>nf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7430	7601	
==>nf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7430	7601	
==>nf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	830	954	
==>Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	830	954	
==>Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5224	5356	
==>role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5224	5356	
==>role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5224	5356	
==>role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	76	178	
==>p unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	76	178	
==>p unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7370	7529	
==>class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7370	7529	
==>class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7370	7529	
==>class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8128	8223	
==>b test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_pla <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8186	8281	
==>b test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_pla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4851	4973	
==>put to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4851	4973	
==>put to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4851	4973	
==>put to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pre <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3432	3535	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3432	3535	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2139	2255	
==>ulti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2139	2255	
==>ulti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2139	2255	
==>ulti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ar <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32946	33045	
==>or object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This st <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32946	33045	
==>or object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This st <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	989	1082	
==>=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<serve <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	989	1082	
==>=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<serve <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28335	28425	
==>that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32887	32977	
==>that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32015	32105	
==>that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1359	1470	
==>ams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1359	1470	
==>ams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8438	8542	
==>:to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8438	8542	
==>:to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8438	8542	
==>:to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	67	177	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16652	16762	
==>eturn unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13073	13183	
==>eturn unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	67	177	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	67	177	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11702	11841	
==>evision>
                r<tmpl_var name=pugs_revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl_var <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3885	3983	
==>tor {

    # External packages used by the Locale::KeyedText::Translator class, that do export symb <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3885	3983	
==>tor {

    # External packages used by the Locale::KeyedText::Translator class, that do export symb <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7166	7256	
==>in general it is a bad idea

## ----------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7166	7256	
==>in general it is a bad idea

## ----------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	192	293	
==>st out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	192	293	
==>st out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	268	359	
==>l6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	268	359	
==>l6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	268	359	
==>l6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  ru <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11024	11126	
==>et. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set.

= <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8428	8530	
==>et. Returns the number of items removed.

It is not fatal to remove an item which is not in the set.

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11024	11126	
==>et. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set.

= <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8428	8530	
==>et. Returns the number of items removed.

It is not fatal to remove an item which is not in the set.

= <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29774	29873	
==>ute by passing a value.

=item my $q = $obj->qr()

The regex representation of this object.  It incl <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1740	2013	
==>{ 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1740	2013	
==>{ 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4865	4993	
==>?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4865	4993	
==>?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4865	4993	
==>?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0 <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8551	8700	
==>und-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding-top: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9784	9899	
==>is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9784	9899	
==>is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9784	9899	
==>is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_d <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1553	1645	
==>head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Blondie::Nodes> and <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18778	18892	
==>\) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15199	15313	
==>\) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1243	1352	
==>-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1243	1352	
==>-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1243	1352	
==>-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, <==
5	/Users/nnunley/pugs/util/combine_tests.pl	601	708	
==>umber of the older versions.
#
sub combine_tests{
    #
    # Collect all the test results indexed on filena <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10254	10354	
==>ault) {
    my $default; $default = DOWN($paramDefault) if defined($paramDefault);
    return { isInv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7788	7880	
==>ike: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7788	7880	
==>ike: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7788	7880	
==>ike: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3394	3508	
==>=> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bui <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3394	3508	
==>=> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bui <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3394	3508	
==>=> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bui <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3458	3553	
==>ver::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistrib <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3458	3553	
==>ver::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23369	23470	
==>0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23369	23470	
==>0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subst <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23369	23470	
==>0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subst <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	615	698	
==>-------------------------------------------------------------------------
## private <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	615	698	
==>-------------------------------------------------------------------------
## private <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3730	3879	
==>->{'%:methods'}};
        },                             
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '% <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13399	13505	
==>ip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, $extra) = $lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2764	2855	
==>ical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2764	2855	
==>ical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2764	2855	
==>ical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3971	4089	
==>at,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3971	4089	
==>at,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3971	4089	
==>at,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18867	18983	
==>of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15288	15404	
==>of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) } <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1524	1636	
==>-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $cont <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1524	1636	
==>-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4308	4412	
==>e()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4308	4412	
==>e()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4308	4412	
==>e()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1931	2042	
==>t';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blondie::Param;
    use base 'Bl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11612	11707	
==>()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8759	8854	
==>()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11612	11707	
==>()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8759	8854	
==>()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7614	7768	
==>ure_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7614	7768	
==>ure_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7614	7768	
==>ure_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' = <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1793	1901	
==>n( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1793	1901	
==>n( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	493	613	
==>%vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	493	613	
==>%vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	493	613	
==>%vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9731	9857	
==>$self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9731	9857	
==>$self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9731	9857	
==>$self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1307	1419	
==>(Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1307	1419	
==>(Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21988	22119	
==>reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21988	22119	
==>reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21988	22119	
==>reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	629	728	
==>es
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    })) <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	448	565	
==>$class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} do <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19934	20029	
==>ername> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18915	19010	
==>ername> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19934	20029	
==>ername> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18915	19010	
==>ername> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1808	1942	
==>$root));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2065	2192	
==>JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2065	2192	
==>JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2065	2192	
==>JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	189	310	
==>_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';' <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1113	1211	
==>can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supp <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1113	1211	
==>can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supp <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3635	3873	
==>!($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %event <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3635	3873	
==>!($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %event <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10826	10935	
==>tribute;
    method has_attribute;
    method get_attribute_list;            
}

----------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10826	10935	
==>tribute;
    method has_attribute;
    method get_attribute_list;            
}

----------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10826	10935	
==>tribute;
    method has_attribute;
    method get_attribute_list;            
}

----------------------------- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13227	13364	
==>cro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9413	9550	
==>cro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10249	10386	
==>cro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3660	3788	
==>r eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3648	3776	
==>r eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2773	2889	
==>}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2761	2877	
==>}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15455	15556	
==>($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15455	15556	
==>($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15455	15556	
==>($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MUL <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3471	3592	
==>n_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3471	3592	
==>n_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $spa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	332	432	
==>eturn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	293	393	
==>eturn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	293	393	
==>eturn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8147	8241	
==>Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8147	8241	
==>Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend i <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8243	8367	
==>> chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(877 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8243	8367	
==>> chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(877 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38402	38519	
==>$item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38402	38519	
==>$item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38402	38519	
==>$item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	509	615	
==>---------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## ---- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	509	615	
==>---------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## ---- <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2221	2324	
==>diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_ma <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2221	2324	
==>diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2301	2404	
==>diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13830	13964	
==>> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13830	13964	
==>> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13830	13964	
==>> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9718	9834	
==>embers },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9718	9834	
==>embers },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2096	2210	
==>an::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4315	4429	
==>an::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2096	2210	
==>an::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4315	4429	
==>an::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	194	297	
==>h to do the
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11689	11824	
==>ebug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2172	2304	
==>ebug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8944	9076	
==>ebug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2172	2304	
==>ebug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8944	9076	
==>ebug message 
    wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6494	6606	
==>mitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6494	6606	
==>mitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6494	6606	
==>mitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21548	21639	
==>atabases before, especially given that the Perl DBI purports to provide
"Database Independen <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21548	21639	
==>atabases before, especially given that the Perl DBI purports to provide
"Database Independen <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1957	2064	
==>ler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<Add <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1957	2064	
==>ler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<Add <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7009	7113	
==>>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7009	7113	
==>>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7009	7113	
==>>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1507	1665	
==>[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1507	1665	
==>[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9780	9881	
==>fo,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9780	9881	
==>fo,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name', <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9780	9881	
==>fo,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name', <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	889	1026	
==>s of the match
                     object, telling captures where in the deep structure
                     to store what they've captur <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	889	1026	
==>s of the match
                     object, telling captures where in the deep structure
                     to store what they've captur <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24957	25052	
==>ples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29509	29604	
==>ples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28421	28516	
==>ples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1435	1546	
==>no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modul <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1435	1546	
==>no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5649	5751	
==>}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5649	5751	
==>}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5649	5751	
==>}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	273	389	
==>d_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	273	389	
==>d_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	273	389	
==>d_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bin <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1772	1871	
==>look like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1772	1871	
==>look like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4498	4621	
==>inal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$f <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4890	5013	
==>inal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1707	1807	
==>eturn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declara <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1707	1807	
==>eturn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declara <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1707	1807	
==>eturn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declara <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2020	2167	
==>my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2020	2167	
==>my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2020	2167	
==>my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$f <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1832	1943	
==>my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$f <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1600	1703	
==>UNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5806	5927	
==>d'}->() ,} }
        #) ),
        #~ q(.) => Pugs::Compiler::Regex->compile( q(
            #~ <Pugs::Grammar::Term.barew <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2205	2323	
==>g;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2205	2323	
==>g;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2205	2323	
==>g;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
} <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11448	11558	
==>l::blessed($node));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->generic_reduce($n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1947	2065	
==>e;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1947	2065	
==>e;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5440	5541	
==>};
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5440	5541	
==>};
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5440	5541	
==>};
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34463	34569	
==>y =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34463	34569	
==>y =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34463	34569	
==>y =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	42	136	
==>to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Ut <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	42	136	
==>to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Ut <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6005	6165	
==>p->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string'),
                Val->new("\n"),
            ) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	316	456	
==>' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3704	3808	
==>umber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the f <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3704	3808	
==>umber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5901	6005	
==>umber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9514	9616	
==>outine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9514	9616	
==>outine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define an <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2263	2364	
==>ect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $in <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2263	2364	
==>ect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	393	503	
==>ength;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	393	503	
==>ength;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	393	503	
==>ength;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20762	20854	
==>tE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20762	20854	
==>tE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2817	2934	
==>"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2817	2934	
==>"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10087	10200	
==>h_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10087	10200	
==>h_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10087	10200	
==>h_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{ <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12511	12657	
==>($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6796	6915	
==>, [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6796	6915	
==>, [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6796	6915	
==>, [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })') <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9787	9902	
==>($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register meth <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9787	9902	
==>($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register meth <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9450	9592	
==>mper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9438	9580	
==>mper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19939	20032	
==>more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24491	24584	
==>more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23043	23136	
==>more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3025	3126	
==>t {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expor <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3025	3126	
==>t {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expor <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4549	4650	
==>t {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expor <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	126	220	
==>Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	126	220	
==>Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19440	19586	
==>LAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->er <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15861	16007	
==>LAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->er <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1065	1164	
==>umber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1065	1164	
==>umber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1065	1164	
==>umber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18662	18769	
==>at the user followed to the current
     page.  Most browsers pass this information as part of a
     reques <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18662	18769	
==>at the user followed to the current
     page.  Most browsers pass this information as part of a
     reques <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13187	13314	
==>d => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $dat <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13187	13314	
==>d => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2444	2552	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2444	2552	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2444	2552	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7077	7183	
==>rning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1417	1517	
==>rning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1417	1517	
==>rning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1417	1517	
==>rning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_su <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5532	5642	
==>ft;

		my $node = shift;
		my $expected_type = shift;

		my $de_facto_type = $node->type;
		
		warn "attempting <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20360	20456	
==>bot's socket to the server is currently connected.

Note that you might want to use the C<logged_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19308	19404	
==>bot's socket to the server is currently connected.

Note that you might want to use the C<logged_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20360	20456	
==>bot's socket to the server is currently connected.

Note that you might want to use the C<logged_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19308	19404	
==>bot's socket to the server is currently connected.

Note that you might want to use the C<logged_ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2675	2784	
==>onfig{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{' <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8009	8103	
==>stamp and
  $newest_p_stamp = -M "$parrot_path/runtime/parrot/include/$_"
  for @pfiles;

my $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1766	1858	
==>.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1766	1858	
==>.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1766	1858	
==>.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUB <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19853	19964	
==>ubstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16274	16385	
==>ubstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8916	9014	
==>UB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8916	9014	
==>UB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8916	9014	
==>UB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11562	11687	
==>{ rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11841	11966	
==>{ rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1431	1567	
==>. 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1431	1567	
==>. 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return P <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1880	2006	
==>e header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.k <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5357	5483	
==>e header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.k <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4287	4413	
==>e header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	703	828	
==>do>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "nex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	703	828	
==>do>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "nex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	703	828	
==>do>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "nex <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3340	3449	
==>rnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless { <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	111	220	
==>rnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6006	6141	
==>),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6006	6141	
==>),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6082	6188	
==>->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6082	6188	
==>->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6082	6188	
==>->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array- <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1696	1816	
==>or $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we fin <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1696	1816	
==>or $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we fin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	306	397	
==>})')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	306	397	
==>})')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	306	397	
==>})')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	14	123	
==>s
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    ha <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	14	123	
==>s
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	919	1013	
==>.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	919	1013	
==>.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs > <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	919	1013	
==>.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4548	4650	
==>ugh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4548	4650	
==>ugh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4548	4650	
==>ugh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regu <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	194	290	
==>tely the Match object that userland folks will
see, but it has some other clutter because of uncl <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	194	290	
==>tely the Match object that userland folks will
see, but it has some other clutter because of uncl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3851	3965	
==>stBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@:resul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1232	1338	
==>epc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1232	1338	
==>epc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1232	1338	
==>epc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{o <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14616	14713	
==>the count of elements that would have
been iterated.

The lvalue form of C<keys> is not longer sup <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37293	37385	
==>C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41842	41934	
==>C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@other <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5244	5355	
==>->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	107	214	
==>t);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	107	214	
==>t);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	107	214	
==>t);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5063	5168	
==>->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Fi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3900	3999	
==>should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bui <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3900	3999	
==>should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bui <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5424	5523	
==>should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Bui <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7181	7272	
==>PI, which permits the intercommunication 

of data about: backtracking, aborting, capturing. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6936	7026	
==>PI, which permits the intercommunication 
of data about: backtracking, aborting, capturing. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14658	14828	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14658	14828	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14658	14828	
==>:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $A <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11339	11430	
==>l_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_par <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11339	11430	
==>l_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_par <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1470	1605	
==>temAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1470	1605	
==>temAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1470	1605	
==>temAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12734	12829	
==>=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12734	12829	
==>=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7898	8033	
==>eturn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7898	8033	
==>eturn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7898	8033	
==>eturn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else { <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2187	2304	
==>cent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "ar <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2187	2304	
==>cent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2006	2174	
==>me                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2006	2174	
==>me                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2006	2174	
==>me                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10295	10394	
==>f the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` obje <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10295	10394	
==>f the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` obje <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3742	3861	
==>n $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Co <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3742	3861	
==>n $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10375	10479	
==>XX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10375	10479	
==>XX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10375	10479	
==>XX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6271	6428	
==>s_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  " <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6329	6486	
==>s_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21370	21462	
==>->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21370	21462	
==>->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21370	21462	
==>->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7302	7470	
==>$start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7302	7470	
==>$start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7302	7470	
==>$start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2112	2212	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2112	2212	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7465	7566	
==>re( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7465	7566	
==>re( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7465	7566	
==>re( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31235	31328	
==>::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you wa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31235	31328	
==>::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you wa <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1870	1966	
==>turn &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg):: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1870	1966	
==>turn &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg):: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	292	387	
==>hod JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	292	387	
==>hod JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	292	387	
==>hod JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3400	3533	
==>offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3400	3533	
==>offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3400	3533	
==>offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3155	3285	
==>ined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3155	3285	
==>ined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7142	7267	
==>an, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7142	7267	
==>an, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	550	640	
==>y $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	550	640	
==>y $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22146	22234	
==>char_type(C,alnum);char_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_type( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	691	808	
==>m_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocati <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	691	808	
==>m_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	465	578	
==>(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseCl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	465	578	
==>(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseCl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	465	578	
==>(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseCl <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	79	224	
==>$.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        el <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	79	224	
==>$.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4679	4778	
==>() {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mang <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4679	4778	
==>() {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mang <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4679	4778	
==>() {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mang <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2265	2368	
==><FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2265	2368	
==><FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6748	6848	
==>rom, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6748	6848	
==>rom, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6748	6848	
==>rom, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4852	4949	
==>{p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4852	4949	
==>{p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary d <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4852	4949	
==>{p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16107	16203	
==>c> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16107	16203	
==>c> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4835	4953	
==>rity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4835	4953	
==>rity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4835	4953	
==>rity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6879	6974	
==>->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7897	7992	
==>->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->f <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	810	925	
==>eys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	501	603	
==>We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	501	603	
==>We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	501	603	
==>We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman < <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13591	13684	
==>C (-6)

Switch condition not recognized

=item RPe_SWBRAN (-7)

Switch (?(condition)... contai <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	34	148	
==>e warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML                    qw[LoadFile] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20208	20303	
==>from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19167	19262	
==>from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20208	20303	
==>from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19167	19262	
==>from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C< <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1379	1494	
==>~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1379	1494	
==>~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22783	22877	
==>n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22783	22877	
==>n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22783	22877	
==>n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2002	2112	
==>_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2002	2112	
==>_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2082	2192	
==>_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3848	3944	
==>ource, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inva <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4032	4128	
==>ource, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inva <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	761	1064	
==>buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'he <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	761	1064	
==>buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1572	1722	
==>VarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1572	1722	
==>VarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1572	1722	
==>VarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $se <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3486	3608	
==>, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $exp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3486	3608	
==>, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $exp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5010	5132	
==>, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $exp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21789	21884	
==>monstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21789	21884	
==>monstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta:: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2957	3079	
==>st;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2957	3079	
==>st;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6520	6617	
==>outNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6520	6617	
==>outNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6520	6617	
==>outNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3984	4122	
==>nd a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3984	4122	
==>nd a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<on <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3984	4122	
==>nd a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<on <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10598	10694	
==>IONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) retur <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10598	10694	
==>IONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4599	4761	
==>eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # fo <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4599	4761	
==>eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3814	3914	
==>.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3814	3914	
==>.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3814	3914	
==>.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4196	4348	
==>-> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4196	4348	
==>-> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        re <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4346	4465	
==>al ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for conti <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4346	4465	
==>al ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for conti <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3181	3290	
==>nt STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8342	8459	
==>y of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8342	8459	
==>y of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8342	8459	
==>y of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2724	2838	
==>resis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumfle <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2724	2838	
==>resis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumfle <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12414	12519	
==>mfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12414	12519	
==>mfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12414	12519	
==>mfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arr <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2079	2174	
==>s the impression of lexically scoped marks (but it may also
limit the engine semantically, we sh <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2079	2174	
==>s the impression of lexically scoped marks (but it may also
limit the engine semantically, we sh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40299	40409	
==>ush {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40299	40409	
==>ush {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40299	40409	
==>ush {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub u <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1234	1326	
==>----------------------

Since you are using Microsoft Windows, you will need the 'nmake' util <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1074	1166	
==>----------------------

Since you are using Microsoft Windows, you will need the 'nmake' util <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1876	2283	
==>ation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	634	823	
==>}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	634	823	
==>}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11349	11446	
==>Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11349	11446	
==>Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3835	3946	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1612	1723	
==>}

sub divide {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "Th <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4028	4139	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1952	2049	
==>ither a static lookup (lex only) or a dynamic lookup. 



This object-serialization format is shar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1878	1973	
==>ither a static lookup (lex only) or a dynamic lookup. 

This object-serialization format is shar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35452	35589	
==>p_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35452	35589	
==>p_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35452	35589	
==>p_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $ar <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2280	2400	
==>e ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2420	2540	
==>e ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	33	165	
==>Config;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5396	5492	
==>oper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_su <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4526	4622	
==>oper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5396	5492	
==>oper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4526	4622	
==>oper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5398	5557	
==>else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5398	5557	
==>else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1263	1361	
==>ult
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1263	1361	
==>ult
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1263	1361	
==>ult
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	14	127	
==>et::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	14	127	
==>et::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	344	432	
==>er::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	344	432	
==>er::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	341	424	
==>er::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block> <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2314	2490	
==>,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2314	2490	
==>,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1835	1942	
==>E") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1835	1942	
==>E") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1835	1942	
==>E") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35458	35594	
==>$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35458	35594	
==>$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35458	35594	
==>$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array-> <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38552	38649	
==>nd '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38552	38649	
==>nd '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2815	2914	
==>CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2815	2914	
==>CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4386	4493	
==>$span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differe <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4386	4493	
==>$span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2312	2412	
==>[ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2312	2412	
==>[ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2312	2412	
==>[ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(n <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1228	1334	
==>nting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a s <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1228	1334	
==>nting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1156	1252	
==>kage, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1156	1252	
==>kage, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1156	1252	
==>kage, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6878	6991	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6878	6991	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6878	6991	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETC <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5912	6010	
==>use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromat <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5912	6010	
==>use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15405	15505	
==>MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15405	15505	
==>MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15405	15505	
==>MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5747	5842	
==>mmar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5548	5639	
==>mmar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7868	7995	
==>ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7868	7995	
==>ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7868	7995	
==>ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	592	717	
==>ath;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	592	717	
==>ath;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17403	17508	
==>sub { @_ ? $_[0] eq $expected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combinati <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3470	3592	
==>got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3470	3592	
==>got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4994	5116	
==>got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1386	1500	
==>cess_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $file = slurp($fname);
    # re <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1262	1366	
==>t;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	10495	10606	
==>>new(filename => catdir $start_dir, 
                     'util','catalog_tmpl','code.tmpl');  
  $template->par <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21809	21907	
==>necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20690	20788	
==>necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<r <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21809	21907	
==>necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<r <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20690	20788	
==>necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<r <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13426	13520	
==>tity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are l <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13426	13520	
==>tity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4894	5008	
==>tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4894	5008	
==>tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4894	5008	
==>tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3349	3444	
==>FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3349	3444	
==>FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	43	137	
==>y $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	43	137	
==>y $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	43	137	
==>y $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23998	24089	
==>ry|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blech <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23998	24089	
==>ry|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blech <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1534	1635	
==>hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1534	1635	
==>hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1534	1635	
==>hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	162	259	
==>CURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher-- <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	162	259	
==>CURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher-- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1296	1410	
==>ethodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1285	1391	
==>ethodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1075	1179	
==>t $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1075	1179	
==>t $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ( <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15591	15688	
==>(for example, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting to use a stri <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2828	2964	
==>PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compile <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2828	2964	
==>PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1369	1471	
==>to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1369	1471	
==>to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1369	1471	
==>to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebl <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1316	1425	
==>@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygw <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1243	1347	
==>@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygw <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1775	1876	
==>t -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1147	1247	
==>nstant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( consta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1147	1247	
==>nstant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( consta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	787	895	
==>tring tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	787	895	
==>tring tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2022	2127	
==>Val>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2022	2127	
==>Val>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2022	2127	
==>Val>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1011	1130	
==>hod object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1011	1130	
==>hod object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1011	1130	
==>hod object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Metho <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5838	5938	
==>returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5838	5938	
==>returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14397	14492	
==>rchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node clas <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14397	14492	
==>rchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node clas <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13906	14007	
==>mbined, so to try and make the least expensive kinds of combining
    # occur first, and most expensiv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17383	17484	
==>mbined, so to try and make the least expensive kinds of combining
    # occur first, and most expensiv <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16763	16864	
==>mbined, so to try and make the least expensive kinds of combining
    # occur first, and most expensiv <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23229	23327	
==>ation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
abili <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27781	27879	
==>ation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
abili <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	507	636	
==>efined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	507	636	
==>efined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	507	636	
==>efined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2823	2920	
==>.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI.

= <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2823	2920	
==>.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI.

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4550	4669	
==>$name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4562	4681	
==>$name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	689	804	
==>s is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	689	804	
==>s is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	689	804	
==>s is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neat <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	73	193	
==>name];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
} <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	78	198	
==>name];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
} <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	78	198	
==>name];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14985	15093	
==>}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $tex <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14985	15093	
==>}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $tex <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15227	15338	
==>eue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { en <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15227	15338	
==>eue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { en <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25953	26046	
==>ch other,
or duplicate attribute names that aren't being renamed.  This method
supports renami <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30505	30598	
==>ch other,
or duplicate attribute names that aren't being renamed.  This method
supports renami <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29480	29573	
==>ch other,
or duplicate attribute names that aren't being renamed.  This method
supports renami <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3575	3762	
==>H => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3575	3762	
==>H => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7129	7255	
==>y will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7129	7255	
==>y will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7129	7255	
==>y will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2417	2526	
==>\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shi <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3635	3736	
==>rence($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3635	3736	
==>rence($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4509	4609	
==>rence($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4509	4609	
==>rence($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6891	7061	
==>KGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod || /^=cut/);  # skip pod text
                n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2757	2883	
==>rg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $? <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7851	7977	
==>rg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2757	2883	
==>rg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $? <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7851	7977	
==>rg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $? <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9320	9424	
==>vent}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.co <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9320	9424	
==>vent}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1170	1270	
==>_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1170	1270	
==>_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1170	1270	
==>_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10532	10678	
==>array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10532	10678	
==>array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[id <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10532	10678	
==>array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[id <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	507	607	
==>Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Item | Junction;

package Math::Basi <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	782	877	
==>$self->Blondie::Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	755	897	
==>tanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	755	897	
==>tanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	755	897	
==>tanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefi <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2142	2246	
==>members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2142	2246	
==>members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4842	4963	
==>63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub u <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4842	4963	
==>63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1166	1274	
==>.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1166	1274	
==>.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1166	1274	
==>.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	235	346	
==>se Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	235	346	
==>se Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	235	346	
==>se Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1255	1345	
==>d includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._st <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1255	1345	
==>d includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._st <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7006	7104	
==>if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7006	7104	
==>if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $sp <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3306	3399	
==>::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3306	3399	
==>::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5503	5596	
==>::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4260	4399	
==>name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compil <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5581	5720	
==>name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4260	4399	
==>name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5569	5708	
==>name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9957	10101	
==>p::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10236	10380	
==>p::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1918	2046	
==>');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1918	2046	
==>');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1918	2046	
==>');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14200	14350	
==>@_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14200	14350	
==>@_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14200	14350	
==>@_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15235	15332	
==>creates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15235	15332	
==>creates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	913	1026	
==>ver::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	913	1026	
==>ver::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4724	4818	
==>($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4724	4818	
==>($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4724	4818	
==>($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10980	11221	
==>=> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10980	11221	
==>=> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10980	11221	
==>=> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3748	3933	
==>ch: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3633	3812	
==>ch: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7564	7719	
==>.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            're <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7564	7719	
==>.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            're <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7564	7719	
==>.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            're <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	387	489	
==>sages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::I <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	387	489	
==>sages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::I <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13776	13919	
==>$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3897	4028	
==>$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3897	4028	
==>$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3897	4028	
==>$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string, <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2510	2608	
==>ation of the node types

=head1 EXPORTS

For each node type a function named for its class (without <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	820	945	
==>::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	820	945	
==>::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6063	6172	
==>Newline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6063	6172	
==>Newline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6063	6172	
==>Newline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8928	9041	
==>e {
    my $params = @_ == 1 ? shift : { @_ };

    my $stub = $params->{env}->get($params->{name});
    my $diges <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4909	5018	
==>il eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4909	5018	
==>il eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4909	5018	
==>il eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1165	1263	
==>is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # ha <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1223	1321	
==>is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1720	1817	
==>urn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1720	1817	
==>urn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1956	2053	
==>urn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2096	2213	
==>tput\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <file <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	410	527	
==>tput\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <file <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2096	2213	
==>tput\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <file <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2096	2213	
==>tput\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <file <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5038	5133	
==>ng field names here is a major abstraction violation.
# Need to figure out positional constructo <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	350	482	
==>my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    } <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	344	476	
==>my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2865	2966	
==>f $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2865	2966	
==>f $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('glo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2865	2966	
==>f $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('glo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13995	14125	
==>lar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13995	14125	
==>lar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13995	14125	
==>lar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12979	13076	
==>, Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test w <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13037	13134	
==>, Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test w <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	82	188	
==>Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettung ist möglich:
$a < <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1913	2013	
==>al_hash_alias    {  \%<name>      \:\=  <construct>  }
rule construct  { <construct_but_not_alias>|<a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3516	3611	
==>rn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3516	3611	
==>rn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3516	3611	
==>rn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6786	6966	
==>gs, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6786	6966	
==>gs, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6786	6966	
==>gs, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5163	5278	
==>ing );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8640	8755	
==>ing );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16066	16168	
==>od(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16066	16168	
==>od(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16066	16168	
==>od(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19054	19147	
==>ame>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C<N <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19054	19147	
==>ame>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C<N <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7175	7285	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3779	3889	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4628	4738	
==>_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6597	6697	
==>ding === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10074	10174	
==>ding === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23529	23624	
==>r
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Dependin <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3266	3361	
==>setting the expected output and diagnostic output of tests,
running those tests, and then tellin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28081	28176	
==>r
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Dependin <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3266	3361	
==>setting the expected output and diagnostic output of tests,
running those tests, and then tellin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3346	3441	
==>setting the expected output and diagnostic output of tests,
running those tests, and then tellin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9601	9755	
==>md eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not imp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15145	15299	
==>md eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not imp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9601	9755	
==>md eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not imp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15139	15293	
==>md eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not imp <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5919	6014	
==>e_facto_type, $expected_type);

		warn "types do not eq";

		if ($self->is_placeholder($de_facto <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2927	3023	
==>,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2927	3023	
==>,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20543	20637	
==>me, and then invoking methods on those objects.  All of
their class/object attributes are priva <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25095	25189	
==>me, and then invoking methods on those objects.  All of
their class/object attributes are priva <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23665	23759	
==>me, and then invoking methods on those objects.  All of
their class/object attributes are priva <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1298	1391	
==>ou will need the 'nmake' utility
before installation. It's available at:

  http://download.mi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1138	1231	
==>ou will need the 'nmake' utility
before installation. It's available at:

  http://download.mi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3286	3371	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3286	3371	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3286	3371	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9897	10026	
==>)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9897	10026	
==>)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9897	10026	
==>)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17066	17177	
==>er data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17066	17177	
==>er data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20665	20768	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20665	20768	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20665	20768	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorp <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1955	2048	
==>air constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparisio <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1955	2048	
==>air constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparisio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6404	6510	
==>ft;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6404	6510	
==>ft;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6404	6510	
==>ft;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3985	4131	
==>$end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3985	4131	
==>$end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12636	12770	
==>nboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12636	12770	
==>nboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12636	12770	
==>nboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5590	5694	
==>$1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5590	5694	
==>$1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5590	5694	
==>$1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12454	12554	
==>placement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12454	12554	
==>placement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	949	1087	
==>an.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else { <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4188	4326	
==>an.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	949	1087	
==>an.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4188	4326	
==>an.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else { <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	664	790	
==>y $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	176	291	
==>sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	170	285	
==>sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	176	291	
==>sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	170	285	
==>sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param- <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10176	10270	
==>(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	255	361	
==>(Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	255	361	
==>(Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	255	361	
==>(Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	255	361	
==>(Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5110	5201	
==>ut positional constructors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24675	24829	
==>:capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24954	25108	
==>:capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	377	487	
==>= JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	377	487	
==>= JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	377	487	
==>= JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporti <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14624	14741	
==>SULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the output <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14624	14741	
==>SULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the output <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4098	4206	
==>\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(". <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4098	4206	
==>\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(". <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4098	4206	
==>\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(". <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2065	2285	
==>' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2065	2285	
==>' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18592	18694	
==>BLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are describe <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18592	18694	
==>BLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are describe <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	981	1077	
==>eturn;

    return $dir->subdir( $self->config->_alternatives );
}

=head2 $file = $inst->registe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9970	10165	
==>on,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	536	719	
==>on,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	536	719	
==>on,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3719	3827	
==>laut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '© <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3719	3827	
==>laut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '© <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6475	6653	
==>s => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Cod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6475	6653	
==>s => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Cod <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6475	6653	
==>s => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Cod <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10183	10308	
==>nnect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10183	10308	
==>nnect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2130	2270	
==>hive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $R <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2914	3027	
==>n && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2914	3027	
==>n && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_en <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7930	8026	
==>alled, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7930	8026	
==>alled, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7121	7229	
==>nless $self->is_extension_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flags .= " -I../../ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9786	9887	
==>ritable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9786	9887	
==>ritable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9786	9887	
==>ritable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4529	4617	
==>epeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	841	956	
==>t.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	841	956	
==>t.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	841	956	
==>t.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spr <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25797	25897	
==>r>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule ControlEscap <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1730	1828	
==>ss->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{$class->subc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2295	2415	
==>b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2295	2415	
==>b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2295	2415	
==>b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't fi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38389	38483	
==>fied
by interpolating the %msg_vars into it, where each variable value is
substituted for any o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38389	38483	
==>fied
by interpolating the %msg_vars into it, where each variable value is
substituted for any o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24086	24181	
==>ule is to avoid loops between a client automatically sending something
  in response to somethin <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22859	22954	
==>ule is to avoid loops between a client automatically sending something
  in response to somethin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24086	24181	
==>ule is to avoid loops between a client automatically sending something
  in response to somethin <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22859	22954	
==>ule is to avoid loops between a client automatically sending something
  in response to somethin <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14822	14915	
==>naryExpression>
    | <MultiplicativeExpression> <'*'> <UnaryExpression>
    | <Multiplicative <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	236	383	
==>_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        pus <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	728	845	
==>of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	728	845	
==>of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	728	845	
==>of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $lab <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	323	436	
==>_[2] ] ) },
    looser  => sub { splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   pus <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1064	1217	
==>self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1204	1357	
==>self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4167	4263	
==>list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4167	4263	
==>list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4247	4343	
==>list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1595	1743	
==>nstance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1595	1743	
==>nstance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1595	1743	
==>nstance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not re <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1390	1489	
==>on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1311	1406	
==>on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19149	19263	
==>lse {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tr <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20507	20621	
==>lse {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2890	2999	
==>s.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2890	2999	
==>s.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2890	2999	
==>s.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3844	3965	
==>mmar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $mat <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12332	12440	
==>$in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $out, $e <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22731	22827	
==>n contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_US <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	589	684	
==>=> q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	589	684	
==>=> q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18692	18809	
==>ranch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ift <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20050	20167	
==>ranch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ift <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	949	1060	
==>ead2 $struct = $alt->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	628	731	
==>:Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Exa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	628	731	
==>:Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14473	14604	
==>e overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14473	14604	
==>e overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14473	14604	
==>e overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21574	21668	
==>e other tuples.  All Relation
attributes may be individually addressed only by their names, and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26126	26220	
==>e other tuples.  All Relation
attributes may be individually addressed only by their names, and <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12096	12202	
==>q(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2878	2981	
==>thod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2878	2981	
==>thod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2878	2981	
==>thod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1650	1747	
==>and expects output from the test in a
certain format.  That format is called TAP, the Test Anythin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	876	985	
==>icals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# ID <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	876	985	
==>icals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# ID <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	876	985	
==>icals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# ID <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1282	1389	
==>@return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1282	1389	
==>@return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is e <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2439	2576	
==>tem Thunk

Something you thunk of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If y <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4544	4674	
==>" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $dire <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4532	4662	
==>" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $dire <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	651	778	
==>$dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	651	778	
==>$dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9373	9511	
==>'expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $sec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9373	9511	
==>'expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $sec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1533	1649	
==>tion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1533	1649	
==>tion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1533	1649	
==>tion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1297	1395	
==>ub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TO <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1297	1395	
==>ub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TO <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1297	1395	
==>ub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7721	7816	
==>[a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(anyof_char_comp => chr(hex $1), "\\X$1") if <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6609	6696	
==>5_elemental(matchref(I)) --> p5_matchref(I).
p5_elemental(ws(C))   --> [C], {isSpacePerl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11652	11774	
==>queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    } <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11652	11774	
==>queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3367	3474	
==>angle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3367	3474	
==>angle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3367	3474	
==>angle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly( <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1663	1762	
==>les/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1663	1762	
==>les/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3532	3629	
==>ould accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3532	3629	
==>ould accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3532	3629	
==>ould accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists. <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7693	7845	
==>f || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbit <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7693	7845	
==>f || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6435	6549	
==>eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6435	6549	
==>eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6435	6549	
==>eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17028	17122	
==>resource.

=item $h.content_length

A decimal number indicating the size in bytes of the messag <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17028	17122	
==>resource.

=item $h.content_length

A decimal number indicating the size in bytes of the messag <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1251	1337	
==>nternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1251	1337	
==>nternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1251	1337	
==>nternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	13	110	
==>Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	13	110	
==>Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	13	110	
==>Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14812	14904	
==>in attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This sto <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14812	14904	
==>in attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This sto <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	279	382	
==>retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.n <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	279	382	
==>retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5360	5462	
==>s.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5360	5462	
==>s.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7557	7659	
==>s.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test d <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	74	328	
==>, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EM <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	74	328	
==>, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EM <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	74	328	
==>, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EM <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	74	328	
==>, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EM <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	2445	2559	
==>ig_module {
    my $config = get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join " <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8289	8421	
==>@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0") <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8289	8421	
==>@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0") <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2737	2920	
==>stem( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            sys <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1411	1515	
==>mes}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::blessed($node) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23129	23226	
==>rforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21938	22035	
==>rforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23129	23226	
==>rforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21938	22035	
==>rforms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4547	4701	
==>ame =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4547	4701	
==>ame =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4547	4701	
==>ame =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7758	7869	
==>elf;
  }
}


{
  package Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    m <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	582	685	
==>eOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object->tokenTabl <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1482	1587	
==>.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1482	1587	
==>.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5103	5203	
==>f $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5103	5203	
==>f $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5103	5203	
==>f $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primiti <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2585	2696	
==>t of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6062	6173	
==>t of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4992	5103	
==>t of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

me <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3508	3604	
==>e as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it w <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3508	3604	
==>e as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12359	12485	
==>ess $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12638	12764	
==>ess $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2767	2863	
==>(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2767	2863	
==>(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2767	2863	
==>(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1758	1867	
==>: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1758	1867	
==>: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1758	1867	
==>: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21330	21425	
==>erent
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21330	21425	
==>erent
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2020	2143	
==>y \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2008	2131	
==>y \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10410	10531	
==>a}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tre <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2759	2858	
==>thing { <commit_rule> | <commit_alternation> | <commit_atom> }
rule commit_rule        { \:\:\: }
ru <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1064	1154	
==>utrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled with this library by I<Philip Hazel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4968	5073	
==>urce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4968	5073	
==>urce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4968	5073	
==>urce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16254	16356	
==>without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20680	20782	
==>without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5679	5804	
==>py   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5679	5804	
==>py   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5679	5804	
==>py   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1096	1192	
==>etermine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1096	1192	
==>etermine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Com <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2371	2502	
==>ute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effecti <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2371	2502	
==>ute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effecti <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36219	36334	
==>::Class->send('add_method' => (
    # method label
        symbol->new('get_attribute'),
    # method body
        m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1719	1824	
==>od header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1719	1824	
==>od header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1275	1393	
==>ched_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1275	1393	
==>ched_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1275	1393	
==>ched_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cac <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19637	19733	
==>ext> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19637	19733	
==>ext> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16517	16632	
==>0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16517	16632	
==>0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16517	16632	
==>0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1249	1360	
==>($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub f <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1249	1360	
==>($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	453	575	
==>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	453	575	
==>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	453	575	
==>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34953	35049	
==>s not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inters <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39503	39599	
==>s not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inters <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15917	16063	
==>return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15917	16063	
==>return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15917	16063	
==>return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7165	7272	
==>r $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Fa <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7223	7330	
==>r $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1100	1202	
==>le' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ver <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1100	1202	
==>le' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ver <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1100	1202	
==>le' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ver <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	281	380	
==>) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filt <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	281	380	
==>) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5761	5870	
==>igil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5761	5870	
==>igil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5761	5870	
==>igil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19783	19877	
==>t an authorization header that use the
"Basic Authentication Scheme".  In array context it will <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19783	19877	
==>t an authorization header that use the
"Basic Authentication Scheme".  In array context it will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	38	150	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	38	150	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	38	150	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2151	2250	
==>e has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2151	2250	
==>e has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15336	15453	
==>[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitiali <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15336	15453	
==>[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitiali <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15336	15453	
==>[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitiali <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3867	3963	
==>tem B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers fo <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3867	3963	
==>tem B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18326	18516	
==>ext_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18326	18516	
==>ext_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    pa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18326	18516	
==>ext_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    pa <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	472	576	
==>t;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCR <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	472	576	
==>t;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3499	3610	
==>= $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3499	3610	
==>= $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3499	3610	
==>= $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These ar <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	393	497	
==>keys %funcs) {
	for my $func (keys %funcs) {
		next if $func eq $key;
		print "$key -> $func\n" if $Conf{ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1029	1131	
==>" . Blondie::Emitter::Pretty->new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2589	2695	
==>));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2589	2695	
==>));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2589	2695	
==>));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef u <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40991	41081	
==>CKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40991	41081	
==>CKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7445	7552	
==>fference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7445	7552	
==>fference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5806	5900	
==>the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5806	5900	
==>the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7330	7424	
==>the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2300	2402	
==>ar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2300	2402	
==>ar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2300	2402	
==>ar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19138	19234	
==>*part of the program*, and not the program's users' own data; only
someone already involved in ma <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19138	19234	
==>*part of the program*, and not the program's users' own data; only
someone already involved in ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3546	3654	
==>e($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3546	3654	
==>e($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3546	3654	
==>e($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz su <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	645	747	
==>ired 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = $self-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	544	640	
==>ired 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self-> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6810	6938	
==>witch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7274	7402	
==>witch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1308	1411	
==>es
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1308	1411	
==>es
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1308	1411	
==>es
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arra <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	844	971	
==>ckage
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1802	1925	
==>, Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2545	2668	
==>, Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1802	1925	
==>, Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2533	2656	
==>, Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2933	3047	
==>A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1307	1421	
==>A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2933	3047	
==>A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2933	3047	
==>A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4850	4955	
==>, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	0	126	
==>use v6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      ' <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	0	126	
==>use v6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	771	890	
==>tList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	771	890	
==>tList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	771	890	
==>tList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3717	3816	
==>is the optional
description of the test.  This is the easiest way to match a passing test.

=item B< <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3717	3816	
==>is the optional
description of the test.  This is the easiest way to match a passing test.

=item B< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3797	3896	
==>is the optional
description of the test.  This is the easiest way to match a passing test.

=item B< <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1714	1808	
==>Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMN <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1714	1808	
==>Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMN <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5525	5691	
==>rcumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5525	5691	
==>rcumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4697	4816	
==>,
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_er <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5349	5468	
==>,
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_er <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5369	5460	
==>->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5369	5460	
==>->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5959	6050	
==>->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$' <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18957	19071	
==>egexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen;             /* length of precomp */ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5862	5958	
==>two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4992	5088	
==>two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5862	5958	
==>two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4992	5088	
==>two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	737	856	
==>::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	704	823	
==>::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3672	3766	
==>cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3672	3766	
==>cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3672	3766	
==>cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5749	5926	
==>dex;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5749	5926	
==>dex;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5749	5926	
==>dex;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              va <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2174	2292	
==>ck_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    con <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2174	2292	
==>ck_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4087	4261	
==>b { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4087	4261	
==>b { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4087	4261	
==>b { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')-> <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	4015	4135	
==>|
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD" <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6233	6340	
==>=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=q <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1518	1623	
==>pan;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1280	1385	
==>pan;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1518	1623	
==>pan;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1280	1385	
==>pan;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	26798	26891	
==> (int × α)", ":t pair(10)");
is(t($pair), "(int × str)", ":t pair(10)('foo')");
is(t($fst) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2848	2991	
==>ll(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ got <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3136	3271	
==>ll(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ got <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9554	9689	
==>ll(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ got <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3136	3271	
==>ll(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ got <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9554	9689	
==>ll(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ got <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11262	11379	
==>urce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14739	14856	
==>urce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14047	14164	
==>urce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1132	1221	
==>ead1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1132	1221	
==>ead1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	27029	27125	
==>α × β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β) → α", ":t fst");
is(t(ide( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	62	152	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	62	152	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	62	152	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0. <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	62	152	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0. <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1210	1360	
==>3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+--- <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3506	3656	
==>3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+--- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1210	1360	
==>3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+--- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3506	3656	
==>3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+--- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10245	10346	
==>$depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the depth to which it will
look: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6681	6791	
==>rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6681	6791	
==>rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6681	6791	
==>rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	174	277	
==>rate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	174	277	
==>rate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule va <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6248	6430	
==>dicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $oth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9725	9907	
==>dicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $oth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	317	426	
==>"PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	317	426	
==>"PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	317	426	
==>"PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' l <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1448	1555	
==>ndef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $p <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1448	1555	
==>ndef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $p <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1252	1350	
==>Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1252	1350	
==>Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1799	1897	
==>Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1294	1417	
==>bel eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1499	1622	
==>bel eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1560	1683	
==>bel eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $met <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2503	2598	
==>y = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2503	2598	
==>y = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1365	1559	
==>st_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1365	1559	
==>st_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1365	1559	
==>st_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->pus <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1124	1260	
==>{ 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1124	1260	
==>{ 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6281	6378	
==>'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6281	6378	
==>'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4176	4294	
==>('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4176	4294	
==>('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4176	4294	
==>('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15418	15509	
==>es::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15418	15509	
==>es::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2699	2804	
==>or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2699	2804	
==>or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2699	2804	
==>or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">" <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	783	885	
==>rt { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub re <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	783	885	
==>rt { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub re <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1484	1581	
==>assing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

o <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1484	1581	
==>assing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17185	17274	
==>ethods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17185	17274	
==>ethods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17185	17274	
==>ethods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31007	31177	
==>p[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31007	31177	
==>p[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31007	31177	
==>p[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11900	11993	
==>ar()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11900	11993	
==>ar()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$se <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5903	6008	
==>ling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5903	6008	
==>ling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	730	829	
==>Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	730	829	
==>Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object. <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	730	829	
==>Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7155	7258	
==>$kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7155	7258	
==>$kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1758	1854	
==>pc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1758	1854	
==>pc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1758	1854	
==>pc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1285	1385	
==>«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1285	1385	
==>«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2121	2216	
==>rectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2121	2216	
==>rectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2121	2216	
==>rectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37363	37457	
==>ed, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

Thi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37363	37457	
==>ed, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3095	3184	
==>age: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3095	3184	
==>age: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3095	3184	
==>age: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	491	583	
==>f = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	491	583	
==>f = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	491	583	
==>f = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9320	9410	
==>ar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3145	3235	
==>ar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	345	481	
==>d'};
            $params{'$.skip'}        = 0  unless exists $params{'$.skip'};
            $params{'$.todo'}        = 0  unless exists $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14476	14606	
==>verload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	401	531	
==>st   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_prefix  pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14476	14606	
==>verload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14476	14606	
==>verload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5554	5701	
==>my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5554	5701	
==>my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5554	5701	
==>my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')- <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3724	3822	
==>lly the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3724	3822	
==>lly the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1299	1413	
==>r array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1299	1413	
==>r array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1299	1413	
==>r array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	349	447	
==>ock_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	349	447	
==>ock_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14472	14672	
==>o effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17949	18149	
==>o effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17365	17565	
==>o effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8264	8420	
==>t {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8264	8420	
==>t {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8105	8213	
==>nt $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8105	8213	
==>nt $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8105	8213	
==>nt $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2917	3020	
==>do, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2975	3078	
==>do, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6129	6250	
==>_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3806	3926	
==>_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14607	14711	
==>} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14607	14711	
==>} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14607	14711	
==>} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END') <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5611	5742	
==>turn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5611	5742	
==>turn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5611	5742	
==>turn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9132	9236	
==>s absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### curren <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8832	8932	
==>s absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### curren <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	53	299	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Consta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	53	299	
==>packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Consta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12596	12741	
==>$_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12596	12741	
==>$_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12596	12741	
==>$_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13082	13216	
==>refix {
    my $n = $_[0];
    # print "prefix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7556	7660	
==>IL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7556	7660	
==>IL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7556	7660	
==>IL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @I <==
5	/Users/nnunley/pugs/util/package-osx.pl	4907	5004	
==>man/man3/Perl6::Bible::S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/loca <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12643	12767	
==>d_backwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3093	3195	
==>ocal *ExtUtils::Manifest::manicheck = sub { return };

    require Module::Build;
    my $build = Modul <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5739	5834	
==>over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5739	5834	
==>over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7936	8031	
==>over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5448	5569	
==>ate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6716	6837	
==>ate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5448	5569	
==>ate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6704	6825	
==>ate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6232	6329	
==>ces of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($iBar-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1688	1838	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1688	1838	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1688	1838	
==>} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24719	24816	
==>should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24719	24816	
==>should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2505	2602	
==>@varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2505	2602	
==>@varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2505	2602	
==>@varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",ma <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	665	758	
==>(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigg <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	665	758	
==>(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	773	902	
==>GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	773	902	
==>GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	773	902	
==>GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8314	8414	
==>t's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8314	8414	
==>t's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8009	8142	
==>refix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13603	13736	
==>refix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8009	8142	
==>refix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13597	13730	
==>refix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $pr <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21810	21931	
==>ocal pmc reps

    iscapture = self["iscapture"]
    if iscapture == 0 goto end
    cname = self["cname"]
    isarray = pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4631	4776	
==>rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4631	4776	
==>rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4631	4776	
==>rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a. <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3510	3612	
==>xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3510	3612	
==>xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1498	1596	
==>turn Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1498	1596	
==>turn Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	360	457	
==>waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	360	457	
==>waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	360	457	
==>waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9753	9860	
==>y( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13230	13337	
==>y( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12502	12609	
==>y( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19729	19826	
==>et data type, the Relation data type is immutable.  The value of
a Relation object is determined w <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24281	24378	
==>et data type, the Relation data type is immutable.  The value of
a Relation object is determined w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9077	9195	
==>ngle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9077	9195	
==>ngle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9077	9195	
==>ngle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        m <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15187	15281	
==>ray contexts, the encoded or
decoded string is returned (without changing the input string).

I <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15187	15281	
==>ray contexts, the encoded or
decoded string is returned (without changing the input string).

I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6546	6648	
==>f $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6546	6648	
==>f $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.re <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6546	6648	
==>f $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18320	18412	
==>he Engines will employ appropriate measures
such as system-managed locks so that resource cor <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18320	18412	
==>he Engines will employ appropriate measures
such as system-managed locks so that resource cor <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9572	9672	
==>kip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3228	3328	
==>ass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclas <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9630	9730	
==>kip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3228	3328	
==>ass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3228	3328	
==>ass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclas <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4669	4844	
==>match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4669	4844	
==>match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8164	8289	
==>en variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8164	8289	
==>en variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8164	8289	
==>en variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "ne <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4678	4779	
==>ta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual mach <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4678	4779	
==>ta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual mach <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14075	14179	
==>reate a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $ts <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14075	14179	
==>reate a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $ts <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19789	19889	
==>o "Forces generic Item context"?
}

 
 multi prefix:<:16> ( Str $hexstr = CALLER::<$_> --> Num )
{ Pu <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12542	12641	
==>string charlist
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(m <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24571	24653	
==>place_at_n_if_undef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5095	5226	
==>if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5095	5226	
==>if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	827	941	
==>than one result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _rec <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6414	6513	
==>}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6414	6513	
==>}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2001	2148	
==>Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2001	2148	
==>Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2001	2148	
==>Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key). <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6285	6400	
==>circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6285	6400	
==>circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2592	2717	
==>->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2592	2717	
==>->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1450	1550	
==>ified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1450	1550	
==>ified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1450	1550	
==>ified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10625	10732	
==>6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10625	10732	
==>6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10625	10732	
==>6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8103	8202	
==>h as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them settin <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8103	8202	
==>h as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them settin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7655	7827	
==>unt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7655	7827	
==>unt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7655	7827	
==>unt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20339	20437	
==>he hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f92 <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20339	20437	
==>he hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f92 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	69	189	
==>ethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method head <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	69	189	
==>ethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11519	11638	
==>may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11519	11638	
==>may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11519	11638	
==>may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	832	941	
==>if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	832	941	
==>if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1303	1410	
==>tions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for uns <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1303	1410	
==>tions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for uns <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1303	1410	
==>tions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for uns <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	189	291	
==>t(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	189	291	
==>t(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	189	291	
==>t(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8598	8687	
==>tatements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2423	2512	
==>tatements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	201	325	
==>al_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acce <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	201	325	
==>al_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acce <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	201	325	
==>al_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acce <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8714	8815	
==>nd fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is ad <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8714	8815	
==>nd fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is ad <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10520	10628	
==>n
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10520	10628	
==>n
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7430	7516	
==>Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7430	7516	
==>Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7430	7516	
==>Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(func <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4866	4965	
==>%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3993	4092	
==>%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4866	4965	
==>%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3993	4092	
==>%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24044	24142	
==>egcomp.h:
 * The "internal use only" fields in regexp.h are present to pass info from
 * compile to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1414	1523	
==>a attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1414	1523	
==>a attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1414	1523	
==>a attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9449	9539	
==>pplication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statement <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3274	3364	
==>pplication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statement <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19162	19292	
==>ad 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19162	19292	
==>ad 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19162	19292	
==>ad 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:na <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9755	9853	
==>{ 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'R <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9755	9853	
==>{ 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'R <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23553	23657	
==>S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19974	20078	
==>S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36994	37089	
==>or these their joining
degenerates to a C<intersection>.  In any situation where a pair of sourc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41543	41638	
==>or these their joining
degenerates to a C<intersection>.  In any situation where a pair of sourc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41166	41261	
==>or these their joining
degenerates to a C<intersection>.  In any situation where a pair of sourc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2771	2870	
==>d work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pugs::Comp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2669	2766	
==>d work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11288	11382	
==>ses like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syn <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11288	11382	
==>ses like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syn <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23590	23678	
==>e,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Replace,[ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7020	7132	
==>t',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7020	7132	
==>t',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3644	3750	
==>*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3644	3750	
==>*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3644	3750	
==>*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FET <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1139	1275	
==>:Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                di <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1139	1275	
==>:Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1381	1484	
==>rent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1381	1484	
==>rent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1381	1484	
==>rent_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8689	8806	
==>span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8689	8806	
==>span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	729	844	
==>an ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	729	844	
==>an ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	9	111	
==>ähler? Nee nur Kartoffeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $pota <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	53	152	
==>mentation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	53	152	
==>mentation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engi <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	936	1074	
==>egister {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	936	1074	
==>egister {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	775	895	
==>$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	775	895	
==>$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	775	895	
==>$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31459	31572	
==>n "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31459	31572	
==>n "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31459	31572	
==>n "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $le <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1281	1384	
==>names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1225	1324	
==>names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1647	1773	
==>ame  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we have <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1647	1773	
==>ame  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we have <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22021	22111	
==>xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22021	22111	
==>xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22021	22111	
==>xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7585	7693	
==>e}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7585	7693	
==>e}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequot <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7585	7693	
==>e}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequot <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1874	1974	
==>, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1932	2032	
==>, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8797	9010	
==>) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    fo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5157	5370	
==>) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    fo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6006	6219	
==>) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2596	2701	
==>compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variabl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2596	2701	
==>compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34527	34630	
==>fy( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34527	34630	
==>fy( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34527	34630	
==>fy( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::num <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3035	3134	
==>ends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3093	3192	
==>ends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	280	384	
==>s method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	280	384	
==>s method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	280	384	
==>s method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19224	19318	
==>www_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19224	19318	
==>www_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5033	5140	
==>cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5033	5140	
==>cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5033	5140	
==>cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19568	19673	
==>ns is correct
my $app_to_str = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => " <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	599	693	
==>n object model object called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1557	1665	
==>ent_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1557	1665	
==>ent_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	58	164	
==>e objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	58	164	
==>e objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	58	164	
==>e objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2777	2882	
==>gs, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2777	2882	
==>gs, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2777	2882	
==>gs, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1785	1883	
==>f the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some feature <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1785	1883	
==>f the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some feature <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7223	7348	
==>);
        push @index_files, map { $path->file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    retu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4349	4444	
==>ed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15785	15880	
==>ed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4349	4444	
==>ed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15785	15880	
==>ed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1350	1500	
==>> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub multi method submethod
        my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	36	139	
==>e;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1618	1719	
==>jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1618	1719	
==>jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1618	1719	
==>jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user} <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8187	8419	
==>start => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8187	8419	
==>start => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2560	2652	
==>r $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2560	2652	
==>r $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2560	2652	
==>r $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36490	36605	
==>tems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36490	36605	
==>tems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36490	36605	
==>tems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24377	24468	
==>.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free softw <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24377	24468	
==>.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free softw <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8277	8394	
==>);
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8277	8394	
==>);
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16468	16563	
==>paque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16468	16563	
==>paque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16468	16563	
==>paque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('S <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13575	13679	
==>guments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <?ws_required> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8712	8811	
==>ant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seem <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8712	8811	
==>ant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seem <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8970	9067	
==>ant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seem <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8970	9067	
==>ant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2035	2303	
==>oxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2035	2303	
==>oxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2035	2303	
==>oxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10208	10310	
==>w.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of o <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10208	10310	
==>w.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of o <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	489	586	
==>t

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at lea <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	489	586	
==>t

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at lea <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	948	1043	
==><plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	948	1043	
==><plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1495	1590	
==><plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5115	5221	
==>m);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5115	5221	
==>m);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5115	5221	
==>m);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8630	8721	
==>.

It also describes the same-number versions of Rosetta::Model::Document
("Document") and R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8630	8721	
==>.

It also describes the same-number versions of Rosetta::Model::Document
("Document") and R <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2750	2950	
==>Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::In <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2750	2950	
==>Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::In <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13121	13228	
==>return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16598	16705	
==>return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15960	16067	
==>return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8613	8742	
==>to the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4973	5102	
==>to the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5822	5951	
==>to the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10334	10443	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10613	10722	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	577	681	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	577	681	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	577	681	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File:: <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11480	11572	
==>compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This func <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11538	11630	
==>compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This func <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7070	7212	
==>'$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't supp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7070	7212	
==>'$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't supp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7070	7212	
==>'$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't supp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7347	7440	
==>ternation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operator <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7097	7187	
==>ternation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operator <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3265	3420	
==>}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3512	3667	
==>}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3196	3348	
==>lems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3196	3348	
==>lems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3196	3348	
==>lems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6 <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7956	8089	
==>f we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7956	8089	
==>f we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12202	12305	
==>or current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12202	12305	
==>or current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, unde <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12202	12305	
==>or current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, unde <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	481	596	
==>each my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unl <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9676	9789	
==>nsure => sub { `mount` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1242	1345	
==>6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1242	1345	
==>6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1242	1345	
==>6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output}, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	313	423	
==>OUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	313	423	
==>OUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	313	423	
==>OUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2314	2413	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2314	2413	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2314	2413	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5390	5487	
==>nnels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5390	5487	
==>nnels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34869	34966	
==>> along
their common attributes.  This method will fail if the heading of <$other>
is not a subset <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39419	39516	
==>> along
their common attributes.  This method will fail if the heading of <$other>
is not a subset <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38952	39049	
==>> along
their common attributes.  This method will fail if the heading of <$other>
is not a subset <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16243	16338	
==>es (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the paramet <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16243	16338	
==>es (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the paramet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15543	15658	
==>), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling lat <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15543	15658	
==>), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling lat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	698	802	
==>nboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	698	802	
==>nboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_b <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	698	802	
==>nboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_b <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2277	2406	
==>\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2277	2406	
==>\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2170	2269	
==>t($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2170	2269	
==>t($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1309	1407	
==>,
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1309	1407	
==>,
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1309	1407	
==>,
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unk <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9313	9451	
==>port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('pat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9313	9451	
==>port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2845	2978	
==>= <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2845	2978	
==>= <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2845	2978	
==>= <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1765	1892	
==>. '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1765	1892	
==>. '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1765	1892	
==>. '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1047	1136	
==>udrey Tang E<lt>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled with this library <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6383	6481	
==>» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $on <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5513	5611	
==>» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6383	6481	
==>» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5513	5611	
==>» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $on <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6851	6955	
==>ailure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate mo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6851	6955	
==>ailure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17640	17733	
==>B infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17640	17733	
==>B infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17640	17733	
==>B infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9233	9360	
==>/^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9233	9360	
==>/^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3890	3987	
==>stituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3890	3987	
==>stituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3890	3987	
==>stituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12169	12266	
==>ndle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $fro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12169	12266	
==>ndle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $fro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2072	2163	
==>:store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2072	2163	
==>:store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2072	2163	
==>:store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1487	1598	
==>::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  h <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1487	1598	
==>::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4491	4585	
==>rides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4491	4585	
==>rides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4491	4585	
==>rides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1433	1537	
==>f;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1433	1537	
==>f;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1433	1537	
==>f;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38958	39080	
==>osures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38958	39080	
==>osures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38958	39080	
==>osures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1256	1370	
==>ubname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1248	1354	
==>ubname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2049	2156	
==>easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.n <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2049	2156	
==>easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6168	6259	
==>:Test::WithReason role
and override some methods to provide additional features.

=item B<Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6168	6259	
==>:Test::WithReason role
and override some methods to provide additional features.

=item B<Te <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8365	8456	
==>:Test::WithReason role
and override some methods to provide additional features.

=item B<Te <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17393	17487	
==>o developers and users alike.

For some practical examples of Locale::KeyedText in use, see the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17393	17487	
==>o developers and users alike.

For some practical examples of Locale::KeyedText in use, see the <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1879	1976	
==>s, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method byt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1879	1976	
==>s, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method byt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1879	1976	
==>s, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method byt <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3010	3106	
==>.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3010	3106	
==>.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	826	934	
==>skell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	826	934	
==>skell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	826	934	
==>skell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6419	6515	
==>s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xTy <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6419	6515	
==>s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xTy <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1133	1233	
==>? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1133	1233	
==>? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1133	1233	
==>? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21514	21609	
==>r program which uses yours may wish to
override some of your messages, showing other messages in <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21514	21609	
==>r program which uses yours may wish to
override some of your messages, showing other messages in <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2638	2741	
==>ontainer::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( i <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2638	2741	
==>ontainer::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1735	1826	
==>nted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1735	1826	
==>nted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1735	1826	
==>nted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4464	4600	
==>tributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4464	4600	
==>tributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1119	1238	
==>ass, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1119	1238	
==>ass, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1119	1238	
==>ass, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	125	223	
==>on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	125	223	
==>on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	125	223	
==>on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm, <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10341	10432	
==>def","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11076	11167	
==>def","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined( <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1447	1559	
==>ie $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1447	1559	
==>ie $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2901	3012	
==>ie $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3580	3671	
==>$self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3580	3671	
==>$self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5100	5191	
==>compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1057	1148	
==>compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	917	1008	
==>compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5100	5191	
==>compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1057	1148	
==>compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and oth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17657	17836	
==>ay' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'revers <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17657	17836	
==>ay' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'revers <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17657	17836	
==>ay' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'revers <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10728	10833	
==>.5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <Sour <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1045	1148	
==>urn $a.'.'.$b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "pack <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3034	3186	
==>2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3034	3186	
==>2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	628	728	
==>[map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	628	728	
==>[map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	628	728	
==>[map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11837	11955	
==>symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbo <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	246	359	
==>symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19236	19333	
==>instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19236	19333	
==>instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19236	19333	
==>instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => : <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	853	975	
==>ow err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	853	975	
==>ow err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	853	975	
==>ow err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<wh <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2056	2168	
==>d $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - univers <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2056	2168	
==>d $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - univers <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1096	1195	
==>'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1096	1195	
==>'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1096	1195	
==>'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30675	30769	
==>ation has all of the tuples of the
original (or rather, the corresponding transformation of eac <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35226	35320	
==>ation has all of the tuples of the
original (or rather, the corresponding transformation of eac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3872	3996	
==>Parser::__object__ );

  sub new {
    my ($class, $rx, $neg, @data) = @_;
    my $self = bless {
      rx => $rx,
      flag <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2812	2915	
==>e($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2812	2915	
==>e($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9649	9745	
==>:Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `inters <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9649	9745	
==>:Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `inters <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18225	18412	
==>ta::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18225	18412	
==>ta::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   | <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18225	18412	
==>ta::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   | <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18150	18247	
==>rface, if at all.  To account for situations where multiple DBMS
objects want to use the same exte <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18150	18247	
==>rface, if at all.  To account for situations where multiple DBMS
objects want to use the same exte <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	265	384	
==>gin>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	269	388	
==>gin>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	265	384	
==>gin>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	269	388	
==>gin>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2622	2725	
==>$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_control'}  = [ 'control.tgz'   ];
$c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2962	3081	
==>'...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3811	3930	
==>'...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4256	4368	
==>et2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differenc <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4256	4368	
==>et2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differenc <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2297	2389	
==>ntax Tree, and can be executed by a
runtime. An example runtime is L<Blondie::Backend::Perl>, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11613	11723	
==>local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11613	11723	
==>local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11613	11723	
==>local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3562	3667	
==>PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.arg <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3562	3667	
==>PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.arg <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7163	7311	
==>vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7163	7311	
==>vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23986	24097	
==>{ rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23986	24097	
==>{ rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23986	24097	
==>{ rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1491	1762	
==>}     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $m <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1491	1762	
==>}     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5436	5539	
==>) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5436	5539	
==>) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5436	5539	
==>) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14668	14771	
==>("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14668	14771	
==>("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	96	198	
==>in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	96	198	
==>in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	96	198	
==>in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4918	5021	
==>se pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4918	5021	
==>se pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAG <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4918	5021	
==>se pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAG <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35526	35620	
==>n array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this obj <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35526	35620	
==>n array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15526	15637	
==>celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15526	15637	
==>celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15526	15637	
==>celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3867	3961	
==>KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator clas <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3867	3961	
==>KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator clas <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6523	6716	
==>.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6523	6716	
==>.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	176	270	
==>f->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	176	270	
==>f->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	176	270	
==>f->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self-> <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6351	6449	
==>p{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22161	22255	
==>nel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21042	21136	
==>nel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22161	22255	
==>nel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate) <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21042	21136	
==>nel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39365	39481	
==>b pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39365	39481	
==>b pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->el <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39365	39481	
==>b pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26495	26684	
==>', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26495	26684	
==>', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26495	26684	
==>', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	196	303	
==>tml>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browse <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	196	303	
==>tml>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7795	7930	
==>);
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7795	7930	
==>);
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7795	7930	
==>);
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10940	11047	
==>@blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10940	11047	
==>@blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	723	825	
==>8-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	723	825	
==>8-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	723	825	
==>8-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9218	9323	
==>my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9218	9323	
==>my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9218	9323	
==>my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4864	4961	
==>rsion
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4864	4961	
==>rsion
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3003	3109	
==>ift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infini <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3003	3109	
==>ift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infini <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32556	32649	
==>s multi-method is the N-ary version of the aforementioned binary union()
operator, and the ord <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37106	37199	
==>s multi-method is the N-ary version of the aforementioned binary union()
operator, and the ord <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36414	36507	
==>s multi-method is the N-ary version of the aforementioned binary union()
operator, and the ord <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1962	2139	
==>:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5749	5926	
==>:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1962	2139	
==>:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5749	5926	
==>:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3445	3565	
==>kup?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= join(q{}, q{:}, $cygro <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23988	24080	
==>g and
Body attributes are set respectively from the optional named parameters
C<$heading> and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28540	28632	
==>g and
Body attributes are set respectively from the optional named parameters
C<$heading> and <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27371	27463	
==>g and
Body attributes are set respectively from the optional named parameters
C<$heading> and <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23003	23091	
==>channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23003	23091	
==>channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6729	6847	
==>t you want (str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule()



### inter <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29012	29122	
==>NTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29012	29122	
==>NTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module M <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6504	6613	
==>t you want (str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule()

### inter <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	367	465	
==>NTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module M <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5032	5175	
==>L',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configurati <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4858	4995	
==>L',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configurati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5418	5516	
==>: $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5418	5516	
==>: $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5418	5516	
==>: $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6670	6784	
==>nd $1 >= 6 and $2 >= 4);

    if ($ghc_lt_640 or ($ghc_version =~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4874	4976	
==>$diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4874	4976	
==>$diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1373	1472	
==>er_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1373	1472	
==>er_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4053	4164	
==>mit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::vari <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4902	5013	
==>mit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::vari <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6421	6527	
==>+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6421	6527	
==>+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6421	6527	
==>+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17030	17204	
==>&Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17030	17204	
==>&Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17030	17204	
==>&Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2181	2326	
==>== 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return B <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2181	2326	
==>== 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return B <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	438	572	
==>ium>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, thi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	438	572	
==>ium>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23909	24082	
==>um' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23909	24082	
==>um' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23909	24082	
==>um' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1508	1603	
==>her API's procedural interface is good enough for many purposes.  
Although the interface is sai <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1508	1603	
==>her API's procedural interface is good enough for many purposes.  
Although the interface is sai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10753	10859	
==>}
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obj <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10753	10859	
==>}
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obj <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10753	10859	
==>}
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obj <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1119	1214	
==>ulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

C <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1119	1214	
==>ulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1928	2039	
==>) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2363	2474	
==>) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2800	2911	
==>) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	937	1043	
==>op
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	937	1043	
==>op
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
c <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	902	1011	
==>addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modu <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	902	1011	
==>addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	357	460	
==>my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	357	460	
==>my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	357	460	
==>my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	707	828	
==>le';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struct <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	912	1033	
==>le';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struct <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	968	1089	
==>le';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struct <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20195	20293	
==>st> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12.2
      <Vari <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21570	21665	
==>a[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_min sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	375	498	
==>\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Gra <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15708	15800	
==>em $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15708	15800	
==>em $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1707	1798	
==>her::Arcfour also includes several attributes which might be interesting to 
people interest <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1707	1798	
==>her::Arcfour also includes several attributes which might be interesting to 
people interest <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4824	5063	
==>ize = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4824	5063	
==>ize = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10435	10614	
==>ize = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10435	10614	
==>ize = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10435	10614	
==>ize = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7916	8037	
==>eanup($v,$prefix);
	    } elsif(defined $v) {
		$$o{$_} = "$prefix$v"
		    if $v =~ /^(PNil|PNoop|TCxtVoid|VUndef|CxtVoid <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11887	11997	
==>{&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12310	12420	
==>{&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4530	4640	
==>{&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4953	5063	
==>{&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	723	843	
==>f->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = dele <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	885	1005	
==>f->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = dele <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2602	2707	
==>turn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6079	6184	
==>turn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5009	5114	
==>turn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	692	801	
==>ile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	692	801	
==>ile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	692	801	
==>ile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # I <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6034	6136	
==>, 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 4, '... $Object <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2437	2529	
==>em * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=item * L<Pugs::Emi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12224	12341	
==>LASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12224	12341	
==>LASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12224	12341	
==>LASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->( <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2279	2392	
==>ency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{packa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3636	3745	
==>ency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{packa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8790	8970	
==>ey ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8790	8970	
==>ey ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8790	8970	
==>ey ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->n <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27124	27242	
==>::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAM <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27124	27242	
==>::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAM <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5846	5962	
==>eturn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5846	5962	
==>eturn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5846	5962	
==>eturn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppli <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6895	6988	
==>cking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHAN <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6895	6988	
==>cking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHAN <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	444	611	
==>atch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	444	611	
==>atch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6974	7072	
==>implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1329	1425	
==>implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	428	523	
==>implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "not i <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6771	6879	
==>$result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6771	6879	
==>$result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2654	2751	
==>$multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2654	2751	
==>$multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2654	2751	
==>$multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13530	13643	
==>e's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17007	17120	
==>e's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16369	16482	
==>e's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	486	585	
==>lt = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  retu <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	486	585	
==>lt = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19658	19753	
==>r block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> sta <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19658	19753	
==>r block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> sta <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1452	1595	
==>all the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	111	240	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	111	240	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	111	240	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21355	21467	
==>lf[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2828	2939	
==>a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2828	2939	
==>a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2828	2939	
==>a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3006	3103	
==>addr>

The IP address of the client, if available.

=back

In addition, the following request head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3006	3103	
==>addr>

The IP address of the client, if available.

=back

In addition, the following request head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16338	16442	
==>(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB mat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16338	16442	
==>(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB mat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16338	16442	
==>(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB mat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17155	17251	
==>ween your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embed <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17155	17251	
==>ween your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embed <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18591	18685	
==>objects between multiple threads, nor have objects in separate
threads try to access the same e <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18591	18685	
==>objects between multiple threads, nor have objects in separate
threads try to access the same e <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	902	1011	
==>rl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurr <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	902	1011	
==>rl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2782	2886	
==>turn $self unless $self->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_provide <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10449	10548	
==>d quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10449	10548	
==>d quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	513	642	
==>));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	513	642	
==>));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	513	642	
==>));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functi <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	968	1085	
==>andic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    " <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	968	1085	
==>andic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11732	11869	
==>$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6046	6177	
==>$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6046	6177	
==>$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	968	1058	
==>ttributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	968	1058	
==>ttributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_node <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25347	25472	
==>my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25906	26031	
==>my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16099	16198	
==>params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16099	16198	
==>params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16099	16198	
==>params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6488	6687	
==>= 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6488	6687	
==>= 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	940	1052	
==>sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5504	5596	
==>ltipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type")) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5504	5596	
==>ltipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type")) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5376	5536	
==>l')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5376	5536	
==>l')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5376	5536	
==>l')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) }, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10180	10311	
==>e    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10180	10311	
==>e    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18428	18533	
==>ct>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an I <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18428	18533	
==>ct>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	491	584	
==>lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	491	584	
==>lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	491	584	
==>lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	795	892	
==>are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	795	892	
==>are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	795	892	
==>are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorit <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4847	4941	
==>ack

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be call <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4847	4941	
==>ack

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be call <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21483	21602	
==>andler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17904	18023	
==>andler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5411	5518	
==>for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sourc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5411	5518	
==>for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sourc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5411	5518	
==>for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sourc <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16301	16428	
==>uct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        st <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20727	20854	
==>uct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        st <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7392	7503	
==>ues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7392	7503	
==>ues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7392	7503	
==>ues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8119	8252	
==>t "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8131	8264	
==>t "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6761	6859	
==>"The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6761	6859	
==>"The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6761	6859	
==>"The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3215	3320	
==>me umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3215	3320	
==>me umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3796	3897	
==>me umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3796	3897	
==>me umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($c <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6898	6995	
==>(@_);
	$self->{t} ||= type::operator::nullary->new("int");
	$self;
}


package types;

use Class:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2480	2601	
==>n_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2480	2601	
==>n_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2480	2601	
==>n_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhe <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	45	163	
==>s (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $ <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	45	163	
==>s (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2353	2473	
==>};
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2353	2473	
==>};
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2353	2473	
==>};
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	688	783	
==>match->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	688	783	
==>match->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    di <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1605	1819	
==>aft.pod 8651.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1524	1645	
==>ay ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1524	1645	
==>ay ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15227	15330	
==>SIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9425	9528	
==>SIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11852	11975	
==>ne, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11852	11975	
==>ne, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1269	1367	
==>_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1269	1367	
==>_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1269	1367	
==>_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1621	1717	
==>d Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1621	1717	
==>d Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Ciph <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14888	14982	
==>he code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14888	14982	
==>he code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14888	14982	
==>he code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1994	2184	
==>xt::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1994	2184	
==>xt::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	559	652	
==>*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	559	652	
==>*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	559	652	
==>*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5253	5366	
==>stant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6521	6634	
==>stant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5253	5366	
==>stant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6509	6622	
==>stant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	1683	1781	
==>in a
certain format.  That format is called TAP, the Test Anything
Protocol.  It is defined in L<Te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1200	1330	
==>++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1911	2037	
==>t_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1911	2037	
==>t_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1911	2037	
==>t_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $met <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7260	7361	
==>lf->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_fla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18374	18466	
==>B infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18374	18466	
==>B infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18374	18466	
==>B infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8708	8799	
==>head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cr <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8708	8799	
==>head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cr <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	518	647	
==>t = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	518	647	
==>t = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1216	1316	
==>d be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1216	1316	
==>d be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1216	1316	
==>d be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^u <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	278	382	
==>it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_fil <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	229	324	
==>it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14335	14426	
==>$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14335	14426	
==>$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14335	14426	
==>$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1286	1397	
==>n if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1491	1602	
==>n if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1552	1663	
==>n if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) { <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	727	832	
==>ription;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $des <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	727	832	
==>ription;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $des <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10748	10923	
==>.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.no <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10748	10923	
==>.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2	113	
==>ckage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2	113	
==>ckage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2	113	
==>ckage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1150	1257	
==>)";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1138	1245	
==>)";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4060	4158	
==>urn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no insta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4060	4158	
==>urn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no insta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4060	4158	
==>urn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no insta <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1468	1570	
==>L::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the la <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1468	1570	
==>L::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the la <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	389	486	
==>(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3905	4066	
==>tart_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3905	4066	
==>tart_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1491	1588	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1491	1588	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1491	1588	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11364	11484	
==>%$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11364	11484	
==>%$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each % <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11364	11484	
==>%$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each % <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	939	1035	
==>e = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text node <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	939	1035	
==>e = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11087	11213	
==>= eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11087	11213	
==>= eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11087	11213	
==>= eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14349	14459	
==>y close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterat <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14349	14459	
==>y close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterat <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	586	685	
==>ast C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$hi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	586	685	
==>ast C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$hi <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35312	35409	
==>ill fail if any of its source Relations
have attributes in common; it will only accept inputs that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39862	39959	
==>ill fail if any of its source Relations
have attributes in common; it will only accept inputs that <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39422	39519	
==>ill fail if any of its source Relations
have attributes in common; it will only accept inputs that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5624	5744	
==>} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5624	5744	
==>} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5624	5744	
==>} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub ma <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1231	1327	
==>ryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1231	1327	
==>ryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6797	6912	
==>_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return (mob)

  e <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8794	8891	
==>r 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This even <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3173	3270	
==>.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expect <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8794	8891	
==>r 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This even <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3231	3328	
==>.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9256	9367	
==>is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9256	9367	
==>is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9256	9367	
==>is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_n <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1633	1744	
==>content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    S <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1633	1744	
==>content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1151	1256	
==>{
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1151	1256	
==>{
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Cod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1151	1256	
==>{
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Cod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5782	5896	
==>ecause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5782	5896	
==>ecause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5782	5896	
==>ecause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8509	8611	
==>oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.del <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8509	8611	
==>oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.del <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4251	4352	
==>xp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5148	5249	
==>xp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4251	4352	
==>xp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5148	5249	
==>xp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fi <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4215	4307	
==>splashscreen=$splashscreen
    The file referenced by --splashscreen will be displayed before <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3245	3365	
==>(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var bac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3245	3365	
==>(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var bac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3245	3365	
==>(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var bac <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17448	17553	
==>);
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17448	17553	
==>);
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1934	2059	
==>y($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1934	2059	
==>y($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1934	2059	
==>y($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10833	10930	
==>at header field will remain unchanged.

The old value (or values) of the last of the header fields <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10833	10930	
==>at header field will remain unchanged.

The old value (or values) of the last of the header fields <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12828	12972	
==>,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12828	12972	
==>,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3122	3236	
==>ew_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3122	3236	
==>ew_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3122	3236	
==>ew_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2925	3046	
==>s ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2925	3046	
==>s ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @no <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16747	16862	
==>ter to it's lowercase
form, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> St <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1656	1766	
==>return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1656	1766	
==>return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2376	2541	
==>uninstall                       
$Repodir        = $Root . '/jibs';                  # remote repo root
$Repoindex      = $Repodir . '/index';              # index fi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8774	8866	
==>uce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3703	3795	
==>uce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8774	8866	
==>uce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3703	3795	
==>uce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5390	5487	
==>test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5390	5487	
==>test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6914	7011	
==>test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7034	7129	
==>rray of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting th <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7034	7129	
==>rray of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	460	556	
==>ache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	460	556	
==>ache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	460	556	
==>ache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modif <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5604	5698	
==>ation you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get docu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5604	5698	
==>ation you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get docu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3071	3415	
==>.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External pa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3071	3415	
==>.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1920	2023	
==>LLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1920	2023	
==>LLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1920	2023	
==>LLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18844	18971	
==>{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20202	20329	
==>{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16434	16539	
==>"Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16434	16539	
==>"Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16434	16539	
==>"Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	114	228	
==>ub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEF <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	114	228	
==>ub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEF <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1528	1635	
==>uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1528	1635	
==>uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1528	1635	
==>uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2381	2486	
==>ict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2381	2486	
==>ict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} e <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2381	2486	
==>ict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} e <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4201	4297	
==>to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4385	4481	
==>to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significan <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2452	2579	
==>$container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$c <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2452	2579	
==>$container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	786	893	
==>@{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
}

1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	786	893	
==>@{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
}

1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	786	893	
==>@{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
}

1 <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6535	6773	
==>o {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                } <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6535	6773	
==>o {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                } <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10038	10152	
==>1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.str <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10038	10152	
==>1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.str <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14165	14258	
==>hange. 

If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~~ any(@keytes <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	13074	13196	
==>s->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index';
  $l <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1370	1482	
==>:Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1370	1482	
==>:Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span. <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3157	3251	
==>, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3215	3309	
==>, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2229	2345	
==>opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2229	2345	
==>opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2229	2345	
==>opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	757	848	
==>od

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Valida <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	757	848	
==>od

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Valida <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2599	2693	
==>server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI ob <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2599	2693	
==>server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9760	9848	
==>ass.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9760	9848	
==>ass.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @M <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9760	9848	
==>ass.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5271	5366	
==>ou like with each object, but is (at least nominally)
intended to allow filtering out objects yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5271	5366	
==>ou like with each object, but is (at least nominally)
intended to allow filtering out objects yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5271	5366	
==>ou like with each object, but is (at least nominally)
intended to allow filtering out objects yo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1624	1718	
==>)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1624	1718	
==>)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4720	4847	
==>nd    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4720	4847	
==>nd    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11891	11985	
==>ethod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11891	11985	
==>ethod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11891	11985	
==>ethod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2244	2369	
==>ser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2791	2916	
==>ser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3338	3463	
==>ser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	901	1002	
==>ormat" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	901	1002	
==>ormat" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23121	23315	
==>leop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23400	23594	
==>leop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         rul <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3032	3150	
==>his with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3032	3150	
==>his with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18771	18945	
==>2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18771	18945	
==>2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18771	18945	
==>2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2906	3010	
==>$desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, S <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2964	3068	
==>$desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, S <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7661	7779	
==>f the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	962	1080	
==>f the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3969	4073	
==>On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3969	4073	
==>On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you ca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3969	4073	
==>On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you ca <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33341	33438	
==>y wish to override the user text of another library
which it uses, the Template module for the pro <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33341	33438	
==>y wish to override the user text of another library
which it uses, the Template module for the pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11473	11565	
==>olates the Role specifc
code to the class that consumed it.

-------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11473	11565	
==>olates the Role specifc
code to the class that consumed it.

-------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11473	11565	
==>olates the Role specifc
code to the class that consumed it.

-------------------------------- <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	772	895	
==>({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	754	872	
==>({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $pa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	754	872	
==>({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $pa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18048	18143	
==>rols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18048	18143	
==>rols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1071	1186	
==>ex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlau <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1071	1186	
==>ex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlau <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1158	1256	
==>alar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1158	1256	
==>alar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1158	1256	
==>alar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .r <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	855	1186	
==>28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	855	1186	
==>28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6562	6683	
==>:Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6562	6683	
==>:Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6562	6683	
==>:Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2942	3044	
==>, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2942	3044	
==>, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2942	3044	
==>, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1090	1184	
==>re,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in tu <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1090	1184	
==>re,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in tu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1252	1359	
==>t 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END_ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	575	674	
==>ta::Class is a part of an object model object called the
# schema
Has($?CLASS, "schema", "Ref", { co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15703	15797	
==>te in those languages.  Or, when viewing an error message, the
application's developer should s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15703	15797	
==>te in those languages.  Or, when viewing an error message, the
application's developer should s <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	127	220	
==>use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Templa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	974	1071	
==>ctually inherits a number of new attributes from various sources
# and we need to now create these <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	974	1071	
==>ctually inherits a number of new attributes from various sources
# and we need to now create these <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	974	1071	
==>ctually inherits a number of new attributes from various sources
# and we need to now create these <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8674	8762	
==>.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed un <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8732	8820	
==>.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed un <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20332	20429	
==>Returns a true value if the bot's socket to the server is currently connected.

Note that you migh <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19280	19377	
==>Returns a true value if the bot's socket to the server is currently connected.

Note that you migh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20332	20429	
==>Returns a true value if the bot's socket to the server is currently connected.

Note that you migh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19280	19377	
==>Returns a true value if the bot's socket to the server is currently connected.

Note that you migh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6910	6999	
==>b { 
   '&Object::another_singleton_test_on_object'
});

is($Object->another_singleton_tes <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6234	6415	
==>es.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9711	9892	
==>es.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8785	8966	
==>es.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21763	21864	
==>sed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26315	26416	
==>sed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28477	28616	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28756	28895	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	411	512	
==>self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
}) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	411	512	
==>self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
}) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	411	512	
==>self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
}) <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1050	1152	
==>ulti sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        . <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1050	1152	
==>ulti sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10565	10665	
==>es abstract 
    # methods which must be implemented
    # ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10565	10665	
==>es abstract 
    # methods which must be implemented
    # ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10565	10665	
==>es abstract 
    # methods which must be implemented
    # ------------------------------------------ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	835	939	
==>language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to mak <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	835	939	
==>language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to mak <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	835	939	
==>language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to mak <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	514	616	
==>) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, versio <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	514	616	
==>) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, versio <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1106	1221	
==>fe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) ret <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1106	1221	
==>fe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3965	4060	
==>port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3965	4060	
==>port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Build <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5489	5584	
==>port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Build <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1525	1622	
==>rams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7520	7610	
==>Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1748	1838	
==>Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9154	9244	
==>Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1966	2056	
==>Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1189	1291	
==>LOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1189	1291	
==>LOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1189	1291	
==>LOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::I <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8188	8290	
==>ble for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1075	1177	
==>TORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8188	8290	
==>ble for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1075	1177	
==>TORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1075	1177	
==>TORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1604	1707	
==>piler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vt <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1604	1707	
==>piler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3779	3880	
==>nf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3779	3880	
==>nf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3779	3880	
==>nf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14967	15073	
==>= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$E <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19750	19845	
==>the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alre <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18731	18826	
==>the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alre <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19750	19845	
==>the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alre <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18731	18826	
==>the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	438	546	
==>turn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	438	546	
==>turn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	438	546	
==>turn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5848	5946	
==>slate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5848	5946	
==>slate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3210	3365	
==>vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3210	3365	
==>vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3210	3365	
==>vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1015	1120	
==>TER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1015	1120	
==>TER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8173	8373	
==>->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8173	8373	
==>->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8173	8373	
==>->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1513	1608	
==>articular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1513	1608	
==>articular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<C <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3041	3143	
==>rns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representi <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3041	3143	
==>rns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2075	2175	
==>l => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2075	2175	
==>l => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2422	2522	
==>l => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7925	8034	
==>( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7913	8022	
==>( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4984	5090	
==>$ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_si <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4984	5090	
==>$ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_si <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4984	5090	
==>$ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_si <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2710	2804	
==>nion($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersec <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2710	2804	
==>nion($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersec <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3090	3192	
==>ence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3090	3192	
==>ence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19832	19928	
==>t is constructed, and the object can
not be changed afterwards.

If you want something similar bu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24384	24480	
==>t is constructed, and the object can
not be changed afterwards.

If you want something similar bu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22936	23032	
==>t is constructed, and the object can
not be changed afterwards.

If you want something similar bu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26885	26980	
==>ute if the corresponding argument is
provided (it defaults to empty if the argument is not provi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26885	26980	
==>ute if the corresponding argument is
provided (it defaults to empty if the argument is not provi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3578	3755	
==>te};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4506	4679	
==>te};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3467	3640	
==>te};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4506	4679	
==>te};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @mat <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25289	25395	
==>PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunction> <' <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	358	484	
==>l ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.de <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12008	12109	
==>e used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scal <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12440	12541	
==>e used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scal <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12008	12109	
==>e used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scal <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12440	12541	
==>e used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scal <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12118	12251	
==>$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12112	12245	
==>$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	48	150	
==>ods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	48	150	
==>ods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBT <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	48	150	
==>ods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBT <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3330	3451	
==>_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3330	3451	
==>_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3330	3451	
==>_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4969	5075	
==>?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CL <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4969	5075	
==>?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2630	2747	
==>-\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2630	2747	
==>-\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2630	2747	
==>-\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5706	5800	
==>gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~ad <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5706	5800	
==>gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3079	3211	
==>_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3079	3211	
==>_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3079	3211	
==>_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10725	10832	
==>ers.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10725	10832	
==>ers.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2625	2725	
==>utoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - tes <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2625	2725	
==>utoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - tes <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2625	2725	
==>utoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - tes <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10650	10745	
==>eturns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10650	10745	
==>eturns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2274	2402	
==>$i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i + <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2274	2402	
==>$i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i + <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2274	2402	
==>$i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i + <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9066	9181	
==>t support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9124	9239	
==>t support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2291	2398	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2291	2398	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2291	2398	
==>filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3453	3546	
==>ry>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3453	3546	
==>ry>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to th <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26283	26377	
==>100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x00400
 #define ROPT_CANY_S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12797	12924	
==>@_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12797	12924	
==>@_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12797	12924	
==>@_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7269	7378	
==>g, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7269	7378	
==>g, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::N <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4710	4841	
==>{ \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub varia <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4698	4829	
==>{ \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub varia <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	310	402	
==>_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	310	402	
==>_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	310	402	
==>_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	748	870	
==>up,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	748	870	
==>up,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	748	870	
==>up,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1648	1746	
==>::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1648	1746	
==>::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4406	4502	
==>ct->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6308	6404	
==>ct->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7070	7165	
==>med> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7070	7165	
==>med> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inli <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7070	7165	
==>med> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inli <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11312	11425	
==>LS>
    | <PS>
    | <USP>
}
rule StrNumericLiteral {  # see 9.3.1
      <StrDecimalLiteral>
    | <HexIntegerLite <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1304	1403	
==>ss); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1304	1403	
==>ss); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1304	1403	
==>ss); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	202	317	
==>ess };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	202	317	
==>ess };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	202	317	
==>ess };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use P <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11371	11477	
==>le_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11371	11477	
==>le_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20277	20453	
==>{
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20277	20453	
==>{
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20277	20453	
==>{
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container:: <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	635	762	
==>}
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $cha <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	635	762	
==>}
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2494	2608	
==>imitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syste <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2494	2608	
==>imitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syste <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2494	2608	
==>imitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syste <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12188	12285	
==>cept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the spe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12188	12285	
==>cept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the spe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18455	18609	
==>op::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18734	18888	
==>op::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4932	5026	
==>associativity of the original operator and auto-metaed versions
# of user-defined ops are not g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4932	5026	
==>associativity of the original operator and auto-metaed versions
# of user-defined ops are not g <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4932	5026	
==>associativity of the original operator and auto-metaed versions
# of user-defined ops are not g <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3796	3900	
==>x_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shif <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13421	13512	
==>Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() ret <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18508	18599	
==>Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() ret <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13421	13512	
==>Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() ret <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18508	18599	
==>Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3265	3380	
==>hod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3265	3380	
==>hod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instanc <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3265	3380	
==>hod(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instanc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1016	1130	
==>Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayT <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1016	1130	
==>Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayT <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2591	2808	
==>'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2591	2808	
==>'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2199	2320	
==>odel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2199	2320	
==>odel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2199	2320	
==>odel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12893	13028	
==>if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12893	13028	
==>if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12893	13028	
==>if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	61	160	
==>eck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getpri <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	61	160	
==>eck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getpri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6951	7038	
==>------------------------------------------------------------

# stub this for the moment <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6951	7038	
==>------------------------------------------------------------

# stub this for the moment <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6951	7038	
==>------------------------------------------------------------

# stub this for the moment <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3883	3983	
==>4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3883	3983	
==>4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2481	2579	
==>IL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2481	2579	
==>IL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2481	2579	
==>IL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	550	651	
==>C" 
   this file is currently simply a source code generator.
   Which also addresses the problem that <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	550	651	
==>C" 
   this file is currently simply a source code generator.
   Which also addresses the problem that <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6071	6168	
==>l fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6071	6168	
==>l fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6071	6168	
==>l fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5266	5366	
==>e ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spli <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5266	5366	
==>e ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spli <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5266	5366	
==>e ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spli <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2575	2669	
==>odule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2575	2669	
==>odule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3237	3341	
==>coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3237	3341	
==>coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3237	3341	
==>coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s" <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11247	11340	
==>t (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11247	11340	
==>t (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6925	7024	
==>tle") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6925	7024	
==>tle") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30134	30224	
==>ovided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34686	34776	
==>ovided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33859	33949	
==>ovided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C< <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	212	323	
==>file {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUti <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	212	323	
==>file {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29414	29524	
==>{ %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29414	29524	
==>{ %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29414	29524	
==>{ %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1100	1216	
==>il  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $cod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1111	1227	
==>il  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $cod <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2952	3092	
==>closure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8295	8433	
==>closure->new(
        $::ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol- <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1038	1174	
==>,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $m <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1038	1174	
==>,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4761	4874	
==>closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol- <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8539	8637	
==>his event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8539	8637	
==>his event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18621	18711	
==>UB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18621	18711	
==>UB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18621	18711	
==>UB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3390	3556	
==>ub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3390	3556	
==>ub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3390	3556	
==>ub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0] <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	685	794	
==>ccessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj-> <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1169	1278	
==>ccessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23594	23706	
==>|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20015	20127	
==>|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24519	24613	
==>lements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns B <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29071	29165	
==>lements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns B <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27947	28041	
==>lements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns B <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2399	2509	
==>= $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2399	2509	
==>= $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2399	2509	
==>= $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11612	11705	
==>ven recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (ha <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11612	11705	
==>ven recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (ha <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3332	3438	
==>or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utilit <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3332	3438	
==>or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utilit <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5571	5673	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5571	5673	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5571	5673	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2284	2395	
==>rint IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($ <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2284	2395	
==>rint IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4337	4441	
==>);*/ /* fails split.t with newstr==1*/
      r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29981	30078	
==>y key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29981	30078	
==>y key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8962	9096	
==>_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'nu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8958	9092	
==>_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'nu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2403	2536	
==>_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'nu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2403	2536	
==>_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'nu <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24238	24353	
==>st;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7938	8091	
==>atch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7938	8091	
==>atch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      wh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7938	8091	
==>atch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      wh <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12883	12977	
==>rns the last element in the recurrence.

Returns positive infinite if the recurrence is infinit <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12883	12977	
==>rns the last element in the recurrence.

Returns positive infinite if the recurrence is infinit <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5474	5574	
==>te (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7892	7992	
==>peedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5474	5574	
==>te (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7892	7992	
==>peedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7892	7992	
==>peedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1739	1862	
==>) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string(" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1739	1862	
==>) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string(" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1739	1862	
==>) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string(" <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7715	7817	
==>eached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is reac <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7715	7817	
==>eached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is reac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8767	8897	
==>r[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8767	8897	
==>r[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8767	8897	
==>r[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
ou <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2946	3038	
==>mp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3004	3096	
==>mp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13873	13985	
==>:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucr <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13873	13985	
==>:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	695	794	
==>5-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Window <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	695	794	
==>5-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Window <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	695	794	
==>5-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Window <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17845	17962	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20725	20842	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24513	24630	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2866	2962	
==>tring>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of th <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2866	2962	
==>tring>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of th <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4380	4522	
==>t} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4520	4662	
==>t} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	163	276	
==>el::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	163	276	
==>el::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	163	276	
==>el::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	699	822	
==>>isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2506	2621	
==>+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2506	2621	
==>+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2506	2621	
==>+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($cod <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12545	12641	
==>e body, but is also reused in the 'type' attr
fun: env($.body) = { new_env($$) }
fun: new_env($$) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	812	922	
==>ime::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[0]),
    b <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	56	158	
==>sourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/e <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	56	158	
==>sourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8643	8739	
==>f!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8643	8739	
==>f!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (: <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5567	5663	
==>hat calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined res <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5567	5663	
==>hat calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined res <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30489	30584	
==>ed for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35040	35135	
==>ed for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34222	34317	
==>ed for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1494	1591	
==>_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1494	1591	
==>_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1494	1591	
==>_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_na <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7195	7283	
==>e = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7195	7283	
==>e = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1108	1345	
==>config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            index => {
                s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	675	792	
==>n from the META.info.
It will turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1793	1903	
==>tr $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1793	1903	
==>tr $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1873	1983	
==>tr $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10576	10688	
==>),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:no <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10576	10688	
==>),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2100	2201	
==>_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2100	2201	
==>_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2447	2548	
==>_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13375	13511	
==>ng to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13375	13511	
==>ng to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13375	13511	
==>ng to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1839	1940	
==>ms.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1839	1940	
==>ms.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2849	2956	
==>ET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2849	2956	
==>ET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1170	1267	
==>d @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1170	1267	
==>d @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1170	1267	
==>d @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Inval <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2983	3081	
==>................ok
  t/test-harness......ok
  t/waterloo..........dubious
          Test returned s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5749	5846	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4879	4976	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5749	5846	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» ( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4879	4976	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1732	1855	
==>"I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1732	1855	
==>"I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1732	1855	
==>"I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_m <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8332	8430	
==>any 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8332	8430	
==>any 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2578	2715	
==>cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2783	2920	
==>cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3855	3992	
==>cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11270	11362	
==>ns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11270	11362	
==>ns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4762	4876	
==>sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4762	4876	
==>sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4762	4876	
==>sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1773	1871	
==>y of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TO <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1773	1871	
==>y of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TO <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15291	15388	
==>t or response message for interactive systems.

If the program or any of its components are intend <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15291	15388	
==>t or response message for interactive systems.

If the program or any of its components are intend <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	75	163	
==>:pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Roo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	75	163	
==>:pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Roo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	75	163	
==>:pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Roo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2826	2921	
==>as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clk <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2826	2921	
==>as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clk <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3173	3268	
==>as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clk <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31740	31834	
==>user interface that the
current user is fluent in (and prefers) language A but also understands <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31740	31834	
==>user interface that the
current user is fluent in (and prefers) language A but also understands <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7531	7625	
==>params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7531	7625	
==>params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7531	7625	
==>params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22049	22141	
==>eter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22049	22141	
==>eter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> t <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12921	13022	
==>rpreter;
use base qw/Reducer DynamicScopes/;

sub new {
    bless { params => undef, param_stack => [] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	280	379	
==>Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs::Gramm <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	607	745	
==>ined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLASS->new(@_) }        
    },
    s <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7768	7903	
==>r, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5050	5167	
==>";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5050	5167	
==>";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5050	5167	
==>";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::num <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1390	1546	
==>) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1335	1482	
==>) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1704	1808	
==>ephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1704	1808	
==>ephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1704	1808	
==>ephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21126	21218	
==>ppropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Join <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21126	21218	
==>ppropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Join <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2600	2688	
==>>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2600	2688	
==>>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2600	2688	
==>>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6012	6117	
==>e_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
} <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6012	6117	
==>e_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	51	150	
==>6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	51	150	
==>6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	51	150	
==>6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2200	2308	
==>turns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2200	2308	
==>turns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	875	976	
==>ct ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	875	976	
==>ct ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	875	976	
==>ct ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2743	2949	
==>g("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2743	2949	
==>g("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	429	539	
==>= "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	429	539	
==>= "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	429	539	
==>= "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1971	2074	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2029	2132	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8622	8718	
==>x(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8622	8718	
==>x(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8622	8718	
==>x(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"ba <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23946	24040	
==>eturns a new Relation object, whose Heading and
Body attributes are set respectively from the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28498	28592	
==>eturns a new Relation object, whose Heading and
Body attributes are set respectively from the o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7090	7228	
==>a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7090	7228	
==>a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3697	3799	
==>"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3697	3799	
==>"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3697	3799	
==>"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8985	9092	
==>=> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8985	9092	
==>=> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8985	9092	
==>=> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULT <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	730	828	
==>$footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	730	828	
==>$footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11288	11413	
==>s[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11288	11413	
==>s[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11288	11413	
==>s[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10003	10099	
==>s. As new features are
added to Pugs, new test functions will be defined to facilitate the
testin <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10061	10157	
==>s. As new features are
added to Pugs, new test functions will be defined to facilitate the
testin <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1209	1393	
==>);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1209	1393	
==>);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3929	4026	
==>and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3929	4026	
==>and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3929	4026	
==>and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAA <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25394	25487	
==>method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(St <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29946	30039	
==>method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(St <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28885	28978	
==>method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(St <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3718	3809	
==>rrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurr <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3718	3809	
==>rrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1583	1697	
==>ed by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens require <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1583	1697	
==>ed by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens require <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1583	1697	
==>ed by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens require <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1540	1642	
==>h @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> run <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1540	1642	
==>h @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> run <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3255	3361	
==>use then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.poss <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3255	3361	
==>use then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.poss <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3255	3361	
==>use then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.poss <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19588	19674	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INC <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19588	19674	
==>N:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3558	3662	
==>cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3558	3662	
==>cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3558	3662	
==>cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	63	164	
==>TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some twea <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	63	164	
==>TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some twea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7426	7598	
==>== Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7426	7598	
==>== Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7426	7598	
==>== Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9447	9554	
==>onnecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9447	9554	
==>onnecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4075	4193	
==>_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4075	4193	
==>_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4075	4193	
==>_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22953	23050	
==>mber tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute name <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27505	27602	
==>mber tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute name <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11263	11373	
==>if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11263	11373	
==>if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	499	598	
==>rl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	499	598	
==>rl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	499	598	
==>rl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "ou <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1599	1722	
==>s;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1804	1927	
==>s;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1807	1920	
==>MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1807	1920	
==>MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1807	1920	
==>MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8298	8459	
==>h => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compili <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12247	12371	
==>h => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compili <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12247	12371	
==>h => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compili <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24030	24124	
==>r example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LIC <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24030	24124	
==>r example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LIC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10384	10493	
==>olve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &reso <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10384	10493	
==>olve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &reso <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10384	10493	
==>olve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &reso <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19899	20033	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19899	20033	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19899	20033	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC e <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3310	3404	
==>parameters of the request are accessible through the HTTP::Query object that
is part of every H <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3310	3404	
==>parameters of the request are accessible through the HTTP::Query object that
is part of every H <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3979	4087	
==>my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3979	4087	
==>my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3979	4087	
==>my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2218	2322	
==>led before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $pat <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2218	2322	
==>led before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $pat <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10237	10350	
==>@span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.prev <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10237	10350	
==>@span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.prev <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1419	1528	
==>de};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7526	7660	
==>nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7538	7672	
==>nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10689	10788	
==>",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10689	10788	
==>",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10689	10788	
==>",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2507	2608	
==>ask you to enter
      commands requiring root privilegies.

Note: The only option you'll have to spec <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1559	1655	
==>represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty sp <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1321	1417	
==>represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty sp <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1559	1655	
==>represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty sp <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1321	1417	
==>represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	668	790	
==>ue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	668	790	
==>ue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	668	790	
==>ue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      / <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1857	1959	
==>port {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1857	1959	
==>port {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1253	1361	
==>our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1458	1566	
==>our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1519	1627	
==>our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3631	3737	
==>.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3631	3737	
==>.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17264	17392	
==>ick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17264	17392	
==>ick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	589	691	
==>setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	589	691	
==>setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	589	691	
==>setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6951	7060	
==>}
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6951	7060	
==>}
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6951	7060	
==>}
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }e <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1127	1219	
==>_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

= <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1127	1219	
==>_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

= <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	549	656	
==>packages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Rel <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4027	4134	
==>packages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Rel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	956	1060	
==>ally load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	956	1060	
==>ally load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	956	1060	
==>ally load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7452	7596	
==>stant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7645	7789	
==>stant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_c <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	496	596	
==>:True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) retu <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	496	596	
==>:True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) retu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1786	1883	
==>c

=over 4

=item Blondie::Env

Note that this is not a Blondie::Node! You cannot execute environm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6587	6709	
==>.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6587	6709	
==>.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6587	6709	
==>.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10192	10298	
==>20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCR <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10192	10298	
==>20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2474	2591	
==>tart_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::N <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2474	2591	
==>tart_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::N <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29715	29810	
==>se of another,
or are the same as the unaffected invocant's attributes.  This method
supports ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34267	34362	
==>se of another,
or are the same as the unaffected invocant's attributes.  This method
supports ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33431	33526	
==>se of another,
or are the same as the unaffected invocant's attributes.  This method
supports ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2280	2391	
==>"Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2280	2391	
==>"Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2280	2391	
==>"Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3126	3222	
==>dd_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be need <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3126	3222	
==>dd_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be need <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2127	2362	
==>erm
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3157	3317	
==>_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3157	3317	
==>_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3531	3651	
==>cking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3531	3651	
==>cking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8756	8875	
==>ot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8756	8875	
==>ot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1787	1901	
==>rity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1787	1901	
==>rity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1787	1901	
==>rity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40211	40323	
==>$key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40211	40323	
==>$key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40211	40323	
==>$key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $va <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2847	2945	
==>n value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2847	2945	
==>n value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6438	6553	
==>l;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6438	6553	
==>l;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6438	6553	
==>l;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pri <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11054	11149	
==>r :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$de <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11112	11207	
==>r :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6475	6669	
==>p->{fixity} $op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_gr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5017	5141	
==>l  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5210	5334	
==>l  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	584	698	
==>2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # Sta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	584	698	
==>2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # Sta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7084	7223	
==>maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7084	7223	
==>maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2085	2193	
==>t ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2085	2193	
==>t ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2085	2193	
==>t ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_metho <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4972	5115	
==>($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 1 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4972	5115	
==>($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11040	11125	
==>---------------------------------------------------------

What if Roles could provide <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11040	11125	
==>---------------------------------------------------------

What if Roles could provide <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11040	11125	
==>---------------------------------------------------------

What if Roles could provide <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29546	29660	
==>, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4969	5083	
==>nd }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29546	29660	
==>, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4969	5083	
==>nd }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ) <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	358	464	
==>, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3622	3721	
==>w( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `n <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3622	3721	
==>w( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1271	1369	
==>er(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1271	1369	
==>er(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1271	1369	
==>er(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, " <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5939	6048	
==>$x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SY <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5939	6048	
==>$x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SY <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3009	3104	
==>< "END";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3404	3496	
==>q '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3404	3496	
==>q '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node:: <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	941	1039	
==>cifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You c <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	941	1039	
==>cifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5862	5959	
==>xt;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5862	5959	
==>xt;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5862	5959	
==>xt;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29308	29425	
==>bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29308	29425	
==>bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29308	29425	
==>bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28219	28334	
==>ure_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28498	28613	
==>ure_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumpe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12042	12192	
==>ke "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12042	12192	
==>ke "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16721	16841	
==>e {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18147	18267	
==>e {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24766	24886	
==>e {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12894	13020	
==>_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12894	13020	
==>_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12894	13020	
==>_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1585	1684	
==>he interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encip <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1585	1684	
==>he interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encip <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	677	794	
==>ckagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	677	794	
==>ckagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9103	9205	
==>f.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9103	9205	
==>f.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9103	9205	
==>f.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12842	12967	
==>mentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rule ObjectLiteral :words {  # see 1 <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2135	2241	
==>expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.dia <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2135	2241	
==>expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.dia <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2215	2321	
==>expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.dia <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21684	21788	
==>:Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .local int isarray, iscapture
    .loca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5986	6117	
==>') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5986	6117	
==>') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5986	6117	
==>') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20480	20596	
==>=~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16901	17017	
==>=~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	137	239	
==>e: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	137	239	
==>e: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4805	4899	
==>I SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4805	4899	
==>I SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4805	4899	
==>I SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1935	2050	
==>, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1935	2050	
==>, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28482	28575	
==>ing combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33034	33127	
==>ing combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32162	32255	
==>ing combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8617	8714	
==>s => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8617	8714	
==>s => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4704	4795	
==>e to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4704	4795	
==>e to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4704	4795	
==>e to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<re <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1098	1229	
==>results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1098	1229	
==>results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1005	1105	
==>5-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1005	1105	
==>5-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1005	1105	
==>5-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	605	705	
==>UE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

mod <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	605	705	
==>UE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

mod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	367	454	
==>qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	367	454	
==>qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	367	454	
==>qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1642	1820	
==>abel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1642	1820	
==>abel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1642	1820	
==>abel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4609	4763	
==>e => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4469	4614	
==>e => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	458	562	
==>/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	458	562	
==>/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	458	562	
==>/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE, <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2188	2286	
==>ag handling is currently an utter kludge. not even trying with m and s.
# Match objects arent being <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21911	22007	
==>t__>,
but it will throw a "use of class() is deprecated" warning.

Quantifiers of the form C<{n}> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4819	4986	
==>ll 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4819	4986	
==>ll 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4819	4986	
==>ll 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                i <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5276	5390	
==>depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # o <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5276	5390	
==>depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1659	1762	
==>.orgE<gt>.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2131	2234	
==>.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1659	1762	
==>.orgE<gt>.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2131	2234	
==>.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2131	2234	
==>.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the same terms <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	696	795	
==>b admin {
    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
}

sub is_admin {
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24966	25061	
==>'t simply
send all commands immediately to the server, but creates a queue, which is then
slowly <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23730	23825	
==>'t simply
send all commands immediately to the server, but creates a queue, which is then
slowly <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24966	25061	
==>'t simply
send all commands immediately to the server, but creates a queue, which is then
slowly <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23730	23825	
==>'t simply
send all commands immediately to the server, but creates a queue, which is then
slowly <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18177	18323	
==>ew($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41442	41588	
==>ew($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11725	11836	
==>b delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11725	11836	
==>b delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11725	11836	
==>b delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	172	271	
==>ed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	172	271	
==>ed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed method <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	172	271	
==>ed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed method <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6303	6401	
==>m_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tr <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6303	6401	
==>m_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tr <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8454	8562	
==>sts_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8512	8620	
==>sts_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4693	4790	
==>is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4693	4790	
==>is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6890	6987	
==>is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descrip <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8020	8145	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
* <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8213	8338	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1157	1265	
==>tr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1157	1265	
==>tr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1157	1265	
==>tr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9547	9649	
==>$is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9547	9649	
==>$is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9547	9649	
==>$is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3496	3616	
==>() {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3496	3616	
==>() {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3496	3616	
==>() {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31792	31887	
==>! ) returns Relation::Example>

I<TODO.  This method has not yet been implemented.>

This method <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32839	32934	
==>! ) returns Relation::Example>

I<TODO.  This method has not yet been implemented.>

This method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5151	5291	
==>de or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5151	5291	
==>de or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5151	5291	
==>de or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1472	1572	
==>de is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1679	1779	
==>de is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5387	5486	
==>r_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var typ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5387	5486	
==>r_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var typ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5977	6076	
==>r_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var typ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18399	18497	
==>when it comes to getting the most accurate program text
for users, we still get the best results by <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18399	18497	
==>when it comes to getting the most accurate program text
for users, we still get the best results by <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2152	2249	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2152	2249	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2152	2249	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12437	12545	
==>=>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12437	12545	
==>=>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12437	12545	
==>=>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9896	9996	
==>lf.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify( <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9896	9996	
==>lf.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18665	18759	
==>k sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to av <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2955	3049	
==>k sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to av <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20849	20942	
==>> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20849	20942	
==>> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20849	20942	
==>> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19813	19910	
==>s determined when it is constructed, and the object can
not be changed afterwards.

If you want so <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24365	24462	
==>s determined when it is constructed, and the object can
not be changed afterwards.

If you want so <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22917	23014	
==>s determined when it is constructed, and the object can
not be changed afterwards.

If you want so <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	35	118	
==>-------------------------------------------------------------------------
## attribu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	35	118	
==>-------------------------------------------------------------------------
## attribu <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1483	1614	
==>my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless de <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1483	1614	
==>my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4285	4389	
==>rrent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4285	4389	
==>rrent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4875	4979	
==>rrent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional ar <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13584	13706	
==>->{max} >= 0,  'Max # of tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $reason) = $ext <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7075	7179	
==>thority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7075	7179	
==>thority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7075	7179	
==>thority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25550	25649	
==>arch is never
 * wasted effort.  The regback variable says how many characters back from
 * where re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1700	1802	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1700	1802	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6768	6890	
==>) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$ke <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6768	6890	
==>) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2407	2634	
==>ype = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2407	2634	
==>ype = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]" <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2407	2634	
==>ype = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]" <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2063	2181	
==>a;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  su <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2063	2181	
==>a;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  su <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1301	1398	
==>rst_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1301	1398	
==>rst_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1301	1398	
==>rst_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub sta <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10796	10892	
==>yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) re <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10854	10950	
==>yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9085	9203	
==>p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9085	9203	
==>p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9085	9203	
==>p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_in <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2110	2215	
==>lf: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2110	2215	
==>lf: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!s <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	29	287	
==>Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::Keye <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	29	287	
==>Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::Keye <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3350	3440	
==>"PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3350	3440	
==>"PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3350	3440	
==>"PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new P <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2189	2285	
==>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
yo <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2189	2285	
==>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6062	6155	
==>Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6062	6155	
==>Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6062	6155	
==>Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2987	3107	
==>= String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2987	3107	
==>= String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2987	3107	
==>= String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N" <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1485	1581	
==>s::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1402	1492	
==>s::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	489	598	
==>eys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	489	598	
==>eys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	489	598	
==>eys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11694	11799	
==>->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4337	4442	
==>->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	592	697	
==>/ unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates

  (link to wiki <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	563	664	
==>/ unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates
  (link to wiki <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9881	9967	
==>$::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9881	9967	
==>$::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9881	9967	
==>$::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8449	8553	
==>[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'capturing_group',\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	193	296	
==>) {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	193	296	
==>) {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	193	296	
==>) {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	843	939	
==>RSAL::require::ERROR;
	$self->emitter_class->new;
}

sub emit {
	my $self = shift;
	$self->emitte <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9678	9775	
==>ence set, defined with closures. 

A recurrence set is defined by a "successor" function and a "pr <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9678	9775	
==>ence set, defined with closures. 

A recurrence set is defined by a "successor" function and a "pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1501	1593	
==>ror: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1501	1593	
==>ror: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1501	1593	
==>ror: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1977	2118	
==>ecause of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[ <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1977	2118	
==>ecause of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29749	29840	
==>the unaffected invocant's attributes.  This method
supports having the new attributes having <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34301	34392	
==>the unaffected invocant's attributes.  This method
supports having the new attributes having <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33465	33556	
==>the unaffected invocant's attributes.  This method
supports having the new attributes having <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22121	22215	
==>or the multiple language
or permissions issue; simply order the files appropriately in the sear <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22121	22215	
==>or the multiple language
or permissions issue; simply order the files appropriately in the sear <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3042	3135	
==>ribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3042	3135	
==>ribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3042	3135	
==>ribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($sel <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23694	23796	
==>e it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28246	28348	
==>e it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27059	27161	
==>e it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1835	1927	
==>le> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1924	2016	
==>le> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23581	23749	
==>only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23581	23749	
==>only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23581	23749	
==>only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3548	3642	
==>mory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
wh <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3548	3642	
==>mory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11886	12053	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11886	12053	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_des <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11886	12053	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_des <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5461	5582	
==>obdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run_all_test <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9713	9813	
==>Perl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if ( $taint || $self->{_is_ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4702	4856	
==>@sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependen <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5166	5320	
==>@sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7922	8072	
==>ify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7922	8072	
==>ify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) { <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7922	8072	
==>ify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6341	6455	
==>respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6341	6455	
==>respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36079	36174	
==>dy of the new relation is the result of first pairwise-matching every
tuple of the invocant rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40628	40723	
==>dy of the new relation is the result of first pairwise-matching every
tuple of the invocant rela <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40242	40337	
==>dy of the new relation is the result of first pairwise-matching every
tuple of the invocant rela <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	812	957	
==>undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	812	957	
==>undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	812	957	
==>undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub sta <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39209	39293	
==>Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=he <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39209	39293	
==>Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=he <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12814	12911	
==>ot sure where this is specced, but when I migrated &prefix:<=> from
# meaning the same as &readlin <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5787	6036	
==>.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    retu <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5787	6036	
==>.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3148	3395	
==>.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    retu <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3148	3395	
==>.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    retu <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12470	12555	
==>(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3083	3237	
==>)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2965	3110	
==>)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	426	521	
==>ME

Test::Harness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  use Test::Harn <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24014	24106	
==>ry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24014	24106	
==>ry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1045	1171	
==>l  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1056	1182	
==>l  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ], <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39988	40105	
==>> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39988	40105	
==>> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39988	40105	
==>> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21517	21612	
==>ed in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21517	21612	
==>ed in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21517	21612	
==>ed in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->un <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7593	7679	
==>r::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1418	1504	
==>r::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12050	12227	
==>_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12050	12227	
==>_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12050	12227	
==>_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3885	3985	
==>f->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3885	3985	
==>f->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4475	4575	
==>f->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17666	17757	
==>partan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17666	17757	
==>partan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3916	4023	
==>_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3916	4023	
==>_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3916	4023	
==>_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadT <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7263	7356	
==>ntent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRL <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7263	7356	
==>ntent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRL <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	214	348	
==>> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unus <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	214	348	
==>> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unus <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3107	3216	
==>$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
          &$reduce_helper($var,$ops);
          return &$step <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12117	12222	
==>->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4760	4865	
==>->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) } <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3430	3562	
==>h ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unle <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3430	3562	
==>h ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5383	5478	
==>: "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5383	5478	
==>: "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5383	5478	
==>: "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23413	23515	
==>-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$code.' } catch Perl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21853	21950	
==>tem C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=it <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20734	20831	
==>tem C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21853	21950	
==>tem C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=it <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20734	20831	
==>tem C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=it <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2839	2958	
==>ader\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cooki <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2839	2958	
==>ader\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cooki <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2636	2743	
==>sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2636	2743	
==>sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2636	2743	
==>sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprint <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1582	1690	
==>':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_n <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1582	1690	
==>':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19357	19462	
==>y.values )
        } ),
    );
}

my method _product (Relation::Example $other!) returns Relation::Example <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3188	3284	
==>a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_ve <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3188	3284	
==>a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_ve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8097	8214	
==>eturn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8097	8214	
==>eturn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8097	8214	
==>eturn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18688	18784	
==>ds exactly to the named
parameters of Node.new(); you need to supply its $document and optional
$ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18688	18784	
==>ds exactly to the named
parameters of Node.new(); you need to supply its $document and optional
$ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2928	3205	
==>infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blon <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12171	12372	
==>ue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12171	12372	
==>ue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12171	12372	
==>ue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shift <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	19616	19714	
==>",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new(" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1887	1988	
==>lf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1887	1988	
==>lf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1887	1988	
==>lf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var ha <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5642	5740	
==>p;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns Lis <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5642	5740	
==>p;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns Lis <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3556	3652	
==>bject:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3556	3652	
==>bject:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6480	6606	
==>ive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6480	6606	
==>ive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6480	6606	
==>ive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2514	2624	
==>)     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2698	2808	
==>)     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 < <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2010	2206	
==>\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2010	2206	
==>\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4150	4260	
==>rray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4150	4260	
==>rray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4150	4260	
==>rray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	813	922	
==>RULE')->code();

    grammar <p6ws> <ident> <p6ws>? \;
        { return { grammar_name => $() ,} }
RULE
*{'con <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1924	2011	
==>rrent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1887	1974	
==>rrent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1924	2011	
==>rrent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1887	1974	
==>rrent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	348	513	
==>slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            'array <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20775	20874	
==>p by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other prog <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20775	20874	
==>p by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other prog <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1037	1133	
==>u can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effici <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1037	1133	
==>u can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effici <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9180	9300	
==>~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export { <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9180	9300	
==>~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1020	1172	
==>ames    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1020	1172	
==>ames    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Keyed <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1578	1704	
==>me) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Sk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1578	1704	
==>me) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Sk <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1578	1704	
==>me) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Sk <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4899	5010	
==>elf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4899	5010	
==>elf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5489	5600	
==>elf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14463	14559	
==>eader.  Since it
internally uses the C<scan> method to build the string, the result
will use case <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14463	14559	
==>eader.  Since it
internally uses the C<scan> method to build the string, the result
will use case <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36354	36451	
==>(Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37065	37162	
==>(Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37515	37612	
==>(Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39669	39766	
==>(Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41541	41638	
==>(Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary version of <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6917	7031	
==>$span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6917	7031	
==>$span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1726	1837	
==>ess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1726	1837	
==>ess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Disp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1726	1837	
==>ess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Disp <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1189	1293	
==>turns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2539	2643	
==>ub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formali <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1189	1293	
==>turns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Se <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2539	2643	
==>ub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formali <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2886	2990	
==>ub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formali <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17211	17327	
==>ug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17211	17327	
==>ug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	139	239	
==>ION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	139	239	
==>ION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	139	239	
==>ION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6498	6610	
==>return concat( [ $node, $state ] );
    }
}

# interface to the internal rule functions
# - creates a 'captu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21477	21570	
==>ceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See b <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20358	20451	
==>ceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See b <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21477	21570	
==>ceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See b <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20358	20451	
==>ceives a corresponding message.
Event names which are all lowercase are "pseudo" events. See b <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	259	359	
==>kg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub root <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	259	359	
==>kg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub root <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2233	2331	
==>bname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2233	2331	
==>bname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2233	2331	
==>bname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking paramet <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	813	912	
==>le elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	813	912	
==>le elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6052	6147	
==>';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6052	6147	
==>';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a ' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2951	3046	
==>';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4731	4842	
==>as);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4731	4842	
==>as);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5321	5432	
==>as);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15011	15105	
==>de> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15011	15105	
==>de> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9117	9227	
==>"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ext <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9117	9227	
==>"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ext <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9117	9227	
==>"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ext <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4816	4909	
==>s;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length(1));

 multi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5150	5235	
==>ange_bounds(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Max), !.
p6_range <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4451	4559	
==>y @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $di <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4451	4559	
==>y @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6142	6239	
==>urn the string set in advance with the prune method.

This feature is useful, like custom, for whe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6142	6239	
==>urn the string set in advance with the prune method.

This feature is useful, like custom, for whe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6142	6239	
==>urn the string set in advance with the prune method.

This feature is useful, like custom, for whe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14122	14255	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14401	14534	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1001	1096	
==>gh its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1001	1096	
==>gh its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is ty <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1001	1096	
==>gh its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	153	256	
==>{ pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	153	256	
==>{ pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	153	256	
==>{ pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} a <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7430	7528	
==>k, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indica <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7430	7528	
==>k, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indica <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	184	283	
==>ng instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	184	283	
==>ng instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	184	283	
==>ng instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13196	13291	
==>m}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6671	6766	
==>m}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3902	4054	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3902	4054	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3902	4054	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1226	1332	
==>mport routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1226	1332	
==>mport routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3426	3529	
==>tize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3426	3529	
==>tize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3426	3529	
==>tize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4153	4251	
==>ss defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4153	4251	
==>ss defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$cha <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2975	3102	
==>density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2975	3102	
==>density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7809	7921	
==>r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11286	11398	
==>r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10450	10562	
==>r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2830	2928	
==>ass);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2830	2928	
==>ass);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2830	2928	
==>ass);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $para <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8431	8528	
==>match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8419	8516	
==>match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	506	622	
==>ence to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	506	622	
==>ence to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	506	622	
==>ence to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        ble <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9028	9123	
==>::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPS <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9028	9123	
==>::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPS <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15948	16056	
==>olution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self-> <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2341	2449	
==>olution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4581	4666	
==>:Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4581	4666	
==>:Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5171	5256	
==>:Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5414	5516	
==>lf->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5414	5516	
==>lf->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6004	6106	
==>lf->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if <==
5	/Users/nnunley/pugs/util/package-osx.pl	4701	4798	
==>local/man/man3/Perl6::Bible::S06.3pm
        /usr/local/man/man3/Perl6::Bible::S09.3pm
        /us <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6510	6604	
==>egular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set.  Grammar is quo <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	902	1026	
==><start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %para <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	644	768	
==><start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %para <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	902	1026	
==><start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %para <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	644	768	
==><start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %para <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5291	5414	
==>\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, I <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13551	13648	
==>ase queries, may occur much later than expected.

It may enter an infinite loop if the formula can <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13551	13648	
==>ase queries, may occur much later than expected.

It may enter an infinite loop if the formula can <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3552	3697	
==>Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3552	3697	
==>Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3913	4033	
==>}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3913	4033	
==>}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3913	4033	
==>}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3484	3599	
==>call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3484	3599	
==>call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	387	499	
==>{$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	387	499	
==>{$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	387	499	
==>{$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op { <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15457	15640	
==>= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading = <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18934	19117	
==>= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15679	15773	
==>}
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15679	15773	
==>}
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15679	15773	
==>}
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1886	2052	
==>s class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2091	2257	
==>s class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2154	2320	
==>s class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16580	16692	
==>= $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15630	15736	
==>= $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14202	14318	
==>Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the ope <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14202	14318	
==>Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the ope <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13672	13800	
==>$size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13672	13800	
==>$size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13672	13800	
==>$size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessar <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5918	6046	
==>$size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessar <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4418	4546	
==>$size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessar <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3423	3520	
==>\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makef <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	175	271	
==>_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4559	4655	
==>\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makef <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	175	271	
==>_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	175	271	
==>_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13001	13110	
==>result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13001	13110	
==>result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8173	8278	
==>if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8173	8278	
==>if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8173	8278	
==>if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8638	8778	
==>else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3245	3349	
==>t work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3245	3349	
==>t work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24313	24407	
==>ad1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by cr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24313	24407	
==>ad1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by cr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28906	29020	
==>GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to q <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28906	29020	
==>GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to q <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	269	375	
==>GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to q <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13834	13931	
==>ng;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $string <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13834	13931	
==>ng;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5440	5536	
==>($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5440	5536	
==>($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6030	6126	
==>($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23336	23431	
==>,
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = Bx, E1 = Ex).

%-------------------------- <==
5	/Users/nnunley/pugs/util/addauthors.pl	1510	1627	
==>pan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35355	35460	
==>pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35355	35460	
==>pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35355	35460	
==>pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$le <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7008	7103	
==>in = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{defs} }, "$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	327	582	
==>in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This g <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	327	582	
==>in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8528	8654	
==>am = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8528	8654	
==>am = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8528	8654	
==>am = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7928	8064	
==>REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an err <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7928	8064	
==>REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an err <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6218	6336	
==>Class     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6218	6336	
==>Class     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instan <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6218	6336	
==>Class     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instan <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3410	3511	
==>od intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3410	3511	
==>od intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2497	2596	
==>00]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2497	2596	
==>00]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2497	2596	
==>00]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40475	40585	
==>ayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40475	40585	
==>ayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40475	40585	
==>ayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22293	22389	
==>ave the same method names as you or each other, or having multiple search
directories in your pat <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22293	22389	
==>ave the same method names as you or each other, or having multiple search
directories in your pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	471	567	
==>.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	471	567	
==>.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	471	567	
==>.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15006	15097	
==>mmatic interface (API), called
the Rosetta Native Interface (RNI), which applications invoke <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15006	15097	
==>mmatic interface (API), called
the Rosetta Native Interface (RNI), which applications invoke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12904	13125	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12904	13125	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12904	13125	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10864	11011	
==>"'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10864	11011	
==>"'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $par <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10864	11011	
==>"'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $par <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2005	2123	
==>f.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($sel <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2005	2123	
==>f.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4953	5050	
==>s".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	220	317	
==>.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:al <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4953	5050	
==>s".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4953	5050	
==>s".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Pe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	220	317	
==>.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:al <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3966	4068	
==>.  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0 <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3966	4068	
==>.  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0 <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2459	2556	
==>y>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< rep <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2459	2556	
==>y>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< rep <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1200	1300	
==>:undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1200	1300	
==>:undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1200	1300	
==>:undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS. <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9828	9924	
==>t can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement() <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9828	9924	
==>t can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14466	14593	
==>$s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14466	14593	
==>$s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14466	14593	
==>$s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1161	1264	
==>emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_l <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1149	1252	
==>emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22847	23023	
==>lem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22847	23023	
==>lem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22847	23023	
==>lem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fe <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10011	10119	
==>);
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!see <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10011	10119	
==>);
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!see <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26004	26091	
==>tify(X,L), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3442	3609	
==>leton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Obj     = $self->SUPER::new();
    
    
        for m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13514	13651	
==>going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13514	13651	
==>going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13514	13651	
==>going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle a <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3813	3916	
==>n $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesIn <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	8357	8607	
==>s => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	824	913	
==>as Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1016	1105	
==>as Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	824	913	
==>as Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1016	1105	
==>as Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	424	519	
==>ub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	424	519	
==>ub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	424	519	
==>ub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21482	21576	
==>might seem strange to somebody who has not tried to port between
databases before, especially g <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21482	21576	
==>might seem strange to somebody who has not tried to port between
databases before, especially g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8248	8398	
==>( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8248	8398	
==>( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8248	8398	
==>( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13359	13489	
==>re();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13359	13489	
==>re();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_f <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	618	772	
==>sish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfi <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	618	772	
==>sish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1989	2101	
==>rray ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<ME <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1989	2101	
==>rray ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<ME <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8449	8550	
==>f the tree, you can use the
parse() method to explicitly build it:

  $parser->parse;

This is not nec <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	974	1111	
==>ure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	974	1111	
==>ure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	12249	12400	
==>s{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$test{failed}} and $test{max}) {
                    m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2750	2879	
==>cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2967	3096	
==>cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5407	5507	
==>nk a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5407	5507	
==>nk a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5407	5507	
==>nk a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	569	674	
==>less({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	569	674	
==>less({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne') <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	569	674	
==>less({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne') <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10344	10442	
==>ader field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10344	10442	
==>ader field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3268	3382	
==>*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3268	3382	
==>*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3268	3382	
==>*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5745	5839	
==>use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

T <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5745	5839	
==>use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3612	3726	
==>abel, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3612	3726	
==>abel, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3612	3726	
==>abel, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9292	9389	
==>$span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9292	9389	
==>$span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11236	11363	
==>= 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stand <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14713	14840	
==>= 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stand <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14021	14148	
==>= 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the stand <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1005	1101	
==>f, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  b <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1005	1101	
==>f, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5734	5851	
==>@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5734	5851	
==>@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5734	5851	
==>@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $ma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2812	2917	
==>$hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &sub <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2812	2917	
==>$hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32686	32851	
==>6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32686	32851	
==>6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32686	32851	
==>6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7190	7347	
==>::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7190	7347	
==>::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Va <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7190	7347	
==>::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Va <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19921	20016	
==>is the standard practice for Mac OS X programs, including
the operating system itself, to have t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19921	20016	
==>is the standard practice for Mac OS X programs, including
the operating system itself, to have t <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	861	966	
==>n $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	861	966	
==>n $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14427	14515	
==>::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14427	14515	
==>::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayre <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14427	14515	
==>::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayre <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19269	19397	
==>>send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::EN <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39721	39849	
==>>send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::EN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	904	1010	
==>oxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	904	1010	
==>oxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	904	1010	
==>oxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14588	14782	
==>an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14588	14782	
==>an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14588	14782	
==>an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	666	774	
==>cit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	666	774	
==>cit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8848	8993	
==>],
      data => [[]],
      family => 'branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5703	5840	
==>atement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5703	5840	
==>atement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	368	471	
==>block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_siz <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	368	471	
==>block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_siz <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5202	5314	
==>, '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2744	2856	
==>, '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	327	430	
==>[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	327	430	
==>[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	327	430	
==>[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0] <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2657	2754	
==>) { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compile <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2657	2754	
==>) { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compile <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15683	15776	
==>);

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15683	15776	
==>);

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15683	15776	
==>);

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10484	10615	
==>nce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10484	10615	
==>nce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10484	10615	
==>nce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8682	8775	
==>->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Gr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2507	2600	
==>->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Gr <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1508	1625	
==>nd;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1508	1625	
==>nd;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3958	4048	
==>If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3958	4048	
==>If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6155	6245	
==>If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passi <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5711	5840	
==>tch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5711	5840	
==>tch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7083	7187	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7083	7187	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7083	7187	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1354	1448	
==>L1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1354	1448	
==>L1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1354	1448	
==>L1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

m <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3362	3448	
==>^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3362	3448	
==>^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	258	382	
==>Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.d <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	258	382	
==>Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	302	404	
==>TINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	302	404	
==>TINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	302	404	
==>TINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2635	2765	
==>$#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2635	2765	
==>$#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4569	4695	
==>>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4569	4695	
==>>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4569	4695	
==>>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	989	1104	
==>nce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1194	1309	
==>nce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1255	1370	
==>nce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { o <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3458	3557	
==>String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3458	3557	
==>String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6489	6590	
==>type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unbo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6489	6590	
==>type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unbo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6489	6590	
==>type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unbo <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9473	9572	
==>$span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complemen <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9473	9572	
==>$span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complemen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4839	5040	
==>ir->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4839	5040	
==>ir->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4839	5040	
==>ir->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7197	7325	
==>= $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculati <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7197	7325	
==>= $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculati <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21161	21276	
==>bject(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17582	17697	
==>bject(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	718	827	
==>as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_typ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	718	827	
==>as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_typ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	718	827	
==>as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_typ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9523	9619	
==>t size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9523	9619	
==>t size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11839	11934	
==>s of class all conform to the Role interface/API they are 
interchangable with one another, clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11839	11934	
==>s of class all conform to the Role interface/API they are 
interchangable with one another, clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11839	11934	
==>s of class all conform to the Role interface/API they are 
interchangable with one another, clas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4512	4645	
==>./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must appl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4512	4645	
==>./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must appl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9523	9645	
==>toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9523	9645	
==>toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9523	9645	
==>toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4295	4388	
==>eceivied and expected lines from the previously run tests,
passing if both the diagnostics and <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4295	4388	
==>eceivied and expected lines from the previously run tests,
passing if both the diagnostics and <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4375	4468	
==>eceivied and expected lines from the previously run tests,
passing if both the diagnostics and <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3373	3459	
==>5?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3373	3459	
==>5?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3909	4024	
==>%param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3909	4024	
==>%param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3909	4024	
==>%param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12049	12158	
==>ject(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4692	4801	
==>ject(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2078	2189	
==>toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	392	503	
==>toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2078	2189	
==>toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2078	2189	
==>toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1303	1393	
==>= [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = [ Path::Class::file('index <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	598	803	
==>set = 0,
                                   Int ?$length,
                                       *@values
                                ) returns List is rw
 multi sub Array::unshift (@array is rw ; *@val <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10137	10235	
==>>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=h <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8077	8175	
==>>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10137	10235	
==>>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=h <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8077	8175	
==>>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6485	6630	
==>ll, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6485	6630	
==>ll, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6485	6630	
==>ll, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !d <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4674	4792	
==>= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4674	4792	
==>= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33278	33484	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33278	33484	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_len <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33278	33484	
==>_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_len <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1115	1213	
==>not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1115	1213	
==>not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	891	998	
==>ring index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1256	1360	
==>ring index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	855	959	
==>ring index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self- <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17072	17176	
==>for WALKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, %params);
    }
}

(method BUILDA <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1256	1360	
==>ring index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1386	1491	
==>_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1386	1491	
==>_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1386	1491	
==>_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6215	6311	
==>ful, like custom, for when you don't want to mess
with members belonging to 3rd party classes tha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6215	6311	
==>ful, like custom, for when you don't want to mess
with members belonging to 3rd party classes tha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6215	6311	
==>ful, like custom, for when you don't want to mess
with members belonging to 3rd party classes tha <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10644	10737	
==>aram returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10644	10737	
==>aram returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1642	1769	
==>($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1642	1769	
==>($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1642	1769	
==>($dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::C <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3581	3706	
==>/) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_reque <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3581	3706	
==>/) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_reque <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18080	18206	
==>isual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14501	14627	
==>isual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2138	2244	
==>ect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagno <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2138	2244	
==>ect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagno <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2218	2324	
==>ect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagno <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2122	2294	
==>_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2122	2294	
==>_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31169	31318	
==>my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31169	31318	
==>my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31169	31318	
==>my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10542	10702	
==>se };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set() <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10542	10702	
==>se };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	676	766	
==>{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	676	766	
==>{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	676	766	
==>{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2J <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1266	1482	
==>( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1266	1482	
==>( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1266	1482	
==>( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'valu <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2141	2314	
==>];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3733	3902	
==>];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	115	227	
==>,
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaM <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	115	227	
==>,
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaM <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	115	227	
==>,
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaM <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	543	643	
==>s

method parent ($self:) returns Tree { 
    return $!parent;
}

## -------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	543	643	
==>s

method parent ($self:) returns Tree { 
    return $!parent;
}

## -------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	547	660	
==>as_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	547	660	
==>as_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	547	660	
==>as_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $nam <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6218	6313	
==>f most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attribut <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6218	6313	
==>f most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attribut <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8829	8925	
==>1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gor <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3758	3854	
==>1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gor <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8829	8925	
==>1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gor <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3758	3854	
==>1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gor <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2950	3045	
==>assert-082eedc532\n");exit(0);}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_execho <==
5	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1518	1643	
==>value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @ma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23084	23177	
==>$nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21893	21986	
==>$nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can su <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23084	23177	
==>$nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can su <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21893	21986	
==>$nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can su <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4496	4622	
==>around the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multide <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4496	4622	
==>around the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multide <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5541	5678	
==>y =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5541	5678	
==>y =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	770	868	
==>/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	770	868	
==>/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	770	868	
==>/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2062	2200	
==>1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2062	2200	
==>1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quan <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5908	6007	
==>fore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5908	6007	
==>fore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8105	8204	
==>fore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1816	1964	
==>($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1816	1964	
==>($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1816	1964	
==>($dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::O <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18299	18399	
==>est way to deal with it.  But for displaying to users, easy messages are
better.

I have found that w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18299	18399	
==>est way to deal with it.  But for displaying to users, easy messages are
better.

I have found that w <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7270	7534	
==>GPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = sp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7327	7591	
==>GPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = sp <==
5	/Users/nnunley/pugs/util/config_h.pl	710	815	
==>xt;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifde <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10373	10471	
==>ot case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the => <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10373	10471	
==>ot case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	743	849	
==>tinuations are used for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10611	10717	
==>tinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1114	1216	
==>tinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	713	815	
==>tinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1114	1216	
==>tinuations are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

= <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13938	14070	
==>f defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  me <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13938	14070	
==>f defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	635	728	
==>que_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	635	728	
==>que_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	635	728	
==>que_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2871	3022	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3156	3300	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9574	9718	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3156	3300	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9574	9718	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	230	366	
==>:False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	230	366	
==>:False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5602	5696	
==>ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5602	5696	
==>ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5602	5696	
==>ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6541	6677	
==>e     one     safe   (List)\
\\n   Junction  pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   I <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33719	33814	
==>urns Relation>

This method is a generic relational operator that takes a single Relation
in its <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34487	34582	
==>urns Relation>

This method is a generic relational operator that takes a single Relation
in its <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38269	38364	
==>urns Relation>

This method is a generic relational operator that takes a single Relation
in its <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39037	39132	
==>urns Relation>

This method is a generic relational operator that takes a single Relation
in its <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1636	1753	
==>l $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contig <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1636	1753	
==>l $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contig <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	641	740	
==>iphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TL <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	641	740	
==>iphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TL <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	3436	3535	
==>pe::operator::nullary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	725	837	
==>pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	725	837	
==>pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	725	837	
==>pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14031	14135	
==>ing template available.
        print $translator.translate_message(
            Locale::KeyedText::Messa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14031	14135	
==>ing template available.
        print $translator.translate_message(
            Locale::KeyedText::Messa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1477	1583	
==>c should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1477	1583	
==>c should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1477	1583	
==>c should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TOD <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7337	7439	
==>y contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7337	7439	
==>y contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17937	18066	
==>_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14358	14487	
==>_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visu <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2274	2384	
==>() + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posit <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8068	8162	
==>---------------------------------------
## utility methods

# NOTE:
# Occasionally one wants to <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8068	8162	
==>---------------------------------------
## utility methods

# NOTE:
# Occasionally one wants to <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4238	4390	
==>y
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4702	4854	
==>y
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	366	467	
==>self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	366	467	
==>self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	366	467	
==>self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2356	2462	
==>Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2356	2462	
==>Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overla <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2356	2462	
==>Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overla <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7379	7480	
==>cal pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9056	9157	
==>cal pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6262	6412	
==>lute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_direct <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6262	6412	
==>lute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_direct <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2473	2656	
==>le;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5950	6133	
==>le;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4880	5063	
==>le;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappin <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5806	5933	
==>(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lamb <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5806	5933	
==>(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lamb <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2663	2825	
==>nstant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ), <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2674	2836	
==>nstant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ), <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4139	4235	
==>d1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singlet <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4139	4235	
==>d1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singlet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5663	5759	
==>d1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singlet <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1076	1218	
==>sh ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unles <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1076	1218	
==>sh ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unles <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7194	7309	
==>mit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3798	3913	
==>mit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4647	4762	
==>mit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1064	1167	
==>{ Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1064	1167	
==>{ Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1064	1167	
==>{ Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	576	678	
==>$klass->fetch->isa('opaque')))
        || confess "Class must be an instance of reference";
    (blesse <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	25	122	
==>nweisung"
given $monster {
	when Monster::Schläft { lauf_weg();  }
	when 'hungrig'   { werfe('ste <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11075	11195	
==>thod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.curre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11075	11195	
==>thod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.curre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4853	4947	
==>implementation is, of course, incorrect. There is *no* attention
# paid to the associativity of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4853	4947	
==>implementation is, of course, incorrect. There is *no* attention
# paid to the associativity of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4853	4947	
==>implementation is, of course, incorrect. There is *no* attention
# paid to the associativity of <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14932	15028	
==>ment that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14932	15028	
==>ment that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Nod <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4180	4274	
==>)>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opti <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4180	4274	
==>)>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opti <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5704	5798	
==>)>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22041	22267	
==>);
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22041	22267	
==>);
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole A <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22041	22267	
==>);
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole A <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18317	18471	
==>eop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18596	18750	
==>eop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11976	12081	
==>others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15453	15558	
==>others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pro <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14788	14893	
==>others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pro <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5312	5403	
==>E AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5312	5403	
==>E AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLED <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8472	8584	
==>";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8472	8584	
==>";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1811	1918	
==>my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1811	1918	
==>my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1811	1918	
==>my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	929	1023	
==><HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	929	1023	
==><HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29016	29109	
==>ttributes which wrap zero old attributes (they are effectively just an
extension of the relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33568	33661	
==>ttributes which wrap zero old attributes (they are effectively just an
extension of the relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32705	32798	
==>ttributes which wrap zero old attributes (they are effectively just an
extension of the relati <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1732	1868	
==>"r$_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3183	3289	
==>rname hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(% <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3183	3289	
==>rname hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(% <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3764	3866	
==>rname hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(% <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3764	3866	
==>rname hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(% <==
5	/Users/nnunley/pugs/util/build_pugs.pl	1329	1436	
==>se our own package-conf storage position

    foreach my $module (qw< fps HsSyck >) {
        chdir "third-p <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	4471	4577	
==>self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30761	30853	
==>on of each tuple), but
that any duplicates following the transformation have been eliminated. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35312	35404	
==>on of each tuple), but
that any duplicates following the transformation have been eliminated. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34503	34595	
==>on of each tuple), but
that any duplicates following the transformation have been eliminated. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2976	3129	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2976	3129	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2976	3129	
==>( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1159	1272	
==>=> $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   In <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1159	1272	
==>=> $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   In <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35626	35717	
==>e $other!) returns Relation::Example>

This multi-method is a generic binary relational oper <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36723	36814	
==>e $other!) returns Relation::Example>

This multi-method is a generic binary relational oper <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37223	37314	
==>e $other!) returns Relation::Example>

This multi-method is a generic binary relational oper <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39271	39362	
==>e $other!) returns Relation::Example>

This multi-method is a generic binary relational oper <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39819	39910	
==>e $other!) returns Relation::Example>

This multi-method is a generic binary relational oper <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	12892	13016	
==>$file, 
        links  => $links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   => $tres->{to <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1772	1881	
==>t get params for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3380	3484	
==>--metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3380	3484	
==>--metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3380	3484	
==>--metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17301	17416	
==>->root };
  die "$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  m <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10951	11054	
==>e backend, the
    <code>ext/</code> tests may or may not be run, causing durations and the ok
    perce <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2378	2471	
==>ng.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2378	2471	
==>ng.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2378	2471	
==>ng.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof P <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6115	6361	
==>sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### O <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6579	6825	
==>sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9950	10088	
==>e";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9950	10088	
==>e";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9950	10088	
==>e";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	336	446	
==>s_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	336	446	
==>s_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	336	446	
==>s_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH') <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39222	39308	
==>osetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39222	39308	
==>osetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LI <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	9	124	
==>e;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.y <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	9	124	
==>e;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	274	386	
==>aModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => und <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	274	386	
==>aModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => und <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	274	386	
==>aModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => und <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4726	4830	
==>m hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4726	4830	
==>m hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18903	19031	
==>::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18903	19031	
==>::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AU <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18903	19031	
==>::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20371	20464	
==>ult in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32be <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20371	20464	
==>ult in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32be <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	179	308	
==>d _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	179	308	
==>d _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12875	12974	
==>s "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12875	12974	
==>s "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12875	12974	
==>s "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1596	1709	
==>"inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1596	1709	
==>"inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1596	1709	
==>"inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16260	16351	
==>t effective mechanism for
applications and packages that empowers single binaries to support <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16260	16351	
==>t effective mechanism for
applications and packages that empowers single binaries to support <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18205	18350	
==>ymbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41470	41615	
==>ymbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25460	25556	
==>table, where each of its tuples is
a row, and each attribute is a column, but a Relation::Example <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10609	10721	
==>it(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10609	10721	
==>it(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10609	10721	
==>it(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3883	3981	
==>lator {

    # External packages used by the Locale::KeyedText::Translator class, that do export sy <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3883	3981	
==>lator {

    # External packages used by the Locale::KeyedText::Translator class, that do export sy <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	664	783	
==>able not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'ht <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	182	294	
==>s[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	182	294	
==>s[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	182	294	
==>s[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refere <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	563	668	
==>able not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'ht <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	312	414	
==>= Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ value <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14246	14348	
==>POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8450	8552	
==>POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	312	414	
==>= Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ value <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	312	414	
==>= Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ value <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12634	12808	
==>\$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12628	12802	
==>\$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3182	3282	
==>n't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3182	3282	
==>n't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3182	3282	
==>n't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14111	14300	
==>>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14111	14300	
==>>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pro <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14111	14300	
==>>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pro <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	335	437	
==>uffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, * <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	335	437	
==>uffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, * <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	754	843	
==>use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	754	843	
==>use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	754	843	
==>use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3848	3994	
==>type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3848	3994	
==>type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4399	4528	
==>king for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4399	4528	
==>king for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are no <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4399	4528	
==>king for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are no <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16465	16609	
==>I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 varian <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20891	21035	
==>I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 varian <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4853	4962	
==>x . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4853	4962	
==>x . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4853	4962	
==>x . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefi <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3084	3198	
==>ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3084	3198	
==>ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2130	2225	
==>>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2130	2225	
==>>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2130	2225	
==>>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal" <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	365	478	
==>rt {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $dire <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	365	478	
==>rt {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $dire <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3710	3794	
==>0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3710	3794	
==>0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3710	3794	
==>0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4581	4674	
==>s generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available optio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4581	4674	
==>s generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available optio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4581	4674	
==>s generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available optio <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	383	486	
==>itive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	383	486	
==>itive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitiv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	383	486	
==>itive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitiv <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11008	11103	
==>uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

= <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11008	11103	
==>uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

= <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1666	1775	
==>d {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirect_typed_value <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21734	21830	
==>fied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20615	20711	
==>fied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21734	21830	
==>fied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20615	20711	
==>fied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	691	793	
==>thod intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	691	793	
==>thod intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12331	12445	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12610	12724	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11433	11542	
==>ams);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11433	11542	
==>ams);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11433	11542	
==>ams);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4672	4792	
==>rclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7395	7515	
==>rclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	17839	17942	
==>rint $line if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type, $totals) if $ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12354	12449	
==>l :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12412	12507	
==>l :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool : <==
5	/Users/nnunley/pugs/util/build_pugs.pl	7657	7778	
==>'';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = '';
    if <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1811	1908	
==>ing the ciphertext version.  Most 
algorithms will have a key, which will be specified in the opti <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1811	1908	
==>ing the ciphertext version.  Most 
algorithms will have a key, which will be specified in the opti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3916	4005	
==>que_instance_attr($self => '@:roles');
}));

## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3916	4005	
==>que_instance_attr($self => '@:roles');
}));

## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3916	4005	
==>que_instance_attr($self => '@:roles');
}));

## ------------------------------------------ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1470	1604	
==>ns in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	434	554	
==>sa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stric <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	434	554	
==>sa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stric <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	434	554	
==>sa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stric <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6579	6682	
==>@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7470	7598	
==>0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7470	7598	
==>0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7470	7598	
==>0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1205	1304	
==>?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1205	1304	
==>?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (S <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	568	664	
==>est::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	626	722	
==>est::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16475	16573	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16475	16573	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16475	16573	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => m <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1182	1276	
==>(Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1182	1276	
==>(Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	170	283	
==>= Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	170	283	
==>= Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	170	283	
==>= Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FET <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1254	1351	
==>mpiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> jun <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1254	1351	
==>mpiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> jun <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5710	5831	
==>$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10305	10398	
==><$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
ins <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8198	8291	
==><$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items ins <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10305	10398	
==><$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
ins <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8198	8291	
==><$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items ins <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3595	3842	
==>t) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3595	3842	
==>t) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ i <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6327	6424	
==>em B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6327	6424	
==>em B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8524	8621	
==>em B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24789	24925	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applicat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26382	26518	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applicat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25068	25204	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applicat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26661	26797	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applicat <==
5	/Users/nnunley/pugs/util/testgraph.pl	184	275	
==>:Spec;

GetOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3160	3264	
==>nued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3160	3264	
==>nued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3160	3264	
==>nued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12613	12710	
==>empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns t <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12613	12710	
==>empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17153	17253	
==>e. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENE <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17153	17253	
==>e. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	857	953	
==>ntainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	857	953	
==>ntainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	857	953	
==>ntainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1643	1766	
==>{
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile ( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1643	1766	
==>{
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	212	308	
==>$self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	212	308	
==>$self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	212	308	
==>$self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmt <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4048	4151	
==>> $day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

Th <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4048	4151	
==>> $day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4909	5000	
==>e blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4909	5000	
==>e blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4909	5000	
==>e blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5124	5233	
==>r @tests;
    @tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' - <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	335	440	
==>me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" u <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	335	440	
==>me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" u <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3393	3484	
==>t of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3393	3484	
==>t of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Re <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5277	5408	
==>) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5277	5408	
==>) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13750	13849	
==>label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13750	13849	
==>label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13750	13849	
==>label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label) <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7602	7726	
==>m-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $co <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7602	7726	
==>m-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24378	24474	
==>ect has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a dee <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28930	29026	
==>ect has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a dee <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27797	27893	
==>ect has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a dee <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7629	7737	
==>ew( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7629	7737	
==>ew( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7629	7737	
==>ew( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	439	544	
==>_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %par <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	439	544	
==>_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1231	1339	
==>, body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1231	1339	
==>, body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1231	1339	
==>, body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint") <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16372	16472	
==>floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_buc <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16372	16472	
==>floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_buc <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1992	2184	
==>tch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=p <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1992	2184	
==>tch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10413	10543	
==>add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10413	10543	
==>add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10413	10543	
==>add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{t <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	933	1093	
==>ser-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!head <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	933	1093	
==>ser-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11673	11782	
==>f(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11673	11782	
==>f(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11673	11782	
==>f(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	891	1130	
==>tant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	892	1131	
==>tant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ru <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	765	886	
==>ltidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional arr <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	765	886	
==>ltidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional arr <==
5	/Users/nnunley/pugs/util/combine_tests.pl	269	369	
==>ARGV));
#
# Annotates the last test tree with the earlier one's
# and returns the modified reference. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4056	4163	
==>}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return ble <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4056	4163	
==>}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return ble <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4056	4163	
==>}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return ble <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	136	232	
==>use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	136	232	
==>use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14166	14263	
==>Good Practice" order.

Any return values of the callback routine are ignored.  The loop can
be bro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14166	14263	
==>Good Practice" order.

Any return values of the callback routine are ignored.  The loop can
be bro <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32575	32668	
==>he N-ary version of the aforementioned binary union()
operator, and the order of its arguments <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37125	37218	
==>he N-ary version of the aforementioned binary union()
operator, and the order of its arguments <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36433	36526	
==>he N-ary version of the aforementioned binary union()
operator, and the order of its arguments <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3242	3348	
==>igspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3230	3336	
==>igspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1026	1130	
==>ninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1026	1130	
==>ninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1026	1130	
==>ninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25776	25954	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25776	25954	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25776	25954	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    la <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7057	7215	
==>erson_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7057	7215	
==>erson_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7383	7542	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7383	7542	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7383	7542	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	762	906	
==>my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	762	906	
==>my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9488	9617	
==>{ $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9488	9617	
==>{ $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9488	9617	
==>{ $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Per <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1072	1190	
==>able key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1072	1190	
==>able key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	382	480	
==>'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	382	480	
==>'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit w <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	382	480	
==>'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit w <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5076	5166	
==>ASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5076	5166	
==>ASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3227	3349	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3227	3349	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3227	3349	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17658	17754	
==>base systems often refer to an error condition by an
internal code which is guaranteed to be uniq <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17658	17754	
==>base systems often refer to an error condition by an
internal code which is guaranteed to be uniq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40273	40375	
==>is->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40273	40375	
==>is->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->u <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40273	40375	
==>is->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->u <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	72	169	
==>t::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	72	169	
==>t::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1412	1529	
==>DO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1412	1529	
==>DO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1412	1529	
==>DO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1275	1377	
==>>add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1275	1377	
==>>add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->b <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9651	9793	
==>d');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9651	9793	
==>d');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13367	13498	
==>st: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fina <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9553	9684	
==>st: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fina <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10389	10520	
==>st: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fina <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8372	8487	
==>e or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match wa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	530	645	
==>e or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match wa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8091	8203	
==>e or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match wa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	506	618	
==>e or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match wa <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6928	7018	
==>self->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $self- <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7439	7558	
==>UERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7439	7558	
==>UERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15381	15481	
==>_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15381	15481	
==>_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15381	15481	
==>_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	867	1033	
==>,
        ),
    ),

    '&infix:</>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6324	6473	
==>d_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6324	6473	
==>d_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6324	6473	
==>d_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12758	12880	
==>$max == 1) { '?' }
    elsif ($max ne '' and $min == $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4466	4584	
==>nuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$fie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4466	4584	
==>nuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$fie <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17900	17992	
==>xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17900	17992	
==>xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17900	17992	
==>xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3278	3538	
==>ture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3150	3397	
==>ture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8340	8451	
==>put => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::O <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	306	410	
==>mport Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.n <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	306	410	
==>mport Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.n <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	550	649	
==>put => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::O <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	550	649	
==>put => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	570	669	
==>y $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	570	669	
==>y $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	570	669	
==>y $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name} <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32686	32782	
==>nt to the result;
the new Relation contains all the tuples of the source Relations, including
one <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37236	37332	
==>nt to the result;
the new Relation contains all the tuples of the source Relations, including
one <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	2845	2976	
==>File($Config{"output-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3294	3406	
==>ng) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3294	3406	
==>ng) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3294	3406	
==>ng) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl <==
5	/Users/nnunley/pugs/util/build_pugs.pl	8803	8912	
==>rl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12918	13026	
==>sion> <','>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueLi <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2902	3006	
==>is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gen <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3059	3163	
==>is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gen <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2902	3006	
==>is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gen <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3059	3163	
==>is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8720	8825	
==>{
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8716	8821	
==>{
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumpe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6346	6440	
==>ing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6346	6440	
==>ing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6346	6440	
==>ing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	654	754	
==>\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  whi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	654	754	
==>\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  whi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	654	754	
==>\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  whi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	836	929	
==>$dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	836	929	
==>$dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	896	1005	
==>b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probab <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	896	1005	
==>b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probab <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	896	1005	
==>b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probab <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31663	31761	
==>n the program is run, it would
determine either from a user config file or a user interface that th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31663	31761	
==>n the program is run, it would
determine either from a user config file or a user interface that th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12923	13024	
==>table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12923	13024	
==>table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12923	13024	
==>table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %para <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6439	6536	
==>also be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental! <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6232	6326	
==>also be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	472	591	
==>nv       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->toke <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	472	591	
==>nv       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->toke <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	472	591	
==>nv       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->toke <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	834	934	
==>not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($outpu <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	834	934	
==>not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($outpu <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1387	1519	
==>rait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1387	1519	
==>rait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2801	2922	
==>"p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2801	2922	
==>"p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2801	2922	
==>"p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4337	4469	
==>t() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_c <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4337	4469	
==>t() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1382	1487	
==>P, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1382	1487	
==>P, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1382	1487	
==>P, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	76	183	
==>ub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	76	183	
==>ub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	76	183	
==>ub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5647	5739	
==>hoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=it <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5647	5739	
==>hoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=it <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	835	956	
==>ler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	835	956	
==>ler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1209	1316	
==>t work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1209	1316	
==>t work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1209	1316	
==>t work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33282	33488	
==>gth";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33282	33488	
==>gth";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length+ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33282	33488	
==>gth";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length+ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10885	10980	
==>ends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10943	11038	
==>ends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5709	5834	
==>onstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6262	6387	
==>onstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5902	6027	
==>onstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6455	6580	
==>onstant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1941	2048	
==>\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    P <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18183	18346	
==>nstant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18462	18625	
==>nstant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40516	40640	
==>ue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40516	40640	
==>ue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40516	40640	
==>ue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5320	5521	
==>airs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8797	8998	
==>airs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7817	8018	
==>airs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping( <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7546	7682	
==>ses, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->licen <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7603	7739	
==>ses, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->licen <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10185	10305	
==>_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10185	10305	
==>_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10185	10305	
==>_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37678	37771	
==>r!) returns Relation::Example>

This method is a generic relational operator that takes a sing <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38518	38611	
==>r!) returns Relation::Example>

This method is a generic relational operator that takes a sing <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	23	133	
==>ent::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	23	133	
==>ent::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10692	10807	
==>( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterato <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10692	10807	
==>( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterato <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16200	16298	
==>span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Other <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16200	16298	
==>span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Other <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2837	2931	
==>ne call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2837	2931	
==>ne call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.o <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3184	3278	
==>ne call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4533	4730	
==>ain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4533	4730	
==>ain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	485	584	
==>ional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	485	584	
==>ional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	485	584	
==>ional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7837	7937	
==>"How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7837	7937	
==>"How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17521	17614	
==>fix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17521	17614	
==>fix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17521	17614	
==>fix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33511	33630	
==>->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33511	33630	
==>->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33511	33630	
==>->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5022	5127	
==>ATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5022	5127	
==>ATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1111	1214	
==>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1111	1214	
==>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{v <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1111	1214	
==>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1392	1491	
==>hod.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1392	1491	
==>hod.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3957	4053	
==>:size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set:: <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3957	4053	
==>:size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1283	1377	
==>w();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1283	1377	
==>w();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1283	1377	
==>w();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_at <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8335	8446	
==>{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o->d <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8657	8758	
==>say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7626	7727	
==>say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8657	8758	
==>say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7626	7727	
==>say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	126	233	
==>ct;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	122	223	
==>ct;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	116	217	
==>ct;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	122	223	
==>ct;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	116	217	
==>ct;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $class, $rule_source, $pa <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3337	3437	
==>n1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_em <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8105	8205	
==>n1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_em <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3337	3437	
==>n1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_em <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8105	8205	
==>n1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_em <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	33	123	
==>:Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::DynamicScoping/;

use strict;
u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5338	5442	
==>okens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5338	5442	
==>okens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5338	5442	
==>okens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @t <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11392	11491	
==>params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

= <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11392	11491	
==>params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

= <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	326	453	
==>)
        || confess "You must store a native type in a list"
            foreach @values;
    bless \@values => $class;
}

# na <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	1054	1157	
==>. int)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong typing)
#	::free - a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21400	21495	
==>gedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspond <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20281	20376	
==>gedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspond <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21400	21495	
==>gedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspond <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20281	20376	
==>gedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspond <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	20864	20951	
==>ool::True,$module);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	722	842	
==>variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	722	842	
==>variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6089	6202	
==>e})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6089	6202	
==>e})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6089	6202	
==>e})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2310	2437	
==>rint "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9082	9209	
==>rint "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2310	2437	
==>rint "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9082	9209	
==>rint "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	29141	29238	
==>er> for test coverage
analysis.

=head1 TODO

Provide a way of running tests quietly (ie. no print <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	646	740	
==>losure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	646	740	
==>losure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25928	26021	
==>ping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30480	30573	
==>ping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  Th <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29455	29548	
==>ping> values duplicate each other,
or duplicate attribute names that aren't being renamed.  Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15891	16031	
==>= $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15891	16031	
==>= $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15891	16031	
==>= $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_met <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11742	11872	
==>le span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11742	11872	
==>le span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $o <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8770	8867	
==>=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=i <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8770	8867	
==>=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	138	233	
==>sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	138	233	
==>sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	138	233	
==>sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent( <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3079	3245	
==>_round = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8388	8481	
==>n;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	100	193	
==>n;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8388	8481	
==>n;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8388	8481	
==>n;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4647	4763	
==>union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4647	4763	
==>union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3707	3812	
==>equire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3707	3812	
==>equire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3707	3812	
==>equire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7036	7185	
==>e";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7036	7185	
==>e";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7036	7185	
==>e";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            m <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6811	6932	
==>re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o-> <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25830	25914	
==>ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SB <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11614	11819	
==>me' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clau <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11614	11819	
==>me' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clau <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	860	964	
==>\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	860	964	
==>\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	860	964	
==>\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1166	1267	
==>08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1166	1267	
==>08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1166	1267	
==>08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value: <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3359	3450	
==>rness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1 <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4495	4586	
==>rness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1 <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16513	16638	
==>O handles to autochomp
instead of this step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1220	1336	
==>d on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1569	1681	
==>d on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1176	1288	
==>d on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1569	1681	
==>d on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6275	6392	
==>gl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6275	6392	
==>gl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6275	6392	
==>gl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    retur <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	334	432	
==>(It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	334	432	
==>(It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13325	13422	
==>raffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13325	13422	
==>raffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3101	3191	
==>erms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3101	3191	
==>erms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Dat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3448	3538	
==>erms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21214	21319	
==>) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21214	21319	
==>) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21214	21319	
==>) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23107	23205	
==>ways seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw(". <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23107	23205	
==>ways seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw(". <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5908	6009	
==>rs.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5908	6009	
==>rs.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5908	6009	
==>rs.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASS <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10409	10506	
==>`pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10409	10506	
==>`pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3837	3978	
==>print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3837	3978	
==>print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3837	3978	
==>print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19982	20106	
==>e = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{nex <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16403	16527	
==>e = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{nex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	132	227	
==>s::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variab <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	132	227	
==>s::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1356	1450	
==>Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1356	1450	
==>Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1356	1450	
==>Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array" <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	4977	5151	
==>an return
                          # in the Prelude: we want to exit from the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please remem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8278	8389	
==>s { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8278	8389	
==>s { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8278	8389	
==>s { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	479	619	
==>t the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	479	619	
==>t the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	479	619	
==>t the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = ne <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9174	9277	
==>e Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9174	9277	
==>e Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	521	682	
==>ule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	521	682	
==>ule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1151	1284	
==>ltidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1151	1284	
==>ltidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10882	10982	
==>ion of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10882	10982	
==>ion of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10882	10982	
==>ion of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16602	16708	
==>v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks int <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16602	16708	
==>v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks int <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	3898	4039	
==>'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7943	8056	
==>msg = $parser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to see if an error is a partic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	415	507	
==>can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	415	507	
==>can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	415	507	
==>can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, <==
5	/Users/nnunley/pugs/util/claim_drift.pl	976	1128	
==>($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die "unlink: $!" }  unless $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1169	1302	
==>ype_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $t <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1169	1302	
==>ype_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $t <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	603	724	
==>ype_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $t <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	603	724	
==>ype_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	148	269	
==>tement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	148	269	
==>tement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12452	12555	
==>*@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12452	12555	
==>*@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12452	12555	
==>*@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	174	287	
==>:Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	174	287	
==>:Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	174	287	
==>:Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2248	2367	
==>my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2248	2367	
==>my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2595	2714	
==>my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&f <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5148	5260	
==>HS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5148	5260	
==>HS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PI <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3496	3598	
==>o) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3496	3598	
==>o) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3671	3766	
==>hod pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3671	3766	
==>hod pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3671	3766	
==>hod pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5102	5231	
==>:CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blesse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5102	5231	
==>:CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blesse <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5102	5231	
==>:CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blesse <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1262	1384	
==>ource => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@AR <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16551	16671	
==>' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    bloc <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	7009	7141	
==>k: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_indexs
sub read_designdocs {
    my $ddoc_dir = shift;
    @syn = map { m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4029	4159	
==>in(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5350	5480	
==>in(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4029	4159	
==>in(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5338	5468	
==>in(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4932	5048	
==>{
        return $4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bs <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2653	2764	
==>} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14597	14701	
==>'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14597	14701	
==>'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14597	14701	
==>'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_va <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1360	1454	
==>lues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1360	1454	
==>lues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19888	19977	
==>om_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19888	19977	
==>om_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19888	19977	
==>om_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3686	3874	
==>acking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3572	3754	
==>acking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	708	799	
==>dy}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	708	799	
==>dy}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	708	799	
==>dy}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22486	22579	
==>t has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS C <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22486	22579	
==>t has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2403	2495	
==>ttr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2403	2495	
==>ttr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2403	2495	
==>ttr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => :: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10012	10127	
==>body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13489	13604	
==>body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12770	12885	
==>body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result i <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	21	117	
==>unction composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	21	117	
==>unction composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2015	2125	
==>=> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2015	2125	
==>=> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2015	2125	
==>=> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shif <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10242	10331	
==>nt ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $ <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10977	11066	
==>nt ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16721	16855	
==>n => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16721	16855	
==>n => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1071	1162	
==>ternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1071	1162	
==>ternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1071	1162	
==>ternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	225	346	
==>';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	225	346	
==>';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	225	346	
==>';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10964	11077	
==>ranch
  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening par <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4516	4610	
==>est-match-first, but that's simple too, and the
# difference won't matter for the spike target. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8473	8612	
==>'$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->st <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8473	8612	
==>'$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->st <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8473	8612	
==>'$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->st <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	931	1067	
==>y \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	931	1067	
==>y \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$po <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27496	27668	
==>lue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27496	27668	
==>lue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27496	27668	
==>lue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4984	5126	
==>st      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Cod <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2936	3040	
==>NOPSIS

    use Blondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->compile($runtime, $env, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15670	15796	
==>ub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15670	15796	
==>ub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15670	15796	
==>ub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array- <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5068	5164	
==>iny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5068	5164	
==>iny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2664	2770	
==>concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2664	2770	
==>concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2664	2770	
==>concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat( <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7003	7099	
==>=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) Thi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7003	7099	
==>=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) Thi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14256	14356	
==>d_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14256	14356	
==>d_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14256	14356	
==>d_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34811	34908	
==>], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attrib <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34811	34908	
==>], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1744	1846	
==>e->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1744	1846	
==>e->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1744	1846	
==>e->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and re <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17247	17344	
==>an do anything we want with it.
This is perhaps the most flexible place to allocate large data
whi <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22347	22444	
==>an do anything we want with it.
This is perhaps the most flexible place to allocate large data
whi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	729	1035	
==>erbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ty <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	729	1035	
==>erbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1032	1144	
==>air" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1032	1144	
==>air" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1032	1144	
==>air" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1034	1152	
==>c"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1034	1152	
==>c"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	213	312	
==>Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	213	312	
==>Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	213	312	
==>Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeou <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10762	10916	
==>l, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($ver <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10762	10916	
==>l, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($ver <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4845	4944	
==>eft->fetch($i)->name->to_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2410	2507	
==>rr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it a <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2410	2507	
==>rr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6854	6969	
==>>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6854	6969	
==>>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6854	6969	
==>>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primi <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2081	2185	
==>d =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defin <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2081	2185	
==>d =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defin <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4246	4359	
==>($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4246	4359	
==>($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11928	12038	
==>e all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11928	12038	
==>e all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4328	4437	
==>' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # ob <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4328	4437	
==>' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # ob <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4328	4437	
==>' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # ob <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2831	2939	
==>$self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index gi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2831	2939	
==>$self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index gi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5654	5743	
==>alize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nic <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5654	5743	
==>alize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4423	4605	
==>nboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4423	4605	
==>nboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4423	4605	
==>nboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4378	4468	
==>:KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en ve <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4378	4468	
==>:KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en ve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9337	9488	
==>d      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = ' <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6040	6137	
==>$two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5170	5267	
==>$two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6040	6137	
==>$two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5170	5267	
==>$two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	3981	4092	
==>= eval { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7419	7554	
==>= "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7419	7554	
==>= "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if def <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7419	7554	
==>= "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if def <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2698	2807	
==>ork on other *nix
      systems, too. For now, I made the script stop if you aren't running under
      Linux, <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4741	4842	
==>of GHC and does not provide POSIX features absent
   from an MSYS build. If you wish to fix this pleas <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1370	1478	
==>L {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Li <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1370	1478	
==>L {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14312	14405	
==>6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14312	14405	
==>6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14312	14405	
==>6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	561	720	
==>paque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	561	720	
==>paque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	561	720	
==>paque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1148	1243	
==>gs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1148	1243	
==>gs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13335	13447	
==>ELP;
      Please create a $initrd_mnt/dev/console by entering the following command
      as root:
      # mknod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1130	1236	
==>->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1130	1236	
==>->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1130	1236	
==>->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2378	2483	
==>libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch <==
5	/Users/nnunley/pugs/util/func_refact.pl	2835	2947	
==>ser
    # return list of newly selected functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26996	27089	
==>directory, harness will check after each
test whether new files appeared in that directory, an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13152	13340	
==>unt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13152	13340	
==>unt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13152	13340	
==>unt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Val <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	978	1139	
==>{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpola <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	978	1139	
==>{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpola <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3011	3115	
==>sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3011	3115	
==>sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3011	3115	
==>sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] } <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13074	13174	
==>t whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because some <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13132	13232	
==>t whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because some <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6114	6239	
==>r( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3281	3406	
==>r( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4130	4255	
==>r( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6949	7073	
==>date module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_na <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6949	7073	
==>date module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32032	32129	
==>ion, and returns a new Relation that has the same heading
and whose body contains all of the tuple <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33893	33990	
==>ion, and returns a new Relation that has the same heading and
whose body contains all of the tuple <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36582	36679	
==>ion, and returns a new Relation that has the same heading
and whose body contains all of the tuple <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38443	38540	
==>ion, and returns a new Relation that has the same heading and
whose body contains all of the tuple <==
5	/Users/nnunley/pugs/util/grokprims.pl	1410	1505	
==>e(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(list|chaining <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2891	3020	
==>method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTM <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2891	3020	
==>method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTM <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5068	5176	
==>Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TP <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5068	5176	
==>Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TP <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1972	2080	
==>Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1734	1843	
==>_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1734	1843	
==>_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1734	1843	
==>_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12563	12659	
==>_header( $field, ... )

This function removes the header fields with the specified names.

The he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12563	12659	
==>_header( $field, ... )

This function removes the header fields with the specified names.

The he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20818	20911	
==>x1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20818	20911	
==>x1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20818	20911	
==>x1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6677	6765	
==>.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblin <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6677	6765	
==>.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1242	1366	
==>ub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1242	1366	
==>ub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1242	1366	
==>ub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $d <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	721	828	
==>d is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	779	886	
==>d is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12164	12271	
==>d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12164	12271	
==>d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1072	1176	
==>[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1072	1176	
==>[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1072	1176	
==>[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" i <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4091	4201	
==>'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Var <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4091	4201	
==>'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Var <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	941	1051	
==>'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Var <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33397	33493	
==>h it uses, the Template module for the program or first library should
appear first in the array. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33397	33493	
==>h it uses, the Template module for the program or first library should
appear first in the array. <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11295	11419	
==>"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11295	11419	
==>"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	281	376	
==>enjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	281	376	
==>enjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	281	376	
==>enjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3249	3512	
==>t');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_l <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3249	3512	
==>t');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	121	222	
==>e hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	121	222	
==>e hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	121	222	
==>e hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8187	8304	
==>s export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $strin <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8187	8304	
==>s export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	622	723	
==>nd {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	622	723	
==>nd {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	622	723	
==>nd {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    m <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1346	1443	
==>nly work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded i <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1346	1443	
==>nly work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded i <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1949	2164	
==>urrent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1949	2164	
==>urrent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6863	6971	
==>IKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6863	6971	
==>IKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6863	6971	
==>IKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9003	9155	
==>OT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9003	9155	
==>OT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	996	1088	
==>:Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	996	1088	
==>:Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1076	1168	
==>:Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	999	1102	
==>operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	999	1102	
==>operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	999	1102	
==>operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4733	4830	
==>&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4733	4830	
==>&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4046	4180	
==>matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3922	4052	
==>matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9691	9802	
==>`mount` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_img\" into \"$ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34608	34713	
==>ranslator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ge <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34608	34713	
==>ranslator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	198	313	
==>s.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	198	313	
==>s.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	198	313	
==>s.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4745	4855	
==>tching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4596	4704	
==>tching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2851	2955	
==>init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wor <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2851	2955	
==>init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wor <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2851	2955	
==>init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wor <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2059	2155	
==>ars or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has seve <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2059	2155	
==>ars or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has seve <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	360	460	
==>R::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	360	460	
==>R::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16248	16340	
==>(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16248	16340	
==>(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16248	16340	
==>(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Nu <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	15647	15748	
==>S_NOTTY} and not $Verbose;

    return($leader, $ml);
}

=item B<_leader_width>

  my($width) = _leade <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5746	5842	
==>«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4876	4972	
==>«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5746	5842	
==>«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4876	4972	
==>«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13233	13349	
==>reprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13233	13349	
==>reprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2743	2838	
==>N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2743	2838	
==>N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2743	2838	
==>N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«< <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	319	422	
==>$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $activ <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	319	422	
==>$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $activ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10076	10245	
==>_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10076	10245	
==>_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20983	21080	
==>or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20983	21080	
==>or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20983	21080	
==>or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1737	1905	
==>cribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1737	1905	
==>cribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1737	1905	
==>cribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_e <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15896	16018	
==>ch = $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local $X::current_match = $m1;
    local $X::cap = [];
    $v = $ru->($ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2224	2334	
==>gnature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   Bool      pre     exist <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8597	8719	
==>r @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::join (@values,   Str $delimiter <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4356	4470	
==>(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4356	4470	
==>(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4356	4470	
==>(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8084	8196	
==>rnals can cache the hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5942	6048	
==>d_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5942	6048	
==>d_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5942	6048	
==>d_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16185	16279	
==>*regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one el <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20611	20705	
==>*regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one el <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2740	2857	
==>mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrav <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2740	2857	
==>mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrav <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6756	6847	
==>'Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6756	6847	
==>'Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6756	6847	
==>'Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9318	9444	
==>sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9318	9444	
==>sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9318	9444	
==>sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4634	4754	
==>al value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- d <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4634	4754	
==>al value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- d <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	457	581	
==>p_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $ar <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	424	548	
==>p_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1822	1927	
==>0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1822	1927	
==>0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1822	1927	
==>0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3532	3638	
==>, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  T <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3532	3638	
==>, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4609	4710	
==>of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4609	4710	
==>of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->is <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4609	4710	
==>of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->is <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2790	2912	
==>ext1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2790	2912	
==>ext1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6673	6768	
==>stance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6673	6768	
==>stance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6673	6768	
==>stance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3055	3158	
==>ode($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data, <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3055	3158	
==>ode($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1428	1524	
==>bers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method inver <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1428	1524	
==>bers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method inver <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6025	6115	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6025	6115	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6025	6115	
==>gify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2420	2629	
==>{
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2420	2629	
==>{
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4344	4433	
==>ub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4344	4433	
==>ub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4344	4433	
==>ub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
pa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4727	4886	
==>ing start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5386	5545	
==>ing start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4727	4886	
==>ing start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5386	5545	
==>ing start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	1634	1728	
==>print STDERR "Generating inlined source Prelude... " if $Config{verbose};

    gen_source($TEMP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5531	5693	
==>t + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5531	5693	
==>t + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5531	5693	
==>t + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5086	5185	
==>encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::e <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5086	5185	
==>encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::e <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6688	6845	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listl <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5192	5349	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listl <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2180	2289	
==>_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2180	2289	
==>_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compat <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7343	7443	
==>nd off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previous_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3959	4070	
==>eys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3959	4070	
==>eys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3959	4070	
==>eys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17274	17371	
==>e compilers gives you the following benefits:

=over

=item *

Ability to mix many source filteris <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17274	17371	
==>e compilers gives you the following benefits:

=over

=item *

Ability to mix many source filteris <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3844	3955	
==>$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3844	3955	
==>$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3844	3955	
==>$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17177	17273	
==>l touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17177	17273	
==>l touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9002	9131	
==>s $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8688	8814	
==>s $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7008	7135	
==>q '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7008	7135	
==>q '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4292	4406	
==>perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::double <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4292	4406	
==>perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::double <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4292	4406	
==>perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::double <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13112	13253	
==>s>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9298	9439	
==>s>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10134	10275	
==>s>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	886	989	
==>::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::In <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	886	989	
==>::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3905	4002	
==>JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3905	4002	
==>JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3905	4002	
==>JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5319	5407	
==>c_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_d <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5319	5407	
==>c_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_d <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6079	6176	
==>he headers
are returned as one long string.

=item List Context

All headers are returned split in <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6079	6176	
==>he headers
are returned as one long string.

=item List Context

All headers are returned split in <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	842	933	
==>S::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	842	933	
==>S::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	842	933	
==>S::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::J <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13193	13336	
==>thod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the nex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13193	13336	
==>thod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the nex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13193	13336	
==>thod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the nex <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2772	2874	
==>( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2772	2874	
==>( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13744	13847	
==>_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7951	8054	
==>_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1932	2032	
==>seClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1932	2032	
==>seClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnde <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1932	2032	
==>seClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30637	30801	
==>ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30637	30801	
==>ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_l <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30637	30801	
==>ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9319	9437	
==>rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9307	9425	
==>rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15650	15838	
==>->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15650	15838	
==>->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15650	15838	
==>->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18529	18623	
==>for now it officially is not and you should not share
Rosetta objects between multiple threads, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18529	18623	
==>for now it officially is not and you should not share
Rosetta objects between multiple threads, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	477	573	
==>int-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	438	534	
==>int-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	438	534	
==>int-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3691	3837	
==>ame =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Va <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5008	5154	
==>ame =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3691	3837	
==>ame =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4996	5142	
==>ame =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Va <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13549	13670	
==>ange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6570	6690	
==>=~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6570	6690	
==>=~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6570	6690	
==>=~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    ret <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3639	3754	
==>ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 cha <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3639	3754	
==>ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2298	2405	
==>er(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2298	2405	
==>er(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval(' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2298	2405	
==>er(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval(' <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	331	430	
==>thLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 2 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	331	430	
==>thLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	58	162	
==>ports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	58	162	
==>ports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	58	162	
==>ports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	447	544	
==><$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	447	544	
==><$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12755	12879	
==>$conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12755	12879	
==>$conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12227	12344	
==>S)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12227	12344	
==>S)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12227	12344	
==>S)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3666	3804	
==>n_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3666	3804	
==>n_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4479	4567	
==>stance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4479	4567	
==>stance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4479	4567	
==>stance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15602	15707	
==>er(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition eas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15602	15707	
==>er(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition eas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15602	15707	
==>er(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition eas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12697	12797	
==>e sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fiel <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12697	12797	
==>e sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fiel <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4987	5138	
==>the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@m <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4987	5138	
==>the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8055	8182	
==>{ "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8055	8182	
==>{ "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8055	8182	
==>{ "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	711	851	
==>2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix:<times>' exp         { $out= [ $_[1] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	83	210	
==>nse[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	83	210	
==>nse[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  i <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1972	2079	
==>b;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port o <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1972	2079	
==>b;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port o <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5299	5398	
==>tion data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4539	4638	
==>true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::H <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5299	5398	
==>tion data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Ret <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4539	4638	
==>true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4539	4638	
==>true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::H <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12036	12150	
==>- wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12030	12144	
==>- wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	418	521	
==>ep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	418	521	
==>ep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	418	521	
==>ep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4898	5082	
==>}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4898	5082	
==>}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4898	5082	
==>}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{cl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15260	15356	
==>r of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Ty <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15260	15356	
==>r of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Ty <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2313	2426	
==>it( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_app <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3094	3207	
==>it( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_app <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6639	6750	
==>postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6639	6750	
==>postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6639	6750	
==>postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6431	6535	
==>m->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6431	6535	
==>m->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6431	6535	
==>m->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int-> <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1478	1581	
==>s, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1478	1581	
==>s, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1332	1491	
==>elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.e <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4571	4730	
==>elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1332	1491	
==>elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4571	4730	
==>elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7108	7263	
==>next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # success <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7108	7263	
==>next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # success <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1475	1574	
==>reludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1475	1574	
==>reludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} el <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1475	1574	
==>reludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} el <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	651	777	
==>" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	667	793	
==>" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	643	769	
==>" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $sel <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1114	1222	
==>ment'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# -- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1114	1222	
==>ment'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# -- <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11214	11423	
==>_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7496	7705	
==>_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8330	8539	
==>_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13279	13380	
==>) - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pingi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13279	13380	
==>) - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pingi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15816	15943	
==>ode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15816	15943	
==>ode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	157	277	
==>rdingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	157	277	
==>rdingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    di <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	157	277	
==>rdingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    di <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1076	1197	
==>rs here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        require Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22741	22845	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22741	22845	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22741	22845	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MUL <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3659	3759	
==>pv, and %^H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both segfaults a <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	491	594	
==>nstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1036	1139	
==>nstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - th <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	491	594	
==>nstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - th <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1036	1139	
==>nstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - th <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1036	1139	
==>nstructors are just new() wrappers.
# * grep(), map() don't depend on coroutines
# * Removed pair() - th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15577	15710	
==>erl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15577	15710	
==>erl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6087	6218	
==>$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	643	742	
==>+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# mult <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	643	742	
==>+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# mult <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22494	22624	
==>arams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42283	42412	
==>arams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38230	38341	
==>$array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38230	38341	
==>$array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38230	38341	
==>$array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	746	877	
==>re,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	746	877	
==>re,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || con <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	746	877	
==>re,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || con <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6167	6280	
==>start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6167	6280	
==>start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3749	3864	
==>= $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3749	3864	
==>= $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $even <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1248	1350	
==>CLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1248	1350	
==>CLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1248	1350	
==>CLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14602	14700	
==>ey all return the count of elements that would have
been iterated.

The lvalue form of C<keys> is n <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25309	25404	
==>UTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24073	24168	
==>UTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25309	25404	
==>UTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24073	24168	
==>UTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31475	31571	
==>gument. The new
Relation has all of the same attributes as the original.  Trivial cases are
where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36025	36121	
==>gument. The new
Relation has all of the same attributes as the original.  Trivial cases are
where <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	922	1016	
==>nClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	922	1016	
==>nClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	922	1016	
==>nClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1793	1907	
==>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1793	1907	
==>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1793	1907	
==>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6194	6297	
==>~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX:: <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	352	454	
==>ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12237	12358	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12237	12358	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12237	12358	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6973	7084	
==>atch) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6973	7084	
==>atch) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - m <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1843	1951	
==>);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8289	8410	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8289	8410	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8289	8410	
==>{
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unb <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8126	8233	
==>ins ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8126	8233	
==>ins ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $s <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4884	5101	
==>eturn $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4884	5101	
==>eturn $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10475	10640	
==>eturn $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10475	10640	
==>eturn $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10475	10640	
==>eturn $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6288	6395	
==>thod content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i, <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6288	6395	
==>thod content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14304	14464	
==>:alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14583	14743	
==>:alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17829	17980	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17829	17980	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17829	17980	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3137	3264	
==>e(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3137	3264	
==>e(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3137	3264	
==>e(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inlin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20996	21087	
==>efined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postgre <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20996	21087	
==>efined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postgre <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15372	15569	
==>es -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18849	19046	
==>es -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18274	18471	
==>es -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	227	319	
==>e 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
* <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	227	319	
==>e 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11582	11684	
==>_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Interna <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11582	11684	
==>_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Interna <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11582	11684	
==>_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Interna <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26385	26480	
==>put, any
variable values which are references will be passed by reference, so you
may store refe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26385	26480	
==>put, any
variable values which are references will be passed by reference, so you
may store refe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8950	9066	
==>b{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8950	9066	
==>b{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8950	9066	
==>b{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13814	13928	
==>[\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_cap <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13808	13922	
==>[\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_cap <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3459	3582	
==>red into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3459	3582	
==>red into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1805	1920	
==>ts);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	982	1095	
==>ts);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1455	1568	
==>ts);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7067	7181	
==>] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7067	7181	
==>] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7067	7181	
==>] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18226	18319	
==>er complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to h <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18226	18319	
==>er complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to h <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7464	7606	
==>)
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7657	7799	
==>)
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_g <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3613	3738	
==>>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3864	3985	
==>>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3864	3985	
==>>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8598	8703	
==>_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7567	7672	
==>_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8598	8703	
==>_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7567	7672	
==>_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $s <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26150	26244	
==>see 15.10.1
      <DecimalIntegerLiteral> <!before <DecimalDigit>> #lookahead
}
rule CharacterC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2950	3057	
==>ame;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2950	3057	
==>ame;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2950	3057	
==>ame;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18694	18796	
==>ed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginn <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18694	18796	
==>ed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38807	38917	
==>rray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38807	38917	
==>rray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38807	38917	
==>rray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TOD <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3573	3681	
==>.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a new Gramm <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3446	3549	
==>.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a new Gramm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9906	10034	
==>fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9906	10034	
==>fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9906	10034	
==>fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15955	16049	
==>subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::See <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15955	16049	
==>subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::See <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4428	4531	
==>splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4428	4531	
==>splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	54	156	
==>plementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	54	156	
==>plementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - no <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	54	156	
==>plementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - no <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2895	3068	
==>my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $nod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3179	3342	
==>my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $nod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9597	9760	
==>my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $nod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3179	3342	
==>my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $nod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9597	9760	
==>my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $nod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8917	9035	
==>ev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8917	9035	
==>ev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1663	1766	
==>ms(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1663	1766	
==>ms(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1663	1766	
==>ms(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26140	26263	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26140	26263	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26140	26263	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2736	2831	
==>"\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2736	2831	
==>"\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11672	11783	
==>\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11807	11906	
==>value )

Add a new field value for the specified header field.  Previous values
for the same field a <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11807	11906	
==>value )

Add a new field value for the specified header field.  Previous values
for the same field a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17542	17640	
==>ION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::I <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17542	17640	
==>ION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2612	2704	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2612	2704	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2612	2704	
==>Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Con <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7815	7912	
==>my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7803	7900	
==>my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2559	2655	
==>ckage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2559	2655	
==>ckage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2559	2655	
==>ckage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=he <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	435	545	
==>};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	435	545	
==>};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17245	17336	
==>) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17245	17336	
==>) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17245	17336	
==>) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($x <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5772	5869	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4902	4999	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5772	5869	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4902	4999	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) ret <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16237	16327	
==>0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0,F0,B0,B0,E0,E0) :- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	780	885	
==>SS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	780	885	
==>SS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	780	885	
==>SS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25271	25363	
==>mple bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENS <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25271	25363	
==>mple bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENS <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17871	17996	
==>t__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20751	20876	
==>t__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24539	24664	
==>t__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8486	8583	
==>1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This doc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8486	8583	
==>1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This doc <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	884	1013	
==>{
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	884	1013	
==>{
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10908	11008	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10908	11008	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10908	11008	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3791	3915	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3984	4108	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2337	2439	
==>t::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2337	2439	
==>t::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2337	2439	
==>t::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16345	16548	
==>[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16339	16542	
==>[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6364	6504	
==>{
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ ass <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	628	733	
==>etta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::S <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	628	733	
==>etta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::S <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1202	1300	
==>ase?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1202	1300	
==>ase?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	525	618	
==>alX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	525	618	
==>alX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	525	618	
==>alX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10945	11085	
==>rimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8015	8149	
==>rimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8015	8149	
==>rimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1066	1183	
==>($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewa <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1033	1150	
==>($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1976	2092	
==>ready installed");
    return $self;
}    

=head2 $bool = $inst_pkg->uninstall

=cut

sub uninstall {
    my $self = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	352	461	
==>_like_number($value)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16497	16593	
==>SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16497	16593	
==>SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16497	16593	
==>SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17674	17793	
==>->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) clos <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20911	21027	
==>eps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2887	2994	
==>::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2887	2994	
==>::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2887	2994	
==>::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attr <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	2141	2237	
==>>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

= <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2141	2237	
==>>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9145	9285	
==>nctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9145	9285	
==>nctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9145	9285	
==>nctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1548	1686	
==>ns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv+ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1548	1686	
==>ns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4103	4255	
==>matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4103	4255	
==>matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3945	4095	
==>);
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3945	4095	
==>);
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1017	1120	
==>);
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$name'} = \n$pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	970	1095	
==>[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	970	1095	
==>[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	970	1095	
==>[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('P <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12158	12252	
==>$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12158	12252	
==>$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7854	7965	
==>e       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture' field s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7588	7697	
==>e       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture' field s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2727	2832	
==>go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2727	2832	
==>go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2727	2832	
==>go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't ope <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2878	2987	
==>bel, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigene <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2878	2987	
==>bel, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigene <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2878	2987	
==>bel, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigene <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10155	10262	
==>gify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10155	10262	
==>gify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1847	1963	
==>he return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1847	1963	
==>he return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.ne <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3423	3529	
==>));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6900	7006	
==>));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5857	5963	
==>));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappin <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37299	37396	
==>me (a string) and checks whether or not it has already been
loaded, returning true if so and false <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37299	37396	
==>me (a string) and checks whether or not it has already been
loaded, returning true if so and false <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27367	27462	
==>s
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31919	32014	
==>s
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31002	31097	
==>s
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$ <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3637	3821	
==>if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_sy <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1098	1194	
==>ll byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers pro <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13946	14042	
==>estoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1098	1194	
==>ll byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers pro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13946	14042	
==>estoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	360	474	
==>c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In au <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37465	37562	
==>ned binary join()
operator, and the order of its arguments is not significant to the result;
the n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42014	42111	
==>ned binary join()
operator, and the order of its arguments is not significant to the result;
the n <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41655	41752	
==>ned binary join()
operator, and the order of its arguments is not significant to the result;
the n <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	139	231	
==>ubRoutine | SubBlock | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubPrim»;
has Su <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	812	935	
==>t1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $t <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	812	935	
==>t1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	615	713	
==>,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dum <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	615	713	
==>,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dum <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	659	745	
==>Cwd::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.or <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	648	804	
==>ull_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	648	804	
==>ull_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2676	2776	
==>h(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2676	2776	
==>h(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2676	2776	
==>h(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3326	3440	
==>d}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3326	3440	
==>d}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3326	3440	
==>d}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15013	15123	
==>to a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Dige <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15013	15123	
==>to a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Dige <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21241	21484	
==>tore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21241	21484	
==>tore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21241	21484	
==>tore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16597	16707	
==>elf->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->obje <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13018	13128	
==>elf->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->obje <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	749	887	
==>rs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	749	887	
==>rs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	749	887	
==>rs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8055	8147	
==>----------------------------------------------------
## utility methods

# NOTE:
# Occasional <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8055	8147	
==>----------------------------------------------------
## utility methods

# NOTE:
# Occasional <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20608	20708	
==>rror(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_hand <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17029	17129	
==>rror(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_hand <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7040	7132	
==>gleton_test_on_object',
   '... got the right return value from another Object singleton/clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8027	8119	
==>gleton_test_on_object',
   '... got the right return value from another Object singleton/clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10596	10688	
==>gleton_test_on_object',
   '... got the right return value from another Object singleton/clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	35	151	
==>se strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	299	415	
==>>submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACKAGE__ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	35	151	
==>se strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	35	151	
==>se strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22163	22257	
==>e_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @p <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	744	894	
==>$.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($v <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	744	894	
==>$.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1156	1257	
==>>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1156	1257	
==>>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1156	1257	
==>>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17407	17503	
==>_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17407	17503	
==>_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17407	17503	
==>_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14608	14703	
==>ecommended "Good Practice" of ordering the header fields.  Long header
values are not folded.

T <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14608	14703	
==>ecommended "Good Practice" of ordering the header fields.  Long header
values are not folded.

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5314	5421	
==>++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5314	5421	
==>++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CU <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5314	5421	
==>++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CU <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12798	12894	
==>es (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12856	12952	
==>es (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4101	4236	
==>\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4101	4236	
==>\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4101	4236	
==>\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3084	3193	
==>re_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::wo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3277	3386	
==>re_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::wo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	884	1009	
==>(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	884	1009	
==>(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var del <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	884	1009	
==>(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var del <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11594	11715	
==>('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11594	11715	
==>('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1827	1934	
==>t
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1827	1934	
==>t
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1827	1934	
==>t
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?J <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	43	146	
==>:Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_ <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	43	146	
==>:Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13916	14090	
==>ing,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4025	4171	
==>ing,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4025	4171	
==>ing,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4025	4171	
==>ing,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21902	22003	
==>e WithStatement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <Statement>
}
rule Switc <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24471	24765	
==>ist'),                              
                          ),
                returns => 'list'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      blo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20784	20879	
==>han")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<u <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19701	19796	
==>han")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20784	20879	
==>han")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19701	19796	
==>han")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<u <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	787	912	
==>) ) {
        error( "Could not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2068	2193	
==>) ) {
        error( "Could not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	177	290	
==>r(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	177	290	
==>r(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	177	290	
==>r(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8454	8556	
==>igil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8454	8556	
==>igil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8454	8556	
==>igil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4279	4372	
==>ss, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the righ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6181	6274	
==>ss, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the righ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	900	995	
==>qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	900	995	
==>qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	900	995	
==>qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fil <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3435	3528	
==>undamentally object-oriented; the procedural and functional 
interfaces are layers on top of t <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3435	3528	
==>undamentally object-oriented; the procedural and functional 
interfaces are layers on top of t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3108	3212	
==>mp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3108	3212	
==>mp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3108	3212	
==>mp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16037	16139	
==>rsection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19514	19616	
==>rsection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17625	17728	
==>ernal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17625	17728	
==>ernal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6498	6584	
==>sion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6498	6584	
==>sion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6498	6584	
==>sion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	460	620	
==>a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	460	620	
==>a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8492	8598	
==>$x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8492	8598	
==>$x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8492	8598	
==>$x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6467	6566	
==>r>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciph <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6467	6566	
==>r>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciph <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1200	1296	
==>js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1200	1296	
==>js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUB <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1200	1296	
==>js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUB <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1553	1667	
==>bes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    i <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2215	2329	
==>bes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4605	4698	
==>"$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4605	4698	
==>"$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4605	4698	
==>"$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14608	14744	
==>pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14608	14744	
==>pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14608	14744	
==>pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            u <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13004	13102	
==>d returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data struc <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13004	13102	
==>d returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data struc <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4284	4397	
==>ject { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4284	4397	
==>ject { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1118	1225	
==>atch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1118	1225	
==>atch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1118	1225	
==>atch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2502	2647	
==>eturn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2502	2647	
==>eturn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2502	2647	
==>eturn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	476	584	
==>$x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simpl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	476	584	
==>$x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simpl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12120	12290	
==>nus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation::Exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15141	15246	
==>x($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original co <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15141	15246	
==>x($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original co <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14993	15088	
==>tr $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(St <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14993	15088	
==>tr $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7882	8028	
==>\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7882	8028	
==>\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7882	8028	
==>\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    e <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3962	4069	
==>ue) && $value->isa('symbol'))
        || confess "You must store a symbol type in a param list";
    $self-> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	17367	17473	
==>urn a pair with the first param and the second param inside a pair
# hence pair is a -> b -> (a x b). So if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11589	11732	
==>unless $code =~ /return/;
        
    return
           "$_[1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10685	10799	
==>t}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10685	10799	
==>t}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15849	15955	
==>urn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10705	10811	
==>urn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2215	2340	
==>simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::B <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2215	2340	
==>simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::B <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2562	2687	
==>simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::B <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	490	593	
==>PDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	501	604	
==>PDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9077	9199	
==>d package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10554	10676	
==>d package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9725	9827	
==>all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficien <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13202	13304	
==>all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficien <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12474	12576	
==>all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficien <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10770	10909	
==>my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11236	11375	
==>my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10764	10903	
==>my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11230	11369	
==>my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4259	4377	
==>ues}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{values} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4062	4158	
==>es not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4062	4158	
==>es not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4062	4158	
==>es not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33495	33588	
==>e Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38045	38138	
==>e Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4236	4385	
==>gil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4236	4385	
==>gil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'cod <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4236	4385	
==>gil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'cod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6298	6421	
==>', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6298	6421	
==>', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    retur <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4795	4946	
==>on number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4795	4946	
==>on number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11023	11170	
==>ethod report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.descrip <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1501	1640	
==>ethod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descrip <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1501	1640	
==>ethod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descrip <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4870	4972	
==>See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	557	659	
==>See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5010	5112	
==>See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	557	659	
==>See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5355	5486	
==>@_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3816	3935	
==>or writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3816	3935	
==>or writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3816	3935	
==>or writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5873	5980	
==>@_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	486	596	
==>:Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jspr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	486	596	
==>:Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jspr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	486	596	
==>:Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jspr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9898	9998	
==>.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9898	9998	
==>.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	642	762	
==>nt "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	641	761	
==>nt "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	642	762	
==>nt "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	641	761	
==>nt "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
s <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2642	2746	
==>malism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26404	26621	
==>tart ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26404	26621	
==>tart ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unbo <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26404	26621	
==>tart ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unbo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	967	1086	
==>{
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	976	1095	
==>{
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	650	756	
==>d('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	650	756	
==>d('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2361	2453	
==>a_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2361	2453	
==>a_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2361	2453	
==>a_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->na <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1310	1414	
==>=~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1310	1414	
==>=~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1310	1414	
==>=~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?). <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	132	230	
==>dia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.ne <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	132	230	
==>dia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.ne <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9418	9755	
==>ep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        retur <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10895	11232	
==>ep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2134	2234	
==>ray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2134	2234	
==>ray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2134	2234	
==>ray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24131	24228	
==>y Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28683	28780	
==>y Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6489	6572	
==>te('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:auth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6489	6572	
==>te('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:auth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6489	6572	
==>te('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:auth <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3626	3746	
==>\)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpara <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3626	3746	
==>\)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpara <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3458	3559	
==>en calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3458	3559	
==>en calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not define <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3458	3559	
==>en calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not define <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4564	4689	
==>end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.e <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5223	5348	
==>end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4564	4689	
==>end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5223	5348	
==>end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.e <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3367	3472	
==>.$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scal <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	278	399	
==>e) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	278	399	
==>e) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4144	4248	
==>defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4144	4248	
==>defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4144	4248	
==>defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1740	1843	
==>($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cla <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1740	1843	
==>($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cla <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1976	2079	
==>($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cla <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	713	814	
==>pp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	713	814	
==>pp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3957	4061	
==>check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PI <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3957	4061	
==>check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	980	1075	
==>:RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	980	1075	
==>:RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	980	1075	
==>:RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PV <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	224	327	
==>}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node ty <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	224	327	
==>}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3546	3647	
==>xed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3546	3647	
==>xed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3546	3647	
==>xed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7516	7652	
==>ode);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7516	7652	
==>ode);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7516	7652	
==>ode);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@no <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1221	1374	
==>end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4460	4613	
==>end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1221	1374	
==>end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4460	4613	
==>end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	477	589	
==>confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conversion to native va <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37693	37791	
==>tuple values
are aligned and merged.  The heading of the new relation is the union of
all the headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42242	42340	
==>tuple values
are aligned and merged.  The heading of the new relation is the union of
all the headi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41892	41990	
==>tuple values
are aligned and merged.  The heading of the new relation is the union of
all the headi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	120	217	
==>piler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15535	15628	
==>::QuantAttr

Removes quantifiers as objects, and makes 'min' and 'max' attributes of
other obj <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3518	3659	
==>vy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3518	3659	
==>vy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4819	4914	
==>de);
			$self->unify_type($node, $expected);
		});

		return Blondie::TypeSafe::Annotation->new( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4705	4799	
==>et of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8182	8276	
==>et of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13271	13452	
==>h;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (subs <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3444	3601	
==>h;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3444	3601	
==>h;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subs <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3444	3601	
==>h;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1313	1403	
==>sion of 
Test::Builder::TestPlan.

This file contains both the TestBuilder::TestPlan object <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1247	1371	
==>/ HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1247	1371	
==>/ HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3245	3340	
==>e      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3245	3340	
==>e      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3245	3340	
==>e      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	280	380	
==>esource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	280	380	
==>esource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	280	380	
==>esource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1376	1470	
==>rs encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859- <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1376	1470	
==>rs encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859- <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4098	4222	
==>_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4098	4222	
==>_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1500	1607	
==>infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1500	1607	
==>infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1500	1607	
==>infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary-> <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4835	4963	
==>ach %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $ver <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4694	4822	
==>ach %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $ver <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21969	22096	
==>foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21969	22096	
==>foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21969	22096	
==>foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5707	5956	
==>b_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5707	5956	
==>b_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5707	5956	
==>b_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3270	3365	
==>er-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HTT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3270	3365	
==>er-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HTT <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30281	30423	
==>lems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30281	30423	
==>lems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30281	30423	
==>lems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $r <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1324	1419	
==>->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1324	1419	
==>->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9275	9392	
==>4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9333	9450	
==>4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11209	11315	
==>eturn $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1675	1771	
==>eturn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1675	1771	
==>eturn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22666	22761	
==>item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27218	27313	
==>item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1201	1294	
==>stes, and
you want to rebless everything down to your project's base namespace.

Class::Rebles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1201	1294	
==>stes, and
you want to rebless everything down to your project's base namespace.

Class::Rebles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1201	1294	
==>stes, and
you want to rebless everything down to your project's base namespace.

Class::Rebles <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2967	3107	
==>rt, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2967	3107	
==>rt, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17654	17746	
==>$xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17654	17746	
==>$xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17654	17746	
==>$xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {. <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	501	602	
==>unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, versi <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	501	602	
==>unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, versi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17104	17234	
==>}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17104	17234	
==>}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6495	6592	
==>tr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6495	6592	
==>tr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MR <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6495	6592	
==>tr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MR <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	553	692	
==>ef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        { <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	553	692	
==>ef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2390	2487	
==>ink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2390	2487	
==>ink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2390	2487	
==>ink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17903	18022	
==>SwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14324	14443	
==>SwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3542	3647	
==>r die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3542	3647	
==>r die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3542	3647	
==>r die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$re <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	9005	9225	
==>dition        
        
        my %test = (
                    ok          => $results{ok},
                    'next'      => $Strap->{'next'},
                    max         => $results{max},
                    fail <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10169	10354	
==>ass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Te <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	723	896	
==>ass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	723	896	
==>ass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Te <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28090	28184	
==>s inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=item my $d = $ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1551	1678	
==>s.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1551	1678	
==>s.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1551	1678	
==>s.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4437	4531	
==>me::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed int <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4687	4781	
==>me::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	337	476	
==>"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	337	476	
==>"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	337	476	
==>"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = j <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24200	24321	
==>S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifth <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20621	20742	
==>S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifth <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3180	3294	
==>ed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3180	3294	
==>ed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8695	8802	
==>ce=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/post <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6226	6329	
==>ce=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/post <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2988	3090	
==>nction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2988	3090	
==>nction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2988	3090	
==>nction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undef <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1006	1113	
==>amed rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pug <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1006	1113	
==>amed rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6104	6199	
==>t.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6104	6199	
==>t.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6104	6199	
==>t.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35300	35442	
==>n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35300	35442	
==>n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35300	35442	
==>n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20018	20114	
==>ed to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($un <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20018	20114	
==>ed to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($un <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	587	703	
==>rs_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	587	703	
==>rs_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	587	703	
==>rs_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byte <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6242	6339	
==>ash is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item get <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6242	6339	
==>ash is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item get <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	17	122	
==>-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.resu <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	17	122	
==>-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.resu <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	44	135	
==>ore::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	41	132	
==>ore::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	41	132	
==>ore::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2137	2246	
==>:

    #!perl -T

the test will be run with taint mode on.

=head2 Configuration variables.

These variables c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20143	20238	
==>ssors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19102	19197	
==>ssors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20143	20238	
==>ssors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19102	19197	
==>ssors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3159	3262	
==>||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3159	3262	
==>||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3159	3262	
==>||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11827	11926	
==>list of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11827	11926	
==>list of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3417	3517	
==>re([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3417	3517	
==>re([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3417	3517	
==>re([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4307	4391	
==>$status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&stat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5045	5127	
==>$status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2117	2221	
==>bly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2117	2221	
==>bly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2117	2221	
==>bly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $su <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1552	1653	
==>capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratche <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1692	1793	
==>capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratche <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	440	549	
==>})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	440	549	
==>})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	440	549	
==>})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8457	8547	
==>::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @stateme <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2282	2372	
==>::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @stateme <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6540	6663	
==>")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = shift;

		warn "comparing $x and $y <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1547	1642	
==>n explicit true/false value to dynamic_config, skipping\n";
		return $self;
	}
	$self->{'values' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14661	14754	
==>LTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14661	14754	
==>LTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14661	14754	
==>LTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2291	2455	
==>uld not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2291	2455	
==>uld not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	110	209	
==>TIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	110	209	
==>TIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	110	209	
==>TIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Re <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7815	7930	
==>endency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1116	1231	
==>endency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5308	5415	
==>t @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5308	5415	
==>t @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = ' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5308	5415	
==>t @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = ' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	308	453	
==>od parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	308	453	
==>od parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	166	265	
==>)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	166	265	
==>)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	166	265	
==>)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...no <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	716	864	
==>ntinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	716	864	
==>ntinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1385	1490	
==>_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1385	1490	
==>_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1385	1490	
==>_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7440	7550	
==>SS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7440	7550	
==>SS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7440	7550	
==>SS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private me <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26363	26458	
==>informed any time you create a modified version of Rosetta
that you are willing to distribute, b <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26363	26458	
==>informed any time you create a modified version of Rosetta
that you are willing to distribute, b <==
5	/Users/nnunley/pugs/misc/S29_round.pl	3104	3305	
==>ic($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14953	15073	
==>$on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group', <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	409	528	
==>pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	409	528	
==>pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	409	528	
==>pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1348	1472	
==>ce(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1348	1472	
==>ce(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1348	1472	
==>ce(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7983	8089	
==>$parser->errnum;
    # ...
  }

If you want to see if an error is a particular error, see
L</"ERROR HANDLIN <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	59	158	
==>t"-Operator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sei <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4517	4618	
==>lse {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4517	4618	
==>lse {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4517	4618	
==>lse {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Us <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2824	2923	
==>Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
} <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2824	2923	
==>Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9220	9355	
==>rt_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1344	1473	
==>rt_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed, <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1344	1473	
==>rt_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13599	13695	
==>= $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to r <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13599	13695	
==>= $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5853	5982	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5853	5982	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5853	5982	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8146	8257	
==>ion returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match fail <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7872	7980	
==>ion returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match fail <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4564	4672	
==><users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete( <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4564	4672	
==><users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3611	3716	
==>|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    use < <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4200	4296	
==>not.

=head2 @{}

When used as an array reference, the match object returns positional
captures a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4200	4296	
==>not.

=head2 @{}

When used as an array reference, the match object returns positional
captures a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14830	14962	
==>ix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14824	14956	
==>ix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12600	12722	
==>ub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12600	12722	
==>ub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12600	12722	
==>ub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => su <==
5	/Users/nnunley/pugs/util/testgraph.pl	1512	1631	
==>::Model::File::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $lin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13750	13856	
==>rt_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18953	19059	
==>rt_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13750	13856	
==>rt_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18953	19059	
==>rt_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2878	2999	
==>$b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2norma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2878	2999	
==>$b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2norma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2878	2999	
==>$b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2norma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20195	20291	
==>s result not be recompiled by
some other containing parser. In this case the result of the compil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20195	20291	
==>s result not be recompiled by
some other containing parser. In this case the result of the compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29219	29334	
==>ram = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29219	29334	
==>ram = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29219	29334	
==>ram = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1322	1420	
==>f encountered.  The latter would of
# course not help people running existent versions of perl5.  P <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	140	237	
==>type pretty printer and the type object model
# it emits greek letters and unicode symbols, or typ <==
5	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	39	135	
==>s ReturnType $.returns;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $cont <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6929	7019	
==>ness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1369	1459	
==>ness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6929	7019	
==>ness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1369	1459	
==>ness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6238	6344	
==>&& $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6238	6344	
==>&& $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	781	874	
==>w;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	781	874	
==>w;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	781	874	
==>w;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15726	15866	
==>no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15726	15866	
==>no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1208	1319	
==>m;

    return $param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_count_stack} }, 0;
	
	$se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15518	15628	
==>source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_out <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15518	15628	
==>source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_out <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	485	614	
==>IL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	485	614	
==>IL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	485	614	
==>IL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11262	11356	
==>n) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11262	11356	
==>n) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21450	21578	
==>turn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21729	21857	
==>turn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7655	7753	
==>DE PVar ($pVarName) {
    return "is macrop5 $pVarName" if p6_macrop5($pVarName);
    p6_var_CODE($ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1724	1814	
==>et = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functio <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1724	1814	
==>et = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11404	11508	
==>for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11404	11508	
==>for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11404	11508	
==>for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15900	15998	
==>or that,
while resembling a message that would be shown to a user, is in fact meant
to be interpret <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15900	15998	
==>or that,
while resembling a message that would be shown to a user, is in fact meant
to be interpret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2656	2768	
==>ariables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2796	2908	
==>ariables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11313	11402	
==>st::Builder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::W <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1769	1854	
==>st::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::W <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1769	1854	
==>st::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::W <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30534	30629	
==>hich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35085	35180	
==>hich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34267	34362	
==>hich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attrib <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4760	4841	
==>ed ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+& <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4760	4841	
==>ed ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+& <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4750	4895	
==>st_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_e <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4750	4895	
==>st_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2229	2331	
==>r(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2229	2331	
==>r(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2229	2331	
==>r(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", " <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	163	263	
==>A = qw(Module::Install::Base);

$VERSION = '0.02';

use strict;

# determine if the user needs nmake, <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5851	5947	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4981	5077	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5851	5947	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4981	5077	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	564	746	
==>f(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	564	746	
==>f(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	564	746	
==>f(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1260	1378	
==>ubmatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1260	1378	
==>ubmatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11750	11860	
==>args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11750	11860	
==>args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11750	11860	
==>args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	921	1029	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	921	1029	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Ro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6164	6295	
==>er \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6164	6295	
==>er \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6164	6295	
==>er \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1132	1238	
==>resub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* } <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1132	1238	
==>resub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7269	7382	
==>els>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7269	7382	
==>els>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3979	4086	
==>AME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3979	4086	
==>AME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3979	4086	
==>AME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10403	10512	
==>nted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10403	10512	
==>nted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10403	10512	
==>nted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fo <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	56	151	
==>t_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instructio <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	56	151	
==>t_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instructio <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15263	15382	
==>$_ } $env->values };
    my $ast = shift;

    $self->reduce($ast);
}

sub reduce_param {
    my $self = shift;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12074	12169	
==>s all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_eq <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9195	9290	
==>s all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_eq <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12074	12169	
==>s all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_eq <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9195	9290	
==>s all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_eq <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14362	14474	
==>rams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14362	14474	
==>rams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14362	14474	
==>rams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11848	11956	
==>]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11848	11956	
==>]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	728	851	
==>"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	728	851	
==>"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	728	851	
==>"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.lengt <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3125	3235	
==>ce && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3113	3223	
==>ce && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23644	23759	
==>ined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23644	23759	
==>ined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23644	23759	
==>ined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16837	16927	
==>riables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't act <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16837	16927	
==>riables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't act <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	907	1036	
==>dy;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is repre <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4385	4514	
==>dy;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is repre <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	916	1039	
==>len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	925	1048	
==>len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) = <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2075	2170	
==>mediately -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main runlo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2382	2557	
==>exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1752	1854	
==>he server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1752	1854	
==>he server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15559	15650	
==>utually recursive, they will easily be
able handle arbitrarily complex data structures autom <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15617	15708	
==>utually recursive, they will easily be
able handle arbitrarily complex data structures autom <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10807	10929	
==>, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_perso <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10807	10929	
==>, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_perso <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3278	3395	
==>ody;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation::Example, where the tu <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31039	31134	
==>heir use, the full name of a module
consists of the two parts concatenated without any delimiter <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31039	31134	
==>heir use, the full name of a module
consists of the two parts concatenated without any delimiter <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6617	6821	
==>yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data us <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6617	6821	
==>yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data us <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	302	433	
==>ew,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	302	433	
==>ew,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	302	433	
==>ew,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub to <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	243	343	
==>ned }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_ <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	243	343	
==>ned }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22013	22103	
==>6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22013	22103	
==>6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22013	22103	
==>6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8144	8359	
==>{
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8144	8359	
==>{
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8144	8359	
==>{
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
} <==
5	/Users/nnunley/pugs/misc/S29_round.pl	1888	2027	
==>($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2425	2564	
==>($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9242	9364	
==>6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9242	9364	
==>6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9242	9364	
==>6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14171	14268	
==>Practice" order.

Any return values of the callback routine are ignored.  The loop can
be broken b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14171	14268	
==>Practice" order.

Any return values of the callback routine are ignored.  The loop can
be broken b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6924	7079	
==>. $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6924	7079	
==>. $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6924	7079	
==>. $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3319	3410	
==>fference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    r <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3319	3410	
==>fference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2283	2422	
==>::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2283	2422	
==>::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2701	2809	
==>hem to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2701	2809	
==>hem to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2701	2809	
==>hem to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14073	14201	
==>ult = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a- <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14073	14201	
==>ult = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1151	1263	
==>nction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1151	1263	
==>nction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1151	1263	
==>nction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10048	10224	
==>1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ / <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10048	10224	
==>1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ / <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1725	1849	
==>lf, $file ) = @_;

    unless ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19875	19972	
==>ill return two
values; the user name and the password.  In scalar context it will
return I<"uname: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19875	19972	
==>ill return two
values; the user name and the password.  In scalar context it will
return I<"uname: <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6156	6250	
==>Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8224	8318	
==>Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6156	6250	
==>Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8224	8318	
==>Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	31	122	
==>ame test program.
# For more detail: http://www.perlmonks.org/?node_id=438876
# For historic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2864	2972	
==>tiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2864	2972	
==>tiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2864	2972	
==>tiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6678	6779	
==>,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bo <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6678	6779	
==>,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11614	11759	
==>'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11614	11759	
==>'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11614	11759	
==>'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4485	4608	
==>{ 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4678	4801	
==>{ 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_c <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2104	2234	
==>=> $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classe <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2104	2234	
==>=> $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	736	837	
==>igName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	736	837	
==>igName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	736	837	
==>igName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20686	20787	
==>u might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20686	20787	
==>u might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1196	1286	
==>c(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1196	1286	
==>c(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1196	1286	
==>c(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@key <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	16001	16136	
==>$link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a repr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9902	10014	
==>split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15743	15855	
==>split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9902	10014	
==>split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $pa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15737	15849	
==>split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $pa <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5961	6067	
==>::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5961	6067	
==>::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13966	14066	
==>) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13966	14066	
==>) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13966	14066	
==>) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1089	1186	
==>'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1089	1186	
==>'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1089	1186	
==>'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	842	936	
==>sc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	900	994	
==>sc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19007	19130	
==>f ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully sup <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19007	19130	
==>f ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully sup <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19007	19130	
==>f ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully sup <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1628	1746	
==>utoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

us <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5029	5133	
==>JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has $.target;
   method is <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1153	1282	
==>..
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    mul <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1153	1282	
==>..
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2717	2810	
==>'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2717	2810	
==>'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2717	2810	
==>'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3155	3302	
==>thods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_inst <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3883	4004	
==>thods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_inst <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	192	297	
==>subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	192	297	
==>subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	192	297	
==>subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3902	4025	
==>ng will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3902	4025	
==>ng will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1133	1237	
==>up,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1133	1237	
==>up,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1133	1237	
==>up,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	254	360	
==>key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	254	360	
==>key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	254	360	
==>key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("A <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17617	17714	
==>ad2 How It Works

Modern programs or database systems often refer to an error condition by an
inte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17617	17714	
==>ad2 How It Works

Modern programs or database systems often refer to an error condition by an
inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2972	3085	
==>s_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box h <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2972	3085	
==>s_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box h <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2972	3085	
==>s_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box h <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1467	1573	
==>representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a si <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1467	1573	
==>representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a si <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13883	13988	
==>aven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connection <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13883	13988	
==>aven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connection <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12953	13054	
==>aven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connection <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12953	13054	
==>aven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connection <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30699	30798	
==>ch is why it must match the right parenthesis
itself.  The handler throws an error if it can't match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8866	8980	
==>d $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8866	8980	
==>d $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8866	8980	
==>d $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# X <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7451	7540	
==>ents, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1276	1365	
==>ents, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3485	3585	
==>ilter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22765	22865	
==>v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0, <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3485	3585	
==>ilter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22765	22865	
==>v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22765	22865	
==>v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11915	12114	
==>rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11915	12114	
==>rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5245	5337	
==>instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5245	5337	
==>instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5245	5337	
==>instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10103	10201	
==>t can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

R <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10103	10201	
==>t can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	511	608	
==>ir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	511	608	
==>ir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enco <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	511	608	
==>ir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enco <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7263	7382	
==>g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retur <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3867	3986	
==>g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4716	4835	
==>g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retur <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10562	10677	
==>seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10562	10677	
==>seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11252	11373	
==>subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11252	11373	
==>subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11252	11373	
==>subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2073	2189	
==>FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2073	2189	
==>FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12728	12947	
==>ource =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_d <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12728	12947	
==>ource =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5542	5673	
==>rity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5542	5673	
==>rity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    e <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5542	5673	
==>rity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    e <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13471	13565	
==>tities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expan <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13471	13565	
==>tities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expan <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11398	11507	
==>le = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11398	11507	
==>le = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11398	11507	
==>le = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21422	21521	
==>->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44329	44428	
==>->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4408	4513	
==>ame." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming position <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4408	4513	
==>ame." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming position <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4998	5103	
==>ame." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming position <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29689	29783	
==>is a generic relational operator that returns a new Relation::Example
which has a subset of the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34907	35001	
==>is a generic relational operator that returns a new Relation::Example
which has a subset of the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1826	1931	
==>];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1826	1931	
==>];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1826	1931	
==>];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Ba <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3331	3424	
==>self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3331	3424	
==>self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($s <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	536	666	
==>unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %eve <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	536	666	
==>unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %eve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5853	5954	
==>nboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5853	5954	
==>nboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5853	5954	
==>nboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4971	5077	
==>($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nati <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4971	5077	
==>($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nati <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4971	5077	
==>($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nati <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21116	21208	
==>ta,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21116	21208	
==>ta,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Ro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	674	791	
==>UPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	690	807	
==>UPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	666	783	
==>UPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18481	18586	
==>A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18481	18586	
==>A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	716	829	
==>unctional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	716	829	
==>unctional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12969	13071	
==>in(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12969	13071	
==>in(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12969	13071	
==>in(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1731	1832	
==>ity, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1731	1832	
==>ity, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1731	1832	
==>ity, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1828	1925	
==>t 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/or <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1828	1925	
==>t 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20856	21116	
==>ar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20856	21116	
==>ar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20856	21116	
==>ar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18245	18340	
==>C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the conn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18245	18340	
==>C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the conn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6477	6589	
==>\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6477	6589	
==>\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6477	6589	
==>\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1574	1678	
==>mpile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_ba <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1574	1678	
==>mpile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_ba <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32223	32365	
==>tcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::para <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32878	33020	
==>tcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::para <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29431	29572	
==>tcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11104	11212	
==>ways overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Rege <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11104	11212	
==>ways overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Rege <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	841	947	
==>ge/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	841	947	
==>ge/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	841	947	
==>ge/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the co <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8802	8905	
==>uire) = @_;
    eval <<REQUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1173	1270	
==>le license.  See the F<LICENCE> file for details.

This program is free software; you can redistri <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1299	1414	
==>t] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', ga <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1299	1414	
==>t] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', ga <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9125	9229	
==>ion => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9125	9229	
==>ion => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9125	9229	
==>ion => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23673	23800	
==>$c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20094	20221	
==>$c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7011	7115	
==>tore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7011	7115	
==>tore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7011	7115	
==>tore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5944	6050	
==>on( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5944	6050	
==>on( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => ' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5944	6050	
==>on( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30252	30346	
==>rder, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attrib <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34804	34898	
==>rder, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attrib <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	683	803	
==>rg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	683	803	
==>rg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3796	3912	
==>ub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SY <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3796	3912	
==>ub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SY <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3796	3912	
==>ub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SY <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1902	2002	
==>.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1902	2002	
==>.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1902	2002	
==>.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18636	18730	
==>new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot wi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18636	18730	
==>new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot wi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3718	3850	
==>= 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3706	3838	
==>= 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	368	488	
==>ist) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Pro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	368	488	
==>ist) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Pro <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2087	2203	
==>self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $self );
}

1;


# Lo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12278	12382	
==>RG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6845	6949	
==>RG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12278	12382	
==>RG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6845	6949	
==>RG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	560	655	
==>lance.

Clutter:: is a package for macros declared and used locally.
Helpers:: is for more gener <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17482	17576	
==>ee the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
prob <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17482	17576	
==>ee the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
prob <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6761	6849	
==>_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6761	6849	
==>_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6761	6849	
==>_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_met <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9252	9391	
==>et("$current", $e->get("&dispatcher")->do()); 
            })->do_while(
                block->new($e, sub { 
                    my $e = s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10593	10719	
==>h
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{z <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19213	19317	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19213	19317	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19213	19317	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_met <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13493	13590	
==>eturns the list of distinct names for the fields present in the
header.  The field names have case <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13493	13590	
==>eturns the list of distinct names for the fields present in the
header.  The field names have case <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34135	34227	
==>nvocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffere <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38685	38777	
==>nvocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffere <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38146	38238	
==>nvocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffere <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4856	5003	
==>at should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4856	5003	
==>at should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	478	583	
==>FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	478	583	
==>FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	478	583	
==>FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9887	10025	
==>e a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servernam <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9887	10025	
==>e a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servernam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27	136	
==>ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27	136	
==>ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27	136	
==>ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	97	194	
==>this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($sel <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	97	194	
==>this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18095	18191	
==>to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18095	18191	
==>to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18095	18191	
==>to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5042	5255	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5042	5255	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5042	5255	
==>ethod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9957	10057	
==>/^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2) <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9957	10057	
==>/^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1402	1511	
==>ircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' ' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24318	24418	
==>ns) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23091	23191	
==>ns) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24318	24418	
==>ns) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23091	23191	
==>ns) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21210	21335	
==>x
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17631	17756	
==>x
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8262	8372	
==>stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8262	8372	
==>stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8262	8372	
==>stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #wa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9912	10025	
==>>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9912	10025	
==>>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9912	10025	
==>>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all di <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4231	4343	
==>);
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4231	4343	
==>);
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4546	4666	
==>is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::A <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4546	4666	
==>is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::A <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	12713	12820	
==>eadline() }
    method next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15733	15827	
==>=item $h.if_unmodified_since

These header fields are used to make a request conditional.  If t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15733	15827	
==>=item $h.if_unmodified_since

These header fields are used to make a request conditional.  If t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14036	14191	
==>> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14036	14191	
==>> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14036	14191	
==>> {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7346	7450	
==>e;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\)?\s*\z//;
	my @pn = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7734	7829	
==>l return the numerical value
of the message.  If you use new() the F<Regexp::Parser> object will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6587	6708	
==>{ $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6587	6708	
==>{ $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6587	6708	
==>{ $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => su <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	312	408	
==>MonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	312	408	
==>MonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	299	416	
==>pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	299	416	
==>pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	299	416	
==>pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanc <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18984	19077	
==>corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate ranging
ov <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22634	22727	
==>corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate ranging ov <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1398	1514	
==>) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1398	1514	
==>) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1398	1514	
==>) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28522	28742	
==>oin( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlifi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28522	28742	
==>oin( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlifi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28522	28742	
==>oin( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlifi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13321	13419	
==>No traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curse <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13321	13419	
==>No traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curse <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13900	14006	
==>raffic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13900	14006	
==>raffic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12970	13072	
==>raffic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12970	13072	
==>raffic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, t <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1668	1769	
==>|
    $CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'refs';
  eval { require <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11938	12134	
==>ll_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11938	12134	
==>ll_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4573	4668	
==>LIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4573	4668	
==>LIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4573	4668	
==>LIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5673	5778	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5673	5778	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5673	5778	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12971	13065	
==>infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Return <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12971	13065	
==>infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Return <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10432	10563	
==>sed.

=cut

sub _cleaned_switches {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3571	3670	
==>ion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3571	3670	
==>ion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3571	3670	
==>ion too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27117	27211	
==>this class defaults it to False.

=back

This is the main Relation::Example constructor method: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3607	3719	
==>=> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3607	3719	
==>=> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3607	3719	
==>=> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn " <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3607	3703	
==>p:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_name <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3607	3703	
==>p:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1133	1236	
==>ugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1133	1236	
==>ugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc}, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1133	1236	
==>ugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc}, <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10938	11031	
==>a "universal set".
Otherwise the program will emit warnings during the execution of some metho <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10938	11031	
==>a "universal set".
Otherwise the program will emit warnings during the execution of some metho <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1030	1148	
==>value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.re <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1030	1148	
==>value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24504	24599	
==>Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutabl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29056	29151	
==>Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutabl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27932	28027	
==>Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutabl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9027	9152	
==>non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9023	9148	
==>non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print " <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5467	5561	
==>r &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5467	5561	
==>r &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5467	5561	
==>r &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	353	468	
==>ber is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1211	1326	
==>ber is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3903	4005	
==>{
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3903	4005	
==>{
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3903	4005	
==>{
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	634	743	
==>elf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	634	743	
==>elf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	634	743	
==>elf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete ( <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3782	3873	
==>ve documentation/comments. If you need something
with more power, move up to Config::Simple, <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3782	3873	
==>ve documentation/comments. If you need something
with more power, move up to Config::Simple, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33875	33987	
==>nfinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33875	33987	
==>nfinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33875	33987	
==>nfinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33540	33637	
==>any (C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C< <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9745	9880	
==>1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is expo <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9745	9880	
==>1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is expo <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2304	2435	
==>h has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do somet <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2304	2435	
==>h has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do somet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11696	11794	
==>_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11696	11794	
==>_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11696	11794	
==>_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13118	13228	
==>erl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13118	13228	
==>erl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'nam <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13118	13228	
==>erl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'nam <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	229	333	
==>ugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are unkn <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	229	333	
==>ugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are unkn <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	548	801	
==>GS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	548	801	
==>GS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	971	1076	
==>sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1176	1281	
==>sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1237	1342	
==>sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7284	7398	
==>ng)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7284	7398	
==>ng)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7284	7398	
==>ng)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pack <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2538	2641	
==>.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subs <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2538	2641	
==>.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subs <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43195	43434	
==>new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => ' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46539	46778	
==>new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => ' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36445	36670	
==>new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => ' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37980	38205	
==>new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => ' <==
5	/Users/nnunley/pugs/util/PugsConfig.pm	3605	3701	
==>import qualified Pugs.Version

config :: Map.Map String String
config = Map.fromList
    [#all_de <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8512	8645	
==>."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_inte <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11989	12122	
==>."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_inte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13880	14008	
==>ance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13880	14008	
==>ance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13880	14008	
==>ance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12500	12678	
==>w;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12500	12678	
==>w;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12500	12678	
==>w;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6028	6192	
==>turn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $ar <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6028	6192	
==>turn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	623	731	
==>= 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data:: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	623	731	
==>= 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1462	1564	
==>\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1462	1564	
==>\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1462	1564	
==>\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2075	2235	
==>n sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7018	7176	
==>n sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1846	2001	
==>n sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1846	2001	
==>n sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6783	6936	
==>n sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13257	13358	
==>>= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13257	13358	
==>>= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10928	11024	
==>->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10928	11024	
==>->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10928	11024	
==>->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12405	12513	
==>$min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6224	6327	
==>orce_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6282	6385	
==>orce_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8509	8602	
==>ent ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=head <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8509	8602	
==>ent ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=head <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27341	27437	
==>es; the new Relation has as
many additional attributes as there are pairs in the argument C<$attr <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31893	31989	
==>es; the new Relation has as
many additional attributes as there are pairs in the argument C<$attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15554	15647	
==>MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15554	15647	
==>MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15554	15647	
==>MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16775	16874	
==>le implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16775	16874	
==>le implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

= <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16775	16874	
==>le implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

= <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13540	13635	
==>fore an implementation
could be started).  This is most useful when writing modules and you
find <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13598	13693	
==>fore an implementation
could be started).  This is most useful when writing modules and you
find <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5371	5472	
==>);\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5371	5472	
==>);\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5371	5472	
==>);\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19645	19741	
==>uch as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19645	19741	
==>uch as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1271	1398	
==>me eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1271	1398	
==>me eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1271	1398	
==>me eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else { <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1696	1795	
==>nds, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) return <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1754	1853	
==>nds, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) return <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14243	14343	
==>ied version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec cal <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14243	14343	
==>ied version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec cal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	342	441	
==>ng? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	342	441	
==>ng? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	342	441	
==>ng? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4453	4565	
==>= sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << ". <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4675	4787	
==>= sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << ". <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4360	4462	
==>shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4360	4462	
==>shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4360	4462	
==>shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3521	3625	
==>$depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller( <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3579	3683	
==>$depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	148	243	
==>f the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	148	243	
==>f the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	148	243	
==>f the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2677	2796	
==>e_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2677	2796	
==>e_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $va <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2677	2796	
==>e_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $va <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8333	8442	
==>1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unexpecte <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3071	3179	
==>}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does not
    # recognise cygwin absolute pa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8757	8858	
==>nion = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8757	8858	
==>nion = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12028	12156	
==>>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12028	12156	
==>>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12028	12156	
==>>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->ti <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1987	2095	
==>or: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1987	2095	
==>or: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1987	2095	
==>or: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $arg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3084	3234	
==>ackage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filena <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3084	3234	
==>ackage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filena <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3084	3234	
==>ackage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filena <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3437	3538	
==>= peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}} <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3437	3538	
==>= peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}} <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4771	4883	
==>,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4771	4883	
==>,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1263	1369	
==>tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1263	1369	
==>tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1343	1449	
==>tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1604	1742	
==>($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1539	1670	
==>($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1097	1188	
==>$timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1097	1188	
==>$timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1097	1188	
==>$timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	253	373	
==>onfig::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        're <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	253	373	
==>onfig::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        're <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3286	3387	
==>my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3286	3387	
==>my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3286	3387	
==>my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3113	3262	
==>e} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my % <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3253	3402	
==>e} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my % <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	119	223	
==>\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1740	1837	
==>alue of the 
pair is currently unused, but for forward compatibility it should always be the 
valu <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1740	1837	
==>alue of the 
pair is currently unused, but for forward compatibility it should always be the 
valu <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9879	9983	
==>ame); pop(@parts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	p <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8209	8300	
==>set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7339	7430	
==>set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8209	8300	
==>set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7339	7430	
==>set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12910	13067	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12910	13067	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12910	13067	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->cl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	932	1053	
==>$port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $li <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	932	1053	
==>$port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15978	16101	
==>};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15978	16101	
==>};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15978	16101	
==>};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %par <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4686	4807	
==>=> \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5338	5459	
==>=> \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33312	33409	
==>Since a
program or library may wish to override the user text of another library
which it uses, th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33312	33409	
==>Since a
program or library may wish to override the user text of another library
which it uses, th <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	929	1066	
==>($result); # works for all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTI <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3536	3635	
==>ETHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances wh <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3536	3635	
==>ETHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5733	5832	
==>ETHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances wh <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	3	98	
==>package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
use Pugs::Compiler::Rule;
use <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	3	95	
==>package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14658	14831	
==>->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14658	14831	
==>->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14658	14831	
==>->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2137	2248	
==>_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'i <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2137	2248	
==>_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	208	322	
==>%format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7330	7442	
==>f_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5168	5263	
==>compiling (--link option not given), there has to be only one input file.
In linking mode, multi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5168	5263	
==>compiling (--link option not given), there has to be only one input file.
In linking mode, multi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5168	5263	
==>compiling (--link option not given), there has to be only one input file.
In linking mode, multi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8717	8864	
==>my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8717	8864	
==>my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8717	8864	
==>my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetc <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	52	165	
==>S eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	52	165	
==>S eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL i <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12019	12131	
==>using  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	463	570	
==>:PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	463	570	
==>:PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	463	570	
==>:PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pS <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	339	444	
==>_rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { num => 'N <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2524	2642	
==>if (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@oc <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2524	2642	
==>if (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@oc <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5515	5668	
==>le( $Altfile, $href );

                my $postinst = $meta_dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    system <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1256	1405	
==>_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $. <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4495	4644	
==>_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1256	1405	
==>_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4495	4644	
==>_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	388	503	
==>ind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

su <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	388	503	
==>ind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

su <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	388	503	
==>ind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

su <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	17158	17255	
==>ject, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17158	17255	
==>ject, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7471	7598	
==>,
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7471	7598	
==>,
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4824	4924	
==>e "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4824	4924	
==>e "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4824	4924	
==>e "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1466	1577	
==>t file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $sel <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1466	1577	
==>t file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	923	1021	
==>e Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::de <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	923	1021	
==>e Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::de <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	923	1021	
==>e Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::de <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	229	368	
==>ck = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiat <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	229	368	
==>ck = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7399	7491	
==>assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7399	7491	
==>assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5651	5775	
==>\( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6919	7043	
==>\( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5651	5775	
==>\( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6907	7031	
==>\( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2075	2177	
==>=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=head1 SYNOPSIS

Command line:

    $ pe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26658	26753	
==>e
Relation or the invocant Relation respectively.  This method will fail if
any members of C<$at <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	966	1061	
==>t all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31210	31305	
==>e
Relation or the invocant Relation respectively.  This method will fail if
any members of C<$at <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	966	1061	
==>t all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	966	1061	
==>t all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17387	17477	
==>much more sane manner.
Module::Compile controls the compilation process, calling each compi <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17387	17477	
==>much more sane manner.
Module::Compile controls the compilation process, calling each compi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2948	3088	
==>$version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - chec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2948	3088	
==>$version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - chec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29856	29955	
==>out a matching left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  However, the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18443	18527	
==>C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Return <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18443	18527	
==>C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6391	6536	
==>=> 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{data} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{da <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2321	2442	
==>s}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2321	2442	
==>s}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2321	2442	
==>s}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defin <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	60	175	
==>warnings;

use UNIVERSAL::require;

use Blondie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8968	9103	
==>estplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.te <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1116	1237	
==>estplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.te <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1116	1237	
==>estplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.te <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6654	6768	
==>s Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6654	6768	
==>s Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3988	4084	
==>lar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3988	4084	
==>lar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3988	4084	
==>lar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21192	21281	
==>at the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $ev <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21192	21281	
==>at the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $ev <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8822	8926	
==>= 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8822	8926	
==>= 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	301	398	
==>$qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	301	398	
==>$qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	301	398	
==>$qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2021	2133	
==>arename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2021	2133	
==>arename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2021	2133	
==>arename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3094	3265	
==>cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure reque <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3094	3265	
==>cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure reque <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1248	1374	
==>= $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1248	1374	
==>= $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1248	1374	
==>= $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23982	24155	
==>@param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23982	24155	
==>@param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23982	24155	
==>@param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7969	8104	
==>= "";
        if %mods<i> || %mods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19615	19724	
==>d

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3821	3983	
==>.
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3821	3983	
==>.
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3821	3983	
==>.
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	745	865	
==>il::SExpParser->parse($source);
        #warn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $d <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13612	13728	
==>nexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Ful <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7985	8134	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&clos <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8178	8327	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&clos <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5888	5987	
==>cords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5888	5987	
==>cords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7412	7511	
==>cords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23743	23874	
==>Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20164	20295	
==>Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13361	13465	
==>} else {
	    $sep = $Config{path_sep};
	}

	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1612	1709	
==>nts::Subscriber {
    use Set;
    has Set $.subscriptions handles :note_subscription<insert> :rem <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4932	5024	
==>makefile: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$postambl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10308	10478	
==>oro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10308	10478	
==>oro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10308	10478	
==>oro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	889	998	
==>tatement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	889	998	
==>tatement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9116	9239	
==>nstantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9116	9239	
==>nstantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing f <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9116	9239	
==>nstantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing f <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5856	5976	
==>$n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5856	5976	
==>$n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $ <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	156	256	
==>y of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method do <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	156	256	
==>y of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method do <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3788	3886	
==>uired for loading precompiled Perl 6 files.

If you see the error below, it may happen that your pe <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	545	648	
==>=> \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	545	648	
==>=> \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4524	4621	
==>ULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4524	4621	
==>ULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4524	4621	
==>ULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6265	6383	
==>eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6265	6383	
==>eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1144	1249	
==>{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub D <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1144	1249	
==>{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub D <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1144	1249	
==>{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4713	4823	
==>e;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4713	4823	
==>e;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_nam <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4713	4823	
==>e;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_nam <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5083	5175	
==>nce ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5083	5175	
==>nce ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1506	1606	
==>erl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1506	1606	
==>erl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1506	1606	
==>erl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16821	16911	
==>f environment variables, which can aid in
portability.

Practically speaking, Locale::Keyed <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16821	16911	
==>f environment variables, which can aid in
portability.

Practically speaking, Locale::Keyed <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	780	998	
==>urn $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12962	13063	
==>TAINT};
    my %args = @_;
    exists $args{switches} && grep m/^-T$/, @{$args{switches}} and $tainted <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	131	229	
==>}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	131	229	
==>}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	131	229	
==>}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2593	2700	
==>= @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2593	2700	
==>= @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17683	17775	
==>nfix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17683	17775	
==>nfix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17683	17775	
==>nfix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($x <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16689	16786	
==>the optional named parameter
@child_nodes (an array ref) is set, then each element in it is used t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16689	16786	
==>the optional named parameter
@child_nodes (an array ref) is set, then each element in it is used t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1891	1984	
==>no, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1891	1984	
==>no, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1891	1984	
==>no, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	213	311	
==>ss->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	213	311	
==>ss->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	213	311	
==>ss->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32261	32355	
==>o on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32261	32355	
==>o on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1757	1876	
==>urn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1757	1876	
==>urn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1757	1876	
==>urn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2625	2730	
==>l> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigi <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2625	2730	
==>l> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3301	3428	
==>f.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3301	3428	
==>f.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3301	3428	
==>f.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.k <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15864	15953	
==>structor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attribu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15864	15953	
==>structor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attribu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9421	9556	
==>arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9421	9556	
==>arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9421	9556	
==>arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9965	10081	
==>]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9965	10081	
==>]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15322	15426	
==>lems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15322	15426	
==>lems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15322	15426	
==>lems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	899	995	
==>ST node (the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too? <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	853	947	
==>ST node (the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3658	3758	
==>ant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3658	3758	
==>ant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3658	3758	
==>ant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";" <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3893	4064	
==>@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6 <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3893	4064	
==>@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14644	14751	
==>here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14644	14751	
==>here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operato <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14644	14751	
==>here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operato <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5183	5278	
==>s, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5376	5471	
==>s, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13172	13268	
==>T FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{.. <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13172	13268	
==>T FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{.. <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	136	244	
==>as $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17222	17330	
==>nywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':ca <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	136	244	
==>as $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17222	17330	
==>nywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17222	17330	
==>nywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1631	1762	
==>ss = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1631	1762	
==>ss = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1631	1762	
==>ss = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $: <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	215	339	
==>{
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) { <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	215	339	
==>{
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	962	1085	
==>es
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	962	1085	
==>es
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	962	1085	
==>es
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          ne <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2926	3034	
==>OS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2926	3034	
==>OS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7445	7566	
==>urns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64:: <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7445	7566	
==>urns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1438	1541	
==>s_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1438	1541	
==>s_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1438	1541	
==>s_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	359	486	
==>ew,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	359	486	
==>ew,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	359	486	
==>ew,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1185	1291	
==>$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not impl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	288	393	
==>$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not impl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	708	1116	
==>ery Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=en <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	708	1116	
==>ery Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=en <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	89	175	
==>:Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_word <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	89	175	
==>:Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_word <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	241	489	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_ke <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	241	489	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_ke <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34848	34944	
==>ny tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39398	39494	
==>ny tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38931	39027	
==>ny tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5370	5529	
==>'$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5370	5529	
==>'$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5370	5529	
==>'$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => un <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	11	111	
==>kt
my $code = sub {say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von C <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38980	39075	
==>If you are creating a new escape sequence, like '\y', your handler will
receive an additional ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2693	2816	
==>ame eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2693	2816	
==>ame eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2693	2816	
==>ame eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # insta <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9996	10105	
==>sconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9996	10105	
==>sconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10628	10732	
==>a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10628	10732	
==>a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5588	5718	
==>tor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5588	5718	
==>tor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5588	5718	
==>tor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	30	123	
==>erl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	30	123	
==>erl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	599	722	
==>se => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	599	722	
==>se => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	266	359	
==>rmal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	266	359	
==>rmal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompile <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	266	359	
==>rmal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompile <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5859	5944	
==>implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5859	5944	
==>implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2346	2475	
==>ethod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (St <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2346	2475	
==>ethod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (St <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2346	2475	
==>ethod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (St <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21866	21963	
==>for a Relation to have zero attributes, though such a Relation can have no
more than a single tupl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26418	26515	
==>for a Relation to have zero attributes, though such a Relation can have no
more than a single tupl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21906	22119	
==>->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21906	22119	
==>->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $m <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21906	22119	
==>->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14164	14344	
==>ly for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14164	14344	
==>ly for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14164	14344	
==>ly for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_t <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	2833	2951	
==>or die "open: $target: $!";

    {
        my $prelude = shift @{ $Config{precompile} };
        warn "*** warning: Pre <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22658	22753	
==>rmation, as well as (I
suspect) an important constraint on what fields can contain.

=head1 rega <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6033	6125	
==>SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Va <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6033	6125	
==>SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Va <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2932	3024	
==>SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8329	8418	
==>tatements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2154	2243	
==>tatements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2005	2135	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'reg_any',
      type => $type,
      vis => $vis,
    }, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18749	18844	
==>rver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it has <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17792	17887	
==>rver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18749	18844	
==>rver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17792	17887	
==>rver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it has <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2246	2360	
==>ake the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Path::Class::dir( F <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12971	13067	
==>e current value to get the next value.
The unit specifier is also used internally when joining tw <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12971	13067	
==>e current value to get the next value.
The unit specifier is also used internally when joining tw <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22920	23012	
==>cumentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22920	23012	
==>cumentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5362	5482	
==>e;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5362	5482	
==>e;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5362	5482	
==>e;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11539	11628	
==>ccept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/pl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11539	11628	
==>ccept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/pl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3588	3711	
==>m;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3588	3711	
==>m;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3588	3711	
==>m;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from, <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2407	2500	
==>n $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$sy <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16014	16106	
==>n $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$sy <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4442	4551	
==>=> "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(a <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4680	4776	
==>ce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns S <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3807	3903	
==>ce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4680	4776	
==>ce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns S <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3807	3903	
==>ce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29425	29542	
==>llé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inver <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29425	29542	
==>llé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inver <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	249	354	
==>llé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inver <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14613	14704	
==>works just like encode_entities, except that the replacement
entities are always C<&#xI<hexn <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14613	14704	
==>works just like encode_entities, except that the replacement
entities are always C<&#xI<hexn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7245	7411	
==>turn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7245	7411	
==>turn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7245	7411	
==>turn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retur <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6617	6760	
==>\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	2182	2304	
==>:eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	114	217	
==>stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	114	217	
==>stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15470	15562	
==>omising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Da <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15470	15562	
==>omising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Da <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3571	3701	
==>tch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3571	3701	
==>tch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1501	1606	
==>name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positiona <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1501	1606	
==>name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positiona <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1710	1815	
==>name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positiona <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3464	3573	
==>A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3464	3573	
==>A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/ <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2530	2629	
==>and to provide match results.  This
module is an experiment, to see if it is possible to use the reg <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12050	12147	
==>evious( $x )`

Returns the element in the recurrence that is right before the parameter.

- `curre <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12050	12147	
==>evious( $x )`

Returns the element in the recurrence that is right before the parameter.

- `curre <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14595	14689	
==>s )

This routine works just like encode_entities, except that the replacement
entities are alw <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14595	14689	
==>s )

This routine works just like encode_entities, except that the replacement
entities are alw <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8622	8726	
==>k => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &co <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8622	8726	
==>k => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20328	20425	
==>s worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-or <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24880	24977	
==>s worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-or <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1416	1511	
==>lity, we may have
  bought fairly simple code with tolerable performance.

However, pugs critica <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5442	5585	
==>hen all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./cu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5442	5585	
==>hen all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15125	15255	
==>aN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15125	15255	
==>aN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15125	15255	
==>aN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	165	276	
==>egory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	169	280	
==>egory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	163	274	
==>egory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	163	274	
==>egory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gram <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34616	34707	
==>rser::THING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is the defi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	67	174	
==>0.05';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	756	849	
==>b infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	756	849	
==>b infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.in <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	756	849	
==>b infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.in <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3978	4068	
==>ar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAst <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15147	15247	
==>ethod notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $comm <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15147	15247	
==>ethod notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $comm <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3476	3591	
==>ntil($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3476	3591	
==>ntil($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	635	737	
==>ule => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	635	737	
==>ule => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	635	737	
==>ule => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_insta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	138	276	
==>ect ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	138	276	
==>ect ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	138	276	
==>ect ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access = <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	695	817	
==>my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$s <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	695	817	
==>my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17651	17850	
==>"");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rh <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14072	14271	
==>"");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8134	8239	
==>e "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8134	8239	
==>e "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8134	8239	
==>e "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5791	5939	
==>}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1210	1346	
==>t= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23015	23114	
==>e keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27567	27666	
==>e keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26344	26443	
==>e keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6858	7028	
==>ense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => ' <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6915	7085	
==>ense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36179	36314	
==>th
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36179	36314	
==>th
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_po <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36179	36314	
==>th
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_po <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	533	784	
==>%TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	533	784	
==>%TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4401	4513	
==>f unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4401	4513	
==>f unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4401	4513	
==>f unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2735	2862	
==>b eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2735	2862	
==>b eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1582	1707	
==>. ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1582	1707	
==>. ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1582	1707	
==>. ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3635	3744	
==>$subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3635	3744	
==>$subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3635	3744	
==>$subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3145	3252	
==>ulting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace a <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3145	3252	
==>ulting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace a <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3004	3109	
==>ffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($st <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3004	3109	
==>ffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3163	3266	
==>fined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^& <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3163	3266	
==>fined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^& <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3163	3266	
==>fined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5918	6050	
==>= Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip l <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5918	6050	
==>= Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3516	3633	
==>i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3516	3633	
==>i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3516	3633	
==>i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22944	23037	
==>=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionall <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21762	21855	
==>=E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionall <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22944	23037	
==>=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionall <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21762	21855	
==>=E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionall <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	763	853	
==>ckend that
conditionally excludes some builtin operators to demonstrate dynamicity.

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1221	1377	
==>a(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1221	1377	
==>a(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1221	1377	
==>a(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  r <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	727	823	
==>head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	727	823	
==>head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1951	2059	
==>ad_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1951	2059	
==>ad_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1951	2059	
==>ad_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1551	1650	
==>!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_no <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1551	1650	
==>!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_no <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2596	2693	
==>X XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2596	2693	
==>X XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2596	2693	
==>X XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9359	9449	
==>s> class encapsulates HTTP-style message headers.
The headers consist of attribute-value pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9359	9449	
==>s> class encapsulates HTTP-style message headers.
The headers consist of attribute-value pa <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2975	3081	
==>t()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ " <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4237	4343	
==>t()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ " <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2975	3081	
==>t()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ " <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4237	4343	
==>t()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ " <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1564	1662	
==>added or something change or just have
comments.

=head1 Construction

=head2 C<new>

  my $strap = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16954	17095	
==>&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17233	17374	
==>&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'g <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4218	4313	
==>t::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=it <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4218	4313	
==>t::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5742	5837	
==>t::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=it <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	750	864	
==>(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        r <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	750	864	
==>(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4166	4262	
==>structor, and when calling these methods you should take care not
to call them in function form b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4166	4262	
==>structor, and when calling these methods you should take care not
to call them in function form b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4166	4262	
==>structor, and when calling these methods you should take care not
to call them in function form b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4090	4234	
==>$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4078	4222	
==>$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27779	27871	
==>ole read-only argument, returns a
value that is optionally a calculation using original attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32331	32423	
==>ole read-only argument, returns a
value that is optionally a calculation using original attri <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31423	31515	
==>ole read-only argument, returns a
value that is optionally a calculation using original attri <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11809	11900	
==>i, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11809	11900	
==>i, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Lit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13863	13953	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'red <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13863	13953	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'red <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13863	13953	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'red <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	117	240	
==>r_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	117	240	
==>r_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2828	2932	
==>ef($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2828	2932	
==>ef($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2828	2932	
==>ef($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1246	1364	
==>w err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1246	1364	
==>w err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_ex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1246	1364	
==>w err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_ex <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9019	9108	
==>rms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_wit <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2844	2933	
==>rms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_wit <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10836	10953	
==>$a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::variable::f <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7559	7652	
==>$one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6689	6782	
==>$one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7559	7652	
==>$one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6689	6782	
==>$one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1481	1645	
==>P/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1481	1645	
==>P/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6702	6797	
==>&*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6702	6797	
==>&*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45127	45218	
==>e, so we can create something here

$::Package = $::Class->send('new');
$::Package->send('su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4175	4292	
==>n:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4175	4292	
==>n:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4175	4292	
==>n:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #wa <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4102	4213	
==>'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1003	1111	
==>);
  }
  return $matchObj;
}

sub alpha {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3098	3215	
==>escription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3098	3215	
==>escription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4622	4739	
==>escription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Tes <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14419	14522	
==>X_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8622	8725	
==>X_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31381	31549	
==>e {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                las <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31381	31549	
==>e {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                las <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31381	31549	
==>e {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                las <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18789	18887	
==>nt_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Do <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18789	18887	
==>nt_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Do <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6538	6668	
==>8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mda <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6538	6668	
==>8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mda <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28946	29038	
==>ributes that become wrapped, and it supports having new tuple-valued
attributes which wrap ze <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33498	33590	
==>ributes that become wrapped, and it supports having new tuple-valued
attributes which wrap ze <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32635	32727	
==>ributes that become wrapped, and it supports having new tuple-valued
attributes which wrap ze <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1984	2085	
==>); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

= <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1984	2085	
==>); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

= <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37187	37282	
==>tuation where the heading of one source relation is a
full subset of another, the result degener <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41736	41831	
==>tuation where the heading of one source relation is a
full subset of another, the result degener <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41359	41454	
==>tuation where the heading of one source relation is a
full subset of another, the result degener <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	193	286	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	193	286	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	193	286	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.po <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7690	7774	
==>&Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7748	7832	
==>&Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Te <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3826	3924	
==>.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
main <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3826	3924	
==>.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
main <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2618	2714	
==>@args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2618	2714	
==>@args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  w <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2618	2714	
==>@args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	347	468	
==>ETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	347	468	
==>ETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	347	468	
==>ETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the k <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	257	361	
==>_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy= <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	257	361	
==>_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy= <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	488	646	
==>\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	488	646	
==>\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3896	3999	
==>');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3896	3999	
==>');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3896	3999	
==>');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	609	855	
==>n

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	609	855	
==>n

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosett <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1308	1434	
==>has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implem <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4786	4912	
==>has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implem <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3122	3235	
==>ree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PANIC <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17539	17671	
==>ethod label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40808	40940	
==>ethod label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	692	788	
==>\w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ ))->code;

*block = <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1675	1770	
==>er 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1675	1770	
==>er 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2191	2311	
==>onAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*E <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2191	2311	
==>onAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*E <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12478	12595	
==>rop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2371	2481	
==>d {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2371	2481	
==>d {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2371	2481	
==>d {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23107	23189	
==>age Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl;
@ISA=qw(Perl6::Run::OnPer <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	568	698	
==>string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./asse <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	568	698	
==>string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./asse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5205	5306	
==>id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5205	5306	
==>id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5205	5306	
==>id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1755	1876	
==>IL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1755	1876	
==>IL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1755	1876	
==>IL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefi <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3298	3401	
==>"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3298	3401	
==>"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	20	126	
==>::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	20	126	
==>::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	723	822	
==>ist' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	723	822	
==>ist' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	723	822	
==>ist' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15621	15732	
==>@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15621	15732	
==>@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15621	15732	
==>@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mul <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1644	1733	
==>rations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|R <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3503	3591	
==>rations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|R <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4914	5022	
==>turn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4914	5022	
==>turn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2201	2299	
==>{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2201	2299	
==>{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Pe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2201	2299	
==>{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7609	7762	
==>ignature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7609	7762	
==>ignature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7609	7762	
==>ignature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26425	26539	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26704	26818	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5023	5142	
==>t_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2565	2684	
==>t_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3346	3465	
==>t_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24179	24314	
==>i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24179	24314	
==>i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24179	24314	
==>i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6864	6975	
==>el };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6864	6975	
==>el };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($matc <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12107	12206	
==>}

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12107	12206	
==>}

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14389	14479	
==>'%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14389	14479	
==>'%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14389	14479	
==>'%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14201	14299	
==>our program.  It is analagous to a simplified version of the
"Node" interface defined in the XML DO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14201	14299	
==>our program.  It is analagous to a simplified version of the
"Node" interface defined in the XML DO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	869	960	
==>ol;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	869	960	
==>ol;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	869	960	
==>ol;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Ha <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1207	1334	
==>//= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our r <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1207	1334	
==>//= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	415	509	
==>ogram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	376	470	
==>ogram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	376	470	
==>ogram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"p <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46676	46919	
==>=> 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9432	9572	
==>::';
      return $S->$n;
    }
  });

  $self->add_handler(':::' => sub {
    my ($S) = @_;
  });


  ### '#'

  # I don't think I need to h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11273	11395	
==>key {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless define <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11273	11395	
==>key {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless define <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11273	11395	
==>key {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1391	1510	
==>->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1391	1510	
==>->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1391	1510	
==>->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	395	487	
==>alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	395	487	
==>alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3500	3671	
==>ll; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Wri <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3500	3671	
==>ll; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Wri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	453	568	
==>h @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	453	568	
==>h @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	453	568	
==>h @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->nam <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4645	4742	
==>-- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4645	4742	
==>-- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5825	5944	
==>.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5825	5944	
==>.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5825	5944	
==>.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1076	1180	
==>ule, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1076	1180	
==>ule, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subro <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	224	321	
==>ame = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.p <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	280	377	
==>ame = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	224	321	
==>ame = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.p <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	280	377	
==>ame = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.p <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14233	14330	
==>l, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu.ls <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5367	5481	
==>t);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5367	5481	
==>t);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25980	26073	
==>ibute names that aren't being renamed.  This method
supports renaming attributes to each other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30532	30625	
==>ibute names that aren't being renamed.  This method
supports renaming attributes to each other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29507	29600	
==>ibute names that aren't being renamed.  This method
supports renaming attributes to each other <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11802	11922	
==>} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22296	22389	
==>annel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21168	21261	
==>annel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22296	22389	
==>annel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21168	21261	
==>annel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6672	6804	
==>$match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6456	6580	
==>$match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9376	9488	
==>6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9376	9488	
==>6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9376	9488	
==>6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	793	952	
==>Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	793	952	
==>Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	793	952	
==>Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15358	15464	
==>t" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15358	15464	
==>t" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9710	9832	
==>r->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9710	9832	
==>r->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9710	9832	
==>r->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20219	20315	
==>as adding a language file to the program package.  No
recompilation necessary.  This is something <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20219	20315	
==>as adding a language file to the program package.  No
recompilation necessary.  This is something <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	507	649	
==>o if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.cap <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	507	649	
==>o if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.cap <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16731	16842	
==>it;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16731	16842	
==>it;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16731	16842	
==>it;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	235	357	
==>unctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	235	357	
==>unctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	235	357	
==>unctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21487	21606	
==>er('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17908	18027	
==>er('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	158	283	
==>y)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

meth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	158	283	
==>y)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19339	19428	
==>_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19339	19428	
==>_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19339	19428	
==>_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	263	381	
==>.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::M <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	263	381	
==>.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10740	10843	
==>o_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Arra <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10740	10843	
==>o_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Arra <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10740	10843	
==>o_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9035	9200	
==>unt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9035	9200	
==>unt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $co <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9035	9200	
==>unt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $co <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10060	10149	
==>d($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ' <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10795	10884	
==>d($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1930	2039	
==>mar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1930	2039	
==>mar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1067	1195	
==>$obj->{package}\n";       
    }
    
}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, p <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	453	562	
==>',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a consistent <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2385	2478	
==>rencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2385	2478	
==>rencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2385	2478	
==>rencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.P <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11739	11842	
==>);  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11739	11842	
==>);  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14679	14770	
==>ewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14679	14770	
==>ewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::run <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14679	14770	
==>ewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::run <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3350	3450	
==>2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3534	3634	
==>2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10652	10813	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'imm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10931	11092	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'imm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3947	4034	
==>oles');
}));

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3947	4034	
==>oles');
}));

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3947	4034	
==>oles');
}));

## ----------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14089	14224	
==>}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14089	14224	
==>}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14089	14224	
==>}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{s <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12941	13034	
==>han C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12941	13034	
==>han C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6892	6984	
==>my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($fil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6892	6984	
==>my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14430	14519	
==>erl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14430	14519	
==>erl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14430	14519	
==>erl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10523	10636	
==>rent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10523	10636	
==>rent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25668	25789	
==>=> $rx->{flags}[-1],
      family => 'assertion',
      type => 'logical',
      data => $code,
      zerolen => 1,
    }, <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20116	20214	
==>ibution to allow the core to be completely testable on its own.  It is
coded intentionally in a sim <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20116	20214	
==>ibution to allow the core to be completely testable on its own.  It is
coded intentionally in a sim <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10469	10560	
==>ould potentially
never be performed at all.  They validate everything except
well-formedness <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10469	10560	
==>ould potentially
never be performed at all.  They validate everything except
well-formedness <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1146	1289	
==>e extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1146	1289	
==>e extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCon <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1146	1289	
==>e extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCon <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2325	2419	
==>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2414	2508	
==>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2268	2389	
==>while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2268	2389	
==>while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2268	2389	
==>while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10299	10398	
==>e value of one or more header fields.  The header field
name ($field) is not case sensitive.  To mak <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10299	10398	
==>e value of one or more header fields.  The header field
name ($field) is not case sensitive.  To mak <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6206	6298	
==>arser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer)) <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6206	6298	
==>arser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16804	16895	
==>ell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16804	16895	
==>ell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16804	16895	
==>ell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1261	1408	
==>ile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1261	1408	
==>ile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9684	9776	
==>RO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9684	9776	
==>RO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9684	9776	
==>RO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_meth <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11697	11837	
==>"$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" . <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6014	6148	
==>"$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6014	6148	
==>"$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" . <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7143	7240	
==>sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7201	7298	
==>sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2416	2523	
==>> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_on <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2416	2523	
==>> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_on <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2763	2870	
==>> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_on <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1254	1347	
==>t

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2 <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1254	1347	
==>t

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8173	8316	
==>(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8173	8316	
==>(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8173	8316	
==>(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7779	7879	
==>rray1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <f <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7779	7879	
==>rray1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <f <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3461	3579	
==>"ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3461	3579	
==>"ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1227	1322	
==>$line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1227	1322	
==>$line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine po <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1227	1322	
==>$line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine po <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1323	1433	
==>> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1323	1433	
==>> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1323	1433	
==>> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier : <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8130	8232	
==>sert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is y <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8130	8232	
==>sert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3201	3306	
==>= 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3201	3306	
==>= 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3201	3306	
==>= 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1353	1448	
==>($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringify <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1353	1448	
==>($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringify <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	260	362	
==>$args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	260	362	
==>$args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	260	362	
==>$args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	546	643	
==>oid is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	604	701	
==>oid is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11657	11799	
==>re_block} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n- <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12843	12964	
==>urn for map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, undef, $ini <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3575	3667	
==>lf->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3575	3667	
==>lf->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3575	3667	
==>lf->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5094	5208	
==>e( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5094	5208	
==>e( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numif <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5094	5208	
==>e( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numif <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6453	6562	
==>string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_typ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6453	6562	
==>string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_typ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4954	5062	
==>attern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - klu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4954	5062	
==>attern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - klu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4954	5062	
==>attern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - klu <==
5	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	18	117	
==>ement for the old BEGIN preamble which heads (or
# should head) up every core test program to prepa <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	71	163	
==>cross-referenced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity and othe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10187	10286	
==>ich is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

G <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10187	10286	
==>ich is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

G <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9451	9549	
==>te($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9451	9549	
==>te($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(leng <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9451	9549	
==>te($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(leng <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10147	10265	
==>@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10147	10265	
==>@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10147	10265	
==>@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4416	4529	
==>L_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   , <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4416	4529	
==>L_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   , <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	996	1123	
==>ject ) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8162	8280	
==>new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $ou <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	379	487	
==>new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $ou <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	379	487	
==>new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $ou <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	349	442	
==>and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.junc_type where { $_ =:= one«JA <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4690	4846	
==>ts<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4690	4846	
==>ts<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1281	1413	
==>4,
		name => "higher order function",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym(' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31920	32020	
==>nd wants it shown to the user, the main program would check each
of the 3 Template module sets in tur <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31920	32020	
==>nd wants it shown to the user, the main program would check each
of the 3 Template module sets in tur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	10	124	
==>L::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	10	124	
==>L::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	10	124	
==>L::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1369	1462	
==>thod member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

me <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1369	1462	
==>thod member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

me <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	827	941	
==>= $TODO ? *STDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2638	2749	
==>_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7732	7843	
==>_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2638	2749	
==>_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7732	7843	
==>_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3165	3278	
==>ys return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3165	3278	
==>ys return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # ope <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3165	3278	
==>ys return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # ope <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4114	4207	
==>.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

metho <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4114	4207	
==>.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

metho <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3520	3622	
==>ts to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

= <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3520	3622	
==>ts to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

= <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3600	3702	
==>ts to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

= <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17994	18089	
==>an Internet e-mail address for the human
user who controls the requesting user agent.  The addre <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17994	18089	
==>an Internet e-mail address for the human
user who controls the requesting user agent.  The addre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	914	1035	
==>i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	914	1035	
==>i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	914	1035	
==>i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<» <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26562	26659	
==><'-'> <ClassAtom> <ClassRanges>
}
rule NonemptyClassRangesNoDash {  # see 15.10.1
      <ClassAtom <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	668	761	
==>ndition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant R <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	12	134	
==>ule File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Sp <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	12	134	
==>ule File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1130	1231	
==>h and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() im <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1130	1231	
==>h and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() im <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1130	1231	
==>h and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() im <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	310	425	
==>mport;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @term <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	516	631	
==>mport;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @term <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14697	14809	
==>{
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconn <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14697	14809	
==>{
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconn <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	482	580	
==>ypechecking.pdf

# please note that this is nothingmuch's first article that he read from cover
# t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39290	39409	
==>y $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39290	39409	
==>y $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $leng <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39290	39409	
==>y $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $leng <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8921	9012	
==>sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
pu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2746	2837	
==>sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2262	2374	
==>l) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2262	2374	
==>l) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2262	2374	
==>l) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3416	3515	
==>won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>( <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3416	3515	
==>won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1179	1315	
==>nvocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1179	1315	
==>nvocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that con <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1179	1315	
==>nvocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that con <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7387	7491	
==>)[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_dir <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7387	7491	
==>)[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7392	7576	
==>od_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7392	7576	
==>od_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7392	7576	
==>od_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8964	9081	
==>program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8952	9069	
==>program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2633	2752	
==>>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2633	2752	
==>>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2633	2752	
==>>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11916	12016	
==>te your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing g <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11974	12074	
==>te your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing g <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9019	9137	
==>elete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(Str <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9019	9137	
==>elete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3996	4095	
==>depc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3996	4095	
==>depc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3996	4095	
==>depc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	987	1093	
==>/p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remot <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	987	1093	
==>/p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remot <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10498	10603	
==>r->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n";

eval $code;
warn $@ if $ <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3603	3707	
==>:Exp::Subrule"
    $P1 = subclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33284	33381	
==>lking stack and the current
depth in the walking stack.  Elements are taken from the I<front> of t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1473	1586	
==>lsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_disc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1473	1586	
==>lsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_disc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1473	1586	
==>lsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_disc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	22	124	
==>:Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use ove <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	22	124	
==>:Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use ove <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	164	259	
==>ds: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, St <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	164	259	
==>ds: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, St <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	164	259	
==>ds: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1070	1170	
==>->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1070	1170	
==>->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1070	1170	
==>->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11759	11866	
==>ss );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11753	11860	
==>ss );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23927	24028	
==>r(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20348	20449	
==>r(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom <==
5	/Users/nnunley/pugs/util/grokprims.pl	1739	1838	
==>ociative with arity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $n <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	21	130	
==>Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * ope <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	21	130	
==>Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * ope <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3259	3358	
==>}
method day_0 returns Int { $.day - 1 }
method mday returns Int { $.day }
method mday_0 returns Int <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4793	4891	
==>ad2 0+

When used as a number, the match object returns the numified version
of the result object ( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4793	4891	
==>ad2 0+

When used as a number, the match object returns the numified version
of the result object ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11088	11229	
==>one.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11088	11229	
==>one.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2438	2538	
==>s{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2438	2538	
==>s{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2438	2538	
==>s{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %m <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	890	1053	
==>e;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$cla <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	890	1053	
==>e;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2221	2349	
==>ub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2221	2349	
==>ub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2221	2349	
==>ub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2777	2953	
==>:Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2777	2953	
==>:Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2777	2953	
==>:Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	3440	3539	
==>operator::nullary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->S <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13448	13545	
==>ssion> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_req <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14115	14221	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
})) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14115	14221	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
})) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14115	14221	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
})) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33701	33797	
==>mber Name and usually corresponds to a
language like English or French.  The order of these items <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33701	33797	
==>mber Name and usually corresponds to a
language like English or French.  The order of these items <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1786	1902	
==>nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $s <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1786	1902	
==>nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1851	1965	
==>mpt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1851	1965	
==>mpt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_h <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1851	1965	
==>mpt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_h <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10949	11077	
==>ess defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submetho <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10949	11077	
==>ess defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submetho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10308	10415	
==>r messages instead of MPW style.
	    $runperl .= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $runp <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8184	8284	
==>ailable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8184	8284	
==>ailable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	798	900	
==>is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	798	900	
==>is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	798	900	
==>is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22573	22668	
==>olated into the user strings; Locale::KeyedText would also handle
this.

A program generates a M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22573	22668	
==>olated into the user strings; Locale::KeyedText would also handle
this.

A program generates a M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23880	24030	
==>hod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23880	24030	
==>hod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23880	24030	
==>hod eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5285	5381	
==>bj.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
Th <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5285	5381	
==>bj.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1651	1752	
==>hod('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1651	1752	
==>hod('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1651	1752	
==>hod('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3116	3211	
==>rns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns S <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3116	3211	
==>rns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	822	936	
==>() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	822	936	
==>() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	822	936	
==>() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13890	14002	
==>100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGH <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13890	14002	
==>100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2801	2923	
==>$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2801	2923	
==>$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2801	2923	
==>$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11989	12096	
==>S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unico <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4632	4739	
==>S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unico <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35853	35973	
==>ke $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35853	35973	
==>ke $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35853	35973	
==>ke $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5653	5755	
==>e
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5653	5755	
==>e
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	578	730	
==>) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	578	730	
==>) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	578	730	
==>) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20519	20631	
==>rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[10 <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	722	821	
==>ehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8405	8506	
==>);

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8405	8506	
==>);

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8405	8506	
==>);

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_in <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	726	813	
==>led in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project wa <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	726	813	
==>led in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project wa <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	179	281	
==>ys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tag <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	179	281	
==>ys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tag <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20957	21053	
==>$_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20957	21053	
==>$_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20957	21053	
==>$_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	220	339	
==>'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	220	339	
==>'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	220	339	
==>'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4579	4686	
==>re => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->las <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5064	5171	
==>re => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->las <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1384	1704	
==>ts($attr_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1 <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1381	1480	
==>.round_half_down: symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2766	2860	
==>me_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2766	2860	
==>me_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2766	2860	
==>me_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1887	1984	
==>ar () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1887	1984	
==>ar () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20335	20424	
==>xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20335	20424	
==>xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20335	20424	
==>xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7785	7912	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11786	11909	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11786	11909	
==>al { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5333	5443	
==>ostfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5333	5443	
==>ostfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7980	8140	
==>::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7980	8140	
==>::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7980	8140	
==>::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40481	40594	
==>}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40481	40594	
==>}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40481	40594	
==>}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
s <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	31	137	
==>@ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @p <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	31	137	
==>@ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13357	13536	
==>um_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are boun <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13357	13536	
==>um_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are boun <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13357	13536	
==>um_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are boun <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10589	10685	
==>previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurr <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10589	10685	
==>previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2316	2485	
==>n.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2316	2485	
==>n.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2316	2485	
==>n.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	66	162	
==>Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Ut <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	66	162	
==>Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Ut <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	989	1102	
==>e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Read <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	989	1102	
==>e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Read <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	989	1102	
==>e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Read <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	785	884	
==>elf->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2620	2719	
==>elf->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	215	336	
==>f = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	215	336	
==>f = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	215	336	
==>f = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1144	1245	
==>er loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    dele <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2984	3085	
==>er loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    dele <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12454	12552	
==>an.
This class implements both types of spans.

- Discrete span

This is used to represent ranges o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12454	12552	
==>an.
This class implements both types of spans.

- Discrete span

This is used to represent ranges o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1914	2061	
==>state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation stri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1914	2061	
==>state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation stri <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4829	4939	
==>ds);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4887	4997	
==>ds);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Te <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	386	483	
==>b SessionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Session{$variable} = $val <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1739	1861	
==>@_;

    unless ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args withou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2712	2809	
==>g{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2712	2809	
==>g{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2712	2809	
==>g{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14738	14862	
==>Class') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14738	14862	
==>Class') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14738	14862	
==>Class') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; } <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	456	547	
==>source> property, and adds nothing else.

More specialised processing instructions may sub-c <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	456	547	
==>source> property, and adds nothing else.

More specialised processing instructions may sub-c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12470	12604	
==>', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $s <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2846	2970	
==>', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $s <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2846	2970	
==>', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $s <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1796	1894	
==>e::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are still <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1796	1894	
==>e::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are still <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12698	12814	
==>come)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        li <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12698	12814	
==>come)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        li <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8040	8154	
==>$secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2944	3058	
==>ant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invoc <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8040	8154	
==>$secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2944	3058	
==>ant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invoc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2944	3058	
==>ant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invoc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8216	8380	
==>$match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experim <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8216	8380	
==>$match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experim <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12115	12226	
==>href => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12115	12226	
==>href => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param } <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12115	12226	
==>href => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4080	4208	
==>.grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize % <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4080	4208	
==>.grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize % <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3311	3412	
==>tion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3311	3412	
==>tion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3311	3412	
==>tion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19256	19356	
==>entially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23808	23908	
==>entially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22324	22424	
==>entially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	508	600	
==>Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redu <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	508	600	
==>Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redu <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8745	8869	
==>evious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        cl <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8745	8869	
==>evious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	169	272	
==>o the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	169	272	
==>o the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	169	272	
==>o the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11831	11966	
==>r::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      meth <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2253	2374	
==>r::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    meth <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2253	2374	
==>r::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    meth <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2531	2625	
==>----------------
## getting children

method get_child ($self: Int $index) returns Tree { @!chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2531	2625	
==>----------------
## getting children

method get_child ($self: Int $index) returns Tree { @!chi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1529	1660	
==>('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8274	8384	
==>edy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub rule <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7987	8092	
==>edy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub rule <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8457	8597	
==>,
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8457	8597	
==>,
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3417	3521	
==>1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
print &Test::a.$/ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	741	831	
==>can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, w <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	741	831	
==>can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, w <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	385	504	
==>arks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is use <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	385	504	
==>arks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	999	1116	
==>>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	999	1116	
==>>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	999	1116	
==>>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5731	5903	
==>[@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5731	5903	
==>[@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	819	921	
==>Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	819	921	
==>Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	819	921	
==>Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13430	13537	
==>($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$how);
  });

  # alnum PO <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10345	10444	
==>nd items into the set. Returns the number of items
inserted.

It is not fatal to insert an item whic <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8238	8337	
==>nd items into the set. Returns the number of items inserted.

It is not fatal to insert an item whic <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10345	10444	
==>nd items into the set. Returns the number of items
inserted.

It is not fatal to insert an item whic <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8238	8337	
==>nd items into the set. Returns the number of items inserted.

It is not fatal to insert an item whic <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1005	1111	
==>yms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1005	1111	
==>yms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1005	1111	
==>yms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18901	18995	
==>re, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>log <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18901	18995	
==>re, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>log <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	724	1134	
==>ine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	724	1134	
==>ine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	14	110	
==>t::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	14	110	
==>t::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	14	110	
==>t::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Const <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3700	3814	
==>ed $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3700	3814	
==>ed $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3700	3814	
==>ed $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8500	8600	
==>his operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6036	6134	
==>his operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator i <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2573	2675	
==>lob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    m <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2573	2675	
==>lob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7457	7558	
==>body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7457	7558	
==>body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7457	7558	
==>body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9525	9717	
==>air' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9525	9717	
==>air' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9525	9717	
==>air' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5349	5521	
==>d (    $Config{osname} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windo <==
5	/Users/nnunley/pugs/util/func_refact.pl	446	539	
==>gnore, can iterate. -debug <fname> is a function to print more
information about as components <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22179	22376	
==>,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22458	22655	
==>,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	729	830	
==>OY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	729	830	
==>OY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	729	830	
==>OY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8908	9143	
==>n_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8908	9143	
==>n_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8908	9143	
==>n_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_j <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1759	1857	
==>ers at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_ <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1759	1857	
==>ers at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	303	411	
==>ven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	303	411	
==>ven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	303	411	
==>ven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  l <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	908	1011	
==>eturns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	908	1011	
==>eturns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	644	779	
==>' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    meth <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	644	779	
==>' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15673	15799	
==>:do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15673	15799	
==>:do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->ma <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15673	15799	
==>:do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7514	7625	
==>ue::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7514	7625	
==>ue::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7514	7625	
==>ue::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5630	5729	
==>elated files



=head1 Compiler processes



### separate "processes" from actual module documentati <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5437	5532	
==>elated files

=head1 Compiler processes

### separate "processes" from actual module documentati <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1686	1823	
==>te($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        ret <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1686	1823	
==>te($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1905	2030	
==>current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1905	2030	
==>current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1905	2030	
==>current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($typ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4792	4923	
==>> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4792	4923	
==>> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1116	1209	
==>e L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plagu <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1116	1209	
==>e L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plagu <==
5	/Users/nnunley/pugs/util/package-osx.pl	6234	6322	
==>/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	736	848	
==>ocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	736	848	
==>ocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	736	848	
==>ocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p$ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15563	15656	
==>arding access to information details, or their technical
skills.  For example, a native French <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15563	15656	
==>arding access to information details, or their technical
skills.  For example, a native French <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5488	5613	
==>ine('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5488	5613	
==>ine('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5488	5613	
==>ine('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	986	1079	
==>worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	986	1079	
==>worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2681	2805	
==>igenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2681	2805	
==>igenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2681	2805	
==>igenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::o <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6890	6989	
==>$node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::R <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6890	6989	
==>$node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26163	26355	
==>alar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  j <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26163	26355	
==>alar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  j <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26163	26355	
==>alar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  j <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6139	6261	
==>tch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    s <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6139	6261	
==>tch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2046	2219	
==>ered_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dir <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2401	2497	
==>l <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1856	1952	
==>l <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2401	2497	
==>l <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1856	1952	
==>l <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	605	710	
==>rint($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head> <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	605	710	
==>rint($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1827	1923	
==>y($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1827	1923	
==>y($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1827	1923	
==>y($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11494	11628	
==>closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11494	11628	
==>closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11494	11628	
==>closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40575	40670	
==>ut even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LG <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40575	40670	
==>ut even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LG <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7011	7137	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7204	7330	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4925	5019	
==>]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4925	5019	
==>]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4925	5019	
==>]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	793	908	
==>beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr( <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	793	908	
==>beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3645	3748	
==>h/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3645	3748	
==>h/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3645	3748	
==>h/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6268	6455	
==>>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6268	6455	
==>>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6268	6455	
==>>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1624	1724	
==>ut rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1624	1724	
==>ut rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument < <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	648	844	
==>1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	648	844	
==>1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2853	2944	
==>ts, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2853	2944	
==>ts, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2853	2944	
==>ts, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fun <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6526	6628	
==>s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6526	6628	
==>s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6526	6628	
==>s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	958	1053	
==>CTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B< <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	958	1053	
==>CTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14161	14270	
==>ams);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14161	14270	
==>ams);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14161	14270	
==>ams);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::ma <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21308	21404	
==>nique across all Perl packages
(perhaps the key name can start with the package name?).  An advan <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21308	21404	
==>nique across all Perl packages
(perhaps the key name can start with the package name?).  An advan <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5209	5314	
==>tered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5209	5314	
==>tered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1252	1344	
==>ur project's base namespace.

Class::Rebless walks scalar, array, and hash references. It use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1252	1344	
==>ur project's base namespace.

Class::Rebless walks scalar, array, and hash references. It use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1252	1344	
==>ur project's base namespace.

Class::Rebless walks scalar, array, and hash references. It use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3408	3514	
==>ess defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3408	3514	
==>ess defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3408	3514	
==>ess defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4927	5024	
==>ods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> i <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4927	5024	
==>ods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17581	17726	
==>_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21058	21203	
==>_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20645	20790	
==>_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.m <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15611	15704	
==>echnical
skills.  For example, a native French or Chinese speaker often prefers to
communicate <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15611	15704	
==>echnical
skills.  For example, a native French or Chinese speaker often prefers to
communicate <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16213	16362	
==>{ 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16213	16362	
==>{ 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16213	16362	
==>{ 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14536	14643	
==>n a zero-width
      # assertion can match a null string a lot
      elsif ($tree->[-1]->{zerolen} and $self <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1581	1685	
==>ype of value - it applies its first child to the rest of its
children.

=item Map

A map is like a hash - <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3469	3581	
==>($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5519	5631	
==>($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4475	4587	
==>($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}-> <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1707	1806	
==>rePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggabl <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1707	1806	
==>rePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggabl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2036	2206	
==>ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2036	2206	
==>ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2036	2206	
==>ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      re <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11231	11338	
==>ishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11231	11338	
==>ishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16333	16512	
==>int !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16327	16506	
==>int !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1], <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16589	16763	
==>w($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	15	116	
==>:MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	15	116	
==>:MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Per <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	15	116	
==>:MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	703	813	
==>->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        method <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	703	813	
==>->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        method <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	703	813	
==>->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        method <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16039	16161	
==>password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16039	16161	
==>password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    no <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4541	4633	
==>rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4541	4633	
==>rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4541	4633	
==>rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objec <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17230	17393	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23196	23359	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17509	17672	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23475	23638	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::no <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1027	1162	
==>=> '+',
        assoc => 'left',
        precedence => 'looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        name = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1724	1831	
==>s == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1724	1831	
==>s == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1724	1831	
==>s == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24991	25089	
==>ents is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24991	25089	
==>ents is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	846	949	
==>"Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and aut <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	846	949	
==>"Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and aut <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	846	949	
==>"Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and aut <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10026	10121	
==>added to Pugs, new test functions will be defined to facilitate the
testing of those features. F <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10084	10179	
==>added to Pugs, new test functions will be defined to facilitate the
testing of those features. F <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2157	2269	
==>mit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quan <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2747	2859	
==>mit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2157	2269	
==>mit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2735	2847	
==>mit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quan <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53181	53275	
==>->send('name' => str->new('Package'));
$::Module->send('name'  => str->new('Module'));

1;

__E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1635	1743	
==>undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6994	7102	
==>_for_re('\W') if $re eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1635	1743	
==>undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1635	1743	
==>undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	602	691	
==>is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
** <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3746	3904	
==>state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# inter <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3993	4143	
==>state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# inter <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10442	10592	
==>state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# inter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3993	4143	
==>state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# inter <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10442	10592	
==>state} = {
            state => $match->{state},
            op    => concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# inter <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11875	12011	
==>ode, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11875	12011	
==>ode, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10320	10438	
==>( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" . <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6661	6779	
==>( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7510	7628	
==>( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" . <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1176	1280	
==>, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unl <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1176	1280	
==>, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1502	1605	
==>rnal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1502	1605	
==>rnal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * stor <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1502	1605	
==>rnal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * stor <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4606	4742	
==>}

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13031	13167	
==>}

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15642	15778	
==>}

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17130	17266	
==>}

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($h <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21813	21949	
==>}

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ($h <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25783	25881	
==>d names and its values the new names.
This method will fail if any C<$mapping> keys do not match in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30335	30433	
==>d names and its values the new names.
This method will fail if any C<$mapping> keys do not match in <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29301	29399	
==>d names and its values the new names.
This method will fail if any C<$mapping> keys do not match in <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16708	16804	
==>parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16708	16804	
==>parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4451	4571	
==>space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @resu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4451	4571	
==>space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @resu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8462	8566	
==>') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8462	8566	
==>') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8462	8566	
==>') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7654	7773	
==>t(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_clea <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	146	257	
==>ile') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17380	17477	
==>ific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17380	17477	
==>ific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17380	17477	
==>ific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1351	1452	
==>r() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringifi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1351	1452	
==>r() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringifi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1351	1452	
==>r() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21320	21412	
==>equisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus. <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21320	21412	
==>equisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3266	3426	
==>filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3266	3426	
==>filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eva <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3266	3426	
==>filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eva <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29141	29238	
==>tr $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33693	33790	
==>tr $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4182	4345	
==>ethod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4182	4345	
==>ethod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4182	4345	
==>ethod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $di <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4340	4443	
==>andler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4340	4443	
==>andler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1005	1105	
==>precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1005	1105	
==>precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1005	1105	
==>precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $s <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2276	2370	
==>Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2276	2370	
==>Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1797	1916	
==>ter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1797	1916	
==>ter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3527	3635	
==>}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3527	3635	
==>}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3527	3635	
==>}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4751	4864	
==>o' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fourth id');
is($Foo->c <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4953	5048	
==>1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) return <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5011	5106	
==>1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) return <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11323	11415	
==><.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11323	11415	
==><.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21460	21587	
==>s $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21739	21866	
==>s $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40993	41092	
==>}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40993	41092	
==>}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=h <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40993	41092	
==>}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=h <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3989	4090	
==>L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3989	4090	
==>L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36017	36116	
==>on is the union of the invocant and <$other> headings. 
The body of the new relation is the result o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40567	40665	
==>on is the union of the invocant and <$other> headings.
The body of the new relation is the result o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40181	40279	
==>on is the union of the invocant and <$other> headings.
The body of the new relation is the result o <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24109	24245	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24388	24524	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8777	8911	
==>O(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8777	8911	
==>O(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8777	8911	
==>O(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &in <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3351	3481	
==>t = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3351	3481	
==>t = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4257	4355	
==>dd_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4257	4355	
==>dd_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4257	4355	
==>dd_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5607	5758	
==>my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5607	5758	
==>my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7206	7348	
==>{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7206	7348	
==>{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7206	7348	
==>{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7379	7494	
==>,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7379	7494	
==>,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7379	7494	
==>,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8631	8735	
==>ks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) { <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8631	8735	
==>ks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) { <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1831	1950	
==>y";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(i <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1831	1950	
==>y";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	132	232	
==>ile::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	132	232	
==>ile::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	132	232	
==>ile::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MS <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5077	5187	
==>the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5077	5187	
==>the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2238	2343	
==>sh $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2238	2343	
==>sh $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2238	2343	
==>sh $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4852	4947	
==>)=@_;
    ($self->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2252	2346	
==>:Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2252	2346	
==>:Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1479	1569	
==>:Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3340	3430	
==>:Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3414	3517	
==>);
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3414	3517	
==>);
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3414	3517	
==>);
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9345	9434	
==>$msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_modul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9345	9434	
==>$msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_modul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4446	4557	
==>ub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4446	4557	
==>ub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4446	4557	
==>ub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = e <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5905	6010	
==>?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5963	6068	
==>?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2278	2394	
==>ly harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2278	2394	
==>ly harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2278	2394	
==>ly harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a+ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5259	5353	
==>=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5259	5353	
==>=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1884	2009	
==>ader of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5361	5486	
==>ader of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4291	4416	
==>ader of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1465	1581	
==>pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYN <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1465	1581	
==>pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4346	4447	
==>rint $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4346	4447	
==>rint $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4346	4447	
==>rint $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10364	10457	
==>Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<encipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10364	10457	
==>Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<encipher <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	824	950	
==>med_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	806	923	
==>med_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	806	923	
==>med_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{ <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1488	1595	
==>pan

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUC <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1488	1595	
==>pan

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	406	514	
==>x.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	406	514	
==>x.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	406	514	
==>x.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1366	1459	
==>:($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1366	1459	
==>:($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11640	11737	
==>stores a collection of Node objects,
which are all of the Nodes that live in this Document.

=item <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11640	11737	
==>stores a collection of Node objects,
which are all of the Nodes that live in this Document.

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2850	2941	
==>nents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2850	2941	
==>nents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2850	2941	
==>nents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13012	13120	
==>_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13012	13120	
==>_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13012	13120	
==>_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cla <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	140	247	
==>];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: fo <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26689	26783	
==>the
proper inheritance for the node; it uses %Regexp::Parser::loaded to keep
track of which obj <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10558	10705	
==>x(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10558	10705	
==>x(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10558	10705	
==>x(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5696	5800	
==>|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pug <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11977	12076	
==>ame=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num test <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2894	3001	
==>eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2894	3001	
==>eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = ru <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2894	3001	
==>eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = ru <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18648	18750	
==>ns the link that the user followed to the current
     page.  Most browsers pass this information as pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18648	18750	
==>ns the link that the user followed to the current
     page.  Most browsers pass this information as pa <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2681	2901	
==>tim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_li <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2681	2901	
==>tim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11084	11179	
==>-------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11084	11179	
==>-------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11084	11179	
==>-------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUI <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3873	4135	
==>ts<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpo <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3916	4178	
==>ts<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpo <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3873	4135	
==>ts<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpo <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3916	4178	
==>ts<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21119	21230	
==>ct;defined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $lo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2897	3025	
==>{
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2897	3025	
==>{
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.ad <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2897	3025	
==>{
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.ad <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1584	1687	
==>ers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex deci <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1584	1687	
==>ers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex deci <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	661	767	
==>ml).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	661	767	
==>ml).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	661	767	
==>ml).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5059	5150	
==>e the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The followin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5059	5150	
==>e the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The followin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17301	17410	
==>{
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17561	17670	
==>{
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4784	4883	
==>ckage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4784	4883	
==>ckage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4784	4883	
==>ckage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13528	13738	
==>();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13528	13738	
==>();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13528	13738	
==>();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7325	7454	
==>ch->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XX <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7325	7454	
==>ch->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XX <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1158	1379	
==>h::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scala <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11878	12045	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11878	12045	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11878	12045	
==>_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4905	5002	
==>hods rather than rules or macros. (The numeric
    rxmods are recognized by fallback macros define <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35181	35299	
==>ning
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35181	35299	
==>ning
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35181	35299	
==>ning
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3725	3818	
==>ign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Comp <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3725	3818	
==>ign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21234	21477	
==>alar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21234	21477	
==>alar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21234	21477	
==>alar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVE <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14419	14523	
==>ts[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14419	14523	
==>ts[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	95	247	
==>:inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	95	247	
==>:inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	95	247	
==>:inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23781	23881	
==>LOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one c <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22297	22397	
==>LOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2034	2135	
==>n join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2034	2135	
==>n join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1273	1367	
==>n join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3134	3228	
==>n join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gramma <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27643	27734	
==>:__object__>, the global object base class.  All
user-defined F<MyRx::*> objects inherit fro <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10212	10396	
==>y\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional availa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8880	8991	
==>for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	614	725	
==>for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8880	8991	
==>for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8880	8991	
==>for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4741	4868	
==>ure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4741	4868	
==>ure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4741	4868	
==>ure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3049	3150	
==>NV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3049	3150	
==>NV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	495	617	
==>? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	495	617	
==>? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	495	617	
==>? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a an <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5913	6027	
==>y) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::comp <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5709	5818	
==>y) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::comp <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	351	481	
==>st
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Rep <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18437	18520	
==>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21696	21779	
==>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41702	41785	
==>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44603	44686	
==>set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->n <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5317	5448	
==>eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5539	5670	
==>eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1725	1895	
==>ase);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1725	1895	
==>ase);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1195	1289	
==>@idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1195	1289	
==>@idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1195	1289	
==>@idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10210	10331	
==>ibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-a <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10210	10331	
==>ibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8312	8397	
==>================================================================

use FindBin;
use Fil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8312	8397	
==>================================================================

use FindBin;
use Fil <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8312	8397	
==>================================================================

use FindBin;
use Fil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29022	29205	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29301	29484	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1378	1493	
==>r cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1378	1493	
==>r cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1378	1493	
==>r cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PI <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	6785	6890	
==>ode/;

package cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUP <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21542	21640	
==>se are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20423	20521	
==>se are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21542	21640	
==>se are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20423	20521	
==>se are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10694	10796	
==>to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10694	10796	
==>to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10694	10796	
==>to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2388	2490	
==>ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2388	2490	
==>ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2388	2490	
==>ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2437	2534	
==>::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a ha <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2437	2534	
==>::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3941	4051	
==>e as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3941	4051	
==>e as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3941	4051	
==>e as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28651	28748	
==>ou
to make modules having a specific simple API that will serve their role.

For example, inside t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28651	28748	
==>ou
to make modules having a specific simple API that will serve their role.

For example, inside t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8890	9010	
==>blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code. <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8890	9010	
==>blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1446	1547	
==>return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1446	1547	
==>return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1446	1547	
==>return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4619	4791	
==>'$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4619	4791	
==>'$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4619	4791	
==>'$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1826	1954	
==>ode, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $mes <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1826	1954	
==>ode, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $mes <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4219	4355	
==>capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4090	4223	
==>capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3115	3216	
==>od(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3115	3216	
==>od(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3115	3216	
==>od(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4091	4205	
==>k}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq "update. <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12041	12135	
==><$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9162	9256	
==><$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12041	12135	
==><$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9162	9256	
==><$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24859	24955	
==>permits fast rejection
 * of lines that cannot possibly match.  The regmust tests are costly enou <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6081	6174	
==>nnels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6861	6954	
==>nnels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6081	6174	
==>nnels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6861	6954	
==>nnels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2340	2482	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27494	27636	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2533	2675	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27773	27915	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19673	19769	
==>heses weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags weren't being turned off.  Fi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18425	18528	
==>nnect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18425	18528	
==>nnect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1377	1472	
==>nstant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1377	1472	
==>nstant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?B <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1377	1472	
==>nstant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?B <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	669	762	
==>-------------------
## private methods

my method set_height ($self: Tree $child) returns Void <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	669	762	
==>-------------------
## private methods

my method set_height ($self: Tree $child) returns Void <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5452	5557	
==>IL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5452	5557	
==>IL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5452	5557	
==>IL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13669	13767	
==>s_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExpression> <Ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2323	2444	
==>.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2323	2444	
==>.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2323	2444	
==>.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39029	39127	
==>hat is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pac <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39029	39127	
==>hat is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pac <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3891	4066	
==>if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # t <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3891	4066	
==>if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # t <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6015	6129	
==><'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <Unicod <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3004	3103	
==>alue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3004	3103	
==>alue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1245	1367	
==>imToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1594	1711	
==>imToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alte <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1201	1318	
==>imToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alte <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1594	1711	
==>imToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alte <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1054	1155	
==>t>, or maybe they are one and the same as what
you get when you use the C<type> keyword.  Or maybe the <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12955	13089	
==>E, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6430	6564	
==>E, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11886	12001	
==>b p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11886	12001	
==>b p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11886	12001	
==>b p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8830	8944	
==>ies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # see <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8830	8944	
==>ies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # see <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9086	9196	
==>ies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # see <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9086	9196	
==>ies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # see <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13317	13414	
==>hes into perlguts, which limits the range of
  perl versions it will work with, and raises mainten <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1059	1172	
==>w PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1059	1172	
==>w PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1059	1172	
==>w PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1918	2028	
==>::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1929	2039	
==>::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3466	3591	
==>they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3466	3591	
==>they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3466	3591	
==>they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2022	2139	
==>(\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2022	2139	
==>(\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1004	1134	
==>irs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1004	1134	
==>irs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6099	6195	
==>re yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6099	6195	
==>re yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6099	6195	
==>re yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	167	300	
==>eroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(12 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	167	300	
==>eroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(12 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	218	325	
==>not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	218	325	
==>not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	218	325	
==>not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2556	2679	
==>[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7995	8088	
==>\$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8641	8734	
==>\$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7983	8076	
==>\$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8629	8722	
==>\$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1] <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6250	6364	
==>turn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6250	6364	
==>turn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2148	2243	
==>e String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  " <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2566	2672	
==>f.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5769	5875	
==>f.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2566	2672	
==>f.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5769	5875	
==>f.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	927	1027	
==>ess_upload();
} else {
  process_list();
}

exit;

sub process_upload {
  print "Content-Type: text/p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4350	4458	
==>llreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilM <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4350	4458	
==>llreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilM <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4350	4458	
==>llreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilM <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3576	3668	
==>setta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3576	3668	
==>setta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	118	365	
==>edText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	118	365	
==>edText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4505	4629	
==>irs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_ba <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4505	4629	
==>irs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	393	482	
==>he model. See below for more details.
## ------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8327	8446	
==>contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to creat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8327	8446	
==>contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to creat <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8327	8446	
==>contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to creat <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7916	8017	
==>normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return - <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7916	8017	
==>normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15815	15919	
==>f }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15815	15919	
==>f }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15815	15919	
==>f }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...} <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13286	13378	
==>r )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-p <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13286	13378	
==>r )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10205	10336	
==>, undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10205	10336	
==>, undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1085	1190	
==>e for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1085	1190	
==>e for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1085	1190	
==>e for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curre <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1800	1958	
==>start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2212	2370	
==>start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1800	1958	
==>start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2212	2370	
==>start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3639	3744	
==>0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2529	2635	
==>roblem of supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2434	2537	
==>roblem of supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3703	3797	
==>SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3703	3797	
==>SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3703	3797	
==>SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10510	10660	
==>>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10510	10660	
==>>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10510	10660	
==>>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    ) <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32559	32652	
==>butes for configuration, its
main purpose is to convert Message objects on demand into user-re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32559	32652	
==>butes for configuration, its
main purpose is to convert Message objects on demand into user-re <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3359	3620	
==>fined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3359	3620	
==>fined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6198	6367	
==>fined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6198	6367	
==>fined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6198	6367	
==>fined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8888	9027	
==>sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # al <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8888	9027	
==>sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # al <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6312	6402	
==>-------------------------------------
## Module

$::Module = $::Class->new();

$::Module->s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6312	6402	
==>-------------------------------------
## Module

$::Module = $::Class->new();

$::Module->s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6312	6402	
==>-------------------------------------
## Module

$::Module = $::Class->new();

$::Module->s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13031	13141	
==>$_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13031	13141	
==>$_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13031	13141	
==>$_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21130	21225	
==>rs, and your program would use
associated keys internally.

It is strongly suggested (but not re <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21130	21225	
==>rs, and your program would use
associated keys internally.

It is strongly suggested (but not re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2845	2954	
==>t use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

su <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2903	3012	
==>t use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1045	1143	
==>we need to now create these attributes in all the currently live instances
# of Class (which are :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1045	1143	
==>we need to now create these attributes in all the currently live instances
# of Class (which are :: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1045	1143	
==>we need to now create these attributes in all the currently live instances
# of Class (which are :: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	878	1018	
==>=> $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	878	1018	
==>=> $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { ret <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7360	7478	
==>e_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36491	36582	
==>ethod takes a (machine-readable) Message object as its positional
parameter $message and ret <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36491	36582	
==>ethod takes a (machine-readable) Message object as its positional
parameter $message and ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	977	1088	
==>le>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	977	1088	
==>le>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	977	1088	
==>le>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3043	3198	
==>rm', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3054	3209	
==>rm', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1703	1816	
==>s primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1703	1816	
==>s primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1703	1816	
==>s primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1580	1698	
==>win::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4504	4616	
==>o \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4504	4616	
==>o \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4504	4616	
==>o \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $re <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1491	1591	
==>win::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2683	2788	
==>meters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2683	2788	
==>meters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement inf <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2683	2788	
==>meters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement inf <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	313	410	
==>$codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilf <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	313	410	
==>$codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilf <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21688	21813	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_stateme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21967	22092	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_stateme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	163	259	
==>Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  com <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	163	259	
==>Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  com <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	163	259	
==>Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  com <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	410	540	
==>n(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	410	540	
==>n(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	410	540	
==>n(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        }) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	928	1026	
==>lasses, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
c <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	928	1026	
==>lasses, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
c <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	6446	6547	
==>a hash ref of all the test scripts which failed.  Each key
is the name of a test script, each value is <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11925	12022	
==>span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-2 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13317	13414	
==>span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-2 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11925	12022	
==>span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-2 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13317	13414	
==>span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2960	3088	
==>ttr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3438	3566	
==>ttr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	843	953	
==>ED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	843	953	
==>ED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $C <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	843	953	
==>ED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5789	5922	
==>::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Fil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5789	5922	
==>::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	44	143	
==>$a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	44	143	
==>$a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	44	143	
==>$a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5154	5307	
==>or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5154	5307	
==>or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5154	5307	
==>or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7481	7595	
==>AME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7481	7595	
==>AME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	270	367	
==>ate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	815	912	
==>ate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	270	367	
==>ate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	815	912	
==>ate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	815	912	
==>ate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeric range. It <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18909	19037	
==>LOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18909	19037	
==>LOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18909	19037	
==>LOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2025	2139	
==>:Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2025	2139	
==>:Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15714	15854	
==>r (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Ba <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15714	15854	
==>r (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10207	10337	
==>.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10207	10337	
==>.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10207	10337	
==>.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	451	573	
==>n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	451	573	
==>n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	451	573	
==>n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13661	13755	
==>pan

This type os span is used to represent continuous measurements, such as times, temperature <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13661	13755	
==>pan

This type os span is used to represent continuous measurements, such as times, temperature <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10546	10644	
==>->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # ho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10546	10644	
==>->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # ho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10546	10644	
==>->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # ho <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10684	10779	
==>lf.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode< <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10684	10779	
==>lf.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode< <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37344	37438	
==>s already been
loaded, returning true if so and false if not.

=item C<load_template_module( $m <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37344	37438	
==>s already been
loaded, returning true if so and false if not.

=item C<load_template_module( $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2429	2520	
==>(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2429	2520	
==>(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded", <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2429	2520	
==>(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded", <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5795	5933	
==>$end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $midd <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5795	5933	
==>$end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $midd <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5795	5933	
==>$end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $midd <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2026	2134	
==>$_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($ <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1012	1120	
==>$_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6982	7260	
==>cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        r <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6982	7260	
==>cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        r <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12417	12522	
==>x_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12417	12522	
==>x_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12417	12522	
==>x_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6351	6483	
==>) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6351	6483	
==>) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6351	6483	
==>) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	186	316	
==>header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	186	316	
==>header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9076	9218	
==>l method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9076	9218	
==>l method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9076	9218	
==>l method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4383	4474	
==>eturn value');
is($Object->superclass, undef, '... $Object got the right method return value <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6285	6376	
==>eturn value');
is($Object->superclass, undef, '... $Object got the right method return value <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10189	10300	
==>ects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10189	10300	
==>ects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10189	10300	
==>ects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5662	5760	
==>end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5662	5760	
==>end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16573	16686	
==>method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16573	16686	
==>method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16573	16686	
==>method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5103	5213	
==>ders, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5103	5213	
==>ders, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13895	14031	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13895	14031	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13895	14031	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5495	5605	
==>n $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end < <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5495	5605	
==>n $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end < <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9829	9935	
==>(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9829	9935	
==>(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25417	25512	
==>lement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29969	30064	
==>lement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28908	29003	
==>lement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4304	4449	
==>s1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4292	4437	
==>s1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4722	4823	
==>};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4722	4823	
==>};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4722	4823	
==>};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
M <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1546	1700	
==>b ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1546	1700	
==>b ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3344	3471	
==>my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3344	3471	
==>my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3700	3827	
==>my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2858	2955	
==>ment relevant to the perl backend

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Builtins;

=he <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	454	722	
==>ift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                w <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	454	722	
==>ift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	949	1069	
==>}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	949	1069	
==>}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	949	1069	
==>}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13958	14109	
==>l =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13958	14109	
==>l =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13958	14109	
==>l =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class method <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18431	18526	
==>tion
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, bu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18431	18526	
==>tion
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1678	1826	
==>s->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1678	1826	
==>s->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1678	1826	
==>s->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2684	2780	
==>de_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2684	2780	
==>de_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2687	2803	
==>rom_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2687	2803	
==>rom_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2687	2803	
==>rom_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1238	1349	
==>mp_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	449	559	
==>mp_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9960	10168	
==>6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6301	6509	
==>6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7150	7358	
==>6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22037	22154	
==>dd_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18458	18575	
==>dd_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7645	7798	
==>t; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7645	7798	
==>t; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6905	7033	
==>d - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6905	7033	
==>d - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6905	7033	
==>d - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6112	6264	
==>sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6112	6264	
==>sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6112	6264	
==>sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13409	13540	
==>ect),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13409	13540	
==>ect),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	603	785	
==>n.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	603	785	
==>n.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	603	785	
==>n.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	451	571	
==>server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    p <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	451	571	
==>server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    p <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	268	368	
==>e::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13068	13162	
==>a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18163	18257	
==>a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13068	13162	
==>a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18163	18257	
==>a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	4399	4508	
==>'file1',  $file1,  "0000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2686	2784	
==>ke_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2686	2784	
==>ke_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2686	2784	
==>ke_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$: <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	679	776	
==>"re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    reg <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2368	2480	
==>inline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2368	2480	
==>inline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3608	3701	
==>raverse the node
structure. The only dirty part is C<reduce_sym> which must handle recursive c <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5216	5307	
==>e removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5216	5307	
==>e removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	834	988	
==>match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	827	981	
==>match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            ret <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4050	4149	
==>t of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Ad <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4050	4149	
==>t of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4130	4229	
==>t of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Ad <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7330	7470	
==>) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10564	10684	
==>$_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11026	11146	
==>$_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10558	10678	
==>$_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11020	11140	
==>$_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28303	28397	
==>me as the invocant Relation but that some of its attributes
have been combined/wrapped into tup <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32855	32949	
==>me as the invocant Relation but that some of its attributes
have been combined/wrapped into tup <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8173	8258	
==>arn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8173	8258	
==>arn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8173	8258	
==>arn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3492	3642	
==>e} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3492	3642	
==>e} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3492	3642	
==>e} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] ) <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6717	6815	
==>d stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Ge <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6717	6815	
==>d stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Ge <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9024	9120	
==>circumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9024	9120	
==>circumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9024	9120	
==>circumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1499	1616	
==>sh  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1499	1616	
==>sh  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17503	17597	
==>h the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17503	17597	
==>h the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compil <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5611	5702	
==>ts_type) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val-> <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13448	13598	
==>(substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3597	3731	
==>(substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3597	3731	
==>(substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3597	3731	
==>(substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2171	2263	
==>here { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset complex of complex64  wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1656	1760	
==>full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1656	1760	
==>full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1656	1760	
==>full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STO <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2851	2954	
==>lue class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2851	2954	
==>lue class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4183	4288	
==>turn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and . <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5080	5185	
==>turn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and . <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4183	4288	
==>turn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and . <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5080	5185	
==>turn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and . <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4463	4565	
==>ass =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSIO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	767	875	
==>s } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	767	875	
==>s } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  ou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	767	875	
==>s } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  ou <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9128	9226	
==>d user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{no <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9128	9226	
==>d user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{no <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4743	4954	
==>dir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = base <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4007	4178	
==>dir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = base <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13423	13573	
==>dir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = base <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11467	11555	
==>header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11467	11555	
==>header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/h <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	940	1049	
==>gs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TOD <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	940	1049	
==>gs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TOD <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7068	7168	
==>llect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is don <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7068	7168	
==>llect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is don <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7068	7168	
==>llect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is don <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5754	5877	
==>e);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5754	5877	
==>e);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6344	6467	
==>e);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6723	6842	
==>"rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdq <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6723	6842	
==>"rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdq <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9074	9176	
==>an't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9074	9176	
==>an't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9074	9176	
==>an't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We h <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7682	7775	
==>$match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7421	7511	
==>$match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8196	8323	
==>= regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8196	8323	
==>= regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8196	8323	
==>= regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1022	1135	
==>ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1022	1135	
==>ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one o <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5032	5134	
==>f ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5032	5134	
==>f ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7145	7240	
==>le
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7145	7240	
==>le
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7145	7240	
==>le
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
:: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2050	2224	
==>_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4252	4411	
==>= @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4252	4411	
==>= @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4252	4411	
==>= @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs = <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6254	6368	
==>re('\Z') if $re eq '\Z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAIL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3804	3917	
==>}
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3804	3917	
==>}
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3804	3917	
==>}
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21506	21604	
==>ues of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation
a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26058	26156	
==>ues of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation
a <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1694	1806	
==>ping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5171	5283	
==>ping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4101	4213	
==>ping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11161	11260	
==>$val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_di <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11161	11260	
==>$val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1008	1112	
==>h too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1008	1112	
==>h too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1008	1112	
==>h too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tra <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3330	3417	
==>ulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructo <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3330	3417	
==>ulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructo <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5225	5321	
==>ath"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } for ` <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24855	24949	
==>ost too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23619	23713	
==>ost too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24855	24949	
==>ost too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23619	23713	
==>ost too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37134	37235	
==>ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37134	37235	
==>ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37134	37235	
==>ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1301	1396	
==>l (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1301	1396	
==>l (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1912	2037	
==>{
		print "not ok \# Unexpected successful match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		print " <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15400	15512	
==>"-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8124	8229	
==>form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8124	8229	
==>form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8124	8229	
==>form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS- <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	347	569	
==>turn 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($fi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1094	1240	
==>age );
    
    ### XXX flesh out this format better
    {   my @files = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	49	144	
==>ut of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	49	144	
==>ut of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal). <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	49	144	
==>ut of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal). <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3492	3631	
==>rn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3685	3824	
==>rn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1321	1412	
==>PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1321	1412	
==>PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1321	1412	
==>PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$P <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	841	987	
==>Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            mo <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	841	987	
==>Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7675	7785	
==>oxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7675	7785	
==>oxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7675	7785	
==>oxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32354	32518	
==>_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32354	32518	
==>_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32354	32518	
==>_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	3640	3743	
==>ator/;

use Scalar::Util ();

sub new {
	my $class_that_should_be = shift;
	my $class = __PACKAGE__;
	my <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp4.pl	3	99	
==>nterp4.pl - Interpolation in Perl 6
sub hallo {
	"Hallo, $_!"
}

say "Otto sagt: {hallo('Hund')}" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	267	398	
==>D (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*) <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	267	398	
==>D (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1551	1648	
==>=> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1551	1648	
==>=> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1551	1648	
==>=> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	881	994	
==>> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	881	994	
==>> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFE <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	881	994	
==>> \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11049	11145	
==>me source code into something else. This is almost
# always overridden in a subclass.
sub pmc_com <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11049	11145	
==>me source code into something else. This is almost
# always overridden in a subclass.
sub pmc_com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2730	2857	
==>mp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2730	2857	
==>mp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2730	2857	
==>mp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1391	1489	
==>c), the current
time and the text they said is saved.

If the (optional) role parameter C<public> i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1391	1489	
==>c), the current
time and the text they said is saved.

If the (optional) role parameter C<public> i <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3400	3533	
==>rint _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@av <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3864	3997	
==>rint _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@av <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	247	370	
==>ompile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Paramet <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	247	370	
==>ompile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Paramet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11735	11886	
==>pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # prin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11735	11886	
==>pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # prin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11735	11886	
==>pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # prin <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27735	27829	
==>ents, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27735	27829	
==>ents, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1799	1906	
==>lf )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1799	1906	
==>lf )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	239	333	
==>$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	239	333	
==>$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	239	333	
==>$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38564	38701	
==>Y' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38564	38701	
==>Y' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38564	38701	
==>Y' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    re <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20319	20438	
==>nternals::string_as_number (Int $radix, Str $string --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Loc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39638	39754	
==>t's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2170	2293	
==>n $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2170	2293	
==>n $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2170	2293	
==>n $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13575	13678	
==>_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7783	7886	
==>_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3542	3643	
==>t a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3542	3643	
==>t a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fet <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3542	3643	
==>t a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fet <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4100	4262	
==>( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5421	5583	
==>( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4100	4262	
==>( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5409	5571	
==>( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $nam <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2401	2491	
==>it('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Grammar::Rule::rule>' ));
    return "* <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3741	3847	
==>amp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13431	13529	
==>s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13431	13529	
==>s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13431	13529	
==>s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1044	1137	
==>he runtime object is responsible for providing the compiler with replacement
data for stubs an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6377	6536	
==>ar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6377	6536	
==>ar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6377	6536	
==>ar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6305	6411	
==>orkaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $te <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6305	6411	
==>orkaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $te <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8687	8821	
==>\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9522	9656	
==>\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1730	1838	
==>nv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1730	1838	
==>nv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1730	1838	
==>nv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10308	10401	
==>}
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10308	10401	
==>}
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10308	10401	
==>}
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2658	2860	
==>@lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buf <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1348	1550	
==>@lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buf <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2658	2860	
==>@lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buf <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1348	1550	
==>@lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buf <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18392	18478	
==>ORExpression> <'?'> <AssignmentExpression> <':'> <AssignmentExpression>
}
rule Conditio <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1756	1951	
==>oot_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1756	1951	
==>oot_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	648	778	
==>r (.does(Str) and $^n ne $EMPTY_STR)
};

subtype Relation::LaxPairAttrType of Pair where {
    .key.does(Str) and (
        (.key e <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	884	987	
==>dText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	884	987	
==>dText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24117	24232	
==>);

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20538	20653	
==>);

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${ <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1370	1481	
==>chr";
}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $file = slur <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2962	3065	
==>anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handle <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	993	1096	
==>anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handle <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20331	20453	
==>));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16752	16874	
==>));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10102	10217	
==>f $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hd <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10102	10217	
==>f $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hd <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1536	1623	
==>_call => $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9990	10182	
==>'';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6331	6523	
==>'';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7180	7372	
==>'';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6732	6837	
==>constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6732	6837	
==>constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37310	37402	
==>s
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41859	41951	
==>s
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10131	10261	
==>lements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10131	10261	
==>lements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10131	10261	
==>lements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	877	997	
==>>{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	877	997	
==>>{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1815	1957	
==>shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tm <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1815	1957	
==>shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1850	1952	
==>ite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1850	1952	
==>ite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1850	1952	
==>ite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1087	1199	
==>th > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bu <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1087	1199	
==>th > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1428	1528	
==>nly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1428	1528	
==>nly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incr <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1428	1528	
==>nly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	937	1085	
==>nd($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	937	1085	
==>nd($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	937	1085	
==>nd($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1090	1198	
==>ammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - ex <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1090	1198	
==>ammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13322	13432	
==>tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13322	13432	
==>tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13322	13432	
==>tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container: <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	32	134	
==>ed in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	32	134	
==>ed in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1518	1732	
==>q "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1518	1732	
==>q "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	917	1042	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	917	1042	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	917	1042	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2 <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6727	6856	
==>closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

subm <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6727	6856	
==>closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

subm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1301	1404	
==>ed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1301	1404	
==>ed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the la <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1301	1404	
==>ed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the la <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1638	1757	
==>,  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umla <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1638	1757	
==>,  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	41	136	
==>..]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	41	136	
==>..]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	41	136	
==>..]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warn <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14880	15014	
==>->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21141	21237	
==>as the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20049	20145	
==>as the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21141	21237	
==>as the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20049	20145	
==>as the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42326	42523	
==>self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$::Obj <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6494	6591	
==>fix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6494	6591	
==>fix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7366	7461	
==>fix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7366	7461	
==>fix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4349	4461	
==>b {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4349	4461	
==>b {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4349	4461	
==>b {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	540	635	
==>r conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general informati <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	540	635	
==>r conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general informati <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3566	3687	
==>uml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3566	3687	
==>uml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => ' <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	597	721	
==>d_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel). <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	597	721	
==>d_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel). <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6073	6174	
==>xt info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.spl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6073	6174	
==>xt info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.spl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6073	6174	
==>xt info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.spl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18321	18441	
==>$e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21580	21700	
==>$e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41586	41706	
==>$e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set(' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44487	44607	
==>$e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13083	13188	
==>a format string for use with sprintf().

  # for when you have a zero-width chunk
  # with a boundless qua <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23366	23505	
==>$method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23366	23505	
==>$method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23366	23505	
==>$method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Val <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1521	1624	
==>a::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1661	1764	
==>a::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5946	6052	
==>urce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5946	6052	
==>urce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5946	6052	
==>urce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_att <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4636	4736	
==>esult.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FE <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4636	4736	
==>esult.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FE <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	922	1031	
==>_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_al <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	667	767	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // First <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	667	767	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // First <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	667	767	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // First <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4745	4833	
==>rl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1635	1768	
==>s->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1635	1768	
==>s->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1635	1768	
==>s->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	822	947	
==>Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	822	947	
==>Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12498	12609	
==>, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12498	12609	
==>, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $th <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12498	12609	
==>, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $th <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2918	3019	
==>($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(ex <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	949	1050	
==>($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(ex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1057	1162	
==>named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) { <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1057	1162	
==>named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	246	344	
==>.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	246	344	
==>.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	246	344	
==>.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	698	837	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	709	848	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2818	2930	
==>ner::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2818	2930	
==>ner::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2818	2930	
==>ner::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12840	12976	
==>rver => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) fo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12840	12976	
==>rver => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40874	40992	
==>s {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40874	40992	
==>s {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40874	40992	
==>s {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4370	4471	
==>ess $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4370	4471	
==>ess $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4370	4471	
==>ess $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18883	18980	
==>ile Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real wo <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18883	18980	
==>ile Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real wo <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9626	9724	
==>ut might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

Th <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9684	9782	
==>ut might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3855	3948	
==>ue_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3855	3948	
==>ue_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:rol <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3855	3948	
==>ue_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:rol <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1171	1270	
==>x,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1171	1270	
==>x,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1171	1270	
==>x,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	101	191	
==>8-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::Li <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	101	191	
==>8-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::Li <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3613	3743	
==>ch->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3753	3883	
==>ch->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1923	2025	
==>="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barena <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1923	2025	
==>="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barena <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1923	2025	
==>="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barena <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6099	6214	
==>ce
    my $g = $operator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8486	8588	
==>f.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8486	8588	
==>f.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18788	18883	
==>file that defines and returns an anonymous hash
definition.  While it is obvious that people who <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18788	18883	
==>file that defines and returns an anonymous hash
definition.  While it is obvious that people who <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13100	13210	
==>------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13100	13210	
==>------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13100	13210	
==>------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::met <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1145	1252	
==>ting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Quer <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1145	1252	
==>ting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Quer <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9807	9938	
==>>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9807	9938	
==>>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9807	9938	
==>>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23194	23287	
==>ate it, which could
produce ambiguous results or associations.  Or alternately, the other
pack <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23194	23287	
==>ate it, which could
produce ambiguous results or associations.  Or alternately, the other
pack <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3587	3752	
==>uest;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_dela <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3587	3752	
==>uest;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_dela <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5830	5953	
==>> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5830	5953	
==>> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5830	5953	
==>> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10272	10437	
==>emented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10272	10437	
==>emented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10272	10437	
==>emented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2892	3015	
==>n);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'AR <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2892	3015	
==>n);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'AR <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2084	2184	
==>Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2084	2184	
==>Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3601	3696	
==>n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3601	3696	
==>n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3601	3696	
==>n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	37	151	
==>count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	37	151	
==>count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	37	151	
==>count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6042	6154	
==>tch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6054	6166	
==>tch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", r <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27785	27881	
==>f new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object.

= <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27785	27881	
==>f new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object.

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5225	5319	
==>n't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5225	5319	
==>n't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5225	5319	
==>n't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4936	5061	
==>for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4936	5061	
==>for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4936	5061	
==>for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2996	3105	
==>: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will strin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2996	3105	
==>: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1313	1414	
==>e can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1313	1414	
==>e can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1313	1414	
==>e can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22608	22703	
==>tails subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27160	27255	
==>tails subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2245	2353	
==>$code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2245	2353	
==>$code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2245	2353	
==>$code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	2473	2575	
==>{
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2473	2575	
==>{
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13088	13183	
==>sed to describe the content of
a message.  All header field names prefixed with C<Content-> fall <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13088	13183	
==>sed to describe the content of
a message.  All header field names prefixed with C<Content-> fall <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13507	13601	
==>har
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13507	13601	
==>har
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30841	30935	
==>s method is a generic relational operator that returns a new Relation::Example
which has a supe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7485	7609	
==>// work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7485	7609	
==>// work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7485	7609	
==>// work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : i <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1307	1401	
==>gE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This progra <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1307	1401	
==>gE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This progra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24214	24361	
==>m[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24214	24361	
==>m[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @pa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24214	24361	
==>m[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @pa <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7453	7578	
==>ext;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_li <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7453	7578	
==>ext;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_li <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1995	2185	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1995	2185	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                } <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6470	6600	
==>nfo from $file\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	829	933	
==>t not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	829	933	
==>t not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21738	21857	
==>ist->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44645	44764	
==>ist->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	198	294	
==>pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	198	294	
==>pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with M <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	198	294	
==>pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with M <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2184	2314	
==>.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2184	2314	
==>.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	264	366	
==>ot_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading c <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	225	327	
==>ot_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	225	327	
==>ot_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading c <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21475	21620	
==>ESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44382	44527	
==>ESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2199	2320	
==>ndef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2199	2320	
==>ndef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2199	2320	
==>ndef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	711	826	
==>r($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	711	826	
==>r($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	711	826	
==>r($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20860	20957	
==>ns do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20860	20957	
==>ns do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	393	542	
==>ack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.push($tok);
            next;
        }
        my $x <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10322	10428	
==>sic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10322	10428	
==>sic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4453	4544	
==>o
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4453	4544	
==>o
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4453	4544	
==>o
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23245	23445	
==>);
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23245	23445	
==>);
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23245	23445	
==>);
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4255	4350	
==>y for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4255	4350	
==>y for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2694	2882	
==>it) = @_;

    $self->_reset_file_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12352	12461	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12352	12461	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12352	12461	
==>'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.un <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7427	7526	
==>Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfrom <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4896	5032	
==>e ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4896	5032	
==>e ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	235	343	
==>Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	235	343	
==>Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	235	343	
==>Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15919	16114	
==>n named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15913	16108	
==>n named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_su <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5208	5310	
==>bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $di <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12032	12126	
==>s');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12090	12184	
==>s');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	21666	21786	
==>quire();
    }
    die "Can't find " ~ $file ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - sho <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4168	4270	
==>$self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4168	4270	
==>$self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4168	4270	
==>$self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Ha <==
5	/Users/nnunley/pugs/util/package-osx.pl	2541	2630	
==>s/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2565	2713	
==>MPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2565	2713	
==>MPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2565	2713	
==>MPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	723	863	
==>me::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	723	863	
==>me::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	603	713	
==>nColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	603	713	
==>nColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	603	713	
==>nColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GL <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2073	2175	
==>ueue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enque <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2073	2175	
==>ueue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enque <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7092	7212	
==>f = shift;
    if (ref $self->{data}) {
      $self->{data}->visual;
    }
    else {
      join "", "[", $self->{how}, ( <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14943	15055	
==>lation regular expression */
  U32 nparens;            /* number of parentheses */

The match result:

  I32 subl <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9583	9683	
==>-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9583	9683	
==>-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	319	410	
==>"reverse_assocs", "Set", { companion => "dest" });
Has($?CLASS, "methods", "Set", { companio <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	275	398	
==>w[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Loa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	195	318	
==>w[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Loa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	193	316	
==>w[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Loa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	191	314	
==>w[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Loa <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1127	1218	
==>!! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17829	17937	
==>ional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loca <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16867	16975	
==>ional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loca <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17829	17937	
==>ional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loca <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16867	16975	
==>ional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loca <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	19762	19861	
==>imp (*@whatever) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16287	16384	
==>or much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
prog <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16287	16384	
==>or much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
prog <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6536	6626	
==>printf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6536	6626	
==>printf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6536	6626	
==>printf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3361	3503	
==>eturn $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3254	3393	
==>eturn $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12218	12351	
==>}

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12218	12351	
==>}

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be do <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12218	12351	
==>}

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be do <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7555	7667	
==>t:



### we don't need a "high" level interface (named args) 

###    because the actual rule object will be ful <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7299	7408	
==>t:

### we don't need a "high" level interface (named args) 
###    because the actual rule object will be ful <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20078	20174	
==>.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname contai <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20078	20174	
==>.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname contai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3123	3214	
==>is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3123	3214	
==>is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3123	3214	
==>is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4984	5088	
==>ncode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex convert <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4984	5088	
==>ncode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex convert <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7849	7950	
==>t be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7849	7950	
==>t be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7849	7950	
==>t be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2545	2657	
==>h sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2545	2657	
==>h sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	75	173	
==>s) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	75	173	
==>s) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	75	173	
==>s) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16816	16918	
==>s form takes the form of an ordinary natural join,
    # where some source attributes are in common, an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20293	20395	
==>s form takes the form of an ordinary natural join,
    # where some source attributes are in common, an <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19871	19973	
==>s form takes the form of an ordinary natural join,
    # where some source attributes are in common, an <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	791	883	
==>ptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming 
s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	791	883	
==>ptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming 
s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13153	13257	
==>return;

    my $my_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	193	292	
==>JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bette <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	193	292	
==>JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bette <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	193	292	
==>JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bette <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	6	100	
==>packen" von Code-Objekten
$id = &subname.wrap (sub (*@args) {
	# Argumente vorbearbeiten
	$resu <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2879	3043	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3164	3318	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9582	9736	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3164	3318	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9582	9736	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub gr <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1934	2107	
==>_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1934	2107	
==>_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6642	6741	
==>I handle blocks of text which seem to still be inside a list?

Basically the item body, much like th <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6642	6741	
==>I handle blocks of text which seem to still be inside a list?

Basically the item body, much like th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29183	29297	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29462	29576	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	9	120	
==>.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	9	120	
==>.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	9	120	
==>.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11644	11777	
==>, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11644	11777	
==>, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11644	11777	
==>, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Ar <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3194	3297	
==>[<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro } <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3194	3297	
==>[<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro } <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1059	1198	
==>n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
} <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1059	1198	
==>n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1830	1934	
==>rror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = jo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1830	1934	
==>rror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = jo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1830	1934	
==>rror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = jo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	173	332	
==>to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	173	332	
==>to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	173	332	
==>to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_f <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11433	11529	
==>rns only the elements in this recurrence that are also in the given recurrence.

- `difference( $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11433	11529	
==>rns only the elements in this recurrence that are also in the given recurrence.

- `difference( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9963	10073	
==>match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9957	10067	
==>match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4580	4693	
==>of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4580	4693	
==>of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4580	4693	
==>of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10529	10623	
==>ader names.

The header() method accepts multiple ($field => $value) pairs, which
means that yo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10529	10623	
==>ader names.

The header() method accepts multiple ($field => $value) pairs, which
means that yo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5539	5658	
==>},
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5539	5658	
==>},
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5539	5658	
==>},
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1813	1919	
==>day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::t <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1813	1919	
==>day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::t <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	20459	20563	
==>th>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21662	21759	
==>=over

=item C<line>

The original line received from the server (unmodified).

=item C<server>

T <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20543	20640	
==>=over

=item C<line>

The original line received from the server (unmodified).

=item C<server>

T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21662	21759	
==>=over

=item C<line>

The original line received from the server (unmodified).

=item C<server>

T <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20543	20640	
==>=over

=item C<line>

The original line received from the server (unmodified).

=item C<server>

T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9031	9216	
==>turn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9031	9216	
==>turn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9031	9216	
==>turn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1862	1963	
==>{
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1862	1963	
==>{
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1007	1121	
==>eter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1881	1995	
==>eter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1007	1121	
==>eter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1881	1995	
==>eter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless <==
5	/Users/nnunley/pugs/util/package-osx.pl	870	976	
==>bparrot.a
        /usr/local/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgco <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7852	7984	
==>" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7864	7996	
==>" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9180	9305	
==>$description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_tes <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1308	1425	
==>$description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1308	1425	
==>$description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_tes <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9053	9181	
==>digest;

    Prim->new(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        na <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5940	6045	
==>us( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method cont <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5940	6045	
==>us( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18375	18471	
==>sibly confuse further parsing.

Next, the source module is divided into a shallow tree of blocks: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18375	18471	
==>sibly confuse further parsing.

Next, the source module is divided into a shallow tree of blocks: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16351	16478	
==>s is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16351	16478	
==>s is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curren <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16351	16478	
==>s is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curren <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3132	3250	
==>h ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3132	3250	
==>h ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	219	350	
==>{
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    } <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	219	350	
==>{
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3532	3637	
==>|| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3532	3637	
==>|| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3532	3637	
==>|| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1136	1236	
==>widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ ' <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1136	1236	
==>widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ ' <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3145	3242	
==>s' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3145	3242	
==>s' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3225	3322	
==>s' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1410	1506	
==>"Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinit <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1410	1506	
==>"Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinit <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1410	1506	
==>"Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinit <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29861	29954	
==>Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor metho <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29861	29954	
==>Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor metho <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2173	2304	
==>le[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10609	10737	
==>== Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10609	10737	
==>== Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10609	10737	
==>== Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6 <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6511	6620	
==>error), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg, $self->co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1626	1754	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1560	1682	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2516	2630	
==>= @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2516	2630	
==>= @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2516	2630	
==>= @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11385	11555	
==>erenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11385	11555	
==>erenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11385	11555	
==>erenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'r <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3618	3721	
==>ILE, '> Makefile' or die $!;
    print MAKEFILE "$preamble$makefile$postamble";
    close MAKEFILE;
}

s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17245	17341	
==>ombination of run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	191	294	
==>CH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	191	294	
==>CH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	191	294	
==>CH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of t <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	771	860	
==>elf->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{aut <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2606	2695	
==>elf->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{aut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17338	17454	
==>);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17338	17454	
==>);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17338	17454	
==>);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	55	156	
==>me2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MAN <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	55	156	
==>me2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MAN <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17895	18034	
==>sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these method <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17895	18034	
==>sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these method <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	555	652	
==>048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	555	652	
==>048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	555	652	
==>048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6901	7017	
==>((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6901	7017	
==>((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6901	7017	
==>((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3010	3105	
==>This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the param <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3010	3105	
==>This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the param <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4325	4468	
==>]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4313	4456	
==>]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12776	12869	
==>);

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12776	12869	
==>);

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12776	12869	
==>);

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	242	365	
==>]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	242	365	
==>]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	242	365	
==>]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{bo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39866	39957	
==>as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39866	39957	
==>as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1671	1786	
==>_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1671	1786	
==>_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1671	1786	
==>_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclas <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	675	772	
==>ub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $fi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	675	772	
==>ub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	562	672	
==>known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	562	672	
==>known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	562	672	
==>known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	836	943	
==>mber
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	836	943	
==>mber
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13248	13340	
==>C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13248	13340	
==>C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3642	3739	
==>tant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3642	3739	
==>tant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3642	3739	
==>tant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
s <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1691	1781	
==>ory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\01 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1691	1781	
==>ory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\01 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13678	13868	
==>list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13678	13868	
==>list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13678	13868	
==>list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2387	2486	
==>s in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2387	2486	
==>s in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1608	1703	
==>s in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3469	3564	
==>s in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7141	7289	
==>, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7141	7289	
==>, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1426	1519	
==>nc.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1426	1519	
==>nc.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1426	1519	
==>nc.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, f <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29186	29302	
==>);
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29465	29581	
==>);
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	525	630	
==>value { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	525	630	
==>value { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	525	630	
==>value { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2941	3077	
==>el} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2941	3077	
==>el} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2941	3077	
==>el} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14960	15052	
==>of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14960	15052	
==>of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16707	16813	
==>($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent;

    i <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5038	5135	
==>one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($tw <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4165	4262	
==>one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5038	5135	
==>one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4165	4262	
==>one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($tw <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5114	5252	
==>nup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5114	5252	
==>nup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2-> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30405	30499	
==>se of the original. 
The anonymous function in the argument C<$transformer> is invoked for each <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34957	35050	
==>se of the original.
The anonymous function in the argument C<$transformer> is invoked for each <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34139	34232	
==>se of the original.
The anonymous function in the argument C<$transformer> is invoked for each <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12718	12814	
==>o memory issues),
  might suffice, be easier to create, and be more portable.
  http://www.perlmo <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40531	40626	
==>l be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or F <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26045	26140	
==>l be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or F <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40531	40626	
==>l be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or F <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26045	26140	
==>l be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or F <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10088	10203	
==>temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10088	10203	
==>temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9178	9285	
==>Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9178	9285	
==>Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9178	9285	
==>Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22816	22911	
==>ach attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(St <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27368	27463	
==>ach attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1540	1655	
==>rl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1540	1655	
==>rl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1540	1655	
==>rl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(ar <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17212	17312	
==>or the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17212	17312	
==>or the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24163	24293	
==>p;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24163	24293	
==>p;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24163	24293	
==>p;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11454	11576	
==>um_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprint <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11454	11576	
==>um_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprint <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13277	13389	
==>x or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	916	1028	
==>PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUG <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13277	13389	
==>x or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	916	1028	
==>PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUG <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	916	1028	
==>PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUG <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4127	4227	
==>>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4127	4227	
==>>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4717	4817	
==>>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14443	14535	
==>s($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $str <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14443	14535	
==>s($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $str <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5175	5274	
==>ional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This return <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5175	5274	
==>ional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This return <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7372	7471	
==>ional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	367	465	
==>$digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally over <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	367	465	
==>$digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally over <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5684	5797	
==>) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5672	5785	
==>) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name = <==
5	/Users/nnunley/pugs/util/claim_drift.pl	240	340	
==>should probably make this arrangement less hacky, but until
# we do, this "claims" DrIFT links.
#
# u <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	12911	13008	
==>he function is free
fun: generic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = gen <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1711	1807	
==>returns a span that has infinite size.

= OBJECT METHODS

The following methods are available for <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1474	1570	
==>returns a span that has infinite size.

= OBJECT METHODS

The following methods are available for <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1711	1807	
==>returns a span that has infinite size.

= OBJECT METHODS

The following methods are available for <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1474	1570	
==>returns a span that has infinite size.

= OBJECT METHODS

The following methods are available for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11854	11947	
==>conform to the Role interface/API they are 
interchangable with one another, classes and Roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11854	11947	
==>conform to the Role interface/API they are 
interchangable with one another, classes and Roles <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11854	11947	
==>conform to the Role interface/API they are 
interchangable with one another, classes and Roles <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19975	20063	
==>setta::Engine::Example> is the self-contained and pure-Perl reference
implementation of a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19975	20063	
==>setta::Engine::Example> is the self-contained and pure-Perl reference
implementation of a <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	380	488	
==>/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh. <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	380	488	
==>/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1060	1167	
==>{}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1060	1167	
==>{}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1060	1167	
==>{}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1106	1263	
==>ub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1106	1263	
==>ub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1106	1263	
==>ub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40713	40803	
==>ans required, the copyright holders of
Locale::KeyedText would appreciate being informed an <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40713	40803	
==>ans required, the copyright holders of
Locale::KeyedText would appreciate being informed an <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24217	24323	
==>ses.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confined to regcomp/ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5862	5955	
==>pe($expected_type);

		return $node if $self->types_eq($de_facto_type, $expected_type);

		war <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2637	2760	
==>new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2854	2977	
==>new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4382	4498	
==>llo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4382	4498	
==>llo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4382	4498	
==>llo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4572	4676	
==>g.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original modu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4572	4676	
==>g.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original modu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5227	5325	
==>code above).  This lets you to
do anything you like with each object, but is (at least nominally)
i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5227	5325	
==>code above).  This lets you to
do anything you like with each object, but is (at least nominally)
i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5227	5325	
==>code above).  This lets you to
do anything you like with each object, but is (at least nominally)
i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7920	8047	
==>}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11917	12040	
==>}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11917	12040	
==>}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	462	561	
==>- the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	462	561	
==>- the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13883	14013	
==>e => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13883	14013	
==>e => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13883	14013	
==>e => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6273	6369	
==>orgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $fi <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6273	6369	
==>orgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $fi <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4849	5063	
==>{
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.pr <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4849	5063	
==>{
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2349	2470	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2349	2470	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2349	2470	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1713	1816	
==>, '$<params>' ) );
    return "$ident->$meth($list)";
}
sub node::meth_call {
    my $ident = get_str( $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	587	689	
==>eta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shif <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6317	6414	
==>ver 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6317	6414	
==>ver 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8514	8611	
==>ver 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16260	16426	
==>n unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16260	16426	
==>n unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16260	16426	
==>n unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40816	40908	
==>reate a
modified version of Locale::KeyedText that you are willing to distribute,
because tha <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40816	40908	
==>reate a
modified version of Locale::KeyedText that you are willing to distribute,
because tha <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2426	2546	
==>k

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2610	2730	
==>k

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6934	7037	
==>infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6934	7037	
==>infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6934	7037	
==>infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7235	7335	
==>nvironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7235	7335	
==>nvironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7235	7335	
==>nvironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1381	1496	
==>' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubTy <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4506	4619	
==>' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubTy <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4506	4619	
==>' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubTy <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5326	5427	
==>rce, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5141	5238	
==>rce, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.p <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1517	1639	
==>->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub vers <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4720	4842	
==>->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub vers <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	189	290	
==>l", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	189	290	
==>l", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	189	290	
==>l", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4376	4522	
==>')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status->{"skip"} = 1;
            return $st <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4410	4511	
==>(Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4410	4511	
==>(Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5282	5381	
==>(Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5282	5381	
==>(Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17774	17906	
==>)
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18053	18185	
==>)
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3655	3772	
==>/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3655	3772	
==>/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3655	3772	
==>/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3153	3254	
==>alues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3153	3254	
==>alues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3153	3254	
==>alues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	319	432	
==>ub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	319	432	
==>ub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7461	7705	
==>ue; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $ <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7461	7705	
==>ue; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2964	3047	
==>ody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2964	3047	
==>ody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2964	3047	
==>ody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).t <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11530	11668	
==>ous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefin <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11530	11668	
==>ous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11588	11678	
==>-------------------------

With this Role meta-model , any Class instances, themselves does <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11588	11678	
==>-------------------------

With this Role meta-model , any Class instances, themselves does <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11588	11678	
==>-------------------------

With this Role meta-model , any Class instances, themselves does <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9801	9931	
==>class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9801	9931	
==>class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9801	9931	
==>class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	392	490	
==>f.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") e <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	392	490	
==>f.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1518	1641	
==>LY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1518	1641	
==>LY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a+ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1518	1641	
==>LY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a+ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1559	1667	
==>asyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_te <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1559	1667	
==>asyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5063	5191	
==>dge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5063	5191	
==>dge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5063	5191	
==>dge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' { <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3958	4055	
==>ax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4142	4239	
==>ax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17389	17486	
==>-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17389	17486	
==>-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17389	17486	
==>-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7354	7445	
==>CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) retu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7354	7445	
==>CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10553	10700	
==>JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10553	10700	
==>JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? unde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10553	10700	
==>JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? unde <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4643	4734	
==>4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an e <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4643	4734	
==>4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an e <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13015	13116	
==>e functions both take blocks of code, run the code, and test whether they live or die.

=== A Note abo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13073	13174	
==>e functions both take blocks of code, run the code, and test whether they live or die.

=== A Note abo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34052	34149	
==>er>.  This method will fail if C<$other> does not have
an identical header to the invocant relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38602	38699	
==>er>.  This method will fail if C<$other> does not have
an identical header to the invocant relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38063	38160	
==>er>.  This method will fail if C<$other> does not have
an identical header to the invocant relatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5824	5949	
==>ete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5824	5949	
==>ete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5824	5949	
==>ete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8072	8183	
==>e 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7801	7907	
==>e 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37413	37532	
==>array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37413	37532	
==>array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37413	37532	
==>array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arra <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3054	3168	
==>ameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3054	3168	
==>ameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2388	2511	
==>"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2388	2511	
==>"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1049	1136	
==>(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1049	1136	
==>(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st| <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1049	1136	
==>(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st| <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2239	2358	
==>$match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2239	2358	
==>$match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5277	5368	
==>& !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5277	5368	
==>& !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5277	5368	
==>& !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1220	1339	
==>+;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub live <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1220	1339	
==>+;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub live <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1220	1339	
==>+;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub live <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	785	901	
==>DOUT;
    }
    binmode OUT;
}

# XXX: with yaml precompilation, this may be bogus.
sub touch {
    # XXX: *ugly* hac <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32125	32225	
==>t

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_descendant_dispatch <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2306	2430	
==>ckage::Source->Object::Accessor::new           :
            $args->{installation}   
                ? JIB::Package::Install <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4358	4454	
==>turn a logical value, whether the `start` or `end` values belong to the span ("closed") or not (" <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	15794	15890	
==>turn a logical value, whether the `start` or `end` values belong to the span ("closed") or not (" <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4358	4454	
==>turn a logical value, whether the `start` or `end` values belong to the span ("closed") or not (" <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15794	15890	
==>turn a logical value, whether the `start` or `end` values belong to the span ("closed") or not (" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12662	12820	
==>cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12662	12820	
==>cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12662	12820	
==>cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25260	25388	
==>at(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25539	25667	
==>at(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gram <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1581	1698	
==>> 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1581	1698	
==>> 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, t <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11094	11192	
==>rintf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19277	19371	
==>cument, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19277	19371	
==>cument, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

= <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7012	7121	
==>op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3616	3725	
==>op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4465	4574	
==>op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	25465	25560	
==>m C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30017	30112	
==>m C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	277	377	
==>files have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	277	377	
==>files have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1469	1566	
==>priate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1469	1566	
==>priate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1469	1566	
==>priate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11456	11566	
==>d_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11456	11566	
==>d_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11456	11566	
==>d_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2994	3091	
==>lf.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_interse <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2994	3091	
==>lf.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_interse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5249	5346	
==>s you to
do anything you like with each object, but is (at least nominally)
intended to allow filt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5249	5346	
==>s you to
do anything you like with each object, but is (at least nominally)
intended to allow filt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5249	5346	
==>s you to
do anything you like with each object, but is (at least nominally)
intended to allow filt <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2093	2187	
==>ugh Arcfour is perfectly secure when used properly, it has several known 
problems and weakness <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2093	2187	
==>ugh Arcfour is perfectly secure when used properly, it has several known 
problems and weakness <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3990	4095	
==>ce($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3990	4095	
==>ce($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_paramet <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3990	4095	
==>ce($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_paramet <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13515	13611	
==>ide effects, such as "say" and
database queries, may occur much later than expected.

It may ente <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13515	13611	
==>ide effects, such as "say" and
database queries, may occur much later than expected.

It may ente <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	391	503	
==>)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	391	503	
==>)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	391	503	
==>)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------- <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	1893	1990	
==>s{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $arg <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	677	771	
==>->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ )) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8615	8730	
==>sConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8615	8730	
==>sConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do not <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8615	8730	
==>sConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do not <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9828	9935	
==>self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw { <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9828	9935	
==>self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7882	8014	
==>::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7882	8014	
==>::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7882	8014	
==>::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1651	1748	
==>odge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1651	1748	
==>odge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5998	6101	
==>1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5998	6101	
==>1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization o <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5998	6101	
==>1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization o <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1346	1445	
==>}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1346	1445	
==>}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	20961	21123	
==>ests completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5487	5583	
==>per_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4617	4713	
==>per_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5487	5583	
==>per_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset( <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4617	4713	
==>per_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset( <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	191	301	
==>r := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*P <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	191	301	
==>r := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*P <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5506	5615	
==>sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_comple <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5506	5615	
==>sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_comple <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1804	1899	
==>flattenning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::bles <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9834	9937	
==>ces given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9834	9937	
==>ces given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9834	9937	
==>ces given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39652	39739	
==>an.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedTe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39652	39739	
==>an.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedTe <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5621	5735	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6174	6288	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5814	5928	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6367	6481	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1884	1984	
==>aft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a different return ty <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	906	1095	
==>, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            } <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	906	1095	
==>, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22566	22658	
==>Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22566	22658	
==>Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22566	22658	
==>Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0 <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5677	5799	
==>>new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4276	4383	
==>hich has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4276	4383	
==>hich has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nick <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4787	4892	
==>hich has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nick <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4787	4892	
==>hich has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nick <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3130	3274	
==>e_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = Loa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7420	7590	
==>st_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dep <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	721	891	
==>st_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4713	4819	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4713	4819	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4713	4819	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5657	5771	
==>implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5657	5771	
==>implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5657	5771	
==>implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    } <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9296	9393	
==>l in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$a <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9296	9393	
==>l in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2469	2578	
==>TE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_reques <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2469	2578	
==>TE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_reques <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	903	996	
==>right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a numb <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	903	996	
==>right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a numb <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	903	996	
==>right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a numb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5887	6010	
==>_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5887	6010	
==>_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5887	6010	
==>_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2165	2283	
==>() {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'RO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2165	2283	
==>() {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'RO <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	663	787	
==>method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

me <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	663	787	
==>method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	309	405	
==>Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	309	405	
==>Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	309	405	
==>Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2653	2774	
==>el to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2653	2774	
==>el to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2653	2774	
==>el to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        l <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	782	898	
==>ion syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        % <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	782	898	
==>ion syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        % <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	543	680	
==>($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh. <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	543	680	
==>($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5951	6086	
==>ute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5951	6086	
==>ute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5951	6086	
==>ute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29305	29421	
==>rn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29305	29421	
==>rn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29305	29421	
==>rn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7317	7419	
==>to packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST u <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7317	7419	
==>to packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST u <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6763	6862	
==>ch the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=bac <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6763	6862	
==>ch the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=bac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11968	12063	
==>ject(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4611	4706	
==>ject(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $n <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	106	210	
==>n::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate ( <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	106	210	
==>n::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	638	733	
==>emory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	638	733	
==>emory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	638	733	
==>emory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6982	7115	
==>/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ / <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6970	7103	
==>/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8990	9086	
==>MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8990	9086	
==>MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8990	9086	
==>MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1506	1619	
==>>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1506	1619	
==>>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1506	1619	
==>>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4638	4744	
==>rns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4638	4744	
==>rns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bles <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4638	4744	
==>rns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bles <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	984	1080	
==>e processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flex <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	984	1080	
==>e processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21827	21981	
==>aversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21827	21981	
==>aversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21827	21981	
==>aversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $c <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10705	10798	
==>pends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10763	10856	
==>pends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8696	8802	
==>r.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8696	8802	
==>r.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	380	483	
==>le

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	380	483	
==>le

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3537	3637	
==>opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24322	24433	
==>en_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20743	20854	
==>en_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	540	639	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	540	639	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	540	639	
==>ant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  J <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7430	7553	
==>Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = M <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7430	7553	
==>Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	938	1032	
==>.. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	938	1032	
==>.. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	938	1032	
==>.. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13364	13533	
==>rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3525	3674	
==>rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3525	3674	
==>rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3525	3674	
==>rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34541	34644	
==>ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names = <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34541	34644	
==>ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	329	430	
==>Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	329	430	
==>Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	329	430	
==>Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub F <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	645	816	
==>arsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^ <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	645	816	
==>arsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5170	5281	
==>}
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5170	5281	
==>}
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5170	5281	
==>}
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	784	966	
==>h @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	784	966	
==>h @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	381	484	
==>uple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	381	484	
==>uple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	381	484	
==>uple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$n <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7586	7735	
==>key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $exp <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7586	7735	
==>key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $exp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14147	14241	
==>n the recommended "Good Practice" order.

Any return values of the callback routine are ignored <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14147	14241	
==>n the recommended "Good Practice" order.

Any return values of the callback routine are ignored <==
5	/Users/nnunley/pugs/util/run-smoke.pl	445	539	
==>le to install at Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10923	11033	
==>v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10923	11033	
==>v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10923	11033	
==>v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    re <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2897	3004	
==>hift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $di <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2897	3004	
==>hift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $di <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14435	14561	
==>lse,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18306	18398	
==>ta::Model and other Perl code such as persistence
solutions.  Moreover, these data structures <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18306	18398	
==>ta::Model and other Perl code such as persistence
solutions.  Moreover, these data structures <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13211	13302	
==>ta::Model and other Perl code such as persistence solutions.
Moreover, these data structures <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13211	13302	
==>ta::Model and other Perl code such as persistence solutions.
Moreover, these data structures <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4441	4615	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4441	4615	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4441	4615	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:c <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17193	17291	
==>the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perha <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22293	22391	
==>the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7086	7228	
==>+$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decre <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7086	7228	
==>+$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decre <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7086	7228	
==>+$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3195	3315	
==>val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4044	4164	
==>val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2463	2592	
==>>new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: g <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2603	2732	
==>>new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: g <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6428	6531	
==>->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6428	6531	
==>->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  retu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6428	6531	
==>->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	116	245	
==>ct;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	116	245	
==>ct;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	116	245	
==>ct;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20187	20299	
==>urn $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16608	16720	
==>urn $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6115	6214	
==>do to signal
this is to return the string set in advance with the prune method.

This feature is use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6115	6214	
==>do to signal
this is to return the string set in advance with the prune method.

This feature is use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6115	6214	
==>do to signal
this is to return the string set in advance with the prune method.

This feature is use <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12778	12944	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13057	13223	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2038	2129	
==>::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2038	2129	
==>::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2038	2129	
==>::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6770	6874	
==>returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6770	6874	
==>returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11713	11827	
==>tus{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Bui <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5657	5761	
==>::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $i <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2145	2249	
==>tus{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Bui <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5657	5761	
==>::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $i <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2145	2249	
==>tus{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Bui <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1213	1362	
==>not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1213	1362	
==>not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	391	495	
==>Nil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	391	495	
==>Nil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	391	495	
==>Nil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37912	38024	
==>y' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37912	38024	
==>y' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37912	38024	
==>y' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20202	20305	
==>st widely used. ;)
It get's is own section, elsewhere.


  regnode program[1];     /* Unwarranted chummi <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	2187	2281	
==>mode on.

=head2 Configuration variables.

These variables can be used to configure the behavio <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3852	4020	
==>' => $e->get('$current')->send('get_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$curre <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15384	15489	
==>@targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15384	15489	
==>@targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30035	30134	
==>and call it if there is.
I don't want atom to handle ')', so the handler is:

  $self->add_handler(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2248	2343	
==>ash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way to display scalars containing control charac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1046	1188	
==>ken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1046	1188	
==>ken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        els <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1046	1188	
==>ken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        els <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21220	21318	
==>ing turned on or off.  Also, if the flag handler returns 0,
that flag is removed from the resulting <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7369	7457	
==>list->new($::Class, symbol->new('add_method'), $_add_method));
}

=pod

method has_method <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8323	8436	
==>"$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8323	8436	
==>"$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / co <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	176	272	
==>d1 NAME

Blondie::Prelude::Strings - String related builtins

=head1 SYNOPSIS

    use Blondie::P <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6217	6320	
==>String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6217	6320	
==>String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_e <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30493	30588	
==>or each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35044	35139	
==>or each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34226	34321	
==>or each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mus <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33019	33113	
==>e in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37569	37663	
==>e in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36913	37007	
==>e in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3740	3838	
==>diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Sym <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16122	16220	
==>tive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::V <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3740	3838	
==>diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Sym <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16122	16220	
==>tive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::V <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16122	16220	
==>tive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::V <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3341	3439	
==>y $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3399	3497	
==>y $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14697	14793	
==>rm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14697	14793	
==>rm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14697	14793	
==>rm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	504	661	
==>{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            las <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10870	11018	
==>se = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	742	852	
==>= Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	724	831	
==>= Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{named <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	724	831	
==>= Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{named <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1343	1449	
==>iers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1343	1449	
==>iers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1343	1449	
==>iers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	25	122	
==>se;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	25	122	
==>se;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7141	7249	
==>statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7141	7249	
==>statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1810	1910	
==>statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1810	1910	
==>statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter' <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	42	136	
==>nternals.hs, line starting `data VJunc'

has Perl::JuncType $.juncType;

has Set of Val $.juncD <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2999	3105	
==>:= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2999	3105	
==>:= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.is <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2999	3105	
==>:= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.is <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	124	217	
==>mper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $names <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	124	217	
==>mper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $names <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1218	1325	
==>catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = spl <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1218	1325	
==>catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = spl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1108	1210	
==>me) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1108	1210	
==>me) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or d <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1108	1210	
==>me) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	365	476	
==>eys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returnin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	365	476	
==>eys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returnin <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	365	476	
==>eys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returnin <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29328	29418	
==>cant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrappe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33880	33970	
==>cant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrappe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4155	4246	
==>apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4155	4246	
==>apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4155	4246	
==>apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7276	7372	
==>sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7276	7372	
==>sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n" <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7276	7372	
==>sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n" <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	775	867	
==>"a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinat <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	775	867	
==>"a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinat <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	823	932	
==>eight >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	823	932	
==>eight >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11958	12051	
==>::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11958	12051	
==>::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11958	12051	
==>::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4577	4705	
==>self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4717	4845	
==>self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12912	13019	
==>R
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12912	13019	
==>R
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12912	13019	
==>R
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $l <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	880	989	
==>sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wit <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1754	1863	
==>sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wit <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	880	989	
==>sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wit <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1754	1863	
==>sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wit <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4881	4981	
==>$node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defined_nodes}->insert( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12738	12862	
==>d')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12738	12862	
==>d')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm b <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12738	12862	
==>d')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm b <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10317	10427	
==>amed{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10311	10421	
==>amed{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11676	11791	
==>urn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9361	9471	
==>urn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @{ $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14474	14566	
==>ibute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14474	14566	
==>ibute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14474	14566	
==>ibute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute(' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8218	8377	
==>$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $blo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4578	4737	
==>$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $blo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5427	5586	
==>$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $blo <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5556	5670	
==>_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5556	5670	
==>_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_op <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29396	29489	
==>ave been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33948	34041	
==>ave been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33112	33205	
==>ave been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1146	1234	
==>Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additional <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1146	1234	
==>Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additional <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1456	1568	
==>kage PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1456	1568	
==>kage PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1456	1568	
==>kage PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS. <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1934	2040	
==>if !defined($callback);
  my $r_address;
  my $regexp_compile_hook = sub {
    $r_address = $_[0];
    retu <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24276	24357	
==>,C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1217	1334	
==>}
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1217	1334	
==>}
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1217	1334	
==>}
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4283	4383	
==>=> sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETC <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5021	5119	
==>=> sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETC <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5455	5561	
==>content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_he <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5455	5561	
==>content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1003	1104	
==>n as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1003	1104	
==>n as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1003	1104	
==>n as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	989	1094	
==>>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	989	1094	
==>>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	989	1094	
==>>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return b <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1026	1130	
==>turn $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $index->isa('num') <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15823	15915	
==>nts of the regex
according to a style-sheet (syntax highlighting).

=item Regexp::Reverse (di <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15184	15351	
==>has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15184	15351	
==>has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15184	15351	
==>has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, ma <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4948	5047	
==>od get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () r <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4948	5047	
==>od get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () r <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7774	7940	
==>kage that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8238	8404	
==>kage that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4204	4358	
==>kage that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4668	4822	
==>kage that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11453	11587	
==>t;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$in <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2672	2792	
==>a object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = s <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3136	3256	
==>a object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2412	2519	
==>[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2412	2519	
==>[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2412	2519	
==>[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1019	1126	
==>$_[0]->{fh};

    # readline() doesn't work so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Har <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3314	3414	
==>e 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4651	4751	
==>e 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3314	3414	
==>e 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4873	4973	
==>e 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8556	8668	
==>:Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8544	8656	
==>:Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1276	1377	
==>tr) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1276	1377	
==>tr) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Strin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1276	1377	
==>tr) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Strin <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6628	6724	
==>hen a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' dire <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6628	6724	
==>hen a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' dire <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7610	7702	
==>$params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7610	7702	
==>$params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7610	7702	
==>$params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7198	7402	
==>tion( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7391	7595	
==>tion( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21836	21991	
==>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21836	21991	
==>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21836	21991	
==>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reve <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1543	1649	
==>l_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b( <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1543	1649	
==>l_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	967	1071	
==>referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	967	1071	
==>referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	967	1071	
==>referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9593	9719	
==>th; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9593	9719	
==>th; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9593	9719	
==>th; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29993	30087	
==>=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a shor <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34545	34639	
==>=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a shor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4232	4380	
==>($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4232	4380	
==>($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4232	4380	
==>($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17111	17228	
==>m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13532	13649	
==>m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31066	31205	
==>_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	12087	12179	
==>ms of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9208	9300	
==>ms of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12087	12179	
==>ms of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9208	9300	
==>ms of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15032	15134	
==>' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15032	15134	
==>' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15032	15134	
==>' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3530	3628	
==>it->new(0)
}

package closure::params;

use strict;
use warnings;

use Carp 'confess';
use Scalar:: <==
5	/Users/nnunley/pugs/util/drift.pl	49	139	
==>ile::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1216	1334	
==>);
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1216	1334	
==>);
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8476	8590	
==>L 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.o <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8476	8590	
==>L 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.o <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	12734	12837	
==>>push_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $test_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	815	994	
==>terface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $transla <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	815	994	
==>terface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $transla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2303	2395	
==>ecomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $prec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2303	2395	
==>ecomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $prec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2303	2395	
==>ecomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $prec <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	189	439	
==>values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	189	439	
==>values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5274	5371	
==>files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5274	5371	
==>files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5274	5371	
==>files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9162	9335	
==>pt ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SEL <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12639	12812	
==>pt ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SEL <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2840	2964	
==>my $perl_version;
    ### special perl, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load the c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3603	3699	
==>----------------------

# Utility to test that "No method found" error is raised

sub fails_ok (& <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5505	5601	
==>----------------------

# Utility to test that "No method found" error is raised

sub fails_ok (& <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4784	4879	
==>description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4784	4879	
==>description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6981	7076	
==>description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8770	8883	
==>k
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to wor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8770	8883	
==>k
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to wor <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9028	9137	
==>k
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to wor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9028	9137	
==>k
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to wor <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4441	4547	
==>if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2038	2174	
==>= shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2038	2174	
==>= shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2038	2174	
==>= shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6690	6778	
==>}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)} <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6690	6778	
==>}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)} <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13857	14004	
==>~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3970	4101	
==>~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3970	4101	
==>~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3970	4101	
==>~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2348	2478	
==>>new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	283	383	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifier <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	283	383	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifier <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	283	383	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifier <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5590	5688	
==>abase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5590	5688	
==>abase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6760	6890	
==>ined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6760	6890	
==>ined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6760	6890	
==>ined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start = <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6143	6269	
==>962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi" <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6143	6269	
==>962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi" <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	8534	8631	
==>::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8228	8421	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8228	8421	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8228	8421	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1536	1623	
==>e>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62 <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1536	1623	
==>e>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22060	22282	
==>op::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22339	22561	
==>op::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10137	10288	
==>hod";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10137	10288	
==>hod";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10137	10288	
==>hod";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2550	2680	
==>|| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2550	2680	
==>|| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2550	2680	
==>|| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7531	7767	
==>class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7531	7767	
==>class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7531	7767	
==>class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END_ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2495	2609	
==>ubstr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    retur <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2495	2609	
==>ubstr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2229	2331	
==>ge.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2229	2331	
==>ge.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8282	8382	
==>turn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8282	8382	
==>turn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8282	8382	
==>turn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6687	6787	
==>},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is ther <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6687	6787	
==>},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is ther <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6687	6787	
==>},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is ther <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36673	36768	
==>ponding to the Message could be
found using the Translator object's Set and Member properties; i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36673	36768	
==>ponding to the Message could be
found using the Translator object's Set and Member properties; i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	523	626	
==>thods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	523	626	
==>thods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	523	626	
==>thods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22843	22939	
==>ls depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinc <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22843	22939	
==>ls depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinc <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10267	10378	
==>{ 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curren <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10267	10378	
==>{ 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1138	1240	
==>0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1138	1240	
==>0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1138	1240	
==>0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3395	3566	
==>ch = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3535	3706	
==>ch = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2649	2767	
==>int '\syncomment{';
	    while (scalar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @fil <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2135	2242	
==>ut of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduction over " . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	422	523	
==>lements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	422	523	
==>lements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), b <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	422	523	
==>lements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), b <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2515	2610	
==>stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting wit <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2515	2610	
==>stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting wit <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13125	13233	
==>rn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16602	16710	
==>rn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15964	16072	
==>rn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1832	1935	
==>igit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1892	1995	
==>igit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15829	15945	
==>in > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10685	10801	
==>in > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3420	3585	
==>ell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3420	3585	
==>ell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cel <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3420	3585	
==>ell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3669	3832	
==>rait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3669	3832	
==>rait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3669	3832	
==>rait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     su <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	62	161	
==>kenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucke <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	62	161	
==>kenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucke <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	353	456	
==>meric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	898	1001	
==>meric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accep <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	353	456	
==>meric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accep <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	898	1001	
==>meric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accep <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	898	1001	
==>meric range. It accepts a 'step' value.
#   - from_range() is a generic range for strings, etc. It accep <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24284	24377	
==>ultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely obj <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24284	24377	
==>ultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely obj <==
5	/Users/nnunley/pugs/util/package-osx.pl	2276	2365	
==>ry/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19958	20046	
==>onceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
im <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19958	20046	
==>onceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
im <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	29	129	
==>art of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Build <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	29	129	
==>art of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Build <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6734	6833	
==>>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6734	6833	
==>>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6734	6833	
==>>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	163	266	
==>ss too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	163	266	
==>ss too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wit <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	163	266	
==>ss too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wit <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3707	3805	
==>at epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, th <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3707	3805	
==>at epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25045	25138	
==>ch is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F< <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23809	23902	
==>ch is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25045	25138	
==>ch is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F< <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23809	23902	
==>ch is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9182	9272	
==>r', '... $iFoo got the right method return value');

$iFoo->add_singleton_method('test_iFoo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9903	10046	
==>}
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1972	2101	
==>}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1972	2101	
==>}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            T <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2283	2382	
==>ad the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2283	2382	
==>ad the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11522	11623	
==>n is to wait until objects are done for this, but maybe I will
figure out a good way to do this withou <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11522	11623	
==>n is to wait until objects are done for this, but maybe I will
figure out a good way to do this withou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	666	781	
==>alue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	666	781	
==>alue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	666	781	
==>alue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	446	547	
==>::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	446	547	
==>::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5121	5240	
==>ld_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5121	5240	
==>ld_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6002	6100	
==>ethod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6002	6100	
==>ethod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6002	6100	
==>ethod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1177	1291	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1177	1291	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1177	1291	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{i <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20920	21014	
==>hem easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packag <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20920	21014	
==>hem easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packag <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7570	7705	
==>'>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      < <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23070	23161	
==>target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21879	21970	
==>target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23070	23161	
==>target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21879	21970	
==>target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1059	1153	
==>t(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1059	1153	
==>t(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1059	1153	
==>t(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	9884	9975	
==>{ unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) return <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9884	9975	
==>{ unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1073	1171	
==>));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1073	1171	
==>));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1073	1171	
==>));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('n <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1497	1593	
==>structor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random num <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1497	1593	
==>structor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random num <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5451	5556	
==>to skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	318	423	
==>3, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5451	5556	
==>to skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	318	423	
==>3, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	318	423	
==>3, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1590	1731	
==>less $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1590	1731	
==>less $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1590	1731	
==>less $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_ <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2364	2477	
==>sults as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_results <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2364	2477	
==>sults as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_results <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4425	4563	
==>$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4618	4756	
==>$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5085	5178	
==>d or failed, depending on the value of C<$passed>,
recording C<$description> as an optional ex <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5085	5178	
==>d or failed, depending on the value of C<$passed>,
recording C<$description> as an optional ex <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6609	6702	
==>d or failed, depending on the value of C<$passed>,
recording C<$description> as an optional ex <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10870	10970	
==>.

The old value (or values) of the last of the header fields is returned.
If no such field exists C< <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10870	10970	
==>.

The old value (or values) of the last of the header fields is returned.
If no such field exists C< <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4625	4826	
==>from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4625	4826	
==>from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29361	29469	
==>T_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Sa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29361	29469	
==>T_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Sa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	189	289	
==>T_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Sa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8276	8422	
==>SSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $pr <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8276	8422	
==>SSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $pr <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8937	9032	
==>$Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_end <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8995	9090	
==>$Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_end <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4066	4151	
==>b/TestBuilder/TestPlan.pm";
require "lib/TestBuilder/Output.pm";
require "lib/TestBuil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1224	1320	
==>UILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1224	1320	
==>UILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1224	1320	
==>UILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatche <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11749	11902	
==>et( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12107	12260	
==>et( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15896	16035	
==>lf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15896	16035	
==>lf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15896	16035	
==>lf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1706	1820	
==>$code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1706	1820	
==>$code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1706	1820	
==>$code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23399	23491	
==>d C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no n <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23399	23491	
==>d C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2156	2290	
==>);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2156	2290	
==>);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2156	2290	
==>);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2981	3088	
==>my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2981	3088	
==>my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	905	1024	
==>e    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	905	1024	
==>e    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	745	856	
==>onstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	745	856	
==>onstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	745	856	
==>onstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	338	445	
==>added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	338	445	
==>added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	338	445	
==>added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mod <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	310	412	
==>rt => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinit <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	310	412	
==>rt => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinit <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4576	4676	
==>n1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2404	2504	
==>oderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4576	4676	
==>n1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2404	2504	
==>oderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2404	2504	
==>oderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3247	3361	
==>ass_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3247	3361	
==>ass_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3247	3361	
==>ass_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4411	4518	
==>be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4411	4518	
==>be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	748	1154	
==>r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            5 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	748	1154	
==>r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6386	6488	
==>2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6386	6488	
==>2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6386	6488	
==>2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  m <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9017	9135	
==>ndency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] } <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10494	10612	
==>ndency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] } <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2988	3088	
==>her!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6465	6565	
==>her!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5404	5504	
==>her!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20341	20435	
==>IZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20341	20435	
==>IZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2396	2485	
==>erl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2396	2485	
==>erl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2396	2485	
==>erl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23371	23499	
==>\G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< if <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19792	19920	
==>\G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9738	9826	
==>::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9738	9826	
==>::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (un <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9738	9826	
==>::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (un <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2319	2436	
==>quest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13848	13965	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_meth <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2319	2436	
==>quest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query str <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13848	13965	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13848	13965	
==>params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9308	9471	
==>number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( St <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1428	1573	
==>number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( St <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1428	1573	
==>number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( St <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29878	29973	
==>s very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values fr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29878	29973	
==>s very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values fr <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	828	921	
==>e bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintext <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	828	921	
==>e bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintext <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	367	458	
==>ct;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	367	458	
==>ct;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	367	458	
==>ct;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1489	1665	
==>se, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4966	5142	
==>se, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3896	4072	
==>se, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10581	10675	
==>field => $value) pairs, which
means that you can update several fields with a single invocation <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10581	10675	
==>field => $value) pairs, which
means that you can update several fields with a single invocation <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3711	3837	
==>ime) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $re <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3711	3837	
==>ime) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11548	11632	
==>-----------------------------------------------------------------

With this Role met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11548	11632	
==>-----------------------------------------------------------------

With this Role met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11548	11632	
==>-----------------------------------------------------------------

With this Role met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	494	681	
==>},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	494	681	
==>},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	494	681	
==>},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$:: <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2221	2365	
==>->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_ <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2579	2723	
==>->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7591	7714	
==>ail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'manda <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7591	7714	
==>ail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'manda <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3280	3382	
==>ub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3280	3382	
==>ub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$lab <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3280	3382	
==>ub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$lab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1542	1634	
==>d1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audre <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1542	1634	
==>d1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audre <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31031	31133	
==>>{...} >>):

=over 4

=item rx

The parser object with which it was created.

=item flags

The flags fo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12185	12283	
==>lement in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nodes <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16765	16863	
==>lement in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12185	12283	
==>lement in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nodes <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16765	16863	
==>lement in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nodes <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	349	519	
==>$status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	349	519	
==>$status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        } <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4113	4255	
==>e) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4113	4255	
==>e) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not m <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	132	234	
==>e::Nil;

package list;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2734	2862	
==>$body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2734	2862	
==>$body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2734	2862	
==>$body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	413	604	
==>se {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	413	604	
==>se {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	413	604	
==>se {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException. <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1337	1505	
==>p(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Par <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1740	1839	
==>time_t;
}

# convert from a perl float
multi sub epoch( Real $epoch ) returns Date::Gregorian is exp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	694	799	
==>n (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	694	799	
==>n (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	694	799	
==>n (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1320	1414	
==>r :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1320	1414	
==>r :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_ke <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	985	1092	
==>d start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end ( <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	985	1092	
==>d start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end ( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5107	5204	
==>:operator::arrow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

p <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2809	2902	
==>iableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Pro <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2809	2902	
==>iableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Pro <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1355	1670	
==></LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1355	1670	
==></LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6078	6200	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6078	6200	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descrip <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6078	6200	
==>>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descrip <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6915	7025	
==>elf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6915	7025	
==>elf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6915	7025	
==>elf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTI <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3423	3524	
==>\) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsu <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3423	3524	
==>\) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10397	10516	
==>ason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2418	2525	
==>ason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builde <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2418	2525	
==>ason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builde <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	61	162	
==>nt @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) { <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	61	162	
==>nt @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11454	11589	
==>has Str $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1902	2025	
==>has Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1902	2025	
==>has Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2865	2972	
==>Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  tes <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2865	2972	
==>Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  tes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2945	3052	
==>Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  tes <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1747	1852	
==>_name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40312	40407	
==>arry
prominent notices stating that you changed the files and the date of any
changes, in additi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25836	25931	
==>arry prominent
notices stating that you changed the files and the date of any changes, in
additi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40312	40407	
==>arry
prominent notices stating that you changed the files and the date of any
changes, in additi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25836	25931	
==>arry prominent
notices stating that you changed the files and the date of any changes, in
additi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12017	12140	
==>5-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Sp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12017	12140	
==>5-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Sp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14824	14920	
==>rimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14824	14920	
==>rimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14824	14920	
==>rimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;') <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5584	5702	
==>ft safe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shif <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17503	17615	
==>nt current class;
    push(@classes,$ROOT);

    my $code = "";
    $code .= "package $ROOT".($pkg eq "" ? "" : " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8160	8256	
==>more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8160	8256	
==>more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8160	8256	
==>more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3423	3546	
==>s .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3423	3546	
==>s .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3423	3546	
==>s .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1537	1648	
==>apital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capita <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1537	1648	
==>apital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capita <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15450	15569	
==>rn $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self->enter_scope;
    my $node = Th <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3359	3465	
==>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3359	3465	
==>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23231	23320	
==>et> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23231	23320	
==>et> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6697	6900	
==>oth a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filte <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6697	6900	
==>oth a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11215	11343	
==>emoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11215	11343	
==>emoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11215	11343	
==>emoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[ <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	149	249	
==>r;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_d <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	149	249	
==>r;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20570	20667	
==>6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<// <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20570	20667	
==>6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<// <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20570	20667	
==>6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<// <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13726	13869	
==>"    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9910	10053	
==>"    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10746	10889	
==>"    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31551	31645	
==>t, another library likewise, and a program which uses both libraries
could have yet another set <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31551	31645	
==>t, another library likewise, and a program which uses both libraries
could have yet another set <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8311	8410	
==>supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8311	8410	
==>supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3549	3635	
==>ibutes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3549	3635	
==>ibutes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3549	3635	
==>ibutes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5351	5450	
==>ned.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5351	5450	
==>ned.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9271	9366	
==>---------------------------

This is a rough sketch of that role(Role) might look like. 

role R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9271	9366	
==>---------------------------

This is a rough sketch of that role(Role) might look like. 

role R <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9271	9366	
==>---------------------------

This is a rough sketch of that role(Role) might look like. 

role R <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49762	49907	
==>ams => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$authorit <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4007	4107	
==>ass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4007	4107	
==>ass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C< <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10926	11021	
==>ields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10926	11021	
==>ields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1265	1384	
==>y {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1265	1384	
==>y {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1265	1384	
==>y {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  }) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20080	20196	
==>::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20359	20475	
==>::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13393	13522	
==>strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13393	13522	
==>strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Ha <==
5	/Users/nnunley/pugs/util/build_pugs.pl	3402	3525	
==>setup->('build');
    die "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)gh <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10620	10727	
==>le regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10620	10727	
==>le regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1110	1290	
==>(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $modul <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	989	1169	
==>(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $modul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2129	2237	
==>me the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2129	2237	
==>me the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2129	2237	
==>me the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7575	7683	
==>{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7575	7683	
==>{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7575	7683	
==>{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8806	8904	
==>fference (Relation $other!) returns Relation {

    die "The heading of the relation in $other does <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12283	12381	
==>fference (Relation $other!) returns Relation {

    die "The heading of the relation in $other does <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1544	1654	
==>arning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1544	1654	
==>arning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1544	1654	
==>arning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17839	17931	
==>ield contains information about the software being
used by the originating server program han <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17839	17931	
==>ield contains information about the software being
used by the originating server program han <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9507	9673	
==>isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9507	9673	
==>isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pai <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9507	9673	
==>isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pai <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21249	21348	
==>e that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 200 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21249	21348	
==>e that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 200 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12506	12604	
==>a.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12506	12604	
==>a.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12506	12604	
==>a.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32780	32872	
==>one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37330	37422	
==>one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relatio <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8167	8312	
==>ock) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4527	4672	
==>ock) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5376	5521	
==>ock) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6872	7006	
==>null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6872	7006	
==>null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4723	4866	
==>f($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4723	4866	
==>f($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4723	4866	
==>f($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    na <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1325	1428	
==>-------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1325	1428	
==>-------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3431	3530	
==>ppended to it; appending can create precisely the sort of weak 
keying that can be exploited by a cr <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3431	3530	
==>ppended to it; appending can create precisely the sort of weak 
keying that can be exploited by a cr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	968	1049	
==>S.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	968	1049	
==>S.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	968	1049	
==>S.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNa <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	53	153	
==>mplementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

require 'p6rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	162	258	
==>S::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	162	258	
==>S::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	162	258	
==>S::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12363	12448	
==>rackets(Open,Close), p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int(C), p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4837	4994	
==>!= 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     sta <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4837	4994	
==>!= 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3307	3439	
==>.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3307	3439	
==>.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3307	3439	
==>.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3525	3636	
==>f $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3665	3776	
==>f $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14022	14129	
==>ndef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14022	14129	
==>ndef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14022	14129	
==>ndef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8301	8414	
==>ing.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8301	8414	
==>ing.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      ret <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8301	8414	
==>ing.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      ret <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3815	3920	
==>$two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3815	3920	
==>$two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	72	173	
==>et();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersect <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	72	173	
==>et();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersect <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6274	6360	
==>S.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6274	6360	
==>S.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6274	6360	
==>S.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6160	6271	
==>urn call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return cal <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6148	6259	
==>urn call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return cal <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6389	6503	
==>me))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and expo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6389	6503	
==>me))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and expo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6389	6503	
==>me))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and expo <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	3664	3777	
==>(@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just insert <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3664	3777	
==>(@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just insert <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2040	2145	
==>ymbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_st <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1722	1823	
==>ymbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	556	679	
==>e_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	556	679	
==>e_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	556	679	
==>e_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14636	14737	
==>, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $targe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14636	14737	
==>, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $targe <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6984	7181	
==>> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10461	10658	
==>> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6954	7054	
==>rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6954	7054	
==>rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6954	7054	
==>rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primit <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17691	17806	
==>@$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5934	6033	
==>⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5064	5163	
==>⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5934	6033	
==>⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5064	5163	
==>⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9703	9845	
==>*@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33598	33722	
==>);
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33598	33722	
==>);
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33598	33722	
==>);
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	926	1046	
==>*@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar { <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2755	2952	
==>line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verb <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2755	2952	
==>line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verb <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17599	17762	
==>/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14020	14183	
==>/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2760	2857	
==>ss->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2760	2857	
==>ss->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discar <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2760	2857	
==>ss->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3857	3958	
==>isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3857	3958	
==>isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3857	3958	
==>isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $a <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2344	2440	
==>e) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method co <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2344	2440	
==>e) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	995	1108	
==>a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	995	1108	
==>a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1593	1691	
==>ring(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1593	1691	
==>ring(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1593	1691	
==>ring(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2245	2378	
==>nt(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2245	2378	
==>nt(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2245	2378	
==>nt(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < a <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6440	6553	
==>ase_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6440	6553	
==>ase_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3238	3364	
==>er, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out. <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3238	3364	
==>er, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	766	873	
==>like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that De <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	766	873	
==>like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that De <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	766	873	
==>like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that De <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11585	11741	
==>- heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - H <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11585	11741	
==>- heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17343	17434	
==>ir.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17343	17434	
==>ir.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17343	17434	
==>ir.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7825	7933	
==>speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7825	7933	
==>speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7825	7933	
==>speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1169	1272	
==>o} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1169	1272	
==>o} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_ <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13160	13319	
==>ubt use brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3345	3484	
==>ubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3345	3484	
==>ubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3345	3484	
==>ubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3449	3648	
==>terpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3497	3696	
==>terpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3449	3648	
==>terpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3497	3696	
==>terpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2539	2640	
==>boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2732	2847	
==>TH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', ' <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7826	7941	
==>TH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2732	2847	
==>TH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7826	7941	
==>TH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', ' <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1476	1578	
==>->tests if we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TEST <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	690	815	
==>\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	690	815	
==>\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3135	3237	
==>unt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3135	3237	
==>unt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3135	3237	
==>unt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PI <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8938	9064	
==>at    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8926	9052	
==>at    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12323	12437	
==>( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12323	12437	
==>( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashre <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12323	12437	
==>( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashre <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3557	3671	
==>ues of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7034	7148	
==>ues of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5991	6105	
==>ues of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6975	7068	
==>e rule() constructor provides an interface between the 

low-level functional operators, and t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6736	6828	
==>e rule() constructor provides an interface between the 
low-level functional operators, and t <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5547	5652	
==>tack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=hea <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5547	5652	
==>tack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12538	12642	
==>.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12538	12642	
==>.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12538	12642	
==>.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39240	39356	
==>tems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39240	39356	
==>tems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39240	39356	
==>tems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arra <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10924	11021	
==>on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo sin <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8446	8541	
==>on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo sin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3490	3591	
==>sh/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3490	3591	
==>sh/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3490	3591	
==>sh/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Te <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14836	14930	
==>create and use relational databases in a very reliable,
portable, and efficient way.  This "Ros <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14836	14930	
==>create and use relational databases in a very reliable,
portable, and efficient way.  This "Ros <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18465	18620	
==>nt( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18744	18899	
==>nt( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1138	1235	
==>t//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1138	1235	
==>t//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1138	1235	
==>t//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-c <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3053	3234	
==>p.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        el <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3053	3234	
==>p.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5246	5346	
==>th $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5246	5346	
==>th $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't ma <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5246	5346	
==>th $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't ma <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	287	410	
==>uery_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param pa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	287	410	
==>uery_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param pa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14698	14800	
==>tart or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite siz <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14698	14800	
==>tart or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite siz <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	271	364	
==>PORT=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4030	4156	
==>ll memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4030	4156	
==>ll memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4030	4156	
==>ll memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = und <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3051	3143	
==>) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Ha <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3051	3143	
==>) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Ha <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7633	7832	
==>ture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clo <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7633	7832	
==>ture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clo <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3685	3781	
==>t should pass.  C<$description> is the optional
description of the test.  This is the easiest way <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3685	3781	
==>t should pass.  C<$description> is the optional
description of the test.  This is the easiest way <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3765	3861	
==>t should pass.  C<$description> is the optional
description of the test.  This is the easiest way <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21766	21872	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(? <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18187	18293	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(? <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	380	480	
==>e is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	380	480	
==>e is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	380	480	
==>e is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16836	16935	
==>dd the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16836	16935	
==>dd the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16836	16935	
==>dd the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30596	30692	
==>n a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35147	35243	
==>n a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of t <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3502	3601	
==>peOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28311	28408	
==>such as to test that the object's contents look
good at a glance); no attribute values are escaped <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35667	35764	
==>such as to test that the object's contents look
good at a glance); no attribute values are escaped <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28311	28408	
==>such as to test that the object's contents look
good at a glance); no attribute values are escaped <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35667	35764	
==>such as to test that the object's contents look
good at a glance); no attribute values are escaped <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19958	20127	
==>->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40418	40587	
==>->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2710	2816	
==>onents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2710	2816	
==>onents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2710	2816	
==>onents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2892	3004	
==>hile @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shif <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2892	3004	
==>hile @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26503	26600	
==>ve been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31055	31152	
==>ve been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Re <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30057	30154	
==>ve been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3226	3336	
==>if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3226	3336	
==>if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3226	3336	
==>if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1538	1643	
==>{

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @! <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1538	1643	
==>{

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @! <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6396	6504	
==>, $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Refe <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6396	6504	
==>, $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Refe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5087	5188	
==>yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5087	5188	
==>yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5087	5188	
==>yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10505	10612	
==>ame: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10663	10770	
==>ame: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34499	34600	
==>$offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34499	34600	
==>$offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shif <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34499	34600	
==>$offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9974	10090	
==>)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|') <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9974	10090	
==>)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|') <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11261	11373	
==>ike VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_is_v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	730	821	
==>-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	730	821	
==>-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5089	5190	
==>ml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link optio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5089	5190	
==>ml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link optio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5089	5190	
==>ml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link optio <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	910	1002	
==>ment!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	910	1002	
==>ment!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6713	6853	
==>r::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6713	6853	
==>r::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6713	6853	
==>r::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$ <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	931	1042	
==>f STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDER <==
5	/Users/nnunley/pugs/util/p5_to_p6.pl	1920	2024	
==>arname})\s*=\s*\\(${re_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's now i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7901	8039	
==>e eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7901	8039	
==>e eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7901	8039	
==>e eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @va <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5949	6066	
==>'
            if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _em <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26551	26645	
==>is creates a node of package C<TYPE> and sends the constructor whatever
other arguments are inc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1558	1682	
==>s');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1558	1682	
==>s');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1558	1682	
==>s');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supe <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10570	10668	
==>CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=ite <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10570	10668	
==>CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=ite <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2134	2271	
==>object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defin <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2134	2271	
==>object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2317	2438	
==>= args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2317	2438	
==>= args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2317	2438	
==>= args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	965	1062	
==>array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	965	1062	
==>array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scala <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	965	1062	
==>array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scala <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5056	5222	
==>isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3783	3910	
==>als ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%s <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3783	3910	
==>als ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%s <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	97	194	
==>from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	97	194	
==>from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	884	996	
==>'t subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </bo <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	884	996	
==>'t subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	166	262	
==>orter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	166	262	
==>orter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	166	262	
==>orter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compil <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1489	1594	
==>MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1489	1594	
==>MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2943	3047	
==>MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	63	160	
==>02012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describe <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	63	160	
==>02012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5380	5559	
==>=>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5380	5559	
==>=>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5380	5559	
==>=>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	982	1111	
==>"non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	993	1122	
==>"non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13126	13235	
==>{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13126	13235	
==>{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Containe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13126	13235	
==>{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Containe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4587	4782	
==>s;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'se <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4587	4782	
==>s;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'se <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2055	2155	
==>ub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statemen <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2055	2155	
==>ub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statemen <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2055	2155	
==>ub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statemen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1958	2073	
==>"$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FI <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2175	2290	
==>"$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FI <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4127	4227	
==>(Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4127	4227	
==>(Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4127	4227	
==>(Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @va <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6076	6196	
==>rack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, & <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6076	6196	
==>rack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, & <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5555	5651	
==>) { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5555	5651	
==>) { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3377	3465	
==>eta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3377	3465	
==>eta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3377	3465	
==>eta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1591	1697	
==>alue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1591	1697	
==>alue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1591	1697	
==>alue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numi <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5095	5193	
==>ring.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but r <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5095	5193	
==>ring.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but r <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	330	423	
==>ld our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multipl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	499	592	
==>Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setr <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	388	481	
==>ld our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multipl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	499	592	
==>Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	499	592	
==>Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2387	2512	
==>orresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.so <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2387	2512	
==>orresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.so <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13317	13438	
==>[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13317	13438	
==>[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13317	13438	
==>[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18977	19086	
==>Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18977	19086	
==>Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18977	19086	
==>Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {.. <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24610	24709	
==>(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21031	21130	
==>(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7007	7116	
==>.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7007	7116	
==>.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7007	7116	
==>.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	743	845	
==>y, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this is <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	743	845	
==>y, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this is <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2731	2863	
==>apture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return un <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2626	2752	
==>apture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return un <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	985	1084	
==>unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	985	1084	
==>unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.w <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21642	21740	
==>nue'><no_LineTerminator_here><Identifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2662	2779	
==>erl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2662	2779	
==>erl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2662	2779	
==>erl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1786	1889	
==>= 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1786	1889	
==>= 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2536	2665	
==>var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2453	2577	
==>var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1846	1935	
==>od JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1846	1935	
==>od JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1846	1935	
==>od JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self) <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	582	686	
==>$self->add_flag('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $pl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13076	13170	
==>f primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a gener <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18171	18265	
==>f primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a gener <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13076	13170	
==>f primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a gener <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18171	18265	
==>f primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a gener <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8057	8168	
==>nt<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8057	8168	
==>nt<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	509	638	
==>ined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	509	638	
==>ined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	509	638	
==>ined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	325	431	
==>=> q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORI <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	325	431	
==>=> q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3686	3868	
==>boxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3686	3868	
==>boxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3686	3868	
==>boxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19615	19712	
==>passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any c <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19615	19712	
==>passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any c <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	673	805	
==>(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	673	805	
==>(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36115	36237	
==>p length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36115	36237	
==>p length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bod <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36115	36237	
==>p length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3347	3465	
==>ent_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!co <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3347	3465	
==>ent_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!co <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	225	325	
==>ction (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	225	325	
==>ction (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	225	325	
==>ction (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16384	16483	
==>t can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16384	16483	
==>t can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8592	8684	
==>warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8592	8684	
==>warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8592	8684	
==>warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thun <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	465	576	
==>turns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	465	576	
==>turns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5306	5422	
==>alue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5306	5422	
==>alue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5306	5422	
==>alue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3148	3256	
==>ing relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all n <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3148	3256	
==>ing relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36665	36762	
==>er trivial case is where any any source relation has zero
tuples, in which case the result does to <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41214	41311	
==>er trivial case is where any any source relation has zero
tuples, in which case the result does to <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40837	40934	
==>er trivial case is where any any source relation has zero
tuples, in which case the result does to <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	311	424	
==>' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similar <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	311	424	
==>' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similar <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4804	4904	
==>run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4804	4904	
==>run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6328	6428	
==>run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4158	4260	
==>w_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4158	4260	
==>w_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4158	4260	
==>w_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13093	13185	
==>1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13093	13185	
==>1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$se <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18508	18617	
==>:Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.union( $othe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2832	2935	
==>etta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2832	2935	
==>etta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19683	19778	
==>, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19683	19778	
==>, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11366	11514	
==>\&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11645	11793	
==>\&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1470	1580	
==>svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single native bit
    int         native intege <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31134	31231	
==>r.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31134	31231	
==>r.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	509	615	
==>"tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
print q( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1094	1196	
==>= compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1094	1196	
==>= compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1094	1196	
==>= compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    m <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5220	5309	
==>Conversion

# 9.1
multi sub ToPrimitive(JSX::Value::Object $o) {$o.<[[DefaultValue]]>}
mul <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8883	9032	
==>on' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8883	9032	
==>on' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex E <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	432	539	
==>>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	432	539	
==>>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	432	539	
==>>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20341	20512	
==>ar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20341	20512	
==>ar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20341	20512	
==>ar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self-> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	697	803	
==>,
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	697	803	
==>,
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5625	5787	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh. <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2986	3148	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh. <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5625	5787	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh. <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2986	3148	
==>batim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh. <==
5	/Users/nnunley/pugs/misc/S29_round.pl	2162	2273	
==>turn $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	560	696	
==>ice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
m <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	560	696	
==>ice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5021	5124	
==>?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5021	5124	
==>?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5021	5124	
==>?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2699	2864	
==>constant ISA_JIB_INSTALLATION
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation') };
us <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8766	8890	
==>1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8766	8890	
==>1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2071	2169	
==>turn { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2071	2169	
==>turn { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4269	4415	
==>~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4269	4415	
==>~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14850	14954	
==>xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14850	14954	
==>xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14850	14954	
==>xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6948	7052	
==>vents until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- ad <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6948	7052	
==>vents until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- ad <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1359	1456	
==>kage VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1359	1456	
==>kage VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1359	1456	
==>kage VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4830	4928	
==>s the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argument <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4830	4928	
==>s the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argument <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6354	6452	
==>s the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argument <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9065	9160	
==>ss encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9065	9160	
==>ss encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8339	8497	
==>> 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ ' <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8339	8497	
==>> 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ ' <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17179	17327	
==>lly seen
  skip_all          if the whole test was skipped, this will 
                      contain the reason.

  ok                number of tests <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	90	183	
==>ate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Arra <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	90	183	
==>ate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Arra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3089	3232	
==>y_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3100	3243	
==>y_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	95	198	
==>PPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (dem <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	95	198	
==>PPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (dem <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	95	198	
==>PPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (dem <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22185	22301	
==>st) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTB <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18606	18722	
==>st) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5827	5927	
==>each my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5827	5927	
==>each my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5827	5927	
==>each my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribut <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27615	27710	
==>hese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27615	27710	
==>hese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9041	9143	
==>rimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9041	9143	
==>rimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9041	9143	
==>rimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5626	5725	
==>shed) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API s <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5626	5725	
==>shed) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7936	8068	
==>TORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7936	8068	
==>TORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7936	8068	
==>TORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        r <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8957	9068	
==>ant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12434	12545	
==>ant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!headin <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15268	15376	
==>sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18745	18853	
==>sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4871	4971	
==>number of tests to run.

Those are the only valid arguments.

You must have a plan set before you can <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4871	4971	
==>number of tests to run.

Those are the only valid arguments.

You must have a plan set before you can <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6395	6495	
==>number of tests to run.

Those are the only valid arguments.

You must have a plan set before you can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4483	4585	
==>eturn $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_fil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4483	4585	
==>eturn $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2236	2327	
==>-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2236	2327	
==>-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2236	2327	
==>-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6523	6654	
==>cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6523	6654	
==>cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Ti <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6523	6654	
==>cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Ti <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	960	1063	
==>e, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r(' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	960	1063	
==>e, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r(' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3741	3845	
==>);
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3741	3845	
==>);
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	439	537	
==>SD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	439	537	
==>SD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	439	537	
==>SD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1658	1764	
==>_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1658	1764	
==>_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1658	1764	
==>_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12898	12991	
==>der perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
entit <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12898	12991	
==>der perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
entit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1634	1764	
==>capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were incl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1568	1692	
==>capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were incl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	199	314	
==>_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = D <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	199	314	
==>_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = D <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	199	314	
==>_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = D <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1783	1877	
==>$o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1783	1877	
==>$o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1783	1877	
==>$o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n { <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24916	25009	
==>110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
co <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24916	25009	
==>110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13143	13257	
==>'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21193	21307	
==>'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13422	13536	
==>'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21472	21586	
==>'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1336	1432	
==>ness::Straps.  Instead of printing the results, straps
provide them as raw data.  You can also co <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12305	12406	
==>s( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12305	12406	
==>s( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1382	1476	
==>dy() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1382	1476	
==>dy() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1382	1476	
==>dy() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4435	4593	
==>Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$docu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4435	4593	
==>Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$docu <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9398	9520	
==>pher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" } <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9398	9520	
==>pher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2345	2462	
==>.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4609	4780	
==>uckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4609	4780	
==>uckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4609	4780	
==>uckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10543	10634	
==>pt
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10543	10634	
==>pt
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6550	6652	
==>s accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<re <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6550	6652	
==>s accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	191	284	
==>CxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	191	284	
==>CxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	191	284	
==>CxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "A <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7809	7922	
==>lize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7809	7922	
==>lize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23859	23947	
==>,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23859	23947	
==>,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23859	23947	
==>,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	131	241	
==>al $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed bef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	131	241	
==>al $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed bef <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	131	241	
==>al $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed bef <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7200	7286	
==>TTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_ty <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7200	7286	
==>TTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_ty <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	606	719	
==>= @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regist <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	606	719	
==>= @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regist <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	606	719	
==>= @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regist <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6702	6807	
==>?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One i <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6702	6807	
==>?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1954	2073	
==>ex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [< <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1954	2073	
==>ex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3839	3942	
==>od label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3839	3942	
==>od label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3839	3942	
==>od label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5571	5689	
==>I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != $S2 goto err_close
    inc pos
  term_bx3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6352	6457	
==>p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6352	6457	
==>p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6352	6457	
==>p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7635	7739	
==>0;

    $self->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0 <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10283	10383	
==>nfo = $PIL::PIL1CPerl5::NodesInfo::node_named{$name};
    die "bug $name" if !$info;
    my $chk = jo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23762	23861	
==>9.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22535	22634	
==>9.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23762	23861	
==>9.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22535	22634	
==>9.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35328	35449	
==>else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35328	35449	
==>else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35328	35449	
==>else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_ <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1081	1188	
==>~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 } <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1081	1188	
==>~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 } <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3778	4000	
==>ie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3778	4000	
==>ie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12727	12875	
==>ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12727	12875	
==>ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code- <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12727	12875	
==>ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code- <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18136	18382	
==>= any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21613	21859	
==>= any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21200	21446	
==>= any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        ) <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4251	4345	
==>the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' ar <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4251	4345	
==>the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10939	11043	
==>PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10939	11043	
==>PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10939	11043	
==>PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to a <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15610	15707	
==>pires

This header gives the date and time after which the entity should be
considered stale.

=it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15610	15707	
==>pires

This header gives the date and time after which the entity should be
considered stale.

=it <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2502	2638	
==>) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cook <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2502	2638	
==>) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cook <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4349	4460	
==>$fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4349	4460	
==>$fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4349	4460	
==>$fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	572	729	
==>ogram
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	572	729	
==>ogram
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16506	16611	
==>ace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16506	16611	
==>ace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $val <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16506	16611	
==>ace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $val <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9770	9930	
==>"$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::ENV)
             (closure::signatu <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	175	262	
==>String::Escape qw/quote printable/;
use Blondie::Reducer::DuplicateFinder;
use Blondie:: <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10329	10428	
==>return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10329	10428	
==>return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7020	7118	
==>erting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not pe <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7020	7118	
==>erting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not pe <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7827	7925	
==>ure from S29draft.pod 8651.  In the List section.
# Prim.hs has a different return type.  List inst <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2951	3064	
==>e')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $t <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2951	3064	
==>e')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4475	4588	
==>e')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	148	253	
==>$self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	148	253	
==>$self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match' <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34046	34144	
==>ranslating a message, a match in found in the most preferred language
is used.  Each Set Name can b <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34046	34144	
==>ranslating a message, a match in found in the most preferred language
is used.  Each Set Name can b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2453	2549	
==>", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2453	2549	
==>", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2453	2549	
==>", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	965	1081	
==>me;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	965	1081	
==>me;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	965	1081	
==>me;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24748	24848	
==>f the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Sof <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24748	24848	
==>f the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Sof <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4116	4224	
==>i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4116	4224	
==>i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4116	4224	
==>i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@p <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12912	13008	
==>names then it is generally not
possible to tell which of the returned values belonged to which fi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12912	13008	
==>names then it is generally not
possible to tell which of the returned values belonged to which fi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18460	18556	
==>ch you can create an identical Node (with
child Nodes) to the one you first invoked export_as_has <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18460	18556	
==>ch you can create an identical Node (with
child Nodes) to the one you first invoked export_as_has <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	211	352	
==>t Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2815	2929	
==>tance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howeve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2815	2929	
==>tance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howeve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2815	2929	
==>tance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howeve <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18108	18206	
==>ression> <'||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      < <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13148	13275	
==>mar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21198	21325	
==>mar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13427	13554	
==>mar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21477	21604	
==>mar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7986	8091	
==>l;
  while (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's internals ca <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3267	3610	
==>ub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defin <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3267	3610	
==>ub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6146	6357	
==>ub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6146	6357	
==>ub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6146	6357	
==>ub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defin <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3104	3213	
==>is' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3104	3213	
==>is' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4500	4586	
==>d('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4500	4586	
==>d('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4500	4586	
==>d('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28207	28348	
==>bol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5268	5397	
==>$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX X <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6536	6665	
==>$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5268	5397	
==>$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6524	6653	
==>$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX X <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9393	9506	
==>ame   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9393	9506	
==>ame   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    server <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1850	1952	
==>full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1850	1952	
==>full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1850	1952	
==>full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2076	2253	
==>ars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    retur <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2076	2253	
==>ars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    retur <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2420	2525	
==>][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2420	2525	
==>][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A: <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13796	13900	
==>ure => sub { -r $initrd_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv - <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	24690	24845	
==>ax));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2559	2714	
==>lf->hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $self = shift;
                # FIXME context should be propagate <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	627	735	
==>rl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov ov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	627	735	
==>rl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov ov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	627	735	
==>rl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov ov <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	537	648	
==>$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22174	22269	
==>the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=hea <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21055	21150	
==>the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=hea <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22174	22269	
==>the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=hea <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21055	21150	
==>the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=hea <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4304	4422	
==>_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whitespacePosition = $position;
    push @ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4742	4842	
==>:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3869	3969	
==>:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4742	4842	
==>:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3869	3969	
==>:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6345	6453	
==>IL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6345	6453	
==>IL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    " <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6345	6453	
==>IL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    " <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18368	18461	
==>Moreover, these data structures are in exactly the right input
format for Node.new(), by which <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18368	18461	
==>Moreover, these data structures are in exactly the right input
format for Node.new(), by which <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1224	1320	
==>"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1224	1320	
==>"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1224	1320	
==>"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3385	3480	
==>:XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compi <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3385	3480	
==>:XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3237	3345	
==>genclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3237	3345	
==>genclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3237	3345	
==>genclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($c <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13159	13253	
==>ext the arguments are decoded in-place.

This routine is exported by default.

=item _decode_en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13159	13253	
==>ext the arguments are decoded in-place.

This routine is exported by default.

=item _decode_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8979	9098	
==>ist->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8979	9098	
==>ist->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->f <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8979	9098	
==>ist->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->f <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15779	15878	
==>list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15779	15878	
==>list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7955	8052	
==>event is fired when an '=item' directive is reached, the next event fired will be
any text which f <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7955	8052	
==>event is fired when an '=item' directive is reached, the next event fired will be
any text which f <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6567	6661	
==>resenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ove <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6567	6661	
==>resenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ove <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8764	8858	
==>resenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ove <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4087	4188	
==>he name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4087	4188	
==>he name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4087	4188	
==>he name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31842	31935	
==>returns Relation>

This multi-method is a generic binary relational operator that takes a sing <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36392	36485	
==>returns Relation>

This multi-method is a generic binary relational operator that takes a sing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	979	1089	
==>is sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is calle <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	979	1089	
==>is sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is calle <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12833	12934	
==>3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12833	12934	
==>3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12833	12934	
==>3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9309	9434	
==>, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9309	9434	
==>, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9309	9434	
==>, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21718	21810	
==>d2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21718	21810	
==>d2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	324	432	
==>_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	324	432	
==>_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	324	432	
==>_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7812	7907	
==>s reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reach <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7812	7907	
==>s reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reach <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6	102	
==>e PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6	102	
==>e PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6	102	
==>e PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = ' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20300	20395	
==>der instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is nor <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20300	20395	
==>der instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is nor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13938	14056	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13938	14056	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13938	14056	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class a <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1559	1659	
==>ast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.n <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1559	1659	
==>ast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2400	2528	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2400	2528	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2400	2528	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shif <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11887	12004	
==>{
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	297	408	
==>{
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15224	15332	
==>nqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15224	15332	
==>nqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	388	483	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	388	483	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	388	483	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2]. <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11271	11370	
==>(?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%params)))))

=cut

$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19756	19851	
==>ckname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
us <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18737	18832	
==>ckname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19756	19851	
==>ckname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18737	18832	
==>ckname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
us <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2931	3031	
==>istribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, vers <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3088	3188	
==>istribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, vers <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2931	3031	
==>istribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, vers <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3088	3188	
==>istribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, vers <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	21	107	
==>age Blondie::Compiler;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Cl <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	311	428	
==>un>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	315	432	
==>un>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	311	428	
==>un>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	315	432	
==>un>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21508	21623	
==>= cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3304	3448	
==>\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3304	3448	
==>\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31776	31873	
==>n count of this object (for quantifiers).

=item neg

Whether this object is negated (like a look- <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26373	26468	
==>nput and output, any
variable values which are references will be passed by reference, so you
ma <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26373	26468	
==>nput and output, any
variable values which are references will be passed by reference, so you
ma <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3423	3556	
==>hr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3423	3556	
==>hr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2183	2293	
==>$message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is co <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	180	282	
==>$message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is co <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	180	282	
==>$message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8943	9081	
==>unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8943	9081	
==>unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call meth <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8943	9081	
==>unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call meth <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1551	1669	
==>}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chun <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1551	1669	
==>}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chun <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	609	715	
==>man>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	609	715	
==>man>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	609	715	
==>man>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fun <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1843	1942	
==>= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1843	1942	
==>= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1443	1718	
==>'') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    ret <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1443	1718	
==>'') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10181	10296	
==>=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10181	10296	
==>=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10181	10296	
==>=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1027	1162	
==>se {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1027	1162	
==>se {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1027	1162	
==>se {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1266	1367	
==>ss) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimpo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1266	1367	
==>ss) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimpo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9222	9333	
==>aram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpP <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9222	9333	
==>aram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpP <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9222	9333	
==>aram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpP <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6644	6747	
==>ch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6656	6759	
==>ch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	235	338	
==>nal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	235	338	
==>nal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-des <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	235	338	
==>nal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-des <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20175	20272	
==>e to declare that its result not be recompiled by
some other containing parser. In this case the r <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20175	20272	
==>e to declare that its result not be recompiled by
some other containing parser. In this case the r <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20320	20437	
==>{&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16741	16858	
==>{&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4119	4262	
==>) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4119	4262	
==>) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4119	4262	
==>) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9919	10021	
==>) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l. <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9919	10021	
==>) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l. <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14137	14260	
==>) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.value <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4214	4329	
==>) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.value <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4214	4329	
==>) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.value <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4214	4329	
==>) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.value <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	844	942	
==>ssed in developing this into a cpan module for
# real use.  It might, imaginably, perhaps, be possi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	977	1072	
==>Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modif <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	982	1077	
==>=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a le <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	982	1077	
==>=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a le <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	977	1072	
==>Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modif <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1538	1633	
==>=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a le <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3071	3183	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'gr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3264	3376	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'gr <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2141	2247	
==>_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnosti <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2141	2247	
==>_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnosti <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2125	2231	
==>ta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2221	2327	
==>_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnosti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2906	3012	
==>ta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10494	10647	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10773	10926	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1151	1255	
==>----
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?RO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1151	1255	
==>----
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?RO <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1151	1255	
==>----
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?RO <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1375	1481	
==>gs = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd() <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2893	2997	
==>s.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) th <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3050	3154	
==>s.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) th <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2893	2997	
==>s.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) th <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3050	3154	
==>s.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) th <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2252	2427	
==>}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2252	2427	
==>}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9667	9830	
==>Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $reason,
              descri <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1754	1909	
==>Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            descri <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1754	1909	
==>Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            descri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6008	6136	
==>l;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6008	6136	
==>l;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Val <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6008	6136	
==>l;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Val <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4670	4765	
==>__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOP <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18271	18366	
==>> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and ranges from being display <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3518	3676	
==>f($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3518	3676	
==>f($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3518	3676	
==>f($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_ <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	119	214	
==>set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime rec <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	119	214	
==>set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime rec <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4543	4662	
==>ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->emit if @a == 1;
    my @fs <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1748	1861	
==>);
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1748	1861	
==>);
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	875	987	
==>) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	875	987	
==>) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this w <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2941	3347	
==>terface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Inter <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2941	3347	
==>terface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Inter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	719	822	
==>Stmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	719	822	
==>Stmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	719	822	
==>Stmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  m <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6405	6551	
==>nd $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5926	6028	
==>r as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shoul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5926	6028	
==>r as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shoul <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5926	6028	
==>r as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shoul <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4217	4388	
==>his)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4217	4388	
==>his)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	709	832	
==>stics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	709	832	
==>stics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2045	2141	
==>die::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags () <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5513	5662	
==>ection works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to sh <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5977	6126	
==>ection works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to sh <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7989	8116	
==>ith_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7989	8116	
==>ith_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $a <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	26685	26778	
==>nformation about itself as
it runs the tests.  This is different from C<HARNESS_VERBOSE>, whic <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	997	1103	
==>eturns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8880	8986	
==>printf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Ha <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	997	1103	
==>eturns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns O <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8880	8986	
==>printf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Ha <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8880	8986	
==>printf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Ha <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8974	9115	
==>ags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8661	8798	
==>ags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	465	598	
==>AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeve <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	465	598	
==>AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeve <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	465	598	
==>AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeve <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7853	8015	
==>azy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7853	8015	
==>azy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $r <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7853	8015	
==>azy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $r <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7100	7195	
==>s module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7100	7195	
==>s module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies. <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2024	2203	
==>tch.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2024	2203	
==>tch.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4146	4269	
==>{ "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4146	4269	
==>{ "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4146	4269	
==>{ "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3060	3243	
==>one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3060	3243	
==>one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3060	3243	
==>one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                } <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1502	1609	
==>S

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new() <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1502	1609	
==>S

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3370	3489	
==>$self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3370	3489	
==>$self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3370	3489	
==>$self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	408	514	
==>9, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 18 <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	408	514	
==>9, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 18 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2083	2176	
==>(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2083	2176	
==>(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2083	2176	
==>(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	438	528	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	438	528	
==>grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	444	539	
==>tr;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	444	539	
==>tr;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	444	539	
==>tr;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "P <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	881	975	
==>), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) retur <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	881	975	
==>), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) retur <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1039	1195	
==>f ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	918	1074	
==>f ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1682	1787	
==>(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1682	1787	
==>(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1682	1787	
==>(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    wh <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8355	8527	
==>$id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4715	4887	
==>$id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @ar <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5564	5736	
==>$id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13460	13591	
==>.
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_ <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2227	2317	
==>duction over " . $node->struct_equiv;

	my $reduced_struct = $self->SUPER::generic_reduce($ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3383	3501	
==>::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3600	3718	
==>::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	253	359	
==>.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	253	359	
==>.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	253	359	
==>.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    va <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9258	9413	
==>[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9258	9413	
==>[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9258	9413	
==>[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19403	19501	
==>ize what text the user
sees, you only have to update said separate resource files, and not change
y <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19403	19501	
==>ize what text the user
sees, you only have to update said separate resource files, and not change
y <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4349	4457	
==>o);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4349	4457	
==>o);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5222	5327	
==>o);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

m <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5222	5327	
==>o);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

m <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13029	13128	
==>> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <Assignmen <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	929	1050	
==>empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	358	462	
==>}
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	358	462	
==>}
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	358	462	
==>}
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub pr <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2755	2859	
==>ct => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_version osname duration summary runcore>) {
    prin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2879	2983	
==>js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2879	2983	
==>js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2879	2983	
==>js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18444	18544	
==>rn $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14865	14965	
==>rn $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16863	16969	
==>get_meta($_[0]);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7029	7126	
==>tainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7029	7126	
==>tainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7029	7126	
==>tainers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an ar <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8551	8637	
==>c_neg([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18475	18572	
==>ue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18475	18572	
==>ue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_fr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18475	18572	
==>ue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_fr <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14084	14179	
==>se as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14084	14179	
==>se as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	575	683	
==>s"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	575	683	
==>s"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	548	646	
==>i sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	548	646	
==>i sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	548	646	
==>i sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14099	14232	
==>elf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14099	14232	
==>elf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14099	14232	
==>elf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5075	5199	
==>>FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$sta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4339	4454	
==>>FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$sta <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6733	6843	
==>e $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7105	7215	
==>e $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7404	7514	
==>e $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|- <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9198	9328	
==>-1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9198	9328	
==>-1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3088	3239	
==>lename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3305	3456	
==>lename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	561	663	
==>, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	561	663	
==>, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	561	663	
==>, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8334	8446	
==>n, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Build <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	544	644	
==>n, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Build <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	544	644	
==>n, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Build <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	110	201	
==>ugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->com <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	110	201	
==>ugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	158	276	
==>6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \& <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	158	276	
==>6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \& <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	158	276	
==>6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \& <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2503	2605	
==>ference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complem <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5706	5808	
==>ference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complem <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2503	2605	
==>ference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complem <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5706	5808	
==>ference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complem <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	286	381	
==>returns List of Object;
multi method exists ($index ) returns Object;
multi method exists (*@ind <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4947	5043	
==>omparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.eq <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4074	4170	
==>omparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.eq <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4947	5043	
==>omparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.eq <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4074	4170	
==>omparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.eq <==
5	/Users/nnunley/pugs/util/package-osx.pl	2102	2191	
==>l/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_p <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1751	1873	
==>$match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1751	1873	
==>$match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5592	5707	
==>_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # W <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5592	5707	
==>_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # W <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5592	5707	
==>_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # W <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13387	13509	
==>last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13387	13509	
==>last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13387	13509	
==>last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3067	3166	
==>fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subcla <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2958	3053	
==>fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subcla <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6640	6911	
==>->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	163	258	
==>tr $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	219	314	
==>tr $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	163	258	
==>tr $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_t <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	219	314	
==>tr $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2706	2801	
==>\'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style va <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2706	2801	
==>\'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style va <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3053	3148	
==>\'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6125	6223	
==>s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6125	6223	
==>s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6125	6223	
==>s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	201	295	
==>[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	234	328	
==>[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Comp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	822	928	
==>turn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	822	928	
==>turn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	822	928	
==>turn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inl <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12303	12400	
==>ty as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12361	12458	
==>ty as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	27	141	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	27	141	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	27	141	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = b <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15386	15485	
==>eply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15444	15543	
==>eply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3774	3936	
==>de of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attri <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3774	3936	
==>de of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10739	10882	
==>experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $mat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7820	7957	
==>experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7820	7957	
==>experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1574	1699	
==>ame => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__-> <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2267	2375	
==>lass::Events::Subscription;

    has $.name;

    role Class::Events::Publisher is extended {
        use Set <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29032	29126	
==>s method is a generic relational operator that returns a new Relation::Example
which is the sam <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31880	31974	
==>s method is a generic relational operator that returns a new Relation::Example
which is the sam <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32927	33021	
==>s method is a generic relational operator that returns a new Relation::Example
which is the sam <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1638	1732	
==>ON

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1638	1732	
==>ON

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3422	3514	
==>rk. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3422	3514	
==>rk. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5619	5711	
==>rk. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9027	9163	
==>em 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9027	9163	
==>em 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9027	9163	
==>em 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_me <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33908	34007	
==>s a new Relation that has the same heading and
whose body contains all of the tuples that are in the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38458	38557	
==>s a new Relation that has the same heading and
whose body contains all of the tuples that are in the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	53	153	
==>:MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	53	153	
==>:MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gn <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	53	153	
==>:MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gn <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13552	13703	
==>0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $sta <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3693	3828	
==>0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3693	3828	
==>0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $sta <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3693	3828	
==>0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $sta <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35305	35420	
==>nd('add_method' => (
    # method label
        symbol->new('add_attribute'),
    # method body
        method->new( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4095	4220	
==>0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = sh <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4235	4360	
==>0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = sh <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	8180	8285	
==>relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mult <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11657	11762	
==>relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mult <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10839	10944	
==>relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mult <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15415	15508	
==>is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Ma <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15415	15508	
==>is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9115	9208	
==>_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::P <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2940	3033	
==>_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::P <==
5	/Users/nnunley/pugs/util/run-smoke.pl	1372	1460	
==>JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5485	5651	
==>he value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5485	5651	
==>he value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5485	5651	
==>he value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $ <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1366	1488	
==>~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1366	1488	
==>~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	911	1045	
==>old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	911	1045	
==>old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3267	3399	
==>hould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3267	3399	
==>hould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3267	3399	
==>hould be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4117	4223	
==>[] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4117	4223	
==>[] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4117	4223	
==>[] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	925	1020	
==>nless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	925	1020	
==>nless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	767	892	
==>$perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no war <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	14	131	
==>e File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is expor <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	14	131	
==>e File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is expor <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24812	24909	
==>g(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This meth <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29364	29461	
==>g(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11250	11368	
==>s->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11250	11368	
==>s->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$thi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11250	11368	
==>s->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$thi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6395	6503	
==>) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6395	6503	
==>) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	629	760	
==>n () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	629	760	
==>n () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	629	760	
==>n () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4035	4165	
==>me () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4035	4165	
==>me () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        i <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	880	1003	
==>optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#l <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	781	904	
==>optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	603	709	
==>args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	603	709	
==>args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	603	709	
==>args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14487	14592	
==>_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $cl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14487	14592	
==>_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $cl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37283	37377	
==>ates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41832	41926	
==>ates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41455	41549	
==>ates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1181	1303	
==>urn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1181	1303	
==>urn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1181	1303	
==>urn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10003	10110	
==>os 
#6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it mo <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	202	307	
==>::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4947	5071	
==>l %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4947	5071	
==>l %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4947	5071	
==>l %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a u <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2269	2368	
==>is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is expo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2269	2368	
==>is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is expo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2436	2579	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "stori <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2436	2579	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "stori <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2436	2579	
==>[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "stori <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	763	874	
==>s other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that wer <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	763	874	
==>s other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that wer <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	763	874	
==>s other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that wer <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2871	2971	
==>&Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $go <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2929	3029	
==>&Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $go <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1998	2102	
==>pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1998	2102	
==>pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - te <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1998	2102	
==>pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - te <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15905	16005	
==>$channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $pas <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15905	16005	
==>$channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $pas <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1648	1826	
==>) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $b <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1648	1826	
==>) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5632	5722	
==>.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5632	5722	
==>.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5632	5722	
==>.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3994	4127	
==>h eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z( <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3994	4127	
==>h eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16511	16621	
==>|| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16511	16621	
==>|| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16511	16621	
==>|| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4048	4252	
==>age->new( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File::Copy <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22025	22120	
==>for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20906	21001	
==>for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22025	22120	
==>for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20906	21001	
==>for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	20	118	
==>is is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	20	118	
==>is is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	20	118	
==>is is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for u <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	891	986	
==>code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	891	986	
==>code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2791	2917	
==>y_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2791	2917	
==>y_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2791	2917	
==>y_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { r <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	647	741	
==>vely choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, : <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	647	741	
==>vely choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, : <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3167	3273	
==>n, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3167	3273	
==>n, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14058	14156	
==>x) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14058	14156	
==>x) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mul <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14058	14156	
==>x) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7902	8062	
==>('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7902	8062	
==>('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7902	8062	
==>('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $metho <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2404	2501	
==>e - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# Thi <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2404	2501	
==>e - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# Thi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13964	14076	
==>bers' in the first of the four
        # languages that has a matching template available.
        print $transla <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13964	14076	
==>bers' in the first of the four
        # languages that has a matching template available.
        print $transla <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36654	36749	
==>t a Template corresponding to the Message could be
found using the Translator object's Set and M <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36654	36749	
==>t a Template corresponding to the Message could be
found using the Translator object's Set and M <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37400	37484	
==>ew('%:private_methods' => 'hash')));
$::Class->send('add_attribute', (symbol->new('%: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36127	36248	
==>head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36127	36248	
==>head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36127	36248	
==>head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class- <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23740	23832	
==>Example> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23740	23832	
==>Example> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engin <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3033	3388	
==>=> $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3033	3388	
==>=> $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4970	5067	
==>ined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4970	5067	
==>ined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4970	5067	
==>ined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18105	18239	
==>0)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17143	17277	
==>0)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18105	18239	
==>0)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17143	17277	
==>0)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regi <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	1727	1816	
==>l util/catalog_tests.pl --p6design_dir=../p6/docs/design
     perl util/catalog_tests.pl - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10075	10252	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10075	10252	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10075	10252	
==>r (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10817	10939	
==>ate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11096	11218	
==>ate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10776	10930	
==>h_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $v <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10776	10930	
==>h_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5198	5327	
==>posed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5198	5327	
==>posed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5198	5327	
==>posed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == und <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18687	18805	
==>xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        retu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18687	18805	
==>xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        retu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18687	18805	
==>xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        retu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9819	9916	
==>y first module written for Pugs.

It provides a simple set of common test utility functions, and i <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9877	9974	
==>y first module written for Pugs.

It provides a simple set of common test utility functions, and i <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	346	477	
==>"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986/ <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	346	477	
==>"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986/ <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9458	9569	
==>le_visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = docume <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6534	6640	
==>els>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6534	6640	
==>els>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36145	36265	
==>body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36145	36265	
==>body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36145	36265	
==>body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	546	661	
==>ate $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	546	661	
==>ate $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_f <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1736	2010	
==>od) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1736	2010	
==>od) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	233	350	
==>chically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	233	350	
==>chically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'A <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	233	350	
==>chically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'A <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	475	582	
==>ted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	475	582	
==>ted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New me <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	475	582	
==>ted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New me <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	20688	20784	
==>es not declare any subroutines or export such.

The usual way that Relation indicates a failure i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25240	25336	
==>es not declare any subroutines or export such.

The usual way that Relation indicates a failure i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2883	3038	
==>ots')}, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24653	24750	
==>en the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23417	23514	
==>en the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24653	24750	
==>en the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23417	23514	
==>en the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6588	6726	
==>tent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6588	6726	
==>tent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1318	1415	
==>t($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1318	1415	
==>t($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1318	1415	
==>t($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5188	5357	
==>e was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5188	5357	
==>e was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5188	5357	
==>e was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2116	2215	
==>stcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2116	2215	
==>stcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	390	501	
==>{
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	390	501	
==>{
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	390	501	
==>{
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	6902	7010	
==>ext_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6960	7068	
==>ext_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1640	1748	
==>= split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1640	1748	
==>= split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1640	1748	
==>= split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20290	20385	
==>ilation
is replaced by a single line containing the hexadecimal digest of the
result in double q <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20290	20385	
==>ilation
is replaced by a single line containing the hexadecimal digest of the
result in double q <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13257	13357	
==>hod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13257	13357	
==>hod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13257	13357	
==>hod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attrib <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36738	36835	
==>'s Set and Member properties; if none
could be matched, this method returns undef.  This method co <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36738	36835	
==>'s Set and Member properties; if none
could be matched, this method returns undef.  This method co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	71	199	
==>n:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	71	199	
==>n:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$. <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	71	199	
==>n:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	964	1084	
==>l5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $dir <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	973	1093	
==>l5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $dir <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3189	3298	
==>pe {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3189	3298	
==>pe {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3189	3298	
==>pe {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $s <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1112	1210	
==>same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1112	1210	
==>same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27498	27672	
==>e::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27498	27672	
==>e::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27498	27672	
==>e::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15945	16037	
==>nd in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjam <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16003	16095	
==>nd in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11456	11576	
==>ey ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11456	11576	
==>ey ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11456	11576	
==>ey ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	44	181	
==>.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	44	181	
==>.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3717	3828	
==>igenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3717	3828	
==>igenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3717	3828	
==>igenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($s <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12514	12611	
==>the same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12514	12611	
==>the same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9189	9297	
==>PL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9189	9297	
==>PL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	5136	5244	
==>l or not.

=cut

sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{s <==
5	/Users/nnunley/pugs/util/package-osx.pl	8529	8636	
==>c::Run.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %change <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1394	1493	
==>(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1394	1493	
==>(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) < <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1394	1493	
==>(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) < <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24148	24246	
==>omething
  in response to something it received.  This is typically used by automatons
  (clients w <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22921	23019	
==>omething
  in response to something it received.  This is typically used by automatons
  (clients w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24148	24246	
==>omething
  in response to something it received.  This is typically used by automatons
  (clients w <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22921	23019	
==>omething
  in response to something it received.  This is typically used by automatons
  (clients w <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6416	6508	
==>:Iterator->new($fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1005	1155	
==>$ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1005	1155	
==>$ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            un <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1005	1155	
==>$ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            un <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	183	311	
==>ipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	183	311	
==>ipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5119	5227	
==>nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5119	5227	
==>nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Va <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5119	5227	
==>nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10380	10496	
==>me = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10380	10496	
==>me = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10380	10496	
==>me = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2754	2848	
==>t($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2754	2848	
==>t($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    se <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10756	10911	
==>b try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7836	7985	
==>b try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7836	7985	
==>b try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        ret <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1095	1228	
==>{
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $ <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1095	1228	
==>{
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3262	3425	
==>me =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3262	3425	
==>me =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3262	3425	
==>me =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub m <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5930	6020	
==>amk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gat <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5930	6020	
==>amk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15723	15873	
==>- use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '* <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15723	15873	
==>- use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '* <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15723	15873	
==>- use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '* <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	432	544	
==>YINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est ze <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1960	2072	
==>YINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est ze <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5214	5319	
==>$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5214	5319	
==>$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5214	5319	
==>$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
} <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21476	21572	
==>f user
messages, but another package or program which uses yours may wish to
override some of you <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21476	21572	
==>f user
messages, but another package or program which uses yours may wish to
override some of you <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7258	7394	
==>r-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7258	7394	
==>r-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9684	9812	
==>atch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6025	6153	
==>atch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6874	7002	
==>atch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$( <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14157	14253	
==>case, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- ` <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14215	14311	
==>case, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- ` <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	270	366	
==>ation of the other Modules in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB::Config>, L< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1152	1241	
==>::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<n <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1152	1241	
==>::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<n <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3241	3470	
==>nt>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %even <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3241	3470	
==>nt>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %even <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2156	2258	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2156	2258	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2156	2258	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1636	1748	
==>de_" . $class->id . " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26309	26409	
==>========

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5698	5797	
==>d create any missing packages 
nessecary, possibly storing a value in the last location.

  # create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5698	5797	
==>d create any missing packages 
nessecary, possibly storing a value in the last location.

  # create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5698	5797	
==>d create any missing packages 
nessecary, possibly storing a value in the last location.

  # create <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3415	3566	
==>::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3415	3566	
==>::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	457	558	
==>e an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	457	558	
==>e an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	457	558	
==>e an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4562	4812	
==>pe-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cooki <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4562	4812	
==>pe-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cooki <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10249	10377	
==>p_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  metho <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2286	2398	
==>p_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

metho <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2286	2398	
==>p_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

metho <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5247	5399	
==>tch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            el <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5247	5399	
==>tch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            el <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6959	7064	
==>p();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6959	7064	
==>p();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6959	7064	
==>p();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1485	1631	
==>on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $fl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15791	15933	
==>array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15791	15933	
==>array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15791	15933	
==>array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1434	1575	
==>on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $fl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	28659	28752	
==>il if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33211	33304	
==>il if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32339	32432	
==>il if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22926	23018	
==>ation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATI <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22926	23018	
==>ation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATI <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3567	3689	
==>:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
} <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3567	3689	
==>:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	676	789	
==>ft if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	676	789	
==>ft if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	676	789	
==>ft if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1066	1181	
==>my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1066	1181	
==>my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1066	1181	
==>my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1265	1369	
==>per $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	476	579	
==>per $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11232	11359	
==>ch::get( \$_[0], '\$()' ) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2349	2469	
==>e Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 one <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2263	2376	
==>e Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 one <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	779	885	
==>ler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.valu <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	779	885	
==>ler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.valu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3390	3706	
==>res && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3390	3706	
==>res && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	548	647	
==>name and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	548	647	
==>name and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	548	647	
==>name and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArg <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1514	1660	
==>d( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.ap <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5343	5459	
==>}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6611	6727	
==>}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5343	5459	
==>}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6599	6715	
==>}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5 <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14995	15098	
==>s.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $ob <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14995	15098	
==>s.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $ob <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1197	1296	
==>»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1197	1296	
==>»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1197	1296	
==>»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "in <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8889	9069	
==>ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        ne <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5249	5429	
==>ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6098	6278	
==>ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        ne <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18726	18823	
==>e any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambig <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18726	18823	
==>e any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13052	13263	
==>ue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13052	13263	
==>ue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13052	13263	
==>ue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4080	4165	
==>umber versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4080	4165	
==>umber versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("E <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6478	6595	
==>is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6478	6595	
==>is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6478	6595	
==>is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur } <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	715	812	
==>d by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta:: <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	715	812	
==>d by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17411	17506	
==>unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17411	17506	
==>unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17411	17506	
==>unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7971	8095	
==>'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7983	8107	
==>'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = e <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11744	11856	
==>->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shi <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	112	211	
==>PR/0/5a/tpr05a.pl
# Only handles operators: + - * /

# Pugs note: change "die" to "fail" when "fail" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1777	1874	
==>to Perl 5.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rule <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2265	2367	
==>.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as e <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2265	2367	
==>.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as e <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	621	717	
==>t>

The filehandle to which to write all normal output (test results and
descriptions).

=item B< <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	621	717	
==>t>

The filehandle to which to write all normal output (test results and
descriptions).

=item B< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1177	1273	
==>t>

The filehandle to which to write all normal output (test results and
descriptions).

=item B< <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2508	2607	
==>\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$co <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2508	2607	
==>\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9622	9716	
==>$xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - gett <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9622	9716	
==>$xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - gett <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9622	9716	
==>$xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - gett <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35766	35888	
==>l=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35766	35888	
==>l=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35766	35888	
==>l=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4751	4854	
==>http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simp <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4751	4854	
==>http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4687	4819	
==>st_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4687	4819	
==>st_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3714	3819	
==>ub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3714	3819	
==>ub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3714	3819	
==>ub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.valu <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	7221	7323	
==>rns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITI <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7279	7381	
==>rns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1910	2035	
==>elf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1910	2035	
==>elf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1910	2035	
==>elf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14344	14438	
==>ue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method to <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14344	14438	
==>ue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method to <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3729	3903	
==>3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string i <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3729	3903	
==>3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3693	3785	
==>e(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3693	3785	
==>e(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3693	3785	
==>e(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3119	3242	
==>= @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        ble <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3119	3242	
==>= @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        ble <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3119	3242	
==>= @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        ble <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11374	11493	
==>F!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11374	11493	
==>F!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10806	10929	
==>ss it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10806	10929	
==>ss it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12096	12215	
==>private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12096	12215	
==>private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12096	12215	
==>private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cla <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2300	2429	
==>ap -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2300	2429	
==>ap -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2104	2200	
==>JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argumen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2104	2200	
==>JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argumen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2104	2200	
==>JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argumen <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5565	5680	
==>r_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5565	5680	
==>r_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6312	6412	
==>iling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6312	6412	
==>iling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6312	6412	
==>iling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2462	2565	
==>oot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2462	2565	
==>oot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2462	2565	
==>oot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14653	14748	
==>ader fields.  Long header
values are not folded.

The optional $eol parameter specifies the line <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14653	14748	
==>ader fields.  Long header
values are not folded.

The optional $eol parameter specifies the line <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	133	278	
==>$name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	133	278	
==>$name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3121	3233	
==>ger the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3121	3233	
==>ger the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3121	3233	
==>ger the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4030	4144	
==>html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze '] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4030	4144	
==>html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze '] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4030	4144	
==>html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze '] <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	622	729	
==>local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig:: <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	622	729	
==>local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2381	2483	
==>f $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2381	2483	
==>f $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2461	2563	
==>f $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7940	8175	
==>t->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7940	8175	
==>t->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->d <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7940	8175	
==>t->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2948	3108	
==>ed';
            for (1 .. $num) {
                $self->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1505	1630	
==>p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1505	1630	
==>p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1505	1630	
==>p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17824	17925	
==>data to it, and output data from it.

You can create more than one DBMS object at a time, and they are <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17824	17925	
==>data to it, and output data from it.

You can create more than one DBMS object at a time, and they are <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7127	7470	
==>c license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'arti <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7184	7527	
==>c license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'arti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4239	4350	
==>alue::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_. <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4239	4350	
==>alue::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_. <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21758	21857	
==>tr, aka anchored_substr, is used only in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Additio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1225	1321	
==>hod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1225	1321	
==>hod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1225	1321	
==>hod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5633	5778	
==>n = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        whi <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4133	4278	
==>n = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        whi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2107	2199	
==>il);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2107	2199	
==>il);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cf <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2107	2199	
==>il);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cf <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7327	7423	
==>ole  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7327	7423	
==>ole  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7327	7423	
==>ole  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5571	5663	
==>s Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Ste <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5571	5663	
==>s Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Ste <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20725	20900	
==>ft @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20725	20900	
==>ft @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn " <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20725	20900	
==>ft @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	691	799	
==>urn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	779	887	
==>urn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1043	1172	
==>+) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1043	1172	
==>+) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1043	1172	
==>+) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11663	11753	
==>umeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*dec <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11663	11753	
==>umeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*dec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3868	3979	
==>0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3868	3979	
==>0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3868	3979	
==>0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7575	7679	
==>icate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method prox <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7575	7679	
==>icate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method prox <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9604	9790	
==>ir = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9604	9790	
==>ir = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9604	9790	
==>ir = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8274	8383	
==>e the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, ":: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8274	8383	
==>e the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, ":: <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8180	8299	
==>s Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8180	8299	
==>s Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2306	2412	
==>($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2306	2412	
==>($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{meta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2306	2412	
==>($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{meta <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2426	2609	
==>mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5903	6086	
==>mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4833	5016	
==>mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!h <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14739	14854	
==>, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14739	14854	
==>, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5562	5658	
==>ote that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefine <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5562	5658	
==>ote that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefine <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1386	1474	
==>'@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1386	1474	
==>'@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1386	1474	
==>'@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4440	4560	
==>match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4440	4560	
==>match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2218	2323	
==>$MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2218	2323	
==>$MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2218	2323	
==>$MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2609	2710	
==>ringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to rea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2609	2710	
==>ringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to rea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2609	2710	
==>ringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to rea <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	623	719	
==>ed = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Vo <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	681	777	
==>ed = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Vo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2758	2870	
==>o($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2758	2870	
==>o($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10593	10689	
==>hich must be implemented
    # -----------------------------------------------

    method add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10593	10689	
==>hich must be implemented
    # -----------------------------------------------

    method add_me <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10593	10689	
==>hich must be implemented
    # -----------------------------------------------

    method add_me <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14919	15037	
==>FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introd <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14919	15037	
==>FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	862	959	
==>er

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	862	959	
==>er

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	862	959	
==>er

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2459	2580	
==>FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2459	2580	
==>FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2459	2580	
==>FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14921	15015	
==>CE METHODS

The most frequently used headers can also be accessed through the
following conveni <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14921	15015	
==>CE METHODS

The most frequently used headers can also be accessed through the
following conveni <==
5	/Users/nnunley/pugs/util/func_refact.pl	1250	1361	
==>ndidates(\%ccset);
	#while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19729	19823	
==>slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18710	18804	
==>slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19729	19823	
==>slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18710	18804	
==>slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8166	8280	
==>(@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8166	8280	
==>(@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'A <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8166	8280	
==>(@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'A <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6640	6737	
==>aring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6640	6737	
==>aring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	6426	6532	
==>rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6426	6532	
==>rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	487	577	
==>grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	487	577	
==>grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	487	577	
==>grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	94	188	
==>oot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	94	188	
==>oot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	94	188	
==>oot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is p <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4292	4384	
==>)`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorr <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4292	4384	
==>)`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13345	13522	
==>List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13345	13522	
==>List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13345	13522	
==>List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	18	131	
==>ML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	18	131	
==>ML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41198	41290	
==>s as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41198	41290	
==>s as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2507	2626	
==>] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2507	2626	
==>] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	529	647	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	529	647	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	529	647	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11401	11557	
==>key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11401	11557	
==>key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1830	1944	
==>arn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1830	1944	
==>arn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1830	1944	
==>arn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array-> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21727	21822	
==>(unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily th <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20608	20703	
==>(unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21727	21822	
==>(unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily th <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20608	20703	
==>(unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily th <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	246	336	
==>uleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULEMATCH <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	523	646	
==>S

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative X <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	523	646	
==>S

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative X <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2218	2309	
==>return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2130	2220	
==>return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11384	11572	
==>.
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'ma <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7666	7854	
==>.
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8500	8688	
==>.
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17571	17709	
==>~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13992	14130	
==>~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          } <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	82	195	
==>IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<h <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	82	195	
==>IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2442	2541	
==>\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2442	2541	
==>\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2442	2541	
==>\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	641	741	
==>->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	641	741	
==>->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	641	741	
==>->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("P <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25557	25656	
==>ves the name of a condition being reported, if it is used
as an exception payload).  The key is inte <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25557	25656	
==>ves the name of a condition being reported, if it is used
as an exception payload).  The key is inte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	301	401	
==>::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	262	362	
==>::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	262	362	
==>::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19155	19247	
==>ush_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19155	19247	
==>ush_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This h <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4340	4455	
==>te[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4340	4455	
==>te[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5152	5260	
==>),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ / <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5345	5453	
==>),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ / <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5277	5364	
==>sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5277	5364	
==>sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5277	5364	
==>sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::ma <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14801	14948	
==>i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14801	14948	
==>i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resul <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14801	14948	
==>i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resul <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2038	2155	
==>verse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %res <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	879	996	
==>verse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %res <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22620	22745	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22899	23024	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	226	325	
==>= shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	226	325	
==>= shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	226	325	
==>= shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7396	7507	
==>Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7396	7507	
==>Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7396	7507	
==>Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12551	12656	
==>) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pse <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12551	12656	
==>) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pse <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2585	2713	
==>nt
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # sm <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2585	2713	
==>nt
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # sm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2304	2414	
==>urn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2304	2414	
==>urn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2304	2414	
==>urn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17569	17769	
==>' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17569	17769	
==>' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17569	17769	
==>' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                i <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1989	2113	
==>[ available       => SUBFILE_OF_META  ];
$config{'_registered_alternatives'} 
                            = [ 'registered-alt <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14925	15011	
==>---

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(plus(R))), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2829	2937	
==>s("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2829	2937	
==>s("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2829	2937	
==>s("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ i <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17583	17682	
==>F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ) <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17767	17866	
==>F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3351	3462	
==>sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3351	3462	
==>sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3351	3462	
==>sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2556	2665	
==>pace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :rat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2740	2849	
==>pace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :rat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15299	15431	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15299	15431	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    n <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15299	15431	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    n <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1574	1667	
==>mples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/c <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1574	1667	
==>mples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11883	12105	
==>}
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11883	12105	
==>}
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11883	12105	
==>}
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	750	872	
==>host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme e <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	717	839	
==>host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9113	9287	
==>$param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9113	9287	
==>$param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $par <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9113	9287	
==>$param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $par <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5186	5344	
==>?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5186	5344	
==>?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5186	5344	
==>?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5249	5365	
==>mplement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5249	5365	
==>mplement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1000	1116	
==>hod size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1000	1116	
==>hod size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35073	35167	
==>ce headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39623	39717	
==>ce headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relat <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39165	39259	
==>ce headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relat <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1064	1172	
==>>package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4031	4129	
==>ar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4215	4313	
==>ar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1159	1253	
==>Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1159	1253	
==>Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1159	1253	
==>Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21587	21705	
==>ass = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21587	21705	
==>ass = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21587	21705	
==>ass = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass} <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6466	6582	
==>, 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multipl <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6466	6582	
==>, 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multipl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17909	18102	
==>'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18188	18381	
==>'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5994	6089	
==>s turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5994	6089	
==>s turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5994	6089	
==>s turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	222	329	
==>// XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	222	329	
==>// XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impor <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	222	329	
==>// XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impor <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21605	21698	
==>t.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tri <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21605	21698	
==>t.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5009	5139	
==>ined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5009	5139	
==>ined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5009	5139	
==>ined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9877	9973	
==>ence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Ret <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9877	9973	
==>ence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Ret <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1637	1743	
==>c equivalents live in Installation.pm
$config{'_meta_dir'}        = [ Path::Class::dir('_jib')            ] <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22150	22242	
==>e nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21031	21123	
==>e nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22150	22242	
==>e nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21031	21123	
==>e nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11622	11741	
==>h_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7819	7938	
==>return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STOR <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11622	11741	
==>h_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7819	7938	
==>return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STOR <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7819	7938	
==>return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STOR <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	749	865	
==>hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	749	865	
==>hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	749	865	
==>hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9950	10046	
==>her $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $se <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9950	10046	
==>her $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2621	2747	
==>tch;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defin <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2621	2747	
==>tch;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defin <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1021	1146	
==>601 duration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	677	793	
==>ainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	677	793	
==>ainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extra <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3830	3931	
==>PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4163	4264	
==>PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3830	3931	
==>PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4163	4264	
==>PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16487	16574	
==>),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1 <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2461	2578	
==>',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumfle <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2461	2578	
==>',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumfle <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	271	381	
==>al_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	271	381	
==>al_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	271	381	
==>al_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3623	3763	
==>else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3623	3763	
==>else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7405	7516	
==>X; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7405	7516	
==>X; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$no <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7405	7516	
==>X; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$no <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4867	4994	
==>uml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr( <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4867	4994	
==>uml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2908	3018	
==>} can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2908	3018	
==>} can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2908	3018	
==>} can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $se <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6289	6419	
==>($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.n <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6289	6419	
==>($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2737	2836	
==>body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6214	6313	
==>body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5144	5243	
==>body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3425	3524	
==>TTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[123 <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3425	3524	
==>TTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[123 <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	100	196	
==>ternals.hs to an enum.  This is all well and good..

enum Perl::JuncType «JAny JAll JNone JOne» <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	459	595	
==>4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'AS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	459	595	
==>4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'AS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	459	595	
==>4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'AS <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4749	4854	
==>}
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    if( File::Copy::mov <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	941	1043	
==>n> }

rule comment { \# \N* }

rule alternation     { <non_alternation> \| <term>+? }
rule non_alternat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	233	334	
==>{
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	233	334	
==>{
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	13	104	
==>n::OnPerl5::X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
us <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22721	22810	
==>a::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interf <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22721	22810	
==>a::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interf <==
5	/Users/nnunley/pugs/util/config_h.pl	1422	1526	
==>PUGS_HAVE_TH\n";
    warn << '.';

*** Template Haskell compiler backends disabled.  If you want
    Temp <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1190	1286	
==>and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unle <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1190	1286	
==>and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unle <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8496	8591	
==>setta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document de <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8496	8591	
==>setta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document de <==
5	/Users/nnunley/pugs/util/build_pugs.pl	256	354	
==>hdir '..'; };
use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:e <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13492	13589	
==>be
made to pass before this test can pass (or before an implementation
could be started).  This is <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13550	13647	
==>be
made to pass before this test can pass (or before an implementation
could be started).  This is <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16246	16340	
==>(a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16246	16340	
==>(a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3973	4106	
==>(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $p <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3973	4106	
==>(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $p <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5358	5457	
==>iption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5358	5457	
==>iption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6882	6981	
==>iption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18836	18937	
==>like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$ori <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18836	18937	
==>like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$ori <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	213	309	
==>se 'Object::Accessor';

=head2 $set = JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

sub n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5995	6088	
==>ight method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return v <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10252	10345	
==>ight method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return v <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4350	4533	
==>urn $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_dat <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4350	4533	
==>urn $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7140	7249	
==>Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7140	7249	
==>Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7140	7249	
==>Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	801	895	
==>PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	993	1087	
==>PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	801	895	
==>PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	993	1087	
==>PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL:: <==
5	/Users/nnunley/pugs/inc/Module/Install/Include.pm	160	253	
==>Base; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->include(@_) };
sub inclu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9028	9119	
==>//dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copyright 2006 by Flavi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2749	2834	
==>(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__." <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6201	6286	
==>(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__." <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2749	2834	
==>(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__." <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2749	2834	
==>(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__." <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13089	13266	
==>ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13089	13266	
==>ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13089	13266	
==>ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6228	6328	
==>l', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6228	6328	
==>l', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,' <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12585	12735	
==>$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  step
    descr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4834	4970	
==>| 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $matc <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4834	4970	
==>| 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $matc <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	604	697	
==>n_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6 <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	604	697	
==>n_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8023	8142	
==>ernation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7749	7862	
==>ernation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2546	2632	
==>ntf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2546	2632	
==>ntf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2546	2632	
==>ntf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	924	1029	
==>urn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	924	1029	
==>urn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	924	1029	
==>urn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bi <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2976	3078	
==>~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2976	3078	
==>~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1230	1358	
==><-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## Wha <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1230	1358	
==><-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## Wha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11661	11762	
==>nted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11661	11762	
==>nted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11661	11762	
==>nted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}} <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30246	30341	
==>that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4611	4706	
==>TI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34798	34893	
==>that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4611	4706	
==>TI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4611	4706	
==>TI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3746	3867	
==>D.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3746	3867	
==>D.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3746	3867	
==>D.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  pa <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14139	14239	
==>hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests o <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14139	14239	
==>hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests o <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11970	12084	
==>ebug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11970	12084	
==>ebug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the serv <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11149	11259	
==>ebug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the serv <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11149	11259	
==>ebug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the serv <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	215	322	
==>ral.
#     Since we dont have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Several "SourceC <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3355	3465	
==>ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3355	3465	
==>ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11964	12069	
==>is is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11964	12069	
==>is is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11964	12069	
==>is is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2457	2575	
==>> 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circum <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2457	2575	
==>> 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	28	136	
==>se warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	28	136	
==>se warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	28	136	
==>se warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	147	251	
==>rn bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	147	251	
==>rn bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	147	251	
==>rn bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1401	1499	
==>ould 
have to be insane to use this for anything more than obscuring text from 
accidental viewing. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1401	1499	
==>ould 
have to be insane to use this for anything more than obscuring text from 
accidental viewing. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40808	40927	
==>{
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40808	40927	
==>{
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayr <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40808	40927	
==>{
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11094	11199	
==>lmost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $sour <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11094	11199	
==>lmost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $sour <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6822	6931	
==>ing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6822	6931	
==>ing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6822	6931	
==>ing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#su <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3594	3689	
==>r::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3594	3689	
==>r::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10135	10293	
==>nts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10135	10293	
==>nts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10135	10293	
==>nts";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #war <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23554	23648	
==>re other differences.  Where other solutions take variables, they
seem to be positional (like w <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23554	23648	
==>re other differences.  Where other solutions take variables, they
seem to be positional (like w <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24670	24783	
==>e ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21091	21204	
==>e ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6809	6916	
==>pads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6809	6916	
==>pads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6809	6916	
==>pads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	276	382	
==>f, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	276	382	
==>f, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	276	382	
==>f, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inlin <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7004	7102	
==>ve is reached. This does not include 
the text of the header, that will be processed as a interpola <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7004	7102	
==>ve is reached. This does not include 
the text of the header, that will be processed as a interpola <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5255	5368	
==>ant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $co <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6523	6636	
==>ant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5255	5368	
==>ant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6511	6624	
==>ant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9883	9995	
==>l5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9883	9995	
==>l5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9883	9995	
==>l5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = " <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6969	7066	
==>d1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTT <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6969	7066	
==>d1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTT <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1797	1956	
==>w( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_op <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2209	2368	
==>w( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1797	1956	
==>w( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_op <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2209	2368	
==>w( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_op <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2732	2832	
==>ions = $self->{extensions} || [];
    unless (@$extensions) {
        $self->load_extensions("$self-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	850	985	
==>!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; } <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	850	985	
==>!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6525	6622	
==>wline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6525	6622	
==>wline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6525	6622	
==>wline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: functi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1894	2023	
==>st a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't f <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1894	2023	
==>st a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	346	439	
==>->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	346	439	
==>->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	346	439	
==>->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) { <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7643	7741	
==>l rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::G <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7384	7479	
==>l rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::G <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1652	1735	
==>ntests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3613	3696	
==>ntests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1652	1735	
==>ntests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	505	615	
==>et;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	509	619	
==>et;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	505	615	
==>et;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	509	619	
==>et;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9307	9420	
==>my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9307	9420	
==>my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9307	9420	
==>my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1160	1255	
==>fferently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put a <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1160	1255	
==>fferently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3019	3149	
==>$class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Can <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3019	3149	
==>$class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Can <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16785	16880	
==>.};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16785	16880	
==>.};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16785	16880	
==>.};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2257	2358	
==>aller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramete <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2257	2358	
==>aller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramete <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2257	2358	
==>aller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramete <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3857	3954	
==>s is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLI <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3857	3954	
==>s is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLI <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	212	337	
==>=> 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => ' <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	212	337	
==>=> 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11959	12079	
==>ent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11959	12079	
==>ent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11959	12079	
==>ent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9072	9186	
==>ort module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9130	9244	
==>ort module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	311	415	
==>=> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	311	415	
==>=> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_cc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	311	415	
==>=> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_cc <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4328	4440	
==>return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7805	7917	
==>return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6789	6901	
==>return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6189	6290	
==>$event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %ha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6189	6290	
==>$event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22363	22524	
==>elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22363	22524	
==>elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #war <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22363	22524	
==>elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #war <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	837	927	
==>mple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	837	927	
==>mple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8777	8919	
==>match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8777	8919	
==>match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub c <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1642	1746	
==>children.

=item Map

A map is like a hash - it has keys and values.

C<Env> is a map - it contains symbo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5787	5884	
==>joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $even <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5787	5884	
==>joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $even <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	130	230	
==>$_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is c <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5626	5726	
==>e to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a singl <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	130	230	
==>$_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is c <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5626	5726	
==>e to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a singl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7823	7923	
==>e to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a singl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	55	156	
==>ode-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	55	156	
==>ode-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	55	156	
==>ode-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - ne <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1153	1249	
==>very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memo <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1153	1249	
==>very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1953	2055	
==>a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECEN <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1953	2055	
==>a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECEN <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1953	2055	
==>a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECEN <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9987	10088	
==>entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX t <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9987	10088	
==>entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17320	17434	
==>lasses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 D <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17320	17434	
==>lasses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 D <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17320	17434	
==>lasses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 D <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	869	961	
==>mp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descri <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	869	961	
==>mp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descri <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12989	13122	
==>ff = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12989	13122	
==>ff = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12989	13122	
==>ff = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1874	2007	
==>ff = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3155	3255	
==>ss "Bad params in signature";
    $options{returns} = 'type' if !(exists $options{returns});
    bles <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2460	2558	
==>ith p6 ones _without_ changings its name.



of course that has the problem of supplying Perl.pm it <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2367	2463	
==>ith p6 ones _without_ changings its name.

of course that has the problem of supplying Perl.pm it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	11	106	
==>::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	11	106	
==>::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	11	106	
==>::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01 <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2082	2205	
==>ess (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2060	2183	
==>ess (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5662	5766	
==>('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5662	5766	
==>('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5662	5766	
==>('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11029	11201	
==>OAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->is <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11029	11201	
==>OAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->is <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11029	11201	
==>OAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->is <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20205	20293	
==>y_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorizatio <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20205	20293	
==>y_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorizatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3989	4119	
==>$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3989	4119	
==>$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3989	4119	
==>$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contain <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12606	12716	
==>mpiler->new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interp <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	183	286	
==>kinds of things that can do subscriber:
# - Code
# - Object

# The notification process involves:
# crea <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1483	1591	
==>ate span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONS <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1483	1591	
==>ate span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14980	15079	
==>f $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14980	15079	
==>f $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14980	15079	
==>f $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    re <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13221	13404	
==>py) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3402	3561	
==>py) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3402	3561	
==>py) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3402	3561	
==>py) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	540	643	
==>se {
        $self->check_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILE <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7714	7829	
==>aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7714	7829	
==>aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7714	7829	
==>aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	5497	5598	
==>t they are unified
# a free variable can be instantiated to point to another type object
# at this poi <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23632	23731	
==>Elements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <Function <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3761	3944	
==>$i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ( <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3761	3944	
==>$i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3839	3950	
==>kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && de <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3839	3950	
==>kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && de <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3839	3950	
==>kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && de <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4886	4994	
==>%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) retu <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4886	4994	
==>%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2411	2518	
==>push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2411	2518	
==>push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2411	2518	
==>push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5396	5518	
==>elf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5396	5518	
==>elf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5396	5518	
==>elf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possib <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24228	24326	
==>has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single memb <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28780	28878	
==>has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single memb <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6092	6192	
==>:Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6092	6192	
==>:Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6673	6780	
==>);
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6685	6792	
==>);
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16819	16917	
==>t parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16819	16917	
==>t parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16819	16917	
==>t parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	502	638	
==>ecute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return reverse(@rv);
        });
    } <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24227	24323	
==>omatons
  (clients with either an AI or other interactive program controlling their
  actions) wh <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23000	23096	
==>omatons
  (clients with either an AI or other interactive program controlling their
  actions) wh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24227	24323	
==>omatons
  (clients with either an AI or other interactive program controlling their
  actions) wh <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23000	23096	
==>omatons
  (clients with either an AI or other interactive program controlling their
  actions) wh <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4951	5061	
==>:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4951	5061	
==>:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11448	11546	
==>dentical; they do not
interact with the outside environment at all.

A Document object has 2 main a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11448	11546	
==>dentical; they do not
interact with the outside environment at all.

A Document object has 2 main a <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19276	19366	
==>[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7041	7227	
==>span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7041	7227	
==>span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_ <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1496	1608	
==>E> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_b <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1496	1608	
==>E> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_b <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2950	3060	
==>E> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_b <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8943	9118	
==>);
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8088	8247	
==>= 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3003	3114	
==>?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub exp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3003	3114	
==>?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub exp <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3003	3114	
==>?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub exp <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3341	3432	
==>ccessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (ac <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4028	4119	
==>:Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4028	4119	
==>:Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3341	3432	
==>ccessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (ac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6225	6316	
==>:Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3548	3657	
==>$self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3548	3657	
==>$self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3548	3657	
==>$self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2074	2172	
==>);
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2074	2172	
==>);
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left', <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4469	4585	
==>$_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        fo <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4469	4585	
==>$_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5830	5928	
==>lf->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5830	5928	
==>lf->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5830	5928	
==>lf->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3545	3657	
==>e {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate user <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3545	3657	
==>e {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate user <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3005	3106	
==>nt $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descriptio <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3005	3106	
==>nt $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4529	4630	
==>nt $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descriptio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2239	2370	
==>&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2239	2370	
==>&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2239	2370	
==>&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	329	431	
==>akeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs- <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	329	431	
==>akeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	828	958	
==>::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	828	958	
==>::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	828	958	
==>::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The p <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1529	1641	
==>.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
5	/Users/nnunley/pugs/util/package-osx.pl	4486	4583	
==>m
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/man3/Perl6::Bible::S03. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4844	4987	
==>XSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4844	4987	
==>XSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4844	4987	
==>XSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14756	14889	
==>fic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14756	14889	
==>fic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12903	13009	
==>eck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12903	13009	
==>eck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16579	16678	
==>s

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16579	16678	
==>s

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16579	16678	
==>s

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start = <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14590	14720	
==>son.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14590	14720	
==>son.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11716	11801	
==>::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11716	11801	
==>::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11716	11801	
==>::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2809	2932	
==>hift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2809	2932	
==>hift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2809	2932	
==>hift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	753	868	
==>tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	764	879	
==>tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23147	23314	
==>new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42750	42916	
==>new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$self:' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4178	4281	
==>ion has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4178	4281	
==>ion has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4178	4281	
==>ion has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	620	730	
==>osEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	620	730	
==>osEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	620	730	
==>osEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8659	8752	
==>ugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher:: <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8659	8752	
==>ugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher:: <==
5	/Users/nnunley/pugs/util/file_to_hs.pl	23	125	
==>::Open2;
use File::Basename;
use FindBin qw<$Bin>;

# XXX - This is not at all portable.

my ($in, $out <==
5	/Users/nnunley/pugs/t/builtins/system/create_files.pl	220	320	
==>ir/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
print $F <<'EOT';
#include <std <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6365	6461	
==>e above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to wi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6365	6461	
==>e above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to wi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6365	6461	
==>e above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to wi <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1824	1935	
==>y hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        * <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1824	1935	
==>y hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1639	1739	
==>ect->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1639	1739	
==>ect->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1639	1739	
==>ect->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9427	9594	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9427	9594	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9427	9594	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5809	5942	
==>_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::fil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5809	5942	
==>_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7127	7253	
==>ray will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < ia <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7127	7253	
==>ray will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < ia <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7127	7253	
==>ray will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < ia <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19336	19430	
==>d to a typical other
vendor's DBMS) is that data definition statements are structured as
standa <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19336	19430	
==>d to a typical other
vendor's DBMS) is that data definition statements are structured as
standa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1930	2054	
==>class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1990	2114	
==>class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	825	940	
==>mAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	825	940	
==>mAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	825	940	
==>mAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2 <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	190	299	
==>nts>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no de <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8120	8223	
==>ethods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convien <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8120	8223	
==>ethods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convien <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3004	3101	
==>idget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-or <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3004	3101	
==>idget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-or <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1356	1502	
==>t;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, store <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	168	261	
==>ode, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_test <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	224	317	
==>ode, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	168	261	
==>ode, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_test <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	224	317	
==>ode, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_test <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	511	617	
==>});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	511	617	
==>});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	511	617	
==>});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2928	3128	
==>$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2928	3128	
==>$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2928	3128	
==>$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7662	7797	
==>List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7662	7797	
==>List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7662	7797	
==>List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3169	3279	
==>e {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3169	3279	
==>e {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6390	6509	
==>~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6390	6509	
==>~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3962	4071	
==>('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1269	1378	
==>('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11493	11582	
==>_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_co <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3613	3740	
==>_;

    my $pass;
    if( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got || <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8864	8956	
==>ns, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3793	3885	
==>ns, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8864	8956	
==>ns, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3793	3885	
==>ns, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	567	692	
==>) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	567	692	
==>) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	567	692	
==>) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispat <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1047	1166	
==>move) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: * <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1047	1166	
==>move) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: * <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5990	6085	
==>ng is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5990	6085	
==>ng is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5990	6085	
==>ng is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursio <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8637	8729	
==>I<start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier> <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8637	8729	
==>I<start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11783	11911	
==>block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12062	12190	
==>block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	419	506	
==>,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOpt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	419	506	
==>,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOpt <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	419	506	
==>,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOpt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2084	2201	
==>s verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pri <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	398	515	
==>s verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2084	2201	
==>s verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2084	2201	
==>s verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    pri <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3347	3449	
==>s

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2798	2893	
==>mple, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string por <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2798	2893	
==>mple, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string por <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2265	2356	
==>= $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2265	2356	
==>= $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2265	2356	
==>= $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $meth <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10744	10877	
==>pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10738	10871	
==>pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$b <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	18951	19045	
==>ements a Relation data type that corresponds to the
"relation" of logic and mathematics and phi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	520	640	
==>ue = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	520	640	
==>ue = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	520	640	
==>ue = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	3272	3371	
==>$date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3272	3371	
==>$date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3283	3408	
==>L2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3283	3408	
==>L2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3283	3408	
==>L2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2402	2502	
==>ault (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("00 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2402	2502	
==>ault (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("00 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	30	138	
==>for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	30	138	
==>for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	7305	7409	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10782	10886	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other ) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9919	10023	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14114	14241	
==>ile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14114	14241	
==>ile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14114	14241	
==>ile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6376	6503	
==>ile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4878	5005	
==>ile $i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2132	2258	
==>per[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mo <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2132	2258	
==>per[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11466	11575	
==>);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11466	11575	
==>);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11466	11575	
==>);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4765	4871	
==>$new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4765	4871	
==>$new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4765	4871	
==>$new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cla <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10816	10914	
==>ot
given, then that header field will remain unchanged.

The old value (or values) of the last of t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10816	10914	
==>ot
given, then that header field will remain unchanged.

The old value (or values) of the last of t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16895	16986	
==>:hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16895	16986	
==>:hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16895	16986	
==>:hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2712	2795	
==>-----------------------------------------------------------------------
## inserting <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2712	2795	
==>-----------------------------------------------------------------------
## inserting <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2660	2773	
==>rgs->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    Ext <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1797	1903	
==>efined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1797	1903	
==>efined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'u <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1797	1903	
==>efined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'u <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1321	1413	
==>_ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PAC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16000	16165	
==>E;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16000	16165	
==>E;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16000	16165	
==>E;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6357	6467	
==>tfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6357	6467	
==>tfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19552	19669	
==>= substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15973	16090	
==>= substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3739	3839	
==>ers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETC <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3739	3839	
==>ers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETC <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3739	3839	
==>ers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETC <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14286	14422	
==>os)=($X::pos);
        $v = $f_test->($noop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4987	5103	
==>f ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4987	5103	
==>f ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scal <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4987	5103	
==>f ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scal <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4286	4439	
==>atch;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4827	4980	
==>atch;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5816	5910	
==>> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5816	5910	
==>> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7340	7434	
==>> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15160	15271	
==>n  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15160	15271	
==>n  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1392	1490	
==>ng(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1392	1490	
==>ng(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1392	1490	
==>ng(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1282	1393	
==>};
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1282	1393	
==>};
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1282	1393	
==>};
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	474	574	
==>le
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	474	574	
==>le
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::gram <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	269	412	
==>rint_repl_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose outpu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5692	5787	
==>l these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4822	4917	
==>l these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5692	5787	
==>l these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4822	4917	
==>l these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16465	16583	
==>und for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16465	16583	
==>und for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16465	16583	
==>und for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2090	2202	
==>1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=qu <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2090	2202	
==>1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=qu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	782	899	
==>Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	802	912	
==>Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } e <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29753	29844	
==>unaffected invocant's attributes.  This method
supports having the new attributes having the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34305	34396	
==>unaffected invocant's attributes.  This method
supports having the new attributes having the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33469	33560	
==>unaffected invocant's attributes.  This method
supports having the new attributes having the <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	474	583	
==>actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	474	583	
==>actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	474	583	
==>actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4424	4515	
==>L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4674	4765	
==>L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that ca <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2117	2235	
==>= $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	122	230	
==>= $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output. <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	122	230	
==>= $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output. <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1159	1264	
==>res (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1159	1264	
==>res (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3891	3990	
==>use the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3891	3990	
==>use the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
fo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3891	3990	
==>use the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
fo <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	977	1073	
==>.] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is e <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	977	1073	
==>.] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11285	11419	
==>lass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11285	11419	
==>lass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11285	11419	
==>lass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11210	11303	
==>t returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($s <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11210	11303	
==>t returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5914	6069	
==>$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5914	6069	
==>$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { b <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2161	2288	
==>ss' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2366	2493	
==>ss' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2491	2618	
==>ss' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7638	7757	
==>locks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" u <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7638	7757	
==>locks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	699	800	
==>-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	699	800	
==>-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Li <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	699	800	
==>-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6111	6235	
==>same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6111	6235	
==>same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6111	6235	
==>same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17635	17742	
==>head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17635	17742	
==>head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object" <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19603	19702	
==>ion

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by includin <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19603	19702	
==>ion

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by includin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2550	2641	
==>n $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2550	2641	
==>n $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2550	2641	
==>n $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6379	6480	
==>x)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( ta <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6379	6480	
==>x)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( ta <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6379	6480	
==>x)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( ta <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1635	1732	
==>Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Ciphe <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1635	1732	
==>Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Ciphe <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2229	2349	
==>= $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.par <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2229	2349	
==>= $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.par <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2582	2674	
==>set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2582	2674	
==>set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macr <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2582	2674	
==>set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	32	127	
==>fix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operato <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	28	123	
==>fix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operato <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	36	131	
==>fix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operato <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	30	125	
==>fix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operato <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	29	124	
==>fix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Operato <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	577	684	
==>e PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	577	684	
==>e PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	577	684	
==>e PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36906	37000	
==>edText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $me <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36906	37000	
==>edText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	908	1005	
==>SCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	908	1005	
==>SCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSy <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	908	1005	
==>SCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSy <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41083	41176	
==>a feature, and provided sample usage and patch
code, that supports embedding of Template modul <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41083	41176	
==>a feature, and provided sample usage and patch
code, that supports embedding of Template modul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	552	650	
==>b infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	552	650	
==>b infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	552	650	
==>b infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1656	1743	
==>lass Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1656	1743	
==>lass Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12815	12913	
==>pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	294	392	
==>a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inde <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12815	12913	
==>pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

= <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	294	392	
==>a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	294	392	
==>a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inde <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10274	10418	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10274	10418	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => un <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10274	10418	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => un <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1598	1703	
==>nts> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionNa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1598	1703	
==>nts> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionNa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18700	18801	
==>follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning w <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18700	18801	
==>follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	823	915	
==>unc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	823	915	
==>unc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	823	915	
==>unc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2256	2388	
==>t__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2803	2935	
==>t__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      n <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3350	3482	
==>t__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8651	8746	
==>s a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Creat <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8651	8746	
==>s a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Creat <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2833	2963	
==>g{'postinst'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'PO <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	340	462	
==>}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	375	497	
==>}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	340	462	
==>}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @n <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9553	9675	
==>}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @n <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1337	1444	
==>end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %pa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1337	1444	
==>end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2668	2774	
==>r optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2668	2774	
==>r optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2668	2774	
==>r optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5673	5773	
==>est.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5673	5773	
==>est.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5673	5773	
==>est.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	702	797	
==>sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg):: <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	702	797	
==>sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg):: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34150	34265	
==>Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34150	34265	
==>Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34150	34265	
==>Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3863	3949	
==>tches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3863	3949	
==>tches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6, <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7769	7936	
==>y package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next un <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8233	8400	
==>y package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next un <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4199	4354	
==>y package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next un <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4663	4818	
==>y package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next un <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3010	3120	
==>$_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4783	4918	
==>alue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4783	4918	
==>alue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4783	4918	
==>alue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                m <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15452	15584	
==>s should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15446	15578	
==>s should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$d <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3355	3472	
==>}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1713	1830	
==>}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2493	2610	
==>}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	694	802	
==>for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_acces <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1178	1286	
==>for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_acces <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	147	551	
==>ta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Eng <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	147	551	
==>ta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Eng <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14831	14928	
==>}

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14831	14928	
==>}

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_i <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14831	14928	
==>}

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1973	2105	
==>ass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1973	2105	
==>ass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && ble <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1973	2105	
==>ass;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && ble <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13811	13915	
==>" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_e <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13811	13915	
==>" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	97	210	
==>__END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	95	200	
==>__END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	89	194	
==>__END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	95	200	
==>__END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	89	194	
==>__END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';

sub compile {
    my ( $c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10014	10152	
==>self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number() <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2071	2203	
==>self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number() <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2071	2203	
==>self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number() <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3645	3773	
==>l "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proc <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3703	3831	
==>l "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proc <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	947	1062	
==>:cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	947	1062	
==>:cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	947	1062	
==>:cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input f <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	772	877	
==>string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	772	877	
==>string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26887	27023	
==>=> 'minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23724	23815	
==>FC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRI <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22497	22588	
==>FC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23724	23815	
==>FC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRI <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22497	22588	
==>FC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRI <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	417	556	
==>obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $. <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	417	556	
==>obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $. <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5638	5735	
==>imple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method: <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5638	5735	
==>imple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7835	7932	
==>imple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3522	3655	
==>f, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3522	3655	
==>f, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3522	3655	
==>f, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	832	929	
==>et non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	843	940	
==>et non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7282	7392	
==>$chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7282	7392	
==>$chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4682	4773	
==>eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4682	4773	
==>eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4682	4773	
==>eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9190	9301	
==>mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encryp <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9190	9301	
==>mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encryp <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13204	13312	
==>entical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16681	16789	
==>entical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16043	16151	
==>entical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headin <==
5	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	673	778	
==>parse_ini_file(Class $class: IO $fh) {
	my @config;

	my $lineno = 0;
	for =$fh -> $line is copy {
		++$li <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28269	28364	
==>which is suitable
for debugging purposes (such as to test that the object's contents look
good a <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35625	35720	
==>which is suitable
for debugging purposes (such as to test that the object's contents look
good a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28269	28364	
==>which is suitable
for debugging purposes (such as to test that the object's contents look
good a <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35625	35720	
==>which is suitable
for debugging purposes (such as to test that the object's contents look
good a <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4565	4675	
==>ired => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params: <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5050	5160	
==>ired => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3413	3514	
==>6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alnum:]/ )
  {
    $m <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21748	21843	
==>C<server>

The server the line was sent from. This is I<not> necessarily the server you
connecte <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20629	20724	
==>C<server>

The server the line was sent from. This is I<not> necessarily the server you
connecte <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21748	21843	
==>C<server>

The server the line was sent from. This is I<not> necessarily the server you
connecte <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20629	20724	
==>C<server>

The server the line was sent from. This is I<not> necessarily the server you
connecte <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2173	2282	
==>queue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debu <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2173	2282	
==>queue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3137	3238	
==>ed here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3137	3238	
==>ed here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3137	3238	
==>ed here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14130	14293	
==>hods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14130	14293	
==>hods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14130	14293	
==>hods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1511	1651	
==>ethod;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $l <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1716	1856	
==>ethod;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3712	3814	
==>);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->na <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3712	3814	
==>);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->na <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4302	4404	
==>);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->na <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20622	20713	
==>r is that
the new (under development) enterprise-strength and Perl implemented
database serv <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20622	20713	
==>r is that
the new (under development) enterprise-strength and Perl implemented
database serv <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9114	9222	
==>n array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9114	9222	
==>n array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9114	9222	
==>n array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4447	4552	
==>s.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4447	4552	
==>s.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2781	2887	
==>ts.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_A <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2781	2887	
==>ts.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_A <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3818	3957	
==>concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4063	4195	
==>concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10512	10644	
==>concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4063	4195	
==>concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'c <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10512	10644	
==>concat( $node, $state->{op} ),
        };
        return $match;
    }
}

# interface to the internal rule functions
# - creates a 'c <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10607	10711	
==>this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10607	10711	
==>this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3688	3778	
==>reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3688	3778	
==>reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3688	3778	
==>reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11409	11502	
==>cludes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11409	11502	
==>cludes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2738	2823	
==>t $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2738	2823	
==>t $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%se <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2738	2823	
==>t $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%se <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7937	8074	
==>ETHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7937	8074	
==>ETHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3153	3257	
==>_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3153	3257	
==>_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3153	3257	
==>_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	384	481	
==>code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pil <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	384	481	
==>code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pil <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4822	5048	
==>$size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4822	5048	
==>$size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10433	10599	
==>$size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10433	10599	
==>$size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10433	10599	
==>$size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8696	8814	
==>nion( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8696	8814	
==>nion( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4062	4167	
==>] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4062	4167	
==>] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4062	4167	
==>] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3929	4029	
==>he reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3929	4029	
==>he reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3929	4029	
==>he reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20628	20724	
==>again.

Every bit of the default process described above is overridable by
various methods.

=hea <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20628	20724	
==>again.

Every bit of the default process described above is overridable by
various methods.

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6724	6849	
==>/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6724	6849	
==>/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDe <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6724	6849	
==>/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDe <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5347	5451	
==>,map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN( <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1005	1100	
==>new(*@args));
    }

    method mk_notifications (*@subscriptions of Class::Events::Subscription <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1312	1455	
==>soc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        asso <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1028	1155	
==>soc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1170	1297	
==>soc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1454	1581	
==>soc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1741	1868	
==>soc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2701	2811	
==>me.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2701	2811	
==>me.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shif <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2701	2811	
==>me.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shif <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3781	3890	
==>r my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3781	3890	
==>r my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19757	19904	
==>s = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRIT <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19757	19904	
==>s = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRIT <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19757	19904	
==>s = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRIT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6680	6793	
==>ef $self->{data}) {
      $self->{data}->type;
    }
    else {
      join "", $self->{how}, ($self->{neg} ? '^' : <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2077	2169	
==>axPairAttrType
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of Bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20273	20377	
==>turn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20273	20377	
==>turn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20273	20377	
==>turn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	191	280	
==>header_field_names scan
    date expires if_modified_since if_unmodified_since last_modifi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	191	280	
==>header_field_names scan
    date expires if_modified_since if_unmodified_since last_modifi <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	874	995	
==>ark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	874	995	
==>ark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3217	3318	
==>s=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3217	3318	
==>s=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3217	3318	
==>s=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34297	34394	
==>aracter.

We have added a handler for the '&' metacharacter, but now we need to
write the supporti <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2255	2350	
==>,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extra <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	798	892	
==>,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extra <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2166	2260	
==>,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extra <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	798	892	
==>,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extra <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4608	4754	
==>++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.stat <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4608	4754	
==>++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.stat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17291	17384	
==>lements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17291	17384	
==>lements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17291	17384	
==>lements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	139	321	
==>sub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $s <==
5	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	204	367	
==>sub WriteAll {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4756	4859	
==>o
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4756	4859	
==>o
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4756	4859	
==>o
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1435	1530	
==>as well as the compile-time-bound values for them.

It includes the parameters as well as anythi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1374	1468	
==>as well as the compile-time-bound values for them.
It includes the parameters as well as anythi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3626	3737	
==>:Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3626	3737	
==>:Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rose <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34320	34414	
==>returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38870	38964	
==>returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38349	38443	
==>returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C< <==
5	/Users/nnunley/pugs/util/config_h.pl	1609	1741	
==>e OUT;

sub try_compile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        pri <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1034	1143	
==>lternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1386	1493	
==>lternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	993	1100	
==>lternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1386	1493	
==>lternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1114	1290	
==>ke(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<l <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1114	1290	
==>ke(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<l <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5039	5160	
==>$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2581	2702	
==>$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3362	3483	
==>$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1957	2056	
==>urn (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy man <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1957	2056	
==>urn (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy man <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1843	1938	
==>s
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1843	1938	
==>s
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1843	1938	
==>s
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19987	20190	
==>ed->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19987	20190	
==>ed->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19987	20190	
==>ed->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->ce <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1957	2052	
==>ags, it will intuit one by extracting the 
last component of the calling function's package name <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1957	2052	
==>ags, it will intuit one by extracting the 
last component of the calling function's package name <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22735	22932	
==>: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22735	22932	
==>: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22735	22932	
==>: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #wa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5374	5497	
==>$rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11029	11152	
==>$rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2263	2402	
==>"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2263	2402	
==>"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3985	4109	
==>IL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3985	4109	
==>IL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	835	959	
==>IL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,' <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	866	1025	
==>{
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curren <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	866	1025	
==>{
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	31	140	
==>s;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	31	140	
==>s;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return spr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	31	140	
==>s;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return spr <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1103	1205	
==>n $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	845	947	
==>n $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1103	1205	
==>n $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	845	947	
==>n $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self <==
5	/Users/nnunley/pugs/util/package-osx.pl	4050	4147	
==>/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24183	24317	
==>$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24183	24317	
==>$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24183	24317	
==>$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12219	12323	
==>005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,2 <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12219	12323	
==>005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,2 <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4123	4318	
==>rl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4123	4318	
==>rl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1870	1962	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1870	1962	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(func <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1870	1962	
==>sh|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(func <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1584	1684	
==>L::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1584	1684	
==>L::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1584	1684	
==>L::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($t <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3073	3172	
==>f $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get] <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3619	3718	
==>f $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get] <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	545	643	
==>ulti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	545	643	
==>ulti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:< <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	545	643	
==>ulti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:< <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5825	5918	
==>aim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) r <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5883	5976	
==>aim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12924	13102	
==>d, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12924	13102	
==>d, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12924	13102	
==>d, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->sto <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8736	8859	
==>my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8929	9052	
==>my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'gram <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	447	555	
==>ce, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	479	587	
==>ce, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13414	13515	
==>hod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13414	13515	
==>hod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13414	13515	
==>hod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	114	218	
==>p;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	114	218	
==>p;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stand <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	114	218	
==>p;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stand <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10866	10962	
==>erse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherw <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10866	10962	
==>erse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherw <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11133	11229	
==>own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11133	11229	
==>own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11133	11229	
==>own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way. <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2977	3070	
==>preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($nam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2977	3070	
==>preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($nam <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	204	336	
==>E__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstra <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	199	331	
==>E__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19885	19974	
==>_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19885	19974	
==>_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19885	19974	
==>_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1390	1482	
==>a::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1390	1482	
==>a::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
5	/Users/nnunley/pugs/util/build_pugs.pl	4755	4874	
==>'$target' failed: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3759	3867	
==>ag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "comp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3976	4084	
==>ag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "comp <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6231	6331	
==>ft a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6231	6331	
==>ft a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5602	5697	
==>:Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=ba <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5602	5697	
==>:Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=ba <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7799	7894	
==>:Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=ba <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2623	2721	
==>multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2623	2721	
==>multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2623	2721	
==>multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self-> <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1398	1490	
==>::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1398	1490	
==>::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14392	14487	
==>eturn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14392	14487	
==>eturn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14392	14487	
==>eturn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	12136	12321	
==>, \%tot, 
                                                       $estatus, $wstatus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1673	1777	
==>), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some synt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1673	1777	
==>), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some synt <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1673	1777	
==>), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some synt <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7673	7767	
==>lpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10286	10393	
==>$method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:privat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10286	10393	
==>$method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:privat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10286	10393	
==>$method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:privat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2272	2374	
==>xt::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2183	2283	
==>xt::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9036	9159	
==>) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9036	9159	
==>) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9036	9159	
==>) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4275	4370	
==>ble at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lin <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4275	4370	
==>ble at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lin <==
5	/Users/nnunley/pugs/util/package-osx.pl	10727	10864	
==>er = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parro <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1521	1622	
==>t;

		$class->SUPER::new(type => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use base qw/Bl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	993	1091	
==>number of new attributes from various sources
# and we need to now create these attributes in all t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	993	1091	
==>number of new attributes from various sources
# and we need to now create these attributes in all t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	993	1091	
==>number of new attributes from various sources
# and we need to now create these attributes in all t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18711	18828	
==>b {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15132	15249	
==>b {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30470	30587	
==>b {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->o <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3300	3410	
==>/ (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - spec ambig <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1129	1221	
==>& <non_alternation>+? }
rule non_conjunction { <repetition> | <alias> | <simple_term> }

rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1950	2065	
==>};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1950	2065	
==>};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1950	2065	
==>};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp va <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	740	845	
==>( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2021	2126	
==>( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	523	629	
==>ub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	523	629	
==>ub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	523	629	
==>ub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $cl <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4488	4587	
==>e available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns th <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4488	4587	
==>e available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	394	498	
==>$instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	599	703	
==>$instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	655	759	
==>$instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_in <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17630	17723	
==>'s C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. Se <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17630	17723	
==>'s C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. Se <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3179	3318	
==>dle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5330	5446	
==>n "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to trans <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6598	6714	
==>n "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to trans <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5330	5446	
==>n "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to trans <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6586	6702	
==>n "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to trans <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14332	14466	
==>tisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14332	14466	
==>tisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14332	14466	
==>tisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_par <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1173	1268	
==>TY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the lette <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1173	1268	
==>TY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the lette <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5341	5531	
==>e =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5341	5531	
==>e =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5341	5531	
==>e =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9033	9173	
==>ch->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        retu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8718	8854	
==>ch->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        retu <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	11053	11178	
==>if
            $layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    multi method seek (Int $position, Int $whence = $File::SEEK_S <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21486	21578	
==>corresponding message.
Event names which are all lowercase are "pseudo" events. See below for <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20367	20459	
==>corresponding message.
Event names which are all lowercase are "pseudo" events. See below for <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21486	21578	
==>corresponding message.
Event names which are all lowercase are "pseudo" events. See below for <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20367	20459	
==>corresponding message.
Event names which are all lowercase are "pseudo" events. See below for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13274	13446	
==>$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13274	13446	
==>$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13274	13446	
==>$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	655	755	
==>i sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	655	755	
==>i sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differ <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	110	221	
==>};

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	110	221	
==>};

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5251	5347	
==>tr $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optiona <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5251	5347	
==>tr $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optiona <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6775	6871	
==>tr $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optiona <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4993	5099	
==>xt ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_o <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4993	5099	
==>xt ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_o <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5597	5691	
==>children($Config{concurrent}, \@tests);
}

sub run_children {
    my ($self, $child_count, $all <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9460	9553	
==>f
their attributes are private, so you must use accessor methods.
Rosetta::Model does not decl <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9460	9553	
==>f
their attributes are private, so you must use accessor methods.
Rosetta::Model does not decl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1551	1642	
==>_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1551	1642	
==>_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_att <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1551	1642	
==>_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_att <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1643	1778	
==>n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1643	1778	
==>n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!h <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1714	1820	
==>_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1919	2025	
==>_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1982	2088	
==>_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaqu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1321	1423	
==>r(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1321	1423	
==>r(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1321	1423	
==>r(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23969	24060	
==>olutions like "gettext" suggests that they
use a compile-time macro-based approach to substi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23969	24060	
==>olutions like "gettext" suggests that they
use a compile-time macro-based approach to substi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11129	11309	
==>alar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requir <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11129	11309	
==>alar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requir <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11129	11309	
==>alar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requir <==
5	/Users/nnunley/pugs/util/fixauthors.pl	333	457	
==>ess /\)$/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	396	502	
==>s::Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{n <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1535	1645	
==>x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1535	1645	
==>x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    ret <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	9313	9419	
==>or my $test (@{$test_results->{events}} ) {
      next unless defined $test->{pos};
 
      my ($start, $en <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	183	275	
==>command line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	183	275	
==>command line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_fil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9735	9834	
==>@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9735	9834	
==>@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9735	9834	
==>@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4070	4167	
==>compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4070	4167	
==>compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5352	5498	
==>.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5352	5498	
==>.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9985	10130	
==>,
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9985	10130	
==>,
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9985	10130	
==>,
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	4218	4316	
==>lf.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

met <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4218	4316	
==>lf.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7252	7349	
==>kup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7252	7349	
==>kup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7252	7349	
==>kup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10505	10655	
==>%_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10505	10655	
==>%_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $ar <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10505	10655	
==>%_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $ar <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	516	610	
==>equest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is expor <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	516	610	
==>equest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is expor <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21199	21314	
==>$@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    no strict 'refs';
    &$look($mn,$name);
}
sub p6_set <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7447	7545	
==>:end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.str <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7447	7545	
==>:end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.str <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1947	2043	
==>e but utterly confusing synopsis, you should
be left with nothing but questions about what this o <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1947	2043	
==>e but utterly confusing synopsis, you should
be left with nothing but questions about what this o <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	90	202	
==>ocument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim' <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	90	202	
==>ocument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim' <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	90	202	
==>ocument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	90	202	
==>ocument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim' <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20772	20871	
==>($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=cut

$::Clas <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5076	5199	
==>n pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_m <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5076	5199	
==>n pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7213	7318	
==>JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7213	7318	
==>JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7213	7318	
==>JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val" <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	118	368	
==>edText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	118	368	
==>edText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5625	5745	
==>must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5625	5745	
==>must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5625	5745	
==>must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2203	2309	
==>t';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2203	2309	
==>t';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1900	2002	
==>buff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1900	2002	
==>buff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1900	2002	
==>buff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10182	10291	
==>sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10182	10291	
==>sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Int <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10182	10291	
==>sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Int <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1981	2078	
==>by extracting the 
last component of the calling function's package name.  (For example, if 
a fun <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1981	2078	
==>by extracting the 
last component of the calling function's package name.  (For example, if 
a fun <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	840	955	
==>eight + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $sel <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	840	955	
==>eight + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $sel <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20446	20548	
==>.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E0,E0) :- flag_m(E0), !.
rm(eol,         [],[],B0,B0,E0 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	218	316	
==>is file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!], <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	218	316	
==>is file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!], <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4377	4531	
==>,
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4377	4531	
==>,
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4377	4531	
==>,
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1210	1303	
==>pported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems() <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1210	1303	
==>pported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3251	3372	
==>y $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3251	3372	
==>y $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3251	3372	
==>y $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	645	745	
==>ction
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmet <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	645	745	
==>ction
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15974	16077	
==>:Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15974	16077	
==>:Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15974	16077	
==>:Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1664	1759	
==>Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role use <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1664	1759	
==>Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role use <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	618	718	
==>d rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	618	718	
==>d rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1469	1564	
==>g{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1469	1564	
==>g{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1469	1564	
==>g{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3973	4079	
==>R_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3973	4079	
==>R_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3973	4079	
==>R_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	96	198	
==>le = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	96	198	
==>le = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8332	8459	
==>ess $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8525	8652	
==>ess $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	628	726	
==>odel
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	628	726	
==>odel
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	628	726	
==>odel
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4249	4362	
==>atch,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4466	4579	
==>atch,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3770	3880	
==>ly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3770	3880	
==>ly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ( <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4360	4470	
==>ly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10575	10685	
==>reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10575	10685	
==>reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6146	6243	
==>the string set in advance with the prune method.

This feature is useful, like custom, for when yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6146	6243	
==>the string set in advance with the prune method.

This feature is useful, like custom, for when yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6146	6243	
==>the string set in advance with the prune method.

This feature is useful, like custom, for when yo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8448	8559	
==>";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; " <==
5	/Users/nnunley/pugs/util/version_h.pl	2406	2503	
==>it;
  }
} elsif ($revision) {
  print "Not writing $version_h because $old_revision == $revision\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	981	1072	
==>:Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	981	1072	
==>:Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	981	1072	
==>:Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19311	19402	
==>> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19311	19402	
==>> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19311	19402	
==>> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	11389	11479	
==>=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void> <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11389	11479	
==>=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void> <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16235	16347	
==>ins potential unsafe characters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11733	11832	
==>...)>

Removes the given items if they are already in the set, or inserts the items if
they're not i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8880	8979	
==>...)>

Removes the given items if they are already in the set, or inserts the items if
they're not i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11733	11832	
==>...)>

Removes the given items if they are already in the set, or inserts the items if
they're not i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8880	8979	
==>...)>

Removes the given items if they are already in the set, or inserts the items if
they're not i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3662	3788	
==>igenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3662	3788	
==>igenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $n <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3662	3788	
==>igenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $n <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4956	5075	
==>de $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8433	8552	
==>de $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3605	3758	
==>n unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3605	3758	
==>n unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3501	3602	
==>turns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $tw <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3501	3602	
==>turns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $tw <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31703	31798	
==>es of the invocant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3708	3806	
==>Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3708	3806	
==>Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3708	3806	
==>Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name t <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4697	4792	
==>g::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name c <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4697	4792	
==>g::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name c <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	535	668	
==>return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	535	668	
==>return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	535	668	
==>return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3210	3301	
==>turn the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3210	3301	
==>turn the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @val <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2391	2494	
==>omments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>* <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2391	2494	
==>omments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>* <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8331	8420	
==>=============================================

use FindBin;
use File::Spec;

sub path_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8331	8420	
==>=============================================

use FindBin;
use File::Spec;

sub path_from <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8331	8420	
==>=============================================

use FindBin;
use File::Spec;

sub path_from <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14275	14375	
==>ace defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1518	1618	
==>Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14275	14375	
==>ace defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1518	1618	
==>Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1518	1618	
==>Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "N <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4588	4697	
==>m = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpac <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4371	4475	
==>m = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpac <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16962	17052	
==>) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16962	17052	
==>) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIs <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16962	17052	
==>) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10341	10464	
==>e, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10341	10464	
==>e, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10341	10464	
==>e, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $star <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3528	3634	
==>rsion >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} ke <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2571	2673	
==>rsion >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} ke <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9441	9575	
==>if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9441	9575	
==>if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9441	9575	
==>if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1381	1505	
==>sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @na <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1957	2081	
==>sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @na <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1917	2064	
==>ics)
    Num         Perl number
    Complex     Perl complex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Per <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3403	3541	
==>xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3403	3541	
==>xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:per <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	14805	14904	
==>- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($d <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14805	14904	
==>- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5848	5941	
==>rdingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cur <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5848	5941	
==>rdingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14405	14496	
==>($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14405	14496	
==>($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14405	14496	
==>($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16539	16673	
==>tead of this step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALL <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	7485	7609	
==>$n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internals_m:pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3759	3868	
==>$a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3759	3868	
==>$a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3759	3868	
==>$a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::in <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	18595	18726	
==>on,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),in <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3236	3356	
==>et
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimp <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3420	3540	
==>et
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimp <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	459	568	
==>but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposful <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	459	568	
==>but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposful <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2028	2135	
==>oes Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  met <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2028	2135	
==>oes Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  met <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8521	8624	
==>hunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8521	8624	
==>hunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8521	8624	
==>hunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $bo <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2512	2758	
==>& 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2512	2758	
==>& 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3726	3844	
==>h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3726	3844	
==>h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'P <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	576	694	
==>h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'P <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22937	23069	
==>y ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19358	19490	
==>y ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9695	9809	
==>ire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9695	9809	
==>ire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9695	9809	
==>ire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1170	1285	
==>holders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1170	1285	
==>holders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2492	2596	
==>s'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2492	2596	
==>s'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2492	2596	
==>s'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join( <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1895	2017	
==>s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1895	2017	
==>s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6117	6216	
==>%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6117	6216	
==>%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6117	6216	
==>%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\ <==
5	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2246	2350	
==>ion::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Events::Publisher is e <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	4997	5099	
==>ecord
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4738	4835	
==>eentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4738	4835	
==>eentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4738	4835	
==>eentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8998	9125	
==>rc_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    } <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	732	859	
==>rc_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8998	9125	
==>rc_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    } <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8998	9125	
==>rc_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    } <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4551	4649	
==>e for Point3D');

is($p3d->get_x, 5, '... got the right x for p3d');
is($p3d->get_y, 6, '... got th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2271	2419	
==>less $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2271	2419	
==>less $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7795	7959	
==>his dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8259	8423	
==>his dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfi <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4225	4377	
==>his dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfi <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4689	4841	
==>his dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21751	21842	
==>,    char_type(C,xdigit(_)).
class_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdig <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14668	14771	
==>troy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14668	14771	
==>troy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14668	14771	
==>troy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15770	15863	
==>guage interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.c <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15770	15863	
==>guage interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	530	663	
==>q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	530	663	
==>q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22321	22438	
==>ce ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22321	22438	
==>ce ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22321	22438	
==>ce ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	506	602	
==>tent;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $hea <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	506	602	
==>tent;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $hea <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3451	3603	
==>}
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3451	3603	
==>}
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6369	6486	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6369	6486	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6369	6486	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5887	6193	
==>nt ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<st <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5887	6193	
==>nt ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	41	153	
==>nings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    req <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	41	153	
==>nings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    req <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	41	153	
==>nings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    req <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18939	19039	
==>inal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sav <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18939	19039	
==>inal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sav <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2122	2216	
==>kao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2122	2216	
==>kao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it un <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2122	2216	
==>kao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it un <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	293	397	
==>nversion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Grapheme     is Char;
class Co <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30804	30906	
==>first and makes up most of the module name; it
must be the same for every module in the same set as the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30804	30906	
==>first and makes up most of the module name; it
must be the same for every module in the same set as the <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8044	8141	
==>o perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span m <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8044	8141	
==>o perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span m <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3845	3942	
==>FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3845	3942	
==>FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7868	7964	
==>each my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7868	7964	
==>each my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7868	7964	
==>each my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3483	3591	
==>dir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tm <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1953	2061	
==>dir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5462	5563	
==>take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5462	5563	
==>take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and S <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5462	5563	
==>take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and S <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8991	9094	
==>) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8991	9094	
==>) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	605	702	
==>s->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	605	702	
==>s->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	605	702	
==>s->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5791	5912	
==>$const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "P <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5791	5912	
==>$const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2610	2722	
==>ind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2610	2722	
==>ind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #nam <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2957	3069	
==>ind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #nam <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1832	1936	
==>Bin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory o <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1832	1936	
==>Bin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory o <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1237	1328	
==>}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1237	1328	
==>}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).ge <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1237	1328	
==>}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).ge <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20392	20487	
==>rrently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19340	19435	
==>rrently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20392	20487	
==>rrently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19340	19435	
==>rrently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17105	17224	
==>x} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "PO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13526	13645	
==>x} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "PO <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	596	713	
==>= map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes gr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	596	713	
==>= map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes gr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	596	713	
==>= map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes gr <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1043	1154	
==>e->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemente <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1043	1154	
==>e->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemente <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15871	15971	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15871	15971	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with labe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15871	15971	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with labe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4685	4795	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4685	4795	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4685	4795	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3985	4094	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6444	6537	
==>urn $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $strap->a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8389	8508	
==>non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_gre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8097	8212	
==>non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_gre <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	99	195	
==>d

This file contains p5 runtime primitives which are written in p6.
Most will eventually be impl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	99	195	
==>d

This file contains p5 runtime primitives which are written in p6.
Most will eventually be impl <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	99	195	
==>d

This file contains p5 runtime primitives which are written in p6.
Most will eventually be impl <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9520	9625	
==>.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9520	9625	
==>.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3223	3325	
==>ke +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3223	3325	
==>ke +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3223	3325	
==>ke +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12563	12730	
==>, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13097	13264	
==>, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12557	12724	
==>, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13091	13258	
==>, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17515	17611	
==>0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	141	273	
==>as $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	141	273	
==>as $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7341	7441	
==>\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7341	7441	
==>\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7341	7441	
==>\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4797	4942	
==>[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4647	4789	
==>[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13355	13447	
==>ribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13355	13447	
==>ribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13355	13447	
==>ribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6915	7047	
==>e => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Para <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11470	11602	
==>e => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Para <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12268	12400	
==>e => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Para <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12995	13127	
==>e => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Para <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15173	15273	
==>b { -r $iso and -M $iso <= -M $initrd_gz and -M $iso <= -M "$cdroot/boot/grub/menu.lst" },
  using  = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3195	3329	
==>le;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=h <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3195	3329	
==>le;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7597	7685	
==>S
## ----------------------------------------------------------------------------

## NOT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7597	7685	
==>S
## ----------------------------------------------------------------------------

## NOT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7597	7685	
==>S
## ----------------------------------------------------------------------------

## NOT <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2789	3050	
==>e)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh. <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2789	3050	
==>e)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh. <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1899	2018	
==>* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub set <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28091	28190	
==>)>

This method returns all Message Variable names and values of this object as
a hash ref.

=item C <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28091	28190	
==>)>

This method returns all Message Variable names and values of this object as
a hash ref.

=item C <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17612	17805	
==>'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17891	18084	
==>'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22262	22364	
==>{chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22262	22364	
==>{chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22262	22364	
==>{chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	625	758	
==>x          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	722	855	
==>x          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2522	2633	
==>thods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2522	2633	
==>thods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2522	2633	
==>thods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	949	1054	
==>cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	949	1054	
==>cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	949	1054	
==>cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33994	34090	
==>hat are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38544	38640	
==>hat are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1675	1801	
==>params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method key <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1675	1801	
==>params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1710	1811	
==>t;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1710	1811	
==>t;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1946	2047	
==>t;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19217	19316	
==>node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

= <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19217	19316	
==>node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

= <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	982	1076	
==>sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is expo <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	982	1076	
==>sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is expo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	121	368	
==>ext-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	121	368	
==>ext-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1858	1960	
==>s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1858	1960	
==>s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1858	1960	
==>s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4683	4782	
==>HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4683	4782	
==>HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd ret <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	3399	3496	
==>pected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $r <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3457	3554	
==>pected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1633	1730	
==>ndex, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5328	5445	
==>r::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10983	11100	
==>r::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $se <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27899	27995	
==>a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32451	32547	
==>a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This me <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31543	31639	
==>a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2223	2333	
==>le->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2223	2333	
==>le->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2223	2333	
==>le->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	107	210	
==>r Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex blo <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	107	210	
==>r Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex blo <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10399	10514	
==>TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/te <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10399	10514	
==>TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/te <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6019	6117	
==>⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5149	5247	
==>⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6019	6117	
==>⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5149	5247	
==>⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18653	18751	
==>s is already found in the class), set the
C<strict> attribute to 2; the class above would render as <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6007	6112	
==>ASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6007	6112	
==>ASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global va <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6007	6112	
==>ASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global va <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4527	4629	
==>$span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.inter <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4527	4629	
==>$span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.inter <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1268	1372	
==>s

All nodes as well as a few other objects are implemented as one of three ADTs.

=over 4

=item Unit

A <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6738	6828	
==>an Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

T <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8807	8897	
==>an Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

T <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6738	6828	
==>an Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

T <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8807	8897	
==>an Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

T <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10051	10173	
==>',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defin <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10051	10173	
==>',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1753	1866	
==>ndow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@tex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1753	1866	
==>ndow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@tex <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1753	1866	
==>ndow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8956	9072	
==>de }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8956	9072	
==>de }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8956	9072	
==>de }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18962	19059	
==>hing in the real world accurately, and it
can support a complete SQL emulation layer on top of it, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18962	19059	
==>hing in the real world accurately, and it
can support a complete SQL emulation layer on top of it, <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4714	4905	
==>k->new(
                        App->new(
                            Sym->new('&repeatedly_apply_and_accum'),
                            Sym->new('&f'),
                            App->new( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10427	10539	
==>(*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10427	10539	
==>(*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $c <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1160	1269	
==>pt '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unles <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1160	1269	
==>pt '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unles <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8868	9011	
==>_dir( $inst_pkg->package )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $po <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9072	9191	
==>n sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print " <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12928	13041	
==>n sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12928	13041	
==>n sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print " <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	702	803	
==>` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is primitive <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5266	5378	
==>~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5266	5378	
==>~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5266	5378	
==>~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO( <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14928	15018	
==>ays
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::E <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14928	15018	
==>ays
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::E <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15312	15458	
==>params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('$repr' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2759	2864	
==>ed by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2759	2864	
==>ed by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1908	2006	
==>depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) return <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1966	2064	
==>depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1758	1883	
==>}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1758	1883	
==>}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1758	1883	
==>}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	16178	16265	
==>ctical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.n <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16236	16323	
==>ctical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4972	5069	
==>>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4972	5069	
==>>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obje <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4972	5069	
==>>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obje <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5813	5909	
==>d. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($eve <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5813	5909	
==>d. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($eve <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	159	278	
==>cket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $buck <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	159	278	
==>cket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $buck <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4604	4758	
==>apture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constan <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4464	4609	
==>apture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constan <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1673	1803	
==>def)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1673	1803	
==>def)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defa <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1673	1803	
==>def)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3850	3997	
==>pe;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3850	3997	
==>pe;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	212	310	
==>primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	212	310	
==>primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	212	310	
==>primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11933	12067	
==>b wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2394	2523	
==>b wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9166	9295	
==>b wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2394	2523	
==>b wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9166	9295	
==>b wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	804	911	
==>le.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# I <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	804	911	
==>le.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# I <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12764	12880	
==>ter
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brac <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6239	6355	
==>ter
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brac <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5608	5713	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5608	5713	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5608	5713	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2291	2412	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $de <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9063	9184	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2291	2412	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $de <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9063	9184	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $de <==
5	/Users/nnunley/pugs/examples/hop6/Stream.pm	543	646	
==>ead($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8591	8696	
==>operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6125	6227	
==>operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11869	12014	
==>m;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11869	12014	
==>m;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1597	1687	
==>LLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1597	1687	
==>LLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1597	1687	
==>LLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2262	2376	
==>$new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2262	2376	
==>$new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2262	2376	
==>$new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $:: <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1521	1633	
==>urn( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1521	1633	
==>urn( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3757	3882	
==>') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALK <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3757	3882	
==>') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALK <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3757	3882	
==>') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALK <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7186	7273	
==>ntent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7186	7273	
==>ntent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2851	3002	
==>), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ), <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3139	3282	
==>), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ), <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9557	9700	
==>), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ), <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3139	3282	
==>), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ), <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9557	9700	
==>), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( 
        $node, 
        optional( sub{ goto $alt } ), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2373	2473	
==>m_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2373	2473	
==>m_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2373	2473	
==>m_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined { <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2879	2967	
==>\$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_n <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2879	2967	
==>\$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_n <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10006	10186	
==>urns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods')) <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6977	7142	
==>urns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods')) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10115	10212	
==>Noop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10115	10212	
==>Noop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10115	10212	
==>Noop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVa <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6426	6522	
==>onstructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Ar <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6426	6522	
==>onstructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Ar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8143	8250	
==>%users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(nor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8143	8250	
==>%users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(nor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2001	2099	
==>=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2001	2099	
==>=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retur <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2001	2099	
==>=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	861	963	
==>X - optimization - pass the string index around, 

# XXX   instead of copying the whole string to $tail <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1226	1327	
==>X - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	825	926	
==>X - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1226	1327	
==>X - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31487	31587	
==>it is ahead.

=item down

Whether this object creates a deeper scope (like an OPEN).

=item ifthen

W <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10408	10546	
==>\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6749	6887	
==>\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7598	7736	
==>\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9498	9600	
==>$block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# li <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9498	9600	
==>$block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2789	2880	
==>rsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{' <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6241	6332	
==>rsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2789	2880	
==>rsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2789	2880	
==>rsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	381	509	
==>= @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    retu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9799	9927	
==>= @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5044	5168	
==>LS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5044	5168	
==>LS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5044	5168	
==>LS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9359	9492	
==>, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    } <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9359	9492	
==>, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    } <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	734	832	
==>cks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operate <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	734	832	
==>cks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operate <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3907	4002	
==>nt};
		return { require_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler::Rule->compil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5558	5664	
==>mp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implemen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5558	5664	
==>mp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implemen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5558	5664	
==>mp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implemen <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6869	6960	
==>Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writt <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6869	6960	
==>Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4028	4180	
==>le readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4028	4180	
==>le readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:c <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4028	4180	
==>le readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:c <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9861	9974	
==>racter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
rule HexEscapeS <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7306	7418	
==>-> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft.pod 8655.  In the List section.
multi Arr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6215	6334	
==>method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24525	24617	
==>side from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin> <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23289	23381	
==>side from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24525	24617	
==>side from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23289	23381	
==>side from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	10	108	
==>ass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	10	108	
==>ass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	10	108	
==>ass::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUI <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1404	1501	
==>oclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1462	1559	
==>oclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2000	2092	
==>inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2000	2092	
==>inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2000	2092	
==>inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::i <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16174	16401	
==>k->new($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1848	1978	
==>1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## -------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6548	6652	
==>g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6548	6652	
==>g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6548	6652	
==>g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_ <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8948	9049	
==>0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7825	7923	
==>( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return emit($_[0]);
}
sub node::m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11405	11498	
==>vides more predictable 
behavior to class consturction because it isolates the Role specifc
co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11405	11498	
==>vides more predictable 
behavior to class consturction because it isolates the Role specifc
co <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11405	11498	
==>vides more predictable 
behavior to class consturction because it isolates the Role specifc
co <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2783	3042	
==>($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_lin <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2783	3042	
==>($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2459	2554	
==>erlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2459	2554	
==>erlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2459	2554	
==>erlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5110	5220	
==>> Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.double_quoted>
            { return { dou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4075	4179	
==>'t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4075	4179	
==>'t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4075	4179	
==>'t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you c <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1916	2013	
==>uiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new(
				type => $type,
				struct_equ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	480	613	
==>../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .me <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	480	613	
==>../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3340	3456	
==>ength $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3340	3456	
==>ength $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3340	3456	
==>ength $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21908	22023	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # ev <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18329	18444	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # ev <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	27	119	
==>less $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	27	119	
==>less $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	27	119	
==>less $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7370	7494	
==>p::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7121	7243	
==>p::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4221	4331	
==>" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4221	4331	
==>" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4221	4331	
==>" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3681	3854	
==>le tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3681	3854	
==>le tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3681	3854	
==>le tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14423	14527	
==>") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14423	14527	
==>") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1904	2012	
==>ow(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1904	2012	
==>ow(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1904	2012	
==>ow(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3018	3120	
==>hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3018	3120	
==>hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@heade <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4953	5061	
==>elf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4953	5061	
==>elf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4953	5061	
==>elf->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->bo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	746	854	
==>$class = shift;
    return $class->no_match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39917	40009	
==>hat takes
another Relation::Example as its C<$other> argument and combines it with the
invoca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1131	1260	
==>names; better use TABLE instead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27365	27464	
==>nges to its attributes; they
must all be set when the object is constructed.  If you want to
concept <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34891	34990	
==>nges to its attributes;
they must all be set when the object is constructed.  If you want to
concept <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27365	27464	
==>nges to its attributes; they
must all be set when the object is constructed.  If you want to
concept <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34891	34990	
==>nges to its attributes;
they must all be set when the object is constructed.  If you want to
concept <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1549	1660	
==>n $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1815	1919	
==>red to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declarat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1815	1919	
==>red to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declarat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1815	1919	
==>red to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declarat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1325	1416	
==>piler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b](b)');
my $rpcr2 = Pugs::Compi <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5919	6037	
==>nal ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &contin <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5919	6037	
==>nal ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &contin <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6573	6667	
==>ing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6573	6667	
==>ing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8770	8864	
==>ing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1813	1932	
==>t $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has B <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1813	1932	
==>t $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has B <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	994	1097	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	994	1097	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	994	1097	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	155	291	
==>ams;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$nam <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	155	291	
==>ams;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$nam <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8366	8490	
==>};
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12281	12401	
==>};
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12281	12401	
==>};
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1060	1173	
==>f there are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      ev <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1356	1464	
==>( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1356	1464	
==>( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8421	8519	
==>y $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `ne <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8421	8519	
==>y $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `ne <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	71	162	
==>od addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $ <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	71	162	
==>od addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13276	13427	
==>if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13276	13427	
==>if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$se <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13276	13427	
==>if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$se <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	190	305	
==>'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Split <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	190	305	
==>'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Split <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4673	4776	
==>}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub c <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4673	4776	
==>}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub c <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37609	37701	
==>the source Relations,
such that all common attribute names and corresponding common tuple val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42158	42250	
==>the source Relations,
such that all common attribute names and corresponding common tuple val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41808	41900	
==>the source Relations,
such that all common attribute names and corresponding common tuple val <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13081	13200	
==>1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21131	21250	
==>1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13360	13479	
==>1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21410	21529	
==>1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14261	14359	
==>te_menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu.lst\"",
  ensure => sub { -r "$ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7100	7200	
==>ing a Regex

To have the parser work on a specific regex, you can do use any of the
following methods <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1869	1961	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0| <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1832	1924	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0| <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1869	1961	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0| <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1832	1924	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0| <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4259	4391	
==>]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4129	4258	
==>]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5059	5171	
==>hod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5059	5171	
==>hod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_typ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5059	5171	
==>hod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_typ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	972	1069	
==>f->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$sel <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	972	1069	
==>f->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5331	5427	
==>ls to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5331	5427	
==>ls to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uni <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5331	5427	
==>ls to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6192	6319	
==>w;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6192	6319	
==>w;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6192	6319	
==>w;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value:: <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1158	1266	
==>tart_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" }, <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1158	1266	
==>tart_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" }, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10296	10421	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'imme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10575	10700	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'imme <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	898	1009	
==>) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


su <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18821	18917	
==>s already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<usern <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18821	18917	
==>s already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<usern <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1555	1661	
==>ap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1555	1661	
==>ap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1555	1661	
==>ap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PL <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1323	1414	
==>::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1323	1414	
==>::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	329	427	
==>ion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	329	427	
==>ion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * S <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	329	427	
==>ion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * S <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20567	20664	
==>pen a program, it will search for language files specific to the program
in the order you chose so <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20567	20664	
==>pen a program, it will search for language files specific to the program
in the order you chose so <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12540	12688	
==>h( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12540	12688	
==>h( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_para <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12540	12688	
==>h( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_para <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1180	1268	
==>'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1400	1488	
==>'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13835	13954	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13835	13954	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13835	13954	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_metho <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7856	7957	
==>QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!chan <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7856	7957	
==>QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!chan <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2756	2881	
==>1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], name <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	123	230	
==>ing the events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one in <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26735	26830	
==>ew object is set from the named parameter
$msg_key (a string); the optional named parameter %msg <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26735	26830	
==>ew object is set from the named parameter
$msg_key (a string); the optional named parameter %msg <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	24610	24703	
==>arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9927	10058	
==>proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9927	10058	
==>proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9927	10058	
==>proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          r <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	457	558	
==>??
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	457	558	
==>??
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it re <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1436	1535	
==>ss Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1436	1535	
==>ss Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3751	3849	
==>(join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3751	3849	
==>(join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3751	3849	
==>(join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @s <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1192	1333	
==>}
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    el <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4431	4572	
==>}
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    el <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1192	1333	
==>}
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    el <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4431	4572	
==>}
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    el <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	529	620	
==>onstant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branches';
use con <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	2	106	
==>e v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipp <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	2	106	
==>e v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	580	682	
==>my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	580	682	
==>my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	580	682	
==>my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2857	2968	
==>$line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2857	2968	
==>$line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2857	2968	
==>$line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1162	1262	
==>nd_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1162	1262	
==>nd_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3220	3333	
==>turn 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3220	3333	
==>turn 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7446	7549	
==>sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7446	7549	
==>sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7446	7549	
==>sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pac <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12973	13090	
==>r );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; res <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16450	16567	
==>r );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; res <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15812	15929	
==>r );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; res <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	748	869	
==>($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $schem <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	715	836	
==>($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $schem <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36489	36583	
==>source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
emp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41038	41132	
==>source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
emp <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40652	40746	
==>source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
emp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4408	4513	
==>and_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4408	4513	
==>and_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4408	4513	
==>and_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { co <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35624	35717	
==>-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40174	40267	
==>-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This m <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	848	961	
==>1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.pare <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	848	961	
==>1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.pare <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2328	2428	
==>b JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2328	2428	
==>b JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2328	2428	
==>b JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18970	19091	
==>$ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{z <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20328	20449	
==>$ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{z <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3611	3724	
==>i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3611	3724	
==>i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3611	3724	
==>i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got t <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	155	262	
==>rp 'confess';

use base 'type';

# equality

sub equal_to     { confess 'You must override equal_to in ' . ( <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4392	4492	
==>method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4392	4492	
==>method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Se <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5264	5362	
==>method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5264	5362	
==>method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10001	10161	
==>@names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10001	10161	
==>@names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10001	10161	
==>@names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listi <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5460	5543	
==>65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5460	5543	
==>65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); } <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	819	951	
==>$time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      } <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	819	951	
==>$time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8620	8735	
==>tant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8620	8735	
==>tant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8620	8735	
==>tant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3505	3604	
==>:name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3505	3604	
==>:name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3505	3604	
==>:name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cl <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	931	1026	
==>ead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "fo <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	931	1026	
==>ead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "fo <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	153	265	
==>okenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	153	265	
==>okenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	394	490	
==>JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNativ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	394	490	
==>JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNativ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	394	490	
==>JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNativ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4809	4910	
==>te_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4809	4910	
==>te_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4809	4910	
==>te_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Could <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6364	6522	
==>r->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6364	6522	
==>r->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6364	6522	
==>r->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _ <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1114	1210	
==>export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1114	1210	
==>export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2267	2394	
==>$tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2267	2394	
==>$tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2267	2394	
==>$tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    i <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7304	7405	
==>dy was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7304	7405	
==>dy was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	249	361	
==>ace, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	249	361	
==>ace, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	249	361	
==>ace, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = P <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5728	5830	
==>t, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5728	5830	
==>t, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2479	2598	
==>,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0, <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2479	2598	
==>,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1925	2013	
==>ke sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1925	2013	
==>ke sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mod <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1925	2013	
==>ke sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mod <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10081	10189	
==>ndex ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1349	1457	
==>amed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10081	10189	
==>ndex ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_ <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1349	1457	
==>amed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positi <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1558	1666	
==>amed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10923	11030	
==>om >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11352	11459	
==>om >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->objec <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3182	3281	
==>lX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3182	3281	
==>lX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3182	3281	
==>lX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12455	12571	
==>ar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12455	12571	
==>ar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12455	12571	
==>ar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14387	14482	
==>in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14387	14482	
==>in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	805	916	
==>( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub gre <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	805	916	
==>( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub gre <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	506	631	
==>o strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7229	7350	
==>act_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7229	7350	
==>act_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2622	2715	
==>uthors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2622	2715	
==>uthors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1935	2036	
==>tatus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MA <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1935	2036	
==>tatus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MA <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11622	11735	
==>e(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11622	11735	
==>e(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11622	11735	
==>e(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method ( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14552	14647	
==>use case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering t <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14552	14647	
==>use case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering t <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12644	12761	
==>Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            { <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12644	12761	
==>Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8613	8708	
==>PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8613	8708	
==>PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8613	8708	
==>PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6955	7051	
==>ed' versions. 



The rule() constructor provides an interface between the 

low-level functional <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36467	36562	
==>ence in which any two source relations are
combined is inconsequential.  A trivial case is where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41016	41111	
==>ence in which any two source relations are
combined is inconsequential.  A trivial case is where <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40630	40725	
==>ence in which any two source relations are
combined is inconsequential.  A trivial case is where <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6718	6811	
==>ed' versions. 

The rule() constructor provides an interface between the 
low-level functional <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2781	2959	
==>l->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2781	2959	
==>l->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'H <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2781	2959	
==>l->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'H <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4262	4363	
==>interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]< <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4262	4363	
==>interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3688	3788	
==>pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3688	3788	
==>pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3688	3788	
==>pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3893	3989	
==>compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4077	4173	
==>compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9570	9738	
==>_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass the string i <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	398	532	
==>s 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    p <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	398	532	
==>s 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    p <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1548	1639	
==>th  = $parent.depth() + 1;
}

## ----------------------------------------------------------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1548	1639	
==>th  = $parent.depth() + 1;
}

## ----------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5930	6061	
==>e, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5930	6061	
==>e, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5930	6061	
==>e, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2552	2682	
==>trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <it <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2552	2682	
==>trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <it <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	3857	4056	
==>d($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = S <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3857	4056	
==>d($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9382	9539	
==>' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9382	9539	
==>' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9382	9539	
==>' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shi <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2950	3050	
==>ens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=h <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2950	3050	
==>ens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4452	4549	
==>_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4452	4549	
==>_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4452	4549	
==>_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.a <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2947	3089	
==>' => closure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symb <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4756	4871	
==>' => closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1913	2013	
==>6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1913	2013	
==>6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMo <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1913	2013	
==>6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMo <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	1638	1747	
==>BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5115	5224	
==>BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.val <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4045	4154	
==>BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.val <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10601	10692	
==>arranged correctly
depending on their types, that their attributes have reasonable values, a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10601	10692	
==>arranged correctly
depending on their types, that their attributes have reasonable values, a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10327	10477	
==>toping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        de <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10327	10477	
==>toping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8768	8870	
==>x:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8768	8870	
==>x:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {... <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8768	8870	
==>x:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13009	13140	
==>y $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13009	13140	
==>y $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13009	13140	
==>y $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item = <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4274	4378	
==>"Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4274	4378	
==>"Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14582	14765	
==>st be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14582	14765	
==>st be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            }, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14582	14765	
==>st be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            }, <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	5388	5547	
==>g start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.e <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5388	5547	
==>g start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4443	4575	
==>name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are ask <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4443	4575	
==>name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are ask <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4443	4575	
==>name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are ask <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2896	3000	
==>n $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2896	3000	
==>n $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6032	6136	
==>y ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6032	6136	
==>y ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6032	6136	
==>y ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body) <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	443	536	
==>iven below, although Haskellesque, are not pure functions.  They only
# represent transformati <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	443	536	
==>iven below, although Haskellesque, are not pure functions.  They only
# represent transformati <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15589	15706	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
} <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19066	19183	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3265	3370	
==>cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3265	3370	
==>cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3265	3370	
==>cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3443	3567	
==>}

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3443	3567	
==>}

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3443	3567	
==>}

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $l <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2731	2845	
==>f $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33424	33521	
==>ol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>)

=head2 reg_any

Family: re <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24950	25046	
==>mber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29502	29598	
==>mber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28414	28510	
==>mber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12482	12574	
==>y Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_perso <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12482	12574	
==>y Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_perso <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	718	820	
==>!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	718	820	
==>!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	718	820	
==>!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2J <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39113	39204	
==>hese Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39113	39204	
==>hese Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14586	14681	
==>, and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14586	14681	
==>, and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
val <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	259	349	
==>rgs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	259	349	
==>rgs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refere <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	259	349	
==>rgs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refere <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1977	2067	
==>chet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Gram <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2066	2156	
==>chet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Gram <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14416	14505	
==>ass.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14416	14505	
==>ass.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14416	14505	
==>ass.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class. <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15549	15654	
==>atever {
    my($x)=@_;
    return $x if !p6_is_perl6_object($x);
    $x->as_perl5_whatever();
}

my $as_p <==
5	/Users/nnunley/pugs/util/run-smoke.pl	192	291	
==>d = 0;
for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed+ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1167	1265	
==>il2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1167	1265	
==>il2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1167	1265	
==>il2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9142	9243	
==>x) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Juncti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9142	9243	
==>x) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Juncti <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9142	9243	
==>x) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Juncti <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18163	18276	
==>p::Cut" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token == ": <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	286	386	
==>P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	286	386	
==>P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1326	1419	
==>er( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1326	1419	
==>er( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13425	13522	
==>p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13425	13522	
==>p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13425	13522	
==>p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6631	6721	
==>5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions. <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6631	6721	
==>5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7605	7707	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7605	7707	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7605	7707	
==>thods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1742	1837	
==>are: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role par <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1742	1837	
==>are: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role par <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	763	873	
==>r undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	763	873	
==>r undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1685	1787	
==>ss -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1890	1992	
==>ss -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1953	2055	
==>ss -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12200	12295	
==>ter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12200	12295	
==>ter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	888	994	
==>PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3ap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	888	994	
==>PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3ap <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	888	994	
==>PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3ap <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19130	19232	
==>assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15551	15653	
==>assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2682	2789	
==>UTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2682	2789	
==>UTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2682	2789	
==>UTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled w <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6179	6277	
==>use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6179	6277	
==>use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13933	14043	
==>ntrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13933	14043	
==>ntrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13933	14043	
==>ntrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	400	507	
==>atch tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify wit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	400	507	
==>atch tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify wit <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2802	2958	
==>ns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3422	3578	
==>ns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2802	2958	
==>ns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3422	3578	
==>ns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9445	9575	
==>at(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5590	5714	
==>_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5590	5714	
==>_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        na <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5590	5714	
==>_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        na <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2135	2237	
==>grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2135	2237	
==>grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     } <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3687	3804	
==>s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_S <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3687	3804	
==>s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_S <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	537	654	
==>s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20781	20873	
==>ly easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20781	20873	
==>ly easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2329	2451	
==>bel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2329	2451	
==>bel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $insta <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2329	2451	
==>bel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $insta <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5261	5365	
==>p:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Pat <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5261	5365	
==>p:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Pat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3277	3415	
==>]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matches[1]{abor <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3172	3307	
==>]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matches[1]{abor <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23	123	
==>id

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23	123	
==>id

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelu <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23	123	
==>id

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35949	36087	
==>@body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35949	36087	
==>@body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative le <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35949	36087	
==>@body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative le <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	819	924	
==>f the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host, <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	819	924	
==>f the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1480	1572	
==>pendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHei <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1480	1572	
==>pendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHei <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1480	1572	
==>pendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHei <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20208	20297	
==>uthorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20208	20297	
==>uthorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
h <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4969	5174	
==>emselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4969	5174	
==>emselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5844	5947	
==>@{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaratio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5844	5947	
==>@{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaratio <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5844	5947	
==>@{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaratio <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9898	10054	
==>::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $rea <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	466	616	
==>::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $rea <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	466	616	
==>::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $rea <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10689	10775	
==>string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $st <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10689	10775	
==>string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $st <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8340	8455	
==>nd();

Returns the command that runs the test.  Combine this with _switches()
to build a command line.

Typically th <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6807	6903	
==>ad1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>ste <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4159	4255	
==>ad1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>ste <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6807	6903	
==>ad1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>ste <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4159	4255	
==>ad1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>ste <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40182	40276	
==>51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText th <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40182	40276	
==>51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText th <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10756	10911	
==>n, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb. <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10756	10911	
==>n, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2493	2597	
==>init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mult <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2493	2597	
==>init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mult <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2493	2597	
==>init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mult <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14784	14881	
==>t $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RES <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14784	14881	
==>t $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RES <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1894	1988	
==>^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1894	1988	
==>^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1894	1988	
==>^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12549	12696	
==>\$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13083	13230	
==>\$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12543	12690	
==>\$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13077	13224	
==>\$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6227	6321	
==>en[cs]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3657	3756	
==>od(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3657	3756	
==>od(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3657	3756	
==>od(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role-> <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5	91	
==>ge Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	136	222	
==>ge Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3919	4016	
==>'s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3919	4016	
==>'s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3919	4016	
==>'s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3809	3903	
==>perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module whi <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3809	3903	
==>perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module whi <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5851	5947	
==>he
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5851	5947	
==>he
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8048	8144	
==>he
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24216	24310	
==>BMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Add <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24216	24310	
==>BMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Add <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4788	4898	
==>ay}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4788	4898	
==>ay}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4788	4898	
==>ay}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4030	4132	
==>") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $va <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4030	4132	
==>") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $va <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	877	1005	
==>y $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	877	1005	
==>y $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6091	6195	
==>alization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6091	6195	
==>alization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6091	6195	
==>alization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10419	10565	
==>asses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_u <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10419	10565	
==>asses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1358	1448	
==>l-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1358	1448	
==>l-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1358	1448	
==>l-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(p <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	13964	14088	
==>mbining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17441	17565	
==>mbining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5405	5519	
==>tcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5405	5519	
==>tcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5405	5519	
==>tcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8718	8824	
==>ss tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $T <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8776	8882	
==>ss tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	404	509	
==>$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	404	509	
==>$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	404	509	
==>$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3487	3630	
==>s      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3487	3630	
==>s      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (us <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3487	3630	
==>s      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (us <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14326	14417	
==>target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14326	14417	
==>target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15429	15556	
==>ot inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15423	15550	
==>ot inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9467	9560	
==>o qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9467	9560	
==>o qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9467	9560	
==>o qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) an <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3193	3302	
==>.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

meth <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3193	3302	
==>.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

meth <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2787	2887	
==>c(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2787	2887	
==>c(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.k <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2787	2887	
==>c(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.k <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2619	2710	
==>via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Goo <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2619	2710	
==>via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Goo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6506	6646	
==>oints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abo <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6299	6431	
==>oints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2554	2649	
==>in package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2554	2649	
==>in package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=po <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2554	2649	
==>in package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=po <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5943	6043	
==>ect>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normali <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5943	6043	
==>ect>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normali <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7679	7772	
==>=> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captur <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9607	9700	
==>=> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7667	7760	
==>=> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captur <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	16454	16573	
==>ion.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17424	17543	
==>ion.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19931	20050	
==>ion.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20901	21020	
==>ion.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2790	2894	
==>ntf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tre <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10388	10511	
==>[ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_a <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10388	10511	
==>[ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2361	2460	
==>\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2361	2460	
==>\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2361	2460	
==>\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit} <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7605	7729	
==>rlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $conte <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7605	7729	
==>rlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $conte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2185	2281	
==>rn p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2185	2281	
==>rn p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "D <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2185	2281	
==>rn p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "D <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2104	2210	
==>os), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2092	2198	
==>os), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5976	6078	
==>o::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5976	6078	
==>o::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5976	6078	
==>o::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2706	2806	
==>unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    } <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2706	2806	
==>unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    } <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5102	5216	
==>{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"END_DIE <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	2903	3014	
==>{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "END <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1104	1208	
==>are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1104	1208	
==>are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are pi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1104	1208	
==>are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are pi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	450	556	
==>ent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2604	2710	
==>{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{' <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	450	556	
==>ent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was l <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2604	2710	
==>{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2604	2710	
==>{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18532	18686	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18811	18965	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \& <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	216	311	
==>lass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($cani <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	216	311	
==>lass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($cani <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	216	311	
==>lass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($cani <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	311	422	
==>structors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	856	967	
==>structors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generi <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	311	422	
==>structors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	856	967	
==>structors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generi <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	856	967	
==>structors. 
#   - from_num_range() is a numeric range. It accepts a 'step' value.
#   - from_range() is a generi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	218	351	
==>er qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	104	230	
==>er qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    re <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	104	230	
==>er qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    re <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7653	7755	
==>d' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element (' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7653	7755	
==>d' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element (' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13263	13374	
==>har => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # alpha POSIX cl <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	922	1028	
==>'$?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnings;

use base 'cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	428	520	
==>,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'ver <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	428	520	
==>,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'ver <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	428	520	
==>,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'ver <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15694	15806	
==>y ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19171	19283	
==>y ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        headin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5616	5723	
==>ines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section in <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5616	5723	
==>ines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section in <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4507	4639	
==>hed) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	433	530	
==>my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!see <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	433	530	
==>my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!see <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6214	6310	
==>rting is still pretty minimal and the 
parser is not very forgiving about whitespace in some situ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6214	6310	
==>rting is still pretty minimal and the 
parser is not very forgiving about whitespace in some situ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29612	29725	
==>self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29612	29725	
==>self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29612	29725	
==>self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2840	2943	
==>sechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basech <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2840	2943	
==>sechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basech <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23697	23894	
==>lar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23697	23894	
==>lar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23697	23894	
==>lar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5835	5938	
==>g

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5835	5938	
==>g

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5582	5684	
==>t($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# loo <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4712	4814	
==>t($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# loo <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5582	5684	
==>t($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# loo <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4712	4814	
==>t($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# loo <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	701	796	
==>d($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl:: <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10831	10992	
==>> 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs addition
            # this addition prints out the differ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	3312	3426	
==>----------------------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40722	40829	
==>= Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40722	40829	
==>= Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40722	40829	
==>= Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @ <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	153	274	
==>reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to l <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	153	274	
==>reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2194	2300	
==>sh
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2194	2300	
==>sh
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2194	2300	
==>sh
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in t <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13786	13900	
==>>enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param { <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1266	1380	
==>>enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2424	2533	
==>itle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 }) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2424	2533	
==>itle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 }) <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2771	2880	
==>itle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 }) <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12268	12380	
==>$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $nan } <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7619	7714	
==>t(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member) <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6749	6844	
==>t(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7619	7714	
==>t(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member) <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6749	6844	
==>t(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7225	7345	
==>iteral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3829	3949	
==>iteral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4678	4798	
==>iteral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15562	15653	
==>ally recursive, they will easily be
able handle arbitrarily complex data structures automati <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15620	15711	
==>ally recursive, they will easily be
able handle arbitrarily complex data structures automati <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5963	6065	
==>rent ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) re <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5963	6065	
==>rent ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12716	12800	
==>Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12716	12800	
==>Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12716	12800	
==>Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception) <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	151	254	
==>his is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use Con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8758	8860	
==>ames5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8758	8860	
==>ames5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defa <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8758	8860	
==>ames5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defa <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	69	165	
==>e Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21623	21714	
==>tabase Independence".  However, the level of DBI's provided independence
is I<Database Drive <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21623	21714	
==>tabase Independence".  However, the level of DBI's provided independence
is I<Database Drive <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23998	24105	
==>w< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, & <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20419	20526	
==>w< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, & <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	722	821	
==>en creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<C <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	722	821	
==>en creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<C <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1362	1452	
==>sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1362	1452	
==>sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (arg <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1362	1452	
==>sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (arg <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	416	586	
==>> $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	416	586	
==>> $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7237	7369	
==>, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7237	7369	
==>, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7237	7369	
==>, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	86	192	
==>ss in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	86	192	
==>ss in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	86	192	
==>ss in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map( <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35789	35883	
==>Relation as its C<$other> argument and combines it with the
invocant relation into a new Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40339	40433	
==>Relation as its C<$other> argument and combines it with the
invocant relation into a new Relati <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	180	290	
==>ext) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	180	290	
==>ext) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	180	290	
==>ext) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5251	5345	
==>urns a hash reference representing the configuration data

=item write

The C<write> method the <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5251	5345	
==>urns a hash reference representing the configuration data

=item write

The C<write> method the <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5805	5931	
==>ribute->new('@:MRO')             => list->new(),
            attribute->new('@:subclasses')      => list->new(),
            at <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10309	10402	
==>t.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inserte <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8202	8295	
==>t.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inserte <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10309	10402	
==>t.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inserte <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8202	8295	
==>t.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inserte <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	434	559	
==>ant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	434	559	
==>ant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy an <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	434	559	
==>ant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2672	2785	
==>le);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($bas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2672	2785	
==>le);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($bas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2578	2713	
==>ine!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2578	2713	
==>ine!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2578	2713	
==>ine!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a c <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5784	5897	
==>\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5772	5885	
==>\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	667	774	
==>lass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	667	774	
==>lass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	667	774	
==>lass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10975	11069	
==>er returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B< <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10975	11069	
==>er returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B< <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21456	21550	
==>ttributes, though several attributes may store values of the same class;
every Relation tuple m <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26008	26102	
==>ttributes, though several attributes may store values of the same class;
every Relation tuple m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17938	18031	
==>o_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17938	18031	
==>o_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
M <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17938	18031	
==>o_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3134	3266	
==>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3134	3266	
==>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #wa <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3134	3266	
==>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #wa <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13383	13511	
==>d charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    g <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	482	597	
==>$args = ( %$args, @_ ) if @_;
    $args;
}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6631	6758	
==>end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless de <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6631	6758	
==>end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless de <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6631	6758	
==>end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless de <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1233	1342	
==>turns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1291	1400	
==>turns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	821	924	
==>le );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

s <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	821	924	
==>le );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

s <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6533	6636	
==>self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6533	6636	
==>self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2128	2265	
==>ext alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2542	2676	
==>ext alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2058	2192	
==>ext alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2542	2676	
==>ext alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7961	8066	
==>r = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1)}eg;
    return $ver;
}

=head2 assert_ghc_pkg

Assert tha <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13479	13586	
==>object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $mon <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13479	13586	
==>object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $mon <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30868	30961	
==>s are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35418	35511	
==>s are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34609	34702	
==>s are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5519	5625	
==>e.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.re <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5519	5625	
==>e.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	389	491	
==>subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	389	491	
==>subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	389	491	
==>subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2065	2250	
==>sed,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnos <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9311	9398	
==>or::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9506	9593	
==>or::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	9701	9788	
==>or::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new( <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11357	11444	
==>or::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6172	6263	
==>::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6172	6263	
==>::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6172	6263	
==>::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8604	8718	
==>_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8600	8714	
==>_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12419	12520	
==>onfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12419	12520	
==>onfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12419	12520	
==>onfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8788	8891	
==>params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8788	8891	
==>params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8788	8891	
==>params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8989	9085	
==>be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0. <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8989	9085	
==>be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0. <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	193	289	
==>$rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	226	322	
==>$rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5299	5386	
==>};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5299	5386	
==>};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5299	5386	
==>};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12877	13073	
==>p::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13156	13352	
==>p::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13050	13187	
==>ant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13050	13187	
==>ant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13050	13187	
==>ant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6258	6360	
==>ox.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6258	6360	
==>ox.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6258	6360	
==>ox.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.re <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1378	1475	
==>ing (in public), the current
time and the text they said is saved.

If the (optional) role paramet <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1378	1475	
==>ing (in public), the current
time and the text they said is saved.

If the (optional) role paramet <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4398	4520	
==>sponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4398	4520	
==>sponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %! <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1818	1924	
==>cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1818	1924	
==>cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1818	1924	
==>cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16217	16360	
==>ndef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16217	16360	
==>ndef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a pri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16217	16360	
==>ndef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a pri <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30732	30833	
==>le has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30732	30833	
==>le has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2533	2685	
==>^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.inde <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2533	2685	
==>^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.inde <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5400	5497	
==>an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5400	5497	
==>an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6924	7021	
==>an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipp <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	476	593	
==>b     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	476	593	
==>b     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	59	160	
==>Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	59	160	
==>Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	59	160	
==>Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	21481	21661	
==>ram => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13805	13957	
==>ush @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            pu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3922	4058	
==>ush @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3922	4058	
==>ush @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        pu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3922	4058	
==>ush @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        pu <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	567	710	
==>, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	567	710	
==>, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12626	12737	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13634	13745	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15159	15270	
==>$other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3130	3255	
==>{
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $d <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3130	3255	
==>{
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	604	714	
==>b as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	604	714	
==>b as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnde <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	604	714	
==>b as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUnde <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30789	30881	
==>any duplicates following the transformation have been eliminated. 
Trivial cases are where C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35340	35431	
==>any duplicates following the transformation have been eliminated.
Trivial cases are where C< <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34531	34622	
==>any duplicates following the transformation have been eliminated.
Trivial cases are where C< <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2445	2571	
==>mlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2445	2571	
==>mlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	808	907	
==>.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	808	907	
==>.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra ne <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	808	907	
==>.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra ne <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14852	14976	
==>:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19020	19144	
==>:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1122	1220	
==>object belongs to a
package that is too close to the main namespace for your tastes, and
you want t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1122	1220	
==>object belongs to a
package that is too close to the main namespace for your tastes, and
you want t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1122	1220	
==>object belongs to a
package that is too close to the main namespace for your tastes, and
you want t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1084	1206	
==>an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contain <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2148	2270	
==>you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1084	1206	
==>an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contain <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2148	2270	
==>you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2148	2270	
==>you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11455	11560	
==>@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11455	11560	
==>@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args, <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11455	11560	
==>@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18957	19054	
==>n setting the referrer, this method removes the fragment from the
given URI if it is present, as m <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18957	19054	
==>n setting the referrer, this method removes the fragment from the
given URI if it is present, as m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13721	13897	
==>son.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13721	13897	
==>son.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7546	7642	
==>is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired w <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7546	7642	
==>is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1688	1811	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1688	1811	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1688	1811	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class & <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8356	8471	
==>and
      -M $initrd_gz <= -M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc an <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7679	7817	
==>s also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depend <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	980	1118	
==>s also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depend <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17465	17560	
==>s conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17465	17560	
==>s conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17465	17560	
==>s conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15055	15177	
==>ommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18901	19008	
==>DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top leve <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18901	19008	
==>DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top leve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6329	6429	
==>>class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '.. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11175	11275	
==>>class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '.. <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4933	5051	
==>ure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4933	5051	
==>ure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # i <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26817	26911	
==>is method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31369	31463	
==>is method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30407	30501	
==>is method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5445	5546	
==>::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5445	5546	
==>::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebl <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5445	5546	
==>::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5508	5601	
==>oo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9106	9199	
==>oo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4666	4786	
==>>() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4666	4786	
==>>() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->( <==
5	/Users/nnunley/pugs/util/graphfuncs.pl	1167	1276	
==>),"\n";
}
#print $g->as_png unless $Conf{no};

if ($Conf{nodes}) {
    print ::Y(\%nodes), "\n";
}

sub comp_c <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28536	28629	
==>ing.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" modu <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28536	28629	
==>ing.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" modu <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2669	2828	
==>?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    r <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2669	2828	
==>?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18396	18493	
==>1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18396	18493	
==>1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18396	18493	
==>1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MU <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1020	1119	
==>e block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1020	1119	
==>e block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5387	5495	
==>ess. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5387	5495	
==>ess. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5387	5495	
==>ess. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobb <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	531	631	
==>ormations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @ <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	531	631	
==>ormations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4706	4838	
==>$self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Car <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13131	13263	
==>$self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Car <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15742	15874	
==>$self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Car <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17230	17362	
==>$self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Car <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21913	22045	
==>$self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $self->type;
        Car <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3475	3594	
==>rd",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3475	3594	
==>rd",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# F <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3475	3594	
==>rd",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# F <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26165	26260	
==>PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warran <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26165	26260	
==>PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warran <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7944	8053	
==>classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7944	8053	
==>classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7944	8053	
==>classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3259	3364	
==>\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = gre <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3259	3364	
==>\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = gre <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2364	2482	
==>on", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick. <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2364	2482	
==>on", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	338	451	
==>... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	338	451	
==>... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is n <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	338	451	
==>... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2623	2759	
==>_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2623	2759	
==>_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2623	2759	
==>_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $ar <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1178	1295	
==>c}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        ret <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1117	1222	
==>c}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		ret <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	10262	10361	
==>d a plan. A plan is simply the number of tests which are
expected to run. This should be specified a <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10320	10419	
==>d a plan. A plan is simply the number of tests which are
expected to run. This should be specified a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1625	1722	
==>ans store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1625	1722	
==>ans store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "ele <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1625	1722	
==>ans store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "ele <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38033	38183	
==>$scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38033	38183	
==>$scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splic <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38033	38183	
==>$scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splic <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1398	1510	
==>et;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache3 <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1398	1510	
==>et;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache3 <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2930	3055	
==>"302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide defa <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2930	3055	
==>"302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide defa <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6644	6756	
==>a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6644	6756	
==>a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6644	6756	
==>a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10760	10862	
==>};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10760	10862	
==>};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $ke <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10760	10862	
==>};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $ke <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26830	26923	
==>g_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
pr <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26830	26923	
==>g_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5022	5126	
==>al @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5022	5126	
==>al @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5022	5126	
==>al @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8900	8993	
==>(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Per <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2725	2818	
==>(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Per <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	632	763	
==>THOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTE <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	632	763	
==>THOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTE <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22430	22542	
==>x->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    my ($clas <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10242	10337	
==>, such as that mandatory
constructor arguments are provided and that they are of the correct
con <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10242	10337	
==>, such as that mandatory
constructor arguments are provided and that they are of the correct
con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12749	12875	
==>},
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not ex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12749	12875	
==>},
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not ex <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12749	12875	
==>},
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not ex <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18088	18187	
==>':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get( <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41353	41452	
==>':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5632	5752	
==>($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5632	5752	
==>($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5632	5752	
==>($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    } <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	1629	1737	
==>r  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies? <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1629	1737	
==>r  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2163	2313	
==>= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2163	2313	
==>= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exc <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2163	2313	
==>= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exc <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10364	10462	
==>eld) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting befo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10364	10462	
==>eld) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting befo <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12324	12424	
==>rue if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in th <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12324	12424	
==>rue if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	854	944	
==>Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	854	944	
==>Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	854	944	
==>Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7311	7415	
==>else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$pre <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10307	10400	
==>set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inser <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8200	8293	
==>set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inser <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10307	10400	
==>set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inser <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8200	8293	
==>set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inser <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3919	4018	
==>t(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3919	4018	
==>t(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3919	4018	
==>t(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	8	102	
==>p6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	8	102	
==>p6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6282	6384	
==>ly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6282	6384	
==>ly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<f <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1099	1196	
==>elay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1099	1196	
==>elay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clea <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1099	1196	
==>elay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clea <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2642	2817	
==>g_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2642	2817	
==>g_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	751	856	
==>, values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	751	856	
==>, values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	751	856	
==>, values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2 <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5480	5589	
==>cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there has t <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4157	4257	
==>t $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $on <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3284	3384	
==>t $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4157	4257	
==>t $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $on <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3284	3384	
==>t $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $on <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14393	14541	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14393	14541	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14393	14541	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6496	6602	
==>users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.d <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7232	7338	
==>users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6496	6602	
==>users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.d <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7232	7338	
==>users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.d <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	436	519	
==>nary>, L<JIB::Package::Installed>, L<JIB::Package::Source>,
L<JIB::Repository>, L<JI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6013	6138	
==>0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6013	6138	
==>0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6013	6138	
==>0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die " <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10766	10860	
==>turns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<Th <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10766	10860	
==>turns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<Th <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23821	23946	
==>with { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "nex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13325	13444	
==>with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "nex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13325	13444	
==>with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "nex <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13325	13444	
==>with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "nex <==
5	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	588	705	
==>lse the program aborts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        requir <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10491	10671	
==>rl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_ms <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10491	10671	
==>rl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_ms <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	460	614	
==>pty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	375	529	
==>pty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	463	617	
==>pty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $ <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1321	1447	
==>esults.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!succes <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1321	1447	
==>esults.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!succes <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6504	6628	
==>>{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2069	2166	
==>resents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root nod <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2069	2166	
==>resents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root nod <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1233	1329	
==>find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curre <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1233	1329	
==>find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curre <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10783	10942	
==>nick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $la <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10783	10942	
==>nick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $la <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34682	34800	
==>h;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34682	34800	
==>h;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34682	34800	
==>h;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_ <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4347	4449	
==>([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4347	4449	
==>([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4413	4510	
==>If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

base <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4413	4510	
==>If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

base <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4493	4590	
==>If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

base <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10038	10213	
==>file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ an <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10038	10213	
==>file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4376	4471	
==>ace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4376	4471	
==>ace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. T <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4376	4471	
==>ace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. T <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	54	158	
==>n;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	54	158	
==>n;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use ba <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	54	158	
==>n;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use ba <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37839	37935	
==>g that a Perl module by the given module name
is already loaded, it tries to invoke $module_name. <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37839	37935	
==>g that a Perl module by the given module name
is already loaded, it tries to invoke $module_name. <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1375	1493	
==>t();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  h <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1375	1493	
==>t();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7828	7927	
==>y @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7828	7927	
==>y @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7828	7927	
==>y @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1235	1431	
==>alue ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1235	1431	
==>alue ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4587	4709	
==>um           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4587	4709	
==>um           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4587	4709	
==>um           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4623	4716	
==>essed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4623	4716	
==>essed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4623	4716	
==>essed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Nam <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	436	533	
==>', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line() <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	436	533	
==>', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line() <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7025	7160	
==>ss $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7025	7160	
==>ss $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12603	12711	
==>acro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12603	12711	
==>acro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MUL <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12603	12711	
==>acro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MUL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5309	5414	
==>)."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5309	5414	
==>)."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5309	5414	
==>)."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::S <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3690	3783	
==>dex where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multid <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3690	3783	
==>dex where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multid <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3958	4066	
==>the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3970	4078	
==>the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5019	5125	
==>b.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5019	5125	
==>b.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5019	5125	
==>b.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2047	2195	
==>rence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            r <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2047	2195	
==>rence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2533	2637	
==>@vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2533	2637	
==>@vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2533	2637	
==>@vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2374	2495	
==>ze,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2374	2495	
==>ze,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2721	2842	
==>ze,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	661	753	
==>ptions

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws n <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	661	753	
==>ptions

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5797	5907	
==>ed {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5797	5907	
==>ed {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pri <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5797	5907	
==>ed {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pri <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1216	1309	
==>meter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
con <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1216	1309	
==>meter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
con <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18348	18442	
==>istence
solutions.  Moreover, these data structures are in exactly the right input
format for N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18348	18442	
==>istence
solutions.  Moreover, these data structures are in exactly the right input
format for N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4115	4208	
==>nes B<only class methods>. There is no instance
constructor, and when calling these methods yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4115	4208	
==>nes B<only class methods>. There is no instance
constructor, and when calling these methods yo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4115	4208	
==>nes B<only class methods>. There is no instance
constructor, and when calling these methods yo <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1867	2000	
==>ns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---------- <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1867	2000	
==>ns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4280	4373	
==>@_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4280	4373	
==>@_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4280	4373	
==>@_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stri <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9857	9960	
==>push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9857	9960	
==>push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9857	9960	
==>push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = " <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	10952	11050	
==>ION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10952	11050	
==>ION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11650	11767	
==>r 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variab <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2133	2248	
==>r 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variab <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8905	9020	
==>r 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variab <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2133	2248	
==>r 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variab <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8905	9020	
==>r 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching variab <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4592	4703	
==>esc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4650	4761	
==>esc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3550	3648	
==>ram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XX <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3550	3648	
==>ram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XX <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4140	4238	
==>ram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XX <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1455	1566	
==>emainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1455	1566	
==>emainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1842	1938	
==>nd reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1842	1938	
==>nd reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x ) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1842	1938	
==>nd reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x ) <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	8891	9004	
==>re the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.paren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2201	2314	
==>($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no st <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8891	9004	
==>re the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.paren <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2201	2314	
==>($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no st <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2201	2314	
==>($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5837	6003	
==>ifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5837	6003	
==>ifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5837	6003	
==>ifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4004	4113	
==>gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4004	4113	
==>gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14244	14374	
==>(my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        el <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17721	17851	
==>(my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        el <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17137	17267	
==>(my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        el <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2039	2146	
==>$t !! $t - 1
}

our Int multi Num::round_toward_zero (Num $x) {
	return(int $x);
}

our Int multi Num::round <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	437	534	
==>imilar to what is described
in here (note: same author as the first scheme code):

  http://okmij. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9171	9325	
==>: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9171	9325	
==>: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9171	9325	
==>: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2157	2248	
==>parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax wi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2246	2337	
==>parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax wi <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4507	4613	
==>h(@_);
}

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) if not (blessed($right) && $ri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1214	1457	
==>)
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" . $node->id . ")\" " . 
                    "];\n";  
}

sub _draw <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6217	6329	
==>)
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

meth <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6217	6329	
==>)
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

meth <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2589	2685	
==>is Free Software, and may be used, distributed and modified under 
the same terms as Perl itself. <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2589	2685	
==>is Free Software, and may be used, distributed and modified under 
the same terms as Perl itself. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2347	2452	
==>ined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2347	2452	
==>ined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->ne <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2347	2452	
==>ined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->ne <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10240	10344	
==>t => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10240	10344	
==>t => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3113	3226	
==>s no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3113	3226	
==>s no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make + <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3113	3226	
==>s no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make + <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27147	27241	
==>l_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gene <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31699	31793	
==>l_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gene <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2735	2915	
==>ug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2735	2915	
==>ug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	128	228	
==>* removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	128	228	
==>* removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	128	228	
==>* removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6037	6153	
==>my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6037	6153	
==>my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6037	6153	
==>my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3536	3634	
==>= &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") { <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3904	4002	
==>= &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") { <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2024	2120	
==>ns about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2518	2614	
==>_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v) <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2024	2120	
==>ns about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldo <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2518	2614	
==>_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2518	2614	
==>_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	89	204	
==>= '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	89	204	
==>= '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	89	204	
==>= '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2488	2597	
==>ry;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separato <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2488	2597	
==>ry;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separato <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3405	3511	
==>== any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6882	6988	
==>== any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.va <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5839	5945	
==>== any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.va <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4983	5086	
==>ds);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $coun <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5041	5144	
==>ds);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $coun <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9877	9989	
==>o particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6] <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7817	7929	
==>o particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6] <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9877	9989	
==>o particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6] <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7817	7929	
==>o particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6] <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2213	2309	
==>erm  {
    <metasyntactic_token> | <commit_something>
  | <match_var>
  | <psuedo_scalar_literal> <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	345	452	
==>class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA:: <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	345	452	
==>class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7607	7697	
==>_26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7607	7697	
==>_26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7607	7697	
==>_26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3942	4045	
==>CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3942	4045	
==>CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3942	4045	
==>CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   : <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	2552	2649	
==>p_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.q <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2552	2649	
==>p_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.q <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2745	2888	
==>$super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2950	3093	
==>$super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supe <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2969	3068	
==>);

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2969	3068	
==>);

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4493	4592	
==>);

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14184	14319	
==>ext =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                ne <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14184	14319	
==>ext =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                ne <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9897	10009	
==>.STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9897	10009	
==>.STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9897	10009	
==>.STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14729	14818	
==>name>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_en <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14729	14818	
==>name>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15966	16116	
==>h label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15966	16116	
==>h label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15966	16116	
==>h label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5766	5863	
==>ossibility is to return a negative value for
# relative seconds and a positive value for epoch bas <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5766	5863	
==>ossibility is to return a negative value for
# relative seconds and a positive value for epoch bas <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1920	2037	
==>}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1920	2037	
==>}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14544	14657	
==>ed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14544	14657	
==>ed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14544	14657	
==>ed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10686	10812	
==>s ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->rever <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10686	10812	
==>s ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->rever <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10686	10812	
==>s ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->rever <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24365	24461	
==>hey end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a comma <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24365	24461	
==>hey end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a comma <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6155	6309	
==>f defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            } <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6155	6309	
==>f defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            } <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1961	2087	
==>if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7754	7867	
==>h)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $capture       - capt <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7492	7601	
==>h)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $capture       - capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2151	2262	
==>ETAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2151	2262	
==>ETAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2151	2262	
==>ETAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          P <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5789	5899	
==>start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5789	5899	
==>start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1058	1162	
==>= &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1058	1162	
==>= &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	770	866	
==>2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	770	866	
==>2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method name <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	770	866	
==>2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method name <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32852	32945	
==>her!) returns Relation>

This multi-method is a generic binary relational operator that is lik <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	33307	33400	
==>her!) returns Relation>

This multi-method is a generic binary relational operator that is lik <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37402	37495	
==>her!) returns Relation>

This multi-method is a generic binary relational operator that is lik <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37857	37950	
==>her!) returns Relation>

This multi-method is a generic binary relational operator that is lik <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1906	1998	
==>flags; regexes constructed with this module may cause
segfaults on C<split>, substitution, an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6920	7039	
==>() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6920	7039	
==>() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6920	7039	
==>() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1921	2030	
==>eck that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1921	2030	
==>eck that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $! <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2980	3113	
==>e list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.fr <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2980	3113	
==>e list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.fr <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35221	35314	
==>a generic binary relational operator that is identical
to C<join> except that this method will <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39771	39864	
==>a generic binary relational operator that is identical
to C<join> except that this method will <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39331	39424	
==>a generic binary relational operator that is identical
to C<join> except that this method will <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7971	8132	
==>tion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7971	8132	
==>tion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7971	8132	
==>tion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                p <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4867	4965	
==>om 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsk <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4867	4965	
==>om 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsk <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5333	5492	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5749	5908	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5345	5504	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5761	5920	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                r <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13742	13872	
==>t">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table> <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6980	7117	
==>, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11984	12121	
==>, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6980	7117	
==>, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11978	12115	
==>, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1 <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2345	2433	
==>ght,nows", "PGE::Exp::Concat");
    $optable->addToken("infix:&", "<infix:", "left,nows", <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1333	1466	
==>$script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1333	1466	
==>$script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	899	996	
==>ckage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	899	996	
==>ckage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	899	996	
==>ckage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses t <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	287	391	
==>xtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could act <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2547	2638	
==>p://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2547	2638	
==>p://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1760	1847	
==>p://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3621	3708	
==>p://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1337	1440	
==>aning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simpl <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1337	1440	
==>aning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simpl <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29231	29329	
==>>refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL_DOLLAR       1 <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3110	3205	
==>ler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3110	3205	
==>ler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19017	19124	
==>a} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data} <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20375	20482	
==>a} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2437	2535	
==>OPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2437	2535	
==>OPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2437	2535	
==>OPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2017	2129	
==>$proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1630	1742	
==>:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2017	2129	
==>$proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1630	1742	
==>:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1630	1742	
==>:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	598	723	
==>ttern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is c <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	598	723	
==>ttern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2085	2184	
==>[0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2085	2184	
==>[0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2432	2531	
==>[0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5014	5115	
==>$Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7682	7783	
==>$Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3140	3238	
==>label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3140	3238	
==>label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3140	3238	
==>label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14249	14379	
==>r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17726	17856	
==>r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ( <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17142	17272	
==>r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ( <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12331	12429	
==>.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discre <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12331	12429	
==>.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discre <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5599	5704	
==>y $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5599	5704	
==>y $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5599	5704	
==>y $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n = <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13916	14008	
==>ntities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces un <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13916	14008	
==>ntities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces un <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16372	16470	
==>E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and p <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16372	16470	
==>E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2605	2701	
==>m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m})) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2605	2701	
==>m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m})) <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2605	2701	
==>m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m})) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6143	6281	
==>CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6143	6281	
==>CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6143	6281	
==>CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	31	133	
==>$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	31	133	
==>$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	899	1063	
==>tes
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	899	1063	
==>tes
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	899	1063	
==>tes
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	641	748	
==>d, $positional, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Data: <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1557	1653	
==>.

Available options:
  --smokeserv=http://path/to/smokeserv.pl
    Sets the path to the smoke se <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11249	11351	
==>rol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~] <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11249	11351	
==>rol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1160	1256	
==>y
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1160	1256	
==>y
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1160	1256	
==>y
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3599	3697	
==>*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index wher <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3599	3697	
==>*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index wher <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2276	2365	
==>ethod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2276	2365	
==>ethod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2276	2365	
==>ethod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5411	5521	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5411	5521	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5411	5521	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        m <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	5559	5642	
==>($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(1 <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5559	5642	
==>($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15865	16015	
==>e a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15865	16015	
==>e a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15865	16015	
==>e a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13974	14116	
==>def
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tiea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13974	14116	
==>def
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tiea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13974	14116	
==>def
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tiea <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2789	2916	
==>nst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM. <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12426	12514	
==>--> hexdigits_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8257	8393	
==>")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8257	8393	
==>")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8257	8393	
==>")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $sel <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8124	8224	
==>LF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8124	8224	
==>LF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	32	139	
==>eLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed st <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	32	139	
==>eLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed st <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	32	139	
==>eLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed st <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18288	18382	
==>e
on disk, it is expected that the Engines will employ appropriate measures
such as system-mana <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18288	18382	
==>e
on disk, it is expected that the Engines will employ appropriate measures
such as system-mana <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	542	653	
==>(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	542	653	
==>(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " " <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1819	1914	
==>rom_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'In <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1819	1914	
==>rom_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'In <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1819	1914	
==>rom_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'In <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	262	382	
==>want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	262	382	
==>want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	262	382	
==>want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } } <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1534	1632	
==>face is good enough for many purposes.  
Although the interface is said to be procedural, it is inv <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1534	1632	
==>face is good enough for many purposes.  
Although the interface is said to be procedural, it is inv <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	15436	15536	
==>urns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because the <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15494	15594	
==>urns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because the <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23205	23293	
==>localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23205	23293	
==>localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23205	23293	
==>localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...} <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16703	16818	
==>pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1);
      TAILCALL( <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22939	23034	
==>nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason option <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21757	21852	
==>nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason option <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22939	23034	
==>nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason option <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21757	21852	
==>nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason option <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3720	4055	
==>int("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @a <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3720	4055	
==>int("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @a <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	389	496	
==>id in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	389	496	
==>id in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19192	19291	
==>die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never h <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15418	15534	
==>os goto err_close
  name_1:
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = escape cname
    cnam <==
5	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1169	1269	
==>method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object { <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	911	1011	
==>method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object { <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1169	1269	
==>method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object { <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	911	1011	
==>method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object { <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13947	14052	
==>rint 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13947	14052	
==>rint 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	829	921	
==>ss
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subme <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	829	921	
==>ss
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subme <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	829	921	
==>ss
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subme <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2160	2258	
==>ntically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2160	2258	
==>ntically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5326	5423	
==>th a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5326	5423	
==>th a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5326	5423	
==>th a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3133	3232	
==>self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3133	3232	
==>self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3133	3232	
==>self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	600	697	
==>eaned up, and p6 added.  It's basically three days old,
and only now is changing from an experimen <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3267	3358	
==>ons(W, W) --> {true}.


p5_concatenation(Z)    --> p5_quantified(W), p5_concatenation_more(W <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3141	3243	
==>sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3141	3243	
==>sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1390	1483	
==>r,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1390	1483	
==>r,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1390	1483	
==>r,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7626	7741	
==>hunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7626	7741	
==>hunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6134	6224	
==>es both perform the Test::Builder::Test::WithReason role
and override some methods to provi <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6134	6224	
==>es both perform the Test::Builder::Test::WithReason role
and override some methods to provi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8331	8421	
==>es both perform the Test::Builder::Test::WithReason role
and override some methods to provi <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2308	2428	
==>th = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    el <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2308	2428	
==>th = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    el <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8652	8752	
==>@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8652	8752	
==>@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"} <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8652	8752	
==>@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"} <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	22524	22688	
==>\n"
                  . sprintf("%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Col <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10483	10630	
==>p2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "infix <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	475	593	
==>PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	475	593	
==>PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PV <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	475	593	
==>PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PV <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4397	4512	
==>K;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4397	4512	
==>K;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4397	4512	
==>K;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7477	7607	
==>" ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7477	7607	
==>" ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7477	7607	
==>" ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2639	2736	
==>"Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2541	2634	
==>"Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12003	12131	
==>$prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alte <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11997	12125	
==>$prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alte <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	973	1081	
==>< keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	973	1081	
==>< keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	973	1081	
==>< keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	776	882	
==>hods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	776	882	
==>hods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth || <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	776	882	
==>hods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth || <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6309	6406	
==>tuations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<pa <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6309	6406	
==>tuations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6359	6481	
==>] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6359	6481	
==>] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5264	5360	
==>t_oper:
  goto end if ( $position >= $lastPosition );
  my $currentOperatorTable = $self->whitesp <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6886	6980	
==>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATI <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6886	6980	
==>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATI <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1897	2041	
==>day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

method nanosecond retur <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6286	6382	
==>infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5416	5512	
==>infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6286	6382	
==>infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5416	5512	
==>infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	14464	14639	
==>y have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17941	18116	
==>y have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headin <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17357	17532	
==>y have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	409	499	
==>->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	409	499	
==>->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q( <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9959	10118	
==>while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$ <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1740	1887	
==>while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$ <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	11333	11475	
==>m_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1251	1361	
==>600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1218	1328	
==>600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3568	3686	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3761	3879	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1631	1738	
==>hars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1631	1738	
==>hars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1631	1738	
==>hars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{' <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11295	11392	
==>utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $strin <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11295	11392	
==>utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $strin <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9205	9309	
==>py) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normali <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9205	9309	
==>py) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normali <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7271	7375	
==>return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler('\z' => sub { <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9762	9865	
==>py) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normali <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9762	9865	
==>py) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normali <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10845	10974	
==>ected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line fro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10845	10974	
==>ected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line fro <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4358	4456	
==>ameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4358	4456	
==>ameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6555	6653	
==>ameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21576	21670	
==>I SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21576	21670	
==>I SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21576	21670	
==>I SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35832	35925	
==>d as the implicit handler when
coercing this object to a string.

=item C<get_set_member_combi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35832	35925	
==>d as the implicit handler when
coercing this object to a string.

=item C<get_set_member_combi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3650	3793	
==>hat &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $inde <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4967	5110	
==>hat &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $inde <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3650	3793	
==>hat &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $inde <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4955	5098	
==>hat &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $inde <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7644	7768	
==>}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !define <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1990	2180	
==>edText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1990	2180	
==>edText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_ <==
5	/Users/nnunley/pugs/util/importgraph.pl	993	1104	
==>lsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $fh;

  unless (defin <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6931	7031	
==>text.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely u <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6931	7031	
==>text.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3017	3133	
==>x:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3017	3133	
==>x:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3017	3133	
==>x:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign" <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8190	8289	
==>h them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like ob <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8190	8289	
==>h them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like ob <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2102	2221	
==>" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2883	3002	
==>" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37223	37319	
==>rce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41772	41868	
==>rce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41395	41491	
==>rce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3202	3363	
==>d' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3202	3363	
==>d' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3202	3363	
==>d' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ } <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2040	2138	
==>ld, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2040	2138	
==>ld, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	915	1016	
==>ub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	915	1016	
==>ub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	915	1016	
==>ub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4008	4104	
==>s($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Clas <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5910	6006	
==>s($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14333	14443	
==>$self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14333	14443	
==>$self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14333	14443	
==>$self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2086	2179	
==>B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2175	2268	
==>B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7648	7830	
==>fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7648	7830	
==>fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7648	7830	
==>fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	291	401	
==>off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_R <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	291	401	
==>off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_R <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14988	15137	
==>pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14988	15137	
==>pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14988	15137	
==>pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	313	426	
==>e::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1. <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	313	426	
==>e::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1. <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	330	587	
==>nt values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given v <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	330	587	
==>nt values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36002	36140	
==>il = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36002	36140	
==>il = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36002	36140	
==>il = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11707	11817	
==>EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::conf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11707	11817	
==>EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::conf <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11707	11817	
==>EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::conf <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15182	15282	
==>ssage to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15182	15282	
==>ssage to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8352	8483	
==>"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(880 <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8352	8483	
==>"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(880 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	642	744	
==>tance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	642	744	
==>tance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	642	744	
==>tance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3217	3344	
==>r {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3217	3344	
==>r {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2320	2420	
==>ror: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2320	2420	
==>ror: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2320	2420	
==>ror: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2648	2753	
==>] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($asse <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2648	2753	
==>] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($asse <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26536	26632	
==>s are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31088	31184	
==>s are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case i <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6992	7082	
==>{ <identifier><ws><expr>; }
macro statement_control:<a_call> (Match $m --> Match) is parsed <==
5	/Users/nnunley/pugs/util/config_h.pl	1231	1335	
==>= try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => m ()
main = $([| return () |])
.

if <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6880	6975	
==>ead1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1320	1415	
==>ead1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6880	6975	
==>ead1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1320	1415	
==>ead1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22865	22989	
==>AL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19286	19410	
==>AL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2835	2942	
==>ODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2835	2942	
==>ODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5, <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2835	2942	
==>ODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5, <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1106	1286	
==>+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $m <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	985	1165	
==>+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1184	1290	
==>ng positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1184	1290	
==>ng positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1184	1290	
==>ng positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bin <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4854	4981	
==>>data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15890	16017	
==>>data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17378	17505	
==>>data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self- <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22061	22188	
==>>data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self- <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11624	11729	
==>= shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->re <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	224	324	
==>y.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	224	324	
==>y.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

met <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	224	324	
==>y.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

met <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6034	6130	
==>perclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_prece <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10291	10387	
==>perclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_prece <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5842	5995	
==>st!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2477	2591	
==>];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2477	2591	
==>];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2477	2591	
==>];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub f <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21654	21739	
==>fset_min substrs->data[2].min_offset
 #define check_offset_max substrs->data[2].max_of <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19429	19522	
==>dard data manipulation statements but that the target relation
variables are system catalog re <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19429	19522	
==>dard data manipulation statements but that the target relation
variables are system catalog re <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3731	3827	
==>_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3731	3827	
==>_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3731	3827	
==>_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3479	3574	
==>TP::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

=i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3479	3574	
==>TP::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

=i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1791	1913	
==>int "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2534	2656	
==>int "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1791	1913	
==>int "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2522	2644	
==>int "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	10380	10493	
==>f (defined $test{skip_all} and length $test{skip_all}) {
                print "skipped\n        all skipped: $tes <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2906	3158	
==>~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>(' <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2906	3158	
==>~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9054	9161	
==>xs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9054	9161	
==>xs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *I <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9054	9161	
==>xs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6559	6660	
==>um';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6559	6660	
==>um';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6559	6660	
==>um';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	529	623	
==>pher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for gener <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	529	623	
==>pher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for gener <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1560	1665	
==>use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $clas <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1560	1665	
==>use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $clas <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1242	1338	
==><postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1242	1338	
==><postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1242	1338	
==><postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_ <==
5	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	184	281	
==>string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" retu <==
5	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	240	337	
==>string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11208	11320	
==>rs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11208	11320	
==>rs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11208	11320	
==>rs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34020	34116	
==>m or its libraries.
When translating a message, a match in found in the most preferred language
i <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34020	34116	
==>m or its libraries.
When translating a message, a match in found in the most preferred language
i <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13411	13588	
==>ng,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            whil <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3568	3721	
==>ng,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3568	3721	
==>ng,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3568	3721	
==>ng,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whil <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	17242	17369	
==>*@args) is primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11073	11229	
==>ed');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11073	11229	
==>ed');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11073	11229	
==>ed');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3533	3644	
==>alues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7010	7121	
==>alues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5967	6078	
==>alues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	716	820	
==>? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Spa <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	716	820	
==>? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Spa <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1240	1376	
==>rn { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1189	1321	
==>rn { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( captu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	524	625	
==>meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# ty <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	524	625	
==>meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# ty <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	524	625	
==>meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# ty <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23282	23405	
==>f->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19703	19826	
==>f->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6419	6525	
==>L::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6419	6525	
==>L::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: ! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6419	6525	
==>L::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4995	5112	
==>ICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4995	5112	
==>ICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4995	5112	
==>ICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17597	17700	
==>str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  us <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17597	17700	
==>str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  us <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	2608	2740	
==>-> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\n <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2608	2740	
==>-> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1336	1445	
==>ument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    pu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1336	1445	
==>ument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    pu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1545	1654	
==>ument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    pu <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9481	9654	
==>AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1292	1441	
==>AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3193	3297	
==>type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3193	3297	
==>type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3193	3297	
==>type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recur <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1936	2150	
==>ined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    met <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1936	2150	
==>ined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    met <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23323	23414	
==>YRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This prog <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41247	41338	
==>YRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This prog <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37273	37364	
==>YRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This prog <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9003	9117	
==>my($min,$max)= (@$o{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $ma <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	122	233	
==>);
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29620	29714	
==>tributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as tho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34172	34266	
==>tributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as tho <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33336	33430	
==>tributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as tho <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25776	25910	
==>n => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(??{$self->{data}})";
  }

  sub qr {
    my $s <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14488	14585	
==>ly uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14488	14585	
==>ly uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spec <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4897	4991	
==>t 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4897	4991	
==>t 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	13950	14045	
==>ded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" V <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10177	10272	
==>ded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" V <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13950	14045	
==>ded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" V <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10177	10272	
==>ded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" V <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18114	18203	
==>is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F1, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6962	7101	
==>->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6962	7101	
==>->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6962	7101	
==>->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # w <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	539	664	
==>_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        t <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	539	664	
==>_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14679	14804	
==>escription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AU <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14679	14804	
==>escription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AU <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14679	14804	
==>escription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AU <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15132	15230	
==>you pass
an argument to the method.  The old header value is always returned.
If the given header d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15132	15230	
==>you pass
an argument to the method.  The old header value is always returned.
If the given header d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5426	5589	
==>uired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5426	5589	
==>uired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() } <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5426	5589	
==>uired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() } <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36814	36906	
==>undef.  This method could be
considered to implement the 'main' functionality of Locale::Keye <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36814	36906	
==>undef.  This method could be
considered to implement the 'main' functionality of Locale::Keye <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3088	3259	
==>cking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3088	3259	
==>cking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	848	959	
==>package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	848	959	
==>package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprint <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	848	959	
==>package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprint <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6329	6427	
==>", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6329	6427	
==>", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5858	5955	
==>'s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER C <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5858	5955	
==>'s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER C <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8055	8152	
==>'s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER C <==
5	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1388	1514	
==>{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is ex <==
5	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1388	1514	
==>{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15884	15988	
==>shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15884	15988	
==>shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB ma <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15884	15988	
==>shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB ma <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3626	3766	
==>e {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_en <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3626	3766	
==>e {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_en <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3145	3233	
==>com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::F <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3145	3233	
==>com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::F <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3492	3580	
==>com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::F <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11203	11339	
==>=> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11203	11339	
==>=> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11203	11339	
==>=> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	450	566	
==>my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	450	566	
==>my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3762	4086	
==>_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3805	4129	
==>_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3762	4086	
==>_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3805	4129	
==>_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11273	11392	
==>|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });


  return;

  # control <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	311	428	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	311	428	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say " <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	311	428	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21288	21382	
==>("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21288	21382	
==>("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	857	948	
==>h @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	857	948	
==>h @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0] <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	857	948	
==>h @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0] <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4004	4162	
==>path] )
                                                        and error($?), return;
        system( qq[tar -f $control --exclude .svn -C $path/$jibdir -cz . <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12148	12248	
==>es (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an op <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16728	16828	
==>es (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an op <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12148	12248	
==>es (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an op <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16728	16828	
==>es (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18774	18882	
==>q $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18774	18882	
==>q $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0-> <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18774	18882	
==>q $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0-> <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16561	16661	
==>ntext.  If there is no such header field, then the empty
string is returned.  This makes it safe to d <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16561	16661	
==>ntext.  If there is no such header field, then the empty
string is returned.  This makes it safe to d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23915	24087	
==>{
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23915	24087	
==>{
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23915	24087	
==>{
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3418	3526	
==>ound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3418	3526	
==>ound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1371	1471	
==>RS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1371	1471	
==>RS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropri <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1371	1471	
==>RS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropri <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19154	19250	
==>ring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.ne <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19154	19250	
==>ring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.ne <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	763	885	
==>s.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	763	885	
==>s.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5296	5396	
==>ance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5296	5396	
==>ance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5296	5396	
==>ance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22319	22436	
==>lice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spli <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22319	22436	
==>lice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spli <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22319	22436	
==>lice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spli <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	749	857	
==><METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_A <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	749	857	
==><METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_A <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12954	13070	
==>micScopes/;

sub new {
    bless { params => undef, param_stack => [] }, shift;
}

sub reduce_val { $_[1]->val }

sub <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7734	7828	
==>tem I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=item <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7734	7828	
==>tem I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=item <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	110	203	
==>Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	110	203	
==>Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	871	985	
==>FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	871	985	
==>FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	871	985	
==>FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant( <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16021	16115	
==>.last_modified

This header indicates the date and time at which the resource was last
modified <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16021	16115	
==>.last_modified

This header indicates the date and time at which the resource was last
modified <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19118	19267	
==>trict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19118	19267	
==>trict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]-> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19118	19267	
==>trict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]-> <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	1091	1222	
==>0;
   while (<FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2747	2851	
==>made the script stop if you aren't running under
      Linux, you may want to change that.

Note: A preco <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	894	1029	
==>the match
                     object, telling captures where in the deep structure
                     to store what they've captured. <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	894	1029	
==>the match
                     object, telling captures where in the deep structure
                     to store what they've captured. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2263	2371	
==>'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2263	2371	
==>'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2263	2371	
==>'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	216	333	
==>airs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	216	333	
==>airs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	216	333	
==>airs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5375	5466	
==>s Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $re <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5433	5524	
==>s Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $re <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2067	2172	
==>base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is ex <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2067	2172	
==>base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4555	4651	
==>ro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4555	4651	
==>ro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4555	4651	
==>ro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	954	1054	
==>pans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fa <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	954	1054	
==>pans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2649	2748	
==>" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2649	2748	
==>" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2649	2748	
==>" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3710	3882	
==>\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    retur <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3710	3882	
==>\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3879	3994	
==>->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3879	3994	
==>->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid co <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3879	3994	
==>->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3857	3972	
==>e = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3857	3972	
==>e = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3857	3972	
==>e = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8 <==
5	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	545	651	
==>ameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0. <==
5	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	545	651	
==>ameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15612	15724	
==>$label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15612	15724	
==>$label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15612	15724	
==>$label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cl <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21364	21456	
==>An application written to it should easily port
to alternative relational database engines wi <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21364	21456	
==>An application written to it should easily port
to alternative relational database engines wi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6443	6580	
==>Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3919	4027	
==>::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4136	4244	
==>::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error <==
5	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	966	1063	
==>g::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of me <==
5	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	966	1063	
==>g::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of me <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31182	31328	
==>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31182	31328	
==>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31182	31328	
==>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18926	19023	
==>e right
thing on the wire.

When setting the referrer, this method removes the fragment from the
g <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18926	19023	
==>e right
thing on the wire.

When setting the referrer, this method removes the fragment from the
g <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5150	5264	
==>-- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previou <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5150	5264	
==>-- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16638	16737	
==>$xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16638	16737	
==>$xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16638	16737	
==>$xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code:: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6433	6548	
==>', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::M <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6433	6548	
==>', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3339	3429	
==>nstance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3339	3429	
==>nstance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3339	3429	
==>nstance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attr <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	580	735	
==>ible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_p <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	580	735	
==>ible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1413	1508	
==>ncy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1413	1508	
==>ncy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1413	1508	
==>ncy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5160	5293	
==>t/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_c <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5160	5293	
==>t/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4422	4524	
==>me');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4422	4524	
==>me');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4422	4524	
==>me');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9536	9707	
==>> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15080	15251	
==>> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9536	9707	
==>> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15074	15245	
==>> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1294	1405	
==>ues) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   } <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8242	8409	
==>d this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies ' <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8706	8873	
==>d this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	928	1033	
==>.
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	928	1033	
==>.
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	928	1033	
==>.
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1009	1129	
==>Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1009	1129	
==>Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2188	2287	
==>ludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2188	2287	
==>ludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2188	2287	
==>ludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8254	8418	
==>lse {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8254	8418	
==>lse {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8254	8418	
==>lse {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1381	1482	
==>gwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUt <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1302	1399	
==>gwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5742	5844	
==>_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5742	5844	
==>_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5742	5844	
==>_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @ <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9566	9665	
==>Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an inf <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9566	9665	
==>Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an inf <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5199	5305	
==>e've registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %u <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5199	5305	
==>e've registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %u <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32324	32421	
==>e invocant and which is the argument.  This method will fail if
C<$other> does not have an identic <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36874	36971	
==>e invocant and which is the argument.  This method will fail if
C<$other> does not have an identic <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36164	36261	
==>e invocant and which is the argument.  This method will fail if
C<$other> does not have an identic <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5610	5737	
==>the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(m <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5610	5737	
==>the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7466	7554	
==>counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7466	7554	
==>counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7466	7554	
==>counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13443	13543	
==>rl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13443	13543	
==>rl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13443	13543	
==>rl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DE <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24336	24429	
==>rface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from it <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24336	24429	
==>rface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from it <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5306	5433	
==>CxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' , <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5306	5433	
==>CxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' , <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10163	10281	
==>file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; < <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10163	10281	
==>file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; < <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10163	10281	
==>file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; < <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	742	837	
==>Backend::C::Emitter" }

sub emitter {
	my $self = shift;
	$self->emitter_class->require || die $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21931	22025	
==>ation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available f <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20812	20906	
==>ation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21931	22025	
==>ation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available f <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20812	20906	
==>ation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available f <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7640	7736	
==>f.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Pro <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7640	7736	
==>f.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Pro <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30220	30314	
==>>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34772	34866	
==>>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It ret <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33945	34039	
==>>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It ret <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4451	4578	
==>n => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.dif <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3672	3799	
==>i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbox <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4451	4578	
==>n => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.dif <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3672	3799	
==>i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbox <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3672	3799	
==>i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbox <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1561	1662	
==>> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4896	4991	
==>> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	583	678	
==>> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5036	5131	
==>> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	583	678	
==>> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6260	6409	
==>alar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6260	6409	
==>alar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6260	6409	
==>alar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3864	3974	
==>ter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (impleme <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3727	3834	
==>ter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (impleme <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3787	3896	
==>ve loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" com <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3651	3757	
==>ve loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4260	4353	
==>::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4260	4353	
==>::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallre <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4260	4353	
==>::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallre <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9687	9816	
==>h::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6028	6157	
==>h::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6877	7006	
==>h::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2011	2106	
==>ryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2011	2106	
==>ryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7555	7669	
==>');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	899	1011	
==>ance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	899	1011	
==>ance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8490	8579	
==>ements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2315	2404	
==>ements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_r <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	83	230	
==>is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$ <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	83	230	
==>is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3765	3860	
==>ed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3765	3860	
==>ed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4355	4450	
==>ed_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1848	1955	
==>MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $posta <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1848	1955	
==>MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $posta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11337	11431	
==>at submethods are used
because they will not get inherited. This provides more predictable 
beh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11337	11431	
==>at submethods are used
because they will not get inherited. This provides more predictable 
beh <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11337	11431	
==>at submethods are used
because they will not get inherited. This provides more predictable 
beh <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2504	2705	
==>"</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@ <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2504	2705	
==>"</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10071	10180	
==>in()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10071	10180	
==>in()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn) <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10071	10180	
==>in()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn) <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14175	14305	
==>}
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14454	14584	
==>}
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6753	6844	
==>sa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6753	6844	
==>sa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6753	6844	
==>sa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6647	6785	
==>)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6647	6785	
==>)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            re <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6647	6785	
==>)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            re <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	114	207	
==>se Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $ <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	114	207	
==>se Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10976	11090	
==>def)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10976	11090	
==>def)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = ev <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10976	11090	
==>def)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = ev <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	5616	5712	
==>hildren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index) <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5616	5712	
==>hildren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18026	18143	
==>onal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (opt <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17064	17181	
==>onal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (opt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18026	18143	
==>onal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (opt <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17064	17181	
==>onal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (opt <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3535	3640	
==>LPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or di <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11097	11245	
==>{}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.curren <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11097	11245	
==>{}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.curren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19206	19296	
==>rimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19206	19296	
==>rimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19206	19296	
==>rimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13538	13646	
==>$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $sourc <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13538	13646	
==>$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $sourc <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	243	343	
==>->compiler_class;

    $class->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub com <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4022	4104	
==>ket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/no <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4022	4104	
==>ket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/no <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7185	7389	
==>leop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_ca <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7378	7582	
==>leop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	368	473	
==>. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	368	473	
==>. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instea <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	368	473	
==>. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instea <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	14200	14320	
==>r.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.valu <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4273	4385	
==>r.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4273	4385	
==>r.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.valu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4273	4385	
==>r.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.valu <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	407	504	
==>h non-default settings, and so is not intended for
"general" use.  It's more of a pugs bootstrap e <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8854	8954	
==>l; @l{ldd($pugs), ldd("$parrot_path/parrot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HE <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11880	11976	
==>= Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstar <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	13272	13368	
==>= Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstar <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11880	11976	
==>= Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstar <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13272	13368	
==>= Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3192	3311	
==>r each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        & <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3192	3311	
==>r each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        & <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3192	3311	
==>r each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        & <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24674	24786	
==>then
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->er <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21095	21207	
==>then
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->er <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6376	6477	
==>$grub_uri => $grub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => "Rem <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40129	40225	
==>if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  021 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24820	24916	
==>if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  021 <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40129	40225	
==>if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  021 <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24820	24916	
==>if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  021 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	910	1010	
==>his
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	910	1010	
==>his
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemente <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	910	1010	
==>his
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemente <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16565	16656	
==>s definition of a "D" language, is
described fully in the L<Rosetta::Language> documentation <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16565	16656	
==>s definition of a "D" language, is
described fully in the L<Rosetta::Language> documentation <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	580	704	
==>alues'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6213	6329	
==>{
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6213	6329	
==>{
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6213	6329	
==>{
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25528	25608	
==>,H,I,J))).
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,C,X,E <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1099	1219	
==>> <equal>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
} <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	14085	14180	
==>t (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10312	10407	
==>t (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14085	14180	
==>t (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10312	10407	
==>t (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9473	9607	
==>ild_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.he <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9473	9607	
==>ild_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.he <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14584	14688	
==>ata'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14584	14688	
==>ata'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14584	14688	
==>ata'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14182	14288	
==>self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1662	1768	
==>self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3588	3684	
==>- Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3588	3684	
==>- Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TOD <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3588	3684	
==>- Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TOD <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10876	11013	
==>$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10870	11007	
==>$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7507	7632	
==>@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7507	7632	
==>@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7507	7632	
==>@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	46	143	
==>GS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact comm <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4397	4494	
==>CommentChars>?
}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator>> <SourceC <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	46	143	
==>GS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact comm <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	46	143	
==>GS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact comm <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2002	2086	
==>ot_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_group>|<nonca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1709	1828	
==>or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1709	1828	
==>or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1709	1828	
==>or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub e <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	559	672	
==>:year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($se <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	626	739	
==>:year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($se <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1658	1804	
==>y @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1658	1804	
==>y @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12179	12282	
==>hod ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12179	12282	
==>hod ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12179	12282	
==>hod ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $ <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	655	767	
==>--> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x > <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1151	1262	
==>c($c_code);
}

my $i;
sub generate_inline_c {
	my $self = shift;
	my $c_code = shift;

	my %table = (
		IV => "i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2465	2560	
==>umber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2465	2560	
==>umber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))' <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2465	2560	
==>umber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))' <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13608	13712	
==>. So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13608	13712	
==>. So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1422	1519	
==>epc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1422	1519	
==>epc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Pr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1422	1519	
==>epc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Pr <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1611	1730	
==>ached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1818	1937	
==>ached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1465	1570	
==>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1465	1570	
==>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {un <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1465	1570	
==>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {un <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3018	3118	
==>urn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functiona <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3018	3118	
==>urn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functiona <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1925	2076	
==>ew_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1925	2076	
==>ew_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14984	15081	
==>I SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14984	15081	
==>I SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join ( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14984	15081	
==>I SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join ( <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2879	3030	
==>@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3126	3277	
==>@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	710	802	
==>}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	710	802	
==>}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	710	802	
==>}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @j <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8541	8667	
==>e '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrul <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8541	8667	
==>e '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrul <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21418	21512	
==>,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- imple <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21418	21512	
==>,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- imple <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21418	21512	
==>,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- imple <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	11105	11250	
==>ethod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11105	11250	
==>ethod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4725	4839	
==>)",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.cal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4725	4839	
==>)",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.cal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4725	4839	
==>)",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.cal <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	3068	3190	
==>ation
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Locatio <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3068	3190	
==>ation
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Locatio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15454	15567	
==>zed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15454	15567	
==>zed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15454	15567	
==>zed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6 <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9577	9705	
==>0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9577	9705	
==>0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9577	9705	
==>0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3063	3175	
==>ems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $s <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3063	3175	
==>ems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $s <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	11435	11554	
==>i method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my R <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14912	15031	
==>i method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my R <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16018	16120	
==>nced treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted chu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	35181	35273	
==>returns Relation>

This multi-method is a generic binary relational operator that is identica <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39731	39823	
==>returns Relation>

This multi-method is a generic binary relational operator that is identica <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3560	3707	
==>ul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$q <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3548	3695	
==>ul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$q <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4336	4435	
==>lue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4336	4435	
==>lue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6533	6632	
==>lue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	929	1067	
==>e2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        prece <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	954	1092	
==>e2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        prece <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8622	8738	
==>xed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8622	8738	
==>xed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8622	8738	
==>xed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5520	5626	
==>lob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declara <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5520	5626	
==>lob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declara <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5520	5626	
==>lob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declara <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7691	7794	
==>func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7691	7794	
==>func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chi <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3129	3239	
==>lit /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should all b <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6819	6929	
==>lue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramConte <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6819	6929	
==>lue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramConte <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3129	3239	
==>lit /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should all b <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3718	3828	
==>lue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramConte <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4873	4983	
==>ar eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4873	4983	
==>ar eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	87	195	
==>or(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	87	195	
==>or(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	87	195	
==>or(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \} <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17770	17872	
==>Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17586	17686	
==>Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3817	3907	
==>eturns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, an <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3817	3907	
==>eturns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, an <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6014	6104	
==>eturns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, an <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7208	7308	
==>r \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7208	7308	
==>r \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7208	7308	
==>r \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16265	16359	
==>list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield t <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16265	16359	
==>list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield t <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10011	10156	
==>() {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10011	10156	
==>() {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10011	10156	
==>() {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(i <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1661	1755	
==>informational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_lea <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1661	1755	
==>informational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_lea <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17345	17462	
==>> 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17345	17462	
==>> 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5876	5986	
==>ub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5876	5986	
==>ub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5876	5986	
==>ub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	634	749	
==>>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	634	749	
==>>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	634	749	
==>>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constr <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23390	23480	
==>a compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedTe <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23390	23480	
==>a compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedTe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8636	8771	
==>FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8636	8771	
==>FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i]. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8636	8771	
==>FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i]. <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	931	1026	
==>we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_w <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	931	1026	
==>we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_w <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10248	10378	
==>ipt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10248	10378	
==>ipt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10248	10378	
==>ipt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            a <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	849	940	
==>omp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	849	940	
==>omp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3583	3726	
==>n { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3440	3579	
==>n { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10299	10390	
==>:call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::cal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10299	10390	
==>:call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::cal <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10299	10390	
==>:call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::cal <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13147	13239	
==>::KeyedText" package serves only as the name-sake
representative for this whole file, which c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	872	964	
==>ublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap } <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13147	13239	
==>::KeyedText" package serves only as the name-sake
representative for this whole file, which c <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	872	964	
==>ublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap } <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	872	964	
==>ublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap } <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6205	6446	
==>o our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $ <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6669	6910	
==>o our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4666	4768	
==>ef($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4666	4768	
==>ef($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $P <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4666	4768	
==>ef($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $P <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37516	37613	
==>s the new class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::br <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2246	2339	
==>extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = sub <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	789	881	
==>extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2157	2249	
==>extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	789	881	
==>extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = sub <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2817	2921	
==>used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes o <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2817	2921	
==>used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15009	15111	
==>::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15009	15111	
==>::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15009	15111	
==>::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6:: <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	442	546	
==>, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() do <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	987	1091	
==>, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() do <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	442	546	
==>, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() do <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	987	1091	
==>, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() do <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	987	1091	
==>, etc. It accepts a 'celems' closure.
#   Both constructors are just new() wrappers.
# * grep(), map() do <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3073	3174	
==>plement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $se <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3073	3174	
==>plement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1174	1272	
==>"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1174	1272	
==>"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude} <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1174	1272	
==>"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude} <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13138	13250	
==>to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13138	13250	
==>to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the cl <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13138	13250	
==>to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the cl <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34542	34637	
==>rator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39092	39187	
==>rator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18519	18645	
==>om'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing p <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14940	15066	
==>om'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15927	16046	
==>warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15927	16046	
==>warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::op <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15927	16046	
==>warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::op <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11328	11436	
==>),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11328	11436	
==>),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11328	11436	
==>),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	418	522	
==>ultiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $num <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	476	580	
==>ultiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $num <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3671	3771	
==>): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NA <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3671	3771	
==>): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NA <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	852	949	
==>All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	852	949	
==>All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reb <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	852	949	
==>All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Reb <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4891	5110	
==>r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4891	5110	
==>r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10482	10649	
==>r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10482	10649	
==>r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10482	10649	
==>r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	8081	8194	
==>arams:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8081	8194	
==>arams:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11641	11728	
==>" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11641	11728	
==>" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11641	11728	
==>" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_ <==
5	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	233	376	
==>when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0 <==
5	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	233	376	
==>when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3721	3810	
==>m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3721	3810	
==>m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3721	3810	
==>m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	287	397	
==>izer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	269	375	
==>izer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14289	14378	
==>k("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14289	14378	
==>k("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14289	14378	
==>k("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s( <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15701	15860	
==>e
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, " <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	240	360	
==>t<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note t <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	244	364	
==>t<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	240	360	
==>t<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note t <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	244	364	
==>t<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5110	5250	
==>me => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5110	5250	
==>me => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5110	5250	
==>me => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the p <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17206	17305	
==>ength of the array.
Other than that, we can do anything we want with it.
This is perhaps the most fl <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22306	22405	
==>ength of the array.
Other than that, we can do anything we want with it.
This is perhaps the most fl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	552	656	
==>source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	552	656	
==>source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	552	656	
==>source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12815	12910	
==>`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depe <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12873	12968	
==>`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	898	1007	
==>}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	898	1007	
==>}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	898	1007	
==>}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	778	867	
==>ng utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::E <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	778	867	
==>ng utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::E <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2291	2400	
==>self->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $en <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30957	31051	
==>tical to the original, in which case
this method returns the identity-one Relation or the invoc <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35507	35601	
==>tical to the original, in which case
this method returns the identity-one Relation or the invoc <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16962	17054	
==>ts mainly to document a certain localization methodology
in an easily accessable manner, such <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16962	17054	
==>ts mainly to document a certain localization methodology
in an easily accessable manner, such <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11645	11764	
==>re' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching var <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2128	2245	
==>re' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching var <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8900	9017	
==>re' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2128	2245	
==>re' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching var <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8900	9017	
==>re' or 'after' sub call, which may print a debug message 
    wrap( { 
            before => sub { print "matching var <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3262	3382	
==>hift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3262	3382	
==>hift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3262	3382	
==>hift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	323	436	
==>require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, - <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	224	337	
==>require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, - <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3495	3638	
==>{
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3688	3831	
==>{
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1059	1159	
==>azy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100.. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1059	1159	
==>azy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100.. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1059	1159	
==>azy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100.. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1739	1891	
==>es}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1739	1891	
==>es}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1739	1891	
==>es}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $sel <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	348	442	
==>ar addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all lette <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	348	442	
==>ar addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all lette <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5689	5894	
==>y $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5689	5894	
==>y $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5689	5894	
==>y $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'mac <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	279	439	
==>equest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "" <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	279	439	
==>equest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1146	1243	
==>t once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1146	1243	
==>t once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1146	1243	
==>t once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6842	6965	
==>ms""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3896	3995	
==>he following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3896	3995	
==>he following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3896	3995	
==>he following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9860	9973	
==>$_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9860	9973	
==>$_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9860	9973	
==>$_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text = <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2407	2519	
==>o be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2407	2519	
==>o be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	89	190	
==>te them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	89	190	
==>te them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)= <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	89	190	
==>te them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)= <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	263	361	
==>ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	263	361	
==>ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5593	5714	
==>$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6861	6982	
==>$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5593	5714	
==>$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6849	6970	
==>$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3848	3965	
==>b {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15865	15960	
==>m/>, and its authors have also written
several books and papers and taught classes on the subjec <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15865	15960	
==>m/>, and its authors have also written
several books and papers and taught classes on the subjec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1266	1356	
==>imitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1266	1356	
==>imitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1266	1356	
==>imitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4636	4733	
==>urn> clause.

=head2 ""

When used as a string, the match object returns the stringified version
o <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4636	4733	
==>urn> clause.

=head2 ""

When used as a string, the match object returns the stringified version
o <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3312	3437	
==>t_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3312	3437	
==>t_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	443	566	
==>nction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	443	566	
==>nction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referen <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	443	566	
==>nction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referen <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2212	2332	
==>>analyze($name, \@test_output);

Analyzes the output of a single test, assigning it the given C<$name>
for use in the tot <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	369	472	
==>setup_perl6_install
      if $install_version eq '6';

    $self->set_blib($install_version);

    $self <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8134	8232	
==>) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rseq->values)[-1]->type,
			stru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7177	7269	
==>on API, which permits the intercommunication 

of data about: backtracking, aborting, capturi <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6932	7023	
==>on API, which permits the intercommunication 
of data about: backtracking, aborting, capturi <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12793	12916	
==>r target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  scan:
    if pos >= lastp <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5975	6098	
==>n info from $file\n";
        return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2686	2795	
==>(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2686	2795	
==>(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2686	2795	
==>(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12969	13121	
==>cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12963	13115	
==>cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3360	3484	
==>ass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3360	3484	
==>ass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alr <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3360	3484	
==>ass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9970	10086	
==>e|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:: <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9970	10086	
==>e|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1750	1861	
==>->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1750	1861	
==>->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1986	2097	
==>->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19057	19154	
==>e C<data> field is the string "POSIX".  POSIX classes don't exist in a
regex outside of a characte <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1553	1648	
==>ML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 co <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1957	2052	
==>ix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1957	2052	
==>ix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1553	1648	
==>ML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 co <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22884	23059	
==>s'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23163	23338	
==>s'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop:: <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4278	4374	
==>>

Compares the receivied and expected lines from the previously run tests,
passing if both the d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4278	4374	
==>>

Compares the receivied and expected lines from the previously run tests,
passing if both the d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4358	4454	
==>>

Compares the receivied and expected lines from the previously run tests,
passing if both the d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3000	3136	
==>:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3000	3136	
==>:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3000	3136	
==>:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5104	5212	
==>{
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5104	5212	
==>{
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31125	31273	
==>ff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31125	31273	
==>ff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31125	31273	
==>ff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'P <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4451	4551	
==>Type'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4451	4551	
==>Type'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7526	7617	
==>my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@block <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7526	7617	
==>my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@block <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16428	16515	
==>h this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16428	16515	
==>h this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16428	16515	
==>h this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::mak <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7647	7749	
==>_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9575	9677	
==>_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7635	7737	
==>_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	39	136	
==>s;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumpe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	39	136	
==>s;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumpe <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1140	1236	
==>}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1140	1236	
==>}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5059	5152	
==>tr $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's d <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5059	5152	
==>tr $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's d <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7256	7349	
==>tr $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's d <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7128	7229	
==>b prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7128	7229	
==>b prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7128	7229	
==>b prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shi <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	11934	12034	
==>ons like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings') <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11992	12092	
==>ons like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings') <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11070	11172	
==>ering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2711	2813	
==>ay { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1 <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11070	11172	
==>ering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2711	2813	
==>ay { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2711	2813	
==>ay { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1 <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3484	3753	
==>(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6023	6121	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5153	5251	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6023	6121	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5153	5251	
==> (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9818	9926	
==>f the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9818	9926	
==>f the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2 <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9818	9926	
==>f the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2 <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6820	6917	
==>d() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, befor <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6820	6917	
==>d() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, befor <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2356	2453	
==>1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2356	2453	
==>1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2356	2453	
==>1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if( <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31867	31963	
==>xample the first library generates an error
message and wants it shown to the user, the main prog <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31867	31963	
==>xample the first library generates an error
message and wants it shown to the user, the main prog <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16606	16706	
==>n the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 'te <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16606	16706	
==>n the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 'te <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2814	2912	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2814	2912	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($se <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2814	2912	
==>ute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($se <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15107	15215	
==>nqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $new <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15107	15215	
==>nqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $new <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3134	3240	
==>IL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3134	3240	
==>IL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3134	3240	
==>IL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12700	12837	
==>&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12979	13116	
==>&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	226	339	
==>adLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frien <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	226	339	
==>adLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frien <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	226	339	
==>adLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frien <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13311	13416	
==>img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the following comma <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21986	22086	
==>ment>
}
rule SwitchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9416	9550	
==>return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module int <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9416	9550	
==>return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module int <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	638	740	
==>e sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	638	740	
==>e sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New metho <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	638	740	
==>e sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5343	5471	
==>t matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5343	5471	
==>t matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5343	5471	
==>t matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26413	26528	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26692	26807	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  ma <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1437	1552	
==>,             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubL <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4561	4673	
==>,             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4561	4673	
==>,             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubL <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5420	5522	
==>to a response when it has been received.
method client_date ($self: )         is rw { $self!date_header <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5420	5522	
==>to a response when it has been received.
method client_date ($self: )         is rw { $self!date_header <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6961	7089	
==>|| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $en <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6961	7089	
==>|| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $en <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6961	7089	
==>|| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $en <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	870	978	
==>ngleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single element <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	870	978	
==>ngleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single element <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10307	10447	
==>n', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10307	10447	
==>n', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30467	30561	
==>$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole rea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35018	35112	
==>$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole rea <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34200	34294	
==>$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole rea <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	891	1049	
==>}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13724	13821	
==>$xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13724	13821	
==>$xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13724	13821	
==>$xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7717	7816	
==>id" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7717	7816	
==>id" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7717	7816	
==>id" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	793	884	
==>ump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enab <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	793	884	
==>ump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enab <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1510	1642	
==>am<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %para <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1510	1642	
==>am<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %para <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18665	18773	
==>_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18665	18773	
==>_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18665	18773	
==>_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n e <==
5	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	962	1122	
==>as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'),
							Val(2),
						),
					),
				),
			),
			Val( <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	1511	1665	
==>lf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1615	1769	
==>lf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1511	1665	
==>lf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1615	1769	
==>lf.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2486	2600	
==>autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2486	2600	
==>autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2486	2600	
==>autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_r <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1644	1751	
==>::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expr <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1644	1751	
==>::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	290	391	
==>Noop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	290	391	
==>Noop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	290	391	
==>Noop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PN <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1065	1164	
==>rom Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat()' <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1065	1164	
==>rom Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat()' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	5026	5139	
==>return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8503	8616	
==>return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7514	7627	
==>return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18714	18822	
==>ond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20072	20180	
==>ond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} } <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7018	7114	
==>ate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assign <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7018	7114	
==>ate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assign <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7018	7114	
==>ate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assign <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4179	4297	
==>:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4179	4297	
==>:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4179	4297	
==>:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3975	4072	
==>as   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::va <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3975	4072	
==>as   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::va <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	622	740	
==>hes($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	622	740	
==>hes($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	622	740	
==>hes($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1064	1180	
==>me ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            ret <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1064	1180	
==>me ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1455	1557	
==>js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1455	1557	
==>js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1455	1557	
==>js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13907	14022	
==>0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13907	14022	
==>0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13907	14022	
==>0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	50	149	
==>strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=p <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	47	142	
==>strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	106	223	
==>port {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'ref <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	106	223	
==>port {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'ref <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	106	223	
==>port {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'ref <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23744	23838	
==>ple> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

Th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23744	23838	
==>ple> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

Th <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1184	1293	
==>else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exists $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2839	2933	
==>ecurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4708	4802	
==>ecurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2839	2933	
==>ecurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4708	4802	
==>ecurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3472	3602	
==>ss) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3472	3602	
==>ss) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3472	3602	
==>ss) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @sup <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14499	14600	
==>d_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_fie <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14499	14600	
==>d_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_fie <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7881	7982	
==>t<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7881	7982	
==>t<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %cha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6442	6540	
==>};
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6442	6540	
==>};
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6442	6540	
==>};
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5633	5771	
==>vide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5633	5771	
==>vide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        ret <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5633	5771	
==>vide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        ret <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	34910	35007	
==>thod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation. <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39460	39557	
==>thod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5714	5815	
==>elf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5714	5815	
==>elf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5714	5815	
==>elf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = s <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3997	4096	
==>ts.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty_ <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3997	4096	
==>ts.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1844	1997	
==>\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantif <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1832	1985	
==>\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantif <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	22977	23075	
==>ion; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mappi <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27529	27627	
==>ion; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mappi <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16669	16760	
==>in reversing capability in Perl.

=item Regexp::CharClassOps

Implements character class ope <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9400	9527	
==>{ $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9400	9527	
==>{ $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11742	11848	
==>ars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
g <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15110	15216	
==>ef   => sub { $as_hash_complain->("ref") },
      glob  => sub { $as_hash_complain->("glob") },
      lvalu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11736	11842	
==>ars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
g <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	766	886	
==>gs->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep length, $clean->{FILES}, @_),
    ) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	251	361	
==>ile::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	171	281	
==>ile::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	169	279	
==>ile::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	167	277	
==>ile::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23113	23226	
==>}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19534	19647	
==>}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3279	3380	
==>($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3279	3380	
==>($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3279	3380	
==>($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5109	5239	
==>if ( exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6448	6553	
==>d' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6448	6553	
==>d' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6448	6553	
==>d' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' = <==
5	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2331	2429	
==>ork.

Further, the above method always uses a starting guess which is half
the target.  This does n <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6512	6674	
==>Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clo <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6512	6674	
==>Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4898	5004	
==>char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4898	5004	
==>char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return " <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9069	9171	
==>";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module' <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9069	9171	
==>";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module' <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1460	1557	
==>|<external_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <construct>  }
rule ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7020	7161	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7020	7161	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'S <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7020	7161	
==>rl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'S <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1874	1984	
==>my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data:: <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1874	1984	
==>my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1670	1783	
==>($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1670	1783	
==>($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1670	1783	
==>($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self- <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1766	1862	
==>e interesting to 
people interested in the algorithm itself.  The attributes in question are 
C<i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1766	1862	
==>e interesting to 
people interested in the algorithm itself.  The attributes in question are 
C<i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2359	2469	
==>}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.c <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2359	2469	
==>}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.c <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18131	18225	
==>Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects wan <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18131	18225	
==>Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects wan <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4677	4766	
==>perator, my $stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2029	2139	
==>) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2029	2139	
==>) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable') <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2029	2139	
==>) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable') <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3987	4081	
==>ment_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.c <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3987	4081	
==>ment_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.c <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3622	3855	
==>d($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3622	3855	
==>d($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            } <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32219	32317	
==>s appear only once in
the result.  With any 2 relations, the result is the same regardless of
which <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36769	36867	
==>s appear only once in
the result.  With any 2 relations, the result is the same regardless of
which <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36059	36157	
==>s appear only once in
the result.  With any 2 relations, the result is the same regardless of
which <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22267	22468	
==>Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22267	22468	
==>Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22267	22468	
==>Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v <==
5	/Users/nnunley/pugs/misc/S29_round.pl	541	661	
==>abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <==
5	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	214	301	
==>ON-COMMENTED  !!WARNING!!
# -----------------------------------------------

sub IDGener <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4259	4360	
==>ply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4259	4360	
==>ply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4259	4360	
==>ply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    ' <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9234	9327	
==>> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9234	9327	
==>> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4909	5034	
==>l $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4909	5034	
==>l $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4909	5034	
==>l $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK <==
5	/Users/nnunley/pugs/inc/Module/Install.pm	3063	3154	
==>self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5265	5356	
==>self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6370	6490	
==>>() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $ma <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6370	6490	
==>>() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $ma <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	7865	7969	
==>}
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.tr <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7865	7969	
==>}
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.tr <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1204	1296	
==>expressions

=head1 VERSION

This document describes version 0.03 of re::override, released
M <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	83	186	
==>s;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pad;
    use base qw/Blondie: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1861	1962	
==>efault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1861	1962	
==>efault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::ne <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1861	1962	
==>efault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::ne <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2668	2761	
==>ations

The Pugs/Haskell Perl 6 is currently the most complete implementation. 
Pugs currently <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1614	1710	
==>l5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1754	1850	
==>l5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4912	5002	
==>lessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4912	5002	
==>lessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4912	5002	
==>lessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16666	16764	
==>:name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16666	16764	
==>:name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16666	16764	
==>:name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12741	12836	
==>the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:density <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12741	12836	
==>the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:density <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11604	11796	
==>ure} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, ' <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7886	8078	
==>ure} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, ' <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8720	8912	
==>ure} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, ' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	15853	15949	
==>ic_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relati <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19330	19426	
==>ic_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relati <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1064	1182	
==>ine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named v <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1064	1182	
==>ine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named v <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3250	3359	
==>elf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3250	3359	
==>elf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3250	3359	
==>elf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_cl <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7835	7965	
==>s + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7835	7965	
==>s + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7835	7965	
==>s + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1024	1124	
==>/gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1024	1124	
==>/gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3312	3420	
==>man{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}./ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3312	3420	
==>man{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}./ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3312	3420	
==>man{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}./ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	9295	9391	
==>her!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12772	12868	
==>her!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	477	587	
==>LY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probab <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	477	587	
==>LY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probab <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1742	1843	
==>" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1742	1843	
==>" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1742	1843	
==>" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3487	3599	
==>my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3487	3599	
==>my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"te <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3487	3599	
==>my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"te <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1952	2051	
==>, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2010	2109	
==>, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23124	23318	
==>p::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23403	23597	
==>p::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1954	2064	
==>::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1954	2064	
==>::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1954	2064	
==>::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3808	3927	
==>n_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.inter <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3808	3927	
==>n_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.inter <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2287	2405	
==>now what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2287	2405	
==>now what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    r <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2287	2405	
==>now what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6603	6731	
==>"BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6603	6731	
==>"BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packag <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6603	6731	
==>"BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packag <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21390	21484	
==>E<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21390	21484	
==>E<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12524	12620	
==>istance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty se <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12524	12620	
==>istance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8323	8414	
==>M: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8323	8414	
==>M: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}. <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8323	8414	
==>M: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6433	6538	
==>\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6433	6538	
==>\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6433	6538	
==>\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$ <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	128	222	
==>OTHERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke): skipped tests hav <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	634	723	
==>dToken("term:\$", "term:", "nows", &parse_dollar);
    $optable->addToken("term:.", "term: <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9389	9519	
==>> sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alt <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9389	9519	
==>> sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2846	2940	
==>name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2846	2940	
==>name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2846	2940	
==>name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1678	1783	
==>elf->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::R <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1818	1923	
==>elf->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::R <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1095	1230	
==>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy ye <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	15161	15269	
==>s
    has Bool $.is_dst;
}

multi sub localtime(Num $when = time) returns Time::Local
        is primitive is <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2829	2928	
==>./month_0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec>;
method month_abb <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19137	19230	
==>h little
trouble.  Likewise, emulation layers for any other programming language can
be suppor <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19137	19230	
==>h little
trouble.  Likewise, emulation layers for any other programming language can
be suppor <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2041	2183	
==>ion {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %sel <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2041	2183	
==>ion {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3579	3690	
==>e($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3579	3690	
==>e($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadT <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3579	3690	
==>e($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	562	695	
==>)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_pat <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	597	730	
==>)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_pat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	562	695	
==>)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_pat <==
5	/Users/nnunley/pugs/util/build_pugs.pl	9779	9912	
==>)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_pat <==
5	/Users/nnunley/pugs/util/src_to_blib.pl	1035	1168	
==>)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_pat <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	127	226	
==>is is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	127	226	
==>is is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4925	5025	
==>se {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4925	5025	
==>se {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4925	5025	
==>se {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	292	387	
==>::Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in t <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	292	387	
==>::Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9907	10013	
==>1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9907	10013	
==>1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9907	10013	
==>1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8711	8806	
==>s_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_ <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8769	8864	
==>s_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_ <==
5	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6448	6543	
==>" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_in <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5521	5616	
==>" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_in <==
5	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6448	6543	
==>" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_in <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5521	5616	
==>" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_in <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14430	14522	
==>]), !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%------- <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1350	1479	
==>bs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1350	1479	
==>bs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20719	20816	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20719	20816	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20719	20816	
==>1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1278	1387	
==>on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1278	1387	
==>on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remov <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1278	1387	
==>on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remov <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9878	9973	
==>of common test utility functions, and is
an implementation of the TAP protocol.

This module, li <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9936	10031	
==>of common test utility functions, and is
an implementation of the TAP protocol.

This module, li <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6745	6847	
==>etTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6745	6847	
==>etTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6745	6847	
==>etTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26181	26278	
==>ator that returns a new Relation
which has a subset of the original's attributes; that subset is t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30733	30830	
==>ator that returns a new Relation
which has a subset of the original's attributes; that subset is t <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8018	8162	
==>lems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8018	8162	
==>lems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::Lis <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	215	317	
==>title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a reque <==
5	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	215	317	
==>title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a reque <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	733	832	
==>flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2855	2977	
==>:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $id <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2855	2977	
==>:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $id <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2855	2977	
==>:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $id <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6382	6474	
==><from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channe <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6382	6474	
==><from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3145	3265	
==>ide++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3145	3265	
==>ide++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22742	22843	
==>k> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
rule Catch :words <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15666	15760	
==>se speaker often prefers to
communicate in those languages.  Or, when viewing an error message, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15666	15760	
==>se speaker often prefers to
communicate in those languages.  Or, when viewing an error message, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1536	1652	
==>n perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1536	1652	
==>n perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1536	1652	
==>n perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	975	1080	
==>s $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $f <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	942	1047	
==>s $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10982	11085	
==>TIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10982	11085	
==>TIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10982	11085	
==>TIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in m <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6447	6549	
==>ame> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

= <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6447	6549	
==>ame> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3401	3501	
==>elf->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3401	3501	
==>elf->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_nam <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3401	3501	
==>elf->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2139	2240	
==>he list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2139	2240	
==>he list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2139	2240	
==>he list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1627	1724	
==>, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
cla <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1627	1724	
==>, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
cla <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16256	16376	
==>"$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16250	16370	
==>"$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8644	8760	
==>:stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8644	8760	
==>:stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8644	8760	
==>:stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1394	1509	
==>'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubT <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4519	4631	
==>'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubT <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4519	4631	
==>'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubT <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	369	469	
==>off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> i <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	369	469	
==>off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> i <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	516	632	
==>reting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    m <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15573	15671	
==>es>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15573	15671	
==>es>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define t <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	7438	7537	
==>if ($_[0] == $_[1]); # in a recursive let expr a generic recursive function will be reunified with i <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8796	8892	
==>d Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

C <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3725	3821	
==>d Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8796	8892	
==>d Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

C <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3725	3821	
==>d Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

C <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4952	5078	
==>lde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr( <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4952	5078	
==>lde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5541	5645	
==>val.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5541	5645	
==>val.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5541	5645	
==>val.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript:: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17770	17882	
==>ick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16808	16920	
==>ick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17770	17882	
==>ick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot" <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16808	16920	
==>ick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot" <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	641	738	
==>) == 0  ? bit->new(1) : bit->new(0) }

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->new( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3755	3945	
==>();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Gramma <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21463	21558	
==>hen the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20344	20439	
==>hen the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21463	21558	
==>hen the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20344	20439	
==>hen the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" e <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1188	1348	
==>E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +--- <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3484	3644	
==>E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +--- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1188	1348	
==>E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +--- <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3484	3644	
==>E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +--- <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19626	19727	
==>XX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C|F1],F1,B0,[C|B0], <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	4009	4202	
==>_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7486	7679	
==>_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4695	4790	
==>= open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4695	4790	
==>= open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $! <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4695	4790	
==>= open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $! <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4690	4817	
==>($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13115	13242	
==>($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15726	15853	
==>($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17214	17341	
==>($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $se <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21897	22024	
==>($how eq '=') { $self->{data} = \@_ }
      elsif ($how eq '+') { push @{ $self->{data} }, @_ }
      else {
        my $t = $se <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1657	1780	
==>ery.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.h <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1657	1780	
==>ery.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3739	3857	
==>shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3739	3857	
==>shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3739	3857	
==>shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	698	857	
==>ock', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return u <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	698	857	
==>ock', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return u <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6920	7034	
==>= args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new container <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6920	7034	
==>= args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new container <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6920	7034	
==>= args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new container <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3863	3979	
==>lue $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3875	3991	
==>lue $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scop <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	3678	3789	
==>$mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7155	7266	
==>$mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!h <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6112	6223	
==>$mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12988	13098	
==>hod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12988	13098	
==>hod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12988	13098	
==>hod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	1841	1941	
==>xpected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1899	1999	
==>xpected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4150	4255	
==>c);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4150	4255	
==>c);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2799	2895	
==>" . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2799	2895	
==>" . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2799	2895	
==>" . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2105	2214	
==>rror_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	110	211	
==>rror_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	110	211	
==>rror_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\ <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4176	4273	
==>var2=value2

If a property is outside of a section, it will be assigned to the root
section, avail <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4176	4273	
==>var2=value2

If a property is outside of a section, it will be assigned to the root
section, avail <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7079	7214	
==>lice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7079	7214	
==>lice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->i <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7079	7214	
==>lice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3902	4025	
==>ewline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4095	4218	
==>ewline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4904	5031	
==>e want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4904	5031	
==>e want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patte <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4904	5031	
==>e want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patte <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5291	5383	
==>ncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGE <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5291	5383	
==>ncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGE <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	780	905	
==>ame";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	97	198	
==>es most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	97	198	
==>es most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
u <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	97	198	
==>es most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
u <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9225	9318	
==>Array::reduce (@values ; Code *&expression --> Scalar )
 multi  List::reduce (Code $expression <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4483	4596	
==>y (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $di <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4483	4596	
==>y (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $di <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13521	13618	
==>-r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13521	13618	
==>-r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_f <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13521	13618	
==>-r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14058	14229	
==>{
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14058	14229	
==>{
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14058	14229	
==>{
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24499	24590	
==>modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24499	24590	
==>modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	384	497	
==>'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = imm <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	590	703	
==>'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = imm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1401	1497	
==>=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1401	1497	
==>=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1401	1497	
==>=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3944	4055	
==>s defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3944	4055	
==>s defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3944	4055	
==>s defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1467	1572	
==>Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1467	1572	
==>Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset( <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8013	8150	
==>ne(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &con <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8013	8150	
==>ne(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &con <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24514	24624	
==>b Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24514	24624	
==>b Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24514	24624	
==>b Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10345	10441	
==>type (eg, hash vs array).  The deferred validations are performed
on demand at some time after th <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10345	10441	
==>type (eg, hash vs array).  The deferred validations are performed
on demand at some time after th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11654	11743	
==>.")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11654	11743	
==>.")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11654	11743	
==>.")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	70	181	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	70	181	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fun <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	70	181	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fun <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	459	561	
==>Invite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESC <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	459	561	
==>Invite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESC <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	120	371	
==>Text-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Ye <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	120	371	
==>Text-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Ye <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36007	36235	
==>tributes'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$attribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('ad <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9253	9449	
==>ould normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defi <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9253	9449	
==>ould normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1671	1774	
==>O = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1671	1774	
==>O = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1671	1774	
==>O = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PI <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	355	450	
==>Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	355	450	
==>Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5748	5854	
==>database connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Roset <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5748	5854	
==>database connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Roset <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	37408	37501	
==>This multi-method is the N-ary version of the aforementioned binary join()
operator, and the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41957	42050	
==>This multi-method is the N-ary version of the aforementioned binary join()
operator, and the o <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41598	41691	
==>This multi-method is the N-ary version of the aforementioned binary join()
operator, and the o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12980	13088	
==>, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12980	13088	
==>, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed valu <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12980	13088	
==>, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed valu <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10278	10378	
==>tart or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a lis <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10278	10378	
==>tart or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a lis <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	177	300	
==>is;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	177	300	
==>is;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::ro <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	177	300	
==>is;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::ro <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2241	2353	
==>.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span:: <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2241	2353	
==>.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1898	2010	
==>tate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pSc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1898	2010	
==>tate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pSc <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1898	2010	
==>tate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pSc <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	973	1075	
==>s Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_ <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	973	1075	
==>s Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2019	2154	
==>ure( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2019	2154	
==>ure( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2561	2657	
==>age 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2561	2657	
==>age 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2561	2657	
==>age 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1332	1471	
==>ypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1332	1471	
==>ypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1332	1471	
==>ypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19884	19974	
==>cknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19884	19974	
==>cknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26795	26917	
==>\&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ev <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27074	27196	
==>\&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ev <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3176	3284	
==>y $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = " <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14217	14325	
==>refix eq 'statement_control';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3164	3272	
==>y $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = " <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1499	1627	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        ta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1952	2080	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        ta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2387	2515	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        ta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2824	2952	
==>> 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        ta <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39697	39811	
==>cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an object:
      $S->warn(RPe_BADESC, "y", " in ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15334	15440	
==>? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15334	15440	
==>? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15334	15440	
==>? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2820	2916	
==>SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs current <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2820	2916	
==>SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs current <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4953	5101	
==>osure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x== <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4953	5101	
==>osure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x== <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1232	1354	
==>nce (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1232	1354	
==>nce (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $in <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1232	1354	
==>nce (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11551	11663	
==>sts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11551	11663	
==>sts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11551	11663	
==>sts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19604	19696	
==>hesse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net:: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19604	19696	
==>hesse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	514	622	
==>_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	514	622	
==>_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	514	622	
==>_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_s <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16880	16978	
==>rwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a sca <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16880	16978	
==>rwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a sca <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2092	2192	
==>hod add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_heig <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2092	2192	
==>hod add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_heig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4703	4802	
==>ULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4703	4802	
==>ULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4703	4802	
==>ULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MU <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	501	671	
==>do) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              thr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	501	671	
==>do) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              thr <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	501	671	
==>do) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              thr <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2452	2553	
==>my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets ha <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2452	2553	
==>my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets ha <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5304	5440	
==>ined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5304	5440	
==>ined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5304	5440	
==>ined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13926	14051	
==>sh =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14205	14330	
==>sh =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	612	715	
==>e(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	612	715	
==>e(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	612	715	
==>e(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14691	14808	
==>t, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14691	14808	
==>t, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ... <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14691	14808	
==>t, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ... <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1087	1196	
==>t, however at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so ... <==
5	/Users/nnunley/pugs/util/addauthors.pl	22	126	
==>rnings;
use strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18510	18607	
==>in the future, but for now it officially is not and you should not share
Rosetta objects between m <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3194	3291	
==>tive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tran <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18510	18607	
==>in the future, but for now it officially is not and you should not share
Rosetta objects between m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3194	3291	
==>tive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tran <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3194	3291	
==>tive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tran <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9950	10147	
==>iption => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::T <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	516	701	
==>iption => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::T <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	516	701	
==>iption => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::T <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10599	10702	
==>nuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a w <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10599	10702	
==>nuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3200	3358	
==>'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3200	3358	
==>'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3200	3358	
==>'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing-> <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1670	1767	
==>turns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path re <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1670	1767	
==>turns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path re <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5587	5721	
==>ail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5587	5721	
==>ail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3761	3865	
==>}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.& <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3761	3865	
==>}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.& <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3761	3865	
==>}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.& <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	7144	7270	
==>, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7144	7270	
==>, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6275	6366	
==>lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6275	6366	
==>lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PI <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6275	6366	
==>lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PI <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3875	3980	
==>path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{ <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3875	3980	
==>path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14317	14411	
==>m_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14317	14411	
==>m_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14317	14411	
==>m_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12864	13020	
==>atcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12864	13020	
==>atcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12864	13020	
==>atcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7649	7745	
==>"Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authen <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7649	7745	
==>"Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authen <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9016	9114	
==>ERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object al <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8719	8815	
==>ERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object al <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	649	918	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::V <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	649	918	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::V <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22163	22374	
==>warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22163	22374	
==>warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp- <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22163	22374	
==>warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35287	35425	
==>rray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35287	35425	
==>rray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_t <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35287	35425	
==>rray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3037	3159	
==>= shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  } <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3584	3706	
==>= shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  } <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3000	3132	
==>( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2884	3009	
==>( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1773	1869	
==>2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1773	1869	
==>2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompil <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1773	1869	
==>2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompil <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4313	4443	
==>1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4313	4443	
==>1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4313	4443	
==>1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($re <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11762	11857	
==>t Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Nod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11762	11857	
==>t Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Nod <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10122	10256	
==>(@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsi <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10122	10256	
==>(@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9765	9883	
==>------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9765	9883	
==>------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it c <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9765	9883	
==>------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14314	14426	
==>6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14314	14426	
==>6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14314	14426	
==>6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11698	11792	
==>Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Mod <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11698	11792	
==>Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Mod <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1980	2168	
==>h->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$st <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2400	2582	
==>h->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$st <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1916	2098	
==>h->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2400	2582	
==>h->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$st <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46767	46933	
==>returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e->get('$label') <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9538	9663	
==>hift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9538	9663	
==>hift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9538	9663	
==>hift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::strin <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5102	5198	
==>=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of su <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5102	5198	
==>=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of su <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13260	13413	
==>my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string, <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	325	472	
==>"\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; may <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3433	3570	
==>my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3433	3570	
==>my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3433	3570	
==>my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	776	888	
==>h slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	776	888	
==>h slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	776	888	
==>h slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	444	543	
==>.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
mu <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	444	543	
==>.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
mu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2749	2884	
==>t
  class Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer return <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	504	623	
==>t
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer return <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	504	623	
==>t
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer return <==
5	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	429	541	
==>sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timet <==
5	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	429	541	
==>sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timet <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14456	14609	
==>urn shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14456	14609	
==>urn shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return po <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14456	14609	
==>urn shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return po <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1202	1297	
==>OPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.). <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1202	1297	
==>OPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.). <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4529	4660	
==>);
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4529	4660	
==>);
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1979	2087	
==>) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1979	2087	
==>) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1979	2087	
==>) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7442	7548	
==>_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8992	9098	
==>will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str = <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7442	7548	
==>_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8992	9098	
==>will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8992	9098	
==>will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str = <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10093	10190	
==>'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10093	10190	
==>'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4292	4395	
==>(Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#meth <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4292	4395	
==>(Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#meth <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5165	5267	
==>(Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
meth <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5165	5267	
==>(Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
meth <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2571	2669	
==>afe   (Array)\
#   ie, both return and argument types differ.
multi infix:«Y» (Array *@arrays --> <==
5	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1499	1593	
==>LES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\W <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1339	1433	
==>LES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\W <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	936	1025	
==>refix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	936	1025	
==>refix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	936	1025	
==>refix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32310	32408	
==>of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36860	36958	
==>of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36150	36248	
==>of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not ha <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9568	9664	
==>tines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
excep <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9568	9664	
==>tines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
excep <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20254	20373	
==>..      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20254	20373	
==>..      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20254	20373	
==>..      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6832	6926	
==>cient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($i <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6832	6926	
==>cient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2072	2232	
==>turn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7015	7173	
==>turn sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1843	1998	
==>turn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1843	1998	
==>turn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6780	6933	
==>turn sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14756	14859	
==>alue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14756	14859	
==>alue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14756	14859	
==>alue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10115	10212	
==>$set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10115	10212	
==>$set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	615	727	
==>do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub consta <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	615	727	
==>do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub consta <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13313	13417	
==>SES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '* <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13313	13417	
==>SES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '* <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13313	13417	
==>SES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '* <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26029	26128	
==>.Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rul <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2776	2873	
==>IGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by t <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2933	3030	
==>IGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by t <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2776	2873	
==>IGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by t <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2933	3030	
==>IGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by t <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9160	9422	
==>ions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5520	5782	
==>ions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6369	6631	
==>ions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	777	880	
==>ompile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allo <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	777	880	
==>ompile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allo <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5550	5824	
==>$val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take q <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5550	5824	
==>$val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take q <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1563	1654	
==>$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLow <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1563	1654	
==>$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLow <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1563	1654	
==>$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLow <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32974	33074	
==>tes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32974	33074	
==>tes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20866	20960	
==>.};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20866	20960	
==>.};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20866	20960	
==>.};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 <==
5	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	267	413	
==>$class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        retur <==
5	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	267	413	
==>$class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20659	20754	
==>infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20659	20754	
==>infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20659	20754	
==>infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5 <==
5	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2964	3072	
==><-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer ! <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2964	3072	
==><-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer ! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1889	1991	
==>non-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1889	1991	
==>non-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        r <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1889	1991	
==>non-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        r <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2112	2220	
==>nt $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	r <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2261	2367	
==>er.()) {
        return $current.get_method($label, %opts)
            if $current.has_method($label, %opts <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	834	930	
==>ite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
chara <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	834	930	
==>ite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
chara <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1390	1486	
==>ite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
chara <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2752	2928	
==>ss $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2752	2928	
==>ss $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2752	2928	
==>ss $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2012	2115	
==>~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2012	2115	
==>~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7238	7362	
==>$meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(R <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7238	7362	
==>$meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(R <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2072	2178	
==>PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2072	2178	
==>PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fal <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2072	2178	
==>PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fal <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13324	13417	
==>ight input format for
Document.new(), by which you can create an identical Document (with memb <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13324	13417	
==>ight input format for
Document.new(), by which you can create an identical Document (with memb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4673	4764	
==>f($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4673	4764	
==>f($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4673	4764	
==>f($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7186	7298	
==>>( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7174	7286	
==>>( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	310	408	
==>1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	310	408	
==>1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	310	408	
==>1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5332	5436	
==>lGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5332	5436	
==>lGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5332	5436	
==>lGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14835	14932	
==>r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
e <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14835	14932	
==>r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17349	17532	
==>leop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23315	23498	
==>leop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17628	17811	
==>leop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23594	23777	
==>leop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
5	/Users/nnunley/pugs/util/gen_prelude.pl	4574	4679	
==>pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse-YAML', $TEMP_PRELUDE);
    $lines += print OUT while <$r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18125	18257	
==>=> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17163	17295	
==>=> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18125	18257	
==>=> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17163	17295	
==>=> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $ <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17397	17495	
==>nNoIn> <'^'> <BitwiseANDExpressionNoIn>
}
rule BitwiseORExpression :words {  # see 11.10
      <Bit <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18387	18477	
==>he server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18387	18477	
==>he server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6429	6518	
==>MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6429	6518	
==>MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6429	6518	
==>MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWit <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5738	5866	
==>ase = quotemeta dirname( $from );
        
        for my $dir ( File::Find::Rule->directory->in( $from ) ) {
            ### str <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	369	490	
==><ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attribu <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	860	981	
==><ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attribu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	369	490	
==><ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attribu <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	860	981	
==><ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attribu <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7407	7534	
==>my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call = caller($depth);
    }
    ret <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6949	7052	
==>'\w') if $re eq '\w';
    return $o->mk_eater_for_re('\W') if $re eq '\W';
    die "Regexp compilation b <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4248	4349	
==>function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4248	4349	
==>function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->re <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4248	4349	
==>function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->re <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7508	7629	
==>( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_tex <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7565	7686	
==>( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_tex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18988	19101	
==>->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18988	19101	
==>->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18988	19101	
==>->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6 <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6069	6167	
==>v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $s ~~ s:g/<TheGrammar.StrWh <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5863	5959	
==>skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASS <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5863	5959	
==>skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASS <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8060	8156	
==>skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASS <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	25754	25847	
==>FAILED--Further testing stopped: %s>

If a single subtest decides that further testing will no <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3611	4008	
==>ed $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub { <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3611	4008	
==>ed $step ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6358	6583	
==>ed $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6358	6583	
==>ed $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub { <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6358	6583	
==>ed $step ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub { <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3152	3316	
==>e...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX s <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	55	155	
==>austier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Marti <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	51	151	
==>austier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Marti <==
5	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	51	151	
==>austier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Marti <==
5	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2312	2405	
==>s Getopt::Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7871	8009	
==>gexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7871	8009	
==>gexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7871	8009	
==>gexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_f <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	414	539	
==>ub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	414	539	
==>ub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1784	1889	
==>', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1784	1889	
==>', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2417	2514	
==>ar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2417	2514	
==>ar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is = <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2417	2514	
==>ar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is = <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12235	12342	
==>00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCR <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12235	12342	
==>00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCR <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26220	26317	
==>has a subset of the original's attributes; that subset is the same as
those attribute names in the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30772	30869	
==>has a subset of the original's attributes; that subset is the same as
those attribute names in the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29765	29862	
==>has a subset of the original's attributes; that subset is the same as
those attribute names in the <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3025	3158	
==>leop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3036	3169	
==>leop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4947	5053	
==>_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4947	5053	
==>_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4947	5053	
==>_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6092	6191	
==>myobj. All it needs to do to signal
this is to return the string set in advance with the prune metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6092	6191	
==>myobj. All it needs to do to signal
this is to return the string set in advance with the prune metho <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6092	6191	
==>myobj. All it needs to do to signal
this is to return the string set in advance with the prune metho <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8350	8441	
==>mar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2175	2266	
==>mar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2533	2640	
==>em of supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - see "M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	692	798	
==>>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	692	798	
==>>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	692	798	
==>>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2438	2542	
==>em of supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - see "M <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3261	3372	
==>:Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3261	3372	
==>:Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set(' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3261	3372	
==>:Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1593	1696	
==>e
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and retu <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1593	1696	
==>e
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and retu <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	512	650	
==>extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	802	932	
==>extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20714	20823	
==>e;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20714	20823	
==>e;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20714	20823	
==>e;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4738	4838	
==>nfix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric di <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3865	3965	
==>nfix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric di <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4738	4838	
==>nfix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric di <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3865	3965	
==>nfix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric di <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	424	520	
==>(but not macros) in this file need to have the
`is primitive` trait.

Please also declare whether <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21890	22002	
==>y ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspe <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18311	18423	
==>y ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11968	12090	
==>d($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11968	12090	
==>d($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11968	12090	
==>d($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for <==
5	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1810	1911	
==>xtUtils::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SI <==
5	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	164	261	
==>1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it = Test::Harness::Iterator->new(\*TEST);
  my $ <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5786	5881	
==>od calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5786	5881	
==>od calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7983	8078	
==>od calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	29340	29432	
==>n but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33892	33984	
==>n but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17017	17167	
==>ical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17017	17167	
==>ical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17017	17167	
==>ical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2945	3061	
==>ta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $prot <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3409	3525	
==>ta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $prot <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3962	4062	
==>required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3962	4062	
==>required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3962	4062	
==>required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $p <==
5	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	33	129	
==>line 'INFO','NOISY','FORCE';
# please help fill in this file
# a method of autogenrating bindings <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18423	18519	
==>yof> object's C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If you w <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14255	14467	
==>ass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14255	14467	
==>ass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff di <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14255	14467	
==>ass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff di <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	22	126	
==>:CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.pare <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	22	126	
==>:CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.pare <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1049	1157	
==>[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1049	1157	
==>[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1049	1157	
==>[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	200	361	
==>-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $ <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	200	361	
==>-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26005	26098	
==>eing renamed.  This method
supports renaming attributes to each others' names.

=item C<projec <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30557	30650	
==>eing renamed.  This method
supports renaming attributes to each others' names.

=item C<projec <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29532	29625	
==>eing renamed.  This method
supports renaming attributes to each others' names.

=item C<projec <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8024	8196	
==>dex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8024	8196	
==>dex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8024	8196	
==>dex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4365	4468	
==>->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1491	1594	
==>->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $s <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5682	5836	
==>red' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a poli <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5650	5749	
==>i abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $init = '=('.join("," <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	41	139	
==>Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_heade <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	41	139	
==>Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_heade <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30655	30750	
==>c', so that means it is
pre-consumptive, which is why it must match the right parenthesis
itself <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9596	9722	
==>ted++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!)." <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9596	9722	
==>ted++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!)." <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1428	1522	
==>ude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1428	1522	
==>ude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamod <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1428	1522	
==>ude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7388	7519	
==>-$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ', <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7388	7519	
==>-$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ', <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	27108	27200	
==>s method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31660	31752	
==>s method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30716	30808	
==>s method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11564	11781	
==>$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11564	11781	
==>$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11564	11781	
==>$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0, <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2447	2533	
==>mpiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. I <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2447	2533	
==>mpiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. I <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7519	7670	
==>ant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7519	7670	
==>ant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    / <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7519	7670	
==>ant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    / <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	4867	4990	
==>n[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fi <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4867	4990	
==>n[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fi <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1109	1208	
==>er(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1109	1208	
==>er(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1109	1208	
==>er(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	836	933	
==>about the remote user that is using your CGI. 
It also attempts to provide some useful defaults fo <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	836	933	
==>about the remote user that is using your CGI. 
It also attempts to provide some useful defaults fo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2883	2994	
==>_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ve <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2883	2994	
==>_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ve <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2883	2994	
==>_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ve <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8746	8838	
==>de").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative f <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8746	8838	
==>de").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative f <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13352	13530	
==>rom_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13352	13530	
==>rom_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13352	13530	
==>rom_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store ar <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8749	8861	
==>_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Te <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8807	8919	
==>_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Te <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	865	979	
==>ash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	865	979	
==>ash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys. <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	865	979	
==>ash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys. <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4788	4891	
==>he year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Da <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4788	4891	
==>he year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Da <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11130	11242	
==>ested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11130	11242	
==>ested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2477	2582	
==>export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2477	2582	
==>export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2477	2582	
==>export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box( <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	7404	7521	
==>RING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'pos <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7404	7521	
==>RING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'pos <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	387	488	
==>ve is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	387	488	
==>ve is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	387	488	
==>ve is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array: <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9169	9278	
==>rl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9169	9278	
==>rl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3969	4066	
==>5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3969	4066	
==>5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3969	4066	
==>5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4927	5028	
==>o \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4927	5028	
==>o \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4927	5028	
==>o \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13669	13764	
==>d Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan( <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13669	13764	
==>d Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6835	6989	
==>( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6835	6989	
==>( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'na <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6835	6989	
==>( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'na <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2938	3048	
==>L::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [S <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2938	3048	
==>L::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [S <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6792	6901	
==>uce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$to <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	573	681	
==>cant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key, <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	573	681	
==>cant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key, <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	1054	1154	
==>nt $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

= <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1054	1154	
==>nt $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	691	801	
==>rgs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	691	801	
==>rgs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	691	801	
==>rgs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_ <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6208	6307	
==>' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6208	6307	
==>' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val' <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	17843	18021	
==>t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21320	21498	
==>t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20907	21085	
==>t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	10924	11021	
==>w;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair-> <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	11116	11213	
==>w;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2939	3053	
==>{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2939	3053	
==>{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2939	3053	
==>{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetc <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2314	2423	
==>ual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Pa <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2314	2423	
==>ual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Pa <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4237	4360	
==>1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4225	4348	
==>1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1121	1218	
==>ber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1121	1218	
==>ber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1121	1218	
==>ber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4453	4604	
==>) . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4453	4604	
==>) . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::ma <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4453	4604	
==>) . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::ma <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5448	5577	
==>inue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dime <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5448	5577	
==>inue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dime <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8086	8224	
==>fess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8086	8224	
==>fess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8086	8224	
==>fess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1012	1119	
==>object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all N <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1012	1119	
==>object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all N <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10454	10562	
==>ses to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10454	10562	
==>ses to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}} <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10454	10562	
==>ses to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}} <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1890	2032	
==>my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1878	2020	
==>my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2383	2518	
==>p;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2383	2518	
==>p;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2383	2518	
==>p;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43436	43530	
==>work in the problem domain of managing
data or data definitions or connections to databases: L< <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	794	900	
==>""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	794	900	
==>""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	794	900	
==>""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1 <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8681	8774	
==>dule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_as <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8681	8774	
==>dule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_as <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8564	8747	
==>OT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8564	8747	
==>OT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	851	946	
==>mes in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	851	946	
==>mes in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mus <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	851	946	
==>mes in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mus <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	1429	1531	
==>Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $p <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1429	1531	
==>Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $p <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8789	8882	
==>ing Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..I <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8789	8882	
==>ing Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..I <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14634	14724	
==>XXX - not quite right... need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,b <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	2696	2874	
==>d( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2696	2874	
==>d( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5855	5973	
==>redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5855	5973	
==>redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1785	1906	
==>ffsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1785	1906	
==>ffsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slur <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1785	1906	
==>ffsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slur <==
5	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	973	1066	
==>ead1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	973	1066	
==>ead1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1084	1189	
==>mporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1084	1189	
==>mporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed ty <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1084	1189	
==>mporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed ty <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8804	8908	
==>%{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8513	8614	
==>%{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	274	374	
==>params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	274	374	
==>params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	274	374	
==>params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::m <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	39	128	
==>nfig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	39	128	
==>nfig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14561	14687	
==>circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14561	14687	
==>circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO f <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14561	14687	
==>circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO f <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	8988	9090	
==>:testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9046	9148	
==>:testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3123	3277	
==>ip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ jo <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3123	3277	
==>ip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ jo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13572	13701	
==>$key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13572	13701	
==>$key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) || <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13572	13701	
==>$key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) || <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4840	4974	
==>::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13265	13399	
==>::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15876	16010	
==>::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17364	17498	
==>::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22047	22181	
==>::croak("\$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	105	223	
==>.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	105	223	
==>.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(ar <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	105	223	
==>.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	91	199	
==>ORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	91	199	
==>ORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        s <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9805	9912	
==>itrd_mnt\" by entering the following
      command as root:
      # mount -o loop -t ext2 $initrd_img $initr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6059	6157	
==>rent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eithe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6059	6157	
==>rent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eithe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6059	6157	
==>rent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eithe <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17844	17933	
==>e),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1113	1211	
==>------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1113	1211	
==>------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1113	1211	
==>------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - s <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	694	791	
==>:DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - con <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	694	791	
==>:DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - con <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1940	2052	
==>tr $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1940	2052	
==>tr $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2020	2132	
==>tr $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $ <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5796	5900	
==>ix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5278	5382	
==>ix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7025	7125	
==>osBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7025	7125	
==>osBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3924	4024	
==>osBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15178	15272	
==>d
parties) implement.  This interface is rigorously defined, such that there
should be no ambig <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15178	15272	
==>d
parties) implement.  This interface is rigorously defined, such that there
should be no ambig <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6730	6869	
==>less $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6730	6869	
==>less $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6730	6869	
==>less $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21267	21355	
==>01", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {... <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21267	21355	
==>01", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {... <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7791	7928	
==>( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7791	7928	
==>( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7791	7928	
==>( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	4345	4438	
==>7216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $d <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4345	4438	
==>7216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $d <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2895	3157	
==>ne Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::I <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2895	3157	
==>ne Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::I <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	503	608	
==>aram );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	503	608	
==>aram );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	12	109	
==>mply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	12	109	
==>mply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- th <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	12	109	
==>mply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- th <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5994	6101	
==>e - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.n <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5994	6101	
==>e - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6129	6226	
==>\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a k <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6129	6226	
==>\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a k <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6129	6226	
==>\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a k <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19846	19991	
==>Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19846	19991	
==>Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->w <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19846	19991	
==>Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->w <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2572	2683	
==>?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1 <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2572	2683	
==>?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6684	6784	
==>ads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6684	6784	
==>ads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6684	6784	
==>ads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7634	7755	
==>> chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr( <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7634	7755	
==>> chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2195	2299	
==>= $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2195	2299	
==>= $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2195	2299	
==>= $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3104	3320	
==>skip'   => 1,
                        '$.number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10963	11072	
==>d a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10963	11072	
==>d a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16264	16356	
==>fective mechanism for
applications and packages that empowers single binaries to support N
lo <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16264	16356	
==>fective mechanism for
applications and packages that empowers single binaries to support N
lo <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1976	2080	
==>me->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($nam <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	38	139	
==>ead1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	38	139	
==>ead1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1658	1758	
==>me->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($nam <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2306	2406	
==>me->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7479	7619	
==>if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7479	7619	
==>if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7479	7619	
==>if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9536	9646	
==>[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9524	9634	
==>[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named = <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	2921	3028	
==>gainst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($inde <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2921	3028	
==>gainst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($inde <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6216	6319	
==>);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6216	6319	
==>);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6216	6319	
==>);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9098	9242	
==>ew( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9098	9242	
==>ew( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9098	9242	
==>ew( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4205	4322	
==>= $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4076	4191	
==>= $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4362	4469	
==>en, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which ar <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4362	4469	
==>en, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which ar <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4871	4976	
==>en, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which ar <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4871	4976	
==>en, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which ar <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4789	4895	
==>n_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4789	4895	
==>n_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4789	4895	
==>n_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	311	411	
==>nless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	311	411	
==>nless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15400	15522	
==>Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15400	15522	
==>Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value: <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15400	15522	
==>Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value: <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	868	983	
==>DEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elem <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	868	983	
==>DEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elem <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8898	9018	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8898	9018	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8898	9018	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_m <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	141	249	
==>t( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional( <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	141	249	
==>t( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13375	13507	
==>) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13375	13507	
==>) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_mac <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13375	13507	
==>) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_mac <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9494	9600	
==>cket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9494	9600	
==>cket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1671	1766	
==>'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1671	1766	
==>'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1671	1766	
==>'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	246	352	
==>) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	246	352	
==>) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2306	2398	
==>mp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precomp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2306	2398	
==>mp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precomp <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2306	2398	
==>mp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precomp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1158	1290	
==>ve_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1158	1290	
==>ve_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1158	1290	
==>ve_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7538	7660	
==>age_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defi <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7538	7660	
==>age_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defi <==
5	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	410	540	
==>$re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute($re, $_[0], 0);
            my @r <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19561	19653	
==>nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specifi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18542	18634	
==>nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specifi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19561	19653	
==>nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specifi <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18542	18634	
==>nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specifi <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3537	3635	
==>ated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<del <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3537	3635	
==>ated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<del <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9669	9763	
==>RO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9669	9763	
==>RO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9669	9763	
==>RO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class. <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1377	1491	
==>ist is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1721	1833	
==>ist is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1328	1440	
==>ist is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1721	1833	
==>ist is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21844	21934	
==>=head1 SUB-CLASSING

I will present two example sub-classes, F<Regexp::NoCode>, and
F<Regex <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	766	857	
==>unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	766	857	
==>unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14578	14682	
==>channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14578	14682	
==>channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	107	210	
==>Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	107	210	
==>Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	107	210	
==>Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with p <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2052	2153	
==>i sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statem <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2052	2153	
==>i sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statem <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2052	2153	
==>i sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statem <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37388	37482	
==>and false if not.

=item C<load_template_module( $module_name! )>

This method takes the name o <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37388	37482	
==>and false if not.

=item C<load_template_module( $module_name! )>

This method takes the name o <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2063	2231	
==>oad'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookie <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2063	2231	
==>oad'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookie <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3675	3769	
==>);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3675	3769	
==>);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3675	3769	
==>);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	524	632	
==>?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	784	892	
==>?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        mat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1056	1164	
==>?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        mat <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8714	8805	
==>osetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_pe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8714	8805	
==>osetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_pe <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13976	14112	
==>@ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13976	14112	
==>@ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13976	14112	
==>@ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5267	5377	
==>3{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5267	5377	
==>3{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13080	13178	
==>her they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because somethin <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13138	13236	
==>her they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because somethin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3545	3631	
==>attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3545	3631	
==>attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attri <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3545	3631	
==>attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attri <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24815	24913	
==>Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C<: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23579	23677	
==>Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C<: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24815	24913	
==>Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C<: <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23579	23677	
==>Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C<: <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3524	3620	
==>tan';
trig_func 'asin';
trig_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
t <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15221	15377	
==>urn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15215	15371	
==>urn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19437	19537	
==>t the same as a table.

The intended interface and use of this class in Perl programs is similar to
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23989	24089	
==>t the same as a table.

The intended interface and use of this class in Perl programs is similar to
t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22505	22605	
==>t the same as a table.

The intended interface and use of this class in Perl programs is similar to
t <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2071	2187	
==>C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basena <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2071	2187	
==>C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basena <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	265	353	
==>perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	265	353	
==>perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hac <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	265	353	
==>perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hac <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3427	3549	
==>ILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3427	3549	
==>ILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12871	12970	
==>nfess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12871	12970	
==>nfess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12871	12970	
==>nfess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14519	14698	
==>ant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\= <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14798	14977	
==>ant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\= <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2616	2736	
==>ression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and sa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2616	2736	
==>ression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and sa <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2616	2736	
==>ression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and sa <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1358	1454	
==>of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1358	1454	
==>of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19284	19387	
==>or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23836	23939	
==>or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
r <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22352	22455	
==>or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
r <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	12	105	
==>ME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DE <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	12	105	
==>ME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DE <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3495	3633	
==>automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3495	3633	
==>automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use p <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3495	3633	
==>automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use p <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1149	1250	
==>rectory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($wor <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1149	1250	
==>rectory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($wor <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	661	838	
==>^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone to <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	661	838	
==>^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone to <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4723	4814	
==>::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4723	4814	
==>::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4723	4814	
==>::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11962	12074	
==>%$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11962	12074	
==>%$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

su <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11962	12074	
==>%$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1330	1432	
==>ass->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_mean <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1330	1432	
==>ass->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_mean <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	886	1004	
==>rgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	886	1004	
==>rgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->f <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	886	1004	
==>rgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->f <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21841	21954	
==>suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18262	18375	
==>suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5244	5376	
==>hr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5244	5376	
==>hr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4221	4317	
==>d min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4221	4317	
==>d min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4221	4317	
==>d min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28086	28305	
==>perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28086	28305	
==>perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Pe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28086	28305	
==>perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Pe <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8696	8790	
==>(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'l <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8696	8790	
==>(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12193	12297	
==>t found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12193	12297	
==>t found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $meth <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12193	12297	
==>t found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $meth <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	11112	11206	
==>ility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, : <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11112	11206	
==>ility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4353	4452	
==>d_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4353	4452	
==>d_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subn <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4353	4452	
==>d_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subn <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1748	1843	
==>utes which might be interesting to 
people interested in the algorithm itself.  The attributes i <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1748	1843	
==>utes which might be interesting to 
people interested in the algorithm itself.  The attributes i <==
5	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13181	13293	
==>$self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $sel <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	591	703	
==>$self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	252	350	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	252	350	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	252	350	
==>:Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	130	260	
==>xt inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method calls

    @baz[3 <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	698	805	
==>... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smok <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13880	13977	
==>(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13880	13977	
==>(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13880	13977	
==>(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36450	36551	
==>: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36450	36551	
==>: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36450	36551	
==>: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20238	20337	
==>ableDeclarationListNoIn :words {  # see 12.2
      <VariableDeclarationNoIn>
    | <VariableDeclarat <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	452	567	
==>* size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	452	567	
==>* size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2093	2195	
==>"(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2093	2195	
==>"(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')( <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2093	2195	
==>"(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9100	9207	
==>$n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoca <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9100	9207	
==>$n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoca <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9100	9207	
==>$n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoca <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11950	12049	
==>he field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $val <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11950	12049	
==>he field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $val <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10568	10703	
==>nt" );
}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a state <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7705	7808	
==>.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $laz <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7705	7808	
==>.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $laz <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1840	1939	
==>rens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !de <==
5	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	836	935	
==>rens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !de <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14260	14360	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14260	14360	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14260	14360	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1379	1471	
==>rg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', % <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1379	1471	
==>rg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', % <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1736	1851	
==>{
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1736	1851	
==>{
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1736	1851	
==>{
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please r <==
5	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1093	1202	
==>s.
# But in my understanding, The implemention below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	325	415	
==>ence.

It uses Language::Prolog::Yaswi, which requires swi-prolog be
installed with non-def <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20486	20583	
==>('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20486	20583	
==>('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20486	20583	
==>('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21371	21467	
==>with the package name?).  An advantage of
this is that, for example, your package could come with <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21371	21467	
==>with the package name?).  An advantage of
this is that, for example, your package could come with <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2927	3034	
==>ompiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt - <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2927	3034	
==>ompiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13021	13109	
==>alX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13021	13109	
==>alX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-t <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13021	13109	
==>alX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3011	3126	
==>if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3011	3126	
==>if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_cl <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3011	3126	
==>if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_cl <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10809	10902	
==>r>

=item B<content_length returns Str>

=back

B<The following informational functions are fe <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10809	10902	
==>r>

=item B<content_length returns Str>

=back

B<The following informational functions are fe <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1970	2089	
==>elf = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1970	2089	
==>elf = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1328	1430	
==>onal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opti <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1328	1430	
==>onal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opti <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1537	1639	
==>onal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opti <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	147	246	
==>from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with P <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	147	246	
==>from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with P <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1371	1464	
==>Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1371	1464	
==>Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1371	1464	
==>Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32297	32394	
==>e regardless of
which is the invocant and which is the argument.  This method will fail if
C<$othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36847	36944	
==>e regardless of
which is the invocant and which is the argument.  This method will fail if
C<$othe <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36137	36234	
==>e regardless of
which is the invocant and which is the argument.  This method will fail if
C<$othe <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9781	9873	
==>ceeded, even if the return
value is undefined.

Rosetta::Model's input validation is performe <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9781	9873	
==>ceeded, even if the return
value is undefined.

Rosetta::Model's input validation is performe <==
5	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1020	1160	
==>escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= <==
5	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1020	1160	
==>escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	885	981	
==>ub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	885	981	
==>ub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	885	981	
==>ub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	867	1012	
==>$script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless t <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	867	1012	
==>$script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless t <==
5	/Users/nnunley/pugs/util/claim_drift.pl	5	106	
==>r/bin/perl -w

use strict;
use Getopt::Long;
use Config;
use File::Spec;

# If you have several workin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3245	3352	
==>od($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3245	3352	
==>od($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3245	3352	
==>od($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4824	4918	
==>the match object returns the numified version
of the result object (usually the entire match st <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4824	4918	
==>the match object returns the numified version
of the result object (usually the entire match st <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	425	553	
==>y {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	425	553	
==>y {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	619	712	
==>$PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	619	712	
==>$PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self- <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	619	712	
==>$PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self- <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12081	12241	
==>rams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12081	12241	
==>rams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12081	12241	
==>rams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21153	21260	
==>rn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17574	17681	
==>rn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4107	4236	
==>() ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4300	4429	
==>() ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1685	1790	
==>t_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the si <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1685	1790	
==>t_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the si <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1921	2026	
==>t_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the si <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3624	3723	
==>et2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3624	3723	
==>et2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2253	2349	
==>.

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2253	2349	
==>.

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2253	2349	
==>.

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	2580	2688	
==>ns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6057	6165	
==>ns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bod <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4987	5095	
==>ns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bod <==
5	/Users/nnunley/pugs/blib6/lib/lib.pm	1384	1477	
==>es not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basi <==
5	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1384	1477	
==>es not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basi <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25009	25107	
==>the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23773	23871	
==>the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25009	25107	
==>the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<e <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23773	23871	
==>the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<e <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29196	29291	
==>ed what they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' handle, <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	576	822	
==>applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	576	822	
==>applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3014	3108	
==>\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3014	3108	
==>\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'} <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3014	3108	
==>\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'} <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	609	771	
==>P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $lin <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	609	771	
==>P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $lin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5726	5842	
==>boxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5726	5842	
==>boxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5726	5842	
==>boxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5835	6011	
==>$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.define <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5835	6011	
==>$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.define <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1242	1328	
==>PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1242	1328	
==>PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1242	1328	
==>PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	510	634	
==>args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	510	634	
==>args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15526	15649	
==>turn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15526	15649	
==>turn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15526	15649	
==>turn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   de <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2218	2312	
==>> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: < <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2307	2401	
==>> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: < <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23516	23623	
==>ment.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23516	23623	
==>ment.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23516	23623	
==>ment.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3088	3188	
==>s
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3088	3188	
==>s
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8153	8330	
==>it )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $sel <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8153	8330	
==>it )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37437	37568	
==>$ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37437	37568	
==>$ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $p <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37437	37568	
==>$ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $p <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10157	10314	
==>n,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'v <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10157	10314	
==>n,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'v <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1520	1619	
==>e»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1520	1619	
==>e»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "i <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1520	1619	
==>e»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2497	2597	
==>s Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2497	2597	
==>s Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2497	2597	
==>s Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9831	9928	
==>le written for Pugs.

It provides a simple set of common test utility functions, and is
an impleme <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9889	9986	
==>le written for Pugs.

It provides a simple set of common test utility functions, and is
an impleme <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2950	3196	
==>> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(), <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3197	3443	
==>> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(), <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3672	3778	
==>binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3672	3778	
==>binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, I <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3672	3778	
==>binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, I <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12264	12423	
==>che{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12264	12423	
==>che{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12264	12423	
==>che{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get th <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13943	14033	
==>ncode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $strin <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13943	14033	
==>ncode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $strin <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8391	8571	
==>rclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_brea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8391	8571	
==>rclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_brea <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8391	8571	
==>rclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_brea <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	2629	2736	
==>"1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $ <==
5	/Users/nnunley/pugs/examples/golf/tsanta.pl	3065	3172	
==>"1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13955	14070	
==>1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13955	14070	
==>1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        att <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13955	14070	
==>1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        att <==
5	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	468	568	
==>e");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($temp <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	468	568	
==>e");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($temp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5311	5412	
==>ELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5311	5412	
==>ELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5311	5412	
==>ELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercla <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1695	1781	
==>$ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1695	1781	
==>$ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	803	936	
==>mmar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	965	1098	
==>mmar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13014	13126	
==>e::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13014	13126	
==>e::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13014	13126	
==>e::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10035	10149	
==>pan1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10035	10149	
==>pan1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4621	4721	
==>ting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4621	4721	
==>ting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to s <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4621	4721	
==>ting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2453	2565	
==>-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2453	2565	
==>-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2453	2565	
==>-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [] <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18501	18595	
==>ving a human being write out
that text themselves.

What Locale::KeyedText does is associate ea <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18501	18595	
==>ving a human being write out
that text themselves.

What Locale::KeyedText does is associate ea <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	147	238	
==>ool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function. <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	147	238	
==>ool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18600	18689	
==>o_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18600	18689	
==>o_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18600	18689	
==>o_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1 <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	9262	9379	
==>2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', : <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9320	9437	
==>2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1872	1965	
==>approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1872	1965	
==>approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_ch <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1872	1965	
==>approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_ch <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9680	9791	
==>ing },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($cha <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9680	9791	
==>ing },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($cha <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	21	118	
==>age Blondie::Backend::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes;

{
	package Blo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25753	25846	
==>software components.

Any versions of Rosetta that you modify and distribute must carry promin <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25753	25846	
==>software components.

Any versions of Rosetta that you modify and distribute must carry promin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4512	4621	
==>{ $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4512	4621	
==>{ $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4512	4621	
==>{ $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	292	394	
==>is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $cl <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	292	394	
==>is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $cl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4747	4844	
==>object (usually the entire match string).

=head2 0+

When used as a number, the match object retu <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4747	4844	
==>object (usually the entire match string).

=head2 0+

When used as a number, the match object retu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10537	10621	
==>r @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10537	10621	
==>r @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclass <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10537	10621	
==>r @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclass <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2653	2749	
==>esn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2653	2749	
==>esn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2653	2749	
==>esn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @sel <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2632	2789	
==>description') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                description => _('$.desc <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7626	7728	
==>));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6756	6858	
==>));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7626	7728	
==>));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6756	6858	
==>));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4754	4876	
==>OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     = <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4754	4876	
==>OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4671	4767	
==>py container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4671	4767	
==>py container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5261	5357	
==>py container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5449	5549	
==>_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test: <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5507	5607	
==>_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22524	22617	
==>LDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22524	22617	
==>LDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULT <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22524	22617	
==>LDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULT <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	690	812	
==>? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => sub {
    my ($S, $cc) = @_;
    return $S->forc <==
5	/Users/nnunley/pugs/util/yaml_harness.pl	5797	5913	
==>1 .. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the first tests (ext/) ar <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	32345	32442	
==>is the argument.  This method will fail if
C<$other> does not have an identical header to the invo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36895	36992	
==>is the argument.  This method will fail if
C<$other> does not have an identical header to the invo <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36185	36282	
==>is the argument.  This method will fail if
C<$other> does not have an identical header to the invo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1768	1869	
==>, "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1768	1869	
==>, "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N" <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1768	1869	
==>, "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20640	20734	
==>y bit of the default process described above is overridable by
various methods.

=head1 DISTRIB <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20640	20734	
==>y bit of the default process described above is overridable by
various methods.

=head1 DISTRIB <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2858	2961	
==>L::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2858	2961	
==>L::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  su <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2858	2961	
==>L::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16685	16783	
==>ing by itself to the user, but
rather returns its results for calling code to output as it sees fit <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16685	16783	
==>ing by itself to the user, but
rather returns its results for calling code to output as it sees fit <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	937	1038	
==>g the whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::altern <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	900	997	
==>g the whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::altern <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1980	2075	
==>(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1980	2075	
==>(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1980	2075	
==>(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2 <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	764	883	
==>r Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, tu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	725	837	
==>r Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, tu <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	759	862	
==>TINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	759	862	
==>TINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	759	862	
==>TINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20097	20230	
==>e it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20097	20230	
==>e it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20097	20230	
==>e it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go a <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2429	2538	
==>be shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

s <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2487	2596	
==>be shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11146	11255	
==>Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11146	11255	
==>Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11146	11255	
==>Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3394	3493	
==>ORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/p <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3394	3493	
==>ORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/p <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2411	2534	
==>s --> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied f <==
5	/Users/nnunley/pugs/util/config_h.pl	138	240	
==>eems to determine some configuration.

  util/config_h.pl GHC BASEDIR

  GHC     - Location and flags o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6509	6635	
==>t_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6509	6635	
==>t_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_v <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6509	6635	
==>t_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_v <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20310	20404	
==>ething that end users could do,
although program package installers usually do it.  An os-level <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20310	20404	
==>ething that end users could do,
although program package installers usually do it.  An os-level <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	355	505	
==>str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	355	505	
==>str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4127	4247	
==>ethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submetho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4127	4247	
==>ethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submetho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4127	4247	
==>ethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submetho <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2528	2634	
==>s bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2528	2634	
==>s bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1663	1764	
==>ur precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1663	1764	
==>ur precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Could <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1663	1764	
==>ur precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Could <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4787	4998	
==>> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                } <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4787	4998	
==>> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                } <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3211	3324	
==>{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3211	3324	
==>{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{ce <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3211	3324	
==>{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{ce <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2980	3110	
==>al( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_pl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3260	3383	
==>al( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_pl <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9678	9801	
==>al( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3260	3383	
==>al( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_pl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9678	9801	
==>al( sub{ goto $alt } ),  
    );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_pl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15536	15799	
==>ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15815	16078	
==>ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	596	703	
==>&& $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	596	703	
==>&& $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	596	703	
==>&& $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15442	15534	
==>rates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal p <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15442	15534	
==>rates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal p <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14744	14852	
==>initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14744	14852	
==>initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Ru <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14744	14852	
==>initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Ru <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4271	4363	
==>ss, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6173	6265	
==>ss, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9006	9118	
==>().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise wh <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9006	9118	
==>().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3562	3650	
==>abel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3562	3650	
==>abel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::mak <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3562	3650	
==>abel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::mak <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	748	860	
==>ate.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	748	860	
==>ate.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17576	17673	
==>t->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17576	17673	
==>t->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17576	17673	
==>t->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MU <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19688	19791	
==>rnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <ThrowStateme <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	869	968	
==>at Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	869	968	
==>at Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	869	968	
==>at Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles th <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13467	13569	
==>Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13467	13569	
==>Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13467	13569	
==>Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8676	8775	
==>mething?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p6 does)

an <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8388	8484	
==>mething?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p6 does)
an <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9990	10132	
==>xy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9990	10132	
==>xy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        funct <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9990	10132	
==>xy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        funct <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8138	8268	
==>";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8150	8280	
==>";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	761	866	
==>ent)


use utf8;
use strict;
use warnings;

use Set::Object ();
use Data::Dumper ();
use Storable ();

use <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11750	11850	
==>e given items if they are already in the set, or inserts the items if
they're not in the set.

Return <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8897	8997	
==>e given items if they are already in the set, or inserts the items if
they're not in the set.

Return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11750	11850	
==>e given items if they are already in the set, or inserts the items if
they're not in the set.

Return <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8897	8997	
==>e given items if they are already in the set, or inserts the items if
they're not in the set.

Return <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7403	7530	
==>my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      t <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19423	19550	
==>my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15612	15723	
==>these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15612	15723	
==>these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15612	15723	
==>these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18812	18946	
==>}

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18812	18946	
==>}

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOL <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18812	18946	
==>}

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOL <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9436	9536	
==>) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9436	9536	
==>) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6487	6640	
==>02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6186	6322	
==>t passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6186	6322	
==>t passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6186	6322	
==>t passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7333	7468	
==>op::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star,\n" . <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6718	6814	
==>burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6718	6814	
==>burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeou <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6718	6814	
==>burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeou <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9807	9900	
==>ce sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9807	9900	
==>ce sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21555	21699	
==>::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21555	21699	
==>::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6:: <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21555	21699	
==>::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6:: <==
5	/Users/nnunley/pugs/misc/Blondie/milner.pl	25886	25985	
==>α. list α", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = type::op <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37188	37278	
==>> 'list')));
$::Class->send('add_attribute', (symbol->new('@:subclasses')      => attribute <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16762	16904	
==>d $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16762	16904	
==>d $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16762	16904	
==>d $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10476	10564	
==>$self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $cipher <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10476	10564	
==>$self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $cipher <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2671	2810	
==>($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        ne <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2671	2810	
==>($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        ne <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1910	2013	
==>f.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size = <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1910	2013	
==>f.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size = <==
5	/Users/nnunley/pugs/util/grokprims.pl	1815	1915	
==>= "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = "\$$a0 $name \$$a <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2047	2158	
==>ION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invo <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2047	2158	
==>ION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10915	11018	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10915	11018	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10915	11018	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1569	1706	
==>equire URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1569	1706	
==>equire URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	276	376	
==>{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP <==
5	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	312	410	
==>{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP <==
5	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	261	356	
==>lled?) test.  But
maybe not.  Either way, the current approach seems plausible, no?

Clutter::in <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6190	6312	
==>1];  # keys: "pBody""pIsMulti""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; m <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2182	2286	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2577	2681	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2240	2344	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2635	2739	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4267	4372	
==>e($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4267	4372	
==>e($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6050	6178	
==>MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6050	6178	
==>MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6050	6178	
==>MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::o <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1381	1490	
==>build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    c <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1381	1490	
==>build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    c <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24862	24980	
==>) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21283	21401	
==>) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	138	251	
==>e
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	138	251	
==>e
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless ke <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	138	251	
==>e
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless ke <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11676	11778	
==>t');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=it <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11676	11778	
==>t');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=it <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20675	20773	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20675	20773	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20675	20773	
==>,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0 <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1826	2024	
==>al pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # em <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1826	2024	
==>al pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # em <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1826	2024	
==>al pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # em <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2170	2273	
==>consistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2310	2413	
==>consistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, <==
5	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	357	472	
==>", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	5536	5638	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4666	4768	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5536	5638	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4666	4768	
==>t $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) r <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1782	1897	
==>e (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = ma <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1782	1897	
==>e (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = ma <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4349	4456	
==>_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs o <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4349	4456	
==>_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs o <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32953	33048	
==>ily" represents the general category into which that object falls.

This is very sparse.  Future <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23161	23251	
==>xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23161	23251	
==>xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23161	23251	
==>xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pug <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3237	3370	
==>y ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3237	3370	
==>y ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3237	3370	
==>y ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5679	5782	
==>sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		} <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3761	3863	
==>err,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec failed - didnt <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9116	9210	
==>ite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$v <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9116	9210	
==>ite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$v <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3387	3500	
==>all thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumfl <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3387	3500	
==>all thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumfl <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2515	2617	
==>vate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2515	2617	
==>vate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2515	2617	
==>vate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9396	9574	
==>alue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9396	9574	
==>alue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Per <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9396	9574	
==>alue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Per <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10567	10669	
==>$n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) && <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10567	10669	
==>$n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) && <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12971	13071	
==>$method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12971	13071	
==>$method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12971	13071	
==>$method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3148	3277	
==>hen /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3148	3277	
==>hen /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	166	293	
==>y(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14432	14529	
==>er fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the st <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14432	14529	
==>er fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the st <==
5	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1665	1818	
==>0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splice (@a is rw, $offset=0 <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9298	9427	
==>n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9286	9415	
==>n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21228	21322	
==>e the compilers installed
themselves. So you don't need to make the compiler modules be
prerequ <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21228	21322	
==>e the compilers installed
themselves. So you don't need to make the compiler modules be
prerequ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7397	7480	
==>is correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7397	7480	
==>is correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7397	7480	
==>is correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1711	1882	
==>eturn undef unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self = shift;
                my $idx = shift <==
5	/Users/nnunley/pugs/util/file_to_hs.pl	576	682	
==>a :: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5391	5491	
==>r} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5391	5491	
==>r} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5981	6081	
==>r} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3955	4059	
==>base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAKEFILE;
    open MAKEFILE <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	10881	11006	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.uni <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12352	12477	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.uni <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14358	14483	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.uni <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15829	15954	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.uni <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2863	2987	
==>erl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3056	3180	
==>erl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1667	1772	
==>vel stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1667	1772	
==>vel stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1903	2008	
==>vel stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6499	6610	
==>Param
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6499	6610	
==>Param
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6499	6610	
==>Param
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL: <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1429	1531	
==>}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1429	1531	
==>}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» ( <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	909	1032	
==>default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@val <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9217	9319	
==>List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_paramet <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9217	9319	
==>List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_paramet <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	9774	9875	
==>List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_paramet <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9774	9875	
==>List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_paramet <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1813	1947	
==>f (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $b <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1813	1947	
==>f (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $b <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1203	1327	
==>_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$gram <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2534	2652	
==>f (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $b <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2534	2652	
==>f (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $b <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	694	809	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	694	809	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = S <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	694	809	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = S <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	989	1087	
==>= 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantif <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	989	1087	
==>= 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantif <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16322	16444	
==>, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12743	12865	
==>, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9255	9344	
==>-------------------------------------------

This is a rough sketch of that role(Role) mig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9255	9344	
==>-------------------------------------------

This is a rough sketch of that role(Role) mig <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9255	9344	
==>-------------------------------------------

This is a rough sketch of that role(Role) mig <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4024	4120	
==>t be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set() <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4024	4120	
==>t be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set() <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18027	18118	
==>arn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18027	18118	
==>arn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::strin <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18027	18118	
==>arn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::strin <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3283	3427	
==>s2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (< <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3530	3674	
==>s2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (< <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1487	1575	
==>$CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1487	1575	
==>$CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
meth <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1487	1575	
==>$CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
meth <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	444	543	
==>.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Arra <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	444	543	
==>.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7198	7295	
==>r:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7198	7295	
==>r:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7198	7295	
==>r:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1783	1958	
==>bug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                i <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1783	1958	
==>bug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18872	19010	
==>an';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18872	19010	
==>an';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        g <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18872	19010	
==>an';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        g <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	743	859	
==>x exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ign <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	743	859	
==>x exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ign <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	743	859	
==>x exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ign <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	517	616	
==>ly_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ag <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	517	616	
==>ly_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ag <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1077	1183	
==>ned ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1077	1183	
==>ned ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    }) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1077	1183	
==>ned ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    }) <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2264	2359	
==>> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2264	2359	
==>> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5818	5918	
==>ive seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_h <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	719	819	
==>= args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later bec <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5818	5918	
==>ive seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	719	819	
==>= args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later bec <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	719	819	
==>= args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later bec <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	24446	24545	
==>h>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond t <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28998	29097	
==>h>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond t <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1177	1274	
==>ing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string contai <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1177	1274	
==>ing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string contai <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1724	1821	
==>ing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string contai <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	844	946	
==>-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.s <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	844	946	
==>-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	458	557	
==>Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	458	557	
==>Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # X <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	458	557	
==>Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # X <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5504	5614	
==>ss $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# metho <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5504	5614	
==>ss $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# metho <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12059	12255	
==>ne_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RH <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12059	12255	
==>ne_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RH <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13962	14072	
==>f Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13962	14072	
==>f Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(m <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13962	14072	
==>f Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(m <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1958	2072	
==>'' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @exp <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1958	2072	
==>'' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @exp <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2038	2152	
==>'' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @exp <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13344	13439	
==>r
Document.new(), by which you can create an identical Document (with member
Nodes) to the one y <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13344	13439	
==>r
Document.new(), by which you can create an identical Document (with member
Nodes) to the one y <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14232	14338	
==>n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14232	14338	
==>n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14232	14338	
==>n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	594	696	
==>=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	594	696	
==>=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compi <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8583	8687	
==>s of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_na <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8583	8687	
==>s of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_na <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	19390	19489	
==>ation/tuple attribute is a column, but it is not the same as a table.

The intended interface and us <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23942	24041	
==>ation/tuple attribute is a column, but it is not the same as a table.

The intended interface and us <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22458	22557	
==>ation/tuple attribute is a column, but it is not the same as a table.

The intended interface and us <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5254	5358	
==>ls ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5254	5358	
==>ls ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@s <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5254	5358	
==>ls ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	645	828	
==>OBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acces <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	645	828	
==>OBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acces <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	645	828	
==>OBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acces <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2360	2488	
==>{ 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2360	2488	
==>{ 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2360	2488	
==>{ 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3084	3196	
==>x( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3072	3184	
==>x( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	7444	7540	
==>lti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi su <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6574	6670	
==>lti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7444	7540	
==>lti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi su <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6574	6670	
==>lti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi su <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3676	3924	
==>le::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3676	3924	
==>le::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12986	13201	
==>key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12986	13201	
==>key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12986	13201	
==>key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->par <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1441	1534	
==>ks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to ren <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1441	1534	
==>ks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to ren <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10173	10304	
==>ize =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10173	10304	
==>ize =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fro <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10173	10304	
==>ize =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fro <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1432	1538	
==>de = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1432	1538	
==>de = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6355	6470	
==>se = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        m <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6355	6470	
==>se = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13625	13716	
==>piX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13625	13716	
==>piX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13625	13716	
==>piX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::p <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11269	11376	
==>() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return ma <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11269	11376	
==>() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return ma <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4962	5058	
==>unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15998	16094	
==>unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17486	17582	
==>unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{da <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22169	22265	
==>unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{da <==
5	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	12	93	
==>/Module/Install/Metadata.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7086	7193	
==>f($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return e <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3690	3797	
==>f($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return e <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4539	4646	
==>f($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return e <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21844	21933	
==>on optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")> <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21844	21933	
==>on optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")> <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10569	10694	
==>afe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10569	10694	
==>afe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1811	1920	
==>n, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1811	1920	
==>n, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CAL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1811	1920	
==>n, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CAL <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	6329	6441	
==>eturns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6329	6441	
==>eturns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2051	2161	
==>n::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BL <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2051	2161	
==>n::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1061	1156	
==>[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1061	1156	
==>[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(n <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1061	1156	
==>[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(n <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9947	10044	
==>nite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compar <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9947	10044	
==>nite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compar <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7633	7726	
==>x:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7633	7726	
==>x:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7633	7726	
==>x:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3363	3488	
==>stname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_hand <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3363	3488	
==>stname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_hand <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4959	5052	
==>$self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4959	5052	
==>$self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arra <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4959	5052	
==>$self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arra <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7954	8123	
==>,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7954	8123	
==>,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7954	8123	
==>,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12270	12373	
==>est of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a si <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12270	12373	
==>est of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a si <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7855	7961	
==>\$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7843	7949	
==>\$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3410	3511	
==>>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3410	3511	
==>>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(:: <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3410	3511	
==>>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(:: <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9434	9548	
==>e heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10240	10354	
==>e heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $ <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11155	11269	
==>e heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18623	18718	
==>, nor have objects in separate
threads try to access the same external resources.>

Rosetta does <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18623	18718	
==>, nor have objects in separate
threads try to access the same external resources.>

Rosetta does <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10610	10731	
==>rns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "c <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10610	10731	
==>rns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "c <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3235	3339	
==>($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3235	3339	
==>($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3235	3339	
==>($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_% <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3580	3696	
==>ss' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6168	6277	
==>ript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6168	6277	
==>ript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6168	6277	
==>ript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib <==
5	/Users/nnunley/pugs/util/run-smoke.pl	527	625	
==>r /some/www/file.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $htm <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	302	435	
==>ay,
                   Int ?$hour, Int ?$minute, Int|Real ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Grego <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1424	1520	
==>in a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's pro <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1424	1520	
==>in a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's pro <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	9797	9891	
==>.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_wid <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9797	9891	
==>.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_wid <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4885	5007	
==>abel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4885	5007	
==>abel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4885	5007	
==>abel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2522	2614	
==>ah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source represen <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2522	2614	
==>ah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source represen <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6338	6487	
==>nless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        i <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3463	3612	
==>nless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4312	4461	
==>nless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        i <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	1929	2032	
==>thod tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterd <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1929	2032	
==>thod tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterd <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9407	9510	
==>e roles mutator/accessor

    # -----------------------------------------------      
    # this collect <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9407	9510	
==>e roles mutator/accessor

    # -----------------------------------------------      
    # this collect <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9407	9510	
==>e roles mutator/accessor

    # -----------------------------------------------      
    # this collect <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2819	2915	
==>sentation of this node in the original text, or at
least a valid representation of it that "honou <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2819	2915	
==>sentation of this node in the original text, or at
least a valid representation of it that "honou <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7422	7566	
==>ls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->doe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7422	7566	
==>ls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->doe <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7422	7566	
==>ls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->doe <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1038	1167	
==>our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    subm <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1038	1167	
==>our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    subm <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11969	12096	
==>cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11969	12096	
==>cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11969	12096	
==>cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20460	20568	
==>TERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(? <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16881	16989	
==>TERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(? <==
5	/Users/nnunley/pugs/blib6/lib/Tree.pm	6296	6402	
==>ldren();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6296	6402	
==>ldren();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2247	2342	
==>le_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2247	2342	
==>le_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2247	2342	
==>le_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile t <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29707	30003	
==>ol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get( <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2420	2535	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7514	7629	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2420	2535	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7514	7629	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3367	3680	
==>tep ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should u <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3367	3680	
==>tep ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    cend =>    sub {
                                my $r = $end;
                                if ( defined $step ) {
                                    # XXX - this should u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6206	6407	
==>tep ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6206	6407	
==>tep ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should u <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6206	6407	
==>tep ) { $start += $step } else { $start++ };
            return $r;
        },
        cend =>    sub {
            my $r = $end;
            if ( defined $step ) {
                # XXX - this should u <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10671	10941	
==>part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @b <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10671	10941	
==>part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @b <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	460	574	
==>rw?
# \\n   List      pre     keys    safe   (rw!Array)\
multi Array::keys   (@array ; MatchTest *@indextests --> I <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16788	16884	
==>ta D and compile that into its own executable, in practice one would
normally just write some com <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16788	16884	
==>ta D and compile that into its own executable, in practice one would
normally just write some com <==
5	/Users/nnunley/pugs/src/perl6/Prelude.pm	13710	13849	
==>ubstr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3835	3962	
==>ubstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3835	3962	
==>ubstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3835	3962	
==>ubstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push <==
5	/Users/nnunley/pugs/util/func_refact.pl	2441	2566	
==>calar @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand <==
5	/Users/nnunley/pugs/util/combine_tests.pl	1246	1415	
==>e_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7789	7916	
==>nless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7982	8109	
==>nless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8712	8829	
==>t';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8700	8817	
==>t';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3663	3869	
==>$2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:a <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3517	3716	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10060	10164	
==>ge ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10060	10164	
==>ge ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fi <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10060	10164	
==>ge ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fi <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	1137	1243	
==>perset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error mes <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1137	1243	
==>perset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error mes <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31735	31831	
==>or a user interface that the
current user is fluent in (and prefers) language A but also understa <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31735	31831	
==>or a user interface that the
current user is fluent in (and prefers) language A but also understa <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21635	21729	
==>es

=head1 DESCRIPTION

This module holds the init() method for the F<Regexp::Parser> class,
wh <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3304	3411	
==>]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result. <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3304	3411	
==>]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1787	1890	
==>«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1787	1890	
==>«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "in <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1787	1890	
==>«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "in <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1825	1973	
==>her, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1825	1973	
==>her, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->ad <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1825	1973	
==>her, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->ad <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1663	1780	
==>s, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get ri <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1663	1780	
==>s, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get ri <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4688	4797	
==>f(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type! <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4688	4797	
==>f(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1907	2014	
==>_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1907	2014	
==>_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosi <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1907	2014	
==>_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1511	1635	
==>mar', \"\\n\";\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\n" . 
        $progra <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5617	5721	
==>>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{nor <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5617	5721	
==>>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{nor <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6936	7034	
==>hod content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_l <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6936	7034	
==>hod content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6794	6898	
==>tter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6794	6898	
==>tter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6794	6898	
==>tter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whi <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25639	25734	
==>right holders of
Rosetta can sell you an alternate, limited license that allows you to link
Rose <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25639	25734	
==>right holders of
Rosetta can sell you an alternate, limited license that allows you to link
Rose <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23908	24011	
==>ent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any erro <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22681	22784	
==>ent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any erro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23908	24011	
==>ent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any erro <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22681	22784	
==>ent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any erro <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23128	23226	
==>he regex.

=item captures

An array reference to the 'open' nodes.

=item flags

An array reference <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6889	7021	
==>match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2725	2852	
==>e),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2725	2852	
==>e),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLO <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2725	2852	
==>e),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLO <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6662	6786	
==>match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return su <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13072	13191	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21122	21241	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13351	13470	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21401	21520	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8734	8841	
==>Obj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  retu <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16322	16448	
==>substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datu <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20748	20874	
==>substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datu <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1650	1758	
==>stic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1650	1758	
==>stic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1730	1838	
==>stic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expe <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2292	2419	
==>e as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2292	2419	
==>e as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2292	2419	
==>e as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loo <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19326	19419	
==>S (compared to a typical other
vendor's DBMS) is that data definition statements are structure <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19326	19419	
==>S (compared to a typical other
vendor's DBMS) is that data definition statements are structure <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3431	3553	
==>sign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3431	3553	
==>sign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3711	3806	
==>e) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&red <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3711	3806	
==>e) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&red <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3711	3806	
==>e) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&red <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15606	15727	
==>}

    return _not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = $_[0];
    # print "ternary: ", Dumpe <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	887	1006	
==>, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::P <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	887	1006	
==>, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::P <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4591	4686	
==>perimental development version.  The API is still in flux.

The set of implemented features depe <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4841	4936	
==>perimental development version.  The API is still in flux.

The set of implemented features depe <==
5	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1071	1199	
==>\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        siteli <==
5	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1071	1199	
==>\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        siteli <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	825	942	
==>types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	825	942	
==>types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_str <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	825	942	
==>types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_str <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9373	9477	
==>nt "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't close $file. $!\n" <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37460	37556	
==>method takes the name of a Perl package in its positional parameter
$module_name (a string) and t <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37460	37556	
==>method takes the name of a Perl package in its positional parameter
$module_name (a string) and t <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37221	37315	
==>method takes the name of a Perl package in its positional parameter
$module_name (a string) and <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37221	37315	
==>method takes the name of a Perl package in its positional parameter
$module_name (a string) and <==
5	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1682	1783	
==>can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, y <==
5	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1682	1783	
==>can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, y <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	267	364	
==>lls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	267	364	
==>lls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inlin <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	267	364	
==>lls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inlin <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	260	371	
==>er_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	260	371	
==>er_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	260	371	
==>er_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4790	4887	
==>de_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $ <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4790	4887	
==>de_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	97	345	
==>bols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	97	345	
==>bols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3340	3456	
==>) {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3340	3456	
==>) {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GL <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3340	3456	
==>) {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GL <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	548	668	
==>=>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	548	668	
==>=>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            ' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	548	668	
==>=>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            ' <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11943	12041	
==>L::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_ent <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11943	12041	
==>L::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_ent <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35616	35711	
==>on::Example $other!) returns Relation::Example>

This multi-method is a generic binary relationa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36713	36808	
==>on::Example $other!) returns Relation::Example>

This multi-method is a generic binary relationa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37213	37308	
==>on::Example $other!) returns Relation::Example>

This multi-method is a generic binary relationa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39261	39356	
==>on::Example $other!) returns Relation::Example>

This multi-method is a generic binary relationa <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39809	39904	
==>on::Example $other!) returns Relation::Example>

This multi-method is a generic binary relationa <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2855	2966	
==>eady used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./ni <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2855	2966	
==>eady used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./ni <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4149	4245	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4149	4245	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible t <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4149	4245	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible t <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9912	10035	
==>e 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9912	10035	
==>e 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_s <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9912	10035	
==>e 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	316	418	
==>alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	316	418	
==>alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4218	4336	
==>lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4218	4336	
==>lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4218	4336	
==>lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($ <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	52	150	
==>nd;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	52	150	
==>nd;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3688	3791	
==>ce_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => su <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3541	3624	
==>LETE
## ---------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4248	4331	
==>LETE
## ---------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6679	6762	
==>LETE
## ---------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5443	5526	
==>LETE
## ---------------------------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	566	687	
==>my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	566	687	
==>my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.lengt <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	566	687	
==>my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.lengt <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	26550	26645	
==>$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns the <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31102	31197	
==>$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns the <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3716	3863	
==>r   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    m <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	6468	6564	
==>⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5598	5694	
==>⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6468	6564	
==>⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5598	5694	
==>⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7952	8055	
==>, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7952	8055	
==>, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7952	8055	
==>, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $b <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2071	2186	
==>en_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $r <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2071	2186	
==>en_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4275	4372	
==>hat would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4275	4372	
==>hat would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Nam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4275	4372	
==>hat would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Nam <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40866	40986	
==>sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40866	40986	
==>sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ar <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40866	40986	
==>sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ar <==
5	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	857	948	
==>result), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected <==
5	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	857	948	
==>result), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	3402	3498	
==>symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3402	3498	
==>symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2366	2475	
==>expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2366	2475	
==>expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2366	2475	
==>expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0 <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	332	424	
==>cal hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	332	424	
==>cal hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1044	1148	
==>e_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5610	5714	
==>ed $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $se <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1044	1148	
==>e_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5610	5714	
==>ed $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $se <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5610	5714	
==>ed $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $se <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13540	13745	
==>DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13540	13745	
==>DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispat <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13540	13745	
==>DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispat <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1936	2036	
==>{
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file han <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1936	2036	
==>{
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file han <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2923	3037	
==>ta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @a <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3387	3501	
==>ta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	490	601	
==>->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	490	601	
==>->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sour <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	490	601	
==>->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sour <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6852	6974	
==>( -r $file ) {
        $self->{error} = "$file is not readable";
        return;
    }

    local $ENV{PERL5LIB} = $self->_ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8276	8369	
==>b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7406	7499	
==>b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8276	8369	
==>b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7406	7499	
==>b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5205	5334	
==>imitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, bu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5205	5334	
==>imitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, bu <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5205	5334	
==>imitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, bu <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	674	769	
==>triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>i <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	674	769	
==>triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>i <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7413	7541	
==>uild_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7413	7541	
==>uild_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12864	12960	
==>*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12864	12960	
==>*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12864	12960	
==>*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	179	281	
==>l { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	179	281	
==>l { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fro <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	179	281	
==>l { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fro <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21191	21327	
==>ub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17949	18069	
==>ub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41214	41334	
==>ub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatche <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44114	44234	
==>ub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatche <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	522	615	
==>up_compression() if $compression_wanted;

my %request = (upload => 1, version => VERSION, smok <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1586	1703	
==>" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless def <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1574	1691	
==>" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless def <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	581	675	
==>$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	581	675	
==>$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	581	675	
==>$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5303	5450	
==>. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we <==
5	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5767	5914	
==>. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3131	3228	
==>ith diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3131	3228	
==>ith diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3211	3308	
==>ith diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	9855	10002	
==>)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus}) {
                my @msg;
                push( <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	717	842	
==>in( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output = <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	717	842	
==>in( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output = <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1510	1633	
==>normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exa <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1510	1633	
==>normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	314	416	
==>::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	314	416	
==>::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL:: <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	314	416	
==>::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL:: <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1805	1906	
==>atch = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match-> <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1805	1906	
==>atch = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match-> <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9276	9501	
==>r the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9276	9501	
==>r the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	308	429	
==>self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	308	429	
==>self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    m <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	308	429	
==>self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    m <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1162	1266	
==>ace of symbols and has

a main body closure. 



the Package part of the Module is simply a hash from str <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1110	1211	
==>ace of symbols and has
a main body closure. 

the Package part of the Module is simply a hash from str <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2626	2723	
==>alified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2626	2723	
==>alified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2626	2723	
==>alified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infi <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4591	4707	
==>d"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $ch <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4591	4707	
==>d"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $ch <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	221	336	
==>(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	221	336	
==>(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	221	336	
==>(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	998	1119	
==>multi  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2893	3007	
==>0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2893	3007	
==>0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3819	3915	
==>ings which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3819	3915	
==>ings which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3819	3915	
==>ings which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	735	846	
==>cts_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initialize_package
       p6_wrap_code_with_packa <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8159	8264	
==>s bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	8551	8656	
==>s bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8159	8264	
==>s bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8551	8656	
==>s bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13749	13860	
==>ffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/K <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13749	13860	
==>ffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/K <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	36869	36969	
==>e),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41418	41518	
==>e),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations ha <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41041	41141	
==>e),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations ha <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4804	4926	
==>> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is r <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4804	4926	
==>> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3285	3394	
==>tching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3285	3394	
==>tching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3285	3394	
==>tching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7798	7921	
==>eek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11799	11918	
==>eek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11799	11918	
==>eek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3521	3618	
==>ethods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3521	3618	
==>ethods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	778	919	
==>2], $_[3] ] }
        |   exp 'infix:<times>' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	11040	11140	
==>number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.i <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8444	8544	
==>number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11040	11140	
==>number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.i <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8444	8544	
==>number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.i <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4375	4513	
==>'$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4375	4513	
==>'$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4375	4513	
==>'$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$ <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12620	12723	
==>tually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try t <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12620	12723	
==>tually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try t <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5845	5960	
==>st' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:method <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5527	5639	
==>ented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there has to be a better way. :(
  }
}
{
  package Regexp::Pa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	374	479	
==>se given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	374	479	
==>se given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Per <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	374	479	
==>se given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15036	15143	
==>ill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15036	15143	
==>ill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    m <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15036	15143	
==>ill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    m <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1714	1811	
==>ulti sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1714	1811	
==>ulti sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix: <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15504	15627	
==>)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @ <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15504	15627	
==>)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @ <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	30151	30238	
==>eneric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], appl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34703	34790	
==>eneric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], appl <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33876	33963	
==>eneric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], appl <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	10840	10936	
==>et += (1,2,3,4);

Note that in this instance, the information about how many members
were actuall <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10840	10936	
==>et += (1,2,3,4);

Note that in this instance, the information about how many members
were actuall <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6123	6213	
==>t two classes both perform the Test::Builder::Test::WithReason role
and override some metho <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6123	6213	
==>t two classes both perform the Test::Builder::Test::WithReason role
and override some metho <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8320	8410	
==>t two classes both perform the Test::Builder::Test::WithReason role
and override some metho <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17897	18080	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18828	19011	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18176	18359	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19107	19290	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5339	5457	
==>pairs_list();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pairs)=@$_;
        my $o = PIL::PIL1C <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14557	14681	
==>eta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14557	14681	
==>eta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14557	14681	
==>eta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18240	18335	
==>t_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18240	18335	
==>t_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1206	1357	
==>5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+ <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3502	3653	
==>5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1206	1357	
==>5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+ <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3502	3653	
==>5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+ <==
5	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	341	442	
==>eturns Object;
multi method exists (*@index ) returns List of Bool;

multi sub keys   (@array ; Any|Ju <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5157	5274	
==>t, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5157	5274	
==>t, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5157	5274	
==>t, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as <==
5	/Users/nnunley/pugs/inc/Test/Harness.pm	19400	19509	
==>y printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml( <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32612	32708	
==>ill insert the matching 'close' node into the
walking stack.

The purpose of adding an ending nod <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1826	1985	
==>abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6761	6920	
==>abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1610	1763	
==>abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6539	6692	
==>abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1610	1763	
==>abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15754	15966	
==>e::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15754	15966	
==>e::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15754	15966	
==>e::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array-> <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2498	2594	
==>he ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (or <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2498	2594	
==>he ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (or <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	587	716	
==>,

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    r <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	564	687	
==>,
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3432	3541	
==>sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3432	3541	
==>sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        : <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3432	3541	
==>sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        : <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2233	2331	
==>_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extract <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2145	2241	
==>_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extract <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15697	15905	
==>::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       , <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15976	16184	
==>::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       , <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2981	3083	
==>not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'Th <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2981	3083	
==>not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'Th <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3061	3163	
==>not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'Th <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9979	10102	
==>2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9979	10102	
==>2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FET <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9979	10102	
==>2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FET <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	988	1107	
==>',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_emp <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	988	1107	
==>',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_emp <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4335	4435	
==>%mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4335	4435	
==>%mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mo <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4335	4435	
==>%mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mo <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4282	4379	
==>onal
captures as match objects.

=head2 %{}

When used as a hash reference, the match object retur <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4282	4379	
==>onal
captures as match objects.

=head2 %{}

When used as a hash reference, the match object retur <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2734	2879	
==>$current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2939	3084	
==>$current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)- <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2287	2390	
==>type]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
m <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2179	2278	
==>nion( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.univer <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2179	2278	
==>nion( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.univer <==
5	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	813	1039	
==>{ 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0" <==
5	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	813	1039	
==>{ 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	227	312	
==>Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	227	312	
==>Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::H <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	227	312	
==>Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::H <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11863	11982	
==>hift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11863	11982	
==>hift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shift <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11863	11982	
==>hift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shift <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4822	4963	
==>2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4822	4963	
==>2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	162	264	
==>JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	162	264	
==>JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN l <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	162	264	
==>JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN l <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10460	10574	
==>------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstrac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10460	10574	
==>------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstrac <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10460	10574	
==>------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstrac <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15285	15383	
==>nt itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string iden <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15285	15383	
==>nt itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string iden <==
5	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6316	6421	
==>{
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
} <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4224	4322	
==>ction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) ret <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5121	5219	
==>ction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4224	4322	
==>ction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) ret <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5121	5219	
==>ction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1545	1663	
==>$PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1545	1663	
==>$PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1545	1663	
==>$PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1077	1189	
==>p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1077	1189	
==>p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6102	6230	
==>kage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6102	6230	
==>kage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conve <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6102	6230	
==>kage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conve <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20650	20763	
==>- 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17071	17184	
==>- 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	964	1102	
==>eep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.ca <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	964	1102	
==>eep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.ca <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5326	5445	
==>rently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5326	5445	
==>rently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $sel <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5326	5445	
==>rently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $sel <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20761	20911	
==>y $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20761	20911	
==>y $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STO <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20761	20911	
==>y $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STO <==
5	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1622	1721	
==>ators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1622	1721	
==>ators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1678	1796	
==>rameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($pa <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2259	2377	
==>rameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1678	1796	
==>rameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2259	2377	
==>rameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($pa <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12331	12446	
==>AGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3890	4006	
==>d {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3890	4006	
==>d {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    i <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3890	4006	
==>d {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    i <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1257	1352	
==>.Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), key <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1257	1352	
==>.Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), key <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1506	1626	
==>roup = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&ru <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1517	1637	
==>roup = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&ru <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10177	10274	
==>PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10177	10274	
==>PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10177	10274	
==>PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2982	3084	
==>e \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2982	3084	
==>e \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2982	3084	
==>e \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and r <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7350	7444	
==>nation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operators ta <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7100	7191	
==>nation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operators ta <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1108	1207	
==>ey are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromati <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3080	3179	
==>$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribut <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1108	1207	
==>ey are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromati <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3080	3179	
==>$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribut <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3080	3179	
==>$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribut <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7335	7463	
==>erl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/perl5 ";
        $ghc_flags .= " -isrc/perl5 ";
        $ghc_flags .= join(' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6487	6585	
==>o_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6487	6585	
==>o_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6487	6585	
==>o_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9262	9352	
==>ue) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" }
NODE VNum <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31680	31816	
==>}
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31680	31816	
==>}
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31680	31816	
==>}
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    re <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	463	565	
==>ex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bo <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	463	565	
==>ex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	803	958	
==>class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	803	958	
==>class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        el <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	803	958	
==>class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        el <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12956	13050	
==>nge are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as ar <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12956	13050	
==>nge are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as ar <==
5	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1382	1603	
==>: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                % <==
5	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1382	1603	
==>: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                % <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1516	1664	
==>ing sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  m <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1516	1664	
==>ing sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  m <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	80	177	
==>D__

=pod

=head1 NAME

Blondie - Blondie is a dumb intermediate language and a compiler collectio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6920	7027	
==>n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6920	7027	
==>n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch- <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6920	7027	
==>n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7476	7570	
==>LSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>ste <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1704	1798	
==>LSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>ste <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5022	5191	
==>thod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_st <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5022	5191	
==>thod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_st <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	288	388	
==>ion.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	288	388	
==>ion.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	288	388	
==>ion.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15664	15781	
==>th of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only + <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19897	20014	
==>th of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only + <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5375	5471	
==>lf->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5375	5471	
==>lf->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5965	6061	
==>lf->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1798	1908	
==>{  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule ex <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	4928	5023	
==>rence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4055	4150	
==>rence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4928	5023	
==>rence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4055	4150	
==>rence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retur <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	642	761	
==>s >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Confi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	642	761	
==>s >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Confi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	642	761	
==>s >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Confi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	177	283	
==>e 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files h <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	177	283	
==>e 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files h <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15827	15930	
==>SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15827	15930	
==>SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SU <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15827	15930	
==>SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SU <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19377	19550	
==>')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19377	19550	
==>')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19377	19550	
==>')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3426	3557	
==>$path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3426	3557	
==>$path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13674	13807	
==>ize_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13674	13807	
==>ize_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to de <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13674	13807	
==>ize_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to de <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5920	6053	
==>ize_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to de <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4420	4553	
==>ize_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            # The .delete here is necessary to de <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3858	3987	
==>::SELF->$status_sub();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBu <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8152	8243	
==>members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).member <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7282	7373	
==>members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).member <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8152	8243	
==>members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).member <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7282	7373	
==>members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).member <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4324	4462	
==>}{$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bo <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5773	5881	
==>= "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $n->{'n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1855	1947	
==>runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1855	1947	
==>runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_j <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1855	1947	
==>runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_j <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3919	4047	
==>pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3919	4047	
==>pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3919	4047	
==>pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10775	10878	
==>mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10775	10878	
==>mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14516	14687	
==>_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14516	14687	
==>_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descriptio <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14516	14687	
==>_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descriptio <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20026	20124	
==>s
to the compilers. It does so in a most specific to most general order.
So inner blocks get compil <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20026	20124	
==>s
to the compilers. It does so in a most specific to most general order.
So inner blocks get compil <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7836	7965	
==>o_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7836	7965	
==>o_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3328	3418	
==>dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3328	3418	
==>dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaqu <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3328	3418	
==>dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaqu <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	6278	6450	
==>here ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relatio <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9755	9927	
==>here ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relatio <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	21228	21325	
==>class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25780	25877	
==>class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name a <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24404	24501	
==>class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5845	5945	
==>_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5845	5945	
==>_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_a <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5845	5945	
==>_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_a <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	405	500	
==>Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.beg <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	405	500	
==>Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.beg <==
5	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	452	572	
==>onfig{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	353	473	
==>onfig{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8434	8534	
==>' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8434	8534	
==>' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO' <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8434	8534	
==>' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO' <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2233	2337	
==>unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2233	2337	
==>unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	319	415	
==>dded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	319	415	
==>dded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	319	415	
==>dded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6744	6906	
==>,
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6744	6906	
==>,
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6744	6906	
==>,
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$ <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2359	2469	
==>t;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multi <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2359	2469	
==>t;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13720	13914	
==>t = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13720	13914	
==>t = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13720	13914	
==>t = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24926	25018	
==>(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24926	25018	
==>(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9489	9653	
==>Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9489	9653	
==>Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->sto <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9489	9653	
==>Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->sto <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	469	577	
==>vent<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %! <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	469	577	
==>vent<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %! <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1454	1577	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1454	1577	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1454	1577	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_ <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	747	845	
==>rns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@pa <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	747	845	
==>rns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@pa <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	597	843	
==>pplies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Docum <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	597	843	
==>pplies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Docum <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	810	908	
==>ODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, add <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	810	908	
==>ODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, add <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1366	1464	
==>ODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, add <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2473	2570	
==>{my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2473	2570	
==>{my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @arg <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2473	2570	
==>{my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @arg <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17065	17160	
==>main
application is written in Perl, it is this "Rosetta" file which provides
the glue between y <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17065	17160	
==>main
application is written in Perl, it is this "Rosetta" file which provides
the glue between y <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	101	217	
==>';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \& <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	101	217	
==>';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \& <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5648	5748	
==>}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_wr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5648	5748	
==>}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_wr <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6238	6338	
==>}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_wr <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7728	7841	
==>uce_saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $te <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2301	2399	
==>r.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2301	2399	
==>r.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 s <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1526	1620	
==>r.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3387	3481	
==>r.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 s <==
5	/Users/nnunley/pugs/examples/hop6/Parser.pm	112	229	
==>blishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 3

## XXX - Ex <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	791	907	
==>currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	791	907	
==>currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	791	907	
==>currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28237	28330	
==>returns Set of Mapping(Str) of Any>

This method returns this Relation::Example's body.

=item <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17803	17900	
==>use C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=hea <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17803	17900	
==>use C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=hea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7696	7787	
==>"PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7696	7787	
==>"PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7696	7787	
==>"PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1111	1235	
==>=> $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remo <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1111	1235	
==>=> $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40143	40255	
==>= $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40143	40255	
==>= $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40143	40255	
==>= $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24861	24956	
==>sume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24861	24956	
==>sume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2269	2360	
==>SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2269	2360	
==>SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2269	2360	
==>SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	433	530	
==>$term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	433	530	
==>$term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	433	530	
==>$term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3449	3542	
==>\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_d <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3449	3542	
==>\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_d <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5985	6137	
==>s;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if ( <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5985	6137	
==>s;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if ( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	986	1106	
==>t be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	986	1106	
==>t be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	986	1106	
==>t be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16727	16823	
==>:List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without par <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3870	3966	
==>ass method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

opti <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16727	16823	
==>:List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without par <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16727	16823	
==>:List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without par <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4054	4150	
==>ass method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

opti <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5263	5382	
==>> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->() <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5263	5382	
==>> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->() <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4298	4407	
==>de::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4298	4407	
==>de::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4298	4407	
==>de::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4772	4938	
==>continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backt <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4772	4938	
==>continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17180	17269	
==>ate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17180	17269	
==>ate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17180	17269	
==>ate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9134	9319	
==>m,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9134	9319	
==>m,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     su <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9134	9319	
==>m,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     su <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1180	1313	
==>() {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method com <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1180	1313	
==>() {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method com <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14699	14825	
==>er at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14699	14825	
==>er at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @sup <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14699	14825	
==>er at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @sup <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	12901	12998	
==>xample, when iterating through the span range, the unit is added to the current value to get the n <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12901	12998	
==>xample, when iterating through the span range, the unit is added to the current value to get the n <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3436	3582	
==>ode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        | <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3436	3582	
==>ode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        | <==
5	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	431	569	
==>ile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($ <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8092	8191	
==>body changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8092	8191	
==>body changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8384	8481	
==>body changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8384	8481	
==>body changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has <==
5	/Users/nnunley/pugs/blib6/lib/Date.pm	4817	4914	
==>_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urt <==
5	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4817	4914	
==>_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urt <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8365	8456	
==>===========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8365	8456	
==>===========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin:: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8365	8456	
==>===========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin:: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18507	18705	
==>thod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18507	18705	
==>thod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # X <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18507	18705	
==>thod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # X <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7551	7697	
==>,
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self-> <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1508	1620	
==>, grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12687	12840	
==>ete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12687	12840	
==>ete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete( <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12687	12840	
==>ete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete( <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	768	859	
==>$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "ins <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	768	859	
==>$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "ins <==
5	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4382	4477	
==>, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\ <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19293	19384	
==>uthorized> response.
The field value consist of a challenge that indicates the
authenticatio <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19293	19384	
==>uthorized> response.
The field value consist of a challenge that indicates the
authenticatio <==
5	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	461	565	
==>e.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigge <==
5	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	461	565	
==>e.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigge <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17851	18027	
==>or => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->ge <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17851	18027	
==>or => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->ge <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17851	18027	
==>or => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->ge <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4491	4644	
==>]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGI <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4713	4866	
==>]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGI <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1491	1679	
==>msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    ret <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1491	1679	
==>msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    ret <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2396	2519	
==>= show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2396	2519	
==>= show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile e <==
5	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2396	2519	
==>= show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile e <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	393	496	
==>ult
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	393	496	
==>ult
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    re <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	393	496	
==>ult
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    re <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13870	13966	
==>reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a tes <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13928	14024	
==>reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a tes <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11546	11738	
==>pe( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($can <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11546	11738	
==>pe( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($can <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11546	11738	
==>pe( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($can <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1416	1512	
==>r actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes o <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1416	1512	
==>r actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes o <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9922	10019	
==>tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mul <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9922	10019	
==>tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mul <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4237	4330	
==>ring(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4237	4330	
==>ring(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigi <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4237	4330	
==>ring(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigi <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	183	290	
==>:Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	187	294	
==>:Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	181	288	
==>:Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator: <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	181	288	
==>:Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator: <==
5	/Users/nnunley/pugs/util/drift.pl	798	896	
==>../../DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2437	2570	
==>art, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2437	2570	
==>art, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2437	2570	
==>art, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1064	1167	
==>ions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminat <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1064	1167	
==>ions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminat <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1533	1652	
==>{
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1533	1652	
==>{
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1533	1652	
==>{
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($ <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3670	3766	
==>ithm description. See links or read
the source (there are about 10 lines of sparse perl in severa <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3670	3766	
==>ithm description. See links or read
the source (there are about 10 lines of sparse perl in severa <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	603	701	
==>eys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	603	701	
==>eys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wi <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	603	701	
==>eys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wi <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	309	399	
==>ring with confidence.

It uses Language::Prolog::Yaswi, which requires swi-prolog be
instal <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7366	7467	
==>Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$c <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7366	7467	
==>Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$c <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5541	5650	
==>ert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{n <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5541	5650	
==>ert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{n <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3591	3687	
==>ests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3591	3687	
==>ests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3591	3687	
==>ests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14148	14363	
==>roxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14148	14363	
==>roxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            ' <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14148	14363	
==>roxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            ' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11852	11972	
==>h
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = s <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11846	11966	
==>h
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = s <==
5	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	829	1003	
==>as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->attributes->members,
                             $class- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13652	13754	
==>0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic s <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13652	13754	
==>0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic s <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7669	7759	
==>all_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @stat <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1494	1584	
==>all_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @stat <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6106	6218	
==>has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @arr <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6496	6608	
==>has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @arr <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1278	1376	
==>= Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1278	1376	
==>= Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "St <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1278	1376	
==>= Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "St <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	225	350	
==>tion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	225	350	
==>tion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	225	350	
==>tion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return <==
5	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8785	8890	
==>r-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; pad <==
5	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15436	15538	
==>$as_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub p6_a <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5156	5291	
==>INT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::U <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5156	5291	
==>INT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::U <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13714	13842	
==>$c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  packag <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	2328	2440	
==>todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2386	2498	
==>todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8196	8324	
==>.ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # war <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8196	8324	
==>.ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # war <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8196	8324	
==>.ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # war <==
5	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3358	3449	
==>nal $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complem <==
5	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3358	3449	
==>nal $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complem <==
5	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	827	1044	
==>shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']';
                    push $a, parse( <<>>, 'i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11304	11461	
==>re = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marke <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11304	11461	
==>re = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marke <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4436	4548	
==>h($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@d <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4436	4548	
==>h($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@d <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5992	6147	
==>ant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match = <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5992	6147	
==>ant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match = <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4809	4905	
==>eseves something
of the original name. So if you had an object blessed into "MyClass",
it will no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4809	4905	
==>eseves something
of the original name. So if you had an object blessed into "MyClass",
it will no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4809	4905	
==>eseves something
of the original name. So if you had an object blessed into "MyClass",
it will no <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6862	7004	
==>copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($b <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6862	7004	
==>copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($b <==
5	/Users/nnunley/pugs/examples/hop6/Lexer.pm	212	320	
==>on 1.1

sub Lexer::import { }

## XXX - is exported doesn't support args atm

## Chapter 8 section 1.3

sub t <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1477	1572	
==>om 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, an <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1477	1572	
==>om 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, an <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10426	10579	
==>e_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10705	10858	
==>e_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11767	11850	
==>{PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11767	11850	
==>{PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11767	11850	
==>{PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	12879	12989	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16356	16466	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    i <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15718	15828	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    i <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10916	11025	
==>< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11345	11454	
==>< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3026	3156	
==>erl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $sup <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3026	3156	
==>erl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $sup <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3026	3156	
==>erl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $sup <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2269	2367	
==>n $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2269	2367	
==>n $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	31179	31276	
==>r that returns a new Relation
which has a subset of the original's tuples, and it works like Perl' <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35729	35826	
==>r that returns a new Relation
which has a subset of the original's tuples, and it works like Perl' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4110	4200	
==>le> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4110	4200	
==>le> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1 <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4110	4200	
==>le> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2415	2539	
==>cific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.char <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2415	2539	
==>cific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.char <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	775	881	
==>_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	775	881	
==>_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	775	881	
==>_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5008	5118	
==>urn $e->get('&dispatcher')->do();        
        }
    )
);

## ---------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24285	24383	
==>program controlling their
  actions) which are always seen to be replying lest they end up in a loo <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23058	23156	
==>program controlling their
  actions) which are always seen to be replying lest they end up in a loo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24285	24383	
==>program controlling their
  actions) which are always seen to be replying lest they end up in a loo <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23058	23156	
==>program controlling their
  actions) which are always seen to be replying lest they end up in a loo <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3238	3343	
==>dd_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3238	3343	
==>dd_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3238	3343	
==>dd_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	114	213	
==>gs;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_su <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	114	213	
==>gs;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_su <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10738	10877	
==>{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " wh <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10738	10877	
==>{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " wh <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1486	1584	
==>dxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1486	1584	
==>dxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1486	1584	
==>dxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	738	874	
==>.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our cla <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	738	874	
==>.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our cla <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1877	2000	
==>self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1877	2000	
==>self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1877	2000	
==>self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1706	1831	
==>FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1706	1831	
==>FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($s <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1706	1831	
==>FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($s <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14101	14197	
==>fit into one of the standard
testing functions. In that case, you can use the rather blunt pass() <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14159	14255	
==>fit into one of the standard
testing functions. In that case, you can use the rather blunt pass() <==
5	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5425	5552	
==>'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  ' <==
5	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5425	5552	
==>'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  ' <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7484	7590	
==>rement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7484	7590	
==>rement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7484	7590	
==>rement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	704	833	
==>acro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	704	833	
==>acro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	704	833	
==>acro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@ <==
5	/Users/nnunley/pugs/blib6/lib/CGI.pm	10775	10869	
==>>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The followi <==
5	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10775	10869	
==>>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The followi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1069	1164	
==>ese attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1069	1164	
==>ese attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::O <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1069	1164	
==>ese attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::O <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6780	6889	
==>p;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - nee <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6780	6889	
==>p;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - nee <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6780	6889	
==>p;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - nee <==
5	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	175	277	
==>hat string, and it provides the fundamental operations on strings as
combinators.

    $.text     - The <==
5	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	175	277	
==>hat string, and it provides the fundamental operations on strings as
combinators.

    $.text     - The <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16441	16554	
==>nt( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16441	16554	
==>nt( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s, <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16441	16554	
==>nt( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s, <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8651	8748	
==>($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS : <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8651	8748	
==>($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS : <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	563	668	
==>topt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	563	668	
==>topt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $li <==
5	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	563	668	
==>topt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $li <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	983	1105	
==>$.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $. <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	983	1105	
==>$.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $. <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	957	1061	
==>n($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	957	1061	
==>n($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	957	1061	
==>n($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3560	3667	
==>en pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3560	3667	
==>en pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return und <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3560	3667	
==>en pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return und <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37693	37785	
==>ation::Example>

This method is a generic relational operator that takes a single Relation::E <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38533	38625	
==>ation::Example>

This method is a generic relational operator that takes a single Relation::E <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6429	6552	
==>$author =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot determine author info from $ <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	9984	10104	
==>1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7924	8044	
==>1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9984	10104	
==>1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7924	8044	
==>1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6367	6505	
==>ernately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain wit <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6367	6505	
==>ernately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain wit <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	92	197	
==>Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() use <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	92	197	
==>Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() use <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	92	197	
==>Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1781	1903	
==>l_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($lin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1781	1903	
==>l_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($lin <==
5	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1781	1903	
==>l_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($lin <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2086	2193	
==>('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # .. <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2086	2193	
==>('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # .. <==
5	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1004	1191	
==>$.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node <==
5	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1004	1191	
==>$.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1761	1859	
==>and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1761	1859	
==>and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNam <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1761	1859	
==>and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNam <==
5	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	560	661	
==>sh) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10) <==
5	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	560	661	
==>sh) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10) <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5599	5699	
==>_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAI <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5599	5699	
==>_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAI <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7123	7223	
==>_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAI <==
5	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4542	4643	
==>se = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') <==
5	/Users/nnunley/pugs/blib6/lib/Set.pm	8662	8762	
==>The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.mem <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7631	7731	
==>The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8662	8762	
==>The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.mem <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7631	7731	
==>The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.mem <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1304	1443	
==>t "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capt <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1315	1454	
==>t "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capt <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4800	4924	
==>39),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "cir <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4800	4924	
==>39),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "cir <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1620	1717	
==>t 92% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks l <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1427	1562	
==>->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of crea <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1427	1562	
==>->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of crea <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12011	12102	
==>un::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12011	12102	
==>un::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL: <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12011	12102	
==>un::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL: <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13399	13527	
==>lag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13399	13527	
==>lag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13399	13527	
==>lag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\ <==
5	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23696	23782	
==>, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Repla <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6226	6367	
==>ist      pre     keys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (r <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9689	9802	
==>p_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9689	9802	
==>p_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9689	9802	
==>p_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = <==
5	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3372	3466	
==>ad>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7128	7262	
==>@_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7128	7262	
==>@_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7128	7262	
==>@_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->( <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2392	2484	
==><generate_keystream> with a number of bytes and throwing the return value away.
Encryptions a <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2392	2484	
==><generate_keystream> with a number of bytes and throwing the return value away.
Encryptions a <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4369	4492	
==>cher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4369	4492	
==>cher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatc <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4369	4492	
==>cher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatc <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10211	10303	
==>he well-formedness of the input, such as that mandatory
constructor arguments are provided an <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10211	10303	
==>he well-formedness of the input, such as that mandatory
constructor arguments are provided an <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1377	1478	
==>w<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1377	1478	
==>w<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1377	1478	
==>w<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	131	229	
==>faults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	131	229	
==>faults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	14284	14384	
==>) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string wi <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14342	14442	
==>) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string wi <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12846	12940	
==>rol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12846	12940	
==>rol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my( <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12846	12940	
==>rol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	409	514	
==>canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	409	514	
==>canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREA <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	409	514	
==>canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREA <==
5	/Users/nnunley/pugs/blib6/lib/fp.pm	969	1062	
==>rray[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Co <==
5	/Users/nnunley/pugs/ext/fp/lib/fp.pm	969	1062	
==>rray[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5695	5806	
==>HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5695	5806	
==>HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5695	5806	
==>HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14090	14185	
==>n be given to specify which
characters to consider unsafe (i.e., which to escape). The default s <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14090	14185	
==>n be given to specify which
characters to consider unsafe (i.e., which to escape). The default s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	801	915	
==>ift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	801	915	
==>ift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cla <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	801	915	
==>ift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cla <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	16584	16685	
==>tains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16584	16685	
==>tains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 s <==
5	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1771	1940	
==>, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results <==
5	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1771	1940	
==>, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	905	995	
==>ith 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	905	995	
==>ith 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	905	995	
==>ith 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element <==
5	/Users/nnunley/pugs/blib6/lib/Span.pm	10091	10203	
==>> $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self. <==
5	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10091	10203	
==>> $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self. <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1160	1262	
==>et;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1160	1262	
==>et;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $con <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1160	1262	
==>et;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $con <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8900	9047	
==>$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not i <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14629	14776	
==>$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8900	9047	
==>$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14623	14770	
==>$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not i <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	776	875	
==>gram.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_finder = Blondie::Re <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1389	1509	
==>);
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ i <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1389	1509	
==>);
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ i <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1613	1715	
==>de} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1613	1715	
==>de} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(no <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1613	1715	
==>de} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(no <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3295	3399	
==>o }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3295	3399	
==>o }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14519	14603	
==>> \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tiea <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14519	14603	
==>> \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tiea <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14519	14603	
==>> \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tiea <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19762	20007	
==>et('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_at <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40222	40467	
==>et('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_at <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3410	3497	
==>>{'$:superclass'} = $Object;

## ------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4104	4191	
==>>{'$:superclass'} = $Object;

## ------------------------------------------------------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5312	5399	
==>>{'$:superclass'} = $Object;

## ------------------------------------------------------- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6916	7011	
==>($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6916	7011	
==>($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return r <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6916	7011	
==>($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return r <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1290	1382	
==>ample version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1290	1382	
==>ample version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7301	7443	
==>_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

su <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7360	7471	
==>] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7360	7471	
==>] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0] <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7360	7471	
==>] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0] <==
5	/Users/nnunley/pugs/util/livecd/mklivecd.pl	153	250	
==>name>;
use Term::ANSIColor qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %ar <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1918	2031	
==>de_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelud <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2135	2248	
==>de_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelud <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5061	5172	
==>e("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5061	5172	
==>e("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5061	5172	
==>e("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7260	7424	
==>ted";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7260	7424	
==>ted";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetc <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7260	7424	
==>ted";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetc <==
5	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5231	5320	
==>4::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decode <==
5	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5231	5320	
==>4::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decode <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	43	163	
==>t;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	43	163	
==>t;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX h <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	43	163	
==>t;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX h <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26621	26714	
==>s? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message Ke <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26621	26714	
==>s? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message Ke <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18896	18990	
==>hermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<l <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18896	18990	
==>hermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<l <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	827	954	
==>i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	827	954	
==>i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3 <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	827	954	
==>i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3 <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4746	4849	
==>iate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4746	4849	
==>iate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4491	4601	
==>%!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4491	4601	
==>%!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	208	312	
==>line('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	208	312	
==>line('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/ <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	208	312	
==>line('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/ <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1181	1302	
==>apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1181	1302	
==>apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1181	1302	
==>apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	651	745	
==>il});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::Fil <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	651	745	
==>il});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::Fil <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27438	27593	
==>"\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27717	27872	
==>"\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8994	9130	
==>.". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8994	9130	
==>.". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8994	9130	
==>.". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $ <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17714	17905	
==>arams->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19472	19663	
==>arams->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39924	40114	
==>arams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retur <==
5	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40983	41173	
==>arams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retur <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2218	2323	
==>irs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed pro <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8925	9026	
==>$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8925	9026	
==>$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8925	9026	
==>$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	12136	12231	
==>unction currently on checks with ref() since we do not yet have
object support. Once object supp <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12194	12289	
==>unction currently on checks with ref() since we do not yet have
object support. Once object supp <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6680	6803	
==>( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6680	6803	
==>( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _(' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6680	6803	
==>( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _(' <==
5	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23592	23691	
==>ere is example code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is <==
5	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11930	12028	
==>e working.

  Upon exec, the subref should return match information.  Match
  information gets inse <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32521	32698	
==>ength >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32521	32698	
==>ength >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32521	32698	
==>ength >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Lis <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4647	4794	
==>IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error( <==
5	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5299	5446	
==>IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error( <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10025	10139	
==>methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------- <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	323	437	
==>onstant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \ <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10025	10139	
==>methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------- <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10025	10139	
==>methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ----------- <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	323	437	
==>onstant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	600	718	
==>1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	600	718	
==>1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	600	718	
==>1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->a <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1683	1785	
==>$self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what funct <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1683	1785	
==>$self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what funct <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16032	16172	
==>$array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16032	16172	
==>$array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            r <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16032	16172	
==>$array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            r <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	209	320	
==>);
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @ou <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	209	320	
==>);
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @ou <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14067	14197	
==>my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14067	14197	
==>my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possib <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14067	14197	
==>my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possib <==
5	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6329	6459	
==>my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possib <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4831	4961	
==>my $final = $size + $size_change -1;
        while $i <= $final {
            # The .delete here is necessary to destroy all possib <==
5	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11151	11289	
==>to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', ' <==
5	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11151	11289	
==>to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', ' <==
5	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	586	705	
==>s export {
    Duration::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($ho <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	126	229	
==>ments are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New met <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	126	229	
==>ments are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New met <==
5	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2239	2350	
==>pen2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $s <==
5	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2239	2350	
==>pen2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6571	6663	
==>results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6571	6663	
==>results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has co <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6571	6663	
==>results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has co <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	614	856	
==>a('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	614	856	
==>a('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SO <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	614	856	
==>a('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SO <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	550	641	
==>>create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->a <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	550	641	
==>>create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->a <==
5	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5036	5176	
==>t.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generate <==
5	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5036	5176	
==>t.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generate <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5429	5532	
==>thods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5429	5532	
==>thods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5429	5532	
==>thods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1669	1790	
==>ent ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $s <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1669	1790	
==>ent ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $s <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2571	2671	
==>pts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level excee <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2571	2671	
==>pts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level excee <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2571	2671	
==>pts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level excee <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6069	6173	
==>ringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6069	6173	
==>ringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6069	6173	
==>ringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	13763	13860	
==>to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `sk <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13821	13918	
==>to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `sk <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1749	1863	
==>ers>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")" <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1749	1863	
==>ers>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")" <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1080	1185	
==>' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1080	1185	
==>' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxe <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1080	1185	
==>' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxe <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18992	19081	
==>nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

The <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18992	19081	
==>nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

The <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4472	4576	
==>>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4472	4576	
==>>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4472	4576	
==>>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	4985	5088	
==>);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5043	5146	
==>);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	339	441	
==>tructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	339	441	
==>tructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	339	441	
==>tructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3064	3159	
==>atedly to encipher data.
The encipherer closure can be called with a string, and should be calle <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3064	3159	
==>atedly to encipher data.
The encipherer closure can be called with a string, and should be calle <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3095	3254	
==>eturn;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $ <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2976	3126	
==>eturn;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	417	522	
==>. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	417	522	
==>. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	417	522	
==>. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1655	1759	
==>warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1655	1759	
==>warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1655	1759	
==>warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented <==
5	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1756	1853	
==>processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Per <==
5	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1756	1853	
==>processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Per <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2506	2614	
==>lf);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2506	2614	
==>lf);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pai <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2506	2614	
==>lf);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pai <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36493	36608	
==>s}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36493	36608	
==>s}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retur <==
5	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36493	36608	
==>s}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retur <==
5	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1060	1172	
==>density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $ <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1060	1172	
==>density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5454	5558	
==>um' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5454	5558	
==>um' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5454	5558	
==>um' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' <==
5	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	354	443	
==>compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	354	443	
==>compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \ <==
5	/Users/nnunley/pugs/blib6/lib/Test.pm	5759	5876	
==>ine {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $go <==
5	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5817	5934	
==>ine {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $go <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2645	2753	
==>l2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2645	2753	
==>l2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined)) <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2645	2753	
==>l2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined)) <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16077	16182	
==>n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16077	16182	
==>n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_ <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16077	16182	
==>n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_ <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40005	40100	
==>sion.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40005	40100	
==>sion.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19130	19241	
==>ot nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections be <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19130	19241	
==>ot nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections be <==
5	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	87	187	
==>eturned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests <==
5	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	87	187	
==>eturned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests <==
5	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13975	14072	
==>o->data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $o->data- <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1395	1505	
==>ed_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1395	1505	
==>ed_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !% <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1395	1505	
==>ed_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !% <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	987	1086	
==>il { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <sigl <==
5	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	987	1086	
==>il { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <sigl <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3400	3539	
==>f $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\ <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4249	4388	
==>f $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1938	2040	
==>.= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1938	2040	
==>.= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $ <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1938	2040	
==>.= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $ <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7758	7930	
==>start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7758	7930	
==>start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $star <==
5	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7758	7930	
==>start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $star <==
5	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8149	8248	
==>ely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most cal <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8149	8248	
==>ely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most cal <==
5	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1461	1619	
==>hen "say_hello" {
                return "Hello, @args[0]!";
            }

            ...;
        }
    }
  }

  my $session = MySession.new;
  say $POE::Ke <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4204	4304	
==>cted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5101	5201	
==>cted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4204	4304	
==>cted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5101	5201	
==>cted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards <==
5	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4529	4675	
==>)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\ <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	870	967	
==>ccepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy:: <==
5	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	870	967	
==>ccepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy:: <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	667	764	
==>= $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $form <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	667	764	
==>= $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $form <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9637	9731	
==>($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_T <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9637	9731	
==>($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_T <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	766	868	
==>/>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	766	868	
==>/>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primiti <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	766	868	
==>/>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primiti <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16415	16512	
==>er
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16415	16512	
==>er
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the <==
5	/Users/nnunley/pugs/util/catalog_tests.pl	3773	3912	
==>yn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : Processing t <==
5	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1523	1632	
==>$clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $self->makema <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3794	3901	
==>d we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3794	3901	
==>d we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3794	3901	
==>d we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug <==
5	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8859	8992	
==>at will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARC <==
5	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8859	8992	
==>at will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARC <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5605	5711	
==>cfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl F <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5605	5711	
==>cfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl F <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5605	5711	
==>cfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl F <==
5	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	457	569	
==>/),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::provides($dige <==
5	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1578	1675	
==>hing change or just have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Test::Harnes <==
5	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	486	594	
==>esults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well <==
5	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	486	594	
==>esults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4021	4110	
==>ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestP <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4021	4110	
==>ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestP <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5545	5634	
==>ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestP <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8122	8236	
==>the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Real <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8122	8236	
==>the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Real <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8122	8236	
==>the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Real <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38496	38591	
==>its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <plac <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38496	38591	
==>its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <plac <==
5	/Users/nnunley/pugs/blib6/lib/FindBin.pm	452	581	
==>ort here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unl <==
5	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	452	581	
==>ort here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unl <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4606	4713	
==>{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0] <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4389	4491	
==>{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0] <==
5	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2897	2993	
==>p Oct Nov Dec>;
method month_abbr returns Str { @months_abbr[./month_0] }

# yes, these functions <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	504	615	
==>ub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	504	615	
==>ub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params : <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	504	615	
==>ub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params : <==
5	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10688	10786	
==>e argument may be a plain string or a reference to an array
of strings for a multi-valued field. If <==
5	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10688	10786	
==>e argument may be a plain string or a reference to an array
of strings for a multi-valued field. If <==
5	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6663	6861	
==>code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    metho <==
5	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6663	6861	
==>code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    metho <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5745	5863	
==>s_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5745	5863	
==>s_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

s <==
5	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6335	6453	
==>s_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

s <==
5	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5952	6070	
==>be
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path <==
5	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5952	6070	
==>be
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14501	14587	
==>e->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14501	14587	
==>e->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data' <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14501	14587	
==>e->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data' <==
5	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1695	1807	
==>cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool { <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1695	1807	
==>cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool { <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6820	6922	
==>s is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6820	6922	
==>s is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6820	6922	
==>s is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
5	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11884	11994	
==>line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We reco <==
5	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11884	11994	
==>line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We reco <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4058	4156	
==>eturn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4058	4156	
==>eturn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no ins <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4058	4156	
==>eturn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no ins <==
5	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4037	4142	
==>four is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key <==
5	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4037	4142	
==>four is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6517	6614	
==>m->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6517	6614	
==>m->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6517	6614	
==>m->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type e <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2940	3046	
==>h.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    m <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2940	3046	
==>h.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    m <==
5	/Users/nnunley/pugs/blib6/lib/Relation.pm	23299	23398	
==>lowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
futu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27851	27950	
==>lowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
futu <==
5	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26646	26745	
==>lowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
futu <==
5	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2610	2738	
==>the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $pr <==
5	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2827	2955	
==>the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $pr <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11311	11405	
==>ethods. It is important that submethods are used
because they will not get inherited. This prov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11311	11405	
==>ethods. It is important that submethods are used
because they will not get inherited. This prov <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11311	11405	
==>ethods. It is important that submethods are used
because they will not get inherited. This prov <==
5	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	896	1020	
==>rgs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	896	1020	
==>rgs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash <==
5	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	896	1020	
==>rgs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14468	14568	
==>igest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub p <==
5	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14468	14568	
==>igest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub p <==
5	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4743	4869	
==>| $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $o <==
5	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4951	5077	
==>te";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pack <==
5	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4743	4869	
==>| $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $o <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4951	5077	
==>te";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pack <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4951	5077	
==>te";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pack <==
5	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18253	18352	
==>ms would have a harder time figuring out the
best way to deal with it.  But for displaying to users, <==
5	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18253	18352	
==>ms would have a harder time figuring out the
best way to deal with it.  But for displaying to users, <==
5	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5012	5107	
==>f the test in the current test file.

=item B<Str $.description>

The test's description (option <==
5	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5012	5107	
==>f the test in the current test file.

=item B<Str $.description>

The test's description (option <==
5	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7209	7304	
==>f the test in the current test file.

=item B<Str $.description>

The test's description (option <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11613	11712	
==>)>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8760	8859	
==>)>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11613	11712	
==>)>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8760	8859	
==>)>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

= <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20512	20626	
==>ope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 = exists self["cna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	417	510	
==>n't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	417	510	
==>n't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	417	510	
==>n't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13592	13767	
==>as $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ', ', 
                map { 
                    join( ' => ', map { "'" . _emit($_) . "'" } @$_ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2321	2420	
==>) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2321	2420	
==>) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2321	2420	
==>) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filen <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4698	4804	
==>$W);
    return;
}

# 8.8 The List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completion Type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14208	14300	
==>>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14208	14300	
==>>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14208	14300	
==>>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16397	16513	
==>y $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15459	15567	
==>y $cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22949	23047	
==>this approach over similar packages is that
text is always looked up by a key which is not meant to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22949	23047	
==>this approach over similar packages is that
text is always looked up by a key which is not meant to <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	528	628	
==>being a
# complete p5 compatible regex engine, that establishes feasiblity.
# Limited testing suggest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6344	6437	
==>Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6344	6437	
==>Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6344	6437	
==>Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything th <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	682	885	
==>_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1082	1202	
==>e $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1082	1202	
==>e $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1082	1202	
==>e $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7350	7474	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8702	8826	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19370	19494	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4842	4953	
==>d) or return;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub load {
    my ($self, $method) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4280	4415	
==>::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4280	4415	
==>::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7094	7212	
==>ontent . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7094	7212	
==>ontent . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16121	16317	
==>:concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16400	16596	
==>:concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10462	10610	
==>:concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10741	10889	
==>:concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	130	253	
==>ed)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	130	253	
==>ed)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	130	253	
==>ed)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18799	18881	
==>1,Fx,F1,Bx,B1,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1995	2160	
==>.= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1995	2160	
==>.= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1995	2160	
==>.= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1819	1936	
==>.= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	756	869	
==>~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	756	869	
==>~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	756	869	
==>~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13615	13712	
==>ment.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Docume <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16048	16145	
==>`intersects( $object )`

These methods return a logical value. 

The argument can be a Span object <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13615	13712	
==>ment.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Docume <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16048	16145	
==>`intersects( $object )`

These methods return a logical value. 

The argument can be a Span object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	245	347	
==>ma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, rea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	245	347	
==>ma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, rea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	245	347	
==>ma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, rea <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1941	2074	
==>turn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1941	2074	
==>turn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $hea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3326	3418	
==>e ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3326	3418	
==>e ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11938	12101	
==>\n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8220	8383	
==>\n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9054	9217	
==>\n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4178	4272	
==>rch.att.com/~njas/sequences/A000796
 }

multi Math::Unspecced::e ( --> Num ) {
    2.7182818284 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2780	2911	
==>";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2780	2911	
==>";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2780	2911	
==>";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_fr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10175	10282	
==>in(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2416	2539	
==>sion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2416	2539	
==>sion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2416	2539	
==>sion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save a <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11952	12057	
==>oin qq[\n], \@INC"`;
    chomp @inc;
    return @inc;
}


=head2 C<_restore_PERL5LIB>

  $self->_restore_P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7935	8070	
==>> {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7935	8070	
==>> {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7935	8070	
==>> {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from ba <==
4	/Users/nnunley/pugs/util/func_refact.pl	1283	1415	
==>ew = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8027	8132	
==>b Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8027	8132	
==>b Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8027	8132	
==>b Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4039	4140	
==>target, $whitespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13958	14055	
==>%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent ord <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16470	16565	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16470	16565	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16470	16565	
==>que_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STO <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2850	2977	
==>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 200 <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2850	2977	
==>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 200 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6963	7054	
==>emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6975	7066	
==>emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_prog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11868	11984	
==>->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11868	11984	
==>->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11868	11984	
==>->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @cl <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14796	14888	
==>en => "$cdroot/boot/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$ke <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7286	7426	
==>TH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpa <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7286	7426	
==>TH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6966	7095	
==>h->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6966	7095	
==>h->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8891	9015	
==>__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1865	1966	
==>:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comman <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1865	1966	
==>:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comman <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1865	1966	
==>:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comman <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11667	11791	
==>oxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11667	11791	
==>oxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11667	11791	
==>oxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9364	9460	
==>{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	push(@a <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3295	3396	
==>.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it do <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3295	3396	
==>.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17352	17444	
==>many source filterish modules in a much more sane manner.
Module::Compile controls the compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17352	17444	
==>many source filterish modules in a much more sane manner.
Module::Compile controls the compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6918	7038	
==>_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6918	7038	
==>_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6918	7038	
==>_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6318	6420	
==>(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_elemental(R)         --> p56_char <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11120	11228	
==>lti method seek (Int $position, Int $whence = $File::SEEK_START)
            returns Bool is primitive is uns <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	6	94	
==>L2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	6	94	
==>L2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	6	94	
==>L2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2918	3026	
==>ft);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2918	3026	
==>ft);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10914	11014	
==>)) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10914	11014	
==>)) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1660	1764	
==>arName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Ful <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1660	1764	
==>arName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Ful <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1660	1764	
==>arName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Ful <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5108	5206	
==>($self, $label, $method) = @_;
            ::opaque_instance_class($self)->add_method($label, $meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8159	8265	
==>TCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array objec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8159	8265	
==>TCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array objec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8159	8265	
==>TCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array objec <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	621	724	
==>split := { (split rx:perl5/($pattern)/, $^str).map:{~$_} };
  return sub {
    while +@tokens == 0 && de <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4969	5117	
==>,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4969	5117	
==>,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () retu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7964	8084	
==>ag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8022	8142	
==>ag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4834	4966	
==>ndex - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4834	4966	
==>ndex - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9664	9777	
==>(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9664	9777	
==>(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_ <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	475	575	
==>te //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA: <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	475	575	
==>te //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14592	14753	
==>[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14592	14753	
==>[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14592	14753	
==>[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1001	1093	
==>lternation> \| <term>+? }
rule non_alternation { <conjunction> | <non_conjunction> }

rule co <==
4	/Users/nnunley/pugs/util/package-osx.pl	1244	1361	
==>breadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks = qw(
        /usr/lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14257	14346	
==>bute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14257	14346	
==>bute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14257	14346	
==>bute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14745	14858	
==>$mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $targ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14745	14858	
==>$mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $targ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10757	10859	
==>elf = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10757	10859	
==>elf = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	398	503	
==>$self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	398	503	
==>$self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	398	503	
==>$self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10464	10557	
==>_char_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos(horizontal_space) <==
4	/Users/nnunley/pugs/util/version_h.pl	1953	2054	
==>ill print "Filehandle STDIN reopened...", because
  # our handle for $version_h got slot #0, like STDI <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22262	22352	
==>d2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22262	22352	
==>d2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	894	1006	
==>sed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	894	1006	
==>sed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10353	10452	
==>d
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid qu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10353	10452	
==>d
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8006	8119	
==>ams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inden <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8006	8119	
==>ams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inden <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8006	8119	
==>ams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inden <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2178	2288	
==>UBFILE_OF_META  ];

### source package dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	694	824	
==>ading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4172	4302	
==>ading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is val <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19836	19931	
==>ho are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19836	19931	
==>ho are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nic <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9379	9642	
==>= 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{pr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10856	11119	
==>= 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	596	732	
==>) for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Ben <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	693	829	
==>) for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Ben <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6192	6396	
==>d_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6192	6396	
==>d_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6192	6396	
==>d_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11252	11381	
==>c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3718	3815	
==>r options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Fina <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3718	3815	
==>r options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Fina <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	197	293	
==>e the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the pl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	197	293	
==>e the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the pl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2770	2965	
==>t = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2770	2965	
==>t = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1717	1844	
==>upported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1717	1844	
==>upported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is co <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	743	844	
==>r messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip( <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	743	844	
==>r messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2133	2231	
==>y $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2133	2231	
==>y $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12464	12572	
==>lue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7159	7257	
==>S::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7159	7257	
==>S::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7159	7257	
==>S::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6611	6738	
==>e these:

    name        Name of the test which failed
    estat       Script's exit value
    wstat       Script's wait status <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2801	2891	
==>orrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2801	2891	
==>orrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2801	2891	
==>orrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5537	5671	
==>flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless def <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5361	5490	
==>flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4977	5083	
==>(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4977	5083	
==>(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4977	5083	
==>(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instanc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14132	14229	
==>rnatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst-> <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1331	1418	
==>before installation. It's available at:

  http://download.microsoft.com/download/vc15/P <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1171	1258	
==>before installation. It's available at:

  http://download.microsoft.com/download/vc15/P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	271	370	
==>ds: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	271	370	
==>ds: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	271	370	
==>ds: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4330	4420	
==>->name, 'Object', '... $Object got the right method return value');
is($Object->superclass, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6232	6322	
==>->name, 'Object', '... $Object got the right method return value');
is($Object->superclass, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2031	2153	
==>ss \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2019	2141	
==>ss \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	294	393	
==>our bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	294	393	
==>our bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInv <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2740	2856	
==>:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.po <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2740	2856	
==>:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.po <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10041	10136	
==>input that
fails immediate evaluation will not be set at all.  The scope of immediate
validation <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10041	10136	
==>input that
fails immediate evaluation will not be set at all.  The scope of immediate
validation <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13270	13364	
==>denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> obj <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27833	27927	
==>turns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27833	27927	
==>turns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13270	13364	
==>denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> obj <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8179	8281	
==>if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_app <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3603	3711	
==>self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3603	3711	
==>self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3603	3711	
==>self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22307	22403	
==>create any objects.  Afterwards, it is an array
reference of (node) objects.

=item stack

Initia <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11667	11764	
==>s %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11667	11764	
==>s %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11667	11764	
==>s %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5721	5813	
==>(R))       --> "(?<=", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(lookbehind_not( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13944	14038	
==>verloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mug <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10171	10265	
==>verloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mug <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13944	14038	
==>verloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mug <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10171	10265	
==>verloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mug <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	727	831	
==>must be an closure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || confess "bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6124	6215	
==>ent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6124	6215	
==>ent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6124	6215	
==>ent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = funct <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5135	5231	
==>e.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs is built, a fallback Prelud <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3711	3804	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3711	3804	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3711	3804	
==>$lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15926	16028	
==>TI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15926	16028	
==>TI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15926	16028	
==>TI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2615	2766	
==>Empty => sub {
                my $self = shift;
                # FIXME context should be propagated to methods
                scalar(() = $self->hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11717	11857	
==>$spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11717	11857	
==>$spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11717	11857	
==>$spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if ! <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	436	537	
==>* NOTE ***
    DO NOT EDIT THIS FILE.
    This module was automatically generated by util/file_to_hs.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1893	1987	
==>ely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1893	1987	
==>ely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1893	1987	
==>ely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I" <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22618	22715	
==>2.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
rule TryStatement :words {  # see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2394	2486	
==>ecompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2394	2486	
==>ecompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2394	2486	
==>ecompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7339	7509	
==>>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7339	7509	
==>>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7339	7509	
==>>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13923	14068	
==>ruct => 
                    { bin => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out alternati <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3716	3858	
==>i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3716	3858	
==>i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3716	3858	
==>i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7400	7511	
==>elf.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_au <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7400	7511	
==>elf.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_au <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1131	1240	
==>elf.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1131	1240	
==>elf.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29664	29759	
==>nwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34216	34311	
==>nwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33380	33475	
==>nwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffec <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37645	37827	
==>hods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('ha <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6745	6856	
==>t'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'B <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6745	6856	
==>t'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'B <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3644	3755	
==>t'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4844	4965	
==>hannel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4844	4965	
==>hannel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nick <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4343	4458	
==>hannel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4343	4458	
==>hannel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nick <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1946	2068	
==>atcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1946	2068	
==>atcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1946	2068	
==>atcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5878	5980	
==>e' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->new();
	$o->ASS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23623	23752	
==>ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23902	24031	
==>ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2052	2149	
==><value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinction <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2052	2149	
==><value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinction <==
4	/Users/nnunley/pugs/util/drift.pl	735	836	
==>e',
    '-o' => $setup,
    "-i$Bin/../src/DrIFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../DrIFT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2388	2486	
==>r(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2388	2486	
==>r(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2388	2486	
==>r(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5719	5828	
==>angle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5719	5828	
==>angle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5719	5828	
==>angle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5280	5388	
==>e_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	974	1065	
==>de::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	974	1065	
==>de::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	974	1065	
==>de::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use P <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15494	15611	
==>$sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False, $sec, $pico);

        # FIXME: t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8610	8718	
==>ned $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8610	8718	
==>ned $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8610	8718	
==>ned $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10806	10970	
==>match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11272	11436	
==>match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10800	10964	
==>match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11266	11430	
==>match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18460	18558	
==>t('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41725	41823	
==>t('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25943	26036	
==>rving this original copyright notice and other credits.
Rosetta is distributed in the hope tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25943	26036	
==>rving this original copyright notice and other credits.
Rosetta is distributed in the hope tha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11907	12015	
==>]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12330	12438	
==>]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4550	4658	
==>]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4973	5081	
==>]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $na <==
4	/Users/nnunley/pugs/util/config_h.pl	1452	1551	
==>.';

*** Template Haskell compiler backends disabled.  If you want
    Template Haskell support, ple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2349	2430	
==>_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2349	2430	
==>_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2349	2430	
==>_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9708	9812	
==>an => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9708	9812	
==>an => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24148	24241	
==>ersion of that
language.  By contrast, Locale::KeyedText does no compile time binding and
will <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24148	24241	
==>ersion of that
language.  By contrast, Locale::KeyedText does no compile time binding and
will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4354	4456	
==>"ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4354	4456	
==>"ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4354	4456	
==>"ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2078	2167	
==>}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$(INST_AR <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11910	12055	
==>val( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8192	8337	
==>val( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9026	9171	
==>val( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12183	12325	
==>> $min,
      max => $max,
    }, $class;
    return $self;
  }

  sub min {
    my $self = shift;
    $self->{min};
  }

  sub max {
    my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9959	10116	
==>HOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupport <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9959	10116	
==>HOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupport <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9959	10116	
==>HOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupport <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35359	35463	
==>We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1523	1629	
==>i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1523	1629	
==>i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1523	1629	
==>i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	181	285	
==>ude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	181	285	
==>ude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	181	285	
==>ude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9270	9386	
==>l = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9270	9386	
==>l = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9270	9386	
==>l = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my( <==
4	/Users/nnunley/pugs/util/package-osx.pl	5212	5309	
==>an3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3465	3587	
==>rc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3465	3587	
==>rc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	365	465	
==>cument, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kw <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	365	465	
==>cument, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kw <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8136	8292	
==>tch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8136	8292	
==>tch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8136	8292	
==>tch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9361	9464	
==>) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf('-') is part of -CP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2514	2654	
==>$x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warning <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2514	2654	
==>$x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warning <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2514	2654	
==>$x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warning <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5694	5803	
==>ject(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2341	2465	
==>ing
        # `make unoptimzed` which doesn't create it.
        mkpath(dirname($ppc_yml));
        
        run($^X, qw<util <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	722	823	
==>p()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	722	823	
==>p()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	722	823	
==>p()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13664	13763	
==>ure missing, or core bug that needs to
be sorted out before you can continue.

It is also possible t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13722	13821	
==>ure missing, or core bug that needs to
be sorted out before you can continue.

It is also possible t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28668	28764	
==>s having a specific simple API that will serve their role.

For example, inside the text Template <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28668	28764	
==>s having a specific simple API that will serve their role.

For example, inside the text Template <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2228	2466	
==>,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3475	3577	
==>aram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3475	3577	
==>aram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3475	3577	
==>aram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup, <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2722	2828	
==>syn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19729	19818	
==>m_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19729	19818	
==>m_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19729	19818	
==>m_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	723	843	
==>collect_arguments( grep { not try { $normalizer.subsume( $_ ) } }, @args );
        }
        
        method create_argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3023	3129	
==>are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3023	3129	
==>are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3023	3129	
==>are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27111	27228	
==>le::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'G <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27111	27228	
==>le::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'G <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2660	2756	
==>cryptions.

If two different data streams are enciphered with the same key, the encryption 
can b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2660	2756	
==>cryptions.

If two different data streams are enciphered with the same key, the encryption 
can b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	946	1065	
==>[];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delete <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	946	1065	
==>[];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delete <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	946	1065	
==>[];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delete <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4946	5046	
==>t;

	$self->{defined_nodes}->insert($node);
}

sub node_is_defined {
	my $self = shift;
	my $node = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	128	228	
==>:PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	128	228	
==>:PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	128	228	
==>:PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppor <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4846	4968	
==>$.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4846	4968	
==>$.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2123	2229	
==>*@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2123	2229	
==>*@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4973	5147	
==>num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4985	5159	
==>num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9950	10115	
==>= 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curuse <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9950	10115	
==>= 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curuse <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2443	2551	
==>y ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2443	2551	
==>y ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2417	2522	
==>=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2417	2522	
==>=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7576	7718	
==>";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7576	7718	
==>";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7576	7718	
==>";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	128	246	
==>slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    loc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10547	10645	
==>>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # how <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10547	10645	
==>>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # how <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10547	10645	
==>>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # how <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6218	6399	
==>set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

mu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9695	9876	
==>set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

mu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8769	8950	
==>set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

mu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	318	412	
==>w("SomeClass");
 $class.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $foo does Fo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4464	4569	
==>le ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4464	4569	
==>le ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4384	4482	
==>d.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the cu <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4384	4482	
==>d.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the cu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17263	17375	
==>)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13684	13796	
==>)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20696	20792	
==>eclare any subroutines or export such.

The usual way that Relation indicates a failure is to thr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25248	25344	
==>eclare any subroutines or export such.

The usual way that Relation indicates a failure is to thr <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3654	3748	
==>';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh' <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7951	8274	
==>w('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	359	467	
==>_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->toke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	359	467	
==>_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->toke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	359	467	
==>_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->toke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1660	1760	
==>fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compile") or die "open $compile: $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	912	1027	
==>} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	912	1027	
==>} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	912	1027	
==>} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	72	164	
==>our %Conf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']* <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11188	11344	
==>ional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11467	11623	
==>ional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2736	2827	
==>" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2736	2827	
==>" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> < <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5335	5445	
==>p => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17542	17640	
==>{
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17542	17640	
==>{
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17542	17640	
==>{
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3716	3827	
==>method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3716	3827	
==>method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17576	17673	
==>g and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy() <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17576	17673	
==>g and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy() <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4372	4493	
==>(and this message).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests {
    my($self) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4830	4947	
==>4+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4830	4947	
==>4+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2816	2921	
==>NLY;
}


sub awarn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $self->warn($enum, $e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1483	1585	
==>};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1623	1725	
==>};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22781	22878	
==>ne the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27333	27430	
==>ne the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1035	1151	
==>" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1035	1151	
==>" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1035	1151	
==>" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	26	113	
==>londie::Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::DynamicScoping/;

use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7144	7262	
==>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5158	5270	
==>nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5158	5270	
==>nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$ch <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	70	167	
==>fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	70	167	
==>fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3182	3294	
==>mpty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersectio <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3182	3294	
==>mpty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersectio <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	21	131	
==>Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'e <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	21	131	
==>Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'e <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5133	5277	
==>}
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5133	5277	
==>}
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19654	19750	
==>essages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the ma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19654	19750	
==>essages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the ma <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4060	4178	
==>| die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # agai <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4060	4178	
==>| die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # agai <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19191	19289	
==>wn data; only
someone already involved in making the program would be editing them.  At
the same ti <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19191	19289	
==>wn data; only
someone already involved in making the program would be editing them.  At
the same ti <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17906	18014	
==>p = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5780	5875	
==>s method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5780	5875	
==>s method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7977	8072	
==>s method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1612	1750	
==>->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1279	1390	
==>ndo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1279	1390	
==>ndo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1279	1390	
==>ndo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mo <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8022	8177	
==>, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	309	409	
==>ir") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	309	409	
==>ir") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	309	409	
==>ir") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1505	1674	
==>ndex--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/") <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1505	1674	
==>ndex--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/") <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	619	721	
==>h also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And be <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	619	721	
==>h also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1516	1621	
==>b) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1516	1621	
==>b) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1516	1621	
==>b) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15765	15864	
==>rce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15823	15922	
==>rce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 T <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	890	983	
==>DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	890	983	
==>DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM:: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5061	5170	
==>er connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5061	5170	
==>er connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15980	16077	
==>n.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16038	16135	
==>n.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1031	1143	
==>Pair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1031	1143	
==>Pair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1031	1143	
==>Pair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFu <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16160	16261	
==>evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potential unsafe charac <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1897	2028	
==>if (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1897	2028	
==>if (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($bas <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2606	2721	
==>if (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2606	2721	
==>if (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($bas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	435	552	
==>[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1161	1275	
==>[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating $ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1304	1408	
==>t a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1304	1408	
==>t a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8844	9022	
==>( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5204	5382	
==>( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6053	6231	
==>( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17581	17702	
==>PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getcl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5190	5315	
==>rt";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tm <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5190	5315	
==>rt";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tm <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15907	16006	
==>,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted by th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15907	16006	
==>,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted by th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	444	550	
==>ent is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	444	550	
==>ent is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	444	550	
==>ent is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22955	23125	
==>calar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22955	23125	
==>calar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22955	23125	
==>calar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2130	2224	
==>ion) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print: <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4329	4430	
==>ith '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any c <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4329	4430	
==>ith '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21272	21361	
==>-E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21272	21361	
==>-E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

= <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1288	1391	
==>em) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1288	1391	
==>em) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!me <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3180	3274	
==>y $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$con <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3180	3274	
==>y $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$con <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	11	262	
==>pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): param <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46054	46186	
==>e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:name'), $e->get('?$nam <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6122	6216	
==>s document successfully. However, more complex POD 
documents may not do as well. Error reporti <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6122	6216	
==>s document successfully. However, more complex POD 
documents may not do as well. Error reporti <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2853	2953	
==>t, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a no <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2853	2953	
==>t, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a no <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	533	632	
==>$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	533	632	
==>$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11962	12070	
==>start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11962	12070	
==>start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1358	1487	
==>.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1358	1487	
==>.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18661	18755	
==>new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18661	18755	
==>new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6229	6326	
==>tances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($iBa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7608	7701	
==>: $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7608	7701	
==>: $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7608	7701	
==>: $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12772	12939	
==>op::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13051	13218	
==>op::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4071	4180	
==>_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4071	4180	
==>_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10608	10775	
==>y slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ---- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10608	10775	
==>y slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ---- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10608	10775	
==>y slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ---- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20600	20711	
==>||0 == 1 ) &&  ! exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4303	4408	
==>$matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2218	2310	
==>@_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2218	2310	
==>@_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2218	2310	
==>@_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('ha <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6421	6529	
==>erlap ex exhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_supported_p6 = map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5888	5994	
==>js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5888	5994	
==>js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5888	5994	
==>js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print en <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7151	7370	
==>s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2277	2391	
==>alanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2188	2299	
==>alanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bo <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	111	215	
==>erm:<...>()}

# PI könnte ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ? <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	148	552	
==>a::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	148	552	
==>a::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6647	6746	
==>.

=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6647	6746	
==>.

=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1195	1320	
==>rx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	827	935	
==>sg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	827	935	
==>sg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	827	935	
==>sg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4058	4159	
==>ppended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=hea <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4058	4159	
==>ppended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=hea <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9918	10019	
==>$typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOWN($lhs),DOW <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6265	6360	
==>with members belonging to 3rd party classes that your object might be
holding. Using the noio ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6265	6360	
==>with members belonging to 3rd party classes that your object might be
holding. Using the noio ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6265	6360	
==>with members belonging to 3rd party classes that your object might be
holding. Using the noio ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2674	2796	
==>tch->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2674	2796	
==>tch->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	445	548	
==>w {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	445	548	
==>w {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2768	2944	
==>Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6245	6421	
==>Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5175	5351	
==>Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rela <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7089	7207	
==>{
				return unless $self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	563	682	
==>.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is always an opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14925	15022	
==>_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14925	15022	
==>_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14925	15022	
==>_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3306	3420	
==>Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %boun <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3306	3420	
==>Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %boun <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3662	3776	
==>Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %boun <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8631	8731	
==>d restrict (Code $predicate!) returns Relation::Example {
    return Relation::Example.new(
        h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3863	3965	
==>ds;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3863	3965	
==>ds;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3863	3965	
==>ds;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	72	196	
==>er;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7486	7610	
==>{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	72	196	
==>er;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7679	7803	
==>{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10413	10586	
==>in( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13890	14063	
==>in( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relati <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3018	3128	
==>_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Gl <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3018	3128	
==>_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Gl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12363	12533	
==>')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12363	12533	
==>')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3631	3731	
==>.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3631	3731	
==>.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_prev <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	715	840	
==>Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	715	840	
==>Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Fo <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3226	3339	
==>cket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bu <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3226	3339	
==>cket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17543	17707	
==>ues -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21020	21184	
==>ues -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20607	20771	
==>ues -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	345	468	
==>et};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	345	468	
==>et};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	489	595	
==>s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	489	595	
==>s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1219	1328	
==>::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1219	1328	
==>::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Ro <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	503	764	
==>[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	799	916	
==>patchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	799	916	
==>patchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	799	916	
==>patchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	834	945	
==>e_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	554	660	
==>de lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	554	660	
==>de lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	554	660	
==>de lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16669	16780	
==>x} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe jus <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13090	13201	
==>x} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe jus <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3503	3597	
==>nd shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3503	3597	
==>nd shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17478	17608	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20955	21085	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20542	20672	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map: <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	676	782	
==>}
}

sub sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = time;
    Perl6::Interna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1012	1193	
==>2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_[0]->{out}= $_[1] }
    |   type signature_term
        { $_[0]->{out}= { type => $_[1], %{$_[2]} } }
    |   ':' s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2017	2126	
==>defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2017	2126	
==>defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2017	2126	
==>defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	448	583	
==>uld be a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36539	36652	
==>ss->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36539	36652	
==>ss->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36539	36652	
==>ss->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2406	2505	
==>into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2406	2505	
==>into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1627	1720	
==>into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3488	3581	
==>into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	975	1074	
==>rl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	975	1074	
==>rl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1522	1621	
==>rl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10067	10197	
==>"$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10067	10197	
==>"$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2741	2841	
==>ncryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext fro <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2741	2841	
==>ncryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext fro <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	41	137	
==>the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	41	137	
==>the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3665	3760	
==>erface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3882	3977	
==>erface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13886	13991	
==>$s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13886	13991	
==>$s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13886	13991	
==>$s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6701	6806	
==>omb;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
u <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4148	4247	
==>Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4148	4247	
==>Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4228	4327	
==>Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4258	4373	
==>ch');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4475	4590	
==>ch');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6392	6504	
==>zy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "can <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6392	6504	
==>zy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "can <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18702	18822	
==>s->{skip_reason} = 'various reasons'
              if $totals->{skip_reason} ne $detail->{reason};
        }
    }
    el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14901	15013	
==>in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14901	15013	
==>in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14901	15013	
==>in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instanc <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6962	7082	
==>"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6962	7082	
==>"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1289	1400	
==>spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10, <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1289	1400	
==>spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8855	8968	
==>e "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	589	702	
==>e "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8855	8968	
==>e "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8855	8968	
==>e "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3743	3841	
==>n of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3743	3841	
==>n of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3823	3921	
==>n of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descripti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38648	38773	
==>? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38648	38773	
==>? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38648	38773	
==>? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	183	301	
==>@_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_array { }


sub match_hash { }


s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7463	7608	
==>'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6935	7036	
==>$real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_conte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6935	7036	
==>$real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_conte <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16415	16503	
==>1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8373	8482	
==>rn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8373	8482	
==>rn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8373	8482	
==>rn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20204	20299	
==>objects inherit theirs from the base object
class.

The walker() method is also now abstracted - <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7528	7648	
==>if $tree[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	560	669	
==>y access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	560	669	
==>y access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	560	669	
==>y access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5915	6025	
==>ss Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5915	6025	
==>ss Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	770	870	
==>$file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	770	870	
==>$file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	107	218	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	107	218	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	107	218	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pair <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	57	158	
==>mentation of a p6 compiler
# 

# ***************
# This version of lrep only compiles Grammar sections <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12620	12723	
==>cos;
    if ($args{verbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6786	6873	
==>d('resolve' => ::make_method($_resolve));

## ------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6786	6873	
==>d('resolve' => ::make_method($_resolve));

## ------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6786	6873	
==>d('resolve' => ::make_method($_resolve));

## ------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3597	3702	
==>et $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3597	3702	
==>et $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4472	4575	
==>et $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4472	4575	
==>et $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	436	548	
==>tion about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::S <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	436	548	
==>tion about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::S <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3102	3193	
==>expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3160	3251	
==>expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	146	269	
==>ename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Messag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1091	1203	
==>ct('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1091	1203	
==>ct('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1091	1203	
==>ct('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5992	6118	
==>sub_skipped     Number of individual tests skipped
    todo            Number of individual todo tests

    files           Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9565	9667	
==>esolve uses it
    # to gather all the roles to be 'resolved'
    # ----------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9565	9667	
==>esolve uses it
    # to gather all the roles to be 'resolved'
    # ----------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9565	9667	
==>esolve uses it
    # to gather all the roles to be 'resolved'
    # ----------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7871	8003	
==>eturn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7871	8003	
==>eturn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7871	8003	
==>eturn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $typ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	154	258	
==>lti sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@va <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15833	15956	
==>of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1061	1152	
==>d->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1061	1152	
==>d->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1061	1152	
==>d->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21295	21481	
==>=> comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10213	10347	
==>one => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10213	10347	
==>one => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10213	10347	
==>one => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4185	4300	
==>quired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4185	4300	
==>quired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4185	4300	
==>quired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = def <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10811	10908	
==>L5LIB;

Takes the current value of C<@INC> and turns it into something suitable
for putting onto C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1127	1250	
==>.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1127	1250	
==>.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3930	4042	
==>%!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3930	4042	
==>%!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Mo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17617	17805	
==>$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we find a regex
                    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3280	3387	
==>lass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This need <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3280	3387	
==>lass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This need <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3280	3387	
==>lass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This need <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1889	2017	
==>of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5366	5494	
==>of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4296	4424	
==>of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22064	22162	
==>ed.  (Mike Lambert)

C<\b> was being turned into "b" inside a character class, instead of
a backspa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	267	434	
==>ject is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	267	434	
==>ject is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	267	434	
==>ject is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:sup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10924	11015	
==>on( $other );
}

multi method intersection (Relation::Example *@others) returns Relation::Ex <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13645	13773	
==>my $pre = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3774	3894	
==>my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3774	3894	
==>my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3774	3894	
==>my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15396	15497	
==>foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15396	15497	
==>foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15396	15497	
==>foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2329	2424	
==>lone;
    $self->whitespaceOperatorTable()->{$spacePresent[1]} = %tokenClone;
  }

  $token{toke <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5931	6308	
==>5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5931	6308	
==>5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT { <==
4	/Users/nnunley/pugs/util/grokprims.pl	272	383	
==>sociative infix',
    list  => 'list infix',
    chain => 'chaining infix',
);

my @ops;

while (<>) {
  last un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14333	14428	
==>TI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14333	14428	
==>TI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14333	14428	
==>TI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9520	9652	
==>ingle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9520	9652	
==>ingle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9520	9652	
==>ingle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2828	2945	
==>nstantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ / <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2828	2945	
==>nstantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ / <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2828	2945	
==>nstantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	758	909	
==>mmar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	920	1071	
==>mmar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10854	10967	
==>);
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METH <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10854	10967	
==>);
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METH <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5614	5714	
==>->type;
		
		warn "attempting to unify " . $node->struct_equiv . " whose type is " . $self->display_t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10049	10146	
==>at
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10049	10146	
==>at
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	610	706	
==>ge ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operate <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	610	706	
==>ge ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operate <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9726	9845	
==>e( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9706	9825	
==>e( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4697	4811	
==>ammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4697	4811	
==>ammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	615	721	
==>ntent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	615	721	
==>ntent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $co <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10416	10512	
==>- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10416	10512	
==>- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2370	2505	
==>..) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2370	2505	
==>..) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2895	3025	
==>od error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2895	3025	
==>od error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<H <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	988	1086	
==>er Object
# ast isnt really what we want long-term.  If Perl6::Rule::Parser was
# working and robus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1228	1325	
==>'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1228	1325	
==>'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1228	1325	
==>'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $meth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20656	20762	
==>eadonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19582	19688	
==>eadonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20656	20762	
==>eadonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19582	19688	
==>eadonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8741	8913	
==>unt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8741	8913	
==>unt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8741	8913	
==>unt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12877	13013	
==>c     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} },
      scalar_non_nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	62	167	
==>e
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	62	167	
==>e
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	62	167	
==>e
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Jun <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17729	17825	
==>harmap>,
which is a hash reference holding character values (eg. 65 for 'A') and
the number of ti <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17676	17794	
==>r* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1720	1818	
==>on, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1720	1818	
==>on, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1720	1818	
==>on, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new <==
4	/Users/nnunley/pugs/util/addauthors.pl	1147	1278	
==>hor = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $author->{commitid}=$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1285	1382	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1285	1382	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1285	1382	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3226	3327	
==>o/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3226	3327	
==>o/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3226	3327	
==>o/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/li <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28758	28849	
==>nt C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	37	137	
==>, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	37	137	
==>, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	37	137	
==>, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	647	916	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	647	916	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4467	4563	
==>perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4717	4813	
==>perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5359	5461	
==>d_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5359	5461	
==>d_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5359	5461	
==>d_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	221	317	
==>iler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	221	317	
==>iler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13045	13139	
==>ment's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13045	13139	
==>ment's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6594	6716	
==>->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6594	6716	
==>->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6594	6716	
==>->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shi <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8253	8360	
==>o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9924	10026	
==>return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  $self->add_handler('*' => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3613	3714	
==>the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3613	3714	
==>the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3613	3714	
==>the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38171	38299	
==>$array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38171	38299	
==>$array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38171	38299	
==>$array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	954	1108	
==>alue) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!par <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	954	1108	
==>alue) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1677	1767	
==>Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1677	1767	
==>Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1044	1143	
==>ft->type->to_native eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8414	8505	
==>head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8414	8505	
==>head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8414	8505	
==>head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4546	4675	
==>. join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4534	4663	
==>. join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9425	9522	
==>aded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9425	9522	
==>aded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	448	558	
==>> { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	932	1042	
==>> { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1160	1260	
==>('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1160	1260	
==>('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11208	11350	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11487	11629	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18750	18847	
==>ver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17793	17890	
==>ver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18750	18847	
==>ver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17793	17890	
==>ver if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24239	24365	
==>ch_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$& <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24239	24365	
==>ch_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$& <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24239	24365	
==>ch_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$& <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2253	2361	
==>tion( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6666	6803	
==>osure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6666	6803	
==>osure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9127	9263	
==>match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9115	9251	
==>match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11620	11728	
==>set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inv <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8767	8875	
==>set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inv <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11620	11728	
==>set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inv <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8767	8875	
==>set.count()>

Returns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.inv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7935	8043	
==>hod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7935	8043	
==>hod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7935	8043	
==>hod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>] <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12996	13112	
==>turn 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13748	13882	
==>le.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15273	15407	
==>le.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13832	13944	
==>h =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fol <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13832	13944	
==>h =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fol <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	345	461	
==>t => Blondie::Backend::C::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14652	14760	
==>NC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14652	14760	
==>NC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14652	14760	
==>NC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2748	2843	
==>h_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10668	10763	
==>h_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2748	2843	
==>h_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10668	10763	
==>h_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1140	1284	
==>s these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1140	1284	
==>s these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1140	1284	
==>s these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: par <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3086	3213	
==>= $tree[1];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18903	19057	
==>"\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19182	19336	
==>"\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	437	553	
==>ee, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $te <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	437	553	
==>ee, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2052	2180	
==>subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2052	2180	
==>subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2052	2180	
==>subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self-> <==
4	/Users/nnunley/pugs/util/addauthors.pl	347	446	
==>}

my $authors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $co <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3498	3640	
==>tr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10109	10241	
==>emit; # reach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$f <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1481	1607	
==>nd    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1481	1607	
==>nd    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9331	9432	
==>2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9331	9432	
==>2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9331	9432	
==>2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s) <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	392	484	
==>>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These users have something in thei <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	762	870	
==>e;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5607	5704	
==>t a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5607	5704	
==>t a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5607	5704	
==>t a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and creat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4774	4894	
==>d concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4774	4894	
==>d concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3175	3283	
==>event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3175	3283	
==>event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin" <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11956	12066	
==>e => sub { -r "$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	871	968	
==>ent) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	871	968	
==>ent) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	871	968	
==>ent) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4319	4440	
==>) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5640	5761	
==>) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4319	4440	
==>) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5628	5749	
==>) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1395	1613	
==>return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1395	1613	
==>return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6332	6430	
==>';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'Cx <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6332	6430	
==>';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'Cx <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12087	12209	
==>SignedInteger {  # see 9.3.1
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntege <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	469	582	
==>arCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	469	582	
==>arCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	469	582	
==>arCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6409	6514	
==>}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6421	6526	
==>}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - print <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3402	3491	
==>y HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3402	3491	
==>y HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9345	9480	
==>bset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9345	9480	
==>bset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5755	5863	
==>wd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5755	5863	
==>wd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8154	8276	
==>rns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed    



    state <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7931	8049	
==>ocument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7931	8049	
==>ocument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7880	7997	
==>rns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed    

    state <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2509	2637	
==>= compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2509	2637	
==>= compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2509	2637	
==>= compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13844	13939	
==>%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s...) not recognized

=item R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2699	2831	
==>$n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1335	1442	
==>str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1335	1442	
==>str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1335	1442	
==>str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24197	24348	
==>m1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24476	24627	
==>m1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::ca <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3045	3147	
==>,
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3045	3147	
==>,
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4935	5051	
==>can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4935	5051	
==>can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4935	5051	
==>can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2026	2131	
==>rely clear we are doing an fully correct parse.
#
#  Todo:
#   * Create a second grammar which actually ru <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2318	2428	
==>_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7412	7522	
==>_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2318	2428	
==>_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7412	7522	
==>_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8031	8140	
==>hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8019	8128	
==>hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	915	1005	
==>nt describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This docume <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	915	1005	
==>nt describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This docume <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6003	6109	
==>ti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5133	5239	
==>ti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6003	6109	
==>ti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5133	5239	
==>ti sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	139	251	
==>lessed';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	938	1036	
==>=> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	938	1036	
==>=> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	938	1036	
==>=> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	645	767	
==>ing() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	645	767	
==>ing() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	645	767	
==>ing() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1223	1335	
==>.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1223	1335	
==>.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41240	41330	
==>eparate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41240	41330	
==>eparate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6110	6211	
==>irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6110	6211	
==>irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16178	16277	
==>ar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16178	16277	
==>ar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8752	8891	
==>{
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8752	8891	
==>{
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8752	8891	
==>{
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:< <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21988	22107	
==>is when Parse-YAML supports closures correctly!
    return if index($file, 'Test.pm') == -1;
    say "Attempting to comp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15419	15533	
==>" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15419	15533	
==>" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12140	12249	
==>ne ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12140	12249	
==>ne ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21085	21201	
==>s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the cha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19993	20109	
==>s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21085	21201	
==>s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19993	20109	
==>s only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the cha <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2970	3079	
==>_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4232	4341	
==>_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2970	3079	
==>_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4232	4341	
==>_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11173	11271	
==>undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    ((( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2313	2406	
==>ntainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2313	2406	
==>ntainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2313	2406	
==>ntainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4753	4861	
==>{
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::conf <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4753	4861	
==>{
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::conf <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5343	5451	
==>{
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::conf <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	29	132	
==>f in Perl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto sagt: ", hallo( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	40	139	
==>tamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	40	139	
==>tamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	40	139	
==>tamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8405	8537	
==>{   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13916	14048	
==>{   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8405	8537	
==>{   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13910	14042	
==>{   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6272	6386	
==>ly a name to get";    
    my $current = $self;
    while ($current) {
        return $current->{env}->{$name}->fet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9013	9118	
==>ix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9013	9118	
==>ix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9013	9118	
==>ix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3053	3197	
==>=> 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => ' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5550	5644	
==>ional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5550	5644	
==>ional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7074	7168	
==>ional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5088	5227	
==>t')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $stat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4352	4482	
==>t')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $stat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2637	2736	
==>turns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set.st <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2637	2736	
==>turns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set.st <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1966	2077	
==>,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2328	2439	
==>,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1966	2077	
==>,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2328	2439	
==>,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5590	5713	
==>n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$_[1], \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16491	16594	
==>ues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16491	16594	
==>ues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16491	16594	
==>ues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPS <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2929	3049	
==>, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2929	3049	
==>, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15923	16009	
==>F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8946	9156	
==>eturn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8946	9156	
==>eturn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8946	9156	
==>eturn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9719	9817	
==>,
  '... got the right return value from another $iFoo singleton method');   

is($iFoo->test_iFoo_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32478	32676	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32478	32676	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32478	32676	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	97	192	
==>nings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
use constant PGE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7663	7778	
==>or_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7663	7778	
==>or_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7663	7778	
==>or_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :globa <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	174	281	
==>er-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = 123; }
#=" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2606	2704	
==>ch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2606	2704	
==>ch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2686	2784	
==>ch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2543	2671	
==>varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defv <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2543	2671	
==>varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defv <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1077	1201	
==>tore the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we ha <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1077	1201	
==>tore the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3457	3630	
==>return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3704	3877	
==>return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4206	4311	
==>.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy ( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4206	4311	
==>.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	884	999	
==>See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	884	999	
==>See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	884	999	
==>See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3582	3697	
==>t supported features
    -d            # Dump debugging information
    p5_source.pl  # Convert the file. The script <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4151	4264	
==>borting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4151	4264	
==>borting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4151	4264	
==>borting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8542	8685	
==>if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8542	8685	
==>if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8542	8685	
==>if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36494	36590	
==>r, and the order of its arguments is not significant to the result;
the new Relation::Example con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2166	2292	
==>lass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2371	2497	
==>lass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2496	2622	
==>lass
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cla <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28769	28860	
==>> equals the immutable identity of the invocant.

=item C<not_equal (Relation::Example $othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9833	9980	
==>,
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9833	9980	
==>,
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9833	9980	
==>,
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4147	4272	
==>+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4147	4272	
==>+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postf <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1197	1319	
==>>{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1197	1319	
==>>{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	361	472	
==>-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	361	472	
==>-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	361	472	
==>-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19083	19178	
==>0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@\n".number_the_lines($c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34445	34557	
==>ce { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34445	34557	
==>ce { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34445	34557	
==>ce { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   un <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2701	2802	
==>else {
print <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to submit t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4191	4300	
==>n0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method c <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4191	4300	
==>n0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	575	671	
==>ble, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers us <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	575	671	
==>ble, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1092	1193	
==>{ $match = $rpc_regex->match($str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->ma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37409	37502	
==>his multi-method is the N-ary version of the aforementioned binary join()
operator, and the or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41958	42051	
==>his multi-method is the N-ary version of the aforementioned binary join()
operator, and the or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41599	41692	
==>his multi-method is the N-ary version of the aforementioned binary join()
operator, and the or <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10670	10769	
==>cation.

The $value argument may be a plain string or a reference to an array
of strings for a multi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10670	10769	
==>cation.

The $value argument may be a plain string or a reference to an array
of strings for a multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8092	8230	
==>se.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8092	8230	
==>se.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29320	29411	
==>the invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33872	33963	
==>the invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/u <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3254	3343	
==>Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3254	3343	
==>Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciph <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	74	197	
==>b fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is beca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	74	197	
==>b fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is beca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	74	197	
==>b fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is beca <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2069	2176	
==>";
  my @spacePresent = split / /, $nameSplit[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2 <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1098	1211	
==>child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1098	1211	
==>child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9913	10016	
==>st $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   i <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9913	10016	
==>st $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   i <==
4	/Users/nnunley/pugs/util/package-osx.pl	981	1088	
==>/parrot.pc
        /usr/local/share/doc/parrot
        /usr/local/info/readline.info
        /usr/local/info <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2724	2815	
==>stance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2724	2815	
==>stance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2724	2815	
==>stance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribut <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1898	2151	
==>use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or err <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	934	1055	
==>(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	934	1055	
==>(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	934	1055	
==>(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub ev <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4976	5121	
==>"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      t <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1171	1274	
==>end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTi <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1171	1274	
==>end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8353	8458	
==>nt<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8353	8458	
==>nt<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # a <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10706	10796	
==>=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_typ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10706	10796	
==>=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6798	6923	
==>erl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6798	6923	
==>erl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6798	6923	
==>erl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and ca <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1265	1381	
==>unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $B <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1265	1381	
==>unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $B <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32090	32188	
==>and whose body contains all of the tuples that are in either or both of the
invocant Relation and C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36640	36738	
==>and whose body contains all of the tuples that are in either or both of the
invocant Relation and C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4832	4969	
==>{
            # if we already have the method, then
            # ignore it and go to the next one
            next if $self->has_method($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4668	4770	
==>($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PRO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4668	4770	
==>($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PRO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4668	4770	
==>($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PRO <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1843	1941	
==>t 
algorithms will have a key, which will be specified in the options; check your 
cipher's documen <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1843	1941	
==>t 
algorithms will have a key, which will be specified in the options; check your 
cipher's documen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3937	4030	
==>ction(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3937	4030	
==>ction(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13401	13587	
==>bstr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3558	3720	
==>bstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3558	3720	
==>bstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3558	3720	
==>bstr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5059	5179	
==>);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5059	5179	
==>);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5059	5179	
==>);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17773	17877	
==>B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repe <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	868	966	
==>, $time unless $devs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2	98	
==>/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2	98	
==>/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2	98	
==>/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	775	928	
==>-xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            system <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	909	1015	
==>ncee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	909	1015	
==>ncee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	909	1015	
==>ncee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FET <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3794	3894	
==>ml xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3794	3894	
==>ml xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3794	3894	
==>ml xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13930	14047	
==>seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13930	14047	
==>seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13000	13109	
==>seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13000	13109	
==>seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1660	1770	
==>rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rule}(), } } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	199	295	
==>005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	199	295	
==>005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	199	295	
==>005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .acce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8136	8259	
==>mp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 & <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8136	8259	
==>mp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 & <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8136	8259	
==>mp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 & <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3511	3617	
==>Example's attributes and the value corresponding
        # to that is the value for that attribute for that <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1414	1550	
==>dd_rule(
        name => '!',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8389	8491	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8389	8491	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8389	8491	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1198	1308	
==>_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1198	1308	
==>_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1198	1308	
==>_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8949	9072	
==>ouldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	683	806	
==>ouldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8949	9072	
==>ouldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8949	9072	
==>ouldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36793	36921	
==>()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36793	36921	
==>()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36793	36921	
==>()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- a <==
4	/Users/nnunley/pugs/util/version_h.pl	385	482	
==>N keyword expansion (like $Rev$), because
# that is only updated when the file in which the keywor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14958	15053	
==>B accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14958	15053	
==>B accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14958	15053	
==>B accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_ <==
4	/Users/nnunley/pugs/util/testgraph.pl	1236	1332	
==>catalog_tests.pl - produce cross-linkable tests
   util/run-smome.pl     - automate the smoke pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4030	4117	
==>Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4030	4117	
==>Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4030	4117	
==>Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:na <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4447	4565	
==>ort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4447	4565	
==>ort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4447	4565	
==>ort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3603	3721	
==>ort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8011	8107	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7141	7237	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8011	8107	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7141	7237	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3167	3336	
==>problems with 1..5 for some reason
        \:?     # $:x
        [
            [ \:\: ]?
            [ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3125	3232	
==>/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Sc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3125	3232	
==>/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Sc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3125	3232	
==>/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Sc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25484	25591	
==>rch
 * starts in the string, so if regback is >= 0, the regmust search is never
 * wasted effort.  The regba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4227	4333	
==>Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4227	4333	
==>Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4227	4333	
==>Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3495	3626	
==>,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3635	3766	
==>,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	809	939	
==>:Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	864	983	
==>r ~= "Content-type: " ~ $content_type;
        $header ~= "; charset=$charset" if $charset.defined;        
    }
    re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	947	1101	
==>key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	947	1101	
==>key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	716	843	
==>with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two ho <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	716	843	
==>with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two ho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2868	2980	
==>print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3008	3120	
==>print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	365	594	
==>{
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	365	594	
==>{
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	365	594	
==>{
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Control <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7054	7146	
==>($pType, $pParams, $pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLVa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4829	5018	
==>ted .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5051	5240	
==>ted .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capt <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9494	9594	
==>('My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9552	9652	
==>('My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10782	10923	
==>quired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10782	10923	
==>quired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10782	10923	
==>quired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1627	1726	
==>uction

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new strap.

=cut

sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12151	12258	
==>/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($lin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12151	12258	
==>/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($lin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9837	9929	
==>ad2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> w <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9837	9929	
==>ad2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> w <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1447	1662	
==>)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32587	32681	
==>sion of the aforementioned binary union()
operator, and the order of its arguments is not signi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37137	37231	
==>sion of the aforementioned binary union()
operator, and the order of its arguments is not signi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36445	36539	
==>sion of the aforementioned binary union()
operator, and the order of its arguments is not signi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5312	5417	
==>okens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'in <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13468	13573	
==>ather limited, and in a rather
  stable are of the code, so this may not be a real problem.
  [It was.  Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5312	5417	
==>okens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5312	5417	
==>okens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5424	5524	
==>ub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4554	4654	
==>ub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5424	5524	
==>ub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4554	4654	
==>ub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2317	2485	
==>s \{
                bool  => \$_[3]{match}[1]->bool,
                str   => \$_[0],
                from  => \$_[3]{match}[0]->from,
                to    => \$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7308	7439	
==>ment( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7308	7439	
==>ment( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7308	7439	
==>ment( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1846	2003	
==>')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1846	2003	
==>')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1846	2003	
==>')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub : <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12979	13084	
==>>left;
	my $prev_generic = generic($.body);

	if ($t_of_param->free_vars) {
		return $prev_generic + Set:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9202	9319	
==>"quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	394	491	
==>->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	394	491	
==>->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	394	491	
==>->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17072	17214	
==>{
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	158	278	
==>dingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	158	278	
==>dingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	158	278	
==>dingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3048	3173	
==>ind, $skip, $label);

    # FIXME: why doesn't this work?
    # this is here just because of an icky pugsbug.
    #my %idx = < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4995	5098	
==>>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4995	5098	
==>>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4995	5098	
==>>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8754	8941	
==>be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless ex <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5114	5301	
==>be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5963	6150	
==>be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless ex <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7255	7363	
==>sult1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Result <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	45	146	
==>ETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	45	146	
==>ETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	45	146	
==>ETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6790	6905	
==>\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6790	6905	
==>\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6790	6905	
==>\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @ar <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6188	6283	
==>y::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6363	6485	
==>n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6363	6485	
==>n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	277	377	
==>lass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	277	377	
==>lass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1077	1186	
==>the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1077	1186	
==>the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1077	1186	
==>the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	649	788	
==>parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	660	799	
==>parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	142	244	
==>pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	142	244	
==>pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	955	1064	
==>y   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	955	1064	
==>y   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	955	1064	
==>y   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	563	665	
==>e wrapper.

- It needs a 'direction' flag, in order to implement <after>.

- Captures need an inter <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2644	2764	
==>stage};
	push(@todo,$stage);
    }
    #print STDERR "==",join(" ",@todo),"==\n";
    for my $stage (reverse @todo) {
	#p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7460	7560	
==>->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7460	7560	
==>->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7460	7560	
==>->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MUL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2187	2356	
==>h( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2187	2356	
==>h( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2187	2356	
==>h( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2711	2872	
==>ape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal... <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5619	5754	
==>%:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25748	25846	
==>renamed, with its keys being the old names and its values the new names.
This method will fail if a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30300	30398	
==>renamed, with its keys being the old names and its values the new names.
This method will fail if a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29266	29364	
==>renamed, with its keys being the old names and its values the new names.
This method will fail if a <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17410	17546	
==>klink);
                my $t = HTML::Element->new('sup');
                $t->push_content('T');
                $backlink->push_content <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14961	15072	
==>hat is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14961	15072	
==>hat is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14961	15072	
==>hat is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14291	14394	
==>ns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14349	14452	
==>ns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21186	21275	
==>ote that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<g <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21186	21275	
==>ote that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<g <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4683	4803	
==>------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4683	4803	
==>------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35485	35580	
==>Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35485	35580	
==>Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38340	38450	
==>$pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38340	38450	
==>$pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38340	38450	
==>$pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3289	3468	
==>',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3289	3468	
==>',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3289	3468	
==>',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8696	8847	
==>{details}}) {
            if ($detail->{type} eq 'todo') {
                if ($detail->{reason}) {            
                    $todos{$detail->{rea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14347	14501	
==>p1}{op} eq 'eval' ) {
        return 
            'do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3766	3889	
==>ri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "U <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3766	3889	
==>ri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "U <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2288	2381	
==>e> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2377	2470	
==>e> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> <==
4	/Users/nnunley/pugs/util/package-osx.pl	4032	4129	
==>6.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6250	6344	
==>ernals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6250	6344	
==>ernals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6250	6344	
==>ernals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2438	2595	
==>nst_set,
            allow       => ISA_JIB_INSTALLATION_SET, 
        },
    };                             

    check( $tmpl, \%hash ) or error( Params::Ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2610	2729	
==>le expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2610	2729	
==>le expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2610	2729	
==>le expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	84	185	
==>2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	84	185	
==>2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	84	185	
==>2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3105	3215	
==>defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3105	3215	
==>defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3105	3215	
==>defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend <==
4	/Users/nnunley/pugs/util/addauthors.pl	382	474	
==>int Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	757	869	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	962	1074	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1018	1130	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	134	239	
==>E__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Na <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18976	19094	
==>rrect syntax for fetching
        # an attribute symbolically
        $.($key) = $value if $.($key);
    }
}

(method B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16990	17079	
==>make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16990	17079	
==>make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16990	17079	
==>make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4045	4173	
==>tp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = r->lastcloseparen = 0;
    }

    newstr = (r->sublen != strend <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5068	5318	
==>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        i <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5068	5318	
==>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	63	247	
==>ber,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	63	247	
==>ber,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7240	7352	
==>}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $thunk- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	847	943	
==>sage )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	847	943	
==>sage )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1403	1499	
==>sage )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5290	5410	
==>Could not create installed package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = File::Spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17698	17792	
==>,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17698	17792	
==>,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17698	17792	
==>,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
M <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25139	25243	
==>examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.ope <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23903	24007	
==>examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.ope <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25139	25243	
==>examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.ope <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23903	24007	
==>examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2588	2685	
==>({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2588	2685	
==>({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2588	2685	
==>({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8049	8163	
==>$expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8049	8163	
==>$expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2604	2710	
==>y;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.eq <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2604	2710	
==>y;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1503	1602	
==>Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1503	1602	
==>Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12162	12283	
==>= @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4805	4926	
==>= @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2827	2918	
==>e (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_mes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2827	2918	
==>e (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_mes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1289	1392	
==>ject
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1289	1392	
==>ject
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1289	1392	
==>ject
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => st <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	226	326	
==>8.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $compres <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9807	9958	
==>ason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	383	524	
==>ason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	383	524	
==>ason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3091	3186	
==>g{sitelib} = 'C:\usr\site\lib';
    require Data::Dumper;
    print Data::Dumper::Dumper(get_con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4253	4415	
==>%space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4253	4415	
==>%space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4253	4415	
==>%space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21628	21729	
==>%space_from_sigil = ( '$' => 'scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => 'type' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14170	14407	
==>ew( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14170	14407	
==>ew( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14170	14407	
==>ew( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	89	177	
==>eCategory);
use Pugs::Grammar::StatementControl;
use Pugs::Grammar::Expression;
use Pugs: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9154	9295	
==>@arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9154	9295	
==>@arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9154	9295	
==>@arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1265	1392	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1265	1392	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1265	1392	
==>{
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var f <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2929	3053	
==>], $r->[2]) }
}

sub CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2', <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4828	4969	
==>f $x < 0 {
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_roun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10083	10208	
==>- $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10083	10208	
==>- $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10083	10208	
==>- $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13227	13332	
==>if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16704	16809	
==>if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16066	16171	
==>if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2817	2940	
==>) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2817	2940	
==>) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2817	2940	
==>) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's w <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13768	13858	
==>D1])}.

octdigits_int(I) --> octdigit(D0), octdigits(D), { number_chars(I, [42,111,D0|D]) } <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2360	2457	
==>y the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with in <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2360	2457	
==>y the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19459	19542	
==>rusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19459	19542	
==>rusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	556	674	
==>{ $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	556	674	
==>{ $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	556	674	
==>{ $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37621	37736	
==>hift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37621	37736	
==>hift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37621	37736	
==>hift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	478	581	
==>putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	478	581	
==>putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	478	581	
==>putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair. <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	8	107	
==>in/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0 <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	847	958	
==>s::Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32982	33082	
==>ver

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32982	33082	
==>ver

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	111	209	
==>imitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	111	209	
==>imitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3510	3641	
==>();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3510	3641	
==>();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11350	11442	
==>tr $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $da <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11350	11442	
==>tr $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21662	21764	
==>x0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21662	21764	
==>x0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21662	21764	
==>x0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_fr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5725	5875	
==>);
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10830	10980	
==>);
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5725	5875	
==>);
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10830	10980	
==>);
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1057	1174	
==>> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	799	916	
==>> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1057	1174	
==>> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	799	916	
==>> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14679	14781	
==>>= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnectin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14679	14781	
==>>= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnectin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15211	15307	
==>f the given header did not exist then C<undef> is returned.

Methods that deal with dates/times a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15211	15307	
==>f the given header did not exist then C<undef> is returned.

Methods that deal with dates/times a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21500	21600	
==>message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo even <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20381	20481	
==>message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21500	21600	
==>message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20381	20481	
==>message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo even <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11932	12028	
==>header() method, the field name ($field) is not case
sensitive and '_' can be used as a replaceme <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11932	12028	
==>header() method, the field name ($field) is not case
sensitive and '_' can be used as a replaceme <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1299	1394	
==>rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1299	1394	
==>rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_pa <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8458	8570	
==>g complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infin <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8458	8570	
==>g complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7508	7606	
==>w_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7508	7606	
==>w_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1605	1749	
==>= 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( opendir( DH, $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	274	385	
==>file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	274	385	
==>file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	274	385	
==>file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'A <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4987	5092	
==>h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4987	5092	
==>h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1891	1996	
==>h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16980	17076	
==>ualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpression <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	184	305	
==>H, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	891	986	
==>w(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	891	986	
==>w(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	891	986	
==>w(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retva <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5911	6070	
==>sif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['',' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8960	9094	
==>, '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8960	9094	
==>, '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8960	9094	
==>, '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3881	4042	
==>e} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4893	5050	
==>e} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3761	3918	
==>e} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4893	5050	
==>e} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4197	4296	
==>pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4197	4296	
==>pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4197	4296	
==>pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::In <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5746	5866	
==>h2_1";
    goto token_match;
    bsr_token_match2_1:
    goto found_oper if $operator;          
  }

  expect_oper_empty <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3035	3136	
==>Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3035	3136	
==>Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4559	4660	
==>Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5684	5833	
==>rm_bx3:
    if isnegated goto term_charlist                # \X[...], \000
    # goto term_literal                            # \x[...], \000

  term_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2574	2680	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2574	2680	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2574	2680	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_cl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2259	2460	
==>return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5736	5937	
==>return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4666	4867	
==>return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retur <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2277	2380	
==>b;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Nodes - B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22989	23092	
==>ined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22989	23092	
==>ined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22989	23092	
==>ined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	70	167	
==>rl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first attempt at a primitive 
s-expr comp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	319	435	
==>check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Du <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10614	10725	
==>ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10614	10725	
==>ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10614	10725	
==>ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9453	9584	
==>d probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink al <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2506	2637	
==>d probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13683	13797	
==>ow);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7890	8004	
==>ow);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2035	2155	
==>($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2035	2155	
==>($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2035	2155	
==>($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5067	5184	
==>ext (grep /\.a$/, @_) {
        # Do some very sneaky things -- linking other .a with us!
        my $basename = $a_ex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15814	15941	
==>$mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15814	15941	
==>$mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVI <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6381	6483	
==>nt_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6381	6483	
==>nt_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12305	12405	
==>set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12305	12405	
==>set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12305	12405	
==>set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shif <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4536	4634	
==>et difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3663	3761	
==>et difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4536	4634	
==>et difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3663	3761	
==>et difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13315	13445	
==>ve.

 delete %hash{$key}                %hash.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5501	5615	
==>pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the re <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5501	5615	
==>pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27965	28066	
==>');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17619	17793	
==>ERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17619	17793	
==>ERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17619	17793	
==>ERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' | <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4499	4613	
==>r_pragma_value?
    #      I'm guessing "current" because this "is primitive".
    #      If I'm wrong then the abo <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21762	21903	
==>de("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	283	386	
==>> $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	283	386	
==>> $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	283	386	
==>> $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21368	21465	
==>rt with the package name?).  An advantage of
this is that, for example, your package could come wi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21368	21465	
==>rt with the package name?).  An advantage of
this is that, for example, your package could come wi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8203	8290	
==>ormalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8203	8290	
==>ormalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1793	1939	
==>'" ), return;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basename( $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5622	5725	
==>space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5622	5725	
==>space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5622	5725	
==>space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11955	12126	
==>ub {
                      my $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->get('$class:')->send('bless' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4740	4879	
==>my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4740	4879	
==>my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4740	4879	
==>my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1408	1535	
==>\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1408	1535	
==>\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19124	19216	
==>etta DBMS with little
trouble.  Likewise, emulation layers for any other programming language <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19124	19216	
==>etta DBMS with little
trouble.  Likewise, emulation layers for any other programming language <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2673	2771	
==>:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2673	2771	
==>:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2673	2771	
==>:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)", <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28982	29075	
==>of Str $mapping! ) returns Relation::Example>

This method is a generic relational operator th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4399	4510	
==>s_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4399	4510	
==>s_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4399	4510	
==>s_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3634	3735	
==>h ) or error(Params::Check->last_error), return;

    return $version if $version =~ /^\.?\d/;
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18376	18467	
==>infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18376	18467	
==>infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18376	18467	
==>infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1509	1641	
==>eturn Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remain <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1962	2094	
==>eturn Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remain <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2397	2529	
==>eturn Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remain <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2834	2966	
==>eturn Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remain <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	460	573	
==>returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	460	573	
==>returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1826	1925	
==>be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<n <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1826	1925	
==>be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10097	10206	
==>--------------    
      
    # -----------------------------------------------  
    # collects all the roles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10097	10206	
==>--------------    
      
    # -----------------------------------------------  
    # collects all the roles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10097	10206	
==>--------------    
      
    # -----------------------------------------------  
    # collects all the roles <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12683	12780	
==>The zip function needs
to build tuples of the "across" values.  Also, it maybe probably be
in term <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3596	3700	
==>e {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3596	3700	
==>e {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3596	3700	
==>e {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $se <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12088	12184	
==>al pipe. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun/11-safem <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5731	5846	
==>else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave_scope;
		
		my $last_exp = pop @exps;
	
		$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10986	11090	
==>})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10986	11090	
==>})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10986	11090	
==>})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6288	6383	
==>to 3rd party classes that your object might be
holding. Using the noio example above, the "retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6288	6383	
==>to 3rd party classes that your object might be
holding. Using the noio example above, the "retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6288	6383	
==>to 3rd party classes that your object might be
holding. Using the noio example above, the "retur <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2890	2977	
==>=> unicode:"\x0a\x0b\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4601	4741	
==>file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5254	5393	
==>file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	830	935	
==>'    => $inv);
    $self->{env}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7780	7879	
==>m = shift;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backen <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1667	1786	
==>= set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5144	5263	
==>= set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4074	4193	
==>= set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23312	23414	
==>rameterList :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <Identifier> <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1248	1356	
==>n

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRU <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1248	1356	
==>n

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRU <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1454	1559	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1454	1559	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Mo <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	194	307	
==>verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is e <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	194	307	
==>verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is e <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	194	307	
==>verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	194	307	
==>verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9606	9725	
==>of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13083	13202	
==>of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12355	12474	
==>of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2493	2627	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2493	2627	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2493	2627	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4251	4356	
==>Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3378	3483	
==>Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4251	4356	
==>Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3378	3483	
==>Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9267	9427	
==>routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9267	9427	
==>routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3708	3799	
==>UTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. D <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3708	3799	
==>UTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	89	177	
==>>;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	89	177	
==>>;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	89	177	
==>>;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12867	12971	
==>rset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9643	9747	
==>rset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12867	12971	
==>rset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9643	9747	
==>rset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8795	8924	
==>'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8795	8924	
==>'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8795	8924	
==>'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17558	17669	
==>,
	param => val(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $half_pai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2533	2736	
==>ol  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2839	3029	
==>ol  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2839	3029	
==>ol  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opti <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3593	3701	
==>]]>('toString');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6426	6550	
==>}->{$name};  
        $current = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	967	1065	
==>@ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	967	1065	
==>@ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	967	1065	
==>@ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41099	41203	
==>YNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41099	41203	
==>YNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41099	41203	
==>YNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 A <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38914	39007	
==>?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are creating a new es <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2856	3023	
==>label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2856	3023	
==>label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{l <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	493	592	
==>.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	493	592	
==>.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	826	938	
==>ht >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	826	938	
==>ht >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are t <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	176	269	
==>fig --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C= <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	329	422	
==>fig --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	81	216	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	81	216	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	81	216	
==>Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6 <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5052	5152	
==>t(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "er <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6017	6115	
==>turn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6017	6115	
==>turn $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objec <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3979	4072	
==>f.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3979	4072	
==>f.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10865	10962	
==>method get_attribute_list;            
}

-------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10865	10962	
==>method get_attribute_list;            
}

-------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10865	10962	
==>method get_attribute_list;            
}

-------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25493	25589	
==>"pretty print a -> b x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pair->n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6208	6319	
==>t $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5338	5449	
==>t $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6208	6319	
==>t $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5338	5449	
==>t $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3524	3630	
==>iler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modif <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6708	6811	
==>an = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6708	6811	
==>an = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3399	3500	
==>iler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9719	9842	
==>port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$doma <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9719	9842	
==>port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$doma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4563	4670	
==>ame

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2524	2638	
==>my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2524	2638	
==>my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2524	2638	
==>my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "** <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29007	29103	
==>by OR'ing
together the flags that are enabled at the time.

=item $obj->insert()

Inserts this ob <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17633	17824	
==>GE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14054	14245	
==>GE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25214	25362	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25493	25641	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4148	4244	
==>skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4148	4244	
==>skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6345	6441	
==>skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2808	2927	
==>atically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2808	2927	
==>atically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2808	2927	
==>atically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1001	1113	
==>s{'$.todo'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Skip')->new(
                '$.descri <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1078	1190	
==>duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration return <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	820	932	
==>duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration return <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1078	1190	
==>duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration return <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	820	932	
==>duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37102	37204	
==>ice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37102	37204	
==>ice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37102	37204	
==>ice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	493	583	
==>tch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	503	599	
==>en changed to cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5376	5471	
==>tead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5376	5471	
==>tead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5376	5471	
==>tead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
w <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8993	9096	
==>t of shared libraries (*.so) pugs
      requires. This is necessary so we can copy them on the CD later. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21941	22028	
==>nals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21941	22028	
==>nals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21941	22028	
==>nals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	207	317	
==>export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	207	317	
==>export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34095	34194	
==>t preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34095	34194	
==>t preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	57	157	
==>iting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	57	157	
==>iting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	57	157	
==>iting primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2330	2449	
==>my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print D <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2330	2449	
==>my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print D <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2330	2449	
==>my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print D <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12039	12137	
==>order of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator.

If all criteria are e <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8642	8746	
==>to end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1576	1668	
==>e redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1576	1668	
==>e redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1576	1668	
==>e redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1372	1495	
==>-----+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.inde <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3668	3791	
==>-----+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.inde <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1372	1495	
==>-----+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.inde <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3668	3791	
==>-----+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.inde <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11762	11862	
==>decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::E <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11762	11862	
==>decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::E <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10136	10231	
==>ation see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10194	10289	
==>ation see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16102	16213	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19579	19690	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3604	3706	
==>glock above



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3476	3574	
==>glock above

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11931	12029	
==>d_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11931	12029	
==>d_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11931	12029	
==>d_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11503	11658	
==>return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11503	11658	
==>return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11503	11658	
==>return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2651	2777	
==>->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2380	2547	
==>$int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6547	6661	
==>e.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6547	6661	
==>e.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6547	6661	
==>e.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	565	658	
==>rn $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <Capture <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	565	658	
==>rn $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <Capture <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19088	19179	
==>e removal does I<not> happen automatically if using the header(),
push_header() or init_head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19088	19179	
==>e removal does I<not> happen automatically if using the header(),
push_header() or init_head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3989	4095	
==>port extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->po <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3989	4095	
==>port extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->po <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4579	4685	
==>port extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->po <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6975	7076	
==>e this module as is, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::Pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21993	22115	
==>ject(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18414	18536	
==>ject(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18450	18548	
==>(), by which you can create an identical Node (with
child Nodes) to the one you first invoked expor <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18450	18548	
==>(), by which you can create an identical Node (with
child Nodes) to the one you first invoked expor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9242	9385	
==>n $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9242	9385	
==>n $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9242	9385	
==>n $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6420	6563	
==>defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tighter',
        #~ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2676	2783	
==>ed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Objec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2676	2783	
==>ed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	147	251	
==>mmar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	147	251	
==>mmar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?: <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2224	2341	
==>ng == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2224	2341	
==>ng == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0], <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10490	10579	
==>plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10490	10579	
==>plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3132	3229	
==>nfix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3132	3229	
==>nfix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3173	3286	
==>( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4022	4135	
==>( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5893	6001	
==>ion of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5881	5989	
==>ion of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
su <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6444	6549	
==>rn $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internal <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6444	6549	
==>rn $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internal <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20384	20481	
==>ou should only use Example
for testing, development, and study; you should not use it in productio <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20384	20481	
==>ou should only use Example
for testing, development, and study; you should not use it in productio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18173	18266	
==>ccount for situations where multiple DBMS
objects want to use the same external resources, suc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18173	18266	
==>ccount for situations where multiple DBMS
objects want to use the same external resources, suc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32815	32905	
==>user-defined external files for reading, mainly in the
C<translate_message()> method, but i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32815	32905	
==>user-defined external files for reading, mainly in the
C<translate_message()> method, but i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9782	9904	
==>rn "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22372	22532	
==>mp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22372	22532	
==>mp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22372	22532	
==>mp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCH <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3289	3394	
==>values are specced, we can make this much
    # less hacky :-)
    for my $file (@{ $Config{precompile} }) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1381	1476	
==>in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1381	1476	
==>in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1623	1717	
==>k)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1623	1717	
==>k)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23369	23508	
==>thod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23369	23508	
==>thod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23369	23508	
==>thod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value: <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5533	5637	
==>local *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self->_d <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1763	1880	
==>:$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $hea <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1763	1880	
==>:$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $hea <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3075	3180	
==>ent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3075	3180	
==>ent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1075	1217	
==>ash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unle <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1075	1217	
==>ash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unle <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5715	5855	
==>n new_box('Str',@_) if $cls eq 'Str';
    return get_meta('Ref')->new('$.referred',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5340	5438	
==>in("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	503	628	
==>uery.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	503	628	
==>uery.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21473	21630	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21473	21630	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21473	21630	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclas <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5092	5180	
==>ge_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> digits <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	950	1045	
==>lan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	950	1045	
==>lan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1497	1592	
==>lan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21346	21443	
==>2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21346	21443	
==>2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7851	7945	
==>ternal structures.

Cipher authors should assume that if this method is being called, the Secre <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7851	7945	
==>ternal structures.

Cipher authors should assume that if this method is being called, the Secre <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6086	6284	
==>dir($to, $target) ) ) {
                error( "Could not create subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17327	17413	
==>::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17327	17413	
==>::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17327	17413	
==>::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28847	28943	
==>value set members.  This
method supports having the new attributes having the same names as old
a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33399	33495	
==>value set members.  This
method supports having the new attributes having the same names as old
a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32536	32632	
==>value set members.  This
method supports having the new attributes having the same names as old
a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6786	6908	
==>],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_perso <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6786	6908	
==>],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_perso <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19628	19724	
==>t compiler. The end of an inner block
effectively acts as a C<no> statement for any compile secti <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19628	19724	
==>t compiler. The end of an inner block
effectively acts as a C<no> statement for any compile secti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10074	10207	
==>defined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10074	10207	
==>defined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10074	10207	
==>defined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11258	11356	
==>'t compiled into the code #print "Compiled AST: " . Dumper->reduce($c);

package Reducer;

sub redu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	115	244	
==>ict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	115	244	
==>ict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	115	244	
==>ict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   = <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28808	28904	
==>est-harness......ok
  All tests successful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11321	11424	
==>,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11321	11424	
==>,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11321	11424	
==>,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4276	4376	
==>emove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5173	5273	
==>emove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4276	4376	
==>emove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5173	5273	
==>emove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16455	16565	
==>s =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29495	29593	
==>th the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE)

Whether this nod <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5238	5329	
==>de("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pug <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5238	5329	
==>de("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	46	135	
==>sh(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	46	135	
==>sh(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	46	135	
==>sh(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	908	1046	
==>$span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_sta <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4147	4285	
==>$span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	908	1046	
==>$span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4147	4285	
==>$span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_sta <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7666	7816	
==>NTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7666	7816	
==>NTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1053	1154	
==>::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1053	1154	
==>::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19164	19270	
==>er_the_lines($code)."\n");
}
sub eval_p5_code {
    my($code)=@_;
    eval_p5_log_code($code);    
    my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12856	12961	
==>$self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12856	12961	
==>$self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12856	12961	
==>$self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3384	3488	
==>kages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Att <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3384	3488	
==>kages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Att <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32492	32585	
==>plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary ve <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37042	37135	
==>plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9289	9391	
==>use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9289	9391	
==>use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9289	9391	
==>use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4596	4705	
==>, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7450	7594	
==>'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7450	7594	
==>'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6423	6537	
==>_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6423	6537	
==>_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8936	9039	
==>@brentdax.com>.

This code is free software, and may be used, distributed and/or modified under 
the sam <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3865	3968	
==>@brentdax.com>.

This code is free software, and may be used, distributed and/or modified under 
the sam <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8936	9039	
==>@brentdax.com>.

This code is free software, and may be used, distributed and/or modified under 
the sam <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3865	3968	
==>@brentdax.com>.

This code is free software, and may be used, distributed and/or modified under 
the sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	654	782	
==>$in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	654	782	
==>$in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	654	782	
==>$in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4535	4630	
==>Perl 5 grammar and semantics for Regex.

=head2 match (Str $match_against)

Instance method.  Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13151	13259	
==>b p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13151	13259	
==>b p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13151	13259	
==>b p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1591	1685	
==>RSION_SUBS';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${re_symbol})/\@$1.last <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8730	8845	
==>k} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return v <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8730	8845	
==>k} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8988	9101	
==>k} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return v <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8988	9101	
==>k} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return v <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9860	10116	
==>f:' => 'opaque'),
                              symbol->new('$label' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1944	2066	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1944	2066	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1944	2066	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	556	697	
==>y $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	761	902	
==>y $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	817	958	
==>y $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'D <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18321	18416	
==>n C<< <schwern@pobox.com> >>, currently maintained by
Andy Lester C<< <andy@petdance.com> >>.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14118	14242	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14397	14521	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7153	7257	
==>> "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7153	7257	
==>> "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.heade <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	6	120	
==>Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	6	120	
==>Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5987	6080	
==>d1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/compl <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5987	6080	
==>d1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/compl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1466	1600	
==>ta = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1466	1600	
==>ta = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15918	16014	
==>and papers and taught classes on the subject over the last
35+ years, along with Codd himself (so <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15918	16014	
==>and papers and taught classes on the subject over the last
35+ years, along with Codd himself (so <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16461	16561	
==>t()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16461	16561	
==>t()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3019	3114	
==>ts as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter name <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3019	3114	
==>ts as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4363	4470	
==>n, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4363	4470	
==>n, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4872	4977	
==>n, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4872	4977	
==>n, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	378	472	
==>{ $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	378	472	
==>{ $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	378	472	
==>{ $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
met <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	831	1070	
==>nt( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	832	1071	
==>nt( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7512	7605	
==>asechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7512	7605	
==>asechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16504	16656	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    tak <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19981	20133	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    tak <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19541	19693	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    tak <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	408	526	
==>e "Could not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2884	2989	
==>$self->{tree};
  $self->warn($enum, $err, @args);
}


sub next {
  my ($self) = @_;
  croak "no regex defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4599	4701	
==>stant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4599	4701	
==>stant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4599	4701	
==>stant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2745	2841	
==>with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedTex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10665	10761	
==>with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedTex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2745	2841	
==>with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedTex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10665	10761	
==>with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedTex <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7788	7902	
==>-> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7788	7902	
==>-> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6600	6698	
==>rns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6600	6698	
==>rns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15190	15360	
==>thod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15190	15360	
==>thod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15190	15360	
==>thod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	571	769	
==>e       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8152	8265	
==>MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8152	8265	
==>MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8152	8265	
==>MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2999	3112	
==>list of methods
### see above for details
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	504	608	
==>zation of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	504	608	
==>zation of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D c <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6688	6789	
==>SPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilrun";
  / <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24259	24355	
==>n AI or other interactive program controlling their
  actions) which are always seen to be replyi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23032	23128	
==>n AI or other interactive program controlling their
  actions) which are always seen to be replyi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24259	24355	
==>n AI or other interactive program controlling their
  actions) which are always seen to be replyi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23032	23128	
==>n AI or other interactive program controlling their
  actions) which are always seen to be replyi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12588	12739	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12588	12739	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12588	12739	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20270	20390	
==>b_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1518	1630	
==>(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1518	1630	
==>(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1518	1630	
==>(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5163	5258	
==>sub symbol { "→" }
sub is_arrow { 1 }

package type::operator::pair;
use base qw/type::operato <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	627	758	
==>er;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	627	758	
==>er;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7640	7738	
==>tual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7381	7476	
==>tual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9157	9260	
==>next if defined($v) && $v eq $_[0]; # where does this recursion arise?
	my $v2 = recurse($v);
	$v2 = "\" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8825	8974	
==>my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextk <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8825	8974	
==>my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextk <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8825	8974	
==>my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextk <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3004	3111	
==>> $node,
			);
		} else {
			my $type = $self->guess_perl_type($node);
			warn "type of " . qprintable($node <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8051	8152	
==>delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %hand <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8051	8152	
==>delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %hand <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15106	15195	
==>ch
multiple interchangeable "Engine" back-ends (usually provided by third
parties) impleme <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15106	15195	
==>ch
multiple interchangeable "Engine" back-ends (usually provided by third
parties) impleme <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10970	11067	
==>S

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth retur <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10970	11067	
==>S

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2339	2492	
==>rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	958	1062	
==>($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	958	1062	
==>($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	958	1062	
==>($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31173	31270	
==>es applied to each tuple.  The new Relation::Example has all
of the tuples of the original (or rat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2871	2966	
==>ng, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2871	2966	
==>ng, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3218	3313	
==>ng, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	42	157	
==>005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	42	157	
==>005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	42	157	
==>005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8197	8294	
==>nal, the values returned will be array references to the sub
array.

In Scalar context, they all r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6308	6405	
==>::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6308	6405	
==>::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6308	6405	
==>::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3537	3634	
==>as the binary to put on the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --parrot-path a <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2547	2653	
==>Str = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate sou <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4714	4812	
==>t.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4714	4812	
==>t.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6911	7009	
==>t.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4615	4745	
==>cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4615	4745	
==>cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4615	4745	
==>cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3832	3923	
==>Check->last_error), return;

    if (-e $self->pool->file(file($pkg->file)->basename) && !$f <==
4	/Users/nnunley/pugs/util/package-osx.pl	11586	11706	
==>r;
    print REMOVER "    $_\n" for @files; 
    print REMOVER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	623	734	
==>('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	623	734	
==>('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	623	734	
==>('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || c <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15949	16080	
==>get  = $link->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2854	2969	
==>ub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2854	2969	
==>ub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2854	2969	
==>ub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3369	3470	
==>untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3553	3654	
==>untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> < <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3071	3164	
==>ition, the following request headers are set on the HTTP::Headers object,
if they are present: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3071	3164	
==>ition, the following request headers are set on the HTTP::Headers object,
if they are present: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7430	7529	
==>nd leave kv a stub {...}.
 multi Array::keys   (@array ; MatchTest *@indextests --> Int|List )
 mult <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10484	10589	
==>s commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10484	10589	
==>s commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4031	4130	
==>r::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) { <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4031	4130	
==>r::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8996	9117	
==>dnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8996	9117	
==>dnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16030	16124	
==>l::Node object, that
lives in the Document object given in the named parameter $document, and
w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16030	16124	
==>l::Node object, that
lives in the Document object given in the named parameter $document, and
w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	654	767	
==>!~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	654	767	
==>!~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5512	5616	
==>ess defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5512	5616	
==>ess defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$ch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4191	4302	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($tw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3318	3429	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4191	4302	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3318	3429	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($tw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2294	2412	
==>t to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2294	2412	
==>t to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2294	2412	
==>t to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	631	990	
==>graph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	631	990	
==>graph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($even <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5014	5109	
==>)

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5014	5109	
==>)

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15853	15978	
==>name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = /\.(\w+)$/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5944	6045	
==>he top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5944	6045	
==>he top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5944	6045	
==>he top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9195	9304	
==>span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9195	9304	
==>span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9752	9860	
==>span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9752	9860	
==>span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11073	11228	
==>[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11073	11228	
==>[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11073	11228	
==>[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46232	46343	
==>$e->get('$self:')->get_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('add_meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1550	1674	
==>ent_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1550	1674	
==>ent_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1550	1674	
==>ent_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50362	50474	
==>'$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2964	3065	
==>k_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2964	3065	
==>k_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2964	3065	
==>k_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13254	13342	
==>tities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13254	13342	
==>tities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14080	14207	
==>.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14080	14207	
==>.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6812	6927	
==>mplate module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6812	6927	
==>mplate module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4053	4177	
==>tmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawNa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4053	4177	
==>tmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawNa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	903	1027	
==>tmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawNa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	848	942	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:l <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3548	3708	
==>hen $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_roun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8106	8214	
==>t $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8106	8214	
==>t $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8106	8214	
==>t $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7605	7714	
==>n { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7605	7714	
==>n { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7605	7714	
==>n { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13799	13900	
==>rn $S->force_object(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	184	281	
==>new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	184	281	
==>new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	184	281	
==>new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_m <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	642	751	
==>D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	642	751	
==>D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3909	4017	
==>= grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4126	4234	
==>= grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1152	1284	
==>LE instead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30070	30165	
==>s method is a short-hand or alternative for the functionality provided
by the 5 generic relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34622	34717	
==>s method is a short-hand or alternative for the functionality provided
by the 5 generic relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33795	33890	
==>s method is a short-hand or alternative for the functionality provided
by the 5 generic relation <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1096	1199	
==>gs;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core method instance type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1230	1327	
==>new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1230	1327	
==>new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1230	1327	
==>new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3038	3193	
==>::Regex->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	542	650	
==>closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	542	650	
==>closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	542	650	
==>closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	202	313	
==>he Pod grammar

# XXX Pod can only start at a line start

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13989	14097	
==>yntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {... <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10162	10270	
==>yntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {... <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10998	11106	
==>yntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	483	613	
==>,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	483	613	
==>,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	483	613	
==>,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	461	587	
==>1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	701	809	
==>ytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifie <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	701	809	
==>ytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifie <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	701	809	
==>ytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifie <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	764	924	
==>rent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	764	924	
==>rent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1851	1973	
==>> { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1851	1973	
==>> { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14404	14505	
==>appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14462	14563	
==>appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1817	1971	
==>nstalled --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5934	6054	
==>] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5934	6054	
==>] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5934	6054	
==>] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaq <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2704	2949	
==>alar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2704	2949	
==>alar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	587	831	
==>all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	587	831	
==>all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10507	10653	
==>d =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10507	10653	
==>d =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10507	10653	
==>d =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5111	5241	
==>fe   (Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4549	4647	
==>p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4549	4647	
==>p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4549	4647	
==>p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4047	4228	
==>r')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1006	1101	
==>mented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1006	1101	
==>mented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1006	1101	
==>mented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15849	15955	
==>bols of our outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4143	4238	
==>ETHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4143	4238	
==>ETHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5667	5762	
==>ETHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7253	7361	
==>ing for module files",
  ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q$lib6\ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	816	913	
==>ng the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
so <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	816	913	
==>ng the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
so <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17351	17446	
==>rpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and meth <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17351	17446	
==>rpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and meth <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1394	1492	
==>rings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by givin <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1394	1492	
==>rings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by givin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24495	24592	
==>it and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Fr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24495	24592	
==>it and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Fr <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5601	5737	
==>ay, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4986	5107	
==>>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4986	5107	
==>>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4986	5107	
==>>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2052	2245	
==>= $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5529	5722	
==>= $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4459	4652	
==>= $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () return <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6451	6570	
==>el_uri\"",
  help   => "Remove \"$kernel_local\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5385	5491	
==>exdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	164	266	
==>AN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN lib <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	164	266	
==>AN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN lib <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	164	266	
==>AN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN lib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6188	6327	
==>eady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6188	6327	
==>eady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6188	6327	
==>eady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_at <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3389	3485	
==>$variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3573	3669	
==>$variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5066	5174	
==>L_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5066	5174	
==>L_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1970	2078	
==>L_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11424	11528	
==>pl:runperl(): none of prog, progs, progfile, args, "
	    . " switches or stdin specified"
	    unless de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	381	495	
==>gs 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	587	701	
==>gs 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13949	14061	
==>t user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13949	14061	
==>t user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6322	6452	
==>it( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6597	6726	
==>it( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{par <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	382	486	
==>width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	382	486	
==>width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	78	182	
==>sting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	78	182	
==>sting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4682	4776	
==>thod project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8159	8253	
==>thod project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!headi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1878	1993	
==>*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_re <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1878	1993	
==>*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4599	4710	
==>$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4657	4768	
==>$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3165	3276	
==>c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2966	3068	
==>lo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2966	3068	
==>lo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2966	3068	
==>lo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19864	19960	
==>od calls force_object().  force_object() creates an
object no matter what pass the parser is maki <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2403	2534	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7497	7628	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2403	2534	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7497	7628	
==>',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	166	293	
==>ocument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_ele <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	166	293	
==>ocument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_ele <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6038	6135	
==>nnot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblin <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6038	6135	
==>nnot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4959	5082	
==>') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4959	5082	
==>') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4959	5082	
==>') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKA <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7634	7750	
==>MERIC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8685	8830	
==>**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8685	8830	
==>**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8685	8830	
==>**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10315	10430	
==>e = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test file $output_path: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12397	12494	
==>::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12397	12494	
==>::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12397	12494	
==>::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15107	15222	
==>return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2554	2639	
==>!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2554	2639	
==>!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2554	2639	
==>!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6342	6437	
==>-------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6342	6437	
==>-------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6342	6437	
==>-------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Mo <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	149	268	
==>ths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value give <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	149	268	
==>ths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value give <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3735	3823	
==>n@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDunc <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3735	3823	
==>n@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDunc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1018	1120	
==>d $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1018	1120	
==>d $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1018	1120	
==>d $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20493	20587	
==>d to another file to help keep I<this>
file as abstract as possible.  F<Regexp::Parser> install <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3994	4125	
==>"Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3994	4125	
==>"Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl:: <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5708	5802	
==>>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adam <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5708	5802	
==>>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15688	15820	
==>)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15688	15820	
==>)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15688	15820	
==>)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2322	2442	
==>2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{$dir} i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5477	5595	
==>$match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5477	5595	
==>$match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16800	16899	
==>HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16800	16899	
==>HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2385	2497	
==>.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2385	2497	
==>.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7301	7399	
==>tial `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7301	7399	
==>tial `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6818	6958	
==>efine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6818	6958	
==>efine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1489	1607	
==>> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1489	1607	
==>> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1070	1193	
==>->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1026	1144	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3778	3877	
==>ntersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3778	3877	
==>ntersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

met <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	765	868	
==>-- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  i <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	765	868	
==>-- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12366	12461	
==>r :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12424	12519	
==>r :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9390	9583	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9390	9583	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9390	9583	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12464	12582	
==>runperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= " \xB3 D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10711	10812	
==>) {
	die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2530	2635	
==>::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1142	1247	
==>::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2214	2319	
==>ge dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1843	1948	
==>::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5654	5752	
==>urn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writab <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1180	1278	
==>s (as in the example above).  Read a Calculus textbook for details.
This implementation is meant to <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5654	5752	
==>urn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writab <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6244	6342	
==>urn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writab <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5535	5645	
==>e')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5535	5645	
==>e')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2039	2141	
==>s
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2039	2141	
==>s
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2039	2141	
==>s
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TOD <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	446	537	
==>ilder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Common qw/balanced delimited/ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13586	13682	
==>s is most useful when writing modules and you
find there is some language feature missing, or cor <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13644	13740	
==>s is most useful when writing modules and you
find there is some language feature missing, or cor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22474	22567	
==>uitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22474	22567	
==>uitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note th <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	63	163	
==>perator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
sa <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	841	973	
==>$buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TOD <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	841	973	
==>$buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TOD <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	945	1044	
==>privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	945	1044	
==>privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5585	5699	
==>rt_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attribu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5585	5699	
==>rt_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attribu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23816	23926	
==>m table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29004	29102	
==>m table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9542	9697	
==>guments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9542	9697	
==>guments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9542	9697	
==>guments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type do <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	292	420	
==>Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4878	4989	
==>, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *inf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4005	4116	
==>, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4878	4989	
==>, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4005	4116	
==>, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *inf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5901	6047	
==>};
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5901	6047	
==>};
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($cont <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8607	8708	
==>operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6140	6239	
==>operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12522	12621	
==>ippet, and then pass the result to is or ok
on success, or report that the eval was not successful o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12580	12679	
==>ippet, and then pass the result to is or ok
on success, or report that the eval was not successful o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5880	5975	
==>$event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5880	5975	
==>$event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(norma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2438	2601	
==>son) = @_;
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3315	3431	
==>});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3315	3431	
==>});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3315	3431	
==>});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8577	8677	
==>of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6111	6210	
==>of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ] <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2168	2266	
==>, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have diffe <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2168	2266	
==>, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have diffe <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1077	1185	
==>not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $debug_warnings <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1950	2051	
==>to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1950	2051	
==>to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1950	2051	
==>to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12011	12179	
==>\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8293	8461	
==>\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9127	9295	
==>\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1904	2053	
==>le_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1904	2053	
==>le_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $pa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	610	704	
==>f_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	668	762	
==>f_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	531	653	
==>opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	547	669	
==>opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	523	645	
==>opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" , <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2796	2916	
==>h line\n".
        "6th line\n7th line\n8th line\n9th line\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6092	6190	
==>rns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns A <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8160	8258	
==>rns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns A <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6092	6190	
==>rns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns A <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8160	8258	
==>rns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2755	2880	
==>length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2755	2880	
==>length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2755	2880	
==>length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2J <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	890	1007	
==>rog, Bool::False, @args);
    }
    multi sub exec(@args) returns Bool is builtin is primitive is unsafe {
        # s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2173	2334	
==>not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14787	14894	
==>$neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	250	374	
==>ators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse:: <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	250	374	
==>ators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17336	17432	
==>o the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The cl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17336	17432	
==>o the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	652	779	
==>rue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	652	779	
==>rue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	652	779	
==>rue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4882	5013	
==>ix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4882	5013	
==>ix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4861	4985	
==>.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4861	4985	
==>.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4566	4701	
==>+;
            $pass = 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self- <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5820	5912	
==>($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5820	5912	
==>($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	720	811	
==>:Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	720	811	
==>:Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11706	11810	
==>od('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11706	11810	
==>od('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11706	11810	
==>od('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19781	19875	
==>0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	99	212	
==>tty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	99	212	
==>tty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4980	5076	
==>s($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7648	7744	
==>s($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1646	1772	
==>left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1352	1450	
==>ix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1352	1450	
==>ix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1352	1450	
==>ix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	538	662	
==>XPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package Blondie::Node;

    use Digest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4607	4709	
==>e of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4607	4709	
==>e of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4607	4709	
==>e of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7194	7412	
==>n {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7194	7412	
==>n {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1105	1218	
==>y Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1105	1218	
==>y Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18322	18421	
==>her Perl code such as persistence
solutions.  Moreover, these data structures are in exactly the rig <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18322	18421	
==>her Perl code such as persistence
solutions.  Moreover, these data structures are in exactly the rig <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13227	13325	
==>her Perl code such as persistence solutions.
Moreover, these data structures are in exactly the rig <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13227	13325	
==>her Perl code such as persistence solutions.
Moreover, these data structures are in exactly the rig <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2222	2391	
==>y $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = shift;
                my <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25473	25580	
==>each of its tuples is
a row, and each attribute is a column, but a Relation::Example is not a table.

The Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20514	20614	
==>OP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20514	20614	
==>OP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20514	20614	
==>OP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12773	12869	
==>t1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12773	12869	
==>t1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superse <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22131	22226	
==>tiple language
or permissions issue; simply order the files appropriately in the search
list.  T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22131	22226	
==>tiple language
or permissions issue; simply order the files appropriately in the search
list.  T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	911	1038	
==>->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
s <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1093	1204	
==>->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $script_file) = @_;
    loc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12903	13000	
==>mple, when iterating through the span range, the unit is added to the current value to get the nex <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12903	13000	
==>mple, when iterating through the span range, the unit is added to the current value to get the nex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14004	14120	
==>, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14004	14120	
==>, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13070	13178	
==>, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13070	13178	
==>, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0r <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7498	7648	
==>tatus"; $results{'exit'} = $?};
    }
    else {
        $results{'exit'} = _wait2exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5927	6030	
==>.=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// En <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5927	6030	
==>.=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// En <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5927	6030	
==>.=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// En <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1860	1970	
==>my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1860	1970	
==>my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2096	2206	
==>my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4164	4273	
==>ne\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" ],
   ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	352	471	
==>new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $cla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	384	503	
==>new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6791	6903	
==>nt postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6791	6903	
==>nt postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3856	3957	
==>.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3856	3957	
==>.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3856	3957	
==>.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3510	3605	
==>::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
    a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13369	13551	
==>art => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13369	13551	
==>art => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13369	13551	
==>art => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2741	2838	
==>self->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2740	2868	
==>lude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2957	3085	
==>lude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7200	7292	
==>ter the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_eleme <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7200	7292	
==>ter the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_eleme <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6405	6532	
==>"piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6405	6532	
==>"piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1550	1658	
==>ence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_pre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1550	1658	
==>ence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1967	2132	
==>, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	116	218	
==>lsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	116	218	
==>lsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	116	218	
==>lsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5060	5183	
==>cal $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5060	5183	
==>cal $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5060	5183	
==>cal $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method .. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27184	27278	
==>:Example constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17948	18058	
==>nversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do if $spec eq "%" { ...; ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39548	39651	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39548	39651	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39548	39651	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	596	705	
==>posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	596	705	
==>posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	596	705	
==>posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
ou <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20832	20932	
==>B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7410	7528	
==>my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::B <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7410	7528	
==>my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::B <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	424	625	
==>y_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	424	625	
==>y_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19930	20018	
==>ehaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-containe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19930	20018	
==>ehaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-containe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4400	4529	
==>ing for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4400	4529	
==>ing for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4400	4529	
==>ing for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	978	1089	
==>ile);
}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18512	18611	
==>$tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19870	19969	
==>$tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	710	804	
==>tpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	710	804	
==>tpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4312	4405	
==>tem B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4312	4405	
==>tem B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4312	4405	
==>tem B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4344	4512	
==>);
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4344	4512	
==>);
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4344	4512	
==>);
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SEL <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5381	5475	
==>s ready, the Standard
Prelude is precompiled and stored in YAML format in a (conjecturally)
wel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1674	1785	
==>my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirect_typed_value {
	my $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2455	2562	
==>($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2455	2562	
==>($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2455	2562	
==>($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_p <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1772	1884	
==>out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($c <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1772	1884	
==>out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($c <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2195	2292	
==>em wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaul <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2195	2292	
==>em wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaul <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9483	9586	
==>ing;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9483	9586	
==>ing;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2870	2970	
==>eturn [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$ <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2870	2970	
==>eturn [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13014	13163	
==>,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21064	21213	
==>,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13293	13442	
==>,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21343	21492	
==>,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14084	14219	
==>hifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14084	14219	
==>hifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14084	14219	
==>hifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$sel <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2895	2999	
==>s $kind = Any, Int :$skip = 0, Str :$label)
        returns Control::Caller is primitive is builtin is sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3454	3563	
==>gth $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3454	3563	
==>gth $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3454	3563	
==>gth $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$w <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3560	3657	
==>name} = shift;
	$self;
}

package type::operator::binary;
use base qw/type::operator/;

use Scalar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1153	1249	
==>n
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1153	1249	
==>n
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1153	1249	
==>n
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8458	8563	
==>'$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8458	8563	
==>'$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8458	8563	
==>'$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_(' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26066	26163	
==>code; you should make sure in yours.

Matching against the regex is done in scalar context, global <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15328	15442	
==>has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodco <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15328	15442	
==>has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodco <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10260	10353	
==>ipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10260	10353	
==>ipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16489	16618	
==>ng.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19966	20095	
==>ng.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19526	19655	
==>ng.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1632	1755	
==>ere {
    my @caller = caller($Level);
    return "at $caller[1] line $caller[2]";
}

# DON'T use this for matches. Use like <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2166	2294	
==>= _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2166	2294	
==>= _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1826	1936	
==>llback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1826	1936	
==>llback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2457	2722	
==>other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3648	3741	
==>ect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3648	3741	
==>ect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $se <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7621	7726	
==>@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6751	6856	
==>@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7621	7726	
==>@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6751	6856	
==>@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	535	648	
==>thod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	535	648	
==>thod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	535	648	
==>thod('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1033	1142	
==>intf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8845	8966	
==>{
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8845	8966	
==>{
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more e <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6343	6458	
==>t $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return s <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6343	6458	
==>t $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	529	633	
==>on
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref impl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	529	633	
==>on
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref impl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	529	633	
==>on
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6150	6283	
==>{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6150	6283	
==>{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6150	6283	
==>{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	972	1084	
==>@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	972	1084	
==>@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!membe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	451	557	
==>nt_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was la <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	451	557	
==>nt_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4436	4536	
==>2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $writ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4436	4536	
==>2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $writ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4436	4536	
==>2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $writ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1804	1905	
==>key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1804	1905	
==>key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37418	37512	
==>d_template_module( $module_name! )>

This method takes the name of a Perl package in its positi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37418	37512	
==>d_template_module( $module_name! )>

This method takes the name of a Perl package in its positi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15378	15575	
==>$r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18855	19052	
==>$r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $othe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14436	14581	
==>);
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fet <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14436	14581	
==>);
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fet <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2844	2967	
==>ier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text ha <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2844	2967	
==>ier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text ha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11552	11659	
==>y Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15029	15136	
==>y Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2918	3037	
==>get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3123	3242	
==>get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5672	5791	
==>get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4304	4423	
==>get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	789	885	
==>::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	789	885	
==>::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	789	885	
==>::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3810	3905	
==>gs_revision", Pugs.Version.revnum)
    ]

getConfig :: String -> String
getConfig key = Map.find <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4500	4629	
==>if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || ret > <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2105	2201	
==>S::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2105	2201	
==>S::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2105	2201	
==>S::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14397	14491	
==>$h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14397	14491	
==>$h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14397	14491	
==>$h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Arr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4170	4352	
==>[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5491	5673	
==>[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4170	4352	
==>[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5479	5661	
==>[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $nam <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7236	7373	
==>e something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7700	7837	
==>e something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36062	36158	
==>in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to each o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36062	36158	
==>in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to each o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5107	5270	
==>eason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $sta <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7085	7206	
==>LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7085	7206	
==>LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21953	22054	
==>> <'('> <Expression> <')'> <Statement>
}
rule SwitchStatement :words {  # see 12.11
      <'switch'> < <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11085	11179	
==>like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export` <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11186	11280	
==>like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export` <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11143	11237	
==>like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export` <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11244	11338	
==>like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export` <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2518	2609	
==>undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2518	2609	
==>undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2518	2609	
==>undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10132	10289	
==>l $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_i <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10132	10289	
==>l $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7472	7582	
==>func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7472	7582	
==>func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4741	4854	
==>= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4741	4854	
==>= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4741	4854	
==>= &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
} <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4041	4153	
==>= &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	469	624	
==>$block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	469	624	
==>$block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17520	17618	
==>un();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a por <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17520	17618	
==>un();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a por <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	187	292	
==>.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcf <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4380	4485	
==>request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

= <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	187	292	
==>.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcf <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4380	4485	
==>request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10654	10753	
==>th a single invocation.

The $value argument may be a plain string or a reference to an array
of str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10654	10753	
==>th a single invocation.

The $value argument may be a plain string or a reference to an array
of str <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15644	15737	
==>cters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas. <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15644	15737	
==>cters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1991	2093	
==>HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is exp <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1991	2093	
==>HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is exp <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	838	934	
==>ce.

Normally, they will be constructed as a series of events fired in by
something that C<.does( <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	838	934	
==>ce.

Normally, they will be constructed as a series of events fired in by
something that C<.does( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	180	289	
==>gs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	184	293	
==>gs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	178	287	
==>gs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	178	287	
==>gs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7536	7636	
==>y::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest *@ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37917	38013	
==>e relation
with every tuple of each other source relation, then where each member of a
tuple pair <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42466	42562	
==>e relation
with every tuple of each other source relation, then where each member of a
tuple pair <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42116	42212	
==>e relation
with every tuple of each other source relation, then where each member of a
tuple pair <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2960	3074	
==>I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2960	3074	
==>I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2960	3074	
==>I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2630	2738	
==>ject(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any by <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	873	977	
==>= @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2109	2280	
==>_fetch };
            },
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3892	4000	
==>$_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3892	4000	
==>$_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3892	4000	
==>$_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12045	12157	
==>dler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12045	12157	
==>dler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  m <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1345	1440	
==>v(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class La <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1345	1440	
==>v(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class La <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2497	2604	
==>subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2497	2604	
==>subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2497	2604	
==>subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nati <==
4	/Users/nnunley/pugs/util/importgraph.pl	1608	1715	
==>mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    print "Add <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3465	3618	
==>e_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($requ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3465	3618	
==>e_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($requ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	589	701	
==>{ source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an expli <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	751	863	
==>{ source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an expli <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10054	10146	
==>end (normal
    Haskell runcore, <a
    href="http://svn.openfoundry.org/pugs/perl5/PIL-Run/" <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9020	9146	
==>{name});
    my $digest = $stub->digest;

    Prim->new(
        equals => $digest,
        body => $params->{body},
        ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1387	1489	
==>base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1387	1489	
==>base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1387	1489	
==>base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21457	21614	
==>& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21457	21614	
==>& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21457	21614	
==>& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            for <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	154	288	
==>0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return if $got_options;
	$got_options = 1;
	eval {re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11891	12001	
==>rule DecimalDigit {  # see 9.3.1
      <[0..9]>
}
rule ExponentPart {  # see 9.3.1
      <ExponentIndicator> <S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4304	4394	
==>::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4304	4394	
==>::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4304	4394	
==>::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	740	884	
==>|| $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ? <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	740	884	
==>|| $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ? <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5560	5643	
==>$num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(12 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5560	5643	
==>$num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(12 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6265	6363	
==>Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6265	6363	
==>Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6835	6926	
==>ent identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6835	6926	
==>ent identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2117	2214	
==>);
}

=head1 Analysis

=head2 $strap->analyze( $name, \@output_lines )

  my %results = $strap->an <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35371	35467	
==>common; it will only accept inputs that would result in
a cross-product when joined.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39921	40017	
==>common; it will only accept inputs that would result in
a cross-product when joined.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39481	39577	
==>common; it will only accept inputs that would result in
a cross-product when joined.  This method <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2248	2354	
==>sult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2643	2749	
==>sult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2306	2412	
==>sult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2701	2807	
==>sult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5293	5420	
==>dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1296	1401	
==>m is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1296	1401	
==>m is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1376	1481	
==>m is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

s <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3792	3965	
==>x--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @st <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3792	3965	
==>x--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @st <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12505	12606	
==>ll eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12563	12664	
==>ll eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38208	38321	
==>ds = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4216	4315	
==>_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4216	4315	
==>_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4216	4315	
==>_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7846	7945	
==>rary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previous <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7846	7945	
==>rary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previous <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21393	21491	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17814	17912	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9938	10074	
==>>noop;
    my($min,$max)= (@{$o->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max + <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2186	2278	
==>of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2186	2278	
==>of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2186	2278	
==>of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12720	12818	
==>s of the "across" values.  Also, it maybe probably be
in terms of longest non-infinite.  -law]

=ba <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30367	30462	
==>$heading>) may or may not resemble those of the original. 
The anonymous function in the argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34919	35013	
==>$heading>) may or may not resemble those of the original.
The anonymous function in the argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34101	34195	
==>$heading>) may or may not resemble those of the original.
The anonymous function in the argumen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2234	2360	
==>.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2234	2360	
==>.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2234	2360	
==>.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      fo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2503	2647	
==>== 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2503	2647	
==>== 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1645	1745	
==>is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ] <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1645	1745	
==>is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	242	406	
==>=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	242	406	
==>=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($valu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1942	2099	
==>! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1942	2099	
==>! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	465	688	
==>&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Val("\n"),
                ),
            ),
        ),
    ),
}

__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	579	678	
==>hink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	579	678	
==>hink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	579	678	
==>hink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12796	12945	
==>vent = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12796	12945	
==>vent = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12152	12279	
==>ole) . "</a>";
      push @{$link_info->{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = encode_e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8793	8900	
==>e( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # L <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8793	8900	
==>e( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # L <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	212	310	
==>--> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	212	310	
==>--> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1798	1927	
==>dler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3052	3153	
==>d along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3052	3153	
==>d along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36659	36753	
==>?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm going to rewri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1929	2029	
==>-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1929	2029	
==>-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1929	2029	
==>-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36738	36835	
==>ppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	692	792	
==><VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	692	792	
==><VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE> <==
4	/Users/nnunley/pugs/util/package-osx.pl	7687	7784	
==>an/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3324	3462	
==>$path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3324	3462	
==>$path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2831	2929	
==>aintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2831	2929	
==>aintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1140	1250	
==>ir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1140	1250	
==>ir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (St <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9096	9188	
==>em XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 C <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9096	9188	
==>em XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1829	1936	
==>',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2418	2512	
==>a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2418	2512	
==>a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2418	2512	
==>a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11444	11556	
==>y ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3035	3147	
==>y ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4021	4121	
==>tring("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4021	4121	
==>tring("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	794	912	
==>ANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	794	912	
==>ANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	794	912	
==>ANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2265	2369	
==>b/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hello_world.pl
    use v6-pugs <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6000	6090	
==>'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6000	6090	
==>'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2899	2989	
==>'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2673	2890	
==>?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2684	2901	
==>?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14301	14397	
==>") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14301	14397	
==>") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3746	3884	
==>=~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5063	5201	
==>=~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3746	3884	
==>=~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5051	5189	
==>=~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9052	9174	
==>methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9052	9174	
==>methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9052	9174	
==>methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	18	116	
==>Spec;

my $SID;
my %Session;
my $Path = catfile( tmpdir(), "pugs-session" );
mkdir($Path) unless -e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4847	4958	
==>rl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4847	4958	
==>rl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14134	14234	
==>ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the te <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14134	14234	
==>ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the te <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6448	6559	
==>{
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6448	6559	
==>{
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12480	12575	
==>ibute starts out empty, but gains one element for each Node in the Node
hierarchies created from <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12480	12575	
==>ibute starts out empty, but gains one element for each Node in the Node
hierarchies created from <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14079	14177	
==>schmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10306	10404	
==>schmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14079	14177	
==>schmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10306	10404	
==>schmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8096	8251	
==>plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pref <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4456	4611	
==>plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5305	5460	
==>plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pref <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2648	2755	
==>$libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self->{_top}{ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2791	2896	
==>push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2791	2896	
==>push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2791	2896	
==>push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	828	924	
==>l of the methods that are
included via roles will be able to access the Class' private
attributes <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8190	8288	
==>b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Ar <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7320	7418	
==>b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Ar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8190	8288	
==>b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Ar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7320	7418	
==>b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2659	2759	
==>oo many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2659	2759	
==>oo many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2659	2759	
==>oo many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34313	34411	
==>et->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34313	34411	
==>et->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34313	34411	
==>et->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	860	964	
==>ckages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attrib <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	860	964	
==>ckages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attrib <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9487	9583	
==>repeated, and which are printed in a particular order.  The
field names are cases insensitive.

I <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9487	9583	
==>repeated, and which are printed in a particular order.  The
field names are cases insensitive.

I <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	804	913	
==>c, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or warn "opendir failed for $src: $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	149	247	
==>the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to en <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	149	247	
==>the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to en <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	149	247	
==>the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to en <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7378	7489	
==>f, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7378	7489	
==>f, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7378	7489	
==>f, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cla <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14589	14689	
==>ed_alternatives };
    eval { DumpFile( $self->registered_alternatives_file, @alts ) };
    $@ and er <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3234	3357	
==>{
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	671	779	
==>s::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5073	5163	
==>ect-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5073	5163	
==>ect-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3650	3774	
==>atch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3899	4020	
==>atch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3899	4020	
==>atch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1587	1686	
==>lf->tests};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5541	5662	
==>.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5541	5662	
==>.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17074	17183	
==>type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17074	17183	
==>type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	855	976	
==>roup.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	855	976	
==>roup.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6922	7025	
==>ramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'po <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6922	7025	
==>ramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'po <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21940	22189	
==>'$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2171	2270	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2171	2270	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2171	2270	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32725	32825	
==>ock {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Class->send('add_method' => (
    # met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6995	7087	
==>n_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7982	8074	
==>n_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10551	10643	
==>n_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2788	2911	
==>ll the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extrac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3944	4048	
==>hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3944	4048	
==>hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3944	4048	
==>hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6333	6435	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.super <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5463	5565	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.super <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6333	6435	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.super <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5463	5565	
==>{
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.super <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3522	3633	
==>0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3662	3773	
==>0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4735	4831	
==>ation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &proj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8212	8308	
==>ation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &proj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19545	19657	
==>y $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15966	16078	
==>y $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10976	11086	
==>ses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. Th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10976	11086	
==>ses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. Th <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3319	3422	
==>fig{exclude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @inclu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1923	2019	
==>.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1923	2019	
==>.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1923	2019	
==>.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1935	2047	
==>l style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sigle <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1935	2047	
==>l style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sigle <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4005	4102	
==>ipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4005	4102	
==>ipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9348	9437	
==>TTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attrib <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9348	9437	
==>TTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attrib <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5753	5836	
==>l 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5753	5836	
==>l 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5581	5727	
==>ssed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available mo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6045	6191	
==>ssed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available mo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1225	1321	
==>ng: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1225	1321	
==>ng: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler li <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2718	2827	
==>field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2718	2827	
==>field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8602	8700	
==>.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span obj <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8602	8700	
==>.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span obj <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17825	18003	
==>_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earlier <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1920	2017	
==>$body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1920	2017	
==>$body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1920	2017	
==>$body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	75	195	
==>e strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	117	237	
==>e strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	75	195	
==>e strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	117	237	
==>e strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8572	8691	
==>te recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8572	8691	
==>te recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        c <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1197	1296	
==>an alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we e <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1197	1296	
==>an alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	48	146	
==>er, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	48	146	
==>er, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	48	146	
==>er, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installe <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	48	146	
==>er, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	363	458	
==>) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	363	458	
==>) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	130	223	
==>ilter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.f <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	130	223	
==>ilter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	773	868	
==>ndie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case the result is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23890	23979	
==>B rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23890	23979	
==>B rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23890	23979	
==>B rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13960	14055	
==>will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Cod <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10187	10282	
==>will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Cod <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13960	14055	
==>will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Cod <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10187	10282	
==>will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Cod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	653	751	
==>eteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	653	751	
==>eteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5211	5321	
==>able>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2753	2863	
==>able>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1177	1281	
==>grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1165	1269	
==>grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1919	2071	
==>pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1919	2071	
==>pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1919	2071	
==>pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10237	10341	
==>..
    elsif (@$st and @{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) {
      my $br = $st->[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14994	15084	
==>ommon programmatic interface (API), called
the Rosetta Native Interface (RNI), which applic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14994	15084	
==>ommon programmatic interface (API), called
the Rosetta Native Interface (RNI), which applic <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	553	657	
==>,
    );
}

sub type { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2307	2400	
==>nfix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2307	2400	
==>nfix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2307	2400	
==>nfix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	18	123	
==>e/Install/Win32.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7461	7562	
==>";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7461	7562	
==>";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7461	7562	
==>";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->pa <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	195	291	
==>DDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	195	291	
==>DDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22441	22536	
==>when a program package would return a code-key to indicate a
condition, often it will also provi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22441	22536	
==>when a program package would return a code-key to indicate a
condition, often it will also provi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3917	4019	
==>1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3917	4019	
==>1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19128	19225	
==>is of the relational
data model proposed by Edgar. F. Codd, upon which anything in the world can
b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22778	22875	
==>is of the relational data model proposed
by Edgar. F. Codd, upon which anything in the world can b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9568	9747	
==>return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15112	15291	
==>return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9568	9747	
==>return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15106	15285	
==>return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1808	1982	
==>,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3532	3656	
==>ethod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3532	3656	
==>ethod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3532	3656	
==>ethod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32476	32571	
==>sentation of this object.

=item zerolen

Whether this object does is zero-width (like an anchor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6138	6228	
==>oth perform the Test::Builder::Test::WithReason role
and override some methods to provide a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6138	6228	
==>oth perform the Test::Builder::Test::WithReason role
and override some methods to provide a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8335	8425	
==>oth perform the Test::Builder::Test::WithReason role
and override some methods to provide a <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1677	1813	
==>data = (
  [ 0..@commits_till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4219	4320	
==>er<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # / <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4219	4320	
==>er<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # / <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9837	9954	
==>s do not carry the a line number, so leave them out for now
          if($test->{todo}||0 == 1) {
          $lines->{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	102	197	
==>E = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	102	197	
==>E = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	102	197	
==>E = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25206	25362	
==>( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25206	25362	
==>( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25206	25362	
==>( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	11	106	
==>perl

use Runtime::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($filen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16978	17073	
==>s'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16978	17073	
==>s'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16978	17073	
==>s'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	481	584	
==>s
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	481	584	
==>s
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	481	584	
==>s
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_met <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	363	465	
==>fix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1755	1870	
==>able' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1755	1870	
==>able' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1755	1870	
==>able' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	766	851	
==>::CodeCompile->new(p6=>$p6)->compile;
	my $p5 = p6_wrap_code_with_package($cc->as_p5,' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40531	40629	
==>>, etc.

=head2 Throwing Warnings and Errors

There are three methods you can use when a problem ar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16326	16427	
==>finition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16326	16427	
==>finition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22657	22750	
==>wnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22657	22750	
==>wnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13063	13159	
==>are each decoded
separately and the same number of strings are returned.

If called in void conte <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13063	13159	
==>are each decoded
separately and the same number of strings are returned.

If called in void conte <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2788	2879	
==>e.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2788	2879	
==>e.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13964	14072	
==>nt but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $res <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13964	14072	
==>nt but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $res <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10951	11051	
==>>{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11380	11480	
==>>{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1017	1139	
==>ns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1017	1139	
==>ns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7463	7561	
==>an initial pass over the regex to make sure it
is well-formed -- any warnings or errors will be det <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16151	16235	
==>ahead_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re),F0, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8441	8538	
==>contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8441	8538	
==>contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16374	16469	
==>es simultaneously, and that allows any end users to add
support for new languages easily and wit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16374	16469	
==>es simultaneously, and that allows any end users to add
support for new languages easily and wit <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	341	446	
==>};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %ta <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	341	446	
==>};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %ta <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12369	12467	
==>rence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the paramet <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12369	12467	
==>rence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the paramet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5412	5522	
==>e, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5412	5522	
==>e, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5412	5522	
==>e, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4446	4538	
==>!?)<[&]> <ident> [ \( <argument_list> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\( < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2075	2242	
==>%channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2075	2242	
==>%channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # no <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19162	19254	
==>try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19162	19254	
==>try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7604	7695	
==>nning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7662	7753	
==>nning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10158	10245	
==>($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10893	10980	
==>($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	302	442	
==>e"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Yo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	302	442	
==>e"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Yo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	302	442	
==>e"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13386	13523	
==>ss_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13386	13523	
==>ss_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13386	13523	
==>ss_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to & <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19931	20024	
==>r) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_nu <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5004	5269	
==>),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3169	3279	
==>( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3169	3279	
==>( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3169	3279	
==>( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	389	485	
==>e Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	389	485	
==>e Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	883	973	
==>r::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the P <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	883	973	
==>r::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1827	1944	
==>s1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1827	1944	
==>s1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1827	1944	
==>s1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pac <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	531	628	
==>r or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $inst->control_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14260	14356	
==>B codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14260	14356	
==>B codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14260	14356	
==>B codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	102	201	
==>eue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debu <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	102	201	
==>eue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debu <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2515	2608	
==>ay_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2515	2608	
==>ay_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9295	9449	
==>elf.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1415	1555	
==>elf.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
} <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1415	1555	
==>elf.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
} <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1084	1177	
==>t::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1142	1235	
==>t::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4158	4261	
==>ose();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4158	4261	
==>ose();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4115	4216	
==>ose();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4115	4216	
==>ose();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4032	4155	
==>>new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4172	4295	
==>>new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18293	18385	
==>disk, it is expected that the Engines will employ appropriate measures
such as system-managed <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18293	18385	
==>disk, it is expected that the Engines will employ appropriate measures
such as system-managed <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25096	25243	
==>n on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{len} }

  # acc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12208	12313	
==>}
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
  {
      method report <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2604	2697	
==>}

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method report <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2604	2697	
==>}

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method report <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6122	6248	
==>xpect NUM \n" if grep { $_ eq 'NUM' } @expect;
        #print "expect '/' \n" if grep { $_ eq '/' }   @expect;

        # print <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4407	4504	
==>t.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4407	4504	
==>t.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5931	6028	
==>t.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3055	3171	
==>s endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3055	3171	
==>s endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3055	3171	
==>s endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cla <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15030	15144	
==>concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1179	1299	
==>eturn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1179	1299	
==>eturn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1179	1299	
==>eturn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12969	13099	
==>rimitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12969	13099	
==>rimitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12969	13099	
==>rimitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size { <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1854	1984	
==>rimitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2176	2285	
==>00000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past e <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2176	2285	
==>00000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6733	6830	
==>->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6745	6842	
==>->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22035	22277	
==>,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22314	22556	
==>,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1017	1114	
==>one
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods ca <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1017	1114	
==>one
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods ca <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17149	17256	
==>s primitive is safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is prim <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17701	17792	
==>which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
wit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17701	17792	
==>which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
wit <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10163	10249	
==>isOptional, $isNamed, $isLValue, $isWritable, $isLazy, $paramName, $paramContext, $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7851	8012	
==>-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7851	8012	
==>-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7851	8012	
==>-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13838	13933	
==>mbs (applications) pass their env to eval their children
comb: env($.fun) = { env($$) }
comb: en <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4630	4730	
==>($node->orig);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3613	3711	
==>" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3613	3711	
==>" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3613	3711	
==>" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Prel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15348	15472	
==>_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15348	15472	
==>_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15348	15472	
==>_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12957	13053	
==>rser> package, which means
you can access them as though they were methods.  They return two
valu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3825	3921	
==>l( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3825	3921	
==>l( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3905	4001	
==>l( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
de <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28519	28647	
==>::init();

    $self->add_handler('&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1069	1176	
==>ms;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the co <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3033	3136	
==>rs, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3033	3136	
==>rs, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7488	7596	
==>new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" level int <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7235	7338	
==>new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" level int <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19721	19815	
==>sing special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19721	19815	
==>sing special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52489	52583	
==>ubclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22978	23119	
==>mbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42581	42722	
==>mbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8599	8724	
==>36),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8599	8724	
==>36),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    " <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2951	3183	
==>rbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2951	3183	
==>rbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	692	784	
==>::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.)  T <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	692	784	
==>::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.)  T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	157	260	
==>V => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	157	260	
==>V => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	157	260	
==>V => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40515	40610	
==>er->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There are three methods you can us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2611	2698	
==>eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2611	2698	
==>eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2611	2698	
==>eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11369	11510	
==>ef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37648	37756	
==>ized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37648	37756	
==>ized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37648	37756	
==>ized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::V <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21551	21667	
==>w< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17972	18088	
==>w< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1567	1660	
==>a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1567	1660	
==>a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17275	17366	
==>B infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17275	17366	
==>B infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17275	17366	
==>B infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1714	1819	
==>method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1714	1819	
==>method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1602	1692	
==>$full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERB <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1602	1692	
==>$full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERB <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	224	340	
==>_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	224	340	
==>_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1416	1512	
==>ing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher A <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1416	1512	
==>ing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher A <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8562	8758	
==>ist.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8562	8758	
==>ist.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18533	18687	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18812	18966	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4533	4671	
==>arn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5192	5330	
==>arn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4533	4671	
==>arn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5192	5330	
==>arn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11054	11178	
==>xp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2154	2259	
==>:= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2154	2259	
==>:= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2154	2259	
==>:= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8123	8328	
==>_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12113	12258	
==>_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12113	12258	
==>_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5338	5439	
==>arn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => $() ,} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7580	7688	
==>..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7580	7688	
==>..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	600	696	
==>plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	646	740	
==>plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	655	862	
==>5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	655	862	
==>5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	655	862	
==>5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1276	1410	
==>ule(
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3938	4084	
==>s( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( meta => $_, installation => $obj) }
                map { JI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5156	5255	
==>::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5156	5255	
==>::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5156	5255	
==>::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29952	30049	
==>thod to read values from it by key.  Each template hash
key corresponds to the Message Key attribu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29952	30049	
==>thod to read values from it by key.  Each template hash
key corresponds to the Message Key attribu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4216	4311	
==>.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4216	4311	
==>.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14675	14766	
==>r::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14675	14766	
==>r::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14675	14766	
==>r::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	378	477	
==>th a very early version of Pugs (6.0.10)
# and with very little knowledge of Perl 6. These five exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2622	2718	
==>p_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2622	2718	
==>p_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2622	2718	
==>p_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2no <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5539	5640	
==>([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5539	5640	
==>([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5496	5593	
==>turn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5496	5593	
==>turn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6346	6442	
==>ent<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6346	6442	
==>ent<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22260	22349	
==>ead2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22260	22349	
==>ead2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34504	34607	
==>et = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34504	34607	
==>et = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34504	34607	
==>et = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $len <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38651	38748	
==>at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2037	2148	
==>);
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2037	2148	
==>);
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2037	2148	
==>);
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13302	13412	
==>d $my_bindir;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2993	3113	
==>ng(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2993	3113	
==>ng(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2993	3113	
==>ng(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Mat <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	88	197	
==>pfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettung ist möglich:
$a < $b <= $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2886	2986	
==>e' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2886	2986	
==>e' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2886	2986	
==>e' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->super <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2033	2175	
==>-> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort k <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2033	2175	
==>-> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort k <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	572	667	
==>urns Tree { 
    return $!parent;
}

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	572	667	
==>urns Tree { 
    return $!parent;
}

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7349	7501	
==>le );
    my $mask    = -d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38631	38746	
==>::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38631	38746	
==>::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38631	38746	
==>::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2908	3014	
==>a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2908	3014	
==>a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2908	3014	
==>a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH() <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	400	501	
==>ch) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = match($r,$str);
}
print $m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1404	1515	
==>f ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result = eval <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4293	4390	
==>on> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Thi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4293	4390	
==>on> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6490	6587	
==>on> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4467	4583	
==>turn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4467	4583	
==>turn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4467	4583	
==>turn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	67	173	
==>s readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Paramet <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5062	5230	
==>ted;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10585	10719	
==>infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1680	1773	
==>e(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2] <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1680	1773	
==>e(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2] <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4738	4874	
==>s test number seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Gener <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2797	2908	
==>ing("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2797	2908	
==>ing("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2797	2908	
==>ing("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4026	4143	
==>Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4166	4283	
==>Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1805	1901	
==>the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand ho <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1805	1901	
==>the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand ho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2947	3057	
==>otation->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else {
			my $type = $self->guess_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1035	1128	
==>MODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1035	1128	
==>MODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1035	1128	
==>MODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOU <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16004	16122	
==>tems from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has St <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16004	16122	
==>tems from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has St <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24883	24995	
==>(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21304	21416	
==>(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1406	1507	
==>Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1406	1507	
==>Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11021	11115	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11079	11173	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	466	581	
==>oiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8733	8847	
==>oiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8733	8847	
==>oiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8733	8847	
==>oiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1912	2000	
==>Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1912	2000	
==>Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1912	2000	
==>Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4238	4351	
==>of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @f <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5135	5248	
==>of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4238	4351	
==>of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5135	5248	
==>of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2518	2659	
==>$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2518	2659	
==>$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2518	2659	
==>$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5662	5794	
==>$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5662	5794	
==>$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10846	10956	
==>= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10846	10956	
==>= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18322	18447	
==>e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21581	21706	
==>e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41587	41712	
==>e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44488	44613	
==>e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$metho <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1298	1426	
==>::Event $event) {
        grep { .match($event) }, gather {
            take $.subscriptions.members;

            # FIXME this i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11681	11780	
==>return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11681	11780	
==>return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11681	11780	
==>return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	998	1099	
==>atever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ide <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	998	1099	
==>atever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ide <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2928	3024	
==>br returns Str { @months_abbr[./month_0] }

# yes, these functions are not "correct" :)
method do <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11959	12055	
==>her or both of the traits C<is descending>
and C<is insensitive> to reverse the order of sort, or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16758	16941	
==>or => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16758	16941	
==>or => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16758	16941	
==>or => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15208	15310	
==>W0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewrite(X,X,RW0,RW0).
re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8019	8136	
==>and_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switches = $self <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6797	6898	
==>ber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7169	7270	
==>ber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7468	7569	
==>ber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	457	561	
==>ore the node in a variable outside of this function
      // and refer to it via the closure, then things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	457	561	
==>ore the node in a variable outside of this function
      // and refer to it via the closure, then things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	457	561	
==>ore the node in a variable outside of this function
      // and refer to it via the closure, then things <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2727	2845	
==>{ 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7821	7939	
==>{ 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2727	2845	
==>{ 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7821	7939	
==>{ 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1917	2026	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1917	2026	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1917	2026	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	274	359	
==>y (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::Run::OnPer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3572	3675	
==>:slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3572	3675	
==>:slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3572	3675	
==>:slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'A <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5961	6127	
==>try ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6425	6591	
==>try ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	732	831	
==>azy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TOD <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	732	831	
==>azy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TOD <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13765	13887	
==>ized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13765	13887	
==>ized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languag <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2633	2736	
==>vial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2633	2736	
==>vial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29206	29327	
==>t;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29206	29327	
==>t;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29206	29327	
==>t;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9651	9756	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, $how);
  });

  $self <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10153	10259	
==>dex = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10153	10259	
==>dex = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3213	3305	
==>tem C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

Th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3213	3305	
==>tem C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

Th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4294	4435	
==>precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => 'left',
        p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1027	1118	
==>n in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1027	1118	
==>n in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1027	1118	
==>n in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4894	4994	
==>rns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4021	4121	
==>rns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4894	4994	
==>rns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4021	4121	
==>rns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<= <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5947	6059	
==>et_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7515	7609	
==>p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7515	7609	
==>p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7515	7609	
==>p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15613	15762	
==>this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15613	15762	
==>this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15613	15762	
==>this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List-> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8672	8762	
==>odifier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charset_item <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40656	40755	
==>SE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40656	40755	
==>SE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Loca <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20618	20715	
==>ecific to the program
in the order you chose so to pick a supported language closest to your
prefe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20618	20715	
==>ecific to the program
in the order you chose so to pick a supported language closest to your
prefe <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1612	1726	
==>b header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1612	1726	
==>b header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9021	9119	
==>fied under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipheri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9021	9119	
==>fied under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipheri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	666	795	
==>ASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	666	795	
==>ASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	873	980	
==>losed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	873	980	
==>losed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2926	3053	
==>? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2926	3053	
==>? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide de <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1505	1616	
==>r die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1505	1616	
==>r die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6451	6622	
==>> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6451	6622	
==>> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6451	6622	
==>> sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @ar <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2887	2995	
==>->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $pretty->a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3004	3145	
==>return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3188	3329	
==>return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  - <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5358	5485	
==>(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5358	5485	
==>(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17514	17611	
==>ed into one class, I<quantifier>.  You pass it the min and max,
and the object's C<type> is determ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14553	14637	
==>:Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14553	14637	
==>:Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14553	14637	
==>:Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main:: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10908	11007	
==>, inputrc, the terminfo description, linuxrc, and welcome.p6 to the initrd",
    help   => "Note: Yo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20654	20749	
==>ou chose so to pick a supported language closest to your
preference.  Presumably the messages in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20654	20749	
==>ou chose so to pick a supported language closest to your
preference.  Presumably the messages in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5502	5605	
==>malize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5502	5605	
==>malize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1005	1108	
==>ntial things



sub ruleop::alternation {

    # alternation is first match (not longest).  though we ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	966	1066	
==>ntial things

sub ruleop::alternation {
    # alternation is first match (not longest).  though we ne <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2368	2470	
==>ort(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2368	2470	
==>ort(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2239	2337	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): arg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2239	2337	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	828	968	
==>} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	795	928	
==>} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32941	33039	
==>nslator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32941	33039	
==>nslator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4842	4952	
==>%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15313	15423	
==>, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos got <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4842	4952	
==>%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4842	4952	
==>%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3703	3873	
==>fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3703	3873	
==>fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{o <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	548	654	
==>ters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$m <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	548	654	
==>ters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1746	1856	
==>n "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1746	1856	
==>n "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1746	1856	
==>n "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run ru <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28743	28831	
==>alnum, anchor,
anyof, anyof_char, anyof_class, anyof_range, assertion, branch, close,
clu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9149	9274	
==>{ Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9149	9274	
==>{ Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9149	9274	
==>{ Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') ) <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2174	2272	
==>val { require Compress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compress::Z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2515	2645	
==>me eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2515	2645	
==>me eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2515	2645	
==>me eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a ca <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5844	5954	
==>my $accum = shift;

	push @$accum, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{new} = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11763	11922	
==>->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11763	11922	
==>->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11763	11922	
==>->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10558	10682	
==>%subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10558	10682	
==>%subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = " <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	300	405	
==>n",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('& <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5855	5948	
==>ope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5855	5948	
==>ope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2754	2847	
==>ope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2417	2549	
==>ring_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2664	2796	
==>ring_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	41	162	
==>0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        star <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	41	162	
==>0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11506	11627	
==>omain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11506	11627	
==>omain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21949	22055	
==>ush @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18370	18476	
==>ush @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5464	5574	
==>t;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpd <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5464	5574	
==>t;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpd <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3693	3797	
==>d($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3693	3797	
==>d($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18203	18331	
==>e;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _whe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3215	3310	
==>dules that use Test::Builder.  It
does this by you setting the expected output and diagnostic ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3215	3310	
==>dules that use Test::Builder.  It
does this by you setting the expected output and diagnostic ou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3295	3390	
==>dules that use Test::Builder.  It
does this by you setting the expected output and diagnostic ou <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33233	33359	
==>' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6706	6810	
==>($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct form <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6706	6810	
==>($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct form <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6706	6810	
==>($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct form <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2989	3151	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11685	11847	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3182	3344	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11964	12126	
==>er( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::stat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5445	5682	
==>method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7207	7444	
==>method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current" <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	843	964	
==>nclude the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have fai <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	843	964	
==>nclude the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have fai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1126	1250	
==>assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	839	962	
==>assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	983	1106	
==>assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        na <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11487	11587	
==>y"

=item KeyExtractor

A closure with arity of 1, which returns the "key" by which to sort. If
the c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17638	17773	
==>'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17638	17773	
==>'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8676	8782	
==>ns {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8676	8782	
==>ns {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7460	7612	
==>p = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7460	7612	
==>p = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7460	7612	
==>p = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	841	943	
==>nown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::strin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	332	498	
==>l,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13720	13830	
==>($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13720	13830	
==>($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13720	13830	
==>($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	860	986	
==>y"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	860	986	
==>y"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	860	986	
==>y"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3910	4015	
==>_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Internals: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	179	283	
==>ETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	179	283	
==>ETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	179	283	
==>ETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5401	5498	
==>Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	843	958	
==>l the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	843	958	
==>l the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	843	958	
==>l the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1275	1381	
==>stance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1275	1381	
==>stance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1275	1381	
==>stance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9572	9722	
==>arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9572	9722	
==>arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9572	9722	
==>arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should ret <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	498	611	
==>S = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# ind <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10158	10257	
==>bject, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

R <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10158	10257	
==>bject, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

R <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35531	35623	
==>oss_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40081	40173	
==>oss_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3514	3620	
==>piler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_chec <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3514	3620	
==>piler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_chec <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3409	3507	
==>e'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3467	3565	
==>e'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	538	724	
==>catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	538	724	
==>catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	538	724	
==>catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3137	3278	
==>ym is reduced to the Thunk mapped from '&func' in
                   # the env, which is then given to the App
    ),

Inherits Unit.

=item V <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	743	841	
==>R

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1868	1966	
==>R

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	743	841	
==>R

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1868	1966	
==>R

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1625	1765	
==>e named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_capture => {
                id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8351	8457	
==>hift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8351	8457	
==>hift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8351	8457	
==>hift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8326	8445	
==>};
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11814	11901	
==>MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11814	11901	
==>MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11814	11901	
==>MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	455	584	
==>a more robust solution would be far more difficult.
# One basically has to reverse engineer an implicit abstraction
# "barrier" fo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3754	3873	
==>'symbol'))
        || confess "You must store a symbol type in a param list"
            foreach @values;
    $class->SU <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1294	1425	
==>= {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Param <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	302	405	
==>=> $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7023	7116	
==>> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5873	6021	
==>r { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5873	6021	
==>r { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5873	6021	
==>r { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7059	7173	
==>> (*$head is copy, *@rest is copy) {
  while @rest {
    $head = $head[shift @rest];
  }
  $head;
}


# signature f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5376	5565	
==>lue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8853	9042	
==>lue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7873	8062	
==>lue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6111	6225	
==>statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLVal <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3331	3452	
==>, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3331	3452	
==>, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3331	3452	
==>, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } el <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9525	9631	
==>\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode is on, PERL5LIB is <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7178	7510	
==>tic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7235	7567	
==>tic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8531	8640	
==>rom the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http: <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8531	8640	
==>rom the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7187	7336	
==>local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = ruleop:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2203	2307	
==>t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2203	2307	
==>t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2203	2307	
==>t be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1534	1650	
==>ion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1534	1650	
==>ion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1534	1650	
==>ion perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2701	2804	
==>rtable and can be
used to set perl command line options used for running the test
script(s). The default <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38107	38348	
==>symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3342	3444	
==>ee_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3342	3444	
==>ee_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3342	3444	
==>ee_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @arg <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6487	6585	
==>hod *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6487	6585	
==>hod *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *inf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15742	15837	
==>if_unmodified_since

These header fields are used to make a request conditional.  If the request <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15742	15837	
==>if_unmodified_since

These header fields are used to make a request conditional.  If the request <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15713	15820	
==>x = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10569	10676	
==>x = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2851	2991	
==>le( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_ru <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	755	857	
==>P::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	755	857	
==>P::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	115	216	
==>t;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warnings;

use Carp 'c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	264	504	
==>nt( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	265	505	
==>nt( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	260	389	
==>er => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only vali <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	260	389	
==>er => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only vali <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3177	3302	
==>erl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience w <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1477	1602	
==>epends( 
            JIB::Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3177	3302	
==>erl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3177	3302	
==>erl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience w <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	169	286	
==>e" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	169	286	
==>e" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3872	3974	
==>a 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=it <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3872	3974	
==>a 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5564	5664	
==>};
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5564	5664	
==>};
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5564	5664	
==>};
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	417	550	
==>) . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15054	15164	
==>::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15054	15164	
==>::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15054	15164	
==>::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12548	12662	
==>ile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12548	12662	
==>ile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22399	22494	
==>ckages could be installed in.

Generally, when a program package would return a code-key to indi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22399	22494	
==>ckages could be installed in.

Generally, when a program package would return a code-key to indi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8807	8916	
==>ule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8807	8916	
==>ule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20484	20580	
==>le of this is that randoms strings are usally left alone by
compilers. After all the compilers ha <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20484	20580	
==>le of this is that randoms strings are usally left alone by
compilers. After all the compilers ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23237	23436	
==>ar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23237	23436	
==>ar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23237	23436	
==>ar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4591	4693	
==>' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4591	4693	
==>' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4591	4693	
==>' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	9	104	
==>IB::Package::Installed;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1486	1605	
==>rl5;
print "Benchmark:\n";
Benchmark::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4114	4228	
==>fined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4114	4228	
==>fined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4114	4228	
==>fined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16216	16318	
==>.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pack <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16216	16318	
==>.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pack <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	28	128	
==>x;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warni <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	28	128	
==>x;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1477	1598	
==>my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1477	1598	
==>my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1477	1598	
==>my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arra <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	447	543	
==>nc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed to cc_lib_paths due to confusi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3904	4008	
==>:Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3904	4008	
==>:Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15949	16040	
==>tributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node obj <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15949	16040	
==>tributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	879	1003	
==>FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	879	1003	
==>FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	879	1003	
==>FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39032	39127	
==>, your handler will
receive an additional argument which tells it if it's inside a character
cla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15629	15744	
==>$$) }
let: generic_in($.in) = { generic($.is) }
let: generic($$) = { generic($.in) }

# the env is augmented to cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4617	4721	
==>me]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4617	4721	
==>me]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4617	4721	
==>me]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	725	1135	
==>ne::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	725	1135	
==>ne::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6134	6246	
==>nels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6134	6246	
==>nels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1001	1108	
==>S.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1001	1108	
==>S.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1001	1108	
==>S.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classnam <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22158	22260	
==>hods on those objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22158	22260	
==>hods on those objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9431	9532	
==>hods on those objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9431	9532	
==>hods on those objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	234	343	
==>::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws>?
        { return $() } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10722	10820	
==>r a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
gi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10722	10820	
==>r a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
gi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4375	4470	
==>s runs all the given I<@test_files> and divines whether they passed
or failed based on their out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23657	23877	
==>lar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23657	23877	
==>lar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23657	23877	
==>lar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	148	271	
==>ame          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Message: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29822	29917	
==>w attributes having the same names as old attributes
that were wrapped, and it supports having o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34374	34469	
==>w attributes having the same names as old attributes
that were wrapped, and it supports having o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33538	33633	
==>w attributes having the same names as old attributes
that were wrapped, and it supports having o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2915	3035	
==>= thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2915	3035	
==>= thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2915	3035	
==>= thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pai <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1128	1225	
==>$self->generate_inline_c($c_code);
}

my $i;
sub generate_inline_c {
	my $self = shift;
	my $c_cod <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4550	4648	
==>.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unles <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6297	6395	
==>e in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

Th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6297	6395	
==>e in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

Th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4550	4648	
==>.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unles <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10418	10634	
==>Criterion  @by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = & <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	432	531	
==>')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	432	531	
==>')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	432	531	
==>')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8374	8508	
==>y {
      background-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	565	658	
==>ass._parse_ini_file($fh);

	return $class;
}

method do_warn(Class $class: @args) { warn(@args <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10418	10529	
==>an.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10418	10529	
==>an.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3663	3753	
==>E ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Editio <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3663	3753	
==>E ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Editio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1901	2001	
==>>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14039	14135	
==>:WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14039	14135	
==>:WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14039	14135	
==>:WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::AR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12296	12427	
==>n};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	830	937	
==>problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	830	937	
==>problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	830	937	
==>problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(do <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1763	1889	
==>= sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1956	2082	
==>= sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3862	3957	
==>a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3862	3957	
==>a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2110	2291	
==>$description,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	577	729	
==>/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	577	729	
==>/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	577	729	
==>/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14612	14743	
==>iSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14612	14743	
==>iSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14612	14743	
==>iSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {}, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13052	13153	
==>NameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpression>
    | <Prope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5685	5792	
==>oy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5685	5792	
==>oy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5685	5792	
==>oy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JS <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9358	9463	
==>ourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequence {  # see 7.8.4
      <Chara <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	237	338	
==>to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	237	338	
==>to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	237	338	
==>to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12535	12683	
==>->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12535	12683	
==>->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12535	12683	
==>->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1320	1417	
==>ft;
    return $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'sign <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3744	3867	
==>lice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   state <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3744	3867	
==>lice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   state <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3744	3867	
==>lice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   state <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3901	4004	
==>ion) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $mat <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6728	6830	
==>ode;
    $code;
}
BEGIN{ eval(gen_code); die $@ if $@; }

package PIL::PIL1CPerl5::Util;
sub rebless_wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3997	4092	
==>rameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3997	4092	
==>rameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3997	4092	
==>rameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1874	1975	
==>""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filenam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1874	1975	
==>""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filenam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1874	1975	
==>""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filenam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18392	18595	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18689	18892	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18671	18874	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18968	19171	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	57	155	
==>e warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::To <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	57	155	
==>e warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::To <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	555	650	
==>he standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Con <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	555	650	
==>he standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1574	1690	
==>for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_e <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1564	1680	
==>for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1574	1690	
==>for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1574	1690	
==>for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_e <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5365	5475	
==>?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7780	7881	
==>ad1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7780	7881	
==>ad1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7780	7881	
==>ad1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (l <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9317	9460	
==>&$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10308	10451	
==>&$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17758	17862	
==>ence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 20 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17758	17862	
==>ence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 20 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19260	19365	
==>tarts the main runloop, which is only exited if the connection to the server
dies. To read data from the s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18285	18390	
==>tarts the main runloop, which is only exited if the connection to the server
dies. To read data from the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19260	19365	
==>tarts the main runloop, which is only exited if the connection to the server
dies. To read data from the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18285	18390	
==>tarts the main runloop, which is only exited if the connection to the server
dies. To read data from the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1563	1673	
==>ulti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1563	1673	
==>ulti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1563	1673	
==>ulti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5381	5476	
==>Value::Undefined $v) { JSX::false }
multi sub ToBoolean(JSX::Value::Null $v)      { JSX::false } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2063	2187	
==>ns ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { r <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2063	2187	
==>ns ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7331	7420	
==>ts, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->cond <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1156	1245	
==>ts, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->cond <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19862	20006	
==>) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $oth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19862	20006	
==>) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $oth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19862	20006	
==>) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $oth <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23934	24018	
==>_if_undef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12144	12242	
==>_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16724	16822	
==>_nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12144	12242	
==>_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16724	16822	
==>_nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8838	8969	
==>@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20207	20330	
==>}        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20207	20330	
==>}        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20207	20330	
==>}        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24089	24230	
==>se { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

  for (map "FLAG_$_", spl <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	513	614	
==>ackage_prefix  package_authority   package_name  package_version
            list_dependencies  depend <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2011	2172	
==>$self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::T <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2011	2172	
==>$self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::T <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	770	887	
==>enchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = ti <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	770	887	
==>enchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = ti <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	349	451	
==>=> $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	349	451	
==>=> $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2696	2858	
==>okie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub re <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2696	2858	
==>okie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub re <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4382	4492	
==>is is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_cod <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4382	4492	
==>is is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_cod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9584	9695	
==>n     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9584	9695	
==>n     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    chann <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2874	2973	
==>her worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initializatio <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2874	2973	
==>her worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initializatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2760	2908	
==>my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2760	2908	
==>my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2760	2908	
==>my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	307	419	
==>=> $class,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22184	22286	
==>o_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22184	22286	
==>o_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22184	22286	
==>o_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14144	14248	
==>mplain->("ref") },
      glob  => sub { $as_array_complain->("glob") },
      lvalue => sub { p6_as_array <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	774	949	
==>Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3491	3611	
==>thod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3491	3611	
==>thod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3491	3611	
==>thod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11049	11154	
==>by Bar');   

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 12, '... $iBar is the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12612	12713	
==>rint $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=q <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12612	12713	
==>rint $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=q <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12612	12713	
==>rint $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=q <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8110	8219	
==>e::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), grep /^-l/, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21133	21230	
==>,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21133	21230	
==>,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21133	21230	
==>,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI S <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	223	341	
==>de) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	223	341	
==>de) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1399	1499	
==>od size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infini <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1399	1499	
==>od size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infini <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1040	1166	
==>statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immed <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1245	1371	
==>statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immed <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	534	650	
==>unc = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	534	650	
==>unc = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14871	15045	
==>ss_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) returns Relation::Exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6200	6304	
==>(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->crea <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6200	6304	
==>(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->crea <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6200	6304	
==>(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->crea <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4894	5089	
==>params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6656	6851	
==>params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1957	2121	
==>13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            % <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1957	2121	
==>13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            % <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1317	1417	
==>e Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for contai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1259	1357	
==>e Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for contai <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2432	2526	
==>tes and throwing the return value away.
Encryptions after this point will be using stronger por <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2432	2526	
==>tes and throwing the return value away.
Encryptions after this point will be using stronger por <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8530	8637	
==>urrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all inte <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8530	8637	
==>urrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all inte <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39686	39777	
==>renDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistrib <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39686	39777	
==>renDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1766	1860	
==>_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1766	1860	
==>_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1766	1860	
==>_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9972	10147	
==>ar.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9972	10147	
==>ar.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %! <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2590	2699	
==>quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2590	2699	
==>quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15800	15932	
==>Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15800	15932	
==>Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15800	15932	
==>Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn " <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3835	3960	
==>'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_class     = re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1646	1745	
==>ive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1646	1745	
==>ive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1646	1745	
==>ive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5079	5274	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5079	5274	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5079	5274	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12676	12845	
==>1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12670	12839	
==>1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        retur <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15556	15646	
==>%char_to_entity and the %entity_to_char hashes,
which contain the mapping from all characte <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15556	15646	
==>%char_to_entity and the %entity_to_char hashes,
which contain the mapping from all characte <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19174	19269	
==>rogram's users' own data; only
someone already involved in making the program would be editing t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19174	19269	
==>rogram's users' own data; only
someone already involved in making the program would be editing t <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3836	3930	
==>.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any ot <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3836	3930	
==>.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any ot <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	72	327	
==>le, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	72	327	
==>le, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	72	327	
==>le, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	72	327	
==>le, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1690	1823	
==>x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Test::test_e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21436	21531	
==>nct from the other
attributes, though several attributes may store values of the same class;
eve <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25988	26083	
==>nct from the other
attributes, though several attributes may store values of the same class;
eve <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24621	24716	
==>nct from the other
attributes, though several attributes may store values of the same class;
eve <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12568	12734	
==>=> \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13102	13268	
==>=> \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12562	12728	
==>=> \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13096	13262	
==>=> \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4641	4771	
==>me'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7364	7494	
==>me'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' = <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	605	719	
==>[^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { requi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	572	686	
==>[^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { requi <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	426	551	
==>shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1800	1892	
==>ddhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1800	1892	
==>ddhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1800	1892	
==>ddhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[e <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4772	4875	
==>o copy files to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the / of the CD <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	234	332	
==>- sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	234	332	
==>- sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1561	1655	
==>reate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods rev <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1561	1655	
==>reate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods rev <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	82	191	
==>concept.  A feasibility and performance reality check.
# Hopefully it will develop into a p6 rules engine, and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9231	9338	
==>$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sign <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9231	9338	
==>$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sign <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9231	9338	
==>$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->sign <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6438	6537	
==>ove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7174	7273	
==>ove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6438	6537	
==>ove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7174	7273	
==>ove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7223	7333	
==>s MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7223	7333	
==>s MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7223	7333	
==>s MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # X <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28091	28194	
==>)) 
    ($self: get_attr (symbol new @:MRO)))

=cut

$::Class->send('add_method' => (
    # method label <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9269	9421	
==>map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1404	1524	
==>te($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1404	1524	
==>te($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1404	1524	
==>te($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	167	270	
==>->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	167	270	
==>->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	167	270	
==>->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4904	5001	
==>he right cleared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is($p3d-> <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9956	10053	
==>ugs</a> smoke reports. These smokes are
    automatically generated and show how much a given back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	386	482	
==>eturn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	386	482	
==>eturn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	386	482	
==>eturn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VLi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	942	1045	
==>fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - f <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	942	1045	
==>fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16189	16283	
==>ype (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" att <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16189	16283	
==>ype (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" att <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	6	100	
==>ry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	6	100	
==>ry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	6	100	
==>ry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	173	300	
==>ter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3278	3371	
==>YNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3278	3371	
==>YNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5475	5568	
==>YNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represe <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7915	8023	
==>$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1)}eg;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5562	5665	
==>= $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5562	5665	
==>= $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5562	5665	
==>= $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map { <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1863	2003	
==>$_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2400	2540	
==>$_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5814	5914	
==>talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5814	5914	
==>talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37142	37235	
==>of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37142	37235	
==>of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3336	3428	
==>ESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@ooo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3336	3428	
==>ESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@ooo <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2415	2513	
==>>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1870	1968	
==>>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2415	2513	
==>>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1870	1968	
==>>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11487	11611	
==>join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1659	1756	
==>name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1659	1756	
==>name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1659	1756	
==>name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}) <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1031	1137	
==>..
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAU <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1031	1137	
==>..
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAU <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10337	10441	
==>ee

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1> <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10337	10441	
==>ee

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23546	23656	
==>alue"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4267	4370	
==>("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4267	4370	
==>("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4267	4370	
==>("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8584	8685	
==>JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8584	8685	
==>JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8584	8685	
==>JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13784	13874	
==>s_int(I) --> octdigit(D0), octdigits(D), { number_chars(I, [42,111,D0|D]) }.% [42,111]="0o" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13005	13114	
==>lt =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13005	13114	
==>lt =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pm <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	937	1030	
==>sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.en <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	937	1030	
==>sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16381	16490	
==>return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16381	16490	
==>return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16381	16490	
==>return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retur <==
4	/Users/nnunley/pugs/util/drift.pl	700	809	
==>wh);

system(
    'ghc',
    '--make',
    '-o' => $setup,
    "-i$Bin/../src/DrIFT",
    "-i$Bin/../../DrIFT/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3543	3655	
==>version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($s <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2586	2695	
==>version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7337	7431	
==>begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7337	7431	
==>begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1829	1941	
==>ame . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1829	1941	
==>ame . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1829	1941	
==>ame . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf " <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5927	6028	
==>v)   { ?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToNumber <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3050	3216	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3050	3216	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3050	3216	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2469	2573	
==>ines.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5070	5242	
==>ting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5070	5242	
==>ting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5070	5242	
==>ting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1351	1451	
==>n for a while.  By
  sacrificing ease of installation and portability, we may have
  bought fairly si <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5918	6021	
==>ti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5048	5151	
==>ti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5918	6021	
==>ti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5048	5151	
==>ti sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21506	21619	
==>e.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20387	20500	
==>e.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21506	21619	
==>e.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20387	20500	
==>e.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	10	113	
==>ll none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	10	113	
==>ll none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	10	113	
==>ll none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline( <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	435	523	
==>lude "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_integer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6053	6158	
==>es.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6053	6158	
==>es.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6053	6158	
==>es.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8664	8759	
==>:TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16056	16166	
==>Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16056	16166	
==>Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16056	16166	
==>Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7	108	
==>age Pugs::Grammar::Precedence;

# Documentation in the __END__
use 5.006;
use strict;
use warning <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6643	6803	
==>ew ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Refere <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6643	6803	
==>ew ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Refere <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16613	16716	
==>} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$p <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15661	15760	
==>} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5608	5704	
==>$jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5608	5704	
==>$jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5608	5704	
==>$jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23965	24058	
==>setta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23965	24058	
==>setta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I< <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11130	11222	
==>`get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns e <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11130	11222	
==>`get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22092	22186	
==>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the message o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20973	21067	
==>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the message o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22092	22186	
==>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the message o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20973	21067	
==>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the message o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2929	3043	
==>arn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3778	3892	
==>arn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], ' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5730	5826	
==>context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5730	5826	
==>context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18790	18889	
==>oping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17833	17932	
==>oping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18790	18889	
==>oping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17833	17932	
==>oping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	356	555	
==>),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10986	11108	
==>ey );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10986	11108	
==>ey );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10986	11108	
==>ey );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16371	16487	
==>G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12792	12908	
==>G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14559	14656	
==>his module will be the code support for those needs. The
following is a list of future features pl <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14617	14714	
==>his module will be the code support for those needs. The
following is a list of future features pl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	749	901	
==>y[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	749	901	
==>y[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1309	1408	
==>$s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	788	909	
==>($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $statu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	788	909	
==>($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $statu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7313	7407	
==>event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7313	7407	
==>event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This even <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1926	2050	
==>ab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1926	2050	
==>ab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3479	3586	
==>ader_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3479	3586	
==>ader_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5114	5241	
==>dir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing index file
        my $in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4649	4753	
==>tr->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4649	4753	
==>tr->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4649	4753	
==>tr->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1981	2096	
==>Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aac <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1981	2096	
==>Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aac <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	120	261	
==>::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	120	261	
==>::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5287	5408	
==>stalled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we alread <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5751	5872	
==>stalled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we alread <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3943	4081	
==>$chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .g <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3943	4081	
==>$chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .g <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4471	4603	
==>$chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .g <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4471	4603	
==>$chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .g <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	480	587	
==>, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Mi <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	480	587	
==>, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Mi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	98	194	
==>king)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	98	194	
==>king)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6903	7031	
==>end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6903	7031	
==>end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6903	7031	
==>end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19151	19276	
==>ns;            /* number of parentheses */

=head2 The match result:

  I32 sublen;             /* Length of string pointed by <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	594	706	
==>rce => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	756	868	
==>rce => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit g <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20757	20848	
==>C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<top <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20757	20848	
==>C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<top <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3990	4138	
==>:next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3990	4138	
==>:next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3990	4138	
==>:next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1419	1520	
==>Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1419	1520	
==>Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1419	1520	
==>Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1492	1588	
==>on too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1492	1588	
==>on too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1492	1588	
==>on too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2205	2333	
==>s Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Inv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5386	5500	
==>ift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5386	5500	
==>ift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5386	5500	
==>ift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $js <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4333	4435	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1459	1561	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18780	18879	
==>nal
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18780	18879	
==>nal
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3332	3478	
==>-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6065	6251	
==>->compile( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5256	5358	
==>I SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5256	5358	
==>I SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5256	5358	
==>I SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB S <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9758	9916	
==>NTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9758	9916	
==>NTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rose <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17603	17705	
==>an()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17603	17705	
==>an()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1258	1387	
==>given abs($x) - floor( abs($x) ) {
        when ($_ <= .5) && ($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3972	4063	
==>nfix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3972	4063	
==>nfix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	845	963	
==>sitories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-sty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	761	876	
==>"PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	761	876	
==>"PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	761	876	
==>"PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38355	38473	
==>}->object($type => 1, @$_);
    }

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Her <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	718	837	
==>ues) returns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	873	982	
==>: $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	873	982	
==>: $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	873	982	
==>: $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs does <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4667	4783	
==>me uneeded cases, but will
        # definately be helpful for things such as == and <= that fail
        if ($got eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14248	14351	
==>undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14248	14351	
==>undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14248	14351	
==>undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5298	5424	
==>$code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6566	6692	
==>$code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5298	5424	
==>$code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6554	6680	
==>$code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3128	3220	
==>tions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3128	3220	
==>tions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3128	3220	
==>tions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8427	8532	
==>it_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ruleop::cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18372	18464	
==>SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18372	18464	
==>SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18372	18464	
==>SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2029	2168	
==>{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2029	2168	
==>{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	802	917	
==>n the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	802	917	
==>n the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	367	464	
==>nput };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surpr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	367	464	
==>nput };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surpr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19703	19850	
==>S++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16124	16271	
==>S++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3517	3633	
==>vent {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3517	3633	
==>vent {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8306	8426	
==>reach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8306	8426	
==>reach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8306	8426	
==>reach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1059	1164	
==>tive eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the c <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27525	27625	
==>ta::Dumper; print Dumper($s);
	my $ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16419	16516	
==>xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16419	16516	
==>xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16419	16516	
==>xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	406	516	
==>= \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	406	516	
==>= \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15793	15898	
==>.
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provid <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15793	15898	
==>.
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provid <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7270	7601	
==>>new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4859	4975	
==>}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4859	4975	
==>}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4859	4975	
==>}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4418	4531	
==>m }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4418	4531	
==>m }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4418	4531	
==>m }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19460	19566	
==>ulti Control::Basic::sleep ( Num $for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# fai <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3271	3415	
==>s} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3735	3879	
==>s} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13867	13960	
==>s routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13867	13960	
==>s routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10350	10483	
==>urn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10350	10483	
==>urn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10350	10483	
==>urn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	635	737	
==>to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.00 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8191	8323	
==>rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8384	8516	
==>rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12713	12810	
==>) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12771	12868	
==>) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	371	479	
==>for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	371	479	
==>for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	371	479	
==>for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15155	15255	
==>S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handle <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3119	3236	
==>is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $des <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3119	3236	
==>is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4643	4760	
==>is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $des <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3686	3859	
==>ep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3686	3859	
==>ep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1025	1132	
==>ee Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1025	1132	
==>ee Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	687	843	
==>ed    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY,
        },
        ### XXX this won't work over http mirrors e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4690	4787	
==>%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4690	4787	
==>%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4690	4787	
==>%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packag <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	859	966	
==>ight = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	859	966	
==>ight = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()! <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	620	719	
==>ly it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	620	719	
==>ly it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($ite <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1222	1392	
==>( $config   );
        $obj->meta(   $meta     );
        $obj->dir(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	522	636	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	522	636	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	522	636	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11173	11290	
==>on" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1643	1748	
==>on" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1643	1748	
==>on" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Te <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15289	15396	
==>h> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8192	8364	
==>n $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8192	8364	
==>n $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8192	8364	
==>n $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22041	22144	
==>= $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	770	907	
==>params{'$.description'},
                '$.passed'      =>      $params{'$.passed'},
                '$.reason'      =>      $params{'$.r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12355	12514	
==>er('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12355	12514	
==>er('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4321	4435	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4514	4628	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10222	10372	
==>b { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10222	10372	
==>b { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10222	10372	
==>b { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7795	7909	
==>r;
}
{
  package Regexp::Parser::anyof_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Pars <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28657	28753	
==>make modules having a specific simple API that will serve their role.

For example, inside the te <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28657	28753	
==>make modules having a specific simple API that will serve their role.

For example, inside the te <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3987	4080	
==>head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-nu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3987	4080	
==>head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-nu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14930	15046	
==>s
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	92	191	
==>l, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	92	191	
==>l, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	92	191	
==>l, as this script highly depends on the
# exact commandline options given.)
# Searching for a way to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	187	290	
==>p } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	187	290	
==>p } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	187	290	
==>p } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2976	3087	
==>String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2976	3087	
==>String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2976	3087	
==>String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3169	3345	
==>' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3180	3356	
==>' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for referen <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2388	2497	
==>e_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = subs <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2388	2497	
==>e_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = subs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1946	2044	
==>r is either a static lookup (lex only) or a dynamic lookup. 



This object-serialization format is <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6145	6242	
==>ll headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A ha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6145	6242	
==>ll headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A ha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1872	1968	
==>r is either a static lookup (lex only) or a dynamic lookup. 

This object-serialization format is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12078	12195	
==>he server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12078	12195	
==>he server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20287	20381	
==>ompilation
is replaced by a single line containing the hexadecimal digest of the
result in doub <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20287	20381	
==>ompilation
is replaced by a single line containing the hexadecimal digest of the
result in doub <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8297	8395	
==>struction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8297	8395	
==>struction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12966	13061	
==>set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set contai <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12966	13061	
==>set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set contai <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3423	3540	
==>=> 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # sma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3423	3540	
==>=> 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # sma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7613	7704	
==>er PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok & <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7671	7762	
==>er PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok & <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9671	9780	
==>msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9671	9780	
==>msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4791	4886	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4791	4886	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6095	6201	
==>get, pos
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|& <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7370	7461	
==>xs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7370	7461	
==>xs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7370	7461	
==>xs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_pos <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5588	5682	
==>ends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5588	5682	
==>ends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7785	7879	
==>ends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5617	5726	
==>ding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5617	5726	
==>ding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5617	5726	
==>ding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	247	374	
==>ct>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	251	378	
==>ct>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	247	374	
==>ct>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	251	378	
==>ct>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	482	591	
==>ice(@values, 0, 2)) {
        ((blessed($key)   && $key->isa('type')) && 
         (blessed($value) && $value- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19115	19213	
==>nfix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19115	19213	
==>nfix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19115	19213	
==>nfix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MU <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6159	6289	
==>users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6159	6289	
==>users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10631	10746	
==>=~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10789	10904	
==>=~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $va <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2703	2840	
==>_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docum <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7797	7934	
==>_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2703	2840	
==>_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7797	7934	
==>_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('docum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4336	4596	
==>( @{ $assoc{$_} } ) {
                    next if $seen{$_->{name}};
                    $seen{$_->{name}} = 1;
                    $s .= ' ' .
                        $_ eq 'list' 
                            ? $_->{index}
                            : " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10094	10231	
==>/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6435	6572	
==>/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7284	7421	
==>/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1565	1678	
==>_cmp {
    my($o,$o1)=@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15995	16231	
==>{
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attributes')
                      ->apply(
                          block->new($e, sub {
                                my $e = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13176	13305	
==>? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13176	13305	
==>? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	99	198	
==>ry);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magi <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1372	1485	
==>d_path(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2321	2418	
==>g_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_mat <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2321	2418	
==>g_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_mat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2401	2498	
==>g_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_mat <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9156	9282	
==>e} eq 'cygwin') {

            warn "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exists, an <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4674	4771	
==>ect;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8151	8248	
==>ect;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2154	2251	
==>'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2154	2251	
==>'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2154	2251	
==>'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0] <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	337	436	
==>l::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13553	13650	
==>b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13553	13650	
==>b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13553	13650	
==>b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20793	20883	
==>repare a module distribution
with compiled .pmc files. Module::Compile installs a
Module::I <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20793	20883	
==>repare a module distribution
with compiled .pmc files. Module::Compile installs a
Module::I <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3704	3858	
==>t > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3704	3858	
==>t > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2726	2827	
==>an1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.uni <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2726	2827	
==>an1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.uni <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	534	693	
==>am $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	527	686	
==>am $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20660	20756	
==>cessor
methods.  Relation does not declare any subroutines or export such.

The usual way that Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25212	25308	
==>cessor
methods.  Relation does not declare any subroutines or export such.

The usual way that Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2570	2675	
==>return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2570	2675	
==>return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2570	2675	
==>return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	171	275	
==>erl6;

my $bin;
BEGIN { $bin = ((dirname(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5705	5811	
==>r(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pug <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5705	5811	
==>r(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pug <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	283	384	
==>bitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	283	384	
==>bitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8460	8569	
==>lf->{ghc} 
        or croak "assert_ghc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14142	14230	
==>'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14142	14230	
==>'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14142	14230	
==>'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14657	14827	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14657	14827	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14657	14827	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	39	153	
==>ta::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4117	4228	
==>a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4117	4228	
==>a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4117	4228	
==>a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""} <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1746	1834	
==>ing
Protocol.  It is defined in L<Test::Harness::TAP>.

C<Test::Harness::runtests(@tests) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18123	18264	
==>,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18402	18543	
==>,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1287	1410	
==>_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1287	1410	
==>_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17875	18059	
==>l' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17875	18059	
==>l' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17875	18059	
==>l' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8307	8408	
==>f $fun_name;
	return "p6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5326	5442	
==>eturn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6594	6710	
==>eturn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5326	5442	
==>eturn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6582	6698	
==>eturn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1895	2065	
==>vents<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push(' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1895	2065	
==>vents<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push(' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2186	2282	
==>sses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first fe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2186	2282	
==>sses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first fe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11395	11526	
==>_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SE <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11395	11526	
==>_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SE <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1689	1801	
==>infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstring <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1689	1801	
==>infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstring <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2133	2236	
==>=> \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2121	2224	
==>=> \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4406	4525	
==>:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4406	4525	
==>:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12549	12659	
==>er('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6024	6134	
==>er('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	165	264	
==>.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	165	264	
==>.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	165	264	
==>.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9572	9662	
==>if $op{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3801	3909	
==>y($lv);
    my $named_arg = $args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !de <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	46	145	
==>use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@IS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	41	140	
==>use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@IS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	41	140	
==>use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@IS <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4912	5077	
==>( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4912	5077	
==>( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3715	3864	
==>( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
} <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3715	3864	
==>( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	310	427	
==>run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of thi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	314	431	
==>run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of thi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	310	427	
==>run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of thi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	314	431	
==>run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of thi <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1420	1516	
==>eturn '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeat <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1420	1516	
==>eturn '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeat <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3764	3858	
==>lass Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3764	3858	
==>lass Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5839	5971	
==>,
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5839	5971	
==>,
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2660	2783	
==>el2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2660	2783	
==>el2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5544	5687	
==>h;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' li <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5544	5687	
==>h;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' li <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16128	16265	
==>erms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16128	16265	
==>erms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	155	252	
==>oken;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $rul = '[a|b](b)c';
my $rp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17551	17647	
==>his method emits a warning and returns undef.

- `span()`

Returns the internal object that repre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17551	17647	
==>his method emits a warning and returns undef.

- `span()`

Returns the internal object that repre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1320	1412	
==>__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PA <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7460	7566	
==>s*[,:]\s*|(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4597	4717	
==>$o->noop if @a == 0;
    return $a[0]->emit if @a == 1;
    my @fs = map { $_->emit } @a;
    my $code1 = ""; my $code2 = <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1233	1342	
==>This document describes version 0.03 of re::override, released
March 12, 2006.

=head1 SYNOPSIS

    use re::o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8878	8977	
==>invoke this 'require' in an eval string
    # because we need the bareword semantics, where 'require <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8878	8977	
==>invoke this 'require' in an eval string
    # because we need the bareword semantics, where 'require <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19414	19536	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19693	19815	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @term <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	649	739	
==>---------------------------------------
## private methods

my method set_height ($self: Tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	649	739	
==>---------------------------------------
## private methods

my method set_height ($self: Tr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50979	51149	
==>'$:version'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5404	5535	
==>hod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5404	5535	
==>hod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5404	5535	
==>hod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17809	17963	
==>( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18088	18242	
==>( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16889	16981	
==>speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to documen <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16889	16981	
==>speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to documen <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6801	6913	
==>e like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6859	6971	
==>e like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18546	18646	
==>->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19904	20004	
==>->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1685	1793	
==>fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1685	1793	
==>fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1685	1793	
==>fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 20 <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	303	394	
==>/Perl6/Bible/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/A05.pod

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3730	3825	
==>6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3730	3825	
==>6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3730	3825	
==>6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14004	14109	
==>$dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14004	14109	
==>$dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14004	14109	
==>$dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26478	26570	
==>of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24684	24789	
==>ged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finishe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23448	23553	
==>ged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finishe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24684	24789	
==>ged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finishe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23448	23553	
==>ged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finishe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	415	625	
==>use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::Ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13314	13433	
==>($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13314	13433	
==>($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13314	13433	
==>($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	324	433	
==>Stmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	324	433	
==>Stmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	324	433	
==>Stmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	64	158	
==>e warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/smo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16445	16545	
==>e.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list con <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16445	16545	
==>e.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list con <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	354	449	
==>(Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile? <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	354	449	
==>(Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2196	2312	
==>fix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2196	2312	
==>fix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7883	7987	
==>nt { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7883	7987	
==>nt { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6126	6250	
==>ent->next;
    }
    $self->create($name, $value);
}

sub get {
    my ($self, $name) = @_;
    (defined $name) 
        || c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5612	5743	
==>urn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5612	5743	
==>urn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5612	5743	
==>urn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	917	1020	
==>>code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, whil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	917	1020	
==>>code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, whil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9134	9237	
==>absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8834	8933	
==>absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14294	14411	
==>self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7383	7489	
==>package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7383	7489	
==>package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7383	7489	
==>package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9680	9794	
==>_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9680	9794	
==>_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9680	9794	
==>_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3172	3272	
==>("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3172	3272	
==>("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3172	3272	
==>("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_ <==
4	/Users/nnunley/pugs/util/package-osx.pl	2116	2206	
==>te_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_perl/PIL /Librar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5284	5410	
==>lues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8761	8887	
==>lues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7781	7907	
==>lues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10989	11089	
==>ringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNumericLiteral> < <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18053	18307	
==>depth   <=> $a->depth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6200	6311	
==>,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9677	9788	
==>,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8751	8862	
==>,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1057	1161	
==>6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1057	1161	
==>6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1057	1161	
==>6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6589	6695	
==>rom_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6589	6695	
==>rom_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6589	6695	
==>rom_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # X <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	410	511	
==>eric_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reductions don't make sense while in <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	422	535	
==>class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15105	15217	
==>)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15105	15217	
==>)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15105	15217	
==>)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1399	1504	
==>my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5927	6032	
==>my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4213	4316	
==>my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4737	4840	
==>my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11635	11733	
==>This stores a collection of Node objects,
which are all of the Nodes that live in this Document.

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11635	11733	
==>This stores a collection of Node objects,
which are all of the Nodes that live in this Document.

= <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	667	774	
==>| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Tim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2011	2104	
==>[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..99 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2011	2104	
==>[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..99 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2011	2104	
==>[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..99 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22411	22508	
==>return the same result when invoked on the
same object with the same arguments; they do not intera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26963	27060	
==>return the same result when invoked on the
same object with the same arguments; they do not intera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25686	25783	
==>return the same result when invoked on the
same object with the same arguments; they do not intera <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	305	423	
==>$bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	309	427	
==>$bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	305	423	
==>$bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	309	427	
==>$bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2048	2171	
==>exclude_re} && $currfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6499	6600	
==>nt';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6499	6600	
==>nt';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6499	6600	
==>nt';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1562	1667	
==>Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Ru <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1562	1667	
==>Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Ru <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1562	1667	
==>Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Ru <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	596	697	
==>** Running: $setup @args\n";

my $rv = system($setup, @args);
if ($rv == 0) {
    if ($prompt_register <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10709	10859	
==>? ";
            ReadMode(3);
            my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skippi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1746	1854	
==>Exp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1746	1854	
==>Exp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1746	1854	
==>Exp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	188	282	
==>converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlE <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2084	2178	
==>on_from($file)      unless $self->version;
    $self->perl_version_from($file) unless $self->pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	188	282	
==>converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	188	282	
==>converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2790	2907	
==>v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2790	2907	
==>v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2790	2907	
==>v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_con <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16855	16944	
==>,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12435	12575	
==>($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	561	679	
==>";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	561	679	
==>";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	561	679	
==>";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eva <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11691	11820	
==>KT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11691	11820	
==>KT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1289	1416	
==>$domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1289	1416	
==>$domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($ur <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18052	18180	
==>...; next; }
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7353	7464	
==>ASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7353	7464	
==>ASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7353	7464	
==>ASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9002	9113	
==>= shift;
    join $self->raw, map join("", map $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9590	9693	
==>ather all the roles to be 'resolved'
    # -----------------------------------------------      
    met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9590	9693	
==>ather all the roles to be 'resolved'
    # -----------------------------------------------      
    met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9590	9693	
==>ather all the roles to be 'resolved'
    # -----------------------------------------------      
    met <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19141	19269	
==>rn unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19420	19548	
==>rn unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1787	1883	
==>mation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $bur <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1787	1883	
==>mation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $bur <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4313	4430	
==>ttp_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NA <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4313	4430	
==>ttp_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NA <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12459	12554	
==>e parameter.
If both previous and next elements are at the same distance, returns the previous o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12459	12554	
==>e parameter.
If both previous and next elements are at the same distance, returns the previous o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11141	11252	
==>$arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $? <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11141	11252	
==>$arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $? <==
4	/Users/nnunley/pugs/util/func_refact.pl	1171	1297	
==>ar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\%ccset);
	#while (my $new = candidates <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1819	1920	
==>, "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1819	1920	
==>, "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1819	1920	
==>, "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5302	5438	
==>if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5524	5660	
==>if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	723	826	
==>d captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	723	826	
==>d captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8599	8698	
==>nts.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8599	8698	
==>nts.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2764	2858	
==>mbers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2764	2858	
==>mbers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.me <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7085	7235	
==>ary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 } <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7085	7235	
==>ary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	464	568	
==>hod _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	464	568	
==>hod _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34355	34490	
==>$e->create('$next' => $e->get('$dispatcher')->do());             
                block->new($e, sub {
                    $e->get('$nex <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5088	5191	
==>bject(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  $self->add_ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2035	2134	
==>b usage { print <<USAGE; exit }
Usage: $0 [options]

$0 creates a very minimalistic Pugs Live CD.
It <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15259	15352	
==><AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpressio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3022	3132	
==>self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3022	3132	
==>self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3022	3132	
==>self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	178	274	
==>package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1351	1539	
==>r> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1351	1539	
==>r> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15897	15997	
==>.

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `siz <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15897	15997	
==>.

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `siz <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12163	12299	
==>$ret### \\n\"; \n" .
                "    my \$ast = Grammar::Perl6::immediate_statement_rule( \$ret );\n" .
                "    die \"c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2525	2618	
==>ner types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2525	2618	
==>ner types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2525	2618	
==>ner types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3119	3221	
==>chain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3119	3221	
==>chain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3119	3221	
==>chain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub co <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	680	777	
==>n::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.org>.
.
        require "$self->{p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1221	1348	
==>---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1221	1348	
==>---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	382	497	
==>ot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Lati <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	382	497	
==>ot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Lati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3709	3798	
==>(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3709	3798	
==>(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3709	3798	
==>(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11437	11589	
==>rn "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25698	25792	
==>ument C<$mapping> says which attributes are being
renamed, with its keys being the old names an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30250	30344	
==>ument C<$mapping> says which attributes are being
renamed, with its keys being the old names an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29216	29310	
==>ument C<$mapping> says which attributes are being
renamed, with its keys being the old names an <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	539	661	
==>se_version($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4394	4489	
==>t = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::mac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4394	4489	
==>t = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::mac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4394	4489	
==>t = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::mac <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	654	783	
==>) );
     }
   }
 }

 multi sub reduce (Code $expression ; *@values) returns List {
   my $res;
   for @values -> $cur {
        F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	443	549	
==>class =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	443	549	
==>class =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	443	549	
==>class =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7256	7376	
==>=> chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7256	7376	
==>=> chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17549	17640	
==>a Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta vi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17549	17640	
==>a Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta vi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2829	2929	
==>ift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			return Blond <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1630	1742	
==>n if $Result1 ~~ JSX::false;
    if $O.property_value.exists($P) {
        $O.property_value($P) = $V;
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1176	1345	
==>hift;
                my $idx = shift;
                $self->get_value('@:slots')->[$idx]; # type == Container::Scalar
            },
            
            'array_sto <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6037	6146	
==>submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6049	6158	
==>submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1507	1612	
==>"name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns $value

    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1792	1885	
==>ultiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, inc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1721	1813	
==>ultiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, inc <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24984	25075	
==>ported by Test::Harness by default.

C<$verbose>, C<$switches> and C<$debug> are exported up <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4063	4227	
==>\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        el <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5384	5548	
==>\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        el <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4063	4227	
==>\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        el <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5372	5536	
==>\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        el <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	20	117	
==>nfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	20	117	
==>nfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	20	117	
==>nfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6997	7106	
==>XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6997	7106	
==>XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6997	7106	
==>XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2078	2171	
==>xPairAttrType
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of Bool <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	288	410	
==>. $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	461	583	
==>. $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	288	410	
==>. $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	461	583	
==>. $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1776	1887	
==>lf->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1776	1887	
==>lf->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1776	1887	
==>lf->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->nam <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	19	126	
==>tory::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2423	2524	
==>}
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code a <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2423	2524	
==>}
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2881	2977	
==>method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2881	2977	
==>method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$o <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1790	1940	
==>_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6493	6583	
==>tWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6493	6583	
==>tWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6493	6583	
==>tWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5824	5937	
==>---

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5824	5937	
==>---

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_prev <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30333	30428	
==>n whose attributes
(provided in C<$heading>) may or may not resemble those of the original. 
The <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34885	34979	
==>n whose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6828	6931	
==>itpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36392	36489	
==>nt "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36392	36489	
==>nt "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36392	36489	
==>nt "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1837	1966	
==>connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1837	1966	
==>connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1083	1210	
==>connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1083	1210	
==>connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3259	3357	
==>erits Unit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a number or a str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1303	1394	
==>elf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1303	1394	
==>elf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1303	1394	
==>elf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29157	29278	
==>:Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29157	29278	
==>:Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29157	29278	
==>:Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17728	17828	
==>>new("str")),
);

# the polymorphic snd function takes any pair and returns it's second thingy
# (a x <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5010	5109	
==>et $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4137	4236	
==>et $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5010	5109	
==>et $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4137	4236	
==>et $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1966	2112	
==>@;
        eval __PACKAGE__->pmc_compile($code);
        die $@ if $@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimenta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11580	11702	
==>F, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at leas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15057	15179	
==>F, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at leas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14392	14514	
==>F, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at leas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	921	1032	
==>'<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> [ < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11410	11516	
==>cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11410	11516	
==>cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11410	11516	
==>cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6138	6245	
==>. );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only in Pugs::Gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5928	6032	
==>. );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only in Pugs::Gramm <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13019	13118	
==>nctions both take blocks of code, run the code, and test whether they live or die.

=== A Note about <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13077	13176	
==>nctions both take blocks of code, run the code, and test whether they live or die.

=== A Note about <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20377	20521	
==>ed} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18979	19087	
==>lue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18979	19087	
==>lue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18979	19087	
==>lue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13426	13561	
==>that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13426	13561	
==>that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13426	13561	
==>that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	394	512	
==>less [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $sel <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2763	2868	
==>_location'.
    You may want to submit the report to the public smokeserver:

        $^X $smoke_upload_sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8415	8519	
==>n $.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submeth <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	615	709	
==>n $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submeth <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	615	709	
==>n $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submeth <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1767	1869	
==>splashscreen = "splashscreen.txt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2413	2512	
==>hing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2413	2512	
==>hing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2413	2512	
==>hing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3508	3721	
==>$__classes__{$t}) {               
                my $message = pop @t;
                @t = ($t . $message);                
            }
            
            # misc keywords
            elsif ($t eq 'return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1858	1992	
==>{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1858	1992	
==>{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3834	3957	
==>?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26438	26577	
==>my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub visual {
    my $self = shift;
    jo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4720	4833	
==>lf = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4720	4833	
==>lf = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4720	4833	
==>lf = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpP <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5639	5758	
==>/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6907	7026	
==>/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5639	5758	
==>/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6895	7014	
==>/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n" <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4817	5029	
==>$mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4817	5029	
==>$mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22585	22679	
==>the user strings; Locale::KeyedText would also handle
this.

A program generates a Message that <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22585	22679	
==>the user strings; Locale::KeyedText would also handle
this.

A program generates a Message that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20274	20378	
==>urn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20274	20378	
==>urn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20274	20378	
==>urn ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18933	19034	
==>have).


=head1 struct regexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	434	533	
==>rd, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	434	533	
==>rd, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	368	461	
==>Void { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	368	461	
==>Void { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	577	699	
==>-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	478	600	
==>-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2822	2939	
==>nick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2822	2939	
==>nick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22659	22752	
==>ick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22659	22752	
==>ick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8583	8673	
==>cument describes Rosetta::Model version 0.724.0.

It also describes the same-number version <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8583	8673	
==>cument describes Rosetta::Model version 0.724.0.

It also describes the same-number version <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3603	3717	
==>ack = @{ $self->{tree} };
  my $next;

  return sub {
    return $depth if @_ and $_[0] eq -depth;
    carp "unexpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	332	431	
==>g.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	332	431	
==>g.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	332	431	
==>g.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2599	2734	
==>mit_chunk {
    my($self) = @_;
    DumpFile("tests.$$.yml", $self->structure);
}

sub emit {
    my($self) = @_;
    $self->{_timing}{e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1879	1982	
==>new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1879	1982	
==>new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1879	1982	
==>new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (de <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2364	2485	
==>n array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2364	2485	
==>n array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1640	1756	
==>is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguou <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1640	1756	
==>is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguou <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3151	3242	
==>eSafe::Annotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struct_equ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2675	2795	
==>hile (scalar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19935	20041	
==>->get_p6_file;
    p6_eval($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$nam <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	9	102	
==>n/perl -w

if(!@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SE <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7112	7220	
==>y this code is so big.

# in a language with native multimetods this would be much more concise

# a free var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13130	13234	
==>\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13130	13234	
==>\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13130	13234	
==>\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	784	881	
==>wer {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::ne <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1152	1317	
==>.
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	28	126	
==>rovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Stat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	28	126	
==>rovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Stat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	28	126	
==>rovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Stat <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	939	1042	
==>ct{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $incremen <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21235	21332	
==>API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25787	25884	
==>API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24411	24508	
==>API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	51	159	
==>turns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	51	159	
==>turns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9744	9842	
==>rsection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9744	9842	
==>rsection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4199	4298	
==>methods you should take care not
to call them in function form by mistake; that would not do at all. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4199	4298	
==>methods you should take care not
to call them in function form by mistake; that would not do at all. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4199	4298	
==>methods you should take care not
to call them in function form by mistake; that would not do at all. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23820	23914	
==>s not declare any subroutines or export such.

The usual way that Relation::Example indicates a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4198	4299	
==>$^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4198	4299	
==>$^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	940	1028	
==>oc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Pars <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	940	1028	
==>oc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Pars <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	277	421	
==>, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $st <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	277	421	
==>, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $st <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	490	608	
==>fference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Loc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	490	608	
==>fference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Loc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1021	1125	
==>f $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $_[0] } }

	s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	347	436	
==>PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	347	436	
==>PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	347	436	
==>PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1709	1838	
==>pointer 
    bool        native boolean
    Bit         Perl single bit (allows traits, aliasing, etc.)
    Int         Perl integ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7172	7276	
==>e:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7184	7288	
==>e:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3368	3518	
==>cat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3615	3765	
==>cat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() , <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	837	945	
==>ber
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	837	945	
==>ber
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1035	1161	
==>t { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1035	1161	
==>t { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1035	1161	
==>t { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #wa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10740	10843	
==>sh') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4052	4197	
==>hods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4052	4197	
==>hods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4052	4197	
==>hods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($val <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1662	1776	
==>y @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1662	1776	
==>y @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3161	3256	
==>compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3219	3314	
==>compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10444	10560	
==>b,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10444	10560	
==>b,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10444	10560	
==>b,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10453	10542	
==>[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3193	3324	
==>? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3193	3324	
==>? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1322	1421	
==>alled with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1322	1421	
==>alled with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1483	1611	
==>ECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_strin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1483	1611	
==>ECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_strin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9472	9563	
==>turns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9472	9563	
==>turns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5735	5832	
==>use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIP <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5735	5832	
==>use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9971	10064	
==>eturns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9971	10064	
==>eturns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=h <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14735	14834	
==>ckets>
property instead.

=back


=head2 Str

General notes about strings:

A Str can exist at sever <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38832	38925	
==>(C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation li <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43646	43739	
==>(C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation li <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43180	43273	
==>(C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation li <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5570	5690	
==>$tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tm <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5570	5690	
==>$tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2392	2500	
==>equest URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2392	2500	
==>equest URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8289	8430	
==>ell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8289	8430	
==>ell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8289	8430	
==>ell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4144	4261	
==>ps};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4144	4261	
==>ps};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4144	4261	
==>ps};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{cl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22120	22220	
==>= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' wi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	583	714	
==>ject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.pa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	583	714	
==>ject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.pa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3646	3758	
==><identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex cl <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3646	3758	
==><identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4608	4719	
==>ent );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4608	4719	
==>ent );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18033	18132	
==>get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41298	41397	
==>get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	523	628	
==>members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it sho <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	523	628	
==>members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it sho <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10901	10994	
==>d-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container whi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10901	10994	
==>d-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8928	9064	
==>ation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1080	1204	
==>ation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan" <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1080	1204	
==>ation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25807	25890	
==>-------------------------------------------------------------

listify(X,L) :- atom( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	703	827	
==>" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	703	827	
==>" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_cha <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1969	2090	
==>ng from symbols to values:

    Blondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not really impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15669	15829	
==>->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16929	17089	
==>f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15669	15829	
==>->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15669	15829	
==>->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	239	368	
==>k];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dum <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10006	10122	
==>ding, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13483	13599	
==>ding, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12764	12880	
==>ding, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; res <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6038	6195	
==>atch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6038	6195	
==>atch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6038	6195	
==>atch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          v <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2898	3030	
==>b package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7387	7554	
==>->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7387	7554	
==>->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7387	7554	
==>->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12829	12954	
==>ibutes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12829	12954	
==>ibutes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12829	12954	
==>ibutes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8591	8712	
==>> chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8591	8712	
==>> chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6066	6151	
==>ls{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6066	6151	
==>ls{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($eve <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6130	6238	
==>o) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5260	5368	
==>o) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6130	6238	
==>o) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5260	5368	
==>o) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10235	10350	
==>g === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYN <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10235	10350	
==>g === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5497	5605	
==>postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5497	5605	
==>postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2386	2525	
==>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2386	2525	
==>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2386	2525	
==>env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7875	7972	
==>s calling instance method fails';

## does Foo get Object's singleton methods ..

is($Foo->another <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3186	3296	
==>cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3186	3296	
==>cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3186	3296	
==>cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1227	1335	
==>dy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2915	3090	
==>n Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2915	3090	
==>n Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2915	3090	
==>n Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30164	30314	
==>qual_to(str->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to(str->new(':desce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10646	10788	
==>m == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10646	10788	
==>m == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10646	10788	
==>m == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1884	2028	
==>$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1884	2028	
==>$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1884	2028	
==>$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	115	240	
==>ML                    qw[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Ob <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6382	6511	
==>rint "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6370	6499	
==>rint "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5836	5945	
==>'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19337	19436	
==>ti Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7446	7677	
==>{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $arr <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7446	7677	
==>{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	365	481	
==>rt {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->ca <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	365	481	
==>rt {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4065	4167	
==>ame; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4065	4167	
==>ame; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4065	4167	
==>ame; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28889	29058	
==>::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29168	29337	
==>::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5972	6093	
==>ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5972	6093	
==>ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	357	459	
==>gs5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	357	459	
==>gs5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	357	459	
==>gs5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30593	30689	
==>ods (as objects often do).

=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	330	439	
==>map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	330	439	
==>map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	330	439	
==>map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6399	6514	
==>";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6399	6514	
==>";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6399	6514	
==>";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   is <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5935	6032	
==>athnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5075	5205	
==>} if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16111	16241	
==>} if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17599	17729	
==>} if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22282	22412	
==>} if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2737	2865	
==>dy) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2737	2865	
==>dy) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2737	2865	
==>dy) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_cl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4435	4594	
==>w( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Boo <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4435	4594	
==>w( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Boo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2576	2687	
==>rrect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2576	2687	
==>rrect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is co <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1702	1930	
==>s
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buf <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1702	1930	
==>s
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buf <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5481	5575	
==>hildren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) retur <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5481	5575	
==>hildren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7543	7699	
==>defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7543	7699	
==>defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7543	7699	
==>defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2988	3101	
==>mper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<item>',
    } );
}



__END__

u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1506	1664	
==>_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1506	1664	
==>_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9801	9902	
==>w) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9801	9902	
==>w) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46380	46520	
==>symbol->new('FETCH'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11119	11250	
==>Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11119	11250	
==>Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11119	11250	
==>Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_no <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8152	8264	
==>defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8152	8264	
==>defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	691	785	
==>s not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C< <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	691	785	
==>s not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	150	271	
==>Alternative;

use YAML                    qw[LoadFile DumpFile];
use Params::Check           qw[check];
use Log::Message:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1602	1712	
==>ap {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1602	1712	
==>ap {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1602	1712	
==>ap {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_- <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	290	426	
==>mically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	88	190	
==>lass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	88	190	
==>lass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	88	190	
==>lass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6384	6495	
==> (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5514	5625	
==> (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6384	6495	
==> (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5514	5625	
==> (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) r <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	875	986	
==>) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16885	16990	
==>ource attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20362	20467	
==>ource attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19940	20045	
==>ource attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.siz <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12936	13105	
==>depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12936	13105	
==>depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6892	6993	
==>paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6892	6993	
==>paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3377	3511	
==>) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3377	3511	
==>) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8242	8351	
==>turn;

    my $pkg = JIB::Package->new( file => $file );

    return $self->add_package(package => $pkg, force <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6237	6328	
==>per to other functions.  

=cut

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6237	6328	
==>per to other functions.  

=cut

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6237	6328	
==>per to other functions.  

=cut

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1264	1383	
==>ly {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1264	1383	
==>ly {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1264	1383	
==>ly {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	688	821	
==>";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	688	821	
==>";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	688	821	
==>";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$outp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3147	3244	
==>ontext,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3147	3244	
==>ontext,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	329	422	
==>old our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multip <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	387	480	
==>old our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multip <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1147	1245	
==>pairs   safe   (rw!Array)\
# signature doesnt parse. using simplified one.
#multi Array::pairs  (@a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36664	36761	
==>her trivial case is where any any source relation has zero
tuples, in which case the result does t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41213	41310	
==>her trivial case is where any any source relation has zero
tuples, in which case the result does t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40836	40933	
==>her trivial case is where any any source relation has zero
tuples, in which case the result does t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	545	665	
==>rule_source, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2133	2231	
==>\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2133	2231	
==>\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2133	2231	
==>\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	773	878	
==>acking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1144	1243	
==>acking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	743	842	
==>acking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1144	1243	
==>acking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2089	2200	
==>put = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	94	197	
==>put = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	94	197	
==>put = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	704	806	
==>r} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	704	806	
==>r} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	704	806	
==>r} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppor <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13064	13161	
==>est was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3100	3215	
==>ove the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3564	3679	
==>ove the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3051	3154	
==>on_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($d <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3051	3154	
==>on_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1423	1517	
==>PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1423	1517	
==>PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1423	1517	
==>PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1019	1113	
==>ta to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smoke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26386	26603	
==>stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26386	26603	
==>stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26386	26603	
==>stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15343	15485	
==>_->attr('text')} 
                $beg->look_down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11352	11471	
==>ranch =>);
  });


  return;

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1935	2039	
==>ve all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1935	2039	
==>ve all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1935	2039	
==>ve all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2510	2620	
==>ontext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_ori <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2510	2620	
==>ontext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_ori <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2510	2620	
==>ontext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_ori <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1728	1823	
==>${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol})->(\[.+?])/\$$1$2/g;
    s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9526	9660	
==>{
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9526	9660	
==>{
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9526	9660	
==>{
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	209	304	
==>HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

# All dates sho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2157	2254	
==>ad only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2157	2254	
==>ad only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2157	2254	
==>ad only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3025	3156	
==>, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot ope <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3025	3156	
==>, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot ope <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15865	15969	
==>f not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2262	2362	
==>f not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	7033	7145	
==>eturn $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::recompile;
}

BEGIN {
    _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9117	9218	
==>ew(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB on <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9117	9218	
==>ew(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB on <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9117	9218	
==>ew(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB on <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18178	18454	
==>} @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3584	3688	
==>able, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieab <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3584	3688	
==>able, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieab <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3584	3688	
==>able, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1507	1606	
==>meters as well as anything declared within

that scope.



the Sig contains a simply structure of th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1445	1541	
==>meters as well as anything declared within
that scope.

the Sig contains a simply structure of th <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1506	1599	
==>alks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1506	1599	
==>alks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12254	12375	
==>f ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4897	5018	
==>f ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3046	3152	
==>);
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3046	3152	
==>);
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8588	8738	
==>rCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8588	8738	
==>rCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8588	8738	
==>rCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18798	18896	
==>4

=over 4

=item I<anyof_class> Changed

If an I<anyof_class> element is a Unicode property or a P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2868	3003	
==>REFIX;
  }
  elsif ( $syncat eq "postcircumfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	945	1073	
==>P::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	945	1073	
==>P::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3292	3399	
==>opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3994	4093	
==>opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15300	15428	
==>r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18777	18905	
==>r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18202	18330	
==>r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1061	1182	
==>st')->FETCH('::Skip')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1795	1915	
==>cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.cele <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1795	1915	
==>cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.cele <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8040	8154	
==>gs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8028	8142	
==>gs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24985	25084	
==>commands immediately to the server, but creates a queue, which is then
slowly sent to the server.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23749	23848	
==>commands immediately to the server, but creates a queue, which is then
slowly sent to the server.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24985	25084	
==>commands immediately to the server, but creates a queue, which is then
slowly sent to the server.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23749	23848	
==>commands immediately to the server, but creates a queue, which is then
slowly sent to the server.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2944	3064	
==>in_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2944	3064	
==>in_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate user <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1315	1405	
==>tallbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1315	1405	
==>tallbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1281	1379	
==>lf: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1281	1379	
==>lf: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2718	2815	
==>the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=per <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2718	2815	
==>the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5863	6074	
==>->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5863	6074	
==>->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5863	6074	
==>->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1945	2052	
==>or this tool
     util/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.p <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9223	9337	
==>irname $output_path);
  
  my $test_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_resu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19642	19752	
==>Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6214	6317	
==>x($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (su <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6272	6375	
==>x($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5486	5599	
==>: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5486	5599	
==>: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10689	10800	
==>}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10689	10800	
==>}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29297	29404	
==>one, if they are of the same type. If
it is called I<after> $obj has been added to the tree, $obj will be
re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4593	4679	
==>ast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy contai <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4593	4679	
==>ast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy contai <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5183	5269	
==>ast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy contai <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10277	10383	
==>e_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding rege <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10277	10383	
==>e_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40377	40487	
==>boxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40377	40487	
==>boxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40377	40487	
==>boxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $val <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2842	2940	
==>e: A precompiled (but most of the time outdated) image is available at
      http://m19s28.vlinux.d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12935	13032	
==>}
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12935	13032	
==>}
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12935	13032	
==>}
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7586	7735	
==>defined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7586	7735	
==>defined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7586	7735	
==>defined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	452	555	
==>ump $match->();
    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),". <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10960	11092	
==>ation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12431	12563	
==>ation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14437	14569	
==>ation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15908	16040	
==>ation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16402	16524	
==>cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $st <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16402	16524	
==>cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	334	433	
==>capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1062	1159	
==>capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9323	9494	
==>..> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9323	9494	
==>..> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cm <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7360	7456	
==>ub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7360	7456	
==>ub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	981	1203	
==>store       => \$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                store => \$pool,
                #XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1731	1829	
==><EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1731	1829	
==><EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1731	1829	
==><EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[P <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2175	2346	
==>elation::AttrName $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	366	470	
==>s' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	366	470	
==>s' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	366	470	
==>s' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaqu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4822	4957	
==>idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15298	15394	
==>the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15298	15394	
==>the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21399	21492	
==>stics and Bug Fixes

More tests added (specifically, making sure C<(?(N)T|F)> works right).
In <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	246	379	
==>ss_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	202	317	
==>lScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	202	317	
==>lScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	202	317	
==>lScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7721	7840	
==>is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7721	7840	
==>is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7721	7840	
==>is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      f <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1227	1321	
==>ime (pil2js or pilrun), and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28242	28339	
==>ied version of this object which is suitable
for debugging purposes (such as to test that the obje <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35598	35695	
==>ied version of this object which is suitable
for debugging purposes (such as to test that the obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28242	28339	
==>ied version of this object which is suitable
for debugging purposes (such as to test that the obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35598	35695	
==>ied version of this object which is suitable
for debugging purposes (such as to test that the obje <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	409	514	
==>t suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan ( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	467	572	
==>t suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	218	319	
==>rnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	218	319	
==>rnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6385	6484	
==>s of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6385	6484	
==>s of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8582	8681	
==>s of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28013	28109	
==>t, no warnings will be issued.

=head2 The F<__object__> Base Class

All nodes inherit from F<Reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3042	3144	
==>am}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3042	3144	
==>am}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3042	3144	
==>am}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22555	22686	
==>, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23057	23188	
==>, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23547	23678	
==>, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23900	24031	
==>, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1534	1639	
==>(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	95	196	
==>use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use Carp ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13294	13388	
==><Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13294	13388	
==><Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14785	14933	
==>=> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14785	14933	
==>=> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14785	14933	
==>=> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6049	6159	
==>vent<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6829	6939	
==>vent<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6049	6159	
==>vent<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6829	6939	
==>vent<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	259	364	
==>ce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	259	364	
==>ce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	259	364	
==>ce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1048	1147	
==>"\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    pos <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6245	6387	
==>s
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_structure: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4278	4371	
==>lf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4278	4371	
==>lf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4278	4371	
==>lf }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9384	9542	
==>f ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14928	15086	
==>f ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9384	9542	
==>f ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14922	15080	
==>f ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2432	2553	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2625	2746	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1166	1255	
==>ensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1166	1255	
==>ensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simp <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5438	5620	
==>fier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5438	5620	
==>fier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3767	3877	
==>_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3767	3877	
==>_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4357	4467	
==>_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	701	808	
==>f Module::Install loads
# }

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	848	1035	
==>ssed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.todo'};

            return $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3999	4103	
==>f.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3999	4103	
==>f.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3999	4103	
==>f.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40312	40415	
==>( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40312	40415	
==>( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40312	40415	
==>( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6009	6164	
==>"access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6009	6164	
==>"access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6009	6164	
==>"access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4974	5106	
==>1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4974	5106	
==>1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4974	5106	
==>1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $sel <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1351	1490	
==>$Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1351	1490	
==>$Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3108	3209	
==>urr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3108	3209	
==>urr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.spa <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2870	2969	
==>by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3027	3126	
==>by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2870	2969	
==>by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3027	3126	
==>by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2493	2609	
==>y $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2493	2609	
==>y $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2493	2609	
==>y $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ve <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2116	2210	
==>em B<new (*native*) returns num>

=item B<to_native () returns *native*>

=item B<to_bit () ret <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1336	1437	
==>t
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1800	1901	
==>t
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1336	1437	
==>t
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1800	1901	
==>t
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	477	599	
==>>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	477	599	
==>>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	477	599	
==>>fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1356	1449	
==>Terminator_here>.
#
#  Resources:
#   http://www.ecma-international.org/publications/standards <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	883	991	
==>be used to ensure we don't accidentally load old or
    # different versions of modules.
    # This is not en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13750	13848	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13750	13848	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13750	13848	
==>xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13209	13307	
==>e::C),
  and is thus not very portable to broken (no compiler) microsoft systems.

  The implementa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6137	6226	
==>line('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6137	6226	
==>line('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6137	6226	
==>line('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1228	1327	
==>t will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - li <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1228	1327	
==>t will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - li <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	130	249	
==>family() instead");
    $self->family(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub famil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19993	20121	
==>ALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19993	20121	
==>ALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19993	20121	
==>ALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6725	6837	
==>->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return $p->Output( classname => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7369	7516	
==>$entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	670	817	
==>$entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	361	479	
==>ST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	340	453	
==>ST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11879	11997	
==>" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test its <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6072	6171	
==>n \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6072	6171	
==>n \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6072	6171	
==>n \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6809	6935	
==>kType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6809	6935	
==>kType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6809	6935	
==>kType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11670	11766	
==>ts> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <Dec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7790	7910	
==>$debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7528	7640	
==>$debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    retur <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1508	1608	
==>e () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1508	1608	
==>e () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3179	3406	
==>secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3179	3406	
==>secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6133	6225	
==>->new->string(Blondie::TypeSafe::Flatten->new->reduce($node));
			$de_facto_type->set($expect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1431	1529	
==>";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1431	1529	
==>";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1431	1529	
==>";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base} <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1358	1446	
==>::AttributeGrammar->new(<<'#\'EOG');
#\
type::variable::instantiated: layout($$) = { $.in <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11596	11751	
==>ery_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ] <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11596	11751	
==>ery_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ] <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2836	2947	
==>});

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2836	2947	
==>});

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4282	4384	
==>);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->is_arrow;
}

sub splat { # recu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14820	14952	
==>= shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14820	14952	
==>= shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14820	14952	
==>= shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	857	963	
==>umper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::string_concat {
    my $a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	267	386	
==>=> \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	267	386	
==>=> \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $clas <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12214	12309	
==>. Once object support is created, we will add it here, and
maintain backwards compatibility as w <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12272	12367	
==>. Once object support is created, we will add it here, and
maintain backwards compatibility as w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	389	490	
==>aders
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	303	404	
==>() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	303	404	
==>() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	389	490	
==>aders
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3241	3342	
==>!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3241	3342	
==>!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3241	3342	
==>!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(. <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1901	1993	
==>atch flags; regexes constructed with this module may cause
segfaults on C<split>, substitutio <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3482	3651	
==>], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package;:installed uses them
            my @alts = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7772	7874	
==>o us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7772	7874	
==>o us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7772	7874	
==>o us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      p <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	356	547	
==>recognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	356	547	
==>recognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5382	5568	
==>y, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5382	5568	
==>y, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17711	17876	
==>ing( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21188	21353	
==>ing( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20775	20940	
==>ing( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11047	11164	
==>to nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob["i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1906	2011	
==>rp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1906	2011	
==>rp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1906	2011	
==>rp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33741	33835	
==>Ok, back to our F<Regexp::AndBranch> example.  Let me explain what the
'&' metacharacter will m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	613	725	
==>ethod($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	613	725	
==>ethod($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	754	864	
==>= ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	754	864	
==>= ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $s <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3202	3323	
==>my ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6153	6243	
==>ugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6153	6243	
==>ugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6153	6243	
==>ugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6809	6965	
==>my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2292	2408	
==>->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2292	2408	
==>->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2292	2408	
==>->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->un <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1795	1914	
==>%events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.pri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1795	1914	
==>%events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.pri <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3652	3745	
==>y setting C<$match.multidex> to the index where
captures should put themselves.  In the former <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3652	3745	
==>y setting C<$match.multidex> to the index where
captures should put themselves.  In the former <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8438	8533	
==>ay contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8438	8533	
==>ay contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4877	4972	
==>rms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5070	5165	
==>rms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	574	701	
==>ations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocatio <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	574	701	
==>ations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocatio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	494	598	
==>tr $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Exa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	494	598	
==>tr $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Exa <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8425	8701	
==>(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2178	2295	
==>\$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2178	2295	
==>\$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2178	2295	
==>\$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5942	6041	
==>nick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5942	6041	
==>nick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12191	12422	
==>Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " lef <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12191	12422	
==>Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " lef <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12191	12422	
==>Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " lef <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5716	5927	
==>?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3034	3145	
==>ub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3034	3145	
==>ub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3034	3145	
==>ub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9028	9162	
==>sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_perso <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9028	9162	
==>sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_perso <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3790	3904	
==>$failed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	309	420	
==>= links[i].href;
        if (href.match(/\/~/)) window.open(href);
    }
}
</script>
<body>
<h1>~</h1>
<p>(<a hr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8760	8865	
==>.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8760	8865	
==>.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8760	8865	
==>.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15230	15329	
==>o select our language.  so I suspect the default should be Grf. -law]

Attempting to use a string at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1744	1852	
==>ice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1744	1852	
==>ice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1744	1852	
==>ice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_er <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32996	33089	
==>::Example
which is the same as the invocant Relation::Example but that some of its
tuple/Mappi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	202	305	
==>y packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	202	305	
==>y packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30030	30123	
==>de $transformer!) returns Relation>

This method is a short-hand or alternative for the functi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34582	34675	
==>de $transformer!) returns Relation>

This method is a short-hand or alternative for the functi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3460	3575	
==>, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3460	3575	
==>, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3460	3575	
==>, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16119	16218	
==>t, it chops each item in turn, and returns the last character
chopped.


=item chomp

 multi Str::ch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28839	29047	
==>1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29118	29326	
==>1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24303	24403	
==>n Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28855	28955	
==>n Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7441	7609	
==>rn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7441	7609	
==>rn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	273	392	
==>lock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to work



{

  packag <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	263	378	
==>lock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to work

{
  packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5200	5316	
==>mitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5200	5316	
==>mitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5200	5316	
==>mitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't b <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10631	10739	
==>is primitive is unsafe is builtin {
        die "fancy open modes not supported yet" if $a and ($r or $w or $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10151	10358	
==>ore( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10151	10358	
==>ore( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10151	10358	
==>ore( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	385	483	
==>gest = $node->digest;

    $digest => Blondie::Backend::Perl::Prim->new(
		equals => $digest,
		bod <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24017	24108	
==>rint a -> b");

	$b->instantiate( type::operator::nullary->new("int") );
	is($type->stringif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	720	809	
==>ion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	720	809	
==>ion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	720	809	
==>ion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::O <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2603	2717	
==>.intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2603	2717	
==>.intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18776	18887	
==>my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20134	20245	
==>my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	463	567	
==>_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	463	567	
==>_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7567	7670	
==>ti Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signatur <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	219	316	
==>d using some is_subtype? (QQQ what's it called?) test.  But
maybe not.  Either way, the current ap <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2193	2344	
==>,
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6670	6791	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6670	6791	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6670	6791	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16255	16396	
==>return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16255	16396	
==>return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16255	16396	
==>return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1051	1160	
==>a Match object to continue the previous match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10272	10365	
==>\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10272	10365	
==>\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10272	10365	
==>\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6896	6995	
==>.
p5_metachar("*").
p5_metachar("+").
p5_metachar("\.").
p5_metachar("[").
p5_metachar("^").
p5_meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1933	2026	
==>erent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1933	2026	
==>erent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1933	2026	
==>erent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	266	396	
==>zation          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => 0,
    preco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23873	23967	
==>def); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23873	23967	
==>def); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23873	23967	
==>def); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8101	8327	
==>mp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8101	8327	
==>mp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8101	8327	
==>mp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2539	2644	
==>supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - see "Modif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2444	2546	
==>supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - see "Modif <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5949	6049	
==>SS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5949	6049	
==>SS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10509	10621	
==>$unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10509	10621	
==>$unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1746	1840	
==>1 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @low <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1746	1840	
==>1 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @low <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12858	12982	
==>_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12858	12982	
==>_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_a <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2479	2576	
==>6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# ca <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2479	2576	
==>6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8924	9071	
==>> 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12809	12927	
==>> 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12809	12927	
==>> 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8411	8510	
==>que $self: symbol $label) returns method { 
    %:methods{$label};
}


(method get_method ((opaque $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1035	1171	
==>{ ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3523	3617	
==>r my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    un <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29206	29300	
==>nning tests quietly (ie. no printing) for automated
validation of tests.  This will probably ta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3523	3617	
==>r my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3523	3617	
==>r my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    un <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2329	2432	
==>rFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2329	2432	
==>rFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1554	1651	
==>rFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3415	3512	
==>rFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=he <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5116	5235	
==>>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typeof'>
}
rule FutureReservedWord {  # see 7.5.3
      <'abst <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2374	2478	
==>urn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mism <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2374	2478	
==>urn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mism <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2454	2558	
==>urn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mism <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3726	3828	
==>reamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $tex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5086	5188	
==>reamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $tex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4360	4457	
==>e match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4360	4457	
==>e match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6252	6387	
==>andle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at le <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6252	6387	
==>andle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at le <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	632	756	
==>s.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = an <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	632	756	
==>s.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = an <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	569	678	
==>t
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	569	678	
==>t
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	314	451	
==>_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'ch <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20273	20395	
==>kipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1188	1294	
==>t };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not impleme <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	291	396	
==>t };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not impleme <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	478	585	
==>t<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - tex <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	478	585	
==>t<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - tex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6624	6735	
==>se-preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath eq uc($sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3168	3277	
==>fined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3168	3277	
==>fined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3168	3277	
==>fined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16685	16787	
==>end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16685	16787	
==>end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16685	16787	
==>end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4292	4386	
==>oint3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the right class name for Point3D');
is($p3d <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	440	575	
==>if (@modules == 1) {
        local *MODULE;
        open MODULE, $modules[0] or die $!;
        while (<MODULE>) {
            next if / <==
4	/Users/nnunley/pugs/util/package-osx.pl	4166	4269	
==>Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man/man3/Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5436	5534	
==>ib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related file <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5246	5343	
==>ib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related file <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2269	2387	
==>yntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2269	2387	
==>yntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1496	1608	
==>yntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3357	3469	
==>yntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars <==
4	/Users/nnunley/pugs/util/package-osx.pl	4316	4413	
==>Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/man/man <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2788	2880	
==>perl6-style variable binding,
as well as subroutine call argument passing and binding, in Per <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2788	2880	
==>perl6-style variable binding,
as well as subroutine call argument passing and binding, in Per <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3135	3227	
==>perl6-style variable binding,
as well as subroutine call argument passing and binding, in Per <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	209	340	
==>> $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($V <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	204	335	
==>> $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($V <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1508	1613	
==>equest( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1508	1613	
==>equest( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and heade <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	152	266	
==>{
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12962	13062	
==>to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12962	13062	
==>to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12962	13062	
==>to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9282	9507	
==>first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $x <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9282	9507	
==>first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $x <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	727	850	
==>os = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	727	850	
==>os = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1649	1840	
==>);  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1649	1840	
==>);  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1649	1840	
==>);  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21879	21974	
==>be a class() method in F<__object__>,
but it will throw a "use of class() is deprecated" warning <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3035	3135	
==>t to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1220	1320	
==>nt($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3035	3135	
==>t to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1220	1320	
==>nt($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10320	10433	
==>ction( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&mat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13797	13910	
==>ction( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&mat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13078	13191	
==>ction( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&mat <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8367	8475	
==>ad2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test   --> Lazy )
 multi Array::grep ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1224	1325	
==>eout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1224	1325	
==>eout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1224	1325	
==>eout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1774	1900	
==>urn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1967	2093	
==>urn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10202	10302	
==>()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10202	10302	
==>()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3441	3535	
==>to read and write .ini style configuration files
with as little code as possible, reducing load <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3441	3535	
==>to read and write .ini style configuration files
with as little code as possible, reducing load <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	81	183	
==>- This is not at all portable.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1563	1719	
==>m);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1563	1719	
==>m);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1520	1615	
==>head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable:: <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1520	1615	
==>head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10829	10993	
==>x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	215	314	
==>r->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	215	314	
==>r->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	215	314	
==>r->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6516	6617	
==>rgs) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6516	6617	
==>rgs) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) return <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7388	7487	
==>rgs) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7388	7487	
==>rgs) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) return <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	924	1045	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1798	1919	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	924	1045	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1798	1919	
==>{
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23145	23313	
==>->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42748	42915	
==>->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$self: <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2261	2360	
==>/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2261	2360	
==>/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	449	585	
==>um:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	449	585	
==>um:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	141	236	
==>is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	141	236	
==>is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11244	11366	
==>sany => '.');
  });


  ### '|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	346	457	
==>ferencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	346	457	
==>ferencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	346	457	
==>ferencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12916	13094	
==>elf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12916	13094	
==>elf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12916	13094	
==>elf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2189	2293	
==>b/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1656	1768	
==>N"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1656	1768	
==>N"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1656	1768	
==>N"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub <==
4	/Users/nnunley/pugs/util/func_refact.pl	65	163	
==>se YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	917	1032	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	917	1032	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	917	1032	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10534	10663	
==>$use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{u <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10534	10663	
==>$use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15446	15538	
==>s a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal propo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15446	15538	
==>s a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal propo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2603	2716	
==>varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex place <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2603	2716	
==>varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex place <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2043	2141	
==>e>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
dis <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2043	2141	
==>e>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
dis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10438	10550	
==>::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $val <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10596	10708	
==>::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $val <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11496	11590	
==>iven recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11496	11590	
==>iven recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12021	12149	
==>->set('?%params' => hash->new()); 
                  }));
                $e->get('$class:')->send('bless' => (str->new(), $e->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3273	3374	
==>se $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3273	3374	
==>se $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3273	3374	
==>se $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd(' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16556	16668	
==>te => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16556	16668	
==>te => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all e <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	234	340	
==>rmine if the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	185	285	
==>rmine if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self- <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1084	1188	
==>s = $args->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $script_fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2193	2294	
==>have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2193	2294	
==>have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2193	2294	
==>have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as & <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6704	6838	
==>oop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5386	5486	
==>LTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5386	5486	
==>LTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5386	5486	
==>LTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8551	8654	
==>t => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1044	1140	
==>($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1044	1140	
==>($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1044	1140	
==>($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	796	929	
==>f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1372	1474	
==>sa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1372	1474	
==>sa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1372	1474	
==>sa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    v <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7538	7669	
==><<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7.7
      <'/'>
    | <'/='> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1250	1348	
==>le>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1250	1348	
==>le>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1250	1348	
==>le>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	434	542	
==>p>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($d <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	434	542	
==>p>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11315	11420	
==>~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11315	11420	
==>~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $li <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3833	3938	
==>::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   E <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3833	3938	
==>::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   E <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2047	2144	
==>=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2047	2144	
==>=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5330	5467	
==>$s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3019	3122	
==>(my $try = pop @{ $self->{next} }) {
    if (defined(my $r = $self->$try)) {
      $r->insert($self->{tr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36104	36202	
==>ions having the same Member Name are adjacent
to each other in the output; for example, with Sets o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36104	36202	
==>ions having the same Member Name are adjacent
to each other in the output; for example, with Sets o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1670	1789	
==>ft->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4873	4992	
==>ft->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5492	5587	
==>n which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any metho <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5492	5587	
==>n which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any metho <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1991	2237	
==>lass Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packag <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1991	2237	
==>lass Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	392	492	
==>t is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1250	1350	
==>t is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17306	17441	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23272	23407	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17585	17720	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23551	23686	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	933	1027	
==>fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lval <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	933	1027	
==>fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lval <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	933	1027	
==>fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lval <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2073	2203	
==>ly => 'reg_any',
      type => $type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Par <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26450	26544	
==>, but that any duplicates following the projection have been
eliminated.  Trivial cases are whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31002	31096	
==>, but that any duplicates following the projection have been
eliminated.  Trivial cases are whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30004	30098	
==>, but that any duplicates following the projection have been
eliminated.  Trivial cases are whe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1149	1272	
==>> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	669	786	
==>ex file. default: $root/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $clas <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	83	178	
==>:Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	83	178	
==>:Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4777	4900	
==>::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4613	4731	
==>::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=he <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	10	107	
==>fig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.o <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	10	107	
==>fig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1566	1681	
==>'', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1566	1681	
==>'', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1566	1681	
==>'', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	261	358	
==>T
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeichen kein <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1981	2086	
==>kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1981	2086	
==>kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6054	6147	
==>pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Eve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6054	6147	
==>pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Eve <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3626	3798	
==>et('$current')
                  ->send('has_method' => $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8891	9006	
==>);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8891	9006	
==>);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5458	5574	
==>dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bindir;

        ### load in the alternatives collec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	510	607	
==>dir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	510	607	
==>dir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	510	607	
==>dir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Enc <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23798	23910	
==>ses

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uriCharacter> <u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16385	16496	
==>rn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16385	16496	
==>rn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16385	16496	
==>rn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' i <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4521	4627	
==>ig{_exe}";
    my $base = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin {
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7776	7879	
==>, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7776	7879	
==>, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7776	7879	
==>, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12831	12938	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12831	12938	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12831	12938	
==>ke_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	516	616	
==>ir  = $self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $in <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	499	663	
==>,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	499	663	
==>,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3218	3318	
==>udes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inte <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3218	3318	
==>udes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inte <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2210	2334	
==>ps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17308	17413	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17308	17413	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17308	17413	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7085	7227	
==>++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7085	7227	
==>++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7085	7227	
==>++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	478	579	
==>oreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die "symbol $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10245	10362	
==>script " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10245	10362	
==>script " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10245	10362	
==>script " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12171	12281	
==>t, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16751	16861	
==>t, then each element in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12171	12281	
==>t, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16751	16861	
==>t, then each element in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1472	1580	
==>alX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1472	1580	
==>alX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1472	1580	
==>alX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	141	247	
==>pefully it will develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a backtracking, rec <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2158	2274	
==>D () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2158	2274	
==>D () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1452	1548	
==>s export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1452	1548	
==>s export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7534	7657	
==>message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7534	7657	
==>message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.d <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	281	382	
==>arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tes <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	281	382	
==>arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tes <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	829	961	
==>e => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $stri <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	829	961	
==>e => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5233	5353	
==>{
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., pr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4401	4502	
==>lesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matchObj->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1580	1678	
==>ed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1580	1678	
==>ed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1580	1678	
==>ed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = func <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2061	2150	
==>eft", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*", "left", &parse_quant <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7993	8095	
==>ile (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's internals can ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2656	2749	
==>lock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2656	2749	
==>lock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2656	2749	
==>lock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1212	1330	
==>$domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1212	1330	
==>$domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4426	4522	
==>any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support O <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4426	4522	
==>any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support O <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8386	8505	
==>p::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8094	8209	
==>p::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	871	967	
==>{ '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	871	967	
==>{ '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1588	1713	
==>tr         native string (sequence of integers, no Unicode)
    num         native floating point
    ref         native point <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5000	5104	
==>else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5000	5104	
==>else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5000	5104	
==>else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	756	867	
==>er types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	756	867	
==>er types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	756	867	
==>er types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes t <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11460	11559	
==>he List. aka "The Perl 5 way"

=item KeyExtractor

A closure with arity of 1, which returns the "key <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	927	1018	
==>= ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	927	1018	
==>= ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	927	1018	
==>= ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5624	5725	
==>s, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5624	5725	
==>s, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5624	5725	
==>s, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5101	5215	
==>t ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5101	5215	
==>t ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5101	5215	
==>t ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $par <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16133	16223	
==>ftExpression>
    | <RelationalExpressionNoIn> <'instanceof'> <ShiftExpression>
}
rule Equa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3828	3953	
==>t(anyof_char => 'G') if $cc;
    return $S->object(gpos => gpos => '\G');
  });

  # named (named character)
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	497	590	
==>=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIB <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	497	590	
==>=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIB <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1053	1146	
==>=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIB <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3074	3246	
==>ring;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3074	3246	
==>ring;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3074	3246	
==>ring;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from + <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	33	122	
==>e Perl6::Core::Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10485	10601	
==>estr = $stringify->($name);
    my $code_args = "";
    $code_args .= "'\$.name'=>$namestr," if $name;
    $code_args <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4349	4447	
==>assed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4349	4447	
==>assed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6546	6644	
==>assed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factor <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	999	1094	
==>version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	999	1094	
==>version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirro <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6651	6744	
==>pec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Litt <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6651	6744	
==>pec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Litt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4267	4381	
==>y $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4267	4381	
==>y $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4267	4381	
==>y $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	882	985	
==>reducing base class for fmapping nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base qw/Bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3251	3378	
==>_get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3251	3378	
==>_get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	616	729	
==>s, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	616	729	
==>s, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = l <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	494	599	
==>ound_half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2389	2486	
==>meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2389	2486	
==>meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2389	2486	
==>meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ an <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4009	4124	
==>IN, $p6_file or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $faile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7151	7262	
==>elf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7151	7262	
==>elf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7151	7262	
==>elf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9427	9545	
==>:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	936	1024	
==>der singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	936	1024	
==>der singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1016	1104	
==>der singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28486	28582	
==>mplicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28486	28582	
==>mplicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Local <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18981	19073	
==>at corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate rangin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22631	22723	
==>at corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate rangin <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1829	1984	
==>>[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event.
    # Note that I use the test numb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9970	10084	
==>ormal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9970	10084	
==>ormal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9970	10084	
==>ormal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2326	2588	
==>y,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5803	6065	
==>y,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4733	4995	
==>y,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25086	25191	
==>hing detected is * or +
 * at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	742	921	
==>ule:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	742	921	
==>ule:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4834	4925	
==>arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ': <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4834	4925	
==>arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ': <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	613	739	
==>y "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\. <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	613	739	
==>y "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\. <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5526	5625	
==>UTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt> <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5526	5625	
==>UTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10104	10230	
==>rn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10383	10509	
==>rn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24538	24650	
==>}xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alter <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20959	21071	
==>}xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1546	1698	
==>},
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1546	1698	
==>},
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1546	1698	
==>},
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	982	1106	
==>lf->{omit};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if $self <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	526	686	
==>) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6727	6847	
==>=> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6727	6847	
==>=> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6727	6847	
==>=> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	282	531	
==>alues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	282	531	
==>alues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedT <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6616	6712	
==>value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6616	6712	
==>value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a UR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	262	410	
==>ar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ($self, $valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14234	14334	
==>>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14234	14334	
==>>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14234	14334	
==>>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	157	275	
==>_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle_v <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3639	3749	
==>aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7116	7226	
==>aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6073	6183	
==>aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mappi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	7	104	
==>bin/perl

package Blondie::Prelude::IO;

use strict;
use warnings;

use Blondie::Nodes;

sub symbo <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1550	1684	
==>r.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\ <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1550	1684	
==>r.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6141	6248	
==>6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6141	6248	
==>6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	782	875	
==>_BIBLE =  'http://tpe.freepan.org/repos/iblech/Perl6-Bible/';
    print <<__HELP__;
$0 - Build <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3800	3899	
==>@keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3800	3899	
==>@keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3800	3899	
==>@keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2110	2205	
==>ndie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie::App->new(
			Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	180	291	
==>WARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	180	291	
==>WARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub s <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	659	761	
==>am<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TO <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	659	761	
==>am<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TO <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7431	7562	
==>'t flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algori <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6125	6255	
==>y};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6125	6255	
==>y};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6125	6255	
==>y};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unb <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2658	2801	
==>$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1896	2036	
==>>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1896	2036	
==>>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1896	2036	
==>>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20273	20368	
==>ler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20273	20368	
==>ler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7713	7797	
==>_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7771	7855	
==>_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3658	3816	
==>*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3658	3816	
==>*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	138	238	
==>ectness - mirror the spec.
 2 Interoperation - allow blending of p6 and js objects.
   (Even though t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34382	34501	
==>erl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34382	34501	
==>erl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34382	34501	
==>erl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $of <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1355	1454	
==>for Perl 6 style "Perl5" regex

=head1 DESCRIPTION

This module provides an implementation for P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8072	8258	
==>ess eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenenden <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8536	8722	
==>ess eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenenden <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2730	2847	
==>e /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2730	2847	
==>e /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # N <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4270	4383	
==>b flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3975	4072	
==>TION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3975	4072	
==>TION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3975	4072	
==>TION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 CO <==
4	/Users/nnunley/pugs/misc/S29_round.pl	107	220	
==>0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32064	32163	
==>that has the same heading
and whose body contains all of the tuples that are in either or both of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36614	36713	
==>that has the same heading
and whose body contains all of the tuples that are in either or both of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35895	35994	
==>that has the same heading
and whose body contains all of the tuples that are in either or both of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8804	8922	
==>+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8804	8922	
==>+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8804	8922	
==>+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return " <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20621	20730	
==>$test->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4962	5059	
==>m B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each vi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4962	5059	
==>m B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each vi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4962	5059	
==>m B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each vi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8060	8156	
==>r error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4516	4630	
==>urn $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' => class 'TestBuilder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2192	2297	
==>String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2192	2297	
==>String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2192	2297	
==>String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Numb <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10317	10425	
==>s ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10317	10425	
==>s ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	630	729	
==>dule allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=hea <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	630	729	
==>dule allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3608	3707	
==>f.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3608	3707	
==>f.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7870	8057	
==>t' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7870	8057	
==>t' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7870	8057	
==>t' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24131	24241	
==>* compile to execute that permits the execute phase to run lots faster on
 * simple cases.  They are:
 *
 * reg <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10640	10753	
==>de<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1 <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10640	10753	
==>de<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14402	14501	
==>add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8605	8704	
==>add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13761	13876	
==>IL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;
  sub em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7030	7117	
==>he moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7030	7117	
==>he moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7030	7117	
==>he moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	145	255	
==>:Class             ();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $set = J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12344	12446	
==>tcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12344	12446	
==>tcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12344	12446	
==>tcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4250	4379	
==>$_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5099	5228	
==>$_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	390	493	
==>~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1918	2021	
==>~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini p <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2755	2848	
==>ember October November December>;
method month_name returns Str { @months[./month_0] }

our @m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3013	3189	
==>dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->contro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9773	9895	
==>ich 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9773	9895	
==>ich 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9773	9895	
==>ich 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cla <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4415	4537	
==>imization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4415	4537	
==>imization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16967	17067	
==>fort/  => /f(?:o(?:o|rt)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundanc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1144	1249	
==>contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1144	1249	
==>contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2239	2335	
==>ead1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Retu <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2239	2335	
==>ead1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2025	2172	
==>rom,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2025	2172	
==>rom,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2025	2172	
==>rom,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1837	1948	
==>rom,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2399	2529	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7493	7623	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2399	2529	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7493	7623	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1213	1320	
==>rk with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1213	1320	
==>rk with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1213	1320	
==>rk with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1252	1346	
==>($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicate($node);
	warn $node->st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9503	9657	
==>mmit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15047	15201	
==>mmit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9503	9657	
==>mmit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15041	15195	
==>mmit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	451	605	
==>rx:Perl5/^-?\d+$/ {
            @stack.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12882	12975	
==>I SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_prin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12882	12975	
==>I SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_prin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12882	12975	
==>I SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15261	15373	
==>@{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15261	15373	
==>@{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15261	15373	
==>@{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub po <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2329	2426	
==>B<subtract (x as num) returns num>

=item B<mulitply (x as num) returns num>

=item B<divide (x as <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3663	4047	
==>XX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3663	4047	
==>XX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16912	17007	
==>Text doesn't actually do a lot
internally; it exists mainly to document a certain localization m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16912	17007	
==>Text doesn't actually do a lot
internally; it exists mainly to document a certain localization m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3218	3369	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3218	3369	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3218	3369	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10844	10962	
==>come.p6"],
  );
  step
    descr  => "Copying Pugs, Parrot, Bash, inputrc, the terminfo description, linuxrc, and welco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	95	196	
==>s %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	95	196	
==>s %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	95	196	
==>s %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3731	3831	
==>>get_x, 15, '... still got the right x for p1');
is($p1->get_y, 16, '... still got the right y for p1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	23	122	
==>r::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_bloc <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	23	122	
==>r::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_bloc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31839	31933	
==>!) returns Relation>

This multi-method is a generic binary relational operator that takes a si <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36389	36483	
==>!) returns Relation>

This multi-method is a generic binary relational operator that takes a si <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3853	3990	
==>b fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	363	481	
==>++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	363	481	
==>++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	363	481	
==>++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # ( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	568	704	
==>bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method ze <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	568	704	
==>bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method ze <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4507	4631	
==>s);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4507	4631	
==>s);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1233	1365	
==>e.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says wheth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4711	4843	
==>e.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says wheth <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	851	945	
==>l::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	851	945	
==>l::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	643	758	
==>s->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acces <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1127	1242	
==>s->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acces <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2163	2265	
==>=> 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2163	2265	
==>=> 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	481	654	
==>my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	481	654	
==>my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	472	602	
==>IS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (serve <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	472	602	
==>IS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (serve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5385	5501	
==>>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5385	5501	
==>>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5385	5501	
==>>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	154	255	
==>ed-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" funct <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	154	255	
==>ed-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" funct <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	144	236	
==>, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_functio <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	144	236	
==>, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_functio <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20179	20393	
==>);
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5258	5370	
==>s};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5258	5370	
==>s};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5258	5370	
==>s};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	621	755	
==>= $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	621	755	
==>= $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	276	392	
==>ick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	276	392	
==>ick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20918	21013	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20918	21013	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20918	21013	
==>'.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1309	1428	
==>die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did not un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2646	2742	
==>thod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2646	2742	
==>thod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2646	2742	
==>thod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4944	5054	
==>turn $4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2598	2687	
==>)->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2598	2687	
==>)->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2598	2687	
==>)->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1077	1179	
==>RE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1445	1547	
==>},
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round_half_random },

		{ $^a.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1077	1179	
==>RE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1077	1179	
==>RE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2927	3021	
==>oad Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2820	2913	
==>oad Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeC <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5178	5303	
==>sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1657	1772	
==>($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $yea <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1657	1772	
==>($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $yea <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19891	19993	
==>d,
);

# we can't get app_to_str to apply something of a bad type to a str
my $app_plus_ten_to_str = co <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4485	4586	
==>"size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15923	16024	
==>"size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4485	4586	
==>"size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- ` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15923	16024	
==>"size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8153	8248	
==>embers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7283	7378	
==>embers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8153	8248	
==>embers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7283	7378	
==>embers }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8844	8984	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8844	8984	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8844	8984	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.va <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4121	4233	
==>eturn 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(get_da <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5212	5342	
==>=> chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "X <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5212	5342	
==>=> chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "X <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	471	569	
==>Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	471	569	
==>Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3555	3704	
==>0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3555	3704	
==>0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3555	3704	
==>0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2350	2456	
==>d $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2350	2456	
==>d $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2350	2456	
==>d $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11698	11796	
==>erwise unused section of a regexp struct.  Another
  hopefully unused part of the struct is overwri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	755	930	
==>ocale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (St <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	755	930	
==>ocale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (St <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13644	13765	
==>tor .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for locali <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13644	13765	
==>tor .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for locali <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	207	336	
==>n not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11477	11568	
==>es the Role specifc
code to the class that consumed it.

----------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11477	11568	
==>es the Role specifc
code to the class that consumed it.

----------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11477	11568	
==>es the Role specifc
code to the class that consumed it.

----------------------------------- <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1025	1137	
==>ve {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! Perl6::I <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37663	37753	
==>::Example $other!) returns Relation::Example>

This method is a generic relational operator <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38252	38342	
==>::Example $other!) returns Relation::Example>

This method is a generic relational operator <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38503	38593	
==>::Example $other!) returns Relation::Example>

This method is a generic relational operator <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26919	27016	
==>this automatically, but if you are sub-classing it, you'll probably want
to call it in your own mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1455	1551	
==>\$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1455	1551	
==>\$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1455	1551	
==>\$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1707	1819	
==>?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrar <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1707	1819	
==>?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2782	2877	
==>h Perl 5 interoperability.

Parrot Perl 6 is the best performing implementation by far.
The Parr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52650	52739	
==>$::Object));
$::Object->set_attr(symbol->new('@:MRO') => list->new($::Object));

foreach m <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2130	2225	
==>>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

F <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2130	2225	
==>>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

F <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2918	3010	
==>item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2918	3010	
==>item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1280	1399	
==>_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1280	1399	
==>_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1394	1500	
==>load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi subme <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1394	1500	
==>load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi subme <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	361	658	
==>prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	340	445	
==>rameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	340	445	
==>rameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite: <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4667	4764	
==>er>|<simple_character> }
rule a_dot  { \. }
rule logical_grapheme { \< \. \> }
rule abbreviated_cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2195	2290	
==>Interface::Command {

    # External packages used by the Rosetta::Interface::Command class, tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2195	2290	
==>Interface::Command {

    # External packages used by the Rosetta::Interface::Command class, tha <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13249	13341	
==><$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13249	13341	
==><$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8887	9008	
==>h @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source cod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8887	9008	
==>h @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source cod <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10319	10413	
==>niverse => $universe )`

Creates a recurrence set.

The complementary functions are emulated us <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10319	10413	
==>niverse => $universe )`

Creates a recurrence set.

The complementary functions are emulated us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	513	628	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	513	628	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	513	628	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1274	1372	
==>self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__PACKAG <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	379	492	
==>ub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	379	492	
==>ub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	661	762	
==>`*` namespace, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10369	10466	
==>eturns the number of items
inserted.

It is not fatal to insert an item which is already inserted. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8262	8359	
==>eturns the number of items inserted.

It is not fatal to insert an item which is already inserted. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10369	10466	
==>eturns the number of items
inserted.

It is not fatal to insert an item which is already inserted. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8262	8359	
==>eturns the number of items inserted.

It is not fatal to insert an item which is already inserted. <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	936	1060	
==>pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, $ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11301	11394	
==>}
  class Test::Builder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1802	1890	
==>layout($$) = { join(" ", layout($.left), $.symbol, layout($.right)) }
type::operator::bin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1759	1846	
==>}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1759	1846	
==>}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	590	706	
==>Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # ca <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	590	706	
==>Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # ca <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	379	475	
==>ivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("% <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	379	475	
==>ivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("% <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2612	2854	
==>line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2612	2854	
==>line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3121	3253	
==>an't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3338	3470	
==>an't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7443	7564	
==>eturns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7443	7564	
==>eturns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4489	4589	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4489	4589	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1181	1299	
==>t a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1181	1299	
==>t a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1181	1299	
==>t a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1385	1497	
==>ned $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1590	1702	
==>ned $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1651	1763	
==>ned $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto & <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6277	6371	
==>emove the registered alternative
        $self->remove_registered_alternative( package => $unli <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7082	7183	
==>el OO/Overload 

runtime. 



- internal rule operators



Internal rule operators share a common API, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6842	6938	
==>el OO/Overload 
runtime. 

- internal rule operators

Internal rule operators share a common API, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29656	29787	
==>self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29656	29787	
==>self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29656	29787	
==>self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5680	5803	
==>il
        unshift @mess, "# got, expected and range must be numeric\n";
    } elsif ($range < 0) {
        # This is also a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8024	8153	
==>);
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return u <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8082	8211	
==>);
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3305	3431	
==>tch => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3498	3624	
==>tch => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1097	1204	
==>::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } ) <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1097	1204	
==>::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4317	4407	
==>ead1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4317	4407	
==>ead1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1300	1426	
==>result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1300	1426	
==>result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11085	11179	
==>remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8489	8583	
==>remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11085	11179	
==>remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8489	8583	
==>remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2598	2694	
==>@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2598	2694	
==>@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2598	2694	
==>@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$de <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6695	6785	
==>.html
my $error_file = catfile($output_dir,"error.html");
open( my $error, '>', $error_file <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10895	11019	
==>Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!he <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12366	12490	
==>Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14372	14496	
==>Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15843	15967	
==>Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	283	386	
==>\})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	283	386	
==>\})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	283	386	
==>\})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &inf <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	143	245	
==>th(1));

multi sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1872	2030	
==>etadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	879	981	
==>boxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	879	981	
==>boxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	879	981	
==>boxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8523	8654	
==>ub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8523	8654	
==>ub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16725	16835	
==>e enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=ite <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16725	16835	
==>e enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=ite <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21727	21843	
==>INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$module};
  if $seen { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	101	205	
==>lf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	101	205	
==>lf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	101	205	
==>lf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2419	2522	
==>path: (.+)$/m      and $smoke{runcore}       = pugspath2runcore($1);
  $html =~ /summary="(\d+) test cas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	345	444	
==>really concreate and practical 
# things like Object, Package and Module. It was also created
# by G <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	345	444	
==>really concreate and practical 
# things like Object, Package and Module. It was also created
# by G <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	345	444	
==>really concreate and practical 
# things like Object, Package and Module. It was also created
# by G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7880	8007	
==>js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7880	8007	
==>js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7880	8007	
==>js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8411	8528	
==>ists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8411	8528	
==>ists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8411	8528	
==>ists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %para <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18634	18755	
==>if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6031	6129	
==>a child package know it's parent package? How would this look in Perl 6?
Would it be a package leve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6031	6129	
==>a child package know it's parent package? How would this look in Perl 6?
Would it be a package leve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6031	6129	
==>a child package know it's parent package? How would this look in Perl 6?
Would it be a package leve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38900	39014	
==>ne
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cs <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38900	39014	
==>ne
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cs <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38900	39014	
==>ne
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cs <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20365	20463	
==>directory entries: while the entry only has one subdirectory and no files, collapse
    for my $sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8721	8875	
==>),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12627	12775	
==>),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12627	12775	
==>),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33557	33653	
==>(C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C<\w>), nalnum (C< <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3150	3257	
==>ingle date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day = <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3150	3257	
==>ingle date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17968	18069	
==>h the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
rege <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2327	2428	
==>h the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2291	2409	
==>what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2291	2409	
==>what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2291	2409	
==>what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    retur <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1051	1160	
==>Pretty->new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12310	12464	
==>= ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12310	12464	
==>= ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12310	12464	
==>= ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4034	4149	
==>}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ < <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	312	476	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$si <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	312	476	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$si <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3301	3405	
==>rver.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Se <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3301	3405	
==>rver.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Se <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3467	3574	
==>ease" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3844	3948	
==>Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base = File::Spec->catdir(split(/[\\\ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	594	682	
==>-----------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ---------------- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	617	705	
==>------
# Author: Yung-chung Lin (xern@cpan.org)
# --------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7679	7780	
==>d.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7679	7780	
==>d.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9031	9128	
==>odel" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9031	9128	
==>odel" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1007	1119	
==>ompiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1007	1119	
==>ompiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2519	2615	
==>s a client's request.  It also contains extra
information passed on by the HTTP server, useful to <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2519	2615	
==>s a client's request.  It also contains extra
information passed on by the HTTP server, useful to <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5418	5516	
==>ulti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4548	4646	
==>ulti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5418	5516	
==>ulti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4548	4646	
==>ulti sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8455	8558	
==>eturn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8455	8558	
==>eturn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8455	8558	
==>eturn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_p <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2317	2449	
==>ify this file; it is generated automatically by  --
--                  util/gen_prelude.pl                       --
---------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9722	9810	
==>tcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9722	9810	
==>tcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9722	9810	
==>tcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9052	9178	
==>ed  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protocon <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10529	10655	
==>ed  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protocon <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3779	3893	
==>5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3779	3893	
==>5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5565	5678	
==>move) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5565	5678	
==>move) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3547	3646	
==>List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3547	3646	
==>List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3547	3646	
==>List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	326	419	
==>s::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_AR <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6739	6847	
==>nvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritab <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6739	6847	
==>nvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritab <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3638	3746	
==>nvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritab <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5774	5876	
==>,"regexp_setup ");
    Safefree(r->precomp);
    r->prelen = SvLEN(pat);
    if(r->prelen <0){ fprintf( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8748	8851	
==>($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8748	8851	
==>($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9006	9107	
==>($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9006	9107	
==>($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	169	280	
==>s
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Cons <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	169	280	
==>s
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Cons <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	859	959	
==>stall $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	859	959	
==>stall $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2149	2317	
==>__PACKAGE__->add_rule( 
        name => '==',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2025	2123	
==>ds/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2025	2123	
==>ds/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2025	2123	
==>ds/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24292	24412	
==>ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24292	24412	
==>ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24292	24412	
==>ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = M <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	990	1087	
==>::Interface::format};

	# load the required module
	eval "require $dumper->[0]";
	die "install $du <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18089	18220	
==>. " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #us <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18089	18220	
==>. " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #us <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18089	18220	
==>. " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #us <==
4	/Users/nnunley/pugs/util/importgraph.pl	324	420	
==>$overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overlap, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36352	36442	
==>n (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37063	37153	
==>n (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37513	37603	
==>n (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41539	41629	
==>n (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary v <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29190	29310	
==>Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template fi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29190	29310	
==>Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template fi <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	202	311	
==>so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %met <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	202	311	
==>so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %met <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11947	12047	
==>CTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- ` <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11947	12047	
==>CTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1391	1490	
==>thod.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUER <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1391	1490	
==>thod.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUER <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4716	4829	
==>?) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4716	4829	
==>?) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1515	1624	
==>args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1515	1624	
==>args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8342	8547	
==>ue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8342	8547	
==>ue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8342	8547	
==>ue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elem <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19371	19479	
==>= pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6ana <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6820	6949	
==>ock = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7013	7142	
==>ock = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6322	6429	
==>pty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rule <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6322	6429	
==>pty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rule <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1090	1198	
==>y => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.den <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1090	1198	
==>y => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.den <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1859	1964	
==>diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1859	1964	
==>diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1939	2044	
==>diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9102	9208	
==>_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quanti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9098	9204	
==>_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quanti <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11544	11645	
==>ects are done for this, but maybe I will
figure out a good way to do this without. Either way it is st <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11544	11645	
==>ects are done for this, but maybe I will
figure out a good way to do this without. Either way it is st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1087	1195	
==>exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1087	1195	
==>exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1087	1195	
==>exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mo <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	183	279	
==>mplate  = HTML::Template.new(filename => "wiki.html");

my $action    = param('action');
my %wiki <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8035	8193	
==>l6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8035	8193	
==>l6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8035	8193	
==>l6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	382	490	
==>n $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	382	490	
==>n $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	382	490	
==>n $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6724	6823	
==>ce);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n";

__END__
my $m = match($Pe <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1711	1817	
==>n port of Perl 5's POE to Perl 6. It is only an experiment, it's not
API compatible to the original POE, an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	636	726	
==>eref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	636	726	
==>eref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	636	726	
==>eref(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7175	7295	
==>{ 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7175	7295	
==>{ 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7175	7295	
==>{ 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1017	1128	
==>|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitution {
    my $grammar = shift;
    return $gra <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28128	28227	
==>ect__> the following
methods:

=over 4

=item my $d = $obj->data()

The object's data.  This might b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	119	206	
==>h::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	119	206	
==>h::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	119	206	
==>h::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9671	9798	
==>r orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9671	9798	
==>r orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9671	9798	
==>r orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(id <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	640	765	
==>r), :minute($minute), :second($second),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1682	1808	
==>them in memory, but
    you may wish to check for new settings and edit the old
    config file by hand.

.
        open my $tp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8228	8328	
==>classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8228	8328	
==>classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8228	8328	
==>classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24035	24183	
==>tch ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24314	24462	
==>tch ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4155	4293	
==>$bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4348	4486	
==>$bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2] <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5937	6041	
==>$Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we hav <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5995	6099	
==>$Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we hav <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	375	472	
==>r trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	375	472	
==>r trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8780	8884	
==>{...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8780	8884	
==>{...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8780	8884	
==>{...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2251	2383	
==>epl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2251	2383	
==>epl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2251	2383	
==>epl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9969	10094	
==>->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14260	14358	
==>ote_menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu.lst\"",
  ensure => sub { -r " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2099	2195	
==>{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2099	2195	
==>{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2099	2195	
==>{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12389	12502	
==>{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7179	7288	
==>s primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7179	7288	
==>s primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7179	7288	
==>s primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1447	1546	
==>ing:delimiter(' ');

 multi sub Array::map (@values,   Code $expression) returns Lazy 
 multi sub  P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1506	1601	
==>> '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1506	1601	
==>> '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1506	1601	
==>> '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	475	589	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	475	589	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	475	589	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19050	19155	
==>val_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43048	43189	
==>w('can'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9012	9114	
==>->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascenda <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9012	9114	
==>->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascenda <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9012	9114	
==>->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascenda <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6292	6404	
==>es.pod r8593.
multi method Array::as_int (@array:) returns Int {
    +@array;
}
# name from docs/notes/piln_objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11233	11342	
==>',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11233	11342	
==>',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11233	11342	
==>',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27386	27518	
==>e::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27386	27518	
==>e::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27386	27518	
==>e::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->p <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	260	357	
==>ule is simply to be an example Perl6 module that will
run and install and have all the distributio <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	118	264	
==>%spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            w <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	118	264	
==>%spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            w <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	957	1099	
==>{
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub vali <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	957	1099	
==>{
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub vali <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	49	146	
==>e;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fal <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	49	146	
==>e;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fal <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7906	8015	
==>ilter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7918	8027	
==>ilter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13264	13360	
==>p:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the giv <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13264	13360	
==>p:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the giv <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1549	1724	
==>nts<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) { <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1549	1724	
==>nts<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) { <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	659	758	
==>put( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	659	758	
==>put( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $ex <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10307	10411	
==>ME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10307	10411	
==>ME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_chi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	694	796	
==>d intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	694	796	
==>d intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26247	26411	
==>gify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26247	26411	
==>gify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26247	26411	
==>gify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) . <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2335	2425	
==>ntime. An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpreter. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	75	183	
==>ary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	79	187	
==>ary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	75	183	
==>ary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	79	187	
==>ary provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_b <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27084	27180	
==>T_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20131	20220	
==>b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20131	20220	
==>b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20131	20220	
==>b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6755	6949	
==>to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.cap <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6755	6949	
==>to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.cap <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10830	10931	
==>set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were ac <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10830	10931	
==>set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were ac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	280	400	
==>t<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	284	404	
==>t<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	280	400	
==>t<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	284	404	
==>t<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2710	2815	
==>ss $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    retu <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2710	2815	
==>ss $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    retu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11006	11110	
==>%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11006	11110	
==>%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_ent <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6840	6949	
==>ness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! " <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6898	7007	
==>ness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! " <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19902	19993	
==>hat the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Exam <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19902	19993	
==>hat the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6063	6164	
==>)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6063	6164	
==>)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6063	6164	
==>)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	585	681	
==>fig{make} install' to install.\n";

# make an educated guess of whether we'll need root permissio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13965	14109	
==>dex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13965	14109	
==>dex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13965	14109	
==>dex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5305	5402	
==>ccess to the value.

=item B<apply (closure) return list>

The closure here will be passed the cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3230	3331	
==>gs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3230	3331	
==>gs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3230	3331	
==>gs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9785	9954	
==>w to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should alw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9785	9954	
==>w to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should alw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9785	9954	
==>w to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should alw <==
4	/Users/nnunley/pugs/util/claim_drift.pl	912	1051	
==>ile::Spec->rel2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2300	2399	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2300	2399	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2300	2399	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7960	8160	
==>ed_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        pus <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8424	8624	
==>ed_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        pus <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3108	3223	
==>{
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3654	3769	
==>{
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3688	3793	
==>e
    mklivecd.pl takes --pge as the path of the PGE shipped with Pugs.
  --bash=$bash
    linuxrc needs a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4313	4423	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3440	3550	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4313	4423	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3440	3550	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1604	1733	
==>ompiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1604	1733	
==>ompiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $v <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11515	11632	
==>{
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14992	15109	
==>{
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5455	5566	
==>matically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5455	5566	
==>matically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5455	5566	
==>matically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $a <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	334	430	
==>ead1 DESCRIPTION

B<FOR INTERNAL USE ONLY!>

This is a simple iterator wrapper for arrays and fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5824	5945	
==>s primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5824	5945	
==>s primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5824	5945	
==>s primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4799	4973	
==>}
        

    | MY NUM attr 
        { $_[0]->{out}= { 
            op1 => { op => $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2406	2548	
==>s
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2406	2548	
==>s
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2406	2548	
==>s
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4289	4432	
==>al (@{$self}) {
        if ($closure->isa('closure')) {
            $list->push(
                $closure->do(
                    list->new($va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20312	20420	
==>$autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20312	20420	
==>$autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20312	20420	
==>$autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9828	10027	
==>et );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9828	10027	
==>et );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9828	10027	
==>et );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5206	5384	
==>v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4622	4722	
==>.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4622	4722	
==>.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4622	4722	
==>.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_nam <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1562	1681	
==>sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @file <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1562	1681	
==>sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @file <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7773	7869	
==>eturn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Pe <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7773	7869	
==>eturn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	843	1002	
==>ts')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	911	1006	
==>Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	911	1006	
==>Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	911	1006	
==>Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	958	1087	
==>_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	958	1087	
==>_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31223	31314	
==>:Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy us <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31223	31314	
==>:Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	726	843	
==>ttr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	726	843	
==>ttr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	726	843	
==>ttr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8846	8948	
==>t => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	42	144	
==>005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	42	144	
==>005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	42	144	
==>005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39012	39108	
==>he heading of <$other>
is not a subset of the heading of the invocant Relation::Example.  This me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17361	17568	
==>e( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23327	23534	
==>e( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17640	17847	
==>e( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23606	23813	
==>e( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14231	14327	
==>r follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_RBRACE (-20)

Missi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	120	231	
==>.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	120	231	
==>.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	120	231	
==>.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: sh <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	519	614	
==>Reference  is JSX::InternalValue;
class JSX::InternalValue::List       is JSX::InternalValue;
cl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	681	867	
==>:
    # (None Yet)

    # Attributes of every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16138	16276	
==>0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16138	16276	
==>0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16138	16276	
==>0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1669	1789	
==>.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11542	11662	
==>LLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    my @alts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1669	1789	
==>.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1669	1789	
==>.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4121	4255	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4121	4255	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4121	4255	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4453	4553	
==>bolic_representation {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig};
}

sub is <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7571	7665	
==>Prim") and ($orig_thunk->fixity || "") eq "infix") {
		return "( $params[0] $thunk $params[1] ) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9527	9630	
==>t passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but mi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9585	9688	
==>t passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but mi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19556	19651	
==>-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19556	19651	
==>-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3868	3957	
==>--------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3868	3957	
==>--------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3868	3957	
==>--------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2633	2792	
==>]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2633	2792	
==>]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2633	2792	
==>]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13488	13664	
==>$off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13488	13664	
==>$off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13488	13664	
==>$off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2373	2549	
==>$off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20483	20607	
==>udy

# defined

# undef

# item 

# want

# caller


# tie tied untie


# -X accept alarm bind binmode chown close closedir c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40241	40350	
==>::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40241	40350	
==>::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40241	40350	
==>::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$thi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23342	23441	
==>ause 13
      <Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule FunctionBody :words <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1061	1156	
==>reate these attributes in all the currently live instances
# of Class (which are ::Class, ::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1061	1156	
==>reate these attributes in all the currently live instances
# of Class (which are ::Class, ::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1061	1156	
==>reate these attributes in all the currently live instances
# of Class (which are ::Class, ::Pack <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4939	5043	
==>Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4939	5043	
==>Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LV <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1097	1193	
==>sing a rate limit
against a stream of items. It is also very easy to combine several
rate-limiter <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1097	1193	
==>sing a rate limit
against a stream of items. It is also very easy to combine several
rate-limiter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6658	6777	
==>> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6658	6777	
==>> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6658	6777	
==>> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26979	27084	
==>);
use Benchmark qw(:all);
require "m02.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10799	10914	
==>used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       & <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10799	10914	
==>used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       & <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10799	10914	
==>used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       & <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3519	3610	
==>stalled C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
from bootstrapping. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	247	347	
==>d from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mul <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12043	12143	
==>n;
}    

=head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_available <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	247	347	
==>d from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	247	347	
==>d from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15166	15267	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15166	15267	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15166	15267	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21130	21224	
==>ag Handlers

Flag handlers now receive an additional argument that says whether
they're being t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	993	1104	
==>ight) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1220	1331	
==>ight) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1447	1558	
==>ight) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num-> <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6556	6664	
==>ersion";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep /^-opt/, @_;
    push @libs, grep /^-[lL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5574	5808	
==>= '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6423	6657	
==>= '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8103	8192	
==>nts, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1928	2017	
==>nts, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10356	10477	
==>[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10356	10477	
==>[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $mat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14659	14762	
==>e() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14659	14762	
==>e() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8671	8797	
==>/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8671	8797	
==>/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8671	8797	
==>/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) { <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	406	500	
==>new("SomeRole");

 $role.addMethod(Method.new(...))

 $role.apply;

=head1 DESCRIPTION

This ob <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	250	380	
==>tead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7294	7413	
==>76),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593), <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7294	7413	
==>76),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1093	1213	
==>($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1925	2040	
==>($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2065	2180	
==>($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	77	175	
==>Compiler::Rule;
use Pugs::Compiler::Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $gram <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11403	11548	
==>ne
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11403	11548	
==>ne
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	572	669	
==>sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is exp <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	572	669	
==>sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is exp <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30107	30206	
==>test results to a hash.

Fix stats display when there's an overrun.

Fix so perls with spaces in the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11653	11789	
==>uote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # N <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11653	11789	
==>uote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # N <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6165	6264	
==>lex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is no <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6165	6264	
==>lex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is no <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3475	3644	
==>ulti sub  Perl6::List::sort(; SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             ) returns List
 multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	229	324	
==>fined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	229	324	
==>fined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	229	324	
==>fined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5545	5711	
==>/^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5545	5711	
==>/^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5545	5711	
==>/^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6965	7050	
==>"[").
p5_metachar("^").
p5_metachar("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3202	3340	
==>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3202	3340	
==>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1473	1575	
==>pace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1473	1575	
==>pace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <gr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	210	331	
==>rmal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greate <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2353	2474	
==>y ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone> <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	210	331	
==>rmal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greate <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2353	2474	
==>y ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1	100	
==>ethod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1	100	
==>ethod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1	100	
==>ethod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	272	404	
==>= 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15507	15604	
==>airs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15507	15604	
==>airs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15507	15604	
==>airs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2961	3194	
==>KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8055	8288	
==>KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2961	3194	
==>KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8055	8288	
==>KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4609	4705	
==>sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4609	4705	
==>sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8074	8163	
==>variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1899	1988	
==>variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	808	936	
==>L::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	808	936	
==>L::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	808	936	
==>L::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal = <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1644	1753	
==>mp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3205	3311	
==>ame nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3205	3311	
==>ame nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq nor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3786	3888	
==>ame nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3786	3888	
==>ame nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq nor <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13477	13607	
==>is file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13477	13607	
==>is file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1895	2078	
==>not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1895	2078	
==>not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1895	2078	
==>not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3280	3386	
==>eq 0);
	return 'numeric';
    }
    if($ref eq 'SCALAR') {
	return 'scalar_non_numeric' if !((~$$x & $$x) e <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2569	2675	
==>nless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2569	2675	
==>nless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2207	2310	
==>ence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2207	2310	
==>ence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	930	1027	
==>ext if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	930	1027	
==>ext if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	930	1027	
==>ext if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name }) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	107	203	
==>s::Runtime::Match;
use Pugs::Compiler::Token;

# TODO - implement the "magic hash" dispatcher
# T <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	29	142	
==>.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $por <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	29	142	
==>.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $por <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3192	3284	
==>erwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3192	3284	
==>erwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13167	13282	
==>{
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     cat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13167	13282	
==>{
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     cat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13167	13282	
==>{
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     cat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	673	780	
==>%params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	673	780	
==>%params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	673	780	
==>%params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1657	1792	
==>le {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2400	2535	
==>le {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1657	1792	
==>le {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2388	2523	
==>le {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #prin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	565	764	
==>ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	566	765	
==>ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	44	138	
==>include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_fun <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	44	138	
==>include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_fun <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5966	6080	
==>dividual tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of individu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2905	3003	
==>uning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2905	3003	
==>uning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2905	3003	
==>uning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opt <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21313	21424	
==>file_sep>,split("::",$module)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17258	17350	
==>te('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17258	17350	
==>te('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17258	17350	
==>te('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8022	8151	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8022	8151	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8022	8151	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12164	12288	
==>>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20620	20717	
==>nels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> meth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19546	19643	
==>nels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> meth <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20620	20717	
==>nels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> meth <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19546	19643	
==>nels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> meth <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14621	14733	
==>f };
my %as_hash_handlers =
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numeric     => sub { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3827	3933	
==>::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3827	3933	
==>::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3827	3933	
==>::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	701	810	
==>ith rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	701	810	
==>ith rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	701	810	
==>ith rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole h <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2367	2461	
==>Concat");
    $optable->addToken("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $opt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12517	12644	
==>$n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # start of char class (a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5151	5266	
==>b, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5151	5266	
==>b, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5151	5266	
==>b, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3546	3693	
==>}

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4010	4157	
==>}

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1096	1191	
==>$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C< <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1096	1191	
==>$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3607	3755	
==>t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4924	5072	
==>t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3607	3755	
==>t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4912	5060	
==>t look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8544	8679	
==>r $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8544	8679	
==>r $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3426	3515	
==>/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3610	3699	
==>/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10562	10669	
==>e = "";
    $code .= "sub ${package_name}::${name}::${method_name} {";

    my $rep = $info->rep_type;
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11248	11343	
==>not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11248	11343	
==>not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11248	11343	
==>not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that subm <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1561	1661	
==>ields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1561	1661	
==>ields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1367	1457	
==>the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quanti <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1367	1457	
==>the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quanti <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21473	21618	
==>'DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44380	44525	
==>'DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->ge <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37577	37663	
==>g 'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37577	37663	
==>g 'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10078	10209	
==>ure( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10078	10209	
==>ure( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3292	3393	
==>ter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns b <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3292	3393	
==>ter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2698	2811	
==>p = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2698	2811	
==>p = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $f <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	84	190	
==>Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	84	190	
==>Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5851	6062	
==>_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5851	6062	
==>_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12813	12908	
==>$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$de <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12871	12966	
==>$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$de <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6372	6480	
==>_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6372	6480	
==>_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7917	8003	
==>rl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1742	1828	
==>rl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14064	14190	
==>$s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14064	14190	
==>$s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14064	14190	
==>$s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5146	5244	
==>= shift;

	my $thunk = $node->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	448	557	
==>'type',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a consi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	320	410	
==>) -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	320	410	
==>) -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2532	2654	
==>self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    unshift @_, $obj;
    goto &{$ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3768	3887	
==>ar %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3768	3887	
==>ar %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3768	3887	
==>ar %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2369	2482	
==>ect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.diff <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2369	2482	
==>ect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.diff <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4489	4634	
==>) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4489	4634	
==>) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4489	4634	
==>) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx o <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1667	1775	
==>rator::binary: level($.left) = { level($$) + 1 }
type::operator::binary: level($.right) = { level($$) }

type <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14030	14155	
==>ash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3346	3455	
==>, "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3346	3455	
==>, "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3346	3455	
==>, "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fro <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5105	5201	
==>em read ($filename)

The C<read> method reads a config file, and returns a boolean value
of succe <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6476	6572	
==>ol::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5105	5201	
==>em read ($filename)

The C<read> method reads a config file, and returns a boolean value
of succe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6476	6572	
==>ol::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9371	9488	
==>r};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9371	9488	
==>r};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], n <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	115	221	
==>g   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/graph.png

use warnings;
use strict <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1720	1821	
==>act => join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19284	19385	
==>which is only exited if the connection to the server
dies. To read data from the server, a blocking C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18309	18410	
==>which is only exited if the connection to the server
dies. To read data from the server, a blocking C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19284	19385	
==>which is only exited if the connection to the server
dies. To read data from the server, a blocking C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18309	18410	
==>which is only exited if the connection to the server
dies. To read data from the server, a blocking C< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3858	4024	
==>Installed')}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10736	10866	
==>nd returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHER <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10736	10866	
==>nd returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHER <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6442	6571	
==>) {
      $self->{data} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3121	3337	
==>(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             ) returns Array

 multi sub  Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3954	4063	
==>lf,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3954	4063	
==>lf,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3954	4063	
==>lf,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4465	4599	
==>l,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4658	4792	
==>l,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	183	288	
==>four.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher:: <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	183	288	
==>four.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10274	10379	
==>return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10274	10379	
==>return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	763	853	
==>rmat{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	763	853	
==>rmat{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	di <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2450	2636	
==>{
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5927	6113	
==>{
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4857	5043	
==>{
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () r <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17531	17652	
==>:capitalize (  Str $string              --> Str )
 multi Str::capitalize ( Str $string = CALLER::<$_> --> Str )

Has the e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2354	2471	
==>mpile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression du <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2354	2471	
==>mpile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression du <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2354	2471	
==>mpile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression du <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	934	1046	
==>NV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37654	37743	
==>(Relation::Example $other!) returns Relation::Example>

This method is a generic relationa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38243	38332	
==>(Relation::Example $other!) returns Relation::Example>

This method is a generic relationa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38494	38583	
==>(Relation::Example $other!) returns Relation::Example>

This method is a generic relationa <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1421	1528	
==>$resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2318	2397	
==>ix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_oper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2318	2397	
==>ix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_oper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2318	2397	
==>ix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_oper <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1526	1674	
==>s{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1526	1674	
==>s{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        } <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	450	588	
==>}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           f <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	450	588	
==>}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2416	2541	
==>' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2416	2541	
==>' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2416	2541	
==>' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7951	8040	
==>[1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8331	8450	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8331	8450	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8331	8450	
==>eqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_metho <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4768	4964	
==>start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4768	4964	
==>start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1161	1261	
==>[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1161	1261	
==>[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9694	9793	
==>er)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9694	9793	
==>er)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9694	9793	
==>er)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::mak <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1576	1733	
==>BAREWORD
        { $_[0]->{out}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	212	312	
==>/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	212	312	
==>/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	212	312	
==>/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?P <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9145	9280	
==>ew( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9145	9280	
==>ew( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1630	1726	
==>LD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1630	1726	
==>LD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method heade <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11500	11596	
==>din specified"
	    unless defined $args{args} or defined $args{switches}
		or defined $args{stdi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4536	4631	
==>ptional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4536	4631	
==>ptional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6060	6155	
==>ptional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the cu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	988	1103	
==>Could not create directory '$args->{dir}': $@"] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2698	2791	
==>_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2698	2791	
==>_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2698	2791	
==>_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2463	2699	
==>$_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# --- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2771	2994	
==>$_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# --- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2771	2994	
==>$_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# --- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18887	18990	
==>d a is both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won' <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	232	331	
==>nction.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	232	331	
==>nction.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8867	8963	
==>pan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curr <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8867	8963	
==>pan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curr <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2001	2102	
==>y;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2001	2102	
==>y;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	538	637	
==>Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub c <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	538	637	
==>Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9348	9506	
==>,
                    skip_reason => $results{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3419	3520	
==>e_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3419	3520	
==>e_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3419	3520	
==>e_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($sel <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10148	10249	
==>this is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since that would pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2794	2888	
==>]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2794	2888	
==>]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2794	2888	
==>]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14313	14406	
==>_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14313	14406	
==>_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14313	14406	
==>_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	459	616	
==>ams{'$.error_output'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $message) = @_;
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2739	2828	
==>class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2739	2828	
==>class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2739	2828	
==>class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1103	1221	
==>ondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Un <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1103	1221	
==>ondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Un <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4946	5046	
==>] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4946	5046	
==>] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	421	547	
==>c = JIB::Source->new( dir => /path/to/source )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12175	12285	
==>::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12175	12285	
==>::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12175	12285	
==>::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1024	1138	
==>ould work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1024	1138	
==>ould work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1024	1138	
==>ould work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9196	9291	
==>egcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#--------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27119	27236	
==>dText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TAB <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27119	27236	
==>dText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TAB <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2869	2970	
==>+& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2869	2970	
==>+& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	171	275	
==>less {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	171	275	
==>less {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	171	275	
==>less {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1423	1532	
==>onstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1423	1532	
==>onstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1423	1532	
==>onstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21274	21366	
==>gexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regex <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2582	2692	
==>j = $self->load($method) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)};
}

sub load {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10252	10352	
==>dy_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10252	10352	
==>dy_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10252	10352	
==>dy_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	313	427	
==>s recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKe <==
4	/Users/nnunley/pugs/util/package-osx.pl	3679	3776	
==>erl6::API.3pm
        /usr/local/man/man3/Perl6::Bible.3pm
        /usr/local/man/man3/Perl6::Bibl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25497	25593	
==>tifies the type of message that the object
represents (or gives the name of a condition being rep <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25497	25593	
==>tifies the type of message that the object
represents (or gives the name of a condition being rep <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2329	2444	
==>l::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2329	2444	
==>l::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2105	2211	
==>th($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args he <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2105	2211	
==>th($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args he <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9579	9754	
==>ym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50307	50456	
==>ity'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	664	766	
==>>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	664	766	
==>>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	664	766	
==>>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7519	7654	
==>,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$tex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7519	7654	
==>,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$tex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1322	1447	
==>mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4800	4925	
==>mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14032	14141	
==>JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14032	14141	
==>JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	642	730	
==>zation Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	642	730	
==>zation Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1666	1788	
==>ult: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1666	1788	
==>ult: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1666	1788	
==>ult: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tie <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11702	11805	
==>command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_netware | <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15469	15563	
==>($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15469	15563	
==>($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1668	1760	
==>>pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1668	1760	
==>>pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2846	2953	
==>pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2846	2953	
==>pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2846	2953	
==>pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	549	644	
==>in flux.  It is simultaneously being
overhauled, cleaned up, and p6 added.  It's basically three <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24076	24173	
==>> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  I <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28628	28725	
==>> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1140	1239	
==>is module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1140	1239	
==>is module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1140	1239	
==>is module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9809	9897	
==>est_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4297	4430	
==>= @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4297	4430	
==>= @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4297	4430	
==>= @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next e <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6929	7034	
==>_flags = "-H0 ";
    $ghc_flags .= " -i. -isrc -isrc/pcre -I. -Isrc -Isrc/pcre -static ";
    $ghc_flags . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1771	1897	
==>e already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1771	1897	
==>e already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1771	1897	
==>e already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ob <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6132	6230	
==>otes/piln_object_repr_types.pod r8593.
multi method Array::as_map (@array:) returns Hash {
    hash <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2785	2903	
==>e accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2785	2903	
==>e accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iu <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1709	1864	
==>lse {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1709	1864	
==>lse {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37969	38062	
==>eturn that subroutine's result, which is a Template text
string if the module recognizes $msg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37969	38062	
==>eturn that subroutine's result, which is a Template text
string if the module recognizes $msg_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	679	790	
==>my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	679	790	
==>my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	679	790	
==>my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_I <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15214	15312	
==>ml> may be empty if Test::Harness doesn't think you're
on TTY.

The C<$width> is the width of the " <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2086	2179	
==>rType
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of Bool (Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	366	469	
==>on
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	366	469	
==>on
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	366	469	
==>on
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaM <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13973	14078	
==>as_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13973	14078	
==>as_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13973	14078	
==>as_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.met <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21384	21480	
==>, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) :- !,    char_type(C,csy <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6449	6555	
==>\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test::More::like <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	578	677	
==>SABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	578	677	
==>SABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	578	677	
==>SABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6338	6438	
==>H(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6338	6438	
==>H(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6338	6438	
==>H(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1517	1626	
==>' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[3], exp1 => \$_[1], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14482	14687	
==>rray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14482	14687	
==>rray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14482	14687	
==>rray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->p <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3626	3723	
==>duration($iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1872	1979	
==>x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binar <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1872	1979	
==>x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binar <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	852	953	
==>oesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DES <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	852	953	
==>oesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DES <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1004	1107	
==>, '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1802	1916	
==>:PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1802	1916	
==>:PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1802	1916	
==>:PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2604	2721	
==>e     Perl 5 compatible namespace
    Module      Perl 6 standard namespace
    Class       Perl 6 standard class name <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5923	6021	
==>it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5923	6021	
==>it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8120	8218	
==>it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1042	1211	
==>' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1042	1211	
==>' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<per <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14716	14820	
==>ct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8917	9021	
==>ct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5223	5486	
==>when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5223	5486	
==>when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4092	4230	
==>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4092	4230	
==>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	305	401	
==>et to installed version of inc::Module::Install
#     3. The installed version of inc::Module::In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9547	9637	
==>al_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9547	9637	
==>al_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9547	9637	
==>al_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5702	5827	
==>_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5702	5827	
==>_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5702	5827	
==>_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14175	14284	
==>$Perl if $^O eq 'VMS';

	my $exe;
	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10688	10803	
==>);
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and pro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10688	10803	
==>);
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and pro <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2646	2743	
==>e File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2646	2743	
==>e File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2492	2608	
==>ed( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3420	3536	
==>ed( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2492	2608	
==>ed( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3420	3536	
==>ed( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9574	9729	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9853	10008	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	920	1016	
==>do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compile <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	920	1016	
==>do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compile <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14213	14357	
==>ata} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = $f_test->($noop);
      }
      if(not FAILE <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3762	3861	
==>s is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3762	3861	
==>s is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3842	3941	
==>s is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1722	1835	
==>t <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1722	1835	
==>t <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1047	1137	
==>:Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2902	2992	
==>:Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3967	4065	
==>.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3967	4065	
==>.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3967	4065	
==>.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamode <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26441	26544	
==>w( $a, $b )),
		),
	);
	is($type->stringify, "∀α. ∀β. list α → list β → list (α × β)", "p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3847	3947	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3847	3947	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3847	3947	
==>ess $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &red <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4086	4230	
==>> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4098	4242	
==>> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # M <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	341	459	
==>e eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP sup <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	376	492	
==>e eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP sup <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6997	7136	
==>url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    t <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6997	7136	
==>url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6280	6382	
==>ngly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6280	6382	
==>ngly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21152	21252	
==>ll the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25704	25804	
==>ll the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24087	24183	
==>language into the program code itself, so it then becomes a version of that
language.  By contras <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24087	24183	
==>language into the program code itself, so it then becomes a version of that
language.  By contras <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11670	11764	
==>so be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11670	11764	
==>so be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1776	1890	
==>:log ( Num $x = CALLER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	952	1046	
==>Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaini <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	952	1046	
==>Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaini <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	952	1046	
==>Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaini <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3276	3437	
==>tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3276	3437	
==>tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4606	4706	
==>ter is for the skip and TODO tests and should contain
a string describing why the test is a skip or T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4606	4706	
==>ter is for the skip and TODO tests and should contain
a string describing why the test is a skip or T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6803	6903	
==>ter is for the skip and TODO tests and should contain
a string describing why the test is a skip or T <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34937	35032	
==>or that returns a new Relation::Example
which has a subset of the original's tuples, and it work <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23399	23532	
==>'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23399	23532	
==>'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23399	23532	
==>'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	709	828	
==>d_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name} . '>" ,} }' );
}


BEG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11958	12135	
==>n 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11958	12135	
==>n 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11958	12135	
==>n 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->pa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	967	1110	
==>solve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @list = _recurse_resolve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2235	2361	
==>ode.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2235	2361	
==>ode.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2235	2361	
==>ode.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1390	1479	
==>addToken("circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("<co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23235	23341	
==>OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(",",@args);
    "( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	284	369	
==>,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	284	369	
==>,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	284	369	
==>,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35135	35239	
==>hift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35135	35239	
==>hift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35135	35239	
==>hift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32677	32822	
==>1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32677	32822	
==>1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32677	32822	
==>1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i <==
4	/Users/nnunley/pugs/util/importgraph.pl	1153	1254	
==>ule in $File::Find::name\n";
    return;
  }

  $modules{$module_name} = [\%imports, $exports];
}, 'sr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2400	2589	
==>");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print(" <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2400	2589	
==>");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print(" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18035	18193	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18314	18472	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25436	25531	
==>with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

Thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29988	30083	
==>with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

Thi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3569	3659	
==>cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3569	3659	
==>cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	821	929	
==>ept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0) is builtin is primitive {
    Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4469	4565	
==>. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4469	4565	
==>. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4469	4565	
==>. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Reble <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9053	9157	
==>cessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2284	2424	
==>:KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ % <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2284	2424	
==>:KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ % <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4458	4555	
==>his is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4304	4400	
==>his is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4454	4584	
==>zy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	450	580	
==>\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4454	4584	
==>zy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4454	4584	
==>zy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3480	3580	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3480	3580	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3480	3580	
==>[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6136	6232	
==>";
    $template = HTML::Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $temp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1464	1570	
==>ist>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1464	1570	
==>ist>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1464	1570	
==>ist>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3294	3400	
==>o PATH
    local $ENV{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1904	2103	
==>h

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2326	2518	
==>h
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1842	2034	
==>h
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2326	2518	
==>h
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40299	40397	
==>ribute must carry
prominent notices stating that you changed the files and the date of any
changes, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25823	25921	
==>ribute must carry prominent
notices stating that you changed the files and the date of any changes, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40299	40397	
==>ribute must carry
prominent notices stating that you changed the files and the date of any
changes, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25823	25921	
==>ribute must carry prominent
notices stating that you changed the files and the date of any changes, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4283	4378	
==>ix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4283	4378	
==>ix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4283	4378	
==>ix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  }) <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	239	328	
==>EMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7847	7969	
==>ew Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so ea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	579	682	
==>e this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	579	682	
==>e this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30982	31072	
==>s handler
must start with "POSIX_".

=item $parser->del_handler(@handle_names)

This uninst <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6044	6142	
==>) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5174	5272	
==>) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6044	6142	
==>) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5174	5272	
==>) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17040	17150	
==>r inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2891	2991	
==>ludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2891	2991	
==>ludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2891	2991	
==>ludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4248	4341	
==>g/perl6/doc/synopsis.html>.

The Pugs homepage at L<http://pugscode.org/>.

The Parrot homepag <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9910	10039	
==>3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7850	7979	
==>3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9910	10039	
==>3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7850	7979	
==>3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	495	619	
==>his is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	495	619	
==>his is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4140	4239	
==>and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4324	4423	
==>and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	728	834	
==>iption;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	728	834	
==>iption;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descr <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1486	1599	
==>tarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_c <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1486	1599	
==>tarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17221	17321	
==>ssage
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some kin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17221	17321	
==>ssage
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some kin <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3588	3729	
==>ength;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @t <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3588	3729	
==>ength;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @t <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	757	878	
==>h;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.includ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	757	878	
==>h;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.includ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2521	2664	
==>pression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2521	2664	
==>pression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2521	2664	
==>pression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = comp <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11029	11137	
==>tures delimited portion of the string (provided only one delimiter was specified)
      # $8  captures the cl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6830	6932	
==>'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6830	6932	
==>'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Spa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6165	6257	
==>Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6165	6257	
==>Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10682	10769	
==>"sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; retu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10682	10769	
==>"sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; retu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2144	2277	
==>(:node<Thread>),
                        Tree.new(:node<Code>).add_children(
                            Tree.new(:node<Routine>).add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1390	1486	
==>auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoder <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1390	1486	
==>auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoder <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1390	1486	
==>auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18651	18751	
==>nd end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<pa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18651	18751	
==>nd end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<pa <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12003	12099	
==>res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12003	12099	
==>res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3721	3873	
==>, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5038	5190	
==>, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3721	3873	
==>, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5026	5178	
==>, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #retu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1540	1638	
==>at
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1540	1638	
==>at
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22826	22919	
==>w topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22826	22919	
==>w topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(chann <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5617	5765	
==>0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pStmts"
        dbg "# keys: ",%pad.keys;

        my $scope =      %pad<"p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4113	4246	
==>->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4113	4246	
==>->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4113	4246	
==>->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return unde <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	484	574	
==>rint("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1097	1187	
==>rint("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $le <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	484	574	
==>rint("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $le <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1097	1187	
==>rint("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $le <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	50	224	
==>s;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check               qw[check];
use Log::Message::Simple        qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1463	1585	
==>Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1463	1585	
==>Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1463	1585	
==>Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6299	6478	
==>_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_vers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21464	21621	
==>ed $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21464	21621	
==>ed $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21464	21621	
==>ed $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	596	735	
==>rom = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $gramma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	704	825	
==>hable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	909	1030	
==>hable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	965	1086	
==>hable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7049	7224	
==>ed $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7049	7224	
==>ed $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12212	12317	
==>an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12212	12317	
==>an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, UR <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15034	15147	
==>iler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    my $self = shift;

    $self->{cache} = {};
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21758	21858	
==>ddressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26310	26410	
==>ddressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13528	13622	
==>nce (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

Switch condition not rec <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4994	5109	
==>LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4994	5109	
==>LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1898	2013	
==>LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22753	22862	
==>s are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation::Example data type is <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5988	6079	
==>ro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPoi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5988	6079	
==>ro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPoi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2887	2978	
==>ro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPoi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5063	5196	
==>}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16099	16232	
==>}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17587	17720	
==>}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22270	22403	
==>}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1019	1161	
==>= $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4258	4400	
==>= $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1019	1161	
==>= $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4258	4400	
==>= $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_ope <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7880	7998	
==>I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    if $S0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4336	4465	
==>ext = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4336	4465	
==>ext = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4336	4465	
==>ext = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1513	1620	
==>file: $^X $pmc \n";
  );
warn "compilation error: ", $@ if $@;
eval $p6->{perl5}  
    unless $filename =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	142	273	
==>(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	146	277	
==>(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	140	271	
==>(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	140	271	
==>(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::G <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3288	3401	
==>$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6031	6138	
==>_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6031	6138	
==>_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6031	6138	
==>_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13573	13706	
==>/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13573	13706	
==>/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4566	4692	
==>() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4566	4692	
==>() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	142	256	
==>ty_print  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return if $got_optio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19246	19344	
==>ttr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19246	19344	
==>ttr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19246	19344	
==>ttr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_metho <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2276	2379	
==>ian Ingerson for now)
.
# XXX Not sure about the above heuristic. So die if incorrect.
    $path =~ s/\/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22057	22154	
==>ng in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal al <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26609	26706	
==>ng in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal al <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25305	25402	
==>ng in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal al <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3451	3553	
==>ullary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34378	34470	
==>nt.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38928	39020	
==>nt.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38407	38499	
==>nt.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12820	12946	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12820	12946	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12820	12946	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cla <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7671	7776	
==>h is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7671	7776	
==>h is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3220	3319	
==>pe

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3220	3319	
==>pe

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	941	1056	
==>scape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi su <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	941	1056	
==>scape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi su <==
4	/Users/nnunley/pugs/util/func_refact.pl	3059	3170	
==>($total, $new) = @_;
    return 0 if $total == $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10319	10443	
==>{
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12559	12675	
==>efined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12559	12675	
==>efined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12559	12675	
==>efined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pac <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	764	864	
==>rl6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4340	4434	
==>arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4340	4434	
==>arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4340	4434	
==>arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9547	9710	
==>e called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4341	4438	
==>if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4341	4438	
==>if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4931	5028	
==>if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param- <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	519	639	
==>ch.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	519	639	
==>ch.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3155	3253	
==>) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://has <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3155	3253	
==>) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://has <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6593	6691	
==>event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will g <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3947	4045	
==>event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will g <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6593	6691	
==>event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will g <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3947	4045	
==>event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will g <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2421	2545	
==>}
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.de <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2421	2545	
==>}
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.de <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4430	4530	
==>fference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unic <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4430	4530	
==>fference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unic <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	395	487	
==>y $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::Anno <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1319	1419	
==>60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1319	1419	
==>60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23292	23384	
==>"#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(us <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23292	23384	
==>"#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21625	21749	
==>ubclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21625	21749	
==>ubclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21625	21749	
==>ubclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = u <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7139	7261	
==>n = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2025	2144	
==>M} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2905	3024	
==>M} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19385	19499	
==>k in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19385	19499	
==>k in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4872	5029	
==>ss_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4872	5029	
==>ss_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4872	5029	
==>ss_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	670	787	
==>self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1167	1266	
==>ogram = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36791	36884	
==>if any
source relation is the identity-one relation (zero attributes, one tuple),
the result i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41340	41433	
==>if any
source relation is the identity-one relation (zero attributes, one tuple),
the result i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40963	41056	
==>if any
source relation is the identity-one relation (zero attributes, one tuple),
the result i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4636	4739	
==>}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4636	4739	
==>}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4636	4739	
==>}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1593	1718	
==>le->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1560	1685	
==>le->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16520	16611	
==>lgorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16520	16611	
==>lgorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18948	19076	
==>]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: test $curr answered after ".
              "test ", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	645	750	
==>AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	645	750	
==>AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	645	750	
==>AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16813	16932	
==>o p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	701	798	
==>ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	701	798	
==>ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	701	798	
==>ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, . <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23568	23683	
==>n =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19989	20104	
==>n =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2892	2997	
==>$_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2880	2985	
==>$_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantif <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3425	3540	
==>export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILE <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3425	3540	
==>export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4949	5064	
==>export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	45	149	
==>use 5.006;
use Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38754	38887	
==>X:  ", $parser->qr, "\n";
  }

The output is:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1516	1625	
==>j, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1516	1625	
==>j, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1516	1625	
==>j, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.lengt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4555	4642	
==>lass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4555	4642	
==>lass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4555	4642	
==>lass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refere <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3099	3212	
==>sign' ))) {
        $syn_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4218	4327	
==>L2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4218	4327	
==>L2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4218	4327	
==>L2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4930	5051	
==>( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4930	5051	
==>( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7957	8061	
==>return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7957	8061	
==>return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1074	1174	
==>xport { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  us <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1074	1174	
==>xport { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  us <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6493	6591	
==>TIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6493	6591	
==>TIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4307	4421	
==>e, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4365	4479	
==>e, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10961	11058	
==>d1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<de <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10961	11058	
==>d1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2580	2678	
==>RE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2580	2678	
==>RE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2580	2678	
==>RE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3725	3837	
==>goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loadin <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3783	3895	
==>goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loadin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2060	2187	
==>erm = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2071	2198	
==>erm = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - al <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4492	4591	
==>ailable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the mo <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4492	4591	
==>ailable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the mo <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	581	672	
==>ut the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm becau <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	581	672	
==>ut the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm becau <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4639	4718	
==>E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4639	4718	
==>E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63 <==
4	/Users/nnunley/pugs/util/version_h.pl	2321	2419	
==>/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2813	2910	
==>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2813	2910	
==>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2813	2910	
==>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16756	16991	
==>rget   => $target, 
                                        heading  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlin <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1524	1664	
==>erl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@ne <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1524	1664	
==>erl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@ne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1187	1295	
==>ie "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	765	863	
==>Prim.hs defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@ind <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5626	5788	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2987	3149	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5626	5788	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2987	3149	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3414	3519	
==>t "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
print &Test::a. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23347	23439	
==>04 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41271	41363	
==>04 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37297	37389	
==>04 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5674	5790	
==>{
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3010	3126	
==>{
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3859	3975	
==>{
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	290	408	
==>Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	290	408	
==>Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Co <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	639	728	
==><Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little sli <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	639	728	
==><Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little sli <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2813	2923	
==>l( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2813	2923	
==>l( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	243	337	
==>Char> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*Cap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	243	337	
==>Char> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*Cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1176	1273	
==>er(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	31	128	
==>lt {
	method hallo () { "Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1176	1273	
==>er(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1176	1273	
==>er(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	619	747	
==>{
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{down}) {
      Car <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13847	13971	
==>h @bins, $script;
    }

    my $alt = JIB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, aut <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	438	535	
==>>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	438	535	
==>>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4811	4938	
==>s; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4799	4926	
==>s; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in us <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3598	3707	
==>.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3598	3707	
==>.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4121	4223	
==>nction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4121	4223	
==>nction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4121	4223	
==>nction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	24	116	
==>::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use Pugs::Compiler::Rege <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1012	1114	
==>ath );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1012	1114	
==>ath );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23956	24061	
==>e applies to servers too - they must not send
  any error reply back to the client on receipt of a notice. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22729	22834	
==>e applies to servers too - they must not send
  any error reply back to the client on receipt of a notice. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23956	24061	
==>e applies to servers too - they must not send
  any error reply back to the client on receipt of a notice. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22729	22834	
==>e applies to servers too - they must not send
  any error reply back to the client on receipt of a notice. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	335	477	
==>' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('%:slo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2320	2513	
==>$last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_ele <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2320	2513	
==>$last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_ele <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16063	16153	
==>Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jess <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16121	16211	
==>Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jess <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	923	1070	
==>$() ,} }
            ' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3183	3289	
==>hes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3183	3289	
==>hes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3183	3289	
==>hes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1533	1658	
==>erver Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        50 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1533	1658	
==>erver Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        50 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1174	1290	
==>=> $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1174	1290	
==>=> $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8307	8402	
==>ot fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8307	8402	
==>ot fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7102	7251	
==>{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7102	7251	
==>{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7102	7251	
==>{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return In <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11045	11137	
==>ape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !. %# XXX - more

p6_simple_escape_sequence(ch <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1844	1968	
==>}
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!param <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1844	1968	
==>}
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!param <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32021	32119	
==>n, looking at just the set member for
each that corresponds to language A, looking for a match to s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32021	32119	
==>n, looking at just the set member for
each that corresponds to language A, looking for a match to s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1413	1522	
==>ra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1413	1522	
==>ra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1413	1522	
==>ra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TOD <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2718	2814	
==>s on step further and Curries approxfprime with the user supplied
f.  Such things are possible in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28897	28992	
==>e new attributes having the same names as old
attributes that become wrapped, and it supports ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33449	33544	
==>e new attributes having the same names as old
attributes that become wrapped, and it supports ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32586	32681	
==>e new attributes having the same names as old
attributes that become wrapped, and it supports ha <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7953	8086	
==>dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2416	2525	
==>cope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2416	2525	
==>cope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2416	2525	
==>cope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unle <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	31	143	
==>$b;
$a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b > <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7069	7164	
==>amed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7069	7164	
==>amed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7069	7164	
==>amed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inl <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15601	15749	
==>g_n, $end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	459	559	
==>le::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	459	559	
==>le::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	459	559	
==>le::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1103	1201	
==>e base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1103	1201	
==>e base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15493	15588	
==>cted, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15551	15646	
==>cted, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3172	3290	
==>= @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3172	3290	
==>= @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3172	3290	
==>= @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2692	2805	
==>($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5625	5737	
==>ious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        uni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5625	5737	
==>ious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        uni <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	654	758	
==>e . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_version($file)) if <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19421	19523	
==>s safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7551	7706	
==>ned
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7551	7706	
==>ned
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7551	7706	
==>ned
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	318	413	
==>MetaModel which adds a self-bootstrapping
## implementation of Roles into the model. See below f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12277	12381	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6844	6948	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12277	12381	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6844	6948	
==>ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6926	7027	
==>_process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6926	7027	
==>_process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filte <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12189	12314	
==>o->{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = encode_entities($rest);
#      $body->push_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	278	401	
==>>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	278	401	
==>>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	278	401	
==>>init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20726	20823	
==>v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20726	20823	
==>v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20726	20823	
==>v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27724	27815	
==>inherit from F<MyRx::__object__> first,
then from the F<Regexp::Parser::*> object of the sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4533	4657	
==>ld => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaroun <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4533	4657	
==>ld => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaroun <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4533	4657	
==>ld => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaroun <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	921	1023	
==>rn ''
}
sub node::string_concat {
    my $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get_data( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22311	22411	
==>eClause>
}
rule CaseClause :words {  # see 12.11
      <'case'> <Expression> <':'> <StatementList>?
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6381	6478	
==>outNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6381	6478	
==>outNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6381	6478	
==>outNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewlin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3450	3551	
==>NCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will b <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3450	3551	
==>NCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3530	3631	
==>NCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will b <==
4	/Users/nnunley/pugs/util/run-smoke.pl	305	402	
==>EOF" if $failed;

You don't seem to have the required modules installed.
Please install it from th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8917	9042	
==>th = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8917	9042	
==>th = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8917	9042	
==>th = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11982	12081	
==>ercentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num tests_tot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2631	2738	
==>f defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2631	2738	
==>f defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2631	2738	
==>f defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20283	20388	
==>e
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.sern <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4479	4602	
==>lass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4479	4602	
==>lass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4479	4602	
==>lass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3081	3180	
==>REQUIREMENTS

- The source file header must be valid perl5 I<and> perl6 code.

This is a valid heade <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1033	1161	
==>$rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0,
    npar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28825	28919	
==>r duplicate any other value set members.  This
method supports having the new attributes having <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33377	33471	
==>r duplicate any other value set members.  This
method supports having the new attributes having <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32514	32608	
==>r duplicate any other value set members.  This
method supports having the new attributes having <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1045	1187	
==>oken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1045	1187	
==>oken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1045	1187	
==>oken eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        el <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9418	9527	
==>1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\z/\n/; }
    my $tof = s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2042	2155	
==>9

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happen <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2042	2155	
==>9

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happen <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16580	16676	
==>f $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" att <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16580	16676	
==>f $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" att <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18887	19008	
==>{
            if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14077	14179	
==>->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = $o->data->[1]->data->[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	101	202	
==>ost
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	101	202	
==>ost
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	101	202	
==>ost
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8310	8438	
==>ethod save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.pri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8310	8438	
==>ethod save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5001	5108	
==>tch->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5001	5108	
==>tch->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12992	13127	
==>= +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12992	13127	
==>= +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12992	13127	
==>= +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1877	2012	
==>= +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1760	1874	
==>$array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1760	1874	
==>$array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1760	1874	
==>$array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arra <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3187	3286	
==>e "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1423	1525	
==>ength; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1423	1525	
==>ength; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1423	1525	
==>ength; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8091	8187	
==>8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9007	9140	
==>ib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	741	874	
==>ib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9007	9140	
==>ib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9007	9140	
==>ib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2442	2559	
==>tracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2349	2464	
==>tracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5689	5806	
==>@array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5689	5806	
==>@array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5689	5806	
==>@array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1001	1115	
==>]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1001	1115	
==>]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1001	1115	
==>]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	278	374	
==>ct;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
use File::Path;
use File::Basenam <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4097	4196	
==>lehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4097	4196	
==>lehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Ev <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12244	12340	
==>ed, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12302	12398	
==>ed, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, St <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	628	737	
==>')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	628	737	
==>')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	628	737	
==>')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method de <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35047	35147	
==>lass;
    return $self;
  }

We inherit the merge() method defined in F<Regexp::Parser::branch>,
whic <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20317	20445	
==>]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eval_p5_log_code($code);
	$mfun = eval($c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2441	2535	
==>elf: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2441	2535	
==>elf: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26732	26825	
==>s %Regexp::Parser::loaded to keep
track of which object classes have been loaded already.

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1613	1717	
==>N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1613	1717	
==>N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1613	1717	
==>N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2115	2215	
==>e;

	my $tree = $dag->splat(\@free); # Attribute grammars can't eat DAGs, so we have to recursively m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14386	14518	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14386	14518	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14386	14518	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15157	15258	
==>igest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15157	15258	
==>igest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3219	3318	
==>nt "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{pre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3645	3739	
==>> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query document <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3645	3739	
==>> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query document <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1577	1714	
==>queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1577	1714	
==>queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12936	13033	
==>ect has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12936	13033	
==>ect has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26409	26501	
==>e corresponding projection of
each tuple), but that any duplicates following the projection h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30961	31053	
==>e corresponding projection of
each tuple), but that any duplicates following the projection h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29963	30055	
==>e corresponding projection of
each tuple), but that any duplicates following the projection h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13390	13513	
==>t if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13390	13513	
==>t if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13390	13513	
==>t if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3269	3370	
==>pects:

=over 4

=item *

Resolving compile time resolvable symbols into values

=item *

Replacing al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6591	6695	
==>es' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->do <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6591	6695	
==>es' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->do <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6591	6695	
==>es' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->do <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14221	14316	
==>se keys evaluate
C<$key ~~ any(@keytests)> as true are iterated.

What is returned at each eleme <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1794	1970	
==>ng $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayloa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1794	1970	
==>ng $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayloa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15509	15610	
==>e the start or end value of the span.

These methods may raise a warning if the new value would put th <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15509	15610	
==>e the start or end value of the span.

These methods may raise a warning if the new value would put th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34009	34135	
==>>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34009	34135	
==>>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34009	34135	
==>>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1005	1086	
==>ss)<?p6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>) <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2791	2887	
==>opyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contri <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2948	3044	
==>opyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contri <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2791	2887	
==>opyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contri <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2948	3044	
==>opyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contri <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10198	10320	
==>dren() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A b <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10198	10320	
==>dren() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4019	4127	
==>ined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4019	4127	
==>ined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4019	4127	
==>ined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless d <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	337	431	
==>ix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6721	6919	
==>et;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $r <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6721	6919	
==>et;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23627	23725	
==>> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23627	23725	
==>> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Ros <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15152	15256	
==>better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18629	18733	
==>better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18045	18149	
==>better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1560	1661	
==>or(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10608	10745	
==>RE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10608	10745	
==>RE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10608	10745	
==>RE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25545	25668	
==>egexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	652	759	
==>'grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	652	759	
==>'grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	387	491	
==>ipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	387	491	
==>ipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28195	28304	
==>f (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #els <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28356	28463	
==>f (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1261	1365	
==>=> @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1261	1365	
==>=> @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S <==
4	/Users/nnunley/pugs/util/package-osx.pl	1362	1462	
==>cal/bin/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/local/bin/p6d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3151	3243	
==>s are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3151	3243	
==>s are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3151	3243	
==>s are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14509	14681	
==>eturn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_desc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14509	14681	
==>eturn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_desc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14509	14681	
==>eturn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_desc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34634	34725	
==>t exists), and finally in
F<Regexp::Parser::__object__>.

Here is the definition of F<Regexp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2934	3061	
==>sity;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2934	3061	
==>sity;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12279	12373	
==>in backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12337	12431	
==>in backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18755	18859	
==>ge> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18755	18859	
==>ge> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2721	2814	
==>pr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableD <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2721	2814	
==>pr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableD <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3990	4109	
==>es[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3990	4109	
==>es[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33406	33501	
==>nion> except that the returned Relation contains only tuples that are in
all of the source Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37956	38051	
==>nion> except that the returned Relation contains only tuples that are in
all of the source Relat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1205	1312	
==>oncatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1205	1312	
==>oncatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy o <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	984	1085	
==>port { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	984	1085	
==>port { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4907	5034	
==>ant.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4907	5034	
==>ant.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4907	5034	
==>ant.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15021	15122	
==>iveExpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> < <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7830	7935	
==>ined($pInv) ? 1 : 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28424	28516	
==>es.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32976	33068	
==>es.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32104	32196	
==>es.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12364	12551	
==>- send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12358	12545	
==>- send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8593	8685	
==>/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997M <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8593	8685	
==>/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25488	25700	
==>'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26146	26358	
==>'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25767	25979	
==>'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26425	26637	
==>'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2750	2870	
==>if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2750	2870	
==>if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next => <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3544	3660	
==>if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3544	3660	
==>if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16163	16330	
==>\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16157	16324	
==>\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3846	3954	
==>ile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4063	4171	
==>ile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8863	8984	
==>er::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::B <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1019	1132	
==>er::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1019	1132	
==>er::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::B <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3474	3583	
==>g;
>   clad in mail, never clinking.
-}


module Pugs.Config (
    config,
    getConfig
) where

import quali <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2138	2237	
==>.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2138	2237	
==>.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2138	2237	
==>.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3592	3692	
==>s' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isName <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4136	4233	
==>head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4136	4233	
==>head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5660	5757	
==>head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singl <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2517	2636	
==>call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    unshift @_, $o <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7354	7450	
==>ulti sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7354	7450	
==>ulti sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1907	2038	
==>("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1907	2038	
==>("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8811	8924	
==>$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8807	8920	
==>$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1114	1263	
==>precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else {
                die "invalid precedence <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16610	16717	
==>::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16610	16717	
==>::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16610	16717	
==>::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10046	10150	
==>$lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7258	7347	
==>turn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7258	7347	
==>turn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7258	7347	
==>turn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pri <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13221	13318	
==>aining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9893	9990	
==>aining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13221	13318	
==>aining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9893	9990	
==>aining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)> <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1106	1202	
==>re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1912	2108	
==>nt>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<star <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1912	2108	
==>nt>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<star <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3301	3403	
==>2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3301	3403	
==>2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6110	6217	
==>e::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be do <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5900	6004	
==>e::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be do <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4802	4894	
==>SCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4942	5034	
==>SCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20137	20236	
==>y accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19096	19195	
==>y accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20137	20236	
==>y accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19096	19195	
==>y accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2560	2660	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2560	2660	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This prog <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1773	1867	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3634	3728	
==>org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This prog <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4090	4222	
==>ames;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4090	4222	
==>ames;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of St <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9129	9223	
==>::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9129	9223	
==>::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	936	1067	
==>tart    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4175	4306	
==>tart    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	936	1067	
==>tart    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4175	4306	
==>tart    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_op <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2614	2776	
==>nstant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2625	2787	
==>nstant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ), <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4572	4667	
==>efs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny:: <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4572	4667	
==>efs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny:: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14139	14261	
==>= $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4216	4330	
==>= $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4216	4330	
==>= $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4216	4330	
==>= $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	988	1090	
==>Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connecti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	988	1090	
==>Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connecti <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6092	6212	
==>) {
      Renew(r->offsets, 2*len+1, U32);
      r->offsets[0] = len;
    }

    r->offsets[1] = RECOGNITION_FLAG;

    / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3071	3166	
==>ms ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( star <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3071	3166	
==>ms ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( star <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3071	3166	
==>ms ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( star <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	330	462	
==>err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $i <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	330	462	
==>err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $i <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1069	1199	
==>ript'";
   my $golf = 0;
   while (<FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2773	2875	
==>$_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2773	2875	
==>$_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2773	2875	
==>$_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32000	32102	
==>me heading as
the invocant Relation, and returns a new Relation that has the same heading
and whose bod <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33861	33963	
==>me heading as the
invocant Relation, and returns a new Relation that has the same heading and
whose bod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36550	36652	
==>me heading as
the invocant Relation, and returns a new Relation that has the same heading
and whose bod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38411	38513	
==>me heading as the
invocant Relation, and returns a new Relation that has the same heading and
whose bod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6332	6471	
==>next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3457	3596	
==>next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4306	4445	
==>next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	821	943	
==>= 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\((.*?)\)/) {
        my $op = $dict{$1 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1000	1121	
==>ut {
	my $self = shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6346	6470	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6346	6470	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6346	6470	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14169	14262	
==>e. 

If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~~ any(@keytests)> <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	131	231	
==>est, I've left this program pretty much
# unchanged from the original p5 Santa golf game of 2001.
# A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11026	11119	
==>lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11026	11119	
==>lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11026	11119	
==>lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6894	7033	
==>at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6894	7033	
==>at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpat <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	277	381	
==>05 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexi <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	277	381	
==>05 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3960	4053	
==>`Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3960	4053	
==>`Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2961	3085	
==>tantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $re <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2961	3085	
==>tantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	412	530	
==>number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	64	167	
==>e
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	64	167	
==>e
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21824	21923	
==>on to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26376	26475	
==>on to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2752	2859	
==>v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2518	2625	
==>e_ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2752	2859	
==>v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2752	2859	
==>v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8252	8393	
==>ix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4612	4753	
==>ix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5461	5602	
==>ix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7486	7590	
==>2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19702	19796	
==>automatically tries to use slight variations of the nickname in the
login phase (for example C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18683	18777	
==>automatically tries to use slight variations of the nickname in the
login phase (for example C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19702	19796	
==>automatically tries to use slight variations of the nickname in the
login phase (for example C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18683	18777	
==>automatically tries to use slight variations of the nickname in the
login phase (for example C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2133	2255	
==>.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2133	2255	
==>.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2133	2255	
==>.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).ui <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6041	6149	
==>:String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $s ~~ s:g <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37243	37392	
==>ub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2114	2212	
==>map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2114	2212	
==>map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2114	2212	
==>map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18329	18471	
==>= ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = $I0
    .return (self)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.redu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	952	1045	
==>th a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	952	1045	
==>th a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1032	1125	
==>th a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3609	3724	
==>are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3609	3724	
==>are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3609	3724	
==>are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'ti <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2024	2179	
==>ND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    my %hash = @_;
    
    my($repo_set, $inst_set);
    my $tmpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1892	1994	
==>-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1892	1994	
==>-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1892	1994	
==>-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        retu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7845	7964	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6975	7094	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7845	7964	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6975	7094	
==>t $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6896	6992	
==>erl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1336	1432	
==>erl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6896	6992	
==>erl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1336	1432	
==>erl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4703	4824	
==>= shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4556	4674	
==>= shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15295	15393	
==>lti sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Ha <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15353	15451	
==>lti sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Ha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1548	1703	
==>.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1548	1703	
==>.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $H <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	259	350	
==>named methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	259	350	
==>named methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16607	16761	
==>t_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16607	16761	
==>t_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16607	16761	
==>t_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6054	6185	
==>}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self->create($name, $value);
}

sub ge <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13664	13798	
==>rgs   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13664	13798	
==>rgs   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	485	585	
==>_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	485	585	
==>_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (H <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2347	2447	
==>printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patch <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2347	2447	
==>printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patch <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5221	5310	
==>IME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 enco <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5221	5310	
==>IME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 enco <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1359	1481	
==>ere are more types ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4158	4268	
==>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4158	4268	
==>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4158	4268	
==>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	882	1008	
==>[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	891	1017	
==>[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6240	6362	
==>) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6252	6374	
==>) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1924	2055	
==>umber" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Un <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1924	2055	
==>umber" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17533	17643	
==>) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13954	14064	
==>) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	393	541	
==>" 
        for keys %$param;
    my $self = { source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7063	7172	
==>her = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7063	7172	
==>her = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7063	7172	
==>her = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24687	24916	
==>')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->new($e, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	535	639	
==>_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	535	639	
==>_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	535	639	
==>_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16172	16270	
==>hecks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16172	16270	
==>hecks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5844	6010	
==>ividual todo tests unexpectedly passed
    max             Number of individual tests ran
    ok              Number of individual tests passed
    sub_skipped     Num <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3764	3900	
==>uantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3752	3888	
==>uantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	24	118	
==>.js$/ ? ($_) : ()} sort `find mozilla_js_tests`;
print "plan ".@jsfiles."\n";
foreach $jsfile ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23197	23283	
==>ernals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23197	23283	
==>ernals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23197	23283	
==>ernals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28801	28925	
==>$item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28801	28925	
==>$item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28801	28925	
==>$item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbox <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1006	1120	
==>available ISO-8601 duration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3385	3503	
==>w/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1169	1270	
==>s to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1169	1270	
==>s to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1169	1270	
==>s to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TOD <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	126	222	
==>pher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	126	222	
==>pher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print c <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4036	4118	
==>//linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L< <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4036	4118	
==>//linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1875	1976	
==>].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1875	1976	
==>].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1875	1976	
==>].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12941	13057	
==>{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12941	13057	
==>{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12941	13057	
==>{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19189	19317	
==>s */

=head2 The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3801	3906	
==>name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3801	3906	
==>name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3801	3906	
==>name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7384	7494	
==>||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7384	7494	
==>||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7384	7494	
==>||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass me <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	404	503	
==>X => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	924	1062	
==>r {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	924	1062	
==>r {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14520	14610	
==>es_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routin <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14520	14610	
==>es_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routin <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11110	11235	
==>) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishst <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11110	11235	
==>) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishst <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15688	15790	
==>er!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19165	19267	
==>er!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6086	6187	
==>n of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6086	6187	
==>n of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6086	6187	
==>n of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune m <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25318	25413	
==>or any single script that has failing subtests statistics like the
above are printed.

=item C<T <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16968	17086	
==>er.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20445	20563	
==>er.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20023	20141	
==>er.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6419	6532	
==>@hex > 1;
        return $S->force_object(anyof_char => chr(hex $h), "\\x[$h]");
      }

      return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6254	6365	
==>\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6242	6353	
==>\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6504	6597	
==>omebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6504	6597	
==>omebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $eve <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22327	22424	
==>hat Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22327	22424	
==>hat Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8247	8343	
==>an1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinit <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8247	8343	
==>an1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	301	397	
==>erse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	301	397	
==>erse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	301	397	
==>erse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5709	5819	
==>me or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5697	5807	
==>me or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12192	12300	
==>y also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12192	12300	
==>y also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTT <==
4	/Users/nnunley/pugs/util/addauthors.pl	541	675	
==>/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	436	540	
==>d scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	436	540	
==>d scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	436	540	
==>d scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9361	9455	
==>ccess a specific capture group, pass its numerical
value:

  my $capture_2 = $parser->captures( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12986	13118	
==>n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3007	3133	
==>rbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            war <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3007	3133	
==>rbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            war <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3007	3133	
==>rbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3942	4091	
==>ammar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecogni <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3255	3369	
==>h.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3255	3369	
==>h.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3255	3369	
==>h.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11686	11799	
==>}
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.n <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11686	11799	
==>}
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6749	6860	
==>ce => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6749	6860	
==>ce => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5171	5279	
==>ngine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5171	5279	
==>ngine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4966	5073	
==>_tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4966	5073	
==>_tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	634	749	
==>< $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1896	2011	
==>< $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	634	749	
==>< $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1896	2011	
==>< $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2730	2868	
==>nt($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::sign (Num $x) {
	return 0 if $x == 0;
	$x > 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	646	809	
==>} else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	646	809	
==>} else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	646	809	
==>} else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retur <==
4	/Users/nnunley/pugs/util/addauthors.pl	1383	1488	
==>/^\s+//;
  s/\s+$//;
  return $_;
}

sub readauthors {
  my $fh = IO::File->new("AUTHORS", "<:utf8");
  my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14414	14532	
==>);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().map:{
            %attrs{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	377	480	
==>tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	377	480	
==>tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	377	480	
==>tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4509	4665	
==>pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4509	4665	
==>pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	509	608	
==>plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	567	666	
==>plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8247	8357	
==>> that can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2402	2491	
==>Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_de <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2402	2491	
==>Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_de <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2402	2491	
==>Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24460	24574	
==>'$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24460	24574	
==>'$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24460	24574	
==>'$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6308	6407	
==>f->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_vars { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5430	5530	
==>fix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4560	4660	
==>fix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5430	5530	
==>fix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4560	4660	
==>fix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4920	5039	
==>ge
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4920	5039	
==>ge
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4920	5039	
==>ge
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elem <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1451	1568	
==>f->enter_scope; # opens a new scope

    $self->new_pad("name" => $value); # shadows any previous "name"

    $self->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12762	12946	
==>) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12762	12946	
==>) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12762	12946	
==>) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7352	7463	
==>head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_ST <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7352	7463	
==>head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_ST <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2615	2716	
==>u 
passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2615	2716	
==>u 
passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfou <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9990	10110	
==>ths {
    my $self = shift;
    my $text = shift;
    my $sep = File::Spec->catdir('');
    $text =~ s{\b/}{$sep}g;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	88	174	
==>mitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	88	174	
==>mitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	88	174	
==>mitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Nu <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7083	7222	
==>elete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @r <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5584	5723	
==>elete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @r <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6112	6209	
==>ence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRI <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6112	6209	
==>ence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRI <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11144	11255	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SEL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11144	11255	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SEL <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2698	2901	
==>0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2698	2901	
==>0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16827	16923	
==>optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16827	16923	
==>optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4513	4618	
==>F },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4513	4618	
==>F },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4513	4618	
==>F },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2513	2600	
==>o_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compile(< <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7445	7557	
==>ti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6575	6687	
==>ti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7445	7557	
==>ti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6575	6687	
==>ti sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	111	247	
==>mper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \& <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	153	289	
==>mper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	111	247	
==>mper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	153	289	
==>mper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	716	856	
==>n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ast) = @_;
    # runtime para <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5203	5331	
==>primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5203	5331	
==>primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5203	5331	
==>primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4222	4339	
==>at name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4222	4339	
==>at name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4222	4339	
==>at name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luk <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26086	26183	
==>e <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalIntegerL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16656	16766	
==>n unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13077	13187	
==>n unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4681	4777	
==>e($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3808	3904	
==>e($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4681	4777	
==>e($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3808	3904	
==>e($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	986	1119	
==>$m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# v <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	986	1119	
==>$m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5004	5102	
==>head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5004	5102	
==>head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5654	5758	
==>o_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5654	5758	
==>o_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5654	5758	
==>o_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11514	11646	
==>eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11508	11640	
==>eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2890	3042	
==>rm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate a list of methods
### see above for details
fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29327	29448	
==>items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29327	29448	
==>items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29327	29448	
==>items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7009	7162	
==>', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7009	7162	
==>', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9967	10116	
==>$param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            cal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9967	10116	
==>$param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            cal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8151	8273	
==>'+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8151	8273	
==>'+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] pe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18337	18440	
==>uch as persistence
solutions.  Moreover, these data structures are in exactly the right input
format for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18337	18440	
==>uch as persistence
solutions.  Moreover, these data structures are in exactly the right input
format for <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13242	13344	
==>uch as persistence solutions.
Moreover, these data structures are in exactly the right input format for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13242	13344	
==>uch as persistence solutions.
Moreover, these data structures are in exactly the right input format for <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22955	23054	
==>pproach over similar packages is that
text is always looked up by a key which is not meant to be mea <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22955	23054	
==>pproach over similar packages is that
text is always looked up by a key which is not meant to be mea <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7033	7128	
==>array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7033	7128	
==>array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	899	1011	
==>{ File::Path::mkpath($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2323	2430	
==>age PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2323	2430	
==>age PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2323	2430	
==>age PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1882	1975	
==>n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1882	1975	
==>n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1882	1975	
==>n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2558	2765	
==>nt unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2558	2765	
==>nt unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1177	1282	
==>'((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1177	1282	
==>'((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6323	6472	
==>dd_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6323	6472	
==>dd_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6323	6472	
==>dd_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attrib <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7019	7131	
==>nless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24282	24452	
==>new(
                params => method::params->new(
                              symbol->new('$self:'         => 'opaque'),
                              symbol->new('?@s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1062	1155	
==>rimitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1062	1155	
==>rimitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1062	1155	
==>rimitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1711	1806	
==>LER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1711	1806	
==>LER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1711	1806	
==>LER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11451	11541	
==>e}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2467	2577	
==>shift;
		my $h = indent;
		my $node = shift;
		warn "reducing " . qprintable($node) . "...";
		my $res = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4191	4295	
==>rgument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4191	4295	
==>rgument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4191	4295	
==>rgument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	691	808	
==>last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	691	808	
==>last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	691	808	
==>last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2358	2452	
==>fsets[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1140	1255	
==>below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.rou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2540	2637	
==>mpile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2540	2637	
==>mpile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2540	2637	
==>mpile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24250	24377	
==>ned $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24250	24377	
==>ned $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24250	24377	
==>ned $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{}, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26617	26711	
==>"∀α. α → α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t($plus_ten), "int → int" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4493	4583	
==>elf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4493	4583	
==>elf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4493	4583	
==>elf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1310	1433	
==>n bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1310	1433	
==>n bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1310	1433	
==>n bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PI <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1141	1258	
==>ie $?;
        system( qq[tar -f $Control -C $path/$Pms -cz .] )   and die $?;
        system( qq[tar -czf $archive $C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3022	3126	
==>$ref eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2149	2251	
==>_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2149	2251	
==>_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2149	2251	
==>_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14502	14667	
==>ange {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to des <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14502	14667	
==>ange {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to des <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14502	14667	
==>ange {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to des <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13942	14060	
==>} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10295	10420	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'imm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10574	10699	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'imm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	576	684	
==>b }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	576	684	
==>b }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31693	31822	
==>e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' => $e->get('$cou <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30347	30442	
==>utes
(provided in C<$heading>) may or may not resemble those of the original. 
The anonymous fun <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34899	34993	
==>utes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous fun <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34081	34175	
==>utes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous fun <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	7	104	
==>Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepa <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	7	104	
==>Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22808	22904	
==>,
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22808	22904	
==>,
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11195	11293	
==>d need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11195	11293	
==>d need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11195	11293	
==>d need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but an <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2664	2760	
==>type while Scalar::Util::blessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6273	6393	
==>f\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4257	4350	
==>PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4257	4350	
==>PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4257	4350	
==>PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1648	1749	
==>->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1648	1749	
==>->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1648	1749	
==>->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2772	2880	
==>6main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2772	2880	
==>6main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2772	2880	
==>6main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3481	3676	
==>H_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3481	3676	
==>H_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Local <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1092	1259	
==>'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1092	1259	
==>'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1286	1410	
==>ut is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1286	1410	
==>ut is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Que <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10156	10252	
==>t containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10156	10252	
==>t containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3739	3987	
==>erface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=h <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3739	3987	
==>erface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5008	5166	
==>,
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operati <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5008	5166	
==>,
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operati <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	580	712	
==>.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILN <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	580	712	
==>.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILN <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6274	6372	
==>ers. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a docu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6274	6372	
==>ers. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a docu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1301	1400	
==>- .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1301	1400	
==>- .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1301	1400	
==>- .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	110	206	
==>gs::Runtime::Match;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8572	8686	
==>:Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8560	8674	
==>:Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pug <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1799	1891	
==>Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Thi <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1799	1891	
==>Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20050	20311	
==>ther;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20050	20311	
==>ther;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20050	20311	
==>ther;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                P <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1963	2052	
==>\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]| <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3218	3329	
==>hod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3218	3329	
==>hod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9142	9246	
==>ly no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8842	8942	
==>ly no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	958	1089	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	958	1089	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12077	12194	
==>r/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12077	12194	
==>r/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1250	1388	
==>thout parameters
    return ''
        unless defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HAS <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4333	4434	
==>= %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4333	4434	
==>= %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4333	4434	
==>= %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5108	5226	
==>y $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5432	5550	
==>y $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15999	16103	
==>tr $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15999	16103	
==>tr $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	829	959	
==>{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	844	967	
==>{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12736	12832	
==>hout the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:den <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12736	12832	
==>hout the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:den <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20176	20280	
==>$argl = $param;
	while($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1$2;";
	}
	m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	68	157	
==>s file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	68	157	
==>s file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	916	1017	
==>wd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	883	984	
==>wd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10010	10107	
==>AMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming C <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10010	10107	
==>AMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7233	7336	
==>$pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	975	1086	
==>f
    return nil->new() unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2759	2855	
==>[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2759	2855	
==>[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2759	2855	
==>[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15399	15565	
==>y = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15399	15565	
==>y = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15399	15565	
==>y = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1304	1445	
==>e modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1651	1788	
==>e modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1258	1395	
==>e modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1651	1788	
==>e modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1153	1257	
==>$ident;\n";
}
sub node::require_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "requ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1552	1725	
==>efined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1552	1725	
==>efined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5451	5569	
==>Args} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5451	5569	
==>Args} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5451	5569	
==>Args} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no wa <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	846	945	
==>me;
  push @developers, $time unless $devs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should b <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8915	9017	
==>_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8973	9075	
==>_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6578	6696	
==>n1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6578	6696	
==>n1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2153	2236	
==>rl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/ <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2153	2236	
==>rl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	442	564	
==>def";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	442	564	
==>def";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	442	564	
==>def";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1713	1815	
==>gen_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2166	2375	
==>Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8815	8935	
==>tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	975	1087	
==>tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	975	1087	
==>tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31940	32043	
==>elation in its C<$other> argument, where <$other> has the same heading as
the invocant Relation, and ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33801	33904	
==>elation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relation, and ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36490	36593	
==>elation in its C<$other> argument, where <$other> has the same heading as
the invocant Relation, and ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38351	38454	
==>elation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relation, and ret <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2225	2327	
==>ce, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2225	2327	
==>ce, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3058	3159	
==>) and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3058	3159	
==>) and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7445	7557	
==>al emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4049	4161	
==>al emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4898	5010	
==>al emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::v <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1462	1566	
==>~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not supported on your platf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39377	39487	
==>my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39377	39487	
==>my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39377	39487	
==>my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	525	632	
==>( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
print q(#if key:<val> {10 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6613	6725	
==>ECK_ALL */

    
    /* XXX Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_compile
 */

static r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	746	860	
==>al {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1496	1585	
==>%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1496	1585	
==>%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1496	1585	
==>%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32735	32906	
==>lems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32735	32906	
==>lems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32735	32906	
==>lems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_lengt <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	358	452	
==>ookiesAdd('sid',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $value) { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16338	16435	
==>ia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned wil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16338	16435	
==>ia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned wil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1317	1411	
==>(Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1317	1411	
==>(Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2958	3098	
==>e->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol->new(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4767	4880	
==>e->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol->new(' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12506	12602	
==>t gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

So <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12506	12602	
==>t gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

So <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41119	41223	
==>::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41119	41223	
==>::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41119	41223	
==>::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	474	564	
==>($grammar)->( $_[0], undef, $tree, $tree )) if $ENV{DEBUG_lrep};
	Pugs::Runtime::Rule::rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2675	2834	
==>5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2868	3027	
==>5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5251	5387	
==>$_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5444	5580	
==>$_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1584	1735	
==>/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1584	1735	
==>/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

me <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16790	16935	
==>eg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21888	22033	
==>eg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3016	3140	
==>ircularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3016	3140	
==>ircularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3016	3140	
==>ircularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2692	2822	
==>n emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2692	2822	
==>n emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3245	3342	
==>$perl_version if defined $perl_version;
    return;
}

=pod

=head2 JIB::Utils->_version_to_number <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36046	36141	
==>nt and <$other> headings. 
The body of the new relation is the result of first pairwise-matching <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40596	40690	
==>nt and <$other> headings.
The body of the new relation is the result of first pairwise-matching <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40210	40304	
==>nt and <$other> headings.
The body of the new relation is the result of first pairwise-matching <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8320	8466	
==>\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	186	295	
==>s primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	186	295	
==>s primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	186	295	
==>s primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8940	9101	
==>$_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14669	14830	
==>$_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8940	9101	
==>$_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14663	14824	
==>$_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8848	8972	
==>x; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { fon <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3548	3646	
==>r 4

=item B<new>

This is a Factory method used to create a specific class instances which
perform <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3548	3646	
==>r 4

=item B<new>

This is a Factory method used to create a specific class instances which
perform <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5745	5843	
==>r 4

=item B<new>

This is a Factory method used to create a specific class instances which
perform <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3865	4051	
==>end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3865	4051	
==>end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20061	20155	
==>els C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20061	20155	
==>els C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37838	37931	
==>new relation is
the result of first pairwise-matching every tuple of each source relation
with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42387	42480	
==>new relation is
the result of first pairwise-matching every tuple of each source relation
with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42037	42130	
==>new relation is
the result of first pairwise-matching every tuple of each source relation
with <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	516	634	
==>install_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	428	544	
==>sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	428	544	
==>sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	428	544	
==>sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5583	5691	
==>ct
# at this point it reblesses itself

sub new {
	my $class = shift;
	bless {
		instance => undef,
	}, $clas <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4561	4658	
==>s C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4561	4658	
==>s C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6085	6182	
==>s C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38086	38251	
==>scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38086	38251	
==>scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38086	38251	
==>scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # st <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4784	4884	
==>= {};
my (@unresolved, @bad_regex, @bad_heading);

# Loading test results from yml file
my $tests = L <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	738	859	
==>_pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	738	859	
==>_pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	738	859	
==>_pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mix <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1873	1968	
==>EE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15980	16129	
==>_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15980	16129	
==>_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15980	16129	
==>_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1439	1564	
==>} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realcl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	588	700	
==>nt(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	588	700	
==>nt(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	588	700	
==>nt(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27143	27241	
==>$strA,$npos,$A)=@$a;
    my $str = join("",map{chr($_)} @$strA);
    my $cap = [map{mkMatch($len,$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2818	2922	
==>n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2818	2922	
==>n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2818	2922	
==>n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1683	1786	
==>ast/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5677	5777	
==>f->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	di <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5677	5777	
==>f->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	di <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6267	6367	
==>f->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	di <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23510	23597	
==>h Perl6::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })'
}
sub p6 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2209	2338	
==>dir}) };

    if($@) {
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}': $@] );
        return;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20465	20563	
==>0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20465	20563	
==>0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20465	20563	
==>0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25452	25586	
==>lf;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1552	1668	
==>{
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1552	1668	
==>{
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1552	1668	
==>{
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5469	5661	
==>hen rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5469	5661	
==>hen rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30955	31065	
==>ues[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1953	2055	
==><construct>  }
rule construct  { <construct_but_not_alias>|<alias> }
rule construct_but_not_alias { <su <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33438	33536	
==>elation contains only tuples that are in
all of the source Relations.  This method has an alias nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37988	38086	
==>elation contains only tuples that are in
all of the source Relations.  This method has an alias nam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9230	9327	
==>lize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9230	9327	
==>lize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9547	9707	
==>> $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok} <==
4	/Users/nnunley/pugs/util/config_h.pl	1004	1106	
==>print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	882	983	
==>ost (POE::Session $session, Str $event, *@args) {
    # Push our callback on @:events.
    ./:enqueue( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	109	205	
==>ngs;
no warnings 'redefine';

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25516	25612	
==>s Relation>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30068	30164	
==>s Relation>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	101	196	
==>am(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) retu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	101	196	
==>am(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1749	1874	
==>es -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5226	5351	
==>es -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4156	4281	
==>es -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5947	6045	
==>ata($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2536	2656	
==>rr) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_ms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2536	2656	
==>rr) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_ms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2536	2656	
==>rr) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_ms <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15070	15165	
==>pe variables in the cloned function to be instantiated to the concrete values as inferred in the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13436	13552	
==>andler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13436	13552	
==>andler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	225	314	
==>ase 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	225	314	
==>ase 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->cod <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51573	51745	
==>tr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set(' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3353	3459	
==>n's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6830	6936	
==>n's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5787	5893	
==>n's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8254	8353	
==>sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7384	7483	
==>sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8254	8353	
==>sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7384	7483	
==>sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Co <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Co <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6563	6673	
==>hift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Containe <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6563	6673	
==>hift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Containe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Co <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Co <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16153	16252	
==>urrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overla <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16153	16252	
==>urrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overla <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28220	28336	
==>hod returns a stringified version of this object which is suitable
for debugging purposes (such as to test that the o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35576	35692	
==>hod returns a stringified version of this object which is suitable
for debugging purposes (such as to test that the o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28220	28336	
==>hod returns a stringified version of this object which is suitable
for debugging purposes (such as to test that the o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35576	35692	
==>hod returns a stringified version of this object which is suitable
for debugging purposes (such as to test that the o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1597	1706	
==>symbol->new('%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5172	5275	
==>it('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5172	5275	
==>it('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5172	5275	
==>it('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2928	3045	
==>$!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2928	3045	
==>$!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2928	3045	
==>$!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	181	281	
==>ement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2815	2934	
==>zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ] <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2815	2934	
==>zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12466	12565	
==>r '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12466	12565	
==>r '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_he <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1197	1311	
==>ass: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1197	1311	
==>ass: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $sta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18600	18694	
==>etween multiple threads, nor have objects in separate
threads try to access the same external r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18600	18694	
==>etween multiple threads, nor have objects in separate
threads try to access the same external r <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2629	2728	
==>se};
}

# concatenate source files. hardcode special treatment to the Prelude,
# which is assumed to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1163	1261	
==>w PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1163	1261	
==>w PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1163	1261	
==>w PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      spr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2189	2316	
==>IB::Package::Installable->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Sour <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1399	1503	
==>my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1399	1503	
==>my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1399	1503	
==>my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11653	11877	
==>e'), 
                              symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->get('? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35639	35774	
==>ad ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35639	35774	
==>ad ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35639	35774	
==>ad ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop len <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11055	11174	
==>ce(char(C)) --> "\\t", {[C] = "\t"}, !. %# XXX - more

p6_simple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4753	4850	
==>...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4753	4850	
==>...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4753	4850	
==>...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	686	801	
==>ave to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	686	801	
==>ave to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20314	20409	
==>e it performs correctly
and reliably, it also performs quite slowly; you should only use Example <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20314	20409	
==>e it performs correctly
and reliably, it also performs quite slowly; you should only use Example <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5610	5720	
==>on, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5610	5720	
==>on, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5610	5720	
==>on, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cm <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9541	9648	
==>,
          expander = document.getElementById("expander_" + id);
      if(elem.className == "details") {
	e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22417	22542	
==>ub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22696	22821	
==>ub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16224	16314	
==>cale::KeyedText provides a simple but effective mechanism for
applications and packages tha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16224	16314	
==>cale::KeyedText provides a simple but effective mechanism for
applications and packages tha <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26329	26425	
==>te that while the Hash itself is copied on input and output, any
variable values which are refere <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26329	26425	
==>te that while the Hash itself is copied on input and output, any
variable values which are refere <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	67	162	
==>ackage
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set:: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	67	162	
==>ackage
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9155	9298	
==>>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9155	9298	
==>>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9155	9298	
==>>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	855	975	
==>a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' = <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2285	2496	
==>ef($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3873	4084	
==>ef($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2357	2455	
==>n 
Pugs, this port does it's best to work with those limitations and 
still produce a working versi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2357	2455	
==>n 
Pugs, this port does it's best to work with those limitations and 
still produce a working versi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16463	16560	
==>e, and potential
parameters will be chopped off and returned as a separate value if in
an array co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16463	16560	
==>e, and potential
parameters will be chopped off and returned as a separate value if in
an array co <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8283	8397	
==>{  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <Decimal <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	585	683	
==>jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	585	683	
==>jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	585	683	
==>jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1695	1785	
==>build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1695	1785	
==>build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1695	1785	
==>build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->nam <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6171	6280	
==>multi method Array::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_obje <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6676	6774	
==>hods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Sk <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6676	6774	
==>hods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Sk <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8873	8971	
==>hods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Sk <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3504	3620	
==>ound = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == . <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1815	1930	
==>ound = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == . <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2352	2467	
==>ound = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == . <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2914	3029	
==>ound = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == . <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	144	250	
==>ds;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMetho <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15322	15419	
==>their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value whe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15322	15419	
==>their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value whe <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4089	4186	
==>06 by Audrey Tang and others.

This program is free software; you can redistribute it and/or modif <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3429	3571	
==>t to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13656	13768	
==>ispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13656	13768	
==>ispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13656	13768	
==>ispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5154	5255	
==>nishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5154	5255	
==>nishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=i <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11731	11827	
==>entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:1 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11731	11827	
==>entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3424	3616	
==>= (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3671	3863	
==>= (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quan <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2499	2597	
==>t will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item E <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2499	2597	
==>t will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item E <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10729	10836	
==>runperl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29027	29122	
==>hich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33579	33674	
==>hich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32716	32811	
==>hich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16799	16915	
==>ew(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16799	16915	
==>ew(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	195	284	
==>::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	195	284	
==>::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5 <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	257	359	
==>@^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#! <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	257	359	
==>@^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#! <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18957	19053	
==>points to the underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8112	8204	
==>w();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar'), '... <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4047	4167	
==>: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::R <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3269	3362	
==>ting the expected output and diagnostic output of tests,
running those tests, and then telling <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3269	3362	
==>ting the expected output and diagnostic output of tests,
running those tests, and then telling <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3349	3442	
==>ting the expected output and diagnostic output of tests,
running those tests, and then telling <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5005	5143	
==>p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5005	5143	
==>p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5005	5143	
==>p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16459	16554	
==>ed.

Note: Most users should consider setting their I/O handles to autochomp
instead of this ste <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	628	750	
==>holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	628	750	
==>holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new matc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	250	352	
==>:Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	250	352	
==>:Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11689	11816	
==>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11689	11816	
==>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21980	22099	
==>return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18401	18520	
==>return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4489	4619	
==>patcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4489	4619	
==>patcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4489	4619	
==>patcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1069	1198	
==>n $?CLASS.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argument::Normalizer::Nul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14707	14835	
==>]->visual . $self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4573	4681	
==>t FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4573	4681	
==>t FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4573	4681	
==>t FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25051	25180	
==>}
rule QuantifierPrefix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <Decima <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	691	791	
==>ess->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	691	791	
==>ess->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	691	791	
==>ess->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::A <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7099	7210	
==>hile @rest {
    $head = $head[shift @rest];
  }
  $head;
}


# signature from S29draft.pod 8651.  In the List s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	879	982	
==>use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	879	982	
==>use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	879	982	
==>use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	885	982	
==>PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	885	982	
==>PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	885	982	
==>PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$na <==
4	/Users/nnunley/pugs/util/package-osx.pl	6620	6708	
==>an/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Perl6::Overview::Subr <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3938	4076	
==>tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3938	4076	
==>tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16208	16314	
==>test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtes <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6018	6117	
==>le phrasing, it doesnt parse.
multi method Array::as_seq (@array:) returns List {
    *@array
}
# na <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9796	9893	
==>urn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9796	9893	
==>urn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span ) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9241	9337	
==>urn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9241	9337	
==>urn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span ) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4839	4940	
==>f->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my $node = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	21	121	
==>strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From An <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	21	121	
==>strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From An <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	21	121	
==>strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From An <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	5	255	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert() <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	5	255	
==>r/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert() <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2282	2380	
==>ew bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2282	2380	
==>ew bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5778	5879	
==>UG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5778	5879	
==>UG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5778	5879	
==>UG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	913	1059	
==>EPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	913	1059	
==>EPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	659	759	
==>eys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	659	759	
==>eys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	283	431	
==>} : {}; 
    delete $param->{P5};
    delete $param->{Perl5};
    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2009	2100	
==>, "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2009	2100	
==>, "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2009	2100	
==>, "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11189	11338	
==>$.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11189	11338	
==>$.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        ret <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1310	1437	
==>t $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = " <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1310	1437	
==>t $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = " <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21942	22047	
==>$failedtests) {
        my $namelen = length $failedtests->{$script}->{name};
        $max_namelen = $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3967	4061	
==>checking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3967	4061	
==>checking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3967	4061	
==>checking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4656	4750	
==>match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4656	4750	
==>match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4656	4750	
==>match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	223	341	
==>y'),
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3635	3730	
==>ox.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3635	3730	
==>ox.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3635	3730	
==>ox.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2670	2765	
==>XX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2670	2765	
==>XX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2670	2765	
==>XX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23720	23857	
==>c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20141	20278	
==>c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4669	4782	
==>, }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4809	4922	
==>, }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5034	5185	
==>ucc = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5034	5185	
==>ucc = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1548	1683	
==>)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1343	1476	
==>)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17374	17469	
==>m-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17374	17469	
==>m-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17374	17469	
==>m-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38996	39144	
==>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38996	39144	
==>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38996	39144	
==>new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10917	11050	
==>s;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10917	11050	
==>s;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10917	11050	
==>s;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_privat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	906	1000	
==>X c/p'd from meta.pm -- subclass/inherit
=head2 $struct = $alt->to_struct;

=cut

sub to_struct <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	169	291	
==>Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4306	4432	
==>> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4306	4432	
==>> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print pos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3496	3596	
==>-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3680	3780	
==>-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19887	19982	
==>erwards.

If you want something similar but that is more mutable, you can accomplish
that manual <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24439	24534	
==>erwards.

If you want something similar but that is more mutable, you can accomplish
that manual <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22991	23086	
==>erwards.

If you want something similar but that is more mutable, you can accomplish
that manual <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	255	379	
==>.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule: <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	255	379	
==>.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3284	3402	
==>G> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This grou <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3284	3402	
==>G> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This grou <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15040	15153	
==>t and -M $dest <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO ima <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21579	21673	
==>UB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21579	21673	
==>UB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21579	21673	
==>UB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20085	20201	
==>ture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20364	20480	
==>ture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22207	22298	
==>item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22207	22298	
==>item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(chann <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2898	3015	
==>mit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13361	13461	
==>($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13361	13461	
==>($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13361	13461	
==>($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1121	1225	
==>'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1121	1225	
==>'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1121	1225	
==>'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16621	16714	
==>f a theoretical
exercise, a jump-start to built-in reversing capability in Perl.

=item Regexp <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1250	1372	
==>n,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expressed as
#     <no_LineTerminator_here>. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13772	13863	
==>:Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prote <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13772	13863	
==>:Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prote <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13772	13863	
==>:Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prote <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4313	4428	
==>l6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4313	4428	
==>l6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4313	4428	
==>l6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2018	2122	
==>])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8507	8611	
==>eturn $S->force_object(anyof_class => graph => $neg, $how);
  });

  # lower POSIX class
  $self->add_han <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2018	2122	
==>])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2018	2122	
==>])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3749	3872	
==>self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3749	3872	
==>self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3749	3872	
==>self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$cl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8142	8253	
==>n is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_p <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8534	8645	
==>n is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_p <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8142	8253	
==>n is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_p <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8534	8645	
==>n is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3521	3616	
==>self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3521	3616	
==>self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4111	4206	
==>self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17109	17248	
==>ess exp goto end
    $S0 = exp
    if $S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4321	4429	
==>$xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4321	4429	
==>$xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4321	4429	
==>$xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	793	898	
==>efined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	793	898	
==>efined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	793	898	
==>efined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23021	23134	
==>m => val(v => "foo", t => type::operator::nullary->new("str")),
				),
			),
		),
	),
);

my $map = let(
    ide = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7186	7278	
==>d('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7186	7278	
==>d('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7186	7278	
==>d('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15209	15327	
==>tements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15488	15606	
==>tements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4011	4115	
==>p;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4011	4115	
==>p;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.s <==
4	/Users/nnunley/pugs/util/combine_tests.pl	639	765	
==>bine_tests{
    #
    # Collect all the test results indexed on filename/number
    # into %sum
    #
    my %sum;
    my @revi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3903	4007	
==>$self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3903	4007	
==>$self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3903	4007	
==>$self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	103	204	
==>P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	103	204	
==>P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	103	204	
==>P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9883	10004	
==>e, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15724	15845	
==>e, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9883	10004	
==>e, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15718	15839	
==>e, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	63	157	
==>sertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it back <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12083	12177	
==>odel::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, then <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	63	157	
==>sertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it back <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12083	12177	
==>odel::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, then <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1309	1503	
==>se {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            ret <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1309	1503	
==>se {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            ret <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1856	1988	
==>=> string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1856	1988	
==>=> string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6364	6469	
==>ti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5494	5599	
==>ti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6364	6469	
==>ti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5494	5599	
==>ti sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4711	4816	
==>sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4711	4816	
==>sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @n <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3708	3798	
==>$set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3708	3798	
==>$set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7039	7137	
==>e 
the text of the header, that will be processed as a interpolated string (to allow for
any modifi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7039	7137	
==>e 
the text of the header, that will be processed as a interpolated string (to allow for
any modifi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3913	4009	
==>2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3913	4009	
==>2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6244	6365	
==>@$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6256	6377	
==>@$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2135	2301	
==>ray_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scalar @{$self->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	434	538	
==>y one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	434	538	
==>y one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	434	538	
==>y one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24731	24835	
==>t is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23495	23599	
==>t is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24731	24835	
==>t is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23495	23599	
==>t is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12302	12414	
==>un::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12302	12414	
==>un::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12302	12414	
==>un::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20441	20542	
==>erence( $!heading );

    return Relation::Example.new(
        heading => $!heading.union( $other!hea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	609	747	
==>HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	697	835	
==>HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	694	827	
==>HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3491	3684	
==>ed( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4420	4609	
==>ed( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3381	3570	
==>ed( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4420	4609	
==>ed( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18789	19016	
==>= @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18789	19016	
==>= @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18789	19016	
==>= @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	974	1142	
==>ir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4099	4224	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4099	4224	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4099	4224	
==>acky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method mi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	857	957	
==>s
# Perl6::Rule::Parser does NOT look like it's mature enough to bear
# our weight, to be a next step <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25580	25710	
==>->get('$self:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37043	37153	
==>return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37043	37153	
==>return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37043	37153	
==>return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13135	13252	
==>le', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21185	21302	
==>le', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13414	13531	
==>le', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21464	21581	
==>le', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18684	18799	
==>object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = spli <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20042	20157	
==>object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = spli <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5084	5184	
==>4 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64:: <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5084	5184	
==>4 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64:: <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8126	8245	
==>th(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), grep /^-l/, @_;
    #push @libs, grep / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11939	12045	
==>and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DES <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11939	12045	
==>and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DES <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11939	12045	
==>and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DES <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14299	14409	
==>t_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = tim <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14299	14409	
==>t_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = tim <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7060	7166	
==>n);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7060	7166	
==>n);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $ch <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4348	4484	
==>{
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4348	4484	
==>{
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9547	9647	
==>") or die; print F $_[1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8373	8466	
==>o' => sub { 
 '&Foo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::s <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1209	1316	
==>c} may contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1145	1243	
==>c} may contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	978	1072	
==>her C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	978	1072	
==>her C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	949	1075	
==>ch unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	949	1075	
==>ch unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	78	176	
==>)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

meth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	78	176	
==>)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30804	30981	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30804	30981	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30804	30981	
==>gth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	817	936	
==>Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[0]),
    bool => \\$bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12603	12752	
==>if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12603	12752	
==>if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12603	12752	
==>if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{po <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34735	34824	
==>this method returns the identity-one Relation::Example or the invocant relation,
respectiv <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3095	3227	
==>];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	825	929	
==>"<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	825	929	
==>"<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	825	929	
==>"<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as w <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2945	3068	
==>nd/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3102	3225	
==>nd/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2945	3068	
==>nd/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3102	3225	
==>nd/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3345	3508	
==>or my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29862	29954	
==>d attributes
that were wrapped, and it supports having old tuple-valued attributes which
have <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34414	34506	
==>d attributes
that were wrapped, and it supports having old tuple-valued attributes which
have <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33578	33670	
==>d attributes
that were wrapped, and it supports having old tuple-valued attributes which
have <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	836	1074	
==>s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	837	1075	
==>s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14074	14202	
==>lt = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14074	14202	
==>lt = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-f <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	376	513	
==>)) {
        # if there's no prefix, we want an install.
        $args[0] = 'install';
    }
    else {
        # If this is merely a copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	114	212	
==>needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	114	212	
==>needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	114	212	
==>needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7010	7145	
==>elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = rev <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7474	7609	
==>elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = rev <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9898	10032	
==>elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = rev <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1683	1809	
==>elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	416	521	
==>on (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	416	521	
==>on (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	416	521	
==>on (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1911	2059	
==>y $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1911	2059	
==>y $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9293	9419	
==>tch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9281	9407	
==>tch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2517	2629	
==>'(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2517	2629	
==>'(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2517	2629	
==>'(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval(" <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5063	5188	
==>elta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5063	5188	
==>elta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1795	1913	
==>meter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1795	1913	
==>meter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8064	8284	
==>,
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->exists($e->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	266	363	
==>T_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	266	363	
==>T_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	266	363	
==>T_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loca <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26386	26479	
==>original (or rather, the corresponding projection of
each tuple), but that any duplicates foll <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30938	31031	
==>original (or rather, the corresponding projection of
each tuple), but that any duplicates foll <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29940	30033	
==>original (or rather, the corresponding projection of
each tuple), but that any duplicates foll <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2063	2153	
==>------------------------------------------------------
## some metamodel tools

=pod

sub * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5310	5463	
==>_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5142	5288	
==>_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'ca <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1557	1651	
==>PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1557	1651	
==>PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3913	4044	
==>n unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3913	4044	
==>n unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4443	4568	
==>n unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4443	4568	
==>n unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4358	4485	
==>name' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$basen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	734	839	
==>->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	734	839	
==>->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	734	839	
==>->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1823	1927	
==>ot ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName} <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8954	9058	
==>t/Display.html?id=16375 fixes this,
        # but we can't rely upon everyone having it.  As such, we hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1823	1927	
==>ot ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1823	1927	
==>ot ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	721	846	
==>$x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	721	846	
==>$x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	721	846	
==>$x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}. <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5063	5153	
==>,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p6_range <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	76	225	
==>s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	76	225	
==>s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            po <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	859	1008	
==>$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				Thu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2942	3046	
==>t_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2942	3046	
==>t_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3022	3126	
==>t_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2324	2432	
==>h (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7418	7526	
==>h (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2324	2432	
==>h (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7418	7526	
==>h (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11127	11245	
==>login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so ou <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11127	11245	
==>login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so ou <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8748	8848	
==>s a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire v <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8748	8848	
==>s a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4982	5088	
==>ll in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We hav <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4982	5088	
==>ll in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We hav <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1795	1897	
==>param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1795	1897	
==>param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionN <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1044	1143	
==>n? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($exp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1044	1143	
==>n? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($exp <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	966	1064	
==>n? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($exp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	966	1064	
==>n? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($exp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15551	15670	
==>_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    meth <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15551	15670	
==>_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    meth <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4410	4505	
==>6($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4410	4505	
==>6($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10188	10309	
==>spatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10188	10309	
==>spatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10188	10309	
==>spatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%: <==
4	/Users/nnunley/pugs/util/version_h.pl	1743	1844	
==>f ($revision != $old_revision) {
  # As we've closed STDIN (filehandle #0), slot #0 is available for n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1148	1245	
==>SION = '0.61';
}

# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1287	1390	
==>l as a few other objects are implemented as one of three ADTs.

=over 4

=item Unit

A unit is an encaps <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	343	440	
==>alue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	343	440	
==>alue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	343	440	
==>alue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5125	5290	
==>d('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5113	5278	
==>d('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1436	1535	
==>n [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1436	1535	
==>n [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17330	17444	
==>/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11945	12058	
==>/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11945	12058	
==>/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11945	12058	
==>/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8205	8403	
==>od( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8205	8403	
==>od( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8205	8403	
==>od( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	698	794	
==>ktracking library (basically a set of simple
# macros) to make writing this kind of application e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6139	6230	
==>};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6139	6230	
==>};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6139	6230	
==>};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11522	11627	
==>)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22499	22604	
==>)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11522	11627	
==>)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11522	11627	
==>)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5542	5701	
==>ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif ( $ast->{stmt} eq '{' ) {
                $t = [ 'BLOCK_START' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14653	14747	
==>...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14653	14747	
==>...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14653	14747	
==>...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21130	21231	
==>ef, which has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20038	20139	
==>ef, which has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21130	21231	
==>ef, which has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20038	20139	
==>ef, which has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22290	22399	
==>to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if de <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18512	18621	
==>mple {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.union( $other!bo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22290	22399	
==>to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22290	22399	
==>to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if de <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5872	5974	
==>./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5872	5974	
==>./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3368	3503	
==>h->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3368	3503	
==>h->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3368	3503	
==>h->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15485	15578	
==>s
a front-end method for the parser.

=item Regexp::QuantAttr

Removes quantifiers as objects, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13527	13648	
==>ext;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator . <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13527	13648	
==>ext;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4917	5033	
==>for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __E <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4917	5033	
==>for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3731	3898	
==>$slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3731	3898	
==>$slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3731	3898	
==>$slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	637	732	
==>y_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { native( <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2488	2589	
==>nt {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY ! <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2488	2589	
==>nt {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY ! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3041	3138	
==>y === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6518	6615	
==>y === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4326	4458	
==>curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4326	4458	
==>curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4326	4458	
==>curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	877	1004	
==>al_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_CODE
       p6_var
       p6_assi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4565	4657	
==>t. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4315	4402	
==>_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4315	4402	
==>_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4315	4402	
==>_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12269	12373	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'ME <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6836	6940	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'ME <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12269	12373	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'ME <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6836	6940	
==>$meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'ME <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24136	24254	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24415	24533	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4415	4519	
==>s = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4415	4519	
==>s = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) return <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	21	119	
==>S is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub co <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	21	119	
==>S is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub co <==
4	/Users/nnunley/pugs/util/func_refact.pl	333	425	
==>use -initial <fname>, possibly many times, to
specify the initial set. -except <fname> introd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5347	5521	
==>h2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5347	5521	
==>h2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $mat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14252	14346	
==>thod who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14252	14346	
==>thod who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12638	12755	
==>the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12638	12755	
==>the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23191	23307	
==>aram => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12064	12160	
==>1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9185	9281	
==>1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12064	12160	
==>1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9185	9281	
==>1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9938	10081	
==>[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_la <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9938	10081	
==>[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_la <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9938	10081	
==>[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_la <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7835	7930	
==>sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprintf(stderr,"calling out.. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12055	12240	
==>&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15532	15717	
==>&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	100	207	
==>imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	100	207	
==>imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	100	207	
==>imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1286	1389	
==>Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1831	1930	
==>Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - ad <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1831	1930	
==>Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - ad <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25257	25345	
==>the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25257	25345	
==>the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13295	13472	
==>,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27409	27586	
==>,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13574	13751	
==>,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27688	27865	
==>,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1705	1838	
==>else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1705	1838	
==>else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1705	1838	
==>else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $:: <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11194	11297	
==>if a backend only ran three tests, which it
    passed, this page would report 100 % test passes.)
  </p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9953	10089	
==>nless defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9953	10089	
==>nless defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subru <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4759	4872	
==>n case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $se <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4618	4731	
==>n case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $se <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23018	23122	
==>0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3584	3683	
==>oo.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3584	3683	
==>oo.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3664	3763	
==>oo.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1678	1862	
==>r';             # buildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19204	19323	
==>:Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19204	19323	
==>:Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19204	19323	
==>:Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3303	3406	
==>rns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symme <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3303	3406	
==>rns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symme <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	386	557	
==>tr ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	386	557	
==>tr ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse( <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1215	1381	
==>orrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else { <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1215	1381	
==>orrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	439	533	
==>s: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed cl <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	439	533	
==>s: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1261	1366	
==>/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1261	1366	
==>/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1261	1366	
==>/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16500	16588	
==>,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1,E0,E1) :-
  r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4340	4485	
==><w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23140	23272	
==>-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1908	2011	
==>tf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} alr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1908	2011	
==>tf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} alr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1908	2011	
==>tf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} alr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26397	26616	
==>_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26397	26616	
==>_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26397	26616	
==>_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3320	3429	
==>ributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3320	3429	
==>ributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3320	3429	
==>ributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37403	37487	
==>'%:private_methods' => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:att <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	221	330	
==>urn $?SELF;
}

method addMethod(Method--Perl6 $meth) {
    ...
}

method apply() {
    ...
}


=head1 NAME

Ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7716	7815	
==>efault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7716	7815	
==>efault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7716	7815	
==>efault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tr <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3941	4045	
==>@index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@str <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3941	4045	
==>@index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@str <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23858	23952	
==>osetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23858	23952	
==>osetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6331	6444	
==>ro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6331	6444	
==>ro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6331	6444	
==>ro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUB <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2093	2187	
==>>warn(RPe_BADESC, "A", " in character class") if $cc;
    return $S->force_object(anyof_char => <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1039	1134	
==>mply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Re <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1039	1134	
==>mply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Re <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5202	5295	
==>);
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> i <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5202	5295	
==>);
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15950	16052	
==>Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15950	16052	
==>Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15950	16052	
==>Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26730	26823	
==>eleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Ty <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3202	3360	
==>section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a conf <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3202	3360	
==>section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a conf <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6479	6577	
==>:False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6479	6577	
==>:False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4723	4885	
==>setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.spa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5382	5544	
==>setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4723	4885	
==>setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5382	5544	
==>setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.spa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3446	3558	
==>section( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3446	3558	
==>section( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22750	22845	
==>ation attribute names that
define the heading of this Relation.  Each attribute name is a charac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27302	27397	
==>ation attribute names that
define the heading of this Relation.  Each attribute name is a charac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16083	16291	
==>>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16083	16291	
==>>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16083	16291	
==>>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unbo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	978	1102	
==>f->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

= <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6044	6170	
==>hod end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - t <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6044	6170	
==>hod end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - t <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5844	5943	
==>ure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5844	5943	
==>ure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5390	5518	
==>n ... ;
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an imp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22406	22523	
==>$xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22406	22523	
==>$xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22406	22523	
==>$xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6633	6816	
==>e sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue { <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6633	6816	
==>e sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20210	20310	
==>s_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4450	4665	
==>( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4450	4665	
==>( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4450	4665	
==>( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3826	3966	
==>my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4839	4977	
==>my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3707	3845	
==>my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4839	4977	
==>my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1872	2010	
==>}
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1872	2010	
==>}
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1872	2010	
==>}
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_i <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15590	15699	
==>content($beg_n, $end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1643	1759	
==>dx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1643	1759	
==>dx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1643	1759	
==>dx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1048	1176	
==>_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4045	4177	
==>op ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4045	4177	
==>op ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4045	4177	
==>op ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7779	7953	
==>that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8243	8417	
==>that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4209	4371	
==>that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4673	4835	
==>that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7158	7295	
==>od or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7158	7295	
==>od or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7158	7295	
==>od or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_meth <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2367	2480	
==>type => [ "Type" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_typed_value($_->type <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2649	2785	
==>ur
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the confi <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2649	2785	
==>ur
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the confi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5391	5498	
==>_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we alr <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5391	5498	
==>_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we alr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	372	519	
==>objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	372	519	
==>objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	372	519	
==>objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1872	2004	
==>>{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_name> ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8953	9162	
==>j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argument <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8953	9162	
==>j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argument <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8953	9162	
==>j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argument <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	581	676	
==>SA = qw(Test::TAP::Model);
our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3059	3164	
==>($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) => " . (CORE::join " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1932	2032	
==>f PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1932	2032	
==>f PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1932	2032	
==>f PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2226	2369	
==>($config->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $con <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6039	6129	
==>.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two c <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6039	6129	
==>.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8236	8326	
==>.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5539	5687	
==>rch.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6003	6151	
==>rch.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2048	2145	
==>$val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2048	2145	
==>$val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @value <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Runtime.pm	55	156	
==>e Perl6::Core::Closure;

$::ENV = closure::env->new();

sub get_top_level_env { $::ENV } 

1;

__END__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9830	9930	
==>names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9830	9930	
==>names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9830	9930	
==>names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1724	1847	
==>ell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1724	1847	
==>ell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1724	1847	
==>ell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    ty <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	32	126	
==>arable;

use Perl6::Core::Type::Equivalence;

package type::comparable;

use strict;
use warnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	513	645	
==>s push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	513	645	
==>s push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	513	645	
==>s push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9637	9721	
==>tem(char(A)), "-", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_charset_item(c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	936	1046	
==>ammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	936	1046	
==>ammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        boo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1930	2037	
==>e.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1930	2037	
==>e.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3898	4004	
==>_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3898	4004	
==>_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3898	4004	
==>_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	140	244	
==>es Grammar sections
# The full version is on misc/pX/Common/lrep*
# ***************

use strict;
use warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19345	19436	
==>$xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19345	19436	
==>$xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19345	19436	
==>$xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7090	7205	
==>_handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1683	1786	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1683	1786	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1683	1786	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4829	4932	
==>e => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5022	5125	
==>e => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subru <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9144	9239	
==>prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9144	9239	
==>prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_p <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2125	2244	
==>led: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2103	2222	
==>led: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3673	3775	
==>atch - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3673	3775	
==>atch - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4078	4182	
==>ou can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4078	4182	
==>ou can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

= <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	872	971	
==>.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specif <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	872	971	
==>.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1519	1624	
==>hmark::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => su <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	104	201	
==>A::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	104	201	
==>A::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	359	477	
==>$self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	359	477	
==>$self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	359	477	
==>$self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2851	2960	
==>ugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2851	2960	
==>ugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2851	2960	
==>ugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	36	155	
==>se 'Regexp::Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13059	13151	
==>1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13059	13151	
==>1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13059	13151	
==>1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2901	3026	
==>andler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO our <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2901	3026	
==>andler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO our <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	46	162	
==>split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @curren <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	46	162	
==>split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @curren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6758	6887	
==>efined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6758	6887	
==>efined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6758	6887	
==>efined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $star <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24254	24354	
==>$a);

	is($type->stringify, "∀α. α → α", "pretty print a -> a");
}
{
	my $type = type::operato <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1168	1267	
==>($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coer <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1168	1267	
==>($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coer <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1168	1267	
==>($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coer <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10735	10832	
==>::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11057	11163	
==>h::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11207	11313	
==>h::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24992	25089	
==>s a simple container which stores data to be used or
displayed by your program.  The Message class <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24992	25089	
==>s a simple container which stores data to be used or
displayed by your program.  The Message class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6150	6275	
==>quired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6150	6275	
==>quired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6150	6275	
==>quired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	666	773	
==>e can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2048	2149	
==>to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2048	2149	
==>to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2048	2149	
==>to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1168	1275	
==>onstant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1168	1275	
==>onstant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4155	4253	
==>tem * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=ite <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4339	4437	
==>tem * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8955	9054	
==>is code is free software, and may be used, distributed and/or modified under 
the same terms as Perl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3884	3983	
==>is code is free software, and may be used, distributed and/or modified under 
the same terms as Perl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8955	9054	
==>is code is free software, and may be used, distributed and/or modified under 
the same terms as Perl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3884	3983	
==>is code is free software, and may be used, distributed and/or modified under 
the same terms as Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4129	4242	
==>}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4129	4242	
==>}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4129	4242	
==>}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($b <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13982	14100	
==>ch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Sca <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13982	14100	
==>ch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Sca <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1377	1471	
==>ugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1377	1471	
==>ugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10024	10145	
==>order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7964	8085	
==>order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10024	10145	
==>order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7964	8085	
==>order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Return <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6483	6585	
==>\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self->generic_reduce <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7778	7945	
==>ry' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7778	7945	
==>ry' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7237	7347	
==>emented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule operator prec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1306	1395	
==>n { meth_call_term => $() } }
RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8682	8802	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8682	8802	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8682	8802	
==>( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29517	29614	
==>=item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE)

Whether this node is omitted from the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14167	14304	
==>sts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14167	14304	
==>sts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14167	14304	
==>sts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; de <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10668	10791	
==>ta} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[0] }) {
        last unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1023	1150	
==>hildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1023	1150	
==>hildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1023	1150	
==>hildNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10073	10215	
==>for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10073	10215	
==>for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10073	10215	
==>for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5066	5148	
==>le (Scalar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Placehol <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10387	10541	
==>] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10387	10541	
==>] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10387	10541	
==>] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5195	5289	
==>min} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' path!
Ple <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	458	598	
==>ef $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	458	598	
==>ef $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4723	4839	
==>);
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4723	4839	
==>);
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5493	5592	
==>expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5493	5592	
==>expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5493	5592	
==>expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	917	1060	
==>,
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	917	1060	
==>,
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18634	18730	
==>uct - attempting to make it look sufficiently
like what the core expects to avoid problems.  Whil <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2924	3020	
==>uct - attempting to make it look sufficiently
like what the core expects to avoid problems.  Whil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3159	3316	
==>ext;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3159	3316	
==>ext;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3159	3316	
==>ext;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $c <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	68	232	
==>File Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	654	765	
==>::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	654	765	
==>::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	654	765	
==>::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20109	20264	
==>r1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20388	20543	
==>r1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	102	212	
==>s_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = ob <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	102	212	
==>s_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = ob <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3434	3539	
==>ss($obj);

		return $class unless $class eq "PVMG";

		my $flags = $obj->flagspv;

		return "IV" if $flags <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	366	468	
==>ol::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	366	468	
==>ol::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	366	468	
==>ol::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5744	5885	
==>, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5756	5897	
==>, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1218	1341	
==>e for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # B <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4696	4819	
==>e for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	874	1001	
==>name = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	874	1001	
==>name = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22213	22315	
==>re each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26765	26867	
==>re each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Rel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13058	13166	
==>ce') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13058	13166	
==>ce') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13058	13166	
==>ce') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26197	26303	
==>minal. If it is not
set then it will default to C<COLUMNS>. If this is not set, it will
default to 80. Note <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10986	11120	
==>ch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10986	11120	
==>ch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10986	11120	
==>ch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Me <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	88	212	
==>IN {
    $VERSION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSIO <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7246	7351	
==>abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7246	7351	
==>abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1771	1870	
==>ack

=head2 Misc

=over 4

=item Blondie::Env

Note that this is not a Blondie::Node! You cannot exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	60	157	
==>ntents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	60	157	
==>ntents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	60	157	
==>ntents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accor <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23303	23394	
==>en objects of
multiple different Relation-implementing classes are used together, and
each d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7895	8013	
==>if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7895	8013	
==>if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7895	8013	
==>if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "pac <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2201	2307	
==>->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst->control_dir( $self->packag <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	495	613	
==>nce from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	495	613	
==>nce from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5359	5554	
==>y;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5359	5554	
==>y;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5359	5554	
==>y;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1539	1628	
==>-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2339	2481	
==>', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2339	2481	
==>', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11397	11492	
==>ugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11455	11550	
==>ugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10689	10804	
==>isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10689	10804	
==>isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iter <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21756	21853	
==>ew user message in
one of their own resource files.  At some appropriate place, usually in the
mai <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21756	21853	
==>ew user message in
one of their own resource files.  At some appropriate place, usually in the
mai <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6178	6296	
==>e => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6178	6296	
==>e => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13192	13291	
==>emented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we pro <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13250	13349	
==>emented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9405	9503	
==>esolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9405	9503	
==>esolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9405	9503	
==>esolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packag <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1461	1553	
==>le that reads the
output from Test::Simple, Test::More and other modules based on
Test::Build <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8635	8835	
==>am[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8635	8835	
==>am[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8635	8835	
==>am[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2116	2213	
==>ic Pugs Live CD.
It fetches kernel and GRUB from a public server (which can be specified below).
T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20786	20966	
==>os );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20786	20966	
==>os );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20786	20966	
==>os );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $el <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4747	4849	
==>bless( \%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13821	13919	
==>ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13879	13977	
==>ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6550	6646	
==>em B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can ei <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6550	6646	
==>em B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can ei <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38916	39074	
==>ew('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4683	4785	
==>b}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4683	4785	
==>b}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4683	4785	
==>b}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1381	1495	
==>is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1725	1837	
==>is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1332	1444	
==>is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1725	1837	
==>is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5847	5943	
==>dex_files = $repo->index_files(package => $pkg)

Returns a list of all index_files that a given p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1341	1457	
==>$_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1341	1457	
==>$_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { ret <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1990	2090	
==>tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1990	2090	
==>tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21194	21293	
==>der() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21194	21293	
==>der() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 C <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4228	4326	
==>= -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4228	4326	
==>= -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16203	16306	
==>s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16203	16306	
==>s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16203	16306	
==>s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	821	922	
==>londie::Emitter::Pretty; # in case the result is an AST
    
    print Blondie::Emitter::Pretty->new-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14765	14937	
==>s}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14765	14937	
==>s}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14765	14937	
==>s}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self-> <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17196	17302	
==>, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primitive is builtin is safe {
    my $flen = $fmt <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2946	3046	
==>turns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns St <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2946	3046	
==>turns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns St <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12103	12195	
==>nd C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12103	12195	
==>nd C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1528	1625	
==>/.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4093	4187	
==>{$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4093	4187	
==>{$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4093	4187	
==>{$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10308	10401	
==>et.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
insert <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8201	8294	
==>et.insert(...)>

Inserts the specifiend items into the set. Returns the number of items insert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10308	10401	
==>et.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
insert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8201	8294	
==>et.insert(...)>

Inserts the specifiend items into the set. Returns the number of items insert <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9986	10100	
==>->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $ifthen- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3983	4084	
==>control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3983	4084	
==>control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3983	4084	
==>control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16901	17069	
==>> sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16901	17069	
==>> sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16901	17069	
==>> sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fet <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20977	21064	
==>rnals::require($module);
    Pugs::Internals::require_use_helper(Bool::False,$module);
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3560	3685	
==>y $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4877	5002	
==>y $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3560	3685	
==>y $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4865	4990	
==>y $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8429	8540	
==>imit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - A <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8429	8540	
==>imit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - A <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2902	2998	
==>rrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurren <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2902	2998	
==>rrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurren <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	8	121	
==>Pugs::Grammar::Category;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23388	23479	
==>e a compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23388	23479	
==>e a compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedT <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7223	7314	
==>Blondie::Backend::C::Builtins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	957	1087	
==>de(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	957	1087	
==>de(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	957	1087	
==>de(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39630	39721	
==>s to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24353	24444	
==>s to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39630	39721	
==>s to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24353	24444	
==>s to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12944	13060	
==>};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12944	13060	
==>};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12944	13060	
==>};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4575	4670	
==>KES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4575	4670	
==>KES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4575	4670	
==>KES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the <==
4	/Users/nnunley/pugs/misc/IDE-support/server.pl	93	181	
==>erlay (overlays-in (point-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from + <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	536	634	
==>age Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	536	634	
==>age Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30939	31033	
==>omes next and is what distinguishes each module from others in
its set. For maximum flexibility <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30939	31033	
==>omes next and is what distinguishes each module from others in
its set. For maximum flexibility <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4698	4864	
==>en ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5357	5523	
==>en ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4698	4864	
==>en ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5357	5523	
==>en ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9267	9367	
==>ULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9267	9367	
==>ULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9267	9367	
==>ULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI S <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	377	477	
==>smokeserv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokese <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33088	33175	
==>med
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37638	37725	
==>med
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36982	37069	
==>med
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rela <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7854	8035	
==>&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11331	11512	
==>&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10495	10676	
==>&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (R <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4541	4642	
==>ase = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin' <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3902	4017	
==>r->[0], $r->[1], $r->[2]) }
}

sub CheckMid {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1836	1945	
==>ammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1836	1945	
==>ammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5553	5653	
==>andler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	142	244	
==>so at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	142	244	
==>so at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6812	6908	
==>d, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=ov <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6812	6908	
==>d, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=ov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2602	2696	
==>rn value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2602	2696	
==>rn value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2602	2696	
==>rn value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4580	4729	
==>edence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list',
        precedence = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6149	6239	
==>UB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6149	6239	
==>UB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6149	6239	
==>UB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34793	34889	
==>mes => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit ch <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13639	13735	
==>ormula cannot be satisfied within a 
reasonable range of values.

You should consider using a Set <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34793	34889	
==>mes => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit ch <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13639	13735	
==>ormula cannot be satisfied within a 
reasonable range of values.

You should consider using a Set <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	447	551	
==>2 new()

Create an iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($prot <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36387	36481	
==>tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40936	41030	
==>tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40550	40644	
==>tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8066	8164	
==>ions on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8066	8164	
==>ions on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17218	17315	
==>ts a virtual machine that is embedded in your Perl application and
in which the Rosetta D code run <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17218	17315	
==>ts a virtual machine that is embedded in your Perl application and
in which the Rosetta D code run <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3210	3323	
==>base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5934	6033	
==>"// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5934	6033	
==>"// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5934	6033	
==>"// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	859	963	
==>retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	859	963	
==>retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	859	963	
==>retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retc <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14243	14346	
==>local string cname
    newfrom = find_global "PGE::Match", "newfrom"
    $P0 = getattribute mob, "PGE::M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2563	2665	
==>c) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3518	3620	
==>c) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3965	4058	
==>ie "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3965	4058	
==>ie "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3965	4058	
==>ie "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2194	2312	
==>:$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2589	2707	
==>:$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2252	2370	
==>:$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2647	2765	
==>:$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim( <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2500	2634	
==>eys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	326	427	
==>s_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	326	427	
==>s_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	326	427	
==>s_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	958	1139	
==>se($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0. <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	958	1139	
==>se($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9192	9328	
==>) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10669	10805	
==>) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisf <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1549	1676	
==>}

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->pac <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4752	4879	
==>}

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->pac <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17095	17202	
==>le danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22195	22302	
==>le danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7604	7716	
==>n ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8089	8201	
==>rson_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8089	8201	
==>rson_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7604	7716	
==>n ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4202	4305	
==>claim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &co <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4260	4363	
==>claim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &co <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1728	1824	
==>pe is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method captur <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1728	1824	
==>pe is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method captur <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	439	561	
==>.$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the keys i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22544	22744	
==>=> 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5317	5437	
==>my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5317	5437	
==>my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5317	5437	
==>my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	458	562	
==>assing.  While
# the spike "coded to the tests", and thus is far from being a
# complete p5 compatible re <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3705	3804	
==>dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3705	3804	
==>dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22320	22418	
==>d "Unrecognized escape" warnings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14862	15038	
==>uct;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) returns Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4736	4864	
==>not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4736	4864	
==>not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4736	4864	
==>not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $bod <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1750	1870	
==>rt { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @_.shift eq $_ or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	234	334	
==>per_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	234	334	
==>per_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	234	334	
==>per_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16309	16432	
==>ch_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7321	7428	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10798	10905	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9935	10042	
==>ion."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9423	9524	
==>5_charset_item(class_pos(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_charset_item(R) --> p56_cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6502	6588	
==>'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6502	6588	
==>'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6502	6588	
==>'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Mo <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1606	1724	
==>turn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for sta <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1606	1724	
==>turn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for sta <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	271	367	
==>eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain no <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	271	367	
==>eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3293	3457	
==>xt; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3293	3457	
==>xt; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3293	3457	
==>xt; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END_ <==
4	/Users/nnunley/pugs/util/package-osx.pl	11266	11418	
==>/rm \-rf \$file 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Success <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	46	145	
==>om src/Pugs/Types.hs

# I can't think of a simple way to express the junctive, higher order
# nature <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	16	113	
==>ateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_durat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	16	113	
==>ateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_durat <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2723	2807	
==>t
L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://new <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2723	2807	
==>t
L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://new <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3669	3916	
==>ss Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3669	3916	
==>ss Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6708	6859	
==>ndef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6708	6859	
==>ndef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

me <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4653	4810	
==>t/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4653	4810	
==>t/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18739	18846	
==>mation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18739	18846	
==>mation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	558	666	
==>ers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	558	666	
==>ers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	558	666	
==>ers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glob <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7458	7557	
==>- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implemen <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2848	2947	
==>:Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$u <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7458	7557	
==>- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implemen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2848	2947	
==>:Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33908	34003	
==>r to communicate in, and what their backup choices are,
in order, if preferred ones aren't suppo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33908	34003	
==>r to communicate in, and what their backup choices are,
in order, if preferred ones aren't suppo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6157	6255	
==>ore complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
par <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6157	6255	
==>ore complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
par <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2897	2992	
==>ub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fie <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2897	2992	
==>ub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fie <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2087	2237	
==>efix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after install
$ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15984	16105	
==>e
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Match\x0$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2832	2931	
==>re, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2729	2824	
==>re, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load P <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5453	5575	
==>self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $fil <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5959	6067	
==>self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $fil <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1130	1228	
==>lf.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1130	1228	
==>lf.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9942	10104	
==>ted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{p <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11419	11581	
==>ted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8209	8332	
==>]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8197	8320	
==>]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	87	194	
==>put;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	87	194	
==>put;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3838	3947	
==>r debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3838	3947	
==>r debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3838	3947	
==>r debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAM <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5235	5341	
==>on` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_ver <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1548	1672	
==>::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1559	1683	
==>::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' ) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3048	3150	
==>rsect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3048	3150	
==>rsect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	680	813	
==>REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	680	813	
==>REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1900	1999	
==>> 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1900	1999	
==>> 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', na <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3216	3343	
==>ool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3409	3536	
==>ool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9228	9344	
==>ASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9228	9344	
==>ASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16306	16434	
==>_{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16306	16434	
==>_{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	851	969	
==>: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no stri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1057	1175	
==>: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1982	2128	
==>oup {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1982	2128	
==>oup {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4344	4433	
==>$match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4594	4683	
==>$match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Ru <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4712	4829	
==>or my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2130	2238	
==>_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2130	2238	
==>_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2130	2238	
==>_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17254	17351	
==>an($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13675	13772	
==>an($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25375	25470	
==>eturns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29927	30022	
==>eturns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28866	28961	
==>eturns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3689	3780	
==>: $warn\n" if $warn;
	    $self->{'pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3501	3596	
==>param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $cur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3501	3596	
==>param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $cur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4091	4186	
==>param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $cur <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6404	6499	
==>ther_results();
}

# the wait here is sequential rather than nonblocking / as-they-come, because <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24131	24265	
==>b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24131	24265	
==>b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24131	24265	
==>b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2885	2998	
==>\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2885	2998	
==>\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2885	2998	
==>\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $na <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	322	425	
==>new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a comparable t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	773	875	
==>ext.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	773	875	
==>ext.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	773	875	
==>ext.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC} <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5102	5223	
==>or: file '$head' not found.\n";
-f $tail or die "error: file '$tail' not found.\n";
-f $rev  or die "error: file '$rev' no <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10616	10736	
==>an::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creati <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10616	10736	
==>an::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creati <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25360	25461	
==>stic that disables the test if it usually matches.]
 *
 * [In fact, we now use regmust in many cases t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2172	2359	
==>{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3281	3407	
==>PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3281	3407	
==>PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3281	3407	
==>PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1537	1734	
==>($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1537	1734	
==>($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14712	14801	
==>nd never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14712	14801	
==>nd never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1772	1927	
==>tate"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1713	1864	
==>tate"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $mat <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1475	1584	
==>=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pa <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1475	1584	
==>=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14148	14260	
==>$f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12293	12386	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12293	12386	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12293	12386	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11722	11891	
==>"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11722	11891	
==>"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11722	11891	
==>"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7024	7126	
==>pos, "\\1 and \\012 illegal, use $1, \\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3976	4070	
==>r
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3976	4070	
==>r
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3976	4070	
==>r
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	842	939	
==>the remote user that is using your CGI. 
It also attempts to provide some useful defaults for debu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	842	939	
==>the remote user that is using your CGI. 
It also attempts to provide some useful defaults for debu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3430	3524	
==>.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3430	3524	
==>.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1252	1338	
==>ternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1252	1338	
==>ternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1252	1338	
==>ternals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(functio <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	365	487	
==>:Dumper;
$Data::Dumper::Indent = 1;

### only called from JIB::Package
sub new {
    my $self    = shift;
    my %hash    = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10072	10192	
==>p}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10072	10192	
==>p}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10072	10192	
==>p}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		n <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1935	2079	
==>0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37589	37705	
==>umify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37589	37705	
==>umify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37589	37705	
==>umify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless define <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6453	6561	
==>/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6453	6561	
==>/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6453	6561	
==>/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	792	891	
==>oxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	792	891	
==>oxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	792	891	
==>oxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - ret <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6270	6361	
==>al(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !.
p5_element <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2587	2725	
==>t("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.prin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2587	2725	
==>t("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.prin <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1324	1419	
==>ned by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for ac <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1324	1419	
==>ned by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for ac <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	17	118	
==>se v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	17	118	
==>se v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTT <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4991	5091	
==>$document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4991	5091	
==>$document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1953	2069	
==>on = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1953	2069	
==>on = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2033	2149	
==>on = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6615	6720	
==>ike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $name, @me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12158	12266	
==>]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12158	12266	
==>]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3963	4054	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=hea <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3963	4054	
==>ti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16290	16393	
==>l6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16290	16393	
==>l6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16290	16393	
==>l6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4839	4932	
==>he fourth id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1758	1886	
==>type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $self;
  }
}


{
  # . \C
  package Regexp::Parser::reg_an <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5505	5598	
==>C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5505	5598	
==>C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7029	7122	
==>C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9294	9408	
==>color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type <==
4	/Users/nnunley/pugs/util/package-osx.pl	1194	1296	
==>local/man/man3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/libhistory.a
    ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	542	639	
==>t is packed in an Object with
# the property .FETCH() holding the original value. This is necessar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	542	639	
==>t is packed in an Object with
# the property .FETCH() holding the original value. This is necessar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	542	639	
==>t is packed in an Object with
# the property .FETCH() holding the original value. This is necessar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26440	26529	
==>classes.push($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) retu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5053	5205	
==>s }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # compleme <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5053	5205	
==>s }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # compleme <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2706	2803	
==>tement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2706	2803	
==>tement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	204	316	
==>.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	204	316	
==>.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	204	316	
==>.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	298	502	
==>CODE' };

use constant IS_FILE        => sub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2221	2320	
==>xamples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are check <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2221	2320	
==>xamples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are check <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2221	2320	
==>xamples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2241	2339	
==>TCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2241	2339	
==>TCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2241	2339	
==>TCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26446	26533	
==>e::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:query :interac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1256	1384	
==>undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1256	1384	
==>undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1256	1384	
==>undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defin <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	915	1037	
==>$" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2

## XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	728	845	
==>s(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	933	1050	
==>s(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	989	1106	
==>s(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10606	10812	
==>@classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10606	10812	
==>@classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	928	1023	
==>lts for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	928	1023	
==>lts for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15907	16020	
==>object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10763	10876	
==>object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	646	754	
==>r needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	646	754	
==>r needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13933	14049	
==>1]->{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3674	3775	
==>not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3674	3775	
==>not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3674	3775	
==>not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	322	433	
==>$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	322	433	
==>$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	322	433	
==>$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(" <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	63	144	
==>b/perl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::Instal <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22983	23080	
==>ach Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping ke <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27535	27632	
==>ach Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping ke <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26312	26409	
==>ach Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping ke <==
4	/Users/nnunley/pugs/util/grokprims.pl	2461	2558	
==>>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\n";
}

print "</table></body></ht <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1760	1944	
==>ach %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	304	409	
==>a("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	304	409	
==>a("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	304	409	
==>a("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3787	3889	
==>response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3787	3889	
==>response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11067	11161	
==>returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11125	11219	
==>returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10455	10565	
==>.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17397	17507	
==>.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10455	10565	
==>.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17397	17507	
==>.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19299	19409	
==>y);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines {
    my($s)=@_;
    my $cn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8129	8233	
==>(more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8129	8233	
==>(more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8129	8233	
==>(more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->sup <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	336	432	
==>ause
# er kann auch sehr einfach verkettet werden:
my $option = %para{'x'} // %conf{'x'} // "wert <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30670	30768	
==>t represent a single
language.

The name of each Template module has two parts, the Set Name and th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30670	30768	
==>t represent a single
language.

The name of each Template module has two parts, the Set Name and th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39199	39282	
==>Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::S <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39199	39282	
==>Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::S <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4634	4734	
==>ion( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4634	4734	
==>ion( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_spa <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3835	3928	
==>b.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L< <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3835	3928	
==>b.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L< <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3869	4018	
==>ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	42	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	42	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	42	153	
==>ict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bles <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7008	7101	
==>um_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $neg <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7066	7159	
==>um_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $neg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24397	24488	
==>tp://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24397	24488	
==>tp://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4691	4803	
==>rong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4703	4815	
==>rong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? < <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2694	2805	
==>ex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &contin <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2694	2805	
==>ex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &contin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5706	5904	
==>e "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5706	5904	
==>e "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2851	2997	
==>mplemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work y <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3035	3181	
==>mplemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work y <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1216	1356	
==>less $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_cu <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1216	1356	
==>less $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_cu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1950	2038	
==>Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1950	2038	
==>Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	377	487	
==>0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	377	487	
==>0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	377	487	
==>0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24928	25037	
==><'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierP <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11785	11885	
==>n the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8932	9032	
==>n the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11785	11885	
==>n the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8932	9032	
==>n the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=he <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22725	22811	
==>harset_member(_,C,[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
charset_memb <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4448	4551	
==>ndex[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4448	4551	
==>ndex[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22429	22521	
==>han")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22429	22521	
==>han")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12226	12324	
==>Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16806	16904	
==>Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12226	12324	
==>Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16806	16904	
==>Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in th <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19848	19959	
==>.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <Statement>
    | <Stateme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3008	3116	
==>param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3008	3116	
==>param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3008	3116	
==>param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10991	11127	
==>ed)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10991	11127	
==>ed)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10991	11127	
==>ed)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3124	3214	
==>ternals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $base) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23733	23831	
==>ttp://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The diffe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22506	22604	
==>ttp://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The diffe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23733	23831	
==>ttp://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The diffe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22506	22604	
==>ttp://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The diffe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1211	1342	
==>y, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1211	1342	
==>y, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12324	12438	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12603	12717	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	709	893	
==>tr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWOR <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7174	7285	
==>ty => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__END <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7174	7285	
==>ty => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__END <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	39	134	
==>$class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	39	134	
==>$class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	39	134	
==>$class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	613	708	
==>urn Pugs::Compiler::RegexPerl5->compile( $rule_source, $param )
        if exists $param->{P5} | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6720	6831	
==>y($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nons <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6720	6831	
==>y($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nons <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6720	6831	
==>y($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nons <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6139	6231	
==>_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2103	2294	
==>ble = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5580	5771	
==>ble = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4510	4701	
==>ble = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!head <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	84	181	
==>e above line is uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($var) r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3390	3496	
==>_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	203	298	
==>from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	203	298	
==>from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	203	298	
==>from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1596	1710	
==>arse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1596	1710	
==>arse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1596	1710	
==>arse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  war <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27965	28061	
==>rent version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<H <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20551	20651	
==>you to force a
specific spelling.  For example if you really want a header field name
to show up as C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20551	20651	
==>you to force a
specific spelling.  For example if you really want a header field name
to show up as C <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	43	174	
==>my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'en <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	43	174	
==>my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'en <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	43	174	
==>my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'en <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	43	174	
==>my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'en <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5234	5391	
==>f $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5234	5391	
==>f $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8074	8215	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8267	8408	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1403	1511	
==>eref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1403	1511	
==>eref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1403	1511	
==>eref) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2J <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8123	8221	
==>itches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2609	2729	
==>->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12296	12406	
==>$s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uni <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12296	12406	
==>$s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uni <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12296	12406	
==>$s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uni <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10671	10801	
==>"$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10665	10795	
==>"$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1194	1312	
==>o Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1194	1312	
==>o Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2546	2874	
==>ement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11793	11930	
==>array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11793	11930	
==>array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11793	11930	
==>array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/util/run-smoke.pl	543	644	
==>.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location   = $ARG <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1938	2037	
==>JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1938	2037	
==>JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1938	2037	
==>JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanc <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6565	6664	
==>IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3919	4018	
==>IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6565	6664	
==>IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3919	4018	
==>IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a str <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2613	2719	
==>T

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2613	2719	
==>T

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1824	1926	
==>T

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3685	3787	
==>T

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17493	17592	
==>erface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17493	17592	
==>erface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17493	17592	
==>erface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5691	5784	
==>Get document headers. Depending on the context, C<head> returns
the following values:

=over 4 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5691	5784	
==>Get document headers. Depending on the context, C<head> returns
the following values:

=over 4 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9779	9948	
==>now how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9779	9948	
==>now how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9779	9948	
==>now how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch shou <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6932	7045	
==>re is necessary to destroy all possible bindings
            # user code has to @array[$off+$i], see t/operators/b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3739	3904	
==>keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3739	3904	
==>keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1554	1656	
==>ns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1612	1714	
==>ns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13332	13466	
==>$len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13332	13466	
==>$len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13332	13466	
==>$len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2217	2351	
==>$len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2165	2261	
==>}
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2165	2261	
==>}
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2165	2261	
==>}
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatch <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1336	1437	
==>o or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1336	1437	
==>o or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8169	8265	
==>y text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbati <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8169	8265	
==>y text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbati <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18762	18868	
==>sn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17805	17911	
==>sn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18762	18868	
==>sn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17805	17911	
==>sn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33686	33785	
==>difference (Relation $other!) returns Relation>

This method is a generic relational operator that t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38236	38335	
==>difference (Relation $other!) returns Relation>

This method is a generic relational operator that t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34221	34318	
==>difference (Relation $other!) returns Relation>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38771	38868	
==>difference (Relation $other!) returns Relation>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6889	7006	
==>4),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6889	7006	
==>4),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240) <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2419	2515	
==>ck Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or mo <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2419	2515	
==>ck Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13830	13924	
==>om_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13830	13924	
==>om_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13830	13924	
==>om_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5695	5844	
==>cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5695	5844	
==>cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5695	5844	
==>cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1233	1334	
==>o, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi  Num:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11011	11132	
==>params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11011	11132	
==>params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11011	11132	
==>params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9221	9324	
==>);
}

multi method union (Relation::Example *@others) returns Relation::Example {

    for @others -> $r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15542	15657	
==>2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling la <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15542	15657	
==>2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling la <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12163	12264	
==>art, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12163	12264	
==>art, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span. <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4647	4758	
==>eps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4506	4617	
==>eps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly i <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	424	525	
==>woc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.look <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	424	525	
==>woc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.look <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	750	845	
==>s "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	750	845	
==>s "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	750	845	
==>s "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	65	158	
==>w/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

use strict;
use warnings;

use UNIVERSA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16546	16648	
==>_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  retu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16546	16648	
==>_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31895	31994	
==>erates an error
message and wants it shown to the user, the main program would check each
of the 3 T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31895	31994	
==>erates an error
message and wants it shown to the user, the main program would check each
of the 3 T <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3148	3246	
==>they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3148	3246	
==>they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2876	2965	
==>gs \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2876	2965	
==>gs \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3927	4046	
==>);
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8339	8450	
==>tput => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	549	648	
==>tput => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	549	648	
==>tput => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1308	1408	
==>,   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1308	1408	
==>,   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1308	1408	
==>,   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4035	4207	
==>whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4035	4207	
==>whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	406	538	
==>s
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	406	538	
==>s
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12858	12960	
==>set (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9634	9736	
==>set (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12858	12960	
==>set (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9634	9736	
==>set (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1203	1307	
==>t what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1203	1307	
==>t what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1203	1307	
==>t what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17918	18014	
==>they are
essentially all isolated from each other, even if more than one uses the
same Engine cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17918	18014	
==>they are
essentially all isolated from each other, even if more than one uses the
same Engine cla <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	923	1018	
==>(unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my meth <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	923	1018	
==>(unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my meth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25317	25463	
==>->get('$self:')->set_attr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->ge <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1208	1357	
==>ould not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1208	1357	
==>ould not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3961	4065	
==>k $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBin <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3961	4065	
==>k $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16592	16703	
==>..
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
block <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16592	16703	
==>..
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
block <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	154	252	
==>$x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *inf <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	154	252	
==>$x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *inf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8786	8929	
==>ool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8786	8929	
==>ool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	90	192	
==>egex engine I
started over the weekend.  A "look at what I'm up to".

It passes most (95%) of a perl 5. <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	714	814	
==>self->module_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this dis <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1014	1124	
==>Foo but not x" is expressed as
#     <!before x> <Foo>
#   * "lookahead is not an element of { x }" is expresse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5831	5936	
==>,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5831	5936	
==>,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5831	5936	
==>,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	389	491	
==>_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	389	491	
==>_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	389	491	
==>_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1699	1797	
==>->FETCH('::Test')->FETCH('::Fail')->new(
                '$.description' => $params{'$.description' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11526	11712	
==>d
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11526	11712	
==>d
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11526	11712	
==>d
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3099	3235	
==>in ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11209	11336	
==>ify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11209	11336	
==>ify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11209	11336	
==>ify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Val <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3047	3167	
==>eturn $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13794	13889	
==>$xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13794	13889	
==>$xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13794	13889	
==>$xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	529	613	
==>//perlmonks.org/index.pl?node_id=442402
#
# ----------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9612	9710	
==>tor that will traverse the entire parse tree,
to any depth.  To restrict the depth to which it reac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35059	35155	
==>f the two source headings are
identical.  This method has an alias named C<matching>.

=item C<pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39609	39705	
==>f the two source headings are
identical.  This method has an alias named C<matching>.

=item C<pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39151	39247	
==>f the two source headings are
identical.  This method has an alias named C<matching>.

=item C<pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3874	4028	
==>:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3874	4028	
==>:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3874	4028	
==>:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

rol <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	109	201	
==>ethoden mit einem Argument aufrufen
$welt.hallo "Mike";
hallo $welt: "Mike";
hallo($welt: "Mi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27013	27169	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27292	27448	
==>6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7848	7982	
==>,
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7848	7982	
==>,
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2094	2219	
==>$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = u <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2094	2219	
==>$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1164	1257	
==>int("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1164	1257	
==>int("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	611	742	
==>od = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	611	742	
==>od = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Cont <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8496	8617	
==>leop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8200	8314	
==>leop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15916	16096	
==>>new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send('g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	426	536	
==>s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	426	536	
==>s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	426	536	
==>s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flag <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15725	15842	
==>EST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5235	5322	
==>lass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5235	5322	
==>lass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5235	5322	
==>lass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6857	6969	
==>=> $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6857	6969	
==>=> $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19678	19773	
==>acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFACE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19678	19773	
==>acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFACE <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6259	6361	
==>perset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5389	5491	
==>perset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6259	6361	
==>perset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5389	5491	
==>perset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5129	5290	
==>don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    retur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5129	5290	
==>don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24276	24369	
==>ales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is enti <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24276	24369	
==>ales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is enti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6076	6190	
==>*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6076	6190	
==>*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6076	6190	
==>*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10322	10432	
==>_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	222	472	
==>ile:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	222	472	
==>ile:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11742	11871	
==>noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$i <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14590	14719	
==>noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	859	962	
==>dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	859	962	
==>dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	859	962	
==>dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36779	36881	
==>ead2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 log <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6365	6601	
==>extkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6365	6601	
==>extkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6365	6601	
==>extkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str }, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18095	18186	
==>,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(R <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11203	11310	
==>tor::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::arrow->new(
		type: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4941	5060	
==>load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAM <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4770	4885	
==>load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAM <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5131	5230	
==>.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5131	5230	
==>.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1296	1401	
==>version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1259	1364	
==>version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1296	1401	
==>version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1259	1364	
==>version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2997	3124	
==>a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2997	3124	
==>a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2997	3124	
==>a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
} <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3655	3769	
==>rot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as the path of the PGE shipped with Pugs.
  --bash=$ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14085	14446	
==>failed      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23035	23133	
==>e
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27587	27685	
==>e
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26364	26462	
==>e
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2318	2423	
==>pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 module <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2318	2423	
==>pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 module <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1543	1644	
==>pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 module <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3404	3505	
==>pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 module <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10783	10927	
==>test{todo}/$test{max} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1198	1299	
==>_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1198	1299	
==>_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1198	1299	
==>_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SU <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10515	10613	
==>n you can pass them through this function. This is primarily a release
tool, but can be useful in o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10573	10671	
==>n you can pass them through this function. This is primarily a release
tool, but can be useful in o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7514	7608	
==>XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7514	7608	
==>XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3128	3238	
==>&& $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3116	3226	
==>&& $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3373	3466	
==>=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3373	3466	
==>=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19646	19771	
==>f $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16067	16192	
==>f $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1037	1155	
==>one($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1037	1155	
==>one($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13389	13476	
==>{ number_chars(I, [42,120,D0|D]) }.% [42,120]="0x"
hexdigits([D|T]) --> hexdigit(D), hex <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7011	7120	
==>t)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3166	3264	
==>w function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3166	3264	
==>w function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3166	3264	
==>w function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16193	16324	
==>body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19670	19801	
==>body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19203	19334	
==>body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6595	6690	
==>sing, it doesnt parse.
multi method Array::as_str (@array:) returns Str {
    join(" ",@array.va <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	104	202	
==>est::Harness::Straps;

use strict;
use vars qw($VERSION);
use Config;
$VERSION = '0.20';

use Test: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16519	16615	
==>E

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16519	16615	
==>E

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16519	16615	
==>E

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6157	6255	
==>tr $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8225	8323	
==>tr $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6157	6255	
==>tr $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8225	8323	
==>tr $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) retu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1445	1549	
==>de $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1445	1549	
==>de $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11735	11829	
==>tem C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered lis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11735	11829	
==>tem C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered lis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6757	6872	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6950	7065	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24100	24214	
==>NKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20521	20635	
==>NKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3554	3658	
==>ber, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3554	3658	
==>ber, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6648	6747	
==>le blocks of text which seem to still be inside a list?

Basically the item body, much like this tex <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6648	6747	
==>le blocks of text which seem to still be inside a list?

Basically the item body, much like this tex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4772	4891	
==>tfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> inf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4772	4891	
==>tfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> inf <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	107	201	
==>d_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	107	201	
==>d_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2230	2343	
==>/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1859	1952	
==>elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1859	1952	
==>elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1859	1952	
==>elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	225	327	
==>pport Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	225	327	
==>pport Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	225	327	
==>pport Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3724	3874	
==>> $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3724	3874	
==>> $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method i <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3977	4119	
==>hs
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3977	4119	
==>hs
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2386	2489	
==>join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_auto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2386	2489	
==>join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_auto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2386	2489	
==>join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3994	4105	
==>ined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3994	4105	
==>ined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3994	4105	
==>ined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9372	9481	
==>derr to stdout
#   args     => [ command-line arguments to the perl program ]
#   verbose  => print the comman <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7067	7181	
==>s
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under taint, but open -| is unportab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5855	5963	
==>jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5855	5963	
==>jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5855	5963	
==>jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9855	10054	
==>n $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9855	10054	
==>n $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9855	10054	
==>n $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2025	2155	
==>ler;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        i <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	514	626	
==>, return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	481	593	
==>, return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or re <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18777	18873	
==>re behavior which we are not prepared to
support (such as modification of the compiled re op tree <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3067	3163	
==>re behavior which we are not prepared to
support (such as modification of the compiled re op tree <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	767	880	
==>nd;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	767	880	
==>nd;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2242	2354	
==>tring($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Ru <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2242	2354	
==>tring($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Ru <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3189	3349	
==>od
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1447	1540	
==>cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1447	1540	
==>cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1447	1540	
==>cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelude <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11796	11898	
==>or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8943	9045	
==>or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11796	11898	
==>or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8943	9045	
==>or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.cl <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2143	2273	
==>ar) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fal <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2143	2273	
==>ar) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fal <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	773	873	
==>nfix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comp <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	773	873	
==>nfix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23852	23970	
==>( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23852	23970	
==>( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23852	23970	
==>( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6404	6512	
==>paque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6404	6512	
==>paque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6404	6512	
==>paque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instan <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	14	111	
==>l

package Blondie::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Pre <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18792	18889	
==>ch we are not prepared to
support (such as modification of the compiled re op tree the native
comp <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3082	3179	
==>ch we are not prepared to
support (such as modification of the compiled re op tree the native
comp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13354	13475	
==>rip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13354	13475	
==>rip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) fo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10371	10470	
==>urns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  In <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10371	10470	
==>urns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  In <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8333	8523	
==>ntry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8797	8987	
==>ntry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5816	5911	
==>Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5816	5911	
==>Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	166	273	
==>Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	153	255	
==>Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, G <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26162	26258	
==>AR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26162	26258	
==>AR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	117	225	
==>ar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	121	229	
==>ar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	115	223	
==>ar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	115	223	
==>ar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	579	753	
==>. $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21003	21099	
==>o{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21003	21099	
==>o{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21003	21099	
==>o{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6802	6954	
==>hrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6859	7011	
==>hrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14978	15079	
==>th "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14978	15079	
==>th "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6797	6945	
==>O - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6797	6945	
==>O - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4230	4346	
==>= $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4230	4346	
==>= $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1087	1192	
==>rarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1087	1192	
==>rarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1087	1192	
==>rarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33810	33909	
==>\d>), ndigit (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: arr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1943	2040	
==>rns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1943	2040	
==>rns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_v <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1960	2050	
==>ELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1960	2050	
==>ELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3214	3337	
==>ensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unl <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1674	1774	
==>Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is only an experiment, it's <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10812	10909	
==>r `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10870	10967	
==>r `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	29	133	
==>is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in oth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	33	137	
==>is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in oth <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	29	133	
==>is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in oth <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	33	137	
==>is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2885	3012	
==>urn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2885	3012	
==>urn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2885	3012	
==>urn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # met <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7184	7292	
==>ck( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    ### set the mode to +w for a file a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9990	10113	
==>)    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUC <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7930	8053	
==>)    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUC <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9990	10113	
==>)    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUC <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7930	8053	
==>)    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4995	5102	
==>->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4995	5102	
==>->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4995	5102	
==>->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$meth <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	32	133	
==>ugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritance or a junctive type?  hm <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30849	30946	
==>.  Use Damian Conway's F<NEXT> module
instead.  This module is standard with Perl 5.8.

=head2 Obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9698	9791	
==>collect_all_roles () { "<implemented>" }  

    # -------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9698	9791	
==>collect_all_roles () { "<implemented>" }  

    # -------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9698	9791	
==>collect_all_roles () { "<implemented>" }  

    # -------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2520	2635	
==>Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2520	2635	
==>Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2520	2635	
==>Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	111	210	
==>g;
use JIB::Repository;

use Path::Class ();
use Cwd;
use vars qw[$REPO];

$REPO = JIB::Repository-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3917	4023	
==>{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3917	4023	
==>{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3917	4023	
==>{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2056	2164	
==>$x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, values are 2 char strings su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38927	39034	
==>ization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38927	39034	
==>ization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38927	39034	
==>ization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6380	6478	
==>etails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6380	6478	
==>etails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8577	8675	
==>etails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets t <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1765	1858	
==>RE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alpha development snaps <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	311	418	
==>ional soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	311	418	
==>ional soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	311	418	
==>ional soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$: <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	722	869	
==>Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                el <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	722	869	
==>Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14010	14126	
==>me line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $tex <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14010	14126	
==>me line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $tex <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5555	5651	
==>@f;
}

=item B<_run_all_tests>

  my($total, $failed) = _run_all_tests(@test_files);

Runs all th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9746	9832	
==>RO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9746	9832	
==>RO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9746	9832	
==>RO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	150	255	
==>/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	150	255	
==>/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	150	255	
==>/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4142	4253	
==>a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4142	4253	
==>a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4142	4253	
==>a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4348	4449	
==>er stack, the
dynamic scope stack will be popped, then the Seq will finish, the Thunk will
finish, the <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	169	266	
==>ct fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($ <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	169	266	
==>ct fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8606	8701	
==>T take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8606	8701	
==>T take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4107	4218	
==>if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_stateme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4956	5067	
==>if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_stateme <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	581	681	
==>ig->_meta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $sel <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12374	12467	
==>/td>
	      <td class="num tests_todo"><span title="<tmpl_var name=todo> todo"><tmpl_var name= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22600	22737	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_stateme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22879	23016	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_stateme <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12203	12308	
==>alled on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12203	12308	
==>alled on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Reque <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7725	7827	
==>$pVarName);
    p6_var_CODE($pVarName);
}
NODE PApp ($pCxt, $pFun, $pInv, $pArgs) {
    my $has_inv = d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5405	5502	
==>"";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pSyms <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1377	1468	
==>_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1377	1468	
==>_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7714	7820	
==>ol :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7453	7555	
==>ol :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1619	1714	
==>ompiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1619	1714	
==>ompiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5851	5965	
==>ined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5851	5965	
==>ined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1605	1710	
==>t_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1809	1914	
==>t_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2410	2526	
==>\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2410	2526	
==>\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9778	9910	
==>stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{exp2}{pointy_block} ) {
            return  " " . $n- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10776	10885	
==>roken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10776	10885	
==>roken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10776	10885	
==>roken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39591	39692	
==>ich creates
an object regardless of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9732	9822	
==>));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9732	9822	
==>));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9732	9822	
==>));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4508	4619	
==>dex[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      t <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4508	4619	
==>dex[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      t <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1944	2040	
==>alue) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard co <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1944	2040	
==>alue) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4220	4347	
==>a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4220	4347	
==>a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4220	4347	
==>a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1252	1353	
==>uilding dependencies.  Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf s <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2502	2623	
==>eludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	979	1084	
==>FIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	979	1084	
==>FIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	979	1084	
==>FIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5904	6031	
==>ersion($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub author <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1340	1447	
==>{
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1340	1447	
==>{
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1340	1447	
==>{
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLE <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16896	17047	
==>intf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5929	6064	
==>til::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5929	6064	
==>til::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30305	30410	
==>ew(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descendant_dispat <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7188	7296	
==>ll)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	94	195	
==>eys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	94	195	
==>eys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	94	195	
==>eys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "P <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	381	503	
==>ests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compar <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	381	503	
==>ests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compar <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39253	39344	
==>Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39253	39344	
==>Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5289	5384	
==>object, but is (at least nominally)
intended to allow filtering out objects you don't want to re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5289	5384	
==>object, but is (at least nominally)
intended to allow filtering out objects you don't want to re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5289	5384	
==>object, but is (at least nominally)
intended to allow filtering out objects you don't want to re <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1561	1655	
==>:Spec->catfile($path, "arch");
    $self->makemaker_args->{INST_SCRIPT} =
      File::Spec->cat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4561	4694	
==>1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4561	4694	
==>1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4561	4694	
==>1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	407	507	
==>generic_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reductions don't make sense whil <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2862	3082	
==>er ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2862	3082	
==>er ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26052	26147	
==>tributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30604	30699	
==>tributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This me <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7952	8086	
==>ie if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params: <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7952	8086	
==>ie if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14588	14696	
==>y $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14588	14696	
==>y $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1653	1800	
==>ached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $rec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1860	2007	
==>ached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $rec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3467	3563	
==>!= 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3467	3563	
==>!= 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13910	14061	
==>$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13910	14061	
==>$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13910	14061	
==>$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4332	4448	
==>e "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKE <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2129	2254	
==>@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2129	2254	
==>@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1988	2094	
==>ent_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

metho <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1988	2094	
==>ent_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9875	9983	
==>text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9875	9983	
==>text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9875	9983	
==>text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3347	3453	
==>'scalar_non_numeric' if !((~$$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29967	30060	
==>utes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34519	34612	
==>utes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33683	33776	
==>utes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1675	1797	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1675	1797	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1675	1797	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (de <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8833	8944	
==>e!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8833	8944	
==>e!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the b <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10573	10664	
==>/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5319	5415	
==>ally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5319	5415	
==>ally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5319	5415	
==>ally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for e <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17930	18047	
==>++;
        my $conversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do if $spec eq "% <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11391	11505	
==>$node = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed($node));
    
    $self->can($type)
        ? $ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5863	5948	
==>ementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5863	5948	
==>ementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4298	4420	
==>ich we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4298	4420	
==>ich we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4809	4919	
==>ich we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4809	4919	
==>ich we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1296	1393	
==>hes to remove roadblocks if encountered.  The latter would of
# course not help people running exi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30917	31012	
==>ainer is Andy Lester C<< <andy at petdance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by Mi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4656	4747	
==>j and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4656	4747	
==>j and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4656	4747	
==>j and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	686	805	
==>asNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cla <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	705	824	
==>{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	686	805	
==>asNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	686	805	
==>asNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_cla <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	224	329	
==>my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @Mo <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	224	329	
==>my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @Mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6635	6737	
==>:SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6635	6737	
==>:SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6635	6737	
==>:SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3522	3622	
==>/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?)/&syn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4482	4597	
==>ift @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_splice' => sub { # $idx_from - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2386	2483	
==>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2386	2483	
==>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2386	2483	
==>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } el <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6864	6992	
==>ecursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific versi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7328	7456	
==>ecursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific versi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	752	860	
==>onst = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	752	860	
==>onst = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	626	749	
==>n parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{source}, "\n";
    local $@;
    eval { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7519	7631	
==>tringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7519	7631	
==>tringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7519	7631	
==>tringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4702	4824	
==>Compiler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23592	23688	
==>oing object
can mutate.  Depending on the implementing class, it can default to True or
False, bu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28144	28240	
==>oing object
can mutate.  Depending on the implementing class, it can default to True or
False, bu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26957	27053	
==>oing object
can mutate.  Depending on the implementing class, it can default to True or
False, bu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4152	4262	
==>- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothing if the span <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15332	15442	
==>- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothing if the span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4152	4262	
==>- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothing if the span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15332	15442	
==>- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothing if the span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7459	7566	
==>sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($da <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7459	7566	
==>sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($da <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2474	2569	
==>no arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering ste <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2474	2569	
==>no arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering ste <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	777	866	
==>lass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	777	866	
==>lass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	777	866	
==>lass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18864	18951	
==><ConditionalExpressionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <Assignm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7550	7797	
==>{
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8014	8261	
==>{
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	933	1070	
==>. '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        preceden <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	958	1095	
==>. '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        preceden <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6686	6802	
==>value, @params, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pSubBody""pSub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2986	3098	
==>s  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2986	3098	
==>s  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2986	3098	
==>s  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2640	2760	
==>s/#all_fields#/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5664	5761	
==>test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5664	5761	
==>test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5664	5761	
==>test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	835	1003	
==>|| -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	835	1003	
==>|| -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1738	1903	
==>ild {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1738	1903	
==>ild {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5462	5562	
==>op = Op->new($name,$prec);
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name);
  push( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18581	18670	
==>to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18581	18670	
==>to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18581	18670	
==>to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8486	8924	
==>),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	928	1025	
==>h::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	928	1025	
==>h::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	928	1025	
==>h::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_pr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1466	1584	
==>> { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8375	8478	
==>d BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	579	676	
==>d BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	579	676	
==>d BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11887	11979	
==>d2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9034	9126	
==>d2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11887	11979	
==>d2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9034	9126	
==>d2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	177	277	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	177	277	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	177	277	
==>ods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7725	7821	
==>LD {
    $.property_attributes{'length'} =
        JSX::PropertyAttributes.new(:DontEnum :DontDel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21650	21848	
==>Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21650	21848	
==>Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21650	21848	
==>Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14696	14796	
==>riables in the function body
	# for this reason the function needs to be cloned (so it will stay gene <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	296	398	
==>r p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	296	398	
==>r p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	296	398	
==>r p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6549	6636	
==>r|tighter|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5709	5810	
==>pe: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5709	5810	
==>pe: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5709	5810	
==>pe: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @pa <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	61	154	
==>etOptions \our %Conf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = q <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3053	3169	
==>ops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3053	3169	
==>ops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3053	3169	
==>ops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8614	8724	
==>$pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;") <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8614	8724	
==>$pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;") <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8614	8724	
==>$pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	235	350	
==>$pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	235	350	
==>$pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	235	350	
==>$pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&_ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1091	1201	
==>loop again.
    ./:step(); #/#--vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@args) {
    di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6583	6695	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6583	6695	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6384	6492	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6384	6492	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 1 <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	19	125	
==>1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code. <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	19	125	
==>1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	819	914	
==>ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	877	972	
==>ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	443	539	
==>s Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	443	539	
==>s Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6054	6159	
==>Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5184	5289	
==>Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6054	6159	
==>Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5184	5289	
==>Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3320	3469	
==>->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: qua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3308	3457	
==>->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: qua <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8795	8942	
==>de assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8795	8942	
==>de assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1464	1567	
==>";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1464	1567	
==>";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1464	1567	
==>";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	519	620	
==>have been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, tail.p6, rev.p6, mid.p6, wc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1227	1326	
==>sed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1227	1326	
==>sed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1227	1326	
==>sed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31045	31193	
==>my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31045	31193	
==>my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31045	31193	
==>my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $di <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4808	4908	
==>compile($re) || die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1778	1877	
==>eck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1778	1877	
==>eck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1778	1877	
==>eck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	893	1006	
==>IL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	893	1006	
==>IL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	893	1006	
==>IL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subst <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16421	16529	
==>t's right?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (map{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12730	12949	
==>rce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_dat <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12730	12949	
==>rce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9735	9833	
==>/^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = () <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9735	9833	
==>/^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14325	14486	
==>turn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14325	14486	
==>turn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14325	14486	
==>turn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	103	215	
==>C]] \n";
}
my $str = shift;
if($str eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17137	17242	
==>(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17294	17399	
==>(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17542	17647	
==>(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17726	17831	
==>(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2685	2799	
==>l > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::lon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2685	2799	
==>l > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::lon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2685	2799	
==>l > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::lon <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6376	6477	
==>error(0, "\\x[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char => chr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4642	4740	
==>n data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext ve <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4642	4740	
==>n data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext ve <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3032	3124	
==>t -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL { <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3032	3124	
==>t -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL { <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	127	218	
==>ubMethod | SubRoutine | SubBlock | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubP <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2323	2560	
==>[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$po <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3298	3390	
==>:Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test w <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3298	3390	
==>:Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5495	5587	
==>:Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test w <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4169	4282	
==>infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns O <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4169	4282	
==>infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns O <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	406	518	
==>infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns O <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	406	518	
==>infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns O <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22088	22181	
==>gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22088	22181	
==>gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3705	3803	
==>insert_child is really the same as
# insert_children, you are just inserting
# and array of one tre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3705	3803	
==>insert_child is really the same as
# insert_children, you are just inserting
# and array of one tre <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16541	16636	
==>$parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16541	16636	
==>$parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1928	2100	
==>e {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2175	2347	
==>e {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_te <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1762	1865	
==>ll_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1762	1865	
==>ll_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	81	201	
==>6;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    tighter => sub {
        splice( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1295	1394	
==>_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1295	1394	
==>_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1295	1394	
==>_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ma <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2211	2328	
==>rst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<toke <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2211	2328	
==>rst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<toke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7790	7892	
==>e($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7790	7892	
==>e($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2350	2444	
==>::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2350	2444	
==>::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24600	24692	
==>ware Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24600	24692	
==>ware Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6373	6499	
==>{
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5881	6007	
==>{
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2342	2453	
==>elude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2559	2670	
==>elude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open pre <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	441	546	
==>l {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2539	2629	
==>d create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2539	2629	
==>d create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2539	2629	
==>d create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main') <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	591	699	
==>Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	539	636	
==>l is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Arr <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	539	636	
==>l is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Arr <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	186	272	
==>ile::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args = grep !/^--[-\w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4482	4631	
==>ed} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4482	4631	
==>ed} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4482	4631	
==>ed} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	73	155	
==>perl/5.8.7/Module/Install/Makefile/Name.pm"
package Module::Install::Makefile::Name <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9292	9420	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9485	9613	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8422	8523	
==>s create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8422	8523	
==>s create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4310	4438	
==>val $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5631	5759	
==>val $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4310	4438	
==>val $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5619	5747	
==>val $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	767	881	
==>/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	767	881	
==>/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	767	881	
==>/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10546	10636	
==>=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $posEnd <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1833	1930	
==>at,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callbac <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	829	926	
==>at,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callbac <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2152	2246	
==>several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystream <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2152	2246	
==>several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystream <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2215	2344	
==>nt.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2215	2344	
==>nt.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What cont <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14318	14421	
==>is, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $esc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14318	14421	
==>is, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $esc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7713	7812	
==>e default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7713	7812	
==>e default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7713	7812	
==>e default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2534	2629	
==>printable($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11962	12112	
==>print "infix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        return '()'
            unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	540	643	
==>09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	540	643	
==>09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	540	643	
==>09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39851	39943	
==>mple>

This multi-method is a generic binary relational operator that takes
another Relation: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	380	487	
==>$class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! define <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	380	487	
==>$class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! define <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7973	8059	
==>Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->as <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1798	1884	
==>Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->as <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16843	16959	
==>rst, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9284	9396	
==>}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9284	9396	
==>}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9284	9396	
==>}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'is <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2734	2927	
==>.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2734	2927	
==>.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4648	4751	
==>ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4648	4751	
==>ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8442	8544	
==>PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8442	8544	
==>PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12840	12936	
==>ize)`.

The unit specifier is used for several things. 
For example, when iterating through the s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12840	12936	
==>ize)`.

The unit specifier is used for several things. 
For example, when iterating through the s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1144	1238	
==>r thingies.

It also gives the compiler the default environment to work with (from
L<Blondie::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1045	1154	
==>l,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1045	1154	
==>l,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1045	1154	
==>l,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22492	22592	
==>ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


 } regexp;

=head2 A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2877	2983	
==>b get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2877	2983	
==>b get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2877	2983	
==>b get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	843	965	
==>mp dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3035	3137	
==>>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3035	3137	
==>>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3035	3137	
==>>{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1234	1350	
==>ody => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1234	1350	
==>ody => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1234	1350	
==>ody => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	132	226	
==>ngs;

use UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie::Backend::C::Builtins;

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9979	10120	
==>slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9979	10120	
==>slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9979	10120	
==>slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1249	1358	
==>_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementControl->parse( $match, { p => 1 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1509	1635	
==>sses,
                $:superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2687	2782	
==>list);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2687	2782	
==>list);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2687	2782	
==>list);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1987	2090	
==>ass Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.outpu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	269	367	
==>Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	2	95	
==>ass Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.outpu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	2	95	
==>ass Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.outpu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15422	15553	
==>IS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sou <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15422	15553	
==>IS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sou <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2973	3079	
==>this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:pe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2973	3079	
==>this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:pe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3205	3374	
==>fix>-<name>
            ### implementation;
            my @list = LoadFile( $Available );
            
            my @maybe;
            for my $test ( grep { $_->{pack <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	192	303	
==>> [__PACKAGE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->subm <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1618	1719	
==>ns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  m <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1618	1719	
==>ns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	313	421	
==>%left   '-' '«+»'
%left   'infix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	870	972	
==>a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	870	972	
==>a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	870	972	
==>a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(R <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16901	17009	
==>efined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2151	2258	
==>ass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2151	2258	
==>ass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2151	2258	
==>ass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	6	115	
==>x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	6	115	
==>x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	6	115	
==>x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$se <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1160	1257	
==>e roots or
cube roots (as in the example above).  Read a Calculus textbook for details.
This imple <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14953	15068	
==>plain->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8334	8423	
==>==========================================

use FindBin;
use File::Spec;

sub path_from_me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8334	8423	
==>==========================================

use FindBin;
use File::Spec;

sub path_from_me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8334	8423	
==>==========================================

use FindBin;
use File::Spec;

sub path_from_me <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9840	9970	
==>,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7780	7910	
==>,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9840	9970	
==>,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7780	7910	
==>,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5913	6013	
==>andler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5601	5701	
==>andler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obje <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2046	2171	
==>en
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (wan <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2046	2171	
==>en
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (wan <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2836	2955	
==>@res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2836	2955	
==>@res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3452	3570	
==>slurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3452	3570	
==>slurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3452	3570	
==>slurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23368	23470	
==>.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7286	7462	
==>p ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7286	7462	
==>p ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7286	7462	
==>p ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27560	27672	
==>ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $res = eval($ret); die " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3606	3720	
==>,
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1278	1384	
==>nce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1278	1384	
==>nce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1278	1384	
==>nce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11229	11342	
==>rn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the itera <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11229	11342	
==>rn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the itera <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11229	11342	
==>rn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the itera <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	751	868	
==>Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1876	1993	
==>Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	751	868	
==>Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1876	1993	
==>Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3417	3610	
==>1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3417	3610	
==>1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3417	3610	
==>1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27162	27300	
==>elf:')->get_attr(symbol->new('@:subclasses'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	226	358	
==>have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '< <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	226	358	
==>have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10178	10274	
==>method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10178	10274	
==>method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9561	9673	
==>c = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9561	9673	
==>c = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9561	9673	
==>c = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	896	1001	
==>he instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	896	1001	
==>he instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	896	1001	
==>he instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = :: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	27	125	
==>GV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str = sh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8978	9086	
==>'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8978	9086	
==>'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1818	1916	
==>an.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1818	1916	
==>an.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1190	1291	
==>tting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1190	1291	
==>tting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1190	1291	
==>tting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6518	6615	
==>f a test script, each value is another hash representing
how that script failed.  Its keys are the <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14385	14496	
==>$P0 = getattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = length target
    inc pos
    $S0 = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5738	5838	
==>name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5738	5838	
==>name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5738	5838	
==>name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1134	1250	
==>IL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1134	1250	
==>IL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1134	1250	
==>IL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

me <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1654	1751	
==>expects output from the test in a
certain format.  That format is called TAP, the Test Anything
Pr <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2570	2695	
==>\[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Plac <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2570	2695	
==>\[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Plac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1782	1868	
==>ompiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3158	3244	
==>ompiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<pa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9985	10109	
==>,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7925	8049	
==>,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9985	10109	
==>,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7925	8049	
==>,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1127	1261	
==>->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6232	6349	
==>inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11011	11115	
==>t{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.e <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11011	11115	
==>t{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16515	16616	
==>($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16515	16616	
==>($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16515	16616	
==>($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MU <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7608	7710	
==>rs} or exists $index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5863	5963	
==>ttributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5863	5963	
==>ttributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5863	5963	
==>ttributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	110	263	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	110	263	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	110	263	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_t <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	954	1064	
==>uild {
    my $self = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	280	384	
==>ntime cache env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7450	7543	
==>it_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7450	7543	
==>it_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7450	7543	
==>it_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	184	302	
==>ut handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	184	302	
==>ut handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16349	16452	
==>s"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16349	16452	
==>s"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2954	3063	
==>self->preload;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{"$se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1549	1831	
==>@buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17284	17390	
==>f ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17284	17390	
==>f ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17284	17390	
==>f ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3723	3839	
==>atcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3723	3839	
==>atcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3723	3839	
==>atcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a metho <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8882	8992	
==>"MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathName($^X) if $self->{_is_win32} <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2023	2147	
==>:$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriteri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	951	1054	
==>matically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	951	1054	
==>matically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	951	1054	
==>matically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9119	9217	
==>urn @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns L <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9119	9217	
==>urn @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns L <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15713	15810	
==>=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995- <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15713	15810	
==>=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2885	3003	
==>_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2885	3003	
==>_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2885	3003	
==>_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($c <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	569	703	
==>ree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	569	703	
==>ree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2112	2235	
==>set.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key)) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2112	2235	
==>set.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key)) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3362	3512	
==>le concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3609	3759	
==>le concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	821	921	
==>es Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	821	921	
==>es Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2947	3046	
==>th a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the oth <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2947	3046	
==>th a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the oth <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4913	5070	
==>tdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4145	4282	
==>tdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6883	6979	
==>tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the sa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6883	6979	
==>tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4501	4642	
==>$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4501	4642	
==>$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4501	4642	
==>$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	43	164	
==>t;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - u <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	43	164	
==>t;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21871	21961	
==>ot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21871	21961	
==>ot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	336	440	
==>tchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	336	440	
==>tchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21709	21809	
==>ride simply by using the same key code with a new user message in
one of their own resource files.  A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21709	21809	
==>ride simply by using the same key code with a new user message in
one of their own resource files.  A <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11511	11609	
==>=item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11511	11609	
==>=item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11527	11623	
==>( $recurrence )`

Returns only the elements in this recurrence that are not in the given recurren <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11527	11623	
==>( $recurrence )`

Returns only the elements in this recurrence that are not in the given recurren <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1031	1201	
==>elf = shift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	591	731	
==>@:output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' u <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6942	7064	
==>else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volum <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6942	7064	
==>else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1764	1900	
==>tore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1764	1900	
==>tore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1764	1900	
==>tore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SU <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26432	26534	
==>es>
}
rule NonemptyClassRanges {  # see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRange <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14998	15164	
==>f->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14998	15164	
==>f->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14998	15164	
==>f->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28786	28886	
==>s.  If you
want to install a handler for '&&', you must first install a handler for
'&' that calls th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1638	1743	
==>1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1638	1743	
==>1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1638	1743	
==>1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	158	256	
==>uite of modules that will be used
as the base for Perl6's CPAN, also known as sixpan.

Please refer <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	643	769	
==>t "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	642	768	
==>t "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	643	769	
==>t "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	642	768	
==>t "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13141	13256	
==>&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21191	21306	
==>&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13420	13535	
==>&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21470	21585	
==>&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3730	3835	
==>0th line\n".
        "9th line\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2816	2919	
==>val { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2816	2919	
==>val { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2816	2919	
==>val { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	85	178	
==>ict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	85	178	
==>ict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	85	178	
==>ict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6836	6927	
==>arn Dumper($prog);

	my $dup_finder = Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15069	15182	
==>TI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Arr <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3220	3333	
==>e, \%totals);
        last if $self->{saw_bailout};
    }

    $totals{skip_all} = $self->{skip_all} if defined $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15069	15182	
==>TI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15069	15182	
==>TI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Arr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14377	14496	
==>nd, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14377	14496	
==>nd, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	776	873	
==>ription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($e <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	834	931	
==>ription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	776	873	
==>ription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	834	931	
==>ription? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11125	11233	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11125	11233	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11125	11233	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "f <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	182	274	
==>gest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use T <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9682	9805	
==>lti  List::reverse ( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @va <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	905	1016	
==>lti  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @va <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11074	11169	
==>>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11074	11169	
==>>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5606	5710	
==>er/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	399	500	
==>die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $so <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	399	500	
==>die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $so <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5413	5513	
==>er/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3212	3308	
==>.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3212	3308	
==>.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2589	2683	
==>per_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2589	2683	
==>per_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1182	1280	
==>b123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1178	1270	
==>b123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subn <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1381	1472	
==>ls, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are imple <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1381	1472	
==>ls, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are imple <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12368	12488	
==>sed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2748	2864	
==>sed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2748	2864	
==>sed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7956	8065	
==>:prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    my($o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2239	2337	
==>mber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2239	2337	
==>mber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2239	2337	
==>mber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapSt <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5145	5280	
==>rrectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5203	5338	
==>rrectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14672	14807	
==>e take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14672	14807	
==>e take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14672	14807	
==>e take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so .. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1068	1195	
==>e take the MRO first, however at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so .. <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2322	2429	
==>CHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs->{ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	236	359	
==>tplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	236	359	
==>tplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4806	4919	
==>_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler(" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4806	4919	
==>_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8720	8841	
==>ist' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8720	8841	
==>ist' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8720	8841	
==>ist' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3217	3333	
==>ndencies satisfied?
            my $info = LoadFile( 
                File::Spec->catdir( $meta_dir, $config->meta_fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9534	9706	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15078	15250	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9534	9706	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15072	15244	
==>md> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5815	5912	
==>ETAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5815	5912	
==>ETAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5815	5912	
==>ETAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die " <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2929	3038	
==>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2929	3038	
==>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16732	16827	
==>at one could write a self-contained application in
Rosetta D and compile that into its own execu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16732	16827	
==>at one could write a self-contained application in
Rosetta D and compile that into its own execu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1888	2008	
==>esser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1888	2008	
==>esser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1888	2008	
==>esser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6549	6652	
==>, map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") i <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5484	5584	
==>ile) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse th <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5484	5584	
==>ile) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2244	2339	
==>ax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2333	2428	
==>ax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13777	13924	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20272	20419	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14056	14203	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20551	20698	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10534	10646	
==>y @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10534	10646	
==>y @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1083	1179	
==>d interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1083	1179	
==>d interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	745	844	
==>rn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	745	844	
==>rn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { ca <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22152	22247	
==>missions issue; simply order the files appropriately in the search
list.  The analogy is similar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22152	22247	
==>missions issue; simply order the files appropriately in the search
list.  The analogy is similar <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3388	3488	
==>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule ass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3791	3885	
==>) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3791	3885	
==>) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3791	3885	
==>) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14732	14856	
==>f+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14732	14856	
==>f+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14732	14856	
==>f+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i+ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1314	1417	
==>d module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22094	22193	
==>lagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can loo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26646	26745	
==>lagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can loo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	303	399	
==>ctions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	303	399	
==>ctions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9428	9626	
==>),
                Val->new(''),
            ),
            App->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4770	4904	
==>nst

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4621	4752	
==>nst
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4656	4755	
==>son why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4656	4755	
==>son why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4656	4755	
==>son why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18123	18219	
==>TCH("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4135	4245	
==>r in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4352	4462	
==>r in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6238	6339	
==>"Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<fro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6238	6339	
==>"Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1425	1557	
==>ut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1425	1557	
==>ut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1425	1557	
==>ut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14332	14430	
==>\"",
  ensure => sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => sub { open <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3244	3368	
==>lf:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3244	3368	
==>lf:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3244	3368	
==>lf:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_} <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2292	2392	
==>nt($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($.second) ) * 1e3) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7301	7391	
==>ule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statement <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1126	1216	
==>ule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statement <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	919	1007	
==>escribes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	919	1007	
==>escribes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This document <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	796	894	
==>ze($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	796	894	
==>ze($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23611	23706	
==>setta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The P <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23611	23706	
==>setta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The P <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1460	1608	
==>$Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	242	334	
==>f-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	242	334	
==>f-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	242	334	
==>f-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4814	4950	
==>S_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %U <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4814	4950	
==>S_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %U <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4814	4950	
==>S_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %U <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5477	5603	
==>turn;

    ### build a from => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### mov <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	882	990	
==>ss the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weak <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1247	1352	
==>ss the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weak <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	846	951	
==>ss the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weak <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1247	1352	
==>ss the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weak <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6165	6302	
==>al $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5673	5810	
==>al $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	127	227	
==>s - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinit <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	127	227	
==>s - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinit <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2974	3087	
==>(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basec <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2974	3087	
==>(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2556	2666	
==>>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2556	2666	
==>>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2556	2666	
==>>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2738	2840	
==>e Regexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	552	669	
==>le(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5553	5649	
==>s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitaliz <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5553	5649	
==>s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitaliz <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5553	5649	
==>s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitaliz <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20322	20432	
==>m(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4540	4645	
==>ecessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bin <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4932	5037	
==>ecessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bin <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5443	5548	
==>ecessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1158	1289	
==>' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	372	469	
==>ook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	372	469	
==>ook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	372	469	
==>ook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13415	13553	
==>CE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13415	13553	
==>CE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13415	13553	
==>CE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8757	8870	
==>matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_ <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1120	1301	
==>od",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $string;
        "$str <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	201	314	
==>s  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

su <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	201	314	
==>s  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

su <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15887	15986	
==>t ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15887	15986	
==>t ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37749	37871	
==>Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37749	37871	
==>Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37749	37871	
==>Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	412	512	
==>E;


=head1 NAME

Test::Harness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  use T <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17266	17370	
==>l() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Leve <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26744	26882	
==>tch ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27023	27161	
==>tch ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6107	6204	
==>ne long string.

=item List Context

All headers are returned split into the respective
lines.

=i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6107	6204	
==>ne long string.

=item List Context

All headers are returned split into the respective
lines.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10007	10206	
==>rns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  - <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6978	7162	
==>rns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19008	19118	
==>el (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19008	19118	
==>el (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A t <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	383	496	
==>id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$locati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2970	3076	
==>e_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2970	3076	
==>e_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2970	3076	
==>e_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1872	2028	
==>ce of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2077	2233	
==>ce of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2140	2296	
==>ce of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [] <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10114	10350	
==>.= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2011	2113	
==>est()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2011	2113	
==>est()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2011	2113	
==>est()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3340	3509	
==>parent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3340	3509	
==>parent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10866	10959	
==>ially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Docume <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10866	10959	
==>ially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Docume <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	508	618	
==>e!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	475	585	
==>e!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	281	370	
==>en = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	314	403	
==>en = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5111	5220	
==>ontent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5111	5220	
==>ontent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16326	16419	
==>terface is defined mainly in terms of a new high-level
programming language named "Rosetta D", <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16326	16419	
==>terface is defined mainly in terms of a new high-level
programming language named "Rosetta D", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3037	3240	
==>( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2938	3135	
==>( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3558	3743	
==>( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3558	3743	
==>( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	573	670	
==>rently simply a source code generator.
   Which also addresses the problem that macros are current <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2732	2829	
==>e = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$construct <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	573	670	
==>rently simply a source code generator.
   Which also addresses the problem that macros are current <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2732	2829	
==>e = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$construct <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	178	278	
==>ib.pl';
require 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12048	12139	
==>) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12048	12139	
==>) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12048	12139	
==>) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xx <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8874	8987	
==>>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8874	8987	
==>>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnic <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19378	19468	
==>tication scheme and parameters applicable to the requested URI.

=item $h.proxy_authenticat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19378	19468	
==>tication scheme and parameters applicable to the requested URI.

=item $h.proxy_authenticat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15934	16034	
==>e that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not any <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15934	16034	
==>e that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not any <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4081	4178	
==>Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the un <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4081	4178	
==>Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11222	11323	
==>eta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11222	11323	
==>eta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11222	11323	
==>eta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1121	1216	
==>s?
# I guess that we're not the superclass of any superclass

method set_superclasses($self: Set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1631	1731	
==>er contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1631	1731	
==>er contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2039	2128	
==>ix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2111	2200	
==>ix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:*" <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2386	2507	
==>rivlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELI <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6979	7083	
==>', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEnd <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6979	7083	
==>', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEnd <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3878	3982	
==>', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEnd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3555	3730	
==>defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4483	4654	
==>defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3444	3615	
==>defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4483	4654	
==>defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### b <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	904	1044	
==>buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $bu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	904	1044	
==>buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7139	7246	
==>});
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into b <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7139	7246	
==>});
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3095	3214	
==>h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3095	3214	
==>h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11009	11131	
==>{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2393	2490	
==>s_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2393	2490	
==>s_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2393	2490	
==>s_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(def <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	343	484	
==>ubrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	343	484	
==>ubrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $su <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	157	263	
==>use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_a <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	157	263	
==>use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_a <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2657	2774	
==>ll_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name} <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7654	7758	
==>solated_dirs($index);
    
    my $output_path = catfile($output_dir, $path);
    my $index_file =  catfi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	252	346	
==>Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	252	346	
==>Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14441	14614	
==>t yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14441	14614	
==>t yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14441	14614	
==>t yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2972	3145	
==>t yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9592	9724	
==>0');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE VStr ($value) { my $s = $value; $s =~ s/\\/\\\\/g; $s =~ s/\' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2814	2909	
==>tore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2814	2909	
==>tore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2814	2909	
==>tore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lva <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15009	15104	
==>node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15009	15104	
==>node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Nod <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	104	193	
==>an.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in P <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	104	193	
==>an.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6924	7074	
==>ell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6924	7074	
==>ell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6924	7074	
==>ell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash sli <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	250	362	
==>my $archive (@ARGV) {

    ### the path to install to... distilled from the archive name
    ### XXX maybe metain <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1905	1998	
==>he 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1905	1998	
==>he 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1905	1998	
==>he 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1612	1715	
==>se::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compil <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1612	1715	
==>se::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compil <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1267	1360	
==>d1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION

T <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1267	1360	
==>d1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION

T <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2573	2719	
==>from here on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3673	3765	
==>te_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3673	3765	
==>te_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5181	5272	
==>64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIP <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5181	5272	
==>64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4948	5124	
==>, 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4795	4966	
==>, 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	729	829	
==>construct new classes which are of its type.

=item *

It serves as the basis for a method dispatch s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7228	7318	
==>nstantiates into whatever it is combined with (except instantiated variables, which delegat <==
4	/Users/nnunley/pugs/util/package-osx.pl	10560	10685	
==>se warnings;\n
        chdir '/usr/local/bin';\n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6545	6634	
==>EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6545	6634	
==>EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6545	6634	
==>EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all <==
4	/Users/nnunley/pugs/util/grokprims.pl	199	307	
==>ve infix',
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	529	625	
==>andles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	529	625	
==>andles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1085	1181	
==>andles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

T <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21358	21451	
==>ect.  An application written to it should easily port
to alternative relational database engin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21358	21451	
==>ect.  An application written to it should easily port
to alternative relational database engin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	114	204	
==>s «
    header push_header init_header remove_header remove_content_headers header_field_n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	114	204	
==>s «
    header push_header init_header remove_header remove_content_headers header_field_n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8188	8306	
==>se if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.unio <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8580	8698	
==>se if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.unio <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8188	8306	
==>se if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.unio <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8580	8698	
==>se if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.unio <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14409	14538	
==>me;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14409	14538	
==>me;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13458	13575	
==>me;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13458	13575	
==>me;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8977	9186	
==>mbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4423	4518	
==>ame = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4423	4518	
==>ame = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4423	4518	
==>ame = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15654	15791	
==>d $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15654	15791	
==>d $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15654	15791	
==>d $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2284	2391	
==>ction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2284	2391	
==>ction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2284	2391	
==>ction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlin <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4247	4387	
==>art == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4247	4387	
==>art == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7575	7674	
==>turns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6705	6804	
==>turns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7575	7674	
==>turns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6705	6804	
==>turns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6606	6705	
==>m, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6606	6705	
==>m, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6606	6705	
==>m, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1126	1225	
==>" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_suc <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7051	7199	
==>g/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@r <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5552	5700	
==>g/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@r <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13001	13099	
==>ns Bool`

These functions both take blocks of code, run the code, and test whether they live or die <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13059	13157	
==>ns Bool`

These functions both take blocks of code, run the code, and test whether they live or die <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9325	9434	
==>unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11640	11749	
==>unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23354	23448	
==>rl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial extern <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23354	23448	
==>rl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial extern <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3114	3221	
==>ion. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = ne <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3114	3221	
==>ion. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1649	1738	
==>mar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join(" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1649	1738	
==>mar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join(" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7313	7413	
==>exp::Parser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14446	14539	
==>= Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14446	14539	
==>= Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14446	14539	
==>= Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1630	1748	
==>as Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1630	1748	
==>as Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16566	16668	
==>.  If there is no such header field, then the empty
string is returned.  This makes it safe to do the f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16566	16668	
==>.  If there is no such header field, then the empty
string is returned.  This makes it safe to do the f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3791	3892	
==>$i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3791	3892	
==>$i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3791	3892	
==>$i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3298	3407	
==>$descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3298	3407	
==>$descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3298	3407	
==>$descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2395	2493	
==>ant => $invocant, positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	575	677	
==>od BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	575	677	
==>od BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5779	5864	
==>://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implem <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5779	5864	
==>://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2948	3060	
==>{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3088	3200	
==>{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3986	4078	
==>thod return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5888	5980	
==>thod return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4244	4340	
==>rence, the match object returns positional
captures as match objects.

=head2 %{}

When used as a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4244	4340	
==>rence, the match object returns positional
captures as match objects.

=head2 %{}

When used as a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37362	37456	
==>ded, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

Th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37362	37456	
==>ded, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14556	14686	
==>a.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	108	227	
==>nstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	108	227	
==>nstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	108	227	
==>nstant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2489	2662	
==>rgs) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2489	2662	
==>rgs) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	121	220	
==>1';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	121	220	
==>1';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_at <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	615	713	
==>ts $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1814	1942	
==>ode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1814	1942	
==>ode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1324	1438	
==>$struct->{$_} ) for keys %$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $o <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2697	2792	
==>rs)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18941	19116	
==>ll->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18941	19116	
==>ll->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18941	19116	
==>ll->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5291	5391	
==>se remove the '$self->{prefix}' directory and run $0 again to load it.
END_DIE

    my $obj = $admin- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3699	3847	
==>f++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3699	3847	
==>f++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7521	7635	
==>od +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERSION );

Normalizes the ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33632	33748	
==>shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ : <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33632	33748	
==>shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ : <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33632	33748	
==>shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ : <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	555	659	
==>line};
precomp(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setup_output {
    if ($Config{out <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8049	8175	
==>me::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8037	8163	
==>me::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! def <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	716	854	
==>return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " but ran $run";            
        }
    }
});

$::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	495	593	
==>psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	495	593	
==>psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	495	593	
==>psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles l <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17456	17578	
==>:Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'C <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17456	17578	
==>:Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17292	17410	
==>ink');
                # $backlink->push_content(abs2rel($source, $output_dir));
                $h->push_content($back <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2232	2334	
==>nts::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Events <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2463	2620	
==>torage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2463	2620	
==>torage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16010	16102	
==>trijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iint <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16068	16160	
==>trijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iint <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1112	1241	
==>= $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4351	4480	
==>= $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1112	1241	
==>= $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4351	4480	
==>= $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	545	660	
==>tate $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	545	660	
==>tate $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18963	19054	
==>ed, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<userna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18963	19054	
==>ed, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<userna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	952	1088	
==>l',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'looser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13449	13583	
==>r @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13449	13583	
==>r @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13449	13583	
==>r @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6:: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9458	9579	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10264	10385	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11179	11300	
==>t relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others - <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2349	2446	
==>ed_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <noncapturing_group <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4813	4907	
==>pl, \%args) or error(Params::Check->last_error), return;

    for my $index ( $self->index_file <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7206	7316	
==>$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design documents
    for (@syn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	924	1024	
==>r->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	924	1024	
==>r->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	924	1024	
==>r->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1564	1664	
==>warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1564	1664	
==>warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1564	1664	
==>warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12499	12609	
==>);

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5974	6084	
==>);

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADE <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3192	3301	
==>a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3192	3301	
==>a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1304	1403	
==>"Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1304	1403	
==>"Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1304	1403	
==>"Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1968	2167	
==>>[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2388	2581	
==>>[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1904	2097	
==>>[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2388	2581	
==>>[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1089	1197	
==>::Object;

class JSX::PropertyAttributes {
    has $.ReadOnly;
    has $.DontEnum;
    has $.DontDelete;
}

c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4510	4605	
==>ance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, I <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4510	4605	
==>ance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6034	6129	
==>ance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29719	29816	
==>be executed.  As such,
it would be pre-consumptive.

There is an interesting case of the right par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19162	19256	
==>I SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19162	19256	
==>I SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19162	19256	
==>I SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14605	14739	
==>sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DES <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14605	14739	
==>sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DES <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23729	23843	
==>);
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24008	24122	
==>);
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2052	2186	
==>!!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1527	1632	
==>Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1527	1632	
==>Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1527	1632	
==>Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30126	30216	
==>ality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34678	34768	
==>ality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33851	33941	
==>ality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<w <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1423	1524	
==>Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterion    ::= KeyExtract <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2548	2648	
==>o, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2548	2648	
==>o, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2548	2648	
==>o, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximu <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	90	188	
==>ixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_field <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	90	188	
==>ixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_field <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32493	32584	
==>ext::Translator Class

While a Translator object stores some attributes for configuration, i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32493	32584	
==>ext::Translator Class

While a Translator object stores some attributes for configuration, i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5722	5927	
==>ring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $stri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5722	5927	
==>ring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $stri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5722	5927	
==>ring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $stri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	894	1001	
==>tr( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1861	1988	
==>angle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . '"' 
        if exists <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6674	6793	
==>5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8665	8760	
==>IL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8665	8760	
==>IL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8665	8760	
==>IL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5314	5417	
==>, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5314	5417	
==>, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5904	6007	
==>, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	477	573	
==>ETHODS

=over 4

=item B<new (*native*) returns nil>

=item B<to_native () returns *native*>

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3791	3885	
==>e,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3791	3885	
==>e,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3791	3885	
==>e,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3547	3685	
==>d" :load
    .local pmc optable
    $P0 = getclass "PGE::Exp::Subrule"
    $P1 = subclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4397	4507	
==>IL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4397	4507	
==>IL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4397	4507	
==>IL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cos <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	593	713	
==>w+::\w+) \s* \{)}{
		$orginal = $1;
		$sub = $2;
		if ($sub =~ /$regex/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8312	8425	
==>ings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8312	8425	
==>ings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8312	8425	
==>ings( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12734	12861	
==>gated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob[" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2033	2130	
==>elf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2033	2130	
==>elf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2033	2130	
==>elf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5605	5719	
==>ed { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5605	5719	
==>ed { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5605	5719	
==>ed { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13527	13632	
==>e can't know it's type
ide: type($$) = {
	my $t = env($$)->{$.v};

	die "no such identifier " . $.v unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	298	395	
==>Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	298	395	
==>Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	298	395	
==>Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10983	11079	
==>ntly.

The string representation is built by calling the visual() method of
each node in the tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1811	1909	
==>substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1811	1909	
==>substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1811	1909	
==>substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22007	22217	
==>t( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22286	22496	
==>t( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." ) <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2132	2265	
==>oin(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', ' <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2132	2265	
==>oin(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1201	1304	
==>ed modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1201	1304	
==>ed modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17211	17306	
==>mplements a virtual machine that is embedded in your Perl application and
in which the Rosetta D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17211	17306	
==>mplements a virtual machine that is embedded in your Perl application and
in which the Rosetta D <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12320	12446	
==>}) {
                if (@{$test{failed}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($test{max},$te <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1319	1418	
==>till_day, $devs_till_day[-1] while
  @devs_till_day < @commits_till_day;

# Create the graph.
my $gr <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	138	234	
==>re how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline> <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	138	234	
==>re how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1180	1297	
==>tifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1180	1297	
==>tifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1180	1297	
==>tifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4052	4200	
==>s[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3928	4071	
==>s[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capt <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1162	1256	
==>ead1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
gra <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1162	1256	
==>ead1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
gra <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1703	1822	
==>ss $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1703	1822	
==>ss $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

met <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11602	11691	
==>`$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() th <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11660	11749	
==>`$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() th <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1455	1566	
==>'.$fname) or die "error: open '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13195	13299	
==>:dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13195	13299	
==>:dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13195	13299	
==>:dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1236	1483	
==>G>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) return <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1236	1483	
==>G>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4135	4310	
==>fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete e <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4135	4310	
==>fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete e <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7857	7957	
==>exceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7857	7957	
==>exceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5407	5503	
==>accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5407	5503	
==>accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq norma <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3682	3808	
==>als) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $ty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2324	2480	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27478	27634	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2517	2673	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27757	27913	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29032	29125	
==>package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29032	29125	
==>package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29032	29125	
==>package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Ca <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1319	1422	
==>( $relativePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0, 1 =~ m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37862	37956	
==>lt of first pairwise-matching every tuple of each source relation
with every tuple of each othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42411	42505	
==>lt of first pairwise-matching every tuple of each source relation
with every tuple of each othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42061	42155	
==>lt of first pairwise-matching every tuple of each source relation
with every tuple of each othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1775	1886	
==>_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1775	1886	
==>_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1775	1886	
==>_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	541	649	
==>rgs)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3997	4097	
==>t

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has I <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3997	4097	
==>t

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has I <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4554	4650	
==>rectly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4554	4650	
==>rectly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=he <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1566	1686	
==>g Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # d <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1566	1686	
==>g Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	153	254	
==>e.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_AR <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	359	460	
==>e.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_AR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6180	6313	
==>Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6180	6313	
==>Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1138	1252	
==>s, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	241	354	
==>s, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implem <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	716	834	
==>(-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	39	135	
==>gs;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	39	135	
==>gs;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	39	135	
==>gs;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construct <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2118	2242	
==>ex_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1619	1713	
==>lf->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1619	1713	
==>lf->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1619	1713	
==>lf->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	2545	2635	
==>omano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc / <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	613	746	
==>rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	613	746	
==>rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18015	18098	
==>ispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descendan <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41280	41363	
==>ispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descendan <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1059	1161	
==>alidate_params();
  add_smoke();
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3433	3524	
==>ss itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3433	3524	
==>ss itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5630	5721	
==>ss itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	539	670	
==>return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	539	670	
==>return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1186	1306	
==>s instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->red <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13712	13826	
==>s instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->red <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16286	16423	
==>ch[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16280	16417	
==>ch[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5019	5225	
==>/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    p <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4235	4425	
==>/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            p <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	87	184	
==>rigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

mult <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	87	184	
==>rigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

mult <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2357	2474	
==>ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOS <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2357	2474	
==>ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOS <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6406	6504	
==>nt to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6406	6504	
==>nt to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1339	1475	
==>des = shift;

    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1684	1817	
==>des = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alte <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1291	1424	
==>des = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1684	1817	
==>des = shift;
    # die "alternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7718	7817	
==>ault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7718	7817	
==>ault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7718	7817	
==>ault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13557	13655	
==>_complain = sub { Carp::carp("p6_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26713	26812	
==>Key attribute of the new object is set from the named parameter
$msg_key (a string); the optional na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26713	26812	
==>Key attribute of the new object is set from the named parameter
$msg_key (a string); the optional na <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3250	3343	
==>ction(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3250	3343	
==>ction(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args) <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7883	8004	
==>ags in Perl5 embedding.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->ca <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10808	10922	
==>et )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10808	10922	
==>et )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2915	3027	
==>itions/;

    print $template;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7148	7362	
==>lse {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7148	7362	
==>lse {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4565	4721	
==>n gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4565	4721	
==>n gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4428	4542	
==>tten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) & <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4428	4542	
==>tten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) & <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1504	1616	
==>onally supply:

    epsilon - tolerance (how accurate the answer must be)
    fprime  - an exact first derivative <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1662	1760	
==>ponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.* <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1662	1760	
==>ponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.* <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7038	7153	
==>$^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4687	4776	
==>amespaces relative to New::Namespace::Root. This overrides whatever
blessing they had befo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4687	4776	
==>amespaces relative to New::Namespace::Root. This overrides whatever
blessing they had befo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4687	4776	
==>amespaces relative to New::Namespace::Root. This overrides whatever
blessing they had befo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22026	22122	
==>or numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric han <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20907	21003	
==>or numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric han <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22026	22122	
==>or numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric han <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20907	21003	
==>or numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric han <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1649	1774	
==>eplace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!fil <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2230	2355	
==>eplace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1649	1774	
==>eplace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2230	2355	
==>eplace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!fil <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10491	10620	
==>e(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10491	10620	
==>e(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47039	47145	
==>ew($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespac <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47206	47312	
==>ew($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35804	35940	
==>=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35804	35940	
==>=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35804	35940	
==>=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $le <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2700	2796	
==>e, the
example goes on step further and Curries approxfprime with the user supplied
f.  Such thin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	776	913	
==>}
               map { split /\n/ } @_;
    my $fh = $TODO ? *STDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_) {
	pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3595	3711	
==>e) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3595	3711	
==>e) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3595	3711	
==>e) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2017	2176	
==>) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2210	2369	
==>) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1472	1585	
==>has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1472	1585	
==>has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12254	12363	
==>elf->{_is_vms};

    if (defined $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18437	18536	
==>) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18437	18536	
==>) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18437	18536	
==>) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5810	6005	
==>efined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5810	6005	
==>efined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5810	6005	
==>efined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6455	6601	
==>=> 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tighter',
        #~ other => '*',
    #~ );

    __PACKAG <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2720	2820	
==>h the same key, the encryption 
can be removed by XORing them together; you might not be able to deri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2720	2820	
==>h the same key, the encryption 
can be removed by XORing them together; you might not be able to deri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4944	5037	
==>t the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7612	7705	
==>t the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right metho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14688	14797	
==>k :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14688	14797	
==>k :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MO <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1036	1130	
==>PTION

The runtime object is responsible for providing the compiler with replacement
data for s <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4538	4625	
==><code> \)\> }

rule character  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<explici <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1298	1454	
==>y $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1298	1454	
==>y $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2520	2631	
==>ode as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one= <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2520	2631	
==>ode as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one= <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2210	2335	
==>sage (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Thin <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2210	2335	
==>sage (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Thin <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6620	6721	
==>case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6620	6721	
==>case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9067	9183	
==>hift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONT <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9067	9183	
==>hift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2085	2186	
==>nt->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedenc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2085	2186	
==>nt->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedenc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1676	1774	
==>g>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is co <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1676	1774	
==>g>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37035	37129	
==>ass also has these utility methods, which are all used by
translate_message() to handle the tri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37035	37129	
==>ass also has these utility methods, which are all used by
translate_message() to handle the tri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1926	2052	
==>js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1926	2052	
==>js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1926	2052	
==>js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  su <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2460	2574	
==>ξοπρστυφχψω"; # some identifiers for types. Let'shope we never need to print more than these ;-)
	
	my % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7598	7703	
==>Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7598	7703	
==>Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7598	7703	
==>Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25949	26043	
==>=item C<$!heading> - B<Relation::Example Heading>

Set of Str - This contains zero or more Rela <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14702	14814	
==>@{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	301	404	
==>given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	301	404	
==>given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	301	404	
==>given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1385	1486	
==>r) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1385	1486	
==>r) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1385	1486	
==>r) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24268	24362	
==>ther interactive program controlling their
  actions) which are always seen to be replying lest <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23041	23135	
==>ther interactive program controlling their
  actions) which are always seen to be replying lest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24268	24362	
==>ther interactive program controlling their
  actions) which are always seen to be replying lest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23041	23135	
==>ther interactive program controlling their
  actions) which are always seen to be replying lest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2391	2489	
==>$x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2391	2489	
==>$x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2391	2489	
==>$x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34296	34384	
==><[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6161	6267	
==>tcher( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low lev <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5950	6053	
==>tcher( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low lev <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4025	4121	
==>rrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4025	4121	
==>rrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18815	18912	
==>ns an anonymous hash
definition.  While it is obvious that people who would be writing the text
wo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18815	18912	
==>ns an anonymous hash
definition.  While it is obvious that people who would be writing the text
wo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1808	1899	
==>:Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1808	1899	
==>:Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7931	8074	
==>t->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7931	8074	
==>t->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7931	8074	
==>t->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back t <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15601	15724	
==>val));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3704	3797	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3704	3797	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3704	3797	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  P <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	262	509	
==>(
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) return <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	262	509	
==>(
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) return <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6429	6539	
==>os, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6429	6539	
==>os, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2798	2918	
==>it /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2798	2918	
==>it /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2798	2918	
==>it /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled P <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4912	5007	
==>ame" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39752	39848	
==>oftware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Publi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39752	39848	
==>oftware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Publi <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1238	1333	
==>modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1238	1333	
==>modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16798	16930	
==>$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f->($res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1538	1648	
==>v->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1538	1648	
==>v->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1538	1648	
==>v->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12300	12466	
==>h( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12294	12460	
==>h( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23758	23854	
==>I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22274	22370	
==>I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9255	9356	
==>Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9255	9356	
==>Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9255	9356	
==>Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=hea <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5299	5514	
==>600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5299	5514	
==>600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3854	3946	
==>evious, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3854	3946	
==>evious, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_ne <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8837	8957	
==>ious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8837	8957	
==>ious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2816	2928	
==>odifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2816	2928	
==>odifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6801	6952	
==>e';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2660	2751	
==>NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2660	2751	
==>NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2660	2751	
==>NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	600	719	
==>t\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	600	719	
==>t\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8690	8797	
==>cedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6221	6324	
==>cedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1074	1229	
==>space} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1214	1369	
==>space} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4676	4805	
==>constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4530	4655	
==>constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	670	788	
==>ot found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http:// <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2165	2271	
==>my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2165	2271	
==>my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKA <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	569	673	
==>ot found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http:// <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	944	1045	
==>does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
cla <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	944	1045	
==>does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
cla <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16809	16901	
==>direct use of environment variables, which can aid in
portability.

Practically speaking, Loc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16809	16901	
==>direct use of environment variables, which can aid in
portability.

Practically speaking, Loc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22489	22599	
==>$S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23052	23162	
==>$S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18910	19020	
==>$S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19473	19583	
==>$S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11304	11421	
==>t source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14781	14898	
==>t source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14089	14206	
==>t source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6058	6167	
==>thoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6058	6167	
==>thoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6058	6167	
==>thoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21488	21584	
==>).
In doing so, found that the "too many branches" error wasn't being raised
until the second pas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	350	447	
==>strapping
## implementation of Roles into the model. See below for more details.
## -------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23831	23922	
==>re_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23831	23922	
==>re_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23831	23922	
==>re_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6485	6576	
==>2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6485	6576	
==>2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6485	6576	
==>2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithout <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2698	2853	
==>->{bin} || [] } ) {
            1 while unlink "$Bindir/$script";
            1 while unlink "$Alternatives/$script";
        }      
        
        ### s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21	121	
==>kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21	121	
==>kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21	121	
==>kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16726	16843	
==>e($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16726	16843	
==>e($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16726	16843	
==>e($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14398	14494	
==>ent group

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	116	220	
==>o that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	116	220	
==>o that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	116	220	
==>o that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions out <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	116	220	
==>o that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4840	4982	
==>R_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4840	4982	
==>R_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4840	4982	
==>R_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  lo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6409	6502	
==>ift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4172	4291	
==>";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5)?!?
    return &$step;
  };
}

my @whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1283	1395	
==>aramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PI <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1283	1395	
==>aramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PI <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1283	1395	
==>aramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PI <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	336	464	
==>here this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     r <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	336	464	
==>here this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21399	21493	
==>/QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21399	21493	
==>/QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4429	4529	
==>}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10163	10263	
==>str target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4429	4529	
==>}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4429	4529	
==>}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11322	11463	
==>c->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11322	11463	
==>c->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11322	11463	
==>c->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9346	9484	
==>ering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        defaul <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9346	9484	
==>ering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        defaul <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14030	14132	
==>a->[0][0]->emit;
    my $crufty = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	886	1002	
==>e tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	886	1002	
==>e tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	886	1002	
==>e tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5042	5151	
==>ssoc => 'left',
    fixity => 'infix',
    block => sub {...},   # XXX - the return block could be generated a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28696	28790	
==>attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33248	33342	
==>attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32376	32470	
==>attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	920	1129	
==>sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$sexpr};
        fore <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	586	689	
==>'t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	586	689	
==>'t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	586	689	
==>'t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->ca <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9980	10119	
==>e(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Com <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1194	1330	
==>e(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Com <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6884	6996	
==>$o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7443	7555	
==>$o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	635	768	
==>ass) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	635	768	
==>ass) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	635	768	
==>ass) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26397	26494	
==>ne ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11269	11390	
==>s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() / <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4839	4939	
==>_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ob <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5183	5283	
==>_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ob <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23313	23407	
==>on::Example data type is proposed to be
generally useful, and very basic, and worthy of inclusi <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	149	243	
==>tion in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	149	243	
==>tion in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6692	6783	
==>hildren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6692	6783	
==>hildren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	303	419	
==>ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	303	419	
==>ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	303	419	
==>ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1750	1857	
==>->new(map { str->new($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	435	526	
==>ER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	435	526	
==>ER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	435	526	
==>ER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4229	4335	
==>ot
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4229	4335	
==>ot
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4229	4335	
==>ot
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Clas <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4511	4779	
==>fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4511	4779	
==>fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4254	4424	
==>do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4254	4424	
==>do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2531	2629	
==>.keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junctio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2531	2629	
==>.keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junctio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2531	2629	
==>.keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junctio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4280	4406	
==>oxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_ty <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4280	4406	
==>oxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_ty <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6377	6475	
==>$event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6377	6475	
==>$event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29000	29180	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29279	29459	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule-> <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2960	3057	
==>al form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on h <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2960	3057	
==>al form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27094	27210	
==>l {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1938	2032	
==>multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1938	2032	
==>multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1938	2032	
==>multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$i <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	38	157	
==>::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FI <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	38	157	
==>::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FI <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	35	133	
==>:DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a pro <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	35	133	
==>:DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a pro <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13462	13588	
==>{
    my $self = shift;
    my $thunk = shift;

    # FIXME - ought to check if the runtime has a hash for this
    # in the fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2152	2244	
==>ethod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2152	2244	
==>ethod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2152	2244	
==>ethod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5016	5153	
==>alue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5016	5153	
==>alue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5016	5153	
==>alue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11414	11564	
==>{
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11414	11564	
==>{
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1034	1174	
==>() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1034	1174	
==>() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20989	21164	
==>ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21268	21443	
==>ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33280	33379	
==>tch for that message is found.  Since a
program or library may wish to override the user text of ano <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33280	33379	
==>tch for that message is found.  Since a
program or library may wish to override the user text of ano <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6207	6306	
==>rser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6207	6306	
==>rser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	282	378	
==>ipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=he <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	282	378	
==>ipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=he <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	605	708	
==>KAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Pre <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3727	3827	
==>test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3727	3827	
==>test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5924	6024	
==>test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1545	1648	
==>ules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1545	1648	
==>ules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	759	854	
==>thorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Loc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	759	854	
==>thorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Loc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1435	1559	
==>rectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1435	1559	
==>rectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7318	7401	
==>("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7318	7401	
==>("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14233	14349	
==>oping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14233	14349	
==>oping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	280	373	
==>al,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::Run::OnPerl5::X1::BB::de <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	103	191	
==>END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function openNewWindows() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15449	15657	
==>term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15728	15936	
==>term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6476	6589	
==>elf.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6476	6589	
==>elf.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $ <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3318	3421	
==>s Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use Duration::Gregorian;# qw(duration);

#BEGI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4302	4392	
==>$PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4302	4392	
==>$PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4302	4392	
==>$PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUB <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	379	475	
==>d () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	379	475	
==>d () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1392	1487	
==>d () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1392	1487	
==>d () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45751	45975	
==>=> 'opaque'),
                              symbol->new('?$name' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8721	8824	
==><<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8721	8824	
==><<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8721	8824	
==><<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2094	2203	
==>c(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2094	2203	
==>c(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2094	2203	
==>c(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8083	8220	
==>g lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12076	12206	
==>g lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12076	12206	
==>g lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h-> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1683	1790	
==>lar::Util::blessed($node->struct_equiv);

	if (my $meth = $self->can("reduce_" . $node->struct_equiv->monike <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3707	3872	
==>($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3847	4012	
==>($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $ <==
4	/Users/nnunley/pugs/util/grokprims.pl	1781	1889	
==>ight-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23128	23218	
==>ee op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23128	23218	
==>ee op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23128	23218	
==>ee op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22737	22823	
==>r(_,C,[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
charset_member(_,C,[clas <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13883	13982	
==>rns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13941	14040	
==>rns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipp <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13085	13181	
==>o those keys.

=over

=item Unary Form

Implementations should create a suitable macro, or otherw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17841	17948	
==>$class = ref $proto || $proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4088	4183	
==>type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4088	4183	
==>type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4088	4183	
==>type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junct <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	167	301	
==>r (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple docume <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7746	7943	
==>name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7746	7943	
==>name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25136	25229	
==>elation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicatin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29688	29781	
==>elation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicatin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	405	512	
==>e and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sens <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	405	512	
==>e and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sens <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	405	512	
==>e and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sens <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2389	2490	
==>in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2389	2490	
==>in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1610	1707	
==>in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3471	3568	
==>in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10356	10495	
==>tch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10350	10489	
==>tch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2000	2084	
==>-------------------------------------------------------------------
## adding childre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2000	2084	
==>-------------------------------------------------------------------
## adding childre <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6199	6346	
==>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5272	5419	
==>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6199	6346	
==>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need t <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5272	5419	
==>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1784	1967	
==>rn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .ex <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1784	1967	
==>rn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2568	2665	
==>ement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2568	2665	
==>ement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_per <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16524	16633	
==>turn $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12945	13054	
==>turn $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2213	2301	
==><http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2213	2301	
==><http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	827	955	
==>rement), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13416	13625	
==>arn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13416	13625	
==>arn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13416	13625	
==>arn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	703	799	
==>elf->version(ExtUtils::MM_Unix->parse_version($file)) if -f $file;
    }

    $self->version or d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4389	4532	
==>truct => $meta)) or return;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 packa <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1101	1203	
==>urn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($se <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	843	945	
==>urn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1101	1203	
==>urn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	843	945	
==>urn $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	159	261	
==>nClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	159	261	
==>nClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	159	261	
==>nClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2583	2680	
==>rovides a small sample of
Perl 6 syntax and semantics.

=head2 Other Perl 6 implementations

The P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10173	10358	
==>('%:methods'))
                  ->remove($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opaque $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10836	10945	
==>method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10836	10945	
==>method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10836	10945	
==>method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_n <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1437	1579	
==>t) {
#            $ccset->{$_} = 1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12516	12623	
==>=>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12516	12623	
==>=>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12516	12623	
==>=>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13327	13500	
==>0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3492	3645	
==>0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3492	3645	
==>0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3492	3645	
==>0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2383	2483	
==>el = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2383	2483	
==>el = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2383	2483	
==>el = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  fo <==
4	/Users/nnunley/pugs/util/claim_drift.pl	82	180	
==>f you have several working directories and they all use a shared DrIFT,
# you need to point symlink <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4345	4504	
==>$matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4213	4367	
==>$matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2973	3099	
==>= $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Se <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2973	3099	
==>= $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4606	4719	
==>$_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8083	8196	
==>$_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7076	7189	
==>$_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13452	13609	
==>str($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3601	3742	
==>str($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3601	3742	
==>str($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3601	3742	
==>str($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8018	8156	
==>ype,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6844	6967	
==>to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6844	6967	
==>to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6844	6967	
==>to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unbo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1554	1678	
==>class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1554	1678	
==>class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1554	1678	
==>class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	55	162	
==>n in the __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27001	27094	
==>mplement subset of the original's attributes to what C<project> would
return given the same C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31553	31646	
==>mplement subset of the original's attributes to what C<project> would
return given the same C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30609	30702	
==>mplement subset of the original's attributes to what C<project> would
return given the same C< <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	611	699	
==>Parrot::PMC
our $interpreter;
use overload '0+' => sub {Inline::Parrot::PMC::get_int($Inl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	563	722	
==>plemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	534	693	
==>plemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	563	722	
==>plemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	563	722	
==>plemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2986	3138	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2986	3138	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2986	3138	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19464	19599	
==>v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTRE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15885	16020	
==>v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTRE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4459	4590	
==>ntf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################(( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4681	4812	
==>ntf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################(( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5013	5119	
==>n { single_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1215	1306	
==>recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1215	1306	
==>recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1215	1306	
==>recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclas <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4262	4364	
==>)}mesg;
}

sub precomp {
    print STDERR "Generating precompiled Prelude" if $Config{verbose};
    die <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4966	5063	
==>(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4966	5063	
==>(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4966	5063	
==>(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode(" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1479	1667	
==>gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1479	1667	
==>gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16171	16265	
==>hile another one displays it to the
user instead.

Locale::KeyedText provides a simple but effe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16171	16265	
==>hile another one displays it to the
user instead.

Locale::KeyedText provides a simple but effe <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8601	8702	
==>cimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12125	12226	
==>cimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13243	13336	
==>s of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13243	13336	
==>s of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1  <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4129	4246	
==>IL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4129	4246	
==>IL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	979	1096	
==>IL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	221	317	
==>foolish
# script, ignoring deeper context, needs lots of
# improvement. Due to regexp's limits, i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25495	25593	
==>oth C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the above.

=item C<Failed 1 t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14998	15099	
==>:Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14998	15099	
==>:Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14998	15099	
==>:Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5487	5583	
==>$smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>),
    $smoke{id};
}

sub unpack_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12648	12760	
==>()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12648	12760	
==>()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12648	12760	
==>()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12600	12746	
==>], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12600	12746	
==>], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12600	12746	
==>], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
4	/Users/nnunley/pugs/util/grokprims.pl	387	494	
==>s /^\\\\n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1492	1607	
==>ngual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Perl6> is the
    # only re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13008	13113	
==>xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13008	13113	
==>xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13008	13113	
==>xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	66	184	
==>class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	66	184	
==>class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12897	12992	
==>multiple field names then it is generally not
possible to tell which of the returned values belo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12897	12992	
==>multiple field names then it is generally not
possible to tell which of the returned values belo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21600	21723	
==>tatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7185	7344	
==>my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7185	7344	
==>my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7185	7344	
==>my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVE <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2335	2454	
==>LTS{$_} unless defined $conf->{$_}; } for
        keys %DEFAULTS;
}

sub lookup {
    my($class, $what) = @_;
    die "u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6246	6367	
==>match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6258	6379	
==>match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2455	2553	
==>nes with p6 ones _without_ changings its name.



of course that has the problem of supplying Perl. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2362	2458	
==>nes with p6 ones _without_ changings its name.

of course that has the problem of supplying Perl. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7606	7744	
==>_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1065	1168	
==>nd boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .conta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1065	1168	
==>nd boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .conta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1065	1168	
==>nd boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .conta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4484	4604	
==>.. }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         mac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2127	2219	
==>r.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2127	2219	
==>r.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2127	2219	
==>r.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5256	5379	
==>ibutes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            docume <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5256	5379	
==>ibutes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            docume <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10687	10773	
==>{$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10687	10773	
==>{$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6984	7091	
==>PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16505	16610	
==>pace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16505	16610	
==>pace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16505	16610	
==>pace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5122	5298	
==>eter from the parameter stack and binds it to a symbol.

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    Sym(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	464	597	
==>'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	464	597	
==>'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	464	597	
==>'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2515	2648	
==>2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2515	2648	
==>2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2515	2648	
==>2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.le <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	441	559	
==>self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{fi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24970	25065	
==>t.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29522	29617	
==>t.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28434	28529	
==>t.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17756	17872	
==>new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17756	17872	
==>new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	378	490	
==>ef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	360	467	
==>ef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45252	45342	
==>t));

$::Package->send('add_attribute', (symbol->new('$:name')      => attribute->new('$:na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14494	14580	
==>::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instanc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14494	14580	
==>::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instanc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14494	14580	
==>::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instanc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5885	5988	
==>("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5885	5988	
==>("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	349	447	
==>class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Tok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	349	447	
==>class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Tok <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15318	15434	
==>blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5003	5117	
==>size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8480	8594	
==>size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7491	7605	
==>size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	962	1093	
==>\$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2662	2762	
==>'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2662	2762	
==>'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2662	2762	
==>'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11186	11286	
==>arser->qr;

The regex is formed by calling the qr() method of each node in the tree,
which may be dif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15310	15409	
==>{...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15310	15409	
==>{...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15310	15409	
==>{...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	418	524	
==>, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 24 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	418	524	
==>, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 24 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15119	15217	
==>s the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
de <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15119	15217	
==>s the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2259	2354	
==>ve_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2259	2354	
==>ve_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2259	2354	
==>ve_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2030	2148	
==>\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2030	2148	
==>\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11256	11348	
==>ld, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) wh <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11256	11348	
==>ld, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17816	17922	
==>f => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17816	17922	
==>f => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17816	17922	
==>f => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRI <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	172	269	
==>ails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, Str ?$file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16635	16811	
==>Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16635	16811	
==>Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16635	16811	
==>Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array-> <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	383	482	
==>@ARGV;
Pipe output of "svn log" or save "svn log" output in a file and
specify this file as paramete <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36942	37058	
==>array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos > <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36942	37058	
==>array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos > <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36942	37058	
==>array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos > <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39760	39849	
==>sion of the aforementioned.

=item C<join (Relation::Example $other!) returns Relation::Ex <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12855	12983	
==>"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	22	133	
==>e warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVar <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2088	2225	
==>and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3622	3750	
==>and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8306	8397	
==>ment ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_inte <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8306	8397	
==>ment ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_inte <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7071	7274	
==>nt = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7071	7274	
==>nt = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7275	7369	
==>item I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=it <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7275	7369	
==>item I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1458	1565	
==>et $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1458	1565	
==>et $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	278	379	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	278	379	
==>ddition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8531	8659	
==>at = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6864	6975	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6864	6975	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6864	6975	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5790	5901	
==>th;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5790	5901	
==>th;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3123	3223	
==>ler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so li <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1869	1967	
==>:)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have tw <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1869	1967	
==>:)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have tw <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3013	3109	
==>ler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4291	4425	
==>lf = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4843	4941	
==>::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a tem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4843	4941	
==>::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a tem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4843	4941	
==>::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a tem <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3409	3520	
==>de);
		my $class = B::class($obj);

		return $class unless $class eq "PVMG";

		my $flags = $obj->flagspv;

		re <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	606	729	
==>sic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26246	26342	
==>al's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30798	30894	
==>al's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29791	29887	
==>al's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2975	3149	
==>$num) {
                $self->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.numbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1268	1365	
==>ckage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1268	1365	
==>ckage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1268	1365	
==>ckage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14716	14827	
==>de has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14716	14827	
==>de has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14716	14827	
==>de has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	22093	22186	
==>empting to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $file > $file.yml") <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1807	1922	
==>/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	224	330	
==>false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	224	330	
==>false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	224	330	
==>false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2J <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12260	12357	
==>archy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12260	12357	
==>archy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18165	18260	
==>l.  To account for situations where multiple DBMS
objects want to use the same external resource <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18165	18260	
==>l.  To account for situations where multiple DBMS
objects want to use the same external resource <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9829	9923	
==>map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24055	24149	
==>substitute the user's preferred
language into the program code itself, so it then becomes a ver <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9829	9923	
==>map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24055	24149	
==>substitute the user's preferred
language into the program code itself, so it then becomes a ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7057	7156	
==>oro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7057	7156	
==>oro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7057	7156	
==>oro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2968	3082	
==>r sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2968	3082	
==>r sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2968	3082	
==>r sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5254	5366	
==>gory>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., precedence => . <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2551	2661	
==>elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2551	2661	
==>elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34930	35025	
==>e set when the object is constructed.  If you want to
conceptually change an existing Translator <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34930	35025	
==>e set when the object is constructed.  If you want to
conceptually change an existing Translator <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	454	548	
==>.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	454	548	
==>.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	454	548	
==>.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (N <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2450	2558	
==>ATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2450	2558	
==>ATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	89	195	
==>ntime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&arr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	89	195	
==>ntime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	687	793	
==>self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	687	793	
==>self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	687	793	
==>self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24 <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2942	3040	
==>copied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gat <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9057	9170	
==>se +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29017	29110	
==>xed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29017	29110	
==>xed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29017	29110	
==>xed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Valu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5778	5910	
==>it {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7785	7909	
==>S.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7785	7909	
==>S.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7785	7909	
==>S.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2027	2150	
==>SAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1519	1618	
==>s) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1519	1618	
==>s) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1519	1618	
==>s) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23091	23186	
==>channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21900	21995	
==>channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23091	23186	
==>channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21900	21995	
==>channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	299	395	
==>estPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	299	395	
==>estPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	299	395	
==>estPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3481	3572	
==>rtal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8792	8897	
==>ad_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8792	8897	
==>ad_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22272	22375	
==>("nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2090	2180	
==>return (Pugs::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.as <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5980	6101	
==>rget = $dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15270	15369	
==>(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15270	15369	
==>(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15270	15369	
==>(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4017	4122	
==>kAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4017	4122	
==>kAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4017	4122	
==>kAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skip <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10470	10552	
==>y=>$isLazy, paramName=>$paramName, paramContext=>$paramContext, paramDefault=>$defa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7527	7650	
==>gify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7527	7650	
==>gify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2475	2598	
==>ss = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        requ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9434	9563	
==>return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9434	9563	
==>return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9434	9563	
==>return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1142	1249	
==>porting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Q <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1142	1249	
==>porting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1733	1831	
==>OF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1733	1831	
==>OF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1733	1831	
==>OF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14709	14804	
==>tional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14709	14804	
==>tional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20287	20381	
==>oping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20287	20381	
==>oping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the se <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2908	3012	
==>e software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General P <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3065	3169	
==>e software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General P <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2908	3012	
==>e software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General P <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3065	3169	
==>e software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General P <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	287	408	
==>s{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	287	408	
==>s{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20253	20349	
==>. In this case the result of the compilation
is replaced by a single line containing the hexadeci <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20253	20349	
==>. In this case the result of the compilation
is replaced by a single line containing the hexadeci <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	715	874	
==>rotocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	715	874	
==>rotocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20359	20454	
==>package installers usually do it.  An os-level preference
/ control-panel displays a list of all <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20359	20454	
==>package installers usually do it.  An os-level preference
/ control-panel displays a list of all <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3478	3614	
==>r) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38637	38758	
==>e::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38637	38758	
==>e::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38637	38758	
==>e::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8355	8489	
==>T] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8355	8489	
==>T] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            ( <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1204	1320	
==>tring is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) ret <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1204	1320	
==>tring is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) ret <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	542	728	
==>> 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23092	23192	
==>2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23092	23192	
==>2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23092	23192	
==>2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10551	10674	
==>y $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11013	11136	
==>y $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10545	10668	
==>y $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11007	11130	
==>y $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5445	5539	
==>unction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5445	5539	
==>unction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5445	5539	
==>unction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4988	5104	
==>" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4988	5104	
==>" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4988	5104	
==>" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "P <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5475	5576	
==>n) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blondie::Param")) {
				push @param <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1845	1998	
==>n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1833	1986	
==>n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantifi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7889	7987	
==>uld assume that if this method is being called, the Secret 
Police are breaking down the door and O <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7889	7987	
==>uld assume that if this method is being called, the Secret 
Police are breaking down the door and O <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7430	7534	
==>\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7430	7534	
==>\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kic <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25978	26072	
==>th the message, and can be interpolated into the
human-readable version.  Each variable name is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25978	26072	
==>th the message, and can be interpolated into the
human-readable version.  Each variable name is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18578	18667	
==>p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15734	15823	
==>ationalExpression> <'instanceof'> <ShiftExpression>
    | <RelationalExpression> <'in'> <S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18578	18667	
==>p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18578	18667	
==>p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6284	6381	
==>ere are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document iden <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6284	6381	
==>ere are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document iden <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2685	2781	
==>al :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.val <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2685	2781	
==>al :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.val <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12136	12263	
==>in("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # partic <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12136	12263	
==>in("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # partic <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3488	3583	
==>tion;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: S <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1630	1725	
==>tion;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: S <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7024	7371	
==>>'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new(' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3057	3155	
==>odbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=hea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3057	3155	
==>odbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3137	3235	
==>odbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2985	3095	
==>') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13216	13312	
==>ble->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13216	13312	
==>ble->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13216	13312	
==>ble->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7225	7325	
==>f data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- highe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6979	7075	
==>f data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- highe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18266	18361	
==>ch as a repository file
on disk, it is expected that the Engines will employ appropriate measure <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18266	18361	
==>ch as a repository file
on disk, it is expected that the Engines will employ appropriate measure <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	644	739	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	644	739	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	644	739	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27440	27533	
==>ist α → int", ":t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5687	5785	
==>at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4817	4915	
==>at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5687	5785	
==>at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4817	4915	
==>at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1957	2127	
==>" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@grammar1::ops, ::compile_rule( '" .
            quotemeta( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5877	6043	
==>r i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5877	6043	
==>r i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5877	6043	
==>r i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39115	39239	
==>et->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39115	39239	
==>et->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39115	39239	
==>et->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19604	19718	
==>onversions::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12256	12392	
==>n {
    my $self = shift;
    $self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5168	5271	
==>= @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5168	5271	
==>= @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5168	5271	
==>= @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $para <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15665	15788	
==>sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2062	2185	
==>sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1058	1153	
==>tty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1058	1153	
==>tty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16764	16865	
==>ue.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't in <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16764	16865	
==>ue.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't in <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10718	10812	
==>OR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creat <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10718	10812	
==>OR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11002	11113	
==>ified items from the set. Returns the number of items
removed.

It is not fatal to remove an item which is not i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8406	8517	
==>ified items from the set. Returns the number of items removed.

It is not fatal to remove an item which is not i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11002	11113	
==>ified items from the set. Returns the number of items
removed.

It is not fatal to remove an item which is not i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8406	8517	
==>ified items from the set. Returns the number of items removed.

It is not fatal to remove an item which is not i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1726	1826	
==>L::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1726	1826	
==>L::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	10	109	
==>erl6::ContainerTypes;

use strict;
use warnings;

use Perl6::MetaModel;

role 'IScalar' => {};

clas <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1373	1468	
==>_superclasses($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2573	2661	
==>attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2573	2661	
==>attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2573	2661	
==>attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method(' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10425	10525	
==>w, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.def <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10425	10525	
==>w, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.def <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2714	2809	
==>ng public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET') <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2714	2809	
==>ng public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET') <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5351	5537	
==>th;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= - <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5351	5537	
==>th;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= - <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1988	2088	
==>L::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1988	2088	
==>L::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6043	6201	
==>tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var reg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6043	6201	
==>tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var reg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6043	6201	
==>tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var reg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1061	1175	
==>d($block) && $block->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3391	3494	
==>sed by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attribute <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3391	3494	
==>sed by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attribute <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8163	8259	
==>st::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8221	8317	
==>st::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13794	13934	
==>[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13794	13934	
==>[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13794	13934	
==>[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->( <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2210	2321	
==>int($x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symme <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7605	7748	
==>t)\
\\n   List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3507	3590	
==>ed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3507	3590	
==>ed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3507	3590	
==>ed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4742	4900	
==>n $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4742	4900	
==>n $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2793	2913	
==>= split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2793	2913	
==>= split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2793	2913	
==>= split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1792	1884	
==>$term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|preco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1792	1884	
==>$term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|preco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1792	1884	
==>$term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|preco <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3752	3851	
==>rn $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3752	3851	
==>rn $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16658	16755	
==>ees; it never outputs anything by itself to the user, but
rather returns its results for calling c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16658	16755	
==>ees; it never outputs anything by itself to the user, but
rather returns its results for calling c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1469	1577	
==>(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1469	1577	
==>(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1469	1577	
==>(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1325	1433	
==>Item);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1325	1433	
==>Item);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1325	1433	
==>Item);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doubl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6464	6568	
==>me'};
  sub info { \$info } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\n".<<'E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1207	1322	
==>$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1207	1322	
==>$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1207	1322	
==>$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1993	2094	
==>urn $node->struct_equiv;
	} elsif ($t eq "PV") {
		return quote(printable($node->struct_equiv));
	} el <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13982	14094	
==>gs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10209	10321	
==>gs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13982	14094	
==>gs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10209	10321	
==>gs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1364	1478	
==>perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $p6->{perl5}, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23478	23584	
==>1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$q <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23478	23584	
==>1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$q <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23478	23584	
==>1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3180	3274	
==>rated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in some <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3067	3159	
==>rated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in some <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	481	598	
==>d2 next()

Iterate through it, of course.

=cut

sub new {
    my($proto, $thing) = @_;

    my $self = {};
    if( re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1356	1459	
==>n is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1356	1459	
==>n is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1356	1459	
==>n is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be def <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4403	4510	
==>ix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4403	4510	
==>ix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5275	5380	
==>ix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5275	5380	
==>ix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1642	1761	
==>ote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.p <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1642	1761	
==>ote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.p <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1716	1813	
==>infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1716	1813	
==>infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1994	2103	
==>nwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1994	2103	
==>nwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1994	2103	
==>nwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3533	3633	
==>ine_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6634	6767	
==>ror message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6634	6767	
==>ror message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8691	8795	
==>untime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8679	8783	
==>untime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7139	7242	
==>elete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7139	7242	
==>elete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!user <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9636	9733	
==>ION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is d <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9636	9733	
==>ION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is d <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	95	208	
==>1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	95	208	
==>1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2373	2476	
==>efault_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2373	2476	
==>efault_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11259	11404	
==>, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11259	11404	
==>, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line <==
4	/Users/nnunley/pugs/util/func_refact.pl	2197	2316	
==>sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying: $cand\n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4686	4796	
==>-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3742	3865	
==>) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};

    if ($self->invoc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20548	20642	
==>nd then invoking methods on those objects.  All of
their class/object attributes are private, s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25100	25194	
==>nd then invoking methods on those objects.  All of
their class/object attributes are private, s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23670	23764	
==>nd then invoking methods on those objects.  All of
their class/object attributes are private, s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19544	19640	
==>urns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18525	18621	
==>urns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the name <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19544	19640	
==>urns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the name <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18525	18621	
==>urns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily the name <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12158	12290	
==>ams')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canidate, hash %params) returns opaque {
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4715	4816	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4715	4816	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4715	4816	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    wa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5133	5227	
==>utput, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instea <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5133	5227	
==>utput, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18571	18661	
==>fically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18571	18661	
==>fically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4237	4367	
==>',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4090	4216	
==>',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9453	9553	
==>'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9511	9611	
==>'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13231	13334	
==>});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13231	13334	
==>});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13231	13334	
==>});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10578	10671	
==>complement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10578	10671	
==>complement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1158	1266	
==>ift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1158	1266	
==>ift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1158	1266	
==>ift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
p <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1135	1231	
==>ry by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This pro <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	814	945	
==>>new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4196	4322	
==>ource = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4196	4322	
==>ource = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4196	4322	
==>ource = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4795	4905	
==>ems;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4795	4905	
==>ems;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4795	4905	
==>ems;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	116	234	
==>unction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	116	234	
==>unction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	116	234	
==>unction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNat <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5379	5478	
==>n> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	392	491	
==>plit('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	392	491	
==>plit('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5805	5898	
==>)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5805	5898	
==>)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	286	404	
==>->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.B <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	544	662	
==>s ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $.normaliz <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	286	404	
==>->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	286	404	
==>->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.B <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	525	621	
==>thod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTEN <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	525	621	
==>thod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTEN <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12259	12352	
==>> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12259	12352	
==>> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18937	19110	
==>->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18937	19110	
==>->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18937	19110	
==>->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays a <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16374	16477	
==>ugs_version" or
    die "Couldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2562	2663	
==>O - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2562	2663	
==>O - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2562	2663	
==>O - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13432	13533	
==>_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13432	13533	
==>_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13432	13533	
==>_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%para <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12079	12175	
==>directional pipe. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38823	38917	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43637	43731	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43171	43265	
==>. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Rel <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	286	382	
==>se File::Path qw(mkpath);

{
#   copy_all('src', 'blib6/arch/CORE/pugs');
    copy_all("$_/blib/" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21106	21200	
==>MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB gr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21106	21200	
==>MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB gr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21106	21200	
==>MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB gr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4462	4561	
==>minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25388	25487	
==>,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → (β ×  <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4462	4561	
==>minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4462	4561	
==>minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4268	4400	
==>rray: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9883	9974	
==>{ return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9883	9974	
==>{ return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9883	9974	
==>{ return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7735	7839	
==>l => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9663	9767	
==>l => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7723	7827	
==>l => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'boo <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6896	6993	
==>ew(@_);
	$self->{t} ||= type::operator::nullary->new("int");
	$self;
}


package types;

use Class <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1318	1464	
==>0;
    #::YY(\%nodes);
    while ($oldn != keys %$ccset) {
        $oldn = keys %$ccset;
        for my $f (keys %$ccset) {
#            $ccset->{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3346	3459	
==>s defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3346	3459	
==>s defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3346	3459	
==>s defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13602	13722	
==>x # of tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $reason) = $extra =~ /$Extra_He <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10409	10526	
==>ecause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_siz <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10409	10526	
==>ecause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_siz <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10409	10526	
==>ecause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_siz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2014	2182	
==>ethods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2014	2182	
==>ethods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20875	20971	
==>in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20875	20971	
==>in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26789	26911	
==>ents, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27068	27190	
==>ents, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constan <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1367	1461	
==>($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1367	1461	
==>($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39987	40222	
==>=> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19536	19762	
==>=> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3045	3161	
==>mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3045	3161	
==>mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3045	3161	
==>mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7340	7445	
==>)
  $self->add_handler('\z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in character c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10704	10812	
==>ns 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.se <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10704	10812	
==>ns 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23218	23316	
==>le> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27770	27868	
==>le> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	692	837	
==>} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Sim <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	692	837	
==>} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Sim <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	451	545	
==>ME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perl <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	451	545	
==>ME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4590	4690	
==>kenStack[-1];
    goto missing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1657	1751	
==>Case() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1657	1751	
==>Case() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1657	1751	
==>Case() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subst <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29287	29395	
==>ide the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29287	29395	
==>ide the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2519	2619	
==>lf->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3474	3574	
==>lf->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3375	3498	
==>r'}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$var,$tok);
        return &$step;
      }
      my $op1 = $operators <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1043	1156	
==>' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1043	1156	
==>' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1043	1156	
==>' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8718	8864	
==>(i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8718	8864	
==>(i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8718	8864	
==>(i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@x <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	860	970	
==>est versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( list_dependenci <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7499	7634	
==>m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    return ($g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4027	4146	
==>s_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4027	4146	
==>s_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	309	408	
==>[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1993	2119	
==>'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($do <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1993	2119	
==>'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($do <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3065	3167	
==>nfix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3065	3167	
==>nfix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2229	2327	
==>AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2229	2327	
==>AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2229	2327	
==>AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12883	12980	
==>es if the paramter type of the function is free
fun: generic($$) = {
	my $t_of_param = type($$)->l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2472	2596	
==>e_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "** <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2689	2813	
==>e_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "** <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8519	8621	
==>$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8507	8609	
==>$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10066	10218	
==>pture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10902	11054	
==>pture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3339	3441	
==>value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3339	3441	
==>value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Key <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	206	309	
==>)
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	206	309	
==>)
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	206	309	
==>)
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2 <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7245	7365	
==>n(FILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self->analyze_fh($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5274	5386	
==>n "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2816	2928	
==>n "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3665	3777	
==>n "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11170	11293	
==>n::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11170	11293	
==>n::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11170	11293	
==>n::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File: <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	459	560	
==>$x) + 0.4))
}

our Int multi Num::round_half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2719	2820	
==>new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2719	2820	
==>new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2719	2820	
==>new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11152	11252	
==>)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8556	8656	
==>)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11152	11252	
==>)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8556	8656	
==>)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5742	5843	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5923	6024	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5611	5712	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5821	5922	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8452	8690	
==>s ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8452	8690	
==>s ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8452	8690	
==>s ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Pe <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	441	549	
==>ext if $func eq $key;
		print "$key -> $func\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        pus <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8041	8193	
==>universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = & <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8041	8193	
==>universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = & <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	349	459	
==>SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	349	459	
==>SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5572	5683	
==>iner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5ty <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5572	5683	
==>iner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5ty <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6162	6273	
==>iner_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1333	1425	
==>er::TestPlan.

This file contains both the TestBuilder::TestPlan object and 
a subclass, Test <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6	106	
==>idea is to comment out things which end up defined in PILn
# (though one may wish to overwrite a limi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	235	329	
==>n2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	235	329	
==>n2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	235	329	
==>n2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18339	18449	
==>d_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14760	14870	
==>d_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S- <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4718	4813	
==>3)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4718	4813	
==>3)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1864	1984	
==>repare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1864	1984	
==>repare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1682	1799	
==>\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2462	2579	
==>\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2996	3101	
==>);

is($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... got the right y for p1');

c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12284	12388	
==>{
    $canidate //= 'P6opaque';
    my $self = $class.CREATE(repr => $canidate, %params);
    $self.BUILD <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15686	15788	
==>ther!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19163	19265	
==>ther!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8332	8452	
==>true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	490	610	
==>true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8052	8169	
==>true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	467	584	
==>true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of captur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9306	9468	
==>t_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1426	1570	
==>t_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1426	1570	
==>t_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	321	421	
==>eCharacter but not ..." have been expressed as
#     complemented character sets.  <-[...]>  They are <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4299	4418	
==>?CLASS, 1);
    }

    sub unimport {
        Pugs::Internals::install_pragma_value($?CLASS, 0);
    }

    # XXX: here' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8238	8356	
==>uiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7058	7159	
==>tors, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule opera <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6818	6914	
==>tors, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule opera <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2912	3024	
==>ix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternar <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8591	8690	
==>e to run a threaded Perl, for example.

You can also overload this method if you've built your own s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16791	16889	
==>be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16791	16889	
==>be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fie <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28275	28372	
==>is suitable
for debugging purposes (such as to test that the object's contents look
good at a glan <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35631	35728	
==>is suitable
for debugging purposes (such as to test that the object's contents look
good at a glan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28275	28372	
==>is suitable
for debugging purposes (such as to test that the object's contents look
good at a glan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35631	35728	
==>is suitable
for debugging purposes (such as to test that the object's contents look
good at a glan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	818	921	
==>ect(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3646	3744	
==>{ precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3646	3744	
==>{ precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3646	3744	
==>{ precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5958	6072	
==>art {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule Identifi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13977	14076	
==>Pe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20718	20811	
==>ods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20718	20811	
==>ods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2634	2816	
==>if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{labe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2634	2816	
==>if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{labe <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1080	1187	
==>nf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, densi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1080	1187	
==>nf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, densi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2818	2944	
==>- optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].in <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2818	2944	
==>- optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23515	23609	
==>property and/or
same-named accessor method can be used to see if a Relation-doing object
can mu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28067	28161	
==>property and/or
same-named accessor method can be used to see if a Relation-doing object
can mu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1060	1179	
==>\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $site <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1060	1179	
==>\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $site <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12367	12483	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12367	12483	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4797	4970	
==>s ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8274	8447	
==>s ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7276	7449	
==>s ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3130	3221	
==>ce.assuming(:offset(0) :length(1));
## an alternate implementation:
#multi method Array::shi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25107	25202	
==>examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23871	23966	
==>examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25107	25202	
==>examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23871	23966	
==>examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13607	13722	
==>implify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner joi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17084	17199	
==>implify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner joi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16446	16561	
==>implify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner joi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1340	1443	
==>p 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], e <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3511	3622	
==>s = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	332	430	
==>t   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	332	430	
==>t   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	332	430	
==>t   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23133	23300	
==>->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42736	42902	
==>->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9252	9352	
==>thod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9252	9352	
==>thod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	179	281	
==>with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "a <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	179	281	
==>with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "a <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	122	215	
==>use it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	122	215	
==>use it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14930	15028	
==>_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14930	15028	
==>_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14930	15028	
==>_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9042	9216	
==>{
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5402	5576	
==>{
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6251	6425	
==>{
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = ' <==
4	/Users/nnunley/pugs/util/claim_drift.pl	209	307	
==>want to regenerate
# files. We should probably make this arrangement less hacky, but until
# we do, <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2238	2359	
==>ound;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8310	8395	
==>==================================================================

use FindBin;
use F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8310	8395	
==>==================================================================

use FindBin;
use F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8310	8395	
==>==================================================================

use FindBin;
use F <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2025	2121	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2025	2121	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2025	2121	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	723	855	
==>,
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	723	855	
==>,
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	723	855	
==>,
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3418	3550	
==>ift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from PIL2JS (r8593) from Prelude/PIL.pm.
# Prim.hs r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4669	4781	
==>&sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4669	4781	
==>&sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4669	4781	
==>&sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3969	4080	
==>&sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7346	7487	
==>SAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7346	7487	
==>SAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7346	7487	
==>SAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $ele <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5133	5258	
==>=> [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4015	4120	
==>ookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->sk <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4015	4120	
==>ookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->sk <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4015	4120	
==>ookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->sk <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5594	5694	
==>e, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class method.  R <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2027	2137	
==>{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	503	602	
==>s the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	503	602	
==>s the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	503	602	
==>s the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5854	5994	
==>_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5854	5994	
==>_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13533	13678	
==>ispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13533	13678	
==>ispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13533	13678	
==>ispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5331	5432	
==>ed to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5331	5432	
==>ed to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5331	5432	
==>ed to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	715	813	
==>r more effort than was hoped, it became uninteresting
# as a perl6 bootstrap path, which was the ob <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1493	1596	
==>sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $l <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1493	1596	
==>sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1573	1676	
==>sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $l <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15607	15726	
==>ME: this is how it oughta look, with @ids being class level.
        #my @ids = <year month day hour min sec picosec wda <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16559	16672	
==>od('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16559	16672	
==>od('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16559	16672	
==>od('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1139	1275	
==>es to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.l <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1139	1275	
==>es to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2149	2273	
==>hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2149	2273	
==>hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label} <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	591	788	
==>w) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15174	15302	
==>nf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15174	15302	
==>nf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15174	15302	
==>nf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	631	738	
==>wed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	631	738	
==>wed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	631	738	
==>wed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7027	7144	
==>chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7027	7144	
==>chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11921	12022	
==>ur own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11979	12080	
==>ur own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10253	10394	
==>$diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10253	10394	
==>$diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10253	10394	
==>$diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splic <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3140	3240	
==>:Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25315	25496	
==>ingify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25315	25496	
==>ingify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25315	25496	
==>ingify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9542	9644	
==>00**100',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3223	3346	
==>ray
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3223	3346	
==>ray
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	34	133	
==>t (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	34	133	
==>t (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3456	3551	
==>4 subtests failed, 77.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 test <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1006	1184	
==>ar = 2000 + $year;  # XXX - fixme ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $secon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	292	390	
==>s isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throug <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	292	390	
==>s isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throug <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	292	390	
==>s isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2051	2162	
==>ap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2051	2162	
==>ap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2051	2162	
==>ap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12336	12435	
==>hem) and does something to them (and their children).

=head1 ERROR HANDLING

=head2 Determining Err <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3680	3834	
==>is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3680	3834	
==>is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2849	2956	
==>_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2837	2944	
==>_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TO <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9642	9769	
==>ast_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9642	9769	
==>ast_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1024	1138	
==>EM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1024	1138	
==>EM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	403	517	
==>$program);

	$self->{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3045	3154	
==>).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3045	3154	
==>).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3045	3154	
==>).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7623	7763	
==>{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7623	7763	
==>{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4529	4637	
==>nt dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4312	4415	
==>nt dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3897	4051	
==>response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3897	4051	
==>response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26636	26734	
==>ts are included.  This method takes care of building the
proper inheritance for the node; it uses % <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13129	13246	
==>th $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->forc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6604	6721	
==>th $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->forc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6303	6400	
==>le attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers wi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6303	6400	
==>le attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers wi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3119	3257	
==>{
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3119	3257	
==>{
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_ca <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	690	796	
==>y ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1372	1478	
==>y ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5126	5243	
==>> $name, 0);
  });

  # nspace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2880	2984	
==>od chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2880	2984	
==>od chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2880	2984	
==>od chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16976	17133	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17255	17412	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11311	11405	
==>version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11311	11405	
==>version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3079	3195	
==>am{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3079	3195	
==>am{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3079	3195	
==>am{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28756	28854	
==>how you must name your handlers.  If you
want to install a handler for '&&', you must first install <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	231	328	
==>pples apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12499	12593	
==>C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12499	12593	
==>C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11665	11754	
==>head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11665	11754	
==>head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19061	19165	
==>save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19061	19165	
==>save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	158	250	
==>position
within that string, and it provides the fundamental operations on strings as
combina <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	158	250	
==>position
within that string, and it provides the fundamental operations on strings as
combina <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2153	2395	
==>l5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2153	2395	
==>l5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9535	9659	
==>we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9535	9659	
==>we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14208	14326	
==>( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14208	14326	
==>( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_pe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1641	1758	
==>lable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1641	1758	
==>lable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient St <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	414	540	
==>);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4360	4470	
==>" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4360	4470	
==>" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4360	4470	
==>" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17778	17895	
==>=> "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16816	16933	
==>=> "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17778	17895	
==>=> "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16816	16933	
==>=> "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24005	24122	
==>pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24005	24122	
==>pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24005	24122	
==>pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3450	3552	
==>') || $closure->isa('block')))
        || confess "argument to &each must be either a closure or a bloc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16620	16741	
==>=> 1,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $self;
    return $self;
  }

  sub type {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14571	14669	
==>(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14571	14669	
==>(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14571	14669	
==>(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB I <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2533	2646	
==>r $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2533	2646	
==>r $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2533	2646	
==>r $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(func <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10626	10721	
==>. got the right return value from another Object singleton/class method called by Bar');

is($Ba <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1956	2066	
==>= $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's now in 'sub' context
    if(/\bsub\s*(${re_symb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1638	1743	
==>nf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1638	1743	
==>nf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1638	1743	
==>nf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6055	6182	
==>tribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6055	6182	
==>tribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6055	6182	
==>tribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Per <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14066	14178	
==>nt $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_P <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14066	14178	
==>nt $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_P <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1196	1301	
==>ed, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.per <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1254	1359	
==>ed, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8189	8336	
==>rn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8189	8336	
==>rn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8189	8336	
==>rn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0 <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2297	2432	
==>------
-- Do not modify this file; it is generated automatically by  --
--                  util/gen_prelude.pl                       -- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2438	2573	
==>ot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2438	2573	
==>ot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILV <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2186	2283	
==>t.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

T <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2186	2283	
==>t.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

T <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4064	4160	
==>dle => *DATA, die_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29718	29812	
==>of another,
or are the same as the unaffected invocant's attributes.  This method
supports havi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34270	34364	
==>of another,
or are the same as the unaffected invocant's attributes.  This method
supports havi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33434	33528	
==>of another,
or are the same as the unaffected invocant's attributes.  This method
supports havi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2802	2948	
==>{
        name => 'or',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '+',
        fixity => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7370	7459	
==>->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7370	7459	
==>->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7370	7459	
==>->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2451	2555	
==>prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2668	2772	
==>prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12170	12267	
==>dle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12170	12267	
==>dle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4874	5000	
==>);
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15910	16036	
==>);
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17398	17524	
==>);
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22081	22207	
==>);
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5570	5689	
==>op (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $mess ~= "\n\t{$caller.pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12926	13032	
==>this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12926	13032	
==>this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12926	13032	
==>this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10357	10461	
==>o the set. Returns the number of items
inserted.

It is not fatal to insert an item which is already inse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8250	8354	
==>o the set. Returns the number of items inserted.

It is not fatal to insert an item which is already inse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10357	10461	
==>o the set. Returns the number of items
inserted.

It is not fatal to insert an item which is already inse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8250	8354	
==>o the set. Returns the number of items inserted.

It is not fatal to insert an item which is already inse <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17816	17936	
==>,      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16854	16974	
==>,      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17816	17936	
==>,      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16854	16974	
==>,      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "loc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	987	1084	
==>l_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	987	1084	
==>l_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pi <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	909	1005	
==>l_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	909	1005	
==>l_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2199	2302	
==>sname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = ba <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2199	2302	
==>sname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = ba <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2199	2302	
==>sname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = ba <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2244	2335	
==>$node->struct_equiv;

	my $reduced_struct = $self->SUPER::generic_reduce($node->struct_equiv <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9833	9942	
==>' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_templa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9833	9942	
==>' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_templa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24242	24342	
==>s.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an em <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28794	28894	
==>s.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an em <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12740	12835	
==>tions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities foun <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12740	12835	
==>tions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities foun <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1922	2013	
==>(Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1922	2013	
==>(Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1991	2154	
==>a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1991	2154	
==>a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1991	2154	
==>a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str-> <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1489	1582	
==>xe}", 'configure', '--user', '--prefix', "$pwd/dist");
        system("../../Setup$Config{_exe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3985	4112	
==>s this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4449	4576	
==>s this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4006	4104	
==>r the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows . <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4006	4104	
==>r the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	79	187	
==>l;

role 'IScalar' => {};

class 'PIL::Run::Container::Scalar' => {
    does => [ 'IScalar' ],
    instance = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3507	3611	
==>ircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3507	3611	
==>ircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3507	3611	
==>ircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13049	13167	
==>compile_rule( q( [ <?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5975	6068	
==>ss($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5975	6068	
==>ss($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5975	6068	
==>ss($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doubl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2482	2642	
==>s we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2482	2642	
==>s we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10108	10245	
==>GI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for par <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10108	10245	
==>GI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for par <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13196	13307	
==>>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9868	9979	
==>>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13196	13307	
==>>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9868	9979	
==>>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.differe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15919	16065	
==>turn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15919	16065	
==>turn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15919	16065	
==>turn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6975	7079	
==>ocess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6975	7079	
==>ocess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18303	18394	
==>preprocessed to hide heredocs, since the content
inside heredocs can possibly confuse furthe <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18303	18394	
==>preprocessed to hide heredocs, since the content
inside heredocs can possibly confuse furthe <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9767	9898	
==>'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEsc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	752	878	
==>ally slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	13	124	
==>rl

use strict;
use warnings;

use Perl6::Runtime;
use Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15354	15454	
==>nds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over 4 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15354	15454	
==>nds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over 4 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31105	31198	
==>predicate!) returns Relation>

This method is a generic relational operator that returns a new <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35655	35748	
==>predicate!) returns Relation>

This method is a generic relational operator that returns a new <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7240	7355	
==>om the
        # successfully loaded template module; on a function call
        # death, assume module is damaged a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7240	7355	
==>om the
        # successfully loaded template module; on a function call
        # death, assume module is damaged a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23423	23517	
==>INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23423	23517	
==>INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4741	4856	
==>{ 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fourth id');
is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2099	2193	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2099	2193	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2099	2193	
==>e=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23819	23948	
==>an($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20240	20369	
==>an($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2423	2518	
==>ber of bytes and throwing the return value away.
Encryptions after this point will be using stro <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2423	2518	
==>ber of bytes and throwing the return value away.
Encryptions after this point will be using stro <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3228	3410	
==>('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3228	3410	
==>('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1071	1166	
==>rns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1071	1166	
==>rns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5634	5745	
==>q '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5634	5745	
==>q '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5634	5745	
==>q '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19968	20062	
==>ect() will return
immediately if it's just the first pass.  This means that force_object()
shou <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	393	495	
==>s
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	393	495	
==>s
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34912	35011	
==>od will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39462	39561	
==>od will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  Th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1429	1556	
==>0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1429	1556	
==>0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24874	24996	
==>the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the position in the regex <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3354	3465	
==>{
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $ob <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	125	236	
==>{
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $ob <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5500	5600	
==>hey are unified
# a free variable can be instantiated to point to another type object
# at this point <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1184	1304	
==>n currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1184	1304	
==>n currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1184	1304	
==>n currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblec <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1564	1664	
==>uch
# a usable module.  Any further efforts should likely take place there.

# Some raw development n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1709	1925	
==>ant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2126	2241	
==>t; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2126	2241	
==>t; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2126	2241	
==>t; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12844	12977	
==>thod::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11523	11654	
==>thod::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15274	15405	
==>thod::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11215	11325	
==>ents' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12378	12492	
==>ernals::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9293	9389	
==>new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9293	9389	
==>new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9293	9389	
==>new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5256	5370	
==>nt( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6524	6638	
==>nt( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5256	5370	
==>nt( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6512	6626	
==>nt( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13667	13858	
==>rson );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13667	13858	
==>rson );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            e <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1050	1142	
==>m B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1050	1142	
==>m B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns St <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23367	23484	
==>G_SEEN_ZERO_LEN        1
 #define REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23771	23868	
==>f defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,unde <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23771	23868	
==>f defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,unde <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23771	23868	
==>f defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,unde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	477	579	
==>riable outside of this function
      // and refer to it via the closure, then things don\'t work right <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	477	579	
==>riable outside of this function
      // and refer to it via the closure, then things don\'t work right <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	477	579	
==>riable outside of this function
      // and refer to it via the closure, then things don\'t work right <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22885	22979	
==>d.

The provided roles (Relation, Tuple, Heading) are intended to be composed
into separate (an <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4296	4491	
==>:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4296	4491	
==>:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24785	24902	
==>error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21206	21323	
==>error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6348	6444	
==>t<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6348	6444	
==>t<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(nor <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11918	12011	
==>set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11918	12011	
==>set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Retu <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	714	829	
==><!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Stand <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	714	829	
==><!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Stand <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	360	468	
==>nction
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_fi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	360	468	
==>nction
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	115	208	
==>3846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	115	208	
==>3846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	115	208	
==>3846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  de <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	2	85	
==>ine 1 "inc/Module/Install/Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1050	1162	
==>: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1050	1162	
==>: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8243	8347	
==>depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually n <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8243	8347	
==>depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21770	21873	
==>the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20651	20754	
==>the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21770	21873	
==>the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20651	20754	
==>the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21119	21226	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17540	17647	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_ha <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4494	4596	
==>nce ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4494	4596	
==>nce ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1756	1861	
==>xpect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1756	1861	
==>xpect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_dia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1836	1941	
==>xpect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_dia <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3767	3862	
==>ode, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3767	3862	
==>ode, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3767	3862	
==>ode, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("C <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5347	5461	
==>et, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	912	1001	
==>ray_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	912	1001	
==>ray_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	912	1001	
==>ray_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13920	14071	
==>ps}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13920	14071	
==>ps}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13920	14071	
==>ps}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	801	917	
==>" but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan' <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	629	744	
==>say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are ru <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	629	744	
==>say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are ru <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15422	15513	
==>decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_num <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15422	15513	
==>decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	405	509	
==>::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	405	509	
==>::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	405	509	
==>::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16811	16905	
==>/^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16811	16905	
==>/^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16811	16905	
==>/^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_me <==
4	/Users/nnunley/pugs/util/package-osx.pl	6002	6090	
==>al/man/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::Overview::Fun <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6371	6473	
==>Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared ou <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6155	6256	
==>Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared ou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22188	22280	
==>d errant "Quantifier unexpected" warning raised by a zero-width
assertion followed by C<?>, w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2320	2415	
==>* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2537	2632	
==>* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19925	20017	
==>ocks and the blocks have been
marked for various compilers, Module::Compile dispatches the co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19925	20017	
==>ocks and the blocks have been
marked for various compilers, Module::Compile dispatches the co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28803	28927	
==>tem,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28803	28927	
==>tem,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28803	28927	
==>tem,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2053	2181	
==>.. ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2064	2192	
==>.. ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XX <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13777	13878	
==>ethod join (Relation *@others) returns Relation {

    # First do some optimizing of the order that so <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17254	17355	
==>ethod join (Relation *@others) returns Relation {

    # First do some optimizing of the order that so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15902	16041	
==>et_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15902	16041	
==>et_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15902	16041	
==>et_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_a <==
4	/Users/nnunley/pugs/util/run-smoke.pl	853	942	
==>mokeserv/smokeserv-client.pl'); 

chdir($pugs_sandbox) or die "Could change directory: $!" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	155	249	
==>itten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	155	249	
==>itten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	155	249	
==>itten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed f <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23824	23915	
==>he type pretty printer
{
	my $type = type::operator::arrow->new(
		type::variable::free->new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1088	1200	
==>ngest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> does <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1439	1549	
==>ngest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1046	1156	
==>ngest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1439	1549	
==>ngest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1443	1559	
==>ction (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1443	1559	
==>ction (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1443	1559	
==>ction (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4085	4175	
==>---------------------------------------------------------------
## NOTE:
## code in this se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4085	4175	
==>---------------------------------------------------------------
## NOTE:
## code in this se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4085	4175	
==>---------------------------------------------------------------
## NOTE:
## code in this se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20822	20908	
==>ven object of type 'OBJ':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OB <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	260	392	
==>age::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	258	390	
==>age::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22575	22665	
==>BMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Clas <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22575	22665	
==>BMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Clas <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21015	21104	
==>re-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fireb <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21015	21104	
==>re-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fireb <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	869	984	
==>EF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its eleme <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	869	984	
==>EF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its eleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3430	3523	
==>f (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3430	3523	
==>f (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8548	8658	
==>| <'E'>
}
rule SignedInteger {  # see 7.8.3
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <Deci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3140	3249	
==>_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3140	3249	
==>_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3140	3249	
==>_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3102	3206	
==>ess $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3102	3206	
==>ess $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3102	3206	
==>ess $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subrou <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7288	7410	
==>lation bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	317	421	
==>1
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	317	421	
==>1
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	317	421	
==>1
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9121	9224	
==>$k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion aris <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2617	2709	
==>defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2617	2709	
==>defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2617	2709	
==>defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2925	3037	
==>e match_var             { \$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo == <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5350	5452	
==>ls.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5350	5452	
==>ls.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4571	4679	
==>ang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4415	4519	
==>ang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7290	7453	
==>\n" .
                "    my \$rule = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10411	10550	
==>rgs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6752	6891	
==>rgs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7601	7740	
==>rgs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23155	23259	
==>d. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21964	22068	
==>d. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23155	23259	
==>d. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21964	22068	
==>d. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2745	2867	
==>e_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2745	2867	
==>e_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2745	2867	
==>e_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "va <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	862	962	
==>nqueue().
  method post (POE::Session $session, Str $event, *@args) {
    # Push our callback on @:ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2986	3186	
==>new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2986	3186	
==>new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2986	3186	
==>new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2828	2920	
==>he best performing implementation by far.
The Parrot implementation is currently at a compara <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1250	1371	
==>', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	246	335	
==>_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	246	335	
==>_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	246	335	
==>_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1719	1820	
==>rm',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1719	1820	
==>rm',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement-> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3348	3446	
==>hat the nonce or initialization vector should be hashed with the 
key, not merely appended to it; a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3348	3446	
==>hat the nonce or initialization vector should be hashed with the 
key, not merely appended to it; a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2917	3066	
==>$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2917	3066	
==>$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8309	8409	
==>ub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30137	30233	
==>my $t = $obj->type()

The specific type of this object.  See the object's documentation for
possi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3407	3525	
==>], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1765	1883	
==>], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2545	2663	
==>], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - re <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3366	3477	
==>ocs = 1;
    }
}

$output_dir ||= 't_index';
for(@t_dirs) {
    die("Test directory '$_' does not exist. Try --h <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2164	2273	
==>K($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.seco <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2164	2273	
==>K($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.seco <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5943	6035	
==>ny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All right <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5943	6035	
==>ny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All right <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23537	23710	
==>) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23537	23710	
==>) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23537	23710	
==>) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $e <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20574	20684	
==>:words {  # see 12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	71	175	
==>ss;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	71	175	
==>ss;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1249	1341	
==>Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1249	1341	
==>Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12465	12562	
==>d2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12465	12562	
==>d2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C< <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36915	37011	
==>Some example usage:

    my Str $user_text_string = $translator.translate_message( $message );

= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36915	37011	
==>Some example usage:

    my Str $user_text_string = $translator.translate_message( $message );

= <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20709	20812	
==>e argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . "/" . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1436	1538	
==>}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1436	1538	
==>}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1436	1538	
==>}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dis <==
4	/Users/nnunley/pugs/util/func_refact.pl	1508	1618	
==>$size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scalar(k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16176	16277	
==>6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16176	16277	
==>6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16176	16277	
==>6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MU <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9716	9889	
==>nstant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9995	10168	
==>nstant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8998	9158	
==>my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8998	9158	
==>my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9683	9823	
==>rse @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2282	2383	
==>%$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2282	2383	
==>%$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2282	2383	
==>%$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4706	4818	
==>s[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4706	4818	
==>s[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4706	4818	
==>s[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retur <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	185	283	
==>d $testdir;

open(my $F, ">$testdir/$exename.c")
    or die "Can't create $testdir/$exename.c: $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1304	1416	
==>ereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( lis <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	864	976	
==>ereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( lis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11189	11295	
==>ast traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11189	11295	
==>ast traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2989	3091	
==>$explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pass <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2989	3091	
==>$explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4513	4615	
==>$explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pass <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5841	6127	
==>)) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7603	7889	
==>)) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25129	25223	
==>eption, the copyright holders
of Rosetta give you permission to link Rosetta with other free so <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25129	25223	
==>eption, the copyright holders
of Rosetta give you permission to link Rosetta with other free so <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	569	688	
==>other types in the same level
my %rule_templates = (
    prefix =>          '<op> <equal>', 
    circumfix =>       '<op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2195	2314	
==>s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $messa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	192	299	
==>s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $messa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	192	299	
==>s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $messa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1373	1473	
==>_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1373	1473	
==>_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1373	1473	
==>_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22295	22417	
==>Pe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${& <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18716	18838	
==>Pe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${& <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7214	7315	
==>or;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_PREFIX );
  goto e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31138	31238	
==>e object.

=back

The following attributes may also be set:

=over 4

=item branch

Whether this obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4339	4522	
==>( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4339	4522	
==>( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4339	4522	
==>( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7752	7873	
==>) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

meth <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7752	7873	
==>) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4867	4977	
==>y $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4867	4977	
==>y $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2167	2289	
==>turn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2167	2289	
==>turn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2167	2289	
==>turn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2964	3082	
==>nt see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pk <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6564	6676	
==>y $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6564	6676	
==>y $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6564	6676	
==>y $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a <==
4	/Users/nnunley/pugs/util/package-osx.pl	9111	9216	
==>}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	709	846	
==>PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	709	846	
==>PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5949	6056	
==>tity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions and <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5949	6056	
==>tity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions and <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	672	793	
==>,} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9524	9639	
==>vername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traff <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9524	9639	
==>vername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traff <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	985	1086	
==>ondition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition mu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1218	1319	
==>ondition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition mu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2985	3176	
==>ecure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2985	3176	
==>ecure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10907	11002	
==>t be set if this recurrence is a "universal set".
Otherwise the program will emit warnings durin <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10907	11002	
==>t be set if this recurrence is a "universal set".
Otherwise the program will emit warnings durin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2522	2657	
==>(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2522	2657	
==>(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2522	2657	
==>(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5496	5593	
==>ec_hook != NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regexecp;
  PL_regexe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1179	1308	
==>ess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1179	1308	
==>ess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1179	1308	
==>ess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3230	3353	
==>val($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPe <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4658	4761	
==>n << "."
** Note that Cygwin support for pugs still depends on the .msi
   version of GHC and does not p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12348	12449	
==>Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12348	12449	
==>Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12348	12449	
==>Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MUL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8740	8874	
==>r( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9575	9709	
==>r( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	36	146	
==>om .t and test results 
# Generate cross-referenced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	205	321	
==>define <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tai <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11223	11319	
==>verything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11223	11319	
==>verything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Ret <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6951	7056	
==>efault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeg <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6951	7056	
==>efault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeg <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3850	3955	
==>efault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17157	17254	
==>age

The natural language(s) of the intended audience for the message
content.  The value is one o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17157	17254	
==>age

The natural language(s) of the intended audience for the message
content.  The value is one o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	317	413	
==>.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	317	413	
==>.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17168	17274	
==>> int applied to int) is a number
my $fifteen = comb(
	fun => $plus_ten,
	param => val(5),
);

# the pair f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2035	2134	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2035	2134	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2035	2134	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3655	3754	
==>t::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pass <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3655	3754	
==>t::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5852	5951	
==>t::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pass <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	185	300	
==>de::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	149	263	
==>de::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	237	351	
==>de::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", re <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6347	6453	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5477	5583	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6347	6453	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5477	5583	
==>bset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7128	7279	
==>' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7128	7279	
==>' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25294	25383	
==>p://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system follo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25294	25383	
==>p://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system follo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	183	323	
==>{
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $dir ) 
        or die "Could not creat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2684	2793	
==>g = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2684	2793	
==>g = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2684	2793	
==>g = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7929	8070	
==>y $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7929	8070	
==>y $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7929	8070	
==>y $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	589	704	
==>}
 
    ### show alternatives
    if( my $aref = $alts->{ $struct->{package} }->{bin} ) {
        print "\t*** Prima <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3921	4018	
==>ows an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4105	4202	
==>ows an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which name <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5638	5730	
==>nterface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5638	5730	
==>nterface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4132	4262	
==>n the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more dig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4144	4274	
==>n the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more dig <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3574	3700	
==>{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3574	3700	
==>{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1696	1810	
==>(default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1696	1810	
==>(default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1696	1810	
==>(default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: un <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11148	11269	
==>gated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3446	3544	
==>, "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3446	3544	
==>, "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3446	3544	
==>, "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2724	2829	
==>lti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2724	2829	
==>lti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2724	2829	
==>lti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1677	1774	
==>/Blondie::Unit Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22287	22380	
==>t> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22287	22380	
==>t> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<P <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9178	9282	
==>_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9236	9340	
==>_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	271	368	
==>,
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	271	368	
==>,
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6929	7075	
==>ch;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6701	6838	
==>ch;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	830	951	
==>n: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	830	951	
==>n: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2638	2736	
==>his rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interfa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2638	2736	
==>his rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interfa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23816	23908	
==>ally a simpler solution
than alternatives, and doesn't know about language specific details l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23816	23908	
==>ally a simpler solution
than alternatives, and doesn't know about language specific details l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3685	3785	
==>ator;
  expect_term:
  goto null_term if $position >= $lastPosition;
 
  my $currentTermTable = $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7360	7498	
==>ASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7360	7498	
==>ASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7360	7498	
==>ASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5117	5210	
==>tional constructors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->new('$.unb <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12314	12431	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12593	12710	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  m <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	333	431	
==>oc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Pe <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	333	431	
==>oc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Pe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9152	9272	
==>oad_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

meth <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9152	9272	
==>oad_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18308	18400	
==>ocessed to hide heredocs, since the content
inside heredocs can possibly confuse further pars <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18308	18400	
==>ocessed to hide heredocs, since the content
inside heredocs can possibly confuse further pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1190	1296	
==>is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2198	2304	
==>ting matches.
#   * Perhaps define a macro gram ($name) { "rule $name :words" },
#     rather than having t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1190	1296	
==>is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1190	1296	
==>is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15808	15916	
==>f length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10664	10772	
==>f length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33758	33854	
==>ish or French.  The order of these items corresponds to
an individual user's (or user role's) pre <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33758	33854	
==>ish or French.  The order of these items corresponds to
an individual user's (or user role's) pre <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17644	17828	
==>_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we find a regex
                    my @stuff = $h->look_dow <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2014	2111	
==>Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2014	2111	
==>Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2014	2111	
==>Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_fr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4058	4171	
==>m;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4058	4171	
==>m;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1029	1123	
==>ser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two paramete <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1029	1123	
==>ser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two paramete <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31842	31968	
==>);
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31842	31968	
==>);
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31842	31968	
==>);
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $leng <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	972	1060	
==>Exp::CCShortcut");
    $optable->addToken("term:\\S", "term:", "nows", "PGE::Exp::CCShort <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3124	3254	
==>eta ) {
        
        ### installed packages don't have a 'file' method, but they /should/
        ### have a meta object at all <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15489	15586	
==>, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15489	15586	
==>, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15556	15667	
==>y $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21727	21838	
==>y $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $se <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13257	13351	
==>ose tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13315	13409	
==>ose tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6896	7009	
==>F!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Mode <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7186	7299	
==>F!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Mode <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6896	7009	
==>F!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Mode <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7186	7299	
==>F!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Mode <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17948	18080	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      nparen => $nparen,
      raw => ')',
      omit => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3687	3790	
==>- test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3687	3790	
==>- test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3687	3790	
==>- test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2020	2130	
==>rn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2020	2130	
==>rn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 G <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1260	1362	
==>rn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3121	3223	
==>rn;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2973	3087	
==>return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3822	3936	
==>return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	905	1004	
==>e (the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	859	954	
==>e (the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10173	10291	
==>my $infile  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2483	2582	
==>2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2483	2582	
==>2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2483	2582	
==>2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10489	10673	
==>ed
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10489	10673	
==>ed
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10489	10673	
==>ed
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = arr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1757	1878	
==>>isa('num')))    
        || confess "Indecies must be a num type";
    return list->new(
        # make sure to create an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3294	3404	
==>urpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3294	3404	
==>urpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3650	3760	
==>urpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5938	6031	
==>to metaclass');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3292	3402	
==>ray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3292	3402	
==>ray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3292	3402	
==>ray") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->para <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3090	3248	
==>}
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3090	3248	
==>}
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	513	638	
==>t 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package Blondi <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1414	1525	
==>_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14136	14259	
==>v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4213	4328	
==>v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4213	4328	
==>v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4213	4328	
==>v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.valu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32033	32138	
==>on, and returns a new Relation that has the same heading
and whose body contains all of the tuples that ar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33894	33999	
==>on, and returns a new Relation that has the same heading and
whose body contains all of the tuples that ar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36583	36688	
==>on, and returns a new Relation that has the same heading
and whose body contains all of the tuples that ar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38444	38549	
==>on, and returns a new Relation that has the same heading and
whose body contains all of the tuples that ar <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4117	4261	
==>> '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4117	4261	
==>> '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15413	15507	
==>" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15413	15507	
==>" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third M <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9574	9692	
==>elation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13051	13169	
==>elation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7829	7939	
==>"continuation"

  $capture       - capture then entire match. For example:

  

  # returns a Match object that <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7564	7671	
==>"continuation"
  $capture       - capture then entire match. For example:
  
  # returns a Match object that <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13811	13968	
==>v, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3928	4069	
==>v, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3928	4069	
==>v, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3928	4069	
==>v, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1399	1508	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1399	1508	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1399	1508	
==>new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3407	3513	
==>i Array::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from PIL2JS (r8 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17373	17478	
==>ator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17373	17478	
==>ator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12659	12757	
==>eader field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

Th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12659	12757	
==>eader field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	630	734	
==>air(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	630	734	
==>air(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	630	734	
==>air(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate key <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	401	491	
==>. See below for more details.
## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1084	1192	
==>fy( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1084	1192	
==>fy( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1084	1192	
==>fy( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is lo <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	208	303	
==>p {!/^src$|^$/} File::Spec->splitdir( $path );
my $fullname = join '.', @path, $name;
my $data = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4916	5053	
==>} eq 'class' ? ';use Moose' : '' ) .
                ";use Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1112	1216	
==>$self->autoload;

    # Unregister loader and worker packages so subdirs can use them again
    delete $I <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14432	14533	
==>thod topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$top <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14432	14533	
==>thod topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$top <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10944	11057	
==>ter (provided only one delimiter was specified)
      my $regex    = $7; 
      # captures delimited portion of th <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4562	4663	
==>ters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a st <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4562	4663	
==>ters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6759	6860	
==>ters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a st <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1870	1976	
==>{

    # for some reason, directly returning this expression does not
    # yield the correct return value. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1870	1976	
==>{

    # for some reason, directly returning this expression does not
    # yield the correct return value. <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	591	683	
==>hname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hop <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	591	683	
==>hname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hop <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	759	880	
==>{
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	726	847	
==>{
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3943	4037	
==>emoving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_co <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3943	4037	
==>emoving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3840	3980	
==>);
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3840	3980	
==>);
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4897	5006	
==>ost: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4897	5006	
==>ost: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4897	5006	
==>ost: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1110	1226	
==>db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1110	1226	
==>db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1319	1435	
==>db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5143	5251	
==>d!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctly <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5143	5251	
==>d!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctly <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1008	1116	
==>uiltin is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10513	10608	
==>text=>$paramContext, paramDefault=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBegin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1936	2040	
==>$value) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be sy <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16370	16465	
==>not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16370	16465	
==>not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node' <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	518	644	
==>r die $!;
        while (<MODULE>) {
            next if /^\s*(?:#|$)/;
            $self->module_name($1) if /^\s*package\s+(\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1624	1716	
==>oin(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1624	1716	
==>oin(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1624	1716	
==>oin(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitiv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17986	18113	
==>l)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    fl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17024	17151	
==>l)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    fl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17986	18113	
==>l)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    fl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17024	17151	
==>l)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    fl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3980	4182	
==>0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4490	4611	
==>urn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4490	4611	
==>urn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4490	4611	
==>urn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Per <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15474	15576	
==>caltime(Bool::True, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	579	675	
==>($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	579	675	
==>($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	579	675	
==>($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shi <==
4	/Users/nnunley/pugs/util/func_refact.pl	1438	1547	
==>new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scalar(keys %$set) - 1; # to for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	266	363	
==>b JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	266	363	
==>b JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	266	363	
==>b JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	954	1064	
==>$struct = $alt->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16488	16593	
==>$self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16488	16593	
==>$self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16488	16593	
==>$self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18021	18223	
==>ass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18021	18223	
==>ass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18021	18223	
==>ass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3441	3558	
==>ned( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3441	3558	
==>ned( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7065	7166	
==>ert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7065	7166	
==>ert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6802	6907	
==>::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6802	6907	
==>::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6802	6907	
==>::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22237	22334	
==>(method id ((opaque $self:)) returns num 
    ($self: id))

=cut

$::Class->send('add_method' => ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5814	5949	
==>} else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5814	5949	
==>} else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5814	5949	
==>} else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5520	5626	
==>p> := (print|say|warn|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = P <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	943	1057	
==>tracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/n <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	943	1057	
==>tracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/n <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6850	6944	
==>nts is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6850	6944	
==>nts is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	570	741	
==>rrent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	570	741	
==>rrent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $v <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10107	10204	
==>n be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10107	10204	
==>n be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23105	23203	
==>=E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21914	22012	
==>=E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23105	23203	
==>=E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21914	22012	
==>=E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8149	8272	
==>ainer for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8149	8272	
==>ainer for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8149	8272	
==>ainer for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11884	11979	
==>API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11884	11979	
==>API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11884	11979	
==>API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12154	12262	
==>([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12154	12262	
==>([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3396	3491	
==>oes not handle time zones or leap
seconds.

All methods take named parameters unless otherwise s <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3396	3491	
==>oes not handle time zones or leap
seconds.

All methods take named parameters unless otherwise s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11335	11512	
==>nstance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11335	11512	
==>nstance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11335	11512	
==>nstance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3103	3213	
==>f->{totals}{$name}         = \%totals;
    while( defined(my $line = $it->next) ) {
        $self->_analyze_lin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22906	23002	
==>d your opinion on what's wrong
with it.

=item * Variable interpolation

This module parses I<reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19229	19319	
==>!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19229	19319	
==>!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19229	19319	
==>!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5035	5231	
==>turn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5035	5231	
==>turn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5035	5231	
==>turn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27386	27481	
==>c), "int → int", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is(t($fac_5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18600	18730	
==>r. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18600	18730	
==>r. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18600	18730	
==>r. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatch <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	408	508	
==>b find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pad (@{ ($self->scop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1217	1330	
==>: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1357	1470	
==>: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3479	3576	
==>t, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3537	3634	
==>t, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2876	2979	
==>sk +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $d <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2876	2979	
==>sk +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1979	2081	
==>turn $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1979	2081	
==>turn $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22083	22176	
==>f C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20964	21057	
==>f C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22083	22176	
==>f C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20964	21057	
==>f C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	911	1017	
==>here, then you need to get back
    # a nil value, not just undef
    return nil->new() unless defined $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14231	14325	
==>));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14231	14325	
==>));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14231	14325	
==>));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Cla <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21281	21391	
==>kipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test->{failed}})/$test->{max};
            p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30172	30262	
==>rators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34724	34814	
==>rators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33897	33987	
==>rators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2608	2774	
==>L::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIVERSAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2289	2406	
==>$tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2289	2406	
==>$tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2289	2406	
==>$tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5866	6068	
==>range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5866	6068	
==>range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5866	6068	
==>range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4002	4150	
==>() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4002	4150	
==>() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4002	4150	
==>() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.u <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4692	4806	
==>$program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".(($?&25 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24082	24180	
==>is rule is to avoid loops between a client automatically sending something
  in response to somethi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22855	22953	
==>is rule is to avoid loops between a client automatically sending something
  in response to somethi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24082	24180	
==>is rule is to avoid loops between a client automatically sending something
  in response to somethi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22855	22953	
==>is rule is to avoid loops between a client automatically sending something
  in response to somethi <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	886	1014	
==>- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapte <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7573	7696	
==>!~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7573	7696	
==>!~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+ <==
4	/Users/nnunley/pugs/util/drift.pl	1967	2073	
==>'t Touch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
close OUT;

unlink " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1464	1570	
==>:perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1464	1570	
==>:perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1464	1570	
==>:perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3191	3314	
==>nstallation::Set') };

### package constants
use constant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::is <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2790	2891	
==>elf->{_timing}{end} - $self->{_timing}{start};
    DumpFile($Config{"output-file"}, {
            meat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39189	39272	
==><Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39189	39272	
==><Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2576	2713	
==>ILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2793	2930	
==>ILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## prin <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	643	747	
==>~ %Cookies{$_} ~ "; expires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7734	7862	
==>c.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7734	7862	
==>c.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7734	7862	
==>c.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7982	8082	
==>ull_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::gre <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35854	35950	
==>ple, and returns a new Relation::Example that has the same heading
and whose body contains all of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37886	37982	
==>ple, and returns a new Relation::Example that has the same heading and
whose body contains all of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7709	7805	
==>ull_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::gre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8811	8923	
==>, Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8811	8923	
==>, Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	28	144	
==>ct;
use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML                    qw[LoadF <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1067	1166	
==>ag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1067	1166	
==>ag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1067	1166	
==>ag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1494	1622	
==>_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1494	1622	
==>_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $op <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4747	4849	
==>nt("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4747	4849	
==>nt("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4381	4534	
==>oid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inne <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4381	4534	
==>oid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inne <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11225	11319	
==>sc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11283	11377	
==>sc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6367	6482	
==>th($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_vol <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6367	6482	
==>th($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_vol <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6785	6891	
==>to load an external Perl template module; on a require
        # failure, we assume that module intentional <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6785	6891	
==>to load an external Perl template module; on a require
        # failure, we assume that module intentional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1334	1420	
==>_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1334	1420	
==>_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1334	1420	
==>_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4016	4121	
==>params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4016	4121	
==>params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4016	4121	
==>params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  su <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13370	13466	
==>pe($.body),
	),
}

# identifiers pass the generic variables unchanged
ide: generic($$) = { generi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9431	9615	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9431	9615	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9431	9615	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3645	3786	
==>e;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2130	2214	
==>il2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2130	2214	
==>il2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2130	2214	
==>il2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12026	12140	
==>s;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12026	12140	
==>s;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12026	12140	
==>s;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %par <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	194	295	
==>s';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1927	2040	
==>6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2144	2257	
==>6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2106	2214	
==>on't know to make a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2449	2553	
==>Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lan <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1164	1293	
==>newtoks.shift );
        @tokens.push( $maketoken.(@newtoks.shift, $label) )
                if +@newtoks;
      }

      $buf = [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1412	1518	
==>"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1412	1518	
==>"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1412	1518	
==>"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2778	2869	
==>$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = joi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6230	6321	
==>$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = joi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2778	2869	
==>$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = joi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2778	2869	
==>$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = joi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19166	19260	
==>emulation layers for any other programming language can
be supported, such as Tutorial D or XQu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19166	19260	
==>emulation layers for any other programming language can
be supported, such as Tutorial D or XQu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7746	7850	
==>define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = gre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7746	7850	
==>define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = gre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7746	7850	
==>define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = gre <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23215	23304	
==>ion'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule F <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26040	26137	
==>ine ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* Conver <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1549	1640	
==>rCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1549	1640	
==>rCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1549	1640	
==>rCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6037	6170	
==>nue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.n <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6037	6170	
==>nue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	111	200	
==>r::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:k <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	111	200	
==>r::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21250	21352	
==>{...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21250	21352	
==>{...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21250	21352	
==>{...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	96	197	
==>ie::Reducer::DynamicScoping/;

use strict;
use warnings;
no warnings 'recursion';

sub new {
    my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8068	8209	
==>arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8068	8209	
==>arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8068	8209	
==>arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->s <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	182	317	
==>pugs pil2_json_emit_p6.p6

  #! /usr/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_tra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3433	3543	
==>\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_pha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3433	3543	
==>\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_pha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6497	6595	
==>'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_no <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6497	6595	
==>'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_no <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10937	11089	
==>ult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12408	12560	
==>ult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14414	14566	
==>ult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15885	16037	
==>ult.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4539	4660	
==>pture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4551	4672	
==>pture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get va <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11896	12007	
==>/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11896	12007	
==>/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3926	4090	
==>{
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Meth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3926	4090	
==>{
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Meth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3926	4090	
==>{
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Meth <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	437	530	
==>ad1 NAME

Blondie::Prelude - Aggregator of builtin functions for Blondie runtimes

=head1 SYNO <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7854	7956	
==>Lazy'}=1 if s/\s+is lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8335	8427	
==>Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8335	8427	
==>Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8335	8427	
==>Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	824	984	
==>it(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($pro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	824	984	
==>it(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($pro <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6951	7060	
==>= 2**31;
    my $Result4 = $Result3 % $n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7908	8010	
==>temp1->from();
  goto reduce_end if $arity > 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStac <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11878	11978	
==>e or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re nors <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11878	11978	
==>e or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re nors <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4729	4824	
==>$2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4729	4824	
==>$2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	698	805	
==>->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	698	805	
==>->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	698	805	
==>->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9777	9921	
==>_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9777	9921	
==>_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9777	9921	
==>_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end => <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19612	19720	
==>h indicates the capture didn't happen.

  U32 lastparen;          /* last paren matched */
  U32 lastclosepar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1205	1305	
==>8-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operatio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1205	1305	
==>8-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operatio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1205	1305	
==>8-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operatio <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	204	300	
==>keserv = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage,
  "com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	206	334	
==>aluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	206	334	
==>aluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	206	334	
==>aluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmt <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19280	19380	
==>ang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6131	6229	
==>s is to return the string set in advance with the prune method.

This feature is useful, like custo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6131	6229	
==>s is to return the string set in advance with the prune method.

This feature is useful, like custo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6131	6229	
==>s is to return the string set in advance with the prune method.

This feature is useful, like custo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4992	5085	
==>s->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4992	5085	
==>s->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4992	5085	
==>s->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7585	7782	
==>ar @tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _glo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3324	3448	
==>eturn;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3324	3448	
==>eturn;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30928	31050	
==>n sub {
        return @values[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # method label
        sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1884	1983	
==>if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1884	1983	
==>if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1884	1983	
==>if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test, <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5621	5739	
==>ub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5621	5739	
==>ub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4020	4110	
==>(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4020	4110	
==>(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cip <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7657	7806	
==>?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7657	7806	
==>?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2360	2451	
==>$self.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2360	2451	
==>$self.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $o <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17917	18073	
==>ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for the abov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29522	29655	
==>' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29522	29655	
==>' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29522	29655	
==>' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10554	10678	
==>Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.descr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1080	1194	
==>Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.descr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1080	1194	
==>Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.descr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29955	30053	
==>t clean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18566	18656	
==>{ p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18566	18656	
==>{ p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18566	18656	
==>{ p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16605	16692	
==>,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(R <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	829	940	
==>$object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    print "$desc: $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21164	21264	
==>nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21164	21264	
==>nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21164	21264	
==>nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5473	5598	
==>me>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6741	6866	
==>me>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5473	5598	
==>me>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6729	6854	
==>me>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3360	3488	
==>dalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3360	3488	
==>dalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3360	3488	
==>dalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	74	171	
==>e vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot d <==
4	/Users/nnunley/pugs/util/version_h.pl	1864	1973	
==>again. If we opened a new file ($version_h) without turning
  # "io" warnings off, perl will print "Filehandle <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3966	4067	
==>way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3966	4067	
==>way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4046	4147	
==>way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3732	3814	
==>"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3732	3814	
==>"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3732	3814	
==>"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7192	7285	
==>ntifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1727	1820	
==>RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs inside character classes';
use constant R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7192	7285	
==>ntifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7192	7285	
==>ntifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::S <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2395	2526	
==>RG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7489	7620	
==>RG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_di <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2395	2526	
==>RG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_di <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7489	7620	
==>RG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_di <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7319	7452	
==>hars > 1 && substr($k,-1,1) eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8097	8208	
==>$type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8097	8208	
==>$type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8097	8208	
==>$type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	397	515	
==>($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(defined $v) {
        ($X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22698	22801	
==>undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22698	22801	
==>undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22698	22801	
==>undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7993	8146	
==>>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7993	8146	
==>>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7993	8146	
==>>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	106	217	
==>ta::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@AR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1448	1550	
==>ckage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1448	1550	
==>ckage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1448	1550	
==>ckage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35176	35272	
==>me node are matched in succession.  We
also inherit visual()Z and walk()Z<>.

However, we need to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6804	6911	
==>S_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6804	6911	
==>S_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6804	6911	
==>S_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20716	20813	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20716	20813	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20716	20813	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	732	827	
==>:Package::Source
    JIB::Package::Binary
    JIB::Package::Installed

=head1 ACCESSORS 

=head2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	680	801	
==>o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => sub {
    my ($S, $cc) = @_;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13493	13589	
==>LTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13493	13589	
==>LTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13493	13589	
==>LTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2075	2187	
==>$self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2075	2187	
==>$self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2075	2187	
==>$self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(s <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7394	7499	
==>flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29585	29680	
==>NTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".], <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29585	29680	
==>NTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".], <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	393	484	
==>NTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".], <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23955	24078	
==>er iteration of //g. */
  #define REXEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The "internal use only <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	631	737	
==>lse { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	631	737	
==>lse { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	631	737	
==>lse { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'P <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2435	2573	
==>n) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need versi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3393	3530	
==>n ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need versi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	374	474	
==>ion is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	374	474	
==>ion is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	91	259	
==>umper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7724	7829	
==>adname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7724	7829	
==>adname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7724	7829	
==>adname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam} <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7911	8046	
==>ontent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7911	8046	
==>ontent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6056	6169	
==>'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6056	6169	
==>'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gra <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	910	1019	
==>$position = -1;
  $me->position($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5723	5823	
==>ages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5723	5823	
==>ages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5723	5823	
==>ages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18887	18982	
==>nds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17930	18025	
==>nds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18887	18982	
==>nds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17930	18025	
==>nds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15079	15191	
==>with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18556	18668	
==>with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17972	18084	
==>with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18509	18621	
==>kage {
    my($code,$pkg)=@_;
    "package ${ROOT}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1378	1531	
==>ar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1378	1531	
==>ar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	701	796	
==>e channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 L <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	701	796	
==>e channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 L <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16502	16645	
==>ffset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20928	21071	
==>ffset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37077	37173	
==>are all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<tem <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37077	37173	
==>are all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<tem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	999	1104	
==>tch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	999	1104	
==>tch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	999	1104	
==>tch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' u <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	52	149	
==>se Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1762	1854	
==>L2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20856	20948	
==>d::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=ite <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1762	1854	
==>L2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1762	1854	
==>L2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4386	4521	
==>=> $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	495	589	
==>ie "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	495	589	
==>ie "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	495	589	
==>ie "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	995	1187	
==>et}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # defaul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11250	11355	
==>h_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11250	11355	
==>h_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	620	720	
==>ENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less us <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	620	720	
==>ENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less us <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16246	16358	
==>W
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16246	16358	
==>W
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21232	21318	
==>ead2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21232	21318	
==>ead2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_ha <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3529	3647	
==>::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toString');
        if $Result5.isa(JSX::Value::Ob <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3601	3710	
==>ual( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_nex <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3601	3710	
==>ual( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_nex <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	23	128	
==>ource;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9947	10106	
==>revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9947	10106	
==>revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1545	1633	
==>le->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "pac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1545	1633	
==>le->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "pac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1757	1898	
==>print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1745	1886	
==>print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	496	595	
==>adline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $cod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	496	595	
==>adline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6635	6750	
==>n;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6635	6750	
==>n;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6635	6750	
==>n;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $ <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	348	456	
==>$dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.expected";
    unlink "$file.out";
    system " <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4110	4251	
==>inue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX N <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4110	4251	
==>inue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX N <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25731	25824	
==>Rosetta with non-free software components.

Any versions of Rosetta that you modify and distri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25731	25824	
==>Rosetta with non-free software components.

Any versions of Rosetta that you modify and distri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4939	5031	
==>urn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4939	5031	
==>urn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4939	5031	
==>urn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13049	13179	
==>se {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6524	6654	
==>se {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4594	4700	
==>cts( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- compl <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4594	4700	
==>cts( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- compl <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4452	4549	
==>CT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year fo <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4452	4549	
==>CT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year fo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	72	192	
==>heck           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	70	190	
==>heck           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3952	4057	
==>my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Dispatchable';
	$c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2477	2588	
==>type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38867	38963	
==>LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43681	43777	
==>LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43215	43311	
==>LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8901	9104	
==>rent")
                  ->send("has_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	471	569	
==>lting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	471	569	
==>lting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	471	569	
==>lting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wit <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11611	11706	
==>e()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<siz <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8758	8853	
==>e()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<siz <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11611	11706	
==>e()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<siz <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8758	8853	
==>e()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<siz <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6233	6335	
==>ut, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6233	6335	
==>ut, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16990	17083	
==>ain localization methodology
in an easily accessable manner, such that would not be possible i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16990	17083	
==>ain localization methodology
in an easily accessable manner, such that would not be possible i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1018	1170	
==>_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Key <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1018	1170	
==>_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Key <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7699	7798	
==>ndler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7699	7798	
==>ndler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5876	6002	
==>TTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5876	6002	
==>TTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22260	22352	
==>back

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22260	22352	
==>back

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1175	1299	
==>> 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '~' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16159	16257	
==>SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16159	16257	
==>SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16159	16257	
==>SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3882	3986	
==>de;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3882	3986	
==>de;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3882	3986	
==>de;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	26	123	
==>se strict;
use Pugs::Emitter::Rule::Perl5;
our %nodes;

sub emit_node {
	die "unknown node type: $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5250	5416	
==>parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5250	5416	
==>parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5250	5416	
==>parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            require <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11252	11354	
==>s
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $S0 = substr targe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16534	16676	
==>et( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20011	20153	
==>et( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19571	19713	
==>et( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12431	12525	
==>ng at.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment($line, \$comment);

Check <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	199	309	
==>k, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	203	313	
==>k, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	199	309	
==>k, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	203	313	
==>k, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8674	8809	
==>mit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = _man <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4343	4470	
==>dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4343	4470	
==>dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4343	4470	
==>dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1977	2096	
==>nidate
        foreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	761	857	
==>.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	761	857	
==>.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	761	857	
==>.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17484	17575	
==>d automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17484	17575	
==>d automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This heade <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5357	5503	
==>rt,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5357	5503	
==>rt,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1578	1671	
==>s

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookb <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1578	1671	
==>s

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookb <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15526	15642	
==>\%/\$/;
        return $name . '{ \'' . $n->{op1}{angle_quoted} . '\' }';
    }

    return _not_implemented( $n, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4929	5043	
==>G;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4929	5043	
==>G;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4929	5043	
==>G;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::m <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	19	121	
==>lass Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hallo, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3105	3200	
==>test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3105	3200	
==>test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3185	3280	
==>test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you t <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	381	483	
==>>position($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6Rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2218	2316	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2218	2316	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2218	2316	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2302	2408	
==>)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('thr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2302	2408	
==>)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('thr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2302	2408	
==>)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('thr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12249	12374	
==>h;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10186	10307	
==>dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10186	10307	
==>dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10186	10307	
==>dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36166	36262	
==>cant relation with every tuple of the <$other> relation,
then where each member of a tuple pair h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40715	40811	
==>cant relation with every tuple of the <$other> relation,
then where each member of a tuple pair h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40329	40425	
==>cant relation with every tuple of the <$other> relation,
then where each member of a tuple pair h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6494	6628	
==>le->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6494	6628	
==>le->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6494	6628	
==>le->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8005	8138	
==>=> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8005	8138	
==>=> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8005	8138	
==>=> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9853	9966	
==>scapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
rule He <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5220	5319	
==>$vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5220	5319	
==>$vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5220	5319	
==>$vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8491	8585	
==>::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\"";
}
sub PIL::PIL1:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3472	3585	
==>ello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3472	3585	
==>ello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3472	3585	
==>ello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1527	1635	
==>XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1527	1635	
==>XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1527	1635	
==>XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TO <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26810	26913	
==><'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8264	8364	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7394	7494	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8264	8364	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7394	7494	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Set <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4120	4229	
==>map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4120	4229	
==>map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by m <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10409	10506	
==>@todo_tests) returns Void`

If you have some tests which you would like to force into being TODO t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10467	10564	
==>@todo_tests) returns Void`

If you have some tests which you would like to force into being TODO t <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	863	970	
==>it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib' <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	863	970	
==>it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11663	11762	
==>t literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10398	10482	
==>, isNamed=>$isNamed, isLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	343	483	
==>e;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	343	483	
==>e;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!ou <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1576	1676	
==>d_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.k <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1576	1676	
==>d_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4908	5033	
==>al $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HAC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4908	5033	
==>al $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HAC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4908	5033	
==>al $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HAC <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	752	856	
==>r)

use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4802	4922	
==>/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4802	4922	
==>/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4802	4922	
==>/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21822	21921	
==>r longest name string for formatting purposes.
    my $max_namelen = length($failed_str);
    foreac <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6856	7080	
==>bol'), 
                              symbol->new('$method' => 'method')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2203	2342	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2598	2737	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2261	2400	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2656	2795	
==>$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1736	1836	
==>package => $self ) ) {
        error("Package '". $self->package ."' is already installed --skipping" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20674	20772	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20674	20772	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20674	20772	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23717	23854	
==>w< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20138	20275	
==>w< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11387	11480	
==>code versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11387	11480	
==>code versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented un <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8157	8262	
==>Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape ! <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8157	8262	
==>Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3242	3330	
==>PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3242	3330	
==>PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWa <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5093	5225	
==>[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->np <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1381	1502	
==>TI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1381	1502	
==>TI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1381	1502	
==>TI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4927	5022	
==>erence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4054	4149	
==>erence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4927	5022	
==>erence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4054	4149	
==>erence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28328	28432	
==>hat the object's contents look
good at a glance); no attribute values are escaped and you shouldn't try t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35684	35788	
==>hat the object's contents look
good at a glance); no attribute values are escaped and you shouldn't try t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28328	28432	
==>hat the object's contents look
good at a glance); no attribute values are escaped and you shouldn't try t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35684	35788	
==>hat the object's contents look
good at a glance); no attribute values are escaped and you shouldn't try t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6329	6467	
==>ss' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6329	6467	
==>ss' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6329	6467	
==>ss' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPri <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	227	310	
==>file.'") ~~ /^<JavaScript::ECMAScript3::Grammar::Spec::Program>$/ {say "ok"}else{say <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	523	637	
==>_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	523	637	
==>_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	523	637	
==>_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3621	3733	
==>rn 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5848	6233	
==>))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7610	7995	
==>))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9409	9511	
==>sconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9409	9511	
==>sconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15804	15932	
==>E $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15804	15932	
==>E $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2692	2812	
==>ml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2692	2812	
==>ml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1335	1439	
==>my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1335	1439	
==>my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20577	20671	
==>lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20577	20671	
==>lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14875	14980	
==>em (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14875	14980	
==>em (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14875	14980	
==>em (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
M <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	658	752	
==>est_output);
  my %results = $strap->analyze_fh($name, $test_filehandle);
  my %results = $stra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1138	1259	
==>def, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1138	1259	
==>def, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1138	1259	
==>def, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24181	24293	
==>lag isn't supported
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3080	3193	
==>p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2976	3087	
==>ODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2976	3087	
==>ODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2976	3087	
==>ODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4281	4394	
==>t;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4281	4394	
==>t;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4281	4394	
==>t;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	183	280	
==>ge Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9118	9260	
==>r";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9118	9260	
==>r";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9118	9260	
==>r";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19681	19785	
==>| <ReturnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <ThrowS <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4848	5002	
==>rse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4848	5002	
==>rse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	415	521	
==>{
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    m <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	415	521	
==>{
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12070	12232	
==>le ${&Rx} =~ m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          }
          elsif ($v > <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8988	9132	
==>der::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1136	1260	
==>der::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1136	1260	
==>der::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15120	15234	
==>nt_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with id <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18597	18711	
==>nt_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with id <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18013	18127	
==>nt_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with id <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6142	6255	
==>head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licensing|copyright|l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	764	1067	
==>fer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'heade <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	764	1067	
==>fer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'heade <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3757	3866	
==>LP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a one-line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	252	355	
==>pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	252	355	
==>pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	252	355	
==>pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pSt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4142	4244	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4142	4244	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4142	4244	
==>y|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10394	10498	
==>erl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10394	10498	
==>erl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10394	10498	
==>erl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6907	7004	
==>$o->raw();
    return $o->mk_eater_for_re('\w') if $re eq '\w';
    return $o->mk_eater_for_re('\W <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	57	179	
==>brary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	61	183	
==>brary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	57	179	
==>brary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	61	183	
==>brary.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = n <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2305	2418	
==>1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2305	2418	
==>1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2559	2671	
==>= $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2559	2671	
==>= $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18335	18526	
==>D () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18335	18526	
==>D () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18335	18526	
==>D () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package clas <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1053	1171	
==>k =~ /c/) {
	    print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35203	35328	
==>n_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35203	35328	
==>n_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35203	35328	
==>n_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        e <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12837	12946	
==>id=531465

  It may not be possible to get Match objects (only strings) into
  $1,etal, or even into the retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12689	12865	
==>!\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12683	12859	
==>!\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                " <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10810	10908	
==>XXX - not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p5_simple_escape_sequen <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6702	6792	
==>match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe," <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3322	3478	
==>n 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3322	3478	
==>n 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1430	1564	
==>%events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1066	1200	
==>%events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element> <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1430	1564	
==>%events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1066	1200	
==>%events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19175	19267	
==>^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19175	19267	
==>^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19175	19267	
==>^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11031	11121	
==>trWhiteSpace>?
    | <StrWhiteSpace>? <StrNumericLiteral> <StrWhiteSpace>?
}
rule StrWhiteS <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3123	3291	
==>ew(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Gram <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4613	4726	
==>=== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8090	8203	
==>=== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7083	7196	
==>=== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12284	12429	
==>Reason
  {
      method report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2672	2807	
==>Reason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2672	2807	
==>Reason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23119	23218	
==>ech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21928	22027	
==>ech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23119	23218	
==>ech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21928	22027	
==>ech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9136	9257	
==>expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argume <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9136	9257	
==>expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argume <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9136	9257	
==>expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argume <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4314	4399	
==>_rule('ws',mk_dynamic_alt(\@whitespaces));

my @statements;
def_rule('statement',mk_dy <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3001	3131	
==>_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# keys: ",% <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1100	1197	
==>lay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clear <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1100	1197	
==>lay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clear <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1100	1197	
==>lay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clear <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15740	15890	
==>$!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15740	15890	
==>$!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5977	6095	
==>er.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.pars <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5977	6095	
==>er.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.pars <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7237	7363	
==>::More::skip().
sub skip {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17602	17698	
==>ount => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17602	17698	
==>ount => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17602	17698	
==>ount => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2056	2155	
==>GE; exit }
Usage: $0 [options]

$0 creates a very minimalistic Pugs Live CD.
It fetches kernel and G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13850	13947	
==>spatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13850	13947	
==>spatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13850	13947	
==>spatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $disp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	408	510	
==>f possible
sub can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10256	10356	
==>lt) {
    my $default; $default = DOWN($paramDefault) if defined($paramDefault);
    return { isInvoc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33361	33457	
==>he user text of another library
which it uses, the Template module for the program or first libra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33361	33457	
==>he user text of another library
which it uses, the Template module for the program or first libra <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4213	4319	
==>beg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6109	6209	
==>ds to do to signal
this is to return the string set in advance with the prune method.

This feature i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6109	6209	
==>ds to do to signal
this is to return the string set in advance with the prune method.

This feature i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6109	6209	
==>ds to do to signal
this is to return the string set in advance with the prune method.

This feature i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2673	2859	
==>y $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$}) <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2673	2859	
==>y $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$}) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7275	7404	
==>dtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7275	7404	
==>dtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14605	14727	
==>rn pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14605	14727	
==>rn pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14605	14727	
==>rn pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1065	1180	
==>oncat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
print <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3102	3209	
==>ormation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3102	3209	
==>ormation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21351	21448	
==>Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21351	21448	
==>Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	324	441	
==>$grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	324	441	
==>$grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1306	1422	
==>99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1295	1402	
==>99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::A <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7220	7350	
==>*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design documents
    for (@syn) {
        m/^(\D)/;
        $syn <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	580	686	
==>ssion
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  Li <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4711	4806	
==>($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4711	4806	
==>($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19276	19379	
==>unloop, which is only exited if the connection to the server
dies. To read data from the server, a block <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18301	18404	
==>unloop, which is only exited if the connection to the server
dies. To read data from the server, a block <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19276	19379	
==>unloop, which is only exited if the connection to the server
dies. To read data from the server, a block <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18301	18404	
==>unloop, which is only exited if the connection to the server
dies. To read data from the server, a block <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4450	4611	
==>, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4914	5075	
==>, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5612	5716	
==>thod tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMP <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5612	5716	
==>thod tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMP <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	233	346	
==>@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_di <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	233	346	
==>@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	895	994	
==>ad1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	895	994	
==>ad1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10169	10282	
==>ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st->[-1] } and $st- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1708	1814	
==>create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1913	2019	
==>create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1976	2082	
==>create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21132	21246	
==>ailed}}, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed}};
            (my $txt, $canon) = _ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31322	31413	
==>hose for which the the
Bool-returning anonymous function in the argument C<$predicate> retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35872	35963	
==>hose for which the the
Bool-returning anonymous function in the argument C<$predicate> retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35090	35181	
==>hose for which the the
Bool-returning anonymous function in the argument C<$predicate> retur <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2372	2463	
==>age is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscrib <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2372	2463	
==>age is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscrib <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	107	215	
==>ch $jsfile (@jsfiles) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../pugs -I . -e \'use Grammar; if s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8536	8640	
==>n you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# Th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8536	8640	
==>n you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# Th <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20303	20407	
==>apse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the entry only has <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1335	1438	
==>set num'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfill in... };
   subset complex'~$n~' of Val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6724	6813	
==>self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6724	6813	
==>self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6724	6813	
==>self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	451	634	
==>{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	451	634	
==>{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12770	12894	
==>nge = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  sca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20481	20576	
==>as been moved to another file to help keep I<this>
file as abstract as possible.  F<Regexp::Pars <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	958	1229	
==>st = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_lis <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	958	1229	
==>st = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_lis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2722	2952	
==>+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2733	2963	
==>+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3234	3342	
==>$eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3234	3342	
==>$eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3234	3342	
==>$eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2853	2949	
==>piled (but most of the time outdated) image is available at
      http://m19s28.vlinux.de/iblech/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15152	15315	
==>ff,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub raw { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39921	40045	
==>::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39921	40045	
==>::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39921	40045	
==>::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11791	11946	
==>atch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11791	11946	
==>atch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11791	11946	
==>atch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22996	23119	
==>gexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      fl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14111	14229	
==>Perl = $^X;

	# VMS should have 'perl' aliased properly
	return $Perl if $^O eq 'VMS';

	my $exe;
	eval "require Config <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1052	1152	
==>e object

that defines ::Main.  A Module object mixes in both Package

and Code -- because it is both <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1002	1100	
==>e object
that defines ::Main.  A Module object mixes in both Package
and Code -- because it is both <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3072	3224	
==>{
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3072	3224	
==>{
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3213	3314	
==>ILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3430	3531	
==>ILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		pri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4840	5029	
==>le: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5062	5251	
==>le: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2158	2270	
==>',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2158	2270	
==>',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5251	5370	
==>[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5251	5370	
==>[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumpe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2504	2600	
==>ESCRIPTION

An object of this class represents the query string portion of a requested URI.
It pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2504	2600	
==>ESCRIPTION

An object of this class represents the query string portion of a requested URI.
It pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5141	5252	
==>x = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16177	16288	
==>x = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17665	17776	
==>x = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22348	22459	
==>x = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3207	3306	
==>end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" us <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3207	3306	
==>end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6206	6305	
==>should be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-lang <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5993	6090	
==>should be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-lang <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3120	3237	
==>nder cygwin, and does not
    # recognise cygwin absolute paths.  This kludge includes the
    # win32ified path as we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1888	1997	
==>{
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1888	1997	
==>{
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1888	1997	
==>{
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1026	1146	
==>e_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1426	1546	
==>e_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1900	2020	
==>e_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	612	723	
==>b _not_implemented {
    my ( $n, $what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ") <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	295	391	
==>er_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

C <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6634	6730	
==>not add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_si <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	295	391	
==>er_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

C <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6634	6730	
==>not add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_si <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	74	164	
==>ugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs::Grammar::Var;
use Pugs:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15766	15871	
==>w< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10622	10727	
==>w< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	879	972	
==>C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Per <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	879	972	
==>C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5732	5830	
==>ix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5732	5830	
==>ix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5732	5830	
==>ix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	126	269	
==>er);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	126	269	
==>er);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	126	269	
==>er);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4219	4351	
==>rammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2807	2914	
==>);
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2807	2914	
==>);
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2807	2914	
==>);
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	71	176	
==>use JIB::Utils;

use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Data::Du <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1768	2019	
==>every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exce <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1768	2019	
==>every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1604	1718	
==>onal,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1604	1718	
==>onal,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1405	1654	
==>} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External package <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1405	1654	
==>} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External package <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12630	12747	
==>\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12630	12747	
==>\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $ser <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	437	527	
==>d_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	437	527	
==>d_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	437	527	
==>d_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34756	34845	
==>he identity-one Relation::Example or the invocant relation,
respectively.

=item C<restric <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9561	9705	
==>emit( $n->{name} ) .
            " { my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21053	21148	
==>x1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21053	21148	
==>x1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21053	21148	
==>x1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14415	14609	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14415	14609	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14415	14609	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2946	3140	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13313	13408	
==>amed parameter for all these  functions.

The `:depends("string")` parameter to most of the func <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13371	13466	
==>amed parameter for all these  functions.

The `:depends("string")` parameter to most of the func <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13638	13732	
==>eturned in the recommended "Good Practice" order.

In scalar context return the number of disti <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13638	13732	
==>eturned in the recommended "Good Practice" order.

In scalar context return the number of disti <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1103	1214	
==>per_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1083	1194	
==>per_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1103	1214	
==>per_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1083	1194	
==>per_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25599	25731	
==>%.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not all tests were successful, the script dies with one of the
abo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1628	1735	
==>d (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1628	1735	
==>d (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1628	1735	
==>d (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4939	5044	
==>ace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4939	5044	
==>ace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4939	5044	
==>ace_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10863	10962	
==>::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfro <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	767	871	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	825	929	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	767	871	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	825	929	
==>Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2637	2759	
==>s <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2637	2759	
==>s <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2637	2759	
==>s <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub c <==
4	/Users/nnunley/pugs/util/munge_haddock.pl	71	168	
==>t maintained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15494	15610	
==>thod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15494	15610	
==>thod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15494	15610	
==>thod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36223	36338	
==>ass->send('add_method' => (
    # method label
        symbol->new('get_attribute'),
    # method body
        metho <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14456	14561	
==>nals::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspecced) faca <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3253	3347	
==>::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bui <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3253	3347	
==>::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bui <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5450	5544	
==>::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bui <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25068	25190	
==>ing from the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex strin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5218	5312	
==>nmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modifi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5218	5312	
==>nmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modifi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35081	35174	
==>herit the merge() method defined in F<Regexp::Parser::branch>,
which is used when two of the s <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	191	300	
==>mdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_pro <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	191	300	
==>mdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_pro <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5886	6019	
==>total_links);
print $fh $template->output();
close $fh;

# Generating design doc index
unless($no_designdocs) { 
    my $syn_index = c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5372	5484	
==>le = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5372	5484	
==>le = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5372	5484	
==>le = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5198	5300	
==>TI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5198	5300	
==>TI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5198	5300	
==>TI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5679	5780	
==>l
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5679	5780	
==>l
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5679	5780	
==>l
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	148	242	
==>sors, methods, etc
has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance) <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9391	9497	
==>we will later mount.";

  step
    descr  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4650	4746	
==>.";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4650	4746	
==>.";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4650	4746	
==>.";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11389	11482	
==>de versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unic <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11389	11482	
==>de versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unic <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1394	1486	
==>hell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1394	1486	
==>hell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1083	1204	
==>sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1083	1204	
==>sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1083	1204	
==>sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3923	4037	
==>y->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3923	4037	
==>y->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4513	4627	
==>y->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos <==
4	/Users/nnunley/pugs/misc/IDE-support/server.pl	134	227	
==>)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"r <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7043	7165	
==>orted_p5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9554	9672	
==>y { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9554	9672	
==>y { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debu <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	901	997	
==>atched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $hig <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	901	997	
==>atched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $hig <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2469	2624	
==>pture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2480	2635	
==>pture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10672	10819	
==>'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10951	11098	
==>'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3899	4014	
==>ker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKERFILE) } | <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7	105	
==>This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7	105	
==>This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7	105	
==>This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5075	5211	
==>gex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5075	5211	
==>gex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5075	5211	
==>gex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	235	328	
==>MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attribute;
use Perl6::MM::C3;

use Carp 'con <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	629	744	
==>(n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	629	744	
==>(n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	629	744	
==>(n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8906	9001	
==>[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepH <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6399	6499	
==>t $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5529	5629	
==>t $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6399	6499	
==>t $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5529	5629	
==>t $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14453	14595	
==>arnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14453	14595	
==>arnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14453	14595	
==>arnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7105	7209	
==>ts:
    parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_error(mob, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5465	5567	
==>) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5465	5567	
==>) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5465	5567	
==>) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24875	25009	
==>elf->{nparen};
  }

  sub visual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3373	3478	
==>]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra paramet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3373	3478	
==>]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra paramet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3373	3478	
==>]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra paramet <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13029	13114	
==>s of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Transl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13029	13114	
==>s of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Transl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3723	3829	
==>«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3723	3829	
==>«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3723	3829	
==>«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $valu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	104	197	
==>mpiler-Rule/lib",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar::Per <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13782	13925	
==>,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3903	4034	
==>,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3903	4034	
==>,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3903	4034	
==>,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10007	10122	
==>in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7947	8062	
==>in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10007	10122	
==>in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7947	8062	
==>in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5175	5294	
==>$self)->add_method($label, $method);
        },          
    },
);

# < Class is a subclass of Object >
::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50	147	
==>rl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3298	3392	
==>k/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3182	3272	
==>k/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
u <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2086	2195	
==>));
	} else { die "don't know to make a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	267	366	
==>e note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	267	366	
==>e note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	267	366	
==>e note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9436	9536	
==>=> 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed') <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9494	9594	
==>=> 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed') <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5847	5939	
==>$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5847	5939	
==>$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$de <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15484	15651	
==>}
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separate lines on VM <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4416	4530	
==>ou can only add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

sub equal_to { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12722	12823	
==>n ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12722	12823	
==>n ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12722	12823	
==>n ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21478	21577	
==>eives a corresponding message.
Event names which are all lowercase are "pseudo" events. See below fo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20359	20458	
==>eives a corresponding message.
Event names which are all lowercase are "pseudo" events. See below fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21478	21577	
==>eives a corresponding message.
Event names which are all lowercase are "pseudo" events. See below fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20359	20458	
==>eives a corresponding message.
Event names which are all lowercase are "pseudo" events. See below fo <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2895	3008	
==>n($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) {
        $gz->gzwrite($_) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16064	16168	
==>type($$) = {
	types::unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

co <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12433	12530	
==>ence that is closest to the parameter.
If both previous and next elements are at the same distance <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12433	12530	
==>ence that is closest to the parameter.
If both previous and next elements are at the same distance <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5911	6017	
==>gate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5969	6075	
==>gate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14311	14408	
==>has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
ot <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14311	14408	
==>has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
ot <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	318	460	
==>h/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { require <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4541	4671	
==>}
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4541	4671	
==>}
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4541	4671	
==>}
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	168	289	
==>{
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	168	289	
==>{
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	168	289	
==>{
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13473	13575	
==>al @ENV{@keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5979	6134	
==>=> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5979	6134	
==>=> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5979	6134	
==>=> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7552	7654	
==>in("", map chr(hex), @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23759	23856	
==>ods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(und <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23759	23856	
==>ods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(und <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23759	23856	
==>ods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(und <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1046	1149	
==>=> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1046	1149	
==>=> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1046	1149	
==>=> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26581	26674	
==><TYPE> and sends the constructor whatever
other arguments are included.  This method takes car <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	99	200	
==>e in here
has Method %.dispatch;

# private accessors, methods, etc
has Method %:dispatch;

# next typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9737	9836	
==>nfo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9737	9836	
==>nfo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9737	9836	
==>nfo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	694	781	
==>erclasses([ $::Class ]);

## ----------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	694	781	
==>erclasses([ $::Class ]);

## ----------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	694	781	
==>erclasses([ $::Class ]);

## ----------------------------------------------------------- <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1175	1291	
==>UMNS} || 80;
$Columns--;             # Some shells have trouble with a full line of text.

=head1 SYNOPSIS

  use Tes <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19740	19842	
==>int STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39155	39239	
==>dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39155	39239	
==>dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	474	565	
==>"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	435	526	
==>"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	435	526	
==>"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16395	16480	
==>set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29089	29188	
==>Inserts this object into the tree.  It returns a value that says whether
or not it ended up being me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27745	27838	
==>ch original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32297	32390	
==>ch original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31389	31482	
==>ch original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2733	2833	
==>{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2733	2833	
==>{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2733	2833	
==>{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-C <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7292	7390	
==>TABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7293	7468	
==>p->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7293	7468	
==>p->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7293	7468	
==>p->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3872	3992	
==>) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3872	3992	
==>) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3872	3992	
==>) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7677	7777	
==>force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1852	1950	
==>$s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1852	1950	
==>$s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1852	1950	
==>$s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8196	8305	
==>lock = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES] <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8196	8305	
==>lock = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES] <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1528	1631	
==>}
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Pe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1528	1631	
==>}
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1090	1196	
==>ion( constant('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1176	1273	
==>($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1176	1273	
==>($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1176	1273	
==>($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10314	10443	
==>ky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10314	10443	
==>ky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10314	10443	
==>ky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant & <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7071	7170	
==>self.header("Content-Language") }
method content_length ($self: )            is rw { $self.header("C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7071	7170	
==>self.header("Content-Language") }
method content_length ($self: )            is rw { $self.header("C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20842	20940	
==>back, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20842	20940	
==>back, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21106	21290	
==>$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44030	44197	
==>$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e-> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7639	7743	
==>ed when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<star <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7639	7743	
==>ed when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<star <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6002	6107	
==>{ $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collec <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6002	6107	
==>{ $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3881	3986	
==>ame,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3881	3986	
==>ame,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3881	3986	
==>ame,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2011	2159	
==>debug_traverse;
        say '  ' x $depth, @s 
    }
    
    if $tree.ref ne 'Array' {
        dbg "  # -- unknown: <$tree>";
        return; 
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12046	12163	
==>:Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12046	12163	
==>:Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12046	12163	
==>:Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{has <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1789	1911	
==>print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2532	2654	
==>print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1789	1911	
==>print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2520	2642	
==>print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2856	2960	
==>PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2856	2960	
==>PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2856	2960	
==>PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16062	16153	
==>,B1,E0,E1).

rm(lookahead(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,F0,_,B0,_,E0,_).
rm(lookahe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2015	2126	
==>tance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2015	2126	
==>tance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2015	2126	
==>tance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'D <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16737	16843	
==>ll emit an int
# add (int -> int -> int) is resolved using val(10) into int -> int
# x is inferred to be in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7847	7950	
==>r->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7847	7950	
==>r->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7847	7950	
==>r->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SE <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	830	939	
==>$obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- subclass/i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2175	2267	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2175	2267	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2175	2267	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2342	2456	
==>nd->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2342	2456	
==>nd->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2689	2803	
==>nd->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26099	26204	
==>er::flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	88	187	
==>less keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	88	187	
==>less keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	88	187	
==>less keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10397	10492	
==>"\$$_"} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9259	9361	
==>ar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9259	9361	
==>ar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9259	9361	
==>ar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17842	17995	
==>{
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17842	17995	
==>{
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17842	17995	
==>{
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @r <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	171	265	
==>ze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Pie <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	659	777	
==>5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    package Pugs::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16750	16845	
==>d1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16750	16845	
==>d1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16750	16845	
==>d1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7126	7269	
==>sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7126	7269	
==>sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7126	7269	
==>sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( ' <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6607	6716	
==>ly short while.
sub gather_results {
    my($self) = @_;
    my $kid;
    for my $pid (@{ $self->{_children} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1560	1675	
==>w PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1560	1675	
==>w PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1560	1675	
==>w PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12588	12692	
==>ass: send (CREATE ($canidate %params)))))
     ($self send (BUILDALL %params))
     ($self)))

=cut

$::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23491	23593	
==>X - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23491	23593	
==>X - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23491	23593	
==>X - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)= <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6413	6508	
==>arser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rul <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6413	6508	
==>arser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1422	1539	
==>(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1422	1539	
==>(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1422	1539	
==>(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var key <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	192	289	
==>as the base for Perl6's CPAN, also known as sixpan.

Please refer the documentation of the other M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11192	11312	
==>n;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1662	1768	
==>n;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1662	1768	
==>n;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Te <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4778	4882	
==>------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2845	2965	
==>for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2845	2965	
==>for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2845	2965	
==>for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or di <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	252	362	
==>imple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3064	3239	
==>ethod not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method ren <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6541	6716	
==>ethod not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method ren <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9243	9341	
==>| <'\\'> <EscapeSequence>
}
rule SingleStringCharacter {  # see 7.8.4
      <!before <LineTerminato <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39071	39169	
==>LITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of L <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39071	39169	
==>LITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of L <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23398	23489	
==>ed C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23398	23489	
==>ed C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1768	1887	
==>exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1768	1887	
==>exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1768	1887	
==>exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1188	1292	
==>types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9914	10018	
==>in("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@param_info,$args);
    }
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1188	1292	
==>types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1188	1292	
==>types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	361	482	
==>d"} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15980	16080	
==>TI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15980	16080	
==>TI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15980	16080	
==>TI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	338	454	
==>le


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	544	660	
==>le


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_sta <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1230	1331	
==>spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1230	1331	
==>spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10579	10795	
==>{
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            } <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10579	10795	
==>{
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9544	9701	
==>tr .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map { _ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3561	3659	
==>plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3561	3659	
==>plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3641	3739	
==>plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12839	12935	
==>e op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12839	12935	
==>e op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12839	12935	
==>e op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24543	24637	
==>g attribute value.

Every Relation::Example attribute has a name that is distinct from the othe <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14756	14899	
==>: @f\n";
                @dir_files = @new_dir_files;
            }
        }
    } # foreach test
    $tot{bench} = timediff(new Benchmark, $t_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2223	2316	
==>>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2223	2316	
==>>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2223	2316	
==>>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16752	16851	
==>thod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20229	20328	
==>thod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	35	128	
==>has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUI <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	35	128	
==>has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2690	2789	
==>tval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.It <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2690	2789	
==>tval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.It <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2690	2789	
==>tval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.It <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30701	30795	
==>it was inspired by Larry Wall's TEST script that came
with perl distributions for ages. Numerou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6942	7078	
==>};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6712	6841	
==>};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6179	6277	
==>$cls eq 'IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Submethod| <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13403	13499	
==>=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13403	13499	
==>=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13403	13499	
==>=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	62	156	
==>ile::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	62	156	
==>ile::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	62	156	
==>ile::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4071	4173	
==>fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4071	4173	
==>fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4071	4173	
==>fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21915	22005	
==>This document describes Relation::Example version 0.1.0.

It also describes the same-number <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29549	29644	
==>method will fail if any of the
named attributes are not tuple-valued attributes, or if any attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34101	34196	
==>method will fail if any of the
named attributes are not tuple-valued attributes, or if any attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33265	33360	
==>method will fail if any of the
named attributes are not tuple-valued attributes, or if any attri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2959	3047	
==>umbers.........ok
  t/ok................ok
  t/test-harness......ok
  t/waterloo......... <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1395	1531	
==>path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1395	1531	
==>path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_pa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20878	20978	
==>le IfStatement :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Statement> <'else'> <State <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2759	2850	
==>canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2759	2850	
==>canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2759	2850	
==>canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	211	322	
==>y );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	211	322	
==>y );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optiona <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1686	1786	
==>s) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1686	1786	
==>s) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21613	21737	
==>oreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21613	21737	
==>oreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21613	21737	
==>oreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$s <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5011	5125	
==>_ghc {
    my $self = shift;
    my $ghc = $self->can_run($ENV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This loc <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3349	3469	
==>Num $x ) {
    my $x_round;
    state $rand_up = 1;

    # randomly round .5 up or down
    given abs($x) - floor( abs($x <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1176	1273	
==>ning the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string conta <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1176	1273	
==>ning the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string conta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1723	1820	
==>ning the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string conta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2282	2402	
==>) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2422	2542	
==>) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7608	7748	
==>if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7608	7748	
==>if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4096	4193	
==>plit " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4096	4193	
==>plit " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3257	3389	
==>eof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3257	3389	
==>eof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3257	3389	
==>eof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        fo <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9842	9936	
==>o,$qc);
}
macro m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_m", <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14306	14410	
==>from"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "P <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30460	30554	
==>ment C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35011	35105	
==>ment C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34193	34287	
==>ment C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14621	14751	
==>fined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14621	14751	
==>fined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14621	14751	
==>fined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18266	18377	
==>ide("id"),
		param => val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25818	25976	
==>->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25818	25976	
==>->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25818	25976	
==>->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34310	34418	
==>have added a handler for the '&' metacharacter, but now we need to
write the supporting class for the F<Regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10279	10405	
==>thod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10279	10405	
==>thod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10279	10405	
==>thod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CA <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3332	3430	
==>->data[0].substr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)));
    XPU <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	804	927	
==>/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Da <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	39	133	
==>".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	39	133	
==>".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	39	133	
==>".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1377	1497	
==>ar ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1377	1497	
==>ar ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1377	1497	
==>ar ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : ar <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8706	8810	
==>d_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8847	8956	
==>, p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_char <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11589	11689	
==>age-specific.

Design:

  The comp hook sub should return a subref, which gets written onto a
  hopef <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3249	3341	
==>($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter na <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3249	3341	
==>($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter na <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4191	4293	
==>ents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = spli <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4236	4338	
==>ents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = spli <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4191	4293	
==>ents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = spli <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4236	4338	
==>ents<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = spli <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12031	12153	
==>yn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29138	29251	
==>stant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29138	29251	
==>stant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29138	29251	
==>stant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3231	3340	
==>f, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3231	3340	
==>f, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3231	3340	
==>f, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cla <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18953	19060	
==>:Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc exp0, exp1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7089	7191	
==>nt-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7089	7191	
==>nt-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11926	12059	
==>er #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2340	2463	
==>er #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2340	2463	
==>er #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8092	8184	
==>seq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		return Blondie::TypeSafe::Annotation->ne <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5977	6142	
==>{

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6441	6606	
==>{

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	349	445	
==>ted in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type ke <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	349	445	
==>ted in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type ke <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1937	2089	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2130	2282	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15253	15365	
==>leop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15532	15644	
==>leop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	961	1061	
==>ed($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	961	1061	
==>ed($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	961	1061	
==>ed($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1 <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13174	13351	
==>un with /x
my $Extra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        (?: \ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2189	2290	
==>t line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12t <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2329	2430	
==>t line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2714	2813	
==>ps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2714	2813	
==>ps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2714	2813	
==>ps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FET <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7556	7710	
==>? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7556	7710	
==>? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7556	7710	
==>? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13025	13138	
==>turn _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8887	9010	
==>y $attr ( @{$n->{attribute}} ) {
            if ( $attr->[0]{bareword} eq 'is' &&
                 $attr->[1]{bareword} eq <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27513	27616	
==>t create a new
object that is a clone of the first but for the changes.

=back

A Message object has the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27513	27616	
==>t create a new
object that is a clone of the first but for the changes.

=back

A Message object has the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10319	10417	
==>re header fields.  The header field
name ($field) is not case sensitive.  To make the life easier f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10319	10417	
==>re header fields.  The header field
name ($field) is not case sensitive.  To make the life easier f <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5773	5948	
==>to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($tok <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5773	5948	
==>to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($tok <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4909	5072	
==>to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($tok <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4909	5072	
==>to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8182	8266	
==>E WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8182	8266	
==>E WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8182	8266	
==>E WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2802	2919	
==>, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2802	2919	
==>, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2802	2919	
==>, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, - <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	874	966	
==>::Check->last_error ), return;

    $self->mk_accessors( qw[files alternative installation] ) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	467	587	
==>n;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{check_n <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	487	595	
==>n;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	566	658	
==>ods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Laz <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	566	658	
==>ods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Laz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15127	15229	
==>:SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15127	15229	
==>:SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23387	23481	
==>name =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23387	23481	
==>name =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE< <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11304	11438	
==>nt if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11304	11438	
==>nt if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1015	1114	
==>rbose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Sw <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14886	14982	
==>emented, we will need an easy way
to test them. So we will implement the Test::More function is_d <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14944	15040	
==>emented, we will need an easy way
to test them. So we will implement the Test::More function is_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7553	7649	
==>$Foo is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4124	4249	
==>s
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4124	4249	
==>s
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6425	6518	
==>Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<po <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6425	6518	
==>Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5400	5572	
==>> \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->from ),
                named => {} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30898	30994	
==>turns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35448	35544	
==>turns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34639	34735	
==>turns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13935	14052	
==>abel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13935	14052	
==>abel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13935	14052	
==>abel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cla <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7396	7509	
==>close FILE;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "status"; $res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2911	3003	
==>'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2911	3003	
==>'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2911	3003	
==>'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGL <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11229	11326	
==>ing (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns al <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11229	11326	
==>ing (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns al <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39115	39205	
==>se Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39115	39205	
==>se Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6383	6495	
==>rint Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6383	6495	
==>rint Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match-> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1767	1870	
==>l::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1767	1870	
==>l::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	197	401	
==>erl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10175	10272	
==>::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10175	10272	
==>::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10175	10272	
==>::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Co <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3067	3168	
==>ffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later ab <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3067	3168	
==>ffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later ab <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20674	20769	
==>you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20674	20769	
==>you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2785	2907	
==>, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2785	2907	
==>, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2785	2907	
==>, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	891	978	
==>mar_name => $() ,} }
RULE
*{'condition_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	293	391	
==>re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	293	391	
==>re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	293	391	
==>re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	61	142	
==>/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm"
package Module::Install::M <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21009	21109	
==>ple times.  The result of doing so,
it that only the last of these fields will be present in the head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21009	21109	
==>ple times.  The result of doing so,
it that only the last of these fields will be present in the head <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18328	18421	
==>he
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as thi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18328	18421	
==>he
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	852	962	
==>cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16759	16852	
==>TI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16759	16852	
==>TI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16759	16852	
==>TI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	459	548	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	459	548	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	459	548	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5023	5206	
==>"$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6785	6968	
==>"$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3532	3637	
==>) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rule word_boundary  { \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15811	15962	
==>t        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15811	15962	
==>t        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15811	15962	
==>t        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	287	380	
==>{ shift()->_meta_dir->subdir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift()->_m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29874	29972	
==>udes the regex
representation of any children of the object.

=item my $r = $obj->raw()

The raw re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	983	1085	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1362	1464	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	983	1085	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1362	1464	
==>shes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4634	4790	
==>irs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4634	4790	
==>irs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop o <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4270	4383	
==>2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4270	4383	
==>2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2943	3078	
==>1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)* <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2829	2960	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)* <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16575	16687	
==>st_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. W <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16575	16687	
==>st_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14722	14836	
==>d_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14722	14836	
==>d_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13012	13111	
==>hese functions both take blocks of code, run the code, and test whether they live or die.

=== A Not <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13070	13169	
==>hese functions both take blocks of code, run the code, and test whether they live or die.

=== A Not <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6924	7038	
==>te($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6924	7038	
==>te($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from chan <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10752	10848	
==>rently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10810	10906	
==>rently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1005	1119	
==>ixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1005	1119	
==>ixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1005	1119	
==>ixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1211	1305	
==>rm> }

rule repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\??) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1546	1651	
==>$rx, $type, $vis) = @_;
    Carp::croak("anchor is an abstract class") if $class =~ /::anchor$/;

    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	982	1064	
==>26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	982	1064	
==>26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	982	1064	
==>26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7725	7828	
==>rsion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7725	7828	
==>rsion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7725	7828	
==>rsion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15930	16037	
==>6_Num(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3821	3916	
==>_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3821	3916	
==>_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3821	3916	
==>_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2944	3060	
==>}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2944	3060	
==>}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2944	3060	
==>}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14584	14686	
==>POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8786	8888	
==>POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22238	22338	
==>a row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26790	26890	
==>a row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3533	3646	
==>{
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3533	3646	
==>{
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3533	3646	
==>{
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implement <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	552	646	
==>efile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ ve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15369	15479	
==>son  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if def <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15369	15479	
==>son  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if def <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	866	954	
==>ass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan(' <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	866	954	
==>ass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan(' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5194	5297	
==>piler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4651	4751	
==>lf->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5377	5477	
==>lf->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5014	5112	
==>piler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3533	3677	
==>se only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3533	3677	
==>se only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3533	3677	
==>se only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7173	7270	
==>pile_hook_p5re",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	413	549	
==>:Token->compile(q(
  \= <'cut'> \N* [\n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17416	17517	
==>1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17416	17517	
==>1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17416	17517	
==>1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	20	129	
==>se strict;
use Fatal qw(open close);

open my $fh, '>index.html';
print { $fh } <<'END';
<html>
<head>
<title> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16475	16574	
==>er ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16475	16574	
==>er ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16475	16574	
==>er ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	973	1108	
==>elp"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	973	1108	
==>elp"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	973	1108	
==>elp"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
u <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22966	23078	
==>exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.names <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23266	23366	
==>)'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identifier <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12623	12777	
==>L method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $pat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12623	12777	
==>L method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $pat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3948	4081	
==>ock} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_blo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28679	28779	
==>family()

The general family of this object.  These are any of: alnum, anchor,
anyof, anyof_char, any <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13536	13629	
==>eric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated n <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13536	13629	
==>eric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7258	7414	
==>$f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7258	7414	
==>$f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7258	7414	
==>$f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2898	3031	
==>backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2898	3031	
==>backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2898	3031	
==>backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24850	24974	
==>n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtes <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	967	1083	
==>n;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, $verbose => 1)}";

=head1 D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15947	16050	
==>};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15947	16050	
==>};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15947	16050	
==>};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3593	3741	
==>>get_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_valu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	957	1097	
==>~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	957	1097	
==>~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3014	3135	
==>tart, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3014	3135	
==>tart, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3647	3774	
==>=> {
        'reason' => sub { _('$.reason') },
        'status' => sub {
            my $status_sub      = $::TestBuilder->FETC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2224	2329	
==>"N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2224	2329	
==>"N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2224	2329	
==>"N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6607	6792	
==>IND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6607	6792	
==>IND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6607	6792	
==>IND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25516	25614	
==>[0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you're
curious why th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	333	464	
==>=> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	333	464	
==>=> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	333	464	
==>=> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, ' <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18914	19026	
==>utput counter mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2759	2878	
==>[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2747	2866	
==>[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11537	11631	
==>s 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11537	11631	
==>s 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13877	14006	
==>_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13871	14000	
==>_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	137	232	
==>ter a new rule or parenthesized
group.  This is approximately the Match object that userland fol <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	137	232	
==>ter a new rule or parenthesized
group.  This is approximately the Match object that userland fol <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	105	234	
==>m(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14123	14210	
==>ke_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14123	14210	
==>ke_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14123	14210	
==>ke_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8892	9028	
==>ift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8892	9028	
==>ift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8892	9028	
==>ift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	775	881	
==>6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2425	2532	
==>OOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2425	2532	
==>OOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7131	7222	
==>e_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7131	7222	
==>e_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3625	3727	
==>$one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backsla <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3625	3727	
==>$one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backsla <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4499	4600	
==>$one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backsla <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4499	4600	
==>$one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backsla <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	988	1086	
==>erse @commits;
@developers = reverse @developers;

# Collect commits in days
# E.g. $commits_till_d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	195	290	
==>use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	195	290	
==>use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6572	6688	
==>bg "# Type:       "; my $type =     traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3558	3665	
==>open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3558	3665	
==>open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3558	3665	
==>open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30366	30485	
==>et_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30366	30485	
==>et_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30366	30485	
==>et_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8138	8251	
==>trap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8866	8977	
==>g closing braces for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob
    .local str <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12762	12857	
==>ete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12762	12857	
==>ete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12743	12848	
==>ol|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	911	1011	
==>:import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	911	1011	
==>:import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	911	1011	
==>:import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1785	1881	
==>ormation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $b <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1785	1881	
==>ormation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18949	19043	
==>plements a Relation data type that corresponds to the
"relation" of logic and mathematics and p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1133	1221	
==>reter> contains the tree reduction code.

L<Blondie::Backend::Perl::Builtins> contains th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8208	8324	
==>x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8208	8324	
==>x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8208	8324	
==>x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[ <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2002	2098	
==>on
consult a book, like Numerical Recipies.)  In particular, it suffers from
convergence problems <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	160	271	
==>die::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	233	344	
==>die::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1288	1387	
==>ith indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenati <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1288	1387	
==>ith indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7574	7792	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7574	7792	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7574	7792	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	836	975	
==>sage =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3401	3498	
==>3 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everything <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30920	31015	
==>tuple/Mapping or a tuple that is identical to the original, in which case
this method returns th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35470	35565	
==>tuple/Mapping or a tuple that is identical to the original, in which case
this method returns th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34661	34756	
==>tuple/Mapping or a tuple that is identical to the original, in which case
this method returns th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10835	11015	
==>>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10835	11015	
==>>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10835	11015	
==>>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_b <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11150	11254	
==>n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this is useful to see that the unnecessary parts of the prelude we <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3661	3778	
==>Main' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3661	3778	
==>Main' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18194	18311	
==>thod
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RU <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	511	628	
==>Main' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26208	26304	
==>Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation::Exa <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3279	3388	
==>ew(:node<Grammar>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<Package>).a <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	123	226	
==>lts;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $s <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	123	226	
==>lts;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18457	18555	
==>r users, we still get the best results by having a human being write out
that text themselves.

Wha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18457	18555	
==>r users, we still get the best results by having a human being write out
that text themselves.

Wha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5481	5608	
==>n' );

        last LINKING unless -d $my_bindir;

        ### load in the alternatives collection
        my @alts = @{ $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32110	32210	
==>match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each se <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32110	32210	
==>match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5827	5951	
==>mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expecte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1899	2000	
==>port_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1899	2000	
==>port_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1899	2000	
==>port_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2356	2485	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2356	2485	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2356	2485	
==>hod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_n <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4578	4673	
==>,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_bounds(Min,Max) --> digits_int(Min), !, p5_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1600	1722	
==>O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1600	1722	
==>O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2439	2552	
==>ues');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2439	2552	
==>ues');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5091	5254	
==>w ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e crea <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6853	7016	
==>w ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e crea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8615	8712	
==>ans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `ne <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8615	8712	
==>ans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `ne <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7795	7905	
==>CCLASS_WORD, target, pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2104	2196	
==>-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2104	2196	
==>-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2104	2196	
==>-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3016	3157	
==>}    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3200	3341	
==>}    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture al <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	832	959	
==>h! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir}) };

    if($@) {
        c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4850	4954	
==>ost_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = ev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4850	4954	
==>ost_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = ev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4850	4954	
==>ost_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = ev <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4685	4791	
==>xp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5253	5344	
==>require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5253	5344	
==>require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5253	5344	
==>require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->ini <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6781	6905	
==>:List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return th <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6781	6905	
==>:List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19596	19695	
==>horization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19596	19695	
==>horization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13539	13697	
==>bstr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3680	3822	
==>bstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3680	3822	
==>bstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3680	3822	
==>bstr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7431	7538	
==>skip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7431	7538	
==>skip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $messa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34964	35060	
==>ed.  If you want to
conceptually change an existing Translator object, you must create a new
obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34964	35060	
==>ed.  If you want to
conceptually change an existing Translator object, you must create a new
obje <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1986	2106	
==>perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2000	2170	
==>ir, $dirname );
# 
#         
#         ### copy over sources to a temp dir
#         JIB::Utils->_copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Coul <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2249	2351	
==>rom => $to],
				struct_equiv => Blondie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	524	618	
==>phers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	524	618	
==>phers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change cipher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14100	14250	
==>$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14100	14250	
==>$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14100	14250	
==>$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junction <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11941	12045	
==>uant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $min, $max, $data) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29213	29320	
==>n %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29213	29320	
==>n %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18851	18950	
==>ile it is obvious that people who would be writing the text
would have to know how to edit Perl file <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18851	18950	
==>ile it is obvious that people who would be writing the text
would have to know how to edit Perl file <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	366	479	
==>t {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $direc <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	366	479	
==>t {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $direc <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6453	6566	
==>ent = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $env) = @ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11205	11314	
==>_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11205	11314	
==>_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3588	3835	
==>f ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3588	3835	
==>f ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $fo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5673	5784	
==>$x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5673	5784	
==>$x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.s <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8785	8916	
==>self = shift;

    return $ENV{HARNESS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19227	19317	
==>:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19227	19317	
==>:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19227	19317	
==>:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7023	7160	
==>ice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned bef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7023	7160	
==>ice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned bef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7023	7160	
==>ice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned bef <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1152	1287	
==>_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_pa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9684	9815	
==>acter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14826	14929	
==>ers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14826	14929	
==>ers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14826	14929	
==>ers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	875	1008	
==>=> '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule(
        name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3194	3295	
==>un=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3194	3295	
==>un=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3194	3295	
==>un=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1215	1340	
==>2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1207	1308	
==>}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1207	1308	
==>}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1207	1308	
==>}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	229	343	
==>@_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	229	343	
==>@_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	229	343	
==>@_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13103	13209	
==>ume that if you're running under -T, you really mean to
	# run a fresh perl, so we'll brute force launder e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3361	3551	
==>{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3501	3691	
==>{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3156	3252	
==>ts, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3349	3445	
==>ts, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6424	6529	
==>" (within "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5075	5168	
==>>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5075	5168	
==>>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7272	7365	
==>>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messag <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1529	1625	
==>interface is good enough for many purposes.  
Although the interface is said to be procedural, it <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1529	1625	
==>interface is good enough for many purposes.  
Although the interface is said to be procedural, it <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13485	13579	
==>- set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13485	13579	
==>- set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12389	12503	
==>ions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier>
    | <Literal>
    | <ArrayLit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5849	5958	
==>ush @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5849	5958	
==>ush @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5849	5958	
==>ush @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1391	1485	
==>e_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1391	1485	
==>e_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1391	1485	
==>e_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_a <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2767	2860	
==>r November December>;
method month_name returns Str { @months[./month_0] }

our @months_abbr = <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2625	2748	
==>tart must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3661	3784	
==>tart must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2625	2748	
==>tart must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3661	3784	
==>tart must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9126	9218	
==>pty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4269	4361	
==>pty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9126	9218	
==>pty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4269	4361	
==>pty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	66	165	
==>ntain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	66	165	
==>ntain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::C <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2271	2366	
==>always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It' <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2271	2366	
==>always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	607	706	
==>bute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	607	706	
==>bute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	607	706	
==>bute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1497	1593	
==>ternate },
#		{ $^a.round_half_random },

		{ $^a.round_half_ceiling },
		{ $^a.round_toward_zero <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10374	10559	
==>Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	916	1085	
==>Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	916	1085	
==>Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5487	5590	
==>->add_op( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2565	2888	
==>ply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3321	3490	
==>h"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3321	3490	
==>h"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3321	3490	
==>h"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	132	241	
==>LV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	132	241	
==>LV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	132	241	
==>LV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($se <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1193	1298	
==>x)
    --test_dirs     Directories containing the tests (Default: take tests from ./tests.yaml)
    --help <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	612	708	
==>s "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|N <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	612	708	
==>s "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|N <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3704	3895	
==>_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 0;
            } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5115	5251	
==>4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5115	5251	
==>4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5115	5251	
==>4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39438	39533	
==>RIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5173	5268	
==>RIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39438	39533	
==>RIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5173	5268	
==>RIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2380	2515	
==>,
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2927	3062	
==>,
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3474	3609	
==>,
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self-> <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	254	356	
==>y $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16661	16784	
==>un all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16661	16784	
==>un all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	827	934	
==>t "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $po <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	827	934	
==>t "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11049	11154	
==>sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11049	11154	
==>sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11049	11154	
==>sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' ) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2607	2708	
==>{
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util::blessed($type);
	$ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2432	2574	
==>->add_rule( 
        name => '<',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15568	15690	
==>::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15568	15690	
==>::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15568	15690	
==>::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24577	24729	
==>'$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24577	24729	
==>'$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24577	24729	
==>'$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1813	1912	
==>ecedence - options: $options - match: $match\n" ;
  my %token = ( name => $name, options => $options <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9093	9270	
==>ASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5453	5630	
==>ASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6302	6479	
==>ASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$n <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	621	746	
==>b assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1835	1978	
==>((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool)
        ));
        $obj->index((d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	752	864	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	752	864	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	752	864	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9342	9435	
==>) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3167	3260	
==>) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6047	6154	
==>eturns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5177	5284	
==>eturns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6047	6154	
==>eturns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5177	5284	
==>eturns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	861	995	
==>ss $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	861	995	
==>ss $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6731	6828	
==>k>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normal <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6731	6828	
==>k>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normal <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4359	4474	
==>s::install_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      curre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6737	6839	
==>de; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6737	6839	
==>de; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6737	6839	
==>de; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	7	103	
==>bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	7	103	
==>bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	7	103	
==>bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this s <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16001	16112	
==>e reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $line, $reason) = @_;

    if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	507	615	
==>iles {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	507	615	
==>iles {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	507	615	
==>iles {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8176	8323	
==>=> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8176	8323	
==>=> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8176	8323	
==>=> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2991	3106	
==>l->new();
}

sub push : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3897	4039	
==>)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3897	4039	
==>)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4429	4563	
==>)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4429	4563	
==>)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5931	6042	
==>noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3532	3629	
==>self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3532	3629	
==>self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3532	3629	
==>self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5267	5395	
==>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6535	6663	
==>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5267	5395	
==>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6523	6651	
==>[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9893	10044	
==>turn ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      => <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	461	606	
==>turn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      => <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	461	606	
==>turn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      => <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9471	9580	
==>}


=item reverse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1218	1330	
==>),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1218	1330	
==>),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5685	5782	
==>2 Writing for the API

Although the API seems large, most of it is implemented within the C<Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5685	5782	
==>2 Writing for the API

Although the API seems large, most of it is implemented within the C<Cipher <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5021	5125	
==>" ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5021	5125	
==>" ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2175	2273	
==>n and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2175	2273	
==>n and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19845	19976	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19845	19976	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19845	19976	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8421	8515	
==>erived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9404	9535	
==>ecrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# Wha <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9404	9535	
==>ecrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# Wha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17765	17857	
==>untime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17765	17857	
==>untime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10001	10099	
==>nt the user tries to set the input, and input that
fails immediate evaluation will not be set at al <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10001	10099	
==>nt the user tries to set the input, and input that
fails immediate evaluation will not be set at al <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2782	2876	
==>ers);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $othe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2782	2876	
==>ers);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $othe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17177	17289	
==>, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13598	13710	
==>, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($ne <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3253	3352	
==>is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := de <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3311	3410	
==>is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11721	11827	
==>}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11721	11827	
==>}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11721	11827	
==>}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	271	375	
==>all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been chang <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2684	2784	
==>on (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Conte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2684	2784	
==>on (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Conte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2684	2784	
==>on (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Conte <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12937	13035	
==>ow
many tests there will be in C<< $strap->{max} >>, a list of which tests
are todo in C<< $strap-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18739	18857	
==>6analyze(pad)
    unless_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unless_null exp1, en <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1257	1364	
==>plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1257	1364	
==>plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1337	1444	
==>plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6484	6610	
==>{
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6484	6610	
==>{
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6484	6610	
==>{
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Nu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9990	10098	
==>aram_info,$args);
    }
    my $code_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$param <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4708	4804	
==>of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8185	8281	
==>of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7890	7978	
==>is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7890	7978	
==>is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10968	11090	
==>);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	684	778	
==>ions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	684	778	
==>ions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	684	778	
==>ions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	92	202	
==>"classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	96	206	
==>"classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	92	202	
==>"classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	96	206	
==>"classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14517	14688	
==>sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14517	14688	
==>sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14517	14688	
==>sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	261	357	
==>method delete (*@index ) returns List of Object;
multi method exists ($index ) returns Object;
mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	620	724	
==>ed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_str <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	620	724	
==>ed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_str <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	620	724	
==>ed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10926	11083	
==>sed      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1414	1557	
==>sed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1414	1557	
==>sed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1830	1927	
==>all_superclasses, $self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) retu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	413	533	
==>yedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	413	533	
==>yedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11017	11172	
==>);
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11017	11172	
==>);
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $que <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1	96	
==>odule LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1	96	
==>odule LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8957	9054	
==>s is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8957	9054	
==>s is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8957	9054	
==>s is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idx <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2088	2183	
==>o = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7845	7955	
==>d $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7845	7955	
==>d $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7845	7955	
==>d $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF') <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9697	9783	
==>(_) --> p5_charset_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charset_ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	256	362	
==>@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYN <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	256	362	
==>@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	681	779	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	681	779	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	926	1057	
==>);
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	926	1057	
==>);
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	926	1057	
==>);
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pus <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6194	6294	
==>al;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($node->struc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16862	16978	
==>sive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13016	13129	
==>:identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13016	13129	
==>:identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13016	13129	
==>:identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	479	575	
==>which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	479	575	
==>which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	479	575	
==>which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5071	5163	
==>hael.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5361	5464	
==>.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test des <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5361	5464	
==>.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7558	7661	
==>.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test des <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12044	12130	
==>(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	409	511	
==>= "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Go <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	409	511	
==>= "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Go <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	409	511	
==>= "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Go <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9098	9186	
==>_charset_items([Item1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(Mor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6877	6995	
==>BCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6877	6995	
==>BCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6877	6995	
==>BCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	373	468	
==>t($type_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blon <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	116	235	
==>element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newl <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	116	235	
==>element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newl <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	116	235	
==>element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newl <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	116	235	
==>element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3760	3894	
==>^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5077	5211	
==>^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3760	3894	
==>^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5065	5199	
==>^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	143	266	
==>r  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	143	266	
==>r  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	143	266	
==>r  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13241	13402	
==>^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10760	10892	
==>n->{op1}{stmt} eq 'if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emi <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5323	5419	
==>The C<write> method the file for the properties, and writes it
to disk.  Returns boolean value of <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5323	5419	
==>The C<write> method the file for the properties, and writes it
to disk.  Returns boolean value of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6471	6562	
==>utNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2J <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	844	935	
==>his distribution.
Please call the 'version' or 'version_from' function in Makefile.PL.
END
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6471	6562	
==>utNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6471	6562	
==>utNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2J <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	923	1051	
==>dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_alternatives );
}

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2185	2286	
==>Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2185	2286	
==>Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2185	2286	
==>Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	310	457	
==>supported\n" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YA <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16381	16487	
==>t's ready to parse the next file.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1202	1306	
==>::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTIO <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1202	1306	
==>::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTIO <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4688	4798	
==>://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESC <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4688	4798	
==>://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESC <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8655	8758	
==>x{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8643	8746	
==>x{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2059	2205	
==>cond
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3651	3793	
==>cond
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9210	9324	
==>lice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9210	9324	
==>lice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12076	12200	
==>, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12076	12200	
==>, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10554	10651	
==>Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10554	10651	
==>Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5634	5744	
==>.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5634	5744	
==>.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3857	3950	
==>is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5759	5852	
==>is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'C <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4048	4240	
==>le( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we shoul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9974	10090	
==>) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9974	10090	
==>) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disc <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1665	1777	
==>UILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::Fal <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1665	1777	
==>UILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::Fal <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14309	14411	
==>.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> character <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14309	14411	
==>.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> character <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14286	14510	
==>=> '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4222	4350	
==>= $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = map { $_ eq $ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	97	188	
==>--------------------------
## Mini Meta-Model with explicit EigenClasses
## ---------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	120	211	
==>---
## Mini Meta-Model with explicit EigenClasses
## --------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10669	10774	
==>,map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10669	10774	
==>,map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10669	10774	
==>,map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6: <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	468	566	
==>t

package Filtered::Comments;
use Filter::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
cod <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6449	6559	
==>(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6723	6833	
==>(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7095	7205	
==>(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7394	7504	
==>(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1636	1770	
==>->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1636	1770	
==>->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1636	1770	
==>->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4729	4848	
==>open 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.bla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8899	9110	
==>lf->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8899	9110	
==>lf->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8899	9110	
==>lf->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	667	770	
==>->new(0) }
sub to_str { 
    # eventually must deal with Inf and NaN
    return str->new((shift)->to_nat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3558	3676	
==>g
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation::Exa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2290	2383	
==>mented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2290	2383	
==>mented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2290	2383	
==>mented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1283	1386	
==>re_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3273	3375	
==>ethod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3273	3375	
==>ethod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3273	3375	
==>ethod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes') <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	371	626	
==>tr $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	371	626	
==>tr $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3216	3317	
==>rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3204	3305	
==>rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4286	4405	
==>sh @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2251	2368	
==>m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4155	4272	
==>sh @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2251	2368	
==>m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1703	1982	
==>vel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2572	2677	
==>// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2572	2677	
==>// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2572	2677	
==>// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	839	933	
==>ed the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	839	933	
==>ed the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	839	933	
==>ed the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_f <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4082	4203	
==>b match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4082	4203	
==>b match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15738	15835	
==>ta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=bac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15738	15835	
==>ta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28149	28249	
==>methods:

=over 4

=item my $d = $obj->data()

The object's data.  This might be an array reference ( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5731	5847	
==>r (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $d <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5789	5905	
==>r (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $d <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	133	234	
==>ode  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@d <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	133	234	
==>ode  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24993	25117	
==>egexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3601	3696	
==>subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3601	3696	
==>subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3601	3696	
==>subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5821	5925	
==>ded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5821	5925	
==>ded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5821	5925	
==>ded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Ba <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	95	196	
==>5 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") {
    sy <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	50	152	
==>has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" prop <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	50	152	
==>has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" prop <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12178	12272	
==>er value if the parameter is a member of the recurrence.
Otherwise, returns the previous elemen <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12178	12272	
==>er value if the parameter is a member of the recurrence.
Otherwise, returns the previous elemen <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8052	8176	
==>t ( %app<"pInv"> );
        $ret = emit_App( $function, @args, $context, $invocant );
    }
    else {
        dbg "# -- unkn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4354	4471	
==><EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4354	4471	
==><EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4354	4471	
==><EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6631	6747	
==>= split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6631	6747	
==>= split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7001	7111	
==>= split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7001	7111	
==>= split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2678	2808	
==>p->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6547	6636	
==>F, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6547	6636	
==>F, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6547	6636	
==>F, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36073	36264	
==>et('$label'), 
                      $e->get('$attribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2832	2932	
==>METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<ME <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2832	2932	
==>METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<ME <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27001	27095	
==>tory, harness will check after each
test whether new files appeared in that directory, and repo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	76	182	
==>protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	76	182	
==>protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13506	13602	
==>ns that side effects, such as "say" and
database queries, may occur much later than expected.

It <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13506	13602	
==>ns that side effects, such as "say" and
database queries, may occur much later than expected.

It <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	530	647	
==>ub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $class;
}
sub FETCH {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	753	857	
==>values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	753	857	
==>values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	753	857	
==>values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 20 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2109	2211	
==>ound this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2109	2211	
==>ound this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2109	2211	
==>ound this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	936	1038	
==>sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" . <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2880	2996	
==>$vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2880	2996	
==>$vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	544	777	
==>' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	544	777	
==>' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9236	9329	
==>The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects fr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9236	9329	
==>The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	476	579	
==>_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	476	579	
==>_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	476	579	
==>_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _ma <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4260	4433	
==>ember Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_as <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4260	4433	
==>ember Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_as <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8787	8908	
==>erse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8787	8908	
==>erse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24923	25017	
==>count of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29475	29569	
==>count of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19942	20031	
==>form to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19942	20031	
==>form to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30646	30745	
==>ecessor 'c', so that means it is
pre-consumptive, which is why it must match the right parenthesis
i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3710	3808	
==>= any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7187	7285	
==>= any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6144	6242	
==>= any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4001	4118	
==>ef($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4001	4118	
==>ef($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort <==
4	/Users/nnunley/pugs/util/fixauthors.pl	189	296	
==>a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $x=$_; $x=~tr/A-Za-z//cd; [$_, $x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29037	29134	
==>hat are enabled at the time.

=item $obj->insert()

Inserts this object into the tree.  It returns <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1454	1582	
==>base 'Unit';

    package Sym;
    use base 'Unit';

    package Param;
    use base 'Unit';

    package App;
    use base 'Node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1981	2079	
==>r \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1981	2079	
==>r \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1981	2079	
==>r \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10251	10348	
==>lass(class_neg(digit))         --> "\\D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", ! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20006	20100	
==>ngs, or a multi-dimensional object Hash,
or various combinations of other data types.

While th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24558	24652	
==>ngs, or a multi-dimensional object Hash,
or various combinations of other data types.

While th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23110	23204	
==>ngs, or a multi-dimensional object Hash,
or various combinations of other data types.

While th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2559	2671	
==>s $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2559	2671	
==>s $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2559	2671	
==>s $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) { <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3463	3569	
==>\)]+),?([^\)]*)\);/\@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4632	4741	
==>lass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4632	4741	
==>lass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4632	4741	
==>lass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	902	1011	
==>t}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14728	14839	
==>lize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14728	14839	
==>lize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14728	14839	
==>lize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1720	1862	
==>TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1708	1850	
==>TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9856	9968	
==>x_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.w <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9856	9968	
==>x_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.w <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18713	18874	
==>conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),1.0*$arg);
            } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1354	1461	
==>ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1354	1461	
==>ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1563	1670	
==>ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	682	794	
==>ush    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	682	794	
==>ush    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	682	794	
==>ush    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12404	12511	
==>ass => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	770	875	
==>gA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	770	875	
==>gA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9067	9163	
==>ut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9067	9163	
==>ut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19079	19175	
==>ve
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19079	19175	
==>ve
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28562	28654	
==>mplate Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28562	28654	
==>mplate Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5051	5143	
==>item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5051	5143	
==>item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7248	7340	
==>item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28790	28888	
==>e identity of the invocant.

=item C<not_equal (Relation::Example $other!) returns Bool>

This meth <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5080	5172	
==>passed or failed, depending on the value of C<$passed>,
recording C<$description> as an optio <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5080	5172	
==>passed or failed, depending on the value of C<$passed>,
recording C<$description> as an optio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6604	6696	
==>passed or failed, depending on the value of C<$passed>,
recording C<$description> as an optio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6190	6292	
==>l to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6190	6292	
==>l to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6190	6292	
==>l to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3875	3971	
==>that your perl was compiled without PMC support.

  Can't locate object method "compile" via pack <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	662	760	
==>ace
sub to_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? str- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17423	17518	
==>('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17423	17518	
==>('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17423	17518	
==>('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_meth <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5529	5642	
==>s->{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{details}[$result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1762	1865	
==>", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1762	1865	
==>", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1762	1865	
==>", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7383	7516	
==>, 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7383	7516	
==>, 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35605	35703	
==>ly: open

Types: open1, open2 ... openN (C<(>)

Data: array reference of any number of objects

End <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8352	8468	
==>p::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o->data);
    my $len = le <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23725	23828	
==>lag;
       try { '.$body.' }
       catch Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl with { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1829	1919	
==>$<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3205	3295	
==>$<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14415	14616	
==>" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14694	14895	
==>" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1417	1541	
==>next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1417	1541	
==>next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $spa <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1575	1771	
==>p(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10882	11042	
==>>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10882	11042	
==>>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10882	11042	
==>>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22328	22446	
==>0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22328	22446	
==>0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22328	22446	
==>0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa ) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17589	17688	
==>xpressionNoIn :words {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | <BitwiseORExpressionNoIn> <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2894	3001	
==>.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GN <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3051	3158	
==>.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GN <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2894	3001	
==>.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GN <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3051	3158	
==>.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4524	4695	
==>$match->to ),
                named => { $label => $match },
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4860	4955	
==>st::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Wheth <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4860	4955	
==>st::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Wheth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7057	7152	
==>st::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Wheth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4975	5082	
==>6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4975	5082	
==>6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4975	5082	
==>6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my <==
4	/Users/nnunley/pugs/util/package-osx.pl	7172	7269	
==>ocal/man/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man <==
4	/Users/nnunley/pugs/util/munge_haddock.pl	80	181	
==>ned during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	519	636	
==>s compatibility for exportable variable names.
*verbose  = *Verbose;
*switches = *Switches;
*debug    = *Debug;

$ENV{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13845	13939	
==>I SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13845	13939	
==>I SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13845	13939	
==>I SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2637	2761	
==>umber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2637	2761	
==>umber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2637	2761	
==>umber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13500	13622	
==>erl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13500	13622	
==>erl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13500	13622	
==>erl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $k <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10817	10938	
==>kage Regexp::Parser::group;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    return $f;
  }
}
{
  # ( c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6040	6135	
==>y $pkg_rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${pkg_root}::Node";
	$pkg_type = "" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4508	4595	
==>]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4508	4595	
==>]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4508	4595	
==>]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2057	2177	
==>rgs{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2011	2107	
==>aModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2011	2107	
==>aModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2011	2107	
==>aModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22512	22610	
==>ion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21366	21464	
==>ion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22512	22610	
==>ion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21366	21464	
==>ion to the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	769	900	
==>> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	769	900	
==>> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	769	900	
==>> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2321	2442	
==>le;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8780	8935	
==>t("&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = shift; 
                $e->get("$current")
                  ->send("ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8656	8803	
==>>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8656	8803	
==>>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8656	8803	
==>>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17670	17782	
==>:Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub compute {
    my $class = shift;
    my $thu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4867	4977	
==>if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4867	4977	
==>if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35999	36092	
==>his object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35999	36092	
==>his object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9632	9777	
==>_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     ins <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5973	6118	
==>_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     ins <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6822	6967	
==>_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     ins <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	351	460	
==>65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14080	14229	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14359	14508	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12904	13011	
==>"", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->vis <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27043	27150	
==>"", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->vis <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5643	5813	
==>= $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5643	5813	
==>= $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2303	2413	
==>ULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $mo <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2303	2413	
==>ULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $mo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12689	12819	
==>f database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Lo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12689	12819	
==>f database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11263	11372	
==>my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11263	11372	
==>my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11263	11372	
==>my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	435	541	
==>ol {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unle <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	435	541	
==>ol {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unle <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3804	3893	
==>e
our &Tree::insert_child ::= &Tree::insert_children;

## -------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3804	3893	
==>e
our &Tree::insert_child ::= &Tree::insert_children;

## -------------------------------- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	149	250	
==>ass::dir(cwd());

use constant SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	909	1003	
==>@:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	909	1003	
==>@:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	909	1003	
==>@:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12891	12983	
==>if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9667	9759	
==>if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12891	12983	
==>if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9667	9759	
==>if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	640	754	
==>b usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	640	754	
==>b usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	640	754	
==>b usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose, <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1075	1166	
==>EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9014	9133	
==>n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9014	9133	
==>n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9014	9133	
==>n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6357	6568	
==>tialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6357	6568	
==>tialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16053	16147	
==>o> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16053	16147	
==>o> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Ros <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	548	750	
==>es;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	548	750	
==>es;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	548	750	
==>es;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8423	8522	
==>o intercept the building of the tree, you can use the
parse() method to explicitly build it:

  $par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4856	4982	
==>ata([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15892	16018	
==>ata([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17380	17506	
==>ata([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22063	22189	
==>ata([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24550	24646	
==>e 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29102	29198	
==>e 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27978	28074	
==>e 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Re <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1819	1902	
==>::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude','Dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1349	1461	
==>no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1349	1461	
==>no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1349	1461	
==>no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subnam <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10858	10972	
==>tly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	43	144	
==>05-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	43	144	
==>05-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	43	144	
==>05-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005- <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8239	8338	
==>ent is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event cl <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8239	8338	
==>ent is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event cl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12599	12694	
==>al was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12657	12752	
==>al was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$t <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	998	1202	
==>';
                    push $a, parse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7458	7564	
==>erse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7458	7564	
==>erse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7458	7564	
==>erse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $de <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	658	767	
==>ION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub ge <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	658	767	
==>ION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub ge <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1573	1691	
==>:MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtU <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3974	4091	
==>) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preambl <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2927	3041	
==>) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preambl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1484	1584	
==>:MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtU <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7272	7386	
==>turn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3876	3990	
==>turn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4725	4839	
==>turn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '" <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2690	2821	
==>ons = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq{(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38415	38541	
==>turn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38415	38541	
==>turn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38415	38541	
==>turn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1000	1095	
==>value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1000	1095	
==>value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1000	1095	
==>value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3871	3965	
==>$sym->fmap(sub { Blondie::TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5196	5305	
==>= Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6464	6573	
==>= Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5196	5305	
==>= Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6452	6561	
==>= Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2183	2278	
==>Args}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2183	2278	
==>Args}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2183	2278	
==>Args}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14916	15010	
==>t your current lexical context has
declared the "working unicode level to be". Default is LChar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1428	1566	
==>/^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1371	1502	
==>/^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4058	4163	
==>!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4058	4163	
==>!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17734	17840	
==>rap->{callback} = \&strap_callback;
sub strap_callback {
    my($self, $line, $type, $totals) = @_;
    pri <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	157	262	
==>uire '_inc.pl';
    protoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a-> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14676	14777	
==>does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14676	14777	
==>does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a spa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3054	3176	
==>x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	537	649	
==>=~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	537	649	
==>=~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	537	649	
==>=~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8146	8249	
==>emplate_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whethe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8146	8249	
==>emplate_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whethe <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9566	9666	
==>(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9566	9666	
==>(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	428	545	
==>@ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	634	751	
==>@ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	935	1031	
==>ompiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	935	1031	
==>ompiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .cod <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8166	8260	
==>i sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7296	7390	
==>i sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8166	8260	
==>i sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7296	7390	
==>i sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2952	3074	
==>.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object represe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2952	3074	
==>.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object represe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14785	14896	
==>/:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14785	14896	
==>/:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	207	302	
==>YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1518	1663	
==>opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1518	1663	
==>opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1518	1663	
==>opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	705	825	
==>:Repository object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1000	1105	
==>fy($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1000	1105	
==>fy($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6124	6224	
==>);

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6124	6224	
==>);

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2992	3101	
==>" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2992	3101	
==>" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2992	3101	
==>" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	665	765	
==>f->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # profiling actually slows thi <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6450	6555	
==>s_num (@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@arr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9731	9834	
==>other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13208	13311	
==>other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12480	12583	
==>other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1952	2100	
==>> '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2157	2305	
==>> '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2220	2368	
==>> '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13617	13712	
==>, and the
names are returned in the recommended "Good Practice" order.

In scalar context return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13617	13712	
==>, and the
names are returned in the recommended "Good Practice" order.

In scalar context return <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	856	949	
==>y will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	856	949	
==>y will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13696	13794	
==>) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13696	13794	
==>) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13696	13794	
==>) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1264	1363	
==>lt
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1264	1363	
==>lt
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1264	1363	
==>lt
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	57	153	
==>ict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15764	15900	
==>my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15764	15900	
==>my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15764	15900	
==>my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	423	522	
==>ass;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift)->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1799	1926	
==>$verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n", <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2040	2167	
==>$verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1799	1926	
==>$verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1799	1926	
==>$verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11556	11772	
==>ams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11556	11772	
==>ams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11556	11772	
==>ams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        r <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	719	828	
==>onfig{installsitescript} || $Config{installscript},
        installbin     => $Config{installbin},
        ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2337	2433	
==>$::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2337	2433	
==>$::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2337	2433	
==>$::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Obj <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	775	1013	
==>" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	776	1014	
==>" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8111	8216	
==>"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8169	8274	
==>"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_te <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6512	6608	
==>'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6512	6608	
==>'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4944	5059	
==>tantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4944	5059	
==>tantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4944	5059	
==>tantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $r <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	257	381	
==>e value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.i <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	257	381	
==>e value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2095	2194	
==>sc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2153	2252	
==>sc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, : <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	694	786	
==>ndles :add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6298	6535	
==>$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKMETH" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3050	3144	
==>label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3050	3144	
==>label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3050	3144	
==>label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10955	11075	
==>);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BIND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10955	11075	
==>);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BIND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10955	11075	
==>);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BIND <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4627	4727	
==>->get_y, 6, '... got the right y for p3d');
is($p3d->get_z, 7, '... got the right z for p3d');

cmp_o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20349	20446	
==>a type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24901	24998	
==>a type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8700	8832	
==>ext =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8700	8832	
==>ext =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	266	391	
==>sit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $sel <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	266	391	
==>sit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9248	9393	
==>fted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9248	9393	
==>fted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9248	9393	
==>fted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ite <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	450	550	
==>s

=head1 VERSION

Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility for exportable v <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	606	734	
==>r eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	606	734	
==>r eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1634	1726	
==>file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1634	1726	
==>file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3005	3146	
==>$cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3005	3146	
==>$cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3005	3146	
==>$cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0 <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	499	612	
==>erbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1141	1240	
==>OE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please override &dispatch in your su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8406	8564	
==>ef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8406	8564	
==>ef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPO <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11262	11380	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11262	11380	
==>_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1927	2020	
==>ell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1927	2020	
==>ell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1927	2020	
==>ell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5664	5764	
==>fined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5664	5764	
==>fined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5664	5764	
==>fined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4067	4165	
==>"... " if $Config{verbose};
}

# Strip comments and docs while preserving the line counts
sub strip <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2101	2213	
==>name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0];
    $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4113	4349	
==>e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2004	2106	
==>encee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2004	2106	
==>encee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2004	2106	
==>encee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14013	14151	
==>egory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10186	10324	
==>egory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11022	11160	
==>egory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	40	150	
==>a;

use Module::Install::Base;
@ISA = qw{Module::Install::Base};

$VERSION = '0.61';

use strict 'vars';

my @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8967	9100	
==>lue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8967	9100	
==>lue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8967	9100	
==>lue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11866	11960	
==>hem with something other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve eithe <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	163	295	
==>er',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) retur <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	163	295	
==>er',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) retur <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	163	295	
==>er',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) retur <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	163	295	
==>er',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13623	13769	
==>$list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13623	13769	
==>$list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13623	13769	
==>$list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6581	6679	
==>p{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PG <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10942	11071	
==>urn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    su <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10942	11071	
==>urn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9187	9295	
==>TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_fr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9187	9295	
==>TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_fr <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1798	1957	
==>( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2210	2369	
==>( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1798	1957	
==>( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2210	2369	
==>( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_ope <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	554	674	
==>ese as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	554	674	
==>ese as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3809	3918	
==>do, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3867	3976	
==>do, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	802	929	
==>upported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	802	929	
==>upported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	802	929	
==>upported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5742	5826	
==>/implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syck/token.o src/s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12307	12417	
==>val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6874	6984	
==>val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12307	12417	
==>val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6874	6984	
==>val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10099	10276	
==>1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2152	2309	
==>1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2152	2309	
==>1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1901	2006	
==>= shift;
	my $node = shift;
    Blondie::Backend::C::Builtins->find($node->digest || return);
}

sub cast_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4836	4948	
==>o packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4836	4948	
==>o packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13194	13291	
==>t2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13194	13291	
==>t2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2307	2471	
==>appen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2307	2471	
==>appen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path fi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5301	5414	
==>hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5301	5414	
==>hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	365	473	
==>eaders
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	365	473	
==>eaders
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-C <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1212	1309	
==>g WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1212	1309	
==>g WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	558	663	
==>name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	558	663	
==>name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	558	663	
==>name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2315	2438	
==>$h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2315	2438	
==>$h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2315	2438	
==>$h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15445	15546	
==>handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub p6_as_perl5_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3844	3960	
==>be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12544	12645	
==>ed to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12544	12645	
==>ed to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12544	12645	
==>ed to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2958	3055	
==>}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2958	3055	
==>}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2958	3055	
==>}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2658	2780	
==>s::srand($seed);
 }


 multi  Num::sqrt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2724	2830	
==>e file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2724	2830	
==>e file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2724	2830	
==>e file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = ( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1043	1140	
==>rep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an arra <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1043	1140	
==>rep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an arra <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2043	2148	
==>pair") || level($$) }
#'EOG

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = $dag->splat(\@free <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2341	2444	
==>o be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; pa <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2341	2444	
==>o be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; pa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2443	2546	
==>ubstr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  ret <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27062	27214	
==>),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'))->push($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20127	20272	
==>e
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20127	20272	
==>e
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20127	20272	
==>e
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	456	578	
==>kenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	456	578	
==>kenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	456	578	
==>kenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->to <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3906	4015	
==>my $key (@scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4117	4219	
==>ent-Type: text/html\n\n";
  #$tmpl->output(print_to => *STDOUT);

  my $category = sub {
    return spr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21034	21130	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21034	21130	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21034	21130	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($x <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38115	38205	
==>olate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but poss <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38115	38205	
==>olate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but poss <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2809	2949	
==>};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2809	2949	
==>};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9426	9518	
==>C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9426	9518	
==>C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5983	6101	
==>(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5983	6101	
==>(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3060	3163	
==>data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$cons <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3060	3163	
==>data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	767	879	
==>self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return { op => "ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19455	19547	
==>TI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19455	19547	
==>TI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19455	19547	
==>TI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1355	1480	
==>e => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1355	1480	
==>e => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2396	2507	
==>,4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2396	2507	
==>,4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7509	7658	
==>f, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7509	7658	
==>f, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	824	937	
==>as Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhos <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	824	937	
==>as Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5317	5415	
==>een giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5317	5415	
==>een giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5317	5415	
==>een giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub J <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23150	23243	
==>ors to them.  The Relation
library provides full generic implementations of all other necessar <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6539	6656	
==>d next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    retur <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6539	6656	
==>d next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5619	5735	
==>eturn {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!ch <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5619	5735	
==>eturn {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10391	10521	
==>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });


  ### '+'

  $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2493	2597	
==>'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2493	2597	
==>'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2493	2597	
==>'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2841	2958	
==>STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2841	2958	
==>STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2841	2958	
==>STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1985	2100	
==>ift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scalar_store($value <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2728	2830	
==>$_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributor <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2728	2830	
==>$_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	90	191	
==>s keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1414	1515	
==>L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	90	191	
==>s keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	90	191	
==>s keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1103	1220	
==>ue_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1103	1220	
==>ue_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1103	1220	
==>ue_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28952	29049	
==>value for this object.  This value is a number created by OR'ing
together the flags that are enabl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	203	334	
==>.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	203	334	
==>.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) { <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4847	4968	
==>/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_en <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4847	4968	
==>/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_en <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1205	1327	
==>me) or
            die "copy: $!";
        print <<".";
*** Default build config file created.
    You can edit some settin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	287	391	
==>ot compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	287	391	
==>ot compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	287	391	
==>ot compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportL <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4327	4462	
==>art ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4327	4462	
==>art ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6423	6545	
==>$p = Pugs::Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13555	13646	
==>git(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14540	14699	
==>iles != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delete @f{@dir_files};
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1668	1774	
==>8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1668	1774	
==>8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1668	1774	
==>8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7332	7435	
==>1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7332	7435	
==>1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1248	1348	
==>ply a hash from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1193	1290	
==>ply a hash from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3702	3800	
==>), and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with y <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3702	3800	
==>), and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with y <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32864	32958	
==>n the
C<translate_message()> method, but it has no other side effects.

A Translator object has <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32864	32958	
==>n the
C<translate_message()> method, but it has no other side effects.

A Translator object has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5652	5847	
==>nally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5652	5847	
==>nally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	448	543	
==>and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar co <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	448	543	
==>and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2805	2950	
==>);       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2805	2950	
==>);       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2805	2950	
==>);       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11246	11359	
==>line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7353	7457	
==>ring target, value
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, tar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2379	2480	
==>trict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2379	2480	
==>trict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2379	2480	
==>trict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8567	8671	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8567	8671	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8567	8671	
==>') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1642	1731	
==>tribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1642	1731	
==>tribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1642	1731	
==>tribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_o <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3617	3703	
==>catenation_more(W, Z) --> p6_quantified(X), p6_concatenation_more(conc(W,X), Z), !.
p6_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7219	7321	
==>on 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6974	7071	
==>on 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	829	1069	
==>e->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fontcolor = grey60, "
                            :
                            "color = gre <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4387	4597	
==>get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1509	1609	
==>callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1509	1609	
==>callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1509	1609	
==>callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15774	15896	
==>($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15774	15896	
==>($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15774	15896	
==>($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23405	23520	
==>" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5981	6113	
==>/\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5981	6113	
==>/\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5981	6113	
==>/\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5059	5157	
==>ice (num, num) returns list>

=item B<length () returns num>

=item B<elem () returns num>

=item B <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3535	3812	
==>),
                            Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3689	3802	
==>= substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3689	3802	
==>= substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3689	3802	
==>= substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ : <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1125	1302	
==>) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!par <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1125	1302	
==>) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1711	1822	
==>ch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1771	1882	
==>ch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1074	1200	
==>y => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp 'name'         \n" . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6813	6914	
==>out: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6813	6914	
==>out: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6813	6914	
==>out: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2237	2335	
==>Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2237	2335	
==>Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2237	2335	
==>Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$map <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40948	41047	
==>ily useful when you need to
throw a warning that can only be figured out the second pass.

=item $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2361	2458	
==>TCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2361	2458	
==>TCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2361	2458	
==>TCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9657	9770	
==>acter>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9387	9480	
==>($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9387	9480	
==>($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9387	9480	
==>($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2146	2247	
==>match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2134	2235	
==>match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Ma <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2513	2611	
==>IONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::S <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2513	2611	
==>IONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	547	679	
==>e { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	547	679	
==>e { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# im <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	9	104	
==>rldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 N <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	9	104	
==>rldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 N <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1679	1784	
==>_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1679	1784	
==>_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1679	1784	
==>_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1498	1597	
==>hift;
	unless ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config, skip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19328	19430	
==>REBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scan <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19328	19430	
==>REBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5682	5777	
==>arate "processes" from actual module documentation?



=head2 Grammar engine



* Pugs::Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5485	5576	
==>arate "processes" from actual module documentation?

=head2 Grammar engine

* Pugs::Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29815	29909	
==>bj->qr()

The regex representation of this object.  It includes the regex
representation of any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14712	14849	
==>ny++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14712	14849	
==>ny++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14712	14849	
==>ny++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3404	3498	
==>Table()->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($matchObj, my $target, m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	729	840	
==>:get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not ins <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	729	840	
==>:get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not ins <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16576	16676	
==>, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from ze <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16576	16676	
==>, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from ze <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31376	31475	
==>directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A li <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31376	31475	
==>directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A li <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16917	17011	
==>Rosetta D (as
either named modules or anonymous routines) and write the rest of the
application <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16917	17011	
==>Rosetta D (as
either named modules or anonymous routines) and write the rest of the
application <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4985	5133	
==>atchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4985	5133	
==>atchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4985	5133	
==>atchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - sh <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1138	1234	
==>ion to pil, how regexp modification macros work, etc.
  Working with a p5 accessible runtime (pil <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	251	351	
==>extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 's <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	251	351	
==>extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 's <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16173	16269	
==>ll
not spend much time in providing rationales; you can read TTM itself and
various other externa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16173	16269	
==>ll
not spend much time in providing rationales; you can read TTM itself and
various other externa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11510	11642	
==>str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11504	11636	
==>str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19037	19123	
==>bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19037	19123	
==>bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1356	1476	
==>",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $p6->{perl5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6292	6379	
==>---------------------------------------------------------
## Module

$::Module = $::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6292	6379	
==>---------------------------------------------------------
## Module

$::Module = $::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6292	6379	
==>---------------------------------------------------------
## Module

$::Module = $::Clas <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2679	2784	
==>$cwd = JIB::Utils->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3589	3685	
==>et implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3589	3685	
==>et implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3589	3685	
==>et implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override * <==
4	/Users/nnunley/pugs/util/package-osx.pl	129	237	
==>rot] target_base_dir
        Run after make install'ing pugs and parrot under /usr/local

    exit;
}

my ($b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	946	1045	
==>b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	946	1045	
==>b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	946	1045	
==>b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22171	22295	
==>S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .return ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	57	171	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	57	171	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	57	171	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	152	250	
==>e::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	152	250	
==>e::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($mat <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2142	2237	
==>to execution of arbitrary code;
each alternate engine may introduce additional security or memor <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14839	14920	
==>re_reverse(R,R).

%--------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9778	9918	
==>hift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	499	602	
==>(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3050	3145	
==>lable.

=back

In addition, the following request headers are set on the HTTP::Headers object,
i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3050	3145	
==>lable.

=back

In addition, the following request headers are set on the HTTP::Headers object,
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7386	7538	
==>=> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7386	7538	
==>=> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7386	7538	
==>=> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name' <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2188	2291	
==>ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5316	5437	
==>uld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5316	5437	
==>uld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5316	5437	
==>uld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14848	14951	
==>eneric_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7849	8016	
==>ub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7849	8016	
==>ub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7849	8016	
==>ub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7632	7729	
==>oin $delimiter, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	243	346	
==>passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/regex/) ~~ any(@a, 'c', 'd') # cool, nic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6210	6301	
==>ernals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6210	6301	
==>ernals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6210	6301	
==>ernals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	782	884	
==>b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	782	884	
==>b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	782	884	
==>b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	116	364	
==>eyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	116	364	
==>eyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	497	620	
==>ail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($se <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	497	620	
==>ail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4848	4979	
==>Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4848	4979	
==>Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18219	18322	
==>o 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18219	18322	
==>o 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5607	5732	
==>{
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3282	3407	
==>f->can('file') ) {
            error("No file associated with this object -- " .
                  "can not extract meta objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5607	5732	
==>{
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5607	5732	
==>{
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2207	2306	
==>ist = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node::rule_decl { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6319	6414	
==>object might be
holding. Using the noio example above, the "return" can be changed to
"return '_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6319	6414	
==>object might be
holding. Using the noio example above, the "return" can be changed to
"return '_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6319	6414	
==>object might be
holding. Using the noio example above, the "return" can be changed to
"return '_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6037	6135	
==>ject>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6037	6135	
==>ject>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2504	2616	
==>ntent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str whe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2504	2616	
==>ntent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str whe <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	617	714	
==>line::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script o <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	617	714	
==>line::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	621	746	
==>g ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	621	746	
==>g ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { s <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1539	1633	
==>nfix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also t <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1539	1633	
==>nfix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	120	245	
==>be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	124	249	
==>be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	120	245	
==>be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	124	249	
==>be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<conn <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5930	6027	
==>.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1126	1223	
==>.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5930	6027	
==>.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1126	1223	
==>.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7190	7332	
==>d_p6.{$k} {
                warning "Modifier :$k is not yet supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4815	4916	
==>$js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4815	4916	
==>$js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4815	4916	
==>$js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8413	8551	
==>_qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) {
    # Force a hash recompute i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15508	15619	
==>b end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15508	15619	
==>b end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15508	15619	
==>b end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17295	17404	
==>LL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17295	17404	
==>LL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17295	17404	
==>LL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	653	748	
==>known switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	947	1070	
==>, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	947	1070	
==>, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::', <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3478	3579	
==>span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0 <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3478	3579	
==>span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6518	6636	
==>A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating directory indices
for (@dirs) {
    build_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	308	406	
==>less(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	308	406	
==>less(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	308	406	
==>less(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16010	16147	
==>}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16010	16147	
==>}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16010	16147	
==>}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $cod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29333	29426	
==>ames.
This method will fail if any C<$mapping> keys do not match invocant
Relation::Example at <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2446	2559	
==>ages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new repository on the file <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7461	7562	
==>i Array::keys   (@array ; MatchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTe <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2447	2544	
==>t of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=h <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2447	2544	
==>t of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15582	15764	
==>returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->create('$attrs' => hash->new());
                $e->create('&di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17161	17252	
==>SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17161	17252	
==>SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17161	17252	
==>SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7678	7884	
==>h( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7678	7884	
==>h( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7678	7884	
==>h( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3725	3841	
==>gument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref($next) eq "C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11844	11963	
==>git
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11838	11957	
==>git
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	754	864	
==>h" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	754	864	
==>h" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8011	8113	
==>rn $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8011	8113	
==>rn $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8011	8113	
==>rn $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	454	555	
==>arg list must at least include the invocant";
    my $inv = $args->fetch(num->new(0));
    (blessed($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1487	1591	
==>26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1487	1591	
==>26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1487	1591	
==>26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8937	9031	
==>lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 Operators: L<http://de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1098	1202	
==>ix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1098	1202	
==>ix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1098	1202	
==>ix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21979	22072	
==>uantifiers of the form C<{n}> were being misrepresented as C<{n,}>.
It's been corrected.  (Mik <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1770	1884	
==>sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return $config;
}

sub add_path {
    my ($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16356	16457	
==>new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::Token <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16356	16457	
==>new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::Token <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1600	1707	
==>\my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1600	1707	
==>\my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1600	1707	
==>\my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pug <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11718	11816	
==>n of the two methods above, for when one wishs to take
advantage of the internal caching of keys th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19105	19281	
==>rays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19105	19281	
==>rays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19105	19281	
==>rays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVER <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3733	3852	
==>ame: $file" unless $module;

        strip_comments($program);
        print $ofh $program;

        print STDERR ", $mo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	712	871	
==>($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	712	871	
==>($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1180	1285	
==>.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1180	1285	
==>.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1677	1782	
==>nt_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1677	1782	
==>nt_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1677	1782	
==>nt_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11453	11556	
==>turn/;
    return "#return-block#" . $code;
}
sub node::runtime_alternation {
    my $code = match::str( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	63	323	
==>n this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	63	323	
==>n this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	63	323	
==>n this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	63	323	
==>n this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my St <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8398	8555	
==>dy', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8398	8555	
==>dy', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	776	894	
==>$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	743	861	
==>$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11073	11221	
==>afe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    e <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11073	11221	
==>afe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3109	3222	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3109	3222	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_ <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	762	891	
==>);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - performs one dimensional Newto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13190	13296	
==>e = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13190	13296	
==>e = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13190	13296	
==>e = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1035	1153	
==>ternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest match for token <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1387	1503	
==>ternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for token <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	994	1110	
==>ternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for token <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1387	1503	
==>ternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest match for token <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5049	5166	
==>array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everyt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5049	5166	
==>array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everyt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5049	5166	
==>array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everyt <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1096	1193	
==>atch) = @_;
  #print "name: $name - rp: $relativePrecedence - options: $options - match: $match\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6415	6630	
==>lus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6415	6630	
==>lus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6415	6630	
==>lus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	21	131	
==>ings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers {
    map {
        my $c = P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3086	3218	
==>lass
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4786	4913	
==>lass
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3814	3937	
==>lass
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11586	11696	
==>cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug mes <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7229	7337	
==>mk_eater_for_re('\S') if $re eq '\S';
    die "Regexp compilation bug";
  }
}
{
  # \d \D
  package Regexp::P <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8551	8655	
==>d that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where thi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8551	8655	
==>d that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2919	3020	
==>$S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	950	1051	
==>$S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	201	362	
==>0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	201	362	
==>0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $. <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	964	1064	
==>sh;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::D <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	964	1064	
==>sh;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::D <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15808	15903	
==>tails than joe public would.

Alternately, sometimes a program will raise a condition or error t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15808	15903	
==>tails than joe public would.

Alternately, sometimes a program will raise a condition or error t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4701	4796	
==>$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4923	5018	
==>$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2625	2734	
==>subrole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = solid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3561	3666	
==>{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3561	3666	
==>{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3561	3666	
==>{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2795	2976	
==>( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2795	2976	
==>( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2795	2976	
==>( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    ret <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8312	8449	
==>ds.delete("s"); # avoid haskell handling it.
            %mods.delete("sigspace");
        }
        if $pre ne "" {
            $pre ~= " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1671	1791	
==>t(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5148	5268	
==>t(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4078	4198	
==>t(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5092	5202	
==>ursively

Returns true on success, false on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11342	11483	
==>_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if ( $n->{op1}{op} eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2254	2381	
==>ction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2254	2381	
==>ction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2254	2381	
==>ction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8392	8544	
==>SS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8392	8544	
==>SS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8392	8544	
==>SS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is curr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	221	341	
==>str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	391	525	
==>)) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	391	525	
==>)) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	391	525	
==>)) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Eva <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6511	6622	
==>::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4968	5068	
==>returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str { <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4968	5068	
==>returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str { <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	501	610	
==>merely a copy, tell the user to "make register".
        $prompt_register = 1;
    }
}
print "*** Running: $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	137	233	
==>g definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	137	233	
==>g definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	137	233	
==>g definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLAS <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2570	2782	
==>available registered_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, the other methods rely on it
            $obj->dir( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3988	4120	
==>.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3988	4120	
==>.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3988	4120	
==>.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1185	1322	
==>_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13732	13841	
==>) {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13732	13841	
==>) {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13732	13841	
==>) {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6662	6753	
==>::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6662	6753	
==>::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6662	6753	
==>::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35333	35453	
==>{
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35333	35453	
==>{
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35333	35453	
==>{
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1004	1115	
==>5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3211	3372	
==>te;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3211	3372	
==>te;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 i <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1728	1828	
==>`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own met <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1728	1828	
==>`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own met <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5736	5828	
==>quire ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5218	5310	
==>quire ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1160	1250	
==>e> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1160	1250	
==>e> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15089	15221	
==>Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# C <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1179	1274	
==>l_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27796	27891	
==>ally your tests will be run by C<$^X>, the currently-executing Perl.
However, you may want to ha <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1179	1274	
==>l_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10377	10560	
==>= $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10377	10560	
==>= $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10377	10560	
==>= $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1074	1181	
==>me = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19059	19184	
==>POS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15480	15605	
==>POS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	509	608	
==>UNCTIONS

=head2 C<assert()>

  assert( EXPR, $name );

If the expression is false the program abort <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40701	40802	
==>ed to fill in
the format string for sprintf().

=over 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Thr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2139	2239	
==>attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2139	2239	
==>attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2139	2239	
==>attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9946	10077	
==>hould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9946	10077	
==>hould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9946	10077	
==>hould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating sc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21192	21283	
==>s->data[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_o <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	598	693	
==>.p6, rev.p6, mid.p6, wc.p6 for correctness,
# simply run this program in the same directory cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13643	13729	
==>s attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13643	13729	
==>s attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13643	13729	
==>s attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1624	1729	
==>cumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1624	1729	
==>cumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1624	1729	
==>cumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[ke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9712	9803	
==>g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join(",",map{DOWN($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2774	2882	
==>op();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2774	2882	
==>op();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2774	2882	
==>op();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14932	15034	
==>^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18409	18511	
==>^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17825	17927	
==>^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijo <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1571	1672	
==>'},'Clutter::num_size 128;');


subset bit  of uint1 where { true };
subset byte of uint8 where { true <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1421	1522	
==>OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to c <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1421	1522	
==>OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10943	11036	
==>is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10943	11036	
==>is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3185	3412	
==>_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3185	3412	
==>_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6297	6395	
==>finished' flag in the returned match, 

that makes it return until the start of the rule, which uns <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6092	6189	
==>finished' flag in the returned match, 
that makes it return until the start of the rule, which uns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	645	851	
==>_eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	645	851	
==>_eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	645	851	
==>_eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	182	275	
==>erl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	717	823	
==>s langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	717	823	
==>s langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	717	823	
==>s langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14528	14624	
==>-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside cha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1393	1518	
==>\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    r <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1393	1518	
==>\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12191	12307	
==>B, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4834	4950	
==>B, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23470	23641	
==>ses.defined) {
        for @superclasses -> $super {
            $super.add_subclass($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5085	5202	
==>eters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5085	5202	
==>eters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5085	5202	
==>eters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10955	11066	
==>$s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10955	11066	
==>$s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10955	11066	
==>$s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27380	27475	
==>(t($fac), "int → int", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is(t( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	132	318	
==>ody, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	132	318	
==>ody, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	132	318	
==>ody, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2572	2723	
==>( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	167	271	
==>th) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	167	271	
==>th) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10120	10329	
==>w;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10120	10329	
==>w;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10120	10329	
==>w;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22914	23020	
==>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21732	21838	
==>(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22914	23020	
==>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21732	21838	
==>(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4169	4267	
==>ub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interp <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4169	4267	
==>ub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interp <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4126	4222	
==>ub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interp <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4126	4222	
==>ub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interp <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1268	1384	
==>ackages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.want <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1268	1384	
==>ackages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.want <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	565	675	
==>d = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $las <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	565	675	
==>d = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	247	381	
==>r;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	247	381	
==>r;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	247	381	
==>r;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3065	3164	
==>16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my $old <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1973	2165	
==>as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5760	5952	
==>as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1973	2165	
==>as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5760	5952	
==>as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8834	8970	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8834	8970	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8834	8970	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1311	1412	
==>E 

Pugs::Compiler::RegexPerl5 - Compiler for Perl 6 style "Perl5" regex

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6434	6548	
==>$eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6434	6548	
==>$eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6434	6548	
==>$eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2530	2634	
==>t a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3371	3479	
==>/ if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ } @{ $Config{include} };
    s/^\.// <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2852	2943	
==>elf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2852	2943	
==>elf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2852	2943	
==>elf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4414	4556	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4414	4556	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4414	4556	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	621	718	
==>less exists $params{'$.description'};

            return $::TestBuilder->FETCH('::Test')->FETCH(' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	465	600	
==>ock_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	465	600	
==>ock_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7634	7729	
==>ipher::Block> class takes care of much of this.)

A default implementation of this method is pro <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7634	7729	
==>ipher::Block> class takes care of much of this.)

A default implementation of this method is pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13068	13204	
==>n arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13068	13204	
==>n arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13068	13204	
==>n arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1946	2074	
==>se if $self->{stack};
  return $self->{captures}[--$n] if $n;
  return $self->{captures};
}


sub nchar {
  my $self = shift;
  r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4637	4748	
==>'(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4637	4748	
==>'(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4637	4748	
==>'(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1650	1755	
==>e constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	163	264	
==>entation will overwrite. So smartmatch can be
implemented using some is_subtype? (QQQ what's it called <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	329	426	
==>{
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	329	426	
==>{
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	329	426	
==>{
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14027	14151	
==>fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14027	14151	
==>fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7567	7670	
==>-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7567	7670	
==>-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

me <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1910	2009	
==>pends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns B <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1968	2067	
==>pends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns B <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17258	17353	
==>is a terse way of saying that it subscribes to the
localization methodology that is described he <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17258	17353	
==>is a terse way of saying that it subscribes to the
localization methodology that is described he <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2029	2134	
==>ures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	497	582	
==>---------------------------------------------------------------------
## Eigenclass

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	497	582	
==>---------------------------------------------------------------------
## Eigenclass

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	497	582	
==>---------------------------------------------------------------------
## Eigenclass

$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20551	20656	
==>0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3085	3184	
==>->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3085	3184	
==>->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3085	3184	
==>->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4516	4612	
==>{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - thi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4516	4612	
==>{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - thi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4516	4612	
==>{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - thi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1615	1699	
==>/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\]/'".$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9312	9441	
==>>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9312	9441	
==>>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9312	9441	
==>>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23647	23773	
==>e("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5849	5946	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4979	5076	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5849	5946	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4979	5076	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	833	984	
==>($root, $pool, $pool_rel, $index, $index_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                stor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	328	446	
==>r pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	328	446	
==>r pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	328	446	
==>r pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6633	6750	
==>n (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $name, @mess) = @_;
    my $pass;
    $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10884	10994	
==>{
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10884	10994	
==>{
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10884	10994	
==>{
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2470	2567	
==>tput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2470	2567	
==>tput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2550	2647	
==>tput mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3981	4090	
==>Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3981	4090	
==>Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3981	4090	
==>Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of typ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30950	31042	
==>iginal's attributes; the new Relation::Example has as
many additional attributes as there are <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	702	819	
==>2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7806	7904	
==>_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7806	7904	
==>_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7806	7904	
==>_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@class <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5537	5650	
==>ame} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package PI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8178	8284	
==>t relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mul <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11655	11761	
==>t relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mul <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10837	10943	
==>t relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12919	13028	
==>rn unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12919	13028	
==>rn unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	819	913	
==>rted on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	819	913	
==>rted on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2594	2713	
==>INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2806	2905	
==>::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "La <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2806	2905	
==>::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "La <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2806	2905	
==>::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "La <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9024	9189	
==>eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9024	9189	
==>eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9024	9189	
==>eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


= <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	388	484	
==>eadbc(i,bcfile);
    Parrot_loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_inte <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1033	1349	
==>n::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9775	9909	
==>instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it al <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6116	6250	
==>instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6965	7099	
==>instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it al <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2270	2392	
==>evels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23361	23459	
==>not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27913	28011	
==>not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21416	21511	
==>x0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- impl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21416	21511	
==>x0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- impl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21416	21511	
==>x0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- impl <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1218	1313	
==>ne.
#multi Array::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10081	10178	
==>articular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parame <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8021	8118	
==>articular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parame <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10081	10178	
==>articular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parame <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8021	8118	
==>articular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parame <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10121	10236	
==>then->{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	35	148	
==>in';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Containe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	35	148	
==>in';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Containe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	35	148	
==>in';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Containe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2421	2533	
==>d $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2421	2533	
==>d $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2421	2533	
==>d $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1535	1641	
==>my $class (@classes) {
        my $methods = $class->get_attr(symbol->new('%:methods'));
        #warn "loo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12204	12300	
==>t2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12204	12300	
==>t2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24351	24445	
==>eplying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24351	24445	
==>eplying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...") <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	309	408	
==>ns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	309	408	
==>ns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5569	5746	
==>er );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation::Example {

    die "Some key <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3094	3198	
==>nt!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3094	3198	
==>nt!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3094	3198	
==>nt!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ar <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6209	6312	
==>0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4074	4172	
==>my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4074	4172	
==>my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4664	4762	
==>my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $p <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3625	3754	
==>y $pathname = $module;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18062	18161	
==>ource code into various blocks; so that by the
time a compiler is called it only gets the source cod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18062	18161	
==>ource code into various blocks; so that by the
time a compiler is called it only gets the source cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1476	1629	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1476	1629	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1476	1629	
==>=> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebas <==
4	/Users/nnunley/pugs/util/package-osx.pl	6335	6423	
==>usr/local/man/man3/Perl6::Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overview: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22439	22564	
==>statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22718	22843	
==>statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6902	7000	
==>0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6902	7000	
==>0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Mat <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11857	11978	
==>></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2778	2894	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2778	2894	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2778	2894	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1719	1868	
==>ub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1719	1868	
==>ub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1719	1868	
==>ub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	15	108	
==>::Grammar::Circumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pug <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1776	1907	
==>e by hand.

.
        open my $tpl, $config_template or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18297	18389	
==>nfix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18297	18389	
==>nfix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18297	18389	
==>nfix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1258	1447	
==>identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1258	1447	
==>identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1258	1447	
==>identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32883	32977	
==>here for brevity.  The headings are object I<classes>.  The field
"family" represents the gener <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4994	5129	
==>{pos} = $last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	902	1011	
==>ndef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	902	1011	
==>ndef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	902	1011	
==>ndef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6964	7107	
==>>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6964	7107	
==>>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6964	7107	
==>>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3539	3651	
==>s =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($flags)?";
	}

	sub reduce_sym {
		my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17796	17916	
==>($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        return _ok( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	866	977	
==>xists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	866	977	
==>xists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	866	977	
==>xists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14009	14156	
==>=> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14009	14156	
==>=> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14009	14156	
==>=> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	577	684	
==>"$Bin/lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1257	1364	
==>k $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1257	1364	
==>k $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1257	1364	
==>k $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo? <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11480	11580	
==>rl 5 way"

=item KeyExtractor

A closure with arity of 1, which returns the "key" by which to sort. I <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1301	1392	
==>new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1301	1392	
==>new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1301	1392	
==>new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitiv <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4972	5078	
==>L_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4972	5078	
==>L_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1876	1982	
==>L_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2585	2679	
==>mpiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Interpreter;

=head1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	217	336	
==>e Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9025	9134	
==>iled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12882	12987	
==>iled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12882	12987	
==>iled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementat <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2964	3071	
==>);

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2964	3071	
==>);

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3044	3151	
==>);

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Te <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	992	1156	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	992	1156	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7335	7443	
==>}
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7393	7501	
==>}
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9941	10039	
==>Or ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOWN($lhs),DOWN($rhs));
}
NODE Typ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1746	1936	
==>h> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX nee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5864	5969	
==>lGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5864	5969	
==>lGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5864	5969	
==>lGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	76	341	
==>that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	76	341	
==>that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	76	341	
==>that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	76	341	
==>that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3595	3705	
==>nly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3595	3705	
==>nly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3595	3705	
==>nly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18432	18530	
==>ct's C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If you want to go e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30554	30698	
==>'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30554	30698	
==>'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30554	30698	
==>'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1562	1696	
==>e(
        name => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	448	582	
==>@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	448	582	
==>@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20620	20717	
==>ific to the program
in the order you chose so to pick a supported language closest to your
prefere <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20620	20717	
==>ific to the program
in the order you chose so to pick a supported language closest to your
prefere <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16870	17003	
==>er.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    my Relation::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8467	8590	
==>:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8467	8590	
==>:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8467	8590	
==>:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12778	12909	
==>( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12778	12909	
==>( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12778	12909	
==>( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41003	41097	
==>ly be figured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal e <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	579	693	
==>for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	579	693	
==>for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3194	3295	
==>ompare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3194	3295	
==>ompare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	298	412	
==>d_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3849	3949	
==>s $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3849	3949	
==>s $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3849	3949	
==>s $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7931	8066	
==>);
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13525	13660	
==>);
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7931	8066	
==>);
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13519	13654	
==>);
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8389	8500	
==>r::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5704	5801	
==>( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5704	5801	
==>( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7228	7325	
==>( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13312	13463	
==>substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3477	3612	
==>substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3477	3612	
==>substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3477	3612	
==>substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string, <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1592	1699	
==>lit //, $file;

    open STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $inb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7563	7669	
==>tSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7563	7669	
==>tSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7563	7669	
==>tSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<P <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1479	1583	
==>f-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1479	1583	
==>f-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14145	14239	
==>fe (i.e., which to escape). The default set
of characters to encode are control chars, high-bit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14145	14239	
==>fe (i.e., which to escape). The default set
of characters to encode are control chars, high-bit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11255	11372	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2737	2854	
==>ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11255	11372	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2737	2854	
==>ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4262	4379	
==>IL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4262	4379	
==>IL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1112	1229	
==>IL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12048	12164	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6615	6731	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12048	12164	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6615	6731	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	787	882	
==>returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	845	940	
==>returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	787	882	
==>returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	845	940	
==>returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	750	853	
==>= HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	750	853	
==>= HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = H <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2787	2883	
==>e->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2787	2883	
==>e->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDec <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	103	255	
==>rn;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simpl <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	103	255	
==>rn;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simpl <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2244	2357	
==>\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = s <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2244	2357	
==>\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7037	7148	
==>$');
  });

  # seol (end of line, in single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2657	2748	
==>hod('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2657	2748	
==>hod('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2657	2748	
==>hod('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1029	1150	
==>eme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1029	1150	
==>eme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HT <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	362	451	
==>contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contigu <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	362	451	
==>contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contigu <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21668	21848	
==>mb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	851	953	
==>tive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	851	953	
==>tive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	851	953	
==>tive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11803	11908	
==>rts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8950	9055	
==>rts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11803	11908	
==>rts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8950	9055	
==>rts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Cl <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2422	2530	
==>= COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $o <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2422	2530	
==>= COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $o <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	364	460	
==>tetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duration <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	364	460	
==>tetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duration <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24301	24392	
==>::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6038	6127	
==>$self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6038	6127	
==>$self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6038	6127	
==>$self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2198	2296	
==>@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what t <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17200	17298	
==>( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re), <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2198	2296	
==>@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2198	2296	
==>@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	542	649	
==>ithout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	542	649	
==>ithout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	542	649	
==>ithout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (B <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1462	1590	
==>) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1462	1590	
==>) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z// <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2071	2186	
==>uery strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2071	2186	
==>uery strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1305	1427	
==>6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3601	3723	
==>6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1305	1427	
==>6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3601	3723	
==>6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	285	404	
==>s rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	285	404	
==>s rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	285	404	
==>s rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	285	404	
==>s rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	964	1105	
==>ybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1838	1979	
==>ybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	964	1105	
==>ybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1838	1979	
==>ybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	180	281	
==>implement the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19595	19685	
==>to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19595	19685	
==>to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19595	19685	
==>to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	863	965	
==>- optimization - pass the string index around, 

# XXX   instead of copying the whole string to $tail e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1228	1329	
==>- optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	827	928	
==>- optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1228	1329	
==>- optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tail e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	728	830	
==>rimitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	728	830	
==>rimitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	728	830	
==>rimitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1511	1657	
==>pend( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	609	728	
==>clare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	609	728	
==>clare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	609	728	
==>clare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	690	847	
==>::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3761	3918	
==>::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	690	847	
==>::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3761	3918	
==>::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc" <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	271	407	
==>) returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            m <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	271	407	
==>) returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18773	18873	
==>d optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18773	18873	
==>d optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rose <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8725	8848	
==>,
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8725	8848	
==>,
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10012	10204	
==>urn scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11489	11681	
==>urn scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	380	489	
==>ousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	380	489	
==>ousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6125	6215	
==>rself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6125	6215	
==>rself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2578	2693	
==>lf eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.last <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2578	2693	
==>lf eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.last <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2578	2693	
==>lf eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.last <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7352	7452	
==>sub code_helper {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pTy <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	110	238	
==>nfig;

sub get_config {
    my $config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversio <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3231	3351	
==>: $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3231	3351	
==>: $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4755	4875	
==>: $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21416	21839	
==>airs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation::Examp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2290	2406	
==>ef->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2290	2406	
==>ef->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2290	2406	
==>ef->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to-> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1867	2016	
==>ef eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1867	2016	
==>ef eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6581	6682	
==>GHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to sti <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6581	6682	
==>GHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to sti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14047	14196	
==>nstance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14047	14196	
==>nstance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14047	14196	
==>nstance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6693	6817	
==>self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return $p-> <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3734	3834	
==>d or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PA <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3734	3834	
==>d or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PA <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	771	868	
==>d or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PA <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3691	3940	
==>Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3691	3940	
==>Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::Keyed <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2079	2256	
==>o the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine f <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2079	2256	
==>o the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine f <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	274	377	
==>ramContext;
has Any $paramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

method &infix:« <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17102	17197	
==>x0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17102	17197	
==>x0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17102	17197	
==>x0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5489	5603	
==>e (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5489	5603	
==>e (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5489	5603	
==>e (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	130	230	
==>könnte ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8131	8270	
==>ift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block- <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8131	8270	
==>ift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3221	3329	
==>>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3221	3329	
==>>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24136	24238	
==>ly sending something
  in response to something it received.  This is typically used by automatons
  (c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22909	23011	
==>ly sending something
  in response to something it received.  This is typically used by automatons
  (c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24136	24238	
==>ly sending something
  in response to something it received.  This is typically used by automatons
  (c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22909	23011	
==>ly sending something
  in response to something it received.  This is typically used by automatons
  (c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17936	18031	
==>urthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17936	18031	
==>urthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18893	18987	
==>urthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18893	18987	
==>urthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10980	11134	
==>expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10980	11134	
==>expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2882	2985	
==>de to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2882	2985	
==>de to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4637	4740	
==>ork?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is primitive is builtin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25268	25360	
==>e
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29820	29912	
==>e
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28750	28842	
==>e
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5598	5701	
==>gs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" fr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5405	5504	
==>gs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" fr <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	817	915	
==>nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	817	915	
==>nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@pat <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1945	2047	
==>ild.size();    
    }
    return $size;
}

## --------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1945	2047	
==>ild.size();    
    }
    return $size;
}

## --------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3801	3929	
==>),
        '@' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { arra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7834	7959	
==>ext
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11834	11955	
==>ext
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11834	11955	
==>ext
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7367	7458	
==>@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7367	7458	
==>@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7367	7458	
==>@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8932	9024	
==>rent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3861	3953	
==>rent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8932	9024	
==>rent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3861	3953	
==>rent@brentdax.com>.

This code is free software, and may be used, distributed and/or modified <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	562	737	
==>tack} => $new_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6238	6389	
==>tribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6238	6389	
==>tribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6238	6389	
==>tribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15818	15920	
==>ntains the env with the the symbols of our outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11045	11138	
==>oid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incd <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	468	561	
==>ndie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->req <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11045	11138	
==>oid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11045	11138	
==>oid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6931	7048	
==>ill)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.writ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6931	7048	
==>ill)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.writ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6931	7048	
==>ill)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.writ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1774	1880	
==>ackage_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mod <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	372	502	
==>eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	677	780	
==>ail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	677	780	
==>ail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	677	780	
==>ail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19067	19198	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19067	19198	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19067	19198	
==>cher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12470	12565	
==>_comment = $strap->_is_comment($line, \$comment);

Checks if the given line is a comment.  If so <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1877	1979	
==>);
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1877	1979	
==>);
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1877	1979	
==>);
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	161	257	
==>pr compiler to generate p5 code, it's really 
pretty bad actually, and the s-expr got quite messy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3005	3149	
==>umper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1563	1696	
==>ed_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1499	1628	
==>ed_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23651	23746	
==><Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22424	22519	
==><Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23651	23746	
==><Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22424	22519	
==><Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7228	7346	
==>orce_object(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	479	579	
==>LASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	479	579	
==>LASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	479	579	
==>LASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5498	5607	
==>cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5498	5607	
==>cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18854	18953	
==>il the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DAT <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18854	18953	
==>il the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DAT <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2002	2097	
==>st component of the calling function's package name.  (For example, if 
a function in C<Some::Mo <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2002	2097	
==>st component of the calling function's package name.  (For example, if 
a function in C<Some::Mo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32715	32809	
==>ation contains all the tuples of the source Relations, including
one copy each of any duplicate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37265	37359	
==>ation contains all the tuples of the source Relations, including
one copy each of any duplicate <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4367	4482	
==>ll_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      current_pragm <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2917	3022	
==>t.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2917	3022	
==>t.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2997	3102	
==>t.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	298	386	
==>6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	298	386	
==>6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	298	386	
==>6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1941	2044	
==>iginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRI <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1941	2044	
==>iginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRI <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24884	24978	
==>ded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Mes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24884	24978	
==>ded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Mes <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	635	764	
==>ciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	635	764	
==>ciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	968	1080	
==>one(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	968	1080	
==>one(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3444	3616	
==>ches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4374	4543	
==>ches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3335	3504	
==>ches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4374	4543	
==>ches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3096	3215	
==>);
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @ms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3096	3215	
==>);
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @ms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3096	3215	
==>);
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @ms <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5075	5171	
==>r::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Placeholder")){
			my $new = $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12756	12905	
==>ms
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12756	12905	
==>ms
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12756	12905	
==>ms
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSA <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23557	23663	
==>$I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10128	10269	
==>hod .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10128	10269	
==>hod .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10128	10269	
==>hod .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	958	1055	
==>ND__

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5601	5762	
==>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5601	5762	
==>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5601	5762	
==>store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2842	2947	
==>ot the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point(15, 16);
is($p1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2911	3032	
==>>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3760	3881	
==>>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_st <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2607	2700	
==>representation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2607	2700	
==>representation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12392	12508	
==>cr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 },
    using  => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3456	3558	
==>c = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3456	3558	
==>c = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3456	3558	
==>c = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.I <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	335	441	
==>ted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@A <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4680	4782	
==>s already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4680	4782	
==>s already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6204	6306	
==>s already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3179	3301	
==>pace' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	760	848	
==>'@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	760	848	
==>'@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	760	848	
==>'@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7612	7729	
==>> {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7612	7729	
==>> {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7612	7729	
==>> {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8667	8806	
==>('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8667	8806	
==>('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8667	8806	
==>('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$clas <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	409	523	
==>= bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	67	207	
==>e qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1716	1825	
==>ve {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1716	1825	
==>ve {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1716	1825	
==>ve {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3164	3296	
==>dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3164	3296	
==>dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3164	3296	
==>dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4599	4708	
==>/
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - pa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	268	387	
==>rce->new( dir => $dir ) 
        or die "Could not create JIB::Source object from '$dir'";
        
    my $pkg = $src-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18313	18407	
==>$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18313	18407	
==>$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18313	18407	
==>$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19402	19513	
==>Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19402	19513	
==>Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Com <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2045	2142	
==>ugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 m <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2045	2142	
==>ugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	46	159	
==>t__;  

  sub class {
    my $self = shift;
    Carp::carp("class() deprecated; use family() instead");
    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	295	401	
==>n eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	295	401	
==>n eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	295	401	
==>n eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3572	3692	
==>lass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3572	3692	
==>lass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3572	3692	
==>lass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	105	228	
==>ta::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	147	270	
==>ta::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	105	228	
==>ta::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	147	270	
==>ta::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18086	18191	
==>]
    self["ignorecase"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2584	2686	
==>eta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2584	2686	
==>eta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2584	2686	
==>eta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11734	11932	
==>($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i+ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11734	11932	
==>($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i+ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11734	11932	
==>($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34355	34450	
==>r, but now we need to
write the supporting class for the F<Regexp::AndBranch::and> object it
cre <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2030	2132	
==>!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2030	2132	
==>!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my m <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4460	4552	
==>>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4460	4552	
==>>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4037	4134	
==>e_object }
    method GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue (JSX::Ps <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2982	3122	
==>turn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2982	3122	
==>turn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9198	9315	
==>ext/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # del <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9198	9315	
==>ext/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # del <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1010	1210	
==>olation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" }, <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1010	1210	
==>olation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" }, <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2923	3029	
==>l::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2923	3029	
==>l::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: S <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8375	8484	
==>abal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Cabal versio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1255	1350	
==>imeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1255	1350	
==>imeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1255	1350	
==>imeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1244	1338	
==>(Class::Events::Publisher $publisher, Class::Publisher::Event $event) {
        grep { .match($ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13726	13830	
==>lues

 multi Hash::keys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::kv     (%hash ; Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6561	6659	
==>d_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6561	6659	
==>d_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6561	6659	
==>d_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4380	4481	
==>g);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4380	4481	
==>g);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4380	4481	
==>g);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1697	1838	
==>f Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1697	1838	
==>f Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	882	982	
==>}
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    met <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	882	982	
==>}
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    met <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3126	3231	
==>ke to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(r <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3126	3231	
==>ke to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(r <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3366	3466	
==>?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3424	3524	
==>?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5918	6057	
==>bailout_reason}) ) {
        $type = 'bailout';
        $self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2920	3018	
==>"infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2920	3018	
==>"infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2920	3018	
==>"infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3558	3691	
==>,        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4425	4527	
==>);
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4425	4527	
==>);
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4425	4527	
==>);
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (define <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19515	19646	
==>the top?
                # this is what you get at the moment
                push @bad_heading, "link in $source to $target does no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2437	2561	
==>arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2437	2561	
==>arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2437	2561	
==>arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9050	9174	
==>n { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9243	9367	
==>n { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6501	6599	
==>r_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6501	6599	
==>r_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_t <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3917	4026	
==>calar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach my $key (@tu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12472	12573	
==>};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MAC <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12472	12573	
==>};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MAC <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12472	12573	
==>};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MAC <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14729	14827	
==>em RPe_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas for ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29026	29120	
==>ions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29026	29120	
==>ions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29026	29120	
==>ions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	309	407	
==>py_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	309	407	
==>py_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	309	407	
==>py_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	294	386	
==>tialize_package("main",'package');
    Perl6::Run::OnPerl5::X1::Prelude::initialize();
#    E <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2354	2455	
==>eived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2354	2455	
==>eived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.dia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2434	2535	
==>eived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.dia <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	0	95	
==>module Rpn-0.0.1-cpan:ASAVIGE;

# Super simple rpn evaluator derived from:
#   http://perlgolf.s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2789	2911	
==>$self = shift;
                my $size = shift;
                push @{$self->get_value('@:slots')}, mk_containers((undef) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1767	1881	
==>>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1767	1881	
==>>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1767	1881	
==>>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2361	2468	
==>efined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2361	2468	
==>efined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2361	2468	
==>efined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub com <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	155	249	
==>ERSAL::require;

sub compiler_class { __PACKAGE__ . "::Compiler" };

sub interpreter_class { __ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	78	179	
==>y $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

su <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	78	179	
==>y $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

su <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	749	849	
==>Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

mul <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	749	849	
==>Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

mul <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10360	10454	
==>ence set.

The complementary functions are emulated using iterations.

See also the section "UN <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10360	10454	
==>ence set.

The complementary functions are emulated using iterations.

See also the section "UN <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2182	2292	
==>spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat} = PGE_OPTABLE_CLOSE;
    $self->operatorT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	697	803	
==>de}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	697	803	
==>de}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	697	803	
==>de}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1211	1310	
==>ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> a <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1211	1310	
==>ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> a <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2051	2145	
==>me.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags, <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2051	2145	
==>me.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7968	8068	
==>his routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet ce <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7968	8068	
==>his routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet ce <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17172	17270	
==>ence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infini <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17172	17270	
==>ence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infini <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1767	1899	
==>turn -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9685	9777	
==>O();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9685	9777	
==>O();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9685	9777	
==>O();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2972	3075	
==>unning checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do { <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2972	3075	
==>unning checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2609	2702	
==>he following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sepe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2609	2702	
==>he following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sepe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2245	2345	
==>5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2245	2345	
==>5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1472	1568	
==>5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3333	3429	
==>5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2458	2692	
==>Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle-quote
                    unless ( $whitesp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18785	18893	
==>oxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18785	18893	
==>oxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18785	18893	
==>oxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, en <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7854	7959	
==>rig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $child->type ] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22906	23062	
==>ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23185	23341	
==>ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11445	11543	
==>s identical; they do not
interact with the outside environment at all.

A Document object has 2 mai <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11445	11543	
==>s identical; they do not
interact with the outside environment at all.

A Document object has 2 mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4537	4696	
==>ity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4537	4696	
==>ity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4537	4696	
==>ity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pri <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	851	1000	
==>= shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            m <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1861	2024	
==>he current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1861	2024	
==>he current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	775	897	
==>OM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "sourc <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	775	897	
==>OM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "sourc <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13117	13290	
==>imitive is safe {
        # Motto: If in doubt use brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2823	2948	
==>> "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85\u2028\u2029"
    ,"h" => u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1880	1976	
==>nfix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1880	1976	
==>nfix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	234	377	
==>ly start at a line start

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" }
                . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2288	2389	
==>roxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2288	2389	
==>roxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2288	2389	
==>roxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8983	9091	
==>f => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8983	9091	
==>f => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8983	9091	
==>f => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MUL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22296	22387	
==>rrant the warning.

Added "Unrecognized escape" warnings to I<all> escape sequence handlers. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	98	200	
==>re::Bit;

package str;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2814	2913	
==>burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if the <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2814	2913	
==>burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1488	1603	
==>_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1488	1603	
==>_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7655	7746	
==>apper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7655	7746	
==>apper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7655	7746	
==>apper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7393	7482	
==>_alternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alternative(noop) -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6347	6479	
==>self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6347	6479	
==>self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6347	6479	
==>self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opa <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1913	2004	
==>regexes constructed with this module may cause
segfaults on C<split>, substitution, and/or o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4009	4133	
==>wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4009	4133	
==>wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4009	4133	
==>wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21135	21229	
==>nd your program would use
associated keys internally.

It is strongly suggested (but not requir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21135	21229	
==>nd your program would use
associated keys internally.

It is strongly suggested (but not requir <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21010	21101	
==>o a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21010	21101	
==>o a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1054	1208	
==>print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1536	1673	
==>w.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1536	1673	
==>w.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1536	1673	
==>w.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	329	427	
==>hing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	329	427	
==>hing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	329	427	
==>hing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resul <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2680	2774	
==>core.  There being no
documentation, one ends up reverse engineering perl source.

We basically <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1972	2078	
==>] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1972	2078	
==>] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1972	2078	
==>] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declar <==
4	/Users/nnunley/pugs/util/version_h.pl	422	523	
==>ause
# that is only updated when the file in which the keyword appears
# is modified.
my $revision = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15070	15174	
==>ode}) :\n$@\n";
  }
}
{
  # (??{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32305	32403	
==>less of
which is the invocant and which is the argument.  This method will fail if
C<$other> does n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36855	36953	
==>less of
which is the invocant and which is the argument.  This method will fail if
C<$other> does n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36145	36243	
==>less of
which is the invocant and which is the argument.  This method will fail if
C<$other> does n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6324	6436	
==>cessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMB <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6324	6436	
==>cessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMB <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10026	10133	
==>ities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #te <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10026	10133	
==>ities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #te <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20035	20130	
==>reference
implementation of an Engine and is included in the "Rosetta" core
distribution to allo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20035	20130	
==>reference
implementation of an Engine and is included in the "Rosetta" core
distribution to allo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21377	21470	
==>ORS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21377	21470	
==>ORS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2345	2474	
==>ad1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2345	2474	
==>ad1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1568	1691	
==>ad1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3429	3552	
==>ad1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	334	433	
==>pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	334	433	
==>pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1519	1617	
==>ll as anything declared within

that scope.



the Sig contains a simply structure of the signature <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1457	1552	
==>ll as anything declared within
that scope.

the Sig contains a simply structure of the signature <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	559	686	
==>e  package_version
            list_dependencies  dependency_satisfied   dependency_satisfied_by               
        ];


$Cw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10536	10620	
==>ar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10536	10620	
==>ar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10536	10620	
==>ar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1298	1402	
==>$e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1298	1402	
==>$e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1298	1402	
==>$e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17352	17451	
==>_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2924	3080	
==>rn {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2924	3080	
==>rn {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2924	3080	
==>rn {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15694	15831	
==>= splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15694	15831	
==>= splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23995	24086	
==>itory|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Bl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23995	24086	
==>itory|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Bl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1697	1802	
==>keys { 
    my %native = (shift)->to_native;
    list->new(map { str->new($_) } keys %native) 
}

sub valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6525	6618	
==>blessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6525	6618	
==>blessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6525	6618	
==>blessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5504	5612	
==>);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4634	4742	
==>);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5504	5612	
==>);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4634	4742	
==>);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2988	3092	
==>>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2988	3092	
==>>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2988	3092	
==>>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3295	3384	
==>urn { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2060	2160	
==>her => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', asso <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2060	2160	
==>her => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', asso <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14398	14497	
==>lf->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8601	8700	
==>lf->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	556	645	
==>de_id=442402
#
# --------------------------------------------------
# Author: Yung-chung L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5443	5541	
==>$IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5443	5541	
==>$IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5443	5541	
==>$IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2185	2304	
==>e($version, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1156	1255	
==>O;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::ti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1156	1255	
==>O;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::ti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1156	1255	
==>O;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	881	987	
==>eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	881	987	
==>eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	881	987	
==>eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19895	19984	
==>_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19895	19984	
==>_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19895	19984	
==>_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	345	600	
==>es in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	345	600	
==>es in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5747	5849	
==><channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5747	5849	
==><channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5215	5321	
==>~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_u <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5215	5321	
==>~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_u <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13160	13255	
==>ETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x). <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13160	13255	
==>ETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x). <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1041	1164	
==>$string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1045	1163	
==>$string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok" <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1986	2074	
==>$plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the sa <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1986	2074	
==>$plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the sa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14762	14866	
==>quals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14762	14866	
==>quals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_ke <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37484	37582	
==>perator, and the order of its arguments is not significant to the result;
the new Relation is the r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42033	42131	
==>perator, and the order of its arguments is not significant to the result;
the new Relation is the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2669	2786	
==>=> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2669	2786	
==>=> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2669	2786	
==>=> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2099	2199	
==>$from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	141	264	
==>str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	141	264	
==>str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	141	264	
==>str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1645	1774	
==>oken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1645	1774	
==>oken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1645	1774	
==>oken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETC <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19215	19311	
==>s the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot' <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19215	19311	
==>s the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2478	2572	
==>eturn ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2478	2572	
==>eturn ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6955	7144	
==>:List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::Tru <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6955	7144	
==>:List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::Tru <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1530	1672	
==>{
        @str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1530	1672	
==>{
        @str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	475	576	
==>>annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2857	2947	
==>[inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2857	2947	
==>[inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2857	2947	
==>[inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	513	626	
==>$node->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

	return $node unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	530	640	
==>Scope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	530	640	
==>Scope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	530	640	
==>Scope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13115	13237	
==>e a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13115	13237	
==>e a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18373	18476	
==>$S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14794	14897	
==>$S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]") <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4242	4347	
==>ndef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rules.

=head2 match (Str $mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	184	280	
==>a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	184	280	
==>a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	184	280	
==>a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options he <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23920	24025	
==>nse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22693	22798	
==>nse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23920	24025	
==>nse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22693	22798	
==>nse
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3320	3420	
==>apping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6797	6897	
==>apping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5754	5854	
==>apping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headin <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20741	20824	
==>ord_boundary,[],[],[C|Bx],[C|Bx],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,F0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10917	11042	
==>rams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10917	11042	
==>rams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10917	11042	
==>rams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(ma <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9906	10022	
==>$_" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we're VMS, since VMS require <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	685	876	
==>{
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'li <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	685	876	
==>{
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'li <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3971	4109	
==>aptures */
      int i;
      for(i=0;i<=r->nparens;i++) {
        r->startp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3764	3886	
==>hod('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3764	3886	
==>hod('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3764	3886	
==>hod('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:rol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	321	421	
==>leWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	321	421	
==>leWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	321	421	
==>leWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($sel <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1985	2083	
==>\]*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8850	8970	
==>s,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8850	8970	
==>s,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!user <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	100	202	
==>debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	95	191	
==>debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3235	3524	
==>'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('& <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3569	3695	
==>y $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3569	3695	
==>y $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3569	3695	
==>y $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	612	765	
==>>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	612	765	
==>>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	612	765	
==>>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	94	185	
==>l6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5623	5717	
==>4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5623	5717	
==>4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1131	1223	
==>ail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1131	1223	
==>ail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->c <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3442	3557	
==>ss $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, np <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3442	3557	
==>ss $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, np <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7505	7618	
==>( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMB <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7505	7618	
==>( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMB <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13807	13945	
==>, \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n#end <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9991	10125	
==>, \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10827	10961	
==>, \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	540	668	
==>@data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    } <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	540	668	
==>@data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9066	9161	
==>s encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9066	9161	
==>s encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3784	3899	
==>$label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3784	3899	
==>$label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3784	3899	
==>$label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8740	8844	
==><'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <D <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11918	12033	
==>name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub new_pad {
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36073	36180	
==>et, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36073	36180	
==>et, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36073	36180	
==>et, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2004	2213	
==>en rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when ' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2004	2213	
==>en rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	275	366	
==>Name = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	275	366	
==>Name = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Comp <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2386	2492	
==>s{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4646	4752	
==>s{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	145	243	
==>:Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	145	243	
==>:Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12122	12249	
==>less' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4418	4520	
==>ype = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4418	4520	
==>ype = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4418	4520	
==>ype = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1850	1989	
==>ant.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1850	1989	
==>ant.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8479	8574	
==>($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_fa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8537	8632	
==>($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_fa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10987	11085	
==>iner which stores data to be used or
displayed by your program.  It is analagous to a simplified ve <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14150	14248	
==>iner which stores data to be used or
displayed by your program.  It is analagous to a simplified ve <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10987	11085	
==>iner which stores data to be used or
displayed by your program.  It is analagous to a simplified ve <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14150	14248	
==>iner which stores data to be used or
displayed by your program.  It is analagous to a simplified ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10569	10673	
==>();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10569	10673	
==>();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10569	10673	
==>();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18638	18756	
==>s invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18638	18756	
==>s invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18638	18756	
==>s invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3253	3365	
==>ub reverse {
    my $self = shift;
    list->new(CORE::reverse(@{$self}));
}

## list iterators

sub each : metho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	29	131	
==>die::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24948	25043	
==>member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29500	29595	
==>member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28412	28507	
==>member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28871	29034	
==>elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28871	29034	
==>elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28871	29034	
==>elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pac <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6168	6303	
==>ew(),                     
        )
    );
    
# link Class back to Class
$::Class->change_class($::Class);

=pod

method add_method ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40894	40991	
==>te,
because that is a practical way of suggesting improvements to the standard
version.

=head1 AC <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26454	26551	
==>te, because that is a practical way of
suggesting improvements to the standard version.

=head1 AC <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40894	40991	
==>te,
because that is a practical way of suggesting improvements to the standard
version.

=head1 AC <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26454	26551	
==>te, because that is a practical way of
suggesting improvements to the standard version.

=head1 AC <==
4	/Users/nnunley/pugs/util/build_pugs.pl	670	765	
==>ide these settings using the PUGS_BUILD_OPTS
environment variable.

Current settings:
.
    prin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5879	6013	
==>sed
    max             Number of individual tests ran
    ok              Number of individual tests passed
    sub_skipped     Number <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4630	4729	
==>et $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3757	3856	
==>et $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4630	4729	
==>et $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3757	3856	
==>et $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2133	2259	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2133	2259	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2133	2259	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $la <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2329	2439	
==>($self) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; mar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1078	1183	
==>my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1078	1183	
==>my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1078	1183	
==>my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6131	6229	
==>{data}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp::Parser <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1239	1383	
==>tatement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1239	1383	
==>tatement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) ) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4619	4714	
==>complement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4619	4714	
==>complement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6169	6284	
==>nt_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6169	6284	
==>nt_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19119	19210	
==>tomatically if using the header(),
push_header() or init_header() methods to set the referre <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19119	19210	
==>tomatically if using the header(),
push_header() or init_header() methods to set the referre <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	83	199	
==>, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2771	2871	
==>s.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2771	2871	
==>s.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2771	2871	
==>s.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18001	18085	
==>$e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21259	21343	
==>$e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41266	41350	
==>$e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44166	44250	
==>$e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->ne <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10819	10921	
==>ues into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10819	10921	
==>ues into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many membe <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17803	17900	
==>> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3872	3973	
==>$self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3872	3973	
==>$self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3872	3973	
==>$self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ---------- <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1446	1656	
==>ement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1082	1292	
==>ement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx: <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1446	1656	
==>ement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1082	1292	
==>ement>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6455	6551	
==>xtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6455	6551	
==>xtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37310	37394	
==>ist')));
$::Class->send('add_attribute', (symbol->new('%:private_methods') => attribu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7174	7343	
==>name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7174	7343	
==>name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	711	869	
==>||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	711	869	
==>||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16522	16648	
==>$str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $st <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16522	16648	
==>$str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17508	17628	
==>$str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $st <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17508	17628	
==>$str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4917	5033	
==>ss "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4917	5033	
==>ss "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4917	5033	
==>ss "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36844	36938	
==>cept that the returned Relation::Example contains only tuples that are in
exactly one of the so <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8658	8744	
==>e-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8658	8744	
==>e-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3867	3970	
==>ackage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3867	3970	
==>ackage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3867	3970	
==>ackage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21355	21448	
==>ns C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specificall <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1170	1279	
==>ethod duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TOD <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	912	1021	
==>ethod duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TOD <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1170	1279	
==>ethod duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TOD <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	912	1021	
==>ethod duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TOD <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2313	2430	
==>Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_L <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2313	2430	
==>Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_L <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4058	4170	
==>_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4907	5019	
==>_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5003	5112	
==>be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5003	5112	
==>be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5003	5112	
==>be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5830	5926	
==>nfix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5830	5926	
==>nfix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5830	5926	
==>nfix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2242	2334	
==>rl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2242	2334	
==>rl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1469	1559	
==>rl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3330	3420	
==>rl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile. <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	559	753	
==>nce =>
                { methods => { map { $_->name => $_->code }
                               $class->methods->members
                             },

                  # Perl 6 has no conce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10527	10635	
==>= _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10527	10635	
==>= _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10527	10635	
==>= _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1979	2126	
==>nt ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	293	440	
==>nt ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1979	2126	
==>nt ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1979	2126	
==>nt ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23763	23873	
==>mb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pretty printer
{
	my $type = type::operato <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6294	6408	
==>igit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in character c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14881	14991	
==>d_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18358	18468	
==>d_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17774	17884	
==>d_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1105	1197	
==>es;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1105	1197	
==>es;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1105	1197	
==>es;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Roo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6316	6437	
==>emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6316	6437	
==>emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9552	9646	
==>clare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9552	9646	
==>clare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18816	18989	
==>Internals::sprintf(lc($conversion),1.0*$arg);
            }
            when '%' {
                $str ~= '%';
            }
            default {
                die "sprin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	449	577	
==>rk:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (subst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	546	674	
==>rk:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (subst <==
4	/Users/nnunley/pugs/util/drift.pl	32	126	
==>use Config;
use File::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3404	3491	
==>lass)->{'$:superclass'} = $Object;

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4098	4185	
==>lass)->{'$:superclass'} = $Object;

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5306	5393	
==>lass)->{'$:superclass'} = $Object;

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2530	2625	
==>s);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2530	2625	
==>s);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2530	2625	
==>s);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Ma <==
4	/Users/nnunley/pugs/util/build_pugs.pl	474	567	
==>calls GHC to build a pugs exectuable, optionally inlining
precompiled modules in a second pass <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29465	29558	
==>rgument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wil <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34017	34110	
==>rgument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wil <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33181	33274	
==>rgument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35603	35733	
==>-$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35603	35733	
==>-$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35603	35733	
==>-$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17475	17572	
==>to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17475	17572	
==>to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17475	17572	
==>to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value:: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13209	13302	
==>C<delete %hash{$key}> in all it's forms. Below are some
example translations. This list is I<n <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	694	847	
==>ode {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = c <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	694	847	
==>ode {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3477	3579	
==>k

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it an <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3477	3579	
==>k

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	825	943	
==>\$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	825	943	
==>\$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	825	943	
==>\$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    ' <==
4	/Users/nnunley/pugs/util/build_pugs.pl	421	519	
==>int <<".";
$0 - build a pugs executable

This script calls GHC to build a pugs exectuable, optional <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11869	11997	
==>eport returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2287	2405	
==>eport returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2287	2405	
==>eport returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4241	4370	
==>che353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4241	4370	
==>che353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we de <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4754	4879	
==>che353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4754	4879	
==>che353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we de <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1701	1798	
==>et($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1701	1798	
==>et($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	38	131	
==>ldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use P <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	38	131	
==>ldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2554	2727	
==>ontent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2554	2727	
==>ontent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3001	3093	
==>Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fgl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2893	2984	
==>Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fgl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3864	3974	
==>'-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3864	3974	
==>'-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3864	3974	
==>'-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3386	3483	
==>class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, '... got the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9961	10076	
==>if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9961	10076	
==>if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9961	10076	
==>if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()." <==
4	/Users/nnunley/pugs/util/package-osx.pl	8923	9023	
==>"Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16651	16746	
==>tation file that comes
with this "Rosetta" distribution.

While it is possible that one could wr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16651	16746	
==>tation file that comes
with this "Rosetta" distribution.

While it is possible that one could wr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20595	20697	
==>>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<jo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19521	19623	
==>>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20595	20697	
==>>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19521	19623	
==>>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<jo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6164	6262	
==>'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6164	6262	
==>'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21838	21949	
==>nnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20719	20830	
==>nnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21838	21949	
==>nnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20719	20830	
==>nnected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=i <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2430	2570	
==>.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	278	397	
==>ts $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	278	397	
==>ts $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	278	397	
==>ts $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new P <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4907	5068	
==>f.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4907	5068	
==>f.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3710	3859	
==>f.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3710	3859	
==>f.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7533	7634	
==>L2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7533	7634	
==>L2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7533	7634	
==>L2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1902	2002	
==>od all_assocs($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6029	6191	
==>eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6029	6191	
==>eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1701	1833	
==>lse {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1701	1833	
==>lse {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($ <==
4	/Users/nnunley/pugs/util/importgraph.pl	1558	1675	
==>Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3358	3467	
==>," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3358	3467	
==>," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3358	3467	
==>," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4314	4425	
==>_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5052	5161	
==>_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	729	825	
==>and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set w <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	729	825	
==>and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set w <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1490	1622	
==>s ($self.meta.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
}

role Class::Events::Subscr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1027	1155	
==>Nodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1027	1155	
==>Nodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1027	1155	
==>Nodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the nod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	828	970	
==>f = bless sub {
        my $message = shift;
        return $table  if $message eq 'message-map';        
        
        # alias prototype to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2209	2314	
==>lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2209	2314	
==>lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2209	2314	
==>lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our( <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6291	6414	
==>bg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	897	996	
==>== PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	897	996	
==>== PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	897	996	
==>== PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2 <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1390	1495	
==>ule (qw< fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}", ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2469	2564	
==>ix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2469	2564	
==>ix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2469	2564	
==>ix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	116	265	
==>> 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Acc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	116	265	
==>> 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Acc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2571	2665	
==>is module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2571	2665	
==>is module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1037	1148	
==>}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $index->isa('num'))
        || confe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2211	2312	
==>self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2211	2312	
==>self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2211	2312	
==>self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	377	494	
==>uire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	377	494	
==>uire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	377	494	
==>uire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3764	3864	
==>self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	518	607	
==>JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4298	4417	
==>ETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4298	4417	
==>ETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14101	14218	
==>lar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14101	14218	
==>lar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5425	5543	
==>mess) = @_;
    my $pass;
    if (!defined $got or !defined $expected or !defined $range) {
        # This is a fail, b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22596	22830	
==>$elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22596	22830	
==>$elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22596	22830	
==>$elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5796	5930	
==>e}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5796	5930	
==>e}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5796	5930	
==>e}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9767	9853	
==>) --> p5_charset_item(class_neg(_)), {!, fail}.
p5_charset_range_x(B) --> p5_charset_it <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2110	2242	
==>p::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10978	11110	
==>p::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2303	2435	
==>p::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11257	11389	
==>p::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2133	2236	
==>set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2133	2236	
==>set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7149	7247	
==>lti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10626	10724	
==>lti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16443	16536	
==>lgorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16443	16536	
==>lgorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19052	19142	
==>c>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19052	19142	
==>c>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16241	16390	
==>lf)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16241	16390	
==>lf)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16241	16390	
==>lf)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9906	10021	
==>acter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
rule HexEscapeSequence {  # see 7.8.4
      <'x'> <HexDigit> < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2010	2178	
==>he methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2010	2178	
==>he methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15205	15305	
==>e user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15205	15305	
==>e user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10258	10387	
==>in_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10258	10387	
==>in_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1204	1305	
==>t remove \"$pilfn.err\": $!\n";
    unlink $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlin <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	318	441	
==>ode $f,
    Code +$fprime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4932	5047	
==>l "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4932	5047	
==>l "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4932	5047	
==>l "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	684	789	
==>Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	684	789	
==>Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	684	789	
==>Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1897	1997	
==>p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7277	7395	
==>template module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret va <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7277	7395	
==>template module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret va <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3650	3753	
==>ment that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3650	3753	
==>ment that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Node <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1431	1558	
==>ty

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	197	297	
==>ause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	197	297	
==>ause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	197	297	
==>ause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13019	13134	
==>ss "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class specia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13019	13134	
==>ss "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class specia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13019	13134	
==>ss "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class specia <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20006	20113	
==>{
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11933	12034	
==>pan.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13325	13426	
==>pan.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11933	12034	
==>pan.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13325	13426	
==>pan.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1365	1468	
==>ype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1365	1468	
==>ype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1365	1468	
==>ype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	r <==
4	/Users/nnunley/pugs/util/package-osx.pl	8069	8166	
==>rl6::Spec::Package.3pm
        /usr/local/man/man3/Perl6::Spec::Rule.3pm
        /usr/local/man/ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32688	32853	
==>:Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32688	32853	
==>:Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32688	32853	
==>:Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3114	3229	
==>om_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class. <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3114	3229	
==>om_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3138	3233	
==>grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3331	3426	
==>grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	670	773	
==>CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	670	773	
==>CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	670	773	
==>CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	832	1007	
==>uate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1801	1902	
==>JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1801	1902	
==>JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1801	1902	
==>JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4611	4711	
==>above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4611	4711	
==>above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model an <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19404	19497	
==>ts are structured as
standard data manipulation statements but that the target relation
variab <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19404	19497	
==>ts are structured as
standard data manipulation statements but that the target relation
variab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17022	17113	
==>);
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17022	17113	
==>);
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17022	17113	
==>);
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6022	6129	
==>en my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6022	6129	
==>en my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6022	6129	
==>en my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	577	681	
==>pare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1004	1171	
==>if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1004	1171	
==>if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1004	1171	
==>if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5575	5695	
==>cs
    } elsif ($got !~ tr/0-9// or $expected !~ tr/0-9// or $range !~ tr/0-9//) {
        # This is a fail
        unshi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	965	1063	
==>and it should not backtrack or whatever
    return - the block (sub-reference) that contains 'retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4863	4961	
==>_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makef <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	965	1063	
==>and it should not backtrack or whatever
    return - the block (sub-reference) that contains 'retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3403	3514	
==>ms->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3403	3514	
==>ms->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3403	3514	
==>ms->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mang <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	867	956	
==>ondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($progr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1595	1753	
==>_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Ke <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1595	1753	
==>_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Ke <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11709	11823	
==>>fmap(sub { $self->reduce($_[0]) })
        : $node
}

package DynamicScopes;

sub find_dyn_sym {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16243	16335	
==>vides a simple but effective mechanism for
applications and packages that empowers single bin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16243	16335	
==>vides a simple but effective mechanism for
applications and packages that empowers single bin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20619	20710	
==>avor is that
the new (under development) enterprise-strength and Perl implemented
database s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20619	20710	
==>avor is that
the new (under development) enterprise-strength and Perl implemented
database s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17403	17506	
==>=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont want c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4934	5032	
==><Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cur <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4934	5032	
==><Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7131	7229	
==><Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7740	7872	
==>$content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyz <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7740	7872	
==>$content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyz <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	239	345	
==>ime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	239	345	
==>ime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6761	6953	
==>$m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6761	6953	
==>$m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7683	7843	
==>' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7695	7855	
==>' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	849	962	
==>=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying the whole string to $tai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1216	1326	
==>=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	815	925	
==>=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1216	1326	
==>=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole string to $tai <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2923	3028	
==>Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b } <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2923	3028	
==>Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b } <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11365	11459	
==>C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11365	11459	
==>C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5854	5969	
==>E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/htt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5854	5969	
==>E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/htt <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	134	246	
==>elf.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    retur <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	134	246	
==>elf.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7567	7710	
==>? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) whi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7567	7710	
==>? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) whi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7567	7710	
==>? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) whi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2038	2147	
==>elf = shift;
    return num->new(scalar(@{$self}));
}

sub elems {
    my $self = shift;
    return num->new($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6128	6247	
==>8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6128	6247	
==>8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6128	6247	
==>8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\" <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7081	7188	
==>g "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_support <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1421	1522	
==>g "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_support <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1421	1522	
==>g "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_support <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1421	1522	
==>g "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_support <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2271	2377	
==>n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        ope <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2488	2594	
==>n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        ope <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8456	8556	
==>ee and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8456	8556	
==>ee and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2753	2866	
==>ormal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2753	2866	
==>ormal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ < <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26365	26460	
==>ied on input and output, any
variable values which are references will be passed by reference, s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26365	26460	
==>ied on input and output, any
variable values which are references will be passed by reference, s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8536	8663	
==>"{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2094	2200	
==>) . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2094	2200	
==>) . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2094	2200	
==>) . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9858	10012	
==>t( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10137	10291	
==>t( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1319	1413	
==>tr :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1319	1413	
==>tr :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7816	8011	
==>,
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7816	8011	
==>,
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7816	8011	
==>,
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4528	4648	
==>y $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5013	5133	
==>y $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5109	5211	
==>or Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $d <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5109	5211	
==>or Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1501	1628	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1954	2081	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2389	2516	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2826	2953	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14431	14551	
==>$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12902	13011	
==>they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12902	13011	
==>they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12902	13011	
==>they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2331	2482	
==>int "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9103	9254	
==>int "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2331	2482	
==>int "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9103	9254	
==>int "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6324	6441	
==>:str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6336	6453	
==>:str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	479	620	
==>ccess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	479	620	
==>ccess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	479	620	
==>ccess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1856	2157	
==>c ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1856	2157	
==>c ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5413	5542	
==>en {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5413	5542	
==>en {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16293	16395	
==>$xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16293	16395	
==>$xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16293	16395	
==>$xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11453	11583	
==>$str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11447	11577	
==>$str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17845	17946	
==>re?


=cut


=pod

=head1 Perl5's struct regexp and its abuse

=head1 Description

The perl5 regexp en <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	812	907	
==>( $self->config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

su <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10985	11086	
==>old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16703	16798	
==>my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" o <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16703	16798	
==>my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" o <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16703	16798	
==>my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4739	4830	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if yo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4989	5080	
==>ugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9217	9307	
==>y(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3042	3132	
==>y(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3067	3182	
==>el ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{le <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3568	3683	
==>el ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9530	9641	
==>sts('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delet <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9530	9641	
==>sts('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delet <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1163	1263	
==>"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14875	14971	
==>_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size() <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18352	18448	
==>_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size() <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17768	17864	
==>_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size() <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	670	798	
==>s' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	875	1003	
==>s' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	931	1059	
==>s' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19397	19507	
==>h by printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1363	1462	
==>@PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1363	1462	
==>@PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1363	1462	
==>@PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17713	17904	
==>params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19471	19662	
==>params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39923	40113	
==>params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40982	41172	
==>params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8616	8719	
==>{
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8604	8707	
==>{
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19664	19860	
==>n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new(">$synhtml") 
                             or die "Can't open ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5660	5770	
==>arn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5660	5770	
==>arn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5660	5770	
==>arn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6504	6621	
==>ue_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6504	6621	
==>ue_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6504	6621	
==>ue_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::op <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20331	20440	
==>ats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8599	8696	
==>s DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8599	8696	
==>s DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ci <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	990	1097	
==>+) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	990	1097	
==>+) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	990	1097	
==>+) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3175	3273	
==>Num'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', 'VList' , 'value' ,'u <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3878	3983	
==>DERR Data::Dumper::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$noop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5501	5595	
==>Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5501	5595	
==>Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5501	5595	
==>Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10703	10850	
==>ams } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10703	10850	
==>ams } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10703	10850	
==>ams } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	5	104	
==>age Perl6::Core::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5069	5227	
==>Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5069	5227	
==>Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5069	5227	
==>Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	497	606	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	497	606	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	497	606	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5534	5637	
==>_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5534	5637	
==>_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5534	5637	
==>_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of var <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1554	1650	
==>lass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1316	1412	
==>lass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1554	1650	
==>lass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1316	1412	
==>lass represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10908	11062	
==>tring\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10908	11062	
==>tring\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17859	17953	
==>ation about the software being
used by the originating server program handling the request.

=i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17859	17953	
==>ation about the software being
used by the originating server program handling the request.

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13879	13977	
==>ble = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initia <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13879	13977	
==>ble = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initia <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13879	13977	
==>ble = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initia <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3126	3222	
==>NV{PUGS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub che <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	415	530	
==>immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7620	7712	
==>----------------------------------------------------------

## NOTE:
## we want to prevent th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7620	7712	
==>----------------------------------------------------------

## NOTE:
## we want to prevent th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7620	7712	
==>----------------------------------------------------------

## NOTE:
## we want to prevent th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3769	3876	
==>cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3769	3876	
==>cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3769	3876	
==>cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hack <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2331	2419	
==>_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1818	1940	
==>$nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1757	1877	
==>$nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7028	7129	
==>ly used by the cipher itself; more often it is used by 
a block cipher mode role to add some informati <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7028	7129	
==>ly used by the cipher itself; more often it is used by 
a block cipher mode role to add some informati <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2999	3124	
==>op::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3010	3135	
==>op::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7275	7397	
==>xample

    # adds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            bef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7028	7147	
==>xample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            bef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5958	6093	
==>tribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5958	6093	
==>tribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5958	6093	
==>tribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3399	3629	
==>$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.prin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3399	3629	
==>$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4320	4429	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1446	1555	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->o <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8535	8643	
==>the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://l <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8535	8643	
==>the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39178	39261	
==>eyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::E <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39178	39261	
==>eyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14364	14470	
==>urn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14364	14470	
==>urn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14364	14470	
==>urn $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17973	18145	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18252	18424	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	34	155	
==>1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless define <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	34	155	
==>1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless define <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2782	2899	
==>g} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2782	2899	
==>g} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	760	863	
==>return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	760	863	
==>return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7272	7361	
==>er;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7272	7361	
==>er;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7272	7361	
==>er;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6012	6151	
==>me}) {
            $current->{env}->{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2207	2301	
==>::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2207	2301	
==>::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2207	2301	
==>::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15396	15491	
==>widespread use
then it needs to account for a variance of needs between its different
users, suc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36125	36220	
==>Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15396	15491	
==>widespread use
then it needs to account for a variance of needs between its different
users, suc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36125	36220	
==>Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4607	4705	
==>); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4607	4705	
==>); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4607	4705	
==>); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand()." <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17507	17598	
==>s(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,E <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2561	2700	
==>ostfix';
        return circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1687	1798	
==>e);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1687	1798	
==>e);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1687	1798	
==>e);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1227	1365	
==>oin ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1227	1365	
==>oin ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1227	1365	
==>oin ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3924	4038	
==>truct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11964	12077	
==>this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11964	12077	
==>this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11964	12077	
==>this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9068	9174	
==>) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9068	9174	
==>) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9068	9174	
==>) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	507	610	
==>$matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Rule <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11339	11473	
==>rnative {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7776	7901	
==>usion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11253	11378	
==>usion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10417	10542	
==>usion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8979	9110	
==>g ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlin <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8979	9110	
==>g ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlin <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1673	1895	
==>\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.byt <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1673	1895	
==>\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.byt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1582	1695	
==>ize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1582	1695	
==>ize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	333	419	
==>ugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2927	3013	
==>8\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	333	419	
==>ugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	330	413	
==>ugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2567	2739	
==>e($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1);
                }
            },

            'array_extendSize <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11018	11136	
==>ir->new( $a, $b ),
			$a,
		);
	},
	# (a x b) -> b
	snd => do {
		my $a = type::variable::free->new;
		my $b = type::va <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	550	645	
==>RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be encipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	550	645	
==>RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be encipher <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17489	17602	
==>.= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(cod <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10876	10988	
==>(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10876	10988	
==>(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	722	827	
==><", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33260	33356	
==>rguments sent are the walking stack and the current
depth in the walking stack.  Elements are tak <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19598	19741	
==>:main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	166	266	
==>000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	166	266	
==>000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	166	266	
==>000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use C <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7986	8082	
==>directive is reached, the next event fired will be
any text which follows the item.

=item I<end_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7986	8082	
==>directive is reached, the next event fired will be
any text which follows the item.

=item I<end_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9200	9304	
==>2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9200	9304	
==>2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $set <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4148	4249	
==>1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4148	4249	
==>1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2047	2201	
==>mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3577	3726	
==>mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6949	7085	
==>1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitra <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6949	7085	
==>1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	335	563	
==>PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	335	563	
==>PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	335	563	
==>PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1633	1777	
==>ooser',
        other => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    as <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3112	3227	
==>from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $clas <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3112	3227	
==>from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $clas <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3380	3475	
==>-> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3380	3475	
==>-> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5153	5345	
==>v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5153	5345	
==>v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5153	5345	
==>v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( ' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1025	1174	
==>(; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5236	5408	
==>els}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6506	6593	
==>@{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6506	6593	
==>@{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6506	6593	
==>@{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1820	1968	
==>spatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1820	1968	
==>spatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1820	1968	
==>spatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Objec <==
4	/Users/nnunley/pugs/util/package-osx.pl	7848	7950	
==>man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/Perl6::Spec::Operator.3pm
        /usr/local/m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7829	8018	
==>on       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11306	11495	
==>on       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10470	10659	
==>on       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi metho <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26800	26896	
==>0100000 /* Best to intuit before matching */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_A <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2799	2909	
==>';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3046	3156	
==>';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_term <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	972	1080	
==>r;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	972	1080	
==>r;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1501	1597	
==>n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1501	1597	
==>n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	947	1039	
==>ample::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	947	1039	
==>ample::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1380	1480	
==>BigInt;\n".$pil_code; # part of spec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5::X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6402	6497	
==>($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6402	6497	
==>($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6402	6497	
==>($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20099	20231	
==>it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go ab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20099	20231	
==>it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go ab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20099	20231	
==>it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go ab <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8638	8748	
==>ts>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> <H <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3148	3256	
==>}
	}
    }
}
## tweaked from PIL2JS Array.pm r8593.
#multi List::zip (Array *@arrays --> List) {
#  my $maxle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13154	13254	
==>). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13154	13254	
==>). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13154	13254	
==>). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1045	1153	
==>>id->to_native;
    # we take the MRO first, however at some early
    # stages of the bootstrap, this is not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	55	151	
==>nings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	55	151	
==>nings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	55	151	
==>nings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9101	9192	
==>st::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Lit <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2953	3078	
==>t if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            nex <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2953	3078	
==>t if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            nex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11431	11537	
==>multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14908	15014	
==>multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2389	2641	
==>d_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*? <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2389	2641	
==>d_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6135	6264	
==>f (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6135	6264	
==>f (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3536	3659	
==>y $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4853	4976	
==>y $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3536	3659	
==>y $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4841	4964	
==>y $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9671	9825	
==>ignature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6709	6810	
==>=> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6709	6810	
==>=> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6709	6810	
==>=> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2347	2484	
==>0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2347	2484	
==>0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6350	6458	
==>ft@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    } <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	92	212	
==>01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say 0^..^@a;   # '1234'

my @c = 1... <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	494	586	
==>e.

More specialised processing instructions may sub-class this module or
provide special beh <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	494	586	
==>e.

More specialised processing instructions may sub-class this module or
provide special beh <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1103	1258	
==>!! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

meth <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1103	1258	
==>!! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

meth <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	270	399	
==>gram that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12707	12815	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12707	12815	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12707	12815	
==>ction () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2561	2671	
==>args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2561	2671	
==>args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2561	2671	
==>args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6433	6524	
==>template->param("apo", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{A} }) ] <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1650	1760	
==>s I<strongly>
    # recommended.

    # safety of the individual methods is defined in Pugs.Prim.hs
    # (mayb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2296	2400	
==>$foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2296	2400	
==>$foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2296	2400	
==>$foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15667	15761	
==>ine this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15667	15761	
==>ine this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20233	20324	
==>> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callba <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20233	20324	
==>> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callba <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5288	5406	
==>ss $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5288	5406	
==>ss $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4794	4898	
==>setta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Cr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4794	4898	
==>setta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Cr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2078	2189	
==>ILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $messag <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	83	186	
==>ILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $messag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	83	186	
==>ILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $messag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	288	387	
==>Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs::Grammar::Base <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3671	3783	
==>_class => $S->force_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11446	11551	
==>urn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11446	11551	
==>urn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11446	11551	
==>urn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () { <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17051	17229	
==>>new('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), id=>0+$link, 
                         tit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3684	3775	
==>hod reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3684	3775	
==>hod reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3684	3775	
==>hod reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8307	8464	
==>[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8307	8464	
==>[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8307	8464	
==>[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30135	30227	
==>l to
the invocant Relation::Example's header, in which case it returns the identity-one
Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19213	19369	
==>6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19213	19369	
==>6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19213	19369	
==>6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31979	32077	
==>ce (?xx not recognized").  If
you want to throw your own error, see L</"ERROR HANDLING">.

=back

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15667	15803	
==>method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15667	15803	
==>method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1382	1476	
==>->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1522	1616	
==>->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6770	6868	
==>om>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8839	8937	
==>om>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec:: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6770	6868	
==>om>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec:: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8839	8937	
==>om>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec:: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16260	16350	
==>ncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Bl <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16318	16408	
==>ncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13200	13330	
==>)    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13200	13330	
==>)    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3169	3267	
==>l', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', 'VList' , 'valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11668	11765	
==>selves does Role since they
are just instances of Class which does Role too. So this means that al <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11668	11765	
==>selves does Role since they
are just instances of Class which does Role too. So this means that al <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11668	11765	
==>selves does Role since they
are just instances of Class which does Role too. So this means that al <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1746	1865	
==>its_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $grap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7600	7823	
==>d_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7600	7823	
==>d_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7600	7823	
==>d_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7095	7199	
==>lue from another Object singleton/class method');
   
is($Object->singleton_test_on_object(), 
  '&Object <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3570	3675	
==>ff();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm d <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3570	3675	
==>ff();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm d <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	617	709	
==>e.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state. <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	617	709	
==>e.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6702	6799	
==>- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6702	6799	
==>- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6702	6799	
==>- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better w <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9699	9801	
==>1") if $op{'isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7919	8013	
==>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7919	8013	
==>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7919	8013	
==>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16784	16905	
==>s) {
        _diag "# PROG: \n$prog\n";
        _diag "# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GOT:\n$results <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13951	14051	
==>ethod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13951	14051	
==>ethod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13951	14051	
==>ethod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6530	6630	
==>t($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5660	5760	
==>t($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6530	6630	
==>t($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5660	5760	
==>t($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two) <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1188	1335	
==>y o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3 <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1188	1335	
==>y o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3312	3408	
==>the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.co <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3312	3408	
==>the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.co <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1954	2152	
==>nput,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) } <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1954	2152	
==>nput,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1472	1572	
==>od union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TOD <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1472	1572	
==>od union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TOD <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10257	10368	
==>ir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built later f <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1555	1650	
==>r by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to desele <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1555	1650	
==>r by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to desele <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28787	28877	
==>s, anyof_range, assertion, branch, close,
clump, digit, exact, flags, group, groupp, minmod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	131	234	
==>use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	135	238	
==>use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	129	232	
==>use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	129	232	
==>use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9199	9310	
==>ust find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self. <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9199	9310	
==>ust find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3331	3426	
==>erence(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($mem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3331	3426	
==>erence(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($mem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8536	8650	
==>elf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::string <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8536	8650	
==>elf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::string <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8536	8650	
==>elf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::string <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2115	2218	
==>ss "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2]->store($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1435	1537	
==>fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1435	1537	
==>fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1435	1537	
==>fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $clas <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1272	1364	
==>uantifier  { \*\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3920	4034	
==>ew(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	645	757	
==>thod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	645	757	
==>thod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	645	757	
==>thod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	512	599	
==>------------------------------------------------------
## Eigenclass

$::EigenClass = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	512	599	
==>------------------------------------------------------
## Eigenclass

$::EigenClass = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	512	599	
==>------------------------------------------------------
## Eigenclass

$::EigenClass = $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18374	18574	
==>r here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18374	18574	
==>r here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18374	18574	
==>r here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23663	23765	
==>fault to True or
False, but once it has a value of False, it can not be further changed;
this class def <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28215	28317	
==>fault to True or
False, but once it has a value of False, it can not be further changed;
this class def <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27028	27130	
==>fault to True or
False, but once it has a value of False, it can not be further changed;
this class def <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20476	20567	
==>$dir_index->{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$subdir};
	while( ( exists $val->{_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3064	3194	
==>code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3064	3194	
==>code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13906	14011	
==>my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1386	1491	
==>my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub re <==
4	/Users/nnunley/pugs/util/testgraph.pl	1251	1355	
==>l - produce cross-linkable tests
   util/run-smome.pl     - automate the smoke process

USAGE
  exit 0;
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14172	14307	
==>. _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{exp1} ) . "; " . 
            _mangle_var( '$!' <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3549	3661	
==>}

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actu <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3549	3661	
==>}

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	453	577	
==>)->to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are linearizing
        (map { $_-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5949	6043	
==>OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5949	6043	
==>OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8146	8240	
==>OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1284	1415	
==>o have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4762	4893	
==>o have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depe <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	674	765	
==>le>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = P <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	674	765	
==>le>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1584	1706	
==>) {
            $vs = "[\n".$o->_indent(join(",\n",map{$_->describe}@$v))."\n]";
        } else {
            $vs = $v->des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3258	3372	
==>tes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3258	3372	
==>tes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3258	3372	
==>tes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14471	14622	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14471	14622	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14471	14622	
==>lf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4803	4948	
==>ame ($role->get_method_list) {
            # if we already have the method, then
            # ignore it and go to the next one
            next i <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6623	6738	
==>package Regexp::Parser::reg_any;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40105	40214	
==>fy( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40105	40214	
==>fy( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40105	40214	
==>fy( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6653	6765	
==>e []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6653	6765	
==>e []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6653	6765	
==>e []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24464	24578	
==>,2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24464	24578	
==>,2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24464	24578	
==>,2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17876	17982	
==>y($re,$s)=@_;
  my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	487	593	
==>the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	487	593	
==>the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7234	7333	
==>code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7246	7345	
==>code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9668	9781	
==>= $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with h <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9668	9781	
==>= $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with h <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12373	12468	
==>ogress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HT <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12373	12468	
==>ogress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HT <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3214	3365	
==>symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_random ( Num $x ) {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2254	2387	
==>on (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2254	2387	
==>on (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2254	2387	
==>on (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20398	20565	
==>s;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20398	20565	
==>s;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20398	20565	
==>s;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $sel <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17615	17771	
==>ubstr($fmt,$fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2956	3058	
==>say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A") <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2956	3058	
==>say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A") <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18041	18138	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its desce <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18041	18138	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its desce <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4151	4270	
==>.. , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4006	4122	
==>.. , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	16	118	
==>T::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	16	118	
==>T::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13951	14076	
==>e kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17428	17553	
==>e kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16808	16933	
==>e kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7922	8038	
==>x($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to see if an <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	644	746	
==>if ($sub =~ /$regex/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4136	4253	
==>param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4136	4253	
==>param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4136	4253	
==>param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	244	350	
==>rsion = shift;
    die "Install version must be 5 or 6 for WritePugs"
      unless $install_version =~ /^[5 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1389	1498	
==>{
			return $self->{names}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Uti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	833	930	
==>( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	833	930	
==>( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	913	1010	
==>( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21878	21973	
==>essage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20759	20854	
==>essage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21878	21973	
==>essage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20759	20854	
==>essage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8752	8881	
==>{ $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8752	8881	
==>{ $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8752	8881	
==>{ $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
4	/Users/nnunley/pugs/util/grokprims.pl	1055	1164	
==>y $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1523	1623	
==>l_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1567	1667	
==>e characteristics
#  of particular regex engines.  Its structure follows the spec.  If for
#  instanc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1523	1623	
==>l_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1523	1623	
==>l_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4518	4631	
==>> $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7995	8108	
==>> $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6988	7101	
==>> $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32043	32138	
==>or this object (for flag assertions
and C<(?:...)>).

=item omit

Whether this object is omitted <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	623	730	
==>w methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	623	730	
==>w methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	623	730	
==>w methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4759	4846	
==>ange_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_range_bounds_RHS(_Min,-)   --> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2087	2229	
==>ds ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for b <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3456	3590	
==>ds ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21054	21145	
==>ill automatically be compiled into .pmc files and shipped with your
distribtution precompile <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21054	21145	
==>ill automatically be compiled into .pmc files and shipped with your
distribtution precompile <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2372	2470	
==>,
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2372	2470	
==>,
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2372	2470	
==>,
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix <==
4	/Users/nnunley/pugs/util/func_refact.pl	213	315	
==>ntaining nodes data produced by --nodes
of graphfuncs.pl. Will print initial set sizes for all function <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2596	2686	
==>lti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2596	2686	
==>lti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2596	2686	
==>lti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11450	11620	
==>_ );
        return if $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7788	7927	
==>d $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7788	7927	
==>d $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7788	7927	
==>d $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2284	2519	
==>bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1044	1215	
==>bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1044	1215	
==>bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8000	8097	
==>oBar->does('rBar'), '... FooBar does rBar');

# and our instances do the roles as well
my $iFooBar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9418	9519	
==>var($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9418	9519	
==>var($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9418	9519	
==>var($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lex <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3010	3110	
==>turn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Objec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3010	3110	
==>turn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Objec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19782	19876	
==>et an authorization header that use the
"Basic Authentication Scheme".  In array context it wil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19782	19876	
==>et an authorization header that use the
"Basic Authentication Scheme".  In array context it wil <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11231	11337	
==>ich it
    passed, this page would report 100 % test passes.)
  </p>

  <table>
    <tmpl_loop name=runcore <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23322	23419	
==>xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23322	23419	
==>xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23322	23419	
==>xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	22	116	
==>xists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	22	116	
==>xists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	22	116	
==>xists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5018	5132	
==>ure that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5018	5132	
==>ure that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5152	5240	
==>thod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
met <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5152	5240	
==>thod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
met <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6457	6562	
==>@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17966	18058	
==>x:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17966	18058	
==>x:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17966	18058	
==>x:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28375	28481	
==>); no attribute values are escaped and you shouldn't try to
extract them.  This method is also defined as t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35731	35837	
==>); no attribute values are escaped and you shouldn't try to
extract them.  This method is also defined as t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28375	28481	
==>); no attribute values are escaped and you shouldn't try to
extract them.  This method is also defined as t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35731	35837	
==>); no attribute values are escaped and you shouldn't try to
extract them.  This method is also defined as t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5230	5325	
==>input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5230	5325	
==>input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5230	5325	
==>input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8543	8639	
==>2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8543	8639	
==>2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8543	8639	
==>2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8386	8481	
==>er = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fmap(sub {
			Blondie: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8	113	
==>mon/iterator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, loo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8	108	
==>mon/iterator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, loo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	38	137	
==>mon/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, loo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	38	137	
==>mon/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, loo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4499	4623	
==>path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4499	4623	
==>path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($ <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	296	416	
==>se};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	197	317	
==>se};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5572	5713	
==>([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6840	6981	
==>([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5572	5713	
==>([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6828	6969	
==>([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17575	17748	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18232	18405	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17854	18027	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18511	18684	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6098	6193	
==>ol`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arra <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8166	8261	
==>ol`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arra <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6098	6193	
==>ol`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arra <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8166	8261	
==>ol`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8744	8852	
==>r::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8740	8848	
==>r::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2127	2232	
==>op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2127	2232	
==>op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2705	2825	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2705	2825	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3986	4105	
==>ros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3846	3961	
==>ros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates per <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6149	6253	
==>t::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  par <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6149	6253	
==>t::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  par <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5835	6066	
==>else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 N <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5835	6066	
==>else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 N <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3196	3425	
==>else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 N <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3196	3425	
==>else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2100	2205	
==>1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2100	2205	
==>1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2100	2205	
==>1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5799	6022	
==>s'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5799	6022	
==>s'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5799	6022	
==>s'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubNa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	886	987	
==>r lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	886	987	
==>r lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	886	987	
==>r lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifie <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2197	2355	
==>]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2257	2415	
==>]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1, <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9852	9944	
==>b param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
mu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9852	9944	
==>b param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1684	1789	
==>et_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1684	1789	
==>et_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1920	2025	
==>et_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9207	9326	
==>';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9207	9326	
==>';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30173	30266	
==>string may also contain variable names that correspond
to Message Variables, which will be sub <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30173	30266	
==>string may also contain variable names that correspond
to Message Variables, which will be sub <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3405	3636	
==>'paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3453	3684	
==>'paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !( <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3405	3636	
==>'paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3453	3684	
==>'paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1168	1269	
==>ainer_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1168	1269	
==>ainer_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1168	1269	
==>ainer_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16829	16925	
==>timize

Eliminates redundancy from a regex.  It should have various options,
such as whether to d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4774	4883	
==>ors

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4774	4883	
==>ors

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1539	1644	
==>return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method tod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1539	1644	
==>return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method tod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5182	5437	
==>) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5182	5437	
==>) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11777	11868	
==>rtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11777	11868	
==>rtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4940	5038	
==>}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4940	5038	
==>}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10620	10715	
==>es a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRU <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10620	10715	
==>es a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRU <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	248	344	
==>ars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'Module::In <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3769	3864	
==>e, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3769	3864	
==>e, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3769	3864	
==>e, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	776	912	
==>w ($) {
    my ($table) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        return $table  if $message eq 'm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12852	12955	
==>umfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12852	12955	
==>umfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12852	12955	
==>umfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2881	2996	
==>Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explana <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2881	2996	
==>Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explana <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4405	4520	
==>Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explana <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17069	17172	
==>neric (id is polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28423	28522	
==>dn't try to
extract them.  This method is also defined as the implicit handler when
coercing this ob <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35779	35878	
==>dn't try to
extract them.  This method is also defined as the implicit handler when
coercing this ob <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28423	28522	
==>dn't try to
extract them.  This method is also defined as the implicit handler when
coercing this ob <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35779	35878	
==>dn't try to
extract them.  This method is also defined as the implicit handler when
coercing this ob <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8065	8157	
==>ex->{_files}} : ());
    my $template = HTML::Template->new(filename => 'util/catalog_tmpl/di <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4585	4701	
==>ue">,   %pad<"isLazy">,
            %pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pad<"par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7318	7423	
==>IL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7318	7423	
==>IL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7318	7423	
==>IL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$ca <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2837	2971	
==>ostinst'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4446	4537	
==>hem into
New::Namespace. This completely overrides whatever blessing they had
before.

=item <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4446	4537	
==>hem into
New::Namespace. This completely overrides whatever blessing they had
before.

=item <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4446	4537	
==>hem into
New::Namespace. This completely overrides whatever blessing they had
before.

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3479	3627	
==>_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3479	3627	
==>_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3479	3627	
==>_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{m <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	770	907	
==>self = shift;
        my $f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    packa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8737	8905	
==>, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5097	5265	
==>, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5946	6114	
==>, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23289	23379	
==>be employed when objects of
multiple different Relation-implementing classes are used toget <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	77	183	
==>ublished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan B <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	78	184	
==>ublished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan B <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	78	184	
==>ublished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan B <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1156	1251	
==>gexp modification macros work, etc.
  Working with a p5 accessible runtime (pil2js or pilrun), a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	814	924	
==>yseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @seqs);
        # return the list if we have no more <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1221	1313	
==>o rebless everything down to your project's base namespace.

Class::Rebless walks scalar, arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1221	1313	
==>o rebless everything down to your project's base namespace.

Class::Rebless walks scalar, arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1221	1313	
==>o rebless everything down to your project's base namespace.

Class::Rebless walks scalar, arr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3455	3560	
==>lass;
  $object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    . <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5470	5568	
==>ion
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5470	5568	
==>ion
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7667	7765	
==>ion
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23782	23881	
==>E message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22555	22654	
==>E message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23782	23881	
==>E message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22555	22654	
==>E message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automat <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1237	1350	
==>1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1204	1317	
==>1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	283	383	
==>crypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with byt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	283	383	
==>crypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with byt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8261	8401	
==>t rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4621	4761	
==>t rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5470	5610	
==>t rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4979	5088	
==>kage_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode <==
4	/Users/nnunley/pugs/util/importgraph.pl	1934	2035	
==>r/^IMC\b/);
setup_cluster('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14297	14381	
==>ibute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14297	14381	
==>ibute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14297	14381	
==>ibute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1931	2034	
==>e have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1931	2034	
==>e have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1931	2034	
==>e have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26064	26158	
==>being executed through the harness
or by any other means.

=item C<HARNESS_COLUMNS>

This value <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	931	1066	
==>bose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc = ($f => 1);
        print "cal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3029	3127	
==>$_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3029	3127	
==>$_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3029	3127	
==>$_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_sl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1231	1341	
==>O - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1231	1341	
==>O - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_i <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14752	14836	
==>C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14752	14836	
==>C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20371	20483	
==>, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0

    if self != "(" goto init
    self["is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	16	117	
==>JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_meth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	16	117	
==>JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_meth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	16	117	
==>JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1297	1399	
==>iler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	90	191	
==>ss keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	90	191	
==>ss keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	90	191	
==>ss keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6158	6340	
==>de $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift / <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6158	6340	
==>de $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift / <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23895	24025	
==>/
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29072	29173	
==>/
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2130	2243	
==>} elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3120	3210	
==>.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3120	3210	
==>.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3467	3557	
==>.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2824	2936	
==>t if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2824	2936	
==>t if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2824	2936	
==>t if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	247	339	
==>$?CLASS, "associations", "Set", { companion => "class" });
Has($?CLASS, "reverse_assocs", "Se <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6186	6342	
==>vents<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we ne <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5259	5415	
==>vents<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we ne <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6186	6342	
==>vents<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we ne <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5259	5415	
==>vents<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we ne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1032	1347	
==>re:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4562	4662	
==>!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4562	4662	
==>!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	623	749	
==>fied',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthori <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	623	749	
==>fied',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthori <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2304	2422	
==>or %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2304	2422	
==>or %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7740	7846	
==>>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in th <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2797	2921	
==>$self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2797	2921	
==>$self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.s <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	441	534	
==>$filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl - <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	441	534	
==>$filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl - <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1011	1110	
==>TTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHO <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1011	1110	
==>TTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1558	1657	
==>TTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHO <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5838	5991	
==>y test!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5191	5341	
==>h => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5191	5341	
==>h => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5191	5341	
==>h => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16101	16205	
==>e}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined global it's an error. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2004	2134	
==>WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2004	2134	
==>WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2004	2134	
==>WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	577	683	
==>nce=>'>', other=>'+', rule=>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	165	270	
==>ap { ("&infix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6585	6683	
==>!($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10062	10160	
==>!($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9154	9252	
==>!($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relati <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3693	3793	
==>d -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1109	1219	
==>ew(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the core symbol type

=head1 METHODS

=over 4

=item B<new ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4324	4425	
==>native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4324	4425	
==>native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4324	4425	
==>native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4873	5003	
==>l};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast->{pos} = $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15739	15848	
==>d(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15739	15848	
==>d(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15739	15848	
==>d(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34512	34615	
==>l6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34512	34615	
==>l6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34512	34615	
==>l6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1740	1837	
==>ot($return_value) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bin <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1301	1475	
==>= $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4540	4714	
==>= $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1301	1475	
==>= $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4540	4714	
==>= $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $o <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14264	14362	
==>menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu.lst\"",
  ensure => sub { -r "$cdr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21851	21970	
==>my $sigil = substr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	182	281	
==>Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	182	281	
==>Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	182	281	
==>Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_ti <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2806	2922	
==>ape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	629	730	
==>kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash eleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	629	730	
==>kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash eleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	629	730	
==>kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash eleme <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1700	1816	
==>. "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2480	2596	
==>. "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2285	2393	
==>tch), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2502	2610	
==>tch), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3468	3576	
==>rinking;
>   clad in mail, never clinking.
-}


module Pugs.Config (
    config,
    getConfig
) where

impor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3614	3706	
==>fic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$numb <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3614	3706	
==>fic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$numb <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5811	5903	
==>fic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$numb <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7371	7539	
==>cy_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $o <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7835	8003	
==>cy_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $o <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5818	5938	
==>e) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5300	5420	
==>e) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16383	16529	
==>eg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *subst <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20809	20955	
==>eg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3378	3554	
==>}
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3378	3554	
==>}
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3378	3554	
==>}
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	98	212	
==>se JIB::Package;

use File::chdir;
use File::Basename          qw[basename];
use File::Temp              qw[tempdir <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7392	7599	
==>y, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7856	8063	
==>y, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # re <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1905	2023	
==>my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10194	10312	
==>ining:

    bool  - an "assertion" (true/false)
    from  - string pointer for start of this match
    to    - stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1679	1783	
==>ub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1679	1783	
==>ub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1915	2019	
==>ub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1189	1291	
==>*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1189	1291	
==>*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1189	1291	
==>*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21493	21590	
==>onding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20374	20471	
==>onding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21493	21590	
==>onding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20374	20471	
==>onding message.
Event names which are all lowercase are "pseudo" events. See below for a list
of p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	129	249	
==>tr, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	129	249	
==>tr, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11779	11879	
==>har_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
up <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11773	11873	
==>har_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
up <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14174	14292	
==>le($synpod, $synhtml);
        
        # and parse it into a tree
        my $sobj = HTML::TreeBuilder->new_from_file( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2536	2632	
==>nd::Perl::Interpreter - A perl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    u <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8564	8659	
==>nterpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8564	8659	
==>nterpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This <==
4	/Users/nnunley/pugs/misc/S29_round.pl	850	964	
==>_down_symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given abs($x) - floor( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3454	3722	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3454	3722	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1805	1918	
==>Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7 <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1805	1918	
==>Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	558	656	
==>module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	558	656	
==>module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do e <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	859	956	
==>al parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	859	956	
==>al parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3170	3286	
==>c =~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3205	3311	
==>e have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3205	3311	
==>e have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3205	3311	
==>e have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	603	772	
==>ion itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	91	191	
==>END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	59	159	
==>END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	91	191	
==>END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gram <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22906	23005	
==>ing(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27458	27557	
==>ing(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Map <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15674	15769	
==>er often prefers to
communicate in those languages.  Or, when viewing an error message, the
appl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15674	15769	
==>er often prefers to
communicate in those languages.  Or, when viewing an error message, the
appl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2260	2392	
==>);

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2807	2939	
==>);

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3354	3486	
==>);

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24355	24593	
==>od( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24355	24593	
==>od( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24355	24593	
==>od( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	155	246	
==>tions-Aufruf
print "100£ sind @{[PoundToEuro(100)]}€\n";
# gibt '100£ sind 146.56€' au <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5356	5457	
==>B Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5356	5457	
==>B Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5356	5457	
==>B Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfir <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3074	3175	
==>e($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($1, $2);
    $c =~ s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2691	2787	
==>data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2691	2787	
==>data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }" <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1069	1160	
==>object-oriented interfaces both follow the same basic steps, 
albeit with different interfac <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1069	1160	
==>object-oriented interfaces both follow the same basic steps, 
albeit with different interfac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9207	9314	
==>...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $sel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9207	9314	
==>...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15889	15985	
==>e also written
several books and papers and taught classes on the subject over the last
35+ years <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15889	15985	
==>e also written
several books and papers and taught classes on the subject over the last
35+ years <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4491	4593	
==>age information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4491	4593	
==>age information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4491	4593	
==>age information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3372	3462	
==>d('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3372	3462	
==>d('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3372	3462	
==>d('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18511	18637	
==>from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14932	15058	
==>from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # c <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2977	3073	
==>ailable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate t <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2977	3073	
==>ailable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4023	4128	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedTe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4023	4128	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedTe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22806	22902	
==>n",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22806	22902	
==>n",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37146	37262	
==>};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37146	37262	
==>};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37146	37262	
==>};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	970	1068	
==>e => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::P <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6515	6646	
==>ub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6572	6703	
==>ub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1095	1214	
==>ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, g <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1095	1214	
==>ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2283	2379	
==>ash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2283	2379	
==>ash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2283	2379	
==>ash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1512	1613	
==>(Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16713	16814	
==>rl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result in <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1512	1613	
==>(Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^la <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16713	16814	
==>rl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7050	7164	
==>_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7062	7176	
==>_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26212	26312	
==>opyright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the co <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26212	26312	
==>opyright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12052	12205	
==>okie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be call <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12052	12205	
==>okie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20871	20971	
==>s a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_su <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20871	20971	
==>s a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25021	25128	
==>but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23785	23892	
==>but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenb <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25021	25128	
==>but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenb <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23785	23892	
==>but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1687	1829	
==>+;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clon <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1687	1829	
==>+;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clon <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29343	29440	
==>ch rather than printing its output returns raw data
on the state of the tests.  (Partially done in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	190	284	
==>_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5084	5209	
==>nverter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5084	5209	
==>nverter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10697	10790	
==>IVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10697	10790	
==>IVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5996	6129	
==>($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5996	6129	
==>($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5996	6129	
==>($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	418	545	
==>vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _al <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	418	545	
==>vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _al <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	418	545	
==>vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _al <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2788	2902	
==>e

rule TAB  { \x0009 }
rule VT   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 }
rule US <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11686	11792	
==>l's regex interprets the '\N' as a needlessly backslashed 'N'.  My
module parses them and handles them prop <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	258	352	
==>=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	258	352	
==>=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16072	16162	
==>ers

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16130	16220	
==>ers

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	357	491	
==>( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14458	14550	
==>();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14458	14550	
==>();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14458	14550	
==>();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8995	9095	
==>y = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8995	9095	
==>y = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8995	9095	
==>y = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of typ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4061	4159	
==>ead1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; you can r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18181	18321	
==>od;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	863	973	
==>h.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	863	973	
==>h.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	863	973	
==>h.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        / <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1480	1584	
==>sts if we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4147	4243	
==>DS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, crea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4147	4243	
==>DS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5671	5767	
==>DS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, crea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6095	6201	
==>w
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6095	6201	
==>w
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6095	6201	
==>w
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12383	12478	
==>dren).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and errnum() methods t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3947	4097	
==>n = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3947	4097	
==>n = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4475	4619	
==>n = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4475	4619	
==>n = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1453	1553	
==>cessor).

Run-time inheritance/method dispatch need not look at the meta
objects; each dispatch table <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	923	1019	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	923	1019	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	923	1019	
==>L::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroy <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1912	2029	
==>ke it ready for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1934	2048	
==>$self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1934	2048	
==>$self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1934	2048	
==>$self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $sel <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26764	26874	
==>nges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3233	3347	
==>_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3233	3347	
==>_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3233	3347	
==>_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $h <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6557	6665	
==>hash representing
how that script failed.  Its keys are these:

    name        Name of the test which failed <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15116	15278	
==>ag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	671	763	
==>n $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	671	763	
==>n $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	671	763	
==>n $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	260	361	
==>);

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) f <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	260	361	
==>);

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10528	10629	
==>it is ignoring it.

The iterator will return undef when it has reached the end of the tree;
it will th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24441	24648	
==>( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24441	24648	
==>( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24441	24648	
==>( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6276	6393	
==>"$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6276	6393	
==>"$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $prog <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14677	14772	
==>r
values are not folded.

The optional $eol parameter specifies the line ending sequence to
use. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14677	14772	
==>r
values are not folded.

The optional $eol parameter specifies the line ending sequence to
use. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	464	560	
==>onfig{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' exec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37665	37756	
==>Example $other!) returns Relation::Example>

This method is a generic relational operator th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38254	38345	
==>Example $other!) returns Relation::Example>

This method is a generic relational operator th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38505	38596	
==>Example $other!) returns Relation::Example>

This method is a generic relational operator th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10143	10246	
==>---------------------------------  
    # collects all the roles, and applies them to the
    # invocant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10143	10246	
==>---------------------------------  
    # collects all the roles, and applies them to the
    # invocant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10143	10246	
==>---------------------------------  
    # collects all the roles, and applies them to the
    # invocant <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29853	29951	
==>ithout a matching left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  However, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10851	10959	
==>f=\$_[0];my($vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37797	37893	
==>f the source relations.  The body of the new relation is
the result of first pairwise-matching ev <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42346	42442	
==>f the source relations.  The body of the new relation is
the result of first pairwise-matching ev <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41996	42092	
==>f the source relations.  The body of the new relation is
the result of first pairwise-matching ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17989	18105	
==>ush( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17989	18105	
==>ush( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17989	18105	
==>ush( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	692	797	
==>R "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	8	135	
==>rn_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	8	135	
==>rn_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9682	9793	
==>g },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9682	9793	
==>g },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($chann <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	303	417	
==>S_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	794	908	
==>S_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	303	417	
==>S_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	794	908	
==>S_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10041	10150	
==>connect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	367	476	
==>.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10041	10150	
==>connect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	367	476	
==>.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5853	5948	
==>ate_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5853	5948	
==>ate_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5853	5948	
==>ate_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6434	6520	
==>simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa("Blondie::TypeSafe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3323	3427	
==>Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock );



but <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3206	3305	
==>Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock );

but <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2673	2771	
==>e;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2673	2771	
==>e;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10132	10229	
==>}
rule RegularExpressionLiteral {  # see 7.8.5
      <'/'> <RegularExpressionBody> <'/'> <RegularE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2747	2837	
==>ispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2747	2837	
==>ispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2747	2837	
==>ispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11265	11377	
==>r(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence(char(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - conn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17927	18063	
==>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17927	18063	
==>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17927	18063	
==>$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5094	5210	
==>% **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5094	5210	
==>% **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5094	5210	
==>% **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitiv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30221	30312	
==>e
Relation::Example or the invocant Relation::Example respectively.  This method will fail i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	211	314	
==>nsions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	211	314	
==>nsions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	211	314	
==>nsions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15273	15372	
==>ssion>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpression> <'>>'> <AdditiveE <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9903	10021	
==>pendency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11380	11498	
==>pendency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7758	7872	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7951	8065	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1980	2170	
==>eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1980	2170	
==>eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1980	2170	
==>eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8877	8988	
==>hift, shift);

	$x->{name} eq $y->{name}
		or die "Can't unify $x->{name} with $y->{name} in " . Dumper(@_);

	u <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	217	373	
==>r {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	217	373	
==>r {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	940	1046	
==>> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
rege <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	940	1046	
==>> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
rege <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10616	10735	
==>],
    [$inputrc              => "$initrd_mnt/etc/inputrc"],
    [$terminfo             => "$initrd_mnt/etc/terminfo/l/l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	346	444	
==>s etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	346	444	
==>s etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	346	444	
==>s etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT | <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11353	11515	
==>f, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	952	1054	
==>->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	952	1054	
==>->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	952	1054	
==>->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12261	12355	
==>method semijoin (Relation::Example $other!) returns Relation::Example {

    die "The heading o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6500	6586	
==>on'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6500	6586	
==>on'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6500	6586	
==>on'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12278	12380	
==>ines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single li <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12278	12380	
==>ines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single li <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14495	14596	
==>NSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14495	14596	
==>NSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1536	1646	
==>env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1536	1646	
==>env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1536	1646	
==>env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTok <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37365	37460	
==>d Relation::Example contains only tuples that are in
all of the source Relations.  This method h <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2124	2225	
==>y @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrenc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4343	4444	
==>y @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2124	2225	
==>y @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4343	4444	
==>y @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7443	7553	
==>>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7443	7553	
==>>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7443	7553	
==>>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private metho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4182	4275	
==>f expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4182	4275	
==>f expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4262	4355	
==>f expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1044	1157	
==>ackage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1249	1362	
==>ackage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1310	1423	
==>ackage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14147	14259	
==>>name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3004	3118	
==>lass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3004	3118	
==>lass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3004	3118	
==>lass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curren <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18405	18514	
==>->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5596	5698	
==>^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5596	5698	
==>^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5596	5698	
==>^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6578	6673	
==>ve) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4090	4191	
==>::abs_path($FindBin::Bin);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
        delete $ar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	99	198	
==>it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	99	198	
==>it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6985	7084	
==>use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of the various types depends on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6700	6840	
==>ersed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6700	6840	
==>ersed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6700	6840	
==>ersed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $sta <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2101	2216	
==>_o $exename.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is yo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6476	6592	
==>bstr($X::str,$X::pos,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '$';
    die "didn't impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	866	961	
==>so works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	866	961	
==>so works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	866	961	
==>so works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1603	1719	
==>il);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1603	1719	
==>il);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1603	1719	
==>il);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Co <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1085	1173	
==>Token("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7803	7927	
==>tore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7803	7927	
==>tore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7803	7927	
==>tore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19432	19531	
==>trol::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = Inf --> Num )
{
    Pugs::Intern <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5534	5629	
==>), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5534	5629	
==>), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7058	7153	
==>), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5491	5612	
==>> Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5491	5612	
==>> Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5491	5612	
==>> Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	317	433	
==>$class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled(sub {
       	my $grammar = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5443	5586	
==>en all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./cur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5443	5586	
==>en all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./cur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20466	20562	
==>d instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20466	20562	
==>d instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

= <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	823	912	
==>has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.righ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1015	1104	
==>has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.righ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	823	912	
==>has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.righ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1015	1104	
==>has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.righ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2722	2855	
==>nstance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2722	2855	
==>nstance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2722	2855	
==>nstance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global F <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21295	21398	
==>trs->data[0].min_offset
 #define float_substr     substrs->data[1].substr
 #define float_utf8       subs <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	234	358	
==>ation.

=head1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2268	2362	
==>onstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2268	2362	
==>onstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2268	2362	
==>onstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22539	22750	
==>L IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22539	22750	
==>L IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22539	22750	
==>L IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param <==
4	/Users/nnunley/pugs/util/grokprims.pl	2018	2141	
==>ty == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12408	12524	
==>e_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12408	12524	
==>e_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12408	12524	
==>e_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_inst <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3808	3898	
==>NotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule Po <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4189	4290	
==>ntersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3316	3417	
==>ntersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4189	4290	
==>ntersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3316	3417	
==>ntersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11597	11698	
==>eGrammar;

{
	# please forgive me
	my $orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	453	566	
==>before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	453	566	
==>before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8246	8356	
==>d eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind =~ s/^Sub(\w+)$/$1/;

    my $code_body = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27453	27547	
==>or Perl 5 regexes

=head1 DESCRIPTION

This module contains the object definitions for F<Regexp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9927	10097	
==>.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9927	10097	
==>.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3412	3528	
==>ift) <p6ws> <variable> <p6ws>? \, <p6ws>?
    $<code> := (.*?) <p6ws>? \;
        { return { _push => $() ,} }
RULE
* <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4142	4235	
==>23078164062;
     # http://www.research.att.com/~njas/sequences/A000796
 }

multi Math::Unspec <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28296	28407	
==>ging purposes (such as to test that the object's contents look
good at a glance); no attribute values are escape <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35652	35763	
==>ging purposes (such as to test that the object's contents look
good at a glance); no attribute values are escape <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28296	28407	
==>ging purposes (such as to test that the object's contents look
good at a glance); no attribute values are escape <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35652	35763	
==>ging purposes (such as to test that the object's contents look
good at a glance); no attribute values are escape <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10043	10170	
==>max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down into quant below.
    sub{
      my $c = $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	484	592	
==>erpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
pri <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2457	2554	
==>/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    p <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2457	2554	
==>/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7189	7301	
==>ssages since we try to
# be compatible with Test::More::skip().
sub skip {
    my $why = shift;
    my $n    = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13781	13872	
==>n::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_una <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13781	13872	
==>n::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_una <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13781	13872	
==>n::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_una <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43242	43495	
==>'$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'method'
            ),
            sub {
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2259	2418	
==>_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1584	1710	
==>elude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, even if i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1379	1503	
==>elude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is always required, even if i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4783	4884	
==>s}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4783	4884	
==>s}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4783	4884	
==>s}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14699	14797	
==>ze quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splashscreen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3565	3749	
==>atches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4493	4673	
==>atches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3454	3634	
==>atches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4493	4673	
==>atches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3962	4117	
==>>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3962	4117	
==>>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3962	4117	
==>>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	944	1038	
==>g = JIB::Package->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Sour <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	244	334	
==>/ Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/B <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24419	24509	
==>append(C0,CL,C1).
match_captures_set(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n(N,X,C0,C1). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	244	334	
==>/ Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	244	334	
==>/ Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12748	12855	
==>ss);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12748	12855	
==>ss);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12748	12855	
==>ss);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2543	2638	
==>my $total_files;
my $syn_indexs;
my @syn;

my $help;
my $no_designdocs;
GetOptions('test_dirs=s@ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9311	9490	
==>reate_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9311	9490	
==>reate_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6422	6556	
==>n 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6422	6556	
==>n 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6472	6609	
==>null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6472	6609	
==>null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6472	6609	
==>null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1085	1200	
==>hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. u <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1044	1272	
==>ing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<en <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1044	1272	
==>ing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<en <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9882	9997	
==>n "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantifie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9876	9991	
==>n "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantifie <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2160	2257	
==>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=he <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2160	2257	
==>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=he <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1939	2035	
==>rovided with any tags, it will intuit one by extracting the 
last component of the calling functi <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1939	2035	
==>rovided with any tags, it will intuit one by extracting the 
last component of the calling functi <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1923	2020	
==>C<note> is not provided with any tags, it will intuit one by extracting the 
last component of the <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1923	2020	
==>C<note> is not provided with any tags, it will intuit one by extracting the 
last component of the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9342	9437	
==>l C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9342	9437	
==>l C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

= <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32984	33084	
==>r

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more ele <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1884	1984	
==>todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32984	33084	
==>r

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more ele <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1942	2042	
==>todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13895	14067	
==>$string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4004	4152	
==>$string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4004	4152	
==>$string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4004	4152	
==>$string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	238	361	
==>$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	238	361	
==>$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	238	361	
==>$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11282	11369	
==>ance calling metaclass method fails';
fails_ok { $iBar->another_singleton_test_on_object <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12446	12630	
==>est{skipped},
                                                    @{$test{failed}});
                    print "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38399	38516	
==>l, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38399	38516	
==>l, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38399	38516	
==>l, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6431	6532	
==>pe eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6431	6532	
==>pe eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6431	6532	
==>pe eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1494	1595	
==>s "The right hand side must be a core type";    
    return num->new($left->to_native * $right->to_num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2740	2843	
==>ft;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2740	2843	
==>ft;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2740	2843	
==>ft;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $name <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1701	1798	
==>GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, "%d", x);
	return target;
}
C
}

__PACKAGE__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	96	197	
==>s %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	96	197	
==>s %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	96	197	
==>s %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26890	26984	
==>e-named accessor method can be used to see if a Relation::Example-doing object
can mutate.  Dep <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19877	19972	
==>hanged afterwards.

If you want something similar but that is more mutable, you can accomplish
t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24429	24524	
==>hanged afterwards.

If you want something similar but that is more mutable, you can accomplish
t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22981	23076	
==>hanged afterwards.

If you want something similar but that is more mutable, you can accomplish
t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26616	26706	
==>=item C<HARNESS_DEBUG>

If true, Test::Harness will print debugging information about itsel <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	403	543	
==>prelude    => 1,
    precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '', <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6371	6472	
==>tore $grub_uri => $grub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17373	17473	
==>_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17373	17473	
==>_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bo <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7870	7993	
==>Remove -Wl flags in Perl5 embedding.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map Fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1091	1209	
==>ions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1091	1209	
==>ions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1091	1209	
==>ions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelud <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	94	351	
==>symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	94	351	
==>symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	94	351	
==>symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	94	351	
==>symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10265	10363	
==>ew, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8158	8256	
==>ew, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10265	10363	
==>ew, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8158	8256	
==>ew, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the s <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	247	349	
==>path );
my $fullname = join '.', @path, $name;
my $data = uc("__${name}__");

open OUT, "> $out" or die <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	542	641	
==>t(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	542	641	
==>t(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	542	641	
==>t(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14804	14941	
==>6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15083	15220	
==>6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1531	1629	
==>:key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, ro <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1531	1629	
==>:key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, ro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15007	15103	
==>{ ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $tex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15007	15103	
==>{ ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $tex <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2068	2265	
==>r');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_be <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2068	2265	
==>r');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_be <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20606	20723	
==>e.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pugs: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	782	882	
==>e rules, eg StringNumericLiteral, are not used in parsing JavaScript,
#     but rather in implementin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23963	24103	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24242	24382	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'ter <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	220	340	
==>d_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escap <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	220	340	
==>d_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escap <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5616	5720	
==>nd;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5616	5720	
==>nd;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1395	1536	
==>end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4634	4775	
==>end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1395	1536	
==>end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4634	4775	
==>end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $c <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1429	1573	
==>w(:node<Complex>).add_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.new(:node<Rat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10176	10304	
==>};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10176	10304	
==>};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10176	10304	
==>};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	918	1047	
==>S

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2487	2582	
==>S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2487	2582	
==>S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2487	2582	
==>S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17180	17323	
==>apture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17459	17602	
==>apture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	620	727	
==>}
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	620	727	
==>}
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7615	7753	
==>]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7615	7753	
==>]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7615	7753	
==>]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3 <==
4	/Users/nnunley/pugs/util/addauthors.pl	1026	1143	
==>)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4664	4786	
==>?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4664	4786	
==>?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4664	4786	
==>?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1307	1411	
==>r loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled v <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7466	7593	
==>'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7523	7650	
==>'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10417	10514	
==>fatal to insert an item which is already inserted.  In fact,
this is commonly used for directed gr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10417	10514	
==>fatal to insert an item which is already inserted.  In fact,
this is commonly used for directed gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1651	1892	
==>"\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5399	5521	
==>->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5399	5521	
==>->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5399	5521	
==>->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22019	22119	
==>sPrint(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	90	184	
==>) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	90	184	
==>) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	90	184	
==>) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10067	10266	
==>ew(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2122	2299	
==>ew(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2122	2299	
==>ew(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2831	2947	
==>c;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21009	21296	
==>m => "n",
                body => cond(
                    if => comb(
                        fun => ide("is_nil?"),
                        param => ide("xs"),
                    ),
                    then => val("n"),
                    else => comb(
                        fun => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	792	881	
==>rement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	792	881	
==>rement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	792	881	
==>rement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mult <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18231	18345	
==>ring token
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3965	4069	
==>(my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3965	4069	
==>(my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3965	4069	
==>(my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	632	749	
==>->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	632	749	
==>->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	632	749	
==>->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1843	1943	
==>pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCompile->new($type=>$f)->as_p5();
} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19848	20065	
==>block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40308	40525	
==>block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2575	2735	
==>gnostic') },        
        'description' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	984	1176	
==>item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	984	1176	
==>item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11129	11225	
==>ontext.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not chang <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11129	11225	
==>ontext.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not chang <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1226	1366	
==>ping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unle <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1226	1366	
==>ping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unle <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3031	3131	
==>empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3031	3131	
==>empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9011	9136	
==>n::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9809	9934	
==>n::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10718	10843	
==>n::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11544	11669	
==>n::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the invocant relat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	345	454	
==>lass             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19818	19908	
==>_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19818	19908	
==>_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19818	19908	
==>_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	646	742	
==>1
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	646	742	
==>1
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	646	742	
==>1
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are no <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	803	896	
==>ckend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->compile($progra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4030	4143	
==>ink the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You giv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4030	4143	
==>ink the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You giv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4030	4143	
==>ink the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You giv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16917	17061	
==>qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13338	13482	
==>qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4230	4324	
==>bject is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6132	6226	
==>bject is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($O <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7034	7139	
==>n $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3638	3743	
==>n $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4487	4592	
==>n $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::te <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6553	6648	
==>B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eith <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9843	9938	
==>'s input validation is performed over 2 main phases, which
are referred to as "immediate" and "d <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6553	6648	
==>B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eith <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9843	9938	
==>'s input validation is performed over 2 main phases, which
are referred to as "immediate" and "d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8779	8886	
==>chneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRI <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3708	3815	
==>chneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRI <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8779	8886	
==>chneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRI <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3708	3815	
==>chneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRI <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2492	2618	
==>ie "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl_version";
    }

    my %args = m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3451	3575	
==>ie "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl_version";
    }

    my %args = m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3076	3177	
==>t1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @interse <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3076	3177	
==>t1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @interse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1101	1199	
==>lly useful when your object belongs to a
package that is too close to the main namespace for your t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1101	1199	
==>lly useful when your object belongs to a
package that is too close to the main namespace for your t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1101	1199	
==>lly useful when your object belongs to a
package that is too close to the main namespace for your t <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19314	19411	
==>ename),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit($sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4862	4988	
==>=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15898	16024	
==>=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17386	17512	
==>=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22069	22195	
==>=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}-> <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	732	1138	
==>a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            3 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	732	1138	
==>a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10707	10846	
==>t
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #w <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17259	17371	
==>T_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    ex <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1733	1853	
==>item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set:: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1733	1853	
==>item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set:: <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	887	989	
==>age: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub G <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	703	798	
==>$node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Bu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4792	4943	
==>rsion number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4792	4943	
==>rsion number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers h <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1033	1138	
==>next few
    # releases once we can make sure it won't clash with custom
    # Module::Install extensions. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1295	1447	
==>nd    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4534	4686	
==>nd    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1295	1447	
==>nd    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4534	4686	
==>nd    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5815	6060	
==>" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7577	7822	
==>" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2238	2333	
==>..}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2238	2333	
==>..}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3226	3385	
==>ifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3237	3396	
==>ifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matches <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3773	3888	
==>mc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3773	3888	
==>mc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3797	3940	
==>{$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3797	3940	
==>{$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19411	19493	
==>=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curir <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19411	19493	
==>=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curir <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	2001	2130	
==>y $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	313	415	
==>:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	313	415	
==>:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	313	415	
==>:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primiti <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10089	10205	
==>= '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6100	6187	
==>ess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6100	6187	
==>ess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6100	6187	
==>ess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17481	17632	
==>ng ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20958	21109	
==>ng ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20545	20696	
==>ng ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12133	12251	
==>me => $name, val => $val);
}

sub pads {
    my $self = shift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub ent <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1136	1254	
==>ivlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_ma <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1136	1254	
==>ivlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_ma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	621	716	
==>nned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	679	774	
==>nned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5001	5123	
==>ndalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5001	5123	
==>ndalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5001	5123	
==>ndalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1831	1940	
==>ub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "A <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	223	328	
==>le:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any pac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	223	328	
==>le:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any pac <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	342	437	
==>$cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fiftee <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	342	437	
==>$cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fiftee <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2098	2264	
==>1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2513	2675	
==>1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2029	2191	
==>1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2513	2675	
==>1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	387	499	
==>';

*pod = Pugs::Compiler::Token->compile(q(
  \= <'cut'> \N* [\n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6482	6573	
==>PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWith <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6482	6573	
==>PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWith <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6482	6573	
==>PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWith <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2634	2781	
==>-p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	604	714	
==>ath { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	604	714	
==>ath { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	604	714	
==>ath { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "j <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3273	3487	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3273	3487	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2238	2336	
==>.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if nec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2238	2336	
==>.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if nec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2238	2336	
==>.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if nec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	568	779	
==>for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	568	779	
==>for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	568	779	
==>for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        pu <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5040	5156	
==>(

              conv_self conv_array conv_hash conv_reference
              conv_foreach conv_package conv_open conv <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	128	229	
==>ript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	128	229	
==>ript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	128	229	
==>ript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19658	19751	
==>rn $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19658	19751	
==>rn $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19658	19751	
==>rn $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retur <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26681	26773	
==>ash> <NonemptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
ru <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18253	18381	
==>ew($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21512	21640	
==>ew($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41518	41646	
==>ew($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44419	44547	
==>ew($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get(' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2448	2575	
==>t {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <si <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2448	2575	
==>t {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <si <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1965	2074	
==>eturn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1965	2074	
==>eturn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (( <==
4	/Users/nnunley/pugs/util/version_h.pl	887	1020	
==>FH>) {
        /^ *committed-rev=.(\d+)./ or next;
        $revision = $1;
        last;
    }
    close FH;
} elsif (my @info = qx/sv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4852	4953	
==>$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4852	4953	
==>$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4852	4953	
==>$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	347	489	
==>s rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # di <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	347	489	
==>s rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # di <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	129	235	
==>de in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	129	235	
==>de in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22762	22860	
==>em; but often a template will
choose to show less than all of the available details depending on th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22762	22860	
==>em; but often a template will
choose to show less than all of the available details depending on th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1264	1357	
==>:IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each ti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1264	1357	
==>:IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6588	6708	
==>:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6588	6708	
==>:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6588	6708	
==>:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source <==
4	/Users/nnunley/pugs/util/package-osx.pl	3318	3424	
==>.8.6/Inline/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /u <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4011	4126	
==>mt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' , <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4011	4126	
==>mt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' , <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	861	976	
==>mt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2668	2790	
==>, exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6767	6882	
==>ional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'B <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6767	6882	
==>ional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'B <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3666	3781	
==>ional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10051	10198	
==>et            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10051	10198	
==>et            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	959	1071	
==>curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	959	1071	
==>curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11950	12069	
==>urn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11950	12069	
==>urn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11950	12069	
==>urn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13887	13999	
==>IB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, auto => 1, package => $inst_pkg <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8006	8101	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7136	7231	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8006	8101	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7136	7231	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5127	5274	
==>efs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = g <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5127	5274	
==>efs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = g <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9147	9266	
==>=> 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
} <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9147	9266	
==>=> 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6539	6643	
==>e->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6539	6643	
==>e->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6539	6643	
==>e->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11665	11763	
==>y $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
module pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7921	8030	
==>f, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7921	8030	
==>f, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7921	8030	
==>f, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7630	7739	
==>rm(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	151	256	
==>e Carp 'confess';

use base 'type';

# equality

sub equal_to     { confess 'You must override equal_to in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4682	4771	
==>new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4682	4771	
==>new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4682	4771	
==>new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3884	3996	
==>on ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3884	3996	
==>on ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_st <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	489	584	
==>bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L< <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	489	584	
==>bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8228	8353	
==>$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8228	8353	
==>$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8228	8353	
==>$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18627	18709	
==>(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max(R <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2493	2593	
==>s $self->license;
    $self->abstract_from($file) unless $self->abstract;
}

sub provides {
    my $s <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	123	251	
==>x:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = $ret;
		$ret += 1 / $i!;
		return $ret if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5309	5428	
==>e::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5309	5428	
==>e::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5309	5428	
==>e::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6791	6907	
==>amed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6791	6907	
==>amed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3690	3806	
==>amed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,' <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	735	842	
==>sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	25	131	
==>Log
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	25	131	
==>Log
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	25	131	
==>Log
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatur <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10813	10928	
==>eleted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1468	1568	
==>",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1468	1568	
==>",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1468	1568	
==>",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4170	4263	
==>Util::blessed($self)){
		return 1 if $self->{class_that_should_be}->isa($class);
	}
	 
	$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	416	556	
==>();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	416	556	
==>();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	416	556	
==>();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    c <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5500	5592	
==>t_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14364	14525	
==>zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14364	14525	
==>zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14364	14525	
==>zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_li <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12768	12883	
==>es( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10394	10490	
==>);
    my $code_params = '[map{Perl6::Param->new(@$_)}('.$code_param_info.')]';
    my $namestr = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11100	11195	
==>hat if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11100	11195	
==>hat if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11100	11195	
==>hat if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4703	4831	
==>y $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4703	4831	
==>y $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	35	136	
==>ory;
use strict;
use warnings;
use Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base);

sub a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1568	1659	
==>se constant RPe_BADESC => --$ENUM, 'Unrecognized escape \\%s%s passed through';
use constant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1185	1307	
==>) {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1185	1307	
==>) {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1185	1307	
==>) {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22343	22457	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22622	22736	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21989	22082	
==>ly both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21989	22082	
==>ly both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2075	2167	
==>ore tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2075	2167	
==>ore tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2075	2167	
==>ore tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cel <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21038	21126	
==>e(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5070	5183	
==>, $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5070	5183	
==>, $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5070	5183	
==>, $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1287	1443	
==>ble',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # Web <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1287	1443	
==>ble',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # Web <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10619	10736	
==>print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27008	27101	
==>t subset of the original's attributes to what C<project> would
return given the same C<$attrs> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31560	31653	
==>t subset of the original's attributes to what C<project> would
return given the same C<$attrs> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30616	30709	
==>t subset of the original's attributes to what C<project> would
return given the same C<$attrs> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10227	10327	
==>r($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10227	10327	
==>r($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(b <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12391	12487	
==>ng on your data, you may need a "discrete" or a "continuous" span.
This class implements both typ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12391	12487	
==>ng on your data, you may need a "discrete" or a "continuous" span.
This class implements both typ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8841	8951	
==>heck $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8841	8951	
==>heck $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5417	5513	
==>y.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5417	5513	
==>y.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curn <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5451	5549	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4581	4679	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5451	5549	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4581	4679	
==>Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12198	12303	
==>= "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12198	12303	
==>= "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12198	12303	
==>= "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25155	25246	
==>ype::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. (α × β)", "pretty prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1261	1390	
==>') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1261	1390	
==>') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1261	1390	
==>') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11378	11473	
==>t arguement should be before/tied with/after the
second in the final ordering of the List. aka " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3180	3277	
==>arts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:76 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3180	3277	
==>arts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:76 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3180	3277	
==>arts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:76 <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11806	11903	
==>otenially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primitive <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2207	2476	
==>{
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        w <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2207	2476	
==>{
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        w <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12507	12640	
==>imitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4049	4194	
==>$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5370	5515	
==>$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4049	4194	
==>$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5358	5503	
==>$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22986	23127	
==>w('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42589	42730	
==>w('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15997	16091	
==>drey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little < <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16055	16149	
==>drey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little < <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1598	1721	
==>ew;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1565	1688	
==>ew;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	648	765	
==>t>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <tr <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	648	765	
==>t>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <tr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21650	21755	
==>ontaining:

=over

=item C<line>

The original line received from the server (unmodified).

=item C<server <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20531	20636	
==>ontaining:

=over

=item C<line>

The original line received from the server (unmodified).

=item C<server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21650	21755	
==>ontaining:

=over

=item C<line>

The original line received from the server (unmodified).

=item C<server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20531	20636	
==>ontaining:

=over

=item C<line>

The original line received from the server (unmodified).

=item C<server <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12000	12175	
==>s => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12000	12175	
==>s => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12000	12175	
==>s => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6983	7108	
==>ey);
        
        # maybe use another mechanism to call arbitrary stuff on the package
        # obj? otherwise all data w <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8663	8763	
==>he set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.memb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7632	7732	
==>he set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.memb <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8663	8763	
==>he set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.memb <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7632	7732	
==>he set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.memb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3162	3267	
==>ed 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3162	3267	
==>ed 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3162	3267	
==>ed 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $l <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1679	1802	
==>set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq;
    use base 'Node';

    package Prim;
    use base qw/Map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2825	2927	
==>param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2825	2927	
==>param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2825	2927	
==>param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11465	11581	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11744	11860	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  matc <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1722	1820	
==>tion to source.
 # represented as processing instructions, or maybe comments
 # in the "normative X <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1722	1820	
==>tion to source.
 # represented as processing instructions, or maybe comments
 # in the "normative X <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13379	13503	
==>= ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1964	2066	
==>l:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1964	2066	
==>l:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1964	2066	
==>l:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8449	8576	
==>"::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5401	5501	
==>, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5401	5501	
==>, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5401	5501	
==>, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unl <==
4	/Users/nnunley/pugs/util/package-osx.pl	2295	2393	
==>S
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /U <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	44	139	
==>se Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	44	139	
==>se Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	44	139	
==>se Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7788	7925	
==>tch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7788	7925	
==>tch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7788	7925	
==>tch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( <==
4	/Users/nnunley/pugs/util/testgraph.pl	1118	1214	
==>tion of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce the data f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1774	1878	
==>} else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1774	1878	
==>} else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1774	1878	
==>} else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|A <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3238	3326	
==>$self->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_equ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1824	1938	
==>r::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1824	1938	
==>r::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $matc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	814	914	
==>e elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	814	914	
==>e elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version o <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5696	5805	
==>_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5696	5805	
==>_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2781	2877	
==>r::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<Varia <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2781	2877	
==>r::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<Varia <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	56	170	
==>$body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	56	170	
==>$body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	56	170	
==>$body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32854	32950	
==>rser::>, but that is omitted
here for brevity.  The headings are object I<classes>.  The field
"f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1940	2046	
==>Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1940	2046	
==>Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6548	6652	
==>f the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10025	10129	
==>f the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9117	9221	
==>f the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other ) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2731	2832	
==>kes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we have a Thunk insid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13380	13508	
==>ft;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13380	13508	
==>ft;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13380	13508	
==>ft;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $a <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6514	6633	
==>my @params =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2186	2303	
==>ccent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "a <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2186	2303	
==>ccent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23997	24089	
==>ests that they
use a compile-time macro-based approach to substitute the user's preferred
lan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23997	24089	
==>ests that they
use a compile-time macro-based approach to substitute the user's preferred
lan <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6659	6762	
==>package fun;
use base qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/node/;

pack <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22390	22486	
==>ct methods will each return the same result when invoked on the
same object with the same argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26942	27038	
==>ct methods will each return the same result when invoked on the
same object with the same argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25665	25761	
==>ct methods will each return the same result when invoked on the
same object with the same argumen <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2278	2391	
==>delete directory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_ver <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	416	514	
==>een Perl and C";
	shift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11959	12046	
==>:Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11959	12046	
==>:Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11959	12046	
==>:Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12701	12798	
==>e op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12701	12798	
==>e op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12701	12798	
==>e op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($x <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	736	914	
==>{
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROG <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	736	914	
==>{
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROG <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2697	2782	
==>ren }

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2697	2782	
==>ren }

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11734	11900	
==>var name=pugs_revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl_var name=timestamp></td>
            <td class="leftsep num">< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12007	12108	
==>be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12439	12540	
==>be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12007	12108	
==>be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12439	12540	
==>be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2178	2278	
==>hod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2178	2278	
==>hod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2178	2278	
==>hod->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_meth <==
4	/Users/nnunley/pugs/util/package-osx.pl	4052	4149	
==>ocal/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /usr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7976	8117	
==>p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7976	8117	
==>p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7976	8117	
==>p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1871	1983	
==>= shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20395	20529	
==>')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7713	7812	
==>xtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Poss <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7713	7812	
==>xtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Poss <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7713	7812	
==>xtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Poss <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1971	2105	
==>lurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1971	2105	
==>lurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1212	1337	
==>lurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3073	3198	
==>lurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6gra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2640	2754	
==>';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2628	2742	
==>';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	993	1095	
==>urns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^: <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	993	1095	
==>urns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7909	8012	
==>make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *inf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7039	7142	
==>make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7909	8012	
==>make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7039	7142	
==>make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5138	5240	
==>od sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5138	5240	
==>od sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5138	5240	
==>od sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20575	20669	
==>canon, $percent) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $estat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1381	1571	
==>DIR         => sub { return 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9299	9425	
==>rn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9299	9425	
==>rn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9299	9425	
==>rn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1455	1560	
==>e::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20592	20688	
==>('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20592	20688	
==>('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20592	20688	
==>('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	835	933	
==>il("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	835	933	
==>il("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	835	933	
==>il("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38994	39091	
==>hod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation:: <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7610	7720	
==>assing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	149	253	
==>s;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	149	253	
==>s;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	149	253	
==>s;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::R <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23097	23195	
==>e must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27649	27747	
==>e must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26426	26524	
==>e must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1790	1885	
==>$Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper($n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21223	21354	
==>d_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17644	17775	
==>d_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15467	15564	
==>y (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutuall <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15525	15622	
==>y (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutuall <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10442	10572	
==>1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10436	10566	
==>1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rul <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2542	2662	
==>ceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2542	2662	
==>ceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4960	5083	
==>t;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $resul <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4960	5083	
==>t;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $resul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7716	7855	
==>( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7728	7867	
==>( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	498	602	
==>torial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline: <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	498	602	
==>torial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3458	3573	
==>harCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3458	3573	
==>harCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3458	3573	
==>harCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "pars <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11988	12096	
==>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9956	10055	
==>.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10014	10113	
==>.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	331	443	
==>isa('closure::env'))
        || confess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || confe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14237	14337	
==>d_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14237	14337	
==>d_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14237	14337	
==>d_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2730	2831	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2730	2831	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2730	2831	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sp <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2520	2618	
==>he node types

=head1 EXPORTS

For each node type a function named for its class (without the prefi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1418	1538	
==>A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result = eval($code);
            wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5120	5230	
==>."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5120	5230	
==>."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5120	5230	
==>."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3791	3947	
==>ndex = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5108	5264	
==>ndex = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3791	3947	
==>ndex = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5096	5252	
==>ndex = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18968	19090	
==>[ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20326	20448	
==>[ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	289	385	
==>ONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	289	385	
==>ONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2464	2590	
==>f !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7558	7684	
==>f !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2464	2590	
==>f !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7558	7684	
==>f !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	197	318	
==>> undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	316	420	
==>3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	316	420	
==>3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	316	420	
==>3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	504	681	
==>n '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	419	596	
==>n '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	507	684	
==>n '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11658	11802	
==>nteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12004	12106	
==>an be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12436	12538	
==>an be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12004	12106	
==>an be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12436	12538	
==>an be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6219	6321	
==>6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compile <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3129	3233	
==>ned( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %para <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3129	3233	
==>ned( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %para <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2634	2735	
==>her.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2634	2735	
==>her.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4579	4700	
==>( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @t <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4579	4700	
==>( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	754	848	
==>Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) retu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	754	848	
==>Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7713	7814	
==>classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7713	7814	
==>classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7713	7814	
==>classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	613	706	
==>st
  my %results = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14175	14278	
==>rn $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14175	14278	
==>rn $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14175	14278	
==>rn $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_metho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1049	1150	
==>returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1049	1150	
==>returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	971	1071	
==>returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	971	1071	
==>returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13976	14094	
==>he connection is still alive, the server will
        # respond with a PONG, so everything's fine. But if the connectio <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13976	14094	
==>he connection is still alive, the server will
        # respond with a PONG, so everything's fine. But if the connectio <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13042	13156	
==>he connection is still alive, the server will
    # respond with a PONG, so everything's fine. But if the connectio <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13042	13156	
==>he connection is still alive, the server will
    # respond with a PONG, so everything's fine. But if the connectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	979	1109	
==>{
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	979	1109	
==>{
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	979	1109	
==>{
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21204	21308	
==>}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, qw( Regexp::Parser::__object__ );

  push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18485	18580	
==>1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18485	18580	
==>1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18485	18580	
==>1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1817	1956	
==>virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $inpu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1817	1956	
==>virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $inpu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15924	16020	
==>n the server will return a C<304 Not Modified> response instead of
the document itself.

=item $h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15924	16020	
==>n the server will return a C<304 Not Modified> response instead of
the document itself.

=item $h <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	266	372	
==>y with 'make test'
# 3. 'make smoke' make target that uploads the results of this
#    to a server somewher <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7379	7550	
==>fied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) { <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7843	8014	
==>fied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) { <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14425	14537	
==>ft;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = sh <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1905	2017	
==>ft;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4579	4711	
==>= substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4579	4711	
==>= substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4579	4711	
==>= substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11764	11896	
==>attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15241	15373	
==>attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14576	14708	
==>attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	304	400	
==>tements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler::Rule->compile(<<'RUL <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1992	2107	
==>shift;
    my $attr = shift;

    # $attr may be a T2::Attribute or a T2::Association, but as they
    # both respon <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5102	5194	
==>nding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=ite <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5102	5194	
==>nding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6626	6718	
==>nding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19935	20030	
==>rname> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18916	19011	
==>rname> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19935	20030	
==>rname> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18916	19011	
==>rname> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	427	534	
==>turns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	427	534	
==>turns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4190	4294	
==>turns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4190	4294	
==>turns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { retu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5366	5493	
==>ype' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xTyp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5366	5493	
==>ype' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xTyp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	496	614	
==>rait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <sub <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	496	614	
==>rait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32287	32385	
==>is the same regardless of
which is the invocant and which is the argument.  This method will fail i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36837	36935	
==>is the same regardless of
which is the invocant and which is the argument.  This method will fail i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36127	36225	
==>is the same regardless of
which is the invocant and which is the argument.  This method will fail i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	18	111	
==>rammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Gr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21940	22035	
==>omparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21940	22035	
==>omparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14147	14239	
==>reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14147	14239	
==>reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18972	19080	
==>rl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18972	19080	
==>rl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18972	19080	
==>rl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1059	1193	
==>my $sym_node = shift;

        my $symbol = $sym_node->val;

        $table{$symbol}; # find the symbol
    }

    # and then

    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11123	11223	
==>ined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class is <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11123	11223	
==>ined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12851	12964	
==>ath ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        giv <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12851	12964	
==>ath ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        giv <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10517	10627	
==>ax"] = max
    mob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1331	1427	
==>_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$ENUM, 'Missing right <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9025	9147	
==>ist::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( sp <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	483	592	
==>ist::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11708	11816	
==>an - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11708	11816	
==>an - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2884	3027	
==>ontent($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2884	3027	
==>ontent($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	621	733	
==>r decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	621	733	
==>r decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1986	2092	
==>ement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

met <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1986	2092	
==>ement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

met <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	313	408	
==><id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %varia <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	313	408	
==><id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %varia <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	775	894	
==>- $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	775	894	
==>- $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	609	719	
==>thod end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
met <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	609	719	
==>thod end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6919	7031	
==>nd can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6919	7031	
==>nd can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6919	7031	
==>nd can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8176	8294	
==>e PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8176	8294	
==>e PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8176	8294	
==>e PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1380	1496	
==>());
}

sub multiply {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1346	1677	
==>Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5050	5158	
==>code::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5050	5158	
==>code::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5050	5158	
==>code::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2600	2726	
==>>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2600	2726	
==>>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2600	2726	
==>>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5516	5642	
==>each my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5516	5642	
==>each my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5516	5642	
==>each my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not a <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	176	288	
==>iniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32196	32295	
==>>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36746	36845	
==>>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36036	36135	
==>>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the sa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5157	5302	
==>if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5621	5766	
==>if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5499	5599	
==>or message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same n <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5499	5599	
==>or message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same n <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14191	14317	
==>> operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4264	4382	
==>> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4264	4382	
==>> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4264	4382	
==>> operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7118	7215	
==>);

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7118	7215	
==>);

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7118	7215	
==>);

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29286	29404	
==>items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29286	29404	
==>items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29286	29404	
==>items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25775	25874	
==>of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL) <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	746	844	
==>xt(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
} <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	746	844	
==>xt(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14126	14222	
==>}
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:en <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14126	14222	
==>}
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:en <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2799	2898	
==>tringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2620	2719	
==>tringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2799	2898	
==>tringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2620	2719	
==>tringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	185	318	
==>cription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	185	318	
==>cription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	185	318	
==>cription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	111	223	
==>ueue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	115	227	
==>ueue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	111	223	
==>ueue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	115	227	
==>ueue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14071	14232	
==>ed";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14065	14226	
==>ed";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9784	9901	
==>t_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $tex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9784	9901	
==>t_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	293	390	
==>d) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22584	22681	
==>e ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	293	390	
==>d) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	293	390	
==>d) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1415	1535	
==>?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1415	1535	
==>?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1415	1535	
==>?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void { <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3095	3182	
==>h/pugs/livecd-kernel.config.

Available options and defaults:
  --kernel-uri=$kernel_uri <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30406	30501	
==>e of the original. 
The anonymous function in the argument C<$transformer> is invoked for each
o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34958	35052	
==>e of the original.
The anonymous function in the argument C<$transformer> is invoked for each
o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34140	34234	
==>e of the original.
The anonymous function in the argument C<$transformer> is invoked for each
o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	557	650	
==>((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new(0) } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1654	1813	
==>ng a simple '<'
            
                # after whitespace means '<' (default)
                # without whitespace means '<str>'
                #print "c <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6103	6252	
==>'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6103	6252	
==>'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	78	179	
==>5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporter;
use Benchmark;
use Config <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12765	12878	
==>pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expos <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12765	12878	
==>pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expos <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12765	12878	
==>pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expos <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	784	890	
==>alar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'Relation'
            a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6676	6776	
==>2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6676	6776	
==>2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6676	6776	
==>2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8551	8654	
==>_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8551	8654	
==>_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3706	3818	
==>v(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6414	6520	
==>); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6414	6520	
==>); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6414	6520	
==>); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XX <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14256	14400	
==>values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4325	4453	
==>values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4325	4453	
==>values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4325	4453	
==>values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6311	6408	
==>$file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8379	8476	
==>$file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6311	6408	
==>$file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8379	8476	
==>$file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18789	18921	
==>);  # eval sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't cal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3234	3348	
==>my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when crea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3234	3348	
==>my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when crea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3234	3348	
==>my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when crea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9489	9582	
==>e, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or export <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9489	9582	
==>e, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or export <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	201	312	
==>et is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	201	312	
==>et is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2794	2891	
==>I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub remov <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2794	2891	
==>I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub remov <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	13	117	
==>ss Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	13	117	
==>ss Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27016	27117	
==>Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27016	27117	
==>Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Key <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12684	12781	
==>te.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the r <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12684	12781	
==>te.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32844	32939	
==>or reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Tr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32844	32939	
==>or reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15290	15408	
==>f->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : "") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6207	6301	
==>t = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6207	6301	
==>t = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6207	6301	
==>t = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3011	3125	
==>1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3011	3125	
==>1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3011	3125	
==>1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2151	2262	
==>ls = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2151	2262	
==>ls = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2151	2262	
==>ls = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") | <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2439	2542	
==>in.

Note: This program should be run as unpreviliged user, it will ask you to enter
      commands requ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4159	4258	
==>$two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3286	3385	
==>$two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4159	4258	
==>$two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3286	3385	
==>$two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	679	896	
==>//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @cur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	679	896	
==>//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @cur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1688	1809	
==>port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1688	1809	
==>port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	460	593	
==>() {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	460	593	
==>() {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	460	593	
==>() {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1336	1451	
==>ed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11730	11828	
==>does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becaus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11730	11828	
==>does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becaus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11730	11828	
==>does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becaus <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8063	8159	
==>e DecimalLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10421	10559	
==>array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10421	10559	
==>array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10421	10559	
==>array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1303	1545	
==>},
            index => {
                store => \$index
            },
            index_file => {
                store => \$index_file
            },
            packages => {
                default     => [ ],
                no_overrid <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35465	35553	
==>hod has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40015	40103	
==>hod has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39575	39663	
==>hod has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pro <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2577	2692	
==>ng($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2577	2692	
==>ng($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3876	4005	
==>b();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15549	15659	
==>{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15549	15659	
==>{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15549	15659	
==>{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12453	12550	
==>SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_mac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12453	12550	
==>SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_mac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12453	12550	
==>SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_mac <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5583	5692	
==>($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4713	4822	
==>($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5583	5692	
==>($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4713	4822	
==>($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14558	14657	
==>complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers =
    ( und <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1969	2067	
==>y zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1969	2067	
==>y zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1969	2067	
==>y zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thr <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1876	2005	
==>et $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No wor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3867	3974	
==>');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3867	3974	
==>');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5391	5498	
==>');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of th <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8136	8241	
==>f->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2738	2839	
==>OPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2738	2839	
==>OPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Build <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4262	4363	
==>OPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Build <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6840	7036	
==>tch;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $ne <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6840	7036	
==>tch;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3806	3935	
==>] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3794	3923	
==>] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3913	4017	
==>_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3913	4017	
==>_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3913	4017	
==>_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	686	815	
==>/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	686	815	
==>/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15016	15110	
==>RIPTION

=head2 Introduction

Many times during a program's operation, the program (or a packag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15016	15110	
==>RIPTION

=head2 Introduction

Many times during a program's operation, the program (or a packag <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4438	4559	
==>index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # the <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4438	4559	
==>index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # the <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14091	14206	
==>de ref
    $self->enter_scope;
    my @params = $self->params;

    my $v = $prim->body->($self, map { $self->shift_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	62	161	
==>londie::Map Blondie::Node::Atomic/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7940	8049	
==>h (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2063	2172	
==>2::Association, but as they
    # both respond to ->type and ->name in the same way, we can use
    # them her <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7940	8049	
==>h (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7940	8049	
==>h (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6417	6518	
==>sed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32600	32693	
==>forementioned binary union()
operator, and the order of its arguments is not significant to th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37150	37243	
==>forementioned binary union()
operator, and the order of its arguments is not significant to th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36458	36551	
==>forementioned binary union()
operator, and the order of its arguments is not significant to th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5288	5423	
==>urn {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5481	5616	
==>urn {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	112	214	
==>require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespac <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	112	214	
==>require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22216	22313	
==>e, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

Th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22216	22313	
==>e, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

Th <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5233	5364	
==>ffset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() o <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3733	3864	
==>ffset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2748	2852	
==>lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2748	2852	
==>lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2748	2852	
==>lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13490	13593	
==>a rather
  stable are of the code, so this may not be a real problem.
  [It was.  The regexp implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	601	749	
==>, # the MRO of all the superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    whi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2797	2936	
==>q "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Fo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2797	2936	
==>q "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Fo <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2021	2114	
==>t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2021	2114	
==>t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1112	1223	
==>f = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1403	1507	
==>NAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1403	1507	
==>NAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1403	1507	
==>NAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9149	9251	
==>verhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current implementatio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8849	8947	
==>verhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current implementatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	228	338	
==>-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	668	762	
==>DO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	668	762	
==>DO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	668	762	
==>DO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	448	542	
==>use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	448	542	
==>use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	448	542	
==>use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	0	102	
==>package PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	0	102	
==>package PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	0	102	
==>package PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
us <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1785	1882	
==>() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17223	17322	
==>l
    ((= &dispatcher (($self: class) send (dispatcher :descendant)))
     (= $method (WALKMETH (&di <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	408	506	
==>es Foo;
 my $role = Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.does($role);
 $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	327	420	
==>>code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	327	420	
==>>code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14106	14202	
==>P spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14106	14202	
==>P spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return val <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1455	1551	
==>is module provides an implementation for Perl 6 Rules.  It is a front-end
to several other module <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1455	1551	
==>is module provides an implementation for Perl 6 Rules.  It is a front-end
to several other module <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5295	5427	
==>e \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5295	5427	
==>e \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5295	5427	
==>e \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying does <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3706	3804	
==>x the problem.

- The perl5 executable must have PMC support. 

PMC support is required for loading <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1913	2024	
==>_[0], '$<params>' ) );
    return "$ident->$meth($list);\n";
}
sub node::sub_call_term {
    my $ident = get_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1217	1315	
==>tant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1217	1315	
==>tant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1217	1315	
==>tant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	68	169	
==>::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Insta <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	63	164	
==>::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Insta <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	63	164	
==>::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Insta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	99	198	
==>s;

my $filename = (caller)[1];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die "this is not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9466	9612	
==>ft;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1651	1770	
==>(value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1651	1770	
==>(value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1651	1770	
==>(value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1148	1321	
==>bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            ta <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1148	1321	
==>bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            ta <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3851	3969	
==>", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3909	4027	
==>", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	248	359	
==>port { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	248	359	
==>port { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3861	3954	
==>day", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be passe <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3861	3954	
==>day", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be passe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23678	23777	
==>ys> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22451	22550	
==>ys> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23678	23777	
==>ys> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22451	22550	
==>ys> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The N <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	633	751	
==>autoload;
}

#line 76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::B <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11122	11224	
==>t.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<h <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8526	8628	
==>t.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<h <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11122	11224	
==>t.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<h <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8526	8628	
==>t.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<h <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5029	5235	
==>)   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4245	4435	
==>)       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12	109	
==>::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12	109	
==>::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart:: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3459	4025	
==>ole Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	678	779	
==>,
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	678	779	
==>,
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	678	779	
==>,
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7976	8082	
==>5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7106	7212	
==>5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7976	8082	
==>5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7106	7212	
==>5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	369	525	
==>=> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	369	525	
==>=> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	369	525	
==>=> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2725	2839	
==>{(shift)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : method { 
    my $self = shift;
    (b <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9269	9394	
==>ile exists, and it looks like it's in windows
            # land, and it has an executable extension...

            if ( -f $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5377	5473	
==>ed $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5377	5473	
==>ed $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5377	5473	
==>ed $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1348	1456	
==>rt')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class- <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1348	1456	
==>rt')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20531	20628	
==>riety of third party Engine
modules that become available over time.  One plan which I favor is th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20531	20628	
==>riety of third party Engine
modules that become available over time.  One plan which I favor is th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1738	1859	
==>o match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2066	2185	
==>o match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1679	1798	
==>o match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2066	2185	
==>o match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2007	2116	
==>ft)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num type


=head1 METHODS

=over 4

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7688	7786	
==>cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7688	7786	
==>cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7688	7786	
==>cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9280	9470	
==>f $at > $prev; $prev = $at;
              $pos += {$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5777	5876	
==>ple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5777	5876	
==>ple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5777	5876	
==>ple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12189	12294	
==>) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12189	12294	
==>) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12189	12294	
==>) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $m <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7633	7747	
==>d is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7633	7747	
==>d is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9082	9178	
==>r-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submeth <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9082	9178	
==>r-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submeth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4511	4635	
==>t_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5840	5964	
==>t_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4511	4635	
==>t_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5828	5952	
==>t_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11732	11864	
==>ch::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12090	12222	
==>ch::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	379	479	
==>'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCES <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	379	479	
==>'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCES <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5731	5829	
==>ft;
	$self->{instance} = shift;
	bless $self, "type::variable::instantiated";
}

sub splat {
	my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8001	8159	
==>$key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8001	8159	
==>$key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8001	8159	
==>$key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scal <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21841	21935	
==>e -
Simple in-memory implementation of the Relation role

=head1 VERSION

This document describ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5544	5659	
==>$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5544	5659	
==>$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5676	5771	
==>n.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5676	5771	
==>n.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	777	879	
==>-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	777	879	
==>-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	777	879	
==>-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unb <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5906	6006	
==>$two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5036	5136	
==>$two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5906	6006	
==>$two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5036	5136	
==>$two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	857	979	
==>ttributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4335	4457	
==>ttributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3229	3351	
==>ttributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22987	23102	
==>ackage Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14713	14811	
==>method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14713	14811	
==>method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14713	14811	
==>method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1920	2017	
==>=> Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new(
				type => $type,
				struct_equiv = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5260	5383	
==>] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12192	12298	
==>$code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12192	12298	
==>$code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12192	12298	
==>$code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	828	984	
==>erl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	828	984	
==>erl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	828	984	
==>erl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	568	670	
==>ride _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38967	39064	
==>arren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43781	43878	
==>arren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the sa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22274	22364	
==>ivmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "... <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22274	22364	
==>ivmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "... <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18413	18563	
==>n 's' {
                $str ~= Pugs::Internals::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8189	8292	
==>0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8189	8292	
==>0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8189	8292	
==>0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo ba <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3893	3994	
==>plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3893	3994	
==>plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5417	5518	
==>plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3927	4051	
==>op"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13435	13536	
==>st' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13435	13536	
==>st' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13435	13536	
==>st' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4050	4198	
==>hes[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3926	4069	
==>hes[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $ca <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2660	2761	
==>1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.in <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2660	2761	
==>1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.in <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8202	8310	
==>s_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8594	8702	
==>s_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8202	8310	
==>s_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8594	8702	
==>s_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5189	5310	
==>pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5189	5310	
==>pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5189	5310	
==>pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8853	8960	
==>y $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	446	583	
==>e documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	450	587	
==>e documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	446	583	
==>e documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	450	587	
==>e documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6419	6640	
==>.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6419	6640	
==>.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6419	6640	
==>.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8963	9089	
==>ct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, $how);
  });

  # space PO <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11717	11830	
==>= sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for po <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7207	7299	
==>eton_test_on_object',
  '... still got the right return value from first Object singleton/cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8202	8294	
==>eton_test_on_object',
  '... still got the right return value from first Object singleton/cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10771	10863	
==>eton_test_on_object',
  '... still got the right return value from first Object singleton/cla <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24837	24938	
==>mply returns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22451	22552	
==>mply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24837	24938	
==>mply returns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22451	22552	
==>mply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14366	14527	
==>p' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14366	14527	
==>p' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14366	14527	
==>p' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9455	9552	
==>(2);

=head2 Walking the Tree

To walk over the created tree, create an iterator with walker()Z<>: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4449	4555	
==>e "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4449	4555	
==>e "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4449	4555	
==>e "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	578	667	
==>THORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@debian.orgE<gt>

=he <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	312	487	
==>int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4142	4247	
==>d defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4142	4247	
==>d defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4142	4247	
==>d defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7169	7272	
==>oto end
  err_close:
    parse_error(mob, pos, "Missing close bracket for \\x...")
    goto end
.end

.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3832	3928	
==>Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curren <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3832	3928	
==>Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curren <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3832	3928	
==>Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6142	6299	
==>d $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6142	6299	
==>d $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6142	6299	
==>d $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5709	5835	
==>ect__ );

  sub new {
    my ($class, $rx, $lhs, $rhs) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1906	2033	
==>ro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1906	2033	
==>ro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	124	229	
==>has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	124	229	
==>has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2465	2701	
==>[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ----- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2773	2996	
==>[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ----- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2773	2996	
==>[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ----- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10649	10804	
==>etch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10649	10804	
==>etch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10649	10804	
==>etch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3647	3781	
==>nds->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} };
            }
        }

=cut <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8995	9103	
==>pression --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	865	967	
==>cee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	865	967	
==>cee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	865	967	
==>cee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2686	2773	
==>lso read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6. <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2686	2773	
==>lso read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5137	5246	
==>y $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16173	16282	
==>y $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17661	17770	
==>y $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22344	22453	
==>y $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1250	1346	
==>rm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1250	1346	
==>rm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1250	1346	
==>rm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1497	1626	
==>) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1950	2079	
==>) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2385	2514	
==>) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2822	2951	
==>) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34871	34982	
==>th, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34871	34982	
==>th, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34871	34982	
==>th, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset lengt <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2748	2844	
==>ns<$name> ||= Set.new ).insert($subscription);
            $subscriber.note_subscription($subscri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3191	3339	
==>me}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3191	3339	
==>me}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3191	3339	
==>me}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	26	131	
==>ndBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8451	8552	
==>ded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for inst <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8451	8552	
==>ded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for inst <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22904	22996	
==>Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22904	22996	
==>Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4199	4330	
==>h %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @token <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4199	4330	
==>h %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @token <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4156	4285	
==>h %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @token <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4156	4285	
==>h %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @token <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34440	34541	
==>ject it
creates!

A method call for a F<Regexp::MyRx::THING> object will look in its own
package first <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1101	1212	
==>lurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1101	1212	
==>lurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1310	1421	
==>lurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required <==
4	/Users/nnunley/pugs/util/claim_drift.pl	416	514	
==>([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, qw(--verbose|v --no|n) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1647	1762	
==>" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1647	1762	
==>" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1647	1762	
==>" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21862	21970	
==>> $fac,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	body => comb(
		fun => comb(
			fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6967	7077	
==>class;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6967	7077	
==>class;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6967	7077	
==>class;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13333	13430	
==>o_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13333	13430	
==>o_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13333	13430	
==>o_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1990	2092	
==>$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1990	2092	
==>$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1990	2092	
==>$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1828	1930	
==>quote ... [$whitespace_before]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7701	7850	
==>s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7713	7862	
==>s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2854	2975	
==>matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2759	2878	
==>matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12431	12542	
==>p => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1281	1384	
==>s:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1281	1384	
==>s:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1281	1384	
==>s:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3177	3318	
==>autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3177	3318	
==>autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3177	3318	
==>autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15505	15601	
==>ion>
    | <RelationalExpression> <'<'> <ShiftExpression>
    | <RelationalExpression> <'>'> <Shi <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	601	714	
==>es apples");
    system("pugs naive_bayesian.p6 add oranges oranges");
    system("pugs naive_bayesian.p6 add grap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	166	270	
==>pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	166	270	
==>pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as arg <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3808	3911	
==>return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1373	1470	
==>=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1373	1470	
==>=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1373	1470	
==>=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2984	3098	
==>e-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2984	3098	
==>e-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2984	3098	
==>e-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: na <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	236	342	
==>::Long qw(:config no_auto_version);

my (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4775	4886	
==>new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self->{param} = shift;

	$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20088	20179	
==>MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20088	20179	
==>MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20088	20179	
==>MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4257	4356	
==>bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4257	4356	
==>bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4847	4946	
==>bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_op <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5217	5311	
==>fallback Prelude.hs that contains only a quoted
version of the Prelude code is inlined into the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3171	3286	
==>]->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	398	496	
==>lf)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	398	496	
==>lf)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	398	496	
==>lf)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11320	11460	
==>capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11314	11454	
==>capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5274	5398	
==>tes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5274	5398	
==>tes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1268	1488	
==>ir/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26607	26817	
==>r->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26607	26817	
==>r->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26607	26817	
==>r->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	31	140	
==>Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is cop <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	31	140	
==>Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is cop <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5224	5324	
==>s{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especia <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5224	5324	
==>s{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especia <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	133	234	
==>andle', '$format', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' => Thunk(
		Seq(
			Param('$h <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4555	4652	
==>ents as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4555	4652	
==>ents as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6079	6176	
==>ents as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17632	17778	
==>_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21109	21255	
==>_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20696	20842	
==>_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11729	11833	
==>rn Relation::Example.new(
        heading => $!heading,
        body => $!body.difference( $other!body ), <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7609	7722	
==>elf: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7609	7722	
==>elf: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4328	4418	
==>ead2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4578	4668	
==>ead2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11155	11354	
==>ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # eve <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11155	11354	
==>ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # eve <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11155	11354	
==>ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # eve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21050	21143	
==>.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21050	21143	
==>.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21050	21143	
==>.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26561	26659	
==>0000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1186	1277	
==>$self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1186	1277	
==>$self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1186	1277	
==>$self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13424	13648	
==>} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13703	13927	
==>} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17923	18019	
==>H

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17923	18019	
==>H

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a s <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3368	3479	
==>$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	849	951	
==>other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	849	951	
==>other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	849	951	
==>other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_cod <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8818	8930	
==>($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	300	404	
==>orks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	300	404	
==>orks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	300	404	
==>orks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	166	285	
==>gory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Oper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	170	289	
==>gory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Oper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	164	283	
==>gory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Oper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	164	283	
==>gory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Oper <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9482	9595	
==>tic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13052	13153	
==>------ Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13052	13153	
==>------ Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13052	13153	
==>------ Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4732	4843	
==>s);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4732	4843	
==>s);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5322	5433	
==>s);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11139	11237	
==>r(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16477	16596	
==>ent class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16477	16596	
==>ent class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16477	16596	
==>ent class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14185	14285	
==>Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing brac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14616	14811	
==>ng ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18093	18288	
==>ng ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17509	17704	
==>ng ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	321	459	
==>_file');
	
	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Confi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7402	7525	
==>> chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(86 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7402	7525	
==>> chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(86 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4291	4402	
==>return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4291	4402	
==>return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13478	13650	
==>mit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14339	14466	
==>es.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17816	17943	
==>es.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17232	17359	
==>es.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6812	6973	
==>d');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'incr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6812	6973	
==>d');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'incr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6812	6973	
==>d');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'incr <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2885	2985	
==>{ \x00A0 }
rule USP  { <<Zs>-<TAB>-<VT>-<FF>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x00 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18202	18338	
==>(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14623	14759	
==>(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12088	12200	
==>(?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12088	12200	
==>(?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8375	8494	
==>_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkno <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8375	8494	
==>_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkno <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8375	8494	
==>_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkno <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2369	2476	
==>ft;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15976	16082	
==>ft;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13796	13909	
==>SAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13796	13909	
==>SAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13796	13909	
==>SAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12419	12518	
==>om_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12419	12518	
==>om_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12419	12518	
==>om_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MA <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	229	318	
==>$obst[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Lieb <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4565	4695	
==>nd yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5224	5354	
==>nd yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4565	4695	
==>nd yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5224	5354	
==>nd yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3341	3465	
==>lass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3341	3465	
==>lass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3341	3465	
==>lass);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9424	9548	
==>nf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $no <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9424	9548	
==>nf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $no <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7838	7935	
==>` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7838	7935	
==>` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31700	31795	
==>les of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36250	36345	
==>les of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35486	35581	
==>les of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> a <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8211	8300	
==>ml:lang="en">
<head>
  <title>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Type" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7539	7669	
==>_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7539	7669	
==>_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	17	117	
==>ammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gr <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	17	117	
==>ammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8150	8243	
==>ble(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1975	2068	
==>ble(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Gramm <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15558	15648	
==>har_to_entity and the %entity_to_char hashes,
which contain the mapping from all characters <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15558	15648	
==>har_to_entity and the %entity_to_char hashes,
which contain the mapping from all characters <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10110	10228	
==>sure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1699	1815	
==>nstance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1699	1815	
==>nstance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1699	1815	
==>nstance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3890	3999	
==>ap:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3890	3999	
==>ap:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3890	3999	
==>ap:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34159	34252	
==>d this
to any number of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7417	7518	
==>e; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7417	7518	
==>e; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7417	7518	
==>e; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCx <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9609	9698	
==>=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{'isNamed'};
	push(@args,"writable=> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23666	23792	
==>ram => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5594	5715	
==>flict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5594	5715	
==>flict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5594	5715	
==>flict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2706	2825	
==>f caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2706	2825	
==>f caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2706	2825	
==>f caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PI <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12678	12786	
==>od shift   () is primitive { self.readline() }
    method next    () is primitive { self.shift() }
}

# Suppo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3736	3849	
==>3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3736	3849	
==>3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3736	3849	
==>3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17273	17382	
==>d["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4484	4615	
==>or above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_round = ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5734	5836	
==>' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5734	5836	
==>' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5734	5836	
==>' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5691	5797	
==>equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4522	4620	
==>nstant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4522	4620	
==>nstant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4522	4620	
==>nstant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17094	17197	
==>rn $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3428	3519	
==>e class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3428	3519	
==>e class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5625	5716	
==>e class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1243	1343	
==>?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1243	1343	
==>?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1243	1343	
==>?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3860	4059	
==>end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3860	4059	
==>end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27236	27329	
==>'foo')))");
is(t($app_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4285	4407	
==>e::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4285	4407	
==>e::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4285	4407	
==>e::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9227	9317	
==>lue');

$iFoo->add_singleton_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4326	4439	
==>ile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4326	4439	
==>ile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4326	4439	
==>ile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $nex <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	451	551	
==>nv, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual method 'pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15613	15726	
==>(${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unles <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10469	10582	
==>(${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unles <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3475	3578	
==>::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$se <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4757	4860	
==>::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$se <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7695	7798	
==>(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof_char;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19378	19468	
==>SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19378	19468	
==>SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19378	19468	
==>SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2651	2763	
==>"# Could not build $exename.exe\n"
     ."1..0 # skipped: can't build test executable\n";
    exit(0);
}

re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36447	36548	
==>ail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36447	36548	
==>ail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36447	36548	
==>ail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8360	8461	
==>y $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8360	8461	
==>y $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8360	8461	
==>y $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7536	7679	
==>l6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7536	7679	
==>l6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7536	7679	
==>l6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( <==
4	/Users/nnunley/pugs/util/claim_drift.pl	1122	1256	
==>nless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $orig or di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7702	7796	
==>\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9630	9724	
==>\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7690	7784	
==>\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1829	1933	
==>])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1829	1933	
==>])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1829	1933	
==>])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6590	6709	
==>lurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6647	6766	
==>lurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1634	1762	
==>',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirec <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	422	524	
==>ASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	422	524	
==>ASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	422	524	
==>ASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	354	471	
==>ub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	354	471	
==>ub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30985	31082	
==>e from others in
its set. For maximum flexibility in their use, the full name of a module
consists <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30985	31082	
==>e from others in
its set. For maximum flexibility in their use, the full name of a module
consists <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12260	12453	
==>}
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12260	12453	
==>}
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12260	12453	
==>}
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sca <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14094	14224	
==>c_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file($synpod, $synhtml);
        
        # and parse <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6291	6388	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8359	8456	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6291	6388	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8359	8456	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23368	23472	
==>die $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) {
    my($max,$skipped,@failed) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	958	1057	
==>d}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	958	1057	
==>d}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	958	1057	
==>d}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15036	15141	
==>ns
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18513	18618	
==>ns
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17929	18034	
==>ns
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19685	19781	
==>OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "pa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12007	12128	
==>-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $dateti <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12007	12128	
==>-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $dateti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17397	17492	
==>tem $h.title

The title of the document.  In libwww-perl this header will be
initialized automat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17397	17492	
==>tem $h.title

The title of the document.  In libwww-perl this header will be
initialized automat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10646	10749	
==>h $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10646	10749	
==>h $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	928	1028	
==>o, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	986	1086	
==>o, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9813	9930	
==>etic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7753	7870	
==>etic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9813	9930	
==>etic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7753	7870	
==>etic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18061	18184	
==>out => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17099	17222	
==>out => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18061	18184	
==>out => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17099	17222	
==>out => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2621	2728	
==>n

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2621	2728	
==>n

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2621	2728	
==>n

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6242	6340	
==>urn $node;
		} else {
			warn "casting";
			return $self->runtime->cast_node_type($node, $de_facto_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4292	4394	
==>ub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5189	5291	
==>ub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4292	4394	
==>ub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5189	5291	
==>ub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	256	397	
==>=> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	256	397	
==>=> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	256	397	
==>=> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11076	11189	
==>!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocaptur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2421	2555	
==>description, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	499	614	
==>y $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $des <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	499	614	
==>y $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $des <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	499	614	
==>y $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $des <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2938	3076	
==>y_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6888	6999	
==>amName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6888	6999	
==>amName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6888	6999	
==>amName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	529	645	
==>b constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	529	645	
==>b constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@ma <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7187	7286	
==>d is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {.. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7187	7286	
==>d is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {.. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1953	2111	
==>M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* preco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16553	16661	
==>s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16553	16661	
==>s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16553	16661	
==>s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c e <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8366	8485	
==>GE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	578	682	
==>(ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	348	452	
==>(ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	348	452	
==>(ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2155	2299	
==>$_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36152	36248	
==>f look-behind, 1 if look-ahead

Ender: tail

=head2 unlessm

Family: assertion

Types: unlessm (C <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22191	22284	
==>appropriately in the search
list.  The analogy is similar to inheriting from multiple packages <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22191	22284	
==>appropriately in the search
list.  The analogy is similar to inheriting from multiple packages <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1454	1643	
==>, ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method expo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1454	1643	
==>, ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method expo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9298	9408	
==>al $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (de <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9298	9408	
==>al $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3413	3563	
==>bort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3305	3452	
==>bort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10993	11121	
==>:)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    mult <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2183	2287	
==>_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2183	2287	
==>_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method sub <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1216	1312	
==>rence of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
direct <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1216	1312	
==>rence of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
direct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1488	1662	
==>> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Ju <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1488	1662	
==>> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Ju <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1488	1662	
==>> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Ju <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1451	1559	
==>pan - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class r <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1451	1559	
==>pan - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class r <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1383	1476	
==>docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<doc <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1383	1476	
==>docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<doc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11534	11652	
==>), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11534	11652	
==>), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11534	11652	
==>), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	191	294	
==>e; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2639	2748	
==>rmalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2639	2748	
==>rmalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2986	3095	
==>rmalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23225	23313	
==>ntifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalPara <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3597	3697	
==>ler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4700	4795	
==>ip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4700	4795	
==>ip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6897	6992	
==>ip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4824	4959	
==>= 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4824	4959	
==>= 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4824	4959	
==>= 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30995	31090	
==>e has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11554	11649	
==>nly the elements in this recurrence that are not in the given recurrence.

- `intersects( $recur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11554	11649	
==>nly the elements in this recurrence that are not in the given recurrence.

- `intersects( $recur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13855	13955	
==>routine
is called with two parameters; the name of the field and a single
value (a string).  If a hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13855	13955	
==>routine
is called with two parameters; the name of the field and a single
value (a string).  If a hea <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1787	1882	
==>ple interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1787	1882	
==>ple interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5816	5912	
==>ur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5816	5912	
==>ur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2715	2811	
==>ur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	306	439	
==>_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteA <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	352	459	
==>_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteA <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19404	19550	
==>xPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15825	15971	
==>xPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	999	1117	
==>S => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1890	2008	
==>S => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15113	15246	
==>othing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15113	15246	
==>othing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15113	15246	
==>othing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wha <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3342	3442	
==>nfig{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10754	10897	
==>sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7834	7972	
==>sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7834	7972	
==>sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	979	1073	
==>::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7375	7491	
==>QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7375	7491	
==>QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3787	3947	
==>_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $respon <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3787	3947	
==>_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $respon <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22150	22251	
==>al algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and eac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26702	26803	
==>al algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9043	9162	
==>ame'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9043	9162	
==>ame'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9043	9162	
==>ame'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'param <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	70	171	
==>shot of the prolog regex engine I
started over the weekend.  A "look at what I'm up to".

It passes mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	496	597	
==>unction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	496	597	
==>unction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	496	597	
==>unction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1517	1610	
==>nit and Blondie::List are defined

=head1 DESCRIPTION

These ADTs are the implementation class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	194	312	
==>= shift;
    my $self = $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6466	6578	
==>x:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6466	6578	
==>x:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6466	6578	
==>x:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5887	6027	
==>set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5887	6027	
==>set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5887	6027	
==>set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2893	2990	
==>t newstr;

    if(stringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	440	542	
==>element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	440	542	
==>element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	440	542	
==>element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35937	36032	
==>ontains all of the tuples that are in either or both of the
invocant Relation::Example and C<$ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1114	1218	
==>l5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1114	1218	
==>l5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1114	1218	
==>l5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	238	486	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	238	486	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	927	1118	
==>$iso8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) | <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2657	2767	
==>return $S->object(digit => 0);
  });

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13024	13166	
==>/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    descr  => "Copying necessary device file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14725	14826	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14725	14826	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14725	14826	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	489	604	
==>--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	489	604	
==>--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	489	604	
==>--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7529	7629	
==>ti Array::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; Match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16009	16185	
==>"$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16003	16179	
==>"$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17024	17138	
==>de },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17024	17138	
==>de },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1846	1950	
==>y ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1846	1950	
==>y ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1846	1950	
==>y ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51402	51590	
==>t_attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(symbol->new('$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	177	296	
==>($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	177	296	
==>($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	177	296	
==>($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36289	36417	
==>tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36289	36417	
==>tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36289	36417	
==>tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $len <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3630	3738	
==>tility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5532	5640	
==>tility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    lo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6469	6574	
==>ed outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6252	6355	
==>ed outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4282	4396	
==>tps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4282	4396	
==>tps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4282	4396	
==>tps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19551	19781	
==>{
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19551	19781	
==>{
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19551	19781	
==>{
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8444	8535	
==>LIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8444	8535	
==>LIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8444	8535	
==>LIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CU <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8714	8818	
==>tep
    descr  => "Checking which shared libraries pugs, parrot and bash require",
    ensure => sub { @l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6066	6155	
==>ublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6066	6155	
==>ublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6066	6155	
==>ublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17606	17802	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18263	18459	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17885	18081	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18542	18738	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5763	5845	
==>um/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5953	6035	
==>um/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5763	5845	
==>um/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5953	6035	
==>um/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33709	33813	
==>ther!) returns Relation>

This method is a generic relational operator that takes a single Relation
in it <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34477	34581	
==>ther!) returns Relation>

This method is a generic relational operator that takes a single Relation
in it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38259	38363	
==>ther!) returns Relation>

This method is a generic relational operator that takes a single Relation
in it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39027	39131	
==>ther!) returns Relation>

This method is a generic relational operator that takes a single Relation
in it <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3360	3487	
==>nd error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1278	1380	
==>elf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1278	1380	
==>elf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1278	1380	
==>elf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACK <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5102	5227	
==>str($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5102	5227	
==>str($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5102	5227	
==>str($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4460	4543	
==>Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2334	2436	
==>Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2334	2436	
==>Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2334	2436	
==>Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7183	7287	
==>less $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7195	7299	
==>less $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	819	918	
==>file );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path ) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	819	918	
==>file );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3436	3565	
==>cut

sub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1241	1344	
==>r P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1241	1344	
==>r P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1241	1344	
==>r P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_ins <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1386	1554	
==>s);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1386	1554	
==>s);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	635	774	
==>hod.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	635	774	
==>hod.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9518	9710	
==>[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9518	9710	
==>[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9518	9710	
==>[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1840	1962	
==>, $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8119	8316	
==>oxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8119	8316	
==>oxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8119	8316	
==>oxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    retu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6218	6314	
==>l');

    $template->param("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4873	4978	
==>lessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4873	4978	
==>lessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4873	4978	
==>lessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3698	3799	
==>= call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	771	887	
==>";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	771	887	
==>";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	771	887	
==>";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9982	10102	
==>ch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9982	10102	
==>ch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9982	10102	
==>ch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4404	4502	
==>he Seq will finish, the Thunk will
finish, the stacks will be popped once more, and the whole AST i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8614	8800	
==>re( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8614	8800	
==>re( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8614	8800	
==>re( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2306	2442	
==>ned $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2306	2442	
==>ned $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_st <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17157	17251	
==>se use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17157	17251	
==>se use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	632	791	
==>ok eq '+') {
            push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23301	23398	
==>4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23301	23398	
==>4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23301	23398	
==>4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1457	1558	
==>ub count_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3884	3973	
==>IL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3884	3973	
==>IL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3884	3973	
==>IL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primit <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17030	17141	
==>ess( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2012	2141	
==>);
        die $@ if $@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3718	3820	
==>un::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3718	3820	
==>un::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3718	3820	
==>un::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2763	2872	
==>:Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output = <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2763	2872	
==>:Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4287	4396	
==>:Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24618	24711	
==>ew(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25590	25683	
==>ew(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	568	657	
==>1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	568	657	
==>1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3269	3385	
==>sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3269	3385	
==>sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3269	3385	
==>sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_att <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10332	10443	
==>rExpressionChars>
}
rule RegularExpressionChars {  # see 7.8.5
      <null>
    | <RegularExpressionChars> <Regu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9504	9621	
==>ed mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9504	9621	
==>ed mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15242	15339	
==>h that there
should be no ambiguity when trying to invoke or implement it, and so an
application w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15242	15339	
==>h that there
should be no ambiguity when trying to invoke or implement it, and so an
application w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11288	11470	
==>y \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7570	7752	
==>y \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8404	8586	
==>y \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    ret <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	534	638	
==>\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6824	6924	
==>:= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6824	6924	
==>:= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6824	6924	
==>:= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12112	12208	
==>or.

If all criteria are exhausted when comparing two elements, sort should
return them in the sa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14095	14239	
==>ble -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4176	4308	
==>ble -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4176	4308	
==>ble -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4176	4308	
==>ble -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? e <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1519	1664	
==>ode);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12429	12570	
==>OD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12429	12570	
==>OD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12429	12570	
==>OD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	482	592	
==>ite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1340	1450	
==>ite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13775	13884	
==>last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(St <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13775	13884	
==>last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2591	2696	
==>ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2591	2696	
==>ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2591	2696	
==>ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	975	1077	
==>_[1]) <= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a compara <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	241	379	
==>', '$.error_output' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.output'       => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	461	573	
==>@ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	461	573	
==>@ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	461	573	
==>@ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lval <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13281	13416	
==>s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip with optional r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	966	1080	
==>rn _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	966	1080	
==>rn _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	966	1080	
==>rn _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7174	7287	
==>bal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	48	150	
==>t - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	48	150	
==>t - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	48	150	
==>t - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19537	19661	
==>sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4089	4191	
==>h my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4089	4191	
==>h my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4089	4191	
==>h my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21520	21850	
==>);
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation::Example -
Simple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16268	16370	
==>::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nume <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16268	16370	
==>::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nume <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16268	16370	
==>::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nume <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1774	1904	
==>q 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2517	2647	
==>q 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1774	1904	
==>q 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2505	2635	
==>q 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1442	1570	
==>Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1442	1570	
==>Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1104	1205	
==>s in both Package

and Code -- because it is both a namespace of symbols and has

a main body closure. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1053	1152	
==>s in both Package
and Code -- because it is both a namespace of symbols and has
a main body closure. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24703	24807	
==>unloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCO <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23467	23571	
==>unloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24703	24807	
==>unloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23467	23571	
==>unloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1783	1893	
==>rors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1783	1893	
==>rors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1783	1893	
==>rors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6219	6314	
==>h {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5874	6290	
==>) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7636	8052	
==>) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1772	1883	
==>rl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $cod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1772	1883	
==>rl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $cod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13894	14012	
==>);
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19098	19216	
==>);
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13894	14012	
==>);
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19098	19216	
==>);
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19890	19986	
==>ll the code has been parsed into blocks and the blocks have been
marked for various compilers, Mo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19890	19986	
==>ll the code has been parsed into blocks and the blocks have been
marked for various compilers, Mo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15385	15484	
==>eeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pai <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15443	15542	
==>eeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pai <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2805	2891	
==>news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E< <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2805	2891	
==>news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3332	3481	
==>';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3320	3469	
==>';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + ca <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23954	24047	
==>to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMI <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23954	24047	
==>to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMI <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1308	1416	
==>an_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1235	1338	
==>an_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3935	4028	
==>o rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your con <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3935	4028	
==>o rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your con <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23343	23429	
==>n the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23343	23429	
==>n the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2151	2255	
==>warn "rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2610	2708	
==>TCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2610	2708	
==>TCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2610	2708	
==>TCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15230	15403	
==>->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15230	15403	
==>->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15230	15403	
==>->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5679	5801	
==>ew($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2261	2441	
==>.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2951	3072	
==>e {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, ho <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2951	3072	
==>e {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, ho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31997	32091	
==>=item off

The flags specifically turned off for this object (for flag assertions
and C<(?:...) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2798	2900	
==>) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2798	2900	
==>) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6168	6261	
==>L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constru <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6168	6261	
==>L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constru <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13991	14118	
==>s still alive, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13991	14118	
==>s still alive, the server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13057	13176	
==>s still alive, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13057	13176	
==>s still alive, the server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b <==
4	/Users/nnunley/pugs/util/testgraph.pl	1826	1954	
==>ink {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2721	2813	
==>q 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join("," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2721	2813	
==>q 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join("," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2721	2813	
==>q 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join("," <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12354	12565	
==>{
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	308	420	
==>EHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	308	420	
==>EHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	308	420	
==>EHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5467	5570	
==>rce_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_handler('\V' => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19252	19359	
==>exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19252	19359	
==>exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19252	19359	
==>exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:nam <==
4	/Users/nnunley/pugs/util/package-osx.pl	4685	4782	
==>pm
        /usr/local/man/man3/Perl6::Bible::S06.3pm
        /usr/local/man/man3/Perl6::Bible::S09 <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1928	2050	
==>ray iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr may be a T2::Attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	318	420	
==>::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %var <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	318	420	
==>::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %var <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	318	420	
==>::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9934	10041	
==>die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9934	10041	
==>die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9934	10041	
==>die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1105	1201	
==>List of Relation::AttrName () {
    return %!attrs.keys;
}

method export_attr_type of Relation:: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28062	28157	
==>ARNESS_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke perl on
each t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3251	3345	
==>es this by you setting the expected output and diagnostic output of tests,
running those tests, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3251	3345	
==>es this by you setting the expected output and diagnostic output of tests,
running those tests, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3331	3425	
==>es this by you setting the expected output and diagnostic output of tests,
running those tests, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3260	3355	
==>er::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3260	3355	
==>er::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5457	5552	
==>er::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Te <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4259	4353	
==>$self->add_definition($node, "$type $symbol () {\n\t$body;\n}");
	return $symbol . "()";
}

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9559	9655	
==>. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_par <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9559	9655	
==>. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6614	6706	
==>test_on_object' => sub { 
    '&Object::singleton_test_on_object'
});

is($Object->singleton_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1442	1541	
==>String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "Strin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	875	974	
==>};

$Strap = Test::Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1442	1541	
==>String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "Strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1442	1541	
==>String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "Strin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2089	2268	
==>s Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Stri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2089	2268	
==>s Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2478	2580	
==>> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2478	2580	
==>> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::C <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28428	28524	
==>try to
extract them.  This method is also defined as the implicit handler when
coercing this obje <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35784	35880	
==>try to
extract them.  This method is also defined as the implicit handler when
coercing this obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28428	28524	
==>try to
extract them.  This method is also defined as the implicit handler when
coercing this obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35784	35880	
==>try to
extract them.  This method is also defined as the implicit handler when
coercing this obje <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22640	22762	
==>e
    .local pmc value
    .local pmc exp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1144	1250	
==>mitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1144	1250	
==>mitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1144	1250	
==>mitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	71	178	
==>';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	68	168	
==>';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	68	168	
==>';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	324	468	
==>cess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	324	468	
==>cess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	324	468	
==>cess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' => <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8311	8434	
==>_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = j <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13385	13479	
==>eplace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities no <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13385	13479	
==>eplace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities no <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3807	3900	
==>s module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3807	3900	
==>s module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	779	886	
==>'');
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_nati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2104	2208	
==>ull_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2104	2208	
==>ull_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2104	2208	
==>ull_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20622	20722	
==>ls the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19548	19648	
==>ls the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20622	20722	
==>ls the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19548	19648	
==>ls the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11411	11551	
==>sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()... <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11411	11551	
==>sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()... <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11411	11551	
==>sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()... <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22953	23070	
==>>{estat},'
              . '  $Curtest->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1436	1685	
==>BMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interfac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1436	1685	
==>BMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interfac <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5961	6079	
==>ssage/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5961	6079	
==>ssage/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6655	6772	
==>' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6655	6772	
==>' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6655	6772	
==>' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31662	31753	
==>keys of C<$attrs>
duplicate attribute names of the invocant Relation::Example.

=item C<wrap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4720	4837	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4720	4837	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4720	4837	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1073	1179	
==>Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {iden <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1073	1179	
==>Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {iden <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1073	1179	
==>Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {iden <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32305	32400	
==>g node, its ender() method should
return an array reference of arguments to object() that will p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17306	17399	
==>lue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level func <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17306	17399	
==>lue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level func <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17306	17399	
==>lue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level func <==
4	/Users/nnunley/pugs/util/importgraph.pl	2279	2367	
==>Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/);

my ($nodes, $ed <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1345	1454	
==>ctor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1345	1454	
==>ctor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closu <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3698	3797	
==>sed on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a st <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3698	3797	
==>sed on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a st <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7923	8022	
==>$span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solv <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7923	8022	
==>$span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solv <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	82	177	
==>e 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use C <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	82	177	
==>e 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use C <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9622	9718	
==>data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9622	9718	
==>data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	518	609	
==>es an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	518	609	
==>es an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18601	18696	
==>ion) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the cor <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2891	2986	
==>ion) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the cor <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1111	1204	
==>$<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1111	1204	
==>$<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( < <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1469	1568	
==>i_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescap <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1469	1568	
==>i_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3429	3534	
==>), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3429	3534	
==>), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3429	3534	
==>), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2489	2582	
==>class
system.

Note that the files in this distribution at C<lib/Class.pm> will
probably event <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3756	3944	
==>ches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3641	3823	
==>ches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4076	4160	
==>me-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exceptio <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4076	4160	
==>me-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exceptio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7377	7479	
==>x,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7377	7479	
==>x,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7377	7479	
==>x,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch- <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	133	245	
==>Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PRO <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	133	245	
==>Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PRO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15937	16034	
==>ht classes on the subject over the last
35+ years, along with Codd himself (some are listed in the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15937	16034	
==>ht classes on the subject over the last
35+ years, along with Codd himself (some are listed in the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	421	567	
==>() {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	421	567	
==>() {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	421	567	
==>() {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.c <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8084	8180	
==>ession, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Array::rever <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16034	16136	
==>ill be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted chumminess with com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10926	11026	
==>$ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10926	11026	
==>$ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10926	11026	
==>$ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/l <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3524	3687	
==>} || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1301	1423	
==>f defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1301	1423	
==>f defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1556	1673	
==>thod parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1556	1673	
==>thod parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1508	1679	
==>$cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1508	1679	
==>$cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in pa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14942	15056	
==>$I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob[" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	14	118	
==>se JIB::Config;
use Path::Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	260	382	
==>.perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # corre <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	260	382	
==>.perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # corre <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	260	382	
==>.perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # corre <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1852	1967	
==>trap->_init;

Initialize the internal state of a strap to make it ready for parsing.

=cut

sub _init {
    my($self <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21248	21345	
==>it provides a
common API for access to those databases, each of which takes a different
SQL or pse <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21248	21345	
==>it provides a
common API for access to those databases, each of which takes a different
SQL or pse <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10724	10817	
==>ng returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10724	10817	
==>ng returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	373	469	
==>nction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	373	469	
==>nction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	373	469	
==>nction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32219	32363	
==>ispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32874	33018	
==>ispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29427	29570	
==>ispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4338	4472	
==>ual, @{ $self->{data} }), "]";
  }

  sub raw {
    my $self = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2592	2692	
==>b resolve_type {
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util::bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4790	4881	
==>" . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4790	4881	
==>" . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4790	4881	
==>" . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10389	10536	
==>instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10389	10536	
==>instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10389	10536	
==>instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_) <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1288	1428	
==>{
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_cu <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1288	1428	
==>{
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_cu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22672	22767	
==>age that contains all possibly useful details, so
that each Template can optionally use them; bu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22672	22767	
==>age that contains all possibly useful details, so
that each Template can optionally use them; bu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11983	12129	
==>ush @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $failedtests{$tfile} = _dubious_return( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2910	3026	
==>ite to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2910	3026	
==>ite to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2910	3026	
==>ite to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDE <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	919	1032	
==>$n~' <= $^n <  2**'~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5811	5906	
==><status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash b <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5811	5906	
==><status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8008	8103	
==><status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2751	2955	
==>h $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2751	2955	
==>h $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	892	992	
==>ed 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	892	992	
==>ed 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49975	50171	
==>=> 'str'
            ),            
            sub {
                my $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1864	1969	
==>(substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1864	1969	
==>(substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1864	1969	
==>(substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	595	703	
==>tch failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	595	703	
==>tch failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12081	12174	
==>:Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12081	12174	
==>:Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3886	3995	
==>et( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7363	7472	
==>et( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6329	6438	
==>et( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3604	3797	
==>tore       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	10	112	
==>elude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	10	112	
==>elude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	10	112	
==>elude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::J <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	638	744	
==>ders = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	638	744	
==>ders = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!hea <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6132	6231	
==>set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6132	6231	
==>set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	511	636	
==>/;
#        return "\\synvar\{$segil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7333	7439	
==>less $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$prefix)=@_;
    my $ref = r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2021	2116	
==>se if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2021	2116	
==>se if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2021	2116	
==>se if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24100	24200	
==>:X1::Api::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_CODE {
    "(throw Perl6::Run::O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2480	2576	
==>000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check speci <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2480	2576	
==>000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check speci <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2480	2576	
==>000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check speci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8444	8552	
==>e_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8444	8552	
==>e_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8444	8552	
==>e_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2447	2546	
==><-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24978	25075	
==>nd all commands immediately to the server, but creates a queue, which is then
slowly sent to the s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23742	23839	
==>nd all commands immediately to the server, but creates a queue, which is then
slowly sent to the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24978	25075	
==>nd all commands immediately to the server, but creates a queue, which is then
slowly sent to the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23742	23839	
==>nd all commands immediately to the server, but creates a queue, which is then
slowly sent to the s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3770	3880	
==>);

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3770	3880	
==>);

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15130	15222	
==>ble "Engine" back-ends (usually provided by third
parties) implement.  This interface is rigo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15130	15222	
==>ble "Engine" back-ends (usually provided by third
parties) implement.  This interface is rigo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13189	13341	
==>om ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13189	13341	
==>om ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12285	12427	
==>om ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12285	12427	
==>om ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2116	2220	
==>cape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2116	2220	
==>cape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2116	2220	
==>cape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28693	28786	
==>general family of this object.  These are any of: alnum, anchor,
anyof, anyof_char, anyof_clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1352	1466	
==>= $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1352	1466	
==>= $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2784	2890	
==>dl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2784	2890	
==>dl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9557	9661	
==>g  => sub { system "mkfs.ext2", "-m", "0", "-F", $initrd_img };

  step
    descr  => "Mounting \"$initrd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1928	2018	
==>tant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1928	2018	
==>tant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1928	2018	
==>tant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6842	6945	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6842	6945	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6842	6945	
==>(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9373	9469	
==>ific capture group, pass its numerical
value:

  my $capture_2 = $parser->captures(2);

=head2 Wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	160	254	
==>:Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	160	254	
==>:Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	160	254	
==>:Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5421	5536	
==>e:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5421	5536	
==>e:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5421	5536	
==>e:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    C <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27452	27545	
==>nt", ":t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4575	4727	
==>ub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4575	4727	
==>ub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4575	4727	
==>ub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	115	208	
==>londie is a dumb intermediate language and a compiler collection for
the purpose of demonstrat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3545	3663	
==>r a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            my $ref = reference->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8940	9042	
==>.};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8940	9042	
==>.};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8940	9042	
==>.};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10918	11071	
==>"
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$un <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10918	11071	
==>"
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$un <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8630	8728	
==>r any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8630	8728	
==>r any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cip <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	109	218	
==>($testdir);
mkdir($testdir);
die "Could not create '$testdir':$!" unless -d $testdir;

open(my $F, ">$test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3185	3289	
==>ter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3185	3289	
==>ter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3185	3289	
==>ter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in pe <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	761	917	
==>har eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	761	917	
==>har eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2975	3083	
==>f @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2975	3083	
==>f @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7590	7723	
==>eption
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7590	7723	
==>eption
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the messa <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6531	6637	
==>ent>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how sho <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6531	6637	
==>ent>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how sho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	963	1069	
==>ore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	963	1069	
==>ore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	963	1069	
==>ore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ti <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6986	7072	
==>).
p5_metachar("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_metachar("{").

isP6meta <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8295	8393	
==>destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has n <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8295	8393	
==>destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1131	1225	
==>section for details.  (In particular, 
note that the serious insecurities plaguing WEP were cau <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1131	1225	
==>section for details.  (In particular, 
note that the serious insecurities plaguing WEP were cau <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3551	3724	
==>while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3551	3724	
==>while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4268	4367	
==>ram object).

Then the thunk for + will be reduced, with 1 and 10 in the parameter stack, the
dynami <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6055	6152	
==>rl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6055	6152	
==>rl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6055	6152	
==>rl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{sl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14371	14474	
==>>to_struct } @{ $self->available };
    eval { DumpFile( $self->available_file, @avail ) };
    $@ and e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	76	177	
==>re::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use Scala <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14710	14830	
==>de', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and te <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14710	14830	
==>de', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and te <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14710	14830	
==>de', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and te <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3190	3301	
==>ostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nicknam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3190	3301	
==>ostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nicknam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3771	3878	
==>ostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nicknam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3771	3878	
==>ostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nicknam <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8823	8943	
==>> chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8823	8943	
==>> chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30843	30945	
==>ame; it
must be the same for every module in the same set as the current one.  The
Member Name comes ne <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30843	30945	
==>ame; it
must be the same for every module in the same set as the current one.  The
Member Name comes ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2180	2277	
==>method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2180	2277	
==>method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2180	2277	
==>method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$labe <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6152	6291	
==>ays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4654	4793	
==>ays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5536	5651	
==>_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5536	5651	
==>_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4002	4133	
==>";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)} <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4002	4133	
==>";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6974	7083	
==>4 = $Result3 % $n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	162	261	
==>ernals to do the job
* Some of this had not been specced yet (need S29 work).

When writing primitiv <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11488	11651	
==>h;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = << <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7770	7933	
==>h;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = << <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8604	8767	
==>h;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = << <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21584	21690	
==>l::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7550	7657	
==>TENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7550	7657	
==>TENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3973	4070	
==>Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3973	4070	
==>Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7126	7239	
==>l add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7126	7239	
==>l add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6931	7039	
==>6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6931	7039	
==>6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	400	509	
==>ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	400	509	
==>ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	400	509	
==>ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	66	168	
==>cky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	66	168	
==>cky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	66	168	
==>cky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1179	1289	
==>IL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1179	1289	
==>IL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1179	1289	
==>IL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	247	344	
==>e is much less.  The test passing was simply to
permit refactoring with confidence.

It uses Langu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2309	2434	
==>alse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2309	2434	
==>alse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2309	2434	
==>alse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($ne <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	59	158	
==>isierter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Al <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	173	292	
==>ut   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	173	292	
==>ut   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1690	1786	
==>e;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1690	1786	
==>e;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2083	2230	
==>)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2083	2230	
==>)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2083	2230	
==>)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15383	15502	
==>t( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} ) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8296	8401	
==>h. Spec would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22425	22517	
==>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22425	22517	
==>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4111	4236	
==>e::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4111	4236	
==>e::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1933	2032	
==>Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1933	2032	
==>Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1933	2032	
==>Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27647	27742	
==>values 0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3935	4051	
==>nd($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3935	4051	
==>nd($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4525	4641	
==>nd($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args-> <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6556	6652	
==>tall GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25221	25400	
==>);
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25221	25400	
==>);
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25221	25400	
==>);
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3698	3834	
==>e->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ an <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10160	10261	
==>nded to eventually replace Prim.hs's open (or be replaced by
    # it, since that would probably be fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2539	2633	
==>r(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2539	2633	
==>r(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2539	2633	
==>r(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	215	314	
==>nstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	215	314	
==>nstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	215	314	
==>nstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7836	7934	
==>{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7836	7934	
==>{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7836	7934	
==>{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1158	1255	
==>ME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19365	19491	
==>OS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15786	15912	
==>OS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22847	22960	
==>$S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19268	19381	
==>$S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14758	14882	
==>LL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10041	10141	
==>n;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10041	10141	
==>n;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10041	10141	
==>n;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23721	23835	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24000	24114	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3851	3942	
==>to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eec <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3851	3942	
==>to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eec <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17623	17726	
==>nternal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17623	17726	
==>nternal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $spa <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	443	542	
==>able for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.b <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	443	542	
==>able for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11345	11434	
==>t::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Te <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3347	3434	
==>ol>|<assert_eol>|<lookahead>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1801	1886	
==>t::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1801	1886	
==>t::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Te <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	132	250	
==>t { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	132	250	
==>t { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15125	15224	
==>set if you pass
an argument to the method.  The old header value is always returned.
If the given he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15125	15224	
==>set if you pass
an argument to the method.  The old header value is always returned.
If the given he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12470	12590	
==>> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12470	12590	
==>> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12470	12590	
==>> _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9903	10018	
==>plit( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15744	15859	
==>plit( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9903	10018	
==>plit( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15738	15853	
==>plit( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10859	10955	
==>c?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10917	11013	
==>c?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool : <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20247	20339	
==>)>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20247	20339	
==>)>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execut <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3730	3839	
==>le the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3730	3839	
==>le the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5254	5363	
==>le the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1743	1838	
==>b import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_regexp_pair {
  my($pat,$np <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	190	311	
==>ebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.ke <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8578	8699	
==>e($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.ne <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	190	311	
==>ebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.ke <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8578	8699	
==>e($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1391	1485	
==>,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1391	1485	
==>,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1391	1485	
==>,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1151	1310	
==>ORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1151	1310	
==>ORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9100	9219	
==>y_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9088	9207	
==>y_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	633	740	
==>rl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	633	740	
==>rl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	633	740	
==>rl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2299	2417	
==>f;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2299	2417	
==>f;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2299	2417	
==>f;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18055	18153	
==>:<$_>, Int $limit = inf --> List )
 multi Str::split ( Rule $delimiter ,  Str $input = CALLER::<$_> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3840	3965	
==>n-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $requ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3840	3965	
==>n-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $requ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3840	3965	
==>n-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $requ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23836	23931	
==>y subroutines or export such.

The usual way that Relation::Example indicates a failure is to th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20894	20998	
==>C plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20894	20998	
==>C plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1057	1160	
==>definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1057	1160	
==>definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15330	15437	
==>get  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => - <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15330	15437	
==>get  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => - <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	103	192	
==>e time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	103	192	
==>e time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9824	9956	
==>ne =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9824	9956	
==>ne =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9824	9956	
==>ne =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cst <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2208	2309	
==>ypeSafe::Annotation->new(
				type => [$from => $to],
				struct_equiv => Blondie::Val->new(
					Blon <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2344	2452	
==>ldren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    } <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2344	2452	
==>ldren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19248	19344	
==>nE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19248	19344	
==>nE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11488	11611	
==>^"(.*)"$/);
#     $body->push_content(HTML::Element->new('pre')->push_content($text));
      
      my $link = {};
      $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1374	1470	
==>"String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1374	1470	
==>"String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1374	1470	
==>"String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»", <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2485	2630	
==>scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		next;
	    }
	    
	    # norm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4755	4856	
==>od_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4755	4856	
==>od_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4755	4856	
==>od_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pro <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2420	2545	
==>natives
        last LINKING unless $href->{$pkg};
        
        ### XXX this should probably be done in one go, so we don' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1852	1984	
==>ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1852	1984	
==>ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1852	1984	
==>ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24503	24603	
==>orted
  }

You'll probably not be adding handlers that have to parse flags, but if
you do, remember t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3016	3153	
==>r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3016	3153	
==>r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2092	2201	
==>_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2092	2201	
==>_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_m <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	117	230	
==>r $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME e <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	117	230	
==>r $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4555	4652	
==>export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4555	4652	
==>export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3988	4097	
==>my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3988	4097	
==>my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.sta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5383	5481	
==>te %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5383	5481	
==>te %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($even <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	496	617	
==>te user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    p <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	496	617	
==>te user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    p <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3895	3982	
==>-------------------------------------------
## removing children

method remove_child_at <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3895	3982	
==>-------------------------------------------
## removing children

method remove_child_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	451	562	
==>ostcircumfix', 
        assoc => 'non',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4081	4178	
==>am (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4081	4178	
==>am (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4671	4768	
==>am (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26958	27114	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27237	27393	
==>(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23801	23894	
==>mplementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23801	23894	
==>mplementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4758	4859	
==>source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proces <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4758	4859	
==>source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proces <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4758	4859	
==>source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proces <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1243	1370	
==>egex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the dif <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1243	1370	
==>egex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the dif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14001	14098	
==>s called once for each value.  The field name passed to the
callback routine has case as suggested <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14001	14098	
==>s called once for each value.  The field name passed to the
callback routine has case as suggested <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11363	11512	
==>$spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11363	11512	
==>$spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11363	11512	
==>$spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## ret <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11218	11325	
==>tive is unsafe is builtin {
        Pugs::Internals::hSeek(self, $position, $whence);
    }
}


class Pipe { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4469	4574	
==>rn $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4469	4574	
==>rn $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1418	1514	
==>insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in par <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1418	1514	
==>insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3137	3252	
==>ue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3137	3252	
==>ue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3137	3252	
==>ue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_ <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1728	1828	
==>which will turn on per iteration printing
    
If you omit the fprime, a second order centered differ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3836	4065	
==>und++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3836	4065	
==>und++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1215	1310	
==>method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1215	1310	
==>method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1215	1310	
==>method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6311	6402	
==>("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6311	6402	
==>("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6311	6402	
==>("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27939	28041	
==>(opaque $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7221	7320	
==>ch);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7221	7320	
==>ch);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7221	7320	
==>ch);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2222	2336	
==>e_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2222	2336	
==>e_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2222	2336	
==>e_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17432	17637	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23398	23603	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17711	17916	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23677	23882	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8700	8800	
==>he more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8700	8800	
==>he more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8958	9056	
==>he more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8958	9056	
==>he more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1822	1954	
==>lass
            $class = $class->superclass;
        }

        confess "No method found for '$label'";
    }
}

# The 'Class' class <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1532	1635	
==>filename > -M $config_template) {
        print <<".";
*** Build config file '$filename' is older than t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2593	2688	
==>subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2593	2688	
==>subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	63	165	
==>::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	63	165	
==>::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	63	165	
==>::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub : <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10479	10580	
==>pressionFirstChar {  # see 7.8.5
      <!before <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9317	9487	
==>fter ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9317	9487	
==>fter ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15373	15468	
==>string identifies what kind of Node this is, and by extension
what kinds of attributes or relati <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15373	15468	
==>string identifies what kind of Node this is, and by extension
what kinds of attributes or relati <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24579	24675	
==>head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23343	23439	
==>head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24579	24675	
==>head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23343	23439	
==>head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24582	24677	
==>d1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successful <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23346	23441	
==>d1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successful <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24582	24677	
==>d1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successful <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23346	23441	
==>d1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successful <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4563	4738	
==>ly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4563	4738	
==>ly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4563	4738	
==>ly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24575	24726	
==>w('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24575	24726	
==>w('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24575	24726	
==>w('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11782	11925	
==>";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot include f <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1797	1910	
==>indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.h <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	974	1085	
==>indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.h <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1447	1558	
==>indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3365	3472	
==>es."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6842	6949	
==>es."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5799	5906	
==>es."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate ea <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19641	19748	
==>> ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new("str")),
	),
);

# we can apply a p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6558	6734	
==>}
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6558	6734	
==>}
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3685	3821	
==>reach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3825	3961	
==>reach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $stat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5947	6056	
==>value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5935	6044	
==>value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    fo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4424	4520	
==>ead1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simpl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4424	4520	
==>ead1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simpl <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2473	2709	
==>hod>),
                                ),
                                Tree.new(:node<Macro>)
                            ),
                            Tree.new(:node<Block>).add_children(
                                Tree.new(:no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34790	34897	
==>body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34790	34897	
==>body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34790	34897	
==>body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8510	8636	
==>->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $ne <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8510	8636	
==>->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $ne <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2867	2981	
==>print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @ind <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3331	3445	
==>print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @ind <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1303	1397	
==>o.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This pr <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1303	1397	
==>o.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2790	2882	
==>sm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6242	6334	
==>sm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2790	2882	
==>sm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2790	2882	
==>sm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1269	1417	
==>);
        $obj->dir(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path mani <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2380	2520	
==>rint ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2380	2520	
==>rint ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2380	2520	
==>rint ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3291	3391	
==>ttr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3291	3391	
==>ttr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3291	3391	
==>ttr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2519	2620	
==>just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $volu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2519	2620	
==>just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $volu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3786	3886	
==>.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method compl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3786	3886	
==>.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method compl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	240	351	
==>have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Several "SourceCharacter but not ..." have be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9658	9763	
==>----------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9658	9763	
==>----------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9658	9763	
==>----------------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2006	2151	
==>_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NA <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2006	2151	
==>_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NA <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	92	186	
==>e_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	92	186	
==>e_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3969	4068	
==>s:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4153	4252	
==>s:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * rat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1087	1185	
==>lled to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Modu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1087	1185	
==>lled to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Modu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6472	6575	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5602	5705	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6472	6575	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5602	5705	
==> (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2654	2769	
==>gs 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2654	2769	
==>gs 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2654	2769	
==>gs 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8710	8816	
==>_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3185	3284	
==>:bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3185	3284	
==>:bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3185	3284	
==>:bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->ex <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15783	15877	
==>turns a C<Str>, the returned C<Str>
will support the same levels as the input, unless specified <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5975	6111	
==>urn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5975	6111	
==>urn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9917	10013	
==>tta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9917	10013	
==>tta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1597	1705	
==>=> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1597	1705	
==>=> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1597	1705	
==>=> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @p <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3149	3248	
==>me> <element_expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <eleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2480	2575	
==>e);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2480	2575	
==>e);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2480	2575	
==>e);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}- <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6870	7053	
==>l itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD li <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6927	7110	
==>l itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD li <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4164	4261	
==>day can also be the string "last", in which case the
object returned represents the last day for t <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4164	4261	
==>day can also be the string "last", in which case the
object returned represents the last day for t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6818	6975	
==>%hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11378	11530	
==>%hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12176	12328	
==>%hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12903	13055	
==>%hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12836	12944	
==>lete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12836	12944	
==>lete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12836	12944	
==>lete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) <==
4	/Users/nnunley/pugs/t/packages/Test.pm	142	249	
==>pkg {
    Our::Package::pkg();
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_pkg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4351	4450	
==>infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4351	4450	
==>infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4351	4450	
==>infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2286	2422	
==>alar @{$self->get_value('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1468	1570	
==>dd.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1468	1570	
==>dd.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1468	1570	
==>dd.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13917	14046	
==>eck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13917	14046	
==>eck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13917	14046	
==>eck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30417	30516	
==>lk()

"Walks" the object.  This is used to dive into the node's children
when using a walker (see L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15074	15205	
==>upers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actua <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15074	15205	
==>upers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actua <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15074	15205	
==>upers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actua <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1323	1417	
==>($node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if defined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	77	192	
==>ct;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

sub _mangle_ident {
    my $s = shift;
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3428	3520	
==>b6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3428	3520	
==>b6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3428	3520	
==>b6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	10	269	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'R <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	10	269	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	10	269	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	10	269	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'R <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4838	4956	
==>( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1001	1111	
==>ub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1001	1111	
==>ub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1001	1111	
==>ub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16578	16693	
==>/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16578	16693	
==>/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16578	16693	
==>/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4677	4774	
==>rence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3804	3901	
==>rence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4677	4774	
==>rence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3804	3901	
==>rence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13298	13419	
==>e and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13298	13419	
==>e and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::R <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1634	1731	
==>ead1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The c <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1634	1731	
==>ead1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5510	5638	
==>Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5510	5638	
==>Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1443	1553	
==>hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
} <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1443	1553	
==>hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5104	5217	
==>ke () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5104	5217	
==>ke () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5104	5217	
==>ke () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	199	306	
==>mber';

use base 'type';

our $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our $FALSE = bless \(my $f = 0) => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	193	307	
==>> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	197	311	
==>> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	193	307	
==>> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	197	311	
==>> $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6323	6426	
==>turns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5453	5556	
==>turns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6323	6426	
==>turns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5453	5556	
==>turns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20288	20391	
==>er($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20288	20391	
==>er($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20288	20391	
==>er($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pu <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3763	3856	
==>"pugs_version", Pugs.Version.version)
    ,("pugs_revision", Pugs.Version.revnum)
    ]

getCo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7981	8100	
==>xp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->conca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3665	3769	
==>estroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3665	3769	
==>estroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3665	3769	
==>estroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18330	18468	
==>$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKME <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21589	21727	
==>$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKME <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41595	41733	
==>$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKME <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44496	44634	
==>$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17210	17338	
==>= __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17210	17338	
==>= __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17210	17338	
==>= __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7778	7884	
==>$pCxt, $pFun, $pInv, $pArgs) {
    my $has_inv = defined($pInv) ? 1 : 0;
    my @inv = defined($pInv) ? (DO <==
4	/Users/nnunley/pugs/util/addauthors.pl	692	806	
==>estics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20073	20165	
==>has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20073	20165	
==>has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	968	1095	
==>a("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	976	1098	
==>a("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8481	8576	
==>s joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8481	8576	
==>s joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4410	4547	
==>q "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4410	4547	
==>q "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4410	4547	
==>q "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ? <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	117	214	
==>w[check];
use Log::Message::Simple    qw[:STD];
use Data::Dumper;

use base 'Object::Accessor';

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38557	38688	
==>, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38557	38688	
==>, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38557	38688	
==>, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10117	10268	
==>=> 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10117	10268	
==>=> 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6017	6124	
==>vious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

metho <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6017	6124	
==>vious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

metho <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	846	944	
==>ine ~~ s:perl5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	355	452	
==>le with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	355	452	
==>le with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	355	452	
==>le with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1515	1617	
==>{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1515	1617	
==>{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1515	1617	
==>{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3368	3464	
==>.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_local
    Locally, the GRUB tarbal <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2774	2867	
==>her.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.gre <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2774	2867	
==>her.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.gre <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18710	18803	
==>avoid problems.  While simultaneously
trying to avoid triggering core behavior which we are no <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3000	3093	
==>avoid problems.  While simultaneously
trying to avoid triggering core behavior which we are no <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1352	1468	
==>};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13566	13658	
==>set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13566	13658	
==>set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8782	8902	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8975	9095	
==>leop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11737	11834	
==>es_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11737	11834	
==>es_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6562	6669	
==>rgs));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6562	6669	
==>rgs));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7433	7539	
==>rgs));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7433	7539	
==>rgs));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5586	5709	
==>urn bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5808	5931	
==>urn bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5814	5912	
==>nly method that truly must be implemented is the 
one that actually enciphers the data.  They may c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5814	5912	
==>nly method that truly must be implemented is the 
one that actually enciphers the data.  They may c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21626	21736	
==>ub _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3543	3652	
==>hod, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dum <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3543	3652	
==>hod, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dum <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3543	3652	
==>hod, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18773	18947	
==>3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18773	18947	
==>3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18773	18947	
==>3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{ti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	503	649	
==>@$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	503	649	
==>@$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15231	15331	
==>h identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), bod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18708	18808	
==>h identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), bod <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13499	13605	
==>s a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $mont <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13499	13605	
==>s a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $mont <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31996	32091	
==>mplate module sets in turn, looking at just the set member for
each that corresponds to language <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31996	32091	
==>mplate module sets in turn, looking at just the set member for
each that corresponds to language <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27282	27378	
==>ew Relation
which has a superset of the original's attributes; the new Relation has as
many addit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31834	31930	
==>ew Relation
which has a superset of the original's attributes; the new Relation has as
many addit <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21215	21304	
==>e normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21215	21304	
==>e normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3127	3223	
==>d_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be neede <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3127	3223	
==>d_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be neede <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1551	1677	
==>) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdri <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1468	1570	
==>) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdri <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2419	2519	
==>name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2419	2519	
==>name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9413	9532	
==> $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available:  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9413	9532	
==> $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available:  <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10731	10825	
==>E:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` buil <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10789	10883	
==>E:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1227	1322	
==>So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1227	1322	
==>So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1227	1322	
==>So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#I <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7255	7365	
==>r.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7255	7365	
==>r.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7255	7365	
==>r.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27599	27689	
==>r::*> objects inherit from
F<Regexp::Parser::__object__>, the global object base class.  Al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27243	27367	
==>}, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13833	13927	
==>b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13833	13927	
==>b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13833	13927	
==>b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22891	22984	
==>Relation::Example object is determined when it is constructed, and the object can
not be chang <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8455	8544	
==>IL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8455	8544	
==>IL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8455	8544	
==>IL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3378	3523	
==>$cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4227	4372	
==>$cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2991	3098	
==>ule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc - <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2991	3098	
==>ule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc - <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6165	6302	
==>{
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_num} = $child;
            $self->run_test($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3817	3934	
==>_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3817	3934	
==>_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3817	3934	
==>_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1867	2029	
==>rent tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $curre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1867	2029	
==>rent tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $curre <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	214	316	
==>Maker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	108	210	
==>Maker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10646	10774	
==>ath {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10646	10774	
==>ath {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $pa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6732	6829	
==>s no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6732	6829	
==>s no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4707	4847	
==>p ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4707	4847	
==>p ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4234	4357	
==>pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4222	4345	
==>pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	517	629	
==>arset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method han <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1130	1242	
==>arset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method han <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	517	629	
==>arset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method han <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1130	1242	
==>arset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method han <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3916	4024	
==>ar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax er <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4133	4241	
==>ar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax er <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1170	1274	
==>:Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no paren <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1170	1274	
==>:Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no paren <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3052	3147	
==>:False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.univ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3052	3147	
==>:False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.univ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16216	16323	
==>sts, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    my $r = $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2301	2397	
==>,
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2301	2397	
==>,
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2301	2397	
==>,
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, " <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13664	13807	
==>tring,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3793	3924	
==>tring,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3793	3924	
==>tring,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3793	3924	
==>tring,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4212	4305	
==>eturn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4212	4305	
==>eturn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4212	4305	
==>eturn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2733	2837	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keye <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10653	10757	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2733	2837	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10653	10757	
==>method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::Keye <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2767	2865	
==>ad1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authors <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2924	3022	
==>ad1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authors <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2767	2865	
==>ad1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authors <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2924	3022	
==>ad1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authors <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12817	12930	
==>shref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12817	12930	
==>shref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12817	12930	
==>shref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	728	829	
==>erl6->parse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26878	26975	
==>but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31430	31527	
==>but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the ret <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	19	108	
==>er simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a. <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	37	126	
==>er simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4820	4942	
==>=> chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4820	4942	
==>=> chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1639	1756	
==>::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1779	1896	
==>::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12700	12849	
==>::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed;
          r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3064	3205	
==>::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3064	3205	
==>::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        r <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16475	16573	
==>users should consider setting their I/O handles to autochomp
instead of this step.


=item lc

 mul <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13186	13280	
==>module (currently Inline::C),
  and is thus not very portable to broken (no compiler) microsoft <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12713	12797	
==>qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Excepti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12713	12797	
==>qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Excepti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12713	12797	
==>qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Excepti <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	808	916	
==>abstract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self->prompt($prompt, ($def <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4811	4909	
==>}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* at <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4811	4909	
==>}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* at <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4811	4909	
==>}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* at <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2408	2549	
==>e "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2408	2549	
==>e "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8581	8704	
==>en = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8581	8704	
==>en = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4688	4856	
==>.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5347	5515	
==>.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4688	4856	
==>.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5347	5515	
==>.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $. <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	423	536	
==>'200 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$location
) returns Str {
    # construct our h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1087	1175	
==>PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1087	1175	
==>PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1087	1175	
==>PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37786	37881	
==>ts positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37786	37881	
==>ts positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module na <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19204	19296	
==>bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19204	19296	
==>bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15164	15301	
==>xp::Scalar")
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    mob["cname"] = cname
    pos = $I0
    goto end
  name:
    inc p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3921	4020	
==>rray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3921	4020	
==>rray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3921	4020	
==>rray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10145	10422	
==>sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCrite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21427	21520	
==>p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21427	21520	
==>p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21427	21520	
==>p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6503	6597	
==>ortation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6503	6597	
==>ortation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6503	6597	
==>ortation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $in <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2250	2341	
==>efine RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15266	15363	
==>T METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return th <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15266	15363	
==>T METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return th <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10304	10392	
==>,defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11039	11127	
==>,defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24708	24859	
==>ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24987	25138	
==>ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2257	2366	
==>n $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2257	2366	
==>n $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) r <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3997	4104	
==>index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no child <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3997	4104	
==>index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no child <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2182	2262	
==>PAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/> <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2182	2262	
==>PAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18795	18943	
==>OAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18795	18943	
==>OAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18795	18943	
==>OAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AU <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1436	1573	
==>ite           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2053	2159	
==>output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $messa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	62	160	
==>output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $messa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	62	160	
==>output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $messa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4601	4699	
==>right x for p3d');
is($p3d->get_y, 6, '... got the right y for p3d');
is($p3d->get_z, 7, '... got t <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	932	1054	
==>"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # cap <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	932	1054	
==>"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # cap <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19608	19700	
==>e are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19608	19700	
==>e are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	16	130	
==>ist--Perl6;

# what is below is ripped straight out of S29.  I think most of these
# actually belong on "Map"

 mul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	103	204	
==>006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	103	204	
==>006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	71	171	
==>006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	458	566	
==>tions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definitions to <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	434	539	
==>tions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definitions to <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6204	6303	
==>xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6204	6303	
==>xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a ' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25827	25922	
==>pty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25827	25922	
==>pty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6997	7088	
==>", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7055	7146	
==>", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9889	10025	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10168	10304	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8330	8443	
==>perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code asse <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8330	8443	
==>perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code asse <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4148	4250	
==>neNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1481	1580	
==>pc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1481	1580	
==>pc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1481	1580	
==>pc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9011	9136	
==>ies (*.so) pugs
      requires. This is necessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2576	2688	
==>lly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2576	2688	
==>lly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2576	2688	
==>lly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9809	9948	
==>exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environment variable.\n"
        unless $ghc_pkg;

    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	547	652	
==>se of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * R <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	547	652	
==>se of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * R <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	547	652	
==>se of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * R <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5929	6025	
==>back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5929	6025	
==>back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8126	8222	
==>back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3446	3528	
==>lder->FETCH('::Test')->STORE('::WithReason' => role 'TestBuilder::Test::WithReason' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12940	13141	
==>Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12940	13141	
==>Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12940	13141	
==>Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self-> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8862	8966	
==>ems_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_charset_items( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5883	5987	
==>sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5883	5987	
==>sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5883	5987	
==>sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5849	5937	
==>->simplify_type($expected_type);

		return $node if $self->types_eq($de_facto_type, $expe <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5386	5525	
==>unlink(glob("*"));
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37069	37197	
==>= @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1481	1596	
==>der.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1481	1596	
==>der.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4546	4710	
==>ncy
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5010	5174	
==>ncy
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26269	26402	
==>get_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $self: opaq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4665	4769	
==>xed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4665	4769	
==>xed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4665	4769	
==>xed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4488	4585	
==>tails above).  It prints
out each individual test which failed along with a summary report and
a h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28834	29042	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29113	29321	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22688	22784	
==>s all possibly useful details, so
that each Template can optionally use them; but often a templat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22688	22784	
==>s all possibly useful details, so
that each Template can optionally use them; but often a templat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12793	12948	
==>me = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2948	3060	
==>2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2948	3060	
==>2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2948	3060	
==>2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17491	17603	
==>); # dont want current class;
    push(@classes,$ROOT);

    my $code = "";
    $code .= "package $ROOT".($pkg eq <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3734	3841	
==>{
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5094	5201	
==>{
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1492	1594	
==>use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	value => $value,
	warn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3469	3646	
==>cat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3716	3893	
==>cat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1621	1740	
==>';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2401	2520	
==>';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18091	18211	
==>f $specifier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1162	1263	
==>005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1162	1263	
==>005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1162	1263	
==>005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3327	3446	
==>" " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3327	3446	
==>" " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3327	3446	
==>" " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (2 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2171	2290	
==>~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join(" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2171	2290	
==>~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join(" <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	116	228	
==>s Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @M <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	116	228	
==>s Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5012	5145	
==>});
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16048	16181	
==>});
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17536	17669	
==>});
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22219	22352	
==>});
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1781	1888	
==>iables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1781	1888	
==>iables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1781	1888	
==>iables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($n <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	219	320	
==>model (M1)

=head1 SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new(" <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7033	7150	
==>Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pre     Str::spl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1901	2013	
==>.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1901	2013	
==>.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1901	2013	
==>.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2948	3063	
==>ers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2948	3063	
==>ers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2948	3063	
==>ers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3503	3615	
==>atchObjFrom, my $matchObjPos) = Parser::Rule::Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8736	8843	
==>.}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8736	8843	
==>.}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8736	8843	
==>.}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2005	2109	
==>pile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22582	22680	
==>programs is similar to
the intended use of a L<Set> class; a Relation::Example is like a Set that e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	303	400	
==>e isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	303	400	
==>e isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	303	400	
==>e isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packag <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1737	1833	
==>roduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, In <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1737	1833	
==>roduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, In <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	717	811	
==>This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to be <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	717	811	
==>This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to be <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	863	965	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	863	965	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	863	965	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2957	3083	
==>perclass'}) {
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	413	530	
==>referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	413	530	
==>referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	413	530	
==>referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5072	5198	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16108	16234	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17596	17722	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22279	22405	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx-> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5881	6004	
==>.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An obje <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5881	6004	
==>.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An obje <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1142	1244	
==>le)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1142	1244	
==>le)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3585	3767	
==>ft') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = . <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3585	3767	
==>ft') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4840	4951	
==>ckages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_con <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4840	4951	
==>ckages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12245	12341	
==>nit_header( $field, $value )

Set the specified header to the given value, but only if no previou <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12245	12341	
==>nit_header( $field, $value )

Set the specified header to the given value, but only if no previou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36241	36328	
==>ng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36241	36328	
==>ng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11741	11843	
==><ExponentPart>?
    | <DecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <Decima <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3174	3272	
==>n objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3174	3272	
==>n objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3174	3272	
==>n objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1111	1224	
==>n3dir => $Config{installsiteman3dir} || $Config{installman3dir},

        sourcedir      => Cwd::abs_path(),
    } <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15488	15581	
==>$expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15546	15639	
==>$expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4800	4915	
==>?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws>? 
        \) <?p6ws>?
    <code> 
        {
	 eval Emitter::Perl5::em <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3005	3153	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statem <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11701	11849	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3198	3346	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11980	12128	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6599	6725	
==>warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6599	6725	
==>warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6599	6725	
==>warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            r <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1848	1970	
==>) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25394	25602	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26052	26260	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25673	25881	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26331	26539	
==>:term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20602	20699	
==>ou really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20602	20699	
==>ou really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1122	1216	
==>to set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimite <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1122	1216	
==>to set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimite <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9096	9200	
==>same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4250	4354	
==>, :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9096	9200	
==>same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4308	4412	
==>, :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	326	440	
==>blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	326	440	
==>blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2076	2187	
==>e ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submetho <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2076	2187	
==>e ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submetho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4588	4684	
==>r $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's alr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4588	4684	
==>r $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's alr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6112	6208	
==>r $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's alr <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1147	1249	
==>ext->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to b <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1147	1249	
==>ext->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to b <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4884	4979	
==>ethods for Config::Tiny objects. These
methods can be called with the following syntax:

  $conf <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4884	4979	
==>ethods for Config::Tiny objects. These
methods can be called with the following syntax:

  $conf <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7713	7815	
==>lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7713	7815	
==>lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16077	16173	
==>he result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always che <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16077	16173	
==>he result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always che <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7796	7909	
==>d is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $travers <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7796	7909	
==>d is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $travers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	434	530	
==>lasses don't
# accidentally override things they didn't intend to.

# Determine which stack frame <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	434	530	
==>lasses don't
# accidentally override things they didn't intend to.

# Determine which stack frame <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28553	28642	
==>_UTF8_on(prog)		((prog)->reganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4743	4891	
==>') ],
    methods => {
        'report' => sub {
            my $ok          = _('$.passed') ? 'ok' : 'not ok';
            my $description = "# TODO <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	923	1125	
==>Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1939	2033	
==>throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1939	2033	
==>throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1939	2033	
==>throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11270	11377	
==>) {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11270	11377	
==>) {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	859	961	
==>urn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by : <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	859	961	
==>urn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11805	11902	
==>to one another. 

Because instances of class all conform to the Role interface/API they are 
inter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11805	11902	
==>to one another. 

Because instances of class all conform to the Role interface/API they are 
inter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11805	11902	
==>to one another. 

Because instances of class all conform to the Role interface/API they are 
inter <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21294	21393	
==>('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$me <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44201	44300	
==>('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$me <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30020	30115	
==>nds to the Message Key attribute of a Message object, and each
hash value contains the user-read <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30020	30115	
==>nds to the Message Key attribute of a Message object, and each
hash value contains the user-read <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3491	3597	
==>ht->returns) ? 
        bit->new(1) : bit->new(0)
}

package closure::params;

use strict;
use warnings;

u <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3452	3545	
==>ly a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3452	3545	
==>ly a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5649	5742	
==>ly a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	763	896	
==>_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	763	896	
==>_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	763	896	
==>_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5740	5839	
==>slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5740	5839	
==>slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5740	5839	
==>slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29484	29574	
==>LAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15383	15505	
==>-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1954	2046	
==>cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1954	2046	
==>cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1954	2046	
==>cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2J <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2552	2768	
==>e ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.rea <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2552	2768	
==>e ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.rea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22621	22713	
==>ds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22621	22713	
==>ds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	613	718	
==>aram ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	613	718	
==>aram ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	925	1027	
==>s @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	925	1027	
==>s @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4347	4469	
==>le unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $builddir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9146	9240	
==>'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9146	9240	
==>'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9146	9240	
==>'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15439	15563	
==>oo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15439	15563	
==>oo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33828	33922	
==>user's (or user role's) preferences such that each says what
language they prefer to communicat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33828	33922	
==>user's (or user role's) preferences such that each says what
language they prefer to communicat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1279	1461	
==>.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1279	1461	
==>.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1279	1461	
==>.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one. <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14159	14268	
==>.2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHandS <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2523	2641	
==>n ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5726	5844	
==>n ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2523	2641	
==>n ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5726	5844	
==>n ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6293	6486	
==>et;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6293	6486	
==>et;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2099	2222	
==>aram<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2099	2222	
==>aram<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18320	18414	
==>...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18320	18414	
==>...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18320	18414	
==>...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4030	4146	
==>e p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4030	4146	
==>e p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4030	4146	
==>e p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13399	13548	
==>list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13399	13548	
==>list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13399	13548	
==>list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2284	2433	
==>list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24219	24322	
==>d by automatons
  (clients with either an AI or other interactive program controlling their
  actions) w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22992	23095	
==>d by automatons
  (clients with either an AI or other interactive program controlling their
  actions) w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24219	24322	
==>d by automatons
  (clients with either an AI or other interactive program controlling their
  actions) w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22992	23095	
==>d by automatons
  (clients with either an AI or other interactive program controlling their
  actions) w <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8244	8470	
==>t // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method ke <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8244	8470	
==>t // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3091	3201	
==>ccessful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3091	3201	
==>ccessful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	428	540	
==>h @:events, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call it.
  m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2727	2828	
==>p makes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we have a Thunk i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	771	868	
==>ering individual bits.  Also note that the 
Cipher API operates at the byte level, not the charact <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	771	868	
==>ering individual bits.  Also note that the 
Cipher API operates at the byte level, not the charact <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	946	1057	
==>ition);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6950	7037	
==>-------------------------------------------------------------

# stub this for the momen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6950	7037	
==>-------------------------------------------------------------

# stub this for the momen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6950	7037	
==>-------------------------------------------------------------

# stub this for the momen <==
4	/Users/nnunley/pugs/util/package-osx.pl	11975	12070	
==>, %symlinks) if (keys %symlinks > 0);
&create_remover($dest, values %change_files, @files, %syml <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12081	12177	
==>he
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9202	9298	
==>he
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12081	12177	
==>he
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9202	9298	
==>he
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7645	7753	
==>+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'slurpy'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24470	24675	
==>op::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25733	25938	
==>op::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24749	24954	
==>op::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26012	26217	
==>op::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1460	1564	
==>_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1460	1564	
==>_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1460	1564	
==>_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9913	10016	
==>al "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9913	10016	
==>al "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9913	10016	
==>al "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4924	5016	
==>"fix_up_makefile: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11602	11719	
==>my ($in, $out, $err) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4755	4861	
==>.\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4755	4861	
==>.\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4755	4861	
==>.\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6507	6609	
==>$one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6507	6609	
==>$one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7379	7479	
==>$one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7379	7479	
==>$one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6174	6309	
==>),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6174	6309	
==>),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10751	10849	
==>e::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10751	10849	
==>e::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1726	1830	
==>efer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1931	2035	
==>efer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1994	2098	
==>efer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	201	291	
==>::dir( cwd() )->subdir( 'fakeroot' ) );

$INSTALLATION_DIR = $config->root->subdir( $Config <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11143	11280	
==>? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '< <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11143	11280	
==>? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2231	2432	
==>_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5708	5909	
==>_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4638	4839	
==>_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1563	1720	
==>w(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_children(
                                        Tree.new(:node<Bit> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27399	27538	
==>my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14261	14350	
==>('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14261	14350	
==>('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14261	14350	
==>('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3190	3299	
==>for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3190	3299	
==>for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3190	3299	
==>for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	194	298	
==>iginal p5 Santa golf game of 2001.
# Also for future historical amusement, I've inserted unchanged
# my o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6329	6442	
==>coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6329	6442	
==>coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6329	6442	
==>coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	763	864	
==>could use less stack space.

- Simplify arg list - the functions currently take 8 arguments.

=cut <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22232	22342	
==>cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .return (self)
.end

.namespace [ "PGE::Exp::WS" ]

.sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2829	2913	
==>warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2829	2913	
==>warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2829	2913	
==>warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." para <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4939	5054	
==>t $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5161	5276	
==>t $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2833	2940	
==>'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
        return $sel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22833	22937	
==>$f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@args);
}


no strict 'vars';
package <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13012	13123	
==>= none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16489	16600	
==>= none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15851	15962	
==>= none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8026	8156	
==>{ $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8026	8156	
==>{ $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8026	8156	
==>{ $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3276	3391	
==>kens->($noop);
      if($tok) {
        $tok = pop(@$X::cap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1842	1975	
==>ext;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5951	6081	
==>ub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5951	6081	
==>ub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5951	6081	
==>ub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4417	4585	
==>rc ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do this AFTER installing, duh!
            $inst_pkg = $in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3397	3505	
==>keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6874	6982	
==>keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5831	5939	
==>keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6923	7013	
==>t::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentat <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1363	1453	
==>t::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentat <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6923	7013	
==>t::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentat <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1363	1453	
==>t::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25299	25430	
==>Rf :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this the first pass?
    sub SIZE_ONLY           { ! $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4867	4972	
==>=> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4867	4972	
==>=> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4867	4972	
==>=> $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12358	12479	
==>@{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12358	12479	
==>@{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12358	12479	
==>@{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13773	13875	
==>e needs
  something to happen or not happen, but the relevant line of code is
  off in perl runtime gut <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25087	25179	
==>ad1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<example <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23851	23943	
==>ad1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<example <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25087	25179	
==>ad1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<example <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23851	23943	
==>ad1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<example <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	429	559	
==>ures to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	429	559	
==>ures to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4178	4290	
==>an} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4178	4290	
==>an} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the ni <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9803	9908	
==>od pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9803	9908	
==>od pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3237	3336	
==>arameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3237	3336	
==>arameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

m <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1380	1483	
==>{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!" <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1380	1483	
==>{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!" <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8757	8876	
==>t"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8757	8876	
==>t"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor" <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1725	1834	
==>e ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1725	1834	
==>e ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23299	23405	
==>ecution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEEN_ZERO_LEN        1
 #define REG_S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1305	1402	
==>tpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1305	1402	
==>tpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1305	1402	
==>tpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7801	7902	
==>eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7801	7902	
==>eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3379	3478	
==>eatures

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3563	3662	
==>eatures

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4079	4177	
==>/TestPlan.pm";
require "lib/TestBuilder/Output.pm";
require "lib/TestBuilder/Test.pm";

1;

__END__ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	7	101	
==>Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	7	101	
==>Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	87	181	
==>Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Tes <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3757	3873	
==>adFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could not load registered alt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21524	21623	
==>ch are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is gi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20405	20504	
==>ch are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is gi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21524	21623	
==>ch are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is gi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20405	20504	
==>ch are all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is gi <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	147	242	
==>ter it can be modifed to be somehow incorporated in the test suit

use File::Compare qw(compare) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4775	4867	
==>mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4775	4867	
==>mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4775	4867	
==>mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10476	10651	
==>() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10476	10651	
==>() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10476	10651	
==>() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      ) <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	338	434	
==>returns Duration {
    #$self.subtract($duration);
#}

#method infix:<+>($self: Duration $duratio <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9804	9911	
==>= substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19469	19560	
==>>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19469	19560	
==>>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19469	19560	
==>>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9929	10091	
==>($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->digest for grep { $prog->get($_)-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	260	379	
==>PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	260	379	
==>PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	260	379	
==>PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1354	1467	
==>ue->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->to_str->to_native <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	239	343	
==>$escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.def <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	239	343	
==>$escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.def <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25501	25596	
==>pping! ) returns Relation>

This method is a generic relational operator that returns a new Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30053	30148	
==>pping! ) returns Relation>

This method is a generic relational operator that returns a new Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	80	180	
==>.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	80	180	
==>.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	80	180	
==>.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1263	1358	
==>ntf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1263	1358	
==>ntf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1263	1358	
==>ntf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24476	24558	
==>C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat(C0,G),amat( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24171	24297	
==>then_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20592	20718	
==>then_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8007	8099	
==>al_order);
    };
}

## --------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8007	8099	
==>al_order);
    };
}

## --------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12478	12616	
==>ture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1571	1664	
==>meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1571	1664	
==>meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1571	1664	
==>meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25758	25917	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25758	25917	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25758	25917	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshi <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3520	3618	
==>rom Prelude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
multi Array::splice (       @arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4421	4540	
==>, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4421	4540	
==>, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4421	4540	
==>, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9357	9458	
==>force_object(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $self->add_handler('PO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10336	10432	
==>method_list (opaque $self:) returns list { 
    %:methods.keys;
}

(method get_method_list ((opaq <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3767	3859	
==>s parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instanc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3767	3859	
==>s parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5964	6056	
==>s parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instanc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5547	5653	
==>te the directories first if it's a dir -> dir
    ### move. Which means a bit more work, as file::copy does <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	942	1039	
==>k remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	942	1039	
==>k remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	942	1039	
==>k remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5383	5561	
==>tch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5383	5561	
==>tch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5383	5561	
==>tch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1567	1666	
==>un/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = j <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2941	3066	
==>}
}

sub CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4975	5091	
==>ompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4975	5091	
==>ompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4975	5091	
==>ompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9454	9569	
==>verse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9454	9569	
==>verse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3615	3718	
==>tta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!pare <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3615	3718	
==>tta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!pare <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14490	14619	
==>mp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14490	14619	
==>mp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14490	14619	
==>mp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( d <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2999	3094	
==>not "correct" :)
method doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8744	8892	
==>$self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are real <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8744	8892	
==>$self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are real <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8744	8892	
==>$self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are real <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18506	18590	
==>0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0 <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3152	3257	
==>d re op tree the native
compiler creates, but which we obviously don't have).

Whether this will all succe <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	484	585	
==>sInP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33161	33253	
==>exclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37711	37803	
==>exclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5894	5986	
==>RUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5894	5986	
==>RUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5894	5986	
==>RUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14005	14200	
==>, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4102	4273	
==>, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4102	4273	
==>, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4102	4273	
==>, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2793	2894	
==>) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") if $cc;
    return $S->force_object(anyof <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5226	5326	
==>t::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5226	5326	
==>t::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5226	5326	
==>t::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3350	3441	
==>er::Test class represents a single test within the
Test::Builder framework. The class itself <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3350	3441	
==>er::Test class represents a single test within the
Test::Builder framework. The class itself <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5547	5638	
==>er::Test class represents a single test within the
Test::Builder framework. The class itself <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5159	5266	
==>nt);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folde <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5159	5266	
==>nt);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folde <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10469	10570	
==>ommand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

C <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10469	10570	
==>ommand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4262	4429	
==>om_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4262	4429	
==>om_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4262	4429	
==>om_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL u <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19262	19362	
==>type::operator::nullary->new("str")),
		),
	),
);

# if we don't know what symbol it is we can't type <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3835	3939	
==>d error( "Could not load registered alts file: $@" ), return;

            $obj->registered_alternatives( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	198	295	
==>s(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	198	295	
==>s(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	198	295	
==>s(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextke <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1352	1458	
==>x:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is as <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1352	1458	
==>x:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is as <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1352	1458	
==>x:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is as <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24630	24747	
==>rn $x->defined if p6_is_perl6_object($x);
    return 1;
}

sub p6_declare_package {
    my($pkg,$kind)=@_;
    p6_init <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13	109	
==>::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13	109	
==>::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13	109	
==>::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35357	35496	
==>ol->new('add_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28327	28425	
==>ist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

The arguments to object() to creat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1208	1306	
==>", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 9 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1202	1295	
==>", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 9 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4815	4906	
==>alX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4815	4906	
==>alX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4815	4906	
==>alX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12509	12658	
==>>{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	849	968	
==>s) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	849	968	
==>s) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	849	968	
==>s) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10460	10614	
==>$start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slici <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10460	10614	
==>$start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slici <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10460	10614	
==>$start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slici <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4089	4189	
==>.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlashOrAsteriskChar {  # see 7 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15158	15266	
==>d in the body of the function, based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2246	2338	
==>hod graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2246	2338	
==>hod graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2246	2338	
==>hod graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

met <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14163	14272	
==>ing target
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newfrom <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52463	52556	
==>>set_attr(symbol->new('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid rec <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11920	12020	
==>date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13312	13412	
==>date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11920	12020	
==>date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13312	13412	
==>date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07 <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8324	8437	
==>pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2663	2762	
==>e;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2663	2762	
==>e;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2663	2762	
==>e;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	193	334	
==>ant.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	193	334	
==>ant.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	193	334	
==>ant.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1408	1524	
==>native;
}

## methods

sub id    { (shift)->[0]        }
sub class { (shift)->[1]->fetch }

sub change_class {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	149	243	
==>:Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	149	243	
==>:Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	147	237	
==>:Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6450	6568	
==>ee_vars;
}

package node;
# all AST nodes inherit from this

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10846	10941	
==>(1,2,3,4);

Note that in this instance, the information about how many members
were actually new <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10846	10941	
==>(1,2,3,4);

Note that in this instance, the information about how many members
were actually new <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22860	22951	
==>.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22860	22951	
==>.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13074	13179	
==>s, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13074	13179	
==>s, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start = <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	259	362	
==>rep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Com <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	259	362	
==>rep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Com <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15532	15636	
==>e of the span.

These methods may raise a warning if the new value would put the span 
in an invalid stat <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15532	15636	
==>e of the span.

These methods may raise a warning if the new value would put the span 
in an invalid stat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2765	2863	
==>his will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2765	2863	
==>his will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4593	4704	
==>pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8070	8181	
==>pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7063	7174	
==>pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33398	33496	
==>hor

Types: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>)

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9787	9937	
==>eason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $nu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1868	2002	
==>eason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1868	2002	
==>eason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $nu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3647	3776	
==>lts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->regist <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	252	397	
==>le::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Lo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	172	317	
==>le::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Lo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	170	315	
==>le::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Lo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	168	313	
==>le::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[Lo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23814	23945	
==>ontrol with { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13318	13443	
==>ontrol with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13318	13443	
==>ontrol with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13318	13443	
==>ontrol with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "ne <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4514	4658	
==>nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4978	5122	
==>nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2687	2794	
==>opy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2687	2794	
==>opy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2259	2372	
==>arn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compile <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2259	2372	
==>arn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compile <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19582	19677	
==>ill enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text form <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19582	19677	
==>ill enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text form <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7834	7938	
==>' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	162	266	
==>e Carp 'confess';

use base 'type::equivalence';

# need to load this here in 
# order for things to init <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7834	7938	
==>' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7834	7938	
==>' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6429	6572	
==>ts and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6429	6572	
==>ts and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	221	335	
==>=> $REPOSITORY_ROOT )
                or die "No repository created";

$REPO->create   or die "Creation failed";

f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14392	14486	
==>tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14392	14486	
==>tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14392	14486	
==>tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	321	442	
==>tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or error( Params:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6158	6249	
==>Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6158	6249	
==>Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6158	6249	
==>Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2172	2281	
==>thority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2172	2281	
==>thority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2172	2281	
==>thority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

su <==
4	/Users/nnunley/pugs/util/package-osx.pl	639	745	
==>/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22168	22275	
==>en < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Columns - length($m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1060	1161	
==>e'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1060	1161	
==>e'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1060	1161	
==>e'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11104	11201	
==>h is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given it <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8508	8605	
==>h is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11104	11201	
==>h is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8508	8605	
==>h is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given it <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6138	6276	
==>rs/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } els <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4640	4778	
==>rs/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } els <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4532	4634	
==>mpiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parse <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4377	4476	
==>mpiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1982	2084	
==>f() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1982	2084	
==>f() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1982	2084	
==>f() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5368	5495	
==>e' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5368	5495	
==>e' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12943	13066	
==>er{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    han <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12943	13066	
==>er{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    han <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2862	2984	
==>*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2862	2984	
==>*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2862	2984	
==>*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Arr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1749	1857	
==>rs;

    return \%struct;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4983	5135	
==>one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4983	5135	
==>one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10164	10290	
==>mp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($te <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10164	10290	
==>mp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4940	5047	
==>| ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4940	5047	
==>| ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4940	5047	
==>| ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5700	5804	
==>al) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pugs::C <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28843	28939	
==>her value set members.  This
method supports having the new attributes having the same names as o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33395	33491	
==>her value set members.  This
method supports having the new attributes having the same names as o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32532	32628	
==>her value set members.  This
method supports having the new attributes having the same names as o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	634	896	
==>>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupli <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	634	896	
==>>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupli <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	634	896	
==>>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupli <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19494	19626	
==>ags => $rx->{flags}[-1],
      family => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	653	764	
==>or to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	653	764	
==>or to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	653	764	
==>or to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	376	484	
==>lf->execute($c);
}

sub interpreter {
    my $self = shift;
    my $class = $self->interpreter_class;
    $cl <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4569	4682	
==>,
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2008	2118	
==>que_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2008	2118	
==>que_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2008	2118	
==>que_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1425	1545	
==>ke_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1425	1545	
==>ke_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1425	1545	
==>ke_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get(' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35366	35459	
==>mply returns True or False regardless of its
argument, in which case the new Relation::Example <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3632	3793	
==>}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3632	3793	
==>}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3632	3793	
==>}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15760	15844	
==>('&dispatcher' => $e->get('$class:')->send('dispatcher' => (symbol->new(':descendant' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5265	5364	
==>he document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5265	5364	
==>he document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13619	13717	
==>ules and you
find there is some language feature missing, or core bug that needs to
be sorted out b <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13677	13775	
==>ules and you
find there is some language feature missing, or core bug that needs to
be sorted out b <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2259	2399	
==>) \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~j <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2259	2399	
==>) \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~j <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	285	400	
==>&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	285	400	
==>&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18095	18225	
==>. ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Dat <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18095	18225	
==>. ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Dat <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18095	18225	
==>. ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Dat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4264	4387	
==>[tar -czf $archive $control $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16208	16358	
==>b kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16208	16358	
==>b kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16208	16358	
==>b kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub ke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1356	1448	
==>print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8870	8983	
==>sers>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$ne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8870	8983	
==>sers>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$ne <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1979	2074	
==>, you should
be left with nothing but questions about what this object represents.

It represent <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1979	2074	
==>, you should
be left with nothing but questions about what this object represents.

It represent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3207	3355	
==>) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3207	3355	
==>) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3207	3355	
==>) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11164	11256	
==>ss.bless(undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15858	15958	
==>erl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15916	16016	
==>erl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Test <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	208	307	
==>ages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	208	307	
==>ages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6037	6144	
==>ion( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6037	6144	
==>ion( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6037	6144	
==>ion( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->ev <==
4	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	7	102	
==>tim from S12
role returns {
  has ReturnType $.returns;
  multi sub trait_verb:<returns>($contai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1987	2083	
==>__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iint <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1987	2083	
==>__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iint <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1987	2083	
==>__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iint <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	188	283	
==>$list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6632	6739	
==>hain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6632	6739	
==>hain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6632	6739	
==>hain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14105	14203	
==>nfess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14105	14203	
==>nfess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14105	14203	
==>nfess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::A <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4270	4442	
==>(@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4734	4906	
==>(@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9169	9306	
==>t =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complemen <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9169	9306	
==>t =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complemen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2539	2653	
==>s = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $he <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2539	2653	
==>s = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $he <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2396	2497	
==>ne
9th line
10th line
11th line
12th line









GROK

# ------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22096	22192	
==>t available for numeric handlers.

=item C<object>

The nick/channel/whatever the message operate <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20977	21073	
==>t available for numeric handlers.

=item C<object>

The nick/channel/whatever the message operate <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22096	22192	
==>t available for numeric handlers.

=item C<object>

The nick/channel/whatever the message operate <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20977	21073	
==>t available for numeric handlers.

=item C<object>

The nick/channel/whatever the message operate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18826	18933	
==>t and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18826	18933	
==>t and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	39	130	
==>RI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	39	130	
==>RI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1651	1766	
==>node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2431	2546	
==>node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15099	15208	
==>nnel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15099	15208	
==>nnel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5118	5315	
==>> $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4960	5147	
==>> $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5863	5954	
==>rface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5863	5954	
==>rface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4733	4851	
==>iteral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4733	4851	
==>iteral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1639	1757	
==>iteral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h ' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	516	608	
==>y|Junction *@indextests) returns List of Object|Object
multi sub pairs  (@array ; Any|Junctio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12482	12596	
==>ps, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12482	12596	
==>ps, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12482	12596	
==>ps, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pop <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2868	2966	
==>E

Blondie::Compiler - the base compiler for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Compil <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	875	1004	
==>^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	875	1004	
==>^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8308	8430	
==>( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8308	8430	
==>( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7750	7874	
==>ring ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7750	7874	
==>ring ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21734	21832	
==>same key code with a new user message in
one of their own resource files.  At some appropriate plac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21734	21832	
==>same key code with a new user message in
one of their own resource files.  At some appropriate plac <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7875	7982	
==>$P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23479	23573	
==>1 INTERFACE

The interface of Relation::Example is entirely object-oriented; you use it by
crea <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	469	561	
==>rty, and adds nothing else.

More specialised processing instructions may sub-class this modu <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	469	561	
==>rty, and adds nothing else.

More specialised processing instructions may sub-class this modu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23055	23237	
==>lf->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23055	23237	
==>lf->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23055	23237	
==>lf->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scala <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7347	7478	
==>gram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7335	7466	
==>gram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$p <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	847	937	
==>chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	847	937	
==>chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, St <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4043	4142	
==>s built from top level.
    my $base_path = Cwd::abs_path($FindBin::Bin);
    unless ( Cwd::abs_path <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2436	2533	
==>lass.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2436	2533	
==>lass.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2436	2533	
==>lass.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2594	2722	
==>"*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* load <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2811	2939	
==>"*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* load <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1180	1283	
==>irectory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1180	1283	
==>irectory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2594	2690	
==>rn { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2594	2690	
==>rn { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement g <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	396	491	
==>ub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespa <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	396	491	
==>ub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2599	2752	
==>concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3003	3151	
==>concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2514	2662	
==>concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3003	3151	
==>concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1802	1928	
==>rbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@r <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2043	2169	
==>rbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1802	1928	
==>rbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1802	1928	
==>rbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3750	3864	
==>} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3750	3864	
==>} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3750	3864	
==>} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($sel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39973	40067	
==>ument and combines it with the
invocant relation into a new Relation::Example, such that all co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1814	1918	
==>fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1814	1918	
==>fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1814	1918	
==>fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2373	2476	
==>mulitply (x as num) returns num>

=item B<divide (x as num) returns num>

=item B<increment () returns n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4781	4946	
==>hile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4781	4946	
==>hile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4781	4946	
==>hile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11204	11381	
==>};
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6244	6355	
==>@b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6244	6355	
==>@b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6244	6355	
==>@b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14104	14243	
==>ir $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4185	4312	
==>ir $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4185	4312	
==>ir $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4185	4312	
==>ir $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expan <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1068	1196	
==>buf);
      while +@newtoks > 2 
         || +@newtoks && !defined $i {

        @tokens.push( @newtoks.shift );
        @tokens. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1367	1463	
==>rtList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1367	1463	
==>rtList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1367	1463	
==>rtList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) { <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2062	2181	
==>type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX us <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2062	2181	
==>type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX us <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16499	16598	
==>chopped off and returned as a separate value if in
an array context.  If there is no such header fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16499	16598	
==>chopped off and returned as a separate value if in
an array context.  If there is no such header fie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6665	6803	
==>h slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6665	6803	
==>h slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6665	6803	
==>h slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21284	21399	
==>d["isarray"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4907	5033	
==>oles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4907	5033	
==>oles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4907	5033	
==>oles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unle <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2813	2915	
==>t($param->to_str->to_native, $arg);
    }
}

package closure::signature;

use strict;
use warnings;

us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34492	34593	
==>shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34492	34593	
==>shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34492	34593	
==>shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23829	23961	
==>t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      f <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4040	4138	
==>to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4040	4138	
==>to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4120	4218	
==>to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34813	34903	
==>n,
respectively.

=item C<restrict (Code $predicate!) returns Relation::Example>

This meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	48	135	
==>vindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	48	135	
==>vindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	48	135	
==>vindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841 <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	340	449	
==>har *bcfile) {
    Parrot_PackFile pf = Parrot_readbc(i,bcfile);
    Parrot_loadbc(i, pf);
    Parrot_runcode( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3580	3686	
==>pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3580	3686	
==>pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3580	3686	
==>pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defin <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8145	8251	
==>hes($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	132	232	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	132	232	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	132	232	
==>= '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    insta <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	899	1035	
==>,$v) = each %$hash ) {
    print "$desc: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: empty\n";
  }
}

sub addT <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4431	4527	
==>e( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4431	4527	
==>e( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5955	6051	
==>e( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes th <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2518	2616	
==>eally good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	398	483	
==>fiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	398	483	
==>fiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	398	483	
==>fiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12813	12918	
==>2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9589	9694	
==>2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12813	12918	
==>2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9589	9694	
==>2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23058	23196	
==>tor::nullary->new("str")),
				),
			),
		),
	),
);

my $map = let(
    ide => "map",
    is => fun(
	param => "f",
	body => fun(
		param = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	27	114	
==>.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	27	114	
==>.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	27	114	
==>.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4383	4476	
==>:Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4383	4476	
==>:Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5907	6000	
==>:Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3300	3405	
==>ame>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3300	3405	
==>ame>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<use <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23963	24055	
==>nate solutions like "gettext" suggests that they
use a compile-time macro-based approach to s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23963	24055	
==>nate solutions like "gettext" suggests that they
use a compile-time macro-based approach to s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3828	3930	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submetho <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4161	4263	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submetho <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3828	3930	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submetho <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4161	4263	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submetho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18895	19020	
==>else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20253	20378	
==>else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	370	464	
==>]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1097	1188	
==>]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10727	10836	
==>) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14204	14313	
==>) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13503	13612	
==>) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	367	465	
==>create our basic variables/functions for 
# the metamodel that the runtime needs to 
# have availab <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40545	40643	
==>ut WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PART <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26059	26157	
==>ut WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PART <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40545	40643	
==>ut WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PART <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26059	26157	
==>ut WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PART <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3466	3566	
==>e qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4748	4848	
==>e qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33316	33415	
==>e a
program or library may wish to override the user text of another library
which it uses, the Temp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33316	33415	
==>e a
program or library may wish to override the user text of another library
which it uses, the Temp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3997	4103	
==>ensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3997	4103	
==>ensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3997	4103	
==>ensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3189	3285	
==>=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie::Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6966	7119	
==>t @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6966	7119	
==>t @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6966	7119	
==>t @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinit <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22853	22951	
==>ing.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27405	27503	
==>ing.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21555	21648	
==>s before, especially given that the Perl DBI purports to provide
"Database Independence".  How <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21555	21648	
==>s before, especially given that the Perl DBI purports to provide
"Database Independence".  How <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5818	5988	
==>( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5830	6000	
==>( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match va <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	764	876	
==>ail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	775	887	
==>ail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18476	18578	
==>onstants.  The
default is no longer ' ' since that would be interpreted as a constant.

# sprintf # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37455	37548	
==>forementioned binary join()
operator, and the order of its arguments is not significant to the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42004	42097	
==>forementioned binary join()
operator, and the order of its arguments is not significant to the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41645	41738	
==>forementioned binary join()
operator, and the order of its arguments is not significant to the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	772	870	
==>we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	772	870	
==>we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	772	870	
==>we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2268	2354	
==>y $reduced_struct = $self->SUPER::generic_reduce($node->struct_equiv);
	(ref $node)->ne <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	154	275	
==>everse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to li <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	154	275	
==>everse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to li <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	506	599	
==>aphic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programme <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	506	599	
==>aphic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programme <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7841	7967	
==>rn { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8034	8160	
==>rn { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2410	2511	
==>>code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2410	2511	
==>>code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4831	5013	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4831	5013	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4831	5013	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14420	14516	
==>SLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed through

=item R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	533	636	
==>$_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	533	636	
==>$_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	533	636	
==>$_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSub <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27510	27604	
==>empty Set, the
Relation::Example has zero attributes.  If C<$body> is undefined or an empty Set <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	930	1047	
==>pping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4408	4525	
==>pping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9768	9864	
==>ub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9768	9864	
==>ub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_ent <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18247	18378	
==>'$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	432	544	
==>/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	432	544	
==>/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	432	544	
==>/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3448	3620	
==>s -d $my_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we'r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2356	2451	
==>[map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2356	2451	
==>[map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2356	2451	
==>[map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34985	35108	
==>$length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34985	35108	
==>$length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34985	35108	
==>$length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	63	153	
==>, self



&Array::pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

mu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9560	9677	
==>er!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13037	13154	
==>er!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the h <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19898	19989	
==>is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19898	19989	
==>is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37608	37727	
==>my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37608	37727	
==>my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37608	37727	
==>my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2519	2618	
==>k();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2519	2618	
==>k();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2519	2618	
==>k();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10029	10127	
==>'$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	718	845	
==>xit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	718	845	
==>xit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	718	845	
==>xit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug <==
4	/Users/nnunley/pugs/misc/S29_round.pl	822	929	
==>ur Int multi Num::round_half_down_symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16673	16855	
==>sh(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16673	16855	
==>sh(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16673	16855	
==>sh(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3345	3478	
==>/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class = shift;
    %hash = (
        '$' => Pu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2107	2198	
==>t also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.fr <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2107	2198	
==>t also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.fr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8069	8172	
==>killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8069	8172	
==>killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $eve <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9391	9481	
==>defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statement <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3216	3306	
==>defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statement <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1492	1599	
==>.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1492	1599	
==>.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1492	1599	
==>.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5293	5425	
==>des = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5293	5425	
==>des = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9784	9893	
==>lf.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9784	9893	
==>lf.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	839	954	
==>height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	839	954	
==>height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $se <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	246	336	
==>ulius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte- <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	246	336	
==>ulius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7808	7908	
==>1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7796	7896	
==>1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10406	10502	
==>rmed
on demand at some time after the input has been set, and could potentially
never be performe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10406	10502	
==>rmed
on demand at some time after the input has been set, and could potentially
never be performe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14837	14976	
==>$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14837	14976	
==>$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14837	14976	
==>$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3181	3320	
==>$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8503	8628	
==>nentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 7.8.3
      <DecimalDigits>
    | <'+'> <De <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3850	3955	
==>.
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3850	3955	
==>.
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3850	3955	
==>.
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	988	1137	
==>l  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	947	1091	
==>l  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8902	9025	
==>y $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8890	9013	
==>y $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2671	2796	
==>le->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = orange ];\n";       
    }       
    return $output <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3863	3952	
==>-------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3863	3952	
==>-------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3863	3952	
==>-------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	34	118	
==>Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	165	249	
==>Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14472	14599	
==>ly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather al <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14472	14599	
==>ly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather al <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14472	14599	
==>ly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather al <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4458	4547	
==>'token',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's simp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	273	373	
==>%params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	273	373	
==>%params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	273	373	
==>%params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => :: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5146	5238	
==>ass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5146	5238	
==>ass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5146	5238	
==>ass->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7788	7891	
==>0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7788	7891	
==>0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7788	7891	
==>0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6066	6168	
==>my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1271	1369	
==>ef.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1271	1369	
==>ef.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1271	1369	
==>ef.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5514	5611	
==>$vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5514	5611	
==>$vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5514	5611	
==>$vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19700	19846	
==>xPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16121	16267	
==>xPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $b <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4707	4802	
==>(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4707	4802	
==>(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1075	1190	
==>Instance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1075	1190	
==>Instance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1075	1190	
==>Instance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11924	12029	
==>other, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

ps <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11924	12029	
==>other, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

ps <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11924	12029	
==>other, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

ps <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1511	1614	
==>_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns V <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39212	39296	
==>etta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39212	39296	
==>etta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13198	13401	
==>pand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3379	3558	
==>pand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3379	3558	
==>pand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3379	3558	
==>pand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11799	12035	
==>candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11799	12035	
==>candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11799	12035	
==>candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22394	22518	
==>r);
            $Columns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3388	3555	
==>r*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3388	3555	
==>r*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2133	2231	
==>ional things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?



I pro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2053	2148	
==>ional things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?

I pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23068	23272	
==>aram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23068	23272	
==>aram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23068	23272	
==>aram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3552	3715	
==>too
                }
            }
        }
    
        method notify (String $name, *@args) {
            $publisher.notify(Class::Events::Event::Named.new($nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4189	4309	
==>->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4189	4309	
==>->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4189	4309	
==>->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4963	5063	
==>nshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15999	16099	
==>nshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17487	17587	
==>nshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22170	22270	
==>nshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8580	8721	
==>4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12489	12627	
==>4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12489	12627	
==>4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->() <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5452	5573	
==>'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'cons <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2403	2522	
==>{ TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7762	7859	
==>est::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	7	96	
==>est::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	7	96	
==>est::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1999	2143	
==>);

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2363	2507	
==>);

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1921	2060	
==>);
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2273	2412	
==>);
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4060	4216	
==>x]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5381	5537	
==>x]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4060	4216	
==>x]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5369	5525	
==>x]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1588	1733	
==>paque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1588	1733	
==>paque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1588	1733	
==>paque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8944	9041	
==>ODE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NOD <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4402	4552	
==>em( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do this AFTER installing, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38219	38315	
==><compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42768	42864	
==><compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42418	42514	
==><compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I< <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	960	1093	
==>=> File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => ' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	829	938	
==>=> File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => ' <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9669	9764	
==>te recurrence set, defined with closures. 

A recurrence set is defined by a "successor" functio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9669	9764	
==>te recurrence set, defined with closures. 

A recurrence set is defined by a "successor" functio <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5340	5434	
==>$v) {$v}

# 9.2
multi sub ToBoolean(JSX::Value::Undefined $v) { JSX::false }
multi sub ToBoolea <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3869	4140	
==>ew('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3129	3235	
==>l::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3129	3235	
==>l::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3129	3235	
==>l::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6189	6291	
==>t->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6189	6291	
==>t->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6189	6291	
==>t->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
va <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1275	1374	
==>t to show the power of Perl 6 defaults and
Currying in a real context.

The newton function must rec <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	958	1055	
==>plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

Th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	958	1055	
==>plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1505	1602	
==>plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

Th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13422	13515	
==>odes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18509	18602	
==>odes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() return <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13422	13515	
==>odes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() return <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18509	18602	
==>odes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9212	9358	
==>);
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9212	9358	
==>);
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6013	6154	
==>\\n   List      pre     keys    safe   (rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10089	10204	
==>emp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10089	10204	
==>emp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3929	4033	
==>inLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

pac <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1463	1566	
==>( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $ex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36949	37041	
==>f source relations have identical headings, for these their joining
degenerates to a C<inters <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41498	41590	
==>f source relations have identical headings, for these their joining
degenerates to a C<inters <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41121	41213	
==>f source relations have identical headings, for these their joining
degenerates to a C<inters <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3254	3503	
==>} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive comman <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3254	3503	
==>} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive comman <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	267	383	
==>y);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

metho <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	267	383	
==>y);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

metho <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11208	11331	
==>/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11208	11331	
==>/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5634	5745	
==>$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5634	5745	
==>$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5453	5606	
==>", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5465	5618	
==>", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23689	23820	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23968	24099	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9467	9630	
==>ion( \@keys );
}

sub end_of_string {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2034	2138	
==>est - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2034	2138	
==>est - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2034	2138	
==>est - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3791	3891	
==>)(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3791	3891	
==>)(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3791	3891	
==>)(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5328	5445	
==>urn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tran <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6596	6713	
==>urn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tran <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5328	5445	
==>urn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tran <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6584	6701	
==>urn "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to tran <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1250	1372	
==>elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $es <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1250	1372	
==>elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $es <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	988	1090	
==>ition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1221	1323	
==>ition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34392	34489	
==>f the new object is set from the named parameter
@set_names (an array ref), and Member Names is se <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34392	34489	
==>f the new object is set from the named parameter
@set_names (an array ref), and Member Names is se <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2096	2189	
==>>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2096	2189	
==>>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	9	103	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## --------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	9	103	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## --------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	9	103	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## --------------------------- <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20768	20860	
==>read readdir readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1785	1892	
==>{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1785	1892	
==>{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1785	1892	
==>{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15266	15351	
==>R1 =.. [P|A1], !.
re_rewrite(X,X,RW0,RW0).
re_rewrite_list([],[],RW0,RW0).
re_rewrite_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2477	2601	
==>ogin
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2477	2601	
==>ogin
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	997	1119	
==>1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4727	4836	
==>, @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offs <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4727	4836	
==>, @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offs <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3075	3174	
==>ncipher data.
The encipherer closure can be called with a string, and should be called at the 
end o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3075	3174	
==>ncipher data.
The encipherer closure can be called with a string, and should be called at the 
end o <==
4	/Users/nnunley/pugs/t/packages/Test.pm	300	442	
==>pkg {
        return My::Package::pkg();
    }

    my package My::Package {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19734	19836	
==>st paren matched */

=head2 Other things the world messes with:


  I32 refcnt;

What invariants?  Don' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5846	5944	
==>anslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5846	5944	
==>anslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3590	3720	
==>t; # eg. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	252	346	
==>ed -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	252	346	
==>ed -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	252	346	
==>ed -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8542	8644	
==>assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLH <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3895	3991	
==>rnals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3895	3991	
==>rnals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3895	3991	
==>rnals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if d <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20824	20916	
==>winddir rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7579	7670	
==>_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7579	7670	
==>_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7579	7670	
==>_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbo <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1037	1233	
==>me ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $sec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5656	5776	
==>\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5644	5764	
==>\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6786	6884	
==>Dumper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Ba <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3617	3755	
==>1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	249	367	
==>t "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	249	367	
==>t "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	249	367	
==>t "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 . <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17269	17369	
==>nite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17269	17369	
==>nite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33127	33216	
==>C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37677	37766	
==>C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mu <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2408	2535	
==>ck;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2265	2375	
==>ally relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2265	2375	
==>ally relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2265	2375	
==>ally relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4603	4721	
==>)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersect <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3730	3848	
==>)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersect <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4603	4721	
==>)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersect <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3730	3848	
==>)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersect <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6515	6617	
==>od add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6515	6617	
==>od add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	628	727	
==>pace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node t <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	628	727	
==>pace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node t <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	365	460	
==>a compiled class (a L<Type>), which is used for
dispatching private methods.

=back

Normally, w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20900	21000	
==>ich has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19817	19917	
==>ich has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20900	21000	
==>ich has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19817	19917	
==>ich has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1529	1625	
==>S

The following methods are available for Set::Span objects:

- `start()`

Returns the start dat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1529	1625	
==>S

The following methods are available for Set::Span objects:

- `start()`

Returns the start dat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1332	1435	
==>>{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1472	1575	
==>>{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	90	191	
==>ute grammars and multimethods)

# first part is a type pretty printer and the type object model
# it e <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13410	13508	
==>e generic variables unchanged
ide: generic($$) = { generic_in($$) }

# if an identifier is not in t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25310	25409	
==>THOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24074	24173	
==>THOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25310	25409	
==>THOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24074	24173	
==>THOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	754	867	
==>) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	754	867	
==>) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	754	867	
==>) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10631	10729	
==>n reset itself, and will start from the beginning the next
time it is called.

=head2 Viewing the R <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1005	1175	
==>xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1627	1736	
==>line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1627	1736	
==>line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1707	1816	
==>line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	399	531	
==>ash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  impl <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	399	531	
==>ash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  impl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	339	436	
==>tart + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	339	436	
==>tart + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	201	298	
==>e {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	201	298	
==>e {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	201	298	
==>e {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	423	515	
==>rminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recog <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1726	1865	
==>ily => 'anchor',
      type => $type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $self;
  }
}


{
  # . \C
  package R <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10479	10610	
==>ode<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10479	10610	
==>ode<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_chi <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2972	3080	
==>ports to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless define <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17796	17949	
==>$test_num - 1] = 
            { ok        => is the test considered ok?
              actual_ok => did it literally say 'ok'?
              name      => n <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4725	4841	
==>h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4725	4841	
==>h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1631	1747	
==>h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8433	8570	
==>';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8433	8570	
==>';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8433	8570	
==>';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2892	2990	
==>'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2892	2990	
==>'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2892	2990	
==>'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclas <==
4	/Users/nnunley/pugs/util/package-osx.pl	4222	4319	
==>:Bible::E03.3pm
        /usr/local/man/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1765	1865	
==>rlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1825	1925	
==>rlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5022	5114	
==>esponses received, then you should use the full object-oriented
interface provided by the C<L <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5022	5114	
==>esponses received, then you should use the full object-oriented
interface provided by the C<L <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4565	4675	
==>efine your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define your own m:x()/stuff/

    As wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3229	3374	
==>filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3229	3374	
==>filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3229	3374	
==>filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5789	5906	
==>y 
(a namespace or a Grammar name).

=item * operand => $rule_name - the name of the rule that will parse operands.

= <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5487	5590	
==>r = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5487	5590	
==>r = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     retur <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17065	17164	
==>$span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17065	17164	
==>$span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	188	352	
==>) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	188	352	
==>) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	188	352	
==>) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExce <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9244	9358	
==>ccess all the capture groups with the captures() method:

  my $all_captures = $parser->captures();

If you want to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	849	944	
==>alar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	849	944	
==>alar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	849	944	
==>alar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TOD <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15274	15398	
==>ltin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a bet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	920	1016	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	920	1016	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	920	1016	
==>@PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(co <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4980	5080	
==>i sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4107	4207	
==>i sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4980	5080	
==>i sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4107	4207	
==>i sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7922	8130	
==>ends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1223	1431	
==>ends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	106	233	
==>s Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undef <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	106	233	
==>s Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	574	666	
==>superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	574	666	
==>superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	574	666	
==>superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	489	612	
==>{ $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	489	612	
==>{ $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	489	612	
==>{ $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif ! <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	22074	22174	
==>== -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $file > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7873	8059	
==>) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7873	8059	
==>) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7873	8059	
==>) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $me <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2161	2285	
==>all_in( $currfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	599	700	
==>ect), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	599	700	
==>ect), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	599	700	
==>ect), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access(' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2336	2438	
==>ed.
# No lookbehind as been implemented at all, at all.
# A couple of others I don't remember at the mo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3820	3911	
==>rns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and se <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3820	3911	
==>rns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6017	6108	
==>rns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7644	7749	
==>_method_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)');

# resolve the class <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6683	6780	
==>=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6683	6780	
==>=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8880	8977	
==>=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2162	2265	
==>infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2162	2265	
==>infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2162	2265	
==>infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4940	5117	
==>> [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4787	4959	
==>> [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28886	29055	
==>eop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29165	29334	
==>eop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5204	5301	
==>" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "p <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5823	5919	
==>us code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5823	5919	
==>us code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

= <==
4	/Users/nnunley/pugs/util/testgraph.pl	1197	1293	
==>produce the data for this tool
   util/catalog_tests.pl - produce cross-linkable tests
   util/ru <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1576	1688	
==>elf = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self- <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1576	1688	
==>elf = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12427	12522	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code sni <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12485	12580	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code sni <==
4	/Users/nnunley/pugs/util/grokprims.pl	486	595	
==>s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4486	4590	
==>uldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4486	4590	
==>uldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4486	4590	
==>uldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1187	1284	
==>nd()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1187	1284	
==>nd()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1187	1284	
==>nd()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is prim <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8389	8527	
==>prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            wa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13900	14038	
==>prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8389	8527	
==>prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13894	14032	
==>prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2547	2646	
==>ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pSt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2547	2646	
==>ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pSt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2547	2646	
==>ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pSt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	98	210	
==>es" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	102	214	
==>es" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	98	210	
==>es" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	102	214	
==>es" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	156	267	
==>t/right/non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15455	15554	
==>->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15455	15554	
==>->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15455	15554	
==>->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7660	7775	
==>x_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :gl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7660	7775	
==>x_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :gl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7660	7775	
==>x_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :gl <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	323	426	
==>oads the results of this
#    to a server somewhere.


package Test::Harness::YAML;
use strict;

use Get <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8382	8538	
==>= match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4742	4898	
==>= match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5591	5747	
==>= match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match:: <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1389	1485	
==>$Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32|msys/) { # On <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1157	1299	
==>sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1157	1299	
==>sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1157	1299	
==>sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            m <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	658	766	
==>{
        my $script_name = File::Basename::basename($script_file);
        $prompt = "Do you want to install <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6558	6664	
==>s, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6558	6664	
==>s, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6558	6664	
==>s, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17790	17910	
==>an_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6117	6206	
==>add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6117	6206	
==>add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6117	6206	
==>add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1105	1204	
==>e/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw/Blondie::TypeSa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	519	616	
==>($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	519	616	
==>($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	519	616	
==>($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	331	446	
==>atches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continua <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	317	424	
==>atches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continua <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5826	5930	
==>sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5826	5930	
==>sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5826	5930	
==>sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21356	21448	
==><Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpressi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6402	6507	
==>: ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6402	6507	
==>: ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6402	6507	
==>: ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2876	2976	
==>e warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2876	2976	
==>e warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2876	2976	
==>e warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	660	757	
==>ox.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	660	757	
==>ox.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	660	757	
==>ox.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5106	5216	
==>s Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4233	4343	
==>s Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5106	5216	
==>s Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4233	4343	
==>s Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11319	11438	
==>d for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11319	11438	
==>d for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11319	11438	
==>d for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4868	4974	
==>($?>>8)) if $?;
    print STDERR "done.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usag <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8407	8503	
==>f_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fail <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8465	8561	
==>f_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4169	4320	
==>/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4169	4320	
==>/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4169	4320	
==>/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1253	1356	
==>$S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  $se <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2019	2252	
==>]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";" <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2019	2252	
==>]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	786	889	
==>me.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow interop <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	786	889	
==>me.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow interop <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1637	1751	
==>args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realcl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7714	7820	
==>s, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7714	7820	
==>s, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7714	7820	
==>s, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4502	4590	
==>:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4502	4590	
==>:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4502	4590	
==>:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26873	26998	
==>uleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27152	27277	
==>uleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2440	2547	
==>urn $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2440	2547	
==>urn $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12408	12530	
==>sses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12408	12530	
==>sses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12408	12530	
==>sses) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2754	2857	
==>->{assoc};
    $opt->{fixity} = 'prefix' unless defined $opt->{fixity};
    $opt->{index}  = 'OP' . $o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5469	5586	
==>)<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6737	6854	
==>)<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5469	5586	
==>)<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6725	6842	
==>)<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.* <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3678	3796	
==>ple to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation::Example is mut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18768	18880	
==>( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18768	18880	
==>( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18768	18880	
==>( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1424	1522	
==>obj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1424	1522	
==>obj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1424	1522	
==>obj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1089	1180	
==>r::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::mac <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1013	1222	
==>tion$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1013	1222	
==>tion$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11153	11321	
==>] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11153	11321	
==>] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3243	3358	
==>om += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3243	3358	
==>om += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3243	3358	
==>om += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2491	2633	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2491	2633	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2491	2633	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is no <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5067	5156	
==>f->{param}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::bina <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4938	5070	
==>ts to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4938	5070	
==>ts to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4938	5070	
==>ts to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempt <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24669	24767	
==>en not used currently]

Confined to regcomp/regexec.

 *
 * Regstart and reganch permit very fast d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1640	1753	
==>^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	410	507	
==>function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	410	507	
==>function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	410	507	
==>function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16129	16228	
==>with compiler. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9170	9299	
==>ch = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9158	9287	
==>ch = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1] <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9815	9908	
==>s undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are ref <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9815	9908	
==>s undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are ref <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16337	16435	
==>,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	46	143	
==>s primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	46	143	
==>s primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	46	143	
==>s primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7879	8077	
==>yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $ar <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7879	8077	
==>yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $ar <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1851	1981	
==>%param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1851	1981	
==>%param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4987	5088	
==>acePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30786	30878	
==>at any duplicates following the transformation have been eliminated. 
Trivial cases are where <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35337	35428	
==>at any duplicates following the transformation have been eliminated.
Trivial cases are where <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34528	34619	
==>at any duplicates following the transformation have been eliminated.
Trivial cases are where <==
4	/Users/nnunley/pugs/util/package-osx.pl	11720	11837	
==>]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system("sudo -S chown -R root:whee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3196	3300	
==>e eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3196	3300	
==>e eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3196	3300	
==>e eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16590	16759	
==>y $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16590	16759	
==>y $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16590	16759	
==>y $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5474	5657	
==>r::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the lexer
        #q(<) => Pugs::Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	188	304	
==>rent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15402	15500	
==>f Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well as <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15402	15500	
==>f Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4440	4550	
==>bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4440	4550	
==>bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5030	5140	
==>bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data: <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	24	126	
==>s Date;

use Time::Zone;
use Date::Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
ha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7796	7967	
==>is dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8260	8431	
==>is dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4226	4385	
==>is dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4690	4849	
==>is dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	593	839	
==>::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	593	839	
==>::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12482	12578	
==>evious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12482	12578	
==>evious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36596	36720	
==>ft;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36596	36720	
==>ft;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36596	36720	
==>ft;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12644	12759	
==>e!
    return if @avail == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12197	12313	
==>) if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4840	4956	
==>) if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	120	220	
==>ION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	120	220	
==>ION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4290	4542	
==>does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domai <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4290	4542	
==>does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domai <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9289	9386	
==>on $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12766	12863	
==>on $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9951	10049	
==>.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares th <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9951	10049	
==>.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10442	10537	
==>e input has been set, and could potentially
never be performed at all.  They validate everything <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10442	10537	
==>e input has been set, and could potentially
never be performed at all.  They validate everything <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1720	1846	
==>ternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2048	2172	
==>ternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1661	1785	
==>ternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2048	2172	
==>ternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30658	30754	
==>ng>.  The new Relation has all of the tuples of the
original (or rather, the corresponding transf <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35209	35305	
==>ng>.  The new Relation has all of the tuples of the
original (or rather, the corresponding transf <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10629	10723	
==>ciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Cla <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10629	10723	
==>ciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	128	265	
==>> [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	128	265	
==>> [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	128	265	
==>> [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5593	5696	
==>multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4723	4826	
==>multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5593	5696	
==>multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4723	4826	
==>multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10741	10861	
==>} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });


  ### '('

  $self->add_handler('(' => sub {
    my ($S) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5158	5273	
==>~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5158	5273	
==>~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5158	5273	
==>~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5566	5685	
==>r, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5566	5685	
==>r, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5566	5685	
==>r, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31854	31952	
==>..);
  }

Any regex containing those assertions will fail to compile and throw an
error (specifical <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14399	14488	
==>_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14399	14488	
==>_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14399	14488	
==>_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attrib <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4578	4727	
==>kg = $inst->register( package => $self ) 
                or error("Could not register package"), return;
            
            
            my $po <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1398	1505	
==>for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1398	1505	
==>for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1398	1505	
==>for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.leng <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	445	549	
==>ad2 new()

Create an iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4026	4117	
==>AACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4026	4117	
==>AACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4026	4117	
==>AACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11712	11831	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11712	11831	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11712	11831	
==>fts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	488	629	
==>ds => {
            'array_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2896	3010	
==>e "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2896	3010	
==>e "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2896	3010	
==>e "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub us <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2802	2906	
==>ngify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2623	2727	
==>ngify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2802	2906	
==>ngify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2623	2727	
==>ngify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5213	5324	
==>nfess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5213	5324	
==>nfess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5213	5324	
==>nfess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribu <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2576	2677	
==>ose OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. hardcode spec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3430	3553	
==>y $class = shift;
    %hash = (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.iden <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4442	4548	
==>read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4442	4548	
==>read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4442	4548	
==>read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       o <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2375	2507	
==>rved}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5102	5202	
==>if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5102	5202	
==>if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5102	5202	
==>if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primit <==
4	/Users/nnunley/pugs/util/package-osx.pl	3664	3761	
==>ocal/man/man3/Perl6::API.3pm
        /usr/local/man/man3/Perl6::Bible.3pm
        /usr/local/man/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15569	15665	
==>:kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15569	15665	
==>:kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15569	15665	
==>:kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB valu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5850	5943	
==>s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5850	5943	
==>s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2749	2842	
==>s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1607	1785	
==>_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar references
    # $source =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8431	8535	
==>e::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8431	8535	
==>e::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8431	8535	
==>e::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4966	5071	
==>stant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4966	5071	
==>stant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4966	5071	
==>stant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12899	12984	
==>_tail(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
brackets("< <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8590	8707	
==>body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_noclose
    $I1 = $I0 - pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1747	1849	
==>.\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1747	1849	
==>.\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1747	1849	
==>.\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PI <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2659	2887	
==>xtractor, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	790	943	
==>t) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	790	943	
==>t) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	790	943	
==>t) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $pos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15878	16052	
==>TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15872	16046	
==>TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2287	2426	
==>.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2287	2426	
==>.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~ <==
4	/Users/nnunley/pugs/util/package-osx.pl	9253	9391	
==>(split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11662	11785	
==>$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11662	11785	
==>$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11662	11785	
==>$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defi <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2979	3193	
==>ortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCrite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11256	11344	
==>::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail does Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1714	1800	
==>::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1714	1800	
==>::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Tes <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5660	5761	
==>mfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub recompile {
    my $class = s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8081	8176	
==>nd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8081	8176	
==>nd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1966	2056	
==>:Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2055	2145	
==>:Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	166	274	
==>efs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	130	237	
==>efs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	218	325	
==>efs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0 <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13	114	
==>eded by v6.pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options availab <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23097	23241	
==>'  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	532	670	
==>b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	532	670	
==>b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	532	670	
==>b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3821	3927	
==>{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3821	3927	
==>{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3821	3927	
==>{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $cl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2031	2128	
==>eq "PV") {
		return quote(printable($node->struct_equiv));
	} else { die "don't know to make a lit <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1447	1559	
==>ey->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self, $key) = @_;
    (blessed($key <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13384	13481	
==>($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13384	13481	
==>($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13384	13481	
==>($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13904	14068	
==>s.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13904	14068	
==>s.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13904	14068	
==>s.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2595	2695	
==>property_value{$P};
    delete $O.property_attribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi met <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19195	19286	
==>xample C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, whi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19195	19286	
==>xample C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, whi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39619	39706	
==>C<cross_product>, C<cross_join>.

=item C<product (Relation::Example *@others) returns R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2450	2561	
==>0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2450	2561	
==>0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2450	2561	
==>0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	606	705	
==>s($x) + 0.4)) !!
		-(int(abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (N <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2323	2463	
==>= 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2323	2463	
==>= 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2323	2463	
==>= 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1806	1930	
==>\n{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    print ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21735	21838	
==>ied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server you
con <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20616	20719	
==>ied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server you
con <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21735	21838	
==>ied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server you
con <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20616	20719	
==>ied).

=item C<server>

The server the line was sent from. This is I<not> necessarily the server you
con <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6015	6108	
==>ed channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6015	6108	
==>ed channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$even <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22712	22798	
==>ck> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22712	22798	
==>ck> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5106	5246	
==>X - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5106	5246	
==>X - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $ma <==
4	/Users/nnunley/pugs/util/package-osx.pl	11154	11285	
==>}
            print "Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36664	36830	
==>ns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2795	2894	
==>L2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2795	2894	
==>L2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2795	2894	
==>L2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2883	3016	
==>vents<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>(' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3137	3270	
==>vents<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>(' <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2883	3016	
==>vents<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>(' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3137	3270	
==>vents<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>(' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10350	10448	
==>ield
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10350	10448	
==>ield
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoi <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1284	1379	
==>oft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http:/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1124	1219	
==>oft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http:/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2697	2812	
==>URSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2697	2812	
==>URSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2697	2812	
==>URSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opt <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	272	376	
==>ackend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6017	6142	
==>recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6017	6142	
==>recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6017	6142	
==>recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOT <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	466	584	
==>bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10143	10248	
==>$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6115	6261	
==>- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle beco <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6115	6261	
==>- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle beco <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2783	2900	
==>parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single a <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2783	2900	
==>parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single a <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	152	268	
==>eds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version u <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	160	276	
==>eds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version u <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	152	268	
==>eds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version u <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	160	276	
==>eds some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1641	1803	
==>me> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1641	1803	
==>me> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13283	13406	
==>ails of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13283	13406	
==>ails of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2112	2231	
==>e HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2112	2231	
==>e HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2549	2648	
==>er that ciphering steps may not return all (or any) of the data you 
passed in, and that the finishi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2549	2648	
==>er that ciphering steps may not return all (or any) of the data you 
passed in, and that the finishi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29461	29590	
==>' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER  <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29461	29590	
==>' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER  <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8547	8667	
==>od
    ((($self: get_attr (symbol new (%:methods))) fetch ($label))))

=cut

$::Class->send('add_method' => (
    # metho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	281	398	
==>' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER  <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2739	2889	
==>e' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                push @{$self->get_value('@:slots')}, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4839	4938	
==>ing C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4839	4938	
==>ing C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6363	6462	
==>ing C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	26	128	
==>owaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	26	128	
==>owaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	26	128	
==>owaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7765	7933	
==>start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7765	7933	
==>start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7765	7933	
==>start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4033	4158	
==>open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4032	4128	
==>($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4032	4128	
==>($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4032	4128	
==>($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There do <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4974	5061	
==>est-file-name to test-record
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{test_file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7117	7261	
==>ment' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7117	7261	
==>ment' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7117	7261	
==>ment' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1390	1491	
==>$self->determine_VERSION($args);
    $args->{NAME} =~ s/-/::/g;

    # Only call $self->tests if we ha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2044	2167	
==>cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2044	2167	
==>cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11439	11534	
==>g
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11497	11592	
==>g
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13941	14036	
==>e overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10168	10263	
==>e overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13941	14036	
==>e overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10168	10263	
==>e overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2808	2968	
==>) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () { <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2808	2968	
==>) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3576	3696	
==>f $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3576	3696	
==>f $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5041	5185	
==>if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5041	5185	
==>if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this f <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2305	2408	
==>h($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2305	2408	
==>h($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3148	3250	
==>}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3148	3250	
==>}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3148	3250	
==>}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# F <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8946	9046	
==>$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    m <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1709	1850	
==>text
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Real <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1709	1850	
==>text
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Real <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3081	3199	
==>de,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3081	3199	
==>de,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20358	20454	
==>o performs quite slowly; you should only use Example
for testing, development, and study; you sho <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20358	20454	
==>o performs quite slowly; you should only use Example
for testing, development, and study; you sho <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	757	874	
==>apital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	757	874	
==>apital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	558	665	
==>used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation obj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4036	4143	
==>used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation obj <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1008	1100	
==>ster::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1008	1100	
==>ster::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18998	19090	
==>e,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1,Ex,E1).


rm(captur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1088	1180	
==>ster::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3901	4016	
==>label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3901	4016	
==>label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3901	4016	
==>label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	648	757	
==>,"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28186	28283	
==>tem C<as_debug_string()>

This method returns a stringified version of this object which is suitab <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35542	35639	
==>tem C<as_debug_string()>

This method returns a stringified version of this object which is suitab <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28186	28283	
==>tem C<as_debug_string()>

This method returns a stringified version of this object which is suitab <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35542	35639	
==>tem C<as_debug_string()>

This method returns a stringified version of this object which is suitab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35715	35820	
==>negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35715	35820	
==>negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35715	35820	
==>negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	824	922	
==>t 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, r <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	824	922	
==>t 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5715	5812	
==>ule documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



R <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5518	5609	
==>ule documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	915	1030	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	915	1030	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	915	1030	
==>todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { s <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3712	3823	
==>tr $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  joi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3712	3823	
==>tr $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  joi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40400	40503	
==>> 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access them vi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2354	2453	
==>ject they had
	# this lets us assign letters to them

	my @letters = split //, "αβγδεζηθικ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5677	5800	
==>@res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5677	5800	
==>@res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5677	5800	
==>@res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14555	14662	
==>vyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require File <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12134	12300	
==>midifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation::Example $othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4406	4550	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4406	4550	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4406	4550	
==>ttrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4101	4242	
==>m_struct( struct => $_ ) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( "Could not load avai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13394	13531	
==>tch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13394	13531	
==>tch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13394	13531	
==>tch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14877	15012	
==>B_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 D <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14877	15012	
==>B_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 D <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	182	274	
==>he grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	182	274	
==>he grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7014	7159	
==>f ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7478	7623	
==>f ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9902	10046	
==>f ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1687	1823	
==>f ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6562	6699	
==>}
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6620	6757	
==>}
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2753	2861	
==>sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2753	2861	
==>sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	832	1009	
==>*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	832	1009	
==>*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19605	19697	
==>esse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19605	19697	
==>esse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::I <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2279	2391	
==>------------------------
-- Do not modify this file; it is generated automatically by  --
--                  uti <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5221	5315	
==>gs-path"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	626	718	
==>ail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write dow <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	626	718	
==>ail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write dow <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9006	9102	
==>copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9006	9102	
==>copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9006	9102	
==>copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26205	26373	
==>tr =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26205	26373	
==>tr =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26205	26373	
==>tr =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1451	1555	
==>confess "Index must be a num type";
    # replace the value with a nil type
    $self->[$index->to_native <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1003	1117	
==>>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1003	1117	
==>>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1003	1117	
==>>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $se <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2493	2589	
==>ed
both to return a compiled regexp, and to provide match results.  This
module is an experiment, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40090	40190	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40090	40190	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40090	40190	
==>l6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29393	29490	
==>atch invocant
Relation::Example attribute names, or any C<$mapping> values duplicate each other,
o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1364	1490	
==>op();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1364	1490	
==>op();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1364	1490	
==>op();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5624	5724	
==>BEGIN{&init();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1471	1605	
==>l} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1471	1605	
==>l} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1471	1605	
==>l} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_att <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	89	186	
==>which does publisher can send events
# something which does subscriber can recieve them
# two kind <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5798	5896	
==>proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4928	5026	
==>proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5798	5896	
==>proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4928	5026	
==>proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9646	9805	
==>est(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $rea <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1735	1886	
==>est(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $rea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1735	1886	
==>est(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $rea <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2317	2418	
==>s . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter tha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3662	3762	
==>ng)r,(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39828	39923	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39828	39923	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39828	39923	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::A <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13659	13757	
==>ended "Good Practice" order.

In scalar context return the number of distinct field names.

=item $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13659	13757	
==>ended "Good Practice" order.

In scalar context return the number of distinct field names.

=item $ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5834	5930	
==>ccess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5834	5930	
==>ccess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2296	2452	
==>lf->get_value('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift;
                my $size = s <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	681	797	
==>ti  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$r <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9285	9399	
==>ti  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$r <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	412	519	
==>xe_ext   => $Config{exe_ext},
        path_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	100	208	
==>0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    } <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	100	208	
==>0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6500	6595	
==>urn $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6500	6595	
==>urn $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15300	15407	
==>";
1 while -f ++$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3461	3562	
==>calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3461	3562	
==>calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3461	3562	
==>calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6026	6136	
==>Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5156	5266	
==>Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6026	6136	
==>Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5156	5266	
==>Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2015	2183	
==>$p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2015	2183	
==>$p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2015	2183	
==>$p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12615	12755	
==>e %params)))))
     ($self send (BUILDALL %params))
     ($self)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10786	10915	
==>:next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10786	10915	
==>:next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10786	10915	
==>:next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) }, <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1848	1981	
==>n::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &? <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1848	1981	
==>n::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &? <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15161	15260	
==>ser, or generate a message to be
shown to the user.  Sometimes this is an error message of some kind <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15161	15260	
==>ser, or generate a message to be
shown to the user.  Sometimes this is an error message of some kind <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1393	1504	
==>ss) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1598	1709	
==>ss) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1659	1770	
==>ss) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7611	7764	
==>nature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7611	7764	
==>nature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7611	7764	
==>nature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'define <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	490	597	
==>y;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a type.  This type ca <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6062	6188	
==>> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3854	3955	
==>()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3854	3955	
==>()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3854	3955	
==>()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1498	1626	
==>open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1498	1626	
==>open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	598	713	
==>lidity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1082	1197	
==>lidity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8611	8714	
==>lds are all out of whack.
# This is where this method comes into play
# it will recurse down the tree an <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8611	8714	
==>lds are all out of whack.
# This is where this method comes into play
# it will recurse down the tree an <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	66	164	
==>e::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a positio <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	66	164	
==>e::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a positio <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7405	7513	
==>_method'), $_add_method));
}

=pod

method has_method (opaque $self: symbol $label) returns bit { 
    %:meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	253	347	
==>unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	253	347	
==>unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	253	347	
==>unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pF <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	977	1147	
==>);
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{% <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	977	1147	
==>);
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{% <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27965	28057	
==>a string) associated with
the variable name specified in the positional parameter $var_name ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27965	28057	
==>a string) associated with
the variable name specified in the positional parameter $var_name ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	311	468	
==>,
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14884	15034	
==>er" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14878	15028	
==>er" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2324	2446	
==>\]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paraml <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2324	2446	
==>\]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paraml <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2878	2996	
==>\]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule param <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2878	2996	
==>\]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule param <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10231	10332	
==>ruleop::negate( \\&{'$namespace$_[0]'} )\n";
}
sub node::constant {
    my $literal = shift;
    my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3877	3977	
==>unction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3877	3977	
==>unction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3877	3977	
==>unction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8213	8331	
==>L2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8213	8331	
==>L2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8213	8331	
==>L2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	246	343	
==>[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 ACCESSORS

=o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6968	7083	
==>?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6968	7083	
==>?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6968	7083	
==>?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefau <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19935	20028	
==>!.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [Ci|F1],F1,B0,[C|B0],E0,E0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2628	2735	
==>able> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2628	2735	
==>able> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32573	32665	
==>iguration, its
main purpose is to convert Message objects on demand into user-readable
messag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32573	32665	
==>iguration, its
main purpose is to convert Message objects on demand into user-readable
messag <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3242	3472	
==>g("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expire <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3242	3472	
==>g("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expire <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9362	9503	
==>ernation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9555	9696	
==>ernation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21015	21148	
==>angle($name);
    my $pkg = (caller)[0];
    #my $ret = eval "package $pkg;".<<'    END';
    #  no strict;defined($$mn)?$$mn:p6__look <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1137	1236	
==>(0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1137	1236	
==>(0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1137	1236	
==>(0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5063	5200	
==>"Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5063	5200	
==>"Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5063	5200	
==>"Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $valu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2121	2222	
==>ser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter k <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1738	1842	
==>t->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1738	1842	
==>t->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28405	28500	
==>mple's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

Thi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9918	10008	
==>[C]))}.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - should permit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13513	13617	
==>tainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13513	13617	
==>tainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13513	13617	
==>tainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22277	22410	
==>ddle_str) - $list_len;
        if ($max_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2699	2814	
==>y) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2699	2814	
==>y) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2699	2814	
==>y) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	147	262	
==>] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	147	262	
==>] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	147	262	
==>] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($w <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6091	6186	
==>-haskell -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|ming <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7014	7111	
==>st inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7014	7111	
==>st inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	5	96	
==>e Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limit <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	5	96	
==>e Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1157	1254	
==>age, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1157	1254	
==>age, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1157	1254	
==>age, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1439	1532	
==>ght fairly simple code with tolerable performance.

However, pugs critical path is currently m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	534	654	
==>( $class, $rule_source, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	442	545	
==>'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	442	545	
==>'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	442	545	
==>'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "de <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5540	5681	
==>ength;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5540	5681	
==>ength;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4850	4952	
==>set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4850	4952	
==>set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	715	818	
==>t_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_clos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	715	818	
==>t_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_clos <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2307	2406	
==>er, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-back <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2307	2406	
==>er, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1871	1987	
==>_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal erro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1871	1987	
==>_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal erro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1871	1987	
==>_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal erro <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2955	3060	
==>ing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodby <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2955	3060	
==>ing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodby <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3035	3140	
==>ing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodby <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37628	37717	
==>oned.

=item C<difference (Relation::Example $other!) returns Relation::Example>

This met <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4558	4665	
==>s %{ $runcores{$runcore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{tim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3150	3254	
==>ent_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3150	3254	
==>ent_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3150	3254	
==>ent_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasse <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1084	1208	
==>my @list = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	181	277	
==>or a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	181	277	
==>or a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	181	277	
==>or a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24969	25071	
==>simply
send all commands immediately to the server, but creates a queue, which is then
slowly sent to t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23733	23835	
==>simply
send all commands immediately to the server, but creates a queue, which is then
slowly sent to t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24969	25071	
==>simply
send all commands immediately to the server, but creates a queue, which is then
slowly sent to t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23733	23835	
==>simply
send all commands immediately to the server, but creates a queue, which is then
slowly sent to t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	315	481	
==>) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            paren <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	315	481	
==>) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            paren <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	828	924	
==>m B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	828	924	
==>m B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1384	1480	
==>m B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	617	751	
==>les ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	617	751	
==>les ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24851	24945	
==>are Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24851	24945	
==>are Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1195	1312	
==>.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method u <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1195	1312	
==>.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8011	8111	
==>n'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8011	8111	
==>n'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10158	10293	
==>lete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10158	10293	
==>lete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18462	18572	
==>f_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14883	14993	
==>f_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6925	7024	
==>lurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6925	7024	
==>lurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6925	7024	
==>lurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @arg <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	844	936	
==>ltering the behavior of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbose( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	689	800	
==>>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	689	800	
==>>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	689	800	
==>>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22651	22753	
==>...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this current version, beca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16411	16498	
==>notation went with this attribute when it's declared"
$::Class->add_method('find_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16411	16498	
==>notation went with this attribute when it's declared"
$::Class->add_method('find_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16411	16498	
==>notation went with this attribute when it's declared"
$::Class->add_method('find_attribu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12018	12200	
==>ct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15495	15677	
==>ct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	561	659	
==>ple-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	561	659	
==>ple-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2031	2151	
==>def") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseCla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2031	2151	
==>def") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseCla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2031	2151	
==>def") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseCla <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	8	110	
==>TTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUIL <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	8	110	
==>TTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUIL <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1934	2031	
==>not provided with any tags, it will intuit one by extracting the 
last component of the calling fu <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1934	2031	
==>not provided with any tags, it will intuit one by extracting the 
last component of the calling fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	970	1075	
==>erred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	970	1075	
==>erred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	970	1075	
==>erred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	172	260	
==>with Self-Bootstrapping Roles
## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5045	5149	
==>~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	90	194	
==>on, 3rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * RegularExpressionLiteral ha <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5045	5149	
==>~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5045	5149	
==>~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	358	519	
==>{
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	358	519	
==>{
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $matc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3213	3322	
==>to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3213	3322	
==>to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3103	3204	
==>tils::Manifest::manicheck = sub { return };

    require Module::Build;
    my $build = Module::Build- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2831	2929	
==>, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2831	2929	
==>, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2831	2929	
==>, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1410	1577	
==>AY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6663	6760	
==>PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6663	6760	
==>PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6663	6760	
==>PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPI <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2025	2161	
==>[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2025	2161	
==>[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6236	6357	
==>t eq $expected) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, <==
4	/Users/nnunley/pugs/util/package-osx.pl	5066	5163	
==>Perl6::Bible::S22.3pm
        /usr/local/man/man3/Perl6::Bible::S26.3pm
        /usr/local/man/man <==
4	/Users/nnunley/pugs/util/drift.pl	1955	2058	
==>ook, but Don't Touch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8299	8386	
==>);
}

#======================================================================

use FindB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8299	8386	
==>);
}

#======================================================================

use FindB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8299	8386	
==>);
}

#======================================================================

use FindB <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	848	952	
==>export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub do <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	848	952	
==>export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub do <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3578	3674	
==>onal - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Function <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3578	3674	
==>onal - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Function <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20441	20540	
==>study; you should not use it in production.

For production use, there should be a wide variety of t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20441	20540	
==>study; you should not use it in production.

For production use, there should be a wide variety of t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10314	10402	
==>$self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10314	10402	
==>$self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	531	665	
==>(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	531	665	
==>(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2006	2119	
==>ital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # smal <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2006	2119	
==>ital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # smal <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16424	16515	
==>ch is computationally complete
(and industrial strength) and has fully integrated database f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16424	16515	
==>ch is computationally complete
(and industrial strength) and has fully integrated database f <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2130	2267	
==>ram<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2130	2267	
==>ram<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if d <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11375	11467	
==>eturns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11375	11467	
==>eturns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	145	244	
==>to permit alternate regexp engines to be used without
# requiring changes to user p5 code.  It was e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1629	1796	
==>tem) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1629	1796	
==>tem) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    u <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1525	1686	
==>tem) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1525	1686	
==>tem) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9177	9318	
==>:Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, pos, 2
    if $S0 == "**" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27602	27697	
==>s of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32154	32249	
==>s of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31246	31341	
==>s of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1333	1450	
==>th; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1333	1450	
==>th; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1333	1450	
==>th; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

f <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12083	12175	
==>l"><span title="<tmpl_var name=total> total"><tmpl_var name=total></span>:</td>
	      <td cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4078	4187	
==>lf->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4078	4187	
==>lf->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4078	4187	
==>lf->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12417	12510	
==>n title="<tmpl_var name=todo> todo"><tmpl_var name=todo></span>,</td>
	      <td class="num te <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6181	6291	
==>+//;
    $s ~~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22445	22542	
==>d on the
same object with the same arguments; they do not interact with the outside
environment at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26997	27094	
==>d on the
same object with the same arguments; they do not interact with the outside
environment at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25720	25817	
==>d on the
same object with the same arguments; they do not interact with the outside
environment at <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1018	1145	
==>atch($event, *@args);
      $result;
    });
    
    # And enter the runloop again.
    ./:step(); #/#--vim
  }
}

class POE::S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6302	6385	
==>? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6302	6385	
==>? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6302	6385	
==>? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14095	14228	
==>@{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14095	14228	
==>@{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14095	14228	
==>@{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4869	4974	
==>= Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default assoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	140	240	
==>iq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	140	240	
==>iq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	140	240	
==>iq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal bu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1682	1795	
==>e?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitra <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1682	1795	
==>e?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitra <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6290	6386	
==>itespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %eve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6290	6386	
==>itespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %eve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8259	8347	
==>ls{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8259	8347	
==>ls{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	112	235	
==>:Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1058	1161	
==>FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1058	1161	
==>FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1058	1161	
==>FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1173	1292	
==>t to $Builddir first, THEN copy later if all goes well
        {   print "Writing meta data...\n";
            system( q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2679	2794	
==>lf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2679	2794	
==>lf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2679	2794	
==>lf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	541	665	
==>stant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	541	665	
==>stant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	541	665	
==>stant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die " <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	709	804	
==>y $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/';
    my $_PERL6_BIBLE =  'http://tpe.f <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	120	235	
==>valid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	120	235	
==>valid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30955	31049	
==>entical to the original, in which case
this method returns the identity-one Relation or the inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35505	35599	
==>entical to the original, in which case
this method returns the identity-one Relation or the inv <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2065	2231	
==>)                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3426	3531	
==>H()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3426	3531	
==>H()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3426	3531	
==>H()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	150	262	
==>) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	150	262	
==>) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	150	262	
==>) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4498	4607	
==>_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4498	4607	
==>_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4177	4274	
==>eturn $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5026	5123	
==>eturn $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	95	220	
==>lly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	95	220	
==>lly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	95	220	
==>lly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outpu <==
4	/Users/nnunley/pugs/util/package-osx.pl	6235	6343	
==>man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14150	14270	
==>{ $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14150	14270	
==>{ $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14150	14270	
==>{ $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27891	27985	
==>t ['foo'], length_and_first [1])");
is(t($map), "∀α. ∀β. (α → β) → list α → list <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4339	4476	
==>$start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4339	4476	
==>$start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8810	8927	
==>set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8810	8927	
==>set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4094	4220	
==>> [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4287	4413	
==>> [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4304	4416	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4497	4609	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8457	8589	
==>urrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8457	8589	
==>urrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8457	8589	
==>urrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2407	2518	
==>$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2407	2518	
==>$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2407	2518	
==>$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	42	128	
==>se Date::Format::ISO8601;

our $iso8601_duration_re_anchored = rx:perl5/^$iso8601_durat <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2575	2668	
==>mbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${re_scopeop}?\s*${re_varna <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	177	259	
==>http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Re <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	144	226	
==>http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Re <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	190	272	
==>http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22043	22141	
==>sage for a certain code, it
returns the first one it finds.  This also works for the multiple langu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22043	22141	
==>sage for a certain code, it
returns the first one it finds.  This also works for the multiple langu <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2449	2543	
==>r $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2449	2543	
==>r $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8691	8799	
==>w,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4886	4989	
==>rite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4886	4989	
==>rite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4886	4989	
==>rite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5718	5829	
==>ion intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5718	5829	
==>ion intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        re <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	624	722	
==>ugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	624	722	
==>ugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1323	1445	
==>$sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1311	1433	
==>$sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gram <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3114	3213	
==>n be called with a string, and should be called at the 
end of enciphering with zero arguments.

=it <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3114	3213	
==>n be called with a string, and should be called at the 
end of enciphering with zero arguments.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8799	8907	
==>late_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an ev <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8799	8907	
==>late_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an ev <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	897	1135	
==>"w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	898	1136	
==>"w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14297	14391	
==>rget") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14297	14391	
==>rget") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	804	934	
==>Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	804	934	
==>Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6300	6399	
==>es, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6300	6399	
==>es, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18836	18931	
==>if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17879	17974	
==>if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18836	18931	
==>if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17879	17974	
==>if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8711	8810	
==>gant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it see <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8711	8810	
==>gant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it see <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8969	9066	
==>gant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it see <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8969	9066	
==>gant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17823	17916	
==>) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17823	17916	
==>) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17823	17916	
==>) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4620	4724	
==>f ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node? <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4620	4724	
==>f ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node? <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9926	10022	
==>l::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_perso <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9926	10022	
==>l::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_perso <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	739	854	
==>v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	827	942	
==>v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub nod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19857	19954	
==>owever it likes; all Rosetta cares about is that the user
interface and behaviour conform to its p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19857	19954	
==>owever it likes; all Rosetta cares about is that the user
interface and behaviour conform to its p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	100	215	
==>> $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	100	215	
==>> $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23918	24013	
==>and shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23918	24013	
==>and shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19070	19173	
==>riginal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19070	19173	
==>riginal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_w <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16397	16499	
==>ct (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19874	19976	
==>ct (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1875	2017	
==>d instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1875	2017	
==>d instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1875	2017	
==>d instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31346	31440	
==>ldren of this object.

=item dir

The direction of this object (for look-ahead/behind assertion <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2303	2421	
==>r($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{(${re_symb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	428	529	
==>rn",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	428	529	
==>rn",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	428	529	
==>rn",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?C <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	446	561	
==>die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	481	596	
==>die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	446	561	
==>die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9659	9774	
==>die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1389	1492	
==>P_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1::Root";

=pod
https://svn.perl.org/perl6/doc/ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5722	5817	
==>single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5722	5817	
==>single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7919	8014	
==>single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1855	1954	
==>=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	851	950	
==>=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20305	20398	
==>botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20305	20398	
==>botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4181	4305	
==>, 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4181	4305	
==>, 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1031	1155	
==>, 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21703	21789	
==>ck_offset_max substrs->data[2].max_offset

data[0].substr, aka anchored_substr, is used <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10178	10299	
==>en_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    ret <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10178	10299	
==>en_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18221	18318	
==>rt of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document fro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18221	18318	
==>rt of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document fro <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10895	11029	
==>loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10895	11029	
==>loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10279	10370	
==>undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',define <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11014	11105	
==>undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',define <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17659	17813	
==>leop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17938	18092	
==>leop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'li <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	52	150	
==>0.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2982	3092	
==>sa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2982	3092	
==>sa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2982	3092	
==>sa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argum <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3741	3846	
==>AIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9089	9186	
==>the same failure object always

then there's absolutely no overhead

I'm not sure about this - fai <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22301	22397	
==>same method names as you or each other, or having multiple search
directories in your path that p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22301	22397	
==>same method names as you or each other, or having multiple search
directories in your path that p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8790	8885	
==>the same failure object always
then there's absolutely no overhead
I'm not sure about this - fai <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3960	4065	
==>$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{invoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	427	519	
==>t,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    've <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	427	519	
==>t,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    've <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	427	519	
==>t,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    've <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	977	1085	
==>ys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	977	1085	
==>ys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	977	1085	
==>ys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	260	375	
==>$filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?% <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	260	375	
==>$filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?% <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	260	375	
==>$filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?% <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	260	375	
==>$filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?% <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4305	4450	
==>1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4293	4438	
==>1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        pu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10072	10169	
==>uation will not be set at all.  The scope of immediate
validation is kept to the minimum possible, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10072	10169	
==>uation will not be set at all.  The scope of immediate
validation is kept to the minimum possible, <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	491	640	
==>e    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	491	640	
==>e    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	220	337	
==>nt =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $cont <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	220	337	
==>nt =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $cont <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	221	355	
==>Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require Fil <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2531	2637	
==>w(0), $self->elems)->to_native
    )     
}

# some of the common list operations

sub head { @{$_[0]}[0] } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9407	9503	
==>plate_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9407	9503	
==>plate_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1982	2083	
==>ff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1982	2083	
==>ff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1982	2083	
==>ff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17412	17510	
==>> Str )

Performs a Unicode "titlecase" operation on the first character of the string.


=item cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	903	1028	
==>FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	903	1028	
==>FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	903	1028	
==>FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3145	3256	
==>t;
    my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/build/lib <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3730	3984	
==>e::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedTe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3730	3984	
==>e::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedTe <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6605	6699	
==>"Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6605	6699	
==>"Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11540	11646	
==>entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_enti <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11540	11646	
==>entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_enti <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5179	5277	
==>d exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5179	5277	
==>d exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9478	9612	
==>data} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2687	2791	
==>ap { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Co <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2687	2791	
==>ap { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Co <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	921	1015	
==>lue::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePrimitive;
clas <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16604	16725	
==>ing              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1627	1728	
==>{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1627	1728	
==>{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1627	1728	
==>{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pre <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4593	4705	
==>snegated = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3883	3986	
==>f> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_cont <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3883	3986	
==>f> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_cont <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3883	3986	
==>f> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13578	13719	
==>erl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13578	13719	
==>erl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13578	13719	
==>erl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8241	8358	
==>p->_command_line($tfile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) or
          do { warn $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6585	6710	
==>( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6585	6710	
==>( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        po <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1975	2078	
==>e.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoc <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1975	2078	
==>e.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9601	9711	
==>Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9601	9711	
==>Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9601	9711	
==>Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23445	23538	
==>lasses can
optionally override these operators with versions that are more specific to
their o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5605	5710	
==>ix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5605	5710	
==>ix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5605	5710	
==>ix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &in <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20849	20954	
==>r select(both)
# send setsockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread s <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	29	142	
==>le URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%% <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	29	142	
==>le URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%% <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11972	12069	
==>eturns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Retur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11972	12069	
==>eturns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	575	699	
==>>{raw} : $self->visual(@_);
  }

  sub data {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	245	362	
==>, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	245	362	
==>, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	245	362	
==>, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5496	5607	
==>']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6764	6875	
==>']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5496	5607	
==>']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6752	6863	
==>']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	253	353	
==>e::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	253	353	
==>e::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15641	15734	
==>aracters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle A <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15641	15734	
==>aracters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle A <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6283	6394	
==>NT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6283	6394	
==>NT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23486	23574	
==>entation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23486	23574	
==>entation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4109	4314	
==>$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5430	5635	
==>$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4109	4314	
==>$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5418	5623	
==>$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	629	807	
==>_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __PACKAGE__->recompile;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17273	17370	
==>N

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements plat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17273	17370	
==>N

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements plat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17273	17370	
==>N

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements plat <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3163	3284	
==>do($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3163	3284	
==>do($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4687	4808	
==>do($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23381	23469	
==>Fx, B1 = Bx, E1 = Ex).

%---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1113	1232	
==>) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1113	1232	
==>) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1113	1232	
==>) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1512	1630	
==>_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1512	1630	
==>_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1512	1630	
==>_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modif <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	974	1069	
==>ions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>autriju <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2959	3064	
==>returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6436	6541	
==>returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5375	5480	
==>returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

me <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2712	2816	
==>e) {
		my $assigned = $map{$entry->{orig}};
		unless ($assigned) {
			$assigned = shift @letters;
			$map <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3287	3387	
==>ion = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archli <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3287	3387	
==>ion = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archli <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18555	18647	
==>d on regular expression compilation and execution) to
parasitize the regexp struct - attempti <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2845	2937	
==>d on regular expression compilation and execution) to
parasitize the regexp struct - attempti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8697	8804	
==>=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postci <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6228	6331	
==>=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postci <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18605	18695	
==>a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exact <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18605	18695	
==>a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exact <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6331	6453	
==>zation for faster backtracking, less stack usage
    return sub {
        my $state = $_[1] || $node;
        my $st = $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1569	1674	
==>r(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List {
   gather {
     while any(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1547	1651	
==>red with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1547	1651	
==>red with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1547	1651	
==>red with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TO <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25030	25130	
==>e>, C<$switches> and C<$debug> are exported upon request.

=head1 DIAGNOSTICS

=over 4

=item C<All t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15859	15993	
==>0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15859	15993	
==>0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15859	15993	
==>0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36851	36946	
==>ntents of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: string w <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6286	6399	
==>urn sub{
      FAIL() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4398	4496	
==>ion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4398	4496	
==>ion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4398	4496	
==>ion (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6096	6241	
==>ess $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      give <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6096	6241	
==>ess $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      give <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1415	1523	
==>er::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1415	1523	
==>er::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7703	7808	
==>pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3458	3558	
==>ub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3458	3558	
==>ub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3458	3558	
==>ub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	52	172	
==>Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * opera <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	52	172	
==>Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * opera <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9069	9181	
==>res create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9057	9169	
==>res create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1359	1459	
==>dmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1359	1459	
==>dmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1359	1459	
==>dmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3028	3157	
==>Config::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2213	2311	
==>= hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should auto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2213	2311	
==>= hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should auto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2213	2311	
==>= hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	275	384	
==>BMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	275	384	
==>BMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	275	384	
==>BMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing h <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1581	1679	
==><".";
*** Build config file '$filename' is older than template
    '$config_template'.  I will merg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15874	15987	
==>min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10730	10843	
==>min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13281	13371	
==>o_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This wi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13281	13371	
==>o_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2791	2896	
==>pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	179	284	
==>e;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2791	2896	
==>pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2791	2896	
==>pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2970	3079	
==>ocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2970	3079	
==>ocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2970	3079	
==>ocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	621	727	
==>.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::reduce (Code $expression ; *@values - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2489	2622	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2489	2622	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2489	2622	
==>hable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14553	14648	
==>se case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14553	14648	
==>se case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7265	7358	
==>ent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7265	7358	
==>ent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	386	481	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	386	481	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	386	481	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1350	1446	
==>ite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1350	1446	
==>ite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1350	1446	
==>ite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Ar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3341	3446	
==>this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6818	6923	
==>this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5775	5880	
==>this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23305	23406	
==>onto the stack.  When a scope is left, the
top value is popped and discarded.

It is important to do t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	342	454	
==>>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	833	945	
==>>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	342	454	
==>>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	833	945	
==>>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2107	2208	
==>r_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1216	1314	
==>r_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1182	1273	
==>::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1182	1273	
==>::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3010	3148	
==>->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7196	7310	
==>t( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3800	3914	
==>t( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4649	4763	
==>t( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '" <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21349	21443	
==>trs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_min_o <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6102	6208	
==>$index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuf <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6102	6208	
==>$index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuf <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7893	7991	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7893	7991	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $sp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1470	1677	
==>Elem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3163	3264	
==>works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3163	3264	
==>works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3163	3264	
==>works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$l <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3314	3420	
==>). Setting --no-designdocs.\n");
        $no_designdocs = 1;
    }
}

$output_dir ||= 't_index';
for(@t_dir <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	815	911	
==>PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer - generic reducing base class for fmappi <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	144	229	
==>arted by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22 <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	111	196	
==>arted by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22 <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	157	242	
==>arted by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7317	7432	
==>sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variab <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7069	7182	
==>sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variab <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13578	13672	
==>low_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The l <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13578	13672	
==>low_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23061	23243	
==>ore( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23061	23243	
==>ore( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23061	23243	
==>ore( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1548	1697	
==>B::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not clean out '$builddir'" ), return;
#         }                
#         JI <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4044	4246	
==>ne>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4044	4246	
==>ne>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4001	4201	
==>ne>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4001	4201	
==>ne>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	644	753	
==>()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	644	753	
==>()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	644	753	
==>()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed str <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20643	20757	
==>goto setsubpats
    $I0 = pad["subpats"]
    self["cname"] = $I0
    
  setsubpats:
    cname = self["cname"]
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37250	37345	
==>et of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natura <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41799	41894	
==>et of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natura <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41422	41517	
==>et of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natura <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12435	12550	
==>ub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13703	13801	
==>LTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13703	13801	
==>LTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13703	13801	
==>LTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5500	5621	
==>Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5500	5621	
==>Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5500	5621	
==>Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4082	4180	
==>Obj->target();
  $position = $matchObj->position();
  $lastPosition = length $target;

  if matches <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2444	2569	
==>ltidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $containe <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2444	2569	
==>ltidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $containe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36511	36602	
==>ne-readable) Message object as its positional
parameter $message and returns an equivalent h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36511	36602	
==>ne-readable) Message object as its positional
parameter $message and returns an equivalent h <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	99	202	
==>«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, 'foo' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14580	14682	
==>ce_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14580	14682	
==>ce_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14580	14682	
==>ce_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    E <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	868	981	
==>d;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	868	981	
==>d;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8484	8579	
==>rm your own security analysis before using it in any 
sensitive application.>

B<I<The authors a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8484	8579	
==>rm your own security analysis before using it in any 
sensitive application.>

B<I<The authors a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1607	1754	
==>[ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1552	1695	
==>[ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28140	28237	
==>s and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28140	28237	
==>s and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8521	8638	
==>rr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8521	8638	
==>rr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8521	8638	
==>rr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FET <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17150	17258	
==>,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17307	17415	
==>,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33199	33291	
==>Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersectio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37749	37841	
==>Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersectio <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15598	15691	
==><ShiftExpression>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6935	7066	
==>cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11939	12070	
==>cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6935	7066	
==>cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11933	12064	
==>cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pu <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	200	316	
==>ION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1291	1401	
==>"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1291	1401	
==>"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1291	1401	
==>"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9982	10120	
==>y $new_alt;
        {   my $wanted = join '-',  $inst_pkg->prefix, $inst_pkg->name;

            ### find all packages that provide: a <pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6108	6214	
==>"utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6108	6214	
==>"utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6108	6214	
==>"utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_h <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4260	4403	
==>"' {
        my %pad = $tree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWritable"" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10823	10930	
==>Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10823	10930	
==>Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10823	10930	
==>Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3201	3309	
==>go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, bu <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3201	3309	
==>go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, bu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14031	14134	
==>error(mob, pos, "No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    . <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	652	746	
==>an.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8923	9038	
==>t F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	657	772	
==>t F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8923	9038	
==>t F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8923	9038	
==>t F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1159	1289	
==>ce => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9962	10070	
==>de}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9962	10070	
==>de}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  = <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1778	1883	
==>n = "splashscreen.txt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1346	1438	
==>bute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1346	1438	
==>bute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1346	1438	
==>bute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8948	9059	
==>the invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12425	12536	
==>the invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8911	9008	
==>1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_emp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8911	9008	
==>1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_emp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24185	24323	
==>apture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24464	24602	
==>apture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7975	8100	
==>sure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each % <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7987	8112	
==>sure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each % <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14055	14204	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20551	20700	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14334	14483	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20830	20979	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_p <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9152	9257	
==>d_img\"",
    ensure => sub { -r $initrd_img and -s $initrd_img == 1024 * $initrd_size },
    using  => su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2603	2765	
==>at( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3007	3163	
==>at( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2518	2674	
==>at( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3007	3163	
==>at( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18677	18777	
==>. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17720	17820	
==>. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18677	18777	
==>. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17720	17820	
==>. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14338	14453	
==>s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14338	14453	
==>s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14338	14453	
==>s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2104	2243	
==>,
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %params) = @_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5192	5294	
==>my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2219	2319	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2219	2319	
==>ext::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5060	5175	
==>script\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5060	5175	
==>script\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13456	13550	
==>elds.

=item $h.header_field_names

Returns the list of distinct names for the fields present i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13456	13550	
==>elds.

=item $h.header_field_names

Returns the list of distinct names for the fields present i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3995	4102	
==>];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4212	4319	
==>];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1534	1631	
==>ent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1534	1631	
==>ent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3876	4088	
==>p = 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	265	369	
==>urpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	265	369	
==>urpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	265	369	
==>urpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1723	1840	
==>h:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14790	14881	
==>($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14790	14881	
==>($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14790	14881	
==>($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11526	11719	
==>less $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $sp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11526	11719	
==>less $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $sp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11526	11719	
==>less $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13813	13913	
==>bject(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10217	10313	
==>gs in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {.. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10217	10313	
==>gs in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {.. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1086	1179	
==>are a series of documents, written
in question/answer format, to explain the design and implem <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1086	1179	
==>are a series of documents, written
in question/answer format, to explain the design and implem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1349	1451	
==>ml");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1349	1451	
==>ml");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1349	1451	
==>ml");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $i <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12481	12573	
==></td>
	      <td class="num tests_skipped"><span title="<tmpl_var name=skipped> skipped"><tmp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1670	1782	
==>() {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1670	1782	
==>() {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	745	834	
==>be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, whic <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	745	834	
==>be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, whic <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2861	2970	
==>};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2849	2958	
==>};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix gramma <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	274	379	
==>end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	274	379	
==>end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	454	597	
==>bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted => $1 }, value => { sin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3139	3253	
==>ribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3139	3253	
==>ribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3139	3253	
==>ribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5022	5129	
==>"args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5022	5129	
==>"args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5022	5129	
==>"args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3638	3728	
==>or definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3638	3728	
==>or definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3638	3728	
==>or definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operator <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9295	9385	
==>sub { 
   '$iFoo::test_iFoo_singleton_method' 
});

is($iFoo->test_iFoo_singleton_method(), <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2232	2347	
==>d requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    sa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2232	2347	
==>d requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    sa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1556	1667	
==>self = shift;
    my $app = shift;

	my $sent = scalar($app->values) - 1; # thunk + params

    $self->enter_sco <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	90	184	
==>ser/equiv 
#  infix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	344	476	
==>';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4110	4229	
==>iles, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4110	4229	
==>iles, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5834	5929	
==>nd %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5834	5929	
==>nd %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29816	29926	
==>};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29816	29926	
==>};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	722	813	
==>per($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	722	813	
==>per($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level( <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1274	1384	
==>lisher, Class::Publisher::Event $event) {
        grep { .match($event) }, gather {
            take $.subscrip <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20605	20698	
==>class/object attributes are private, so you must use accessor
methods.  Relation does not decl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25157	25250	
==>class/object attributes are private, so you must use accessor
methods.  Relation does not decl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	253	341	
==>require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
req <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	253	341	
==>require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
req <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	253	341	
==>require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
req <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5855	5950	
==>s);
$template->param(links => $total_links);
print $fh $template->output();
close $fh;

# Genera <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47789	48040	
==>$label' => 'symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1536	1650	
==>refix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1536	1650	
==>refix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1536	1650	
==>refix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6208	6318	
==>rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4247	4346	
==>nless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4247	4346	
==>nless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4247	4346	
==>nless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $disp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3328	3448	
==>dWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3328	3448	
==>dWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3684	3804	
==>dWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1841	2032	
==>y $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1841	2032	
==>y $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1841	2032	
==>y $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4781	4876	
==>but unlike B<rebless>, it preseves something
of the original name. So if you had an object bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4781	4876	
==>but unlike B<rebless>, it preseves something
of the original name. So if you had an object bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4781	4876	
==>but unlike B<rebless>, it preseves something
of the original name. So if you had an object bless <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1835	1946	
==>G_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1620	1731	
==>!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1835	1946	
==>G_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1620	1731	
==>!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( d <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5141	5261	
==>es
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5141	5261	
==>es
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$de <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10333	10431	
==>ND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iter <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10333	10431	
==>ND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	668	770	
==>-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	668	770	
==>-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	668	770	
==>-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10030	10144	
==>e( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # sa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10030	10144	
==>e( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # sa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10395	10490	
==>`force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10453	10548	
==>`force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15103	15222	
==>ry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15103	15222	
==>ry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15103	15222	
==>ry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6207	6311	
==>,
please let L<me|/"AUTHOR"> know.

Documentation has been added and moved around. See
L<Regexp::Parser:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1276	1502	
==>=> \$pool_rel,
            },
            index => {
                store => \$index
            },
            index_file => {
                store => \$index_file
            },
            packages => {
                def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8324	8443	
==>is_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to cr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8324	8443	
==>is_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to cr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8324	8443	
==>is_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to cr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3289	3399	
==>ontents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3289	3399	
==>ontents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3289	3399	
==>ontents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7226	7323	
==>is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35951	36089	
==>ody ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35951	36089	
==>ody ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35951	36089	
==>ody ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative leng <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11699	11827	
==>e $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. U <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15538	15635	
==>) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36034	36131	
==>h

Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any number o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15538	15635	
==>) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15538	15635	
==>) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5436	5600	
==>nd => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5436	5600	
==>nd => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5436	5600	
==>nd => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $li <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28609	28766	
==>ject, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object('and');
    });
  }

There is a specific scheme to how you mus <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2470	2591	
==>{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23763	23860	
==>>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23763	23860	
==>>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23763	23860	
==>>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	996	1138	
==>=> SUBDIR_OF_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                sub { shift()->temp_dir->subdi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14412	14501	
==>::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14412	14501	
==>::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14412	14501	
==>::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11032	11185	
==>ne_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11032	11185	
==>ne_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3520	3659	
==>t if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3520	3659	
==>t if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	784	903	
==>do_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	784	903	
==>do_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	784	903	
==>do_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1659	1754	
==>->returns) || $return_value->isa('nil')))
        || confess "bad return value, got($return_valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2623	2730	
==>ned $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2623	2730	
==>ned $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2623	2730	
==>ned $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1750	1845	
==>r $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc_keyed_int
#d <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	38	146	
==>.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration construct <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	38	146	
==>.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration construct <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	690	791	
==>lo!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::S <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	690	791	
==>lo!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::S <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4048	4148	
==>whitespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9505	9596	
==>xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9505	9596	
==>xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9505	9596	
==>xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8106	8219	
==>PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8106	8219	
==>PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8106	8219	
==>PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	22	114	
==>5::X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
use File::Sp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5029	5134	
==>.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.nex <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5029	5134	
==>.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.nex <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12824	12921	
==>text the number of fields removed is returned.

Note that if you pass in multiple field names then <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12824	12921	
==>text the number of fields removed is returned.

Note that if you pass in multiple field names then <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1984	2126	
==>deblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1906	2043	
==>deblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3320	3415	
==>metric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.in <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3320	3415	
==>metric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.in <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25807	25902	
==>test decides that further testing will not make sense,
the script dies with this message.

=back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	881	975	
==>::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	881	975	
==>::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	881	975	
==>::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1406	1509	
==>arams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1406	1509	
==>arams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1406	1509	
==>arams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun} <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3196	3295	
==>nless($syn_src_dir && -f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not l <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	199	307	
==>s_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7155	7251	
==>y');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7155	7251	
==>y');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7155	7251	
==>y');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4211	4314	
==>self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4211	4314	
==>self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4211	4314	
==>self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51745	52031	
==>'$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51134	51391	
==>'$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9620	9805	
==>Y' ) ) {
                $str .= '(';
                $str .= join " OR ", map { _pp_depends( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVER <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3349	3436	
==>\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks->noop);goto $1;/g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5306	5411	
==>ript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5306	5411	
==>ript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5306	5411	
==>ript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	311	417	
==>:MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	311	417	
==>:MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	311	417	
==>:MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	260	349	
==>mpiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3968	4099	
==>$mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3968	4099	
==>$mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3968	4099	
==>$mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	212	326	
==>t "Use perl version of &infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8225	8314	
==><head>
  <title>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Type" content="text <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1072	1168	
==>ew
namespaces. This is typically useful when your object belongs to a
package that is too close t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1072	1168	
==>ew
namespaces. This is typically useful when your object belongs to a
package that is too close t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1072	1168	
==>ew
namespaces. This is typically useful when your object belongs to a
package that is too close t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1426	1521	
==>ht brace on \%s{}';
use constant RPe_BGROUP => --$ENUM, 'Reference to nonexistent group';
use co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2677	2770	
==>evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2677	2770	
==>evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2677	2770	
==>evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::In <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12321	12496	
==>mar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12315	12490	
==>mar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3154	3301	
==>ethods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3882	4003	
==>ethods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4833	4940	
==>=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4833	4940	
==>=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4833	4940	
==>=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3173	3294	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6298	6419	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3173	3294	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6298	6419	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5446	5555	
==>return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5446	5555	
==>return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9075	9196	
==>}


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUT <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2398	2496	
==>BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2398	2496	
==>BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12652	12818	
==>e( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12652	12818	
==>e( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12652	12818	
==>e( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #w <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22325	22442	
==>::Exp::WS" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .ret <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1551	1679	
==>ends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1984	2082	
==>$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1984	2082	
==>$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1984	2082	
==>$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15750	15915	
==>onform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15750	15915	
==>onform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12915	13041	
==>thod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12915	13041	
==>thod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5939	6044	
==>elf: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot ge <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5939	6044	
==>elf: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot ge <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5407	5496	
==>p($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5465	5554	
==>p($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8258	8369	
==>s $file";

    return $line;
}


=head2 C<_command>

  my $command = $self->_command();

Returns the command tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4421	4530	
==>X - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(% <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4421	4530	
==>X - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(% <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4421	4530	
==>X - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(% <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17862	17977	
==>code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	75	186	
==>line('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	75	186	
==>line('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	75	186	
==>line('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	877	988	
==>}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1751	1862	
==>}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	877	988	
==>}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1751	1862	
==>}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this wi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	51	186	
==>_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        whil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	51	186	
==>_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        whil <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2113	2240	
==>x:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq-> <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7157	7273	
==>ect $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\*STDOUT) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	129	219	
==>ase 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	129	219	
==>ase 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	129	219	
==>ase 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8183	8310	
==>X a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8195	8322	
==>X a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5439	5533	
==>$Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5497	5591	
==>$Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5267	5400	
==>b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5267	5400	
==>b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5267	5400	
==>b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19577	19700	
==>match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastparen;          /* last paren matched * <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14555	14669	
==>$second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible languag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14555	14669	
==>$second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible languag <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	643	743	
==>section
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symm <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	643	743	
==>section
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3234	3347	
==>ains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3234	3347	
==>ains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::pos <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6735	6843	
==>like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6735	6843	
==>like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18569	18775	
==>param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18569	18775	
==>param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18569	18775	
==>param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14437	14566	
==>we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the server (probably several ti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14437	14566	
==>we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pinged the server (probably several ti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13478	13603	
==>we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the server (probably several ti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13478	13603	
==>we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pinged the server (probably several ti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3401	3527	
==>!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3401	3527	
==>!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	894	997	
==>ace::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	894	997	
==>ace::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8599	8763	
==>xp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1340	1457	
==>al $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1340	1457	
==>al $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1340	1457	
==>al $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	150	291	
==>::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13517	13616	
==>) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13517	13616	
==>) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13517	13616	
==>) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6692	6793	
==>(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6692	6793	
==>(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6692	6793	
==>(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2747	2841	
==>);
is($p->prototype->class, \&Object, '... got the right class name');

is($p->get_x, 5, '... g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14544	14707	
==>nted";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14538	14701	
==>nted";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19361	19453	
==>icates the
authentication scheme and parameters applicable to the requested URI.

=item $h.pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19361	19453	
==>icates the
authentication scheme and parameters applicable to the requested URI.

=item $h.pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	51	149	
==>e real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	51	149	
==>e real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	51	149	
==>e real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITI <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11645	11738	
==>lar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($_[0 <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	960	1156	
==>bs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else { <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	960	1156	
==>bs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2432	2527	
==>ys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2432	2527	
==>ys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3900	3999	
==>ous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3900	3999	
==>ous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21138	21232	
==>ecompiled. This means that people who install your
module distribtution do not need to have the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21138	21232	
==>ecompiled. This means that people who install your
module distribtution do not need to have the <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29328	29435	
==>m" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29328	29435	
==>m" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	942	1043	
==>:en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ke <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	942	1043	
==>:en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9795	9920	
==>}
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15636	15761	
==>}
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9795	9920	
==>}
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15630	15755	
==>}
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3002	3097	
==>$conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3002	3097	
==>$conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3002	3097	
==>$conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7490	7664	
==>>{method}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5423	5532	
==>eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5423	5532	
==>eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5423	5532	
==>eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11234	11343	
==>ng in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11234	11343	
==>ng in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10479	10584	
==>ng in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10479	10584	
==>ng in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28424	28520	
==>1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4257	4349	
==>her such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4257	4349	
==>her such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4257	4349	
==>her such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1512	1611	
==>n_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1512	1611	
==>n_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1512	1611	
==>n_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	413	517	
==>tput => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SU <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	413	517	
==>tput => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SU <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22584	22676	
==>ually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22584	22676	
==>ually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to c <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	281	399	
==>inite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=c <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	281	399	
==>inite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=c <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6335	6432	
==>NS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently ta <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6335	6432	
==>NS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently ta <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6062	6183	
==>y @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6062	6183	
==>y @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8641	8754	
==>);
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8641	8754	
==>);
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1946	2056	
==>\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1946	2056	
==>\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1946	2056	
==>\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub com <==
4	/Users/nnunley/pugs/util/package-osx.pl	7925	8022	
==>r.3pm
        /usr/local/man/man3/Perl6::Spec::Overload.3pm
        /usr/local/man/man3/Perl6::Spe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1544	1645	
==>ning the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the ne <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1544	1645	
==>ning the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the ne <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	229	328	
==>Ideally, the node definition clauses would be in one file,
   and the defining macros, for each of v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	229	328	
==>Ideally, the node definition clauses would be in one file,
   and the defining macros, for each of v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1451	1554	
==>E;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1451	1554	
==>E;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1451	1554	
==>E;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30527	30620	
==>ethod is the same as C<project> but that the returned Relation::Example has
the complement sub <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	912	1027	
==>m A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is th <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	912	1027	
==>m A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15239	15350	
==>Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15239	15350	
==>Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    h <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5717	5848	
==>ghc";

        warn "*** ghc not found in path.  Looking in $ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we'v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14426	14556	
==>e Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ??? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	22	122	
==>arnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	22	122	
==>arnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	22	122	
==>arnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7790	7948	
==>ier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2087	2226	
==>ier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2087	2226	
==>ier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2087	2226	
==>ier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1504	1598	
==>ot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1504	1598	
==>ot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5199	5311	
==>MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5199	5311	
==>MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoi <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	555	653	
==>q "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	555	653	
==>q "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4249	4350	
==>ement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A- <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4249	4350	
==>ement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29009	29104	
==>--- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29009	29104	
==>--- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29009	29104	
==>--- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25307	25397	
==>e::variable::free->new,
		type::operator::pair->new(
			type::variable::free->new,
			type: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3267	3389	
==>e '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3255	3377	
==>e '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifie <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18723	18821	
==>ding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22205	22303	
==>ding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes Re <==
4	/Users/nnunley/pugs/util/func_refact.pl	2766	2885	
==>}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return list of newly selected functions
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2311	2429	
==>y($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2311	2429	
==>y($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2311	2429	
==>y($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6138	6236	
==>1]->visual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp::Parser::__obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9383	9479	
==>turn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9383	9479	
==>turn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9383	9479	
==>turn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificati <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2460	2557	
==>ing;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contains <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2460	2557	
==>ing;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contains <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1613	1708	
==>ctive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1613	1708	
==>ctive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4746	4895	
==>x:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4746	4895	
==>x:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	442	547	
==>ngle quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital A <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	442	547	
==>ngle quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3356	3457	
==>turn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3356	3457	
==>turn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3356	3457	
==>turn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_e <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4683	4782	
==>win support for pugs still depends on the .msi
   version of GHC and does not provide POSIX features <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2756	2907	
==>n it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if the metadir doesn't exist yet, this is a 'clean <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9983	10106	
==>Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9983	10106	
==>Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9983	10106	
==>Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH() <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10723	10825	
==>g the Regex

You can get the regex back from the parser with the visual() method:

  my $rx = $parser-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21098	21280	
==>l->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44022	44187	
==>l->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatche <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14787	14888	
==>ile::Spec->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16841	16932	
==>rnals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16841	16932	
==>rnals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16841	16932	
==>rnals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2239	2350	
==>e "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2239	2350	
==>e "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2239	2350	
==>e "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	401	511	
==>de()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_children(
        Tree. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2669	2770	
==>r_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workarou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2669	2770	
==>r_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workarou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2669	2770	
==>r_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workarou <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14921	15079	
==>onnected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14921	15079	
==>onnected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1751	1871	
==>nature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1814	1929	
==>::Map;
    use base qw/Blondie::Map Blondie::Node/;
}

{
    package Blondie::Thunk;
    use base 'Blondie::Node::Un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14394	14489	
==>xistent group

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18263	18355	
==>+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18263	18355	
==>+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18263	18355	
==>+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7186	7339	
==>my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7186	7339	
==>my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7186	7339	
==>my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	662	847	
==>NT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	662	847	
==>NT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	662	847	
==>NT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8666	8764	
==>em join

 multi Array::join (@values,   Str $delimiter --> Str )
 multi  List::join (Str $delimiter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17496	17626	
==>ned $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17496	17626	
==>ned $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17496	17626	
==>ned $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the disp <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19890	20017	
==>]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp
    .local int padarray
    padarray = pad["isarray"]
    pad[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7730	7835	
==>_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7730	7835	
==>_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7730	7835	
==>_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @class <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6597	6704	
==>kell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $1 >= 6 and $2 >= 4);

    if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1246	1349	
==>t::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1246	1349	
==>t::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1246	1349	
==>t::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5216	5349	
==>y this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5216	5349	
==>y this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4288	4385	
==>aptures as match objects.

=head2 %{}

When used as a hash reference, the match object returns nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4288	4385	
==>aptures as match objects.

=head2 %{}

When used as a hash reference, the match object returns nam <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3684	3781	
==>overloaded -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25682	25775	
==>enamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys being <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30234	30327	
==>enamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys being <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29200	29293	
==>enamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys being <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7497	7605	
==>say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7497	7605	
==>say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12428	12547	
==>t      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12428	12547	
==>t      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($ev <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	358	456	
==>ructors should emit error messages if there are unknown parameters
    * Lazy lists are not impleme <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	358	456	
==>ructors should emit error messages if there are unknown parameters
    * Lazy lists are not impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2361	2459	
==>et = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2361	2459	
==>et = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2361	2459	
==>et = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3346	3437	
==>uilder::Test class represents a single test within the
Test::Builder framework. The class it <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3346	3437	
==>uilder::Test class represents a single test within the
Test::Builder framework. The class it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5543	5634	
==>uilder::Test class represents a single test within the
Test::Builder framework. The class it <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19454	19551	
==>able.

The intended interface and use of this class in Perl programs is similar to
the intended us <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24006	24103	
==>able.

The intended interface and use of this class in Perl programs is similar to
the intended us <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22522	22619	
==>able.

The intended interface and use of this class in Perl programs is similar to
the intended us <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	85	180	
==>Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9840	9944	
==>}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9840	9944	
==>}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9840	9944	
==>}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1483	1579	
==>ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are defined

=head1 DESCRIPTION

These AD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3914	4085	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3914	4085	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3914	4085	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	367	478	
==>odule $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18712	18844	
==>{
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18712	18844	
==>{
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18712	18844	
==>{
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatc <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7609	7715	
==>unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $e <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2094	2226	
==>ens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumpe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	811	922	
==>UPER::new();
    $obj->mk_accessors( qw[installations] );
    
    $obj->installations( \@inst );
    
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13565	13666	
==>ler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7773	7874	
==>ler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => al <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6505	6611	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5635	5741	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6505	6611	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5635	5741	
==>t {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.pr <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3055	3166	
==>n at
      http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.config.

Available options and defaults:
  --kernel <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1688	1787	
==>d, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1746	1845	
==>d, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5163	5263	
==>'$tail' not found.\n";
-f $rev  or die "error: file '$rev' not found.\n";
-f $mid  or die "error: fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	102	192	
==>::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	102	192	
==>::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	102	192	
==>::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	339	445	
==>p { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	339	445	
==>p { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	339	445	
==>p { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16601	16711	
==>>add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13022	13132	
==>>add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	580	708	
==>03 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	580	708	
==>03 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	99	196	
==>:Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    package Blondie::Ba <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27439	27534	
==>ts - objects for Perl 5 regexes

=head1 DESCRIPTION

This module contains the object definitions <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1022	1210	
==>new( 
                            file => File::Spec->catfile( 
                                $dir, $config->jib_dir, $config->meta_file ) 
                        ) or return;

        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4206	4309	
==>ttr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4206	4309	
==>ttr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4206	4309	
==>ttr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::o <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5837	5957	
==>o->raw();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\A' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4392	4503	
==>})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4392	4503	
==>})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4392	4503	
==>})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5984	6087	
==>k>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5984	6087	
==>k>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7946	8033	
==>ze($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7946	8033	
==>ze($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @c <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	330	435	
==>e;  # for slurpy/item types

# On the other hand, we could actually make it a real junctive type.

type Cx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5789	5929	
==>dle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5789	5929	
==>dle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5789	5929	
==>dle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7585	7689	
==>@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7882	7989	
==>$neg, $how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2187	2283	
==>ee C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succee <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2187	2283	
==>ee C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succee <==
4	/Users/nnunley/pugs/util/func_refact.pl	2941	3041	
==>$total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1113	1205	
==>PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1113	1205	
==>PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1113	1205	
==>PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17633	17729	
==>tr
my $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t => type::operator::nullary->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2341	2434	
==>r thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2341	2434	
==>r thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2341	2434	
==>r thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.reference <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11311	11451	
==>[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27952	28088	
==>ems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27952	28088	
==>ems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27952	28088	
==>ems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->per <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16822	16970	
==>on:

  passing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6472	6568	
==>rom_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6472	6568	
==>rom_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6472	6568	
==>rom_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5364	5467	
==>plit (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5364	5467	
==>plit (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5364	5467	
==>plit (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	297	395	
==>,
		)
	)
}

sub mk_constructors {
    foreach my $class (@{ Class::Inspector->subclasses("Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4042	4144	
==>{
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4042	4144	
==>{
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4042	4144	
==>{
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|J <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1995	2089	
==>tree p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8504	8605	
==>ating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# dept <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8504	8605	
==>ating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# dept <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1377	1476	
==>_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1377	1476	
==>_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7359	7452	
==>h, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7359	7452	
==>h, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7359	7452	
==>h, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1052	1154	
==>coro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1052	1154	
==>coro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17502	17592	
==>setta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17502	17592	
==>setta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	957	1066	
==>package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter:: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	957	1066	
==>package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	478	571	
==>ommon interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are intercha <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	478	571	
==>ommon interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are intercha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2758	2866	
==>ore( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2758	2866	
==>ore( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2758	2866	
==>ore( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ti <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6432	6518	
==>{ &::hlp_stmt;})');
my $x5 = def_stmt_prim('bs_infix_decl','\s*multi\s+(infix:<(.+?)>)\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5666	5771	
==>t0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5128	5228	
==>ri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "g <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	123	220	
==>$class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	123	220	
==>$class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17130	17254	
==>^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13551	13675	
==>^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->ca <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13407	13506	
==>nctions is a way
to provide a comment that refers to another file or test which must be
made to pass <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13465	13564	
==>nctions is a way
to provide a comment that refers to another file or test which must be
made to pass <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	777	950	
==>und for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	777	950	
==>und for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8691	8779	
==>el::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8691	8779	
==>el::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14912	15035	
==>to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14912	15035	
==>to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14912	15035	
==>to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13270	13372	
==>data";
  eval $loc;
  warn "*** Unfortunately $path will not be available in the index (eval $loc faile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2202	2312	
==>"\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2202	2312	
==>"\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2202	2312	
==>"\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4802	4941	
==>_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4802	4941	
==>_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{st <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1496	1612	
==>header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1496	1612	
==>header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9810	9944	
==>key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9810	9944	
==>key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9810	9944	
==>key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => su <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13349	13458	
==>thunk);

    #warn "applying @params to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub reduce_thu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11213	11319	
==>y, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11213	11319	
==>y, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1568	1704	
==>.100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abor <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1568	1704	
==>.100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abor <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15317	15417	
==>Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15317	15417	
==>Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8390	8504	
==>mmit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8390	8504	
==>mmit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3202	3295	
==>&Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3202	3295	
==>&Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1222	1325	
==>ail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1233	1336	
==>ail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9991	10088	
==>t the moment the user tries to set the input, and input that
fails immediate evaluation will not b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9991	10088	
==>t the moment the user tries to set the input, and input that
fails immediate evaluation will not b <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1565	1692	
==>) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2509	2630	
==>{
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2509	2630	
==>{
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2509	2630	
==>{
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2292	2483	
==>("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_typ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2292	2483	
==>("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_typ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11426	11523	
==>`

Returns only the elements in this recurrence that are also in the given recurrence.

- `differe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11426	11523	
==>`

Returns only the elements in this recurrence that are also in the given recurrence.

- `differe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5455	5559	
==>kip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_conte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5455	5559	
==>kip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_conte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4674	4772	
==>ith any such syntactic shenanigans, the declaration must be visible
    in the lexical scope to hav <==
4	/Users/nnunley/pugs/util/package-osx.pl	6451	6539	
==>cal/man/man3/Perl6::Overview::Rule.3
        /usr/local/man/man3/Perl6::Overview::Rule.3p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5684	5779	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4814	4909	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5684	5779	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4814	4909	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) retur <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	635	751	
==>t;
		bless {@_}, $class;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5532	5635	
==>IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5532	5635	
==>IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5532	5635	
==>IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of v <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	545	682	
==>,
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	545	682	
==>,
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1148	1238	
==>ext { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1148	1238	
==>ext { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::C <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13387	13487	
==>er to most of the functions is a way
to provide a comment that refers to another file or test which m <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13445	13545	
==>er to most of the functions is a way
to provide a comment that refers to another file or test which m <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	820	915	
==>r API operates at the byte level, not the character level, so different 
character encodings may <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	820	915	
==>r API operates at the byte level, not the character level, so different 
character encodings may <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16234	16330	
==>f if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16234	16330	
==>f if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16234	16330	
==>f if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9093	9192	
==>$str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9093	9192	
==>$str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9093	9192	
==>$str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($st <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24963	25055	
==>T

C<&runtests> is exported by Test::Harness by default.

C<$verbose>, C<$switches> and C<$de <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17191	17286	
==>r package or application says that it uses
Locale::KeyedText, that is a terse way of saying that <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17191	17286	
==>r package or application says that it uses
Locale::KeyedText, that is a terse way of saying that <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2022	2114	
==>th C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2111	2203	
==>th C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1995	2092	
==>d5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The submitted smoke was already subm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2513	2678	
==>IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4956	5058	
==>ginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4956	5058	
==>ginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4956	5058	
==>ginal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14837	14968	
==>[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14831	14962	
==>[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "< <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12481	12580	
==>oth types of spans.

- Discrete span

This is used to represent ranges of things that can be counted <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12481	12580	
==>oth types of spans.

- Discrete span

This is used to represent ranges of things that can be counted <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3925	4044	
==>ss::Events::Event::Named {
    has $.name;

    method new ($.name, *@args) {
        super *@args;
    }
}

class Class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5849	5956	
==>$stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Reg <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3450	3549	
==>tself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3450	3549	
==>tself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5015	5148	
==>start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unle <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5015	5148	
==>start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unle <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7493	7594	
==>{
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) retu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7493	7594	
==>{
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) retu <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4223	4341	
==>lt{ok} = 0;
        }

        my $pass = $result{ok};
        $result{type} = 'todo' if $self->{todo}{$result{number}} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6123	6222	
==>ge level version of OUTER::?

Either way, I think it might be useful to have this if for nothing oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6123	6222	
==>ge level version of OUTER::?

Either way, I think it might be useful to have this if for nothing oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6123	6222	
==>ge level version of OUTER::?

Either way, I think it might be useful to have this if for nothing oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3993	4148	
==>l')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3993	4148	
==>l')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3993	4148	
==>l')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22408	22507	
==>'o' flags now evoke "Useless ..." warnings when used
in flag and non-capturing group constructs.

=b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4758	4873	
==>s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4758	4873	
==>s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $cha <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6304	6417	
==>return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6304	6417	
==>return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5243	5369	
==>.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8720	8846	
==>.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7740	7866	
==>.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16588	16690	
==>bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9458	9563	
==>ose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23871	23968	
==>> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23871	23968	
==>> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosett <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30440	30535	
==>t.  This is used to dive into the node's children
when using a walker (see L<Regexp::Parser/"Wal <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1906	2067	
==>ults, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # an <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1906	2067	
==>ults, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # an <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17517	17611	
==>LE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
stan <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17517	17611	
==>LE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
stan <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	524	622	
==>'../lib';

# Don't interfere with the taintedness of %ENV, this could perturbate tests
$ENV{PERL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	327	423	
==>he rational soul, really concreate and practical 
# things like Object, Package and Module. It wa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	327	423	
==>he rational soul, really concreate and practical 
# things like Object, Package and Module. It wa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	327	423	
==>he rational soul, really concreate and practical 
# things like Object, Package and Module. It wa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8339	8462	
==>e) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8339	8462	
==>e) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3500	3598	
==>q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3500	3598	
==>q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>' <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23424	23532	
==>failed ($$@) {
    my($max,$skipped,@failed) = @_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$seen{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6306	6403	
==>al things won't work any longer, as all the standard
# operators are overloaded with calls to JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6306	6403	
==>al things won't work any longer, as all the standard
# operators are overloaded with calls to JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6306	6403	
==>al things won't work any longer, as all the standard
# operators are overloaded with calls to JS:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1372	1502	
==>D') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1372	1502	
==>D') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1372	1502	
==>D') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4181	4285	
==>return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . an <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5078	5182	
==>return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . an <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4181	4285	
==>return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . an <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5078	5182	
==>return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7431	7537	
==>my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7431	7537	
==>my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7431	7537	
==>my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $de <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1162	1256	
==>syntax, only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37320	37413	
==>as an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41869	41962	
==>as an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	439	531	
==>s

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Up <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	439	531	
==>s

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Up <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2834	2928	
==>ns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2834	2928	
==>ns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $o <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	699	803	
==>blic attributes, which are actually just accessor methods
for variables.

=item *

unbound private attrib <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36989	37085	
==>gs, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41538	41634	
==>gs, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41161	41257	
==>gs, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	313	435	
==>x[find root-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print "C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19548	19638	
==>[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19548	19638	
==>[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19548	19638	
==>[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3369	3527	
==>>{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5582	5713	
==>to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5582	5713	
==>to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5582	5713	
==>to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9119	9218	
==>ing deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9119	9218	
==>ing deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34852	34949	
==>a Translator object does not permit changes to its attributes;
they must all be set when the objec <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34852	34949	
==>a Translator object does not permit changes to its attributes;
they must all be set when the objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5042	5166	
==>ECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5042	5166	
==>ECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5042	5166	
==>ECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10415	10588	
==>( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13892	14065	
==>( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12753	12893	
==>n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23672	23772	
==>True or
False, but once it has a value of False, it can not be further changed;
this class defaults i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28224	28324	
==>True or
False, but once it has a value of False, it can not be further changed;
this class defaults i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27037	27137	
==>True or
False, but once it has a value of False, it can not be further changed;
this class defaults i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11969	12085	
==>> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11969	12085	
==>> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11969	12085	
==>> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5455	5548	
==>ling metaclass method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5841	5937	
==>t = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	510	606	
==>bject or something like that.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5841	5937	
==>t = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5841	5937	
==>t = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1120	1278	
==>lass);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( S <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1120	1278	
==>lass);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37659	37756	
==>y! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37659	37756	
==>y! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1581	1681	
==>lementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1581	1681	
==>lementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1581	1681	
==>lementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5138	5232	
==>ser_base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6891	6998	
==>s MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6891	6998	
==>s MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6891	6998	
==>s MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XX <==
4	/Users/nnunley/pugs/util/package-osx.pl	8391	8488	
==>ial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6773	6882	
==>esult ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6773	6882	
==>esult ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10634	10731	
==>te several fields with a single invocation.

The $value argument may be a plain string or a refere <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10634	10731	
==>te several fields with a single invocation.

The $value argument may be a plain string or a refere <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31000	31142	
==>nd('add_method' => (
    # method label
        symbol->new('_make_dispatcher_iterator'),
    # method body
        method->new(
            $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2794	2889	
==>style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=he <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2794	2889	
==>style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=he <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3141	3236	
==>style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7376	7487	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7376	7487	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7376	7487	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::C <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	253	351	
==>ile::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	253	351	
==>ile::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12762	12858	
==>head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subs <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12762	12858	
==>head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subs <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1971	2075	
==>r) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1971	2075	
==>r) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5913	6011	
==>se only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromati <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5913	6011	
==>se only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromati <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35021	35135	
==>ft;
                       ($e->get('$return') == $bit::FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	943	1041	
==>and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying aro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	943	1041	
==>and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying aro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	943	1041	
==>and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying aro <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4175	4287	
==>erpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # gra <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4175	4287	
==>erpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # gra <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4132	4242	
==>erpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # gra <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4132	4242	
==>erpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # gra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21677	21775	
==>line>

The original line received from the server (unmodified).

=item C<server>

The server the li <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20558	20656	
==>line>

The original line received from the server (unmodified).

=item C<server>

The server the li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21677	21775	
==>line>

The original line received from the server (unmodified).

=item C<server>

The server the li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20558	20656	
==>line>

The original line received from the server (unmodified).

=item C<server>

The server the li <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1237	1348	
==>f working soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expressed as
#     < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23139	23233	
==>the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27691	27785	
==>the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26468	26562	
==>the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24998	25106	
==>diately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23762	23870	
==>diately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24998	25106	
==>diately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23762	23870	
==>diately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F< <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	531	659	
==>ll it.
  my method step () {
    return unless @:events;

    my $callback = shift @:events;
    return $callback();
  }

  metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3779	3897	
==>efined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3779	3897	
==>efined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3779	3897	
==>efined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4924	5047	
==>..
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5146	5269	
==>..
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
su <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1325	1424	
==>onds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1325	1424	
==>onds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5802	5909	
==>er_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4932	5039	
==>er_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5802	5909	
==>er_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4932	5039	
==>er_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4925	5047	
==>or ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4925	5047	
==>or ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4925	5047	
==>or ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10851	11003	
==>f: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10851	11003	
==>f: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Sp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5746	5897	
==>f: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5746	5897	
==>f: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19006	19104	
==>alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the string "POSIX".  POSIX cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5209	5297	
==>warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5209	5297	
==>warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5209	5297	
==>warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2682	2807	
==>$self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- aut <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2682	2807	
==>$self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- aut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2897	2998	
==>ime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshn <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2897	2998	
==>ime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshn <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5088	5201	
==>nt_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5088	5201	
==>nt_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SE <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9	113	
==>I-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9	113	
==>I-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5064	5175	
==>-> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5064	5175	
==>-> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5064	5175	
==>-> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS:: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23712	23795	
==>eplace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- !.
re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19911	20044	
==>is is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors durin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19911	20044	
==>is is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors durin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19911	20044	
==>is is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors durin <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2326	2427	
==>llisecond returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1471	1596	
==>m_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1471	1596	
==>m_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5469	5561	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5469	5561	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event< <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9007	9121	
==>universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9007	9121	
==>universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18383	18476	
==>ged locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta sh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18383	18476	
==>ged locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta sh <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2496	2627	
==>= $Repodir . '/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	21	132	
==>geLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	21	132	
==>geLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	21	132	
==>geLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21694	21794	
==>al line received from the server (unmodified).

=item C<server>

The server the line was sent from. T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20575	20675	
==>al line received from the server (unmodified).

=item C<server>

The server the line was sent from. T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21694	21794	
==>al line received from the server (unmodified).

=item C<server>

The server the line was sent from. T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20575	20675	
==>al line received from the server (unmodified).

=item C<server>

The server the line was sent from. T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5887	5988	
==>my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5887	5988	
==>my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5887	5988	
==>my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	76	177	
==>t;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	76	177	
==>t;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	76	177	
==>t;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit" <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1178	1272	
==>ment::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module Getopt::Emit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3536	3675	
==>by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            't <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3536	3675	
==>by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            't <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3536	3675	
==>by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            't <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	247	367	
==>- $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfprime. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2356	2475	
==>:$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2414	2533	
==>:$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok. <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	824	920	
==>ument, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	824	920	
==>ument, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1309	1397	
==>pace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1309	1397	
==>pace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1309	1397	
==>pace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3860	4000	
==>ned( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4872	5009	
==>ned( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3740	3877	
==>ned( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4872	5009	
==>ned( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37939	38035	
==>tuple of each other source relation, then where each member of a
tuple pair has attribute names i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42488	42584	
==>tuple of each other source relation, then where each member of a
tuple pair has attribute names i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42138	42234	
==>tuple of each other source relation, then where each member of a
tuple pair has attribute names i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15280	15374	
==>1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the las <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6731	6843	
==>$pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1173	1279	
==>$pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1173	1279	
==>$pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1173	1279	
==>$pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8132	8226	
==>st_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8190	8284	
==>st_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18277	18370	
==>rst, the source module is preprocessed to hide heredocs, since the content
inside heredocs can <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18277	18370	
==>rst, the source module is preprocessed to hide heredocs, since the content
inside heredocs can <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5067	5174	
==>!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<us <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5067	5174	
==>!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<us <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21574	21685	
==>w for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20455	20566	
==>w for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21574	21685	
==>w for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20455	20566	
==>w for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

Th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3908	4078	
==>y ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4372	4542	
==>y ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18012	18107	
==>asily in its conditional logic, using a simple 'equals', and then the
application can "do the ri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18012	18107	
==>asily in its conditional logic, using a simple 'equals', and then the
application can "do the ri <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3950	4062	
==>nal ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3950	4062	
==>nal ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17187	17282	
==>etta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17187	17282	
==>etta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4645	4748	
==>mts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4645	4748	
==>mts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4645	4748	
==>mts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3906	4067	
==>art_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.em <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3906	4067	
==>art_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5717	5840	
==>am[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5535	5655	
==>am[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13225	13371	
==>$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13219	13365	
==>$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7081	7173	
==>ocessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7081	7173	
==>ocessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8511	8614	
==>n.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8511	8614	
==>n.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( sp <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	423	521	
==>*infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	423	521	
==>*infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14217	14333	
==>s from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14217	14333	
==>s from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9662	9774	
==>eight = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9662	9774	
==>eight = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2853	3000	
==>f $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2853	3000	
==>f $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4462	4556	
==>::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4462	4556	
==>::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8558	8671	
==>params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8558	8671	
==>params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8558	8671	
==>params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	83	171	
==>:Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs::Grammar::Operato <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2108	2225	
==>::Path! This module should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9667	9834	
==>i, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9667	9834	
==>i, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9667	9834	
==>i, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5550	5645	
==>ta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex')- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2247	2345	
==>xtracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	790	887	
==>xtracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2158	2255	
==>xtracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	790	887	
==>xtracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2083	2223	
==>{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Config{recurse};
            } else { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3976	4081	
==>) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3976	4081	
==>) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20704	20808	
==>ioctl link listen 
# lstat mkdir open opendir pipe print printf read readdir readline
# readlink readpipe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1444	1560	
==>xp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4245	4339	
==>ssues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4245	4339	
==>ssues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4245	4339	
==>ssues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10965	11077	
==>::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10965	11077	
==>::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10965	11077	
==>::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	198	301	
==>n/lrep*
# ***************

use strict;
use warnings;
no warnings 'redefine';

use FindBin '$Bin';
use li <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1055	1233	
==>s} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1055	1233	
==>s} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7403	7532	
==>$irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rd <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7403	7532	
==>$irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rd <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	502	607	
==>ift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2174	2332	
==>ds => { 
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $params{'$.number'};
            _ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27461	27555	
==><$attrs> provide the names of the new attributes, and
the values provide values applied to each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32013	32107	
==><$attrs> provide the names of the new attributes, and
the values provide values applied to each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31096	31190	
==><$attrs> provide the names of the new attributes, and
the values provide values applied to each <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	367	526	
==>rom_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_man <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	367	526	
==>rom_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_man <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	367	526	
==>rom_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_man <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	123	220	
==>mpiled and
# applied) to permit alternate regexp engines to be used without
# requiring changes to <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3302	3396	
==>raft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( --> Scala <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3076	3249	
==>ng;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3076	3249	
==>ng;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3076	3249	
==>ng;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6196	6293	
==>_precendence_list');

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16535	16634	
==>UB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::asso <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16535	16634	
==>UB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::asso <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16535	16634	
==>UB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::asso <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5127	5231	
==>es;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5127	5231	
==>es;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5127	5231	
==>es;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum + <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2848	2946	
==>f->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2848	2946	
==>f->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2848	2946	
==>f->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18732	18855	
==>ble::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18732	18855	
==>ble::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18732	18855	
==>ble::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1489	1591	
==>e>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    m <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2662	2805	
==>,
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	878	978	
==>];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actual <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	878	978	
==>];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actual <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	878	978	
==>];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actual <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2983	3115	
==>ist"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2983	3115	
==>ist"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19023	19118	
==>o be used with user text that is
associated with hard-coded program conditions.  In other words, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19023	19118	
==>o be used with user text that is
associated with hard-coded program conditions.  In other words, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2390	2522	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7484	7616	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2390	2522	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7484	7616	
==>LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6336	6435	
==>el2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_u <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8404	8503	
==>el2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_u <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6336	6435	
==>el2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_u <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8404	8503	
==>el2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11768	11865	
==>classes
and roles can be polymorphic to one another. 

Because instances of class all conform to t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33981	34078	
==>ans "match I<y> if I<x> can be matched
at the same location".  Therefore it would be represented i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11768	11865	
==>classes
and roles can be polymorphic to one another. 

Because instances of class all conform to t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11768	11865	
==>classes
and roles can be polymorphic to one another. 

Because instances of class all conform to t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1420	1517	
==>2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1420	1517	
==>2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1420	1517	
==>2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23874	23967	
==>r::arrow->new(
		type::variable::free->new,
		my $b = type::variable::free->new,
	);
	is($type <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10350	10454	
==>S

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10350	10454	
==>S

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41133	41227	
==>e, that supports embedding of Template modules into the same files as
program code, rather than <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41133	41227	
==>e, that supports embedding of Template modules into the same files as
program code, rather than <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6199	6320	
==>tf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6199	6320	
==>tf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1969	2068	
==>undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1969	2068	
==>undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1969	2068	
==>undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contai <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	638	733	
==>::generic_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::Dupli <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9765	9870	
==>bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4018	4116	
==>{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4018	4116	
==>{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4018	4116	
==>{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13265	13416	
==>>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13265	13416	
==>>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13265	13416	
==>>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	974	1085	
==>= shift;

    # FIXME - in the future the compiler might allow adding globals
    # ought to check if the runtim <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1949	2079	
==>on ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "pu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1949	2079	
==>on ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "pu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13217	13339	
==>on.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13217	13339	
==>on.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	277	422	
==>= %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	277	422	
==>= %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method pa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	217	311	
==>suppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from...

= <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	217	311	
==>suppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from...

= <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3777	3869	
==>r defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3777	3869	
==>r defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5974	6066	
==>r defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5988	6081	
==>: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$se <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1463	1565	
==>e run.

The interface is currently incomplete.  I<Please> contact the author
if you'd like a feature ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4922	5018	
==>result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4922	5018	
==>result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4922	5018	
==>result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	501	616	
==>ate a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### copy all the stuff over to an <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	272	376	
==>elf = shift;
    my $program = shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set::Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	476	578	
==>he core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	476	578	
==>he core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	476	578	
==>he core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3493	3616	
==>ers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3493	3616	
==>ers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3493	3616	
==>ers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9364	9501	
==>ontext->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $blo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9364	9501	
==>ontext->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1603	1698	
==>em ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1603	1698	
==>em ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3581	3717	
==>ned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3593	3729	
==>ned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9038	9163	
==>ss = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $con <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9038	9163	
==>ss = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1783	1916	
==>re_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	314	414	
==>m containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	314	414	
==>m containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	314	414	
==>m containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with " <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7228	7459	
==>[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defin <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7228	7459	
==>[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1386	1490	
==>',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1386	1490	
==>',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Se <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4067	4335	
==>qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespac <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1794	1899	
==>lice (@a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $len <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2053	2150	
==>s a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L< <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2053	2150	
==>s a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L< <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1059	1176	
==>:mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1026	1143	
==>:mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7423	7524	
==>her order operators take a list of match operators, and return a new 

match operator.



A ruleop() f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7170	7268	
==>her order operators take a list of match operators, and return a new 
match operator.

A ruleop() f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1372	1474	
==>er.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1372	1474	
==>er.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @hea <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2334	2430	
==>lity.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pu <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2334	2430	
==>lity.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40366	40461	
==>les and the date of any
changes, in addition to preserving this original copyright notice and ot <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25890	25985	
==>les and the date of any changes, in
addition to preserving this original copyright notice and ot <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40366	40461	
==>les and the date of any
changes, in addition to preserving this original copyright notice and ot <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25890	25985	
==>les and the date of any changes, in
addition to preserving this original copyright notice and ot <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4736	4944	
==>$my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $scr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4000	4168	
==>$my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $scr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13416	13563	
==>$my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $scr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	674	783	
==>r> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	674	783	
==>r> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	674	783	
==>r> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8532	8632	
==>[0],
				type => Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4023	4120	
==>"do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4023	4120	
==>"do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4023	4120	
==>"do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18753	18850	
==>gin phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18753	18850	
==>gin phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3295	3388	
==>arameters

The parameters of the request are accessible through the HTTP::Query object that
is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3295	3388	
==>arameters

The parameters of the request are accessible through the HTTP::Query object that
is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14532	14645	
==>opic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $rea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14532	14645	
==>opic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $rea <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2416	2512	
==>rns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except th <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2416	2512	
==>rns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2657	2769	
==>ew_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2657	2769	
==>ew_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2657	2769	
==>ew_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3057	3153	
==>>get_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4162	4263	
==>hod is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4162	4263	
==>hod is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	399	499	
==>hod is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	399	499	
==>hod is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30095	30189	
==>ontains the user-readable message text associated with the
Message; this user string may also c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7953	8047	
==>lee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30095	30189	
==>ontains the user-readable message text associated with the
Message; this user string may also c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7953	8047	
==>lee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %use <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	316	487	
==>r ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	316	487	
==>r ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13350	13444	
==>nterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash m <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13350	13444	
==>nterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3746	3949	
==>od_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3746	3949	
==>od_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3746	3949	
==>od_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8713	8829	
==>$placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self = shift;
		my $nod <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2195	2322	
==>= (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22032	22123	
==>_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22032	22123	
==>_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22032	22123	
==>_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1163	1322	
==>_[1] ] }
        |   list_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_righ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3995	4100	
==>$self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3995	4100	
==>$self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3995	4100	
==>$self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11556	11746	
==>> { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11556	11746	
==>> { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11556	11746	
==>> { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1051	1150	
==>NGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23009	23242	
==>x" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23288	23521	
==>x" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23915	24011	
==>ommand shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of extern <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23915	24011	
==>ommand shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of extern <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3563	3763	
==>e = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3563	3763	
==>e = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %e <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8292	8421	
==>ere4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8292	8421	
==>ere4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1147	1263	
==>nts is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1147	1263	
==>nts is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25056	25157	
==>slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/lo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23820	23921	
==>slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25056	25157	
==>slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23820	23921	
==>slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/lo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31358	31449	
==>g anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35908	35999	
==>g anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35126	35217	
==>g anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2833	2926	
==>set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrenc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4702	4795	
==>set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2833	2926	
==>set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4702	4795	
==>set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrenc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2841	2948	
==>r $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_f <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2841	2948	
==>r $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4365	4472	
==>r $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_f <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	738	838	
==>@perl.org>.
.
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13947	14048	
==>a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $cl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13947	14048	
==>a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17360	17458	
==>IVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17360	17458	
==>IVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2598	2705	
==>.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5801	5908	
==>.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2598	2705	
==>.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5801	5908	
==>.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6499	6596	
==>};
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6499	6596	
==>};
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6499	6596	
==>};
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16521	16610	
==>et_modifiers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3399	3714	
==>xpires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3399	3714	
==>xpires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_// <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2932	3085	
==>ch: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2836	2985	
==>ch: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13635	13731	
==>he formula cannot be satisfied within a 
reasonable range of values.

You should consider using a <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13635	13731	
==>he formula cannot be satisfied within a 
reasonable range of values.

You should consider using a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22617	22709	
==>econds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22617	22709	
==>econds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2057	2165	
==>$.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!q <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2057	2165	
==>$.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!q <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11830	11928	
==>d value for the specified header field.  Previous values
for the same field are retained.

As for t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11830	11928	
==>d value for the specified header field.  Previous values
for the same field are retained.

As for t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22164	22260	
==>/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21045	21141	
==>/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22164	22260	
==>/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21045	21141	
==>/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	301	416	
==>ift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	301	416	
==>ift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	301	416	
==>ift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	662	769	
==>($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my $in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18255	18383	
==>($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21514	21642	
==>($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41520	41648	
==>($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44421	44549	
==>($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%p <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	941	1052	
==>}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19684	19778	
==>thod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19684	19778	
==>thod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19684	19778	
==>thod($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3394	3682	
==>ush @t => 'q' . $t;
            }      
            
            # classes             
            elsif (exists $__classes__{$t}) {               
                my $message = pop @t;
                @t = ($t . $message);                
            }
            
            # misc ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7280	7411	
==>::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7280	7411	
==>::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7280	7411	
==>::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10392	10521	
==>alue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10392	10521	
==>alue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10392	10521	
==>alue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4320	4415	
==>var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], '$<v <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1465	1654	
==>aping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1465	1654	
==>aping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1170	1272	
==>efix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1170	1272	
==>efix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13765	13886	
==>et2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13765	13886	
==>et2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2651	2749	
==>e::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2651	2749	
==>e::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	613	718	
==>ir = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	613	718	
==>ir = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	613	718	
==>ir = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation wi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25623	25718	
==>x> value is a reference, and thus why I'm using
C<${&Rx}> everywhere, it's because an lvalued su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3630	3734	
==>han}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<ob <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3630	3734	
==>han}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<ob <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16066	16168	
==>e and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16066	16168	
==>e and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14861	14969	
==>includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type o <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1543	1651	
==>nt|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1543	1651	
==>nt|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8742	8836	
==>_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2567	2661	
==>_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	281	392	
==>);

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	281	392	
==>);

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	281	392	
==>);

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8101	8249	
==>h) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8101	8249	
==>h) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8101	8249	
==>h) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7918	8062	
==>category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.parse> ... <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36844	36943	
==>zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41393	41492	
==>zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41016	41115	
==>zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a p <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	147	239	
==>omments (if it matches the supplied regex) or
no Smart::Comments before every fully qualified <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3767	3930	
==>rent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      % <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3767	3930	
==>rent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      % <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4298	4426	
==>is_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4298	4426	
==>is_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2570	2669	
==>e, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a- <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2570	2669	
==>e, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1562	1655	
==>::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1562	1655	
==>::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3828	3939	
==>20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3828	3939	
==>20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5352	5463	
==>20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCR <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22043	22144	
==><'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <Ca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6169	6269	
==>tten->new->reduce($node));
			$de_facto_type->set($expected_type);
			return $node;
		} else {
			war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1994	2089	
==>ell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1994	2089	
==>ell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1994	2089	
==>ell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9356	9448	
==>ew("int"),
			type::operator::nullary->new("int"),
		),
	),
	sub => type::operator::arrow->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5758	5848	
==>e.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5758	5848	
==>e.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5758	5848	
==>e.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3177	3279	
==>rl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tai <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3177	3279	
==>rl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tai <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2323	2421	
==>nite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous} <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2323	2421	
==>nite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	609	749	
==>ode->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_;
    return "node_" . $node- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3383	3504	
==>what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3383	3504	
==>what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3383	3504	
==>what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17028	17126	
==>_END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17028	17126	
==>_END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17028	17126	
==>_END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36647	36738	
==>?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	843	973	
==>$mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { p <==
4	/Users/nnunley/pugs/util/config_h.pl	760	861	
==>def PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PU <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3761	3852	
==>several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3761	3852	
==>several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	285	408	
==>>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	458	581	
==>>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	285	408	
==>>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	458	581	
==>>" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	970	1142	
==>of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	970	1142	
==>of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5062	5205	
==>elf.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5062	5205	
==>elf.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9145	9243	
==>[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9145	9243	
==>[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17359	17451	
==>urce filterish modules in a much more sane manner.
Module::Compile controls the compilation p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17359	17451	
==>urce filterish modules in a much more sane manner.
Module::Compile controls the compilation p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11485	11640	
==>ew(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12806	12961	
==>ew(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15236	15391	
==>ew(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13450	13666	
==>HOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13450	13666	
==>HOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13450	13666	
==>HOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # labe <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9443	9562	
==>) = $test->{pos} =~ /line (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4054	4184	
==>0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4054	4184	
==>0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4054	4184	
==>0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	422	537	
==>>{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16242	16351	
==>rig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16242	16351	
==>rig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5677	5777	
==>urn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iter <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5677	5777	
==>urn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1551	1661	
==>"Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1551	1661	
==>"Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1551	1661	
==>"Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) e <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3874	4137	
==>s<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpola <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3917	4180	
==>s<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpola <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3874	4137	
==>s<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpola <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3917	4180	
==>s<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpola <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1765	1876	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1765	1876	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1765	1876	
==>@ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14349	14447	
==>function.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 element list <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8581	8694	
==>set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} item <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7550	7663	
==>set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} item <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8581	8694	
==>set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} item <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7550	7663	
==>set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} item <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23839	23958	
==>EXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3171	3271	
==>) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3171	3271	
==>) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29026	29124	
==>EXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	27	143	
==>PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	27	143	
==>PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	27	143	
==>PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21120	21231	
==>t;defined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $loo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38929	39097	
==>tes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('g <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3757	3866	
==>ts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Sc <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3757	3866	
==>ts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Sc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	607	716	
==>ts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10211	10327	
==>d applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10211	10327	
==>d applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10211	10327	
==>d applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10031	10144	
==>$o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down into quant below. <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1726	1870	
==>ren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1726	1870	
==>ren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5159	5248	
==>e the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4979	5067	
==>e the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8305	8465	
==>, 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12254	12377	
==>, tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12254	12377	
==>, tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30851	30966	
==>t's expected to match!  It pops the
flag stack, and returns an object.

Finally, if you want to add a new POSIX char <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	899	1009	
==>de($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Path/$SID", :w);
    $fh. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1595	1721	
==>rray of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1595	1721	
==>rray of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	217	310	
==>al_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( star <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	217	310	
==>al_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( star <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3959	4119	
==>tr;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3959	4119	
==>tr;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1180	1295	
==>}
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1180	1295	
==>}
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5924	6036	
==>\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5924	6036	
==>\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5924	6036	
==>\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5234	5335	
==>$range is a fractional error.
# Here $range must be numeric, >= 0
# Non numeric ranges might be a usef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10324	10446	
==>start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10324	10446	
==>start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10324	10446	
==>start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ <==
4	/Users/nnunley/pugs/util/fixauthors.pl	482	585	
==>head;
print @a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12183	12317	
==>_";
        } else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4688	4792	
==>um::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4688	4792	
==>um::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4688	4792	
==>um::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1652	1743	
==>eta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1652	1743	
==>eta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1652	1743	
==>eta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:rol <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	445	603	
==>nt       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) { <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	445	603	
==>nt       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) { <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	469	595	
==>s earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The curr <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	469	595	
==>s earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The curr <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1621	1722	
==>Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1621	1722	
==>Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15992	16084	
==>reates and returns a new Rosetta::Model::Node object, that
lives in the Document object given <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15992	16084	
==>reates and returns a new Rosetta::Model::Node object, that
lives in the Document object given <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14932	15044	
==>$test) = @_;

    # We pulverize the line down into pieces in three parts.
    if( my($not, $num, $extra)    = $l <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2742	2844	
==>S

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2742	2844	
==>S

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4266	4368	
==>S

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $T <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8190	8335	
==>ks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &contin <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8190	8335	
==>ks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &contin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1208	1306	
==>h = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $sourc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1208	1306	
==>h = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $sourc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21759	21865	
==>The server the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20640	20746	
==>The server the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21759	21865	
==>The server the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20640	20746	
==>The server the line was sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

Th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3239	3338	
==>name (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not matc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6716	6815	
==>name (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not matc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20961	21057	
==>ims to bring this sort of functionality to Perl packages
or programs.  Your package or program ca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20961	21057	
==>ims to bring this sort of functionality to Perl packages
or programs.  Your package or program ca <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	522	632	
==>aller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selec <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	522	632	
==>aller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6301	6400	
==>shed' flag in the returned match, 

that makes it return until the start of the rule, which unsets t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6096	6194	
==>shed' flag in the returned match, 
that makes it return until the start of the rule, which unsets t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	527	648	
==>(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime paramet <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	527	648	
==>(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime paramet <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	23	127	
==>se v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.is <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	23	127	
==>se v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26004	26127	
==>ee, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser::flags;
  push @ISA, qw( R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	261	359	
==>{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	261	359	
==>{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	261	359	
==>{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4901	5019	
==>t;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4901	5019	
==>t;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	2	97	
==>lass Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

= <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	2	97	
==>lass Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3107	3226	
==>arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3107	3226	
==>arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3107	3226	
==>arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12019	12120	
==>e requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tree

If you wan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	47	147	
==>tive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimF <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	47	147	
==>tive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimF <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	47	147	
==>tive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimF <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3808	3920	
==>tch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'gl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3808	3920	
==>tch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'gl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3808	3920	
==>tch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'gl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6391	6487	
==>$f);
	my $code = code_for_code_CODE(name=>$name,kind=>$cls,params=>$argl,
				      body=>$body,l <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6244	6374	
==>!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6244	6374	
==>!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_bas <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22976	23068	
==>")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22976	23068	
==>")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	536	635	
==>lash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication i <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	536	635	
==>lash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6495	6590	
==>', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Ty <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6495	6590	
==>', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	753	883	
==>{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	753	883	
==>{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	753	883	
==>{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess " <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2452	2548	
==>trical? = 1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi Num::tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8657	8778	
==>umber
  {
      return +@:results + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan alread <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	591	688	
==>UTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	591	688	
==>UTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1147	1244	
==>UTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1961	2135	
==>\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1961	2135	
==>\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1961	2135	
==>\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !define <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1797	1923	
==>\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !define <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19484	19619	
==>_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15905	16040	
==>_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18930	19026	
==>ght
thing on the wire.

When setting the referrer, this method removes the fragment from the
give <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18930	19026	
==>ght
thing on the wire.

When setting the referrer, this method removes the fragment from the
give <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2103	2211	
==>st $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2103	2211	
==>st $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2103	2211	
==>st $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieabl <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14892	14984	
==>typically depends on what your current lexical context has
declared the "working unicode leve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2964	3072	
==>global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2964	3072	
==>global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2964	3072	
==>global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	326	431	
==>ft;
    return $class->no_match unless $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runtime::M <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10096	10251	
==>ting directories " . join(", ", map { "$_" } @dirs),
    ensure => sub { -d $_ or return for @dirs; 1 },
    using  => sub { utime undef, undef, $initrd_img <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3109	3202	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3109	3202	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3109	3202	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2219	2315	
==>code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2219	2315	
==>code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2219	2315	
==>code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	225	310	
==>alize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package(" <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1149	1260	
==>f.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1149	1260	
==>f.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1297	1407	
==>) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1297	1407	
==>) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9349	9476	
==>>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        cele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9349	9476	
==>>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        cele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9349	9476	
==>>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        cele <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	299	413	
==>xecute {
    my $self = shift;
    my $prog = shift;
    $self->reduce($prog);
}

sub can_reduce { 1 }

sub generic <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27385	27525	
==>=> (
    # method label
        symbol->new('_merge'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2905	3018	
==>f ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2905	3018	
==>f ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2905	3018	
==>f ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eige <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2524	2629	
==>b node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ide <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1136	1241	
==>b node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ide <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1837	1942	
==>b node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ide <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8486	8587	
==>o',
  '... still got the right return value from Foo singleton/class method');  
  
fails_ok { $Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7844	7949	
==>d = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7844	7949	
==>d = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7844	7949	
==>d = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classe <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	34	137	
==>e bei Perl 5

#=Bindung (dynamisch)
my $x = 'Just Another';
# $x wird nun zur Laufzeit an $y gebunden
my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16585	16709	
==>data,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $self;
    return $self;
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	42	139	
==>e strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	42	139	
==>e strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	42	139	
==>e strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10521	10630	
==>self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10138	10247	
==>self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	442	537	
==>1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conform <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	442	537	
==>1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conform <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	113	248	
==>e::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3168	3295	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a conven <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3168	3295	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a conven <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3168	3295	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a conven <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12846	12998	
==>>{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1962	2072	
==>ARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1962	2072	
==>ARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1962	2072	
==>ARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{C <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5204	5312	
==>the fully
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	39	136	
==>hing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	39	136	
==>hing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	39	136	
==>hing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1078	1222	
==>self->meta->package );
    
    ### XXX flesh out this format better
    {   my @files = eval {
            ### XXX CONFIG!!!!
            my $fi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13166	13320	
==>o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FA <==
4	/Users/nnunley/pugs/util/addauthors.pl	1557	1677	
==>^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4568	4686	
==>[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for target
            copy($candida <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4234	4342	
==>cc;
    return $S->object(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1506	1616	
==>$class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1506	1616	
==>$class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24016	24108	
==>a compile-time macro-based approach to substitute the user's preferred
language into the prog <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24016	24108	
==>a compile-time macro-based approach to substitute the user's preferred
language into the prog <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3889	4022	
==>his is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3889	4022	
==>his is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any. <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1531	1630	
==>k closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Par <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1531	1630	
==>k closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1405	1544	
==>= PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1405	1544	
==>= PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1405	1544	
==>= PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      re <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15759	15881	
==>y_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3349	3457	
==>a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3349	3457	
==>a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3349	3457	
==>a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8060	8216	
==>are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4420	4576	
==>are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5269	5425	
==>are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1689	1784	
==>.left) = { level($$) + 1 }
type::operator::binary: level($.right) = { level($$) }

type::operato <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24053	24209	
==>> [],
      down => 1,
      ifthen => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8750	8851	
==>param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8750	8851	
==>param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8750	8851	
==>param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13809	13950	
==>ription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13809	13950	
==>ription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13809	13950	
==>ription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	144	257	
==>d';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    return $self <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19478	19591	
==>nalyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14370	14452	
==>> ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14370	14452	
==>> ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14370	14452	
==>> ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3744	3913	
==>{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3884	4053	
==>{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	2	120	
==>e strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	2	120	
==>e strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20325	20440	
==>eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20325	20440	
==>eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20325	20440	
==>eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2539	2633	
==>state of this compiler implementation only provides a small sample of
Perl 6 syntax and semanti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	130	536	
==>.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	130	536	
==>.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

cla <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6516	6646	
==>,
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6516	6646	
==>,
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6517	6616	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5647	5746	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6517	6616	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5647	5746	
==>.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	318	453	
==>ss({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	318	453	
==>ss({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	318	453	
==>ss({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	763	897	
==>}' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        oth <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2019	2122	
==>ass->env_override($conf);
    $class->defaults($conf);
    return $conf;
}

sub env_override {
    my($c <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7334	7462	
==>modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -print0`;
  };
my $newest_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1472	1560	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1472	1560	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1472	1560	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1997	2095	
==>if($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1997	2095	
==>if($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1997	2095	
==>if($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16447	16538	
==>en it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16447	16538	
==>en it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16447	16538	
==>en it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6337	6439	
==>$subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6337	6439	
==>$subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6337	6439	
==>$subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1302	1414	
==>ssage( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1302	1414	
==>ssage( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5977	6070	
==>128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5977	6070	
==>128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13706	13817	
==>ttribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13706	13817	
==>ttribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13706	13817	
==>ttribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3004	3102	
==>splice(@array, @array.elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3114	3223	
==>them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3114	3223	
==>them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3114	3223	
==>them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3505	3621	
==>$build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3505	3621	
==>$build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3505	3621	
==>$build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1972	2079	
==>_native .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    return num->new(scalar(@{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13786	13916	
==>[ln -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Alternative->new_from_stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2626	2747	
==>";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2626	2747	
==>";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2626	2747	
==>";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3738	3838	
==>}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unle <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3738	3838	
==>}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unle <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4328	4428	
==>}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1301	1411	
==>n be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref($nodes) eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1648	1755	
==>n be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1255	1362	
==>n be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1648	1755	
==>n be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) eq <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10113	10265	
==>pe' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'pers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10113	10265	
==>pe' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'pers <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	567	666	
==>y"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	567	666	
==>y"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4502	4623	
==>if ($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure->do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3315	3416	
==>ix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3315	3416	
==>ix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3315	3416	
==>ix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means sto <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	85	190	
==>es the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	89	194	
==>es the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	85	190	
==>es the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	89	194	
==>es the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10519	10669	
==>b->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10519	10669	
==>b->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10519	10669	
==>b->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",", <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	74	175	
==>mme
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten defini <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8914	9043	
==>rev_');
        my $code = "Rul.new(:f(sub($str)\{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = [ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	501	596	
==>ckage to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	501	596	
==>ckage to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1903	2012	
==>gs->isa('list'))
        || confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6078	6184	
==>self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6078	6184	
==>self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6078	6184	
==>self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1455	1556	
==>(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1455	1556	
==>(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1455	1556	
==>(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5418	5517	
==>caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$call <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11245	11331	
==>st::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1703	1787	
==>st::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1703	1787	
==>st::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	500	597	
==>, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('op <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5813	5925	
==>::Rule->directory->in( $from ) ) {
            ### strip the leading dirs from the target so we don't get a silly <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1075	1169	
==>"_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1075	1169	
==>"_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1075	1169	
==>"_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_S <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1188	1285	
==>6>) disambiguates this case.

Types have a dispatch table; this is a collection of functions and
m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	621	730	
==>print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6139	6248	
==>print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	621	730	
==>print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6151	6260	
==>print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$mat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29804	29899	
==>orts having the new attributes having the same names as old attributes
that were wrapped, and it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34356	34451	
==>orts having the new attributes having the same names as old attributes
that were wrapped, and it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33520	33615	
==>orts having the new attributes having the same names as old attributes
that were wrapped, and it <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4686	4834	
==>=> 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTALLABLE,
        }
    };

    check($tmpl, \%args) or error(P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4429	4530	
==>));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4429	4530	
==>));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4429	4530	
==>));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2267	2373	
==>ed;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2267	2373	
==>ed;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2267	2373	
==>ed;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37426	37515	
==>'hash')));
$::Class->send('add_attribute', (symbol->new('%:attributes')      => attribute- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11789	11928	
==>ind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          back <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11789	11928	
==>ind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          back <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11789	11928	
==>ind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          back <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7840	7963	
==>t in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <' <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	872	1000	
==>class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks // <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	872	1000	
==>class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks // <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1636	1731	
==>hich can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1636	1731	
==>hich can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20620	20737	
==>e, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20620	20737	
==>e, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20620	20737	
==>e, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4149	4262	
==>gs_config {
    my $self = shift;
    my $base = $self->is_extension_build
    ? '../..'
    : $self->{_top}{base} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5063	5163	
==>rict 'refs';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3576	3667	
==>_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3576	3667	
==>_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3576	3667	
==>_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $ <==
4	/Users/nnunley/pugs/util/grokprims.pl	1356	1463	
==>}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1068	1169	
==>dding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Buil <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1068	1169	
==>dding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1624	1725	
==>dding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12722	12871	
==>le( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12722	12871	
==>le( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12722	12871	
==>le( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	178	288	
==>rnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $value) = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	733	833	
==>ere {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarSubTy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9877	9970	
==>n sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preord <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9877	9970	
==>n sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preord <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9877	9970	
==>n sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preord <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30190	30279	
==>case it returns the identity-one
Relation::Example or the invocant Relation::Example respe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1399	1485	
==>w { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1399	1485	
==>w { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1399	1485	
==>w { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7965	8139	
==>t_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4325	4499	
==>t_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5174	5348	
==>t_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($pre <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20019	20129	
==>{
    my $inpath  = shift;
    my $outpath = abs2rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1483	1581	
==>" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audrey <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1483	1581	
==>" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audrey <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12599	12696	
==>urrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12599	12696	
==>urrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1374	1633	
==>},
            index_file => {
                store => \$index_file
            },
            packages => {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check( <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	677	768	
==>n B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=cut <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	677	768	
==>n B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=cut <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18259	18361	
==>to see if it is possible to use the regexp
struct as a new api into the guts of the perl core, to permi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	469	563	
==>t,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$form <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	430	524	
==>t,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$form <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	430	524	
==>t,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$form <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15180	15346	
==>lf->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fail <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15180	15346	
==>lf->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fail <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15180	15346	
==>lf->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fail <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	183	288	
==>as($?CLASS, "attributes", "Set", { companion => "class" });
Has($?CLASS, "associations", "Set", { companio <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3086	3184	
==>test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mod <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	156	254	
==>chtlich:
my $option = $para{'x'};
$option = "wert" unless defined $option;

#!\pause
# zur Vereinfa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3086	3184	
==>test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3166	3264	
==>test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8963	9067	
==>E_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interprete <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2290	2369	
==>postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operato <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2290	2369	
==>postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operato <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2290	2369	
==>postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operato <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	270	363	
==>>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	270	363	
==>>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	270	363	
==>>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37072	37159	
==>'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => attribut <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23822	23962	
==>ith { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13326	13458	
==>ith { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13326	13458	
==>ith { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13326	13458	
==>ith { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	313	449	
==>nstance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3839	3942	
==>name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3839	3942	
==>name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3839	3942	
==>name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12425	12539	
==>y $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12425	12539	
==>y $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12425	12539	
==>y $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4012	4113	
==>_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15638	15757	
==>?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10494	10613	
==>?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{ne <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12357	12475	
==>d:
    .return (mob)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10209	10308	
==>/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn.openfoun <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	620	715	
==>key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3408	3496	
==>) { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3408	3496	
==>) { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3408	3496	
==>) { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	222	316	
==>m,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	222	316	
==>m,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	222	316	
==>m,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2683	2803	
==>c
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2683	2803	
==>c
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4966	5109	
==>elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 sec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4966	5109	
==>elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 sec <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1758	1855	
==>returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($s <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1758	1855	
==>returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8148	8289	
==>ttrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8148	8289	
==>ttrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8148	8289	
==>ttrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1634	1740	
==>] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2574	2685	
==>var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2758	2869	
==>var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <sub <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16602	16706	
==>8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup ju <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21028	21132	
==>8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup ju <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21065	21162	
==>>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19973	20070	
==>>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21065	21162	
==>>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19973	20070	
==>>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3104	3228	
==>pen my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << ". <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3104	3228	
==>pen my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << ". <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11233	11320	
==>!.
p6_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_seque <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12456	12569	
==>t (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12456	12569	
==>t (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0") <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1652	1759	
==>abel";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1857	1964	
==>abel";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::creat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19767	19876	
==>ment>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> <StatementList <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2491	2591	
==>returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2491	2591	
==>returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2491	2591	
==>returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.disp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	799	898	
==>.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	799	898	
==>.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	799	898	
==>.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27267	27361	
==>"∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14351	14459	
==>$Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware of futur <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1380	1478	
==>cted_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## is <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1438	1536	
==>cted_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## is <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52598	52686	
==>MRO') => list->new($::Class, $::Module, $::Package, $::Object));
$::Object->set_attr(symb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11660	11774	
==>f.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11660	11774	
==>f.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11660	11774	
==>f.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2348	2452	
==>!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2348	2452	
==>!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2348	2452	
==>!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9075	9172	
==>t_path   = inpath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = base <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2016	2177	
==>.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2395	2556	
==>.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2016	2177	
==>.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2395	2556	
==>.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16485	16589	
==>tr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16485	16589	
==>tr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16485	16589	
==>tr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3460	3566	
==>est.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     } <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3460	3566	
==>est.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4984	5090	
==>est.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6785	6875	
==>> "\\", [C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar("\| <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8216	8312	
==>.intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7346	7442	
==>.intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8216	8312	
==>.intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7346	7442	
==>.intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	13	273	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	13	273	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12360	12486	
==>ss $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12639	12765	
==>ss $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5449	5687	
==>od" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7211	7449	
==>od" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) se <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11260	11362	
==>d DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int { <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11260	11362	
==>d DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int { <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18801	18958	
==>tr ~= uc Pugs::Internals::sprintf(lc($conversion),1.0*$arg);
            }
            when '%' {
                $str ~= '%';
            }
            defau <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2104	2254	
==>redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack current <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2104	2254	
==>redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack current <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2104	2254	
==>redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack current <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	135	249	
==>es += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	135	249	
==>es += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	135	249	
==>es += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	368	479	
==>other hand, we could actually make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8865	9000	
==>]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8861	8996	
==>]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	56	150	
==>tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I do <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	56	150	
==>tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I do <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7219	7333	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6349	6463	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7219	7333	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6349	6463	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5243	5339	
==>tion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5243	5339	
==>tion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6767	6863	
==>tion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4451	4561	
==>=> 1 - Whitespace is significant. Defaults to 1 in Rules.

=item * Perl5 => 1 - Use Perl 5 grammar and semantic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	660	752	
==>etime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	660	752	
==>etime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	660	752	
==>etime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5946	6046	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5634	5734	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1999	2096	
==>ookup. 



This object-serialization format is shared across all runtimes.



=head1 Directory Lay <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1925	2018	
==>ookup. 

This object-serialization format is shared across all runtimes.

=head1 Directory Lay <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7053	7182	
==>$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1401	1516	
==>$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1401	1516	
==>$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1401	1516	
==>$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17142	17252	
==>F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17299	17409	
==>F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17547	17657	
==>F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17731	17841	
==>F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1435	1557	
==>rray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1435	1557	
==>rray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1435	1557	
==>rray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p-> <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20653	20754	
==>ubsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1362	1462	
==>quency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than obs <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1362	1462	
==>quency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than obs <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10495	10586	
==>re_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complemen <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10495	10586	
==>re_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15272	15445	
==>y->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15272	15445	
==>y->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15272	15445	
==>y->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2089	2196	
==>/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  retu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14443	14549	
==>00001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Create <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14443	14549	
==>00001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Create <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7409	7507	
==>y have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A cal <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7409	7507	
==>y have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A cal <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4648	4885	
==>art ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                ret <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4648	4885	
==>art ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10813	10952	
==>curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autopin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10813	10952	
==>curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autopin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5068	5249	
==>{
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5068	5249	
==>{
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6346	6448	
==>>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6346	6448	
==>>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2223	2347	
==>ariables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2223	2347	
==>ariables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2570	2694	
==>ariables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13102	13209	
==>ctures (hash refs, array refs, scalars),
which is suitable as a generic data interchange format between
Rose <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18197	18304	
==>ctures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
format between Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13102	13209	
==>ctures (hash refs, array refs, scalars),
which is suitable as a generic data interchange format between
Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18197	18304	
==>ctures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
format between Rose <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24366	24527	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25629	25790	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24645	24806	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25908	26069	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8345	8561	
==>set keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8809	9025	
==>set keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	562	656	
==>k($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descriptio <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	562	656	
==>k($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descriptio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	315	455	
==>h};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'AR <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	403	543	
==>h};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'AR <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	956	1057	
==>ompiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	956	1057	
==>ompiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2252	2340	
==>lf => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2252	2340	
==>lf => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2252	2340	
==>lf => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3732	3844	
==>oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$reduce_helper($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4156	4266	
==>turn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4156	4266	
==>turn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4156	4266	
==>turn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9513	9629	
==>.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9513	9629	
==>.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38002	38097	
==>hich is a Template text
string if the module recognizes $msg_key, and the undefined value if not <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38002	38097	
==>hich is a Template text
string if the module recognizes $msg_key, and the undefined value if not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13036	13138	
==>thod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13036	13138	
==>thod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13036	13138	
==>thod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	68	161	
==>rnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/smoke_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	957	1064	
==>new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $left->type->to_native e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5690	5795	
==>$sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5690	5795	
==>$sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5690	5795	
==>$sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17649	17827	
==>ner::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17649	17827	
==>ner::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17649	17827	
==>ner::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1224	1333	
==>{out}= {fixity => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8594	8686	
==>rnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8594	8686	
==>rnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8594	8686	
==>rnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11982	12084	
==>se
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12414	12516	
==>se sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11982	12084	
==>se
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12414	12516	
==>se sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6222	6344	
==>e_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6222	6344	
==>e_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosett <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4007	4127	
==>match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4007	4127	
==>match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9837	9958	
==>([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular or <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7777	7898	
==>([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular or <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9837	9958	
==>([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular or <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7777	7898	
==>([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1925	2025	
==>t line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1925	2025	
==>t line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1925	2025	
==>t line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7570	7664	
==>during this
initial pass.

=head3 Fatal Errors

B<If there is a compilation-stopping error>, $p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11759	11864	
==>tems if they are already in the set, or inserts the items if
they're not in the set.

Returns the number o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8906	9011	
==>tems if they are already in the set, or inserts the items if
they're not in the set.

Returns the number o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11759	11864	
==>tems if they are already in the set, or inserts the items if
they're not in the set.

Returns the number o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8906	9011	
==>tems if they are already in the set, or inserts the items if
they're not in the set.

Returns the number o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18478	18598	
==>l 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class lay <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18478	18598	
==>l 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class lay <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18478	18598	
==>l 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class lay <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21821	21919	
==>s {  # see 12.9
      <'return'><no_LineTerminator_here><Expression>? <';'>
}
rule WithStatement :w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30521	30633	
==>${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6167	6273	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6167	6273	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6167	6273	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1955	2055	
==>(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)) <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2317	2417	
==>(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1955	2055	
==>(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2317	2417	
==>(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)) <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3808	3918	
==>mble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{post <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5168	5277	
==>mble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{post <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1397	1503	
==>a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are en <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1397	1503	
==>a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2567	2699	
==>of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2567	2699	
==>of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2567	2699	
==>of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but define <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1693	1792	
==>p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3123	3235	
==>r the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3123	3235	
==>r the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3123	3235	
==>r the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10368	10473	
==>al ) );
    return "$_[0] ruleop::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27281	27402	
==>}

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	594	691	
==>::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	594	691	
==>::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	594	691	
==>::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	113	227	
==>sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	113	227	
==>sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DE <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3360	3451	
==>ion -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3360	3451	
==>ion -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18180	18303	
==>t )
 multi Str::split (      Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      St <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4580	4859	
==>nly");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4580	4859	
==>nly");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1389	1522	
==>it at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1389	1522	
==>it at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s: <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5127	5235	
==>tests;
    @tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3862	3950	
==>ne without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3862	3950	
==>ne without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3862	3950	
==>ne without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12602	12701	
==>ome sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12602	12701	
==>ome sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docum <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	645	736	
==>oc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of co <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	645	736	
==>oc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10923	11066	
==>$key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10923	11066	
==>$key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23167	23304	
==>tion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2157	2267	
==>self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16968	17066	
==>n> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <Equality <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12046	12142	
==>ses = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12046	12142	
==>ses = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12046	12142	
==>ses = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current cl <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	77	168	
==>ts;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	77	168	
==>ts;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2559	2660	
==>_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2559	2660	
==>_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2559	2660	
==>_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--li <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1133	1233	
==>rom output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1133	1233	
==>rom output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5549	5649	
==>dd_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1213	1313	
==>rom output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33268	33367	
==>y until a match for that message is found.  Since a
program or library may wish to override the user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33268	33367	
==>y until a match for that message is found.  Since a
program or library may wish to override the user <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7990	8087	
==>ans.

The problem this class solves is when you need do perform "set" operations on 
Span objects, <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7990	8087	
==>ans.

The problem this class solves is when you need do perform "set" operations on 
Span objects, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23069	23160	
==>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Not <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21878	21969	
==>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Not <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23069	23160	
==>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Not <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21878	21969	
==>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11361	11481	
==>ch %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = eac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11361	11481	
==>ch %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = eac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11361	11481	
==>ch %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = eac <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	623	735	
==>bstr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is prim <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29492	29620	
==>PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAP <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29492	29620	
==>PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7669	7790	
==>ide a grammar:

    sub new_proto( $match ) {
        return ${$match<category>}.add_op( 
            name => $match<n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	308	424	
==>PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAP <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14575	14772	
==>d the line in C<< $strap->{lone_not_line} >>.

=cut

my $Report_Re = <<'REGEX';
                 ^
                  (not\ )?               # failure?
                  ok\b
                  (?:\s+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2555	2666	
==>chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2555	2666	
==>chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2555	2666	
==>chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1222	1378	
==>nd;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4461	4617	
==>nd;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1222	1378	
==>nd;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4461	4617	
==>nd;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8150	8255	
==>tring, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8150	8255	
==>tring, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.e <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11097	11192	
==>at is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11097	11192	
==>at is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22608	22698	
==>...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22608	22698	
==>...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22608	22698	
==>...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8907	9027	
==>ses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8907	9027	
==>ses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8907	9027	
==>ses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8278	8379	
==>r => $category_name - the name of this category 
(a namespace or a Grammar name).

=head2 add_op () <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4669	4782	
==>intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

meth <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4669	4782	
==>intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

meth <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3462	3563	
==>$self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $uni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3462	3563	
==>$self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $uni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12363	12482	
==>$.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.num <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2743	2858	
==>$.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.num <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2743	2858	
==>$.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5160	5313	
==>ething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5160	5313	
==>ething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5160	5313	
==>ething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11384	11519	
==>. ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11378	11513	
==>. ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':' <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13401	13500	
==>the functions is a way
to provide a comment that refers to another file or test which must be
made t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13459	13558	
==>the functions is a way
to provide a comment that refers to another file or test which must be
made t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3620	4044	
==>) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                ret <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3620	4044	
==>) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3163	3302	
==>y @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3163	3302	
==>y @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11362	11497	
==>1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1506	1631	
==>->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1506	1631	
==>->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1506	1631	
==>->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->e <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	503	605	
==>ers() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	503	605	
==>ers() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7702	7802	
==>er<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7702	7802	
==>er<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5723	5832	
==>e($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5723	5832	
==>e($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5723	5832	
==>e($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{p <==
4	/Users/nnunley/pugs/util/package-osx.pl	5431	5528	
==>usr/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local/man/man3/Perl6::FAQ::FUD.3
        / <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10981	11146	
==>ase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10981	11146	
==>ase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if( <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	972	1074	
==>ns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	972	1074	
==>ns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1768	1882	
==>{ 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1768	1882	
==>{ 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1768	1882	
==>{ 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6846	7095	
==>in ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6846	7095	
==>in ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        } <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2091	2240	
==>erence.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3683	3828	
==>erence.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10149	10253	
==>---------------------------  
    # collects all the roles, and applies them to the
    # invocant, which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10149	10253	
==>---------------------------  
    # collects all the roles, and applies them to the
    # invocant, which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10149	10253	
==>---------------------------  
    # collects all the roles, and applies them to the
    # invocant, which <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2995	3098	
==>is safe {
    my @caller = Pugs::Internals::caller($kind, $skip, $label);

    # FIXME: why doesn't this <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22684	22797	
==>=> $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6811	6919	
==>ars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6811	6919	
==>ars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6811	6919	
==>ars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self-> <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1103	1222	
==>,  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # ca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	174	293	
==>rds>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookie <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1103	1222	
==>,  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # ca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	174	293	
==>rds>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookie <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1424	1525	
==>ECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to clos <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	346	447	
==>port { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; } <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	346	447	
==>port { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; } <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1424	1525	
==>ECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to clos <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12383	12539	
==>{
      sub {
        my $c = $_[0];
        { local($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2792	2906	
==>elf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2792	2906	
==>elf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2792	2906	
==>elf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->na <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31	281	
==>rnal packages used by packages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# C <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3462	3580	
==>ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3462	3580	
==>ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20502	20614	
==>return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    pr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5247	5388	
==>qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X::str;
      pos($s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37158	37257	
==>s to a
C<product>.  In any situation where the heading of one source relation is a
full subset of an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41707	41806	
==>s to a
C<product>.  In any situation where the heading of one source relation is a
full subset of an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41330	41429	
==>s to a
C<product>.  In any situation where the heading of one source relation is a
full subset of an <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27399	27508	
==>xit status of child processes when defined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4595	4695	
==>'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4595	4695	
==>'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4595	4695	
==>'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7617	7752	
==>MBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpol <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7617	7752	
==>MBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpol <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16908	17041	
==>next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13329	13462	
==>next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10728	10859	
==>_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10722	10853	
==>_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$captur <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1424	1519	
==>n '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater' <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1424	1519	
==>n '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15006	15109	
==>n>
}
rule AdditiveExpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpres <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8158	8268	
==>ions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8158	8268	
==>ions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8158	8268	
==>ions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2276	2355	
==>ontrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2276	2355	
==>ontrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2276	2355	
==>ontrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10969	11108	
==>{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '[' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4282	4375	
==><$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<? <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4282	4375	
==><$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6479	6572	
==><$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4526	4696	
==>} ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4526	4696	
==>} ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4526	4696	
==>} ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1849	1950	
==>ex = Pugs::Compiler::Rule->compile(q(<'regex'> <rule_name> <mod>* <block>
    {
        my $body = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3550	3650	
==>Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3550	3650	
==>Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3550	3650	
==>Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1663	1750	
==>File::Spec->catfile($config->{bin}, "pugs$config->{exe_ext}");

    ($config->{file_sep} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1089	1197	
==>portList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1089	1197	
==>portList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1089	1197	
==>portList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod] <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1637	1740	
==>w!Array)\
multi Array::values (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1519	1676	
==>less @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        whi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1467	1618	
==>less @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        whi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	988	1078	
==>has functional, procedural, and object-oriented interfaces.  The 
functional and object-ori <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	988	1078	
==>has functional, procedural, and object-oriented interfaces.  The 
functional and object-ori <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3099	3215	
==>y ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3099	3215	
==>y ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3099	3215	
==>y ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $para <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	264	366	
==>d this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Arr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1235	1333	
==>analyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
cont <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1235	1333	
==>analyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
cont <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22140	22235	
==>guage
or permissions issue; simply order the files appropriately in the search
list.  The analog <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22140	22235	
==>guage
or permissions issue; simply order the files appropriately in the search
list.  The analog <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17458	17626	
==>,$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	857	964	
==>ethod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	857	964	
==>ethod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	857	964	
==>ethod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1963	2062	
==>sion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1963	2062	
==>sion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1963	2062	
==>sion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1498	1617	
==>ader {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1498	1617	
==>ader {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17158	17255	
==>01228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do any <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22258	22355	
==>01228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do any <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8789	8918	
==>gs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a test case, and in interacti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8789	8918	
==>gs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a test case, and in interacti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9045	9172	
==>gs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a test case, and in interacti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9045	9172	
==>gs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a test case, and in interacti <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2086	2190	
==>$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22038	22129	
==>1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22038	22129	
==>1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22038	22129	
==>1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2083	2210	
==>am',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13100	13203	
==>l_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13100	13203	
==>l_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13100	13203	
==>l_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0 <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1931	2081	
==>5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8253	8391	
==>) . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8253	8391	
==>) . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8253	8391	
==>) . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	105	199	
==>s file contains p5 runtime primitives which are written in p6.
Most will eventually be implemen <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5496	5590	
==>ft @children;
			if ($sub->struct_equiv->isa("Blondie::Param")) {
				push @params, $self->reso <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	105	199	
==>s file contains p5 runtime primitives which are written in p6.
Most will eventually be implemen <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	105	199	
==>s file contains p5 runtime primitives which are written in p6.
Most will eventually be implemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2750	2851	
==>_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2750	2851	
==>_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2750	2851	
==>_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	354	453	
==>c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2693	2802	
==>tance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2693	2802	
==>tance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2693	2802	
==>tance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5116	5218	
==>_to($right->fetch($i)) != bit->new(1);
    }
    return bit->new(1);
}

package closure::env;

use stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3928	4043	
==>s.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1932	2036	
==>)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1932	2036	
==>)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1932	2036	
==>)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) < <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8273	8413	
==>ie $!;
    
        my $prerm = $self->control_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( -e $pre <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4757	4896	
==>anteed sorted; and sorting
            # helps diffing raw YAML results.
            @tests = sort @tests;
        }
        if ( $Config{dr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9867	9966	
==>ies($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $stri <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9867	9966	
==>ies($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $stri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18164	18282	
==>)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18164	18282	
==>)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	490	596	
==>t<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	490	596	
==>t<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	665	755	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	665	755	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	665	755	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7298	7414	
==>before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { prin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7050	7164	
==>before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { prin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7748	7855	
==>on) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      deb <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7748	7855	
==>on) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      deb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17767	17887	
==>);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17767	17887	
==>);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17767	17887	
==>);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=h <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21604	21702	
==>ent :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <';'>
}
rule Break <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3866	3976	
==>sect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3866	3976	
==>sect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @span <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1194	1290	
==>RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2359	2455	
==>RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12894	13029	
==>f ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12894	13029	
==>f ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12894	13029	
==>f ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new() <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20552	20650	
==>ce.  When you
open a program, it will search for language files specific to the program
in the orde <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20552	20650	
==>ce.  When you
open a program, it will search for language files specific to the program
in the orde <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	129	224	
==>ootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilena <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	129	224	
==>ootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilena <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18137	18293	
==>cient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5057	5166	
==>ncode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5057	5166	
==>ncode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5057	5166	
==>ncode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2934	3037	
==>n my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2934	3037	
==>n my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2934	3037	
==>n my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17272	17407	
==>stant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23238	23373	
==>stant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17551	17686	
==>stant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23517	23652	
==>stant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19576	19680	
==>obj );
}
multi as (Hash $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $k, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26216	26313	
==>ich has a subset of the original's attributes; that subset is the same as
those attribute names in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30768	30865	
==>ich has a subset of the original's attributes; that subset is the same as
those attribute names in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29761	29858	
==>ich has a subset of the original's attributes; that subset is the same as
those attribute names in <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	135	243	
==>elt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my $welt = n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3432	3525	
==>s fundamentally object-oriented; the procedural and functional 
interfaces are layers on top o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3432	3525	
==>s fundamentally object-oriented; the procedural and functional 
interfaces are layers on top o <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4663	4756	
==>in), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", digits_int(Max).
p5 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5421	5519	
==>i sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4551	4649	
==>i sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5421	5519	
==>i sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4551	4649	
==>i sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	526	658	
==>nt
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	526	658	
==>nt
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	526	658	
==>nt
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	391	486	
==>much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoV <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	89	226	
==>warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	131	268	
==>warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	89	226	
==>warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	131	268	
==>warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&cod <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3166	3261	
==>DATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6RulesInP <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17398	17538	
==>l $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ \""
    $P0 .= grammar
    $P0 .= "\" ]\n\n"
    code = exp."as_pir"(name)
    co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5458	5553	
==>ot available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5458	5553	
==>ot available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5458	5553	
==>ot available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	60	168	
==>xport {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction modul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	60	168	
==>xport {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction modul <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12110	12207	
==>nds) returns Bool`

This function currently on checks with ref() since we do not yet have
object s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12168	12265	
==>nds) returns Bool`

This function currently on checks with ref() since we do not yet have
object s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17853	18052	
==>')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41121	41317	
==>')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21124	21310	
==>')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44048	44217	
==>')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1176	1309	
==>e is unsafe {
        # say "e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @args = $string.sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4970	5084	
==>d }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ). <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4970	5084	
==>d }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ). <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18157	18270	
==>icalORExpressionNoIn :words {  # see 11.11
      <LogicalANDExpressionNoIn>
    | <LogicalORExpressionNoIn> <'||'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	775	890	
==>=> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	775	890	
==>=> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	775	890	
==>=> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36198	36293	
==>head2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array reference of <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10109	10210	
==>@span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.interse <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10109	10210	
==>@span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.interse <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	538	633	
==>etter: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	538	633	
==>etter: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!r <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1763	1865	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::procla <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1821	1923	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::procla <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21542	21633	
==>. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21542	21633	
==>. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	65	167	
==>ubclass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4224	4318	
==>in(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4224	4318	
==>in(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4224	4318	
==>in(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17708	17828	
==>mer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ intu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23316	23416	
==>to be stored in a format other than Perl
files.  Or alternately they have a compiled C component or o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23316	23416	
==>to be stored in a format other than Perl
files.  Or alternately they have a compiled C component or o <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6100	6195	
==>r die "Failed to open $syn_index: $!";
    $template = HTML::Template->new(filename => 'util/cat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13826	13961	
==>is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13826	13961	
==>is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13826	13961	
==>is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mult <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5282	5377	
==>elude code is inlined into the executable, to be
"eval"ed when pugs starts.  After the executabl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3222	3331	
==>return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4071	4180	
==>return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3123	3256	
==>stant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3123	3256	
==>stant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3123	3256	
==>stant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@c <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5487	5602	
==>}
    }

    print "Writing META.yml\n";

    local *META;
    open META, "> META.yml" or warn "Cannot write to META <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	387	528	
==>return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4270	4366	
==>ption? )>

Compares the receivied and expected lines from the previously run tests,
passing if bo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4270	4366	
==>ption? )>

Compares the receivied and expected lines from the previously run tests,
passing if bo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4350	4446	
==>ption? )>

Compares the receivied and expected lines from the previously run tests,
passing if bo <==
4	/Users/nnunley/pugs/util/package-osx.pl	23	135	
==>rict;
use warnings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parrot|pugs-parrot] ta <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5749	5842	
==>ode_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5749	5842	
==>ode_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2648	2741	
==>ode_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2508	2648	
==>ple:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thunk won't be run - it must be t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5841	5932	
==>ter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5841	5932	
==>ter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5841	5932	
==>ter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myob <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9088	9184	
==>essage headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9088	9184	
==>essage headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Conten <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	985	1112	
==>ol  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	985	1112	
==>ol  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $gram <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	776	873	
==>tmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	776	873	
==>tmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1307	1417	
==>"Condition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) {
        $self->do();
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4569	4666	
==>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an except <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4569	4666	
==>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an except <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6093	6190	
==>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an except <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9859	9972	
==>ix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9859	9972	
==>ix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9859	9972	
==>ix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	478	590	
==>onfess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conversion to native val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10725	10878	
==>ft;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10725	10878	
==>ft;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10725	10878	
==>ft;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        star <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1139	1237	
==>rd.  Or maybe the full package
name (C<Type--Perl6>) disambiguates this case.

Types have a dispatc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10422	10562	
==>args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6763	6903	
==>args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7612	7752	
==>args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3236	3333	
==>x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

my $p2 = new $p1->class->(10 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1540	1698	
==>$hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callback <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1540	1698	
==>$hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callback <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10156	10251	
==>ssed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10156	10251	
==>ssed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2729	2822	
==>e_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2729	2822	
==>e_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2729	2822	
==>e_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4324	4437	
==>while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4324	4437	
==>while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4324	4437	
==>while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5804	5908	
==>anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1161	1301	
==>_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $i <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1161	1301	
==>_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	550	679	
==>.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<sta <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	550	679	
==>.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4933	5065	
==>guments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "At <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4933	5065	
==>guments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "At <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4933	5065	
==>guments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "At <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6379	6477	
==>_placeholder {
		my $self = shift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::bless <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2396	2615	
==>0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2396	2615	
==>0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23161	23257	
==>th
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23161	23257	
==>th
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3287	3408	
==>}
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescape <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3287	3408	
==>}
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescape <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	731	829	
==>blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API oper <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	731	829	
==>blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API oper <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	688	787	
==>dule::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	874	964	
==>ALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	874	964	
==>ALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	874	964	
==>ALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	232	334	
==>nf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	232	334	
==>nf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	232	334	
==>nf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($clas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22030	22124	
==>xample::Heading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<T <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	233	345	
==>preter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $prog = shift;

    my $c = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1850	1960	
==>d') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1850	1960	
==>d') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1850	1960	
==>d') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace( <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1855	1958	
==>refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub { <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1855	1958	
==>refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7830	7973	
==>rg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junctio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7830	7973	
==>rg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junctio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7830	7973	
==>rg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junctio <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3246	3365	
==>nt ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constant ISA_JIB <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7675	7769	
==>rom => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), cap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9603	9697	
==>rom => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7663	7757	
==>rom => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), cap <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3912	4061	
==>ta -C ] . 
                        $conf->compile_dir . q[ -xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	487	602	
==>5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	487	602	
==>5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	487	602	
==>5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7296	7463	
==>ray->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7296	7463	
==>ray->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7296	7463	
==>ray->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->pu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	503	600	
==>lt.
# One basically has to reverse engineer an implicit abstraction
# "barrier" for the engine, fr <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3204	3362	
==>ction><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3204	3362	
==>ction><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6100	6197	
==>ed as one long string.

=item List Context

All headers are returned split into the respective
lin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6100	6197	
==>ed as one long string.

=item List Context

All headers are returned split into the respective
lin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25449	25542	
==>er components concerned, provided that you include the source
code of the other components whe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25449	25542	
==>er components concerned, provided that you include the source
code of the other components whe <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	86	189	
==>.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	9	103	
==>PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	9	103	
==>PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	9	103	
==>PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math:: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13700	13937	
==>at   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $tot{bad}++;
                $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	392	493	
==>value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	392	493	
==>value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	392	493	
==>value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9694	9796	
==>rs.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to inpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9694	9796	
==>rs.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to inpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9694	9796	
==>rs.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to inpu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8825	8923	
==>ckage Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2100	2211	
==>re {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_F{$msg_key};
    }
} # m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4047	4154	
==>$link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abort <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4047	4154	
==>$link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abort <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4047	4154	
==>$link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abort <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16884	16973	
==>,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5250	5337	
==>d('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5250	5337	
==>d('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5250	5337	
==>d('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6090	6212	
==>an}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6870	6992	
==>an}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6090	6212	
==>an}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6870	6992	
==>an}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.dele <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23823	23918	
==>tructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28375	28470	
==>tructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27197	27292	
==>tructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)> <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9519	9607	
==>[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STDERR "hi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9791	9954	
==>ray, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9791	9954	
==>ray, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1841	1954	
==>shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makem <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	952	1063	
==>shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makem <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15095	15188	
==>tructures of arbitrary depth and of
an arbitrary type. The function signatures will likely loo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15153	15246	
==>tructures of arbitrary depth and of
an arbitrary type. The function signatures will likely loo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	782	874	
==>dard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transf <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	782	874	
==>dard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	147	257	
==>1
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	147	257	
==>1
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2165	2262	
==>> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2165	2262	
==>> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	862	1032	
==>new(:node<Array::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9154	9252	
==>:pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9154	9252	
==>:pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9154	9252	
==>:pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7095	7241	
==>turn 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in ful <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7095	7241	
==>turn 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in ful <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4165	4264	
==>able {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5014	5113	
==>able {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4538	4683	
==>} 
                  ? _mangle_ident( $n->{param}{cpan_bareword} )
                  : _emit( $n->{param}{sub} );
            my @a = split "-" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11730	11848	
==>nting a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20] <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11730	11848	
==>nting a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20] <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16647	16755	
==>n) is primitive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1859	1961	
==>ix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1859	1961	
==>ix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1859	1961	
==>ix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infi <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3592	3706	
==>eal $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi met <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1070	1172	
==>ing a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1070	1172	
==>ing a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1626	1728	
==>ing a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4565	4706	
==>',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	905	1038	
==>{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	905	1038	
==>{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	905	1038	
==>{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the insid <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	832	970	
==>'&infix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub as value" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5269	5377	
==>urn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5269	5377	
==>urn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5269	5377	
==>urn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $ <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1132	1293	
==>= open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub show () {
    prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3588	3702	
==>e->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3839	3950	
==>e->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3839	3950	
==>e->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2409	2531	
==>msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           } <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2409	2531	
==>msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20558	20708	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20837	20987	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6118	6243	
==>$diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $ex <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	61	174	
==>Jens"; print "Mein Name ist $name.";
Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2049	2192	
==>ell
        my $archive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{lo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10185	10325	
==>\\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6526	6666	
==>\\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7375	7515	
==>\\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	320	424	
==>old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	320	424	
==>old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	320	424	
==>old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLe <==
4	/Users/nnunley/pugs/util/package-osx.pl	2277	2366	
==>y/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1839	1978	
==>($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1839	1978	
==>($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1839	1978	
==>($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into th <==
4	/Users/nnunley/pugs/util/package-osx.pl	5171	5268	
==>::Bible::S27.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Per <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	631	746	
==>y "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are runn <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	631	746	
==>y "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are runn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25070	25167	
==>.  The Message class is pure and deterministic,
such that all of its class and object methods will <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25070	25167	
==>.  The Message class is pure and deterministic,
such that all of its class and object methods will <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4558	4656	
==>_;
    return bit->new(0) if not (blessed($right) && $right->isa('closure::params'));
    return bi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10761	10856	
==>ure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10761	10856	
==>ure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	341	432	
==>) }
RULE
*{'grammar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <immediate_sta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17772	17942	
==>nly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21249	21419	
==>nly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20836	21006	
==>nly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4776	4905	
==>if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4776	4905	
==>if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13016	13109	
==>item $h.remove_content_headers

This will remove all the header fields used to describe the co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13016	13109	
==>item $h.remove_content_headers

This will remove all the header fields used to describe the co <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2016	2118	
==>or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die << <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2054	2145	
==>0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2054	2145	
==>0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2054	2145	
==>0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«** <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17348	17438	
==>It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17348	17438	
==>It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17348	17438	
==>It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14389	14503	
==>ue::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14389	14503	
==>ue::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14389	14503	
==>ue::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4753	4859	
==>my(@tests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_resul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	506	627	
==>ars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decim <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	506	627	
==>ars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decim <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20130	20218	
==>lized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20130	20218	
==>lized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2506	2598	
==>y="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) skipped and (\d+) unexpectedly <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4780	4952	
==>ush @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5244	5416	
==>ush @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27121	27260	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27400	27539	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5302	5404	
==>obdir $dir;

Returns all the files in a directory.  This is shorthand for backwards
compatibility on sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3661	3778	
==>var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3661	3778	
==>var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3661	3778	
==>var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = und <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	194	290	
==>his had not been specced yet (need S29 work).

When writing primitives, please do *not* use `retu <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	0	100	
==>module MIME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encodi <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	0	100	
==>module MIME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encodi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18335	18428	
==>ince the content
inside heredocs can possibly confuse further parsing.

Next, the source modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18335	18428	
==>ince the content
inside heredocs can possibly confuse further parsing.

Next, the source modul <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1121	1231	
==>sh @$exe_files, @_;
}

sub _read_script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2541	2641	
==>lMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm -- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2541	2641	
==>lMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm -- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2541	2641	
==>lMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15306	15436	
==>1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no war <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15306	15436	
==>1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no war <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15306	15436	
==>1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no war <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8467	8581	
==>ken{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    go <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2374	2521	
==>n an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2374	2521	
==>n an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19766	19881	
==>1 = self[1]
    $P1 = $P1.p6analyze(pad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16870	16976	
==>a($_[0]);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	454	574	
==>ver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    prin <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	454	574	
==>ver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    prin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13965	14077	
==>ers' in the first of the four
        # languages that has a matching template available.
        print $translat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13965	14077	
==>ers' in the first of the four
        # languages that has a matching template available.
        print $translat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1166	1275	
==>r functions get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_sco <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13692	13795	
==>r functions get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_sco <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20169	20262	
==>the interface/behaviour is), this Relation data type is proposed to be
generally useful, and v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24721	24814	
==>the interface/behaviour is), this Relation data type is proposed to be
generally useful, and v <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	273	379	
==>equest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16602	16708	
==>$bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling l <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	273	379	
==>equest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16602	16708	
==>$bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1884	1986	
==>er



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeb <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1810	1908	
==>er

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeb <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1001	1093	
==>gth Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1001	1093	
==>gth Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %e <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3699	3794	
==>ke_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3699	3794	
==>ke_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17509	17600	
==>Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS obje <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17509	17600	
==>Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS obje <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14862	14963	
==>}
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18339	18440	
==>}
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17755	17856	
==>}
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	201	300	
==>ub equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->equ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2050	2185	
==>' ) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14335	14469	
==>ub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14335	14469	
==>ub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14335	14469	
==>ub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4697	4902	
==>s...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from path <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13914	14031	
==>ingify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13914	14031	
==>ingify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13914	14031	
==>ingify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "strin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3518	3619	
==>se role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific cl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3518	3619	
==>se role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5715	5816	
==>se role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific cl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3209	3299	
==>start=%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9513	9633	
==>nt_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9513	9633	
==>nt_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9513	9633	
==>nt_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => :: <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2935	3049	
==>ibute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) t <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3092	3206	
==>ibute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) t <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2935	3049	
==>ibute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) t <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3092	3206	
==>ibute it and/or modify it under
the terms of either:

    a) the GNU General Public License, version 2, or
    b) t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6783	6888	
==>nnels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6783	6888	
==>nnels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	433	531	
==>ded by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for th <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	433	531	
==>ded by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7494	7604	
==>_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha POSIX class
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2895	2993	
==>genClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2895	2993	
==>genClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2895	2993	
==>genClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6246	6374	
==>);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6246	6374	
==>);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6149	6268	
==>$pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.spl <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6149	6268	
==>$pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.spl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4924	5042	
==>sult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4924	5042	
==>sult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4924	5042	
==>sult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    fil <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29903	29998	
==>ntally implemented)

Straps->analyze_file() not taint clean, don't know if it can be

Fix that d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12830	12952	
==>ttributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these met <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12830	12952	
==>ttributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these met <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1035	1126	
==>rence set with full bidirectional functionality.

The complementary functions are emulated u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1035	1126	
==>rence set with full bidirectional functionality.

The complementary functions are emulated u <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10001	10126	
==>= 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2011	2112	
==>fix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2011	2112	
==>fix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2011	2112	
==>fix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	176	282	
==>ix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one from prelude? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6358	6455	
==>rom_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6358	6455	
==>rom_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6358	6455	
==>rom_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB t <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5292	5421	
==>! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5292	5421	
==>! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) ret <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6535	6648	
==>CALL(&$c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  package Regexp::Parser::re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5778	5882	
==>}
		}
		$self->leave_scope;
		
		my $last_exp = pop @exps;
	
		$self->add_definition($node => "$return_ty <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2812	2921	
==>$url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respons <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2812	2921	
==>$url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respons <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19747	19843	
==>Relation data type is immutable.  The value of
a Relation object is determined when it is constru <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24299	24395	
==>Relation data type is immutable.  The value of
a Relation object is determined when it is constru <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8227	8337	
==>->files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->pa <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26240	26338	
==>t to C<COLUMNS>. If this is not set, it will
default to 80. Note that users of Bourne-sh based shel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18271	18366	
==>$bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18271	18366	
==>$bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies. <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10757	10850	
==>method returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

= <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10757	10850	
==>method returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	450	541	
==>orization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!proto <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	450	541	
==>orization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!proto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6267	6454	
==>=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6267	6454	
==>=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6267	6454	
==>=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	899	995	
==>synopses with hyperlinks to corresponding tests

  Options:
    --p6design_dir  Directory contain <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7496	7622	
==>int "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2362	2486	
==>its return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_ST <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2362	2486	
==>its return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_ST <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7245	7365	
==>int "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8686	8788	
==>own strap subclass,
such as a PHP interpreter for a PHP-based strap.

=cut

sub _command {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6557	6648	
==>ttribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6557	6648	
==>ttribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6557	6648	
==>ttribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1342	1477	
==>>{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1330	1465	
==>>{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2155	2285	
==>, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2155	2285	
==>, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10545	10692	
==>hod' => (
    # method label
        symbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1421	1515	
==>nternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1421	1515	
==>nternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1421	1515	
==>nternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4771	4873	
==>vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4771	4873	
==>vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5361	5463	
==>vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4429	4533	
==>ite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinit <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4429	4533	
==>ite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinit <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	143	247	
==>Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	143	247	
==>Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8816	8975	
==>[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8816	8975	
==>[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8816	8975	
==>[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2749	2844	
==>ugs currently has some issues with Perl 5 interoperability.

Parrot Perl 6 is the best performin <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2394	2494	
==>n Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1849	1949	
==>n Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2394	2494	
==>n Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1849	1949	
==>n Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5657	5787	
==>= $details;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = 'header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5649	5750	
==>bly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5649	5750	
==>bly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5649	5750	
==>bly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4152	4394	
==>ift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get('$me <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2245	2356	
==>t_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast',
					body => \&do_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21936	22023	
==>Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21936	22023	
==>Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21936	22023	
==>Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2132	2228	
==>array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2132	2228	
==>array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2132	2228	
==>array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code") <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	313	401	
==>mar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5530	5792	
==>s an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = mai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6379	6641	
==>s an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = mai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	339	453	
==>Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	371	485	
==>Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	690	817	
==>@deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1138	1257	
==>@deps = @_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3240	3331	
==><$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3240	3331	
==><$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4388	4495	
==>t match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7865	7972	
==>t match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2754	2858	
==>Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2347	2449	
==>tribute names must be symbols";
    ($self->[2]->exists($name) == $bit::FALSE)
        || confess "Attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39953	40079	
==>my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39953	40079	
==>my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39953	40079	
==>my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1550	1666	
==>,
        installation    => { allow => ISA_JIB_INSTALLATION },
        repository      => { allow => ISA_JIB_REPOSIT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4642	4744	
==>join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4642	4744	
==>join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7787	7893	
==>/\s*:\s*$//;
	    $h{'isLValue'}=1 if s/\s+is lvalue//;
	    $h{'isLazy'}=1 if s/\s+is lazy//;
	    $h{'isW <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10112	10206	
==>e of immediate
validation is kept to the minimum possible, and is essentially just
concerned wi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10112	10206	
==>e of immediate
validation is kept to the minimum possible, and is essentially just
concerned wi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26908	27000	
==>( pair(10)('foo') )");
is(t($snd), "str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), " <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1575	1690	
==>inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	211	321	
==>if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	211	321	
==>if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	211	321	
==>if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2J <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2364	2516	
==>less $avail{ $depends->{package} };
                }

                ### write the data into the available list
                ### XXX temp file, then <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1302	1393	
==>ta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1302	1393	
==>ta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1302	1393	
==>ta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1788	1889	
==>TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1788	1889	
==>TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1788	1889	
==>TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6814	6924	
==>isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'param <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6814	6924	
==>isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'param <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3713	3823	
==>isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'param <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3695	3798	
==>ype = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val . " to $type";

		B <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1392	1487	
==>fy>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($na <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1392	1487	
==>fy>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($na <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	482	572	
==>------------------------------------
## accessors and mutators

method parent ($self:) retu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	482	572	
==>------------------------------------
## accessors and mutators

method parent ($self:) retu <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	162	260	
==>.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - simple ass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2055	2163	
==>ew { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2055	2163	
==>ew { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2055	2163	
==>ew { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13714	13818	
==>rs

=item values

 multi Hash::keys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::kv     (% <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8829	8928	
==>IRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ($) { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1709	1794	
==>erl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Para <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1709	1794	
==>erl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Para <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1774	1882	
==>}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is ex <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1774	1882	
==>}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1854	1962	
==>}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is ex <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39519	39619	
==>}
        )
    )
);

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44997	45097	
==>}
        )
    )
);

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48276	48376	
==>}
        )
    )
);

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52207	52307	
==>}
        )
    )
);

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8866	9130	
==>r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8866	9130	
==>r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8866	9130	
==>r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16724	16837	
==>ode->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7776	7877	
==>ackage Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3703	3799	
==>ode $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3703	3799	
==>ode $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3703	3799	
==>ode $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2617	2729	
==>version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2617	2729	
==>version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2617	2729	
==>version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if ( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3187	3297	
==>if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	745	848	
==>str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->fla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	745	848	
==>str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->fla <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4691	4794	
==>ort for pugs still depends on the .msi
   version of GHC and does not provide POSIX features absent
   f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17878	17968	
==>SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17878	17968	
==>SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17878	17968	
==>SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24206	24352	
==>fy($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24206	24352	
==>fy($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24206	24352	
==>fy($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$me <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4046	4164	
==>pParam"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter_with_default(
            traverse_ast( %pad<"t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29438	29556	
==>];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29438	29556	
==>];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29438	29556	
==>];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1414	1498	
==>rnational.org/publications/standards/Ecma-262.htm
#   http://bclary.com/2004/11/07/ec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	434	540	
==>ment for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	438	544	
==>ment for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	434	540	
==>ment for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	438	544	
==>ment for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) is export { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5042	5207	
==>isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8450	8611	
==>st ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4810	4971	
==>st ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5659	5820	
==>st ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	297	437	
==>::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	297	437	
==>::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	297	437	
==>::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confes <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	439	539	
==>le knowledge of Perl 6. These five examples
# can be improved in many ways, and have been in the Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5667	5800	
==>->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5667	5800	
==>->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6920	7028	
==>print "*** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless -e " <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3996	4120	
==>e::Spec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5137	5253	
==>\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5137	5253	
==>\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5137	5253	
==>\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7984	8126	
==>$ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7984	8126	
==>$ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7984	8126	
==>$ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbox <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1886	1988	
==>press::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CGI->param("smoke");

  my $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1900	2041	
==>(!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1900	2041	
==>(!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        } <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2609	2730	
==>(!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2609	2730	
==>(!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1938	2051	
==>faces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1938	2051	
==>faces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1938	2051	
==>faces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wra <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4224	4335	
==>s;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    got <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3159	3267	
==>unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3159	3267	
==>unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3159	3267	
==>unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		fo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	901	1002	
==>::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1415	1514	
==>tions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1415	1514	
==>tions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1415	1514	
==>tions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	580	824	
==>ta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localiz <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	580	824	
==>ta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localiz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14088	14180	
==>annel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reas <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14088	14180	
==>annel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reas <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1675	1802	
==>arMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $ <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1675	1802	
==>arMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	535	635	
==>nts to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_calle <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	535	635	
==>nts to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_calle <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25013	25110	
==>server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23777	23874	
==>server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25013	25110	
==>server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23777	23874	
==>server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3073	3173	
==>ame (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3073	3173	
==>ame (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3073	3173	
==>ame (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_at <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2961	3227	
==>erbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %eve <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2961	3227	
==>erbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %eve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	669	772	
==>ed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	669	772	
==>ed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	669	772	
==>ed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to I <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2851	2957	
==>e';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5976	6082	
==>e';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2851	2957	
==>e';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5976	6082	
==>e';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2259	2400	
==>(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2259	2400	
==>(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22406	22495	
==><$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Q <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22406	22495	
==><$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1445	1641	
==>@res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1445	1641	
==>@res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1445	1641	
==>@res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14044	14144	
==>TI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14044	14144	
==>TI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14044	14144	
==>TI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	529	652	
==>self = shift;
    exists $self->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self = shift;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3735	3843	
==>r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3735	3843	
==>r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3735	3843	
==>r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4708	4856	
==>tch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4708	4856	
==>tch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4708	4856	
==>tch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	904	1013	
==>ather all the classes to look through
    my @classes = ($class);
    
    #warn "inv: " . $inv->id->to_native <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	693	838	
==>run) = @_;
            return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " but ran $run";            
        } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	422	520	
==>ry. $root/jibs if not specified.

=item pool_rel

The path to the pool directory that will be put i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	995	1115	
==>sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good on 5.5.4.
    return scalar <$fh>;
}


packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14188	14297	
==>ble->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14188	14297	
==>ble->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14188	14297	
==>ble->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2102	2234	
==>s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1176	1292	
==>rt',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1176	1292	
==>rt',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1176	1292	
==>rt',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6187	6278	
==>>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6187	6278	
==>>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6187	6278	
==>>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $nam <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1380	1459	
==>op}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10035	10144	
==>= [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10029	10138	
==>= [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	891	990	
==>rability with modules that
# do not inherit from Module::Compile but still want to do this sort
# of <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	891	990	
==>rability with modules that
# do not inherit from Module::Compile but still want to do this sort
# of <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31925	32031	
==>akes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the invocant Relat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33786	33892	
==>akes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36475	36581	
==>akes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the invocant Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38336	38442	
==>akes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
invocant Relat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10649	10757	
==>def.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set ) <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10649	10757	
==>def.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1129	1236	
==>nts that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1129	1236	
==>nts that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2661	2766	
==>compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2661	2766	
==>compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2661	2766	
==>compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	9	112	
==>n/perl

package Blondie::Runtime::Nada;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

sub p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9643	9753	
==>{
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9643	9753	
==>{
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9643	9753	
==>{
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_met <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3645	3828	
==>_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1326	1428	
==>0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instanti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1326	1428	
==>0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instanti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1326	1428	
==>0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instanti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1425	1544	
==>:DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Mes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1425	1544	
==>:DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Mes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8321	8435	
==>= $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<fro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8321	8435	
==>= $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22985	23087	
==>(defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22985	23087	
==>(defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22985	23087	
==>(defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4982	5119	
==>->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        other => ';',
    );

    __PACKAGE__- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2925	3039	
==>ss != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2925	3039	
==>ss != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2925	3039	
==>ss != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11098	11255	
==>id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3084	3226	
==>greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quanti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3095	3237	
==>greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quanti <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	686	819	
==>add_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree.new(:node<Array>).add_child <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4482	4627	
==>~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4482	4627	
==>~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16887	17014	
==>gc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13308	13435	
==>gc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5786	5896	
==>an.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5786	5896	
==>an.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	266	373	
==>GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big bu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	266	373	
==>GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5071	5191	
==>st package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5071	5191	
==>st package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5071	5191	
==>st package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	527	644	
==>});
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	527	644	
==>});
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	527	644	
==>});
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27822	27918	
==>n by C<$^X>, the currently-executing Perl.
However, you may want to have it run by a different ex <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5710	5805	
==>s. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5710	5805	
==>s. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Conte <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37124	37217	
==>he trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

Th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37124	37217	
==>he trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10815	10921	
==>::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10815	10921	
==>::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10815	10921	
==>::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6907	7031	
==>losure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6907	7031	
==>losure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19105	19196	
==>not> happen automatically if using the header(),
push_header() or init_header() methods to s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19105	19196	
==>not> happen automatically if using the header(),
push_header() or init_header() methods to s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2975	3088	
==>escription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2975	3088	
==>escription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2975	3088	
==>escription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2011	2125	
==>ted";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12877	12980	
==>$s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12877	12980	
==>$s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12877	12980	
==>$s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $ke <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3275	3364	
==>rint_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3492	3581	
==>rint_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_m <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	98	185	
==>.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't ex <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	98	185	
==>.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21571	21714	
==>( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21571	21714	
==>( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21571	21714	
==>( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2014	2140	
==>_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2764	2885	
==>) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2764	2885	
==>) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2764	2885	
==>) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2754	2853	
==>t's value (and also prepares a dynamic scope
for it).

If we have a Thunk inside '&func' in the Env, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4000	4157	
==>else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3877	4029	
==>else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{captu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15765	15859	
==>"Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This librar <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15765	15859	
==>"Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This librar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2552	2660	
==>amespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2736	2844	
==>amespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10973	11068	
==>def> will be returned.

A multi-valued field will be returned as separate values in list
context <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10973	11068	
==>def> will be returned.

A multi-valued field will be returned as separate values in list
context <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13529	13677	
==>are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13529	13677	
==>are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13529	13677	
==>are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	953	1058	
==>remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

------------------------------------------ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2427	2525	
==>s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.h <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2427	2525	
==>s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.h <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	51	146	
==>s (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LEN <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	51	146	
==>s (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LEN <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	839	944	
==>on)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtr <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	839	944	
==>on)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4675	4772	
==>efined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a has <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4675	4772	
==>efined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a has <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	603	755	
==>. $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Grammar::Var.ident>
                { return { sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13887	14005	
==>bel, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13887	14005	
==>bel, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13887	14005	
==>bel, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1322	1449	
==>k $Data;
        1 while unlink $Control
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10856	10958	
==>ute;
    method get_attribute_list;            
}

---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10856	10958	
==>ute;
    method get_attribute_list;            
}

---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10856	10958	
==>ute;
    method get_attribute_list;            
}

---------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9601	9699	
==>ce an iterator that will traverse the entire parse tree,
to any depth.  To restrict the depth to wh <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	574	699	
==>mand
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12022	12135	
==>$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12022	12135	
==>$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12022	12135	
==>$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	495	636	
==>e => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    my $struct = eval { LoadFile( $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17549	17643	
==>6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17549	17643	
==>6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17549	17643	
==>6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB in <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3622	3746	
==>ler().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3680	3804	
==>ler().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4793	4907	
==>elf: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4793	4907	
==>elf: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5443	5553	
==>]}'\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6250	6347	
==>"hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6250	6347	
==>"hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6250	6347	
==>"hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	75	172	
==>ckage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use File::B <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	80	176	
==>ckage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::B <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	78	174	
==>ckage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8861	9124	
==>s( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8861	9124	
==>s( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8861	9124	
==>s( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6240	6347	
==>p:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => set( %full_map.value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5082	5277	
==>lass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5082	5277	
==>lass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5082	5277	
==>lass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11970	12091	
==>( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12249	12370	
==>( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2231	2348	
==>and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, stor <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2231	2348	
==>and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, stor <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10243	10383	
==>test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$test{ml}ok\n";
            } elsif (d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2811	2910	
==>l($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Languag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2811	2910	
==>l($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Languag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2811	2910	
==>l($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Languag <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4287	4415	
==>(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4287	4415	
==>(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $sel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12652	12775	
==>e_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12652	12775	
==>e_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9650	9811	
==>>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9650	9811	
==>>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9650	9811	
==>>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Ha <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7969	8070	
==>duce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3357	3451	
==>elling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNC <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3357	3451	
==>elling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3437	3531	
==>elling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	645	780	
==>e
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	645	780	
==>e
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	645	780	
==>e
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6 <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	304	435	
==>routine
    capture
    hash
    integer
    number
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36874	36993	
==>s );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nume <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	554	673	
==>ect(exact => $c);
  });

  ### BACKSLASHED THINGS

  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36874	36993	
==>s );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nume <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36874	36993	
==>s );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nume <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6051	6148	
==>".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6051	6148	
==>".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6051	6148	
==>".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4006	4103	
==>s = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4006	4103	
==>s = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4006	4103	
==>s = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	759	872	
==>=> $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	770	883	
==>=> $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	742	849	
==>>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	742	849	
==>>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	742	849	
==>>leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5231	5336	
==>b-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4961	5060	
==>ore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Recor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4961	5060	
==>ore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Recor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6485	6584	
==>ore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Recor <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1134	1231	
==>onal" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&' <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1134	1231	
==>onal" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17836	17929	
==>r field contains information about the software being
used by the originating server program h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17836	17929	
==>r field contains information about the software being
used by the originating server program h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8643	8771	
==>}
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14368	14496	
==>}
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8643	8771	
==>}
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14362	14490	
==>}
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13959	14074	
==>mplain->("scalar_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3887	4027	
==>ecedence => 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        prec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4139	4241	
==>f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4139	4241	
==>f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4139	4241	
==>f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7469	7649	
==>on good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RES <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7933	8113	
==>on good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RES <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20717	20806	
==>named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20717	20806	
==>named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	525	680	
==>'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	496	651	
==>'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	525	680	
==>'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	525	680	
==>'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("p <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9310	9447	
==>ext =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe = <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9310	9447	
==>ext =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30297	30393	
==>> operator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34849	34945	
==>> operator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10797	10924	
==>hods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10797	10924	
==>hods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10797	10924	
==>hods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class-> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1248	1351	
==>shift;

    $by_digest{$digest};
}

sub prelude {
<<C
#include <stdio.h>
#include <gc.h>

typedef int IV <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27862	27959	
==>Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
elements, whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2660	2744	
==>ink=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2660	2744	
==>ink=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2660	2744	
==>ink=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1876	2021	
==>s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1876	2021	
==>s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1876	2021	
==>s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16292	16435	
==>=~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               print S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10950	11068	
==>[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10950	11068	
==>[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10950	11068	
==>[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[id <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1306	1397	
==>^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code =~ s/int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3956	4145	
==>ss => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3956	4145	
==>ss => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3956	4145	
==>ss => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unb <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12070	12166	
==>tains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9191	9287	
==>tains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12070	12166	
==>tains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9191	9287	
==>tains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4661	4758	
==>") < 1);
    ($operator, my $stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitesp <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	634	756	
==>ift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	535	657	
==>ift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	35	138	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	35	138	
==>cumentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4606	4708	
==>ject, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Retur <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4606	4708	
==>ject, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4098	4199	
==>hod_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4098	4199	
==>hod_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4098	4199	
==>hod_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6133	6231	
==>mbiningMark>
    | <UnicodeDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14745	14853	
==>nitialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14745	14853	
==>nitialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14745	14853	
==>nitialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	92	199	
==>mic/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=he <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	223	322	
==>s being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEF <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	223	322	
==>s being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEF <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3224	3340	
==>, "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	507	625	
==>ER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	507	625	
==>ER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	972	1082	
==>_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_acces <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1636	1746	
==>_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_acces <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	996	1126	
==>ri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	996	1126	
==>ri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25354	25484	
==>f = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25913	26043	
==>f = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $sel <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3382	3569	
==>%events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (de <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3430	3617	
==>%events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (de <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3382	3569	
==>%events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (de <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3430	3617	
==>%events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (de <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	125	376	
==>(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Ye <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	125	376	
==>(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Ye <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19691	19785	
==>hannel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
top <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19691	19785	
==>hannel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
top <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7331	7474	
==>substr($k,-1,1) eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1705	1822	
==>.STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1705	1822	
==>.STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1705	1822	
==>.STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14165	14307	
==>$k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4238	4372	
==>$k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4238	4372	
==>$k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4238	4372	
==>$k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	374	628	
==>{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's pac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	374	628	
==>{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's pac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3413	3516	
==>terface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::In <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3413	3516	
==>terface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::In <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9985	10123	
==>, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Compara <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1199	1334	
==>, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Compara <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	348	462	
==>4

=item dir

=item meta

=item config

=back

=head1 METHODS

=head2 $src = JIB::Source->new( dir => /path/to/sour <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6544	6664	
==>ator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6544	6664	
==>ator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1537	1638	
==>r($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1677	1778	
==>r($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1979	2111	
==>}       = [ available       => SUBFILE_OF_META  ];
$config{'_registered_alternatives'} 
                            = [ 'registered-a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1000	1094	
==>xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1000	1094	
==>xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1000	1094	
==>xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21027	21126	
==>>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19935	20034	
==>>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21027	21126	
==>>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19935	20034	
==>>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a ha <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16831	16930	
==>percent_ok = 100*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subtests failed, %.2f% <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11903	11998	
==>\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11903	11998	
==>\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11903	11998	
==>\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8126	8225	
==>raft.pod 8651.  In the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4102	4237	
==>$sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4102	4237	
==>$sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4102	4237	
==>$sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6705	6795	
==>error_file = catfile($output_dir,"error.html");
open( my $error, '>', $error_file) or die " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12815	13036	
==>>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12815	13036	
==>>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12815	13036	
==>>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4144	4242	
==>TestBuilder/Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test li <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2226	2324	
==>rray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2226	2324	
==>rray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2226	2324	
==>rray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = ar <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	606	700	
==>ally a reference implementation of all the things the
language must provide, including stuff fo <==
4	/Users/nnunley/pugs/util/addauthors.pl	1478	1607	
==>tf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	470	590	
==>{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	470	590	
==>{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	470	590	
==>{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16829	16974	
==>passing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              the e <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6601	6705	
==>cal },
  using  => sub { getstore $kernel_uri => $kernel_local };

step
  descr  => "Checking for Pugs bi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13542	13638	
==>re an implementation
could be started).  This is most useful when writing modules and you
find th <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13600	13696	
==>re an implementation
could be started).  This is most useful when writing modules and you
find th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2379	2487	
==>$qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2379	2487	
==>$qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2379	2487	
==>$qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mo <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	34	137	
==>ase;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2138	2249	
==>ind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2138	2249	
==>ind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2485	2596	
==>ind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	775	880	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <ident> <p6ws>? \;
        { ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1195	1287	
==>nes

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1195	1287	
==>nes

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNO <==
4	/Users/nnunley/pugs/util/func_refact.pl	2498	2610	
==>al callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contributions
        #print "$ca <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2606	2715	
==>ift;
    my $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20127	20226	
==>anguage is in a separate file, and adding a localization to a Mac OS X
program is as simple as addin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20127	20226	
==>anguage is in a separate file, and adding a localization to a Mac OS X
program is as simple as addin <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	464	585	
==>Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Confi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6789	6887	
==>e PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6789	6887	
==>e PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6789	6887	
==>e PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8795	8932	
==>);

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8795	8932	
==>);

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1688	1803	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1881	1996	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::g <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2739	2835	
==>ns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $other) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2739	2835	
==>ns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $other) returns <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13046	13141	
==>stringify()`

Return a string representation of the set.

For most recurrence sets, this is '-In <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13046	13141	
==>stringify()`

Return a string representation of the set.

For most recurrence sets, this is '-In <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9301	9427	
==>ss ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $ma <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9301	9427	
==>ss ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $ma <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26939	27038	
==>ults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Mess <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26939	27038	
==>ults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Mess <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11257	11381	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11257	11381	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11257	11381	
==>[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7668	7774	
==>ush @ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(fil <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	871	976	
==>cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9782	9879	
==>ect )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrenc <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9782	9879	
==>ect )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrenc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	804	900	
==>cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::S <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7772	7886	
==>g = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2069	2177	
==>g = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2069	2177	
==>g = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2069	2177	
==>g = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16960	17075	
==>{
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1860	1963	
==>eturn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1860	1963	
==>eturn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1860	1963	
==>eturn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETC <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1051	1190	
==>e15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

-------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1143	1263	
==>exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } final <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1143	1263	
==>exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } final <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1143	1263	
==>exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } final <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20384	20486	
==>er is currently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19332	19434	
==>er is currently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20384	20486	
==>er is currently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19332	19434	
==>er is currently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7053	7163	
==>($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7053	7163	
==>($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2671	2777	
==>} else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Func <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2671	2777	
==>} else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Func <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	228	348	
==>t::Coercer::Null;

        method bind ( Code &fun, Array of Str @args ) {
            $fun.assuming( *self.parse_argumen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11827	11912	
==>s::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Intern <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11827	11912	
==>s::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Intern <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11827	11912	
==>s::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Intern <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8255	8418	
==>tch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8255	8418	
==>tch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shif <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	501	621	
==>in32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	501	621	
==>in32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6117	6224	
==>ile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documente <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5907	6011	
==>ile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documente <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	694	811	
==>rse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5871	5958	
==>ss::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5871	5958	
==>ss::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5871	5958	
==>ss::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	144	239	
==>and substitution are used, and
# this brute-force, simplistic, and extremely foolish
# script, i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11407	11500	
==>des more predictable 
behavior to class consturction because it isolates the Role specifc
code <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11407	11500	
==>des more predictable 
behavior to class consturction because it isolates the Role specifc
code <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11407	11500	
==>des more predictable 
behavior to class consturction because it isolates the Role specifc
code <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	161	284	
==>heck               qw[check];
use Log::Message::Simple        qw[:STD];
use Module::Load::Conditional   qw[can_load];
use Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30330	30452	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30330	30452	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30330	30452	
==>turn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	721	814	
==>) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	721	814	
==>) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	721	814	
==>) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18243	18328	
==>icalORExpressionNoIn> <'||'> <LogicalANDExpressionNoIn>
}
rule ConditionalExpression : <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2923	3045	
==>ild
    my $path     = $self->meta->package;
    my $builddir = Path::Class::dir( $conf->build_dir . $path );
    my $srcdi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2389	2484	
==>ee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2389	2484	
==>ee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2389	2484	
==>ee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9177	9348	
==>ave to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9177	9348	
==>ave to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9177	9348	
==>ave to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!! <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8337	8447	
==>e
been iterated.

=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test   --> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	159	264	
==>y $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.* <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17848	17943	
==>eared in the character class.  The
character class C<[A-CB-E]> would have a character map of C<< <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1557	1645	
==>rent.depth() + 1;
}

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1557	1645	
==>rent.depth() + 1;
}

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25335	25440	
==>iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24099	24204	
==>iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25335	25440	
==>iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24099	24204	
==>iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10590	10727	
==>{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10590	10727	
==>{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10590	10727	
==>{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @pa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28275	28381	
==>er order app with uneq types";

# a helper that returns the stringified type of an AST
sub t {
	my $ast = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5859	6041	
==>om_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5859	6041	
==>om_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5859	6041	
==>om_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shif <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2204	2300	
==>al solvers usually do
a bit of algorithm switching.  When their fast method fails, they fall back <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2565	2674	
==>, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2565	2674	
==>, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	60	157	
==>SION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
u <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	60	157	
==>SION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12705	12907	
==>1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12699	12901	
==>1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41104	41198	
==>ed sample usage and patch
code, that supports embedding of Template modules into the same files <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41104	41198	
==>ed sample usage and patch
code, that supports embedding of Template modules into the same files <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23747	23935	
==>get the last one
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    push @canon, $last;
                } else {
                    pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15987	16090	
==>Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15987	16090	
==>Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15987	16090	
==>Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1446	1565	
==>++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1446	1565	
==>++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1446	1565	
==>++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pas <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15946	16045	
==>) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1808	1927	
==>.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1808	1927	
==>.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check tha <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	342	441	
==>ract author license
    distribution_type perl_version tests
>;
my @tuple_keys = qw<
    build_requi <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	293	380	
==>::Path ();

@inc::Module::Install::ISA = 'Module::Install';
*inc::Module::Install::VERSI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5954	6182	
==>and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XXX clean up l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	301	430	
==>[ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acces <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	301	430	
==>[ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acces <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	301	430	
==>[ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acces <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	206	305	
==>urpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	206	305	
==>urpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	206	305	
==>urpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28209	28309	
==>ed.>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29220	29320	
==>ed.>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32761	32861	
==>ed.>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33772	33872	
==>ed.>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2087	2187	
==>phers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 F <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2087	2187	
==>phers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 F <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	95	193	
==>';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command lin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	95	193	
==>';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command lin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2904	3052	
==>$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2904	3052	
==>$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	335	468	
==>ike methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	325	449	
==>ike methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2411	2520	
==>... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2411	2520	
==>... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2411	2520	
==>... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5956	6081	
==>te;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5956	6081	
==>te;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5956	6081	
==>te;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPR <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2151	2244	
==>ion of arbitrary code;
each alternate engine may introduce additional security or memory probl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14656	14785	
==>lf);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14656	14785	
==>lf);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14656	14785	
==>lf);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populate <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29260	29372	
==>{
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=cut

$::Class->send('add_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11737	11859	
==>) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4380	4502	
==>) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1046	1158	
==>compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented ye <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1046	1158	
==>compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented ye <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	73	200	
==>::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SE <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	73	200	
==>::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14697	14808	
==>===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14697	14808	
==>===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8090	8204	
==>ay using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8090	8204	
==>ay using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8090	8204	
==>ay using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9847	9960	
==>rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13362	13467	
==>_DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,}) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13362	13467	
==>_DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,}) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19231	19326	
==>henticate

This header must be included as part of a C<401 Unauthorized> response.
The field val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19231	19326	
==>henticate

This header must be included as part of a C<401 Unauthorized> response.
The field val <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1738	1854	
==>($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict ' <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1738	1854	
==>($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict ' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6441	6538	
==>de_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'T <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6441	6538	
==>de_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1672	1794	
==>)
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1683	1805	
==>)
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::cons <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3650	3754	
==>es}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    } <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26071	26169	
==>define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_N <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9512	9629	
==>_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $tex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9512	9629	
==>_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $tex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14857	14949	
==>B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14857	14949	
==>B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3593	3704	
==>hter => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1422	1515	
==>n func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1422	1515	
==>n func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1422	1515	
==>n func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1685	1790	
==>ol:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1685	1790	
==>ol:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1685	1790	
==>ol:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1502	1740	
==>}
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1502	1740	
==>}
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1902	1996	
==>ixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>). <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1902	1996	
==>ixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>). <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1549	1655	
==>n Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1549	1655	
==>n Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1896	1995	
==>d in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintext <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1896	1995	
==>d in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintext <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4770	4876	
==>max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4770	4876	
==>max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4770	4876	
==>max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: C <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6979	7076	
==>cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($conte <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7037	7134	
==>cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($conte <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31528	31623	
==>t that is specific
to it, another library likewise, and a program which uses both libraries
coul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31528	31623	
==>t that is specific
to it, another library likewise, and a program which uses both libraries
coul <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1474	1600	
==>($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3942	4035	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3942	4035	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3942	4035	
==>IL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13910	14010	
==>ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13910	14010	
==>ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13910	14010	
==>ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8665	8764	
==>ot_an_array_index($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14420	14566	
==>y_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14420	14566	
==>y_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2292	2391	
==>f data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2292	2391	
==>f data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13946	14043	
==>rloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10173	10270	
==>rloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13946	14043	
==>rloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10173	10270	
==>rloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1607	1723	
==>i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1607	1723	
==>i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1607	1723	
==>i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4932	5041	
==>acros. (The numeric
    rxmods are recognized by fallback macros defined with an empty operator
    name.)
--- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10976	11079	
==>imple container which stores data to be used or
displayed by your program.  It is analagous to a simplif <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14139	14242	
==>imple container which stores data to be used or
displayed by your program.  It is analagous to a simplif <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10976	11079	
==>imple container which stores data to be used or
displayed by your program.  It is analagous to a simplif <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14139	14242	
==>imple container which stores data to be used or
displayed by your program.  It is analagous to a simplif <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	536	691	
==>m = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	536	691	
==>m = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	653	769	
==>$match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widg <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	653	769	
==>$match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5416	5547	
==>instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5416	5547	
==>instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5416	5547	
==>instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15037	15155	
==>Perl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	356	466	
==>ase qw/Blondie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1698	1804	
==>C};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a decl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1698	1804	
==>C};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a decl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1698	1804	
==>C};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a decl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24098	24192	
==>oid loops between a client automatically sending something
  in response to something it receiv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22871	22965	
==>oid loops between a client automatically sending something
  in response to something it receiv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24098	24192	
==>oid loops between a client automatically sending something
  in response to something it receiv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22871	22965	
==>oid loops between a client automatically sending something
  in response to something it receiv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11834	11954	
==>$name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4477	4597	
==>$name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4005	4250	
==>$t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15150	15270	
==>return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15150	15270	
==>return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15150	15270	
==>return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	279	379	
==>s) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	279	379	
==>s) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	279	379	
==>s) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	439	565	
==>ol $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	439	565	
==>ol $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34066	34167	
==>, a match in found in the most preferred language
is used.  Each Set Name can be any defined and non-e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34066	34167	
==>, a match in found in the most preferred language
is used.  Each Set Name can be any defined and non-e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3365	3481	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3365	3481	
==>Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19159	19270	
==>oup
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15580	15691	
==>oup
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1259	1352	
==>@{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1259	1352	
==>@{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1259	1352	
==>@{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7151	7263	
==>stalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to d <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	452	564	
==>stalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8285	8392	
==>ti method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11762	11869	
==>ti method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The hea <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	856	1018	
==>{
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	856	1018	
==>{
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1101	1203	
==>}
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answer <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1101	1203	
==>}
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answer <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1635	1903	
==>qw(
          BEGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2891	2987	
==>se strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2891	2987	
==>se strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2891	2987	
==>se strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2833	2937	
==>5, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point(15, 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3425	3512	
==>'} = $Object;

## ---------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4119	4206	
==>'} = $Object;

## ---------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5327	5414	
==>'} = $Object;

## ---------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3053	3159	
==>h.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3053	3159	
==>h.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3053	3159	
==>h.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> on <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1780	1876	
==>(rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4852	4977	
==>ix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4852	4977	
==>ix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12809	12920	
==>!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12809	12920	
==>!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28864	28983	
==>' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a numbe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28864	28983	
==>' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a numbe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	231	338	
==>' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a numbe <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24107	24205	
==>0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9146	9264	
==>sh {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12998	13113	
==>sh {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12998	13113	
==>sh {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2150	2255	
==>ame> . " = Pugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2717	2863	
==>'equal',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32451	32565	
==>er:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' node is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5904	6005	
==>conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5904	6005	
==>conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5904	6005	
==>conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13862	13988	
==>ss => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13862	13988	
==>ss => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13862	13988	
==>ss => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => <==
4	/Users/nnunley/pugs/util/package-osx.pl	5849	5946	
==>man3/Perl6::Overview::Data.3pm
        /usr/local/man/man3/Perl6::Overview::File.3
        /usr/lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8743	8843	
==>oo is the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1104	1249	
==>ss $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1104	1249	
==>ss $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1104	1249	
==>ss $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self- <==
4	/Users/nnunley/pugs/util/drift.pl	430	568	
==>!";

open IN, $in or die $!;
while (<IN>) {
    if (/\{-!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhe <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3279	3406	
==>ue;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unesca <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3279	3406	
==>ue;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unesca <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3441	3538	
==>xpected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## u <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3499	3596	
==>xpected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## u <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3963	4079	
==>sa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3963	4079	
==>sa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32397	32491	
==>ly be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32397	32491	
==>ly be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::Keyed <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4560	4680	
==>'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = spri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4343	4458	
==>'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = spri <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4126	4227	
==>ult
to 1 if not given.

The value for day can also be the string "last", in which case the
object retu <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4126	4227	
==>ult
to 1 if not given.

The value for day can also be the string "last", in which case the
object retu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7148	7266	
==>_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12017	12114	
==>=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12017	12114	
==>=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12017	12114	
==>=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@clas <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7181	7280	
==>rn-name-shadowing ";
    $ghc_flags .= " -I../../src -i../../src "
      if $self->is_extension_buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6232	6324	
==>a helper to other functions.  

=cut

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6232	6324	
==>a helper to other functions.  

=cut

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6232	6324	
==>a helper to other functions.  

=cut

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	593	691	
==>nt();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	593	691	
==>nt();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $ <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	707	801	
==>te.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
} <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	707	801	
==>te.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2657	2768	
==>=> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2657	2768	
==>=> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2657	2768	
==>=> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35972	36068	
==>ff2 .. reffN
(C<\1>, C<\2>, etc. with C</i> on)

=head2 ifmatch

Family: assertion

Types: ifmatc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3186	3326	
==>$line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3186	3326	
==>$line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3186	3326	
==>$line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11794	11913	
==>nother digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11794	11913	
==>nother digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11941	12039	
==>TML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_e <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11941	12039	
==>TML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6853	6968	
==>_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6853	6968	
==>_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6853	6968	
==>_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21076	21173	
==>tches.  This makes things flow more
cleanly.

=item Flag Handlers

Flag handlers now receive an ad <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11731	11827	
==>with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11731	11827	
==>with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12550	12643	
==>tem $h.remove_header( $field, ... )

This function removes the header fields with the specifie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12550	12643	
==>tem $h.remove_header( $field, ... )

This function removes the header fields with the specifie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7698	7807	
==>lize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/sh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7698	7807	
==>lize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7380	7486	
==>piler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $cl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7380	7486	
==>piler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	473	571	
==>is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	473	571	
==>is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	473	571	
==>is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%para <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2146	2250	
==>method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2146	2250	
==>method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3308	3429	
==>rp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3308	3429	
==>rp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3664	3785	
==>rp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35864	35967	
==>atch => 1, @$_);
    }

The 'ifmatch' object is a positive looking assertion, and the argument
of 1 mean <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2043	2144	
==>pile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2043	2144	
==>pile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2043	2144	
==>pile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=j <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	672	767	
==>changing from an experimental "let's see if something
like this can work" to "ok, this looks doa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4859	4964	
==>infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3986	4091	
==>infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4859	4964	
==>infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3986	4091	
==>infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subse <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1817	1923	
==>i
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1877	1983	
==>i
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[: <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1520	1613	
==>se download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), th <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1360	1453	
==>se download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), th <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4209	4320	
==>p:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4209	4320	
==>p:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15513	15609	
==>sto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15513	15609	
==>sto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4590	4693	
==>t')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    does => [ $:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13923	14020	
==>($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13923	14020	
==>($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13923	14020	
==>($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $x <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1661	1799	
==>"any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $do <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1661	1799	
==>"any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $do <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	792	918	
==>ailed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	759	885	
==>ailed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10453	10573	
==>n" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2470	2578	
==>n" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2470	2578	
==>n" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17725	17858	
==>::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17725	17858	
==>::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17725	17858	
==>::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3231	3320	
==>return $self->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->stru <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1624	1753	
==>args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2205	2334	
==>args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1624	1753	
==>args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2205	2334	
==>args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3621	3728	
==>ent', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3621	3728	
==>ent', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	471	578	
==>ent', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h ' <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13170	13273	
==>oc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6949	7155	
==>on $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10426	10632	
==>on $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi met <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3042	3136	
==>rams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3042	3136	
==>rams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	765	881	
==>,
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	765	881	
==>,
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	765	881	
==>,
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9749	9839	
==>x_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	652	779	
==>ct->{package} }->{bin} ) {
        print "\t*** Primary alternative for:\n";
        for my $alt (@$aref) {
            print "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2914	3014	
==>name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2914	3014	
==>name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2914	3014	
==>name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4204	4307	
==>_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4204	4307	
==>_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4204	4307	
==>_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    : <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	465	594	
==>pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the keys in the meta info
    value is a re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	818	926	
==>.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	818	926	
==>.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	818	926	
==>.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26944	27038	
==>e as C<project> but that the returned Relation has
the complement subset of the original's attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31496	31590	
==>e as C<project> but that the returned Relation has
the complement subset of the original's attr <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4840	4996	
==>0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4840	4996	
==>0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49319	49426	
==>my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:version'), $e->get('?$versio <==
4	/Users/nnunley/pugs/util/package-osx.pl	7962	8059	
==>l6::Spec::Overload.3pm
        /usr/local/man/man3/Perl6::Spec::Overview.3pm
        /usr/local/ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3631	3735	
==>bject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Dat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3631	3735	
==>bject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Dat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3631	3735	
==>bject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Dat <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3938	4040	
==>ble() if ($whitespacePosition <= $position);

  expect_term_1:
  my $key = $$currentTermTable->lkey($ta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18776	18874	
==>fic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17819	17917	
==>fic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18776	18874	
==>fic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17819	17917	
==>fic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_t <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	466	556	
==>companion => "subclasses" });
Has($?CLASS, "subclasses", "Set", { companion => "superclasse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	242	330	
==>6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	242	330	
==>6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	242	330	
==>6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7092	7182	
==>::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7092	7182	
==>::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7092	7182	
==>::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	50	133	
==>r/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm"
package Module::I <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9953	10080	
==>lar order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7893	8020	
==>lar order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no p <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9953	10080	
==>lar order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no p <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7893	8020	
==>lar order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42988	43129	
==>send('add_method' => (
    # method label
        symbol->new('can'),
    # method body
        method->new(
            $::ENV,
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	403	512	
==>str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	403	512	
==>str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	403	512	
==>str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1157	1253	
==>mar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1929	2030	
==>:BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1929	2030	
==>:BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1929	2030	
==>:BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUn <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	439	537	
==>::Perl::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6745	6847	
==>);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_);
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20624	20718	
==>:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20624	20718	
==>:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20624	20718	
==>:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5637	5759	
==>) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5637	5759	
==>) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10179	10268	
==>,"\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0]) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10914	11003	
==>,"\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0]) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2221	2326	
==>t_data( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node::rule_decl {
    my $name = get_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	209	359	
==>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	209	359	
==>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1770	1907	
==>=> $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1770	1907	
==>=> $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1626	1721	
==>turns bit>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1054	1157	
==>or( Params::Check->last_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2844	2936	
==>ll::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2844	2936	
==>ll::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2844	2936	
==>ll::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22682	22778	
==>ontains all possibly useful details, so
that each Template can optionally use them; but often a t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22682	22778	
==>ontains all possibly useful details, so
that each Template can optionally use them; but often a t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1154	1244	
==>gine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1154	1244	
==>gine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7665	7780	
==>e quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7665	7780	
==>e quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd = <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2059	2154	
==>mber of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2059	2154	
==>mber of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1134	1255	
==>en_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4373	4494	
==>en_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1134	1255	
==>en_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4373	4494	
==>en_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8851	8951	
==>chObj );

  ternary_error:
  $matchObjPos = -1;
  die "Missing ternary close at offset $whitespacePos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	950	1047	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	950	1047	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	950	1047	
==>bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1307	1426	
==>)->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1307	1426	
==>)->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1307	1426	
==>)->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_insta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	346	598	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	346	598	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6370	6509	
==>ately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6370	6509	
==>ately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1104	1205	
==>e => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1104	1205	
==>e => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1104	1205	
==>e => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2197	2294	
==>class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1042	1145	
==>ame => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1042	1145	
==>ame => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1042	1145	
==>ame => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1536	1638	
==>obj.
# Just  prove regexp_engine_demo.t   or somesuch.

# Test status:
# Currently at 92% pass. 3sec ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	965	1079	
==>y $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	965	1079	
==>y $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	965	1079	
==>y $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24310	24409	
==>print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36833	37002	
==>es'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16488	16586	
==>};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16488	16586	
==>};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16488	16586	
==>};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (* <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10251	10367	
==>return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10251	10367	
==>return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6243	6354	
==>$char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6231	6342	
==>$char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $nu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3590	3687	
==>nvironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3590	3687	
==>nvironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	440	537	
==>nvironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20837	20921	
==>ype 'OBJ':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19711	19813	
==>ally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18692	18794	
==>ally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19711	19813	
==>ally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18692	18794	
==>ally tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24265	24382	
==>turn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20686	20803	
==>turn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4408	4505	
==>bjects, keyed by their names.

=head2 &{}

When used as a code reference, the match object returns <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4408	4505	
==>bjects, keyed by their names.

=head2 &{}

When used as a code reference, the match object returns <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4105	4228	
==>if( $self->{saw_lone_not} && 
            ($self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1331	1435	
==>l;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1331	1435	
==>l;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1331	1435	
==>l;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_j <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2362	2632	
==>"</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2362	2632	
==>"</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23781	23919	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20202	20340	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	838	946	
==>can {
		my $self = shift;
		my $key = shift;

		exists $self->{$key} || $self->SUPER::can($key);
	}

	sub get <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12641	12742	
==>typ = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" if !defined $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	736	836	
==>hout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	736	836	
==>hout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	736	836	
==>hout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	933	1055	
==>value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	933	1055	
==>value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	933	1055	
==>value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1284	1393	
==>er ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @valu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13634	13741	
==>ly eq "flags";

    # quantifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED)
      if $tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12744	12843	
==>$class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12744	12843	
==>$class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12744	12843	
==>$class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3002	3108	
==>hift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infin <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3002	3108	
==>hift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infin <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2061	2160	
==>.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2061	2160	
==>.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2903	3005	
==>or.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't fi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2903	3005	
==>or.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't fi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1582	1678	
==>nes.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1582	1678	
==>nes.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4895	5071	
==>onstant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4743	4914	
==>onstant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1202	1330	
==>ssions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1202	1330	
==>ssions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7059	7164	
==>end of line, in single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $S->warn(R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3841	3929	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3841	3929	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3841	3929	
==>PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_fo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17516	17661	
==>$X::pos = $start;
    local $X::cap = [];
    my $m = MatchX->new();
    local $X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3194	3305	
==>d.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3194	3305	
==>d.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3194	3305	
==>d.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which do <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2406	2528	
==>ndices --> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# co <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4479	4590	
==>-initrd-img=$initrd_img
    --initrd-img is the temporary image of the initrd, which will be mounted.
  --initrd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1157	1256	
==>ch is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1157	1256	
==>ch is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1157	1256	
==>ch is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write out <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1957	2057	
==>th(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1957	2057	
==>th(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6971	7064	
==>t_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number} <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6971	7064	
==>t_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number} <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1571	1677	
==>r.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    met <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1571	1677	
==>r.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    met <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	222	326	
==>se IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inli <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	222	326	
==>se IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inli <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9078	9176	
==>ing HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9078	9176	
==>ing HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21854	21946	
==>etta.  See the file L<Rosetta::Overview>
documentation in this distribution for that comparis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21854	21946	
==>etta.  See the file L<Rosetta::Overview>
documentation in this distribution for that comparis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8836	9033	
==>param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8836	9033	
==>param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8836	9033	
==>param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retur <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14389	14494	
==>y($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug $re <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12594	12688	
==>t working features.

This module deals with encoding and decoding of strings with HTML
characte <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12594	12688	
==>t working features.

This module deals with encoding and decoding of strings with HTML
characte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6204	6338	
==>s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6204	6338	
==>s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6204	6338	
==>s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1400	1526	
==>y @args = $string.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2138	2238	
==>is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2138	2238	
==>is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2138	2238	
==>is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $ar <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10655	10741	
==>tp://svn.openfoundry.org/pugs/util/smokeserv/README">smokeserv's
    README</a> for det <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	209	308	
==>ay package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	209	308	
==>ay package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11131	11228	
==>params) returns opaque {
    $class.bless(undef, %params // hash());
}

(method new ((opaque $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10949	11065	
==>};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_tab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10949	11065	
==>};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_tab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10949	11065	
==>};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_tab <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7466	7576	
==>this useful?
# =head2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	544	747	
==>y @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	544	747	
==>y @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	544	747	
==>y @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    e <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5984	6082	
==>designdocs) { 
    my $syn_index = catfile($output_dir,"Synopsis", "index.html");
    open( $fh, "> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23316	23442	
==>my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19737	19863	
==>my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8237	8335	
==>span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8237	8335	
==>span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7459	7634	
==>xp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 api;

    nulpat = savepv(""); /*XXX - can be constant? */
    r = Perl_pregcomp(aTHX_ nulp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4795	4915	
==>ue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4795	4915	
==>ue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1701	1821	
==>ue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7701	7826	
==>B reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7701	7826	
==>B reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7701	7826	
==>B reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16513	16627	
==>y) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16513	16627	
==>y) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17501	17607	
==>y) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17501	17607	
==>y) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	699	816	
==>PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$strin <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	515	631	
==>et::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  C <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	515	631	
==>et::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  C <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3379	3508	
==>e()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are " <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3379	3508	
==>e()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are " <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2147	2250	
==>ce
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $.u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2147	2250	
==>ce
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1049	1153	
==>l5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1049	1153	
==>l5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1049	1153	
==>l5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_funct <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	2	94	
==>err-Operator
# In Perl 5 Programmen verbreitet (aber fehleranfällig!):
my $option = $para{'x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1611	1727	
==>nity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1611	1727	
==>nity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1611	1727	
==>nity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3814	3914	
==>t>

The wait status of the test.

=item B<Total>

Total number of tests expected to run.

=item B<Fai <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3411	3639	
==>raph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3459	3687	
==>raph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_l <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3411	3639	
==>raph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_l <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3459	3687	
==>raph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1491	1586	
==>(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1491	1586	
==>(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1491	1586	
==>(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6039	6166	
==>ast ]
        }
        $t=['',''] unless $match; # defined($t);

        #print "expect NUM \n" if grep { $_ eq 'NUM' } @expect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6422	6529	
==>MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6422	6529	
==>MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6422	6529	
==>MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1181	1354	
==>%events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_elem <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1181	1354	
==>%events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_elem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4155	4306	
==>lemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4155	4306	
==>lemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8531	8666	
==>rep (MatchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=ite <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1651	1759	
==>($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	396	499	
==>ad numeric value ($value)";
    bless \$value => $class;
}

# conversion to native value
sub to_native { <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	914	1016	
==>my $config_default    = 'config.yml';
    my $config_template   = 'util/config-template.yml';
    $file <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	748	861	
==>$pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	748	861	
==>$pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1759	1861	
==>et = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1759	1861	
==>et = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	23	128	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	23	128	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	23	126	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	23	126	
==>6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Pe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1306	1643	
==>f $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # Exter <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1306	1643	
==>f $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # Exter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22944	23124	
==>ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23223	23403	
==>ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5081	5191	
==>'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2623	2733	
==>'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3404	3514	
==>'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40912	41005	
==>s a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26472	26565	
==>s a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40912	41005	
==>s a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26472	26565	
==>s a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8407	8503	
==>you don't care to intercept the building of the tree, you can use the
parse() method to explicitl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1916	2006	
==>aration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1916	2006	
==>aration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1916	2006	
==>aration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2591	2740	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7685	7834	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2591	2740	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7685	7834	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22466	22565	
==>ag and non-capturing group constructs.

=back

=head2 0.01 -- June 29, 2004

=over 4

=item First Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35699	35792	
==>s Relation>

This multi-method is a generic binary relational operator that takes
another Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40249	40342	
==>s Relation>

This multi-method is a generic binary relational operator that takes
another Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3359	3469	
==>def
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3359	3469	
==>def
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3359	3469	
==>def
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	957	1058	
==>y $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$cal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	394	542	
==>spatcher
# TODO - generate AST

*ident = Pugs::Compiler::Rule->compile( '
            [
                [ \:\: ]?
                [ \_ | <alnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16220	16320	
==>ou get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    packag <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16220	16320	
==>ou get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	53	150	
==>'confess';
use Test::More tests => 30;

=pod

Mini-Prototype-Model

This is a very basic prototype <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2018	2109	
==>d with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / objec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2107	2198	
==>d with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4446	4572	
==>->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4446	4572	
==>->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4446	4572	
==>->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->ele <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20788	20883	
==>e
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt sh <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	539	660	
==>,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18219	18311	
==>ix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18219	18311	
==>ix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18219	18311	
==>ix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21737	21835	
==>p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21737	21835	
==>p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21737	21835	
==>p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB conn <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1219	1397	
==>hierarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4475	4600	
==>l {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7346	7448	
==>{
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7404	7506	
==>{
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2228	2341	
==>s->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2409	2507	
==>lf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2409	2507	
==>lf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2409	2507	
==>lf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9603	9723	
==>elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9603	9723	
==>elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9603	9723	
==>elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2494	2612	
==>[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2399	2512	
==>[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19372	19463	
==>is that data definition statements are structured as
standard data manipulation statements b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19372	19463	
==>is that data definition statements are structured as
standard data manipulation statements b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4182	4294	
==>1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'}->value }
sub as_pil_tree { $_[0]{'pil_tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	296	395	
==>=> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	296	395	
==>=> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	296	395	
==>=> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1869	1993	
==>per
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1929	2053	
==>per
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28797	28910	
==>ave:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODB <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28797	28910	
==>ave:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODB <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20854	20947	
==>[CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2107	2188	
==>($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2107	2188	
==>($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2107	2188	
==>($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6821	6975	
==>ne $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6821	6975	
==>ne $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14286	14380	
==>ue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14286	14380	
==>ue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19278	19380	
==>ings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23830	23932	
==>ings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22346	22448	
==>ings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and <==
4	/Users/nnunley/pugs/util/importgraph.pl	1849	1934	
==>/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5650	5771	
==>join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5650	5771	
==>join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5650	5771	
==>join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16332	16460	
==>rig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      retur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16332	16460	
==>rig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1739	1844	
==>hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1739	1844	
==>hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	129	229	
==>lement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	129	229	
==>lement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	129	229	
==>lement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35518	35616	
==>kids is an array that holds array references; each of those array
references is the body of one and <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8679	8816	
==>w( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even int <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8679	8816	
==>w( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even int <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24680	24779	
==>t your option) any later version.  You should have received a
copy of the GPL as part of the Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24680	24779	
==>t your option) any later version.  You should have received a
copy of the GPL as part of the Rosetta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24567	24673	
==>}, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20988	21094	
==>}, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside if <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3726	3819	
==>ntersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3726	3819	
==>ntersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2497	2628	
==>]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1050	1146	
==>ode $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1050	1146	
==>ode $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1050	1146	
==>ode $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9542	9669	
==>sif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9542	9669	
==>sif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9542	9669	
==>sif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fin <==
4	/Users/nnunley/pugs/util/testgraph.pl	976	1081	
==>L summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header (for broken webs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28835	28934	
==>l (Relation::Example $other!) returns Bool>

This method returns the complement of C<equal> with the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6851	6950	
==>$1), "\\x$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2036	2156	
==>d_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2036	2156	
==>d_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2036	2156	
==>d_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show thi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3566	3689	
==>4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about whether t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10050	10156	
==>r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10050	10156	
==>r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10050	10156	
==>r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2985	3096	
==>t - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think yo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2985	3096	
==>t - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think yo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2985	3096	
==>t - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1989	2092	
==>_call_term {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<param <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14230	14334	
==>autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server." <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14230	14334	
==>autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server." <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16661	16762	
==>ule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16661	16762	
==>ule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11670	11786	
==>age Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7403	7490	
==>os[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7403	7490	
==>os[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7403	7490	
==>os[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4640	4778	
==>MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4640	4778	
==>MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4640	4778	
==>MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22513	22638	
==>ch;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2757	2877	
==>next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2757	2877	
==>next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7405	7501	
==>$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7405	7501	
==>$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kick <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27487	27587	
==>ng Message object, you must create a new
object that is a clone of the first but for the changes.

=b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27487	27587	
==>ng Message object, you must create a new
object that is a clone of the first but for the changes.

=b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33222	33321	
==>searched in the order
they appear in this array until a match for that message is found.  Since a
pr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33222	33321	
==>searched in the order
they appear in this array until a match for that message is found.  Since a
pr <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	30	138	
==>::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration c <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	30	138	
==>::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16689	16796	
==>ibrary for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16689	16796	
==>ibrary for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5258	5358	
==>m C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as comp <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5258	5358	
==>m C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as comp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34302	34402	
==>tcher', symbol->new(':canonical')));
                $e->create('$next' => $e->get('$dispatcher')->do <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2829	2945	
==>$cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33873	33986	
==>_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33873	33986	
==>_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33873	33986	
==>_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17554	17652	
==>IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4511	4609	
==>xample: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17554	17652	
==>IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4511	4609	
==>xample: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2562	2746	
==>>hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $self = shift;
                # FIXME context should be propagated to methods
                sca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19795	19890	
==>zation header that use the
"Basic Authentication Scheme".  In array context it will return two
v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19795	19890	
==>zation header that use the
"Basic Authentication Scheme".  In array context it will return two
v <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40583	40794	
==>arams')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3047	3163	
==>de?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a woul <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3047	3163	
==>de?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a woul <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3047	3163	
==>de?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a woul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5928	6029	
==>as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5928	6029	
==>as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5928	6029	
==>as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2707	2812	
==>omponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2707	2812	
==>omponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2707	2812	
==>omponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [lin <==
4	/Users/nnunley/pugs/util/combine_tests.pl	111	210	
==>ta = map { YAML::LoadFile($_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#print YAML::Dump($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	162	296	
==>*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            progr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	162	296	
==>*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            progr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2917	3021	
==>eturn Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2917	3021	
==>eturn Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2517	2652	
==>{
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2517	2652	
==>{
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17646	17739	
==>header field is used in request messages and contains information
about the user agent origina <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17646	17739	
==>header field is used in request messages and contains information
about the user agent origina <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	818	925	
==>-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	818	925	
==>-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	818	925	
==>-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair- <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1165	1264	
==>= $self->{_top}{base};
    my $blib = ($perl_version == 5 || $self->is_extension_build)
    ? 'blib' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2718	2822	
==>)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2718	2822	
==>)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	369	472	
==>mpty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	369	472	
==>mpty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2984	3092	
==>ternal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objec <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2984	3092	
==>ternal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objec <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	593	697	
==>lts ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Ar <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	593	697	
==>lts ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Ar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21173	21271	
==>of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25725	25823	
==>of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	616	711	
==>Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	616	711	
==>Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	743	858	
==>.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3ap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	743	858	
==>.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3ap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	743	858	
==>.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3ap <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4099	4288	
==>el::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4099	4288	
==>el::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15327	15425	
==>ce this return value is a type variable that is present inside the function, if it was free it migh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	200	316	
==>1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	164	279	
==>1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	252	367	
==>1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4775	4878	
==>E::Match");
    my $temp2 = $whitespacePosition;
    push @termStack, $operator;
    goto expect_operato <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2228	2335	
==>'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2228	2335	
==>'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11415	11510	
==>ed you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11473	11568	
==>ed you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7114	7221	
==>_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - nee <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7114	7221	
==>_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - nee <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7114	7221	
==>_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - nee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7511	7626	
==>rgl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7511	7626	
==>rgl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7511	7626	
==>rgl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8626	8724	
==>ee has not been made yet.

=head2 Setting and Parsing Together

You can also use parse() instead of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11294	11435	
==>p->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11294	11435	
==>p->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11294	11435	
==>p->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3464	3568	
==>> := (.*?) <p6ws>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14204	14335	
==>. ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14198	14329	
==>. ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6747	6865	
==>oaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we assu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6747	6865	
==>oaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we assu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1141	1252	
==>tart => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1141	1252	
==>tart => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	909	1050	
==>r ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	909	1050	
==>r ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10084	10181	
==>of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 1 <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10084	10181	
==>of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12742	12909	
==>{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12742	12909	
==>{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12742	12909	
==>{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11287	11403	
==>ses.)
  </p>

  <table>
    <tmpl_loop name=runcores>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name> <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9309	9455	
==>ndows
            # land, and it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/cygdrive|[A-Z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3179	3289	
==>ess eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3179	3289	
==>ess eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3179	3289	
==>ess eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23855	23960	
==>and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule app <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22628	22733	
==>and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule app <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23855	23960	
==>and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule app <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22628	22733	
==>and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule app <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1957	2056	
==>e $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2015	2114	
==>e $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $ex <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	682	781	
==>iate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	888	987	
==>iate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	546	642	
==>{lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	546	642	
==>{lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35709	35800	
==>onal operator that takes a single
Relation::Example in its C<$other> argument, where <$other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37741	37832	
==>onal operator that takes a single Relation::Example
in its C<$other> argument, where <$other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4124	4248	
==>ault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4124	4248	
==>ault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4124	4248	
==>ault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15100	15203	
==>?{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7709	7809	
==>h, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9637	9737	
==>h, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7697	7797	
==>h, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15498	15698	
==>nal(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15777	15977	
==>nal(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2661	2768	
==>( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2649	2756	
==>( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10604	10725	
==>{
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16601	16706	
==>use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16601	16706	
==>use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16601	16706	
==>use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5573	5673	
==>one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4703	4803	
==>one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5573	5673	
==>one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4703	4803	
==>one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18528	18630	
==>s an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17564	17666	
==>s an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18528	18630	
==>s an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17564	17666	
==>s an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	158	263	
==>xpression;
use Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16621	16721	
==>tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16621	16721	
==>tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16621	16721	
==>tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3928	4101	
==>@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3928	4101	
==>@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3928	4101	
==>@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5171	5293	
==>gn from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	562	684	
==>in ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => joi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	463	585	
==>in ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => joi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11385	11479	
==>B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11385	11479	
==>B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	587	729	
==>return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	580	722	
==>return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$cap <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13932	14035	
==>rns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13990	14093	
==>rns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2049	2163	
==>~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5 <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2049	2163	
==>~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15436	15549	
==>tparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

Other things the wor <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33468	33565	
==>hat are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<int <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38018	38115	
==>hat are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<int <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37407	37504	
==>hat are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<int <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5646	5780	
==>urn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6199	6333	
==>urn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5839	5973	
==>urn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6392	6526	
==>urn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19313	19413	
==>builtin is primitive { die "Cannot 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is builtin is prim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5229	5323	
==>t ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5229	5323	
==>t ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5229	5323	
==>t ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    ret <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6520	6621	
==>_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{eqi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4064	4147	
==>AREA
## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4064	4147	
==>AREA
## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4064	4147	
==>AREA
## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1417	1545	
==>.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2531	2627	
==>new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2531	2627	
==>new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2531	2627	
==>new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Num <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13286	13453	
==>my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3455	3602	
==>my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3455	3602	
==>my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3455	3602	
==>my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (subst <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18118	18252	
==>ontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callback <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17156	17290	
==>ontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callback <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18118	18252	
==>ontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callback <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17156	17290	
==>ontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callback <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2293	2420	
==>{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2293	2420	
==>{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	553	658	
==>spaceTermTable 
    whitespaceOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	608	712	
==>the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	608	712	
==>the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10561	10659	
==>RIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Arr <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10561	10659	
==>RIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Arr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17458	17559	
==>n+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	474	572	
==>equired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	474	572	
==>equired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	474	572	
==>equired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1670	1766	
==>$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1670	1766	
==>$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1670	1766	
==>$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11120	11216	
==>fers from C<$by> in that each criteria is
applied, in order, until a non-zero (tie) result is ach <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13968	14085	
==>"scalar_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2923	3039	
==>e\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2923	3039	
==>e\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2923	3039	
==>e\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8989	9089	
==>ialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parser <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8989	9089	
==>ialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parser <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8627	8726	
==>th (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8627	8726	
==>th (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2152	2307	
==>d_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really ha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2152	2307	
==>d_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14585	14691	
==>");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14585	14691	
==>");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	225	365	
==>per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # w <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	225	365	
==>per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # w <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9830	9945	
==>lf.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9830	9945	
==>lf.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2826	2933	
==>butors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redist <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2983	3090	
==>butors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redist <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2826	2933	
==>butors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redist <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2983	3090	
==>butors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redist <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7483	7595	
==>malize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7483	7595	
==>malize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9329	9423	
==>does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9329	9423	
==>does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4976	5112	
==>e::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4803	4935	
==>e::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	205	294	
==>se Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	205	294	
==>se Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20453	20550	
==>$_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20453	20550	
==>$_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20453	20550	
==>$_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34613	34704	
==>:Parser::THING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is the d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	348	603	
==>packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	348	603	
==>packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies t <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	151	248	
==>ME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use Dat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	151	248	
==>ME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use Dat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19462	19561	
==>push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19741	19840	
==>push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19892	19984	
==>about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Eng <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19892	19984	
==>about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Eng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2902	3010	
==>file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2902	3010	
==>file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2902	3010	
==>file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5452	5556	
==>'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5452	5556	
==>'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5452	5556	
==>'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36216	36312	
==>ily: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array reference of any number of obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12904	13007	
==>for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12904	13007	
==>for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12904	13007	
==>for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($se <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25514	25615	
==>rnCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEscap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1801	1906	
==>ed $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1801	1906	
==>ed $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1801	1906	
==>ed $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'unde <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20390	20489	
==>!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	986	1099	
==>turn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	986	1099	
==>turn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5183	5279	
==>_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5183	5279	
==>_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6808	6916	
==>l_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6808	6916	
==>l_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6808	6916	
==>l_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	85	183	
==>his file
# a method of autogenrating bindings from vtable.h is NEEDED
# please commit - pmurias
pac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10438	10549	
==>ess $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2966	3067	
==>e "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2966	3067	
==>e "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2966	3067	
==>e "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6996	7147	
==>$x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $clo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6996	7147	
==>$x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $clo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23762	23857	
==>th Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23762	23857	
==>th Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	192	287	
==>s because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	192	287	
==>s because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	192	287	
==>s because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24602	24694	
==>accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The usu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24602	24694	
==>accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The usu <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3042	3179	
==>lib::gzerrno";
    }
    $gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2835	2952	
==>print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2835	2952	
==>print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2835	2952	
==>print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7922	8088	
==>:macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $bl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4282	4448	
==>:macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $bl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5131	5297	
==>:macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $bl <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2543	2642	
==>ge {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open ($ <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2057	2173	
==>@till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push @ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10253	10365	
==>eadings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13730	13842	
==>eadings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13011	13123	
==>eadings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standar <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26659	26755	
==>ess will print debugging information about itself as
it runs the tests.  This is different from C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	289	406	
==>ft;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	289	406	
==>ft;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	289	406	
==>ft;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stac <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5623	5739	
==>o delayed writes, as an explicit ->write() call on the
        ### object, like in JIB::Installation
        # and wr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8344	8470	
==>=~ /([^0-7;])/;

      if ($cc) {
        $S->error(0, "\\0[A;B] in character class") if @oct > 1;
        return $S->force_obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17411	17506	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17411	17506	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17411	17506	
==>ke_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cla <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11167	11323	
==>d
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    usi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	547	643	
==>.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	547	643	
==>.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	547	643	
==>.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2181	2292	
==>irectory for perl6 Design POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14492	14578	
==>ay::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'insta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14492	14578	
==>ay::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'insta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14492	14578	
==>ay::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'insta <==
4	/Users/nnunley/pugs/util/drift.pl	163	263	
==>FT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{DERIVEPATH} = "$Bin/../src";

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7016	7113	
==>reate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7016	7113	
==>reate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7016	7113	
==>reate new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	457	561	
==>ans it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# fr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	457	561	
==>ans it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# fr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	457	561	
==>ans it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# fr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9121	9217	
==>umber capture groups with the nparen() method:

  my $captgroups = $parser->nparen;

=head2 Getti <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	638	737	
==>ows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEA <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	638	737	
==>ows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEA <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7783	7880	
==>n0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7783	7880	
==>n0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5008	5133	
==>$i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fetch( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	842	955	
==>trs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	842	955	
==>trs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	842	955	
==>trs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{att <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12353	12459	
==>rn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12632	12738	
==>rn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  , <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14413	14516	
==>iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14413	14516	
==>iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7852	7962	
==>ure       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture' fiel <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3691	3799	
==>);
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of one <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3691	3799	
==>);
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of one <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7586	7694	
==>ure       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture' fiel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	416	622	
==>$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Va <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27620	27715	
==>(or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32172	32267	
==>(or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31264	31359	
==>(or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11956	12065	
==>rt {  # see 9.3.1
      <ExponentIndicator> <SignedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	630	723	
==>ilehandle to which to write all normal output (test results and
descriptions).

=item B<$.erro <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	630	723	
==>ilehandle to which to write all normal output (test results and
descriptions).

=item B<$.erro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1186	1279	
==>ilehandle to which to write all normal output (test results and
descriptions).

=item B<$.erro <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4189	4317	
==>ap = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, maki <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	781	909	
==>= $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we don <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4189	4317	
==>ap = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, maki <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	781	909	
==>= $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we don <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9668	9764	
==>ome misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9726	9822	
==>ome misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18991	19084	
==>onds to the
"relation" of logic and mathematics and philosophy ("a predicate ranging
over more <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22641	22734	
==>onds to the "relation" of logic
and mathematics and philosophy ("a predicate ranging over more <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22974	23070	
==>H_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17430	17560	
==>tr;

            return (ref $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn "weird - $node doesn't fmap <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31707	31801	
==>the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<g <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36257	36351	
==>the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<g <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35493	35587	
==>the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7411	7521	
==>"From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7411	7521	
==>"From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14584	14676	
==>unsafe_chars )

This routine works just like encode_entities, except that the replacement
ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14584	14676	
==>unsafe_chars )

This routine works just like encode_entities, except that the replacement
ent <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5780	5886	
==>$line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5838	5944	
==>$line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11283	11385	
==>ize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11283	11385	
==>ize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5174	5312	
==>ame = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        system( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6876	6968	
==>r) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6876	6968	
==>r) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6876	6968	
==>r) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12846	12974	
==>nted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12846	12974	
==>nted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12846	12974	
==>nted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2479	2579	
==>ate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $con <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2479	2579	
==>ate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10921	11018	
==>der fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10921	11018	
==>der fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4368	4470	
==>::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4368	4470	
==>::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4368	4470	
==>::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $se <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2129	2214	
==>og".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.html
With <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13451	13549	
==>set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backsla <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13451	13549	
==>set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backsla <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6359	6525	
==>c_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4413	4539	
==>p = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4401	4527	
==>p = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2554	2680	
==>g = 'Perl6')
            is primitive is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    h <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	218	329	
==>string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	218	329	
==>string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	218	329	
==>string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	218	329	
==>string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5665	5778	
==>egex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4320	4412	
==>«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4320	4412	
==>«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4320	4412	
==>«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16463	16575	
==>}

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16463	16575	
==>}

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16463	16575	
==>}

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2018	2116	
==>tup_compression {
  eval { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17711	17902	
==>::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19469	19660	
==>::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39921	40111	
==>::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40980	41170	
==>::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30726	30818	
==>her, the corresponding transformation of each tuple), but
that any duplicates following the t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35277	35369	
==>her, the corresponding transformation of each tuple), but
that any duplicates following the t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34468	34560	
==>her, the corresponding transformation of each tuple), but
that any duplicates following the t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1787	1909	
==>'
                #print "checking angle quote ... [$whitespace_before]\n";
                $m = Pugs::Grammar::Term->angle <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13413	13514	
==>thod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13413	13514	
==>thod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13413	13514	
==>thod('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_att <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	588	730	
==>f defined $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	673	765	
==>string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	673	765	
==>string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	673	765	
==>string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1112	1209	
==>s export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1112	1209	
==>s export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($ur <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2202	2310	
==>sign POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory of the out <==
4	/Users/nnunley/pugs/util/package-osx.pl	10826	10933	
==>rot` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	741	839	
==>use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compila <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	741	839	
==>use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compila <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26671	26768	
==>t id(3)");
is(t($plus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5125	5264	
==>,
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.ne <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5125	5264	
==>,
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.ne <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25681	25772	
==>lternate, limited license that allows you to link
Rosetta with non-free software components. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25681	25772	
==>lternate, limited license that allows you to link
Rosetta with non-free software components. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2283	2420	
==>ol = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2271	2408	
==>ol = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24164	24281	
==>ler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20585	20702	
==>ler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	494	608	
==>k_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40369	40478	
==>alue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayre <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40369	40478	
==>alue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayre <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40369	40478	
==>alue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1978	2085	
==>t($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1978	2085	
==>t($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3667	3792	
==>ub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3667	3792	
==>ub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3667	3792	
==>ub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1622	1764	
==>\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2365	2507	
==>\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1622	1764	
==>\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2353	2495	
==>\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless re <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2908	3022	
==>nsions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "END";
The ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	584	693	
==>_ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	584	693	
==>_ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	584	693	
==>_ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4111	4305	
==>ath ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 whi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4111	4305	
==>ath ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 whi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6683	6800	
==>rs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $k <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6683	6800	
==>rs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $k <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3982	4153	
==>ks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unles <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3982	4153	
==>ks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unles <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4508	4671	
==>ks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unles <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4508	4671	
==>ks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unles <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	483	609	
==>loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	483	609	
==>loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	485	610	
==>loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx: <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	485	610	
==>loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3009	3127	
==>se
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if def <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3009	3127	
==>se
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if def <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4756	4847	
==>SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4756	4847	
==>SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23671	23818	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23950	24097	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  m <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4465	4592	
==>difier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`]) <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4465	4592	
==>difier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`]) <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1232	1326	
==>=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1232	1326	
==>=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	110	206	
==>at do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.p <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	99	193	
==>at do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.p <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	66	160	
==>at do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1982	2067	
==>pil_code pil_tree p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0) <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2086	2182	
==>C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and tr <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2086	2182	
==>C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and tr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9445	9537	
==><$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9445	9537	
==><$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8875	8977	
==>head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free softwar <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3804	3906	
==>head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free softwar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8875	8977	
==>head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free softwar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3804	3906	
==>head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free softwar <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20897	20992	
==>files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20897	20992	
==>files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7211	7333	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7211	7333	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7211	7333	
==>{ Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4509	4613	
==>0000000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ] <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6632	6731	
==>ow should I handle blocks of text which seem to still be inside a list?

Basically the item body, mu <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6632	6731	
==>ow should I handle blocks of text which seem to still be inside a list?

Basically the item body, mu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36589	36682	
==>n equivalent human readable text message
string; this assumes that a Template corresponding to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36589	36682	
==>n equivalent human readable text message
string; this assumes that a Template corresponding to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	886	1001	
==>ick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	886	1001	
==>ick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1591	1683	
==>internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Arra <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1591	1683	
==>internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Arra <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	110	217	
==>e('env');

use Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    requi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	521	613	
==>an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	521	613	
==>an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AU <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4282	4430	
==>\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pre     list    safe   ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5112	5222	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5112	5222	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5112	5222	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FE <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	615	727	
==>accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	615	727	
==>accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2175	2273	
==>all see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will alw <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2175	2273	
==>all see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will alw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1736	1892	
==>b, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1736	1892	
==>b, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1736	1892	
==>b, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b i <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20670	20780	
==>%{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_in <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19645	19803	
==>not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new(">$synh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39407	39508	
==>ength, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39407	39508	
==>ength, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39407	39508	
==>ength, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4674	4832	
==>open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5333	5491	
==>open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4674	4832	
==>open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5333	5491	
==>open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2079	2190	
==>= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod B <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2079	2190	
==>= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod B <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	129	223	
==>host' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub rem <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	129	223	
==>host' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub rem <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	270	400	
==>:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	270	400	
==>:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	223	329	
==>();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	223	329	
==>();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2321	2428	
==>ckage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2321	2428	
==>ckage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2321	2428	
==>ckage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	448	550	
==>>{levels}[$_[1]]}, $_[2] ) },
);

# parsed: - the rule replaces the right side
# note: S06 - 'chain' ca <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1417	1525	
==>.  Perhaps
# because the challenges being faced were insufficiently documented,
# audreyt forked, creating re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1153	1250	
==>D supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1153	1250	
==>D supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1153	1250	
==>D supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested su <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7144	7238	
==>ut.

A default implementation of this method is provided which returns nothing.

=item C<_tail> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7144	7238	
==>ut.

A default implementation of this method is provided which returns nothing.

=item C<_tail> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8363	8492	
==>d eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8363	8492	
==>d eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20025	20120	
==>et the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20025	20120	
==>et the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3678	3780	
==>, PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3678	3780	
==>, PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3678	3780	
==>, PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die " <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2137	2238	
==>pan.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4356	4457	
==>pan.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2137	2238	
==>pan.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4356	4457	
==>pan.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	932	1036	
==>*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^(.*?)\s*?=\s*(.*)$/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6845	6999	
==>_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6845	6999	
==>_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6845	6999	
==>_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2276	2386	
==>ompile-only -e ' <hello>.say; '

Script or module:

    # file: hello_world.pl
    use v6-pugs;
    "hello, wor <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15827	15933	
==>dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub co <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2224	2326	
==>dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3015	3110	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected) <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3073	3168	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2680	2779	
==>ch.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subru <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2680	2779	
==>ch.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subru <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2522	2616	
==>et.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2522	2616	
==>et.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1164	1276	
==>ay ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1164	1276	
==>ay ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1072	1175	
==>(Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:< <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1072	1175	
==>(Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	796	920	
==>urrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	796	920	
==>urrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	796	920	
==>urrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $cl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9843	9947	
==>{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	286	383	
==>26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	286	383	
==>26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	286	383	
==>26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3737	3991	
==>dText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3737	3991	
==>dText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2911	3047	
==>mp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2911	3047	
==>mp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8059	8177	
==>not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8059	8177	
==>not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4155	4253	
==>node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5004	5102	
==>node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	594	707	
==>akemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1256	1369	
==>akemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files { <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	340	447	
==>.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $stri <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	340	447	
==>.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9248	9400	
==>y $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9248	9400	
==>y $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9248	9400	
==>y $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1525	1793	
==>} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_F is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramèt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5859	5966	
==>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5859	5966	
==>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5859	5966	
==>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4783	4909	
==>package eq $pkg->package;
    }
    
    return;
}    

=head2 $inst_pkg = $inst->register( package => $package )

=cut

sub re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1175	1279	
==>mmar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3036	3140	
==>mmar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join( <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5099	5195	
==>es a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

W <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8153	8495	
==>if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8153	8495	
==>if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12815	12944	
==>s = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7972	8095	
==>rl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7972	8095	
==>rl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7972	8095	
==>rl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	859	973	
==>x_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tig <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33322	33425	
==>d

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1896	1994	
==>obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1896	1994	
==>obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1896	1994	
==>obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5187	5284	
==>n.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5187	5284	
==>n.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a tes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25931	26028	
==>ctions can only work if called with ampersands, and only if
the parser object is the first value i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6711	6808	
==>n.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a tes <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2471	2605	
==>onal {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].in <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2471	2605	
==>onal {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4568	4666	
==>g, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4568	4666	
==>g, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When u <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2462	2582	
==>ensity };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2462	2582	
==>ensity };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8064	8157	
==>-------------------------------------------
## utility methods

# NOTE:
# Occasionally one wan <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8064	8157	
==>-------------------------------------------
## utility methods

# NOTE:
# Occasionally one wan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5195	5328	
==>ll_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5195	5328	
==>ll_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5195	5328	
==>ll_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collec <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1030	1123	
==>$h = Devel::STDERR::Indent::indent;
	warn "annotation: $node";
	warn "reducing " . $node->stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1503	1601	
==>nstant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mov <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1503	1601	
==>nstant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mov <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1503	1601	
==>nstant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mov <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7622	7719	
==>tr (symbol new (%:methods))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # meth <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1151	1259	
==>(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1151	1259	
==>(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23541	23636	
==>le).

There are other differences.  Where other solutions take variables, they
seem to be positi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23541	23636	
==>le).

There are other differences.  Where other solutions take variables, they
seem to be positi <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	662	801	
==>t}) {
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3589	3709	
==>->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3589	3709	
==>->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3589	3709	
==>->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ti <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7288	7407	
==>dule; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7288	7407	
==>dule; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means modu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10626	10719	
==>ing on their types, that their attributes have reasonable values, and
that attributes or Nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10626	10719	
==>ing on their types, that their attributes have reasonable values, and
that attributes or Nodes <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2754	2894	
==>ed.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2971	3111	
==>ed.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39023	39120	
==>.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Per <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39023	39120	
==>.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Per <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30046	30139	
==>ribute of a Message object, and each
hash value contains the user-readable message text associ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30046	30139	
==>ribute of a Message object, and each
hash value contains the user-readable message text associ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5373	5513	
==>> sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5373	5513	
==>> sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5373	5513	
==>> sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0] <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14406	14508	
==>hing we're appling must be a function
	die "Can't apply non function type (" . $.fun . " has type " . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8880	9007	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8880	9007	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8880	9007	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1648	1766	
==>urn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1648	1766	
==>urn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1648	1766	
==>urn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10309	10421	
==>E pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10309	10421	
==>E pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10309	10421	
==>E pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dro <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8069	8185	
==>w {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Ba <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8069	8185	
==>w {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Ba <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15796	15896	
==>Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15796	15896	
==>Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C< <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1093	1207	
==>py, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $strin <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1093	1207	
==>py, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $strin <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2151	2255	
==>d!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_dep <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2151	2255	
==>d!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_dep <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	503	607	
==>l(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	503	607	
==>l(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1712	1813	
==>return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1712	1813	
==>return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5003	5109	
==>ngleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5003	5109	
==>ngleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5003	5109	
==>ngleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7713	7816	
==>eral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressionLitera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9690	9856	
==>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9690	9856	
==>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9690	9856	
==>elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	13	112	
==>rl

package Blondie::Prelude;

use strict;
use warnings;

use Blondie::ADTs;

use Memoize;
memoize(' <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5971	6086	
==>ual tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of individual tod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20251	20338	
==>$xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20251	20338	
==>$xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20251	20338	
==>$xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	663	767	
==>o_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	663	767	
==>o_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	663	767	
==>o_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(ex <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11101	11196	
==>hod new (opaque $class: hash %params) returns opaque {
    $class.bless(undef, %params // hash() <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39539	39636	
==>006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39539	39636	
==>006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24263	24359	
==>006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24263	24359	
==>006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1656	1836	
==>d;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1656	1836	
==>d;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1656	1836	
==>d;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1	115	
==>!/usr/bin/perl -w

use strict;
use IPC::Open2;
use Getopt::Long;
use Config ();

# helper code to inline the Standa <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1316	1431	
==>my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := & <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	336	451	
==>my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := & <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8792	8907	
==>my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := & <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13234	13336	
==>@params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5426	5537	
==>l, \%hash ) or error(Params::Check->last_error), return;

    ### build a from => to mapping
    ### note we hav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	57	154	
==>L::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	57	154	
==>L::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	57	154	
==>L::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6613	6724	
==>n' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6613	6724	
==>n' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6613	6724	
==>n' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9574	9683	
==>etElementById("expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5984	6092	
==>xp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce($thunk->val);
	}
}

sub reduce_sym {
	my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5662	5759	
==>y @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{"> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5662	5759	
==>y @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{"> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5662	5759	
==>y @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{"> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37084	37186	
==>$ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37084	37186	
==>$ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37084	37186	
==>$ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14280	14443	
==>t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14280	14443	
==>t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14280	14443	
==>t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist y <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19984	20087	
==>a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($inpath, $start_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9724	9812	
==>her;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9724	9812	
==>her;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9724	9812	
==>her;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13255	13355	
==>ethod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3096	3196	
==>c) = @_;
    return $S->force_object(anyof_char_comp => "\e", '\E') if $cc;
    return $S->object(exa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13255	13355	
==>ethod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13255	13355	
==>ethod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17927	18023	
==>codes
are "machine readable"; any application receiving such a code can identify
it easily in its <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17927	18023	
==>codes
are "machine readable"; any application receiving such a code can identify
it easily in its <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8952	9057	
==>== 1 ? shift : { @_ };

    my $stub = $params->{env}->get($params->{name});
    my $digest = $stub->diges <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14157	14243	
==>tibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14157	14243	
==>tibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14157	14243	
==>tibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1570	1657	
==>->{body}->($self->{env});
    (blessed($return_value) && ($return_value->isa($self->{sig <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	406	528	
==>[...]>  They are all tagged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt called for all charact <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	99	200	
==>ced here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	99	200	
==>ced here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	99	200	
==>ced here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2443	2642	
==>2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11737	11869	
==>($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11737	11869	
==>($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11737	11869	
==>($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7791	7974	
==>ame>, 
            fixity => ..., 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12805	12963	
==>) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12805	12963	
==>) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12805	12963	
==>) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (define <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3029	3231	
==>+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3276	3478	
==>+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24890	24982	
==>time.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send al <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24890	24982	
==>time.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send al <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11871	12067	
==>rt -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11871	12067	
==>rt -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10051	10165	
==>g) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10051	10165	
==>g) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	311	451	
==>ME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS supp <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	311	451	
==>ME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS supp <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	812	905	
==>or for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	812	905	
==>or for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2618	2781	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $bu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1308	1471	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $bu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2618	2781	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $bu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1308	1471	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6081	6172	
==>chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6081	6172	
==>chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6081	6172	
==>chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21458	21546	
==>>data[1].min_offset
 #define float_max_offset substrs->data[1].max_offset
 #define check_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6677	6772	
==>ce_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6677	6772	
==>ce_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6677	6772	
==>ce_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Ro <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5623	5786	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2984	3147	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5623	5786	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2984	3147	
==>erbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1206	1330	
==>',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParam <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4356	4479	
==>',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParam <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4356	4479	
==>',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParam <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	197	297	
==>pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::splice(@a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	113	213	
==>ON ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	113	213	
==>ON ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16602	16700	
==>tion the maximum amount of control as
to what the user sees; it never outputs anything by itself to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16602	16700	
==>tion the maximum amount of control as
to what the user sees; it never outputs anything by itself to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	357	470	
==>--iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	357	470	
==>--iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	357	470	
==>--iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15506	15600	
==>for the parser.

=item Regexp::QuantAttr

Removes quantifiers as objects, and makes 'min' and ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13378	13507	
==>1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13372	13501	
==>1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	412	509	
==>epends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * cont <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	412	509	
==>epends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * cont <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1448	1564	
==>nless defined \$_[0];\n" .
        #"    print 'GRAMMAR: \$grammar', \"\\n\";\n" .
        "    package Pugs::Runtime <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2656	2759	
==>aults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal p <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2656	2759	
==>aults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal p <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1398	1487	
==>me})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${forea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12426	12527	
==>t.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12426	12527	
==>t.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19311	19408	
==>is in separate resource files used by the
program, so that if you wanted to upgrade or localize wh <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19311	19408	
==>is in separate resource files used by the
program, so that if you wanted to upgrade or localize wh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11539	11676	
==>tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call, which m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3192	3291	
==>rity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3192	3291	
==>rity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3192	3291	
==>rity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7192	7304	
==>ndex_files, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $self->_inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17605	17701	
==>t => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17605	17701	
==>t => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17605	17701	
==>t => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3376	3522	
==>n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3840	3986	
==>n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6234	6343	
==>erl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6234	6343	
==>erl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	878	977	
==>::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	878	977	
==>::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	878	977	
==>::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	987	1090	
==>y) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	987	1090	
==>y) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8772	8928	
==>, $e->get("&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = shift; 
                $e->get("$current")
                  ->s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3120	3217	
==>ling test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modul <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3120	3217	
==>ling test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3200	3297	
==>ling test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modul <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17600	17765	
==>airs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21077	21242	
==>airs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20664	20829	
==>airs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	12	104	
==>ugs::Grammar::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1824	1932	
==>sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1824	1932	
==>sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1824	1932	
==>sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, <==
4	/Users/nnunley/pugs/util/package-osx.pl	4528	4625	
==>::S02.3pm
        /usr/local/man/man3/Perl6::Bible::S03.3pm
        /usr/local/man/man3/Perl6::Bib <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4603	4715	
==>de has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4995	5107	
==>de has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10524	10622	
==>eetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informationa <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10524	10622	
==>eetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informationa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	198	283	
==>'use Grammar; if slurp("'.$jsfile.'") ~~ /^<JavaScript::ECMAScript3::Grammar::Spec::Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3383	3491	
==>vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3383	3491	
==>vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3383	3491	
==>vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  retur <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3628	3725	
==>turns List
 multi sub Perl6::Lists::zip (; Array *@lists, Bit :$shortest) returns Lazy {
   gather <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4999	5098	
==><ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4999	5098	
==><ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6523	6622	
==><ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4848	5063	
==>ostinst ] )                   and die $?;
            }    

            ### clean up the builddir
            system( qq[rm -rf $src] )                           and die $?;

        }

        ### clean up the temp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1836	1946	
==>{ %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1836	1946	
==>{ %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1836	1946	
==>{ %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7503	7588	
==>--------------------------------------------------------------------
## END BOOTSTRAPP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7503	7588	
==>--------------------------------------------------------------------
## END BOOTSTRAPP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7503	7588	
==>--------------------------------------------------------------------
## END BOOTSTRAPP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9209	9349	
==>=~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immedia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1722	1829	
==>ems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1722	1829	
==>ems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1722	1829	
==>ems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7342	7464	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7342	7464	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7342	7464	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7060	7179	
==>'$:name' => 'rFoo',
    '%:methods' => { foo => sub { 'rFoo::foo' } }
);
ok($rFoo->does('Role'), '... rFoo now does Role <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3976	4071	
==>_accessors { sort keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } __PACKAGE__->ls_all_acce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6632	6720	
==>nce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6632	6720	
==>nce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6632	6720	
==>nce_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_me <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23401	23513	
==>> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <SourceElements>
}
rule Program :words {  # se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4530	4635	
==>_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4530	4635	
==>_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4530	4635	
==>_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1719	1846	
==>.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1719	1846	
==>.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1719	1846	
==>.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7475	7589	
==>=> [ $rFoo, $rBar ],  # << tell the class we want these roles
    '%:methods' => {
        'foo_bar' => sub { 'FooB <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	727	1138	
==>::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	727	1138	
==>::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7124	7275	
==>name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sd <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7124	7275	
==>name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sd <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	844	961	
==>uration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<star <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	586	703	
==>uration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<star <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	844	961	
==>uration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<star <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	586	703	
==>uration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3943	4082	
==>esponse_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3943	4082	
==>esponse_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1578	1692	
==>.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"END_DIE";
Ple <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2431	2519	
==>, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifiers for types. Let's <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1208	1304	
==>d debugging", but can be put to other uses as well.

Log::Selective exports a single function, C< <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1208	1304	
==>d debugging", but can be put to other uses as well.

Log::Selective exports a single function, C< <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1738	1830	
==>ext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext v <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1738	1830	
==>ext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext v <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6623	6873	
==>d.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $n <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6623	6873	
==>d.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $n <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1159	1273	
==>capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # ca <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1159	1273	
==>capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # ca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10929	11072	
==>$val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10929	11072	
==>$val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11752	11848	
==>ence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exa <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11752	11848	
==>ence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	757	875	
==>ift;
    return $class->no_match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1181	1286	
==>=== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1181	1286	
==>=== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1181	1286	
==>=== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5137	5278	
==>List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4698	4803	
==>( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4698	4803	
==>( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4698	4803	
==>( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	579	706	
==>ule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	595	722	
==>ule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	571	698	
==>ule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{nam <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4329	4429	
==>ackage_to_index( package => $inst ) or return;

    return 1;
}

=head2 $bool = $repo->add_package_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2797	2913	
==>$self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2797	2913	
==>$self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2797	2913	
==>$self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9949	10132	
==>dy on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6290	6473	
==>dy on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7139	7322	
==>dy on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bin <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13305	13393	
==>tmpl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	927	1044	
==>essary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	927	1044	
==>essary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	927	1044	
==>essary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        ha <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1063	1153	
==>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled with this library by I<Philip Haze <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24322	24504	
==>->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24322	24504	
==>->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24322	24504	
==>->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub { <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9074	9195	
==>SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $k <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11699	11831	
==>b emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14547	14679	
==>b emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	238	338	
==>59-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Voi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	238	338	
==>59-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Voi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5166	5288	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5166	5288	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5166	5288	
==>ef' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	550	667	
==>f;

# for sending messages to an opaque object 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $lab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	567	713	
==>ut= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36252	36393	
==>om_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36252	36393	
==>om_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36252	36393	
==>om_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1159	1291	
==>e_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1159	1291	
==>e_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1159	1291	
==>e_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13445	13548	
==>ler = $as_str_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3070	3196	
==>autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3070	3196	
==>autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3070	3196	
==>autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	86	212	
==>est = 1;
my $planned;
my $noplan;

$TODO = 0;
$NO_ENDING = 0;

sub plan {
    my $n;
    if (@_ == 1) {
	$n = shift;
	if ($n eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14030	14130	
==>pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14030	14130	
==>pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14030	14130	
==>pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7063	7165	
==>s rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7063	7165	
==>s rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.head <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3578	3675	
==>ule '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): ca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3578	3675	
==>ule '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3033	3129	
==>OF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3033	3129	
==>OF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3033	3129	
==>OF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opti <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4831	4961	
==>,
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4831	4961	
==>,
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18786	18883	
==>or which we are not prepared to
support (such as modification of the compiled re op tree the nativ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3076	3173	
==>or which we are not prepared to
support (such as modification of the compiled re op tree the nativ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	87	227	
==>) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3141	3281	
==>) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	87	227	
==>) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3141	3281	
==>) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	86	195	
==>>import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4742	4842	
==>''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4742	4842	
==>''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6939	7039	
==>''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7724	7851	
==>if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "rever <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7724	7851	
==>if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "rever <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7724	7851	
==>if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "rever <==
4	/Users/nnunley/pugs/util/package-osx.pl	8784	8894	
==>t$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5178	5306	
==>= 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5178	5306	
==>= 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5178	5306	
==>= 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1077	1177	
==>ne and the same as what
you get when you use the C<type> keyword.  Or maybe the full package
name (C< <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3775	3952	
==>[]?
            },

            'array_push' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                push @{$self->get_valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11988	12084	
==>es = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11988	12084	
==>es = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11988	12084	
==>es = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::' <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15097	15206	
==>c => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $iso <= -M $ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2944	3044	
==>g";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2944	3044	
==>g";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2944	3044	
==>g";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1997	2115	
==>%mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be igno <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1997	2115	
==>%mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be igno <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1997	2115	
==>%mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be igno <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	675	816	
==>»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4696	4795	
==>es)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4696	4795	
==>es)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4696	4795	
==>es)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding fir <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4750	4853	
==>"http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a sim <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4750	4853	
==>"http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a sim <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31800	31896	
==>rs) language A but also understands
language B.  Later on, if for example the first library gener <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31800	31896	
==>rs) language A but also understands
language B.  Later on, if for example the first library gener <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1455	1556	
==>ort_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1455	1556	
==>ort_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1535	1636	
==>ort_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2526	2635	
==>s{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2526	2635	
==>s{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2526	2635	
==>s{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23090	23186	
==>umber of OPENs (capturing groups) in the regex.

=item captures

An array reference to the 'open' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12530	12636	
==>$source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,}) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12530	12636	
==>$source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,}) <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	253	352	
==>od get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	253	352	
==>od get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4971	5157	
==>k> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6733	6919	
==>k> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	91	177	
==>ate <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	91	177	
==>ate <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14738	14833	
==>ESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14738	14833	
==>ESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy t <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	334	425	
==>SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-informatio <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	334	425	
==>SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-informatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2700	2788	
==>if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2700	2788	
==>if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2700	2788	
==>if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@va <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3386	3502	
==>if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherw <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3386	3502	
==>if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherw <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15921	16020	
==>ling a message that would be shown to a user, is in fact meant
to be interpreted by the machine itse <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15921	16020	
==>ling a message that would be shown to a user, is in fact meant
to be interpreted by the machine itse <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3370	3495	
==>oken>
    | <RegularExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14959	15066	
==>eading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18436	18543	
==>eading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17852	17959	
==>eading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6641	6847	
==>.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6641	6847	
==>.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3122	3218	
==>set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3122	3218	
==>set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3163	3286	
==>t;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3163	3286	
==>t;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normaliz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3746	3863	
==>t;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3746	3863	
==>t;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normaliz <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3588	3686	
==>se Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp::Parser::VERSION <= 0.20) {
  ev <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35295	35417	
==>:Class->send('add_method' => (
    # method label
        symbol->new('add_attribute'),
    # method body
        method->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	46	143	
==>isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	46	143	
==>isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	46	143	
==>isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
u <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	161	286	
==>month and day
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4254	4370	
==>ce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4254	4370	
==>ce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4254	4370	
==>ce .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	213	307	
==>d($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	213	307	
==>d($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	213	307	
==>d($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5159	5297	
==>), return;
        }
        
        # load the existing index file
        my $index_content = YAML::LoadFile($index);
        my $meta = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19574	19663	
==>b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19574	19663	
==>b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19574	19663	
==>b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	565	707	
==>rt, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	565	707	
==>rt, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20592	20725	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20871	21004	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    su <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1713	1851	
==>t;
            },
    );
    for @start { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9634	9740	
==>y $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9634	9740	
==>y $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9634	9740	
==>y $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1231	1341	
==>rent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1231	1341	
==>rent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1231	1341	
==>rent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1517	1621	
==>through all tests first.  Collect links and format as HTML
    as we go.  Then get the design docs, and f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30581	30759	
==>ant_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                return $dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	514	607	
==>ned ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	514	607	
==>ned ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	514	607	
==>ned ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4510	4646	
==>{
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5397	5522	
==>ass->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5397	5522	
==>ass->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5397	5522	
==>ass->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4731	4895	
==>'$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4731	4895	
==>'$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4731	4895	
==>'$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shif <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16886	17005	
==>nt(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n, &Num::do_ceil)
    } <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	481	607	
==>re>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintr <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	481	607	
==>re>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintr <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8711	8812	
==>e and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8711	8812	
==>e and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12566	12697	
==>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12566	12697	
==>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12566	12697	
==>{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13858	13954	
==>ass their env to eval their children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3222	3350	
==>(1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3222	3350	
==>(1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7682	7787	
==>ccessfully got template text for the message key, so
        # interpolate the message vars into it and re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7682	7787	
==>ccessfully got template text for the message key, so
        # interpolate the message vars into it and re <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	464	578	
==>rns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	464	578	
==>rns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1292	1387	
==>eaders,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is use <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1292	1387	
==>eaders,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	204	309	
==>r::Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a=<> <==
4	/Users/nnunley/pugs/util/addauthors.pl	1229	1326	
==>from AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  pr <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3876	3970	
==>", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Some <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3876	3970	
==>", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Some <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13611	13781	
==>um => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13611	13781	
==>um => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13611	13781	
==>um => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6469	6567	
==>$Class;
    ::opaque_instance_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Ro <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15216	15310	
==>is rigorously defined, such that there
should be no ambiguity when trying to invoke or implemen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15216	15310	
==>is rigorously defined, such that there
should be no ambiguity when trying to invoke or implemen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14943	15034	
==>arget $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14943	15034	
==>arget $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4023	4157	
==>es' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4023	4157	
==>es' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4023	4157	
==>es' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24493	24599	
==>∀α. α → α", "pretty print a -> b where a = b");
}
{
	my $type = type::operator::arrow->new(
		type:: <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12725	12846	
==>ew->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5086	5190	
==>n =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5086	5190	
==>n =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5086	5190	
==>n =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10557	10690	
==>n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this shou <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19867	19964	
==>n
not be changed afterwards.

If you want something similar but that is more mutable, you can acco <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24419	24516	
==>n
not be changed afterwards.

If you want something similar but that is more mutable, you can acco <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22971	23068	
==>n
not be changed afterwards.

If you want something similar but that is more mutable, you can acco <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28011	28106	
==>if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32563	32658	
==>if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Map <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9097	9187	
==>->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @stateme <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2922	3012	
==>->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @stateme <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3037	3143	
==>{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5649	5746	
==>./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5649	5746	
==>./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5649	5746	
==>./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4245	4383	
==>ay_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch;
            } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2909	2994	
==>cks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2909	2994	
==>cks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2909	2994	
==>cks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3506	3657	
==>= $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3506	3657	
==>= $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18819	18915	
==>n anonymous hash
definition.  While it is obvious that people who would be writing the text
would <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18819	18915	
==>n anonymous hash
definition.  While it is obvious that people who would be writing the text
would <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10442	10561	
==>9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10442	10561	
==>9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9849	9962	
==>thod fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9849	9962	
==>thod fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1028	1133	
==>not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what w <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1028	1133	
==>not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what w <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4527	4622	
==>getprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  di <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4527	4622	
==>getprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  di <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3762	3860	
==>ith non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=item B<Total <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2112	2208	
==>ame('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2112	2208	
==>ame('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2112	2208	
==>ame('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10383	10535	
==>D');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10383	10535	
==>D');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10383	10535	
==>D');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9102	9239	
==>e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->fetch($e->get('$la <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	96	262	
==>le = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	97	263	
==>le = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	50	146	
==>b event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instr <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	50	146	
==>b event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1102	1226	
==>S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1102	1226	
==>S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1102	1226	
==>S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_ <==
4	/Users/nnunley/pugs/util/func_refact.pl	1273	1396	
==>ile (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18812	18905	
==>'ll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17855	17948	
==>'ll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18812	18905	
==>'ll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17855	17948	
==>'ll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3907	4042	
==>w(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3907	4042	
==>w(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8149	8257	
==>, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8149	8257	
==>, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8684	8825	
==>le;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8877	9018	
==>le;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	582	676	
==>{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	582	676	
==>{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4671	4783	
==>)> with
one of the messages in the DIAGNOSTICS section.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9	111	
==>ue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9	111	
==>ue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9	111	
==>ue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 V <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12360	12486	
==>t;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bless {
        map { $_->equals => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1093	1216	
==>n, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1093	1216	
==>n, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1093	1216	
==>n, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	492	602	
==>()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	492	602	
==>()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	492	602	
==>()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10981	11115	
==>ispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10981	11115	
==>ispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10981	11115	
==>ispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confes <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2489	2581	
==>tandard output of the script
without altering the behavior otherwise.  The F<prove> utility's <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2845	2947	
==>H') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2845	2947	
==>H') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2845	2947	
==>H') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	606	733	
==>_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	606	733	
==>_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	681	780	
==>me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	681	780	
==>me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7466	7614	
==>( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7466	7614	
==>( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7466	7614	
==>( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	42	132	
==>mitter::Rule::Perl5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Data::Du <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1659	1775	
==>ssion
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code * <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13708	13820	
==>or($rx->RPe_NESTED)
      if $tree->[-1]->family eq "quant";

    # on /abc+/, we extract the 'c' from the 'exact <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6798	6896	
==>m() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6798	6896	
==>m() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6798	6896	
==>m() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1098	1216	
==>{
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1098	1216	
==>{
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    r <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9018	9132	
==>bs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9018	9132	
==>bs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11387	11552	
==>:= &intersection;

###########################################################################

method difference (Relation::Example $other!) returns Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6023	6124	
==>"\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6023	6124	
==>"\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6023	6124	
==>"\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8737	8913	
==>>firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8737	8913	
==>>firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8737	8913	
==>>firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15855	15988	
==>>{$syn} }){
          # reverse is since we're splicing right after the h1
            my $target  = $link->{linkfile};
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13972	14078	
==>}
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13972	14078	
==>}
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13972	14078	
==>}
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3511	3643	
==>l') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3511	3643	
==>l') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3511	3643	
==>l') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18831	18927	
==>Changed

If an I<anyof_class> element is a Unicode property or a Perl class (like
C<\w> or C<\S>) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1223	1325	
==>ABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1223	1325	
==>ABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1223	1325	
==>ABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5471	5573	
==>n>),
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>),
    $smoke{id};
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9274	9416	
==>end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9274	9416	
==>end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9274	9416	
==>end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ar <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2445	2535	
==>ηθικλμνξοπρστυφχψω"; # some identifiers for types. Let'shope we never ne <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	639	786	
==>>{package} eq $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8087	8225	
==>block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4447	4585	
==>block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5296	5434	
==>block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	170	272	
==>generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	170	272	
==>generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18420	18517	
==>ing the most accurate program text
for users, we still get the best results by having a human bein <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18420	18517	
==>ing the most accurate program text
for users, we still get the best results by having a human bein <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18080	18202	
==>(optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17118	17240	
==>(optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18080	18202	
==>(optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17118	17240	
==>(optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (opti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3943	4034	
==>name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5845	5936	
==>name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Obje <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1830	1920	
==>ead1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1830	1920	
==>ead1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPS <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	655	781	
==>t old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX instead of cp -R, we can read manifest/m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16988	17106	
==>um::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1813	1907	
==>b p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1813	1907	
==>b p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1813	1907	
==>b p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $ <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1077	1202	
==>iwords;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7282	7396	
==>ring)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7282	7396	
==>ring)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7282	7396	
==>ring)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2412	2528	
==>\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2412	2528	
==>\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\ <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	755	858	
==>hift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	656	759	
==>hift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10584	10764	
==>te when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10584	10764	
==>te when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19556	19650	
==>r Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such as <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19556	19650	
==>r Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such as <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3338	3460	
==>ail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3531	3653	
==>ail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8433	8532	
==>self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted fro <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8433	8532	
==>self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted fro <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	404	539	
==>av)
{
    int i;
#ifdef __BORLANDC__
    char *s = GetCommandLine();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10791	10907	
==>.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10791	10907	
==>.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10791	10907	
==>.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	291	411	
==>ion () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	291	411	
==>ion () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	291	411	
==>ion () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1995	2099	
==>'))
        || confess "Key must be a str type";
    bit->new(exists $self->{$key->to_str->to_native} ? 1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4012	4161	
==>compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5056	5149	
==>res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5056	5149	
==>res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5056	5149	
==>res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1627	1722	
==>}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1627	1722	
==>}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1434	1542	
==>e was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrol <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1434	1542	
==>e was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrol <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1434	1542	
==>e was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrol <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7824	8012	
==>t_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11301	11489	
==>t_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10465	10653	
==>t_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19401	19505	
==>x",
	body => ide("y"),
);

# this is a higher order function that takes a function and applies it to a st <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	698	805	
==>s::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1979	2086	
==>s::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13588	13683	
==>ase as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" ord <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13588	13683	
==>ase as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" ord <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2936	3092	
==>_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8030	8186	
==>_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2936	3092	
==>_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8030	8186	
==>_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2970	3071	
==>rom not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2970	3071	
==>rom not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2970	3071	
==>rom not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7735	7835	
==>$package) = @_;
    my $ghc_pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9341	9463	
==>sors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    cu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9341	9463	
==>sors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    cu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	147	262	
==>ey.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	147	262	
==>ey.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12692	12846	
==>=>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12692	12846	
==>=>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12692	12846	
==>=>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2701	2815	
==>6 standard class namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern matching namespace
    List <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	526	642	
==>_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	526	642	
==>_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8630	8738	
==>ode::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8626	8734	
==>ode::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21304	21398	
==>is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25856	25950	
==>is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24480	24574	
==>is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2981	3116	
==>',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6091	6189	
==>s not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6091	6189	
==>s not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6091	6189	
==>s not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9914	10111	
==>p1}{stmt} . 
                    ' my ' . _emit( $n->{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35018	35111	
==>hod
degenerates into an C<intersection> if the two source headings are
identical.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39568	39661	
==>hod
degenerates into an C<intersection> if the two source headings are
identical.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39110	39203	
==>hod
degenerates into an C<intersection> if the two source headings are
identical.  This method <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	403	520	
==>IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	407	524	
==>IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	403	520	
==>IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	407	524	
==>IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9532	9652	
==>es?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9532	9652	
==>es?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9532	9652	
==>es?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7945	8052	
==>s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1 <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2429	2622	
==>$_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx: <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2429	2622	
==>$_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34681	34777	
==>tion, and returns a new Relation that has the
same heading as the invocant and whose body contain <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39231	39327	
==>tion, and returns a new Relation that has the
same heading as the invocant and whose body contain <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5921	6040	
==>!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5921	6040	
==>!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5921	6040	
==>!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6492	6593	
==>@mess);
}

# Note: this isn't quite as fancy as Test::More::like().

sub like   ($$@) { like_yn (0,@_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5055	5164	
==>attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5055	5164	
==>attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5055	5164	
==>attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4251	4344	
==>eferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(GetPropertyName($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3066	3191	
==>} else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl_version) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14263	14376	
==>efined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14263	14376	
==>efined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14263	14376	
==>efined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5142	5259	
==>( q(
            <Pugs::Grammar::Term.double_quoted>
            { return { double_quoted => $/{'Pugs::Grammar::Term.d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14816	14908	
==>nal code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactore <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14816	14908	
==>nal code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactore <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14816	14908	
==>nal code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactore <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2649	2753	
==>received: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Buil <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2649	2753	
==>received: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2729	2833	
==>received: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1175	1274	
==>ue_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lval <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	914	1008	
==>ue_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lval <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1119	1213	
==>ue_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lval <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	242	345	
==>~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	298	401	
==>~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	242	345	
==>~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	298	401	
==>~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	439	556	
==>e to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	644	761	
==>e to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	700	817	
==>e to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	757	858	
==>the result.
  # The session's event handler won't be executed until @:events[0] =:= the
  # callback w <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3702	3955	
==>erpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        els <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3745	3998	
==>erpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        els <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3702	3955	
==>erpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        els <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3745	3998	
==>erpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        els <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2657	2756	
==>return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') {
    if $hint <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1134	1231	
==>ch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1134	1231	
==>ch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1134	1231	
==>ch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = un <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	74	174	
==>:Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within t <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	74	174	
==>:Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4248	4340	
==>d id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6150	6242	
==>d id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3116	3314	
==>_fetchSize < $size){
                    $self->array_storeSize($size);
                }
            },

            'array_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	965	1070	
==>=> \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4244	4340	
==>the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4244	4340	
==>the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- <==
4	/Users/nnunley/pugs/util/grokprims.pl	1807	1907	
==>example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = "\$$a0 $n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19141	19233	
==>he header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19141	19233	
==>he header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	523	636	
==>> { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	501	612	
==>> { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ sub <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1765	1865	
==>tains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1765	1865	
==>tains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) retur <==
4	/Users/nnunley/pugs/util/testgraph.pl	168	265	
==>isual;
use File::Spec;

GetOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3387	3494	
==>l6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3387	3494	
==>l6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3387	3494	
==>l6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2806	2910	
==>my $node = shift;

	exists $self->{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5570	5734	
==>nt
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5570	5734	
==>nt
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5570	5734	
==>nt
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4909	5008	
==>{
	my $self = shift;
	my $node = shift;

	$self->{defined_nodes}->insert($node);
}

sub node_is_defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9910	10015	
==>.(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9910	10015	
==>.(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9910	10015	
==>.(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13948	14052	
==>) returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS( <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	268	391	
==>en to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() mu <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	268	391	
==>en to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() mu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23419	23508	
==>erwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
extern <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23419	23508	
==>erwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
extern <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3324	3443	
==>"int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3324	3443	
==>"int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3324	3443	
==>"int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	407	516	
==>empty == $bit::FALSE)
        || confess "Your arg list must at least include the invocant";
    my $inv = $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	367	475	
==>s2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	367	475	
==>s2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	367	475	
==>s2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	720	844	
==>),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1962	2095	
==>_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2022	2155	
==>_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7160	7251	
==>think in general it is a bad idea

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7160	7251	
==>think in general it is a bad idea

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9195	9301	
==>eems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9195	9301	
==>eems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6626	6724	
==>ug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6626	6724	
==>ug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<fr <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1275	1381	
==>tr $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least unt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1275	1381	
==>tr $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least unt <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5717	5815	
==>the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the onl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5717	5815	
==>the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the onl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21046	21148	
==>f describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19954	20056	
==>f describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21046	21148	
==>f describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19954	20056	
==>f describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3480	3600	
==>pected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3480	3600	
==>pected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5004	5124	
==>pected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12991	13084	
==>pecified by C<$key> or C<$keys> from the invocant.
returns the value(s) that were associated t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4464	4593	
==>g {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'anyof_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12733	12856	
==>nboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12733	12856	
==>nboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12733	12856	
==>nboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Lis <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8749	8866	
==>turn_CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5660	5866	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3021	3227	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5660	5866	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3021	3227	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5551	5648	
==>k FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CRE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5551	5648	
==>k FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CRE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5551	5648	
==>k FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CRE <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	41	137	
==>::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2883	3013	
==>ex,
    );

    for my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    return 1;
}

### these plural functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3433	3536	
==>ubname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3433	3536	
==>ubname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3433	3536	
==>ubname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	33	135	
==>ckage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	33	135	
==>ckage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	33	135	
==>ckage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_type <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10396	10493	
==>s of discussion but no final
    # spec, see the thread rooted at <20050502192508.GF24107@sike.for <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1746	1841	
==>urn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   invocant => $invoca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20147	20241	
==>ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20147	20241	
==>ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20147	20241	
==>ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13017	13140	
==>trd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    descr  => "Cop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	139	235	
==>= '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	139	235	
==>= '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	139	235	
==>= '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3031	3130	
==>$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3089	3188	
==>$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11388	11481	
==>f a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11388	11481	
==>f a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1264	1367	
==>s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1264	1367	
==>s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1264	1367	
==>s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12157	12259	
==>}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub em <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5537	5667	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6805	6935	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5537	5667	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6793	6923	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3605	3730	
==>is"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7082	7207	
==>is"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6039	6164	
==>is"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.diff <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2268	2364	
==>w("Class");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system.

The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	407	508	
==>V}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	407	508	
==>V}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	407	508	
==>V}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synta <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	778	873	
==>urse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3133	3288	
==>rn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3133	3288	
==>rn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3133	3288	
==>rn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	667	783	
==>eturn "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = () <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10031	10137	
==>ams}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/us <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10031	10137	
==>ams}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/us <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18105	18202	
==>of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structures <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18105	18202	
==>of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structures <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11472	11624	
==>Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11472	11624	
==>Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11472	11624	
==>Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @par <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4927	5056	
==>se};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelude.pm [options]
       $0 --precompile src/perl6/Pre <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3630	3729	
==>an;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.inter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3630	3729	
==>an;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.inter <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6972	7070	
==>nless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7030	7128	
==>nless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1119	1256	
==>om_struct {
    my $self    = shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4790	4962	
==>, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5254	5426	
==>, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something t <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3071	3176	
==>ie;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** C <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3071	3176	
==>ie;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3006	3162	
==>report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6478	6571	
==>the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represen <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6478	6571	
==>the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8675	8768	
==>the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represen <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7200	7305	
==>, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALL <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7258	7363	
==>, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALL <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13465	13563	
==>er file or test which must be
made to pass before this test can pass (or before an implementation
c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13523	13621	
==>er file or test which must be
made to pass before this test can pass (or before an implementation
c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3807	3912	
==>confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3807	3912	
==>confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3807	3912	
==>confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... f <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	120	220	
==>day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1258	1363	
==>urn "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	783	883	
==>output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norm <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	783	883	
==>output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1339	1439	
==>output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norm <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6522	6623	
==>er_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5652	5753	
==>er_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6522	6623	
==>er_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5652	5753	
==>er_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superse <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1946	2068	
==>rse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1946	2068	
==>rse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11	116	
==>0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $R <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11	116	
==>0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $R <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15304	15437	
==>ofs",
      "-R",                                # Generate Rock Ridge directory information
      "-b" => "boot/grub/stage2_eltorito" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	651	780	
==>args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	651	780	
==>args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	651	780	
==>args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12790	12911	
==>ax ne '' and $min == $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5456	5557	
==>ct_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5456	5557	
==>ct_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5456	5557	
==>ct_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_li <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2002	2120	
==>FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2002	2120	
==>FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2002	2120	
==>FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(% <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	63	166	
==>at::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3805	3964	
==>-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5122	5281	
==>-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3805	3964	
==>-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5110	5269	
==>-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3854	3963	
==>ks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3854	3963	
==>ks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $ch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4386	4491	
==>ks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4386	4491	
==>ks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $ch <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12268	12421	
==>tfile;
            }
            elsif($results{seen}) {
                if (@{$test{failed}} and $test{max}) {
                    my ($txt, $canon) = _c <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4109	4238	
==>ly_apply_and_accum' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2758	2884	
==>endencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed d <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3222	3348	
==>endencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12886	13034	
==>ms => method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new('$canidate' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3480	3581	
==>param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3480	3581	
==>param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3480	3581	
==>param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10036	10133	
==>Assign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10036	10133	
==>Assign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10036	10133	
==>Assign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19032	19125	
==>1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,Re),F0,F1,B0,B1,E0,E1) :-
  % m <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7076	7175	
==>ist/build/src -hidir dist/build/src "
      unless $self->is_extension_build;
    $ghc_flags .= " -f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12704	12845	
==>'add_method' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3231	3330	
==>X::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3231	3330	
==>X::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3231	3330	
==>X::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::E <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13155	13311	
==>ariable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21205	21361	
==>ariable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13434	13590	
==>ariable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21484	21640	
==>ariable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5737	5838	
==>y, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5737	5838	
==>y, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5737	5838	
==>y, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curre <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37177	37271	
==>asses'    => 'list')));
$::Class->send('add_attribute', (symbol->new('@:subclasses')      => at <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14748	14861	
==>d('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14748	14861	
==>d('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14748	14861	
==>d('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18699	18807	
==>tion::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.symmet <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9089	9203	
==>ls => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{name}, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	388	484	
==>ls => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name}, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	464	560	
==>ls => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name}, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19626	19721	
==>> comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new("str")), <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	568	699	
==>ime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	955	1086	
==>ime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	568	699	
==>ime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	955	1086	
==>ime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19568	19666	
==>e, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in the con <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18549	18647	
==>e, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in the con <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19568	19666	
==>e, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in the con <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18549	18647	
==>e, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in the con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1532	1640	
==>_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1532	1640	
==>_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1532	1640	
==>_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loca <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2395	2488	
==>ers to them

	my @letters = split //, "αβγδεζηθικλμνξοπρστυφχψω"; # so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8589	8686	
==>B list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8589	8686	
==>B list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8589	8686	
==>B list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.va <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2237	2371	
==>iagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $av <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3598	3724	
==>iagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $av <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1227	1331	
==>bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1227	1331	
==>bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3701	3838	
==>DTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3701	3838	
==>DTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3701	3838	
==>DTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Need <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	12	107	
==>erl

# Simple YAML test harness written over Test::Harness::Straps.
# Hacked up from mini_harnes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10721	10852	
==>rl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10721	10852	
==>rl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10721	10852	
==>rl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24521	24620	
==>probably not be adding handlers that have to parse flags, but if
you do, remember to follow this mod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2371	2517	
==>ugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2371	2517	
==>ugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { re <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1183	1297	
==>i_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unes <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1183	1297	
==>i_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unes <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	73	171	
==>kes use of attribute grammars and multimethods)

# first part is a type pretty printer and the type <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32392	32488	
==>ther> does not have an identical header to the invocant relation.  This
method has an alias named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36942	37038	
==>ther> does not have an identical header to the invocant relation.  This
method has an alias named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36232	36328	
==>ther> does not have an identical header to the invocant relation.  This
method has an alias named <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2631	2761	
==>um 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2631	2761	
==>um 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4770	4865	
==>rl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5020	5115	
==>rl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	210	325	
==>{ throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	210	325	
==>{ throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	210	325	
==>{ throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_er <==
4	/Users/nnunley/pugs/util/package-osx.pl	5784	5872	
==>sr/local/man/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Perl6::Overview::Da <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20180	20289	
==>mp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19139	19248	
==>mp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20180	20289	
==>mp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19139	19248	
==>mp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autopi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13810	13936	
==>_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13810	13936	
==>_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13810	13936	
==>_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13518	13612	
==>-5)

Sequence (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

Switch conditi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5765	5910	
==>ECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(),
            attribute->new('@:subclasses')      => list-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5316	5413	
==>refixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<sc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5316	5413	
==>refixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<sc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5316	5413	
==>refixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39225	39334	
==>ft @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39225	39334	
==>ft @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39225	39334	
==>ft @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5146	5254	
==>me,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$aref,$r2);
  $r;
}

my @ope <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8536	8738	
==>0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8536	8738	
==>0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9456	9588	
==>os;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9444	9576	
==>os;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4794	4886	
==>head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4934	5026	
==>head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6640	6743	
==>tions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/node/;

package ide;
use b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	564	658	
==>ess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	564	658	
==>ess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	564	658	
==>ess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SEL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1653	1780	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2396	2523	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1653	1780	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2384	2511	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4748	4869	
==>!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

mu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4806	4927	
==>!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

mu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9453	9541	
==>le_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_mod <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9453	9541	
==>le_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1856	1951	
==>hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1856	1951	
==>hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1856	1951	
==>hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8683	8781	
==>_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	416	514	
==>_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8683	8781	
==>_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8683	8781	
==>_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3226	3344	
==>o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German ( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3226	3344	
==>o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40974	41066	
==>ersion.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.0 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40974	41066	
==>ersion.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.0 <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	260	372	
==>@EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15838	15939	
==>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15838	15939	
==>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3557	3686	
==>'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    fore <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3697	3826	
==>'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    fore <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2090	2183	
==>valent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and prod <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2090	2183	
==>valent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and prod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3672	3779	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3672	3779	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3672	3779	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12091	12189	
==>ad2 Using the Tree

If you want to work with the parse tree independently, use the root()
method to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	993	1081	
==>Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	993	1081	
==>Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	993	1081	
==>Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3166	3252	
==>_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_conjunctions(intersect(W,X), Z), ! <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16089	16195	
==>y(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { env($$) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5145	5258	
==>$self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16181	16294	
==>$self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17669	17782	
==>$self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22352	22465	
==>$self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3524	3697	
==>ted_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3524	3697	
==>ted_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8067	8194	
==>';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$inde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8055	8182	
==>';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1528	1648	
==>{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1528	1648	
==>{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1528	1648	
==>{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (subs <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14069	14173	
==>$synpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_fi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34548	34650	
==>Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['Fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34548	34650	
==>Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['Fo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23225	23323	
==><Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27777	27875	
==><Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7252	7391	
==>->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9369	9508	
==>y alternatives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7252	7391	
==>->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7252	7391	
==>->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3341	3481	
==>nce => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        precede <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1345	1464	
==>rity
                /smx;

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenera <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3095	3211	
==>XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3559	3675	
==>XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1144	1250	
==>turing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1155	1261	
==>turing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2704	2804	
==>add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3277	3377	
==>add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	530	640	
==>on";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	530	640	
==>on";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	530	640	
==>on";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	925	1034	
==>P6_Rule    => sub{ $match = $rpc_rule->match($str)    for 1..40},
        P6_Token   => sub{ $match = $rpc_to <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1511	1604	
==>user', '--prefix', "$pwd/dist");
        system("../../Setup$Config{_exe}", 'unregister', '--u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15293	15408	
==>{
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15293	15408	
==>{
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1836	1964	
==>construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NP <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1836	1964	
==>construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NP <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12197	12321	
==>else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7304	7397	
==>ument to the constructor.

=item $parser->regex($regex)

Clears the parser's memory and sets $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13653	13783	
==>= substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3782	3904	
==>= substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3782	3904	
==>= substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3782	3904	
==>= substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13897	14019	
==>e_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13897	14019	
==>e_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13897	14019	
==>e_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_metho <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	115	216	
==>junctive, higher order
# nature of the Cxt type.  The below is expressive enough to do the
# same thin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	630	730	
==>$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7145	7259	
==>ement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7145	7259	
==>ement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1814	1920	
==>ement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1814	1920	
==>ement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	587	729	
==>n(
                Tree.new(:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.n <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4187	4306	
==>erl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4187	4306	
==>erl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9461	9572	
==>visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = document. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24742	24854	
==>when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23506	23618	
==>when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24742	24854	
==>when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23506	23618	
==>when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3607	3717	
==>r @smokes;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timesta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6500	6593	
==>rue, and adds a
C<really_passed> key which contains the boolean representing if the test truly <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6500	6593	
==>rue, and adds a
C<really_passed> key which contains the boolean representing if the test truly <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8697	8790	
==>rue, and adds a
C<really_passed> key which contains the boolean representing if the test truly <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	964	1066	
==>_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	964	1066	
==>_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	964	1066	
==>_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bod <==
4	/Users/nnunley/pugs/util/addauthors.pl	285	384	
==>ers{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3511	3616	
==>mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3511	3616	
==>mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3511	3616	
==>mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    } <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5620	5699	
==>-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9879	9993	
==>brule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15720	15834	
==>brule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9879	9993	
==>brule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15714	15828	
==>brule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @pa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7463	7572	
==>embers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_objec <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7463	7572	
==>embers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_objec <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22249	22347	
==>each attribute is a column, but a Relation is not a table.

The Relation class is pure and determin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26801	26899	
==>each attribute is a column, but a Relation is not a table.

The Relation class is pure and determin <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19313	19492	
==>source } if $regex;
                  ($h->content_list)[0]->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> et <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5717	5820	
==>ew( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5717	5820	
==>ew( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5717	5820	
==>ew( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6000	6130	
==>hr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6000	6130	
==>hr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13405	13515	
==>gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13405	13515	
==>gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1080	1188	
==>tfile        = $Meta . '/registered-alts';       # registered alternatives
$Alternatives   = $Meta . '/altern <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3132	3236	
==>ity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3132	3236	
==>ity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3132	3236	
==>ity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5120	5269	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5120	5269	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5120	5269	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) ) <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1149	1237	
==>utter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4101	4202	
==>_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4101	4202	
==>_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4101	4202	
==>_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_su <==
4	/Users/nnunley/pugs/util/claim_drift.pl	278	378	
==>less hacky, but until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	305	438	
==>);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        ! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8168	8270	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11645	11747	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10827	10929	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1529	1649	
==>f as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1529	1649	
==>f as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4202	4316	
==>) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7679	7793	
==>) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	528	670	
==>/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8795	8936	
==>/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8795	8936	
==>/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8795	8936	
==>/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10119	10279	
==>skip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              nu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	677	827	
==>skip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	677	827	
==>skip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            nu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12150	12266	
==>pos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapture
    if iscapture == 0 goto end
    $S0 = esca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5977	6084	
==>?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5771	5874	
==>?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $mat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34126	34223	
==>Each Set Name can be any defined and non-empty string.

=back

This is the main Translator constru <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34126	34223	
==>Each Set Name can be any defined and non-empty string.

=back

This is the main Translator constru <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7990	8118	
==>th_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7990	8118	
==>th_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39535	39628	
==>03-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug repor <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39535	39628	
==>03-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug repor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38935	39042	
==>- add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38935	39042	
==>- add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38935	39042	
==>- add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift }, <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2463	2555	
==>| <interpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	640	740	
==>ed, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Par <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	640	740	
==>ed, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Par <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14968	15062	
==>e function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
su <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15026	15120	
==>e function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	766	886	
==>t->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	766	886	
==>t->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	766	886	
==>t->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29838	29931	
==>odule MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed has <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29838	29931	
==>odule MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed has <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	628	715	
==>------------------------------------------------------------
## private methods

my meth <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	628	715	
==>------------------------------------------------------------
## private methods

my meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	791	907	
==>attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support gen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	791	907	
==>attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support gen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	791	907	
==>attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support gen <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12061	12159	
==>tdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6 <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	87	187	
==>$_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newta <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	87	187	
==>$_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18988	19086	
==>thod removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18988	19086	
==>thod removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
t <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	538	664	
==>])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $st <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	538	664	
==>])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	255	355	
==>): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1113	1213	
==>): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14878	14987	
==>ared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # so <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18355	18464	
==>ared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # so <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17771	17880	
==>ared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # so <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	286	384	
==>ad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Bindin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	169	284	
==>ilder::TestPlan' => {
    is => [ $::Object ],
    attributes => [ '$:expect' ],
    submethods => {
        'BUILD' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4256	4354	
==>ass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4256	4354	
==>ass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4256	4354	
==>ass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher-> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2916	3036	
==>backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &contin <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2916	3036	
==>backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &contin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	586	698	
==>my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	586	698	
==>my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7389	7520	
==>$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7389	7520	
==>$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',d <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6146	6245	
==>span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6146	6245	
==>span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37969	38087	
==>ar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37969	38087	
==>ar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37969	38087	
==>ar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1922	2035	
==>Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blondie::Param;
    use b <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2509	2604	
==>using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypti <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2509	2604	
==>using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20393	20485	
==>normally canonicalized including the
'_' to '-' translation.  There are some application wher <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20393	20485	
==>normally canonicalized including the
'_' to '-' translation.  There are some application wher <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2432	2597	
==>_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2679	2844	
==>_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1220	1337	
==>{
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1220	1337	
==>{
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $e <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	297	403	
==>rograms but it is not required.
#
# P.S. This documentation is not in POD format in order to avoid
# pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11726	11825	
==>ich does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Bec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11726	11825	
==>ich does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Bec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11726	11825	
==>ich does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Bec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4985	5089	
==>turns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remov <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4985	5089	
==>turns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remov <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16535	16628	
==>language, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16535	16628	
==>language, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rose <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7411	7609	
==>,\n" .
                "        \\&grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Da <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8075	8183	
==>}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8075	8183	
==>}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $mat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	263	371	
==>erence point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every instance should ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	462	567	
==>should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	462	567	
==>should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._bo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	999	1100	
==>$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1057	1158	
==>$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7880	7975	
==>: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7880	7975	
==>: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8482	8576	
==>form your own security analysis before using it in any 
sensitive application.>

B<I<The author <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8482	8576	
==>form your own security analysis before using it in any 
sensitive application.>

B<I<The author <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2744	2845	
==>remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechun <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2744	2845	
==>remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19931	20023	
==>nd the blocks have been
marked for various compilers, Module::Compile dispatches the code blo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19931	20023	
==>nd the blocks have been
marked for various compilers, Module::Compile dispatches the code blo <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6437	6552	
==>r target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = new <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	748	847	
==>e to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mess <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	748	847	
==>e to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1304	1403	
==>e to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mess <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3769	3908	
==>fier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3757	3896	
==>fier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3086	3217	
==>$@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3226	3357	
==>$@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{per <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	315	421	
==>sh @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

su <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	315	421	
==>sh @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

su <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1130	1227	
==>rom an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08- <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1130	1227	
==>rom an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4704	4807	
==>LTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4704	4807	
==>LTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4704	4807	
==>LTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	6	100	
==>kage Pugs::Grammar::Infix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	170	295	
==>gs;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14571	14657	
==>thods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14571	14657	
==>thods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14571	14657	
==>thods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	949	1139	
==>],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::concat(\n" . 
               ( join '', @s ) . 
               "$t <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4819	4959	
==>else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegated and (length $initchar < 2))
        {
          goto te <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1295	1393	
==>th.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1295	1393	
==>th.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1009	1110	
==>with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1009	1110	
==>with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1009	1110	
==>with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9079	9177	
==>ht 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) retu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9079	9177	
==>ht 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	711	822	
==>ify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	711	822	
==>ify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8615	8708	
==>notes about fail()

shouldn't matchfail still be returning something?

maybe just overload boo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8328	8419	
==>notes about fail()
shouldn't matchfail still be returning something?
maybe just overload boo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14519	14630	
==>ugh we've pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14519	14630	
==>ugh we've pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13556	13663	
==>ugh we've pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13556	13663	
==>ugh we've pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11479	11648	
==>('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11479	11648	
==>('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11479	11648	
==>('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9664	9795	
==>};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{ski <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	646	750	
==>his allows subdirs to 'change' magically if a rootdir gets changed

### base dirs
### XXX touch the 'root <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	333	429	
==>INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	333	429	
==>INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	333	429	
==>INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24526	24638	
==>ide from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> eve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23290	23402	
==>ide from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24526	24638	
==>ide from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23290	23402	
==>ide from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> eve <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37429	37522	
==>the N-ary version of the aforementioned binary join()
operator, and the order of its arguments <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41978	42071	
==>the N-ary version of the aforementioned binary join()
operator, and the order of its arguments <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41619	41712	
==>the N-ary version of the aforementioned binary join()
operator, and the order of its arguments <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3588	3704	
==>- eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4905	5021	
==>- eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3588	3704	
==>- eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4893	5009	
==>- eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21469	21626	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21469	21626	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21469	21626	
==>:Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21440	21550	
==>llback to be executed when the bot receives a corresponding message.
Event names which are all lowercase are "p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20321	20431	
==>llback to be executed when the bot receives a corresponding message.
Event names which are all lowercase are "p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21440	21550	
==>llback to be executed when the bot receives a corresponding message.
Event names which are all lowercase are "p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20321	20431	
==>llback to be executed when the bot receives a corresponding message.
Event names which are all lowercase are "p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11905	12019	
==>ng ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15382	15496	
==>ng ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14717	14831	
==>ng ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7951	8055	
==>> 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (pop @bsrStac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6709	6815	
==>e() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking incremen <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6709	6815	
==>e() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking incremen <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6709	6815	
==>e() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking incremen <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1589	1687	
==>$Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.property_value.exis <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	915	1021	
==>s_args || "";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13956	14072	
==>ING the server. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13956	14072	
==>ING the server. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13022	13134	
==>ING the server. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13022	13134	
==>ING the server. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2187	2300	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2582	2695	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2245	2358	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2640	2753	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14365	14478	
==>s);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14365	14478	
==>s);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14365	14478	
==>s);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20729	20837	
==>ETA->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	76	204	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	76	204	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	76	204	
==>uire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8886	8988	
==>ObjPos = -1;
  die "Missing ternary close at offset $whitespacePosition \n";
  return ( $matchObj );

} <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	390	489	
==>urns List of Bool;

multi sub keys   (@array ; Any|Junction *@indextests) returns List of Object
mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	746	839	
==>}
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	746	839	
==>}
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	746	839	
==>}
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2180	2284	
==>tring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2180	2284	
==>tring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2180	2284	
==>tring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Numb <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8151	8238	
==>ec_pos(L), !.
p5_modifier_spec_pos([s|L])  --> "s", p5_modifier_spec_pos(L), !.
p5_modif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2078	2225	
==>eturn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2078	2225	
==>eturn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2078	2225	
==>eturn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8236	8389	
==>de($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return und <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8236	8389	
==>de($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return und <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19391	19484	
==>tion statements are structured as
standard data manipulation statements but that the target re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19391	19484	
==>tion statements are structured as
standard data manipulation statements but that the target re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4233	4347	
==>ub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4233	4347	
==>ub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4233	4347	
==>ub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5942	6050	
==>mfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Ternary::hash,
    );
    $c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8245	8362	
==>$rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23577	23689	
==>$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23577	23689	
==>$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23577	23689	
==>$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4197	4289	
==>ctually returns a Test::Builder singleton, creating it if
necessary.  The optional named argu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4197	4289	
==>ctually returns a Test::Builder singleton, creating it if
necessary.  The optional named argu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5721	5813	
==>ctually returns a Test::Builder singleton, creating it if
necessary.  The optional named argu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	782	900	
==>r->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1253	1348	
==>$timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1253	1348	
==>$timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1253	1348	
==>$timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $ma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7289	7394	
==>x($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3021	3123	
==>r i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3021	3123	
==>r i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3021	3123	
==>r i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3237	3353	
==>TR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3237	3353	
==>TR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its ' <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4396	4492	
==>ting back to the config file, any comments are discarded.

=head1 METHODS

Since the current vers <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4396	4492	
==>ting back to the config file, any comments are discarded.

=head1 METHODS

Since the current vers <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3701	3850	
==>$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$inde <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5018	5167	
==>$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$inde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3701	3850	
==>$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$inde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5006	5155	
==>$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10468	10625	
==>x].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10468	10625	
==>x].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10468	10625	
==>x].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          r <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10255	10352	
==>eturns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8148	8245	
==>eturns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10255	10352	
==>eturns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8148	8245	
==>eturns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29378	29492	
==>only = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_P <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29378	29492	
==>only = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_P <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	206	308	
==>only = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2283	2385	
==>rototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24500	24678	
==>ps )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25763	25941	
==>ps )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24779	24957	
==>ps )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26042	26220	
==>ps )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8825	8942	
==>ingifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8825	8942	
==>ingifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9081	9194	
==>ingifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9081	9194	
==>ingifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	944	1069	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	944	1069	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	944	1069	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	139	225	
==>del with explicit EigenClasses
## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1052	1170	
==>for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5961	6065	
==>/g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5961	6065	
==>/g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5961	6065	
==>/g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4860	4987	
==>ear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11829	11914	
==>:Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11829	11914	
==>:Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11829	11914	
==>:Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4001	4139	
==>ty =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4001	4139	
==>ty =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s = <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11442	11543	
==>ata) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until obj <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11442	11543	
==>ata) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1654	1779	
==>fined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1642	1767	
==>fined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1268	1368	
==>rammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1268	1368	
==>rammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6594	6705	
==>ame;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6594	6705	
==>ame;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6594	6705	
==>ame;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	61	163	
==>Blondie::Runtime/;

use strict;
use warnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NA <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20052	20248	
==>w($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40512	40708	
==>w($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21861	21951	
==>head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21861	21951	
==>head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9922	10019	
==>t()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `co <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9922	10019	
==>t()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `co <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13593	13688	
==>idays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is us <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13593	13688	
==>idays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1862	1991	
==>efined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1862	1991	
==>efined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1862	1991	
==>efined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(ne <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5579	5683	
==>bset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# lo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4709	4813	
==>bset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# lo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5579	5683	
==>bset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# lo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4709	4813	
==>bset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# lo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16434	16559	
==>n {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19911	20036	
==>n {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24022	24140	
==>en_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20443	20561	
==>en_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	266	404	
==>imple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	264	402	
==>imple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20194	20283	
==>tem $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Au <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20194	20283	
==>tem $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Au <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7922	8110	
==>EMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7922	8110	
==>EMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bo <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2332	2446	
==>al_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    prin <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2332	2446	
==>al_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14361	14473	
==>arams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14361	14473	
==>arams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14361	14473	
==>arams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method( <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2690	2788	
==>scriber), :publisher($?SELF));
            ( %.subscriptions<$name> ||= Set.new ).insert($subscript <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6288	6393	
==>ndef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $messag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6288	6393	
==>ndef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $messag <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	968	1062	
==>0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	968	1062	
==>0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7341	7444	
==>e clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3052	3155	
==>rrently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->add_packages($pkg1, $pkg2, ... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7341	7444	
==>e clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7341	7444	
==>e clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4994	5137	
==>our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param}{cpan_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11015	11138	
==>ms } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11015	11138	
==>ms } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11015	11138	
==>ms } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	801	953	
==>:Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	801	953	
==>:Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3912	4013	
==>e outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

meth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3912	4013	
==>e outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

meth <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	253	386	
==>gex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	253	386	
==>gex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6561	6678	
==>loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by trans <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6561	6678	
==>loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by trans <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14621	14717	
==>arams} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2102	2198	
==>arams} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6909	7012	
==>sg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7199	7302	
==>sg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6909	7012	
==>sg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7199	7302	
==>sg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2116	2232	
==>ethod as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi method as (--> Array) { @.s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30371	30467	
==>ding>) may or may not resemble those of the original. 
The anonymous function in the argument C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34923	35018	
==>ding>) may or may not resemble those of the original.
The anonymous function in the argument C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34105	34200	
==>ding>) may or may not resemble those of the original.
The anonymous function in the argument C<$ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3971	4110	
==>anonpath(
            File::Spec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1848	1948	
==>k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1848	1948	
==>k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1848	1948	
==>k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6216	6354	
==>ethod}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	653	781	
==>of reference";
    (blessed($attrs) && $attrs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37128	37221	
==>rickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37128	37221	
==>rickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4434	4538	
==>> "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4434	4538	
==>> "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4434	4538	
==>> "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21147	21313	
==>turns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17903	18055	
==>turns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41171	41320	
==>turns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44071	44220	
==>turns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2261	2416	
==>->{file}           
                ? JIB::Package::Source->Object::Accessor::new           :
            $args->{installation}   
                ? JIB::Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1540	1628	
==>tr.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1540	1628	
==>tr.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1540	1628	
==>tr.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functio <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	42	156	
==>e { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $. <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	42	156	
==>e { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18443	18543	
==>urn $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14864	14964	
==>urn $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37891	38016	
==>s ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37891	38016	
==>s ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37891	38016	
==>s ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10905	11013	
==>m, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    lastpos = length target
    $S0 = substr tar <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3167	3264	
==>e 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.deci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3167	3264	
==>e 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.deci <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9068	9160	
==>other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9068	9160	
==>other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5869	5974	
==>"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5869	5974	
==>"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5869	5974	
==>"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3573	3677	
==>=~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE "$preamble$m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6983	7082	
==>ed" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1338	1435	
==>ed" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	437	533	
==>ed" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "not implemented <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	511	607	
==>_native { shift }

# keep this here for a consistent interface
sub to_str { str->new((shift)->{na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3741	3907	
==>obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3741	3907	
==>obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3741	3907	
==>obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	150	254	
==>, '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' => Thunk(
		Seq(
			Param('$handle'),
			Param('$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2270	2418	
==>nless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specifi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2270	2418	
==>nless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specifi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11386	11478	
==>>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11386	11478	
==>>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9364	9525	
==>,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10349	10510	
==>,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9364	9525	
==>,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10349	10510	
==>,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1282	1405	
==>\@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1282	1405	
==>\@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35623	35715	
==>N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40173	40265	
==>N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9735	9852	
==>ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9735	9852	
==>ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9735	9852	
==>ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17552	17653	
==>MOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char* stringarg, char* strend, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19986	20090	
==>ros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14977	15074	
==>};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14977	15074	
==>};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14977	15074	
==>};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14660	14830	
==>ame'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14660	14830	
==>ame'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14660	14830	
==>ame'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUT <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16694	16808	
==>typ};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_CODE {
    my($pkg)=@_;
    " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46881	47037	
==>urn' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  ->and(block-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7410	7497	
==>$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7410	7497	
==>$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7410	7497	
==>$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6489	6627	
==>l' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6489	6627	
==>l' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6489	6627	
==>l' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33770	33873	
==>Branch> example.  Let me explain what the
'&' metacharacter will mean.  If you've used F<vim>, you might <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1752	1878	
==>e?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.unive <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1752	1878	
==>e?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.unive <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	606	710	
==>ass: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	606	710	
==>ass: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12174	12277	
==>ial set of generic variables
ROOT: env($$) = { Clone::clone(\%types::prelude) }
ROOT: generic_in($$) = { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11199	11298	
==>ed to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11199	11298	
==>ed to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11199	11298	
==>ed to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Rol <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13818	13978	
==>.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3935	4079	
==>.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3935	4079	
==>.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3935	4079	
==>.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8151	8242	
==>.members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).membe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7281	7372	
==>.members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8151	8242	
==>.members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7281	7372	
==>.members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).membe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1261	1407	
==>::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (jo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1261	1407	
==>::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (jo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2234	2331	
==>itrd and copies your pugs binary and the shared libraries
it needs on it. Finally, it will call mk <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1845	1948	
==>delete_keyed_int
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5147	5247	
==>s = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5147	5247	
==>s = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5147	5247	
==>s = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ - <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	352	541	
==>atus_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	352	541	
==>atus_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7771	7918	
==>sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7771	7918	
==>sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7771	7918	
==>sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #war <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1170	1289	
==>own.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1170	1289	
==>own.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1170	1289	
==>own.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeig <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12291	12388	
==>es an object (or a reference
to an array of them) and does something to them (and their children). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34259	34372	
==>y = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34259	34372	
==>y = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34259	34372	
==>y = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::is <==
4	/Users/nnunley/pugs/util/run-smoke.pl	405	505	
==>CPAN and try again.

A bundle is available to install at Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smok <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1416	1518	
==>O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&Ext <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8874	8971	
==>>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
ma <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8874	8971	
==>>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
ma <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1338	1434	
==>O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&Ext <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3530	3625	
==>}.

p6_concatenation(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2067	2157	
==>Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'rea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2067	2157	
==>Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'rea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2067	2157	
==>Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'rea <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30237	30332	
==>plied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34789	34884	
==>plied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33962	34057	
==>plied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relatio <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1636	1802	
==>ift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless $c;
                $c->scalar_fetch;
            },
            hash_sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9875	9997	
==>'name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9875	9997	
==>'name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9875	9997	
==>'name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	205	305	
==>\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	205	305	
==>\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2063	2162	
==>----
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2063	2162	
==>----
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4070	4280	
==>= $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        },              
        class => sub { \&Point3D },        
    };
}

my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16552	16654	
==>x) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16552	16654	
==>x) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16552	16654	
==>x) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7926	8041	
==>de;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7926	8041	
==>de;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7926	8041	
==>de;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4591	4813	
==>->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35351	35455	
==>ail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35351	35455	
==>ail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35351	35455	
==>ail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	28	132	
==>se strict;
use warnings;
our $VERSION = '0.01';

use File::Copy;

# change these two lines if it turns ou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9891	9994	
==>continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	326	426	
==>continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	326	426	
==>continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8051	8178	
==>sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8051	8178	
==>sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8051	8178	
==>sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cla <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	739	854	
==>ns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	739	854	
==>ns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1704	1806	
==>eaders;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1704	1806	
==>eaders;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$fiel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14090	14219	
==>_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14090	14219	
==>_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20012	20099	
==>ickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>las <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20012	20099	
==>ickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>las <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2699	2826	
==>if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file) {
			$chr = shift @file;
			l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9422	9523	
==>$delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9422	9523	
==>$delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9422	9523	
==>$delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	501	602	
==>tr $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	501	602	
==>tr $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	501	602	
==>tr $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21506	21594	
==>'('> <'var'> <VariableDeclarationNoIn> <'in'> <Expression> <')'> <Statement>
}
rule Conti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15520	15628	
==>[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just ex <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15520	15628	
==>[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just ex <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15520	15628	
==>[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just ex <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5615	5706	
==>ype) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13664	13815	
==>urce =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13664	13815	
==>urce =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2194	2338	
==>ft @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
	        print "{}\n";
		ne <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15681	15777	
==>1), !. % this cut is semantic.

rm(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1250	1366	
==>n perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1250	1366	
==>n perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1250	1366	
==>n perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argum <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6224	6332	
==>{
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6224	6332	
==>{
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4402	4503	
==>ta($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4587	4688	
==>ta($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1273	1366	
==>(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args)," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1273	1366	
==>(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args)," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1273	1366	
==>(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args)," <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	898	983	
==>p://mail.python.org/pipermail/python-list/2005-March/270531.html
# and converted to Ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41031	41122	
==>in (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41031	41122	
==>in (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2725	2843	
==>its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $pri <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3189	3307	
==>its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $pri <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2775	2880	
==>s $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    d <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2775	2880	
==>s $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3593	3701	
==>le Comment {  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
rule MultiLineComment {  # see 7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	96	196	
==>$CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	96	196	
==>$CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	96	196	
==>$CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use w <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8215	8350	
==>atch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(mar <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8215	8350	
==>atch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(mar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16354	16482	
==>se;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ... <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16354	16482	
==>se;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ... <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3016	3131	
==>( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3004	3119	
==>( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5981	6096	
==>ule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6174	6289	
==>ule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escap <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9417	9510	
==>ubset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9417	9510	
==>ubset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3288	3387	
==>c?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The objec <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3346	3445	
==>c?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The objec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14290	14385	
==>n (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_strin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14290	14385	
==>n (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14946	15070	
==>Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14946	15070	
==>Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14946	15070	
==>Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	799	919	
==>{
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	799	919	
==>{
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	799	919	
==>{
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($j <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	249	357	
==>amName;
has Perl::Cxt $paramContext;
has Any $paramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1730	1830	
==>fined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1730	1830	
==>fined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1730	1830	
==>fined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2112	2219	
==>%hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2112	2219	
==>%hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2112	2219	
==>%hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1030	1125	
==>sure::signature';

package method::params;

use strict;
use warnings;

use base 'closure::params <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3360	3488	
==>rt_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3360	3488	
==>rt_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2504	2609	
==>will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $bas <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2504	2609	
==>will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22314	22432	
==>UB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22314	22432	
==>UB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22314	22432	
==>UB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7422	7540	
==>le definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix' <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5713	5926	
==>{
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %event <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5713	5926	
==>{
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %event <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4853	5050	
==>{
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %event <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4853	5050	
==>{
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %event <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	73	174	
==>ne supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	73	174	
==>ne supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	73	174	
==>ne supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7116	7213	
==>}));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7116	7213	
==>}));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7116	7213	
==>}));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15040	15137	
==>sword") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$tex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15040	15137	
==>sword") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2140	2263	
==>Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2140	2263	
==>Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2140	2263	
==>Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not su <==
4	/Users/nnunley/pugs/util/func_refact.pl	482	586	
==>s a function to print more
information about as components are computed.
END
    exit 0;
}
 
our $nodes = <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1511	1656	
==>);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = fil <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1511	1656	
==>);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = fil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20245	20340	
==>to the program package.  No
recompilation necessary.  This is something that end users could do, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20245	20340	
==>to the program package.  No
recompilation necessary.  This is something that end users could do, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23113	23210	
==>+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21922	22019	
==>+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23113	23210	
==>+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21922	22019	
==>+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channe <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20274	20366	
==>c?  arbitrary n?  how arbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10909	11019	
==>value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10909	11019	
==>value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10909	11019	
==>value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = ne <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8987	9078	
==>efault=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'paramContext'}) =~ /Slu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6365	6468	
==>ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>val <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6377	6480	
==>ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>val <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4660	4752	
==>ff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4660	4752	
==>ff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1919	2040	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1919	2040	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2368	2504	
==>indow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) { <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	475	611	
==>.($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2368	2504	
==>indow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	475	611	
==>.($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3317	3474	
==>onse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $ag <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3317	3474	
==>onse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $ag <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14789	14890	
==>infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14789	14890	
==>infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2627	2748	
==>implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2627	2748	
==>implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4994	5097	
==>d {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4994	5097	
==>d {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_conten <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	154	267	
==>r       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	154	267	
==>r       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant retu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2810	2898	
==>ives(W, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_alternativ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5313	5489	
==>$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5313	5489	
==>$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{matc <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1190	1284	
==>everse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array method <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1190	1284	
==>everse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2042	2148	
==>as $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	51	149	
==>as $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	51	149	
==>as $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2396	2489	
==>l --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testgraph: $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13385	13491	
==>s;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13385	13491	
==>s;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13385	13491	
==>s;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    r <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	99	201	
==>üssig
}
class Welt {
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=benutze <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2197	2305	
==>b arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4003	4109	
==>$self;
}

sub left { $_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1607	1702	
==>PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1607	1702	
==>PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1607	1702	
==>PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6060	6162	
==>rse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6060	6162	
==>rse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6060	6162	
==>rse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Runtime.pm	3	99	
==>ckage Perl6::Runtime;

use strict;
use warnings;

use Perl6::Core::Closure;

$::ENV = closure::en <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1217	1309	
==>splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1217	1309	
==>splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1217	1309	
==>splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8278	8398	
==>> $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8278	8398	
==>> $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1811	1923	
==>landic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1811	1923	
==>landic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	394	511	
==>ession_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26469	26562	
==>icates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is ei <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31021	31114	
==>icates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is ei <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30023	30116	
==>icates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is ei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2703	2806	
==>SPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2703	2806	
==>SPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2703	2806	
==>SPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  war <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2653	2758	
==>tatus::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2653	2758	
==>tatus::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4350	4439	
==>_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4600	4689	
==>_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14965	15058	
==>s relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - Thi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14965	15058	
==>s relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - Thi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20981	21070	
==>rmalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Cur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20981	21070	
==>rmalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Cur <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1706	1848	
==>->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7802	7904	
==>};
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7790	7892	
==>};
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1599	1696	
==>->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19508	19603	
==>in program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19508	19603	
==>in program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10007	10101	
==>"match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ', <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10742	10836	
==>"match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ', <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1408	1562	
==>bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1408	1562	
==>bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37463	37558	
==>hod takes the name of a Perl package in its positional parameter
$module_name (a string) and tri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37463	37558	
==>hod takes the name of a Perl package in its positional parameter
$module_name (a string) and tri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16595	16703	
==>IS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16595	16703	
==>IS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16595	16703	
==>IS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25121	25212	
==>(
		type::variable::free->new,
		type::variable::free->new,
	);
	is($type->stringify, "∀α <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10039	10151	
==>"package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10039	10151	
==>"package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10039	10151	
==>"package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7193	7301	
==>ot implemented" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Pre <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	153	278	
==>art_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %ev <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	153	278	
==>art_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %ev <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	153	278	
==>art_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	153	278	
==>art_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %ev <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1730	1863	
==>", 'build');
        system("../../Setup$Config{_exe}", 'install', '--user');
        chdir $pwd;
    }
    print "*** Finished buildi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2356	2483	
==>lags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2903	3030	
==>lags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3450	3577	
==>lags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2130	2236	
==>inheritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2130	2236	
==>inheritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	68	167	
==>ar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	68	167	
==>ar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23646	23761	
==>ed $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23646	23761	
==>ed $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23646	23761	
==>ed $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	4	102	
==>ss Perl::VCode;

# from src/Pugs/AST/Internals.hs (see data VCode)

has Bool $.isMulti;

has Str $. <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	45	177	
==>.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	45	177	
==>.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14296	14396	
==>>>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14296	14396	
==>>>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9477	9577	
==>n0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9477	9577	
==>n0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5617	5715	
==>so a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5617	5715	
==>so a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5916	6029	
==>and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5712	5820	
==>and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4021	4110	
==>age = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4021	4110	
==>age = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4021	4110	
==>age = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribut <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	553	698	
==>r 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 + <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	553	698	
==>r 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 + <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1322	1424	
==>to &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1322	1424	
==>to &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6568	6667	
==>ring.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6568	6667	
==>ring.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15816	15912	
==>Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
mo <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15816	15912	
==>Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
mo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	781	888	
==>me::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' )."}";
    s/\$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3878	3984	
==>ity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3878	3984	
==>ity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3878	3984	
==>ity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2555	2655	
==>$rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2695	2795	
==>$rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: V <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3853	3950	
==>, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4037	4134	
==>, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid ru <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3100	3216	
==>ss "you can only add types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push(@{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	439	533	
==>FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	439	533	
==>FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	439	533	
==>FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1994	2147	
==>fined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1994	2147	
==>fined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1994	2147	
==>fined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1613	1763	
==>}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1613	1763	
==>}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1613	1763	
==>}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	948	1065	
==>me = $name;
    return $?SELF;

}

# takes the object and "builds" it into a class
method apply {
    ...
}

# hmm, wh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25046	25139	
==>h is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23810	23903	
==>h is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25046	25139	
==>h is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23810	23903	
==>h is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<e <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5107	5250	
==>having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it loo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5571	5714	
==>having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it loo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6143	6244	
==>tent);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6143	6244	
==>tent);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.conten <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4995	5131	
==>6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4995	5131	
==>6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4995	5131	
==>6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14486	14587	
==>pe %s%s passed through

=item RPe_BADPOS (-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS (-25)

PO <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5589	5699	
==>);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstraction violation
    my $varlist = join("," <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1198	1303	
==>dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1198	1303	
==>dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1198	1303	
==>dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8910	9030	
==>udge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /w <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	644	764	
==>udge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /w <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8910	9030	
==>udge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /w <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8910	9030	
==>udge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /w <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7790	7894	
==>an0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7790	7894	
==>an0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8780	8878	
==>>[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8776	8874	
==>>[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2125	2258	
==>( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2125	2258	
==>( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2125	2258	
==>( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshif <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8203	8299	
==>he values returned will be array references to the sub
array.

In Scalar context, they all return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	200	291	
==>CKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	200	291	
==>CKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8271	8416	
==>>[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8271	8416	
==>>[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	825	916	
==>:L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	825	916	
==>:L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4949	5052	
==>d = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4949	5052	
==>d = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4949	5052	
==>d = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	625	723	
==>instead of "print STDERR" when outputing failure diagnostic
# messages
sub _diag {
    return unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8109	8216	
==>}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8109	8216	
==>}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8109	8216	
==>}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11219	11404	
==>ail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3628	3721	
==>IL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3628	3721	
==>IL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3628	3721	
==>IL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	335	445	
==>$self->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1822	1929	
==>Script
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1822	1929	
==>Script
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1822	1929	
==>Script
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12986	13102	
==>er{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12986	13102	
==>er{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $fr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1236	1334	
==>odule is simply a hash from strings

(symbol names) to objects (containers)



the Code part consis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1181	1276	
==>odule is simply a hash from strings
(symbol names) to objects (containers)

the Code part consis <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5710	5800	
==>lay_type($de_facto_type) . " with " . $self->display_type($expected_type);
		warn Data::Dum <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	844	984	
==>t <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4083	4223	
==>t <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	844	984	
==>t <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4083	4223	
==>t <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2368	2495	
==>t 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2368	2495	
==>t 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual co <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	104	202	
==>or out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	104	202	
==>or out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1550	1665	
==>thod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1550	1665	
==>thod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1550	1665	
==>thod() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4629	4730	
==>fty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4629	4730	
==>fty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4629	4730	
==>fty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on : <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1053	1146	
==>ed implicit abstraction kludge would be
# unsustainable, and unsuitable for anything but throw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	704	809	
==>te slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	704	809	
==>te slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	704	809	
==>te slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy l <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3180	3275	
==>flags);
    fprintf(stderr," start=%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n", <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9872	9973	
==>string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9872	9973	
==>string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6412	6512	
==>reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6412	6512	
==>reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	603	717	
==>al A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, gr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	603	717	
==>al A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, gr <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1510	1605	
==>head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Ha <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1510	1605	
==>head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6985	7093	
==>{ 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6985	7093	
==>{ 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6985	7093	
==>{ 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25389	25492	
==>f it usually matches.]
 *
 * [In fact, we now use regmust in many cases to locate where the search
 * st <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2332	2446	
==>, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2390	2504	
==>, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use e <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	383	494	
==> returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

met <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	383	494	
==> returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

met <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8748	8886	
==>f -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8580	8711	
==>);
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8580	8711	
==>);
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8580	8711	
==>);
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8658	8760	
==>ay "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7627	7729	
==>ay "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8658	8760	
==>ay "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7627	7729	
==>ay "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7533	7647	
==>shift;
    my $index    = shift;
    
    return unless exists $index->{_dirs} or exists $index->{_files};
    coll <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	584	685	
==>hods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	584	685	
==>hods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	584	685	
==>hods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New met <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17323	17423	
==>ence( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20800	20900	
==>ence( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20378	20478	
==>ence( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relat <==
4	/Users/nnunley/pugs/util/package-osx.pl	9846	9963	
==>") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1445	1545	
==>ly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1445	1545	
==>ly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1445	1545	
==>ly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1898	1998	
==>tion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1898	1998	
==>tion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1898	1998	
==>tion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-C <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10976	11073	
==>ve(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is no <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8380	8477	
==>ve(...)>

Removes the specified items from the set. Returns the number of items removed.

It is no <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10976	11073	
==>ve(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is no <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8380	8477	
==>ve(...)>

Removes the specified items from the set. Returns the number of items removed.

It is no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11541	11641	
==>f_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3132	3232	
==>f_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c" <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3983	4064	
==><http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54 <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3983	4064	
==><http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7884	7982	
==>back' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7884	7982	
==>back' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	94	186	
==>-----------------------------
## Mini Meta-Model with explicit EigenClasses
## -------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	117	209	
==>------
## Mini Meta-Model with explicit EigenClasses
## ------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1950	2042	
==>rl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1950	2042	
==>rl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1950	2042	
==>rl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8131	8281	
==>ss => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8131	8281	
==>ss => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8131	8281	
==>ss => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5649	5750	
==>:Parser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9083	9251	
==>@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9918	10086	
==>@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4810	4907	
==>node.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5060	5157	
==>node.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1217	1324	
==>r  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1217	1324	
==>r  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1217	1324	
==>r  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	521	636	
==>b get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	521	636	
==>b get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	521	636	
==>b get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	493	606	
==>s of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	714	827	
==>xpecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	714	827	
==>xpecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	493	606	
==>s of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23383	23484	
==>1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23383	23484	
==>1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23383	23484	
==>1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)) <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14439	14548	
==>eason        why is it todo or skip? (if any)

It will also catch lone 'not' lines, note it saw them in
C<< $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1729	1829	
==>fix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1729	1829	
==>fix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1729	1829	
==>fix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)" <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16126	16235	
==>->new(undef);
    
    # if the symbol is not a predefined global it's an error. If it exists, it can be reduc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2539	2644	
==>->new(undef);

    # if the symbol is not a predefined global it's an error. If it exists, it can be reduc <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	401	505	
==>b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi * <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	401	505	
==>b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3508	3621	
==>paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3508	3621	
==>paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3508	3621	
==>paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12528	12631	
==>'t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12528	12631	
==>'t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12528	12631	
==>'t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	228	354	
==>) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	222	348	
==>) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	228	354	
==>) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	222	348	
==>) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4192	4295	
==>@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4192	4295	
==>@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4192	4295	
==>@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3562	3658	
==>d prevent the Perl 6 compiler
from bootstrapping. 

If that is the case, running C<Makefile.PL> a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19221	19346	
==>' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19221	19346	
==>' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19221	19346	
==>' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{at <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4321	4438	
==>ue""isLazy""isNamed""isOptional"
                             #       "isWritable""paramContext""paramDefault""paramNa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41333	41423	
==>dback towards improving this module's
documentation, particularly towards using a much shor <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41333	41423	
==>dback towards improving this module's
documentation, particularly towards using a much shor <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	580	797	
==>shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	580	797	
==>shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11833	11955	
==>@grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12112	12234	
==>@grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11784	11881	
==>s can be polymorphic to one another. 

Because instances of class all conform to the Role interfac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11784	11881	
==>s can be polymorphic to one another. 

Because instances of class all conform to the Role interfac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11784	11881	
==>s can be polymorphic to one another. 

Because instances of class all conform to the Role interfac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34063	34156	
==>yof_char (C<X>)

Data: actual character

=head2 anyof_range

Family: anyof_range

Types: anyof <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2455	2588	
==>{
    my $config = get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40623	40736	
==>= @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40623	40736	
==>= @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40623	40736	
==>= @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3217	3330	
==>hod kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3217	3330	
==>hod kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3217	3330	
==>hod kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	312	405	
==>ctive types can only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncTy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5716	5823	
==>e_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5716	5823	
==>e_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5716	5823	
==>e_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5856	5960	
==>tring.o );
    #push @o, 'src/UnicodeC.o' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1168	1301	
==>type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1168	1301	
==>type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	75	205	
==>s::Grammar::BaseCategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3473	3570	
==>elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 vers <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3473	3570	
==>elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 vers <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3473	3570	
==>elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 vers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3151	3273	
==>'$<ident>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12899	13011	
==>gs; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) == <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16376	16488	
==>gs; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) == <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15738	15850	
==>gs; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) == <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1773	1891	
==>rint "\n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $dep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7603	7709	
==>ng $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $dif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7603	7709	
==>ng $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $dif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7603	7709	
==>ng $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $dif <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30513	30608	
==>o mail bugs, fixes and enhancements to 
C<< <bug-test-harness >> at C<< rt.cpan.org> >>.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	551	653	
==>" 
   this file is currently simply a source code generator.
   Which also addresses the problem that m <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	551	653	
==>" 
   this file is currently simply a source code generator.
   Which also addresses the problem that m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6173	6270	
==>modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %modifiers <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4653	4749	
==>6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4363	4479	
==>.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..2 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4363	4479	
==>.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..2 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	897	987	
==>ts fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	897	987	
==>ts fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7146	7304	
==>\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7146	7304	
==>\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7146	7304	
==>\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new( <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1596	1707	
==>atches == $cap { return @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is export{
    m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8070	8187	
==>2 = ToUint32($V);
            raise RangeError if $Result12 != ToNumber($V);
            my $length = +($A.property_va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	705	816	
==>no_match;
};

sub cpan_bareword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	29	124	
==>eam is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	29	124	
==>eam is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6707	6893	
==>t.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6707	6893	
==>t.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12390	12485	
==>bject(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5033	5128	
==>bject(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	398	538	
==>};
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib supp <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	398	538	
==>};
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib supp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20021	20116	
==>to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($unam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20021	20116	
==>to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($unam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	66	167	
==>le::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Ins <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	61	162	
==>le::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Ins <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	61	162	
==>le::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8172	8289	
==>ckage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8172	8289	
==>ckage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8172	8289	
==>ckage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19013	19119	
==>print $eval_log_file $code,"\n" if $eval_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	834	953	
==>w require synchronised versions.
    # This will be used to ensure we don't accidentally load old or
    # different ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2286	2391	
==>r(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2286	2391	
==>r(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2286	2391	
==>r(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1843	1955	
==>" . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1843	1955	
==>" . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Comp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3949	4041	
==>$span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_univer <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3949	4041	
==>$span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_univer <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7217	7309	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6347	6439	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7217	7309	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6347	6439	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19727	19822	
==>e slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18708	18803	
==>e slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19727	19822	
==>e slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18708	18803	
==>e slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5120	5238	
==>tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16156	16274	
==>tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17644	17762	
==>tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22327	22445	
==>tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $sel <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4867	4994	
==>ATURES
}
    else {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile" <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1917	2027	
==>patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1917	2027	
==>patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5625	5733	
==>native type";
    $self->{env}->{$name} = reference->new($value);      
}

sub set {
    my ($self, $name, $v <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	220	316	
==>, also known as sixpan.

Please refer the documentation of the other Modules in the JIB namespace <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9424	9538	
==>6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9424	9538	
==>6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9424	9538	
==>6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2167	2280	
==>$x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd nu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2326	2426	
==>w";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter that reduce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17469	17567	
==>s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17469	17567	
==>s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17469	17567	
==>s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Va <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	133	244	
==>=qw(Match);
use overload
    'bool' => 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1561	1659	
==>w PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1561	1659	
==>w PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1561	1659	
==>w PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	511	634	
==>(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	482	605	
==>(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	511	634	
==>(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	511	634	
==>(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9804	9913	
==>special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9804	9913	
==>special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9804	9913	
==>special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8980	9065	
==>et_def_x(L0,L).
p5_charset_def_x(L0,L1) --> "-", {append(L0,[char(45)],L1)}, !.
p5_cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4317	4439	
==>p2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4168	4286	
==>p2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11550	11651	
==>comp and exec.
  The hooks are not package-specific.

Design:

  The comp hook sub should return a sub <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4362	4460	
==><SingleLineCommentChar> <SingleLineCommentChars>?
}
rule SingleLineCommentChar {  # see 7.4
      < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7485	7659	
==>) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7485	7659	
==>) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7485	7659	
==>) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38931	39039	
==>ion - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38931	39039	
==>ion - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38931	39039	
==>ion - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8266	8362	
==>::Package->new( file => $file );

    return $self->add_package(package => $pkg, force => $force) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5165	5275	
==>an.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5165	5275	
==>an.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	314	411	
==>s!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	314	411	
==>s!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12267	12365	
==>try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	453	551	
==>t_value => return value ] pair
### the default_value is the value of initalization, the return valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12267	12365	
==>try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12267	12365	
==>try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9018	9148	
==>f ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	752	882	
==>f ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9018	9148	
==>f ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9018	9148	
==>f ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1428	1553	
==>s);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.k <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1428	1553	
==>s);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.k <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1428	1553	
==>s);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.k <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18816	18915	
==>nmentExpressionNoIn :words {  # see 11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideExpre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7749	7844	
==>merical value
of the message.  If you use new() the F<Regexp::Parser> object will
still be retur <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	146	276	
==>Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_si <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	146	276	
==>Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7579	7677	
==>le (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7579	7677	
==>le (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	786	894	
==>erstanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A prag <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	786	894	
==>erstanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A prag <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5595	5693	
==>, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

su <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5653	5751	
==>, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11898	12033	
==>is->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11898	12033	
==>is->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11898	12033	
==>is->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

pa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	358	465	
==>str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1752	1878	
==>j->mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3123	3234	
==>l HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3123	3234	
==>l HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2732	2826	
==>place holder with the compiled version of the builtin
    $val->set($self->reduce($builtin));
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13149	13263	
==>scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13149	13263	
==>scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13149	13263	
==>scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    m <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2551	2650	
==>efined $smoke_upload_script) {
    system("$^X $smoke_upload_script $html_location") == 0
        or <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2732	2840	
==>as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2732	2840	
==>as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2732	2840	
==>as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     } <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30675	30772	
==>we know for
sure is, that it was inspired by Larry Wall's TEST script that came
with perl distribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18894	19018	
==>d => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18894	19018	
==>d => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18894	19018	
==>d => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, en <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6260	6363	
==>roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special case Doe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2262	2394	
==>$cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7785	7886	
==>e the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7785	7886	
==>e the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7785	7886	
==>e the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, spr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33585	33710	
==>length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33585	33710	
==>length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33585	33710	
==>length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UN <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18013	18122	
==>n";};
    $code .= "sub p6__lookup {\n";
    $code .= $hlp->(shift @classes);
    $code .= '  exists($META->FE <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2326	2416	
==>quest.

=over 4

=item C<$Test::Harness::Verbose>

The package variable C<$Test::Harness::V <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14149	14254	
==>uples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17626	17731	
==>uples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	706	809	
==>_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	706	809	
==>_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = e <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2032	2135	
==>->{_is_win32} = ( $^O =~ /^(MS)?Win32$/ );
    $self->{_is_macos} = ( $^O eq 'MacOS' );
}

=head1 Analys <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23114	23216	
==>g groups) in the regex.

=item captures

An array reference to the 'open' nodes.

=item flags

An array <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4853	4951	
==>he quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 20 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4853	4951	
==>he quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 20 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	967	1157	
==>my @expect = $p->YYExpect;  # XXX is this expensive?
            
            # print "tail $match \n"; 
            
            # XXX @expect should use symbolic names; better use TABLE ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5330	5429	
==>ackage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method woul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5330	5429	
==>ackage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method woul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5330	5429	
==>ackage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method woul <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3280	3379	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3338	3437	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "T <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9040	9137	
==>e terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
h <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9040	9137	
==>e terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
h <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	178	284	
==>ts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinit <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	186	292	
==>ts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinit <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	178	284	
==>ts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinit <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	186	292	
==>ts and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12841	12992	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12841	12992	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12841	12992	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20291	20398	
==>t -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7780	7876	
==>ion ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32204	32300	
==>each set's member for language B and displays that; and so on.

I<For the present, Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32204	32300	
==>each set's member for language B and displays that; and so on.

I<For the present, Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7780	7876	
==>ion ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2713	2816	
==>String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submetho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	110	213	
==>my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::B <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2713	2816	
==>String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submetho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	110	213	
==>my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::B <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	639	888	
==>edText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	639	888	
==>edText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8017	8115	
==>hod intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11494	11592	
==>hod intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7129	7321	
==>m[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $new <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7129	7321	
==>m[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $new <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9543	9718	
==>mplemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15087	15262	
==>mplemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9543	9718	
==>mplemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15081	15256	
==>mplemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2386	2498	
==>ous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2386	2498	
==>ous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method c <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1262	1356	
==>Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of c <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1262	1356	
==>Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5234	5337	
==>if $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  return $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2218	2315	
==>h.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2218	2315	
==>h.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2218	2315	
==>h.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5543	5636	
==>}
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5543	5636	
==>}
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12173	12265	
==>push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12173	12265	
==>push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10449	10591	
==>hildren(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.ne <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10449	10591	
==>hildren(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.ne <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19728	19823	
==>h.authorization_basic

This method is used to get or set an authorization header that use the
"B <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19728	19823	
==>h.authorization_basic

This method is used to get or set an authorization header that use the
"B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16824	16944	
==>ub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16824	16944	
==>ub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16824	16944	
==>ub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
s <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5289	5385	
==>ode is inlined into the executable, to be
"eval"ed when pugs starts.  After the executable is rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1710	1823	
==>tive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1710	1823	
==>tive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1710	1823	
==>tive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subrou <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25467	25638	
==>, \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26125	26296	
==>, \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25746	25917	
==>, \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26404	26575	
==>, \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29223	29339	
==>= @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29223	29339	
==>= @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29223	29339	
==>= @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10100	10224	
==>return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10379	10503	
==>return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15277	15372	
==>ds that deal with dates/times always convert their value to system
time (seconds since Jan 1, 19 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15277	15372	
==>ds that deal with dates/times always convert their value to system
time (seconds since Jan 1, 19 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	301	398	
==>s
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	301	398	
==>s
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	301	398	
==>s
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4286	4381	
==>s significant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance method.  Ret <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6097	6226	
==>so-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6097	6226	
==>so-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12256	12379	
==>lified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12250	12373	
==>lified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to s <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1926	2101	
==>vents<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1926	2101	
==>vents<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13518	13657	
==>g to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13518	13657	
==>g to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13518	13657	
==>g to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1538	1639	
==>_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_capture_bod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1280	1397	
==>name 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

mod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1270	1378	
==>name 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

mod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8615	8704	
==>Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2440	2529	
==>Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
pus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9894	10026	
==>assed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1965	2083	
==>assed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1965	2083	
==>assed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2970	3069	
==>....ok
  t/ok................ok
  t/test-harness......ok
  t/waterloo..........dubious
          Tes <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2120	2244	
==>_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7823	7942	
==>nd slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7823	7942	
==>nd slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7823	7942	
==>nd slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->rev <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7777	7923	
==>)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15647	15774	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15647	15774	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15647	15774	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15053	15211	
==>ublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19228	19386	
==>ublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4439	4549	
==>, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4439	4549	
==>, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5694	5795	
==>these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4824	4925	
==>these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5694	5795	
==>these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4824	4925	
==>these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10202	10346	
==>if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	283	401	
==>elf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	283	401	
==>elf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	283	401	
==>elf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38493	38618	
==>array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38493	38618	
==>array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38493	38618	
==>array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	138	262	
==>ar str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	138	262	
==>ar str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	138	262	
==>ar str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2171	2315	
==>>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2171	2315	
==>>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2171	2315	
==>>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	560	654	
==>confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	560	654	
==>confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	560	654	
==>confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($: <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1496	1599	
==>submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ r <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1496	1599	
==>submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23558	23654	
==>can be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28110	28206	
==>can be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	201	332	
==>uilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22274	22378	
==>_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22274	22378	
==>_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22274	22378	
==>_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	50	302	
==>by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by package <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	50	302	
==>by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by package <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	50	302	
==>by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by package <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	50	302	
==>by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by package <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	675	830	
==>} }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2999	3114	
==>t ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2999	3114	
==>t ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2999	3114	
==>t ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3861	4005	
==>e not found';"
    #         or "return ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # make 'use fatal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5307	5404	
==>name is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5307	5404	
==>name is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5307	5404	
==>name is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15644	15742	
==>keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readlin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15644	15742	
==>keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readlin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15644	15742	
==>keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readlin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30996	31091	
==>t 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdanc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6057	6161	
==>ect>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!use <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6837	6941	
==>ect>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6057	6161	
==>ect>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6837	6941	
==>ect>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!use <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12313	12428	
==>Relation::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the hea <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	30	128	
==>0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	30	128	
==>0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $! <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	18	112	
==>Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) r <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	18	112	
==>Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) r <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5238	5369	
==>ec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5238	5369	
==>ec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        e <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	62	171	
==>e;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # y <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	62	171	
==>e;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2526	2637	
==>s

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->next <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2526	2637	
==>s

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->next <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2526	2637	
==>s

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->next <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21572	21667	
==>2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_min subst <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4477	4607	
==>= shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5029	5143	
==>the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5029	5143	
==>the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5029	5143	
==>the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1873	1996	
==>word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1933	2056	
==>word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $gra <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15236	15338	
==>2 *startp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in subb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3642	3747	
==>two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3642	3747	
==>two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4516	4620	
==>two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4516	4620	
==>two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9148	9273	
==>versed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9148	9273	
==>versed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9148	9273	
==>versed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10101	10226	
==>ar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9899	10011	
==>TORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1563	1675	
==>xact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9899	10011	
==>TORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9899	10011	
==>TORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3175	3300	
==>ror in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3315	3440	
==>ror in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args} <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	473	597	
==>eturns Str is builtin is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str, <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3521	3620	
==>:min(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1199	1304	
==>y not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1199	1304	
==>y not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1199	1304	
==>y not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	306	427	
==>sses";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5963	6059	
==>ning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5963	6059	
==>ning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5963	6059	
==>ning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14313	14405	
==>d whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14313	14405	
==>d whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	78	169	
==>prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	78	169	
==>prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2693	2795	
==>ta,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2693	2795	
==>ta,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35734	35827	
==>a single
Relation::Example in its C<$other> argument, where <$other> has the same heading as
t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37766	37859	
==>a single Relation::Example
in its C<$other> argument, where <$other> has the same heading as t <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2944	3051	
==>idget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-o <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2944	3051	
==>idget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20826	20921	
==>vious non-Unix Mac OS) handles
lots of other program resources as data files as well, making the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20826	20921	
==>vious non-Unix Mac OS) handles
lots of other program resources as data files as well, making the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36348	36449	
==>es the first number found in a string
  # that contains 'foo' somewhere init
  my $rx = q{^.*foo&\D*(\ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4462	4556	
==>lly creates and returns a new Test::Builder instance.  It
takes the same optional named argumen <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4462	4556	
==>lly creates and returns a new Test::Builder instance.  It
takes the same optional named argumen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5986	6080	
==>lly creates and returns a new Test::Builder instance.  It
takes the same optional named argumen <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1366	1596	
==>t.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature fr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21125	21225	
==>e names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25677	25777	
==>e names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24292	24392	
==>e names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relatio <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9108	9254	
==>lines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unes <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9108	9254	
==>lines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21917	22033	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18338	18454	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6588	6838	
==>ly:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6588	6838	
==>ly:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1895	1993	
==>$linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1895	1993	
==>$linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1895	1993	
==>$linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2911	3003	
==>xist of Bool (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18021	18142	
==>(optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (op <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17059	17180	
==>(optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18021	18142	
==>(optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17059	17180	
==>(optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (op <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4522	4652	
==>lf = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	478	588	
==>rn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	478	588	
==>rn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	478	588	
==>rn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7903	8015	
==>if (! $parser->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6932	7022	
==>r($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6932	7022	
==>r($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6932	7022	
==>r($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pri <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2979	3091	
==>ser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.P <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2979	3091	
==>ser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.P <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	594	689	
==>esult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	594	689	
==>esult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns St <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4816	4920	
==>< 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4816	4920	
==>< 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4816	4920	
==>< 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2159	2310	
==>tate):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2089	2236	
==>tate):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $matc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10427	10522	
==>s.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10427	10522	
==>s.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closur <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13585	13721	
==>while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = substr($strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3718	3846	
==>while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3718	3846	
==>while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3718	3846	
==>while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($strin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8885	9034	
==>' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENU <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8885	9034	
==>' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENU <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1804	1930	
==>{
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1804	1930	
==>{
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) { <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5528	5616	
==>ack

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5528	5616	
==>ack

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7725	7813	
==>ack

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test: <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1383	1508	
==>nted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1383	1508	
==>nted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31747	31840	
==>tively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36297	36390	
==>tively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2697	2942	
==>ay::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9991	10134	
==>ed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff eleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9991	10134	
==>ed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff eleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9991	10134	
==>ed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff eleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11814	11925	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11814	11925	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11814	11925	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2090	2205	
==>ep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2970	3085	
==>ep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15991	16084	
==>ng with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15991	16084	
==>ng with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note th <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	611	751	
==>s {
    my $self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1195	1299	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2069	2173	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compile <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	580	677	
==>\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compile <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7511	7649	
==>]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7499	7637	
==>]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7290	7384	
==>ement ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_elemen <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7290	7384	
==>ement ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_elemen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22035	22131	
==>c
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20916	21012	
==>c
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22035	22131	
==>c
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20916	21012	
==>c
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

= <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3605	3704	
==>_func 'cosec';
trig_func 'cotan';
trig_func 'asec';
trig_func 'acosec';
trig_func 'acotan';
trig_fun <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2350	2448	
==>ss system.

These objects are changed when you define new traits of Classes,
Roles, etc - or when y <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2548	2641	
==>List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Conta <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2548	2641	
==>List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	736	847	
==>ue;
    }
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13962	14061	
==>_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13962	14061	
==>_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13962	14061	
==>_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	751	871	
==>>{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @{$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12912	13016	
==>LASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12912	13016	
==>LASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12912	13016	
==>LASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	202	308	
==>6, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	202	308	
==>6, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7369	7471	
==>_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($kil <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7369	7471	
==>_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($kil <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	797	932	
==>rt;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	797	932	
==>rt;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $ope <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	0	102	
==>module CGI::Server-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     | <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	0	102	
==>module CGI::Server-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     | <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12421	12530	
==>xact => chr oct $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3725	3832	
==>d_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3725	3832	
==>d_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3725	3832	
==>d_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20332	20447	
==>ss' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20332	20447	
==>ss' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20332	20447	
==>ss' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Clas <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2513	2611	
==>die::Compiler::Placeholder->new(undef);

    # if the symbol is not a predefined global it's an err <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	130	222	
==>Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attributes", "Set", { compa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	631	750	
==>m
       p6_as_str
       p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_objects_from_whateve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1147	1246	
==>new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1147	1246	
==>new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1147	1246	
==>new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8412	8512	
==>2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8412	8512	
==>2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	603	695	
==>Cipher API> for general information.

=head2 Constructor options

With no options, Cipher::Ca <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	603	695	
==>Cipher API> for general information.

=head2 Constructor options

With no options, Cipher::Ca <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8759	8865	
==>sts
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8759	8865	
==>sts
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13075	13171	
==>oded
separately and the same number of strings are returned.

If called in void context the argum <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13075	13171	
==>oded
separately and the same number of strings are returned.

If called in void context the argum <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4075	4195	
==>iles are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a pr <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4075	4195	
==>iles are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a pr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1627	1737	
==>$meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8351	8451	
==>rce_object(anyof_class => digit => $neg, $how);
  });

  # graph POSIX class
  $self->add_handler('PO <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	547	661	
==>ours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	547	661	
==>ours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	199	308	
==>nts  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	199	308	
==>nts  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.spa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1597	1705	
==>^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	416	515	
==>ray containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	416	515	
==>ray containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	416	515	
==>ray containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2297	2442	
==>el} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2297	2442	
==>el} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3708	3811	
==>hannels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3708	3811	
==>hannels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handle <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20216	20319	
==>. ;)
It get's is own section, elsewhere.


  regnode program[1];     /* Unwarranted chumminess with comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12133	12228	
==>xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB tr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12133	12228	
==>xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB tr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12133	12228	
==>xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3828	3924	
==>self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3828	3924	
==>self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3828	3924	
==>self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	557	730	
==>single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { dou <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	173	314	
==>?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	173	314	
==>?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	173	314	
==>?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2584	2721	
==>$self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2584	2721	
==>$self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2584	2721	
==>$self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	361	473	
==>|= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	189	283	
==>lue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	189	283	
==>lue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	189	283	
==>lue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	501	591	
==>^^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\$\$", "term:", "no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21781	22230	
==>m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4945	5044	
==>sed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test fi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4945	5044	
==>sed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7142	7241	
==>sed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test fi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4293	4404	
==>turn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4293	4404	
==>turn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18672	18774	
==>ries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    P <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18672	18774	
==>ries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    P <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2218	2318	
==>ecurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2218	2318	
==>ecurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	235	332	
==>ng, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	235	332	
==>ng, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8308	8426	
==>!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8308	8426	
==>!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23001	23101	
==>always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other pa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23001	23101	
==>always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other pa <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2149	2256	
==>k) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2149	2256	
==>k) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	882	986	
==>export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	940	1044	
==>export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13041	13139	
==>e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13041	13139	
==>e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5768	5865	
==>sibility is to return a negative value for
# relative seconds and a positive value for epoch based <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5768	5865	
==>sibility is to return a negative value for
# relative seconds and a positive value for epoch based <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5719	5839	
==>ort {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5777	5897	
==>ort {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18378	18487	
==>, \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<ru <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18378	18487	
==>, \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<ru <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1465	1571	
==>l::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1465	1571	
==>l::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1667	1766	
==>$todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1725	1824	
==>$todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $des <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	18	130	
==>.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	18	130	
==>.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1958	2050	
==>I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the las <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1958	2050	
==>I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the las <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5835	5934	
==>ix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4965	5064	
==>ix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5835	5934	
==>ix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4965	5064	
==>ix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3616	3730	
==>, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3616	3730	
==>, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3616	3730	
==>, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4026	4128	
==>il->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('clos <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	268	398	
==>e, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	268	398	
==>e, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    m <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	268	398	
==>e, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	268	398	
==>e, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	518	620	
==>ringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	518	620	
==>ringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	518	620	
==>ringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2064	2180	
==>];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexical <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2064	2180	
==>];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexical <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2064	2180	
==>];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexical <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8842	8946	
==>r_','$_pos_','$_re_','$_m_','$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $code = "Rul.n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	348	462	
==>add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5373	5467	
==>instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availab <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5373	5467	
==>instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availab <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5373	5467	
==>instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availab <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2288	2414	
==>Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&inf <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2646	2772	
==>Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&inf <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	145	258	
==>se base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	218	331	
==>se base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	240	340	
==>use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	240	340	
==>use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	240	340	
==>use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3612	3719	
==>)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3612	3719	
==>)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3612	3719	
==>)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	512	610	
==>('-' x 80), "\n");

if (! -e "words.db.p6") {
    system("pugs naive_bayesian.p6 add apples apples" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2842	2944	
==>);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2842	2944	
==>);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2842	2944	
==>);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new cont <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26002	26099	
==>ew(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($type->stringify, "∀α. list α →  <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3992	4093	
==>ou can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3992	4093	
==>ou can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1086	1186	
==>Module object mixes in both Package

and Code -- because it is both a namespace of symbols and has

a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1035	1133	
==>Module object mixes in both Package
and Code -- because it is both a namespace of symbols and has
a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6899	7010	
==>'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6899	7010	
==>'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6899	7010	
==>'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	891	986	
==>:Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	167	258	
==>-----------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ----------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	167	258	
==>-----------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ----------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	194	281	
==>!!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------------------------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	194	281	
==>!!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------------------------------- <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3378	3483	
==>>{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    foreach my $rv ($self->find_extensions( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1866	1965	
==>->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1866	1965	
==>->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1866	1965	
==>->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1156	1264	
==>ttr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1156	1264	
==>ttr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1156	1264	
==>ttr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
4	/Users/nnunley/pugs/util/version_h.pl	414	514	
==>v$), because
# that is only updated when the file in which the keyword appears
# is modified.
my $rev <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11101	11196	
==>hich is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all giv <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8505	8600	
==>hich is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all giv <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11101	11196	
==>hich is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all giv <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8505	8600	
==>hich is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all giv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	840	944	
==>ess');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	840	944	
==>ess');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	840	944	
==>ess');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22431	22528	
==>eless ..." warnings when used
in flag and non-capturing group constructs.

=back

=head2 0.01 -- J <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28	158	
==>it!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28	157	
==>it!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8889	8999	
==>ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8877	8987	
==>ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1] <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4097	4221	
==>$_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4097	4221	
==>$_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7763	7873	
==>ssage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7763	7873	
==>ssage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1907	2057	
==>v}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1907	2057	
==>v}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1907	2057	
==>v}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subnam <==
4	/Users/nnunley/pugs/util/combine_tests.pl	481	581	
==>mong the tests.
# A revision is added to each member of the more_events[].
#
# more_revisions[] is ad <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5737	5834	
==>r Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5737	5834	
==>r Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6542	6635	
==>etta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6542	6635	
==>etta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2169	2282	
==>Code{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2169	2282	
==>Code{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4951	5055	
==>des );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4951	5055	
==>des );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3212	3316	
==>$status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=h <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3212	3316	
==>$status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=h <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11181	11274	
==>rns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11181	11274	
==>rns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tr <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	105	243	
==>ir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	105	243	
==>ir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9224	9317	
==>nd C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9224	9317	
==>nd C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2880	2975	
==>rl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2880	2975	
==>rl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3227	3322	
==>rl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1895	1984	
==>erl5::X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8688	8794	
==>ue' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8688	8794	
==>ue' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8688	8794	
==>ue' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30709	30802	
==>nspired by Larry Wall's TEST script that came
with perl distributions for ages. Numerous anony <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4387	4492	
==>irname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4387	4492	
==>irname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4387	4492	
==>irname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14962	15062	
==>reates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. Th <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14962	15062	
==>reates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. Th <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6413	6512	
==>ient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

me <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6413	6512	
==>ient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

me <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	529	628	
==>zation, the return value is
### a subroutine that build the return value based on the objects /curre <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4132	4239	
==>METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may ret <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4132	4239	
==>METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17629	17722	
==>5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17629	17722	
==>5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	346	603	
==>ly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used by the Relation class, that do export sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5560	5660	
==>undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5560	5660	
==>undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5560	5660	
==>undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	889	997	
==>string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1254	1359	
==>string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	853	958	
==>string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1254	1359	
==>string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2363	2496	
==>sg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value / <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2363	2496	
==>sg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value / <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	101	190	
==>ime time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	101	190	
==>ime time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	615	768	
==>_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	615	768	
==>_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	615	768	
==>_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5217	5343	
==>, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5217	5343	
==>, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5807	5933	
==>, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52291	52388	
==>-----------------
## finishing up the boostrapping

# < Class is subclass of Object >
$::Class->se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6483	6608	
==>fix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6483	6608	
==>fix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17515	17609	
==>data.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17515	17609	
==>data.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7228	7350	
==>boxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7228	7350	
==>boxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7228	7350	
==>boxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10340	10445	
==>ould
    # support asynch/exclusive/other stuff. For lots of discussion but no final
    # spec, see the t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	245	387	
==>var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	245	387	
==>var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	245	387	
==>var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3546	3650	
==>e "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3546	3650	
==>e "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3546	3650	
==>e "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	256	352	
==>OMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeiche <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6070	6187	
==>s bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6070	6187	
==>s bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25724	25819	
==>o link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25724	25819	
==>o link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10841	11021	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10841	11021	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10841	11021	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1163	1260	
==>url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1163	1260	
==>url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	426	522	
==><block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	426	522	
==><block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	338	462	
==>LIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	338	462	
==>LIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15271	15369	
==>ng, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - Th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15271	15369	
==>ng, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - Th <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29152	29251	
==>e REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4251	4346	
==>KE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4251	4346	
==>KE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4251	4346	
==>KE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return " <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9730	9831	
==>parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9730	9831	
==>parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $self <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	896	996	
==>ere too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	896	996	
==>ere too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	625	785	
==>no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	625	785	
==>no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	625	785	
==>no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43441	43534	
==>in the problem domain of managing
data or data definitions or connections to databases: L<Set> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15594	15730	
==>output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Fo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15594	15730	
==>output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Fo <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1956	2088	
==>fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1934	2066	
==>fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1732	1856	
==>main ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cooki <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1732	1856	
==>main ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cooki <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8919	9015	
==>pty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `st <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8919	9015	
==>pty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `st <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8794	8889	
==>ied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3723	3818	
==>ied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8794	8889	
==>ied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3723	3818	
==>ied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26150	26276	
==>t__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1214	1311	
==>d($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1214	1311	
==>d($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1214	1311	
==>d($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6862	6983	
==>dd_handler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FLAG_s ? 'seol' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14737	14848	
==>a.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14737	14848	
==>a.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14737	14848	
==>a.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11635	11762	
==>eturn $S->object(reg_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	59	162	
==>kage MatchX::Subrule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@ISA=qw(Match);
use overload
    ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6681	6778	
==>ss->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6681	6778	
==>ss->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6681	6778	
==>ss->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => ' <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3420	3553	
==>guess what to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $prog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3176	3305	
==>ibute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3176	3305	
==>ibute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3176	3305	
==>ibute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$bo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3339	3434	
==>complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3339	3434	
==>complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4431	4524	
==>:Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4681	4774	
==>:Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14119	14244	
==>i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14119	14244	
==>i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14119	14244	
==>i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2708	2816	
==>gex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zo <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2708	2816	
==>gex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zo <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2145	2229	
==>ule L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freep <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2145	2229	
==>ule L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2023	2118	
==>CH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2023	2118	
==>CH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2023	2118	
==>CH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	395	489	
==>or");
    $optable->addToken("term:^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1315	1430	
==>].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1315	1430	
==>].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1315	1430	
==>].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1132	1233	
==>_file);
my $match  = Grammar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3137	3258	
==>y ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self-> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19449	19548	
==>der function that takes a function and applies it to a string
# thiss tests that the inferrence of h <==
4	/Users/nnunley/pugs/misc/IDE-support/server.pl	164	259	
==>overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m;
say '(message "di <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	708	816	
==>$self, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provide a valu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7696	7807	
==>le => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(file => $file, [force => BOOL])

Add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3776	3875	
==>$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3776	3875	
==>$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3776	3875	
==>$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('D <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	240	373	
==>\&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	240	373	
==>\&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	327	427	
==>S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENG <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	327	427	
==>S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENG <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9840	9934	
==>del's input validation is performed over 2 main phases, which
are referred to as "immediate" an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9840	9934	
==>del's input validation is performed over 2 main phases, which
are referred to as "immediate" an <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11262	11354	
==>d) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11262	11354	
==>d) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6149	6254	
==>q $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	516	616	
==>g System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	516	616	
==>g System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	516	616	
==>g System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20780	20878	
==>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19697	19795	
==>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20780	20878	
==>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19697	19795	
==>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C< <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9044	9145	
==>span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9044	9145	
==>span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27684	27782	
==>a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27684	27782	
==>a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2054	2148	
==>bout any use other than Pugs development.

An user-supplied regular expression may lead to exec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6605	6753	
==>FC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6605	6753	
==>FC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1764	1868	
==>_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MA <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1764	1868	
==>_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8383	8477	
==>indBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_ro <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	95	189	
==>indBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_ro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8383	8477	
==>indBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_ro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8383	8477	
==>indBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_ro <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5196	5290	
==>-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1616	1705	
==>opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1616	1705	
==>opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1616	1705	
==>opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9992	10155	
==>y $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9992	10155	
==>y $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9992	10155	
==>y $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    . <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5281	5419	
==>lasses;
    has %:private_methods;
    has %:attributes;
    has %:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1876	1987	
==>ng.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1876	1987	
==>ng.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1876	1987	
==>ng.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4677	4780	
==>hack - Match creation is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap wi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8160	8293	
==>r(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "ther <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8160	8293	
==>r(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "ther <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4274	4389	
==>unds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if in <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4274	4389	
==>unds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	779	874	
==>intf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	779	874	
==>intf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	779	874	
==>intf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doubl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28036	28130	
==>urns Bool>

This method returns this Relation::Example's "is mutable" boolean attribute.

=item <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1525	1642	
==>ternal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavaila <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1525	1642	
==>ternal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavaila <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1954	2054	
==>t => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1954	2054	
==>t => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

me <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	70	162	
==>ver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::D <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	70	162	
==>ver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::D <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1222	1313	
==>ler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1222	1313	
==>ler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11570	11720	
==>'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7852	8002	
==>'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8686	8836	
==>'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16028	16213	
==>,
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1585	1685	
==>okeserv=http://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs th <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4541	4638	
==>lemented as hash keys to code refs. The only function this module
exports is the constructor. 

=o <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4541	4638	
==>lemented as hash keys to code refs. The only function this module
exports is the constructor. 

=o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17746	17900	
==>6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18025	18179	
==>6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gramma <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3685	3794	
==>f!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3685	3794	
==>f!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1174	1270	
==>takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the cont <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1174	1270	
==>takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the cont <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2193	2288	
==>=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few byte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2193	2288	
==>=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few byte <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	718	1130	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Valid <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	718	1130	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Valid <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	262	367	
==>my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	226	331	
==>my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7168	7271	
==>BADESC, "Z", " in character class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1715	1815	
==>ber(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1715	1815	
==>ber(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1715	1815	
==>ber(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2851	2970	
==>w( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_object;

=cut

sub extract_meta_object {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41036	41130	
==>ainer::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41036	41130	
==>ainer::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41036	41130	
==>ainer::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5759	5857	
==>nted within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5759	5857	
==>nted within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	895	988	
==>ver
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	895	988	
==>ver
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2170	2309	
==>PSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2170	2309	
==>PSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1400	1534	
==>PSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3261	3395	
==>PSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3460	3596	
==>$_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3653	3789	
==>$_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6446	6542	
==>'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6446	6542	
==>'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1863	2004	
==>n/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARS <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1863	2004	
==>n/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARS <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14257	14392	
==>);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14251	14386	
==>);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	234	346	
==>BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	772	863	
==>Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	772	863	
==>Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	772	863	
==>Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructor <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	236	360	
==>le::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:ST <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	156	280	
==>le::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:ST <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	154	278	
==>le::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:ST <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	152	276	
==>le::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:ST <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13681	13803	
==>the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$sy <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6141	6245	
==>$S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1407	1507	
==>st_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1407	1507	
==>st_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1487	1587	
==>st_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4922	5039	
==>hildren one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10),
        Val( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17539	17638	
==>1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17539	17638	
==>1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17539	17638	
==>1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37999	38095	
==>, which is a Template text
string if the module recognizes $msg_key, and the undefined value if n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37999	38095	
==>, which is a Template text
string if the module recognizes $msg_key, and the undefined value if n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3054	3208	
==>tifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3065	3219	
==>tifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5332	5431	
==>C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI objec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5332	5431	
==>C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI objec <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5737	5838	
==>b *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4867	4968	
==>b *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5737	5838	
==>b *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4867	4968	
==>b *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11065	11177	
==>ems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11065	11177	
==>ems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11065	11177	
==>ems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30810	30906	
==>ntributors
exist.  Andreas Koenig held the torch for many years, and then
Michael G Schwern.

Cur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25102	25249	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25381	25528	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33822	33916	
==>idual user's (or user role's) preferences such that each says what
language they prefer to comm <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33822	33916	
==>idual user's (or user role's) preferences such that each says what
language they prefer to comm <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1793	1898	
==>e available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, < <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1793	1898	
==>e available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, < <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18685	18783	
==>ith one or more
text strings to show human users.  This association would normally be
stored in a P <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18685	18783	
==>ith one or more
text strings to show human users.  This association would normally be
stored in a P <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12263	12366	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6830	6933	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12263	12366	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6830	6933	
==>H' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7338	7473	
==>' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1971	2065	
==>.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b insta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1971	2065	
==>.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b insta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1971	2065	
==>.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1052	1177	
==>:identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1052	1177	
==>:identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1052	1177	
==>:identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res" <==
4	/Users/nnunley/pugs/util/grokprims.pl	2434	2535	
==>table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\n";
}

pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1325	1440	
==>boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1325	1440	
==>boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1325	1440	
==>boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4570	4670	
==>y report and
a how long it all took.

It returns true if everything was ok.  Otherwise it will C<die( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5239	5334	
==>cription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5239	5334	
==>cription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6763	6858	
==>cription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4617	4717	
==>hing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4617	4717	
==>hing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4617	4717	
==>hing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($clas <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1766	1857	
==>ference {
    s/\$(${re_symbol})->(\[.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	68	185	
==>per;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->impor <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2418	2526	
==>nite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2418	2526	
==>nite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5082	5185	
==>orce_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  $self <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3829	3938	
==>t;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->ad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5189	5297	
==>t;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18667	18764	
==>oundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statem <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18667	18764	
==>oundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4766	4905	
==>ift;   TODO?
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3207	3321	
==>sses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3207	3321	
==>sses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3207	3321	
==>sses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1624	1748	
==>ery single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2814	2929	
==>, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2814	2929	
==>, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2814	2929	
==>, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delet <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	576	708	
==>tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	576	708	
==>tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	793	918	
==>_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	793	918	
==>_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3783	3900	
==>put($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3783	3900	
==>put($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2805	2898	
==>ST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2805	2898	
==>ST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2799	2920	
==>cts new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_ob <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12210	12327	
==>~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4853	4970	
==>~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17610	17712	
==>Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a w <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17610	17712	
==>Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a w <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19453	19549	
==>te said separate resource files, and not change
your main program.

I<Note that an update is plan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19453	19549	
==>te said separate resource files, and not change
your main program.

I<Note that an update is plan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12194	12320	
==>> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12194	12320	
==>> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12194	12320	
==>> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.un <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8796	8894	
==>fy => ('type::operator::nary', 'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1833	1948	
==>$_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	944	1057	
==>$_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5043	5144	
==>llowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5043	5144	
==>llowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $ma <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2641	2744	
==>et[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method asserti <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2641	2744	
==>et[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method asserti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1422	1523	
==>L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1422	1523	
==>L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	239	387	
==>] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14703	14828	
==>t some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14703	14828	
==>t some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14703	14828	
==>t some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34095	34190	
==>es not have
an identical header to the invocant relation.  This method has aliases
named C<minus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38645	38740	
==>es not have
an identical header to the invocant relation.  This method has aliases
named C<minus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38106	38201	
==>es not have
an identical header to the invocant relation.  This method has aliases
named C<minus <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	898	1018	
==>%$args ) {
        $self->$acc( $val );
    }

    unless( $meta or $meta = $self->extract_meta_object ) {
        return <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5502	5598	
==>n
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5502	5598	
==>n
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7699	7795	
==>n
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Te <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8909	9004	
==>5 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distrib <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3838	3933	
==>5 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distrib <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8909	9004	
==>5 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distrib <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3838	3933	
==>5 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distrib <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4656	4773	
==>WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create('WALKCLASS' => closure->new( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25254	25347	
==>identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29806	29899	
==>identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28736	28829	
==>identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4033	4168	
==>e => 'looser',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        precedenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7587	7708	
==>ls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7587	7708	
==>ls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7587	7708	
==>ls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10292	10392	
==>= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHOD <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10292	10392	
==>= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHOD <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11314	11410	
==>h most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is sug <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11372	11468	
==>h most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is sug <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3051	3161	
==>e, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3051	3161	
==>e, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	213	307	
==>n
    date expires if_modified_since if_unmodified_since last_modified
    content_type content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	213	307	
==>n
    date expires if_modified_since if_unmodified_since last_modified
    content_type content <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	844	943	
==>Y code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	844	943	
==>Y code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	844	943	
==>Y code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12658	12824	
==>ay->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12658	12824	
==>ay->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12658	12824	
==>ay->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "T <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20291	20386	
==>arranted chumminess with compiler. */

regcomp.h: This is essentially a linear encoding of a non <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5684	5782	
==>$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5684	5782	
==>$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5684	5782	
==>$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18253	18346	
==>ass
C<[\w\d:4-65:]> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and range <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2299	2422	
==>>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9071	9194	
==>>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2299	2422	
==>>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9071	9194	
==>>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shif <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2209	2322	
==>|| ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf->{ <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	949	1056	
==>!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	949	1056	
==>!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10414	10539	
==>=~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10414	10539	
==>=~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10414	10539	
==>=~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8669	8784	
==>"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries pugs, parrot and bas <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	457	562	
==>:Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $tri <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	457	562	
==>:Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $tri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34591	34687	
==>:NAME:]> (or other POSIX notations, like
C<[=NAME=]> and C<[.NAME.]>); otherwise, reference to I< <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20231	20326	
==>ing_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internals <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9453	9569	
==>e },
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9453	9569	
==>e },
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected } <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1603	1705	
==>$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  doe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1603	1705	
==>$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  doe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	166	283	
==>ck           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 METHODS

=head2 $m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1693	1797	
==>!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.mem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1693	1797	
==>!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.mem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9935	10037	
==>urn "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$grammar <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1048	1148	
==>map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by d <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1048	1148	
==>map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	96	192	
==>Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinit <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	96	192	
==>Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2829	2929	
==>S.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2829	2929	
==>S.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2829	2929	
==>S.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs() <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3253	3345	
==>.
p6_conjunctions(W, W) --> {true}.


p5_concatenation(Z)    --> p5_quantified(W), p5_concate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19434	19556	
==>onClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19434	19556	
==>onClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19434	19556	
==>onClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
4	/Users/nnunley/pugs/util/claim_drift.pl	170	268	
==>int symlinks to the current one if you want to regenerate
# files. We should probably make this arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2206	2334	
==>:l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2206	2334	
==>:l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2206	2334	
==>:l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	917	1037	
==>des.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5211	5311	
==>E_CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto end if ( $position >= $lastPositi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1338	1437	
==>NEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1338	1437	
==>NEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1338	1437	
==>NEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18106	18240	
==>)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17144	17278	
==>)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18106	18240	
==>)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17144	17278	
==>)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Regis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13163	13269	
==>= shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13163	13269	
==>= shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13163	13269	
==>= shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obje <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3331	3422	
==>ush'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2676	2785	
==>igit => 0);
  });

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	930	1029	
==>mitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	930	1029	
==>mitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	930	1029	
==>mitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2564	2664	
==>ng steps may not return all (or any) of the data you 
passed in, and that the finishing step may retu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2564	2664	
==>ng steps may not return all (or any) of the data you 
passed in, and that the finishing step may retu <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5832	5923	
==>/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/re <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5832	5923	
==>/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	547	682	
==>ap  { $_->[1] } 
                grep {  package_prefix( $_->[1]->{package} ) . '-' .
                        package_name( $_->[1]->{pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10088	10202	
==>nt STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10088	10202	
==>nt STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10088	10202	
==>nt STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13781	13975	
==>list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13781	13975	
==>list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13781	13975	
==>list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5366	5465	
==>efs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metacl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14124	14253	
==>dText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($fir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14124	14253	
==>dText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($fir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19020	19148	
==>return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15441	15569	
==>return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-ca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12458	12605	
==>rn $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12458	12605	
==>rn $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19509	19608	
==>Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exists <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24061	24160	
==>Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exists <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10854	10978	
==>ined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
met <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10854	10978	
==>ined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
met <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15710	15814	
==>y method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19187	19291	
==>y method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1331	1423	
==>x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1331	1423	
==>x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	346	496	
==>s) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        e <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	346	496	
==>s) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        e <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2904	3010	
==>::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2904	3010	
==>::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1846	1955	
==>atements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1846	1955	
==>atements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5425	5533	
==>ub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5425	5533	
==>ub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	786	901	
==>reach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6039	6137	
==>xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6039	6137	
==>xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6039	6137	
==>xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {.. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2654	2756	
==>efaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Forma <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2654	2756	
==>efaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Forma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3028	3128	
==>, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::procla <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3086	3186	
==>, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::procla <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	837	955	
==>param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %para <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	579	697	
==>param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %para <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	837	955	
==>param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %para <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	579	697	
==>param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %para <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4465	4590	
==>ading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7942	8067	
==>ading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29312	29418	
==>e "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienv <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29312	29418	
==>e "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21496	21593	
==>ing message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20377	20474	
==>ing message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21496	21593	
==>ing message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20377	20474	
==>ing message.
Event names which are all lowercase are "pseudo" events. See below for a list
of pseu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7682	7803	
==>reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7682	7803	
==>reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7682	7803	
==>reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1062	1174	
==>attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1062	1174	
==>attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1062	1174	
==>attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiat <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	82	188	
==>* as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	82	188	
==>* as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15040	15134	
==>ncode_entities_numeric);>

=back

All these routines modify the string passed as the first argu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15040	15134	
==>ncode_entities_numeric);>

=back

All these routines modify the string passed as the first argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	704	819	
==>nce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	704	819	
==>nce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	704	819	
==>nce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12177	12293	
==>display = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $run <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3714	3819	
==>1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3714	3819	
==>1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3714	3819	
==>1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14416	14611	
==>s') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14416	14611	
==>s') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14416	14611	
==>s') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mult <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2912	3013	
==>dir/_jib/build
    my $path     = $self->meta->package;
    my $builddir = Path::Class::dir( $conf->bu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3812	3965	
==>e += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3812	3965	
==>e += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12668	12802	
==>w();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_su <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12668	12802	
==>w();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4226	4345	
==>n_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4226	4345	
==>n_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4226	4345	
==>n_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	50	160	
==>recedence module - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1294	1398	
==>ox the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1294	1398	
==>ox the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1294	1398	
==>ox the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	648	752	
==>sion of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.004;
use strict ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1021	1124	
==>ng "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1021	1124	
==>ng "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1021	1124	
==>ng "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TO <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6024	6166	
==>and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9028	9136	
==>mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9028	9136	
==>mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9028	9136	
==>mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1950	2091	
==>::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1950	2091	
==>::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3547	3649	
==>", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3547	3649	
==>", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3414	3545	
==>d this.
        # (registry lookup?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= jo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29654	29751	
==>s
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34206	34303	
==>s
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33370	33467	
==>s
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4570	4678	
==>>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4570	4678	
==>>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2503	2595	
==>5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2503	2595	
==>5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18442	18565	
==>0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2255	2363	
==>ard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2255	2363	
==>ard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2255	2363	
==>ard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22554	22790	
==>$elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22554	22790	
==>$elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22554	22790	
==>$elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = S <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	843	956	
==>et = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2771	2879	
==>reviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.y <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2771	2879	
==>reviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.y <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3559	3679	
==>en = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3559	3679	
==>en = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less o <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10478	10572	
==>".

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub {. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10478	10572	
==>".

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	988	1083	
==>lap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	988	1083	
==>lap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	988	1083	
==>lap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2256	2387	
==>(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty lin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2256	2387	
==>(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty lin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2236	2345	
==>) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2236	2345	
==>) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17344	17444	
==>ich Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret-> <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	174	273	
==>R_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 8 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	174	273	
==>R_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 8 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23576	23667	
==>can optionally extend the
Relation library's interface.

See also the bundled L<Relation::Ex <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9271	9391	
==>ny <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decipherin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9271	9391	
==>ny <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decipherin <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4883	4982	
==>ush(@$aref,$r);
  $r;
}
sub def_token      { def_thing(\@tokens,1,@_) }
sub def_whitespace { def_thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1277	1367	
==>ce.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1277	1367	
==>ce.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1277	1367	
==>ce.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1480	1586	
==>ests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1944	2038	
==>DO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1944	2038	
==>DO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1944	2038	
==>DO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethod <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10041	10155	
==>,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7981	8095	
==>,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10041	10155	
==>,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7981	8095	
==>,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	612	739	
==>re_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	612	739	
==>re_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	612	739	
==>re_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6759	6852	
==>rray: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::perl (@arr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14540	14659	
==>name()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	355	455	
==>perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	355	455	
==>perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	355	455	
==>perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mig <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2091	2191	
==>(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2091	2191	
==>(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1466	1559	
==>$self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1606	1699	
==>$self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16341	16453	
==>m::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16341	16453	
==>m::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16341	16453	
==>m::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30916	31010	
==>dard with Perl 5.8.

=head2 Object Attributes

All objects share the following attributes (acce <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	600	725	
==>if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2590	2681	
==>new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2590	2681	
==>new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2590	2681	
==>new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2244	2338	
==>($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2155	2248	
==>($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4547	4660	
==>ord>
    | <Identifier>
    | <Punctuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rule ReservedWord {  # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18127	18219	
==>MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18127	18219	
==>MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18127	18219	
==>MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8115	8228	
==>ld_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8115	8228	
==>ld_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	653	752	
==>e a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1243	1342	
==>e a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	395	489	
==>:inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	395	489	
==>:inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	395	489	
==>:inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4947	5071	
==>_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4947	5071	
==>_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4947	5071	
==>_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Per <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11937	12132	
==>all_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11937	12132	
==>all_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10275	10376	
==>$state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10275	10376	
==>$state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3406	3525	
==>$admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2866	2973	
==>=~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2866	2973	
==>=~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2866	2973	
==>=~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6473	6578	
==>d' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6473	6578	
==>d' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6473	6578	
==>d' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10173	10299	
==>hin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10173	10299	
==>hin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10173	10299	
==>hin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4324	4467	
==>1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4312	4455	
==>1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10327	10432	
==>from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AU <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10327	10432	
==>from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6903	7012	
==>= _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6903	7012	
==>= _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6903	7012	
==>= _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5954	6049	
==>Regexp::Parser - base class for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2230	2335	
==>code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2230	2335	
==>code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2230	2335	
==>code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1800	1897	
==>rn "flattenning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::bl <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19201	19318	
==>ing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_reason}\n" : ".\n");
};


sub _print_ml {
    print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	397	491	
==>nline's first param is directly
# inlined (with no escaping) into the resulting JavaScript code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	397	491	
==>nline's first param is directly
# inlined (with no escaping) into the resulting JavaScript code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	397	491	
==>nline's first param is directly
# inlined (with no escaping) into the resulting JavaScript code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5675	5795	
==>rintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5675	5795	
==>rintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5675	5795	
==>rintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLA <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	90	188	
==>ml for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos field
# FI <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	52	166	
==>^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # whe <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	52	166	
==>^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # whe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	607	705	
==>tream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	607	705	
==>tream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	531	674	
==>, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	736	879	
==>, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	792	935	
==>, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3374	3472	
==>t the right class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21498	21645	
==>s;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21498	21645	
==>s;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21498	21645	
==>s;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8854	8954	
==>(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11248	11350	
==>trol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11248	11350	
==>trol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36789	36883	
==>hed, this method returns undef.  This method could be
considered to implement the 'main' functi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36789	36883	
==>hed, this method returns undef.  This method could be
considered to implement the 'main' functi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10200	10333	
==>{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # chec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10200	10333	
==>{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # chec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10200	10333	
==>{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # chec <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	360	476	
==>(@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($pat <==
4	/Users/nnunley/pugs/util/combine_tests.pl	288	408	
==>es the last test tree with the earlier one's
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1277	1395	
==>ed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cache <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1277	1395	
==>ed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cache <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1277	1395	
==>ed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cache <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1124	1232	
==>ft;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $arg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2015	2122	
==>ft;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $arg <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19064	19160	
==>ate ranging
over more than one argument"), which is also the basis of the relational
data model p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22714	22810	
==>ate ranging over more than one
argument"), which is also the basis of the relational data model p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	705	824	
==>rl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pu <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9328	9439	
==>itrd_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  step
    descr  => "Cre <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	859	958	
==>od vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	859	958	
==>od vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Comp <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1978	2094	
==>$Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self- <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1978	2094	
==>$Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8211	8305	
==>_on_object',
  '... still got the right return value from first Object singleton/class method c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10780	10874	
==>_on_object',
  '... still got the right return value from first Object singleton/class method c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10129	10233	
==>";
}
sub node::non_capturing_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23113	23210	
==>et member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27665	27762	
==>et member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26442	26539	
==>et member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1592	1695	
==>want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1592	1695	
==>want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1592	1695	
==>want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25463	25558	
==>tem C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9250	9345	
==>ave the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30015	30110	
==>tem C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relat <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9250	9345	
==>ave the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C< <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	686	793	
==>ous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	686	793	
==>ous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * se <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	414	512	
==>if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file( <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	414	512	
==>if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2679	2799	
==>andic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "i <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2679	2799	
==>andic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	997	1096	
==>> substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$nam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	997	1096	
==>> substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6340	6441	
==>), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6340	6441	
==>), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6340	6441	
==>), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3498	3602	
==>ile (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj).'::'.$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20977	21073	
==>nfix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20977	21073	
==>nfix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20977	21073	
==>nfix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7054	7226	
==>e_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7054	7226	
==>e_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given m <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2286	2397	
==>nt IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2286	2397	
==>nt IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29741	29861	
==>key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29741	29861	
==>key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A T <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12654	12752	
==>ue if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Retur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12654	12752	
==>ue if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Retur <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2403	2499	
==><sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1858	1954	
==><sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2403	2499	
==><sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1858	1954	
==><sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6307	6408	
==>ne, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5437	5538	
==>ne, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6307	6408	
==>ne, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5437	5538	
==>ne, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	882	986	
==>$inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package method::signature <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	845	999	
==>= catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	845	999	
==>= catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	535	663	
==>uct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  < <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	535	663	
==>uct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  < <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12075	12229	
==>words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12075	12229	
==>words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40148	40243	
==>e Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40148	40243	
==>e Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2060	2183	
==>, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\C[A;B] in character class") if @names > <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19395	19495	
==>/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23947	24047	
==>/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22463	22563	
==>/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1973	2101	
==>0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1973	2101	
==>0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1973	2101	
==>0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6083	6195	
==>self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9850	9984	
==>f' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9850	9984	
==>f' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9850	9984	
==>f' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTO <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	779	874	
==>dows(); return false;">open each link in a
new window</a>.  (Useful with Firefox 1.5's Preferenc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3148	3260	
==>)  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %par <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3148	3260	
==>)  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %par <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12023	12117	
==>es($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12023	12117	
==>es($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1644	1740	
==>ers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesa <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1644	1740	
==>ers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11110	11230	
==>my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	980	1085	
==>que_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1185	1290	
==>que_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1246	1351	
==>que_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	137	252	
==>ce);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11626	11720	
==>ole meta-model , any Class instances, themselves does Role since they
are just instances of Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11626	11720	
==>ole meta-model , any Class instances, themselves does Role since they
are just instances of Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11626	11720	
==>ole meta-model , any Class instances, themselves does Role since they
are just instances of Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25938	26056	
==>:capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26217	26335	
==>:capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7518	7629	
==>eop() function gets as argument a list:



### we don't need a "high" level interface (named args) 

###    beca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7262	7370	
==>eop() function gets as argument a list:

### we don't need a "high" level interface (named args) 
###    beca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5942	6041	
==>]+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5942	6041	
==>]+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5942	6041	
==>]+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8062	8154	
==>t @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).mem <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7192	7284	
==>t @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).mem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8062	8154	
==>t @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).mem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7192	7284	
==>t @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).mem <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13932	14050	
==>conds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13932	14050	
==>conds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13002	13112	
==>conds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13002	13112	
==>conds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4253	4347	
==>test( Str $description? )>

Compares the receivied and expected lines from the previously run t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4253	4347	
==>test( Str $description? )>

Compares the receivied and expected lines from the previously run t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4333	4427	
==>test( Str $description? )>

Compares the receivied and expected lines from the previously run t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33235	33390	
==>>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33235	33390	
==>>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33235	33390	
==>>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	389	501	
==>on)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	389	501	
==>on)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	389	501	
==>on)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1488	1625	
==>he builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1675	1777	
==>ed Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1675	1777	
==>ed Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1675	1777	
==>ed Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	874	1002	
==>do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	874	1002	
==>do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2219	2332	
==>r use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $fla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2359	2472	
==>r use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $fla <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10204	10316	
==>intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previou <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10204	10316	
==>intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previou <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2337	2445	
==>t }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2337	2445	
==>t }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1350	1501	
==>>tail->to_native);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. Howe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35484	35605	
==>len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35484	35605	
==>len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35484	35605	
==>len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$o <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17092	17216	
==>c)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied to int) is a number
my $fifteen = c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2476	2571	
==>rl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2476	2571	
==>rl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2476	2571	
==>rl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  di <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4512	4654	
==>\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4512	4654	
==>\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4512	4654	
==>\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ari <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4340	4451	
==>W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{", !, p5_range_bou <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	675	798	
==>essed($attrs) && $attrs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13545	13656	
==>a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17022	17133	
==>a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16384	16495	
==>a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29371	29497	
==>ine FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2047	2152	
==>error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	56	153	
==>error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	56	153	
==>error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1673	1783	
==>> -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is expor <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1673	1783	
==>> -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is expor <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2592	2686	
==>item Encrypting with the exact same key twice can compromise both encryptions.

If two differen <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2592	2686	
==>item Encrypting with the exact same key twice can compromise both encryptions.

If two differen <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4549	4675	
==>rt bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5208	5334	
==>rt bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4549	4675	
==>rt bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5208	5334	
==>rt bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3303	3453	
==>my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter',
            other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10963	11065	
==>body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10963	11065	
==>body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10963	11065	
==>body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1967	2087	
==>rx, $type, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'reg_any' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7792	7895	
==>nt( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7792	7895	
==>nt( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7792	7895	
==>nt( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2193	2290	
==>d.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.dele <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2193	2290	
==>d.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.dele <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2716	2816	
==>'\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3289	3389	
==>'\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20464	20558	
==>hod instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20464	20558	
==>hod instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	866	972	
==>re all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	866	972	
==>re all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	866	972	
==>re all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_L <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3625	3913	
==>_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3625	3913	
==>_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8788	8916	
==>[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $pr <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8788	8916	
==>[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2754	2848	
==>ckup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2754	2848	
==>ckup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2754	2848	
==>ckup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2280	2408	
==>}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2280	2408	
==>}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2280	2408	
==>}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PI <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1932	2050	
==>tall::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $cwd  = Cwd::c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2479	2579	
==>($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($node-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5828	5924	
==>nd adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5828	5924	
==>nd adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8025	8121	
==>nd adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4954	5060	
==>part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4954	5060	
==>part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4426	4530	
==>le) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

su <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4426	4530	
==>le) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	853	967	
==>w PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	853	967	
==>w PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	853	967	
==>w PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21777	21875	
==>ntifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'return'><no_LineTerminator_here <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5390	5497	
==>nd_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5390	5497	
==>nd_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5390	5497	
==>nd_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2101	2199	
==>} and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eval { require Compress::Zl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36846	36957	
==>.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPE <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14570	14664	
==>ted by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14570	14664	
==>ted by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields. <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21416	21533	
==>ep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) < prefix_M($pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3288	3389	
==>state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3288	3389	
==>state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matc <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2518	2608	
==>files in this distribution at C<lib/Class.pm> will
probably eventually be auto-generated by <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1696	1806	
==>close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $EOU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3833	3933	
==>il2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3833	3933	
==>il2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3833	3933	
==>il2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	982	1134	
==>oser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17838	17927	
==>SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17838	17927	
==>SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17838	17927	
==>SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	11	117	
==>dule HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	11	117	
==>dule HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	726	829	
==>aptures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	726	829	
==>aptures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	798	934	
==>ft;
                @{$self->get_value('@:slots')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of ind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5406	5528	
==>}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5406	5528	
==>}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5406	5528	
==>}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1874	1985	
==>E, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

s <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1874	1985	
==>E, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	371	475	
==>te()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	371	475	
==>te()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	574	690	
==>e>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # f <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	574	690	
==>e>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17547	17643	
==>HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

Thi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17547	17643	
==>HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

Thi <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3325	3465	
==>1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\n";
        warn "($@)\n" if $@ and $@ !~ /Can't locate \Q$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	742	854	
==>s like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	742	854	
==>s like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	742	854	
==>s like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The oth <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4146	4281	
==>andidates, $File::Find::name;
        };
        find $wanted, "dist";

        if (@candidates > 1) {
            # This is harmless -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7585	7683	
==>er($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7585	7683	
==>er($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7585	7683	
==>er($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    ret <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10978	11076	
==>(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not f <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8382	8480	
==>(...)>

Removes the specified items from the set. Returns the number of items removed.

It is not f <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10978	11076	
==>(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is not f <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8382	8480	
==>(...)>

Removes the specified items from the set. Returns the number of items removed.

It is not f <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2293	2453	
==>ven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 } <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1062	1222	
==>ven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 } <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9733	9893	
==>ven want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	957	1094	
==>ven want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4899	5006	
==>eate or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4899	5006	
==>eate or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	183	276	
==>ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_IND <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	183	276	
==>ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_IND <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2710	2852	
==>exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             attr block 
        { $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4237	4341	
==>ll them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4237	4341	
==>ll them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4237	4341	
==>ll them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Reb <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	602	727	
==>n/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	602	727	
==>n/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6696	6792	
==>ren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$s <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6696	6792	
==>ren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35925	36020	
==>whose body contains all of the tuples that are in either or both of the
invocant Relation::Examp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	202	291	
==>::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	202	291	
==>::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	202	291	
==>::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requir <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5702	5815	
==>m[2] = { %{$param[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5520	5631	
==>m[2] = { %{$param[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6233	6344	
==>apture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that mak <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6032	6138	
==>apture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that mak <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	781	895	
==>ype { str->new((shift)->{type}) }

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) 
        unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2190	2292	
==>::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2190	2292	
==>::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2190	2292	
==>::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3563	3686	
==>x( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( gre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3563	3686	
==>x( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( gre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10818	10940	
==>te_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11097	11219	
==>te_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	645	746	
==>os};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	645	746	
==>os};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	645	746	
==>os};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warn <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6468	6584	
==>:!g;

        # If we have a mixed-case package name, assume case has been preserved
        # correctly.  Otherwise, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15687	15809	
==>hift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    ev <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2084	2206	
==>hift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    ev <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26590	26682	
==>em C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26590	26682	
==>em C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4604	4720	
==>er_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4446	4558	
==>er_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	546	640	
==>a::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example clas <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	546	640	
==>a::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2878	2972	
==>Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2878	2972	
==>Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3225	3319	
==>Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1981	2067	
==>ugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<key> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3377	3474	
==>o compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3377	3474	
==>o compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3457	3554	
==>o compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1209	1306	
==>pers = $class->get_attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the superclasse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	865	967	
==>9
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	865	967	
==>9
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	865	967	
==>9
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	94	193	
==>Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	439	532	
==>p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	439	532	
==>p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	439	532	
==>p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1906	2003	
==>{ defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index->to_native <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4677	4773	
==>tr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4677	4773	
==>tr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4677	4773	
==>tr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32008	32115	
==>ng as
the invocant Relation, and returns a new Relation that has the same heading
and whose body contains al <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33869	33976	
==>ng as the
invocant Relation, and returns a new Relation that has the same heading and
whose body contains al <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36558	36665	
==>ng as
the invocant Relation, and returns a new Relation that has the same heading
and whose body contains al <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38419	38526	
==>ng as the
invocant Relation, and returns a new Relation that has the same heading and
whose body contains al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1828	1924	
==>YB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1021	1158	
==>name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'equal',
        other => 'circumfix:<( )>',
    );
    _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5879	5982	
==>PM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5879	5982	
==>PM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5879	5982	
==>PM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	853	1007	
==>r },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	853	1007	
==>r },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	853	1007	
==>r },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3340	3464	
==>b->( $obj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	631	746	
==>sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	26	124	
==>t;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	26	124	
==>t;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	26	124	
==>t;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10321	10431	
==>o $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops binding <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10321	10431	
==>o $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops binding <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10321	10431	
==>o $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops binding <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	451	554	
==>lit(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	451	554	
==>lit(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	451	554	
==>lit(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what' <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	17	117	
==>Perl 6 Version
use v6;

sub £to€ { $_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ sin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	150	263	
==>$c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1082	1187	
==>Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run cu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1082	1187	
==>Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run cu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1082	1187	
==>Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run cu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3751	3850	
==>ing the symbol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type => $type, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	313	428	
==>.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	313	428	
==>.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37318	37416	
==>hecks whether or not it has already been
loaded, returning true if so and false if not.

=item C<lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37318	37416	
==>hecks whether or not it has already been
loaded, returning true if so and false if not.

=item C<lo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2372	2500	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7466	7594	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2372	2500	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7466	7594	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5805	5901	
==>ext

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5805	5901	
==>ext

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25741	25835	
==>th non-free software components.

Any versions of Rosetta that you modify and distribute must c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25741	25835	
==>th non-free software components.

Any versions of Rosetta that you modify and distribute must c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6934	7054	
==>have the does() method');
ok($Role->does('Role'), '... Role now does Role');

## create some roles
my $rFoo = $Role->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3055	3157	
==>_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3055	3157	
==>_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3055	3157	
==>_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1864	1979	
==>al references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1864	1979	
==>al references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6226	6326	
==>dy left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6226	6326	
==>dy left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17169	17322	
==>ort keys %$failedtests) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	576	692	
==>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # fro <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	576	692	
==>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	56	164	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	56	164	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	56	164	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7410	7512	
==>";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store resu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1091	1210	
==>st).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> does longest m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1442	1559	
==>st).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1049	1166	
==>st).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1442	1559	
==>st).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest m <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3323	3423	
==>ndex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {ch <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3323	3423	
==>ndex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {ch <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	593	690	
==>en input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str).map:{~$_} };
  return s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1762	1853	
==>/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $fi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13161	13322	
==>bt use brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3346	3487	
==>bt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3346	3487	
==>bt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3346	3487	
==>bt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6379	6491	
==>mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6379	6491	
==>mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6379	6491	
==>mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global v <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	859	960	
==>hod start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0] <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	859	960	
==>hod start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0] <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1895	2031	
==>ame,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1895	2031	
==>ame,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21690	21786	
==>B split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21690	21786	
==>B split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21690	21786	
==>B split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4187	4302	
==>ired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4187	4302	
==>ired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4187	4302	
==>ired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1320	1421	
==>Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part of spec.  eew <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	531	631	
==>ESCRIPTION

This object represents a Class.  It is what is created when you
declare a new class.

A c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7240	7339	
==>der)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7240	7339	
==>der)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7240	7339	
==>der)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => :: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13137	13281	
==>ash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @key <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13137	13281	
==>ash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @key <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1783	1878	
==>for forward compatibility it should always be the 
value C<1>, the default for the C<:name> form <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1783	1878	
==>for forward compatibility it should always be the 
value C<1>, the default for the C<:name> form <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28704	28827	
==>hat ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28704	28827	
==>hat ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28704	28827	
==>hat ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1546	1669	
==>CKAGE__->add_rule(
        name => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13365	13541	
==>v, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3526	3682	
==>v, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3526	3682	
==>v, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3526	3682	
==>v, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4112	4202	
==>> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4112	4202	
==>> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4112	4202	
==>> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2617	2705	
==>===============================

:- style_check(-discontiguous). % remove is plausible

p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3074	3207	
==>.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3074	3207	
==>.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3074	3207	
==>.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15636	15741	
==>,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is semantic.

rm(condition(condi(I),Ra,Rb), <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	330	427	
==>Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	330	427	
==>Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (St <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2062	2157	
==>ther.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2062	2157	
==>ther.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5811	5937	
==>->new('@:MRO')             => list->new(),
            attribute->new('@:subclasses')      => list->new(),
            attribut <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5450	5574	
==>ut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	816	920	
==>ntext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	816	920	
==>ntext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	816	920	
==>ntext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28570	28789	
==>)
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21903	22070	
==>'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22182	22349	
==>'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constan <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4790	4894	
==>ode(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeDefs::import(__PACKAGE__,'emit');
}
use strict;
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2826	2926	
==>L2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2826	2926	
==>L2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2826	2926	
==>L2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pair <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5286	5452	
==>start =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_in <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5286	5452	
==>start =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	269	371	
==>umber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1127	1229	
==>umber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2722	2837	
==>ieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumfl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2722	2837	
==>ieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumfl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2238	2350	
==>_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2238	2350	
==>_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3586	3714	
==>alar => '$' . $_[0]->() ,} }
            ) ),
        '$.' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13750	13876	
==>ache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13750	13876	
==>ache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13750	13876	
==>ache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3542	3662	
==>e = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4859	4979	
==>e = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3542	3662	
==>e = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4847	4967	
==>e = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx inte <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1804	1914	
==>ield} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1804	1914	
==>ield} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18954	19048	
==>is is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_tra <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18954	19048	
==>is is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_tra <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4617	4727	
==>od return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- interse <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4617	4727	
==>od return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- interse <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	841	951	
==>ss $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	808	918	
==>ss $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2215	2347	
==>d           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2215	2347	
==>d           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7433	7546	
==>duced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class-> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7433	7546	
==>duced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4506	4646	
==>__->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1579	1697	
==>return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1579	1697	
==>return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1579	1697	
==>return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8036	8182	
==>aracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13630	13776	
==>aracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8036	8182	
==>aracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13624	13770	
==>aracter class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11623	11733	
==>RGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11623	11733	
==>RGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11623	11733	
==>RGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10641	10745	
==>te_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4197	4352	
==>ners(@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slots') <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	901	1014	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	901	1014	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	901	1014	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	571	672	
==>8
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	571	672	
==>8
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	571	672	
==>8
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-1 <==
4	/Users/nnunley/pugs/util/config_h.pl	1022	1122	
==>PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6217	6335	
==>nClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6217	6335	
==>nClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6217	6335	
==>nClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	441	547	
==>alues;
    while (my ($key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key->isa('type <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7983	8182	
==>ed    => 1,
            store       => \$file,
            allow       => FILE_EXISTS
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5710	5839	
==>atch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5710	5839	
==>atch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10336	10450	
==>$st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zer <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5048	5161	
==>s_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5048	5161	
==>s_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3617	3713	
==>ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3617	3713	
==>ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	112	210	
==>ts (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	112	210	
==>ts (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	112	210	
==>ts (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15707	15834	
==>+ $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15707	15834	
==>+ $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15707	15834	
==>+ $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29233	29334	
==>efcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL_DOLLAR       1
 #de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5282	5379	
==>y be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5282	5379	
==>y be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5282	5379	
==>y be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3551	3661	
==>mplate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3551	3661	
==>mplate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13945	14277	
==>sts{$tfile} = { canon       => '??',
                                         max         => '??',
                                         failed      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         esta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1564	1671	
==>ined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1564	1671	
==>ined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1564	1671	
==>ined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3429	3527	
==>rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubva <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3429	3527	
==>rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubva <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33353	33449	
==>erride the user text of another library
which it uses, the Template module for the program or fir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33353	33449	
==>erride the user text of another library
which it uses, the Template module for the program or fir <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	291	436	
==>> \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@IN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	285	430	
==>> \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@IN <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7772	7868	
==>ize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7772	7868	
==>ize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	821	944	
==>@_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	821	944	
==>@_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	821	944	
==>@_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	741	842	
==>This library is free software; you may redistribute and/or modify it under the
same terms as Perl itse <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2446	2557	
==>$arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_U <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7540	7651	
==>$arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_U <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2446	2557	
==>$arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_U <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7540	7651	
==>$arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_U <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21263	21398	
==>_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->err <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17684	17819	
==>_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->err <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4992	5092	
==>he match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4992	5092	
==>he match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28355	28620	
==>tart + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28355	28620	
==>tart + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28355	28620	
==>tart + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                joi <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	705	812	
==>hift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8504	8679	
==>} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11900	11994	
==>le(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11900	11994	
==>le(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11900	11994	
==>le(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5011	5115	
==>=~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2242	2346	
==>e::List';

    package Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=po <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5011	5115	
==>=~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5011	5115	
==>=~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7345	7482	
==>f ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Perl6::Scalar::" . _em <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3078	3177	
==>g( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3078	3177	
==>g( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3158	3257	
==>g( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21553	21697	
==>l6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21553	21697	
==>l6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21553	21697	
==>l6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8552	8696	
==>ubrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12461	12602	
==>ubrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12461	12602	
==>ubrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23833	23924	
==>Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, rep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	709	830	
==>';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	914	1035	
==>';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	970	1091	
==>';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4886	4969	
==>docs/5.04/html/building/winbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/user <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	337	455	
==>essage::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2976	3085	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as firs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2976	3085	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as firs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2976	3085	
==>$cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as firs <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5818	5967	
==>t,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4318	4467	
==>t,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	224	318	
==>eader field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	224	318	
==>eader field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7559	7685	
==>SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7559	7685	
==>SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16001	16098	
==>n modules get compiled into some
altered form the first time they are run. The result is cached in <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16001	16098	
==>n modules get compiled into some
altered form the first time they are run. The result is cached in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36232	36353	
==>y $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36232	36353	
==>y $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36232	36353	
==>y $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8600	8709	
==>ture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8793	8902	
==>ture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1700	1789	
==>and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1700	1789	
==>and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1700	1789	
==>and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	863	966	
==>y ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	863	966	
==>y ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	863	966	
==>y ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17481	17624	
==>ray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17481	17624	
==>ray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17481	17624	
==>ray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27770	27862	
==>=item C<HARNESS_PERL>

Usually your tests will be run by C<$^X>, the currently-executing Perl <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9959	10052	
==>-> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9959	10052	
==>-> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11484	11574	
==>er_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, im <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11484	11574	
==>er_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, im <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	40	144	
==>IL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4416	4520	
==>ivines whether they passed
or failed based on their output to STDOUT (details above).  It prints
out each <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	40	144	
==>IL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	40	144	
==>IL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2	95	
==>/usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CL <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2	95	
==>/usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CL <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20329	20420	
==>ON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized inclu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20329	20420	
==>ON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized inclu <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	913	1039	
==>trict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !! <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	913	1039	
==>trict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !! <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2771	2865	
==>ce_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3344	3438	
==>ce_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1 <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12220	12315	
==>he recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )`

R <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12220	12315	
==>he recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )`

R <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	627	752	
==>/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	626	751	
==>/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	627	752	
==>/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	626	751	
==>/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10376	10481	
==>list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10376	10481	
==>list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15165	15260	
==>gnatures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expect <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15223	15318	
==>gnatures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6207	6298	
==>Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6207	6298	
==>Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6207	6298	
==>Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	231	330	
==>tr %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<C <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	231	330	
==>tr %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<C <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9747	9844	
==>ction( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9747	9844	
==>ction( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::I <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1298	1474	
==>over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1298	1474	
==>over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %even <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1591	1693	
==>= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1591	1693	
==>= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4505	4617	
==>ten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = In <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4505	4617	
==>ten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = In <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13453	13553	
==>tersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $ds <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13453	13553	
==>tersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $ds <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4702	4814	
==>thods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4702	4814	
==>thods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4702	4814	
==>thods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1544	1646	
==>x->to_native] = nil->new();
    return nil->new();
}

sub slice {
    my ($self, $start_index, $end_ind <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8191	8301	
==>type => ($rseq->values)[-1]->type,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6930	7033	
==>sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6930	7033	
==>sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6930	7033	
==>sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1742	1848	
==>d
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1742	1848	
==>d
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $sp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	76	171	
==>t MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	76	171	
==>t MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1277	1399	
==>5, destination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13417	13513	
==>{ rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13417	13513	
==>{ rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13417	13513	
==>{ rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8157	8255	
==>rs }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7287	7385	
==>rs }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8157	8255	
==>rs }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7287	7385	
==>rs }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36806	36974	
==>ttr(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27923	28020	
==>trs> is empty, the output relation is
identical to the invocant.  This method will fail if any key <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32475	32572	
==>trs> is empty, the output relation is
identical to the invocant.  This method will fail if any key <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31567	31664	
==>trs> is empty, the output relation is
identical to the invocant.  This method will fail if any key <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4614	4754	
==>pan;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yield <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5273	5413	
==>pan;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yield <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4614	4754	
==>pan;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yield <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5273	5413	
==>pan;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yield <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26855	26951	
==>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3920	4016	
==>oding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31407	31503	
==>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3920	4016	
==>oding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	130	236	
==>$class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	130	236	
==>$class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	130	236	
==>$class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fun <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18921	19046	
==>ft @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20279	20404	
==>ft @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $if <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	14	128	
==>e YAML            qw[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEGIN {
    us <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15016	15115	
==>he arrow in the function's type,
	# this causes the type variables in the cloned function to be inst <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8843	8954	
==>le_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword se <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8843	8954	
==>le_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2289	2487	
==>_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2642	2763	
==>p>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2642	2763	
==>p>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2642	2763	
==>p>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19951	20045	
==>, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24503	24597	
==>, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23055	23149	
==>, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14131	14266	
==>y rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10304	10439	
==>y rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11140	11275	
==>y rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10075	10200	
==>rgs = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10227	10371	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10227	10371	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10227	10371	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DEST <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3743	3844	
==>ipped with Pugs.
  --bash=$bash
    linuxrc needs a bash-compatible shell.
  --inputrc=$inputrc
    Th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23693	23802	
==>needed, in $body.
    '{ my $__flag;
       try { '.$body.' }
       catch Perl6::Run::OnPerl5::X1::Api::Excep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39561	39672	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39561	39672	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39561	39672	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	507	606	
==>self->{seen} = {};

	return $self->reduce($program) unless @nodes;

	$self->{seen} = { map { $_ => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4431	4565	
==>y       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4431	4565	
==>y       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4431	4565	
==>y       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	724	826	
==>rn);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Builtins->cast(@_);
}

sub exe <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4958	5057	
==>s subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4085	4184	
==>s subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4958	5057	
==>s subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4085	4184	
==>s subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1796	1971	
==>ve /w code
$Control        = 'control.tgz';                    # part with metadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'f <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1601	1740	
==>ite a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5008	5141	
==>arams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5008	5141	
==>arams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5008	5141	
==>arams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17399	17605	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23365	23571	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17678	17884	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23644	23850	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4124	4224	
==>ti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode unio <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3251	3351	
==>ti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode unio <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4124	4224	
==>ti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode unio <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3251	3351	
==>ti sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode unio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30784	30876	
==>that any duplicates following the transformation have been eliminated. 
Trivial cases are whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35335	35426	
==>that any duplicates following the transformation have been eliminated.
Trivial cases are whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34526	34617	
==>that any duplicates following the transformation have been eliminated.
Trivial cases are whe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10564	10699	
==>est::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      subm <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1090	1211	
==>est::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    subm <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1090	1211	
==>est::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    subm <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4649	4747	
==>XX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is primitive is builtin is saf <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24461	24564	
==>ate($b);
	is($type->stringify, "∀α. α → α", "pretty print a -> b where a = b");
}
{
	my $type = t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17325	17501	
==>r(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17325	17501	
==>r(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17325	17501	
==>r(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4941	5045	
==>ybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4941	5045	
==>ybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LVal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1376	1473	
==>->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24997	25089	
==>t::Harness by default.

C<$verbose>, C<$switches> and C<$debug> are exported upon request.

= <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	831	962	
==>$cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4070	4201	
==>$cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	831	962	
==>$cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4070	4201	
==>$cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9104	9223	
==>tch, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9092	9211	
==>tch, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	418	527	
==>pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	418	527	
==>pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2550	2651	
==>6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2550	2651	
==>6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2550	2651	
==>6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1780	1875	
==>ulti sub epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2061	2259	
==>ader' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shif <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2061	2259	
==>ader' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shif <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34592	34688	
==>> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39142	39238	
==>> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26241	26338	
==>be any
defined and non-empty string, and each variable value can be anything at
all.  Note that wh <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26241	26338	
==>be any
defined and non-empty string, and each variable value can be anything at
all.  Note that wh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18352	18448	
==>dress was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18352	18448	
==>dress was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3690	3805	
==>Token eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3690	3805	
==>Token eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3690	3805	
==>Token eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23216	23309	
==>ings in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	225	328	
==>s is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~ <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	225	328	
==>s is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	500	597	
==>1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_durat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	500	597	
==>1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_durat <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1557	1678	
==>me
is limited, and there are other bootstrap approaches to rules, so this
file may or may not go anywhere.  The plan as of <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	355	456	
==>ty () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	355	456	
==>ty () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9058	9163	
==>an1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
} <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9058	9163	
==>an1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
} <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	27	130	
==>6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa(" <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	27	130	
==>6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa(" <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5267	5400	
==>list = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5267	5400	
==>list = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4199	4289	
==><<'RULE')->code();

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->com <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3450	3650	
==>erpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:p <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3450	3650	
==>erpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3498	3697	
==>erpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3498	3697	
==>erpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12694	12807	
==>') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6169	6282	
==>') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15091	15193	
==>POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9290	9392	
==>POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8431	8544	
==>{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8431	8544	
==>{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8431	8544	
==>{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9539	9631	
==>::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	mul => type::operato <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	52	154	
==>ile::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod B <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	52	154	
==>ile::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod B <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2731	2828	
==>alue' pairs.  This
method should be called before any other methods, as it initialises the list of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2731	2828	
==>alue' pairs.  This
method should be called before any other methods, as it initialises the list of <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6665	6831	
==>right|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'u <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6722	6888	
==>right|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4514	4613	
==>ple: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4514	4613	
==>ple: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15458	15577	
==>:Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Pe <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15458	15577	
==>:Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Pe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21051	21149	
==>ributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25603	25701	
==>ributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	757	862	
==>line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3326	3417	
==>RIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fra <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3326	3417	
==>RIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5523	5614	
==>RIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fra <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	591	708	
==>my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? + <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17269	17369	
==>$other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20746	20846	
==>$other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20324	20424	
==>$other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $ot <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	88	186	
==>has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	88	186	
==>has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10403	10494	
==>f","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11138	11229	
==>f","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4687	4804	
==>_hook_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left- <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1295	1423	
==>etopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count = 0;
        has Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1063	1176	
==>e
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1063	1176	
==>e
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1063	1176	
==>e
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instanc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14264	14411	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14264	14411	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14264	14411	
==>/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	703	843	
==>x

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        my ($root, $po <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22033	22127	
==>ric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20914	21008	
==>ric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22033	22127	
==>ric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20914	21008	
==>ric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	185	336	
==>mmar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	185	336	
==>mmar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4672	4777	
==>ations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4672	4777	
==>ations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11076	11199	
==>/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works? <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5649	5770	
==>ft;
	bless {
		instance => undef,
	}, $class;
}

sub instantiate {
	my $self = shift;
	$self->{instance} = shift;
	bless $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3923	4020	
==>),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, - <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3923	4020	
==>),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, - <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	318	423	
==>'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { ret <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	318	423	
==>'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { ret <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1460	1556	
==>as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day i <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1460	1556	
==>as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11220	11335	
==>_numeric => sub { $_[0] ? 1 : undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	676	788	
==>call_constant {
    my $const = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17783	17881	
==>te

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17783	17881	
==>te

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	67	181	
==>rmediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	67	181	
==>rmediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	67	181	
==>rmediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to b <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	67	181	
==>rmediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21583	21677	
==>nshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21583	21677	
==>nshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21583	21677	
==>nshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4939	5032	
==>::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4939	5032	
==>::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4939	5032	
==>::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30740	30829	
==>med
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation::Ex <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	575	726	
==>eturns Int is export{
    my $max;
    for @x->$try{
        $max =    $max > $try ?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2690	2806	
==>_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2690	2806	
==>_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2690	2806	
==>_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8652	8784	
==>users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8652	8784	
==>users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8916	9040	
==>users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8916	9040	
==>users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2949	3090	
==>ce from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3166	3307	
==>ce from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8265	8364	
==>rns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8265	8364	
==>rns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	706	824	
==>} || exists $param->{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11785	11879	
==>ss Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      method report retur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2207	2297	
==>ss Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report retur <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2207	2297	
==>ss Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4844	4970	
==>=> [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4678	4797	
==>=> [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12498	12604	
==>face::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHAS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12498	12604	
==>face::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHAS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	551	662	
==>or => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	551	662	
==>or => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	551	662	
==>or => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1486	1593	
==>_of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2820	2932	
==>iers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.pri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2820	2932	
==>iers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2647	2746	
==>ng the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not sure... I t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2549	2644	
==>ng the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not sure... I t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5955	6079	
==>$n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5955	6079	
==>$n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5955	6079	
==>$n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20089	20172	
==>_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_pos(X),C), !.
rm(class_neg( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6788	6925	
==>r die "find_extensions: Can't open $subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22004	22097	
==>tuples or
one tuple respectively have a special meaning in relational algebra which
is analago <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26556	26649	
==>tuples or
one tuple respectively have a special meaning in relational algebra which
is analago <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25252	25345	
==>tuples or
one tuple respectively have a special meaning in relational algebra which
is analago <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	655	796	
==>g subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	666	807	
==>g subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subru <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32759	32851	
==>Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37309	37401	
==>Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9083	9208	
==>=> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9083	9208	
==>=> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9083	9208	
==>=> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35289	35397	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('add_attribute'),
    # method bo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14534	14671	
==>:groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6274	6409	
==>keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<" <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6466	6599	
==>arams.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @p <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6466	6599	
==>arams.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2789	2894	
==>X.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2789	2894	
==>X.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2789	2894	
==>X.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18670	18785	
==>my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20028	20143	
==>my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2988	3092	
==>ne;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BOD <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2988	3092	
==>ne;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BOD <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16246	16385	
==>( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19723	19862	
==>( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19256	19395	
==>( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my me <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	881	995	
==>rgument_class.string_to_arguments( @strings );
        }
    }

    class Getopt::Argument::Style {
        has $va <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8106	8221	
==>1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8106	8221	
==>1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3338	3448	
==>1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3338	3448	
==>1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8719	8863	
==>n $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experiment <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8719	8863	
==>n $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experiment <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3343	3476	
==>::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3343	3476	
==>::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1598	1739	
==>ss.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1598	1739	
==>ss.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	403	503	
==>port { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRI <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	403	503	
==>port { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3874	3973	
==>, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3874	3973	
==>, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3874	3973	
==>, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1921	2030	
==>= Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(call <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1921	2030	
==>= Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(call <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2157	2266	
==>= Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(call <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19754	19852	
==>rphic function to a string by giving it as a param to a higher order function
my $app_id_to_str = c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14361	14476	
==>t"
    target = $P0
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = length target
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	620	715	
==>pand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	620	715	
==>pand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	620	715	
==>pand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursio <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2555	2649	
==>ject support, this module is more like the
Perl 5 File::Spec::Functions module than the base Fi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2555	2649	
==>ject support, this module is more like the
Perl 5 File::Spec::Functions module than the base Fi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13505	13648	
==>=> str->new('P6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5606	5710	
==>fix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unico <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4736	4840	
==>fix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unico <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5606	5710	
==>fix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unico <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4736	4840	
==>fix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unico <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	840	959	
==>am<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<st <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	582	701	
==>am<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<st <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	840	959	
==>am<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<st <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	582	701	
==>am<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11804	11956	
==>elations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15281	15433	
==>elations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14616	14768	
==>elations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15708	15833	
==>t "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5185	5291	
==>ation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8662	8768	
==>ation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1207	1309	
==>ules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_mean <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1207	1309	
==>ules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_mean <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7070	7382	
==>new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	156	281	
==>ray)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

me <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	156	281	
==>ray)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

me <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6754	6877	
==>l";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4367	4470	
==>f @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4367	4470	
==>f @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4367	4470	
==>f @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8564	8661	
==>ind eq 'Method') {
	$code_body = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	763	852	
==>MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	763	852	
==>MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	763	852	
==>MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4554	4667	
==>se this "is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fail" clashes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	851	960	
==>ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	851	960	
==>ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	851	960	
==>ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3563	3683	
==>en_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3563	3683	
==>en_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22297	22395	
==>t a table.

The Relation class is pure and deterministic, such that all of its class
and object met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26849	26947	
==>t a table.

The Relation class is pure and deterministic, such that all of its class
and object met <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21810	21909	
==>ecessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20691	20790	
==>ecessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21810	21909	
==>ecessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20691	20790	
==>ecessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<res <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22195	22299	
==>ultClause> <CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseCl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2558	2660	
==>ethod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6035	6137	
==>ethod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4965	5067	
==>ethod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(St <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1604	1696	
==>mpiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5539	5631	
==>ethod return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9137	9229	
==>ethod return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1604	1696	
==>mpiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Per <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2981	3081	
==>day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.y <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2981	3081	
==>day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18030	18129	
==>s, by
parsing up your module's source code into various blocks; so that by the
time a compiler is ca <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18030	18129	
==>s, by
parsing up your module's source code into various blocks; so that by the
time a compiler is ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	536	631	
==>mit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	536	631	
==>mit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	536	631	
==>mit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21648	21733	
==>eck_offset_min substrs->data[2].min_offset
 #define check_offset_max substrs->data[2]. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22277	22381	
==>$xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22277	22381	
==>$xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22277	22381	
==>$xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	100	194	
==>dule::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';

use strict;
use Conf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10256	10361	
==>and @{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) {
      my $br = $st->[-1][-1];
      $br-> <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1822	1922	
==>construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule external_hash_al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1232	1331	
==>he Module is simply a hash from strings

(symbol names) to objects (containers)



the Code part con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1177	1273	
==>he Module is simply a hash from strings
(symbol names) to objects (containers)

the Code part con <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21214	21310	
==>'s most prominant feature is that it provides a
common API for access to those databases, each of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21214	21310	
==>'s most prominant feature is that it provides a
common API for access to those databases, each of <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3186	3281	
==>my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3186	3281	
==>my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9971	10123	
==>(@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${si <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9971	10123	
==>(@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${si <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9971	10123	
==>(@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7651	7770	
==>l6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7651	7770	
==>l6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7651	7770	
==>l6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16037	16138	
==>har )

Trims the last character from C<$string>, and returns it. Called with a
list, it chops each ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2164	2262	
==>piled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2164	2262	
==>piled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2164	2262	
==>piled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1301	1440	
==>rint "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1312	1451	
==>rint "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	54	164	
==>) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	54	164	
==>) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7656	7792	
==>rn Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7656	7792	
==>rn Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7656	7792	
==>rn Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unb <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14650	14769	
==>} eq '') {
        $rx->awarn($rx->RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self->{data} = $tree-> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2465	2568	
==>ig::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your c <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2465	2568	
==>ig::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23358	23443	
==>istribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23358	23443	
==>istribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3412	3531	
==>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3412	3531	
==>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3412	3531	
==>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1882	1981	
==>e => $name, options => $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSpl <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	265	383	
==>on uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	265	383	
==>on uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12784	12880	
==>2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12784	12880	
==>2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	997	1123	
==>se { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1005	1126	
==>se { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17807	17924	
==>> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16845	16962	
==>> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17807	17924	
==>> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16845	16962	
==>> "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	530	651	
==>s  = $target / 2;
    my Int $count  = 1;

    while (abs($f($guess) - $target) > $epsilon) {

        if ($count > $max_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7322	7418	
==>END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7322	7418	
==>END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7322	7418	
==>END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19215	19309	
==>ot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19215	19309	
==>ot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1909	2002	
==>terpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1909	2002	
==>terpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5936	6041	
==>» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5066	5171	
==>» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5936	6041	
==>» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5066	5171	
==>» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10735	10862	
==>arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10735	10862	
==>arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10735	10862	
==>arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(". <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5739	5861	
==>** ghc not found in path.  Looking in $ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we've found a GHC <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7392	7491	
==>sets $regex as the regex to be parsed.

=back

These two approaches do an initial pass over the rege <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2294	2434	
==>::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2294	2434	
==>::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars. <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	867	962	
==>sing your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTION <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	867	962	
==>sing your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTION <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9900	10013	
==>= split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15741	15854	
==>= split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9900	10013	
==>= split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15735	15848	
==>= split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4173	4335	
==>nt->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4173	4335	
==>nt->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4173	4335	
==>nt->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (d <==
4	/Users/nnunley/pugs/util/testgraph.pl	1493	1600	
==>e base qw/Test::TAP::Model::File::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1246	1374	
==>{'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6174	6299	
==>class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6174	6299	
==>class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6174	6299	
==>class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22120	22312	
==>ethod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22120	22312	
==>ethod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22120	22312	
==>ethod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25159	25271	
==>t('$self:')->set_attr(symbol->new('@:superclasses') => $e->get('?@superclasses')); 
                          # c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1918	2029	
==>t;
	my $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "IV") {
		return $node->struct_equiv;
	} elsif ($t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1138	1233	
==>d other thingies.

It also gives the compiler the default environment to work with (from
L<Blond <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	900	988	
==>CCShortcut");
    $optable->addToken("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14397	14490	
==>B bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14397	14490	
==>B bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14397	14490	
==>B bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	132	277	
==>($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($nam <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	132	277	
==>($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($nam <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16361	16473	
==>nusmsg($tot);

    if (_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsif (!$tot->{te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10388	10509	
==>( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test: <==
4	/Users/nnunley/pugs/util/addauthors.pl	1333	1449	
==>mper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub readauthors {
  my $fh = I <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2409	2518	
==>( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2409	2518	
==>( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7067	7246	
==>atch = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6830	7002	
==>atch = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	318	464	
==>%params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1274	1404	
==>die::TypeSafe::Type::Std->new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4631	4746	
==>gical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XX <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4631	4746	
==>gical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XX <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7855	7956	
==>"QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7855	7956	
==>"QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!cha <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1411	1534	
==>=~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	901	999	
==>IL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	901	999	
==>IL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	901	999	
==>IL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS. <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14199	14319	
==>or.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4272	4384	
==>or.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.val <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4272	4384	
==>or.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.val <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4272	4384	
==>or.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.val <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9256	9375	
==>ess $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14046	14154	
==>g $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' alias <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10795	10888	
==>ype returns Str>

=item B<content_length returns Str>

=back

B<The following informational fu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10795	10888	
==>ype returns Str>

=item B<content_length returns Str>

=back

B<The following informational fu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	900	1026	
==>, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1293	1419	
==>, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	900	1026	
==>, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1293	1419	
==>, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16766	16926	
==>le(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16766	16926	
==>le(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1318	1410	
==>similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=hea <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1318	1410	
==>similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=hea <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	4	113	
==>strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

B <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	4	113	
==>strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

B <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2185	2288	
==>>[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2185	2288	
==>>[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13466	13571	
==>);
	local @ENV{@keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	420	514	
==>" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	381	475	
==>" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	381	475	
==>" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37232	37362	
==>er('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	985	1105	
==>st be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	985	1105	
==>st be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	985	1105	
==>st be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2511	2617	
==>y $output = _draw_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $output .= _draw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2016	2121	
==>PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2016	2121	
==>PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2016	2121	
==>PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25428	25522	
==><equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29980	30074	
==><equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28919	29013	
==><equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relat <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5894	6005	
==>d unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5894	6005	
==>d unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1010	1106	
==>TATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of docum <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1010	1106	
==>TATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of docum <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3848	4016	
==>thod' => $e->get('$current')->send('get_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6990	7110	
==>\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3594	3714	
==>\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4443	4563	
==>\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	434	551	
==>b { 
            my ($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5815	5924	
==>_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5815	5924	
==>_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5815	5924	
==>_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1555	1687	
==>ant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1566	1698	
==>ant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13120	13223	
==>erything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserver <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13120	13223	
==>erything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserver <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5267	5383	
==>=> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CA <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8744	8860	
==>=> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CA <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7764	7880	
==>=> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CA <==
4	/Users/nnunley/pugs/util/grokprims.pl	1241	1351	
==>>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{a <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9832	9936	
==><body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http://w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	300	398	
==>en_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	300	398	
==>en_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	300	398	
==>en_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9433	9537	
==>p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9433	9537	
==>p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9433	9537	
==>p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	138	251	
==>__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4436	4537	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4436	4537	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4436	4537	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

:: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13725	13868	
==>idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3850	3981	
==>idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3850	3981	
==>idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3850	3981	
==>idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1986	2085	
==>arp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1986	2085	
==>arp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18929	19022	
==>its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18929	19022	
==>its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1733	1855	
==>("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1733	1855	
==>("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1733	1855	
==>("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $s <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	511	624	
==>AD {
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4263	4370	
==>ne}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4263	4370	
==>ne}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4263	4370	
==>ne}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
su <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1310	1411	
==>:Tangram doesn't have a real type system :-P
# there are more types ... but this will do for now
our % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1319	1445	
==>self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1319	1445	
==>self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1319	1445	
==>self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::C <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12165	12269	
==>e t/pugsrun/11-safemode.t if you change the fully
    # qualified name of open3.

    multi sub open3 (St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2544	2662	
==>$cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are tr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2544	2662	
==>$cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are tr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2544	2662	
==>$cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2562	2673	
==>)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authori <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2562	2673	
==>)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authori <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2562	2673	
==>)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authori <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11166	11262	
==>ied, in order, until a non-zero (tie) result is achieved.

Criterion can take a few different for <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1456	1716	
==>_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %TEXT_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2203	2314	
==>STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2203	2314	
==>STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2203	2314	
==>STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6775	6904	
==>ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some poi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6775	6904	
==>ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some poi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	360	459	
==>returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!f <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	360	459	
==>returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!f <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1063	1175	
==>else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1063	1175	
==>else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) r <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2467	2571	
==>l5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2467	2571	
==>l5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($p <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2732	2892	
==>d_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	951	1069	
==>al_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	951	1069	
==>al_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	951	1069	
==>al_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $j <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13198	13352	
==>P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13198	13352	
==>P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12294	12438	
==>P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12294	12438	
==>P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14385	14483	
==>ng

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
inte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14385	14483	
==>ng

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
inte <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11506	11628	
==>$v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	258	352	
==>pr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	258	352	
==>pr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	258	352	
==>pr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40435	40544	
==>$value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40435	40544	
==>$value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40435	40544	
==>$value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $thi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1444	1568	
==>' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3904	4020	
==>ass, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3904	4020	
==>ass, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3904	4020	
==>ass, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5890	6001	
==>BLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5890	6001	
==>BLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5890	6001	
==>BLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21286	21394	
==>look($mn,$name);
}
sub p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_mangle($n,$pkg);
#    print STDERR $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4982	5103	
==>set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    els <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4982	5103	
==>set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    els <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21519	21615	
==>me class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26071	26167	
==>me class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3129	3284	
==>rgs], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3129	3284	
==>rgs], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19620	19710	
==>.)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19620	19710	
==>.)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	34	141	
==>glock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	34	136	
==>glock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	64	165	
==>glock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	64	165	
==>glock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3424	3539	
==>') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3424	3539	
==>') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3424	3539	
==>') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	467	563	
==>ig{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2368	2465	
==>is port does it's best to work with those limitations and 
still produce a working version of File <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2368	2465	
==>is port does it's best to work with those limitations and 
still produce a working version of File <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15597	15690	
==>ndation for data and database management systems
(DBMSs); like Edgar F. Codd's original papers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15597	15690	
==>ndation for data and database management systems
(DBMSs); like Edgar F. Codd's original papers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2917	3020	
==>the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2917	3020	
==>the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5732	5830	
==>arge, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5732	5830	
==>arge, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2295	2389	
==>y method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2295	2389	
==>y method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1364	1448	
==>le at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.ex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1204	1288	
==>le at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.ex <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	394	496	
==>oid is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUE <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	394	496	
==>oid is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUE <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14796	14890	
==>porting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implement <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14854	14948	
==>porting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implement <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11759	11906	
==>$n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp2} );
    }

    return _emit( $n->{exp1} ) . ' ' . 
        $n->{op1}{op} . ' ' . _emit( $n->{exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1718	1814	
==>eturn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1718	1814	
==>eturn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1954	2050	
==>eturn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10405	10585	
==>tion => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      ha <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	945	1107	
==>tion => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    ha <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	945	1107	
==>tion => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    ha <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26478	26583	
==>ingify, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip");
}




# tests for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34309	34408	
==>@{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34309	34408	
==>@{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34309	34408	
==>@{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23313	23489	
==>return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23313	23489	
==>return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23313	23489	
==>return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	274	367	
==>r;

use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use base ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11944	12142	
==>nc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ], <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11944	12142	
==>nc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ], <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5524	5646	
==>>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5524	5646	
==>>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4178	4325	
==>uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4178	4325	
==>uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg" <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3843	3937	
==>wer, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To r <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3843	3937	
==>wer, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1870	1983	
==>ctively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1870	1983	
==>ctively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.ur <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6968	7080	
==>();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6968	7080	
==>();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2644	2766	
==>int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2644	2766	
==>int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4521	4637	
==>ual to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remov <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4521	4637	
==>ual to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remov <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4850	4979	
==>$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15886	16015	
==>$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17374	17503	
==>$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22057	22186	
==>$$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $sel <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5216	5312	
==>( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5216	5312	
==>( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6740	6836	
==>( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3833	3944	
==>}

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3833	3944	
==>}

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3833	3944	
==>}

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15487	15597	
==>tcloseparen;     /* last paren matched */

Other things the world messes with:

  I32 refcnt;

What invariants? <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4734	4861	
==><"paramDefault">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6466	6585	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6659	6778	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1941	2053	
==>sible Bugs:
#   * We are not using some of the tokenizer rules.
#     So it isnt entirely clear we are doing an f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	628	750	
==>STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6146	6268	
==>STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	628	750	
==>STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6158	6280	
==>STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17111	17243	
==>ent ||= 0;
    local $indent = $indent + 1;
    
    our $seen;
    local $seen = $seen || {};

    if ($seen->{$node}++){
        re <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13615	13720	
==>low adding globals
    # right now this is a non issue since even higher order functions get prims instead <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1815	1912	
==>es in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1815	1912	
==>es in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12683	12836	
==>'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to del <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12683	12836	
==>'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to del <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12683	12836	
==>'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to del <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18101	18202	
==>:split ( Rule $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split ( <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4790	4914	
==>ee[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# keys: ",%pad.keys;
        $ret = <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	763	871	
==>ms);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_si <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	763	871	
==>ms);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_si <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14440	14545	
==>00000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Cr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14440	14545	
==>00000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Cr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3907	4008	
==>sing tests from tests.yaml\n";
}
print "Output directory      : $output_dir\n";
print "\n";

my $quota <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28959	29051	
==>become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33511	33603	
==>become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32648	32740	
==>become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attrib <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1695	1847	
==>return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1695	1847	
==>return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2867	3032	
==>"    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2867	3032	
==>"    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4404	4522	
==>if (initchar ne "\\") goto term_literal;
  {
  }
  else
  {
    if (matches(/\d/, $target, $pos))
    {
      goto err_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5409	5498	
==>turn { _print_with_fh => $() ,} }
RULE
*{'_print'} = Pugs::Compiler::Rule->compile(<<'RULE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10076	10193	
==>w< minmod >;
    return $S->object(quant => 0, '');
  });

  $self->add_handler('+' => sub {
    my ($S) = @_;
    pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16182	16280	
==>lass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16182	16280	
==>lass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16182	16280	
==>lass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8212	8320	
==>rl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	648	744	
==>ater), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	648	744	
==>ater), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	648	744	
==>ater), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	736	885	
==>ool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	706	850	
==>ool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10838	10963	
==>{
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10838	10963	
==>{
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10122	10259	
==>OPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10122	10259	
==>OPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17235	17363	
==>", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17235	17363	
==>", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5747	5919	
==>[...], \000
    # goto term_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12499	12611	
==>ray {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12499	12611	
==>ray {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12499	12611	
==>ray {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	56	178	
==>trict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1685	1777	
==>_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1685	1777	
==>_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1685	1777	
==>_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3473	3573	
==>... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1450	1540	
==>$input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1450	1540	
==>$input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1450	1540	
==>$input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6721	6850	
==>= &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
} <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6721	6850	
==>= &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6180	6278	
==>nts may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgivi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6180	6278	
==>nts may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgivi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32261	32358	
==>y 2 relations, the result is the same regardless of
which is the invocant and which is the argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36811	36908	
==>y 2 relations, the result is the same regardless of
which is the invocant and which is the argumen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36101	36198	
==>y 2 relations, the result is the same regardless of
which is the invocant and which is the argumen <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	225	322	
==>t's
real p5 re coverage is much less.  The test passing was simply to
permit refactoring with conf <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9565	9696	
==>umper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10401	10532	
==>umper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	337	440	
==>head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot doe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	337	440	
==>head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot doe <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	788	896	
==>standing of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	788	896	
==>standing of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23248	23344	
==>iations.  Or alternately, the other
packages require your text data to be stored in a format othe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23248	23344	
==>iations.  Or alternately, the other
packages require your text data to be stored in a format othe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3172	3281	
==>$cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3582	3686	
==>ieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3582	3686	
==>ieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3582	3686	
==>ieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tie <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6841	6959	
==>dquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hell <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6841	6959	
==>dquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hell <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2302	2404	
==>push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2302	2404	
==>push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2186	2297	
==>ssage ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	183	286	
==>ssage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	183	286	
==>ssage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy ) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1210	1303	
==>lue;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11358	11552	
==>ray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11358	11552	
==>ray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11358	11552	
==>ray';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        method <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4799	4960	
==>e($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return undef; # this is probably th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2335	2481	
==>ied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2335	2481	
==>ied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2335	2481	
==>ied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6358	6461	
==>ctional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6358	6461	
==>ctional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	529	626	
==>| <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::R <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	529	626	
==>| <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	749	861	
==>te.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	749	861	
==>te.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	848	944	
==>, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	848	944	
==>, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by match <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15143	15243	
==>a message to the user, or generate a message to be
shown to the user.  Sometimes this is an error mes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15143	15243	
==>a message to the user, or generate a message to be
shown to the user.  Sometimes this is an error mes <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	517	635	
==>/,$line);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6015	6101	
==>Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6015	6101	
==>Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8212	8298	
==>Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1763	1860	
==>5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1903	2000	
==>5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	758	853	
==>::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns B <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	758	853	
==>::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns B <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3153	3291	
==>ff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4773	4874	
==>}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4773	4874	
==>}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4773	4874	
==>}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    ( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14504	14616	
==>mber
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20913	21009	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20913	21009	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20913	21009	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7416	7561	
==>h = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9393	9538	
==>h = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7404	7549	
==>h = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9381	9526	
==>h = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1] <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17442	17545	
==>e BitwiseORExpression :words {  # see 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'| <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21362	21459	
==>an start with the package name?).  An advantage of
this is that, for example, your package could c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21362	21459	
==>an start with the package name?).  An advantage of
this is that, for example, your package could c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7233	7344	
==>acket for \\x...")
    goto end
.end

.sub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4484	4677	
==>y', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4484	4677	
==>y', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4484	4677	
==>y', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9990	10108	
==>t returns the next node:

  while (my $node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list conte <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	758	889	
==>SA_JIB_INSTALLATION ,
        },
    };
    
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_er <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7356	7449	
==>atch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7356	7449	
==>atch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7356	7449	
==>atch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27075	27174	
==>t directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory name is wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3265	3360	
==>2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modify <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3265	3360	
==>2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modify <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3265	3360	
==>2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modify <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16725	16825	
==>n as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyMo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16725	16825	
==>n as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyMo <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1026	1125	
==>oo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly mor <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1026	1125	
==>oo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly mor <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	856	1008	
==>start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_st <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4095	4247	
==>start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	856	1008	
==>start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4095	4247	
==>start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_st <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8119	8223	
==>$match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "Sub" );
  ($operat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	448	562	
==>s!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	448	562	
==>s!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21498	21594	
==>Net. All rights reserved.

This program is free software; you can redistribute it and/or modify i <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21498	21594	
==>Net. All rights reserved.

This program is free software; you can redistribute it and/or modify i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7514	7648	
==>_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7514	7648	
==>_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36289	36377	
==>yLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36289	36377	
==>yLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() t <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2572	2694	
==>p {
        "config_$_";
    } sort keys %$config;
    $template =~ s/#all_fields#/$all_fields/;

    my $all_definitions = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7048	7153	
==>pe { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7048	7153	
==>pe { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7048	7153	
==>pe { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10797	10944	
==>%subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "in <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10797	10944	
==>%subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "in <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9576	9683	
==>$prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'per <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9576	9683	
==>$prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	485	596	
==>hift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	485	596	
==>hift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	485	596	
==>hift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize( <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5034	5130	
==>STDERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10305	10410	
==>t returns the depth to which it will
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6879	6974	
==>{ return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6879	6974	
==>{ return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6879	6974	
==>{ return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  J <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3021	3125	
==>if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $resul <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3021	3125	
==>if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $resul <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1987	2088	
==>thod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1987	2088	
==>thod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39588	39680	
==>ress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://ww <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24311	24403	
==>ress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://ww <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39588	39680	
==>ress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://ww <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24311	24403	
==>ress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://ww <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3230	3365	
==>{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1903	2016	
==>) {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1903	2016	
==>) {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1903	2016	
==>) {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22089	22188	
==>s analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation ca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26641	26740	
==>s analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation ca <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6820	6912	
==>d store a document identified by a URL, using
I<If-modified-since>, and checking the I<Conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6820	6912	
==>d store a document identified by a URL, using
I<If-modified-since>, and checking the I<Conten <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6187	6280	
==>ar initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6187	6280	
==>ar initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6187	6280	
==>ar initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	950	1065	
==>d.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo but not x" is expressed as
#     <!before x> <Fo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23995	24086	
==>ody attributes are set respectively from the optional named parameters
C<$heading> and C<$bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28547	28638	
==>ody attributes are set respectively from the optional named parameters
C<$heading> and C<$bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27378	27469	
==>ody attributes are set respectively from the optional named parameters
C<$heading> and C<$bo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8206	8337	
==>e($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8218	8349	
==>e($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return em <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4420	4516	
==>file, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not sup <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4420	4516	
==>file, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7416	7529	
==>ued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7416	7529	
==>ued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7416	7529	
==>ued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whil <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2637	2731	
==>sition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:bla <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2211	2357	
==>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&rep <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2569	2715	
==>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&rep <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8287	8397	
==>@union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8287	8397	
==>@union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6122	6252	
==>], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6512	6642	
==>], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4624	4754	
==>], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5016	5146	
==>], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7245	7374	
==>am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7245	7374	
==>am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7245	7374	
==>am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10251	10345	
==>e RegularExpressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionCha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35035	35155	
==>len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35035	35155	
==>len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35035	35155	
==>len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=s <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2666	2773	
==>o_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type} }, @_ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2824	2930	
==>ame", "$value")};
    } sort keys %$config;
    $template =~ s/#all_definitions#/$all_definitions/;

    pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1437	1529	
==>S.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1437	1529	
==>S.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1437	1529	
==>S.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n" <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3577	3702	
==>2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3577	3702	
==>2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5939	6038	
==>->new('@:superclasses')    => list->new(),
            attribute->new('%:private_methods') => hash-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5530	5627	
==>4main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5530	5627	
==>4main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5530	5627	
==>4main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8677	8799	
==>able_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8870	8992	
==>able_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14231	14328	
==>are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
wo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14231	14328	
==>are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33650	33778	
==>nt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33650	33778	
==>nt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33650	33778	
==>nt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL:: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6641	6740	
==>Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_compile
 */

static regcomp_t previo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10344	10498	
==>ER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10344	10498	
==>ER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10344	10498	
==>ER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1905	2009	
==>ts($program);
    $program =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8964	9172	
==>elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # T <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8964	9172	
==>elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # T <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	594	695	
==>l
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify). <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	594	695	
==>l
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2132	2233	
==>ndef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2132	2233	
==>ndef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2132	2233	
==>ndef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	107	200	
==>CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1043	1150	
==>nd and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1043	1150	
==>nd and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1043	1150	
==>nd and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18735	18939	
==>d?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18735	18939	
==>d?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18735	18939	
==>d?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->c <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27786	27893	
==>MatchX->new()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2245	2376	
==>oc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30046	30166	
==>om_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30046	30166	
==>om_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30046	30166	
==>om_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $leng <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5771	5868	
==>wo) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4901	4998	
==>wo) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5771	5868	
==>wo) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4901	4998	
==>wo) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1909	2050	
==>pt_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1909	2050	
==>pt_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1909	2050	
==>pt_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4358	4457	
==>s_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

su <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11033	11129	
==><document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11033	11129	
==><document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13404	13498	
==>nly.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13404	13498	
==>nly.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	259	364	
==>my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.ciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	259	364	
==>my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.ciph <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4656	4760	
==>$_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4656	4760	
==>$_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2805	2967	
==>List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $l <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3425	3587	
==>List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2805	2967	
==>List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3425	3587	
==>List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	475	640	
==>return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                % <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	475	640	
==>return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                % <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	694	817	
==>ory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	694	817	
==>ory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1817	1928	
==>" . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1817	1928	
==>" . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1817	1928	
==>" . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	384	480	
==>IPTION

A simple assert routine since we don't have Carp::Assert handy.

B<For internal use by Te <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6717	6841	
==>,
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bd <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6717	6841	
==>,
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bd <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11255	11346	
==>location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11255	11346	
==>location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1911	2034	
==>dd location to the metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other found data to the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1383	1489	
==>less defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17746	17852	
==>mmar 
  end:
    .return (sub, code, exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analyze" :method
    .pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1383	1489	
==>less defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7861	7989	
==>w {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9362	9455	
==>ULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9362	9455	
==>ULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9362	9455	
==>ULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3047	3160	
==>TLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $resp <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3047	3160	
==>TLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $resp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8724	8827	
==>(I mean, seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8434	8534	
==>(I mean, seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2590	2710	
==>constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2783	2903	
==>constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3195	3304	
==>thod, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $to <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5401	5510	
==>thod, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $to <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	457	567	
==>cro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file i <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	457	567	
==>cro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7388	7486	
==>l \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7388	7486	
==>l \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2067	2199	
==>named_capture => $body, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4597	4693	
==>om_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4597	4693	
==>om_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4597	4693	
==>om_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(t <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4948	5045	
==>) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4948	5045	
==>) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	149	242	
==>-----------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# - <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	149	242	
==>-----------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# - <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1480	1579	
==>bName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSubIsM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2608	2702	
==>" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2608	2702	
==>" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2608	2702	
==>" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2252	2385	
==>tion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2252	2385	
==>tion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2252	2385	
==>tion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.le <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2290	2387	
==>y fall back
on something more likely to work.

Further, the above method always uses a starting gu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8866	8991	
==>on        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8866	8991	
==>on        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # o <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4021	4103	
==>cket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/n <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4021	4103	
==>cket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9160	9319	
==>, $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e->get("&dispatcher")->do()); 
            })->do_wh <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34328	34421	
==>the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38878	38971	
==>the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38357	38450	
==>the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17221	17335	
==>0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17221	17335	
==>0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5007	5118	
==>[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5007	5118	
==>[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13002	13107	
==>rgs{switches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8470	8565	
==>, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8470	8565	
==>, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8470	8565	
==>, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23634	23758	
==>x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. * <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23772	23872	
==>it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28324	28424	
==>it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28863	28961	
==>x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. * <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2475	2613	
==>k => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	476	572	
==>urce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	476	572	
==>urce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	476	572	
==>urce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8010	8114	
==>n ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7736	7836	
==>n ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shif <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22022	22121	
==>to fetch the user message for a certain code, it
returns the first one it finds.  This also works fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22022	22121	
==>to fetch the user message for a certain code, it
returns the first one it finds.  This also works fo <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3423	3582	
==>ree.new(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Tra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5043	5184	
==>,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5043	5184	
==>,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5043	5184	
==>,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_va <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4718	4823	
==><?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14240	14342	
==>return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14240	14342	
==>return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14240	14342	
==>return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	79	179	
==>type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	79	179	
==>type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	79	179	
==>type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	1022	1117	
==>sion process, in order to compile all
reused nodes into their own emitter specific symbols.

=cu <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2195	2311	
==>pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    re <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2195	2311	
==>pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    re <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9025	9131	
==>oesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9025	9131	
==>oesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set  <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10864	10983	
==>4;
      # $5  captures the entire match
      # $6  captures the opening delimiter (provided only one delimiter was spe <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12377	12491	
==>->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the parameter is associated with a n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40406	40497	
==>tion to preserving this original copyright notice and other
credits. Locale::KeyedText is di <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40406	40497	
==>tion to preserving this original copyright notice and other
credits. Locale::KeyedText is di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19074	19221	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19074	19221	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19074	19221	
==>gic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1879	2024	
==>70), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4870	4969	
==>MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11476	11575	
==>main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4870	4969	
==>MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4870	4969	
==>MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13217	13328	
==>ngs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16694	16805	
==>ngs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16056	16167	
==>ngs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28434	28559	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28713	28838	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38240	38334	
==>n
its positional parameter $text (a string), and a Message Variables hash ref
in its positional <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38240	38334	
==>n
its positional parameter $text (a string), and a Message Variables hash ref
in its positional <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2159	2330	
==>error( "Could not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2519	2649	
==>q "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2519	2649	
==>q "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2519	2649	
==>q "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5378	5486	
==>efine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5378	5486	
==>efine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($cont <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18752	18852	
==>pply its $document and optional
$parent_node though; you can produce a direct clone like this:

    m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18752	18852	
==>pply its $document and optional
$parent_node though; you can produce a direct clone like this:

    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	109	218	
==>ckage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings " <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	878	987	
==>ptions($event) ==> .mk_notifications)».dispatch;
    }
    
    method notify (*@args) {
        .notify(Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	109	218	
==>ckage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	109	218	
==>ckage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1281	1386	
==>s {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1281	1386	
==>s {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1281	1386	
==>s {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9489	9586	
==>k = ('inf' => '100**100**100',
		  '-inf' => '-100**100**100',
		  'NaN' => '100**100**100/100**10 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	508	612	
==>sion to other types
sub to_str { (shift)->join(str->new('')) }
sub to_num { (shift)->length             } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33522	33617	
==>efined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This sto <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33522	33617	
==>efined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This sto <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7600	7692	
==>ad3 Fatal Errors

B<If there is a compilation-stopping error>, $parser->errmsg will return
th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21312	21406	
==>tribute name and each Mapping value
is the corresponding attribute value.

Every Relation attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25864	25958	
==>tribute name and each Mapping value
is the corresponding attribute value.

Every Relation attri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	210	298	
==>gs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	210	298	
==>gs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Em <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	175	294	
==>t = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#chann <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	179	298	
==>t = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	175	294	
==>t = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	179	298	
==>t = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#chann <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21809	21908	
==>id for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, tho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26361	26460	
==>id for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, tho <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6575	6671	
==>ssage are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6575	6671	
==>ssage are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4377	4484	
==>lf->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4377	4484	
==>lf->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4377	4484	
==>lf->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4171	4274	
==>s Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3298	3401	
==>s Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4171	4274	
==>s Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3298	3401	
==>s Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6553	6681	
==>escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6746	6874	
==>escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6439	6538	
==>C<$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6439	6538	
==>C<$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1057	1160	
==>e unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1057	1160	
==>e unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1354	1451	
==>) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'ne <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1354	1451	
==>) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'ne <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5927	6043	
==>nite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    metho <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5927	6043	
==>nite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    metho <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	530	629	
==>tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	588	687	
==>tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1175	1314	
==>DE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	401	511	
==>ct     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	401	511	
==>ct     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	401	511	
==>ct     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ---------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	954	1061	
==>.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	954	1061	
==>.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	954	1061	
==>.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	687	776	
==>ue is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::Undefin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1520	1619	
==>-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1520	1619	
==>-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1520	1619	
==>-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5547	5674	
==>/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5547	5674	
==>/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28220	28335	
==>re_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28499	28614	
==>re_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18806	18912	
==>a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The D <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18806	18912	
==>a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The D <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7757	7862	
==>ent<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7757	7862	
==>ent<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16873	17011	
==>->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
);

=pod

method BUILDALL (opaque $self: hash %params) returns ni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5932	6028	
==>bj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5932	6028	
==>bj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5932	6028	
==>bj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1864	2017	
==>se = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = can <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1864	2017	
==>se = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = can <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2581	2710	
==>se = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = can <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2581	2710	
==>se = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21637	21784	
==>class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21637	21784	
==>class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21637	21784	
==>class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @cla <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6590	6702	
==>ringify>;
        %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global  stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8704	8839	
==>->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8704	8839	
==>->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8704	8839	
==>->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23869	23956	
==>_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,[] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11659	11789	
==>Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3864	3977	
==>lf->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3864	3977	
==>lf->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3864	3977	
==>lf->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2612	2722	
==>e))
                || confess "got the wrong type for " . $param->to_str->to_native . " got($arg) -> expected( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9414	9503	
==>ire_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9414	9503	
==>ire_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9414	9503	
==>ire_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2866	2995	
==>.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => - <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2866	2995	
==>.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => - <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5762	5861	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4892	4991	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5762	5861	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4892	4991	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12262	12420	
==>cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12262	12420	
==>cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12262	12420	
==>cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33113	33211	
==>the source (!).

=head2 bol

Family: anchor

Types: bol (C<^>), sbol (C<^> with C</s> on, C<\A>), m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8795	8921	
==>$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8783	8909	
==>$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5404	5500	
==>ne as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5404	5500	
==>ne as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which e <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	343	451	
==>nt $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	253	357	
==>Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	253	357	
==>Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	253	357	
==>Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4750	4852	
==>itch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4750	4852	
==>itch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4750	4852	
==>itch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1838	1940	
==>print "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) };
    $run <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9751	9858	
==>_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9751	9858	
==>_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9751	9858	
==>_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumf <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39617	39715	
==>---
## now build Object, so we can create something here

$::Object = $::Class->send('new');

$::Ob <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16475	16708	
==>\n";

                my $h = $sobj->look_down( _tag  => 'div', 
                                          class => qr/^h\d$/,
                                          name  => $heading_re);
                
                unless ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8723	8879	
==>ibute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8723	8879	
==>ibute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8723	8879	
==>ibute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1294	1388	
==>er follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constan <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40978	41070	
==>on.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40978	41070	
==>on.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7372	7487	
==>S->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenC <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5964	6079	
==>=> 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7372	7487	
==>S->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7372	7487	
==>S->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6151	6290	
==>ibute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6151	6290	
==>ibute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6151	6290	
==>ibute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1070	1185	
==>,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1070	1185	
==>,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extract <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13210	13323	
==>tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the data <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13210	13323	
==>tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the data <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12802	12959	
==>apture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unsh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13081	13238	
==>apture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unsh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19189	19286	
==>y other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

O <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19189	19286	
==>y other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7131	7219	
==>ttr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7131	7219	
==>ttr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7131	7219	
==>ttr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9036	9145	
==>) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9036	9145	
==>) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9036	9145	
==>) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	302	401	
==>w.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	302	401	
==>w.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	302	401	
==>w.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4447	4536	
==>me for Point3D');
is($p3d->prototype->prototype->class, \&Object, '... go the right super- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1922	2027	
==>e a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1922	2027	
==>e a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1922	2027	
==>e a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TO <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1644	1745	
==>::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->positio <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	867	977	
==>type and ref $type eq 'ARRAY' and @$type == 1){
			$type = $type->[1];
		}

		return $type;
	}

	package Blondi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3611	3707	
==>ithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce S <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3611	3707	
==>ithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4128	4303	
==>close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4128	4303	
==>close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39239	39326	
==>item C<product (Relation::Example $other!) returns Relation::Example>

This multi-method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	298	405	
==>pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	298	405	
==>pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	298	405	
==>pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5961	6080	
==>'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::// <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5961	6080	
==>'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::// <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5961	6080	
==>'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*::// <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4444	4557	
==>hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "inte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4444	4557	
==>hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "inte <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1184	1279	
==>tr $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1184	1279	
==>tr $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4486	4593	
==>$TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3528	3619	
==>> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3528	3619	
==>> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3528	3619	
==>> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_sl <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2920	3026	
==>you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3077	3183	
==>you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2920	3026	
==>you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3077	3183	
==>you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28792	28906	
==>can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_G <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28792	28906	
==>can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_G <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3266	3401	
==>"Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3266	3401	
==>"Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3266	3401	
==>"Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	190	286	
==>odel, except perhaps to express sub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10715	10841	
==>od;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10715	10841	
==>od;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10715	10841	
==>od;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    met <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30819	30916	
==>s
exist.  Andreas Koenig held the torch for many years, and then
Michael G Schwern.

Current maint <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8294	8395	
==>fy }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8294	8395	
==>fy }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22095	22192	
==>g representation of the regex.

=item len

The length of the original string representation of the <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1348	1440	
==>s $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15193	15294	
==>turn $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15193	15294	
==>turn $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6793	6895	
==><status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

P <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6793	6895	
==><status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8990	9092	
==><status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1757	1851	
==>bstr($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19769	19875	
==>ck} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tree- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	853	950	
==>ll (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	853	950	
==>ll (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	853	950	
==>ll (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	872	1024	
==>temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$config{'bin_dir'}          = [ $Config{bin}            => SUBDIR_OF_ROOT ];
$config{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3313	3407	
==>ent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3313	3407	
==>ent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3313	3407	
==>ent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14947	15041	
==>e core of the
Rosetta framework and defines a common programmatic interface (API), called
the R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14947	15041	
==>e core of the
Rosetta framework and defines a common programmatic interface (API), called
the R <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4219	4306	
==>t distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4219	4306	
==>t distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2272	2362	
==>JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2272	2362	
==>JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2272	2362	
==>JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5155	5268	
==>stanceof'>
    | <'typeof'>
}
rule FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13801	13894	
==>-z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13801	13894	
==>-z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13801	13894	
==>-z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	372	536	
==>ll::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << "." <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33045	33135	
==>urce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37595	37685	
==>urce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36939	37029	
==>urce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4931	5047	
==>or keys %$failedtests), 
           q{ok status jives with $failedtests});

    return $ok;
}

=begin _private

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2949	3050	
==>pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2949	3050	
==>pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2949	3050	
==>pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10542	10672	
==>'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $pa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10542	10672	
==>'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16214	16316	
==>le.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16214	16316	
==>le.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13201	13327	
==>turn _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1029	1134	
==>alue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1029	1134	
==>alue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1029	1134	
==>alue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1317	1418	
==>tcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1317	1418	
==>tcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1317	1418	
==>tcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SEL <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	897	987	
==>etting.)
</p>
<p>
To update this listing, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5420	5680	
==>}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8897	9157	
==>}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13066	13168	
==>ndle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13066	13168	
==>ndle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12187	12466	
==>on', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12187	12466	
==>on', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3731	3878	
==>ed $got || defined $isnt;
    }
    else {
        $pass = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it should not be ". <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	92	194	
==>~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusammen: (änlich wie any)
$s ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21288	21383	
==>ce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21288	21383	
==>ce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21288	21383	
==>ce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4753	4841	
==>6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_new('Str',@_)}
sub p6_Ref { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4122	4232	
==>as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3977	4085	
==>as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	658	757	
==>ub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differen <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	658	757	
==>ub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3973	4100	
==>{ 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5294	5421	
==>{ 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3973	4100	
==>{ 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5282	5409	
==>{ 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12045	12142	
==>t2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9166	9263	
==>t2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12045	12142	
==>t2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9166	9263	
==>t2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30689	30893	
==>]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30689	30893	
==>]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30689	30893	
==>]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9729	9866	
==>7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5221	5357	
==>ew( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6489	6625	
==>ew( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5221	5357	
==>ew( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6477	6613	
==>ew( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10792	10944	
==>new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 D <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10792	10944	
==>new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 D <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5579	5676	
==>ll very unstable, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13680	13775	
==>ispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13680	13775	
==>ispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13680	13775	
==>ispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}} <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	815	904	
==>--------------------
# Regexps
# --------------------------------------------------



our <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	699	804	
==>b literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	699	804	
==>b literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remai <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	678	763	
==>-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authori <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	678	763	
==>-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authori <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11699	11883	
==>ringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11699	11883	
==>ringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11699	11883	
==>ringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                d <==
4	/Users/nnunley/pugs/util/claim_drift.pl	623	735	
==>el of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    exit 1;
}

for my $orig <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5216	5334	
==>ch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6484	6602	
==>ch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5216	5334	
==>ch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6472	6590	
==>ch->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	118	255	
==>ords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $nam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	118	255	
==>ords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $nam <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	473	602	
==>gs
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e. <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	473	602	
==>gs
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19562	19655	
==>ickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18543	18636	
==>ickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19562	19655	
==>ickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18543	18636	
==>ickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specified <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	152	253	
==>wtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $c <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	152	253	
==>wtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20704	20796	
==>arious methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20704	20796	
==>arious methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1365	1463	
==>Rat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1365	1463	
==>Rat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1365	1463	
==>Rat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9321	9443	
==>ay $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9321	9443	
==>ay $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9321	9443	
==>ay $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26618	26721	
==>$self->{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minmod;
  push @ISA, qw <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25322	25422	
==>lechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24086	24186	
==>lechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25322	25422	
==>lechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24086	24186	
==>lechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	897	1004	
==>ub emit {
	my $self = shift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28809	28904	
==>tribute names, or duplicate any other value set members.  This
method supports having the new at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33361	33456	
==>tribute names, or duplicate any other value set members.  This
method supports having the new at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32498	32593	
==>tribute names, or duplicate any other value set members.  This
method supports having the new at <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2631	2747	
==>f !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'A <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7725	7841	
==>f !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'A <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2631	2747	
==>f !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'A <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7725	7841	
==>f !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'A <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1617	1722	
==>, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be sy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2265	2370	
==>, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14584	14694	
==>s::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9224	9333	
==>se?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	764	868	
==>s_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	764	868	
==>s_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	764	868	
==>s_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15615	15751	
==>/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packag <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15615	15751	
==>/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packag <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15615	15751	
==>/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packag <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9308	9415	
==>@derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $sheban <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	334	444	
==>$self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9752	9862	
==>$self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27492	27588	
==>he new attributes, and
the values provide values applied to each tuple.  The new Relation has all <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32044	32140	
==>he new attributes, and
the values provide values applied to each tuple.  The new Relation has all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17528	17621	
==>> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17528	17621	
==>> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17528	17621	
==>> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4182	4270	
==>!.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> "+? <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11738	11864	
==>dle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = rea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11738	11864	
==>dle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	227	339	
==>fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	227	339	
==>fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	227	339	
==>fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2856	2967	
==>ethod previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2856	2967	
==>ethod previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1480	1572	
==><public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler match <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1480	1572	
==><public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37946	38072	
==>nding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37946	38072	
==>nding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37946	38072	
==>nding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # wa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3091	3204	
==>n't this work?
    # this is here just because of an icky pugsbug.
    #my %idx = <package file line subname subty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3733	3841	
==>p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3733	3841	
==>p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3733	3841	
==>p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4806	4954	
==>*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4806	4954	
==>*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1155	1283	
==>om  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1155	1283	
==>om  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1289	1398	
==>returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1289	1398	
==>returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15413	15529	
==>\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
    my $blank = (' ' x 77);
    my $leader = "$te" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7767	7864	
==>Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	12	101	
==>Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	12	101	
==>Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20302	20411	
==>el, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20302	20411	
==>el, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20302	20411	
==>el, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	594	715	
==>age Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1561	1667	
==>put[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1561	1667	
==>put[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1561	1667	
==>put[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2488	2592	
==>pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2488	2592	
==>pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2488	2592	
==>pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = j <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14887	14999	
==>t.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14887	14999	
==>t.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14887	14999	
==>t.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@res <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3231	3343	
==>t.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@res <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11649	11744	
==>rrence )`

Returns true if this recurrence intersects (has any element in common) with the given <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	454	549	
==>ion) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: metho <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11649	11744	
==>rrence )`

Returns true if this recurrence intersects (has any element in common) with the given <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	454	549	
==>ion) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30160	30255	
==>he specific type of this object.  See the object's documentation for
possible values for its typ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1670	1788	
==>ning: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $exp) {
      warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8380	8487	
==>me" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8380	8487	
==>me" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8380	8487	
==>me" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5622	5742	
==>claration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5622	5742	
==>claration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5622	5742	
==>claration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6149	6267	
==>f $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18770	18865	
==>ample C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> its <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18770	18865	
==>ample C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> its <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4022	4102	
==>[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*107 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4022	4102	
==>[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*107 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38573	38707	
==>reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38573	38707	
==>reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38573	38707	
==>reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return P <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5453	5576	
==>_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5007	5129	
==>{
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5007	5129	
==>{
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5007	5129	
==>{
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4618	4716	
==>que {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	139	277	
==>ct ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	139	277	
==>ct ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	139	277	
==>ct ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1143	1238	
==>als::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29899	29990	
==>t supports having old tuple-valued attributes which
have zero attributes (they just vanish). <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34451	34542	
==>t supports having old tuple-valued attributes which
have zero attributes (they just vanish). <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33615	33706	
==>t supports having old tuple-valued attributes which
have zero attributes (they just vanish). <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14069	14175	
==>}

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17546	17652	
==>}

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12124	12210	
==>->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12124	12210	
==>->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	266	369	
==>= .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_bl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	266	369	
==>= .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	210	301	
==>g-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot. <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	363	454	
==>g-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15202	15343	
==>{
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub raw {
    my $self = shift;
    j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29053	29152	
==>ner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29053	29152	
==>ner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29053	29152	
==>ner::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Pe <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	650	763	
==>@args);
if ($rv == 0) {
    if ($prompt_register) {
        print << ".";
*** Installed!  If you would like to mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	668	770	
==>ass' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	668	770	
==>ass' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	668	770	
==>ass' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1286	1405	
==>ce->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bless <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1286	1405	
==>ce->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bless <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1286	1405	
==>ce->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bless <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9947	10061	
==>s again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pkg->prefix, $inst_pkg->na <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1567	1691	
==>e last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Sign <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1567	1691	
==>e last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Sign <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11889	11987	
==>r the same field are retained.

As for the header() method, the field name ($field) is not case
sen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11889	11987	
==>r the same field are retained.

As for the header() method, the field name ($field) is not case
sen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1465	1614	
==>esting alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1807	1952	
==>esting alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1414	1559	
==>esting alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1807	1952	
==>esting alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5183	5335	
==>ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	668	794	
==>x = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2633	2745	
==>==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2633	2745	
==>==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2633	2745	
==>==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # unde <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3326	3447	
==>ctions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3337	3458	
==>ctions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refe <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	50	150	
==>for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%n <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	50	150	
==>for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%n <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7670	7789	
==>660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7670	7789	
==>660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10071	10181	
==>AME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10071	10181	
==>AME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1133	1241	
==>ngest match for tokens (putter on #perl6)

    # update: <%var> does longest match based on the keys length() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1483	1590	
==>ngest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1090	1197	
==>ngest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1483	1590	
==>ngest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7080	7217	
==>ift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7080	7217	
==>ift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7080	7217	
==>ift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4929	5027	
==>RIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you c <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4929	5027	
==>RIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17633	17728	
==>setta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/pre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17633	17728	
==>setta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/pre <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3047	3162	
==>py' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a- <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3047	3162	
==>py' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	589	698	
==>array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	589	698	
==>array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}- <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4954	5104	
==>end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stri <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4954	5104	
==>end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4534	4641	
==>o rxmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2148	2317	
==>sh_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2242	2349	
==>$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2242	2349	
==>$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2242	2349	
==>$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !define <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20061	20156	
==>r PIL2JS!";
}
our &PIL2JS::Internals::use_perl5_module_noimp := &PIL2JS::Internals::use_perl5_mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16799	16979	
==>=>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16799	16979	
==>=>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16799	16979	
==>=>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->e <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11130	11262	
==>s the closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20411	20508	
==>te machine (aka syntax charts or "railroad normal form" in
parsing technology).  Each node is an o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11833	11943	
==>nk
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11827	11937	
==>nk
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4352	4456	
==>= [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4352	4456	
==>= [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5110	5223	
==>.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5110	5223	
==>.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5110	5223	
==>.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XX <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1634	1727	
==>n_value->isa($self->{sig}->returns) || $return_value->isa('nil')))
        || confess "bad ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10502	10628	
==>);
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10502	10628	
==>);
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	335	449	
==>ig;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	236	350	
==>ig;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	322	449	
==>$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	322	449	
==>$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2726	2809	
==><http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news. <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2726	2809	
==><http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7748	7872	
==>' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret). <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7748	7872	
==>' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret). <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7748	7872	
==>' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret). <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	279	391	
==>ix=$/, @ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6958	7134	
==>ams' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6958	7134	
==>ams' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6958	7134	
==>ams' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1111	1205	
==>terface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to_level(1,@_);
}

su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2546	2656	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_H <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2546	2656	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_H <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13858	13963	
==>save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13858	13963	
==>save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9921	10053	
==>6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7861	7993	
==>6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9921	10053	
==>6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7861	7993	
==>6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2 <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	650	818	
==>r =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	650	818	
==>r =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12758	12855	
==>of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `d <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12816	12913	
==>of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4189	4312	
==>n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { retur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4189	4312	
==>n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2228	2325	
==>nal packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Ye <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2228	2325	
==>nal packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Ye <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2692	2818	
==>$v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2692	2818	
==>$v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2692	2818	
==>$v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1628	1743	
==>::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2431	2530	
==>}
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2431	2530	
==>}
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2431	2530	
==>}
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1312	1406	
==>t((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1312	1406	
==>t((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1312	1406	
==>t((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2179	2291	
==>f_char => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a word boundary)
  $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3641	3739	
==>' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3641	3739	
==>' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3641	3739	
==>' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5493	5623	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterato <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10463	10593	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterato <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5493	5623	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterato <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10463	10593	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterato <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3750	3891	
==>^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5067	5208	
==>^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3750	3891	
==>^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5055	5196	
==>^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2823	2930	
==>'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2811	2918	
==>'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless def <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1691	1784	
==>t caveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1691	1784	
==>t caveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1923	2026	
==>sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.joi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1923	2026	
==>sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.joi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2003	2106	
==>sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2596	2694	
==>each my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	592	690	
==>LaxAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) and $^n ne $EMPTY_STR)
};

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2596	2694	
==>each my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2596	2694	
==>each my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3394	3503	
==>e,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3394	3503	
==>e,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4115	4231	
==>field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with emb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4115	4231	
==>field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with emb <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4247	4335	
==>Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" packag <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4247	4335	
==>Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	463	567	
==>bjects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3437	3541	
==>ub define_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return $body;
}

sub define_liter <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	463	567	
==>bjects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	463	567	
==>bjects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of e <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	22	121	
==>s NameSpace--Perl6;

# publicly exported methods
has Code--Perl6 %.methods;

# private use methods
h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3860	4022	
==>re too
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->compile_dir . q[ -xz] );

            ### preinst hook
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10382	10505	
==>ILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2403	2514	
==>ILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2403	2514	
==>ILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17457	17563	
==>rn $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17457	17563	
==>rn $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2008	2107	
==>ethod union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2008	2107	
==>ethod union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14303	14463	
==>e($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14303	14463	
==>e($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14303	14463	
==>e($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7992	8100	
==>ex->{_dirs}};    

    my @files = (exists $index->{_files} ? sort @{$index->{_files}} : ());
    my $templat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14147	14345	
==>nd" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14147	14345	
==>nd" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14147	14345	
==>nd" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4245	4336	
==>You can use the
skeleton in util/smoker-example. Alternatively, say "--anonymous"
on the com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6665	6800	
==>tead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6665	6800	
==>tead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6665	6800	
==>tead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _(' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8677	8780	
==>pe::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	569	704	
==>= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7213	7313	
==>pported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7213	7313	
==>pported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7213	7313	
==>pported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3446	3555	
==>t "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4261	4364	
==>lf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4261	4364	
==>lf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4261	4364	
==>lf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	993	1093	
==>self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $s <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	993	1093	
==>self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10131	10228	
==>Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10131	10228	
==>Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7980	8122	
==>o_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7980	8122	
==>o_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7980	8122	
==>o_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	754	918	
==>text.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	754	918	
==>text.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	754	918	
==>text.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2733	2848	
==>H' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7827	7942	
==>H' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2733	2848	
==>H' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7827	7942	
==>H' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	732	848	
==>escendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	732	848	
==>escendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	732	848	
==>escendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	564	659	
==>y ( $class, $rule_source, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	322	439	
==>str($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $po <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	322	439	
==>str($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $po <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2955	3058	
==>object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	986	1089	
==>object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6362	6490	
==>se {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6362	6490	
==>se {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6362	6490	
==>se {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1602	1697	
==>.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1602	1697	
==>.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1602	1697	
==>.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32205	32344	
==>e_descendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14972	15067	
==>so be accessed through the
following convenience methods.  These methods can both be used to rea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14972	15067	
==>so be accessed through the
following convenience methods.  These methods can both be used to rea <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3807	3914	
==>urrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3807	3914	
==>urrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $sp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13268	13355	
==>g, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13268	13355	
==>g, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1150	1263	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1355	1468	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1416	1529	
==>ub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12903	13065	
==>);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12903	13065	
==>);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12903	13065	
==>);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36574	36667	
==>ce of two objects; first: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3123	3272	
==>thod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($respon <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3123	3272	
==>thod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($respon <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14517	14655	
==>erson.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Clos <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14517	14655	
==>erson.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Clos <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3307	3409	
==>me keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6784	6886	
==>me keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5741	5843	
==>me keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1406	1507	
==>"new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1406	1507	
==>"new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1406	1507	
==>"new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8481	8567	
==>o unified recursively
multi unify => ('type::operator::binary', 'type::operator::binary <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1819	1939	
==>_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1819	1939	
==>_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6830	6931	
==>1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2* <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7202	7303	
==>1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2* <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3739	3833	
==>nes of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@w <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3739	3833	
==>nes of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1717	1868	
==>) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1717	1868	
==>) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10361	10449	
==>2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11096	11184	
==>2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8273	8418	
==>|| "../");
    $template->param(directory => $path);
    $template->param(directories => [ map { { 
                                            ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14730	14832	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14730	14832	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14730	14832	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15137	15228	
==>gine" back-ends (usually provided by third
parties) implement.  This interface is rigorously <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2670	2761	
==>y somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.de <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15137	15228	
==>gine" back-ends (usually provided by third
parties) implement.  This interface is rigorously <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2670	2761	
==>y somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2797	2915	
==>ty++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_requ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2797	2915	
==>ty++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_requ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2797	2915	
==>ty++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_requ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	48	151	
==>CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	523	690	
==>( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	438	605	
==>( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	526	693	
==>( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) e <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	922	1034	
==>ns Meta::Class {

    $.name = $name;
    return $?SELF;

}

# takes the object and "builds" it into a class
meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	675	781	
==>a fields accessors for all the fields in the file
    ### so we can have other accessors for other meta dat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1159	1265	
==>a fields accessors for all the fields in the file
    ### so we can have other accessors for other meta dat <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3543	3637	
==>nd memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionali <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3543	3637	
==>nd memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionali <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	545	680	
==>6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_as_str
       p6_as_array
       p6_as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22135	22250	
==>));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22135	22250	
==>));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22135	22250	
==>));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7013	7124	
==>L::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::gen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7013	7124	
==>L::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::gen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7013	7124	
==>L::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::gen <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36587	36680	
==>ere's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9022	9209	
==>l6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()' <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9022	9209	
==>l6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5813	5947	
==>(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_r <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5813	5947	
==>(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5432	5599	
==>e' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5432	5599	
==>e' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5432	5599	
==>e' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2947	3082	
==>= %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=hea <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2947	3082	
==>= %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	99	199	
==>-----------------------------------------------------
## Mini Meta-Model with Self-Bootstrapping Role <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	203	295	
==>essage::Simple qw(:STD);

=head1 METHODS

=head2 $repo = JIB::Repository->new(...);

Required <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4380	4495	
==>F
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4380	4495	
==>F
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4380	4495	
==>F
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1125	1235	
==>)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) for 1..40},
        P5_regex_x1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9867	10013	
==>@param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9867	10013	
==>@param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9867	10013	
==>@param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2255	2396	
==>}
# signature from S29draft.pod 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2046	2134	
==>$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2046	2134	
==>$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2046	2134	
==>$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3328	3441	
==>ram<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defin <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3328	3441	
==>ram<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9325	9432	
==>=> ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	962	1045	
==>ompile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=(<term <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2673	2797	
==>oxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2673	2797	
==>oxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2673	2797	
==>oxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(k <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	122	226	
==>>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, 'foo'); # $a.circumfix:«{ } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1648	1754	
==>ir( dir => '/some/dir' );

Removes a directory completely, even if it is non-empty.

Returns true on succes <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12327	12416	
==>w.nntp.perl.org/group/perl.perl6.language/16578> for more
details and examples.



=item z <==
4	/Users/nnunley/pugs/util/build_pugs.pl	890	993	
==>opts->{GEN_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELU <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23968	24060	
==>object, whose Heading and
Body attributes are set respectively from the optional named parame <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28520	28612	
==>object, whose Heading and
Body attributes are set respectively from the optional named parame <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13977	14082	
==>ttribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13977	14082	
==>ttribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13977	14082	
==>ttribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.ad <==
4	/Users/nnunley/pugs/util/fixauthors.pl	513	612	
==>ealname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$uid");
  my $tree=HTML::Tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10035	10192	
==>= @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10035	10192	
==>= @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10035	10192	
==>= @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16497	16595	
==>_from_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11565	11662	
==>ed item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of element <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8712	8809	
==>ed item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of element <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11565	11662	
==>ed item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of element <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8712	8809	
==>ed item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of element <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3495	3601	
==>|| 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_nam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3495	3601	
==>|| 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_nam <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2555	2659	
==>o plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2555	2659	
==>o plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2926	3020	
==>elete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2926	3020	
==>elete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2926	3020	
==>elete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8165	8366	
==>d = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8165	8366	
==>d = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8165	8366	
==>d = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub f <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8143	8226	
==>tml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<h <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	109	204	
==>duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a da <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27578	27673	
==>ion has all
of the tuples of the original (or rather, the corresponding extension of
each tuple) <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	109	204	
==>duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a da <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32130	32225	
==>ion has all
of the tuples of the original (or rather, the corresponding extension of
each tuple) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6030	6146	
==>O, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're prepari <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6088	6204	
==>O, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're prepari <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20067	20153	
==>t_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<la <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20067	20153	
==>t_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7531	7662	
==>'$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7531	7662	
==>'$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7531	7662	
==>'$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3525	3653	
==>n perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	939	1067	
==>);
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	939	1067	
==>);
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	939	1067	
==>);
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1602	1698	
==>to use
those modules.

Test::Harness runs tests and expects output from the test in a
certain for <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	11	106	
==>e HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	11	106	
==>e HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	185	302	
==>os;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	185	302	
==>os;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	185	302	
==>os;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7483	7598	
==>E

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7483	7598	
==>E

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the se <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2812	2911	
==>C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if t <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2812	2911	
==>C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5922	6020	
==>ion( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store some <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5922	6020	
==>ion( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store some <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19381	19476	
==>ant to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19381	19476	
==>ant to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8696	8792	
==>^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	429	525	
==>^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8696	8792	
==>^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8696	8792	
==>^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2138	2260	
==>pture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$rema <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1411	1531	
==>rk
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô', <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1411	1531	
==>rk
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô', <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2055	2171	
==>pture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$rema <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1599	1707	
==>has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2261	2369	
==>has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1789	1884	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1789	1884	
==>n/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17050	17180	
==>1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13471	13601	
==>1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2698	2802	
==>f: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method strin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2698	2802	
==>f: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method strin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4430	4611	
==>$val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push( <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4814	4917	
==>$a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12327	12427	
==>e>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behav <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12327	12427	
==>e>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behav <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4683	4798	
==>$two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersec <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3810	3925	
==>$two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersec <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4683	4798	
==>$two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersec <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3810	3925	
==>$two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1280	1423	
==>'
        unless defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return _mangle_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1240	1334	
==>olumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1240	1334	
==>olumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1240	1334	
==>olumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21975	22089	
==>ostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<fro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20856	20970	
==>ostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<fro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21975	22089	
==>ostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<fro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20856	20970	
==>ostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<fro <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3983	4084	
==>ck($node, $symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $body) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2857	2954	
==>Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2857	2954	
==>Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2857	2954	
==>Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16059	16281	
==>st', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16338	16560	
==>st', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9457	9545	
==>ame!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9457	9545	
==>ame!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9288	9426	
==>{ $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9288	9426	
==>{ $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9288	9426	
==>{ $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34349	34444	
==>lnum
(C<\w>, C<\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, spac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1374	1475	
==>= qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1374	1475	
==>= qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1374	1475	
==>= qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  ou <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20882	20995	
==>rs>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19799	19912	
==>rs>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20882	20995	
==>rs>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19799	19912	
==>rs>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23162	23262	
==>y reference to the 'open' nodes.

=item flags

An array reference of flag values.  When a scope is en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6098	6185	
==>ccess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6098	6185	
==>ccess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6098	6185	
==>ccess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1161	1261	
==>l work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1161	1261	
==>l work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1161	1261	
==>l work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20423	20517	
==>F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E0,E0) :- flag_m(E0), !. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	124	228	
==>_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	182	286	
==>_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	810	906	
==>lass Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	810	906	
==>lass Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS cla <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1396	1529	
==>uperclasses')) 
        if $supers->is_empty == $bit::TRUE;    
        
    push @classes => $supers->to_native;    
        
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2558	2666	
==>(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2558	2666	
==>(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2558	2666	
==>(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	136	268	
==>) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = . <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	136	268	
==>) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = . <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10045	10145	
==>> 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor argume <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10045	10145	
==>> 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor argume <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6980	7111	
==>s = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6980	7111	
==>s = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6980	7111	
==>s = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10503	10606	
==>))) keys)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_method_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1928	2025	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1928	2025	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1928	2025	
==>& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, un <==
4	/Users/nnunley/pugs/util/version_h.pl	1880	1977	
==>ned a new file ($version_h) without turning
  # "io" warnings off, perl will print "Filehandle STD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5042	5237	
==>ry;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5042	5237	
==>ry;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5042	5237	
==>ry;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14162	14330	
==>{
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing mu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14162	14330	
==>{
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing mu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14162	14330	
==>{
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing mu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10367	10482	
==>err=unix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10082	10218	
==>zy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10082	10218	
==>zy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10082	10218	
==>zy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	644	774	
==>($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed';
        $msg .= " - '$name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4001	4101	
==>\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4001	4101	
==>\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4001	4101	
==>\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2121	2248	
==>nd> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2121	2248	
==>nd> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	446	547	
==>change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	446	547	
==>change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20508	20725	
==>elf->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20508	20725	
==>elf->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20508	20725	
==>elf->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shif <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13700	13802	
==>ule CallExpression :words {  # see 11.2
      <MemberExpression> <Arguments>
    | <CallExpression> <Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2609	2724	
==>n $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan becaus <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	374	479	
==>n $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan becaus <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	374	479	
==>n $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan becaus <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10545	10642	
==>e_args .= "'\$.name'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code_params,";
    $co <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2132	2230	
==>ding any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capita <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2132	2230	
==>ding any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capita <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5051	5148	
==>=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Ba <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5051	5148	
==>=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Ba <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15109	15209	
==>age it uses)
will need to display a message to the user, or generate a message to be
shown to the use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15109	15209	
==>age it uses)
will need to display a message to the user, or generate a message to be
shown to the use <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2593	2689	
==>n only source representation.

=back

=head1 API METHODS

These methods must be implemented by su <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2593	2689	
==>n only source representation.

=back

=head1 API METHODS

These methods must be implemented by su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21102	21197	
==>.};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21102	21197	
==>.};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21102	21197	
==>.};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3	107	
==>X/Common/iterator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debuggin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3	102	
==>X/Common/iterator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debuggin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	33	131	
==>X/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debuggin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	33	131	
==>X/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debuggin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15400	15502	
==>ach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_tabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15400	15502	
==>ach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_tabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15400	15502	
==>ach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_tabl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22778	22873	
==>fined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 PMf <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7601	7703	
==>limiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature from S29draft.pod 8655.  In the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5370	5465	
==>cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5370	5465	
==>cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5370	5465	
==>cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9466	9624	
==>Config{_exe}$}
            ) {

                # Smells like a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1906	1997	
==>rintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1906	1997	
==>rintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1906	1997	
==>rintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	901	1009	
==>attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	901	1009	
==>attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	901	1009	
==>attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data st <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22654	22760	
==>or_here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14380	14526	
==>= $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14380	14526	
==>= $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9968	10062	
==>g is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns S <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9968	10062	
==>g is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3606	3740	
==>. $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3606	3740	
==>. $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3606	3740	
==>. $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	934	1041	
==>lf.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	934	1041	
==>lf.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($ <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1556	1649	
==>it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line sh <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1396	1489	
==>it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line sh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	945	1065	
==>d {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side mus <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	354	468	
==>ugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1143	1257	
==>ugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #pr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5603	5708	
==>must set '$name' to a native type";
    $self->{env}->{$name} = reference->new($value);      
}

sub set { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7601	7721	
==>id {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_ord <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7601	7721	
==>id {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_ord <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18671	18765	
==>nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $docu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18671	18765	
==>nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $docu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13124	13239	
==>Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13124	13239	
==>Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13124	13239	
==>Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	101	195	
==>:DynamicScoping/;

use strict;
use warnings;

use UNIVERSAL::moniker;
use String::Escape qw/quo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5736	5907	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5736	5907	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5736	5907	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4510	4622	
==>l_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Per <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	70	181	
==>ix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	288	386	
==>s then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	288	386	
==>s then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	288	386	
==>s then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1097	1192	
==>$a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1097	1192	
==>$a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1097	1192	
==>$a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXS <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12477	12580	
==>ciated with a new type variable)
# this new env is passed down to the body, but is also reused in the 't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1528	1625	
==>lessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1528	1625	
==>lessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1528	1625	
==>lessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:privat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1445	1561	
==>ion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1445	1561	
==>ion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1445	1561	
==>ion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1058	1154	
==>e::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSaf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	497	651	
==>(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	497	651	
==>(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	497	651	
==>(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else <==
4	/Users/nnunley/pugs/util/package-osx.pl	9349	9481	
==>$curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn und <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34146	34239	
==>ation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38696	38789	
==>ation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38157	38250	
==>ation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	956	1103	
==>STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	956	1103	
==>STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	956	1103	
==>STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13248	13342	
==>to broken (no compiler) microsoft systems.

  The implementation reaches into perlguts, which l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10021	10130	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10021	10130	
==>!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'A <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2162	2270	
==>n;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $arg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2140	2248	
==>n;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $arg <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1767	1879	
==>gure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sy <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1767	1879	
==>gure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sy <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8412	8512	
==>X does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user na <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8412	8512	
==>X does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9002	9107	
==>I SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9002	9107	
==>I SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9002	9107	
==>I SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@x <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1688	1784	
==>->makemaker_args->{INST_BIN} =
      File::Spec->catfile($path, "bin");
    $self->makemaker_args <==
4	/Users/nnunley/pugs/util/package-osx.pl	8117	8214	
==>n3/Perl6::Spec::Rule.3pm
        /usr/local/man/man3/Perl6::Spec::Structure.3pm
        /usr/local <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8984	9112	
==>alue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8984	9112	
==>alue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8984	9112	
==>alue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3441	3532	
==>al">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3625	3716	
==>al">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	619	703	
==>---------------------------------------------------------------------
## private meth <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	619	703	
==>---------------------------------------------------------------------
## private meth <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13100	13197	
==>.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemente <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13158	13255	
==>.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemente <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	80	170	
==>*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	80	170	
==>*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	689	799	
==>} );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	689	799	
==>} );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2557	2657	
==>ule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2697	2797	
==>ule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1689	1780	
==>\&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1689	1780	
==>\&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1689	1780	
==>\&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48437	48523	
==>->send('superclasses' => list->new($::Package));


$::Module->send('add_attribute', (sy <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10989	11097	
==>nd process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10989	11097	
==>nd process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hac <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4897	4994	
==>Cxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_L <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4897	4994	
==>Cxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_L <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1517	1624	
==>egex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1517	1624	
==>egex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3787	3887	
==>L::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3787	3887	
==>L::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Per <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16292	16400	
==>d },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16292	16400	
==>d },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @que <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	780	886	
==>ft (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2883	2985	
==>enerate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2883	2985	
==>enerate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_c <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	192	281	
==>rent;
has @!children;

## ---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	192	281	
==>rent;
has @!children;

## ---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11197	11329	
==>)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11197	11329	
==>)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	358	458	
==>() returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.st <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	358	458	
==>() returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.st <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4690	4799	
==>proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.g <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4748	4857	
==>proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.g <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4240	4364	
==>xpected";
    }
    unless ($pass) {
        # It seems Irix long doubles can have 2147483648 and 2147483648
        # that s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6839	6954	
==>POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6839	6954	
==>POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6839	6954	
==>POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	265	379	
==>ackage} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$struct->{package} -- $struct- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3909	3995	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3909	3995	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3909	3995	
==>ttp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on h <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10291	10387	
==>HODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8184	8280	
==>HODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10291	10387	
==>HODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8184	8280	
==>HODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2124	2262	
==>k, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _draw_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14616	14752	
==>';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    inst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14616	14752	
==>';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    inst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14616	14752	
==>';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    inst <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4600	4711	
==>p = $rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			my $expected = shif <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13207	13327	
==>_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eval $loc;
  warn "*** Unfortunately $path will n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10219	10325	
==>array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10219	10325	
==>array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10219	10325	
==>array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	24	126	
==>XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	24	126	
==>XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	24	126	
==>XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaS <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1958	2044	
==>_layout($$) }

type::operator::binary: parenthesize($$) = { $$->isa("type::operator::pa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23440	23530	
==>gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "... <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23440	23530	
==>gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "... <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36214	36302	
==>'MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36214	36302	
==>'MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3844	3961	
==>Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4177	4294	
==>Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3844	3961	
==>Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4177	4294	
==>Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3855	3956	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3855	3956	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3855	3956	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    clas <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	608	707	
==>perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    wh <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8040	8158	
==>e {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8098	8216	
==>e {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16137	16237	
==>tem in turn, and returns the last character
chopped.


=item chomp

 multi Str::chomp (  Str  $string <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1592	1707	
==>sh(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1602	1712	
==>sh(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1602	1712	
==>sh(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1602	1712	
==>sh(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6735	6892	
==>$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
}

=head2 JIB::Utils->_mode_plus_w( file => '/path/to/file' );

Sets th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7509	7662	
==>unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7509	7662	
==>unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7509	7662	
==>unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1025	1128	
==>uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1025	1128	
==>uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1025	1128	
==>uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12280	12371	
==>"num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_var name=failed></span> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	71	184	
==>xport {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	71	184	
==>xport {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5872	5970	
==>ased POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of devel <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5872	5970	
==>ased POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of devel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13111	13252	
==>ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9297	9438	
==>ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10133	10274	
==>ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast-> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	973	1086	
==>SELF;

}

# takes the object and "builds" it into a class
method apply {
    ...
}

# hmm, what do we need to test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4010	4106	
==>nction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4010	4106	
==>nction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "In <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4010	4106	
==>nction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "In <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22438	22565	
==>ngth($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	244	357	
==>_scalar { }


sub match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->add_handler('atom <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5209	5306	
==>."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5209	5306	
==>."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5209	5306	
==>."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2080	2182	
==>1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2080	2182	
==>1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2080	2182	
==>1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TOD <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	613	709	
==>t) {
  return(undef, $input);
}

sub End_of_Input($input) is exported(:all) {
  return defined($i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3629	3807	
==>t {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be porte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3629	3807	
==>t {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be porte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	529	630	
==>{${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	529	630	
==>{${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat { <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5318	5419	
==>}
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5376	5477	
==>}
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2009	2103	
==>y $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> libr <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2009	2103	
==>y $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> libr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1686	1784	
==>:Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Bas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1686	1784	
==>:Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Bas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1686	1784	
==>:Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::Bas <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17424	17509	
==>Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4440	4552	
==>ath);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4440	4552	
==>ath);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5301	5403	
==>ata = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configura <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5116	5214	
==>ata = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configura <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	343	445	
==>, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	343	445	
==>, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	343	445	
==>, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name}) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1970	2060	
==>thod export_attr_names of List of Relation::AttrName () {...}

proto method export_attr_typ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1037	1149	
==>f = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->wr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1928	2040	
==>f = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->wr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6846	6933	
==>x->isa("Blondie::TypeSafe::Type::Placeholder")) {
				return $self->types_eq($x->type, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10559	10723	
==>";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos+ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10559	10723	
==>";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos+ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10559	10723	
==>";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos+ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2197	2294	
==>r 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2197	2294	
==>r 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12902	12998	
==>ple field names then it is generally not
possible to tell which of the returned values belonged t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12902	12998	
==>ple field names then it is generally not
possible to tell which of the returned values belonged t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8733	8905	
==>lse {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string with a wanted package and an o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	123	223	
==>hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	123	223	
==>hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	123	223	
==>hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2478	2586	
==>.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2478	2586	
==>.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $s <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1924	2016	
==>ory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|ht <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1924	2016	
==>ory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|ht <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8350	8463	
==>ed.

=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test   --> Lazy )
 multi A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	276	377	
==>mal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	276	377	
==>mal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	276	377	
==>mal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15923	16064	
==>params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15923	16064	
==>params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15923	16064	
==>params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6420	6597	
==>$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6420	6597	
==>$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6420	6597	
==>$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #w <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4120	4249	
==>d_accum' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param->new(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	600	704	
==>ue')))
        || confess "Class must be an instance of reference";
    (blessed($attrs) && $attrs->isa(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6367	6466	
==>($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6367	6466	
==>($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6367	6466	
==>($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3598	3705	
==>lements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3598	3705	
==>lements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3598	3705	
==>lements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLI <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4878	4978	
==>sts = LoadFile("tests.yml");

# Reading and processing .t files
my $files = {}; # mapping from test-f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2650	2769	
==>orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2650	2769	
==>orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2650	2769	
==>orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2595	2703	
==>lf     = shift;
    my $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5788	5909	
==>my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5788	5909	
==>my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3406	3526	
==>c
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3406	3526	
==>c
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	449	560	
==>alse }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::False }

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	449	560	
==>alse }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::False }

method <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1461	1571	
==>alse }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1461	1571	
==>alse }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7438	7565	
==>594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "u <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7438	7565	
==>594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "u <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17085	17218	
==>ode = shift;

    our $indent ||= 0;
    local $indent = $indent + 1;
    
    our $seen;
    local $seen = $seen || {};

    if ($see <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6606	6710	
==>0|Inf|-Inf);
    my $Result4 = sign($Result1) * floor(abs($Result1));
    return $Result4;
}

# 9.5
multi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14336	14432	
==>e to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14336	14432	
==>e to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the heade <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4319	4441	
==>'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4170	4288	
==>'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/P <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	443	554	
==>b sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	443	554	
==>b sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22471	22590	
==>>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42260	42379	
==>>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1851	1950	
==>', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1851	1950	
==>', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2665	2771	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7759	7865	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2665	2771	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7759	7865	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $v <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17591	17720	
==>t->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header_handler,
    test => \&test_handler,
    bailout => \&bailout_han <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6064	6153	
==>doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requir <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6064	6153	
==>doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requir <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6064	6153	
==>doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18035	18180	
==>en => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3750	3858	
==>nce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3750	3858	
==>nce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3750	3858	
==>nce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2339	2473	
==>ters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3874	3983	
==>heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7351	7460	
==>heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6317	6426	
==>heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15490	15603	
==>@_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15490	15603	
==>@_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15490	15603	
==>@_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1139	1241	
==>GIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$c <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1161	1287	
==>!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5549	5642	
==>::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5549	5642	
==>::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5549	5642	
==>::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12884	12997	
==>c pos
  scan:
    if pos >= lastpos goto err_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	532	634	
==>e PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	532	634	
==>e PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	532	634	
==>e PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	8	104	
==>JIB::Meta;

use strict;
use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2124	2289	
==>h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2124	2289	
==>h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2124	2289	
==>h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js| <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4351	4442	
==>ht class name for Point3D');
is($p3d->prototype->class, \&Point, '... go the right superclas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	310	421	
==>s, $rule_source, $param ) = @_;
    my $self = { source => $rule_source };

    $self->{grammar}  = delete $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10241	10341	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10241	10341	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10241	10341	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1184	1322	
==>{ ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.stateme <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1184	1322	
==>{ ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.stateme <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3153	3253	
==>$data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3153	3253	
==>$data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8006	8186	
==>ap ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( S <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	917	1031	
==>ent, *@args) {
    # Push our callback on @:events.
    ./:enqueue({
      my $result = $session.dispatch($event, * <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15683	15775	
==>I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15741	15833	
==>I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6024	6143	
==>> 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9894	9984	
==>ounter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9894	9984	
==>ounter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9894	9984	
==>ounter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12008	12102	
==>Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9129	9223	
==>Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12008	12102	
==>Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9129	9223	
==>Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> a <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17043	17175	
==>t code of the test run, if from a file

  max               total tests which should have been run
  seen              total tests ac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3468	3573	
==>print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "O <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3468	3573	
==>print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "O <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3468	3573	
==>print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4449	4598	
==>def') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4449	4598	
==>def') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4449	4598	
==>def') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	63	175	
==>::Container::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	707	811	
==>s) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	765	869	
==>s) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## o <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1139	1240	
==>get 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" /> <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1139	1240	
==>get 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" /> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8033	8152	
==>[ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7759	7872	
==>[ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2890	2993	
==>t = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal err <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2890	2993	
==>t = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal err <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11611	11766	
==>\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11611	11766	
==>\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3370	3489	
==>e =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3370	3489	
==>e =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24975	25070	
==>ith other components is making a
combined work based on Rosetta.  Thus, the terms and conditions <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24975	25070	
==>ith other components is making a
combined work based on Rosetta.  Thus, the terms and conditions <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6233	6405	
==>@_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5741	5913	
==>@_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7311	7414	
==>}  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28865	28964	
==>sts=24, 2 wallclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F<prove> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	324	446	
==>-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print "Copying '$ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8208	8314	
==>ilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#========= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8208	8314	
==>ilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#========= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8208	8314	
==>ilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#========= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	287	386	
==>_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list conte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	287	386	
==>_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list conte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	287	386	
==>_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list conte <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2399	2497	
==>sts($name) == $bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") already <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10070	10240	
==>> 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10070	10240	
==>> 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9309	9403	
==>ns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9309	9403	
==>ns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C< <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4869	5024	
==>) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4869	5024	
==>) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1110	1240	
==>e_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1110	1240	
==>e_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	90	186	
==>LLATION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->roo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3928	4023	
==>ymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3928	4023	
==>ymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3928	4023	
==>ymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	745	847	
==>tplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	745	847	
==>tplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4020	4111	
==>ribes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Inter <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4020	4111	
==>ribes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10039	10214	
==>ile) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10039	10214	
==>ile) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2461	2594	
==>te::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2461	2594	
==>te::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15886	16039	
==>less defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15886	16039	
==>less defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15886	16039	
==>less defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = <==
4	/Users/nnunley/pugs/util/package-osx.pl	11912	12002	
==>ge_files > 0);
&copy_files($dest, @files);
&make_symlinks($dest, %symlinks) if (keys %symli <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	356	459	
==>essed';

# create our basic variables/functions for 
# the metamodel that the runtime needs to 
# have a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3825	3927	
==>9/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3825	3927	
==>9/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3825	3927	
==>9/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	299	408	
==>ng
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that s <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	299	408	
==>ng
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8275	8370	
==>\$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8263	8358	
==>\$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12891	13017	
==>d($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || conf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12891	13017	
==>d($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || conf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12891	13017	
==>d($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || conf <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13247	13351	
==>6_as_str(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2895	3051	
==>' : 'not ok ';
            $ok    .= _('$.number');
            $ok    .= " - " . _('$.description') if _('$.description');
            return $ok;
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3350	3461	
==>tive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3350	3461	
==>tive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3350	3461	
==>tive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7608	7703	
==>ed and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementa <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7608	7703	
==>ed and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementa <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	448	560	
==>rt {
        #$tz = tz($tz) if $tz.defined and !$tz.isa("Time::Zone");
    return
        Date::Gregorian.new( :y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1821	1943	
==>he.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ever <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1821	1943	
==>he.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ever <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1821	1943	
==>he.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ever <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6527	6637	
==>$v);
    return +0 if $Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1362	1556	
==>$last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1362	1556	
==>$last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1362	1556	
==>$last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary-> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8547	8632	
==>_spec_neg([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) -- <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2594	2700	
==>span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5797	5903	
==>span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($sel <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2594	2700	
==>span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($sel <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5797	5903	
==>span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2104	2212	
==>=> $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.conn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2104	2212	
==>=> $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.conn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11805	11907	
==>STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11805	11907	
==>STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15028	15123	
==>-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1136	1231	
==>yword.  Or maybe the full package
name (C<Type--Perl6>) disambiguates this case.

Types have a d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15028	15123	
==>-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15028	15123	
==>-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	201	318	
==>_loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _lo <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	201	318	
==>_loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _lo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4398	4487	
==>untime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance metho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4648	4737	
==>untime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3531	3641	
==>{
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3531	3641	
==>{
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3531	3641	
==>{
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self-> <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	217	317	
==>stdir/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
print $F <<'EOT';
#include < <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7173	7262	
==>ral it is a bad idea

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7173	7262	
==>ral it is a bad idea

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6612	6701	
==>---------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## --------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6635	6724	
==>----------------
## BOOTSTRAPPING Roles COMPLETE
## -------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3700	3802	
==>C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3700	3802	
==>C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5897	5999	
==>C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18797	18897	
==>body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation::Example $other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	128	229	
==>ib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	128	229	
==>ib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	128	229	
==>ib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn < <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	709	818	
==>d     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	709	818	
==>d     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4448	4555	
==>my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4448	4555	
==>my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8183	8290	
==>ethod:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

When the regex i <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3946	4076	
==>le noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<(!?)\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27406	27502	
==>re pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31958	32054	
==>re pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31041	31137	
==>re pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3350	3445	
==>ILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N* <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3350	3445	
==>ILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N* <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24627	24721	
==>pe::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25599	25693	
==>pe::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10506	10688	
==>me\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10506	10688	
==>me\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1440	1538	
==>] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1440	1538	
==>] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set: <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2002	2121	
==>e },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      m <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2002	2121	
==>e },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3040	3145	
==>0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3040	3145	
==>0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7386	7525	
==>00 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Failed to 'chmod +w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1510	1606	
==>"infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1510	1606	
==>"infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1510	1606	
==>"infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == Str <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13627	13732	
==>eturns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13627	13732	
==>eturns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	764	933	
==>elf->set_value('%:slots', $hash);
            },
            hash_fetchElem => sub {
                my $self = shift;
                my $idx = shift;
                $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10683	10794	
==>" relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14160	14271	
==>" relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13459	13570	
==>" relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6616	6722	
==>scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6616	6722	
==>scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' } <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4319	4398	
==>F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4319	4398	
==>F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6527	6633	
==>b { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6527	6633	
==>b { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6527	6633	
==>b { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5310	5432	
==>6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5310	5432	
==>6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5310	5432	
==>6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 th <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7203	7308	
==>parrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @modfiles > 0 } <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5526	5669	
==>f @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' t <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5526	5669	
==>f @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17944	18097	
==>,
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, default <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16982	17135	
==>,
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, default <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17944	18097	
==>,
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, default <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16982	17135	
==>,
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, default <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27535	27630	
==>α → list α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6157	6245	
==>t::Builder::Test::WithReason role
and override some methods to provide additional feature <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6157	6245	
==>t::Builder::Test::WithReason role
and override some methods to provide additional feature <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8354	8442	
==>t::Builder::Test::WithReason role
and override some methods to provide additional feature <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1571	1664	
==>zy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), g <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1571	1664	
==>zy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), g <==
4	/Users/nnunley/pugs/util/func_refact.pl	2889	2999	
==>ub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1046	1150	
==>perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1046	1150	
==>perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1046	1150	
==>perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	566	684	
==>($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	566	684	
==>($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	566	684	
==>($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { loc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	392	489	
==>> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	392	489	
==>> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $even <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25059	25154	
==>d conditions of the GPL
cover the whole combination.  As a special exception, the copyright hold <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25059	25154	
==>d conditions of the GPL
cover the whole combination.  As a special exception, the copyright hold <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1259	1388	
==>ef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1259	1388	
==>ef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1259	1388	
==>ef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6531	6633	
==>t(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	875	992	
==>sion       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	875	992	
==>sion       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24163	24261	
==>ributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28715	28813	
==>ributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation ha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26361	26508	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26640	26787	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { su <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1524	1635	
==>}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $mak <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1524	1635	
==>}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14447	14631	
==>f ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14447	14631	
==>f ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14447	14631	
==>f ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7292	7393	
==>r->does('Role'), '... rBar now does Role');

# create a class to put the roles in ...
my $FooBar = $Cl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4094	4210	
==>?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4094	4210	
==>?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2738	2834	
==>re... I think Pugs::Compiler could work as the

basic interface, and if you'd like to offer more, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2636	2731	
==>re... I think Pugs::Compiler could work as the
basic interface, and if you'd like to offer more, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5716	5918	
==>label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (bloc <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7478	7680	
==>label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (bloc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2517	2612	
==>n $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2517	2612	
==>n $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2466	2587	
==>dy->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2466	2587	
==>dy->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2466	2587	
==>dy->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	364	483	
==>anned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21101	21254	
==>n "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21101	21254	
==>n "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21101	21254	
==>n "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25232	25374	
==>asses')); 
                          # clear the MRO now
                          $e->get('$self:')->set_attr(symbol->new('@:MRO') => list->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2413	2522	
==>. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2413	2522	
==>. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2413	2522	
==>. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5357	5472	
==>env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5357	5472	
==>env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5357	5472	
==>env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9936	10048	
==>}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2965	3105	
==>port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2965	3105	
==>port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key= <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9984	10078	
==>is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9984	10078	
==>is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1810	1915	
==>ift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1810	1915	
==>ift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1810	1915	
==>ift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30095	30194	
==>specting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this object.  S <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	545	683	
==>hod header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	545	683	
==>hod header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27693	27792	
==>py of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new(). <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27693	27792	
==>py of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new(). <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	598	715	
==>ook_insert();
        regexp_hook_on();
    }

    no strict 'refs';
    require "re/override/$flavor.pm";
    goto &{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9104	9203	
==>\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9104	9203	
==>\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9104	9203	
==>\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2803	2914	
==>t::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           er <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2803	2914	
==>t::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           er <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4327	4438	
==>t::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           er <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4574	4674	
==>p'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_;
    $self->{'field_ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1325	1458	
==>bstr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1271	1398	
==>bstr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2011	2112	
==>>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. ( <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2011	2112	
==>>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4152	4251	
==>scription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4152	4251	
==>scription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4152	4251	
==>scription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4312	4437	
==>/script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4312	4437	
==>/script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4312	4437	
==>/script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2148	2259	
==>ll {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25725	25825	
==>β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new( <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1344	1475	
==>AULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unesc <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1344	1475	
==>AULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unesc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16713	16812	
==>ut
rather returns its results for calling code to output as it sees fit.  It
also does not make dire <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16713	16812	
==>ut
rather returns its results for calling code to output as it sees fit.  It
also does not make dire <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	808	923	
==>s => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	550	665	
==>s => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	808	923	
==>s => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	550	665	
==>s => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8964	9175	
==>label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7149	7268	
==>54),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472), <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7149	7268	
==>54),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4612	4741	
==>XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub prefix {
        return $1 if shift->package() =~ $Packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3117	3230	
==>{
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3117	3230	
==>{
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3117	3230	
==>{
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2491	2584	
==>}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2491	2584	
==>}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2491	2584	
==>}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9617	9795	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15161	15339	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9617	9795	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15155	15333	
==>{
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15035	15140	
==>ation::Example {

    # First look for trivial cases that are more efficient to do different.
    if ($!bo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1765	1882	
==>expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $heade <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1765	1882	
==>expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $heade <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24807	24903	
==>apping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

Thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29359	29455	
==>apping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

Thi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15415	15571	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15694	15850	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             ) <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	419	545	
==>lass = shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Err <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2534	2646	
==>rl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1146	1258	
==>rl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1847	1959	
==>rl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5433	5575	
==>allback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifet <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5433	5575	
==>allback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifet <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	46	162	
==>mp];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require ' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	46	162	
==>mp];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6086	6192	
==>lice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6086	6192	
==>lice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6086	6192	
==>lice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new <==
4	/Users/nnunley/pugs/util/package-osx.pl	3565	3671	
==>Pugs.3pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3467	3570	
==>)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13168	13265	
==>se something is not implemented yet. So
in order to still allow that to be tested, and those tests <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13226	13323	
==>se something is not implemented yet. So
in order to still allow that to be tested, and those tests <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7801	7909	
==>$1), "\\X$1") if $cc;
      return $S->object(exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Il <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2592	2689	
==>255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2592	2689	
==>255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2592	2689	
==>255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	467	555	
==>---------------------------------------------------
## accessors and mutators

method par <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	467	555	
==>---------------------------------------------------
## accessors and mutators

method par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4084	4185	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4084	4185	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4084	4185	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	288	375	
==>se Pugs::Emitter::Rule::Perl5::Ratchet;
use Pugs::Compiler::RegexPerl5;

use Data::Dumpe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1421	1634	
==>1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp::Ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8609	8739	
==>k into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4969	5099	
==>k into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5818	5948	
==>k into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18033	18200	
==>@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	210	338	
==>ted":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	210	338	
==>ted":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	210	338	
==>ted":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2257	2354	
==>.

Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, ski <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2257	2354	
==>.

Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, ski <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3383	3475	
==>hat
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3383	3475	
==>hat
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	359	473	
==>GS ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables:
# c-in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47305	47454	
==>namespace'))->fetch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1300	1413	
==>my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1300	1413	
==>my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8534	8638	
==>infix:«<=>» --> Scalar) {
    List::max $cmp, *@self;
}


# XXX - TODO
# postcircumfix:<[ ]>  circumfix <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6995	7127	
==>ata_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6995	7127	
==>ata_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1196	1292	
==>l_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1196	1292	
==>l_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6513	6615	
==>isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6513	6615	
==>isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6513	6615	
==>isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12526	12618	
==>r is a particular one, use the error_is() method:

  if ($parser->error_is($parser->RPe_BCURL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	996	1100	
==>es(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	996	1100	
==>es(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	996	1100	
==>es(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18796	19022	
==>3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18796	19022	
==>3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18796	19022	
==>3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34271	34359	
==>anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3469	3572	
==>dOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3469	3572	
==>dOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3469	3572	
==>dOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL <==
4	/Users/nnunley/pugs/util/package-osx.pl	6132	6229	
==>rl6::Overview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4739	4898	
==>ual to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4739	4898	
==>ual to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $st <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3079	3210	
==>~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3079	3210	
==>~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4417	4540	
==>ization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4417	4540	
==>ization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1423	1560	
==>}
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4662	4799	
==>}
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1423	1560	
==>}
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4662	4799	
==>}
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	231	367	
==>};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	861	972	
==>0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	861	972	
==>0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	861	972	
==>0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8984	9083	
==>@copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8984	9083	
==>@copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8984	9083	
==>@copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use o <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4628	4723	
==>specifies the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initr <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1158	1286	
==>{installman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4270	4394	
==>{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4270	4394	
==>{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4270	4394	
==>{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8574	8682	
==>fined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8574	8682	
==>fined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8574	8682	
==>fined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2254	2362	
==>'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2254	2362	
==>'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2254	2362	
==>'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5504	5599	
==>te->new(filename => 'util/catalog_tmpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7797	7896	
==>ses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7797	7896	
==>ses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7797	7896	
==>ses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3042	3139	
==>s);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array::splice.assumin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	197	313	
==>($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    su <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	197	313	
==>($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    su <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7743	7841	
==>eturns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher ob <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7743	7841	
==>eturns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher ob <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17270	17389	
==>percase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39701	39810	
==>('new');

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17618	17715	
==>d2 How It Works

Modern programs or database systems often refer to an error condition by an
inter <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17618	17715	
==>d2 How It Works

Modern programs or database systems often refer to an error condition by an
inter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2247	2383	
==>atch::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2235	2371	
==>atch::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35947	36042	
==>od returns an array ref having all combinations of this object's
Set Names and Member Names elem <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35947	36042	
==>od returns an array ref having all combinations of this object's
Set Names and Member Names elem <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20714	20841	
==>),
		),
		in => comb(
			fun => comb(
				fun => ide("fac'"),
				param => ide("x"),
			),
			param => val(1),
		),
	),
);

my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1913	2007	
==>.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1913	2007	
==>.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1913	2007	
==>.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.reference <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8501	8630	
==>as_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyck -an <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3338	3434	
==>e tests, and then telling this module to compare the received
output to the expected output.

=he <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3338	3434	
==>e tests, and then telling this module to compare the received
output to the expected output.

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3418	3514	
==>e tests, and then telling this module to compare the received
output to the expected output.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1917	2030	
==>strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1917	2030	
==>strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1917	2030	
==>strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11173	11276	
==>rce) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block an <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11173	11276	
==>rce) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block an <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10428	10527	
==>ers who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10428	10527	
==>ers who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in h <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	744	850	
==>:Value;
class JSX::Value::Undefined is JSX::ValuePrimitive;
class JSX::Value::Null      is JSX::ValuePrimit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18550	18645	
==>.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-co <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18550	18645	
==>.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17853	17995	
==>)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    aut <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16891	17033	
==>)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17853	17995	
==>)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16891	17033	
==>)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    aut <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4835	4989	
==>s any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Applies it's children one by one and reduces to the value of it's last child.
Redu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	27	119	
==>:Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	27	119	
==>:Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3696	3828	
==>{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3696	3828	
==>{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3696	3828	
==>{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1613	1731	
==>self->tokenTable()->{$relativePrecedence}{equiv};
    }
  }

  my $noWhitespace = 0;
  $noWhitespace = 1 if ((index $op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2698	2827	
==>_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2698	2827	
==>_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2694	2804	
==>est::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag " <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2752	2862	
==>est::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag " <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	257	357	
==>constant PGE_OPTABLE_PREFIX => 4;
use constant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18418	18515	
==>fix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18418	18515	
==>fix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18418	18515	
==>fix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6548	6676	
==>onst_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6741	6869	
==>onst_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16111	16206	
==>ocument, and
whose Node Type attribute is set from the named parameter $node_type (a
string); th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16111	16206	
==>ocument, and
whose Node Type attribute is set from the named parameter $node_type (a
string); th <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1243	1358	
==>urns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1243	1358	
==>urns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5934	6066	
==>argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5934	6066	
==>argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5934	6066	
==>argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8432	8571	
==>ssignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJEC <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8432	8571	
==>ssignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJEC <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7280	7409	
==>erson_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7280	7409	
==>erson_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_do <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	256	365	
==>mar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	267	376	
==>mar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were in <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34754	34857	
==>tor $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Tran <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34754	34857	
==>tor $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Tran <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12848	12942	
==>ring with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in t <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12848	12942	
==>ring with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8549	8642	
==>pplication.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8549	8642	
==>pplication.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1162	1280	
==>ponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4640	4758	
==>ponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3552	3670	
==>ponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5256	5368	
==>oes};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5256	5368	
==>oes};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5256	5368	
==>oes};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2952	3053	
==>();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2952	3053	
==>();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2952	3053	
==>();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3287	3438	
==>te) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age') <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3287	3438	
==>te) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age') <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3521	3617	
==>, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3521	3617	
==>, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2975	3091	
==>. _('$.description') if _('$.description');
            return $ok;
        }
    }
});

$::TestBuilder->FETCH('::Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	864	975	
==>edPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	864	975	
==>edPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	864	975	
==>edPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1428	1547	
==>ion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1428	1547	
==>ion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1428	1547	
==>ion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3358	3460	
==>base qw/type/;

sub new {
	my $class = shift;
	bless {}, $class;
}

package type::operator::nullary;
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1170	1282	
==>+ "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1170	1282	
==>+ "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1170	1282	
==>+ "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10007	10113	
==>ince VMS requires all parms quoted.  Also, don't quote
    # it if it's already quoted.
    for ( @derived_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	322	427	
==>7) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	322	427	
==>7) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	322	427	
==>7) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4807	4908	
==>rite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4807	4908	
==>rite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4807	4908	
==>rite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Cou <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10774	10871	
==>inator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharacter>
}
rule RegularExpressionF <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32870	32967	
==>tion>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33325	33422	
==>tion>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37420	37517	
==>tion>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37875	37972	
==>tion>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1105	1216	
==>registered-alts';       # registered alternatives
$Alternatives   = $Meta . '/alternatives';          # Alternat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	245	351	
==>o) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.unio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	245	351	
==>o) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.unio <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7637	7741	
==>(%:methods))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	802	935	
==>ammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	964	1097	
==>ammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param-> <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	957	1048	
==>ixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	957	1048	
==>ixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11998	12117	
==>ommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenially dangerous. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2367	2469	
==>)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2367	2469	
==>)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2367	2469	
==>)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5020	5116	
==>{ editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5020	5116	
==>{ editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5020	5116	
==>{ editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18949	19054	
==>ense for e.g. the 'id' function, this won't work if we pass in $plus_ten
my $flatten_polymorphic = fun(
	p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1598	1696	
==>on (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1598	1696	
==>on (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1598	1696	
==>on (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS. <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	177	275	
==>mehow incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../pugs";

for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2644	2732	
==>Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2644	2732	
==>Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2644	2732	
==>Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1462	1569	
==>ILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compilation error: ", $@ i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16545	16648	
==>rl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16545	16648	
==>rl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16545	16648	
==>rl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1936	2043	
==>n "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @component <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1936	2043	
==>n "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @component <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1936	2043	
==>n "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @component <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5936	6042	
==>::Exp::Literal")
    litstart = pos
    litlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_lit <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6375	6480	
==>ix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5505	5610	
==>ix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6375	6480	
==>ix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5505	5610	
==>ix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5471	5709	
==>)))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7233	7471	
==>)))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e g <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36033	36125	
==>Names elements, concatenated in the form
"<Set><Member>".  All combinations having the same M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36033	36125	
==>Names elements, concatenated in the form
"<Set><Member>".  All combinations having the same M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5748	5845	
==>ub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5748	5845	
==>ub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5748	5845	
==>ub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} : <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30780	30875	
==>from anywhere.  You want to go along
the I<object>'s inheritance tree.  Use Damian Conway's F<NE <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7711	7864	
==>mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you mean <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2022	2155	
==>mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you mean <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2022	2155	
==>mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you mean <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2022	2155	
==>mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you mean <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5769	5913	
==>$_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5769	5913	
==>$_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5769	5913	
==>$_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20771	20870	
==>ule ExpressionStatement :words {  # see 12.4
      <!before <'function'>><Expression> <';'> #lookahe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5659	5791	
==>1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6927	7059	
==>1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5659	5791	
==>1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6915	7047	
==>1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16723	16847	
==>{
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18149	18273	
==>{
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24768	24892	
==>{
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1239	1336	
==>rs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@array ; MatchT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	921	1035	
==>, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	921	1035	
==>, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	921	1035	
==>, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PI <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	97	194	
==>hored = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1065	1171	
==>o check if the runtime has a hash for this right now this is a non
    # issue since even higher order func <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3957	4052	
==>ent
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3957	4052	
==>ent
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3957	4052	
==>ent
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2602	2732	
==>@{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{capture},
                abort   => ${ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4586	4679	
==>New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them int <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4586	4679	
==>New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them int <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4586	4679	
==>New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13276	13407	
==>} @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13276	13407	
==>} @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9285	9400	
==>2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9343	9458	
==>2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5023	5142	
==>TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5023	5142	
==>TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1087	1188	
==>odel::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1087	1188	
==>odel::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7839	7946	
==>.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7839	7946	
==>.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normaliz <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5033	5139	
==>$to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 val <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5033	5139	
==>$to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 val <==
4	/Users/nnunley/pugs/util/grokprims.pl	1671	1765	
==>f (/left-associative/ and $arity==2) {
    $example = "HUH: left-associative with arity $arity" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2016	2107	
==>HORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-lia <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2016	2107	
==>HORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-lia <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2016	2107	
==>HORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-lia <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1732	1826	
==>$self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1732	1826	
==>$self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1732	1826	
==>$self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37611	37699	
==>of the aforementioned.

=item C<difference (Relation::Example $other!) returns Relation:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8244	8372	
==>ral to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8244	8372	
==>ral to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8244	8372	
==>ral to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i] <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12106	12223	
==>-d "$parrot_path/runtime/parrot/include/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7461	7590	
==>CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7461	7590	
==>CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7461	7590	
==>CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	121	221	
==>version to native
sub to_native;

# conversion to other native types
sub to_num;
sub to_bit;
sub to_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1354	1460	
==><Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is asso <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1354	1460	
==><Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is asso <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1354	1460	
==><Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is asso <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22650	22782	
==>amily => 'assertion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	551	646	
==>trict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	551	646	
==>trict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	551	646	
==>trict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4581	4726	
==>pec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-indentation-style: b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	221	319	
==>h = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	221	319	
==>h = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	221	319	
==>h = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4513	4646	
==>/date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4513	4646	
==>/date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10840	11088	
==>,
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
) <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2432	2532	
==>SE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possib <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2432	2532	
==>SE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possib <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22431	22525	
==>enerally, when a program package would return a code-key to indicate a
condition, often it will <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22431	22525	
==>enerally, when a program package would return a code-key to indicate a
condition, often it will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12230	12335	
==>:Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Er <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12230	12335	
==>:Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Er <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12230	12335	
==>:Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Er <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	728	829	
==>ame;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this distribution.
Plea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12918	13046	
==>&&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12918	13046	
==>&&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12918	13046	
==>&&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1982	2083	
==>decrement { num->new((shift)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7146	7258	
==>ll/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7146	7258	
==>ll/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7146	7258	
==>ll/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11519	11623	
==>rgs)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $arg <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22496	22600	
==>rgs)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11519	11623	
==>rgs)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11519	11623	
==>rgs)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $arg <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	351	473	
==>submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a func <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	351	473	
==>submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a func <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17549	17646	
==>ML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17549	17646	
==>ML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7357	7495	
==>:CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7357	7495	
==>:CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7357	7495	
==>:CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34803	34927	
==>rser::branch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19088	19188	
==>}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19088	19188	
==>}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19088	19188	
==>}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8381	8485	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            's <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8381	8485	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            's <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8381	8485	
==>nt' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            's <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5673	5776	
==>> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref summary of all the tests
run <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2226	2339	
==>::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; b <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2226	2339	
==>::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2138	2240	
==>one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2138	2240	
==>one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.su <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10237	10338	
==>urns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. Thi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10295	10396	
==>urns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. Thi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	433	527	
==>t hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Remo <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	433	527	
==>t hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Remo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1120	1219	
==>'s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1120	1219	
==>'s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1120	1219	
==>'s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4238	4330	
==>6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	475	663	
==>[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11265	11383	
==>}
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::O <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11265	11383	
==>}
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::O <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11265	11383	
==>}
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::O <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	821	1000	
==>ch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unles <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	821	1000	
==>ch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unles <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4404	4502	
==>pens in parametrized type operators, since they have children
	my $self = shift;
	my $accum = shift <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20819	20916	
==>ary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5566	5712	
==>hift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5566	5712	
==>hift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5566	5712	
==>hift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13920	14017	
==>a single
value (a string).  If a header field is multi-valued, then the
routine is called once for <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13920	14017	
==>a single
value (a string).  If a header field is multi-valued, then the
routine is called once for <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3875	3967	
==>Config::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3875	3967	
==>Config::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4973	5124	
==>)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7780	7927	
==>->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7780	7927	
==>->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7780	7927	
==>->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6676	6797	
==>>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6676	6797	
==>>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6676	6797	
==>>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5999	6108	
==>ensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub find_extensions {
    m <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2264	2363	
==>nks resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sr <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2264	2363	
==>nks resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sr <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6834	6932	
==>e end of the line and find no closing match, I should
ignore the opening one. However, this means I <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6834	6932	
==>e end of the line and find no closing match, I should
ignore the opening one. However, this means I <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	56	201	
==>export {
        my @default = (
            "boring",
            "missing examples",
        );
      pick @arr || @default
}

sub report (@x) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5927	6048	
==>name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5927	6048	
==>name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5927	6048	
==>name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	691	894	
==>}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	69	156	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	69	156	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	69	156	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_a <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1352	1482	
==>" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 S <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1352	1482	
==>" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 S <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1505	1595	
==>m>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http:/ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1505	1595	
==>m>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http:/ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1632	1734	
==>q 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13985	14085	
==>ix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13985	14085	
==>ix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13985	14085	
==>ix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5740	6002	
==>},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5740	6002	
==>},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5740	6002	
==>},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11483	11607	
==>$code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11483	11607	
==>$code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11483	11607	
==>$code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wor <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	311	428	
==>rom         - The place where this subrule/group started.
    $.to           - The place where this subrule/group ende <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	311	428	
==>rom         - The place where this subrule/group started.
    $.to           - The place where this subrule/group ende <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9550	9665	
==>not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.heigh <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9550	9665	
==>not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.heigh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13434	13571	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must follow something
    $rx->er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1857	1955	
==>ing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1857	1955	
==>ing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1857	1955	
==>ing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaqu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24176	24321	
==>mp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24176	24321	
==>mp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24176	24321	
==>mp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7297	7403	
==>lue is ignored - use proxy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10023	10177	
==>$use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10023	10177	
==>$use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8053	8148	
==>ollows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' direc <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8053	8148	
==>ollows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' direc <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6940	7038	
==>P response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Si <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6940	7038	
==>P response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Si <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1049	1142	
==>ftware returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

= <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1049	1142	
==>ftware returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

= <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7886	8001	
==>$member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mul <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7016	7131	
==>$member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7886	8001	
==>$member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7016	7131	
==>$member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
mul <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14783	14887	
==>arams = @_;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = \@params;
}

sub s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2747	2838	
==>'%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2747	2838	
==>'%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2747	2838	
==>'%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1101	1227	
==>gh we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var> does longest match based on the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1452	1576	
==>gh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1059	1183	
==>gh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1452	1576	
==>gh we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1537	1663	
==>=  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $self->from();
  my $position = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3099	3212	
==>quired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3099	3212	
==>quired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3099	3212	
==>quired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17172	17314	
==>uleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17451	17593	
==>uleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	135	229	
==>char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	135	229	
==>char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1690	1788	
==>e} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            $relative_precedences{$opt->{precedenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1074	1171	
==>nfix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1074	1171	
==>nfix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1074	1171	
==>nfix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10681	10780	
==>[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10681	10780	
==>[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10681	10780	
==>[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29661	29757	
==>cated as badly.
(Partially done with new skip test styles)

Add option for coverage analysis.

Tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2614	2728	
==>$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} els <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2614	2728	
==>$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} els <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2614	2728	
==>$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} els <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12092	12187	
==>al value of the C<PERL5LIB> environment variable.
Necessary on VMS, otherwise a no-op.

=cut

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5569	5688	
==>"SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5569	5688	
==>"SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5569	5688	
==>"SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17815	17988	
==>e' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ], <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17815	17988	
==>e' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ], <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	818	950	
==>_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	818	950	
==>_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1646	1760	
==>sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1646	1760	
==>sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	860	954	
==>s that this will allow interoperability with modules that
# do not inherit from Module::Compile <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	860	954	
==>s that this will allow interoperability with modules that
# do not inherit from Module::Compile <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11087	11204	
==>(maybe capturing paren)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30914	31009	
==>empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35464	35559	
==>empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34655	34750	
==>empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	960	1051	
==>ash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	960	1051	
==>ash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	960	1051	
==>ash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5470	5567	
==>X: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5470	5567	
==>X: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6060	6157	
==>X: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5030	5138	
==>lf;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;
    $self->admin->write_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1789	1892	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1789	1892	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1789	1892	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6923	7061	
==>ing);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= & <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10400	10538	
==>ing);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	438	541	
==>input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the inpu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	438	541	
==>input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the inpu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1732	1845	
==>grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11085	11189	
==>finite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11085	11189	
==>finite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11085	11189	
==>finite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10496	10650	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10775	10929	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14408	14504	
==>ther Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14408	14504	
==>ther Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure an <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1518	1623	
==>s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_
}


my $conv = <<'CONVERSION_SUBS';
conv_array {
    s/\ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8945	9042	
==>.com>.

This code is free software, and may be used, distributed and/or modified under 
the same t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3874	3971	
==>.com>.

This code is free software, and may be used, distributed and/or modified under 
the same t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8945	9042	
==>.com>.

This code is free software, and may be used, distributed and/or modified under 
the same t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3874	3971	
==>.com>.

This code is free software, and may be used, distributed and/or modified under 
the same t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	458	580	
==>compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	458	580	
==>compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1164	1252	
==>Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1384	1472	
==>Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16711	16815	
==>anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13132	13236	
==>anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	839	930	
==>ization of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	839	930	
==>ization of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Ros <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21681	21788	
==>>

The original line received from the server (unmodified).

=item C<server>

The server the line was sent f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20562	20669	
==>>

The original line received from the server (unmodified).

=item C<server>

The server the line was sent f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21681	21788	
==>>

The original line received from the server (unmodified).

=item C<server>

The server the line was sent f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20562	20669	
==>>

The original line received from the server (unmodified).

=item C<server>

The server the line was sent f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11846	12072	
==>, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LH <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11846	12072	
==>, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LH <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3226	3333	
==>s should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:per <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3226	3333	
==>s should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7870	8104	
==>rt; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7870	8104	
==>rt; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7870	8104	
==>rt; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	235	330	
==>y terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	235	330	
==>y terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	235	330	
==>y terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7973	8133	
==>eturn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7973	8133	
==>eturn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7973	8133	
==>eturn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1597	1709	
==>,
    PCR_ratchet_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2001	2120	
==>>new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2001	2120	
==>>new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1241	1352	
==>>new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3102	3213	
==>>new(shift) || return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1336	1427	
==>bal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1336	1427	
==>bal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1336	1427	
==>bal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2572	2677	
==>turn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2572	2677	
==>turn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2572	2677	
==>turn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @va <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1176	1279	
==>::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n or $^n.  having the two of them <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8210	8304	
==>et(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).sy <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7340	7434	
==>et(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).sy <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8210	8304	
==>et(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).sy <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7340	7434	
==>et(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).sy <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21114	21210	
==>which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20022	20118	
==>which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel name <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21114	21210	
==>which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel name <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20022	20118	
==>which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1619	1733	
==>s.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1619	1733	
==>s.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1619	1733	
==>s.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5585	5673	
==>Pugs::Grammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8349	8461	
==>utput );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	559	659	
==>utput );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	559	659	
==>utput );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $. <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1037	1131	
==>st->new("SHA-1");
	$digest->add($c_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} ||= $sel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1065	1187	
==>re are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6775	6885	
==>ck;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6775	6885	
==>ck;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6775	6885	
==>ck;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15821	15918	
==>.  If the requested
resource has (or has not) been modified since the time specified in this field <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1099	1196	
==>st, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expecte <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1157	1254	
==>st, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expecte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15821	15918	
==>.  If the requested
resource has (or has not) been modified since the time specified in this field <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2943	3097	
==>s[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2847	2997	
==>s[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3343	3445	
==>te /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All me <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3343	3445	
==>te /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All me <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	635	737	
==>ap {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	635	737	
==>ap {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3048	3142	
==>Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3048	3142	
==>Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	832	935	
==>, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	832	935	
==>, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	832	935	
==>, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6053	6155	
==>val);
	}
}

sub reduce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17658	17837	
==>y' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17658	17837	
==>y' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17658	17837	
==>y' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5949	6052	
==>p { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce($thunk-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7350	7506	
==>, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7350	7506	
==>, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4913	5008	
==>return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4913	5008	
==>return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42330	42527	
==>:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$::Object- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9353	9480	
==>: $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9353	9480	
==>: $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9353	9480	
==>: $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24210	24334	
==>r (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1245	1331	
==>2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1245	1331	
==>2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1245	1331	
==>2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18964	19073	
==>spatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18964	19073	
==>spatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18964	19073	
==>spatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	333	442	
==>tion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	333	442	
==>tion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	333	442	
==>tion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24033	24136	
==>t. */



 regcomp.h:
 * The "internal use only" fields in regexp.h are present to pass info from
 * comp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1966	2109	
==>abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1966	2109	
==>abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newl <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	112	238	
==>) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say( <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	112	238	
==>) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8345	8477	
==>rn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) {
        re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3544	3651	
==>ote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3544	3651	
==>ote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3544	3651	
==>ote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1470	1576	
==>resenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a singl <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1470	1576	
==>resenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a singl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5575	5675	
==>l implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5575	5675	
==>l implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_ro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11594	11716	
==>(\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11594	11716	
==>(\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5346	5448	
==>PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
} <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5346	5448	
==>PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21459	21558	
==>1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21459	21558	
==>1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21459	21558	
==>1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8296	8390	
==>s method called by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&Fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3390	3499	
==>) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3390	3499	
==>) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3390	3499	
==>) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7586	7699	
==>ocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7586	7699	
==>ocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9916	10021	
==>losure::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher" <block>)) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19583	19686	
==>}
multi as (Hash $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $k,$v { s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15758	15905	
==>{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2995	3109	
==>rbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2995	3109	
==>rbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2995	3109	
==>rbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13066	13217	
==>clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13066	13217	
==>clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13066	13217	
==>clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	344	477	
==>nfix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6440	6555	
==>infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6440	6555	
==>infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6440	6555	
==>infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @ <==
4	/Users/nnunley/pugs/util/package-osx.pl	7689	7797	
==>/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/local/man/ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3783	3908	
==>$p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20895	21009	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17316	17430	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahea <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9526	9621	
==>rticular order.  The
field names are cases insensitive.

Instances of this class are usually cre <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9526	9621	
==>rticular order.  The
field names are cases insensitive.

Instances of this class are usually cre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6086	6191	
==>her = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "inter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5876	5978	
==>her = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "inter <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23543	23639	
==>ccessor method can be used to see if a Relation-doing object
can mutate.  Depending on the implem <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28095	28191	
==>ccessor method can be used to see if a Relation-doing object
can mutate.  Depending on the implem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11782	11935	
==>rmal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11782	11935	
==>rmal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11782	11935	
==>rmal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	871	995	
==>mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    e <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11150	11248	
==>criteria is
applied, in order, until a non-zero (tie) result is achieved.

Criterion can take a few <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3288	3378	
==>ant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3288	3378	
==>ant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3288	3378	
==>ant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primiti <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21704	21801	
==>ually addressed only by their values; neither
may be addressed by any ordinal value.

Note that it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26256	26353	
==>ually addressed only by their values; neither
may be addressed by any ordinal value.

Note that it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24916	25013	
==>ually addressed only by their values; neither
may be addressed by any ordinal value.

Note that it <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5371	5473	
==>| %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5371	5473	
==>| %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24861	24955	
==>tion, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statical <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24861	24955	
==>tion, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statical <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2405	2515	
==>y->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metacla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2405	2515	
==>y->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metacla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2405	2515	
==>y->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metacla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	127	215	
==>DE;
package Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Gramm <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8275	8425	
==>$x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrar <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8275	8425	
==>$x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	43	156	
==>);
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	43	156	
==>);
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3291	3425	
==>ol,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3484	3618	
==>ol,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32602	32695	
==>s to convert Message objects on demand into user-readable
message strings, using data from ext <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32602	32695	
==>s to convert Message objects on demand into user-readable
message strings, using data from ext <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1853	1965	
==>S.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1853	1965	
==>S.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1853	1965	
==>S.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    ( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5012	5116	
==>eturn $ok;
}

=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8458	8581	
==>rays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8458	8581	
==>rays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8458	8581	
==>rays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9751	9906	
==>sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1656	1762	
==>erl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1656	1762	
==>erl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1656	1762	
==>erl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5116	5209	
==>onical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5116	5209	
==>onical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5116	5209	
==>onical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3441	3546	
==>lehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3441	3546	
==>lehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3441	3546	
==>lehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on def <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9798	9884	
==>is($iFoo->test_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... st <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16395	16507	
==>arse the next file.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14346	14457	
==>ethod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14346	14457	
==>ethod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14346	14457	
==>ethod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' = <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8332	8435	
==>ntinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => s <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8332	8435	
==>ntinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10115	10213	
==>g/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10115	10213	
==>g/'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11975	12162	
==>->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11975	12162	
==>->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11975	12162	
==>->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	370	520	
==>q ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19746	19891	
==>{
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16167	16312	
==>{
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2200	2303	
==>nfo     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MAND <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2200	2303	
==>nfo     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MAND <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2838	2978	
==>AGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1191	1285	
==>--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for -- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1191	1285	
==>--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for -- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1191	1285	
==>--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for -- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5983	6070	
==>->[-3],$X::cap->[-2],$X::cap->[-1]) }

my $x1 = def_stmt_prim('bs_ws_decl','\s*token\s+w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3397	3508	
==>e;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3397	3508	
==>e;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3397	3508	
==>e;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29629	29727	
==>&&' without a predecessor, you would have
to add it explicity to the queue for it to ever be execut <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17494	17598	
==>nctions:

regexp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm)

what is pm?
XXX finish

I32      rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3243	3341	
==>=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3243	3341	
==>=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3243	3341	
==>=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS. <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1468	1613	
==>};
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless d <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1468	1613	
==>};
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13309	13403	
==>Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13309	13403	
==>Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26313	26424	
==>> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyCl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	68	168	
==>JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	68	168	
==>JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	68	168	
==>JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        arg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4264	4517	
==>("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4264	4517	
==>("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2065	2160	
==>ple, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2065	2160	
==>ple, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17888	18002	
==>In :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <BitwiseORExpressi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14432	14618	
==>,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14711	14897	
==>,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1253	1362	
==>$volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1253	1362	
==>$volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24854	24948	
==>post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23618	23712	
==>post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24854	24948	
==>post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23618	23712	
==>post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13071	13196	
==>$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13071	13196	
==>$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13071	13196	
==>$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14201	14295	
==>em RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19035	19160	
==>f $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing grou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15456	15581	
==>f $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing grou <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3978	4093	
==>eturn $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4118	4233	
==>eturn $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3673	3798	
==>$module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $mod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3731	3856	
==>$module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $mod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25527	25645	
==>... })
  package Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9965	10082	
==>hod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9965	10082	
==>hod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9965	10082	
==>hod () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7558	7679	
==>ix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usage inside a gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3620	3712	
==>precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3620	3712	
==>precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3620	3712	
==>precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29541	29656	
==>erser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGIN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29541	29656	
==>erser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGIN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	353	460	
==>erser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGIN <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19286	19381	
==>[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures(Ex,Cx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2672	2782	
==>ression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2672	2782	
==>ression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2672	2782	
==>ression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($wh <==
4	/Users/nnunley/pugs/util/config_h.pl	1354	1463	
==>rint OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

*** Tem <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1244	1347	
==>/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12386	12484	
==>ntaining a digest of the original content.
#
# This makes further dividing of Perl code less troubl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12386	12484	
==>ntaining a digest of the original content.
#
# This makes further dividing of Perl code less troubl <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	101	189	
==>e.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1367	1473	
==>c<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1367	1473	
==>c<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1367	1473	
==>c<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XX <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7598	7721	
==>-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7598	7721	
==>-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20316	20428	
==>- !.
rm(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9952	10071	
==>'is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9952	10071	
==>'is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9952	10071	
==>'is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3788	3896	
==>ne\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3957	4064	
==>($value) && $value->isa('symbol'))
        || confess "You must store a symbol type in a param list";
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3572	3671	
==>param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concati <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3572	3671	
==>param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concati <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4162	4261	
==>param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concati <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	961	1091	
==>sg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTyp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	961	1091	
==>sg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTyp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	961	1091	
==>sg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTyp <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	10	109	
==>opt::Proccesor {
    class Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Sty <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10430	10560	
==>\$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10424	10554	
==>\$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5218	5312	
==>item data

The C<data> method returns a hash reference representing the configuration data

=it <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5218	5312	
==>item data

The C<data> method returns a hash reference representing the configuration data

=it <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6091	6233	
==>);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15313	15423	
==>w {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	853	959	
==>) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	853	959	
==>) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	179	275	
==>:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.supers;

multi method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15641	15736	
==>rams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15641	15736	
==>rams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15641	15736	
==>rams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2813	2911	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2813	2911	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2813	2911	
==>bute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4520	4617	
==>is the temporary image of the initrd, which will be mounted.
  --initrd-size=$initrd_size
    --in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3385	3555	
==>return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3385	3555	
==>return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3385	3555	
==>return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4249	4343	
==>fix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4249	4343	
==>fix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4249	4343	
==>fix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@s <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	679	768	
==>sults = $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14530	14654	
==>= $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14530	14654	
==>= $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14530	14654	
==>= $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempt <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2747	2845	
==>ethod is_nil))
        (($current send (has_method $label)) and (= $method ($current send (get_meth <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1364	1479	
==>d the Synopses checked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1848	1953	
==>eturn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1848	1953	
==>eturn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1848	1953	
==>eturn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3553	3666	
==>ent<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3553	3666	
==>ent<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./a <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1439	1549	
==>::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wa <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1439	1549	
==>::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wa <==
4	/Users/nnunley/pugs/util/config_h.pl	1832	1974	
==>"--make", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14932	15030	
==>(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14932	15030	
==>(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14932	15030	
==>(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	645	757	
==>escription'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.descr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11272	11383	
==>rs and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity. <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11272	11383	
==>rs and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11453	11543	
==>m ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11453	11543	
==>m ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39375	39471	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Lo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5110	5206	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39375	39471	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5110	5206	
==>n R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2781	2934	
==>n
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$run <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	534	669	
==>n
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	534	669	
==>n
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25392	25488	
==>re printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit sta <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9783	9910	
==>->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my $a = type::variable::free->new;
		type::operator::arrow->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1218	1312	
==>the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1218	1312	
==>the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1218	1312	
==>the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15466	15606	
==>{
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15466	15606	
==>{
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kic <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7646	7743	
==>> class takes care of much of this.)

A default implementation of this method is provided which re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7646	7743	
==>> class takes care of much of this.)

A default implementation of this method is provided which re <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	711	815	
==>ately.  Assume the existence of what would
  be useful, and we'll do it later.

=cut
###*** Value types - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	503	601	
==>User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	503	601	
==>User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	503	601	
==>User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outpu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4707	4803	
==>on is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3834	3930	
==>on is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4707	4803	
==>on is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3834	3930	
==>on is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13531	13638	
==>{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13531	13638	
==>{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13073	13169	
==>ecoded
separately and the same number of strings are returned.

If called in void context the arg <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13073	13169	
==>ecoded
separately and the same number of strings are returned.

If called in void context the arg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1185	1281	
==>str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1238	1334	
==>str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6906	6999	
==>cher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6906	6999	
==>cher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6906	6999	
==>cher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18547	18669	
==>detail->{type} eq 'skip' ) {
            $totals->{skip_reason} = $detail->{reason}
              unless defined $totals->{ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25772	25870	
==>eing the old names and its values the new names.
This method will fail if any C<$mapping> keys do n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30324	30422	
==>eing the old names and its values the new names.
This method will fail if any C<$mapping> keys do n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29290	29388	
==>eing the old names and its values the new names.
This method will fail if any C<$mapping> keys do n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6367	6497	
==>sses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6367	6497	
==>sses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6367	6497	
==>sses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4941	5059	
==>th " . $right->fetch($i)->name->to_native . ' => ' . $right->fetch($i)->type->to_native;                    
        re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7032	7142	
==>urn $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4558	4651	
==>e] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4558	4651	
==>e] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4558	4651	
==>e] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3842	3951	
==>($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3842	3951	
==>($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4374	4479	
==>($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4374	4479	
==>($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13813	13916	
==>olution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13813	13916	
==>olution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7109	7200	
==>method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7109	7200	
==>method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1963	2056	
==>tructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operat <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1963	2056	
==>tructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15074	15163	
==>hich applications invoke and which
multiple interchangeable "Engine" back-ends (usually pr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15074	15163	
==>hich applications invoke and which
multiple interchangeable "Engine" back-ends (usually pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21001	21176	
==>tant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21280	21455	
==>tant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20707	20819	
==>ndler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17128	17240	
==>ndler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	725	827	
==>ight ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	725	827	
==>ight ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16895	16996	
==>::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = new <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	599	713	
==>!= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	599	713	
==>!= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	599	713	
==>!= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self. <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	702	806	
==>fined($input) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax works <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	501	607	
==>et = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $m <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	501	607	
==>et = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $m <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	794	894	
==>ort<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is ru <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	794	894	
==>ort<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is ru <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10787	10928	
==>t = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35825	35962	
==>y == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35825	35962	
==>y == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35825	35962	
==>y == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tai <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16076	16178	
==>ethod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19553	19655	
==>ethod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!hea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9933	10095	
==>sed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6274	6436	
==>sed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7123	7285	
==>sed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3095	3238	
==>int use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32189	32285	
==><$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36739	36835	
==><$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36029	36125	
==><$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21430	21521	
==>uspend::ISA, __PACKAGE__;
  push @Regexp::Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12226	12320	
==> $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12226	12320	
==> $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6918	7008	
==>ass->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_dat <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6918	7008	
==>ass->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_dat <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	137	262	
==>-CPIL2-JSON -e ' say "hello" ' | \
    ../../pugs pil2_json_emit_p6.p6

  #! /usr/bin/pugs
  use v6;
  &*END () {  }
  (&say(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	243	344	
==>perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	243	344	
==>perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	243	344	
==>perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6266	6361	
==>oor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6266	6361	
==>oor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6266	6361	
==>oor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	0	127	
==>sub return_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	0	127	
==>sub return_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #pri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22998	23088	
==>om a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22998	23088	
==>om a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23265	23364	
==>bute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27817	27916	
==>bute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12254	12352	
==>the previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a mem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12254	12352	
==>the previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a mem <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8381	8497	
==>= -M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc and
      -M $initrd_gz <= - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	667	784	
==>I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	667	784	
==>I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	667	784	
==>I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8948	9080	
==>=> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8948	9080	
==>=> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8948	9080	
==>=> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4709	4831	
==>r::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	607	709	
==>'t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ":: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	607	709	
==>'t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ":: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	607	709	
==>'t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ":: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45270	45366	
==>send('add_attribute', (symbol->new('$:name')      => attribute->new('$:name'      => 'str')));
$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	232	367	
==>],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	232	367	
==>],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	232	367	
==>],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27650	27762	
==>res = eval($ret); die "bug $@\n$ret" if $@;
	    #use Data::Dumper;
	    #print Dumper($res);
	    mkMatch(length <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	78	193	
==>{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	78	193	
==>{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	78	193	
==>{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4636	4746	
==>ile21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

# ---------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1459	1593	
==>ds')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1459	1593	
==>ds')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1459	1593	
==>ds')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7317	7438	
==>List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1373	1469	
==>moke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3166	3336	
==>e}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3065	3230	
==>e}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1898	2000	
==>$one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1898	2000	
==>$one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12175	12311	
==>x eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12169	12305	
==>x eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $s <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8932	9054	
==>losure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_num <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8932	9054	
==>losure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_num <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3202	3330	
==>$meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6327	6455	
==>$meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3202	3330	
==>$meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6327	6455	
==>$meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	944	1039	
==>to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<I <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	944	1039	
==>to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1491	1586	
==>to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<I <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	881	991	
==>ontent = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	881	991	
==>ontent = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2788	2884	
==>er methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2788	2884	
==>er methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	349	448	
==>wfrom( $matchObj );
  $matchObj->position($matchObj->from());
  return $matchObj;
}

sub fail {
  my <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	611	738	
==>'/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	611	738	
==>'/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2712	2811	
==>ous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2612	2708	
==>ous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15192	15318	
==>nf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15192	15318	
==>nf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15192	15318	
==>nf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	110	210	
==>y ($stack, $subexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14007	14123	
==>he server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14007	14123	
==>he server will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13073	13181	
==>he server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13073	13181	
==>he server will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1682	1782	
==>Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1682	1782	
==>Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1682	1782	
==>Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3771	3900	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3771	3900	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3771	3900	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junction <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3211	3320	
==>ef $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars inside a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12895	13022	
==>[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12895	13022	
==>[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12895	13022	
==>[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess " <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6838	6957	
==>"")."".DOWN($pNode); # XXX - Exp?
}

NODE PRawName ($pRawName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8196	8323	
==>domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8196	8323	
==>domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (St <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7723	7829	
==>ure?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7462	7564	
==>ure?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional " <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	522	618	
==>_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CON <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	522	618	
==>_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11416	11588	
==>d::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11416	11588	
==>d::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11416	11588	
==>d::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4219	4337	
==>eturn $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4219	4337	
==>eturn $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1792	1899	
==>lf.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, dire <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1792	1899	
==>lf.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, dire <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	435	550	
==>d: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a++; }
}
$thr1.join;
$thr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2975	3073	
==>$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2975	3073	
==>$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2975	3073	
==>$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercla <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5838	5950	
==>xt ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
} <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5838	5950	
==>xt ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2679	2778	
==>xample:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    prin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2679	2778	
==>xample:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    prin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9632	9751	
==>$alt->bin || [] } ) {
            1 while unlink $conf->bin_dir->file( $script );
            1 while unlink $self->alte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1352	1451	
==>"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1352	1451	
==>"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1352	1451	
==>"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42465	42595	
==>get('$self:')->id;
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3251	3348	
==>ess $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): D <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3251	3348	
==>ess $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): D <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3251	3348	
==>ess $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): D <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3748	3890	
==>fix  = package_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_versio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11362	11455	
==>cause they will not get inherited. This provides more predictable 
behavior to class consturct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11362	11455	
==>cause they will not get inherited. This provides more predictable 
behavior to class consturct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11362	11455	
==>cause they will not get inherited. This provides more predictable 
behavior to class consturct <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19954	20068	
==>p
    .local int padarray
    padarray = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0]
    exp = exp.p6an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	606	711	
==>2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	606	711	
==>2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	606	711	
==>2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13067	13190	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21117	21240	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13346	13469	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21396	21519	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2571	2673	
==>er = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2571	2673	
==>er = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2571	2673	
==>er = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return boo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1538	1666	
==>$str .= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$ent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4986	5078	
==>int(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yie <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4986	5078	
==>int(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yie <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4986	5078	
==>int(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yie <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4706	4818	
==>oo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4706	4818	
==>oo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25702	25800	
==>user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key can <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25702	25800	
==>user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key can <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12349	12462	
==>p { $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1072	1168	
==>>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.Na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1072	1168	
==>>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.Na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1072	1168	
==>>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.Na <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24807	24906	
==>ONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you sup <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23571	23670	
==>ONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you sup <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24807	24906	
==>ONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you sup <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23571	23670	
==>ONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21704	21804	
==>) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21704	21804	
==>) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21704	21804	
==>) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2858	2956	
==>back


=head2 Failure

When tests fail, analyze the summary report:

  t/base..............ok
  t/n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3828	3937	
==>f $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3828	3937	
==>f $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3828	3937	
==>f $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    m <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1133	1229	
==>returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPY <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1128	1224	
==>returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPY <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1133	1229	
==>returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPY <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1128	1224	
==>returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPY <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15924	16047	
==>$c);
  };

  my $v;
  { local $X::current_match = $m1;
    local $X::cap = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3869	3981	
==>.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3869	3981	
==>.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3869	3981	
==>.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	1	120	
==>!/usr/bin/perl
#
# Copy all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so tha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	1	120	
==>!/usr/bin/perl
#
# Copy all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so tha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	1	120	
==>!/usr/bin/perl
#
# Copy all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so tha <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	1	120	
==>!/usr/bin/perl
#
# Copy all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so tha <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	77	171	
==>arc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $ <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	77	171	
==>arc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1075	1164	
==>rl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    meth <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1075	1164	
==>rl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	0	100	
==>﻿package Pugs::Grammar::Prefix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2334	2413	
==>perator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2334	2413	
==>perator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2334	2413	
==>perator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13155	13249	
==>table as a generic data interchange format between
Rosetta::Model and other Perl code such as p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18250	18344	
==>table as a generic data interchange
format between Rosetta::Model and other Perl code such as p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13155	13249	
==>table as a generic data interchange format between
Rosetta::Model and other Perl code such as p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18250	18344	
==>table as a generic data interchange
format between Rosetta::Model and other Perl code such as p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3457	3594	
==>$str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "-> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3760	3897	
==>$str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "-> <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3457	3594	
==>$str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "-> <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3760	3897	
==>$str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "-> <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28202	28297	
==>ITCHES> to C<-W> will
run all tests with all warnings enabled.

=item C<HARNESS_VERBOSE>

If tru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14280	14371	
==>c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14280	14371	
==>c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14280	14371	
==>c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9088	9199	
==>emove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO f <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2123	2234	
==>emove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15641	15735	
==>te and time after which the entity should be
considered stale.

=item $h.if_modified_since

=it <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15641	15735	
==>te and time after which the entity should be
considered stale.

=item $h.if_modified_since

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2523	2643	
==>();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2523	2643	
==>();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2523	2643	
==>();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29818	29981	
==>m += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29818	29981	
==>m += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29818	29981	
==>m += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  w <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2724	2818	
==>token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_alternation> | <commit_atom> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2578	2680	
==>u reduce this AST the code inside the thunk won't be run - it must be the
first child of an App for tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1910	2001	
==>? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1910	2001	
==>? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1910	2001	
==>? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	398	510	
==>ub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2180	2270	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2180	2270	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2180	2270	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	204	324	
==>s, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	198	318	
==>s, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	204	324	
==>s, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	198	318	
==>s, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4389	4500	
==>ice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4389	4500	
==>ice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4389	4500	
==>ice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1288	1400	
==>in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1635	1744	
==>in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1242	1351	
==>in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1635	1744	
==>in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3318	3434	
==>ext unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3318	3434	
==>ext unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	81	177	
==>lude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Pro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	81	177	
==>lude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Pro <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11775	11871	
==>vantage of the internal caching of keys that is expected to happen,
but wishes to compare them wi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6740	6871	
==>e {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2165	2294	
==>:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2165	2294	
==>:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2165	2294	
==>:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $cod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2622	2762	
==>m( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_di <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1289	1429	
==>m( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_di <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4322	4414	
==>my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ def <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4322	4414	
==>my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4684	4782	
==>var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4684	4782	
==>var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5274	5372	
==>var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	443	542	
==>elude->env, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25978	26071	
==>tribute names that aren't being renamed.  This method
supports renaming attributes to each oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30530	30623	
==>tribute names that aren't being renamed.  This method
supports renaming attributes to each oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29505	29598	
==>tribute names that aren't being renamed.  This method
supports renaming attributes to each oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9054	9219	
==>ub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9054	9219	
==>ub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9054	9219	
==>ub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2266	2363	
==>f a single test, assigning it the given C<$name>
for use in the total report.  Returns the C<%resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16774	16872	
==>h the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16774	16872	
==>h the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 w <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36613	36708	
==>turned Relation is identical to the
invocant.  Another trivial case is where any any source rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41162	41257	
==>turned Relation is identical to the
invocant.  Another trivial case is where any any source rela <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3660	3777	
==>undary { \< , \> } # punt for now

rule subrule                { ([\<\<|\<|\x[abd]]) (\??) <name> [ \( <argument_list> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7590	7689	
==>rappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7590	7689	
==>rappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7590	7689	
==>rappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2024	2145	
==>x)
                    : $obj->root->subdir($config->repo_index)
        ));
        $obj->index_file((defined $index_file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4662	4764	
==>ative;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4662	4764	
==>ative;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4662	4764	
==>ative;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	648	770	
==>->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	549	671	
==>->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	382	534	
==>{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        la <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	382	534	
==>{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        la <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6557	6664	
==>nation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actuall <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6338	6440	
==>nation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actuall <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27444	27539	
==>ere the keys of C<$attrs> provide the names of the new attributes, and
the values provide values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31996	32091	
==>ere the keys of C<$attrs> provide the names of the new attributes, and
the values provide values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31079	31174	
==>ere the keys of C<$attrs> provide the names of the new attributes, and
the values provide values <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32022	32123	
==>cant Relation, and returns a new Relation that has the same heading
and whose body contains all of the <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33883	33984	
==>cant Relation, and returns a new Relation that has the same heading and
whose body contains all of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36572	36673	
==>cant Relation, and returns a new Relation that has the same heading
and whose body contains all of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38433	38534	
==>cant Relation, and returns a new Relation that has the same heading and
whose body contains all of the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8934	9096	
==>rule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14663	14825	
==>rule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8934	9096	
==>rule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14657	14819	
==>rule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12995	13147	
==>/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12995	13147	
==>/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	288	381	
==>kg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	288	381	
==>kg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12648	12748	
==>y_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12648	12748	
==>y_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12648	12748	
==>y_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3681	3863	
==>r->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3681	3863	
==>r->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3681	3863	
==>r->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5903	6038	
==>am} ) . ";\n" .
            " print " . '"\n"'
            if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{ <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	463	600	
==>ap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3143	3241	
==>ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3143	3241	
==>ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3143	3241	
==>ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	775	874	
==>p/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	775	874	
==>p/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	775	874	
==>p/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pai <==
4	/Users/nnunley/pugs/util/version_h.pl	2281	2375	
==>w revision number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/bui <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2404	2529	
==>he most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2404	2529	
==>he most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	29	122	
==>cumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	33	126	
==>cumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11340	11461	
==>cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11340	11461	
==>cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11340	11461	
==>cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	390	496	
==>DO

- The structure generated by concat() still looks like a tree, instead of a 'plain' Match.

- There <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	478	589	
==>->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	478	589	
==>->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3229	3333	
==>sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3229	3333	
==>sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5004	5139	
==>::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5004	5139	
==>::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5004	5139	
==>::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3217	3339	
==>emented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1254	1353	
==>n.  To
make it easier for programs to work with test results, we provide
Test::Harness::Straps.  Ins <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	762	870	
==>is may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kw <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	762	870	
==>is may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9562	9653	
==><$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9562	9653	
==><$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9846	9976	
==>xists $n->{exp2}{pointy_block} ) {
            return  " " . $n->{op1}{stmt} . 
                    ' my ' . _emit( $n->{exp2}{si <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7365	7491	
==>arser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8717	8843	
==>arser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19385	19511	
==>arser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14641	14741	
==>{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepar <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2122	2222	
==>{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1709	1820	
==>atch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
bl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1769	1880	
==>atch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15776	15881	
==>>;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10632	10737	
==>>;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	529	651	
==>makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->ma <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	430	552	
==>makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2057	2155	
==>->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and ali <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2057	2155	
==>->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and ali <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	136	236	
==>ib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before O <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	136	236	
==>ib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before O <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15998	16096	
==>e` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a l <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15998	16096	
==>e` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a l <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	911	1004	
==>ub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $un <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	911	1004	
==>ub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2400	2517	
==>op::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7425	7541	
==>tch->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7425	7541	
==>tch->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2320	2434	
==>op::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because w <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7031	7154	
==>e t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5532	5655	
==>e t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	607	716	
==>ure} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	813	922	
==>ure} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14816	14945	
==>ttrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18293	18422	
==>ttrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17709	17838	
==>ttrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.siz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	640	760	
==>rint "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	639	759	
==>rint "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	640	760	
==>rint "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	639	759	
==>rint "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1118	1241	
==>) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_add <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1118	1241	
==>) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_add <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25736	25831	
==>ta with non-free software components.

Any versions of Rosetta that you modify and distribute mu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25736	25831	
==>ta with non-free software components.

Any versions of Rosetta that you modify and distribute mu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12673	12803	
==>}
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12952	13082	
==>}
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cap <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9686	9784	
==>n0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9686	9784	
==>n0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3940	4060	
==>h (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($conte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3940	4060	
==>h (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($conte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3940	4060	
==>h (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($conte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9696	9808	
==>apture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
.
        $gen_match = "bless \\\$ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6161	6266	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6161	6266	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6161	6266	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8235	8340	
==>f [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8235	8340	
==>f [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30525	30621	
==>r each distinct "user
language" (or "user type") for each distinct Message; each file can be
shar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30525	30621	
==>r each distinct "user
language" (or "user type") for each distinct Message; each file can be
shar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6541	6681	
==>{
    my ($self, $env) = @_;
    $self->{next} = $env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=head1 NAME

closure - the co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2475	2588	
==>el];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2475	2588	
==>el];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2475	2588	
==>el];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6964	7116	
==>x = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11968	12120	
==>x = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6964	7116	
==>x = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11962	12114	
==>x = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2071	2231	
==>} @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2071	2231	
==>} @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21424	21521	
==>t, for example, your package could come with a set of user
messages, but another package or progra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21424	21521	
==>t, for example, your package could come with a set of user
messages, but another package or progra <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8314	8436	
==>elements that would have
been iterated.

=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5650	5749	
==>d1 Compiler processes



### separate "processes" from actual module documentation?



=head2 Gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5455	5550	
==>d1 Compiler processes

### separate "processes" from actual module documentation?

=head2 Gramma <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9520	9607	
==>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9520	9607	
==>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1790	1966	
==>ecking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.dela <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1790	1966	
==>ecking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.dela <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4765	4877	
==>x[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4765	4877	
==>x[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16049	16172	
==>},

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16049	16172	
==>},

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3386	3493	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._n <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3386	3493	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1795	1958	
==>param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1795	1958	
==>param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1153	1241	
==>:Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1373	1461	
==>:Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24341	24449	
==>rn $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20762	20870	
==>rn $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15735	15840	
==>de->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2132	2237	
==>de->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	971	1092	
==>$x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );
}

{
my $r = 
    concat( 
        alternation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	414	517	
==>t deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	414	517	
==>t deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	414	517	
==>t deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * n <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3812	3907	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4145	4240	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3812	3907	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4145	4240	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4654	4768	
==>0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4847	4961	
==>0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1018	1110	
==><'PUSH';
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Gr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13728	13895	
==>-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3853	4004	
==>-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3853	4004	
==>-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3853	4004	
==>-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6660	6768	
==>} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7668	7776	
==>} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3506	3641	
==>>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1864	1999	
==>>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2644	2779	
==>>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25276	25388	
==>.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunct <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7654	7759	
==>ert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the arr <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7654	7759	
==>ert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the arr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8038	8136	
==>pher to be deleted immediately.  This method should be as thorough as 
possible; for example, it sh <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8038	8136	
==>pher to be deleted immediately.  This method should be as thorough as 
possible; for example, it sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1150	1247	
==>ce!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1150	1247	
==>ce!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1150	1247	
==>ce!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7830	7932	
==>~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6960	7062	
==>~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7830	7932	
==>~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6960	7062	
==>~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2407	2548	
==>ed().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2407	2548	
==>ed().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4301	4413	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4494	4606	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	915	1061	
==>al(2),
		),
		result => 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sy <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1271	1379	
==>(Str $delimiter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $del <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	293	396	
==>=> [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	293	396	
==>=> [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18882	19004	
==>>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( sta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18882	19004	
==>>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( sta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18882	19004	
==>>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( sta <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16479	16589	
==>ression> <'!=='> <RelationalExpression>
}
rule EqualityExpressionNoIn :words {  # see 11.9
      <RelationalExp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4266	4359	
==>OUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4266	4359	
==>OUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4266	4359	
==>OUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4503	4657	
==>:alnum:]]$/ 
                && defined $$m->{tail}
                && $$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5587	5716	
==>itor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5587	5716	
==>itor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5587	5716	
==>itor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	576	723	
==>{
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	781	928	
==>{
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	837	984	
==>{
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6108	6220	
==>s to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6498	6610	
==>s to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22287	22385	
==>outines or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22287	22385	
==>outines or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3403	3526	
==>username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3403	3526	
==>username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26569	26663	
==>mpty or equal to
the invocant Relation's header, in which case it returns the identity-one
Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31121	31215	
==>mpty or equal to
the invocant Relation's header, in which case it returns the identity-one
Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2312	2437	
==>c    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2312	2437	
==>c    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2312	2437	
==>c    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2242	2377	
==>ew(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_ac <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2600	2735	
==>ew(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_ac <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12164	12258	
==>ode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papie <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12164	12258	
==>ode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papie <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23406	23548	
==>> ide("f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1033	1150	
==>param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1033	1150	
==>param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1033	1150	
==>param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22933	23051	
==>ir} < 0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3980	4076	
==>ner::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3980	4076	
==>ner::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3980	4076	
==>ner::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11959	12070	
==>_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub node::named_capture { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6757	6864	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6757	6864	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6757	6864	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5978	6086	
==>Postcircumfix::hash,
        %Pugs::Grammar::Ternary::hash,
    );
    $class->SUPER::recompile;

    # opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11726	11811	
==>p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11726	11811	
==>p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11726	11811	
==>p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2566	2815	
==>} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2566	2815	
==>} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4367	4509	
==>self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4507	4649	
==>self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3029	3167	
==>ring closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3213	3351	
==>ring closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1390	1498	
==>rgs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1390	1498	
==>rgs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1390	1498	
==>rgs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS. <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16190	16287	
==>($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: generic_in($.if) = { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12411	12520	
==>rg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::Ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12411	12520	
==>rg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::Ke <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	678	780	
==>/ :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_cl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	678	780	
==>/ :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_cl <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11556	11673	
==>h_content($text));
      
      my $link = {};
      $link->{linkfile} = $linkfile;
      $link->{linkhead} = $linkhea <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23045	23145	
==>e names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27597	27697	
==>e names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26374	26474	
==>e names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the val <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	517	623	
==>$r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times;

print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7956	8059	
==>) ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7686	7785	
==>) ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4542	4639	
==>class name for Point3D');

is($p3d->get_x, 5, '... got the right x for p3d');
is($p3d->get_y, 6, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15193	15392	
==>d($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15193	15392	
==>d($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15193	15392	
==>d($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a su <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26291	26387	
==>t to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> for this module <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12203	12301	
==>ed to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16783	16881	
==>ed to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12203	12301	
==>ed to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16783	16881	
==>ed to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6926	7070	
==>match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6698	6833	
==>match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7420	7569	
==>} @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7420	7569	
==>} @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7420	7569	
==>} @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $ele <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9174	9283	
==>X doens't check the AUTO flag yet for link management
    LINKING: {   
        my $alt = $self->remove_regist <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10020	10157	
==>list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10020	10157	
==>list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10020	10157	
==>list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = s <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3219	3322	
==>bout what to put in %*INC. it's not perfect.
    # When module return values are specced, we can make th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2802	2981	
==>boxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2802	2981	
==>boxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2802	2981	
==>boxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return B <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	663	762	
==>s';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unim <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	166	260	
==>$code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	222	316	
==>$code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	166	260	
==>$code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	222	316	
==>$code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9970	10094	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9970	10094	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9970	10094	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8446	8563	
==>te sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8446	8563	
==>te sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8446	8563	
==>te sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1621	1715	
==>urn $duration;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1018	1137	
==>~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1018	1137	
==>~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1018	1137	
==>~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9725	9841	
==>ty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9725	9841	
==>ty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9725	9841	
==>ty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27832	27921	
==>_COPY_DONE)
 #define RX_MATCH_COPIED_off(prog)	((prog)->reganch &= ~ROPT_COPY_DONE)
 #defi <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4555	4696	
==>und_floor($x);
    }
    elsif $x > 0 {
        $x_round = round_ceiling($x);
    }
    else {
        $x_round = 0;
    }

    return $x_roun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1651	1753	
==>"* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* War <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1651	1753	
==>"* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* War <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1651	1753	
==>"* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* War <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8666	8766	
==>set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7635	7735	
==>set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8666	8766	
==>set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7635	7735	
==>set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27838	27937	
==>e flag is going to be turned on, and false if
it's going to be turned off.  For C<(?i-s)>, C<FLAG_i> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4878	4973	
==>le contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4878	4973	
==>le contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7075	7170	
==>le contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6313	6415	
==>representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6313	6415	
==>representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12690	12842	
==>eneric method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12690	12842	
==>eneric method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1498	1604	
==>are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1498	1604	
==>are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1795	1912	
==>tered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class-> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1795	1912	
==>tered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class-> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	481	593	
==>nd == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $h <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	481	593	
==>nd == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $h <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19577	19686	
==>nt>
    | <IfStatement>
    | <IterationStatement>
    | <ContinueStatement>
    | <BreakStatement>
    | <Ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11795	11898	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11795	11898	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11795	11898	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $thi <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	366	460	
==>de>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be st <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	366	460	
==>de>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50200	50310	
==>$e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:authority'), $e->get('?$authority' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3664	3765	
==>f($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3664	3765	
==>f($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3664	3765	
==>f($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14318	14415	
==>20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14619	14712	
==>ULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14619	14712	
==>ULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14619	14712	
==>ULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4319	4467	
==>ntainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4319	4467	
==>ntainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4319	4467	
==>ntainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _( <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2198	2307	
==>ls{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_type = $type_lookup{$attr- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25218	25352	
==>n => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2433	2525	
==>JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2433	2525	
==>JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2433	2525	
==>JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10845	10967	
==>.
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10845	10967	
==>.
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10845	10967	
==>.
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retu <==
4	/Users/nnunley/pugs/util/drift.pl	333	430	
==>unless -d $dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $! <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	219	313	
==>w(:STD);

=head1 METHODS

=head2 $repo = JIB::Repository->new(...);

Required arguments:

=over <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5303	5441	
==>924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5303	5441	
==>924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1454	1562	
==>ss->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1454	1562	
==>ss->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9566	9667	
==>cts( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Span o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9566	9667	
==>cts( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Span o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10755	10853	
==>eyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10755	10853	
==>eyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21143	21238	
==>iled. This means that people who install your
module distribtution do not need to have the compi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21143	21238	
==>iled. This means that people who install your
module distribtution do not need to have the compi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21317	21402	
==>handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21317	21402	
==>handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logged <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3495	3650	
==>xt;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3495	3650	
==>xt;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 N <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7435	7557	
==>$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7435	7557	
==>$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11767	11889	
==>use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Du <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11767	11889	
==>use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Du <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2542	2638	
==>It also contains extra
information passed on by the HTTP server, useful to the authors of CGI scr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2542	2638	
==>It also contains extra
information passed on by the HTTP server, useful to the authors of CGI scr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3459	3566	
==>path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3459	3566	
==>path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3459	3566	
==>path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9148	9249	
==>b _switches {
    my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_switches( $Test: <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	13	125	
==>Anwendung von temp
my $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log "te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3289	3399	
==>:Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3289	3399	
==>:Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3289	3399	
==>:Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->p <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	268	366	
==>n't support args atm

## Chapter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	652	749	
==>f($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	652	749	
==>f($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	652	749	
==>f($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5694	5862	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5694	5862	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5694	5862	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0] <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2182	2286	
==>:/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	366	464	
==>{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment',      'PIL_En <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25932	26027	
==>> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30484	30579	
==>> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29459	29554	
==>> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3082	3216	
==>,
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3082	3216	
==>,
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3082	3216	
==>,
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.e <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5553	5664	
==>$child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5553	5664	
==>$child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23243	23342	
==>le>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27795	27894	
==>le>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17627	17793	
==>atcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17627	17793	
==>atcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17627	17793	
==>atcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($di <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14618	14831	
==>>.

=cut

my $Report_Re = <<'REGEX';
                 ^
                  (not\ )?               # failure?
                  ok\b
                  (?:\s+(\d+))?         # optional test number
                  \s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	84	184	
==>is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	84	184	
==>is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Com <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	83	180	
==>is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1660	1798	
==>f(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1660	1798	
==>f(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1660	1798	
==>f(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3214	3333	
==>d error($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1604	1721	
==>'Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1604	1721	
==>'Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1604	1721	
==>'Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    " <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	255	346	
==>CMAScript3::Grammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd," <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8160	8349	
==>sh @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset k <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8624	8813	
==>sh @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset k <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5171	5264	
==>ional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5171	5264	
==>ional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6695	6788	
==>ional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5305	5442	
==>ned' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5305	5442	
==>ned' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5305	5442	
==>ned' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5691	5784	
==>, ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_start(Rx), {re_reverse(Rx,R)}, ")". <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7717	7827	
==>chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7717	7827	
==>chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12655	12751	
==>s also used when the objects represent "chunks" of data, such as date objects without the time pa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12655	12751	
==>s also used when the objects represent "chunks" of data, such as date objects without the time pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16242	16378	
==>ping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19719	19855	
==>ping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19252	19388	
==>ping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
} <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2749	2859	
==>c::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2183	2284	
==>l already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2183	2284	
==>l already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2183	2284	
==>l already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	870	980	
==>$param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	870	980	
==>$param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14480	14586	
==>efined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14480	14586	
==>efined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7466	7614	
==>why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	55	156	
==>on = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	55	156	
==>on = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	55	156	
==>on = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3003	3179	
==>t
        my $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1278	1410	
==>&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1278	1410	
==>&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1278	1410	
==>&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8239	8425	
==>%:methods'))
                  ->exists($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	351	455	
==>first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	351	455	
==>first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	351	455	
==>first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9732	9839	
==>f "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9732	9839	
==>f "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9732	9839	
==>f "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	204	305	
==>e
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy » <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5972	6101	
==>f ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5972	6101	
==>f ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5972	6101	
==>f ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = ' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	510	609	
==>to that
Class' C<Type> object immediately; however, in the case of a Role, it
is not bound to a type <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19405	19523	
==>nting only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_);
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1312	1410	
==>_3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1312	1410	
==>_3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1312	1410	
==>_3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	172	270	
==>use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	172	270	
==>use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	172	270	
==>use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	998	1089	
==>ompile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPerl5::X1::BB:: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	957	1056	
==>is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1015	1114	
==>is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5784	6034	
==>$fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    re <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5784	6034	
==>$fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    re <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3145	3393	
==>$fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    re <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3145	3393	
==>$fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4228	4340	
==>}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4228	4340	
==>}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4228	4340	
==>}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arit <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28823	28923	
==>..ok
  All tests successful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5686	5996	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5686	5996	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3047	3356	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3047	3356	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3092	3209	
==>ed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            | <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3092	3209	
==>ed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4616	4733	
==>ed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            | <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	579	679	
==>cement = $r->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    return $self->SUPE <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	615	722	
==>')
    );

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::Basen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2902	3008	
==>e to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2902	3008	
==>e to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $conne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	520	618	
==>')
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Basen <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5723	6007	
==>ine {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5723	6007	
==>ine {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3084	3366	
==>ine {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3084	3366	
==>ine {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5209	5320	
==>ng => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8686	8797	
==>ng => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7706	7817	
==>ng => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9264	9356	
==>od semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12741	12833	
==>od semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5348	5460	
==>get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2890	3002	
==>get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3739	3851	
==>get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub nod <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26990	27101	
==>hmark qw(:all);
require "m02.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new() <==
4	/Users/nnunley/pugs/util/claim_drift.pl	244	344	
==>ld probably make this arrangement less hacky, but until
# we do, this "claims" DrIFT links.
#
# usage <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4470	4562	
==>ynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's simple too, and the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10727	10869	
==>essing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Ter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7068	7210	
==>essing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7917	8059	
==>essing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Ter <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1898	2012	
==>n run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not using some of the tokenizer rules.
#     So <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4396	4514	
==>\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4396	4514	
==>\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4396	4514	
==>\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8818	8914	
==>::nary', 'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2824	2925	
==>",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2824	2925	
==>",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2824	2925	
==>",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15	116	
==>o convert S29draft.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of Pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14885	14994	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off, @data) = @_;
    my $self = ble <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6712	6809	
==>ns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns H <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6712	6809	
==>ns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns H <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8909	9006	
==>ns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns H <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	173	290	
==>rate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3016	3126	
==>rt_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ / <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3016	3126	
==>rt_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ / <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	664	762	
==>ead1 NAME

Blondie::Runtime - Base class for execution system (compiler + interpreter or equivalent <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3508	3798	
==>xt;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3508	3798	
==>xt;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9045	9198	
==>= {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        return $match;

    }

}



1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8730	8875	
==>= {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        return $match;
    }
}

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8456	8566	
==>t   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.fo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	654	752	
==>t   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.fo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	654	752	
==>t   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2315	2461	
==>after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2562	2708	
==>after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    un <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1147	1242	
==>ver 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1200	1295	
==>ver 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5199	5328	
==>osed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5199	5328	
==>osed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5199	5328	
==>osed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == unde <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	396	495	
==>s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBuck <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	400	499	
==>s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBuck <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	396	495	
==>s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBuck <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	400	499	
==>s Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBuck <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6989	7129	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7182	7322	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4423	4550	
==>ule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . joi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4411	4538	
==>ule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13790	13886	
==>z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28617	28713	
==>class's ender is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of thi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13790	13886	
==>z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13790	13886	
==>z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5274	5450	
==>e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7036	7212	
==>e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21784	21886	
==>lue.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to hav <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26336	26438	
==>lue.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to hav <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3239	3388	
==>{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12615	12755	
==>$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8889	9029	
==>$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9724	9864	
==>$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14512	14684	
==>rn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14512	14684	
==>rn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14512	14684	
==>rn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descrip <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2448	2578	
==>st (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2448	2578	
==>st (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1258	1389	
==>-+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-------- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3554	3685	
==>-+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1258	1389	
==>-+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3554	3685	
==>-+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11099	11212	
==><name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11249	11362	
==><name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^' <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11277	11373	
==>ort`

These functions should work with most reg-exps, but given that they are still a
somewhat ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11335	11431	
==>ort`

These functions should work with most reg-exps, but given that they are still a
somewhat ex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12313	12421	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TY <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6880	6988	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TY <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12313	12421	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TY <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6880	6988	
==>fined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TY <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1613	1709	
==>tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, I <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1613	1709	
==>tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, I <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21714	21805	
==>er Independence>, and not I<Database Language
Independence>.  To further demonstrate the dif <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21714	21805	
==>er Independence>, and not I<Database Language
Independence>.  To further demonstrate the dif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7414	7515	
==>0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7414	7515	
==>0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7414	7515	
==>0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3176	3295	
==>sg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3176	3295	
==>sg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3176	3295	
==>sg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1094	1204	
==>ber' => sub { scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3416	3548	
==>{
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22360	22457	
==>that all of its class
and object methods will each return the same result when invoked on the
same <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26912	27009	
==>that all of its class
and object methods will each return the same result when invoked on the
same <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25635	25732	
==>that all of its class
and object methods will each return the same result when invoked on the
same <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2305	2470	
==>l
                    ? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1457	1556	
==>t class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1457	1556	
==>t class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1457	1556	
==>t class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1215	1312	
==>ds{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35232	35329	
==>al()Z and walk()Z<>.

However, we need to define our own qr() method, because we don't want
to hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1215	1312	
==>ds{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1215	1312	
==>ds{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8555	8679	
==>nc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6808	6913	
==>ormat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6808	6913	
==>ormat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6808	6913	
==>ormat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2024	2251	
==>@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5553	5655	
==>$main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5553	5655	
==>$main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5553	5655	
==>$main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join(" <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3545	3688	
==>';
    $values{name}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5316	5419	
==>};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5316	5419	
==>};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5316	5419	
==>};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15129	15247	
==>ink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't unlink '$file': $! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16842	16948	
==>n ordinary natural join,
    # where some source attributes are in common, and each
    # source has attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20319	20425	
==>n ordinary natural join,
    # where some source attributes are in common, and each
    # source has attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19897	20003	
==>n ordinary natural join,
    # where some source attributes are in common, and each
    # source has attrib <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5367	5535	
==>ame} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	644	771	
==>depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	644	771	
==>depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	644	771	
==>depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	449	642	
==>*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	449	642	
==>*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18282	18374	
==>",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18282	18374	
==>",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("logged <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9334	9439	
==>s to be generalized, and the anchor should only

###   work when needed (or if there is a switch telling s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9028	9132	
==>s to be generalized, and the anchor should only
###   work when needed (or if there is a switch telling s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20604	20703	
==>'> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <AssignmentExpress <==
4	/Users/nnunley/pugs/util/fixauthors.pl	427	560	
==>e($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	403	518	
==>y {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	403	518	
==>y {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	403	518	
==>y {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20791	20907	
==>RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17212	17328	
==>RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26175	26270	
==>However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26175	26270	
==>However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3269	3407	
==>atches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matches <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3164	3299	
==>atches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matches <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1852	1954	
==>e start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1852	1954	
==>e start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1607	1720	
==>}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2633	2744	
==>'values'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'valu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1285	1387	
==>bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1285	1387	
==>bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19018	19140	
==>output: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2580	2693	
==>hing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2580	2693	
==>hing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2580	2693	
==>hing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set . <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10402	10517	
==>E='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test. <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10402	10517	
==>E='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9725	9822	
==>method difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9725	9822	
==>method difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4658	4855	
==>ame: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	818	925	
==>e actually just accessor methods
as well.

=back

Note that methods are bound into the compiled Class (the T <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20149	20249	
==>te file, and adding a localization to a Mac OS X
program is as simple as adding a language file to th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20149	20249	
==>te file, and adding a localization to a Mac OS X
program is as simple as adding a language file to th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34590	34690	
==>ngth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34590	34690	
==>ngth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34590	34690	
==>ngth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22653	22748	
==>Example is like a Set that exists
over N dimensions rather than one.  The Relation::Example oper <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1996	2243	
==>%events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1996	2243	
==>%events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	1024	1134	
==>on 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[0]);
  re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15423	15523	
==>he header value is set.

=over 4

=item $h.date

This header represents the date and time at which th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15423	15523	
==>he header value is set.

=over 4

=item $h.date

This header represents the date and time at which th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	101	197	
==>{}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] ) <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	101	197	
==>{}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] ) <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	218	325	
==>{ true $var }

sub chomp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but newline( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33635	33739	
==>(C<\w>), nalnum (C<\W>)

Neg: 1 if negated

=head2 space

Family: space

Types: space (C<\s>), nspace (C< <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1081	1174	
==>quantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Ins <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1081	1174	
==>quantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Ins <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4573	4686	
==>bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4965	5078	
==>bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5476	5589	
==>bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5270	5410	
==>}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5270	5410	
==>}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5270	5410	
==>}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  X <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9216	9309	
==>omp_hook;
  previous_comp_hook = NULL;
}


END

#--------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7277	7380	
==>angle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7277	7380	
==>angle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7277	7380	
==>angle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	595	690	
==>>can("name") && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7032	7209	
==>y $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7032	7209	
==>y $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5590	5699	
==>the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5590	5699	
==>the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37883	37977	
==>matching every tuple of each source relation
with every tuple of each other source relation, th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42432	42526	
==>matching every tuple of each source relation
with every tuple of each other source relation, th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42082	42176	
==>matching every tuple of each source relation
with every tuple of each other source relation, th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35112	35205	
==>nce of array references, each representing one
alternation, holding any number of objects

Bra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39243	39363	
==>s}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39243	39363	
==>s}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39243	39363	
==>s}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3387	3530	
==>';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3387	3530	
==>';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3387	3530	
==>';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	809	940	
==>lled on @_";
    }

    sub str {
        Carp::croak "virtual method str called on @_";
    }

    my %DIGEST_CACHE;

    sub diges <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2024	2118	
==>if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2024	2118	
==>if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2024	2118	
==>if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10175	10272	
==>r> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10175	10272	
==>r> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1644	1740	
==>nal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1644	1740	
==>nal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15246	15379	
==>0];
    # print "postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        return _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1113	1225	
==>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1113	1225	
==>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1113	1225	
==>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31207	31309	
==>(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Parser';

  s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35336	35433	
==>ource Relations
have attributes in common; it will only accept inputs that would result in
a cross <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39886	39983	
==>ource Relations
have attributes in common; it will only accept inputs that would result in
a cross <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39446	39543	
==>ource Relations
have attributes in common; it will only accept inputs that would result in
a cross <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5113	5217	
==>rn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5113	5217	
==>rn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5113	5217	
==>rn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Eva <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23601	23689	
==>]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1] <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9180	9287	
==>ence = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_prope <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9180	9287	
==>ence = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_prope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11779	11960	
==>=> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11779	11960	
==>=> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11779	11960	
==>=> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

rol <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25237	25334	
==>nce are
printed.

=item C<FAILED tests %s\n\tFailed %d/%d tests, %.2f%% okay.>

For any single scr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6266	6360	
==>file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DES <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30676	30770	
==>tion has all of the tuples of the
original (or rather, the corresponding transformation of each <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6266	6360	
==>file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DES <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35227	35321	
==>tion has all of the tuples of the
original (or rather, the corresponding transformation of each <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	187	306	
==>args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , : <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	243	362	
==>args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	187	306	
==>args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	243	362	
==>args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , : <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7919	8042	
==>name"] = $S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2383	2474	
==>:Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2383	2474	
==>:Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2383	2474	
==>:Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6726	6839	
==>at = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warni <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1168	1275	
==>at = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warni <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1168	1275	
==>at = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warni <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1168	1275	
==>at = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22087	22180	
==>from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20968	21061	
==>from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mes <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22087	22180	
==>from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mes <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20968	21061	
==>from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the mes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30488	30583	
==>ked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35039	35134	
==>ked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34221	34316	
==>ked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9242	9365	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9435	9558	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alterna <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3434	3530	
==>nds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

W <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3434	3530	
==>nds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

W <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6314	6422	
==>if lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2135	2228	
==>"infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2135	2228	
==>"infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2135	2228	
==>"infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numbe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9140	9309	
==>::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12617	12786	
==>::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns R <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5106	5203	
==>m C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5106	5203	
==>m C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9891	9999	
==>dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	345	448	
==>up,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	345	448	
==>up,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	345	448	
==>up,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23730	23843	
==>eck_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28933	29030	
==>eck_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18596	18688	
==><not>
necessarily the names you specified in the constructor. For example,
this module automa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18596	18688	
==><not>
necessarily the names you specified in the constructor. For example,
this module automa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	578	714	
==>ns++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	578	714	
==>ns++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10463	10567	
==>ted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10463	10567	
==>ted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10599	10715	
==>e "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14076	14192	
==>e "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13375	13491	
==>e "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $oth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31169	31267	
==>e sub-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2239	2364	
==>oo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2239	2364	
==>oo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2586	2711	
==>oo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    ( <==
4	/Users/nnunley/pugs/util/package-osx.pl	2515	2613	
==>oc/pugs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1419	1535	
==>ant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1419	1535	
==>ant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1419	1535	
==>ant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4062	4164	
==>tchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1419	1538	
==>]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3] || ${$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3411	3512	
==>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3411	3512	
==>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3411	3512	
==>add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::o <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	219	314	
==>lti sub Array::push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @array.elem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6244	6337	
==>UB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6244	6337	
==>UB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6244	6337	
==>UB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2404	2501	
==>STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2404	2501	
==>STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2404	2501	
==>STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4566	4658	
==>difference won't matter for the spike target.

sub def_thing {
  my($aref,$match_hack,$name,$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3677	3778	
==>nfix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3591	3684	
==>te';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3591	3684	
==>te';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3591	3684	
==>te';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	91	192	
==>el Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $hausti <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	87	188	
==>el Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $hausti <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11192	11287	
==>t.

- `complement()`

Returns everything (from the universal set) that is not in this recurrence <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11192	11287	
==>t.

- `complement()`

Returns everything (from the universal set) that is not in this recurrence <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17988	18091	
==>,
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17988	18091	
==>,
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1547	1648	
==>ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1687	1788	
==>ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::R <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13395	13525	
==>l_links += $links;
  $total_files++;
  $outfile->print($template->output);
}

sub infest_syns {
    my $index = shift;

    my $p = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1092	1190	
==>s = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1092	1190	
==>s = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1092	1190	
==>s = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4534	4637	
==>iler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser ) <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	998	1100	
==>mpiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	998	1100	
==>mpiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4379	4479	
==>iler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser ) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3514	3684	
==>rion  $by = &infix:<cmp>,
                                              *@values
                             ) returns List
 multi sub Perl6::Lists::zip (; Array *@lists, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28497	28593	
==>apped, with
its keys being the new tuple-valued attribute names and each of its values
the set of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33049	33145	
==>apped, with
its keys being the new tuple-valued attribute names and each of its values
the set of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32177	32273	
==>apped, with
its keys being the new tuple-valued attribute names and each of its values
the set of <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4386	4529	
==>. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$basename', aborting...\n";
        }

        unl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11666	11769	
==>"'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11660	11763	
==>"'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25733	25843	
==>{  # see 15.10.1
      <ControlEscape>
    | <'c'> <ControlLetter>
    | <HexEscapeSequence>
    | <UnicodeEsca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18427	18522	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18427	18522	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18427	18522	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13195	13303	
==>ng non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16672	16780	
==>ng non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16034	16142	
==>ng non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21733	21820	
==>%sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);
}
sub p6_man <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2352	2462	
==>urn Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method da <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2352	2462	
==>urn Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method da <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6815	7072	
==>Sym->new('&infix:<+>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30616	30765	
==>y $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length + <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30616	30765	
==>y $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length + <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30616	30765	
==>y $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length + <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1161	1300	
==>les = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, $file or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2553	2650	
==>self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2553	2650	
==>self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2553	2650	
==>self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8414	8542	
==>_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assert <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13925	14053	
==>_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assert <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8414	8542	
==>_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assert <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13919	14047	
==>_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assert <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2437	2584	
==>>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2437	2584	
==>>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2437	2584	
==>>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8431	8537	
==>it_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7543	7675	
==>ivate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7543	7675	
==>ivate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7543	7675	
==>ivate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2836	2932	
==>2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, spa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4705	4801	
==>2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2836	2932	
==>2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4705	4801	
==>2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, spa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	804	946	
==>},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	786	919	
==>},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $para <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	786	919	
==>},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $para <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4525	4633	
==>mber_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4525	4633	
==>mber_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18500	18594	
==>aving a human being write out
that text themselves.

What Locale::KeyedText does is associate e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18500	18594	
==>aving a human being write out
that text themselves.

What Locale::KeyedText does is associate e <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5798	5894	
==>}
sub hlp_token {    def_token($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2154	2300	
==>& $args->{file}
                ? JIB::Package::Installable->Object::Accessor::new      :
            $args->{file}           
                ? JI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35419	35512	
==>sult in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39969	40062	
==>sult in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39529	39622	
==>sult in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cr <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3626	3748	
==>String $name, *@args) {
            $publisher.notify(Class::Events::Event::Named.new($name));
        }
    }
}

class Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9588	9675	
==>ding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9588	9675	
==>ding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9588	9675	
==>ding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1676	1867	
==>is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1676	1867	
==>is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1676	1867	
==>is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6939	7045	
==>{&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\x[0]") if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2385	2652	
==>ym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	710	801	
==>/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	710	801	
==>/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	710	801	
==>/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #pri <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4292	4412	
==>= 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4292	4412	
==>= 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35751	35844	
==>::Example in its C<$other> argument, where <$other> has the same heading as
the invocant Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37783	37876	
==>::Example
in its C<$other> argument, where <$other> has the same heading as the
invocant Relat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2326	2433	
==>< 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2326	2433	
==>< 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3613	3706	
==>"path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=h <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3613	3706	
==>"path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5099	5209	
==>UB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5099	5209	
==>UB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5099	5209	
==>UB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16773	16932	
==>{
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshif <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16773	16932	
==>{
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	687	787	
==>i submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	687	787	
==>i submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9030	9198	
==>", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9865	10033	
==>", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fin <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1426	1526	
==>in') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::M <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1348	1442	
==>in' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1091	1210	
==>er($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1923	2037	
==>er($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2063	2177	
==>er($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9400	9505	
==>($value);
    # Math::BigInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '10 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1492	1613	
==>ss( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] );
        return;
    }

    return $cwd <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1682	1784	
==>class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1887	1989	
==>class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1950	2052	
==>class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27594	27760	
==>$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13117	13214	
==>{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13117	13214	
==>{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13117	13214	
==>{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13437	13638	
==>ub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13437	13638	
==>ub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13437	13638	
==>ub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25385	25512	
==>st pass?
    sub SIZE_ONLY           { ! $_[0]{tree} }

    # the most recent addition to the tree
    sub LATEST :lvalue      { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3911	4031	
==>pc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3911	4031	
==>pc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3911	4031	
==>pc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13402	13517	
==>}

	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV);
	local @ENV{@keys} = ();
	# Untaint, plus take ou <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4409	4523	
==>~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # subst <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4409	4523	
==>~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # subst <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17554	17651	
==>PAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17554	17651	
==>PAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11600	11757	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11600	11757	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11600	11757	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10727	10833	
==>ce))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", !. %# XXX - not quite?
p6_char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12790	12917	
==>xed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12790	12917	
==>xed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12790	12917	
==>xed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15801	15900	
==>of the binding contains the env with the the symbols of our outer scope
let: new_env($$) = {
	my $or <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8083	8189	
==>d mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.mar <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8083	8189	
==>d mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.mar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2239	2340	
==>s);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAME}     = <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1345	1441	
==>s);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6524	6628	
==>ite as fancy as Test::More::like().

sub like   ($$@) { like_yn (0,@_) }; # 0 for -
sub unlike ($$@) { li <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8781	8925	
==>$fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->package )
                          ->fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3884	3980	
==>.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3884	3980	
==>.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3884	3980	
==>.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	490	606	
==>t')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	490	606	
==>t')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7755	7897	
==>ethod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8702	8844	
==>ethod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9661	9803	
==>ethod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11869	11961	
==>spec(R)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2168	2293	
==>rn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5139	5264	
==>rn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2168	2293	
==>rn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5139	5264	
==>rn '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4853	5008	
==>($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are withi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4853	5008	
==>($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are withi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21809	21903	
==>ence, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documenta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21809	21903	
==>ence, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documenta <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6587	6685	
==>};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_OPTA <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27423	27517	
==>rgument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31975	32069	
==>rgument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31058	31152	
==>rgument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6612	6702	
==>@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrigh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6612	6702	
==>@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrigh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6612	6702	
==>@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyrigh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10343	10459	
==>debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10343	10459	
==>debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	372	469	
==>($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the inpu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	372	469	
==>($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the inpu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2650	2756	
==>er (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2650	2756	
==>er (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3555	3650	
==>mes ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method sc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3555	3650	
==>mes ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method sc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4614	4746	
==>ildren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $rem <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4614	4746	
==>ildren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $rem <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3631	3750	
==>),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3824	3943	
==>),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30836	30939	
==>odule name; it
must be the same for every module in the same set as the current one.  The
Member Name co <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30836	30939	
==>odule name; it
must be the same for every module in the same set as the current one.  The
Member Name co <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4214	4315	
==>ne_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])} <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4214	4315	
==>ne_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7573	7671	
==>operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7573	7671	
==>operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3925	4022	
==>KAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3925	4022	
==>KAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibi <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6306	6407	
==>sub { -r $grub_local and -s $grub_local },
  using  => sub { getstore $grub_uri => $grub_local };

ste <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18171	18285	
==>]

.sub "p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7846	7953	
==>SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7846	7953	
==>SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7846	7953	
==>SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	5127	5224	
==>e::S26.3pm
        /usr/local/man/man3/Perl6::Bible::S27.3pm
        /usr/local/man/man3/Perl6::Bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	220	313	
==>.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	220	313	
==>.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	220	313	
==>.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1767	1867	
==>ed only for performance reasons,

# because they are too frequent and they are too slow using the bas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	370	469	
==>ed only for performance reasons,
# because they are too frequent and they are too slow using the bas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1695	1794	
==>ed only for performance reasons,
# because they are too frequent and they are too slow using the bas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	381	480	
==>ed only for performance reasons,
# because they are too frequent and they are too slow using the bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9871	10017	
==>am;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9871	10017	
==>am;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9871	10017	
==>am;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1554	1673	
==>od>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5460	5559	
==>intWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5460	5559	
==>intWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5460	5559	
==>intWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $j <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1080	1176	
==>dge would be
# unsustainable, and unsuitable for anything but throwaway code.
# However, the perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40731	40833	
==>g for sprintf().

=over 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	540	640	
==>> JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	540	640	
==>> JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	540	640	
==>> JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13120	13244	
==>nt "prefix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var n <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8327	8429	
==>{ &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(pars <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8327	8429	
==>{ &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1628	1788	
==>methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1628	1788	
==>methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1628	1788	
==>methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28286	28379	
==>se_module(library(time)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Kno <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8076	8182	
==>}
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7206	7312	
==>}
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8076	8182	
==>}
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7206	7312	
==>}
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9836	9958	
==>rson.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9836	9958	
==>rson.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_do <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12917	13015	
==>rating through the span range, the unit is added to the current value to get the next value.
The un <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12917	13015	
==>rating through the span range, the unit is added to the current value to get the next value.
The un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27452	27612	
==>( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27452	27612	
==>( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27452	27612	
==>( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tm <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18692	18785	
==>e core expects to avoid problems.  While simultaneously
trying to avoid triggering core behavi <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2982	3075	
==>e core expects to avoid problems.  While simultaneously
trying to avoid triggering core behavi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8832	8923	
==>:Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2657	2748	
==>:Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	472	583	
==>n because of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	472	583	
==>n because of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2976	3073	
==>ode &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3034	3131	
==>ode &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	410	509	
==>e BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	410	509	
==>e BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	410	509	
==>e BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't se <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6724	6815	
==>e($output_dir,"error.html");
open( my $error, '>', $error_file) or die "Failed to open $erro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3709	3823	
==>[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3893	4007	
==>[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=he <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4590	4696	
==>, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5075	5181	
==>, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12610	12715	
==>ents (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12610	12715	
==>ents (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2406	2521	
==>-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Gene <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2623	2738	
==>-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Gene <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3970	4070	
==>Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3970	4070	
==>Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23689	23812	
==>ine REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use sc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28904	29000	
==>ine REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3151	3274	
==>ms} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3151	3274	
==>ms} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3151	3274	
==>ms} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	342	475	
==>ft;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	336	469	
==>ft;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs } <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	420	519	
==>s ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined % <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	420	519	
==>s ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined % <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6795	6904	
==>2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6928	7015	
==>LES
## ----------------------------------------------------------------------------

# s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6928	7015	
==>LES
## ----------------------------------------------------------------------------

# s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6928	7015	
==>LES
## ----------------------------------------------------------------------------

# s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21182	21268	
==>osSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_member(E0,C,Set).

class_member(cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2257	2423	
==>undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# cre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5164	5268	
==>ram = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5164	5268	
==>ram = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5164	5268	
==>ram = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7853	7968	
==>ss exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11852	11964	
==>ss exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11852	11964	
==>ss exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	792	898	
==>] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type eq 'ARRAY' an <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3782	3906	
==>ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3782	3906	
==>ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1739	1839	
==>ot, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1797	1897	
==>ot, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	524	633	
==>$qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	524	633	
==>$qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	524	633	
==>$qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Per <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13082	13182	
==>nly some forms of redefinition
  make its magic not stick.

  The implementation is at best an XS-bas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5799	5942	
==>n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5799	5942	
==>n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	522	618	
==>_END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	522	618	
==>_END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3039	3188	
==>=~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3039	3188	
==>=~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3039	3188	
==>=~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($li <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	976	1074	
==>::signature;

use strict;
use warnings;

use base 'closure::signature';

package method::params;

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3820	3917	
==>ngs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3820	3917	
==>ngs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3820	3917	
==>ngs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if ( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21615	21703	
==>->data[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define chec <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4335	4467	
==>ends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4393	4525	
==>ends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        T <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26963	27068	
==>ument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26963	27068	
==>ument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3535	3658	
==>$S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1874	1994	
==>s "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1874	1994	
==>s "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1874	1994	
==>s "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # y <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13667	13792	
==>e HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_sr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	742	836	
==>cessor methods
for variables.

=item *

unbound private attributes, which are actually just acc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8977	9096	
==>$list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8977	9096	
==>$list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8977	9096	
==>$list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2466	2569	
==>urn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2466	2569	
==>urn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2466	2569	
==>urn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1963	2057	
==>tility is a thin wrapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor the <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3135	3253	
==>ef as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3135	3253	
==>ef as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15615	15730	
==>ion.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion ( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19092	19207	
==>ion.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	171	309	
==>attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	171	309	
==>attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	171	309	
==>attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	773	877	
==>ve all empty seqences
        my @nonemptyseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @seqs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3024	3142	
==>s = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3024	3142	
==>s = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3024	3142	
==>s = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $se <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	146	255	
==>$guess);
}

sub approxfprime(Code $f, Num $x) {
    my Num $delta = 0.1;
    return ($f($x + $delta) - $f($x - <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	885	994	
==>atfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1759	1868	
==>atfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	885	994	
==>atfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1759	1868	
==>atfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7298	7436	
==>ments
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file => $_ . ".h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25884	25984	
==>e> to a scalar, makes it work (!).

B<These functions can only work if called with ampersands, and on <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5251	5346	
==>turns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5251	5346	
==>turns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7448	7543	
==>turns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
tes <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2097	2217	
==>n::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4316	4436	
==>n::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2097	2217	
==>n::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4316	4436	
==>n::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5128	5231	
==>ie;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$aref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	385	486	
==>URCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	385	486	
==>URCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	385	486	
==>URCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9866	9972	
==>spatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9866	9972	
==>spatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9866	9972	
==>spatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1894	2064	
==>>
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2099	2269	
==>>
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2162	2332	
==>>
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {}, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14891	14996	
==>->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type of the parameter with the ty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10872	11045	
==>exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11151	11324	
==>exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	665	761	
==>_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	723	819	
==>_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7689	7850	
==>ete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2006	2141	
==>ete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2006	2141	
==>ete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2006	2141	
==>ete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23945	24056	
==>.  This rule applies to servers too - they must not send
  any error reply back to the client on receipt of a no <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22718	22829	
==>.  This rule applies to servers too - they must not send
  any error reply back to the client on receipt of a no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23945	24056	
==>.  This rule applies to servers too - they must not send
  any error reply back to the client on receipt of a no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22718	22829	
==>.  This rule applies to servers too - they must not send
  any error reply back to the client on receipt of a no <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	40	142	
==>r::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5431	5525	
==>f course, this feature is not available
when linking to a standalone JavaScript file.

Recommen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5431	5525	
==>f course, this feature is not available
when linking to a standalone JavaScript file.

Recommen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5431	5525	
==>f course, this feature is not available
when linking to a standalone JavaScript file.

Recommen <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1613	1722	
==>ck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install check
    if( $inst->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11343	11436	
==>methods are used
because they will not get inherited. This provides more predictable 
behavior <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11343	11436	
==>methods are used
because they will not get inherited. This provides more predictable 
behavior <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11343	11436	
==>methods are used
because they will not get inherited. This provides more predictable 
behavior <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6426	6529	
==>ferer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6426	6529	
==>ferer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21320	21422	
==>ispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44227	44329	
==>ispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')- <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	512	628	
==>kg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
    my ($self, $cmd) = @_;
    # XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7677	7779	
==>t>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7677	7779	
==>t>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7677	7779	
==>t>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub ma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3641	3793	
==>ft;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $en <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4105	4257	
==>ft;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $en <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10858	10952	
==>Note that in this instance, the information about how many members
were actually new is discard <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10858	10952	
==>Note that in this instance, the information about how many members
were actually new is discard <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7248	7346	
==>$head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7248	7346	
==>$head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7248	7346	
==>$head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2255	2368	
==>return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2255	2368	
==>return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2255	2368	
==>return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8685	8797	
==>anch;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40784	40892	
==>RMSG, ARGS...)

Throws a warning I<only> during the first pass over the regex.

=item $parser->awarn(RPe_ERRM <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2141	2289	
==>}

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { & <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2141	2289	
==>}

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { & <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	913	1012	
==>IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	913	1012	
==>IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10010	10145	
==>rtCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14760	14889	
==>->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14760	14889	
==>->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14760	14889	
==>->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2416	2528	
==>->type->to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->isa('nil') && $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	573	671	
==>delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	573	671	
==>delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	573	671	
==>delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	507	706	
==>p::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	508	707	
==>p::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	906	1001	
==>onfig::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	836	925	
==>onfig::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2087	2266	
==>rns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2087	2266	
==>rns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug St <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16731	16841	
==>r this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16731	16841	
==>r this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1005	1119	
==>$!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1005	1119	
==>$!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1156	1270	
==>defined in $name $prec";
        $nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*? <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26591	26691	
==>s pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	424	569	
==>IB::Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; my $meta;
    my $tmpl = {
        file    => { required = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20041	20131	
==>{ p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20041	20131	
==>{ p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20041	20131	
==>{ p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6559	6672	
==>e { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6559	6672	
==>e { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6559	6672	
==>e { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6626	6735	
==>e and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6626	6735	
==>e and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	713	808	
==>ES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	713	808	
==>ES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6275	6432	
==>n~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6333	6490	
==>n~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20216	20304	
==>ler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20216	20304	
==>ler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8970	9091	
==>"
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12447	12568	
==>"
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!bo <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3359	3459	
==>me/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take nam <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3359	3459	
==>me/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1984	2135	
==>h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	298	449	
==>h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1984	2135	
==>h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1984	2135	
==>h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run p <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	262	358	
==>0, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLen <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	262	358	
==>0, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLen <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	876	961	
==>erl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjun <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	876	961	
==>erl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjun <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	112	216	
==>p 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $name, $type) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12679	12764	
==>e PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12679	12764	
==>e PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12679	12764	
==>e PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11033	11140	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11033	11140	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11033	11140	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $k <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27130	27227	
==>faults it to False.

=back

This is the main Relation::Example constructor method:

=over

=item C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11924	12051	
==>ub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11924	12051	
==>ub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11924	12051	
==>ub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Conta <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5738	5859	
==>ne {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pugs::Internals::VRule does Rule {}
cla <==
4	/Users/nnunley/pugs/util/version_h.pl	2197	2315	
==>$revision\n";
  close OUT;

  if ($revision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13492	13596	
==>SIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13492	13596	
==>SIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13492	13596	
==>SIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14222	14324	
==>ol chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14222	14324	
==>ol chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3444	3543	
==>Text itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3444	3543	
==>Text itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Keyed <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	78	183	
==>urn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	78	183	
==>urn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	78	183	
==>urn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	56	155	
==>etaModel;

1;

__END__

module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1052	1163	
==>= $self->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6092	6183	
==>et = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6092	6183	
==>et = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6092	6183	
==>et = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4769	4898	
==>ndef;
        foreach my $method_name ($role->get_method_list) {
            # if we already have the method, then
            # i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1771	1894	
==>sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1771	1894	
==>sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1771	1894	
==>sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6058	6192	
==>(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6058	6192	
==>(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18809	18904	
==>pared to
support (such as modification of the compiled re op tree the native
compiler creates, b <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3099	3194	
==>pared to
support (such as modification of the compiled re op tree the native
compiler creates, b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2747	2900	
==>0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $fl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2657	2805	
==>0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $fl <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3612	3711	
==>te.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that ep <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3612	3711	
==>te.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that ep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8405	8522	
==>tyle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8405	8522	
==>tyle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8405	8522	
==>tyle lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/util/grokprims.pl	1317	1415	
==>".join(', ', map {"\$$_"} @{$op->{args}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4227	4337	
==>Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4227	4337	
==>Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4227	4337	
==>Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($par <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4053	4157	
==>5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @fields;
    my %field_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5116	5214	
==>, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass callin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7784	7882	
==>, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass callin <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13230	13325	
==>w that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named paramete <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13288	13383	
==>w that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named paramete <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	469	582	
==>_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	469	582	
==>_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15033	15128	
==>Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15033	15128	
==>Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nodes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2088	2341	
==>ss Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # External packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1535	1656	
==>y $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1535	1656	
==>y $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1535	1656	
==>y $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6278	6398	
==>ifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5351	5471	
==>ifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6278	6398	
==>ifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5351	5471	
==>ifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2408	2562	
==>nboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2408	2562	
==>nboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2408	2562	
==>nboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1541	1662	
==>l = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1541	1662	
==>l = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1541	1662	
==>l = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3631	3747	
==>XXX invoke build code here

    ### build an archive file
    my $archive = $path . $conf->archive_ext;
    {   my $d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9520	9639	
==>e_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9520	9639	
==>e_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30285	30386	
==>me before the text
is shown to the user.

Each Template module ideally comes as part of a set, at leas <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30285	30386	
==>me before the text
is shown to the user.

Each Template module ideally comes as part of a set, at leas <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	139	261	
==>.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glo <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	139	261	
==>.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3329	3423	
==>lass Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Va <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3329	3423	
==>lass Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12485	12617	
==>r, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2861	2983	
==>r, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2861	2983	
==>r, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4795	4903	
==>tive) {
        # warn "calling equal_to on " . $left->fetch($i)->name->to_native . ' => ' . $left->fetch($i) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1540	1652	
==>tal O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1540	1652	
==>tal O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18375	18484	
==>in", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18375	18484	
==>in", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3118	3225	
==>atch, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method altern <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3118	3225	
==>atch, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method altern <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3087	3177	
==>re_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3145	3235	
==>re_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24158	24267	
==>d_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20579	20688	
==>d_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or retur <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	294	398	
==>lace.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	294	398	
==>lace.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use H <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11189	11295	
==>this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11189	11295	
==>this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11189	11295	
==>this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	399	486	
==>Rule->compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3083	3186	
==>ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3083	3186	
==>ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4607	4710	
==>ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5084	5182	
==>\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	764	864	
==>JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	764	864	
==>JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	764	864	
==>JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predecl <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	142	232	
==>o?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.l <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	131	219	
==>o?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.l <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	98	186	
==>o?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	33	148	
==>nce;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2204	2312	
==>Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2204	2312	
==>Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2204	2312	
==>Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20334	20483	
==>),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									fun => ide("sub"),
									pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	726	822	
==>at now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	726	822	
==>at now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	726	822	
==>at now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebl <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12589	12703	
==>{ ... }
    method current () { ... }
}

# Support for =$fh
class IO does Iter {
    method shift   () is primitive <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	111	219	
==>};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub c_files {
	warn "c_files has bee <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7656	7795	
==>exists $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	925	1050	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	925	1050	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	925	1050	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", " <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	747	853	
==>ad1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	747	853	
==>ad1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1092	1184	
==>plementary functions are emulated using iterations.

- `new( closure_next => sub {...}, closu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1092	1184	
==>plementary functions are emulated using iterations.

- `new( closure_next => sub {...}, closu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3470	3556	
==>/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowi <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1349	1435	
==>n. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN- <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3470	3556	
==>/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1189	1275	
==>n. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN- <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	812	961	
==>s -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	812	961	
==>s -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4035	4138	
==>thod intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4035	4138	
==>thod intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $se <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1165	1269	
==>dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $dir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1165	1269	
==>dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $dir <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3647	3747	
==>ch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tom <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3647	3747	
==>ch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tom <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4026	4164	
==>ap:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4026	4164	
==>ap:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4550	4682	
==>ap:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4550	4682	
==>ap:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined % <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14821	14958	
==>off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14821	14958	
==>off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14821	14958	
==>off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@res <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3165	3302	
==>off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@res <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	254	371	
==>$string'),
			App(
				Sym('&printf'),
				Sym('$handle'),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3840	3945	
==>rators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3840	3945	
==>rators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3840	3945	
==>rators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3219	3381	
==>Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( ' <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3219	3381	
==>Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( ' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10656	10772	
==>n.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10656	10772	
==>n.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24085	24193	
==>) );
	is($type->stringify, "∀α. α → int", "pretty print a -> b where b = int");
}
{
	my $a = type::vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3695	3780	
==>C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3695	3780	
==>C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3695	3780	
==>C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitio <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2198	2298	
==>{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2176	2276	
==>{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3543	3634	
==>n-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $g <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3543	3634	
==>n-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12980	13091	
==>' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12980	13091	
==>' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12980	13091	
==>' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	305	410	
==>ew($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	718	871	
==>((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3789	3942	
==>((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	718	871	
==>((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3789	3942	
==>((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	118	260	
==>use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	160	302	
==>use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	118	260	
==>use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	160	302	
==>use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+ <==
4	/Users/nnunley/pugs/t/packages/Test.pm	278	411	
==>kg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my package My::Package {
        sub pkg { $?PACKAGE }
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	326	420	
==>IL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Ea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	326	420	
==>IL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Ea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	326	420	
==>IL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Ea <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	108	203	
==>ocs (optional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7459	7570	
==>::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7459	7570	
==>::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7459	7570	
==>::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name') <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	613	714	
==>' called on @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime - Base class for execut <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10815	10912	
==>not
given, then that header field will remain unchanged.

The old value (or values) of the last of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10815	10912	
==>not
given, then that header field will remain unchanged.

The old value (or values) of the last of <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2101	2197	
==>s / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2190	2286	
==>s / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3775	3996	
==>ookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3775	3996	
==>ookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2022	2108	
==>w/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Uti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	54	139	
==>w/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scalar::Uti <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7701	7928	
==>ep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_nam <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7701	7928	
==>ep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_nam <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5678	5786	
==>}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUti <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5160	5268	
==>}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUti <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2327	2422	
==>ine utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing lis <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2327	2422	
==>ine utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing lis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14255	14349	
==>d who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WH <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14255	14349	
==>d who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WH <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	985	1098	
==>h )
  {
    print "$desc: empty\n";
  }
}

sub addToken {
  my ($self, $name, $relativePrecedence, $options, $matc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35979	36077	
==>merged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
The b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40529	40626	
==>merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40143	40240	
==>merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2595	2721	
==>> $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2595	2721	
==>> $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2595	2721	
==>> $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	483	594	
==>me => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2079	2190	
==>oggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	393	504	
==>oggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2079	2190	
==>oggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2079	2190	
==>oggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2108	2223	
==>ram', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12738	12841	
==>ULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12738	12841	
==>ULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12738	12841	
==>ULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2196	2318	
==>Expr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2196	2318	
==>Expr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5366	5485	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5559	5678	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	568	723	
==>turn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	561	716	
==>turn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3933	4036	
==>e::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3933	4036	
==>e::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Loca <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1654	1768	
==>{equiv};
    }
  }

  my $noWhitespace = 0;
  $noWhitespace = 1 if ((index $options, "nows") >= 0);

  #print "name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	728	816	
==>elude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	728	816	
==>elude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	728	816	
==>elude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4962	5075	
==>lf.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4962	5075	
==>lf.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10214	10353	
==>->new(
            closure::params->new(
                symbol->new("&dispatcher", q<block>)
            ), 
            returns => q<metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3938	4034	
==>* Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3938	4034	
==>* Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3938	4034	
==>* Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	74	173	
==>use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	74	173	
==>use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	74	173	
==>use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7612	7709	
==>s  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::values (@array ; MatchT <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1235	1358	
==>new
        source.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7923	8032	
==>ointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7923	8032	
==>ointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7923	8032	
==>ointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7086	7191	
==>difier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1426	1525	
==>difier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1426	1525	
==>difier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1426	1525	
==>difier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18383	18513	
==>params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21642	21772	
==>params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41648	41778	
==>params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44549	44679	
==>params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8436	8670	
==>$element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8436	8670	
==>$element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8436	8670	
==>$element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNI <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4781	4917	
==>.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | <'return'>
    | <'void'>
    | <' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1459	1571	
==>e PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1459	1571	
==>e PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1459	1571	
==>e PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7645	7749	
==>f($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4698	4822	
==>failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1183	1288	
==>ody =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2057	2162	
==>ody =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	568	666	
==>ody =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22294	22388	
==>channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specifie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21166	21260	
==>channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specifie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22294	22388	
==>channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specifie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21166	21260	
==>channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specifie <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24975	25094	
==>ew,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4316	4415	
==>KE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4316	4415	
==>KE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4316	4415	
==>KE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3078	3423	
==>($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages u <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3078	3423	
==>($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14579	14684	
==>hannel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14579	14684	
==>hannel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	745	871	
==>thorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method No <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	745	871	
==>thorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method No <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12233	12327	
==>>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12233	12327	
==>>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1317	1419	
==>nd {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1317	1419	
==>nd {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1317	1419	
==>nd {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7471	7599	
==>])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7471	7599	
==>])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7471	7599	
==>])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1264	1371	
==>::join (Str $delimiter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8885	9018	
==>riting: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	619	752	
==>riting: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8885	9018	
==>riting: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8885	9018	
==>riting: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13646	13788	
==>);
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	567	699	
==>);

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	567	699	
==>);

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	567	699	
==>);

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12312	12445	
==>->new(
		grep { $_->free_vars }
			map { $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8796	8909	
==>()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8796	8909	
==>()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8796	8909	
==>()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16951	17102	
==>ore_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13372	13523	
==>ore_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2105	2213	
==>> $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = " <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2105	2213	
==>> $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = " <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9950	10074	
==>icular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7890	8014	
==>icular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9950	10074	
==>icular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7890	8014	
==>icular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18678	18810	
==>~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1054	1145	
==>nd $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1054	1145	
==>nd $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1054	1145	
==>nd $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4438	4542	
==>IL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4438	4542	
==>IL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4438	4542	
==>IL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14540	14664	
==>ess $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14540	14664	
==>ess $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14540	14664	
==>ess $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1633	1747	
==>e( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an arrayref of files installed by t <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1585	1689	
==>ects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COP <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1585	1689	
==>ects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COP <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	741	842	
==>Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	799	900	
==>Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $des <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9827	9950	
==>f, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$st a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9798	9919	
==>e = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9798	9919	
==>e = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9798	9919	
==>e = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - el <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1548	1665	
==>x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1548	1665	
==>x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1548	1665	
==>x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	597	701	
==>} 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

sub greater_than { $_[ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9527	9720	
==>when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9527	9720	
==>when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6202	6313	
==>annels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6202	6313	
==>annels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.d <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12318	12435	
==>{
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8548	8647	
==>NV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8548	8647	
==>NV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8548	8647	
==>NV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9257	9358	
==>alar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9257	9358	
==>alar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9257	9358	
==>alar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28247	28339	
==>warnings enabled.

=item C<HARNESS_VERBOSE>

If true, Test::Harness will output the verbose r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	508	685	
==>ype = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	508	685	
==>ype = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	508	685	
==>ype = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	341	463	
==>ndef, $value) = @_;
    (defined $value            && 
     looks_like_number($value) && 
     ($value == 1 || $value == 0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1775	1900	
==>ready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1775	1900	
==>ready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1775	1900	
==>ready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1236	1338	
==>erload::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s . <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4180	4278	
==>$chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<obj <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4180	4278	
==>$chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<obj <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2277	2374	
==>vated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of the <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2277	2374	
==>vated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8202	8379	
==>s! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements! <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2745	2848	
==>est::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2745	2848	
==>est::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2825	2928	
==>est::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7798	7899	
==>etaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7798	7899	
==>etaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7798	7899	
==>etaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27496	27590	
==>defined or an empty Set, the
Relation::Example has zero attributes.  If C<$body> is undefined o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	480	587	
==>rithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	484	591	
==>rithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	480	587	
==>rithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	484	591	
==>rithm::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9390	9544	
==>md eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14934	15088	
==>md eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9390	9544	
==>md eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14928	15082	
==>md eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4980	5086	
==>$self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4980	5086	
==>$self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4980	5086	
==>$self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2096	2193	
==>every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile(q( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7907	8047	
==>atch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7907	8047	
==>atch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7907	8047	
==>atch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_ar <==
4	/Users/nnunley/pugs/util/func_refact.pl	2310	2427	
==>$cand\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22691	22794	
==>($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22691	22794	
==>($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22691	22794	
==>($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0, <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2168	2270	
==>gs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21776	21898	
==>@statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22055	22177	
==>@statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22387	22550	
==>aram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22387	22550	
==>aram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22387	22550	
==>aram );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALA <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1729	1832	
==>, tuck it into the pugs distribution
somewhere with test files, and do objective 1 above.

If anyone wou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2875	2969	
==>rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2875	2969	
==>rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2875	2969	
==>rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2812	2911	
==>ft, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2812	2911	
==>ft, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22506	22600	
==>eract with the outside
environment at all.

A Relation object has 2 main attributes (implementa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27058	27152	
==>eract with the outside
environment at all.

A Relation object has 2 main attributes (implementa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24191	24303	
==>supported
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12740	12843	
==>TI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12740	12843	
==>TI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12740	12843	
==>TI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	42	142	
==>ler::Rule::VERSION = '0.06';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1799	1898	
==>, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1799	1898	
==>, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1799	1898	
==>, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10133	10230	
==>-------------------------------------------  
    # collects all the roles, and applies them to th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10133	10230	
==>-------------------------------------------  
    # collects all the roles, and applies them to th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10133	10230	
==>-------------------------------------------  
    # collects all the roles, and applies them to th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2784	2877	
==>'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",ma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6236	6329	
==>'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2784	2877	
==>'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2784	2877	
==>'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",ma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5074	5186	
==>e =~ s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
packa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5455	5565	
==>$obj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1998	2095	
==>r, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1998	2095	
==>r, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5174	5299	
==>sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6442	6567	
==>sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5174	5299	
==>sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6430	6555	
==>sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6926	7078	
==>l')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6926	7078	
==>l')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6926	7078	
==>l')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	252	360	
==>se (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = su <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	252	360	
==>se (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = su <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	252	360	
==>se (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = su <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	252	360	
==>se (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5527	5635	
==>ient-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5527	5635	
==>ient-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6526	6633	
==>quested template module is already loaded.
        # It may have been embedded in a core program file and he <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6526	6633	
==>quested template module is already loaded.
        # It may have been embedded in a core program file and he <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3148	3274	
==>f $inblock;
#    print "}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = sl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28709	28805	
==>es that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33261	33357	
==>es that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32389	32485	
==>es that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4029	4149	
==>rn "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	235	352	
==>ically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	235	352	
==>ically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	235	352	
==>ically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOn <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	217	360	
==>) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	217	360	
==>) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	821	949	
==>been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	821	949	
==>been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2112	2237	
==>||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2112	2237	
==>||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2112	2237	
==>||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $le <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26752	26857	
==>om> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	723	817	
==>nt, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	723	817	
==>nt, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	723	817	
==>nt, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13195	13293	
==>{ die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13195	13293	
==>{ die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13195	13293	
==>{ die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {... <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4967	5101	
==>v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8180	8291	
==>tplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  { <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	395	496	
==>tplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	395	496	
==>tplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11522	11641	
==></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var name=pugs_versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2194	2306	
==>code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2194	2306	
==>code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2194	2306	
==>code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1340	1474	
==>}
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signatu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3062	3174	
==>mitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3062	3174	
==>mitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3062	3174	
==>mitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8786	8894	
==>Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8786	8894	
==>Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25885	25977	
==>ant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30437	30529	
==>ant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate at <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	288	386	
==>server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_wi <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	288	386	
==>server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3475	3576	
==>od, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3475	3576	
==>od, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3475	3576	
==>od, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9312	9402	
==>-----------------------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::St <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16571	16680	
==>";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16571	16680	
==>";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20684	20784	
==>you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ': <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20684	20784	
==>you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ': <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10349	10467	
==>, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	336	439	
==>PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	336	439	
==>PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	336	439	
==>PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5112	5240	
==>o =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $r <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5436	5564	
==>o =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7245	7367	
==>sponse) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $ver <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7245	7367	
==>sponse) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $ver <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9339	9461	
==>le_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9532	9654	
==>le_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1745	1835	
==>pt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext versio <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1745	1835	
==>pt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext versio <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26297	26396	
==>alue can be anything at
all.  Note that while the Hash itself is copied on input and output, any
var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26297	26396	
==>alue can be anything at
all.  Note that while the Hash itself is copied on input and output, any
var <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9071	9165	
==>class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_h <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9071	9165	
==>class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3922	4079	
==>->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3922	4079	
==>->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3922	4079	
==>->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	113	215	
==>rs qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub cc_file <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5757	5836	
==>28+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$de <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5947	6026	
==>28+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5757	5836	
==>28+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5947	6026	
==>28+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	314	432	
==>ny {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	314	432	
==>ny {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $matc <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1486	1583	
==>sing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1486	1583	
==>sing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4779	4896	
==>tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4972	5089	
==>tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9585	9693	
==>te_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9585	9693	
==>te_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	481	667	
==>|| \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3207	3319	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3207	3319	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3207	3319	
==>var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1046	1152	
==>kage( $self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4067	4165	
==>g>);

This class method constructs a new cipher object.  The options passed to the 
C<new> construc <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4067	4165	
==>g>);

This class method constructs a new cipher object.  The options passed to the 
C<new> construc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	97	191	
==>stream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	97	191	
==>stream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19923	20032	
==>s_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
sub inpath_to_outpath {
    my $inpa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27809	27906	
==>s a
value that is optionally a calculation using original attribute values as
inputs.  As a trivia <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32361	32458	
==>s a
value that is optionally a calculation using original attribute values as
inputs.  As a trivia <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31453	31550	
==>s a
value that is optionally a calculation using original attribute values as
inputs.  As a trivia <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8058	8183	
==>13) {
      SV* pat;
      long nparens;
      SV* exec_callback_sub;
/*      fprintf(stderr,"api 13\n");*/
      if(ret != 4) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4277	4370	
==>the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=ite <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4277	4370	
==>the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6474	6567	
==>the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33707	33801	
==>$other!) returns Relation>

This method is a generic relational operator that takes a single Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34475	34569	
==>$other!) returns Relation>

This method is a generic relational operator that takes a single Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38257	38351	
==>$other!) returns Relation>

This method is a generic relational operator that takes a single Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39025	39119	
==>$other!) returns Relation>

This method is a generic relational operator that takes a single Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4203	4305	
==>)." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   C <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4203	4305	
==>)." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   C <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4203	4305	
==>)." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	121	216	
==>ile-base;
use File::Basename;
use Pugs::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dirname(__FIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17841	17957	
==>A, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20721	20837	
==>A, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24509	24625	
==>A, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1480	1580	
==>'NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22302	22402	
==>=E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21174	21274	
==>=E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22302	22402	
==>=E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21174	21274	
==>=E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1698	1799	
==>"Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1698	1799	
==>"Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1698	1799	
==>"Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	847	941	
==>XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	847	941	
==>XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6060	6151	
==>head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event:: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6060	6151	
==>head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7819	7947	
==>Exp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7819	7947	
==>Exp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7819	7947	
==>Exp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	457	569	
==>assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	898	993	
==>d(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	898	993	
==>d(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	898	993	
==>d(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24446	24543	
==>>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appending <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24446	24543	
==>>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appending <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2362	2456	
==>ize && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $othe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2362	2456	
==>ize && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $othe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14632	14823	
==>1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18109	18300	
==>1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17525	17716	
==>1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pus <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	388	492	
==>.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is sha <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5326	5516	
==>ck new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7088	7278	
==>ck new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4414	4505	
==>ON

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4414	4505	
==>ON

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3531	3653	
==>k => sub { ... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => 'infix',
  );

    my $rule = Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13568	13665	
==>UB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13568	13665	
==>UB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13568	13665	
==>UB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10805	10936	
==>ass1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10805	10936	
==>ass1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10805	10936	
==>ass1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23168	23266	
==>ression :words {  # see clause 13
      <'function'> <Identifier>? <'('> <FormalParameterList>? <') <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11861	11976	
==>n2 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3650	3748	
==>ay));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3650	3748	
==>ay));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3650	3748	
==>ay));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Ro <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7111	7232	
==>=> chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7111	7232	
==>=> chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6643	6746	
==>\"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6643	6746	
==>\"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %user <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4560	4661	
==>e` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4560	4661	
==>e` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28604	28699	
==>define any "Template" modules, but it expects you
to make modules having a specific simple API t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28604	28699	
==>define any "Template" modules, but it expects you
to make modules having a specific simple API t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2271	2378	
==>",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2271	2378	
==>",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2271	2378	
==>",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17697	17793	
==>string, then performing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is banned i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6765	6867	
==>_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6765	6867	
==>_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6765	6867	
==>_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3f <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19207	19295	
==>,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24880	24992	
==>= '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21301	21413	
==>= '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2845	2943	
==>ean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> availabl <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2845	2943	
==>ean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> availabl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1850	1957	
==>other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the co <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1850	1957	
==>other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9124	9227	
==>e Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9182	9285	
==>e Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7528	7626	
==>ates that there is no more incoming data, and the remaining data should be 
padded and ciphered.  ( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7528	7626	
==>ates that there is no more incoming data, and the remaining data should be 
padded and ciphered.  ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5773	5868	
==>hannels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<J <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5773	5868	
==>hannels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11082	11223	
==>n bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11082	11223	
==>n bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11082	11223	
==>n bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3654	3770	
==>srStack = [];
  #XXX
  my $operator;
  expect_term:
  goto null_term if $position >= $lastPosition;
 
  my $currentTe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7774	7860	
==>Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1599	1685	
==>Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	229	337	
==>("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	229	337	
==>("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	229	337	
==>("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refere <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	704	801	
==>Value;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::Undefined is JSX::ValuePrimitive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5010	5162	
==>S;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5010	5162	
==>S;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5010	5162	
==>S;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4562	4675	
==>"is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fail" clashes with Te <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6264	6365	
==>t($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5394	5495	
==>t($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6264	6365	
==>t($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5394	5495	
==>t($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	608	702	
==>tem B<$.output>

The filehandle to which to write all normal output (test results and
descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	608	702	
==>tem B<$.output>

The filehandle to which to write all normal output (test results and
descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1164	1258	
==>tem B<$.output>

The filehandle to which to write all normal output (test results and
descripti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	135	227	
==>ire 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4425	4544	
==>lass;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4425	4544	
==>lass;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4425	4544	
==>lass;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1872	1974	
==>:Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11102	11264	
==>$self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11102	11264	
==>$self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11102	11264	
==>$self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10949	11052	
==>xrc, and welcome.p6 to the initrd",
    help   => "Note: You might want to strip pugs and parrot to save <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11369	11480	
==>f = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "exact";
  }

  sub data {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4378	4487	
==>trs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7855	7964	
==>trs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6839	6948	
==>trs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return R <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	560	675	
==>,
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelude->env- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2923	3021	
==>fix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2923	3021	
==>fix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2923	3021	
==>fix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6348	6454	
==>$path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8416	8522	
==>$path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6348	6454	
==>$path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8416	8522	
==>$path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13044	13153	
==>or} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13044	13153	
==>or} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13044	13153	
==>or} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $disp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5187	5290	
==>rimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5187	5290	
==>rimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5187	5290	
==>rimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
M <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30642	30740	
==>reas Koenig, we don't know. What we know for
sure is, that it was inspired by Larry Wall's TEST scr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8716	8872	
==>ce attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8716	8872	
==>ce attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8716	8872	
==>ce attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3739	3831	
==>ERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-MExtUtils::Command::MM")!"-I../../inc" " <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8106	8235	
==>RangeError if $Result12 != ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	974	1095	
==>deref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	974	1095	
==>deref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	974	1095	
==>deref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had t <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	580	668	
==>-------------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# -- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	603	691	
==>--------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3216	3302	
==>method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3216	3302	
==>method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	108	212	
==>ole

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psy <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	108	212	
==>ole

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psy <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	108	212	
==>ole

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psy <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18676	18774	
==>he class), set the
C<strict> attribute to 2; the class above would render as C<[\w:]>.

=back

=hea <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12630	12915	
==>$canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percent => 100*(sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2790	2898	
==>ERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtim <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2790	2898	
==>ERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtim <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3951	4048	
==>ied under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Ciph <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8661	8758	
==>c " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: St <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3951	4048	
==>ied under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Ciph <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8661	8758	
==>c " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: St <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1056	1173	
==>/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * incl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1036	1153	
==>/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * incl <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1056	1173	
==>/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * incl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1036	1153	
==>/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * incl <==
4	/Users/nnunley/pugs/util/func_refact.pl	2336	2444	
==>exists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scala <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14213	14302	
==>e('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14213	14302	
==>e('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14213	14302	
==>e('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2343	2455	
==>. "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2343	2455	
==>. "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2343	2455	
==>. "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3902	4012	
==>$self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3902	4012	
==>$self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3902	4012	
==>$self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13660	13769	
==>s => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2250	2355	
==>[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2250	2355	
==>[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2250	2355	
==>[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8313	8432	
==>y $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8313	8432	
==>y $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8313	8432	
==>y $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4937	5063	
==>or the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4937	5063	
==>or the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4937	5063	
==>or the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1079	1195	
==>er::Perl6::Perl5::emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 e <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2994	3095	
==>\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\lib';
    $Config{sit <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19941	20035	
==>re mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional ob <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24493	24587	
==>re mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional ob <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23045	23139	
==>re mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional ob <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1677	1803	
==>rams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1677	1803	
==>rams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1857	1955	
==>e 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1857	1955	
==>e 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4 <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7490	7605	
==>le=FILE, -o  Store results in FILE [default: $Config{"output-file"}]
    --dry, -n               Show which tests wo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	978	1102	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq " <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	978	1102	
==>ion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	454	561	
==>finitions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definitio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	430	534	
==>finitions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definitio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6958	7162	
==>$?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10435	10639	
==>$?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9554	9758	
==>$?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2917	3013	
==>::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4569	4820	
==>e cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4569	4820	
==>e cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15450	15547	
==>ver 4

=item $h.date

This header represents the date and time at which the message was
originated <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15450	15547	
==>ver 4

=item $h.date

This header represents the date and time at which the message was
originated <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2226	2322	
==>e;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_name> \;[ [< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1720	1811	
==>XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1720	1811	
==>XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1720	1811	
==>XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
s <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1695	1807	
==>n}, "pugs$config->{exe_ext}");

    ($config->{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1589	1675	
==>L2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1589	1675	
==>L2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1589	1675	
==>L2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3510	3612	
==>ear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p');

is( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1589	1687	
==>pec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1589	1687	
==>pec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1589	1687	
==>pec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2654	2791	
==>class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2654	2791	
==>class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2654	2791	
==>class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6832	6947	
==>ompile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2649	2760	
==>'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module im <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2649	2760	
==>'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module im <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2996	3107	
==>'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module im <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1699	1811	
==>Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5176	5288	
==>Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4106	4218	
==>Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1621	1725	
==>is older than template
    '$config_template'.  I will merge them in memory, but
    you may wish to chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3185	3287	
==>eturncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3185	3287	
==>eturncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3185	3287	
==>eturncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $re <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1815	1941	
==>tr is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add su <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1815	1941	
==>tr is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add su <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	345	445	
==>apYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 3 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	345	445	
==>apYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 3 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4441	4574	
==>"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13260	13387	
==>";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13260	13387	
==>";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13260	13387	
==>";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => In <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16819	16975	
==>$bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16819	16975	
==>$bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8111	8215	
==>utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8111	8215	
==>utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	825	924	
==>erl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	825	924	
==>erl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	85	184	
==>:Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as arg <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	80	175	
==>:Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as arg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2249	2379	
==>age.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2249	2379	
==>age.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21547	21638	
==>databases before, especially given that the Perl DBI purports to provide
"Database Independe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21547	21638	
==>databases before, especially given that the Perl DBI purports to provide
"Database Independe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	269	383	
==>macros:

    macro quote:<qX> (*%adverbs) {...}

=head1 See also

S02

=cut

# TODO - implement the "magi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2575	2671	
==>"S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2575	2671	
==>"S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2575	2671	
==>"S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9143	9247	
==>re" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9143	9247	
==>re" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3221	3340	
==>de _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3221	3340	
==>de _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3802	3915	
==>de _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3802	3915	
==>de _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6551	6668	
==>s already loaded.
        # It may have been embedded in a core program file and hence
        # should never be loade <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6551	6668	
==>s already loaded.
        # It may have been embedded in a core program file and hence
        # should never be loade <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3409	3500	
==>onstructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$dat <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3409	3500	
==>onstructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$dat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	414	526	
==>ess $_[0], "Blondie::Val" }
}

sub reduce {
    my $self = shift;
    my $node = shift;

    if ($self->can_reduc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	414	508	
==>=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	414	508	
==>=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	970	1064	
==>=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCR <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20616	20771	
==>"mul"),
								param => ide("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun => comb(
				fun => ide("fac' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28698	28792	
==>tribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33250	33344	
==>tribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32378	32472	
==>tribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15086	15264	
==>') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15086	15264	
==>') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15086	15264	
==>') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, fo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7182	7297	
==>c_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design docu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4369	4511	
==>lf->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4509	4651	
==>lf->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	610	742	
==>pture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	586	712	
==>pture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	273	385	
==>taModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	273	385	
==>taModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	273	385	
==>taModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => un <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22404	22501	
==>flexible place to allocate large data
which Perl_re_dup() will copy for us.

    New(0, ret->offse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1362	1478	
==>n, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1362	1478	
==>n, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1362	1478	
==>n, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bod <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5961	6073	
==>r')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22379	22516	
==>) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18800	18937	
==>) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S-> <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1411	1512	
==>r $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-885 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1411	1512	
==>r $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-885 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5372	5488	
==>l",
    (map { $smoke{$_}          } qw<pugs_version pugs_revision osname runcore timestamp duration>),
    (map { $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4899	5003	
==>f == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4899	5003	
==>f == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4899	5003	
==>f == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $lab <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4831	5011	
==>mes' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4831	5011	
==>mes' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_nam <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8800	8895	
==>item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event pr <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8800	8895	
==>item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event pr <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5330	5486	
==>cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contig <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5330	5486	
==>cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contig <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1507	1623	
==>of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1507	1623	
==>of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1824	1935	
==>{ () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1824	1935	
==>{ () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1824	1935	
==>{ () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9828	9965	
==>umber      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $descr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	402	531	
==>umber      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $descr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	402	531	
==>umber      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $descr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8571	8698	
==>0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2245	2407	
==>.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   Bool      pre     exists  safe   (rw!Array: Int)\
multi method Array::exists (@array : Int *@ind <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	48	162	
==>e File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	53	167	
==>e File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	53	167	
==>e File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc. <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2328	2459	
==>{ $file->{events} }) {
            my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{more_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	286	382	
==>t?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	286	382	
==>t?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	286	382	
==>t?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is prim <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4145	4266	
==>bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Ou <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4145	4266	
==>bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Ou <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6585	6702	
==>py { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	next if $created{$pkg};
	$code .= "package $pkg <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11335	11438	
==>sy to use, unidirectional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17120	17214	
==>LTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17120	17214	
==>LTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17120	17214	
==>LTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0, <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1109	1233	
==>lib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $posta <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1109	1233	
==>lib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $posta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1394	1510	
==>?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1394	1510	
==>?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3344	3459	
==>":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3344	3459	
==>":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3344	3459	
==>":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2816	2928	
==>it => 1)) if $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	340	443	
==>s hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define clas <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	340	443	
==>s hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define clas <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13373	13466	
==>er refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named pack <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13373	13466	
==>er refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named pack <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14409	14519	
==>ule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <UnaryExpression>
    | <'v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3319	3419	
==>,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3319	3419	
==>,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3319	3419	
==>,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18224	18321	
==>of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18224	18321	
==>of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from w <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2452	2573	
==>XX extract to $Builddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4433	4524	
==>d reblesses them into
New::Namespace. This completely overrides whatever blessing they had
b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4433	4524	
==>d reblesses them into
New::Namespace. This completely overrides whatever blessing they had
b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4433	4524	
==>d reblesses them into
New::Namespace. This completely overrides whatever blessing they had
b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10451	10550	
==>lready inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($obje <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10451	10550	
==>lready inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32991	33087	
==>nto which that object falls.

This is very sparse.  Future versions will have more complete
docum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	244	345	
==>rn boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	244	345	
==>rn boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	244	345	
==>rn boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13941	14036	
==>ti Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14788	14891	
==>ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14788	14891	
==>ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14788	14891	
==>ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13884	14004	
==>ven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13884	14004	
==>ven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12954	13070	
==>ven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12954	13070	
==>ven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13690	13815	
==>( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13690	13815	
==>( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13690	13815	
==>( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5619	5708	
==>snt do <-<metacharacter>> yet.
rule simple_character  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9149	9257	
==>(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1948	2054	
==>essively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.ne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1948	2054	
==>essively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9888	9998	
==>ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9888	9998	
==>ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9888	9998	
==>ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10976	11100	
==>ass_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10976	11100	
==>ass_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10976	11100	
==>ass_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1478	1605	
==>added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALLA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7782	7881	
==>_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7782	7881	
==>_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7782	7881	
==>_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2873	2990	
==>\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1632	1737	
==>porting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is defined in P <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	543	640	
==>p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$l <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	543	640	
==>p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5962	6086	
==>]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5962	6086	
==>]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5962	6086	
==>]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	113	225	
==>);

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node unless $self->can_reduce($node);

	if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1891	2012	
==>er requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1891	2012	
==>er requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1891	2012	
==>er requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4504	4616	
==>ew metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexte <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2109	2246	
==>$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$(INST_ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1021	1121	
==>(see above)
# all so that we can parse a scheme-like syntax 
# with Attribute Grammers (stolen from H <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2845	2943	
==>y support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2845	2943	
==>y support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	47	168	
==>ass HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	47	168	
==>ass HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28347	28440	
==>of running
its tests.  Setting C<$Test::Harness::verbose> will override this,
or you can use t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4289	4392	
==>lf.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4289	4392	
==>lf.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4289	4392	
==>lf.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self). <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15701	15797	
==>::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
    local $m0->{$name} = [@{$m0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4664	4762	
==>_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data($_ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6808	6902	
==>ile)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6808	6902	
==>ile)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6115	6261	
==>.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6935	7081	
==>.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6115	6261	
==>.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6935	7081	
==>.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11692	11817	
==>node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12050	12175	
==>node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	666	785	
==>rn $self->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6921	7013	
==>ype::operator::nullary->new("int");
	$self;
}


package types;

use Class::Multimethods::Pure <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7121	7242	
==>arams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7121	7242	
==>arams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7121	7242	
==>arams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy} <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12685	12779	
==>expectedly succeeded"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td><span tit <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	218	324	
==>= 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	291	397	
==>= 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8944	9037	
==>iteral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2769	2862	
==>iteral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1913	2065	
==>LV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1913	2065	
==>LV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1913	2065	
==>LV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&J <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5577	5712	
==>on
        my @alts = @{ $self->registered_alternatives };
        
        ### check if we're the 'prefered' package
        my $link_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2827	2929	
==>ram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2827	2929	
==>ram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2827	2929	
==>ram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4260	4361	
==>ly(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4260	4361	
==>ly(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4260	4361	
==>ly(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1809	1898	
==>:Harness::runtests(@tests)> runs all the testscripts named
as arguments and checks standar <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	899	1025	
==>tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %par <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	641	767	
==>tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %par <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	899	1025	
==>tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %par <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	641	767	
==>tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %par <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17970	18120	
==>any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for the above (if any)
            };

Element 0 of the det <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3175	3289	
==>al $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3392	3506	
==>al $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $in <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12308	12412	
==><HexDigit>
}
rule HexDigit {  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpres <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2127	2252	
==>ule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2267	2392	
==>ule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $g <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15367	15460	
==>identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15367	15460	
==>identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4055	4159	
==>$fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4055	4159	
==>$fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4055	4159	
==>$fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1083	1182	
==>>add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1083	1182	
==>>add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1506	1599	
==>value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1506	1599	
==>value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10025	10132	
==>= $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $ifthen->{data} = [ [ @{ $ifthen->{data} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6103	6205	
==>::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6103	6205	
==>::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6103	6205	
==>::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2211	2302	
==>eturn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2211	2302	
==>eturn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2211	2302	
==>eturn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5941	6072	
==>f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5941	6072	
==>f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5941	6072	
==>f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(. <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5601	5716	
==>private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | < <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5015	5116	
==>->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1598	1699	
==>->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40700	40794	
==>t is by no means required, the copyright holders of
Locale::KeyedText would appreciate being in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40700	40794	
==>t is by no means required, the copyright holders of
Locale::KeyedText would appreciate being in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35229	35324	
==>c binary relational operator that is identical
to C<join> except that this method will fail if a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39779	39874	
==>c binary relational operator that is identical
to C<join> except that this method will fail if a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39339	39434	
==>c binary relational operator that is identical
to C<join> except that this method will fail if a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4301	4414	
==>oin('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5622	5735	
==>oin('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpol <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4301	4414	
==>oin('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpol <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5610	5723	
==>oin('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpol <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5236	5367	
==>et;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3736	3867	
==>et;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offs <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	518	626	
==>..}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	518	626	
==>..}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16825	16948	
==>ing
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Exa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29424	29519	
==>o other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33976	34071	
==>o other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33140	33235	
==>o other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3144	3267	
==>rn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3144	3267	
==>rn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14116	14219	
==>);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_di <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17593	17696	
==>);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	838	942	
==>tless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	838	942	
==>tless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	838	942	
==>tless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cla <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4753	4853	
==>oes not provide POSIX features absent
   from an MSYS build. If you wish to fix this please refer to: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2676	2774	
==>AGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::Backend: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2169	2262	
==>.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2169	2262	
==>.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2169	2262	
==>.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	700	807	
==>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	700	807	
==>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	700	807	
==>{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEX <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3121	3239	
==>sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3121	3239	
==>sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($even <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1174	1271	
==>rint &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1170	1262	
==>rint &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4463	4560	
==>he test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Per <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4463	4560	
==>he test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Per <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2541	2638	
==>ository on the filesystem. Wipes out an existing one with the
same root path if it exists.

Return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4543	4640	
==>he test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Per <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3576	3808	
==>ine;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_lin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3576	3808	
==>ine;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1464	1559	
==>\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1464	1559	
==>\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1464	1559	
==>\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6610	6721	
==>tById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6610	6721	
==>tById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6610	6721	
==>tById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burn <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	291	391	
==>_;
my $num_commits;
my @commits;
my @developers;
my %devs_seen;

print STDERR <<INFO unless @ARGV;
Pi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6924	7049	
==>isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6924	7049	
==>isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3184	3285	
==>art => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3184	3285	
==>art => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mos <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1526	1650	
==>r | Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List {
   g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	96	184	
==>erl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	283	371	
==>erl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	470	558	
==>erl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13234	13334	
==>ime() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic see <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13234	13334	
==>ime() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic see <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4580	4728	
==>e satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{versi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5044	5192	
==>e satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{versi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2901	3003	
==>d_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2901	3003	
==>d_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18508	18628	
==>ng from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14929	15049	
==>ng from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  } <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4053	4149	
==>:size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4053	4149	
==>:size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21821	22123	
==>until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44728	45007	
==>until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41825	42079	
==>until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            }
        ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10246	10424	
==>ms->new(
                symbol->new("&dispatcher", q<block>)
            ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1537	1635	
==>6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1537	1635	
==>6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1537	1635	
==>6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21545	21642	
==>sym)).
class_member(class_pos(X)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_member( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4919	5046	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15955	16082	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17443	17570	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22126	22253	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	662	781	
==>( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6180	6299	
==>( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	662	781	
==>( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6192	6311	
==>( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28386	28486	
==>bute values are escaped and you shouldn't try to
extract them.  This method is also defined as the im <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35742	35842	
==>bute values are escaped and you shouldn't try to
extract them.  This method is also defined as the im <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28386	28486	
==>bute values are escaped and you shouldn't try to
extract them.  This method is also defined as the im <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35742	35842	
==>bute values are escaped and you shouldn't try to
extract them.  This method is also defined as the im <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1653	1756	
==>tr( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1857	1960	
==>tr( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8857	8952	
==>string.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handle <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8857	8952	
==>string.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handle <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8021	8170	
==>);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8033	8182	
==>);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2794	2890	
==>ile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaratio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2794	2890	
==>ile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaratio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1072	1233	
==>);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1072	1233	
==>);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21802	21894	
==>ks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21802	21894	
==>ks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5484	5582	
==>IPTION

This module provides an implementation for Perl 6 Rule categories.  

The module is still v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18307	18407	
==>a::Model and other Perl code such as persistence
solutions.  Moreover, these data structures are in e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18307	18407	
==>a::Model and other Perl code such as persistence
solutions.  Moreover, these data structures are in e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13212	13311	
==>a::Model and other Perl code such as persistence solutions.
Moreover, these data structures are in e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13212	13311	
==>a::Model and other Perl code such as persistence solutions.
Moreover, these data structures are in e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21807	21901	
==>tf8

=head1 NAME

Relation::Example -
Simple in-memory implementation of the Relation role

=he <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28751	28844	
==>pping> value set members do not match invocant
Relation attribute names, or duplicate any othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33303	33396	
==>pping> value set members do not match invocant
Relation attribute names, or duplicate any othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	962	1096	
==>base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	962	1096	
==>base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	962	1096	
==>base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unle <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6457	6555	
==>perl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch | <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2153	2260	
==>+= ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_ch <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2153	2260	
==>+= ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2541	2642	
==>> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3496	3597	
==>> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	311	410	
==>?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	311	410	
==>?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	311	410	
==>?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7374	7501	
==>d ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7374	7501	
==>d ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7374	7501	
==>d ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6322	6412	
==>n(",",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2090	2194	
==>y for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2090	2194	
==>y for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2090	2194	
==>y for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30462	30555	
==>t_all_but (Set of Str $attrs!) returns Relation::Example>

This method is the same as C<projec <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4624	4761	
==>$s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4624	4761	
==>$s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4624	4761	
==>$s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.fr <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2118	2215	
==>ocessing, too.

=head2 C<run()>

Enter the main runloop.

=head1 AUTHOR

Ingo Blechschmidt C<< <ib <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4962	5078	
==>cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7310	7406	
==>copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7310	7406	
==>copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7310	7406	
==>copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3777	3951	
==>out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22178	22275	
==>s.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not decla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22178	22275	
==>s.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not decla <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	624	719	
==>ate methods, including the signatures of these
methods

=item *

unbound public attributes, whic <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3370	3511	
==>t";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4219	4360	
==>t";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5323	5444	
==>' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5323	5444	
==>' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13367	13503	
==>ass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13367	13503	
==>ass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13367	13503	
==>ass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9199	9293	
==>()" }
NODE VBool ($value) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VR <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1030	1130	
==>lopers;

# Collect commits in days
# E.g. $commits_till_day[42] = 1500 (1500 commits from day 1 to da <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3527	3651	
==>e {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4844	4968	
==>e {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3527	3651	
==>e {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4832	4956	
==>e {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - wha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8484	8676	
==>y based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8948	9140	
==>y based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1834	1933	
==>ual($self: Set $other) returns Bool {

    # for some reason, directly returning this expression doe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1834	1933	
==>ual($self: Set $other) returns Bool {

    # for some reason, directly returning this expression doe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2732	2872	
==>attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2732	2872	
==>attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2732	2872	
==>attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # Th <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6188	6297	
==>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_litera <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17202	17308	
==>other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20679	20785	
==>other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20257	20363	
==>other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $! <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27834	27927	
==>), "((int × int) × (str × int))", ":t (length_and_first ['foo'], length_and_first [1])");
i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6413	6506	
==>die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5486	5579	
==>die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6413	6506	
==>die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5486	5579	
==>die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9075	9175	
==>ams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $k <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9075	9175	
==>ams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $k <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39031	39129	
==>t is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39031	39129	
==>t is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1861	1955	
==>}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1861	1955	
==>}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1861	1955	
==>}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)= <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5594	5680	
==>rrentOperatorTable->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTab <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	781	896	
==>tive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	781	896	
==>tive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	781	896	
==>tive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2J <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	29	127	
==>Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role does NameSpa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22421	22587	
==>alar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22421	22587	
==>alar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22421	22587	
==>alar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1075	1194	
==>_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25510	25629	
==>}
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1075	1194	
==>_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1075	1194	
==>_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2j <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5251	5363	
==>n) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # So <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5251	5363	
==>n) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # So <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26048	26145	
==>n.  Each variable name is a machine-readable short
string; the allowed variable names you can have <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26048	26145	
==>n.  Each variable name is a machine-readable short
string; the allowed variable names you can have <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5239	5381	
==>'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' 
                || $ast->{stmt} eq 'method') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6200	6337	
==>b \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6200	6337	
==>b \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6200	6337	
==>b \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->nam <==
4	/Users/nnunley/pugs/util/addauthors.pl	1549	1671	
==>ast if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13287	13389	
==>IL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        las <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13287	13389	
==>IL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        las <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13287	13389	
==>IL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        las <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	562	675	
==>($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	827	940	
==>($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	562	675	
==>($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	827	940	
==>($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2989	3087	
==>func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compar <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3047	3145	
==>func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compar <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19405	19502	
==>e what text the user
sees, you only have to update said separate resource files, and not change
yo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19405	19502	
==>e what text the user
sees, you only have to update said separate resource files, and not change
yo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2040	2158	
==>hunk(
            Stub("&func is not really implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelud <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37719	37817	
==>nd merged.  The heading of the new relation is the union of
all the headings of the source relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42268	42366	
==>nd merged.  The heading of the new relation is the union of
all the headings of the source relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41918	42016	
==>nd merged.  The heading of the new relation is the union of
all the headings of the source relation <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14068	14165	
==>k routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended " <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14068	14165	
==>k routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34595	34691	
==>rgument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39145	39241	
==>rgument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12500	12603	
==>yLiteral>
    | <ObjectLiteral>
    | <'('> <Expression> <')'>
}
rule ArrayLiteral :words {  # see 11.1. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	511	612	
==>) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	511	612	
==>) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	511	612	
==>) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1319	1440	
==>and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1319	1440	
==>and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1319	1440	
==>and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.po <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	413	514	
==>lue => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->new((s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1376	1499	
==>sif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12054	12168	
==>pan.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, b <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12054	12168	
==>pan.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2430	2529	
==>$c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2430	2529	
==>$c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23982	24073	
==>Heading and
Body attributes are set respectively from the optional named parameters
C<$headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28534	28625	
==>Heading and
Body attributes are set respectively from the optional named parameters
C<$headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27365	27456	
==>Heading and
Body attributes are set respectively from the optional named parameters
C<$headi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2072	2218	
==>{ 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6965	7077	
==>where(), $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, _where(), @_);
}

sub curr_tes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22979	23077	
==>n; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27531	27629	
==>n; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	947	1057	
==>ub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitter::Pretty- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12994	13101	
==>contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12994	13101	
==>contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12994	13101	
==>contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30003	30150	
==>('?$order');
                
                $order = str->new(':ascendant') # C3 is the canonical order
                    if $order == $nil::NIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2127	2206	
==>*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2127	2206	
==>*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2127	2206	
==>*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	546	642	
==>or: $self->{file} does not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16144	16237	
==>:Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16144	16237	
==>:Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16144	16237	
==>:Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	512	623	
==>]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8779	8889	
==>]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8779	8889	
==>]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8779	8889	
==>]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	464	570	
==>avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8731	8836	
==>avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    op <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8731	8836	
==>avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    op <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8731	8836	
==>avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6480	6599	
==>ex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2268	2373	
==>.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2268	2373	
==>.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2268	2373	
==>.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6056	6210	
==>f: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6876	7030	
==>f: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6056	6210	
==>f: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6876	7030	
==>f: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	338	438	
==>vious version, but the complexity is the same.

TODO

- The structure generated by concat() still <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3363	3454	
==>});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3363	3454	
==>});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3363	3454	
==>});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class. <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7991	8105	
==>t I<$file>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_comm <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2598	2697	
==>s mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2598	2697	
==>s mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2678	2777	
==>s mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6515	6654	
==>cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6307	6439	
==>cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable m <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	322	448	
==>nd not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to t <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	322	448	
==>nd not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30371	30470	
==>of any children of the object.

=item $obj->walk()

"Walks" the object.  This is used to dive into t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4162	4254	
==>s parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4162	4254	
==>s parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6359	6451	
==>s parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10172	10477	
==>es is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3516	3924	
==>nterface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3516	3924	
==>nterface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21162	21258	
==>ssing a value of C<undef> to header() or any of the convenience
methods, does not delete that fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21162	21258	
==>ssing a value of C<undef> to header() or any of the convenience
methods, does not delete that fie <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1343	1450	
==>or 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	363	470	
==>or 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8819	8926	
==>or 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5083	5182	
==>my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") <==
4	/Users/nnunley/pugs/util/package-osx.pl	8660	8780	
==>y $orig (keys %change_files) {
        my $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7513	7662	
==>) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7513	7662	
==>) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7513	7662	
==>) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Va <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4692	4789	
==>rule a_dot  { \. }
rule logical_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN] <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3403	3502	
==>l::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    ha <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3403	3502	
==>l::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    ha <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3706	3803	
==>is class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3706	3803	
==>is class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14593	14739	
==>rn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14587	14733	
==>rn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq ' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20778	20906	
==>, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6561	6656	
==>ndex->file($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1688	1804	
==>numbered_scalar_alias  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3589	3694	
==>{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3589	3694	
==>{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3589	3694	
==>{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5501	5682	
==>ethod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8978	9159	
==>ethod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4711	4887	
==>bug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4711	4887	
==>bug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12715	12812	
==>h as date objects without the time part.

Discrete spans take a "units" specifier, which can be ei <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12715	12812	
==>h as date objects without the time part.

Discrete spans take a "units" specifier, which can be ei <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5327	5434	
==>multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4457	4564	
==>multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5327	5434	
==>multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4457	4564	
==>multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8949	9159	
==>rn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8949	9159	
==>rn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8949	9159	
==>rn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argum <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9615	9743	
==>nce {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5794	5927	
==>ype}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5794	5927	
==>ype}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5794	5927	
==>ype}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->nam <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2211	2326	
==>r you.

Inherits Map.

=back

=head2 Nodes

Nodes are parts of the Blondie Abstract Syntax Tree, and can be executed <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20245	20344	
==>ally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24797	24896	
==>ally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23358	23457	
==>ally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39606	39692	
==>an_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation::Example *@oth <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10163	10290	
==>sub { -d $_ or return for @dirs; 1 },
    using  => sub { utime undef, undef, $initrd_img; mkdir $_ for @dirs },
    help   => < <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1745	1844	
==>, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1745	1844	
==>, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1745	1844	
==>, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2361	2482	
==>n {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1], <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2361	2482	
==>n {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1], <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2361	2482	
==>n {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1], <==
4	/Users/nnunley/pugs/util/package-osx.pl	2400	2489	
==>romano/dev/pugs/examples /usr/local/share/doc/pugs/examples
        /Users/dromano/dev/pug <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1324	1457	
==>plitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1324	1457	
==>plitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1244	1348	
==>if($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $na <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	232	326	
==>L calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed versio <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6985	7098	
==>chunk->{test_files}};
        unlink $file or die "unlink: $!";
    }
    warn "all chunks completed.\n";
}

sub r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1663	1766	
==>g(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1663	1766	
==>g(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1663	1766	
==>g(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	135	227	
==>se Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $r <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	124	244	
==>le::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my($key,$va <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	873	968	
==>to the normal output filehandle, adding leading C<#>
characters after all newlines if they are n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	873	968	
==>to the normal output filehandle, adding leading C<#>
characters after all newlines if they are n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1429	1524	
==>to the normal output filehandle, adding leading C<#>
characters after all newlines if they are n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4774	4887	
==>$arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4774	4887	
==>$arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4774	4887	
==>$arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::do <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	135	241	
==>ile;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19494	19583	
==>_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19494	19583	
==>_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19494	19583	
==>_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1712	1821	
==>eturns a span that has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obj <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1475	1584	
==>eturns a span that has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obj <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1712	1821	
==>eturns a span that has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obj <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1475	1584	
==>eturns a span that has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5949	6097	
==>/return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5949	6097	
==>/return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], re <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10041	10158	
==>er $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10041	10158	
==>er $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31657	31752	
==>ssertion).

=item max

The maximum repetition count of this object (for quantifiers).

=item min <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	790	902	
==>$match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	996	1108	
==>$match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5555	5652	
==>.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5555	5652	
==>.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5636	5738	
==>vaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5636	5738	
==>vaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5636	5738	
==>vaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7472	7575	
==>, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) ret <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6602	6705	
==>, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7472	7575	
==>, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6602	6705	
==>, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19895	20008	
==>warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19895	20008	
==>warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19895	20008	
==>warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3870	3969	
==>ularExpression, $target, $pos, $length) = @_;
  $length = 1 if not defined $length;
  return (substr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3976	4109	
==>ess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8427	8548	
==>->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8427	8548	
==>->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8427	8548	
==>->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1240	1361	
==>such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8483	8596	
==>i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/doc <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8483	8596	
==>i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/doc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	23	123	
==>s Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod B <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	23	123	
==>s Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod B <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27433	27544	
==>:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Du <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1180	1285	
==>nal(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1180	1285	
==>nal(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1389	1494	
==>nal(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($d <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	203	314	
==>r die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2586	2740	
==>self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2791	2945	
==>self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3863	4017	
==>self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curren <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2108	2207	
==>ss $self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remain <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8990	9112	
==>on_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8986	9108	
==>on_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2431	2552	
==>on_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2431	2552	
==>on_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional', <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8313	8412	
==>et's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8313	8412	
==>et's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2993	3118	
==>eld} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2993	3118	
==>eld} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4335	4435	
==>s export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4335	4435	
==>s export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4220	4324	
==>cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not a unicode prope <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4054	4172	
==>@cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4054	4172	
==>@cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	724	828	
==>pan_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	724	828	
==>pan_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Spa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6614	6775	
==>ll {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6614	6775	
==>ll {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled captur <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1156	1274	
==>\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1156	1274	
==>\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32898	33001	
==>a generic binary relational operator that is like
C<union> except that the returned Relation contains on <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33353	33456	
==>a generic binary relational operator that is like
C<union> except that the returned Relation contains on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37448	37551	
==>a generic binary relational operator that is like
C<union> except that the returned Relation contains on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37903	38006	
==>a generic binary relational operator that is like
C<union> except that the returned Relation contains on <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	741	984	
==>r', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22121	22217	
==>andlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21002	21098	
==>andlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22121	22217	
==>andlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21002	21098	
==>andlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2090	2205	
==>code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2090	2205	
==>code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2090	2205	
==>code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2104	2205	
==>nd grammar which actually runs, is efficient,
#     and has captures for easy use of the resulting mat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1355	1472	
==>y => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_na <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1355	1472	
==>y => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_na <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27799	27893	
==>m C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27799	27893	
==>m C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17119	17283	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17119	17283	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17119	17283	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1967	2084	
==>ce:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2750	2882	
==>gle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2750	2882	
==>gle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2750	2882	
==>gle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PI <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9597	9839	
==>>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1091	1179	
==>----------------------------------------------------------------
## Roles

# Questions on <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1091	1179	
==>----------------------------------------------------------------
## Roles

# Questions on <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1091	1179	
==>----------------------------------------------------------------
## Roles

# Questions on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7109	7242	
==>lice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7109	7242	
==>lice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7109	7242	
==>lice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11898	12026	
==>[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$name', \n" . $program . "$_[1] )\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2667	2805	
==>ch => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2564	2698	
==>ch => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*) <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	630	745	
==>n;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_at <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	597	712	
==>n;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8790	8918	
==>LASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8790	8918	
==>LASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7276	7383	
==>d ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7334	7441	
==>d ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11284	11418	
==>class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11284	11418	
==>class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11284	11418	
==>class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7801	7908	
==>ExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2644	2838	
==>angle-quote
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            matc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5589	5689	
==>tem B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5589	5689	
==>tem B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7113	7213	
==>tem B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

= <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	81	203	
==>erload
    'bool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1970	2060	
==>r',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1970	2060	
==>r',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1970	2060	
==>r',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5579	5704	
==>f we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5579	5704	
==>f we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5579	5704	
==>f we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10841	10938	
==>ill not return a F<Regexp> object, but the regex; it might be
slightly different from the regex yo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	407	518	
==>1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you pla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17212	17301	
==>tribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17212	17301	
==>tribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17212	17301	
==>tribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute <==
4	/Users/nnunley/pugs/util/claim_drift.pl	554	659	
==><<".";
*** No DrIFT directory found. Make sure you are in the top level of a pugs
    working directory, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18810	18908	
==>6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18810	18908	
==>6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18810	18908	
==>6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10166	10277	
==>($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9151	9249	
==>in::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9151	9249	
==>in::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9151	9249	
==>in::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8885	8985	
==>inital scan
of the regex.

=head2 Getting the Tree

You can access the root of the tree with the root <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5908	6004	
==>ate ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... }) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5908	6004	
==>ate ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... }) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5908	6004	
==>ate ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... }) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7945	8069	
==>n "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13539	13663	
==>n "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7945	8069	
==>n "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13533	13657	
==>n "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3905	4102	
==>t('$label')));                    
                      })
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })->do_while(
                bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	580	685	
==>ef $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	350	455	
==>ef $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	350	455	
==>ef $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3072	3176	
==>'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'value' ,'unk';
node_a 'Val', 'VNu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16833	16929	
==>s an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16833	16929	
==>s an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16833	16929	
==>s an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1157	1273	
==>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2031	2147	
==>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14120	14218	
==>Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might wan <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14120	14218	
==>Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might wan <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13244	13412	
==>v;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3421	3569	
==>v;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3421	3569	
==>v;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3421	3569	
==>v;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10337	10496	
==>_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10337	10496	
==>_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	439	578	
==>ny { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	421	555	
==>ny { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2303	2415	
==>ule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $template = $rule_templa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15218	15325	
==>to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15218	15325	
==>to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15218	15325	
==>to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3020	3119	
==>... got the right x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6275	6382	
==>en
    goto term_literal_loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec pos
  term <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6538	6632	
==>hich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6538	6632	
==>hich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8735	8829	
==>hich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2615	2722	
==>raw_role($subrole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	390	492	
==>breturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUAT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	390	492	
==>breturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUAT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	390	492	
==>breturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUAT <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3	93	
==>ckage Perl6::Core::List;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5698	5816	
==>e great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4828	4946	
==>e great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5698	5816	
==>e great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4828	4946	
==>e great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5222	5321	
==>ars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5222	5321	
==>ars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5222	5321	
==>ars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1851	2000	
==>) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1851	2000	
==>) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1851	2000	
==>) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "}, <==
4	/Users/nnunley/pugs/util/grokprims.pl	2401	2501	
==></td>";
  }
  print "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8281	8402	
==>ormalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8281	8402	
==>ormalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      m <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	274	390	
==>et::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	274	390	
==>et::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1673	1801	
==>t open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8277	8375	
==>$name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8277	8375	
==>$name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8277	8375	
==>$name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24613	24714	
==>anch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21034	21135	
==>anch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => s <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2091	2189	
==>eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	369	493	
==>VERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	369	493	
==>VERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	369	493	
==>VERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3324	3424	
==>t::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11111	11235	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11111	11235	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11111	11235	
==>(!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instan <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	24	120	
==>ate .html from .t and test results 
# Generate cross-referenced html for p6 design docs (optional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	43	156	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	43	156	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	43	156	
==>t;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pL <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6530	6633	
==>ase has been preserved
        # correctly.  Otherwise, root through the file to locate the case-preserv <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1128	1257	
==>ic names; better use TABLE instead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4311	4434	
==>  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4311	4434	
==>  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4311	4434	
==>  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1824	1924	
==>ll.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4850	5026	
==>e new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$la <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6612	6788	
==>e new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$la <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7145	7266	
==>ift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4043	4133	
==>d_op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {tru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	419	529	
==>rrorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	419	529	
==>rrorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	419	529	
==>rrorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5172	5274	
==>__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_base;
    push @{ "${class}::ISA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	105	208	
==>acro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	105	208	
==>acro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	105	208	
==>acro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8571	8673	
==>r(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${&Rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2585	2709	
==>unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2585	2709	
==>unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2585	2709	
==>unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class e <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1159	1250	
==>_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n or <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2835	2987	
==>b p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2725	2871	
==>b p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5593	5716	
==>sh () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'ch <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5593	5716	
==>sh () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'ch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16312	16533	
==>::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16591	16812	
==>::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1809	1922	
==>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+} <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1809	1922	
==>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+} <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8891	9017	
==>t eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8891	9017	
==>t eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10135	10257	
==>else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10129	10251	
==>else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4505	4598	
==>cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BIN <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4651	4744	
==>>|<named_character>|<simple_character> }
rule a_dot  { \. }
rule logical_grapheme { \< \. \> } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4505	4598	
==>cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4505	4598	
==>cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BIN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13689	13884	
==>') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13689	13884	
==>') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13689	13884	
==>') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1 <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4958	5056	
==>reviated to uniqueness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	487	593	
==>..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	487	593	
==>..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	487	593	
==>..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17184	17273	
==>)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($r <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7114	7226	
==>y $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	49	145	
==>rimitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	49	145	
==>rimitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	49	145	
==>rimitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1]. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4296	4403	
==>which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4296	4403	
==>which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4807	4912	
==>which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4807	4912	
==>which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10826	10942	
==>add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	14	128	
==>Lit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	14	128	
==>Lit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	14	128	
==>Lit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { ( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1930	2073	
==>ig->repo_pool)
        ));
        $obj->index((defined $index
                    ? dir($index)
                    : $obj->root->subdir($confi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3977	4081	
==>05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3977	4081	
==>05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3977	4081	
==>05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4281	4400	
==>'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Ex <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4281	4400	
==>'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Ex <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1131	1250	
==>'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Ex <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25234	25327	
==>Example with zero tuples or
one tuple respectively have a special meaning in relational algebr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12297	12394	
==>}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12297	12394	
==>}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12297	12394	
==>}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22262	22354	
==>followed by C<?>, which doesn't warrant the warning.

Added "Unrecognized escape" warnings to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3771	3890	
==>or p1');
is($p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # pr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26519	26614	
==>ed.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's heade <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31071	31166	
==>ed.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's heade <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10571	10756	
==>ans_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10571	10756	
==>ans_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	980	1080	
==>s export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	980	1080	
==>s export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4672	4766	
==>ce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4672	4766	
==>ce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4672	4766	
==>ce_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$la <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2228	2392	
==>es;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2157	2312	
==>es;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7674	7769	
==>f this.)

A default implementation of this method is provided which returns nothing.

=item C<ze <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7674	7769	
==>f this.)

A default implementation of this method is provided which returns nothing.

=item C<ze <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2226	2350	
==>abel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2226	2350	
==>abel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2226	2350	
==>abel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4541	4649	
==>pes with thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1385	1488	
==>map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1385	1488	
==>map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1385	1488	
==>map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4724	4824	
==>e for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Category;

  # example definition <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28418	28713	
==>', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28418	28713	
==>', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28418	28713	
==>', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7843	7952	
==>hunk,
				orig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $child- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39973	40195	
==>>new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17763	17979	
==>>new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19521	19735	
==>>new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41032	41244	
==>>new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = sh <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	130	243	
==>Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	135	247	
==>Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	133	245	
==>Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
u <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1138	1225	
==>s";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $opt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	641	799	
==>ep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::Rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	54	151	
==>n;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	54	151	
==>n;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	54	151	
==>n;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	266	394	
==>in>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	270	398	
==>in>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	266	394	
==>in>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	270	398	
==>in>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9689	9798	
==>he invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13166	13275	
==>he invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12438	12547	
==>he invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1497	1604	
==>velopment",
  x_label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1491	1603	
==>amed_scalar_alias     {  \$\<<name>\>  \:\=  <construct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2975	3077	
==>out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2975	3077	
==>out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.dia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3055	3157	
==>out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.dia <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9262	9368	
==>L (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9262	9368	
==>L (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5619	5722	
==>bject(anyof_class => $S->force_object(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21396	21489	
==>ation attribute has a name that is distinct from the other
attributes, though several attribut <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25948	26041	
==>ation attribute has a name that is distinct from the other
attributes, though several attribut <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1280	1370	
==>: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1280	1370	
==>: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10264	10411	
==>rson' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10264	10411	
==>rson' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	132	235	
==>are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: A <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	132	235	
==>are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5983	6138	
==>ub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5983	6138	
==>ub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5983	6138	
==>ub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] e <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9240	9331	
==>ue)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$val <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31471	31654	
==>eturns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => num->new(0));
                return block->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5208	5299	
==>local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5208	5299	
==>local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5208	5299	
==>local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2023	2158	
==>stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16245	16337	
==>"".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16245	16337	
==>"".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16245	16337	
==>"".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37254	37420	
==>( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37254	37420	
==>( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37254	37420	
==>( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	769	860	
==>r_name'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <ident> <p6w <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3663	3785	
==>1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	907	1015	
==>sa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	907	1015	
==>sa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	907	1015	
==>sa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defi <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1765	1881	
==>ting
    
If you omit the fprime, a second order centered difference is provided
as a curried default.

All of the op <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2942	3042	
==>ong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2942	3042	
==>ong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2942	3042	
==>ong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3315	3416	
==>lf, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3315	3416	
==>lf, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3315	3416	
==>lf, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($lab <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2932	3338	
==>setta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2932	3338	
==>setta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Roset <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14653	14747	
==>that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
examp <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14653	14747	
==>that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
examp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4404	4540	
==>=> '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "ced <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4404	4540	
==>=> '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "ced <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	126	221	
==>It stores a finite string and a position
within that string, and it provides the fundamental ope <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	126	221	
==>It stores a finite string and a position
within that string, and it provides the fundamental ope <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	678	796	
==>kagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule a <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	678	796	
==>kagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule a <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1194	1289	
==>er `use` or `require` statements 
will find modules which are not located on Pugs's default
sear <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1194	1289	
==>er `use` or `require` statements 
will find modules which are not located on Pugs's default
sear <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2613	2727	
==>he $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      && <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2613	2727	
==>he $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      && <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	777	889	
==>ammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	983	1095	
==>ammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #pri <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33853	34031	
==>e('$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6495	6607	
==>itive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6495	6607	
==>itive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6495	6607	
==>itive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12474	12583	
==>=> strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12474	12583	
==>=> strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	891	1017	
==>s = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	891	1017	
==>s = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	891	1017	
==>s = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7790	7958	
==>ies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8254	8422	
==>ies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisf <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4220	4376	
==>ies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4684	4840	
==>ies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	688	789	
==>ingify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	688	789	
==>ingify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1353	1451	
==>ch time people say something (in public), the current
time and the text they said is saved.

If the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1353	1451	
==>ch time people say something (in public), the current
time and the text they said is saved.

If the <==
4	/Users/nnunley/pugs/util/addauthors.pl	168	296	
==>lit /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter}++;
}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} key <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6667	6768	
==>,
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptio <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6667	6768	
==>,
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptio <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4414	4512	
==>l finish, the Thunk will
finish, the stacks will be popped once more, and the whole AST is now redu <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	581	695	
==>e (abs($f($guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive loop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1843	1938	
==>$arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1843	1938	
==>$arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1843	1938	
==>$arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5314	5471	
==>ub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5314	5471	
==>ub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5314	5471	
==>ub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17794	17900	
==>d returns it's second thingy
# (a x b) -> b
# applied to $pair (int x str) this should e str
my $snd = comb <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20915	21058	
==>d}}) {
            print "\tafter all the subtests completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37519	37642	
==>{
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "unin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37519	37642	
==>{
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "unin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37519	37642	
==>{
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "unin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22454	22598	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22454	22598	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22454	22598	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $el <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20761	20883	
==>= substr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    is <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1291	1430	
==>lib            => $config); 
    add_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14682	14806	
==>ber";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14682	14806	
==>ber";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14682	14806	
==>ber";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2607	2723	
==>p_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'ops' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1212	1311	
==>return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2121	2220	
==>return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1212	1311	
==>return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2121	2220	
==>return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3735	3903	
==>t = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3735	3903	
==>t = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3735	3903	
==>t = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	133	588	
==>ng
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	133	588	
==>ng
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27540	27719	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27819	27998	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	94	209	
==>o the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 ext <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	94	209	
==>o the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 ext <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	94	209	
==>o the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 ext <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	94	209	
==>o the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 ext <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1869	1966	
==>e are currently
no support for match flags; regexes constructed with this module may cause
segfaul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3265	3359	
==>val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=it <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3265	3359	
==>val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=it <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5122	5237	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5122	5237	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2026	2141	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5241	5343	
==>r_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  return $class->new <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2912	3029	
==>=> 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # smal <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2912	3029	
==>=> 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # smal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6179	6293	
==>se( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6179	6293	
==>se( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24890	25012	
==>15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierP <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3617	3718	
==>code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3617	3718	
==>code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3617	3718	
==>code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3227	3371	
==>:\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            prin <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3691	3835	
==>:\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            prin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6155	6276	
==>f %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6155	6276	
==>f %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3110	3253	
==>me} eq $opt->{other}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $level at $opt->{precedence <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4509	4608	
==>objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the objec <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4509	4608	
==>objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22547	22782	
==>CALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22547	22782	
==>CALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22547	22782	
==>CALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $sc <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	113	217	
==>p;

# hmm, there's a lot.  And we probably don't need it all for the
# meta-model, except perhaps to expr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2248	2370	
==>&$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7904	8007	
==>raversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $traversa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7904	8007	
==>raversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $traversa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39981	40075	
==>d combines it with the
invocant relation into a new Relation::Example, such that all common att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1494	1661	
==>al_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1494	1661	
==>al_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1494	1661	
==>al_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7966	8054	
==>$_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::inst <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23170	23291	
==>'(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_han <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19591	19712	
==>'(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_han <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4602	4699	
==>development version.  The API is still in flux.

The set of implemented features depends on the C< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4852	4949	
==>development version.  The API is still in flux.

The set of implemented features depends on the C< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6500	6602	
==>> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6500	6602	
==>> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7372	7472	
==>> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7372	7472	
==>> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14494	14591	
==>o_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14494	14591	
==>o_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14494	14591	
==>o_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	365	456	
==>1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1401	1511	
==>ing $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5458	5565	
==>= split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5458	5565	
==>= split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5458	5565	
==>= split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2232	2346	
==>tore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2232	2346	
==>tore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2232	2346	
==>tore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7966	8074	
==>{
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7966	8074	
==>{
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7966	8074	
==>{
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_consta <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7357	7449	
==>->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13718	13912	
==>ist = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13718	13912	
==>ist = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13718	13912	
==>ist = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $li <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3232	3353	
==>ch yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3416	3537	
==>ch yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Un <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31197	31292	
==>ew Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<gre <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35747	35842	
==>ew Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<gre <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10878	11004	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12349	12475	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14355	14481	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15826	15952	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new(
            heading => $!heading.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	63	164	
==>::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	63	164	
==>::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	63	164	
==>::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# t <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	322	418	
==>tall::ISA = 'Module::Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1457	1579	
==>ly, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9601	9717	
==>tr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9601	9717	
==>tr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9601	9717	
==>tr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA- <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1897	2027	
==>ent   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1897	2027	
==>ent   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $even <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2643	2753	
==>.end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2643	2753	
==>.end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersec <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8409	8536	
==>= 14) {
      SV* expr_code;
      SV* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6889	7009	
==>a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6889	7009	
==>a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6889	7009	
==>a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1670	1812	
==>ults in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1670	1812	
==>ults in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4078	4195	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4271	4388	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4164	4326	
==>s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5485	5647	
==>s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4164	4326	
==>s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5473	5635	
==>s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	610	763	
==>}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	610	763	
==>}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	610	763	
==>}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($cod <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26518	26621	
==>β → list (α × β)", "pretty print :t zip");
}




# tests for the type inferrencer
is(t($id), "∀ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16717	16816	
==>an object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os Sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16717	16816	
==>an object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os Sp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1424	1516	
==>WAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1404	1494	
==>WAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7520	7618	
==>t(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6650	6748	
==>t(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7520	7618	
==>t(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6650	6748	
==>t(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(se <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2802	2903	
==>05-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2959	3060	
==>05-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2802	2903	
==>05-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2959	3060	
==>05-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4125	4240	
==>opy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded new <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4125	4240	
==>opy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded new <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26848	26940	
==>)
sets the "Message Variables" attribute if the corresponding argument is
provided (it defaul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26848	26940	
==>)
sets the "Message Variables" attribute if the corresponding argument is
provided (it defaul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3375	3500	
==>rircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", - <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3375	3500	
==>rircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31863	31956	
==>mplemented.>

This method is a generic relational operator that returns a new Relation::Exampl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32910	33003	
==>mplemented.>

This method is a generic relational operator that returns a new Relation::Exampl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1360	1477	
==>an_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$cle <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	698	814	
==>an_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$cle <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2210	2314	
==>eturns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2210	2314	
==>eturns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2130	2302	
==>sers on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2130	2302	
==>sers on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17988	18085	
==>ne uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have refere <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17988	18085	
==>ne uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have refere <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4436	4549	
==>fig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $se <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4407	4500	
==>ults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4407	4500	
==>ults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6604	6697	
==>ults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17085	17192	
==>ring = CALLER::<$_> --> Str )

Returns the input string after converting each character to it's uppercase
fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7552	7656	
==>s;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7552	7656	
==>s;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7552	7656	
==>s;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1835	1962	
==>for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1835	1962	
==>for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1835	1962	
==>for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32699	32800	
==>(opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Class->send('a <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15532	15645	
==>.' x ($width - length($te));
    my $ml = "";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1249	1343	
==>method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1249	1343	
==>method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1249	1343	
==>method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8718	8811	
==>Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Li <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8718	8811	
==>Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Li <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21549	21640	
==>tabases before, especially given that the Perl DBI purports to provide
"Database Independenc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21549	21640	
==>tabases before, especially given that the Perl DBI purports to provide
"Database Independenc <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16804	16922	
==>tests} * 100);
        my $percent_ok = 100*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subtests faile <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2893	2998	
==>g<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<se <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2893	2998	
==>g<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<se <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18531	18619	
==>alORExpressionNoIn>
    | <LogicalORExpressionNoIn> <'?'> <AssignmentExpressionNoIn> <':' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5007	5143	
==>nd ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5007	5143	
==>nd ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.sta <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	921	1029	
==>> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.no <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	921	1029	
==>> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.no <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1648	1768	
==>returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1059	1155	
==>he way into new
namespaces. This is typically useful when your object belongs to a
package that i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1059	1155	
==>he way into new
namespaces. This is typically useful when your object belongs to a
package that i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1059	1155	
==>he way into new
namespaces. This is typically useful when your object belongs to a
package that i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3871	4012	
==>$_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEGI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4731	4825	
==>::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4731	4825	
==>::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4731	4825	
==>::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	127	245	
==>ant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	127	245	
==>ant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	127	245	
==>ant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    va <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23486	23571	
==>at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- !.
rep <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14036	14159	
==>ond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14036	14159	
==>ond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13098	13213	
==>ond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13098	13213	
==>ond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	472	587	
==>Array [of Array]* of Str

sub parse (@start, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	380	479	
==>t context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	380	479	
==>t context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	380	479	
==>t context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added require <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	469	664	
==>'
            [
                [ \:\: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6985	7105	
==>ass->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6985	7105	
==>ass->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6985	7105	
==>ass->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2448	2558	
==>0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2448	2558	
==>0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2448	2558	
==>0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2886	3072	
==>Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3133	3319	
==>Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15763	15867	
==>l is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2160	2264	
==>l is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2473	2593	
==>ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2666	2786	
==>ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	119	230	
==>SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per ho <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	119	230	
==>SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per ho <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5810	5909	
==>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5810	5909	
==>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5810	5909	
==>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Ar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22736	22833	
==>:Example operators are somewhat of
a superset of the Set operators.

Like the Set data type, the R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5408	5494	
==>in_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5408	5494	
==>in_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5408	5494	
==>in_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16037	16155	
==>ear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16037	16155	
==>ear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(S <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3528	3632	
==>s);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().packa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3586	3690	
==>s);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().packa <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	736	833	
==>ich they are included; unlike the "mix-in" effect of
adding more superclasses to a Class, all of t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20561	20667	
==>d.

We don't care.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8183	8285	
==>Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8183	8285	
==>Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8183	8285	
==>Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10700	10840	
==>tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10700	10840	
==>tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10700	10840	
==>tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => { <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	240	340	
==>{
    $self.new($self.length - $duration.length);
}

#method infix:<->($self: Duration $duration) ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1189	1389	
==>} else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        retur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1189	1389	
==>} else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19121	19213	
==>Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming langu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19121	19213	
==>Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming langu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9800	9908	
==>d string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependen <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11277	11385	
==>d string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2885	3041	
==>, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2790	2942	
==>, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10912	11039	
==>t;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10912	11039	
==>t;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2600	2706	
==>,map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2600	2706	
==>,map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2600	2706	
==>,map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2187	2285	
==>lag handling is currently an utter kludge. not even trying with m and s.
# Match objects arent bein <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	21	135	
==>::ISO8601;

# RULES GURUS APPLY HERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}| <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3553	3644	
==>if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3553	3644	
==>if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3553	3644	
==>if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15105	15266	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alternat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15384	15545	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alternat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19860	19959	
==>ay context it will return two
values; the user name and the password.  In scalar context it will
ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19860	19959	
==>ay context it will return two
values; the user name and the password.  In scalar context it will
ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	279	398	
==>s = qw{
    build_requires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	71	170	
==>DO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Juncti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	71	170	
==>DO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Juncti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	71	170	
==>DO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Juncti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3056	3154	
==>_close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3056	3154	
==>_close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3056	3154	
==>_close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12283	12406	
==>> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6850	6973	
==>> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' = <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12283	12406	
==>> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6850	6973	
==>> $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2841	2951	
==>($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2841	2951	
==>($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2841	2951	
==>($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TO <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7688	7780	
==>$output_path = catfile($output_dir, $path);
    my $index_file =  catfile($output_path,"index <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4026	4154	
==>f()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4026	4154	
==>f()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2797	2900	
==>read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>( <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2797	2900	
==>read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12670	12793	
==>ILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9312	9433	
==>: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9312	9433	
==>: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9312	9433	
==>: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4628	4736	
==>fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4628	4736	
==>fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4628	4736	
==>fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8398	8494	
==>is with _switches()
to build a command line.

Typically this is C<$^X>, but you can set C<$ENV{HA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19124	19241	
==>_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19403	19520	
==>_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1663	1777	
==>tly results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.cha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1663	1777	
==>tly results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10236	10365	
==>ss_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10236	10365	
==>ss_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10236	10365	
==>ss_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9190	9298	
==>er;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5929	6060	
==>me, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5929	6060	
==>me, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5929	6060	
==>me, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11117	11238	
==>}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '/ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4810	4911	
==>n tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the on <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4810	4911	
==>n tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the on <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6334	6435	
==>n tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the on <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1543	1639	
==>de an explicit true/false value to dynamic_config, skipping\n";
		return $self;
	}
	$self->{'valu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3176	3323	
==>elper($var,$ops);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($tok) {
        $tok = p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	105	220	
==>x, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	105	220	
==>x, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	105	220	
==>x, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes hav <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8201	8346	
==>data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4561	4706	
==>data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5410	5555	
==>data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11591	11779	
==>\$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7873	8061	
==>\$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8707	8895	
==>\$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1942	2042	
==>$file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1 <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1942	2042	
==>$file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32468	32558	
==>=head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32468	32558	
==>=head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2157	2254	
==>f(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2157	2254	
==>f(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2157	2254	
==>f(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3296	3429	
==>args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3436	3569	
==>args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $g <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1227	1333	
==>File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($ <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1227	1333	
==>File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5339	5457	
==>t_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5339	5457	
==>t_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2644	2753	
==>> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2644	2753	
==>> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24898	25020	
==>e to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the position in the regex string
    sub RxPOS :l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2322	2423	
==>e = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2322	2423	
==>e = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2322	2423	
==>e = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11051	11150	
==>l try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11051	11150	
==>l try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25576	25674	
==>ondition being reported, if it is used
as an exception payload).  The key is intended to be read by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25576	25674	
==>ondition being reported, if it is used
as an exception payload).  The key is intended to be read by <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16799	16893	
==>mpile that into its own executable, in practice one would
normally just write some components o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16799	16893	
==>mpile that into its own executable, in practice one would
normally just write some components o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20323	20466	
==>::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20323	20466	
==>::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20323	20466	
==>::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_l <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	679	791	
==>types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# native conv <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2664	2775	
==>rator {
    my($self, $name, $it) = @_;

    $self->_reset_file_state;
    $self->{file} = $name;
    my %totals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1081	1190	
==>_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1081	1190	
==>_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1081	1190	
==>_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	681	794	
==>eturns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	681	794	
==>eturns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	678	772	
==>ates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	678	772	
==>ates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18449	18575	
==>shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (S <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18449	18575	
==>shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (S <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1497	1609	
==>BJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self- <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1497	1609	
==>BJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5833	5936	
==>ing

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 Fi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5833	5936	
==>ing

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 Fi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12845	12940	
==>alue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12903	12998	
==>alue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	834	954	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	834	954	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3481	3582	
==>t $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<- <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3481	3582	
==>t $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<- <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1774	1883	
==>less {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1972	2062	
==>,"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('Li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1972	2062	
==>,"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('Li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1972	2062	
==>,"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('Li <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	812	1084	
==>if $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E is readonly = (
    'MYLIB_M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4033	4158	
==>memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4033	4158	
==>memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4033	4158	
==>memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undef <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10140	10238	
==>Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8080	8178	
==>Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10140	10238	
==>Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8080	8178	
==>Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9720	9835	
==>ot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($estatus, $wstatus) = @r <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3672	3774	
==>:= &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS A <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3439	3530	
==>eral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3623	3714	
==>eral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19504	19640	
==>->{flags}[-1],
      family => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5324	5444	
==>am{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5324	5444	
==>am{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5324	5444	
==>am{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $en <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2164	2263	
==>'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2164	2263	
==>'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9765	9861	
==>`difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9765	9861	
==>`difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11531	11652	
==>h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11531	11652	
==>h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5607	5701	
==>on you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get documen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5607	5701	
==>on you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get documen <==
4	/Users/nnunley/pugs/misc/S29_round.pl	156	305	
==>) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12358	12464	
==>e->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12358	12464	
==>e->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12358	12464	
==>e->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $va <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6306	6444	
==>T {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6306	6444	
==>T {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading d <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1956	2071	
==>tal U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1956	2071	
==>tal U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12736	12855	
==>'\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6211	6330	
==>'\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21157	21251	
==>use
associated keys internally.

It is strongly suggested (but not required) that each Perl pac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21157	21251	
==>use
associated keys internally.

It is strongly suggested (but not required) that each Perl pac <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13508	13617	
==>nmounting \"$initrd_img\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => < <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	673	766	
==>ut (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	673	766	
==>ut (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1229	1322	
==>ut (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1013	1123	
==>et.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * su <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1013	1123	
==>et.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * su <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3280	3382	
==>ar;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3280	3382	
==>ar;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3957	4073	
==>ss_that_should_be} = $class_that_should_be;

	$self;
}

sub left { $_[0]{left} }
sub right { $_[0]{right} }


sub isa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4849	4953	
==>pe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4849	4953	
==>pe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4849	4953	
==>pe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2107	2222	
==>)
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurr <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4326	4441	
==>)
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2107	2222	
==>)
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4326	4441	
==>)
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2257	2360	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2257	2360	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2257	2360	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FE <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2639	2733	
==>the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2639	2733	
==>the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10441	10534	
==>s, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method deci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10441	10534	
==>s, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method deci <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3418	3534	
==>[0], $r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5615	5708	
==>js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5615	5708	
==>js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5615	5708	
==>js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_al <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22079	22189	
==>PY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16980	17089	
==>PY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
P <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2285	2387	
==>link($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? " <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2263	2365	
==>link($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5439	5627	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5439	5627	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5439	5627	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                } <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	825	960	
==>ll programs, type '$Config{make} register'.
.
    }
    else {
        print << ".";
*** Installed successfully!
.
    }
}
else {
    pr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1758	1884	
==>ple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5235	5361	
==>ple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4165	4291	
==>ple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2523	2689	
==>est')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.reason'      =>  $reason, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	608	720	
==>$_[0]->{out}= {fixity => 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'nam <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7502	7600	
==>y" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7502	7600	
==>y" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a l <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	288	397	
==>ed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    requi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	239	337	
==>ed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	requi <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3190	3310	
==>'', qx{$executable -V};
}

sub _build_exclude_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13500	13599	
==>loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13500	13599	
==>loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13500	13599	
==>loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11225	11352	
==>r i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11225	11352	
==>r i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11225	11352	
==>r i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var p <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	226	329	
==>s_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3966	4096	
==>fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $out <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3966	4096	
==>fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $out <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29896	29990	
==>ation::Example has all
of the tuples of the original (or rather, the corresponding projection o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1359	1453	
==>osition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:di <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	527	628	
==>es of those objects (or possibly
    # the default values too)
    (blessed($signature) && ($signature <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12159	12258	
==>p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:tr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12159	12258	
==>p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:tr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12159	12258	
==>p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1881	1989	
==>my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1881	1989	
==>my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2117	2225	
==>my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4671	4774	
==>ptions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4671	4774	
==>ptions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4671	4774	
==>ptions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39414	39509	
==>[a-z]>) requires knowledge of the characters
on the lower and upper side of the range, objects m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	412	504	
==>..}) not terminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch conditio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6305	6387	
==>printf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6305	6387	
==>printf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6305	6387	
==>printf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1266	1376	
==>$directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($d <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1266	1376	
==>$directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($d <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1648	1739	
==>hods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new clas <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1648	1739	
==>hods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9230	9389	
==>(1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9230	9389	
==>(1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9230	9389	
==>(1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11682	11828	
==>ed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $details = $results{d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1589	1727	
==>gs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error), return;
        
        my $obj = $class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9859	9969	
==>}
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9859	9969	
==>}
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9859	9969	
==>}
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3774	3880	
==>,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3774	3880	
==>,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	624	730	
==>,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11211	11311	
==>sary for OSes with limited command line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3833	3940	
==>n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = &infix:«<=>», *@array --> Scalar) <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7278	7398	
==>ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2459	2562	
==>sa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2459	2562	
==>sa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2459	2562	
==>sa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15104	15255	
==>ubbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *en <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19279	19430	
==>ubbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *en <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15734	15860	
==>tr $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15734	15860	
==>tr $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21624	21739	
==>ch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18045	18160	
==>ch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	891	994	
==>Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	891	994	
==>Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Me <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5511	5684	
==>fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5511	5684	
==>fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1049	1145	
==>$test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
} <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1107	1203	
==>$test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6842	6950	
==>=
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6842	6950	
==>=
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6842	6950	
==>=
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->b <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1375	1475	
==>results, straps
provide them as raw data.  You can also configure how the tests are to
be run.

The i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2692	2813	
==>> 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1585	1691	
==>subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1585	1691	
==>subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1585	1691	
==>subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2861	2995	
==>OSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	465	572	
==>Stmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	465	572	
==>Stmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	465	572	
==>Stmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3721	3827	
==>$read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3721	3827	
==>$read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3721	3827	
==>$read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# R <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1633	1735	
==>uctor($reduced) . $self->layout($reduced->str);
		}
	}

	if (ref $node) {
		use Data::Dumper ();
		loca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	826	932	
==>$ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Run <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	616	720	
==>$ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	616	720	
==>$ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Run <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22853	22948	
==>hing in the world can be modelled.

The provided roles (Relation, Tuple, Heading) are intended t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10483	10665	
==>ndefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10483	10665	
==>ndefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10483	10665	
==>ndefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.u <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3300	3458	
==>rl value. Usually either a Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4653	4813	
==>around
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4653	4813	
==>around
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4653	4813	
==>around
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - co <==
4	/Users/nnunley/pugs/util/package-osx.pl	205	312	
==>r /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5954	6058	
==>s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5954	6058	
==>s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5954	6058	
==>s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	769	871	
==>ype.

=item *

It serves as the basis for a method dispatch scope.  Note that methods
differ from norma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12345	12481	
==>>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8621	8757	
==>>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9456	9592	
==>>{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25004	25128	
==>er::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1940	2040	
==>dalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1940	2040	
==>dalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1940	2040	
==>dalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1653	1776	
==>ce this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2234	2357	
==>ce this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1653	1776	
==>ce this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2234	2357	
==>ce this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3522	3720	
==>.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %e <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3522	3720	
==>.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5992	6113	
==>x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5992	6113	
==>x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	961	1094	
==>ull {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	961	1094	
==>ull {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9248	9353	
==>ity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9248	9353	
==>ity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1548	1688	
==>, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1548	1688	
==>, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1548	1688	
==>, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the nor <==
4	/Users/nnunley/pugs/util/addauthors.pl	60	164	
==>Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5202	5291	
==>instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5202	5291	
==>instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5202	5291	
==>instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11638	11734	
==>rns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(.. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8785	8881	
==>rns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(.. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11638	11734	
==>rns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(.. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8785	8881	
==>rns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1214	1320	
==>ss; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	317	419	
==>ss;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { d <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1134	1232	
==>w_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1134	1232	
==>w_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2940	3062	
==>uninitialized );
    return sub {
        my $bool = $const eq substr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36109	36204	
==>result of first pairwise-matching every
tuple of the invocant relation with every tuple of the < <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40658	40753	
==>result of first pairwise-matching every
tuple of the invocant relation with every tuple of the < <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40272	40367	
==>result of first pairwise-matching every
tuple of the invocant relation with every tuple of the < <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2665	2774	
==>neTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17831	17940	
==>nal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16869	16978	
==>nal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localho <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17831	17940	
==>nal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localho <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16869	16978	
==>nal, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localho <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	333	452	
==>references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	333	452	
==>references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2541	2644	
==>me.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INS <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2541	2644	
==>me.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INS <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6346	6451	
==>ent_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6346	6451	
==>ent_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1306	1409	
==>lf.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1306	1409	
==>lf.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12612	12725	
==>$max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq '') { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17010	17100	
==>perclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17010	17100	
==>perclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17010	17100	
==>perclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5641	5774	
==>capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5641	5774	
==>capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5641	5774	
==>capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	287	399	
==>{ return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACKA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1526	1659	
==>me::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1979	2112	
==>me::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2414	2547	
==>me::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2851	2984	
==>me::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        captu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10420	10528	
==>urns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10420	10528	
==>urns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, ` <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3558	3660	
==>Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $call <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3616	3718	
==>Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	651	761	
==>r($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	651	761	
==>r($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	651	761	
==>r($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3598	3694	
==>K;

    fprintf(stderr,"exec hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    r <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2051	2158	
==>~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $v <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2051	2158	
==>~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $v <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12164	12258	
==>not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12164	12258	
==>not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4482	4614	
==>t(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1664	1788	
==>CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1664	1788	
==>CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1664	1788	
==>CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq " <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2797	2910	
==>bmit the report to the public smokeserver:

        $^X $smoke_upload_script $html_location

    Or add
        sm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1015	1124	
==>} => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1015	1124	
==>} => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1015	1124	
==>} => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pC <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1968	2134	
==>x:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1034	1129	
==>emAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1034	1129	
==>emAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1034	1129	
==>emAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8626	8723	
==>w PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8626	8723	
==>w PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8626	8723	
==>w PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16029	16122	
==>}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$symbol} = Placehol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11916	12020	
==>h one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11916	12020	
==>h one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11916	12020	
==>h one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2039	2130	
==>_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'num_width' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1399	1498	
==>) eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1399	1498	
==>) eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13751	13847	
==>so possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Fun <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13809	13905	
==>so possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Fun <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2133	2258	
==>eop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11001	11126	
==>eop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2326	2451	
==>eop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11280	11405	
==>eop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4029	4130	
==>th => $month, day => $day )`

Returns a date object for the given values.  The month and day default
t <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4029	4130	
==>th => $month, day => $day )`

Returns a date object for the given values.  The month and day default
t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15761	15859	
==>o force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Per <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15819	15917	
==>o force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10165	10308	
==>ems, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLIC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10165	10308	
==>ems, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLIC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10165	10308	
==>ems, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLIC <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8522	8662	
==>{ 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12432	12569	
==>{ 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12432	12569	
==>{ 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2984	3094	
==>ty} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3595	3722	
==>ames of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7072	7199	
==>ames of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6029	6156	
==>ames of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!head <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4011	4109	
==>super *@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscription $.su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43485	43576	
==>ta definitions or connections to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1990	2077	
==>');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1990	2077	
==>');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1990	2077	
==>');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1996	2134	
==>ure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1996	2134	
==>ure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1996	2134	
==>ure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3259	3506	
==>odule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3259	3506	
==>odule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1813	1930	
==>ndic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "U <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1813	1930	
==>ndic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "U <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3352	3497	
==>y $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4201	4346	
==>y $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9490	9578	
==>et1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_sup <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9490	9578	
==>et1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_sup <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9544	9813	
==>yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9544	9813	
==>yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12408	12526	
==>from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12408	12526	
==>from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$co <==
4	/Users/nnunley/pugs/util/grokprims.pl	295	405	
==>ist  => 'list infix',
    chain => 'chaining infix',
);

my @ops;

while (<>) {
  last unless /^\\\\n[^"]/;
  c <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2217	2324	
==>was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolv <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2217	2324	
==>was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolv <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	166	279	
==>XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	336	449	
==>XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	166	279	
==>XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	336	449	
==>XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2287	2478	
==>print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2287	2478	
==>print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($even <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23885	24004	
==>) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20306	20425	
==>) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29446	29558	
==>{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29446	29558	
==>{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29446	29558	
==>{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$sel <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1192	1291	
==>Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<d <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1192	1291	
==>Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	237	334	
==>nal "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	225	320	
==>nal "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14089	14224	
==>ock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10262	10397	
==>ock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11098	11233	
==>ock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30264	30360	
==>m my $v = $obj->visual()

The visual representation of this object.  It includes the visual
repre <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1770	1885	
==>"THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1770	1885	
==>"THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17539	17648	
==>) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13960	14069	
==>) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9109	9249	
==>+= 0; $max += 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3322	3421	
==>has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([L <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3322	3421	
==>has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([L <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3322	3421	
==>has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([L <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3375	3470	
==>$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5::X1::Result->new($pil_tree,$warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5731	5831	
==>ssecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5731	5831	
==>ssecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5731	5831	
==>ssecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from th <==
4	/Users/nnunley/pugs/util/package-osx.pl	5536	5633	
==>al/man/man3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9261	9356	
==>pe::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9456	9551	
==>pe::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9651	9746	
==>pe::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11308	11402	
==>pe::operator::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14287	14391	
==>ue $class: str $repr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispatcher = $class. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9046	9147	
==>Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9046	9147	
==>Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9046	9147	
==>Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1686	1835	
==>) = sub {
        my($t)=shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1955	2045	
==>=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1955	2045	
==>=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1955	2045	
==>=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39241	39357	
==>ems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39241	39357	
==>ems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39241	39357	
==>ems}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	555	656	
==>\@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) {
  return(undef, $input);
}

sub End_of_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14043	14167	
==>>{flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6029	6120	
==>f <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6029	6120	
==>f <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6029	6120	
==>f <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	866	990	
==>> $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	866	990	
==>> $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	866	990	
==>> $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-p <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2767	2869	
==>esigndocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1317	1411	
==>licate($node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1203	1379	
==>s, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1203	1379	
==>s, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18430	18529	
==>limiters must not be treated as rules but as constants.  The
default is no longer ' ' since that wou <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2199	2291	
==>ame
osname: $config->{osname}

Please notify the maintainer of this code. (Brian Ingerson for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2781	2902	
==>what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2781	2902	
==>what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2781	2902	
==>what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "t <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	937	1035	
==>ht, to be a next step. And the current Regexp::Parser Object
# ast isnt really what we want long-te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6398	6494	
==>hod
fails_ok { $iBar->name } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24437	24588	
==>capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25700	25851	
==>capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24716	24867	
==>capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25979	26130	
==>capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::cap <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	43	174	
==>e warnings;
our $VERSION = '0.01';

sub new { bless {}, shift }

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23678	23775	
==>le::KeyedText has
named variables, which can be used in any order, or not used at all, or
used mul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23678	23775	
==>le::KeyedText has
named variables, which can be used in any order, or not used at all, or
used mul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	580	690	
==>)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch condition (?(%.2s';
use c <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18956	19076	
==>xpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9109	9210	
==>) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9109	9210	
==>) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9109	9210	
==>) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULT <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12251	12371	
==>lude/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	667	764	
==>al 'counter', see the ratchet version for an implementation
and tests.

- Quantified matches co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20862	20962	
==>ent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19779	19879	
==>ent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20862	20962	
==>ent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19779	19879	
==>ent
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	305	450	
==>new({
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4622	4721	
==>rams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4622	4721	
==>rams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4622	4721	
==>rams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7612	7706	
==>_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7612	7706	
==>_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7612	7706	
==>_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1217	1315	
==>w:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1217	1315	
==>w:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1217	1315	
==>w:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4095	4186	
==>Sym('&infix:<+>') will resolve '&infix:<+>' into the thunk that does
addition, C<< Val(1) >> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12504	12637	
==>=>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12504	12637	
==>=>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12504	12637	
==>=>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	726	820	
==>s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6231	6354	
==>>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6231	6354	
==>>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6231	6354	
==>>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1411	1501	
==>PACKAGE__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7336	7444	
==>:Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17357	17448	
==>mplements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pug <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17357	17448	
==>mplements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pug <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17357	17448	
==>mplements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1783	1919	
==>> \$_[3],} }", 
    infix_non =>         
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22350	22447	
==>tic, such that all of its class
and object methods will each return the same result when invoked o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26902	26999	
==>tic, such that all of its class
and object methods will each return the same result when invoked o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25625	25722	
==>tic, such that all of its class
and object methods will each return the same result when invoked o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2554	2665	
==>me($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2554	2665	
==>me($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2554	2665	
==>me($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17007	17104	
==>le @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my Relation::Example @r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1837	1944	
==>) {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1837	1944	
==>) {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1837	1944	
==>) {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1250	1352	
==>S

=head2 Base ADTs

All nodes as well as a few other objects are implemented as one of three ADTs.

=o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2904	3070	
==>$key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Deb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2904	3070	
==>$key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Deb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9122	9217	
==>et2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9122	9217	
==>et2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15365	15466	
==>xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15365	15466	
==>xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15365	15466	
==>xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx- <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1105	1237	
==>FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10403	10530	
==>n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10403	10530	
==>n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10403	10530	
==>n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_para <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	404	525	
==>6mm {
    my $self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->classes ) {

        class($cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5285	5386	
==>rray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5285	5386	
==>rray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5285	5386	
==>rray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch <==
4	/Users/nnunley/pugs/util/package-osx.pl	11614	11728	
==>\n" for @files; 
    print REMOVER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$dest$files[-1]";
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	465	565	
==>p cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	465	565	
==>p cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	465	565	
==>p cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acce <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	907	1028	
==>) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	907	1028	
==>) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16026	16122	
==>d not any human user.  In some
situations, a shared program component may raise such a condition, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16026	16122	
==>d not any human user.  In some
situations, a shared program component may raise such a condition, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1485	1591	
==>run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1078	1179	
==>hus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1078	1179	
==>hus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1078	1179	
==>hus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8311	8433	
==>span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8311	8433	
==>span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5974	6154	
==>.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9451	9631	
==>.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6090	6192	
==>m a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6090	6192	
==>m a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3215	3413	
==>$1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3089	3280	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13054	13151	
==>ent they are each decoded
separately and the same number of strings are returned.

If called in vo <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13054	13151	
==>ent they are each decoded
separately and the same number of strings are returned.

If called in vo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8161	8285	
==>bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8553	8677	
==>bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8161	8285	
==>bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8553	8677	
==>bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	980	1083	
==>omd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to continue the pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5616	5714	
==>il2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5616	5714	
==>il2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5616	5714	
==>il2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o fu <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	235	400	
==>en '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    i <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	235	400	
==>en '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23461	23549	
==>hts.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>not <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23461	23549	
==>hts.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3764	3882	
==>";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3764	3882	
==>";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3764	3882	
==>";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      w <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14196	14279	
==>harname_to_char(Name,C) :- cached_uncode_charname_to_char(Name,C), !.
uncode_charnam <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6968	7090	
==>ary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$bounda <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6968	7090	
==>ary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$bounda <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33101	33188	
==>t_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37651	37738	
==>t_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3112	3220	
==>ub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method a <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3112	3220	
==>ub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19258	19359	
==>tially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23810	23911	
==>tially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22326	22427	
==>tially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where ea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2653	2820	
==>[ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2900	3067	
==>[ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19086	19177	
==>the removal does I<not> happen automatically if using the header(),
push_header() or init_he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19086	19177	
==>the removal does I<not> happen automatically if using the header(),
push_header() or init_he <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3786	3885	
==>h point the App will put the 10 into the parameter stack and reduce the
Thunk.

Inside the Thunk the <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4294	4387	
==>receivied and expected lines from the previously run tests,
passing if both the diagnostics an <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4294	4387	
==>receivied and expected lines from the previously run tests,
passing if both the diagnostics an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4374	4467	
==>receivied and expected lines from the previously run tests,
passing if both the diagnostics an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2284	2394	
==>l to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2284	2394	
==>l to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2284	2394	
==>l to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36177	36283	
==>ahead

Ender: tail

=head2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4244	4344	
==>f unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4244	4344	
==>f unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4244	4344	
==>f unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $di <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9006	9102	
==>ingCharacters>?
}
rule SingleStringCharacters {  # see 7.8.4
      <SingleStringCharacter> <Singl <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19345	19447	
==>}


# For slow connections, we save lots of bandwidth by printing only once
# per second.
sub _print_ml <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5161	5257	
==>($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5161	5257	
==>($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5751	5847	
==>($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5024	5133	
==>> $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind vari <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5246	5355	
==>> $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind vari <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1543	1649	
==>n the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1543	1649	
==>n the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16844	16972	
==>my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exist <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16844	16972	
==>my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exist <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16844	16972	
==>my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exist <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1337	1433	
==>ess::Straps.  Instead of printing the results, straps
provide them as raw data.  You can also con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	212	320	
==>nings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	212	320	
==>nings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	212	320	
==>nings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35148	35244	
==>enting one
alternation, holding any number of objects

Branched

=head2 exact

Family: exact

Typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9608	9730	
==>nts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9608	9730	
==>nts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9608	9730	
==>nts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10113	10253	
==>ro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10113	10253	
==>ro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10113	10253	
==>ro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	40	144	
==>s;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purposes, as this is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	422	520	
==>@EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	422	520	
==>@EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	422	520	
==>@EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	902	998	
==>>execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl - an interpr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7851	7983	
==>n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7863	7995	
==>n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' nod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22622	22716	
==>ould also handle
this.

A program generates a Message that contains all possibly useful details <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22622	22716	
==>ould also handle
this.

A program generates a Message that contains all possibly useful details <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	669	824	
==>s = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1342	1435	
==>ut},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1342	1435	
==>ut},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1342	1435	
==>ut},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7580	7688	
==>ractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1808	1916	
==>ractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9214	9322	
==>ractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2026	2134	
==>ractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	484	579	
==>n "lib_paths has been changed to cc_lib_paths due to confusion between Perl and C";
	shift()->cc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1409	1500	
==>main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1409	1500	
==>main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1409	1500	
==>main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1341	1514	
==>::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Ha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1341	1514	
==>::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Ha <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4551	4709	
==>.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4551	4709	
==>.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2919	3038	
==>ing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2919	3038	
==>ing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2919	3038	
==>ing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13144	13259	
==>grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21194	21309	
==>grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13423	13538	
==>grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21473	21588	
==>grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31259	31352	
==>L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15989	16082	
==>d creates and returns a new Rosetta::Model::Node object, that
lives in the Document object giv <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31259	31352	
==>L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15989	16082	
==>d creates and returns a new Rosetta::Model::Node object, that
lives in the Document object giv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6014	6109	
==>m reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6014	6109	
==>m reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6014	6109	
==>m reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it need <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3381	3475	
==>in/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module mu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6158	6324	
==>efined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            el <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6158	6324	
==>efined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            el <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11522	11648	
==>nation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11888	12014	
==>nation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11134	11227	
==><$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8538	8631	
==><$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11134	11227	
==><$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8538	8631	
==><$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15120	15220	
==>)
will need to display a message to the user, or generate a message to be
shown to the user.  Sometim <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15120	15220	
==>)
will need to display a message to the user, or generate a message to be
shown to the user.  Sometim <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19341	19432	
==>a challenge that indicates the
authentication scheme and parameters applicable to the reques <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19341	19432	
==>a challenge that indicates the
authentication scheme and parameters applicable to the reques <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	311	462	
==>nboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	311	462	
==>nboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	311	462	
==>nboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1952	2053	
==>e(Num $x, Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Inter <==
4	/Users/nnunley/pugs/util/version_h.pl	751	852	
==>sif (-r $svn_entries) {
    print "Writing version from $svn_entries to $version_h\n";
    open FH, $s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1671	1769	
==>f ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9401	9492	
==>ULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9401	9492	
==>ULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9401	9492	
==>ULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	322	434	
==>the archive name
    ### XXX maybe metainfo name later? requires peeking in, might be a
    ### catch22 if we don <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7480	7583	
==>>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7480	7583	
==>>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7480	7583	
==>>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8032	8169	
==>,
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more contr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8032	8169	
==>,
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more contr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8032	8169	
==>,
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more contr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10611	10707	
==>)`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10611	10707	
==>)`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1244	1336	
==>neral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alterna <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1244	1336	
==>neral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alterna <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21309	21422	
==>'> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> < <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1661	1755	
==>() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1661	1755	
==>() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1661	1755	
==>() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3138	3258	
==>-> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3138	3258	
==>-> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $ev <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3723	3837	
==>-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3723	3837	
==>-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $ev <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	310	415	
==>cal
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	310	415	
==>cal
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2760	2864	
==>st until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2760	2864	
==>st until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14050	14147	
==>dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] foun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14050	14147	
==>dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] foun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14050	14147	
==>dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] foun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3437	3557	
==>>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3437	3557	
==>>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3437	3557	
==>>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	123	237	
==>> $x {
	    take $x if $x ~~ $test;
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::join (Str $delimiter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1226	1323	
==>me vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1226	1323	
==>me vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1226	1323	
==>me vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	787	881	
==>hanged to cc_optimize_flags for consistency reasons";
	shift()->cc_optimize_flags(@_);
}

1;

_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4271	4380	
==>hObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2262	2357	
==>hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2262	2357	
==>hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2262	2357	
==>hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8727	8835	
==>($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8727	8835	
==>($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8727	8835	
==>($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Prim <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10367	10467	
==>xclusive/other stuff. For lots of discussion but no final
    # spec, see the thread rooted at <20050 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6444	6541	
==>h>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6444	6541	
==>h>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8641	8738	
==>h>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	265	359	
==>ass Perl::Type::Junctive isa Perl::Type;

# junctive types can only be disjunctions and conjunc <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10591	10731	
==>ew('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	685	798	
==>($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	685	798	
==>($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	685	798	
==>($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11743	11838	
==>:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not imple <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11801	11896	
==>:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not imple <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	514	617	
==>ts a Role.

A Role is a composable unit of behaviour; which includes;

=over

=item *

unbound public an <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	441	539	
==>ot specified.

=item pool_rel

The path to the pool directory that will be put into the index files <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9337	9432	
==>rl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9337	9432	
==>rl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9337	9432	
==>rl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {. <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7550	7668	
==>CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5847	5953	
==>vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5847	5953	
==>vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5847	5953	
==>vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1891	2017	
==>tate of a strap to make it ready for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11320	11433	
==>pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2
    pos += 2
    goto subrule_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14399	14495	
==>hy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14399	14495	
==>hy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36899	37005	
==>Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36899	37005	
==>Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36899	37005	
==>Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context" <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2033	2126	
==>bly, the event handler is I<not> called immediately -- other
events may be pending processing, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39628	39715	
==>rts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
infor <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24351	24438	
==>rts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more infor <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39628	39715	
==>rts to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
infor <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24351	24438	
==>rts to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more infor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5301	5395	
==>failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test w <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5301	5395	
==>failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6825	6919	
==>failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5399	5506	
==>mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5399	5506	
==>mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5399	5506	
==>mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24094	24194	
==>ple Class

A Relation::Example object is an unordered set of tuples, each of which is an
unordered se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1146	1287	
==>kage recognition

=cut

{   my $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => { allow => ISA_JIB_MET <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3241	3345	
==>eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3241	3345	
==>eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3241	3345	
==>eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2097	2204	
==>ile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2097	2204	
==>ile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1329	1432	
==>ile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3190	3293	
==>ile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6557	6652	
==>};
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6557	6652	
==>};
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6557	6652	
==>};
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12240	12357	
==>me = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4883	5000	
==>me = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1337	1448	
==>thod end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date: <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1337	1448	
==>thod end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3806	3897	
==>e factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
par <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3806	3897	
==>e factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6003	6094	
==>e factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
par <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4921	5010	
==>ted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range_greed(W <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9556	9652	
==>e any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9556	9652	
==>e any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34962	35055	
==>ubset of the heading of the invocant Relation.  This method
degenerates into an C<intersection <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39512	39605	
==>ubset of the heading of the invocant Relation.  This method
degenerates into an C<intersection <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3516	3666	
==>provides} || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10583	10737	
==>lternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10862	11016	
==>lternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9545	9640	
==>e
field names are cases insensitive.

Instances of this class are usually created as member vari <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9545	9640	
==>e
field names are cases insensitive.

Instances of this class are usually created as member vari <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1853	1951	
==>n are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20929	21027	
==>=head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
uno <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1853	1951	
==>n are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25481	25579	
==>=head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
uno <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9773	9948	
==>r1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	748	842	
==>ed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	748	842	
==>ed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	748	842	
==>ed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15610	15831	
==>stant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15889	16110	
==>stant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15196	15291	
==>xts, the encoded or
decoded string is returned (without changing the input string).

If you pref <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15196	15291	
==>xts, the encoded or
decoded string is returned (without changing the input string).

If you pref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7855	7984	
==>x eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13449	13578	
==>x eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7855	7984	
==>x eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13443	13572	
==>x eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2090	2213	
==>rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10958	11081	
==>rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2283	2406	
==>rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11237	11360	
==>rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3111	3200	
==>nits(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4949	5077	
==>numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4949	5077	
==>numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4949	5077	
==>numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1803	1912	
==>le;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7338	7502	
==>'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7338	7502	
==>'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7338	7502	
==>'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                ret <==
4	/Users/nnunley/pugs/util/package-osx.pl	1486	1584	
==>);

    %change_files = qw(
        /usr/local/lib/perl5/site_perl/jspugs.pl /Library/Perl/5.8.6/js <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1498	1597	
==>l::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@arra <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1498	1597	
==>l::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@arra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3184	3271	
==>oes => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3370	3457	
==>oes => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	958	1054	
==>'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	958	1054	
==>'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	958	1054	
==>'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3829	3934	
==>ide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3829	3934	
==>ide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3829	3934	
==>ide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5612	5715	
==>g{concurrent}, \@tests);
}

sub run_children {
    my ($self, $child_count, $all_tests) = @_;
    my $ch <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2725	2911	
==>nt("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   = <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2725	2911	
==>nt("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1736	1832	
==>$self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2058	2154	
==>$self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22061	22253	
==>{
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22621	22813	
==>{
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18482	18674	
==>{
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19042	19234	
==>{
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S-> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9591	9705	
==>e same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9591	9705	
==>e same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	221	330	
==>userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The pl <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	221	330	
==>userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The pl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15292	15413	
==>] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15292	15413	
==>] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15292	15413	
==>] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8995	9115	
==>how) = @_;
    return $S->force_object(anyof_class => punct => $neg, $how);
  });

  # space POSIX class
  $self->add_han <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3691	3802	
==>text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3691	3802	
==>text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7270	7372	
==>ks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7270	7372	
==>ks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9080	9179	
==>body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12557	12656	
==>body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11793	11892	
==>body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	783	898	
==>ve());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	783	898	
==>ve());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	783	898	
==>ve());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9989	10166	
==>r => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9989	10166	
==>r => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9989	10166	
==>r => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1978	2086	
==>],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(i <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2340	2448	
==>],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(i <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1978	2086	
==>],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(i <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2340	2448	
==>],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17575	17775	
==>$_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17575	17775	
==>$_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17575	17775	
==>$_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2843	2941	
==>',',@t_dirs||()));


# Find design doc directory, check
unless($no_designdocs) {
    for ( $syn_src <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1062	1179	
==>b _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity}\n" if exists $n->{f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3607	3715	
==>n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3607	3715	
==>n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3607	3715	
==>n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31131	31278	
==>length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31131	31278	
==>length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31131	31278	
==>length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6803	6907	
==>d;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7831	7962	
==>flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7831	7962	
==>flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7831	7962	
==>flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, nu <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	46	148	
==>mble which heads (or
# should head) up every core test program to prepare it for running.
# Now inste <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2486	2601	
==>+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2486	2601	
==>+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40199	40293	
==>ifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40199	40293	
==>ifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18737	18831	
==>oping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connect <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17780	17874	
==>oping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18737	18831	
==>oping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17780	17874	
==>oping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connect <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29526	29641	
==>ombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renver <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29526	29641	
==>ombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renver <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	338	445	
==>ombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renver <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	968	1061	
==>= $format{$Pugs::Utils::Interface::format};

	# load the required module
	eval "require $dumpe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5250	5504	
==>$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5250	5504	
==>$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	942	1053	
==>e;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservernam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	942	1053	
==>e;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservernam <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9959	10081	
==>ers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9959	10081	
==>ers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35504	35592	
==>ct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40054	40142	
==>ct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relati <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1184	1332	
==>en;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4423	4571	
==>en;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1184	1332	
==>en;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4423	4571	
==>en;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8705	8834	
==>ub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8705	8834	
==>ub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8705	8834	
==>ub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3302	3397	
==>h doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3302	3397	
==>h doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3302	3397	
==>h doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17478	17621	
==>'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17478	17621	
==>'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17478	17621	
==>'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERS <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2846	2965	
==>the Env, executing this tree will invoke
'&func':

    App(
        Sym('&func'),
        Val(1),
    ),

And also place <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4046	4150	
==>tr {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4046	4150	
==>tr {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6372	6472	
==>t of the rule, which unsets the flag before returning.

- this can also be used to do fail() and asse <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6166	6265	
==>t of the rule, which unsets the flag before returning.
- this can also be used to do fail() and asse <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17883	17983	
==>ionNoIn :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2378	2469	
==>erl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2378	2469	
==>erl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2378	2469	
==>erl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

c <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14227	14344	
==>arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1707	1824	
==>arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36567	36661	
==>$message and returns an equivalent human readable text message
string; this assumes that a Temp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36567	36661	
==>$message and returns an equivalent human readable text message
string; this assumes that a Temp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16180	16407	
==>($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	604	786	
==>.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	604	786	
==>.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	604	786	
==>.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11485	11592	
==>s);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11485	11592	
==>s);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11485	11592	
==>s);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29863	30016	
==>{
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29863	30016	
==>{
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29863	30016	
==>{
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1345	1490	
==>$resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12552	12651	
==>of things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

I <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12552	12651	
==>of things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

I <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20953	21045	
==>unsafe {
    #Pugs::Internals::require($module);
    Pugs::Internals::require_use_helper(Bool <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22001	22115	
==>__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3336	3436	
==>'',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, deco <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3336	3436	
==>'',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, deco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28540	28775	
==>) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28540	28775	
==>) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28540	28775	
==>) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	712	831	
==>re_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8082	8287	
==>$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8546	8751	
==>$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21594	21689	
==>inueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <';'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15653	15786	
==>y { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15653	15786	
==>y { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15653	15786	
==>y { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9468	9571	
==>int the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my $is_mac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3785	3927	
==>ss = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it should not be "._q($got)."\n",
                       "# but it i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5964	6067	
==>L1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5964	6067	
==>L1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5964	6067	
==>L1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5621	5725	
==>.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5621	5725	
==>.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5621	5725	
==>.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4510	4605	
==>t, '... go the right super-superclass name for Point3D');

is($p3d->get_x, 5, '... got the right <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7566	7672	
==>urpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7566	7672	
==>urpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7566	7672	
==>urpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6523	6612	
==>RULE
*{'sub_application'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4448	4569	
==>) );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4448	4569	
==>) );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11711	11819	
==>- An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11711	11819	
==>- An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7035	7141	
==>ent );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7035	7141	
==>ent );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7035	7141	
==>ent );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 } <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3387	3490	
==>1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10400	10525	
==>ods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10400	10525	
==>ods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10400	10525	
==>ods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2180	2284	
==>\W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	617	779	
==>vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	617	779	
==>vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5984	6086	
==>ent<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5984	6086	
==>ent<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event< <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1998	2118	
==>'$q'";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	13	124	
==>ckage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	13	124	
==>ckage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	13	124	
==>ckage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	430	546	
==>b tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	430	546	
==>b tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	430	546	
==>b tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($se <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7907	8018	
==>rn type.  List instead of Scalar.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3874	4014	
==>',
        precedence => 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	579	677	
==>lf(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	579	677	
==>lf(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	579	677	
==>lf(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3207	3393	
==>length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3207	3393	
==>length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3744	3845	
==>$self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{pr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5104	5205	
==>$self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2319	2514	
==>it() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2319	2514	
==>it() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2319	2514	
==>it() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	621	811	
==>:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value('%:slots', $hash);
            }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7501	7634	
==>matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7250	7376	
==>matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18132	18228	
==>s descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18132	18228	
==>s descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	529	636	
==>m->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opaque ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1563	1664	
==>ss('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1563	1664	
==>ss('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1563	1664	
==>ss('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1060	1201	
==>ict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1060	1201	
==>ict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9934	10027	
==>.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9934	10027	
==>.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12271	12373	
==>tart => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12271	12373	
==>tart => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2635	2730	
==>han the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2635	2730	
==>han the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really b <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	772	1036	
==>n $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	772	1036	
==>n $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2000	2130	
==>}
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2000	2130	
==>}
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3096	3264	
==>fined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2996	3159	
==>fined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32577	32674	
==>o, after it has
been walk()ed, it will insert the matching 'close' node into the
walking stack.

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36997	37092	
==>lags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22418	22558	
==>$scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22418	22558	
==>$scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22418	22558	
==>$scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11172	11289	
==>t1, $t3 - $t2;
# this is useful to see that the unnecessary parts of the prelude weren't compiled into the code #print <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25697	25792	
==>the script dies with one of the
above messages.

=item C<FAILED--Further testing stopped: %s>

I <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	795	882	
==>AME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for Engl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	795	882	
==>AME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for Engl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3112	3252	
==>can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3112	3252	
==>can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3112	3252	
==>can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	661	767	
==>c)
	}
}

if ($Conf{leaves}) {
    print "$_\n" for grep { not defined $nodes{$_} } keys %funcs;
}

if ($Con <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11017	11125	
==>) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11017	11125	
==>) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34688	34785	
==>nd returns a new Relation that has the
same heading as the invocant and whose body contains all of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39238	39335	
==>nd returns a new Relation that has the
same heading as the invocant and whose body contains all of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4136	4240	
==>ue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4136	4240	
==>ue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4136	4240	
==>ue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMul <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34775	34864	
==>ation::Example or the invocant relation,
respectively.

=item C<restrict (Code $predicate! <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1040	1183	
==>my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*EN <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1040	1183	
==>my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*EN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3932	4037	
==>mmar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3792	3895	
==>mmar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11605	11761	
==>=>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11605	11761	
==>=>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11605	11761	
==>=>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cel <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12042	12160	
==>rname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8027	8130	
==>oBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24923	25010	
==>t_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1) : <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	207	311	
==>call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	207	311	
==>call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subru <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	693	818	
==>nte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $num <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	693	818	
==>nte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $num <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7500	7596	
==>azy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7500	7596	
==>azy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	309	410	
==>.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	309	410	
==>.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27975	28066	
==>associated with
the variable name specified in the positional parameter $var_name (a
string) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27975	28066	
==>associated with
the variable name specified in the positional parameter $var_name (a
string) <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4678	4800	
==>$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6795	6911	
==>'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Stri <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6795	6911	
==>'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Stri <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3694	3810	
==>'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22723	22894	
==>YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22723	22894	
==>YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22723	22894	
==>YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2699	2805	
==>mbol) || die $@;

    # fill the place holder with the compiled version of the builtin
    $val->set($self- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6437	6578	
==>eading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6437	6578	
==>eading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compati <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7225	7348	
==>all method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7225	7348	
==>all method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2222	2322	
==>two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2222	2322	
==>two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1301	1398	
==>*@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for sor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1301	1398	
==>*@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for sor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3460	3588	
==>my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3460	3588	
==>my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3460	3588	
==>my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39250	39339	
==>uct (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9559	9676	
==>!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9559	9676	
==>!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37460	37579	
==>n "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37460	37579	
==>n "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37460	37579	
==>n "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9505	9611	
==>/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("deleteme_pil0",$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	403	499	
==>e ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	403	499	
==>e ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	403	499	
==>e ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5622	5732	
==>{ $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5622	5732	
==>{ $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5622	5732	
==>{ $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27486	27583	
==>lag for your regex, and creates the method
C<FLAG_u>.  This doesn't mean you can use them on C<qr/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	665	773	
==>infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	665	773	
==>infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	665	773	
==>infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28032	28137	
==>nt → list int", ":t map (\\x -> 10 + x)");

dies_ok { t($flatten_polymorphic) } "can't type λf.(pair (f <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5263	5386	
==>reduce  safe   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2033	2118	
==>me('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('Ei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2033	2118	
==>me('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('Ei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2033	2118	
==>me('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('Ei <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3430	3547	
==>t {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3430	3547	
==>t {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4954	5071	
==>t {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $de <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36988	37074	
==>disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	227	347	
==>,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	227	347	
==>,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	227	347	
==>,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6564	6679	
==>ict; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1405	1525	
==>aut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1405	1525	
==>aut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9932	10026	
==>erence, and a few
other operations.

This class also provides methods for iterating through the <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9932	10026	
==>erence, and a few
other operations.

This class also provides methods for iterating through the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	113	222	
==>set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	113	222	
==>set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1359	1458	
==>!! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1359	1458	
==>!! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1797	1914	
==>his class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { re <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1797	1914	
==>his class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17918	18013	
==>er program handling the request.

=item $h.from

This header should contain an Internet e-mail a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17918	18013	
==>er program handling the request.

=item $h.from

This header should contain an Internet e-mail a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4722	4859	
==>pile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->compile( q(
            { ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12722	12845	
==>ub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12722	12845	
==>ub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12722	12845	
==>ub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3535	3636	
==>. got the right x for p');
is($p->get_y, 0, '... got the right y for p');

is($p2->get_x, 100, '... st <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8703	8798	
==>ts.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurr <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8703	8798	
==>ts.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1249	1360	
==>ns;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/te <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1249	1360	
==>ns;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/te <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	940	1033	
==>0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	940	1033	
==>0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docum <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1205	1352	
==>7]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $duration = d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9491	9589	
==>be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9491	9589	
==>be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15356	15470	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15356	15470	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15356	15470	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4477	4578	
==>ficant. Defaults to 1 in Rules.

=item * Perl5 => 1 - Use Perl 5 grammar and semantics for Regex.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16832	16921	
==>ugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16832	16921	
==>ugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16832	16921	
==>ugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2487	2624	
==>t executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thunk won <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34623	34729	
==>lue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34623	34729	
==>lue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34623	34729	
==>lue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16872	17001	
==>";
        _diag "# GOT:\n$results\n";
        _diag "# STATUS: $status\n";
    }

    # Use the first line of the program as a na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1130	1246	
==>od'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1130	1246	
==>od'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1130	1246	
==>od'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1809	1927	
==>${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1809	1927	
==>${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{matc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	109	207	
==>IME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacem <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	109	207	
==>IME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacem <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5697	5793	
==>BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5697	5793	
==>BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7221	7317	
==>BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1459	1566	
==>nal}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1459	1566	
==>nal}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1668	1775	
==>nal}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1119	1254	
==>dir, $config->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2117	2216	
==>= IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2117	2216	
==>= IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2117	2216	
==>= IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS: <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2684	2810	
==>lar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file) {
			$chr = s <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	725	843	
==>e" or die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            dump_fil <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	966	1069	
==>ingle elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_differe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	966	1069	
==>ingle elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_differe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16982	17158	
==>ms->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16982	17158	
==>ms->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16982	17158	
==>ms->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2156	2280	
==>as variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2156	2280	
==>as variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2503	2627	
==>as variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_ <==
4	/Users/nnunley/pugs/util/package-osx.pl	6612	6700	
==>/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Perl6::Overvi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	749	860	
==>new(0) }
sub less_than    { $_[0]->_compare($_[1]) == -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	72	171	
==>PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	72	171	
==>PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	72	171	
==>PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1150	1265	
==>less{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4288	4396	
==>self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4288	4396	
==>self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4288	4396	
==>self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... l <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2810	2911	
==>e {
		my $self = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6287	6384	
==>oints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6287	6384	
==>oints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6287	6384	
==>oints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9130	9220	
==>::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	339	428	
==>require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	339	428	
==>require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	339	428	
==>require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

r <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4063	4245	
==>+ 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4063	4245	
==>+ 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	849	955	
==>t;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object create <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	849	955	
==>t;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object create <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24216	24314	
==>he Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28768	28866	
==>he Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5400	5495	
==>192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5400	5495	
==>192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7860	7986	
==>q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13454	13580	
==>q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7860	7986	
==>q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13448	13574	
==>q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1455	1578	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1455	1578	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1455	1578	
==>f and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_a <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	962	1175	
==>);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	962	1175	
==>);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18559	18669	
==>REFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boun <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18559	18669	
==>REFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boun <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3624	3732	
==>rt; };
use strict;

if($Regexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/worka <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	191	292	
==>ist out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() an <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	191	292	
==>ist out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() an <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2024	2162	
==>} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depend <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3397	3527	
==>} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depend <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	653	748	
==>ntist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATIN <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	653	748	
==>ntist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATIN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5139	5268	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5139	5268	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5139	5268	
==>-$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obje <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26493	26588	
==>tom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRan <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21782	21887	
==>= "List of Failed";

    # Figure out our longest name string for formatting purposes.
    my $max_namelen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23766	23863	
==>ys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23766	23863	
==>ys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23766	23863	
==>ys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14470	14659	
==>_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14470	14659	
==>_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14470	14659	
==>_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2495	2612	
==>ound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	589	714	
==>owever, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't all <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1077	1202	
==>owever, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't all <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	589	714	
==>owever, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't all <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1077	1202	
==>owever, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't all <==
4	/Users/nnunley/pugs/util/importgraph.pl	1740	1842	
==>}
}
sub setup_cluster { setup_mod(2, @_) }
sub setup_rank { setup_mod(3, @_) }

setup_cluster('Pugs.Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	180	278	
==>(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	180	278	
==>(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	180	278	
==>(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4328	4492	
==>Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4328	4492	
==>Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4328	4492	
==>Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	144	267	
==>asename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Mess <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2540	2644	
==>embers));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2540	2644	
==>embers));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19153	19247	
==>.  Likewise, emulation layers for any other programming language can
be supported, such as Tuto <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19153	19247	
==>.  Likewise, emulation layers for any other programming language can
be supported, such as Tuto <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6181	6295	
==>ammar_perl5;

    # create a local variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	742	832	
==>---------------------------------------------------------
## Object

# The 'Object' class
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	742	832	
==>---------------------------------------------------------
## Object

# The 'Object' class
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	742	832	
==>---------------------------------------------------------
## Object

# The 'Object' class
$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12646	12825	
==>>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12640	12819	
==>>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5483	5597	
==>t;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5483	5597	
==>t;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9155	9267	
==>"", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	518	624	
==>s{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = '' unless <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	16	121	
==>Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elemen <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	16	121	
==>Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elemen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11072	11194	
==>as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11072	11194	
==>as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan( <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1974	2092	
==>f( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a refer <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3566	3684	
==>f( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a refer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	193	310	
==>] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	193	310	
==>] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	193	310	
==>] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => " <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1920	2015	
==>cted strings
in TAP format.

The F<prove> utility is a thin wrapper around Test::Harness.

=head <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1574	1711	
==>e URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1574	1711	
==>e URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6571	6680	
==>0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6571	6680	
==>0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39824	39950	
==>s");
      return $S->force_object(exact => "y");
    }
    else {
      # ...
    }
  });

Also note the C<RPe_BADESC> warning <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6120	6249	
==>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6120	6249	
==>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6120	6249	
==>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # war <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28035	28127	
==><--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7384	7488	
==>ugs::Grammar::Precedence;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1580	1677	
==>tribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1580	1677	
==>tribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1580	1677	
==>tribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_me <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4017	4127	
==>quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4017	4127	
==>quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7961	8051	
==>s{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7961	8051	
==>s{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	964	1066	
==>n 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	964	1066	
==>n 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	964	1066	
==>n 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10825	10979	
==>{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10825	10979	
==>{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5087	5223	
==>else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4946	5082	
==>else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	770	896	
==>o
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	770	896	
==>o
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	770	896	
==>o
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6424	6646	
==>xed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this afte <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6424	6646	
==>xed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this afte <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6424	6646	
==>xed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this afte <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26408	26545	
==>rn $self;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub visua <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2637	2744	
==>formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2637	2744	
==>formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2984	3091	
==>formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1099	1191	
==>o enable $interface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to_leve <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6659	6817	
==>{ 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = sh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6659	6817	
==>{ 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = sh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1863	1964	
==>e Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6590	6687	
==>rset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchref(I).
p5_elemental(ws(C))   --> [C], {is <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1780	1876	
==>ut for forward compatibility it should always be the 
value C<1>, the default for the C<:name> fo <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1780	1876	
==>ut for forward compatibility it should always be the 
value C<1>, the default for the C<:name> fo <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1570	1663	
==>ory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1410	1503	
==>ory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1240	1335	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1240	1335	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1240	1335	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = arg <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2196	2332	
==>when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2196	2332	
==>when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1727	1843	
==>g);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1727	1843	
==>g);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5991	6102	
==>'MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5991	6102	
==>'MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5991	6102	
==>'MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4728	4822	
==>alX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PSt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4728	4822	
==>alX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PSt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4728	4822	
==>alX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PSt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17136	17300	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17136	17300	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17136	17300	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLO <==
4	/Users/nnunley/pugs/util/func_refact.pl	904	1046	
==>int "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %c <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	452	572	
==>erver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    pr <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	452	572	
==>erver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    pr <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1667	1762	
==>ational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf retur <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1667	1762	
==>ational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5113	5224	
==>database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'de <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5113	5224	
==>database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'de <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2184	2277	
==>d3 Functional interface

The Cipher API's functional interface is perhaps the easiest one that <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2184	2277	
==>d3 Functional interface

The Cipher API's functional interface is perhaps the easiest one that <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11547	11656	
==>$char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*en <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11547	11656	
==>$char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*en <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36141	36238	
==>adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of [ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36141	36238	
==>adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of [ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1778	1880	
==>t->to_num->to_native != 0)
        || confess "Division by zero error";
    return num->new(int($left-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2487	2582	
==>(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2487	2582	
==>(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2487	2582	
==>(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!" <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6413	6610	
==>pp->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1143	1242	
==>Triggering rebuild... " if $Config{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlink "blib <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9257	9344	
==>::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3082	3169	
==>::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	85	196	
==>] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	85	196	
==>] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	85	196	
==>] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    " <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18940	19048	
==>or> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16049	16149	
==>e' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16049	16149	
==>e' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16049	16149	
==>e' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($labe <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	34	132	
==>ernel object.
our $POE::Kernel = ::POE::Kernel.new;

class POE::Kernel {
  # FIFO containing the ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13424	13521	
==>(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13424	13521	
==>(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13424	13521	
==>(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2326	2441	
==>uthority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2326	2441	
==>uthority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2326	2441	
==>uthority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5688	5893	
==>my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5688	5893	
==>my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5688	5893	
==>my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'ma <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1193	1288	
==>iated - points to another variable or operator

use Language::AttributeGrammar;

# this attribut <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2380	2538	
==>"rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2691	2844	
==>"rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2691	2844	
==>"rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40354	40454	
==>> VALUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1601	1729	
==>($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1601	1729	
==>($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1601	1729	
==>($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11532	11636	
==>}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8899	9045	
==>'$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14628	14774	
==>'$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8899	9045	
==>'$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14622	14768	
==>'$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26237	26350	
==>aracterClass {  # see 15.10.1
      <'['> <!before <'^'>> <ClassRanges> <']'> #lookahead
    | <'[^'> <ClassRanges <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	765	867	
==>//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	765	867	
==>//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	765	867	
==>//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30565	30727	
==>{
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30565	30727	
==>{
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30565	30727	
==>{
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @r <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3890	4031	
==>odule =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (the need for a semicolon in "};" is proba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13567	13714	
==>one; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13567	13714	
==>one; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13567	13714	
==>one; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6484	6577	
==>TION

This module parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3393	3502	
==>ll::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3393	3502	
==>ll::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3393	3502	
==>ll::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17449	17546	
==>METH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->send('add_method' => (
    # method la <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2373	2551	
==>,
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::T <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2373	2551	
==>,
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::T <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1199	1305	
==>>param("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("sm <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	249	383	
==>TS = (
    optimization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1022	1141	
==><rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1422	1541	
==><rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1896	2015	
==><rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2119	2222	
==>ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2119	2222	
==>ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2119	2222	
==>ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0] <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2499	2599	
==>'s method is ever really good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17192	17312	
==>erms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17192	17312	
==>erms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nic <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11769	11886	
==>) {
        $reopts||='';
        $link->{regex} = eval "qr/$regex/$reopts";
      }
      $link->{sourcepath}=$output <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	175	273	
==>the job
* Some of this had not been specced yet (need S29 work).

When writing primitives, please d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20421	20536	
==>ndant);
    for WALKMETH($dispatcher, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2708	2806	
==>S.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2708	2806	
==>S.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2708	2806	
==>S.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7709	7869	
==>};

        my $match = $node->( @_ );

        $debug->{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order rul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9279	9433	
==>};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9279	9433	
==>};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7449	7602	
==>};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15167	15306	
==>rs
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15167	15306	
==>rs
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15167	15306	
==>rs
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $meth <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18474	18573	
==>ditionalExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <LogicalORExpress <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11579	11686	
==>{ -r "$initrd_mnt/lib6/$_" or return for @modfiles; 1 },
    using  => sub {
      utime undef, undef, $init <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3916	4014	
==>g the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3916	4014	
==>g the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6113	6211	
==>g the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::B <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2593	2719	
==>elf }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2593	2719	
==>elf }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	440	555	
==>@match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	440	555	
==>@match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11833	11998	
==>hod eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11833	11998	
==>hod eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11833	11998	
==>hod eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36532	36631	
==>visual, "\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	24	136	
==>Operatoren
sub prefix:<Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2040	2149	
==>rapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2040	2149	
==>rapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2040	2149	
==>rapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapp <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	327	433	
==>eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub find_immediate_dyn_sym { <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5768	5946	
==>r on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5768	5946	
==>r on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4904	5070	
==>r on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4904	5070	
==>r on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5770	5870	
==>= @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5849	5949	
==>= @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22334	22427	
==>other, or having multiple search
directories in your path that packages could be installed in. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22334	22427	
==>other, or having multiple search
directories in your path that packages could be installed in. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8845	8959	
==>ix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8845	8959	
==>ix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2724	2824	
==>::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2724	2824	
==>::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2225	2351	
==>perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2225	2351	
==>perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2225	2351	
==>perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35549	35640	
==>thod has aliases
named C<where> and C<grep>.

=item C<union (Relation::Example $other!) retu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11900	11999	
==>tities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11900	11999	
==>tities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23289	23387	
==>ges require your text data to be stored in a format other than Perl
files.  Or alternately they hav <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23289	23387	
==>ges require your text data to be stored in a format other than Perl
files.  Or alternately they hav <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4666	4768	
==>ct, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Retur <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4666	4768	
==>ct, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32499	32591	
==>ranslator Class

While a Translator object stores some attributes for configuration, its
main <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32499	32591	
==>ranslator Class

While a Translator object stores some attributes for configuration, its
main <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5748	5943	
==>h the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier> <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5748	5943	
==>h the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier> <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4884	5067	
==>h the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier> <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4884	5067	
==>h the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	388	492	
==>turn Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	388	492	
==>turn Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1401	1504	
==>turn Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1401	1504	
==>turn Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5694	5812	
==>te::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5694	5812	
==>te::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9673	9781	
==>\$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10509	10617	
==>\$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1907	2120	
==>block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3263	3389	
==>ms ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3263	3389	
==>ms ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3263	3389	
==>ms ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3881	3996	
==>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid comp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3881	3996	
==>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid comp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3881	3996	
==>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid comp <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2463	2559	
==>nvert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_upload) {
  if (defined $s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8361	8476	
==>ap->{error}, "\n";  next };

        # state of the current test.
        my @failed = grep { !$results{details}[$_- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4667	4769	
==>ion if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4667	4769	
==>ion if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6191	6293	
==>ion if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	649	779	
==>ined in an upper scope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21212	21317	
==>x1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21212	21317	
==>x1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21212	21317	
==>x1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8945	9116	
==>, $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14674	14845	
==>, $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8945	9116	
==>, $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14668	14839	
==>, $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2140	2235	
==>x:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2140	2235	
==>x:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2140	2235	
==>x:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10659	10752	
==>rtical_space))    --> "\\v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p6_c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3110	3208	
==>@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3110	3208	
==>@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33642	33732	
==>ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relation> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38192	38282	
==>ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relation> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7618	7763	
==>= &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7618	7763	
==>= &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1062	1180	
==>> 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1062	1180	
==>> 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'R <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10544	10652	
==>my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10702	10810	
==>my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8399	8495	
==>t::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8457	8553	
==>t::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_te <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5688	5840	
==>nd ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7450	7602	
==>nd ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	71	167	
==>ILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	71	167	
==>ILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	703	844	
==>ut a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	703	844	
==>ut a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	703	844	
==>ut a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4639	4738	
==>::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::P <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2170	2302	
==>,0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2170	2302	
==>,0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3206	3290	
==>r->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3392	3476	
==>r->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE(': <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29007	29101	
==>s Relation::Example>

This method is a generic relational operator that returns a new Relation: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29655	29749	
==>s Relation::Example>

This method is a generic relational operator that returns a new Relation: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30816	30910	
==>s Relation::Example>

This method is a generic relational operator that returns a new Relation: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34873	34967	
==>s Relation::Example>

This method is a generic relational operator that returns a new Relation: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1298	1415	
==>hodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1287	1395	
==>hodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	663	759	
==>y of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	663	759	
==>y of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1057	1169	
==>>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1057	1169	
==>>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1057	1169	
==>>get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1654	1761	
==>y_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1654	1761	
==>y_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1654	1761	
==>y_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.B <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1171	1268	
==>les (Default: ./t_index)
    --test_dirs     Directories containing the tests (Default: take tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19843	19989	
==>, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19843	19989	
==>, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19843	19989	
==>, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4389	4495	
==>prototype->class, \&Point, '... go the right superclass name for Point3D');
is($p3d->prototype->prototype-> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	378	509	
==>al !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	378	509	
==>al !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1669	1760	
==>e Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1669	1760	
==>e Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1465	1575	
==>equest( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1465	1575	
==>equest( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15454	15551	
==>4

=item $h.date

This header represents the date and time at which the message was
originated. I< <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15454	15551	
==>4

=item $h.date

This header represents the date and time at which the message was
originated. I< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13163	13325	
==>os = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13157	13319	
==>os = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6698	6810	
==>h

### getters need to know what you want (str, bool, hash, array, match)



- compile()



### obvious - not doc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6474	6581	
==>h
### getters need to know what you want (str, bool, hash, array, match)

- compile()

### obvious - not doc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24178	24323	
==>->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24178	24323	
==>->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24178	24323	
==>->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1575	1677	
==>${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1575	1677	
==>${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12348	12449	
==>KT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12348	12449	
==>KT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::M <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	664	780	
==>tware() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on t <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	664	780	
==>tware() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on t <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9981	10080	
==>}
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9981	10080	
==>}
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	760	899	
==>ink=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	760	899	
==>ink=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	760	899	
==>ink=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1378	1479	
==><PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1378	1479	
==><PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1378	1479	
==><PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1010	1119	
==>S($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1010	1119	
==>S($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1010	1119	
==>S($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_att <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13266	13373	
==>_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $self->reduce($thunk);

    #warn "apply <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1806	1904	
==>ty it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags ar <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1806	1904	
==>ty it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags ar <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13534	13629	
==>(or before an implementation
could be started).  This is most useful when writing modules and yo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13592	13687	
==>(or before an implementation
could be started).  This is most useful when writing modules and yo <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1170	1278	
==>($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't open '$scrip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1137	1239	
==>a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1137	1239	
==>a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1137	1239	
==>a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4764	4871	
==>ess length $lines;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with error code ".($?> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21629	21726	
==>e appropriate to the context in which they are using your package.  One
can override simply by usi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21629	21726	
==>e appropriate to the context in which they are using your package.  One
can override simply by usi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8908	9004	
==>join<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1590	1733	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1590	1733	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1590	1733	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	541	648	
==>ub add_op {
    # name=>'*', precedence=>'>', other=>'+', rule=>$rule
    my ($self, $opt) = @_;
    print " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1010	1115	
==>mpiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1010	1115	
==>mpiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1010	1115	
==>mpiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	836	995	
==>Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varglobal {
    my $grammar =  shift;
    $_[0] = "" unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	237	333	
==>ieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	237	333	
==>ieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	237	333	
==>ieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10247	10360	
==>ical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the st <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13724	13837	
==>ical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the st <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13005	13118	
==>ical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the st <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18931	19028	
==>entOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'=' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4738	4922	
==>')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4738	4922	
==>')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4738	4922	
==>')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "T <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1024	1124	
==>rn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1024	1124	
==>rn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	147	277	
==>SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	147	277	
==>SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	147	277	
==>SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16259	16364	
==>-> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16259	16364	
==>-> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35835	35931	
==>s it with the
invocant relation into a new Relation, such that all common attribute names
and cor <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40385	40481	
==>s it with the
invocant relation into a new Relation, such that all common attribute names
and cor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2675	2811	
==>);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2675	2811	
==>);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2675	2811	
==>);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27885	27981	
==>)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPI <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3915	4020	
==>", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3915	4020	
==>", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    = <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2242	2338	
==>1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2242	2338	
==>1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	324	439	
==>s, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	324	439	
==>s, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in ma <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	817	921	
==>ubmethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	817	921	
==>ubmethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17064	17198	
==>macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17343	17477	
==>macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2999	3100	
==>l value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sen <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2999	3100	
==>l value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	544	646	
==>e use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	544	646	
==>e use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	544	646	
==>e use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15133	15223	
==>tiveExpression>
    | <AdditiveExpression> <'-'> <MultiplicativeExpression>
}
rule ShiftExp <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1553	1658	
==>_template) {
        print <<".";
*** Build config file '$filename' is older than template
    '$config_te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11092	11224	
==>)
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11086	11218	
==>)
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17181	17277	
==>f any other package or application says that it uses
Locale::KeyedText, that is a terse way of sa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17181	17277	
==>f any other package or application says that it uses
Locale::KeyedText, that is a terse way of sa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11193	11370	
==>atch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = sh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8763	8902	
==>\n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9598	9737	
==>\n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6691	6789	
==>.name',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Eager <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4731	4935	
==>");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4731	4935	
==>");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2793	2937	
==>file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3010	3154	
==>file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14579	14676	
==>x`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14579	14676	
==>x`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14579	14676	
==>x`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21877	21966	
==>nt two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::AndBranch>.

=head2 Parser In <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	896	1005	
==>index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self-referen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1261	1367	
==>index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	860	966	
==>index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1261	1367	
==>index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3897	4004	
==>ze_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3897	4004	
==>ze_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	45	300	
==>used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	45	300	
==>used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	45	300	
==>used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	45	300	
==>used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4881	5016	
==>$a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4881	5016	
==>$a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4881	5016	
==>$a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3244	3357	
==>ject at all times
        unless( $self->can('file') ) {
            error("No file associated with this object -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1077	1194	
==>stance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1077	1194	
==>stance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1077	1194	
==>stance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
}) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	603	848	
==>::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	603	848	
==>::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11324	11440	
==>G' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11324	11440	
==>G' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2989	3170	
==>o grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4451	4545	
==>ethod actually creates and returns a new Test::Builder instance.  It
takes the same optional na <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4451	4545	
==>ethod actually creates and returns a new Test::Builder instance.  It
takes the same optional na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5975	6069	
==>ethod actually creates and returns a new Test::Builder instance.  It
takes the same optional na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7222	7326	
==>g decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7222	7326	
==>g decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7222	7326	
==>g decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2206	2340	
==>ub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2206	2340	
==>ub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2206	2340	
==>ub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	466	577	
==>sts $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $self->{r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	352	457	
==>,
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	352	457	
==>,
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    ' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1833	1929	
==>ttributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1833	1929	
==>ttributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4762	4881	
==>r each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        u <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4762	4881	
==>r each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        u <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3648	3760	
==>mall y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars tha <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3648	3760	
==>mall y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6869	6982	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6869	6982	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6869	6982	
==>IL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = arg <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3830	3934	
==>p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { require_bare <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23796	23920	
==>ft;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	912	1005	
==>tless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	912	1005	
==>tless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	912	1005	
==>tless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through it <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	854	968	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	854	968	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	854	968	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4351	4444	
==>tests(@test_files);

This runs all the given I<@test_files> and divines whether they passed
or <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3469	3621	
==>&& $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3469	3621	
==>&& $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1299	1429	
==>();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Times <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1299	1429	
==>();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Times <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7087	7229	
==>$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7087	7229	
==>$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7087	7229	
==>$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrem <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6977	7075	
==>types;

use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of the various types d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9706	9816	
==>nyof_class => xdigit => $neg, $how);
  });

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1439	1532	
==>my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1439	1532	
==>my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1439	1532	
==>my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5222	5353	
==>{
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    unde <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5222	5353	
==>{
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    unde <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10672	10780	
==>em.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can als <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10672	10780	
==>em.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can als <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	210	325	
==>ormat = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	653	749	
==>next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are en <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	653	749	
==>next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are en <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2437	2574	
==>dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessors( qw[avail <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14216	14353	
==>'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14495	14632	
==>'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( " <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30604	30699	
==>h file can be
shared by multiple Messages but the whole module must represent a single
language. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30604	30699	
==>h file can be
shared by multiple Messages but the whole module must represent a single
language. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1932	2029	
==>stribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1895	1992	
==>stribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1932	2029	
==>stribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1895	1992	
==>stribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2584	2722	
==>BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2584	2722	
==>BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2584	2722	
==>BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [] <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1239	1361	
==>details.
This implementation is meant to show the power of Perl 6 defaults and
Currying in a real context.

The newton func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7002	7121	
==>ge PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7002	7121	
==>ge PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7002	7121	
==>ge PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sp <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1516	1610	
==>ub time_t( Int $time_t ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(197 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14467	14658	
==>"kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14746	14937	
==>"kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2586	2693	
==>$data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2586	2693	
==>$data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13044	13152	
==>MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13044	13152	
==>MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13044	13152	
==>MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18901	19025	
==>_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18901	19025	
==>_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18901	19025	
==>_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $x <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13593	13689	
==>hose key matches C<$key>, false
otherwise.

An unary form is expected. See Hash::delete


=item k <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2311	2445	
==>int "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9083	9217	
==>int "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2311	2445	
==>int "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9083	9217	
==>int "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4882	5056	
==>e matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($ver <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4882	5056	
==>e matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($ver <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2410	2514	
==>ub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as lit <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2410	2514	
==>ub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as lit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1434	1540	
==>eir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1434	1540	
==>eir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1434	1540	
==>eir keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21637	21730	
==>ember(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2388	2511	
==>sic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if $x < 0       { return -1    };
   i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2735	2828	
==>($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2735	2828	
==>($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2735	2828	
==>($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8274	8402	
==>rn $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8274	8402	
==>rn $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	929	1054	
==>has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object w <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	929	1054	
==>has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5641	5740	
==>pand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5641	5740	
==>pand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5641	5740	
==>pand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	38	135	
==>end::Perl::Builtins;

use strict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blon <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	333	435	
==>n?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	333	435	
==>n?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11059	11160	
==>code into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11059	11160	
==>code into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1105	1219	
==>$class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	847	961	
==>$class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retu <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1105	1219	
==>$class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retu <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	847	961	
==>$class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12159	12301	
==>my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold eac <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12159	12301	
==>my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold eac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8100	8225	
==>%$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8112	8237	
==>%$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12660	12777	
==>y \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8934	9051	
==>y \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9769	9886	
==>y \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29880	29975	
==>s>.  The new Relation::Example has all
of the tuples of the original (or rather, the correspondi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	310	420	
==>ers() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	310	420	
==>ers() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized pro <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	892	986	
==>freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more d <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	892	986	
==>freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1236	1342	
==>elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4570	4671	
==>e_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4570	4671	
==>e_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4570	4671	
==>e_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7780	7892	
==>nown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2077	2183	
==>nown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2077	2183	
==>nown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2077	2183	
==>nown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2355	2496	
==>= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2355	2496	
==>= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8728	8839	
==>ser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6258	6364	
==>ser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	292	397	
==>als);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	292	397	
==>als);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	292	397	
==>als);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40510	40636	
==>n $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40510	40636	
==>n $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40510	40636	
==>n $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    retu <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1729	1830	
==>::Spec->catfile($path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35954	36118	
==>elf:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->store(
                      $e->get('$label'), 
                      $e->get(' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	597	769	
==>llow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTA <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6449	6590	
==>tinue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eee <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6449	6590	
==>tinue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eee <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5666	5798	
==>ons($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5680	5805	
==>y   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5680	5805	
==>y   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5680	5805	
==>y   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	467	584	
==>ed $v;
      }
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retva <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29150	29253	
==>! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33702	33805	
==>! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic rel <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3459	3658	
==>$line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3459	3658	
==>$line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1165	1269	
==>urn $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use D <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1165	1269	
==>urn $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use D <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	335	431	
==>ntent_language
    title user_agent server from referer
    www_authenticate authorization proxy_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	335	431	
==>ntent_language
    title user_agent server from referer
    www_authenticate authorization proxy_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36807	36899	
==>nal operator that is like
C<union> except that the returned Relation::Example contains only t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37307	37399	
==>nal operator that is like
C<union> except that the returned Relation::Example contains only t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9086	9264	
==>> $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12563	12741	
==>> $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11799	11977	
==>> $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

metho <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22669	22780	
==>ocal pmc exp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto words
    if m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19270	19370	
==>main runloop, which is only exited if the connection to the server
dies. To read data from the server <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18295	18395	
==>main runloop, which is only exited if the connection to the server
dies. To read data from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19270	19370	
==>main runloop, which is only exited if the connection to the server
dies. To read data from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18295	18395	
==>main runloop, which is only exited if the connection to the server
dies. To read data from the server <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15115	15219	
==>=> sub { $as_hash_complain->("ref") },
      glob  => sub { $as_hash_complain->("glob") },
      lvalue = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5590	5685	
==>ds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5590	5685	
==>ds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7787	7882	
==>ds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4328	4430	
==>n
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is dif <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3455	3557	
==>n
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is dif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4328	4430	
==>n
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is dif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3455	3557	
==>n
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is dif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	598	698	
==>dule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	598	698	
==>dule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	598	698	
==>dule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# th <==
4	/Users/nnunley/pugs/util/package-osx.pl	6738	6826	
==>an/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overview::Vari <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9094	9198	
==>cies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we m <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9094	9198	
==>cies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4376	4478	
==>{
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4561	4663	
==>{
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4756	4854	
==>sually the entire match string).

=head2 0+

When used as a number, the match object returns the nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4756	4854	
==>sually the entire match string).

=head2 0+

When used as a number, the match object returns the nu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13517	13612	
==>re left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we al <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13517	13612	
==>re left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we al <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6326	6436	
==>method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6326	6436	
==>method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3015	3124	
==>s : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insuffici <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3015	3124	
==>s : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insuffici <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28154	28249	
==>f this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified vers <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28154	28249	
==>f this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified vers <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1362	1535	
==>tity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Serv <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1362	1535	
==>tity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Serv <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5361	5518	
==>[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5583	5740	
==>[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1285	1389	
==>:use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22968	23068	
==>fined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22968	23068	
==>fined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22968	23068	
==>fined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11745	11846	
==>es the given items if they are already in the set, or inserts the items if
they're not in the set.

Re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8892	8993	
==>es the given items if they are already in the set, or inserts the items if
they're not in the set.

Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11745	11846	
==>es the given items if they are already in the set, or inserts the items if
they're not in the set.

Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8892	8993	
==>es the given items if they are already in the set, or inserts the items if
they're not in the set.

Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16536	16679	
==>( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20013	20156	
==>( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19573	19716	
==>( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $ <==
4	/Users/nnunley/pugs/util/grokprims.pl	1703	1806	
==>==2) {
    $example = "HUH: left-associative with arity $arity";
  } elsif (/right-associative/) {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1780	1913	
==>et(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1780	1913	
==>et(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4776	4872	
==>or Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4916	5012	
==>or Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1778	1903	
==>{ perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1971	2096	
==>{ perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5556	5673	
==>unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5778	5895	
==>unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13528	13666	
==>string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3669	3795	
==>string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3669	3795	
==>string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3669	3795	
==>string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($stri <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3969	4099	
==>@.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3969	4099	
==>@.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2151	2248	
==>equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2151	2248	
==>equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3211	3319	
==>);

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use by the Span <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6514	6622	
==>);

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use by the Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3211	3319	
==>);

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use by the Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6514	6622	
==>);

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use by the Span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3282	3373	
==>:opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3282	3373	
==>:opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3282	3373	
==>:opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6021	6131	
==>f($sn eq 'our') {
	warn "our PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5377	5480	
==>t returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5377	5480	
==>t returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7574	7677	
==>t returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21027	21140	
==>add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, & <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17448	17561	
==>add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, & <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17859	17953	
==>tabases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17859	17953	
==>tabases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	420	563	
==>}, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	420	563	
==>}, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	420	563	
==>}, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10076	10189	
==>>{data} };
      $ifthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data};
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9207	9328	
==>er not implemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12465	12560	
==>($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12465	12560	
==>($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12465	12560	
==>($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	834	990	
==>ue('@:slots')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9716	9813	
==>PTION

This module was built to facilitate the Pugs test suite. It has the
distinction of being th <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9774	9871	
==>PTION

This module was built to facilitate the Pugs test suite. It has the
distinction of being th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10913	11035	
==>gram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10907	11029	
==>gram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6359	6454	
==>d print a document identified by a URL. The document is printed
to the selected default filehand <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6359	6454	
==>d print a document identified by a URL. The document is printed
to the selected default filehand <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3040	3169	
==>",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3040	3169	
==>",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3040	3169	
==>",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4137	4255	
==>f defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4137	4255	
==>f defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3591	3694	
==>rgs->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2632	2734	
==>rgs->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1793	1921	
==>le('files.list')     ];
$config{'_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38628	38743	
==>rl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38628	38743	
==>rl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38628	38743	
==>rl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3299	3407	
==>ew(CORE::reverse(@{$self}));
}

## list iterators

sub each : method {
    my ($self, $closure) = @_;
    (bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40980	41076	
==>is->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40980	41076	
==>is->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40980	41076	
==>is->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9612	9723	
==>= $self->{rx}->object($self->type);
      $br->omit(1);
      for (reverse @{ $self->data }) {
        unshift @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5631	5721	
==>(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5631	5721	
==>(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5631	5721	
==>(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1679	1783	
==>) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FET <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1679	1783	
==>) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FET <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	828	927	
==>::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	828	927	
==>::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	833	942	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	833	942	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	833	942	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($t <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15142	15236	
==>, RWx = rewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9292	9435	
==>t    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = % <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9292	9435	
==>t    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = % <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	647	746	
==>XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	809	908	
==>XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5121	5320	
==>('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{"passed"}        = 1;
            $status->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8252	8364	
==>elf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8252	8364	
==>elf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8252	8364	
==>elf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10529	10641	
==>e
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10529	10641	
==>e
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10529	10641	
==>e
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6078	6178	
==>hift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package Regexp::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1947	2078	
==>i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1947	2078	
==>i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1947	2078	
==>i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11126	11255	
==>ndler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16507	16621	
==>odo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17192	17300	
==>sal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17192	17300	
==>sal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17192	17300	
==>sal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() f <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1869	2010	
==>er;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1869	2010	
==>er;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7787	7873	
==>6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1612	1698	
==>6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12382	12482	
==>re
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$shortest --> Lazy ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1626	1714	
==>) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1626	1714	
==>) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1626	1714	
==>) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3549	3704	
==>nless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4477	4629	
==>nless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3438	3590	
==>nless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4477	4629	
==>nless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @st <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5274	5380	
==>x_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibilit <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5274	5380	
==>x_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibilit <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3509	3611	
==>parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put a <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3509	3611	
==>parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1161	1259	
==>r auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1161	1259	
==>r auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1161	1259	
==>r auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref( <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1697	1794	
==>erclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2835	2937	
==>)($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2835	2937	
==>)($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2835	2937	
==>)($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns n <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8093	8180	
==>W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="h <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4794	4912	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3921	4039	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4794	4912	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3921	4039	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8673	8803	
==>($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8673	8803	
==>($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8673	8803	
==>($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	188	316	
==>use v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clear {
#  my $self = shift;
# <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11037	11140	
==>sntall metadata
    system( qq[rm -rf ] . $self->control_dir( $inst_pkg->package ) ) and die $?;

    ms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7191	7286	
==>ame == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7191	7286	
==>ame == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7191	7286	
==>ame == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont- <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20597	20708	
==>l6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5413	5499	
==>_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5413	5499	
==>_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5413	5499	
==>_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSI <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	101	201	
==>ke a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences sh <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	101	201	
==>ke a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences sh <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2398	2489	
==>gexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* r, char* stringa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	268	378	
==>_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	268	378	
==>_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	268	378	
==>_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::is <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7586	7680	
==>$last = pop @children_of_seq;

			my @params = grep { $_->struct_equiv->isa("Blondie::Param") } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3529	3653	
==>, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3529	3653	
==>, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3529	3653	
==>, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18025	18126	
==>rn "Test header seen more than once!\n" if $self->{_seen_header};

    $self->{_seen_header}++;

    w <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10303	10415	
==>-> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10303	10415	
==>-> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4748	4923	
==>d yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4748	4923	
==>d yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1611	1711	
==>}

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1611	1711	
==>}

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29553	29673	
==>@{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29553	29673	
==>@{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29553	29673	
==>@{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) { <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	458	560	
==>l 6. These five examples
# can be improved in many ways, and have been in the Perl Monks
# thread menti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	389	521	
==>0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	389	521	
==>0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29789	29897	
==>turn %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29789	29897	
==>turn %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consi <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	226	330	
==>]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> * <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	226	330	
==>]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> * <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	995	1085	
==>ctional, procedural, and object-oriented interfaces.  The 
functional and object-oriented i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	995	1085	
==>ctional, procedural, and object-oriented interfaces.  The 
functional and object-oriented i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2174	2278	
==>is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2174	2278	
==>is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %! <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	819	920	
==>ethod get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	819	920	
==>ethod get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4448	4556	
==>h), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4448	4556	
==>h), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4448	4556	
==>h), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1472	1568	
==>ed($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1472	1568	
==>ed($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1472	1568	
==>ed($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	606	716	
==>$match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $ma <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	606	716	
==>$match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $ma <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7190	7278	
==>t_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7190	7278	
==>t_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11905	12000	
==>nchar("LATIN CAPITAL LETTER R");

This means you must have the F<charnames> pragma installed, bu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	457	632	
==>ond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5511	5634	
==>:to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5511	5634	
==>:to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5511	5634	
==>:to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9258	9411	
==>.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1380	1525	
==>.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1380	1525	
==>.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9185	9291	
==>ailed matche's .end is undefined

=cut



### current implementation is always anchored at ^

### because i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8884	8986	
==>ailed matche's .end is undefined
=cut

### current implementation is always anchored at ^
### because i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8294	8415	
==>= $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8294	8415	
==>= $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3165	3318	
==>c;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$func}->[1];
        return $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36211	36329	
==>$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36211	36329	
==>$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36211	36329	
==>$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length ) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	440	546	
==>.

=back

Normally, when you declare a Method on a Class, it is bound to that
Class' C<Type> object immedia <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12836	12938	
==>3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12836	12938	
==>3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12836	12938	
==>3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $of <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21418	21515	
==>ent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20299	20396	
==>ent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21418	21515	
==>ent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20299	20396	
==>ent {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14040	14165	
==>hift;
    my $prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self->params;

    my $v = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2785	2900	
==>lass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2785	2900	
==>lass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2785	2900	
==>lass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1823	1931	
==>n $methods->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . ") not fou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	807	905	
==>ted by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matchi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	807	905	
==>ted by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matchi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	807	905	
==>ted by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matchi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12561	12692	
==>$uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gene <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12561	12692	
==>$uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gene <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3576	3665	
==>-------------------------------------------------

# Utility to test that "No method found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5478	5567	
==>-------------------------------------------------

# Utility to test that "No method found <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	666	792	
==>ostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    } <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	666	792	
==>ostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5450	5584	
==>.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10420	10554	
==>.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5450	5584	
==>.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10420	10554	
==>.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	569	674	
==>4.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols:
    # ( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	569	674	
==>4.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols:
    # ( <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	787	886	
==>broutines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
con <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	787	886	
==>broutines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8501	8638	
==>f $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8501	8638	
==>f $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8501	8638	
==>f $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3484	3607	
==>cp -R $srcdir/* $builddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robust
    local $CWD = $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	687	800	
==>andard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR> <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	687	800	
==>andard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11959	12056	
==>ext( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11959	12056	
==>ext( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33913	34011	
==>ew Relation that has the same heading and
whose body contains all of the tuples that are in the inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38463	38561	
==>ew Relation that has the same heading and
whose body contains all of the tuples that are in the inv <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13116	13212	
==>out TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in or <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13174	13270	
==>out TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in or <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10310	10410	
==>.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8203	8303	
==>.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10310	10410	
==>.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8203	8303	
==>.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8485	8587	
==>- the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the seco <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6021	6121	
==>- the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the seco <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	350	485	
==>ts{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    l <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	350	485	
==>ts{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17189	17309	
==>$1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13610	13730	
==>$1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15965	16068	
==>tches backwards.  Ex.: C</\s+$/> becomes
C</^\n?\s+/>, which perhaps gets optimized to C</^\s+/>.  The d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16451	16547	
==>x) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16451	16547	
==>x) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16451	16547	
==>x) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2682	2842	
==>'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11384	11544	
==>'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2875	3035	
==>'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11663	11823	
==>'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	278	404	
==>(Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extrac <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	278	404	
==>(Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extrac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2065	2178	
==>VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2065	2178	
==>VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the val <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	417	557	
==>T);
            _('$.error_output' => $params{'$.error_output'} || \*STDERR);           
        }
    },
    methods => {
        'write' => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	897	1009	
==>ediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1103	1215	
==>ediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($prog <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35765	35856	
==>ts C<$other> argument, where <$other> has the same heading as
the invocant Relation::Example <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37797	37888	
==>ts C<$other> argument, where <$other> has the same heading as the
invocant Relation::Example <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	818	952	
==>ub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code $value = { $^v.[1] }, ?$u) is exported(:all) {
  ## XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1505	1612	
==>ite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1505	1612	
==>ite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1505	1612	
==>ite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2041	2172	
==>) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @di <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4260	4391	
==>) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @di <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2041	2172	
==>) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @di <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4260	4391	
==>) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @di <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14070	14177	
==>) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14070	14177	
==>) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7731	7820	
==>ref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1556	1645	
==>ref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15902	16059	
==>SS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12698	12827	
==>rget
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1240	1341	
==>handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    define <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1240	1341	
==>handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    define <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5590	5726	
==>));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @li <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5590	5726	
==>));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @li <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40653	40752	
==>RPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
L <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40653	40752	
==>RPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8774	9050	
==>ew;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8774	9050	
==>ew;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8774	9050	
==>ew;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do = <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	270	379	
==>help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37439	37570	
==>et );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37439	37570	
==>et );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37439	37570	
==>et );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1812	1943	
==>n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2555	2686	
==>n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1812	1943	
==>n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2543	2674	
==>n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4766	4940	
==>ALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6528	6702	
==>ALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5415	5512	
==>}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4545	4642	
==>}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5415	5512	
==>}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4545	4642	
==>}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4257	4369	
==>t2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4257	4369	
==>t2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	280	378	
==>can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metaf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1505	1603	
==>can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metaf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1998	2193	
==>Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    whi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1998	2193	
==>Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    whi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15738	15849	
==>n $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19215	19326	
==>n $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symm <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22082	22181	
==>which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26634	26733	
==>which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25330	25429	
==>which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11835	12028	
==>asses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11835	12028	
==>asses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11835	12028	
==>asses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cla <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6200	6302	
==>[\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4444	4561	
==>c,$noop);};
  sub noop {
    $noop;
  }
  sub concat {
    my($o,$aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1206	1309	
==>hat we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1206	1309	
==>hat we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1206	1309	
==>hat we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2594	2710	
==>$.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from T <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23731	23842	
==>ap"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pretty prin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	359	465	
==>$.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	359	465	
==>$.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4008	4132	
==>arams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4008	4132	
==>arams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4008	4132	
==>arams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6575	6670	
==>bject->add_singleton_method('singleton_test_on_object' => sub { 
    '&Object::singleton_test_on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3558	3649	
==>ists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3558	3649	
==>ists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3558	3649	
==>ists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if define <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1329	1433	
==>p($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mul <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2887	2991	
==>ve to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $builddir = Path: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1329	1433	
==>p($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1329	1433	
==>p($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16373	16473	
==>.}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16373	16473	
==>.}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16373	16473	
==>.}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10536	10691	
==>$num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10536	10691	
==>$num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10536	10691	
==>$num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17293	17424	
==>len = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conversion text <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5272	5391	
==>oke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s-%s--%d-%d--%d-%d-%d-%d-%d-%d--%s.html",
    (map { $smok <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	454	571	
==>required => 1, allow => FILE_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Che <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8057	8184	
==>h::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8045	8172	
==>h::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$ma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1381	1471	
==>es Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1381	1471	
==>es Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13146	13318	
==>otto: If in doubt use brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3331	3483	
==>otto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3331	3483	
==>otto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3331	3483	
==>otto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3447	3553	
==>les are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3447	3553	
==>les are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3447	3553	
==>les are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined sl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	467	549	
==>----------------------------------------------------------------------

use Test::M <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13685	13805	
==>:
    $S0 = substr target, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	89	186	
==>euma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	89	186	
==>euma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	89	186	
==>euma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2930	3064	
==>=> sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        }
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3135	3263	
==>=> sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5684	5812	
==>=> sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4316	4444	
==>=> sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        } <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3844	3941	
==>PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3844	3941	
==>PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	694	791	
==>PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6209	6305	
==>ficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
} <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6209	6305	
==>ficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1538	1634	
==>l other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1538	1634	
==>l other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 R <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	271	383	
==>object model for a lambda calculus, and a type inferrencer

# the algorithm implemented is Hindley-Milner type in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	246	348	
==>l6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	246	348	
==>l6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	246	348	
==>l6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this ma <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7406	7530	
==>,
                `find $lib6 -print0`;
  };
my $newest_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4647	4738	
==>hift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4647	4738	
==>hift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4647	4738	
==>hift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13193	13318	
==>0 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13193	13318	
==>0 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_sp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1187	1305	
==>-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1187	1305	
==>-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4151	4251	
==>s->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4151	4251	
==>s->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4151	4251	
==>s->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4070	4184	
==>{$file
#}
#\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6470	6565	
==>e
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6470	6565	
==>e
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6470	6565	
==>e
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpe <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15217	15327	
==>nify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from the function
	# sinc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4906	5003	
==>};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4906	5003	
==>};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4906	5003	
==>};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8091	8213	
==>$arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8091	8213	
==>$arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8091	8213	
==>$arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            } <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12083	12175	
==>he original value of the C<PERL5LIB> environment variable.
Necessary on VMS, otherwise a no-o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8238	8342	
==>^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8238	8342	
==>^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	989	1085	
==>ovide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/e <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	989	1085	
==>ovide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6059	6232	
==>, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6059	6232	
==>, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6059	6232	
==>, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard a <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1731	1828	
==>:Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = CALLER::<$_>, Num :$base --> Num )
 { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2822	2947	
==>timize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inter <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2822	2947	
==>timize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inter <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2311	2404	
==>L::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codet <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2311	2404	
==>L::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codet <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	929	1047	
==>sary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	929	1047	
==>sary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	929	1047	
==>sary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8020	8115	
==>element; C<kv> returns 
a 2 element list in (index, value) order, C<pairs> a C<Pair(index, value <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7049	7173	
==>p5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	966	1084	
==>}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	966	1084	
==>}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	966	1084	
==>}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2721	2837	
==>ame -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12633	12744	
==>body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.ne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13641	13752	
==>body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.ne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15166	15277	
==>body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.ne <==
4	/Users/nnunley/pugs/util/run-smoke.pl	29	126	
==>use warnings;
use Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->catd <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2924	3041	
==>chunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join(' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2924	3041	
==>chunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join(' <==
4	/Users/nnunley/pugs/misc/S29_round.pl	580	695	
==>($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = sign($x) * flo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15321	15427	
==>ile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1216	1308	
==>ant to rebless everything down to your project's base namespace.

Class::Rebless walks scalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1216	1308	
==>ant to rebless everything down to your project's base namespace.

Class::Rebless walks scalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1216	1308	
==>ant to rebless everything down to your project's base namespace.

Class::Rebless walks scalar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21781	21875	
==>n =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13839	13933	
==>Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21781	21875	
==>n =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13897	13991	
==>Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5583	5698	
==>var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5583	5698	
==>var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6173	6288	
==>var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	D <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3386	3472	
==>oop) --> {true}.
p5_concatenation_more(W, Z) --> p5_quantified(X), p5_concatenation_mor <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14533	14652	
==>y Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14533	14652	
==>y Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17089	17195	
==>Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22189	22295	
==>Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3516	3696	
==>rl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3516	3696	
==>rl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3516	3696	
==>rl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3853	3983	
==>$ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6438	6536	
==>e IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6438	6536	
==>e IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6438	6536	
==>e IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16222	16363	
==>class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16222	16363	
==>class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16222	16363	
==>class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a privat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	503	596	
==>onversion to other types
sub to_str { (shift)->join(str->new('')) }
sub to_num { (shift)->leng <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2596	2711	
==>\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", o <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2596	2711	
==>\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8083	8180	
==>ects, that return lists of spans.

In this example, @span may contain zero, one, two, or three spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8083	8180	
==>ects, that return lists of spans.

In this example, @span may contain zero, one, two, or three spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	83	203	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	83	203	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	83	203	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16297	16393	
==>strings = (CALLER::<$_>) is rw --> Int )

Related to C<chop>, only removes trailing chars that ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24100	24237	
==>as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24100	24237	
==>as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24100	24237	
==>as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Ma <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3049	3147	
==>202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unic <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10953	11058	
==>maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11382	11487	
==>maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  } <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	328	418	
==>thod clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	328	418	
==>thod clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17308	17407	
==>" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.titl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17308	17407	
==>" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.titl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1253	1351	
==>tate, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1241	1339	
==>tate, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4435	4530	
==>].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4435	4530	
==>].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4435	4530	
==>].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4181	4279	
==>hen calling these methods you should take care not
to call them in function form by mistake; that w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4181	4279	
==>hen calling these methods you should take care not
to call them in function form by mistake; that w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4181	4279	
==>hen calling these methods you should take care not
to call them in function form by mistake; that w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24682	24777	
==>store values of the same class;
every Relation::Example tuple must be distinct from the other tu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16142	16396	
==>--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16142	16396	
==>--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16142	16396	
==>--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                ret <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	261	372	
==>gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert";

#!\pause
# er kann auch sehr einfach verk <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4457	4582	
==>_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4457	4582	
==>_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6361	6481	
==>( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6361	6481	
==>( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        pos <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5117	5233	
==>, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16153	16269	
==>, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17641	17757	
==>, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22324	22440	
==>, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	698	826	
==>ule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	698	826	
==>ule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5060	5161	
==>= @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1643	1744	
==>= @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3704	3841	
==>ub.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - work around Cabal bug --
        # we have to loca <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5558	5649	
==>st::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5558	5649	
==>st::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7755	7846	
==>st::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5389	5483	
==>utomatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5389	5483	
==>utomatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	810	901	
==>ponse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Va <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	810	901	
==>ponse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Va <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10322	10420	
==>>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fata <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8215	8313	
==>>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fata <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10322	10420	
==>>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fata <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8215	8313	
==>>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fata <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4830	4922	
==>ror(Params::Check->last_error), return;

    for my $index ( $self->index_file, $self->index_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7906	8009	
==>to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7036	7139	
==>to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7906	8009	
==>to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7036	7139	
==>to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub * <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	457	567	
==>ugh?

# here, I think we have the same problem as with Set; how do you
# specify a higher order type?
type CxtI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1549	1653	
==>d with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1549	1653	
==>d with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1549	1653	
==>d with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29480	29577	
==>s> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34032	34129	
==>s> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33196	33293	
==>s> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29703	29797	
==>kip test styles)

Add option for coverage analysis.

Trap STDERR.

Implement Straps total_resul <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1612	1719	
==>open STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14402	14491	
==>thods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14402	14491	
==>thods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14402	14491	
==>thods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7930	8049	
==>Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:res <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10788	10882	
==>y complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10788	10882	
==>y complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9280	9393	
==>progfile => perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	666	768	
==>.3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	666	768	
==>.3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	666	768	
==>.3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5788	5880	
==>rns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5788	5880	
==>rns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	531	623	
==>f (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($orig);
			r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7312	7404	
==>rns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3636	3739	
==>!defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $self->{'pil_code'} = Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9383	9510	
==>%bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9383	9510	
==>%bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9383	9510	
==>%bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35607	35697	
==>n (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic bi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36704	36794	
==>n (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic bi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37204	37294	
==>n (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic bi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39800	39890	
==>n (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	11	120	
==>s;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	11	120	
==>s;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	11	120	
==>s;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6757	6868	
==>,
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6757	6868	
==>,
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3656	3767	
==>,
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1750	1856	
==>B::Installation->new;

=cut

### XXX do some smart caching here -- but can't just make it a singleton
### d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4321	4469	
==>erl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4321	4469	
==>erl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9864	9960	
==>ect, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stri <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9864	9960	
==>ect, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stri <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2055	2190	
==>dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exist <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2033	2168	
==>dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exist <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5520	5624	
==>al_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5520	5624	
==>al_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12246	12342	
==>uml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the curr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12246	12342	
==>uml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the curr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	539	635	
==>eName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	539	635	
==>eName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34113	34206	
==>ntical header to the invocant relation.  This method has aliases
named C<minus> and C<except>. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38663	38756	
==>ntical header to the invocant relation.  This method has aliases
named C<minus> and C<except>. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38124	38217	
==>ntical header to the invocant relation.  This method has aliases
named C<minus> and C<except>. <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	200	305	
==>();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	200	305	
==>();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38119	38209	
==>e_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38119	38209	
==>e_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17705	17818	
==>$expected : /$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($proto, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1901	2013	
==>e") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1901	2013	
==>e") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1901	2013	
==>e") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8152	8298	
==>ist, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4512	4658	
==>ist, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5361	5507	
==>ist, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = m <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	589	698	
==>name => "simple concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3),
		),
		result <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6847	6953	
==>xp::Parser::alnum;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\w') <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	433	528	
==>Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class h <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	433	528	
==>Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	989	1084	
==>Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4303	4473	
==>ed $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4303	4473	
==>ed $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4303	4473	
==>ed $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12253	12372	
==>r_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	772	884	
==>ring.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	792	897	
==>ring.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6262	6362	
==>turn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple function <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6262	6362	
==>turn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple function <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32753	32845	
==>ource Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37303	37395	
==>ource Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36620	36712	
==>ource Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25786	25867	
==>_,_,_))).

%---------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24676	24776	
==>r (at your option) any later version.  You should have received a
copy of the GPL as part of the Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24676	24776	
==>r (at your option) any later version.  You should have received a
copy of the GPL as part of the Rose <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14269	14362	
==>get)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14269	14362	
==>get)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6271	6409	
==>id.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6271	6409	
==>id.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12410	12504	
==>ding argument is undefined).  The new Document object's All Nodes
attribute starts out empty, b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12410	12504	
==>ding argument is undefined).  The new Document object's All Nodes
attribute starts out empty, b <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	671	786	
==>ule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	671	786	
==>ule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3275	3405	
==>) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6544	6648	
==>ELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6544	6648	
==>ELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6544	6648	
==>ELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10229	10334	
==>e attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10229	10334	
==>e attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10229	10334	
==>e attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	567	668	
==>"";   # set to undef to when input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str).m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6855	7121	
==>5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $reques <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6855	7121	
==>5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $reques <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5973	6089	
==>rint "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5973	6089	
==>rint "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5031	5230	
==>%$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5043	5242	
==>%$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11039	11169	
==>$.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.curr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11039	11169	
==>$.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.curr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1818	1940	
==>me, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1818	1940	
==>me, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3742	3839	
==>b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3742	3839	
==>b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1514	1621	
==>ip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1514	1621	
==>ip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1514	1621	
==>ip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9803	9970	
==>into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9803	9970	
==>into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9803	9970	
==>into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scala <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24200	24309	
==>r on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16596	16700	
==>/* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21022	21126	
==>/* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6354	6457	
==>le must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # mus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6138	6240	
==>le must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # mus <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	839	964	
==>ative];
    # NOTE:
    # if you ask for something which is 
    # not there, then you need to get back
    # a nil value, not <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6587	6680	
==>t truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6587	6680	
==>t truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8784	8877	
==>t truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29454	29581	
==>GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29454	29581	
==>GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	274	389	
==>GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2122	2225	
==>ribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2]->store($name, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	560	698	
==>opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	560	698	
==>opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	560	698	
==>opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class, <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3282	3420	
==>::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\n";
        wa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1283	1387	
==>: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    + <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1283	1387	
==>: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    + <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	479	579	
==>o kwid? - easier to indent (but not supported by p5 by default)

### move definitions to end-of-file? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	453	552	
==>o kwid? - easier to indent (but not supported by p5 by default)
### move definitions to end-of-file? <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	31	126	
==>I;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CG <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	31	126	
==>I;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CG <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4817	4917	
==>s; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finis <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4817	4917	
==>s; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8574	8666	
==>>use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2399	2491	
==>>use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	9	119	
==>t;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN { <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	9	119	
==>t;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10910	11017	
==>:runperl(): 'progs' must be an ARRAYREF " . _where()
	    unless ref $args{progs} eq "ARRAY";
        foreac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11112	11231	
==>elf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11112	11231	
==>elf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11112	11231	
==>elf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_me <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11556	11651	
==>"key" by which to sort. If
the closure returns a Num, C<E<lt>=E<gt>> is used for comparison,
oth <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4330	4439	
==>port {
        Pugs::Internals::install_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Prelud <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	807	912	
==>($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	807	912	
==>($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	807	912	
==>($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	183	319	
==>, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple documents not supported\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3689	3774	
==>"-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3689	3774	
==>"-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3689	3774	
==>"-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1463	1595	
==>= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL::isa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13121	13230	
==>his->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Con <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13121	13230	
==>his->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Con <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13121	13230	
==>his->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	322	425	
==>L::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	322	425	
==>L::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	322	425	
==>L::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8621	8746	
==>in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @me <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7590	7715	
==>in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8621	8746	
==>in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7590	7715	
==>in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @me <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4210	4480	
==>e>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'para <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4210	4480	
==>e>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'para <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5846	5961	
==>s defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5846	5961	
==>s defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	276	411	
==>$class, $name, $type) = @_;
    (defined $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6960	7049	
==>---------------------------------------------------

# stub this for the moment ...
$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6960	7049	
==>---------------------------------------------------

# stub this for the moment ...
$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6960	7049	
==>---------------------------------------------------

# stub this for the moment ...
$::Cla <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6506	6617	
==>fiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase s sigspace g global  stringify>;
        %modifiers <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	598	694	
==>o_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	644	738	
==>o_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5630	5717	
==>struggle with the {?{...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap-> <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	352	446	
==>r::int_sizes 1,2,4... doesnt add much clarity, given the cruft
of wrapping a map and join aroun <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4011	4111	
==>"You must store a symbol type in a param list";
    $self->SUPER::store($index, $value);
}

sub unshi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3608	3705	
==>at you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3608	3705	
==>at you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3688	3785	
==>at you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7031	7198	
==>returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7031	7198	
==>returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7031	7198	
==>returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'i <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5376	5467	
==>($output_dir,"index.html");
open( my $fh,'>',  $index_file) or die "Failed to open $index_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1335	1472	
==>ode: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return _mangle_ident( $n->{bareword} )
        if exists $n->{ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2142	2242	
==>y($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2142	2242	
==>y($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2142	2242	
==>y($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5205	5333	
==>o *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5205	5333	
==>o *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5205	5333	
==>o *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3828	3932	
==>t argument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	502	629	
==>}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	502	629	
==>}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	502	629	
==>}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3003	3104	
==>nel used, you may want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/pugs/liv <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2398	2533	
==>=~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21861	21980	
==>_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18282	18401	
==>_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10028	10136	
==>name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } el <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10022	10130	
==>name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } el <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4865	5022	
==>ap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19247	19355	
==>" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19247	19355	
==>" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19247	19355	
==>" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11918	12058	
==>d";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11918	12058	
==>d";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11918	12058	
==>d";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2059	2160	
==>elf = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2206	2326	
==>tch}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2206	2326	
==>tch}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2245	2355	
==>e_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2245	2355	
==>e_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3736	3872	
==>[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3736	3872	
==>[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3736	3872	
==>[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defau <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2942	3034	
==>6_conjunct(W), p6_alternatives(W, Z).

p6_conjunct(Z) --> p6_concatenation(W), p6_conjunction <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1660	1785	
==>\$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1648	1773	
==>\$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	434	525	
==>eaders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encod <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	434	525	
==>eaders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encod <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8823	8919	
==>$Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8881	8977	
==>$Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	217	305	
==>$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	275	363	
==>$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11880	12005	
==>my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11880	12005	
==>my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11880	12005	
==>my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) <==
4	/Users/nnunley/pugs/util/package-osx.pl	11524	11638	
==>} split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5256	5353	
==>e, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5256	5353	
==>e, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5256	5353	
==>e, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file i <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4676	4781	
==>e YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4535	4640	
==>e YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4999	5103	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decod <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4999	5103	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1085	1215	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1085	1215	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1085	1215	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS:: <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3018	3112	
==>thod doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year ::= &Date::Gre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12844	12996	
==>\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	401	486	
==>rs_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_hel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	401	486	
==>rs_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_hel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	401	486	
==>rs_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_hel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3288	3399	
==>lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3288	3399	
==>lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3288	3399	
==>lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1021	1127	
==>peek_our ); ???

# note: alternation is first match (not longest). 
# note: the list in @$nodes can be m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5245	5378	
==>or the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5245	5378	
==>or the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5245	5378	
==>or the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1434	1566	
==>->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1383	1479	
==>($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1383	1479	
==>($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1383	1479	
==>($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &? <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7847	7945	
==>e`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10425	10523	
==>e`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7847	7945	
==>e`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10425	10523	
==>e`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11704	11848	
==>() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11704	11848	
==>() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11704	11848	
==>() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1503	1593	
==>}

type::operator::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::operator <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47092	47211	
==>=> $e->get('$self:')->get_attr(symbol->new('%:namespace')));
                  }))
                  ->or(block->new($e, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	931	1027	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	931	1027	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	931	1027	
==>BLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	775	875	
==>pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	775	875	
==>pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	775	875	
==>pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pre <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	267	393	
==>e: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr) {
        if ($tok = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4984	5083	
==>tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pass <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4984	5083	
==>tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6508	6607	
==>tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pass <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11109	11254	
==>d next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11109	11254	
==>d next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.spa <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4336	4476	
==>°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4336	4476	
==>°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19346	19479	
==>t 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is builtin is primitive is safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2870	2969	
==>lass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2870	2969	
==>lass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2870	2969	
==>lass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29556	29686	
==>self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29556	29686	
==>self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29556	29686	
==>self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( <==
4	/Users/nnunley/pugs/util/package-osx.pl	4134	4231	
==>3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E0 <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3506	3637	
==>nd = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            i <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2916	3046	
==>nd = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            i <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1817	1933	
==>nd = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 { <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2354	2470	
==>nd = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2015	2171	
==>ibutes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2220	2376	
==>ibutes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6315	6417	
==>$two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5445	5547	
==>$two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6315	6417	
==>$two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5445	5547	
==>$two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12135	12234	
==>f($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12135	12234	
==>f($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5855	5942	
==>l 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Ti <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5855	5942	
==>l 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1420	1545	
==>am is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1420	1545	
==>am is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1420	1545	
==>am is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11860	11959	
==>gnized, and regexp*s
  created with the normal perl engine can continue working.

  Upon exec, the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11977	12092	
==>sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11977	12092	
==>sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11977	12092	
==>sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21873	21971	
==>the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20754	20852	
==>the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21873	21971	
==>the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20754	20852	
==>the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8360	8463	
==>) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8360	8463	
==>) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8360	8463	
==>) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2986	3126	
==>add_rule( 
        name => '&&',
        assoc => 'right',
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	392	498	
==>s defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	392	498	
==>s defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	392	498	
==>s defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1982	2116	
==>6400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5539	5645	
==>$_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5539	5645	
==>$_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5539	5645	
==>$_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	920	1029	
==>s an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	920	1029	
==>s an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13212	13307	
==>urrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13212	13307	
==>urrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence s <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2533	2648	
==>le

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= fo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2533	2648	
==>le

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= fo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14953	15055	
==>day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single elem <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14953	15055	
==>day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single elem <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1429	1535	
==>ction of one variable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1213	1317	
==>, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1213	1317	
==>, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1213	1317	
==>, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2721	2824	
==>ans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optim <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2721	2824	
==>ans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optim <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4572	4673	
==>h()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4572	4673	
==>h()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42344	42539	
==>)),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$::Object->send('add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10325	10444	
==>.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out! <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2354	2461	
==>.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out! <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2354	2461	
==>.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11740	11873	
==>[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11740	11873	
==>[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11740	11873	
==>[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a privat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16644	16739	
==>lationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | < <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	746	863	
==>get, $f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5615	5724	
==>eeding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5615	5724	
==>eeding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5615	5724	
==>eeding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6300	6446	
==>nt to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6300	6446	
==>nt to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6300	6446	
==>nt to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9277	9397	
==>"$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10202	10374	
==>$s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10202	10374	
==>$s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10202	10374	
==>$s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	95	194	
==>onstants;
use JIB::Config;

use base 'Object::Accessor';

=head2 $obj = JIB::Dependency->new_from_st <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2775	2892	
==>=> $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	950	1066	
==>=> $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1728	1832	
==>(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args her <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1728	1832	
==>(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args her <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12648	12741	
==>$@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11164	11257	
==>R_ONLY code => sub {} }; also works?

1;
__END__
#-------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12648	12741	
==>$@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12648	12741	
==>$@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10136	10296	
==>get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a pla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2187	2329	
==>get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a pla <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2187	2329	
==>get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a pla <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14061	14178	
==>shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self->params;

    my $v = $prim->body- <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1854	2013	
==>() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1854	2013	
==>() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19079	19176	
==>ded program conditions.  In other words, this user
text is *part of the program*, and not the prog <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19079	19176	
==>ded program conditions.  In other words, this user
text is *part of the program*, and not the prog <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	263	363	
==>ètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1791	1891	
==>ètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number e <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4882	4980	
==>erl library.  It should also be suitable for one-liners.  If
you need more control or access to the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4882	4980	
==>erl library.  It should also be suitable for one-liners.  If
you need more control or access to the <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1967	2120	
==>erl complex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8607	8710	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8607	8710	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8607	8710	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	123	235	
==>was besser, aber jedoch unübersichtlich:
my $option = $para{'x'};
$option = "wert" unless defined $option;

#!\p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	541	646	
==>Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	541	646	
==>Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	541	646	
==>Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22727	22897	
==>A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22727	22897	
==>A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22727	22897	
==>A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5386	5490	
==>NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3981	4065	
==>:TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Skip' => { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15485	15587	
==>epresents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set cur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15485	15587	
==>epresents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set cur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38227	38322	
==>text string in
its positional parameter $text (a string), and a Message Variables hash ref
in it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38227	38322	
==>text string in
its positional parameter $text (a string), and a Message Variables hash ref
in it <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3970	4128	
==>jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $control --e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12767	12851	
==>@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12767	12851	
==>@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12767	12851	
==>@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1934	2027	
==>printf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH(). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1934	2027	
==>printf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH(). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1934	2027	
==>printf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH(). <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3420	3570	
==>box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_subma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3420	3570	
==>box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_subma <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10218	10318	
==>lf._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10218	10318	
==>lf._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2720	2835	
==>r_names) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr_name )) {
            retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2369	2479	
==>and {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2369	2479	
==>and {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2369	2479	
==>and {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2782	2904	
==>push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2782	2904	
==>push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2782	2904	
==>push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fun <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3886	3996	
==>or(map { @$_ } values %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %del <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	677	797	
==>le ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	677	797	
==>le ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	677	797	
==>le ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8022	8126	
==>.. FooBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iF <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10233	10341	
==>ed = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10233	10341	
==>ed = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10233	10341	
==>ed = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3917	4031	
==>tered thunks these thunk have no -> type

	$self->define_named_block($node, $symbol, $body, $type);
}

sub define_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5305	5411	
==>@_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5305	5411	
==>@_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5305	5411	
==>@_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1093	1231	
==>y method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  + <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1093	1231	
==>y method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  + <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18821	18919	
==>> exists as an alias for this method so you
can avoid this misspelling in your programs and still s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18821	18919	
==>> exists as an alias for this method so you
can avoid this misspelling in your programs and still s <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7464	7602	
==>HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell-src -any';
    }

    if (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $dep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5630	5730	
==>$sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "rec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5630	5730	
==>$sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "rec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5630	5730	
==>$sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "rec <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35206	35299	
==>ulti-method is a generic binary relational operator that is identical
to C<join> except that t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39756	39849	
==>ulti-method is a generic binary relational operator that is identical
to C<join> except that t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39316	39409	
==>ulti-method is a generic binary relational operator that is identical
to C<join> except that t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19538	19634	
==>>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18519	18615	
==>>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19538	19634	
==>>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18519	18615	
==>>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessarily th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	501	656	
==>ess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1..' . _('$:expect') },
        'foote <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24274	24371	
==>nteractive program controlling their
  actions) which are always seen to be replying lest they end <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23047	23144	
==>nteractive program controlling their
  actions) which are always seen to be replying lest they end <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24274	24371	
==>nteractive program controlling their
  actions) which are always seen to be replying lest they end <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23047	23144	
==>nteractive program controlling their
  actions) which are always seen to be replying lest they end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1451	1550	
==>ld be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1451	1550	
==>ld be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1451	1550	
==>ld be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'ce <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	521	619	
==>( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	95	194	
==>as this script highly depends on the
# exact commandline options given.)
# Searching for a way to ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	95	194	
==>as this script highly depends on the
# exact commandline options given.)
# Searching for a way to ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	95	194	
==>as this script highly depends on the
# exact commandline options given.)
# Searching for a way to ke <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2189	2546	
==>App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2410	2505	
==>my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2410	2505	
==>my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2410	2505	
==>my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5147	5338	
==>ell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5147	5338	
==>ell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5147	5338	
==>ell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit- <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1602	1744	
==>:year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $time_ <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	614	744	
==>psilon) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1010	1119	
==>ue_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1010	1119	
==>ue_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1010	1119	
==>ue_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7215	7331	
==>.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7215	7331	
==>.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7215	7331	
==>.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31612	31713	
==>oo.  You can use this class to
ensure that there is are no code-execution statements in a regex:

  us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16726	16836	
==>ue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16726	16836	
==>ue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16726	16836	
==>ue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unt <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6662	6758	
==>if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE_OPTABLE_TERNARY ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	733	885	
==>) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	733	885	
==>) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	733	885	
==>) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	249	374	
==>= JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13503	13608	
==>p_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13503	13608	
==>p_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13503	13608	
==>p_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	674	770	
==>f making C<Role> objects appear to "flatten" in
the classes which they are included; unlike the " <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2034	2157	
==>if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ ) {
	    # special comment? (embedded late <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1346	1452	
==>1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:de <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	366	472	
==>1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:de <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8822	8928	
==>1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:de <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1471	1599	
==>ize ) {
        return ([+] $:superclasses,
                $:superclasses.map:{ .all_superclasses });
    } else {
        retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17214	17312	
==>Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17214	17312	
==>Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17214	17312	
==>Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" cl <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2727	3017	
==>_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22009	22099	
==>_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22009	22099	
==>_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22009	22099	
==>_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	312	415	
==>my $m = match_re($re,$str);
my $r = compile($re) || die "Compile failed";
my $m;
if($bench) {
  timethis <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2933	3034	
==>sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-" <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2933	3034	
==>sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-" <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	308	395	
==>include { +shift->admin->auto_include(@_) };
sub auto_include_deps { +shift->admin->auto <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	789	910	
==>nt ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	789	910	
==>nt ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10545	10666	
==>eval 'sub { $_[1] '.$_.' $_[2] }' } || die $@} qw(+ - == <=), '<', do {
        grep {
            print "Implement &infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	964	1063	
==>ur @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	964	1063	
==>ur @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	964	1063	
==>ur @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixed <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1226	1341	
==>j  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{A <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1226	1341	
==>j  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{A <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4663	4774	
==>span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutato <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4663	4774	
==>span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutato <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5016	5202	
==>ie $?;

        }

        ### clean up the temp dir 
        system( qq[rm -rf $my_tmp_dir] )                        and die $?;
    }
    
    return $inst_pkg;
}

1;

# Local variables <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10260	10413	
==>e() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10260	10413	
==>e() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10260	10413	
==>e() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4706	4824	
==>'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4706	4824	
==>'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1612	1730	
==>'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	404	506	
==>ta as xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5872	6011	
==>e leading dirs from the target so we don't get a silly
            ### deep dir structure
            my $target = $dir;
            $target <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	755	890	
==>TP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	755	890	
==>TP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2980	3075	
==>ar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Scary.
rule interpolated_a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12634	12736	
==>a::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12634	12736	
==>a::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2951	3051	
==>ns
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=he <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2951	3051	
==>ns
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1836	1970	
==>spatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1836	1970	
==>spatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1836	1970	
==>spatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21750	21936	
==>ndef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21750	21936	
==>ndef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21750	21936	
==>ndef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11744	11846	
==>ponentPart>?
    | <DecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2485	2578	
==>::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2485	2578	
==>::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2485	2578	
==>::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->ST <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12577	12669	
==>ar name=skipped></span>,</td>
	      <td class="num tests_unexpect"><span title="<tmpl_var na <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6410	6544	
==>$s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_fh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8190	8305	
==>of Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8190	8305	
==>of Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8190	8305	
==>of Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12126	12253	
==>ethods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12126	12253	
==>ethods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12126	12253	
==>ethods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2943	3049	
==>y => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5560	5692	
==>= function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5560	5692	
==>= function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5560	5692	
==>= function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12842	12938	
==>ns.  Please
refer to L<perldiag> for the explanations of the messages.

These are all constants i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4305	4425	
==>currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4305	4425	
==>currently think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4816	4924	
==>currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4816	4924	
==>currently think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /N <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5131	5239	
==>essful or not.

=cut

sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11583	11685	
==>file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11583	11685	
==>file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11583	11685	
==>file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	785	915	
==>'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	785	915	
==>'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	785	915	
==>'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1174	1301	
==>testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan already set!" <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8451	8590	
==>(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8451	8590	
==>(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3391	3528	
==>es[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3391	3528	
==>es[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2011	2142	
==>H {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALK <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2011	2142	
==>H {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALK <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2011	2142	
==>H {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALK <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18626	18734	
==>,
    );
}

my method _exclusion (Relation::Example $other!) returns Relation::Example {
    return Relation: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15606	15718	
==>rep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15606	15718	
==>rep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15606	15718	
==>rep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # T <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	421	547	
==>ods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	421	547	
==>ods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3684	3778	
==>the index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3684	3778	
==>the index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1519	1613	
==>->_bind_params($args);
    my $return_value = $self->{body}->($self->{env});
    (blessed($retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12327	12416	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12327	12416	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12327	12416	
==>eds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1082	1216	
==>isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block->do();
        return $TRUE;
    }
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	365	472	
==>Node} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	365	472	
==>Node} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	365	472	
==>Node} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pP <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5977	6085	
==>$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.par <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6170	6278	
==>$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.par <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5977	6085	
==>$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.par <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6170	6278	
==>$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23765	23872	
==>xt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is tha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22538	22645	
==>xt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23765	23872	
==>xt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22538	22645	
==>xt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	581	679	
==>@a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	581	679	
==>@a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	581	679	
==>@a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29616	29853	
==>ol->new('$self:' => 'opaque'),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ), <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	148	285	
==>s %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!param <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	148	285	
==>s %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!param <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2245	2356	
==>SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %* <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2245	2356	
==>SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4527	4667	
==>) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4667	4807	
==>) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7907	8053	
==>Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7907	8053	
==>Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7907	8053	
==>Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28159	28266	
==>OW_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21402	21509	
==>din", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
E <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20283	20390	
==>din", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
E <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21402	21509	
==>din", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
E <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20283	20390	
==>din", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3150	3247	
==>_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3150	3247	
==>_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3150	3247	
==>_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3056	3163	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3056	3163	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3056	3163	
==>latten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2528	2651	
==>S.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2528	2651	
==>S.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2528	2651	
==>S.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // W <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2170	2280	
==>here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4816	4954	
==>et_method_list) {
            # if we already have the method, then
            # ignore it and go to the next one
            next if $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1681	1796	
==>1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1681	1796	
==>1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1681	1796	
==>1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".dele <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14036	14129	
==>mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10263	10356	
==>mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14036	14129	
==>mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10263	10356	
==>mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (mi <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3840	3982	
==>V) or die "Enter a one-liner";
    }
    elsif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17271	17365	
==>tes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17271	17365	
==>tes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17271	17365	
==>tes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38813	38925	
==>clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38813	38925	
==>clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38813	38925	
==>clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opti <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3483	3585	
==>node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type', <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	769	867	
==>ceTermTable({});
  $object->whitespaceOperatorTable({}); 
  $object;
}

sub printHash
{
  my ($hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15916	16111	
==>turn named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15910	16105	
==>turn named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3563	3668	
==>IL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3563	3668	
==>IL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	218	337	
==>e, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	212	331	
==>e, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	218	337	
==>e, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	212	331	
==>e, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param- <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2259	2349	
==>--------------------------------------------
-- Do not modify this file; it is generated au <==
4	/Users/nnunley/pugs/util/version_h.pl	491	600	
==>s
# is modified.
my $revision = 0;

# SVK tries to ask the user questions when it has a STDIN and there is
# n <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	423	516	
==>en("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.cl <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	423	516	
==>en("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2866	3003	
==>k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2866	3003	
==>k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	850	957	
==>is whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return { <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	850	957	
==>is whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3058	3170	
==>"Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3058	3170	
==>"Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3058	3170	
==>"Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wor <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1427	1541	
==>E, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $fu <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1427	1541	
==>E, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $fu <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2881	2994	
==>E, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $fu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34766	34863	
==>_close

Family: close

Types: anyof_close (C<]> when in C<[...>)

Omitted

=head2 prop

Family: pr <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6184	6292	
==>nefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.item <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6184	6292	
==>nefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.item <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23964	24057	
==>ion object, whose Heading and
Body attributes are set respectively from the optional named par <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28516	28609	
==>ion object, whose Heading and
Body attributes are set respectively from the optional named par <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2481	2581	
==>-----------------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7193	7284	
==>&Object::singleton_test_on_object',
  '... still got the right return value from first Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8188	8279	
==>&Object::singleton_test_on_object',
  '... still got the right return value from first Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10757	10848	
==>&Object::singleton_test_on_object',
  '... still got the right return value from first Objec <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	187	283	
==>'t even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	187	283	
==>'t even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10916	11008	
==>The Rosetta::Model::Document Class

A Document object is a simple container which stores data <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10916	11008	
==>The Rosetta::Model::Document Class

A Document object is a simple container which stores data <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1301	1411	
==>);
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1301	1411	
==>);
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($matc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1199	1301	
==>less @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1199	1301	
==>less @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6282	6381	
==>ub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5412	5511	
==>ub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6282	6381	
==>ub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5412	5511	
==>ub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3880	3980	
==>lear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C<n <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3880	3980	
==>lear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C<n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22202	22295	
==>ord =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22202	22295	
==>ord =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4838	4953	
==>er, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4838	4953	
==>er, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9646	9753	
==>ll insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9646	9753	
==>ll insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSE <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6327	6432	
==>s Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5457	5562	
==>s Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6327	6432	
==>s Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5457	5562	
==>s Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14969	15100	
==>*/
  U32 nparens;            /* number of parentheses */

The match result:

  I32 sublen;             /* Length of string pointed b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	835	948	
==>efined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	835	948	
==>efined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	835	948	
==>efined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2476	2581	
==>.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2476	2581	
==>.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2476	2581	
==>.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3537	3641	
==>a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
*{'rule'} = sub {
    ${'rule'}->mat <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	95	248	
==>s Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.paren <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	95	248	
==>s Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.paren <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3716	3819	
==>normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3716	3819	
==>normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5553	5668	
==>ed && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5553	5668	
==>ed && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3457	3558	
==>= $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3457	3558	
==>= $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2223	2424	
==>xport_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5700	5901	
==>xport_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4630	4831	
==>xport_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14294	14435	
==>ift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14294	14435	
==>ift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14294	14435	
==>ift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shift <==
4	/Users/nnunley/pugs/util/grokprims.pl	70	200	
==>itSyms = /;
}

my %assoc = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13420	13547	
==>ar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13420	13547	
==>ar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13420	13547	
==>ar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9944	10052	
==>);

eval <<'END'; print $@ if $@;
my $m = "asdf" =~ $qr;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7431	7549	
==>der' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

metho <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7431	7549	
==>der' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3576	3693	
==>urn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4425	4542	
==>urn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3326	3498	
==>ti sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	726	854	
==>)([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	726	854	
==>)([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	726	854	
==>)([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10606	10703	
==>ful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$d <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10664	10761	
==>ful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19772	19866	
==>gin phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19772	19866	
==>gin phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13134	13235	
==>en you have a zero-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	900	991	
==>cts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	900	991	
==>cts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	900	991	
==>cts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8387	8479	
==>in;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	99	191	
==>in;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8387	8479	
==>in;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8387	8479	
==>in;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	36	129	
==>ror;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12782	12875	
==>mentExpression>
    | <ElementList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :wo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	36	129	
==>ror;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	36	129	
==>ror;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	12	154	
==>:Utils;

use strict;
use JIB::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18523	18615	
==>) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18523	18615	
==>) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18523	18615	
==>) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3662	3789	
==>( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3662	3789	
==>( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3662	3789	
==>( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	611	732	
==>ub data {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{dow <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1321	1455	
==>= splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readli <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1321	1455	
==>= splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readli <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7934	8024	
==>element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1759	1849	
==>element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4517	4616	
==>: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This meth <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4517	4616	
==>: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This meth <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4447	4527	
==>~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr(( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4447	4527	
==>~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr(( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19595	19823	
==>y->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19595	19823	
==>y->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19595	19823	
==>y->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSA <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	942	1043	
==>ests

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo/exe/syn
    --no_d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5406	5503	
==>ional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5406	5503	
==>ional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6930	7027	
==>ional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	726	826	
==>STROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	726	826	
==>STROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	726	826	
==>STROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
su <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1710	1824	
==>&{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1710	1824	
==>&{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.c <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10332	10437	
==>ry tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:nod <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10332	10437	
==>ry tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:nod <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14776	14931	
==>$headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19346	19444	
==>able, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23898	23996	
==>able, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22414	22512	
==>able, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the sa <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3662	3761	
==>an outstanding bug in overloaded -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1087	1207	
==>ld be
# unsustainable, and unsuitable for anything but throwaway code.
# However, the perl5 core team expressed some inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13445	13541	
==>LTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13445	13541	
==>LTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13445	13541	
==>LTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3169	3268	
==>esn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3169	3268	
==>esn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3169	3268	
==>esn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2653	2763	
==>eshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2653	2763	
==>eshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7185	7272	
==>ontent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7185	7272	
==>ontent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29541	29638	
==>.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34093	34190	
==>.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33257	33354	
==>.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35119	35213	
==>Regexp::Parser::branch>,
which is used when two of the same node are matched in succession.  We <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14279	14384	
==>sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1759	1864	
==>sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1290	1387	
==>the cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is on <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1290	1387	
==>the cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is on <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4786	4905	
==>'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4786	4905	
==>'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1692	1811	
==>'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  ' <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7083	7187	
==>C) :- member(C,"\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\").
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_mat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4307	4456	
==>e $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4307	4456	
==>e $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dir <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1672	1775	
==>ructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1672	1775	
==>ructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	194	295	
==>:Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	950	1049	
==>!! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	950	1049	
==>!! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	950	1049	
==>!! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, C <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	270	357	
==>>root->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 're <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12718	12804	
==>ror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12718	12804	
==>ror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12718	12804	
==>ror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6515	6619	
==>Invocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6515	6619	
==>Invocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6515	6619	
==>Invocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False [] <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5654	5755	
==>b));
				$self->new_pad($sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2789	2896	
==>int("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allow <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2789	2896	
==>int("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allow <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16330	16422	
==>on@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

C <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16388	16480	
==>on@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

C <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20774	20893	
==>tus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test->{max} + 1 an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3003	3111	
==>ned $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3003	3111	
==>ned $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3003	3111	
==>ned $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3439	3550	
==>r

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3656	3767	
==>r

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! per <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2958	3067	
==>TCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_T <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	990	1088	
==>as a first pass in the code emission process, in order to compile all
reused nodes into their own e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3567	3887	
==>s($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3567	3887	
==>s($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1250	1363	
==>on};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1250	1363	
==>on};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14695	14820	
==>owever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14695	14820	
==>owever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14695	14820	
==>owever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1091	1204	
==>owever at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so ....
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8735	8865	
==>Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9570	9700	
==>Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24558	24663	
==>->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20979	21084	
==>->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7436	7543	
==>ly
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3540	3641	
==>ept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3540	3641	
==>ept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3540	3641	
==>ept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15698	15838	
==>..
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15698	15838	
==>..
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>: <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1171	1266	
==>}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->m <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1171	1266	
==>}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8530	8629	
==>' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8530	8629	
==>' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8530	8629	
==>' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PI <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20895	20982	
==>ym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0,B <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	951	1064	
==>en we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do m <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	951	1064	
==>en we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8111	8222	
==>.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8111	8222	
==>.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1763	1911	
==>sors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1303	1394	
==>classes([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1303	1394	
==>classes([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1303	1394	
==>classes([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5312	5439	
==>d';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5312	5439	
==>d';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11102	11197	
==>ar = $Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBa <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6168	6259	
==>e->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", [ sort { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23900	24010	
==>ver be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any err <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22673	22783	
==>ver be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any err <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23900	24010	
==>ver be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any err <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22673	22783	
==>ver be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any err <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11885	12025	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12164	12304	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4968	5086	
==>returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8445	8563	
==>returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	765	859	
==>E

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	765	859	
==>E

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describe <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7759	7863	
==>eral>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule Nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	683	770	
==>nClass->superclasses([ $::Class ]);

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	683	770	
==>nClass->superclasses([ $::Class ]);

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	683	770	
==>nClass->superclasses([ $::Class ]);

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28193	28292	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation
which <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29204	29303	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32745	32844	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33756	33855	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation
which <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2796	2922	
==>(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2796	2922	
==>(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2796	2922	
==>(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10119	10224	
==>urns the next node and its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Par <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4235	4323	
==>:Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4235	4323	
==>:Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6432	6520	
==>:Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3605	3734	
==>=~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3605	3734	
==>=~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3605	3734	
==>=~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{metho <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9414	9509	
==>$aname = '+'.$aname if $op{'isNamed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args, <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2757	2886	
==>f.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._g <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2757	2886	
==>f.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._g <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3551	3676	
==>f.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._g <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3551	3676	
==>f.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3133	3313	
==>y ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3133	3313	
==>y ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3133	3313	
==>y ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6274	6396	
==>@mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n",
		      " <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11662	11835	
==>ch' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11662	11835	
==>ch' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6034	6154	
==>lf;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6034	6154	
==>lf;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2986	3115	
==>ned : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2986	3115	
==>ned : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2986	3115	
==>ned : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can( <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	870	966	
==>es will be able to access the Class' private
attributes.  This is "early" method binding.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10755	10856	
==>$self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if define <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10755	10856	
==>$self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if define <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4026	4125	
==>$x);
 }


 multi Math::Trig::pi ( --> Num )
 {
     3.1415926535897932384626433832795028841971693993 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14669	14754	
==>symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6792	6924	
==>y $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6792	6924	
==>y $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6792	6924	
==>y $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2305	2419	
==>notate {
		my $self = shift;
		my $runtime = shift;
		my $prog = shift;
		
		$self->{runtime} = $runtime;

		$self- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9998	10152	
==>ch->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # regis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10834	10988	
==>ch->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # regis <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6929	7067	
==>}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6929	7067	
==>}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2469	2597	
==>er::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Grammar::Base';\n" .
            "use P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3277	3384	
==>632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3277	3384	
==>632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3277	3384	
==>632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand ( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7562	7657	
==>'=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' di <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7562	7657	
==>'=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15855	15949	
==>r.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> oth <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15855	15949	
==>r.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2470	2616	
==>, ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2470	2616	
==>, ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2470	2616	
==>, ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        joi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9239	9386	
==>re\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9239	9386	
==>re\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15005	15097	
==>=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15005	15097	
==>=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the program <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16260	16383	
==>arams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "sp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16260	16383	
==>arams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "sp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16260	16383	
==>arams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "sp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6008	6122	
==>turn ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5834	5930	
==>s the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=ba <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5834	5930	
==>s the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8031	8127	
==>s the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=ba <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2030	2121	
==>NFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11932	12098	
==>"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8214	8380	
==>"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9048	9214	
==>"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3889	3984	
==>>[2]{ident}[0]{ident};
		return { require_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Comp <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19586	19710	
==>@_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11665	11779	
==>()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11665	11779	
==>()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11665	11779	
==>()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5297	5429	
==>= $pkg->meta->to_struct;
        
        # add the archive path to the package's meta info
        $meta->{archive} =
            $s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6359	6458	
==>t { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11952	12046	
==>urn $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4595	4689	
==>urn $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3364	3523	
==>> $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3364	3523	
==>> $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3364	3523	
==>> $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1 <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16179	16288	
==>0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub "p6rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2753	2894	
==>match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2753	2894	
==>match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8289	8388	
==>ringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8289	8388	
==>ringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	296	396	
==>ulti sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	296	396	
==>ulti sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4174	4272	
==>he match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4174	4272	
==>he match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object retur <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3838	3939	
==>mm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3838	3939	
==>mm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3358	3449	
==>item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Delete <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3358	3449	
==>item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Delete <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23071	23172	
==>arget =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21880	21981	
==>arget =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23071	23172	
==>arget =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21880	21981	
==>arget =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1344	1441	
==>L::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1344	1441	
==>L::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1344	1441	
==>L::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13101	13195	
==>over

=item Unary Form

Implementations should create a suitable macro, or otherwise support th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2127	2299	
==>e users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2127	2299	
==>e users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1779	1908	
==>.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1779	1908	
==>.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1575	1684	
==>'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1575	1684	
==>'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3435	3527	
==>/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3435	3527	
==>/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3435	3527	
==>/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27656	27754	
==>01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2831	2925	
==>broutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2831	2925	
==>broutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3178	3272	
==>broutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@c <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11884	11999	
==>ds){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	293	403	
==>ds) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16827	16921	
==>utable, in practice one would
normally just write some components of their application in Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16827	16921	
==>utable, in practice one would
normally just write some components of their application in Roset <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1942	2034	
==>article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources wr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1942	2034	
==>article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources wr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	314	406	
==>le::Spec::Functions ':ALL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::Fil <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1438	1542	
==>nt.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1438	1542	
==>nt.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18069	18200	
==>20,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (op <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17107	17238	
==>20,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18069	18200	
==>20,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17107	17238	
==>20,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (op <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	568	694	
==>d diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	568	694	
==>d diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnost <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2284	2386	
==>() { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguo <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2284	2386	
==>() { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6857	7123	
==>^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6857	7123	
==>^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request. <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14681	14785	
==>ng it's type variables in the function body
	# for this reason the function needs to be cloned (so it wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1170	1272	
==>,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1170	1272	
==>,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1170	1272	
==>,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3303	3414	
==>erl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3303	3414	
==>erl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3303	3414	
==>erl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8963	9062	
==>me} in " . Dumper(@_);

	unify($x->{param}, $y->{param}, @_);
};

multi unify => ('type', 'type') => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5505	5602	
==>rovides an implementation for Perl 6 Rule categories.  

The module is still very unstable, and th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	121	212	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	121	212	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	121	212	
==>('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($sel <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2995	3113	
==>le( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3459	3577	
==>le( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7867	7970	
==>}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.tra <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7867	7970	
==>}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.tra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1477	1594	
==>ash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1477	1594	
==>ash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2279	2382	
==>d class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2279	2382	
==>d class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10492	10620	
==>ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klas <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10492	10620	
==>ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4615	4714	
==>he rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4615	4714	
==>he rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the st <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8928	9042	
==>ngs "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14135	14226	
==>require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14135	14226	
==>require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14135	14226	
==>require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Pe <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1516	1634	
==>eyExtractor | Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1654	1757	
==>t encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1654	1757	
==>t encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1654	1757	
==>t encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5221	5324	
==>f);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5221	5324	
==>f);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5221	5324	
==>f);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1706	1808	
==>0 {
    does Relation::Tuple;

    # External packages used by the Relation::Example::Tuple class, that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3617	3732	
==>6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3617	3732	
==>6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3617	3732	
==>6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2578	2691	
==>tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SM <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2065	2199	
==>n;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2043	2177	
==>n;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3315	3411	
==>nyway, though.)  It 
also means that the nonce or initialization vector should be hashed with the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3315	3411	
==>nyway, though.)  It 
also means that the nonce or initialization vector should be hashed with the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19644	19840	
==>e( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19923	20119	
==>e( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ru <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4316	4416	
==>es starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the conf <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4316	4416	
==>es starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the conf <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	82	189	
==>cket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	82	189	
==>cket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1727	1829	
==>like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1938	2040	
==>like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1785	1887	
==>like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1996	2098	
==>like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	127	233	
==>a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz->new();

while (<>) {
	i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	699	787	
==>self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	699	787	
==>self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	699	787	
==>self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8001	8099	
==>d any sensitive data still 
in the cipher to be deleted immediately.  This method should be as thor <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8001	8099	
==>d any sensitive data still 
in the cipher to be deleted immediately.  This method should be as thor <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1685	1780	
==>ethod is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!child <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1685	1780	
==>ethod is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!child <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3373	3472	
==>3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3373	3472	
==>3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3373	3472	
==>3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13709	13803	
==>tem RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe_SEQINC (-9)

Sequence (? incom <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3230	3321	
==>/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7039	7197	
==>y, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7503	7661	
==>y, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9927	10084	
==>y, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1712	1857	
==>y, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9068	9196	
==>ation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9261	9389	
==>ation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3117	3237	
==>lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1687	1791	
==>f $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1687	1791	
==>f $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1687	1791	
==>f $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1395	1529	
==>ss ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$node <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1739	1870	
==>ss ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$node <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1346	1477	
==>ss ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$node <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1739	1870	
==>ss ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$node <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10927	11022	
==>4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12775	12870	
==>it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &c <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10927	11022	
==>4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12833	12928	
==>it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15295	15397	
==>not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $de <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15295	15397	
==>not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $de <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2929	3027	
==>combine the key with a nonce or initialization vector, a 
one-time random number.  (It will need to <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2929	3027	
==>combine the key with a nonce or initialization vector, a 
one-time random number.  (It will need to <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4923	5076	
==>ced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4923	5076	
==>ced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3297	3417	
==>> 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it wo <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3297	3417	
==>> 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3740	3943	
==>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3740	3943	
==>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3740	3943	
==>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3931	4038	
==>'t give back the private accessors
sub ls_all_accessors { sort keys %config }
sub ls_accessors { grep { $_ ! <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1821	1986	
==>match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we cha <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1821	1986	
==>match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we cha <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	240	337	
==>led = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our F <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	298	395	
==>led = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9149	9248	
==>ULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9149	9248	
==>ULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9149	9248	
==>ULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47119	47264	
==>ttr(symbol->new('%:namespace')));
                  }))
                  ->or(block->new($e, sub {
                      $e->set('$return' => $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4192	4308	
==>@a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4192	4308	
==>@a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4192	4308	
==>@a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3037	3153	
==>cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3037	3153	
==>cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22685	22781	
==>ains all possibly useful details, so
that each Template can optionally use them; but often a temp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22685	22781	
==>ains all possibly useful details, so
that each Template can optionally use them; but often a temp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3999	4103	
==>\"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5320	5424	
==>\"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3999	4103	
==>\"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5308	5412	
==>\"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2935	3044	
==>:PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] - <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2935	3044	
==>:PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11464	11561	
==>o not
interact with the outside environment at all.

A Document object has 2 main attributes:

=ov <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11464	11561	
==>o not
interact with the outside environment at all.

A Document object has 2 main attributes:

=ov <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1519	1652	
==>open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
} <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1519	1652	
==>open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12160	12256	
==>method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12160	12256	
==>method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23747	23844	
==>.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22520	22617	
==>.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23747	23844	
==>.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22520	22617	
==>.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1972	2108	
==>:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2177	2313	
==>:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2240	2376	
==>:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here .. <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14997	15099	
==>@{ $self->{params} };
}

package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1486	1642	
==>[1]->fetch }

sub change_class {
    my ($self, $klass) = @_;
    return $self->[1]->store($klass);
}

sub get_attr {
    my ($self, $name) = @_;
    (blesse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2954	3070	
==>}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2954	3070	
==>}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2954	3070	
==>}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3842	3950	
==>bugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3842	3950	
==>bugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3842	3950	
==>bugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1515	1608	
==>nline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4552	4683	
==>erator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3679	3810	
==>erator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4552	4683	
==>erator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3679	3810	
==>erator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1716	1818	
==>r::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::Fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1716	1818	
==>r::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::Fi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25206	25298	
==>with other free software
components, as defined by the Free Software Foundation at
L<http://w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25206	25298	
==>with other free software
components, as defined by the Free Software Foundation at
L<http://w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3578	3681	
==>name !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3578	3681	
==>name !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3578	3681	
==>name !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\* <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15201	15294	
==>?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() meth <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2579	2731	
==>ere on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12388	12496	
==>' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12388	12496	
==>' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12388	12496	
==>' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3044	3200	
==>x->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some reason <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5128	5223	
==>or routine is passed the current object in the recursion and
the wanted namespace ("MyName" in t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5128	5223	
==>or routine is passed the current object in the recursion and
the wanted namespace ("MyName" in t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5128	5223	
==>or routine is passed the current object in the recursion and
the wanted namespace ("MyName" in t <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5219	5347	
==>urn $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            while ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2203	2344	
==>uoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exists $n->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1768	1905	
==>( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB cir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1768	1905	
==>( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB cir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1768	1905	
==>( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB cir <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20465	20574	
==>OYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (hash %params)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6038	6139	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6038	6139	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6038	6139	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5155	5272	
==>aque_instance_class($self)->add_method($label, $method);
        },          
    },
);

# < Class is a subclass of Ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	131	233	
==>itive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	131	233	
==>itive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	131	233	
==>itive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1188	1289	
==>lf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1188	1289	
==>lf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1188	1289	
==>lf->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13333	13431	
==>ther!) returns Relation::Example {

    die "The relation in $other has attributes in common with t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1458	1552	
==>fiers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls b <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1458	1552	
==>fiers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3169	3263	
==>ing is overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3056	3148	
==>ing is overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations li <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	797	913	
==>return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	797	913	
==>return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Run <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12921	13020	
==>ng through the span range, the unit is added to the current value to get the next value.
The unit sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12921	13020	
==>ng through the span range, the unit is added to the current value to get the next value.
The unit sp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27569	27667	
==>or the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27569	27667	
==>or the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21130	21222	
==>base, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21130	21222	
==>base, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3387	3484	
==>should be hashed with the 
key, not merely appended to it; appending can create precisely the sort <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3387	3484	
==>should be hashed with the 
key, not merely appended to it; appending can create precisely the sort <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	305	401	
==>l returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	305	401	
==>l returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2591	2710	
==>join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2591	2710	
==>join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { <==
4	/Users/nnunley/pugs/util/package-osx.pl	873	979	
==>rrot.a
        /usr/local/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgconfi <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6797	6891	
==>4.1 or above from path (we have $ghc_version).
*** Please install a newer version from http://h <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16850	16987	
==>e if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              the exit code of t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12370	12490	
==>d ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $de <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2750	2866	
==>d ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2750	2866	
==>d ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $de <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16993	17108	
==>) > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20470	20585	
==>) > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20048	20163	
==>) > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7278	7366	
==>SubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_helper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2141	2264	
==>stant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11009	11132	
==>stant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2334	2457	
==>stant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11288	11411	
==>stant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	384	555	
==>$str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../pars <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	384	555	
==>$str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../pars <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19341	19439	
==>used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you only <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19341	19439	
==>used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you only <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6642	6740	
==>ing C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the co <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6642	6740	
==>ing C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40958	41050	
==>o the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40958	41050	
==>o the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1806	1907	
==>"Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1806	1907	
==>"Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1806	1907	
==>"Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	783	871	
==>en changed to cc_optimize_flags for consistency reasons";
	shift()->cc_optimize_flags(@_) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9803	9916	
==>Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7743	7856	
==>Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9803	9916	
==>Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7743	7856	
==>Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2611	2829	
==>> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2611	2829	
==>> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2611	2829	
==>> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	644	893	
==>t

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Mes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	644	893	
==>t

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Mes <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32578	32671	
==>tion, its
main purpose is to convert Message objects on demand into user-readable
message stri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32578	32671	
==>tion, its
main purpose is to convert Message objects on demand into user-readable
message stri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1765	1879	
==>Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protoc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1765	1879	
==>Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protoc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3845	3941	
==>e_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4029	4125	
==>e_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19589	19714	
==>r(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16010	16135	
==>r(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1222	1332	
==>*%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1222	1332	
==>*%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	109	220	
==>Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3105	3195	
==>ptions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3105	3195	
==>ptions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3105	3195	
==>ptions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12017	12101	
==>}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12017	12101	
==>}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12017	12101	
==>}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	122	224	
==>o emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	122	224	
==>o emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	122	224	
==>o emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (func <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	891	989	
==>},
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2345	2475	
==>__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'prefix:<say>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37646	37754	
==>alized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37646	37754	
==>alized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37646	37754	
==>alized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6253	6376	
==>nd we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5326	5449	
==>nd we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it. <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6253	6376	
==>nd we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5326	5449	
==>nd we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10922	11018	
==>s->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10854	10950	
==>d") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($namestr".
		 "=> ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10922	11018	
==>s->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10922	11018	
==>s->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table-> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4403	4500	
==>ck to the config file, any comments are discarded.

=head1 METHODS

Since the current version of P <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4403	4500	
==>ck to the config file, any comments are discarded.

=head1 METHODS

Since the current version of P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26645	26734	
==>icates perl5_call/3, perl5_eval/2 and perl5_method/4 will be available

do{open F,">delete <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4364	4449	
==>set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4364	4449	
==>set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4364	4449	
==>set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @IS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20689	20789	
==>y $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20689	20789	
==>y $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20689	20789	
==>y $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16484	16582	
==>uld consider setting their I/O handles to autochomp
instead of this step.


=item lc

 multi Str::l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18098	18238	
==>s to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Reg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17136	17276	
==>s to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Reg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18098	18238	
==>s to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Reg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17136	17276	
==>s to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21954	22080	
==>bject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21954	22080	
==>bject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21954	22080	
==>bject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2912	3003	
==>tringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    start = stringarg- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4335	4490	
==>};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4335	4490	
==>};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13780	13886	
==>ing, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exporte <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13780	13886	
==>ing, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exporte <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6521	6629	
==>ers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7257	7365	
==>ers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6521	6629	
==>ers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7257	7365	
==>ers{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug " <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	903	1032	
==>start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<afte <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	645	774	
==>start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	903	1032	
==>start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	645	774	
==>start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<afte <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2219	2339	
==>mpile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2436	2556	
==>mpile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2135	2238	
==>b status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2135	2238	
==>b status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6381	6516	
==>E__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non', <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25795	25891	
==>its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30347	30443	
==>its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29313	29409	
==>its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Rel <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2048	2173	
==>UG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2048	2173	
==>UG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4645	4754	
==>:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4645	4754	
==>:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	374	482	
==>span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	374	482	
==>span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	915	1011	
==>y be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	915	1011	
==>y be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedur <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	592	691	
==>with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	592	691	
==>with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&c <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4387	4482	
==>96+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4387	4482	
==>96+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16367	16456	
==>sion> <'!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <RelationalExpressi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	333	474	
==>put',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $plan, $outp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2621	2719	
==>ly qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2621	2719	
==>ly qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2621	2719	
==>ly qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5954	6071	
==>";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't ope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5954	6071	
==>";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't ope <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5954	6071	
==>";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't ope <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4190	4291	
==>ll reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the Param object).

Then the t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10321	10473	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10321	10473	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10321	10473	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5042	5141	
==>e = shift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7781	7882	
==>n { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7781	7882	
==>n { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7781	7882	
==>n { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type ( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6328	6426	
==>t files skipped

If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've
got a successful <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21694	21893	
==>erl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCAL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21694	21893	
==>erl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCAL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21694	21893	
==>erl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCAL <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	727	824	
==>rom $LANG to auxilliary code in that
# language.
Has($?CLASS, "code", "Str");

# corresponding rev <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	7002	7124	
==>bareword> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::recomp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2709	2813	
==>t(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2709	2813	
==>t(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2709	2813	
==>t(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(j <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	222	323	
==>$option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11493	11581	
==>ifc
code to the class that consumed it.

------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11493	11581	
==>ifc
code to the class that consumed it.

------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11493	11581	
==>ifc
code to the class that consumed it.

------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39621	39739	
==>t;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39621	39739	
==>t;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39621	39739	
==>t;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14056	14168	
==>spatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$attr->name} = $attr.instant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11232	11390	
==>stance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11232	11390	
==>stance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11232	11390	
==>stance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7133	7259	
==>ll take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7133	7259	
==>ll take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7133	7259	
==>ll take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.len <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38638	38736	
==>.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2042	2162	
==>.
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2030	2150	
==>.
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@matc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13625	13720	
==>nclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_ti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13625	13720	
==>nclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_ti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6746	6905	
==>($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!part <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6746	6905	
==>($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!part <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	86	215	
==>xport {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $c <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	86	215	
==>xport {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23752	23860	
==>rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22525	22633	
==>rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PR <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23752	23860	
==>rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PR <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22525	22633	
==>rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23926	24029	
==>to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22699	22802	
==>to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23926	24029	
==>to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22699	22802	
==>to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4923	5041	
==>er::Regex->compile( q(
            <Pugs::Grammar::Term.single_quoted>
            { return { single_quoted => $/{'Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18547	18663	
==>ackage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18547	18663	
==>ackage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18547	18663	
==>ackage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23871	23984	
==>* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #def <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1050	1159	
==>!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    ha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1050	1159	
==>!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    ha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29048	29149	
==>* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #def <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4825	5013	
==>utdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5047	5235	
==>utdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15705	15795	
==>se).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15705	15795	
==>se).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3182	3288	
==>ername hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3182	3288	
==>ername hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3763	3865	
==>ername hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3763	3865	
==>ername hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3708	3833	
==>t_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3708	3833	
==>t_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1503	1620	
==>amp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcont <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1503	1620	
==>amp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcont <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10208	10308	
==>interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $va <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10208	10308	
==>interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $va <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5416	5509	
==>f C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5416	5509	
==>f C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13916	14067	
==>>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13916	14067	
==>>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13916	14067	
==>>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40628	40727	
==>TNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40628	40727	
==>TNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, t <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11212	11304	
==>returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11212	11304	
==>returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($se <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	307	418	
==>ing

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # ha <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	307	418	
==>ing

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14923	15015	
==>/:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14923	15015	
==>/:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqu <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2063	2217	
==>'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = s <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2063	2217	
==>'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7407	7520	
==>';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7419	7532	
==>';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39441	39540	
==>HT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-200 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5176	5275	
==>HT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-200 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39441	39540	
==>HT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-200 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5176	5275	
==>HT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-200 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17217	17392	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23183	23358	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17496	17671	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23462	23637	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	277	422	
==>at reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3076	3210	
==>bs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3076	3210	
==>bs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3076	3210	
==>bs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", " <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	333	433	
==>L::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	333	433	
==>L::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2041	2168	
==>\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2181	2308	
==>\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	460	560	
==>6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	460	560	
==>6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3714	3846	
==>o-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3714	3846	
==>o-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3714	3846	
==>o-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mo <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7946	8238	
==>m->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37267	37430	
==>) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37267	37430	
==>) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37267	37430	
==>) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $po <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	981	1074	
==>b {...}, universe => $universal_set )`

Create a recurrence set with full bidirectional functi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	981	1074	
==>b {...}, universe => $universal_set )`

Create a recurrence set with full bidirectional functi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21582	21672	
==>.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21582	21672	
==>.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8204	8325	
==>hift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            sh <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8204	8325	
==>hift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            sh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4254	4368	
==>'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4471	4585	
==>'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $prog <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12929	13096	
==>target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and cre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12929	13096	
==>target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and cre <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	424	534	
==>urrently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subro <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	424	534	
==>urrently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	297	420	
==>e unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	297	420	
==>e unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2040	2138	
==>l_to($params->length) == $bit::TRUE)
        || confess "too many arguments passed to closure got(" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12029	12115	
==>Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_cha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	785	918	
==>$self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	785	918	
==>$self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs - <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	462	569	
==>s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is expo <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	462	569	
==>s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is expo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3915	4034	
==>is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3915	4034	
==>is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3915	4034	
==>is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4601	4703	
==>),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_vars} $self->left, $self->rig <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2228	2325	
==>oid { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2228	2325	
==>oid { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2228	2325	
==>oid { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1417	1538	
==>t')->FETCH('::Pass')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6369	6458	
==>e = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6369	6458	
==>e = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6369	6458	
==>e = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute(' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4755	4938	
==>iers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4755	4938	
==>iers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14955	15074	
==>d,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14955	15074	
==>d,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8107	8284	
==>>new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # emp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8107	8284	
==>>new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # emp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8107	8284	
==>>new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # emp <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2863	2996	
==>ut-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker conf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1555	1673	
==>501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1555	1673	
==>501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway T <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13702	13813	
==>to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13702	13813	
==>to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	613	785	
==>__PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __P <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	0	103	
==>package PugsBuild::Config;
use strict;
use warnings;
our $VERSION = '0.01';

use File::Copy;

# change t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11492	11586	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will comp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11550	11644	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will comp <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11308	11424	
==>. Dumper->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21219	21324	
==>.};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21219	21324	
==>.};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21219	21324	
==>.};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2633	2744	
==>by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2633	2744	
==>by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1842	1950	
==>by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3703	3811	
==>by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under the same terms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	23	129	
==>geLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	23	129	
==>geLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	23	129	
==>geLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signat <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9499	9586	
==>push(@args,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'isLValu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5727	5932	
==>=~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5727	5932	
==>=~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5727	5932	
==>=~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1484	1579	
==>s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/pers <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3609	3729	
==>0;

    return %totals;
}


sub _analyze_line {
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{li <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2255	2366	
==>TOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_I <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2255	2366	
==>TOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_I <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5638	5728	
==>mplex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5170	5270	
==>n bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::U <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3698	3796	
==>or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUT <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3698	3796	
==>or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10895	11086	
==>s;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10895	11086	
==>s;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10895	11086	
==>s;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4576	4682	
==>AML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3837	3940	
==>o why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3837	3940	
==>o why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3837	3940	
==>o why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     s <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1391	1473	
==>ay_alias>|<hash_alias>|<external_scalar_alias>|<external_array_alias>|<external_has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17795	17969	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17795	17969	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17795	17969	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4834	4976	
==>stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4834	4976	
==>stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6687	6790	
==>_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::rev <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6687	6790	
==>_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::rev <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	778	883	
==>ION};
BEGIN {
    # All Module::Install core packages now require synchronised versions.
    # This will b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2112	2205	
==>ke_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2112	2205	
==>ke_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2112	2205	
==>ke_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9282	9391	
==>_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_sup <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9282	9391	
==>_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_sup <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14850	14949	
==>rns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<u <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14850	14949	
==>rns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	455	589	
==>key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	455	589	
==>key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2892	3008	
==>cies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3356	3472	
==>cies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3730	3899	
==>atch = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3870	4039	
==>atch = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5485	5583	
==>/lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5294	5391	
==>/lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	700	810	
==>$ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	700	810	
==>$ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	700	810	
==>$ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        met <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	607	708	
==>declare a new class.

A class is a role with the enhancement that is it I<typable>.

This means;

=ove <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	246	356	
==>2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13334	13425	
==>return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13334	13425	
==>return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13334	13425	
==>return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1052	1178	
==>->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1052	1178	
==>->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1052	1178	
==>->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16708	16826	
==>X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1);
      TAILCALL(&$cn,$c) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6142	6238	
==>- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8210	8306	
==>- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6142	6238	
==>- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8210	8306	
==>- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12105	12222	
==>},
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7397	7492	
==>ckage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7397	7492	
==>ckage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7397	7492	
==>ckage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	402	506	
==>IKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4793	4897	
==>ode = shift;
	my $body = shift;

	push @{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	402	506	
==>IKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	402	506	
==>IKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4856	4979	
==>ode""pPos"
        dbg "# keys: ",%pad.keys;
        $ret = traverse_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	244	358	
==>" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	244	358	
==>" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	244	358	
==>" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4507	4635	
==>i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2528	2619	
==>50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2528	2619	
==>50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2528	2619	
==>50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4384	4540	
==>'ne' vs. ':negate'
            my $name = $ast->{op};
            if (   defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && define <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2073	2241	
==>kie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2073	2241	
==>kie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain} <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1684	1782	
==>and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1577	1663	
==>and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10396	10505	
==>ts.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10396	10505	
==>ts.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1881	1984	
==>arser



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_cod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1807	1906	
==>arser

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_cod <==
4	/Users/nnunley/pugs/util/package-osx.pl	6294	6391	
==>3/Perl6::Overview::Operator.3pm
        /usr/local/man/man3/Perl6::Overview::Reduce.3
        /usr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	26	120	
==>for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $sec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	26	120	
==>for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $sec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	26	120	
==>for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $sec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8240	8347	
==>ess keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8240	8347	
==>ess keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8240	8347	
==>ess keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	22064	22163	
==>Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-Y <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	442	548	
==>.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK l <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	442	548	
==>.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1188	1306	
==>AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1393	1511	
==>AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1454	1572	
==>AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1395	1492	
==>the current
time and the text they said is saved.

If the (optional) role parameter C<public> is s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1395	1492	
==>the current
time and the text they said is saved.

If the (optional) role parameter C<public> is s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28517	28612	
==>his object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28517	28612	
==>his object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11384	11488	
==>t::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submetho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1836	1932	
==>t::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submetho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1836	1932	
==>t::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submetho <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1425	1517	
==>d: layout($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name }

type::operat <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2121	2216	
==>) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4080	4172	
==>t ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4080	4172	
==>t ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4080	4172	
==>t ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->ad <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	800	930	
==>u enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    ha <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	800	930	
==>u enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    ha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4034	4138	
==>") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $ne <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4034	4138	
==>") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $ne <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4793	4921	
==>= 8; goto term_bx0; }
    else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegated and (length $init <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4241	4352	
==>$body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4241	4352	
==>$body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4241	4352	
==>$body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? ' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1067	1162	
==>correctly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In partic <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1067	1162	
==>correctly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In partic <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4163	4279	
==>& $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4163	4279	
==>& $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Pr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4139	4236	
==>RS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam " <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4139	4236	
==>RS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4143	4292	
==>ith $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5542	5650	
==>0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5542	5650	
==>0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5542	5650	
==>0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5665	5763	
==>head2 new ()

Class method.  Returns a category object.

options:

=item * name => $category_name - <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	359	456	
==>nd to a compiled class (a L<Type>), which is used for
dispatching private methods.

=back

Normall <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28002	28095	
==>e name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()>

T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28002	28095	
==>e name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()>

T <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	100	201	
==>rl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$a[ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	375	481	
==>e cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	375	481	
==>e cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1206	1311	
==>unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1206	1311	
==>unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variab <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6859	7029	
==>nse) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'g <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6916	7086	
==>nse) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'g <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10561	10685	
==>bst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10561	10685	
==>bst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5934	6019	
==>:cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) } <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3867	3976	
==>as @.args;
    method new (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12550	12649	
==>an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12550	12649	
==>an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12550	12649	
==>an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14226	14324	
==>::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14226	14324	
==>::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14226	14324	
==>::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25770	25866	
==>testing stopped: %s>

If a single subtest decides that further testing will not make sense,
the s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5245	5372	
==>eys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8722	8849	
==>eys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7742	7869	
==>eys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	823	932	
==>osition();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $position = -1;
  $me-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8402	8517	
==>urn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8402	8517	
==>urn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8402	8517	
==>urn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'per <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6769	6889	
==>$license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl', <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6826	6946	
==>$license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl', <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6454	6549	
==>in(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpol <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5527	5622	
==>in(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpol <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6454	6549	
==>in(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpol <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5527	5622	
==>in(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11221	11350	
==>::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11221	11350	
==>::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11221	11350	
==>::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6535	6630	
==>package ${pkg_root}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22599	22747	
==>rgs[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_as_bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2772	2889	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2772	2889	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2772	2889	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4759	4876	
==>f->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4759	4876	
==>f->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4759	4876	
==>f->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	314	413	
==>ndef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	314	413	
==>ndef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	314	413	
==>ndef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canid <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1775	1877	
==>'t seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1775	1877	
==>'t seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic f <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3096	3194	
==>l sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3096	3194	
==>l sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16685	16804	
==>e run, ".
            "alas--no output ever seen\n";
    } else {
        $pct = sprintf("%.2f", $tot->{good} / $tot->{t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6440	6549	
==>!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6440	6549	
==>!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2804	2906	
==>mmon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2804	2906	
==>mmon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	397	498	
==>\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array]* of Str

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1458	1554	
==>] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1458	1554	
==>] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1458	1554	
==>] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29532	29646	
==>être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversemen <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29532	29646	
==>être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversemen <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	344	450	
==>être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversemen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	975	1070	
==>} @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	425	625	
==>args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	425	625	
==>args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	687	785	
==>/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	687	785	
==>/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	687	785	
==>/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glob <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4967	5063	
==>self->load_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extens <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24369	24547	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25632	25810	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24648	24826	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25911	26089	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12945	13066	
==>, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12945	13066	
==>, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12945	13066	
==>, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3631	3727	
==>ure. The only dirty part is C<reduce_sym> which must handle recursive calls.

The compiler inheri <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	965	1082	
==>ipt($script_file);
}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	118	208	
==>($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	118	208	
==>($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	118	208	
==>($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3952	4074	
==>[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3940	4062	
==>[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8712	8817	
==>rom_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8712	8817	
==>rom_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %user <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1368	1485	
==>> 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1368	1485	
==>> 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # c <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5110	5206	
==>ad ($filename)

The C<read> method reads a config file, and returns a boolean value
of success or <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5110	5206	
==>ad ($filename)

The C<read> method reads a config file, and returns a boolean value
of success or <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	148	265	
==>mirror the spec.
 2 Interoperation - allow blending of p6 and js objects.
   (Even though this impairs 1?)
Please note <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22838	22940	
==>}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$::Class->send('add_metho <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2978	3077	
==>ot return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2978	3077	
==>ot return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14058	14185	
==>tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14058	14185	
==>tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14058	14185	
==>tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tm <==
4	/Users/nnunley/pugs/util/package-osx.pl	2282	2371	
==>l/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9997	10165	
==>n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { requi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9997	10165	
==>n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { requi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3982	4077	
==>rl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3982	4077	
==>rl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9195	9368	
==>he idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9195	9368	
==>he idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9195	9368	
==>he idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21005	21108	
==>($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') . $self->nparen;
  }

  sub nparen {
    my $sel <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6786	6896	
==>nted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4138	4248	
==>nted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6786	6896	
==>nted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4138	4248	
==>nted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	506	676	
==>reak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	506	676	
==>reak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	506	676	
==>reak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw er <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5502	5605	
==>nitrd-size=i"  => \$initrd_size,
  "initrd-mnt=s"   => \$initrd_mnt,
  "cdroot=s"       => \$cdroot,
  " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38452	38569	
==>$array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38452	38569	
==>$array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38452	38569	
==>$array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7446	7552	
==>est $test   --> Lazy )
{
    List::grep $test, *@values;
}

# signature from S29draft.pod 8655.  In the Lis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18739	18843	
==>ing the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17782	17886	
==>ing the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18739	18843	
==>ing the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17782	17886	
==>ing the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6265	6430	
==>e'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6265	6430	
==>e'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6265	6430	
==>e'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9888	9989	
==>qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; print $@ if $@;
my $m = "asd <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7543	7632	
==>th_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1368	1457	
==>th_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2564	2652	
==>e'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2776	2864	
==>e'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1099	1207	
==>r = `cat $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or die "Couldn't re <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11886	11988	
==>t_path;
      $output .= $text;
      my $syn_path = catfile($output_dir, "Synopsis", "$linkfile.html") <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1338	1432	
==>und-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new( <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1338	1432	
==>und-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19146	19236	
==>ader(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authentic <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19146	19236	
==>ader(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authentic <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1127	1234	
==>ate longest match for tokens (putter on #perl6)

    # update: <%var> does longest match based on the keys l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1477	1583	
==>ate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1084	1190	
==>ate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1477	1583	
==>ate longest match for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys l <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19128	19235	
==>_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Mod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19128	19235	
==>_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Mod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	918	1022	
==>) );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumpe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8195	8296	
==>nyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	63	170	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	63	170	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	63	170	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $sel <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4914	5010	
==>suitable for one-liners.  If
you need more control or access to the header fields in the requests <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4914	5010	
==>suitable for one-liners.  If
you need more control or access to the header fields in the requests <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3	94	
==>ule HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3	94	
==>ule HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entit <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9741	9853	
==>e ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9741	9853	
==>e ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19546	19647	
==>ded use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24098	24199	
==>ded use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  Th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1107	1256	
==>ement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1312	1461	
==>ement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3901	4026	
==>d captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 sa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3913	4038	
==>d captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28238	28332	
==>eturns Set of Mapping(Str) of Any>

This method returns this Relation::Example's body.

=item C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17318	17409	
==>($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17318	17409	
==>($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17318	17409	
==>($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1655	1778	
==>al $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1655	1778	
==>al $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1655	1778	
==>al $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18908	18993	
==>ideExpression> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperat <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	155	261	
==>xt type.  The below is expressive enough to do the
# same thing, but the conversion is a bit "lossy".
#
# h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2055	2155	
==>sub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2055	2155	
==>sub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2055	2155	
==>sub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7902	8047	
==>n $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7902	8047	
==>n $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7902	8047	
==>n $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $t <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1230	1352	
==>eturn
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), tail($input);
  };
}

## Chapter 8 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43707	43873	
==>label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('DESTROYALL') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2168	2286	
==>c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2168	2286	
==>c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2168	2286	
==>c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	358	466	
==>ee psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	358	466	
==>ee psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	358	466	
==>ee psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::E <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6369	6459	
==>at represent them.  See L<Regexp::Parser::Handlers> for information
about sub-classing this <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11279	11424	
==>" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1928	2042	
==>rimitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1928	2042	
==>rimitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1928	2042	
==>rimitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	347	440	
==>bin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	347	440	
==>bin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	347	440	
==>bin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pw <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13136	13227	
==>sion>
    | <PropertyNameAndValueList> <','> <PropertyName> <':'> <AssignmentExpression>
}
r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11606	11800	
==>e} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7888	8082	
==>e} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8722	8916	
==>e} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9064	9161	
==>cts.

=head2 Getting the OPEN Count

You can access the number capture groups with the nparen() me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12741	12862	
==>> @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12741	12862	
==>> @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our conne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1196	1311	
==>ariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1196	1311	
==>ariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5858	5957	
==>et $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4988	5087	
==>et $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5858	5957	
==>et $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4988	5087	
==>et $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13103	13213	
==>-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16580	16690	
==>-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15942	16052	
==>-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical he <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	184	285	
==>kage Inline::Parrot::PMC;
print "Inline::Parrot::PMC\n";
use Exporter 'import';
our @EXPORT=qw(get_int <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12330	12470	
==>at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$as <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8606	8746	
==>at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9441	9581	
==>at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$as <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2837	2969	
==>stem( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5273	5384	
==>n}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5273	5384	
==>n}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	536	635	
==>+ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	536	635	
==>+ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	195	314	
==>);
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{package} cmp $b->{package} } 
                 Load <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6048	6140	
==>ame, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6048	6140	
==>ame, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6048	6140	
==>ame, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2J <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	828	937	
==>returns a "rule".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1197	1301	
==>returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	796	900	
==>returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1197	1301	
==>returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1004	1108	
==>};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, tak <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1004	1108	
==>};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, tak <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18169	18264	
==>f a program simply returned words for the user, such as
'error opening file', programs would hav <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18169	18264	
==>f a program simply returned words for the user, such as
'error opening file', programs would hav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2411	2656	
==>= _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2411	2656	
==>= _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2411	2656	
==>= _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33230	33343	
==>pth;
  }

The two additional arguments sent are the walking stack and the current
depth in the walking stack.  Ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3300	3405	
==>erence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3300	3405	
==>erence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3300	3405	
==>erence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname = <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	788	895	
==>, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This modu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7337	7440	
==>- use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<-- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7337	7440	
==>- use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<-- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7337	7440	
==>- use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<-- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	142	251	
==>e-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists a <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	142	251	
==>e-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16231	16336	
==>following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Mo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16231	16336	
==>following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Mo <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13148	13264	
==>">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> test cases< <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3309	3416	
==>ete_smokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<pugs_version osname r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15854	16014	
==>NL:#;

        # VMS file locking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35182	35300	
==>ing
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35182	35300	
==>ing
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35182	35300	
==>ing
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3356	3480	
==>Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3356	3480	
==>Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4513	4620	
==><name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4359	4462	
==><name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6685	6846	
==>( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6878	7039	
==>( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2600	2703	
==>cified is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2504	2603	
==>cified is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21785	21887	
==>it, so I figured it was a sign that I'd chosen an awful name
for the field.  There will still be a clas <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14728	14829	
==>tart => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14728	14829	
==>tart => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1166	1260	
==>entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 * <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1166	1260	
==>entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 * <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8784	8882	
==>dnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	130	228	
==>ues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8784	8882	
==>dnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	130	228	
==>ues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2224	2338	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2224	2338	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2224	2338	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      va <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1904	2046	
==>atus;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1904	2046	
==>atus;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	477	579	
==>piler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	477	579	
==>piler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	196	303	
==>B::Repository->new( root => $REPOSITORY_ROOT )
                or die "No repository created";

$REPO->creat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5799	5910	
==>r ( File::Find::Rule->directory->in( $from ) ) {
            ### strip the leading dirs from the target so we do <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3746	3840	
==>:Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3746	3840	
==>:Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3746	3840	
==>:Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8085	8290	
==>ybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8549	8754	
==>ybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1058	1182	
==>ogram if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1263	1387	
==>ogram if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7029	7190	
==>ray' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7029	7190	
==>ray' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7029	7190	
==>ray' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8236	8350	
==>$1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o =~ /([^ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7021	7162	
==>,
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Per <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7021	7162	
==>,
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2358	2470	
==>d.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2575	2687	
==>d.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23673	23792	
==>';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23673	23792	
==>';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23673	23792	
==>';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    e <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15103	15192	
==>eExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> <'-'> <Multiplica <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3178	3405	
==>=> 'symbol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12946	13064	
==>& 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12946	13064	
==>& 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12946	13064	
==>& 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label an <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2598	2703	
==>mpile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2598	2703	
==>mpile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20984	21075	
==>rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQL <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20984	21075	
==>rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2302	2416	
==>.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2302	2416	
==>.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1527	1637	
==>.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3388	3498	
==>.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	252	373	
==>>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	686	806	
==>::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	686	806	
==>::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	197	307	
==>tementControl;
use base 'Pugs::Grammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::D <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5305	5403	
==>error: file '$wc' not found.\n";
PrintGolfScore($head, $tail, $rev, $mid, $wc);
CheckHead($head);
C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2701	2791	
==>self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2701	2791	
==>self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2701	2791	
==>self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	18	118	
==>$text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	18	118	
==>$text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	18	118	
==>$text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6448	6584	
==>nfix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6448	6584	
==>nfix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4525	4648	
==>::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns P <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4525	4648	
==>::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2168	2273	
==>ures for easy use of the resulting matches.
#   * Perhaps define a macro gram ($name) { "rule $name :words <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	207	307	
==>th psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ratio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	207	307	
==>th psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ratio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	207	307	
==>th psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Ratio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6963	7073	
==>UB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6963	7073	
==>UB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6963	7073	
==>UB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14844	14939	
==>e levels at once. Which level you
interact with typically depends on what your current lexical c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12547	12660	
==>::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no str <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12547	12660	
==>::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no str <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12547	12660	
==>::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no str <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5178	5278	
==>ew(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'ble <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	845	1011	
==>. 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	845	1011	
==>. 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1593	1713	
==>->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for re <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1593	1713	
==>->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12186	12320	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificatio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12186	12320	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificatio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12186	12320	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificatio <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26336	26449	
==>hells will need to
C<export COLUMNS> for this module to use that variable.

=item C<HARNESS_COMPILE_TEST>

When tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26526	26754	
==>y($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26526	26754	
==>y($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26526	26754	
==>y($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25966	26050	
==>).
listify_lists([X|Xs],[L|Ls]) :- listify(X,L), listify_lists(Xs,Ls).
listify_lists( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2231	2364	
==>tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end int <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2231	2364	
==>tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end int <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2231	2364	
==>tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end int <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2425	2543	
==>l pattern
    Block       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Paramet <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2595	2707	
==>ds{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2595	2707	
==>ds{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2595	2707	
==>ds{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2J <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6568	6679	
==>lf->generic_reduce(shift);

	my $seq = $node->struct_equiv;
	join("\n\t", "", map { "$_;" } $seq->values);
}

su <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10164	10311	
==>tedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2172	2276	
==>is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2172	2276	
==>is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2172	2276	
==>is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	462	619	
==>rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	462	619	
==>rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@val <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1878	1977	
==>ta) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	92	189	
==>ose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2776	2889	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2969	3082	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	522	620	
==>fore>, hashes, end_of_string, and the rule wrapper.

- It needs a 'direction' flag, in order to i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2752	2848	
==>",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@v <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6204	6300	
==>",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2752	2848	
==>",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2752	2848	
==>",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@v <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	314	440	
==>ation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	314	440	
==>ation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-St <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	518	640	
==>NOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding norma <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	518	640	
==>NOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding norma <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11883	11982	
==>decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske t <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11883	11982	
==>decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31261	31356	
==>:FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
set <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31261	31356	
==>:FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
set <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2403	2576	
==>rn $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2403	2576	
==>rn $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7053	7181	
==>alue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3334	3446	
==>s copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.inters <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3334	3446	
==>s copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.inters <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	57	158	
==>e data VCode)

has Bool $.isMulti;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBlock <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3964	4062	
==>2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3964	4062	
==>2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3964	4062	
==>2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metam <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1376	1579	
==>e $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $fi <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1376	1579	
==>e $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $fi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5093	5209	
==>bute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8570	8686	
==>bute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        headin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10127	10274	
==>msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1254	1355	
==>st.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1254	1355	
==>st.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1334	1435	
==>st.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expor <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8854	8976	
==>chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(967 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8854	8976	
==>chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(967 <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	511	620	
==>e() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	511	620	
==>e() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4949	5062	
==>content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4949	5062	
==>content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23483	23570	
==>t>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> ". <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23483	23570	
==>t>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> ". <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5424	5586	
==>equired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5424	5586	
==>equired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5424	5586	
==>equired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14979	15138	
==>->right;
            
            if (!defined $end) {
              $beg->tag('div');
              $beg->attr('class', 'empty_head '.$tag);

              nex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6179	6376	
==>|
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	187	299	
==>= Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	187	299	
==>= Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	187	299	
==>= Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6658	6778	
==>ds}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6658	6778	
==>ds}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6658	6778	
==>ds}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}-> <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1032	1130	
==>(Num $x) {
# XXX I don't understand what round-alternate means.
# But in my understanding, The impl <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	544	657	
==>al AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	544	657	
==>al AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4855	4950	
==>mified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4855	4950	
==>mified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41709	41805	
==>ents is not significant to the result;
the new Relation::Example is the result of combining all o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34100	34195	
==>t have
an identical header to the invocant relation.  This method has aliases
named C<minus> and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38650	38745	
==>t have
an identical header to the invocant relation.  This method has aliases
named C<minus> and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38111	38206	
==>t have
an identical header to the invocant relation.  This method has aliases
named C<minus> and <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4991	5152	
==>=>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # -- <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4991	5152	
==>=>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # -- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11255	11347	
==>e $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11255	11347	
==>e $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8789	8894	
==>n overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8498	8600	
==>n overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	887	976	
==>document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	887	976	
==>document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This doc <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4405	4537	
==>x => $no_index } );
    }
    else {
        $dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1295	1424	
==>but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1295	1424	
==>but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1295	1424	
==>but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9603	9715	
==>def;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9603	9715	
==>def;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	81	177	
==>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	81	177	
==>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8797	8899	
==>{
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8797	8899	
==>{
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8797	8899	
==>{
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5899	6003	
==>perset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5029	5133	
==>perset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5899	6003	
==>perset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5029	5133	
==>perset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9903	10049	
==>- it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $id <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6244	6390	
==>- it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7093	7239	
==>- it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11734	11871	
==>[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub nod <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2678	2801	
==>February March     April   May      June
               July    August   September October November December>;
method month_ <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	113	234	
==>lishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 3

## XXX - Exporti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1305	1412	
==>ons support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1305	1412	
==>ons support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1305	1412	
==>ons support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14529	14653	
==>pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14529	14653	
==>pinged the server (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13566	13682	
==>pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13566	13682	
==>pinged the server (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12833	12921	
==>ion::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12833	12921	
==>ion::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12833	12921	
==>ion::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2759	2909	
==>^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2759	2909	
==>^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17302	17400	
==>llowing benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17302	17400	
==>llowing benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9918	10038	
==>elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9918	10038	
==>elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9918	10038	
==>elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11025	11132	
==>($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STD <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4790	4919	
==>e anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unba <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4790	4919	
==>e anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unba <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3713	3816	
==>ls{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("35 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3713	3816	
==>ls{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("35 <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	674	782	
==>lf:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { . <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	674	782	
==>lf:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { . <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7544	7640	
==>t is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7544	7640	
==>t is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1368	1501	
==>ess ref( $n ) eq 'HASH';
        
    return _mangle_ident( $n->{bareword} )
        if exists $n->{bareword};
        
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	389	497	
==>JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Contex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	389	497	
==>JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Contex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	389	497	
==>JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Contex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	857	954	
==>obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	857	954	
==>obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	857	954	
==>obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	437	541	
==>< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	437	541	
==>< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	437	541	
==>< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ an <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1441	1695	
==>DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1165	1264	
==>:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1165	1264	
==>:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1165	1264	
==>:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	992	1105	
==>my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	992	1105	
==>my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	992	1105	
==>my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	761	893	
==>'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	761	893	
==>'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	761	893	
==>'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs, <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2117	2211	
==>ular expression may lead to execution of arbitrary code;
each alternate engine may introduce ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41056	41155	
==>extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41056	41155	
==>extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41056	41155	
==>extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22327	22416	
==>It also describes the same-number versions of Relation::Heading ("Heading")
and Relation:: <==
4	/Users/nnunley/pugs/util/grokprims.pl	2092	2194	
==>_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td>$op->{assoc}</t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10912	11010	
==>le = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10912	11010	
==>le = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10912	11010	
==>le = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2044	2188	
==>e_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2044	2188	
==>e_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	543	644	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	543	644	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedText <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18955	19077	
==>br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20313	20435	
==>br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3446	3548	
==>piler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3446	3548	
==>piler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6381	6488	
==>arnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6381	6488	
==>arnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6381	6488	
==>arnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38170	38262	
==>method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation::Example $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14526	14707	
==>args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14526	14707	
==>args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14526	14707	
==>args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3202	3312	
==>mp => "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9944	10088	
==>,
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9944	10088	
==>,
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9944	10088	
==>,
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	465	574	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	465	574	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	465	574	
==>ift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s) <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5655	5759	
==>un.o stale, triggering pugs rebuild
    --output,  -o     file to write output to (stdout by default)
.
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	13	130	
==>{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	13	130	
==>{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	13	130	
==>{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    loc <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6100	6208	
==>:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4049	4157	
==>_PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11330	11423	
==>tant that submethods are used
because they will not get inherited. This provides more predicta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11330	11423	
==>tant that submethods are used
because they will not get inherited. This provides more predicta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11330	11423	
==>tant that submethods are used
because they will not get inherited. This provides more predicta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20923	21181	
==>LAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20923	21181	
==>LAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20923	21181	
==>LAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sca <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16227	16321	
==>}
cond: env($.else) = { env($$) }

cond: generic_in($.if) = { generic_in($$) }
cond: generic_in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7180	7289	
==>ngth") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7180	7289	
==>ngth") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8620	8718	
==>> ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( rec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8620	8718	
==>> ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( rec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1139	1236	
==>//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1139	1236	
==>//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1139	1236	
==>//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-co <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2611	2704	
==>duce(" . (ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self->display_type($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4917	5031	
==>lf.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - si <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4917	5031	
==>lf.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - si <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6159	6262	
==>ntly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6159	6262	
==>ntly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9270	9394	
==>$oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusernam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9270	9394	
==>$oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusernam <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9035	9131	
==>e same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipheri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9035	9131	
==>e same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipheri <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1587	1697	
==>@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4781	4874	
==>rn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4781	4874	
==>rn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4781	4874	
==>rn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($metho <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1928	2026	
==>e> is not provided with any tags, it will intuit one by extracting the 
last component of the calli <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1928	2026	
==>e> is not provided with any tags, it will intuit one by extracting the 
last component of the calli <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2339	2435	
==>>compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Com <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2339	2435	
==>>compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Com <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6264	6402	
==>ray)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15452	15551	
==>[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15452	15551	
==>[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15452	15551	
==>[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{en <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9467	9601	
==>onstant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             \& <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	801	897	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	801	897	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	801	897	
==>S::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14597	14721	
==>compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14597	14721	
==>compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14597	14721	
==>compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obje <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7481	7580	
==>ray ; MatchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests -- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37174	37263	
==><Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1604	1744	
==>lf->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1604	1744	
==>lf->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1604	1744	
==>lf->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL:: <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	871	1009	
==>. '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # dir to store control MD
$Availabl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1119	1220	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1119	1220	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2931	3037	
==>arn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2931	3037	
==>arn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2931	3037	
==>arn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elem <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7049	7141	
==>e_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8620	8744	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_method'), 
    # method body
        method- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1821	1921	
==>umber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1821	1921	
==>umber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1821	1921	
==>umber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13826	13932	
==>e
    if ($tree->[-1]->family eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $tree->[- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17311	17416	
==>ass->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17311	17416	
==>ass->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17311	17416	
==>ass->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $lab <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3019	3193	
==>t) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3019	3193	
==>t) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1001	1097	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1001	1097	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	487	620	
==>e($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	487	620	
==>e($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2482	2584	
==>ins '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2482	2584	
==>ins '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19527	19619	
==>nameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19527	19619	
==>nameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	206	325	
==>ech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$base)
            returns Num { . <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1428	1584	
==>fined $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $event <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8529	8642	
==>ns
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8529	8642	
==>ns
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.in <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	609	717	
==>eprefix=> $Config{siteprefix},

        installscript  => $Config{installscript},
        sitescript     => $ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4836	4931	
==>n name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods c <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4836	4931	
==>n name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4035	4150	
==>cale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template modul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4035	4150	
==>cale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template modul <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3874	3958	
==>----------------------------------------------------------------
## removing children <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3874	3958	
==>----------------------------------------------------------------
## removing children <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	657	776	
==>p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6 <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	497	598	
==>e("$file.out", "$dir/$file.expected")) {
        print "$dir/$file.p6 has some difference\n";
    } el <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1457	1545	
==>ix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1457	1545	
==>ix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1457	1545	
==>ix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2887	3020	
==>s<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verb <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3141	3274	
==>s<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verb <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2887	3020	
==>s<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verb <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3141	3274	
==>s<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verb <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4952	5112	
==>eader} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{out}= \$_[1] }\n";
    }
    $prec = "P0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5521	5621	
==>piX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5521	5621	
==>piX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5521	5621	
==>piX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5445	5555	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE ST <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5445	5555	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE ST <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5445	5555	
==>hift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE ST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16196	16296	
==>od('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16196	16296	
==>od('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16196	16296	
==>od('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13486	13600	
==>other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16963	17077	
==>other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16325	16439	
==>other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46585	46838	
==>('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1922	2012	
==>a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2011	2101	
==>a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1419	1543	
==>\$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1419	1543	
==>\$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	974	1074	
==>06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	974	1074	
==>06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2079	2354	
==>expect ) {
                        # expects a term
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            captur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3688	3790	
==>_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3688	3790	
==>_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3688	3790	
==>_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9166	9344	
==>gth,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        csta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9166	9344	
==>gth,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        csta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9166	9344	
==>gth,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        csta <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	42	143	
==>rams;
use base qw/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17763	17881	
==>(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16801	16919	
==>(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17763	17881	
==>(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16801	16919	
==>(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1100	1217	
==>if (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1067	1184	
==>if (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2737	2824	
==>----------------------------------------------
## inserting children

method insert_chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2737	2824	
==>----------------------------------------------
## inserting children

method insert_chil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11176	11317	
==>));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11176	11317	
==>));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11176	11317	
==>));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Need <==
4	/Users/nnunley/pugs/util/package-osx.pl	371	482	
==>es);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/pb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5396	5496	
==>, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5396	5496	
==>, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5396	5496	
==>, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and at <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1540	1759	
==>>>, @_ ) 
                };
                if @_[0] eq '[' { 
                    return parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	990	1112	
==>al_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	990	1112	
==>al_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	990	1112	
==>al_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1395	1531	
==>} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1395	1531	
==>} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1, <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6059	6169	
==>$x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6059	6169	
==>$x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.ne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	670	788	
==>ame} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24466	24565	
==>rns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parame <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29018	29117	
==>rns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parame <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	902	991	
==>bose_output = $strap->dump_verbose();
  $strap->dump_verbose_fh($output_filehandle);


=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11007	11142	
==>thod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11007	11142	
==>thod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11007	11142	
==>thod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	85	173	
==>Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Array::pop ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	335	446	
==>sage headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	335	446	
==>sage headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @g <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2240	2337	
==>ystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
applic <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2240	2337	
==>ystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
applic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6419	6527	
==>class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6419	6527	
==>class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6419	6527	
==>class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10536	10625	
==>ramDefault=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5223	5375	
==>->new(meta => $pkg->meta, installation => $self)
        or error("Could not create installed package"), return;
 
    LINKING: { 
        ### XXX config <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13114	13298	
==>ndef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13108	13292	
==>ndef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $pr <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3996	4111	
==>tart, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3996	4111	
==>tart, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1741	1871	
==>( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refer <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2484	2614	
==>( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refer <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1741	1871	
==>( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refer <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2472	2602	
==>( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real refer <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	580	681	
==>ehavior.

module Class::Events-0.0.1;

role Class::Events::Publisher {
    use Set;
    has Set $.subs <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3537	3636	
==>THODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances whi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3537	3636	
==>THODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5734	5833	
==>THODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances whi <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2030	2180	
==>loor( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	188	298	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	188	298	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	188	298	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	358	472	
==>1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	358	472	
==>1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	358	472	
==>1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22727	22824	
==>s can contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9699	9814	
==>$0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9699	9814	
==>$0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9673	9770	
==>, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `diffe <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9673	9770	
==>, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `diffe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5368	5488	
==>Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:subclasses))      (list)
     (attribute ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	288	383	
==>xpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	288	383	
==>xpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	288	383	
==>xpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_j <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7553	7689	
==>_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successful <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7553	7689	
==>_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successful <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1937	2033	
==>key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Stan <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1937	2033	
==>key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Stan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3402	3508	
==>{} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3402	3508	
==>{} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3402	3508	
==>{} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shif <==
4	/Users/nnunley/pugs/t/packages/Test.pm	21	122	
==>Test;

sub ns  { "t::packages::Test" }

sub pkg { $?PACKAGE }

sub test_export is export { "party isla <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14468	14568	
==>ession>
    | <'delete'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <'typeof'> <UnaryEx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35239	35381	
==>$length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35239	35381	
==>$length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35239	35381	
==>$length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift of <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7941	8058	
==>=> [ $child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5073	5218	
==>d => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger t <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5073	5218	
==>d => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5343	5458	
==>}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5343	5458	
==>}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previo <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14885	15004	
==>b shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2343	2462	
==>b shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	173	283	
==>st {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1> <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	173	283	
==>st {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5564	5682	
==>ber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5564	5682	
==>ber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5564	5682	
==>ber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11528	11655	
==>turn "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11522	11649	
==>turn "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^' <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5346	5440	
==>r $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5404	5498	
==>r $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $T <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	430	555	
==>rce package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variabl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11718	11827	
==>bug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my metho <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11718	11827	
==>bug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my metho <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9262	9361	
==>uence>
}
rule SingleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\'\\]> #Sourc <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2437	2532	
==>moment but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TAILC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22580	22672	
==>s::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22580	22672	
==>s::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22580	22672	
==>s::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8863	8977	
==>'$_m_','$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $code = "Rul.new(:f(sub($str)\{
           my <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3198	3296	
==>hould strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You shou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3198	3296	
==>hould strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You shou <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	311	401	
==>ng with confidence.

It uses Language::Prolog::Yaswi, which requires swi-prolog be
installe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7187	7296	
==>die "not implemented" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	218	317	
==>new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	218	317	
==>new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	218	317	
==>new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2384	2523	
==>->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2384	2523	
==>->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2384	2523	
==>->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private meth <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18919	19009	
==>on> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18104	18216	
==>n => ide("fst"),
	param => $pair,
);

# this makes sure that ':t id(10)' is the same as ':t 10'
my $app_id = let( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2407	2509	
==>X - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @vars <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2407	2509	
==>X - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @vars <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2407	2509	
==>X - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @vars <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3968	4088	
==>ities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3968	4088	
==>ities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren" <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1725	1820	
==>nfix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1725	1820	
==>nfix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2034	2151	
==>@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9995	10100	
==>"Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9995	10100	
==>"Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9995	10100	
==>"Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1410	1516	
==>rray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1410	1516	
==>rray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1410	1516	
==>rray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3185	3349	
==>p -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the manpages
            L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12620	12742	
==>boxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12620	12742	
==>boxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12620	12742	
==>boxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1925	2020	
==>ft;
    Blondie::Backend::C::Builtins->find($node->digest || return);
}

sub cast_node_type {
	m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5523	5644	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns S <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10493	10614	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5523	5644	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10493	10614	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	321	459	
==>ut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	805	943	
==>ut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	223	357	
==>ut

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	494	626	
==>ugsbug?
        return '' unless +@:output;

        my $output = @:output.join( "\n" );
        @:output   = ();
        return $out <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1219	1317	
==>nt(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1219	1317	
==>nt(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1219	1317	
==>nt(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obj <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	312	613	
==>art
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment unt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10253	10383	
==>{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10253	10383	
==>{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10253	10383	
==>{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	34	146	
==>5;

# p6-ast to perl5 emitter

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1851	1949	
==>b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1851	1949	
==>b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1851	1949	
==>b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {m <==
4	/Users/nnunley/pugs/util/drift.pl	1303	1410	
==>ogram, 2, 0, @scary_header);

open IN, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) {
    /OPTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	148	242	
==>.pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	148	242	
==>.pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	148	242	
==>.pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7007	7125	
==>ata);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7007	7125	
==>ata);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $d <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1532	1625	
==>the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch th <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1372	1465	
==>the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4865	4974	
==>lurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4865	4974	
==>lurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4865	4974	
==>lurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7637	7740	
==>\\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3122	3243	
==>',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3122	3243	
==>',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	725	824	
==><h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p> <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	725	824	
==><h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	354	523	
==>ts $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params{'$:expect'}) {
                confess "Invalid or missing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6697	6799	
==>";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6697	6799	
==>";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6697	6799	
==>";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5650	5786	
==>e ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5650	5786	
==>e ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5650	5786	
==>e ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the l <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2522	2640	
==>_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ahead'};
      if(defined $op) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14916	15042	
==>);

  sub new {
    my ($class, $rx, $on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24020	24137	
==>then_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20441	20558	
==>then_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8179	8292	
==>t returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a "next-state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7903	8013	
==>t returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a "next-state <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31069	31162	
==>pectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35619	35712	
==>pectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24816	24915	
==>ost IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:fl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23580	23679	
==>ost IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:fl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24816	24915	
==>ost IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:fl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23580	23679	
==>ost IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:fl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9905	10076	
==>:Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              num <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	473	636	
==>:Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            num <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	473	636	
==>:Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5659	5772	
==>ler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3230	3336	
==>1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub aln <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2756	2855	
==>::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2756	2855	
==>::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4280	4379	
==>::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	124	246	
==>{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	124	246	
==>{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	124	246	
==>{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2082	2197	
==>> time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        re <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2082	2197	
==>> time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1261	1369	
==>le->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1261	1369	
==>le->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1689	1851	
==>ed" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1689	1851	
==>ed" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1689	1851	
==>ed" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $s <==
4	/Users/nnunley/pugs/util/package-osx.pl	8743	8858	
==>rs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2692	2801	
==>:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2692	2801	
==>:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2692	2801	
==>:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2190	2314	
==>\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2190	2314	
==>\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2190	2314	
==>\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1325	1431	
==>ie::Env;
	use base qw/Blondie::Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::ADTs - Reused ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	43	140	
==>our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	43	140	
==>our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	43	140	
==>our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoa <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5065	5156	
==>--pugs ./pugs.exe [options]

Creates a Prelude.hs fallback or a Prelude.pm.yml file (written <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16654	16756	
==>:List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESC <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16654	16756	
==>:List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESC <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16654	16756	
==>:List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESC <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4315	4409	
==>t2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoV <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12053	12164	
==>(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4696	4807	
==>(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	759	854	
==>t_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	759	854	
==>t_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_fil <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	326	437	
==>ft;
    my $prog = shift;
    $self->reduce($prog);
}

sub can_reduce { 1 }

sub generic_reduce {
	my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2772	2864	
==>e semantics for perl6-style variable binding,
as well as subroutine call argument passing and <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2772	2864	
==>e semantics for perl6-style variable binding,
as well as subroutine call argument passing and <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3119	3211	
==>e semantics for perl6-style variable binding,
as well as subroutine call argument passing and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6976	7150	
==>aram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6976	7150	
==>aram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6976	7150	
==>aram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbox <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11517	11615	
==>ure with arity of 1, which returns the "key" by which to sort. If
the closure returns a Num, C<E<lt <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4853	4953	
==>ter_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

rule escape_sequence { <simple_e <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	552	647	
==>or Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	552	647	
==>or Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1108	1203	
==>or Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	295	400	
==>ock { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06 <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	295	400	
==>ock { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2008	2104	
==>hing but questions about what this object represents.

It represents a node in the Perldoc DOM tr <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2008	2104	
==>hing but questions about what this object represents.

It represents a node in the Perldoc DOM tr <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12803	12898	
==>E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12803	12898	
==>E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3599	3716	
==>ROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3599	3716	
==>ROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3599	3716	
==>ROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6419	6511	
==>>name } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '... $iBar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8072	8309	
==>>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8072	8309	
==>>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8072	8309	
==>>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $co <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1317	1473	
==>lizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count = 0;
        has Array of Str @strings;

        method subsume ( Getopt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1771	1879	
==>ingle bit (allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc.)
    St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13611	13709	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13611	13709	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13611	13709	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1730	1838	
==>elf:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1730	1838	
==>elf:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($ <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	533	639	
==>d->write;
    }
    else {
	$self->check_nmake if $args{check_nmake};
        $self->makemaker_args( PL_FIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1524	1654	
==>turns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1524	1654	
==>turns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1524	1654	
==>turns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15371	15457	
==>],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5951	6067	
==>!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5951	6067	
==>!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5951	6067	
==>!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	190	293	
==>alues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	190	293	
==>alues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1228	1317	
==>_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1228	1317	
==>_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2160	2305	
==>ft) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2160	2305	
==>ft) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	1000	1124	
==>y $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: f <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	1000	1124	
==>y $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1097	1197	
==>ot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last see <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1097	1197	
==>ot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last see <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2298	2393	
==>}
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<Addit <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2298	2393	
==>}
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<Addit <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3823	3937	
==>m list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $index, $value) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37154	37251	
==>rates to a
C<product>.  In any situation where the heading of one source relation is a
full subset <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41703	41800	
==>rates to a
C<product>.  In any situation where the heading of one source relation is a
full subset <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41326	41423	
==>rates to a
C<product>.  In any situation where the heading of one source relation is a
full subset <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12710	12833	
==>'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12710	12833	
==>'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12710	12833	
==>'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	145	243	
==>person ) {
		"Hallo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3563	3759	
==>Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of the top level App into

    ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1256	1445	
==>::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1256	1445	
==>::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1256	1445	
==>::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21744	21842	
==>tem C<server>

The server the line was sent from. This is I<not> necessarily the server you
connect <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20625	20723	
==>tem C<server>

The server the line was sent from. This is I<not> necessarily the server you
connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21744	21842	
==>tem C<server>

The server the line was sent from. This is I<not> necessarily the server you
connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20625	20723	
==>tem C<server>

The server the line was sent from. This is I<not> necessarily the server you
connect <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	953	1086	
==>EGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter', <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1	106	
==>odule lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_ <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1	106	
==>odule lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3421	3521	
==>PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3421	3521	
==>PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::P <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7904	8030	
==>5),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "ra <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7904	8030	
==>5),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "ra <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2072	2177	
==>w( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 4 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2072	2177	
==>w( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 4 <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3338	3442	
==>i] } 0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2463	2556	
==>e_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2463	2556	
==>e_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2463	2556	
==>e_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7688	7877	
==>> undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7688	7877	
==>> undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7688	7877	
==>> undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            m <==
4	/Users/nnunley/pugs/util/version_h.pl	2214	2324	
==>lose OUT;

  if ($revision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base/dist/bui <==
4	/Users/nnunley/pugs/util/importgraph.pl	765	884	
==>h>) {
    if (/^module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1266	1359	
==>timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1266	1359	
==>timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1266	1359	
==>timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_ar <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	332	437	
==>rsers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to v <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	332	437	
==>rsers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to v <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1184	1284	
==>s *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo w <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1184	1284	
==>s *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo w <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	753	891	
==>object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result {
    h <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	753	891	
==>object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result {
    h <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10037	10132	
==>gs, new test functions will be defined to facilitate the
testing of those features. For more inf <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10095	10190	
==>gs, new test functions will be defined to facilitate the
testing of those features. For more inf <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	0	108	
==>package re::override::PCRE;
use 5.006;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSIO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	269	375	
==>ry not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	269	375	
==>ry not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	269	375	
==>ry not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	147	247	
==>dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	147	247	
==>dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6064	6159	
==>he time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Blo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6064	6159	
==>he time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Blo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30227	30322	
==>wrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34779	34874	
==>wrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33952	34047	
==>wrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9374	9469	
==>"bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3078	3274	
==>!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some reason
        \:?     # $:x
        [
            [ \:\: ]?
            [ _ | < <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	479	597	
==>truct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check va <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	963	1081	
==>truct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2555	2663	
==>extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5950	6067	
==>pture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5763	5874	
==>pture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	125	218	
==>in::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	125	218	
==>in::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	125	218	
==>in::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1607	1710	
==>=> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1607	1710	
==>=> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1607	1710	
==>=> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	315	571	
==>by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	315	571	
==>by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # N <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7422	7578	
==>_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'tab <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7422	7578	
==>_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'tab <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8818	8935	
==>et(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8818	8935	
==>et(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9250	9392	
==>er::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $descr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1372	1508	
==>er::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1372	1508	
==>er::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descr <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	599	688	
==>ry is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3509	3622	
==>"bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"auto <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3509	3622	
==>"bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"auto <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3509	3622	
==>"bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"auto <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25155	25248	
==>ion::Example can have no
more than a single tuple.  A zero-attribute Relation::Example with ze <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8325	8445	
==>lti Array::min(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::min $cmp, *@self;
}
# derived from PIL2JS Array. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11576	11678	
==>rn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11576	11678	
==>rn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11576	11678	
==>rn p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10795	10947	
==>(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESC <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10795	10947	
==>(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESC <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11444	11545	
==>a) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objec <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11444	11545	
==>a) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objec <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3701	3805	
==>lass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	657	777	
==>$is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	656	776	
==>$is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	657	777	
==>$is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	656	776	
==>$is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22508	22604	
==>nection to the server by sending a C</QUIT> command. Note that the
socket usually stays connected <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21362	21458	
==>nection to the server by sending a C</QUIT> command. Note that the
socket usually stays connected <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22508	22604	
==>nection to the server by sending a C</QUIT> command. Note that the
socket usually stays connected <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21362	21458	
==>nection to the server by sending a C</QUIT> command. Note that the
socket usually stays connected <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4067	4198	
==>_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4932	5032	
==>e = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4932	5032	
==>e = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4932	5032	
==>e = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1769	1895	
==>e) ) {
        my $name = $self->name
            or die "all_from called with no args without setting name() first";
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11958	12069	
==>role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11958	12069	
==>role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11958	12069	
==>role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => { <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2830	2944	
==>: $out: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compres <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11232	11336	
==>thod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11232	11336	
==>thod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11232	11336	
==>thod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2383	2545	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2576	2738	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'g <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	898	1003	
==>g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub ne <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	898	1003	
==>g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1171	1292	
==>D = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1376	1497	
==>D = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1437	1558	
==>D = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11014	11113	
==>}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #pr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39979	40220	
==>$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17769	18004	
==>$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19527	19760	
==>$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41038	41269	
==>$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e-> <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1871	2012	
==>:year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	345	466	
==>depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	345	466	
==>depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ------------------------- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3793	3888	
==>ore_global "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpression, $ta <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2642	2760	
==>= ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $coo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2642	2760	
==>= ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $coo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19604	19703	
==>on

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by including <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19604	19703	
==>on

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by including <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2964	3083	
==>..';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3813	3932	
==>..';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3782	3891	
==>chObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6851	6957	
==>mar} );
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	504	598	
==>ed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	504	598	
==>ed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2298	2424	
==>"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2298	2424	
==>"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2298	2424	
==>"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1577	1687	
==>ot find message ($message)";
    } => 'Dispatchable';
}

{
    package Dispatchable;
    sub isa { our $AUTOLOA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2097	2191	
==>ype=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2097	2191	
==>ype=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2097	2191	
==>ype=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defin <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1856	2021	
==>gies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1856	2021	
==>gies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m. <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1945	2059	
==>RR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Compres <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2967	3075	
==>bal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2967	3075	
==>bal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2967	3075	
==>bal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$stri <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5686	5802	
==>r.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2316	2415	
==>Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2316	2415	
==>Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2316	2415	
==>Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	312	427	
==>$plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2935	3028	
==>y $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2935	3028	
==>y $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2935	3028	
==>y $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Cont <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	946	1083	
==>$span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    el <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4185	4322	
==>$span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    el <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	946	1083	
==>$span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    el <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4185	4322	
==>$span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    el <==
4	/Users/nnunley/pugs/util/grokprims.pl	755	881	
==>oc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF-8" ?><html><body><table border="1">';



foreach my $o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13136	13245	
==>product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16613	16722	
==>product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15975	16084	
==>product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11992	12097	
==>ecord the time the last traffic from the server was seen, so we can
      # autoping the server if needed. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11992	12097	
==>ecord the time the last traffic from the server was seen, so we can
      # autoping the server if needed. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11169	11272	
==>ecord the time the last traffic from the server was seen, so we can
    # autoping the server if needed. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11169	11272	
==>ecord the time the last traffic from the server was seen, so we can
    # autoping the server if needed. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13070	13169	
==>tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a gene <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18165	18264	
==>tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a gene <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13070	13169	
==>tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a gene <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18165	18264	
==>tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a gene <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23585	23687	
==>s.  

Here is example code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2687	2786	
==>(retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2687	2786	
==>(retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2687	2786	
==>(retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	878	984	
==>linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	878	984	
==>linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5384	5481	
==>048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5384	5481	
==>048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2063	2234	
==>hod get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () retu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2063	2234	
==>hod get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1171	1264	
==>ntent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_reques <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1171	1264	
==>ntent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_reques <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6809	6905	
==>.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6809	6905	
==>.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	496	592	
==>he package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	496	592	
==>he package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	797	900	
==>nction gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass the string index <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1166	1265	
==>nction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	765	864	
==>nction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1166	1265	
==>nction gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3035	3185	
==>ine =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3035	3185	
==>ine =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3035	3185	
==>ine =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7871	7961	
==>3]) };
multi unify => ('type', 'type::variable::instantiated') => sub { unify($_[1]{instanc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8625	8734	
==>sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Da <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8621	8730	
==>sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Da <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20414	20509	
==>d including the
'_' to '-' translation.  There are some application where this is not
appropriat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20414	20509	
==>d including the
'_' to '-' translation.  There are some application where this is not
appropriat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6106	6202	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `ca <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8174	8270	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6106	6202	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8174	8270	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `ca <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1412	1659	
==>ss Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages use <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1412	1659	
==>ss Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages use <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	316	425	
==>returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	316	425	
==>returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	746	867	
==>ter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	948	1040	
==>ebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects tha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	948	1040	
==>ebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects tha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	948	1040	
==>ebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects tha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3173	3300	
==>>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3357	3484	
==>>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positiona <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17445	17533	
==>www-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17445	17533	
==>www-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	741	840	
==>ds: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	741	840	
==>ds: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	741	840	
==>ds: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3024	3116	
==>ON_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1755	1877	
==>ance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1755	1877	
==>ance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1755	1877	
==>ance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1725	1827	
==>ETHODS

=head2 $inst = JIB::Installation->new;

=cut

### XXX do some smart caching here -- but can't j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10686	10800	
==>$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[0] }) {
        last unless $tree->[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2751	2855	
==>y to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2751	2855	
==>y to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2751	2855	
==>y to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2129	2235	
==>ntation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3433	3533	
==>head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  So <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3433	3533	
==>head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  So <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3513	3613	
==>head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  So <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18818	18945	
==>(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18818	18945	
==>(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18818	18945	
==>(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    re <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5298	5409	
==>BUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5547	5649	
==>}

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now), so <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5547	5649	
==>}

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now), so <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3708	3808	
==>od infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1808	1908	
==>od infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	798	897	
==>!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	798	897	
==>!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	798	897	
==>!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1752	1860	
==>[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_hand <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1752	1860	
==>[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_hand <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1752	1860	
==>[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_hand <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13918	14015	
==>t|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	980	1092	
==>types
sub to_num { (shift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str lik <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2734	2823	
==>elf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_single <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2734	2823	
==>elf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_single <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2734	2823	
==>elf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_single <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6103	6233	
==>alue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6103	6233	
==>alue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6103	6233	
==>alue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2385	2495	
==>}\end{block}' if $inblock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @fil <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3488	3589	
==>VALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11113	11210	
==>could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be col <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11113	11210	
==>could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be col <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11113	11210	
==>could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be col <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	720	849	
==>f $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9446	9564	
==>s, $cur);
   }
   $res;
 }


=item reverse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for % <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3232	3346	
==>ram<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3232	3346	
==>ram<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5465	5560	
==>e->version($version)     if defined $version;
    $new_role->authority($authority) if defined $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5465	5560	
==>e->version($version)     if defined $version;
    $new_role->authority($authority) if defined $a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5465	5560	
==>e->version($version)     if defined $version;
    $new_role->authority($authority) if defined $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	726	826	
==>1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	726	826	
==>1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	726	826	
==>1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12783	12940	
==>{
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%han <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12783	12940	
==>{
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%han <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14225	14349	
==>he user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        My <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14225	14349	
==>he user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        My <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	984	1145	
==>elf->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4281	4372	
==>mfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4281	4372	
==>mfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4281	4372	
==>mfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    ) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	397	493	
==>n &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	397	493	
==>n &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg) <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	752	841	
==>://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 20 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	752	841	
==>://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 20 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3794	3888	
==>defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3794	3888	
==>defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3794	3888	
==>defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4854	5042	
==>bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4703	4886	
==>bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{ca <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10613	10795	
==>ed: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print("        $test{todo}/$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12987	13120	
==>$off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12987	13120	
==>$off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12987	13120	
==>$off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1872	2005	
==>$off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	948	1047	
==>vlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	948	1047	
==>vlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	243	331	
==>ime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;

use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	243	330	
==>ime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
use <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3424	3574	
==>ce {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	24	137	
==>l::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	24	137	
==>l::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	24	137	
==>l::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4016	4147	
==>e_contents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1293	1387	
==>gs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1293	1387	
==>gs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1293	1387	
==>gs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc}, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	133	251	
==>{ ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	133	251	
==>{ ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	133	251	
==>{ ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	53	152	
==>trict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format', ' <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1315	1449	
==>g); 
    add_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1165	1277	
==>f($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1165	1277	
==>f($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1165	1277	
==>f($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13585	13698	
==>source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17062	17175	
==>source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16424	16537	
==>source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stan <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17306	17410	
==>od (WALKMETH (&dispatcher (symbol new BUILD))))
     (while ($method is_not_nil) 
        ($method do ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	326	433	
==>having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	326	433	
==>having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	326	433	
==>having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19837	19983	
==>->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19837	19983	
==>->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19837	19983	
==>->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11752	11853	
==>given items if they are already in the set, or inserts the items if
they're not in the set.

Returns t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8899	9000	
==>given items if they are already in the set, or inserts the items if
they're not in the set.

Returns t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11752	11853	
==>given items if they are already in the set, or inserts the items if
they're not in the set.

Returns t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8899	9000	
==>given items if they are already in the set, or inserts the items if
they're not in the set.

Returns t <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4721	4830	
==>ml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4580	4689	
==>ml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	253	341	
==>s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	253	341	
==>s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7885	7986	
==>om>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7885	7986	
==>om>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channel <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4716	4813	
==>es and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a f <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4716	4813	
==>es and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14370	14495	
==>ername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seco <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14370	14495	
==>ername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seco <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1089	1190	
==>el::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1089	1190	
==>el::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10974	11111	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10974	11111	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10974	11111	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if ( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6353	6489	
==>e( package => $unlink_this )
            if $unlink_this;

        ### link the files
        return unless $self->link_files( package => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8791	8922	
==>.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $e <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	955	1074	
==>.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	955	1074	
==>.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1011	1118	
==>=> sub{ $match = $rpc_token->match($str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4006	4102	
==>w function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4006	4102	
==>w function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4006	4102	
==>w function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18368	18462	
==>)
 &split<> := &split<Str>.assuming:delimiter(' ');

String delimiters must not be treated as r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7886	8005	
==>typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7886	8005	
==>typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7886	8005	
==>typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	21	118	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	21	118	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	21	118	
==>y throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5651	5748	
==>pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5651	5748	
==>pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5651	5748	
==>pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.j <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14214	14309	
==>nts whose keys evaluate
C<$key ~~ any(@keytests)> as true are iterated.

What is returned at eac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14833	14964	
==>=~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14827	14958	
==>=~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            war <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	261	366	
==>y qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	261	366	
==>y qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6670	6776	
==>);
}


# Generating error.html
my $error_file = catfile($output_dir,"error.html");
open( my $error, '>', $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5399	5494	
==>e HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5399	5494	
==>e HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5399	5494	
==>e HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1163	1357	
==>tives   = $Meta . '/alternatives';          # Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for meta fil <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1266	1376	
==>method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1266	1376	
==>method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3648	3738	
==>antified(X), p6_concatenation_more(conc(W,X), Z), !.
p6_concatenation_more(W, W) --> {true} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13670	13780	
==>e two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13670	13780	
==>e two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3590	3689	
==>Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spe <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3590	3689	
==>Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spe <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2855	3144	
==>{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2855	3144	
==>{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<st <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1285	1376	
==>o, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All righ <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1285	1376	
==>o, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All righ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5129	5233	
==>ual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# wha <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4256	4360	
==>ual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# wha <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5129	5233	
==>ual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# wha <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4256	4360	
==>ual($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# wha <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22516	22682	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42305	42470	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1783	1909	
==>rt {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $f <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1783	1909	
==>rt {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $f <==
4	/Users/nnunley/pugs/util/package-osx.pl	9798	9912	
==>irs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1091	1197	
==>ly implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1091	1197	
==>ly implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1091	1197	
==>ly implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2874	2989	
==>y "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2874	2989	
==>y "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2916	3019	
==>tly run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2916	3019	
==>tly run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22319	22435	
==>ogical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18740	18856	
==>ogical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9544	9640	
==>ule into blocks. This code divides a module based on
# lines that use/no a Module::Compile subcla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9544	9640	
==>ule into blocks. This code divides a module based on
# lines that use/no a Module::Compile subcla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20671	20840	
==>STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20671	20840	
==>STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20671	20840	
==>STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_is <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	844	974	
==>m->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy},
	       invo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24561	24714	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25824	25977	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24840	24993	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26103	26256	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5093	5192	
==>g and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode(" <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5093	5192	
==>g and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode(" <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1793	1890	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1793	1890	
==>}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4095	4346	
==>st ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1764	1872	
==>t, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1764	1872	
==>t, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1844	1952	
==>t, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $li <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5948	6087	
==>55),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5948	6087	
==>55),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(9 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7517	7639	
==>pan0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7517	7639	
==>pan0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4887	5081	
==>osure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6649	6843	
==>osure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 ( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4638	4759	
==>multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4638	4759	
==>multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	694	869	
==>stack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was sham <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4062	4178	
==>elf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4062	4178	
==>elf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4062	4178	
==>elf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7605	7749	
==>ied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's st <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	906	1050	
==>ied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's st <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2824	2917	
==>her) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2824	2917	
==>her) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5358	5517	
==>> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5358	5517	
==>> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5358	5517	
==>> defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$. <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12738	12841	
==>%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) = { generic_in($$) }

# p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	462	586	
==>ointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'bare_block' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	866	981	
==>sh = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	866	981	
==>sh = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	866	981	
==>sh = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.le <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3452	3581	
==>n_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { default => '0.0', s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39920	40016	
==>/www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You
s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19179	19275	
==>ers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39920	40016	
==>/www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You
s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19179	19275	
==>ers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro o <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	173	323	
==>ft;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13143	13247	
==>)";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13143	13247	
==>)";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13143	13247	
==>)";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2281	2459	
==>d_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2281	2459	
==>d_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2281	2459	
==>d_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23787	23887	
==>sage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic rep <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22560	22660	
==>sage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic rep <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23787	23887	
==>sage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic rep <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22560	22660	
==>sage is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic rep <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	308	415	
==>eans 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash contain <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	294	395	
==>eans 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash contain <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3435	3532	
==>lear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This progr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3435	3532	
==>lear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This progr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4279	4514	
==>list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4279	4514	
==>list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1336	1470	
==>1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_cha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1282	1410	
==>1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_cha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	259	442	
==>thods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7733	7838	
==>n (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7733	7838	
==>n (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7733	7838	
==>n (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	752	913	
==>ar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	752	913	
==>ar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EO <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5012	5126	
==>py ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5012	5126	
==>py ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1892	2010	
==>bmethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1892	2010	
==>bmethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1892	2010	
==>bmethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_metho <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	92	190	
==>etails = 'ParserDetails.ini';
# use 
# my constant $:parser_details = 'ParserDetails.ini';
# as soo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3318	3435	
==>->add_package(package => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_package(package => $pkg)

=c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	596	695	
==>self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	596	695	
==>self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	596	695	
==>self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12009	12111	
==>) {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12009	12111	
==>) {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12009	12111	
==>) {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	68	163	
==>ss::Straps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And some stuff stole <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3774	3940	
==>mpile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2787	2903	
==>rt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	461	552	
==>PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	461	552	
==>PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	461	552	
==>PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1349	1496	
==>).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1349	1496	
==>).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28030	28124	
==>ttrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32582	32676	
==>ttrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12815	12916	
==>y - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12815	12916	
==>y - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12815	12916	
==>y - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULT <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1145	1240	
==>source package

=head2 $meta = $pkg->meta

The JIB::Meta object associated with this package

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11654	11761	
==>= $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $statu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2088	2191	
==>= $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $statu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2088	2191	
==>= $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $statu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5265	5356	
==>eturn new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:undef),@_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19736	19832	
==>variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18717	18813	
==>variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19736	19832	
==>variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18717	18813	
==>variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1724	1864	
==>n node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use rea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2467	2607	
==>n node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use rea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1724	1864	
==>n node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use rea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2455	2595	
==>n node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5810	5909	
==>:possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5810	5909	
==>:possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5810	5909	
==>:possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12522	12619	
==>_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: send (CREATE ($canidate %pa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1106	1251	
==>dent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " x ($indent-1)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2091	2196	
==>, the mountains green,
>   No stain yet on the Moon was seen,
>   No words were laid on stream or stone,
> <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3153	3251	
==>/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://h <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3153	3251	
==>/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10460	10613	
==>@params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10460	10613	
==>@params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10460	10613	
==>@params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	978	1084	
==>= 'util/config-template.yml';
    $filename           ||= $ENV{PUGS_BUILD_CONFIG} || $config_default;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3415	3515	
==>::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3415	3515	
==>::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5630	5724	
==>ol::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5630	5724	
==>ol::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1871	1963	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1871	1963	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1871	1963	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6143	6256	
==>ete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6143	6256	
==>ete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$ch <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13358	13454	
==>ted )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be pro <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13358	13454	
==>ted )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11260	11393	
==>ate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11260	11393	
==>ate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11260	11393	
==>ate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	747	873	
==>bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	747	873	
==>bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	50	160	
==>, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	50	160	
==>, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	50	160	
==>, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# n <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	50	160	
==>, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4321	4463	
==>rn;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15634	15731	
==>" . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15634	15731	
==>" . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15634	15731	
==>" . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13291	13419	
==>n = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13291	13419	
==>n = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13291	13419	
==>n = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ch <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2176	2304	
==>n = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20686	20788	
==>age Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	676	776	
==>er = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	676	776	
==>er = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	676	776	
==>er = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6257	6355	
==>er is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6257	6355	
==>er is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23367	23458	
==>tE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23367	23458	
==>tE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator r <==
4	/Users/nnunley/pugs/util/package-osx.pl	2312	2401	
==>cal/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /Users/dro <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5024	5171	
==>ntry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a su <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5488	5635	
==>ntry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5656	5795	
==>e to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6120	6259	
==>e to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	732	873	
==>e of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	732	873	
==>e of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	62	198	
==>ds (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.ch <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	62	198	
==>ds (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.ch <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6556	6642	
==>emental(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	428	512	
==>::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	428	512	
==>::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	428	512	
==>::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9997	10156	
==>ulti method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9997	10156	
==>ulti method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4090	4214	
==>d $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $sel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4230	4354	
==>d $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3246	3421	
==>{
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3246	3421	
==>{
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3246	3421	
==>{
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17725	17821	
==>ry->new("str")),
);

# the polymorphic snd function takes any pair and returns it's second thingy <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4157	4324	
==>step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $ste <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4157	4324	
==>step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $ste <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8441	8583	
==>(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = ope <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8441	8583	
==>(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = ope <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1103	1240	
==>iler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            w <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1103	1240	
==>iler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5801	5921	
==>hift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5801	5921	
==>hift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3707	3994	
==>ate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3750	4037	
==>ate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3707	3994	
==>ate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3750	4037	
==>ate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1634	1749	
==>> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <nat <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1634	1749	
==>> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <nat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13457	13552	
==>ded.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13457	13552	
==>ded.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1292	1406	
==>ar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1281	1387	
==>ar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11188	11282	
==>l>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=it <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11188	11282	
==>l>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11899	12016	
==>init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11899	12016	
==>init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11899	12016	
==>init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31892	31983	
==>ssertions will fail to compile and throw an
error (specifically, B<RPe_NOTREC>, "Sequence (? <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4434	4523	
==>ue, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descriptio <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4434	4523	
==>ue, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descriptio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6631	6720	
==>ue, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descriptio <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16873	16986	
==>n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n, & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12143	12244	
==>{
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12143	12244	
==>{
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12143	12244	
==>{
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12293	12431	
==>c->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12293	12431	
==>c->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12293	12431	
==>c->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type- <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2808	2922	
==>6, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2965	3079	
==>6, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2808	2922	
==>6, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2965	3079	
==>6, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8101	8203	
==>@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7231	7333	
==>@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8101	8203	
==>@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7231	7333	
==>@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Arr <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7037	7136	
==>xt_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $con <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7095	7194	
==>xt_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $con <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15082	15171	
==>lications invoke and which
multiple interchangeable "Engine" back-ends (usually provided b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15082	15171	
==>lications invoke and which
multiple interchangeable "Engine" back-ends (usually provided b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2745	2868	
==>n => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2992	3115	
==>n => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5067	5184	
==>n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5067	5184	
==>n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $matc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3346	3464	
==>h() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!childr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3346	3464	
==>h() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!childr <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2339	2434	
==>($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2339	2434	
==>($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	798	899	
==>($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	798	899	
==>($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2668	2784	
==>ss {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2668	2784	
==>ss {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2668	2784	
==>ss {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_di <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5740	5849	
==>ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handles) = @_;
  no strict 'refs';
  my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3361	3482	
==>eturn values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3372	3493	
==>eturn values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9261	9368	
==>ys anchored at ^

### because it was specialized for subrules

### - needs to be generalized, and the anchor <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8957	9062	
==>ys anchored at ^
### because it was specialized for subrules
### - needs to be generalized, and the anchor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6528	6642	
==>i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6528	6642	
==>i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6528	6642	
==>i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1 <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2155	2270	
==>/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2155	2270	
==>/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13313	13411	
==>set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the el <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13313	13411	
==>set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5431	5596	
==>rt, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5431	5596	
==>rt, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5431	5596	
==>rt, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17504	17663	
==>~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $len > 0;
            $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17080	17246	
==>ubclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17080	17246	
==>ubclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17080	17246	
==>ubclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12462	12562	
==>rameter is associated with a new type variable)
# this new env is passed down to the body, but is als <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4100	4199	
==>g. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4284	4383	
==>g. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7213	7310	
==>:Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7213	7310	
==>:Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	710	863	
==>mpile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3781	3934	
==>mpile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	710	863	
==>mpile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3781	3934	
==>mpile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2450	2701	
==>ap {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2450	2701	
==>ap {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2450	2701	
==>ap {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( <==
4	/Users/nnunley/pugs/util/addauthors.pl	1414	1536	
==>_;
}

sub readauthors {
  my $fh = IO::File->new("AUTHORS", "<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14212	14412	
==>\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14212	14412	
==>\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	30	119	
==>uire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	30	119	
==>uire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25313	25411	
==>is identical; they do not
interact with the outside environment at all.

A Message object has two m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25313	25411	
==>is identical; they do not
interact with the outside environment at all.

A Message object has two m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13284	13414	
==>([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38244	38339	
==>m C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42793	42888	
==>m C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42443	42538	
==>m C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3039	3157	
==>e accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "os <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3039	3157	
==>e accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "os <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15712	15807	
==>ild Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's child <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15712	15807	
==>ild Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's child <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	706	804	
==>head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	706	804	
==>head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1448	1543	
==>xe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file man <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1288	1383	
==>xe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file man <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15132	15255	
==>ibute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15132	15255	
==>ibute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15132	15255	
==>ibute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_ <==
4	/Users/nnunley/pugs/util/version_h.pl	654	761	
==>t rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- do nothing!
}
elsif (-r $sv <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33172	33266	
==>ssage, the corresponding Template modules will be searched in the order
they appear in this arr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33172	33266	
==>ssage, the corresponding Template modules will be searched in the order
they appear in this arr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10652	10762	
==>ifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1667	1771	
==>sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1667	1771	
==>sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1667	1771	
==>sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      ret <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2180	2285	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $! <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2575	2680	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $! <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2238	2343	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $! <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2633	2738	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $! <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1652	1754	
==>ar => $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $S->nchar(@names)), <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5279	5371	
==>hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5279	5371	
==>hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7476	7568	
==>hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B< <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	87	197	
==>import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die 'Need a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	430	521	
==>$CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	430	521	
==>$CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	430	521	
==>$CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.as <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6229	6334	
==>g.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => set( %f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5610	5705	
==>\$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5610	5705	
==>\$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5610	5705	
==>\$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=j <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18643	18745	
==>NoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3674	3773	
==>"-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3674	3773	
==>"-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3674	3773	
==>"-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4152	4304	
==>ader
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-ag <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4152	4304	
==>ader
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-ag <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4110	4241	
==>t look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4110	4241	
==>t look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	595	707	
==>ons are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $type = $self->SUPER::type;

		# th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2341	2422	
==>:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2341	2422	
==>:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2341	2422	
==>:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $sel <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10824	10942	
==>:pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type:: <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2535	2634	
==>o provide match results.  This
module is an experiment, to see if it is possible to use the regexp
s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23043	23131	
==>head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perfo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23043	23131	
==>head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perfo <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18026	18126	
==>a global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struc <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2385	2485	
==>a global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struc <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1737	1831	
==>$p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1737	1831	
==>$p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9373	9488	
==>s defined $test->{pos};
 
      my ($start, $end);
      ($start, $end) = $test->{pos} =~ /line (\d+)(?:.*line (\d+) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5899	6001	
==>f = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5899	6001	
==>f = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5899	6001	
==>f = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptio <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7341	7444	
==>:Class
    $_add_method->do(list->new($::Class, symbol->new('add_method'), $_add_method));
}

=pod

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7940	8072	
==>(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7940	8072	
==>(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7940	8072	
==>(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22351	22447	
==>s to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." warnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23413	23513	
==>fined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23413	23513	
==>fined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23413	23513	
==>fined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repla <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5703	5800	
==>turns Relation::Example {

    die "Some keys of $mapping! do not match this relation's attributes <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8491	8595	
==>sert_ghc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3077	3167	
==>d $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3077	3167	
==>d $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3077	3167	
==>d $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2811	2914	
==>:Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2811	2914	
==>:Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2811	2914	
==>:Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2379	2477	
==>end::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk of but h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39594	39682	
==>omments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24317	24405	
==>omments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39594	39682	
==>omments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24317	24405	
==>omments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	523	641	
==>eturn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	523	641	
==>eturn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	523	641	
==>eturn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spr <==
4	/Users/nnunley/pugs/util/testgraph.pl	696	808	
==>ss($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12557	12689	
==>if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12557	12689	
==>if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_g <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	188	284	
==>p6 implementations).
# To contribute, just scroll down until pod lines start appearing, and
# con <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14160	14278	
==>->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { loca <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1534	1630	
==>ar keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1534	1630	
==>ar keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1534	1630	
==>ar keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7467	7595	
==>->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7467	7595	
==>->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7467	7595	
==>->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1139	1240	
==>xport the funtions
	Pugs::Utils::Dump->export_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11287	11437	
==>\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3383	3492	
==>on (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3383	3492	
==>on (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3383	3492	
==>on (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13041	13145	
==>g.

  Using $/ might be non-trivial, as only some forms of redefinition
  make its magic not stick.

  Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10559	10660	
==>O'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10559	10660	
==>O'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10559	10660	
==>O'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9086	9249	
==>ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9086	9249	
==>ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9086	9249	
==>ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10615	10714	
==>ree;
it will then reset itself, and will start from the beginning the next
time it is called.

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12276	12422	
==>\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12555	12701	
==>\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_n <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1047	1163	
==>azy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1047	1163	
==>azy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2368	2479	
==>o],
						struct_equiv => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "type_convert_${from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14076	14184	
==>%{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14076	14184	
==>%{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14076	14184	
==>%{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2586	2725	
==>elf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2586	2725	
==>elf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2586	2725	
==>elf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12557	12654	
==>error_is() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quanti <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	390	490	
==>e
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference oper <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	390	490	
==>e
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference oper <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4968	5067	
==>he initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4968	5067	
==>he initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14022	14194	
==>';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14022	14194	
==>';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14022	14194	
==>';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21001	21093	
==>d API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21001	21093	
==>d API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11263	11394	
==>f;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{fla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8221	8326	
==>$::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8221	8326	
==>$::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8221	8326	
==>$::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4240	4356	
==>exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9287	9498	
==>ram[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9287	9498	
==>ram[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9287	9498	
==>ram[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Val <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	607	741	
==>rts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2986	3113	
==>t presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2986	3113	
==>t presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2986	3113	
==>t presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return boo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8234	8331	
==>ate->param(parent => $index->{_parent} || "../");
    $template->param(directory => $path);
    $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7649	7738	
==>>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1877	1966	
==>>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9283	9372	
==>>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2095	2184	
==>>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	798	1108	
==>}                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3853	4163	
==>}                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	798	1108	
==>}                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3853	4163	
==>}                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2613	2725	
==>m = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime cast of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1324	1431	
==>nline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1324	1431	
==>nline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1324	1431	
==>nline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5232	5370	
==>fore { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6767	6868	
==>t for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6767	6868	
==>t for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8964	9065	
==>t for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	361	615	
==>file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages use <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	361	615	
==>file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages use <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1724	1824	
==>PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1724	1824	
==>PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10841	11003	
==>$part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $tex <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10841	11003	
==>$part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $tex <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14870	14973	
==>initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    desc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13384	13483	
==>] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13384	13483	
==>] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13384	13483	
==>] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13133	13225	
==>scalars),
which is suitable as a generic data interchange format between
Rosetta::Model and o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18228	18320	
==>scalars), which is suitable as a generic data interchange
format between Rosetta::Model and o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13133	13225	
==>scalars),
which is suitable as a generic data interchange format between
Rosetta::Model and o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18228	18320	
==>scalars), which is suitable as a generic data interchange
format between Rosetta::Model and o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11963	12091	
==>ame $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11963	12091	
==>ame $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11963	12091	
==>ame $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieabl <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13670	13767	
==>pass the set of generics unchanged
val: generic($$) = { generic_in($$) }
# vals are assumed to kno <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5497	5656	
==>tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5497	5656	
==>tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13080	13208	
==>sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            consta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13080	13208	
==>sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            consta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3374	3491	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3567	3684	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8696	8805	
==>e::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8684	8793	
==>e::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1618	1738	
==>f $class =~ /::anchor$/;

    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ancho <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3828	3940	
==>lue;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3828	3940	
==>lue;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3828	3940	
==>lue;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16150	16264	
==>at is like the $html->as_text
            $heading = $p->interpolate($heading);
            $heading =~ s/^\s+|\s+$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	19	114	
==>ary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	19	114	
==>ary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	19	114	
==>ary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7765	7899	
==>) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAM <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11767	11896	
==>) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAM <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11767	11896	
==>) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAM <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7825	7925	
==>);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22332	22456	
==>xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22332	22456	
==>xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22332	22456	
==>xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sor <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4985	5094	
==>t MAKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3350	3466	
==>gature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3350	3466	
==>gature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6374	6469	
==>me, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6374	6469	
==>me, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2579	2694	
==>n/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2579	2694	
==>n/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1792	1901	
==>n/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3653	3762	
==>n/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2834	2938	
==>my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2834	2938	
==>my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @b <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2584	2681	
==>gram is Free Software, and may be used, distributed and modified under 
the same terms as Perl its <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2584	2681	
==>gram is Free Software, and may be used, distributed and modified under 
the same terms as Perl its <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	853	951	
==>tly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	853	951	
==>tly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13931	14023	
==>g )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13931	14023	
==>g )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8797	8938	
==>rl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9632	9773	
==>rl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8153	8250	
==>unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8211	8308	
==>unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$T <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	361	489	
==>rgument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attrib <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	852	980	
==>rgument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attrib <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	361	489	
==>rgument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attrib <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	852	980	
==>rgument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2664	2771	
==>ilarities into a role
  # cannot inherit from TestPlan because of the lack of $:expect
  class Test::Builder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2979	3077	
==>to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2979	3077	
==>to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2979	3077	
==>to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/util/func_refact.pl	2848	2958	
==>urn list of newly selected functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1553	1653	
==>_build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1553	1653	
==>_build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1553	1653	
==>_build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13934	14050	
==>() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13934	14050	
==>() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13934	14050	
==>() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3957	4044	
==>wardSlashOrAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	499	619	
==>cumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	515	635	
==>cumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ ret <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10285	10380	
==>, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The comple <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10285	10380	
==>, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The comple <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8129	8220	
==>@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inte <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7259	7350	
==>@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inte <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8129	8220	
==>@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inte <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7259	7350	
==>@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inte <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14109	14207	
==>st($line, \%test);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports the
result bac <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3477	3572	
==>which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3477	3572	
==>which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5674	5769	
==>which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4552	4680	
==>y);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4552	4680	
==>y);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3803	3900	
==>_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_di <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3803	3900	
==>_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3162	3302	
==>atch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3162	3302	
==>atch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	870	998	
==>ion;
        for my $file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3461	3562	
==>$base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	188	282	
==>d name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	188	282	
==>d name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	188	282	
==>d name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1865	1956	
==>p6';
    print Perl6::Run::OnPerl5::X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($repl || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2821	2917	
==>class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2821	2917	
==>class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2821	2917	
==>class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->na <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2850	2951	
==>port Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4674	4775	
==>odule source code instead of taking from filter,
    # because we need all the lines including the one <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2850	2951	
==>port Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUN <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4674	4775	
==>odule source code instead of taking from filter,
    # because we need all the lines including the one <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1243	1368	
==>EFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1243	1368	
==>EFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6455	6559	
==>must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6238	6340	
==>must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25329	25426	
==>midt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24093	24190	
==>midt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25329	25426	
==>midt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24093	24190	
==>midt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistribute it and/o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7309	7411	
==>iX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7309	7411	
==>iX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7309	7411	
==>iX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # co <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	183	278	
==>{name $person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.ha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24841	24939	
==>k a lot.  Regmust permits fast rejection
 * of lines that cannot possibly match.  The regmust tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	537	651	
==>od('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	537	651	
==>od('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	537	651	
==>od('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	305	414	
==>ubstr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3277	3376	
==>cal
    Locally, the kernel is saved as --kernel-local.
  --grub-uri=$grub_uri
    mklivecd.pl autom <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7363	7464	
==>by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7363	7464	
==>by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pm <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	758	847	
==>quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	758	847	
==>quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17299	17391	
==>ute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17299	17391	
==>ute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17299	17391	
==>ute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22467	22557	
==>char_eq(C,X), !.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	924	1063	
==>eSafe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&pri <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4777	4878	
==>s
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4777	4878	
==>s
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6301	6402	
==>s
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	25	128	
==>all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it wil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	25	128	
==>all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it wil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	25	128	
==>all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it wil <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	25	128	
==>all of the source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9541	9647	
==>ms->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9541	9647	
==>ms->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9541	9647	
==>ms->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19429	19533	
==>aracter classes weren't closing properly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e>, etc.) were <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8179	8280	
==><*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7309	7410	
==><*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8179	8280	
==><*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7309	7410	
==><*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7468	7618	
==>f not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7468	7618	
==>f not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_mat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3441	3540	
==>>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3441	3540	
==>>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15668	15766	
==>bose;

    return($leader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12777	12861	
==>L::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12777	12861	
==>L::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12777	12861	
==>L::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2157	2298	
==>s help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2157	2298	
==>s help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2157	2298	
==>s help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4518	4644	
==>pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5003	5129	
==>pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	602	702	
==>d ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set whe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	602	702	
==>d ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set whe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10566	10683	
==>ookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10566	10683	
==>ookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5130	5227	
==>pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(? <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5130	5227	
==>pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(? <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37273	37367	
==>lt degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41822	41916	
==>lt degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41445	41539	
==>lt degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36650	36742	
==>ism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm goi <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2123	2226	
==>directory from where script was invoked
    $Script      - basename of script from which perl was invoke <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2123	2226	
==>directory from where script was invoked
    $Script      - basename of script from which perl was invoke <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9955	10049	
==>ap: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $stri <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9955	10049	
==>ap: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $stri <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4792	4919	
==>my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7693	7802	
==>te $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7693	7802	
==>te $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7693	7802	
==>te $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7725	7823	
==>ess [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7725	7823	
==>ess [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7725	7823	
==>ess [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subrou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	694	795	
==>nums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	694	795	
==>nums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	694	795	
==>nums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7111	7211	
==>hecking for Parrot binary",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17257	17408	
==>sion'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') ch <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17257	17408	
==>sion'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2624	2748	
==>ixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	242	349	
==>e::Load::Conditional   qw[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::U <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16542	16651	
==>1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16542	16651	
==>1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17528	17631	
==>1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17528	17631	
==>1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	611	722	
==>[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6129	6240	
==>[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	611	722	
==>[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6141	6252	
==>[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12482	12605	
==>ed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12482	12605	
==>ed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12482	12605	
==>ed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2127	2227	
==>turn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinit <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2127	2227	
==>turn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23836	23928	
==>ion
than alternatives, and doesn't know about language specific details like
encodings or plu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23836	23928	
==>ion
than alternatives, and doesn't know about language specific details like
encodings or plu <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	160	270	
==>Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15	116	
==>sses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15	116	
==>sses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15	116	
==>sses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7649	7739	
==>ead_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7649	7739	
==>ead_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7649	7739	
==>ead_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	850	978	
==>ile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	850	978	
==>ile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1195	1284	
==>ith B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1195	1284	
==>ith B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same th <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11143	11239	
==>ludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8547	8643	
==>ludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11143	11239	
==>ludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8547	8643	
==>ludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1225	1366	
==>(&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pai <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1225	1366	
==>(&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1448	1580	
==>_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1448	1580	
==>_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	645	775	
==>push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	645	775	
==>push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	645	775	
==>push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1343	1442	
==>e ...
    $supers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers->is_empty == <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8199	8392	
==>METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8199	8392	
==>METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8199	8392	
==>METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLAS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11237	11377	
==>et( \$_[0], '\$()' ) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2890	3022	
==>();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) { <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2890	3022	
==>();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13821	13935	
==>n = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full pre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13821	13935	
==>n = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full pre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	106	246	
==>ssage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (S <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	106	246	
==>ssage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (S <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	328	428	
==>r::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::Pos <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	328	428	
==>r::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::Pos <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14499	14613	
==>,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connection <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14499	14613	
==>,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connection <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13540	13646	
==>,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connection <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13540	13646	
==>,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connection <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8396	8579	
==>>get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8396	8579	
==>>get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8396	8579	
==>>get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3157	3271	
==>s ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3621	3735	
==>s ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2993	3105	
==>}
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2993	3105	
==>}
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16069	16175	
==>urn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".& <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16069	16175	
==>urn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".& <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16069	16175	
==>urn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".& <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34888	35060	
==>>get('$dispatcher')->do());
                })->do_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3142	3245	
==>se Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class repre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3142	3245	
==>se Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class repre <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27347	27441	
==>HARNESS_IGNORE_EXITCODE>

Makes harness ignore the exit status of child processes when defined. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3590	3696	
==>}
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3590	3696	
==>}
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1110	1208	
==>er the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1110	1208	
==>er the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modul <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1201	1304	
==>::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", "nows", "PGE::Exp::CCShortcut");
    $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	399	495	
==>$true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	399	495	
==>$true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	399	495	
==>$true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::ad <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4061	4152	
==>er::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4061	4152	
==>er::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5585	5676	
==>er::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14787	14893	
==>} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14787	14893	
==>} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14787	14893	
==>} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4142	4263	
==>$n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4142	4263	
==>$n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4142	4263	
==>$n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6105	6194	
==>@array
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7300	7454	
==>ew('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7300	7454	
==>ew('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7300	7454	
==>ew('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5305	5411	
==>de();
 
    $<op> := (print|say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { retur <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6886	6994	
==>mization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            cs <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6886	6994	
==>mization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            cs <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2549	2643	
==>ave object support, this module is more like the
Perl 5 File::Spec::Functions module than the b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2549	2643	
==>ave object support, this module is more like the
Perl 5 File::Spec::Functions module than the b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7645	7735	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1873	1963	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9279	9369	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2091	2181	
==>E<gt>

documentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12845	12940	
==>MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12845	12940	
==>MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12845	12940	
==>MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {.. <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	746	880	
==>no concept of associative attributes,
                  # so we represent them all as attributes
                  attrs => [ map { $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	85	174	
==>cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	85	174	
==>cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	85	174	
==>cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindB <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	683	786	
==>acro rxmodinternal:<x> etc works.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	478	574	
==>ce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	478	574	
==>ce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	478	574	
==>ce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->ite <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4522	4793	
==>/P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4522	4793	
==>/P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17640	17736	
==>n programs or database systems often refer to an error condition by an
internal code which is gua <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17640	17736	
==>n programs or database systems often refer to an error condition by an
internal code which is gua <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12273	12378	
==>h, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6840	6945	
==>h, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12273	12378	
==>h, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6840	6945	
==>h, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1171	1286	
==>ILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Liter <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1171	1286	
==>ILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Liter <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18936	19030	
==>k, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18936	19030	
==>k, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1071	1213	
==>essage($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1071	1213	
==>essage($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000 <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1926	2038	
==>b Pugs::Internals::log_base(Num $x, Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    ret <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2882	2977	
==>ove_subscription (Class::Events::Subscription::Named $subscription) {
            %.subscription <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3415	3512	
==>xpected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3415	3512	
==>xpected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3495	3592	
==>xpected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1101	1192	
==>educing " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4030	4143	
==>r chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3888	3998	
==>r chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for ' <==
4	/Users/nnunley/pugs/util/package-osx.pl	1100	1206	
==>info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man <==
4	/Users/nnunley/pugs/util/package-osx.pl	3410	3516	
==>info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5315	5461	
==>we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5779	5925	
==>we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13295	13384	
==>m _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place r <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13295	13384	
==>m _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3863	3980	
==>ent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3863	3980	
==>ent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @ni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4395	4506	
==>ent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4395	4506	
==>ent<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @ni <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2197	2298	
==>are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2116	2214	
==>are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7577	7674	
==>hile (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7577	7674	
==>hile (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2259	2362	
==>a::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2259	2362	
==>a::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12295	12389	
==>patibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12353	12447	
==>patibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4010	4112	
==>,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	68	170	
==>chläft { lauf_weg();  }
	when 'hungrig'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4010	4112	
==>,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4010	4112	
==>,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3940	4060	
==>might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3940	4060	
==>might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12827	12924	
==>ng utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSI <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12827	12924	
==>ng utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSI <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2036	2154	
==>join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2036	2154	
==>join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1275	1386	
==>join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3136	3247	
==>join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	608	800	
==>@_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	608	800	
==>@_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	608	800	
==>@_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispa <==
4	/Users/nnunley/pugs/util/package-osx.pl	4868	4965	
==>rl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        /usr/local/man/man3/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24954	25090	
==>";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4101	4194	
==>nstant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4101	4194	
==>nstant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4101	4194	
==>nstant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9445	9543	
==>blequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9445	9543	
==>blequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9445	9543	
==>blequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5288	5395	
==>for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5288	5395	
==>for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $ev <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18654	18745	
==>ributes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18654	18745	
==>ributes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10725	10841	
==>argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM per <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10725	10841	
==>argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM per <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11549	11661	
==>cess $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11549	11661	
==>cess $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2872	3100	
==>ine\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2872	3100	
==>ine\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1670	1800	
==>ral>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e| <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1670	1800	
==>ral>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e| <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5069	5172	
==>::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5291	5394	
==>::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AS <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16454	16549	
==>s easily and without a recompile (such as by simply
copying files), often even while the program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16454	16549	
==>s easily and without a recompile (such as by simply
copying files), often even while the program <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	911	1036	
==>.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	911	1036	
==>.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4466	4571	
==>urn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6368	6473	
==>urn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8424	8526	
==>v or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8424	8526	
==>v or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19565	19663	
==>een a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner bloc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19565	19663	
==>een a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner bloc <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14977	15088	
==>n into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9790	9896	
==>to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9790	9896	
==>to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9790	9896	
==>to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5677	5847	
==>$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5677	5847	
==>$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5677	5847	
==>$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $bod <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1875	1969	
==>th'} == 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2036	2139	
==>y be a T2::Attribute or a T2::Association, but as they
    # both respond to ->type and ->name in the sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2946	3045	
==>return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2946	3045	
==>return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2946	3045	
==>return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Co <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7527	7648	
==>e ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7584	7705	
==>e ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3736	3830	
==>g_func 'tanh';
trig_func 'asinh';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4391	4557	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4391	4557	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4391	4557	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21040	21146	
==>setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padarray
    self["isarray" <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9908	10033	
==>2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7848	7973	
==>2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9908	10033	
==>2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7848	7973	
==>2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4584	4686	
==>f->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4584	4686	
==>f->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4584	4686	
==>f->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9683	9782	
==>lue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9683	9782	
==>lue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9683	9782	
==>lue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5552	5660	
==>al_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filt <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5552	5660	
==>al_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filt <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1743	1848	
==>ion ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1743	1848	
==>ion ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	251	372	
==>$self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed'};
            $params{'$. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2529	2628	
==>recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2529	2628	
==>recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2529	2628	
==>recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$l <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2340	2451	
==>if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<be <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2340	2451	
==>if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<be <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	534	630	
==>riableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	534	630	
==>riableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7562	7721	
==>);
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.cur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7562	7721	
==>);
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.cur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18035	18134	
==>s:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18035	18134	
==>s:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its d <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3829	3921	
==>arse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3829	3921	
==>arse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	755	871	
==>if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8214	8330	
==>eg} = shift if @_;
    $self->{neg};
  }

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $self->{neg} ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	755	871	
==>if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	755	871	
==>if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6329	6434	
==>, $de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6399	6497	
==>>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6399	6497	
==>>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6399	6497	
==>>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36629	36750	
==>ms;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36629	36750	
==>ms;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36629	36750	
==>ms;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25526	25625	
==>> are printed in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<F <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2894	3013	
==>onst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        my $bool = $const eq substr( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5489	5593	
==>6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5489	5593	
==>6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5489	5593	
==>6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2588	2684	
==>or its class (without the prefix) is
exported. This is very convenient for constructing trees and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	679	767	
==>_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	679	767	
==>_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	679	767	
==>_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1059	1215	
==>art_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4298	4454	
==>art_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1059	1215	
==>art_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4298	4454	
==>art_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5951	6045	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

doc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1147	1241	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

doc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5951	6045	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

doc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1147	1241	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

doc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	984	1098	
==>e, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	984	1098	
==>e, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	984	1098	
==>e, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box. <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1990	2088	
==>_context;
    # Check if it's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3422	3593	
==>' => $nil::NIL);
            $e->create('$current' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1177	1296	
==>an'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1382	1501	
==>an'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1443	1562	
==>an'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3912	4068	
==>{
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3912	4068	
==>{
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1280	1381	
==>rap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1280	1381	
==>rap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler <==
4	/Users/nnunley/pugs/util/drift.pl	1752	1846	
==>l5
import Control.Monad
import qualified Data.ByteString as Buf

.

while (<IN>) {
	if(/<DrIFT> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16589	16700	
==>re...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
bl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16589	16700	
==>re...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
bl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2646	2745	
==>hod vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2646	2745	
==>hod vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6779	6892	
==>x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6779	6892	
==>x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1005	1112	
==>Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1005	1112	
==>Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16408	16509	
==>n $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19885	19986	
==>n $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!head <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12234	12329	
==>cute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>: <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12234	12329	
==>cute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1205	1332	
==>m //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1205	1332	
==>m //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1443	1537	
==>e ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1363	1453	
==>e ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19118	19229	
==>top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19118	19229	
==>top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2867	2972	
==>eue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2867	2972	
==>eue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	161	279	
==>s {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->requir <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28469	28561	
==>ibutes are being combined/wrapped, with
its keys being the new tuple-valued attribute names a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33021	33113	
==>ibutes are being combined/wrapped, with
its keys being the new tuple-valued attribute names a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32149	32241	
==>ibutes are being combined/wrapped, with
its keys being the new tuple-valued attribute names a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25828	25988	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25828	25988	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25828	25988	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-I <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4576	4691	
==>ncore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	442	550	
==>l calls "require Module::Install"
#     5. The ./inc/ version of Module::Install loads
# } ELSE {
#     1. Ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1282	1380	
==>f = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1282	1380	
==>f = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1282	1380	
==>f = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32879	33027	
==>$diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32879	33027	
==>$diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32879	33027	
==>$diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23209	23304	
==>ted strings in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmon <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9818	9914	
==>ry first module written for Pugs.

It provides a simple set of common test utility functions, and <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9876	9972	
==>ry first module written for Pugs.

It provides a simple set of common test utility functions, and <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9332	9445	
==>ift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9525	9638	
==>ift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18598	18705	
==>sic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     pag <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18598	18705	
==>sic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     pag <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2408	2556	
==>y $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13413	13509	
==>E

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13413	13509	
==>E

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13413	13509	
==>E

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2287	2411	
==>sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9059	9183	
==>sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2287	2411	
==>sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9059	9183	
==>sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8331	8481	
==>k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A.proper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1234	1327	
==>rything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1234	1327	
==>rything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1234	1327	
==>rything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	995	1107	
==>struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1659	1771	
==>struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2062	2166	
==>ass = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	542	645	
==>head($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11567	11681	
==>y $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.');
  }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4601	4705	
==>$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4601	4705	
==>$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4601	4705	
==>$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6501	6636	
==>_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6501	6636	
==>_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6501	6636	
==>_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2954	3054	
==>S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18098	18197	
==>p copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data struc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18098	18197	
==>p copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data struc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33725	33821	
==>rresponds to a
language like English or French.  The order of these items corresponds to
an indiv <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33725	33821	
==>rresponds to a
language like English or French.  The order of these items corresponds to
an indiv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7224	7346	
==>function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7224	7346	
==>function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7224	7346	
==>function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1809	1932	
==>be a num type";
    return list->new(
        # make sure to create any nils we need
        map { defined $_ ? $_ : nil->ne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31218	31313	
==>Example has all
of the tuples of the original (or rather, the corresponding extension of
each tu <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	910	1024	
==>t match the root of the path
        # then we have failed already and so return
        return unless $func($curre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	910	1024	
==>t match the root of the path
        # then we have failed already and so return
        return unless $func($curre <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22545	22637	
==>variable values to be
interpolated into the user strings; Locale::KeyedText would also handle <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22545	22637	
==>variable values to be
interpolated into the user strings; Locale::KeyedText would also handle <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14026	14124	
==>lue.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14026	14124	
==>lue.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the hea <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3511	3608	
==>ollowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=it <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3511	3608	
==>ollowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=it <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	410	525	
==><lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	410	525	
==><lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	559	673	
==><lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	559	673	
==><lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	9	132	
==>ain;
    *{'infix:<*>'} = sub

    {
 $_[0] * $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	172	272	
==>x_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	172	272	
==>x_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	172	272	
==>x_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::R <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1098	1226	
==>x,
    tree => undef,
    stack => [],
    maxpar => 0,
    nparen => 0,
    captures => [],
    flags => [0],
    next => ['atom <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1193	1295	
==>)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1193	1295	
==>)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1193	1295	
==>)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8592	8793	
==>t => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method val <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8592	8793	
==>t => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method val <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7062	7239	
==>union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10539	10716	
==>union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the rel <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5920	6095	
==>kg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	808	917	
==>et_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy lis <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	808	917	
==>et_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy lis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4006	4094	
==>e see L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Te <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4345	4497	
==>:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2768	2863	
==>}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2768	2863	
==>}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2768	2863	
==>}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12101	12221	
==>te')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12101	12221	
==>te')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12101	12221	
==>te')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1241	1397	
==>iption,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        { <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1241	1397	
==>iption,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	100	201	
==>mmar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	100	201	
==>mmar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8643	8832	
==>ift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    } <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8643	8832	
==>ift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	218	321	
==>le>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request w <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	218	321	
==>le>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5093	5261	
==>into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5093	5261	
==>into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5093	5261	
==>into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1264	1404	
==>KAGE__->add_rule( 
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6910	7035	
==>ybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $e <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7374	7499	
==>ybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $e <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7856	7960	
==>f: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7856	7960	
==>f: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9637	9808	
==><$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9637	9808	
==><$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # ca <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1278	1372	
==>n (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1278	1372	
==>n (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3900	4004	
==>:list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26420	26513	
==>ding projection of
each tuple), but that any duplicates following the projection have been
eli <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30972	31065	
==>ding projection of
each tuple), but that any duplicates following the projection have been
eli <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29974	30067	
==>ding projection of
each tuple), but that any duplicates following the projection have been
eli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	79	197	
==>VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	79	197	
==>VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	79	197	
==>VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18419	18525	
==>e.'\n") '.";\n";
    $code .= "}\n";

    eval_p5_code($code);
}
sub p6_wrap_code_with_package {
    my($co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8667	8777	
==>b = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	400	510	
==>b = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8667	8777	
==>b = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8667	8777	
==>b = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15607	15706	
==>t the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15607	15706	
==>t the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36540	36632	
==>s its positional
parameter $message and returns an equivalent human readable text message
str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36540	36632	
==>s its positional
parameter $message and returns an equivalent human readable text message
str <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1147	1250	
==>>write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2038	2140	
==>>write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1338	1434	
==>imiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1338	1434	
==>imiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11670	11796	
==>e set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8817	8943	
==>e set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11670	11796	
==>e set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8817	8943	
==>e set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, o <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	244	350	
==>a::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5 <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	244	350	
==>a::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5378	5476	
==>s->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filt <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5378	5476	
==>s->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filt <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7823	7962	
==>lar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   (List, Code)\
\\n   List      spre    pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3372	3463	
==>es')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3372	3463	
==>es')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3372	3463	
==>es')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16731	16848	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16731	16848	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16731	16848	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cla <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15012	15101	
==>R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9809	9918	
==>ithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7749	7858	
==>ithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9809	9918	
==>ithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7749	7858	
==>ithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	423	526	
==>{
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	423	526	
==>{
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	423	526	
==>{
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4351	4451	
==>}

=head2 $inst_pkg = $inst->is_installed( package => $package )

=cut

### XXX package name?
sub is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18187	18393	
==>->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18187	18393	
==>->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18187	18393	
==>->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $m <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2287	2386	
==><psuedo_scalar_literal>
  | <interpolated_array> | <interpolated_hash>
  | <null_term>
  | <assertio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	309	488	
==>ey' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	11	120	
==>rl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	11	120	
==>rl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	11	120	
==>rl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # lo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1986	2086	
==>PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1986	2086	
==>PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	818	917	
==>d to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar use <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	818	917	
==>d to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar use <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14282	14382	
==>>>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14282	14382	
==>>>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	768	861	
==>EE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they will <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	768	861	
==>EE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2236	2339	
==>sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2236	2339	
==>sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2236	2339	
==>sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21974	22104	
==>ch my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21974	22104	
==>ch my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21974	22104	
==>ch my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END <==
4	/Users/nnunley/pugs/util/version_h.pl	1398	1531	
==>pot; # convert /svk/trunk to //svk/trunk
            if (my @info = qx/svk info $source_depot/ and $? == 0) {
                if (my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3453	3537	
==>------------------------------------------------------------------
## BOOTSTRAPPING C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4147	4231	
==>------------------------------------------------------------------
## BOOTSTRAPPING C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5355	5439	
==>------------------------------------------------------------------
## BOOTSTRAPPING C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	285	418	
==>n>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	289	422	
==>n>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	285	418	
==>n>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	289	422	
==>n>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the P <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5351	5452	
==>::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> ", map { $self->displa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	158	253	
==>ase "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	158	253	
==>ase "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	158	253	
==>ase "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	107	210	
==>1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	107	210	
==>1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	107	210	
==>1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7281	7375	
==>to be parsed as the argument to the constructor.

=item $parser->regex($regex)

Clears the pars <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16311	16508	
==>.
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16305	16502	
==>.
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4395	4491	
==>union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4395	4491	
==>union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15093	15226	
==>lass', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right->tag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5325	5422	
==>ng @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5325	5422	
==>ng @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5325	5422	
==>ng @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5721	5818	
==>cumentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule co <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10541	10634	
==>lass $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<decipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10541	10634	
==>lass $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<decipher <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5524	5615	
==>cumentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule co <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3127	3232	
==>= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

Thi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3127	3232	
==>= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

Thi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4454	4567	
==>= any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7931	8044	
==>= any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	606	707	
==>SIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	606	707	
==>SIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21777	21875	
==>$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21777	21875	
==>$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21777	21875	
==>$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::I <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32478	32570	
==>Relation::Example attribute names, or duplicate any other value set members.  This
method sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6668	6761	
==>ue_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6668	6761	
==>ue_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6668	6761	
==>ue_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3575	3667	
==>L<Blondie::Reducer> in order to traverse the node
structure. The only dirty part is C<reduce_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5293	5392	
==>ze();

Tells the cipher object to clear its internal state as completely as possible. 
This is autom <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5293	5392	
==>ze();

Tells the cipher object to clear its internal state as completely as possible. 
This is autom <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1866	1960	
==>6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, a <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1866	1960	
==>6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20337	20455	
==>});

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RP <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16758	16876	
==>});

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	603	699	
==>n';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	649	743	
==>n';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4829	4930	
==>uldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4829	4930	
==>uldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4829	4930	
==>uldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	136	243	
==>RT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScrip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	136	243	
==>RT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScrip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	136	243	
==>RT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScrip <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4250	4402	
==>e = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4791	4943	
==>e = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $ma <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	154	245	
==>erldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($s <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	154	245	
==>erldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($s <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	410	541	
==>al junctive type.

type CxtVoid;  # is that enough?

# here, I think we have the same problem as with Set; how do you
# specify a hi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6081	6178	
==>fix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6081	6178	
==>fix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6081	6178	
==>fix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14153	14351	
==>less defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14153	14351	
==>less defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14153	14351	
==>less defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12408	12523	
==>PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 },
    using  => sub {
      utime <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1419	1557	
==>x_groups'}= [ [map {Path::Class::dir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/files
### These a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11675	11792	
==>ue::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11675	11792	
==>ue::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11675	11792	
==>ue::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Pe <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8484	8589	
==>initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1292	1395	
==>m->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1292	1395	
==>m->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1501	1604	
==>m->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4240	4353	
==>$operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $term <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3794	3897	
==>TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3794	3897	
==>TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3794	3897	
==>TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2532	2644	
==>$headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2532	2644	
==>$headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	528	629	
==>() { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	528	629	
==>() { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7177	7347	
==>e,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7177	7347	
==>e,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'pe <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4402	4549	
==>ist is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4402	4549	
==>ist is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9786	9897	
==>.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( P <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9786	9897	
==>.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( P <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37850	37943	
==>rl module by the given module name
is already loaded, it tries to invoke $module_name.get_text <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37850	37943	
==>rl module by the given module name
is already loaded, it tries to invoke $module_name.get_text <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1093	1195	
==>urcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1093	1195	
==>urcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1093	1195	
==>urcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	100	257	
==>',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	100	257	
==>',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	678	775	
==>h the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enciphering <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	678	775	
==>h the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enciphering <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7038	7184	
==>rators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  w <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5539	5685	
==>rators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  w <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3639	3738	
==>eal $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'toda <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3639	3738	
==>eal $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'toda <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24358	24496	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25621	25759	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24637	24775	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25900	26038	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12028	12129	
==>} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont wa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12028	12129	
==>} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont wa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12028	12129	
==>} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont wa <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	754	855	
==>ike to make Pugs a system-wide GHC package
    for use with other Haskell programs, type '$Config{make <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1164	1261	
==>access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1164	1261	
==>access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1164	1261	
==>access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" metho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8125	8287	
==>$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36355	36469	
==>dy->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36355	36469	
==>dy->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36355	36469	
==>dy->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4318	4483	
==>], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4859	5024	
==>], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5323	5488	
==>], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $matc <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14304	14389	
==>tom_codes(AName,Name),
  concat_atom(['use charnames ":full";unpack("U*","\\N{',AName, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	605	701	
==>NC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6825	6943	
==>hr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6825	6943	
==>hr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr( <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4478	4574	
==>he current version of Pugs does not support OO, methods are
implemented as hash keys to code refs <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4478	4574	
==>he current version of Pugs does not support OO, methods are
implemented as hash keys to code refs <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20873	21070	
==>,
    body => let(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                param => "n",
                body => cond(
                    if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	938	1076	
==>urn $FALSE;
    }
    else {
        return $TRUE;
    }    
}

sub and : method {
    my ($self, $block) = @_;
    (blessed($block) && $bl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13432	13549	
==>n( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16909	17026	
==>n( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16271	16388	
==>n( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pro <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2234	2355	
==>flag yet for link management
    LINKING: {   
        ### load in the alternatives collection
        my $href = LoadFile <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1615	1711	
==>5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1755	1851	
==>5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{captu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12479	12563	
==>6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	94	219	
==>RSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	94	219	
==>RSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	94	219	
==>RSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_f <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3861	3984	
==>s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can not op <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8552	8663	
==>rby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "Th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8552	8663	
==>rby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14457	14558	
==>}
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14457	14558	
==>}
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5560	5654	
==>\$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5560	5654	
==>\$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5560	5654	
==>\$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27145	27257	
==>}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	431	528	
==>nt 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	431	528	
==>nt 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	431	528	
==>nt 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11173	11299	
==>= $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$gramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14743	14846	
==>$s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14743	14846	
==>$s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14743	14846	
==>$s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use co <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4710	4816	
==>is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3837	3943	
==>is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4710	4816	
==>is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3837	3943	
==>is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23832	23969	
==>lag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13336	13465	
==>lag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13336	13465	
==>lag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13336	13465	
==>lag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21560	21703	
==>ue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21560	21703	
==>ue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21560	21703	
==>ue::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	162	258	
==>The full version is on misc/pX/Common/lrep*
# ***************

use strict;
use warnings;
no warni <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2552	2666	
==>y $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2552	2666	
==>y $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4361	4452	
==>ym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJEC <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4361	4452	
==>ym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJEC <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3374	3490	
==>turn @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf { <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3374	3490	
==>turn @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3102	3207	
==>nt, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3102	3207	
==>nt, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9463	9595	
==>1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9451	9583	
==>1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4573	4677	
==>.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4573	4677	
==>.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original modul <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3300	3414	
==>szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "ua <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3300	3414	
==>szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "ua <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9846	9942	
==>Pugs.

It provides a simple set of common test utility functions, and is
an implementation of the <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9904	10000	
==>Pugs.

It provides a simple set of common test utility functions, and is
an implementation of the <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2806	2924	
==>eturn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2806	2924	
==>eturn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	58	150	
==>ream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($ke <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	58	150	
==>ream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($ke <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1242	1402	
==>) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4481	4641	
==>) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1242	1402	
==>) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4481	4641	
==>) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5973	6124	
==>ll;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5973	6124	
==>ll;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5973	6124	
==>ll;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fro <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1066	1159	
==>::Run::OnPerl5::X1::BB::pugs_args = join(" ",map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Per <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3887	3985	
==>$name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

Returns the contents <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6110	6241	
==>$code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6110	6241	
==>$code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5429	5524	
==>Boolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3890	3993	
==>:Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4223	4326	
==>:Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3890	3993	
==>:Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4223	4326	
==>:Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5640	5796	
==>happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5640	5796	
==>happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5640	5796	
==>happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5093	5214	
==>is within $range of $expected
# if $range is 0, then check it's exact
# else if $expected is 0, then $range is an absolute <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5832	5972	
==>sts $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2466	2573	
==>or the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2466	2573	
==>or the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2466	2573	
==>or the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15163	15271	
==>ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15163	15271	
==>ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15163	15271	
==>ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	568	664	
==>R };

subtype Relation::LaxAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2565	2653	
==>nstance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2565	2653	
==>nstance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2565	2653	
==>nstance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_ <==
4	/Users/nnunley/pugs/util/version_h.pl	2303	2390	
==>unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12532	12630	
==>(*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12532	12630	
==>(*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12532	12630	
==>(*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@x <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2361	2494	
==>%tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2361	2494	
==>%tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	220	320	
==>ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	220	320	
==>ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4704	4806	
==>d = shift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	528	629	
==>ame points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	528	629	
==>ame points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4832	4927	
==>h object returns the numified version
of the result object (usually the entire match string).

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4832	4927	
==>h object returns the numified version
of the result object (usually the entire match string).

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	111	210	
==>ighly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	111	210	
==>ighly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	111	210	
==>ighly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24061	24154	
==>ator::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty print a -> b w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2328	2473	
==>t',
        precedence => 'looser',
        other => '*',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7673	7796	
==>) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7673	7796	
==>) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7673	7796	
==>) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26451	26551	
==>ference, so you
may store references to other objects in them if you wish.

=back

This is the main M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26451	26551	
==>ference, so you
may store references to other objects in them if you wish.

=back

This is the main M <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1864	1955	
==>rd, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1864	1955	
==>rd, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	831	956	
==>exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	831	956	
==>exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	831	956	
==>exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	260	358	
==>ssible
# bootstrap path for perl6.

# The perl5 regexp engine is unfortunately entangled with the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1759	1928	
==>d" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1759	1928	
==>d" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1759	1928	
==>d" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	545	642	
==>t interface
sub to_num { shift }

# conversion to other native types
sub to_bit { (shift)->to_nati <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6123	6241	
==>0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.spli <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6123	6241	
==>0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.spli <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	55	154	
==>ON = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document de <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	55	154	
==>ON = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22191	22292	
==>} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22191	22292	
==>} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22191	22292	
==>} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4395	4512	
==>e_attrs($self)->{'%:methods'}->{$label};
        },
        'add_method' => sub ($$$) {
            my ($self, $label, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17265	17367	
==>ahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17265	17367	
==>ahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17265	17367	
==>ahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4512	4620	
==>recendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## make class

my $Foo = $C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12994	13090	
==>n "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12994	13090	
==>n "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12994	13090	
==>n "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9460	9583	
==>? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a mod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9460	9583	
==>? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a mod <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9209	9307	
==>)`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or no <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9209	9307	
==>)`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9450	9595	
==>{ my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2375	2467	
==>thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instance <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2375	2467	
==>thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instance <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2375	2467	
==>thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instance <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	48	162	
==>se Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
die "Could not create ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2584	2688	
==>: "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2584	2688	
==>: "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2584	2688	
==>: "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verb <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3084	3197	
==>? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @ol <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3084	3197	
==>? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @ol <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4328	4424	
==>igil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4328	4424	
==>igil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4328	4424	
==>igil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	771	867	
==>midt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	771	867	
==>midt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	771	867	
==>midt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2356	2494	
==>( $Altfile );

        ### this package didn't provide any alternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1250	1350	
==>s) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKME <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1250	1350	
==>s) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKME <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1250	1350	
==>s) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKME <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	895	1018	
==>name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6940	7046	
==>ted" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1296	1399	
==>ted" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	398	498	
==>ted" };
sub get_op { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inh <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	562	666	
==>ps}->insert($node);
	} else {
		$self->{seen}->insert($node);
		$self->SUPER::generic_reduce($node);
	}
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3283	3371	
==>y in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3283	3371	
==>y in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3283	3371	
==>y in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28255	28355	
==>f this object which is suitable
for debugging purposes (such as to test that the object's contents lo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35611	35711	
==>f this object which is suitable
for debugging purposes (such as to test that the object's contents lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28255	28355	
==>f this object which is suitable
for debugging purposes (such as to test that the object's contents lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35611	35711	
==>f this object which is suitable
for debugging purposes (such as to test that the object's contents lo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21055	21155	
==>tes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25607	25707	
==>tes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all t <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	122	218	
==>sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specif <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	122	218	
==>sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specif <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1498	1616	
==>{
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i] <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1498	1616	
==>{
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i] <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24220	24318	
==>elation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a sin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28772	28870	
==>elation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a sin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	264	389	
==>f($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	352	477	
==>f($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6277	6395	
==>) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6289	6407	
==>) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2639	2768	
==>elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7733	7862	
==>elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2639	2768	
==>elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7733	7862	
==>elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12636	12741	
==>nv($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => type::variable::free->new()
	);
	\%new <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1640	1726	
==>e =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3601	3687	
==>e =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1640	1726	
==>e =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13110	13220	
==>t.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16587	16697	
==>t.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15949	16059	
==>t.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7610	7713	
==>or(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7376	7471	
==>nd_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=b <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7376	7471	
==>nd_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10769	10864	
==>eedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11048	11143	
==>eedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_sta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4801	4973	
==>($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4801	4973	
==>($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10820	10911	
==><content_length returns Str>

=back

B<The following informational functions are fetched on- <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10820	10911	
==><content_length returns Str>

=back

B<The following informational functions are fetched on- <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	238	362	
==>("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say( <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	238	362	
==>("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	4	102	
==>sr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	4	102	
==>sr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1100	1197	
==>hese methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1100	1197	
==>hese methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	316	417	
==>etopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-progr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	277	378	
==>etopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-progr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	277	378	
==>etopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-progr <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	791	890	
==>PLEMENTED
  my %total = $strap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1573	1695	
==>"";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1573	1695	
==>"";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1573	1695	
==>"";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	466	568	
==>apply;

=head1 DESCRIPTION

This object represents a Role.

A Role is a composable unit of behaviour; w <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4337	4431	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15773	15867	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4337	4431	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15773	15867	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the sp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	22	119	
==>e rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	22	119	
==>e rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21568	21711	
==>isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21568	21711	
==>isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21568	21711	
==>isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	603	719	
==>ration::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour), :minute($ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16894	17001	
==>ributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20371	20478	
==>ributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19949	20056	
==>ributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13802	13929	
==>ss_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13802	13929	
==>ss_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13802	13929	
==>ss_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => <==
4	/Users/nnunley/pugs/util/run-smoke.pl	692	788	
==>y $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->lookup('smoke_upl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9586	9708	
==>stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9586	9708	
==>stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9586	9708	
==>stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                S <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6197	6308	
==>ers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %modifiers_known = map {;($_ => 1)},
        <pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19689	19783	
==>.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19689	19783	
==>.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	882	971	
==>lish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	882	971	
==>lish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2614	2741	
==>compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2831	2958	
==>compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1667	1787	
==>tr $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traff <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1667	1787	
==>tr $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traff <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36465	36560	
==>quence in which any two source relations are
combined is inconsequential.  A trivial case is whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41014	41109	
==>quence in which any two source relations are
combined is inconsequential.  A trivial case is whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40628	40723	
==>quence in which any two source relations are
combined is inconsequential.  A trivial case is whe <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2004	2107	
==>ays => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2004	2107	
==>ays => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4727	4824	
==>rns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualif <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4727	4824	
==>rns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualif <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5679	5818	
==>(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $dir ( File::Find::Rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3336	3457	
==>ef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3336	3457	
==>ef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3336	3457	
==>ef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8003	8095	
==>it if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8968	9068	
==>same magic.



overload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3201	3300	
==>ld strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3201	3300	
==>ld strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8673	8770	
==>same magic.

overload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1068	1387	
==>rScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation::LaxAttrList :%at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2227	2360	
==>if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2227	2360	
==>if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2227	2360	
==>if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2220	2312	
==>turn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2132	2223	
==>turn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1029	1255	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buf <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1029	1255	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3205	3312	
==>ab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace & <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3193	3300	
==>ab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace & <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8667	8793	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8667	8793	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	894	1006	
==>as Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has In <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	894	1006	
==>as Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has In <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1094	1216	
==>mmediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1299	1421	
==>mmediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        ret <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34268	34358	
==>s!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34268	34358	
==>s!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3348	3443	
==>nd then telling this module to compare the received
output to the expected output.

=head1 EXPOR <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3348	3443	
==>nd then telling this module to compare the received
output to the expected output.

=head1 EXPOR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3428	3523	
==>nd then telling this module to compare the received
output to the expected output.

=head1 EXPOR <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29058	29239	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29337	29518	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8501	8680	
==>("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23481	23574	
==>mutable rather than mutable, this property and/or
same-named accessor method can be used to se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28033	28126	
==>mutable rather than mutable, this property and/or
same-named accessor method can be used to se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26837	26930	
==>mutable rather than mutable, this property and/or
same-named accessor method can be used to se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3240	3352	
==>asses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3240	3352	
==>asses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3240	3352	
==>asses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_metho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	726	820	
==>ie::Val"))) {
				$self->{seen}->insert($orig);
			}
			$self->Blondie::Reducer::generic_reduce <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4650	4767	
==>on( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4650	4767	
==>on( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7759	7869	
==>e message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7759	7869	
==>e message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9016	9158	
==>{
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9016	9158	
==>{
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12116	12245	
==>ke "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12116	12245	
==>ke "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2265	2388	
==>> 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "aum <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2265	2388	
==>> 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "aum <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	210	310	
==>erences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	210	310	
==>erences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4100	4234	
==>t\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4100	4234	
==>t\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4100	4234	
==>t\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @a <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2314	2514	
==>ostrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # remote repo root
$Repoindex      = $Repodir . '/inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16767	16859	
==>ode::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16767	16859	
==>ode::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16767	16859	
==>ode::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17580	17673	
==>:Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17580	17673	
==>:Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan D <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10675	10761	
==>code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10675	10761	
==>code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13083	13189	
==>tive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic data interchange <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18178	18284	
==>tive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic data interchange <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13083	13189	
==>tive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic data interchange <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18178	18284	
==>tive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic data interchange <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12870	12995	
==>not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12870	12995	
==>not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12870	12995	
==>not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	452	561	
==>e',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a consisten <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16285	16382	
==>s/of\s+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax err <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2384	2477	
==>erencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2384	2477	
==>erencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2384	2477	
==>erencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5973	6109	
==>nless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5973	6109	
==>nless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8694	8821	
==>sure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8694	8821	
==>sure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6702	6803	
==>sc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message l <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6760	6861	
==>sc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message l <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7886	7983	
==>y $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7886	7983	
==>y $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1190	1295	
==>tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1190	1295	
==>tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1270	1375	
==>tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_nu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	682	776	
==>);
    $optable->addToken("term:.", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->add <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23466	23591	
==>define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CANY /* src bc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5141	5231	
==>ce")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Sinc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5141	5231	
==>ce")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Sinc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	373	582	
==>sub {
                my ($self, $value) = @_;
                $self->set_value('$:value' => $value);                        
            },
            'scalar_const' => sub {
                0;
            }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5213	5316	
==>.$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5213	5316	
==>.$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5213	5316	
==>.$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	602	720	
==>nv
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nativ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1200	1310	
==>nv
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nativ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7	97	
==>e = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7	97	
==>e = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4353	4491	
==>($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_sou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4353	4491	
==>($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_sou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4353	4491	
==>($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_sou <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10230	10323	
==>ing_switches, @derived_switches );
}

=head2 C<_cleaned_switches>

  my @switches = $self->_cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	329	544	
==>nceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	329	544	
==>nceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	329	544	
==>nceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(e <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	69	171	
==>0.01';

use File::Copy;

# change these two lines if it turns out we need the real YAML.pm
use PugsBuil <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13182	13287	
==>ummary>
                <span class="tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29652	29749	
==>mes
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34204	34301	
==>mes
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33368	33465	
==>mes
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10306	10399	
==>$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8199	8292	
==>$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10306	10399	
==>$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
inse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8199	8292	
==>$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items inse <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9501	9620	
==>eturn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9501	9620	
==>eturn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9501	9620	
==>eturn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_disp <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3157	3255	
==>ment_expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3139	3315	
==>$count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3139	3315	
==>$count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3139	3315	
==>$count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1972	2082	
==>y = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { named_capture => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9694	9802	
==>rray = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9694	9802	
==>rray = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33891	33985	
==>nguage they prefer to communicate in, and what their backup choices are,
in order, if preferred <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33891	33985	
==>nguage they prefer to communicate in, and what their backup choices are,
in order, if preferred <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8490	8605	
==>ut.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.writ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6317	6413	
==>on't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6317	6413	
==>on't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6317	6413	
==>on't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6427	6650	
==>' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after im <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6427	6650	
==>' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after im <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6427	6650	
==>' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after im <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2297	2412	
==>args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/ <==
4	/Users/nnunley/pugs/util/testgraph.pl	1052	1149	
==>n HTML header (for broken webservers)
   --cssfile,  -c FILE  location of css. [default: $Config{c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4987	5098	
==>->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inse <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16023	16134	
==>->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inse <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17511	17622	
==>->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inse <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22194	22305	
==>->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub inse <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6109	6240	
==>{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6302	6433	
==>{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3319	3415	
==>lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3202	3295	
==>lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	995	1129	
==>t',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        4 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	995	1129	
==>t',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        4 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	70	166	
==>age type::equivalence;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1575	1695	
==>ew Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1575	1695	
==>ew Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1575	1695	
==>ew Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	978	1076	
==>signature;

use strict;
use warnings;

use base 'closure::signature';

package method::params;

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8631	8775	
==>}
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8631	8775	
==>}
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8631	8775	
==>}
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4808	4905	
==>signature->new(
            params  => closure::params->new(symbol->new('&dispatcher' => 'block')) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7426	7535	
==>t if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is cop <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7426	7535	
==>t if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is cop <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18620	18714	
==>y-codes,
which are hard-coded into your application or package, with one or more
text strings t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18620	18714	
==>y-codes,
which are hard-coded into your application or package, with one or more
text strings t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4094	4204	
==>s;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3221	3331	
==>s;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4094	4204	
==>s;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3221	3331	
==>s;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17597	17796	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18254	18453	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17876	18075	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18533	18732	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4461	4569	
==>_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4461	4569	
==>_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4461	4569	
==>_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12962	13076	
==>ric     => sub { "". ${$_[0]} },
      scalar_non_numeric => sub { "". ${$_[0]} },
      array => sub { "". @{$_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	765	865	
==>exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	765	865	
==>exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	765	865	
==>exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.j <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4256	4527	
==>and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	601	716	
==>rce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $toke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	601	716	
==>rce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $toke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	601	716	
==>rce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $toke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17039	17143	
==>$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1077	1172	
==>e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1077	1172	
==>e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1077	1172	
==>e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4553	4707	
==>ell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4553	4707	
==>ell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4553	4707	
==>ell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	818	934	
==>ows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $Perl6::Run::OnPerl5::X1::BB::pugs_args || "";
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9993	10186	
==>. 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10297	10474	
==>. 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9275	9437	
==>body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'C <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9275	9437	
==>body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2450	2577	
==>= shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array_extendSize($size - $ <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	13	120	
==>s Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %sp <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	13	120	
==>s Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1402	1497	
==>e "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1542	1637	
==>e "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1075	1204	
==>",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0,
    nparen => 0,
    captures => [],
    flags => [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1887	1983	
==>me =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1887	1983	
==>me =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1887	1983	
==>me =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8226	8369	
==>ed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8226	8369	
==>ed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8226	8369	
==>ed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20481	20590	
==>if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my($name)=@_;
    return "\$${RO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	285	386	
==>->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	285	386	
==>->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9240	9340	
==>nel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9240	9340	
==>nel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7572	7665	
==>h,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7572	7665	
==>h,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7572	7665	
==>h,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4865	4959	
==>lass, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', '... $Foo got the right meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3193	3346	
==>->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3193	3346	
==>->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3193	3346	
==>->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ", <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3450	3547	
==>eratorTable()->{""};

  ($matchObj, my $target, my $matchObjFrom, my $matchObjPos) = Parser::Rule: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1620	1710	
==>m:<?", "term:", "nows", &parse_subrule);
    $optable->addToken("term:<[", "term:", "nows", <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4093	4180	
==>@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4093	4180	
==>@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4093	4180	
==>@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is prim <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10573	10672	
==>ly a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10631	10730	
==>ly a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (St <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1629	1727	
==>not allocate containers.



the Body is just a structure with three node forms: Var

(variable look <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1563	1658	
==>not allocate containers.

the Body is just a structure with three node forms: Var
(variable look <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3299	3450	
==>qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter',
            ot <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9372	9470	
==>r: #550; }
  </style>

  <script type="text/javascript">//<![CDATA[[
    function toggle_visibility <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23433	23529	
==>ILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23433	23529	
==>ILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16839	16936	
==>rarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
at <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2238	2335	
==>pression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2238	2335	
==>pression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16839	16936	
==>rarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21009	21184	
==>ocal" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21288	21463	
==>ocal" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variab <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3744	3834	
==>ctive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3744	3834	
==>ctive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5845	5952	
==>';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, mayb <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5845	5952	
==>';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, mayb <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7718	7815	
==>ethod is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7718	7815	
==>ethod is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3601	3741	
==>doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4918	5058	
==>doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3601	3741	
==>doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4906	5046	
==>doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	822	943	
==>> "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	822	943	
==>> "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	822	943	
==>> "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26879	26979	
==>s => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	45	147	
==>5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	45	147	
==>5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	45	147	
==>5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21495	21585	
==>PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Regexp::Parser::logical: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7968	8066	
==>s an ordered set of spans.

The problem this class solves is when you need do perform "set" operati <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7968	8066	
==>s an ordered set of spans.

The problem this class solves is when you need do perform "set" operati <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	134	231	
==>]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	134	231	
==>]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	586	745	
==>" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	586	745	
==>" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	586	745	
==>" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	115	228	
==>b new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5216	5339	
==>ensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5216	5339	
==>ensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5216	5339	
==>ensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3758	3864	
==>the right x for p1');
is($p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1383	1487	
==>nt_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1383	1487	
==>nt_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1383	1487	
==>nt_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4381	4477	
==>>]>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5854	5974	
==>t($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5854	5974	
==>t($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5854	5974	
==>t($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7336	7447	
==>@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define these all in terms of kv, and leave kv a stub <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1075	1172	
==>Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1075	1172	
==>Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18491	18584	
==>he perl regcompp and regexecp hooks (C functions
which get called on regular expression compil <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2781	2874	
==>he perl regcompp and regexecp hooks (C functions
which get called on regular expression compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11420	11583	
==>ch = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7702	7865	
==>ch = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8536	8699	
==>ch = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', D <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	298	404	
==>NAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION

A simple asse <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11404	11536	
==>$.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( In <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11404	11536	
==>$.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( In <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4930	5027	
==>S

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4930	5027	
==>S

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1047	1159	
==>$key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    return $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2064	2169	
==>ontains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2064	2169	
==>ontains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2064	2169	
==>ontains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15868	15982	
==>t => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10724	10838	
==>t => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22674	22766	
==>o change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22674	22766	
==>o change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3989	4269	
==>plit(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3989	4269	
==>plit(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7325	7440	
==>, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7077	7190	
==>, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	342	444	
==>lete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists are <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	342	444	
==>lete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists are <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	632	728	
==>ch is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' ski <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	632	728	
==>ch is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' ski <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4302	4433	
==>(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4302	4433	
==>(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4302	4433	
==>(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = op <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11113	11210	
==>kage ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata removed") <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10266	10364	
==>plan. A plan is simply the number of tests which are
expected to run. This should be specified at t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10324	10422	
==>plan. A plan is simply the number of tests which are
expected to run. This should be specified at t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6347	6443	
==>hough not technically part of the API, most ciphers will want to implement 
a constructor with C< <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6347	6443	
==>hough not technically part of the API, most ciphers will want to implement 
a constructor with C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	686	801	
==>this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	686	801	
==>this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	686	801	
==>this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7065	7199	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7258	7392	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24400	24514	
==>{
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24400	24514	
==>{
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24400	24514	
==>{
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	831	939	
==>t is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	831	939	
==>t is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8588	8692	
==>trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8588	8692	
==>trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will re <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13573	13687	
==>h(my $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5246	5343	
==>lets you to
do anything you like with each object, but is (at least nominally)
intended to allow f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5246	5343	
==>lets you to
do anything you like with each object, but is (at least nominally)
intended to allow f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5246	5343	
==>lets you to
do anything you like with each object, but is (at least nominally)
intended to allow f <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2284	2381	
==>the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2284	2381	
==>the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20258	20353	
==>m package.  No
recompilation necessary.  This is something that end users could do,
although pro <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20258	20353	
==>m package.  No
recompilation necessary.  This is something that end users could do,
although pro <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1464	1562	
==>nt = $indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14326	14408	
==>ss.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14326	14408	
==>ss.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14326	14408	
==>ss.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1008	1117	
==>aque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1008	1117	
==>aque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1008	1117	
==>aque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	44	140	
==>n;
my $Path = catfile( tmpdir(), "pugs-session" );
mkdir($Path) unless -e $Path;

sub SessionInit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4391	4508	
==>tance_attrs($self)->{'%:methods'}->{$label};
        },
        'add_method' => sub ($$$) {
            my ($self, $la <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1596	1707	
==>= args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1596	1707	
==>= args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1596	1707	
==>= args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===> <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13669	13816	
==>,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3798	3933	
==>,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3798	3933	
==>,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3798	3933	
==>,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	320	448	
==>ut, $message;
    }

    method diag ( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method outpu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6894	7003	
==>my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6952	7061	
==>my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Tes <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	926	1032	
==>-\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, s <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	926	1032	
==>-\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	125	237	
==>rent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	125	237	
==>rent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3226	3336	
==>rn $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4075	4185	
==>rn $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	12	111	
==>s::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	12	111	
==>s::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	12	111	
==>s::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTI <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1413	1506	
==>r
using Test::Simple.  Test::Harness is the module that reads the
output from Test::Simple, Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3469	3587	
==>d('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3469	3587	
==>d('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3469	3587	
==>d('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        co <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28147	28238	
==>cribe,"\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Languag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14750	14863	
==>'FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14750	14863	
==>'FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14750	14863	
==>'FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETC <==
4	/Users/nnunley/pugs/util/package-osx.pl	8014	8111	
==>erl6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec::Package.3pm
        /usr/local/m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9060	9172	
==>+SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5936	6035	
==>end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5936	6035	
==>end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1542	1672	
==>e( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1542	1672	
==>e( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1542	1672	
==>e( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5188	5281	
==>lf->{admin} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' p <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5827	5927	
==>is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
} <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5827	5927	
==>is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1978	2071	
==>r>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1978	2071	
==>r>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	669	785	
==>ach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} unless @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	10	114	
==>gs;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	10	114	
==>gs;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	10	114	
==>gs;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	168	279	
==>kend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->g <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	241	352	
==>kend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->g <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13163	13261	
==>C AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `g <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13163	13261	
==>C AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4967	5073	
==>ake_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4967	5073	
==>ake_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4967	5073	
==>ake_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaq <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	64	157	
==>ase qw/Blondie::Compiler/;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1701	1810	
==>ar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1761	1870	
==>ar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11699	11795	
==>lues
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11699	11795	
==>lues
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	436	539	
==>att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "charact <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	436	539	
==>att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "charact <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25386	25484	
==>A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25386	25484	
==>A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2343	2430	
==>thod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2343	2430	
==>thod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2343	2430	
==>thod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->ad <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	60	145	
==>n::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnP <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23239	23411	
==>sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3540	3641	
==>, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3540	3641	
==>, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3540	3641	
==>, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4345	4470	
==>tch->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4345	4470	
==>tch->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	452	558	
==>self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	452	558	
==>self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12109	12198	
==>Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints thi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12109	12198	
==>Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints thi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	812	900	
==>ine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSIO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	812	900	
==>ine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSIO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19338	19495	
==>ss}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fall <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19338	19495	
==>ss}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fall <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19338	19495	
==>ss}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fall <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1566	1674	
==>ew();
    return nil->new();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($sta <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1282	1415	
==>my $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3289	3397	
==>elf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3289	3397	
==>elf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3289	3397	
==>elf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	734	849	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	734	849	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	734	849	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	700	804	
==>$self->prepare_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = times <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12754	12861	
==>ed libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4439	4542	
==>but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4439	4542	
==>but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4439	4542	
==>but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	842	995	
==>$_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my $value = shift;
        ble <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7563	7664	
==>yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7621	7722	
==>yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Tes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3332	3431	
==>so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3332	3431	
==>so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnic <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3842	4066	
==>e);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $args = '';
                foreach my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6940	7051	
==>);
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6940	7051	
==>);
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6940	7051	
==>);
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	939	1056	
==>need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.prin <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	939	1056	
==>need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7688	7784	
==>_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a stri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7427	7520	
==>_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a stri <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1845	2068	
==>raft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Arr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	59	161	
==>se Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modul <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	54	156	
==>se Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modul <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	54	156	
==>se Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Modul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17385	17513	
==>Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${& <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13806	13934	
==>Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${& <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	507	604	
==>.],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VAL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	507	604	
==>.],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33726	33871	
==>_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33726	33871	
==>_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33726	33871	
==>_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	215	321	
==>'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1537	1633	
==>et.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1537	1633	
==>et.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1537	1633	
==>et.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4647	4756	
==>amedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4647	4756	
==>amedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4647	4756	
==>amedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->nam <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2265	2356	
==>ed.
Also to iblech, and Michael Schilli of JavaScript::SpiderMonkey, whose
successful work g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8409	8530	
==>rray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8409	8530	
==>rray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8409	8530	
==>rray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2424	2536	
==>r.

=over 4

=item Thunk

Something you thunk of but haven't yet executed.

For example:

    Val(
        Thunk( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4288	4382	
==>s the receivied and expected lines from the previously run tests,
passing if both the diagnosti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4288	4382	
==>s the receivied and expected lines from the previously run tests,
passing if both the diagnosti <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35097	35191	
==>) method defined in F<Regexp::Parser::branch>,
which is used when two of the same node are matc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4368	4462	
==>s the receivied and expected lines from the previously run tests,
passing if both the diagnosti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1549	1657	
==>2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1549	1657	
==>2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1549	1657	
==>2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1932	2032	
==>=~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8140	8234	
==>nce(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7270	7364	
==>nce(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8140	8234	
==>nce(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7270	7364	
==>nce(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23897	24046	
==>method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23897	24046	
==>method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23897	24046	
==>method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2753	2901	
==>lf->config;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $self->pool,
            $self->index,
    );

    for <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6208	6394	
==>ns[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6208	6394	
==>ns[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6832	6938	
==>ol',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6832	6938	
==>ol',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31051	31173	
==>bol->new('_make_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	736	857	
==>"__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	736	857	
==>"__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	736	857	
==>"__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // m <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	736	839	
==>agA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	736	839	
==>agA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7357	7458	
==>oid {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_ord <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7357	7458	
==>oid {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_ord <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2981	3092	
==>ither:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3138	3249	
==>ither:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cu <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2981	3092	
==>ither:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cu <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3138	3249	
==>ither:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0beta5.

=cu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1315	1408	
==>use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$E <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14126	14243	
==>s very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10299	10416	
==>s very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11135	11252	
==>s very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1638	1739	
==>ed,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27059	27170	
==>base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19231	19326	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STOR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19231	19326	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STOR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19231	19326	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STOR <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	629	749	
==>=> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	645	765	
==>=> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	621	741	
==>=> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{n <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1516	1621	
==>c(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1090	1192	
==>warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core method instan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1623	1714	
==>unction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1623	1714	
==>unction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1623	1714	
==>unction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/util/package-osx.pl	6712	6809	
==>ine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17290	17382	
==>dd_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17290	17382	
==>dd_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17290	17382	
==>dd_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11449	11622	
==>(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prope <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11449	11622	
==>(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prope <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11449	11622	
==>(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can prope <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9944	10043	
==>n reference.  When called in scalar
context, it returns the next node:

  while (my $node = $iter->( <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1543	1655	
==>ted";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1543	1655	
==>ted";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23739	23834	
==>rder, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23739	23834	
==>rder, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10552	10713	
==>args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro comp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6893	7054	
==>args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7742	7903	
==>args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro comp <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6411	6555	
==>11,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26914	27010	
==>ation>

This method is the same as C<project> but that the returned Relation has
the complement s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31466	31562	
==>ation>

This method is the same as C<project> but that the returned Relation has
the complement s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3097	3653	
==>lation::Heading

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22317	22434	
==>splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22317	22434	
==>splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22317	22434	
==>splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2074	2169	
==>rn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2074	2169	
==>rn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2074	2169	
==>rn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>}) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7654	7749	
==>t|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int|List )

Iterate <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1838	1956	
==>f here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1838	1956	
==>f here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_C <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1044	1298	
==>y};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en - <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1044	1298	
==>y};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14701	14813	
==>ut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($tex <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14701	14813	
==>ut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6112	6248	
==>end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6112	6248	
==>end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6112	6248	
==>end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2567	2675	
==>lic_indirect_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3804	3900	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4137	4233	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3804	3900	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4137	4233	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3688	3793	
==>ymbol = $body;");

	return $symbol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1258	1354	
==>{ 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1258	1354	
==>{ 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1258	1354	
==>{ 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2267	2441	
==>_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2267	2441	
==>_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2267	2441	
==>_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4273	4395	
==>lass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4273	4395	
==>lass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4273	4395	
==>lass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38456	38572	
==>nd C<not_matching>.

=item C<semijoin (Relation::Example $other!) returns Relation::Example>

This method is a generi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2804	2978	
==>rs = (
            $self->root,
            $self->pool,
            $self->index,
    );

    for my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1320	1421	
==>IL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1320	1421	
==>IL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1320	1421	
==>IL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4252	4353	
==>p since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fil <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5149	5250	
==>p since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4252	4353	
==>p since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5149	5250	
==>p since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @fil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6454	6749	
==>No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::is <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6918	7213	
==>No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2277	2425	
==>cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2277	2425	
==>cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9305	9397	
==>operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9500	9592	
==>operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9695	9787	
==>operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11351	11443	
==>operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5176	5299	
==>ed closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        univer <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5176	5299	
==>ed closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        univer <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24887	24975	
==>0,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24569	24816	
==>'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1245	1340	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1245	1340	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1245	1340	
==>ne('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2]. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27366	27472	
==>ges to its attributes; they
must all be set when the object is constructed.  If you want to
conceptually ch <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34892	34998	
==>ges to its attributes;
they must all be set when the object is constructed.  If you want to
conceptually ch <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27366	27472	
==>ges to its attributes; they
must all be set when the object is constructed.  If you want to
conceptually ch <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34892	34998	
==>ges to its attributes;
they must all be set when the object is constructed.  If you want to
conceptually ch <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	723	817	
==>ath, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $n <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	723	817	
==>ath, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15089	15206	
==>'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -& <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15089	15206	
==>'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -& <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15089	15206	
==>'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -& <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1051	1144	
==>ime object is responsible for providing the compiler with replacement
data for stubs and other <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	670	854	
==>events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	670	854	
==>events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9758	9851	
==>function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9758	9851	
==>function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" u <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4760	4881	
==>s);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4818	4939	
==>s);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19392	19479	
==>ne> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19392	19479	
==>ne> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C< <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4115	4256	
==>}
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>(' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4115	4256	
==>}
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events<start_element>(' <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4072	4211	
==>}
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>(' <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4072	4211	
==>}
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events<start_element>(' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	481	597	
==>' ');

 multi sub map (Code $expression ; *@values) returns List {
   gather {
     while @values {
       take $expr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8073	8179	
==>= "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8073	8179	
==>= "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8073	8179	
==>= "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1209	1332	
==>me_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\: <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1209	1332	
==>me_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\: <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3892	3990	
==>r-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3892	3990	
==>r-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1123	1219	
==>ers:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a paramete <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1123	1219	
==>ers:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a paramete <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1044	1152	
==>The alternative seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	701	801	
==>ric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	701	801	
==>ric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	701	801	
==>ric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25472	25646	
==>'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26130	26304	
==>'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25751	25925	
==>'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26409	26583	
==>'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15182	15306	
==>return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15182	15306	
==>return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15182	15306	
==>return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7541	7635	
==>hod has_method ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (symbol new <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24520	24638	
==>t include, or NULL
 *  [regmust changed to SV* for bminstr()--law]

Confined to regcomp/regexec.

 * regmlen      lengt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17316	17407	
==>_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17316	17407	
==>_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17316	17407	
==>_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8071	8198	
==>ain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $bloc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8071	8198	
==>ain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $bloc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12146	12253	
==>rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12146	12253	
==>rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	435	532	
==>def;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14985	15082	
==>y the author's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers for C<< < >> and C<< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	435	532	
==>def;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	435	532	
==>def;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------- <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15834	15941	
==>($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_ti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2231	2334	
==>($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_ti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1916	2006	
==>sents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> ob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2005	2095	
==>sents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> ob <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2750	2852	
==>eviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") re <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2750	2852	
==>eviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	689	813	
==>&& $attrs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $O <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2799	2898	
==>ildren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2799	2898	
==>ildren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26857	26991	
==>rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27136	27270	
==>rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2030	2133	
==>wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    s <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2030	2133	
==>wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3503	3603	
==>$class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self;
}

package type::oper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4802	4895	
==>ULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4802	4895	
==>ULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4802	4895	
==>ULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12606	12715	
==>o()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12606	12715	
==>o()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12606	12715	
==>o()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30082	30174	
==>a short-hand or alternative for the functionality provided
by the 5 generic relational operat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34634	34726	
==>a short-hand or alternative for the functionality provided
by the 5 generic relational operat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33807	33899	
==>a short-hand or alternative for the functionality provided
by the 5 generic relational operat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8615	8704	
==>e::TypeSafe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1139	1241	
==>tput object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is expo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1139	1241	
==>tput object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is expo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1219	1321	
==>tput object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is expo <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1002	1185	
==>ME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unles <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1002	1185	
==>ME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16468	16592	
==>5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here.. <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16468	16592	
==>5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10284	10434	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10284	10434	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10284	10434	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied h <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6821	6916	
==>=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4173	4268	
==>=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6821	6916	
==>=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4173	4268	
==>=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	2	109	
==>e warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	2	109	
==>e warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	2	109	
==>e warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { lo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4602	4697	
==>her) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns op <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2195	2291	
==>($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2195	2291	
==>($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2195	2291	
==>($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	906	1016	
==>/ &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	906	1016	
==>/ &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	906	1016	
==>/ &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPI <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6333	6412	
==>cl','\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24558	24652	
==>d parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29110	29204	
==>d parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27986	28080	
==>d parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9616	9731	
==>($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the pa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9616	9731	
==>($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	810	913	
==>->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	810	913	
==>->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9726	9828	
==>y;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9726	9828	
==>y;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9726	9828	
==>y;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26755	26850	
==>(+ 10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t pair(10)");
is(t($pair), "(int × <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3636	3757	
==>l5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --prec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3636	3757	
==>l5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --prec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3636	3757	
==>l5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --prec <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9468	9573	
==>ax = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITESPACE, t <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19384	19515	
==>s"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14276	14368	
==>my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(lengt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14276	14368	
==>my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(lengt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14276	14368	
==>my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(lengt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26111	26204	
==>rranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26111	26204	
==>rranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15166	15254	
==>ewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2478	2585	
==>Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2478	2585	
==>Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2478	2585	
==>Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	846	948	
==>ub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->ma <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16604	16722	
==>=1 ? "script" : "scripts";
        die "FAILED--$tot->{tests} test $blurb could be run, ".
            "alas--no output <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10445	10556	
==>---------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10445	10556	
==>---------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10445	10556	
==>---------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8757	8895	
==>CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8757	8895	
==>CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8757	8895	
==>CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11362	11490	
==>ap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $v = $f->($close);
        $m->set_as_failed if FAILE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6025	6187	
==>nst eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => subst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6025	6187	
==>nst eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => subst <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1397	1490	
==>pport `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1397	1490	
==>pport `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2807	2951	
==>j->config( $config );
            
            ### if the metadir doesn't exist yet, this is a 'clean' dir,
            ### and we need to set it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5803	5925	
==>lete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5803	5925	
==>lete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5803	5925	
==>lete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	109	212	
==>s {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	109	212	
==>s {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	109	212	
==>s {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/util/package-osx.pl	4649	4747	
==>r/local/man/man3/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl6::Bible::S06.3pm
        /u <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8687	8856	
==>$count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $arra <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8687	8856	
==>$count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $arra <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8047	8144	
==>e deleted immediately.  This method should be as thorough as 
possible; for example, it should not <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8047	8144	
==>e deleted immediately.  This method should be as thorough as 
possible; for example, it should not <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	213	317	
==>k SubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	711	814	
==>And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	711	814	
==>And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	711	814	
==>And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Reble <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6644	6744	
==>sh @libs, grep /^-[lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$Config{so}\E)$/, @_;
    push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	393	487	
==>2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	393	487	
==>2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	393	487	
==>2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6441	6544	
==>turns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6441	6544	
==>turns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2625	2728	
==>ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2818	2921	
==>ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3677	3776	
==>BUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3677	3776	
==>BUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3862	3959	
==>$self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3862	3959	
==>$self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2456	2558	
==>ecessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2456	2558	
==>ecessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2456	2558	
==>ecessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2211	2313	
==>eturns method {
    while (my $current = &dispatcher.()) {
        return $current.get_method($label, % <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2667	2769	
==>{ use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2667	2769	
==>{ use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	671	763	
==>erl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	671	763	
==>erl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2296	2426	
==>PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2296	2426	
==>PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2296	2426	
==>PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6069	6214	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5199	5344	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6069	6214	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5199	5344	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	120	222	
==>1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return a unix time_t
method time_t( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6662	6756	
==>contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This prog <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6662	6756	
==>contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This prog <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6662	6756	
==>contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This prog <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9996	10108	
==>", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creating director <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7059	7158	
==>o_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7059	7158	
==>o_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7059	7158	
==>o_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1874	1968	
==>_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1874	1968	
==>_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1874	1968	
==>_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3499	3588	
==>TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->FETCH(' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	563	677	
==>otocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $met <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	563	677	
==>otocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $met <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1418	1531	
==>) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1418	1531	
==>) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12071	12223	
==>der_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12071	12223	
==>der_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	87	189	
==>ORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPOR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	87	189	
==>ORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPOR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11000	11099	
==>ores data to be used or
displayed by your program.  It is analagous to a simplified version of the
" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14163	14262	
==>ores data to be used or
displayed by your program.  It is analagous to a simplified version of the
" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11000	11099	
==>ores data to be used or
displayed by your program.  It is analagous to a simplified version of the
" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14163	14262	
==>ores data to be used or
displayed by your program.  It is analagous to a simplified version of the
" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2422	2531	
==>eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2422	2531	
==>eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2422	2531	
==>eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PI <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35695	35797	
==>will make to be look-aheads.  To
make an object, we need to access C<< $self->{rx} >>.

    my $consume <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6230	6380	
==>d against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6230	6380	
==>d against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6230	6380	
==>d against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          va <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14797	14887	
==>rse dont currently work.
%# XXX - more...
re_reverse(R,R).

%------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6615	6724	
==>program file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6615	6724	
==>program file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1102	1200	
==>>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"pri <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1102	1200	
==>>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"pri <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5653	5764	
==>*/

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4703	4791	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4703	4791	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4703	4791	
==>$self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}- <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9874	9986	
==>eter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9874	9986	
==>eter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.st <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15396	15494	
==>.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $ob <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15396	15494	
==>.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $ob <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5241	5349	
==>hod last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a pri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5241	5349	
==>hod last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a pri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18475	18574	
==>oop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18475	18574	
==>oop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2149	2286	
==>{      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2149	2286	
==>{      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2149	2286	
==>{      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attrib <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1512	1612	
==>d, creating re-override, intending to provide just such
# a usable module.  Any further efforts shoul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1510	1599	
==>ls::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Inter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1510	1599	
==>ls::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Inter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1510	1599	
==>ls::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Inter <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24638	24736	
==>ent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23402	23500	
==>ent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24638	24736	
==>ent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23402	23500	
==>ent is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is f <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	637	737	
==>uctor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	637	737	
==>uctor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8881	8994	
==>or writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	615	728	
==>or writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8881	8994	
==>or writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8881	8994	
==>or writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1673	1775	
==>iled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1673	1775	
==>iled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1673	1775	
==>iled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28676	28771	
==>j->family()

The general family of this object.  These are any of: alnum, anchor,
anyof, anyof_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12050	12183	
==>_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'quant',
      data => $data,
      min => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6652	6753	
==>ion () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6652	6753	
==>ion () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6652	6753	
==>ion () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12222	12338	
==>ram }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12222	12338	
==>ram }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12222	12338	
==>ram }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	75	176	
==>use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5108	5230	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5108	5230	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5108	5230	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$clas <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1669	1775	
==>on
    Outputs the version of this program and exits.
  --help
    Show this help.

Options may be abbrevia <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14149	14476	
==>me        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10786	10894	
==>\@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10786	10894	
==>\@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10786	10894	
==>\@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name e <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1230	1469	
==>{
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1230	1469	
==>{
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P> <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1775	1877	
==>l 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some f <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1775	1877	
==>l 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15198	15300	
==>ap{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB asy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15198	15300	
==>ap{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB asy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15198	15300	
==>ap{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB asy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11127	11230	
==>nshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11127	11230	
==>nshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11127	11230	
==>nshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'li <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11921	12024	
==>on></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	203	339	
==>return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	203	339	
==>return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	203	339	
==>return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minl <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4280	4401	
==>-- so we don't do anything.
            # warn "*** Found more than one '$basename' -- using the first one. \n";
        } <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	952	1160	
==>et.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current scrip <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	952	1160	
==>et.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current scrip <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7776	7951	
==>d {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7776	7951	
==>d {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13524	13630	
==>(D) --> [D], { code_type(D, xdigit(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2173	2272	
==>t.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2173	2272	
==>t.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2173	2272	
==>t.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of consta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2400	2570	
==>turn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2710	2875	
==>turn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2710	2875	
==>turn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	941	1061	
==>oken->match($str) for 1..40},
        P6_Regex_x1   => sub{ $match = $rpc_regex->match($str) for 1..40},
        P5_reg <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19969	20074	
==>output path of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27955	28051	
==>on is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32507	32603	
==>on is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31599	31695	
==>on is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attrib <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2221	2338	
==>string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2221	2338	
==>string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15741	15840	
==>:Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

Th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15741	15840	
==>:Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

Th <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4372	4610	
==>tem' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4372	4610	
==>tem' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22782	22919	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23061	23198	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23943	24092	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24222	24371	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8223	8346	
==>,  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7941	8057	
==>,  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	622	720	
==>imply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	622	720	
==>imply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1318	1414	
==>$QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1318	1414	
==>$QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2741	2836	
==>der with the compiled version of the builtin
    $val->set($self->reduce($builtin));
}

__PACKAG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9591	9678	
==>g_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9591	9678	
==>g_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9591	9678	
==>g_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10512	10625	
==>safe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile reg <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10512	10625	
==>safe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile reg <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	251	364	
==>f $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{si <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	251	364	
==>f $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{si <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7977	8103	
==>v => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7704	7804	
==>revent the default version 
## of this from taking over which would make
## things like: FooRole.isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7704	7804	
==>revent the default version 
## of this from taking over which would make
## things like: FooRole.isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7704	7804	
==>revent the default version 
## of this from taking over which would make
## things like: FooRole.isa( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2470	2592	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2470	2592	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2470	2592	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($labe <==
4	/Users/nnunley/pugs/util/package-osx.pl	1428	1548	
==>n/pugscc
        /usr/local/bin/p6doc ../../bin/p6doc
    );

    %change_files = qw(
        /usr/local/lib/perl5/site_p <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	599	705	
==>Conf = $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2122	2218	
==>::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling... <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2122	2218	
==>::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling... <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2122	2218	
==>::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling... <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7017	7125	
==>if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4694	4796	
==>an in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4694	4796	
==>an in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6218	6320	
==>an in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1032	1266	
==>mal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUT <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1032	1266	
==>mal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUT <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	391	487	
==>.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	391	487	
==>.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	10	105	
==>gs::Compiler::Perl6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation in the __END_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25939	26033	
==>s duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30491	30585	
==>s duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29466	29560	
==>s duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
su <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	423	633	
==>args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1. <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	423	633	
==>args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1. <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	340	442	
==>)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in< <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	340	442	
==>)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in< <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	433	544	
==>_time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethes <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	433	544	
==>_time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4008	4103	
==>rn $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n') <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1315	1410	
==>rn $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n') <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	191	322	
==>r returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	191	322	
==>r returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3617	3720	
==>ard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3617	3720	
==>ard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	152	262	
==>es

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	152	262	
==>es

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4007	4086	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4007	4086	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3603	3709	
==>These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3603	3709	
==>These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3603	3709	
==>These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3227	3328	
==>undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sema <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3227	3328	
==>undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sema <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3227	3328	
==>undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sema <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1449	1542	
==>>inner_reduce($node);
	
	if (defined $symbol) {
		return $self->define($node, $symbol, $result <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5090	5217	
==>r
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5090	5217	
==>r
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11069	11167	
==>o a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a cont <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11069	11167	
==>o a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a cont <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14003	14171	
==>rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4100	4244	
==>rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4100	4244	
==>rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4100	4244	
==>rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is s <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	266	385	
==>$class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = sub {
            +shift- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4778	4883	
==>$jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4778	4883	
==>$jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4778	4883	
==>$jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	688	841	
==>V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	688	841	
==>V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	688	841	
==>V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3652	3758	
==>mp' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3652	3758	
==>mp' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3652	3758	
==>mp' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2940	3043	
==>c = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2940	3043	
==>c = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2940	3043	
==>c = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leav <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5466	5561	
==>ass method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	685	793	
==>nts <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	685	793	
==>nts <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7706	7820	
==>text for the message key, so
        # interpolate the message vars into it and return that.
        $text = .inter <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7706	7820	
==>text for the message key, so
        # interpolate the message vars into it and return that.
        $text = .inter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4121	4232	
==>e: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4338	4449	
==>e: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5141	5314	
==>lue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5141	5314	
==>lue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5141	5314	
==>lue->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => su <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	543	641	
==>her order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt is CxtV <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2835	2954	
==>"$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$c <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2835	2954	
==>"$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18594	18689	
==>each member in a set of key-codes,
which are hard-coded into your application or package, with o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18594	18689	
==>each member in a set of key-codes,
which are hard-coded into your application or package, with o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19635	19834	
==>mp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19635	19834	
==>mp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19635	19834	
==>mp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11244	11358	
==>? 1 : undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2909	3021	
==>otproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Fo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2909	3021	
==>otproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9320	9413	
==>t>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2132	2223	
==>t>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::Te <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	541	646	
==>%parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        f <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	541	646	
==>%parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        f <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	409	500	
==>$node if $node.defined;   
}

## ----------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	409	500	
==>$node if $node.defined;   
}

## ----------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5798	5920	
==>1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5798	5920	
==>1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5798	5920	
==>1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2692	2814	
==>{
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2692	2814	
==>{
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2692	2814	
==>{
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	561	655	
==>e typemap to make all those stuff live in Inline::Parrot::PMC
our $interpreter;
use overload '0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13780	13906	
==>::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13780	13906	
==>::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13780	13906	
==>::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical') <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3071	3179	
==>ted_array    { \@ <name> <element_expr>? }
rule interpolated_hash     { \% <name> <element_expr>? }
# XXX - k <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8569	8675	
==>since all types of
    # packages share the same namespace; any incompat will be caught later.
    return : <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8569	8675	
==>since all types of
    # packages share the same namespace; any incompat will be caught later.
    return : <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	231	319	
==>ugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	264	352	
==>ugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11695	11810	
==>see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Car <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11695	11810	
==>see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Car <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11695	11810	
==>see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Car <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	284	400	
==>Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not exist\n" unless -d $meta;
    
    my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1333	1431	
==>nces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4018	4116	
==>self) = @_;
  $self->parse if $self->{stack};
  my $vis = join "", map($_->visual, @{ $self->{tree} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1333	1431	
==>nces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1333	1431	
==>nces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# M <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8454	8566	
==>ating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an i <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8454	8566	
==>ating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16293	16389	
==>h of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programmi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16293	16389	
==>h of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programmi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6147	6244	
==>al(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7223	7316	
==>> '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7223	7316	
==>> '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7223	7316	
==>> '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7431	7601	
==>cies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_sat <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	732	902	
==>cies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_sat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20031	20115	
==>nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20031	20115	
==>nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	570	674	
==>{ all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	570	674	
==>{ all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	570	674	
==>{ all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - st <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5799	5901	
==>umper::Dumper($expected_type) unless defined $self->simplify_type($expected_type);

		return $node if $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	4623	4726	
==>Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl6::Bibl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	427	519	
==>print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-prin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	388	480	
==>print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	388	480	
==>print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-prin <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	500	628	
==>{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  package_prefix( $_->[1]->{package} ) . '- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3372	3495	
==>, return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcdi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10134	10244	
==>_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $sel <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10134	10244	
==>_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3907	4030	
==>ll not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3907	4030	
==>ll not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6729	6826	
==>in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6729	6826	
==>in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1158	1255	
==>under a BSD-style license.  See the F<LICENCE> file for details.

This program is free software; y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20305	20394	
==>)) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20305	20394	
==>)) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20305	20394	
==>)) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::id <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1173	1394	
==>erl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1173	1394	
==>erl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13617	13714	
==>odules and you
find there is some language feature missing, or core bug that needs to
be sorted ou <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13675	13772	
==>odules and you
find there is some language feature missing, or core bug that needs to
be sorted ou <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15213	15334	
==>$when = time) returns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9517	9624	
==>pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9517	9624	
==>pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9517	9624	
==>pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10334	10433	
==>s.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users wh <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10334	10433	
==>s.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users wh <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	191	286	
==>TE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	191	286	
==>TE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18120	18250	
==>ify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18120	18250	
==>ify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18120	18250	
==>ify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	409	522	
==>e efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	409	522	
==>e efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	409	522	
==>e efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2161	2294	
==>ess $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2161	2294	
==>ess $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2161	2294	
==>ess $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13228	13323	
==>s not very portable to broken (no compiler) microsoft systems.

  The implementation reaches int <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4071	4222	
==>ache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4071	4222	
==>ache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                fo <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11146	11239	
==>returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11146	11239	
==>returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_ch <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4316	4438	
==>) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7793	7915	
==>) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6777	6899	
==>) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9070	9213	
==>to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9070	9213	
==>to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9070	9213	
==>to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Conta <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1377	1475	
==>and has been alocated $symbol" if defined $symbol;

	my $result = $self->inner_reduce($node);
	
	if <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15197	15311	
==>ontrol ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21114	21213	
==>he attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25666	25765	
==>he attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24281	24380	
==>he attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16724	16935	
==>m_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16724	16935	
==>m_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16724	16935	
==>m_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45417	45505	
==>mespace') => attribute->new('%:namespace' => 'hash')));


$::Package->send('add_method' = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40124	40224	
==>PL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24815	24915	
==>PL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40124	40224	
==>PL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24815	24915	
==>PL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14314	14464	
==>? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14314	14464	
==>? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14314	14464	
==>? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1620	1764	
==>my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21955	22072	
==>n => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6691	6789	
==>s!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6691	6789	
==>s!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6691	6789	
==>s!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14093	14225	
==>tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14093	14225	
==>tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14093	14225	
==>tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3114	3246	
==>S.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3114	3246	
==>S.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3114	3246	
==>S.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    f <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2509	2625	
==>er->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ahead'};
      if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18089	18214	
==>, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17127	17252	
==>, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaul <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18089	18214	
==>, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaul <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17127	17252	
==>, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaul <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	27	137	
==>Gen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	27	137	
==>Gen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14271	14365	
==>raising an exception (C<die>), but the caller of scan()
would have to trap the exception itself <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14271	14365	
==>raising an exception (C<die>), but the caller of scan()
would have to trap the exception itself <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22523	22630	
==>RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18944	19051	
==>RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1317	1416	
==>tr $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1317	1416	
==>tr $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	523	629	
==>>($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8790	8895	
==>>($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8790	8895	
==>>($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8790	8895	
==>>($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	924	1074	
==>et = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	924	1074	
==>et = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	924	1074	
==>et = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35196	35293	
==>This method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35196	35293	
==>This method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15913	16009	
==>ooks and papers and taught classes on the subject over the last
35+ years, along with Codd himsel <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15913	16009	
==>ooks and papers and taught classes on the subject over the last
35+ years, along with Codd himsel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	944	1039	
==>bject created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	944	1039	
==>bject created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5917	6026	
==>$_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5917	6026	
==>$_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5297	5399	
==>alue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5297	5399	
==>alue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5297	5399	
==>alue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, bu <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13873	13975	
==>=> sub { system "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating directory \ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14669	14772	
==>>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryExpression>
}
rule Multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4242	4332	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4242	4332	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4242	4332	
==>:IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	249	352	
==>:Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	150	253	
==>:Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	249	352	
==>:Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	249	352	
==>:Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40304	40400	
==>e must carry
prominent notices stating that you changed the files and the date of any
changes, in <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25828	25924	
==>e must carry prominent
notices stating that you changed the files and the date of any changes, in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40304	40400	
==>e must carry
prominent notices stating that you changed the files and the date of any
changes, in <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25828	25924	
==>e must carry prominent
notices stating that you changed the files and the date of any changes, in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	21	271	
==>6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $numb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6210	6365	
==>'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6210	6365	
==>'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6210	6365	
==>'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11260	11389	
==>_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11260	11389	
==>_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10505	10626	
==>_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10505	10626	
==>_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7017	7119	
==>ule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7029	7131	
==>ule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	291	424	
==>at = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	291	424	
==>at = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	291	424	
==>at = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'A <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1297	1400	
==>e_re();

my $s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"con <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	341	465	
==>ERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3077	3174	
==>n of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3077	3174	
==>n of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1784	1873	
==>or::binary: inner_layout($$) = { join(" ", layout($.left), $.symbol, layout($.right)) }
ty <==
4	/Users/nnunley/pugs/util/fixauthors.pl	85	209	
==>uilder;

binmode(STDOUT, ":utf8");
binmode(STDIN,  ":utf8");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1055	1149	
==>rapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object an <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1055	1149	
==>rapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object an <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	78	171	
==>= 0.02;

=head1 NAME

Test::Harness::Iterator - Internal Test::Harness Iterator

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1779	1874	
==>ers the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, w <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1779	1874	
==>ers the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, w <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	397	488	
==>def }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	397	488	
==>def }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6360	6464	
==>t ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6144	6247	
==>t ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be de <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12535	12633	
==>turns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12535	12633	
==>turns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_inf <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1972	2092	
==>f = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens }, <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1972	2092	
==>f = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens }, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1873	2001	
==>ng?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5350	5478	
==>ng?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4280	4408	
==>ng?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4235	4346	
==>cls eq 'str') if !((~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1783	1913	
==>unk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1783	1913	
==>unk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1783	1913	
==>unk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	482	596	
==>,$ok,$thing,$value,@rest)=split(/\t/,$line);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8154	8276	
==>n '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8166	8288	
==>n '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dump <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	579	684	
==>l packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attribut <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	579	684	
==>l packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attribut <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1228	1329	
==>d - spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1228	1329	
==>d - spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10549	10646	
==>unction. This is primarily a release
tool, but can be useful in other contexts as well.

== Testin <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10607	10704	
==>unction. This is primarily a release
tool, but can be useful in other contexts as well.

== Testin <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4115	4346	
==>eading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespace before re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1382	1482	
==>rencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1382	1482	
==>rencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1382	1482	
==>rencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	919	1056	
==>" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	932	1060	
==>" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15098	15198	
==>ader.  The header value is set if you pass
an argument to the method.  The old header value is always <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15098	15198	
==>ader.  The header value is set if you pass
an argument to the method.  The old header value is always <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2976	3095	
==>e( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2987	3106	
==>e( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23646	23866	
==>calar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23646	23866	
==>calar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23646	23866	
==>calar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'e <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3428	3549	
==>rt ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3428	3549	
==>rt ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	36	134	
==>he 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warning <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	36	134	
==>he 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warning <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4756	4939	
==>y->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4756	4939	
==>y->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4756	4939	
==>y->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fet <==
4	/Users/nnunley/pugs/util/package-osx.pl	11789	11889	
==>est) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.pass");
}

&change_files($dest, %change <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10948	11053	
==>CHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10948	11053	
==>CHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10948	11053	
==>CHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	108	210	
==>density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	108	210	
==>density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, en <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2076	2174	
==>TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2076	2174	
==>TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6413	6517	
==>ndlers> for information
about sub-classing this module.

=head1 DESCRIPTION

This module parses regular e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6744	6847	
==>r PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6744	6847	
==>r PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6744	6847	
==>r PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24593	24732	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24872	25011	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	431	550	
==>$line =~ /^#/;
        $prompt = $1   if $line =~ /^#\s*prompt:\s+(.*)/;
        $default = $1  if $line =~ /^#\s*defaul <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8690	8793	
==>strap subclass,
such as a PHP interpreter for a PHP-based strap.

=cut

sub _command {
    my $self = sh <==
4	/Users/nnunley/pugs/util/grokprims.pl	2059	2178	
==>??";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14363	14476	
==>o:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14363	14476	
==>o:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6010	6111	
==>Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exception ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6010	6111	
==>Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exception ( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	274	419	
==>$.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	274	419	
==>$.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3047	3146	
==>pan::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3047	3146	
==>pan::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Sp <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5341	5488	
==>ystem($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9583	9670	
==>_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9583	9670	
==>_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9583	9670	
==>_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_us <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	556	690	
==>.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	556	690	
==>.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22698	22800	
==>[0]->$f(splice(@args,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Appl <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	57	150	
==>block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{block}

Zum auskommentieren mehrerer Zei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4913	5020	
==>rg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4913	5020	
==>rg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4913	5020	
==>rg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub. <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3641	3730	
==>lback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5301	5403	
==>urns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5301	5403	
==>urns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16179	16273	
==>ther one displays it to the
user instead.

Locale::KeyedText provides a simple but effective me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16179	16273	
==>ther one displays it to the
user instead.

Locale::KeyedText provides a simple but effective me <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	328	445	
==>B::Source object from '$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source package from <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1647	1746	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1647	1746	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1647	1746	
==>ox.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23970	24080	
==>ervers too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22743	22853	
==>ervers too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23970	24080	
==>ervers too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22743	22853	
==>ervers too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2322	2439	
==>VER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_A <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2322	2439	
==>VER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_A <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4163	4282	
==>ruct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	307	425	
==>ngth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	307	425	
==>ngth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	307	425	
==>ngth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2J <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10978	11126	
==>op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abort <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8046	8189	
==>op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abort <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8046	8189	
==>op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abort <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1607	1731	
==>ble';

    rule named_capture_body {
          [ \( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	869	1108	
==>ode->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fontcolor = grey60, "
                            :
                            "color = green, " .
                            "fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2479	2589	
==>ly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $j <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2479	2589	
==>ly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $j <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2826	2936	
==>ly => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $j <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	947	1091	
==>unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	908	1047	
==>unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1055	1160	
==>lf->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1946	2051	
==>lf->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8167	8297	
==>{
    my($x)=@_;
    my $s;
    return '(undef)' if !defined $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(", <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10044	10147	
==>return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10323	10426	
==>return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3365	3464	
==>em'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1111	1219	
==>registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1707	1799	
==>gs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1707	1799	
==>gs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1707	1799	
==>gs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2274	2411	
==>} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2201	2331	
==>} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2591	2703	
==>eparator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2591	2703	
==>eparator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15585	15688	
==>l = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $Verbose;

    return($le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	435	529	
==>use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	435	529	
==>use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	435	529	
==>use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	249	348	
==>, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	249	348	
==>, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	249	348	
==>, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	231	319	
==>ler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11961	12074	
==>me ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scal <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12393	12506	
==>me ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scal <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11961	12074	
==>me ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scal <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12393	12506	
==>me ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scal <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11875	11975	
==>moved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9022	9122	
==>moved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11875	11975	
==>moved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9022	9122	
==>moved.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32341	32487	
==>length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32341	32487	
==>length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32341	32487	
==>length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	512	611	
==>Test::Harness::Straps;

  my $strap = Test::Harness::Straps->new;

  # Various ways to interpret a t <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1937	2079	
==>ction {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_e <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1937	2079	
==>ction {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_e <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	308	412	
==>macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since macr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	308	412	
==>macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since macr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30187	30279	
==>d>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34739	34831	
==>d>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33912	34004	
==>d>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1185	1430	
==>q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.4 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1185	1430	
==>q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.4 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	499	605	
==>} @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	499	605	
==>} @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7829	7976	
==>pand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7829	7976	
==>pand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7829	7976	
==>pand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	711	821	
==>ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	711	821	
==>ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6154	6252	
==>'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'un <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6154	6252	
==>'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4211	4375	
==>d} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4211	4375	
==>d} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4211	4375	
==>d} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            }, <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	258	351	
==>"perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	252	350	
==>CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	252	350	
==>CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	252	350	
==>CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	270	364	
==>File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'Module::Install';
*inc::Module <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1165	1266	
==>tEnum;
    has $.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34832	34928	
==>and that match any tuples of C<$other> along
their common attributes.  This method will fail if t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39382	39478	
==>and that match any tuples of C<$other> along
their common attributes.  This method will fail if t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38915	39011	
==>and that match any tuples of C<$other> along
their common attributes.  This method will fail if t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3288	3414	
==>die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3288	3414	
==>die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3288	3414	
==>die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	167	277	
==>ontrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	167	277	
==>ontrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	167	277	
==>ontrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14804	14899	
==>omplain->("non_numeric") },
      scalar_numeric     => sub { $as_hash_complain->("scalar_numeri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9280	9438	
==>mber      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1400	1546	
==>mber      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1400	1546	
==>mber      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17039	17151	
==>e ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > le <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11898	11991	
==>lear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11898	11991	
==>lear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2161	2253	
==>es the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2250	2342	
==>es the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Ru <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	935	1032	
==>nding tests

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo/exe/syn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4181	4272	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subcl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4181	4272	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subcl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4181	4272	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subcl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1398	1519	
==>ed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1398	1519	
==>ed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1398	1519	
==>ed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $op <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1003	1128	
==>ect to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given H <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1003	1128	
==>ect to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given H <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2375	2497	
==>e,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { v <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2375	2497	
==>e,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { v <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2722	2844	
==>e,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { v <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22128	22221	
==>aracter class, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpected" w <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7300	7421	
==>)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', unix <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4688	4791	
==>! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4688	4791	
==>! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4688	4791	
==>! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	40	159	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	40	159	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	40	159	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # X <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5769	5878	
==>ode = "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $n-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4962	5076	
==>ns ~type>

=item B<store (num, ~type) returns nil>

=item B<remove (num) returns nil>

=item B<slice (num, num) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1864	1969	
==>)
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1864	1969	
==>)
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1864	1969	
==>)
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1102	1210	
==>ted here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1102	1210	
==>ted here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1102	1210	
==>ted here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, B <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	530	629	
==>{ companion => "superclasses" });

# every Meta::Class is a part of an object model object called th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11638	11733	
==>el , any Class instances, themselves does Role since they
are just instances of Class which does <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11638	11733	
==>el , any Class instances, themselves does Role since they
are just instances of Class which does <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11638	11733	
==>el , any Class instances, themselves does Role since they
are just instances of Class which does <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38691	38784	
==>s a subset of the
heading of the invocant Relation::Example, and returns a new Relation::Examp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3738	3856	
==>_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$ke <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3738	3856	
==>_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24469	24584	
==>ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20890	21005	
==>ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2853	2951	
==>.params()>

Returns the names of all the parameters as a list.  The order in which they were
presen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2853	2951	
==>.params()>

Returns the names of all the parameters as a list.  The order in which they were
presen <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25350	25447	
==>th the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!ms <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25350	25447	
==>th the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!ms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5040	5136	
==>tor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5040	5136	
==>tor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5040	5136	
==>tor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1033	1286	
==>NGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Sh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1033	1286	
==>NGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Sh <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4639	4745	
==>it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getpr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4639	4745	
==>it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	971	1081	
==>&& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	971	1081	
==>&& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	971	1081	
==>&& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($na <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6259	6368	
==>splat(@_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5541	5653	
==>.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5541	5653	
==>.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6154	6252	
==>s are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6154	6252	
==>s are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2593	2719	
==>>{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2593	2719	
==>>{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6217	6329	
==>::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6217	6329	
==>::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	713	878	
==>le( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2619	2730	
==>le (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2619	2730	
==>le (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2619	2730	
==>le (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8196	8320	
==>t_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8208	8332	
==>t_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1408	1519	
==>Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1408	1519	
==>Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20842	20960	
==>{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_parent} || "../")  . "../";
	    $val = $val- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4300	4400	
==>s

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4300	4400	
==>s

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4300	4400	
==>s

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return unde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6915	7048	
==>e . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6915	7048	
==>e . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6915	7048	
==>e . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef, <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	714	836	
==>auto-define the extra
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3043	3148	
==>ss;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3043	3148	
==>ss;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3043	3148	
==>ss;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cur <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	558	656	
==>ntioned above.
#
# To test head.p6, tail.p6, rev.p6, mid.p6, wc.p6 for correctness,
# simply run th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2672	2770	
==>_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2672	2770	
==>_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2672	2770	
==>_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5996	6129	
==>turn $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3734	3850	
==>g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't yo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3734	3850	
==>g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't yo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3734	3850	
==>g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't yo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	614	732	
==>name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3011	3107	
==>CH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3011	3107	
==>CH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3011	3107	
==>CH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, T <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	484	597	
==>",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => " <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3290	3399	
==>THIS FILE.
    This module is generated by util/PugsConfig.pm.
-}

{-|
    Pugs System Configuration.

>   Ali <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20521	20615	
==>e
appropriate class name, and then invoking methods on those objects.  All of
their class/objec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25073	25167	
==>e
appropriate class name, and then invoking methods on those objects.  All of
their class/objec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23643	23737	
==>e
appropriate class name, and then invoking methods on those objects.  All of
their class/objec <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14025	14142	
==>+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17502	17619	
==>+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14770	14866	
==>nvironment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14770	14866	
==>nvironment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	772	884	
==>1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	772	884	
==>1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	772	884	
==>1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13484	13587	
==>keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invocant has an elem <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14122	14240	
==>is is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10295	10413	
==>is is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_cont <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11131	11249	
==>is is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_cont <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12178	12267	
==>e_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6218	6373	
==>>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6218	6373	
==>>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6218	6373	
==>>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'S <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4160	4261	
==>SlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1201	1322	
==>e} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1201	1322	
==>e} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1201	1322	
==>e} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	909	1005	
==>) : bit->new(0) }
sub less_than_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : bit <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	917	1046	
==>MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1967	2096	
==>anced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1889	2014	
==>anced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	794	899	
==>MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8688	8812	
==>ts + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3269	3386	
==>putElementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <Regu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	862	972	
==>ts + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	862	972	
==>ts + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17562	17664	
==>pression>
}
rule BitwiseORExpressionNoIn :words {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5329	5425	
==>fined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5329	5425	
==>fined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5329	5425	
==>fined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6815	6913	
==>== $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6815	6913	
==>== $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2092	2188	
==>erldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body> <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2092	2188	
==>erldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body> <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1464	1557	
==>unctional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1464	1557	
==>unctional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2055	2200	
==>% 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_] <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2055	2200	
==>% 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11355	11450	
==>baby didn't want to be sucking in from the upstream stdin
	die "test.pl:runperl(): none of prog, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4595	4731	
==>l error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3824	3935	
==>sts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 D <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3824	3935	
==>sts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5348	5459	
==>sts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9256	9379	
==>ngify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9256	9379	
==>ngify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9256	9379	
==>ngify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unbox <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1405	1504	
==>ame, *%params) {
    my $template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\%\]/{ %para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2383	2477	
==>exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2383	2477	
==>exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2383	2477	
==>exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2J <==
4	/Users/nnunley/pugs/util/testgraph.pl	45	138	
==>se Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1580	1681	
==>se{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1580	1681	
==>se{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30322	30416	
==>new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34874	34968	
==>new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the or <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28252	28348	
==>n of this object which is suitable
for debugging purposes (such as to test that the object's cont <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35608	35704	
==>n of this object which is suitable
for debugging purposes (such as to test that the object's cont <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28252	28348	
==>n of this object which is suitable
for debugging purposes (such as to test that the object's cont <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35608	35704	
==>n of this object which is suitable
for debugging purposes (such as to test that the object's cont <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20827	20924	
==>e $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20827	20924	
==>e $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument li <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21320	21416	
==>kes a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to al <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21320	21416	
==>kes a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13034	13173	
==>1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6509	6648	
==>1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $r <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4007	4103	
==>currence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurren <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4007	4103	
==>currence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurren <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5169	5397	
==>hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5169	5397	
==>hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the v <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16043	16143	
==>eader indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if doc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16043	16143	
==>eader indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if doc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23510	23633	
==>EG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_COPY_STR  0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16404	16492	
==>ever annotation went with this attribute when it's declared"
$::Class->add_method('find_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16404	16492	
==>ever annotation went with this attribute when it's declared"
$::Class->add_method('find_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16404	16492	
==>ever annotation went with this attribute when it's declared"
$::Class->add_method('find_a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4164	4268	
==>d is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4164	4268	
==>d is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method star <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	401	504	
==>d is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method star <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	401	504	
==>d is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method star <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10853	10989	
==>and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile($filename, $mode);

        # XXX laye <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3930	4025	
==>arameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3930	4025	
==>arameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6127	6222	
==>arameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9413	9582	
==>ce;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12890	13059	
==>ce;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4585	4708	
==>gs{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2326	2448	
==>gs{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16598	16772	
==>('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	310	405	
==>upcoming closing node is to be represented in a certain non-normative
way in the source.

=head2 <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	310	405	
==>upcoming closing node is to be represented in a certain non-normative
way in the source.

=head2 <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1820	1911	
==>is possibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Session $s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	595	720	
==>');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protoco <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	595	720	
==>');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protoco <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	336	450	
==>s { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	336	450	
==>s { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	533	680	
==>evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7399	7522	
==>dy' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7399	7522	
==>dy' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7399	7522	
==>dy' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	439	535	
==>default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, all <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	439	535	
==>default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, all <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	439	535	
==>default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13658	13847	
==>ate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13658	13847	
==>ate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13658	13847	
==>ate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Obj <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5546	5655	
==>ormalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normal <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5546	5655	
==>ormalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normal <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23466	23557	
==>EE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Lang <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23466	23557	
==>EE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Lang <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4765	4867	
==>order to copy files to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the / o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2879	2974	
==>sses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2879	2974	
==>sses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2879	2974	
==>sses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4028	4141	
==>'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

no <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4028	4141	
==>'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	878	991	
==>'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

no <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8855	8946	
==>gCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule DoubleStringCharact <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9996	10097	
==>s export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9996	10097	
==>s export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7234	7332	
==>out: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6988	7082	
==>out: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11116	11271	
==>" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11116	11271	
==>" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11116	11271	
==>" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10148	10258	
==>pth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4383	4549	
==>ef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4250	4411	
==>ef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	153	266	
==>t $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	153	266	
==>t $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10209	10310	
==>BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10209	10310	
==>BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10209	10310	
==>BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5814	5947	
==>[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5814	5947	
==>[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $gramma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16679	16772	
==>this "Rosetta" distribution.

While it is possible that one could write a self-contained appli <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16679	16772	
==>this "Rosetta" distribution.

While it is possible that one could write a self-contained appli <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	95	203	
==>g;
use JIB::Package;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	710	799	
==>pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/194 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	710	799	
==>pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/194 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	710	799	
==>pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/194 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6860	6969	
==>tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6872	6981	
==>tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_ru <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	243	351	
==>s rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SEL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	243	351	
==>s rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SEL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5722	5870	
==>_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5722	5870	
==>_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9367	9483	
==>after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9367	9483	
==>after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1434	1592	
==>$o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  ea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5046	5187	
==>seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5046	5187	
==>seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5046	5187	
==>seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	557	666	
==>lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	557	666	
==>lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	557	666	
==>lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * f <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1058	1166	
==>}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2371	2481	
==>my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2371	2481	
==>my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2371	2481	
==>my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defin <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3668	3775	
==>preamble$makefile$postamble";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	976	1099	
==>PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6455	6552	
==>n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6455	6552	
==>n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6455	6552	
==>n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1075	1181	
==>lue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1075	1181	
==>lue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1075	1181	
==>lue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23380	23472	
==>ception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9543	9656	
==>, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9543	9656	
==>, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2  <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11167	11261	
==>ol is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11225	11319	
==>ol is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23865	24014	
==>($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p6_loop_CODE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13367	13504	
==>($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13367	13504	
==>($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13367	13504	
==>($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8558	8681	
==>acktrack or whatever

                            

=for notes about fail()

shouldn't matchfail still be returning somethin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8273	8393	
==>acktrack or whatever
                            
=for notes about fail()
shouldn't matchfail still be returning somethin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11131	11248	
==>s) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11131	11248	
==>s) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11131	11248	
==>s) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5327	5426	
==>plify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7677	7853	
==>m_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7677	7853	
==>m_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7677	7853	
==>m_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-la <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19971	20059	
==>CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26332	26427	
==>that while the Hash itself is copied on input and output, any
variable values which are referenc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26332	26427	
==>that while the Hash itself is copied on input and output, any
variable values which are referenc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37722	37814	
==>is a generic relational operator that takes a single Relation::Example
in its C<$other> argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38562	38654	
==>is a generic relational operator that takes a single Relation::Example
in its C<$other> argum <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1652	1790	
==>num         native floating point
    ref         native pointer 
    bool        native boolean
    Bit         Perl single bit (allows tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3049	3151	
==>amName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3049	3151	
==>amName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3049	3151	
==>amName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4404	4530	
==>ft;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1934	2029	
==>f);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1934	2029	
==>f);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1934	2029	
==>f);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })') <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10327	10469	
==>a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10327	10469	
==>a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10327	10469	
==>a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx] <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	663	774	
==>indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13995	14143	
==>t_pkg->package } 
                ) or return;

    ### dump out alternatives again
    ### XXX pretty method?
    $self->registered_alternatives([ @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20008	20150	
==>tr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40468	40610	
==>tr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_') <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6350	6446	
==>object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6350	6446	
==>object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(norma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29827	29922	
==>ributes having the same names as old attributes
that were wrapped, and it supports having old tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34379	34474	
==>ributes having the same names as old attributes
that were wrapped, and it supports having old tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33543	33638	
==>ributes having the same names as old attributes
that were wrapped, and it supports having old tu <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11142	11233	
==>Shortens C<@INC> by removing redundant and unnecessary entries.
Necessary for OSes with limi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4375	4492	
==>arn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4375	4492	
==>arn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4375	4492	
==>arn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10085	10177	
==>nary->new(list => type::variable::free->new),
	# list a -> bool
	'is_nil?' => type::operator: <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	247	345	
==>n %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

Se <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	247	345	
==>n %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

Se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20855	20950	
==>recommend above all others for production use.

Most of the other (near term) third party Engine <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20855	20950	
==>recommend above all others for production use.

Most of the other (near term) third party Engine <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32868	32961	
==>lation>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33323	33416	
==>lation>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37418	37511	
==>lation>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37873	37966	
==>lation>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18063	18259	
==>t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21540	21736	
==>t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21127	21323	
==>t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6204	6334	
==>nd::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7941	8057	
==>'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7941	8057	
==>'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5219	5314	
==>tem get($url)

The get() function will fetch the document identified by the given URL
and return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5219	5314	
==>tem get($url)

The get() function will fetch the document identified by the given URL
and return <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4950	5114	
==>=>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Boo <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4950	5114	
==>=>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Boo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9189	9294	
==>$set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_super <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9189	9294	
==>$set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_super <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15917	16050	
==>and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	124	227	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	124	227	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	124	227	
==>ox.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.sh <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4956	5109	
==>le, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $sel <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4815	4968	
==>le, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $sel <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	243	352	
==>e, but it has some other clutter because of unclear design.

    $.from         - The place where this subrule <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	243	352	
==>e, but it has some other clutter because of unclear design.

    $.from         - The place where this subrule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	994	1123	
==>.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Wil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	994	1123	
==>.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Wil <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	96	201	
==>ss Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $messa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	96	201	
==>ss Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $messa <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	522	634	
==>-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	522	634	
==>-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1788	1890	
==>t {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1788	1890	
==>t {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4058	4176	
==>m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4058	4176	
==>m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4058	4176	
==>m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4723	4830	
==>Pos2) = newfrom( $matchObj, $whitespacePosition, "PGE::Match");
    my $temp2 = $whitespacePosition;
    pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5530	5634	
==>>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5530	5634	
==>>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5530	5634	
==>>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3465	3587	
==>ontent;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3465	3587	
==>ontent;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7338	7439	
==>ne the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7338	7439	
==>ne the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ ' <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1663	1777	
==>/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1663	1777	
==>/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	48	150	
==>de;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_at <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	48	150	
==>de;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16724	16834	
==>alue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16724	16834	
==>alue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16724	16834	
==>alue::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::u <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	371	470	
==>d',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Session{$var <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1925	2039	
==>or parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4001	4106	
==>def }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4001	4106	
==>def }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4001	4106	
==>def }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{p <==
4	/Users/nnunley/pugs/util/version_h.pl	1909	2008	
==>ithout turning
  # "io" warnings off, perl will print "Filehandle STDIN reopened...", because
  # ou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37823	37920	
==>tring).  Assuming that a Perl module by the given module name
is already loaded, it tries to invok <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37823	37920	
==>tring).  Assuming that a Perl module by the given module name
is already loaded, it tries to invok <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8887	8981	
==>with a Win32-flavoured ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5075	5234	
==>:Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5075	5234	
==>:Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5075	5234	
==>:Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46273	46410	
==>$:name'));
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new('FETCH'),
    # met <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2266	2360	
==>ncludes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2266	2360	
==>ncludes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1890	1982	
==>class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compile <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1890	1982	
==>class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compile <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8901	9050	
==>_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not impl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14630	14779	
==>_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not impl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8901	9050	
==>_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not impl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14624	14773	
==>_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not impl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19206	19323	
==>= reps[$P1]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    exp0 = e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6126	6221	
==>s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6126	6221	
==>s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6126	6221	
==>s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed b <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2473	2569	
==>t mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2473	2569	
==>t mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1708	1804	
==>to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2553	2649	
==>t mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9613	9786	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9892	10065	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'gra <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5128	5237	
==>ere it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5128	5237	
==>ere it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3362	3474	
==>ues %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3362	3474	
==>ues %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3362	3474	
==>ues %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6348	6446	
==>$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $top <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2846	2950	
==>ce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4715	4819	
==>ce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2846	2950	
==>ce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4715	4819	
==>ce );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1521	1623	
==>d_half_random },

		{ $^a.round_half_ceiling },
		{ $^a.round_toward_zero },
		{ $^a.round_away_from_ze <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	926	1017	
==>oughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUT <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	926	1017	
==>oughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1473	1564	
==>oughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUT <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5320	5430	
==>bject(exact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4777	4883	
==>add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4777	4883	
==>add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4777	4883	
==>add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1661	1774	
==>&RxLEN;
  1 while $self->next;
  return 1;
}


sub root {
  my ($self) = @_;
  $self->parse if $self->{stack};
  r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	198	300	
==>Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	198	300	
==>Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	198	300	
==>Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11565	11657	
==>/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11565	11657	
==>/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $he <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5727	5826	
==>y $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1042	1131	
==>del_w_Roles.pl

$::Role = undef;

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1042	1131	
==>del_w_Roles.pl

$::Role = undef;

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1042	1131	
==>del_w_Roles.pl

$::Role = undef;

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12282	12431	
==>ities($rest);
#      $body->push_content($rest);
      my $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1173	1269	
==>IKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1173	1269	
==>IKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1173	1269	
==>IKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSU <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8902	9046	
==>p::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9095	9239	
==>p::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { re <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5400	5497	
==>rns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last er <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5400	5497	
==>rns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37372	37515	
==>t );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37372	37515	
==>t );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37372	37515	
==>t );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub sto <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	841	976	
==>ACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8003	8105	
==>name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8003	8105	
==>name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8003	8105	
==>name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FE <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1729	1818	
==>::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$filename)->get_p6_file;
	    $eval_p6->($cc <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6295	6406	
==>else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'readline' if grep /^-DPUGS_HAV <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18776	18875	
==>ptional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18776	18875	
==>ptional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosett <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	579	675	
==>ERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12462	12595	
==>join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2838	2961	
==>join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2838	2961	
==>join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1032	1153	
==>> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1432	1553	
==>> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1906	2027	
==>> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2170	2269	
==>$smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2452	2572	
==>ures

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2636	2756	
==>ures

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 < <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15021	15113	
==>e (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
multi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15021	15113	
==>e (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
multi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5005	5122	
==>ance_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($self, $label, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	696	795	
==>re used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosy <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	696	795	
==>re used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosy <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25451	25531	
==>).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3601	3737	
==>ex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same a <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3601	3737	
==>ex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16651	16752	
==>e this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is se <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16651	16752	
==>e this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1591	1690	
==>ude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1591	1690	
==>ude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1591	1690	
==>ude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is ou <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	350	467	
==>u must store a native type in a list"
            foreach @values;
    bless \@values => $class;
}

# native conversio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36168	36264	
==>nt relation with every tuple of the <$other> relation,
then where each member of a tuple pair has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40717	40813	
==>nt relation with every tuple of the <$other> relation,
then where each member of a tuple pair has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40331	40427	
==>nt relation with every tuple of the <$other> relation,
then where each member of a tuple pair has <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1000	1130	
==>lti  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17888	17979	
==><**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17888	17979	
==><**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17888	17979	
==><**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8666	8796	
==>k}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, beca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8666	8796	
==>k}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, beca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8930	9052	
==>k}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, beca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8930	9052	
==>k}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, beca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	387	589	
==>xpr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	387	589	
==>xpr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	208	307	
==>er;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	208	307	
==>er;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use b <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12847	12970	
==>predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=ite <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12847	12970	
==>predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=ite <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17756	17858	
==>morphic snd function takes any pair and returns it's second thingy
# (a x b) -> b
# applied to $pair (i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	6	103	
==>/bin/perl

package P6RulesInP5::Match;
use base qw/Class::Accessor/;
use overload
    'bool'  => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	123	215	
==>Pugs-Utils/lib",
    "$Bin/../Pugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::Perl6;
#u <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8050	8141	
==>---------------------------------------------------------
## utility methods

# NOTE:
# Occa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8050	8141	
==>---------------------------------------------------------
## utility methods

# NOTE:
# Occa <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5657	5745	
==>mple_character  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\]> }
rule metacharacter { <[\{\}\[\]\( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26105	26217	
==>ags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	273	375	
==>]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	273	375	
==>]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	273	375	
==>]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	69	166	
==>Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	69	166	
==>Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnost <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11312	11408	
==>ape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11312	11408	
==>ape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3282	3439	
==>warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3282	3439	
==>warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3282	3439	
==>warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12080	12174	
==>sitivity of C<cmp> as a Comparator.

If all criteria are exhausted when comparing two elements, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2336	2453	
==><term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3117	3234	
==><term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $ter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8486	8571	
==>atch[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8474	8559	
==>atch[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23362	23491	
==>x} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11211	11340	
==>x} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19783	19912	
==>x} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11155	11256	
==>xp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() method of each node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10616	10726	
==>' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10616	10726	
==>' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10616	10726	
==>' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::V <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40322	40422	
==>nent notices stating that you changed the files and the date of any
changes, in addition to preservin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25846	25946	
==>nent
notices stating that you changed the files and the date of any changes, in
addition to preservin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40322	40422	
==>nent notices stating that you changed the files and the date of any
changes, in addition to preservin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25846	25946	
==>nent
notices stating that you changed the files and the date of any changes, in
addition to preservin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10953	11050	
==>ed.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8357	8454	
==>ed.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10953	11050	
==>ed.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8357	8454	
==>ed.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11497	11611	
==>ny character
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' : <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28949	29044	
==>utes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33501	33596	
==>utes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32638	32733	
==>utes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13899	13999	
==>p (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13957	14057	
==>p (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18935	19034	
==>original_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # Whe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18935	19034	
==>original_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # Whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4915	5017	
==>utput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4915	5017	
==>utput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4915	5017	
==>utput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29344	29443	
==>led I<after> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types d <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5485	5613	
==>=> Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_thunk'),
            Param->new(' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3600	3697	
==>is is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3600	3697	
==>is is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3680	3777	
==>is is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2278	2378	
==>( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2278	2378	
==>( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	978	1077	
==>=> "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	978	1077	
==>=> "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11847	11983	
==>son
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2269	2391	
==>son
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2269	2391	
==>son
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2548	2644	
==>:Ratchet> converts parsed :ratchet Rules to Perl 5 code.

=back

=head2 Implemented Features

 <w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8970	9092	
==>om  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8970	9092	
==>om  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8970	9092	
==>om  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($li <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1553	1656	
==>eturn $self->[1]->store($klass);
}

sub get_attr {
    my ($self, $name) = @_;
    (blessed($name) && $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34523	34626	
==>numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34523	34626	
==>numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34523	34626	
==>numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7259	7393	
==>ies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7723	7857	
==>ies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9022	9150	
==>y_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10499	10627	
==>y_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9555	9684	
==>= [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9555	9684	
==>= [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9555	9684	
==>= [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Numbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2221	2411	
==>"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2221	2411	
==>"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2221	2411	
==>"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	270	381	
==>:MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	270	381	
==>:MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	270	381	
==>:MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1901	2154	
==>F]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => - <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1901	2154	
==>F]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7600	7713	
==>>pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7600	7713	
==>>pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9452	9645	
==>]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9452	9645	
==>]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17949	18046	
==>.

=item $h.from

This header should contain an Internet e-mail address for the human
user who con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17949	18046	
==>.

=item $h.from

This header should contain an Internet e-mail address for the human
user who con <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1656	1780	
==>this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2237	2361	
==>this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1656	1780	
==>this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2237	2361	
==>this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name <==
4	/Users/nnunley/pugs/util/func_refact.pl	2027	2127	
==>on: while adding $new, entered with $oldsize, leaving with $size\n"
        if $Conf{verbose} or $Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2443	2540	
==>: 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2443	2540	
==>: 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2443	2540	
==>: 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3025	3179	
==>Junction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	327	431	
==>returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	327	431	
==>returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	327	431	
==>returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14960	15065	
==>the "working unicode level to be". Default is LChars.

[Q: Can't be LChars because we don't go into "langu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8324	8426	
==>ethod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8324	8426	
==>ethod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8324	8426	
==>ethod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6977	7107	
==>rams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6977	7107	
==>rams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6977	7107	
==>rams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1169	1262	
==>meta = $pkg->meta

The JIB::Meta object associated with this package

=head2 $pkg->install( in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	380	483	
==>tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	380	483	
==>tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	380	483	
==>tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$ <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	672	837	
==>->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them all as attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8772	8888	
==>t_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    cho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8772	8888	
==>t_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    cho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8772	8888	
==>t_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    cho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3260	3400	
==>AGE__->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PAC <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2104	2204	
==>erl5

=head1 NAME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $ro <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19727	19820	
==>pecial 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implem <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19727	19820	
==>pecial 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11356	11516	
==>line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11356	11516	
==>line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[ <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1311	1408	
==>NS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1311	1408	
==>NS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	392	563	
==>ift;
    my $conf    = $self->config;
    my %hash    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            required    => 1, 
            stor <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20730	20826	
==>_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20730	20826	
==>_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5229	5324	
==>un::OnPerl5::X1::Api; use utf8; use Error qw(:try); $p5";
}

NODE PIL_Environment ($pilGlob, $pi <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1047	1149	
==>ETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input' <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1047	1149	
==>ETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1842	1943	
==>has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1842	1943	
==>has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3257	3386	
==>[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/non/chain/lis <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	501	600	
==>te the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.diff <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	501	600	
==>te the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.diff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22193	22285	
==>e provides a minimal in-RAM
storage implementation for the L<Relation> library.

I<TODO: REWR <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5711	5893	
==>lation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9188	9370	
==>lation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1375	1504	
==>es ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23301	23392	
==>lmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All righ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41225	41316	
==>lmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All righ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37251	37342	
==>lmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All righ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1331	1427	
==>L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1331	1427	
==>L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18900	18994	
==>very different from SQL, it
is fully capable of modelling anything in the real world accurately <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18900	18994	
==>very different from SQL, it
is fully capable of modelling anything in the real world accurately <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12141	12261	
==>b {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4784	4904	
==>b {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	805	915	
==>this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of pa <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	805	915	
==>this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of pa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1794	1926	
==>P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1794	1926	
==>P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3981	4088	
==>lue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue - <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3981	4088	
==>lue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2033	2151	
==>| ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2033	2151	
==>| ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '+ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16907	17003	
==>cation in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
app <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16907	17003	
==>cation in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
app <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2148	2321	
==>attr_name_exists of Bool (Relation::AttrName $attr_name) {...}

###########################################################################

method size of Int () {
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9367	9503	
==>new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9367	9503	
==>new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9367	9503	
==>new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6116	6212	
==>source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6116	6212	
==>source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6116	6212	
==>source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32582	32677	
==>y version of the aforementioned binary union()
operator, and the order of its arguments is not s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37132	37227	
==>y version of the aforementioned binary union()
operator, and the order of its arguments is not s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36440	36535	
==>y version of the aforementioned binary union()
operator, and the order of its arguments is not s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	186	281	
==>ndie::Emitter::Pretty;

use strict;
use warnings;

BEGIN {
    __PACKAGE__->mk_accessors(qw/runt <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1500	1677	
==>ads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $valu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1500	1677	
==>ads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $valu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2265	2361	
==>MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2482	2578	
==>MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10100	10208	
==>ns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10100	10208	
==>ns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	159	257	
==>e  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wa <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	159	257	
==>e  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29935	30033	
==>nd an accessor method to read values from it by key.  Each template hash
key corresponds to the Mes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29935	30033	
==>nd an accessor method to read values from it by key.  Each template hash
key corresponds to the Mes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7305	7446	
==>shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15539	15648	
==>eturn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15539	15648	
==>eturn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15539	15648	
==>eturn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3910	4008	
==>and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Ciphe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26115	26213	
==>wed variable names you can have depend on the Message Key
it is being used with (others are ignored <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3910	4008	
==>and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Ciphe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26115	26213	
==>wed variable names you can have depend on the Message Key
it is being used with (others are ignored <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3421	3508	
==>lass'} = $Object;

## ------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4115	4202	
==>lass'} = $Object;

## ------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5323	5410	
==>lass'} = $Object;

## ------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6367	6488	
==>.$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6367	6488	
==>.$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6367	6488	
==>.$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27537	27631	
==>ample has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation::Example has <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26839	26984	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27118	27263	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capt <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11444	11535	
==>>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11444	11535	
==>>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6391	6505	
==>k>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Som <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6391	6505	
==>k>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Som <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4676	4788	
==>. 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Reg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4816	4928	
==>. 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	74	194	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	74	194	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	74	194	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       p <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1106	1194	
==>utter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'h <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1250	1367	
==>Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1250	1367	
==>Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1372	1482	
==>RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:digit:]/ )
  {
    $matchObj->p <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8389	8496	
==>turn $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1719	1861	
==>y $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1719	1861	
==>y $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #war <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1308	1403	
==>$path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local * <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1308	1403	
==>$path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local * <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	165	266	
==>* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Se <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	165	266	
==>* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Se <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	984	1083	
==>sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <s <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	984	1083	
==>sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6492	6606	
==>e_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6492	6606	
==>e_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded in <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4924	5026	
==>et1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4924	5026	
==>et1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6249	6375	
==>kg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2573	2675	
==>)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2573	2675	
==>)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2573	2675	
==>)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15134	15258	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15134	15258	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15134	15258	
==>$any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scala <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3332	3451	
==>,
    );
    $self->provides(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	335	445	
==>) {
    print "$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5613	5709	
==>step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5613	5709	
==>step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5613	5709	
==>step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5299	5416	
==>lt = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5299	5416	
==>lt = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1417	1530	
==>ueue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1417	1530	
==>ueue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1083	1198	
==>urpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1083	1198	
==>urpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1292	1407	
==>urpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $pa <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6895	6994	
==>ray.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2JS Operators.pm r8593.
# Prim.hs says \\n   S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10266	10372	
==>{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3767	3869	
==>"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3767	3869	
==>"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3767	3869	
==>"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2068	2222	
==>++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2484	2635	
==>++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2000	2151	
==>++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2484	2635	
==>++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3716	3817	
==>lose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3716	3817	
==>lose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3716	3817	
==>lose $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $r <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2323	2435	
==>$_} = $DEFAULTS{$_} unless defined $conf->{$_}; } for
        keys %DEFAULTS;
}

sub lookup {
    my($class, $wha <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1470	1571	
==>at, c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27938	28031	
==>he Message Variable value (a string) associated with
the variable name specified in the positi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27938	28031	
==>he Message Variable value (a string) associated with
the variable name specified in the positi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	916	1025	
==>.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... shou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	916	1025	
==>.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... shou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	916	1025	
==>.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... shou <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1402	1528	
==>?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $me <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1402	1528	
==>?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $me <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13356	13452	
==>nated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be p <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13356	13452	
==>nated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6260	6361	
==>_filehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12007	12099	
==>f;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12007	12099	
==>f;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12007	12099	
==>f;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1614	1732	
==>lf;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1614	1732	
==>lf;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1614	1732	
==>lf;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<E <==
4	/Users/nnunley/pugs/util/importgraph.pl	1376	1487	
==>>{$ignore};
  }
}

# setup some predefined clusters
sub setup_mod {
  my $type = shift;
  my $name = shift;
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	92	201	
==>XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	92	201	
==>XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	92	201	
==>XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdum <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13667	13770	
==><br />
              <a href="<tmpl_var name=link>" title="Full smoke report">View full smoke report</a> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3280	3403	
==>AREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SU <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7827	7930	
==>se($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Co <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7827	7930	
==>se($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Co <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1802	1887	
==>tallation process described in README.

---------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1642	1727	
==>tallation process described in README.

---------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7772	7900	
==>y"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7772	7900	
==>y"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6617	6733	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6617	6733	
==>TR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_do <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3330	3476	
==>'method'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$current' => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12177	12288	
==>Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12177	12288	
==>Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12177	12288	
==>Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7978	8152	
==>\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4338	4512	
==>\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5187	5361	
==>\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $li <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	402	507	
==>iter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi sub map (Code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	618	712	
==>lean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	618	712	
==>lean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	618	712	
==>lean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	506	607	
==>ariable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	506	607	
==>ariable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	506	607	
==>ariable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6404	6539	
==>"$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8942	9038	
==>gles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8942	9038	
==>gles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8942	9038	
==>gles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) { <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3764	3868	
==>($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3764	3868	
==>($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1959	2052	
==>constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision op <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1959	2052	
==>constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision op <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	547	664	
==>^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	582	699	
==>^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	547	664	
==>^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25844	25953	
==>is method, where it returns a
I<reference> to a scalar, makes it work (!).

B<These functions can only work if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	289	394	
==>ode, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompile <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20140	20234	
==>hod will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20140	20234	
==>hod will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as <==
4	/Users/nnunley/pugs/util/combine_tests.pl	174	264	
==>e_tests(@data);
#
#print YAML::Dump($combined);
print Dump(combine_tests(map { LoadFile($_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2889	3001	
==>print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2889	3001	
==>print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2889	3001	
==>print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2569	2689	
==>, ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2569	2689	
==>, ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2569	2689	
==>, ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else { <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8820	8922	
==>t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_file = abs2rel($inpu <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1131	1284	
==>meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $m <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1131	1284	
==>meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	570	712	
==>tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	570	712	
==>tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @en <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	137	255	
==>by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21166	21282	
==>(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17587	17703	
==>(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8104	8329	
==>= $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8104	8329	
==>= $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8104	8329	
==>= $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_con <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3860	3964	
==>unk.

Inside the Thunk the Seq will reduce its children one by one. First Param will
introduce a new symb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6454	6539	
==>PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var docu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6454	6539	
==>PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var docu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6454	6539	
==>PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var docu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1248	1368	
==>ns do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3804	3892	
==>::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3804	3892	
==>::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3804	3892	
==>::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2183	2344	
==>{
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPOSITORY_SET,
        }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2171	2274	
==>ap { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2171	2274	
==>ap { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2171	2274	
==>ap { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4811	4965	
==>new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4811	4965	
==>new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9931	10035	
==>{ $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kw <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9931	10035	
==>{ $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	439	598	
==>asses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	439	598	
==>asses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	439	598	
==>asses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_m <==
4	/Users/nnunley/pugs/util/grokprims.pl	1015	1133	
==><=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2768	2871	
==>nts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2768	2871	
==>nts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2768	2871	
==>nts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	487	585	
==>rait.

Please also declare whether the function can be used in a safe
context (such as the IRC eval <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2272	2441	
==>m S29draft.pod 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	366	476	
==>if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	366	476	
==>if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	366	476	
==>if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1337	1432	
==>$self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1337	1432	
==>$self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1058	1303	
==>module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Loca <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1058	1303	
==>module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Loca <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2899	3022	
==>x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return - <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2899	3022	
==>x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return - <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6298	6475	
==>&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9775	9952	
==>&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3411	3537	
==>.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = " <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3411	3537	
==>.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23860	23967	
==>elf:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ($self: set_attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34839	34941	
==>>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34839	34941	
==>>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34839	34941	
==>>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2835	2988	
==>ch) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2835	2988	
==>ch) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(pa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12020	12141	
==>st),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. J <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12020	12141	
==>st),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6004	6126	
==>ame = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6004	6126	
==>ame = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6004	6126	
==>ame = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4460	4572	
==>=> 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWORD '(' exp ')'  %prec P003
        { $_ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6144	6306	
==>}
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, th <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5217	5379	
==>}
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, th <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6144	6306	
==>}
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5217	5379	
==>}
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, th <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4735	4857	
==>file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34921	35040	
==>', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34921	35040	
==>', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34921	35040	
==>', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_he <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1115	1224	
==>0], '$<ident>' );
    return "package $ident;\n";
}
sub node::require_bareword {
    my $ident = get_str( $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10852	10951	
==>l remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10852	10951	
==>l remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	65	183	
==>submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    metho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	65	183	
==>submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    metho <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5277	5372	
==>esenting the configuration data

=item write

The C<write> method the file for the properties, a <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5277	5372	
==>esenting the configuration data

=item write

The C<write> method the file for the properties, a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1054	1157	
==>alternation is first match (not longest).  though we need a 

    # separate longest match for tokens (p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1405	1507	
==>alternation is first match (not longest).  though we need a 
    # separate longest match for tokens (p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1012	1114	
==>alternation is first match (not longest).  though we need a 
    # separate longest match for tokens (p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1405	1507	
==>alternation is first match (not longest).  though we need a 
    # separate longest match for tokens (p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	512	619	
==>sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	512	619	
==>sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	512	619	
==>sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lval <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	851	948	
==>ternal packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Ye <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	851	948	
==>ternal packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Ye <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1348	1439	
==>lib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefil <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1348	1439	
==>lib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefil <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1276	1411	
==>e($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1276	1411	
==>e($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1237	1343	
==>e\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1237	1343	
==>e\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1237	1343	
==>e\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = func <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11479	11572	
==>trUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDeci <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15099	15260	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15378	15539	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::al <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9760	9865	
==>nnel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9760	9865	
==>nnel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16839	17003	
==>or => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16839	17003	
==>or => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16839	17003	
==>or => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6747	6865	
==>n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2125	2229	
==>y_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2125	2229	
==>y_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2125	2229	
==>y_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($arg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12508	12625	
==>lsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12508	12625	
==>lsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1030	1139	
==>};

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1030	1139	
==>};

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is re <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	524	647	
==>dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

sub pretty_pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18596	18685	
==>p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18596	18685	
==>p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18596	18685	
==>p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4922	5036	
==>f $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4922	5036	
==>f $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4922	5036	
==>f $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_ty <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	488	586	
==>the default_value is the value of initalization, the return value is
### a subroutine that build th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1231	1330	
==>db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positiona <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1231	1330	
==>db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positiona <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1440	1539	
==>db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positiona <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13909	14024	
==>::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13909	14024	
==>::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13909	14024	
==>::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35941	36036	
==>ins all of the tuples that are in either or both of the
invocant Relation::Example and C<$other> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6770	6880	
==>er_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} )
  {
    goto oper_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2196	2301	
==>ng(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2196	2301	
==>ng(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2196	2301	
==>ng(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	795	921	
==>) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	462	570	
==>b isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	462	570	
==>b isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	462	570	
==>b isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1830	2017	
==>al with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $state <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	45	132	
==>::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	45	132	
==>::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	45	132	
==>::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, im <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	421	516	
==>alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	421	516	
==>alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	16	110	
==>ammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	16	110	
==>ammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1520	1616	
==>lse errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	718	846	
==>_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	718	846	
==>_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	718	846	
==>_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5853	5955	
==>:Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5853	5955	
==>:Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6443	6545	
==>:Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11772	11895	
==>ool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_bool_handlers{$reftyp};
    die "bug $reftyp" if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4400	4509	
==>t, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4400	4509	
==>t, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4400	4509	
==>t, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	211	322	
==>self = $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2751	2857	
==>s_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2751	2857	
==>s_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2751	2857	
==>s_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4191	4384	
==>ber_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4191	4384	
==>ber_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1855	2007	
==>rn unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1855	2007	
==>rn unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	146	250	
==>n (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	146	250	
==>n (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	146	250	
==>n (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(arg <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5484	5578	
==>art(R), ")".
p5_elemental(standalone(R))       --> "(?>",  !, p5_start(R), ")".
p5_elemental(lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5092	5230	
==>>FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4356	4485	
==>>FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5091	5187	
==>iphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5091	5187	
==>iphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1003	1113	
==>ely be pure p5/prolog, with no p6 runtime associated.
Then, 
  - aid in prototyping the regexp system - the reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1257	1356	
==>rns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1257	1356	
==>rns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1257	1356	
==>rns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	458	577	
==>less [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	458	577	
==>less [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	458	577	
==>less [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5775	5889	
==>un.  Its keys and values are this:

    bonus           Number of individual todo tests unexpectedly passed
    max <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3798	3904	
==>'d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/od <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3798	3904	
==>'d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/od <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3798	3904	
==>'d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/od <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10089	10187	
==>HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule RegularExpressionLiteral {  # see 7.8.5
      <'/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2484	2580	
==>est the integration with Value and Container types
# TODO - add hooks for signature checks, autob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2484	2580	
==>est the integration with Value and Container types
# TODO - add hooks for signature checks, autob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2484	2580	
==>est the integration with Value and Container types
# TODO - add hooks for signature checks, autob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	319	425	
==>, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	319	425	
==>, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	319	425	
==>, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use F <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	740	834	
==>plete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use consta <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4120	4229	
==>ch my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq "update.pl";
    process_file $f <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2098	2191	
==>n user-supplied regular expression may lead to execution of arbitrary code;
each alternate eng <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	121	207	
==>TTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	121	207	
==>TTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3764	3888	
==>";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3764	3888	
==>";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3764	3888	
==>";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH c <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8932	9042	
==>tart_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relative_fi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	29	148	
==>-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	29	148	
==>-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8219	8321	
==>1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the othe <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8219	8321	
==>1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the othe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4255	4372	
==>a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4255	4372	
==>a
        # hashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4768	4881	
==>a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4768	4881	
==>a hashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we dele <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17182	17287	
==>ss, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2182	2279	
==>thod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2182	2279	
==>thod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2182	2279	
==>thod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1333	1475	
==>>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1333	1475	
==>>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6575	6673	
==>$base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6575	6673	
==>$base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1232	1331	
==>ns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALS <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1232	1331	
==>ns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1779	1878	
==>ns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALS <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8013	8099	
==>difier_spec_pos(L).
p5_modifier_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4094	4208	
==>t = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requir <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4094	4208	
==>t = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requir <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4094	4208	
==>t = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requir <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9594	9682	
==>t_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singleton_method(), 
  '$iFoo: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	327	472	
==>= @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params{'$:expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10791	10931	
==>} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10791	10931	
==>} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10791	10931	
==>} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $param <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39420	39529	
==>1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5155	5264	
==>1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39420	39529	
==>1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5155	5264	
==>1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17148	17280	
==>rms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick} <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17148	17280	
==>rms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1049	1161	
==>ttr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1049	1161	
==>ttr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1049	1161	
==>ttr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3564	3660	
==>al(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*=%lu\n",(ul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7700	7810	
==>ze $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7700	7810	
==>ze $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she f <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1786	1892	
==>rsection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1786	1892	
==>rsection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.sta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	489	580	
==>"Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1102	1193	
==>"Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	489	580	
==>"Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1102	1193	
==>"Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	371	508	
==>t Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	371	508	
==>t Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3116	3237	
==><001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3116	3237	
==><001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4654	4769	
==>& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5313	5428	
==>& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set" <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4654	4769	
==>& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set" <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5313	5428	
==>& ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7854	8040	
==>hod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7854	8040	
==>hod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7854	8040	
==>hod eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "ca <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3472	3575	
==>rget, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matc <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	720	828	
==>) !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax works better
# sub parser ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27112	27204	
==>thod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31664	31756	
==>thod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30720	30812	
==>thod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) ret <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	755	889	
==>correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (Perl::Type)
#                  | CxtSlurpy (Perl::Type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3073	3175	
==>Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3073	3175	
==>Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3073	3175	
==>Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9895	10023	
==>s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9895	10023	
==>s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9895	10023	
==>s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8645	8757	
==>%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11067	11221	
==>e->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11067	11221	
==>e->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11067	11221	
==>e->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1247	1348	
==>6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { meth_call_term => $() } }
RULE
*{'meth_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13703	13799	
==>be sorted out before you can continue.

It is also possible to use the `force_todo()` function to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21495	21591	
==>t Net. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13761	13857	
==>be sorted out before you can continue.

It is also possible to use the `force_todo()` function to <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21495	21591	
==>t Net. All rights reserved.

This program is free software; you can redistribute it and/or modif <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1089	1223	
==>ckage>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### XXX no hiera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3935	4055	
==>oreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3935	4055	
==>oreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3935	4055	
==>oreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2418	2525	
==>XX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2418	2525	
==>XX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplif <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12920	13014	
==>e.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the r <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12920	13014	
==>e.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the r <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10806	10955	
==>nsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10806	10955	
==>nsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1257	1359	
==>e_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1257	1359	
==>e_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12381	12518	
==>s;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12381	12518	
==>s;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12381	12518	
==>s;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2025	2205	
==>ch.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2025	2205	
==>ch.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8619	8732	
==>ty> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8619	8732	
==>ty> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1494	1602	
==>atchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $targe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16249	16353	
==>log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16249	16353	
==>log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16249	16353	
==>log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	83	193	
==>nf->import();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1783	1904	
==>.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1783	1904	
==>.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1783	1904	
==>.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::sl <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2666	2756	
==>rname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${re_c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30751	30887	
==>dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator (opaque $self: list @values) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1249	1366	
==>rr;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_expo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1249	1366	
==>rr;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_expo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1249	1366	
==>rr;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_expo <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4129	4248	
==>= 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1966	2066	
==>urce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1966	2066	
==>urce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1966	2066	
==>urce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10595	10732	
==>oop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31380	31473	
==>n the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35930	36023	
==>n the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35148	35241	
==>n the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1326	1441	
==>> nbound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3122	3219	
==>ng test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3122	3219	
==>ng test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3202	3299	
==>ng test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	143	238	
==>937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	143	238	
==>937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	143	238	
==>937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2399	2497	
==>OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @sco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2399	2497	
==>OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @sco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2399	2497	
==>OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @sco <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3790	3882	
==>rig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'cotanh';
trig_func 'asech' <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	894	1003	
==>e Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	861	970	
==>e Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16880	16973	
==>e components of their application in Rosetta D (as
either named modules or anonymous routines) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16880	16973	
==>e components of their application in Rosetta D (as
either named modules or anonymous routines) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4827	4927	
==>! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4827	4927	
==>! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4827	4927	
==>! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9521	9607	
==>thod('another_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singlet <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9880	10045	
==>AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6221	6386	
==>AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7070	7235	
==>AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2441	2536	
==>ammar would likely not have been written. - Mitchell N Charity
#


grammar JavaScript::ECMAScrip <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26881	27006	
==>oncat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27160	27285	
==>oncat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21333	21426	
==>head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy dö <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21333	21426	
==>head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy dö <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1941	2039	
==>pan.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $cl <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1941	2039	
==>pan.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8719	8810	
==>{ Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2544	2635	
==>{ Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1058	1202	
==>@nonemptyseqs) {
            $cand = $seq->fetch(num->new(0)); # get the head of the list
            my $nothead;            
            foreac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1455	1549	
==>ion perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1455	1549	
==>ion perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1455	1549	
==>ion perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9619	9751	
==>ffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9619	9751	
==>ffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconn <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17855	17975	
==>proto || $proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = () <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4276	4373	
==>4523536028747135266249775724709369995957496696762772407663;
    # http://www.research.att.com/~nja <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19192	19288	
==>die "Cannot 'shift' scalar"; };

multi pop (@array) is builtin is primitive { List::pop(@array) } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6565	6659	
==>epresenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6565	6659	
==>epresenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8762	8856	
==>epresenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1004	1154	
==>bstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1004	1154	
==>bstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1004	1154	
==>bstr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $st <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28268	28363	
==>Any>

This method returns this Relation::Example's body.

=item C<size () returns Int>

This met <==
4	/Users/nnunley/pugs/misc/S29_round.pl	201	321	
==>($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6643	6749	
==>indow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6643	6749	
==>indow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6643	6749	
==>indow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTim <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	578	702	
==>ill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	578	702	
==>ill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	578	702	
==>ill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.len <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25310	25408	
==>lways.  The tests that use regmust have a
 * heuristic that disables the test if it usually matches <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2838	2953	
==>gs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2838	2953	
==>gs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2838	2953	
==>gs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22177	22273	
==>sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split(':: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	566	723	
==>ut.join( "\n" );
        @:output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4519	4615	
==>&infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4519	4615	
==>&infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4519	4615	
==>&infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	944	1123	
==>$line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:per <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	944	1123	
==>$line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:per <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4374	4469	
==>6($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7]) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4374	4469	
==>6($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7]) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1395	1500	
==>qw/Blondie::Reducer::DynamicScoping/;

    ...

    $self->enter_scope; # opens a new scope

    $self->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1448	1550	
==>turn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1448	1550	
==>turn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1448	1550	
==>turn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6418	6516	
==>on currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of t <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6418	6516	
==>on currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23506	23594	
==>ncluded in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23506	23594	
==>ncluded in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Pe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3403	3495	
==>eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3403	3495	
==>eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	712	803	
==>Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	712	803	
==>Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	534	632	
==>->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	534	632	
==>->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	534	632	
==>->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH() <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23654	23743	
==>L<Relation::Example>, which provides a minimal in-RAM
storage implementation for the Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1591	1746	
==>ess $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1591	1746	
==>ess $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1591	1746	
==>ess $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25596	25693	
==>t, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not all tests were successfu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1054	1172	
==>care if there are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1957	2056	
==>ludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1957	2056	
==>ludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1957	2056	
==>ludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19055	19142	
==>e,N1,Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,Re),F0,F1,B0,B1,E0,E1) :-
  % match_captures_nes <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5165	5285	
==>c passed to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	307	403	
==>";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	307	403	
==>";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	307	403	
==>";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Roo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	78	206	
==>e ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	78	206	
==>e ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2681	2788	
==>method stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { r <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2681	2788	
==>method stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9353	9449	
==>perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9353	9449	
==>perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9353	9449	
==>perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5177	5309	
==>previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.pre <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5177	5309	
==>previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.pre <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5522	5648	
==>lone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5522	5648	
==>lone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	559	669	
==><unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	559	669	
==><unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	559	669	
==><unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18131	18214	
==>m_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F1,B0,B1,E0,E1 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12154	12251	
==>on checks with ref() since we do not yet have
object support. Once object support is created, we w <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12212	12309	
==>on checks with ref() since we do not yet have
object support. Once object support is created, we w <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1424	1519	
==>nsity> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1424	1519	
==>nsity> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3490	3626	
==>turn;
    }
    die "there is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) = @_;
    my @x = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1473	1572	
==>6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1473	1572	
==>6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1473	1572	
==>6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4886	4995	
==>ten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4886	4995	
==>ten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4886	4995	
==>ten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25751	25847	
==>γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new(list => type::variable <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12774	12869	
==>es are all
negative; positive values are left available for extensions.  Please
refer to L<perld <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4142	4225	
==>bute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4142	4225	
==>bute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4142	4225	
==>bute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4979	5080	
==>lf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16015	16116	
==>lf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17503	17604	
==>lf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22186	22287	
==>lf->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37641	37749	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37641	37749	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37641	37749	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5828	5930	
==>tifierName>
}
rule IdentifierName {  # see 7.6
      <IdentifierStart>
    | <IdentifierName> <Identifi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23046	23149	
==>from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23046	23149	
==>from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23046	23149	
==>from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4301	4394	
==>age PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4301	4394	
==>age PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4301	4394	
==>age PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1868	1998	
==>= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1868	1998	
==>= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::St <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11403	11499	
==>t is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11461	11557	
==>t is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	191	287	
==>s primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	191	287	
==>s primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	191	287	
==>s primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  ( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27713	27801	
==>":t length_and_first");
is(t($length_and_first_p), "(int × int)", ":t length_and_first [ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20120	20222	
==>_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;)
It <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8158	8251	
==>= shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8158	8251	
==>= shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8158	8251	
==>= shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10470	10598	
==>::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10470	10598	
==>::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10470	10598	
==>::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a subm <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1669	1779	
==>uced->str);
		}
	}

	if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1841	1942	
==>ef}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1841	1942	
==>ef}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1841	1942	
==>ef}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	645	786	
==>_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7054	7159	
==>) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7054	7159	
==>) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7054	7159	
==>) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3217	3338	
==>_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	468	569	
==>ute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	468	569	
==>ute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	468	569	
==>ute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "A <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5444	5555	
==>or(Params::Check->last_error), return;

    ### build a from => to mapping
    ### note we have to create the di <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2749	2851	
==>s[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2749	2851	
==>s[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2749	2851	
==>s[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } els <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16081	16183	
==>es::unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15628	15727	
==>is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15628	15727	
==>is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15628	15727	
==>is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => : <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8169	8398	
==>eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12157	12311	
==>eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12157	12311	
==>eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3031	3136	
==>e them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2548	2643	
==>lo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2548	2643	
==>lo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2548	2643	
==>lo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23114	23213	
==>en to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23114	23213	
==>en to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35446	35542	
==>a: one object

=head2 group

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: array referen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3329	3426	
==>(*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf') <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4666	4763	
==>(*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf') <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3329	3426	
==>(*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4888	4985	
==>(*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf') <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3018	3119	
==>s export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3018	3119	
==>s export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4542	4643	
==>s export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4482	4632	
==>method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4482	4632	
==>method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4482	4632	
==>method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $metho <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2957	3078	
==>PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3199	3306	
==>{%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5586	5684	
==>$xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5586	5684	
==>$xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5586	5684	
==>$xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unb <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22723	22834	
==>fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2411	2512	
==>should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2411	2512	
==>should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2411	2512	
==>should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3829	3925	
==>s Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3829	3925	
==>s Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1066	1160	
==>r $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $fi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1066	1160	
==>r $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2139	2312	
==>pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2139	2312	
==>pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2139	2312	
==>pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' = <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	419	514	
==>omeClass");
 my $type = Type.new(Class.new("SomeClass"));

 $class.apply;

 $type =:= ::SomeClas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4956	5065	
==>n ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4956	5065	
==>n ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4956	5065	
==>n ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24039	24129	
==>'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopContr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3482	3619	
==>my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3482	3619	
==>my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3482	3619	
==>my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10886	10982	
==>ading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation::Examp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6284	6385	
==>olume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `ab <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8352	8453	
==>olume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `ab <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6284	6385	
==>olume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `ab <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8352	8453	
==>olume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20773	20923	
==>mp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCAL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20773	20923	
==>mp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCAL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20773	20923	
==>mp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCAL <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	567	669	
==>f (my $replacement = $r->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14687	14814	
==>on => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Orig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14687	14814	
==>on => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Orig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14687	14814	
==>on => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Orig <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18621	18722	
==>ubstr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	326	578	
==>$EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version app <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	326	578	
==>$EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version app <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11872	11985	
==>mmand) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::run <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12275	12388	
==>mmand) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::run <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5099	5230	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16135	16266	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17623	17754	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22306	22437	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25049	25144	
==>s then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<exampl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23813	23908	
==>s then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<exampl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25049	25144	
==>s then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<exampl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23813	23908	
==>s then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<exampl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4312	4418	
==>];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4312	4418	
==>];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10193	10292	
==>ert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %ms <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10193	10292	
==>ert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %ms <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2737	2854	
==>> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7831	7948	
==>> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2737	2854	
==>> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7831	7948	
==>> $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4656	4778	
==>);                
}



1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2189	2294	
==>);
}

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	264	360	
==>sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	264	360	
==>sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	264	360	
==>sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13292	13378	
==>="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8714	8844	
==>an ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	882	1000	
==>an ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	882	1000	
==>an ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.test <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1461	1620	
==>nt $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1565	1724	
==>nt $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1461	1620	
==>nt $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1565	1724	
==>nt $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self. <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	327	443	
==>t string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.P <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	327	443	
==>t string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.P <==
4	/Users/nnunley/pugs/misc/S29_round.pl	732	843	
==>.5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::roun <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1552	1663	
==>.5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::roun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1583	1689	
==>Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1583	1689	
==>Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1583	1689	
==>Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6071	6166	
==>duce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node->struct_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2506	2620	
==>args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the ful <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2506	2620	
==>args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the ful <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2506	2620	
==>args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the ful <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	275	366	
==>->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10215	10336	
==><:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outfile = IO::File->new($out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4516	4633	
==>,
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            's <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4516	4633	
==>,
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            's <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4516	4633	
==>,
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            's <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	688	806	
==>ive looping";
        }

        update_guess($guess, $target, $f, $fprime);

        say "{$count++}: $guess" if $verb <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3107	3224	
==>n?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("F <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3107	3224	
==>n?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4631	4748	
==>n?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6436	6541	
==>w( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6436	6541	
==>w( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6436	6541	
==>w( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( ' <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3020	3119	
==>array.elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	260	389	
==>o export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	260	389	
==>o export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	260	389	
==>o export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1011	1117	
==>t($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{% <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1011	1117	
==>t($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{% <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12218	12311	
==>$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12218	12311	
==>$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5141	5244	
==>rns num>

=item B<join (?str) returns str>

=item B<each (closure) return nil>

The closure here will be <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1447	1540	
==>ER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1447	1540	
==>ER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1447	1540	
==>ER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2698	2807	
==>ass->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not e <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2698	2807	
==>ass->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20766	20874	
==>TREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17187	17295	
==>TREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5225	5340	
==>'  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5225	5340	
==>'  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9199	9291	
==>tion is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-orien <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9199	9291	
==>tion is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-orien <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17941	18067	
==>=> { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17941	18067	
==>=> { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	751	847	
==>f8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	751	847	
==>f8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docum <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13718	13820	
==>nsider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set: <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13718	13820	
==>nsider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	18	112	
==>mar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	18	112	
==>mar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3224	3352	
==>) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3224	3352	
==>) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $mat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8323	8428	
==>(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page co <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8323	8428	
==>(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3312	3406	
==>rameters of the request are accessible through the HTTP::Query object that
is part of every HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3312	3406	
==>rameters of the request are accessible through the HTTP::Query object that
is part of every HTT <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1761	1852	
==>y @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is consta <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1761	1852	
==>y @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is consta <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2066	2187	
==>p { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of req <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2946	3067	
==>p { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of req <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2327	2422	
==>our 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a num <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2327	2422	
==>our 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a num <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	234	340	
==>2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	234	340	
==>2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8452	8575	
==>rse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8452	8575	
==>rse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8452	8575	
==>rse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5172	5272	
==>ails_ok { $Foo->bar } '... metaclass calling instance method fails';

## make instances

my $iFoo = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	352	479	
==>tor',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1110	1230	
==>TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1110	1230	
==>TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1110	1230	
==>TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18061	18180	
==>str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param => $pair,
);

# this makes sure that ':t id(10)' is t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7411	7565	
==>ends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provid <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	712	866	
==>ends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provid <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7462	7559	
==>athchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    wh <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7462	7559	
==>athchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11264	11386	
==>sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11264	11386	
==>sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11264	11386	
==>sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1575	1683	
==>ss);
        $output .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dott <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9024	9158	
==>lse
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $se <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1168	1286	
==>lse
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $se <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1168	1286	
==>lse
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $se <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5587	5704	
==>ot write to META.yml: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7116	7298	
==>ool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6878	7050	
==>ool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'b <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7193	7284	
==>es.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7193	7284	
==>es.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6328	6425	
==>m B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6328	6425	
==>m B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8525	8622	
==>m B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B< <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7294	7391	
==>lled as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer inp <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7294	7391	
==>lled as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer inp <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2473	2568	
==>< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2473	2568	
==>< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	782	897	
==>e::Reducer::DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19519	19611	
==>_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19519	19611	
==>_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19519	19611	
==>_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3061	3167	
==>er($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20642	20738	
==>so you must use accessor
methods.  Relation does not declare any subroutines or export such.

The <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25194	25290	
==>so you must use accessor
methods.  Relation does not declare any subroutines or export such.

The <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8377	8467	
==>placeholder = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fmap(sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19463	19774	
==>d;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19463	19774	
==>d;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19463	19774	
==>d;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxe <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19335	19440	
==>_ if $ML;
}


# For slow connections, we save lots of bandwidth by printing only once
# per second.
sub _p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2163	2292	
==>ol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2163	2292	
==>ol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2163	2292	
==>ol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $c <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3536	3636	
==>put_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design documents   : Won't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5689	5815	
==>f ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5689	5815	
==>f ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5689	5815	
==>f ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15760	15858	
==>e

These header fields are used to make a request conditional.  If the requested
resource has (or h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15760	15858	
==>e

These header fields are used to make a request conditional.  If the requested
resource has (or h <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4036	4119	
==>mplement_previous => $self._get_union( $self.complement_previous, $set.complement_pr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4036	4119	
==>mplement_previous => $self._get_union( $self.complement_previous, $set.complement_pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1890	2008	
==>gex'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3354	3471	
==>ss $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unsh <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3354	3471	
==>ss $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unsh <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22093	22201	
==>SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible dang <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16994	17101	
==>SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible dang <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	25	126	
==>s;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	25	126	
==>s;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10363	10481	
==>arams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10363	10481	
==>arams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10363	10481	
==>arams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->pa <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3086	3199	
==>rl6_doc', 'design' ))) {
        $syn_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unles <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2114	2228	
==>>   No stain yet on the Moon was seen,
>   No words were laid on stream or stone,
>   When Durin woke and walked al <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1084	1183	
==>o run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1084	1183	
==>o run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1631	1730	
==>o run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	315	442	
==>s {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	315	442	
==>s {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	315	442	
==>s {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $js <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	962	1071	
==>. ++$self->{node_counter};
}

sub layout {
	my $self = shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/){
	r <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3782	3874	
==>e =~ s!("-MExtUtils::Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1!g;
    $makefile =~ s/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	688	775	
==>s->superclasses([ $::Class ]);

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	688	775	
==>s->superclasses([ $::Class ]);

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	688	775	
==>s->superclasses([ $::Class ]);

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4422	4532	
==>rn $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	174	274	
==>(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	174	274	
==>(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	174	274	
==>(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Roo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12635	12881	
==>e::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12635	12881	
==>e::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	226	316	
==>-------------------------------------------------------
## This is an extension of the Mini <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	194	284	
==>-------------------------------------------------------
## This is an extension of the Mini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4834	4937	
==>container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# fl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4834	4937	
==>container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# fl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5424	5527	
==>container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# fl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7691	7793	
==>_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( map { $_->accepts_type } @pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9130	9274	
==>expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1187	1304	
==>}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1187	1304	
==>}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	39	151	
==>This file is a development snapshot of the prolog regex engine I
started over the weekend.  A "look at what I'm u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3695	3843	
==>> {
            store       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8095	8231	
==>> {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1428	1535	
==>}else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1428	1535	
==>}else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5886	6031	
==>ge::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5886	6031	
==>ge::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33478	33574	
==>st in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33478	33574	
==>st in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11912	12031	
==>l') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11912	12031	
==>l') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11912	12031	
==>l') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6821	6922	
==>we have $ghc_version).
*** Please install a newer version from http://haskell.org/ghc/.
.
    }

    m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16105	16216	
==>her!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19582	19693	
==>her!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.valu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7400	7495	
==>Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_directo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7400	7495	
==>Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_directo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17360	17526	
==>\n" if $bonusmsg;
            die "Failed $tot->{bad}/$tot->{tests} test scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5681	5793	
==>bj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actuall <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5681	5793	
==>bj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actuall <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5681	5793	
==>bj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actuall <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3908	4005	
==>{ 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3908	4005	
==>{ 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3908	4005	
==>{ 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendan <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1776	1872	
==>at
multi sub epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :y <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16363	16462	
==>$as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_object => sub { $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	901	996	
==>ct_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	901	996	
==>ct_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	981	1076	
==>ct_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4856	4951	
==>lementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4856	4951	
==>lementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4856	4951	
==>lementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28116	28199	
==>rint $rx->('abc')->('abc')->describe,"\n";
print $rx->('(a+|b)*')->('ab')->describe, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6254	6365	
==>p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6254	6365	
==>p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6254	6365	
==>p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	156	256	
==>closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8700	8875	
==>::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12177	12352	
==>::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3658	3773	
==>od found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5560	5675	
==>od found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4292	4545	
==>es not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4292	4545	
==>es not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12948	13082	
==>e_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6423	6557	
==>e_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4990	5098	
==>";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4990	5098	
==>";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4990	5098	
==>";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26377	26476	
==>SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch i <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3439	3545	
==>values{license};

    $values{license}           ||= 'unknown';
    $values{distribution_type} ||= 'module' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12695	12785	
==>head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12695	12785	
==>head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16751	16860	
==>oxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16751	16860	
==>oxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16751	16860	
==>oxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25073	25165	
==>is also valid
for a Relation::Example to have zero attributes, though such a Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1352	1551	
==>d ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1352	1551	
==>d ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1352	1551	
==>d ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	441	544	
==>ORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::import { }

sub node($h,$t) { return [$h, $t] }

sub hea <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	818	927	
==>e::Type::Std->new("GV"),
		},
		{
			arity => 3,
			name => '&printf',
			body => 'prel_printf',
			type => ty <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4691	4784	
==>ect_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.diffe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8168	8261	
==>ect_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.diffe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7830	7933	
==>'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7830	7933	
==>'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7830	7933	
==>'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	26	136	
==>n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	26	136	
==>n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	26	136	
==>n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
4	/Users/nnunley/pugs/util/func_refact.pl	612	719	
==>es}) or
        die "can't load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring: $_\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4094	4239	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4082	4227	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13179	13300	
==>=> 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13179	13300	
==>=> 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15745	15862	
==>};
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	944	1060	
==>hod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	944	1060	
==>hod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	944	1060	
==>hod))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1899	1996	
==>lasses that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1862	1959	
==>lasses that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1899	1996	
==>lasses that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1862	1959	
==>lasses that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17759	17893	
==>ward till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuf <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13519	13863	
==>$tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4037	4131	
==>new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4037	4131	
==>new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4037	4131	
==>new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => :: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19088	19235	
==>ag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4951	5053	
==>il = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4951	5053	
==>il = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4951	5053	
==>il = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4734	4851	
==>.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4734	4851	
==>.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.se <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4968	5064	
==>ax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4968	5064	
==>ax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	732	873	
==>pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	732	873	
==>pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4985	5191	
==>[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4985	5191	
==>[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4985	5191	
==>[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9250	9389	
==>ule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4845	5073	
==>w( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4845	5073	
==>w( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4845	5073	
==>w( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3390	3489	
==>);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3778	3900	
==>scaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3971	4093	
==>scaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10862	10960	
==>nchanged.

The old value (or values) of the last of the header fields is returned.
If no such field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10862	10960	
==>nchanged.

The old value (or values) of the last of the header fields is returned.
If no such field <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14152	14286	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14152	14286	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14152	14286	
==>for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7424	7535	
==>Bar',
    '$:superclass' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want these roles <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8989	9110	
==>ers{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8989	9110	
==>ers{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7718	7823	
==>_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.tra <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7718	7823	
==>_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.tra <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13911	14088	
==>($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4020	4169	
==>($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4020	4169	
==>($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4020	4169	
==>($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6341	6437	
==>sh followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6341	6437	
==>sh followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6341	6437	
==>sh followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2160	2362	
==>$method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2160	2362	
==>$method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2160	2362	
==>$method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        els <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18889	18985	
==>s. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17932	18028	
==>s. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18889	18985	
==>s. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17932	18028	
==>s. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	590	687	
==>:More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	636	731	
==>:More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26418	26512	
==>tta
that you are willing to distribute, because that is a practical way of
suggesting improveme <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26418	26512	
==>tta
that you are willing to distribute, because that is a practical way of
suggesting improveme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	884	1023	
==>0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	849	981	
==>0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'= <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22318	22414	
==>ion class is pure and deterministic, such that all of its class
and object methods will each retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26870	26966	
==>ion class is pure and deterministic, such that all of its class
and object methods will each retu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3849	3947	
==>return any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher A <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3849	3947	
==>return any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher A <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	101	198	
==>esult> is the match state that is passed around.  It essentially
forms a linked list through the r <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	101	198	
==>esult> is the match state that is passed around.  It essentially
forms a linked list through the r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1933	2051	
==>length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2368	2486	
==>length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2805	2923	
==>length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        ma <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2237	2338	
==>ine
7th line
8th line
9th line
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18822	18922	
==>he connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17865	17965	
==>he connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its st <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18822	18922	
==>he connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its st <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17865	17965	
==>he connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its st <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5695	5779	
==>sif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5695	5779	
==>sif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3198	3295	
==>u to test test modules that use Test::Builder.  It
does this by you setting the expected output an <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3198	3295	
==>u to test test modules that use Test::Builder.  It
does this by you setting the expected output an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3278	3375	
==>u to test test modules that use Test::Builder.  It
does this by you setting the expected output an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1346	1437	
==>er::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PACKAGE__;
  push @Regexp:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17524	17665	
==>d' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::sig <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40793	40934	
==>d' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::sig <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2983	3123	
==>= ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2983	3123	
==>= ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	450	585	
==>ir is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	450	585	
==>ir is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	450	585	
==>ir is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2179	2291	
==>y $r = $runtime_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_cla <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	519	663	
==>ub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1181	1291	
==>Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1181	1291	
==>Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1181	1291	
==>Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2057	2380	
==>);                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2057	2380	
==>);                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9386	9521	
==>$fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$fres <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10377	10512	
==>$fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$fres <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23602	23722	
==>erclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(method superclasses ((opaque $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7864	7981	
==>) {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7864	7981	
==>) {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7864	7981	
==>) {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padnam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2559	2697	
==>> sub { _('$.diagnostic') },        
        'description' => sub { _('$.description') },        
        'status' => sub {
            ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	983	1082	
==>me,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	983	1082	
==>me,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	983	1082	
==>me,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4734	4837	
==>fg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't wr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7862	7965	
==>o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($v,$prefix);
	    } elsif(defined $v) {
		$$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4734	4837	
==>fg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't wr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4734	4837	
==>fg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't wr <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18152	18267	
==>th element 1 being
#1 and 0 being empty, this is less awkward.

=head1 EXAMPLES

See F<examples/mini_harness.plx> fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1205	1315	
==>",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1205	1315	
==>",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1205	1315	
==>",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16614	16726	
==>'cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13035	13147	
==>'cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	412	524	
==>fficient way to do this,
      // but if I store the node in a variable outside of this function
      // and ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	412	524	
==>fficient way to do this,
      // but if I store the node in a variable outside of this function
      // and ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	412	524	
==>fficient way to do this,
      // but if I store the node in a variable outside of this function
      // and ref <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	733	841	
==>abel = str->new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2614	2730	
==>n";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	379	485	
==>n";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	379	485	
==>n";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	542	639	
==>- warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	542	639	
==>- warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	542	639	
==>- warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	564	658	
==>ey} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3004	3203	
==>> 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3004	3203	
==>> 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3004	3203	
==>> 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	16	114	
==>.} returns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l starte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2814	2964	
==>while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2721	2867	
==>while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            retu <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	226	348	
==>/\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	226	348	
==>/\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14236	14363	
==>tain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any)
  number <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6225	6315	
==>$xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceilin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6225	6315	
==>$xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceilin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6225	6315	
==>$xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceilin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7986	8126	
==>mily => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7102	7223	
==>10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix($_,$prefix) }
    } el <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3028	3142	
==>all o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3028	3142	
==>all o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	616	717	
==>eable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	616	717	
==>eable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	616	717	
==>eable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	535	633	
==>fy a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10351	10477	
==>{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "skipped\n        a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4310	4410	
==>->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4310	4410	
==>->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4310	4410	
==>->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless d <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	196	313	
==>asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$base)
            ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2409	2498	
==>er::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2409	2498	
==>er::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2409	2498	
==>er::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descripti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	724	830	
==>Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	724	830	
==>Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; D <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10028	10125	
==>set, and for querying 
set properties.

Note that all set functions may end up being calculated us <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10028	10125	
==>set, and for querying 
set properties.

Note that all set functions may end up being calculated us <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	960	1064	
==>cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19382	19473	
==>infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19382	19473	
==>infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19382	19473	
==>infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2218	2362	
==>unk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeated <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2576	2720	
==>unk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeated <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7831	7929	
==><end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7831	7929	
==><end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2046	2183	
==>AY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2046	2183	
==>AY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13990	14088	
==>dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13990	14088	
==>dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1596	1717	
==>hod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1596	1717	
==>hod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10708	10821	
==>-> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) : <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10708	10821	
==>-> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) : <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23591	23724	
==>();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $fai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	109	211	
==>o::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	109	211	
==>o::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	109	211	
==>o::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5887	5991	
==>{ ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5887	5991	
==>{ ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5887	5991	
==>{ ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1542	1644	
==>iles
### These are dependant on the installation, so they are 
### marked privata.. their public equiva <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19624	19740	
==>msg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	689	796	
==>/ See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	689	796	
==>/ See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	689	796	
==>/ See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4867	5020	
==>s)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4867	5020	
==>s)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2561	2664	
==>$rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2561	2664	
==>$rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	102	199	
==>rivate use methods
has Code--Perl6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9890	10006	
==>add_handler('$$' => sub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S->object(eol => eol => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1016	1117	
==>CH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1016	1117	
==>CH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1016	1117	
==>CH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Roo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2006	2145	
==>s help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	320	459	
==>s help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2006	2145	
==>s help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2006	2145	
==>s help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3640	3743	
==>($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3640	3743	
==>($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4514	4616	
==>($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4514	4616	
==>($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	221	340	
==>$param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	215	334	
==>$param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	221	340	
==>$param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	215	334	
==>$param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{r <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7131	7219	
==>.
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4226	4362	
==>uld not load available file: $@" ), return;
            $obj->available( \@avail );

        }
  
        return $obj;
    }
}

=head2 $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2368	2467	
==>6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2368	2467	
==>6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2368	2467	
==>6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7244	7410	
==>eturn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7244	7410	
==>eturn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7244	7410	
==>eturn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21857	21949	
==>mory implementation of the Relation role

=head1 VERSION

This document describes Relation::E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18362	18544	
==>join;

###########################################################################

my method _union (Relation::Example $other!) returns Relation::Example {
    return Relation::Examp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1126	1231	
==>Fun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1126	1231	
==>Fun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1126	1231	
==>Fun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14325	14498	
==>$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14325	14498	
==>$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14325	14498	
==>$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2856	3029	
==>$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	900	1017	
==>efined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.val <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	900	1017	
==>efined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.val <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1080	1180	
==>a placeholder to make a DAG out of a tree (to gain strong typing)
#	::free - an unbound type variable <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6464	6562	
==>/
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3464	3590	
==>t they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3464	3590	
==>t they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3464	3590	
==>t they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if ( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19418	19522	
==>"y"),
);

# this is a higher order function that takes a function and applies it to a string
# thiss test <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	696	816	
==>rt<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	696	816	
==>rt<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2047	2139	
==>L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2136	2228	
==>L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2795	2902	
==>:Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - He <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2795	2902	
==>:Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - He <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2875	2982	
==>:Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - He <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	624	716	
==>nless Scalar::Util::blessed($node);

	$node->isa("Blondie::Node")
		or die "it doesn't look l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	322	532	
==>gs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when ' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	322	532	
==>gs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7403	7513	
==>other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10880	10990	
==>other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15924	16119	
==>ed_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15918	16113	
==>ed_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2320	2431	
==>e;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - ke <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2320	2431	
==>e;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9538	9711	
==>not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15082	15255	
==>not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9538	9711	
==>not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15076	15249	
==>not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1931	2074	
==>"    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4580	4680	
==>sif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4580	4680	
==>sif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4580	4680	
==>sif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2872	2997	
==>|
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2872	2997	
==>|
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37867	37957	
==>given module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37867	37957	
==>given module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10772	10888	
==>> "$initrd_mnt/linuxrc"],
    [$welcome_p6           => "$initrd_mnt/welcome.p6"],
  );
  step
    descr  => "Copying <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4030	4125	
==>cc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4030	4125	
==>cc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4030	4125	
==>cc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1622	1730	
==>s") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1622	1730	
==>s") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1622	1730	
==>s") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2192	2297	
==>my $result = $self->{$stage};
	return 1 if defined $result && $result->has_failed();
    }
    return 0;
} <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3679	3787	
==>(Class::Events::Event::Named.new($name));
        }
    }
}

class Class::Events::Event {
    # pretty much a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5203	5301	
==>espace ("MyName" in the code above).  This lets you to
do anything you like with each object, but i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5203	5301	
==>espace ("MyName" in the code above).  This lets you to
do anything you like with each object, but i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5203	5301	
==>espace ("MyName" in the code above).  This lets you to
do anything you like with each object, but i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28573	28673	
==>ess
  $ perl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @ARGV;' t/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3112	3204	
==>$current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3112	3204	
==>$current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3112	3204	
==>$current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11894	11994	
==>des of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11894	11994	
==>des of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4817	4912	
==>16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4817	4912	
==>16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6077	6185	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8145	8253	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6077	6185	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8145	8253	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	975	1094	
==>PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	277	394	
==>del::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	277	394	
==>del::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	277	394	
==>del::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13166	13263	
==>ND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `gre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13166	13263	
==>ND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `gre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8655	8745	
==>ments, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_lis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2480	2570	
==>ments, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_lis <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8074	8340	
==>e {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method map (Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5593	5697	
==>'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5593	5697	
==>'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5593	5697	
==>'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7546	7641	
==>(@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest *@index <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10527	10620	
==>ass(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizontal_space))  -- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25200	25356	
==>ion'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25479	25635	
==>ion'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ru <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1584	1681	
==>s.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 19 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1584	1681	
==>s.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 19 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	623	721	
==>ext 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	623	721	
==>ext 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3725	3822	
==>ns to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, ca <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3725	3822	
==>ns to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11378	11499	
==>ly logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * : <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11378	11499	
==>ly logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * : <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8017	8128	
==>rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implement <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5419	5524	
==>rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implement <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2700	2835	
==>CKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15687	15787	
==>s };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15687	15787	
==>s };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15687	15787	
==>s };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MU <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	335	437	
==>EMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::R <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	335	437	
==>EMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::R <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12664	12754	
==>=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12664	12754	
==>=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1481	1655	
==>lues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1481	1655	
==>lues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1481	1655	
==>lues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	980	1112	
==>op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_[0]->{out}= $_[1] }
    |   type s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10273	10413	
==>args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6614	6754	
==>args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7463	7603	
==>args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5688	5794	
==>ct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->le <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3464	3564	
==>od compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Inf <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3464	3564	
==>od compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Inf <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7565	7698	
==>let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got te <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7565	7698	
==>let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	763	859	
==>gram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matchin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	969	1065	
==>gram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matchin <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1525	1624	
==>nt = $parent;
    $.depth  = $parent.depth() + 1;
}

## -------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1525	1624	
==>nt = $parent;
    $.depth  = $parent.depth() + 1;
}

## -------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11606	11701	
==>ay of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11606	11701	
==>ay of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Node <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15891	15991	
==>8
      <ShiftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3144	3269	
==>bel} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3144	3269	
==>bel} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15066	15162	
==>ICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15066	15162	
==>ICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1005	1127	
==>insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if $self->omit;
    push @$tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	286	383	
==>f Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	286	383	
==>f Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	286	383	
==>f Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is prim <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26105	26246	
==>any other means.

=item C<HARNESS_COLUMNS>

This value will be used for the width of the terminal. If it is not
set then it will default to C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10886	10984	
==>f($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10886	10984	
==>f($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10886	10984	
==>f($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6943	7031	
==>'@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6943	7031	
==>'@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6943	7031	
==>'@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_meth <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5325	5419	
==>ription>, from the
test's attributes.

=item B<report returns Str>

This returns a string which <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5325	5419	
==>ription>, from the
test's attributes.

=item B<report returns Str>

This returns a string which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7522	7616	
==>ription>, from the
test's attributes.

=item B<report returns Str>

This returns a string which <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23368	23454	
==>:X1::Api::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_retur <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	251	370	
==>rhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        f <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	251	370	
==>rhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        f <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1004	1103	
==>=> "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latte <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1004	1103	
==>=> "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latte <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	622	749	
==>rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	615	742	
==>rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	76	197	
==>e];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@A <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	81	202	
==>e];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@A <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15103	15218	
==>self = shift;

    $self->{cache} = {};
    $self->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11191	11288	
==>would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11191	11288	
==>would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11191	11288	
==>would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2575	2724	
==>te):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2575	2724	
==>te):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29178	29293	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29457	29572	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35074	35206	
==>offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_bo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35074	35206	
==>offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_bo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35074	35206	
==>offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3285	3407	
==>.
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'! <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4438	4548	
==>ndices --> List )
 { ... } # XXX


 multi method Array::exists (@array ; Int *@indices --> Bool )
 { ... } # XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13231	13330	
==>it ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13231	13330	
==>it ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13231	13330	
==>it ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	403	531	
==>}) {
        next unless $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4586	4762	
==>ift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6255	6431	
==>ift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11791	11911	
==>t another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11791	11911	
==>t another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24449	24560	
==>$self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20870	20981	
==>$self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	585	685	
==>ehaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaqu <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	585	685	
==>ehaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaqu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9925	10034	
==>$pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9925	10034	
==>$pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9925	10034	
==>$pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	245	346	
==>se Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is no <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15400	15519	
==>odcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Buc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15400	15519	
==>odcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Buc <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1313	1424	
==>ive] = $value;
    return nil->new();
}

sub remove {
    my ($self, $index) = @_;
    (blessed($index) && $inde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2420	2520	
==>hes), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2420	2520	
==>hes), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2500	2600	
==>hes), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25774	25868	
==>not interact with the outside
environment at all.

A Relation::Example object has 2 main attrib <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5230	5454	
==>_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $ver <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5230	5454	
==>_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $ver <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33456	33554	
==>rary should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33456	33554	
==>rary should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3770	3876	
==>my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7247	7353	
==>my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        hea <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4747	4864	
==>sub add_definition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self->{defs} }, $body;

	$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1038	1152	
==>d '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1038	1152	
==>d '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1038	1152	
==>d '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2495	2745	
==>up';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2742	2992	
==>up';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5751	5843	
==>:MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5233	5325	
==>:MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3795	3890	
==>er> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buff <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3795	3890	
==>er> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buff <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9328	9417	
==>DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9328	9417	
==>DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The heade <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16233	16355	
==>hod(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16233	16355	
==>hod(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16233	16355	
==>hod(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15128	15239	
==>to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15128	15239	
==>to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15128	15239	
==>to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4567	4694	
==>^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4567	4694	
==>^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$ch <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2477	2571	
==>arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2477	2571	
==>arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3514	3621	
==>", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3514	3621	
==>", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3514	3621	
==>", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13191	13290	
==>ifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier une <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8599	8706	
==>object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7568	7675	
==>object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8599	8706	
==>object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7568	7675	
==>object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7156	7295	
==>@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7156	7295	
==>@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7156	7295	
==>@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5729	5843	
==>{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safefree(r->precomp);
    r->prelen = SvLEN(pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	342	441	
==>l, really concreate and practical 
# things like Object, Package and Module. It was also created
# b <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15288	15387	
==>e return value from the function
	# since this return value is a type variable that is present insid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	342	441	
==>l, really concreate and practical 
# things like Object, Package and Module. It was also created
# b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	342	441	
==>l, really concreate and practical 
# things like Object, Package and Module. It was also created
# b <==
4	/Users/nnunley/pugs/util/package-osx.pl	6854	6967	
==>an/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/man3/Perl6::Perl5::Differences.3
        /usr/local/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19598	19690	
==>n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19598	19690	
==>n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19598	19690	
==>n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MUL <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6433	6581	
==>e -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6433	6581	
==>e -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4998	5127	
==>{
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 're <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4998	5127	
==>{
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 're <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	851	1006	
==>ile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.d <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	851	1006	
==>ile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4486	4600	
==>rse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4486	4600	
==>rse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10425	10564	
==>y[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10425	10564	
==>y[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10425	10564	
==>y[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undef <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1663	1795	
==>file
    my @metalist;
    for my $meta ( qx[find $Repodir -type f | grep '$Metaext\$'] ) {
        chomp $meta;
        
        pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3064	3191	
==>turn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3064	3191	
==>turn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( ke <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6301	6401	
==>f.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6301	6401	
==>f.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13391	13543	
==>tring = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3548	3684	
==>tring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3548	3684	
==>tring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3548	3684	
==>tring = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3639	3783	
==>recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3639	3783	
==>recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3639	3783	
==>recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4746	4844	
==>ODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns *native*>

=ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3168	3292	
==>family { 'space' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17230	17331	
==>ct
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17230	17331	
==>ct
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17230	17331	
==>ct
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1181	1294	
==>n't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1181	1294	
==>n't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4971	5077	
==>nt = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_no <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4971	5077	
==>nt = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8026	8163	
==>foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8026	8163	
==>foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8026	8163	
==>foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	120	218	
==>vents
# something which does subscriber can recieve them
# two kinds of things that can do subscrib <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2262	2415	
==>);
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->confi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1949	2056	
==>and {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1949	2056	
==>and {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1949	2056	
==>and {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef( <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7514	7636	
==>tern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7571	7693	
==>tern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4185	4274	
==>----------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4208	4297	
==>-----
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8413	8531	
==>ts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8413	8531	
==>ts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8413	8531	
==>ts
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = <==
4	/Users/nnunley/pugs/util/drift.pl	1927	2029	
==>ram) until $program[0] =~ /Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type Buf = B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	322	494	
==>ass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	322	494	
==>ass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	322	494	
==>ass,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8766	8892	
==>lt);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0);
    }
    f <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	860	973	
==>m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./as <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	860	973	
==>m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./as <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2459	2560	
==>of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2459	2560	
==>of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2020	2128	
==>ed.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2020	2128	
==>ed.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2020	2128	
==>ed.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File-> <==
4	/Users/nnunley/pugs/util/package-osx.pl	237	332	
==>bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/bin/remove-$1.pl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21019	21115	
==>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, wh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19927	20023	
==>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21019	21115	
==>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19927	20023	
==>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, wh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1080	1199	
==>($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1480	1599	
==>($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1954	2073	
==>($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4218	4327	
==>p_version\n"
        . ($self->postamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9561	9705	
==>'secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($ver <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9561	9705	
==>'secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($ver <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3907	4032	
==>\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3907	4032	
==>\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $pat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7398	7532	
==>$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9375	9509	
==>$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7386	7520	
==>$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9363	9497	
==>$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2492	2605	
==>+? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2676	2789	
==>+? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrul <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15858	15962	
==>$node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2255	2355	
==>$node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8221	8330	
==>g, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4552	4649	
==>pand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4552	4649	
==>pand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4552	4649	
==>pand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand() <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9795	9891	
==>f(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9795	9891	
==>f(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9795	9891	
==>f(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10306	10476	
==>_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10306	10476	
==>_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10306	10476	
==>_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            ret <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14010	14139	
==>reduce_prim {
    my $self = shift;
    my $prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10568	10679	
==>$a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $a = type::variable::fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	409	499	
==>ts);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	409	499	
==>ts);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	409	499	
==>ts);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3475	3596	
==>q $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3475	3596	
==>q $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4999	5120	
==>q $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15807	15907	
==>d Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$docu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15807	15907	
==>d Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$docu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3458	3554	
==>ine(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 whil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3458	3554	
==>ine(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 whil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8583	8733	
==>$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8583	8733	
==>$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8583	8733	
==>$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2648	2784	
==>self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2648	2784	
==>self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2648	2784	
==>self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	96	195	
==>rite a limited piln version with a more
# general p6 one after bootstrap).  Or spec code which doesn <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1134	1234	
==>$url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1134	1234	
==>$url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33589	33688	
==>mes>

Array of Str - This stores an ordered list one or more elements where each
element is a Templa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33589	33688	
==>mes>

Array of Str - This stores an ordered list one or more elements where each
element is a Templa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5409	5535	
==>, $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base goto term_bx2
    $I0 *= base
    $If0 += $I1
    inc pos
    goto term_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2877	2977	
==>ew('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2877	2977	
==>ew('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2877	2977	
==>ew('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3853	3969	
==>age::Installed')}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa(shif <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9256	9384	
==>= "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23266	23364	
==>hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23266	23364	
==>hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23266	23364	
==>hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11612	11733	
==>f) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11612	11733	
==>f) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	358	463	
==>n metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	358	463	
==>n metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3362	3479	
==>e lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3362	3479	
==>e lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13340	13433	
==>, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13340	13433	
==>, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1203	1307	
==>self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1203	1307	
==>self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1203	1307	
==>self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4968	5063	
==>t {p6_new('List',@_)}
sub p6_Scalar {p6_new('Scalar',@_)}

# XXX - Using field names here is a m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	421	526	
==>i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	421	526	
==>i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	421	526	
==>i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	361	477	
==>,
        archname  => $Config{archname},
        exe_ext   => $Config{exe_ext},
        path_sep  => $Config{path_se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1036	1150	
==>oad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1036	1150	
==>oad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1036	1150	
==>oad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1356	1489	
==>tle->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      s <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1356	1489	
==>tle->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13721	13820	
==>elf->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7928	8027	
==>elf->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29227	29321	
==>ndle 'atom' is pre-consumptive (because there is no 'ato' handle,
basically).  In order for the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11831	11916	
==>nternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11831	11916	
==>nternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11831	11916	
==>nternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3940	4060	
==>warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3940	4060	
==>warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3940	4060	
==>warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10232	10335	
==>ince that would probably be faster)

    # also, the signature for this sub is nowhere near finalized; i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24042	24154	
==>urn $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20463	20575	
==>urn $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5053	5150	
==>ead1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5053	5150	
==>ead1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4666	4791	
==>tart_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5325	5450	
==>tart_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4666	4791	
==>tart_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5325	5450	
==>tart_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields an empty set";
            undefine <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34903	35012	
==>'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34903	35012	
==>'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34903	35012	
==>'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offse <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19465	19573	
==>6_eval {
    my($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3691	3784	
==>nce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3691	3784	
==>nce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3691	3784	
==>nce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	581	686	
==>$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_consta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	581	686	
==>$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_consta <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11168	11261	
==>al set" recurrence object.

- `complement()`

Returns everything (from the universal set) that <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11168	11261	
==>al set" recurrence object.

- `complement()`

Returns everything (from the universal set) that <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8650	8792	
==>f ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14375	14517	
==>f ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8650	8792	
==>f ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14369	14511	
==>f ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11998	12102	
==>=> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11998	12102	
==>=> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11998	12102	
==>=> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bles <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27633	27726	
==>ss messages using carriage returns.  Some
consoles may not handle carriage returns properly (w <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6867	7008	
==>rsive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7331	7472	
==>rsive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2347	2448	
==>e if incorrect.
    $path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27195	27285	
==>, "(int × str)", ":t id(pair(id(10))(id('foo')))");
is(t($app_to_str), "∀α. (str → α <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2264	2423	
==>) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3601	3697	
==>y.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3601	3697	
==>y.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3601	3697	
==>y.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1298	1411	
==>s_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1298	1411	
==>s_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19608	19703	
==>te or alter tables by adding or
updating their "information schema" records, which in SQL are re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19608	19703	
==>te or alter tables by adding or
updating their "information schema" records, which in SQL are re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16530	16639	
==>p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < 1;
    my($x)=@_;
    my $reftyp = ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10224	10344	
==>bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10224	10344	
==>bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10224	10344	
==>bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLE <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6949	7060	
==>);
print $error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1374	1470	
==><Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules fo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1374	1470	
==><Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14150	14236	
==>ng::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14150	14236	
==>ng::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14150	14236	
==>ng::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52356	52441	
==>subclass of Object >
$::Class->set_attr(symbol->new('@:superclasses') => list->new($:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15494	15590	
==>d the set of generic type variables, so the body has the generic variables created in the binding <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4666	4754	
==>al(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protect <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4666	4754	
==>al(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protect <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4666	4754	
==>al(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protect <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6322	6474	
==>tch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6322	6474	
==>tch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6322	6474	
==>tch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32847	32944	
==>exp::Parser::>, but that is omitted
here for brevity.  The headings are object I<classes>.  The fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24092	24225	
==>m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@ca <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24092	24225	
==>m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@ca <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24092	24225	
==>m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@ca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	931	1047	
==>hunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow adding glob <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11041	11143	
==>umber of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.incl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8445	8547	
==>umber of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.incl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11041	11143	
==>umber of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.incl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8445	8547	
==>umber of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.incl <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12319	12419	
==>V{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying what sort of line y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12871	12966	
==>{...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12871	12966	
==>{...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12871	12966	
==>{...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	958	1108	
==>];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	919	1064	
==>];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	879	998	
==><Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	879	998	
==><Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4746	4913	
==>le' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4746	4913	
==>le' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4746	4913	
==>le' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5109	5231	
==>l->param(runcores => [
    map {{
      name       => $_,
      categories => $runcores{$_},
    }} sort keys %runcores
  ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	249	369	
==>elf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	249	369	
==>elf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	249	369	
==>elf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8329	8433	
==>p6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13099	13208	
==>ross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16576	16685	
==>ross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15938	16047	
==>ross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2103	2211	
==>);
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2103	2211	
==>);
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2103	2211	
==>);
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	718	819	
==>pressions

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (wor <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1013	1119	
==>les are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1013	1119	
==>les are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18433	18518	
==>.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18433	18518	
==>.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	354	808	
==>U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            4 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	354	808	
==>U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            4 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16388	16478	
==>ming language named "Rosetta D", which is computationally complete
(and industrial strength <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16388	16478	
==>ming language named "Rosetta D", which is computationally complete
(and industrial strength <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	170	290	
==>ex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	164	284	
==>ex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	170	290	
==>ex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	164	284	
==>ex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16086	16293	
==>greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16365	16572	
==>greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alter <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7718	7897	
==>t) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7718	7897	
==>t) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	9	106	
==>n/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBui <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	9	106	
==>n/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBui <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6818	6914	
==>DGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by K <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6818	6914	
==>DGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by K <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10778	10936	
==>ode

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7119	7277	
==>ode

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7968	8126	
==>ode

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20039	20145	
==>name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if($param =~ /\* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4771	4891	
==>ched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4771	4891	
==>ched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1695	1814	
==>ar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1695	1814	
==>ar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_r <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7005	7128	
==>Harness::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7863	7994	
==>x_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate wh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7863	7994	
==>x_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate wh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16139	16234	
==>tion may handle it internally, while another one displays it to the
user instead.

Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16139	16234	
==>tion may handle it internally, while another one displays it to the
user instead.

Locale::Keyed <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6576	6684	
==>}
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub _index_files {
    my ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3698	3796	
==>.  C<$description> is the optional
description of the test.  This is the easiest way to match a pas <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3698	3796	
==>.  C<$description> is the optional
description of the test.  This is the easiest way to match a pas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3778	3876	
==>.  C<$description> is the optional
description of the test.  This is the easiest way to match a pas <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2141	2240	
==>arse_quant);
    $optable->addToken("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4144	4270	
==>ed $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4144	4270	
==>ed $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36838	36933	
==>tring with contents of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

D <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4247	4349	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3374	3476	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4247	4349	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3374	3476	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17612	17746	
==>== seen == ok.


There is one final item, the details.

  details           an array ref reporting the result of 
                    e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5492	5606	
==>ace => 0)) if $cc;
    return $S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7853	7964	
==>= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::dia <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7911	8022	
==>= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::dia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5007	5103	
==>, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7675	7771	
==>, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8052	8143	
==>-------------------------------------------------------
## utility methods

# NOTE:
# Occasi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8052	8143	
==>-------------------------------------------------------
## utility methods

# NOTE:
# Occasi <==
4	/Users/nnunley/pugs/util/config_h.pl	1895	2020	
==>emp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5528	5625	
==>d usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5528	5625	
==>d usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5528	5625	
==>d usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl - <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2851	2975	
==>tatus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2851	2975	
==>tatus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22582	22699	
==>analyze" :method
    .param pmc pad
    .local string mname
    .local pmc value
    .local pmc exp
    mname = self[" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2064	2164	
==>m - the core num type


=head1 METHODS

=over 4

=item B<new (*native*) returns num>

=item B<to_nati <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	128	239	
==>::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	133	243	
==>::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	131	241	
==>::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	846	973	
==>age
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_CO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19827	19944	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($oth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19827	19944	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($oth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19827	19944	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($oth <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3285	3440	
==>inue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &cont <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3285	3440	
==>inue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &cont <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1832	1924	
==>le parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1832	1924	
==>le parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6049	6155	
==>ach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6049	6155	
==>ach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6049	6155	
==>ach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3105	3201	
==>e($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new(
				type => Blondie::TypeSa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1771	1880	
==>ht get params for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	206	307	
==>f     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	206	307	
==>f     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	206	307	
==>f     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	157	287	
==>i       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	157	287	
==>i       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15334	15451	
==>cat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15613	15730	
==>cat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::ter <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	392	504	
==>->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%args, $class );
}

#line <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	385	495	
==>->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	131	235	
==>>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	189	293	
==>>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1763	1876	
==>lTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1763	1876	
==>lTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1763	1876	
==>lTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11608	11722	
==>k...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11608	11722	
==>k...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11608	11722	
==>k...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" i <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3197	3353	
==>data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3197	3353	
==>data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1181	1285	
==>s Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1181	1285	
==>s Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5907	6004	
==>rimative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5907	6004	
==>rimative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2442	2546	
==>n't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2659	2763	
==>n't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit! <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11556	11658	
==>e for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=b <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11556	11658	
==>e for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8225	8335	
==>@x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8225	8335	
==>@x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8225	8335	
==>@x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27963	28118	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27963	28118	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27963	28118	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4507	4649	
==>a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4507	4649	
==>a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4507	4649	
==>a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4732	4826	
==>3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1940	2042	
==>ing(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1940	2042	
==>ing(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1940	2042	
==>ing(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1306	1407	
==>lude <stdio.h>
#include <gc.h>

typedef int IV;
typedef FILE * GV;
typedef char * PV;

int prel_printf <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1853	2107	
==>Attributes of every Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15572	15703	
==>lue::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15572	15703	
==>lue::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15572	15703	
==>lue::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8511	8724	
==>{
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8511	8724	
==>{
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5208	5329	
==>= "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tm <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5208	5329	
==>= "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	759	874	
==>if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with documen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	759	874	
==>if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with documen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	759	874	
==>if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with documen <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12981	13081	
==>t
  be possible to get a plausibly scoped alternative working.

  Using $/ might be non-trivial, as o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1866	2009	
==>nfess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1866	2009	
==>nfess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1866	2009	
==>nfess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaqu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30971	31064	
==>the new Relation::Example has as
many additional attributes as there are pairs in the argument <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2312	2493	
==>k
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	571	679	
==>ng;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	571	679	
==>ng;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	571	679	
==>ng;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $out <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3450	3545	
==>'$_' does not exist. Try --help. ") unless -d $_;
}
$_ = rel2abs($_) for (@t_dirs,$output_dir,$s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7244	7339	
==>operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6374	6469	
==>operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7244	7339	
==>operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6374	6469	
==>operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(se <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2418	2524	
==>( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2418	2524	
==>( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6088	6184	
==>= Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fg <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6088	6184	
==>= Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	302	423	
==>0) => __PACKAGE__;

sub new {
    my (undef, $value) = @_;
    (defined $value            && 
     looks_like_number($valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3070	3186	
==>" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3070	3186	
==>" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3070	3186	
==>" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pre <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10491	10602	
==>string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Becau <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10491	10602	
==>string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Becau <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1433	1528	
==>d is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::Seen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1433	1528	
==>d is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::Seen <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8513	8643	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clump',
      type => 'clump',
      vis => $vis,
    }, $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6769	6856	
==>::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6769	6856	
==>::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6769	6856	
==>::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------- <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	878	1055	
==>st =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']';
                    push $a, parse( <<>>, 'item', <<>>, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8082	8196	
==>ound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8082	8196	
==>ound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8082	8196	
==>ound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17837	17964	
==>efaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 666 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16875	17002	
==>efaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 666 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17837	17964	
==>efaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 666 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16875	17002	
==>efaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 666 <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4816	4919	
==>-cdroot is the directory which will later be the / of the CD.
  --iso=$iso
    The final ISO9660 image n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	696	783	
==>d");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	696	783	
==>d");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	696	783	
==>d");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1088	1184	
==>re name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1088	1184	
==>re name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17762	17854	
==>l runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17762	17854	
==>l runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2842	2963	
==>_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2842	2963	
==>_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2842	2963	
==>_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      } <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5174	5292	
==>to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33391	33556	
==>mp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33391	33556	
==>mp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33391	33556	
==>mp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13118	13215	
==>rror( Params::Check->last_error ), return;

    my $my_bindir =  $self->dir->subdir( $inst_pkg->pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22818	22915	
==>ugs should email me.  Messages should include the
code you ran that contains the bug, and your opi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	449	564	
==>nctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Arr <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	449	564	
==>nctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Arr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6012	6113	
==>ure

At runtime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5820	5918	
==>ure
At runtime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    cap <==
4	/Users/nnunley/pugs/util/func_refact.pl	1742	1864	
==>{
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2354	2454	
==>self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2354	2454	
==>self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2354	2454	
==>self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexO <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2929	3030	
==>edistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, ver <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3086	3187	
==>edistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, ver <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2929	3030	
==>edistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, ver <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3086	3187	
==>edistribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	221	353	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	221	353	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	221	353	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MR <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	170	300	
==>ues) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delim <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2370	2528	
==>',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8929	9087	
==>',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2370	2528	
==>',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8925	9083	
==>',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            ' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22263	22375	
==>2.11
      <CaseClause>
    | <CaseClauses> <CaseClause>
}
rule CaseClause :words {  # see 12.11
      <'case'> < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9536	9637	
==>?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_inv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9536	9637	
==>?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_inv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9536	9637	
==>?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_inv <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12124	12226	
==>. "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $link;
      $links++ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1567	1665	
==>will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1567	1665	
==>will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1567	1665	
==>will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Valu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7920	8039	
==>ation->new(
				type => [ $child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1898	2027	
==>l($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1898	2027	
==>l($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1898	2027	
==>l($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print " <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2204	2329	
==>( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	676	799	
==>$output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	676	799	
==>$output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	676	799	
==>$output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output= <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2707	2813	
==>= @_;
    $self->{_timing}{end} = time;
    $self->{_timing}{duration} =
        $self->{_timing}{end} - $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8417	8516	
==>doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8417	8516	
==>doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8417	8516	
==>doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1185	1278	
==>)(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1185	1278	
==>)(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1185	1278	
==>)(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	241	366	
==><connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	245	370	
==><connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	241	366	
==><connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	245	370	
==><connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that th <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3147	3247	
==>set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't w <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3147	3247	
==>set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't w <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5085	5228	
==>span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5085	5228	
==>span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18661	18754	
==>', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to suppl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18661	18754	
==>', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to suppl <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2702	2832	
==>[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshi <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2702	2832	
==>[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21266	21361	
==>).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the con <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21266	21361	
==>).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3464	3564	
==>plements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3464	3564	
==>plements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3464	3564	
==>plements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29711	29804	
==>l operator that returns a new Relation::Example
which has a subset of the original's attribute <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24559	24654	
==>wline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23323	23418	
==>wline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24559	24654	
==>wline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23323	23418	
==>wline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8219	8334	
==>ure"
    .param pmc mob
    .local pmc newfrom
    .local string target
    .local pmc mfrom, mpos
    .local int po <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12904	13015	
==>esult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16381	16492	
==>esult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15743	15854	
==>esult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === no <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2241	2334	
==>$result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6255	6344	
==>ints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6255	6344	
==>ints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6255	6344	
==>ints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2042	2162	
==>e (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 } <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	883	1003	
==>e (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 } <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1228	1329	
==>id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{' <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1228	1329	
==>id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17084	17251	
==>ass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17084	17251	
==>ass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17084	17251	
==>ass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1464	1556	
==>erator::nullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $.na <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1193	1313	
==>[mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1193	1313	
==>[mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1193	1313	
==>[mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6784	6894	
==>copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus the c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2443	2563	
==>eturns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    wh <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2443	2563	
==>eturns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7267	7376	
==>arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7267	7376	
==>arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model: <==
4	/Users/nnunley/pugs/util/package-osx.pl	1542	1631	
==>/site_perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_perl/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	892	1000	
==>ing index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self-re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1257	1362	
==>ing index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	856	961	
==>ing index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1257	1362	
==>ing index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13317	13478	
==>r($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3482	3627	
==>r($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3482	3627	
==>r($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3482	3627	
==>r($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') { <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	238	377	
==>r     $Metactrl   $Metafile   $Available
            $Builddir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	630	749	
==>nizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	630	749	
==>nizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	630	749	
==>nizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3899	4052	
==>][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3899	4052	
==>][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2600	2696	
==>$rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2740	2836	
==>$rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6039	6142	
==>';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{'next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2258	2358	
==>nly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2258	2358	
==>nly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2258	2358	
==>nly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11840	11939	
==>et.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISI <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8987	9086	
==>et.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISI <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11840	11939	
==>et.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISI <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8987	9086	
==>et.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISI <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	724	840	
==>l $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	724	840	
==>l $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5796	5897	
==>\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5796	5897	
==>\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	194	327	
==>= shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $plan{tests};
    }
    print STDO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15016	15118	
==>SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15016	15118	
==>SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15016	15118	
==>SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1626	1739	
==>.= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1626	1739	
==>.= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1626	1739	
==>.= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if( <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5323	5434	
==>digit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1082	1193	
==>fess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1287	1398	
==>fess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1348	1459	
==>fess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLO <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2665	2775	
==>program on Linux, but it should work on other *nix
      systems, too. For now, I made the script stop if you a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10113	10236	
==>ant => 0, '');
  });

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9352	9469	
==>str target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1101	1211	
==>te {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->make <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1992	2102	
==>te {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->make <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8515	8631	
==>rig) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6464	6574	
==>fix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6464	6574	
==>fix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6464	6574	
==>fix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3108	3211	
==>e functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3108	3211	
==>e functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41019	41110	
==>m Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided samp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41019	41110	
==>m Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided samp <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1694	1813	
==>ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data::Dumper::Terse = 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2137	2248	
==>->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2137	2248	
==>->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2137	2248	
==>->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $se <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2138	2249	
==>path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2138	2249	
==>path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2128	2229	
==>eturns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2128	2229	
==>eturns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($chil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1360	1514	
==>rn { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub multi method submethod
        my our has
    ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25500	25603	
==>lvalue      { $_[0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you're
cur <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2763	2851	
==>module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --m <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2763	2851	
==>module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --m <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1364	1476	
==>on must receive at least:

    y - target value for y
    f - function of one variable

It looks for an x such th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10434	10544	
==>--------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10434	10544	
==>--------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10434	10544	
==>--------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be im <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24599	24714	
==>ction>
}
rule Disjunction {  # see 15.10.1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Altern <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34542	34642	
==>$offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34542	34642	
==>$offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34542	34642	
==>$offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6135	6291	
==>, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6135	6291	
==>, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6135	6291	
==>, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp( <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3967	4081	
==>$1 eq $self->{dispatch};

        $file = "$self->{path}/$1.pm";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	541	673	
==>str,$pos,$cap);
        return $kludge_retval if defined $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	612	709	
==>rn() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $hea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	612	709	
==>rn() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $hea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	612	709	
==>rn() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1970	2071	
==>);

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1970	2071	
==>);

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1970	2071	
==>);

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not define <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	450	546	
==>=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the out <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	450	546	
==>=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1006	1102	
==>=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the out <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	313	455	
==>t );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { requ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	797	939	
==>t );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { requ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4058	4185	
==>e, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypoth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4070	4197	
==>e, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypoth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5406	5506	
==>lf }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5406	5506	
==>lf }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5406	5506	
==>lf }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	248	342	
==>iting primitives, please do *not* use `return()`, because
that messes up PIR generation.  To re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1439	1569	
==>$tests ));
            }
            elsif ($explanation eq 'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH(': <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	761	861	
==>[PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	761	861	
==>[PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	761	861	
==>[PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	88	220	
==>';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	88	220	
==>';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	88	220	
==>';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	341	435	
==>E

JIB::Utils

=head1 METHODS

=head2 JIB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23858	23978	
==>${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20279	20399	
==>${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6294	6394	
==>rn $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6294	6394	
==>rn $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3194	3314	
==>r) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3194	3314	
==>r) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3194	3314	
==>r) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice <==
4	/Users/nnunley/pugs/util/package-osx.pl	6531	6628	
==>::Rule.3pm
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3
        /usr/local/man/man3/P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9920	10090	
==>d_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11397	11567	
==>d_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1003	1095	
==>export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1003	1095	
==>export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29507	29603	
==>_TEST without breaking its core usage.

Figure a way to report test names in the failure summary. <==
4	/Users/nnunley/pugs/util/package-osx.pl	8434	8531	
==>oc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2244	2351	
==>e sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2244	2351	
==>e sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23407	23501	
==>Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23407	23501	
==>Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7880	7999	
==>ue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7880	7999	
==>ue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7880	7999	
==>ue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str }, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24137	24238	
==>tty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36486	36595	
==>->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36486	36595	
==>->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36486	36595	
==>->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shi <==
4	/Users/nnunley/pugs/util/func_refact.pl	1991	2087	
==>=>$set, new=>$new}});
    print "union: while adding $new, entered with $oldsize, leaving with $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	567	679	
==>'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no ide <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	567	679	
==>'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no ide <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	567	679	
==>'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no ide <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1648	1757	
==>s::Check->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13637	13734	
==>SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13637	13734	
==>SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13637	13734	
==>SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7730	7819	
==>'s instantiated value instead of itself
multi unify => ('type::variable::instantiated', 't <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17301	17401	
==>Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17301	17401	
==>Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2826	2919	
==>r) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($sel <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2826	2919	
==>r) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5420	5527	
==>:store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5420	5527	
==>:store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5420	5527	
==>:store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25443	25545	
==>ingify, "∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = type::ope <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2539	2658	
==>succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2539	2658	
==>succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last i <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6311	6409	
==>t one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The documen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6311	6409	
==>t one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The documen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	741	884	
==>creates instances of classes
sub new ($) {
    my ($table) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9991	10157	
==>]+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9991	10157	
==>]+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12597	12698	
==>s.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12597	12698	
==>s.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Do <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	364	472	
==>ause the hash 
    # does not seem to get initialized properly
    # and calling members before any values ar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	364	472	
==>ause the hash 
    # does not seem to get initialized properly
    # and calling members before any values ar <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16264	16354	
==>.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechs <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16322	16412	
==>.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechs <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	853	978	
==>>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

r <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	853	978	
==>>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10454	10572	
==>8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10454	10572	
==>8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8675	8820	
==>a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8675	8820	
==>a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8675	8820	
==>a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      r <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	912	1040	
==>/inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	912	1040	
==>/inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18944	19049	
==>node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18944	19049	
==>node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3549	3667	
==>';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2808	2924	
==>om, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2808	2924	
==>om, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2808	2924	
==>om, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8012	8155	
==>$ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8012	8155	
==>$ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8012	8155	
==>$ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULT <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1674	1777	
==>i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1674	1777	
==>i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1827	1926	
==>thod equal($self: Set $other) returns Bool {

    # for some reason, directly returning this express <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1827	1926	
==>thod equal($self: Set $other) returns Bool {

    # for some reason, directly returning this express <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9105	9220	
==>OD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

-- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9105	9220	
==>OD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

-- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9105	9220	
==>OD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

-- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27978	28075	
==>elf: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($self: <==
4	/Users/nnunley/pugs/util/func_refact.pl	839	965	
==>tial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            pr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	389	492	
==>tion}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$struct->{package}/$Fileslist" or die <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5681	5780	
==>tr $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5681	5780	
==>tr $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7878	7977	
==>tr $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11841	11977	
==>ithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2263	2385	
==>ithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2263	2385	
==>ithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1495	1637	
==>>from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1495	1637	
==>>from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13342	13461	
==>sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub inser <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27175	27294	
==>sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub inser <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4018	4108	
==>der::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4018	4108	
==>der::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6215	6305	
==>der::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24595	24764	
==>,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24595	24764	
==>,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24595	24764	
==>,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8022	8121	
==>ves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8022	8121	
==>ves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	581	673	
==>$source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	581	673	
==>$source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15056	15161	
==>ire Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15056	15161	
==>ire Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36549	36641	
==>itional
parameter $message and returns an equivalent human readable text message
string; this <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36549	36641	
==>itional
parameter $message and returns an equivalent human readable text message
string; this <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2243	2358	
==>A');
  });

  # nbound (not a word boundary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	318	414	
==>euma is the rational soul, really concreate and practical 
# things like Object, Package and Modu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	318	414	
==>euma is the rational soul, really concreate and practical 
# things like Object, Package and Modu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	318	414	
==>euma is the rational soul, really concreate and practical 
# things like Object, Package and Modu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3065	3179	
==>$buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3065	3179	
==>$buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %even <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19666	19766	
==>rs are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24218	24318	
==>rs are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2592	2705	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2592	2705	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1805	1912	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3666	3773	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14095	14213	
==>e::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'per <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14095	14213	
==>e::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'per <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	560	653	
==>are interchangable, allowing a programmer to 
change ciphers simply by changing the class name <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	560	653	
==>are interchangable, allowing a programmer to 
change ciphers simply by changing the class name <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20334	20489	
==>t"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8764	8875	
==>oncat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8957	9068	
==>oncat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	378	506	
==>rce => 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1010	1108	
==>- removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented her <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1010	1108	
==>- removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented her <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1010	1108	
==>- removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented her <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5649	5758	
==>_object(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3929	4028	
==>Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3929	4028	
==>Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3929	4028	
==>Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use P <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2212	2334	
==>is your C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exit(0);
    }
    unless (-f "$e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	541	639	
==>nd return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	541	639	
==>nd return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	541	639	
==>nd return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2224	2353	
==>> 'say',
    #    assoc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1865	1969	
==>, "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1865	1969	
==>, "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1865	1969	
==>, "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5043	5184	
==>b}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22951	23053	
==>_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22951	23053	
==>_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22951	23053	
==>_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	571	689	
==>me' exp         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1689	1792	
==>scape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile(q( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	366	461	
==>nicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.comp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	366	461	
==>nicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.comp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4703	4815	
==>l );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref fo <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4703	4815	
==>l );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref fo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6119	6213	
==>this document successfully. However, more complex POD 
documents may not do as well. Error repo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6119	6213	
==>this document successfully. However, more complex POD 
documents may not do as well. Error repo <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4918	5015	
==>hese
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4918	5015	
==>hese
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12966	13062	
==>e is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12966	13062	
==>e is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16201	16324	
==>enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# D <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16201	16324	
==>enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# D <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19523	19613	
==>ntication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19523	19613	
==>ntication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	434	561	
==>.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.searc <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	434	561	
==>.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.searc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16783	16878	
==>Rosetta D and compile that into its own executable, in practice one would
normally just write so <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16783	16878	
==>Rosetta D and compile that into its own executable, in practice one would
normally just write so <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21703	21819	
==>~ $file ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*IN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1528	1639	
==>n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1528	1639	
==>n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1528	1639	
==>n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2688	2792	
==>rn $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2688	2792	
==>rn $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	560	672	
==>ent interface
sub to_str { str->new((shift)->{name}) }

# conversion to other native types
sub to_bit { bit->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3443	3552	
==>x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3443	3552	
==>x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3443	3552	
==>x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14245	14362	
==>->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1725	1842	
==>->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2943	3041	
==>pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2943	3041	
==>pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13285	13383	
==>$xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13285	13383	
==>$xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13285	13383	
==>$xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	210	308	
==>to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->equal_to($_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5759	5840	
==>+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2he <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5949	6030	
==>+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2he <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5759	5840	
==>+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2he <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5949	6030	
==>+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2he <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	967	1078	
==>$thunk = shift;

    # FIXME - in the future the compiler might allow adding globals
    # ought to check if the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6181	6286	
==>$@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6181	6286	
==>$@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6181	6286	
==>$@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1257	1353	
==>nt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1257	1353	
==>nt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1257	1353	
==>nt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	189	285	
==>/pX/Common/lrep*
# ***************

use strict;
use warnings;
no warnings 'redefine';

use FindBi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18282	18378	
==>nge
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18282	18378	
==>nge
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13187	13282	
==>nge format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13187	13282	
==>nge format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, t <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3141	3260	
==>my ($n, $c) = ($1, $2);
    $c =~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2484	2580	
==>=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specifica <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2484	2580	
==>=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specifica <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2484	2580	
==>=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specifica <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6996	7146	
==>]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'< <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11331	11462	
==>n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11331	11462	
==>n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29396	29499	
==>n the state of the tests.  (Partially done in Test::Harness::Straps)

Document the format.

Fix HARNESS_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	62	158	
==>method BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	62	158	
==>method BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1202	1318	
==>n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1202	1318	
==>n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1202	1318	
==>n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8466	8577	
==>}        
sub node::capturing_group {
    return "$_[1] ruleop::capture( 'capturing_group',\n" .
           emit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2885	2982	
==>JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2885	2982	
==>JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2885	2982	
==>JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	785	902	
==>");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	805	915	
==>");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	212	314	
==>ng to match

1 - an optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	201	300	
==>ng to match
1 - an optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8312	8427	
==>.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8312	8427	
==>.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9919	10021	
==>er => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9919	10021	
==>er => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    conne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1289	1477	
==>Scalar
            },
            
            'array_storeElem' => sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5282	5374	
==>h containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<rep <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5282	5374	
==>h containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<rep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7479	7571	
==>h containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5738	5999	
==>e'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5738	5999	
==>e'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5738	5999	
==>e'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	43	145	
==>ngs;
use Cwd;
use Config;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	15	109	
==>re! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	15	109	
==>re! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	15	109	
==>re! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2244	2371	
==>?;
    
        my $meta_dir = $inst->control_dir( $self->package );
        my $data     = $conf->archive_data;
        my $con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3135	3248	
==>l.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3135	3248	
==>l.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3135	3248	
==>l.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj a <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	959	1083	
==>tart> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durati <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	701	825	
==>tart> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durati <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	959	1083	
==>tart> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durati <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	701	825	
==>tart> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $durati <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16077	16208	
==>self, $line, $reason) = @_;

    if( $line =~ /^Bail out!\s*(.*)/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1790	1893	
==>c}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1790	1893	
==>c}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1790	1893	
==>c}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8751	8938	
==>ld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5111	5298	
==>ld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5960	6147	
==>ld be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7007	7125	
==>L::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7007	7125	
==>L::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7007	7125	
==>L::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprint <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4438	4540	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } e <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4693	4795	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } e <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4438	4540	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } e <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4693	4795	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } e <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2210	2309	
==>urn $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2210	2309	
==>urn $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2796	2892	
==>ds, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2796	2892	
==>ds, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18016	18174	
==>o' (if any)
              reason    => reason for the above (if any)
            };

Element 0 of the details is test #1.  I tried it with element 1 being
#1 a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4338	4440	
==>=> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4338	4440	
==>=> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4338	4440	
==>=> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $su <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	386	481	
==>CRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	386	481	
==>CRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11612	11702	
==>` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the fo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11670	11760	
==>` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the fo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40880	40983	
==>ng to distribute,
because that is a practical way of suggesting improvements to the standard
version.

= <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26440	26543	
==>ng to distribute, because that is a practical way of
suggesting improvements to the standard version.

= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40880	40983	
==>ng to distribute,
because that is a practical way of suggesting improvements to the standard
version.

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26440	26543	
==>ng to distribute, because that is a practical way of
suggesting improvements to the standard version.

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1528	1654	
==>self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1528	1654	
==>self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	158	254	
==>NTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PAR <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	158	254	
==>NTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PAR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4005	4115	
==>{
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	990	1100	
==>chTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $test ;   *@values) returns Lazy {
   gat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4005	4115	
==>{
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4005	4115	
==>{
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3803	3960	
==>' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16226	16368	
==>s here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16226	16368	
==>s here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16226	16368	
==>s here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10980	11112	
==>cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1833	1965	
==>es}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10980	11112	
==>cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10980	11112	
==>cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	279	383	
==>ss method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	279	383	
==>ss method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	279	383	
==>ss method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\ <==
4	/Users/nnunley/pugs/util/testgraph.pl	258	347	
==>ig{cssfile} ||= Test::TAP::HTMLMatrix->css_file();
usage() if $Config{help};

my $yamlfile <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3884	4042	
==>losure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2954	3051	
==>d.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2954	3051	
==>d.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2954	3051	
==>d.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18862	18977	
==>kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15283	15398	
==>kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4633	4739	
==>'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cw <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4633	4739	
==>'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8004	8240	
==>$start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8004	8240	
==>$start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8004	8240	
==>$start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	648	738	
==>n is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14645	14746	
==>ason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14645	14746	
==>ason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8893	8992	
==>s::Grammar in p5 code

I'd _expect_ the match object returned to carry the same magic.



overload i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8599	8695	
==>s::Grammar in p5 code
I'd _expect_ the match object returned to carry the same magic.

overload i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1499	1598	
==>.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Result1 = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4380	4477	
==>o = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4380	4477	
==>o = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6577	6674	
==>o = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Tes <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4720	4923	
==>( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14719	14840	
==>bject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Ste <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14719	14840	
==>bject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Ste <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14719	14840	
==>bject ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Ste <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13325	13480	
==>\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13604	13759	
==>\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3202	3307	
==><parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex le <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3202	3307	
==><parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1967	2071	
==>less $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1967	2071	
==>less $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1967	2071	
==>less $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($lin <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	477	577	
==>n script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system("pugs nai <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11093	11220	
==>hod () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11093	11220	
==>hod () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11093	11220	
==>hod () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2068	2215	
==>Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2068	2215	
==>Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( star <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11361	11478	
==>$self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the ones tha <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15868	15970	
==>cope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7217	7325	
==>defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7217	7325	
==>defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7217	7325	
==>defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packag <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	597	684	
==>:InternalValue;
class JSX::InternalValue::Completion is JSX::InternalValue;
class JSX::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6388	6502	
==>ame))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6388	6502	
==>ame))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6388	6502	
==>ame))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exp <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5572	5664	
==>params, $self->resolve_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15482	15585	
==>r represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15482	15585	
==>r represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1659	1794	
==>t( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1469	1603	
==>bel} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1469	1603	
==>bel} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1469	1603	
==>bel} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	439	536	
==>ull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns B <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	439	536	
==>ull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns B <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17657	17751	
==>d is used in request messages and contains information
about the user agent originating the req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17657	17751	
==>d is used in request messages and contains information
about the user agent originating the req <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24549	24646	
==>correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23313	23410	
==>correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24549	24646	
==>correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23313	23410	
==>correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10311	10410	
==>ne or more header fields.  The header field
name ($field) is not case sensitive.  To make the life e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10311	10410	
==>ne or more header fields.  The header field
name ($field) is not case sensitive.  To make the life e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14939	15037	
==>at
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14939	15037	
==>at
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Roset <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	455	606	
==>Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6 <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1445	1546	
==>"Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1445	1546	
==>"Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	226	323	
==>efined $name && $name =~ /^[\$\@\%\&][\.\:][a-zA-Z0-9_]+$/)
        || confess "bad attribute name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11471	11645	
==>ethod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11471	11645	
==>ethod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11471	11645	
==>ethod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	328	432	
==>ib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13689	13804	
==>:Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13689	13804	
==>:Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13689	13804	
==>:Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ".. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5643	5768	
==>,
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5643	5768	
==>,
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15588	15703	
==>Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19065	19180	
==>Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5773	5889	
==>urn "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3109	3225	
==>urn "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3958	4074	
==>urn "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	491	592	
==>e.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	491	592	
==>e.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	491	592	
==>e.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4693	4781	
==>ingTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosition, "PGE::Matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6188	6326	
==>passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6188	6326	
==>passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6188	6326	
==>passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = <==
4	/Users/nnunley/pugs/util/package-osx.pl	1774	1865	
==>site_perl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5/site_perl/pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7971	8106	
==>the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7971	8106	
==>the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7971	8106	
==>the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3961	4072	
==>' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_R <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3544	3660	
==>u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3544	3660	
==>u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	507	611	
==>'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	507	611	
==>'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3303	3483	
==>];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	699	813	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	699	813	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	699	813	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "o <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3527	3679	
==>superclass subscriptions too
                }
            }
        }
    
        method notify (String $name, *@args) {
            $publisher.notify( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	735	831	
==>08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_rang <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	735	831	
==>08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_rang <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	735	831	
==>08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_rang <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	478	595	
==>'$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8745	8861	
==>'$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8745	8861	
==>'$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8745	8861	
==>'$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Coul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24798	24928	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26391	26521	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25077	25207	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26670	26800	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	61	155	
==>.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# Externa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	61	155	
==>.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# Externa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20700	20793	
==>by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to pr <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20700	20793	
==>by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6730	6843	
==>.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6730	6843	
==>.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6730	6843	
==>.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ins <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1355	1452	
==>ead of printing the results, straps
provide them as raw data.  You can also configure how the test <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3790	3887	
==>'paramName'    ,'String',
  'paramContext' ,'Cxt',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2156	2252	
==>eeded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2156	2252	
==>eeded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2156	2252	
==>eeded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3467	3594	
==>submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3467	3594	
==>submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3467	3594	
==>submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method(' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25415	25517	
==>Disjunction> <')'>
    | <'(?='> <Disjunction> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1487	1621	
==>order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle quotes are alwa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4076	4175	
==>OF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4076	4175	
==>OF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4076	4175	
==>OF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2385	2485	
==>NV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2385	2485	
==>NV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2385	2485	
==>NV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htm <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	363	467	
==>ft        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8553	8655	
==>' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8553	8655	
==>' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8553	8655	
==>' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	171	281	
==>uest {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	171	281	
==>uest {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2610	2711	
==>more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultane <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2514	2611	
==>more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultane <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	340	443	
==>e::Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3642	3743	
==>etch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3642	3743	
==>etch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3642	3743	
==>etch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13280	13397	
==>s wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2960	3077	
==>ult3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13280	13397	
==>s wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13280	13397	
==>s wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24262	24360	
==>I or other interactive program controlling their
  actions) which are always seen to be replying le <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23035	23133	
==>I or other interactive program controlling their
  actions) which are always seen to be replying le <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24262	24360	
==>I or other interactive program controlling their
  actions) which are always seen to be replying le <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23035	23133	
==>I or other interactive program controlling their
  actions) which are always seen to be replying le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16037	16136	
==>This header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16037	16136	
==>This header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21437	21529	
==>p6_meta('Scalar')->new();
    $$mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1022	1171	
==>hod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^ne <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1022	1171	
==>hod uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23545	23639	
==>t>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a dest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23545	23639	
==>t>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a dest <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16756	16879	
==>->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5004	5106	
==>ata::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_sto <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5004	5106	
==>ata::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_sto <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5594	5696	
==>ata::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_sto <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4802	4953	
==>er of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have differ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4802	4953	
==>er of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have differ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16428	16523	
==>d
support for new languages easily and without a recompile (such as by simply
copying files), of <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16428	16523	
==>d
support for new languages easily and without a recompile (such as by simply
copying files), of <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40275	40370	
==>that you modify and distribute must carry
prominent notices stating that you changed the files a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25799	25894	
==>that you modify and distribute must carry prominent
notices stating that you changed the files a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40275	40370	
==>that you modify and distribute must carry
prominent notices stating that you changed the files a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25799	25894	
==>that you modify and distribute must carry prominent
notices stating that you changed the files a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1922	2010	
==>current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1885	1973	
==>current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1922	2010	
==>current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1885	1973	
==>current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reporte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	284	408	
==>KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	284	408	
==>KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28329	28420	
==>n but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32881	32972	
==>n but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attri <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37363	37456	
==><join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41912	42005	
==><join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afo <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	338	466	
==>caping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_lea <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	338	466	
==>caping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_lea <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	239	349	
==>method BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::Fals <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	239	349	
==>method BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::Fals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5082	5196	
==>->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5082	5196	
==>->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5082	5196	
==>->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	566	666	
==>rsects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	566	666	
==>rsects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3400	3495	
==>nal {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinite <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3400	3495	
==>nal {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinite <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4601	4710	
==>ameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4601	4710	
==>ameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::I <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4962	5056	
==>nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4962	5056	
==>nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15903	16143	
==>hifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped-- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15903	16143	
==>hifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped-- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15903	16143	
==>hifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped-- <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6043	6176	
==>atch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(par <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6043	6176	
==>atch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1804	1907	
==>} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tight <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1804	1907	
==>} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tight <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13532	13636	
==>num POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7740	7844	
==>num POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1288	1381	
==>s Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1288	1381	
==>s Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	655	776	
==>st } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	655	776	
==>st } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	782	880	
==>>VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake | <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	808	906	
==>>VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7918	8065	
==>:numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7918	8065	
==>:numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7918	8065	
==>:numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4231	4348	
==>ule code_assertion         { \<(!?)\( <code> \)\> }
rule code { [ <-[\{\}]> | \{ <code> <'}'> ]* }
rule metasyntactic_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12814	12920	
==>n_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) alr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12814	12920	
==>n_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) alr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12814	12920	
==>n_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) alr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1382	1496	
==>ital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, a <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1382	1496	
==>ital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21298	21394	
==>IGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21298	21394	
==>IGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14218	14388	
==>elf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14218	14388	
==>elf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14218	14388	
==>elf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            ret <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	45	168	
==>rict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7138	7248	
==>cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7138	7248	
==>cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7138	7248	
==>cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf " <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1120	1226	
==>/some/dir' )

C<_chdir> changes directory to a dir.

Returns old cwd on success, false on failure.

=cut

s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	568	710	
==>soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        els <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	568	710	
==>soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        els <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	744	852	
==>ASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	744	852	
==>ASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3604	3718	
==>= shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7919	8028	
==>SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7919	8028	
==>SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7919	8028	
==>SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	726	906	
==>) -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if - <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	726	906	
==>) -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if - <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5750	5844	
==>l::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5750	5844	
==>l::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	795	906	
==>\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr eq <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3856	3980	
==>re => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4049	4173	
==>re => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2907	3006	
==>to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_chec <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2907	3006	
==>to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_chec <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8193	8293	
==>g on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8193	8293	
==>g on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11517	11606	
==>1';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11517	11606	
==>1';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept" <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6240	6367	
==>i"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6240	6367	
==>i"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(9 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4043	4163	
==>l5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4043	4163	
==>l5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16733	16855	
==>local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4880	4995	
==>er_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4880	4995	
==>er_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5470	5585	
==>er_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	29	132	
==>se strict;
use warnings;

use JIB::Constants;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6127	6217	
==>o classes both perform the Test::Builder::Test::WithReason role
and override some methods t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6127	6217	
==>o classes both perform the Test::Builder::Test::WithReason role
and override some methods t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8324	8414	
==>o classes both perform the Test::Builder::Test::WithReason role
and override some methods t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1034	1187	
==>, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1721	1846	
==>%rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1721	1846	
==>%rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1721	1846	
==>%rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8456	8568	
==>ing complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8456	8568	
==>ing complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an inf <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2041	2131	
==>:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*", " <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2113	2203	
==>:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:*", " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	820	950	
==>y $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	820	950	
==>y $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub pref <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	256	373	
==>od footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ra <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	256	373	
==>od footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4958	5078	
==>ft->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3285	3383	
==>$_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3285	3383	
==>$_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3285	3383	
==>$_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1204	1422	
==>eader', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when r <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1204	1422	
==>eader', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12694	12847	
==>ic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12694	12847	
==>ic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!ur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6062	6159	
==>lue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6062	6159	
==>lue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6062	6159	
==>lue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2718	2933	
==>genClass->new(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25101	25187	
==>See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/networ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23865	23951	
==>See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/networ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25101	25187	
==>See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/networ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23865	23951	
==>See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/networ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3717	3861	
==>less $avail{ $depends->{package} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6828	6937	
==>nt     Percentage of tests which failed
    canon       List of tests which failed (as string).

C<$failed> sh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9839	9941	
==>{ %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Cod <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9839	9941	
==>{ %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7400	7521	
==>ance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7400	7521	
==>ance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7400	7521	
==>ance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1863	1980	
==>if 1;

PERL6

    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3255	3377	
==>');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server: <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3255	3377	
==>');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8219	8333	
==>self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $st <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8219	8333	
==>self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	371	493	
==>ent the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6804	6889	
==>ake_method($_resolve));

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6804	6889	
==>ake_method($_resolve));

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6804	6889	
==>ake_method($_resolve));

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9327	9463	
==>--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9315	9451	
==>--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5548	5663	
==>Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5548	5663	
==>Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1472	1580	
==>am;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1472	1580	
==>am;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1681	1789	
==>am;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10874	10983	
==>S->nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14410	14585	
==>change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14410	14585	
==>change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14410	14585	
==>change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0 <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2941	3116	
==>change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5806	5940	
==>ter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5806	5940	
==>ter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1644	1745	
==>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1644	1745	
==>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1644	1745	
==>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30083	30181	
==>Change internal list of test results to a hash.

Fix stats display when there's an overrun.

Fix so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	668	777	
==>ass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	668	777	
==>ass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	668	777	
==>ass, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1910	2044	
==>+@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1910	2044	
==>+@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1910	2044	
==>+@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[- <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17855	17947	
==>ignature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($thunk->val));
}

# vim:set expan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23076	23279	
==>calar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23076	23279	
==>calar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23076	23279	
==>calar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1187	1291	
==>reword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "require $ident;\n";
}
sub node::use_ba <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3009	3182	
==>evels}} ) {
        if ( grep { 
                defined $opt->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3581	3689	
==>s} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3581	3689	
==>s} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3581	3689	
==>s} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9585	9682	
==>uch.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9585	9682	
==>uch.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	308	412	
==>a DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	308	412	
==>a DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3019	3113	
==>erloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@arg <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3019	3113	
==>erloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2088	2205	
==>rbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print " <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	402	519	
==>rbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2088	2205	
==>rbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2088	2205	
==>rbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7112	7230	
==>lf->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2125	2229	
==>f);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2125	2229	
==>f);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2125	2229	
==>f);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PI <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35265	35360	
==>exactf (C<abc> with C</i> on)

Data: array reference of actual characters

=head2 quant

Family: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8652	8741	
==>atements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2477	2566	
==>atements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18528	18724	
==>LD'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1419	1528	
==>L2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1419	1528	
==>L2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1419	1528	
==>L2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	403	519	
==>nction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	403	519	
==>nction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	403	519	
==>nction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18253	18724	
==>nly_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encodi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18895	18993	
==>tr $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Internals::substr($s,$offset,undef,$len <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5841	5937	
==>ive value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5841	5937	
==>ive value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13860	14004	
==>se {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the databa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13860	14004	
==>se {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the databa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2029	2140	
==>closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2040	2151	
==>closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5318	5449	
==>q 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5540	5671	
==>q 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5742	5844	
==>urn $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOP <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5742	5844	
==>urn $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOP <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14821	14921	
==>orce_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9528	9624	
==>(symbol new (%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9379	9512	
==>count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9379	9512	
==>count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9379	9512	
==>count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2911	3008	
==>ed Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3298	3414	
==>));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3298	3414	
==>));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3654	3770	
==>));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10430	10527	
==>onChars> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before < <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1706	1833	
==>put = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1706	1833	
==>put = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5372	5470	
==>and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5372	5470	
==>and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3526	3724	
==>dline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %event <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3526	3724	
==>dline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %event <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	952	1094	
==>turn {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	952	1094	
==>turn {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11054	11151	
==>s Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11054	11151	
==>s Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	172	274	
==>| die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($sel <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	172	274	
==>| die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($sel <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4970	5066	
==>cess to the header fields in the requests
sent and responses received, then you should use the fu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4970	5066	
==>cess to the header fields in the requests
sent and responses received, then you should use the fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	152	257	
==>l slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	152	257	
==>l slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	152	257	
==>l slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@ar <==
4	/Users/nnunley/pugs/util/package-osx.pl	4973	5070	
==>Bible::S13.3pm
        /usr/local/man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1479	1611	
==>thod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1479	1611	
==>thod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1479	1611	
==>thod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($sel <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9350	9440	
==>Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on();
=pod
my $s <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1272	1399	
==>omp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != keys %$ccset) {
        $oldn = keys %$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13972	14069	
==>ULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13972	14069	
==>ULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->en <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13972	14069	
==>ULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->en <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5506	5607	
==>xport {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec pla <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5506	5607	
==>xport {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec pla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34995	35118	
==>and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the merge() method defined in F< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4313	4412	
==>less ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4313	4412	
==>less ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4903	5002	
==>less ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	353	583	
==>ption.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	353	583	
==>ption.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	353	583	
==>ption.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	269	372	
==>ficiency isnt currently on the goal list.

CAVEAT - This file so far represents only a an hour or two of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3923	4044	
==>(.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3935	4056	
==>(.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothe <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5911	6017	
==>od optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) { <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5911	6017	
==>od optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3048	3157	
==>code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3048	3157	
==>code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23750	23845	
==>t used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23750	23845	
==>t used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	191	394	
==>int "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab concat(\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8128	8270	
==>$arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8128	8270	
==>$arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8128	8270	
==>$arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3040	3141	
==>k;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Pass' => class 'TestBuilder::Test::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10783	10898	
==>_where()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $args{progs}) {
	d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3832	3933	
==>,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3832	3933	
==>,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3832	3933	
==>,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33732	33876	
==>RAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33732	33876	
==>RAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33732	33876	
==>RAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_inf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	861	972	
==>$pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self->regex($rx) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	376	564	
==>e_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14849	14940	
==>le E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14849	14940	
==>le E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14849	14940	
==>le E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1948	2058	
==>/_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1948	2058	
==>/_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1948	2058	
==>/_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comma <==
4	/Users/nnunley/pugs/util/importgraph.pl	2010	2094	
==>/^Emit\b/);
setup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2953	3149	
==>e} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2953	3149	
==>e} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2953	3149	
==>e} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25887	25974	
==>tom(X), atom_codes(X,L), !.
listify(X,L) :- string_to_list(X,L), !.
listify(L,L).
listif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2004	2152	
==>ad'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2004	2152	
==>ad'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	774	994	
==>{
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*? <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	774	994	
==>{
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*? <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	550	648	
==>ator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symbo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	550	648	
==>ator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symbo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2057	2205	
==>$state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2473	2618	
==>$state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1989	2134	
==>$state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2473	2618	
==>$state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4216	4366	
==>}
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4216	4366	
==>}
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4216	4366	
==>}
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($disp <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1878	2004	
==>ine);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2098	2270	
==>29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signature fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12689	12789	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12689	12789	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12689	12789	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8435	8548	
==>>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8435	8548	
==>>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8435	8548	
==>>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1306	1398	
==>prints bare types (no foralll)
my $pretty = Language::AttributeGrammar->new(<<'#\'EOG');
#\
t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	132	242	
==>l $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed befo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	132	242	
==>l $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed befo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	132	242	
==>l $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed befo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8541	8635	
==>ngleton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Object cannot c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17593	17743	
==>wWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14014	14164	
==>wWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18814	18940	
==>>{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20172	20298	
==>>{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	13	270	
==>gs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODB <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	13	270	
==>gs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODB <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3340	3453	
==>man (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute acce <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3340	3453	
==>man (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute acce <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17648	17759	
==>et::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17648	17759	
==>et::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4003	4106	
==>$port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4003	4106	
==>$port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	125	375	
==>(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	125	375	
==>(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $E <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2359	2471	
==>method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2359	2471	
==>method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3635	3740	
==>elf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3635	3740	
==>elf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3635	3740	
==>elf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of super <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	333	426	
==>::DuplicateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_reduce {
		m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17321	17435	
==>asses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17321	17435	
==>asses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17321	17435	
==>asses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DE <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	170	263	
==>rams::Check qw(check);
use Log::Message::Simple qw(:STD);

=head1 METHODS

=head2 $repo = JIB: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	134	245	
==>ss $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # lo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	98	208	
==>ss $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # lo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	186	296	
==>ss $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # lo <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	411	553	
==>g = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.def <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	411	553	
==>g = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.def <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10676	10785	
==>>add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10281	10390	
==>>add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quan <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1873	2026	
==>);
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1873	2026	
==>);
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($b <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2590	2719	
==>);
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2590	2719	
==>);
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($b <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9214	9318	
==>ns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parame <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9214	9318	
==>ns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parame <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9771	9874	
==>ns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parame <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9771	9874	
==>ns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parame <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24075	24198	
==>tatements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24354	24477	
==>tatements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6812	6926	
==>'" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6824	6938	
==>'" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $mat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13461	13584	
==>d packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a tr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13461	13584	
==>d packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a tr <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	728	835	
==>port {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	786	893	
==>port {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, S <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13900	14035	
==>ssage();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.pre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13900	14035	
==>ssage();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.pre <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	32	133	
==>e;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4739	4843	
==>an.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4739	4843	
==>an.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6263	6367	
==>an.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7360	7457	
==>eneric_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thunk = ($ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4109	4226	
==>ipt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4109	4226	
==>ipt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4109	4226	
==>ipt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    < <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37234	37342	
==>symbol->new('@:subclasses')      => attribute->new('@:subclasses'      => 'list')));
$::Class->send('add_attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	660	761	
==>,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	660	761	
==>,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	660	761	
==>,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3181	3323	
==>vivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3181	3323	
==>vivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Arr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3181	3323	
==>vivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Arr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	15	107	
==>::Grammar::Perl6;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pug <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1758	1854	
==>T METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the s <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1521	1617	
==>T METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1758	1854	
==>T METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1521	1617	
==>T METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1135	1233	
==>ng typing)
#	::free - an unbound type variable
#	::instantiated - points to another variable or ope <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5115	5213	
==>r::arrow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	393	497	
==>);   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	393	497	
==>);   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1552	1645	
==>class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1552	1645	
==>class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8535	8631	
==>t.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8535	8631	
==>t.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8535	8631	
==>t.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	296	397	
==>the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	296	397	
==>the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	296	397	
==>the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::O <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10508	10607	
==>:"undef","\n";
END

print "alive\n";

our $regexp_compile_hook = sub{
  my($re)=@_;
  print STDERR " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24044	24138	
==>onal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, t <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	270	364	
==>'ve inserted unchanged
# my original first attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28596	28690	
==>onal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27427	27521	
==>onal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1408	1511	
==>,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1408	1511	
==>,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1408	1511	
==>,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8476	8631	
==>ed} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8476	8631	
==>ed} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8476	8631	
==>ed} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	5582	5679	
==>ocal/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Perl6::Overview.3pm
        /usr/local <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15234	15370	
==>v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15234	15370	
==>v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15234	15370	
==>v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7814	7916	
==>:DontDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A. <==
4	/Users/nnunley/pugs/util/package-osx.pl	9773	9896	
==>$dirs = $from;
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2650	2733	
==>il2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2650	2733	
==>il2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2650	2733	
==>il2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1235	1377	
==>&int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1235	1377	
==>&int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3041	3171	
==>tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3041	3171	
==>tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$dat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	874	988	
==>Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	874	988	
==>Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11905	12005	
==>an just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '.. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11963	12063	
==>an just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3573	3698	
==>def;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4890	5015	
==>def;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3573	3698	
==>def;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4878	5003	
==>def;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17741	17839	
==>eed to be unique for a situation, and this is
mapped to a user-readable message at some point.  For <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17741	17839	
==>eed to be unique for a situation, and this is
mapped to a user-readable message at some point.  For <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14855	14949	
==>bstituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequent <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14855	14949	
==>bstituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequent <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6461	6581	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6461	6581	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6461	6581	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('d <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	402	505	
==>r/$file.expected";
    unlink "$file.out";
    system "$pugs $f.p6 > $file.out";
    if (compare("$file. <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3570	3687	
==>xtra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (S <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3570	3687	
==>xtra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (S <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3277	3384	
==>tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Ex <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3277	3384	
==>tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Ex <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	309	426	
==>c_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { subst <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	210	327	
==>c_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { subst <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1376	1471	
==>ile('[a|b](b)');
my $rpcr2 = Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#pr <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8765	8854	
==>opt(L0), p5_charset_def_x(L0,L), !. % 45 is -
p5_charset_def([char(93)|L]) --> "]", p5_cha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23305	23448	
==>n - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEEN_ZERO_LEN        1
 #define REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1415	1539	
==>ype";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self, $key) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7309	7414	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7309	7414	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7309	7414	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9618	9718	
==>e. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9812	9912	
==>e. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9618	9718	
==>e. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9812	9912	
==>e. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21714	21817	
==>m the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessari <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20595	20698	
==>m the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessari <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21714	21817	
==>m the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessari <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20595	20698	
==>m the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessari <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	362	481	
==>ub {
            +shift->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4912	5005	
==>i say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4912	5005	
==>i say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4912	5005	
==>i say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2423	2545	
==>ig);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new reposito <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14715	14804	
==>Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14715	14804	
==>Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14715	14804	
==>Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MU <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1099	1200	
==>e_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SY <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1099	1200	
==>e_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SY <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7652	7750	
==>keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normal <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7652	7750	
==>keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normal <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29663	29771	
==>st "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29663	29771	
==>st "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	467	563	
==>st "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16345	16440	
==>what characters
they represent, as well as the macros C<\w>, C<\d>, etc.  Then this
example woul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2297	2440	
==>n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2285	2428	
==>n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15854	15950	
==>c_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19331	19427	
==>c_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relatio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	266	381	
==>epted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content', <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	266	381	
==>epted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content', <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7726	7817	
==>dir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, "") <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7726	7817	
==>dir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, "") <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1141	1246	
==>{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1970	2073	
==>{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2110	2213	
==>{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17666	17761	
==>_pair,
	param => val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polymorphi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8052	8178	
==>:Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8040	8166	
==>:Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! define <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14594	14694	
==>lude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14594	14694	
==>lude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8086	8219	
==>"infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8086	8219	
==>"infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9853	9949	
==>ight pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9853	9949	
==>ight pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = H <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4899	5061	
==>urn $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4899	5061	
==>urn $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3702	3852	
==>urn $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3702	3852	
==>urn $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $o <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	483	578	
==>ee Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22443	22538	
==>en a program package would return a code-key to indicate a
condition, often it will also provide <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	483	578	
==>ee Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22443	22538	
==>en a program package would return a code-key to indicate a
condition, often it will also provide <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10822	10968	
==>unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12855	12990	
==>,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12855	12990	
==>,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$c <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6007	6120	
==>k_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $this_size;
        defined(my $pid = fork) <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5155	5258	
==>digit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_seq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9073	9174	
==>t:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9073	9174	
==>t:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9073	9174	
==>t:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_func <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8997	9118	
==>[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8985	9106	
==>[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7464	7563	
==>a recursive let expr a generic recursive function will be reunified with it's still free variable
	$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5286	5377	
==>.<[[DefaultValue]]>}
multi sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
multi sub ToBoolean(JS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6830	7008	
==>h.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	915	1014	
==>s not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExcep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	915	1014	
==>s not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExcep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	915	1014	
==>s not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExcep <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25223	25350	
==>$_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # access <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1953	2094	
==>ob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1953	2094	
==>ob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1953	2094	
==>ob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1584	1700	
==>istered_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->fil <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	863	975	
==>fined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	605	717	
==>fined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	863	975	
==>fined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	605	717	
==>fined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11605	11695	
==>Num, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1315	1412	
==>@VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1315	1412	
==>@VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1315	1412	
==>@VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5651	5759	
==>->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5651	5759	
==>->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5651	5759	
==>->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup f <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2167	2263	
==>.publisher.remove_subscription($?SELF);
    }
}

class Class::Events::Subscription::Named {
    i <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1958	2059	
==>= $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14337	14431	
==>UB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14337	14431	
==>UB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14337	14431	
==>UB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15525	15648	
==>eturn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15525	15648	
==>eturn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15525	15648	
==>eturn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   d <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	201	310	
==>r die 'Need at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... dist <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3394	3580	
==>t_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_lin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3442	3628	
==>t_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_lin <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3394	3580	
==>t_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_lin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3442	3628	
==>t_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_lin <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4545	4665	
==>r unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{shuffle <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	185	285	
==>lue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_ran <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	185	285	
==>lue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_ran <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18279	18374	
==>fy the address (URI) of the document from which the
requested resource address was obtained.

Th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18279	18374	
==>fy the address (URI) of the document from which the
requested resource address was obtained.

Th <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12080	12189	
==>hift;

    push @{ $self->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3418	3517	
==>cted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3418	3517	
==>cted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3498	3597	
==>cted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3519	3636	
==>d ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3519	3636	
==>d ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1768	1877	
==>use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15381	15487	
==>t inside the function, if it was free it might be unified to a concrete value
	$ret;
}

# in a let block we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6886	7004	
==>art == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6886	7004	
==>art == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6886	7004	
==>art == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12395	12493	
==>arams);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (hash %params)) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2456	2556	
==>ing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2456	2556	
==>ing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2456	2556	
==>ing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.ke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13758	13862	
==>numeric") },
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar_numeric     = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3499	3599	
==>ans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3499	3599	
==>ans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3579	3679	
==>ans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7874	8009	
==>nterpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13468	13603	
==>nterpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7874	8009	
==>nterpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13462	13597	
==>nterpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7332	7426	
==>item $parser->regex($regex)

Clears the parser's memory and sets $regex as the regex to be pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	85	178	
==>n;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	85	178	
==>n;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	85	178	
==>n;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17473	17603	
==>er!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20950	21080	
==>er!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20537	20667	
==>er!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6514	6638	
==>rn "Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	354	466	
==>s %PKGS ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	292	400	
==>{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	292	400	
==>{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	292	400	
==>{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	350	520	
==>ots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            'array_fetch' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5239	5339	
==>otected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5239	5339	
==>otected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5239	5339	
==>otected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2316	2433	
==>NV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<RE <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2316	2433	
==>NV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<RE <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5992	6098	
==>> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5992	6098	
==>> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2830	2994	
==>.
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2830	2994	
==>.
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19849	19948	
==>to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19849	19948	
==>to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8837	8932	
==>6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8837	8932	
==>6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8837	8932	
==>6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13792	13909	
==>f real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span repres <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13792	13909	
==>f real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span repres <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	442	558	
==>t from repository metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check if it is alre <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20835	20930	
==>dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_parent} || "../ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6498	6623	
==>ers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7234	7359	
==>ers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6498	6623	
==>ers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7234	7359	
==>ers>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8200	8377	
==>$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8200	8377	
==>$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8200	8377	
==>$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14115	14252	
==>$::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14115	14252	
==>$::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14115	14252	
==>$::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	182	278	
==>untime::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_precedences = (
    tighter => sub { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4603	4710	
==>cLiteral>
    | <StringLiteral>
}
rule ReservedWord {  # see 7.5.1
      <Keyword>
    | <FutureReservedWord <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5272	5373	
==>ify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5272	5373	
==>ify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5272	5373	
==>ify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13118	13222	
==>s, array refs, scalars),
which is suitable as a generic data interchange format between
Rosetta::Model an <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18213	18317	
==>s,
array refs, scalars), which is suitable as a generic data interchange
format between Rosetta::Model an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13118	13222	
==>s, array refs, scalars),
which is suitable as a generic data interchange format between
Rosetta::Model an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18213	18317	
==>s,
array refs, scalars), which is suitable as a generic data interchange
format between Rosetta::Model an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	671	820	
==>n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	682	831	
==>n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1475	1608	
==>ndency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1475	1608	
==>ndency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4187	4291	
==>et, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4187	4291	
==>et, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4187	4291	
==>et, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	830	978	
==>=> '
                <Pugs::Grammar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->add_rule( ' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7096	7205	
==>iblings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## -------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7096	7205	
==>iblings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## -------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1342	1430	
==>ttribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1342	1430	
==>ttribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1342	1430	
==>ttribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:method <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18616	18728	
==>tail->{reason}
              unless defined $totals->{skip_reason};
            $totals->{skip_reason} = 'various <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9764	9874	
==>g ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13241	13351	
==>g ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12513	12623	
==>g ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	282	385	
==>t has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.ma <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	282	385	
==>t has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.ma <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	431	533	
==>s represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!memb <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	431	533	
==>s represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!memb <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	978	1078	
==>ckslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { rat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1357	1457	
==>ckslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	978	1078	
==>ckslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1357	1457	
==>ckslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { rat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6863	6990	
==>y $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11418	11545	
==>y $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12216	12343	
==>y $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12943	13070	
==>y $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8493	8636	
==>eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturab <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4853	4996	
==>eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5702	5845	
==>eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	27	125	
==>'0.002';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Module::Compile-b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6523	6650	
==>var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6523	6650	
==>var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6523	6650	
==>var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	342	434	
==>d grapes grapes");
}
system("perl naive_bayesian.p5 classify $test_file");

print(('-' x 80), <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14419	14524	
==>or.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14419	14524	
==>or.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14350	14444	
==>OIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(St <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14350	14444	
==>OIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(St <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1069	1179	
==>use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1274	1384	
==>use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1335	1445	
==>use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23860	23952	
==>nd doesn't know about language specific details like
encodings or plurality.

My understandin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23860	23952	
==>nd doesn't know about language specific details like
encodings or plurality.

My understandin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21112	21203	
==>radata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21112	21203	
==>radata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10962	11094	
==>ion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12433	12565	
==>ion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14439	14571	
==>ion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15910	16042	
==>ion.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1203	1330	
==>obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1203	1330	
==>obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1203	1330	
==>obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4243	4375	
==>undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4243	4375	
==>undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4243	4375	
==>undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	124	212	
==>ammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4490	4750	
==>l->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2127	2239	
==>);
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2127	2239	
==>);
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2207	2319	
==>);
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.d <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13689	13781	
==>ed to represent continuous measurements, such as times, temperatures, or price ranges.

Creat <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13689	13781	
==>ed to represent continuous measurements, such as times, temperatures, or price ranges.

Creat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18621	18737	
==>urn;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15042	15158	
==>urn;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2442	2546	
==>lse to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2442	2546	
==>lse to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2391	2488	
==>>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2391	2488	
==>>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2391	2488	
==>>as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(d <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	781	914	
==>ned) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26443	26543	
==>e the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->object(TYPE => ARGS. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16026	16120	
==>org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Bri <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16084	16178	
==>org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Bri <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3218	3328	
==>_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3218	3328	
==>_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16976	17069	
==>ditional
encoding mechanism has been applied to the resource.

=item $h.content_length

A deci <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16976	17069	
==>ditional
encoding mechanism has been applied to the resource.

=item $h.content_length

A deci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3065	3170	
==>>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3065	3170	
==>>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3065	3170	
==>>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4358	4508	
==>ta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1529	1639	
==>els}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self->{levels}[$_]} );
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4741	4845	
==>ame = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isName <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4741	4845	
==>ame = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isName <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4741	4845	
==>ame = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isName <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5112	5236	
==>>can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4971	5095	
==>>can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7153	7256	
==>stant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7153	7256	
==>stant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13666	13757	
==>eclared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13666	13757	
==>eclared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13666	13757	
==>eclared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2126	2225	
==>`$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die "Could n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3134	3222	
==>//www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3134	3222	
==>//www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3481	3569	
==>//www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7799	7939	
==>ew_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7799	7939	
==>ew_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4731	4826	
==>en \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for out <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4953	5048	
==>en \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for out <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7509	7613	
==>rsection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6639	6743	
==>rsection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7509	7613	
==>rsection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6639	6743	
==>rsection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_differen <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6772	6886	
==>use base qw/node/;

package cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	320	425	
==>a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	320	425	
==>a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	320	425	
==>a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2138	2255	
==>y () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5109	5226	
==>y () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2138	2255	
==>y () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5109	5226	
==>y () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3534	3685	
==>sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3393	3538	
==>sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	566	695	
==>e.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	566	695	
==>e.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	341	445	
==>ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	341	445	
==>ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	341	445	
==>ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]} <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5843	5974	
==>atch.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5843	5974	
==>atch.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Pa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2580	2683	
==>c/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2580	2683	
==>c/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27599	27741	
==>t( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27878	28020	
==>t( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	657	791	
==>{
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'pl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	657	791	
==>{
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'pl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1662	1757	
==>obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1662	1757	
==>obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1662	1757	
==>obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8342	8445	
==>ite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONS <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8342	8445	
==>ite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONS <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11287	11384	
==>e.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11287	11384	
==>e.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19985	20110	
==>'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19985	20110	
==>'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19985	20110	
==>'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31713	31808	
==>his object (for quantifiers).

=item min

The minimum repetition count of this object (for quant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15587	15691	
==>turn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15587	15691	
==>turn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15587	15691	
==>turn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15063	15243	
==>od($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15063	15243	
==>od($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15063	15243	
==>od($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5730	5839	
==>return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ( <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	108	207	
==>Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusammen: (änlich wie any)
$s ~~ (123, funkt <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37094	37188	
==>lations have zero attributes in common, their joining degenerates to a
C<product>.  In any situ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41643	41737	
==>lations have zero attributes in common, their joining degenerates to a
C<product>.  In any situ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41266	41360	
==>lations have zero attributes in common, their joining degenerates to a
C<product>.  In any situ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1163	1275	
==>ethod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1163	1275	
==>ethod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1163	1275	
==>ethod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_ins <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	219	329	
==>DO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKA <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11131	11221	
==>em B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) retu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11131	11221	
==>em B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12717	12828	
==>tor
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12717	12828	
==>tor
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12717	12828	
==>tor
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4473	4584	
==>har:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	745	852	
==>ave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	745	852	
==>ave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	745	852	
==>ave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($sel <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15318	15427	
==>educe($ast);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1370	1472	
==>o discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1370	1472	
==>o discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1370	1472	
==>o discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reble <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4296	4425	
==>mpfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4296	4425	
==>mpfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4296	4425	
==>mpfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15575	15693	
==>fcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero.  Ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4567	4675	
==>"Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4567	4675	
==>"Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4567	4675	
==>"Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_a <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6802	6908	
==>ot()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent(). <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6802	6908	
==>ot()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent(). <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20836	20935	
==>n callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20836	20935	
==>n callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3023	3131	
==>, @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3023	3131	
==>, @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3023	3131	
==>, @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15756	15897	
==>ft;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15756	15897	
==>ft;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15756	15897	
==>ft;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30240	30340	
==>g away at _run_all_tests()

Clean up how the summary is printed.  Get rid of those damned formats.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27079	27199	
==>';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $self->SUPER::init();

    # now add <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4712	4825	
==>l ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] redu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4712	4825	
==>l ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] redu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4712	4825	
==>l ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] redu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11110	11213	
==>ot in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8514	8617	
==>ot in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11110	11213	
==>ot in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8514	8617	
==>ot in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all given items are in t <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12196	12303	
==>rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3944	4048	
==>R_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3944	4048	
==>R_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3944	4048	
==>R_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lva <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1390	1535	
==>./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1390	1535	
==>./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req <==
4	/Users/nnunley/pugs/util/build_pugs.pl	915	1030	
==>{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segment";
    
    print "Build co <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12666	12786	
==>ge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/lib <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	899	998	
==>ed;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	899	998	
==>ed;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	899	998	
==>ed;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2196	2297	
==>etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2196	2297	
==>etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1471	1572	
==>->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1611	1712	
==>->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12670	12899	
==>)/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12670	12899	
==>)/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10521	10674	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10800	10953	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3260	3374	
==>s}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3260	3374	
==>s}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3260	3374	
==>s}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_na <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10781	10883	
==>hod') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	143	237	
==>piler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	143	237	
==>piler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	141	231	
==>piler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Gr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3812	3918	
==>me> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($cu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3812	3918	
==>me> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($cu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1418	1519	
==>el::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1418	1519	
==>el::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19055	19159	
==>og_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@\n". <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10164	10263	
==>os;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10164	10263	
==>os;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10164	10263	
==>os;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
us <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15859	15959	
==>ry is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

= <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15859	15959	
==>ry is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21398	21495	
==>ry is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21398	21495	
==>ry is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1089	1236	
==>$fname}[$n] }, {%$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1051	1193	
==>q '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1051	1193	
==>q '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1051	1193	
==>q '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8660	8796	
==>x eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14385	14521	
==>x eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8660	8796	
==>x eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14379	14515	
==>x eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14073	14169	
==>e_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14073	14169	
==>e_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14073	14169	
==>e_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1465	1598	
==>ext.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1465	1598	
==>ext.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1465	1598	
==>ext.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functio <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2418	2538	
==>f->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14032	14124	
==>am "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Littl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10259	10351	
==>am "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Littl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14032	14124	
==>am "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Littl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10259	10351	
==>am "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Littl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19730	19828	
==>light variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the des <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18711	18809	
==>light variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the des <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19730	19828	
==>light variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the des <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18711	18809	
==>light variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21326	21420	
==>tes.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

In <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21326	21420	
==>tes.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

In <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5852	5939	
==>Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5852	5939	
==>Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34013	34139	
==>infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34013	34139	
==>infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34013	34139	
==>infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	218	309	
==>d1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB::Alternative->new_from_struct( struct => $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1384	1506	
==>SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1384	1506	
==>SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1384	1506	
==>SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12530	12650	
==>Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # start of char class (and pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9644	9740	
==>uire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9644	9740	
==>uire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9644	9740	
==>uire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12814	12927	
==>{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12814	12927	
==>{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12814	12927	
==>{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1366	1472	
==>rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1366	1472	
==>rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1366	1472	
==>rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1867	1989	
==>$tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->cat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3813	3896	
==>---------------------------------------------------------------------------
## Packa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3813	3896	
==>---------------------------------------------------------------------------
## Packa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3813	3896	
==>---------------------------------------------------------------------------
## Packa <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	450	561	
==>e @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am pu <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	450	561	
==>e @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am pu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	474	570	
==>urn &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($wo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	474	570	
==>urn &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5530	5642	
==>) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5530	5642	
==>) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5530	5642	
==>) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an at <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	361	462	
==>::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	361	462	
==>::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler f <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1605	1704	
==>new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start ob <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1605	1704	
==>new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1405	1525	
==>cts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1405	1525	
==>cts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1405	1525	
==>cts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1114	1223	
==>$condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($self, $conditi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	72	166	
==>nly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	72	166	
==>nly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	72	166	
==>nly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26388	26496	
==>5.10.1
      <null>
    | <NonemptyClassRanges>
}
rule NonemptyClassRanges {  # see 15.10.1
      <ClassAtom> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1474	1574	
==>c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + strl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3505	3604	
==>shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3505	3604	
==>shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3505	3604	
==>shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2391	2493	
==>", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2391	2493	
==>", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2391	2493	
==>", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5150	5244	
==>{"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_ba <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13322	13448	
==>om_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13322	13448	
==>om_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comma <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	107	202	
==>CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	107	202	
==>CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1462	1581	
==>"emitting grammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	252	361	
==>e Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	252	361	
==>e Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	252	361	
==>e Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2947	3111	
==>%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2947	3111	
==>%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2947	3111	
==>%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7831	7944	
==>die "Failed to create directory $output_path" if $@;
    open (my $fh,'>', $index_file) or die "Failed to open $in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	261	371	
==>h
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	261	371	
==>h
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	261	371	
==>h
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21923	22098	
==>leop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22202	22377	
==>leop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 , <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	240	339	
==>ns Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
} <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	240	339	
==>ns Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13532	13652	
==>rams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13532	13652	
==>rams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13532	13652	
==>rams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribut <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5906	6015	
==>e_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2394	2495	
==>$out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2394	2495	
==>$out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2474	2575	
==>$out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4310	4427	
==>itchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1663	1771	
==>,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1663	1771	
==>,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1663	1771	
==>,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	194	330	
==>ass_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $p <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4239	4356	
==>= $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4239	4356	
==>= $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect <==
4	/Users/nnunley/pugs/util/drift.pl	805	903	
==>rIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp" <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	249	347	
==>...
}

method add($self: Duration $duration) returns Date {
    ...
}

method subtract($self: Durat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23934	24026	
==>,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23934	24026	
==>,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23934	24026	
==>,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5162	5389	
==>it to a symbol.

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

The above is th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	752	852	
==>.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	752	852	
==>.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	752	852	
==>.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1933	2034	
==>statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1933	2034	
==>statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8144	8235	
==>_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1969	2060	
==>_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19596	19741	
==>> 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11324	11465	
==>>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11324	11465	
==>>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11324	11465	
==>>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13325	13431	
==>ame};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13325	13431	
==>ame};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13325	13431	
==>ame};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13058	13157	
==>ght be non-trivial, as only some forms of redefinition
  make its magic not stick.

  The implementa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5768	5896	
==>w PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5768	5896	
==>w PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5768	5896	
==>w PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $s <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	65	166	
==>rator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say P <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1185	1279	
==>:instantiated - points to another variable or operator

use Language::AttributeGrammar;

# this <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1085	1174	
==>use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1085	1174	
==>use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1085	1174	
==>use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7464	7616	
==>le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7464	7616	
==>le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7464	7616	
==>le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1973	2096	
==>+$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8024	8120	
==>eturn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8024	8120	
==>eturn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8024	8120	
==>eturn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2818	2913	
==>$entry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($assig <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	686	787	
==>tringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	686	787	
==>tringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.i <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1445	1537	
==>bout Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to render <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1445	1537	
==>bout Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to render <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	985	1107	
==>e;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	985	1107	
==>e;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	985	1107	
==>e;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14275	14380	
==>er->new_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8454	8556	
==>warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbox <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8454	8556	
==>warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbox <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8454	8556	
==>warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbox <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	747	838	
==>flags {
	warn "optimize_flags has been changed to cc_optimize_flags for consistency reasons" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11812	11934	
==>art => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11812	11934	
==>art => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Spa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2521	2642	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2714	2835	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8593	8704	
==>x ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8593	8704	
==>x ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8593	8704	
==>x ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, ' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1976	2061	
==>e::operator::binary: parenthesize($$) = { $$->isa("type::operator::pair") || level($$) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1654	1792	
==>my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1984	2119	
==>my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1597	1732	
==>my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1984	2119	
==>my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3273	3522	
==>:Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3273	3522	
==>:Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Ros <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1344	1443	
==>ad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocation, as well a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1286	1382	
==>ad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocation, as well a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4300	4433	
==>'t delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4300	4433	
==>'t delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	971	1082	
==>$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7379	7486	
==>eturn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3983	4090	
==>eturn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4832	4939	
==>eturn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3524	3702	
==>ub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3524	3702	
==>ub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3524	3702	
==>ub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1498	1598	
==>he right hand side must be a core type";    
    return num->new($left->to_native * $right->to_num->t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5552	5669	
==>urn unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5774	5891	
==>urn unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1505	1597	
==>->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1505	1597	
==>->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17353	17448	
==>ere, and hence provides these
benefits to developers and users alike.

For some practical exampl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17353	17448	
==>ere, and hence provides these
benefits to developers and users alike.

For some practical exampl <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3911	4005	
==>priate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- ` <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3911	4005	
==>priate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- ` <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42896	43043	
==>turn $e->get('$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6124	6233	
==>rtation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__expo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6124	6233	
==>rtation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__expo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6124	6233	
==>rtation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__expo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10590	10710	
==>t} }, qw< minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2537	2627	
==>and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2537	2627	
==>and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2537	2627	
==>and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4751	4864	
==>icitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next un <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4610	4723	
==>icitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next un <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	511	608	
==>argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) retu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1369	1466	
==>argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	572	772	
==>:constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	573	773	
==>:constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( " <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6552	6658	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROO <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6552	6658	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	860	1016	
==>_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	860	1016	
==>_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7499	7599	
==>s);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7499	7599	
==>s);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2217	2320	
==>);
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    prec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2217	2320	
==>);
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    prec <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10718	10815	
==>er(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10718	10815	
==>er(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15596	15724	
==>, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21767	21895	
==>, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3483	3585	
==>xt $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    sub <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3483	3585	
==>xt $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1464	1653	
==>to True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4942	5130	
==>to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3872	4060	
==>to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of St <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5633	5712	
==>+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1478	1595	
==>e } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1489	1606	
==>e } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'cap <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2678	2770	
==>at short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=c <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2678	2770	
==>at short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8641	8794	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8641	8794	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8641	8794	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Per <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4072	4169	
==>y $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_token_match_1" <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4266	4381	
==>= ceil($x);

    return $x_round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = floor($x);

    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2945	3123	
==>ll->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc worka <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2945	3123	
==>ll->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc worka <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2945	3123	
==>ll->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc worka <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1271	1377	
==>=head2 $file = $inst->available_file

=cut

sub available_file {
    my $self = shift;
    my $dir  = $self <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2519	2624	
==>ic Perl block
    Parametric  Basic Perl block with placeholder parameters
    Package     Perl 5 compatib <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3374	3471	
==>e to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=ite <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3374	3471	
==>e to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3454	3551	
==>e to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=ite <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1135	1255	
==>', $args->{name}, @_ )
    	: join( ' ', @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1674	1765	
==>a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1674	1765	
==>a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1674	1765	
==>a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1557	1720	
==>etchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return unde <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2005	2135	
==>.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5482	5612	
==>.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4412	4542	
==>.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	90	184	
==>t;
use warnings;

use Blondie::Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compiler_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2622	2713	
==>p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2622	2713	
==>p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2622	2713	
==>p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5316	5416	
==>Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5316	5416	
==>Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by the <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	725	818	
==>er/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	725	818	
==>er/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	744	875	
==>' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	744	875	
==>' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_cha <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	337	437	
==>en tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	337	437	
==>en tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5184	5322	
==>ASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5184	5322	
==>ASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5184	5322	
==>ASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2788	2883	
==>t(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

Whe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3078	3199	
==>s, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13018	13127	
==>not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13018	13127	
==>not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13018	13127	
==>not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29453	29565	
==>>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29453	29565	
==>>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29453	29565	
==>>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{ite <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2283	2379	
==>assigning it the given C<$name>
for use in the total report.  Returns the C<%results> of the test <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3481	3616	
==>ence => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        prec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14078	14186	
==>$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14078	14186	
==>$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14078	14186	
==>$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1799	1927	
==>h my $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14661	14751	
==>ete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14661	14751	
==>ete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14661	14751	
==>ete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3009	3105	
==>2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3009	3105	
==>2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25297	25390	
==>he immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29849	29942	
==>he immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43653	43833	
==>>new(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1428	1539	
==>Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1428	1539	
==>Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1428	1539	
==>Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13848	13983	
==>l)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13848	13983	
==>l)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13848	13983	
==>l)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9707	9837	
==>ant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       , <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9949	10109	
==>vert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9949	10109	
==>vert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17664	17782	
==>brary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17664	17782	
==>brary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	579	685	
==>%modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	579	685	
==>%modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	579	685	
==>%modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	200	306	
==>-compile:
#    unshift @rule_terms, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43330	43573	
==>' => 'symbol'),                                
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('WALKMETH')
                  ->do(list->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10488	10641	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10767	10920	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	950	1046	
==>type

=head1 METHODS

=over 4

=item B<new (~type) returns reference>

=item B<to_native () retur <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5654	5754	
==>mpty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::Fa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5654	5754	
==>mpty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::Fa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2204	2295	
==>ar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2293	2384	
==>ar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7611	7756	
==>( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still saf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	912	1057	
==>( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still saf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6542	6659	
==>er_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bounda <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6542	6659	
==>er_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bounda <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2323	2432	
==>annot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2173	2275	
==>l subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2173	2275	
==>l subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2173	2275	
==>l subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relati <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9300	9430	
==>";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9288	9418	
==>";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1058	1161	
==>elf->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6057	6189	
==>mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                error( "Could not create subdir to copy to" );
                r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20978	21077	
==>n unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25530	25629	
==>n unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24136	24235	
==>n unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2331	2443	
==>if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2331	2443	
==>if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2331	2443	
==>if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15245	15353	
==>.param,
	);

	# the value of the comb is the return value from the function
	# since this return value is a t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28031	28123	
==>ional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28031	28123	
==>ional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Messa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5776	5866	
==>d object ($child_to_remove) in self";
}

## ----------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5776	5866	
==>d object ($child_to_remove) in self";
}

## ----------------------------------------------- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2226	2384	
==>er install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1225	1326	
==>inally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1225	1326	
==>inally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1225	1326	
==>inally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28293	28391	
==>bugging purposes (such as to test that the object's contents look
good at a glance); no attribute v <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35649	35747	
==>bugging purposes (such as to test that the object's contents look
good at a glance); no attribute v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28293	28391	
==>bugging purposes (such as to test that the object's contents look
good at a glance); no attribute v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35649	35747	
==>bugging purposes (such as to test that the object's contents look
good at a glance); no attribute v <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41741	41860	
==>o(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_until(
                    block->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6602	6714	
==>$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6602	6714	
==>$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6602	6714	
==>$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3713	3835	
==>fied = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3701	3823	
==>fied = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1219	1309	
==>es a bidirectional recurrence set.

These methods are disabled: complement(), difference($s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1219	1309	
==>es a bidirectional recurrence set.

These methods are disabled: complement(), difference($s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22038	22133	
==>andlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20919	21014	
==>andlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22038	22133	
==>andlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20919	21014	
==>andlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=it <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7644	7796	
==>nt; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7644	7796	
==>nt; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25525	25623	
==>hat the object
represents (or gives the name of a condition being reported, if it is used
as an exc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25525	25623	
==>hat the object
represents (or gives the name of a condition being reported, if it is used
as an exc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3734	3854	
==>lf = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3734	3854	
==>lf = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3734	3854	
==>lf = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $n <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7215	7333	
==>on.
multi Array::grep (@values ;      Code *&test   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &tes <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7850	7976	
==>ure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10119	10245	
==>ure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8043	8169	
==>ure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10398	10524	
==>ure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12371	12497	
==>'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12371	12497	
==>'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8271	8368	
==>rian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DI <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8271	8368	
==>rian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27096	27189	
==>attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31648	31741	
==>attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30704	30797	
==>attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Co <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	294	376	
==>Bible/lib/Perl6/Bible/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7380	7484	
==>ILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7380	7484	
==>ILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq norma <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6996	7093	
==>("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-La <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6996	7093	
==>("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-La <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	681	792	
==>(),

           and it should not backtrack or whatever



Continuations are used for backtracking.



A "ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10549	10660	
==>(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	654	760	
==>(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17317	17415	
==>e to allocate large data
which Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3563	3669	
==>$one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3563	3669	
==>$one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14137	14229	
==>quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue(" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14137	14229	
==>quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue(" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1679	1778	
==>xt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1679	1778	
==>xt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21741	21840	
==>o_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21741	21840	
==>o_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21741	21840	
==>o_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12280	12396	
==>ift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1952	2066	
==>itespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1952	2066	
==>itespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1952	2066	
==>itespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11499	11612	
==>apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22476	22589	
==>apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11499	11612	
==>apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11499	11612	
==>apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! d <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6999	7160	
==>m {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6999	7160	
==>m {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4378	4473	
==>)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4378	4473	
==>)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1344	1446	
==>s::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1484	1586	
==>s::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self-> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8552	8650	
==>eates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Create <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8552	8650	
==>eates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Create <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4552	4688	
==>bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5211	5347	
==>bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4552	4688	
==>bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5211	5347	
==>bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8579	8771	
==>$a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal toke <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9043	9235	
==>$a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal toke <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2704	2800	
==>flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_i <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2704	2800	
==>flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2743	2881	
==>_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1120	1258	
==>_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2743	2881	
==>_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2743	2881	
==>_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5665	5821	
==>Precedence::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15100	15218	
==>carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15100	15218	
==>carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15100	15218	
==>carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10968	11097	
==>n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1131	1234	
==>ixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1131	1234	
==>ixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1131	1234	
==>ixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6204	6324	
==>f) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6204	6324	
==>f) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6204	6324	
==>f) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29914	30012	
==>')'
a fatal error is thrown.  However, the nature of 'atom' is to match a
character, see if there's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	75	174	
==>D__

module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

cl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4835	4947	
==>$span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4835	4947	
==>$span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.s <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4531	4639	
==>et
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0], <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4531	4639	
==>et
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0], <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2129	2233	
==>ODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2129	2233	
==>ODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1028	1171	
==>epl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1028	1171	
==>epl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1028	1171	
==>epl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14558	14654	
==>wn

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside character classes

=item RPe_EMPT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5299	5408	
==>lute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5299	5408	
==>lute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5299	5408	
==>lute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25702	25803	
==>ubclasses (opaque $self:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self:)) ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	693	831	
==>($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..3 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	693	831	
==>($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..3 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3706	3805	
==>r.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_di <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3706	3805	
==>r.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_di <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7572	7678	
==>e([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7572	7678	
==>e([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	66	169	
==>t;

# this should really be an acccessor - all it's doing is making the
# "source" property of the objec <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	66	169	
==>t;

# this should really be an acccessor - all it's doing is making the
# "source" property of the objec <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	517	636	
==>tdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{siteprefix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13036	13144	
==>($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13036	13144	
==>($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13036	13144	
==>($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $meth <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	406	630	
==>ist' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'para <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	406	630	
==>ist' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'para <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4960	5081	
==>=> chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4960	5081	
==>=> chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3547	3659	
==>me> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <clo <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3547	3659	
==>me> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <clo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1437	1548	
==>handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1437	1548	
==>handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5434	5550	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6702	6818	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5434	5550	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6690	6806	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15771	15874	
==>c ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15771	15874	
==>c ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15771	15874	
==>c ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2966	3059	
==>subscriptions<$subscrption.name>.remove($subscription);
            $subscription.subscriber.r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2539	2687	
==>hter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '-',
        block => sub {},
        assoc => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14099	14237	
==>lass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14099	14237	
==>lass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14099	14237	
==>lass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5915	6041	
==>0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5915	6041	
==>0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5915	6041	
==>0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	276	399	
==>m->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	276	399	
==>m->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	276	399	
==>m->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28515	28611	
==>ring group's ender
is a C<close> node, any other assertion's ender is a C<tail> node, and a
chara <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	11	101	
==>:Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	11	101	
==>:Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	11	101	
==>:Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, im <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	815	919	
==>declared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	815	919	
==>declared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	815	919	
==>declared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub fo <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17544	17674	
==>node doesn't fmap but is an object";
            return "$node";
        }
    } else {
        return defined $node ? String::Esca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8872	8980	
==>class => print => $neg, $how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	674	774	
==>--------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	674	774	
==>--------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4435	4546	
==>omment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4435	4546	
==>omment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4435	4546	
==>omment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3591	3702	
==>omment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3901	4011	
==>vify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3901	4011	
==>vify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3901	4011	
==>vify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Ru <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18883	18971	
==>ionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpressionNoIn>
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	593	692	
==>nf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	593	692	
==>nf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	593	692	
==>nf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	14	110	
==>s::Grammar::Postcircumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use P <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26336	26432	
==>>.  The new Relation has all
of the tuples of the original (or rather, the corresponding projecti <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30888	30984	
==>>.  The new Relation has all
of the tuples of the original (or rather, the corresponding projecti <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9906	10000	
==>e.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9906	10000	
==>e.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17253	17403	
==>recision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17253	17403	
==>recision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2413	2534	
==>'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2413	2534	
==>'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13754	13898	
==>$end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3875	4007	
==>$end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3875	4007	
==>$end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3875	4007	
==>$end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $str <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8772	8881	
==>y");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_bad <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8830	8939	
==>y");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_bad <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16669	16764	
==>des" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16669	16764	
==>des" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2085	2180	
==>irectory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21444	21538	
==>stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21444	21538	
==>stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2007	2099	
==>irectory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland o <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10253	10358	
==>ist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONS <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10253	10358	
==>ist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONS <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1186	1275	
==>perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUG <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1397	1486	
==>perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUG <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9589	9702	
==>die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13066	13179	
==>die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12338	12451	
==>die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3315	3421	
==>eSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <RegularExpressionLiteral>
}
rule WhiteS <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	659	763	
==>ime;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15669	15766	
==>($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15669	15766	
==>($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15669	15766	
==>($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9503	9613	
==>}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9503	9613	
==>}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9503	9613	
==>}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13600	13692	
==>witch condition not recognized

=item RPe_SWBRAN (-7)

Switch (?(condition)... contains too m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1140	1340	
==>te($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %eve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1140	1340	
==>te($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %eve <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18085	18211	
==>) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ran <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14506	14632	
==>) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ran <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1471	1581	
==>= do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1471	1581	
==>= do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2925	3034	
==>= do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20198	20296	
==>efix:<-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsafe {
  if not -e $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	533	665	
==>number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	533	665	
==>number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10621	10748	
==>{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10621	10748	
==>{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1942	2039	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1942	2039	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1942	2039	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_nam <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	982	1104	
==>e... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20688	20794	
==>espace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20688	20794	
==>espace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20688	20794	
==>espace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	19	117	
==>e::Installable;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9386	9483	
==>es is rw;  # makes the roles mutator/accessor

    # --------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9386	9483	
==>es is rw;  # makes the roles mutator/accessor

    # --------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9386	9483	
==>es is rw;  # makes the roles mutator/accessor

    # --------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5051	5151	
==>ne hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5051	5151	
==>ne hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($modul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16849	16945	
==>encoding

The Content-Encoding header field is used as a modifier to the
media type.  When presen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16849	16945	
==>encoding

The Content-Encoding header field is used as a modifier to the
media type.  When presen <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2683	2976	
==>t); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2683	2976	
==>t); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10383	10480	
==>plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10383	10480	
==>plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3503	3602	
==>n"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3809	3908	
==>n"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3503	3602	
==>n"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3809	3908	
==>n"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it under th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5847	5997	
==>);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5847	5997	
==>);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5847	5997	
==>);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	473	577	
==>ariables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1). <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19667	19847	
==>2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation::Example $other!) returns Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	605	712	
==>ht think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Du <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	605	712	
==>ht think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Du <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	605	712	
==>ht think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Du <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3451	3568	
==>ccent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3451	3568	
==>ccent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3308	3407	
==>RIPTION

This class represents a date /without a time/.

Because it is just a date, it does not hand <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3308	3407	
==>RIPTION

This class represents a date /without a time/.

Because it is just a date, it does not hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1170	1364	
==>ED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $la <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1170	1364	
==>ED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $la <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1170	1364	
==>ED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $la <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	254	363	
==>ml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml
sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	379	490	
==>ta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Buil <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2456	2556	
==>er) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2456	2556	
==>er) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    ret <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	410	509	
==>ta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4792	4947	
==>$name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4792	4947	
==>$name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4792	4947	
==>$name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9341	9494	
==>at( [
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	942	1069	
==>n (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	942	1069	
==>n (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	942	1069	
==>n (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48503	48591	
==>('add_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 'str'))) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1509	1622	
==>VarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1509	1622	
==>VarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1509	1622	
==>VarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1875	1987	
==>>compile(q(<'regex'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10829	10955	
==>intext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.fin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10829	10955	
==>intext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.fin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3340	3489	
==>evel, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self->{levels}}, [ $opt ];
        re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4916	5027	
==>er("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4916	5027	
==>er("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $e <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	112	205	
==>it
Da die kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2194	2297	
==>var=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33002	33098	
==>ly tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37552	37648	
==>ly tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36896	36992	
==>ly tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6130	6427	
==>s;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name compone <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6130	6427	
==>s;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name compone <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1612	1739	
==>ocal $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chd <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1579	1706	
==>ocal $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	747	859	
==>cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	747	859	
==>cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	747	859	
==>cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46151	46275	
==>ymbol->new('$:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	846	943	
==>bject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	846	943	
==>bject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	846	943	
==>bject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7281	7526	
==>wnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7281	7526	
==>wnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4525	4620	
==>ts, you should never refer directly to "Rosetta" in your
code; instead refer to other above-name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4525	4620	
==>ts, you should never refer directly to "Rosetta" in your
code; instead refer to other above-name <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12824	12923	
==>s true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elem <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9600	9699	
==>s true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12824	12923	
==>s true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9600	9699	
==>s true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one elem <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	103	240	
==>ON = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7047	7148	
==>instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:au <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7047	7148	
==>instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:au <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7047	7148	
==>instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:au <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2131	2276	
==>rl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Du <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2348	2493	
==>rl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Du <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3107	3199	
==>r.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   :: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3107	3199	
==>r.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   :: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6724	6931	
==>c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6724	6931	
==>c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1481	1606	
==>aders{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1481	1606	
==>aders{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1039	1168	
==>gest;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_CACHE{overload::StrVal($self)};
    }

    sub com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	858	1001	
==>e_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->en <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	858	1001	
==>e_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->en <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	858	1001	
==>e_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16130	16329	
==>=>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16130	16329	
==>=>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16130	16329	
==>=>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4771	4877	
==>ield_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($self,$fname)=@_;
    ($self->{'field_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11557	11678	
==>port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11557	11678	
==>port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14064	14201	
==>NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14064	14201	
==>NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14064	14201	
==>NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23236	23343	
==>0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6analyze( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21299	21395	
==>x1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21299	21395	
==>x1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21299	21395	
==>x1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) } <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1714	1800	
==>blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_harness_args,'--conc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38013	38131	
==>l6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38013	38131	
==>l6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38013	38131	
==>l6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item ) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15795	15888	
==>r>, the returned C<Str>
will support the same levels as the input, unless specified otherwise. <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1051	1180	
==>ch {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1051	1180	
==>ch {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2507	2607	
==>r ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DEF <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2507	2607	
==>r ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DEF <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7407	7507	
==>e all in terms of kv, and leave kv a stub {...}.
 multi Array::keys   (@array ; MatchTest *@indextest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11425	11521	
==>le 
behavior to class consturction because it isolates the Role specifc
code to the class that co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11425	11521	
==>le 
behavior to class consturction because it isolates the Role specifc
code to the class that co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11425	11521	
==>le 
behavior to class consturction because it isolates the Role specifc
code to the class that co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5433	5562	
==>,
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5626	5755	
==>,
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4383	4511	
==>>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4383	4511	
==>>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	899	1075	
==>( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.d <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	899	1075	
==>( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1806	1925	
==>f( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1806	1925	
==>f( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{ma <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	168	277	
==>$f = shift(@a);
      my $kludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32879	32976	
==>ree is
helpful.

The walk() method is used to modify the walking stack before the node
is returned <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9523	9656	
==>le {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9523	9656	
==>le {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9523	9656	
==>le {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1135	1232	
==>_END__

=pod

=head1 NAME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7941	8039	
==>PTION

This class represents an ordered set of spans.

The problem this class solves is when you ne <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7941	8039	
==>PTION

This class represents an ordered set of spans.

The problem this class solves is when you ne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2932	3036	
==>1 SYNOPSIS

    use Blondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->compile($runtime, $en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	227	330	
==>soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	227	330	
==>soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	227	330	
==>soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the r <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6909	7028	
==>> chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6909	7028	
==>> chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14751	14857	
==>'3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.ne <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14751	14857	
==>'3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3941	4090	
==>osure->do();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (ble <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2650	2744	
==>d

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2650	2744	
==>d

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2650	2744	
==>d

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19803	19920	
==>32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum possible length of $& */

Must be zer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8791	8894	
==>ams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8791	8894	
==>ams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8791	8894	
==>ams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->e <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2076	2171	
==>{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spe <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2075	2209	
==>' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4294	4428	
==>' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2075	2209	
==>' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4294	4428	
==>' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14689	14785	
==>ss conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14689	14785	
==>ss conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14689	14785	
==>ss conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8481	8584	
==>ame - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6017	6118	
==>ame - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the s <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10150	10246	
==>an be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCT <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10150	10246	
==>an be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCT <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7818	7958	
==>file to the repository.

=cut

sub add_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1222	1326	
==>epo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Class::dir('di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2396	2494	
==>erator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2396	2494	
==>erator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2396	2494	
==>erator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1434	1556	
==>_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8301	8421	
==>md =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8301	8421	
==>md =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2172	2267	
==>ype => $to,
		struct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blon <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3212	3370	
==>term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return valu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3223	3381	
==>term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return valu <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3788	3887	
==>will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3788	3887	
==>will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7453	7563	
==>(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7453	7563	
==>(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	72	163	
==>ready loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	72	163	
==>ready loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( St <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3114	3230	
==>int $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the inlined modules.
    # we make a guess about what to <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13227	13327	
==>thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11010	11106	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11068	11164	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	159	263	
==>ty = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empty <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	159	263	
==>ty = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empty <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13060	13157	
==>ey are each decoded
separately and the same number of strings are returned.

If called in void con <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13060	13157	
==>ey are each decoded
separately and the same number of strings are returned.

If called in void con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2692	2797	
==>$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re _ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2692	2797	
==>$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re _ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2692	2797	
==>$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23890	24008	
==>c) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20311	20429	
==>c) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	452	564	
==>y $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9870	9982	
==>y $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	778	910	
==>ule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	778	910	
==>ule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21551	21644	
==>o
override some of your messages, showing other messages instead which are
more appropriate to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21551	21644	
==>o
override some of your messages, showing other messages instead which are
more appropriate to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3089	3307	
==>last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # afte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2216	2319	
==>i);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2216	2319	
==>i);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2216	2319	
==>i);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Er <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8671	8772	
==>s \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8659	8760	
==>s \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34432	34525	
==>arameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34432	34525	
==>arameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1407	1575	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1407	1575	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1407	1575	
==>>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2725	2832	
==>cat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6200	6292	
==>"unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Submethod|Macro|Rule|Bloc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13585	13681	
==>);

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13585	13681	
==>);

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13585	13681	
==>);

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Class <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	475	582	
==>ix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindB <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	475	582	
==>ix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindB <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9062	9162	
==>d to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_heigh <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9062	9162	
==>d to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_heigh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19310	19437	
==>0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15731	15858	
==>0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can( <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1602	1706	
==>= $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self-> <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1602	1706	
==>= $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5012	5119	
==>list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5012	5119	
==>list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5012	5119	
==>list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_n <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	353	491	
==>un');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Co <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10706	10816	
==>hSequence {  # see 7.8.5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineT <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7874	7978	
==>returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7874	7978	
==>returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3991	4092	
==>r
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the give <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3991	4092	
==>r
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the give <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	753	851	
==>ray is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	753	851	
==>ray is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36489	36732	
==>ew('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4476	4577	
==>--help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4476	4577	
==>--help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4476	4577	
==>--help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1532	1686	
==>lue.key =>
                    (.value.value.does(Relation::Heading)
                        ?? .value.value
                        !! $?CLASS.new( :attrs <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5958	6049	
==>ne';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5958	6049	
==>ne';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2857	2948	
==>ne';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19565	19682	
==>x}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15986	16103	
==>x}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26486	26580	
==>way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

=c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26486	26580	
==>way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

=c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7995	8094	
==>by)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7125	7224	
==>by)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7995	8094	
==>by)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7125	7224	
==>by)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7528	7727	
==>}
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $co <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7528	7727	
==>}
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $co <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2113	2231	
==>2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2113	2231	
==>2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13832	13952	
==>with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13832	13952	
==>with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13832	13952	
==>with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ( <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	985	1077	
==>g{installman3dir},
        installsiteman1dir => $Config{installsiteman1dir} || $Config{insta <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17112	17210	
==>In> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpression :words {  # see 11.10
      <Bitwise <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29934	30028	
==>attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34486	34580	
==>attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33650	33744	
==>attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, C <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	13	104	
==>erden weiterhin mit den "magischen Zeichen" (sigils)
$, %, @ gekennzeichnet.
#=Kontextunabh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7582	7668	
==>postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7582	7668	
==>postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7582	7668	
==>postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6671	6826	
==>e
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6671	6826	
==>e
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6671	6826	
==>e
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #war <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27559	27656	
==>tes.  If C<$body> is undefined or an empty Set,
the Relation::Example has zero tuples.  If a Relat <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	345	446	
==>X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5893	5993	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5893	5993	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1332	1432	
==>hat is there ...
    $supers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers->i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5070	5216	
==>h ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5070	5216	
==>h ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	54	166	
==>eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL in <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	54	166	
==>eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10260	10356	
==>s a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items int <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8153	8249	
==>s a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items int <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10260	10356	
==>s a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items int <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8153	8249	
==>s a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items int <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1120	1258	
==>nk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compil <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1120	1258	
==>nk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3942	4068	
==>ght be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    e <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3942	4068	
==>ght be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8846	8951	
==>ght/non/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11293	11391	
==>= $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11293	11391	
==>= $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11293	11391	
==>= $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1821	1933	
==>lass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1821	1933	
==>lass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1821	1933	
==>lass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22903	22985	
==>:- charset_member(E0,C,T).

%------------------------------------------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12647	12748	
==>} quantifier with n > m
  }

=head2 Standard Warnings and Errors

Here are the standard warning and er <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13082	13181	
==>r they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13140	13239	
==>r they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something i <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	212	297	
==>rl.perl6.language/20985
  docs/quickref/rules
  http://search.cpan.org/dist/Perl6-Bibl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2417	2530	
==>', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2417	2530	
==>', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2769	2864	
==>ta::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2769	2864	
==>ta::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, tha <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1594	1731	
==>sh(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(joi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1594	1731	
==>sh(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(joi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6670	6766	
==>I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6670	6766	
==>I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element E <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5992	6099	
==>two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5122	5229	
==>two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5992	6099	
==>two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5122	5229	
==>two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1941	2057	
==>> 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1941	2057	
==>> 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => ' <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2931	3040	
==>ecode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2931	3040	
==>ecode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2217	2384	
==>?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2217	2384	
==>?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %event <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3506	3608	
==>al $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing a <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3506	3608	
==>al $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	590	711	
==>);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        lo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	590	711	
==>);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        lo <==
4	/Users/nnunley/pugs/util/addauthors.pl	1535	1656	
==><$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4709	4808	
==>->reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $node = shift;
	my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6419	6524	
==>\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6419	6524	
==>\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6419	6524	
==>\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7648	7752	
==>)) exists ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5687	5814	
==>ock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6240	6367	
==>ock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5880	6007	
==>ock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6433	6560	
==>ock = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8701	8808	
==>(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &con <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8701	8808	
==>(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &con <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8505	8600	
==>ethod intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8505	8600	
==>ethod intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16410	16532	
==>perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = subs <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16410	16532	
==>perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = subs <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6050	6163	
==>ts = splice @$all_tests, 0, $this_size;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4688	4785	
==>left, $self->right;
}

package type::operator::nary;
use base qw/type::operator/;

sub new {
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2050	2162	
==>_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2050	2162	
==>_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2050	2162	
==>_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4297	4401	
==>o { local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file|$dir, to => $targe <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18010	18127	
==>::Literal" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1541	1636	
==>ther modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1541	1636	
==>ther modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10383	10492	
==>solve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &res <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10383	10492	
==>solve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &res <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10383	10492	
==>solve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &res <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25553	25657	
==>h is never
 * wasted effort.  The regback variable says how many characters back from
 * where regmust ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4342	4472	
==>=   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4354	4484	
==>=   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4	117	
==>v6;

role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4	117	
==>v6;

role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3219	3315	
==>n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1133	1235	
==>{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1133	1235	
==>{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1133	1235	
==>{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9092	9270	
==>dy.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12569	12747	
==>dy.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11805	11983	
==>dy.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2590	2758	
==>--- less than
                    # x<1    --- starts angle-quote
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14446	14571	
==>ile, @avail ) };
    $@ and error( "Could not write available file: $@" ), return;
    
    my @alts = map { $_->to_struct } @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6755	6854	
==>nfess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6755	6854	
==>nfess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6755	6854	
==>nfess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17139	17277	
==>apture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17418	17556	
==>apture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4584	4720	
==>perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4724	4860	
==>perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	395	494	
==>IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	395	494	
==>IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	395	494	
==>IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUB <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1863	1957	
==>ker_args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $self->makemaker_args- <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	329	448	
==>t {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	814	917	
==>Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	814	917	
==>Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	814	917	
==>Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3117	3212	
==>ar.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive to <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3117	3212	
==>ar.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive to <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11482	11573	
==>code versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11482	11573	
==>code versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5041	5147	
==>s Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5041	5147	
==>s Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14749	14879	
==>=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { ou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14749	14879	
==>=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { ou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14749	14879	
==>=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { ou <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3163	3263	
==>params in signature";
    $options{returns} = 'type' if !(exists $options{returns});
    bless { %opt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19752	19848	
==>e nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18733	18829	
==>e nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19752	19848	
==>e nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18733	18829	
==>e nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5198	5352	
==>b { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5198	5352	
==>b { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5198	5352	
==>b { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $ty <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	554	654	
==>error( Params::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or error( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6601	6710	
==>thod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6601	6710	
==>thod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6601	6710	
==>thod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ver <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23536	23629	
==>r own objects, for efficiency, and they can optionally extend the
Relation library's interface <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15619	15714	
==>ly complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15677	15772	
==>ly complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	744	836	
==>rt {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	744	836	
==>rt {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	191	299	
==>piler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->require or die $UNIVERSAL: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2481	2597	
==>if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3409	3525	
==>if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2481	2597	
==>if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3409	3525	
==>if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11372	11530	
==>ammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11651	11809	
==>ammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5139	5265	
==>ontent_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!par <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5139	5265	
==>ontent_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!par <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	135	320	
==>t;

sub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4755	4857	
==>to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4755	4857	
==>to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4755	4857	
==>to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2194	2308	
==>rmtree($args->{dir}) };

    if($@) {
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3297	3401	
==>}

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule p <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3297	3401	
==>}

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10479	10576	
==>or, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multipl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10479	10576	
==>or, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multipl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	7	100	
==>age Pugs::Grammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
u <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24770	24903	
==>g .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result, "\n";
    my $txt = join "", @result;
    ($txt, $canon) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13335	13438	
==>* get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13335	13438	
==>* get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13335	13438	
==>* get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11275	11392	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'L <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11275	11392	
==>KT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'L <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9124	9222	
==>eciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!see <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9124	9222	
==>eciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!see <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47503	47644	
==>mbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9050	9154	
==>quire $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9050	9154	
==>quire $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5109	5211	
==>= compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@state <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6552	6658	
==>);

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asce <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6552	6658	
==>);

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asce <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6552	6658	
==>);

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asce <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	143	245	
==>ification grammar.
#   * RegularExpressionLiteral has been added to Literal.
#     Since we dont have a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6871	7019	
==>ameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6871	7019	
==>ameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3228	3362	
==>->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self, $label) = @_;
            exists ::opaq <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14509	14619	
==>fe {
    $code($obj);
    $obj;
}

# (Unspecced) facade class supplying localtime
class Time::Local {
    has I <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	365	512	
==>shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	849	996	
==>shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	265	410	
==>shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23841	23977	
==>0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13345	13473	
==>0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13345	13473	
==>0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13345	13473	
==>0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5762	5895	
==>'+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5762	5895	
==>'+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	311	421	
==>mbedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	311	421	
==>mbedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1206	1352	
==><" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @line <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1206	1352	
==><" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @line <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1919	2034	
==>ccent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1919	2034	
==>ccent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1168	1288	
==>perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # note: the list i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1518	1635	
==>perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1125	1242	
==>perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1518	1635	
==>perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1598	1733	
==>ring_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'lite <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1609	1744	
==>ring_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'lite <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16353	16474	
==>es )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19830	19951	
==>es )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        head <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28814	28921	
==>%TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Go <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28814	28921	
==>%TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Go <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	185	284	
==>%TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Go <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25369	25448	
==>set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13528	13667	
==>inal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9712	9851	
==>inal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10548	10687	
==>inal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4237	4338	
==>>isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5747	5855	
==>i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5747	5855	
==>i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5747	5855	
==>i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$j <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23377	23478	
==>ormalParameterList> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <SourceElem <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3202	3325	
==>de"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # smal <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3202	3325	
==>de"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # smal <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	820	914	
==>pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_pars <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	820	914	
==>pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_pars <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1007	1117	
==>l { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	974	1084	
==>l { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3262	3368	
==>]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3262	3368	
==>]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	705	802	
==>ds

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	705	802	
==>ds

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29668	29767	
==>ve
to add it explicity to the queue for it to ever be executed.  As such,
it would be pre-consumptiv <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2094	2248	
==>rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2341	2495	
==>rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1987	2135	
==>rn $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1765	1904	
==>rn $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1765	1904	
==>rn $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op- <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	878	984	
==>t $status = 0) is builtin is primitive {
    Perl6::Internals::exit $status;
}

sub Perl6::Internals::eval_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1453	1561	
==>ity>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1453	1561	
==>ity>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1768	1881	
==>s Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1768	1881	
==>s Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $c <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7167	7273	
==>$todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Fai <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7225	7331	
==>$todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Fai <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8905	9011	
==>ured ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14525	14617	
==>'%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14525	14617	
==>'%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14525	14617	
==>'%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8028	8132	
==>) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7158	7262	
==>) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8028	8132	
==>) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7158	7262	
==>) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1091	1264	
==>y($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1091	1264	
==>y($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1091	1264	
==>y($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identif <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1769	1873	
==>halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regex <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7950	8078	
==>e() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7950	8078	
==>e() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1038	1132	
==>::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1038	1132	
==>::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler:: <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5811	5928	
==>ope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1496	1591	
==>model_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1496	1591	
==>model_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1496	1591	
==>model_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3132	3258	
==>t::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3132	3258	
==>t::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3132	3258	
==>t::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9263	9379	
==>ue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9263	9379	
==>ue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9263	9379	
==>ue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	831	936	
==>erl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	831	936	
==>erl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	407	509	
==>ld not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	407	509	
==>ld not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6420	6541	
==>hr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6420	6541	
==>hr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2997	3104	
==>x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a si <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2997	3104	
==>x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a si <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1933	2041	
==>type, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1933	2041	
==>type, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Comp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37369	37463	
==>turning true if so and false if not.

=item C<load_template_module( $module_name! )>

This meth <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37369	37463	
==>turning true if so and false if not.

=item C<load_template_module( $module_name! )>

This meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11039	11149	
==>w(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11039	11149	
==>w(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11039	11149	
==>w(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new(' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5648	5737	
==>ammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub recom <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16538	16640	
==>thod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16538	16640	
==>thod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16538	16640	
==>thod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37107	37203	
==>ibute', (symbol->new('@:superclasses')    => attribute->new('@:superclasses'    => 'list')));
$:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7455	7568	
==>..
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7455	7568	
==>..
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7455	7568	
==>..
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1133	1241	
==>lumns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have trouble wit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10636	10765	
==>Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11868	11992	
==>private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11868	11992	
==>private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11868	11992	
==>private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1577	1677	
==>::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1577	1677	
==>::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2752	2848	
==>C<$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2752	2848	
==>C<$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	471	588	
==>"not implemented" };
sub inherit_grammar { die "not implemented" };

sub add_op {
    # name=>'*', precedence=>'>', ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	703	791	
==>Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	703	791	
==>Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	703	791	
==>Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prel <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2671	2769	
==>ode;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fiel <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2671	2769	
==>ode;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fiel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	832	920	
==>ept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	832	920	
==>ept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6288	6386	
==>fix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5418	5516	
==>fix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6288	6386	
==>fix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5418	5516	
==>fix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4872	4988	
==>, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    cl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4872	4988	
==>, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10499	10591	
==>ormed at all.  They validate everything except
well-formedness, such as that Rosetta::Model N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10499	10591	
==>ormed at all.  They validate everything except
well-formedness, such as that Rosetta::Model N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9462	9577	
==>lems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9462	9577	
==>lems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9462	9577	
==>lems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #wa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5854	5958	
==>{}
class Rul does Rule is builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
multi sub infix:<~~ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2075	2193	
==>or my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified depend <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3444	3558	
==>or my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified depend <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26373	26468	
==>ny time you create a modified version of Rosetta
that you are willing to distribute, because tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26373	26468	
==>ny time you create a modified version of Rosetta
that you are willing to distribute, because tha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1009	1101	
==>Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1009	1101	
==>Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2786	3047	
==>line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2786	3047	
==>line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3559	3670	
==>=> 'left',
    precedence => { tighter => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2524	2640	
==>IL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2524	2640	
==>IL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2524	2640	
==>IL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) { <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1064	1162	
==>e => 1)}";

=head1 DESCRIPTION

Newton's method is a simple method for finding roots, like square r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6589	6682	
==><start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_documen <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6589	6682	
==><start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_documen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17284	17375	
==>allbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_pr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17284	17375	
==>allbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_pr <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3388	3512	
==>%out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        retu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3388	3512	
==>%out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4826	4920	
==>e match object returns the numified version
of the result object (usually the entire match stri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4826	4920	
==>e match object returns the numified version
of the result object (usually the entire match stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6595	6737	
==>} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6595	6737	
==>} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6595	6737	
==>} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5944	6037	
==>object_repr_types.pod r8593.
# while (@array: --> List) { seems a preferable phrasing, it does <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1611	1718	
==>atomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw/Blondie::Unit Blondie::Node/;

    packag <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	599	722	
==>my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10414	10532	
==>\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10414	10532	
==>\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10414	10532	
==>\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7028	7193	
==>:isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op || <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7492	7657	
==>:isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op || <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9916	10080	
==>:isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op || <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1701	1853	
==>:isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1938	2047	
==>:/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1938	2047	
==>:/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1938	2047	
==>:/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18833	18931	
==>sh
definition.  While it is obvious that people who would be writing the text
would have to know ho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18833	18931	
==>sh
definition.  While it is obvious that people who would be writing the text
would have to know ho <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	88	181	
==>OTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { % <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	88	181	
==>OTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { % <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6309	6486	
==>&restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9786	9963	
==>&restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the rel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2563	2673	
==>ubrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2747	2857	
==>ubrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mod <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	373	489	
==>less [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1267	1371	
==>paque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1267	1371	
==>paque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1267	1371	
==>paque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7777	7888	
==>Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2074	2179	
==>Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2074	2179	
==>Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2074	2179	
==>Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1632	1743	
==>il} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1632	1743	
==>il} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1594	1690	
==>}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1594	1690	
==>}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7817	7952	
==>1),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7817	7952	
==>1),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      = <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3680	3797	
==>],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of o <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3680	3797	
==>],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1968	2100	
==>= $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1968	2100	
==>= $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1968	2100	
==>= $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance & <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10866	10979	
==>rs)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	622	735	
==>thod) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	622	735	
==>thod) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23070	23168	
==>ser.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in eng <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23070	23168	
==>ser.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in eng <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11833	11942	
==><tmpl_var name=timestamp></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6625	6729	
==>XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6625	6729	
==>XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6625	6729	
==>XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11888	12003	
==>runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test itself is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4958	5058	
==>$method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4958	5058	
==>$method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4958	5058	
==>$method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($met <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5027	5183	
==>elf, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub wr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4886	5042	
==>elf, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub wr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4135	4241	
==>(Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7612	7718	
==>(Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2521	2657	
==>lue;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multid <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2521	2657	
==>lue;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multid <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1965	2057	
==>}
    return $size;
}

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1965	2057	
==>}
    return $size;
}

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2187	2290	
==>substr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	615	699	
==>if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	615	699	
==>if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	615	699	
==>if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14132	14263	
==>essage.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $secon <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14132	14263	
==>essage.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $secon <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4666	4793	
==>b ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4520	4643	
==>b ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7303	7405	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10780	10882	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9917	10019	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $oth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	519	619	
==>->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant mus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11970	12098	
==>ell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11970	12098	
==>ell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11970	12098	
==>ell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	193	299	
==>pe::equivalence';

# need to load this here in 
# order for things to init 
# in the correct order
use Perl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21778	21885	
==>str, is used only in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        struct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5476	5572	
==>ck $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->contai <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5476	5572	
==>ck $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->contai <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6066	6162	
==>ck $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->contai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1282	1379	
==>'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1282	1379	
==>'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1282	1379	
==>'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5386	5510	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5386	5510	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5386	5510	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20314	20409	
==>@\%]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eval_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4260	4376	
==>nitialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 25 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4260	4376	
==>nitialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 25 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1280	1380	
==>sults along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The pr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1280	1380	
==>sults along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	270	385	
==>match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	270	385	
==>match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6936	7037	
==>blings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and array <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6936	7037	
==>blings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and array <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	557	677	
==>search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir ) <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	557	677	
==>search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir ) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7356	7467	
==>')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7356	7467	
==>')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	986	1086	
==>ounting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	986	1086	
==>ounting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	986	1086	
==>ounting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MO <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25562	25659	
==>o the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4473	4567	
==>ference, the match object returns the I<result>
object; this is normally the entire match strin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4473	4567	
==>ference, the match object returns the I<result>
object; this is normally the entire match strin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35527	35617	
==>C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40077	40167	
==>C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9094	9261	
==>\n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9929	10096	
==>\n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <? <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	636	734	
==>fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type kee <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	636	734	
==>fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type kee <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22497	22609	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23060	23172	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18918	19030	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19481	19593	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(? <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7440	7538	
==>sults in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store results in FILE [default: $Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	125	214	
==>se base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	125	214	
==>se base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	125	214	
==>se base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4826	4946	
==>h                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4826	4946	
==>h                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4826	4946	
==>h                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20040	20122	
==>(E0), case_insensitive_char_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3931	4139	
==>are messages
            else {
                #warn "compiling args for $t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4458	4557	
==>.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4458	4557	
==>.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4458	4557	
==>.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pug <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51598	51796	
==>ty'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get( <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	175	279	
==>ub import {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4939	5045	
==>, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4310	4415	
==>>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4310	4415	
==>>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4310	4415	
==>>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	511	609	
==>ference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	511	609	
==>ference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3083	3179	
==>ollowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=ite <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3083	3179	
==>ollowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11071	11226	
==>rred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11071	11226	
==>rred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11071	11226	
==>rred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	625	759	
==>empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12341	12454	
==>w(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12341	12454	
==>w(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12341	12454	
==>w(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1009	1111	
==>>name->to_native && 
           $left->type->to_native eq $right->type->to_native;
    return bit->new( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3056	3157	
==>d() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # wor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3056	3157	
==>d() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # wor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3260	3360	
==>nt<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.cur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3260	3360	
==>nt<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.cur <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3583	3695	
==>l { require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2152	2255	
==>],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ], <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2152	2255	
==>],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ], <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2152	2255	
==>],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20031	20128	
==>the compilers. It does so in a most specific to most general order.
So inner blocks get compiled f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20031	20128	
==>the compilers. It does so in a most specific to most general order.
So inner blocks get compiled f <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	288	382	
==>ub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	288	382	
==>ub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13594	13719	
==>ce;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13594	13719	
==>ce;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	763	860	
==>ort {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	763	860	
==>ort {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5303	5409	
==>digit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1603	1699	
==>$cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1603	1699	
==>$cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1603	1699	
==>$cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8341	8445	
==>gits>?
}
rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6127	6218	
==>s ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6127	6218	
==>s ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6127	6218	
==>s ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::r <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	625	741	
==>p_hook_on();
    }

    no strict 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19054	19153	
==>I SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19054	19153	
==>I SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19054	19153	
==>I SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Prim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16797	16979	
==>class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16797	16979	
==>class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16797	16979	
==>class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1131	1330	
==>uleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   ruleop::cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2568	2686	
==>, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2568	2686	
==>, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2568	2686	
==>, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1206	1322	
==>ing is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) retur <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1206	1322	
==>ing is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8721	8825	
==>ter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6251	6351	
==>ter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # a <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7379	7496	
==>Y_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7379	7496	
==>Y_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1531	1641	
==>y $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1531	1641	
==>y $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Co <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5605	5725	
==>lf->{prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10204	10318	
==>r do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10204	10318	
==>r do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10204	10318	
==>r do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11221	11361	
==>n->{op1}{op} eq '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1949	2073	
==>e header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5426	5550	
==>e header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4356	4480	
==>e header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1899	2017	
==>::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1899	2017	
==>::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1899	2017	
==>::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/util/package-osx.pl	1980	2069	
==>.6/runjs.pl
        /usr/local/lib/perl5/site_perl/Class/Rebless.pm /Library/Perl/5.8.6/Cl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1572	1716	
==>efined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4947	5045	
==>r my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4947	5045	
==>r my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5537	5635	
==>r my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2034	2147	
==>self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args). <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2034	2147	
==>self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args). <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1200	1310	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1258	1368	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14441	14552	
==>sub Pugs::Internals::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6591	6680	
==>js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6591	6680	
==>js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6591	6680	
==>js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1189	1289	
==>of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1189	1289	
==>of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1163	1260	
==>turn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1163	1260	
==>turn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6621	6721	
==>an class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6621	6721	
==>an class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32815	32908	
==>les.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37365	37458	
==>les.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12024	12119	
==>C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9145	9240	
==>C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12024	12119	
==>C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9145	9240	
==>C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22667	22777	
==>.local pmc exp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto words
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1337	1437	
==>t!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1337	1437	
==>t!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1337	1437	
==>t!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]-> <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2866	2957	
==>submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2866	2957	
==>submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13222	13312	
==>ed by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13222	13312	
==>ed by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2839	2975	
==>attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2839	2975	
==>attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2839	2975	
==>attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return u <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1962	2066	
==>->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env();

## -------------------------- <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1695	1796	
==>Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1695	1796	
==>Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5924	6013	
==>pos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Jos <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5924	6013	
==>pos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Jos <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6545	6655	
==>i sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode op <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5675	5785	
==>i sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode op <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6545	6655	
==>i sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode op <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5675	5785	
==>i sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8758	8864	
==>t;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8758	8864	
==>t;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8758	8864	
==>t;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53156	53250	
==>ew('Object'));
$::Package->send('name' => str->new('Package'));
$::Module->send('name'  => str- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4796	4955	
==>$x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4796	4955	
==>$x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closu <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6257	6379	
==>hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    f <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6257	6379	
==>hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35044	35138	
==>intersection> if the two source headings are
identical.  This method has an alias named C<match <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39594	39688	
==>intersection> if the two source headings are
identical.  This method has an alias named C<match <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39136	39230	
==>intersection> if the two source headings are
identical.  This method has an alias named C<match <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1211	1419	
==>loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1211	1419	
==>loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Roset <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8008	8144	
==>m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8008	8144	
==>m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2382	2505	
==>hod zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.tabl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2382	2505	
==>hod zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.tabl <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1807	1914	
==>ount returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1807	1914	
==>ount returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4808	4923	
==>turn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into cl <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4808	4923	
==>turn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into cl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13106	13200	
==>2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13106	13200	
==>2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Re <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	484	582	
==>wclass.does($role);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is w <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1694	1799	
==>teration)
    verbose - a boolean which will turn on per iteration printing
    
If you omit the fprime, a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27680	27775	
==>h value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32232	32327	
==>h value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31324	31419	
==>h value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1775	1889	
==>f->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1775	1889	
==>f->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1775	1889	
==>f->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19113	19212	
==>n't exist in a
regex outside of a character class, so I'm a little wary of making them
objects in th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2640	2747	
==><'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2640	2747	
==><'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	64	164	
==>0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	64	164	
==>0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8524	8673	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8717	8866	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&v <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3280	3374	
==>lue1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3280	3374	
==>lue1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6154	6273	
==>[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6154	6273	
==>[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6154	6273	
==>[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10448	10542	
==>urns list
    ((($self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_m <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	788	903	
==>$epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	788	903	
==>$epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36752	36848	
==>ber properties; if none
could be matched, this method returns undef.  This method could be
consid <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36752	36848	
==>ber properties; if none
could be matched, this method returns undef.  This method could be
consid <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2831	3069	
==>lse {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buff <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2831	3069	
==>lse {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buff <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1880	1989	
==>d1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Te <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1880	1989	
==>d1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Te <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5833	5926	
==>~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/1677 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5833	5926	
==>~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/1677 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3908	4021	
==>et!' unless _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write( $test- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3932	4023	
==>/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3932	4023	
==>/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3932	4023	
==>/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1451	1567	
==>ocal   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge";
my $parrot_path  = "../ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3326	3418	
==>e request are accessible through the HTTP::Query object that
is part of every HTTP::Request:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3326	3418	
==>e request are accessible through the HTTP::Query object that
is part of every HTTP::Request:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1660	1770	
==>ub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirect_typed_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4060	4167	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4060	4167	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4060	4167	
==>DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('is <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5443	5545	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4573	4675	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5443	5545	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4573	4675	
==>t $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1620	1763	
==>base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1620	1763	
==>base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $re <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	17	106	
==>uper simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05 <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	35	124	
==>uper simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23634	23775	
==>ture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23913	24054	
==>ture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11601	11723	
==>spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11601	11723	
==>spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28203	28298	
==>lemented.>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29214	29309	
==>lemented.>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32755	32850	
==>lemented.>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33766	33861	
==>lemented.>

This method is a generic relational operator that returns a new Relation
which is th <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2445	2546	
==>hift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	464	552	
==>::EigenClass = undef;

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	464	552	
==>::EigenClass = undef;

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	464	552	
==>::EigenClass = undef;

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5162	5300	
==>ition
          
              )){
    no strict;
if(main->can($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6539	6643	
==>\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6539	6643	
==>\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6539	6643	
==>\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3352	3486	
==>w_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3352	3486	
==>w_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3352	3486	
==>w_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7163	7262	
==>etacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2893	3037	
==>ontent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2893	3037	
==>ontent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	332	446	
==>of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodife <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	332	446	
==>of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodife <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15437	15527	
==>Wx,RW1).

re_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%------------- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	114	221	
==>ile (@jsfiles) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../pugs -I . -e \'use Grammar; if slurp(" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22189	22289	
==>n look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26741	26841	
==>n look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25446	25546	
==>n look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relatio <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10302	10397	
==>2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8195	8290	
==>2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10302	10397	
==>2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items
in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8195	8290	
==>2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of items in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11885	12019	
==>to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11885	12019	
==>to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7091	7193	
==>rload 

runtime. 



- internal rule operators



Internal rule operators share a common API, which per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6851	6948	
==>rload 
runtime. 

- internal rule operators

Internal rule operators share a common API, which per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1306	1398	
==>umn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1306	1398	
==>umn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1306	1398	
==>umn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7900	8009	
==>d(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7900	8009	
==>d(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7900	8009	
==>d(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1654	1756	
==>LIB}      = join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3756	3877	
==>shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3756	3877	
==>shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3756	3877	
==>shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone-> <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6036	6130	
==>when C<want> gets implemented. Currently, the headers
are returned as one long string.

=item L <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6036	6130	
==>when C<want> gets implemented. Currently, the headers
are returned as one long string.

=item L <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8769	8881	
==>@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	242	353	
==>@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15575	15670	
==>Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Co <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15575	15670	
==>Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	750	877	
==>'$.description' => $params{'$.description'},
                '$.passed'      =>      $params{'$.passed'},
                '$.rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7919	8022	
==>pilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, o <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7919	8022	
==>pilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26360	26455	
==>ng informed any time you create a modified version of Rosetta
that you are willing to distribute <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26360	26455	
==>ng informed any time you create a modified version of Rosetta
that you are willing to distribute <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13793	13911	
==>ub { $as_array_complain->("non_numeric") },
      scalar_numeric     => sub { $as_array_complain->("scalar_numeric") }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	764	857	
==>-----------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	764	857	
==>-----------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	764	857	
==>-----------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3393	3480	
==>ce_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4087	4174	
==>ce_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5295	5382	
==>ce_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3329	3465	
==>>($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self->{levels} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1171	1291	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1171	1291	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1171	1291	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20057	20193	
==>sh @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16478	16614	
==>sh @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3256	3357	
==>) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6733	6834	
==>) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	491	601	
==>nBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	495	605	
==>nBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	491	601	
==>nBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	495	605	
==>nBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_ <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1075	1279	
==>gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-lia <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1075	1279	
==>gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-lia <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	829	961	
==>..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	829	961	
==>..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8146	8278	
==>ocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8146	8278	
==>ocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSE <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12950	13047	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Documen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12950	13047	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Documen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37644	37752	
==>tialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37644	37752	
==>tialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37644	37752	
==>tialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1960	2079	
==>xt::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1882	1998	
==>xt::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	248	345	
==>is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	248	345	
==>is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1304	1406	
==>($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1304	1406	
==>($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1304	1406	
==>($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1960	2093	
==>.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		print "not ok \# Match failed.\n";
	    } else {
		print STDERR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2266	2389	
==>6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatche <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2266	2389	
==>6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatche <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2266	2389	
==>6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2696	2803	
==>r.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2696	2803	
==>r.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2696	2803	
==>r.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Interna <==
4	/Users/nnunley/pugs/util/testgraph.pl	497	595	
==>: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->new_with_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18722	18832	
==>($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15143	15253	
==>($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30481	30591	
==>($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->objec <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1072	1183	
==>d =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1072	1183	
==>d =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20289	20383	
==>pilation
is replaced by a single line containing the hexadecimal digest of the
result in double <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20289	20383	
==>pilation
is replaced by a single line containing the hexadecimal digest of the
result in double <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	199	326	
==>tim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    fo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	199	326	
==>tim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    fo <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	199	326	
==>tim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    fo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	199	326	
==>tim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9661	9811	
==>ilder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	243	387	
==>ilder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	243	387	
==>ilder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17630	17739	
==>{
        return defined $node ? String::Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3392	3513	
==>l);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be parano <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3392	3513	
==>l);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be parano <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3392	3513	
==>l);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be parano <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1766	1854	
==>ment'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11304	11425	
==>::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11583	11704	
==>::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11302	11400	
==>tyle Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11302	11400	
==>tyle Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
fi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1757	1862	
==>ap { str->new($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7983	8086	
==>refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7983	8086	
==>refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7983	8086	
==>refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33746	33893	
==>_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33746	33893	
==>_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33746	33893	
==>_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $a <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2075	2192	
==>($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	411	521	
==>ode $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	411	521	
==>ode $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	411	521	
==>ode $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18899	19022	
==>p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18899	19022	
==>p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18899	19022	
==>p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2546	2637	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2546	2637	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1759	1846	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3620	3707	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12773	12940	
==>ethod in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12767	12934	
==>ethod in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Run <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19582	19678	
==>C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectively a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19582	19678	
==>C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectively a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	653	786	
==>s( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end inter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	653	786	
==>s( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end inter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	742	834	
==>:File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filenam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	742	834	
==>:File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filenam <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	454	583	
==>t here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unles <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	454	583	
==>t here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unles <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1398	1489	
==>fetching is actually
just a shorthand for calling an accessor).

Run-time inheritance/method <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5954	6047	
==>O

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docum <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1150	1243	
==>O

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docum <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5954	6047	
==>O

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docum <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1150	1243	
==>O

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

docum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1138	1237	
==>_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1138	1237	
==>_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1138	1237	
==>_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to m <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27803	27899	
==>ur tests will be run by C<$^X>, the currently-executing Perl.
However, you may want to have it ru <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7707	7806	
==>x} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(anyof_char_comp => chr(hex $1), " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20292	20381	
==>ch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20292	20381	
==>ch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20292	20381	
==>ch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Per <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1240	1336	
==>oken("term:\\n", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("circumfix:[ ]" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	305	419	
==>ce->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	511	625	
==>ce->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20630	20725	
==>re private, so you must use accessor
methods.  Relation does not declare any subroutines or expo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25182	25277	
==>re private, so you must use accessor
methods.  Relation does not declare any subroutines or expo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27081	27182	
==>OO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_N <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27081	27182	
==>OO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_N <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	158	285	
==>ens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    forea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9247	9369	
==>lue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9247	9369	
==>lue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9247	9369	
==>lue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	111	230	
==>ox.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	111	230	
==>ox.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	111	230	
==>ox.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    d <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28185	28279	
==>l identifiers need to be resolvable";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher or <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	618	717	
==><$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	618	717	
==><$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16577	16755	
==>-> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20054	20232	
==>-> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19614	19792	
==>-> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4448	4559	
==>fig;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $self->{_top} <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1102	1212	
==>e}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11048	11135	
==>-------------------------------------------------

What if Roles could provide their own <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11048	11135	
==>-------------------------------------------------

What if Roles could provide their own <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11048	11135	
==>-------------------------------------------------

What if Roles could provide their own <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1991	2135	
==>se {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelud <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1498	1636	
==>mmar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1498	1636	
==>mmar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        " <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3339	3468	
==>ss ( @exts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	24	130	
==>uleInline;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6373	6472	
==>,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6373	6472	
==>,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6373	6472	
==>,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1098	1215	
==>();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1098	1215	
==>();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1098	1215	
==>();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var ne <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19410	19519	
==>ntExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableS <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5	274	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Con <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5	274	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Con <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5	274	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Con <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5	274	
==>r/bin/pugs
use v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Con <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	767	883	
==>$node->fmap(sub { $self->reduce($_[0]) });
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer - generic re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2132	2235	
==>." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2132	2235	
==>." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2132	2235	
==>." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30081	30194	
==>handle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1040	1146	
==>ed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1040	1146	
==>ed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1040	1146	
==>ed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # X <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1807	1939	
==>::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2012	2144	
==>::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2075	2207	
==>::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:na <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17173	17262	
==>\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Par <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1957	2076	
==>lar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17254	17346	
==>_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17254	17346	
==>_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17254	17346	
==>_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1818	1934	
==>n be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1818	1934	
==>n be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1818	1934	
==>n be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5317	5413	
==>name == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5317	5413	
==>name == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5317	5413	
==>name == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23278	23369	
==>hy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41202	41293	
==>hy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37228	37319	
==>hy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13269	13430	
==>=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4306	4408	
==>lass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4306	4408	
==>lass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4306	4408	
==>lass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18081	18207	
==>sual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14502	14628	
==>sual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3257	3378	
==>]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3245	3366	
==>]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9246	9356	
==>rams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9246	9356	
==>rams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9246	9356	
==>rams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $e <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2247	2352	
==>> 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23292	23424	
==>dler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19713	19845	
==>dler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9683	9795	
==>nal = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10519	10631	
==>nal = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_fi <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	738	881	
==>} }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8400	8515	
==>( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8400	8515	
==>( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLA <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	450	564	
==>} }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12725	12871	
==>atus{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed;
          return $status;
      } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3087	3225	
==>atus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    } <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3087	3225	
==>atus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6288	6373	
==>rule;})');
my $x4 = def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_control:<(\w+)> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1333	1460	
==>thod base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-L <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1333	1460	
==>thod base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-L <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2339	2459	
==>tate ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2479	2599	
==>tate ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Mat <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1391	1491	
==>c(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns Str is buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3953	4141	
==>class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3953	4141	
==>class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3953	4141	
==>class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7429	7529	
==>.

=back

These two approaches do an initial pass over the regex to make sure it
is well-formed -- an <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21091	21273	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&di <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44015	44180	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1362	1490	
==>$<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Funct <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1362	1490	
==>$<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Funct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6423	6526	
==>) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6423	6526	
==>) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6423	6526	
==>) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$. <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19129	19227	
==>hift(@array) };
multi shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

mul <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6356	6460	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5486	5590	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6356	6460	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5486	5590	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8277	8390	
==>->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE TH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8277	8390	
==>->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE TH <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8277	8390	
==>->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE TH <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	536	682	
==>th( $match );
    my $lex = sub {
        my $m;
        my $whitespace_before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCatego <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2653	2761	
==>pping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method ex <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6130	6238	
==>pping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method ex <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5060	5168	
==>pping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method ex <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2453	2579	
==>= $result->warnings();
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9867	9959	
==>);
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9867	9959	
==>);
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9867	9959	
==>);
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12338	12452	
==>p::carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9540	9653	
==>$pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9540	9653	
==>$pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9540	9653	
==>$pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8728	8829	
==>ace::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # De <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8728	8829	
==>ace::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # De <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22147	22243	
==>r permissions issue; simply order the files appropriately in the search
list.  The analogy is sim <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22147	22243	
==>r permissions issue; simply order the files appropriately in the search
list.  The analogy is sim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30311	30445	
==>}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30311	30445	
==>}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30311	30445	
==>}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar( <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	861	982	
==>bset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <= $^n <  2**'~$n~' };
   subset uint'~$n~' of ValueType wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3515	3640	
==>);
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3515	3640	
==>);
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3515	3640	
==>);
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	377	470	
==>es swi-prolog be
installed with non-default settings, and so is not intended for
"general" use <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19057	19171	
==>olen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20415	20529	
==>olen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	936	1041	
==>e = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	936	1041	
==>e = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	659	788	
==>ethod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	659	788	
==>ethod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	659	788	
==>ethod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_ <==
4	/Users/nnunley/pugs/util/testgraph.pl	23	122	
==>rnings;
use strict;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use T <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	310	474	
==>nt_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	310	474	
==>nt_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2306	2419	
==>s[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infini <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2306	2419	
==>s[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28404	28700	
==>$str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28404	28700	
==>$str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28404	28700	
==>$str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9293	9405	
==>@$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11608	11720	
==>@$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree-> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	21	118	
==>.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/ad <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	21	118	
==>.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/ad <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22985	23075	
==>s somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22985	23075	
==>s somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	282	399	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	282	399	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	282	399	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1072	1178	
==>ray is JSX::Value::Object;

class JSX::PropertyAttributes {
    has $.ReadOnly;
    has $.DontEnum;
    has <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2224	2322	
==>ts(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2224	2322	
==>ts(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2224	2322	
==>ts(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %has <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16274	16370	
==>lti Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C<chop>, only removes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1086	1185	
==>b statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1086	1185	
==>b statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1086	1185	
==>b statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $c <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	912	1015	
==>$self->{_top}{base};
}

sub is_extension_build {
    my $self = shift;
    not -e $self->base_path . "/l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21205	21304	
==>$xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21205	21304	
==>$xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21205	21304	
==>$xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1121	1224	
==>t{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $increment <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15028	15121	
==>w(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as t <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15028	15121	
==>w(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as t <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19337	19428	
==>ch_captures(E0,C0),
  % match_captures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9238	9346	
==>check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9238	9346	
==>check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9238	9346	
==>check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_st <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	8	89	
==>"inc/Module/Install/Fetch.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18094	18219	
==>aults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17132	17257	
==>aults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18094	18219	
==>aults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17132	17257	
==>aults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2115	2222	
==>er (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2115	2222	
==>er (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	685	780	
==><Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one pro <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	685	780	
==><Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6114	6240	
==>e as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6114	6240	
==>e as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6114	6240	
==>e as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attri <==
4	/Users/nnunley/pugs/util/package-osx.pl	182	294	
==>ng pugs and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12054	12173	
==>er::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12054	12173	
==>er::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12054	12173	
==>er::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30562	30676	
==>flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it i <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	380	493	
==>!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perl <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	380	493	
==>!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perl <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4958	5053	
==>ontrol or access to the header fields in the requests
sent and responses received, then you shou <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4958	5053	
==>ontrol or access to the header fields in the requests
sent and responses received, then you shou <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4890	5014	
==>1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy( from = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11680	11782	
==>});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11680	11782	
==>});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11680	11782	
==>});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    c <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7716	7821	
==>n.
multi Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2464	2586	
==>my $oper = pop(@$ops);
        my $nont = $oper->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20695	20811	
==>name"] = $I0
    
  setsubpats:
    cname = self["cname"]
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto setreps <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2435	2533	
==>tring: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2435	2533	
==>tring: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5586	5681	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$dep <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5644	5739	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$dep <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10466	10558	
==>d could potentially
never be performed at all.  They validate everything except
well-formedne <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10466	10558	
==>d could potentially
never be performed at all.  They validate everything except
well-formedne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2865	2965	
==>oto &{"$self->{name}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self->autoload;
    $self->preloa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23677	23803	
==>"xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11616	11729	
==>ned $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11616	11729	
==>ned $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11616	11729	
==>ned $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	90	194	
==>s Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $isLValue;    # not is copy
has Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21499	21595	
==>...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21499	21595	
==>...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21499	21595	
==>...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7227	7336	
==>($s =~ /HASH/) {
        for (values %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2398	2505	
==>me = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2398	2505	
==>me = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	241	336	
==>turns Object;
multi method delete (*@index ) returns List of Object;
multi method exists ($index <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14750	14848	
==>t with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!docu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14750	14848	
==>t with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!docu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14927	15018	
==>queue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueue <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14927	15018	
==>queue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueue <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32092	32196	
==>r_iterator(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8052	8145	
==>plement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8052	8145	
==>plement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8052	8145	
==>plement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5540	5658	
==>ne, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4670	4788	
==>ne, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5540	5658	
==>ne, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4670	4788	
==>ne, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13431	13600	
==>tlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13431	13600	
==>tlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13431	13600	
==>tlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2316	2485	
==>tlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23163	23278	
==>am => "f",
	body => fun(
		param => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8157	8254	
==>ut more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8157	8254	
==>ut more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8157	8254	
==>ut more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19883	20078	
==>,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20162	20357	
==>,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2292	2416	
==>now the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can ma <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2292	2416	
==>now the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7691	7822	
==>h}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# exp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7691	7822	
==>h}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# exp <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5997	6100	
==>_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5997	6100	
==>_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13646	13787	
==>$pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Che <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13646	13787	
==>$pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Che <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20353	20460	
==>return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20632	20739	
==>return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	428	554	
==>state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	660	783	
==>state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	406	529	
==>state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	660	783	
==>state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - th <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1049	1152	
==>f->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5354	5453	
==>ributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5354	5453	
==>ributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7551	7650	
==>ributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1611	1775	
==>::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1611	1775	
==>::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9606	9701	
==>flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentatio <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9664	9759	
==>flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	825	944	
==>e
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	825	944	
==>e
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	825	944	
==>e
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick r <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	340	427	
==>Language::Prolog::Yaswi, which requires swi-prolog be
installed with non-default setting <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9106	9206	
==>hans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9106	9206	
==>hans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $chan <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14291	14390	
==>t a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translato <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14291	14390	
==>t a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translato <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1628	1753	
==>ence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc => 'left' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2287	2393	
==>$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2287	2393	
==>$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2287	2393	
==>$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1849	2020	
==>egin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1849	2020	
==>egin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2671	2769	
==>ack/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this w <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2671	2769	
==>ack/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this w <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	966	1082	
==>ight) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1193	1309	
==>ight) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1420	1536	
==>ight) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1645	1761	
==>ight) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type" <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9673	9894	
==><**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3003	3110	
==>$connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3003	3110	
==>$connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %ha <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6666	6785	
==>mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldqu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6666	6785	
==>mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldqu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8425	8524	
==>e contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII ve <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8425	8524	
==>e contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII ve <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2467	2594	
==>iler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Grammar::Base';\n" .
            "us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	193	286	
==>eeded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	193	286	
==>eeded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	193	286	
==>eeded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PI <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2341	2442	
==>e original object they had
	# this lets us assign letters to them

	my @letters = split //, "αβγδ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5510	5603	
==>m> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5510	5603	
==>m> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7034	7127	
==>m> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9833	9944	
==>hecks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11310	11421	
==>hecks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	583	685	
==>n - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	583	685	
==>n - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16641	16758	
==>= @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13062	13179	
==>= @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1567	1671	
==>ule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1567	1671	
==>ule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7176	7289	
==>(<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for des <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1663	1768	
==>unction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1663	1768	
==>unction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1663	1768	
==>unction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Prox <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8369	8503	
==>vious }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8369	8503	
==>vious }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37826	37924	
==>ng).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37826	37924	
==>ng).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2844	2941	
==>ence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4713	4810	
==>ence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2844	2941	
==>ence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4713	4810	
==>ence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9442	9543	
==>inf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100',
		  '-inf' => '-100**100 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4835	4930	
==>le::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abov <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4835	4930	
==>le::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abov <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4835	4930	
==>le::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3370	3494	
==>t('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3370	3494	
==>t('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3370	3494	
==>t('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @super <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	649	768	
==>:Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3891	3999	
==>rity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3891	3999	
==>rity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3891	3999	
==>rity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23463	23557	
==>lly override these operators with versions that are more specific to
their own objects, for eff <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	829	952	
==>tion = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %p <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	571	694	
==>tion = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %p <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	829	952	
==>tion = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %p <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	571	694	
==>tion = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3537	3663	
==>def;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3537	3663	
==>def;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3537	3663	
==>def;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1278	1400	
==>Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18255	18370	
==>E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5055	5163	
==>:encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5055	5163	
==>:encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5055	5163	
==>:encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17243	17338	
==>=head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ab <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17243	17338	
==>=head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ab <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1233	1323	
==>cribes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pendin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1233	1323	
==>cribes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pendin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1006	1142	
==>if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1006	1142	
==>if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_blo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5258	5393	
==>~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5451	5586	
==>~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14556	14704	
==>{ 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14556	14704	
==>{ 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14556	14704	
==>{ 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7111	7236	
==>dler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv != NULL && SvTRUE(sv)) {
      fpr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8555	8739	
==>' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8555	8739	
==>' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4694	4817	
==>r {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4694	4817	
==>r {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5572	5681	
==>pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5572	5681	
==>pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5572	5681	
==>pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME ha <==
4	/Users/nnunley/pugs/util/run-smoke.pl	63	164	
==>se Config;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use Pu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2438	2551	
==>EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2438	2551	
==>EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3219	3331	
==>il_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1120	1227	
==>("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1120	1227	
==>("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1120	1227	
==>("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6680	6780	
==>",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seem <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38545	38657	
==>ranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12300	12400	
==>{ p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12300	12400	
==>{ p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12300	12400	
==>{ p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6922	7017	
==>.

C<$failed> should be empty if everything passed.

B<NOTE> Currently this function is still no <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10378	10488	
==>nt ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10378	10488	
==>nt ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3082	3184	
==>( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).so <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3082	3184	
==>( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).so <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8106	8258	
==>r($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13700	13852	
==>r($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8106	8258	
==>r($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13694	13846	
==>r($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   r <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7070	7171	
==>ibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gen <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7070	7171	
==>ibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	402	502	
==>my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	402	502	
==>my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4142	4310	
==>{
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4142	4310	
==>{
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4142	4310	
==>{
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dis <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1521	1612	
==>ESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10432	10560	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10432	10560	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1645	1737	
==>s_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_abs <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1645	1737	
==>s_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_abs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11719	11831	
==>->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    p <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1545	1655	
==>};

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int { <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1545	1655	
==>};

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9404	9511	
==>->[-2];
    return unless $prev->type eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data} };
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	396	515	
==>" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	396	515	
==>" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	396	515	
==>" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNo <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3295	3406	
==>ians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - spec a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5549	5654	
==>ck) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5549	5654	
==>ck) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18505	18602	
==>aavy
in the future, but for now it officially is not and you should not share
Rosetta objects betw <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18505	18602	
==>aavy
in the future, but for now it officially is not and you should not share
Rosetta objects betw <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5280	5386	
==>e compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAM <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5097	5197	
==>e compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAM <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6681	6780	
==>ent>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For eac <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6681	6780	
==>ent>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For eac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33956	34051	
==>es are,
in order, if preferred ones aren't supported by a program or its libraries.
When transla <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33956	34051	
==>es are,
in order, if preferred ones aren't supported by a program or its libraries.
When transla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4739	4832	
==>nifying " . $self->display_type($expected) . " with " . Data::Dumper::Dumper($node);
			$self- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2439	2537	
==>$child);
    }
    $self;
}

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2439	2537	
==>$child);
    }
    $self;
}

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14879	14974	
==>ry reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framew <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14879	14974	
==>ry reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framew <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3160	3267	
==>rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3160	3267	
==>rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<rest> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3743	3846	
==>rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3743	3846	
==>rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<rest> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9894	10036	
==>e state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = und <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9894	10036	
==>e state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = und <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14392	14496	
==>.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONS <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14392	14496	
==>.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	690	786	
==>Perl and C";
	shift()->cc_lib_links(@_);
}

sub optimize_flags {
	warn "optimize_flags has been c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2363	2454	
==>S::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2363	2454	
==>S::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2363	2454	
==>S::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	276	396	
==>ame) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

clas <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	276	396	
==>ame) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

clas <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23309	23408	
==>t data to be stored in a format other than Perl
files.  Or alternately they have a compiled C compon <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23309	23408	
==>t data to be stored in a format other than Perl
files.  Or alternately they have a compiled C compon <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10312	10442	
==>n;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail ou <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2345	2459	
==>n;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2345	2459	
==>n;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1965	2089	
==>i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1965	2089	
==>i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1965	2089	
==>i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	195	300	
==>yntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	195	300	
==>yntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule un <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37953	38048	
==>and
whose body contains all of the tuples that are in the invocant Relation::Example but
that ar <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6322	6436	
==>rror, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5395	5509	
==>rror, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6322	6436	
==>rror, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5395	5509	
==>rror, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	140	244	
==>unction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	140	244	
==>unction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	140	244	
==>unction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $typ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	420	518	
==>Perl and C";
	shift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed to cc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5313	5433	
==>should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't wo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5313	5433	
==>should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't wo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5313	5433	
==>should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't wo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2172	2264	
==>y/cameron/Teaching/383/regexp-plg.html
Without their work, I almost certainly would have punt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6251	6368	
==>_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6251	6368	
==>_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6251	6368	
==>_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3161	3273	
==>verse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9272	9411	
==>ammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10108	10247	
==>ammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8534	8660	
==>ith name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8534	8660	
==>ith name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2084	2242	
==>f ne 'Array' {
        dbg "  # -- unknown: <$tree>";
        return; 
    }
    if $tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	775	874	
==>gnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	775	874	
==>gnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1331	1430	
==>gnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4352	4462	
==>ement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4352	4462	
==>ement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	481	571	
==>tracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	481	571	
==>tracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4971	5147	
==>il => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4817	4988	
==>il => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tai <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3929	4034	
==>", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3987	4092	
==>", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10489	10614	
==>orks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10489	10614	
==>orks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10489	10614	
==>orks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8048	8154	
==>esults;
  
  method new ( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleton //= $Class. <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9273	9429	
==>ub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::po <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10264	10420	
==>ub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::po <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3133	3257	
==>ion - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a va <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3133	3257	
==>ion - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a va <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3383	3493	
==>specified, setting license = 'unknown'\n"
      unless $values{license};

    $values{license}           ||= 'u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23424	23522	
==>p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23424	23522	
==>p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23424	23522	
==>p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10290	10412	
==>RAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10284	10406	
==>RAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19062	19157	
==>ated with hard-coded program conditions.  In other words, this user
text is *part of the program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19062	19157	
==>ated with hard-coded program conditions.  In other words, this user
text is *part of the program <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3363	3478	
==>object(exact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2690	2785	
==>ndef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2690	2785	
==>ndef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2690	2785	
==>ndef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21752	21901	
==>et('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44659	44808	
==>et('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8160	8266	
==>_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8160	8266	
==>_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4592	4688	
==>p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4592	4688	
==>p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4592	4688	
==>p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3398	3508	
==>>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3398	3508	
==>>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3398	3508	
==>>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1013	1166	
==>) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1013	1166	
==>) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1013	1166	
==>) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
} <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21363	21455	
==>g(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8839	8959	
==>us set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $dif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8839	8959	
==>us set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $dif <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	561	659	
==>xt
  
This system is still relatively "functional" in flavor, however, it is
not pure since it uses <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10256	10424	
==>}
        return  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_bindin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	126	226	
==>formation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_G <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	126	226	
==>formation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_G <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	126	226	
==>formation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_G <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2036	2130	
==>text
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1348	1453	
==>ter 8 section 3.2

sub concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	270	361	
==>dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	270	361	
==>dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ci <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16197	16296	
==>ults =~ s/\n+$//;
    $results =~ s/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2797	2895	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2797	2895	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2797	2895	
==>ethod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18160	18247	
==>,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	563	664	
==>rams::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or error( $@ ), retur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6289	6385	
==>s overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6289	6385	
==>s overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8486	8582	
==>s overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2898	3022	
==>d_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2898	3022	
==>d_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1368	1469	
==>s Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1368	1469	
==>s Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13169	13311	
==>map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@k <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13169	13311	
==>map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@k <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16575	16672	
==>te; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16575	16672	
==>te; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18006	18089	
==>reate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(': <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21264	21347	
==>reate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(': <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41271	41354	
==>reate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(': <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44171	44254	
==>reate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(': <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18335	18451	
==>lf->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	37	128	
==>d sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	37	128	
==>d sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	37	128	
==>d sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1293	1392	
==>ew_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1293	1392	
==>ew_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1293	1392	
==>ew_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_ <==
4	/Users/nnunley/pugs/util/version_h.pl	2404	2501	
==>exit;
  }
} elsif ($revision) {
  print "Not writing $version_h because $old_revision == $revision <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	239	339	
==>defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_n <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	239	339	
==>defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_n <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	56	152	
==>ich will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
m <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	56	152	
==>ich will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5554	5654	
==>tection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5554	5654	
==>tection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5554	5654	
==>tection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $b <==
4	/Users/nnunley/pugs/util/grokprims.pl	1597	1697	
==>nd $arity==2) {
    $example = "(\$$a0 $name \$$a1) $name \$$a1";
  } elsif (/left-associative/ and $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	559	669	
==>(args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	559	669	
==>(args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	559	669	
==>(args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_c <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	365	468	
==>run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::SmokeBackends - 

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2406	2499	
==>_24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2406	2499	
==>_24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2406	2499	
==>_24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	817	946	
==>ub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) 
        unless blessed($right) && $right->isa('symbol');
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	725	849	
==>= \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	725	849	
==>= \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	725	849	
==>= \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.len <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1470	1578	
==>aram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $nam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1470	1578	
==>aram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $nam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1679	1787	
==>aram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $nam <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	745	842	
==>liary code in that
# language.
Has($?CLASS, "code", "Str");

# corresponding reverse attributes
#h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10052	10209	
==>t = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::ge <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6393	6550	
==>t = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::ge <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7242	7399	
==>t = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::ge <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	809	920	
==>with other Haskell programs, type '$Config{make} register'.
.
    }
    else {
        print << ".";
*** Install <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9508	9624	
==>ode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $dat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9508	9624	
==>ode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $dat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	74	168	
==>gs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	74	168	
==>gs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8482	8589	
==>my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8482	8589	
==>my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8482	8589	
==>my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	290	379	
==>ndie::TypeSafe::Annotator->new->annotate($runtime, $prog)
	);
}

{
	package Blondie::TypeS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2387	2527	
==>."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2387	2527	
==>."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2387	2527	
==>."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', <==
4	/Users/nnunley/pugs/util/package-osx.pl	394	508	
==>arrot/) {
    @files = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/pbc_merge
        /usr/local <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6662	6768	
==>l };

step
  descr  => "Checking for Pugs binary",
  help   => "Compile Pugs if you haven't done so already <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12991	13096	
==>MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12991	13096	
==>MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12991	13096	
==>MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1600	1712	
==>ake_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1600	1712	
==>ake_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1600	1712	
==>ake_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2678	2819	
==>msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7772	7913	
==>msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2678	2819	
==>msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7772	7913	
==>msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1443	1661	
==>n_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9275	9412	
==>art =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9275	9412	
==>art =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9275	9412	
==>art =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4870	4997	
==>ta)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15906	16033	
==>ta)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17394	17521	
==>ta)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22077	22204	
==>ta)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9590	9736	
==>bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        + <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4195	4309	
==>efined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4195	4309	
==>efined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4195	4309	
==>efined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8900	9000	
==>pan0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9286	9386	
==>pan0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8900	9000	
==>pan0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9286	9386	
==>pan0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2075	2218	
==>q "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2075	2218	
==>q "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3649	3742	
==>k 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Se <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3649	3742	
==>k 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2615	2735	
==>pression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2615	2735	
==>pression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2615	2735	
==>pression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2386	2485	
==>ced_struct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar::Util::blessed($node- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14470	14671	
==>( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14470	14671	
==>( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14470	14671	
==>( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11180	11313	
==>}
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11180	11313	
==>}
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10774	10868	
==>r>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The follow <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10774	10868	
==>r>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The follow <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11118	11257	
==>$ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1590	1715	
==>$ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1590	1715	
==>$ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2074	2191	
==>indBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename o <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2074	2191	
==>indBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33082	33179	
==>elements where
each element is a Template module Set Name.  When we have to translate a
message, t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33082	33179	
==>elements where
each element is a Template module Set Name.  When we have to translate a
message, t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2611	2713	
==>_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1223	1325	
==>_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1924	2026	
==>_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3016	3117	
==>compile($runtime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1427	1527	
==>ESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1427	1527	
==>ESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1427	1527	
==>ESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	475	593	
==>xists $params{'$.todo'};
            $params{'$.reason'}      = '' unless exists $params{'$.reason'};
            $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2549	2652	
==>ze {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'thi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2549	2652	
==>ze {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'thi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2896	2999	
==>ze {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'thi <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4282	4392	
==>ed/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4282	4392	
==>ed/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $ <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1247	1343	
==>hich are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1247	1343	
==>hich are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1262	1382	
==>ative type";            
    $self->[$index->to_native] = $value;
    return nil->new();
}

sub remove {
    my ($self, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24995	25089	
==>ng(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argume <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29547	29641	
==>ng(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argume <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28459	28553	
==>ng(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argume <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4950	5079	
==>onf = $self->config;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12614	12715	
==>nt $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12614	12715	
==>nt $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12614	12715	
==>nt $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3563	3689	
==>ox_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match obje <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3563	3689	
==>ox_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match obje <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1347	1433	
==>ion. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/E <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1187	1273	
==>ion. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13873	13982	
==>}
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1189	1298	
==>}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$self, %$othe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13873	13982	
==>}
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13873	13982	
==>}
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2555	2654	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

Thi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2555	2654	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

Thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1768	1861	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

Thi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3629	3722	
==>perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

Thi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4137	4329	
==>ld Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4137	4329	
==>ld Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33028	33230	
==>, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33028	33230	
==>, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33028	33230	
==>, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7590	7723	
==>safe   (Any, Int)\
\\n   List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10481	10586	
==>= shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1046	1142	
==>finds along the way into new
namespaces. This is typically useful when your object belongs to a
p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1046	1142	
==>finds along the way into new
namespaces. This is typically useful when your object belongs to a
p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1046	1142	
==>finds along the way into new
namespaces. This is typically useful when your object belongs to a
p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2148	2269	
==>"rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11016	11137	
==>"rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2341	2462	
==>"rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11295	11416	
==>"rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3529	3652	
==>e
    $/()  
        just the capture - what's returned in { return ... }
    $/0
        the first submatch
Alternate names <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3557	3669	
==>q 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3557	3669	
==>q 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3557	3669	
==>q 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	279	392	
==>)  }
sub to_bit { bit->new(0)  }
sub to_str { str->new('') }

sub is_nil     { bit->new(1) }
sub is_not_nil { bit- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10311	10419	
==>!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13788	13896	
==>!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13069	13177	
==>!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $ot <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	785	894	
==>h( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	785	894	
==>h( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16095	16185	
==>F0,B0,B0,E0,E0)     :-    rm(Re,F0,_,B0,_,E0,_).
rm(lookahead_not(Re),F0,F0,B0,B0,E0,E0) :- <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	912	1056	
==>n.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4151	4295	
==>n.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	912	1056	
==>n.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4151	4295	
==>n.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10565	10687	
==>_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11027	11149	
==>_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10559	10681	
==>_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11021	11143	
==>_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	512	633	
==>sh ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	506	627	
==>sh ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41242	41332	
==>arate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided fee <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41242	41332	
==>arate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided fee <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4154	4261	
==>tems);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4154	4261	
==>tems);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2763	2854	
==>--------------------
## inserting children

method insert_children ($self: Int $index, *@tre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2763	2854	
==>--------------------
## inserting children

method insert_children ($self: Int $index, *@tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12890	12987	
==>" . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12890	12987	
==>" . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12890	12987	
==>" . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => met <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8040	8134	
==>x->{_files} ? sort @{$index->{_files}} : ());
    my $template = HTML::Template->new(filename = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10077	10211	
==>ompile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                " <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2256	2362	
==>);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.si <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2256	2362	
==>);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.si <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12943	13037	
==>(Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take b <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13001	13095	
==>(Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13345	13438	
==>C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will rem <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13345	13438	
==>C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will rem <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22032	22125	
==>e C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22032	22125	
==>e C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

I <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1821	2108	
==>$v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1821	2108	
==>$v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13557	13656	
==>add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7765	7864	
==>add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
4	/Users/nnunley/pugs/util/importgraph.pl	2949	3037	
==>n";

#$g->as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g->as_ps("importg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7562	7717	
==>'$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7562	7717	
==>'$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7562	7717	
==>'$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            ' <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4769	4892	
==>ed: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39619	39736	
==>ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39619	39736	
==>ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39619	39736	
==>ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	557	659	
==>presents a Class.  It is what is created when you
declare a new class.

A class is a role with the enha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4635	4764	
==>';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4647	4776	
==>';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11296	11402	
==>ime;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11296	11402	
==>ime;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11674	11821	
==>abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5994	6132	
==>abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5994	6132	
==>abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	806	917	
==>r, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	806	917	
==>r, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	806	917	
==>r, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          / <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	722	828	
==>t) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14300	14480	
==>oxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14300	14480	
==>oxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14300	14480	
==>oxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, ' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3385	3508	
==>acc;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11623	11727	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11623	11727	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11623	11727	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1175	1264	
==>L<Blondie::Backend::Perl::Builtins> contains the builtin operations and values
that replac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9727	9832	
==>printf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9727	9832	
==>printf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9727	9832	
==>printf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7052	7152	
==>on_object',
   '... got the right return value from another Object singleton/class method');
   
is($ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6518	6648	
==>license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6575	6705	
==>license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4312	4421	
==>er('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1438	1547	
==>er('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1370	1468	
==>d) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1370	1468	
==>d) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1370	1468	
==>d) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$la <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1964	2107	
==>w_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $ne <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1964	2107	
==>w_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $ne <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24613	24707	
==>on (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later ver <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24613	24707	
==>on (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later ver <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6702	6820	
==>{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6702	6820	
==>{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11927	12045	
==>ing );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= & <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15404	15522	
==>ing );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= & <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14739	14857	
==>ing );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= & <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	817	916	
==>te $testdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8282	8385	
==>_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` =~ /v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	369	461	
==>LER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	369	461	
==>LER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	369	461	
==>LER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21572	21670	
==>low for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20453	20551	
==>low for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21572	21670	
==>low for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20453	20551	
==>low for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over

=i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7153	7273	
==>> \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    ### set the mode <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	327	440	
==>tr = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	327	440	
==>tr = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	327	440	
==>tr = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1985	2092	
==>tocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1985	2092	
==>tocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	567	665	
==>ad1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This no <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	567	665	
==>ad1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5544	5675	
==>ty) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5544	5675	
==>ty) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5544	5675	
==>ty) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    els <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5140	5253	
==>---------
## now begin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:s <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1022	1133	
==>rrent_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($curre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1022	1133	
==>rrent_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($curre <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	21	121	
==>Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	21	121	
==>Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %ev <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12242	12366	
==>arrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8393	8513	
==>SAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12306	12423	
==>SAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12306	12423	
==>SAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7074	7175	
==>all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7074	7175	
==>all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7074	7175	
==>all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2750	2856	
==>e == 1;
	$type;
}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{names}{$node->or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17296	17388	
==>ribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17296	17388	
==>ribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17296	17388	
==>ribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cla <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5825	5956	
==>ctory->in( $from ) ) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep dir struc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7121	7237	
==>e( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	422	538	
==>e( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowe <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9872	9968	
==><p>
    Here's a list of recently submitted <a
    href="http://www.pugscode.org/">Pugs</a> smoke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	427	545	
==>rint "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3309	3427	
==>AL::isa(shift(), 'JIB::Package') }; 
use constant ISA_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	524	642	
==>rint "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	207	309	
==>name(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($class, $source <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23778	23877	
==>OTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that aut <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22551	22650	
==>OTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23778	23877	
==>OTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22551	22650	
==>OTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that aut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13948	14091	
==>@a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13948	14091	
==>@a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13948	14091	
==>@a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2656	2799	
==>@a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4829	4948	
==>til::FilterNodeDefs::import(__PACKAGE__,'emit');
}
use strict;
use Perl6::Run::OnPerl5::X1::Api;

sub emit {
    my($pil <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23275	23367	
==>japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41199	41291	
==>japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37225	37317	
==>japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japh <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2174	2273	
==>able/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_ac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24660	24755	
==>mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29212	29307	
==>mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28097	28192	
==>mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	282	381	
==>n the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	282	381	
==>n the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	282	381	
==>n the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Objec <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14093	14183	
==>D1,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2799	2908	
==>lder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2799	2908	
==>lder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2879	2988	
==>lder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' ) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6616	6714	
==>t is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a ' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6616	6714	
==>t is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a ' <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6644	6915	
==>w('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	696	801	
==>hread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://ww <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	696	801	
==>hread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://ww <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	696	801	
==>hread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://ww <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	624	729	
==>$if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	624	729	
==>$if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	624	729	
==>$if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1275	1376	
==>our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	308	446	
==>ubrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	308	446	
==>ubrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # par <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13926	14033	
==>ave );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13926	14033	
==>ave );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3862	3972	
==>/title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3862	3972	
==>/title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3862	3972	
==>/title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1163	1262	
==>s not worth working to finish.  So, we
# bootstrap to something cleaner and simpler.  Even though it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16666	16767	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16666	16767	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16666	16767	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::C <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5443	5539	
==>L format in a (conjecturally)
well-defined location for latter runs of pugs to pick up and load q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11298	11451	
==>!= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11298	11451	
==>!= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11298	11451	
==>!= 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_ <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	349	443	
==>/\/~/)) window.open(href);
    }
}
</script>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3443	3566	
==>t_Int( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28348	28437	
==>its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32900	32989	
==>its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32028	32117	
==>its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17355	17445	
==>infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17355	17445	
==>infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17355	17445	
==>infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($x <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	359	447	
==>:shift<Array> := &Array::splice<Array>.assuming(:offset(0) :length(1));

 multi sub Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20182	20277	
==>clare that its result not be recompiled by
some other containing parser. In this case the result <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20182	20277	
==>clare that its result not be recompiled by
some other containing parser. In this case the result <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1050	1144	
==>y;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1050	1144	
==>y;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3357	3491	
==>ss->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3357	3491	
==>ss->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3357	3491	
==>ss->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4708	4809	
==>list - the core list type

=head1 METHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25339	25481	
==>ttr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get('$self:')->send( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13351	13449	
==>I SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13351	13449	
==>I SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13351	13449	
==>I SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI S <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1770	1896	
==>);
    $self->license_from($file);
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14731	14841	
==>ss.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14731	14841	
==>ss.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14731	14841	
==>ss.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        | <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1808	1954	
==>e  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1210	1320	
==>nt->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1210	1320	
==>nt->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1210	1320	
==>nt->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("i <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5141	5236	
==>MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::dec <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5141	5236	
==>MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::dec <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37108	37201	
==>ge() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $mod <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37108	37201	
==>ge() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2936	3029	
==>er its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $names <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2936	3029	
==>er its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $names <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2936	3029	
==>er its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $names <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4378	4469	
==>lob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{$category->($_)} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8316	8414	
==>->add_package(package => $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-style: b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2909	3002	
==>iang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2909	3002	
==>iang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3256	3349	
==>iang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights r <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17390	17526	
==>h->push_content($backlink);
                my $t = HTML::Element->new('sup');
                $t->push_content('T');
                $ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	734	852	
==>o much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	734	852	
==>o much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	734	852	
==>o much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	99	207	
==>t yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	99	207	
==>t yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	99	207	
==>t yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12387	12562	
==>) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12387	12562	
==>) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12387	12562	
==>) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31430	31530	
==>d assertions).  If
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether this objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18269	18376	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18269	18376	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18269	18376	
==>n each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2628	2744	
==>ber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '"" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2628	2744	
==>ber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '"" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2628	2744	
==>ber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '"" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3739	3844	
==>level App into

    ( Thunk(...), 10 )

At which point the App will put the 10 into the parameter stack an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	968	1063	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	998	1093	
==>table->addToken("term:\\S", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	968	1063	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	968	1063	
==>Name => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21868	22027	
==>,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("head" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4021	4113	
==>b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4021	4113	
==>b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4021	4113	
==>b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35591	35720	
==>ay->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35591	35720	
==>ay->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35591	35720	
==>ay->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negati <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14143	14244	
==>@{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1189	1311	
==>AN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1189	1311	
==>AN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1189	1311	
==>AN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLev <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32816	32913	
==>rap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  This method has not yet been imple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6353	6458	
==>6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6353	6458	
==>6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6353	6458	
==>6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int- <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7643	7740	
==>$self->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11921	12072	
==>)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11921	12072	
==>)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6684	6803	
==>212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6684	6803	
==>212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1142	1285	
==>f    = shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$struct ) {
        $str <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7055	7179	
==>return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7055	7179	
==>return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1627	1729	
==>turn if $Result1 ~~ JSX::false;
    if $O.property_value.exists($P) {
        $O.property_value($P) = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	702	800	
==>t should not backtrack or whatever



Continuations are used for backtracking.



A "ruleop" functi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10570	10668	
==>t should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" functi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	674	768	
==>t should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" functi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25270	25350	
==>,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2438	2623	
==>eturns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5915	6100	
==>eturns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4845	5030	
==>eturns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

met <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3134	3247	
==>, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Fail <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	591	698	
==>r( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	797	904	
==>r( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_ex <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1866	1969	
==>e.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    retur <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1866	1969	
==>e.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24974	25107	
==>G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21395	21528	
==>G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6106	6251	
==>= mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6106	6251	
==>= mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6106	6251	
==>= mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed pa <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15549	15670	
==>ngth($te));
    my $ml = "";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $Verbos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1399	1501	
==>port for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1399	1501	
==>port for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1399	1501	
==>port for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2071	2184	
==>od, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2071	2184	
==>od, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2071	2184	
==>od, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_metho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10325	10466	
==>autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10325	10466	
==>autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) { <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2334	2428	
==>1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Sim <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2334	2428	
==>1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Sim <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2285	2429	
==>, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub sp <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2285	2429	
==>, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	429	525	
==>((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	429	525	
==>((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1286	1383	
==>tive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1286	1383	
==>tive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1286	1383	
==>tive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14119	14215	
==>p://perl.plover.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h ./reg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5397	5499	
==>ructures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5397	5499	
==>ructures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	559	807	
==>dule Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	559	807	
==>dule Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	475	573	
==>pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	475	573	
==>pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	472	588	
==>ts positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	472	588	
==>ts positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one pa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14908	15003	
==>an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan curre <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14966	15061	
==>an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan curre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1540	1651	
==>t[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1540	1651	
==>t[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1540	1651	
==>t[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    pr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6379	6478	
==><< $total->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref of all the test script <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	645	769	
==>nd {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->new($label) 
        unle <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15366	15477	
==>= shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce_thu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5677	5776	
==>4

=head2 Writing for the API

Although the API seems large, most of it is implemented within the C< <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5677	5776	
==>4

=head2 Writing for the API

Although the API seems large, most of it is implemented within the C< <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12178	12302	
==>h!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6745	6869	
==>h!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12178	12302	
==>h!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6745	6869	
==>h!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6951	7067	
==>an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6951	7067	
==>an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6951	7067	
==>an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1616	1731	
==>icate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2012	2184	
==>\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	326	498	
==>\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2012	2184	
==>\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2012	2184	
==>\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12749	12899	
==>ted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12749	12899	
==>ted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12749	12899	
==>ted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UN <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9519	9639	
==>= @_;
  });


  ### '#'

  # I don't think I need to handle this because the
  # nextchar() method skips whitespace and c <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5977	6098	
==>3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $this_size;
        d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3612	3722	
==>te_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3612	3722	
==>te_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3612	3722	
==>te_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1338	1459	
==>e;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This mo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1338	1459	
==>e;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This mo <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7113	7215	
==>not permitting the removal of siblings 
# as I think in general it is a bad idea

## ------------------ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7113	7215	
==>not permitting the removal of siblings 
# as I think in general it is a bad idea

## ------------------ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10393	10488	
==>-> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(wor <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5953	6056	
==>t $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5083	5186	
==>t $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5953	6056	
==>t $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5083	5186	
==>t $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5055	5277	
==>art_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5055	5277	
==>art_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2410	2515	
==>start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($sel <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2410	2515	
==>start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9470	9604	
==>$child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9470	9604	
==>$child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	395	524	
==>plit('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $c <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	395	524	
==>plit('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $c <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2457	2579	
==>0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This s <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2457	2579	
==>0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15693	15810	
==>, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10549	10666	
==>, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4748	4855	
==>who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4748	4855	
==>who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	581	687	
==>.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	581	687	
==>.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14733	14855	
==>'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14733	14855	
==>'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14733	14855	
==>'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTO <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10549	10639	
==>default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $posEndCol <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8559	8681	
==>use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7528	7650	
==>use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8559	8681	
==>use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7528	7650	
==>use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	554	651	
==>------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	554	651	
==>------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	554	651	
==>------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2880	2980	
==>rnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2880	2980	
==>rnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2880	2980	
==>rnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	133	229	
==>=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" property
when inc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14216	14305	
==>@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14216	14305	
==>@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14216	14305	
==>@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24066	24155	
==>{
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'last'))";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8313	8398	
==>===============================================================

use FindBin;
use File <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8313	8398	
==>===============================================================

use FindBin;
use File <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8313	8398	
==>===============================================================

use FindBin;
use File <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2977	3093	
==>var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2977	3093	
==>var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2977	3093	
==>var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	61	158	
==>ne starting "data Param")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7941	8089	
==>everse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = revers <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7941	8089	
==>everse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = revers <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7941	8089	
==>everse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = revers <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38543	38674	
==>l
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signatur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6201	6357	
==>);
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6201	6357	
==>);
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6201	6357	
==>);
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1620	1754	
==>ce of integers, no Unicode)
    num         native floating point
    ref         native pointer 
    bool        native boolean
    Bi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	768	880	
==>AY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	768	880	
==>AY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3107	3206	
==>`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' fr <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3107	3206	
==>`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' fr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	892	993	
==>_END__

=pod

=head1 NAME

reference - the core reference type

=head1 METHODS

=over 4

=item B<new ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	137	237	
==>ct commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	137	237	
==>ct commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	137	237	
==>ct commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10917	11121	
==>self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11139	11255	
==>us => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11139	11255	
==>us => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11139	11255	
==>us => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1054	1175	
==>tring;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1054	1175	
==>tring;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1054	1175	
==>tring;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8703	8818	
==>ck for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8703	8818	
==>ck for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8703	8818	
==>ck for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($la <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21171	21283	
==>lf["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subpats = pad["subpats"]
    pad["subpats"] = 0
    pa <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2420	2546	
==>ck = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19410	19512	
==>e is a column, but it is not the same as a table.

The intended interface and use of this class in Perl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23962	24064	
==>e is a column, but it is not the same as a table.

The intended interface and use of this class in Perl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22478	22580	
==>e is a column, but it is not the same as a table.

The intended interface and use of this class in Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	272	393	
==>} : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	272	393	
==>} : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41029	41120	
==>rtin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41029	41120	
==>rtin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2545	2652	
==>h @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2545	2652	
==>h @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2545	2652	
==>h @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method do <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10221	10325	
==>] unless $_[0] =~ /->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2983	3183	
==>t->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2983	3183	
==>t->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2983	3183	
==>t->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return B <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3315	3401	
==>-> p5_quantified(W), p5_concatenation_more(W, Z), !.
p5_concatenation(noop) --> {true}. <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3429	3560	
==>Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	134	248	
==>allation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Lo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	139	252	
==>allation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Lo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	137	250	
==>allation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1472	1585	
==>elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1472	1585	
==>elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1472	1585	
==>elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_dis <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1620	1717	
==>scriber {
    use Set;
    has Set $.subscriptions handles :note_subscription<insert> :remove_subs <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12305	12470	
==>ody->push_content($rest);
      my $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => 'test_to <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2714	2865	
==>rbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    IV mat <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16732	16843	
==>2),F0,F1,B0,B1,E0,E1) :- rm(Re2,F0,F1,B0,B1,E0,E1).

rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23745	23840	
==>or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23745	23840	
==>or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4743	4889	
==>if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4743	4889	
==>if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3611	3713	
==>bove



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own lang <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3483	3581	
==>bove

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own lang <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12826	12972	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'op <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11505	11649	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'op <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15256	15400	
==>NV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'op <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2893	3002	
==>do))))
     ($method))

=cut

$::ENV->create('WALKMETH' => closure->new(
        $::ENV,
        closure::sign <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3578	3763	
==>> { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            }) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3578	3763	
==>> { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            }) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9701	9808	
==>($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %has <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9701	9808	
==>($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %has <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6704	6837	
==>ouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7168	7301	
==>ouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	305	425	
==>map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	305	425	
==>map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1373	1486	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1373	1486	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1373	1486	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $coun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3474	3564	
==>---------------------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3497	3587	
==>----------------------
## BOOTSTRAPPING COMPLETE
## --------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5376	5466	
==>---------------------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5399	5489	
==>----------------------
## BOOTSTRAPPING COMPLETE
## --------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	413	510	
==>m
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	413	510	
==>m
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	413	510	
==>m
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3154	3403	
==>a::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3154	3403	
==>a::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Ro <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8546	8641	
==>failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8604	8699	
==>failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7631	7830	
==>apture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7631	7830	
==>apture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2197	2329	
==>[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^valu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2197	2329	
==>[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^valu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4429	4533	
==>plitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4429	4533	
==>plitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13687	13783	
==>range of values.

You should consider using a Set::Infinite object if you want to exclude
large r <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13687	13783	
==>range of values.

You should consider using a Set::Infinite object if you want to exclude
large r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5965	6130	
==>( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $ind <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6429	6594	
==>( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24600	24699	
==>$S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21021	21120	
==>$S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37	286	
==>ackages used by packages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Consta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4089	4188	
==>setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fal <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4089	4188	
==>setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6286	6385	
==>setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fal <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2445	2575	
==>JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_val <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2445	2575	
==>JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_val <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2445	2575	
==>JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_val <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12101	12217	
==>end:
    if $S0 != ">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	592	752	
==>uired => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( erro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	32	129	
==>tion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	32	129	
==>tion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	32	129	
==>tion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	49	153	
==>mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7017	7121	
==>another mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index after <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	49	153	
==>mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	49	153	
==>mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	307	423	
==>$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	307	423	
==>$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	307	423	
==>$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14730	14858	
==>n for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14730	14858	
==>n for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1801	1909	
==>s);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1801	1909	
==>s);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly retur <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3892	3986	
==>r is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3892	3986	
==>r is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25619	25761	
==>@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $self:) returns list {
    @:subclasses;
} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20560	20655	
==>king methods on those objects.  All of
their class/object attributes are private, so you must us <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25112	25207	
==>king methods on those objects.  All of
their class/object attributes are private, so you must us <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23682	23777	
==>king methods on those objects.  All of
their class/object attributes are private, so you must us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3034	3139	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11903	12008	
==>ed $handler;
    $handler->($x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handlers =
    ( u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3034	3139	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3034	3139	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7780	7906	
==>le(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11781	11903	
==>le(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11781	11903	
==>le(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2044	2139	
==>$perl_version == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{IN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3498	3636	
==>ray
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3486	3624	
==>ray
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2513	2640	
==>',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2513	2640	
==>',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	959	1061	
==>ements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	959	1061	
==>ements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro defin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37421	37515	
==>emplate_module( $module_name! )>

This method takes the name of a Perl package in its positiona <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37421	37515	
==>emplate_module( $module_name! )>

This method takes the name of a Perl package in its positiona <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	351	454	
==>)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	9	97	
==>S::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	9	97	
==>S::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	9	97	
==>S::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6027	6126	
==>uments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_a <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6027	6126	
==>uments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30630	30726	
==>ltiple Messages but the whole module must represent a single
language.

The name of each Template <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30630	30726	
==>ltiple Messages but the whole module must represent a single
language.

The name of each Template <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5346	5458	
==>$self->{_revision} ||= "unknown";
    print "$rev_get_cmd returns revision '@{[$self->{_revision}]}'\n";
}

sub r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	454	612	
==>als) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	454	612	
==>als) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1349	1448	
==>urn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1349	1448	
==>urn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10638	10798	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10917	11077	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9380	9513	
==>-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" } <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9380	9513	
==>-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1477	1614	
==>clean out the builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1809	1920	
==>eturn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1809	1920	
==>eturn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1809	1920	
==>eturn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1426	1720	
==>raph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_mod <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1426	1720	
==>raph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_mod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17202	17362	
==>ammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17481	17641	
==>ammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35027	35122	
==>erates into an C<intersection> if the two source headings are
identical.  This method has an ali <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39577	39672	
==>erates into an C<intersection> if the two source headings are
identical.  This method has an ali <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39119	39214	
==>erates into an C<intersection> if the two source headings are
identical.  This method has an ali <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20877	20970	
==>ct;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the rig <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5440	5543	
==>going into an AST these are generated
# as the AST is left they are unified
# a free variable can be ins <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12206	12305	
==>r $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12206	12305	
==>r $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)! <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10006	10104	
==>DOWN($lhs),DOWN($rhs));
}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17387	17598	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23353	23564	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17666	17877	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23632	23843	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2245	2340	
==>utotags" will be too.

When activated, the special tag C<:all> will cause all tracing messages t <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2245	2340	
==>utotags" will be too.

When activated, the special tag C<:all> will cause all tracing messages t <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7066	7170	
==>) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7066	7170	
==>) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9266	9367	
==>is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9266	9367	
==>is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8404	8500	
==>c;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8404	8500	
==>c;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8404	8500	
==>c;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

o <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	116	208	
==>c;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1114	1213	
==>s::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = My <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1114	1213	
==>s::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = My <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8060	8192	
==>( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8060	8192	
==>( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8060	8192	
==>( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	77	187	
==>",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Gr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6067	6194	
==>pe"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6067	6194	
==>pe"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9027	9126	
==>h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9027	9126	
==>h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use H <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1442	1560	
==>ought to read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscriptions <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18816	18909	
==>drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17859	17952	
==>drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18816	18909	
==>drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17859	17952	
==>drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4459	4608	
==>count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4459	4608	
==>count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4459	4608	
==>count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9937	10064	
==>%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33723	33868	
==>( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33723	33868	
==>( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33723	33868	
==>( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13301	13396	
==>od product (Relation::Example $other!) returns Relation::Example {

    die "The relation in $ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1607	1709	
==>->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1607	1709	
==>->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1607	1709	
==>->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	328	419	
==>n;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1583	1705	
==>on' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11351	11445	
==>are used
because they will not get inherited. This provides more predictable 
behavior to class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11351	11445	
==>are used
because they will not get inherited. This provides more predictable 
behavior to class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11351	11445	
==>are used
because they will not get inherited. This provides more predictable 
behavior to class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12993	13120	
==>RAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12993	13120	
==>RAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12993	13120	
==>RAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	800	915	
==>ltins->cast(@_);
}

sub execute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	133	262	
==>inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method calls

    @baz[3]( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	113	206	
==>$class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	113	206	
==>$class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	113	206	
==>$class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3797	3896	
==>xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3797	3896	
==>xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3797	3896	
==>xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7358	7453	
==>handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previous_comp_hook(aT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1712	1864	
==>' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1712	1864	
==>' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1712	1864	
==>' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1539	1685	
==>en(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print "# Unpacking $exename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$E <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16209	16340	
==>ody.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19686	19817	
==>ody.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19219	19350	
==>ody.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $oth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	249	344	
==>se constant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir(shift() ) };
use constant SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10671	10776	
==>ap{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10671	10776	
==>ap{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10671	10776	
==>ap{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	263	358	
==>'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3173	3316	
==>block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3473	3611	
==>block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1831	1969	
==>block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2611	2749	
==>block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	906	1007	
==>e, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	906	1007	
==>e, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	906	1007	
==>e, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4291	4396	
==>"};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4291	4396	
==>"};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4291	4396	
==>"};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MUL <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26504	26599	
==>) (opaque $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclasses)) push ($subcl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10213	10318	
==>table array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10213	10318	
==>table array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10213	10318	
==>table array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky ma <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7413	7519	
==>results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "status"; $results{'exit <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7880	7980	
==>lse {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $child->type ],
				struct_equiv => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35776	35869	
==>akes
another Relation as its C<$other> argument and combines it with the
invocant relation int <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40326	40419	
==>akes
another Relation as its C<$other> argument and combines it with the
invocant relation int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	330	437	
==>ng been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	330	437	
==>ng been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	330	437	
==>ng been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25340	25420	
==>flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3537	3949	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3537	3949	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Roset <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29023	29206	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29302	29485	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1932	2064	
==>> number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1932	2064	
==>> number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10768	10865	
==>uire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Boo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10826	10923	
==>uire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	945	1079	
==>d_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10255	10356	
==>wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wit <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10255	10356	
==>wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wit <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10255	10356	
==>wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12856	13010	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12856	13010	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12856	13010	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ( <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1485	1603	
==>y @matches;
    for %x.kv->$key,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6757	6865	
==>sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $R <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7129	7237	
==>sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $R <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7428	7536	
==>sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $R <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2756	3057	
==>name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	693	817	
==>m A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <sub <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	693	817	
==>m A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <sub <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5627	5752	
==>"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(94 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5627	5752	
==>"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(94 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6553	6681	
==>rams"> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	836	932	
==>face.

Normally, they will be constructed as a series of events fired in by
something that C<.doe <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	836	932	
==>face.

Normally, they will be constructed as a series of events fired in by
something that C<.doe <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3120	3212	
==>t::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3178	3270	
==>t::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6827	6930	
==>a( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6827	6930	
==>a( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	773	870	
==>$_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	773	870	
==>$_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16094	16205	
==>N   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16094	16205	
==>N   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16094	16205	
==>N   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4956	5055	
==>$makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4984	5097	
==>$pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4984	5097	
==>$pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4984	5097	
==>$pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13458	13555	
==>'> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_required> <Me <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	699	802	
==>ay { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 A <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	699	802	
==>ay { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 A <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15701	15799	
==>ectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copy <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15701	15799	
==>ectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copy <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1071	1169	
==>n 1;
}

=pod

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdir> changes directory to a dir <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26992	27085	
==>as
the complement subset of the original's attributes to what C<project> would
return given th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31544	31637	
==>as
the complement subset of the original's attributes to what C<project> would
return given th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30600	30693	
==>as
the complement subset of the original's attributes to what C<project> would
return given th <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4277	4389	
==>urns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4277	4389	
==>urns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1420	1514	
==>'$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1560	1654	
==>'$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2719	2824	
==>"# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2719	2824	
==>"# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2719	2824	
==>"# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14286	14375	
==>har(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames ":full";unpack("U*" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1828	1930	
==>f.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1828	1930	
==>f.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1828	1930	
==>f.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	280	371	
==>1::Api::p6_initialize_package("main",'package');
    Perl6::Run::OnPerl5::X1::Prelude::initi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	456	548	
==>aders = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warnin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	456	548	
==>aders = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warnin <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	155	245	
==>clude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	155	245	
==>clude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6501	6605	
==>s Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5631	5735	
==>s Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6501	6605	
==>s Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5631	5735	
==>s Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17406	17612	
==>r(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23372	23578	
==>r(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17685	17891	
==>r(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23651	23857	
==>r(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9249	9372	
==>e::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9249	9372	
==>e::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9249	9372	
==>e::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15557	15677	
==>es with:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& */

M <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8856	8968	
==>channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more ele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8856	8968	
==>channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more ele <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16157	16254	
==>lf works, and will
not spend much time in providing rationales; you can read TTM itself and
variou <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16157	16254	
==>lf works, and will
not spend much time in providing rationales; you can read TTM itself and
variou <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4079	4256	
==>rray of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUIL <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4079	4256	
==>rray of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUIL <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16074	16172	
==>hese methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16074	16172	
==>hese methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1621	1738	
==>my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1621	1738	
==>my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1621	1738	
==>my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6577	6685	
==>lf->{next} = $env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=head1 NAME

closure - the core c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14894	15009	
==>?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14894	15009	
==>?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14894	15009	
==>?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3238	3353	
==>?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19120	19219	
==><^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19120	19219	
==><^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19120	19219	
==><^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4746	4842	
==>$p->id, '... not the same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	725	870	
==>okies)
    print CookiesHeader();
    if ($location.defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4281	4374	
==>_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4281	4374	
==>_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4281	4374	
==>_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::strin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2935	3075	
==>compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3152	3292	
==>compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FI <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5333	5425	
==>ecedence_parser($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	280	386	
==>Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	280	386	
==>Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3152	3251	
==>*@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersect <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3152	3251	
==>*@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersect <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	483	664	
==>{});
        },
        methods => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_st <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13141	13247	
==>s) = splitdir($path);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $lo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2398	2503	
==>));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2398	2503	
==>));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $o <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3346	3463	
==>z ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "uc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3346	3463	
==>z ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "uc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1921	2016	
==>)->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1921	2016	
==>)->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	621	751	
==>'' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	621	751	
==>'' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $gram <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9951	10053	
==>rt =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9951	10053	
==>rt =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4868	4992	
==>ment:  exp { return(\$_[0]->{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header} <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	446	546	
==>:Exp.  Maybe this needs to
# be an Array is shape() or another object or something like that.
type Sl <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2519	2618	
==>_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2519	2618	
==>_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1225	1356	
==>$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::RegexPerl5 - Compiler fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	198	297	
==>Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	198	297	
==>Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	198	297	
==>Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33088	33208	
==>lk {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3123	3237	
==>w_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3123	3237	
==>w_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3123	3237	
==>w_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4158	4291	
==>= 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4158	4291	
==>= 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4158	4291	
==>= 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1684	1807	
==>OLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	562	755	
==>}

	die "symbol $symbol could not be resolved in the last scope by $self. It may be defined in an upper scope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2604	2709	
==>$mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2604	2709	
==>$mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2604	2709	
==>$mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13937	14047	
==>l('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13937	14047	
==>l('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13937	14047	
==>l('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packag <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4668	4758	
==>->free_vars} $self->left, $self->right;
}

package type::operator::nary;
use base qw/type:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	112	256	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	112	256	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	112	256	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_s <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	840	979	
==>o hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	840	979	
==>o hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3973	4071	
==>ing::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a dat <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3973	4071	
==>ing::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a dat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19008	19104	
==>support a complete SQL emulation layer on top of it, so that your
legacy applications can be migr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19008	19104	
==>support a complete SQL emulation layer on top of it, so that your
legacy applications can be migr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2433	2528	
==>:PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhap <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2433	2528	
==>:PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhap <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1181	1286	
==>on, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Building dependencies.  Please wait. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2983	3082	
==>il {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2983	3082	
==>il {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2983	3082	
==>il {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	354	451	
==>od from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	354	451	
==>od from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6026	6151	
==>te it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6026	6151	
==>te it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6026	6151	
==>te it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25319	25399	
==>,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C,D <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1004	1113	
==>($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19248	19349	
==>n is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23800	23901	
==>n is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22316	22417	
==>n is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3046	3144	
==>k

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3046	3144	
==>k

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	484	598	
==>m::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	488	602	
==>m::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	484	598	
==>m::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	488	602	
==>m::TokenBucket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3396	3505	
==>less defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3396	3505	
==>less defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3396	3505	
==>less defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam}, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4654	4751	
==>ght y for p3d');
is($p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4525	4651	
==>s,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8002	8128	
==>s,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6995	7121	
==>s,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    ) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10128	10239	
==>),
	# list a -> bool
	'is_nil?' => type::operator::arrow->new(
		type::operator::nary->new(list => type::variabl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2539	2684	
==>$extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2444	2581	
==>$extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	652	745	
==>choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	652	745	
==>choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	550	650	
==>et_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	550	650	
==>et_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17290	17381	
==>ks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17290	17381	
==>ks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10684	10814	
==>_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10678	10808	
==>_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20153	20246	
==>at's important;
the interface/behaviour is), this Relation data type is proposed to be
general <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24705	24798	
==>at's important;
the interface/behaviour is), this Relation data type is proposed to be
general <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6425	6539	
==>f->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package name, assume case has be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2028	2124	
==>ub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2028	2124	
==>ub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2028	2124	
==>ub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5143	5264	
==>it->new(1);
    }
    return bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Sca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11395	11551	
==>h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11395	11551	
==>h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3097	3202	
==>me or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't writ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	138	236	
==>_;

__END__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=head1 SYNOPSIS

	use Blondie::Backend:: <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	698	848	
==>cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	698	848	
==>cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3217	3340	
==>ions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5265	5360	
==>k; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5265	5360	
==>k; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5265	5360	
==>k; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1108	1212	
==>.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1108	1212	
==>.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1108	1212	
==>.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1328	1446	
==>';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4214	4329	
==>$required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4214	4329	
==>$required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4214	4329	
==>$required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2830	2936	
==>wd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2830	2936	
==>wd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2830	2936	
==>wd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2695	2800	
==>d($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6513	6607	
==>f subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6513	6607	
==>f subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6513	6607	
==>f subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2019	2134	
==>r cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2019	2134	
==>r cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2019	2134	
==>r cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } el <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7332	7434	
==>est($x);
	}
    }
}
# signature from S29draft.pod 8655.  In the List section.
multi Array::grep (@value <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1498	1637	
==>"\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1498	1637	
==>"\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3816	3931	
==>$_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7293	7408	
==>$_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5373	5480	
==>lar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5373	5480	
==>lar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5373	5480	
==>lar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27347	27443	
==>r C<FLAG_$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_flag("u" = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6804	6961	
==>onfig;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12889	13041	
==>onfig;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29287	29381	
==>ew Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-value <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33839	33933	
==>ew Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-value <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24630	24731	
==>edin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23394	23495	
==>edin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24630	24731	
==>edin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23394	23495	
==>edin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	747	869	
==>sa('num'))
        || confess "Index must be a num type";
    my $val = $self->[$index->to_native];
    # NOTE:
    # if yo <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2365	2468	
==>$x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32640	32738	
==>nd the order of its arguments is not significant to the result;
the new Relation contains all the t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37190	37288	
==>nd the order of its arguments is not significant to the result;
the new Relation contains all the t <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4555	4675	
==>h($candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for target
            co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4932	5033	
==>ommand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4932	5033	
==>ommand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4932	5033	
==>ommand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2031	2189	
==>efix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTIN <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	866	973	
==>his node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ n <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	866	973	
==>his node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ n <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10537	10738	
==>d}++;
            } else {
                print "skipped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our ol <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	839	952	
==>ad1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::D <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	839	952	
==>ad1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::D <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11455	11553	
==>l; they do not
interact with the outside environment at all.

A Document object has 2 main attribut <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11455	11553	
==>l; they do not
interact with the outside environment at all.

A Document object has 2 main attribut <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	204	323	
==>def, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	204	323	
==>def, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            ( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5649	5741	
==>ee L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5649	5741	
==>ee L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1841	1995	
==>ch;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1829	1983	
==>ch;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quant <==
4	/Users/nnunley/pugs/util/combine_tests.pl	967	1118	
==>};
            for my $event (@{ $file->{events} }) {
                my $n = $event->{num};
                push @{ $sum{$fname}[$n] }, {%$event, revis <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	32	137	
==>erived from
#    ECMA-262, ECMAScript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7832	7970	
==>ar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   (List, Code)\
\\n   List      spre    prefix:[,] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1737	1844	
==>args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1737	1844	
==>args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1737	1844	
==>args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6667	6792	
==>return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6667	6792	
==>return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6667	6792	
==>return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CO <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4443	4542	
==>e => $pkg)

Adds a package to all necessary index files.

=cut

sub add_package_to_index { #TODO: co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2602	2705	
==>ix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2602	2705	
==>ix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2602	2705	
==>ix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3932	4064	
==>{
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        dbg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1018	1127	
==>> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1018	1127	
==>> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1018	1127	
==>> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11387	11503	
==>ct ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11387	11503	
==>ct ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11387	11503	
==>ct ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4978	5085	
==>extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensions};

    foreach my <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20542	20657	
==>md);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21366	21457	
==>$xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21366	21457	
==>$xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21366	21457	
==>$xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19203	19322	
==>A-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxP <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15624	15743	
==>A-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxP <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11374	11469	
==>tr>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11374	11469	
==>tr>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10447	10559	
==>-------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10447	10559	
==>-------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10447	10559	
==>-------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	189	286	
==>by
a purely functional prototype OO system written in Scheme, which can
be seen here:

  http://ok <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1767	1890	
==>oxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1767	1890	
==>oxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1767	1890	
==>oxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETC <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18188	18301	
==>ion::Example $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37136	37239	
==>t->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37136	37239	
==>t->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37136	37239	
==>t->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3730	3825	
==>ition >= $lastPosition;
 
  my $currentTermTable = $self->whitespaceTermTable();
  (substr $targ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1574	1708	
==>$1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1510	1640	
==>$1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16609	16708	
==>e maximum amount of control as
to what the user sees; it never outputs anything by itself to the use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16609	16708	
==>e maximum amount of control as
to what the user sees; it never outputs anything by itself to the use <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19086	19183	
==>gram conditions.  In other words, this user
text is *part of the program*, and not the program's u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19086	19183	
==>gram conditions.  In other words, this user
text is *part of the program*, and not the program's u <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18222	18375	
==>'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21481	21634	
==>'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41487	41640	
==>'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44388	44541	
==>'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	736	858	
==>n that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m->{bool} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1482	1585	
==>named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, pos <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1482	1585	
==>named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, pos <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1691	1794	
==>named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1923	2075	
==>Name};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1923	2075	
==>Name};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1923	2075	
==>Name};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1268	1367	
==>ead1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTION

B<STOP!> If all y <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13035	13131	
==>>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.interse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9759	9855	
==>>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.interse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13035	13131	
==>>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.interse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9759	9855	
==>>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.interse <==
4	/Users/nnunley/pugs/util/package-osx.pl	10319	10436	
==>dirs =~ s#/[^/]+$##;
    make_dir($dirs) unless (-d $dirs);
    
    open  REMOVER, '>', "$dest$files[-1]" or die "Can <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3910	4008	
==>setting the passed parameter to a true value. 

If this parameter is false, the factory returns a T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3910	4008	
==>setting the passed parameter to a true value. 

If this parameter is false, the factory returns a T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6107	6205	
==>setting the passed parameter to a true value. 

If this parameter is false, the factory returns a T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2805	2916	
==>);
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &su <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2805	2916	
==>);
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	133	233	
==>(Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	133	233	
==>(Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8126	8229	
==>y $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8126	8229	
==>y $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8126	8229	
==>y $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3288	3420	
==>}

    return $x_round;
}

our Int multi Num::round_random ( Num $x ) {
    my $x_round;
    state $rand_up = 1;

    # randomly roun <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4683	4805	
==>re => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Che <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5335	5457	
==>re => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Che <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10494	10605	
==>ort_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.results, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3619	3726	
==>T_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3619	3726	
==>T_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Lo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17079	17177	
==>ares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17079	17177	
==>ares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence o <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	601	713	
==>Switches;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	534	636	
==>elating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	534	636	
==>elating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	534	636	
==>elating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1680	1825	
==>mmar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1680	1825	
==>mmar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	720	821	
==>o);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetri <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	720	821	
==>o);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13677	13867	
==>$list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # give <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13677	13867	
==>$list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # give <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13677	13867	
==>$list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # give <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1920	2017	
==>k->new(Stub->new($_)) } @_ } # subs that do nothing but have distinct digests

my $env = Env->new( <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	377	485	
==>t($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13908	14008	
==>::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13908	14008	
==>::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13908	14008	
==>::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # X <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12255	12381	
==>oes Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2643	2761	
==>oes Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2643	2761	
==>oes Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9137	9325	
==>rap->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $results{bonus},
                    skipped <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4412	4518	
==>() {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4412	4518	
==>() {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4412	4518	
==>() {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8054	8150	
==>IL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8054	8150	
==>IL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8054	8150	
==>IL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default contai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16464	16585	
==>warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12885	13006	
==>warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	831	923	
==>RSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	831	923	
==>RSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This docum <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6952	7080	
==>postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6952	7080	
==>postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    prin <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4865	4988	
==>ren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self. <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4865	4988	
==>ren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	180	305	
==>_ == 1) {
	$n = shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $plan{tests} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1029	1136	
==>.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1029	1136	
==>.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1029	1136	
==>.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7714	7830	
==>},
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7714	7830	
==>},
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7714	7830	
==>},
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	28	134	
==>pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	28	129	
==>pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	58	158	
==>pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	58	158	
==>pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Co <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5944	6056	
==>ere, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5944	6056	
==>ere, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	794	902	
==>t_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to cr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	794	902	
==>t_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to cr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5226	5333	
==>sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4760	4854	
==>ective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4760	4854	
==>ective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4760	4854	
==>ective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1276	1407	
==>MOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1276	1407	
==>MOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	247	374	
==>RAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    el <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	247	374	
==>RAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20298	20407	
==>$label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20298	20407	
==>$label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20298	20407	
==>$label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5109	5217	
==>};
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $inst_pkg = JIB::Pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17358	17543	
==>ture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23324	23509	
==>ture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17637	17822	
==>ture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23603	23788	
==>ture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7416	7544	
==>ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7609	7737	
==>ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9570	9693	
==>msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9570	9693	
==>msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5525	5660	
==>ndir;

        ### load in the alternatives collection
        my @alts = @{ $self->registered_alternatives };
        
        ### chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20053	20142	
==>p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20053	20142	
==>p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20053	20142	
==>p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1551	1654	
==>ds are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1551	1654	
==>ds are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9944	10044	
==>if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9944	10044	
==>if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3286	3420	
==>ig{$func}->[1];
        return $sub 
            ? $sub->( $obj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21957	22068	
==>S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18378	18489	
==>S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9067	9163	
==>y $output_path   = inpath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11142	11275	
==>== 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11142	11275	
==>== 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11142	11275	
==>== 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7883	7988	
==>ll return false.

  if (! $parser->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6777	6892	
==>s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6777	6892	
==>s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6777	6892	
==>s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gr <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	897	1002	
==>CGI->param("upload")) {
  process_upload();
} else {
  process_list();
}

exit;

sub process_upload {
  pr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33697	33798	
==>(Relation $other!) returns Relation>

This method is a generic relational operator that takes a single <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34465	34566	
==>(Relation $other!) returns Relation>

This method is a generic relational operator that takes a single <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38247	38348	
==>(Relation $other!) returns Relation>

This method is a generic relational operator that takes a single <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39015	39116	
==>(Relation $other!) returns Relation>

This method is a generic relational operator that takes a single <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18169	18314	
==>lse {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14590	14735	
==>lse {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end o <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14104	14216	
==>o 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14104	14216	
==>o 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10614	10718	
==>thod emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.l <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10614	10718	
==>thod emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.l <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2385	2480	
==>head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2385	2480	
==>head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13998	14130	
==>');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13998	14130	
==>');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13998	14130	
==>');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	691	812	
==>>",
        '{ return { op => "infix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10195	10307	
==>:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

metho <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10195	10307	
==>:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4057	4165	
==>0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4057	4165	
==>0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns w <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	439	551	
==>n about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Serv <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	439	551	
==>n about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Serv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12791	12898	
==>erl {
    die "test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $run <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1230	1322	
==>ion  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\?? <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	128	242	
==>multi sub grep (Any|Junction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7008	7121	
==>== PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7008	7121	
==>== PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7008	7121	
==>== PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6805	6907	
==>e idea is that if I get to the end of the line and find no closing match, I should
ignore the opening o <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6805	6907	
==>e idea is that if I get to the end of the line and find no closing match, I should
ignore the opening o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1583	1680	
==>d_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1583	1680	
==>d_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4726	4890	
==>}
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4726	4890	
==>}
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1265	1371	
==>ub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1265	1371	
==>ub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11252	11392	
==>spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11252	11392	
==>spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	27	126	
==>:Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	27	126	
==>:Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %event <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	863	964	
==>sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	863	964	
==>sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :rat <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7068	7167	
==>re($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7126	7225	
==>re($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32225	32367	
==>her'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32880	33022	
==>her'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29433	29574	
==>her'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2366	2479	
==>package $<grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3353	3464	
==>$val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3353	3464	
==>$val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3353	3464	
==>$val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29733	29829	
==>s a new Relation::Example
which has a subset of the original's attributes; that subset is the sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3239	3344	
==>ro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3239	3344	
==>ro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3239	3344	
==>ro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8169	8271	
==>Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL2JS Array. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4138	4231	
==>_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4138	4231	
==>_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4138	4231	
==>_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.add <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8480	8612	
==>(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8480	8612	
==>(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	939	1059	
==>) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4417	4537	
==>) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; ea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6013	6139	
==>and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6013	6139	
==>and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6013	6139	
==>and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > B <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1847	1945	
==>xtract_delimited( "'" . $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6586	6706	
==>able }, $inst_pkg ] );
        
    $self->write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst->unregist <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35946	36044	
==>mon tuple values are aligned and merged.  The heading
of the new relation is the union of the invoc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40496	40594	
==>mon tuple values are aligned and merged.  The heading
of the new relation is the union of the invoc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40110	40208	
==>mon tuple values are aligned and merged.  The heading
of the new relation is the union of the invoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16762	16859	
==>ON

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16762	16859	
==>ON

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16762	16859	
==>ON

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7143	7259	
==>n
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $prog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7131	7247	
==>n
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $prog <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11702	11815	
==>tant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alph <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11696	11809	
==>tant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alph <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5028	5211	
==>el"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6790	6973	
==>el"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$metho <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30075	30169	
==>nd each
hash value contains the user-readable message text associated with the
Message; this us <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30075	30169	
==>nd each
hash value contains the user-readable message text associated with the
Message; this us <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5174	5307	
==>e->type;
			return $type if ref $new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22367	22481	
==>a[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22367	22481	
==>a[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22367	22481	
==>a[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23274	23451	
==>>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23274	23451	
==>>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23274	23451	
==>>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$met <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11701	11806	
==>Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::Ter <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1574	1689	
==>method BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.po <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1574	1689	
==>method BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.po <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1988	2099	
==>d   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, dens <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1988	2099	
==>d   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, dens <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3503	3689	
==>$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	605	703	
==>s(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	605	703	
==>s(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	605	703	
==>s(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9328	9500	
==>ot implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9328	9500	
==>ot implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq ' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	409	512	
==><-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	409	512	
==><-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the diffe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16740	16857	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16740	16857	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16740	16857	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6185	6293	
==>er_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z';
    return sub{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17671	17872	
==>ems : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17671	17872	
==>ems : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17671	17872	
==>ems : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21481	21577	
==>v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND($v);}


m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9196	9291	
==>NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9196	9291	
==>NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9196	9291	
==>NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4779	4949	
==>.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8256	8426	
==>.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7258	7428	
==>.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13661	13794	
==>bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln -fs $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2367	2479	
==>formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_onl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19485	19597	
==>$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2367	2479	
==>formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_onl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2714	2826	
==>formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_onl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3412	3607	
==>' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3412	3607	
==>' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3412	3607	
==>' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	948	1064	
==>it;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    rege <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7238	7349	
==>t(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	990	1101	
==>($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return nu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1217	1328	
==>($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return nu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1444	1555	
==>($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return nu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8769	8865	
==>>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3698	3794	
==>>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8769	8865	
==>>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3698	3794	
==>>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4622	4763	
==>do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 METHODS

=over 4

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2237	2401	
==>my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ") <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2237	2401	
==>my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ") <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2605	2713	
==>ES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDER <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2605	2713	
==>ES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15391	15493	
==>ems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15391	15493	
==>ems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15391	15493	
==>ems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3892	4001	
==>d1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3892	4001	
==>d1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3892	4001	
==>d1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root <==
4	/Users/nnunley/pugs/util/version_h.pl	2098	2197	
==>ion_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1929	2037	
==>method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9' <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1929	2037	
==>method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9' <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	460	560	
==>e", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	460	560	
==>e", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11494	11585	
==>ng metaclass singleton method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclas <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1736	1852	
==>thod clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1736	1852	
==>thod clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

m <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1055	1152	
==>ion will cause the module to shift across all byte values, not just the ones 
corresponding to let <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1055	1152	
==>ion will cause the module to shift across all byte values, not just the ones 
corresponding to let <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6442	6611	
==>DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6442	6611	
==>DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6442	6611	
==>DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6949	7076	
==>rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1213	1323	
==>object(exact => "\f", '\f');
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->fo <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11606	11735	
==>>Pugs&nbsp;<tmpl_var name=pugs_version></td>
            <td>
              <tmpl_if name=pugs_revision>
                r<tmpl_va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1023	1142	
==>ttr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1023	1142	
==>ttr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1023	1142	
==>ttr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10919	11064	
==>tch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7993	8129	
==>tch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7993	8129	
==>tch;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #prin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7507	7608	
==>al = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($name,$type,\@pams,$lval,$bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8518	8683	
==>l';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8518	8683	
==>l';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8518	8683	
==>l';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13644	13752	
==>lers =
    ( undef => sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as_array_complai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1963	2068	
==>lass->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1963	2068	
==>lass->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9559	9650	
==>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9559	9650	
==>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5825	5971	
==>eaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2351	2438	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2351	2438	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2351	2438	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8147	8260	
==>'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8340	8453	
==>'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2395	2487	
==>nerate_keystream> with a number of bytes and throwing the return value away.
Encryptions afte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2395	2487	
==>nerate_keystream> with a number of bytes and throwing the return value away.
Encryptions afte <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2059	2163	
==>re a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2059	2163	
==>re a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12521	12613	
==>turns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12521	12613	
==>turns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1860	1967	
==>} } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1860	1967	
==>} } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1860	1967	
==>} } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:lo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1029	1128	
==>[0] =~ / ^([\$|\@|\%]\*(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14010	14108	
==>once for each value.  The field name passed to the
callback routine has case as suggested by HTTP s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14010	14108	
==>once for each value.  The field name passed to the
callback routine has case as suggested by HTTP s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18270	18364	
==>es.

First, the source module is preprocessed to hide heredocs, since the content
inside heredo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18270	18364	
==>es.

First, the source module is preprocessed to hide heredocs, since the content
inside heredo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	381	490	
==>uires peeking in, might be a
    ### catch22 if we don't do it from repository metadata
    my $path = basenam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2406	2507	
==>eref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2406	2507	
==>eref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2406	2507	
==>eref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7058	7193	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7251	7386	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alt <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4574	4695	
==>lice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @bod <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4574	4695	
==>lice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @bod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	108	223	
==>$subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	108	223	
==>$subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	108	223	
==>$subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17141	17251	
==>f, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12034	12135	
==>h;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12034	12135	
==>h;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12034	12135	
==>h;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cur <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10580	10704	
==>l :$w, Bool :$rw,
            Bool :$a) returns IO is primitive is unsafe is builtin {
        die "fancy open modes not supp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7312	7418	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mult <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10789	10895	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mult <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9926	10032	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mult <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1257	1386	
==>( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unsh <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	817	946	
==>( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unsh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3383	3475	
==>, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4065	4157	
==>, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	374	473	
==>closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_clos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	374	473	
==>closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_clos <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1387	1485	
==>closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_clos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1387	1485	
==>closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_clos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2404	2502	
==>die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive { <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24100	24198	
==>are present to pass info from
 * compile to execute that permits the execute phase to run lots fast <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2404	2502	
==>die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2404	2502	
==>die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8966	9102	
==>s',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8962	9098	
==>s',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2407	2542	
==>s',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2407	2542	
==>s',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_ <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	628	728	
==>otal time: %.3f seconds (%.3f compilation, %.3f type checking, %.3f emission, %.3f binding, %.3f exec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10501	10624	
==>->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data} <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	74	185	
==>t {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    retu <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	74	185	
==>t {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    retu <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18952	19055	
==>s::Internals::substr($s,$offset,undef,$length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4462	4569	
==>ile_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4462	4569	
==>ile_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compil <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10993	11092	
==>(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10993	11092	
==>(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13903	14068	
==>nd $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2631	2788	
==>ry}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12876	12970	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Boo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12934	13028	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Boo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3117	3218	
==>ains the directories the resulting relative path
    # must ascend out of before it can descend to $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3117	3218	
==>ains the directories the resulting relative path
    # must ascend out of before it can descend to $pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39264	39356	
==>mple>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39264	39356	
==>mple>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2179	2443	
==>h->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2199	2329	
==>Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine call <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2199	2329	
==>Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine call <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2546	2676	
==>Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine call <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6183	6331	
==>sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5691	5839	
==>sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11470	11585	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11749	11864	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::g <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3460	3576	
==>t = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3460	3576	
==>t = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	360	455	
==>dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	360	455	
==>dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12910	13018	
==>PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12910	13018	
==>PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12910	13018	
==>PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15428	15527	
==>h of a string that would be matched by the regex; provides
a front-end method for the parser.

=item <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6584	6692	
==>o) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5714	5822	
==>o) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6584	6692	
==>o) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5714	5822	
==>o) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	388	550	
==>sh" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { ret <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	523	636	
==>w {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1433	1534	
==>ssert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1433	1534	
==>ssert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3813	3915	
==>sses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3813	3915	
==>sses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3813	3915	
==>sses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @ <==
4	/Users/nnunley/pugs/util/grokprims.pl	724	812	
==>=>$name, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8782	8923	
==>n "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8782	8923	
==>n "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7226	7320	
==>ve and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event is <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7226	7320	
==>ve and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1002	1104	
==>/html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Co <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1002	1104	
==>/html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10904	10998	
==>ns.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10904	10998	
==>ns.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16748	16842	
==>ead1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16748	16842	
==>ead1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16748	16842	
==>ead1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14779	14953	
==>op, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14779	14953	
==>op, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14779	14953	
==>op, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5082	5180	
==>nn\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1062	1182	
==>ion is first match (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1413	1531	
==>ion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1020	1138	
==>ion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1413	1531	
==>ion is first match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14690	14891	
==>s.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18167	18368	
==>s.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17583	17784	
==>s.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19247	19336	
==>Pos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % mat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12695	12838	
==>::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12695	12838	
==>::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2218	2325	
==>ug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2218	2325	
==>ug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6330	6432	
==>$$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6330	6432	
==>$$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6330	6432	
==>$$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28201	28295	
==>\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::swi_toplevel;

__END__
% :- use_module( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4522	4630	
==>}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3649	3757	
==>}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4522	4630	
==>}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3649	3757	
==>}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29227	29354	
==>my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29506	29633	
==>my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8419	8518	
==>this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8419	8518	
==>this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7128	7228	
==>ass Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTI <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7128	7228	
==>ass Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTI <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	277	368	
==>doc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc docume <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	277	368	
==>doc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc docume <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10609	10712	
==>rse_error(mob, pos, "Error in closure quantifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .lo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	462	699	
==>)
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	463	700	
==>)
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14258	14358	
==>k (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14316	14416	
==>k (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	229	339	
==>$.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	229	339	
==>$.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4325	4447	
==>on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4325	4447	
==>on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4836	4954	
==>on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4836	4954	
==>on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we dele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1553	1671	
==>_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1553	1671	
==>_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1553	1671	
==>_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6321	6400	
==>('bs_stmt_decl','\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1107	1213	
==>y $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1107	1213	
==>y $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1107	1213	
==>y $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	935	1029	
==>n("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\S", "ter <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12563	12676	
==>ub { $_[0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10636	10744	
==>6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10636	10744	
==>6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10636	10744	
==>6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _(' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13216	13393	
==>--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13216	13393	
==>--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12312	12477	
==>--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12312	12477	
==>--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3415	3521	
==>ieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3415	3521	
==>ieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3415	3521	
==>ieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25494	25597	
==>TEST :lvalue      { $_[0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21543	21647	
==>e are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20424	20528	
==>e are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21543	21647	
==>e are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20424	20528	
==>e are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1345	1471	
==>my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9652	9758	
==>_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbere <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9652	9758	
==>_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbere <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9652	9758	
==>_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbere <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2924	3032	
==>nst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) e <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2924	3032	
==>nst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6997	7100	
==>l to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6997	7100	
==>l to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	716	898	
==>context as a list
                my $self = shift;
                my $repl = shift;
                @{$self->get_value('@:slots')} = @$repl;
            },

            'array_fetch <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7177	7315	
==>ams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pSubType <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	329	446	
==>also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.conne <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	329	446	
==>also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.conne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21621	21744	
==>y $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21621	21744	
==>y $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21621	21744	
==>y $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3045	3158	
==>lan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3045	3158	
==>lan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4569	4682	
==>lan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Tes <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10845	10939	
==>= find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	519	617	
==>ty => $params->{fixity} || "listy",
    );
}

sub type { [ map { Blondie::TypeSafe::Type::Std->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	756	848	
==>-------------------------------------------
## Object

# The 'Object' class
$::Object = $::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	756	848	
==>-------------------------------------------
## Object

# The 'Object' class
$::Object = $::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	756	848	
==>-------------------------------------------
## Object

# The 'Object' class
$::Object = $::Cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	827	941	
==>.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { whil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	827	941	
==>.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { whil <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14732	14831	
==>this reason the function needs to be cloned (so it will stay generic when we leave the body of the f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	424	506	
==>:Package::Binary>, L<JIB::Package::Installed>, L<JIB::Package::Source>,
L<JIB::Repo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7054	7184	
==>$x;
			my @y = @$y;

			while (@x) {
				return unless $self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1351	1450	
==>'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1351	1450	
==>'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1351	1450	
==>'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5948	6083	
==>ribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5948	6083	
==>ribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5948	6083	
==>ribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6011	6191	
==>(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string'),
                Val->new("\n"),
            ),
        ),
    ),

    ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2464	2610	
==>ssion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2464	2610	
==>ssion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2464	2610	
==>ssion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compil <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	469	588	
==>segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$segil$name$space}";
#	
#    # digits
#    } els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	289	387	
==>lass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (thr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	289	387	
==>lass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (thr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	289	387	
==>lass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (thr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9762	9878	
==>---------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9762	9878	
==>---------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9762	9878	
==>---------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9606	9715	
==>1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9606	9715	
==>1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	873	985	
==>gs[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	873	985	
==>gs[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	873	985	
==>gs[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	380	474	
==>IB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Returns <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	235	336	
==>d
list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	235	336	
==>d
list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19966	20054	
==>ns.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implementa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19966	20054	
==>ns.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implementa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2867	2987	
==>.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2867	2987	
==>.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2867	2987	
==>.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3070	3240	
==>[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3070	3240	
==>[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3070	3240	
==>[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11069	11173	
==>in the tree.

=head2 Using the Regex

You can use the qr() method to get back a F<Regexp> object:

  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2465	2574	
==>successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2465	2574	
==>successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	683	776	
==>a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_pre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	683	776	
==>a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_pre <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4905	5050	
==>=Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4905	5050	
==>=Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27592	27731	
==>constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27871	28010	
==>constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9506	9697	
==>{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6251	6430	
==>ody->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6251	6430	
==>ody->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6251	6430	
==>ody->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14954	15105	
==>$__c__ = $_[0]; '.$embedded_code.'; @_=$noop; goto &$__c__}';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29582	29678	
==>[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>". <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29582	29678	
==>[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>". <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	390	482	
==>[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>". <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2919	3172	
==>s of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2919	3172	
==>s of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22465	22559	
==>ould return a code-key to indicate a
condition, often it will also provide some variable values <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22465	22559	
==>ould return a code-key to indicate a
condition, often it will also provide some variable values <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3644	3787	
==>se->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3644	3787	
==>se->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3644	3787	
==>se->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5387	5526	
==>stitution>
            { return { 
                    substitution => $/{'Pugs::Grammar::Term.substitution'}->(),
                    optio <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4910	5001	
==>ne.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4037	4128	
==>ne.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4910	5001	
==>ne.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4037	4128	
==>ne.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	945	1047	
==>eneric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	945	1047	
==>eneric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	945	1047	
==>eneric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PA <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36671	36758	
==>licated tuples.

=item C<exclusion (Relation::Example $other!) returns Relation::Example <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11797	11899	
==>$_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11791	11893	
==>$_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
} <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9480	9616	
==>ght;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9480	9616	
==>ght;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4860	4993	
==>tr($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4860	4993	
==>tr($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16231	16335	
==>x)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16231	16335	
==>x)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16231	16335	
==>x)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / l <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	396	496	
==>rsion of Pugs (6.0.10)
# and with very little knowledge of Perl 6. These five examples
# can be impro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2597	2706	
==>ier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2597	2706	
==>ier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1371	1460	
==>parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifie <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1371	1460	
==>parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifie <==
4	/Users/nnunley/pugs/util/package-osx.pl	4302	4400	
==>ocal/man/man3/Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	148	244	
==>sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	148	244	
==>sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	148	244	
==>sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9827	9938	
==>sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9827	9938	
==>sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9827	9938	
==>sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the metho <==
4	/Users/nnunley/pugs/util/combine_tests.pl	416	516	
==>ts[] with events to each event for which
# there are variations among the tests.
# A revision is adde <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4222	4325	
==>$_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4222	4325	
==>$_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19637	19731	
==>t> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref descr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19637	19731	
==>t> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref descr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1598	1772	
==>ontainer;
            },

            'array_fetchVal' => sub { # $idx -> $value
                my $self = shift;
                my $idx = shift;
                $self->arra <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17898	17991	
==>the originating server program handling the request.

=item $h.from

This header should contai <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17898	17991	
==>the originating server program handling the request.

=item $h.from

This header should contai <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2736	2828	
==>\S+ }

rule commit_something { <commit_rule> | <commit_alternation> | <commit_atom> }
rule co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8097	8209	
==>sts = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8097	8209	
==>sts = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	564	656	
==>thods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed L <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	564	656	
==>thods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed L <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10320	10422	
==>epth to which it will
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-dept <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9686	9786	
==>cial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9686	9786	
==>cial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9686	9786	
==>cial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentati <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	95	189	
==>eystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $dat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	95	189	
==>eystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $dat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19101	19191	
==>s I<not> happen automatically if using the header(),
push_header() or init_header() methods <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19101	19191	
==>s I<not> happen automatically if using the header(),
push_header() or init_header() methods <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4116	4270	
==>ort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4116	4270	
==>ort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1588	1710	
==>->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1793	1915	
==>->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::cre <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8629	8777	
==>method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$current", $e-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1788	1920	
==>e {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1788	1920	
==>e {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1788	1920	
==>e {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35642	35776	
==>) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35642	35776	
==>) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35642	35776	
==>) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop lengt <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5979	6082	
==>p this program by hitting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   => "Thi <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15678	15826	
==>ot image with info table
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5411	5503	
==>de "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5411	5503	
==>de "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5411	5503	
==>de "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf- <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3857	3973	
==>decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3857	3973	
==>decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5933	6037	
==>_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

met <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5933	6037	
==>_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

met <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5958	6057	
==>'$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>', ". <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37063	37156	
==>ation where a pair of source
relations have zero attributes in common, their joining degenerat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41612	41705	
==>ation where a pair of source
relations have zero attributes in common, their joining degenerat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41235	41328	
==>ation where a pair of source
relations have zero attributes in common, their joining degenerat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12350	12460	
==>$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13879	13986	
==>urce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fir <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17356	17463	
==>urce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fir <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16736	16843	
==>urce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fir <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	940	1050	
==>ub add {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The righ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1964	2066	
==>ur $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1964	2066	
==>ur $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1964	2066	
==>ur $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10405	10582	
==>print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10405	10582	
==>print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10405	10582	
==>print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	435	543	
==>d_requires requires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5193	5301	
==>$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6461	6569	
==>$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5193	5301	
==>$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6449	6557	
==>$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4826	4944	
==>a-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4826	4944	
==>a-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4826	4944	
==>a-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2858	2996	
==>e') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2858	2996	
==>e') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1230	1359	
==>>add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1352	1475	
==>-----+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3648	3771	
==>-----+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1352	1475	
==>-----+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3648	3771	
==>-----+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5546	5677	
==>) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5546	5677	
==>) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5546	5677	
==>) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	275	377	
==>he correct order
use Perl6::Core::Bit;

# comparisons

# implement this and get the rest for free
# NOT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21372	21469	
==>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21372	21469	
==>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21372	21469	
==>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#M <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1927	2022	
==>rse_closure);
    $optable->addToken("postfix:*", "<term:", "left", $parse_quant);
    $optable- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1241	1371	
==>outine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1287	1404	
==>) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1287	1404	
==>) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1287	1404	
==>) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6316	6417	
==>2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6316	6417	
==>2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6316	6417	
==>2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5133	5229	
==>s_abrupt_completion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Type Conversion <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4364	4506	
==>( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4504	4646	
==>( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2576	2671	
==>ool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2576	2671	
==>ool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21958	22063	
==>om>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20839	20944	
==>om>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21958	22063	
==>om>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20839	20944	
==>om>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24982	25078	
==>ll commands immediately to the server, but creates a queue, which is then
slowly sent to the serv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23746	23842	
==>ll commands immediately to the server, but creates a queue, which is then
slowly sent to the serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24982	25078	
==>ll commands immediately to the server, but creates a queue, which is then
slowly sent to the serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23746	23842	
==>ll commands immediately to the server, but creates a queue, which is then
slowly sent to the serv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12702	12812	
==>reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12702	12812	
==>reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12702	12812	
==>reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	297	424	
==>os,$cap); my $v;
      { local($X::str,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$po <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	169	288	
==>.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	169	288	
==>.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	169	288	
==>.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	876	986	
==>tes: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	876	986	
==>tes: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	876	986	
==>tes: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TOD <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2329	2429	
==>~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: JSX::String $P) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9834	9954	
==>s any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2866	2986	
==>s any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	113	203	
==>se Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	113	203	
==>se Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16030	16157	
==>y $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16030	16157	
==>y $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16030	16157	
==>y $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]) <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2205	2322	
==>in);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2001	2139	
==>f @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2001	2139	
==>f @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10937	11031	
==>y new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10937	11031	
==>y new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9602	9704	
==>e roles to be 'resolved'
    # -----------------------------------------------      
    method collect <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9602	9704	
==>e roles to be 'resolved'
    # -----------------------------------------------      
    method collect <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9602	9704	
==>e roles to be 'resolved'
    # -----------------------------------------------      
    method collect <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5710	5809	
==>my $chunk_size = POSIX::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child (1 .. $child_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5564	5668	
==>m   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler process <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5372	5473	
==>m   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler process <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1075	1185	
==>>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, den <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1075	1185	
==>>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, den <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19503	19591	
==>>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19503	19591	
==>>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3768	3884	
==>isted in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registere <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3768	3884	
==>isted in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registere <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4324	4430	
==>$::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $statu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5060	5166	
==>$::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $statu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8966	9107	
==>def, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8653	8790	
==>def, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    = <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2296	2413	
==>to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.d <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2296	2413	
==>to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.d <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2719	2946	
==>0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %event <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2719	2946	
==>0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %event <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4861	4959	
==>er, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4861	4959	
==>er, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15209	15317	
==>ext") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15209	15317	
==>ext") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcon <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1916	2022	
==>e::today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

meth <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1916	2022	
==>e::today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	507	621	
==>turn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	507	621	
==>turn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5118	5224	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5311	5417	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2749	2865	
==>0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2749	2865	
==>0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2749	2865	
==>0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4199	4295	
==>my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add_definition($node, "$type $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1834	2001	
==>>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::B <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14140	14269	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14419	14548	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33345	33441	
==>sh to override the user text of another library
which it uses, the Template module for the progra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33345	33441	
==>sh to override the user text of another library
which it uses, the Template module for the progra <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3496	3617	
==>5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ = <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1807	1927	
==>5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ = <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2344	2464	
==>5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ = <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2906	3026	
==>5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4621	4736	
==>f->error(RPe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9724	9826	
==>azy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9724	9826	
==>azy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9724	9826	
==>azy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        pus <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2461	2572	
==>g a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2461	2572	
==>g a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<serv <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2968	3196	
==>FL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8062	8290	
==>FL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2968	3196	
==>FL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8062	8290	
==>FL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4839	4960	
==>izer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4673	4789	
==>izer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compil <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2051	2153	
==>l) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2051	2153	
==>l) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5354	5468	
==>f->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5354	5468	
==>f->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5354	5468	
==>f->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	974	1076	
==>dir  Directory containing the perl6 design docs apo/exe/syn
    --no_designdocs Do not generate html fi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10559	10675	
==>y $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10559	10675	
==>y $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7774	7869	
==>orization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_ba <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7774	7869	
==>orization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_ba <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24672	24769	
==>essfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the mai <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23436	23533	
==>essfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the mai <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24672	24769	
==>essfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the mai <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23436	23533	
==>essfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	14	117	
==>l

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# Fro <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15416	15519	
==><AdditiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <Rel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	14	117	
==>l

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# Fro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	14	117	
==>l

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# Fro <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8892	8989	
==>Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may b <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3821	3918	
==>Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8892	8989	
==>Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3821	3918	
==>Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may b <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13796	13918	
==>pe;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = sh <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1276	1398	
==>pe;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15713	15806	
==>.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15713	15806	
==>.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a reque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7088	7194	
==>[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7088	7194	
==>[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7088	7194	
==>[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequot <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6759	6852	
==>my $error, '>', $error_file) or die "Failed to open $error_file: $!";
$template = HTML::Templa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	453	592	
==>e a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1224	1322	
==>2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1224	1322	
==>2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1224	1322	
==>2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14952	15075	
==>unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14952	15075	
==>unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14952	15075	
==>unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4565	4695	
==>ON;
    unless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     || <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2306	2435	
==>ON;

    unless ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     || <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	899	1039	
==>e) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	899	1039	
==>e) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	163	255	
==>ion
within that string, and it provides the fundamental operations on strings as
combinators. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	163	255	
==>ion
within that string, and it provides the fundamental operations on strings as
combinators. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5824	5928	
==>($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5824	5928	
==>($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5824	5928	
==>($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $na <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1363	1459	
==>-02-12
#  re_tests_perl5.t - driver from same.
#  re_tests_parrot.t - parrot's driver, same date. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6970	7103	
==>JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

=pod
    
    my @list <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11525	11641	
==>JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13050	13166	
==>JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12323	12431	
==>JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3186	3291	
==>, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3186	3291	
==>, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3186	3291	
==>, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30667	30762	
==>means it is
pre-consumptive, which is why it must match the right parenthesis
itself.  The handl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	477	594	
==>$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	961	1078	
==>$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8275	8390	
==>e F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this.
    retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	469	583	
==>calar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} if defined wantarray <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3758	3879	
==>ift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3758	3879	
==>ift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3758	3879	
==>ift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5421	5524	
==>if $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return new_box('Num',@_) if $cls eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24449	24549	
==>n N is a number
  package Regexp::Parser::groupp;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	427	525	
==>y
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	427	525	
==>y
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	427	525	
==>y
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4483	4605	
==>Compiler::Regex->compile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	267	375	
==>needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Read <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	267	375	
==>needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Read <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	267	375	
==>needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Read <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37428	37556	
==>$pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37428	37556	
==>$pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37428	37556	
==>$pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	314	428	
==>fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	15	131	
==>pp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	15	131	
==>pp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	15	131	
==>pp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self-> <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5957	6085	
==>}
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	887	978	
==>S::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	887	978	
==>S::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	887	978	
==>S::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	140	242	
==>nstalled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	140	242	
==>nstalled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	140	242	
==>nstalled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tre <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	140	242	
==>nstalled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tre <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2415	2509	
==>token{token1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $synca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3701	3831	
==>Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compile <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6959	7063	
==>,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColum <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6959	7063	
==>,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColum <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3858	3962	
==>,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColum <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	547	662	
==>ource filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	547	662	
==>ource filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12929	13022	
==>ess (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12929	13022	
==>ess (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17374	17477	
==>es = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5163	5261	
==>ject in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5163	5261	
==>ject in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5163	5261	
==>ject in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6769	6871	
==>die $@ if $@; }

package PIL::PIL1CPerl5::Util;
sub rebless_with_prefix {
    my($o,$prefix)=@_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3190	3286	
==>rimitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3190	3286	
==>rimitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3190	3286	
==>rimitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1821	1916	
==>$type = shift || $val->type;

	Blondie::TypeSafe::Annotation->new(
		type => $type,
		struct_equ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18043	18131	
==>"; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18043	18131	
==>"; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18043	18131	
==>"; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10062	10248	
==>arn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10062	10248	
==>arn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10062	10248	
==>arn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2343	2485	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27497	27639	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2536	2678	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27776	27918	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3144	3278	
==>es([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3144	3278	
==>es([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3144	3278	
==>es([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	280	438	
==>) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to install
        next unless $entry->{package} eq $package;

        ### an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7741	7875	
==>('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7741	7875	
==>('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7741	7875	
==>('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3893	4001	
==>ty;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3893	4001	
==>ty;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3893	4001	
==>ty;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	662	795	
==>>{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	662	795	
==>>{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	662	795	
==>>{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { s <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3738	3842	
==>estamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	242	349	
==>age Pugs::Runtime::Perl6::Scalar;

sub isa {
    my $self = $_[0];
    return 1 if $_[1] eq 'Str'  && define <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5783	5881	
==>on.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5783	5881	
==>on.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5783	5881	
==>on.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	21	124	
==>::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	21	124	
==>::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Dat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14504	14591	
==>em encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14504	14591	
==>em encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_c <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15916	16024	
==>trap->_is_bail_out($line, \$reason);

Checks if the line is a "Bail out!".  Places the reason for bailing
(if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4183	4289	
==>nd_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4183	4289	
==>nd_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4183	4289	
==>nd_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7272	7370	
==>.



There are 2 kinds of ruleop operators:



- higher order operators: alternation, concatenation <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19705	19799	
==>these headers.

=item $h.authorization_basic

This method is used to get or set an authorizatio <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19705	19799	
==>these headers.

=item $h.authorization_basic

This method is used to get or set an authorizatio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7026	7120	
==>.

There are 2 kinds of ruleop operators:

- higher order operators: alternation, concatenation <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15309	15427	
==>$sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a better want
    #if want ~~ rx:P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	796	896	
==>/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_contain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	796	896	
==>/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_contain <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	796	896	
==>/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_contain <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	786	889	
==>, @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export { <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	844	947	
==>, @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2090	2191	
==>ture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2090	2191	
==>ture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    * <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11744	11873	
==>op;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14592	14721	
==>op;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1291	1406	
==>ex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlau <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1291	1406	
==>ex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlau <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3600	3735	
==>l  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3456	3588	
==>l  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5892	6003	
==>hod unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5892	6003	
==>hod unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	436	549	
==>ct;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa "P6RulesInP5 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29058	29151	
==>tional operator that returns a new Relation::Example
which is the same as the invocant Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31906	31999	
==>tional operator that returns a new Relation::Example
which is the same as the invocant Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32953	33046	
==>tional operator that returns a new Relation::Example
which is the same as the invocant Relatio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1217	1325	
==>ta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1217	1325	
==>ta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3505	3607	
==>icode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3689	3791	
==>icode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8102	8255	
==>"Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8102	8255	
==>"Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8102	8255	
==>"Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12730	12833	
==>ody->push_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1148	1295	
==>(0 .. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evaluate($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3930	4050	
==>se $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3930	4050	
==>se $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3930	4050	
==>se $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	158	279	
==>::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	158	279	
==>::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	158	279	
==>::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5847	5959	
==>'ve found a GHC directory.  Find the latest
            # ghc inside that.  Sort versions from highest to lowest. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24575	24672	
==>.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23339	23436	
==>.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24575	24672	
==>.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23339	23436	
==>.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has succe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21777	21873	
==>eason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21777	21873	
==>eason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22959	23054	
==>eason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22959	23054	
==>eason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	568	683	
==>rn 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	568	683	
==>rn 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_con <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1536	1637	
==>e> as if it were code written in C<$lang>. C<Perl6> is the
    # only required language, but supportin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2024	2116	
==>ub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2024	2116	
==>ub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2024	2116	
==>ub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8281	8412	
==>s our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8281	8412	
==>s our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8281	8412	
==>s our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::C <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22044	22155	
==>s a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from or <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16946	17056	
==>s a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from or <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10652	10746	
==>ctions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This functio <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10710	10804	
==>ctions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This functio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	514	648	
==>};
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	514	648	
==>};
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	409	538	
==>~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	409	538	
==>~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23287	23387	
==>copied and pushed onto the stack.  When a scope is left, the
top value is popped and discarded.

It i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13734	13830	
==>p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13734	13830	
==>p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13734	13830	
==>p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3651	3802	
==>at &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4968	5119	
==>at &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3651	3802	
==>at &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4956	5107	
==>at &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12737	12885	
==>bel
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5730	5846	
==>d' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5730	5846	
==>d' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5730	5846	
==>d' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2555	2652	
==>bjects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2555	2652	
==>bjects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2555	2652	
==>bjects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self. <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28083	28175	
==>ok { t($flatten_polymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17877	17994	
==>fined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namesp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2831	2932	
==>ame if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2831	2932	
==>ame if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2831	2932	
==>ame if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8365	8470	
==>s for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # char <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8365	8470	
==>s for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # char <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	44	148	
==>6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

subme <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	44	148	
==>6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

subme <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1175	1291	
==>rs() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <n <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1175	1291	
==>rs() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2228	2340	
==>ed params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2368	2480	
==>ed params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	123	223	
==>rnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type::equivalence';

# need to lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13175	13273	
==>LTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13175	13273	
==>LTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13175	13273	
==>LTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	598	715	
==>ession
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub reduce (Code $expression ; *@v <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2109	2268	
==>d           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2109	2268	
==>d           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1207	1317	
==>g<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1207	1317	
==>g<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1881	2013	
==>urn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1881	2013	
==>urn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1881	2013	
==>urn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28419	28518	
==>this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	788	889	
==>t.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal out <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	788	889	
==>t.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1344	1445	
==>t.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal out <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17016	17116	
==>xpressionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn>
    | <BitwiseANDExpressionNoIn> < <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3489	3618	
==>= $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3489	3618	
==>= $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> R <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	206	305	
==>7.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     re <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	206	305	
==>7.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	952	1068	
==>air";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1039	1127	
==>one without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1039	1127	
==>one without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1039	1127	
==>one without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17381	17508	
==>(${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13802	13929	
==>(${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	39014	39110	
==>u can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43828	43924	
==>u can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGE <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19891	20025	
==>{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2489	2595	
==>ss_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2489	2595	
==>ss_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2489	2595	
==>ss_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	261	382	
==>er::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3997	4096	
==>item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you' <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3997	4096	
==>item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4077	4176	
==>item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2553	2661	
==>$code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2553	2661	
==>$code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2553	2661	
==>$code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5494	5597	
==>p( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2075	2175	
==>TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2075	2175	
==>TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2075	2175	
==>TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is a <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	3	100	
==>le NameSpace--Perl6;

has Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7994	8151	
==>fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7994	8151	
==>fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7994	8151	
==>fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $ <==
4	/Users/nnunley/pugs/util/testgraph.pl	1762	1882	
==>t;
    use base qw/Test::TAP::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7949	8093	
==>> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7949	8093	
==>> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7949	8093	
==>> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9015	9121	
==>join $self->raw, map join("", map $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self = shif <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35661	35754	
==>e>

This multi-method is a generic binary relational operator that takes a single
Relation::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	817	905	
==>infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	817	905	
==>infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	817	905	
==>infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4123	4237	
==>f);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4123	4237	
==>f);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4123	4237	
==>f);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	2	93	
==>ine 1 "inc/Module/Install/Include.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/I <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4851	5011	
==>o install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alter <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4091	4227	
==>o install dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alter <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38946	39041	
==>Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43760	43855	
==>Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1537	1679	
==>o_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7837	7977	
==>ncrement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7837	7977	
==>ncrement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7837	7977	
==>ncrement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1588	1695	
==>= $self->params;

    # the body is a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21494	21591	
==>x1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21494	21591	
==>x1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21494	21591	
==>x1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28237	28360	
==>return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28516	28639	
==>return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	836	956	
==>FALSE|off|Off|OFF)/;
            $val = undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33882	33981	
==>out its '\&' regex assertion.  It's an "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> mea <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2735	2851	
==>);
    $optable->addToken("close:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    , <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	576	684	
==>b as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	576	684	
==>b as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	576	684	
==>b as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7865	8002	
==>) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13459	13596	
==>) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7865	8002	
==>) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13453	13590	
==>) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26498	26593	
==>$self:) (opaque $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclasses)) push ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	624	747	
==>$pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	624	747	
==>$pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3340	3441	
==>rgs);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX - <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3340	3441	
==>rgs);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX - <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1141	1415	
==>fer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1141	1415	
==>fer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	347	467	
==>de);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    go <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	347	467	
==>de);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    go <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	832	969	
==>}
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1633	1716	
==>makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_P <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3594	3677	
==>makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_P <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1633	1716	
==>makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33770	33897	
==>IVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33770	33897	
==>IVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33770	33897	
==>IVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45304	45400	
==>('$:name')      => attribute->new('$:name'      => 'str')));
$::Package->send('add_attribute', (s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	975	1088	
==>int "not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok  \# E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1188	1282	
==>$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1188	1282	
==>$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1188	1282	
==>$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5107	5346	
==>indir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for thes <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4319	4522	
==>indir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for thes <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4043	4133	
==>.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4043	4133	
==>.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	917	1014	
==>Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	917	1014	
==>Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	917	1014	
==>Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10053	10230	
==>, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10053	10230	
==>, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1189	1367	
==>es for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SEL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1189	1367	
==>es for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SEL <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	835	949	
==>connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	835	949	
==>connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16600	16711	
==>< 1;
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_p6obj_handlers{$reftyp};
    die "bug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8603	8705	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8603	8705	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8603	8705	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17707	17812	
==>"PGE::Rule"
    $P1 = subclass $P0, grammar 
  end:
    .return (sub, code, exp)
.end

.namespace [ "PGE:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6058	6157	
==>ip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6058	6157	
==>ip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6058	6157	
==>ip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10774	10933	
==>er code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7115	7274	
==>er code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7964	8123	
==>er code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3473	3592	
==>even if there is another
        match inside the closure
    $/()  
        just the capture - what's returned in { ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3918	4029	
==>return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3918	4029	
==>return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3918	4029	
==>return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18461	18551	
==>n (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18657	18747	
==>n (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18871	18961	
==>n (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19073	19163	
==>n (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22728	22830	
==>) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22728	22830	
==>) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22728	22830	
==>) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20622	20735	
==>) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	146	258	
==>se Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	146	258	
==>se Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	146	258	
==>se Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenize <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17536	17698	
==>ody.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21013	21175	
==>ody.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20600	20762	
==>ody.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21188	21431	
==>Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21188	21431	
==>Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21188	21431	
==>Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @pa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7693	7791	
==>JSX::Value::Array;
submethod BUILD {
    $.property_attributes{'length'} =
        JSX::PropertyAtt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13246	13403	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27360	27517	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13525	13682	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27639	27796	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1482	1580	
==>B $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6767	6865	
==>NODE PPos ($pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1482	1580	
==>B $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1482	1580	
==>B $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	500	606	
==>=> App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2703	2797	
==>f(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2703	2797	
==>f(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2703	2797	
==>f(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, r <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	244	352	
==>parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    h <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	244	352	
==>parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	471	579	
==>c
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	482	590	
==>c
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10936	11101	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10936	11101	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10936	11101	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	788	906	
==>$:expect') . " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3744	3866	
==>es

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3744	3866	
==>es

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3744	3866	
==>es

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3185	3297	
==>> Blondie::TypeSafe::Type::Std->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub gues <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	643	746	
==>rns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reim <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	643	746	
==>rns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reim <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	643	746	
==>rns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reim <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6491	6612	
==>or abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3393	3490	
==>List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3393	3490	
==>List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3393	3490	
==>List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8975	9072	
==>on::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9773	9870	
==>on::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10682	10779	
==>on::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11508	11605	
==>on::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11382	11596	
==>eturn sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	99	227	
==>ass_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	99	227	
==>ass_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	99	227	
==>ass_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3554	3659	
==>-s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3554	3659	
==>-s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3554	3659	
==>-s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	411	585	
==>= delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6278	6413	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6278	6413	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6278	6413	
==>ect ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.na <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1550	1657	
==>egex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1550	1657	
==>egex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5599	5702	
==>) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_rem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5599	5702	
==>) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_rem <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5599	5702	
==>) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_rem <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7708	7808	
==>t section.
multi Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@v <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1420	1579	
==>n rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %eve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1420	1579	
==>n rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %eve <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11610	11706	
==>f Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11610	11706	
==>f Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes tha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7251	7350	
==>, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order operators: altern <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7005	7100	
==>, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order operators: altern <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10696	10781	
==>=~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10696	10781	
==>=~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	664	778	
==>/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MY <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	664	778	
==>/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MY <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12568	12661	
==>ssing represent the
current working features.

This module deals with encoding and decoding of <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12568	12661	
==>ssing represent the
current working features.

This module deals with encoding and decoding of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12525	12628	
==>can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12525	12628	
==>can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12525	12628	
==>can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2041	2146	
==>>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22414	22505	
==>t>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22414	22505	
==>t>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4110	4238	
==>),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4303	4431	
==>),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2492	2591	
==>l code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2492	2591	
==>l code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5261	5437	
==>current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7023	7199	
==>current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1740	1829	
==>d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1740	1829	
==>d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11491	11599	
==>string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
} <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11491	11599	
==>string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	599	696	
==>Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	599	696	
==>Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<C <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2952	3071	
==>ion( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method co <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2952	3071	
==>ion( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24152	24260	
==>lf->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20573	20681	
==>lf->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1611	1716	
==>cro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1611	1716	
==>cro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{captu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9281	9384	
==>Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  metho <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9281	9384	
==>Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8925	9061	
==>lanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown pl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1077	1201	
==>lanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown pl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1077	1201	
==>lanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown pl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27712	27809	
==>>, and C</x> in Perl's regexes.

The flag handler gets the parser object and a boolean as argument <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29307	29404	
==>n order for the 'atom' handle to be executed, you must
explicitly add it to the queue (C<< $parser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20833	20925	
==>I SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20833	20925	
==>I SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20833	20925	
==>I SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	29	123	
==>e Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolidate with A <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3898	3990	
==>of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3898	3990	
==>of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33246	33445	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33246	33445	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33246	33445	
==>." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        u <==
4	/Users/nnunley/pugs/util/package-osx.pl	2557	2647	
==>gs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc /usr/local/bi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6111	6212	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8179	8280	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6111	6212	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8179	8280	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6695	6807	
==>ype eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6695	6807	
==>ype eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6695	6807	
==>ype eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$arg <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4030	4190	
==>time::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4030	4190	
==>time::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - u <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4629	4728	
==>hers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4629	4728	
==>hers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7741	7865	
==>ist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7741	7865	
==>ist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38597	38693	
==>in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurance <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38597	38693	
==>in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurance <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10010	10118	
==>));
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!se <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10010	10118	
==>));
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!se <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11903	12002	
==>opying Parrot include files to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	340	467	
==>__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	340	467	
==>__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	340	467	
==>__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5108	5217	
==>$i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5108	5217	
==>$i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5108	5217	
==>$i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToken <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3685	3782	
==>e(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5073	5207	
==>:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4200	4334	
==>:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5073	5207	
==>:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4200	4334	
==>:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14152	14264	
==>sk_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14152	14264	
==>sk_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Inte <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6495	6591	
==>is received from the network.  If the request fails, then the
status code and message are printed <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6495	6591	
==>is received from the network.  If the request fails, then the
status code and message are printed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2338	2456	
==>ody) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2338	2456	
==>ody) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2338	2456	
==>ody) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3550	3700	
==>$idx = shift;
                exists $self->get_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12944	13043	
==>Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12944	13043	
==>Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12944	13043	
==>Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	964	1105	
==>^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	964	1105	
==>^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5921	6021	
==>\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5609	5709	
==>\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2821	2934	
==>::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2821	2934	
==>::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2821	2934	
==>::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10204	10299	
==>y.org/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7332	7514	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7332	7514	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7332	7514	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15359	15455	
==>t is handled
without warning. The highest supported level is simply mapped char for
char to the d <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20349	20464	
==>,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4407	4515	
==>f ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Gen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4629	4737	
==>f ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Gen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2058	2151	
==>type of Relation::LaxPairAttrType
    (Relation::AttrName $attr_name) {...}

proto method attr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3050	3179	
==>dFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3514	3643	
==>dFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	296	404	
==>ie now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	296	404	
==>ie now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	296	404	
==>ie now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pro <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9167	9273	
==>= basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test_results = $file <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11889	12010	
==>uration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07- <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13281	13402	
==>uration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11889	12010	
==>uration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13281	13402	
==>uration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07- <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4565	4670	
==>uncores{$runcore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1836	1928	
==>$::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1836	1928	
==>$::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1836	1928	
==>$::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18364	18565	
==>s no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18364	18565	
==>s no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18364	18565	
==>s no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents t <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16245	16354	
==>s value
    my $builtin = $self->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	832	956	
==>mper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unles <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	832	956	
==>mper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unles <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5267	5362	
==>rence representing the configuration data

=item write

The C<write> method the file for the pro <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5267	5362	
==>rence representing the configuration data

=item write

The C<write> method the file for the pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6031	6135	
==>my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1940	2044	
==>package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blondie::Param;
    use base 'Blon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6031	6135	
==>my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6031	6135	
==>my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10992	11134	
==>> 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10992	11134	
==>> 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9224	9334	
==>my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11539	11649	
==>my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2676	2797	
==>h_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7770	7891	
==>h_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2676	2797	
==>h_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7770	7891	
==>h_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9205	9360	
==>= $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9205	9360	
==>= $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9205	9360	
==>= $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	122	223	
==>se strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Grammar::Perl6;
use Pugs::E <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	439	535	
==>TE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3745	3848	
==>uldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3745	3848	
==>uldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3745	3848	
==>uldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17839	17932	
==>acter appeared in the character class.  The
character class C<[A-CB-E]> would have a character <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1949	2163	
==>);
                if ( $m ) {
                    #print "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	960	1061	
==>ment_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	960	1061	
==>ment_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	960	1061	
==>ment_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20102	20217	
==>'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20381	20496	
==>'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17336	17444	
==>heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20813	20921	
==>heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        head <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12012	12133	
==>5,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12012	12133	
==>5,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_sp <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2904	3024	
==>et?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %o <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2904	3024	
==>et?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %o <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1368	1544	
==>"$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1368	1544	
==>"$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %ev <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17781	17913	
==>redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14202	14334	
==>redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8051	8174	
==>ru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8051	8174	
==>ru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8051	8174	
==>ru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #war <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	15	117	
==>r $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	15	117	
==>r $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	15	117	
==>r $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9677	9788	
==>toping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9677	9788	
==>toping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31869	31962	
==>ti-method is a generic binary relational operator that takes a single
Relation in its C<$other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36419	36512	
==>ti-method is a generic binary relational operator that takes a single
Relation in its C<$other <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12127	12230	
==>time_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13958	14061	
==>time_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12127	12230	
==>time_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13958	14061	
==>time_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4502	4626	
==>eter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9270	9372	
==>\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9270	9372	
==>\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9270	9372	
==>\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10132	10234	
==>(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8072	8174	
==>(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10132	10234	
==>(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8072	8174	
==>(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21394	21480	
==>thod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21704	21790	
==>thod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44301	44387	
==>thod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44611	44697	
==>thod' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5575	5692	
==>Bind( $to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5006	5111	
==>rint $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5006	5111	
==>rint $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5006	5111	
==>rint $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(comp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4833	5021	
==>.pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5055	5243	
==>.pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3831	3925	
==>Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5733	5827	
==>Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22312	22488	
==>elf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22312	22488	
==>elf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22312	22488	
==>elf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18182	18282	
==>ive input to a search,
and to get back match results.

Our objective here is to see if it is possible <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6112	6236	
==>str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3279	3403	
==>str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4128	4252	
==>str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	158	258	
==>ata::Dumper::Terse = 1;
    return join( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3767	3904	
==>/x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5084	5221	
==>/x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3767	3904	
==>/x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5072	5209	
==>/x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$ind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6327	6465	
==>lass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6327	6465	
==>lass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6327	6465	
==>lass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubP <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24916	25016	
==>rivate

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported by Test::Harness by defaul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18680	18794	
==>rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20038	20152	
==>rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	92	226	
==>in32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	92	226	
==>in32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19152	19248	
==>toring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19152	19248	
==>toring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1726	1829	
==>f files installed by this package

=head2 $alt = $pkg->alternative

Returns the JIB::Alternative object, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1120	1215	
==>as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1120	1215	
==>as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1120	1215	
==>as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2622	2715	
==>plate =~ s/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $template =~ s/<op2>/\$<op2>:=(<'$op->{na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20224	20314	
==>) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20224	20314	
==>) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20224	20314	
==>) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULT <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23863	23962	
==>MSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appli <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22636	22735	
==>MSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appli <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23863	23962	
==>MSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appli <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22636	22735	
==>MSG is that automatic replies must never be sent in response
  to a NOTICE message.  This rule appli <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	136	285	
==>do        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            descript <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	136	285	
==>do        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            descript <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21169	21293	
==>lessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17590	17714	
==>lessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if ( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7320	7434	
==>SITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7378	7492	
==>SITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15989	16085	
==>then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15989	16085	
==>then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8154	8287	
==>ue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.b <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8154	8287	
==>ue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.b <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2666	2774	
==>$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.ne <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2666	2774	
==>$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5724	5824	
==>$! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5724	5824	
==>$! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5724	5824	
==>$! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3230	3327	
==>vel at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20323	20417	
==>ine containing the hexadecimal digest of the
result in double quotes followed by a semicolon. L <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20323	20417	
==>ine containing the hexadecimal digest of the
result in double quotes followed by a semicolon. L <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	900	992	
==>ay as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritan <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	900	992	
==>ay as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritan <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5880	5980	
==>n> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These fi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5880	5980	
==>n> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8077	8177	
==>n> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These fi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3643	3743	
==>t {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5722	5826	
==>ings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5722	5826	
==>ings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5722	5826	
==>ings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14984	15081	
==>el to be". Default is LChars.

[Q: Can't be LChars because we don't go into "language" mode unless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9581	9754	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9860	10033	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2153	2275	
==>ata'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2153	2275	
==>ata'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1590	1718	
==>( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1601	1729	
==>( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11867	11975	
==>ine $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11867	11975	
==>ine $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6030	6132	
==>\'> <UnicodeEscapeSequence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1475	1577	
==>s_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1475	1577	
==>s_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1475	1577	
==>s_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2023	2114	
==>() {...}

proto method export_attr_type of Relation::LaxPairAttrType
    (Relation::AttrName <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7355	7462	
==>gly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7355	7462	
==>gly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(norma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1788	1881	
==>to Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1717	1809	
==>to Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2234	2335	
==>s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2234	2335	
==>s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2234	2335	
==>s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This ha <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	953	1051	
==>rogram);

=head1 DESCRIPTION

Useful as a first pass in the code emission process, in order to comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	902	996	
==>Smart::Comments; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadW <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	103	194	
==>Smart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadW <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	103	194	
==>Smart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadW <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1875	1996	
==>mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # sbol (beginnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	137	229	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	137	229	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	137	229	
==>b");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6003	6099	
==>al}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6003	6099	
==>al}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6003	6099	
==>al}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9779	9912	
==>return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9779	9912	
==>return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2071	2198	
==>ssing_dependencies {
    my $self = shift;
    my %hash = @_;
    
    my($repo_set, $inst_set);
    my $tmpl = {
        reposi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21665	21780	
==>= @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6964	7071	
==>> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11519	11626	
==>> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12317	12424	
==>> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13044	13151	
==>> ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	241	490	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (St <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	241	490	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (St <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5798	6043	
==>$e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7560	7805	
==>$e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8391	8493	
==>use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	103	205	
==>use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8391	8493	
==>use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8391	8493	
==>use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2733	2834	
==>. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Curren <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2733	2834	
==>. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Curren <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1189	1278	
==>l5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1400	1489	
==>l5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15200	15335	
==>v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15200	15335	
==>v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15200	15335	
==>v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5188	5291	
==>sh @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12766	12879	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12766	12879	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12766	12879	
==>l with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4256	4364	
==>one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3383	3491	
==>one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4256	4364	
==>one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3383	3491	
==>one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3636	3738	
==>pan is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3636	3738	
==>pan is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $spa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24289	24389	
==>body> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has thes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28841	28941	
==>body> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has thes <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13264	13524	
==>x}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1335	1431	
==>r $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1335	1431	
==>r $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1335	1431	
==>r $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4369	4479	
==>delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4369	4479	
==>delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4878	4986	
==>delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4878	4986	
==>delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	297	416	
==>de for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	297	416	
==>de for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	297	416	
==>de for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an arr <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3227	3341	
==><-[\}]> <'}'> ] <element_expr>? }

rule null_term  { \< null \> }

rule assertion  { <assert_bos>|<assert_eos>|<ass <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13704	13804	
==>l::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13704	13804	
==>l::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9346	9432	
==>}.
p5_charset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5595	5696	
==>x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5595	5696	
==>x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.sp <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2223	2319	
==>es of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for mo <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2223	2319	
==>es of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	581	726	
==>t' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	581	726	
==>t' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2178	2284	
==>flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $fla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2178	2284	
==>flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $fla <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1198	1346	
==>e "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1198	1346	
==>e "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4927	5020	
==>oo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7595	7688	
==>oo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16688	16790	
==>AL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16688	16790	
==>AL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16688	16790	
==>AL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obje <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4439	4537	
==>finish, the stacks will be popped once more, and the whole AST is now reduced
to 11.

Inherits Unit <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13449	13600	
==>substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3598	3733	
==>substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3598	3733	
==>substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3598	3733	
==>substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17846	18024	
==>{
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21323	21501	
==>{
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20910	21088	
==>{
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t <==
4	/Users/nnunley/pugs/util/run-smoke.pl	902	1004	
==>dbox) or die "Could change directory: $!";

# '.' needs to be at the front of the path for everything t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23634	23740	
==>a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://ww <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22407	22513	
==>a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://ww <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23634	23740	
==>a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://ww <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22407	22513	
==>a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://ww <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9756	9865	
==>";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs Smoke Reports</h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1932	2027	
==>elf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1932	2027	
==>elf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1932	2027	
==>elf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 }) <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2142	2252	
==>y are often the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $target->{meat}{t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	283	379	
==>rect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	283	379	
==>rect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	283	379	
==>rect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9170	9298	
==>r: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4911	5012	
==>$_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4911	5012	
==>$_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4911	5012	
==>$_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7951	8089	
==>de') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7951	8089	
==>de') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { ' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15573	15666	
==>nd the %entity_to_char hashes,
which contain the mapping from all characters to the correspond <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15573	15666	
==>nd the %entity_to_char hashes,
which contain the mapping from all characters to the correspond <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6983	7084	
==>y $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6983	7084	
==>y $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3907	4008	
==>state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3907	4008	
==>state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1997	2137	
==>n 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1997	2137	
==>n 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_g <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7884	7981	
==>s should assume that if this method is being called, the Secret 
Police are breaking down the door <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7884	7981	
==>s should assume that if this method is being called, the Secret 
Police are breaking down the door <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5502	5627	
==>ame}() at {$caller.file} line {$caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4878	4995	
==>', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4878	4995	
==>', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4878	4995	
==>', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' & <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10971	11079	
==>rray[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10971	11079	
==>rray[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10971	11079	
==>rray[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(o <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	203	296	
==>perl naive_bayesian.p5 add apples apples");
    system("perl naive_bayesian.p5 add oranges ora <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14962	15065	
==>ze the line down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5760	5861	
==>($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5839	5940	
==>($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3595	3694	
==>ht y for p');

is($p2->get_x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '... sti <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3918	4021	
==>ed by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attribute <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3918	4021	
==>ed by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attribute <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11931	12033	
==>IS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 en <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11931	12033	
==>IS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 en <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5587	5731	
==>, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5587	5731	
==>, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5587	5731	
==>, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17286	17385	
==>ant)))
     (= $method (WALKMETH (&dispatcher (symbol new BUILD))))
     (while ($method is_not_nil) <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1074	1223	
==>last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfil <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1074	1223	
==>last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7450	7552	
==>list of match operators, and return a new 

match operator.



A ruleop() function gets as argument a l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7197	7296	
==>list of match operators, and return a new 
match operator.

A ruleop() function gets as argument a l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5899	6022	
==>vent {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5899	6022	
==>vent {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6311	6428	
==>vent {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6311	6428	
==>vent {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1167	1282	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1167	1282	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1167	1282	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9326	9443	
==>term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9314	9431	
==>term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9549	9650	
==>his test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :tod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9607	9708	
==>his test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :tod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2565	2663	
==>tle, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2565	2663	
==>tle, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2912	3010	
==>tle, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title' <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2828	2918	
==>split(/,/,join(',',@t_dirs||()));


# Find design doc directory, check
unless($no_designdoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7810	8006	
==>$end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7810	8006	
==>$end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7810	8006	
==>$end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $st <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6344	6460	
==>dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1119	1260	
==>2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1119	1260	
==>2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22052	22150	
==>a certain code, it
returns the first one it finds.  This also works for the multiple language
or pe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22052	22150	
==>a certain code, it
returns the first one it finds.  This also works for the multiple language
or pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11910	12024	
==>/; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11910	12024	
==>/; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic f <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6643	6738	
==>rective is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reach <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6643	6738	
==>rective is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reach <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5853	6098	
==>pec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5853	6098	
==>pec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5639	5754	
==>debugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'pub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35252	35347	
==>ct (C<abc>), exactf (C<abc> with C</i> on)

Data: array reference of actual characters

=head2 q <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8472	8615	
==>}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9552	9681	
==>ue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9552	9681	
==>ue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9552	9681	
==>ue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Nu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4147	4341	
==>nst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, instead of
            ### just doing a cp -R
            my $src = $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10988	11109	
==>$i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10988	11109	
==>$i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10988	11109	
==>$i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8153	8277	
==>{ $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8153	8277	
==>{ $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8153	8277	
==>{ $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bles <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15741	15836	
==>= _leader_width(@test_files);

Calculates how wide the leader should be based on the length of t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21709	21810	
==>set_max substrs->data[2].max_offset

data[0].substr, aka anchored_substr, is used only in
regcomp.c/re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11284	11440	
==>_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11284	11440	
==>_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4438	4576	
==>urn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4631	4769	
==>urn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	996	1134	
==>$code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	996	1134	
==>$code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	996	1134	
==>$code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	624	722	
==>ll.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install load <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7345	7469	
==>fe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\n   List      pre     split   s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	185	290	
==>, cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	185	290	
==>, cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	185	290	
==>, cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4161	4283	
==>gs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	948	1049	
==>lass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	948	1049	
==>lass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	948	1049	
==>lass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10720	10862	
==>me processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dump <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7061	7203	
==>me processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7910	8052	
==>me processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dump <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6280	6390	
==>args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6280	6390	
==>args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6280	6390	
==>args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.B <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18676	18761	
==>ce)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8651	8802	
==>h( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is num <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12558	12704	
==>h( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12558	12704	
==>h( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12215	12361	
==>ch::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capture( '$name', \n" . $progr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16854	16972	
==>sa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16854	16972	
==>sa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16854	16972	
==>sa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12629	12729	
==><']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule Element <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3799	3894	
==>ie "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3799	3894	
==>ie "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3799	3894	
==>ie "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5812	6080	
==>de($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - sig <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5812	6080	
==>de($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - sig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7047	7147	
==>ional operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Interna <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6807	6902	
==>ional operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Interna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8801	8957	
==>>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8801	8957	
==>>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8801	8957	
==>>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" sc <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20763	20856	
==>intf read readdir readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	729	820	
==>que_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	729	820	
==>que_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	729	820	
==>que_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
:: <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2937	3033	
==>dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2937	3033	
==>dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree:: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2524	2619	
==>.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method en <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2524	2619	
==>.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7557	7685	
==>= shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7557	7685	
==>= shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7557	7685	
==>= shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    k <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10204	10288	
==>tor::nary->new(list => type::variable::free->new),
		type::operator::nullary->new("bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	761	886	
==>next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	761	886	
==>next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	761	886	
==>next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Di <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1858	1963	
==>tr = Data::Dumper::Dumper($node);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		return "un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24603	24706	
==>ad2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runlo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23367	23470	
==>ad2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runlo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24603	24706	
==>ad2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runlo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23367	23470	
==>ad2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runlo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1011	1106	
==>rarchy, reblessing objects that it finds along the way into new
namespaces. This is typically us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1011	1106	
==>rarchy, reblessing objects that it finds along the way into new
namespaces. This is typically us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1011	1106	
==>rarchy, reblessing objects that it finds along the way into new
namespaces. This is typically us <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12897	12988	
==>uo;</span></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=link>" title= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8563	8755	
==>->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                d <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9027	9219	
==>->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14374	14529	
==>text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$prefac <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14374	14529	
==>text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$prefac <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	458	611	
==>r
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13945	14074	
==>ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13945	14074	
==>ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13945	14074	
==>ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4028	4144	
==>ere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4028	4144	
==>ere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4028	4144	
==>ere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12315	12425	
==>oncat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_enumclass"
    .param pmc mo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	434	688	
==>XISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::CarpLevel = 
                                            $Carp::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10031	10128	
==>IL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10031	10128	
==>IL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10031	10128	
==>IL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5844	5954	
==>);

    $<op> := (die|\.\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21246	21349	
==>x1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21246	21349	
==>x1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21246	21349	
==>x1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7600	7729	
==>from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7600	7729	
==>from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7600	7729	
==>from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not sup <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2029	2147	
==>),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7165	7293	
==>d know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7165	7293	
==>d know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7165	7293	
==>d know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12762	12864	
==>_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (* <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2144	2246	
==>line
4th line
GROK

my $file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th li <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12762	12864	
==>_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12762	12864	
==>_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1013	1132	
==>eption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1013	1132	
==>eption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1013	1132	
==>eption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6738	6826	
==>-------------------------

ok($Class->does('Role'), '... Class now does Role');
ok($Class <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24145	24265	
==>| <'+'>
    | <'$'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlpha>
    | <DecimalDigit>
    | <uriMark> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	956	1060	
==>> \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	956	1060	
==>> \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	956	1060	
==>> \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5837	5960	
==>[-1],
      family => 'anyof_range',
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2116	2217	
==>:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2116	2217	
==>:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2116	2217	
==>:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5752	5865	
==>mary of all the tests
run.  Its keys and values are this:

    bonus           Number of individual todo tests une <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2111	2203	
==>str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2111	2203	
==>str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2111	2203	
==>str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13091	13202	
==>ult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16568	16679	
==>ult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15930	16041	
==>ult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6534	6668	
==>from );
    } else {
        %from = ( $from => $to );
    }
   
    while( my($orig,$target) = each %from ) {
        unless( File::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1948	2048	
==>statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1948	2048	
==>statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1948	2048	
==>statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
m <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1094	1189	
==>ous insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the seriou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1094	1189	
==>ous insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the seriou <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3969	4061	
==>4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<encip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3969	4061	
==>4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<encip <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39068	39162	
==>ional argument which tells it if it's inside a character
class.

  $parser->add_handler('\y' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2345	2437	
==>ing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2345	2437	
==>ing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2345	2437	
==>ing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.F <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	702	796	
==>0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compare($_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4369	4477	
==>::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4369	4477	
==>::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4369	4477	
==>::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilM <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7074	7166	
==>pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pBo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2910	3043	
==>$self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2910	3043	
==>$self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2910	3043	
==>$self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attri <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13363	13493	
==>nge = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    cha <==
4	/Users/nnunley/pugs/util/package-osx.pl	9183	9319	
==>}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2947	3058	
==>6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2947	3058	
==>6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2947	3058	
==>6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22380	22479	
==>ts.

=item stack

Initially an array reference, used to store the tree as a new scope is
entered and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	170	262	
==>ue::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sepa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	170	262	
==>ue::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sepa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	170	262	
==>ue::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sepa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2309	2573	
==>body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5786	6050	
==>body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4716	4980	
==>body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10343	10442	
==>ub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $code_params = '[map{Perl6::Param->new( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6264	6418	
==>of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $co <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6322	6476	
==>of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $co <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15541	15641	
==>span.

These methods may raise a warning if the new value would put the span 
in an invalid state, su <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15541	15641	
==>span.

These methods may raise a warning if the new value would put the span 
in an invalid state, su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4463	4596	
==>uilddir] )                      and error($?), return;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	883	1015	
==>,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, app <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	883	1015	
==>,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, app <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	883	1015	
==>,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, app <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8277	8423	
==>SES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $pre <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8277	8423	
==>SES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6489	6603	
==>ock

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6272	6381	
==>ock
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3451	3606	
==>str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3591	3746	
==>str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5574	5721	
==>] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no availa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6038	6185	
==>] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no availa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10804	10960	
==>discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10804	10960	
==>discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $pa <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2100	2214	
==>nt(($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        whil <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11538	11643	
==>gs{args} or defined $args{switches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4730	4858	
==>s( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite() <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4730	4858	
==>s( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13030	13125	
==>ll of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, array <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13030	13125	
==>ll of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, array <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17255	17406	
==>e;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            die "Failed $tot- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6354	6463	
==>urn $current->{env}->{$name}->fetch
            if exists $current->{env}->{$name};  
        $current = $curr <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7385	7488	
==>CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negat <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7443	7546	
==>CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7429	7600	
==>Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7429	7600	
==>Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7429	7600	
==>Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->f <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	599	726	
==>gram aborts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7039	7147	
==>turn "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq "normal" and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1213	1306	
==>cause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1213	1306	
==>cause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1213	1306	
==>cause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1815	1943	
==>@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1346	1436	
==>lf);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1346	1436	
==>lf);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1346	1436	
==>lf);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21694	21800	
==>ule" ]

.sub "p6analyze" :method
    .param pmc pad
    .local int isarray, iscapture
    .local string cna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6274	6357	
==>---------------------------------------------------------------------------
## Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6274	6357	
==>---------------------------------------------------------------------------
## Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6274	6357	
==>---------------------------------------------------------------------------
## Modul <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7390	7502	
==>( $tokenCat >= PGE_OPTABLE_TERNARY );
  goto expect_oper;

  reduce:
  my $temp1 = pop @tokenStack;
  my $temp2 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2363	2472	
==>instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2363	2472	
==>instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2363	2472	
==>instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1812	1911	
==>tch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1812	1911	
==>tch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1812	1911	
==>tch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5914	6019	
==>y - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5914	6019	
==>y - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5914	6019	
==>y - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28083	28175	
==>ll nodes inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=item my <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11429	11530	
==>arams (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to w <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11429	11530	
==>arams (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19865	19964	
==>ntext it will return two
values; the user name and the password.  In scalar context it will
return I <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19865	19964	
==>ntext it will return two
values; the user name and the password.  In scalar context it will
return I <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	352	457	
==>s version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %par <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	352	457	
==>s version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %par <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12879	12973	
==>Returns the last element in the recurrence.

Returns positive infinite if the recurrence is inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12879	12973	
==>Returns the last element in the recurrence.

Returns positive infinite if the recurrence is inf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	471	587	
==>h @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### BAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16825	16922	
==>meters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16825	16922	
==>meters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16825	16922	
==>meters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1968	2079	
==>ose MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline}) <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1968	2079	
==>ose MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13557	13667	
==>=~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13557	13667	
==>=~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4503	4606	
==>6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4503	4606	
==>6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5659	5789	
==>atch;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6212	6342	
==>atch;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5852	5982	
==>atch;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6405	6535	
==>atch;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2876	2997	
==>, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2876	2997	
==>, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2876	2997	
==>, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7950	8050	
==>t serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" enc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	261	362	
==>ument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1119	1220	
==>ument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20632	20728	
==>n.

Every bit of the default process described above is overridable by
various methods.

=head1 D <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20632	20728	
==>n.

Every bit of the default process described above is overridable by
various methods.

=head1 D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2174	2285	
==>o)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2174	2285	
==>o)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2174	2285	
==>o)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9093	9192	
==>ncompatible types:\n" . Dumper(@_);
};


# these are the type signatures of some builtins
our %prelu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	981	1103	
==>ction__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	981	1103	
==>ction__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	981	1103	
==>ction__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	299	404	
==>IL2;

my $debug_traverse = 0;

# tokenizer

sub tokenize ( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*? <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5055	5189	
==>eys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5379	5513	
==>eys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21240	21334	
==>ly using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.qui <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21240	21334	
==>ly using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.qui <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1438	1558	
==>$attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1438	1558	
==>$attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1438	1558	
==>$attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2403	2513	
==>if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defin <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2403	2513	
==>if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defin <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12058	12150	
==>\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12058	12150	
==>\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1861	1990	
==>asing, etc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    Complex     Perl complex number
    R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	807	911	
==>st them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	807	911	
==>st them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	807	911	
==>st them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5631	5729	
==>s possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5631	5729	
==>s possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5631	5729	
==>s possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31808	31905	
==>tifiers).

=item neg

Whether this object is negated (like a look-ahead or a character class).

=i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10885	10982	
==>e

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10885	10982	
==>e

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1470	1608	
==>ar {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1410	1543	
==>ar {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4839	4966	
==>%$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $versio <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4698	4825	
==>%$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $versio <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4811	4923	
==>';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1584	1673	
==>r $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1584	1673	
==>r $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1584	1673	
==>r $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4115	4221	
==>= [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4115	4221	
==>= [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4115	4221	
==>= [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7619	7737	
==>ity => 'infix',
  );

Pseudo-code for usage inside a grammar:

    sub new_proto( $match ) {
        return ${$ma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37254	37348	
==>f another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41803	41897	
==>f another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41426	41520	
==>f another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_j <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52954	53074	
==>sion'   => 'str'));        
    $meta->add_attr(symbol->new('$:authority' => 'str'));            
}

# add their names in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	584	692	
==>ls::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	584	692	
==>ls::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	584	692	
==>ls::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	424	518	
==>londie::Backend::Perl::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2402	2499	
==>h those limitations and 
still produce a working version of File::Spec for use as we develop 
Pugs <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2402	2499	
==>h those limitations and 
still produce a working version of File::Spec for use as we develop 
Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22564	22658	
==>be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program gen <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22564	22658	
==>be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program gen <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5747	5844	
==>⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4877	4974	
==>⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5747	5844	
==>⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4877	4974	
==>⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6880	7012	
==>tements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6880	7012	
==>tements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamemen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9045	9168	
==>return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9238	9361	
==>return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4003	4100	
==>rs to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4003	4100	
==>rs to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4003	4100	
==>rs to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27070	27157	
==>ClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar is JavaScript::ECMAScript3::G <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14163	14265	
==>v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1643	1745	
==>v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5530	5628	
==>x:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5530	5628	
==>x:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9042	9190	
==>e} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        return $match;

    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8727	8870	
==>e} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        return $match;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	650	783	
==>ious( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end in <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	650	783	
==>ious( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end in <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4085	4183	
==>and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4085	4183	
==>and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	703	801	
==>doesn't look like $node is a piece of a Blondie program.";

   	$node->fmap(sub { $self->reduce($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6282	6380	
==>and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15536	15639	
==>s
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15536	15639	
==>s
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1208	1301	
==>$date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which install <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1208	1301	
==>$date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which install <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20529	20627	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20529	20627	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20529	20627	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1407	1534	
==>erldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($par <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1407	1534	
==>erldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15209	15317	
==>tr $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15209	15317	
==>tr $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15670	15806	
==>hod run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15670	15806	
==>hod run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	60	158	
==>on of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	60	158	
==>on of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30178	30276	
==>f this object.  See the object's documentation for
possible values for its type.

=item my $v = $ob <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	708	803	
==>5 Jos Boumans, Florian Ragwitz.

This library is free software; you may redistribute and/or modi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22456	22547	
==>head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QU <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22456	22547	
==>head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QU <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3861	4023	
==>my $self = shift;
                my $values = shift;
                push @{$self->get_value('@:slots')}, mk_containers(@$values);
            },

            'ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	35	134	
==>re, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	35	134	
==>re, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	35	134	
==>re, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8810	8914	
==>nion.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8810	8914	
==>nion.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3134	3235	
==>ies the resulting relative path
    # must ascend out of before it can descend to $path_directory.  So <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3134	3235	
==>ies the resulting relative path
    # must ascend out of before it can descend to $path_directory.  So <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4838	4954	
==>t = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4838	4954	
==>t = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4838	4954	
==>t = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19555	19671	
==>ubstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15976	16092	
==>ubstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14596	14711	
==>ST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14596	14711	
==>ST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3710	3826	
==>e;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3710	3826	
==>e;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3710	3826	
==>e;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4694	4796	
==>b __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Internals::current_pragma_va <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9956	10057	
==>>
}
rule HexEscapeSequence {  # see 7.8.4
      <'x'> <HexDigit> <HexDigit>
}
rule UnicodeEscapeSequen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2431	2527	
==>ompile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2431	2527	
==>ompile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2431	2527	
==>ompile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2245	2341	
==>to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2245	2341	
==>to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2245	2341	
==>to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Mo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2200	2296	
==>fied below).
Then, it creates a initrd and copies your pugs binary and the shared libraries
it ne <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14943	15054	
==>{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler;
use base qw/Red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11724	11826	
==>turn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Erro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11724	11826	
==>turn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Erro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11724	11826	
==>turn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Erro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12156	12303	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12156	12303	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12156	12303	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Ar <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1569	1676	
==>t on the installation, so they are 
### marked privata.. their public equivalents live in Installation.pm
$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	420	549	
==>cee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	420	549	
==>cee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	420	549	
==>cee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.ui <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5629	5733	
==>et $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4759	4863	
==>et $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5629	5733	
==>et $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4759	4863	
==>et $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9246	9370	
==>ick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9246	9370	
==>ick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6188	6302	
==>+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> inf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6188	6302	
==>+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> inf <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3218	3313	
==>es that use Test::Builder.  It
does this by you setting the expected output and diagnostic outpu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3218	3313	
==>es that use Test::Builder.  It
does this by you setting the expected output and diagnostic outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3298	3393	
==>es that use Test::Builder.  It
does this by you setting the expected output and diagnostic outpu <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1720	1811	
==>,'subset int of int32 where { true }');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13983	14102	
==>sa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13983	14102	
==>sa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13983	14102	
==>sa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3775	3893	
==>d}{'var'};
      while(@$ops && @$var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumpe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1456	1566	
==>t => 1 } );
#print $rpcr2->perl5;
print "Benchmark:\n";
Benchmark::cmpthese(500, {
    PCR_x1       => sub{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1260	1354	
==>() {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1260	1354	
==>() {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1260	1354	
==>() {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10381	10483	
==>ear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10381	10483	
==>ear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12661	12757	
==>he recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12661	12757	
==>he recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns ne <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1239	1338	
==>(Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1239	1338	
==>(Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1786	1885	
==>(Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9073	9162	
==><SingleStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7. <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1830	1942	
==>annotate($compiled);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4944	5053	
==>X::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4944	5053	
==>X::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4944	5053	
==>X::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1095	1273	
==>}
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say " <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1095	1273	
==>}
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say " <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	326	423	
==>= gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (le <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	326	423	
==>= gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11410	11551	
==>((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left qu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11410	11551	
==>((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8046	8160	
==>ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8046	8160	
==>ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	534	636	
==>ent.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	534	636	
==>ent.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	534	636	
==>ent.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13531	13627	
==>ler->($x);
}

my $as_array_complain = sub { Carp::carp("p6_as_array called on $_[0]"); undef };
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20577	20675	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20577	20675	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20577	20675	
==>$_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13680	13774	
==>ontains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe_S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8236	8373	
==>ist( $inst_pkg->package )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->package )
                         ->f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13436	13539	
==>refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    mai <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13436	13539	
==>refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    mai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20096	20220	
==>@{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16517	16641	
==>@{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	220	327	
==>TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there ar <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	220	327	
==>TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there ar <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1720	1813	
==>also includes several attributes which might be interesting to 
people interested in the algor <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3071	3164	
==>ler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1720	1813	
==>also includes several attributes which might be interesting to 
people interested in the algor <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3071	3164	
==>ler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20597	20689	
==>dlers
in F<Regexp/Parser/Handlers.pm>.  That file might end up being where
documentation on w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5581	5684	
==>ift;

		my $de_facto_type = $node->type;
		
		warn "attempting to unify " . $node->struct_equiv . " whos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6057	6157	
==>course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6057	6157	
==>course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6057	6157	
==>course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	352	469	
==>st = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	352	469	
==>st = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3011	3107	
==>e for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.unio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3011	3107	
==>e for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.unio <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22945	23039	
==>E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21763	21857	
==>E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22945	23039	
==>E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21763	21857	
==>E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4073	4254	
==>ef' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4073	4254	
==>ef' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4073	4254	
==>ef' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	219	370	
==>o_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	219	370	
==>o_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	219	370	
==>o_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2892	2996	
==>eturn $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $sel <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2892	2996	
==>eturn $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $sel <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	314	416	
==>tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	314	416	
==>tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1723	1821	
==>e) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1723	1821	
==>e) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	53	142	
==>ecurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	53	142	
==>ecurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10042	10154	
==>ckage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10042	10154	
==>ckage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10042	10154	
==>ckage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	455	563	
==>@jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	455	563	
==>@jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	455	563	
==>@jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ joi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2714	2820	
==>s' => \$syn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10005	10165	
==>es6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10005	10165	
==>es6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10005	10165	
==>es6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1200	1303	
==>Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library func <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1200	1303	
==>Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library func <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1200	1303	
==>Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library func <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25253	25333	
==>C0,flgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,am <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14138	14253	
==>( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14138	14253	
==>( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	603	704	
==>NOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	603	704	
==>NOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1081	1201	
==>ation;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	823	943	
==>ation;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1081	1201	
==>ation;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	823	943	
==>ation;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($ <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1292	1408	
==>reated.
    You can edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4470	4580	
==>d
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4470	4580	
==>d
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4470	4580	
==>d
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3904	4061	
==>e_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3904	4061	
==>e_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9126	9212	
==>ems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9230	9313	
==>ems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17775	17867	
==>xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17775	17867	
==>xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17775	17867	
==>xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27786	27876	
==>::Parser::*> object of the same name, and finally
from F<Regexp::Parser::__object__>.  Don' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2640	2771	
==>$quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2640	2771	
==>$quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	162	267	
==>ire $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curd <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	162	267	
==>ire $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29190	29310	
==>my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return ble <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29190	29310	
==>my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return ble <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29190	29310	
==>my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return ble <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	215	329	
==>ow 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	215	329	
==>ow 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	215	329	
==>ow 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2854	2985	
==>ub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2854	2985	
==>ub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2854	2985	
==>ub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PI <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	450	570	
==>ires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	236	349	
==>ackage';

for my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1751	1853	
==>[ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1751	1853	
==>[ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1751	1853	
==>[ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4268	4362	
==>TINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4268	4362	
==>TINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4268	4362	
==>TINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" i <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9852	10060	
==>**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->dig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	496	610	
==>if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	496	610	
==>if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	496	610	
==>if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	317	436	
==>ll load)) {
        *{"$class\::$method"} = sub {
            +shift->_top->$method(@_);
        } unless defined &{"$cl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27911	28007	
==>se, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32463	32559	
==>se, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31555	31651	
==>se, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2259	2388	
==>") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2259	2388	
==>") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2259	2388	
==>") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = joi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5140	5263	
==>== PGE_OPTABLE_PREFIX );
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_CIRCUMFIX );
  push @termStack, $operator;

  expec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3155	3245	
==>isc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACK <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3155	3245	
==>isc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACK <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3502	3592	
==>isc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACK <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6408	6515	
==>ne.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6408	6515	
==>ne.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6408	6515	
==>ne.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9251	9397	
==>d;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9251	9397	
==>d;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9251	9397	
==>d;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10847	10948	
==>}
rule RegularExpressionFlags {  # see 7.8.5
      <null>
    | <RegularExpressionFlags> <IdentifierPa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	532	644	
==>rn $self->reduce($program) unless @nodes;

	$self->{seen} = { map { $_ => $_ } @nodes };
	$self->{names} = { $pro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3457	3572	
==>hod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5507	5622	
==>hod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4463	4578	
==>hod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:me <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2401	2490	
==>infix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", "<i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2908	3117	
==>= $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2908	3117	
==>= $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2908	3117	
==>= $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	147	237	
==>rl5::X1::Prelude;

sub initialize {
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16035	16171	
==>class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am le <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16035	16171	
==>class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am le <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16035	16171	
==>class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am le <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39066	39158	
==>of the invocant Relation::Example.  This method
degenerates into an C<intersection> if the tw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31235	31351	
==>)> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4472	4565	
==>(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4472	4565	
==>(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4472	4565	
==>(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3840	3948	
==>H($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3840	3948	
==>H($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3840	3948	
==>H($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8770	8877	
==>pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose:
    parse_error(mob, pos, "Missing closing br <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9850	9962	
==>t.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9850	9962	
==>t.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9850	9962	
==>t.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	376	507	
==>@val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FET <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	376	507	
==>@val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FET <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	92	190	
==>e an acccessor - all it's doing is making the
# "source" property of the object fallback to "conten <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	92	190	
==>e an acccessor - all it's doing is making the
# "source" property of the object fallback to "conten <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50700	50887	
==>paque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$identifier' => $e->get('$self:')->get_attr(symbol->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1463	1569	
==>=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1463	1569	
==>=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1463	1569	
==>=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3357	3507	
==>if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7760	7879	
==>S version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7760	7879	
==>S version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7760	7879	
==>S version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1323	1427	
==>rrorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1323	1427	
==>rrorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1323	1427	
==>rrorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2098	2199	
==>)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2098	2199	
==>)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2098	2199	
==>)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	5	103	
==>r/bin/perl

use strict;
use warnings;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::M <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1058	1210	
==>l' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_vers <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	937	1089	
==>l' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_vers <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	603	730	
==>char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $cha <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	603	730	
==>char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $cha <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10071	10189	
==>port
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10071	10189	
==>port
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5620	5711	
==>Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5620	5711	
==>Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18370	18543	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18667	18840	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18649	18822	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18946	19119	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24304	24401	
==>retty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	243	330	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	243	330	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	243	330	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_nam <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5064	5197	
==>does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5064	5197	
==>does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	279	383	
==>{
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	279	383	
==>{
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	414	533	
==>, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$un <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	414	533	
==>, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$un <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	120	229	
==>ector ();

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18468	18584	
==>id_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	621	722	
==>e. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	621	722	
==>e. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	621	722	
==>e. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4367	4478	
==>};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4367	4478	
==>};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4367	4478	
==>};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:< <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1434	1526	
==>ing tests.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$e <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2316	2436	
==>> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2316	2436	
==>> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $en <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39580	39671	
==>ed.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39580	39671	
==>ed.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24304	24394	
==>ed.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24304	24394	
==>ed.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4775	4890	
==>uldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4775	4890	
==>uldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4775	4890	
==>uldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5917	6018	
==>:Boolean $v)   { ?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5964	6086	
==>) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5964	6086	
==>) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5964	6086	
==>) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6132	6231	
==>.  It
may be a little jumbled or hard to understand.  If you find a problem,
please let L<me|/"AUTHO <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6903	7011	
==>f !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Env <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7462	7570	
==>f !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Env <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1777	1875	
==>arded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1777	1875	
==>arded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11598	11713	
==>ndef },
      lvalue => sub { p6_as_bool(${$_[0]}) },
      perl5_object => sub { $_[0] ? 1 : undef },
      perl6_o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	472	588	
==>mpile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1196	1311	
==>mpile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4110	4210	
==>ass_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6012	6112	
==>ass_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18352	18506	
==>}
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18352	18506	
==>}
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18352	18506	
==>}
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $me <==
4	/Users/nnunley/pugs/ext/DateTime/t/Data.pm	17	120	
==>engths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

@*LeapYearMonthLengths = @*MonthLength <==
4	/Users/nnunley/pugs/util/testgraph.pl	1260	1388	
==>ce cross-linkable tests
   util/run-smome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6578	6685	
==>BNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6578	6685	
==>BNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6578	6685	
==>BNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpad <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9459	9659	
==>l},
                    todo        => $results{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1236	1350	
==>rl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1236	1350	
==>rl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1236	1350	
==>rl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2224	2351	
==>l")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2224	2351	
==>l")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2224	2351	
==>l")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return spr <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1628	1742	
==>$fname.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $col = 0;
#    print '\fra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3104	3239	
==>);
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right',
        precedence => 'looser',
        other => '&& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	119	216	
==>");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	119	216	
==>");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	119	216	
==>");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8104	8213	
==>n $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5;
sub recurse {
    my($x)=@_;
    my $s;
    return '(undef) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	990	1085	
==>diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	990	1085	
==>diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1546	1641	
==>diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2889	2978	
==>nning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2889	2978	
==>nning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exce <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2889	2978	
==>nning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16707	16801	
==>list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16707	16801	
==>list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16707	16801	
==>list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1324	1449	
==>= ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1324	1449	
==>= ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1324	1449	
==>= ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12533	12860	
==>sage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12533	12860	
==>sage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Keye <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3228	3316	
==>gs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3114	3200	
==>gs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2783	2880	
==>discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2783	2880	
==>discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2783	2880	
==>discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33803	33896	
==>esponds to
an individual user's (or user role's) preferences such that each says what
language <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33803	33896	
==>esponds to
an individual user's (or user role's) preferences such that each says what
language <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3422	3514	
==>sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This libra <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3422	3514	
==>sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This libra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2032	2139	
==>utput;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  metho <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5396	5494	
==>d $v) { JSX::false }
multi sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoole <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	43	140	
==>utput;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

metho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	43	140	
==>utput;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

metho <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14881	14991	
==>he rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulverize the line down into pieces i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4656	4755	
==>ain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This para <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4656	4755	
==>ain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6853	6952	
==>ain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This para <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6970	7087	
==>hr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6970	7087	
==>hr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2839	2942	
==>nterface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2839	2942	
==>nterface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3887	3995	
==>s.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3887	3995	
==>s.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3887	3995	
==>s.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20985	21242	
==>);
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20985	21242	
==>);
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20985	21242	
==>);
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->sto <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5149	5263	
==>o, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5371	5485	
==>o, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1303	1416	
==>bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %p <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1303	1416	
==>bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1725	1821	
==>le(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1725	1821	
==>le(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1725	1821	
==>le(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s* <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2756	2890	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        e <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2756	2890	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	62	161	
==>ate;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	62	161	
==>ate;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22337	22460	
==>elf->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18758	18881	
==>elf->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6083	6202	
==>return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6083	6202	
==>return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+// <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8316	8434	
==>seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8316	8434	
==>seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8316	8434	
==>seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	762	857	
==>esult = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1425	1521	
==>members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method in <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13339	13435	
==>se  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1425	1521	
==>members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method in <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13397	13493	
==>se  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5476	5585	
==>my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23446	23552	
==>@xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23446	23552	
==>@xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23446	23552	
==>@xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1610	1731	
==>,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_dec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2390	2511	
==>,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_dec <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1765	1859	
==>t
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1765	1859	
==>t
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7813	7917	
==>) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7813	7917	
==>) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7813	7917	
==>) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) }, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16385	16478	
==>tionalExpression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <EqualityExp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22112	22206	
==>numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20993	21087	
==>numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22112	22206	
==>numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20993	21087	
==>numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12786	12881	
==>[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12786	12881	
==>[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12786	12881	
==>[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })') <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	70	164	
==>Runtime/;

use strict;
use warnings;

use Blondie::Backend::Perl::Builtins;

use UNIVERSAL::req <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12560	12726	
==>ture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Err <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8834	9000	
==>ture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Err <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9669	9835	
==>ture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Err <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3411	3519	
==>_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\f", '\F') if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4901	5024	
==>>{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15937	16060	
==>>{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17425	17548	
==>>{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22108	22231	
==>>{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2059	2180	
==>.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @di <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4278	4399	
==>.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @di <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2059	2180	
==>.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @di <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4278	4399	
==>.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @di <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3024	3128	
==>$span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3024	3128	
==>$span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4858	4951	
==>llowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with th <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4858	4951	
==>llowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6194	6286	
==>ial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entryp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6194	6286	
==>ial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entryp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6194	6286	
==>ial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entryp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1402	1501	
==>s.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1402	1501	
==>s.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1402	1501	
==>s.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1911	2010	
==>f ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass (@{$c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8851	8945	
==>hn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3780	3874	
==>hn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8851	8945	
==>hn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3780	3874	
==>hn Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1096	1251	
==>age.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1096	1251	
==>age.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTT <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	687	780	
==>per::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	687	780	
==>per::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37326	37432	
==>bject(and => 0);
    });
  }

We've added a handler, and added an argument to the constructor.  The
argumen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3463	3563	
==>s.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3463	3563	
==>s.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3463	3563	
==>s.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAn <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27565	27678	
==>h &= ~ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_set(prog, t) ((t) \
					? RX_MATCH_TAINTED_on(prog) \
					: R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	199	310	
==>nings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	199	310	
==>nings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	199	310	
==>nings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1406	1505	
==>or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - const <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1406	1505	
==>or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - const <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1406	1505	
==>or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - const <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3291	3384	
==>d from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2043	2188	
==>my $tmpl    = {
            dir => { required => 1, allow => DIR_EXISTS, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4095	4194	
==>g the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4095	4194	
==>g the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6292	6391	
==>g the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1025	1190	
==>rototype}
            if ($message eq 'prototype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4619	4711	
==>S.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4619	4711	
==>S.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4619	4711	
==>S.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4287	4423	
==>do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4275	4411	
==>do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3582	3678	
==>ou must first create an object of the appropriate 
class, passing the key, a mode (either "enciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3582	3678	
==>ou must first create an object of the appropriate 
class, passing the key, a mode (either "enciph <==
4	/Users/nnunley/pugs/util/claim_drift.pl	312	409	
==>s "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13539	13633	
==>6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19273	19367	
==>formity.

=item Documentation

Fixed some poor wording, and documented the problem with using F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13539	13633	
==>6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13539	13633	
==>6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26791	26913	
==>ts, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27070	27192	
==>ts, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6478	6577	
==>which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6478	6577	
==>which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4337	4443	
==>ot_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4337	4443	
==>ot_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5210	5314	
==>ot_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5210	5314	
==>ot_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1310	1406	
==>rgs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1310	1406	
==>rgs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1310	1406	
==>rgs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1919	2014	
==>ew($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29535	29650	
==>re inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29535	29650	
==>re inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	347	454	
==>re inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "< <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7693	7823	
==>(unavailable on MSWin)
    --shuffle, -s           Run tests in random order
    --recurse, -r           Recurse into directories o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1409	1519	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1409	1519	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1409	1519	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5840	5958	
==>w {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5840	5958	
==>w {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5840	5958	
==>w {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	50	167	
==>arnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21704	21809	
==>ceived from the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20585	20690	
==>ceived from the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21704	21809	
==>ceived from the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20585	20690	
==>ceived from the server (unmodified).

=item C<server>

The server the line was sent from. This is I<not> n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24696	24797	
==>ad2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23460	23561	
==>ad2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24696	24797	
==>ad2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23460	23561	
==>ad2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop is
finished.

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3619	3727	
==>$S->object(digit => 0);
  });

  # gpos (last global match end)
  $self->add_handler('\G' => sub {
    my ($S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1408	1505	
==>n "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1408	1505	
==>n "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1408	1505	
==>n "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11603	11704	
==>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11603	11704	
==>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11603	11704	
==>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exis <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22905	23004	
==>NCH_BOL 
 ROPT_ANCH_GPOS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROP <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1618	1714	
==>e examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of th <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1618	1714	
==>e examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of th <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11828	11921	
==>ar(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4539	4640	
==>t2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4539	4640	
==>t2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11483	11609	
==>bmethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.S <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1927	2045	
==>bmethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.S <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1927	2045	
==>bmethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3561	3665	
==>t_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	735	875	
==>e = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	735	875	
==>e = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	735	875	
==>e = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	332	444	
==>$class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACKAGE__;

__END__

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13847	13944	
==>$dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $d <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	825	922	
==>es\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Type safe: " . $pretty->string($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13847	13944	
==>$dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13847	13944	
==>$dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4849	4971	
==>utput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4849	4971	
==>utput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4849	4971	
==>utput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	863	975	
==>{ (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{env});
} 

sub do_while {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6542	6649	
==>interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6542	6649	
==>interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6854	6957	
==>rintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV* sv;
    sv = eval_pv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38521	38622	
==>y $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+) <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1985	2106	
==>ntlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9817	9925	
==>of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9817	9925	
==>of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9817	9925	
==>of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2936	3050	
==>\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1310	1424	
==>\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2936	3050	
==>\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2936	3050	
==>\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	30	161	
==>!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	30	160	
==>!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6781	6882	
==>$Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7153	7254	
==>$Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7452	7553	
==>$Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Re <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3548	3648	
==>_re = join( "|", map { quotemeta } @include );
    $Config{include_re} = qr/\.($include_re)$/;
}

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2604	2697	
==>=> $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2604	2697	
==>=> $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9194	9286	
==>mentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object- <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9194	9286	
==>mentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14482	14605	
==>e_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14482	14605	
==>e_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13523	13638	
==>e_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13523	13638	
==>e_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the co <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	434	550	
==>e]\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$segil$nam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1006	1116	
==>ht->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1233	1343	
==>ht->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1460	1570	
==>ht->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1573	1690	
==>s {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$/ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1573	1690	
==>s {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$/ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2210	2321	
==>r { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2210	2321	
==>r { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	729	839	
==>bnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	729	839	
==>bnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	729	839	
==>bnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	990	1112	
==>traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.usernam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	990	1112	
==>traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.usernam <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5793	5880	
==>.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5793	5880	
==>.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20070	20196	
==>x",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => cond(
					if => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	982	1085	
==>retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	982	1085	
==>retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	982	1085	
==>retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2588	2683	
==>e common list operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. $#{$_[0]}] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22066	22160	
==>0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22066	22160	
==>0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22066	22160	
==>0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@x <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2814	2943	
==>}

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2814	2943	
==>}

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2814	2943	
==>}

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        funct <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3670	3786	
==>on::Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation::Exam <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8048	8184	
==>30),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8048	8184	
==>30),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       = <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15611	15703	
==>ontain the mapping from all characters to the corresponding entities
(and vice versa, respect <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15611	15703	
==>ontain the mapping from all characters to the corresponding entities
(and vice versa, respect <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1050	1155	
==>Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinit <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1050	1155	
==>Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinit <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1074	1172	
==>ed response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is ex <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1074	1172	
==>ed response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is ex <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19324	19415	
==>value consist of a challenge that indicates the
authentication scheme and parameters applica <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19324	19415	
==>value consist of a challenge that indicates the
authentication scheme and parameters applica <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31907	31998	
==>fail to compile and throw an
error (specifically, B<RPe_NOTREC>, "Sequence (?xx not recogniz <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9708	9798	
==>"(",join(", ",map{defined($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__
=cut
$foo = su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4383	4515	
==>( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4371	4503	
==>( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7259	7372	
==>kee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_han <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7259	7372	
==>kee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_han <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	416	561	
==>> 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      sev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	416	561	
==>> 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      sev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	416	561	
==>> 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      sev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19200	19341	
==>},       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19200	19341	
==>},       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19200	19341	
==>},       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}} <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5213	5350	
==>rw
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        wa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3801	3994	
==>:start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3801	3994	
==>:start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3869	3999	
==>e {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_versi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17206	17318	
==>l - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	930	1032	
==>pans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	930	1032	
==>pans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7542	7639	
==>e is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher: <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7542	7639	
==>e is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	5	114	
==>arnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	5	114	
==>arnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	5	114	
==>arnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1218	1318	
==>de &dispatch in your subclass of POE::Session.';
  }
}

=head1 NAME

POE - Perl Object Environment fo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12964	13076	
==>$_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_comman <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12964	13076	
==>$_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_comman <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3274	3372	
==>n't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\01 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3274	3372	
==>n't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\01 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1334	1452	
==>ure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1334	1452	
==>ure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5703	5820	
==>at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## - <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5703	5820	
==>at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1587	1691	
==>=~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # esca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	519	621	
==>rs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	519	621	
==>rs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	519	621	
==>rs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1230	1330	
==>al wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8908	8998	
==>push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2733	2823	
==>push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3329	3470	
==>[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4178	4319	
==>[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4514	4608	
==>can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental develop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4764	4858	
==>can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental develop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2783	2884	
==>e EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaroun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2783	2884	
==>e EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaroun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2783	2884	
==>e EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaroun <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28308	28406	
==>)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsucces <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	507	605	
==>.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	507	605	
==>.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	507	605	
==>.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding th <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2210	2304	
==>:App->new(
			$class->build_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3159	3264	
==>')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3159	3264	
==>')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3159	3264	
==>')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Obj <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1343	1430	
==>etty = Language::AttributeGrammar->new(<<'#\'EOG');
#\
type::variable::instantiated: lay <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2192	2318	
==>rn @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2192	2318	
==>rn @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8861	8960	
==>level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to car <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8568	8665	
==>level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to car <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3669	3774	
==>$INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4367	4465	
==>=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4367	4465	
==>=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6564	6662	
==>=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4035	4138	
==>(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4035	4138	
==>(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4035	4138	
==>(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{') <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20896	20987	
==>Internals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::requ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1240	1488	
==>,
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1240	1488	
==>,
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15992	16087	
==>S

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Litt <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16050	16145	
==>S

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Litt <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4110	4227	
==>op_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_version\ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	202	314	
==>r TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	202	314	
==>r TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * S <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3060	3164	
==>op_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_version\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8611	8710	
==>n "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8611	8710	
==>n "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8611	8710	
==>n "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23480	23563	
==>place_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) : <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5654	5753	
==>not(R))    --> "(?!",  !, p5_start(R), ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_star <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3282	3376	
==>SIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3282	3376	
==>SIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5479	5573	
==>SIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10946	11074	
==>unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    subme <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10946	11074	
==>unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    subme <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4229	4326	
==>ameters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4229	4326	
==>ameters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2546	2666	
==>ervername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo(" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2546	2666	
==>ervername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo(" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8893	9001	
==>quire' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8893	9001	
==>quire' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10928	11086	
==>d      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1416	1560	
==>d      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1416	1560	
==>d      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30305	30399	
==>esentation of this object.  It includes the visual
representation of any children of the object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25098	25221	
==>x,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1733	1845	
==>n push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1733	1845	
==>n push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1733	1845	
==>n push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - I <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2128	2260	
==>$pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2627	2718	
==>ini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2627	2718	
==>ini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2627	2718	
==>ini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prelu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5067	5165	
==>d "moose".

Inherits List.

=item Param

Shifts a parameter from the parameter stack and binds it t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	119	212	
==>264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	119	212	
==>264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  define <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	119	212	
==>264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  define <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19847	19979	
==>l with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19847	19979	
==>l with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19847	19979	
==>l with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $lab <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23264	23357	
==>OR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41188	41281	
==>OR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37214	37307	
==>OR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10646	10746	
==>reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "matc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9325	9456	
==>($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univer <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9325	9456	
==>($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univer <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8550	8639	
==>s, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2375	2464	
==>s, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12431	12611	
==>->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12431	12611	
==>->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12431	12611	
==>->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11667	11775	
==>de) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($_[0]) })
        : $node
}

package Dyna <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5434	5528	
==>e } '... instance calling metaclass method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7507	7591	
==>----------------------------------------------------------------
## END BOOTSTRAPPING <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7507	7591	
==>----------------------------------------------------------------
## END BOOTSTRAPPING <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7507	7591	
==>----------------------------------------------------------------
## END BOOTSTRAPPING <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	468	566	
==>as Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($sel <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	468	566	
==>as Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($sel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20230	20322	
==>me as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20230	20322	
==>me as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=h <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	66	174	
==>, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `.. <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	66	174	
==>, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `.. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2477	2578	
==>use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this modul <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2477	2578	
==>use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	252	412	
==>o = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	252	412	
==>o = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	252	412	
==>o = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } el <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4765	4854	
==>ounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_range_bounds_RHS(_Min,-)   --> ",", !. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2021	2170	
==>y($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2021	2170	
==>y($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2021	2170	
==>y($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1833	1946	
==>y($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3503	3620	
==>&& !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3503	3620	
==>&& !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	31	133	
==>imple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defau <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	31	133	
==>imple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defau <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16053	16214	
==>_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16047	16208	
==>_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26557	26652	
==>e constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26557	26652	
==>e constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6544	6656	
==>reserved
        # correctly.  Otherwise, root through the file to locate the case-preserved
        # version of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18107	18258	
==>( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18386	18537	
==>( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gram <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	226	340	
==>e"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = B <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	226	340	
==>e"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = B <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3576	3753	
==>tate};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4504	4677	
==>tate};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3465	3638	
==>tate};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4504	4677	
==>tate};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	290	451	
==>ub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1835	1935	
==>self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1835	1935	
==>self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1835	1935	
==>self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6306	6409	
==>e_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6306	6409	
==>e_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6306	6409	
==>e_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6577	6677	
==>WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2117	2234	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2117	2234	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2117	2234	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = sh <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1981	2068	
==>t  { <construct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<captu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4948	5062	
==>et = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4948	5062	
==>et = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.span <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30988	31085	
==>rom others in
its set. For maximum flexibility in their use, the full name of a module
consists of <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30988	31085	
==>rom others in
its set. For maximum flexibility in their use, the full name of a module
consists of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13888	14003	
==>_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19092	19207	
==>_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13888	14003	
==>_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19092	19207	
==>_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1929	2032	
==>g(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1929	2032	
==>g(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1929	2032	
==>g(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14716	14817	
==>ion body
	# for this reason the function needs to be cloned (so it will stay generic when we leave the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4166	4270	
==>`end()`

Return the start or end value of the span.

These methods may return nothing if the span is empt <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15346	15450	
==>`end()`

Return the start or end value of the span.

These methods may return nothing if the span is empt <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4166	4270	
==>`end()`

Return the start or end value of the span.

These methods may return nothing if the span is empt <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15346	15450	
==>`end()`

Return the start or end value of the span.

These methods may return nothing if the span is empt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23763	23862	
==>.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIV <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22536	22635	
==>.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIV <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23763	23862	
==>.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIV <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22536	22635	
==>.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference between
  NOTICE and PRIV <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2127	2243	
==>{}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $me <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	578	685	
==>$s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1];
}


sub is_promise($a) {
  return $a. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	132	238	
==>{}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $me <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	132	238	
==>{}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23603	23750	
==>)
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23882	24029	
==>)
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3089	3193	
==>stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3089	3193	
==>stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	324	547	
==>'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	418	683	
==>pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of-line
                \# (?-s:.)*   
            )+
        ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	403	506	
==>and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	403	506	
==>and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	403	506	
==>and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13610	13752	
==>nfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13610	13752	
==>nfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	825	925	
==>rts PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do not <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	825	925	
==>rts PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do not <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	561	740	
==>$name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    mu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	561	740	
==>$name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    mu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2597	2732	
==>ter};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2597	2732	
==>ter};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18749	18865	
==>_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18749	18865	
==>_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18749	18865	
==>_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2568	2674	
==>TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
no <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1205	1343	
==>hunk;
    use base 'Unit';

    sub digest {
        my $self = shift;
        Digest->compute($self);
    }

    package Env;
    use base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2846	2956	
==>=> "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2846	2956	
==>=> "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2846	2956	
==>=> "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2736	2824	
==>y $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6188	6276	
==>y $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2736	2824	
==>y $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2736	2824	
==>y $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3946	4132	
==>fined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3825	4004	
==>fined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23208	23321	
==>$S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19629	19742	
==>$S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4148	4261	
==>, aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4148	4261	
==>, aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4148	4261	
==>, aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10036	10146	
==>ch - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21531	21635	
==>val::ISA, __PACKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23696	23786	
==>to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22469	22559	
==>to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mes <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23696	23786	
==>to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mes <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22469	22559	
==>to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE mes <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	253	370	
==>od is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	253	370	
==>od is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	334	436	
==>ker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sit <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	334	436	
==>ker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sit <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8092	8187	
==>ix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7222	7317	
==>ix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8092	8187	
==>ix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7222	7317	
==>ix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5995	6121	
==>_skipped     Number of individual tests skipped
    todo            Number of individual todo tests

    files           Number <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6817	6920	
==>his sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6817	6920	
==>his sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9014	9117	
==>his sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5711	5837	
==>stant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6264	6390	
==>stant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5904	6030	
==>stant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6457	6583	
==>stant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20458	20671	
==>y->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20458	20671	
==>y->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20458	20671	
==>y->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "S <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3197	3313	
==>d command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	409	514	
==>efs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) { <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	409	514	
==>efs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	326	427	
==>nvite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(... <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	326	427	
==>nvite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(... <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46593	46866	
==>' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11227	11353	
==>.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14704	14830	
==>.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14012	14138	
==>.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15662	15784	
==>ce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2059	2181	
==>ce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	551	653	
==>del-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	551	653	
==>del-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	609	695	
==>]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	609	695	
==>]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	609	695	
==>]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17905	18000	
==>ARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17905	18000	
==>ARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2078	2173	
==>head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2000	2092	
==>head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # use <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	535	718	
==>ym('$y'),
            ),
        ),
    ),

    '&infix:<*>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1758	1879	
==>JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1758	1879	
==>JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1758	1879	
==>JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3033	3146	
==>pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("& <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3033	3146	
==>pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("& <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3033	3146	
==>pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("& <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	836	948	
==>equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => [],
		defined_nodes => Set::Object->new,
		nam <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1161	1258	
==>icular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=h <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1161	1258	
==>icular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=h <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14230	14326	
==>0]

It would not make sense to iterate through a continuous span, because the "separation" 
betwe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14230	14326	
==>0]

It would not make sense to iterate through a continuous span, because the "separation" 
betwe <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4711	4838	
==>"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4711	4838	
==>"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1796	1909	
==>emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1936	2049	
==>emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15366	15491	
==>**12;
    # XXX: waiting on a better want
    #if want ~~ rx:P5/^Item/ {
    #    $res = Pugs::Internals::localtime(Bool::True <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6971	7069	
==>ot implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "no <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1326	1422	
==>ot implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "no <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	425	520	
==>ot implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "no <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2930	3093	
==>}

            when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    m <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2930	3093	
==>}

            when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17008	17145	
==>e = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17287	17424	
==>e = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7888	7989	
==>open (my $fh,'>', $index_file) or die "Failed to open $index_file: $!";
    my @dirs  = sort keys %{$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6385	6484	
==>};
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6385	6484	
==>};
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6385	6484	
==>};
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	807	916	
==>ceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	807	916	
==>ceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	807	916	
==>ceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12572	12755	
==>$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12566	12749	
==>$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13106	13285	
==>$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13100	13279	
==>$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21452	21550	
==>o_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exist <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21452	21550	
==>o_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exist <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21452	21550	
==>o_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exist <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	136	234	
==>.


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOP <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	136	234	
==>.


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOP <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17958	18050	
==>ARGV && $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pkg_re_tests::test(sub{my( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3748	3840	
==>:OnPerl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12906	13013	
==>, $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visua <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27045	27152	
==>, $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visua <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6530	6635	
==>::split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6530	6635	
==>::split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	640	751	
==>tive types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift) + 0) }

# methods

sub name { str- <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1041	1145	
==>delme
        Pugs::Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	38	130	
==>module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	38	130	
==>module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	38	130	
==>module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4002	4112	
==>r a semicolon in "};" is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comment <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15407	15507	
==>LTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15407	15507	
==>LTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15407	15507	
==>LTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6888	7010	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6888	7010	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6888	7010	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2918	3013	
==>p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class name');

is($p1->get_x, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1669	1783	
==>)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1669	1783	
==>)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1669	1783	
==>)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	115	211	
==>=pod

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	732	832	
==>{ (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	732	832	
==>{ (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	732	832	
==>{ (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1009	1127	
==>},
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1009	1127	
==>},
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1009	1127	
==>},
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	961	1058	
==>>new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36091	36198	
==>e.  Now
we just need to return the regex representation of our children:

    return join "",
      map($_-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	444	538	
==>IL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CON <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	444	538	
==>IL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CON <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	444	538	
==>IL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4581	4684	
==>htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4581	4684	
==>htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4581	4684	
==>htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2317	2430	
==>y %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2317	2430	
==>y %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2317	2430	
==>y %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6035	6141	
==>]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]-> <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6846	6980	
==>pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3017	3125	
==>ringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3017	3125	
==>ringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3017	3125	
==>ringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4520	4625	
==>exp '.' BAREWORD '(' exp ')'  %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	322	422	
==>S;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resour <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	322	422	
==>S;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resour <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	322	422	
==>S;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resour <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2141	2350	
==>t("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                wh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2141	2350	
==>t("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                wh <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6656	6750	
==>ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6656	6750	
==>ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2522	2659	
==>e after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2522	2659	
==>e after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	128	224	
==>ings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	128	224	
==>ings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Ru <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1278	1401	
==>"Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1278	1401	
==>"Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1513	1615	
==>';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ENUM, 'Unrecognized <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	261	377	
==>pty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_clos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	261	377	
==>pty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_clos <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2297	2400	
==>s in the type at the end of the pass, and the original object they had
	# this lets us assign letters to <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28863	28961	
==>er for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names that have n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	499	600	
==>ype: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1112	1213	
==>ype: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	499	600	
==>ype: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1112	1213	
==>ype: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remo <==
4	/Users/nnunley/pugs/util/addauthors.pl	736	860	
==>ncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{whol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5978	6080	
==>:Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How woul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5978	6080	
==>:Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How woul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5978	6080	
==>:Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How woul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	379	505	
==>int "match pair $_[0]\n";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	473	573	
==>ad of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	473	573	
==>ad of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	473	573	
==>ad of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].d <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	48	146	
==>ISY','FORCE';
# please help fill in this file
# a method of autogenrating bindings from vtable.h is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1467	1563	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1467	1563	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1467	1563	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3268	3376	
==>v6.pm> module.

This is an invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute C</u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3451	3772	
==>ebug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3451	3772	
==>ebug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13958	14082	
==>r id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13958	14082	
==>r id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Roset <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16531	16651	
==>},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15585	15697	
==>},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	478	574	
==>%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, key <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	478	574	
==>%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, key <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2857	2978	
==>"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4699	4818	
==>b as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4699	4818	
==>b as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4699	4818	
==>b as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1119	1240	
==>( $n ); 
    #warn "fixity: $n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a su <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3998	4105	
==>$1cd $canonical_base/mg;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14022	14116	
==>rs in $string with their entity
representation. A second argument can be given to specify which <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14022	14116	
==>rs in $string with their entity
representation. A second argument can be given to specify which <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8293	8408	
==>le );

    return $self->add_package(package => $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26405	26497	
==>, the corresponding projection of
each tuple), but that any duplicates following the projecti <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30957	31049	
==>, the corresponding projection of
each tuple), but that any duplicates following the projecti <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29959	30051	
==>, the corresponding projection of
each tuple), but that any duplicates following the projecti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3693	3806	
==>ter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3561	3670	
==>ter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Gramma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15054	15150	
==>multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15112	15208	
==>multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. T <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	326	464	
==>ub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	810	948	
==>ub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	228	362	
==>ub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	108	231	
==>b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.k <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	108	231	
==>b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.k <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6736	6834	
==>ached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument t <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6736	6834	
==>ached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26086	26254	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10744	10911	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38716	38883	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39243	39410	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	564	674	
==>) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	564	674	
==>) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	564	674	
==>) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_contai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25953	26052	
==>f called with ampersands, and only if
the parser object is the first value in C<@_>.>  I made sure o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2803	2924	
==>ot::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2803	2924	
==>ot::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2803	2924	
==>ot::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warnin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	839	956	
==>mpty == $bit::FALSE) ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        retu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17532	17652	
==>k->push_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{te <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13037	13149	
==>if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backslash:
    inc pos
    $S0 = substr target, pos <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5625	5723	
==>ished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5625	5723	
==>ished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11632	11728	
==>my $orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12888	12981	
==>e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9664	9757	
==>e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12888	12981	
==>e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9664	9757	
==>e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7466	7577	
==>ams = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2064	2172	
==>t; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2064	2172	
==>t; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2064	2172	
==>t; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	782	892	
==>ount++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	782	892	
==>ount++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	782	892	
==>ount++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22865	22950	
==>(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T).

%------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14336	14420	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14336	14420	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14336	14420	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	328	425	
==>tion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	328	425	
==>tion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	328	425	
==>tion ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6560	6647	
==>quiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*') <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1747	1864	
==>od2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1747	1864	
==>od2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2816	2926	
==>rn 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2816	2926	
==>rn 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	296	416	
==>ameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method g <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	296	416	
==>ameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14779	14873	
==>default is "\n".  Embedded "\n" characters in header field
values will be substituted with this <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14779	14873	
==>default is "\n".  Embedded "\n" characters in header field
values will be substituted with this <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1896	2013	
==>ILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1896	2013	
==>ILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1180	1274	
==>sar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter freq <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1180	1274	
==>sar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter freq <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2802	2930	
==>al_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7896	8024	
==>al_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2802	2930	
==>al_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7896	8024	
==>al_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1825	2232	
==>et)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1825	2232	
==>et)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External p <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2450	2571	
==>kens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n) <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2450	2571	
==>kens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1841	1971	
==>eys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1841	1971	
==>eys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1841	1971	
==>eys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	147	244	
==>-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	147	244	
==>-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	147	244	
==>-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retur <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1545	1652	
==>ning probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2207	2314	
==>ning probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12180	12281	
==>tend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $ts <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12180	12281	
==>tend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $ts <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5319	5420	
==>rt {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5319	5420	
==>rt {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4184	4298	
==>urn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_u <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5081	5195	
==>urn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_u <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4184	4298	
==>urn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_u <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5081	5195	
==>urn $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_u <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3675	4059	
==>ould use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $sta <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3675	4059	
==>ould use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $sta <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17267	17386	
==>ined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1068	1172	
==>sed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    return $self->{$key->to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1633	1808	
==>ds')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1633	1808	
==>ds')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1633	1808	
==>ds')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and u <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	227	332	
==>f:) returns Int {
    ...
}

method add($self: Duration $duration) returns Date {
    ...
}

method subtra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3311	3428	
==>system( qq[mkdir -p $builddir] )                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	745	846	
==>ing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	745	846	
==>ing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	745	846	
==>ing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\" <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4440	4558	
==>{
        $dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated_by: $package version <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4925	5029	
==>0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4925	5029	
==>0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4925	5029	
==>0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2598	2698	
==>i());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2598	2698	
==>i());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2598	2698	
==>i());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20403	20495	
==>nite-state machine (aka syntax charts or "railroad normal form" in
parsing technology).  Each <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13846	13998	
==>push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3959	4095	
==>push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3959	4095	
==>push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3959	4095	
==>push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        pu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24373	24554	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25636	25817	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24652	24833	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25915	26096	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18060	18157	
==>_as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18060	18157	
==>_as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17174	17270	
==>fsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want w <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22274	22370	
==>fsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	416	518	
==>ur @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	416	518	
==>ur @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	416	518	
==>ur @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4290	4413	
==>mp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4290	4413	
==>mp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4290	4413	
==>mp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@c <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21711	21825	
==>~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3	106	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3	106	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3	106	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7119	7274	
==>MBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loade <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7119	7274	
==>MBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loade <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4700	4833	
==>lement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4700	4833	
==>lement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3833	3937	
==>s> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { require_barewor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16759	16855	
==>PTION

This module implements a "List" object.

new() without parameters is an empty list.

=head <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16759	16855	
==>PTION

This module implements a "List" object.

new() without parameters is an empty list.

=head <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16759	16855	
==>PTION

This module implements a "List" object.

new() without parameters is an empty list.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9940	10036	
==>ishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19734	19830	
==>orization_basic

This method is used to get or set an authorization header that use the
"Basic Au <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9940	10036	
==>ishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19734	19830	
==>orization_basic

This method is used to get or set an authorization header that use the
"Basic Au <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5803	5956	
==>$middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                ste <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5803	5956	
==>$middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                ste <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5803	5956	
==>$middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                ste <==
4	/Users/nnunley/pugs/util/package-osx.pl	1576	1674	
==>/5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_perl/PIL.pm /Library/Perl/5.8.6/PIL.pm
        / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	517	620	
==>($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	517	620	
==>($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	517	620	
==>($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 200 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6924	7056	
==>($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($bo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6924	7056	
==>($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($bo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1640	1740	
==>ooking for method (" . $label->to_native . ")";
        if ($methods->exists($label) == $bit::TRUE) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	824	922	
==>bexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http://mail.python.org/piper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7348	7446	
==>nd        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7348	7446	
==>nd        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7348	7446	
==>nd        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4975	5081	
==>s rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4975	5081	
==>s rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1613	1718	
==>o at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1613	1718	
==>o at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	679	801	
==>f ($prompt_register) {
        print << ".";
*** Installed!  If you would like to make Pugs a system-wide GHC package
    f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38235	38332	
==>O.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42784	42881	
==>O.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42434	42531	
==>O.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10208	10338	
==>ndef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10208	10338	
==>ndef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4492	4589	
==>pt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4492	4589	
==>pt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3611	3714	
==>Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $! <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3611	3714	
==>Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18202	18297	
==>ultiple DBMS
objects want to use the same external resources, such as a repository file
on disk, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18202	18297	
==>ultiple DBMS
objects want to use the same external resources, such as a repository file
on disk, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	340	456	
==>rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { num => 'NaN' ,} } ) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6226	6335	
==>@ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6226	6335	
==>@ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6226	6335	
==>@ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3643	3757	
==>PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3643	3757	
==>PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	493	607	
==>PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5568	5671	
==>= \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7840	7983	
==>ement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7840	7983	
==>ement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7840	7983	
==>ement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	862	996	
==>} }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24426	24539	
==>et_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24426	24539	
==>et_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24426	24539	
==>et_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1842	1941	
==>ous\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39382	39481	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keye <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5117	5216	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39382	39481	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5117	5216	
==>ncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::Keye <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9882	10000	
==>PKG environment variable.\n"
        unless $ghc_pkg;

    return $self->{ghc_pkg} = $ghc_pkg;
}


sub fixpaths {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10040	10142	
==>,
		);
	},
	# list a
	nil => type::operator::nary->new(list => type::variable::free->new),
	# list a -> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4183	4280	
==>has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns posit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4183	4280	
==>has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns posit <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4387	4563	
==>closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1686	1786	
==>) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1686	1786	
==>) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1686	1786	
==>) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2021	2125	
==>(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        retu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1295	1399	
==>count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub leave_scope {
	my $self = shift;

	$self->SUPER: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2021	2125	
==>(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2021	2125	
==>(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        retu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6441	6563	
==>two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5571	5693	
==>two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6441	6563	
==>two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5571	5693	
==>two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16976	17131	
==>y->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16976	17131	
==>y->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16976	17131	
==>y->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	122	229	
==>e strict;
use warnings;

use UNIVERSAL::moniker;
use String::Escape qw/quote printable/;
use Blondie::Reduce <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12473	12631	
==>',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) {
        $class = $test_class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	622	722	
==>s  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	622	722	
==>s  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	622	722	
==>s  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2974	3085	
==>tringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2974	3085	
==>tringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2974	3085	
==>tringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	621	872	
==>ackage Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the L <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	621	872	
==>ackage Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the L <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24582	24689	
==>tom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21003	21110	
==>tom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	145	252	
==>ACKAGE__;
sub new { $NIL }

# conversion to native
sub to_native { undef }

# conversion to other native typ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9135	9297	
==>f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13108	13237	
==>al with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13108	13237	
==>al with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13108	13237	
==>al with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be de <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1720	1878	
==>$.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1720	1878	
==>$.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     star <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10057	10145	
==>ined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10792	10880	
==>ined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9267	9381	
==>| dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10744	10858	
==>| dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5968	6060	
==>$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    g <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5968	6060	
==>$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2436	2554	
==>{op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shift;
    my $self = { levels <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4017	4106	
==>Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4017	4106	
==>Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4017	4106	
==>Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	929	1115	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	929	1115	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	320	423	
==>package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	320	423	
==>package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6753	6879	
==>able} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6753	6879	
==>able} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6753	6879	
==>able} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4464	4566	
==>ss =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4914	5058	
==>ay::shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22408	22506	
==>ch return the same result when invoked on the
same object with the same arguments; they do not inte <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26960	27058	
==>ch return the same result when invoked on the
same object with the same arguments; they do not inte <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25683	25781	
==>ch return the same result when invoked on the
same object with the same arguments; they do not inte <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11780	11878	
==>1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11780	11878	
==>1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7928	8020	
==>omplement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7928	8020	
==>omplement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_prev <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	974	1084	
==>truct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accesso <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1638	1748	
==>truct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accesso <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1240	1336	
==>dules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently th <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1240	1336	
==>dules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7149	7259	
==>$self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7149	7259	
==>$self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7149	7259	
==>$self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18132	18229	
==>used
variously to return the compiled regexp, to give input to a search,
and to get back match res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	801	896	
==>declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper supp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	801	896	
==>declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper supp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	801	896	
==>declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper supp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3502	3638	
==>}
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3502	3638	
==>}
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4279	4374	
==>h.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.n <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4279	4374	
==>h.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1599	1736	
==>ubstr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1534	1664	
==>ubstr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# - <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6653	6753	
==>PI, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTH <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6653	6753	
==>PI, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTH <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1157	1286	
==>ght.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int mult <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10313	10421	
==>intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13790	13898	
==>intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13071	13179	
==>intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $othe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11136	11248	
==>gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11136	11248	
==>gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $pa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	265	365	
==>World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	265	365	
==>World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3631	3727	
==>56 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3631	3727	
==>56 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied C <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6918	7033	
==>} ) ~"]";
}

# tweaked from PIL2JS Operators.pm r8593.
# Prim.hs says \\n   Scalar    left    .[]     safe   (Array, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3838	3944	
==>ould get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too ear <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3838	3944	
==>ould get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too ear <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3838	3944	
==>ould get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too ear <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24389	24504	
==>);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24389	24504	
==>);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24389	24504	
==>);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4877	4977	
==>ned($node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defined_nodes}->ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14550	14634	
==>in::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14550	14634	
==>in::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14550	14634	
==>in::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2841	2952	
==>.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        clo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2841	2952	
==>.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        clo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13368	13463	
==>ch you can create an identical Document (with member
Nodes) to the one you first invoked export_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13368	13463	
==>ch you can create an identical Document (with member
Nodes) to the one you first invoked export_ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	547	649	
==>$class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<densit <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	547	649	
==>$class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<densit <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7566	7661	
==>r' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' direct <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7566	7661	
==>r' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' direct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11638	11749	
==>y, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11638	11749	
==>y, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11638	11749	
==>y, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2957	3058	
==>-> Num )
 {
     Math::Trig::'~$func~'($x,$base);
 }
 multi Math::Trig::'~$func~' ( Num $x = CALLER::< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2630	2759	
==>llow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15458	15559	
==>celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15458	15559	
==>celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15458	15559	
==>celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3492	3616	
==>s!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3492	3616	
==>s!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3492	3616	
==>s!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13004	13207	
==>res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13004	13207	
==>res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13004	13207	
==>res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21549	21681	
==>rcent,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $fa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	461	556	
==>Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher A <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	461	556	
==>Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher A <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1686	1780	
==>one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_supe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1686	1780	
==>one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6022	6176	
==>be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6022	6176	
==>be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6022	6176	
==>be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SEL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1488	1597	
==>" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11720	11816	
==>in common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures tha <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11720	11816	
==>in common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures tha <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4270	4359	
==>pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_code { $_[0]{'pil_code'}->value }
sub as_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14633	14727	
==>hod_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14633	14727	
==>hod_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14633	14727	
==>hod_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_att <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1175	1269	
==>RGV = sort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6505	6609	
==>nfix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:looser|tighter|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5667	5765	
==>t.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5667	5765	
==>t.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5667	5765	
==>t.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js tes <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9662	9883	
==>ew('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17140	17224	
==>te_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17140	17224	
==>te_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17140	17224	
==>te_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:at <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2916	3033	
==>other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29374	29466	
==>ng-valued attributes have been split/unwrapped into other
attributes.  The members of the arg <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33926	34018	
==>ng-valued attributes have been split/unwrapped into other
attributes.  The members of the arg <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33090	33182	
==>ng-valued attributes have been split/unwrapped into other
attributes.  The members of the arg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6232	6333	
==>t a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6232	6333	
==>t a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1689	1786	
==>h three node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1621	1715	
==>h three node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1833	1942	
==>= sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1833	1942	
==>= sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5476	5579	
==>plication.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will imp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5476	5579	
==>plication.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will imp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2790	2889	
==>got the right class name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... go <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13291	13457	
==>dx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3460	3606	
==>dx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3460	3606	
==>dx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3460	3606	
==>dx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2454	2553	
==>one_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2454	2553	
==>one_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2454	2553	
==>one_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13019	13117	
==>dValueList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11317	11436	
==>ded for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11317	11436	
==>ded for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11317	11436	
==>ded for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function ( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3118	3220	
==>",strbeg,stringarg,strend);
    fprintf(stderr," flags=%lu\n",flags);
    fprintf(stderr," start=%lu\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24026	24165	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24305	24444	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7537	7637	
==>= $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@b <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7537	7637	
==>= $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@b <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7780	7877	
==>span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7780	7877	
==>span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) retu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	558	668	
==>ues {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3157	3261	
==>ntinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3157	3261	
==>ntinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3157	3261	
==>ntinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31203	31452	
==>rams => method::params->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3440	3550	
==>= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3440	3550	
==>= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3440	3550	
==>= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($me <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9699	9842	
==>e ( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scala <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	922	1043	
==>e ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scala <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15811	15907	
==>lue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15811	15907	
==>lue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2495	2604	
==>thod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.comple <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5698	5807	
==>thod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.comple <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2495	2604	
==>thod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.comple <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5698	5807	
==>thod difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.comple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6247	6418	
==>attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6247	6418	
==>attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6247	6418	
==>attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflic <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19240	19340	
==>c::evalfile (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi C <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3666	3771	
==>RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj->posi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1005	1100	
==>re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1005	1100	
==>re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1005	1100	
==>re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12958	13053	
==>ead2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12958	13053	
==>ead2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new se <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4300	4394	
==>ied and expected lines from the previously run tests,
passing if both the diagnostics and outpu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4300	4394	
==>ied and expected lines from the previously run tests,
passing if both the diagnostics and outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4380	4474	
==>ied and expected lines from the previously run tests,
passing if both the diagnostics and outpu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	679	826	
==>return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	690	837	
==>return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XX <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	352	457	
==>y, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and ge <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	352	457	
==>y, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16124	16324	
==>.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16124	16324	
==>.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16124	16324	
==>.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	607	706	
==>lit m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] for sort @use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	218	317	
==>ant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	218	317	
==>ant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	218	317	
==>ant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1569	1659	
==>ass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1569	1659	
==>ass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1569	1659	
==>ass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20620	20714	
==>nfix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20620	20714	
==>nfix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20620	20714	
==>nfix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10417	10500	
==>, isLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$paramNa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2347	2485	
==>my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2347	2485	
==>my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2347	2485	
==>my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	357	461	
==>metainfo name later? requires peeking in, might be a
    ### catch22 if we don't do it from repository me <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6120	6235	
==>$dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `ca <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8188	8303	
==>$dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6120	6235	
==>$dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8188	8303	
==>$dir) returns Array`

- `splitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `ca <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9457	9588	
==>obably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all th <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2510	2641	
==>obably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3597	3689	
==>params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3597	3689	
==>params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11444	11589	
==>fore heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - her <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11444	11589	
==>fore heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - her <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2832	2950	
==>r ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2832	2950	
==>r ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2817	2926	
==>);
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Ge <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3362	3471	
==>);
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Ge <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19248	19344	
==>eader must be included as part of a C<401 Unauthorized> response.
The field value consist of a ch <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19248	19344	
==>eader must be included as part of a C<401 Unauthorized> response.
The field value consist of a ch <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1066	1184	
==>e-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1066	1184	
==>e-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named var <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11145	11242	
==>P spec (RFC 2616) promise that joining multiple
values in this way will not change the semantic of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11145	11242	
==>P spec (RFC 2616) promise that joining multiple
values in this way will not change the semantic of <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	579	706	
==>cs returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	579	706	
==>cs returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11048	11159	
==>}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11048	11159	
==>}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11048	11159	
==>}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	551	655	
==>ed($inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SUP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	620	729	
==>{
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	620	729	
==>{
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	620	729	
==>{
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaust <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	155	288	
==>on {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	155	288	
==>on {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - m <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11455	11550	
==>in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Return <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11455	11550	
==>in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Return <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6241	6372	
==>f (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6241	6372	
==>f (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1042	1143	
==>elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1042	1143	
==>elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1042	1143	
==>elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28150	28248	
==>NKFIRST_COW_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2174	2362	
==>mp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2174	2362	
==>mp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( sp <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	561	699	
==>ch -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $c <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	561	699	
==>ch -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $c <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3423	3556	
==>{
        $ret = emit_Int( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1148	1246	
==>a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1148	1246	
==>a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1148	1246	
==>a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1901	2099	
==>atch

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2323	2514	
==>atch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1839	2030	
==>atch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2323	2514	
==>atch
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9549	9657	
==>> word => $neg, $how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1218	1313	
==>hod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1218	1313	
==>hod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1218	1313	
==>hod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1550	1651	
==>t}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[3], exp1 => \$_[1], } }", 
    infix_left = <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	715	848	
==>'   {
        print template( "wiki.tmpl", topic => '', entry => '', entry_html => '');
    }
    when 'edit' {
        print template <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35285	35392	
==>C</i> on)

Data: array reference of actual characters

=head2 quant

Family: quant

Types: star (C<*>), plus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7664	7760	
==>mitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7664	7760	
==>mitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7664	7760	
==>mitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8071	8239	
==>s ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8472	8640	
==>s ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8071	8239	
==>s ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8472	8640	
==>s ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12933	13025	
==>`lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12991	13083	
==>`lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1303	1403	
==>!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1303	1403	
==>!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1303	1403	
==>!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "i <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	387	486	
==>l_version tests
>;
my @tuple_keys = qw<
    build_requires requires recommends bundles
>;

foreach m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4709	4810	
==>";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4849	4950	
==>";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1281	1374	
==>i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the pars <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1281	1374	
==>i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the pars <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1216	1333	
==>nf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1216	1333	
==>nf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12196	12295	
==>self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12196	12295	
==>self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7094	7209	
==>dler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17491	17590	
==>nterface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17491	17590	
==>nterface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17491	17590	
==>nterface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7855	8031	
==>ete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $pat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7855	8031	
==>ete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $pat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2199	2318	
==>_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2199	2318	
==>_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1054	1179	
==>,
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1054	1179	
==>,
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8406	8496	
==>::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2231	2321	
==>::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36427	36525	
==>(?> >>)

Data: array reference of any number of objects

Ender: tail

=head2 ifthen

Family: assert <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27586	27682	
==>all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32138	32234	
==>all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31230	31326	
==>all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	465	569	
==>x = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	465	569	
==>x = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	465	569	
==>x = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24131	24233	
==>, "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3430	3552	
==>ontents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3430	3552	
==>ontents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3430	3552	
==>ontents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	463	565	
==>Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17179	17328	
==>butes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17179	17328	
==>butes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1761	1869	
==>.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::String $P) {
    if $O.pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11760	11867	
==>$self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	151	263	
==>e qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	224	336	
==>e qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3310	3418	
==>{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3310	3418	
==>{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2038	2135	
==>e = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2038	2135	
==>e = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2038	2135	
==>e = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pre <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3030	3121	
==>= @_;
    (exists $options{params} && blessed($options{params}) && $options{params}->isa('cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14186	14323	
==>_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14186	14323	
==>_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14186	14323	
==>_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5642	5748	
==>uct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15518	15625	
==>$_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15518	15625	
==>$_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15518	15625	
==>$_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3321	3417	
==>ode_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8118	8251	
==>nt "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8130	8263	
==>nt "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19982	20077	
==>s, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific to <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19982	20077	
==>s, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific to <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7884	8000	
==>.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2547	2659	
==>ass->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2547	2659	
==>ass->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2547	2659	
==>ass->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15540	15649	
==>? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15540	15649	
==>? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15540	15649	
==>? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15928	16027	
==>eled "Internal use only" is one of the most widely used. ;)
Zero seems safe.  But more nuanced treat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1952	2060	
==>d_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1952	2060	
==>d_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1952	2060	
==>d_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2299	2397	
==>R functionality fixed proper to use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subd <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1414	1520	
==>ey );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1414	1520	
==>ey );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3078	3176	
==>sult5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3624	3722	
==>sult5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	149	247	
==>1
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	149	247	
==>1
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	149	247	
==>1
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2597	2711	
==>d,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument < <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2597	2711	
==>d,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument < <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8201	8294	
==>assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2026	2119	
==>assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	722	830	
==>s like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	722	830	
==>s like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	722	830	
==>s like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6142	6247	
==>rint $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variable '$out' inside the parse <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	681	775	
==>that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<con <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	681	775	
==>that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<con <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15538	15631	
==>, or their
privileges regarding access to information details, or their technical
skills.  For <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15538	15631	
==>, or their
privileges regarding access to information details, or their technical
skills.  For <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1489	1620	
==>t @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1489	1620	
==>t @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1489	1620	
==>t @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5790	5878	
==>lemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	501	594	
==>}
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	501	594	
==>}
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	501	594	
==>}
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2413	2515	
==>de;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2413	2515	
==>de;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11922	12021	
==>s for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11922	12021	
==>s for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10049	10174	
==>@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .jo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10002	10106	
==>s Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10002	10106	
==>s Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9215	9354	
==>[\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3410	3523	
==>ng(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3410	3523	
==>ng(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3410	3523	
==>ng(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2781	2959	
==>_('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'ok ' : 'not ok ';
            $ok    .= _('$.number');
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4912	5008	
==>ntion
# paid to the associativity of the original operator and auto-metaed versions
# of user-def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4912	5008	
==>ntion
# paid to the associativity of the original operator and auto-metaed versions
# of user-def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4912	5008	
==>ntion
# paid to the associativity of the original operator and auto-metaed versions
# of user-def <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3700	3835	
==>=~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3893	4028	
==>=~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]- <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1072	1190	
==>eZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Ide <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1072	1190	
==>eZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Ide <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2597	2724	
==>') }),
                '-p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4102	4215	
==>{} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4102	4215	
==>{} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4102	4215	
==>{} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40529	40624	
==>ill be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26043	26138	
==>ill be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40529	40624	
==>ill be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26043	26138	
==>ill be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18592	18689	
==>ody => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation::Example $other!) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1258	1352	
==>ject's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1258	1352	
==>ject's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1258	1352	
==>ject's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8863	8953	
==>ails';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calling metaclas <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9619	9734	
==>ax_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the paren <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9619	9734	
==>ax_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the paren <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8848	8958	
==>elf.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($lat <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8848	8958	
==>elf.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($lat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1383	1482	
==>s::Compiler::Rule->compile(q(<'token'> <rule_name> <mod>* <block>
    {
        my $body = substr($< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23106	23204	
==>tch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27658	27756	
==>tch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26435	26533	
==>tch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3265	3397	
==>ile = $mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing de <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1487	1592	
==>);
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1487	1592	
==>);
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1567	1672	
==>);
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13566	13693	
==>e
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	906	1153	
==>le Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common compreh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	906	1153	
==>le Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common compreh <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5116	5209	
==>P::UserAgent> module.

The following functions are provided (and exported) by this module:

=o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5116	5209	
==>P::UserAgent> module.

The following functions are provided (and exported) by this module:

=o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9991	10105	
==>eading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13468	13582	
==>eading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12749	12863	
==>eading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8384	8506	
==>e;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8384	8506	
==>e;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8384	8506	
==>e;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13018	13149	
==>$length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13018	13149	
==>$length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13018	13149	
==>$length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1903	2034	
==>$length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1929	2080	
==>es,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             tog <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1929	2080	
==>es,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             tog <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1929	2080	
==>es,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             tog <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6703	6807	
==>ift;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13807	13940	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13807	13940	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13807	13940	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    }, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34274	34372	
==>->get('$self:')->send('dispatcher', symbol->new(':canonical')));
                $e->create('$next' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17095	17193	
==>pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its times <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17095	17193	
==>pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its times <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12730	12932	
==>ams[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12730	12932	
==>ams[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12730	12932	
==>ams[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2202	2335	
==>$s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2202	2335	
==>$s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2202	2335	
==>$s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	82	171	
==>s';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::TestPlan' => class 'TestBuild <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3385	3482	
==>Empty = $self->termTable()->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($matchOb <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6683	6841	
==>,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6683	6841	
==>,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3978	4114	
==>ssoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5202	5338	
==>ssoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1673	1791	
==>eturn;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error("Package '". $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3442	3553	
==>for p2');
is($p2->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... got the right x f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3938	4039	
==>], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3938	4039	
==>], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Matc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1242	1438	
==>replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1242	1438	
==>replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8004	8140	
==>ue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8004	8140	
==>ue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7381	7495	
==>my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in character class") if $cc;
    return $S->force_object(anyof_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15	125	
==>rl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15	125	
==>rl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15	125	
==>rl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ", <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4234	4362	
==>ded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4234	4362	
==>ded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5997	6116	
==>.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5997	6116	
==>.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	762	882	
==>.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	762	882	
==>.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3163	3263	
==>erl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3356	3456	
==>erl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	252	352	
==>self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2513	2613	
==>round_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other math functions.
our bool mult <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	252	352	
==>self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	252	352	
==>self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5514	5648	
==>file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_version = shift;
    #my @o = qw( src/p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6388	6483	
==>return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6388	6483	
==>return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6388	6483	
==>return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4030	4142	
==>j->from() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2204	2306	
==>ORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2204	2306	
==>ORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2204	2306	
==>ORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	180	319	
==>,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	180	319	
==>,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	9	107	
==>n/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Mess <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	9	107	
==>n/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Mess <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3053	3169	
==>ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3053	3169	
==>ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1609	1704	
==>aders;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1609	1704	
==>aders;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %he <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2810	2908	
==>hift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2810	2908	
==>hift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	283	399	
==>w[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Objec <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3460	3562	
==>over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_pl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3460	3562	
==>over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_pl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3540	3642	
==>over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_pl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6598	6696	
==>Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is prim <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	528	626	
==>on {
    #$self.difference($other);
#}

#method infix:<->($self: Duration $duration) returns Date { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6598	6696	
==>Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6598	6696	
==>Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is prim <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9127	9271	
==>et("$current")->send("get_method", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e->g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3986	4083	
==>n_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3986	4083	
==>n_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3986	4083	
==>n_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3382	3494	
==>my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1740	1852	
==>my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2520	2632	
==>my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6781	6960	
==>D @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6781	6960	
==>D @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6781	6960	
==>D @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11186	11361	
==>turn $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18326	18442	
==>iter          , Int $limit = inf --> List )
 &split<> := &split<Str>.assuming:delimiter(' ');

String delimiters must <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21783	21876	
==>heir own resource files.  At some appropriate place, usually in the
main program, Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21783	21876	
==>heir own resource files.  At some appropriate place, usually in the
main program, Locale::Keye <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13976	14118	
==>f
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13976	14118	
==>f
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13976	14118	
==>f
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieabl <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	224	313	
==>dmin->include(@_) };
sub include_deps { +shift->admin->include_deps(@_) };
sub auto_includ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39940	40034	
==>ion::Example as its C<$other> argument and combines it with the
invocant relation into a new Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9010	9124	
==>' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8998	9112	
==>' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $pos <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1029	1128	
==>lass MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $da <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1029	1128	
==>lass MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $da <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18524	18626	
==>how made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18524	18626	
==>how made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12171	12265	
==>ities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&aci <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12171	12265	
==>ities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&aci <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12526	12646	
==>n
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the datab <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12526	12646	
==>n
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the datab <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10581	10679	
==>s! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param ( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10581	10679	
==>s! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param ( <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6884	7101	
==>perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6941	7158	
==>perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1028	1128	
==>?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in both Package

and Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	978	1076	
==>?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in both Package
and Co <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1617	1743	
==>.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program and exits.
  --help
    Show thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36895	37001	
==>ta::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36895	37001	
==>ta::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36895	37001	
==>ta::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	465	572	
==>, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	949	1056	
==>, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	79	174	
==>quest;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	79	174	
==>quest;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Reque <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6074	6175	
==>cific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6074	6175	
==>cific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19998	20089	
==>. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19998	20089	
==>. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5275	5376	
==>($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5275	5376	
==>($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5275	5376	
==>($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{arr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20584	20674	
==>"\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	947	1051	
==>n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1084	1188	
==>n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rul <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15164	15257	
==>ovided by third
parties) implement.  This interface is rigorously defined, such that there
sho <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15164	15257	
==>ovided by third
parties) implement.  This interface is rigorously defined, such that there
sho <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	744	917	
==>}
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=ba <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	744	917	
==>}
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=ba <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7848	7943	
==>ethod authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method pro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7848	7943	
==>ethod authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20432	20547	
==>* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16853	16968	
==>* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1259	1362	
==>rent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1259	1362	
==>rent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3214	3394	
==>nt == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3214	3394	
==>nt == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3214	3394	
==>nt == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8679	8789	
==>]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5162	5266	
==>x:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5162	5266	
==>x:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5162	5266	
==>x:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9533	9621	
==>r_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singleton_method' 
}) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4378	4481	
==>($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LW <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4378	4481	
==>($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LW <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6932	7032	
==>ext.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely us <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6932	7032	
==>ext.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6834	6949	
==>['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6834	6949	
==>['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6834	6949	
==>['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5053	5157	
==>ll_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run is overall successful or not.

=cut

sub _ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10393	10513	
==>'t open output test file $output_path: $!";
                         
  my $template = HTML::Template->new(filename => ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38457	38576	
==>y = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reve <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38457	38576	
==>y = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reve <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38457	38576	
==>y = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reve <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2120	2252	
==>}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2120	2252	
==>}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8417	8552	
==>pturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13928	14063	
==>pturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8417	8552	
==>pturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13922	14057	
==>pturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	941	1121	
==>(None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	941	1121	
==>(None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17492	17589	
==>ht time with the right data.

=item *

Ability to ship precompiled modules without shipping Module <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17492	17589	
==>ht time with the right data.

=item *

Ability to ship precompiled modules without shipping Module <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16558	16670	
==>y(
		my $t = type($.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19076	19176	
==>0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19076	19176	
==>0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19076	19176	
==>0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22606	22732	
==>('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19027	19153	
==>('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8956	9078	
==>see 7.8.4
      <DoubleStringCharacter> <DoubleStringCharacters>?
}
rule SingleStringCharacters {  # see 7.8.4
      <Singl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19040	19146	
==>"\n" if $eval_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3920	4035	
==>my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "ope <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3806	3945	
==>r caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say this: "f <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2214	2340	
==>def};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$id} if $debug;
      my $reduce_helper = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1714	1822	
==>ot {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{tree};
}


sub nparen {
  my ($sel <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	732	831	
==>his can work" to "ok, this looks doable".  So yes, the code is
an utter mess.

The project objective <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21069	21188	
==>= eval "package $pkg;".<<'    END';
    #  no strict;defined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	462	566	
==>> return value ] pair
### the default_value is the value of initalization, the return value is
### a subr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1473	1568	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FG <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1473	1568	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FG <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1473	1568	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35397	35516	
==>maining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35397	35516	
==>maining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35397	35516	
==>maining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shif <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2982	3093	
==>\x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 }


# A.1 Lexical Grammar

rule SourceChar <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13081	13199	
==>b/" . basename $_;
      }
    };

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    en <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6511	6622	
==>+ 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6511	6622	
==>+ 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6511	6622	
==>+ 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1090	1207	
==>rse> <op2> <equal>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1750	1856	
==>patchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1750	1856	
==>patchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1750	1856	
==>patchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11408	11547	
==>gin_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Pr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11408	11547	
==>gin_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18786	18881	
==><_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18786	18881	
==><_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11101	11228	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'exact',
      data => [$data],
      vis => [$vi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5874	5988	
==>, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5874	5988	
==>, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5874	5988	
==>, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10269	10417	
==>{
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10269	10417	
==>{
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16680	16826	
==>t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form take <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20157	20303	
==>t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form take <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5804	5927	
==>this:

    bonus           Number of individual todo tests unexpectedly passed
    max             Number of individual test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1250	1342	
==>your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1250	1342	
==>your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1250	1342	
==>your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25297	25423	
==>ft;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1210	1310	
==>sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1210	1310	
==>sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1210	1310	
==>sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespa <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1161	1268	
==>limiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimit <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1161	1268	
==>limiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimit <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20192	20292	
==>outpath;
}


# Takes one hash argument which is modified
# try to 'collapse' useless directory entrie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15082	15237	
==>sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15082	15237	
==>sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15082	15237	
==>sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$se <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16874	17002	
==>tch = $m1;
      local $X::cap = [];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, preven <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10644	10797	
==>er->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10644	10797	
==>er->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10644	10797	
==>er->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	548	645	
==>e { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrScalarSubType of Any where {
    .does(Package) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12010	12130	
==>i);
      my $ok = substr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAILCA <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2423	2523	
==>), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $recei <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2423	2523	
==>), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $recei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2503	2603	
==>), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $recei <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5022	5168	
==>_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5486	5632	
==>_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4483	4593	
==>,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubNam <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4483	4593	
==>,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubNam <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	203	306	
==>_ . "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4962	5059	
==>hile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4962	5059	
==>hile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4962	5059	
==>hile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enco <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	802	934	
==>b {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <sign <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	802	934	
==>b {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <sign <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9890	10002	
==>e pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9890	10002	
==>e pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6185	6325	
==>bstr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6185	6325	
==>bstr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.* <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	211	307	
==>= (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1739	1835	
==>= (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14841	14932	
==>van Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14841	14932	
==>van Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14841	14932	
==>van Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class fr <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1970	2076	
==>NOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<Find <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1970	2076	
==>NOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<Find <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7356	7464	
==>ds MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->sto <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7356	7464	
==>ds MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->sto <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7356	7464	
==>ds MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->sto <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	686	787	
==>ery hard to understand) the modula 2 code, so
# the impl is probably different)


use utf8;
use strict <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6425	6549	
==>f (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6425	6549	
==>f (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6425	6549	
==>f (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1994	2109	
==>-----------------------------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) }, <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	481	703	
==>pec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	481	703	
==>pec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2771	2887	
==>turn $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is cop <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2771	2887	
==>turn $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is cop <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13746	13855	
==>export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18949	19058	
==>export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13746	13855	
==>export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18949	19058	
==>export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9646	9788	
==>iscard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9646	9788	
==>iscard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16324	16451	
==>bstrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum { <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20750	20877	
==>bstrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1957	2150	
==>p = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1957	2150	
==>p = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1957	2150	
==>p = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2033	2147	
==>6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9440	9588	
==>assed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2874	2990	
==>fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2874	2990	
==>fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2874	2990	
==>fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8953	9150	
==>t("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method", $e->get("$current")->send("ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	836	931	
==>$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	836	931	
==>$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	836	931	
==>$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8958	9070	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9151	9263	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternati <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3606	3730	
==>expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modul <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3606	3730	
==>expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5130	5254	
==>expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modul <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27354	27467	
==>m,$to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re>$r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	86	211	
==>er/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11620	11723	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11620	11723	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11620	11723	
==>alue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
s <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4636	4755	
==>cygwin') {
        warn << "."
** Note that Cygwin support for pugs still depends on the .msi
   version of GHC and does <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1728	1829	
==>od(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1728	1829	
==>od(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1728	1829	
==>od(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5367	5569	
==>soc{$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22799	22898	
==>$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22799	22898	
==>$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22799	22898	
==>$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6760	6866	
==>[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6760	6866	
==>[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21236	21333	
==>ure is that it provides a
common API for access to those databases, each of which takes a differen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21236	21333	
==>ure is that it provides a
common API for access to those databases, each of which takes a differen <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19270	19382	
==>ason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, we save lo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1493	1661	
==>{
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1597	1765	
==>{
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1493	1661	
==>{
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1597	1765	
==>{
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10831	10961	
==>. ($y ? "compiling" : "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	692	816	
==>).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rul <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	692	816	
==>).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rul <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2192	2290	
==>andling is currently an utter kludge. not even trying with m and s.
# Match objects arent being cre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21698	21898	
==>::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21698	21898	
==>::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21698	21898	
==>::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ", <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	330	453	
==>ootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reve <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11165	11270	
==>s(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8569	8674	
==>s(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11165	11270	
==>s(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8569	8674	
==>s(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5956	6083	
==>( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5956	6083	
==>( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	447	552	
==>ot implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overlo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	447	552	
==>ot implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overlo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4955	5103	
==>ure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-I <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4955	5103	
==>ure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-I <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14213	14319	
==>d time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14213	14319	
==>d time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3896	4042	
==>", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	769	868	
==>ll diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mess <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	769	868	
==>ll diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1325	1424	
==>ll diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mess <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3238	3360	
==>say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port o <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3238	3360	
==>say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1009	1116	
==>nt object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of al <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1009	1116	
==>nt object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of al <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1432	1539	
==>/perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tests first <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2895	2997	
==>ed = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2895	2997	
==>ed = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2895	2997	
==>ed = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%m <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13076	13171	
==>representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIS <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13076	13171	
==>representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIS <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7082	7172	
==>a::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val! <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7082	7172	
==>a::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12482	12605	
==>f<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12482	12605	
==>f<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No h <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16940	17034	
==>med modules or anonymous routines) and write the rest of the
application in their other languag <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16940	17034	
==>med modules or anonymous routines) and write the rest of the
application in their other languag <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2395	2735	
==>'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22017	22107	
==>_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22017	22107	
==>_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22017	22107	
==>_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14514	14610	
==>m RPe_BADPOS (-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2770	2884	
==>E_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # gen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2770	2884	
==>E_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # gen <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9514	9615	
==>ass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('thi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9572	9673	
==>ass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('thi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4279	4531	
==>:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   do <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4279	4531	
==>:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   do <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8681	8786	
==>set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various commo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8681	8786	
==>set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various commo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4921	5020	
==>er 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4921	5020	
==>er 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7118	7217	
==>er 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the tes <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2347	2458	
==>},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	280	386	
==>args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	280	386	
==>args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	280	386	
==>args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PI <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6756	6859	
==>ITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6814	6917	
==>ITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22972	23069	
==>Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27524	27621	
==>Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2759	2879	
==>le) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2759	2879	
==>le) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2759	2879	
==>le) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// T <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5447	5539	
==>sentially read-only, however, all the return values of the
closure are collected into another <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13537	13742	
==>$::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13537	13742	
==>$::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13537	13742	
==>$::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dis <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11312	11432	
==>inc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13965	14074	
==>sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13965	14074	
==>sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13965	14074	
==>sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6559	6657	
==>ar"
is Perl 5.8.4's regex set.  Grammar is quoted because the module does
not so much define a gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8496	8664	
==>);
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8496	8664	
==>);
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2243	2349	
==>b6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2160	2263	
==>b6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2311	2405	
==>ne.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_super <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2311	2405	
==>ne.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_super <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1270	1360	
==>f: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1270	1360	
==>f: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1625	1716	
==>, "term:", "nows", &parse_subrule);
    $optable->addToken("term:<[", "term:", "nows", &pars <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3346	3451	
==>g{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1274	1367	
==>posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1274	1367	
==>posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1274	1367	
==>posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2411	2538	
==>{

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2836	2960	
==>{
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2331	2455	
==>{
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2836	2960	
==>{
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4144	4296	
==>ie "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4144	4296	
==>ie "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #re <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	84	189	
==>x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	84	189	
==>x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1080	1188	
==>->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1080	1188	
==>->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1080	1188	
==>->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1123	1251	
==>_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1123	1251	
==>_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1123	1251	
==>_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25113	25213	
==>at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because the tes <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12607	12717	
==>piler->new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14827	14926	
==>P5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14827	14926	
==>P5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14827	14926	
==>P5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6505	6717	
==>},
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6505	6717	
==>},
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4715	4820	
==>turn Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time {
      $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4715	4820	
==>turn Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time {
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1070	1171	
==>=> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1070	1171	
==>=> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1150	1251	
==>=> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way o <==
4	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	82	181	
==>d {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2801	2908	
==>onents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2801	2908	
==>onents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2801	2908	
==>onents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9062	9183	
==>OD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9062	9183	
==>OD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9062	9183	
==>OD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2355	2448	
==>}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5699	5879	
==>utes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5699	5879	
==>utes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15547	15661	
==>urst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15547	15661	
==>urst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1069	1181	
==>20,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1069	1181	
==>20,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1825	1935	
==>20,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1825	1935	
==>20,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7096	7200	
==>$@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7108	7212	
==>$@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8953	9056	
==>semantics, where 'require'
    # will munge the package name into file system paths.
    eval "require $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8953	9056	
==>semantics, where 'require'
    # will munge the package name into file system paths.
    eval "require $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3686	3789	
==>|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3686	3789	
==>|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3686	3789	
==>|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	114	217	
==>e unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	114	217	
==>e unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	114	217	
==>e unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3827	4151	
==>PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3827	4151	
==>PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	567	665	
==>Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	567	665	
==>Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1009	1116	
==>_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $la <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1009	1116	
==>_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $la <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20488	20583	
==>this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20488	20583	
==>this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4463	4572	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4463	4572	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4463	4572	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
} <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3619	3728	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	802	918	
==>->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	802	918	
==>->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	802	918	
==>->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $ <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	822	935	
==>d duration( Str $iso8601 ) returns Duration::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3213	3409	
==>{
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ } <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3213	3409	
==>{
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25513	25610	
==>de of the other components when and as the GPL requires distribution of
source code.  However, for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25513	25610	
==>de of the other components when and as the GPL requires distribution of
source code.  However, for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3719	3803	
==>ional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3719	3803	
==>ional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3719	3803	
==>ional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6687	6846	
==>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6175	6333	
==>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        ne <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38250	38343	
==>tional parameter $text (a string), and a Message Variables hash ref
in its positional paramete <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38250	38343	
==>tional parameter $text (a string), and a Message Variables hash ref
in its positional paramete <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1004	1125	
==>here the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4482	4603	
==>here the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3385	3506	
==>here the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5788	5955	
==>nt
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5788	5955	
==>nt
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5788	5955	
==>nt
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1946	2078	
==>DE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ENV{PUGS_RUNTIME} eq 'JS' or
                   $ENV{PUGS_RUNTIME} eq 'PERL5' or $ENV{PU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8975	9099	
==>n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	709	833	
==>n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8975	9099	
==>n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8975	9099	
==>n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37243	37339	
==>ll subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41792	41888	
==>ll subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41415	41511	
==>ll subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3170	3377	
==>t_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill_all with a p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4301	4403	
==>pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$para <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4301	4403	
==>pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$para <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4891	4993	
==>pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$para <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	195	317	
==>y ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        un <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	189	311	
==>y ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	195	317	
==>y ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	189	311	
==>y ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	316	424	
==>("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	316	424	
==>("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	316	424	
==>("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7132	7252	
==>ine"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7132	7252	
==>ine"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	520	617	
==>paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2048	2145	
==>paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13656	13790	
==>p;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3958	4072	
==>am{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3958	4072	
==>am{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3958	4072	
==>am{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless de <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3124	3240	
==>port {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3124	3240	
==>port {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4648	4764	
==>port {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descrip <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6249	6340	
==>-> "$". %"
p5_elemental(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4650	4780	
==>cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4650	4780	
==>cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5134	5258	
==>cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5134	5258	
==>cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    % <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4295	4547	
==>not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain app <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4295	4547	
==>not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain app <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2395	2491	
==>pe $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2395	2491	
==>pe $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2235	2341	
==>!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be runni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	151	254	
==>s { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	151	254	
==>s { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	151	254	
==>s { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4097	4269	
==>SS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4097	4269	
==>SS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4097	4269	
==>SS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7336	7460	
==>th ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13409	13587	
==>);
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13409	13587	
==>);
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13409	13587	
==>);
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5936	6041	
==>n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->redu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1485	1613	
==>\$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1473	1601	
==>\$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"matc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3716	3806	
==>tevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3716	3806	
==>tevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6153	6249	
==>) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6153	6249	
==>) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6153	6249	
==>) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_en <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2094	2184	
==>rn (Pugs::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assumi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	829	957	
==>nly    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	811	930	
==>nly => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	811	930	
==>nly => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17393	17482	
==>x = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4363	4461	
==>$S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  }) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1489	1587	
==>$S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  }) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3120	3212	
==>, $self.complement_previous, $set.complement_next, $set.complement_previous ),
        comple <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3120	3212	
==>, $self.complement_previous, $set.complement_next, $set.complement_previous ),
        comple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6569	6676	
==>L::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6569	6676	
==>L::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6569	6676	
==>L::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18058	18157	
==>trl:]> or C<\p{Print}>.

=item Character Class Rendering

The visual() method of I<anyof> objects wi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2398	2510	
==>aram_type = $param->type->to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11539	11640	
==>STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11539	11640	
==>STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11539	11640	
==>STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6440	6542	
==>e(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7176	7278	
==>e(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6440	6542	
==>e(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.dele <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7176	7278	
==>e(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.dele <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4801	4925	
==>se' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4464	4579	
==>itdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4464	4579	
==>itdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_bas <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	175	276	
==>erm:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a : $b
$wahr.tertiary <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3188	3297	
==>ype {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3188	3297	
==>ype {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3188	3297	
==>ype {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	123	225	
==>}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, den <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	123	225	
==>}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, den <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	437	538	
==>ists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	437	538	
==>ists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8360	8467	
==>}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9268	9362	
==>------------------------------

This is a rough sketch of that role(Role) might look like. 

ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9268	9362	
==>------------------------------

This is a rough sketch of that role(Role) might look like. 

ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9268	9362	
==>------------------------------

This is a rough sketch of that role(Role) might look like. 

ro <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25327	25424	
==>w.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25327	25424	
==>w.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	522	637	
==>ract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	522	637	
==>ract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        mat <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8323	8415	
==>>

This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

This <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8323	8415	
==>>

This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

This <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17753	17888	
==>ng forward till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2373	2503	
==>don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2373	2503	
==>don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2373	2503	
==>don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1079	1208	
==>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1079	1208	
==>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1079	1208	
==>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14836	14933	
==>ion)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->ri <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6833	7011	
==>m: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_p <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2037	2151	
==>)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#ti <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3420	3524	
==>:PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('lef <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3420	3524	
==>:PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('lef <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9073	9191	
==>return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it req <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9073	9191	
==>return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it req <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	867	967	
==>umper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	867	967	
==>umper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1673	1837	
==>[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1673	1837	
==>[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1673	1837	
==>[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1368	1484	
==>[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9638	9809	
==>{
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9638	9809	
==>{
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9638	9809	
==>{
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->ne <==
4	/Users/nnunley/pugs/util/package-osx.pl	2666	2756	
==>sr/local/usr/bin/pugs /usr/local/bin/pugs
        /usr/local/usr/bin/pugscc /usr/local/bin/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	346	464	
==>t loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	350	468	
==>t loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	346	464	
==>t loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	350	468	
==>t loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17810	17961	
==>'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17810	17961	
==>'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22681	22772	
==>e the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22681	22772	
==>e the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<l <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13674	13774	
==>($e->get('$canidate'), $e->get('%params'))));
                $e->get('$self')->send('BUILDALL' => ($ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5691	5787	
==>tem B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Retu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5691	5787	
==>tem B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7215	7311	
==>tem B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4045	4172	
==>reamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    m <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	618	743	
==>ir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1, <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	618	743	
==>ir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1, <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2996	3109	
==>reamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18010	18220	
==>es.
                    @stuff = sort {$b->depth   <=> $a->depth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2158	2262	
==>{
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2158	2262	
==>{
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2158	2262	
==>{
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # d <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12131	12248	
==>LL(&$c,$noop);
    };
  }
}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3657	3759	
==>e array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3657	3759	
==>e array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4247	4349	
==>e array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6123	6234	
==>te!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.value <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9600	9711	
==>te!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.value <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11356	11458	
==>f Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    retur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11356	11458	
==>f Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2063	2188	
==>:v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 cod <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	377	502	
==>:v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2063	2188	
==>:v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2063	2188	
==>:v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 cod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3003	3208	
==>> $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3003	3208	
==>> $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Doc <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1954	2050	
==>KS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets cal <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1954	2050	
==>KS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets cal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	355	528	
==>>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4	174	
==>s Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = ' <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4	174	
==>s Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = ' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3898	3996	
==>7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has $.propert <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10968	11116	
==>($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10968	11116	
==>($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10968	11116	
==>($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are a <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1890	2022	
==>" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26502	26691	
==>{ Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26502	26691	
==>{ Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26502	26691	
==>{ Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5225	5329	
==>quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3401	3498	
==>tually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3401	3498	
==>tually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3401	3498	
==>tually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, P <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	45	126	
==>r/local/lib/perl5/site_perl/5.8.7/Module/Install/Metadata.pm"
package Module::Inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15059	15213	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15059	15213	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15059	15213	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1902	1994	
==>}

# -----------------------------------------------------

my $file1 = <<'GROK';
1st line
GR <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	288	406	
==>lf.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	288	406	
==>lf.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7808	7922	
==>f( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1109	1223	
==>f( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depe <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5247	5381	
==>922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5247	5381	
==>922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1277	1390	
==>subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1267	1373	
==>subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1593	1860	
==>rn { stmt => '$_' } } ));
    }
    for ( qw(
          BEGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14229	14315	
==>6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14229	14315	
==>6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14229	14315	
==>6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24654	24765	
==>n the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23418	23529	
==>n the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24654	24765	
==>n the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23418	23529	
==>n the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43018	43115	
==>ead1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3563	3654	
==>l) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3563	3654	
==>l) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3563	3654	
==>l) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = u <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7063	7169	
==>o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20303	20392	
==>1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20303	20392	
==>1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20303	20392	
==>1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29163	29279	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29442	29558	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match: <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3782	3875	
==>e).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranof <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3782	3875	
==>e).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranof <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	800	920	
==>name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "impl <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	800	920	
==>name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "impl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	220	329	
==>L

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	205	309	
==>L
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    G <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3098	3250	
==>'&dispatcher' => 'block'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->new('?%opts'      => 'ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5837	5936	
==>ttribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5837	5936	
==>ttribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5837	5936	
==>ttribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	779	898	
==>eta_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5449	5550	
==>ll. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5449	5550	
==>ll. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5449	5550	
==>ll. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6425	6523	
==>ub {
    return $_[1] eq 'Role' if $_[0] == $Class;
    ::opaque_instance_attrs($_[0])->{'%:methods <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	424	526	
==>ning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new method <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	424	526	
==>ning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new method <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	424	526	
==>ning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new method <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28220	28316	
==>";
}if(1);

Language::Prolog::Yaswi::swi_toplevel;

__END__
% :- use_module(library(time)). call_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2258	2360	
==>emantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this prob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2258	2360	
==>emantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this prob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2258	2360	
==>emantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this prob <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23170	23265	
==>u can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23170	23265	
==>u can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17318	17410	
==>E",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17318	17410	
==>E",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3628	3778	
==>es[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3628	3778	
==>es[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4652	4765	
==>_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4845	4958	
==>_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	416	531	
==>urns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	416	531	
==>urns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	627	728	
==>rn $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	833	934	
==>rn $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7689	7850	
==>e',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7689	7850	
==>e',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17906	18000	
==>inating server program handling the request.

=item $h.from

This header should contain an Inte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17906	18000	
==>inating server program handling the request.

=item $h.from

This header should contain an Inte <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	711	831	
==>l { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	678	798	
==>l { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    re <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4395	4511	
==>y stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@to <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4395	4511	
==>y stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@to <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6159	6255	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5289	5385	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6159	6255	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5289	5385	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15154	15275	
==>rn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15154	15275	
==>rn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15154	15275	
==>rn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4431	4530	
==>nk will
finish, the stacks will be popped once more, and the whole AST is now reduced
to 11.

Inheri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1780	1900	
==>f = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1780	1900	
==>f = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1780	1900	
==>f = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18652	18752	
==>ule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpre <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2350	2460	
==>s $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($containe <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2350	2460	
==>s $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($containe <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	760	863	
==>TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if def <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	760	863	
==>TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if def <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7246	7358	
==>me kind params body lvalue class)};
    # XXX - lvalue is ignored - use proxy?

    my $hybrid_kludge;
    if(!re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	791	878	
==>/ http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	791	878	
==>/ http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	791	878	
==>/ http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.ke <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6759	6864	
==>teractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8828	8933	
==>teractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6759	6864	
==>teractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8828	8933	
==>teractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1702	1802	
==>debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1702	1802	
==>debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21467	21561	
==>ew seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21467	21561	
==>ew seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2019	2133	
==>age) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2019	2133	
==>age) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1405	1508	
==>param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1405	1508	
==>param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3871	3968	
==>r_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3871	3968	
==>r_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3871	3968	
==>r_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$cod <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2724	2832	
==>rn !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::sign (Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1538	1629	
==>aque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1538	1629	
==>aque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1538	1629	
==>aque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instanc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4001	4105	
==>this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4001	4105	
==>this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Nod <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4772	4868	
==>NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following are <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4772	4868	
==>NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following are <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3869	4033	
==>ve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4333	4497	
==>ve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2272	2411	
==>of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2272	2411	
==>of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14708	14834	
==>e early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14708	14834	
==>e early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14708	14834	
==>e early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28982	29084	
==>t is, a '&&' without a '&')
are pre-consumption: that is, they have not matched something yet.
Handle n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5861	6000	
==>ta_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            r <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5861	6000	
==>ta_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            r <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	614	712	
==>niversal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	614	712	
==>niversal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13154	13301	
==>atcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13154	13301	
==>atcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13154	13301	
==>atcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18126	18222	
==>("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5908	6101	
==>w(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9385	9578	
==>w(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8441	8634	
==>w(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2537	2645	
==>ils->_copy( file => $tmpsrc, to => $builddir )
#             or error( "Could not copy sources to '$builddir' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	749	857	
==>q[rule {
    package Pugs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rul <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6151	6240	
==>he Test::Builder::Test::WithReason role
and override some methods to provide additional fe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6151	6240	
==>he Test::Builder::Test::WithReason role
and override some methods to provide additional fe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8348	8437	
==>he Test::Builder::Test::WithReason role
and override some methods to provide additional fe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4704	4833	
==>ist',
        precedence => 'looser',
        other => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_rule( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1596	1704	
==>ass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1596	1704	
==>ass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1596	1704	
==>ass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2302	2432	
==>Pugs::Internals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves lik <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1700	1799	
==>elf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1700	1799	
==>elf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1700	1799	
==>elf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5067	5204	
==>{
            # use v6-pugs
            if ( exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param}{cpan_bareword} =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2286	2390	
==>_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2286	2390	
==>_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2366	2470	
==>_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	497	618	
==>()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_clo <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	497	618	
==>()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_clo <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2765	2882	
==>',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2765	2882	
==>',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9275	9395	
==>enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering de <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9275	9395	
==>enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering de <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8407	8520	
==>{
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // d <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8407	8520	
==>{
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4386	4503	
==>], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	90	192	
==>s keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	90	192	
==>s keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	90	192	
==>s keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8841	8940	
==>agical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match ob <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10410	10507	
==>~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10410	10507	
==>~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8548	8645	
==>agical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match ob <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4111	4212	
==>ameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the f <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4111	4212	
==>ameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6308	6409	
==>ameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5627	5717	
==>ugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variab <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3668	3793	
==>uire $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3726	3851	
==>uire $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35531	35625	
==>ay
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35531	35625	
==>ay
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6580	6690	
==>irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6580	6690	
==>irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6381	6487	
==>irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6381	6487	
==>irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	476	592	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	476	592	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	476	592	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $o <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7935	8029	
==>of the iteration varies with function.
C<values> returns the value of the associated element; C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8307	8470	
==>ck for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8307	8470	
==>ck for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8307	8470	
==>ck for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fa <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6044	6189	
==>the timestamps not break so the smoke reports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => spr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8532	8634	
==>{
    my $n = $_[0]->name; "\"$n\"";
}
sub PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	321	414	
==>mitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	321	414	
==>mitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	321	414	
==>mitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	903	1003	
==>d

=head1 NAME

reference - the core reference type

=head1 METHODS

=over 4

=item B<new (~type) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2155	2253	
==>) {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2155	2253	
==>) {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2155	2253	
==>) {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4555	4700	
==>token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_mo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4555	4700	
==>token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	431	547	
==>tch}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1157	1270	
==>tch}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37143	37274	
==>=> 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2060	2161	
==>infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2060	2161	
==>infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2060	2161	
==>infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4836	4938	
==>ersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inte <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4836	4938	
==>ersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20327	20420	
==>containing the hexadecimal digest of the
result in double quotes followed by a semicolon. Like <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20327	20420	
==>containing the hexadecimal digest of the
result in double quotes followed by a semicolon. Like <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6200	6322	
==>ck <= 0 )
  {
    goto end if $tokenCat == PGE_OPTABLE_CLOSE;
    goto oper_shift;
  }

  shift_reduce_1:
  my $top = $toke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2885	2989	
==>d.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2885	2989	
==>d.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2885	2989	
==>d.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1274	1408	
==>age($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1274	1408	
==>age($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used t <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	395	494	
==>:Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	395	494	
==>:Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2606	2704	
==>rgs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2606	2704	
==>rgs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2606	2704	
==>rgs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSP <==
4	/Users/nnunley/pugs/util/build_pugs.pl	488	584	
==>uild a pugs exectuable, optionally inlining
precompiled modules in a second pass.

Primary config <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14290	14395	
==>'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14290	14395	
==>'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14290	14395	
==>'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::num <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34562	34657	
==>ingle Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39112	39207	
==>ingle Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
headi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1520	1613	
==>r" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1520	1613	
==>r" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4091	4183	
==>r;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4091	4183	
==>r;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4091	4183	
==>r;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5934	6037	
==>back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE< <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1130	1233	
==>back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5934	6037	
==>back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1130	1233	
==>back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	110	218	
==>ntation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	100	203	
==>ntation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14776	14874	
==>ment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14776	14874	
==>ment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Roset <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4038	4148	
==>lt}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $option <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4038	4148	
==>lt}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $option <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4038	4148	
==>lt}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $option <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28153	28247	
==>Set of Str>

This method returns this Relation::Example's heading.

=item C<body () returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	291	423	
==>my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	291	423	
==>my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4163	4281	
==>ds);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4221	4339	
==>ds);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	656	776	
==>, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( $const );
    $const = $_[0] eq '\\' ? ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2580	2684	
==>me;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2580	2684	
==>me;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2580	2684	
==>me;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27634	27825	
==>eturns => 'list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13224	13321	
==>abel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13224	13321	
==>abel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13224	13321	
==>abel};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6994	7095	
==>sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6994	7095	
==>sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6994	7095	
==>sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17667	17751	
==>1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6334	6447	
==>entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6334	6447	
==>entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6334	6447	
==>entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2453	2562	
==>Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31360	31527	
==>}
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31360	31527	
==>}
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31360	31527	
==>}
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1109	1224	
==>{ require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1076	1191	
==>{ require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12196	12303	
==>so be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12196	12303	
==>so be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4255	4371	
==>ince all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5152	5268	
==>ince all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ n <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4255	4371	
==>ince all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ n <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5152	5268	
==>ince all it does it remove . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6869	6984	
==>e).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6869	6984	
==>e).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6869	6984	
==>e).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAg <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4060	4163	
==>sition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_token_ma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19874	19983	
==>C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> information.

This is a rea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18855	18964	
==>C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> information.

This is a rea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19874	19983	
==>C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> information.

This is a rea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18855	18964	
==>C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> information.

This is a rea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8243	8423	
==>),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" . <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1808	1945	
==>() {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1808	1945	
==>() {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9051	9170	
==>->digest;

    Prim->new(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity}, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10998	11081	
==>ghts on Role state:
---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10998	11081	
==>ghts on Role state:
---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10998	11081	
==>ghts on Role state:
---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3815	3926	
==>or in name(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2979	3080	
==>lose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2979	3080	
==>lose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2979	3080	
==>lose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12882	12984	
==>@_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12882	12984	
==>@_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12882	12984	
==>@_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	486	598	
==>sh @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	486	598	
==>sh @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$con <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7531	7628	
==>)>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7531	7628	
==>)>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This ev <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8217	8339	
==>apture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8410	8532	
==>apture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3893	3993	
==>es[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3893	3993	
==>es[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3574	3694	
==>ss => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3574	3694	
==>ss => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3574	3694	
==>ss => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1708	1817	
==>xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2478	2632	
==>new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Param->new('$x'), <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1582	1689	
==>Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1582	1689	
==>Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1582	1689	
==>Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array. <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	783	898	
==>e GHC package
    for use with other Haskell programs, type '$Config{make} register'.
.
    }
    else {
        pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4975	5089	
==>oles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4975	5089	
==>oles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4975	5089	
==>oles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20042	20202	
==>symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40502	40662	
==>symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10947	11090	
==>utoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10947	11090	
==>utoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2144	2247	
==>ing(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2144	2247	
==>ing(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2144	2247	
==>ing(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numbe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6429	6521	
==>rmation
about sub-classing this module.

=head1 DESCRIPTION

This module parses regular expre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5529	5635	
==>unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5529	5635	
==>unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5529	5635	
==>unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === has <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3089	3194	
==>ays canonical to three-dot version
        $perl_version =~
          s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1388	1498	
==>walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1388	1498	
==>walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1388	1498	
==>walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($op <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	448	615	
==>Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2520	2638	
==>=> $remainder,
        capture => $extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $gramm <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11543	11637	
==>in attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - Thi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11543	11637	
==>in attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - Thi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	982	1097	
==>ute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	982	1097	
==>ute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18732	18827	
==>dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18732	18827	
==>dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	452	576	
==>verse(13, "b", 1, sub {
            my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16377	16475	
==>- implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gathe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16377	16475	
==>- implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gathe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16377	16475	
==>- implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gathe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3085	3264	
==>),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @ <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	644	765	
==>"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: $!";
    wh <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4102	4199	
==>a new cipher object.  The options passed to the 
C<new> constructor generally include some sort of <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4102	4199	
==>a new cipher object.  The options passed to the 
C<new> constructor generally include some sort of <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16393	16519	
==>/^\Q$heading\E$/i;

#               print STDERR "Trying to get heading >$heading<\n";

                my $h = $sobj->look_dow <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1213	1311	
==>{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1213	1311	
==>{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1213	1311	
==>{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4144	4289	
==>b {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4337	4482	
==>b {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6976	7095	
==>$self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_in <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6976	7095	
==>$self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	913	1053	
==>gth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1306	1446	
==>gth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	913	1053	
==>gth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1306	1446	
==>gth($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1077	1196	
==>rgs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1077	1196	
==>rgs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1077	1196	
==>rgs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js} <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	150	258	
==>($self:) returns Float {
    ...
}

# return a unix time_t
method time_t($self:) returns Int {
    ...
}

met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12180	12396	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12180	12396	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12180	12396	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	773	883	
==>(blessed($label) && $label->isa('str'));
    
    my $args = list->new($inv, @args);
    
    my $class = $inv- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9726	9823	
==>s module was built to facilitate the Pugs test suite. It has the
distinction of being the very fir <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9784	9881	
==>s module was built to facilitate the Pugs test suite. It has the
distinction of being the very fir <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8160	8256	
==>$Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8218	8314	
==>$Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22783	22880	
==>f the Set operators.

Like the Set data type, the Relation::Example data type is immutable.  The v <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2959	3095	
==>en $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round = round_up <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7488	7614	
==>grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7681	7807	
==>grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7543	7634	
==>till free variable
	$_[0]->instantiate($_[1]);
};
multi unify => ('type::operator', 'type::v <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4449	4576	
==>pan => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4449	4576	
==>pan => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3106	3226	
==>ents;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3106	3226	
==>ents;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1652	1757	
==>ompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1652	1757	
==>ompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1652	1757	
==>ompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelude <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2664	2773	
==>f->structure);
}

sub emit {
    my($self) = @_;
    $self->{_timing}{end} = time;
    $self->{_timing}{durati <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11593	11690	
==>for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::r <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2567	2652	
==>p.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2567	2652	
==>p.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23643	23773	
==>mily => 'assertion',
      type => 'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub ra <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3475	3573	
==>($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Fu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3475	3573	
==>($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	701	808	
==>x:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	701	808	
==>x:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	701	808	
==>x:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2	108	
==>ckage re::override;

use 5.005;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1442	1548	
==>t (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1442	1548	
==>t (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1442	1548	
==>t (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warnin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1190	1287	
==>rl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumpe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	735	856	
==>ss +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:diagnostics   = ();
        return $di <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29392	29485	
==>es have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33944	34037	
==>es have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33108	33201	
==>es have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8129	8246	
==>rn $:singleton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1148	1253	
==>f defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1148	1253	
==>f defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1148	1253	
==>f defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI S <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6287	6457	
==>sion = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	769	895	
==>ethod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	769	895	
==>ethod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	769	895	
==>ethod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5051	5157	
==>_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5051	5157	
==>_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5051	5157	
==>_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB p <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	143	235	
==>hing which an implementation will overwrite. So smartmatch can be
implemented using some is_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13031	13179	
==>my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13031	13179	
==>my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13031	13179	
==>my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1916	2064	
==>my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3642	3881	
==>e ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_el <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3642	3881	
==>e ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_el <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13733	13833	
==>h as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13733	13833	
==>h as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15720	15871	
==>o,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29431	29548	
==>yApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29431	29548	
==>yApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	255	360	
==>yApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27373	27475	
==>it to
the code reference in $code.  Example:

  $parser->add_flag("u" => sub { 0x10 });

This makes 'u' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7588	7687	
==>];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7588	7687	
==>];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7588	7687	
==>];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5351	5466	
==>d negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5351	5466	
==>d negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12634	12728	
==>ith encoding and decoding of strings with HTML
character entities.  The module provides the fol <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12634	12728	
==>ith encoding and decoding of strings with HTML
character entities.  The module provides the fol <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	243	358	
==>le';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9673	9783	
==>the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First l <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13150	13260	
==>the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First l <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12422	12532	
==>the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33194	33325	
==>}
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33194	33325	
==>}
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33194	33325	
==>}
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4310	4434	
==>ntly think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Fin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4310	4434	
==>ntly think are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Fin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4821	4941	
==>ntly think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Fin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4821	4941	
==>ntly think are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Fin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2028	2154	
==>(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2028	2154	
==>(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2108	2234	
==>(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10414	10573	
==>ASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10414	10573	
==>ASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10414	10573	
==>ASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20636	20751	
==>{&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17057	17172	
==>{&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27029	27130	
==>Text::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27029	27130	
==>Text::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1941	2108	
==>nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1941	2108	
==>nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11132	11226	
==>l :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11190	11284	
==>l :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32662	32786	
==>AL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32662	32786	
==>AL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32662	32786	
==>AL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1614	1723	
==>ase qw/Blondie::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8137	8262	
==>default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8137	8262	
==>default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8137	8262	
==>default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3833	3933	
==>If you see the error below, it may happen that your perl was compiled without PMC support.

  Can't l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34455	34560	
==>my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34455	34560	
==>my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34455	34560	
==>my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unles <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5517	5614	
==>b *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4647	4744	
==>b *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5517	5614	
==>b *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4647	4744	
==>b *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4001	4107	
==>Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5322	5428	
==>Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4001	4107	
==>Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5310	5416	
==>Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	32	157	
==>r::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	32	157	
==>r::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	32	157	
==>r::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18235	18358	
==>$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1818	1930	
==>Note that this is not a Blondie::Node! You cannot execute environments, they
contain ASTs that are compiled by th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4694	4795	
==>abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4694	4795	
==>abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4694	4795	
==>abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2806	2919	
==>[0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0][ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9287	9388	
==>ontent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-sty <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9287	9388	
==>ontent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-sty <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2448	2543	
==>author;
    $self->license_from($file)  unless $self->license;
    $self->abstract_from($file) u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1947	2090	
==>sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1947	2090	
==>sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1947	2090	
==>sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4099	4216	
==>' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:superclass'} = shift if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4415	4522	
==>ixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4415	4522	
==>ixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4415	4522	
==>ixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34360	34455	
==>ributes match
those of C<$heading>.  The new Relation::Example has all of the tuples of the
orig <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1266	1390	
==>r =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2724	2841	
==>erl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2724	2841	
==>erl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2724	2841	
==>erl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9770	9893	
==>{
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9750	9873	
==>{
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4662	4763	
==>d original module source code instead of taking from filter,
    # because we need all the lines inclu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4662	4763	
==>d original module source code instead of taking from filter,
    # because we need all the lines inclu <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1818	1921	
==>ctor]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4271	4410	
==>nf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is co <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4271	4410	
==>nf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7311	7421	
==>>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7311	7421	
==>>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13387	13503	
==>y entering the following command
      as root:
      # mknod $initrd_mnt/dev/console c 5 1
HELP

  step
    descr  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12722	12926	
==>= [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12722	12926	
==>= [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12722	12926	
==>= [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4975	5078	
==>ad_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensions};

    for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4083	4218	
==>PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4931	5027	
==>e, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4931	5027	
==>e, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4931	5027	
==>e, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8900	9057	
==>{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemente <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26227	26375	
==>shift;
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12799	12914	
==>{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemente <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12799	12914	
==>{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemente <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1236	1359	
==>./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1236	1359	
==>./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	591	697	
==>util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig. <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	591	697	
==>util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig. <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	881	1020	
==>> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	623	762	
==>> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	881	1020	
==>> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	623	762	
==>> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1363	1467	
==>ented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1363	1467	
==>ented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1363	1467	
==>ented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>und <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	685	777	
==>le({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->whitespaceTermTab <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4382	4494	
==>eturn $x_round;
}

our Int multi Num::round_toward_zero ( Num $x ) {
    my $x_round;

    # round floor above 0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4199	4300	
==>my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4199	4300	
==>my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4199	4300	
==>my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9821	9936	
==>?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13031	13141	
==>ing )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16508	16618	
==>ing )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15870	15980	
==>ing )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8546	8678	
==>= $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12023	12155	
==>= $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    retur <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1416	1527	
==>s;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = Fil <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1416	1527	
==>s;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = Fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17176	17272	
==>ll touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17176	17272	
==>ll touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4944	5038	
==>proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depen <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5002	5096	
==>proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	127	255	
==>e:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	127	255	
==>e:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	127	255	
==>e:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBM <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14045	14156	
==>");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14045	14156	
==>");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7133	7224	
==>assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7133	7224	
==>assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	167	265	
==>Y

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	167	265	
==>Y

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's i <==
4	/Users/nnunley/pugs/util/fixauthors.pl	632	730	
==>content($html);
  my $realname = $tree->look_down(class=>"t1");

  return "" unless $realname;
  re <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17428	17525	
==>r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (pTHX <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8930	9038	
==>('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8930	9038	
==>('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1284	1376	
==>:ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1284	1376	
==>:ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2806	2908	
==>- 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($se <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2806	2908	
==>- 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1382	1473	
==>ins My/State/Temp markers for container

allocation, as well as the compile-time-bound value <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1322	1412	
==>ins My/State/Temp markers for container
allocation, as well as the compile-time-bound value <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2088	2203	
==>grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prere <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2968	3083	
==>grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prere <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1126	1241	
==>" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1129	1234	
==>" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1904	2031	
==>> { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ty <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1904	2031	
==>> { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2299	2390	
==>ase Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2388	2479	
==>ase Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	340	444	
==>t};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	340	444	
==>t};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12792	12896	
==>to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12792	12896	
==>to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12792	12896	
==>to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	90	186	
==>};
my $grammar1 = 'Pugs::Grammar::Rule::';

sub emit_node {
	die "unknown node type: $_[0]" unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2886	3009	
==>: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2886	3009	
==>: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2886	3009	
==>: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	348	439	
==>::Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4517	4611	
==>It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4517	4611	
==>It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6041	6135	
==>It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2314	2410	
==>warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cach <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2531	2627	
==>warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cach <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3669	3815	
==>)   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3681	3827	
==>)   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1361	1480	
==>s = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        re <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1361	1480	
==>s = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11124	11305	
==><= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11124	11305	
==><= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11124	11305	
==><= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7030	7127	
==>,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14598	14714	
==>all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14598	14714	
==>all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14598	14714	
==>all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	469	566	
==>Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility for exportable variable names.
* <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24153	24255	
==>ing
  in response to something it received.  This is typically used by automatons
  (clients with eithe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22926	23028	
==>ing
  in response to something it received.  This is typically used by automatons
  (clients with eithe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24153	24255	
==>ing
  in response to something it received.  This is typically used by automatons
  (clients with eithe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22926	23028	
==>ing
  in response to something it received.  This is typically used by automatons
  (clients with eithe <==
4	/Users/nnunley/pugs/util/package-osx.pl	2985	3098	
==>@files = ();
    }

    push @files, qw(
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1188	1284	
==>my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1188	1284	
==>my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1188	1284	
==>my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName pos <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3849	3949	
==>e `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Cre <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3849	3949	
==>e `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Cre <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14755	14852	
==>o be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Onc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14813	14910	
==>o be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Onc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3423	3514	
==>object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The follo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3423	3514	
==>object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The follo <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2488	2574	
==>-----------------------------------------------------------
## getting children

method <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2488	2574	
==>-----------------------------------------------------------
## getting children

method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2601	2771	
==>ug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, An <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2601	2771	
==>ug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, An <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5650	5758	
==>' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::C <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5650	5758	
==>' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::C <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2269	2364	
==>ile::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs, <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2269	2364	
==>ile::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs, <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1822	1928	
==>ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw! <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	999	1103	
==>ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw! <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1472	1576	
==>ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw! <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	105	211	
==>ed";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	105	211	
==>ed";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	105	211	
==>ed";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef <==
4	/Users/nnunley/pugs/util/run-smoke.pl	99	191	
==>in;
use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $faile <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1752	1865	
==>indow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1752	1865	
==>indow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1752	1865	
==>indow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@te <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1193	1304	
==>eturn "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exists $self->{seen}{$node <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6935	7038	
==>nfix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6935	7038	
==>nfix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6935	7038	
==>nfix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2924	3019	
==>zip *@arrays }

# copied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38526	38625	
==>e that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'W <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38526	38625	
==>e that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'W <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	750	866	
==>:carp("ender() ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk { <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	100	202	
==>n);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
pri <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	96	198	
==>n);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14341	14437	
==>e on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item RPe_ESLASH (-22)

Trail <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2175	2303	
==>code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2175	2303	
==>code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2175	2303	
==>code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2874	2975	
==>st::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, C <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2932	3033	
==>st::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, C <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1307	1402	
==>hod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1307	1402	
==>hod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3632	3815	
==>r',
    #    }
    #    'splat' => 1,           *$v
    #    'attribute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2152	2259	
==>1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat} = PGE_OP <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34826	34921	
==>ation and that match any tuples of C<$other> along
their common attributes.  This method will fa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39376	39471	
==>ation and that match any tuples of C<$other> along
their common attributes.  This method will fa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2059	2187	
==>n undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2059	2187	
==>n undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::St <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4106	4198	
==>rl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4106	4198	
==>rl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	942	1080	
==>e @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	942	1080	
==>e @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19262	19358	
==>diting them.  At
the same time, this information is in separate resource files used by the
progra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19262	19358	
==>diting them.  At
the same time, this information is in separate resource files used by the
progra <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1407	1535	
==>[0]{$_[1]} = $_[2] }

    package AST;
    use base 'Unit';

    package Sym;
    use base 'Unit';

    package Param;
    use ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1859	1958	
==>g class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1859	1958	
==>g class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1859	1958	
==>g class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10533	10638	
==>" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10533	10638	
==>" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10533	10638	
==>" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	521	628	
==>= $_[0]{pair}{key}{single_quoted};
        my $name     = $_[0]{pair}{value}{single_quoted};
        $catego <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3715	3813	
==>n $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Confi <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3715	3813	
==>n $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Confi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	752	847	
==>n $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Confi <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	784	890	
==>s::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6314	6419	
==>args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6314	6419	
==>args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6314	6419	
==>args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	785	909	
==>__PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	548	661	
==>s_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $name <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	548	661	
==>s_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $name <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	548	661	
==>s_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $name <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4896	5052	
==>return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4896	5052	
==>return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3699	3843	
==>return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3699	3843	
==>return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_ope <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1340	1454	
==>s), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1267	1374	
==>s), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	354	451	
==>er($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	354	451	
==>er($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lin <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2837	2937	
==>0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec>;
method month_abbr returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7240	7331	
==>sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7240	7331	
==>sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7240	7331	
==>sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7882	8033	
==>mp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7882	8033	
==>mp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7882	8033	
==>mp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21242	21335	
==>0,C,Set).

class_member(class_pos(space_perl),C) :- !,   (char_type(C,space) ; C = 11). %\v ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	943	1189	
==>e::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained refer <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	943	1189	
==>e::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained refer <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2293	2409	
==>:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2293	2409	
==>:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8846	8942	
==>y 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentd <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3775	3871	
==>y 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentd <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8846	8942	
==>y 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentd <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3775	3871	
==>y 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentd <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20439	20605	
==>comb(
									fun => ide("sub"),
									param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2681	2790	
==>_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2681	2790	
==>_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2681	2790	
==>_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$inst <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	740	980	
==>ng) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	740	980	
==>ng) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7650	7748	
==>>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(norm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7650	7748	
==>>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(norm <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1427	1551	
==>{
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::F <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1427	1551	
==>{
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::F <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	289	383	
==>nformation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	289	383	
==>nformation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3745	3873	
==>ew_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3745	3873	
==>ew_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3745	3873	
==>ew_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9984	10098	
==>1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3790	3907	
==><a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3802	3919	
==><a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11722	11814	
==>Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11722	11814	
==>Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12091	12196	
==>classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12091	12196	
==>classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12091	12196	
==>classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1271	1371	
==>tch; 
  $options = "left" if not $options;
  if ( $relativePrecedence and $relativePrecedence ne "" ) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3603	3723	
==>canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is cop <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3603	3723	
==>canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is cop <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2928	3047	
==>canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is cop <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2928	3047	
==>canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is cop <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	215	323	
==>ort     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is ex <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	215	323	
==>ort     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is ex <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20817	20913	
==>ubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9185	9358	
==>alculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9185	9358	
==>alculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9185	9358	
==>alculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18935	19022	
==>0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8665	8784	
==>pan );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8665	8784	
==>pan );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $sp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9017	9117	
==>rt()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9017	9117	
==>rt()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the s <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4290	4392	
==>f (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@inde <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4290	4392	
==>f (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@inde <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2884	2983	
==>f all the parameters as a list.  The order in which they were
present in the query string is preserv <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2884	2983	
==>f all the parameters as a list.  The order in which they were
present in the query string is preserv <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	771	925	
==>dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            sys <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18190	18283	
==>_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18190	18283	
==>_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18190	18283	
==>_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3913	4037	
==>ame) && !$force) {
        error($pkg->package . " already exists in this repository");
        return;
    }

    my $inst = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7985	8108	
==>_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7985	8108	
==>_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7985	8108	
==>_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2249	2384	
==>,
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '!=',
        assoc => 'left',
        precedence => 'equal' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1658	1784	
==>UILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1658	1784	
==>UILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1658	1784	
==>UILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	527	625	
==>}

# keep this here for a consistent interface
sub to_str { str->new((shift)->{name}) }

# conversi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	454	558	
==>6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	454	558	
==>6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	454	558	
==>6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->B <==
4	/Users/nnunley/pugs/util/package-osx.pl	5034	5131	
==>3pm
        /usr/local/man/man3/Perl6::Bible::S22.3pm
        /usr/local/man/man3/Perl6::Bible::S2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30806	30985	
==>h >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30806	30985	
==>h >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30806	30985	
==>h >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) { <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3275	3387	
==>$newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7292	7418	
==>t_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7280	7406	
==>t_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2319	2438	
==>, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2319	2438	
==>, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	776	870	
==>evious => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	776	870	
==>evious => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2800	2928	
==>$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7894	8022	
==>$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2800	2928	
==>$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7894	8022	
==>$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2797	2938	
==>t not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2981	3122	
==>t not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syn <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6369	6485	
==>rams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encod <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6369	6485	
==>rams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7322	7412	
==>@statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1147	1237	
==>@statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Per <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	130	247	
==>ort { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
su <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	130	247	
==>ort { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26901	27016	
==>op::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27180	27295	
==>op::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1373	1469	
==>nlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21418	21511	
==>name that is distinct from the other
attributes, though several attributes may store values of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25970	26063	
==>name that is distinct from the other
attributes, though several attributes may store values of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24603	24696	
==>name that is distinct from the other
attributes, though several attributes may store values of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17274	17428	
==>ant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23240	23394	
==>ant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17553	17707	
==>ant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23519	23673	
==>ant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4213	4316	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4213	4316	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4213	4316	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5719	5810	
==>$de_facto_type) . " with " . $self->display_type($expected_type);
		warn Data::Dumper::Dumpe <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8821	8949	
==>SS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3333	3425	
==>{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3333	3425	
==>{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3333	3425	
==>{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26188	26315	
==>x, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	303	391	
==>ntainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	303	391	
==>ntainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	303	391	
==>ntainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Typ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	748	884	
==>ture>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy s <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	748	884	
==>ture>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy s <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2594	2690	
==>> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, add <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2594	2690	
==>> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, add <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13169	13307	
==>on't know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3393	3521	
==>ontinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized" <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3393	3521	
==>ontinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	984	1091	
==>an::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subse <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	984	1091	
==>an::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subse <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14134	14239	
==>%attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	595	697	
==>ub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_bit { shift }

# conversi <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1023	1131	
==>a class
method apply {
    ...
}

# hmm, what do we need to test to check for circular superclasses?
# I gues <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33200	33297	
==>plate modules will be searched in the order
they appear in this array until a match for that messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33200	33297	
==>plate modules will be searched in the order
they appear in this array until a match for that messa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	665	1003	
==>er ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	665	1003	
==>er ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	917	1042	
==>en 'update' { 
        say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a W <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3914	4005	
==>return { require_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler::Rule->compile(< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1140	1264	
==>ppend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1140	1264	
==>ppend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1140	1264	
==>ppend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	432	531	
==>lized with a [ default_value => return value ] pair
### the default_value is the value of initalizat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8541	8652	
==>apturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_grou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8537	8648	
==>apturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_grou <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12627	12720	
==>deals with encoding and decoding of strings with HTML
character entities.  The module provides <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12627	12720	
==>deals with encoding and decoding of strings with HTML
character entities.  The module provides <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	553	657	
==>sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	553	657	
==>sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	553	657	
==>sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	120	220	
==>ant PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	120	220	
==>ant PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	120	220	
==>ant PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# T <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1180	1285	
==>ur &Num::int ::= &Num::truncate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16173	16263	
==>".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16173	16263	
==>".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16173	16263	
==>".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1055	1184	
==>rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1055	1184	
==>rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{co <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	673	772	
==>ou give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) retur <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	673	772	
==>ou give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) retur <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8775	8868	
==>ce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, I <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3704	3797	
==>ce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, I <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8775	8868	
==>ce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, I <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3704	3797	
==>ce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8669	8780	
==>UT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3862	3957	
==>ance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
})) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3862	3957	
==>ance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
})) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3862	3957	
==>ance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
})) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	884	985	
==>xec($prog, Bool::False, @args);
    }
    multi sub exec(@args) returns Bool is builtin is primitive i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1943	2036	
==>ode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1943	2036	
==>ode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1943	2036	
==>ode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str. <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1238	1338	
==>de with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however) <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1730	1830	
==>plit('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Arra <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1730	1830	
==>plit('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Arra <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1238	1338	
==>de with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11469	11599	
==>set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2212	2325	
==>bj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2212	2325	
==>bj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2212	2325	
==>bj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	717	829	
==>tion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	717	829	
==>tion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	717	829	
==>tion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1710	1803	
==>truct_equiv);

	if (my $meth = $self->can("reduce_" . $node->struct_equiv->moniker)) {
		retur <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8974	9105	
==>string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($n <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8974	9105	
==>string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24167	24266	
==>tes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zer <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28719	28818	
==>tes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zer <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7300	7397	
==>s part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input dat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7300	7397	
==>s part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input dat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8632	8738	
==>ight %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xg <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5313	5414	
==>digit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_close <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18529	18628	
==>en
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19887	19986	
==>en
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	263	391	
==>rg;
    die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $mayb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	778	893	
==>oNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	778	893	
==>oNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	778	893	
==>oNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	533	636	
==>-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	533	636	
==>-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	533	636	
==>-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4810	4916	
==>ass  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	379	474	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	379	474	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	379	474	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5514	5723	
==>k new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label")) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7276	7485	
==>k new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label")) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4494	4639	
==>/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type ! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4494	4639	
==>/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type ! <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8830	8928	
==>995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3759	3857	
==>995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8830	8928	
==>995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3759	3857	
==>995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13743	13880	
==>$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9927	10064	
==>$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10763	10900	
==>$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10090	10203	
==>.$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10090	10203	
==>.$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10090	10203	
==>.$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn o <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1927	2026	
==>ds which return the p6 version of the
#regexp.  We can then pour the re_test suite through it, yield <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	982	1083	
==>'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'read <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	982	1083	
==>'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'read <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	982	1083	
==>'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'read <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15339	15428	
==>ShiftExpression> <'>>'> <AdditiveExpression>
    | <ShiftExpression> <'>>>'> <AdditiveExpr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	640	741	
==>a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can construct new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16136	16228	
==>ttribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16136	16228	
==>ttribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16136	16228	
==>ttribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10483	10586	
==>$i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17425	17528	
==>$i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10483	10586	
==>$i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17425	17528	
==>$i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7764	7894	
==>$content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7764	7894	
==>$content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1868	1970	
==>ex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Gl <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1868	1970	
==>ex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Gl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21458	21555	
==>ted when the bot receives a corresponding message.
Event names which are all lowercase are "pseudo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20339	20436	
==>ted when the bot receives a corresponding message.
Event names which are all lowercase are "pseudo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21458	21555	
==>ted when the bot receives a corresponding message.
Event names which are all lowercase are "pseudo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20339	20436	
==>ted when the bot receives a corresponding message.
Event names which are all lowercase are "pseudo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1531	1677	
==>|| ${$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1140	1238	
==>t = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1140	1238	
==>t = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1140	1238	
==>t = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $t <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6454	6581	
==>4),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6454	6581	
==>4),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1843	1942	
==>or @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1843	1942	
==>or @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Spa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16266	16368	
==>},
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1160	1337	
==>}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.pu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1160	1337	
==>}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.pu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2013	2105	
==>ype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	984	1086	
==>'t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	984	1086	
==>'t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	984	1086	
==>'t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21547	21646	
==>sn't being raised
until the second pass.  Figured out how to improve the grammar to get
it to work p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3426	3518	
==>lib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3426	3518	
==>lib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3426	3518	
==>lib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4308	4427	
==>g a cp -R
            my $src = $conf->compile_dir->subdir( $self->package );
            system( qq[cp -R $src ]. $inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2159	2261	
==>ray element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2159	2261	
==>ray element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2159	2261	
==>ray element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Per <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	760	859	
==>e Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole t <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	760	859	
==>e Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole t <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	284	376	
==>M::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM- <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	284	376	
==>M::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14952	15065	
==>we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14952	15065	
==>we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14952	15065	
==>we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5811	5899	
==>ot(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(condition(Rk, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5929	6041	
==>g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5929	6041	
==>g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5929	6041	
==>g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	57	149	
==>e Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6::Core::List;

pa <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5776	6024	
==>it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5776	6024	
==>it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4912	5123	
==>it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4912	5123	
==>it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9811	9922	
==>($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max} and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8555	8660	
==>oxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8555	8660	
==>oxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8555	8660	
==>oxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8868	8968	
==>es.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to carry the s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8575	8673	
==>es.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to carry the s <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1563	1657	
==>e &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o> <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1563	1657	
==>e &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1877	1974	
==>des, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1877	1974	
==>des, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1877	1974	
==>des, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10170	10311	
==>int \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6511	6652	
==>int \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7360	7501	
==>int \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6936	7041	
==>rsion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6936	7041	
==>rsion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6936	7041	
==>rsion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::op <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	811	906	
==>.org/repos/iblech/Perl6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synopses <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14613	14760	
==>1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14607	14754	
==>1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            wa <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1642	1741	
==>lf->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($co <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1642	1741	
==>lf->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10119	10251	
==>me    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10119	10251	
==>me    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $! <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5566	5661	
==>his
function.  If you need that information you should use the full OO
interface (see L<LWP::Use <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5566	5661	
==>his
function.  If you need that information you should use the full OO
interface (see L<LWP::Use <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24305	24417	
==>next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alte <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20726	20838	
==>next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alte <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11949	12049	
==>IONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `pr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11949	12049	
==>IONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16790	16909	
==>params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16790	16909	
==>params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16790	16909	
==>params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              = <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4469	4565	
==>utput to STDOUT (details above).  It prints
out each individual test which failed along with a su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1844	1968	
==>llows traits, aliasing, etc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    Complex     Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1133	1236	
==>, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	17	119	
==>gs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementatio <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	17	119	
==>gs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7843	7976	
==>ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7843	7976	
==>ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7843	7976	
==>ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction-> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4090	4199	
==>is the same hack for L::AG
	my $self = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21865	22003	
==>op::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22144	22282	
==>op::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::cons <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9806	9903	
==>nfinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar va <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9806	9903	
==>nfinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar va <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5254	5373	
==>me, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5476	5595	
==>me, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4467	4563	
==>interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  requi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4467	4563	
==>interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13163	13319	
==>1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13163	13319	
==>1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13163	13319	
==>1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4354	4465	
==>it.t with newstr==1*/
      r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	74	175	
==>ift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	74	175	
==>ift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	74	175	
==>ift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3804	3918	
==>CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3804	3918	
==>CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3804	3918	
==>CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5837	5952	
==>ethod_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19189	19282	
==>x1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19189	19282	
==>x1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19189	19282	
==>x1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3957	4057	
==>lt, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3957	4057	
==>lt, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3957	4057	
==>lt, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6112	6198	
==>s;})');
my $x2 = def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::hlp_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1327	1446	
==>my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1327	1446	
==>my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $ur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1742	1853	
==>ure
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1742	1853	
==>ure
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1873	1996	
==>n expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1873	1996	
==>n expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1873	1996	
==>n expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6673	6788	
==>the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self->{err <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2064	2204	
==>tcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2064	2204	
==>tcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2064	2204	
==>tcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9613	9708	
==>if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expander.innerHTML = "&laq <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	423	555	
==>ush @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	423	555	
==>ush @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1171	1280	
==>t past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("ano <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1138	1247	
==>t past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("ano <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11148	11245	
==>thods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11148	11245	
==>thods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11148	11245	
==>thods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDAL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1089	1177	
==>n("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7293	7405	
==>a::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7293	7405	
==>a::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2204	2291	
==>.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AE <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2204	2291	
==>.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AE <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7664	7819	
==>tfix:<!>' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&cont <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	189	302	
==>RT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# W <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	189	302	
==>RT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# W <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14983	15084	
==>er with the type to the left of the arrow in the function's type,
	# this causes the type variables in <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1024	1126	
==>ted, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilre <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1024	1126	
==>ted, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilre <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	946	1047	
==>ted, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilre <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	946	1047	
==>ted, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilre <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2278	2415	
==>ocale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2278	2415	
==>ocale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_var <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6045	6142	
==>";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6045	6142	
==>";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~norma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21325	21419	
==>and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a na <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25877	25971	
==>and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a na <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9115	9208	
==>phering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9115	9208	
==>phering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5065	5180	
==>eton_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_class($self) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	785	889	
==>:PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	785	889	
==>:PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	785	889	
==>:PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gre <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1256	1351	
==>ll.

Log::Selective exports a single function, C<note>, which is called with zero or 
more strin <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1256	1351	
==>ll.

Log::Selective exports a single function, C<note>, which is called with zero or 
more strin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16892	16986	
==>aking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16892	16986	
==>aking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a c <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	143	263	
==>02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (St <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	143	263	
==>02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	566	669	
==>eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	566	669	
==>eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	566	669	
==>eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	217	336	
==>re YAML;
use Scriptalicious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8995	9103	
==>l need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^& <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8995	9103	
==>l need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^& <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8995	9103	
==>l need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^& <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23508	23602	
==>nal dependencies (it is very simple).

There are other differences.  Where other solutions take <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23508	23602	
==>nal dependencies (it is very simple).

There are other differences.  Where other solutions take <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	889	982	
==>rc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for mo <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	889	982	
==>rc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for mo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28164	28312	
==>method' => (
    # method label
        symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36003	36100	
==>the new relation is the union of the invocant and <$other> headings. 
The body of the new relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40553	40649	
==>the new relation is the union of the invocant and <$other> headings.
The body of the new relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40167	40263	
==>the new relation is the union of the invocant and <$other> headings.
The body of the new relation <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38878	38969	
==>UAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	816	905	
==>BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	816	905	
==>BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	816	905	
==>BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12090	12220	
==>x,
      flags => $rx->{flags}[-1],
      family => 'quant',
      data => $data,
      min => $min,
      max => $max,
    }, $cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12542	12652	
==>ntify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12542	12652	
==>ntify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12542	12652	
==>ntify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21419	21533	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17840	17954	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12997	13095	
==>s method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl dat <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12997	13095	
==>s method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9847	9949	
==>ject.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Clas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17083	17185	
==>y Relation::Example @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9847	9949	
==>ject.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9847	9949	
==>ject.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Clas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26129	26224	
==>h attribute name is a character
string.

=item C<$!body> - B<Relation::Example Body>

Set of Map <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27006	27099	
==>ent subset of the original's attributes to what C<project> would
return given the same C<$attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31558	31651	
==>ent subset of the original's attributes to what C<project> would
return given the same C<$attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30614	30707	
==>ent subset of the original's attributes to what C<project> would
return given the same C<$attr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6774	6898	
==>),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "D <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6774	6898	
==>),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "D <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2578	2689	
==>file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st lin <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3014	3125	
==>file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st lin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	380	483	
==>ump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1303	1399	
==>ay (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1303	1399	
==>ay (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1303	1399	
==>ay (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7340	7469	
==>nt a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7092	7218	
==>nt a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2796	2906	
==>lon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3043	3153	
==>lon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29097	29219	
==>>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29097	29219	
==>>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	448	554	
==>>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1548	1653	
==>s.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2361	2495	
==>anything here ...
            %attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5918	6012	
==>s->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5918	6012	
==>s->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5918	6012	
==>s->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cust <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	66	192	
==>t;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	66	192	
==>t;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	66	192	
==>t;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1443	1560	
==>add( Storable::nfreeze($self) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7997	8131	
==>eturn_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8009	8143	
==>eturn_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3440	3538	
==>o it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanal <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3440	3538	
==>o it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanal <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16881	16991	
==>? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n, &Num:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1441	1534	
==>lasses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1441	1534	
==>lasses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1441	1534	
==>lasses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33914	34010	
==>eference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I<anyof_clos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1407	1493	
==>>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1407	1493	
==>>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1407	1493	
==>>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6228	6319	
==>) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6228	6319	
==>) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6228	6319	
==>) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	668	760	
==>turn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	668	760	
==>turn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	668	760	
==>turn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnod <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1477	1579	
==>ion ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - opt <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1477	1579	
==>ion ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - opt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2397	2493	
==>ion ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - opt <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2397	2493	
==>ion ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11780	11881	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11780	11881	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11780	11881	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21147	21242	
==>| <'while'> <'('> <Expression> <')'> <Statement>
    | <'for'> <'('> <ExpressionNoIn>? <';'> <Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3888	4011	
==>n. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protec <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3888	4011	
==>n. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protec <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7097	7215	
==>_autoflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run <==
4	/Users/nnunley/pugs/util/func_refact.pl	2870	2981	
==>cted functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3537	3623	
==>COMPLETE
## --------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4244	4330	
==>COMPLETE
## --------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6675	6761	
==>COMPLETE
## --------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5439	5525	
==>COMPLETE
## --------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	986	1113	
==>ondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $sym_node-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4665	4768	
==>able options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4665	4768	
==>able options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4665	4768	
==>able options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14560	14696	
==>@sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18037	18173	
==>@sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17453	17589	
==>@sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8118	8213	
==>sult,
any further calls to ghc_pkg This method expects to
be called with a path (relative, absol <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	228	326	
==>= "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	284	382	
==>= "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	228	326	
==>= "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	284	382	
==>= "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4774	4909	
==>$a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4774	4909	
==>$a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4774	4909	
==>$a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1801	1906	
==>0
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1801	1906	
==>0
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1801	1906	
==>0
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])= <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14158	14256	
==>iles of interest in the perl sources:
    ./regexp.h ./regcomp.c ./regexec.c
    ./ext/re/re.xs ./e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17424	17517	
==>For some practical examples of Locale::KeyedText in use, see the /examples
directory of this d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17424	17517	
==>For some practical examples of Locale::KeyedText in use, see the /examples
directory of this d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11414	11505	
==>xamples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11414	11505	
==>xamples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4996	5109	
==>$attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8473	8586	
==>$attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7484	7597	
==>$attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of thi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1349	1522	
==>lass to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@roo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1349	1522	
==>lass to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@roo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1122	1227	
==>_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1122	1227	
==>_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pug <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10094	10208	
==>oes not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10094	10208	
==>oes not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_ent <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1796	1894	
==>d
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1796	1894	
==>d
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1014	1162	
==>ulti method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1014	1162	
==>ulti method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!u <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16234	16322	
==>rren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischei <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16292	16380	
==>rren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1055	1196	
==>') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1055	1196	
==>') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1055	1196	
==>') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($tok <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3369	3494	
==>($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} && $totals{seen} &&
                  $tota <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	811	929	
==>{source} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' at: '$self->{ast}{tail}'\n" 
        if $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16679	16777	
==>...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16679	16777	
==>...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16679	16777	
==>...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2015	2108	
==>infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2015	2108	
==>infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2015	2108	
==>infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : N <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9756	9845	
==>VList ($value) { "p6_List(".join(",",map{DOWN($_)}@$value).")" } # XXX
NODE VType ($value) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5424	5541	
==>>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5424	5541	
==>>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5424	5541	
==>>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11256	11370	
==>},
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} ? 1 : undef <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11725	11854	
==>n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp2} );
    }

    return _emit( $n->{exp1} ) . ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	33	132	
==>m $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	33	132	
==>m $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	33	132	
==>m $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(S <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2007	2127	
==>$base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2007	2127	
==>$base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18989	19086	
==>rately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18989	19086	
==>rately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applic <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11711	11808	
==>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalDigits> <ExponentPart>?
}
rule Decimal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1022	1117	
==>lessing objects that it finds along the way into new
namespaces. This is typically useful when y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1022	1117	
==>lessing objects that it finds along the way into new
namespaces. This is typically useful when y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1022	1117	
==>lessing objects that it finds along the way into new
namespaces. This is typically useful when y <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2345	2491	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27499	27645	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2538	2684	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27778	27924	
==>p::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11778	11896	
==>!$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $ENV{PERL5LIB};
    my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17501	17598	
==>) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17501	17598	
==>) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17501	17598	
==>) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11709	11894	
==>mp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsuppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11709	11894	
==>mp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsuppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11709	11894	
==>mp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsuppo <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3339	3455	
==>DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    print( <<'HELP') and exit;

<< USAGE >>

 % p526.pl        # Convert fr <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	930	1052	
==>lars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	811	906	
==>'new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	811	906	
==>'new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	811	906	
==>'new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2221	2320	
==>cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2221	2320	
==>cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2221	2320	
==>cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	923	1028	
==>turn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	923	1028	
==>turn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	923	1028	
==>turn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->b <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9183	9280	
==>our %prelude = (
	# int -> int -> int
	add => type::operator::arrow->new(
		type::operator::nullar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11355	11449	
==>used
because they will not get inherited. This provides more predictable 
behavior to class con <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34067	34161	
==>epresented in Perl with a
look-ahead around the left-hand branch: C</(?=x)y/>.  We can expand t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11355	11449	
==>used
because they will not get inherited. This provides more predictable 
behavior to class con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11355	11449	
==>used
because they will not get inherited. This provides more predictable 
behavior to class con <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1355	1464	
==>'\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1345	1439	
==>a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1345	1439	
==>a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1345	1439	
==>a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3479	3582	
==>bject(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6346	6464	
==>to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5419	5537	
==>to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @m <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6346	6464	
==>to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5419	5537	
==>to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8265	8400	
==>pe' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8265	8400	
==>pe' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17623	17718	
==>s themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
cod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17623	17718	
==>s themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
cod <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3184	3312	
==>s} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9001	9099	
==>s; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9001	9099	
==>s; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9001	9099	
==>s; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@ <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	271	373	
==>oin '.', @path, $name;
my $data = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	624	740	
==>tion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	624	740	
==>tion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	624	740	
==>tion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9709	9807	
==>l to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9709	9807	
==>l to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Con <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6077	6172	
==>$self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6077	6172	
==>$self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$se <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5373	5473	
==>f ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5373	5473	
==>f ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12212	12306	
==>ad2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12212	12306	
==>ad2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subse <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4040	4171	
==>({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4040	4171	
==>({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	742	838	
==>coding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

T <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	742	838	
==>coding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29575	29675	
==>)

Whether this node is omitted from the parse tree.  Certain objects
do not need to appear in the tr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28630	28724	
==>wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33182	33276	
==>wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32310	32404	
==>wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13751	13854	
==>join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimiz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17228	17331	
==>join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimiz <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3026	3124	
==>s of the client, if available.

=back

In addition, the following request headers are set on the HT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3026	3124	
==>s of the client, if available.

=back

In addition, the following request headers are set on the HT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3348	3483	
==>tfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3348	3483	
==>tfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { po <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15975	16074	
==>d` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

Th <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15975	16074	
==>d` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

Th <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	803	939	
==>y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6720	6820	
==>ethod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6720	6820	
==>ethod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6720	6820	
==>ethod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1004	1120	
==>tr $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1004	1120	
==>tr $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp( <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	926	1041	
==>tr $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	926	1041	
==>tr $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12583	12776	
==>f );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call metho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12577	12770	
==>f );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call metho <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1648	1749	
==>elect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of th <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1648	1749	
==>elect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6305	6407	
==>[-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6305	6407	
==>[-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1602	1696	
==>o the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1602	1696	
==>o the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	180	293	
==>ehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt $welt = new W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4103	4194	
==>> of the slurpy
    #   hash.  You give a name to it so that you can refer to  <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4103	4194	
==>> of the slurpy
    #   hash.  You give a name to it so that you can refer to  <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4103	4194	
==>> of the slurpy
    #   hash.  You give a name to it so that you can refer to  <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8531	8689	
==>, h2 {
      background-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11650	11769	
==>);
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11650	11769	
==>);
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11650	11769	
==>);
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3128	3250	
==>:Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3128	3250	
==>:Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3128	3250	
==>:Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7178	7285	
==>rtable.
    my $line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print "can' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7838	7964	
==>}
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not imp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13432	13558	
==>}
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7838	7964	
==>}
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13426	13552	
==>}
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not imp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6460	6588	
==>, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6460	6588	
==>, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6460	6588	
==>, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6872	6957	
==>= Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::Object->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6334	6474	
==>xt unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3459	3599	
==>xt unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4308	4448	
==>xt unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	407	532	
==>erator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
        name => 'postcircumfix:<' . $opt{n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3469	3583	
==>e name
        # of one of this Relation::Example's attributes and the value corresponding
        # to that is the <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5362	5465	
==>f($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writi <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	596	694	
==>e, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	596	694	
==>e, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9153	9327	
==>ce;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12630	12804	
==>ce;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37225	37320	
==>od takes the name of a Perl package in its positional parameter
$module_name (a string) and chec <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37225	37320	
==>od takes the name of a Perl package in its positional parameter
$module_name (a string) and chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15397	15501	
==>@_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15397	15501	
==>@_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15397	15501	
==>@_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : unde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	59	149	
==>nings;
#use Pugs::Compiler::Rule;
use Pugs::Compiler::Regex;
use base qw(Pugs::Grammar::Bas <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4870	5018	
==>ter( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $pkg;
    my $tmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4833	4929	
==>original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4833	4929	
==>original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4833	4929	
==>original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23085	23183	
==>nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21894	21992	
==>nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23085	23183	
==>nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21894	21992	
==>nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply b <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3386	3532	
==>not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1077	1184	
==>t ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1077	1184	
==>t ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1077	1184	
==>t ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	209	320	
==>../lib';
# }
#
# t/TEST will use -MTestInit.  You may "use TestInit" in the test
# programs but it is not re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	139	246	
==>);
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	139	246	
==>);
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	139	246	
==>);
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!" <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3758	3898	
==>point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3758	3898	
==>point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	251	349	
==>ime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	251	349	
==>ime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	78	179	
==>a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=postcircumfi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	960	1058	
==>an')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	960	1058	
==>an')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1507	1605	
==>an')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3333	3430	
==>niker;
	my $method = "define_$kind";
	warn "defining a new $kind (@_)";
	return $self->$method(@_) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35864	35959	
==>eturns a new Relation::Example that has the same heading
and whose body contains all of the tupl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37896	37991	
==>eturns a new Relation::Example that has the same heading and
whose body contains all of the tupl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15699	15792	
==>nicate in those languages.  Or, when viewing an error message, the
application's developer sho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15699	15792	
==>nicate in those languages.  Or, when viewing an error message, the
application's developer sho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3958	4144	
==>es[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3837	4016	
==>es[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $mat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10294	10430	
==>_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10294	10430	
==>_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1003	1139	
==>:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1003	1139	
==>:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1294	1399	
==>eturn $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1221	1320	
==>eturn $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16563	16727	
==>> sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16563	16727	
==>> sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16563	16727	
==>> sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_ra <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1814	1932	
==>kage Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5297	5396	
==>We track our status, especially the channels we've joined.
    # Somebody joined. Update %channels a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5297	5396	
==>We track our status, especially the channels we've joined.
    # Somebody joined. Update %channels a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5736	5833	
==>We track our status, especially the channels we've joined.
  # Somebody joined. Update %channels a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5736	5833	
==>We track our status, especially the channels we've joined.
  # Somebody joined. Update %channels a <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	410	505	
==>::Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustive  { <':exhaustive'> | <':ex' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1818	1906	
==>/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1818	1906	
==>/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1818	1906	
==>/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6893	7001	
==>ep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6893	7001	
==>ep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6893	7001	
==>ep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3887	3989	
==>$xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3887	3989	
==>$xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3887	3989	
==>$xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39738	39830	
==>ethod is the N-ary version of the aforementioned.

=item C<join (Relation::Example $other!) r <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	426	555	
==>n
    ### XXX this should be a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17642	17740	
==>m *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

=i <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17642	17740	
==>m *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1054	1152	
==>and side must be a core type";    
    return num->new($left->to_native + $right->to_num->to_native <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	433	555	
==>my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	433	555	
==>my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14223	14320	
==>routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14223	14320	
==>routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	442	585	
==>p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	442	585	
==>p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	442	585	
==>p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16445	16536	
==>type($$) = {
	types::unify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "boo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1605	1781	
==>ATION },
        repository      => { allow => ISA_JIB_REPOSITORY },
    };

    sub new {
        my $class = shift;
        my %hash  = @_;
        
        ### might get para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12361	12502	
==>sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12361	12502	
==>sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12361	12502	
==>sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5775	5873	
==>t location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5775	5873	
==>t location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5775	5873	
==>t location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17217	17307	
==>ression>
    | <BitwiseXORExpression> <'^'> <BitwiseANDExpression>
}
rule BitwiseXORExpress <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16055	16157	
==>p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16055	16157	
==>p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16055	16157	
==>p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3699	3799	
==>rray.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	734	855	
==>.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	734	855	
==>.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7133	7344	
==>*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9722	9839	
==>rufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9722	9839	
==>rufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9722	9839	
==>rufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3950	4069	
==>7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3950	4069	
==>7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1223	1317	
==>ta to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retriev <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1223	1317	
==>ta to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retriev <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3595	3823	
==>tem' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3595	3823	
==>tem' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7997	8103	
==>s_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7997	8103	
==>s_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $sp <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14294	14425	
==>l 'ok' or 'not ok'.
  name          name of the test (if any)
  number        test number (if any)

  type          'todo' or 'skip' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40547	40659	
==>) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40547	40659	
==>) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40547	40659	
==>) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arra <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1111	1239	
==>}
    multi sub exec($string) returns Bool is builtin is primitive is unsafe {
        # say "e:string"; # XXX delme
        # so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	319	417	
==>Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	319	417	
==>Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	319	417	
==>Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4459	4572	
==>\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4459	4572	
==>\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $n <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5102	5195	
==>ed by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5102	5195	
==>ed by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by th <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	349	449	
==>se, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_emp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	349	449	
==>se, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_emp <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2408	2501	
==>out meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are whe <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2408	2501	
==>out meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4193	4323	
==>rams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4193	4323	
==>rams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4193	4323	
==>rams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	128	235	
==>kend::C::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10131	10275	
==>inding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $arg <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6472	6616	
==>inding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7321	7465	
==>inding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3751	3954	
==>me}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3751	3954	
==>me}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3751	3954	
==>me}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}-> <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	500	592	
==>ibjs/", 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Config{make <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5098	5300	
==>$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5098	5300	
==>$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5098	5300	
==>$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5088	5189	
==>h @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5088	5189	
==>h @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5088	5189	
==>h @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28820	28914	
==>, close,
clump, digit, exact, flags, group, groupp, minmod, prop, open, quant, ref,
reg_any.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18550	18652	
==>mily eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19908	20010	
==>mily eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6844	6988	
==>\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6844	6988	
==>\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6844	6988	
==>\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9551	9649	
==>at$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primitive".
macro rxbare_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18283	18475	
==>_normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18283	18475	
==>_normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18283	18475	
==>_normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## P <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	96	194	
==>to inline the Standard Prelude in pugs.

# Sets up either the inlined Perl 6 source Prelude fallbac <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18092	18193	
==>scendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21349	21450	
==>scendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41357	41458	
==>scendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44256	44357	
==>scendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5056	5162	
==>RHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5056	5162	
==>RHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1960	2066	
==>RHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1744	1853	
==>which do not have an implementation. These
    # methods are then required to be implemented by the 
    # com <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1744	1853	
==>which do not have an implementation. These
    # methods are then required to be implemented by the 
    # com <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1744	1853	
==>which do not have an implementation. These
    # methods are then required to be implemented by the 
    # com <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26746	26839	
==>ent from C<HARNESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4250	4372	
==>nding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4250	4372	
==>nding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4250	4372	
==>nding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsna <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6338	6437	
==>ss gets a special case Does
# to avoid endless recursion
$Class->add_method('does' => sub {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28842	28967	
==>(
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28842	28967	
==>(
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	213	322	
==>(
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14610	14705	
==>ongs inside character classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

Fals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10104	10312	
==>params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10104	10312	
==>params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10104	10312	
==>params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5736	5838	
==>ze (closed) database connection handle we will work with;
    # this does not talk to the underlying db <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5736	5838	
==>ze (closed) database connection handle we will work with;
    # this does not talk to the underlying db <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1201	1298	
==>gs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS';
# X <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1412	1503	
==>gs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25571	25675	
==>or that returns a new Relation
which is the same as the invocant Relation but that some of its attributes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28257	28361	
==>or that returns a new Relation
which is the same as the invocant Relation but that some of its attributes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30123	30227	
==>or that returns a new Relation
which is the same as the invocant Relation but that some of its attributes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32809	32913	
==>or that returns a new Relation
which is the same as the invocant Relation but that some of its attributes <==
4	/Users/nnunley/pugs/util/package-osx.pl	6091	6194	
==>ctions.3pm
        /usr/local/man/man3/Perl6::Overview::Object.3
        /usr/local/man/man3/Perl6::Over <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9847	9940	
==>@MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9847	9940	
==>@MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9847	9940	
==>@MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3131	3264	
==>defined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@component <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3131	3264	
==>defined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@component <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3131	3264	
==>defined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@component <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4739	4842	
==>$self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22462	22581	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23025	23144	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18883	19002	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19446	19565	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4627	4830	
==>om_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4627	4830	
==>om_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6908	7007	
==>ing, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6908	7007	
==>ing, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_ci <==
4	/Users/nnunley/pugs/util/func_refact.pl	2392	2532	
==>nt "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , uni <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2377	2475	
==>l("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2377	2475	
==>l("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2377	2475	
==>l("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(St <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2271	2383	
==>ned( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %par <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2271	2383	
==>ned( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6258	6368	
==>n\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6258	6368	
==>n\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{nor <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33434	33533	
==>e program or first library should
appear first in the array.  Each Set Name can be any defined and n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33434	33533	
==>e program or first library should
appear first in the array.  Each Set Name can be any defined and n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	715	807	
==>e If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	715	807	
==>e If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	856	959	
==>'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1879	1982	
==>'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	856	959	
==>'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1352	1452	
==>:"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2705	2933	
==>w(:node<Bare>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13951	14093	
==>$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13951	14093	
==>$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13951	14093	
==>$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_c <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2659	2801	
==>$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_c <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2061	2189	
==>ir really means that all notifications are sent everywhere
        1;
    }

    method delete {
        $.publisher.remove_subsc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	119	221	
==>ssed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	119	221	
==>ssed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added rol <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	119	221	
==>ssed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added rol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1691	1844	
==>([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1691	1844	
==>([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1691	1844	
==>([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq ' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13847	13947	
==>e_error(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    parse_error(mob, pos, " <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3694	3793	
==>diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_di <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3694	3793	
==>diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3167	3260	
==>::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3353	3446	
==>::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuil <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	443	550	
==>ide down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you li <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	443	550	
==>ide down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you li <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1321	1415	
==>ilar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Ta <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1321	1415	
==>ilar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9308	9416	
==>ext;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $r <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9308	9416	
==>ext;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $r <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25383	25479	
==>e
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14632	14766	
==>@{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14632	14766	
==>@{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14632	14766	
==>@{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops} <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3201	3298	
==>okay
  Failed Test  Stat Wstat Total Fail  Failed  List of Failed
  ------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8160	8284	
==>$old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when It <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8160	8284	
==>$old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when It <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11308	11401	
==>ecode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params ret <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11308	11401	
==>ecode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1661	1795	
==>with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2242	2376	
==>with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1661	1795	
==>with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2242	2376	
==>with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($p <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1434	1534	
==>rt => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1434	1534	
==>rt => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	666	765	
==>ntiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emi <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	666	765	
==>ntiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4222	4328	
==>g,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14362	14452	
==>n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14362	14452	
==>n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14362	14452	
==>n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7325	7529	
==>->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7325	7529	
==>->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7325	7529	
==>->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7155	7244	
==>ject->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10514	10627	
==>+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	708	819	
==>ead = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Contex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	708	819	
==>ead = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Contex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	708	819	
==>ead = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Contex <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	852	973	
==>al => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @$_ } $self->sco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2757	2876	
==>file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2757	2876	
==>file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2757	2876	
==>file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
/ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10365	10463	
==>t. Returns the number of items
inserted.

It is not fatal to insert an item which is already insert <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8258	8356	
==>t. Returns the number of items inserted.

It is not fatal to insert an item which is already insert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10365	10463	
==>t. Returns the number of items
inserted.

It is not fatal to insert an item which is already insert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8258	8356	
==>t. Returns the number of items inserted.

It is not fatal to insert an item which is already insert <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26757	26883	
==>sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fami <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2536	2629	
==>= compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2536	2629	
==>= compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2536	2629	
==>= compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9503	9803	
==>-> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    metho <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9503	9803	
==>-> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    metho <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11398	11491	
==>ns of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11398	11491	
==>ns of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3963	4068	
==>Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3963	4068	
==>Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_node <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3621	3723	
==>', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3621	3723	
==>', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11391	11605	
==>result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11391	11605	
==>result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11592	11681	
==>$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11650	11739	
==>$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7488	7598	
==>s Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.sym <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6618	6728	
==>s Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.sym <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7488	7598	
==>s Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.sym <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6618	6728	
==>s Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.sym <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5541	5655	
==>lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{prefix};
    }

    foreach my $rv ( $self->fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1191	1295	
==>es: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1191	1295	
==>es: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1191	1295	
==>es: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All libr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4481	4590	
==>sr_token_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1212	1312	
==>e;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1212	1312	
==>e;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1212	1312	
==>e;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6895	7039	
==>>{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6668	6803	
==>>{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	327	436	
==>tup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	327	436	
==>tup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2550	2674	
==>,
			(ref $node)->new(
				%$node,
				orig => Blondie::Val->new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2982	3092	
==>test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2982	3092	
==>test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2982	3092	
==>test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5678	5777	
==>B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5678	5777	
==>B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7875	7974	
==>B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

T <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2414	2535	
==>",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub nod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2414	2535	
==>",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub nod <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1878	1970	
==>e
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopse <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1878	1970	
==>e
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopse <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14713	14841	
==>ms loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfile(File::Spec->curdir(), $perl);
	    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3366	3473	
==>a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3366	3473	
==>a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3366	3473	
==>a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  " <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15020	15148	
==>es */

The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4658	4748	
==>table is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4658	4748	
==>table is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5248	5338	
==>table is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20758	20858	
==>ation indicates a failure is to throw an exception;
most often this is due to invalid input.  If an i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25310	25410	
==>ation indicates a failure is to throw an exception;
most often this is due to invalid input.  If an i <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9611	9707	
==>ference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9611	9707	
==>ference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closure <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5059	5187	
==>ta} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16095	16223	
==>ta} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17583	17711	
==>ta} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22266	22394	
==>ta} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    pu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	453	562	
==>$n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8720	8828	
==>$n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8720	8828	
==>$n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8720	8828	
==>$n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1159	1274	
==>tter on #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # no <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1509	1621	
==>tter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # no <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1116	1228	
==>tter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1509	1621	
==>tter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # no <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	884	1101	
==>l5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1252	1360	
==>not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1252	1360	
==>not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1252	1360	
==>not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13398	13520	
==>in.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The fi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16875	16997	
==>in.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The fi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16237	16359	
==>in.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The fi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18586	18701	
==>l_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8812	8927	
==>/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHORS

The Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4579	4682	
==>pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sou <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4579	4682	
==>pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sou <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8052	8141	
==>s([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L])  --> "m", p5_mo <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10851	10983	
==>: "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37735	37834	
==>heading of the new relation is the union of
all the headings of the source relations.  The body of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42284	42383	
==>heading of the new relation is the union of
all the headings of the source relations.  The body of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41934	42033	
==>heading of the new relation is the union of
all the headings of the source relations.  The body of t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7299	7415	
==>function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module doesn <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7299	7415	
==>function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module doesn <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	214	309	
==>l::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(tem <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	214	309	
==>l::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(tem <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4363	4476	
==>ed($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4417	4530	
==>ed($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4363	4476	
==>ed($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4417	4530	
==>ed($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4456	4568	
==>optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

meth <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4456	4568	
==>optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1679	1790	
==>$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_cla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1739	1850	
==>$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_cla <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8322	8466	
==>r( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1257	1381	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1257	1381	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1257	1381	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2892	3003	
==>RY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2892	3003	
==>RY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1054	1159	
==>() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closur <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1054	1159	
==>() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closur <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	299	427	
==>Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	299	427	
==>Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	299	423	
==>Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	299	423	
==>Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3790	3920	
==>od(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3790	3920	
==>od(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3790	3920	
==>od(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4106	4212	
==>ethod pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl6 : <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4106	4212	
==>ethod pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl6 : <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1203	1336	
==>Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            => $config); 
    add_path(site <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	639	795	
==>x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5175	5271	
==>recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything yo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5175	5271	
==>recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything yo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5175	5271	
==>recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything yo <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3668	3771	
==>', $file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11th line\n10th line\n".
        "9th line\n8th line\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	654	746	
==>compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	654	746	
==>compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	654	746	
==>compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $j <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2423	2570	
==>( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2434	2581	
==>( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4497	4623	
==>round the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4497	4623	
==>round the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18067	18263	
==>ly_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21544	21740	
==>ly_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21131	21327	
==>ly_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11061	11203	
==>>{'nparen'} -1;
    sub{
      my $c = $_[0];
      my $m = MatchX->new();
      my $from = $X::pos;
      my $close = sub {
        my $c0 = $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3469	3787	
==>pired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3469	3787	
==>pired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribu <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	679	882	
==>$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.pus <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	679	882	
==>$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20354	20525	
==>tch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20354	20525	
==>tch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20354	20525	
==>tch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8506	8624	
==>flag_val_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	466	610	
==>1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	466	610	
==>1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	937	1070	
==>', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16218	16336	
==>homp (  Str  $string is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int ) <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1437	1544	
==>str) - 1;
}

sub ucfirst (Str $str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1692	1793	
==>ion of this program and exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10797	10893	
==>, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10797	10893	
==>, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third p <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14958	15093	
==>sec;
    has Int  $.wday;    # 1 to 7, Sunday == 1
    has Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # str <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1689	1798	
==>out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1689	1798	
==>out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1769	1878	
==>out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13037	13152	
==>s->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13037	13152	
==>s->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2266	2371	
==>ident($list);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = P <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29314	29413	
==>f a version
of runtests() which rather than printing its output returns raw data
on the state of the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2166	2282	
==>SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2166	2282	
==>SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  per <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1396	1507	
==>SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3257	3368	
==>SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10058	10196	
==>y $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10058	10196	
==>y $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10058	10196	
==>y $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cla <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4118	4231	
==>closeparen = 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->suble <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9290	9442	
==>sh keys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        ] )
    } @ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8068	8168	
==>_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8068	8168	
==>_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8068	8168	
==>_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34676	34900	
==>ub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19977	20069	
==>manually using a set of mappings, or a multi-dimensional object Hash,
or various combinations <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24529	24621	
==>manually using a set of mappings, or a multi-dimensional object Hash,
or various combinations <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23081	23173	
==>manually using a set of mappings, or a multi-dimensional object Hash,
or various combinations <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	612	722	
==>my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	612	722	
==>my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10095	10244	
==>er {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
} <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10095	10244	
==>er {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9966	10082	
==>push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9966	10082	
==>push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14809	14938	
==>joint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18286	18415	
==>joint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17702	17831	
==>joint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.head <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22699	22810	
==>t :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Cat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2287	2404	
==>R_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2287	2404	
==>R_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_ <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1234	1335	
==>~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1234	1335	
==>~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4788	4972	
==>es'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () retur <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4788	4972	
==>es'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () retur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2990	3084	
==>item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2990	3084	
==>item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2421	2537	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7515	7631	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2421	2537	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7515	7631	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3231	3375	
==>er should fix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-start
                #print "checking { .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12301	12409	
==>Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12301	12409	
==>Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12301	12409	
==>Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1759	1868	
==>self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1759	1868	
==>self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1759	1868	
==>self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (H <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11144	11241	
==>"Package '".$inst_pkg->package."' and associated metadata removed");

    return 1;
}

=head2 $alt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1566	1730	
==>> sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7568	7676	
==>>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7568	7676	
==>>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	511	682	
==>tart, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3525	3629	
==>gs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3525	3629	
==>gs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3525	3629	
==>gs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11246	11359	
==>' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11246	11359	
==>' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11246	11359	
==>' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2115	2216	
==>: charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} & <==
4	/Users/nnunley/pugs/util/addauthors.pl	85	190	
==>comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $comi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4892	4991	
==>tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4892	4991	
==>tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4892	4991	
==>tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3216	3353	
==>k => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12632	12743	
==>stkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12632	12743	
==>stkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12632	12743	
==>stkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20969	21084	
==>bject(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17390	17505	
==>bject(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2990	3089	
==>ar].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].joi <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2990	3089	
==>ar].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10013	10205	
==>_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10013	10205	
==>_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10013	10205	
==>_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s-> <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3042	3161	
==>delete $values{perl_version} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1093	1239	
==>kage );
    
    ### XXX flesh out this format better
    {   my @files = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6327	6429	
==>ze $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6327	6429	
==>ze $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13734	13878	
==>arams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13734	13878	
==>arams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13734	13878	
==>arams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    ins <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1727	1817	
==>tor::binary: level($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13455	13558	
==>=~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13455	13558	
==>=~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2870	2969	
==>mber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2870	2969	
==>mber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2870	2969	
==>mber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1868	1963	
==>n;

*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACKAGE__;

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4032	4156	
==>sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4032	4156	
==>sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4032	4156	
==>sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obje <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3219	3311	
==>t_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)] <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	772	882	
==>_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	772	882	
==>_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2678	2777	
==>s.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2678	2777	
==>s.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	861	967	
==>butes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	861	967	
==>butes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	861	967	
==>butes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':d <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7506	7633	
==>"crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7506	7633	
==>"crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3581	3691	
==>e>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7314	7453	
==>"val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7314	7453	
==>"val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7314	7453	
==>"val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19287	19380	
==>m Documentation

Fixed some poor wording, and documented the problem with using F<SUPER::>
ins <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2388	2509	
==>package didn't provide any alternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX this should pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1003	1107	
==>ators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1003	1107	
==>ators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1003	1107	
==>ators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Num <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	366	481	
==>u must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || confess "Your arg list must at least inclu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	691	804	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var rep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	691	804	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var rep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	691	804	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2136	2242	
==>TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2136	2242	
==>TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2136	2242	
==>TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TOD <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31142	31242	
==>ject.

=back

The following attributes may also be set:

=over 4

=item branch

Whether this object h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11661	11757	
==>s, themselves does Role since they
are just instances of Class which does Role too. So this means <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11661	11757	
==>s, themselves does Role since they
are just instances of Class which does Role too. So this means <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11661	11757	
==>s, themselves does Role since they
are just instances of Class which does Role too. So this means <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27557	27649	
==>istify(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list int", ":t listify(5) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	873	1039	
==>mp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4112	4278	
==>mp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	873	1039	
==>mp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4112	4278	
==>mp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $o <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	37	150	
==>';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	33	129	
==>e takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	33	129	
==>e takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	33	129	
==>e takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1882	1996	
==>>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1882	1996	
==>>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1882	1996	
==>>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11450	11544	
==>ngleton_test_on_object } '... instance calling metaclass singleton method fails';

is($iBar->fo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39833	39924	
==>er General Public License (LGPL) as
published by the Free Software Foundation (L<http://www. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39833	39924	
==>er General Public License (LGPL) as
published by the Free Software Foundation (L<http://www. <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3760	3896	
==>me =~ s!.*/!!;

        # XXX - work around Cabal bug --
        # we have to locate "Syck_stub.o" and copy it into
        # dist/build/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16271	16398	
==>$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16271	16398	
==>$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      m <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	559	685	
==>1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	559	685	
==>1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-s <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1993	2193	
==>r current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then w <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1993	2193	
==>r current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then w <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13222	13408	
==>y) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3403	3565	
==>y) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3403	3565	
==>y) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3403	3565	
==>y) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	726	828	
==>her(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	726	828	
==>her(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	726	828	
==>her(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5789	5878	
==>pdated => localtime() . "");
$template->param(files => $total_files);
$template->param(lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6695	6792	
==>('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6695	6792	
==>('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6695	6792	
==>('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses') <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	501	600	
==>ate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	707	806	
==>ate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3268	3350	
==>ent_previous, $self.complement_next, $set.complement_previous, $set.complement_next <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3268	3350	
==>ent_previous, $self.complement_next, $set.complement_previous, $set.complement_next <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4289	4443	
==>h;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4830	4984	
==>h;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22878	22968	
==>etta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<T <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22878	22968	
==>etta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	726	826	
==>IL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	726	826	
==>IL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Has <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	726	826	
==>IL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Has <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1008	1099	
==>w/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use base qw/Blondie::TypeSafe <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1034	1154	
==>>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	776	896	
==>>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1034	1154	
==>>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	776	896	
==>>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6059	6215	
==>) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.cur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6879	7035	
==>) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.cur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6059	6215	
==>) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.cur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6879	7035	
==>) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3817	3922	
==>ou must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3817	3922	
==>ou must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3817	3922	
==>ou must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $op <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2530	2627	
==>t that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional paramet <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12310	12409	
==>ESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It do <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12310	12409	
==>ESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It do <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1435	1529	
==>at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1575	1669	
==>at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16498	16640	
==>ax_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20924	21066	
==>ax_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1126	1217	
==>rrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1126	1217	
==>rrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5845	5974	
==>n = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'my') { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	409	514	
==>d Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	409	514	
==>d Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	409	514	
==>d Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	88	193	
==>the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	92	197	
==>the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	88	193	
==>the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	92	197	
==>the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4917	5093	
==>y => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7833	7982	
==>_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7833	7982	
==>_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7833	7982	
==>_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9947	10051	
==>ibed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9947	10051	
==>ibed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9947	10051	
==>ibed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attrib <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2299	2401	
==>e {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10210	10385	
==>move($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opaque $self:) returns list { 
    %: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1543	1664	
==>ass}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1543	1664	
==>ass}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1543	1664	
==>ass}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10966	11070	
==><$set.remove(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8370	8474	
==><$set.remove(...)>

Removes the specified items from the set. Returns the number of items removed.

It is <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10966	11070	
==><$set.remove(...)>

Removes the specified items from the set. Returns the number of items
removed.

It is <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8370	8474	
==><$set.remove(...)>

Removes the specified items from the set. Returns the number of items removed.

It is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3190	3319	
==>b ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3921	4021	
==>b ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18797	18895	
==>.) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can giv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18797	18895	
==>.) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can giv <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12324	12548	
==>id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12324	12548	
==>id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	133	254	
==>) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	133	254	
==>) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	472	583	
==>ent || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	472	583	
==>ent || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	472	583	
==>ent || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8002	8096	
==>ct(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12654	12791	
==>,
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12654	12791	
==>,
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12654	12791	
==>,
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxe <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1073	1177	
==>~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9894	10089	
==>y => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9894	10089	
==>y => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9894	10089	
==>y => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7818	7967	
==>> 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7818	7967	
==>> 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a ro <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2882	2984	
==>ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2882	2984	
==>ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12211	12310	
==>itialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that get <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16791	16890	
==>itialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that get <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12211	12310	
==>itialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that get <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16791	16890	
==>itialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that get <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14452	14553	
==>s_array_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_h <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2813	2910	
==>ATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2813	2910	
==>ATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs c <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4750	4869	
==>ffset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._s <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4750	4869	
==>ffset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._s <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	221	336	
==>RAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Rea <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	221	336	
==>RAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Rea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11330	11494	
==>::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7612	7776	
==>::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8446	8610	
==>::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" . <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16764	16873	
==>returned from C<analyze()> contain the following
information:

  passing           true if the whole test is c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2612	2714	
==>gification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2612	2714	
==>gification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2612	2714	
==>gification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	291	386	
==>in';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	531	631	
==>h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	531	631	
==>h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	531	631	
==>h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9098	9208	
==>xt_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9098	9208	
==>xt_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9098	9208	
==>xt_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17395	17497	
==>.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # do <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	248	401	
==>^---$/ && do {
            die "sorry, multiple documents not supported\n" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1045	1165	
==>med_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1045	1165	
==>med_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1254	1374	
==>med_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5015	5228	
==>++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.ad <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5015	5228	
==>++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.ad <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10101	10215	
==>template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpol <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10101	10215	
==>template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4598	4731	
==>\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4738	4871	
==>\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13446	13555	
==>ther above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13446	13555	
==>ther above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24504	24618	
==>ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24504	24618	
==>ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24504	24618	
==>ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3691	3796	
==>,  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (2 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3691	3796	
==>,  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3093	3190	
==>equest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3093	3190	
==>equest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Conten <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7161	7282	
==>$flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\*STDOUT);
    _au <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19757	19863	
==>{
    $item; #XXX - sufficient to "Forces generic Item context"?
}

 
 multi prefix:<:16> ( Str $hexstr = C <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12764	12859	
==>e spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit spe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12764	12859	
==>e spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit spe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2120	2241	
==>atch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2120	2241	
==>atch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $ma <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7310	7404	
==>f: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $trave <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7310	7404	
==>f: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $trave <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2059	2171	
==>my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	972	1074	
==>commits    = reverse @commits;
@developers = reverse @developers;

# Collect commits in days
# E.g. $co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3498	3592	
==>command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell vers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3498	3592	
==>command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell vers <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1446	1543	
==>nstance }
type::operator::nullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { j <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	385	500	
==>s->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	385	500	
==>s->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3313	3470	
==>match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captur <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3313	3470	
==>match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captur <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11129	11263	
==>if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( - <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11129	11263	
==>if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11886	12015	
==>rd
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11880	12009	
==>rd
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7893	8004	
==>XX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_bl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7905	8016	
==>XX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_bl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	262	395	
==>die one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3851	3958	
==>$_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3851	3958	
==>$_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3851	3958	
==>$_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	782	891	
==>ngth( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$le <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	782	891	
==>ngth( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9476	9573	
==>ich
may be repeated, and which are printed in a particular order.  The
field names are cases insen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9476	9573	
==>ich
may be repeated, and which are printed in a particular order.  The
field names are cases insen <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	661	781	
==>diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnos <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	661	781	
==>diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnos <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9653	9771	
==>2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $con <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9653	9771	
==>2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13791	13944	
==>n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            return $n->{op1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9474	9567	
==>utes are private, so you must use accessor methods.
Rosetta::Model does not declare any subrou <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9474	9567	
==>utes are private, so you must use accessor methods.
Rosetta::Model does not declare any subrou <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14110	14199	
==>s([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charn <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8966	9062	
==>n (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9764	9860	
==>n (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10673	10769	
==>n (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12275	12371	
==>n (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	726	850	
==>);
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	726	850	
==>);
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3823	4024	
==>};
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1973	2073	
==>: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1973	2073	
==>: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1973	2073	
==>: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4635	4741	
==>eturns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4635	4741	
==>eturns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4635	4741	
==>eturns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15304	15400	
==>u right there!)

=item Regexp::MinLength

Implements a min_length() method for all objects that d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8287	8403	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8480	8596	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  matc <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1150	1251	
==>der and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $IN <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2990	3091	
==>der and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $IN <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	840	938	
==>or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27633	27772	
==>::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27912	28051	
==>::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	536	646	
==>fault)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	510	614	
==>fault)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	501	676	
==>turn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	416	591	
==>turn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	504	679	
==>turn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2043	2138	
==>ondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1512	1766	
==>ding

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages used b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3414	3527	
==>))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3414	3527	
==>))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3414	3527	
==>))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7735	7874	
==>ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7735	7874	
==>ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7735	7874	
==>ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retur <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	47	142	
==>5 implementation's
# "regcomp hooks" (C functions called when regexps are compiled and
# applied <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6946	7070	
==>ndidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6946	7070	
==>ndidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32192	32290	
==>then checks
each set's member for language B and displays that; and so on.

I<For the present, Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32192	32290	
==>then checks
each set's member for language B and displays that; and so on.

I<For the present, Loca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2361	2461	
==>hift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2361	2461	
==>hift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2361	2461	
==>hift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14733	14826	
==>reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	962	1099	
==>ing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	962	1099	
==>ing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    r <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	348	464	
==>Char is Char;
class Grapheme     is Char;
class CodePoint    is Char;
class Byte         is Char, Number;

macro LCha <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19825	19923	
==>p5);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3362	3491	
==>lone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3362	3491	
==>lone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3362	3491	
==>lone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $i <==
4	/Users/nnunley/pugs/util/package-osx.pl	8426	8523	
==>/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pug <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7912	8017	
==>e set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7042	7147	
==>e set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7912	8017	
==>e set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7042	7147	
==>e set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12923	13032	
==>rn_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12923	13032	
==>rn_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12923	13032	
==>rn_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4614	4731	
==>p(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			my $expected = shift @context;

			#war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2253	2355	
==>n, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2253	2355	
==>n, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2253	2355	
==>n, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - param <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4217	4340	
==>eturn;              

    File::Copy::copy( $pkg->file, $self->pool )     or error($!), return;
    $self->add_package_to_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1151	1248	
==>$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1151	1248	
==>$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1151	1248	
==>$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelud <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	89	219	
==>rt {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur { <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	89	219	
==>rt {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8971	9076	
==>Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsula <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8971	9076	
==>Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsula <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13532	13628	
==>}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13532	13628	
==>}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13532	13628	
==>}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7950	8213	
==>nt; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7950	8213	
==>nt; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7950	8213	
==>nt; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8182	8271	
==>pos([s|L])  --> "s", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([x|L])  --> "x", p5_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4089	4199	
==>"function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4089	4199	
==>"function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4089	4199	
==>"function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == u <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	117	213	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'looks_like_number';

use bas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8380	8482	
==>xp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3343	3439	
==>ts, and then telling this module to compare the received
output to the expected output.

=head1 E <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3343	3439	
==>ts, and then telling this module to compare the received
output to the expected output.

=head1 E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3423	3519	
==>ts, and then telling this module to compare the received
output to the expected output.

=head1 E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16766	16909	
==>:Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16766	16909	
==>:Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16766	16909	
==>:Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	237	356	
==>:Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2130	2238	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2130	2238	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2130	2238	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::O <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29647	29751	
==>ecessor, you would have
to add it explicity to the queue for it to ever be executed.  As such,
it would b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1843	1942	
==>d reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1843	1942	
==>d reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1843	1942	
==>d reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# T <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3802	3912	
==>draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = &infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3819	3908	
==>ce_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3819	3908	
==>ce_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3819	3908	
==>ce_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7253	7372	
==>d$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ".timestr($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4110	4221	
==>_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4110	4221	
==>_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4110	4221	
==>_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7798	7916	
==>turn $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7798	7916	
==>turn $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1012	1117	
==>FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1012	1117	
==>FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3102	3219	
==>iption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.di <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3102	3219	
==>iption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4626	4743	
==>iption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.di <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11908	12004	
==>erl engine can continue working.

  Upon exec, the subref should return match information.  Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1048	1158	
==>f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1048	1158	
==>f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1048	1158	
==>f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	388	485	
==>] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser:: <==
4	/Users/nnunley/pugs/util/grokprims.pl	2321	2427	
==>'1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td>< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17118	17214	
==>tta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
imple <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17118	17214	
==>tta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
imple <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	783	878	
==>s{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
}

CookiesIni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3038	3152	
==>Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3038	3152	
==>Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3038	3152	
==>Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2242	2345	
==>irectories (if used)
my $output_dir;  # The root directory of the output tree.
my $start_dir = cwd;

# r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	12	113	
==>::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	12	113	
==>::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	12	113	
==>::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op b <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13384	13482	
==>$@;
  $total_links += $links;
  $total_files++;
  $outfile->print($template->output);
}

sub infest <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35362	35459	
==>butes in common; it will only accept inputs that would result in
a cross-product when joined.  Thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39912	40009	
==>butes in common; it will only accept inputs that would result in
a cross-product when joined.  Thi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39472	39569	
==>butes in common; it will only accept inputs that would result in
a cross-product when joined.  Thi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	593	682	
==>s", "PGE::Exp::Anchor");
    $optable->addToken("term:\$", "term:", "nows", &parse_dollar) <==
4	/Users/nnunley/pugs/util/version_h.pl	233	344	
==>sion_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_REVISION (\d+)/ or next;
    $old_revision = $1;
    las <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3971	4067	
==>king etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3971	4067	
==>king etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3971	4067	
==>king etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9093	9275	
==>st)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9093	9275	
==>st)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9093	9275	
==>st)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        sta <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	56	163	
==>er;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $class = s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4518	4614	
==>ription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is fo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4518	4614	
==>ription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6715	6811	
==>ription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is fo <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	904	1103	
==>section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    el <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	904	1103	
==>section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    el <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18038	18135	
==>t is, multiple DBMS objects will not
have references to each other at a level visible in the Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18038	18135	
==>t is, multiple DBMS objects will not
have references to each other at a level visible in the Roset <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	803	948	
==>ass ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$cla <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	803	948	
==>ass ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	437	541	
==>- TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	437	541	
==>- TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subru <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11812	11931	
==>$P1.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7878	7994	
==>_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7878	7994	
==>_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7878	7994	
==>_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i+ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1402	1511	
==>oncatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cen <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1402	1511	
==>oncatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14784	14880	
==>lt is "\n".  Embedded "\n" characters in header field
values will be substituted with this line e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14784	14880	
==>lt is "\n".  Embedded "\n" characters in header field
values will be substituted with this line e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3235	3360	
==>line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3235	3360	
==>line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16582	16684	
==>>{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_r <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13919	14096	
==>,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4028	4177	
==>,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intabl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4028	4177	
==>,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intabl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4028	4177	
==>,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1586	1730	
==>:opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1586	1730	
==>:opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1586	1730	
==>:opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15179	15294	
==>s;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4048	4149	
==>alue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4048	4149	
==>alue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4048	4149	
==>alue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	101	189	
==>::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Array::pop () returns Scalar <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2976	3083	
==>()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")" <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4238	4345	
==>()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")" <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2976	3083	
==>()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")" <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4238	4345	
==>()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")" <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	602	739	
==>sionCode(@variables) {
    my(@coded);
    for(@variables) {
        push(@coded,$_ ~ "=" ~ url_encode(%Session{$_}));
    }
    return @c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5074	5184	
==>ll_ok(\%tot);

Tells you if this test run is overall successful or not.

=cut

sub _all_ok {
    my($tot) = shi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23723	23818	
==>ule won't simply
send all commands immediately to the server, but creates a queue, which is then <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23723	23818	
==>ule won't simply
send all commands immediately to the server, but creates a queue, which is then <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24245	24385	
==>->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, $self->{data}[0]->visual, $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10402	10520	
==>= '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::T <==
4	/Users/nnunley/pugs/util/fixauthors.pl	417	535	
==>id2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2423	2529	
==>= '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2423	2529	
==>= '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::T <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1133	1263	
==>>subdir( shift() ) }
                            ];

### repository dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('ji <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5473	5580	
==>::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5473	5580	
==>::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5473	5580	
==>::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20811	20909	
==>escribing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19728	19826	
==>escribing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20811	20909	
==>escribing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19728	19826	
==>escribing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has th <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1910	2089	
==>w(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9035	9202	
==>perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9870	10037	
==>perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	800	906	
==>b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	800	906	
==>b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	800	906	
==>b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5725	5878	
==>{
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5725	5878	
==>{
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            els <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5725	5878	
==>{
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            els <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	33	135	
==>Can;

use strict;
use Module::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependen <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14344	14444	
==>r $diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TA <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14402	14502	
==>r $diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TA <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	814	930	
==>_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2656	2768	
==>sion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2656	2768	
==>sion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2656	2768	
==>sion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	402	564	
==>$h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	402	564	
==>$h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2559	2690	
==>iler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2559	2690	
==>iler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5329	5452	
==>re, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5329	5452	
==>re, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5329	5452	
==>re, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eva <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6331	6449	
==>me}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::NodesInfo::n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15546	15661	
==>out our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multime <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15546	15661	
==>out our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multime <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15546	15661	
==>out our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multime <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6363	6465	
==>d} == 0 >> and C<< $total->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref of all th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40681	40793	
==>{
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40681	40793	
==>{
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40681	40793	
==>{
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s] <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6572	6678	
==>oject (Set of Str $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8839	8956	
==>ar thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8839	8956	
==>ar thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8839	8956	
==>ar thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2647	2743	
==>n::Named.new(:name($name), :subscriber($subscriber), :publisher($?SELF));
            ( %.subscri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16529	16627	
==>:TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Ins <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16529	16627	
==>:TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Ins <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12590	12684	
==>rrent working features.

This module deals with encoding and decoding of strings with HTML
char <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12590	12684	
==>rrent working features.

This module deals with encoding and decoding of strings with HTML
char <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18704	18821	
==>ted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17747	17864	
==>ted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18704	18821	
==>ted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17747	17864	
==>ted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	352	471	
==>:Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	352	471	
==>:Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	352	471	
==>:Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	206	295	
==>ment_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2885	2996	
==>epl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2885	2996	
==>epl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2885	2996	
==>epl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verb <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5544	5649	
==>ub inf {
    1000**1000**1000 #XXX there has to be a better way. :(
  }
}
{
  package Regexp::Parser::__ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10990	11124	
==>ache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10990	11124	
==>ache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10990	11124	
==>ache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4618	4736	
==>per:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1881	1975	
==>age, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1881	1975	
==>age, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1881	1975	
==>age, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3869	3980	
==>thod intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3869	3980	
==>thod intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1729	1839	
==>thod intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1729	1839	
==>thod intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2765	2892	
==>.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        els <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2765	2892	
==>.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        els <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6584	6682	
==>tr`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6584	6682	
==>tr`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	205	315	
==>H} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no description)";
  $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1248	1353	
==>y $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1248	1353	
==>y $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1248	1353	
==>y $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelude <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5849	5964	
==>\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "messag <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5849	5964	
==>\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "messag <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4158	4265	
==>);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infi <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4158	4265	
==>);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8102	8201	
==>gh as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setti <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8102	8201	
==>gh as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setti <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36272	36360	
==>is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by tran <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36272	36360	
==>is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by tran <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6276	6390	
==>odifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5349	5463	
==>odifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6276	6390	
==>odifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5349	5463	
==>odifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12638	12760	
==>_found_backwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6991	7095	
==>CH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6991	7095	
==>CH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6991	7095	
==>CH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5956	6060	
==>\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5956	6060	
==>\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5956	6060	
==>\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4524	4626	
==>ad2 package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autog <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20904	21004	
==>has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19821	19921	
==>has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20904	21004	
==>has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19821	19921	
==>has the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8396	8520	
==>he string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	554	678	
==>he string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8114	8236	
==>he string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	529	651	
==>he string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	666	796	
==>ir {
    my $self = shift;
    my $pkg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or return;

    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3292	3407	
==>->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3292	3407	
==>->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3292	3407	
==>->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1012	1109	
==>um::round_alternate (Num $x) {
# XXX I don't understand what round-alternate means.
# But in my un <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6590	6684	
==>ruly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6590	6684	
==>ruly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8787	8881	
==>ruly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	473	566	
==>py, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	473	566	
==>py, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	473	566	
==>py, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16775	16897	
==>ess ($pass) {
        _diag "# PROG: \n$prog\n";
        _diag "# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GOT:\n <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6536	6634	
==>ay and it's probably okay to keep a few
# zombies around for a relatively short while.
sub gather_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	870	966	
==>nt to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package My <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	870	966	
==>nt to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package My <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1285	1396	
==>r hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1285	1396	
==>r hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1285	1396	
==>r hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @im <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16642	16737	
==>max_offset would be plausible places to hide data.
Perl_re_dup just copies them.

  struct reg_d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20123	20218	
==>ssword);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorizatio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21469	21564	
==>ough several attributes may store values of the same class;
every Relation tuple must be distinc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26021	26116	
==>ough several attributes may store values of the same class;
every Relation tuple must be distinc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20123	20218	
==>ssword);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorizatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4679	4830	
==>n;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = shift;
    sub {
        my $match <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7062	7184	
==>...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6695	6796	
==>1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6707	6808	
==>1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20651	20746	
==>r you chose so to pick a supported language closest to your
preference.  Presumably the messages <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	900	995	
==>ubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $sel <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20651	20746	
==>r you chose so to pick a supported language closest to your
preference.  Presumably the messages <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	900	995	
==>ubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2262	2365	
==>n $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveEx <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2262	2365	
==>n $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveEx <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40774	40868	
==>d appreciate being informed any time you create a
modified version of Locale::KeyedText that yo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40774	40868	
==>d appreciate being informed any time you create a
modified version of Locale::KeyedText that yo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1213	1351	
==>ie $?;
        system( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5451	5567	
==>etting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5451	5567	
==>etting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5451	5567	
==>etting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2565	2665	
==>erl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2565	2665	
==>erl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1778	1872	
==>erl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3639	3733	
==>erl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18440	18560	
==>d into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PRE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18440	18560	
==>d into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PRE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2045	2150	
==>s";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1727	1828	
==>s";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1344	1463	
==>(then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filename: $!";
    { local $/; $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2089	2184	
==>my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2089	2184	
==>my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2089	2184	
==>my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname = <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	946	1051	
==>lback);
  my $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$npare <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	443	564	
==>map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	443	564	
==>map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	315	426	
==>bmethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	315	426	
==>bmethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17937	18147	
==>method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17937	18147	
==>method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17937	18147	
==>method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	290	401	
==>rgs) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5194	5305	
==>r( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2736	2847	
==>r( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15799	15901	
==>aller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

In <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15857	15959	
==>aller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4773	4873	
==>ar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4773	4873	
==>ar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4773	4873	
==>ar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3955	4063	
==>%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3955	4063	
==>%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3955	4063	
==>%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	650	745	
==>ame = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9876	9988	
==>no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7816	7928	
==>no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9876	9988	
==>no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7816	7928	
==>no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9103	9217	
==>add_flag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }x <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2270	2373	
==>ie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::No <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5494	5594	
==>sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc? <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5552	5652	
==>sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc? <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3632	3741	
==>{
    # pragma to dispense of the holy war about whether to raise
    # exceptions or return false values to s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3090	3193	
==>attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3090	3193	
==>attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3090	3193	
==>attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27647	27828	
==>st'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3157	3254	
==>1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3157	3254	
==>1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3237	3334	
==>1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15923	16028	
==>sub { p6_Num(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6281	6372	
==>L2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6281	6372	
==>L2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6281	6372	
==>L2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24169	24269	
==>s.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28721	28821	
==>s.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21994	22090	
==>n
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first on <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21994	22090	
==>n
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9881	9989	
==>nless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9881	9989	
==>nless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9881	9989	
==>nless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6570	6662	
==>){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $source = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1923	2075	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2116	2268	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1512	1631	
==>t::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'I <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1479	1598	
==>t::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4185	4277	
==>ecendence_list');

is($Object->id, 2, '... $Object is the second id');
is($Object->class, $Cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6874	6992	
==>:SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6874	6992	
==>:SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6874	6992	
==>:SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $P <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8406	8514	
==>pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cached, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1974	2069	
==>nstant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1974	2069	
==>nstant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1974	2069	
==>nstant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceo <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2297	2475	
==>okup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw",
                          } ];
    }
    else {
        return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5687	5800	
==>=   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3023	3136	
==>=   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3872	3985	
==>=   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10827	10977	
==>p->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7904	8045	
==>p->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7904	8045	
==>p->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12811	12959	
==>t @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12811	12959	
==>t @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12811	12959	
==>t @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8261	8368	
==>->{_parent} || "../");
    $template->param(directory => $path);
    $template->param(directories => [ map { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1649	1745	
==>aders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1649	1745	
==>aders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fiel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2426	2517	
==>ack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoade <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2426	2517	
==>ack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoade <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2426	2517	
==>ack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoade <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2904	3033	
==>_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2904	3033	
==>_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2904	3033	
==>_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6428	6547	
==>:ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return { sub_application_term => $() ,} }
RULE
*{'sub_application'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16282	16384	
==>SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16282	16384	
==>SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16282	16384	
==>SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implem <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10298	10384	
==>6_char_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(space_per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18614	18793	
==>e Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18614	18793	
==>e Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18614	18793	
==>e Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	112	208	
==>ge;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Message <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2296	2395	
==>1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2296	2395	
==>1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2296	2395	
==>1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_I <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30858	30969	
==>ue $self: list @values) returns block {
    my $counter = 0;
    return sub {
        return @values[$counter++] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2760	2869	
==>CH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.ST <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2760	2869	
==>CH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.ST <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2760	2869	
==>CH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.ST <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4779	4975	
==>ier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CO <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4779	4975	
==>ier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CO <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1416	1544	
==>?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $pro <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1416	1544	
==>?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4253	4346	
==>d other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4253	4346	
==>d other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4253	4346	
==>d other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25096	25185	
==>x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em,E1) :-
  E0 = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	588	714	
==>s Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	588	714	
==>s Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1598	1704	
==>nt = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_dat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1802	1908	
==>nt = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7030	7135	
==>ft;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7030	7135	
==>ft;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7030	7135	
==>ft;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4132	4230	
==>k

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder si <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4132	4230	
==>k

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder si <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5656	5754	
==>k

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3875	3983	
==>ead>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3875	3983	
==>ead>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3875	3983	
==>ead>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6323	6437	
==>->remove_registered_alternative( package => $unlink_this )
            if $unlink_this;

        ### link the files <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4818	4913	
==>rn sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4818	4913	
==>rn sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4818	4913	
==>rn sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1326	1420	
==>.getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1326	1420	
==>.getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1326	1420	
==>.getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3597	3714	
==>STROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3597	3714	
==>STROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3597	3714	
==>STROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27804	27902	
==>t of the same name, and finally
from F<Regexp::Parser::__object__>.  Don't worry -- if you don't de <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2828	2951	
==>ommit_rule        { \:\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10662	10771	
==>ar('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is sti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10662	10771	
==>ar('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is sti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10662	10771	
==>ar('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is sti <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6518	6616	
==>e file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6518	6616	
==>e file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	128	236	
==>';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($kla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16621	16747	
==>?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;

        # pipes double these sometimes
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	988	1086	
==>ilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	988	1086	
==>ilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1535	1633	
==>ilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16856	16985	
==>l;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16856	16985	
==>l;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16856	16985	
==>l;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6168	6268	
==>uiv->val->struct_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->ma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19254	19354	
==>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read data <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18279	18379	
==>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read data <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19254	19354	
==>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read data <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18279	18379	
==>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read data <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9040	9156	
==>t.  As such, we have
        # a very special cygwin work-around.  Ugh!


        if (not $ghc_exe and $Config{osname <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9843	9957	
==>t) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9843	9957	
==>t) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9843	9957	
==>t) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IND <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1901	2003	
==>sert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1901	2003	
==>sert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	907	1018	
==>gs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	907	1018	
==>gs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	907	1018	
==>gs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or us <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21674	21775	
==>ce [ "PGE::Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .local int isarray, iscapt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3551	3669	
==>]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4868	4986	
==>]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3551	3669	
==>]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4856	4974	
==>]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1035	1160	
==>= 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1035	1160	
==>= 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos( <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4958	5054	
==>owing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by th <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4958	5054	
==>owing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3613	3716	
==>setta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!pa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3613	3716	
==>setta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!pa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2497	2596	
==>ugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2497	2596	
==>ugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6868	7022	
==>us ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6868	7022	
==>us ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7515	7627	
==>ie "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	538	631	
==>s) returns List of Object|Object
multi sub pairs  (@array ; Any|Junction *@indextests) returns <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2287	2414	
==>TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'type' ,'Type';
node_a 'TCxt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4211	4335	
==>n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_coun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4211	4335	
==>n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_coun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4211	4335	
==>n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_coun <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10054	10173	
==>,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7994	8113	
==>,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all p <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10054	10173	
==>,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all p <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7994	8113	
==>,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2906	3043	
==>t;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1280	1417	
==>t;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2906	3043	
==>t;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2906	3043	
==>t;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3798	3900	
==>n ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4051	4153	
==>n ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3798	3900	
==>n ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4051	4153	
==>n ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11138	11319	
==>rams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11138	11319	
==>rams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11138	11319	
==>rams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11754	11842	
==>ctidecimal_escape_sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> octa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11837	12030	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11837	12030	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11837	12030	
==>ses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15820	15913	
==>ements of the regex
according to a style-sheet (syntax highlighting).

=item Regexp::Reverse ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13123	13265	
==>} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13123	13265	
==>} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13123	13265	
==>} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2648	2759	
==>ures'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15115	15249	
==>hing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15115	15249	
==>hing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15115	15249	
==>hing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4081	4192	
==>{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4081	4192	
==>{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4081	4192	
==>{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4767	4936	
==>ray') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4767	4936	
==>ray') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4767	4936	
==>ray') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11388	11519	
==>> sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3172	3282	
==>of the inlined modules.
    # we make a guess about what to put in %*INC. it's not perfect.
    # When module r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5200	5301	
==>lf = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5200	5301	
==>lf = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5200	5301	
==>lf = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub" <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1227	1351	
==>ess) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2931	3041	
==>arse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2931	3041	
==>arse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2931	3041	
==>arse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36798	36897	
==>assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 logical

Family: as <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	962	1059	
==>y are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output fileh <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	962	1059	
==>y are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output fileh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1518	1615	
==>y are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output fileh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	601	727	
==>%attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	601	727	
==>%attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	601	727	
==>%attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	846	960	
==>", BOLD . BLUE, RESET;
    }
    $args{using}->();
    if($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12767	12935	
==>call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12761	12929	
==>call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	772	862	
==>tf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for Englis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	772	862	
==>tf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for Englis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4768	4938	
==>pack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4990	5160	
==>pack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        prin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9828	9934	
==>r $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9828	9934	
==>r $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23711	23808	
==>. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22484	22581	
==>. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23711	23808	
==>. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22484	22581	
==>. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23077	23168	
==>rl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl;
@ISA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17178	17267	
==>ivate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17178	17267	
==>ivate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17178	17267	
==>ivate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3586	3679	
==>hing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher> <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3586	3679	
==>hing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8729	8849	
==>{
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8729	8849	
==>{
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8729	8849	
==>{
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5910	6025	
==>PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29458	29586	
==>BYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29458	29586	
==>BYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	278	394	
==>BYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENT <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1157	1253	
==>s no syntax, only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3693	3805	
==>,
        'status' => sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')->F <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5429	5528	
==>m B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5429	5528	
==>m B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6953	7052	
==>m B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by de <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6430	6588	
==>ODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6488	6646	
==>ODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18346	18457	
==>er('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14767	14878	
==>er('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3565	3668	
==>S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3565	3668	
==>S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3565	3668	
==>S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declara <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1336	1432	
==>->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run::OnP <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1490	1612	
==>reduce_prim {
    my $self = shift;
    my $prim = shift;

    $self->enter_scope;
    my @params = $self->params;

    # t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15	116	
==>Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15	116	
==>Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15	116	
==>Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 20 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6899	7032	
==>uired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11454	11587	
==>uired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12252	12385	
==>uired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12979	13112	
==>uired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1462	1607	
==>ript) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last un <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1462	1607	
==>ript) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last un <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4727	4834	
==>..
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for pe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4727	4834	
==>..
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for pe <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6043	6137	
==>want> gets implemented. Currently, the headers
are returned as one long string.

=item List Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6043	6137	
==>want> gets implemented. Currently, the headers
are returned as one long string.

=item List Con <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26044	26136	
==>_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initia <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3177	3284	
==>= $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5383	5490	
==>= $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36759	36855	
==>perties; if none
could be matched, this method returns undef.  This method could be
considered to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36759	36855	
==>perties; if none
could be matched, this method returns undef.  This method could be
considered to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5307	5419	
==>s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.substitution>
            { return { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5930	6037	
==>_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5930	6037	
==>_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5930	6037	
==>_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	87	188	
==>}

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	87	188	
==>}

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	87	188	
==>}

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21996	22095	
==>was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. No <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20877	20976	
==>was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. No <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21996	22095	
==>was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. No <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20877	20976	
==>was sent from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. No <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3501	3645	
==>ow conversion rules
    -e            # Convert one-liner
    -s            # List supported features
    -d            # Dump debugging informat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6984	7090	
==>a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6984	7090	
==>a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6984	7090	
==>a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5927	6038	
==>ift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
} <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5927	6038	
==>ift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10615	10725	
==>ly logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10615	10725	
==>ly logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17873	18033	
==>ngo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, de <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16911	17071	
==>ngo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17873	18033	
==>ngo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16911	17071	
==>ngo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, de <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5014	5111	
==>t_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5014	5111	
==>t_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38380	38473	
==>text modified
by interpolating the %msg_vars into it, where each variable value is
substituted <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38380	38473	
==>text modified
by interpolating the %msg_vars into it, where each variable value is
substituted <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1553	1648	
==>ody() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1553	1648	
==>ody() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1553	1648	
==>ody() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1976	2142	
==>my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1976	2142	
==>my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1976	2142	
==>my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	23	113	
==>mpiler;
use Pugs::Emitter::Rule::Perl5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'im <==
4	/Users/nnunley/pugs/util/config_h.pl	657	764	
==><IN>) {
    /version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1425	1513	
==>eric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1425	1513	
==>eric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1425	1513	
==>eric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	875	978	
==>STDERR::Indent;

package type;
use base qw/Clone/;

### the types of types we have are:
# type::operator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5835	5935	
==>slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5835	5935	
==>slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5835	5935	
==>slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2858	2983	
==>ol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # tak <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2858	2983	
==>ol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # tak <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	666	765	
==>ric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.mul <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	666	765	
==>ric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1136	1233	
==>multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1136	1233	
==>multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1136	1233	
==>multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	330	481	
==>6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	330	481	
==>6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	330	481	
==>6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	547	648	
==>ting ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Rule->compile( '
        %' . $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2147	2357	
==>ad$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2147	2357	
==>ad$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'ite <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1320	1414	
==>defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used f <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1320	1414	
==>defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9151	9325	
==>ence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12628	12802	
==>ence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6265	6364	
==>level operators

  # Domain-specific-language-like syntax, contained in a package

### rule must eve <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6051	6148	
==>level operators
  # Domain-specific-language-like syntax, contained in a package
### rule must eve <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1199	1316	
==>sity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1199	1316	
==>sity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3179	3276	
==>em 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3179	3276	
==>em 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2566	2684	
==>) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2566	2684	
==>) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2566	2684	
==>) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8469	8583	
==>FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8469	8583	
==>FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8469	8583	
==>FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1265	1392	
==>"$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1265	1392	
==>"$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1736	1842	
==>,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1736	1842	
==>,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connec <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7523	7674	
==>&& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7523	7674	
==>&& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7523	7674	
==>&& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Pr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1370	1468	
==>ndie_$1/g;
	$c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1214	1356	
==>,
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		ast => App(
			Val(
				Thunk <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6426	6523	
==>status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6426	6523	
==>status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8623	8720	
==>status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14355	14488	
==>_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14349	14482	
==>_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1342	1462	
==>am]',
  'pLValue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  ' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21962	22078	
==>eps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7513	7619	
==>bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the ri <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8599	8800	
==>ro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8599	8800	
==>ro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10049	10159	
==>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10049	10159	
==>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... " <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12568	12778	
==>txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9281	9383	
==>-----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9281	9383	
==>-----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9281	9383	
==>-----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3675	3791	
==>alence';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You mus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40393	40497	
==>n $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40393	40497	
==>n $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40393	40497	
==>n $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3168	3394	
==>secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires & <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3168	3394	
==>secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires & <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6134	6249	
==>s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w]) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6134	6249	
==>s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w]) <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8276	8528	
==>new(
                                Sym->new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8126	8240	
==>undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8126	8240	
==>undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8126	8240	
==>undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6048	6158	
==>", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $template = HTML <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	618	723	
==>local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	618	723	
==>local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	618	723	
==>local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6879	7000	
==>)                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6879	7000	
==>)                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Con <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32475	32595	
==>sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33130	33250	
==>sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$sel <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2040	2139	
==>to = $O.<[[Prototype]]>;
    return JSX::true if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29837	30003	
==>ed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29837	30003	
==>ed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29837	30003	
==>ed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x -- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	681	783	
==>le = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3752	3854	
==>le = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	681	783	
==>le = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3752	3854	
==>le = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match <==
4	/Users/nnunley/pugs/util/version_h.pl	1388	1494	
==>$source_depot; # convert /svk/trunk to //svk/trunk
            if (my @info = qx/svk info $source_depot/ an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12228	12332	
==>L::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12228	12332	
==>L::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12228	12332	
==>L::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2573	2665	
==>ix:*", "right", "PGE::Exp::Alias");
    $optable->addToken("prefix::", "<infix:|", "nows", &p <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	360	490	
==>q "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2509	2602	
==>Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2509	2602	
==>Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2509	2602	
==>Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16342	16438	
==>to support N
locales or user types simultaneously, and that allows any end users to add
support f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16342	16438	
==>to support N
locales or user types simultaneously, and that allows any end users to add
support f <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7973	8069	
==>,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).me <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7103	7199	
==>,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7973	8069	
==>,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).me <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7103	7199	
==>,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).me <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5684	5866	
==>'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my met <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5684	5866	
==>'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my met <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4867	4960	
==>re the (pseudo) methods for Config::Tiny objects. These
methods can be called with the followi <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4867	4960	
==>re the (pseudo) methods for Config::Tiny objects. These
methods can be called with the followi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5378	5492	
==>);
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5378	5492	
==>);
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34653	34749	
==>heading of the invocant Relation, and returns a new Relation that has the
same heading as the inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39203	39299	
==>heading of the invocant Relation, and returns a new Relation that has the
same heading as the inv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26166	26358	
==>r @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26166	26358	
==>r @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26166	26358	
==>r @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	295	398	
==>$pos,$cap); my $v;
      { local($X::str,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11101	11224	
==>code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_nume <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	416	520	
==>:PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	416	520	
==>:PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	416	520	
==>:PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4813	4921	
==>y $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.di <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4813	4921	
==>y $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.di <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21061	21155	
==>e distributed with one or more
resource files containing text for users, and your program would <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21061	21155	
==>e distributed with one or more
resource files containing text for users, and your program would <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14239	14374	
==>l = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14233	14368	
==>l = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23644	23737	
==>too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simpl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23644	23737	
==>too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simpl <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	455	595	
==>fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	453	593	
==>fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        i <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	455	595	
==>fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	453	593	
==>fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22746	22862	
==>t) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19167	19283	
==>t) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NO <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10267	10372	
==>_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `n <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10267	10372	
==>_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `n <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11014	11118	
==>unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exis <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11014	11118	
==>unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exis <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	891	983	
==>ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirna <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	768	852	
==>ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3303	3433	
==>r block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB BAREWORD '(' signature ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5085	5197	
==>'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2627	2739	
==>'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3408	3520	
==>'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	485	595	
==>e;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	485	595	
==>e;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4083	4164	
==>inux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodContro <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4083	4164	
==>inux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodContro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	277	450	
==>:ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	277	450	
==>:ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \& <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2833	2928	
==>: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2833	2928	
==>: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19503	19638	
==>$f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15924	16059	
==>$f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &Rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20433	20524	
==>d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are us <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20433	20524	
==>d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4972	5089	
==>less \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4972	5089	
==>less \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4972	5089	
==>less \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level va <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19878	19987	
==>ynhtml: $!";
        $outfile->print($sobj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8849	8949	
==>t "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8556	8654	
==>t "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5245	5439	
==>y, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5245	5439	
==>y, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5245	5439	
==>y, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3198	3296	
==>which we obviously don't have).

Whether this will all succeed or not is an open question.  But the <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10258	10357	
==>ype::operator::nullary->new("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5133	5231	
==>ead> method reads a config file, and returns a boolean value
of success or failure

=item data

The <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5133	5231	
==>ead> method reads a config file, and returns a boolean value
of success or failure

=item data

The <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2665	2762	
==>ions.

If two different data streams are enciphered with the same key, the encryption 
can be remo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2665	2762	
==>ions.

If two different data streams are enciphered with the same key, the encryption 
can be remo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1132	1255	
==>ied at runtime
sub alternation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9074	9181	
==>_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9074	9181	
==>_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9074	9181	
==>_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slur <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1024	1137	
==>a(Array) ?? $wanted !! [$wanted];

  return sub($input) {
    return
      unless defined $input;
    my $next = h <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6118	6256	
==>rk) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_chil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	771	886	
==>($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package Pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	771	886	
==>($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package Pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	771	886	
==>($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1264	1371	
==>ompiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1264	1371	
==>ompiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1264	1371	
==>ompiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PI <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1705	1794	
==>nows", &parse_enumclass);
    $optable->addToken("term:<-[", "term:", "nows", &parse_enumc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2533	2679	
==>al => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2438	2576	
==>al => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6302	6420	
==>ybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it. <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6302	6420	
==>ybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3397	3547	
==>0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2416	2525	
==>"\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2789	2876	
==>:A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2789	2876	
==>:A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2789	2876	
==>:A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pair <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3888	3990	
==>called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3888	3990	
==>called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3888	3990	
==>called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8075	8162	
==>E html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2589	2728	
==>> 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2589	2728	
==>> 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7986	8086	
==>lidate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7986	8086	
==>lidate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33261	33457	
==>" now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33261	33457	
==>" now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33261	33457	
==>" now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17843	17953	
==>l} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17843	17953	
==>l} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17843	17953	
==>l} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan L <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	308	414	
==>'XML::Generator' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	403	509	
==>ass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	403	509	
==>ass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	403	509	
==>ass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38578	38712	
==>se( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38578	38712	
==>se( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38578	38712	
==>se( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5786	5891	
==>e 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      <Identifier <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8937	9062	
==>e = "Rul.new(:f(sub($str)\{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12029	12134	
==>t1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9150	9255	
==>t1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12029	12134	
==>t1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9150	9255	
==>t1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4106	4287	
==>ubstr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m->();

        {
            # XXX temporary hack - check if an alp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2483	2621	
==>t>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <s <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2483	2621	
==>t>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <s <==
4	/Users/nnunley/pugs/util/run-smoke.pl	725	817	
==>"";

my $smoke_upload     = PugsBuild::Config->lookup('smoke_upload');
my $smoke_upload_scrip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7522	7668	
==>ush $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7522	7668	
==>ush $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7522	7668	
==>ush $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1441	1585	
==>urn;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $inst->regis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1831	1945	
==>t and they are too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24247	24360	
==>([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20668	20781	
==>([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1758	1867	
==>t and they are too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4552	4672	
==>lf->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4552	4672	
==>lf->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4552	4672	
==>lf->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1125	1229	
==>ust be a str type";
    return $self->{$key->to_str->to_native};
}

sub store {
    my ($self, $key, $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2185	2310	
==>);
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2185	2310	
==>);
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2185	2310	
==>);
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22167	22261	
==>om_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5682	5795	
==>/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5670	5783	
==>/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	168	264	
==>::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determin <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	177	273	
==>::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34259	34349	
==>@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34259	34349	
==>@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	415	526	
==>ult => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	415	526	
==>ult => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $me <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2002	2093	
==>k :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2002	2093	
==>k :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4829	4927	
==>ss the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argumen <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4829	4927	
==>ss the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argumen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6353	6451	
==>ss the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argumen <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23517	23603	
==>::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })'
}
sub p6_loop_ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11299	11439	
==>to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16514	16627	
==>$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16514	16627	
==>$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16514	16627	
==>$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (d <==
4	/Users/nnunley/pugs/util/addauthors.pl	450	553	
==>ters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20702	20800	
==>x0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20702	20800	
==>x0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20702	20800	
==>x0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB inf <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2195	2447	
==>ttr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all_name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22834	22926	
==>1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22834	22926	
==>1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22834	22926	
==>1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1312	1477	
==>_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4551	4716	
==>_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1312	1477	
==>_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4551	4716	
==>_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2573	2670	
==>k {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8423	8623	
==>=> $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1637	1749	
==>s2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1637	1749	
==>s2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1637	1749	
==>s2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.lengt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4187	4310	
==>times resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It seems Irix long doubl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1082	1177	
==>n_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1082	1177	
==>n_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1082	1177	
==>n_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5547	5641	
==>exalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5547	5641	
==>exalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6137	6231	
==>exalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5146	5249	
==>letion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Type Conversion

# 9.1
multi sub To <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20036	20130	
==>ject Hash,
or various combinations of other data types.

While the implementation can be change <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24588	24682	
==>ject Hash,
or various combinations of other data types.

While the implementation can be change <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23140	23234	
==>ject Hash,
or various combinations of other data types.

While the implementation can be change <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7958	8084	
==>axage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7958	8084	
==>axage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23708	23802	
==>uctor, this module won't simply
send all commands immediately to the server, but creates a queu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23708	23802	
==>uctor, this module won't simply
send all commands immediately to the server, but creates a queu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21765	21980	
==>$_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21765	21980	
==>$_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21765	21980	
==>$_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2569	2684	
==>a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2569	2684	
==>a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14185	14291	
==>f, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sy <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1665	1771	
==>f, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	137	250	
==>te
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	137	250	
==>te
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	137	250	
==>te
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless k <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10487	10589	
==>Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10487	10589	
==>Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define an <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	946	1038	
==>sn't distinguish 
between enciphering and deciphering operations.)

Although it is secure whe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	946	1038	
==>sn't distinguish 
between enciphering and deciphering operations.)

Although it is secure whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5366	5484	
==>e_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5366	5484	
==>e_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5366	5484	
==>e_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	958	1041	
==>e->compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=(< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	473	573	
==>_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMP <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	473	573	
==>_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMP <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23675	23804	
==>. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            / <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	857	958	
==>on_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	868	969	
==>on_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28894	28992	
==>. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3816	3910	
==>h autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3816	3910	
==>h autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3816	3910	
==>h autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::ha <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2168	2300	
==>nes and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{packa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3533	3657	
==>nes and objectified dependencies
                ### for better diagnostics
                die "Dependency '$depends->{packa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3657	3764	
==>elf: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3657	3764	
==>elf: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!header <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2436	2554	
==>ant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2436	2554	
==>ant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2436	2554	
==>ant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16087	16203	
==>ob, "PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_messag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	25	131	
==>ne.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	25	126	
==>ne.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	55	155	
==>ne.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	55	155	
==>ne.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered <==
4	/Users/nnunley/pugs/util/config_h.pl	1937	2042	
==>s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi");
    unlink("$temp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9053	9157	
==>re $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_te <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9053	9157	
==>re $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7954	8054	
==>l() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7684	7780	
==>l() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3211	3370	
==>{
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3211	3370	
==>{
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3211	3370	
==>{
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ev <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2290	2411	
==>ion;

    has $.name;

    role Class::Events::Publisher is extended {
        use Set;
        has %.subscriptions of Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1001	1113	
==>++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1001	1113	
==>++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1001	1113	
==>++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9118	9243	
==>> $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
}

my $x = 15;
my $prog = AST->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7173	7284	
==>S_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7173	7284	
==>S_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7173	7284	
==>S_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1252	1381	
==>|| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1252	1381	
==>|| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1252	1381	
==>|| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (de <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14925	15029	
==>ata);
    my $code = 'sub{my $__c__ = $_[0]; '.$embedded_code.'; @_=$noop; goto &$__c__}';
    eval($code <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1557	1686	
==>ge App;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	177	297	
==>$class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	177	297	
==>$class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	177	297	
==>$class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10463	10617	
==>rams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10463	10617	
==>rams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10463	10617	
==>rams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24246	24345	
==>ample are of the same
degree, and the attribute names of each tuple are all the same as those of
all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11596	11708	
==>rl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11596	11708	
==>rl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11596	11708	
==>rl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4050	4154	
==>ed $args->{invocant};
    }

    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3031	3151	
==>asses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3031	3151	
==>asses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3031	3151	
==>asses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $se <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1122	1227	
==>-vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please override &dispat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	673	787	
==>_digest = (
	map { native($_) } (
		{
			arity => 0,
			name => '$*OUT',
			body => 'stdout',
			fixity => "nullary <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1446	1542	
==>}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1446	1542	
==>}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1446	1542	
==>}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8898	9019	
==>$block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8898	9019	
==>$block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1453	1546	
==>pile-time-bound values for them.

It includes the parameters as well as anything declared with <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1392	1484	
==>pile-time-bound values for them.
It includes the parameters as well as anything declared with <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1114	1288	
==>d-alts';       # registered alternatives
$Alternatives   = $Meta . '/alternatives';          # Alternative link dir                                                    
$Metaex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2636	2746	
==>od(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2636	2746	
==>od(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2636	2746	
==>od(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1535	1631	
==>d for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<T <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3785	3881	
==>`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1535	1631	
==>d for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<T <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3785	3881	
==>`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1119	1225	
==>st.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } cat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1119	1225	
==>st.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } cat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1119	1225	
==>st.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } cat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	774	899	
==>o strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		my $key = shift;

		exists $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8074	8174	
==>ant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8074	8174	
==>ant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8074	8174	
==>ant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2028	2136	
==>[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1014	1122	
==>[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9879	9984	
==>wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta requ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11356	11461	
==>wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta requ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3547	3649	
==>nion( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) r <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3547	3649	
==>nion( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) r <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2202	2296	
==>gex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2202	2296	
==>gex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4951	5047	
==>rison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4078	4174	
==>rison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4951	5047	
==>rison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4078	4174	
==>rison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal( <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1296	1438	
==>cript);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linkte <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1296	1438	
==>cript);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linkte <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3787	3883	
==>atch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fai <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3787	3883	
==>atch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3867	3963	
==>atch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fai <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2003	2091	
==>ode" if Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote(prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3296	3403	
==>tr $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3296	3403	
==>tr $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3296	3403	
==>tr $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	10	107	
==>/perl

package Blondie::Backend::Perl::Interpreter;
use base qw/Blondie::Reducer Blondie::Reducer: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	683	799	
==>}' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1220	1317	
==>d method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1220	1317	
==>d method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1220	1317	
==>d method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3696	3879	
==>l'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get('$current')->se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1495	1599	
==>e same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1495	1599	
==>e same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1495	1599	
==>e same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        shoul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3831	3946	
==>{
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3831	3946	
==>{
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $cha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4365	4474	
==>{
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4365	4474	
==>{
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	201	296	
==>o overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	201	296	
==>o overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	201	296	
==>o overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	173	272	
==>d Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	173	272	
==>d Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	173	272	
==>d Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4333	4465	
==>ount = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4333	4465	
==>ount = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4333	4465	
==>ount = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++ <==
4	/Users/nnunley/pugs/util/func_refact.pl	699	816	
==>print "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " . <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	595	695	
==>> | <':s'> }
# XXX - there are more.  Useful short-term. Eventually not needed,
# once macro rxmodint <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23024	23123	
==>d values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27576	27675	
==>d values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26353	26452	
==>d values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6122	6247	
==>f = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $expect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38918	39025	
==>O - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38918	39025	
==>O - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38918	39025	
==>O - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1312	1466	
==>en(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1312	1466	
==>en(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1771	1896	
==>return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1964	2089	
==>return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4135	4235	
==>tr $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to ru <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4135	4235	
==>tr $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to ru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4215	4315	
==>tr $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to ru <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3376	3475	
==>y ($left, $right) = @_;
    ($left->params->equal_to($right->params) == bit->new(1) && 
     $left-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37899	38010	
==>nd removed both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6366	6463	
==>the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TO <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6366	6463	
==>the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8563	8660	
==>the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3740	3880	
==>a::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3740	3880	
==>a::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type o <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6486	6589	
==>n the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Som <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6486	6589	
==>n the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Som <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4341	4444	
==>turn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4341	4444	
==>turn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4341	4444	
==>turn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1138	1240	
==>from( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj->position( $mat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7371	7554	
==>span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previou <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7371	7554	
==>span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2848	2953	
==>sage';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2848	2953	
==>sage';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	445	562	
==>uation" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	677	791	
==>uation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	423	537	
==>uation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	677	791	
==>uation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31797	31925	
==>$counter' => $e->get('$counter')->increment);                        
                    return $e->get('@values')->fetch($e->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2307	2415	
==>ind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2307	2415	
==>ind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2654	2762	
==>ind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34601	34697	
==>t, where the heading of <$other> is a subset of the
heading of the invocant Relation, and returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39151	39247	
==>t, where the heading of <$other> is a subset of the
heading of the invocant Relation, and returns <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12359	12465	
==>e/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7856	7954	
==>pe }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7856	7954	
==>pe }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7856	7954	
==>pe }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42876	42966	
==>equires these Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0)|Relat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2950	3070	
==>3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 }


# A.1 Lexical G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	628	740	
==>class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5', <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	628	740	
==>class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5', <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	628	740	
==>class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5', <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	661	792	
==>' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $rege <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	661	792	
==>' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $rege <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10059	10171	
==>od

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10059	10171	
==>od

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	54	147	
==>:Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	54	147	
==>:Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	54	147	
==>:Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	699	814	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	699	814	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	699	814	
==>a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14579	14684	
==>menu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15865	16004	
==>$str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15865	16004	
==>$str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15865	16004	
==>$str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5090	5202	
==>if $cc;
    return $S->object(prop => $name, 0);
  });

  # nspace (not a space)
  $self->add_handler('\S' => sub <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	809	929	
==>nsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internals::exec($prog, Bool::False, @args);
    }
    mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3445	3548	
==>($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3445	3548	
==>($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3445	3548	
==>($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	705	804	
==>n 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

A <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	705	804	
==>n 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

A <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2545	2642	
==>sents the query string portion of a requested URI.
It provides the following methods:

=over 8

=i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2545	2642	
==>sents the query string portion of a requested URI.
It provides the following methods:

=over 8

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	964	1077	
==>this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	964	1077	
==>this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	964	1077	
==>this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3146	3233	
==>icode.org/Public/UNIDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $opta <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5659	5763	
==>,@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Contai <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5659	5763	
==>,@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Contai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4776	4874	
==>tch string).

=head2 0+

When used as a number, the match object returns the numified version
of th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4776	4874	
==>tch string).

=head2 0+

When used as a number, the match object returns the numified version
of th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24573	24670	
==>rs.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has suc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23337	23434	
==>rs.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has suc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24573	24670	
==>rs.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has suc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23337	23434	
==>rs.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has suc <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7022	7140	
==>$file or die "unlink: $!";
    }
    warn "all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	426	523	
==>$OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	426	523	
==>$OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	426	523	
==>$OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2096	2219	
==>PSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2096	2219	
==>PSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	21	123	
==>use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

= <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	21	123	
==>use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1979	2108	
==>e;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1979	2108	
==>e;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1979	2108	
==>e;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	144	240	
==>Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6380	6519	
==>s => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6380	6519	
==>s => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6380	6519	
==>s => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12130	12232	
==>0)             --> {true}.

p6_hexidecimal_escape_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), ! <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10128	10231	
==>> sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2742	2836	
==>my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2742	2836	
==>my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2742	2836	
==>my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9274	9499	
==>ter the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lis <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9274	9499	
==>ter the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9730	9873	
==>gument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9730	9873	
==>gument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4393	4501	
==>complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4393	4501	
==>complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($se <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	238	345	
==>lly hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even mak <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	238	345	
==>lly hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even mak <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	42	141	
==>, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get ins <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	42	141	
==>, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	42	141	
==>, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get ins <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	42	141	
==>, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10829	10938	
==>bute;
    method has_attribute;
    method get_attribute_list;            
}

-------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10829	10938	
==>bute;
    method has_attribute;
    method get_attribute_list;            
}

-------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10829	10938	
==>bute;
    method has_attribute;
    method get_attribute_list;            
}

-------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2393	2491	
==>) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2393	2491	
==>) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2393	2491	
==>) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	38	142	
==>e::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealS <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	38	142	
==>e::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealS <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	345	448	
==>NOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	345	448	
==>NOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13754	13894	
==>{
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13754	13894	
==>{
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13754	13894	
==>{
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15356	15440	
==>([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3849	3997	
==>( q(
                <?Pugs::Grammar::Term.ident>
                { return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4250	4348	
==>dd_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4250	4348	
==>dd_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4250	4348	
==>dd_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6406	6503	
==>'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6406	6503	
==>'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2209	2303	
==>nitial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren' <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2209	2303	
==>nitial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1515	1637	
==>UTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1515	1637	
==>UTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1515	1637	
==>UTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	938	1069	
==>rt    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4177	4308	
==>rt    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	938	1069	
==>rt    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4177	4308	
==>rt    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	35	136	
==>n-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available through the environ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7284	7371	
==>:Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7284	7371	
==>:Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7284	7371	
==>:Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3166	3280	
==>e     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3166	3280	
==>e     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("logged <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18778	18876	
==>in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that peo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18778	18876	
==>in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that peo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11410	11517	
==>_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11410	11517	
==>_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11410	11517	
==>_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15613	15707	
==>.

rm(standalone(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is semant <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3685	3805	
==>al to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3685	3805	
==>al to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :star <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9755	9867	
==>d shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9755	9867	
==>d shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3859	3965	
==>$new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3859	3965	
==>$new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3859	3965	
==>$new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_na <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28347	28452	
==>_START {if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} S <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9660	9777	
==>rd_img\"",
    ensure => sub { `mount` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	994	1096	
==>h()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of who <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	994	1096	
==>h()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of who <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	994	1096	
==>h()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of who <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6618	6729	
==>[]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6618	6729	
==>[]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6618	6729	
==>[]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3496	3585	
==>return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile(<<'RULE')->code() <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2256	2497	
==>>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line) <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2256	2497	
==>>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18100	18251	
==>onstant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18379	18530	
==>onstant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24240	24345	
==>ients with either an AI or other interactive program controlling their
  actions) which are always seen to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23013	23118	
==>ients with either an AI or other interactive program controlling their
  actions) which are always seen to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24240	24345	
==>ients with either an AI or other interactive program controlling their
  actions) which are always seen to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23013	23118	
==>ients with either an AI or other interactive program controlling their
  actions) which are always seen to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	99	201	
==>{
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	99	201	
==>{
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	99	201	
==>{
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globa <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	428	584	
==>tack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflow\n";
        my $y = pop @stack;
        define <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3228	3339	
==>ugly.
    #Control::Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @calle <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2745	2858	
==>dule in the list.
sub gen_source {
    my($target) = @_;
    open my $ofh, ">", $target or die "open: $target: $!" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1012	1116	
==>@subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1012	1116	
==>@subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1012	1116	
==>@subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2210	2344	
==>_error ), return;
    
        ### make the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	402	496	
==>classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parame <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	402	496	
==>classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parame <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	402	496	
==>classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parame <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23583	23751	
==>ly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23583	23751	
==>ly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23583	23751	
==>ly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	143	239	
==>s::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

# TODO - generate AST
# TODO - prefix:{'+' <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1432	1556	
==>mlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge";
my $parrot_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4139	4236	
==>>. There is no instance
constructor, and when calling these methods you should take care not
to ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4139	4236	
==>>. There is no instance
constructor, and when calling these methods you should take care not
to ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4139	4236	
==>>. There is no instance
constructor, and when calling these methods you should take care not
to ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8796	8951	
==>self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8796	8951	
==>self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8796	8951	
==>self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1129	1217	
==>::CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10170	10355	
==>ss.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	724	897	
==>ss.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	724	897	
==>ss.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Tes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28828	28919	
==>ot_equal (Relation::Example $other!) returns Bool>

This method returns the complement of C< <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4745	4852	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3872	3979	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4745	4852	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3872	3979	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14143	14283	
==>air.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4220	4348	
==>air.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4220	4348	
==>air.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4220	4348	
==>air.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	525	630	
==>f ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	525	630	
==>f ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17682	17774	
==>red set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statement <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17682	17774	
==>red set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statement <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4774	4876	
==>s, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4774	4876	
==>s, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5364	5466	
==>s, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3809	3909	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 1)) if $cc;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7139	7278	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7139	7278	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7139	7278	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6579	6680	
==>")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5582	5687	
==>and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5582	5687	
==>and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5582	5687	
==>and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11703	11801	
==>)

A combination of the two methods above, for when one wishs to take
advantage of the internal cac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	349	604	
==>n this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	349	604	
==>n this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Ros <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4189	4287	
==>opic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4189	4287	
==>opic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	761	864	
==>sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.insid <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	761	864	
==>sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.insid <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1517	1611	
==>t::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1517	1611	
==>t::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<se <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8576	8709	
==>pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(sub <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15940	16038	
==>n.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $obj <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15940	16038	
==>n.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $obj <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4137	4253	
==>re: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4009	4123	
==>re: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5581	5684	
==>$x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5581	5684	
==>$x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Se <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3165	3315	
==>:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3165	3315	
==>:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2822	2919	
==>atal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2880	2977	
==>atal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21732	21829	
==>dified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the serve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20613	20710	
==>dified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the serve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21732	21829	
==>dified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the serve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20613	20710	
==>dified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the serve <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6049	6142	
==>x) is primitive is safe is builtin {$r.f.($x)}


sub rx_common_($hook,%mods0,$pat0,$qo,$qc) is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14198	14290	
==>'Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14198	14290	
==>'Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14198	14290	
==>'Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	242	329	
==>----------------------------------------------------
## constructors

submethod BUILD ($ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	589	676	
==>return $!parent;
}

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	242	329	
==>----------------------------------------------------
## constructors

submethod BUILD ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	589	676	
==>return $!parent;
}

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2043	2211	
==>(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2290	2458	
==>(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6406	6500	
==>ument is printed
to the selected default filehandle for output (normally STDOUT) as
data is rec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6406	6500	
==>ument is printed
to the selected default filehandle for output (normally STDOUT) as
data is rec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2287	2523	
==>l  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1047	1219	
==>l  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1047	1219	
==>l  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3336	3421	
==>p5_concatenation_more(W, Z), !.
p5_concatenation(noop) --> {true}.
p5_concatenation_mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4175	4276	
==>ub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4175	4276	
==>ub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4175	4276	
==>ub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2841	2930	
==>ation(X), p5_alternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4968	5077	
==>t @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16004	16113	
==>t @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17492	17601	
==>t @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22175	22284	
==>t @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7516	7655	
==>nstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7516	7655	
==>nstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7516	7655	
==>nstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	559	711	
==>tmpl = {
        dir     => { required => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15410	15552	
==>turn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15410	15552	
==>turn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15410	15552	
==>turn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4820	4953	
==>_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4820	4953	
==>_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4820	4953	
==>_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8912	9003	
==>on_object } '... instance calling metaclass singleton method fails';
fails_ok { $iFoo->singl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4324	4421	
==>r $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4324	4421	
==>r $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4324	4421	
==>r $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var var <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2184	2280	
==>everse (   @values) returns Lazy|Str {
 multi sub  Perl6::List::reverse (; *@values) returns Lazy <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7013	7160	
==>Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7001	7148	
==>Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4244	4341	
==>end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4244	4341	
==>end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $st <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18272	18382	
==>amespace" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5405	5505	
==>xical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5405	5505	
==>xical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5405	5505	
==>xical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1926	2133	
==>atch->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next al <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2347	2547	
==>atch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next al <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1863	2063	
==>atch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2347	2547	
==>atch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next al <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1374	1477	
==>st concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1374	1477	
==>st concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3425	3524	
==>ic to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3425	3524	
==>ic to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7183	7337	
==>{
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pSubType"> );
            # ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	413	527	
==>ant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	413	527	
==>ant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	413	527	
==>ant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16682	16801	
==>eue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16682	16801	
==>eue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22322	22421	
==>e => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22599	22698	
==>e => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5099	5202	
==>...},   # XXX - the return block could be generated automatically ?
  );

Pseudo-code for usage inside a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	7	107	
==>Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	7	107	
==>Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	7	107	
==>Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5446	5548	
==>elf->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5446	5548	
==>elf->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5446	5548	
==>elf->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2198	2345	
==>>add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11009	11112	
==>be run, causing durations and the ok
    percentage to not be comparable.<br />
    The percentage of pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13378	13475	
==>6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13378	13475	
==>6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13378	13475	
==>6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29590	29714	
==>}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29590	29714	
==>}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29590	29714	
==>}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6: <==
4	/Users/nnunley/pugs/util/package-osx.pl	11877	11967	
==>dest, %change_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlink <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1096	1250	
==>::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        mem <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1096	1250	
==>::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        mem <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1628	1727	
==>laim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub l <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1686	1785	
==>laim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub l <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2775	2887	
==>D__

=pod

=head1 NAME

Blondie::Backend::Perl::Builtins - table of prelude replacement relevant to the perl back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1637	1740	
==>(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1637	1740	
==>(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1637	1740	
==>(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5110	5226	
==>nd', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5110	5226	
==>nd', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2014	2130	
==>nd', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	10	109	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	10	109	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	10	109	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5820	5927	
==>pan = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5820	5927	
==>pan = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9098	9192	
==>this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9098	9192	
==>this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This doc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1941	2033	
==>n:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1904	1996	
==>n:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1941	2033	
==>n:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1904	1996	
==>n:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8420	8520	
==>f ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8408	8508	
==>f ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	828	933	
==>res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	828	933	
==>res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	828	933	
==>res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline(' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8538	8640	
==>"p6_assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4753	4858	
==>lequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4753	4858	
==>lequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4753	4858	
==>lequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n% <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5822	5968	
==>>can('new') };
        unless ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	731	832	
==>calar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	731	832	
==>calar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	731	832	
==>calar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20067	20165	
==>larationList> <';'>
}
rule VariableDeclarationList :words {  # see 12.2
      <VariableDeclaration> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	957	1052	
==>sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	957	1052	
==>sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	957	1052	
==>sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2609	2719	
==>s 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2609	2719	
==>s 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3436	3528	
==>ack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3436	3528	
==>ack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3571	3742	
==>FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3571	3742	
==>FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10379	10522	
==>sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaMo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10379	10522	
==>sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaMo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10379	10522	
==>sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaMo <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2621	2735	
==>is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5496	5616	
==>l6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5496	5616	
==>l6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5496	5616	
==>l6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28112	28203	
==>flag set, so C<(?ig-o)> becomes C<(?i)>.

=item $parser->del_flag(@flags)

Deletes the handl <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8187	8342	
==>r my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19263	19365	
==>amespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19263	19365	
==>amespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19263	19365	
==>amespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7144	7457	
==>ue; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7144	7457	
==>ue; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7483	7609	
==>->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7232	7352	
==>->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	478	618	
==>ct the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	478	618	
==>ct the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	478	618	
==>ct the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	280	378	
==>:MM::Attribute;
use Perl6::MM::C3;

use Carp 'confess';
use Scalar::Util 'blessed';

# create our b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6125	6222	
==>t $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5255	5352	
==>t $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6125	6222	
==>t $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5255	5352	
==>t $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1076	1188	
==>()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1076	1188	
==>()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1076	1188	
==>()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_co <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1760	1858	
==>be :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4721	4843	
==>= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4721	4843	
==>= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4721	4843	
==>= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22877	22971	
==>he value of
a Relation::Example object is determined when it is constructed, and the object can <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	363	506	
==>m( qq[mkdir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alternatives ] .
            qq[$Repodir] )                                      and die $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11648	11771	
==>rn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11648	11771	
==>rn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11648	11771	
==>rn Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.un <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34472	34566	
==>Member Names is set from the named parameter
@member_names (an array ref).

Some example usage: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34472	34566	
==>Member Names is set from the named parameter
@member_names (an array ref).

Some example usage: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1858	1949	
==>map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1858	1949	
==>map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13507	13658	
==>ray whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13507	13658	
==>ray whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13507	13658	
==>ray whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1745	1845	
==>) >= 0);

  #print "name: $name - eq: $equivalence - rp: $relativePrecedence - options: $options - ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7234	7339	
==>rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7234	7339	
==>rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7234	7339	
==>rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22295	22381	
==>(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

charset_member(_E,C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2452	2566	
==>ORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2452	2566	
==>ORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    s <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1220	1327	
==>rn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.st <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1220	1327	
==>rn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.st <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2820	2928	
==>r($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunk <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2820	2928	
==>r($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunk <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16108	16198	
==>ive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Ko <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16166	16256	
==>ive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Ko <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1137	1234	
==>lt> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the par <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	274	371	
==>_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_IN <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1137	1234	
==>lt> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the par <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	274	371	
==>_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_IN <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	166	294	
==>==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thunk <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2093	2220	
==>==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16861	16957	
==>e Content-Encoding header field is used as a modifier to the
media type.  When present, its value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16861	16957	
==>e Content-Encoding header field is used as a modifier to the
media type.  When present, its value <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10277	10389	
==>me'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10271	10383	
==>me'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10263	10369	
==>s!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10263	10369	
==>s!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1046	1150	
==>", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is prin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1046	1150	
==>", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is prin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1046	1150	
==>", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	556	648	
==>UM, 'Switch (?(condition)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1771	1880	
==>eck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1771	1880	
==>eck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1771	1880	
==>eck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3864	3965	
==>ce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3864	3965	
==>ce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3864	3965	
==>ce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2626	2792	
==>age names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+)   -   # the vers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4384	4492	
==>hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4384	4492	
==>hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4384	4492	
==>hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2676	2794	
==>d );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2676	2794	
==>d );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2676	2794	
==>d );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5018	5181	
==>( $match->from ),
                to    => \( $match->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime::Mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1407	1504	
==>x:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1407	1504	
==>x:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1407	1504	
==>x:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2413	2516	
==>$bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") already exists";
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17016	17108	
==>sses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17016	17108	
==>sses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17016	17108	
==>sses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10552	10650	
==>>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10552	10650	
==>>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10552	10650	
==>>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2163	2284	
==>tor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2163	2284	
==>tor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2163	2284	
==>tor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why th <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8372	8484	
==>ched this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or cro <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3608	3734	
==>pected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3608	3734	
==>pected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5132	5258	
==>pected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module th <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	912	1009	
==>, imaginably, perhaps, be possible to do this
# Maybe.  And perl5 might benefit from its existence <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5560	5657	
==>nd STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5560	5657	
==>nd STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5560	5657	
==>nd STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREA <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2336	2430	
==>report.  Returns the C<%results> of the test.
See L<Results>.

C<@test_output> should be the ra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38826	38931	
==>XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimizati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38826	38931	
==>XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimizati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38826	38931	
==>XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimizati <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4756	4860	
==>_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S' => sub { <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4132	4288	
==>& 
            ($self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2091	2200	
==>PER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2091	2200	
==>PER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2091	2200	
==>PER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	940	1033	
==>>execute($compiled);

    my $same_result = Blondie::Backend::Foo->run($program);

=head1 DESC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14409	14496	
==>L::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14409	14496	
==>L::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14409	14496	
==>L::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15199	15310	
==>k  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15199	15310	
==>k  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    w <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1168	1264	
==>native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1221	1317	
==>native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8953	9117	
==>r" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8953	9117	
==>r" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8953	9117	
==>r" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
} <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	148	237	
==>e::Install::Base; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->include( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14441	14530	
==>:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14441	14530	
==>:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14441	14530	
==>:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:met <==
4	/Users/nnunley/pugs/util/package-osx.pl	9539	9657	
==>rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	650	762	
==>apital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	650	762	
==>apital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	390	492	
==>{
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	390	492	
==>{
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3332	3432	
==>, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3332	3432	
==>, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1642	1739	
==>1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1642	1739	
==>1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1642	1739	
==>1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5136	5230	
==>/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operator::pai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2569	2676	
==>/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free soft <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2569	2676	
==>/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free soft <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1782	1883	
==>/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free soft <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3643	3744	
==>/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gray.

This program is free soft <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3691	3839	
==>ntent_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3691	3839	
==>ntent_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Heade <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15192	15286	
==>lement.  This interface is rigorously defined, such that there
should be no ambiguity when tryi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15192	15286	
==>lement.  This interface is rigorously defined, such that there
should be no ambiguity when tryi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	347	581	
==>size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<L <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	347	581	
==>size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<L <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9715	9874	
==>ull' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9715	9874	
==>ull' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	466	577	
==>not ...
#     But <SourceCharacter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1283	1384	
==>c=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1283	1384	
==>c=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1283	1384	
==>c=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamode <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3040	3137	
==>leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3040	3137	
==>leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3040	3137	
==>leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13207	13312	
==>rotection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13207	13312	
==>rotection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13207	13312	
==>rotection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19283	19442	
==>AL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19283	19442	
==>AL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19283	19442	
==>AL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	983	1099	
==>eyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	983	1099	
==>eyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1547	1644	
==>::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1547	1644	
==>::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3275	3384	
==>l6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3275	3384	
==>l6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3275	3384	
==>l6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18523	18626	
==>hat would be interpreted as a constant.

# sprintf # XXX - see Prelude.pm  And p5's sv.c

 multi substr( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10998	11151	
==>%channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($conn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10998	11151	
==>%channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($conn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8620	8728	
==>, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6153	6258	
==>, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loos <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8144	8240	
==>set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).mem <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7274	7370	
==>set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).mem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8144	8240	
==>set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).mem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7274	7370	
==>set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).mem <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5963	6062	
==>message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message par <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5963	6062	
==>message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message par <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9180	9269	
==>@statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_sim <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3005	3094	
==>@statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_sim <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	567	691	
==>_quoted => $1 }, value => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2388	2492	
==>EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2388	2492	
==>EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2388	2492	
==>EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4092	4227	
==>->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14042	14138	
==>LKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14042	14138	
==>LKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14042	14138	
==>LKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3524	3635	
==>t(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3524	3635	
==>t(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3524	3635	
==>t(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later. <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15322	15429	
==>rom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4340	4443	
==>d_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15776	15879	
==>d_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed" <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4340	4443	
==>d_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed" <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15776	15879	
==>d_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24567	24650	
==>- replace_at_n_if_undef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	49	154	
==>egy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

sub <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	49	154	
==>egy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14671	14774	
==>ICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14671	14774	
==>ICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1496	1589	
==>"* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1496	1589	
==>"* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1496	1589	
==>"* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4528	4620	
==>eturn $S->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(exact_com <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1713	1904	
==>_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1713	1904	
==>_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

me <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5964	6082	
==>bols:    @symbols[]";

        dbg "# Statements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = e <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5866	5979	
==>){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv(pat);
    
    r->nparens = nparens;
    
    Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13297	13401	
==>piX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13297	13401	
==>piX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13297	13401	
==>piX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24936	25034	
==>ests are costly enough
 * that pregcomp() supplies a regmust only if the r.e. contains something
 * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1981	2083	
==>ackage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1981	2083	
==>ackage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1981	2083	
==>ackage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	967	1060	
==>ated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Ba <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	967	1060	
==>ated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Ba <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1942	2031	
==>=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2031	2120	
==>=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4236	4363	
==>.zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4236	4363	
==>.zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3036	3139	
==>join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories th <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3036	3139	
==>join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories th <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	147	245	
==>" property of the object fallback to "content"
method source($self:) {
    $.source || $.content;
} <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	147	245	
==>" property of the object fallback to "content"
method source($self:) {
    $.source || $.content;
} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3910	4005	
==>rns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3910	4005	
==>rns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27637	27776	
==>nstant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27916	28055	
==>nstant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	530	642	
==>'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	530	642	
==>'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	588	690	
==>) returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

me <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	588	690	
==>) returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31025	31115	
==>y-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35575	35665	
==>y-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9577	9710	
==>1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "f <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9577	9710	
==>1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13929	14033	
==>z" };
}

step
  descr  => "Creating directory \"$cdroot\"",
  ensure => sub { -d $cdroot and -r $cdroot } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	33	135	
==>k
#
# experimental implementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5211	5330	
==>ef, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5211	5330	
==>ef, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5801	5920	
==>ef, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17759	17862	
==>=item length

This word is banned in Perl 6.  You must specify units.

=item index 

Needs to be in term <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6524	6636	
==>tfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6524	6636	
==>tfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6524	6636	
==>tfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primit <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	308	480	
==>y ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr) {
        if ($tok =~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6697	6823	
==>|| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6697	6823	
==>|| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6697	6823	
==>|| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7399	7510	
==>::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7399	7510	
==>::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7399	7510	
==>::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27849	27948	
==>h () returns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1698	1803	
==>t;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5648	5753	
==>compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1698	1803	
==>t;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1698	1803	
==>t;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5164	5306	
==>lf._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @t <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5164	5306	
==>lf._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	855	947	
==>cribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	855	947	
==>cribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

= <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15249	15347	
==>ty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15249	15347	
==>ty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10953	11061	
==>xt, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source cod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10953	11061	
==>xt, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source cod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1145	1303	
==>e := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$va <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1145	1303	
==>e := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$va <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15773	15909	
==>ed $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15773	15909	
==>ed $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $chan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11246	11375	
==>control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: exp <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	825	944	
==>is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4743	4845	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4743	4845	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15538	15633	
==>osal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database managem <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15538	15633	
==>osal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database managem <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16757	16851	
==>-contained application in
Rosetta D and compile that into its own executable, in practice one w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16757	16851	
==>-contained application in
Rosetta D and compile that into its own executable, in practice one w <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	95	198	
==>";
Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3698	3789	
==>{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3698	3789	
==>{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3698	3789	
==>{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($na <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6723	6861	
==>($self, $file) = @_;

    unless( -e $file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11649	11780	
==>urces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in com <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15126	15257	
==>urces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in com <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14461	14592	
==>urces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	133	274	
==>XPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	133	274	
==>XPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	133	274	
==>XPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_f <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	168	270	
==>:Base};
}

# determine if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9099	9277	
==>erence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffere <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12576	12754	
==>erence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffere <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11812	11990	
==>erence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffere <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6816	6946	
==>air|Junction)\
\\n   List      pre     Pair::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14753	14855	
==>ession>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpression>
    | <Multiplicat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19243	19340	
==>e_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19243	19340	
==>e_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19243	19340	
==>e_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6735	6837	
==>}
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also in <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1804	1906	
==>".");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
.
        f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6735	6837	
==>}
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6735	6837	
==>}
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also in <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	106	255	
==>xport {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3160	3309	
==>xport {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	106	255	
==>xport {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3160	3309	
==>xport {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8958	9095	
==>eedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8954	9091	
==>eedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2399	2535	
==>eedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2399	2535	
==>eedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10025	10216	
==>'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10025	10216	
==>'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10025	10216	
==>'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7841	7967	
==>bject__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31064	31248	
==>ift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31064	31248	
==>ift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31064	31248	
==>ift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	622	723	
==>ge($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf{leaves}) {
    print "$_\n" for grep { not d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12656	12835	
==>e =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here | <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12656	12835	
==>e =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here | <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27828	27923	
==>od returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27828	27923	
==>od returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This me <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8763	8863	
==>ocation, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = :: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8763	8863	
==>ocation, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = :: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37811	37908	
==>msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it tr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37811	37908	
==>msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it tr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18851	18945	
==>en traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
cha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17894	17988	
==>en traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18851	18945	
==>en traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17894	17988	
==>en traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
cha <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1924	2018	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1924	2018	
==>.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5556	5640	
==>if ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5556	5640	
==>if ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4083	4214	
==>n : There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($in <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4083	4214	
==>n : There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($in <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4142	4261	
==>s $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since al <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4142	4261	
==>s $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since al <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	106	198	
==>e 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => ran <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	106	198	
==>e 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => ran <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	183	273	
==>headers header_field_names scan
    date expires if_modified_since if_unmodified_since last <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	183	273	
==>headers header_field_names scan
    date expires if_modified_since if_unmodified_since last <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27370	27511	
==>d('add_method' => (
    # method label
        symbol->new('_merge'),
    # method body
        method->new(
            $::ENV,
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4794	4898	
==>lit anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4794	4898	
==>lit anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4794	4898	
==>lit anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::M <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6041	6246	
==>link_this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XXX clean up links from $unlink_this
        }      

        last LINKING unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2038	2152	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2038	2152	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2038	2152	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19846	19946	
==>ly to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks ha <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19846	19946	
==>ly to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks ha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	977	1130	
==>') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	977	1130	
==>') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::M <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7596	7717	
==>ns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7596	7717	
==>ns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2840	2968	
==>we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2840	2968	
==>we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2840	2968	
==>we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # fo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23096	23187	
==>th(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmSo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5779	5892	
==>ame )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5767	5880	
==>ame )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2205	2312	
==>r dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2205	2312	
==>r dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37572	37678	
==>= Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37572	37678	
==>= Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37572	37678	
==>= Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric cont <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	192	293	
==>ose of demonstrating an approach to compilation.

=head1 SYNOPSIS

    # a program that reduces to the <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1257	1406	
==>end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4496	4645	
==>end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1257	1406	
==>end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4496	4645	
==>end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7058	7168	
==>ere* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7058	7168	
==>ere* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7058	7168	
==>ere* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    va <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	300	398	
==>ule that will
run and install and have all the distribution components you need.

= WHY

You should <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3117	3246	
==>) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3117	3246	
==>) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5507	5611	
==>ed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5507	5611	
==>ed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13840	13972	
==>, $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13840	13972	
==>, $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13840	13972	
==>, $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27331	27435	
==>$self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7547	7675	
==>" if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7547	7675	
==>" if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7547	7675	
==>" if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	717	811	
==>mitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $self = shift;
	$self->emitt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15621	15712	
==>ther objects themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-rea <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4981	5089	
==>ist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4981	5089	
==>ist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18472	18559	
==>ername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18472	18559	
==>ername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10662	10803	
==>ng: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Da <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7003	7144	
==>ng: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Da <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7852	7993	
==>ng: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Da <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2893	3025	
==>',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'try',
        assoc => 'non',
        precedence <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8404	8534	
==>);

    while (<IN>) {
        # Adjust the dependency line based on Cabal version
        if ($has_new_cabal) {
            s/hs-s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	457	574	
==>ed;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	457	574	
==>ed;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	623	716	
==>implementation of all the things the
language must provide, including stuff for what cannot ha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10329	10471	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6670	6812	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7519	7661	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2321	2430	
==>"Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1214	1331	
==>_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <before <Pugs::G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	198	283	
==>ompile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	198	283	
==>ompile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	198	283	
==>ompile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wit <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	735	851	
==>es{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9713	9867	
==>h @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9713	9867	
==>h @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9713	9867	
==>h @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3361	3467	
==>his Relation::Example, where the tuple
        # is represented as a Mapping; each key of that Mapping is t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9558	9668	
==>rns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1651	1755	
==>rns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1651	1755	
==>rns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Bu <==
4	/Users/nnunley/pugs/util/drift.pl	280	381	
==>or exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instances.hs";
o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	698	841	
==>am($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	698	841	
==>am($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8492	8606	
==>authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8492	8606	
==>authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	125	219	
==>'get_int';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11906	11996	
==>:Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11906	11996	
==>:Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11906	11996	
==>:Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MU <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17108	17231	
==>s);

        # Now write to formats
        for my $script (sort keys %$failedtests) {
          $Curtest = $failedtests->{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3081	3169	
==>[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3081	3169	
==>[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3081	3169	
==>[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9418	9569	
==>warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14962	15113	
==>warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9418	9569	
==>warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14956	15107	
==>warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11349	11474	
==>ss1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11349	11474	
==>ss1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11349	11474	
==>ss1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10160	10271	
==>brule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub{ $nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2941	3055	
==>vocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2941	3055	
==>vocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2941	3055	
==>vocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an in <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6498	6591	
==>analyze_file>

  my %results = $strap->analyze_file($test_file);

Like C<analyze>, but it runs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1885	2018	
==>_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        las <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1885	2018	
==>_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        las <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1885	2018	
==>_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        las <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	70	173	
==>" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5509	5658	
==>ve section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5973	6122	
==>ve section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	750	842	
==>tch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	750	842	
==>tch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE( <==
4	/Users/nnunley/pugs/util/package-osx.pl	10771	10885	
==>r my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34788	34887	
==>n_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34788	34887	
==>n_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34788	34887	
==>n_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4967	5053	
==>e> | <octal_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape_seque <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11706	11815	
==>ther.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11706	11815	
==>ther.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11706	11815	
==>ther.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7409	7541	
==>apper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7409	7541	
==>apper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7409	7541	
==>apper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "P <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1226	1319	
==>(Relation::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_name_exists o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7882	8009	
==>, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7882	8009	
==>, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7882	8009	
==>, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4980	5080	
==>whitespacePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3757	3926	
==>$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3757	3926	
==>$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3757	3926	
==>$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26748	26848	
==>* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intuit before matching */
 #de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1716	1831	
==>bj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	496	598	
==>eturn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	496	598	
==>eturn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	496	598	
==>eturn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3741	3834	
==>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	114	205	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	114	205	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	114	205	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  }) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1519	1620	
==>ift;

		$class->SUPER::new(type => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use base qw/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	133	230	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	133	230	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	133	230	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6190	6311	
==>nce_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6190	6311	
==>nce_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6190	6311	
==>nce_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_inst <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1060	1157	
==>g it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1060	1157	
==>g it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20944	21035	
==>keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Return <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20944	21035	
==>keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	922	1033	
==>el-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	922	1033	
==>el-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	922	1033	
==>el-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inpu <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	91	185	
==>re_anchored = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1016	1111	
==>= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int_size 4;
Clutter: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4989	5081	
==>less->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4989	5081	
==>less->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object reference <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4989	5081	
==>less->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object reference <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13784	13956	
==>);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3905	4057	
==>);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3905	4057	
==>);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3905	4057	
==>);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4489	4617	
==>der
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.define <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4489	4617	
==>der
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.define <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	23	130	
==>ss DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	23	130	
==>ss DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1484	1619	
==>$data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1484	1619	
==>$data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	187	296	
==>d-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	187	296	
==>d-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2554	2697	
==>>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2554	2697	
==>>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2554	2697	
==>>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fil <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2411	2520	
==>S

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie> for a documentation of th <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	678	778	
==>hould test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error messa <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	678	778	
==>hould test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error messa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1652	1745	
==>ute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1652	1745	
==>ute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8680	8813	
==>ated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14405	14538	
==>ated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8680	8813	
==>ated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14399	14532	
==>ated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not im <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	826	919	
==>.^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	826	919	
==>.^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	826	919	
==>.^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	202	314	
==>host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	206	318	
==>host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	202	314	
==>host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	206	318	
==>host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13335	13527	
==>'-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3500	3668	
==>'-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3500	3668	
==>'-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3500	3668	
==>'-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10304	10502	
==>g->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13725	13820	
==>ams->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13725	13820	
==>ams->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13725	13820	
==>ams->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10038	10183	
==>e ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10038	10183	
==>e ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10038	10183	
==>e ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7871	7984	
==>t, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $S0 = substr target, pos <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3886	4060	
==>left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3886	4060	
==>left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETV <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	79	190	
==>plementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	77	182	
==>plementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7615	7767	
==>n, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7627	7779	
==>n, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4790	4917	
==>oad( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4626	4748	
==>oad( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	383	481	
==>rl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	383	481	
==>rl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	383	481	
==>rl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putt <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4196	4299	
==>bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4196	4299	
==>bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4574	4676	
==>: () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4767	4869	
==>: () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24707	24800	
==>class;
every Relation::Example tuple must be distinct from the other tuples.  All Relation::Ex <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1409	1614	
==>n "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1409	1614	
==>n "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PI <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	252	381	
==>'&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	252	381	
==>'&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15961	16151	
==>ubrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15955	16145	
==>ubrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @p <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14602	14754	
==>.css"
                                   ));
        if (exists $index->{$syn}) {
        # This makes later processing easier
        $sobj->objectify_t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3159	3252	
==>nnotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struct_equiv => $nod <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49636	49777	
==>uthority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3983	4105	
==>'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3983	4105	
==>'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	833	955	
==>'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4421	4541	
==>le_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4421	4541	
==>le_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4421	4541	
==>le_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special ca <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	344	452	
==>=> $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses' <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	249	355	
==>parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	249	355	
==>parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	249	355	
==>parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	249	355	
==>parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13170	13281	
==>is ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13170	13281	
==>is ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13170	13281	
==>is ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	373	484	
==>lass, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	373	484	
==>lass, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33658	33750	
==>he aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38208	38300	
==>he aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1597	1704	
==>mit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1597	1704	
==>mit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_ne <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4083	4185	
==>n pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4083	4185	
==>n pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33868	33981	
==>ub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33868	33981	
==>ub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33868	33981	
==>ub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, ' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	414	495	
==>this article: http://research.microsoft.com/Users/luca/Papers/BasicTypechecking.pd <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19137	19264	
==>*/
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 sublen;             /* Length of strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5243	5348	
==>:',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5243	5348	
==>:',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5243	5348	
==>:',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	26	149	
==>d;
use Config;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	903	1018	
==>the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	903	1018	
==>the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7598	7711	
==>bar' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	376	485	
==>\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	376	485	
==>\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	376	485	
==>\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable ou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26778	26876	
==>ch object classes have been loaded already.

=item $parser->init()

This method installs all the fl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4470	4571	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8926	9027	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4470	4571	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8926	9027	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2324	2427	
==>t(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chd <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2302	2405	
==>t(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chd <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5745	5841	
==>:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4875	4971	
==>:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5745	5841	
==>:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4875	4971	
==>:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1714	1820	
==>nt $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1714	1820	
==>nt $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2763	2860	
==>>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.qu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2763	2860	
==>>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.qu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	457	562	
==>hObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12881	12979	
==>re is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12881	12979	
==>re is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12881	12979	
==>re is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2687	2811	
==>thod($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2687	2811	
==>thod($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2687	2811	
==>thod($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22657	22763	
==>here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'try <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	436	563	
==>opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1719	1815	
==>kage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1719	1815	
==>kage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1719	1815	
==>kage PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0] <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8998	9107	
==>t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which mig <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8998	9107	
==>t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which mig <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7330	7428	
==>re :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7330	7428	
==>re :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2014	2177	
==>dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        syst <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3544	3702	
==>dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        syst <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28215	28314	
==>vable";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher order app with uneq types";

# a help <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6960	7106	
==>ype', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6960	7106	
==>ype', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14821	14935	
==>Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->data);
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7808	7903	
==>_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $comman <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4248	4394	
==>ith care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4248	4394	
==>ith care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	291	436	
==>";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	379	524	
==>";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3925	4030	
==>ix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16286	16391	
==>($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $native = $r->pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3925	4030	
==>ix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3925	4030	
==>ix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2612	2779	
==>rent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2817	2984	
==>rent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3889	4056	
==>rent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1920	2034	
==>:Module::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3265	3379	
==>^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3265	3379	
==>^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3265	3379	
==>^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9015	9114	
==>ser->root;

It will be an array reference of objects.

=head2 Getting the OPEN Count

You can access <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4080	4226	
==>lock} ) . "\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	948	1063	
==>6main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	948	1063	
==>6main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	948	1063	
==>6main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // F <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9428	9610	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14972	15154	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9428	9610	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14966	15148	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	986	1088	
==>->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1605	1707	
==>ile '$filename' is older than template
    '$config_template'.  I will merge them in memory, but
    yo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	986	1088	
==>->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	986	1088	
==>->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25048	25144	
==>to have zero tuples.  It is also valid
for a Relation::Example to have zero attributes, though su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5480	5596	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5480	5596	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5480	5596	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10258	10371	
==>UMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    max = $S0
    pos <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4040	4151	
==>E;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    close MAKEFILE;
}

sub get_pugs_ <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	36	131	
==>from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2 <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	37	132	
==>from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2 <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	37	132	
==>from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5004	5130	
==>f->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5004	5130	
==>f->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5004	5130	
==>f->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3234	3330	
==>at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}->( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16885	17024	
==>_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16885	17024	
==>_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16885	17024	
==>_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7631	7792	
==>ned {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7631	7792	
==>ned {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5192	5324	
==>_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5192	5324	
==>_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6140	6247	
==>\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6140	6247	
==>\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6140	6247	
==>\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::I <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16251	16350	
==>lain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_obje <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2939	3216	
==>,
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelud <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2001	2106	
==>e user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomod <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3593	3698	
==>e user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1145	1243	
==>_

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1145	1243	
==>_

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4801	4944	
==>? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4813	4956	
==>? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2203	2300	
==>literal {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2116	2211	
==>literal {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimit <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3937	4119	
==>[tar -f $my_tmp_dir/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1045	1223	
==>[ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9928	10023	
==>Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compar <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9928	10023	
==>Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compar <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6409	6517	
==>$text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6409	6517	
==>$text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3970	4239	
==>}
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3970	4239	
==>}
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {    
    %events <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3927	4194	
==>}
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3927	4194	
==>}
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) returns Void {  
    %events <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7374	7508	
==>] }
                split "\000",
                `find $lib6 -print0`;
  };
my $newest_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	351	482	
==>r to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	351	482	
==>r to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	351	482	
==>r to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1421	1578	
==>t;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $self->get_value('@:s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8455	8563	
==>ts_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8513	8621	
==>ts_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28944	29037	
==>The included F<prove> utility for running test scripts from the command line,
L<Test> and L<Te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3611	3841	
==>bstr( $match, 1 ),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10020	10124	
==>5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10020	10124	
==>5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10020	10124	
==>5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7993	8098	
==>if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7993	8098	
==>if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15562	15661	
==>may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigger <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15562	15661	
==>may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigger <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8319	8425	
==>t() returns false, and will
return false if called again.

=head2 Building the Tree

If you don't care to i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1961	2063	
==>trol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1961	2063	
==>trol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1961	2063	
==>trol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7311	7427	
==>fter' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7063	7177	
==>fter' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7738	7837	
==>lee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7738	7837	
==>lee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chan <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2565	2722	
==>}
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5570	5727	
==>}
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2565	2722	
==>}
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5570	5727	
==>}
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	138	235	
==>Loader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: M <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	138	235	
==>Loader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: M <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	138	235	
==>Loader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11043	11146	
==>}
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11043	11146	
==>}
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11043	11146	
==>}
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $se <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5849	5942	
==>dd_definition($node => "$return_type $symbol (" . join(", ", @params) . ") {" . join("\n\t", " <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13606	13707	
==>2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13606	13707	
==>2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16101	16201	
==>al value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16101	16201	
==>al value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3902	4024	
==>ifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3902	4024	
==>ifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3902	4024	
==>ifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2421	2515	
==>:round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.rou <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	981	1130	
==>ft;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1499	1602	
==>nternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1499	1602	
==>nternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1499	1602	
==>nternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	234	348	
==>b step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no description)";
  $args{ensure} ||= sub { 1 };
  $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4068	4171	
==>ams) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4068	4171	
==>ams) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4068	4171	
==>ams) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14799	14928	
==>elf<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14799	14928	
==>elf<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5185	5296	
==>$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5185	5296	
==>$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' <==
4	/Users/nnunley/pugs/util/importgraph.pl	2589	2701	
==>$cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = each %{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14099	14195	
==>:Model::Node Class

A Node object is a simple container which stores data to be used or
displayed <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14099	14195	
==>:Model::Node Class

A Node object is a simple container which stores data to be used or
displayed <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3934	4052	
==>block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3934	4052	
==>block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3934	4052	
==>block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11386	11483	
==>ator::nullary->new("int"),
			type::operator::nullary->new("bool"),
		),
	),
);


package main;

u <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6058	6147	
==>ilder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6058	6147	
==>ilder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8255	8344	
==>ilder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1216	1352	
==>ndData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHei <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1216	1352	
==>ndData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHei <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1216	1352	
==>ndData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHei <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39781	39887	
==>->warn(RPe_BADESC, "y", " in character class");
      return $S->force_object(exact => "y");
    }
    else <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9222	9372	
==>_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              de <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1346	1488	
==>_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1346	1488	
==>_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3015	3142	
==>grammar in perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1981	2116	
==>) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1981	2116	
==>) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1981	2116	
==>) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2857	2993	
==>e  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2857	2993	
==>e  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2857	2993	
==>e  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3693	3782	
==>cursive calls.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist in the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21081	21263	
==>params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44005	44170	
==>params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14127	14222	
==>s to consider unsafe (i.e., which to escape). The default set
of characters to encode are contro <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14127	14222	
==>s to consider unsafe (i.e., which to escape). The default set
of characters to encode are contro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1692	1805	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1885	1998	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9126	9220	
==>tta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'na <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9126	9220	
==>tta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9951	10108	
==>next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9951	10108	
==>next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9951	10108	
==>next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7476	7573	
==>ss over the regex to make sure it
is well-formed -- any warnings or errors will be determined duri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9315	9480	
==>),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagno <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1435	1582	
==>),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagno <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1435	1582	
==>),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagno <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8769	8880	
==>{$_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7764	7893	
==>ed' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7764	7893	
==>ed' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7764	7893	
==>ed' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5996	6101	
==>bg "# Statements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5501	5623	
==>$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6769	6891	
==>$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5501	5623	
==>$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6757	6879	
==>$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $() <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3327	3434	
==>alue or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a ut <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3327	3434	
==>alue or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a ut <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	376	471	
==>ive
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	376	471	
==>ive
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7882	7998	
==>unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7870	7986	
==>unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	389	498	
==>failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/fals <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	371	475	
==>failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/fals <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23721	23814	
==>L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22494	22587	
==>L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PR <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23721	23814	
==>L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PR <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22494	22587	
==>L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1809	1938	
==>)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1809	1938	
==>)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1809	1938	
==>)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ide <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1338	1453	
==>($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->to_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2561	2677	
==>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14406	14517	
==>my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14406	14517	
==>my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14406	14517	
==>my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->nu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4760	4901	
==>en;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4760	4901	
==>en;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16162	16255	
==>rnally, while another one displays it to the
user instead.

Locale::KeyedText provides a simpl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16162	16255	
==>rnally, while another one displays it to the
user instead.

Locale::KeyedText provides a simpl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12505	12662	
==>ath (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12505	12662	
==>ath (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	633	739	
==>:Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	633	739	
==>:Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6775	6909	
==>it('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $l <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6775	6909	
==>it('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $l <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5270	5397	
==>start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5270	5397	
==>start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4284	4414	
==>ontents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4284	4414	
==>ontents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4284	4414	
==>ontents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31271	31373	
==>tem family

The general family of this object.

=item data

The data or children of this object.

=item <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	591	721	
==>me, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_id <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	591	721	
==>me, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_id <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24820	24932	
==>add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21241	21353	
==>add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	688	783	
==>in ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	688	783	
==>in ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	688	783	
==>in ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1004	1166	
==>e        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	867	997	
==>e      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2149	2262	
==>ce( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $inters <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2149	2262	
==>ce( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $inters <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9723	9822	
==>rts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9723	9822	
==>rts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38347	38442	
==>msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where eac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38347	38442	
==>msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2651	2762	
==>his is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module impl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2651	2762	
==>his is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module impl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2998	3109	
==>his is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module impl <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	126	230	
==>sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~~ s:perl5:g/[^A-Z]//;
    if !(- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3829	3953	
==>die $?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	596	705	
==>STROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	596	705	
==>STROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	596	705	
==>STROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1911	2009	
==>ercase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last compo <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1911	2009	
==>ercase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last compo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7683	7777	
==>match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7422	7513	
==>match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4964	5070	
==>::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4964	5070	
==>::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4964	5070	
==>::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19254	19352	
==>Expression> <','> <AssignmentExpression>
}
rule ExpressionNoIn :words {  # see 11.14
      <Assignm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	591	704	
==>ammar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2435	2536	
==>2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2435	2536	
==>2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2435	2536	
==>2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2368	2500	
==>_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2368	2500	
==>_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $co <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4027	4127	
==>uffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4027	4127	
==>uffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12634	12791	
==>(  exists $n->{exp2}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1605	1693	
==>:generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Interna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1605	1693	
==>:generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Interna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1605	1693	
==>:generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Interna <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12387	12497	
==>sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	805	895	
==>}
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	805	895	
==>}
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	805	895	
==>}
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2143	2257	
==>returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5114	5228	
==>returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2143	2257	
==>returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5114	5228	
==>returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	996	1114	
==>LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1887	2005	
==>LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12042	12157	
==>write to temp file
	    my $stdin = qq{$^X -e 'print qq(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verb <==
4	/Users/nnunley/pugs/util/func_refact.pl	2901	3012	
==>d {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23430	23524	
==>ather than a Class, and some
implementations are immutable rather than mutable, this property a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27982	28076	
==>ather than a Class, and some
implementations are immutable rather than mutable, this property a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26786	26880	
==>ather than a Class, and some
implementations are immutable rather than mutable, this property a <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	335	440	
==>ce of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are ava <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	335	440	
==>ce of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are ava <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3615	3718	
==>intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3615	3718	
==>intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4971	5077	
==>e "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4971	5077	
==>e "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4971	5077	
==>e "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25504	25599	
==>d each attribute is a column, but a Relation::Example is not a table.

The Relation::Example cla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	439	546	
==>} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	439	546	
==>} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12612	12716	
==>, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6087	6191	
==>, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5314	5438	
==>n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Operator add: @{[ %o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1819	1924	
==>$field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1 <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1819	1924	
==>$field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6301	6393	
==>p::Parser::Objects> for documentation about nodes and the objects
that represent them.  See L <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	594	717	
==>d.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expec <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	594	717	
==>d.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expec <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1246	1347	
==>the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1182	1274	
==>the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1096	1245	
==>$container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16022	16120	
==>s->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16022	16120	
==>s->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16022	16120	
==>s->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1349	1436	
==>fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1349	1436	
==>fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1349	1436	
==>fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	542	642	
==>ait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	542	642	
==>ait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	542	642	
==>ait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13335	13430	
==>_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequence (?#... not te <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24271	24366	
==>r interactive program controlling their
  actions) which are always seen to be replying lest the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23044	23139	
==>r interactive program controlling their
  actions) which are always seen to be replying lest the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24271	24366	
==>r interactive program controlling their
  actions) which are always seen to be replying lest the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23044	23139	
==>r interactive program controlling their
  actions) which are always seen to be replying lest the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11084	11225	
==>g "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're current <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11084	11225	
==>g "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're current <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12010	12101	
==>C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document obje <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12010	12101	
==>C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9915	10021	
==>ler(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9915	10021	
==>ler(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9915	10021	
==>ler(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12236	12338	
==>ss: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6opaque';
    my $self = $class.C <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3984	4108	
==>imToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3996	4120	
==>imToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $< <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1912	2023	
==>glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.g <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1912	2023	
==>glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.g <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4770	4886	
==>osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2226	2333	
==>p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2226	2333	
==>p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2226	2333	
==>p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1481	1737	
==>\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

mu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1481	1737	
==>\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

mu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21254	21350	
==>ge which
uses this would come up with keys which are unique across all Perl packages
(perhaps the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21254	21350	
==>ge which
uses this would come up with keys which are unique across all Perl packages
(perhaps the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9757	9882	
==>red_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9757	9882	
==>red_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9757	9882	
==>red_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5610	5714	
==>sed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5610	5714	
==>sed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know h <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2662	2765	
==>install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $mod <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2662	2765	
==>install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $mod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2857	3023	
==>') };
use constant ISA_JIB_REPOSITORY_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repositor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1545	1653	
==>) - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1545	1653	
==>) - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1545	1653	
==>) - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive type <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27136	27248	
==>lf->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2690	2801	
==>MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2690	2801	
==>MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2690	2801	
==>MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2629	2739	
==>in_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2629	2739	
==>in_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	229	332	
==>) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $ <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	229	332	
==>) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1073	1200	
==>);
    }

    return;
}

sub can_cc {
    my $self = shift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3261	3350	
==>nline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3261	3350	
==>nline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3261	3350	
==>nline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6421	6523	
==>ule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6433	6535	
==>ule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gen <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1085	1180	
==>$*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimit <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1085	1180	
==>$*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32738	32927	
==>s > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32738	32927	
==>s > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32738	32927	
==>s > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	307	424	
==>ame          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACC <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3284	3386	
==>l, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3284	3386	
==>l, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23996	24095	
==>n invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation::Exampl <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5073	5165	
==>ram}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::binary/;

sub <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1852	1948	
==>return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNO <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1852	1948	
==>return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNO <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	558	653	
==>.!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RE <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	558	653	
==>.!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RE <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	755	853	
==>ich to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	755	853	
==>ich to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1311	1409	
==>ich to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1601	1694	
==>re 
### marked privata.. their public equivalents live in Installation.pm
$config{'_meta_dir'} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50646	50826	
==>rams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	961	1117	
==>mit( $ast, '' );
        #"do{\n" .
        #_emit( $ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumpe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3145	3252	
==>ler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3145	3252	
==>ler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3308	3432	
==>r whitespace means block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13979	14088	
==>ster new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifbl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10152	10261	
==>ster new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifbl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10988	11097	
==>ster new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifbl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28273	28370	
==>a new Relation
which is the same as the invocant Relation but that some of its attributes
have bee <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32825	32922	
==>a new Relation
which is the same as the invocant Relation but that some of its attributes
have bee <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5874	6040	
==>(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5874	6040	
==>(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5874	6040	
==>(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9405	9531	
==>> 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative for <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9405	9531	
==>> 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative for <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1791	1906	
==>bitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn' <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1791	1906	
==>bitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5652	5773	
==>'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5874	5995	
==>'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1047	1167	
==>0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1047	1167	
==>0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" . <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	474	579	
==>m}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	474	579	
==>m}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named} <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1478	1575	
==>d by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

= <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1478	1575	
==>d by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	397	501	
==>ne (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	397	501	
==>ne (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	397	501	
==>ne (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1725	1835	
==>>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1725	1835	
==>>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20040	20135	
==>alue, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20040	20135	
==>alue, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2002	2197	
==>P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    wh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2002	2197	
==>P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    wh <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4906	5060	
==>h >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4906	5060	
==>h >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3893	4011	
==>er::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$noop; goto &$c;
      my $v = $c <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5712	5804	
==>head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5712	5804	
==>head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3604	3736	
==>nless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1]. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3604	3736	
==>nless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1]. <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3940	4050	
==>tion: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3940	4050	
==>tion: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ( <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2301	2416	
==>\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    loca <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2301	2416	
==>\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    loca <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2199	2295	
==>of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should s <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2199	2295	
==>of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13969	14079	
==>r. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine. But i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13969	14079	
==>r. If the connection is still alive, the server will
        # respond with a PONG, so everything's fine. But i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13035	13141	
==>r. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine. But i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13035	13141	
==>r. If the connection is still alive, the server will
    # respond with a PONG, so everything's fine. But i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1449	1563	
==>as Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1449	1563	
==>as Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2705	2800	
==>e following public attributes:

=over 8

=item C<$r.method>

The request method used (for exampl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2705	2800	
==>e following public attributes:

=over 8

=item C<$r.method>

The request method used (for exampl <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2912	3050	
==>exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{timestamp}       = time;
  $smoke{id}              = $id;
  my $filename            = pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3116	3208	
==>rent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3116	3208	
==>rent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclass <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3116	3208	
==>rent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclass <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1214	1329	
==>elf    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subd <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	555	667	
==>elf = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2814	2920	
==>s


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3061	3167	
==>s


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7356	7485	
==>ge 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7108	7234	
==>ge 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21105	21219	
==>atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17526	17640	
==>atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2671	2810	
==>=> 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4838	4930	
==>em B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=ite <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4838	4930	
==>em B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=ite <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7035	7127	
==>em B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=ite <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	616	741	
==>ULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;
    }
}

sub make <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1421	1520	
==>gs       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1421	1520	
==>gs       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1421	1520	
==>gs       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(ar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2357	2762	
==>osetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2357	2762	
==>osetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8414	8560	
==>ems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value:: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8414	8560	
==>ems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	198	313	
==>= 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	198	313	
==>= 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	198	313	
==>= 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	118	214	
==>ompiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1503	1630	
==>DAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Serv <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1503	1630	
==>DAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Serv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	616	742	
==>d_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11710	11836	
==>d_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	59	168	
==>e '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	59	168	
==>e '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4385	4476	
==>ext for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4385	4476	
==>ext for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2899	3105	
==>ell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2899	3105	
==>ell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2899	3105	
==>ell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16319	16407	
==>E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifiers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8074	8190	
==>to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8074	8190	
==>to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8074	8190	
==>to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9991	10088	
==>name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] ruleop::capture( '$_[0]', \\&{'$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28265	28362	
==>ect which is suitable
for debugging purposes (such as to test that the object's contents look
good <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35621	35718	
==>ect which is suitable
for debugging purposes (such as to test that the object's contents look
good <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28265	28362	
==>ect which is suitable
for debugging purposes (such as to test that the object's contents look
good <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35621	35718	
==>ect which is suitable
for debugging purposes (such as to test that the object's contents look
good <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8860	9034	
==>&restrict;

###########################################################################

multi method union (Relation::Example $other!) returns Relation::Example {

    die "T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22814	22906	
==>_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22814	22906	
==>_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22814	22906	
==>_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22831	22957	
==>omb(
						fun => ide("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1482	1576	
==>"String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1482	1576	
==>"String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1482	1576	
==>"String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq» <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3200	3450	
==>odel::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3200	3450	
==>odel::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5978	6075	
==>etta::Model document in which we store some local
    # command definitions and fragments thereof. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5978	6075	
==>etta::Model document in which we store some local
    # command definitions and fragments thereof. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24368	24624	
==>)
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24368	24624	
==>)
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24368	24624	
==>)
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1311	1449	
==>w/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5628	5790	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pri <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2989	3151	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5628	5790	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2989	3151	
==>im => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.pri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	559	684	
==>error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1043	1168	
==>error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2259	2364	
==>le $name :words" },
#     rather than having the clutter of lots of explicit :words modifiers.
#
#  Thanks <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13767	13867	
==>est *@keytests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2712	2851	
==>urn $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2712	2851	
==>urn $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # not <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	357	468	
==>ode;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	357	468	
==>ode;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2888	3007	
==>my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        my $bool = $const eq sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	319	437	
==>? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	319	437	
==>? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	319	437	
==>? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3101	3205	
==>t::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3101	3205	
==>t::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6371	6519	
==>my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3496	3644	
==>my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4345	4493	
==>my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
} <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6431	6537	
==>difier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5504	5610	
==>difier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('l <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6431	6537	
==>difier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('l <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5504	5610	
==>difier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('l <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21401	21484	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21711	21794	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44308	44391	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44618	44701	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1224	1323	
==>sh));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15786	15885	
==>ing
# the body of the binding contains the env with the the symbols of our outer scope
let: new_env( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1224	1323	
==>sh));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1224	1323	
==>sh));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7703	7842	
==>,
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7703	7842	
==>,
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7703	7842	
==>,
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1365	1460	
==>mpress_smoke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6864	6973	
==>$Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1130	1236	
==>);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1130	1236	
==>);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1130	1236	
==>);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52802	52894	
==>ta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('%:namespa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7622	7712	
==>n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7622	7712	
==>n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7622	7712	
==>n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.const <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1021	1128	
==>= shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1496	1623	
==>undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1496	1623	
==>undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1496	1623	
==>undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3145	3252	
==>D} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1386	1518	
==>trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1386	1518	
==>trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1016	1118	
==>mt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILTh <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1016	1118	
==>mt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILTh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3191	3330	
==>_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	549	659	
==>Temp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	549	659	
==>Temp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	549	659	
==>Temp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10133	10249	
==>necting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflus <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10133	10249	
==>necting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflus <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1750	1871	
==>clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->m <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	861	980	
==>clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17674	17772	
==>d/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17674	17772	
==>d/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	792	951	
==>.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	792	951	
==>.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	792	951	
==>.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  tim <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	871	981	
==>ed\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( list_dependencies( $found, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18406	18547	
==>sh'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18406	18547	
==>sh'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18406	18547	
==>sh'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9796	9913	
==>doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4001	4130	
==>}
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4001	4130	
==>}
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4798	4904	
==>E => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4798	4904	
==>E => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7987	8113	
==>1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 = substr target, $I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5030	5129	
==>$ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5030	5129	
==>$ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5030	5129	
==>$ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2531	2660	
==>se;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2531	2660	
==>se;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2531	2660	
==>se;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6377	6482	
==>got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where() <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1166	1345	
==>now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        retur <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1166	1345	
==>now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1569	1677	
==>of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_U <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1569	1677	
==>of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_U <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1348	1458	
==>$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ($self, $op) = @_;
    pri <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	579	679	
==>_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	579	679	
==>_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8614	8704	
==>spec_neg([-x|L]) --> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {tru <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	617	757	
==>$package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	617	757	
==>$package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5100	5209	
==>->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7161	7270	
==>al runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclus <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47662	47855	
==>w(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35522	35708	
==>w(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6727	6907	
==>w(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol->new('$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5523	5634	
==>\n";

    local *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3126	3237	
==>he case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3126	3237	
==>he case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3126	3237	
==>he case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retur <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4927	5037	
==>y $accum = shift;

	bless {
		%$self,
		param => $self->{param}->splat($accum),
	}, (ref $self);
}

sub free_va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2646	2747	
==>y.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2646	2747	
==>y.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1855	1953	
==>y.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3716	3814	
==>y.

This program is free software; you can redistribute it and/or modify it
under the same terms as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2491	2682	
==>$self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&Point },        
    };
}

my $p = new Po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1775	1877	
==>ed variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1775	1877	
==>ed variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1775	1877	
==>ed variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1577	1704	
==>d',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP V <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1577	1704	
==>d',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP V <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25300	25397	
==>s attributes is identical; they do not
interact with the outside environment at all.

A Message ob <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25300	25397	
==>s attributes is identical; they do not
interact with the outside environment at all.

A Message ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4195	4306	
==>_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4195	4306	
==>_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4785	4896	
==>_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_ar <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3340	3445	
==>id';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type';

node_a 'Type <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7522	7628	
==>ild->values; # the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			my @param <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4239	4339	
==>);

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4239	4339	
==>);

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4239	4339	
==>);

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	388	493	
==>~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_child <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2944	3045	
==>args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2944	3045	
==>args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2944	3045	
==>args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8212	8410	
==>ram );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8212	8410	
==>ram );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8212	8410	
==>ram );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	724	841	
==>en = length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( subs <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2278	2376	
==>to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7494	7592	
==>ze $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7494	7592	
==>ze $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2278	2376	
==>to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11525	11643	
==>$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8672	8790	
==>$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11525	11643	
==>$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8672	8790	
==>$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7455	7608	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7455	7608	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'A <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7455	7608	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'A <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2470	2583	
==>L2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Array) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1594	1730	
==>Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Trans <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4981	5096	
==>rg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4981	5096	
==>rg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4981	5096	
==>rg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12960	13111	
==>iable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12954	13105	
==>iable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2814	2922	
==>plitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2814	2922	
==>plitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21110	21211	
==>er
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21110	21211	
==>er
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1423	1544	
==>nstance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1423	1544	
==>nstance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1423	1544	
==>nstance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) e <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7246	7343	
==>erations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6376	6473	
==>erations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7246	7343	
==>erations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6376	6473	
==>erations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13496	13714	
==>::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13496	13714	
==>::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13496	13714	
==>::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dis <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	703	819	
==>ep;
    }
  }

  # Post $event to $session and return the result.
  # The session's event handler won't be executed u <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16493	16609	
==>max skip_all todo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12641	12734	
==>ef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12641	12734	
==>ef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12641	12734	
==>ef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12728	12876	
==>et->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12728	12876	
==>et->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12728	12876	
==>et->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1142	1286	
==>NER**
                my $self = shift;
                my $idx = shift;
                $self->get_value('@:slots')->[$idx]; # type == Container <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9949	10047	
==>, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOWN($lhs),DOWN($rhs));
}
NODE TypeAnd ($l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	996	1089	
==>copes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	996	1089	
==>copes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	996	1089	
==>copes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3350	3460	
==>);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3350	3460	
==>);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3350	3460	
==>);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('na <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4934	5033	
==>term:
  push @termStack, newfrom( $matchObj, $whitespacePosition, "PGE::Match" );
  goto end;
  foun <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2687	2851	
==>push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2687	2851	
==>push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11457	11580	
==>entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '% <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11457	11580	
==>entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '% <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13939	14046	
==>ion:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13939	14046	
==>ion:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1656	1795	
==>s to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1656	1795	
==>s to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4564	4659	
==>6+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4564	4659	
==>6+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3462	3571	
==>2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3462	3571	
==>2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3462	3571	
==>2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	647	742	
==>_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DuplicateFinde <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	738	900	
==>match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3809	3971	
==>match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	738	900	
==>match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3809	3971	
==>match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36452	36550	
==>hers.  The sequence in which any two source relations are
combined is inconsequential.  A trivial c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41001	41099	
==>hers.  The sequence in which any two source relations are
combined is inconsequential.  A trivial c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40615	40713	
==>hers.  The sequence in which any two source relations are
combined is inconsequential.  A trivial c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4166	4297	
==>} grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4166	4297	
==>} grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4166	4297	
==>} grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16211	16336	
==>y $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name) <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3529	3677	
==>bs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6469	6564	
==>tialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6469	6564	
==>tialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6469	6564	
==>tialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5520	5646	
==>.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5520	5646	
==>.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16196	16295	
==>n( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Ot <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16196	16295	
==>n( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Ot <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2641	2812	
==>le (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2846	3017	
==>le (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3918	4089	
==>le (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        's <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18238	18333	
==><examples/mini_harness.plx> for an example of use.

=head1 AUTHOR

Michael G Schwern C<< <schwer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16396	16538	
==>count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16396	16538	
==>count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16396	16538	
==>count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Lis <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1722	1824	
==>e($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP_PRELUDE) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	638	745	
==>{~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	638	745	
==>{~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1182	1273	
==>inst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1182	1273	
==>inst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0 <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	180	337	
==>s =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => \&$_ }
                   qw( generate_p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	472	568	
==>($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	472	568	
==>($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	472	568	
==>($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26538	26633	
==>efine ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x40 <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1175	1302	
==>mmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        wh <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	299	397	
==>name , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	299	397	
==>name , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1113	1238	
==>essors( qw[repository] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9016	9121	
==><...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Ju <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9016	9121	
==><...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Ju <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9016	9121	
==><...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Ju <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2543	2655	
==>oth sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2543	2655	
==>oth sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17175	17271	
==>anguage(s) of the intended audience for the message
content.  The value is one or more language t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17175	17271	
==>anguage(s) of the intended audience for the message
content.  The value is one or more language t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2389	2564	
==>n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2700	2869	
==>n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2700	2869	
==>n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	114	218	
==>^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minut <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3838	3945	
==>{
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3838	3945	
==>{
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52783	52881	
==>::Module) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36374	36467	
==>maining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seque <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40923	41016	
==>maining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seque <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40537	40630	
==>maining said tuple pairs, then eliminating any result tuples that
duplicate others.  The seque <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36930	37023	
==>tion where a pair
of source relations have identical headings, for these their joining
degener <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41479	41572	
==>tion where a pair
of source relations have identical headings, for these their joining
degener <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41102	41195	
==>tion where a pair
of source relations have identical headings, for these their joining
degener <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22473	22592	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23036	23155	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18894	19013	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19457	19576	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	423	520	
==>s6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	423	520	
==>s6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	423	520	
==>s6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21113	21195	
==>Set),[C|F1],F1,B0,[C|B0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C| <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	173	283	
==>);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	173	283	
==>);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37240	37335	
==>me of a Perl package in its positional parameter
$module_name (a string) and checks whether or n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37240	37335	
==>me of a Perl package in its positional parameter
$module_name (a string) and checks whether or n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1895	2052	
==>$_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1895	2052	
==>$_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alterna <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2261	2369	
==>mp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2261	2369	
==>mp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7490	7616	
==>r( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7502	7628	
==>r( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4952	5072	
==>f Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8429	8549	
==>f Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $at <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5118	5264	
==>strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @d <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5118	5264	
==>strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @d <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	283	401	
==>{ $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defin <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	283	401	
==>{ $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7205	7344	
==>w(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'rBar::bar' } }
);
ok($rBar->does('Role'), '... rBar now does Role');

# create <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	389	504	
==>nd({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	389	504	
==>nd({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	389	504	
==>nd({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5784	5887	
==>Utils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5266	5369	
==>Utils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13102	13198	
==>e the content of
a message.  All header field names prefixed with C<Content-> falls
into this cat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13102	13198	
==>e the content of
a message.  All header field names prefixed with C<Content-> falls
into this cat <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3692	3788	
==>e () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3692	3788	
==>e () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/util/importgraph.pl	1968	2054	
==>, qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr/^Pugs\.Pa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3751	3854	
==>ence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3751	3854	
==>ence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    re <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5543	5644	
==>= 1;
    my @tests = $self->get_tests;
    $self->run_children($Config{concurrent}, \@tests);
}

sub r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	309	401	
==>alize them into some format.

For example L<Blondie::Emitter::Pretty> emits ASCII text that i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	241	365	
==>)                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	241	365	
==>)                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	241	365	
==>)                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1412	1512	
==>spec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5::X1::Result;
use strict;
sub new { <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1812	1929	
==>feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{'values'}{'features'} ||= [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7708	7809	
==>have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7708	7809	
==>have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7708	7809	
==>have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4018	4157	
==>q 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4018	4157	
==>q 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implem <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1083	1184	
==>se
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1083	1184	
==>se
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9182	9278	
==>} elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9182	9278	
==>} elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9182	9278	
==>} elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11163	11261	
==>has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8567	8665	
==>has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11163	11261	
==>has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8567	8665	
==>has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15619	15753	
==>_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15613	15747	
==>_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5517	5625	
==>mp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5517	5625	
==>mp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14163	14364	
==>ed $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14163	14364	
==>ed $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14163	14364	
==>ed $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here .. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	33	144	
==>w[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3337	3497	
==>meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3801	3961	
==>meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16520	16639	
==>t(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15574	15685	
==>t(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	690	835	
==>xtToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	690	835	
==>xtToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	690	835	
==>xtToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39597	39688	
==>ents, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.Darren <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24320	24411	
==>ents, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.Darren <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39597	39688	
==>ents, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.Darren <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24320	24411	
==>ents, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.Darren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8595	8701	
==>"pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8595	8701	
==>"pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8595	8701	
==>"pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32793	32888	
==>.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is omitted
here f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1256	1370	
==>ule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3854	3954	
==>::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3854	3954	
==>::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3854	3954	
==>::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = :: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2667	2802	
==>1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2667	2802	
==>1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2667	2802	
==>1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2586	2715	
==>circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2219	2326	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2219	2326	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2219	2326	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20013	20109	
==>en used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20013	20109	
==>en used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3947	4029	
==>rvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3947	4029	
==>rvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21467	21612	
==>->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44374	44519	
==>->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6210	6309	
==>ld be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5997	6094	
==>ld be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1522	1625	
==>lice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1522	1625	
==>lice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1522	1625	
==>lice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually mea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7981	8102	
==>st::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Class: $plan?, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	938	1039	
==>ion($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6029	6142	
==><+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6029	6142	
==><+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15504	15607	
==>_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15498	15601	
==>_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	430	631	
==>(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	430	631	
==>(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::w <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8403	8499	
==>tion')>

This event is begun when any block of characters is interpolated for modifiers.

=item I <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8403	8499	
==>tion')>

This event is begun when any block of characters is interpolated for modifiers.

=item I <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12722	12822	
==>e used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12722	12822	
==>e used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24528	24620	
==>he corresponding attribute value.

Every Relation::Example attribute has a name that is disti <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3199	3327	
==>s to the repository.
# 
# =cut
# 
# sub add_packages {
#     my $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	887	1005	
==>gs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	887	1005	
==>gs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	887	1005	
==>gs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14517	14620	
==>hough we've pinged the server (probably several times). So, we
        # conclude, the connection is b0r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14517	14620	
==>hough we've pinged the server (probably several times). So, we
        # conclude, the connection is b0r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13554	13653	
==>hough we've pinged the server (probably several times). So, we
    # conclude, the connection is b0r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13554	13653	
==>hough we've pinged the server (probably several times). So, we
    # conclude, the connection is b0r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10412	10544	
==>use it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10412	10544	
==>use it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10412	10544	
==>use it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #wa <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1892	1989	
==>clude','Disabled,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6947	7134	
==>capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6947	7134	
==>capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6290	6402	
==>ef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6290	6402	
==>ef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1549	1644	
==>nd::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1549	1644	
==>nd::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2372	2482	
==>my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2372	2482	
==>my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2372	2482	
==>my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1445	1538	
==>dule";
        system("../../Setup$Config{_exe}", 'configure', '--user', '--prefix', "$pwd/dis <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	827	977	
==>ur makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	718	837	
==>val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	718	837	
==>val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	718	837	
==>val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => su <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4699	4839	
==>thod grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4699	4839	
==>thod grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1658	1756	
==>(this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the resu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1658	1756	
==>(this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the resu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3155	3264	
==>tart = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3155	3264	
==>tart = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<e <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16228	16324	
==>pans. If the spans overlap, then the list contains a single
span. Otherwise, it contains two span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16228	16324	
==>pans. If the spans overlap, then the list contains a single
span. Otherwise, it contains two span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	81	184	
==>s to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	81	184	
==>s to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	81	184	
==>s to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15912	16012	
==>he one
field labeled "Internal use only" is one of the most widely used. ;)
Zero seems safe.  But mor <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4122	4234	
==>tation->new(
			type => $sub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	499	608	
==>$v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retval if defined $kludge_ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21638	21732	
==>ressed only by their names, and all
Relation tuples may be individually addressed only by their <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26190	26284	
==>ressed only by their names, and all
Relation tuples may be individually addressed only by their <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10948	11078	
==>code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10948	11078	
==>code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_ch <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	891	997	
==>ool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
} <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	891	997	
==>ool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5966	6066	
==>ble>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6232	6326	
==><<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6232	6326	
==><<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6232	6326	
==><<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3914	4005	
==>------------------------
## removing children

method remove_child_at ($self: Int $index) re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3914	4005	
==>------------------------
## removing children

method remove_child_at ($self: Int $index) re <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10205	10289	
==>ined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n" <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10940	11024	
==>ined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6777	6892	
==>compile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rules, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6550	6656	
==>compile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rules, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	999	1094	
==>))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2854	2949	
==>))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6271	6411	
==>e " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	876	988	
==>.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	876	988	
==>.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	876	988	
==>.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8805	8914	
==>odule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval stri <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3650	3759	
==>' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LVal <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8805	8914	
==>odule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval stri <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3650	3759	
==>' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LVal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	895	1026	
==>ock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	895	1026	
==>ock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	895	1026	
==>ock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6084	6265	
==>] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6084	6265	
==>] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6084	6265	
==>] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3857	3945	
==>be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3857	3945	
==>be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3857	3945	
==>be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13355	13534	
==>_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13355	13534	
==>_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13355	13534	
==>_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	880	983	
==>' . (shift)->to_native) }
sub to_num { (shift)->keys->length             }
sub to_bit { (shift)->keys->l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1978	2090	
==>++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1978	2090	
==>++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1978	2090	
==>++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsv <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	493	612	
==>$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	493	612	
==>$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($gramma <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8807	8901	
==>verbatim>

This event handles the entire verbatim string.

=item I<string>

This event processe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8807	8901	
==>verbatim>

This event handles the entire verbatim string.

=item I<string>

This event processe <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7957	8056	
==>lize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding= <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39451	39545	
==>ile is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Da <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5186	5280	
==>ile is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Da <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39451	39545	
==>ile is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Da <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5186	5280	
==>ile is part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Da <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	399	541	
==>t;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	399	541	
==>t;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2588	2693	
==>all (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2588	2693	
==>all (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5665	5765	
==>@_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5665	5765	
==>@_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5665	5765	
==>@_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unb <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14063	14155	
==>b: generic_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic($. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8465	8588	
==>ke:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8465	8588	
==>ke:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8465	8588	
==>ke:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9810	9915	
==>->walker(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- through third-level

The it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	798	898	
==>-
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	798	898	
==>-
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	798	898	
==>-
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5125	5272	
==>stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5125	5272	
==>stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5125	5272	
==>stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pil <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9519	9645	
==>-> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3996	4108	
==>ed $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3996	4108	
==>ed $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3996	4108	
==>ed $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3888	4080	
==>{

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4900	5087	
==>{
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3768	3955	
==>{
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4900	5087	
==>{
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            } <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	356	492	
==>c.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	356	492	
==>c.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	346	468	
==>ing 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	346	468	
==>ing 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6240	6364	
==>n${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_cand <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3738	3858	
==>',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSco <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3738	3858	
==>',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSco <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	588	708	
==>',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2509	2606	
==>PMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2509	2606	
==>PMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2509	2606	
==>PMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1205	1297	
==>nt to work with (from
L<Blondie::Prelude>), and provides an easy interface for executing ASTs <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4891	5040	
==>turn $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.clo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4891	5040	
==>turn $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.clo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5085	5187	
==>precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7753	7855	
==>precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3495	3620	
==>->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1999	2119	
==>prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2879	2999	
==>prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6896	7017	
==>$span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6896	7017	
==>$span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.is <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3922	4020	
==>le} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{post <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5281	5379	
==>le} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{post <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7030	7145	
==>' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7030	7145	
==>' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $state <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20880	20975	
==>esources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20880	20975	
==>esources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2257	2434	
==>abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1]->bool,
                str   => \$_[0],
                from  => \$_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20809	20951	
==>aram => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "length'",
        is => fun(
            par <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12955	13052	
==>ds:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12955	13052	
==>ds:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2603	2743	
==>ber'      => $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    '$.description' =>  $description, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	160	271	
==>ss1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	160	271	
==>ss1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	160	271	
==>ss1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2161	2294	
==>ed} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	430	527	
==>})')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	430	527	
==>})')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	430	527	
==>})')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('ne <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23336	23431	
==>analyze(pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3727	3816	
==>m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3727	3816	
==>m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3727	3816	
==>m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4882	4989	
==>g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4882	4989	
==>g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13010	13095	
==>same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13010	13095	
==>same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2855	2954	
==>name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2855	2954	
==>name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2855	2954	
==>name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7846	8021	
==>path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9199	9374	
==>g 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push( <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9199	9374	
==>g 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7846	8021	
==>path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	2942	3066	
==>ess (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/lib/libreadline.5.1.dy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	881	995	
==>ars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	881	995	
==>ars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	881	995	
==>ars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mang <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15183	15316	
==>ight until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = join <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22091	22187	
==>sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22091	22187	
==>sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22091	22187	
==>sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1672	1794	
==>XX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1672	1794	
==>XX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1672	1794	
==>XX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.d <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	136	242	
==>our;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:perl5/^$iso8 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2820	2911	
==>*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2820	2911	
==>*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2820	2911	
==>*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1862	1950	
==>um->new(int($left->to_native / $right->to_num->to_native()));
}

sub increment { num->new <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5280	5409	
==>array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $s <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3780	3909	
==>array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4598	4700	
==>fer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4598	4700	
==>fer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1848	1962	
==>] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1848	1962	
==>] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1848	1962	
==>] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	229	339	
==>ER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2156	2263	
==>"rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3958	4057	
==>to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "-- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3958	4057	
==>to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "-- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3958	4057	
==>to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "-- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	444	580	
==>output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:output;

        my $output = @:output.join( "\n" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	171	265	
==>e Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	171	265	
==>e Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	167	257	
==>e Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2640	2781	
==>oesn't work without this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	573	676	
==>$number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	573	676	
==>$number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14957	15060	
==>lverize the line down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31729	31852	
==>gth++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31729	31852	
==>gth++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31729	31852	
==>gth++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1345	1462	
==>R_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30567	30671	
==>ts may override these methods (as objects often do).

=head3 Using F<NEXT::> instead of F<SUPER::>

You c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2797	2896	
==>JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2797	2896	
==>JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2797	2896	
==>JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5250	5351	
==>::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5250	5351	
==>::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5250	5351	
==>::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23313	23408	
==>e(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = Bx, E1 = Ex).

%--- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2321	2517	
==>old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (wan <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2321	2517	
==>old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (wan <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2058	2156	
==>RIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

T <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2058	2156	
==>RIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1378	1529	
==>d;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4617	4768	
==>d;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1378	1529	
==>d;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4617	4768	
==>d;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    } <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2316	2469	
==>st {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtrac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1706	1801	
==>method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1706	1801	
==>method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1706	1801	
==>method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10066	10175	
==>{ 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10066	10175	
==>{ 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	714	821	
==>:Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	714	821	
==>:Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3260	3405	
==>e
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESC <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3260	3405	
==>e
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESC <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	672	819	
==>ow err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	672	819	
==>ow err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	672	819	
==>ow err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefine <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	174	291	
==>base 'type';

# equality

sub equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18987	19122	
==>NIVERSAL::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7142	7250	
==>tatement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7142	7250	
==>tatement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1811	1911	
==>tatement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1811	1911	
==>tatement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1382	1490	
==>ub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1382	1490	
==>ub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	433	539	
==>INAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	433	539	
==>INAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4844	4995	
==>t.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4844	4995	
==>t.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13855	13954	
==>to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13855	13954	
==>to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9015	9156	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9015	9156	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9015	9156	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	580	678	
==>eading;

    # External packages used by the Relation::Example::Heading class, that do export symbo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2986	3098	
==>x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, wit <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2986	3098	
==>x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, wit <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22440	22533	
==>ts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22440	22533	
==>ts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6168	6267	
==>nce with the prune method.

This feature is useful, like custom, for when you don't want to mess
wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6168	6267	
==>nce with the prune method.

This feature is useful, like custom, for when you don't want to mess
wit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6168	6267	
==>nce with the prune method.

This feature is useful, like custom, for when you don't want to mess
wit <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19974	20073	
==>odule_imp (*@whatever) {
    die "Can't load perl5 modules via js when not running under PIL2JS!";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1302	1396	
==>il2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1302	1396	
==>il2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1302	1396	
==>il2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15952	16061	
==>dler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10808	10917	
==>dler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13187	13286	
==>1 * $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13187	13286	
==>1 * $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

= <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20968	21085	
==>right thing
    my($name)=@_;
    my $mn = p6_mangle($name);
    my $pkg = (caller)[0];
    #my $ret = eval "package $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11156	11269	
==>atfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11156	11269	
==>atfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11156	11269	
==>atfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	675	805	
==>ckage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	675	805	
==>ckage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	675	805	
==>ckage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7815	7929	
==>curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7815	7929	
==>curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10499	10610	
==>turn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10499	10610	
==>turn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10499	10610	
==>turn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1565	1667	
==>>[1]->store($klass);
}

sub get_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37110	37231	
==>m >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handl <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7359	7454	
==>ached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is pr <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7359	7454	
==>ached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is pr <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1143	1244	
==>ter loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    del <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2983	3084	
==>ter loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    del <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22908	23007	
==>g(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27460	27559	
==>g(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mappi <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1920	2055	
==>e_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traverse;
        say '  ' x $depth, @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17365	17457	
==>ss->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17365	17457	
==>ss->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17365	17457	
==>ss->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we ma <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17237	17330	
==>ale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodolo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17237	17330	
==>ale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodolo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4959	5063	
==>!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4959	5063	
==>!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1998	2088	
==>e L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<do <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1998	2088	
==>e L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<do <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7762	7896	
==>pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11764	11893	
==>pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11764	11893	
==>pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1451	1562	
==>am->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    $self->ent <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	362	552	
==>= $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	362	552	
==>= $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	939	1051	
==>ar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	939	1051	
==>ar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1029	1153	
==>)";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1029	1153	
==>)";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1029	1153	
==>)";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15621	15717	
==>eric_in($$) }
let: generic_in($.in) = { generic($.is) }
let: generic($$) = { generic($.in) }

# t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6874	6994	
==>[]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6874	6994	
==>[]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6874	6994	
==>[]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14628	14737	
==>) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $self <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32464	32558	
==>method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37014	37108	
==>method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22835	22931	
==>tical to
C<nparen>, but it is incremented during the initial pass, so that on
the second pass (th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1430	1550	
==>! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1430	1550	
==>! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1430	1550	
==>! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	38	139	
==>rl5 compiler and creates a .pmc file

use strict;
use warnings;

my $filename = (caller)[1];
my $pmc = <==
4	/Users/nnunley/pugs/util/addauthors.pl	506	621	
==>\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	465	569	
==>ec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	465	569	
==>ec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	465	569	
==>ec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  re <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7236	7362	
==>"";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	610	710	
==>s->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	610	710	
==>s->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	610	710	
==>s->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2934	3063	
==>RG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8028	8157	
==>RG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2934	3063	
==>RG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8028	8157	
==>RG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $v <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2871	2962	
==>t bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2871	2962	
==>t bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11129	11241	
==>nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $por <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11129	11241	
==>nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $por <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19077	19174	
==>coded program conditions.  In other words, this user
text is *part of the program*, and not the pr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19077	19174	
==>coded program conditions.  In other words, this user
text is *part of the program*, and not the pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	239	344	
==>nt(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	239	344	
==>nt(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	239	344	
==>nt(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } el <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5863	5984	
==>};
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5863	5984	
==>};
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_op <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5415	5519	
==>).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5415	5519	
==>).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2332	2450	
==>s hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2332	2450	
==>s hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2332	2450	
==>s hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2301	2388	
==>ment => $() } }
RULE
*{'assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10115	10323	
==>r->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10115	10323	
==>r->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10115	10323	
==>r->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4487	4578	
==>ototype->class, \&Object, '... go the right super-superclass name for Point3D');

is($p3d->g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	452	546	
==>CH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	452	546	
==>CH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	452	546	
==>CH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_c <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28342	28434	
==>ults of running
its tests.  Setting C<$Test::Harness::verbose> will override this,
or you can <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5273	5376	
==>.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*EN <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3296	3399	
==>en"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/} <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5273	5376	
==>.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*EN <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3296	3399	
==>en"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13426	13529	
==>ns.
  That said, the use of internals is rather limited, and in a rather
  stable are of the code, so th <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1073	1174	
==>$tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1073	1174	
==>$tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1153	1254	
==>$tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3090	3243	
==>"$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3090	3243	
==>"$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12680	12775	
==>cts represent "chunks" of data, such as date objects without the time part.

Discrete spans take <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12680	12775	
==>cts represent "chunks" of data, such as date objects without the time part.

Discrete spans take <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1958	2077	
==>T.

A mapping from symbols to values:

    Blondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	10	122	
==>($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	10	122	
==>($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	10	122	
==>($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4114	4232	
==>n" ],
      [ 'file4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1874	1975	
==>ay.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($ini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1874	1975	
==>ay.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($ini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1874	1975	
==>ay.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9893	10029	
==>=> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9893	10029	
==>=> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9893	10029	
==>=> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3587	3701	
==>sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_instanc <==
4	/Users/nnunley/pugs/util/combine_tests.pl	330	433	
==>'s
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a more_events[] with events t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13710	13849	
==>-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13710	13849	
==>-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-f <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	238	366	
==>o {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $inserte <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	730	819	
==>mitive is JSX::Value;
class JSX::Value::Undefined is JSX::ValuePrimitive;
class JSX::Value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6659	6761	
==>lasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	711	813	
==>er_about (Int $sizeof_crowd, Array @x?) returns Hash is
export{
    my %terms;
    for 1 .. $sizeof_cro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6659	6761	
==>lasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6659	6761	
==>lasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22968	23067	
==>similar packages is that
text is always looked up by a key which is not meant to be meaningful for a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22968	23067	
==>similar packages is that
text is always looked up by a key which is not meant to be meaningful for a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1698	1796	
==>$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1698	1796	
==>$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4906	5002	
==>h => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4906	5002	
==>h => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4906	5002	
==>h => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10343	10435	
==>itches_from_user );

Returns only defined, non-blank, trimmed switches from the parms passed. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3217	3331	
==>hile (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3217	3331	
==>hile (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8483	8596	
==>k("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8483	8596	
==>k("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE = <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2111	2205	
==>ed regular expression may lead to execution of arbitrary code;
each alternate engine may introd <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1217	1309	
==>}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1217	1309	
==>}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1217	1309	
==>}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4280	4415	
==>min';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
    $args{bundle}   ||= 'inc/BUNDLE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5314	5419	
==>";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5314	5419	
==>";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5314	5419	
==>";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5158	5263	
==>ub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32569	32664	
==>d is the N-ary version of the aforementioned binary union()
operator, and the order of its argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37119	37214	
==>d is the N-ary version of the aforementioned binary union()
operator, and the order of its argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36427	36522	
==>d is the N-ary version of the aforementioned binary union()
operator, and the order of its argum <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3944	4055	
==>: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3944	4055	
==>: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1780	1882	
==>en traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 12 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1780	1882	
==>en traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 12 <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3743	3865	
==>st::min;
# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     saf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3631	3731	
==>bjects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3631	3731	
==>bjects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3631	3731	
==>bjects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3260	3416	
==>{ # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value('@:slots')->[ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3457	3562	
==>ng! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6934	7039	
==>ng! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5891	5996	
==>ng! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6294	6422	
==>the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbal <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5367	5495	
==>the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbal <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6294	6422	
==>the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbal <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5367	5495	
==>the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbal <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50526	50667	
==>ier'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3222	3319	
==>tor block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3222	3319	
==>tor block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3222	3319	
==>tor block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	408	524	
==>CK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5093	5194	
==>n sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5093	5194	
==>n sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5093	5194	
==>n sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20867	20970	
==>opic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickna <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19784	19887	
==>opic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20867	20970	
==>opic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19784	19887	
==>opic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickna <==
4	/Users/nnunley/pugs/util/addauthors.pl	876	1018	
==>{
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2629	2737	
==>"$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2629	2737	
==>"$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2629	2737	
==>"$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1250	1354	
==>eferencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1250	1354	
==>eferencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1250	1354	
==>eferencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

s <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	893	998	
==>~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

s <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	893	998	
==>~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15551	15651	
==>se methods may raise a warning if the new value would put the span 
in an invalid state, such as `sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15551	15651	
==>se methods may raise a warning if the new value would put the span 
in an invalid state, such as `sta <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	475	593	
==>ss( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	164	270	
==>ray = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	164	270	
==>ray = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	164	270	
==>ray = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	854	983	
==>\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	854	983	
==>\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3121	3226	
==>g_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:per <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3121	3226	
==>g_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:per <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	616	724	
==>m ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) u <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	616	724	
==>m ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) u <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8364	8462	
==>d1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vuln <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8364	8462	
==>d1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vuln <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	858	1047	
==>ir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                e <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	858	1047	
==>ir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32636	32734	
==>r, and the order of its arguments is not significant to the result;
the new Relation contains all t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37186	37284	
==>r, and the order of its arguments is not significant to the result;
the new Relation contains all t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15309	15453	
==>1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        return _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'A <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28674	28766	
==>pping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33226	33318	
==>pping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32354	32446	
==>pping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5334	5469	
==>),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5334	5469	
==>),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17647	17739	
==>=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17647	17739	
==>=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> fo <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5552	5645	
==>ed on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Y <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5552	5645	
==>ed on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Y <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2564	2656	
==>ren

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2564	2656	
==>ren

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7279	7404	
==>"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7279	7404	
==>"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1285	1381	
==>tch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1285	1381	
==>tch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22198	22292	
==>ributes are private, so you must use accessor methods.  Rosetta
does not declare any subroutine <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22198	22292	
==>ributes are private, so you must use accessor methods.  Rosetta
does not declare any subroutine <==
4	/Users/nnunley/pugs/util/combine_tests.pl	571	679	
==>ons[] is added with revision number of the older versions.
#
sub combine_tests{
    #
    # Collect all the t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	624	717	
==>:CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	624	717	
==>:CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	624	717	
==>:CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1715	1828	
==>>to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	98	203	
==>n p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	98	203	
==>n p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	98	203	
==>n p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2558	2683	
==>b type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub visual {
    my $self = shift;
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3320	3414	
==>rl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3320	3414	
==>rl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3320	3414	
==>rl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	28	131	
==>ck
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	28	131	
==>ck
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10702	10804	
==>while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10702	10804	
==>while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7406	7506	
==>@list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" li <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7406	7506	
==>@list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" li <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3812	3910	
==>e class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empt <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3812	3910	
==>e class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1206	1316	
==>t_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1206	1316	
==>t_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
p <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2476	2577	
==>Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configurat <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2476	2577	
==>Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configurat <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9032	9154	
==>p (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@v <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	490	599	
==>p (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@v <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3289	3396	
==>'[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
cla <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3289	3396	
==>'[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
cla <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1775	1878	
==>e, and redefine just those
#  rules.  See JavaScript::ECMAScript3::Grammar.
#
#  Bugs:
#   * This gramma <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4470	4559	
==>der::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> para <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4470	4559	
==>der::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6667	6756	
==>der::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> para <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	154	251	
==>m:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE::Exp::Cut" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	122	218	
==>ess { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	122	218	
==>ess { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	122	218	
==>ess { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6856	6978	
==>args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6856	6978	
==>args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6856	6978	
==>args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @para <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4762	4883	
==>il
        if ($got eq $expected and $type !~ tr/a-z//) {
            unshift @mess, "# $got - $expected = " . ($got - $ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	539	650	
==>PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	539	650	
==>PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	539	650	
==>PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2933	3183	
==>ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3180	3430	
==>ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2049	2147	
==>$self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2049	2147	
==>$self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4014	4150	
==>[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    return <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7078	7195	
==>kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body);
}
sub code_for_code_CODE {
    my(%c)=@_;
    my($na <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28138	28242	
==>g! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32690	32794	
==>g! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic rel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1836	1970	
==>thod(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1836	1970	
==>thod(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_ter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1198	1298	
==>less $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	301	400	
==>less $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1737	1869	
==>mper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2480	2612	
==>mper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1737	1869	
==>mper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2468	2600	
==>mper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real ref <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	773	945	
==>karound for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($l <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	773	945	
==>karound for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($l <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20482	20638	
==>param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8708	8806	
==>> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8708	8806	
==>> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8708	8806	
==>> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\* <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	366	498	
==>lf->load('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20185	20316	
==>ed($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($auto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20185	20316	
==>ed($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($auto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20185	20316	
==>ed($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1474	1581	
==>exps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1474	1581	
==>exps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1474	1581	
==>exps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppor <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	48	153	
==>tainers:
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( ho <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3207	3318	
==>and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3207	3318	
==>and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1605	1714	
==>and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1605	1714	
==>and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10415	10545	
==>d support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10415	10545	
==>d support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10415	10545	
==>d support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tie <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	915	1022	
==>print "# p5\n",number_the_lines($p5),"\n";
	}
	print $cc->warnings;
        print "----\n";
	my @res = eval( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6080	6236	
==>ibutes')      => hash->new(),
            attribute->new('%:methods')         => hash->new(),                     
        )
    );
    
# link Class back to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1987	2079	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1987	2079	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1987	2079	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	310	433	
==>thod ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5867	5987	
==>ach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5867	5987	
==>ach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5867	5987	
==>ach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	639	743	
==>IL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" starte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	639	743	
==>IL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" starte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	639	743	
==>IL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" starte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10344	10484	
==>3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10344	10484	
==>3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10344	10484	
==>3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == und <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22079	22176	
==>ert)

C<\b> was being turned into "b" inside a character class, instead of
a backspace.  (Mike Lam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1508	1611	
==>( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3514	3614	
==>::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specif <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3514	3614	
==>::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specif <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5711	5811	
==>::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	467	566	
==>);
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Len <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1080	1179	
==>);
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Len <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	467	566	
==>);
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Len <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1080	1179	
==>);
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Len <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1137	1273	
==>start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4376	4512	
==>start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1137	1273	
==>start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4376	4512	
==>start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15967	16258	
==>shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15967	16258	
==>shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15967	16258	
==>shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        ce <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	512	611	
==>on = "";
    $entry = %wiki.keys.sort.join("\n");
}
my $entry_html = $entry;
$entry_html ~~ s:g:perl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6555	6661	
==>a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see ` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6555	6661	
==>a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see ` <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3252	3357	
==>a single span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see ` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3252	3357	
==>a single span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see ` <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8078	8216	
==>3),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8078	8216	
==>3),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7253	7387	
==>satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7717	7851	
==>satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2431	2543	
==>Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie> for a documentation of the node types

=head1 EX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12674	12776	
==>yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12674	12776	
==>yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12674	12776	
==>yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(de <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13368	13480	
==>ading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16845	16957	
==>ading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16207	16319	
==>ading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6191	6294	
==>>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6191	6294	
==>>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6191	6294	
==>>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2181	2276	
==>kslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord eval "\"\\$x\" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2217	2325	
==>RAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2217	2325	
==>RAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2217	2325	
==>RAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    retu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	233	332	
==>r::Util::blessed($node) && (my $meth = $self->can("reduce_" . $node->moniker))) {
		return $self->$m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20289	20389	
==>nclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interfa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24841	24941	
==>nclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interfa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23402	23502	
==>nclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interfa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5773	5892	
==>) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4903	5022	
==>) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5773	5892	
==>) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4903	5022	
==>) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5317	5439	
==>mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6585	6707	
==>mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5317	5439	
==>mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6573	6695	
==>mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5032	5169	
==>s_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5032	5169	
==>s_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12348	12447	
==>a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12348	12447	
==>a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15877	15977	
==>, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($lab <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31834	31934	
==>her this object is negated (like a look-ahead or a character class).

=item nparen

The capture group <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15877	15977	
==>, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15877	15977	
==>, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($lab <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14229	14335	
==>=> sub { p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16716	16816	
==>..};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16716	16816	
==>..};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16716	16816	
==>..};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {.. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8730	8833	
==>$Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8788	8891	
==>$Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30596	30693	
==>age; each file can be
shared by multiple Messages but the whole module must represent a single
lan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30596	30693	
==>age; each file can be
shared by multiple Messages but the whole module must represent a single
lan <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9163	9264	
==>}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9163	9264	
==>}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2293	2389	
==>equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method string <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2293	2389	
==>equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method string <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7788	7918	
==>sure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submeth <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7788	7918	
==>sure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submeth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3160	3275	
==>lass MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use M <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3160	3275	
==>lass MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use M <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	831	929	
==>:Model::Document {

    # External packages used by the Rosetta::Model::Document class, that do exp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	831	929	
==>:Model::Document {

    # External packages used by the Rosetta::Model::Document class, that do exp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1039	1125	
==>ompiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1039	1125	
==>ompiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	707	839	
==>b null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \@match; my \$s = shift; $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4748	4932	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4748	4932	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4748	4932	
==>y = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13722	13849	
==>0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regex <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9062	9169	
==>$even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9062	9169	
==>$even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19979	20072	
==>a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19979	20072	
==>a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	538	643	
==>gs) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	538	643	
==>gs) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	538	643	
==>gs) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primiti <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5514	5612	
==>(@_) if $Config{concurrent} == 1;
    my @tests = $self->get_tests;
    $self->run_children($Config <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14622	14723	
==>before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14622	14723	
==>before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `ne <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7051	7148	
==>est::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub re <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7109	7206	
==>est::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub re <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1804	1929	
==>) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Ne <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1804	1929	
==>) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Ne <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1009	1106	
==>odules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@* <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1009	1106	
==>odules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@* <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	874	1010	
==>mensional arrays of the match
                     object, telling captures where in the deep structure
                     to store wha <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	874	1010	
==>mensional arrays of the match
                     object, telling captures where in the deep structure
                     to store wha <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12620	12714	
==>set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12620	12714	
==>set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3766	3870	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11910	12002	
==>ernals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11910	12002	
==>ernals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11910	12002	
==>ernals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1909	2060	
==>) . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1909	2060	
==>) . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1909	2060	
==>) . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2701	2816	
==>ound => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	751	871	
==>f cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir/$path] )          and die "$?";
        syst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2507	2604	
==>(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2507	2604	
==>(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2507	2604	
==>(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$la <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1481	1584	
==>($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1481	1584	
==>($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2401	2498	
==>($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2401	2498	
==>($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3974	4059	
==>});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Skip <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14106	14202	
==>evan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14106	14202	
==>evan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3997	4090	
==>s Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of un <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3997	4090	
==>s Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of un <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5607	5715	
==>', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5607	5715	
==>', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))', <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2504	2612	
==>', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))', <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1833	1938	
==>as Class::Events::Subscriber $.subscriber;

    method match ($notification) {
        # this is really up <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2129	2306	
==>xt alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2543	2717	
==>xt alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2543	2717	
==>xt alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2059	2232	
==>xt alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $ <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	440	559	
==>ert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	440	559	
==>ert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1163	1274	
==>method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1163	1274	
==>method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method en <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2023	2117	
==>on
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2023	2117	
==>on
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5576	5691	
==>thod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {% <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5576	5691	
==>thod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {% <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6669	6763	
==>d by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6669	6763	
==>d by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_na <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	546	678	
==>{
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 mul <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1606	1737	
==>{
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 mul <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3272	3375	
==>>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3272	3375	
==>>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4893	4997	
==>s we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4893	4997	
==>s we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13528	13624	
==>such as "say" and
database queries, may occur much later than expected.

It may enter an infinite <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13528	13624	
==>such as "say" and
database queries, may occur much later than expected.

It may enter an infinite <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	426	524	
==>$self: Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $other) returns Dur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5528	5648	
==>tring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5528	5648	
==>tring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5528	5648	
==>tring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1640	1742	
==>ect(anyof_char => $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $S->nch <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1212	1320	
==>IPT;
    open SCRIPT, $script_file
      or die "Can't open '$script_file' for input: $!\n";
    return <SCRI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1278	1383	
==>b node::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub nod <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14678	14780	
==>es not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span t <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14678	14780	
==>es not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	397	495	
==>($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

meth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	397	495	
==>($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

meth <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2537	2632	
==>rameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2537	2632	
==>rameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7000	7093	
==>t_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7987	8080	
==>t_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10556	10649	
==>t_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21395	21494	
==>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspon <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20276	20375	
==>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21395	21494	
==>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20276	20375	
==>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a correspon <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2266	2399	
==>atter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so tha <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2266	2399	
==>atter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so tha <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16609	16696	
==><EqualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	80	219	
==>ust Another';
# $x wird nun zur Laufzeit an $y gebunden
my $y := $x;
$y = 'Perl Hacker'; # $x ist nun auch 'Perl Hacker'
	
#=Bindung (statis <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19010	19134	
==>ed test output: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19113	19206	
==>use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programmin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19113	19206	
==>use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programmin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2096	2223	
==>) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2096	2223	
==>) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      | <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2096	2223	
==>) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      | <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15271	15379	
==>}


my $tmpfile = "misctmp000";
1 while -f ++$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8104	8223	
==>hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print STDOU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2572	2672	
==>ubtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # posi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2572	2672	
==>ubtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # posi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2919	3019	
==>ubtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # posi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1100	1213	
==>_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1100	1213	
==>_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1100	1213	
==>_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7151	7251	
==>ift:
  push @tokenStack, $token;
  push @operatorStack, $operator;
  $position = $operator->to();
  g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11497	11602	
==>6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22474	22579	
==>6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11497	11602	
==>6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11497	11602	
==>6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'b <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21763	21864	
==>ator_here><Identifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'return'><no_LineTerm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8467	8575	
==>t = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1560	1661	
==>class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1560	1661	
==>class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1560	1661	
==>class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21738	21856	
==>xt} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18159	18277	
==>xt} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7948	8045	
==>$self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_unive <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7948	8045	
==>$self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_unive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5662	5794	
==>d} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5662	5794	
==>d} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5662	5794	
==>d} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37856	37957	
==>elf;
  }

We've added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace them w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2576	2701	
==>ools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2576	2701	
==>ools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2576	2701	
==>ools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retur <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22113	22217	
==>s {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15072	15251	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15072	15251	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15072	15251	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	976	1104	
==>base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3394	3539	
==>_('$.testplan');
            _('$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reaso <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2869	2989	
==>ur class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2869	2989	
==>ur class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2869	2989	
==>ur class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that pr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	217	333	
==>lessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name) 
        | <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3918	4022	
==>circumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3918	4022	
==>circumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3918	4022	
==>circumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23612	23711	
==>SG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22385	22484	
==>SG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23612	23711	
==>SG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22385	22484	
==>SG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4256	4383	
==>y => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7733	7860	
==>y => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6717	6844	
==>y => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! d <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	41	141	
==>ict;
use vars qw($VERSION);
$VERSION = 0.02;

=head1 NAME

Test::Harness::Iterator - Internal Test::H <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12579	12676	
==>urns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12579	12676	
==>urns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36820	36912	
==>that is like
C<union> except that the returned Relation::Example contains only tuples that ar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37320	37412	
==>that is like
C<union> except that the returned Relation::Example contains only tuples that ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20593	20707	
==>data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp::Parser::re <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3741	3847	
==>ra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3741	3847	
==>ra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5062	5185	
==>:TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4326	4440	
==>:TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8382	8489	
==>either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If howev <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8382	8489	
==>either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If howev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9957	10067	
==>\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\% <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9957	10067	
==>\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\% <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9957	10067	
==>\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\% <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7068	7174	
==>}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2123	2215	
==>m_width'} == 32, 'subset complex of complex32  where { true }');
Helpers::macif(%?CONFIG{'num <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24037	24132	
==>le bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24037	24132	
==>le bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

Th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22915	23047	
==>r('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19336	19468	
==>r('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11427	11554	
==>( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11427	11554	
==>( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11427	11554	
==>( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4986	5096	
==>t(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10010	10128	
==>r::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator::nary->new(list => type::variable::free->new) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5937	6035	
==>[\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5937	6035	
==>[\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5937	6035	
==>[\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8368	8471	
==><=>» --> Scalar) {
    List::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S29draf <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2968	3081	
==>nous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signat <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2968	3081	
==>nous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2581	2682	
==>ompiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2581	2682	
==>ompiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22868	23002	
==>&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23147	23281	
==>&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38365	38485	
==>$type => 1, @$_);
    }

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26080	26183	
==>PT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_NOSCAN		0x00040 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6350	6499	
==>undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6350	6499	
==>undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6350	6499	
==>undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->ge <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1045	1267	
==>tem', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~@_.shift;
                @_.shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1553	1644	
==>dd_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1553	1644	
==>dd_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1553	1644	
==>dd_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attri <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11668	11762	
==>the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8815	8909	
==>the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11668	11762	
==>the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8815	8909	
==>the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given items <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	378	504	
==>package matching,
    ### sort by highest version
    ### XXX this should be a policy decision
    my @metas = sort { $b->{vers <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6526	6633	
==>$Carp::CarpLevel = 2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . "... "; }, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	990	1092	
==>toping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	990	1092	
==>toping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8602	8705	
==>1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8590	8693	
==>1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8725	8839	
==>x->left, $y->left, @_);
	unify($x->right, $y->right, @_);
};

multi unify => ('type::operator::nary', 'type::operat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14634	14729	
==>make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14634	14729	
==>make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14634	14729	
==>make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cl <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3148	3288	
==>= $var;
          &$reduce_helper($var,$ops);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5804	5912	
==>pe, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5804	5912	
==>pe, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5804	5912	
==>pe, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4232	4344	
==>t type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4232	4344	
==>t type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4232	4344	
==>t type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	713	807	
==>s, which are actually just accessor methods
for variables.

=item *

unbound private attributes <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2057	2195	
==>->array_fetchElem($idx)->scalar_store($value);
            },

            'array_fetchSize' => sub { # $int
                my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9530	9632	
==>6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9530	9632	
==>6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9530	9632	
==>6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7882	8016	
==>ted literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13476	13610	
==>ted literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7882	8016	
==>ted literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13470	13604	
==>ted literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25308	25486	
==>ue::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25308	25486	
==>ue::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25308	25486	
==>ue::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3494	3584	
==>5_concatenation_more(W, W) --> {true}.

p6_concatenation(Z)    --> p6_quantified(W), p6_con <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1138	1246	
==>hod end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1138	1246	
==>hod end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15125	15216	
==>angeable "Engine" back-ends (usually provided by third
parties) implement.  This interface i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15125	15216	
==>angeable "Engine" back-ends (usually provided by third
parties) implement.  This interface i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1688	1787	
==>he time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet ac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1688	1787	
==>he time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet ac <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17772	17865	
==>h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17772	17865	
==>h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15796	15927	
==>\$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15796	15927	
==>\$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15796	15927	
==>\$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        w <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5492	5619	
==>'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	665	780	
==>attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	665	780	
==>attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	665	780	
==>attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLAS <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26118	26215	
==>cter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalIntegerLiteral> <!before <DecimalDigit>> <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4712	4829	
==>gs_revision} <=> $a->{pugs_revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7895	7995	
==>dupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7895	7995	
==>dupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7895	7995	
==>dupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_che <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6636	6766	
==>it " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6636	6766	
==>it " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7006	7130	
==>it " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7006	7130	
==>it " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8544	8660	
==>ompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (exists $suspect->{$_});
    pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4365	4468	
==>lue::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4365	4468	
==>lue::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4365	4468	
==>lue::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3454	3555	
==>{

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % " <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3454	3555	
==>{

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	193	307	
==>ve()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	193	307	
==>ve()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	193	307	
==>ve()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.F <==
4	/Users/nnunley/pugs/util/func_refact.pl	2709	2812	
==>cand($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cand <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	227	351	
==>}, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $self->{seen} = Set::Object->new;
	$s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27590	27685	
==>of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32142	32237	
==>of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31234	31329	
==>of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4634	4742	
==>st_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we nee <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4634	4742	
==>st_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we nee <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9695	9793	
==>entation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
dis <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9753	9851	
==>entation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	474	580	
==>r(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	474	580	
==>r(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	474	580	
==>r(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : ar <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5474	5575	
==>s eq 'Int';
    return new_box('Num',@_) if $cls eq 'Num';
    return get_meta('Rat')->new('$.a' => $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11271	11449	
==>)) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11271	11449	
==>)) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11271	11449	
==>)) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12212	12341	
==>iscapture
    if iscapture == 0 goto end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cna <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22596	22691	
==>mentation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27148	27243	
==>mentation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25880	25975	
==>mentation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18686	18804	
==>$xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18686	18804	
==>$xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18686	18804	
==>$xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	351	458	
==>= (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Var::hash, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8377	8505	
==>}
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13888	14016	
==>}
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8377	8505	
==>}
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13882	14010	
==>}
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10370	10555	
==>st::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	912	1081	
==>st::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	912	1081	
==>st::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Bu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1173	1274	
==>ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      d <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10129	10225	
==>set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8069	8165	
==>set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empt <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10129	10225	
==>set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empt <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8069	8165	
==>set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empt <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3895	4002	
==>_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7372	7479	
==>_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6338	6445	
==>_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17362	17459	
==>you can only call it through an object that
inherits from that class.

There are no longer I<star> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3965	4124	
==>n;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3965	4124	
==>n;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4493	4644	
==>n;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4493	4644	
==>n;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23192	23330	
==>p0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16721	16836	
==>ribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16721	16836	
==>ribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16721	16836	
==>ribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22595	22696	
==>lete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module doesn't have <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1328	1424	
==>6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1328	1424	
==>6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1328	1424	
==>6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1679	1806	
==>egex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <In <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1679	1806	
==>egex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <In <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9422	9510	
==>sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3247	3335	
==>sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1567	1681	
==>$ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1567	1681	
==>$ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1339	1452	
==>::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $fil <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1339	1452	
==>::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $fil <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1597	1694	
==>er efforts should likely take place there.

# Some raw development notes appear after __END__.

pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4903	4999	
==>@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4903	4999	
==>@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4903	4999	
==>@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1056	1152	
==>g the way into new
namespaces. This is typically useful when your object belongs to a
package tha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1056	1152	
==>g the way into new
namespaces. This is typically useful when your object belongs to a
package tha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1056	1152	
==>g the way into new
namespaces. This is typically useful when your object belongs to a
package tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23433	23524	
==>plementing classes can
optionally override these operators with versions that are more speci <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7057	7171	
==>m};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node typ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7069	7183	
==>m};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node typ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	68	166	
==>r

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	68	166	
==>r

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &ciphe <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4781	5039	
==>tart}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infini <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4781	5039	
==>tart}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infini <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11207	11356	
==>ar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumericL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	760	869	
==>ms::Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj-> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4651	4757	
==>0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5310	5416	
==>0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4651	4757	
==>0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5310	5416	
==>0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start equal to end yields a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7043	7161	
==>k(0, _where(), @_);
}

sub curr_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# No <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5968	6059	
==>s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5968	6059	
==>s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2867	2958	
==>s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20393	20490	
==>rently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19341	19438	
==>rently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20393	20490	
==>rently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19341	19438	
==>rently connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7445	7571	
==>my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7445	7571	
==>my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7445	7571	
==>my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11650	11768	
==>32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self->_default_inc();
    @in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7670	7785	
==>ted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7670	7785	
==>ted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1607	1697	
==>_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\) <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1607	1697	
==>_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10130	10283	
==>am{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10130	10283	
==>am{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10130	10283	
==>am{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5203	5320	
==>store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5203	5320	
==>store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5793	5910	
==>store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	751	853	
==>less \%values => $class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to other typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2562	2661	
==>ss->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2562	2661	
==>ss->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2562	2661	
==>ss->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6975	7112	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6975	7112	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6975	7112	
==>_('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1822	1927	
==>tests(@tests)> runs all the testscripts named
as arguments and checks standard output for the expected str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9200	9293	
==>[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CAL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9200	9293	
==>[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CAL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9200	9293	
==>[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6103	6194	
==>f <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6103	6194	
==>f <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6103	6194	
==>f <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18230	18355	
==>limiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $delimiter          , Int $limit = i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4432	4536	
==>TI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4432	4536	
==>TI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4432	4536	
==>TI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4990	5109	
==>ed>
            { return { single_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	954	1057	
==>ad1 NAME

Blondie::Backend::Perl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Bl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	688	780	
==>method BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	688	780	
==>method BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	961	1065	
==>load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	961	1065	
==>load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	961	1065	
==>load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3921	4023	
==>Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $matchObj->position( $m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10667	10792	
==>"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14144	14269	
==>"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13443	13568	
==>"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that a <==
4	/Users/nnunley/pugs/util/func_refact.pl	832	944	
==>onf{initial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$no <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4998	5121	
==>= shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1857	1973	
==>" of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5334	5450	
==>" of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4264	4380	
==>" of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35549	35660	
==>else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35549	35660	
==>else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35549	35660	
==>else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2219	2330	
==>O - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2219	2330	
==>O - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2219	2330	
==>O - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11948	12031	
==>t_chars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars_more(Rc0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2257	2351	
==>remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extrac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	800	893	
==>remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extrac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2168	2261	
==>remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extrac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	800	893	
==>remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extrac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6591	6731	
==>-> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<ob <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6591	6731	
==>-> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<ob <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6963	7097	
==>-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<ob <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6963	7097	
==>-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16863	17059	
==>t;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16863	17059	
==>t;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16863	17059	
==>t;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	116	219	
==>');

use Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13039	13134	
==>m->free_vars) {
		return $prev_generic + Set::Object->new($t_of_param);
	} else {
		return $prev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6899	7022	
==>|| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6899	7022	
==>|| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6899	7022	
==>|| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2804	2915	
==>x0009 }
rule VT   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 }
rule USP  { <<Zs>-<T <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	525	672	
==>$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do {
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9888	10011	
==>fy->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9888	10011	
==>fy->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9888	10011	
==>fy->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6para <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10576	10677	
==>{
  my($re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6084	6175	
==>elf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6084	6175	
==>elf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6084	6175	
==>elf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4943	5039	
==>d with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4943	5039	
==>d with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4380	4471	
==>alues 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C< <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4380	4471	
==>alues 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	640	763	
==>ub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	737	860	
==>ub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abc <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	222	312	
==>.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_functi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	222	312	
==>.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_functi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24887	24981	
==>, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Messag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24887	24981	
==>, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Messag <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15710	15801	
==>tting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the call <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15768	15859	
==>tting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the call <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23962	24066	
==>ies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22735	22839	
==>ies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23962	24066	
==>ies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22735	22839	
==>ies to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4013	4128	
==>', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4013	4128	
==>', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	863	978	
==>', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15403	15501	
==>ion> <'>>>'> <AdditiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20274	20451	
==>ap {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20274	20451	
==>ap {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20274	20451	
==>ap {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	350	461	
==>dir( 'repo' );

system( qw[rm -rf], $config->root, $config->build_dir .'*' )   and die $?;

### set up the 'fake <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1732	1826	
==>as infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects: <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1495	1589	
==>as infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects: <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1732	1826	
==>as infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects: <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1495	1589	
==>as infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11772	11883	
==>are already in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8919	9030	
==>are already in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11772	11883	
==>are already in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8919	9030	
==>are already in the set, or inserts the items if
they're not in the set.

Returns the number of items removed.

= <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9454	9565	
==>xport
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9454	9565	
==>xport
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40834	40927	
==>ersion of Locale::KeyedText that you are willing to distribute,
because that is a practical wa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40834	40927	
==>ersion of Locale::KeyedText that you are willing to distribute,
because that is a practical wa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3148	3245	
==>ble to related-key attacks.

This means that you should strive to use only truly random keys; Perl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3148	3245	
==>ble to related-key attacks.

This means that you should strive to use only truly random keys; Perl <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	367	505	
==>ate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $d <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	367	505	
==>ate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	538	633	
==>Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	538	633	
==>Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6578	6676	
==>(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $source = `cat parser_s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13160	13263	
==>s
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13160	13263	
==>s
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $aut <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	489	585	
==>[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_AR <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	489	585	
==>[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_AR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10089	10239	
==>,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10089	10239	
==>,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10089	10239	
==>,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            w <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	64	169	
==>cript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * Re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4392	4495	
==>n) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4362	4464	
==>@_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4362	4464	
==>@_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4362	4464	
==>@_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3766	3909	
==>et 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3766	3909	
==>et 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4063	4173	
==>as Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @ke <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4063	4173	
==>as Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @ke <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	817	919	
==>RS 

=head2 package

Set the name of the full package package. For example:

    p5-foo-1-cpan+kane

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5842	5941	
==>Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5842	5941	
==>Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5842	5941	
==>Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	473	579	
==>_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	473	579	
==>_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	473	579	
==>_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13153	13254	
==>xabd]).


digits_int(I) --> digit(D0), digits(D), { number_chars(I, [D0|D]) }.
digits([D|T]) --> digit <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7555	7690	
==>"st"|"nd"|"rd")
                 && pugs_internals_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20336	20450	
==>? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20336	20450	
==>? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20336	20450	
==>? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1559	1697	
==>> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1559	1697	
==>> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1559	1697	
==>> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attribu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	6	102	
==>/bin/perl

package Blondie::Prelude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12128	12233	
==>want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12128	12233	
==>want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12128	12233	
==>want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5643	5746	
==>ule->compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { retu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8974	9100	
==>-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	93	193	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	93	193	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	93	193	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	95	229	
==>2'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is expo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	95	229	
==>2'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is expo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5391	5491	
==>mple string or a reference to a URI object.

You will not be able to examine the response code or res <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5391	5491	
==>mple string or a reference to a URI object.

You will not be able to examine the response code or res <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4744	4864	
==>m_bx0; }
    elsif ( $initchar eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exists $escape{$initchar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5833	5936	
==>SubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5833	5936	
==>SubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5833	5936	
==>SubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	930	1078	
==>n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	930	1078	
==>n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	930	1078	
==>n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	74	184	
==>ys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	74	184	
==>ys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	74	184	
==>ys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using functi <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1183	1286	
==>n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.14159265358979323 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5080	5189	
==>atch = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5080	5189	
==>atch = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1375	1474	
==>on_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compile <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1375	1474	
==>on_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	122	224	
==>-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists hav <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	122	224	
==>-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists hav <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	122	224	
==>-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists hav <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1568	1662	
==>ON

These ADTs are the implementation classes of all the L<Blondie::Nodes> and some
more object <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1006	1110	
==>r when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1006	1110	
==>r when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9696	9788	
==>element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9696	9788	
==>element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8644	8762	
==>els{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) does <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8644	8762	
==>els{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) does <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8908	9020	
==>els{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) does <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8908	9020	
==>els{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) does <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12448	12567	
==>v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12448	12567	
==>v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12448	12567	
==>v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this-> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23251	23342	
==>n't what's important;
the interface/behaviour is), this Relation::Example data type is propo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	504	611	
==>e\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8771	8877	
==>e\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8771	8877	
==>e\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8771	8877	
==>e\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't open \"$fn\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	667	862	
==>s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } el <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	667	862	
==>s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } el <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23560	23650	
==>ge>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23560	23650	
==>ge>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4953	5051	
==>son is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4080	4178	
==>son is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4953	5051	
==>son is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4080	4178	
==>son is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13103	13241	
==>= $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16484	16602	
==>ss ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16484	16602	
==>ss ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16484	16602	
==>ss ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7329	7499	
==>sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7329	7499	
==>sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7329	7499	
==>sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8119	8218	
==>ray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7249	7348	
==>ray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8119	8218	
==>ray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7249	7348	
==>ray { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1561	1672	
==>be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1561	1672	
==>be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1561	1672	
==>be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4033	4134	
==>ommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13450	13574	
==>) {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13450	13574	
==>) {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13450	13574	
==>) {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26443	26529	
==>uage::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:query :int <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6203	6330	
==>, $name) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my $current = $self;
    while ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7398	7518	
==>stance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7398	7518	
==>stance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7398	7518	
==>stance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11313	11428	
==>this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11313	11428	
==>this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11313	11428	
==>this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	864	957	
==>quence (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19546	19777	
==>else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19546	19777	
==>else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19546	19777	
==>else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17868	17978	
==>re {
  my($re,$s)=@_;
  my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	634	752	
==>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scop <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	634	752	
==>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scop <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	634	752	
==>_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scop <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6134	6241	
==>nce_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make instances of sub <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1792	1906	
==>rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1792	1906	
==>rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1823	1923	
==>ys be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1823	1923	
==>ys be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1303	1417	
==>::Runtime::Match::Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4328	4430	
==>UBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4328	4430	
==>UBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4328	4430	
==>UBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6057	6170	
==>file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4669	4769	
==>SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective uni <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4669	4769	
==>SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective uni <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4669	4769	
==>SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective uni <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	354	496	
==>variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$*OS';  
    
    # special variables
    return '$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15272	15388	
==>ops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15272	15388	
==>ops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15272	15388	
==>ops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{c <==
4	/Users/nnunley/pugs/util/package-osx.pl	11745	11851	
==>$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	34	139	
==>use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	34	139	
==>use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	34	139	
==>use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11049	11151	
==>options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { retur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11049	11151	
==>options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { retur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	375	467	
==>h.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilenam <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	375	467	
==>h.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilenam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	364	471	
==>che.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenC <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4727	4834	
==>ruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my $r = compile($re) || die;
  $r = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	364	471	
==>che.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	364	471	
==>che.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenC <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	264	368	
==>(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	264	368	
==>(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7157	7255	
==>t implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7157	7255	
==>t implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _t <==
4	/Users/nnunley/pugs/util/grokprims.pl	1985	2099	
==>e";
  } elsif (/special/ and $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	258	357	
==>c);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	258	357	
==>c);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	258	357	
==>c);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1359	1465	
==>sh(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1359	1465	
==>sh(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1359	1465	
==>sh(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_ge <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27343	27443	
==>Example object, whose Heading and
Body attributes are set respectively from the optional named parame <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6481	6580	
==>-they-come, because
# we want to preserve ordering anyway and it's probably okay to keep a few
# zom <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2841	2932	
==>infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2841	2932	
==>infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2841	2932	
==>infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2246	2376	
==>$message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2246	2376	
==>$message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$pr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3431	3521	
==>Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3431	3521	
==>Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1052	1153	
==>s Do not generate html files for the perl6 design docs (faster)
    --output_dir    Output Directory t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	744	843	
==>d by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	744	843	
==>d by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	744	843	
==>d by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23291	23394	
==><'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identifier>
    | <FormalParameterList <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3952	4061	
==>('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3952	4061	
==>('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3952	4061	
==>('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	90	189	
==>er

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will be use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2011	2160	
==>rn { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2375	2524	
==>rn { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1932	2077	
==>rn { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2284	2429	
==>rn { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10209	10393	
==>ntry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional ava <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21157	21252	
==>infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21157	21252	
==>infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21157	21252	
==>infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {.. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7450	7550	
==>ol::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7450	7550	
==>ol::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11038	11137	
==>ecause it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_uni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11038	11137	
==>ecause it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_uni <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1500	1751	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1500	1751	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19913	20007	
==>nd the password.  In scalar context it will
return I<"uname:password"> as a single string value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19913	20007	
==>nd the password.  In scalar context it will
return I<"uname:password"> as a single string value <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	438	573	
==>' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	438	573	
==>' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diag <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5580	5679	
==>debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5580	5679	
==>debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<user <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	197	303	
==>une 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With P <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	197	303	
==>une 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7433	7526	
==>_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1258	1351	
==>_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Gr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1639	1745	
==>piler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt : <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1639	1745	
==>piler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt : <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33260	33350	
==>ementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37810	37900	
==>ementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17117	17227	
==>e Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17117	17227	
==>e Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17117	17227	
==>e Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" ob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1412	1520	
==>or die "can't open $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	441	547	
==>t - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	441	547	
==>t - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	441	547	
==>t - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$to <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6366	6525	
==>ext = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6424	6583	
==>ext = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2925	3039	
==>eld
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2925	3039	
==>eld
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3119	3211	
==>t_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3119	3211	
==>t_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3119	3211	
==>t_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1171	1260	
==>rm:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "ter <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1625	1746	
==>'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $args[-1]->to;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13257	13351	
==>try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-te <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13257	13351	
==>try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-te <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13257	13351	
==>try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-te <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6922	7094	
==>_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod || /^=cut/);  # skip pod text
                next if /^\s*#/;               # a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1262	1376	
==>);
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1262	1376	
==>);
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1262	1376	
==>);
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/util/fixauthors.pl	587	678	
==>id");
  my $tree=HTML::TreeBuilder->new_from_content($html);
  my $realname = $tree->look_do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16431	16517	
==>his attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16431	16517	
==>his attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16431	16517	
==>his attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2580	2702	
==>$self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elem <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2580	2702	
==>$self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elem <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1906	2025	
==>_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1906	2025	
==>_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35764	35885	
==>ail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35764	35885	
==>ail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35764	35885	
==>ail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8327	8417	
==>-> "-", p5_modifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_sp <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	573	684	
==>{
    %Session=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@variables) {
        push(@coded,$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1154	1257	
==>s
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1154	1257	
==>s
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1154	1257	
==>s
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *l <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12895	13005	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16372	16482	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15734	15844	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headin <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4423	4523	
==>AKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6244	6356	
==>("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S} }) ] ); 
    $template->param("exe", [ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16435	16541	
==>::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16435	16541	
==>::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16435	16541	
==>::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23102	23197	
==>de =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21911	22006	
==>de =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23102	23197	
==>de =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21911	22006	
==>de =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5844	5959	
==>?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5844	5959	
==>?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1638	1770	
==>qual',
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        precede <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5783	5891	
==>t yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5783	5891	
==>t yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6373	6481	
==>t yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9782	9883	
==>,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9782	9883	
==>,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9782	9883	
==>,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2517	2617	
==>at has the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more imp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2422	2521	
==>at has the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more imp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6438	6536	
==>ith C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6438	6536	
==>ith C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12174	12315	
==>r/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12174	12315	
==>r/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2161	2257	
==>t'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varhash>)\{$<key>:=(<t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18470	18588	
==>=> "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14891	15009	
==>=> "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5132	5242	
==>it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5132	5242	
==>it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => { <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8432	8535	
==>ode *&test   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19315	19407	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19315	19407	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19315	19407	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	271	377	
==>{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	271	377	
==>{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	937	1032	
==>Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	937	1032	
==>Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

T <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	870	1040	
==>e<Array::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_child <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15829	15940	
==>sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ente <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15829	15940	
==>sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ente <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15829	15940	
==>sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ente <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	169	277	
==><-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 200 <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	169	277	
==><-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 200 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22638	22735	
==>1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains ze <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27190	27287	
==>1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains ze <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2459	2615	
==>r compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't ne <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2459	2615	
==>r compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't ne <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5661	5755	
==>erAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> returns
t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5661	5755	
==>erAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> returns
t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13967	14128	
==>string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4068	4205	
==>string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4068	4205	
==>string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4068	4205	
==>string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2089	2177	
==>table->addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken(" <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4047	4148	
==>ng[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4047	4148	
==>ng[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7324	7424	
==>);

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7324	7424	
==>);

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16801	16896	
==>ile that into its own executable, in practice one would
normally just write some components of t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16801	16896	
==>ile that into its own executable, in practice one would
normally just write some components of t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17287	17378	
==>backs
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17287	17378	
==>backs
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privm <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5198	5298	
==>depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5198	5298	
==>depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35261	35356	
==>of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35261	35356	
==>of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6170	6303	
==>cess the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finishe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5973	6098	
==>cess the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finishe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4154	4253	
==>ct returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4154	4253	
==>ct returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1423	1533	
==>rp "Error in perl 5 evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11229	11326	
==>.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11229	11326	
==>.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11229	11326	
==>.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is im <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24109	24206	
==>s undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an emp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28661	28758	
==>s undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an emp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1336	1431	
==>her::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
crypto <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1336	1431	
==>her::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
crypto <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21107	21207	
==>nels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20015	20115	
==>nels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21107	21207	
==>nels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20015	20115	
==>nels>, which is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel n <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10495	10640	
==>local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switch =~ s/^\s+//;
        $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8124	8244	
==>ods.delete("ignorecase");
#           warning "PGE doesn't actually do :ignorecase yet.";
        }
        if %mods<s> | <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23783	23874	
==>imes.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't know <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23783	23874	
==>imes.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't know <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2338	2440	
==>dd_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2338	2440	
==>dd_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($c <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6180	6279	
==>ode_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6180	6279	
==>ode_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2696	2793	
==>g, seperating it into 'name' and 'value' pairs.  This
method should be called before any other met <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15159	15256	
==>te set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
ma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15159	15256	
==>te set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
ma <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2696	2793	
==>g, seperating it into 'name' and 'value' pairs.  This
method should be called before any other met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6464	6594	
==>} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{ho <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3507	3614	
==>espace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc optable
    $P0 = getclass "PGE::Exp::Subrul <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	862	954	
==>Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	862	954	
==>Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15647	15807	
==>>push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->deobjectify_text;

        tie my %sup_links, 'Tie::RefHash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	222	315	
==>gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	222	315	
==>gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	222	315	
==>gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2632	2738	
==>l) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2632	2738	
==>l) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2632	2738	
==>l) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4366	4484	
==>$_[1], param => $_[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21477	21573	
==>B delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21477	21573	
==>B delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21477	21573	
==>B delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8639	8753	
==>channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8639	8753	
==>channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8903	9011	
==>channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8903	9011	
==>channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldn <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3799	3897	
==>-compatible shell.
  --inputrc=$inputrc
    The readline library likes to have a /etc/inputrc.
  -- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5136	5261	
==>$?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5136	5261	
==>$?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	206	308	
==>ings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	206	308	
==>ings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9000	9115	
==>subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an al <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12858	12968	
==>subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12858	12968	
==>subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an al <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21569	21664	
==>ta[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_min su <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19949	20073	
==>smsg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4414	4519	
==>is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional arg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4414	4519	
==>is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional arg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5004	5109	
==>is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional arg <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5038	5139	
==>ple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><oc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2621	2714	
==>:StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2621	2714	
==>:StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2621	2714	
==>:StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11630	11748	
==>}
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11630	11748	
==>}
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1289	1383	
==>urns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fails, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1289	1383	
==>urns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fails, <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	396	508	
==>l::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	396	508	
==>l::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
meth <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1409	1519	
==>l::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1409	1519	
==>l::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24501	24600	
==>pported
  }

You'll probably not be adding handlers that have to parse flags, but if
you do, remembe <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9352	9450	
==>ests_unexpect { color: #550; }
  </style>

  <script type="text/javascript">//<![CDATA[[
    functi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32669	32763	
==>trings, using data from external Template modules as a template.
The Translator class as a whol <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32669	32763	
==>trings, using data from external Template modules as a template.
The Translator class as a whol <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15710	15850	
==>core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19943	20083	
==>core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	933	1063	
==>ORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	933	1063	
==>ORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3191	3294	
==>PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3191	3294	
==>PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1947	2045	
==>named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1947	2045	
==>named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2017	2135	
==>" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2017	2135	
==>" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5854	5974	
==>in "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5854	5974	
==>in "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5854	5974	
==>in "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unle <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17513	17610	
==>f run_perl() and like().
#

sub fresh_perl_like {
    my($prog, $expected, $runperl_args, $name) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1519	1615	
==>dxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1519	1615	
==>dxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1519	1615	
==>dxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[id <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4027	4125	
==>ipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($ke <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4027	4125	
==>ipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($ke <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27904	27998	
==>ar_name! )>

This method returns the Message Variable value (a string) associated with
the vari <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27904	27998	
==>ar_name! )>

This method returns the Message Variable value (a string) associated with
the vari <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1431	1543	
==>_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]', <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4555	4664	
==>_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4555	4664	
==>_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]', <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11898	11986	
==>ckets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> octdigits_int(C), p6_oct <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5357	5527	
==>turn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5357	5527	
==>turn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7362	7518	
==>\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7362	7518	
==>\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10222	10332	
==>gs{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of MPW <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3820	3916	
==>Duncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is current <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3820	3916	
==>Duncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is current <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	308	410	
==>ue($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	308	410	
==>ue($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	308	410	
==>ue($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is pr <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2304	2397	
==>Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.round_ceilin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14143	14332	
==>my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14143	14332	
==>my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14143	14332	
==>my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21219	21317	
==>eing turned on or off.  Also, if the flag handler returns 0,
that flag is removed from the resultin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4715	4890	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4715	4890	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4715	4890	
==>>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16496	16613	
==>)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16496	16613	
==>)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16496	16613	
==>)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_metho <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	617	811	
==>->code }
                               $class->methods->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5654	5756	
==>ore( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5654	5756	
==>ore( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5654	5756	
==>ore( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infini <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39456	39558	
==>s part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Dunca <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5191	5293	
==>s part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Dunca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39456	39558	
==>s part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Dunca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5191	5293	
==>s part of the Locale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Dunca <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4413	4647	
==>I>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4413	4647	
==>I>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3382	3496	
==>e::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3599	3713	
==>e::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17033	17144	
==>( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4269	4370	
==>(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4269	4370	
==>(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4269	4370	
==>(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32269	32366	
==>tions, the result is the same regardless of
which is the invocant and which is the argument.  This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36819	36916	
==>tions, the result is the same regardless of
which is the invocant and which is the argument.  This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36109	36206	
==>tions, the result is the same regardless of
which is the invocant and which is the argument.  This <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10310	10401	
==>(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1622	1725	
==>Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1622	1725	
==>Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4427	4516	
==>ment describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4427	4516	
==>ment describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	261	377	
==>y %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	261	377	
==>y %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    fo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	512	616	
==>end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	512	616	
==>end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1554	1661	
==>y is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($yea <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1554	1661	
==>y is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($yea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	648	777	
==>), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6166	6295	
==>), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	648	777	
==>), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6178	6307	
==>), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    r <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17135	17280	
==>en run
  seen              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      contain t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9822	9928	
==>gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	260	362	
==>gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	260	362	
==>gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2685	2780	
==>arlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2685	2780	
==>arlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2685	2780	
==>arlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	260	384	
==>+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	260	384	
==>+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4854	4986	
==>time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expire <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4854	4986	
==>time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expire <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2107	2230	
==>emainder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2025	2142	
==>emainder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	444	617	
==>PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PAC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12363	12523	
==>\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8639	8799	
==>\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9474	9634	
==>\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6392	6537	
==>role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6392	6537	
==>role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6392	6537	
==>role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32642	32737	
==>es, it is
I<imperative> you use the method to access the attribute when I<outside>
the class, an <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	45	144	
==>eader, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get instal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	45	144	
==>eader, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get instal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	45	144	
==>eader, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get instal <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	45	144	
==>eader, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get instal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	300	407	
==>ow than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	300	407	
==>ow than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	300	407	
==>ow than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15483	15583	
==>SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15483	15583	
==>SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15483	15583	
==>SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	36	119	
==>pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
package Module: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	65	169	
==>:Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	65	169	
==>:Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	322	421	
==>event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	322	421	
==>event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1172	1291	
==>r {
       reverse @values ==> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@values) returns List
 multi sub s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1276	1373	
==>) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1276	1373	
==>) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1276	1373	
==>) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_don <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2729	2830	
==>e key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
pl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2729	2830	
==>e key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
pl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12635	12732	
==>nite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12635	12732	
==>nite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14195	14360	
==>_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14195	14360	
==>_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14195	14360	
==>_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1768	1878	
==>k};
  return $self->{tree};
}


sub nparen {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3110	3276	
==>1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3110	3276	
==>1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3110	3276	
==>1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27610	27703	
==>=> val(5) )), "list int", ":t listify(5)");
is(t($length_and_first), "∀α. list α → (α  <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	356	482	
==>eal ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	63	167	
==>ler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	56	154	
==>ler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	56	154	
==>ler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7800	7902	
==>param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7800	7902	
==>param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7800	7902	
==>param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = % <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15136	15237	
==>iation from UTC in seconds
    has Bool $.is_dst;
}

multi sub localtime(Num $when = time) returns Tim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6602	6787	
==>e
                # want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            } <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6602	6787	
==>e
                # want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4170	4289	
==>_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4377	4496	
==>_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4378	4474	
==>ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Sinc <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4378	4474	
==>ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Sinc <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2339	2433	
==>e subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structur <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2339	2433	
==>e subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1171	1296	
==>ge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( R <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13025	13122	
==>t1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13025	13122	
==>t1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29	123	
==>nt-level: 4 -*-

package Test::Harness;

require 5.00405;
use Test::Harness::Straps;
use Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14507	14606	
==>MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14507	14606	
==>MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14507	14606	
==>MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2279	2375	
==>compile(q( <'grammar'> <grammar_name> \;[ [<rule>|<token>|<regex>]]* {
        return "package $< <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	562	687	
==>exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_docum <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	562	687	
==>exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_docum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5675	5788	
==>t that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5675	5788	
==>t that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1600	1720	
==>bs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_even ( Num $x ) {
    my $x_round;

    # round .5 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11403	11522	
==>ithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1855	1962	
==>ithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {}

    m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1855	1962	
==>ithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {}

    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2106	2276	
==>ash_fetch };
            },
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4373	4482	
==>is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4373	4482	
==>is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4373	4482	
==>is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5752	5880	
==>a dirname( $from );
        
        for my $dir ( File::Find::Rule->directory->in( $from ) ) {
            ### strip the leading <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7757	7857	
==>er which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7757	7857	
==>er which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7757	7857	
==>er which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10036	10181	
==>array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10036	10181	
==>array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10036	10181	
==>array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2J <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	659	754	
==>ignature->isa('closure::signature')))
        || confess "signature must be an closure::params o <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1908	2019	
==>'/', 'lib', split(/-/, $name)) . '.pm';
        $file =~ s{.*/}{} unless -e $file;
        die "all_from: cannot <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43640	43813	
==>r' => symbol->new(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_metho <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25389	25483	
==>This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29941	30035	
==>This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28880	28974	
==>This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6228	6346	
==>turns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5358	5476	
==>turns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6228	6346	
==>turns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5358	5476	
==>turns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.su <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4858	4989	
==>ad = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._sh <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4858	4989	
==>ad = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._sh <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10173	10270	
==>parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, em <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10173	10270	
==>parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14025	14126	
==>anup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14025	14126	
==>anup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14025	14126	
==>anup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31422	31521	
==>ad/behind assertions).  If
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6252	6477	
==>t = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.cur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6252	6477	
==>t = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.cur <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1768	1872	
==>b}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFI <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1768	1872	
==>b}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2690	3021	
==>'&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2684	2791	
==>OLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2684	2791	
==>OLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2684	2791	
==>OLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13511	13693	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13790	13972	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22219	22320	
==>h of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26771	26872	
==>h of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13782	13889	
==>g, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported b <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13782	13889	
==>g, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1519	1610	
==>statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1519	1610	
==>statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1799	2083	
==>' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6453	6550	
==>adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6453	6550	
==>adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8650	8747	
==>adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4065	4168	
==>my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4065	4168	
==>my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4065	4168	
==>my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	116	212	
==>ation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

= <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	116	212	
==>ation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2253	2349	
==>ules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2342	2438	
==>ules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2555	2673	
==>};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2555	2673	
==>};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2555	2673	
==>};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $n <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	21	118	
==>e where{true}'s are not the right thing.  What is?

The definition of these in terms of smartmatch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3502	3656	
==>(.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3365	3510	
==>(.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tai <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2574	2689	
==>@b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b } <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2574	2689	
==>@b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b } <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8735	8841	
==>tdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  return unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3502	3606	
==>postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3502	3606	
==>postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3502	3606	
==>postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements ( <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1378	1482	
==>ot strokes.\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5657	5757	
==>== undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5657	5757	
==>== undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5657	5757	
==>== undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $j <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4450	4587	
==>ir" )                          and die $?;
    }

    return $meta;
}

=head2 package_re

=head2 prefix

=head2 name

=head2 version

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4326	4427	
==>es' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4326	4427	
==>es' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4326	4427	
==>es' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13407	13511	
==>m the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means tha <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13407	13511	
==>m the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means tha <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11998	12095	
==>&#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11998	12095	
==>&#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1412	1539	
==>)?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1412	1539	
==>)?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	725	833	
==>l, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	725	833	
==>l, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1007	1149	
==>}
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what depe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3921	4039	
==>y or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3921	4039	
==>y or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3921	4039	
==>y or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1346	1461	
==>/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1346	1461	
==>/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?// <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	325	425	
==>f it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	325	425	
==>f it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11498	11597	
==>:Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11498	11597	
==>:Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11498	11597	
==>:Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16720	16813	
==>ressionNoIn>
    | <EqualityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | <Equality <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27589	27696	
==>one_elem_list, param => val(5) )), "list int", ":t listify(5)");
is(t($length_and_first), "∀α. list α  <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2601	2702	
==>ar system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2601	2702	
==>ar system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2601	2702	
==>ar system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3358	3550	
==>f $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3358	3550	
==>f $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3358	3550	
==>f $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->n <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	590	728	
==>DERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) {
      printf STDERR "\b\n";
      printf STDERR "  %s:% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	49	160	
==>b fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	49	160	
==>b fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	49	160	
==>b fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8585	8727	
==>($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8585	8727	
==>($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13898	14051	
==>/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13898	14051	
==>/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13898	14051	
==>/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1818	1942	
==>$_[0]{metasyntax}(), } } ]
    }
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? <named_capture_bod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5638	5744	
==>de_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5638	5744	
==>de_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6835	6932	
==>o all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_elem <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6835	6932	
==>o all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_elem <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7775	7871	
==>urn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7775	7871	
==>urn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	586	671	
==>Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It a <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	586	671	
==>Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It a <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	728	841	
==>'';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	728	841	
==>'';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8599	8696	
==>ges share the same namespace; any incompat will be caught later.
    return ::($module_name).does( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8599	8696	
==>ges share the same namespace; any incompat will be caught later.
    return ::($module_name).does( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	487	589	
==>el)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	487	589	
==>el)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	487	589	
==>el)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Rol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5774	5868	
==>);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5774	5868	
==>);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5774	5868	
==>);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	82	178	
==>ass' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	82	178	
==>ass' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	82	178	
==>ass' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class <==
4	/Users/nnunley/pugs/util/package-osx.pl	11917	12009	
==>les > 0);
&copy_files($dest, @files);
&make_symlinks($dest, %symlinks) if (keys %symlinks > 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10841	10986	
==>]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    loc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10835	10980	
==>]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    loc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7713	7799	
==>Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_has <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1538	1624	
==>Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_has <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23072	23199	
==>new("str")),
				),
			),
		),
	),
);

my $map = let(
    ide => "map",
    is => fun(
	param => "f",
	body => fun(
		param => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	359	446	
==>t::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($deb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	359	446	
==>t::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($deb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	359	446	
==>t::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($deb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9739	9834	
==>`intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can b <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9739	9834	
==>`intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12595	12690	
==>->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6070	6165	
==>->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	38	138	
==>n alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pack <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	38	138	
==>n alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pack <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	38	138	
==>n alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pack <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8592	8686	
==>dy = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $class = $params->[0]{'type' <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	708	830	
==>"", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1633	1735	
==>->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1633	1735	
==>->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1633	1735	
==>->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->de <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12821	12936	
==>p::carp("p6_as_str called on undef"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16795	16889	
==>saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16795	16889	
==>saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16530	16673	
==>=> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20007	20150	
==>=> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19567	19710	
==>=> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5133	5306	
==>ue = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5133	5306	
==>ue = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5133	5306	
==>ue = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'define <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6227	6360	
==>};
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitial <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6227	6360	
==>};
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitial <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2105	2202	
==>}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2105	2202	
==>}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11199	11374	
==>::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3427	3544	
==>{
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3427	3544	
==>{
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3427	3544	
==>{
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	316	454	
==>ter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	316	454	
==>ter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\" <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3599	3707	
==>?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3599	3707	
==>?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5062	5168	
==>, @mess);
}

# Check that $got is within $range of $expected
# if $range is 0, then check it's exact
# else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10930	11026	
==>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10930	11026	
==>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10930	11026	
==>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26118	26227	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self = bless <==
4	/Users/nnunley/pugs/util/config_h.pl	661	768	
==>) {
    /version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4144	4227	
==>terface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4144	4227	
==>terface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	664	796	
==>'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	664	796	
==>'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	187	288	
==>-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrar <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	187	288	
==>-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1744	1873	
==>n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2487	2616	
==>n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1744	1873	
==>n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2475	2604	
==>n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real referen <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	204	457	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	204	457	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3065	3218	
==>rn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        whi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3065	3218	
==>rn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12622	12728	
==>redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12622	12728	
==>redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12622	12728	
==>redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11664	11762	
==>ets written onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hopefully un <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	348	450	
==>d against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given bel <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	348	450	
==>d against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given bel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20165	20255	
==>ame contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20165	20255	
==>ame contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic( <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	772	874	
==>lize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	772	874	
==>lize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1109	1208	
==>ods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still s <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1109	1208	
==>ods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	72	193	
==>$x_round;

    # round .5 up above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2037	2126	
==>ile($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2037	2126	
==>ile($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2037	2126	
==>ile($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13207	13303	
==>eturn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13207	13303	
==>eturn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13207	13303	
==>eturn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40049	40152	
==>his, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40049	40152	
==>his, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40049	40152	
==>his, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30044	30164	
==>from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30044	30164	
==>from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30044	30164	
==>from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $le <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15538	15638	
==>as_perl5_whatever {
    my($x)=@_;
    return $x if !p6_is_perl6_object($x);
    $x->as_perl5_whateve <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4489	4591	
==>fference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norm <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4489	4591	
==>fference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norm <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23759	23857	
==>ass defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28311	28409	
==>ass defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8650	8767	
==>gify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8650	8767	
==>gify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8650	8767	
==>gify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5982	6111	
==>to $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return optional( greedy_plus( $nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6436	6551	
==>sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6436	6551	
==>sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6436	6551	
==>sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13153	13302	
==>n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13153	13302	
==>n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3644	3756	
==>iler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3514	3621	
==>iler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	325	458	
==>ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	325	458	
==>ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'gramma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9103	9215	
==>S

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::O <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9161	9273	
==>S

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::O <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5614	5717	
==>concurrent}, \@tests);
}

sub run_children {
    my ($self, $child_count, $all_tests) = @_;
    my $chun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1000	1101	
==>probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1000	1101	
==>probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1000	1101	
==>probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	399	495	
==>rectory of the repository. $root/jibs if not specified.

=item pool_rel

The path to the pool dir <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	302	394	
==>a_dir->subdir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift()->_meta_dir->file( <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3269	3381	
==>tensions {
    my ($self, $path, $top_obj) = @_;
    $path = "$self->{base}/$path";

    unshift @INC, $self->{pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2589	2691	
==>$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2589	2691	
==>$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2589	2691	
==>$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	805	919	
==>t
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.cl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	805	919	
==>t
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.cl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27855	27949	
==>attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message V <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27855	27949	
==>attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31822	31943	
==>( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31822	31943	
==>( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31822	31943	
==>( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4968	5078	
==>cceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4968	5078	
==>cceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4968	5078	
==>cceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1422	1525	
==>losure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1890	1993	
==>eturns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method em <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1422	1525	
==>losure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1890	1993	
==>eturns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method em <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36340	36439	
==>, 1 if look-ahead

Ender: tail

=head2 suspend

Family: assertion

Types: suspend (C<< (?> >>)

Data <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	442	538	
==>Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	442	538	
==>Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	998	1094	
==>Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1446	1581	
==>ra",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with con <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1446	1581	
==>ra",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with con <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	727	819	
==>.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	727	819	
==>.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19594	19688	
==>ote that thesse are I<not>
necessarily the names you specified in the constructor. For example, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18575	18669	
==>ote that thesse are I<not>
necessarily the names you specified in the constructor. For example, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19594	19688	
==>ote that thesse are I<not>
necessarily the names you specified in the constructor. For example, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18575	18669	
==>ote that thesse are I<not>
necessarily the names you specified in the constructor. For example, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8936	9040	
==>( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8936	9040	
==>( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1214	1309	
==>ive it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1214	1309	
==>ive it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14015	14118	
==>eeds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14015	14118	
==>eeds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14015	14118	
==>eeds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28677	28773	
==>a specific simple API that will serve their role.

For example, inside the text Template file "My <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28677	28773	
==>a specific simple API that will serve their role.

For example, inside the text Template file "My <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2608	2702	
==>/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2608	2702	
==>/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12335	12489	
==>thod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12335	12489	
==>thod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12335	12489	
==>thod->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->di <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2995	3127	
==>me>.remove($subscription);
            $subscription.subscriber.remove_subscription($subscription);
        }
        
        method <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	520	622	
==>ot implemented" };

sub add_op {
    # name=>'*', precedence=>'>', other=>'+', rule=>$rule
    my ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2874	2965	
==>",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2874	2965	
==>",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2874	2965	
==>",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11128	11258	
==>_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11128	11258	
==>_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11128	11258	
==>_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11675	11878	
==>n' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11675	11878	
==>n' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2397	2490	
==>d }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_clos <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2397	2490	
==>d }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_clos <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2327	2471	
==>my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8886	9030	
==>my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2327	2471	
==>my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8882	9026	
==>my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7094	7213	
==>sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1430	1540	
==>cee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1430	1540	
==>cee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1430	1540	
==>cee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12411	12527	
==>ethod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12411	12527	
==>ethod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12411	12527	
==>ethod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instanc <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	941	1041	
==>ke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$sm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1394	1488	
==>nstance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1394	1488	
==>nstance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1394	1488	
==>nstance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2368	2489	
==>$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15327	15431	
==>( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15327	15431	
==>( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15327	15431	
==>( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : unde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3957	4106	
==>es %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3957	4106	
==>es %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3957	4106	
==>es %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	303	424	
==>classes";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7967	8167	
==>$k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @foun <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8431	8631	
==>$k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @foun <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5034	5136	
==>($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5034	5136	
==>($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16237	16354	
==>g is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C<cho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3042	3140	
==>($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3042	3140	
==>($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3042	3140	
==>($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5397	5492	
==>he current value itself, which means 
you it is essentially read-only, however, all the return v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4541	4705	
==>>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4541	4705	
==>>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4541	4705	
==>>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	305	404	
==>s|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	707	804	
==>nd
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	707	804	
==>nd
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	707	804	
==>nd
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10062	10171	
==>ft @{ $ifthen->{data} };
      $ifthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $ift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1846	1953	
==>("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1846	1953	
==>("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1846	1953	
==>("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	980	1119	
==>$char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	980	1119	
==>$char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	929	1043	
==>f, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	929	1043	
==>f, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( sta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9276	9385	
==>eturns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10082	10191	
==>eturns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10997	11106	
==>eturns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	323	418	
==>s unfortunately entangled with the rest of
# the p5 implementation.  So while limited superficia <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8321	8581	
==>('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1430	1526	
==>shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1430	1526	
==>shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1430	1526	
==>shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19227	19324	
==>Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19227	19324	
==>Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	417	511	
==>PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialis <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	417	511	
==>PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	558	667	
==>ode of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explici <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	558	667	
==>ode of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explici <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33284	33375	
==>ersection (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37834	37925	
==>ersection (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	595	752	
==>} }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2562	2663	
==>\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUG <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2562	2663	
==>\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUG <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2562	2663	
==>\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUG <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15048	15200	
==>$self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15048	15200	
==>$self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15048	15200	
==>$self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, fo <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	195	317	
==>$coercer_role = ::Getopt::Argument::Coercer::Null;

        method bind ( Code &fun, Array of Str @args ) {
            $fu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9121	9237	
==>te implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12974	13086	
==>te implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12974	13086	
==>te implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {l <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	341	451	
==>(\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-]( <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5946	6077	
==>est to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_version($a)
            } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3880	3984	
==>2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3880	3984	
==>2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5404	5508	
==>2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15471	15564	
==>regex; provides
a front-end method for the parser.

=item Regexp::QuantAttr

Removes quantifie <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7803	7903	
==>( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7803	7903	
==>( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7842	7941	
==>rbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7842	7941	
==>rbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_prev <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17674	17838	
==>new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19432	19596	
==>new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39884	40047	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40943	41106	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%pa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14066	14170	
==>iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for no <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10293	10397	
==>iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for no <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14066	14170	
==>iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for no <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10293	10397	
==>iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5702	5826	
==>{
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5702	5826	
==>{
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5702	5826	
==>{
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            for <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	782	888	
==>chObj->target();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me->target($target);
  $m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1932	2046	
==>Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_assocations }
       );
}

# sigh .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4417	4509	
==>r varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4417	4509	
==>r varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4417	4509	
==>r varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8254	8348	
==>turn "" if !defined $pilc;
    $pilc->expand();
}

#=========================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8254	8348	
==>turn "" if !defined $pilc;
    $pilc->expand();
}

#=========================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8254	8348	
==>turn "" if !defined $pilc;
    $pilc->expand();
}

#=========================================== <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3130	3231	
==>IL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3130	3231	
==>IL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3130	3231	
==>IL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10918	11077	
==>'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11197	11356	
==>'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5250	5385	
==>),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5250	5385	
==>),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4091	4235	
==>_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4079	4223	
==>_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$po <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	899	997	
==>", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $nod <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	899	997	
==>", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5916	6028	
==>w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5916	6028	
==>w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5916	6028	
==>w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4412	4510	
==>}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator>> <SourceCharacter>
}
rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7642	7750	
==>, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6092	6192	
==>ing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6092	6192	
==>ing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6092	6192	
==>ing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29999	30110	
==>@x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29999	30110	
==>@x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29999	30110	
==>@x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1715	1822	
==>&
     (blessed($end_index) && $end_index->isa('num')))    
        || confess "Indecies must be a num type" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1680	1783	
==>:join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1680	1783	
==>:join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1680	1783	
==>:join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11134	11242	
==>(.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1110	1203	
==>arname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1110	1203	
==>arname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1110	1203	
==>arname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17872	18029	
==>ommon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21349	21506	
==>ommon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20936	21093	
==>ommon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1comm <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5824	5965	
==>3,
      runcore       => runcore2human($4),
      timestamp     => [
        $5,
        do { 
          my $str = localtime($5)->strftime("% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1189	1313	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1189	1313	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1189	1313	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::op <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	614	712	
==>il the role is included in the class.

This has the effect of making C<Role> objects appear to "fla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1586	1684	
==>);
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1586	1684	
==>);
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1586	1684	
==>);
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6331	6426	
==>{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($ <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1697	1861	
==>unt++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        method appe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4175	4287	
==>$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4175	4287	
==>$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the en <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4175	4287	
==>$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the en <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24128	24230	
==>omatically sending something
  in response to something it received.  This is typically used by automat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22901	23003	
==>omatically sending something
  in response to something it received.  This is typically used by automat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24128	24230	
==>omatically sending something
  in response to something it received.  This is typically used by automat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22901	23003	
==>omatically sending something
  in response to something it received.  This is typically used by automat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6247	6345	
==>rn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6247	6345	
==>rn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6247	6345	
==>rn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21211	21306	
==>'('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> < <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2371	2487	
==>=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute i <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1826	1942	
==>=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute i <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2371	2487	
==>=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute i <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1826	1942	
==>=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . You can redistribute i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2753	2861	
==>array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2753	2861	
==>array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2753	2861	
==>array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } els <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1064	1165	
==>ust be a core type";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7037	7268	
==>od text
                next if /^\s*#/;               # and comments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3701	3799	
==>s.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3701	3799	
==>s.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3701	3799	
==>s.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17207	17368	
==>1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17486	17647	
==>1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2208	2345	
==>=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2208	2345	
==>=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6862	6957	
==>o closing match, I should
ignore the opening one. However, this means I should defer events unti <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6862	6957	
==>o closing match, I should
ignore the opening one. However, this means I should defer events unti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3028	3121	
==>alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$na <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3028	3121	
==>alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6971	7101	
==>=  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6971	7101	
==>=  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6971	7101	
==>=  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4388	4505	
==>my ($node, $symbol, $body, $type) = @_;
	return $body;
}

sub symbolic_representation {
	my $self = shift;
	my $node = <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6956	7061	
==>t' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCol <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6956	7061	
==>t' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCol <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3855	3960	
==>t' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCol <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43037	43130	
==>o L<Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2016	2213	
==>! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method e <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2016	2213	
==>! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37174	37268	
==>plate_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37174	37268	
==>plate_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23382	23479	
==>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22173	22270	
==>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23382	23479	
==>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22173	22270	
==>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10348	10462	
==>eturn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10348	10462	
==>eturn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10348	10462	
==>eturn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6968	7072	
==>->does('Role'), '... Role now does Role');

## create some roles
my $rFoo = $Role->new(
    '$:name' => ' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1580	1683	
==>type of value - it applies its first child to the rest of its
children.

=item Map

A map is like a hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3225	3325	
==>nclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3225	3325	
==>nclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3225	3325	
==>nclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1410	1529	
==>f any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edito <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1410	1529	
==>f any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edito <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1410	1529	
==>f any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edito <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2211	2305	
==>"PGE::Exp::Cut");
    $optable->addToken("postfix:::", "postfix:*", "left", &fail);
    $optabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13007	13213	
==>->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13007	13213	
==>->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13007	13213	
==>->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1225	1321	
==>$self->config->_registered_alternatives );
}

=head2 $file = $inst->available_file

=cut

sub ava <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47709	47873	
==>self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$value' => 'type'), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2225	2349	
==>iables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2225	2349	
==>iables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2572	2696	
==>iables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2996	3111	
==>$ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2996	3111	
==>$ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2996	3111	
==>$ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37204	37306	
==>e_name! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37443	37545	
==>e_name! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37204	37306	
==>e_name! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37443	37545	
==>e_name! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a st <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8147	8276	
==>err,"api 13\n");*/
      if(ret != 4) {
        fprintf(stderr,"api 13 violation\n"); exit(0);
      }
      pat = POPs;
      npa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33964	34073	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33964	34073	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33964	34073	
==>VERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9703	9817	
==>un::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9703	9817	
==>un::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9703	9817	
==>un::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cn <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4012	4114	
==>ft;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie::TypeSaf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1676	1777	
==>unction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1676	1777	
==>unction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1676	1777	
==>unction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2J <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10977	11063	
==>e_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequence(char(C <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2668	2801	
==>_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  - <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2668	2801	
==>_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  - <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	296	417	
==>esign.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	296	417	
==>esign.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3478	3606	
==>y $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        S <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3478	3606	
==>y $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2784	2895	
==>e_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3031	3142	
==>e_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16872	16969	
==>ncoding header field is used as a modifier to the
media type.  When present, its value indicates w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16872	16969	
==>ncoding header field is used as a modifier to the
media type.  When present, its value indicates w <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	548	644	
==>lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Compu <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	548	644	
==>lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Compu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5373	5541	
==>push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$len <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5373	5541	
==>push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$len <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22184	22300	
==>est) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOT <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18605	18721	
==>est) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOT <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3249	3361	
==>end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<be <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3249	3361	
==>end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<be <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1166	1265	
==>ch");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1166	1265	
==>ch");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::I <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6269	6373	
==>mpty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6269	6373	
==>mpty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	702	806	
==>iteral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remaind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	702	806	
==>iteral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remaind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13078	13199	
==>mar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21128	21249	
==>mar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13357	13478	
==>mar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21407	21528	
==>mar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4461	4580	
==>$netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies on <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4461	4580	
==>$netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies on <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17900	17994	
==>e originating server program handling the request.

=item $h.from

This header should contain a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17900	17994	
==>e originating server program handling the request.

=item $h.from

This header should contain a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	643	788	
==>arams{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	643	788	
==>arams{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $sel <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	273	385	
==>ool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	273	385	
==>ool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	299	401	
==>? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	299	401	
==>? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1033	1142	
==>alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1385	1492	
==>alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	992	1099	
==>alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1385	1492	
==>alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5320	5428	
==>nkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5320	5428	
==>nkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5320	5428	
==>nkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12514	12609	
==>e if an error is a particular one, use the error_is() method:

  if ($parser->error_is($parser-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8119	8234	
==>ns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8119	8234	
==>ns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8119	8234	
==>ns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Re <==
4	/Users/nnunley/pugs/util/package-osx.pl	10188	10292	
==>led on the target machine (hence the $file[-1]).
sub create_remover {
    my ($dest, @files) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8163	8400	
==>>new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8163	8400	
==>>new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8163	8400	
==>>new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3128	3241	
==>lass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3128	3241	
==>lass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3128	3241	
==>lass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2963	3071	
==>_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21489	21637	
==>y @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21489	21637	
==>y @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21489	21637	
==>y @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15590	15710	
==>f->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21761	21881	
==>f->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16851	16947	
==>w child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute def <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16851	16947	
==>w child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute def <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	639	771	
==>GIN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Grammar::Var.ident>
                { return { scalar => "\$" . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1841	1945	
==>[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1841	1945	
==>[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1841	1945	
==>[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1142	1277	
==>shift() ) }
                            ];

### repository dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1379	1474	
==>}
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1379	1474	
==>}
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1379	1474	
==>}
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9373	9485	
==>2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9373	9485	
==>2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9373	9485	
==>2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15306	15401	
==>essage for interactive systems.

If the program or any of its components are intended for widesp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15306	15401	
==>essage for interactive systems.

If the program or any of its components are intended for widesp <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5222	5312	
==>ved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5222	5312	
==>ved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1089	1209	
==>ence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUI <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1069	1189	
==>ence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUI <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1089	1209	
==>ence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUI <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1069	1189	
==>ence
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUI <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13755	13871	
==>body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    ret <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1235	1351	
==>body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27459	27558	
==>t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list α", ":t lis <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2794	2889	
==>> \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find design doc director <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3838	3979	
==>rint $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3838	3979	
==>rint $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3838	3979	
==>rint $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37417	37514	
==>or.  The
argument is a true or false value determining whether this is a positive
assertion.  Here <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5560	5652	
==>::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
at <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5560	5652	
==>::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7757	7849	
==>::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5372	5547	
==>default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5372	5547	
==>default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5372	5547	
==>default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{nam <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3469	3604	
==><FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	763	875	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	968	1080	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1024	1136	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8951	9048	
==>}

void regexp_hook_on() {
  if(previous_comp_hook != NULL) { croak("Cant install twice"); }
  pre <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15204	15315	
==>ift;
    $self->{digests} = { map { Digest->compute($_) => $_ } $env->values };
    my $ast = shift;

    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14	124	
==>l

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14	124	
==>l

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14	124	
==>l

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6142	6273	
==>) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	773	882	
==>st_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_accessors( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19031	19119	
==>d2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19031	19119	
==>d2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12539	12692	
==>methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12539	12692	
==>methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12539	12692	
==>methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we f <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1057	1196	
==>rse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
type KeyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(A <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13632	13739	
==>s all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13632	13739	
==>s all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12400	12498	
==>est of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12400	12498	
==>est of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11115	11212	
==>or in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way w <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	562	659	
==>_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSIO <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11115	11212	
==>or in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	562	659	
==>_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSIO <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3858	3949	
==>rmalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curir <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3858	3949	
==>rmalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curir <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9113	9199	
==>[Item1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_c <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9217	9300	
==>[Item1|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1833	1933	
==>$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Base <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1833	1933	
==>$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Base <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1833	1933	
==>$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::Base <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4432	4541	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4432	4541	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4432	4541	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3588	3697	
==>e comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	409	519	
==>uote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AEl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	409	519	
==>uote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AEl <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	21	129	
==>::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hash <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	21	129	
==>::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1079	1197	
==>s $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4610	4702	
==>ript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4610	4702	
==>ript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4610	4702	
==>ript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10589	10698	
==>return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10589	10698	
==>return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10589	10698	
==>return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	736	877	
==>de<Lazy>).add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1284	1408	
==>eout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Q <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1284	1408	
==>eout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Q <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2530	2631	
==>nt OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1203	1304	
==>re. 



the Package part of the Module is simply a hash from strings

(symbol names) to objects (conta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1150	1248	
==>re. 

the Package part of the Module is simply a hash from strings
(symbol names) to objects (conta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20200	20295	
==>is Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24752	24847	
==>is Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2651	2783	
==>PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2651	2783	
==>PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2651	2783	
==>PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19256	19373	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8092	8222	
==>$o->concat($_) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	586	685	
==>{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	586	685	
==>{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	586	685	
==>{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLVa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10852	11000	
==>$Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13531	13675	
==>_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13531	13675	
==>_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13531	13675	
==>_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	485	589	
==>r $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	485	589	
==>r $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	485	589	
==>r $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	435	534	
==>x:«<»($self, Perl::Param $other) {
    ...
}

# maybe something like  this?
type Perl::Params Arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13412	13534	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13412	13534	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13412	13534	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @list <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	111	222	
==>r->STORE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1457	1595	
==>RUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=pod

=head1 NAME

bit - the core bit type

=head1 METHODS

=ove <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4086	4185	
==>cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4086	4185	
==>cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4086	4185	
==>cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13244	13340	
==>it(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13244	13340	
==>it(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13244	13340	
==>it(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	265	392	
==>le ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfil <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	265	392	
==>le ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfil <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	188	304	
==>to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	188	304	
==>to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    " <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7065	7169	
==>flush for the handle passed
sub _autoflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2035	2133	
==>thods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2035	2133	
==>thods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2035	2133	
==>thods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2108	2212	
==>self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $sel <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2108	2212	
==>self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $sel <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	805	899	
==>roject was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	805	899	
==>roject was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	472	592	
==>List      pre     keys    safe   (rw!Array)\
multi Array::keys   (@array ; MatchTest *@indextests --> Int|List )
{
    my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1142	1243	
==>sed for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1142	1243	
==>sed for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7612	7712	
==>ON );

Normalizes the versions passed and does a '<=>' on them, returning the result.

=cut

sub _vcm <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13382	13476	
==>e replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13382	13476	
==>e replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6418	6509	
==>Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::Fa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6418	6509	
==>Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::Fa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1817	1969	
==>0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6485	6603	
==>'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        (" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6485	6603	
==>'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        (" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6485	6603	
==>'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        (" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8862	9103	
==>etch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8862	9103	
==>etch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8862	9103	
==>etch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2861	2987	
==>l, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5520	5626	
==>.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.rec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5520	5626	
==>.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.rec <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9148	9244	
==>for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9148	9244	
==>for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16604	16702	
==>rmalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pug <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16604	16702	
==>rmalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pug <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17403	17497	
==>.title

The title of the document.  In libwww-perl this header will be
initialized automaticall <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17403	17497	
==>.title

The title of the document.  In libwww-perl this header will be
initialized automaticall <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10837	11001	
==>um =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13733	13897	
==>] )                    and die $?;
        system( qq[ln -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Alterna <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10837	11001	
==>um =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10837	11001	
==>um =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1444	1563	
==>nt++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1444	1563	
==>nt++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1444	1563	
==>nt++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1852	1950	
==>t_delimited( "'" . $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	758	882	
==>p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	758	882	
==>p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	758	882	
==>p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29566	29663	
==>mit(VALUE)

Whether this node is omitted from the parse tree.  Certain objects
do not need to appe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5223	5417	
==>NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6985	7179	
==>NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e ge <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	9	108	
==>ed file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	9	108	
==>ed file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7862	7988	
==>") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13456	13582	
==>") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7862	7988	
==>") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13450	13576	
==>") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29936	30030	
==>tributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Cod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34488	34582	
==>tributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Cod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33652	33746	
==>tributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Cod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	197	399	
==>nstant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	198	400	
==>nstant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17348	17441	
==>mix many source filterish modules in a much more sane manner.
Module::Compile controls the com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17348	17441	
==>mix many source filterish modules in a much more sane manner.
Module::Compile controls the com <==
4	/Users/nnunley/pugs/util/version_h.pl	1268	1382	
==>, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1227	1323	
==>tement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1227	1323	
==>tement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1227	1323	
==>tement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3191	3300	
==>'can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3191	3300	
==>'can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3191	3300	
==>'can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18809	18891	
==>,B1,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19555	19660	
==>o end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1650	1752	
==>g(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1650	1752	
==>g(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1650	1752	
==>g(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40166	40279	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40166	40279	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40166	40279	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32093	32190	
==>n Object

Most objects inherit their ender() and walk() methods from the base
object class; most h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	399	574	
==>{
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	399	574	
==>{
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	399	574	
==>{
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11824	11937	
==>_default_inc {
    my $self = shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$per <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9895	9991	
==>b decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9895	9991	
==>b decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entit <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1186	1282	
==>mmar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1186	1282	
==>mmar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2080	2238	
==>undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2080	2238	
==>undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2080	2238	
==>undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash. <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14830	14975	
==>eadlevel;
          
          while (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg_n = $beg->pindex;
            my $end   = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5774	5918	
==>) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5774	5918	
==>) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5774	5918	
==>) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	702	833	
==>gs::Grammar::Var.ident>
                { return { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	235	332	
==>{
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	235	332	
==>{
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	235	332	
==>{
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	722	883	
==>) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.ne <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	722	883	
==>) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.ne <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2145	2284	
==>s).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    pr <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2145	2284	
==>s).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    pr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4234	4350	
==>( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_comp <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4234	4350	
==>( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_comp <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4525	4625	
==>et_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4525	4625	
==>et_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complem <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6708	6809	
==>ternary_error if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $tem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5511	5605	
==>file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5511	5605	
==>file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5511	5605	
==>file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	151	332	
==>::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	152	333	
==>::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3029	3140	
==>lename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30444	30537	
==>>.

=item C<project_all_but (Set of Str $attrs!) returns Relation::Example>

This method is th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3263	3371	
==>he C<v6.pm> module.

This is an invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22584	22676	
==>aller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22584	22676	
==>aller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22584	22676	
==>aller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1020	1118	
==>return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_siz <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1020	1118	
==>return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_siz <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17144	17240	
==>he glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17144	17240	
==>he glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4227	4347	
==>on.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7704	7824	
==>on.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5003	5113	
==>l_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5003	5113	
==>l_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4864	4991	
==>, \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15900	16027	
==>, \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17388	17515	
==>, \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22071	22198	
==>, \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2127	2244	
==>need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2127	2244	
==>need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2127	2244	
==>need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20689	20782	
==>writing handlers goes.

The documentation on sub-classing includes an ordered list of what
pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12059	12179	
==>ash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12059	12179	
==>ash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12059	12179	
==>ash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unles <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26024	26126	
==>lue in C<@_>.>  I made sure of this in
my code; you should make sure in yours.

Matching against the re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15951	16066	
==>al $X::current_match = $m1;
    local $X::cap = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($v);
  unshift(@{$m0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1235	1331	
==>i sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1235	1331	
==>i sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1235	1331	
==>i sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3225	3347	
==>e a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3409	3531	
==>e a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=he <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15947	16046	
==>arget $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15947	16046	
==>arget $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2476	2587	
==>ssing brackets on \\%s", 'C');
  });

  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8175	8295	
==>&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3905	4001	
==>ti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3905	4001	
==>ti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3905	4001	
==>ti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4840	4957	
==>issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4840	4957	
==>issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4840	4957	
==>issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('ca <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14385	14480	
==>Name,'}\n")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_unco <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1370	1470	
==>e caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that work <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5415	5506	
==>utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5415	5506	
==>utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5415	5506	
==>utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11414	11534	
==>$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11414	11534	
==>$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11414	11534	
==>$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$ <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	233	326	
==>onfig{_exe}");
my @args = grep !/^--[-\w]*prefix=$/, @ARGV;
my $prompt_register;

if ($args[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2602	2702	
==>Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2602	2702	
==>Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2602	2702	
==>Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40435	40531	
==>tant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $parser->err_FOOBAR >> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1662	1776	
==>::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1662	1776	
==>::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15785	15879	
==>oper should see more details than joe public would.

Alternately, sometimes a program will rais <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15785	15879	
==>oper should see more details than joe public would.

Alternately, sometimes a program will rais <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4110	4211	
==>nth and day default
to 1 if not given.

The value for day can also be the string "last", in which case <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4110	4211	
==>nth and day default
to 1 if not given.

The value for day can also be the string "last", in which case <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7002	7097	
==>nt "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7014	7109	
==>nt "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4198	4299	
==>:proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Co <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4256	4357	
==>:proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2018	2124	
==>etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2018	2124	
==>etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2018	2124	
==>etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'unde <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3421	3522	
==>shift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	479	593	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	479	593	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	479	593	
==>msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20167	20258	
==>e contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20167	20258	
==>e contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29	293	
==>ternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29	293	
==>ternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29	293	
==>ternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29	293	
==>ternal packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/util/addauthors.pl	594	722	
==>ine} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hurestics: Try matching _ as space <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3761	3859	
==>[" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3761	3859	
==>[" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3761	3859	
==>[" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2777	2872	
==>mplement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2777	2872	
==>mplement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2777	2872	
==>mplement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12064	12179	
==>ame, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->erro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4707	4822	
==>ame, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->erro <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1895	2027	
==>en Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when u <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1895	2027	
==>en Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15898	16000	
==>thod _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19375	19477	
==>thod _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8088	8227	
==>ss "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8088	8227	
==>ss "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8088	8227	
==>ss "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4681	4794	
==>ess $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4681	4794	
==>ess $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4681	4794	
==>ess $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $ma <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3981	4093	
==>ess $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	604	757	
==>f->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	604	757	
==>f->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	604	757	
==>f->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eva <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5695	5819	
==>ift @mess, "# got, expected and range must be numeric\n";
    } elsif ($range < 0) {
        # This is also a fail
        un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6909	7022	
==>ould we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6909	7022	
==>ould we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6909	7022	
==>ould we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9302	9420	
==>t
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => [ command-line arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4214	4307	
==>bute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4214	4307	
==>bute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4214	4307	
==>bute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11184	11315	
==>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11184	11315	
==>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10433	10556	
==>({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10433	10556	
==>({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1490	1595	
==>JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1490	1595	
==>JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1490	1595	
==>JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join(" <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	871	974	
==>nment in which p6 rules can be run against strings,
  sufficient to permit recommencing writing a gramma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11321	11410	
==>der::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReaso <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1777	1862	
==>der::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReaso <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1777	1862	
==>der::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReaso <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	580	696	
==>low\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 construct th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6800	6899	
==>) * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6800	6899	
==>) * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6800	6899	
==>) * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	183	293	
==>'Thread 1 finished: $a is >5 and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atomica <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2096	2246	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1866	2012	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1866	2012	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	908	1008	
==>= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WAR <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3681	3821	
==>($method);
            $seen{$method}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) {
        *{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35650	35784	
==>ay->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35650	35784	
==>ay->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35650	35784	
==>ay->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14511	14621	
==>t = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14511	14621	
==>t = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	108	201	
==>mplementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 2 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	108	201	
==>mplementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 2 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9349	9489	
==>ng";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9349	9489	
==>ng";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { d <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4325	4426	
==>ng with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, a <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4325	4426	
==>ng with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, a <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1364	1510	
==>lled first
        unshift @rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv;
}    

__END__





    ### XXX can be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13619	13710	
==>Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13619	13710	
==>Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13619	13710	
==>Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4658	4777	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4658	4777	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4658	4777	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @a <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3958	4076	
==>comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3904	4107	
==>STALLABLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3433	3538	
==>mp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3433	3538	
==>mp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3433	3538	
==>mp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2765	2867	
==>CKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = j <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6217	6319	
==>CKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2765	2867	
==>CKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2765	2867	
==>CKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = j <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	950	1058	
==>l_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	917	1025	
==>l_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2204	2299	
==>ace

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2204	2299	
==>ace

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuou <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3398	3525	
==>n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3398	3525	
==>n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variab <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3491	3591	
==>inite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An obje <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3491	3591	
==>inite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3860	3989	
==>SELF->$status_sub();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8558	8664	
==>ECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8558	8664	
==>ECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8558	8664	
==>ECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11213	11336	
==>we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11213	11336	
==>we're currently logging in, so our nick_already_used
          # handler can choose a different nick. $in_login_phase is res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10458	10577	
==>we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10458	10577	
==>we're currently logging in, so our nick_already_used
      # handler can choose a different nick. $in_login_phase is res <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	490	614	
==>urn '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37464	37582	
==>ETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37464	37582	
==>ETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37464	37582	
==>ETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Va <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4746	4849	
==>rns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is exp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4746	4849	
==>rns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is exp <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24593	24685	
==>ee
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24593	24685	
==>ee
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2386	2489	
==>ine
8th line
9th line
10th line
11th line
12th line









GROK

# ----------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33921	34018	
==>array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33921	34018	
==>array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33921	34018	
==>array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infini <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2424	2551	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7518	7645	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2424	2551	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7518	7645	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6208	6312	
==>f index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6266	6370	
==>f index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9272	9366	
==>hod get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9272	9366	
==>hod get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22560	22649	
==>a::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22560	22649	
==>a::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2872	2996	
==>$self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2872	2996	
==>$self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	681	803	
==>hed against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you en <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	681	803	
==>hed against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you en <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11588	11684	
==>set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8735	8831	
==>set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11588	11684	
==>set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8735	8831	
==>set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	893	992	
==>:Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3477	3575	
==>ar jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3477	3575	
==>ar jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3477	3575	
==>ar jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).to <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2093	2192	
==>rset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2093	2192	
==>rset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3888	3985	
==>ns a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4072	4169	
==>ns a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gramm <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1182	1379	
==>/alternatives';          # Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for meta files
$Metafile       = ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13006	13093	
==>>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13006	13093	
==>>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13006	13093	
==>>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6584	6688	
==>hod('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6584	6688	
==>hod('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6584	6688	
==>hod('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	39	137	
==>s
BEGIN { require 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

us <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7390	7483	
==>al, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::Fa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7390	7483	
==>al, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::Fa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1230	1342	
==>h = "P6RulesInP5::Match" if ! defined $match; 
  $options = "left" if not $options;
  if ( $relativePrecedence an <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3075	3173	
==>diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3075	3173	
==>diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3155	3253	
==>diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7795	7898	
==>->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRouti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7795	7898	
==>->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRouti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7795	7898	
==>->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRouti <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3286	3390	
==>f.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $univ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3286	3390	
==>f.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $univ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26158	26251	
==>ere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1,'undef',O).

END
#===== <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15200	15337	
==>refix" );
}

sub postfix {
    my $n = $_[0];
    # print "postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12312	12433	
==>n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12312	12433	
==>n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12312	12433	
==>n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4401	4520	
==>looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4401	4520	
==>looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7039	7136	
==>el functional operators, and the higher level OO/Overload 

runtime. 



- internal rule operators <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6799	6893	
==>el functional operators, and the higher level OO/Overload 
runtime. 

- internal rule operators <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2676	2791	
==>$self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2676	2791	
==>$self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2676	2791	
==>$self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4090	4195	
==>ead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "<precompiled>", };

    $fatal:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5171	5321	
==>tern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5171	5321	
==>tern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5171	5321	
==>tern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15356	15457	
==>enerate Rock Ridge directory information
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13284	13434	
==>lf->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13284	13434	
==>lf->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13284	13434	
==>lf->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{sh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23352	23445	
==>nting classes are used together, and
each doesn't know the others' internals.  Implementing cl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1515	1621	
==>alence = $self->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalence = $self->tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3377	3467	
==>([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3377	3467	
==>([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3377	3467	
==>([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	411	557	
==>ddir $Alternatives ] .
            qq[$Repodir] )                                      and die $?;
    system( qq[touch $Available $Altfile $Repoin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1480	1578	
==>) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1480	1578	
==>) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1480	1578	
==>) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14884	15020	
==>xp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '+ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4368	4462	
==><plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actual <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4368	4462	
==><plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actual <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5892	5986	
==><plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actual <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8629	8775	
==>x;
    }

    th       { text-align: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid #313052; }
    .indent1 { padding-top:  10 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	367	460	
==>.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	367	460	
==>.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	367	460	
==>.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5031	5137	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5031	5137	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1935	2041	
==>S'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	48	143	
==>aScript-on-p6 runtime.
It seems likely there will be more than one.

Design goals:
 1 Correctnes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6048	6177	
==>) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6048	6177	
==>) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6048	6177	
==>) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3937	4078	
==>the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   print "not " unless $test;
        #   p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	220	317	
==>>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	220	317	
==>>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	220	317	
==>>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4829	4959	
==>> sub my_sub { $.blah };

SUPPORTED_FEATURES
}
    else {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2905	2995	
==>sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2905	2995	
==>sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2905	2995	
==>sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{i <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	442	605	
==>turns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1854	1956	
==>_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($ful <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1854	1956	
==>_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($ful <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1854	1956	
==>_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($ful <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	947	1172	
==>required    => 1,
                store       => \$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                store <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11793	11904	
==>())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11793	11904	
==>())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11793	11904	
==>())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2514	2636	
==>"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2514	2636	
==>"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3830	3938	
==>n loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3888	3996	
==>n loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5009	5123	
==>rm2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2551	2665	
==>rm2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3332	3446	
==>rm2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9446	9543	
==>>captures(2);

=head2 Walking the Tree

To walk over the created tree, create an iterator with wal <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25136	25238	
==>{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'>
    | <'{'> <DecimalDigits> <','> <Decimal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1720	1845	
==>me => '*',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	782	883	
==>methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dua <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	782	883	
==>methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dua <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	782	883	
==>methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dua <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	824	938	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	824	938	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	824	938	
==>ps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3390	3511	
==>val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3390	3511	
==>val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3390	3511	
==>val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be para <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22315	22428	
==>x_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17831	18027	
==>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41099	41292	
==>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16329	16431	
==>:Parser::open;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3428	3524	
==>pe';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	986	1081	
==>y($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::nu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	986	1081	
==>y($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::nu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	986	1081	
==>y($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::nu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26956	27069	
==>pe>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <Character <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3111	3217	
==>bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3111	3217	
==>bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3111	3217	
==>bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4018	4127	
==>expected invocant'
	    if defined $args->{invocant};
    }

    for my $param_name (keys %{$self->named || {} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	229	333	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	229	333	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	229	333	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "C <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9312	9399	
==>r::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new(" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9507	9594	
==>r::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new(" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9702	9789	
==>r::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new(" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11358	11445	
==>r::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	949	1057	
==>h - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	949	1057	
==>h - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	949	1057	
==>h - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25793	25893	
==>etter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule ControlE <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11023	11123	
==>set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8427	8527	
==>set. Returns the number of items removed.

It is not fatal to remove an item which is not in the set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11023	11123	
==>set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8427	8527	
==>set. Returns the number of items removed.

It is not fatal to remove an item which is not in the set. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1060	1151	
==>ectional functionality.

The complementary functions are emulated using iterations.

- `new( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1060	1151	
==>ectional functionality.

The complementary functions are emulated using iterations.

- `new( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1134	1224	
==>d1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta En <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1134	1224	
==>d1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta En <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10026	10130	
==>s }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  m <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10026	10130	
==>s }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  m <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	204	296	
==>) returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	204	296	
==>) returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1176	1281	
==>::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1176	1281	
==>::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15922	16023	
==>rget { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "O <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15922	16023	
==>rget { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "O <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5370	5495	
==>e = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6638	6763	
==>e = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5370	5495	
==>e = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6626	6751	
==>e = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	999	1159	
==>__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10130	10243	
==>nction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10130	10243	
==>nction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10130	10243	
==>nction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, su <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13228	13317	
==>default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $st <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13228	13317	
==>default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	524	639	
==>Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    pr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	524	639	
==>Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1909	2008	
==>urn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1832	1929	
==>urn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	405	506	
==>undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	405	506	
==>undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8746	8840	
==>S ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *% <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8746	8840	
==>S ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *% <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2613	2761	
==>_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2513	2656	
==>_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	752	847	
==>mpiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	752	847	
==>mpiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17832	17926	
==>nature/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($thunk->val) <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1987	2093	
==>$args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{au <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4222	4328	
==>$args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{au <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24337	24430	
==>face of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24337	24430	
==>face of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12993	13206	
==>_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12993	13206	
==>_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12993	13206	
==>_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15142	15243	
==>$extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1001	1143	
==>ule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1012	1154	
==>ule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_cap <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2239	2352	
==>, string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2239	2352	
==>, string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18526	18621	
==>out
that text themselves.

What Locale::KeyedText does is associate each member in a set of key- <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18526	18621	
==>out
that text themselves.

What Locale::KeyedText does is associate each member in a set of key- <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1577	1669	
==>ay.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep() <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1577	1669	
==>ay.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2036	2168	
==>urn 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1243	1358	
==>For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've im <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1243	1358	
==>For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've im <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1243	1358	
==>For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've im <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1876	1998	
==>xpected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1876	1998	
==>xpected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1876	1998	
==>xpected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    retu <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12474	12571	
==>ment = $strap->_is_comment($line, \$comment);

Checks if the given line is a comment.  If so, it w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15150	15249	
==>nt to the method.  The old header value is always returned.
If the given header did not exist then C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15150	15249	
==>nt to the method.  The old header value is always returned.
If the given header did not exist then C <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8536	8628	
==>the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8536	8628	
==>the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2355	2467	
==>ched.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2572	2684	
==>ched.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5028	5130	
==>vent<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan} <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5028	5130	
==>vent<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5777	5872	
==>els we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5777	5872	
==>els we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3343	3489	
==>rack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantifie <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3343	3489	
==>rack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantifie <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10887	10982	
==>ds) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10945	11040	
==>ds) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10022	10121	
==>pp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10022	10121	
==>pp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10022	10121	
==>pp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	127	250	
==>hdir;
use File::Basename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7597	7716	
==>n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7597	7716	
==>n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7597	7716	
==>n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5167	5303	
==>h @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5167	5303	
==>h @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5167	5303	
==>h @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13676	13820	
==>-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3805	3937	
==>-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3805	3937	
==>-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3805	3937	
==>-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3882	3996	
==>);\n";
}
sub node::list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3281	3392	
==>w if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3281	3392	
==>w if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3281	3392	
==>w if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5156	5253	
==>ctions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5156	5253	
==>ctions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function w <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2685	2779	
==>by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B< <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2685	2779	
==>by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2381	2508	
==>{
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2381	2508	
==>{
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2381	2508	
==>{
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14176	14298	
==>, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10405	10532	
==>eferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10405	10532	
==>eferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10405	10532	
==>eferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1393	1497	
==>[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $stat <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4935	5089	
==>difier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that mod <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4935	5089	
==>difier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that mod <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2356	2453	
==>ed by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values wit <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2356	2453	
==>ed by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2553	2679	
==>p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2553	2679	
==>p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2553	2679	
==>p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pri <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	497	601	
==>block 
        closure closure::env closure::signature closure::params
        opaque method attribute C3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16084	16233	
==>ray->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16084	16233	
==>ray->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16084	16233	
==>ray->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = sh <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6855	6961	
==>ecking for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Qu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23493	23617	
==>exp::Parser::suspend;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2624	2717	
==>ubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2624	2717	
==>ubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2624	2717	
==>ubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14011	14106	
==>s.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Ste <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10238	10333	
==>s.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Ste <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14011	14106	
==>s.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Ste <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10238	10333	
==>s.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Ste <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2553	2673	
==>me     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2553	2673	
==>me     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9629	9726	
==>might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9687	9784	
==>might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	294	392	
==>my $data = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname ($data) wh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	462	555	
==>rint_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	423	516	
==>rint_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	423	516	
==>rint_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6928	7083	
==>mp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6928	7083	
==>mp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6928	7083	
==>mp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5484	5644	
==>ns) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5484	5644	
==>ns) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5484	5644	
==>ns) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1639	1736	
==>) if $params{'$.passed'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Fail')->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1349	1472	
==>out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3633	3751	
==>{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3633	3751	
==>{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3633	3751	
==>{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $sel <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9328	9423	
==>rn $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12805	12900	
==>rn $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12059	12154	
==>rn $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_ma <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4249	4343	
==>Num ) {
    2.71828182845904523536028747135266249775724709369995957496696762772407663;
    # ht <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4200	4316	
==>"6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1694	1800	
==>, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1694	1800	
==>, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1694	1800	
==>, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2524	2658	
==>, ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stri <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2524	2658	
==>, ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stri <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2524	2658	
==>, ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stri <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11252	11341	
==>-> int -> bool
	'==' => type::operator::arrow->new(
		type::operator::nullary->new("int"), <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3344	3462	
==>urusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3344	3462	
==>urusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8033	8136	
==>atch object that has no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7762	7862	
==>atch object that has no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A rul <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5471	5579	
==>t {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4601	4709	
==>t {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5471	5579	
==>t {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4601	4709	
==>t {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8435	8564	
==>}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8435	8564	
==>}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8435	8564	
==>}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2852	2967	
==>lf    = shift;
    my $package = ref( $self->_top );
    my $version = $self->_top->VERSION;
    my %values  = %{ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	759	860	
==>f: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	759	860	
==>f: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	759	860	
==>f: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4711	4798	
==>e Perl6::Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PAC <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8439	8542	
==>stantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are sup <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8439	8542	
==>stantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are sup <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17297	17398	
==>6.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=ite <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17297	17398	
==>6.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3349	3450	
==>its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3349	3450	
==>its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText it <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4802	4898	
==>node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_asse <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4802	4898	
==>node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_asse <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23109	23206	
==>t> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
ch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21918	22015	
==>t> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23109	23206	
==>t> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21918	22015	
==>t> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickname and a
ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	126	213	
==>nt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	126	213	
==>nt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	126	213	
==>nt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22391	22487	
==>("Heading")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37066	37160	
==>on where a pair of source
relations have zero attributes in common, their joining degenerates t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41615	41709	
==>on where a pair of source
relations have zero attributes in common, their joining degenerates t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41238	41332	
==>on where a pair of source
relations have zero attributes in common, their joining degenerates t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2016	2124	
==>>superclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	784	882	
==>ity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	784	882	
==>ity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	784	882	
==>ity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5666	5774	
==>id regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2028	2113	
==>s->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2028	2113	
==>s->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2028	2113	
==>s->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->nam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21121	21303	
==>que')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44045	44210	
==>que')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:') <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19491	19586	
==>ot change
your main program.

I<Note that an update is planned for Locale::KeyedText that will e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19491	19586	
==>ot change
your main program.

I<Note that an update is planned for Locale::KeyedText that will e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15730	15822	
==>t variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15788	15880	
==>t variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4085	4166	
==>ux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl> <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4085	4166	
==>ux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3145	3255	
==>'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3145	3255	
==>'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3145	3255	
==>'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => : <==
4	/Users/nnunley/pugs/util/func_refact.pl	3085	3192	
==>eturn 0 if $total == $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { requi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16252	16346	
==>h ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
cor <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1607	1701	
==>interactive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16252	16346	
==>h ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
cor <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1607	1701	
==>interactive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This pr <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9622	9762	
==>_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which could be
        # undef, if we di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1074	1176	
==>$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1074	1176	
==>$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1074	1176	
==>$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
} <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4486	4600	
==>ctory:
    - inc
META
    }

    $dump .= "generated_by: $package version $version\n";
    return $dump;
}

sub rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	85	183	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	85	183	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	85	183	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9055	9266	
==>sh \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_param <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16867	16987	
==>thod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16867	16987	
==>thod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16867	16987	
==>thod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	131	244	
==>n update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	131	244	
==>n update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	131	244	
==>n update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1753	1874	
==>stance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1753	1874	
==>stance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1753	1874	
==>stance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2820	2921	
==>new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2820	2921	
==>new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2820	2921	
==>new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9565	9676	
==>!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9565	9676	
==>!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8249	8357	
==>5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8249	8357	
==>5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX i <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2572	2683	
==>e target though
    #
    pop @revisions;
    $target->{more_revisions} = [ @revisions ] if @revisions;
    $tar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19445	19538	
==>1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19445	19538	
==>1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19445	19538	
==>1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2429	2577	
==>m', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2440	2588	
==>m', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8381	8507	
==>urn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8574	8700	
==>urn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2084	2181	
==>$code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2084	2181	
==>$code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2084	2181	
==>$code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9902	10029	
==>lf->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9902	10029	
==>lf->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9902	10029	
==>lf->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scal <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10862	10975	
==>to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <code> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8474	8579	
==>(anyof_char => chr(oct $o), "\\0[$o]");
      }

      return $S->object(exact => join("", map chr(oct), @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1020	1109	
==>2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1020	1109	
==>2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1020	1109	
==>2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21780	21890	
==>as sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20661	20771	
==>as sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21780	21890	
==>as sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20661	20771	
==>as sent from. This is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5014	5140	
==>cript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5014	5140	
==>cript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5014	5140	
==>cript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17652	17766	
==>not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4603	4717	
==>def') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4603	4717	
==>def') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4603	4717	
==>def') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2226	2332	
==>fig{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to us <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2661	2808	
==>grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2854	3001	
==>grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3693	3792	
==>.pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3693	3792	
==>.pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1553	1659	
==>lurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1553	1659	
==>lurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1553	1659	
==>lurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enco <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10269	10364	
==>nstructor arguments are provided and that they are of the correct
container type (eg, hash vs ar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10269	10364	
==>nstructor arguments are provided and that they are of the correct
container type (eg, hash vs ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	165	258	
==>('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].F <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	824	917	
==>};

my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	165	258	
==>('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	165	258	
==>('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	701	806	
==>ks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it mu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	701	806	
==>ks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it mu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	701	806	
==>ks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it mu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	627	719	
==>re->isa('closure::params') || $signature->isa('closure::signature')))
        || confess "sig <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	122	250	
==>hod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	122	250	
==>hod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10208	10307	
==>eturns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10208	10307	
==>eturns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1717	1826	
==>to allow
    # for methods which do not have an implementation. These
    # methods are then required to be im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1717	1826	
==>to allow
    # for methods which do not have an implementation. These
    # methods are then required to be im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1717	1826	
==>to allow
    # for methods which do not have an implementation. These
    # methods are then required to be im <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23478	23580	
==>ndle that might parse flags, because you do not
want to accidentally affect the previous scope's flag v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7164	7287	
==>$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7164	7287	
==>$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7164	7287	
==>$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16371	16456	
==>0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3119	3226	
==>{
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3119	3226	
==>{
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3119	3226	
==>{
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run:: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10173	10274	
==>, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20501	20607	
==>:- flag_m(E0), !.
rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2980	3071	
==>)\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2980	3071	
==>)\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2980	3071	
==>)\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	286	387	
==>y God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	286	387	
==>y God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	286	387	
==>y God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things li <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	835	953	
==>s ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	835	953	
==>s ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	915	1023	
==>ift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	915	1023	
==>ift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5282	5395	
==>et";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5282	5395	
==>et";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5872	5985	
==>et";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2985	3072	
==>onjunct(Z) --> p6_concatenation(W), p6_conjunctions(W,Z).

p6_alternatives(W, Z) --> "|" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1356	1459	
==>le(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1356	1459	
==>le(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1356	1459	
==>le(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    re <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1803	1894	
==>.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2310	2451	
==>);
        my $data     = $conf->archive_data;
        my $control  = $conf->archive_control;

        ### extract the meta info
        ### X <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4713	4820	
==>('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4572	4679	
==>('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3174	3261	
==>tions(W, Z) --> "&", p6_concatenation(X), p6_conjunctions(intersect(W,X), Z), !.
p6_conj <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8500	8609	
==>] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8500	8609	
==>] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6466	6565	
==>C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6466	6565	
==>C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document E <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2996	3096	
==>random number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2996	3096	
==>random number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9755	9851	
==>il() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9755	9851	
==>il() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3806	3914	
==>$todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$modu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3864	3972	
==>$todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$modu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8746	8852	
==>embers = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operati <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8746	8852	
==>embers = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1600	1761	
==>per( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar ref <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2633	2737	
==><siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2633	2737	
==><siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ < <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2633	2729	
==>erty_attribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20076	20165	
==>= CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefix:<: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2743	2897	
==>sed'),
                description => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'ok ' : <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11831	11965	
==>x >= @$X::cap;
      my $m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	836	945	
==>$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- subclass/inherit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4578	4670	
==>myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4578	4670	
==>myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4578	4670	
==>myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49497	49638	
==>tr(symbol->new('$:version'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('auth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	901	1025	
==>].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	901	1025	
==>].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	901	1025	
==>].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8093	8193	
==>ody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has j <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8093	8193	
==>ody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has j <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8385	8483	
==>ody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has j <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8385	8483	
==>ody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has j <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2902	2997	
==>h up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2902	2997	
==>h up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14765	14850	
==>ties("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> retur <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14765	14850	
==>ties("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13597	13763	
==>: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9781	9947	
==>: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10617	10783	
==>: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12470	12562	
==>do></span>,</td>
	      <td class="num tests_skipped"><span title="<tmpl_var name=skipped> sk <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5700	5799	
==>s a category object.

options:

=item * name => $category_name - the name of this category 
(a names <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9637	9735	
==>rk soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module w <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9695	9793	
==>rk soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module w <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26649	26745	
==>s a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000000 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9179	9296	
==>, @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	515	614	
==>asses", "Set", { companion => "superclasses" });

# every Meta::Class is a part of an object model o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3322	3459	
==>{
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3322	3459	
==>{
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3322	3459	
==>{
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18018	18126	
==>y
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	774	865	
==>trolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	774	865	
==>trolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	774	865	
==>trolFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5669	5800	
==>des_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5669	5800	
==>des_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5669	5800	
==>des_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	196	294	
==>ing of p6 and js objects.
   (Even though this impairs 1?)
Please note efficiency isnt currently on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8994	9112	
==>-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	728	846	
==>-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8994	9112	
==>-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8994	9112	
==>-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4434	4524	
==>scribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4434	4524	
==>scribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15443	15610	
==>$type =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	781	887	
==>S->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	781	887	
==>S->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	781	887	
==>S->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14242	14345	
==>turn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14242	14345	
==>turn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14242	14345	
==>turn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	38	137	
==>erimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	38	137	
==>erimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7062	7159	
==>e HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7062	7159	
==>e HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) T <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19713	19818	
==>("str")),
	),
);

# we can apply a polymorphic function to a string by giving it as a param to a higher or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	960	1042	
==>f "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	960	1042	
==>f "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	960	1042	
==>f "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3094	3224	
==>$Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4794	4919	
==>$Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3822	3943	
==>$Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instan <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3586	3698	
==>Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3586	3698	
==>Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the d <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4461	4571	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4461	4571	
==>Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the d <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10774	10927	
==>ode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	317	440	
==>tack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	317	440	
==>tack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	317	440	
==>tack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	514	642	
==>class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	514	642	
==>class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	514	642	
==>class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8948	9042	
==>he following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return th <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8948	9042	
==>he following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return th <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9938	10031	
==>s; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_para <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9938	10031	
==>s; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_para <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4303	4419	
==>Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4303	4419	
==>Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5176	5291	
==>Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5176	5291	
==>Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27240	27345	
==>$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($str);
    MatchX->new()->set(1,$str,$cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1247	1346	
==>f.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1247	1346	
==>f.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1247	1346	
==>f.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($sel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8555	8657	
==>me; "\"$n\"";
}
sub PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3930	4027	
==>ead1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBU <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3930	4027	
==>ead1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5454	5551	
==>ead1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBU <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1500	1604	
==>ently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1500	1604	
==>ently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9769	9871	
==>rray { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @tai <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9769	9871	
==>rray { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @tai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2300	2419	
==>metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2300	2419	
==>metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2300	2419	
==>metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18187	18296	
==>ls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $where eq "" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3287	3416	
==>ument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3287	3416	
==>ument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3287	3416	
==>ument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1304	1407	
==>or my $s (@scr) { $tot += GolfScore($s) }
   print "You shot a round of $tot strokes.\n";
}

sub BuildFi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5607	5814	
==>ey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5607	5814	
==>ey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5607	5814	
==>ey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( define <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2688	2815	
==>Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int mul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7516	7678	
==>: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7516	7678	
==>: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	807	901	
==>ocale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message cla <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	807	901	
==>ocale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message cla <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15233	15339	
==>words {  # see 11.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <S <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1943	2090	
==>xtension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2472	2594	
==>ance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2472	2594	
==>ance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2472	2594	
==>ance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9993	10108	
==>{
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9993	10108	
==>{
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9993	10108	
==>{
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print S <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22310	22413	
==>p = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $len <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39586	39675	
==>ddress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24309	24398	
==>ddress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39586	39675	
==>ddress comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24309	24398	
==>ddress comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12345	12439	
==>esc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12403	12497	
==>esc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $des <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37608	37699	
==>ate_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Pe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37608	37699	
==>ate_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15856	15971	
==>DE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15856	15971	
==>DE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    op <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	852	954	
==>"not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	852	954	
==>"not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	852	954	
==>"not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pai <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2254	2364	
==>or input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);. <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2254	2364	
==>or input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6409	6521	
==>d union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9886	9998	
==>d union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6587	6693	
==>K", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6587	6693	
==>K", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19030	19141	
==>tine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19030	19141	
==>tine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17789	17882	
==>ozilla/1.2';

=item $h.server

The server header field contains information about the software <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17789	17882	
==>ozilla/1.2';

=item $h.server

The server header field contains information about the software <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18004	18112	
==>'s first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	558	656	
==>n Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	558	656	
==>n Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	558	656	
==>n Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3079	3219	
==>ins( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3079	3219	
==>ins( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16494	16594	
==>l be chopped off and returned as a separate value if in
an array context.  If there is no such header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16494	16594	
==>l be chopped off and returned as a separate value if in
an array context.  If there is no such header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6918	7056	
==>1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6918	7056	
==>1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6918	7056	
==>1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20816	20916	
==>bing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19733	19833	
==>bing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20816	20916	
==>bing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19733	19833	
==>bing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	994	1096	
==>c?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1052	1154	
==>c?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	499	601	
==>en;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	499	601	
==>en;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18168	18264	
==>eady used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18168	18264	
==>eady used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4067	4171	
==>e; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4067	4171	
==>e; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4067	4171	
==>e; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1801	1900	
==>right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brack <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2514	2645	
==>or::new;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $acc->{$_}->{allow} } keys %$a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	128	230	
==>the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	128	230	
==>the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	128	230	
==>the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13099	13193	
==>tructures (hash refs, array refs, scalars),
which is suitable as a generic data interchange for <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18194	18288	
==>tructures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13099	13193	
==>tructures (hash refs, array refs, scalars),
which is suitable as a generic data interchange for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18194	18288	
==>tructures (hash refs,
array refs, scalars), which is suitable as a generic data interchange
for <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	160	259	
==>:Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &cont <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	160	259	
==>:Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &cont <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33745	33841	
==>age like English or French.  The order of these items corresponds to
an individual user's (or use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33745	33841	
==>age like English or French.  The order of these items corresponds to
an individual user's (or use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1926	2029	
==>ring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1926	2029	
==>ring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1926	2029	
==>ring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Stri <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7656	7748	
==>XXX - can free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3922	4048	
==>ptimize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12443	12540	
==>ze the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12443	12540	
==>ze the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12443	12540	
==>ze the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9207	9312	
==>) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9207	9312	
==>) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9764	9868	
==>) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9764	9868	
==>) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_ <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	146	247	
==>ple Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESCRIPTION

This purpose <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18744	18839	
==>QL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error-p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18744	18839	
==>QL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error-p <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1574	1684	
==>elib     => $config); 

    $config->{perl5path} = $^X;
    $config->{pugspath}  =
      File::Spec->catfile($c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	41	141	
==>nt $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	41	141	
==>nt $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	41	141	
==>nt $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4677	4774	
==>in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in order to c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4597	4689	
==>lf.intersection( $set.complement );
}

# --------- arithmetic and list operations ----------- <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4597	4689	
==>lf.intersection( $set.complement );
}

# --------- arithmetic and list operations ----------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4562	4717	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4562	4717	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4562	4717	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4413	4507	
==>o->add_package_to_index(package => $pkg)

Adds a package to all necessary index files.

=cut

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12189	12345	
==>emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capture( '$nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8849	8944	
==>prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8849	8944	
==>prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8849	8944	
==>prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8169	8314	
==>k) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pref <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4529	4674	
==>k) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5378	5523	
==>k) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pref <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1560	1651	
==>for pluggable regular expression
engines.  It affects all regular expressions I<defined> wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1130	1227	
==>^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1130	1227	
==>^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1130	1227	
==>^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9321	9436	
==>dn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9321	9436	
==>dn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9321	9436	
==>dn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4070	4178	
==>vis = join "", map($_->visual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3143	3268	
==>\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3143	3268	
==>\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3143	3268	
==>\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     ' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6948	7100	
==>on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    require File::stat;
    
    my $file;
    my $tmpl = {
        f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2400	2501	
==>ext(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integratio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2400	2501	
==>ext(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integratio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2400	2501	
==>ext(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integratio <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2541	2636	
==>et $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2541	2636	
==>et $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2064	2158	
==>d chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2064	2158	
==>d chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2064	2158	
==>d chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15184	15291	
==>t;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $dige <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15184	15291	
==>t;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $dige <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10011	10126	
==>10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10011	10126	
==>10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10011	10126	
==>10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = ev <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17812	17906	
==>1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22276	22380	
==>$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	564	664	
==>--
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	564	664	
==>--
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	564	664	
==>--
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11878	11967	
==>o_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11878	11967	
==>o_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11878	11967	
==>o_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9217	9316	
==>JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9217	9316	
==>JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9217	9316	
==>JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3009	3104	
==>=~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3009	3104	
==>=~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acce <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3009	3104	
==>=~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acce <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8556	8644	
==>([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x", p5_mo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3190	3416	
==>,
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->create('$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	655	748	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	655	748	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	655	748	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.p <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16319	16421	
==>l pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = optable."parse"(mob)
    .r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1514	1602	
==>generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1514	1602	
==>generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1514	1602	
==>generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5710	5875	
==>= undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5710	5875	
==>= undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5710	5875	
==>= undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25926	26020	
==>over 4

=item C<HARNESS_ACTIVE>

Harness sets this before executing the individual tests.  This <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2865	2973	
==>1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2343	2445	
==>core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2343	2445	
==>core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2343	2445	
==>core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'globa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4997	5105	
==>1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1544	1642	
==>a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1544	1642	
==>a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1544	1642	
==>a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7719	7822	
==>solved)');

# resolve the class and pull in all the roles
$FooBar->resolve();

is_deeply(
    [ sort $Fo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5761	5856	
==>', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scop <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5761	5856	
==>', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scop <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2660	2755	
==>', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scop <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2327	2428	
==>ing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any t <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2327	2428	
==>ing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2215	2308	
==>pher API's functional interface is perhaps the easiest one that allows 
for continuous cipheri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2215	2308	
==>pher API's functional interface is perhaps the easiest one that allows 
for continuous cipheri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5872	5998	
==>ource) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5872	5998	
==>ource) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5872	5998	
==>ource) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	240	352	
==>base 'type';

sub new {
    my ($class, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39836	39930	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39836	39930	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39836	39930	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::N <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7308	7390	
==>_condition_test(Rk), p5_concatenation(R1), p5_condition_alternative(R2).
p5_conditi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10669	10794	
==>);
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_MET <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10669	10794	
==>);
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_MET <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10669	10794	
==>);
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_MET <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	976	1073	
==>lehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject to cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2449	2544	
==>->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2449	2544	
==>->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2449	2544	
==>->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8995	9131	
==>". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8995	9131	
==>". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8995	9131	
==>". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14316	14416	
==>$P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "PGE::Ma <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12507	12639	
==>$shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4222	4322	
==>PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4222	4322	
==>PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4222	4322	
==>PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13889	13997	
==>ions are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mos <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17366	17474	
==>ions are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mos <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16746	16854	
==>ions are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mos <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3759	3860	
==>cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22168	22378	
==>"FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22168	22378	
==>"FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22168	22378	
==>"FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$me <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1836	1986	
==>die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status dir like dpkg
    my $postrm = $meta . '/ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4108	4206	
==>stPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4108	4206	
==>stPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5632	5730	
==>stPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27524	27684	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27803	27963	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20394	20488	
==>f Relation is entirely object-oriented; you use it by
creating objects from its member classes, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24946	25040	
==>f Relation is entirely object-oriented; you use it by
creating objects from its member classes, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4537	4634	
==>[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4537	4634	
==>[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4537	4634	
==>[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]-> <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3957	4060	
==>-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) { <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3957	4060	
==>-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) { <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14416	14516	
==>it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14474	14574	
==>it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2487	2608	
==>d;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2487	2608	
==>d;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2487	2608	
==>d;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1524	1619	
==>errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18795	18966	
==>son};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output counter mismatch [test $curr]\n";
    }
    els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17044	17149	
==>AME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17044	17149	
==>AME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17044	17149	
==>AME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2770	3032	
==>{
                    $in_block = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2439	2537	
==>ES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2439	2537	
==>ES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2439	2537	
==>ES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18378	18501	
==>et('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21637	21760	
==>et('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41643	41766	
==>et('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44544	44667	
==>et('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&disp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	899	1052	
==>pt ] );                
            }
            elsif ( $opt->{precedence} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5426	5521	
==>>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Reco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5426	5521	
==>>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Reco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5426	5521	
==>>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Reco <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9861	9966	
==>g to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	297	399	
==>g to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	297	399	
==>g to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18837	19031	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19116	19310	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17906	18099	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18185	18378	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3671	3786	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3671	3786	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3671	3786	
==>patcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $la <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5824	5934	
==>s export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5824	5934	
==>s export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	888	996	
==>statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	888	996	
==>statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21077	21193	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17498	17614	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14119	14214	
==>nnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14119	14214	
==>nnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1542	1684	
==>rride => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	405	529	
==>$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	405	529	
==>$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	405	529	
==>$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5982	6142	
==>tring'),
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string'),
                Val->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2947	3061	
==>? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2947	3061	
==>? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2947	3061	
==>? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7362	7467	
==>es = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7362	7467	
==>es = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17524	17619	
==>ution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17524	17619	
==>ution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3218	3397	
==>= 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3218	3397	
==>= 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3218	3397	
==>= 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16591	16691	
==>oin( $other );
}

multi method join (Relation::Example *@others) returns Relation::Example {

    # F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	343	468	
==>sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	378	503	
==>sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	343	468	
==>sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9556	9681	
==>sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12091	12232	
==>t =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = Grammar::Perl6::i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4750	4848	
==>s parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4750	4848	
==>s parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6947	7045	
==>s parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13803	13936	
==>_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13803	13936	
==>_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # T <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2113	2206	
==>d2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfi <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2113	2206	
==>d2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9638	9756	
==>max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_si <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9638	9756	
==>max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_si <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9638	9756	
==>max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_si <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1402	1543	
==>= $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4641	4782	
==>= $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1402	1543	
==>= $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4641	4782	
==>= $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3419	3551	
==>was available.

=cut

sub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14482	14574	
==>:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14482	14574	
==>:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14482	14574	
==>:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2280	2396	
==>Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Reques <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2280	2396	
==>Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Reques <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25579	25679	
==>ition being reported, if it is used
as an exception payload).  The key is intended to be read by a ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25579	25679	
==>ition being reported, if it is used
as an exception payload).  The key is intended to be read by a ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5138	5238	
==>> 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Com <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4960	5057	
==>> 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Com <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8734	8823	
==>Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Editi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8734	8823	
==>Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Editi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4631	4733	
==>/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-I <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10122	10223	
==>PSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10122	10223	
==>PSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10193	10291	
==>== '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41786	41960	
==>ew('BUILD'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_ni <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11576	11679	
==>it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8723	8826	
==>it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11576	11679	
==>it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8723	8826	
==>it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11860	11980	
==>}
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11860	11980	
==>}
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11860	11980	
==>}
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	277	388	
==>@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2172	2289	
==>ig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7862	7964	
==>re Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ], <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7862	7964	
==>re Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ], <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7862	7964	
==>re Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ], <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29085	29177	
==>rk> for
the underlying timing routines, and L<Devel::Cover> for test coverage
analysis.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7475	7562	
==>] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7475	7562	
==>] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7475	7562	
==>] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17761	17910	
==>b_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17761	17910	
==>b_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value', <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2551	2646	
==>>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modifie <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2551	2646	
==>>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14035	14166	
==>e {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14035	14166	
==>e {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1269	1364	
==>are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1269	1364	
==>are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5384	5491	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5577	5684	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15280	15382	
==>class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15280	15382	
==>class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9003	9101	
==>rpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1184	1281	
==>$cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1184	1281	
==>$cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1184	1281	
==>$cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is p <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3469	3633	
==>iptions<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notify (String $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2016	2143	
==>defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2016	2143	
==>defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2016	2143	
==>defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	619	758	
==>r,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	824	963	
==>r,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	880	1019	
==>r,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2068	2179	
==>("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2068	2179	
==>("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6283	6381	
==>ml($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a c <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6283	6381	
==>ml($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2425	2523	
==>.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2425	2523	
==>.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2425	2523	
==>.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new P <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1169	1304	
==>pute_digest {
    my $self = shift;
        my $sha1 = Digest->new("SHA-1");

        {
			local $SIG{__WARN__} = sub { };
            l <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18289	18401	
==>al(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12	105	
==>erl
my $optable = new P6RulesInP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20092	20183	
==>I SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20092	20183	
==>I SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20092	20183	
==>I SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1823	1927	
==>>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1823	1927	
==>>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1823	1927	
==>>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box. <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	512	613	
==>ym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple concatena <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4216	4331	
==>equired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4216	4331	
==>equired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4216	4331	
==>equired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2031	2137	
==>], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub no <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1102	1226	
==>head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (& <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1102	1226	
==>head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (& <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	308	419	
==>code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	308	419	
==>code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6038	6142	
==>X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\\A".
p5_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1335	1435	
==>e, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1335	1435	
==>e, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1335	1435	
==>e, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1209	1310	
==>>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21030	21125	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21030	21125	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21030	21125	
==>_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	417	531	
==>litpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	417	531	
==>litpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16215	16311	
==>ta.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_sub <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20641	20737	
==>ta.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16959	17112	
==>e);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13380	13533	
==>e);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19506	19597	
==>system catalog relation variables rather than user-defined
relation variables.  In SQL terms <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19506	19597	
==>system catalog relation variables rather than user-defined
relation variables.  In SQL terms <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1305	1418	
==>rn $S->object(bound => nbound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2182	2275	
==>,
		struct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondie::Bac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7457	7543	
==>ake_method($_collect_all_roles));

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7457	7543	
==>ake_method($_collect_all_roles));

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7457	7543	
==>ake_method($_collect_all_roles));

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17223	17354	
==>AD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17223	17354	
==>AD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17223	17354	
==>AD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3117	3225	
==>t "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[7] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9633	9761	
==>e and comments


  ### '$'

  $self->add_handler('$' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \$ }xgc) {
      my $n = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	815	926	
==>time(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce($as <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4546	4646	
==>ted as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4

= <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4546	4646	
==>ted as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12948	13095	
==>ule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12942	13089	
==>ule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$gramma <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6605	6702	
==>indices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my <==
4	/Users/nnunley/pugs/util/grokprims.pl	2192	2286	
==></td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td>";
  print "<td>(< <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6268	6412	
==>hild;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gather_resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1610	1719	
==>,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1610	1719	
==>,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1610	1719	
==>,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	595	715	
==>turn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	595	715	
==>turn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	595	715	
==>turn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1015	1116	
==>goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot% <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1958	2078	
==>nt 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "cd.iso";

sub usage { print <<USAGE; exit }
Usage: $0 [o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6227	6321	
==>han 
a helper to other functions.  

=cut

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6227	6321	
==>han 
a helper to other functions.  

=cut

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6227	6321	
==>han 
a helper to other functions.  

=cut

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4145	4262	
==>wd::cwd()) eq $base_path ) {
        delete $args{prefix};
    }

    return $args{_self} if $args{_self};

    $args{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3214	3311	
==>ot yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3214	3311	
==>ot yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3214	3311	
==>ot yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1749	1863	
==>lowing were included only for performance reasons,

# because they are too frequent and they are too slow using the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	352	465	
==>lowing were included only for performance reasons,
# because they are too frequent and they are too slow using the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1677	1790	
==>lowing were included only for performance reasons,
# because they are too frequent and they are too slow using the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	363	476	
==>lowing were included only for performance reasons,
# because they are too frequent and they are too slow using the <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19779	19909	
==>e = IO::File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $outfile->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	144	241	
==>um - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	144	241	
==>um - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	144	241	
==>um - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1283	1413	
==>tination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1087	1178	
==>timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1087	1178	
==>timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1087	1178	
==>timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8493	8632	
==>def' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8493	8632	
==>def' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8493	8632	
==>def' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4108	4201	
==>-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/perl6> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7669	7796	
==>($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !defined $ra->[$i] && !defined $rb- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1501	1606	
==>,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub ab <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1501	1606	
==>,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub ab <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1501	1606	
==>,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub ab <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5270	5395	
==>( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5270	5395	
==>( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2992	3090	
==>c, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_f <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3050	3148	
==>c, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21306	21400	
==>odules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrij <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21306	21400	
==>odules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrij <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	784	875	
==>Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	784	875	
==>Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	808	915	
==>ft)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	808	915	
==>ft)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	808	915	
==>ft)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1181	1278	
==>an

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6-Me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	570	720	
==>@s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	658	808	
==>@s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	655	800	
==>@s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	ret <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18309	18399	
==>_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5000	5109	
==>};
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5000	5109	
==>};
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5000	5109	
==>};
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(co <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	192	299	
==>port();
}

@ARGV or die 'Need at least one package';

for my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3063	3163	
==>rt needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3063	3163	
==>rt needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3063	3163	
==>rt needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2 <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	370	467	
==>btract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Duration {
    #$self. <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	724	849	
==>te), :second($second),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8601 ) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3458	3555	
==>xpand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3458	3555	
==>xpand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3458	3555	
==>xpand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8097	8217	
==>he the hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	730	830	
==>S.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	730	830	
==>S.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	730	830	
==>S.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3285	3420	
==>=> $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3478	3613	
==>=> $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7008	7118	
==>);

## create some roles
my $rFoo = $Role->new(
    '$:name' => 'rFoo',
    '%:methods' => { foo => sub { 'rFoo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8524	8694	
==>>{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8524	8694	
==>>{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22969	23067	
==>he Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27521	27619	
==>he Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Ea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16475	16668	
==>rray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16475	16668	
==>rray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16475	16668	
==>rray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9702	9805	
==>h it reaches, pass walker()
an argument:

  my $iter = $parser->walker(0);  # top-level
  my $iter = $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2696	2809	
==>_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2696	2809	
==>_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2696	2809	
==>_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	959	1067	
==>}

package method::signature;

use strict;
use warnings;

use base 'closure::signature';

package method::par <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20476	20588	
==>join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	672	776	
==>methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	672	776	
==>methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	672	776	
==>methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2166	2272	
==>elf);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2166	2272	
==>elf);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $chil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17955	18050	
==>ED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17955	18050	
==>ED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10017	10121	
==>multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10017	10121	
==>multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	513	614	
==>else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	513	614	
==>else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2357	2462	
==>rect.
    $path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_module {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1953	2053	
==>Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1953	2053	
==>Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1953	2053	
==>Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      P <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11667	11812	
==>sh @{$test{failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $deta <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2950	3057	
==>eturn $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('value <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4771	4891	
==>ashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4771	4891	
==>ashref
      # which has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4268	4382	
==>ashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4268	4382	
==>ashref which has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24258	24382	
==>? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24258	24382	
==>? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24258	24382	
==>? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0] <==
4	/Users/nnunley/pugs/util/testgraph.pl	1093	1188	
==>--cssfile,  -c FILE  location of css. [default: $Config{cssfile}]

See also:
   util/yaml_harnes <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38563	38659	
==>r example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38563	38659	
==>r example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29694	29787	
==>generic relational operator that returns a new Relation::Example
which has a subset of the ori <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34912	35005	
==>generic relational operator that returns a new Relation::Example
which has a subset of the ori <==
4	/Users/nnunley/pugs/util/package-osx.pl	2062	2170	
==>5.8.6/Class/Rebless.pm
        /usr/local/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3599	3697	
==>ext/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3599	3697	
==>ext/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3599	3697	
==>ext/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C// <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22786	22894	
==>channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21613	21721	
==>channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22786	22894	
==>channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21613	21721	
==>channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	896	1000	
==>fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we'v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	896	1000	
==>fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we'v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	896	1000	
==>fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we'v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2858	2964	
==>subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2858	2964	
==>subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2858	2964	
==>subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4280	4384	
==>e . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5177	5281	
==>e . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4280	4384	
==>e . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5177	5281	
==>e . and ..
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..' <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4184	4308	
==>e_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my %pad = $tree[1];  # keys: "isInvo <==
4	/Users/nnunley/pugs/util/func_refact.pl	521	633	
==>about as components are computed.
END
    exit 0;
}
 
our $nodes = YAML::LoadFile($Conf{nodes}) or
        die "c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1302	1406	
==>xport
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1302	1406	
==>xport
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1382	1486	
==>xport
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7371	7469	
==>.

- "plain" match operators: like 'literal'.



Higher order operators take a list of match operat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33447	33544	
==>first library should
appear first in the array.  Each Set Name can be any defined and non-empty
st <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33447	33544	
==>first library should
appear first in the array.  Each Set Name can be any defined and non-empty
st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7121	7216	
==>.
- "plain" match operators: like 'literal'.

Higher order operators take a list of match operat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11646	11751	
==>nedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11646	11751	
==>nedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11646	11751	
==>nedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ar <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5232	5335	
==>);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8796	8902	
==>"";
    #$type." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14560	14646	
==>ibute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14560	14646	
==>ibute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14560	14646	
==>ibute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribut <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3945	4054	
==>something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical vari <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3957	4066	
==>something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10555	10702	
==>.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10555	10702	
==>.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10555	10702	
==>.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17088	17232	
==>(.{1,50}).*)/;
        $name .= '...' if length $first_line > length $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8944	9077	
==>trs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8944	9077	
==>trs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8944	9077	
==>trs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5583	5694	
==>) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5485	5582	
==>roper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4615	4712	
==>roper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5485	5582	
==>roper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4615	4712	
==>roper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13978	14130	
==>n;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test($line, \%test);

Ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1429	1537	
==>ate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1429	1537	
==>ate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1429	1537	
==>ate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9918	10074	
==>},
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9918	10074	
==>},
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9918	10074	
==>},
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6254	6356	
==>->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special c <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9658	9854	
==>m->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6123	6283	
==>},
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6123	6283	
==>},
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6123	6283	
==>},
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1064	1185	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1064	1185	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1064	1185	
==>GV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13563	13654	
==>}.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {numbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2461	2571	
==>S - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2461	2571	
==>S - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2461	2571	
==>S - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20868	20960	
==>CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22364	22505	
==>ax_namelen = length($failed_str);
            $Columns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3038	3136	
==>S.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3038	3136	
==>S.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3038	3136	
==>S.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::di <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2148	2282	
==>XX split depends: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3214	3340	
==>$val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3214	3340	
==>$val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3513	3639	
==>XX split depends: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7037	7166	
==>nd =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6:: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7037	7166	
==>nd =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13113	13209	
==>nt of
a message.  All header field names prefixed with C<Content-> falls
into this category, as w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13113	13209	
==>nt of
a message.  All header field names prefixed with C<Content-> falls
into this category, as w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14307	14441	
==>c} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14307	14441	
==>c} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we ha <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17233	17334	
==>e` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17233	17334	
==>e` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infi <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1731	1857	
==>catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1731	1857	
==>catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5208	5315	
==>ft;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5208	5315	
==>ft;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5208	5315	
==>ft;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20412	20509	
==>en abstracted to the ender() method of the node.

The init() method has been moved to another file <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4448	4551	
==>aml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12422	12524	
==>ntent.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($cl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12422	12524	
==>ntent.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4295	4396	
==>aml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5347	5534	
==>s.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8824	9011	
==>s.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7844	8031	
==>s.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set o <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2425	2532	
==>when you say add_subscription("foo", ...) then "foo" is the name of the subscription
        method add_subs <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	304	446	
==>( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        fil <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4189	4309	
==>awName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4189	4309	
==>awName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1039	1159	
==>awName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6219	6344	
==>""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pa <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5799	5903	
==>>parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Un <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5281	5385	
==>>parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Un <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5311	5404	
==>i sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
multi sub ToBoolean(JSX::Value::Undefined $v) { J <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1778	1912	
==>)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5985	6095	
==>_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6178	6288	
==>_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5985	6095	
==>_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6178	6288	
==>_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5104	5209	
==>rectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5104	5209	
==>rectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5104	5209	
==>rectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26755	26846	
==>C<HARNESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test::Harne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1512	1642	
==>= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= { attribute => [
                [ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1466	1569	
==>b dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide an explicit true/false v <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	939	1041	
==>ll fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	939	1041	
==>ll fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	442	580	
==>{ 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	424	557	
==>{ 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4708	4821	
==>") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4708	4821	
==>") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11147	11297	
==>w('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11147	11297	
==>w('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11147	11297	
==>w('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11226	11356	
==>$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{vis} };
  }

  sub type { <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	312	428	
==>'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYI <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1170	1286	
==>'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6941	7046	
==>');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6941	7046	
==>');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6941	7046	
==>');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2649	2754	
==>tion:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1,1);
#}

# copied from S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5735	5878	
==>keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6584	6727	
==>keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	204	303	
==>e Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_rang <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	204	303	
==>e Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_rang <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1670	1834	
==>ady absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1670	1834	
==>ady absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	162	266	
==>from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	162	266	
==>from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7244	7389	
==>p {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7244	7389	
==>p {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7244	7389	
==>p {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->c <==
4	/Users/nnunley/pugs/util/package-osx.pl	1848	1937	
==>erl5/site_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs.pl
        /usr/local/lib/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1148	1253	
==>from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1148	1253	
==>from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1148	1253	
==>from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31243	31343	
==>as branches (like C<|>).

=item family

The general family of this object.

=item data

The data or c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2459	2605	
==>expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2459	2605	
==>expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2459	2605	
==>expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27511	27609	
==>s the object definitions for F<Regexp::Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4462	4551	
==>::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4462	4551	
==>::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4462	4551	
==>::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9980	10157	
==>nature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9980	10157	
==>nature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9980	10157	
==>nature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26554	26647	
==>creates a node of package C<TYPE> and sends the constructor whatever
other arguments are inclu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5208	5350	
==>{
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5208	5350	
==>{
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2-> <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3885	3979	
==>neral or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
yo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3885	3979	
==>neral or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5010	5105	
==>"MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_ed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5010	5105	
==>"MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_ed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5010	5105	
==>"MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_ed <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1860	1951	
==>g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re_varname}) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4558	4662	
==>all string operators have alphabetic names, so tr/a-z// is true)
        # This will also show numbers fo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3562	3658	
==>PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3562	3658	
==>PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21998	22085	
==>e-number versions of Relation::Example::Heading
and Relation::Example::Tuple.

=head1 SY <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9226	9337	
==>'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9226	9337	
==>'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9226	9337	
==>'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12615	12723	
==>CURLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 Standard Warnings and Errors

Here are th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7811	7904	
==>e) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7811	7904	
==>e) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7811	7904	
==>e) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	531	625	
==>s JSX::InternalValue;
class JSX::InternalValue::List       is JSX::InternalValue;
class JSX::In <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14894	15032	
==>mmar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15173	15311	
==>mmar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11284	11389	
==>_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11284	11389	
==>_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22963	23144	
==>( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23242	23423	
==>( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	882	1003	
==>join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	882	1003	
==>join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1018	1140	
==>rgs->{dir}': $@"] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12163	12261	
==>package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1957	2094	
==>or ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor object, blessed in the right <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35793	35915	
==>ing -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35793	35915	
==>ing -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35793	35915	
==>ing -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9529	9648	
==>om_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9529	9648	
==>om_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_nam <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	792	895	
==>s;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	792	895	
==>s;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6763	6882	
==>=> chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6763	6882	
==>=> chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => c <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	125	216	
==>e $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Boo <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	125	216	
==>e $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14258	14488	
==>ap->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14258	14488	
==>ap->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	738	839	
==>nd $prev eq "base" and $curr ne "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($leve <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5085	5182	
==>t>

=item B<length () returns num>

=item B<elem () returns num>

=item B<join (?str) returns str> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1869	1997	
==>subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $sup <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6638	6743	
==>rnel_uri => $kernel_local };

step
  descr  => "Checking for Pugs binary",
  help   => "Compile Pugs if yo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10326	10425	
==>on)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You mig <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10326	10425	
==>on)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You mig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	834	946	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	834	946	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	834	946	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	197	295	
==>greek letters and unicode symbols, or type literals

# second part is the object model for a lambda <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32265	32360	
==>relations, the result is the same regardless of
which is the invocant and which is the argument. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36815	36910	
==>relations, the result is the same regardless of
which is the invocant and which is the argument. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36105	36200	
==>relations, the result is the same regardless of
which is the invocant and which is the argument. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	848	990	
==>);
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => '*',
    );

    _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16802	16921	
==>ol::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16802	16921	
==>ol::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16802	16921	
==>ol::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16238	16387	
==>$self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16238	16387	
==>$self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16238	16387	
==>$self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2876	2992	
==>ub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2876	2992	
==>ub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2876	2992	
==>ub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8897	9012	
==>>{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8586	8698	
==>>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	469	580	
==>sult is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1327	1438	
==>sult is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21728	21825	
==>unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20609	20706	
==>unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21728	21825	
==>unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20609	20706	
==>unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3436	3559	
==>lf.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3436	3559	
==>lf.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3436	3559	
==>lf.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] : <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7696	7785	
==>d(R)).
p5_condition_test(lookbehind_not(R)) --> p5_elemental(lookbehind_not(R)).
p5_condit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5236	5366	
==>for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5236	5366	
==>for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5826	5956	
==>for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9350	9454	
==>pen(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8642	8782	
==>p{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8642	8782	
==>p{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8642	8782	
==>p{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5791	5916	
==>d values are this:

    bonus           Number of individual todo tests unexpectedly passed
    max             Number of indi <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1923	2017	
==>ll, with that informative but utterly confusing synopsis, you should
be left with nothing but q <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1923	2017	
==>ll, with that informative but utterly confusing synopsis, you should
be left with nothing but q <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	77	164	
==>does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Medi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	77	164	
==>does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Medi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9434	9605	
==>r my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6443	6547	
==>nboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6443	6547	
==>nboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6443	6547	
==>nboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unbo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1778	1910	
==>age '". $self->package ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12195	12298	
==>found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12195	12298	
==>found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12195	12298	
==>found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $metho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	157	341	
==>b ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6649	6742	
==>ail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6649	6742	
==>ail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6649	6742	
==>ail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserv <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	101	211	
==>aufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 secti <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	102	212	
==>aufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 secti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8233	8334	
==>ent {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<objec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8233	8334	
==>ent {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5955	6090	
==>$attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5955	6090	
==>$attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5955	6090	
==>$attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{meth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	637	743	
==>pe";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	604	702	
==>blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	604	702	
==>blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	604	702	
==>blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4655	4770	
==>perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4795	4910	
==>perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31439	31534	
==>ple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35989	36084	
==>ple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12005	12115	
==>e the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traff <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12005	12115	
==>e the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traff <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1493	1599	
==>($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1493	1599	
==>($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	482	582	
==>S using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	482	582	
==>S using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	482	582	
==>S using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	845	937	
==>D__

# this code was shamelessly swiped from:
# - http://mail.python.org/pipermail/python-lis <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7105	7211	
==>=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7105	7211	
==>=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3299	3388	
==>print_ast,
		print_program => $interface::print_program,
		print_match => $interface::prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3516	3605	
==>print_ast,
		print_program => $interface::print_program,
		print_match => $interface::prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2662	2777	
==>hod($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2662	2777	
==>hod($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2662	2777	
==>hod($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1331	1449	
==>joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1331	1449	
==>joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7656	7763	
==>ze} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7656	7763	
==>ze} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8551	8653	
==>or(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8551	8653	
==>or(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8551	8653	
==>or(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13256	13370	
==>comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13256	13370	
==>comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1266	1359	
==>RC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1266	1359	
==>RC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20132	20229	
==>adonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19091	19188	
==>adonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20132	20229	
==>adonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19091	19188	
==>adonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server was se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2946	3062	
==>tringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2946	3062	
==>tringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2946	3062	
==>tringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13008	13138	
==>my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13008	13138	
==>my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13008	13138	
==>my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1893	2023	
==>my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4350	4460	
==>);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4350	4460	
==>);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

mult <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5223	5330	
==>);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5223	5330	
==>);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4201	4311	
==>defined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4201	4311	
==>defined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4201	4311	
==>defined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1203	1305	
==>::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1203	1305	
==>::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1203	1305	
==>::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%P <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1144	1406	
==>s an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1144	1406	
==>s an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module R <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2498	2594	
==>y $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pr <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2498	2594	
==>y $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1094	1192	
==>e;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1094	1192	
==>e;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4404	4498	
==>but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eva <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4251	4344	
==>but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eva <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7172	7272	
==>$o->mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eater_for_re('\S') if $re eq '\S';
    di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	734	830	
==>pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	734	830	
==>pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	734	830	
==>pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelu <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1397	1511	
==>&& ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16870	16967	
==>ss->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16870	16967	
==>ss->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16870	16967	
==>ss->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7750	7880	
==>ot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `find $parrot_path/run <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6391	6488	
==>TI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6391	6488	
==>TI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6391	6488	
==>TI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2124	2236	
==>ode", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my % <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2124	2236	
==>ode", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my % <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1100	1201	
==>ne if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by ch <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1100	1201	
==>ne if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by ch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3821	3910	
==>or(Params::Check->last_error), return;

    if (-e $self->pool->file(file($pkg->file)->bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	936	1043	
==>ap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	936	1043	
==>ap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	936	1043	
==>ap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	991	1096	
==>sub set_as_failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set_str {my($o,$s)=@_;$$o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36405	36499	
==>ate module
names that it will search.

=item C<translate_message( $message! )>

This method tak <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36405	36499	
==>ate module
names that it will search.

=item C<translate_message( $message! )>

This method tak <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14958	15050	
==>he
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Na <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14958	15050	
==>he
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Na <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	329	451	
==>} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAM <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	329	451	
==>} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAM <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19549	19642	
==>nned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19549	19642	
==>nned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2393	2492	
==>($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2393	2492	
==>($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2393	2492	
==>($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1256	1360	
==>quire $ident;\n";
}
sub node::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6769	6870	
==>or &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6769	6870	
==>or &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6769	6870	
==>or &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	67	177	
==>ule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	67	177	
==>ule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1091	1189	
==>Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1091	1189	
==>Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2654	2751	
==>$run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2654	2751	
==>$run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2654	2751	
==>$run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fil <==
4	/Users/nnunley/pugs/util/package-osx.pl	2107	2196	
==>/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_perl/P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8759	8863	
==>what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" lev <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8469	8570	
==>what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" lev <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1175	1266	
==>y ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1175	1266	
==>y ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extract <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3218	3373	
==>s = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3218	3373	
==>s = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3218	3373	
==>s = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	229	329	
==>(-e catfile($Path, $SID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '';
    SessionDecode(slurp(c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13595	13709	
==>eading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17072	17186	
==>eading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16434	16548	
==>eading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7393	7577	
==>d_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7393	7577	
==>d_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7393	7577	
==>d_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	300	408	
==>_;
    (blessed($env) && $env->isa('closure::env'))
        || confess "env must be a closure::env";
    (ref <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1957	2058	
==>+Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1957	2058	
==>+Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	662	757	
==>$node->isa("Blondie::Node")
		or die "it doesn't look like $node is a piece of a Blondie program <==
4	/Users/nnunley/pugs/util/package-osx.pl	6704	6801	
==>:Subroutine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4494	4577	
==>p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4494	4577	
==>p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4494	4577	
==>p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31334	31519	
==>i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31334	31519	
==>i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31334	31519	
==>i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9961	10130	
==>t( $n->{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_bind <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8186	8293	
==>0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_parent} || "../");
    $templ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8069	8169	
==>ge interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8069	8169	
==>ge interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8069	8169	
==>ge interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11450	11588	
==>vious( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.curren <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11450	11588	
==>vious( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.curren <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1888	1985	
==>e still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<want <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1888	1985	
==>e still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<want <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3093	3247	
==>[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3093	3247	
==>[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6059	6164	
==>pture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to pos <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5866	5967	
==>pture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to pos <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18759	18855	
==>normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18759	18855	
==>normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20691	20779	
==>plemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20691	20779	
==>plemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evo <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5480	5610	
==>n ranlib.
    system($ar, s => $a_file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_v <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5674	5772	
==>est plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5674	5772	
==>est plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7198	7296	
==>est plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10161	10290	
==>.
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10161	10290	
==>.
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10161	10290	
==>.
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $meth <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4520	4620	
==>11.

Inherits Unit.

=item Stub

A node that makes the runtime throw a fatal error. Used for thunks t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17004	17115	
==>lf->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	513	621	
==>e_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	513	621	
==>e_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	513	621	
==>e_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24662	24761	
==>ence of what handles (or "rules") to try to match next.

=back

=head2 Devices and Standards

I made <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2357	2466	
==>ool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2357	2466	
==>ool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4220	4321	
==>) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4220	4321	
==>) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8620	8714	
==>y $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8620	8714	
==>y $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8620	8714	
==>y $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sp <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1526	1617	
==>ERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22687	22785	
==>esn't have bugs.  I don't know of any in
this current version, because I've tried to fix those I've <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4733	4827	
==>PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4733	4827	
==>PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4733	4827	
==>PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	304	441	
==>= $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	392	529	
==>= $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( re <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	332	449	
==>o note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect( <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	332	449	
==>o note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect( <==
4	/Users/nnunley/pugs/util/package-osx.pl	7712	7809	
==>tions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Sp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4298	4393	
==>e:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4298	4393	
==>e:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5822	5917	
==>e:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24295	24403	
==>ntrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  another aut <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23068	23176	
==>ntrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  another aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24295	24403	
==>ntrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  another aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23068	23176	
==>ntrolling their
  actions) which are always seen to be replying lest they end up in a loop with
  another aut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2300	2413	
==>params{'$.number'};
            _('$.diagnostic' => '???') unless exists $params{'$.diagnostic'};
        }
    }, <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1586	1713	
==>hfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attrib <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1586	1713	
==>hfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attrib <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9061	9164	
==>le_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9061	9164	
==>le_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	224	353	
==>put;
    has @:diagnostics;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method di <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	917	1026	
==>acter sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo but not x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10651	10900	
==>t->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10651	10900	
==>t->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7050	7151	
==>al operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6810	6906	
==>al operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal ru <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1889	2013	
==>s = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1371	1467	
==>:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1371	1467	
==>:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1371	1467	
==>:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cx <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18632	18742	
==>local pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6ana <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	110	214	
==>> 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	110	214	
==>> 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	110	214	
==>> 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16128	16321	
==>(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16407	16600	
==>(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statemen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10469	10614	
==>(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10748	10893	
==>(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39159	39280	
==>_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39159	39280	
==>_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39159	39280	
==>_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pus <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	771	872	
==>BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is using y <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	771	872	
==>BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is using y <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5551	5648	
==>sirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object ha <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5551	5648	
==>sirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9450	9563	
==>om_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9450	9563	
==>om_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9450	9563	
==>om_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10371	10477	
==>tting your own smoke is easy,
  </p>

  <pre class="indent2">$ make smoke
$ ./util/smokeserv/smokeserv-clie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4723	4850	
==>each my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4723	4850	
==>each my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4723	4850	
==>each my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17362	17452	
==>ionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressionNoIn>
}
rule BitwiseOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	463	595	
==>{
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	463	595	
==>{
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	463	595	
==>{
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1807	1900	
==>xtracted,$remainder) = Text::Balanced::extract_delimited( "'" . $_[0], "'" );
    $extracted = <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1303	1401	
==>($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16 <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1303	1401	
==>($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38224	38319	
==>te text string in
its positional parameter $text (a string), and a Message Variables hash ref
in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38224	38319	
==>te text string in
its positional parameter $text (a string), and a Message Variables hash ref
in <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2857	2957	
==>n32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2857	2957	
==>n32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	453	548	
==>( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	453	548	
==>( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, ou <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10616	10740	
==>(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10616	10740	
==>(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3255	3351	
==>(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mult <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3255	3351	
==>(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	767	894	
==>o 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	767	894	
==>o 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11813	11903	
==><lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11813	11903	
==><lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1295	1430	
==>'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1242	1373	
==>'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	977	1087	
==>atch;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	977	1087	
==>atch;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15400	15586	
==>1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18877	19063	
==>1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	579	668	
==>erl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	579	668	
==>erl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1098	1219	
==>i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4337	4458	
==>i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1098	1219	
==>i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4337	4458	
==>i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1786	1887	
==>file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp syntax conve <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7445	7546	
==>ke a list of match operators, and return a new 

match operator.



A ruleop() function gets as argume <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7192	7290	
==>ke a list of match operators, and return a new 
match operator.

A ruleop() function gets as argume <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5568	5701	
==>on (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5568	5701	
==>on (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5568	5701	
==>on (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fun <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14219	14318	
==>ixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpression><no_L <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3262	3392	
==>$span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3262	3392	
==>$span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	652	766	
==>n $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{down}) {
      Carp::carp("ender() ig <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19385	19489	
==>fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that takes a function and ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2317	2410	
==>ner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2317	2410	
==>ner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2317	2410	
==>ner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
4	/Users/nnunley/pugs/util/testgraph.pl	552	644	
==>ef $yamlfh;

my $tap = My::Model->new_with_struct(delete $data->{meat});
my $v = Test::TAP::H <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2900	2997	
==>lf.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2900	2997	
==>lf.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18743	18838	
==>sociation would normally be
stored in a Perl file that defines and returns an anonymous hash
def <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18743	18838	
==>sociation would normally be
stored in a Perl file that defines and returns an anonymous hash
def <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1039	1174	
==>*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volum <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1039	1174	
==>*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4495	4602	
==>path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($cl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4495	4602	
==>path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($cl <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14728	14823	
==>d.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splashscreen => "$cdroot/boot/splashsc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	698	785	
==>asses([ $::Class ]);

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	698	785	
==>asses([ $::Class ]);

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	698	785	
==>asses([ $::Class ]);

## --------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	387	487	
==>spans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	387	487	
==>spans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == I <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5859	5954	
==>turn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5859	5954	
==>turn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35296	35435	
==>ift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35296	35435	
==>ift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35296	35435	
==>ift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14544	14638	
==>s [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside character classes <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	639	752	
==>sh \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	639	752	
==>sh \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $co <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	64	153	
==>tegies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse: <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	64	153	
==>tegies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2462	2568	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2462	2568	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2462	2568	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15951	16040	
==>tion(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2671	2782	
==>e_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } ) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7765	7876	
==>e_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } ) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2671	2782	
==>e_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } ) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7765	7876	
==>e_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } ) <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1914	2045	
==>IL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1914	2045	
==>IL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20803	20891	
==>odule distribution
with compiled .pmc files. Module::Compile installs a
Module::Install:: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20803	20891	
==>odule distribution
with compiled .pmc files. Module::Compile installs a
Module::Install:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1196	1300	
==>e based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1196	1300	
==>e based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	767	862	
==>idget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $re <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	767	862	
==>idget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	665	783	
==>h = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $ms <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	664	782	
==>h = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	665	783	
==>h = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	664	782	
==>h = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $ms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5859	6052	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->first <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5859	6052	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->first <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5859	6052	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->first <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2103	2229	
==>grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2103	2229	
==>grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1335	1456	
==>grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3196	3317	
==>grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10457	10571	
==>---------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10457	10571	
==>---------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10457	10571	
==>---------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abst <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9900	9994	
==>::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; print $@ if $@;
my $m = "asdf" =~ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10683	10861	
==>ans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10683	10861	
==>ans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5364	5464	
==>argument can
be either a simple string or a reference to a URI object.

You will not be able to exami <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5364	5464	
==>argument can
be either a simple string or a reference to a URI object.

You will not be able to exami <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	422	553	
==>...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1324	1435	
==>//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1324	1435	
==>//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1324	1435	
==>//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XX <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1671	1868	
==>{
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () retur <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1671	1868	
==>{
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () retur <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3786	3955	
==>2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ " <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3786	3955	
==>2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18064	18163	
==>ing user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'K <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18064	18163	
==>ing user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'K <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19730	19825	
==>authorization_basic

This method is used to get or set an authorization header that use the
"Bas <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19730	19825	
==>authorization_basic

This method is used to get or set an authorization header that use the
"Bas <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4500	4635	
==>0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 25 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4500	4635	
==>0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 25 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2402	2515	
==>file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2619	2732	
==>file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2228	2343	
==>_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2228	2343	
==>_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	129	227	
==>arnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtim <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	129	227	
==>arnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtim <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21116	21217	
==>ich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20024	20125	
==>ich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21116	21217	
==>ich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20024	20125	
==>ich is a hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are n <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2633	2747	
==>PREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	949	1048	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	949	1048	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	949	1048	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9937	10054	
==>g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/ht <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9937	10054	
==>g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/ht <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1285	1377	
==>ace for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1285	1377	
==>ace for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2757	2877	
==>b command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2757	2877	
==>b command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2757	2877	
==>b command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1214	1314	
==>::int_size 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter::n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28312	28422	
==>uch as to test that the object's contents look
good at a glance); no attribute values are escaped and you shoul <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35668	35778	
==>uch as to test that the object's contents look
good at a glance); no attribute values are escaped and you shoul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28312	28422	
==>uch as to test that the object's contents look
good at a glance); no attribute values are escaped and you shoul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35668	35778	
==>uch as to test that the object's contents look
good at a glance); no attribute values are escaped and you shoul <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2197	2300	
==>ew( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2197	2300	
==>ew( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recur <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3391	3490	
==>inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4527	4626	
==>inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	940	1060	
==>ile was changed,
    #      so we need to mark as stale some obj files to trigger a rebuild.
    #      The alternative s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4077	4185	
==>w)//s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9397	9501	
==>+ 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Mo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9455	9559	
==>+ 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8161	8287	
==>given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8161	8287	
==>given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8161	8287	
==>given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return " <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26160	26259	
==>1
      <DecimalIntegerLiteral> <!before <DecimalDigit>> #lookahead
}
rule CharacterClass {  # see 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19796	20030	
==>y" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20075	20309	
==>y" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	501	592	
==>his module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	501	592	
==>his module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18193	18287	
==>_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18193	18287	
==>_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18193	18287	
==>_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MU <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7990	8107	
==>.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "un <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8048	8165	
==>.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13973	14064	
==>saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_sav <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13973	14064	
==>saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_sav <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5566	5707	
==>bel = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5389	5525	
==>bel = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2186	2294	
==>name of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2186	2294	
==>name of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15692	15828	
==>num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15692	15828	
==>num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15692	15828	
==>num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    re <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12097	12197	
==>\'EOG');
#\

# at the root we initialize the predefined symbols, and the initial set of generic varia <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	920	1024	
==>rget, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1760	1857	
==>} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist ye <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1760	1857	
==>} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist ye <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1760	1857	
==>} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist ye <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7661	7766	
==>-----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7661	7766	
==>-----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7661	7766	
==>-----------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which w <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4630	4718	
==>ass>|<escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
rule log <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16433	16551	
==>set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $builtin = $self->reduce($bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1148	1245	
==>e that is too close to the main namespace for your tastes, and
you want to rebless everything down <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1148	1245	
==>e that is too close to the main namespace for your tastes, and
you want to rebless everything down <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1148	1245	
==>e that is too close to the main namespace for your tastes, and
you want to rebless everything down <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6522	6618	
==>Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Ty <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6522	6618	
==>Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Ty <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1996	2091	
==>SH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT") <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1996	2091	
==>SH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT") <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17898	18097	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18829	19028	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18177	18376	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19108	19307	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9531	9641	
==>f.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9531	9641	
==>f.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3416	3516	
==>PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compil <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3416	3516	
==>PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compil <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2798	2916	
==>"icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2798	2916	
==>"icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => ' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33852	33946	
==>preferences such that each says what
language they prefer to communicate in, and what their bac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33852	33946	
==>preferences such that each says what
language they prefer to communicate in, and what their bac <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	588	697	
==>an ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	588	697	
==>an ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	672	777	
==>ad>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a func <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	672	777	
==>ad>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a func <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	201	320	
==>lass, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unles <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	195	314	
==>lass, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unles <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	201	320	
==>lass, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unles <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	195	314	
==>lass, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6834	6934	
==>lis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6834	6934	
==>lis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6834	6934	
==>lis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16407	16497	
==>| <EqualityExpression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14901	15015	
==>sult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14901	15015	
==>sult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14901	15015	
==>sult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3245	3359	
==>sult !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    #  *@result;
    @result <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1666	1823	
==>my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2409	2566	
==>my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1666	1823	
==>my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2397	2554	
==>my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	74	210	
==>y-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	74	210	
==>y-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4707	4835	
==>lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($ind <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4707	4835	
==>lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14539	14689	
==>plemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14533	14683	
==>plemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) . <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5062	5170	
==>ned %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5062	5170	
==>ned %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan <==
4	/Users/nnunley/pugs/util/package-osx.pl	9572	9696	
==>oved $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	384	469	
==>s_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	384	469	
==>s_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	384	469	
==>s_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2563	2687	
==>tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2563	2687	
==>tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2563	2687	
==>tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1867	1969	
==>= args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1867	1969	
==>= args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1867	1969	
==>= args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5773	5892	
==>f $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " print '', " . _emit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17402	17498	
==>ons for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17402	17498	
==>ons for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17402	17498	
==>ons for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3731	3854	
==>barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_descr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3731	3854	
==>barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_descr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3731	3854	
==>barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_descr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	930	1034	
==>"package $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3167	3317	
==>][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\x <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3167	3317	
==>][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1027	1166	
==>]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1027	1166	
==>]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2542	2655	
==>, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2542	2655	
==>, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2542	2655	
==>, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10097	10244	
==>ges that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2915	3035	
==>esult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3460	3580	
==>esult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	293	411	
==>fe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsa <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	293	411	
==>fe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1482	1594	
==>e $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguou <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1482	1594	
==>e $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguou <==
4	/Users/nnunley/pugs/util/build_pugs.pl	898	1002	
==>EN_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segmen <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2348	2443	
==>ul work got me thinking about trying a prolog plugin.

Fyi,
Yaswi apparently requires swi prolog <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4240	4380	
==>Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{bareword} eq 'module' ) {
            # Moose: package <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	448	543	
==>RIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	448	543	
==>RIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37261	37355	
==>in its positional parameter
$module_name (a string) and checks whether or not it has already be <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37261	37355	
==>in its positional parameter
$module_name (a string) and checks whether or not it has already be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10162	10294	
==>fy->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10162	10294	
==>fy->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10162	10294	
==>fy->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34783	34873	
==>xample or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	225	337	
==>,
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS - <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	225	337	
==>,
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS - <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	225	337	
==>,
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS - <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	225	337	
==>,
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7337	7482	
==>. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7337	7482	
==>. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7337	7482	
==>. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35419	35517	
==>, in which case the new Relation::Example has either all of the tuples of
the original, or has zero <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8605	8726	
==>[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8601	8722	
==>[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4611	4728	
==>ure} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        pri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4394	4506	
==>ure} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        pri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8955	9133	
==>der_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $versio <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8955	9133	
==>der_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $versio <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1244	1366	
==>toping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1244	1366	
==>toping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2875	2977	
==>y Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.prin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2875	2977	
==>y Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.prin <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4580	4674	
==>t, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4580	4674	
==>t, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7873	8038	
==>" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ignorecase> {      
            $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3361	3472	
==>f
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3361	3472	
==>f
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3361	3472	
==>f
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15614	15724	
==>> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15614	15724	
==>> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	251	349	
==>tt;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	251	349	
==>tt;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3086	3193	
==>undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3086	3193	
==>undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3086	3193	
==>undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "" <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8801	8902	
==>ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$parrot_path/parrot"), ldd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	402	510	
==>,
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	402	510	
==>,
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	402	510	
==>,
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28505	28609	
==>y, a capturing group's ender
is a C<close> node, any other assertion's ender is a C<tail> node, and a
cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5209	5298	
==>e_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5209	5298	
==>e_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5209	5298	
==>e_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instanc <==
4	/Users/nnunley/pugs/util/package-osx.pl	10482	10625	
==>qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\n
        my \@file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	249	373	
==>warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	249	373	
==>warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	249	373	
==>warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	137	256	
==>ue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	137	256	
==>ue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	137	256	
==>ue !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6050	6166	
==>PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9791	9886	
==>t we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail() <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9791	9886	
==>t we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail() <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7316	7409	
==>e $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7316	7409	
==>e $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1249	1386	
==>es) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1249	1386	
==>es) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1249	1386	
==>es) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	806	940	
==>t!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2334	2456	
==>file: hello_world.pl
    use v6-pugs;
    "hello, world".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2233	2337	
==>utput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2233	2337	
==>utput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2313	2417	
==>utput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $exp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7767	7864	
==>ned $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23663	23797	
==>_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20084	20218	
==>_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18951	19048	
==>s, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18951	19048	
==>s, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1093	1207	
==>ys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_sta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1093	1207	
==>ys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_sta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1093	1207	
==>ys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_sta <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4625	4729	
==>, %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform ha <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4625	4729	
==>, %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17341	17435	
==>ity to mix many source filterish modules in a much more sane manner.
Module::Compile controls t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17341	17435	
==>ity to mix many source filterish modules in a much more sane manner.
Module::Compile controls t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26627	26837	
==>=> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26627	26837	
==>=> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26627	26837	
==>=> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1051	1172	
==>ass->no_match;
};

sub substitution {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extrac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40307	40406	
==>ust carry
prominent notices stating that you changed the files and the date of any
changes, in addit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25831	25930	
==>ust carry prominent
notices stating that you changed the files and the date of any changes, in
addit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40307	40406	
==>ust carry
prominent notices stating that you changed the files and the date of any
changes, in addit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25831	25930	
==>ust carry prominent
notices stating that you changed the files and the date of any changes, in
addit <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5362	5453	
==>pends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5420	5511	
==>pends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8879	9022	
==>butes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8879	9022	
==>butes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8879	9022	
==>butes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method fo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8018	8126	
==>2 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8018	8126	
==>2 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7576	7684	
==>ed a "high" level interface (named args) 

###    because the actual rule object will be full OO



:(Str $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7318	7423	
==>ed a "high" level interface (named args) 
###    because the actual rule object will be full OO

:(Str $ma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	357	507	
==>ass   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    chec <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	841	991	
==>ass   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    chec <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	259	405	
==>ass = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    chec <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1787	1881	
==>b epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1845	1939	
==>->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1845	1939	
==>->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1845	1939	
==>->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6931	7046	
==>local $Level = 2;
    _ok($pass, _where(), $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	758	870	
==>tr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	758	870	
==>tr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	758	870	
==>tr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4226	4340	
==>eturn;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $contents <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	195	292	
==>based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	195	292	
==>based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mk <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	195	292	
==>based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mk <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7413	7530	
==>TION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As P <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7471	7588	
==>TION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As P <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5201	5302	
==>s (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5201	5302	
==>s (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2482	2595	
==>s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	231	334	
==>nternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	231	334	
==>nternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	231	334	
==>nternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31424	31520	
==>en given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35974	36070	
==>en given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3397	3491	
==>arameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHO <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3397	3491	
==>arameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4344	4449	
==>arams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4344	4449	
==>arams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4344	4449	
==>arams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $sel <==
4	/Users/nnunley/pugs/util/build_pugs.pl	263	360	
==>.'; };
use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22452	22557	
==>s a new scope is
entered and then exited.  The general concept is:

  if (into_scope) {
    push STACK, TR <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	800	890	
==>ocal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	639	729	
==>ocal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	639	729	
==>ocal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	165	284	
==>es {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	165	284	
==>es {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	165	284	
==>es {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5708	5803	
==>::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6395	6528	
==>k back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6395	6528	
==>k back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	972	1087	
==>y Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that un <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	972	1087	
==>y Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5990	6092	
==>ject>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5990	6092	
==>ject>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19620	19713	
==>C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Retur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19620	19713	
==>C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1259	1349	
==>nce structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Modu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1259	1349	
==>nce structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Modu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1259	1349	
==>nce structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Modu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7838	7949	
==>.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut]]>($P);
    return if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1198	1292	
==>- verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1198	1292	
==>- verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1198	1292	
==>- verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4749	4864	
==>p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws>? 
        \) <?p6w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1306	1398	
==>IL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1306	1398	
==>IL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1306	1398	
==>IL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is r <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1564	1670	
==>sents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( st <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1326	1432	
==>sents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( st <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1564	1670	
==>sents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( st <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1326	1432	
==>sents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2209	2323	
==>thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2209	2323	
==>thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2209	2323	
==>thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12808	12912	
==>mentList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1215	1333	
==>));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1215	1333	
==>));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	290	394	
==>st place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	290	394	
==>st place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	832	939	
==>oblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(docu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	832	939	
==>oblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(docu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	832	939	
==>oblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(docu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17968	18054	
==>Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3340	3462	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3533	3655	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4697	4798	
==>setta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4697	4798	
==>setta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1467	1577	
==>->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1467	1577	
==>->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1467	1577	
==>->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7790	7895	
==>ed $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 unless $ra->[$i] <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12124	12321	
==>field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'perso <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12124	12321	
==>field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'perso <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3424	3520	
==>iny is a utility to read and write .ini style configuration files
with as little code as possible <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3424	3520	
==>iny is a utility to read and write .ini style configuration files
with as little code as possible <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14184	14381	
==>eturn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14184	14381	
==>eturn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14184	14381	
==>eturn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4587	4688	
==>v) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4587	4688	
==>v) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4587	4688	
==>v) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprint <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3649	3783	
==><[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3649	3783	
==><[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3649	3783	
==><[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5348	5452	
==>($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8221	8367	
==>us }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_pr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8221	8367	
==>us }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_pr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15692	15816	
==>{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15692	15816	
==>{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7381	7509	
==>turn "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7369	7497	
==>turn "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3128	3225	
==>:Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3128	3225	
==>:Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6340	6443	
==>($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6340	6443	
==>($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3439	3619	
==>per $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' => 1,      :$v
    #    'type' => {             Str $v
    #      'bare <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1298	1390	
==>JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1298	1390	
==>JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1298	1390	
==>JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	701	795	
==>1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	701	795	
==>1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1199	1290	
==>xt
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemCo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1199	1290	
==>xt
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemCo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13407	13502	
==>.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13407	13502	
==>.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns the <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	160	253	
==>sition
within that string, and it provides the fundamental operations on strings as
combinator <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	160	253	
==>sition
within that string, and it provides the fundamental operations on strings as
combinator <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	902	1028	
==>uffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modifie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	902	1028	
==>uffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modifie <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2722	2838	
==>Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>() <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2722	2838	
==>Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>() <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1377	1493	
==>position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self->position() > 0;
}

sub as_integer {
  my ( $self ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17284	17388	
==>_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17284	17388	
==>_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17284	17388	
==>_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3124	3253	
==>es to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    nil->new();
}

su <==
4	/Users/nnunley/pugs/util/package-osx.pl	1003	1100	
==>r/local/share/doc/parrot
        /usr/local/info/readline.info
        /usr/local/info/rluserman.i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	80	176	
==>ass Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	80	176	
==>ass Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5185	5354	
==>while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5185	5354	
==>while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5185	5354	
==>while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	281	402	
==>tart    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wa <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	281	402	
==>tart    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6959	7059	
==>ling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6959	7059	
==>ling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5367	5504	
==>XX config!
        my $my_bindir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14435	14525	
==>:array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14435	14525	
==>:array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14435	14525	
==>:array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	103	205	
==>here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	103	205	
==>here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	103	205	
==>here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14776	14875	
==>_numeric => sub { $as_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $as_hash_c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3300	3403	
==>eturns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method sy <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3300	3403	
==>eturns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method sy <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3508	3610	
==>de-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3692	3794	
==>de-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17715	17912	
==>rams->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19473	19670	
==>rams->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39925	40121	
==>rams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40984	41180	
==>rams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12329	12453	
==>>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12329	12453	
==>>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12329	12453	
==>>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->ne <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	792	923	
==>^#include\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12609	12731	
==>>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12609	12731	
==>>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12609	12731	
==>>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9363	9490	
==>t--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9363	9490	
==>t--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9363	9490	
==>t--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	874	985	
==>'<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32423	32519	
==>l header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36973	37069	
==>l header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36263	36359	
==>l header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11645	11870	
==>> 'opaque'), 
                              symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30089	30214	
==>->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30089	30214	
==>->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30089	30214	
==>->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2597	2728	
==>ur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2597	2728	
==>ur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2597	2728	
==>ur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1278	1400	
==>ted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimite <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22861	22991	
==>"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	10	108	
==>s like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	10	108	
==>s like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	10	108	
==>s like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
pa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15132	15229	
==>n arbitrary type. The function signatures will likely look something
like this:

  multi sub is_de <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15190	15287	
==>n arbitrary type. The function signatures will likely look something
like this:

  multi sub is_de <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4207	4301	
==>}];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4207	4301	
==>}];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6646	6838	
==>turn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6646	6838	
==>turn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6646	6838	
==>turn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1387	1501	
==>vername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Times <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1387	1501	
==>vername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Times <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	150	254	
==>ist;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31561	31661	
==>ed, but is
still allowed, so I delete its handler too.  You can use this class to
ensure that there i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2357	2469	
==>') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2357	2469	
==>') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5778	5873	
==>_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5778	5873	
==>_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2677	2772	
==>_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3413	3525	
==>if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3413	3525	
==>if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3413	3525	
==>if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4208	4307	
==>SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//'> <SingleLineCommentCha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	344	448	
==>ent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	348	452	
==>ent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	344	448	
==>ent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	348	452	
==>ent loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2456	2569	
==>$output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my $subr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2674	2774	
==>erse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2674	2774	
==>erse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2858	2960	
==>ulti Array::pop (  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
multi Array::push (@arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6396	6484	
==>dule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6396	6484	
==>dule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6396	6484	
==>dule->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4653	4748	
==>, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4653	4748	
==>, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4653	4748	
==>, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html <==
4	/Users/nnunley/pugs/util/grokprims.pl	2252	2347	
==>>{name}</tt></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1597	1755	
==>AIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Keye <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1597	1755	
==>AIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Keye <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10490	10608	
==>ecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10490	10608	
==>ecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1642	1749	
==>split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1642	1749	
==>split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1642	1749	
==>split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	522	740	
==>>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run the p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7980	8084	
==>t "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7980	8084	
==>t "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7980	8084	
==>t "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3060	3173	
==>air") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3060	3173	
==>air") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3060	3173	
==>air") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36842	36953	
==>head.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6635	6742	
==>ce
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6635	6742	
==>ce
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3861	3954	
==>cale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3861	3954	
==>cale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15504	15620	
==>_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15504	15620	
==>_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15504	15620	
==>_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$la <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12996	13093	
==>ss them as though they were methods.  They return two
values, their numeric value, and a format st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30393	30486	
==>resemble those of the original. 
The anonymous function in the argument C<$transformer> is inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34945	35037	
==>resemble those of the original.
The anonymous function in the argument C<$transformer> is inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34127	34219	
==>resemble those of the original.
The anonymous function in the argument C<$transformer> is inv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1539	1659	
==>] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1539	1659	
==>] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1539	1659	
==>] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23740	23832	
==>attributes are private, so you must use accessor
methods.  Relation::Example does not declare <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2240	2342	
==>our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2240	2342	
==>our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2240	2342	
==>our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	946	1053	
==>create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	946	1053	
==>create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18799	18895	
==>re not prepared to
support (such as modification of the compiled re op tree the native
compiler c <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3089	3185	
==>re not prepared to
support (such as modification of the compiled re op tree the native
compiler c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1688	1840	
==>ng);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type | <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1688	1840	
==>ng);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type | <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1135	1249	
==>FAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1135	1249	
==>FAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3535	3635	
==>} unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3535	3635	
==>} unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3535	3635	
==>} unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{po <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	145	241	
==>s;
use Blondie::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Back <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1800	1930	
==>) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1800	1930	
==>) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6551	6650	
==>e',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6551	6650	
==>e',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4487	4616	
==>{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' => clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21913	22033	
==>$::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21913	22033	
==>$::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21913	22033	
==>$::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTRO <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3452	3583	
==>&& $totals{seen} &&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12201	12325	
==>unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12201	12325	
==>unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12201	12325	
==>unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2045	2193	
==>( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16016	16114	
==>ion.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

Th <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16016	16114	
==>ion.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

Th <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12198	12291	
==>meter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12198	12291	
==>meter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2133	2238	
==>rn "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1698	1797	
==>$self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1698	1797	
==>$self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1698	1797	
==>$self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1149	1248	
==>v_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4659	4753	
==>opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4659	4753	
==>opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4659	4753	
==>opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7647	7749	
==>sh(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7647	7749	
==>sh(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub defi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7647	7749	
==>sh(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub defi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	551	639	
==>table->addToken("term:\$\$", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3150	3283	
==>self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2707	2840	
==>->sign ) {
        $args->{SIGN} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both kin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3150	3283	
==>self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3150	3283	
==>self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9612	9739	
==>acro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5953	6080	
==>acro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6802	6929	
==>acro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14467	14570	
==>s{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_hash_complain = su <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8667	8785	
==>oreach my $detail (@{$results{details}}) {
            if ($detail->{type} eq 'todo') {
                if ($detail->{r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2221	2323	
==>nfo.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2221	2323	
==>nfo.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2221	2323	
==>nfo.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3229	3451	
==>.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3229	3451	
==>.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1081	1195	
==>string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1081	1195	
==>string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	13	106	
==>6::Core::Type::Equivalence;

use Perl6::Core::Type;

package type::equivalence;

use strict;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	567	729	
==>ented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	538	700	
==>ented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	567	729	
==>ented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	567	729	
==>ented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    ' <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	858	955	
==>S_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $Strap };

@ISA = (' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2237	2329	
==>:Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2237	2329	
==>:Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::O <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2237	2329	
==>:Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::O <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3190	3309	
==>keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3190	3309	
==>keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1500	1614	
==>$file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a cop <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1500	1614	
==>$file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a cop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	476	599	
==>f->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3346	3458	
==>for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3346	3458	
==>for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3346	3458	
==>for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOB <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6138	6387	
==>ail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the n <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6602	6851	
==>ail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21709	21829	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21988	22108	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10075	10210	
==>AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10075	10210	
==>AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10075	10210	
==>AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14477	14586	
==>in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8007	8140	
==>($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTM <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8007	8140	
==>($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTM <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6992	7089	
==>(n)' directive is reached. This does not include 
the text of the header, that will be processed a <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6992	7089	
==>(n)' directive is reached. This does not include 
the text of the header, that will be processed a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8276	8434	
==>ail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8276	8434	
==>ail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return su <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2892	2999	
==>< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  give <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2892	2999	
==>< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  give <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3197	3326	
==>));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3197	3326	
==>));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3197	3326	
==>));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3152	3260	
==>$self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STD <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2184	2295	
==>it';

    package Blondie::Seq;
    use base 'Blondie::Node::List';

    package Blondie::Stub;
    use base qw/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5782	5893	
==>$op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3118	3229	
==>$op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3967	4078	
==>$op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4030	4201	
==>,
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3176	3276	
==>L::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3176	3276	
==>L::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3176	3276	
==>L::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4132	4247	
==>e sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/jav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4132	4247	
==>e sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/jav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4132	4247	
==>e sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/jav <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4696	4803	
==>imitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4696	4803	
==>imitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4696	4803	
==>imitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	14	117	
==>nstallation::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Si <==
4	/Users/nnunley/pugs/util/grokprims.pl	1019	1136	
==>@{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1008	1100	
==>ntext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1008	1100	
==>ntext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1008	1100	
==>ntext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15720	15837	
==>pen TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4014	4122	
==>: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_strin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4014	4122	
==>: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_strin <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2482	2587	
==>y._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&Array::pop := &Array::splice <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7410	7518	
==>a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7410	7518	
==>a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7410	7518	
==>a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primiti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2953	3046	
==>=head1 DESCRIPTION

This file bridges between perl and Blondie, by providing implementations o <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	954	1061	
==>}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @wi <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	954	1061	
==>}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @wi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16833	16926	
==>item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16833	16926	
==>item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6209	6315	
==>ro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6209	6315	
==>ro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6209	6315	
==>ro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2783	2898	
==>code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2783	2898	
==>code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2783	2898	
==>code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @ <==
4	/Users/nnunley/pugs/util/version_h.pl	771	879	
==>) {
    print "Writing version from $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    w <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	172	277	
==>rove, too.)

# Please improve me!
#
# TODO:
# 1. Modularize this.
# 2. Get to work concurrently with 'make <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	566	666	
==>b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefi <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	566	666	
==>b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3117	3252	
==>qrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3117	3252	
==>qrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3117	3252	
==>qrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "M <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2232	2345	
==>ib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	423	568	
==>L2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	423	568	
==>L2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	423	568	
==>L2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : ne <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4498	4606	
==>.

=cut

sub add_package_to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3021	3138	
==>lass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3021	3138	
==>lass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3021	3138	
==>lass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2539	2628	
==>{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<var <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	309	400	
==>PTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7168	7255	
==>ne again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7168	7255	
==>ne again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7168	7255	
==>ne again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	470	578	
==>_OK);

sub Stream::import { }

sub node($h,$t) { return [$h, $t] }

sub head($s) { $s.[0] }

sub tail(Array $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6239	6333	
==>features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6239	6333	
==>features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8436	8530	
==>features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3087	3197	
==>t think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3087	3197	
==>t think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3087	3197	
==>t think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1780	1917	
==>n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3218	3319	
==>== 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3218	3319	
==>== 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3218	3319	
==>== 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1228	1333	
==>ssive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1195	1300	
==>ssive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	682	775	
==><$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal(" <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	682	775	
==><$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	844	965	
==>ug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	844	965	
==>ug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	844	965	
==>ug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5617	5720	
==>h = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	199	305	
==>'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

my $OBJECT_ID = num->new(0);

# creat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3609	3701	
==>ub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3609	3701	
==>ub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3609	3701	
==>ub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), " <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5487	5617	
==>uous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5487	5617	
==>uous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $c <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	324	425	
==>=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $m <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	324	425	
==>=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26513	26638	
==>plication =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26792	26917	
==>plication =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1020	1135	
==>{
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEF <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1020	1135	
==>{
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEF <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2081	2260	
==>) returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  De <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2081	2260	
==>) returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  De <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6050	6153	
==>ntal(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\\A".
p5_elemental(eosn <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4081	4177	
==>ss::Events::Subscription $.subscription;
    has Class::Events::Event $.event;

    method dispat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	82	183	
==>e (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	82	183	
==>e (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	82	183	
==>e (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33727	33838	
==>ation>

This method is a generic relational operator that takes a single Relation
in its C<$other> argument, whe <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34495	34606	
==>ation>

This method is a generic relational operator that takes a single Relation
in its C<$other> argument, whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38277	38388	
==>ation>

This method is a generic relational operator that takes a single Relation
in its C<$other> argument, whe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39045	39156	
==>ation>

This method is a generic relational operator that takes a single Relation
in its C<$other> argument, whe <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	374	497	
==>.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> el <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	374	497	
==>.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> el <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4326	4420	
==>ta" package serves only as the name-sake
representative for this whole file, which can be refer <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4326	4420	
==>ta" package serves only as the name-sake
representative for this whole file, which can be refer <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2149	2259	
==>{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2149	2259	
==>{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21220	21316	
==>t prominant feature is that it provides a
common API for access to those databases, each of which <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21220	21316	
==>t prominant feature is that it provides a
common API for access to those databases, each of which <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1908	2022	
==>ode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2603	2701	
==>match\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2603	2701	
==>match\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2683	2781	
==>match\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3485	3583	
==>ap in the AST - no calls to stubs and no inexistant symbols

=back

The compiler inherits L<Blondie <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3829	3921	
==>ion
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3829	3921	
==>ion
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3829	3921	
==>ion
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcirc <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4203	4323	
==>(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4203	4323	
==>(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\" <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1177	1286	
==>E'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_ab <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1177	1286	
==>E'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12785	12892	
==>'$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12785	12892	
==>'$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12785	12892	
==>'$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45292	45387	
==>(symbol->new('$:name')      => attribute->new('$:name'      => 'str')));
$::Package->send('add_a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2941	3067	
==>,
        tail  => $remainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( q(
        \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1242	1339	
==>s);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1242	1339	
==>s);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1242	1339	
==>s);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15623	15739	
==>I0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar")
  end:
    mpos = pos
    . <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1236	1336	
==>tr (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Pe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1236	1336	
==>tr (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1783	1883	
==>tr (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17264	17403	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23230	23369	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17543	17682	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23509	23648	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13991	14114	
==>tax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # X <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10164	10287	
==>tax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # X <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11000	11123	
==>tax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # X <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9855	9939	
==>m(char(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13384	13534	
==>y $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13384	13534	
==>y $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13384	13534	
==>y $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        w <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2269	2419	
==>y $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2511	2622	
==>sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2511	2622	
==>sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9494	9602	
==>/g; s/\n*\z/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("deleteme <==
4	/Users/nnunley/pugs/util/importgraph.pl	2771	2874	
==>ules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g->add_edge($name, $k, c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7357	7458	
==>put the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:superclass' => $Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1292	1383	
==>w PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1292	1383	
==>w PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1292	1383	
==>w PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5679	5927	
==>t.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        m <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5679	5927	
==>t.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8961	9141	
==>rds($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %has <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8961	9141	
==>rds($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4770	4941	
==>store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4770	4941	
==>store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4770	4941	
==>store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9765	9865	
==>ll lowercase -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length( <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	797	913	
==>uch as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %p <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	797	913	
==>uch as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14978	15074	
==>tr $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  met <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14978	15074	
==>tr $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	63	175	
==>) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	63	175	
==>) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	63	175	
==>) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19711	19807	
==>bj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN mo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15157	15262	
==>r optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18634	18739	
==>r optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18050	18155	
==>r optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1670	1772	
==>and inserting a names where needed.

   Example:
     perl util/catalog_tests.pl --p6design_dir=../p6/d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1726	1825	
==>ew('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1726	1825	
==>ew('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1726	1825	
==>ew('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	246	354	
==>rent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	246	354	
==>rent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22579	22670	
==>Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22579	22670	
==>Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I< <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1574	1720	
==>\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML::Dump(@_) }
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6313	6405	
==>PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6313	6405	
==>PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6313	6405	
==>PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : () <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8348	8486	
==>l, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("B <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8348	8486	
==>l, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("B <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7079	7176	
==>es.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7079	7176	
==>es.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8841	8951	
==>extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $locati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8841	8951	
==>extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $locati <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	578	683	
==>n::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	578	683	
==>n::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	466	606	
==>filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	464	604	
==>filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	466	606	
==>filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	464	604	
==>filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1585	1693	
==>e_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1585	1693	
==>e_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1585	1693	
==>e_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Di <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10329	10422	
==>rl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(cl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3125	3301	
==>!$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    di <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6602	6778	
==>!$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    di <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3938	4018	
==>w.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3938	4018	
==>w.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14642	14753	
==>t.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_tr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14642	14753	
==>t.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_tr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1265	1374	
==>t }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $ch <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1265	1374	
==>t }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $ch <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3838	3949	
==>lf->{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$ho <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28345	28471	
==>contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extract them.  This method is also de <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35701	35827	
==>contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extract them.  This method is also de <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28345	28471	
==>contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extract them.  This method is also de <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35701	35827	
==>contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extract them.  This method is also de <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11981	12099	
==>::runInteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Pot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6493	6590	
==>attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6493	6590	
==>attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6493	6590	
==>attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6557	6669	
==>Value: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6557	6669	
==>Value: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6557	6669	
==>Value: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9965	10160	
==>ription,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	531	714	
==>ription,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	531	714	
==>ription,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6818	6918	
==>turn $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2577	2688	
==>>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2761	2872	
==>>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrul <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	438	539	
==>DED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	438	539	
==>DED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1192	1292	
==>s sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1192	1292	
==>s sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1192	1292	
==>s sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::R <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2697	2796	
==>"==",join(" ",@todo),"==\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2765	2892	
==>$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2765	2892	
==>$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	100	205	
==>--------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	100	205	
==>--------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!ch <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23560	23696	
==>fun => ide("map"),
						param => ide("f"),
					),
					param => comb(
						fun => ide("tail"),
						param => ide("xs"),
					),
				) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	928	1041	
==>) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::dou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	928	1041	
==>) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::dou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	928	1041	
==>) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::dou <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	995	1098	
==>body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.pri <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	995	1098	
==>body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.pri <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3149	3247	
==>\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3149	3247	
==>\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4832	4929	
==>aoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4832	4929	
==>aoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4832	4929	
==>aoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1448	1543	
==>s is the module that reads the
output from Test::Simple, Test::More and other modules based on
T <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3096	3209	
==>self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37276	37370	
==>degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41825	41919	
==>degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41448	41542	
==>degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5818	5913	
==>r, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5818	5913	
==>r, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5818	5913	
==>r, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12411	12494	
==>6_hex_chars(R) --> hexdigits_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_more <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1511	1647	
==>n { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1449	1581	
==>n { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( c <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	343	433	
==>w List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	343	433	
==>w List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5241	5374	
==>'$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5241	5374	
==>'$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5241	5374	
==>'$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:ce <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1114	1204	
==>_conjunction> \& <non_alternation>+? }
rule non_conjunction { <repetition> | <alias> | <sim <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	667	766	
==>rs used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support en <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	667	766	
==>rs used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3667	3870	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3667	3870	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3667	3870	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class-> <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2085	2190	
==>elete (@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	143	258	
==>ss = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokeni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	143	258	
==>ss = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokeni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	143	258	
==>ss = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokeni <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	432	604	
==>\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	432	604	
==>\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3486	3580	
==>ration;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1628	1722	
==>ration;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18516	18716	
==>am";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18516	18716	
==>am";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18516	18716	
==>am";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2656	2749	
==>ss $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7597	7695	
==>ld be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default im <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7597	7695	
==>ld be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default im <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8827	8923	
==>et()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8827	8923	
==>et()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6610	6767	
==>d = method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14631	14734	
==>umeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14792	14887	
==>n".  Embedded "\n" characters in header field
values will be substituted with this line ending s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14792	14887	
==>n".  Embedded "\n" characters in header field
values will be substituted with this line ending s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5773	5871	
==>ast location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5773	5871	
==>ast location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5773	5871	
==>ast location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1445	1539	
==>al_array_alias>|<external_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <con <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1479	1567	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1479	1567	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1479	1567	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4592	4716	
==>open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6156	6259	
==>o MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method', <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6156	6259	
==>o MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method', <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6156	6259	
==>o MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	484	583	
==>helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	484	583	
==>helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	484	583	
==>helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13610	13707	
==>iting modules and you
find there is some language feature missing, or core bug that needs to
be so <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13668	13765	
==>iting modules and you
find there is some language feature missing, or core bug that needs to
be so <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10788	10884	
==>the $value is undefined or not
given, then that header field will remain unchanged.

The old valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10788	10884	
==>the $value is undefined or not
given, then that header field will remain unchanged.

The old valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4673	4795	
==>' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4673	4795	
==>' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4673	4795	
==>' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16963	17061	
==>ession> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <Equ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1520	1623	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test:: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1578	1681	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7461	7549	
==>nels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7461	7549	
==>nels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2128	2247	
==>6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2128	2247	
==>6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1360	1474	
==>6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3221	3335	
==>6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5312	5424	
==>constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5312	5424	
==>constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5312	5424	
==>constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	77	188	
==>_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	77	188	
==>_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1691	1787	
==>{
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is expor <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6469	6565	
==>n => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single sp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1691	1787	
==>{
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is expor <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6469	6565	
==>n => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5450	5580	
==>e p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6718	6848	
==>e p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5450	5580	
==>e p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6706	6836	
==>e p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1242	1339	
==>out;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1242	1339	
==>out;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1242	1339	
==>out;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4885	5034	
==>SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_le <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25038	25132	
==>ue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23802	23896	
==>ue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25038	25132	
==>ue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23802	23896	
==>ue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	824	924	
==>$x)));
}

our Int multi Num::round_half_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14675	14766	
==>ow we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14675	14766	
==>ow we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14675	14766	
==>ow we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1416	1551	
==>RAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1760	1890	
==>RAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1367	1497	
==>RAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1760	1890	
==>RAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6039	6139	
==>bsr_token_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8926	9027	
==>str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8926	9027	
==>str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8926	9027	
==>str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3752	3874	
==>H().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3752	3874	
==>H().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3752	3874	
==>H().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package P <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2737	2842	
==>} = time;
    $self->{_timing}{duration} =
        $self->{_timing}{end} - $self->{_timing}{start};
    Du <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8155	8279	
==>ined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          wh <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8155	8279	
==>ined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          wh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1145	1266	
==>( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1145	1266	
==>( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2169	2385	
==>ame, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2169	2385	
==>ame, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2169	2385	
==>ame, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52763	52863	
==>bject, $::Package, $::Module) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta-> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1741	1854	
==>utes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4469	4568	
==>t description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by c <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4469	4568	
==>t description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4549	4648	
==>t description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12632	12807	
==>= \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TOD <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12626	12801	
==>= \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TOD <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	271	381	
==>::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	271	381	
==>::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return ma <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10190	10313	
==>y;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10190	10313	
==>y;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21178	21273	
==>Base, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21178	21273	
==>Base, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1582	1710	
==>resents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1582	1710	
==>resents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Per <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	483	576	
==>)
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch() <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	483	576	
==>)
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2479	2604	
==>cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2696	2821	
==>cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18775	18875	
==>ACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18775	18875	
==>ACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2393	2493	
==>& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2393	2493	
==>& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2393	2493	
==>& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10695	10794	
==>it is called.

=head2 Viewing the Regex

You can get the regex back from the parser with the visual( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4865	4974	
==>urn;

    for my $index ( $self->index_file, $self->index_files(package => $pkg) ) {
        unless (-e $index <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1196	1298	
==>E_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1196	1298	
==>E_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1196	1298	
==>E_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" var <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	123	221	
==>avaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	123	221	
==>avaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	123	221	
==>avaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3210	3327	
==>ot_implemented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parame <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1273	1371	
==>VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @IS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1273	1371	
==>VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @IS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1273	1371	
==>VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @IS <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5137	5265	
==>enw->close or error($!), return;
        }
        
        # load the existing index file
        my $index_content = YAML::Load <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8899	9012	
==>require");
}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9173	9281	
==>,Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9169	9277	
==>,Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7295	7401	
==>elf->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functions seem m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2708	2841	
==>y;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2708	2841	
==>y;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2708	2841	
==>y;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
} <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	767	882	
==>sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11529	11630	
==>od_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11529	11630	
==>od_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11529	11630	
==>od_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8112	8234	
==>.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print STDOUT "# key ", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4927	5020	
==>above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACRO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4927	5020	
==>above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACRO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4927	5020	
==>above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACRO <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9831	9944	
==>>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2162	2259	
==>$cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2162	2259	
==>$cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2162	2259	
==>$cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	345	434	
==>.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	345	434	
==>.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	345	434	
==>.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_d <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5806	5894	
==>ind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(conditio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12311	12414	
==>_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12311	12414	
==>_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12311	12414	
==>_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6588	6777	
==>et();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.curr <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6588	6777	
==>et();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.curr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20743	20842	
==>ages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20743	20842	
==>ages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Ma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12050	12236	
==>uct;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First lo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15527	15713	
==>uct;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First lo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6074	6168	
==>SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6074	6168	
==>SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10760	10932	
==>sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCriterion  $by = &infix:<cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1285	1374	
==>reate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1285	1374	
==>reate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1285	1374	
==>reate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4386	4513	
==>e',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4386	4513	
==>e',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4386	4513	
==>e',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sig <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	24	162	
==>ning = 2;
my $thr1 = async {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000;
        $still_runni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7692	7785	
==>ntf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->ari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7692	7785	
==>ntf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->ari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7692	7785	
==>ntf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->ari <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7753	7866	
==>ch)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $capture       - cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7491	7600	
==>ch)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $capture       - cap <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11671	11769	
==>--> [10], !.
rest_of_line([C|T]) --> [C], rest_of_line(T).
rest_of_line([]).


p6_octidecimal_escap <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1953	2084	
==>s;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3936	4040	
==>lue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3936	4040	
==>lue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3936	4040	
==>lue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	344	444	
==>oodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has fa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	344	444	
==>oodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has fa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4955	5051	
==>te all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4955	5051	
==>te all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1235	1350	
==>ath) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1235	1350	
==>ath) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	594	698	
==>kages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attribu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	594	698	
==>kages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attribu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1963	2153	
==>{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5750	5940	
==>{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1963	2153	
==>{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5750	5940	
==>{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13711	13853	
==>bstr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3836	3966	
==>bstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3836	3966	
==>bstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3836	3966	
==>bstr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3213	3348	
==>paque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Cla <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1207	1319	
==>at attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4685	4797	
==>at attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3932	4042	
==>paque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15596	15719	
==>xists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15596	15719	
==>xists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15596	15719	
==>xists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$l <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5804	5914	
==>f->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7683	7784	
==>averse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!childr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7683	7784	
==>averse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!childr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1364	1460	
==>.



the Pad contains My/State/Temp markers for container

allocation, as well as the compile-tim <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1306	1399	
==>.

the Pad contains My/State/Temp markers for container
allocation, as well as the compile-tim <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1415	1512	
==>ontains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1415	1512	
==>ontains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35954	36049	
==>rns an array ref having all combinations of this object's
Set Names and Member Names elements, c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35954	36049	
==>rns an array ref having all combinations of this object's
Set Names and Member Names elements, c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17175	17311	
==>ttributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17175	17311	
==>ttributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19754	19848	
==>statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19754	19848	
==>statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Ros <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	256	411	
==>s copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	256	411	
==>s copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14398	14503	
==>,Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6115	6204	
==>::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6115	6204	
==>::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6115	6204	
==>::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17599	17762	
==>ubstr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1799	1890	
==>rameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1799	1890	
==>rameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1799	1890	
==>rameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9740	9890	
==>=> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9740	9890	
==>=> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9740	9890	
==>=> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	479	592	
==>code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	999	1092	
==>"RULE\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6544	6630	
==>' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6544	6630	
==>' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6544	6630	
==>' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	693	801	
==>n '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	781	889	
==>n '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::p <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4116	4210	
==>*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4116	4210	
==>*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8436	8588	
==>..
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8436	8588	
==>..
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8436	8588	
==>..
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $? <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5312	5445	
==>o_struct;
        
        # add the archive path to the package's meta info
        $meta->{archive} =
            $self->pool_rel->f <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10578	10703	
==>o);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10578	10703	
==>o);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6388	6487	
==>_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6388	6487	
==>_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3383	3530	
==>n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3847	3994	
==>n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3245	3351	
==>h => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /witho <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3245	3351	
==>h => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /witho <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5931	6115	
==>heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9408	9592	
==>heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8464	8648	
==>heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	244	372	
==>ub pmc_can_output { 1 }

sub pmc_compile {
    my ($class, $source) = @_;

    my $file = (caller(4))[1];
    if (defined $file a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1285	1384	
==>ORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS / <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	222	321	
==>ty usually has a single invocant typed to the
Role it is attached to (however, this is a trend and n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1285	1384	
==>ORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1285	1384	
==>ORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS / <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6297	6403	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5427	5533	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6297	6403	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5427	5533	
==>» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28725	28824	
==>.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRIN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28725	28824	
==>.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRIN <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6878	6971	
==>osetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6878	6971	
==>osetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2092	2228	
==>= @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2092	2228	
==>= @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2092	2228	
==>= @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	100	206	
==>e ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18559	18650	
==>,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18559	18650	
==>,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18559	18650	
==>,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/util/testgraph.pl	425	524	
==>pen $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die "binmode: $!";
local $/=undef;

my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4530	4680	
==>ame => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	153	259	
==>ndBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	153	259	
==>ndBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	153	259	
==>ndBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2713	2851	
==>_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2713	2851	
==>_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	711	830	
==>tdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$) <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	711	830	
==>tdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31395	31487	
==>C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35945	36037	
==>C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35163	35255	
==>C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3101	3201	
==>f ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3101	3201	
==>f ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3101	3201	
==>f ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	438	528	
==>m:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:^^", "term:", "nows", "PGE:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25247	25407	
==>p = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25247	25407	
==>p = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25247	25407	
==>p = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'I <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	54	150	
==>neralisierter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4053	4162	
==>is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4053	4162	
==>is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4053	4162	
==>is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	331	430	
==>l6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	331	430	
==>l6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	331	430	
==>l6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18439	18521	
==>t('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21698	21780	
==>t('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41704	41786	
==>t('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44605	44687	
==>t('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4463	4719	
==>y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7167	7292	
==>xed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7167	7292	
==>xed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7167	7292	
==>xed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	859	970	
==>_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	859	970	
==>_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	859	970	
==>_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23062	23165	
==>xp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param pmc pad
    .local stri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20255	20372	
==>lsif ($tot->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1893	2006	
==>ror);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1893	2006	
==>ror);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1893	2006	
==>ror);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3441	3586	
==>b {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3634	3779	
==>b {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7500	7593	
==>_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1325	1418	
==>_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	557	672	
==>ess" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	557	672	
==>ess" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	557	672	
==>ess" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  for <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	3	107	
==>uweisungsoperator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12443	12545	
==>ray *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2876	2977	
==>:Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fgl <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2993	3092	
==>ray *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2772	2869	
==>:Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fgl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5704	5853	
==>type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5704	5853	
==>type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5704	5853	
==>type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefin <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	233	328	
==>:push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @array.elems, 0, @values) <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1976	2076	
==>u need a real implementation
consult a book, like Numerical Recipies.)  In particular, it suffers fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6122	6219	
==>ance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenCl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6122	6219	
==>ance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenCl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6122	6219	
==>ance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenCl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4990	5160	
==>ift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4990	5160	
==>ift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5726	5833	
==>tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handli <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5726	5833	
==>tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handli <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2500	2615	
==>,@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2500	2615	
==>,@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2500	2615	
==>,@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eva <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1292	1385	
==>}

method attr_name_exists of Bool (Relation::AttrName $attr_name) {
    return %!attrs.exists <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	923	1018	
==>s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2047	2142	
==>$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	923	1018	
==>s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", sourc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2047	2142	
==>$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	323	420	
==>seen} = Set::Object->new;
	$self->{dups} = Set::Object->new;

    $self->reduce($program);

	$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20153	20245	
==>to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20153	20245	
==>to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20153	20245	
==>to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29248	29354	
==>}
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29248	29354	
==>}
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my St <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16377	16471	
==>simultaneously, and that allows any end users to add
support for new languages easily and witho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16377	16471	
==>simultaneously, and that allows any end users to add
support for new languages easily and witho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5923	6054	
==>ethod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5923	6054	
==>ethod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5923	6054	
==>ethod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2090	2189	
==>stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self->_stages) { <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1566	1671	
==>gins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.s <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1566	1671	
==>gins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.s <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2826	2912	
==>comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2826	2912	
==>comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	91	187	
==>Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	91	187	
==>Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	91	187	
==>Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6159	6270	
==>= [ $Role ];
$_resolve->($Class);

# Bootstrap -> Role does Role
::opaque_instance_attrs($Role)->{'@:roles'} = [ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2431	2533	
==>de) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAUL <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2431	2533	
==>de) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAUL <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	27	123	
==>b {say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von Code-Objekten <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2165	2269	
==>ush(@ret, @array._delete_key($k) );
    }
    *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5453	5554	
==>llect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5453	5554	
==>llect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5453	5554	
==>llect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5174	5304	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5174	5304	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5174	5304	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9728	9829	
==>blequotes because otherwise
	# DCL will lowercase -- unless already doublequoted.
       $_ = q(").$_. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	598	699	
==>er native types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_str { 
    # ev <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2676	2766	
==>what short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt> <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2676	2766	
==>what short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1638	1776	
==>\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2381	2519	
==>\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1638	1776	
==>\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2369	2507	
==>\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	650	756	
==>count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	650	756	
==>count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	650	756	
==>count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22359	22463	
==>,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => ide("length <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11857	11956	
==>number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9004	9103	
==>number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11857	11956	
==>number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9004	9103	
==>number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10930	11076	
==>oes result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12401	12547	
==>oes result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14407	14553	
==>oes result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15878	16024	
==>oes result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11802	11901	
==>ld, $value )

Add a new field value for the specified header field.  Previous values
for the same fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11802	11901	
==>ld, $value )

Add a new field value for the specified header field.  Previous values
for the same fi <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1224	1321	
==>t can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is c <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1224	1321	
==>t can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	645	792	
==>stem("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3887	3993	
==>sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3887	3993	
==>sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9891	9993	
==>n is safe {
    rx_common_("pugs_internals_m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14111	14230	
==>-> $attr {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	494	605	
==>ort unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	461	572	
==>ort unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	225	325	
==>ING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_param <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	225	325	
==>ING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_param <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6612	6713	
==>);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $dat <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6612	6713	
==>);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $dat <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2346	2440	
==>:PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Ut <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2346	2440	
==>:PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Ut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	717	881	
==>iag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6969	7081	
==>ass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6969	7081	
==>ass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6969	7081	
==>ass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1254	1362	
==>16 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Ent <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1254	1362	
==>16 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Ent <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23506	23597	
==>> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23506	23597	
==>> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	90	194	
==>Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	90	194	
==>Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	90	194	
==>Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2971	3114	
==>p}       = time;
  $smoke{id}              = $id;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Cou <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4791	4909	
==>LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4791	4909	
==>LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1697	1815	
==>LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2643	2744	
==>?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ? <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2643	2744	
==>?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ? <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	382	476	
==>uncType
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Type $.one <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13575	13696	
==>rt( $self->{max} >= 0,  'Max # of tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $reas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8658	8756	
==>2 Setting and Parsing Together

You can also use parse() instead of regex() to set the regex and cr <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2717	2920	
==>d( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2717	2920	
==>d( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5238	5339	
==>gned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5238	5339	
==>gned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2556	2664	
==>s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2556	2664	
==>s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2556	2664	
==>s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4592	4685	
==>Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9476	9637	
==>) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9476	9637	
==>) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9476	9637	
==>) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $v <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	738	845	
==>= str->new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list->new($i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29118	29228	
==>ule MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29118	29228	
==>ule MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{ <==
4	/Users/nnunley/pugs/util/package-osx.pl	3329	3435	
==>/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	461	563	
==>ule MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{ <==
4	/Users/nnunley/pugs/util/grokprims.pl	1862	1967	
==>(/non-associative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $exa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3461	3559	
==>.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3461	3559	
==>.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3461	3559	
==>.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (re <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	657	787	
==>ions) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $fprime);

        say "{$count++ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	0	107	
==>package PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	0	107	
==>package PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	0	107	
==>package PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	862	1165	
==>) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    wh <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	862	1165	
==>) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    wh <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6735	6839	
==>gs ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6735	6839	
==>gs ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25245	25360	
==>> <'}'>
}
rule Atom {  # see 15.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <Character <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5003	5097	
==>jority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5003	5097	
==>jority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 A <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43061	43155	
==>jority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 A <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1796	1900	
==>aders{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1796	1900	
==>aders{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!head <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	475	573	
==>tring to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yiel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	475	573	
==>tring to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yiel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	782	915	
==>rn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pair <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	782	915	
==>rn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pair <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40081	40176	
==>yedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, I <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40081	40176	
==>yedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1663	1779	
==>efault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1663	1779	
==>efault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1663	1779	
==>efault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5665	5769	
==>--> "(?!",  !, p5_start(R), ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_start(Rx), {re_rever <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12810	12948	
==>,
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12810	12948	
==>,
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4761	4865	
==>.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4761	4865	
==>.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2306	2416	
==>> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $modul <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2306	2416	
==>> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $modul <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4887	4995	
==>([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) retur <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4887	4995	
==>([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10870	11015	
==>}
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    retur <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10870	11015	
==>}
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    retur <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3428	3565	
==>_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oc <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3428	3565	
==>_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11187	11284	
==>ods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11187	11284	
==>ods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11187	11284	
==>ods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submetho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10620	10738	
==>me));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10620	10738	
==>me));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10620	10738	
==>me));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2336	2424	
==>_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varsc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10943	11090	
==>t},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10943	11090	
==>t},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10943	11090	
==>t},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1471	1561	
==>nsufficiently documented,
# audreyt forked, creating re-override, intending to provide just <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9936	10098	
==>y($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $me <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11413	11575	
==>y($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1146	1245	
==>) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 D <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1146	1245	
==>) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 D <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1216	1363	
==>span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_en <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4455	4602	
==>span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1216	1363	
==>span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4455	4602	
==>span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15891	16043	
==>defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15891	16043	
==>defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15891	16043	
==>defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4286	4387	
==>ction, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all th <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1921	2040	
==>s $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2347	2448	
==>n sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2347	2448	
==>n sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2347	2448	
==>n sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->un <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	840	995	
==>>{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	833	988	
==>>{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4239	4367	
==>less {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4379	4507	
==>less {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	457	566	
==>ment_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	663	772	
==>ment_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7995	8096	
==>nd of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7995	8096	
==>nd of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	656	770	
==>};

            return $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.description' => $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	227	335	
==>ie("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	227	335	
==>ie("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	227	335	
==>ie("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the refe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	535	638	
==>lowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	535	638	
==>lowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	535	638	
==>lowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 20 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3534	3644	
==>gs
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3534	3644	
==>gs
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3534	3644	
==>gs
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = < <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	378	482	
==>* when they match
# asking the notifications to dispatch themselves

# the code tries to provide reusable <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6524	6650	
==>ORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6524	6650	
==>ORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ UR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11119	11225	
==>"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11119	11225	
==>"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	822	940	
==>($_) . ";\n\n";
	} @nodes, $program);

	$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self->{names} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5456	5561	
==>y $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5456	5561	
==>y $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5456	5561	
==>y $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24040	24133	
==>optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28592	28685	
==>optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27423	27516	
==>optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty S <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4440	4535	
==>a gzipped initrd suitable for GRUB.
  --initrd-img=$initrd_img
    --initrd-img is the temporary <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4361	4455	
==>elete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4361	4455	
==>elete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4361	4455	
==>elete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15288	15428	
==>stem
      "mkisofs",
      "-R",                                # Generate Rock Ridge directory information
      "-b" => "boot/grub/stage2_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3239	3376	
==>itive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('valueOf');
        if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5170	5285	
==>);
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2712	2827	
==>);
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9219	9368	
==>]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9219	9368	
==>]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9219	9368	
==>]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair-> <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	955	1053	
==>is
# Maybe.  And perl5 might benefit from its existence.  Normally this
# kind of reverse-engineere <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4932	5053	
==><'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with'>
    | <'defau <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3769	3875	
==>ing the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3769	3875	
==>ing the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3769	3875	
==>ing the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24380	24474	
==>f the Relation::Example class' API, a tuple is represented by a Perl
Mapping where each Mapping <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2885	2975	
==>r running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2885	2975	
==>r running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2885	2975	
==>r running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_e <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9010	9113	
==>_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outpath($input_pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8557	8657	
==>$PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8557	8657	
==>$PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8557	8657	
==>$PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39380	39473	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loca <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5115	5208	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39380	39473	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5115	5208	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Loca <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2378	2478	
==>ges) {
	my $result = $self->{$stage};
	next if !defined $result;
	my $warn = $result->warnings();
	$r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4688	4787	
==>, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18970	19063	
==>ata type that corresponds to the
"relation" of logic and mathematics and philosophy ("a predic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22620	22713	
==>ata type that corresponds to the "relation" of logic
and mathematics and philosophy ("a predic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	148	263	
==>ss = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	148	263	
==>ss = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	148	263	
==>ss = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1621	1731	
==>ular expressions I<defined> within its scope;
when those regular expresisons are used, an alternate engine is i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2061	2170	
==>nput, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2061	2170	
==>nput, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2061	2170	
==>nput, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1591	1680	
==>v});
    (blessed($return_value) && ($return_value->isa($self->{sig}->returns) || $return_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35717	35992	
==>e' => 'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	18	115	
==>ough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	18	115	
==>ough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	18	115	
==>ough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10161	10290	
==>';
      return $S->$n;
    }

    return $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12204	12333	
==>r_non_numeric => sub { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1061	1187	
==>gex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1230	1356	
==>gex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $str <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7699	7892	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8501	8694	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7699	7892	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8501	8694	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6503	6609	
==>ng);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6503	6609	
==>ng);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17400	17496	
==>in which Perl code runs).

The classes and methods of this "Rosetta" file, together with those of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17400	17496	
==>in which Perl code runs).

The classes and methods of this "Rosetta" file, together with those of <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28822	28929	
==>RINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!], <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28822	28929	
==>RINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!], <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	193	292	
==>RINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!], <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25164	25261	
==>f backup).  Regmlen is
 * supplied because the test in pregexec() needs it and pregcomp() is compu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28997	29098	
==>! ) returns Relation::Example>

This method is a generic relational operator that returns a new Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29646	29746	
==>!) returns Relation::Example>

This method is a generic relational operator that returns a new Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30807	30907	
==>!) returns Relation::Example>

This method is a generic relational operator that returns a new Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34864	34964	
==>!) returns Relation::Example>

This method is a generic relational operator that returns a new Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3344	3461	
==>h $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3344	3461	
==>h $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3344	3461	
==>h $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pat <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2084	2181	
==>rgence problems for some functions, which all Newton methods do.  All
it does in such cases is die <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3067	3320	
==>trs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigenclass;                
            }
            re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8795	8921	
==>s) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8795	8921	
==>s) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8795	8921	
==>s) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8953	9145	
==>bol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8312	8439	
==>t,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8312	8439	
==>t,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8312	8439	
==>t,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18242	18340	
==>le', programs would have a harder time figuring out the
best way to deal with it.  But for displayi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18242	18340	
==>le', programs would have a harder time figuring out the
best way to deal with it.  But for displayi <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	574	671	
==>=== $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	574	671	
==>=== $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23674	23775	
==>ue or
False, but once it has a value of False, it can not be further changed;
this class defaults it t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28226	28327	
==>ue or
False, but once it has a value of False, it can not be further changed;
this class defaults it t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27039	27140	
==>ue or
False, but once it has a value of False, it can not be further changed;
this class defaults it t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3500	3605	
==>9) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3500	3605	
==>9) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32130	32229	
==>message.  If it finds one, then that is displayed; if not, it then checks
each set's member for lang <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32130	32229	
==>message.  If it finds one, then that is displayed; if not, it then checks
each set's member for lang <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23329	23459	
==>mb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => ide("f"),
						param => comb(
							fun => ide("he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11008	11124	
==>= [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11008	11124	
==>= [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11008	11124	
==>= [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23784	23882	
==>ds;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23784	23882	
==>ds;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23784	23882	
==>ds;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7250	7347	
==>regex)

You can send the regex to be parsed as the argument to the constructor.

=item $parser->re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16203	16317	
==>odified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16203	16317	
==>odified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fie <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6558	6654	
==>2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pas <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6558	6654	
==>2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pas <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5746	5879	
==>w($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(),
            attribute->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9648	9768	
==>ems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9648	9768	
==>ems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9648	9768	
==>ems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2	94	
==>EVIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2	94	
==>EVIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2	94	
==>EVIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5596	5682	
==>$name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19014	19143	
==>to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constructor. If the nickname is already used, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18048	18177	
==>to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constructor. If the nickname is already used, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19014	19143	
==>to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constructor. If the nickname is already used, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18048	18177	
==>to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the constructor. If the nickname is already used, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4312	4414	
==>ting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivecd.pl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1914	2007	
==>ss use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1914	2007	
==>ss use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1914	2007	
==>ss use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9871	10006	
==>($results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus}) {
                my @msg;
                push(@msg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4500	4598	
==>LTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4500	4598	
==>LTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4500	4598	
==>LTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	573	686	
==>t++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	573	686	
==>t++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	573	686	
==>t++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22477	22567	
==>X), !.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	133	274	
==>!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @va <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	133	274	
==>!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1209	1312	
==>, " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2374	2477	
==>, " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->o <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1979	2090	
==>r (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_toward_zero <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1706	1842	
==>ed \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1694	1830	
==>ed \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	194	303	
==>ace.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	400	509	
==>ace.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interf <==
4	/Users/nnunley/pugs/util/func_refact.pl	1049	1172	
==>et = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is " . scalar <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6055	6174	
==>'';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6055	6174	
==>'';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12006	12119	
==>= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20945	21041	
==>'.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20945	21041	
==>'.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20945	21041	
==>'.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15841	15966	
==>split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15835	15960	
==>split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1587	1704	
==>apture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1587	1704	
==>apture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special c <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	47	154	
==>nt, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: hand <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	47	154	
==>nt, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: hand <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9846	9936	
==>lti sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.ke <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9846	9936	
==>lti sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25015	25115	
==>rver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23779	23879	
==>rver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25015	25115	
==>rver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23779	23879	
==>rver, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	917	1024	
==>y
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	917	1024	
==>y
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	917	1024	
==>y
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	391	496	
==>elf->reduce($program);

	$self->{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $nod <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5896	6012	
==>l_out($line, \$self->{bailout_reason}) ) {
        $type = 'bailout';
        $self->{saw_bailout} = 1;
    }
    els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1792	1896	
==>args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1792	1896	
==>args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1792	1896	
==>args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $l <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5172	5317	
==>itable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5636	5781	
==>itable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2794	2919	
==>$bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        ta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1416	1541	
==>$bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        ta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22160	22252	
==>nnel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropria <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21041	21133	
==>nnel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropria <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22160	22252	
==>nnel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropria <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21041	21133	
==>nnel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropria <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8938	9113	
==>strm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and rel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13406	13537	
==>object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13406	13537	
==>object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo eve <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7217	7316	
==>(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_conditio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	524	646	
==>' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	540	662	
==>' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	516	638	
==>' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29191	29290	
==>ed with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node with the pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7443	7546	
==>$B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7443	7546	
==>$B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7443	7546	
==>$B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19111	19286	
==>re not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19111	19286	
==>re not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19111	19286	
==>re not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29259	29355	
==>because there is no 'ato' handle,
basically).  In order for the 'atom' handle to be executed, you <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7213	7320	
==>q $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7213	7320	
==>q $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6543	6650	
==>b compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6555	6662	
==>b compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1862	1970	
==>)";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->com <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1862	1970	
==>)";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->com <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	605	697	
==>pher API> for general information.

=head2 Constructor options

With no options, Cipher::Caes <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	605	697	
==>pher API> for general information.

=head2 Constructor options

With no options, Cipher::Caes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4024	4159	
==>.map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4024	4159	
==>.map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4548	4677	
==>.map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4548	4677	
==>.map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8704	8822	
==>pan1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems == <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8704	8822	
==>pan1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems == <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13499	13591	
==>s not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13499	13591	
==>s not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4573	4751	
==>my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6242	6420	
==>my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	725	831	
==>tart_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	725	831	
==>tart_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36392	36489	
==>ly: assertion

Types: suspend (C<< (?> >>)

Data: array reference of any number of objects

Ender: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1322	1412	
==>while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1322	1412	
==>while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1322	1412	
==>while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3662	3751	
==>educe_sym> which must handle recursive calls.

The compiler inherits L<Blondie::Reducer::D <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1226	1344	
==>apture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule { <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1226	1344	
==>apture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5113	5213	
==>.target;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented by undef.

# 9. <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	46	142	
==>t `find mozilla_js_tests`;
print "plan ".@jsfiles."\n";
foreach $jsfile (@jsfiles) {
    print ST <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	571	681	
==>spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	571	681	
==>spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @. <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	954	1052	
==>cluded into the Class.  This has the same effect as
them being defined in the Class, so this effect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3891	3990	
==>b prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3891	3990	
==>b prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3891	3990	
==>b prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4145	4237	
==>s = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{class_that_should_be}-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2012	2126	
==>def, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2012	2126	
==>def, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2012	2126	
==>def, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
4	/Users/nnunley/pugs/util/importgraph.pl	2385	2488	
==>ile (my ($name, $module) = each %modules) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	92	193	
==>) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	92	193	
==>) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	92	193	
==>) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	135	235	
==>pty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	135	235	
==>pty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31061	31154	
==>ion,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a ge <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35611	35704	
==>ion,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a ge <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15627	15759	
==>ta} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21798	21930	
==>ta} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2832	2929	
==>rently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (ye <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2832	2929	
==>rently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (ye <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	154	256	
==>------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	177	279	
==>-------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -------------------------------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	154	256	
==>------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# --------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	177	279	
==>-------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9599	9706	
==>f Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9599	9706	
==>f Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	513	611	
==>kage Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	513	611	
==>kage Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packag <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5892	5999	
==>, -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5892	5999	
==>, -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10357	10458	
==>pans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.ite <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10357	10458	
==>pans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.ite <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	766	887	
==>-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	35	134	
==>of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	35	134	
==>of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	35	134	
==>of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22532	22648	
==>C, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18953	19069	
==>C, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9314	9414	
==>en").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9314	9414	
==>en").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then ` <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1933	2046	
==>lf->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	925	1037	
==>:EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	925	1037	
==>:EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	925	1037	
==>:EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1833	1933	
==>{$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1833	1933	
==>{$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1833	1933	
==>{$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3272	3369	
==>=item Val

Encapsulates a perl value. Usually either a Thunk object, a number or a string. For exa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15995	16091	
==>size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15995	16091	
==>size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3958	4051	
==>mplement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3958	4051	
==>mplement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1231	1368	
==>lf, $explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testplan');
            if ($tests) {
                _('$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12791	12893	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12791	12893	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12791	12893	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6701	6841	
==>6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6701	6841	
==>6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6701	6841	
==>6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5512	5621	
==>>object(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17821	17955	
==>other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21298	21432	
==>other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20885	21019	
==>other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33647	33748	
==>num (C<\W>)

Neg: 1 if negated

=head2 space

Family: space

Types: space (C<\s>), nspace (C<\S>)

Neg <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32856	32959	
==>) returns Relation>

This multi-method is a generic binary relational operator that is like
C<union> exc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33311	33414	
==>) returns Relation>

This multi-method is a generic binary relational operator that is like
C<union> exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37406	37509	
==>) returns Relation>

This multi-method is a generic binary relational operator that is like
C<union> exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37861	37964	
==>) returns Relation>

This multi-method is a generic binary relational operator that is like
C<union> exc <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	165	265	
==>rnings;

# Input a string containing a rpn expression.
# Return the evaluated integer result.
# Examp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10862	11041	
==>urns Hash
      {
          return
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method report return <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1358	1519	
==>urns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report return <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1358	1519	
==>urns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5942	6050	
==>turn $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5101	5234	
==>else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5101	5234	
==>else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3420	3543	
==>'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3613	3736	
==>'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5645	5774	
==>]) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6913	7042	
==>]) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5645	5774	
==>]) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6901	7030	
==>]) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1211	1320	
==>Inv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1211	1320	
==>Inv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1211	1320	
==>Inv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7193	7296	
==>$line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print "can't run $file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2733	2833	
==>BUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextTo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2733	2833	
==>BUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextTo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2733	2833	
==>BUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextTo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25772	25928	
==>calar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25772	25928	
==>calar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25772	25928	
==>calar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $t <==
4	/Users/nnunley/pugs/util/grokprims.pl	89	205	
==>assoc = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3203	3385	
==>' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3203	3385	
==>' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3203	3385	
==>' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3567	3685	
==>xt unless exists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1171	1268	
==>mbol type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () retu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	440	536	
==>::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	440	536	
==>::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	996	1092	
==>::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18431	18528	
==>t accurate program text
for users, we still get the best results by having a human being write out <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18431	18528	
==>t accurate program text
for users, we still get the best results by having a human being write out <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	95	184	
==>OOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optiona <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	95	184	
==>OOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optiona <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2415	2549	
==>e ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2555	2689	
==>e ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7021	7119	
==>rting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not per <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7021	7119	
==>rting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13075	13195	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21125	21245	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13354	13474	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21404	21524	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::opt <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50433	50569	
==>)
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4236	4337	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4236	4337	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4236	4337	
==>od(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4077	4196	
==>_str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4217	4336	
==>_str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19993	20092	
==>le string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->auth <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19993	20092	
==>le string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->auth <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13746	13862	
==>noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11835	11948	
==>cation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11835	11948	
==>cation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11835	11948	
==>cation of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1195	1301	
==>> does longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1544	1648	
==>> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1151	1255	
==>> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1544	1648	
==>> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24000	24108	
==>d
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22773	22881	
==>d
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24000	24108	
==>d
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22773	22881	
==>d
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops b <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	68	170	
==>lass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2649	2758	
==>->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generat <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2649	2758	
==>->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12487	12584	
==>2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12487	12584	
==>2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28207	28307	
==>()>

This method returns a stringified version of this object which is suitable
for debugging purpose <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35563	35663	
==>()>

This method returns a stringified version of this object which is suitable
for debugging purpose <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28207	28307	
==>()>

This method returns a stringified version of this object which is suitable
for debugging purpose <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35563	35663	
==>()>

This method returns a stringified version of this object which is suitable
for debugging purpose <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4060	4164	
==>->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4060	4164	
==>->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4060	4164	
==>->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	918	1009	
==>ading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::A <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5938	6088	
==>s $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5938	6088	
==>s $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24162	24310	
==>cat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24441	24589	
==>cat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1233	1369	
==>kage

=head2 $pkg->install( installation => INSTALLATION_OBJECT )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9974	10087	
==>se) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9974	10087	
==>se) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9974	10087	
==>se) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pri <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9646	9751	
==>,$c01[1]);
    system("diff -u --minimal deleteme_pil0 deleteme_pil1");
}
sub p2p {
    my($fn)=@_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1284	1383	
==>portant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1284	1383	
==>portant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1284	1383	
==>portant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5408	5537	
==>um_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5408	5537	
==>um_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5408	5537	
==>um_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $en <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1204	1319	
==>'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13474	13583	
==>q "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13474	13583	
==>q "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13474	13583	
==>q "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1995	2104	
==>erence, which will
    # blow up in our faces when tests are inserted.
    # It is better then checking for th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13986	14103	
==>hem from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13986	14103	
==>hem from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6702	6800	
==>ired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6702	6800	
==>ired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4686	4814	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4686	4814	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4686	4814	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3986	4113	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10084	10223	
==>ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6425	6564	
==>ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7274	7413	
==>ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6214	6350	
==>sh)\
\\n   List      pre     keys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11456	11561	
==>{  # see 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrU <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2654	2815	
==>lable, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Unpacking code. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35201	35307	
==>len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35201	35307	
==>len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35201	35307	
==>len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1853	1960	
==>er) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the corre <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1853	1960	
==>er) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the corre <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	474	571	
==>$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	474	571	
==>$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to mat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10551	10671	
==>ct);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10551	10671	
==>ct);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($it <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25564	25658	
==>ires distribution of
source code.  However, for an additional fee, the copyright holders of
Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25564	25658	
==>ires distribution of
source code.  However, for an additional fee, the copyright holders of
Ros <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28689	28795	
==>turn $S->object('and');
    });
  }

There is a specific scheme to how you must name your handlers.  If you <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4393	4498	
==>}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4393	4498	
==>}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4393	4498	
==>}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	123	224	
==>lder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	123	224	
==>lder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6059	6150	
==>ght now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6059	6150	
==>ght now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	235	348	
==>d be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	235	348	
==>d be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	235	348	
==>d be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26946	27052	
==>RNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harness will check after each
test whether new <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8396	8557	
==>$block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4756	4917	
==>$block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5605	5766	
==>$block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit( <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	797	899	
==>file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsa <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	982	1076	
==>nation     { <non_alternation> \| <term>+? }
rule non_alternation { <conjunction> | <non_conjun <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1678	1772	
==>Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Rege <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1678	1772	
==>Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Rege <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2267	2380	
==>s -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2184	2292	
==>s -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1490	1590	
==>de;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1490	1590	
==>de;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10167	10368	
==>ms }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10167	10368	
==>ms }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10167	10368	
==>ms }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2432	2566	
==>rl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2432	2566	
==>rl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2432	2566	
==>rl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10349	10436	
==>.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1522	1691	
==>$.passed'      =>                        1,
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::Test <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8876	8999	
==>left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	623	731	
==>turns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	623	731	
==>turns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4813	4988	
==>st_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4813	4988	
==>st_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1431	1547	
==>$_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1431	1547	
==>$_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1431	1547	
==>$_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14859	14951	
==>droot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2259	2363	
==>mainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	802	905	
==>mainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2170	2273	
==>mainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	802	905	
==>mainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6455	6592	
==>>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6455	6592	
==>>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15373	15469	
==>nents are intended for widespread use
then it needs to account for a variance of needs between it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15373	15469	
==>nents are intended for widespread use
then it needs to account for a variance of needs between it <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21932	22147	
==>cat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22211	22426	
==>cat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15287	15401	
==>my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18764	18878	
==>my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5603	5707	
==>d <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method diffe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5603	5707	
==>d <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method diffe <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4409	4512	
==>l;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLW <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4409	4512	
==>l;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLW <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	616	772	
==>ction_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	616	772	
==>ction_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	616	772	
==>ction_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1056	1164	
==>ternation is first match (not longest).  though we need a 

    # separate longest match for tokens (putter o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1407	1514	
==>ternation is first match (not longest).  though we need a 
    # separate longest match for tokens (putter o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1014	1121	
==>ternation is first match (not longest).  though we need a 
    # separate longest match for tokens (putter o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1407	1514	
==>ternation is first match (not longest).  though we need a 
    # separate longest match for tokens (putter o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3122	3228	
==>\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3122	3228	
==>\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3122	3228	
==>\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2404	2503	
==>_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2404	2503	
==>_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2404	2503	
==>_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20191	20289	
==>onList> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12.2
      < <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	941	1035	
==>pcre> library for
regular expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyrigh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7180	7272	
==>_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7180	7272	
==>_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7180	7272	
==>_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	578	689	
==>ht
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	578	689	
==>ht
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	578	689	
==>ht
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	192	283	
==>E_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21006	21102	
==>rl packages
or programs.  Your package or program can be distributed with one or more
resource fi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21006	21102	
==>rl packages
or programs.  Your package or program can be distributed with one or more
resource fi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	208	303	
==>s scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	208	303	
==>s scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12113	12240	
==>er::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2515	2628	
==>er::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2515	2628	
==>er::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1432	1552	
==>ibute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1432	1552	
==>ibute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1432	1552	
==>ibute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20899	20990	
==>ernals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::require <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21687	21807	
==>?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18108	18228	
==>?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8366	8455	
==>ay("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8424	8513	
==>ay("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_test <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3636	3740	
==>ence($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3636	3740	
==>ence($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4510	4613	
==>ence($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4510	4613	
==>ence($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17881	18036	
==>new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17881	18036	
==>new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17881	18036	
==>new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	964	1098	
==>r;

    use base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	298	406	
==>=> time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	298	406	
==>=> time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26573	26669	
==>thod:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26573	26669	
==>thod:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Loca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4771	4908	
==><1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4783	4920	
==><1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) <==
4	/Users/nnunley/pugs/util/func_refact.pl	1492	1610	
==>{$new};

    my $size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7103	7208	
==>return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1948	2056	
==>doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1948	2056	
==>doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1948	2056	
==>doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return spr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31831	31930	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that takes a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35682	35781	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that takes
a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36381	36480	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that takes a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40232	40331	
==>n $other!) returns Relation>

This multi-method is a generic binary relational operator that takes
a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18709	18842	
==>sa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18709	18842	
==>sa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18709	18842	
==>sa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13160	13263	
==>hunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9883	9985	
==>can remain an implementation detail 
    # for the methods described below.
    # --------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9883	9985	
==>can remain an implementation detail 
    # for the methods described below.
    # --------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9883	9985	
==>can remain an implementation detail 
    # for the methods described below.
    # --------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13195	13294	
==>r on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unexpec <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2836	2980	
==>hr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    print "} \\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	947	1083	
==>'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28026	28117	
==>positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28026	28117	
==>positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7705	7855	
==>=> (
    # method label
        symbol->new('has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5859	5970	
==>ments!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9336	9447	
==>ments!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.val <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3385	3488	
==>ebug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3385	3488	
==>ebug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our ni <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	582	705	
==>ng ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	582	705	
==>ng ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35546	35638	
==>em C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40096	40188	
==>em C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version of <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3048	3177	
==>oadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            pri <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3512	3641	
==>oadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            pri <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	685	787	
==>ns[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	685	787	
==>ns[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @. <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	533	634	
==>305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUIL <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	533	634	
==>305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1144	1239	
==>ed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine. <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1144	1239	
==>ed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine. <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	406	524	
==>*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' ) <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	406	524	
==>*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' ) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	148	247	
==>RE variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	148	247	
==>RE variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1264	1357	
==>p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1264	1357	
==>p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1264	1357	
==>p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10739	10850	
==>for (@{ $tree->[-1]{data}[0] }) {
        last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4614	4708	
==>$self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4614	4708	
==>$self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4614	4708	
==>$self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	393	516	
==>}

sub interpreter {
    my $self = shift;
    my $class = $self->interpreter_class;
    $class->require or die $UNIVERSAL:: <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1271	1367	
==>e disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1271	1367	
==>e disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17162	17298	
==>e',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17162	17298	
==>e',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	290	390	
==>) / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error message <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	290	390	
==>) / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error message <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3203	3319	
==>amble || '');

    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    close M <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4020	4119	
==>class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUI <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4020	4119	
==>class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUI <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17192	17286	
==>lf:) (hash %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :descenda <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15699	15813	
==><'>='> <ShiftExpression>
    | <RelationalExpression> <'instanceof'> <ShiftExpression>
    | <RelationalExpression> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13501	13597	
==>prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13501	13597	
==>prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13501	13597	
==>prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_t <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	788	892	
==>line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6883	6977	
==>turn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6883	6977	
==>turn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6883	6977	
==>turn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3563	3698	
==>f)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6720	6827	
==>eable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6720	6827	
==>eable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6720	6827	
==>eable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 }, <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7576	7671	
==>ve is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (which <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7576	7671	
==>ve is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (which <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	241	335	
==>peChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	241	335	
==>peChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*C <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12780	12883	
==>eturn $NO;
    }
}

=head2 C<_is_header>

  my $is_header = $strap->_is_header($line);

Checks if the gi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	2001	2094	
==>d1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	2001	2094	
==>d1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	2001	2094	
==>d1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24795	24893	
==>head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23559	23657	
==>head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24795	24893	
==>head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23559	23657	
==>head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21812	21910	
==>ent :words {  # see 12.9
      <'return'><no_LineTerminator_here><Expression>? <';'>
}
rule WithSta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14208	14297	
==>ribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14208	14297	
==>ribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14208	14297	
==>ribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attri <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1324	1445	
==>aller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5078	5192	
==>lass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5078	5192	
==>lass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5078	5192	
==>lass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Per <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13823	13956	
==>r', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Ente <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13823	13956	
==>r', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Ente <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	15	110	
==>-----------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is tot <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	15	110	
==>-----------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is tot <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2658	2752	
==>params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
met <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2658	2752	
==>params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
met <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	832	928	
==>write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
cha <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	832	928	
==>write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
cha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1388	1484	
==>write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
cha <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22350	22498	
==>abel
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42139	42287	
==>abel
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	37	135	
==>pher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	37	135	
==>pher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8983	9139	
==>n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14712	14868	
==>n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8983	9139	
==>n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14706	14862	
==>n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1209	1314	
==>ired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1209	1314	
==>ired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1418	1523	
==>ired};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3989	4116	
==>/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	836	950	
==>tr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	836	950	
==>tr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	836	950	
==>tr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5196	5308	
==>[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1275	1374	
==>) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1275	1374	
==>) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1275	1374	
==>) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", " <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1754	1895	
==>put ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1754	1895	
==>put ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	885	1005	
==>edil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	885	1005	
==>edil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3019	3137	
==>ass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3019	3137	
==>ass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3019	3137	
==>ass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->supe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3020	3130	
==>=item Sym

Resolves a symbol into a value. Could be a global or a dynamic symbol:

    App(
        Sym('&func' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1343	1490	
==>'((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1343	1490	
==>'((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $ma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2701	2811	
==>oclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2759	2869	
==>oclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7493	7625	
==>rface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7493	7625	
==>rface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13085	13181	
==>s used to describe the content of
a message.  All header field names prefixed with C<Content-> fa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13085	13181	
==>s used to describe the content of
a message.  All header field names prefixed with C<Content-> fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2277	2429	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2277	2429	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2277	2429	
==>ed} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16216	16306	
==>m(lookbehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re), <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23990	24082	
==>and
Body attributes are set respectively from the optional named parameters
C<$heading> and C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28542	28634	
==>and
Body attributes are set respectively from the optional named parameters
C<$heading> and C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27373	27465	
==>and
Body attributes are set respectively from the optional named parameters
C<$heading> and C <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2709	2806	
==>se:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix::", "nows");

    my %esca <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13889	14024	
==>_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13889	14024	
==>_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2206	2300	
==><$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets sup <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2206	2300	
==><$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets sup <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6800	6898	
==>ck

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4152	4250	
==>ck

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<l <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6800	6898	
==>ck

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<l <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4152	4250	
==>ck

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<l <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1479	1575	
==>age %s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4341	4436	
==>array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4341	4436	
==>array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4341	4436	
==>array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	942	1151	
==>n't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find curr <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	942	1151	
==>n't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find curr <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7818	7918	
==>tDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	75	168	
==>ster { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	75	168	
==>ster { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	75	168	
==>ster { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_con <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	713	819	
==>=> $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct => $struct );

=cut

sub new_fro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2043	2148	
==>rted

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list we <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2043	2148	
==>rted

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list we <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2043	2148	
==>rted

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list we <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4055	4163	
==>{stack};
  my $vis = join "", map($_->visual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14675	14792	
==>or example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $transl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14675	14792	
==>or example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $transl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	294	397	
==>_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	294	397	
==>_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13383	13491	
==><PrimaryExpression>
    | <FunctionExpression>
    | <MemberExpression> <'['> <Expression> <']'>
    | <Membe <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2819	2971	
==>@ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $lengt <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3439	3591	
==>@ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $lengt <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2819	2971	
==>@ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $lengt <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3439	3591	
==>@ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $lengt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	601	702	
==>SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	601	702	
==>SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4254	4355	
==>okens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep: <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4254	4355	
==>okens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22929	23027	
==>contains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and va <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27481	27579	
==>contains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and va <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1371	1493	
==>rec = $op->{'nprec'};
      }
      else { die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5796	5892	
==>RED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5796	5892	
==>RED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5796	5892	
==>RED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5785	5884	
==>.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5785	5884	
==>.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5785	5884	
==>.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10136	10245	
==>oize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10136	10245	
==>oize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10136	10245	
==>oize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatc <==
4	/Users/nnunley/pugs/util/build_pugs.pl	78	170	
==>qw(copy);
use File::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(di <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8153	8267	
==>ader} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile), " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5868	5974	
==>:Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5868	5974	
==>:Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5868	5974	
==>:Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	150	264	
==>ter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	150	264	
==>ter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	150	264	
==>ter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4364	4478	
==>body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4364	4478	
==>body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4364	4478	
==>body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --h <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2016	2114	
==>!defined $base;
    return Pugs::Internals::log10($x) if $base == 10;
    return (Pugs::Internals:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9887	10007	
==>= ' ' . $_;
    }
}

sub _create_runperl { # Create the string to qx in runperl().
    my %args = @_;
    my $runperl = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	319	414	
==>ringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	319	414	
==>ringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	319	414	
==>ringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 200 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2758	2893	
==>g, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7852	7987	
==>g, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2758	2893	
==>g, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7852	7987	
==>g, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	115	216	
==>urns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    retu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	115	216	
==>urns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	849	946	
==>ch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	849	946	
==>ch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	269	422	
==>, '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	269	422	
==>, '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	269	422	
==>, '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7168	7314	
==><'<='>
    | <'>='>
    | <'=='>
    | <'!='>
    | <'==='>
    | <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'--'> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5663	5839	
==>binations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

met <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5663	5839	
==>binations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

met <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10032	10129	
==>put, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
val <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10032	10129	
==>put, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1182	1302	
==>prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self- <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13708	13822	
==>prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18655	18750	
==>your application or package, with one or more
text strings to show human users.  This associatio <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18655	18750	
==>your application or package, with one or more
text strings to show human users.  This associatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3029	3160	
==>if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            nex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3029	3160	
==>if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            nex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3029	3160	
==>if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            nex <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3142	3243	
==>ast if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, ' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2472	2589	
==>}

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2472	2589	
==>}

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6068	6178	
==>er( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6080	6190	
==>er( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumpe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	399	550	
==>basename($archive);

        print "Copying '$archive'\n";
    
        ### get the metadata out
        {   ### extract to a temp dir
            my $m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19337	19452	
==>(pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = se <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11111	11205	
==>t?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11111	11205	
==>t?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2219	2382	
==>if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2219	2382	
==>if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

me <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16655	16752	
==>r sees; it never outputs anything by itself to the user, but
rather returns its results for callin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16655	16752	
==>r sees; it never outputs anything by itself to the user, but
rather returns its results for callin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1324	1450	
==>- $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2275	2397	
==>(0 .. $params->elems->to_native) {
        my $value; 
        my $param      = $params->fetch(num->new($i));
        my $p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30118	30213	
==>le message text associated with the
Message; this user string may also contain variable names th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30118	30213	
==>le message text associated with the
Message; this user string may also contain variable names th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16628	16747	
==>";
        die "FAILED--$tot->{tests} test $blurb could be run, ".
            "alas--no output ever seen\n";
    } else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11414	11516	
==>r (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11414	11516	
==>r (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11414	11516	
==>r (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eva <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	388	490	
==>on($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	944	1042	
==>R:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [Nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	944	1042	
==>R:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [Nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	944	1042	
==>R:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [Nor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3453	3550	
==>$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3453	3550	
==>$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3453	3550	
==>$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29394	29489	
==>C<< $parser->{next} >>).

The handle '|' is post-consumptive.  It happens to be executed when
'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	94	192	
==>d in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	94	192	
==>d in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	94	192	
==>d in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	597	739	
==>BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1483	1580	
==>tamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1483	1580	
==>tamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1483	1580	
==>tamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3662	3765	
==>ect(anyof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11104	11240	
==>eturn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11104	11240	
==>eturn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11104	11240	
==>eturn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idx <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8503	8596	
==>opaque $self:) (symbol $label)) returns method
    ((($self: get_attr (symbol new (%:methods)) <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2772	2899	
==>im.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, both return and argument types differ.
multi infix:«¥» (Arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4074	4176	
==>=~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4074	4176	
==>=~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4074	4176	
==>=~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	596	711	
==>ined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash crea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	596	711	
==>ined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash crea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	596	711	
==>ined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash crea <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15735	15834	
==>Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captures_ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4675	4847	
==>pth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signat <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1409	1513	
==>l => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4048	4143	
==>>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4048	4143	
==>>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed t <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11201	11351	
==>paceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	791	896	
==>05-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	791	896	
==>05-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	791	896	
==>05-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy spli <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6218	6337	
==>dent};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6218	6337	
==>dent};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	935	1046	
==>urn } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) tha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	935	1046	
==>urn } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) tha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5542	5674	
==>p::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5735	5867	
==>p::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	521	621	
==>sg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, sa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	521	621	
==>sg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, sa <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9686	9794	
==>mand line as -Is.
    # MacPerl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if ( $ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1410	1512	
==>)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1410	1512	
==>)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1410	1512	
==>)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13508	13611	
==>::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13508	13611	
==>::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13508	13611	
==>::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	789	889	
==><word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1366	1462	
==>IL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1366	1462	
==>IL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1366	1462	
==>IL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	360	461	
==>e and practical 
# things like Object, Package and Module. It was also created
# by God (which means i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	360	461	
==>e and practical 
# things like Object, Package and Module. It was also created
# by God (which means i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	360	461	
==>e and practical 
# things like Object, Package and Module. It was also created
# by God (which means i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4395	4535	
==>. 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4535	4675	
==>. 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	338	432	
==>ORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple times i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	396	490	
==>ORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple times i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	127	273	
==>oad (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	169	315	
==>oad (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	127	273	
==>oad (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	169	315	
==>oad (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&fl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6074	6192	
==>ol {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6074	6192	
==>ol {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13722	13819	
==>in.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17199	17296	
==>in.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Rela <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8978	9124	
==>1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14707	14853	
==>1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8978	9124	
==>1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14701	14847	
==>1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	300	400	
==>t::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOption <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	261	361	
==>t::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOption <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	261	361	
==>t::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOption <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14997	15094	
==>fault is LChars.

[Q: Can't be LChars because we don't go into "language" mode unless there's
a sp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5512	5634	
==>rse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Ca <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6009	6126	
==>rse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Ca <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6259	6359	
==>ant mklivecd.pl to refetch GRUB.",
  ensure => sub { -r $grub_local and -s $grub_local },
  using  => <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	147	245	
==>=> "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6369	6527	
==>a( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6369	6527	
==>a( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6369	6527	
==>a( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29065	29161	
==>ething yet.
Handle names that I<do> have a "predecessor" (that is, a '&&' with a
'&') are post-co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1120	1254	
==>ss {
        sig  => $signature,
        body => $body,
        env  => $local_env
    } => $class;
}

# we dont really have a native f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5367	5461	
==>e $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5367	5461	
==>e $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5367	5461	
==>e $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17139	17248	
==>e),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17296	17405	
==>e),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17544	17653	
==>e),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17728	17837	
==>e),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5716	5854	
==>available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RE <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6180	6318	
==>available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RE <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3308	3413	
==>InP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	79	184	
==>InP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8812	8994	
==>ute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8812	8994	
==>ute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8812	8994	
==>ute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # j <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34584	34785	
==>->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33992	34175	
==>->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->ne <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	298	398	
==>ew(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arc <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	298	398	
==>ew(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1380	1475	
==>ounter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2744	2838	
==>o.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this no <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2744	2838	
==>o.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1364	1454	
==>ounter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1500	1634	
==>$data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1500	1634	
==>$data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1315	1437	
==>_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1315	1437	
==>_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!h <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	853	987	
==>an.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4092	4226	
==>an.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	853	987	
==>an.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4092	4226	
==>an.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10931	11076	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10931	11076	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10931	11076	
==>UTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred') <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4103	4198	
==>ailed.  Successive failures may be
abbreviated (ie. 15-20 to indicate that tests 15, 16, 17, 18, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2777	2993	
==>' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $ei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6278	6363	
==>-----------------------------------------------------------------------
## Module

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6278	6363	
==>-----------------------------------------------------------------------
## Module

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6278	6363	
==>-----------------------------------------------------------------------
## Module

$:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22800	22902	
==>Block> <Catch> <Finally>
}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <')'> <B <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5181	5282	
==>.

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5181	5282	
==>.

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7378	7479	
==>.

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3703	3836	
==>atches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3715	3848	
==>atches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1318	1440	
==>ure => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1318	1440	
==>ure => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2405	2524	
==>->can('call')} unless uc($1) eq $1;
    };
}

sub import {
    my $class = shift;
    my $self  = $class->new(@_);
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4609	4722	
==>. ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4609	4722	
==>. ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4609	4722	
==>. ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4032	4139	
==>um}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4032	4139	
==>um}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4032	4139	
==>um}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $para <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28587	28686	
==>Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @ARGV;' t/*.t
  Using / <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2339	2451	
==>sary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2339	2451	
==>sary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2339	2451	
==>sary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4407	4514	
==>thod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4407	4514	
==>thod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4407	4514	
==>thod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses') <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9039	9135	
==>ngCharacters {  # see 7.8.4
      <SingleStringCharacter> <SingleStringCharacters>?
}
rule Double <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5652	5789	
==>( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6920	7057	
==>( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5652	5789	
==>( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6908	7045	
==>( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15110	15271	
==>d '.$tag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12018	12139	
==>ass, $rx, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4716	4822	
==>{prefix}/$args{path}.pm";

    bless( \%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3940	4042	
==>- the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	912	1044	
==>nction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	912	1044	
==>nction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	912	1044	
==>nction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done wi <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7879	7991	
==>Prim.hs has a different return type.  List instead of Scalar.
# \\n   List      pre     reduce  safe   (Array: Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13884	13981	
==>p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13884	13981	
==>p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13884	13981	
==>p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5034	5127	
==>shift;
		my $type = shift;
		while (Scalar::Util::blessed($type) and !$type->isa("Blondie::Typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15384	15494	
==>...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15384	15494	
==>...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15384	15494	
==>...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	22	123	
==>:Rule;

=for About

Original file: pX/Common/iterator_engine.pl - fglock

Old docs are after the <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	947	1080	
==>) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	947	1080	
==>) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7359	7452	
==>t::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_fai <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7417	7510	
==>t::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_fai <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15691	15784	
==>to
communicate in those languages.  Or, when viewing an error message, the
application's devel <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15691	15784	
==>to
communicate in those languages.  Or, when viewing an error message, the
application's devel <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11120	11212	
==>over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$locat <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11120	11212	
==>over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$locat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10149	10278	
==>e     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10149	10278	
==>e     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8163	8290	
==>v;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8163	8290	
==>v;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5562	5692	
==>thority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5562	5692	
==>thority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5562	5692	
==>thority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16064	16162	
==>The difficulty
rating is so high because of cases like C</(\d+)(\w+)/> which, when
reversed, I<can> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11523	11615	
==>C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8670	8762	
==>C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11523	11615	
==>C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8670	8762	
==>C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size()>, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1091	1202	
==>)};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1091	1202	
==>)};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9783	9884	
==>$gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9777	9878	
==>$gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return " <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1712	1830	
==>= 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method inte <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1712	1830	
==>= 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method inte <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1322	1422	
==>e]" is expressed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-international <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6945	7043	
==>lved);
print $error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18110	18238	
==>ass;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24729	24857	
==>ass;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3142	3254	
==>} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3130	3242	
==>} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23567	23680	
==>> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22340	22453	
==>> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23567	23680	
==>> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22340	22453	
==>> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3217	3345	
==>rl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3357	3485	
==>rl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args} <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	972	1068	
==>rldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	972	1068	
==>rldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4259	4378	
==>ed.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4259	4378	
==>ed.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4259	4378	
==>ed.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    % <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3623	3726	
==>ts ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_par <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3623	3726	
==>ts ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_par <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1089	1187	
==>use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for so <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1089	1187	
==>use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for so <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4928	5031	
==>span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4928	5031	
==>span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.re <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3795	3895	
==>, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the t <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3795	3895	
==>, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7640	7756	
==>y($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alway <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7640	7756	
==>y($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alway <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7640	7756	
==>y($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alway <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25886	25980	
==>ion details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2535	2648	
==>{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2535	2648	
==>{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2535	2648	
==>{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2248	2355	
==>else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2248	2355	
==>else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8374	8479	
==>_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5916	6015	
==>_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3585	3694	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3778	3887	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12465	12560	
==>s|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12465	12560	
==>s|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2392	2502	
==>$self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2392	2502	
==>$self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	107	208	
==>ss HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	107	208	
==>ss HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12899	13054	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12899	13054	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12899	13054	
==>NIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5828	5947	
==>tor;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $wh <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2755	2897	
==>script";
            1 while unlink "$Alternatives/$script";
        }      
        
        ### see if there's any other package that's now t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3351	3465	
==>ined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3351	3465	
==>ined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3351	3465	
==>ined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13432	13523	
==>he one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18519	18610	
==>he one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13432	13523	
==>he one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18519	18610	
==>he one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3715	3830	
==>Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3715	3830	
==>Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3715	3830	
==>Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5557	5768	
==>h( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5557	5768	
==>h( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5557	5768	
==>h( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ar <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2361	2469	
==>or @{$self->bundles};
    }

    if (my $perl_version = $self->perl_version) {
        eval "use $perl_versio <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7121	7249	
==>1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7121	7249	
==>1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7841	7941	
==>nt ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7841	7941	
==>nt ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1081	1204	
==>is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather conta <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1081	1204	
==>is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather conta <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12437	12541	
==>p ( Array *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@li <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2987	3088	
==>p ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@li <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12183	12279	
==>=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12183	12279	
==>=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4394	4481	
==>s::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4644	4731	
==>s::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	215	314	
==>es have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	215	314	
==>es have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	215	314	
==>es have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36444	36541	
==>ray reference of any number of objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifth <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1492	1661	
==>index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z", <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1492	1661	
==>index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z", <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39988	40085	
==>on) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedTe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39988	40085	
==>on) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedTe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4624	4746	
==>l          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4624	4746	
==>l          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4624	4746	
==>l          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0] <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1963	2054	
==><$event> event handler, passing C<@args> as arguments.
Note that possibly, the event handler <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	375	512	
==>is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node obje <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	866	1003	
==>is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node obje <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	375	512	
==>is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node obje <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	866	1003	
==>is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node obje <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3110	3215	
==>ication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3110	3215	
==>ication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	861	980	
==>+< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	861	980	
==>+< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	902	1018	
==>t Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conf <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	902	1018	
==>t Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conf <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2548	2654	
==>eparator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2548	2654	
==>eparator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	194	289	
==>t`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	347	442	
==>t`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32973	33137	
==>shift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32973	33137	
==>shift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32973	33137	
==>shift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                el <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5324	5438	
==>:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3093	3214	
==>it from the .jib
    unless( $meta ) {
        
        ### installed packages don't have a 'file' method, but they /shoul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4543	4635	
==>base>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4543	4635	
==>base>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4543	4635	
==>base>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4349	4468	
==>s.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4403	4522	
==>s.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4349	4468	
==>s.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4403	4522	
==>s.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifi <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	118	247	
==>ement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	118	247	
==>ement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	118	247	
==>ement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	118	247	
==>ement',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7356	7524	
==>unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$mayb <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7820	7988	
==>unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$mayb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19697	19793	
==>tement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19697	19793	
==>tement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5702	5812	
==>ngs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5702	5812	
==>ngs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5702	5812	
==>ngs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::po <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4256	4352	
==>opy( $pkg->file, $self->pool )     or error($!), return;
    $self->add_package_to_index( package <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	221	337	
==>erations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

= <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	221	337	
==>erations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

= <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5257	5361	
==>$removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5257	5361	
==>$removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	480	585	
==>s
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18472	18569	
==>value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18472	18569	
==>value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18472	18569	
==>value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	609	756	
==>er to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX instead of cp - <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3176	3298	
==>description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $desc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3176	3298	
==>description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $desc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4700	4822	
==>description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $desc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	869	1039	
==>st, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	869	1039	
==>st, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18438	18558	
==>ded into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        P <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18438	18558	
==>ded into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23146	23247	
==>E> command. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21955	22056	
==>E> command. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23146	23247	
==>E> command. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21955	22056	
==>E> command. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3506	3619	
==>ispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3506	3619	
==>ispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3506	3619	
==>ispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %o <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6287	6416	
==>,
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6287	6416	
==>,
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      = <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2452	2575	
==>rn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $sel <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4040	4163	
==>rn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $sel <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7295	7408	
==>r = sv;
    }
  }  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcomp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7705	7818	
==>r( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7705	7818	
==>r( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2475	2580	
==>__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	755	860	
==>te that this could be a different entity to the objects that are
created when you use;

  type Bar;
  subt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2475	2580	
==>__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2475	2580	
==>__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9265	9363	
==>5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_item <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	836	934	
==>tdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	836	934	
==>tdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21711	21801	
==>ass_member(class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_member(class_neg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2463	2583	
==>$body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1177	1297	
==>y $depends ( @list ) {
        print "\n*** $entry->{package} depends on $depends->{package}...\n";
    
        system(q <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2463	2583	
==>$body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2463	2583	
==>$body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2994	3160	
==>( 
        name => '&&',
        assoc => 'right',
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5589	5711	
==>bute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5589	5711	
==>bute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5589	5711	
==>bute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31384	31503	
==>andler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym for the
mo <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	295	422	
==>urn $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil][$ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17378	17485	
==>with the first param and the second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8224	8328	
==>: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or wh <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8224	8328	
==>: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	710	852	
==>ass";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	710	852	
==>ass";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	710	852	
==>ass";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13975	14093	
==>e::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13975	14093	
==>e::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13975	14093	
==>e::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1257	1383	
==>apture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1462	1588	
==>apture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8023	8129	
==>r infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8023	8129	
==>r infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4334	4519	
==>5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4875	5060	
==>5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5339	5524	
==>5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27788	27883	
==>ample object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23696	23788	
==>ses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23696	23788	
==>ses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements a <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	461	570	
==>ame => "nested addition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6376	6476	
==>rg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6376	6476	
==>rg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6376	6476	
==>rg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17316	17429	
==>$S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13737	13850	
==>$S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9103	9208	
==>h might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9103	9208	
==>h might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4209	4310	
==>>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4209	4310	
==>>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33430	33529	
==>r the program or first library should
appear first in the array.  Each Set Name can be any defined a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33430	33529	
==>r the program or first library should
appear first in the array.  Each Set Name can be any defined a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	627	744	
==>,
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1908	2025	
==>,
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6686	6787	
==>ags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6698	6799	
==>ags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5493	5604	
==>([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6761	6872	
==>([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5493	5604	
==>([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6749	6860	
==>([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	281	417	
==>Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	281	417	
==>Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	477	612	
==>my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        sa <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	477	612	
==>my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	702	806	
==>($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	702	806	
==>($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	702	806	
==>($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Clas <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5857	5959	
==>Name {  # see 7.6
      <IdentifierStart>
    | <IdentifierName> <IdentifierPart>
}
rule IdentifierStar <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	248	350	
==>"lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8	101	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_CO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8	101	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_CO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8	101	
==>in/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_CO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6540	6668	
==>tch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6540	6668	
==>tch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6540	6668	
==>tch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really b <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	30	155	
==>tern definieren
class Welt {
	method hallo ( String $gruß, String $name ) { "$gruß, $name!".say; }
}
#=Aufruf
$welt.hallo("H <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10161	10287	
==>%temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10161	10287	
==>%temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	245	344	
==>done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-ca <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	245	344	
==>done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-ca <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8097	8230	
==>ader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2719	2848	
==>}

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2719	2848	
==>}

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2719	2848	
==>}

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11966	12092	
==>,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11966	12092	
==>,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$c <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4434	4542	
==>ators, since they have children
	my $self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	19	119	
==>e warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	19	119	
==>e warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	19	119	
==>e warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23825	23947	
==>*/
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29013	29113	
==>*/
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This i <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1887	2032	
==>isfied?
            {   my $info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3142	3247	
==>pads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3142	3247	
==>pads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3142	3247	
==>pads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5426	5529	
==>rl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5426	5529	
==>rl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5426	5529	
==>rl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43537	43631	
==>L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Dar <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3507	3619	
==>1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3336	3445	
==>b {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3336	3445	
==>b {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3336	3445	
==>b {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{ <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	763	891	
==>tall '$script_name'";
        $prompt .= " ($abstract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7571	7698	
==>);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7571	7698	
==>);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7571	7698	
==>);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2188	2297	
==>ess defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22826	22922	
==>r. F. Codd, upon which anything in the world can be modelled.

The provided roles (Relation, Tupl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	171	263	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	171	263	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	171	263	
==>PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2593	2713	
==>stant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2786	2906	
==>stant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	382	499	
==>n?)
    is exported(:all) {
  ## XXX - slurpy magic doesn't work too well presently ...
  $maketoken := { [ $^tok_labe <==
4	/Users/nnunley/pugs/util/func_refact.pl	2950	3056	
==>new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

sub score {
    m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15764	15889	
==>nternal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ o <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19997	20122	
==>nternal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1297	1400	
==>s (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1241	1340	
==>s (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31518	31724	
==>ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31518	31724	
==>ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31518	31724	
==>ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1473	1595	
==>xport{
    my @matches;
    for %x.kv->$key,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	922	1034	
==>sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	922	1034	
==>sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	922	1034	
==>sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30274	30379	
==>$obj->visual()

The visual representation of this object.  It includes the visual
representation of any ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13319	13418	
==>ams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13319	13418	
==>ams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13319	13418	
==>ams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16658	16811	
==>urn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16658	16811	
==>urn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16658	16811	
==>urn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1071	1176	
==>->last_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val) = each % <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4398	4551	
==>s)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4398	4551	
==>s)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9885	9995	
==>-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9885	9995	
==>-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7440	7539	
==>tart), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7440	7539	
==>tart), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1109	1212	
==>->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1109	1212	
==>->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1109	1212	
==>->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	635	736	
==>is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	867	977	
==>ng_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	878	988	
==>ng_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # pr <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	741	846	
==>ME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	741	846	
==>ME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffe <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8065	8165	
==>b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7195	7295	
==>b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8065	8165	
==>b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7195	7295	
==>b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3879	4034	
==>')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role read <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3879	4034	
==>')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role read <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3879	4034	
==>')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role read <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2914	3008	
==>ary report:

  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t/tes <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	885	986	
==>ubset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	885	986	
==>ubset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *inf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21662	21758	
==>>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21662	21758	
==>>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", ni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	153	289	
==>NK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	153	289	
==>NK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	153	289	
==>NK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7 <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2341	2473	
==>nts} }) {
            my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{more_events} = $sum{ <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	274	414	
==>tarted";
    atomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -100 or retry }
        $still_running--;
    }
    s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1389	1499	
==>sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1389	1499	
==>sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1389	1499	
==>sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15049	15221	
==>urn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15049	15221	
==>urn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15049	15221	
==>urn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? In <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7363	7468	
==>lper {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4285	4376	
==>sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4285	4376	
==>sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4285	4376	
==>sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5717	5814	
==>es a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<sta <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5717	5814	
==>es a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<sta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7914	8011	
==>es a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<sta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	777	878	
==>$.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	777	878	
==>$.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2811	2906	
==>ou'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fgl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2708	2800	
==>ou'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fgl <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7611	7726	
==>or @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7611	7726	
==>or @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_tr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33212	33305	
==>is multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37762	37855	
==>is multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17245	17358	
==>my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17245	17358	
==>my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17245	17358	
==>my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$metho <==
4	/Users/nnunley/pugs/util/package-osx.pl	6757	6854	
==>view::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overview::Variable.3
        /usr/local/ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2822	2925	
==>hift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2822	2925	
==>hift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2822	2925	
==>hift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2319	2421	
==>executed by a
runtime. An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5814	5935	
==>try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5814	5935	
==>try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5814	5935	
==>try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	699	799	
==>ventually must deal with Inf and NaN
    return str->new((shift)->to_native() . '');
}

# implement c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	90	200	
==>ol   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	90	200	
==>ol   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1292	1399	
==>arser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=perl <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1292	1399	
==>arser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	124	243	
==>y $c = PIL::Run::Container::Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

cl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8596	8701	
==>num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::nu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8654	8759	
==>num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::nu <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	115	218	
==>.ini';
# use 
# my constant $:parser_details = 'ParserDetails.ini';
# as soon as it works.

method load_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10165	10349	
==>t::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	719	891	
==>t::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	719	891	
==>t::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6248	6401	
==>d patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6248	6401	
==>d patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6248	6401	
==>d patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.ex <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3490	3603	
==>$totals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passed ? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	667	779	
==>e;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3738	3850	
==>e;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	667	779	
==>e;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3738	3850	
==>e;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1831	2028	
==>d.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1831	2028	
==>d.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1831	2028	
==>d.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitte <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31482	31581	
==>ise, it is ahead.

=item down

Whether this object creates a deeper scope (like an OPEN).

=item ift <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6314	6412	
==>le) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8382	8480	
==>le) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6314	6412	
==>le) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8382	8480	
==>le) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1808	1933	
==>start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1808	1933	
==>start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1808	1933	
==>start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	402	513	
==>ar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3297	3406	
==>rse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3297	3406	
==>rse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3297	3406	
==>rse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1894	1987	
==>w(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1894	1987	
==>w(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1894	1987	
==>w(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3167	3323	
==>ime = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_ti <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3167	3323	
==>ime = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_ti <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9002	9118	
==>(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9002	9118	
==>(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2970	3094	
==>ibute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2970	3094	
==>ibute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2970	3094	
==>ibute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attri <==
4	/Users/nnunley/pugs/util/claim_drift.pl	406	505	
==>elib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, qw(--verbose| <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5997	6121	
==>final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6387	6511	
==>final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4497	4620	
==>final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4889	5012	
==>final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2370	2486	
==>rns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2370	2486	
==>rns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.en <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	894	988	
==>ad1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	894	988	
==>ad1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE A <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	578	673	
==>xt - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	578	673	
==>xt - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26298	26390	
==>equired, the copyright holders of Rosetta would
appreciate being informed any time you create <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26298	26390	
==>equired, the copyright holders of Rosetta would
appreciate being informed any time you create <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1372	1484	
==>'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6555	6661	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mult <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10032	10138	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mult <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9124	9230	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mult <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1208	1358	
==>4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3504	3654	
==>4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1208	1358	
==>4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3504	3654	
==>4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6236	6380	
==>op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6749	6893	
==>op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27909	28011	
==>GV;

do {
print "----\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19411	19511	
==>rimitive is safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16796	16977	
==>nd =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16796	16977	
==>nd =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16796	16977	
==>nd =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5735	5832	
==>sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4865	4962	
==>sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5735	5832	
==>sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4865	4962	
==>sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6378	6485	
==>s_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent() <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6378	6485	
==>s_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent() <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31584	31681	
==>a program which uses both libraries
could have yet another set for itself.  When the program is ru <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31584	31681	
==>a program which uses both libraries
could have yet another set for itself.  When the program is ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11831	11974	
==>"    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"E <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8113	8256	
==>"    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"E <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8947	9090	
==>"    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"E <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2385	2489	
==>> "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_typed_value($_->type, Blondie <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	960	1152	
==>r/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print',
            body => sub {
                my $self = shift;
                my $fh = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10342	10450	
==>.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10342	10450	
==>.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10342	10450	
==>.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5579	5708	
==>x_content, $meta;
        
        ### XXX do delayed writes, as an explicit ->write() call on the
        ### object, like in JIB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1605	1714	
==>{
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1605	1714	
==>{
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1605	1714	
==>{
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3536	3684	
==>eason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1361	1459	
==>ed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1361	1459	
==>ed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1361	1459	
==>ed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11392	11523	
==>LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11392	11523	
==>LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3876	3981	
==>EBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   :: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3876	3981	
==>EBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7471	7566	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1699	1794	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	837	946	
==>IL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick rem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	837	946	
==>IL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick rem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	837	946	
==>IL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick rem <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2408	2509	
==>ch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->positi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8991	9116	
==>ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter.
# Arguments :
#   switches => [ command-line s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	383	478	
==>ons\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"prin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	344	439	
==>ons\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	344	439	
==>ons\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7748	7847	
==>d" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7748	7847	
==>d" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7748	7847	
==>d" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2659	2757	
==>iline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2659	2757	
==>iline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2659	2757	
==>iline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10274	10367	
==>ult; $default = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant=>$isInv <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11563	11695	
==>) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11557	11689	
==>) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
su <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	183	290	
==>heck that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	183	290	
==>heck that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	475	581	
==>%att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	475	581	
==>%att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3278	3371	
==>re else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # ev <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3163	3252	
==>re else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # ev <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2022	2112	
==>rl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{'stages <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1824	1925	
==>est := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## un <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1882	1983	
==>est := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## un <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16379	16477	
==>gument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a l <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16379	16477	
==>gument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a l <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2036	2179	
==>ere

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
>   No stain yet on the Moon was seen,
>   No words were laid on s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22360	22454	
==>search
directories in your path that packages could be installed in.

Generally, when a program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22360	22454	
==>search
directories in your path that packages could be installed in.

Generally, when a program <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3471	3586	
==>($self, $default) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6178	6284	
==>if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6178	6284	
==>if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6178	6284	
==>if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3918	4033	
==>om} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4058	4173	
==>om} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->n <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3498	3595	
==>ed.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the
cu <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3498	3595	
==>ed.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the
cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	283	382	
==>able(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieabl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5509	5608	
==>',@_) if $cls eq 'Num';
    return get_meta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	283	382	
==>able(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieabl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	283	382	
==>able(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieabl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8529	8733	
==>ount = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8529	8733	
==>ount = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7765	7880	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7958	8073	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	541	649	
==>o(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	541	649	
==>o(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25602	25699	
==>which is the same as the invocant Relation but that some of its attributes
are renamed.  The argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30154	30251	
==>which is the same as the invocant Relation but that some of its attributes
are renamed.  The argum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7003	7115	
==>LIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7003	7115	
==>LIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7003	7115	
==>LIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9999	10100	
==>xport { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9999	10100	
==>xport { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10887	10979	
==>he information about how many members
were actually new is discarded.

=head2 C<$set.remove(. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10887	10979	
==>he information about how many members
were actually new is discarded.

=head2 C<$set.remove(. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1053	1183	
==>etta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1053	1183	
==>etta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7939	8043	
==>duce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# wil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7939	8043	
==>duce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# wil <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2680	2779	
==>r::Util::blessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11628	11716	
==>@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11628	11716	
==>@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11628	11716	
==>@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6807	6921	
==>, ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8723	8826	
==>EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8723	8826	
==>EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8723	8826	
==>EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16282	16463	
==>uleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16561	16742	
==>uleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1214	1327	
==>ule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1354	1467	
==>ule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2781	2900	
==>cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Fini <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2781	2900	
==>cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Fini <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1823	1935	
==>N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1823	1935	
==>N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	990	1090	
==>arsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_outp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	990	1090	
==>arsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult = pil_outp <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	912	1011	
==>arsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	912	1011	
==>arsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_outp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10116	10272	
==>_parameter_binding( $n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	83	194	
==>, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is nee <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	83	194	
==>, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is nee <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	83	194	
==>, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is nee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36790	36914	
==>ice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36790	36914	
==>ice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36790	36914	
==>ice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #war <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9954	10061	
==>@{ $st->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shi <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	872	986	
==>string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	872	986	
==>string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	285	398	
==>t returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	285	398	
==>t returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13879	13985	
==>We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13879	13985	
==>We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connect <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12949	13051	
==>We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12949	13051	
==>We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connect <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7120	7273	
==>meters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	950	1056	
==>subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_siz <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	460	578	
==>/html', 
    +$charset, 
    +$location
) returns Str {
    # construct our header
    my $header;
    $header ~= "Stat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3765	3869	
==>test->isa('TestBuilder::Test'))
                || confess "test argument must be a TestBuilder::Test ins <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4163	4261	
==>nnels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4163	4261	
==>nnels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~nor <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7331	7462	
==>ail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- arr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7331	7462	
==>ail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- arr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29872	29967	
==>dule is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29872	29967	
==>dule is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read val <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3439	3598	
==>ift;
    my $name     = shift;
    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	115	222	
==>eate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::cr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	115	222	
==>eate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::cr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	115	222	
==>eate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::cr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4762	4865	
==>.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4762	4865	
==>.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4762	4865	
==>.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9507	9593	
==>d_singleton_method('another_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24144	24267	
==>urn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24144	24267	
==>urn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24144	24267	
==>urn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	516	714	
==>a => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15340	15467	
==>ds';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15340	15467	
==>ds';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15340	15467	
==>ds';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1569	1668	
==>pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1569	1668	
==>pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1569	1668	
==>pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	457	551	
==>ge();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compressi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1199	1320	
==>IL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType', <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4349	4469	
==>IL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4349	4469	
==>IL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType', <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	944	1047	
==>xtension_build {
    my $self = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3110	3243	
==>"Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3110	3243	
==>"Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3110	3243	
==>"Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21657	21757	
==>'scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => 'type');
%sigil_from_space = map { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5317	5416	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5317	5416	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5317	5416	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1981	2199	
==>->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2401	2612	
==>->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1917	2128	
==>->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2401	2612	
==>->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = u <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9517	9689	
==>ntry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " O <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1320	1472	
==>ntry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " O <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21942	22038	
==>parison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21942	22038	
==>parison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
c <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	431	542	
==>4) ),
		),
		result => 10,
		name => "nested addition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo') <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7330	7431	
==>ntersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if d <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7330	7431	
==>ntersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if d <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3049	3136	
==>ternatives(W, Z) --> "|", p6_conjunction(X), p6_alternatives(union(W,X), Z), !.
p6_alter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5161	5266	
==>parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5161	5266	
==>parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5161	5266	
==>parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37885	37989	
==>> attribute, and removed both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	531	642	
==>> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	509	618	
==>> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2010	2104	
==>my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2010	2104	
==>my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1564	1712	
==>{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1564	1712	
==>{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1564	1712	
==>{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2885	2993	
==>st( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2885	2993	
==>st( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	557	653	
==>erl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to inser <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	557	653	
==>erl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to inser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12700	12872	
==>->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12700	12872	
==>->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12700	12872	
==>->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21998	22092	
==>orm C<{n}> were being misrepresented as C<{n,}>.
It's been corrected.  (Mike Lambert)

C<\b> wa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6067	6189	
==>ns} ||= [];
}

sub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $fi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5422	5523	
==>ue}.



p5_elemental(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_elemental(standalone(R)) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	446	536	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	446	536	
==>>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	254	366	
==>[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	254	366	
==>[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	254	366	
==>[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7842	7963	
==>nction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7842	7963	
==>nction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7842	7963	
==>nction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        fo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1860	1959	
==>initrd.gz";
my $initrd_img   = "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	132	251	
==>har.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub ur <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	132	251	
==>har.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub ur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21184	21281	
==>other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25736	25833	
==>other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping w <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4684	4786	
==>@_>;
 }


 multi Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27470	27572	
==>en set to a true value, forces it to behave as though STDOUT were
not a console.  You may need to set t <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1128	1293	
==>detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debu <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1128	1293	
==>detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4088	4187	
==>pic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4088	4187	
==>pic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3313	3409	
==>ugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37387	37483	
==>d an argument to the constructor.  The
argument is a true or false value determining whether this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3313	3409	
==>ugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3313	3409	
==>ugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  un <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4876	4976	
==>PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Exp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4876	4976	
==>PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Exp <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1765	1863	
==>ject
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1765	1863	
==>ject
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2814	2931	
==>rns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2635	2752	
==>rns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2814	2931	
==>rns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2635	2752	
==>rns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16841	16960	
==>n};
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1000	1108	
==>self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1000	1108	
==>self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1000	1108	
==>self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2748	2847	
==>ass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2748	2847	
==>ass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2748	2847	
==>ass = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $sel <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1816	1930	
==>ok{$token}( @_ );
    for @end   { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10912	11015	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10912	11015	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10912	11015	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1994	2141	
==>match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1994	2141	
==>match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9975	10082	
==>opy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'inte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9975	10082	
==>opy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12900	13060	
==>pts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12900	13060	
==>pts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12900	13060	
==>pts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1631	1748	
==>,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    r <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8209	8312	
==>}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" if $fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	40	138	
==>}
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	40	138	
==>}
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	40	138	
==>}
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4890	5006	
==>or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Fi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4890	5006	
==>or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Fi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2380	2487	
==>uarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns I <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2380	2487	
==>uarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns I <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	733	830	
==>L and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	733	830	
==>L and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5056	5194	
==>lf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5056	5194	
==>lf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5056	5194	
==>lf->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5897	6016	
==>w_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5897	6016	
==>w_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5897	6016	
==>w_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($b <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	123	225	
==>05a.pl
# Only handles operators: + - * /

# Pugs note: change "die" to "fail" when "fail" is implemente <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17935	18040	
==>dex 

Needs to be in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15273	15372	
==>in($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15273	15372	
==>in($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15273	15372	
==>in($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5201	5305	
==>e::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22163	22267	
==>f:) returns num {
    # speculative syntax here :)
    unbox($self).id
}

(method id ((opaque $self:)) re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5201	5305	
==>e::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5201	5305	
==>e::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::V <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5909	6010	
==>o);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5039	5140	
==>o);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5909	6010	
==>o);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5039	5140	
==>o);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12358	12519	
==>d}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($test{max},$test{skipped},
                                                    @{$test{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2331	2428	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2331	2428	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2331	2428	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5947	6039	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1143	1235	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5947	6039	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1143	1235	
==>SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3058	3193	
==>native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
sub ref_flavor {
    my $x = shift;
    return 'undef' if !def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7228	7336	
==>should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7228	7336	
==>should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7228	7336	
==>should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35290	35428	
==>y->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35290	35428	
==>y->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35290	35428	
==>y->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17925	18026	
==>atch($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pk <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8794	8920	
==>t0::NodeRepArray2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9885	9988	
==>onal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	320	420	
==>onal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	320	420	
==>onal "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1591	1824	
==>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] ) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19713	19817	
==>w(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5 <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2042	2142	
==>');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item gl <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2042	2142	
==>');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item gl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3481	3590	
==>depc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3481	3590	
==>depc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3481	3590	
==>depc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --pe <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	308	404	
==>regexp engine is unfortunately entangled with the rest of
# the p5 implementation.  So while limi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5352	5465	
==>elf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5352	5465	
==>elf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5352	5465	
==>elf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2389	2500	
==>ts parsed Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 li <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3698	3828	
==>-> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $of <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4423	4548	
==>eturns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4423	4548	
==>eturns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5295	5418	
==>eturns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5295	5418	
==>eturns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
mu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18957	19112	
==>st a normal link, after the header, when there is no regex
                # or if the regex failed
                unless ($found) {
                  push <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	64	162	
==>t:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	64	162	
==>t:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	64	162	
==>t:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Ro <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3408	3546	
==>.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3408	3546	
==>.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14720	14833	
==>old_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{`` <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14720	14833	
==>old_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{`` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2679	2786	
==>r AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2679	2786	
==>r AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2679	2786	
==>r AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disable <==
4	/Users/nnunley/pugs/util/package-osx.pl	6979	7076	
==>l6::Perl5::Differences.3pm
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3
        /usr/loca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22962	23088	
==>'(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19383	19509	
==>'(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2231	2339	
==>base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (cal <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2231	2339	
==>base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (cal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7593	7686	
==>UB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rever <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7593	7686	
==>UB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rever <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7593	7686	
==>UB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->rever <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18825	18933	
==>S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15246	15354	
==>S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41266	41354	
==>an Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improvin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41266	41354	
==>an Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improvin <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1500	1639	
==>eta.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
}

role Class::Events::Subscriber {
    use Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6266	6356	
==>erted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6266	6356	
==>erted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6266	6356	
==>erted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2856	2977	
==>ort.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.s <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2856	2977	
==>ort.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4355	4449	
==>on to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4355	4449	
==>on to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21995	22117	
==>ct(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18416	18538	
==>ct(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2338	2455	
==>erm2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3119	3236	
==>erm2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	14	118	
==>s::Grammar::Prefix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	19	115	
==>e strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	19	115	
==>e strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	19	115	
==>e strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3676	3875	
==>{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	695	783	
==>1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	695	783	
==>1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	695	783	
==>1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1025	1117	
==>ild configuration:\n" . PugsBuild::Config->pretty_print;

    my ($version, $ghc, $ghc_versio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	82	172	
==>w< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	82	172	
==>w< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	82	172	
==>w< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fin <==
4	/Users/nnunley/pugs/util/package-osx.pl	11437	11569	
==>le\\n";
            \}
        \}
    );
    @footer = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $footer[0];

    print REMOVER " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1540	1638	
==>o_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1540	1638	
==>o_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1540	1638	
==>o_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	598	696	
==>lude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	598	696	
==>lude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	598	696	
==>lude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19426	19541	
==>"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4386	4493	
==>('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4386	4493	
==>('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4386	4493	
==>('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40899	40997	
==>ecause that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLE <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26459	26557	
==>ecause that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLE <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40899	40997	
==>ecause that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26459	26557	
==>ecause that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4982	5116	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5175	5309	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1310	1438	
==>XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2801	2913	
==>s defined $opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fix <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9832	9964	
==>ree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$st and @{ $st->[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5146	5243	
==>ed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  Thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5146	5243	
==>ed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  Thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5146	5243	
==>ed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2635	2744	
==>name $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'inst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2635	2744	
==>name $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'inst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2635	2744	
==>name $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'inst <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	516	612	
==>is far from being a
# complete p5 compatible regex engine, that establishes feasiblity.
# Limited <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11796	11924	
==>$code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $code = match::str( m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1405	1499	
==>_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1405	1499	
==>_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1405	1499	
==>_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	533	642	
==>ame of Str where { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrScalarSubType of Any where {
    .does(Packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4182	4278	
==>acro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_crea <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4182	4278	
==>acro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_crea <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4182	4278	
==>acro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_crea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1430	1638	
==>w;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7812	7913	
==>rray_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7812	7913	
==>rray_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Cop <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13375	13471	
==>body),
	),
}

# identifiers pass the generic variables unchanged
ide: generic($$) = { generic_in( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8294	8471	
==>'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symbol $label) returns method { 
    %:methods{$la <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	681	786	
==>stant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	681	786	
==>stant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	681	786	
==>stant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a box <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	485	582	
==>s don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	193	288	
==>t want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	193	288	
==>t want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	193	288	
==>t want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7428	7520	
==>sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7428	7520	
==>sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7428	7520	
==>sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	575	676	
==>ods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	575	676	
==>ods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	575	676	
==>ods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from M <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7187	7318	
==>1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when ca <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7187	7318	
==>1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when ca <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2577	2682	
==>testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2577	2682	
==>testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2501	2636	
==>y {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2501	2636	
==>y {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1494	1605	
==>0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1494	1605	
==>0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# retur <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	733	859	
==>: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index in <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	733	859	
==>: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index in <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23450	23567	
==>pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 = index <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	298	422	
==>n{tests};
    }
    print STDOUT "1..$n\n" unless $noplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8459	8558	
==>>fmap(sub {
			Blondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16185	16282	
==>m, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16185	16282	
==>m, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1804	1939	
==>Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2547	2682	
==>Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1804	1939	
==>Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2535	2670	
==>Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3573	3695	
==>ub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3573	3695	
==>ub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3573	3695	
==>ub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1786	1888	
==>pile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::Rule->compile(q(<'r <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	767	945	
==>n "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	767	945	
==>n "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7822	7915	
==>Clears the cipher object's internal structures.

Cipher authors should assume that if this met <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7822	7915	
==>Clears the cipher object's internal structures.

Cipher authors should assume that if this met <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5285	5428	
==>',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xTy <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5285	5428	
==>',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xTy <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3533	3625	
==>toanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC- <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3533	3625	
==>toanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19880	19994	
==>S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16301	16415	
==>S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1237	1368	
==>SHA-1");

        {
			local $SIG{__WARN__} = sub { };
            local $Storable::forgive_me = 1;
            local $Storable::can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3959	4061	
==>n ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3959	4061	
==>n ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3959	4061	
==>n ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12042	12137	
==>$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9163	9258	
==>$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12042	12137	
==>$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9163	9258	
==>$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7777	7914	
==>n $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7777	7914	
==>n $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7777	7914	
==>n $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Val <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	6	101	
==>/bin/perl

use Runtime::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2144	2238	
==>::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2057	2147	
==>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2057	2147	
==>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2057	2147	
==>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	660	779	
==>ess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	660	779	
==>ess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	660	779	
==>ess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1819	1911	
==>fess "Division by zero error";
    return num->new(int($left->to_native / $right->to_num->to_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5689	5788	
==>ls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'Str';
    return get_meta('Ref')->new('$.r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13839	13951	
==>perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13833	13945	
==>perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5412	5515	
==>n) --> {true}.



p5_elemental(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_elemental(standa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23237	23327	
==>greatly (it isn't what's important;
the interface/behaviour is), this Relation::Example dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5680	5780	
==>l6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5680	5780	
==>l6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5680	5780	
==>l6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Per <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2168	2261	
==>code;
each alternate engine may introduce additional security or memory problems.

Tainting in <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7285	7421	
==>r design documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1500	1602	
==>rep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1500	1602	
==>rep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1500	1602	
==>rep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14967	15060	
==>($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14967	15060	
==>($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14967	15060	
==>($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa) <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6844	6990	
==>e (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser publ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6901	7047	
==>e (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser publ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1945	2057	
==>loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1945	2057	
==>loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15599	15751	
==>XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15599	15751	
==>XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15599	15751	
==>XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Va <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8120	8250	
==>$Result12 != ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            loop(;$k < $leng <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	439	559	
==>rch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs it <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	439	559	
==>rch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs it <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2815	2916	
==>l' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    h <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2815	2916	
==>l' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    h <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3503	3598	
==>e code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05 <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3503	3598	
==>e code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15166	15259	
==>ided by third
parties) implement.  This interface is rigorously defined, such that there
shoul <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15166	15259	
==>ided by third
parties) implement.  This interface is rigorously defined, such that there
shoul <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1026	1145	
==>am<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zo <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	768	887	
==>am<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1026	1145	
==>am<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	768	887	
==>am<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11914	12012	
==>ined.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be use <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6539	6637	
==>1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=po <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6539	6637	
==>1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=po <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11914	12012	
==>ined.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be use <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1163	1253	
==>Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

cl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1163	1253	
==>Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22365	22497	
==>b {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18786	18918	
==>b {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6849	6956	
==>e'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6849	6956	
==>e'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6453	6575	
==>n $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_fh {
    my $op   =   get_str( $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5595	5699	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5595	5699	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5595	5699	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5356	5458	
==>ne($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5356	5458	
==>ne($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .cont <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1977	2068	
==>)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of un <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1977	2068	
==>)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9478	9594	
==>>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9478	9594	
==>>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9478	9594	
==>>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ar <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2178	2284	
==>check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expressio <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2178	2284	
==>check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expressio <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4134	4227	
==>(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decode <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4134	4227	
==>(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decode <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15449	15632	
==>_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18926	19109	
==>_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        h <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9665	9778	
==>ht = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues wit <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9665	9778	
==>ht = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15350	15451	
==>TI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15350	15451	
==>TI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15350	15451	
==>TI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB val <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11805	11920	
==>server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11805	11920	
==>server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1237	1333	
==>oper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L<C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1237	1333	
==>oper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L<C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11823	12079	
==>r)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11823	12079	
==>r)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11823	12079	
==>r)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_p <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17728	17900	
==>$fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4069	4372	
==>req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4069	4372	
==>req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1926	2035	
==>( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0. <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1926	2035	
==>( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1899	2017	
==>PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => '$_' } } ));
    }
    __PACKAGE__->re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11381	11497	
==>::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11381	11497	
==>::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11381	11497	
==>::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5923	6058	
==>,
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5923	6058	
==>,
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr( <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2670	2786	
==>}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10588	10694	
==>egularExpressionChar {  # see 7.8.5
      <!before <[\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
ru <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21137	21235	
==>ch has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20045	20143	
==>ch has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21137	21235	
==>ch has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20045	20143	
==>ch has the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1690	1807	
==>rl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1690	1807	
==>rl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1690	1807	
==>rl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_sub <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33761	33853	
==>!) returns Relation::Example>

This method is a short-hand or alternative for the functionali <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14659	14769	
==>ble language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14659	14769	
==>ble language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4846	4936	
==>ew', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4846	4936	
==>ew', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_node <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3505	3649	
==>e do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!child <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3505	3649	
==>e do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!child <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17392	17519	
==>m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13813	13940	
==>m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2797	2887	
==>y $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6249	6339	
==>y $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2797	2887	
==>y $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2797	2887	
==>y $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6180	6284	
==>compile(<<'RULE')->code();

    sub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8434	8525	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8434	8525	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8434	8525	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	890	1015	
==>$fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: A <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	890	1015	
==>$fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	174	277	
==>($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	174	277	
==>($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	174	277	
==>($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30623	30724	
==>ead3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> inside the F<__ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4290	4405	
==>ex) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4290	4405	
==>ex) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	289	388	
==>= (-s $pmc and (-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n";
if ( $pmc_is_up <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	971	1125	
==>ation;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
} <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	713	867	
==>ation;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
} <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	971	1125	
==>ation;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
} <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	713	867	
==>ation;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
} <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19873	19984	
==>XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6383	6478	
==>rn" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6383	6478	
==>rn" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6383	6478	
==>rn" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1942	2062	
==>xtracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ext <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2377	2497	
==>xtracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ext <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2814	2934	
==>xtracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ext <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	158	262	
==>lder::Output;

class Test::Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    method <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2173	2303	
==>*$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    w <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2173	2303	
==>*$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    w <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11761	11856	
==>testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you wil <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11819	11914	
==>testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you wil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4612	4734	
==>$Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7335	7457	
==>$Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5328	5429	
==>e, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5143	5240	
==>e, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12220	12330	
==>ackage Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10201	10304	
==>key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10201	10304	
==>key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10201	10304	
==>key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	96	214	
==>londie::Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5544	5639	
==>uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5544	5639	
==>uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5544	5639	
==>uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23570	23671	
==>pe's flag values.  

Here is example code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	718	812	
==>ignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	718	812	
==>ignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	718	812	
==>ignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	317	424	
==>),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	317	424	
==>),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	317	424	
==>),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::ad <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30794	30886	
==>f Code $attrs!) returns Relation::Example>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	677	808	
==>or 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	677	808	
==>or 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8865	8962	
==>uous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8865	8962	
==>uous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following me <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15284	15383	
==>d be Grf. -law]

Attempting to use a string at a level higher it can support is handled
without warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13050	13222	
==>else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13050	13222	
==>else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13050	13222	
==>else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3580	3797	
==>};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4508	4719	
==>};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3469	3680	
==>};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4508	4719	
==>};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            } <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3275	3374	
==>k';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 't <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36937	37030	
==>ere a pair
of source relations have identical headings, for these their joining
degenerates to <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41486	41579	
==>ere a pair
of source relations have identical headings, for these their joining
degenerates to <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41109	41202	
==>ere a pair
of source relations have identical headings, for these their joining
degenerates to <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4985	5114	
==>terators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4985	5114	
==>terators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        retu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12586	12683	
==>ue if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infini <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12586	12683	
==>ue if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4149	4283	
==>')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4149	4283	
==>')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4149	4283	
==>')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

cla <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3422	3515	
==>/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everything passed but F<t/w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9477	9609	
==>ms =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9477	9609	
==>ms =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9477	9609	
==>ms =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1382	1478	
==>g ease of installation and portability, we may have
  bought fairly simple code with tolerable pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25959	26092	
==>t {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7946	8074	
==>s => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7946	8074	
==>s => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7946	8074	
==>s => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	251	372	
==>Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	249	370	
==>Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24438	24551	
==>e ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20859	20972	
==>e ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2474	2605	
==>${from}_${to}",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6326	6476	
==>attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6326	6476	
==>attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6326	6476	
==>attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	159	258	
==>web.mit.edu/gnu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / right / lef <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10130	10246	
==>Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autof <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10130	10246	
==>Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autof <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13919	14015	
==>scalar_non_numeric => sub { $as_array_complain->("scalar_non_numeric") },
      array => sub { $_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	392	487	
==>Harness::YAML;
use strict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33571	33685	
==>return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33571	33685	
==>return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33571	33685	
==>return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	727	829	
==>:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf S <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3240	3357	
==>->{name},
        dist_version => $self->{version},
        license      => $self->{license},
    );
    $self->provid <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12306	12399	
==>y autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12306	12399	
==>y autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12306	12399	
==>y autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1167	1316	
==>$span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4406	4555	
==>$span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1167	1316	
==>$span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4406	4555	
==>$span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32850	32944	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is li <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33305	33399	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is li <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37400	37494	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is li <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37855	37949	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is li <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13347	13453	
==>_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is int <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13347	13453	
==>_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is int <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	996	1094	
==>e for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	996	1094	
==>e for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7570	7728	
==>);
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7570	7728	
==>);
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7570	7728	
==>);
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  su <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13952	14091	
==>$self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4382	4478	
==>s_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4382	4478	
==>s_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4382	4478	
==>s_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4412	4532	
==>'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::statements> ]* ) <?p6ws>? 
    \}
        { r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14129	14216	
==>ribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14129	14216	
==>ribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14129	14216	
==>ribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2300	2397	
==>ar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2300	2397	
==>ar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1525	1618	
==>ar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3386	3479	
==>ar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13833	13966	
==>'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Number <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13833	13966	
==>'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Number <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4039	4150	
==>ur is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4039	4150	
==>ur is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9676	9793	
==>eight + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $s <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9676	9793	
==>eight + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1243	1358	
==>O_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1243	1358	
==>O_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9832	9944	
==>eturn "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
s <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	339	445	
==>x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2174	2282	
==>is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2503	2611	
==>>position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($matc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2174	2282	
==>is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2174	2282	
==>is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11562	11674	
==>by which to sort. If
the closure returns a Num, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8056	8150	
==>ent the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8056	8150	
==>ent the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8056	8150	
==>ent the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5744	5844	
==>bj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5744	5844	
==>bj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5744	5844	
==>bj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	995	1120	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = sh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	995	1120	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = sh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17945	18044	
==>olated from each other, even if more than one uses the
same Engine class to implement it; that is, m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17945	18044	
==>olated from each other, even if more than one uses the
same Engine class to implement it; that is, m <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1772	1896	
==>rray[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2411	2533	
==>l 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'litera <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2595	2717	
==>l 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'litera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1063	1162	
==>n %!attrs;
}

method export_attr_names of List of Relation::AttrName () {
    return %!attrs.keys;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7259	7426	
==>nd->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7259	7426	
==>nd->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7259	7426	
==>nd->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	243	343	
==>}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1261	1360	
==>}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1261	1360	
==>}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1470	1569	
==>}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" i <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2061	2158	
==>urn Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2061	2158	
==>urn Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17133	17228	
==>/* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Oth <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22233	22328	
==>/* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Oth <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26166	26278	
==>e used for the width of the terminal. If it is not
set then it will default to C<COLUMNS>. If this is not set, it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14438	14538	
==>od('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14438	14538	
==>od('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14438	14538	
==>od('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4401	4524	
==>gsConfig; 1" or die $@;
    PugsConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5662	5761	
==>defined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5662	5761	
==>defined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5662	5761	
==>defined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsnam <==
4	/Users/nnunley/pugs/t/packages/Test.pm	353	465	
==>y package My::Package {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $arg2) is export <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	544	633	
==>instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	544	633	
==>instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	544	633	
==>instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7888	8021	
==>teral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13482	13615	
==>teral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7888	8021	
==>teral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13476	13609	
==>teral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22993	23095	
==>rses I<regexes>, not Perl.  If you send a single-quoted
string as a regex with a variable in it, that ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	604	702	
==>::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	604	702	
==>::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	604	702	
==>::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28148	28255	
==>ns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29159	29266	
==>ns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32700	32807	
==>ns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33711	33818	
==>ns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3596	3803	
==>.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3596	3803	
==>.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3596	3803	
==>.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $:: <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1835	1973	
==>} @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = '';
    return $str unless $deps;

    if( ! ref $de <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	731	837	
==>ex) && $index->isa('num'))
        || confess "Index must be a num type";
    my $val = $self->[$index->to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14056	14154	
==>attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14056	14154	
==>attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14056	14154	
==>attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5486	5750	
==>and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push t <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5486	5750	
==>and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20597	20691	
==>f
their class/object attributes are private, so you must use accessor
methods.  Relation does n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25149	25243	
==>f
their class/object attributes are private, so you must use accessor
methods.  Relation does n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1990	2128	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1990	2128	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1990	2128	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	257	358	
==>king parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	257	358	
==>king parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	257	358	
==>king parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	885	978	
==>elf->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backen <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3288	3413	
==>l $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    print( <<'HELP') and exit;

< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3986	4110	
==>Toady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3998	4122	
==>Toady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1003	1111	
==>pt {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5693	5792	
==>a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5693	5792	
==>a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5693	5792	
==>a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12136	12257	
==>=> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4779	4900	
==>=> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10510	10663	
==>$pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10510	10663	
==>$pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10510	10663	
==>$pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2212	2316	
==>b JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2212	2316	
==>b JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2212	2316	
==>b JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8	104	
==>is grammar was closely derived from
#    ECMA-262, ECMAScript Language Specification, 3rd Edition <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	647	760	
==>) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593 <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	958	1071	
==>) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593 <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1431	1544	
==>) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8211	8317	
==>]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8211	8317	
==>]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   re <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1712	1809	
==>{ $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_coun <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1712	1809	
==>{ $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_coun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	823	938	
==>temAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	823	938	
==>temAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	823	938	
==>temAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PI <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7545	7631	
==>lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_elemental(lookahead_not(R)). <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29696	29793	
==>are the same as those of another,
or are the same as the unaffected invocant's attributes.  This m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34248	34345	
==>are the same as those of another,
or are the same as the unaffected invocant's attributes.  This m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33412	33509	
==>are the same as those of another,
or are the same as the unaffected invocant's attributes.  This m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	252	347	
==>lass SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1679	1783	
==>->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variab <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1679	1783	
==>->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variab <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1679	1783	
==>->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variab <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12941	13044	
==>=> $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   => $tres->{todo},
	skipped   => $tres->{s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8707	8859	
==>h: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12613	12759	
==>h: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12613	12759	
==>h: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21803	21900	
==>urnStatement :words {  # see 12.9
      <'return'><no_LineTerminator_here><Expression>? <';'>
}
ru <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1261	1359	
==>he letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter f <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1261	1359	
==>he letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1168	1263	
==>mote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1168	1263	
==>mote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12189	12309	
==>g!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6756	6876	
==>g!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12189	12309	
==>g!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6756	6876	
==>g!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40790	40914	
==>[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40790	40914	
==>[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40790	40914	
==>[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	807	922	
==>hese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	78	228	
==>-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	78	228	
==>-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7370	7500	
==>sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $ca <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16160	16246	
==>onalExpressionNoIn> <'instanceof'> <ShiftExpression>
}
rule EqualityExpression :words { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23600	23706	
==>ds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send rep <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22373	22479	
==>ds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send rep <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23600	23706	
==>ds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send rep <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22373	22479	
==>ds a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send rep <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6398	6617	
==>rrent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6398	6617	
==>rrent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2600	2693	
==>alues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2600	2693	
==>alues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2600	2693	
==>alues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3020	3133	
==>f.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3020	3133	
==>f.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3020	3133	
==>f.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16732	16833	
==>ing each character to it's lowercase
form, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	73	180	
==>ass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	73	180	
==>ass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	73	180	
==>ass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!! <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10000	10121	
==>&dispatcher" <block>))))
                 (returns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2404	2523	
==>ts(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2404	2523	
==>ts(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2404	2523	
==>ts(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13917	14068	
==>i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13917	14068	
==>i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13917	14068	
==>i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5144	5357	
==>to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5144	5357	
==>to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1606	1705	
==>ards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1606	1705	
==>ards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9731	9848	
==>dxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1751	1868	
==>hift;

    my $self = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9731	9848	
==>dxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9731	9848	
==>dxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8906	9078	
==>, \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14635	14807	
==>, \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8906	9078	
==>, \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14629	14801	
==>, \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6060	6196	
==>59),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6060	6196	
==>59),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => ch <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4536	4631	
==>&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4536	4631	
==>&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2056	2198	
==>" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash key <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2056	2198	
==>" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash key <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8390	8502	
==>ef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorizati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8390	8502	
==>ef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorizati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1800	1923	
==>{ $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signatur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6832	6946	
==>lurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6832	6946	
==>lurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6832	6946	
==>lurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3222	3347	
==>to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3222	3347	
==>to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3222	3347	
==>to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18822	18921	
==>lation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12322	12420	
==>on, comment block and data section, each
# into a single line containing a digest of the original c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12322	12420	
==>on, comment block and data section, each
# into a single line containing a digest of the original c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1797	1890	
==>le, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, includin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1726	1818	
==>le, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, includin <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1765	1868	
==>d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19304	19394	
==>fix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19304	19394	
==>fix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19304	19394	
==>fix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1935	2087	
==>";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles ve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1935	2087	
==>";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles ve <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1935	2087	
==>";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles ve <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4745	4873	
==>on} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6423	6533	
==>s($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6423	6533	
==>s($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6423	6533	
==>s($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6592	6727	
==>ragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6592	6727	
==>ragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	880	983	
==>args{using}->();
    if($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s Press a key to continue. <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18895	18994	
==>creates, but which we obviously don't have).


=head1 struct regexp

  typedef struct regexp {

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	577	701	
==>os       - The current position of the match (also holds the
                  string that is being matched against).
    $.m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	577	701	
==>os       - The current position of the match (also holds the
                  string that is being matched against).
    $.m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13992	14094	
==>f_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	513	612	
==>print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	135	235	
==>VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	135	235	
==>VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	135	235	
==>VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17890	18094	
==>:
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17890	18094	
==>:
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17890	18094	
==>:
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1908	2010	
==>yaml_harness.pl  - produce the data for this tool
     util/testgraph.pl     - Generates an HTML summar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20590	20698	
==>S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17011	17119	
==>S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	184	282	
==>tant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	184	282	
==>tant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8445	8611	
==>t', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8445	8611	
==>t', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1295	1405	
==>.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1295	1405	
==>.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6680	6780	
==>` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fgloc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6680	6780	
==>` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fgloc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8182	8279	
==>available for various reasons
# of convience. Sometimes that depth 
# field is not always correct. <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8182	8279	
==>available for various reasons
# of convience. Sometimes that depth 
# field is not always correct. <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	419	523	
==>s = qw<
    build_requires requires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16902	16993	
==>sed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16902	16993	
==>sed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16902	16993	
==>sed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20651	20751	
==>:opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20651	20751	
==>:opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20651	20751	
==>:opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2225	2321	
==>es.

These variables can be used to configure the behavior of
Test::Harness.  They are exported o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3663	3780	
==>r $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3663	3780	
==>r $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3663	3780	
==>r $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undef <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1976	2080	
==>ile = File::Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $currfile =~ $Conf <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11343	11492	
==>\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $st <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11343	11492	
==>\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1612	1715	
==>$self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names mus <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2260	2363	
==>$self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names mus <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10278	10372	
==>.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8171	8265	
==>.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10278	10372	
==>.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8171	8265	
==>.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15209	15409	
==>ass') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15209	15409	
==>ass') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15209	15409	
==>ass') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	255	355	
==>do we need this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParam <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1853	1965	
==>}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_requ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1853	1965	
==>}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_requ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1834	1945	
==>nary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style num <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1834	1945	
==>nary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style num <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	233	331	
==>my $duration = shift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28444	28536	
==>$mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32996	33088	
==>$mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32124	32216	
==>$mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1723	1860	
==>\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

metho <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1723	1860	
==>\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

metho <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5055	5152	
==>d1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5055	5152	
==>d1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11755	11855	
==>en items if they are already in the set, or inserts the items if
they're not in the set.

Returns the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8902	9002	
==>en items if they are already in the set, or inserts the items if
they're not in the set.

Returns the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11755	11855	
==>en items if they are already in the set, or inserts the items if
they're not in the set.

Returns the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8902	9002	
==>en items if they are already in the set, or inserts the items if
they're not in the set.

Returns the <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13689	13800	
==>a href="<tmpl_var name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	838	935	
==>Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	838	935	
==>Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	838	935	
==>Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1564	1708	
==>thod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1564	1708	
==>thod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1564	1708	
==>thod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8002	8110	
==>}};    

    my @files = (exists $index->{_files} ? sort @{$index->{_files}} : ());
    my $template = HTML:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2010	2128	
==>", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2010	2128	
==>", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2010	2128	
==>", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4458	4545	
==>t3D');
is($p3d->prototype->prototype->class, \&Object, '... go the right super-superclas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	286	410	
==>r i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	286	410	
==>r i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	286	410	
==>r i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6009	6146	
==>tatus if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:EN <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6009	6146	
==>tatus if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:EN <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	356	462	
==>FA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node. <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	356	462	
==>FA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4467	4587	
==>n
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $o <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4467	4587	
==>n
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8158	8255	
==>UIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8158	8255	
==>UIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %cha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7953	8065	
==>ser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to see if an error is a particular erro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7501	7591	
==>.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1729	1819	
==>.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9135	9225	
==>.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9321	9413	
==>>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9516	9608	
==>>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9711	9803	
==>>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6362	6457	
==>se?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8430	8525	
==>se?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6362	6457	
==>se?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8430	8525	
==>se?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12514	12631	
==>nh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually conne <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12514	12631	
==>nh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually conne <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32256	32350	
==>and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32256	32350	
==>and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1804	2000	
==>\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1804	2000	
==>\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1723	1904	
==>de.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1723	1904	
==>de.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2419	2527	
==>this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2419	2527	
==>this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2419	2527	
==>this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1088	1261	
==>..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5231	5351	
==>s_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5231	5351	
==>s_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11422	11596	
==>ew( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11422	11596	
==>ew( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11422	11596	
==>ew( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'per <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27268	27353	
==>(REINT_AUTORITATIVE_NOML|REINT_AUTORITATIVE_ML)
 #define REINT_ONCE		(REINT_ONCE_NOML| <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4765	4865	
==>ch as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4765	4865	
==>ch as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6289	6389	
==>ch as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18692	18778	
==>rnals::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrPos $star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	529	656	
==>e
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	529	656	
==>e
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	529	656	
==>e
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	48	144	
==>strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement the "magic ha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3937	4063	
==>@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.id <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3066	3218	
==>he dirs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14212	14328	
==>_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17689	17805	
==>_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17105	17221	
==>_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	915	1041	
==>label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	915	1041	
==>label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	915	1041	
==>label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	922	1025	
==>s::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
us <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6424	6544	
==>e = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6412	6532	
==>e = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" ) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16539	16637	
==>ist contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a l <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16539	16637	
==>ist contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2391	2489	
==>esult = $self->{$stage};
	next if !defined $result;
	my $warn = $result->warnings();
	$ret .= $warn <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11815	12029	
==>sub {
                my $e = shift;
                $e->get('?%params')
                  ->is_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2012	2118	
==>(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2012	2118	
==>(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2012	2118	
==>(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $me <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	785	881	
==>ound private attributes, which are actually just accessor methods
as well.

=back

Note that meth <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8961	9079	
==>urn $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9347	9465	
==>urn $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8961	9079	
==>urn $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9347	9465	
==>urn $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4300	4469	
==>document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attribut <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4300	4469	
==>document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attribut <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12550	12669	
==>curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8489	8592	
==>turing_group {
    return "$_[1] ruleop::capture( 'capturing_group',\n" .
           emit_rule( $_[0], $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2435	2539	
==>eSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSplit[0];
  if ( $syn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8954	9042	
==>{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8954	9042	
==>{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8954	9042	
==>{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => :: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	949	1058	
==>_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1026	1126	
==>ious sources
# and we need to now create these attributes in all the currently live instances
# of Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1026	1126	
==>ious sources
# and we need to now create these attributes in all the currently live instances
# of Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1026	1126	
==>ious sources
# and we need to now create these attributes in all the currently live instances
# of Cl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4688	4784	
==>: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4688	4784	
==>: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1758	1851	
==>pt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algori <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1758	1851	
==>pt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algori <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21969	22198	
==>( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22248	22477	
==>( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5804	5900	
==>atch



Rule constructors return Rule objects, which are "matcher" things.

Rules operate on stri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5603	5696	
==>atch

Rule constructors return Rule objects, which are "matcher" things.
Rules operate on stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4295	4412	
==>ue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5616	5733	
==>ue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4295	4412	
==>ue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5604	5721	
==>ue = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2293	2468	
==>od size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all_names_exist of Bool (Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5516	5613	
==>ars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5516	5613	
==>ars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5516	5613	
==>ars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unle <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3002	3109	
==>on><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3002	3109	
==>on><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1671	1772	
==>book/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules l <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1671	1772	
==>book/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules l <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1832	2016	
==>l.tgz';                    # part with metadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16644	16754	
==>($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16644	16754	
==>($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16644	16754	
==>($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3353	3467	
==>ed $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3353	3467	
==>ed $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3353	3467	
==>ed $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unle <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	449	546	
==>ub from {my($o)=@_;$$o->{'from'}}
sub to   {my($o)=@_;$$o->{'to'}}

sub new {
    my($cls,%args)=@ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	839	956	
==>Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	839	956	
==>Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Req <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6330	6447	
==>sis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6330	6447	
==>sis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4634	4753	
==>chy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4634	4753	
==>chy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13118	13209	
==>r").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representativ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13118	13209	
==>r").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representativ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41905	42117	
==>shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

$::Object->send('add_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	819	921	
==>rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	819	921	
==>rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	819	921	
==>rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1534	1652	
==>gin_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1534	1652	
==>gin_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8137	8252	
==>e_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8330	8445	
==>e_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3482	3620	
==>( ! defined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4411	4547	
==>( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3372	3508	
==>( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4411	4547	
==>( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $match <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16390	16487	
==>then) }
cond: generic($$) = { generic($.else) }

cond: type($$) = {
	types::unify(
		type($.if), t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11410	11526	
==>ommand, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open is unidir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3914	4018	
==>my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3914	4018	
==>my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3914	4018	
==>my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	786	897	
==>++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	786	897	
==>++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	786	897	
==>++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10352	10456	
==>rl .= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes beca <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2078	2176	
==>ethod _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5865	5963	
==>ethod _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2078	2176	
==>ethod _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5865	5963	
==>ethod _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2040	2197	
==>6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2257	2414	
==>6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $per <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3801	3897	
==>et::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Cr <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3801	3897	
==>et::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Cr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10259	10376	
==>s6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1156	1251	
==>, "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1156	1251	
==>, "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1156	1251	
==>, "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5117	5237	
==>to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5117	5237	
==>to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6136	6237	
==>se($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6136	6237	
==>se($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6065	6163	
==>one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5195	5293	
==>one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6065	6163	
==>one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5195	5293	
==>one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns Set {
    !$one.proper_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7820	8008	
==>joint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11297	11485	
==>joint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10461	10649	
==>joint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

m <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	7	106	
==>einfache Klasse
class Welt {
	method hallo () { "Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Ob <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9610	9716	
==>last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9610	9716	
==>last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11908	12010	
==>entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 d <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11908	12010	
==>entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15962	16080	
==>od' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10818	10936	
==>od' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5705	5799	
==>actual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5508	5598	
==>actual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Gramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	365	468	
==>CH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	365	468	
==>CH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	365	468	
==>CH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.C <==
4	/Users/nnunley/pugs/util/config_h.pl	520	616	
==>= split /\s+/, $ghc_line;

open IN, "< $base/lib/Perl6/Pugs.pm" or die $!;
open OUT, "> $base/src <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6448	6533	
==>attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6448	6533	
==>attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6448	6533	
==>attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1255	1367	
==>am part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	899	1011	
==>iate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($progra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1105	1217	
==>iate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($progra <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1191	1288	
==>am part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5691	5800	
==>}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5691	5800	
==>}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5691	5800	
==>}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8334	8432	
==>espacePosition;
  goto tok_match_end;

  tok_match_sub:
  $operator = &$$match($matchObj);
  tok_ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8749	8878	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8749	8878	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8749	8878	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14119	14213	
==>tem RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12014	12109	
==>s true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9135	9230	
==>s true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12014	12109	
==>s true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9135	9230	
==>s true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9440	9545	
==>Param'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9440	9545	
==>Param'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9440	9545	
==>Param'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8648	8795	
==>e {
      sub {
        my $c = $_[0];
        FAIL() if !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop) <==
4	/Users/nnunley/pugs/util/func_refact.pl	3129	3233	
==>w) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { requ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7811	7912	
==>rs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOS <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7811	7912	
==>rs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3086	3203	
==>azy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3086	3203	
==>azy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3086	3203	
==>azy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined <==
4	/Users/nnunley/pugs/util/package-osx.pl	100	196	
==>-osx.pl [pugs|parrot|pugs-parrot] target_base_dir
        Run after make install'ing pugs and par <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3537	3643	
==>ERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21710	21808	
==>addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26262	26360	
==>addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24922	25020	
==>addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is val <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	174	275	
==>tr $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	230	331	
==>tr $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	174	275	
==>tr $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	230	331	
==>tr $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1856	1964	
==>d_int
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub get_array {
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	382	482	
==>ts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	382	482	
==>ts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	382	482	
==>ts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34752	34859	
==>dy, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34752	34859	
==>dy, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34752	34859	
==>dy, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $of <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2081	2203	
==>equired => 1, allow => DIR_EXISTS, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8095	8214	
==>up),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8095	8214	
==>up),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8095	8214	
==>up),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4457	4626	
==>t.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method fr <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4457	4626	
==>t.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method fr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26749	26844	
==>C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31301	31396	
==>C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias named <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6249	6365	
==>)/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6249	6365	
==>)/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22739	22848	
==>6_as_bool($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
} <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9685	9786	
==>pander.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raqu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1861	1984	
==>int("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1861	1984	
==>int("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($ev <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1750	1846	
==>Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1750	1846	
==>Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27226	27374	
==>bclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list {
    ...
}

=cut

$::Class->send('ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6752	6856	
==>ut
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_til <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6752	6856	
==>ut
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_til <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6752	6856	
==>ut
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_til <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12173	12281	
==>} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12173	12281	
==>} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12173	12281	
==>} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	19	113	
==>the beginning of a simple JavaScript-on-p6 runtime.
It seems likely there will be more than one <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	880	982	
==>. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	903	1005	
==>. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	880	982	
==>. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	903	1005	
==>. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3836	3976	
==>my $ref = reference->new($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1094	1191	
==>mposing a rate limit
against a stream of items. It is also very easy to combine several
rate-limit <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1094	1191	
==>mposing a rate limit
against a stream of items. It is also very easy to combine several
rate-limit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8081	8218	
==>s is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8081	8218	
==>s is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20282	20374	
==>Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20282	20374	
==>Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	673	776	
==>tringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	673	776	
==>tringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	673	776	
==>tringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7476	7567	
==>oop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_condi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18095	18223	
==>> 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub npare <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	7	122	
==>ion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_des <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	7	122	
==>ion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_des <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	7	122	
==>ion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14853	14980	
==>>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14853	14980	
==>>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14853	14980	
==>>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17456	17554	
==>ation on the first character of the string.


=item capitalize

 multi Str::capitalize (  Str $stri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2308	2412	
==>[0], '"' );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13989	14085	
==>::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13989	14085	
==>::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13989	14085	
==>::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	938	1044	
==>ILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	938	1044	
==>ILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12140	12237	
==>- `current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Oth <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12140	12237	
==>- `current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Oth <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31672	31769	
==>on has either all of the tuples of
the original, or has zero tuples, respectively.  This method ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36222	36319	
==>on has either all of the tuples of
the original, or has zero tuples, respectively.  This method ha <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24531	24625	
==>on those objects.
All of their attributes are private, so you must use accessor methods.
Locale <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24531	24625	
==>on those objects.
All of their attributes are private, so you must use accessor methods.
Locale <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4728	4837	
==>lti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3855	3964	
==>lti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4728	4837	
==>lti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3855	3964	
==>lti sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1811	1934	
==>t = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1811	1934	
==>t = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	205	324	
==>ule MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	205	324	
==>ule MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8372	8498	
==>sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8565	8691	
==>sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2859	2959	
==>ber(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2859	2959	
==>ber(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2859	2959	
==>ber(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30924	31019	
==>h Perl 5.8.

=head2 Object Attributes

All objects share the following attributes (accessible vi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9737	9866	
==>ink $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's any other package that's now th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1976	2080	
==>tring(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1976	2080	
==>tring(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1976	2080	
==>tring(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "Stri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4668	4786	
==>lete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4668	4786	
==>lete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_chann <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2094	2197	
==>p( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2094	2197	
==>p( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11897	12011	
==>urn 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36662	36758	
==>other trivial case is where any any source relation has zero
tuples, in which case the result doe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41211	41307	
==>other trivial case is where any any source relation has zero
tuples, in which case the result doe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40834	40930	
==>other trivial case is where any any source relation has zero
tuples, in which case the result doe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	600	700	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	600	700	
==>ference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3577	3696	
==>=> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3577	3696	
==>=> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3577	3696	
==>=> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	662	793	
==>P5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of mod;
    }
    $target = $matchObj->targe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13511	13614	
==>ontainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13511	13614	
==>ontainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13511	13614	
==>ontainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7827	7922	
==>-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authori <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7827	7922	
==>-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authori <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1237	1334	
==>* refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, .. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1237	1334	
==>* refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, .. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1237	1334	
==>* refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, .. <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8618	8733	
==>$b->{file}} @files ]); 
    print $fh $template->output();
    close $fh;
    for (@dirs) {
        build_indexes( c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6321	6419	
==>4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6321	6419	
==>4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8518	8616	
==>4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	114	215	
==>N

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	114	215	
==>N

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3052	3149	
==>LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3052	3149	
==>LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8059	8170	
==><from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8059	8170	
==><from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	289	385	
==>urns List of Object;
multi method exists ($index ) returns Object;
multi method exists (*@index ) <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3278	3533	
==>>new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1429	1543	
==>tional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1429	1543	
==>tional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1638	1752	
==>tional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6729	6827	
==>nfix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6729	6827	
==>nfix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6729	6827	
==>nfix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5943	6067	
==>"PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5943	6067	
==>"PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5943	6067	
==>"PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmet <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6890	6996	
==>Unicode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F] <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3734	3885	
==>er 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3734	3885	
==>er 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6828	6978	
==>= @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6828	6978	
==>= @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $se <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1226	1341	
==>.5 down above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <= .5) && ($x >= 0) { $x_round = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6368	6465	
==>e specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6368	6465	
==>e specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8565	8662	
==>e specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3239	3446	
==>$2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3791	3993	
==>t: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    r <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3791	3993	
==>t: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3112	3312	
==>$2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5103	5243	
==>>{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5229	5337	
==>m += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5229	5337	
==>m += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5229	5337	
==>m += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7879	7996	
==>+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7867	7984	
==>+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8910	9028	
==>}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1193	1287	
==>, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1193	1287	
==>, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1193	1287	
==>, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2071	2180	
==>he smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	360	462	
==>=>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	360	462	
==>=>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	360	462	
==>=>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10384	10511	
==>_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10384	10511	
==>_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10384	10511	
==>_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8917	9033	
==>nd
    

.sub "parse_quant"
    .param pmc mob
    .local string target
    .local int min, max, islazy
    .local in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2248	2384	
==>t->add_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '*', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	630	736	
==>ALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	630	736	
==>ALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	630	736	
==>ALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20093	20208	
==>ist', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20372	20487	
==>ist', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13783	13893	
==>ffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13783	13893	
==>ffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21090	21180	
==>L, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBas <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21090	21180	
==>L, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBas <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15529	15654	
==>e);
            
            my @kids = $beg->parent->splice_content($beg_n, $end_n-$beg_n+1, $div);
            $div->push_co <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2214	2335	
==>>index->file($config->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($po <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	617	727	
==>o execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prep <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	617	727	
==>o execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prep <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1350	1450	
==>PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1350	1450	
==>PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1350	1450	
==>PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12591	12690	
==>->error(RPe_ESLASH);
  });

  # start of char class (and possible negation)
  $self->add_handler('[' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	26	130	
==>Var;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10282	10373	
==>::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10282	10373	
==>::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10282	10373	
==>::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1931	2028	
==>et($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1931	2028	
==>et($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10372	10468	
==>The deferred validations are performed
on demand at some time after the input has been set, and c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10372	10468	
==>The deferred validations are performed
on demand at some time after the input has been set, and c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	632	741	
==>on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execut <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	632	741	
==>on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execut <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4562	4667	
==>1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4562	4667	
==>1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33722	33820	
==>s Relation>

This method is a generic relational operator that takes a single Relation
in its C<$ot <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34490	34588	
==>s Relation>

This method is a generic relational operator that takes a single Relation
in its C<$ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38272	38370	
==>s Relation>

This method is a generic relational operator that takes a single Relation
in its C<$ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39040	39138	
==>s Relation>

This method is a generic relational operator that takes a single Relation
in its C<$ot <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4645	4755	
==>_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4504	4614	
==>_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6902	6994	
==>decimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7920	8012	
==>decimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	782	882	
==>=> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	782	882	
==>=> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	782	882	
==>=> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4959	5069	
==>n = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4959	5069	
==>n = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4959	5069	
==>n = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - u <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	151	253	
==>n't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definit <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	151	253	
==>n't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20011	20113	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20290	20392	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11179	11319	
==>se {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5968	6065	
==>editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5968	6065	
==>editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5968	6065	
==>editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	748	866	
==>methods => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	21	112	
==>strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	21	112	
==>strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	21	112	
==>strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7499	7610	
==>s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->sig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7499	7610	
==>s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->sig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7499	7610	
==>s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->sig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2791	2884	
==>interoperability.

Parrot Perl 6 is the best performing implementation by far.
The Parrot impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	693	807	
==>main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	693	807	
==>main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	693	807	
==>main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4591	4678	
==>ions for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	802	957	
==>_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	802	957	
==>_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	802	957	
==>_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        e <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1520	1672	
==>ystem( qq[cp -f $archive $Repodir/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating their metainfo to one file
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10061	10165	
==>e ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10061	10165	
==>e ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10061	10165	
==>e ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_fil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14049	14168	
==>cro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10222	10341	
==>cro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11058	11177	
==>cro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $pr <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7711	7857	
==>$content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7711	7857	
==>$content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	642	753	
==>find_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	642	753	
==>find_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7969	8122	
==>nted";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13563	13716	
==>nted";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7969	8122	
==>nted";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13557	13710	
==>nted";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5697	5835	
==>t->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5697	5835	
==>t->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5697	5835	
==>t->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4278	4406	
==>]\n";
        my $len = length( $item );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5704	5819	
==>al[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns S <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5704	5819	
==>al[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24746	24850	
==>rn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21167	21271	
==>rn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5426	5534	
==>nd $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(arg <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	78	186	
==>ns Num { ... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num :$base )
    returns Num { ... }

multi sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5426	5534	
==>nd $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5426	5534	
==>nd $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3018	3125	
==>e        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3018	3125	
==>e        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3018	3125	
==>e        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2585	2688	
==>ment, to see if it is possible to use the regexp
struct as a new api into the guts of the perl core.  Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15898	16037	
==>->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15898	16037	
==>->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15898	16037	
==>->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('h <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13954	14050	
==>$) }

# combs combine the generic values from their children
comb: generic_in($.fun) = { generic_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35093	35215	
==>f ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35093	35215	
==>f ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35093	35215	
==>f ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17942	18025	
==>x,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1, <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1721	1837	
==>() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '. <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1721	1837	
==>() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '. <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11016	11111	
==>rns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Ut <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11016	11111	
==>rns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Ut <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1842	2001	
==>W_UNKNOWN = 1;
        my $args = check( $tmpl, \%hash ) 
                        or error( Params::Check->last_error ), return;
        
        ### XXX need b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3931	4032	
==>hod_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3931	4032	
==>hod_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3931	4032	
==>hod_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2209	2330	
==>ively make shallow copies of the nodes
	# \@free will contain all the free type variables in the type at the end of the pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	389	491	
==>VIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	389	491	
==>VIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	389	491	
==>VIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1658	1848	
==>s not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1658	1848	
==>s not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1658	1848	
==>s not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; ou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13255	13346	
==>item RPe_ZQUANT (-1)

Quantifier unexpected on zero-length expression

=item RPe_NOTIMP (-2) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7612	7745	
==>1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7612	7745	
==>1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2555	2651	
==>ins extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2555	2651	
==>ins extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	893	1052	
==>$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	772	931	
==>$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3636	3738	
==>dd Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3636	3738	
==>dd Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14743	14855	
==>lass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14743	14855	
==>lass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1184	1287	
==>ool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1184	1287	
==>ool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $it <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	645	743	
==>]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	645	743	
==>]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	645	743	
==>]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7051	7173	
==>$ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Contain <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7051	7173	
==>$ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Contain <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2164	2270	
==>$self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2164	2270	
==>$self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	30	136	
==>ngeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	30	136	
==>ngeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	30	136	
==>ngeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	688	782	
==>annotate($self, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	352	445	
==>NC<XML/SAX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open(catfile($dir, $file), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1539	1652	
==>_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1539	1652	
==>_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1539	1652	
==>_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (v <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7517	7607	
==>d(R))      --> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_elem <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3497	3617	
==>) {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3497	3617	
==>) {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3497	3617	
==>) {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	318	418	
==>} // "wert";

#!\pause
# er kann auch sehr einfach verkettet werden:
my $option = %para{'x'} // %conf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	133	253	
==>);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is repre <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	133	253	
==>);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is repre <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1581	1681	
==>gh the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<en <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1581	1681	
==>gh the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<en <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24224	24350	
==>_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($v) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21595	21811	
==>al(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4058	4173	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4058	4173	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4058	4173	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3092	3189	
==>::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3092	3189	
==>::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3092	3189	
==>::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29076	29184	
==>GINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29076	29184	
==>GINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) ret <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2149	2252	
==>en,
>   No words were laid on stream or stone,
>   When Durin woke and walked alone.

-}

-------------- <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	427	523	
==>GINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5498	5597	
==>d {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5498	5597	
==>d {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5498	5597	
==>d {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propag <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14415	14512	
==>'s
  regexp library.  http://arglist.com/regex/  While the code has diverged,
  at least the libra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10461	10558	
==>ence_list');
    
## does Bar get Object's singleton methods ..

is($Bar->another_singleton_test_o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9960	10056	
==>ate validations
are performed at the moment the user tries to set the input, and input that
fails <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9960	10056	
==>ate validations
are performed at the moment the user tries to set the input, and input that
fails <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3267	3364	
==>= $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3267	3364	
==>= $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22548	22639	
==>2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22548	22639	
==>2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta: <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1404	1504	
==>y ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _sen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1404	1504	
==>y ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _sen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1246	1339	
==>ESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1246	1339	
==>ESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C< <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13179	13361	
==>!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3364	3522	
==>!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3364	3522	
==>!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3364	3522	
==>!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7879	8033	
==>, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7879	8033	
==>, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7879	8033	
==>, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	702	849	
==>Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1788	1909	
==>etHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1788	1909	
==>etHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1788	1909	
==>etHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(S <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1699	1805	
==>1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub sp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	490	652	
==>=> $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	490	652	
==>=> $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	686	805	
==>ant {
    my $const = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XX <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6997	7086	
==>entifier><ws><expr>; }
macro statement_control:<a_call> (Match $m --> Match) is parsed(rx: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1981	2087	
==>!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, B <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1981	2087	
==>!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, B <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16317	16414	
==>eld indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16317	16414	
==>eld indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

T <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6360	6462	
==>SCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3714	3816	
==>SCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6360	6462	
==>SCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3714	3816	
==>SCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6237	6330	
==>|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6237	6330	
==>|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6237	6330	
==>|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12824	12912	
==>Close], !.
p6_named_character_tail([C,T],Close) --> [C], p6_named_character_tail(T,Close) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5826	5923	
==>e->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5826	5923	
==>e->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5826	5923	
==>e->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8441	8549	
==>make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8441	8549	
==>make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8441	8549	
==>make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        : <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2916	3019	
==>re; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public L <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3073	3176	
==>re; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public L <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2916	3019	
==>re; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public L <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3073	3176	
==>re; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Public L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15778	15919	
==>to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15778	15919	
==>to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15778	15919	
==>to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23962	24095	
==>>can("FLAG_$_")) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v) { &Rf |= $v }  # turn the flag on
      else { .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	89	213	
==>er.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	89	213	
==>er.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	89	213	
==>er.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBP <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	793	912	
==>:DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3249	3353	
==>{ /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3249	3353	
==>{ /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3249	3353	
==>{ /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2261	2374	
==>st(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2261	2374	
==>st(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32438	32529	
==>delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Transl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32438	32529	
==>delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Transl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22492	22603	
==>>can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23055	23166	
==>>can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18913	19024	
==>>can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19476	19587	
==>>can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handl <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5359	5492	
==>$s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2118	2205	
==>js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{test <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2118	2205	
==>js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{test <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2118	2205	
==>js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{test <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1058	1169	
==>nderstand what round-alternate means.
# But in my understanding, The implemention below might be right.
	state $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3370	3463	
==>sents a single test within the
Test::Builder framework. The class itself is actually a factory <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3370	3463	
==>sents a single test within the
Test::Builder framework. The class itself is actually a factory <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5567	5660	
==>sents a single test within the
Test::Builder framework. The class itself is actually a factory <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6884	6996	
==>c -o pugs src/Main.hs), @libs);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	600	706	
==>{ Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	600	706	
==>{ Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	600	706	
==>{ Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22668	22777	
==>nd_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7841	7946	
==>eded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7841	7946	
==>eded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7841	7946	
==>eded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1728	1837	
==>$<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1728	1837	
==>$<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1398	1497	
==>ctor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1398	1497	
==>ctor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	144	244	
==>Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	144	244	
==>Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $tw <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	77	173	
==>ndras Barthazi
#  This code is totally free, use it as you want
# ------------------------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	77	173	
==>ndras Barthazi
#  This code is totally free, use it as you want
# ------------------------------- <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2131	2245	
==>in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sigil." <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9889	10001	
==>)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9889	10001	
==>)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9889	10001	
==>)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp". <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	712	822	
==>= $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	712	822	
==>= $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	712	822	
==>= $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5630	5733	
==>_class => $S->force_object(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_han <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4180	4294	
==>an refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4180	4294	
==>an refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4180	4294	
==>an refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.per <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4638	4737	
==>eck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    for my $inst ( @{ $self->av <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	371	504	
==>?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	728	831	
==>>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	728	831	
==>>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	728	831	
==>>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2J <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1361	1483	
==>ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1361	1483	
==>ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3747	3841	
==>f event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=hea <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3747	3841	
==>f event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5490	5658	
==>as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5490	5658	
==>as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2139	2234	
==>$self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME( <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1249	1340	
==>$self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME( <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1252	1366	
==>};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1252	1366	
==>};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2195	2303	
==>b quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2195	2303	
==>b quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2868	2989	
==>r ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2868	2989	
==>r ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2868	2989	
==>r ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for method <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	394	497	
==>hould use this module as a starting point to base
a new module distribution on.

= AUTHORS

Brian Ingers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1640	1762	
==>relude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1847	1969	
==>relude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file. <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1084	1183	
==>e way of imposing a rate limit
against a stream of items. It is also very easy to combine several
ra <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1084	1183	
==>e way of imposing a rate limit
against a stream of items. It is also very easy to combine several
ra <==
4	/Users/nnunley/pugs/util/version_h.pl	2172	2277	
==>define PUGS_SVN_REVISION $revision\n";
  close OUT;

  if ($revision != 0) {
    # rebuild Help.hs to show <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37913	38008	
==>ource relation
with every tuple of each other source relation, then where each member of a
tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42462	42557	
==>ource relation
with every tuple of each other source relation, then where each member of a
tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42112	42207	
==>ource relation
with every tuple of each other source relation, then where each member of a
tuple <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	152	253	
==>::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.02';

use strict;

# determine if the user ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6354	6446	
==>y whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6354	6446	
==>y whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6354	6446	
==>y whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9529	9632	
==>.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argume <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16019	16122	
==>.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argume <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9529	9632	
==>.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argume <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16019	16122	
==>.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argume <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4776	4940	
==>=>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            } <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4776	4940	
==>=>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8079	8173	
==>end_element ('item')>

This event is fired once the last '=item' directive, followed by any tex <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8079	8173	
==>end_element ('item')>

This event is fired once the last '=item' directive, followed by any tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13516	13680	
==>f + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_cha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13516	13680	
==>f + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_cha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13516	13680	
==>f + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_cha <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2401	2565	
==>f + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_cha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	171	297	
==>rule);

sub compiled {
    my $class = shift;
    my $code = shift;
    my ($grammar) = caller;
    bless { code => $code, gram <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	213	313	
==>et   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	213	313	
==>et   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	213	313	
==>et   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17210	17320	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17210	17320	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17210	17320	
==>n AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispa <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	506	607	
==>ter::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	723	834	
==>my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	723	834	
==>my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	723	834	
==>my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = s <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2080	2177	
==>tely -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main runloop.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8581	8697	
==>) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = norm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8581	8697	
==>) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = norm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3213	3319	
==>event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our usernam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3213	3319	
==>event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our usernam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6104	6258	
==>@pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6104	6258	
==>@pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6104	6258	
==>@pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, ' <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7570	7669	
==>kenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- ple <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12156	12283	
==>t( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18116	18226	
==>tart with identity-one relation and join all sources to it.
    my Relation::Example $r1 .= new( heading => set <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	650	759	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Yet <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	650	759	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Yet <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12627	12765	
==>n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8901	9039	
==>n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9736	9874	
==>n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	527	625	
==>SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentially a reference imp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39573	39664	
==>-----------------------------------------------
## now build Object, so we can create someth <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1399	1520	
==>}
      else { die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	397	498	
==>.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	397	498	
==>.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	397	498	
==>.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5570	5804	
==>ame = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6419	6653	
==>ame = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3339	3449	
==>::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3556	3666	
==>::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $name <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2018	2121	
==>get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2169	2272	
==>get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2678	2774	
==>es the given string, seperating it into 'name' and 'value' pairs.  This
method should be called b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2678	2774	
==>es the given string, seperating it into 'name' and 'value' pairs.  This
method should be called b <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2349	2471	
==>luex) {
		    print "not ok\n  \# Expected: >$valuex<\n  \#      Got: >$res<  from  $expr\n";
		} else {
		    print "ok\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5298	5405	
==>Sub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5298	5405	
==>Sub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5298	5405	
==>Sub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16851	16979	
==>versal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16851	16979	
==>versal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16851	16979	
==>versal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4616	4726	
==>t_comp => "\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_ob <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	774	892	
==>"'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	741	859	
==>"'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4558	4664	
==>e for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read o <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4558	4664	
==>e for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8984	9109	
==>y $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	718	843	
==>y $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8984	9109	
==>y $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8984	9109	
==>y $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1766	1880	
==>))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1766	1880	
==>))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	940	1045	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	940	1045	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::No <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5596	5709	
==>pdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*E <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5596	5709	
==>pdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*E <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4669	4768	
==>, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4891	4990	
==>, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	701	853	
==>ill turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5473	5566	
==>ix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5473	5566	
==>ix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5473	5566	
==>ix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1571	1678	
==>ox.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1571	1678	
==>ox.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1571	1678	
==>ox.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8436	8555	
==>ed to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8436	8555	
==>ed to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8436	8555	
==>ed to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18944	19056	
==>tion::Example.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	909	1020	
==>sion of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	909	1020	
==>sion of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2105	2203	
==>>{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2105	2203	
==>>{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	656	815	
==>ement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	656	815	
==>ement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33210	33308	
==>les will be searched in the order
they appear in this array until a match for that message is found <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33210	33308	
==>les will be searched in the order
they appear in this array until a match for that message is found <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19277	19402	
==>"");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      & <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15698	15823	
==>"");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      & <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2225	2337	
==><rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2225	2337	
==><rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19561	19656	
==>ale::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19561	19656	
==>ale::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13439	13626	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13439	13626	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13439	13626	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2324	2511	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10833	10969	
==>s' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10833	10969	
==>s' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10833	10969	
==>s' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23026	23109	
==>1::Api::Exception::Return;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16738	16873	
==>TION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16738	16873	
==>TION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16738	16873	
==>TION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traver <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24321	24420	
==>a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = type <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5123	5219	
==>Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _op <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1331	1425	
==>%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1331	1425	
==>%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1331	1425	
==>%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	368	484	
==>e: unknown parameter '$_'" 
        for keys %$param;
    my $self = { source => $rule_source };
    $self->{perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5552	5659	
==>s';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  m <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2528	2618	
==>item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representati <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2528	2618	
==>item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representati <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2679	2872	
==>_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2679	2872	
==>_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	80	183	
==>d BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $cl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	80	183	
==>d BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6473	6587	
==>nels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6473	6587	
==>nels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6807	6917	
==>lar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6807	6917	
==>lar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	460	555	
==><density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.ne <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	460	555	
==><density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.ne <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6546	6639	
==>catpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6546	6639	
==>catpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8641	8776	
==>() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8641	8776	
==>() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8641	8776	
==>() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDT <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	417	606	
==>hift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else { <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	417	606	
==>hift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20606	20703	
==>age files specific to the program
in the order you chose so to pick a supported language closest t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20606	20703	
==>age files specific to the program
in the order you chose so to pick a supported language closest t <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3680	3778	
==>s a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_st <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3680	3778	
==>s a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_st <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7830	7923	
==>yof_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_clos <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6247	6384	
==>t {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6247	6384	
==>t {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24335	24433	
==>ays seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>raw <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24335	24433	
==>ays seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>raw <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4155	4322	
==>$code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5476	5643	
==>$code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4155	4322	
==>$code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5464	5631	
==>$code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10146	10279	
==>entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_e <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10146	10279	
==>entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_e <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	562	712	
==>dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for Fil <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	562	712	
==>dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for Fil <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15962	16064	
==>my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2355	2457	
==>my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1296	1409	
==>already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1296	1409	
==>already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1296	1409	
==>already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10834	10926	
==>fess("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8123	8240	
==>erms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8316	8433	
==>erms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7745	7839	
==>_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_elem <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7745	7839	
==>_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_elem <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10510	10652	
==>ort... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10510	10652	
==>ort... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17361	17483	
==>$cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17361	17483	
==>$cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5317	5518	
==>_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8794	8995	
==>_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7814	8015	
==>_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mappi <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12541	12646	
==>line is a comment.  If so, it will place it into
C<$comment> (sans #).

=cut

sub _is_comment {
    my($se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1542	1675	
==>ing ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1542	1675	
==>ing ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5028	5131	
==>TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5028	5131	
==>TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1973	2167	
==>$m ) {
                    #print "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8618	8727	
==>s;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8618	8727	
==>s;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8618	8727	
==>s;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	73	207	
==>RI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.meth <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	73	207	
==>RI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9203	9327	
==>1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9191	9315	
==>1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match- <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4218	4321	
==>printf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release" : "repository snapshot",
      $_[0]->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6576	6672	
==>tr->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6576	6672	
==>tr->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6576	6672	
==>tr->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3482	3687	
==>e";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3482	3687	
==>e";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3482	3687	
==>e";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unbo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11341	11437	
==>e", {[C] = [0x1B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20329	20428	
==>>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mig <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19277	19376	
==>>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mig <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20329	20428	
==>>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mig <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19277	19376	
==>>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mig <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35651	35744	
==>on::Example>

This multi-method is a generic binary relational operator that takes a single
Re <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	17	125	
==>tor
$x = $y; # wie bei Perl 5

#=Bindung (dynamisch)
my $x = 'Just Another';
# $x wird nun zur Laufzeit an $y <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1311	1413	
==>eout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1311	1413	
==>eout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	10	91	
==>nc/Module/Install/Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14643	14761	
==>lasses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14643	14761	
==>lasses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14643	14761	
==>lasses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1597	1757	
==>rapper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10647	10754	
==>------------------------

    method add_method;
    method get_method;
    method has_method;
    method ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10647	10754	
==>------------------------

    method add_method;
    method get_method;
    method has_method;
    method ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10647	10754	
==>------------------------

    method add_method;
    method get_method;
    method has_method;
    method ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1002	1097	
==>mplemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1002	1097	
==>mplemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1002	1097	
==>mplemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9849	9982	
==>m_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9849	9982	
==>m_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9849	9982	
==>m_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4157	4257	
==>ogram runnable by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file ref <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9179	9313	
==>f::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### default <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10656	10790	
==>f::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### default <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23146	23244	
==>up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23146	23244	
==>up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4501	4640	
==>ompile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { return { n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14297	14432	
==>ze() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17774	17909	
==>ze() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17190	17325	
==>ze() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	777	887	
==>tion's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4255	4365	
==>tion's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mappi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	158	256	
==>e controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	158	256	
==>e controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1717	1860	
==>j, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1717	1860	
==>j, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1717	1860	
==>j, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edit <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8778	8888	
==>on;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_error:
  $matchObj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8594	8766	
==>f->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8594	8766	
==>f->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8594	8766	
==>f->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	335	450	
==>rule( $self, %opt,
        fixity => 'infix', 
    );
    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5788	6010	
==>s( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we foun <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6252	6474	
==>s( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we foun <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2004	2122	
==>&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2015	2133	
==>&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8360	8495	
==>", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) {
        return  " " . $n->{o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6268	6385	
==>'3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6268	6385	
==>'3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	221	306	
==>e 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q([\w|\d|\:]+) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17937	18047	
==>) if $meth;
};


sub header_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1167	1276	
==>odes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VIn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1167	1276	
==>odes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VIn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1167	1276	
==>odes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VIn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	638	741	
==>turn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	638	741	
==>turn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	516	615	
==>ce - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
} <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	516	615	
==>ce - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
} <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9272	9364	
==>r::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9467	9559	
==>r::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9662	9754	
==>r::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11319	11410	
==>r::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4169	4287	
==>card the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4169	4287	
==>card the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4169	4287	
==>card the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @para <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16370	16472	
==>f 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|pa <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3012	3151	
==>ls  => []
                  );

    # Set them up here so callbacks can have them.
    $self->{totals}{$name}         = \%totals;
    while( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14905	15001	
==>ay_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- ` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14905	15001	
==>ay_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- ` <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4245	4350	
==>0]->{pugs_revision} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5765	5902	
==>th - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5765	5902	
==>th - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5765	5902	
==>th - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $star <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4577	4713	
==>ft;
    [ 'anyof_close' ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7210	7303	
==>n_test_on_object',
  '... still got the right return value from first Object singleton/class m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8205	8298	
==>n_test_on_object',
  '... still got the right return value from first Object singleton/class m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10774	10867	
==>n_test_on_object',
  '... still got the right return value from first Object singleton/class m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16408	16530	
==>@!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = su <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16408	16530	
==>@!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = su <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9806	9899	
==>nce sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combine <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9806	9899	
==>nce sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combine <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3169	3303	
==>=> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3169	3303	
==>=> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3169	3303	
==>=> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ ) <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1026	1125	
==>e root of 7 is: {newton(7, &f, $verbose => 1)}";

=head1 DESCRIPTION

Newton's method is a simple me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1538	1666	
==>store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1538	1666	
==>store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1538	1666	
==>store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8172	8278	
==>=head1 METHODS

=head2 new ()

Class method.  Returns a category object.

options:

=item * grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1797	1904	
==>Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1797	1904	
==>Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1797	1904	
==>Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2219	2307	
==>Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_harness.pl),@yaml_harness_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32143	32254	
==>rn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32143	32254	
==>rn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32143	32254	
==>rn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8088	8190	
==>nd =  $self->_command();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10280	10379	
==>ue_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10280	10379	
==>ue_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10280	10379	
==>ue_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::m <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	475	586	
==>mes);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %has <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	475	586	
==>mes);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2971	3069	
==>, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In ad <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2971	3069	
==>, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In ad <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	409	525	
==>f Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be crea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	900	1016	
==>f Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be crea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	409	525	
==>f Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be crea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	900	1016	
==>f Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be crea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5335	5453	
==>t doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5335	5453	
==>t doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5335	5453	
==>t doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArg <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2881	2974	
==>outdated) image is available at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso.

Note: I <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	257	358	
==>ntext, needs lots of
# improvement. Due to regexp's limits, it is only
# expected to serve as a tool t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6090	6184	
==>ame, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6090	6184	
==>ame, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6090	6184	
==>ame, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" n <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1096	1204	
==>eturns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::S <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1096	1204	
==>eturns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	401	491	
==>er::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	401	491	
==>er::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2302	2422	
==>tamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2302	2422	
==>tamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2302	2422	
==>tamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12409	12514	
==>circumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12409	12514	
==>circumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12409	12514	
==>circumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	46	147	
==>up defined in PILn
# (though one may wish to overwrite a limited piln version with a more
# general p6 <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13261	13451	
==>y $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3434	3600	
==>y $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3434	3600	
==>y $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3434	3600	
==>y $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (sub <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2264	2361	
==>sed upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can r <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2264	2361	
==>sed upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1748	1905	
==>) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                nex <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1748	1905	
==>) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                nex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15812	15902	
==>web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15812	15902	
==>web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1471	1566	
==>ew PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1471	1566	
==>ew PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1471	1566	
==>ew PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18892	18994	
==>s both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won't wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13625	13723	
==>0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13625	13723	
==>0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13625	13723	
==>0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2255	2397	
==>currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3160	3270	
==>would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcir <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3160	3270	
==>would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcir <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3160	3270	
==>would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcir <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1628	1745	
==>ervice Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'In <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1628	1745	
==>ervice Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'In <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13329	13426	
==><$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13329	13426	
==><$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	621	776	
==>has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	621	776	
==>has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	621	776	
==>has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16542	16648	
==>tests will trigger VMS messages that won't be expected
        $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*// <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	772	879	
==>_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

met <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	772	879	
==>_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

met <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11210	11303	
==>cation) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11210	11303	
==>cation) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1729	1836	
==>ox.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1729	1836	
==>ox.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1729	1836	
==>ox.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$se <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	148	243	
==>emented in p6 (S29 already defines some p6 implementations).
# To contribute, just scroll down u <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2554	2662	
==>atches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2554	2662	
==>atches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2634	2742	
==>atches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$re <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4063	4162	
==>ERR "... " if $Config{verbose};
}

# Strip comments and docs while preserving the line counts
sub st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	804	897	
==>etta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	804	897	
==>etta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1502	1593	
==>-------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1502	1593	
==>-------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	377	653	
==>dy
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of-line
                \# (?-s:. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1024	1119	
==>ssing objects that it finds along the way into new
namespaces. This is typically useful when you <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1024	1119	
==>ssing objects that it finds along the way into new
namespaces. This is typically useful when you <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1024	1119	
==>ssing objects that it finds along the way into new
namespaces. This is typically useful when you <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5722	5876	
==>)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5722	5876	
==>)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5722	5876	
==>)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20696	20779	
==>x],[],[],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,[],[],[C|Bx],[C|Bx],E0,E0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	510	609	
==>structor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	510	609	
==>structor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	510	609	
==>structor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28078	28171	
==>ss

All nodes inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=ite <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	377	484	
==>s;
for my $key (keys %funcs) {
	for my $func (keys %funcs) {
		next if $func eq $key;
		print "$key -> $func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2105	2186	
==>e(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2105	2186	
==>e(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2105	2186	
==>e(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5475	5596	
==>) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5475	5596	
==>) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6312	6411	
==>in the returned match, 

that makes it return until the start of the rule, which unsets the flag bef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6107	6205	
==>in the returned match, 
that makes it return until the start of the rule, which unsets the flag bef <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7717	7832	
==>ases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7717	7832	
==>ases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7717	7832	
==>ases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,fl <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	838	990	
==>)

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21093	21192	
==>he same
degree, and the attribute names of each tuple are all the same as those of
all the other tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25645	25744	
==>he same
degree, and the attribute names of each tuple are all the same as those of
all the other tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24260	24359	
==>he same
degree, and the attribute names of each tuple are all the same as those of
all the other tup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20004	20236	
==>other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20004	20236	
==>other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20004	20236	
==>other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cel <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1483	1573	
==>mtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd/win32/${exename}_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3872	4077	
==>h, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3298	3407	
==>f => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3298	3407	
==>f => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3298	3407	
==>f => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	508	633	
==>'') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	508	633	
==>'') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2328	2424	
==>r fully functioning modules in 
Pugs, this port does it's best to work with those limitations and <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2328	2424	
==>r fully functioning modules in 
Pugs, this port does it's best to work with those limitations and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4888	5017	
==>e = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4888	5017	
==>e = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4888	5017	
==>e = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $val <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6618	6731	
==>st ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3695	3808	
==>tr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3695	3808	
==>tr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3695	3808	
==>tr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $mat <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8102	8201	
==>}

# signature from S29draft.pod 8651.  In the List section.
multi Array::reverse (   @values --> La <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20144	20255	
==>sors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19103	19214	
==>sors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20144	20255	
==>sors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19103	19214	
==>sors. C<last_traffic> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6316	6412	
==>= $tokenStack[-1];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4181	4265	
==>ute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4181	4265	
==>ute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4181	4265	
==>ute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	805	957	
==>l() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	805	957	
==>l() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	805	957	
==>l() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	806	919	
==>( "Could not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3078	3207	
==>mp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3078	3207	
==>mp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_star <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29266	29366	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its
tupl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33818	33918	
==>ator that returns a new Relation
which is the same as the invocant Relation but that some of its
tupl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	894	1002	
==>difiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	894	1002	
==>difiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	894	1002	
==>difiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_h <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25876	25973	
==>s with this message.

=back

=head1 ENVIRONMENT

=over 4

=item C<HARNESS_ACTIVE>

Harness sets th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2606	2709	
==>stem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2606	2709	
==>stem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2606	2709	
==>stem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4166	4257	
==>:Run::OnPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'}->val <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9694	9791	
==>lasses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9694	9791	
==>lasses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP:: <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1683	1775	
==>tem new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<ra <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1683	1775	
==>tem new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<ra <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3493	3746	
==>tes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3493	3746	
==>tes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15822	15912	
==>or TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15822	15912	
==>or TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	827	926	
==>uplicateFinder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_ <==
4	/Users/nnunley/pugs/util/package-osx.pl	10867	11018	
==>).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3746	3827	
==>.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3746	3827	
==>.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3746	3827	
==>.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/x <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7139	7265	
==>e care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7139	7265	
==>e care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7139	7265	
==>e care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32691	32788	
==>ding an ending node to the walking stack is that ending
nodes are all omitted from the tree becaus <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1565	1698	
==>_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1501	1630	
==>_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2025	2122	
==>item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults t <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2025	2122	
==>item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1246	1361	
==>lementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1246	1361	
==>lementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1246	1361	
==>lementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	878	993	
==>_source' at: '$self->{ast}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::D <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4112	4351	
==>{
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19540	19633	
==>d>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19540	19633	
==>d>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11798	11993	
==>=> undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11798	11993	
==>=> undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1412	1521	
==>apper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1412	1521	
==>apper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4794	4975	
==>m or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5016	5197	
==>m or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10732	10830	
==>s: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plain <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10732	10830	
==>s: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plain <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	350	456	
==>been expressed as
#     complemented character sets.  <-[...]>  They are all tagged with
#     #SourceChara <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	551	656	
==>}

sub SessionClear() {
    %Session=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@variabl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4338	4433	
==>usly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descri <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4338	4433	
==>usly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4418	4513	
==>usly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13595	13772	
==>->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13595	13772	
==>->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13595	13772	
==>->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1960	2063	
==>ct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1960	2063	
==>ct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1960	2063	
==>ct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10270	10397	
==>rivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10270	10397	
==>rivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10270	10397	
==>rivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3445	3550	
==>s  { \$ }
rule assert_bol  { \^\^ }
rule assert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <patt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20939	21055	
==>ss;
    return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	232	339	
==>'$handle'),
			Param('$string'),
			App(
				Sym('&printf'),
				Sym('$handle'),
				Val('%s'),
				Sym('$st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27547	27645	
==>d to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspond <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32099	32197	
==>d to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspond <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6165	6298	
==>)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	863	970	
==>>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	863	970	
==>>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	863	970	
==>>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3262	3392	
==>rray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3262	3392	
==>rray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3262	3392	
==>rray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	504	621	
==>Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	601	718	
==>Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9139	9243	
==>utely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current imple <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8839	8939	
==>utely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current imple <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	264	379	
==>event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	264	379	
==>event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2230	2324	
==>lasses within the strategy.  They're
done like this until pugs gets support for virtual classes <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2230	2324	
==>lasses within the strategy.  They're
done like this until pugs gets support for virtual classes <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2782	2893	
==>ule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3029	3140	
==>ule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7865	7959	
==>on_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7865	7959	
==>on_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15164	15264	
==>$to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15164	15264	
==>$to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20533	20629	
==>ue if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20533	20629	
==>ue if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5965	6059	
==>om_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5965	6059	
==>om_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5965	6059	
==>om_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_un <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1446	1538	
==><meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_ca <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7594	7726	
==>"pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app<" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	908	1006	
==>{ $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	908	1006	
==>{ $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	908	1006	
==>{ $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1735	1883	
==>ion.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1735	1883	
==>ion.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1735	1883	
==>ion.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24296	24398	
==>bvious

Confined to regcomp/regexec.

 * reganch      is the match anchored (at beginning-of-line only) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2297	2411	
==>oesn't seem to have a rel2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5528	5632	
==>«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5528	5632	
==>«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5528	5632	
==>«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5676	5822	
==>.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5688	5834	
==>.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19368	19459	
==>MS) is that data definition statements are structured as
standard data manipulation statemen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19368	19459	
==>MS) is that data definition statements are structured as
standard data manipulation statemen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5498	5609	
==>return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5498	5609	
==>return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method f <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	754	850	
==>operty, and adds C<content>,
which is the whitespace to be represented in the normative XML.

=cu <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	754	850	
==>operty, and adds C<content>,
which is the whitespace to be represented in the normative XML.

=cu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1289	1381	
==>Context
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1433	1525	
==>Context
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1289	1381	
==>Context
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1433	1525	
==>Context
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6042	6214	
==>ted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6042	6214	
==>ted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6042	6214	
==>ted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36638	36747	
==>upp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2635	2755	
==>extToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2635	2755	
==>extToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2635	2755	
==>extToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $: <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2234	2344	
==>rings }
        multi method as (--> Named) { $.name => self }
    }

    class Getopt::Argument::Style::Cluste <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4548	4669	
==>.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4548	4669	
==>.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4548	4669	
==>.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4162	4262	
==>s
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1050	1180	
==>{
    my $entry = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5680	5784	
==>$<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12907	13005	
==>, when iterating through the span range, the unit is added to the current value to get the next val <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12907	13005	
==>, when iterating through the span range, the unit is added to the current value to get the next val <==
4	/Users/nnunley/pugs/util/run-smoke.pl	13	115	
==>rl

use strict;
use warnings;
use Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4352	4447	
==>object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Thi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4352	4447	
==>object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5876	5971	
==>object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6816	6920	
==>.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6816	6920	
==>.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6816	6920	
==>.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1639	1736	
==>es pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $self, and uses th <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5208	5323	
==>? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2788	2892	
==>lder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Out <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2788	2892	
==>lder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4312	4416	
==>lder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Out <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13311	13421	
==>dir;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2058	2181	
==>$self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $cat = Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37463	37559	
==>ioned binary join()
operator, and the order of its arguments is not significant to the result;
th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42012	42108	
==>ioned binary join()
operator, and the order of its arguments is not significant to the result;
th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41653	41749	
==>ioned binary join()
operator, and the order of its arguments is not significant to the result;
th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10757	10972	
==>klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10757	10972	
==>klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2706	2814	
==>onstant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2890	2998	
==>onstant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4166	4267	
==>method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infini <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4166	4267	
==>method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infini <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	470	578	
==>651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24703	24802	
==>r version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24703	24802	
==>r version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	48	143	
==>rl6::Core::Type;

package type::equivalence;

use strict;
use warnings;

use Scalar::Util 'bless <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3788	3884	
==>atch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3972	4068	
==>atch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7189	7305	
==>"", "[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, "]";
    }
  }
}


{
  pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1131	1226	
==>match;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1131	1226	
==>match;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1131	1226	
==>match;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13906	14071	
==>ubstr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4015	4156	
==>ubstr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4015	4156	
==>ubstr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4015	4156	
==>ubstr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transt <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14914	15032	
==>recomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses */

The ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12786	12900	
==>y ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ident <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12786	12900	
==>y ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ident <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12786	12900	
==>y ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::ident <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1126	1220	
==>his library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27242	27358	
==>( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27521	27637	
==>( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2455	2568	
==>NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    return ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2373	2483	
==>NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26807	26948	
==>ation;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27086	27227	
==>ation;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7493	7599	
==>shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class- <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7493	7599	
==>shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class- <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1338	1438	
==>)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1338	1438	
==>)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24102	24198	
==>he program code itself, so it then becomes a version of that
language.  By contrast, Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24102	24198	
==>he program code itself, so it then becomes a version of that
language.  By contrast, Locale::Keye <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	892	1021	
==>y_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self->get_value('@:slot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37879	37991	
==>$array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37879	37991	
==>$array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $po <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37879	37991	
==>$array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5162	5320	
==>hing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5162	5320	
==>hing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5162	5320	
==>hing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5858	5974	
==>\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5858	5974	
==>\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	164	260	
==>e;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	164	260	
==>e;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	372	478	
==>that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar exten <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	372	478	
==>that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar exten <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32779	32871	
==>nd deterministic because it
invokes user-defined external files for reading, mainly in the
C< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32779	32871	
==>nd deterministic because it
invokes user-defined external files for reading, mainly in the
C< <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1988	2158	
==>k(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6151	6261	
==>);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6151	6261	
==>);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6151	6261	
==>);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6838	6947	
==>id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6838	6947	
==>id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6838	6947	
==>id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	770	875	
==>{ -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19957	20095	
==>OY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19957	20095	
==>OY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19957	20095	
==>OY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26646	26743	
==>g is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x100000 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1996	2115	
==>{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1996	2115	
==>{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1996	2115	
==>{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
pa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1933	2094	
==>pen =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1933	2094	
==>pen =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6481	6582	
==>_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6481	6582	
==>_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4104	4205	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4104	4205	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	990	1081	
==>universe => $universal_set )`

Create a recurrence set with full bidirectional functionality <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	990	1081	
==>universe => $universal_set )`

Create a recurrence set with full bidirectional functionality <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6394	6500	
==>rsion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6394	6500	
==>rsion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6394	6500	
==>rsion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPa <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	513	605	
==>implements a
# "named event" mechanism, for Class::Publisher like behavior.

module Class::Ev <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9989	10087	
==>)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9989	10087	
==>)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25121	25209	
==>rk/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23885	23973	
==>rk/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25121	25209	
==>rk/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23885	23973	
==>rk/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L< <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3997	4118	
==>xps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } keys %main::;
        print "\n---- Conversion subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	862	975	
==>Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	862	975	
==>Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	862	975	
==>Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autode <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	842	953	
==>e".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying the whole strin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1211	1317	
==>e".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole strin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	810	916	
==>e".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole strin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1211	1317	
==>e".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole strin <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5399	5573	
==>al to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5399	5573	
==>al to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5355	5469	
==>s_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start < <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5355	5469	
==>s_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start < <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19962	20093	
==>xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        pus <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16383	16514	
==>xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        pus <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	212	318	
==>subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	212	318	
==>subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	367	477	
==>xportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	367	477	
==>xportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	367	477	
==>xportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2301	2472	
==>List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7534	7686	
==>FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7534	7686	
==>FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7534	7686	
==>FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8042	8154	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variabl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8235	8347	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variabl <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2214	2311	
==>nt $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2214	2311	
==>nt $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4406	4527	
==>rom
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache35 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4406	4527	
==>rom
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache35 <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	730	834	
==>e {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	730	834	
==>e {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5358	5456	
==>'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5358	5456	
==>'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5358	5456	
==>'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16098	16186	
==>lationalExpressionNoIn> <'>='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'insta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2190	2291	
==>> 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2190	2291	
==>> 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1255	1355	
==>ash from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1200	1297	
==>ash from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	124	246	
==>>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36964	37072	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36964	37072	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36964	37072	
==>initialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elem <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4227	4328	
==>classes');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4227	4328	
==>classes');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4227	4328	
==>classes');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1726	1826	
==>p - it contains symbol to value mappings.

=back

=head2 Misc

=over 4

=item Blondie::Env

Note that <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1734	1873	
==>ep '$Metaext\$'] ) {
        chomp $meta;
        
        print "Indexing '" . basename($meta) ."'\n";
        
        my $href = LoadFile <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3758	3855	
==>e(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3758	3855	
==>e(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3758	3855	
==>e(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13752	13878	
==>he{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13752	13878	
==>he{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13752	13878	
==>he{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1269	1368	
==>ulti sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«> <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1269	1368	
==>ulti sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1031	1125	
==>r> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1031	1125	
==>r> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1751	1857	
==>sh @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1751	1857	
==>sh @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1831	1937	
==>sh @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1490	1591	
==>haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $self->t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10246	10368	
==>cos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of MPW style.
	    $runperl .= ' -MMac::er <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1407	1506	
==>plitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1407	1506	
==>plitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1407	1506	
==>plitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1551	1656	
==>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1551	1656	
==>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1551	1656	
==>unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2317	2408	
==>$node->struct_equiv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struct);
}

sub can <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17338	17451	
==>g);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11953	12065	
==>g);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11953	12065	
==>g);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11953	12065	
==>g);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5171	5306	
==>oles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5171	5306	
==>oles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5171	5306	
==>oles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Ro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23998	24103	
==>end
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid lo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22771	22876	
==>end
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23998	24103	
==>end
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22771	22876	
==>end
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid lo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1398	1522	
==>True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1398	1522	
==>True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8161	8259	
==>ed by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a v <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8161	8259	
==>ed by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9672	9849	
==>::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $nu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	254	423	
==>::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	254	423	
==>::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $nu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2865	2960	
==>=head2 Failure

When tests fail, analyze the summary report:

  t/base..............ok
  t/nonum <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4342	4466	
==>$match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4342	4466	
==>$match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52248	52334	
==>------------------------------------------------------------
## finishing up the boostr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2394	2535	
==>class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2394	2535	
==>class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2394	2535	
==>class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    i <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14627	14718	
==>l   /boot/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_size=$initrd_size quiet
initrd   /b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	47	154	
==>9-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	47	154	
==>9-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	47	154	
==>9-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5629	5766	
==>}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	863	978	
==>attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversion to other native <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3706	3819	
==>own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3574	3683	
==>own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $ne <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9104	9197	
==>ile.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9104	9197	
==>ile.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	826	953	
==>(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{env});
} 

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6537	6654	
==>O') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6537	6654	
==>O') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6537	6654	
==>O') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:su <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14582	14677	
==>code support for those needs. The
following is a list of future features planned for this module <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14640	14735	
==>code support for those needs. The
following is a list of future features planned for this module <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	568	660	
==>s fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	568	660	
==>s fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1012	1119	
==>rs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1012	1119	
==>rs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1012	1119	
==>rs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Per <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7127	7217	
==>ype, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParams <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6262	6367	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8330	8435	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6262	6367	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8330	8435	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) r <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	460	584	
==>@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1836	1948	
==>oken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1836	1948	
==>oken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1836	1948	
==>oken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	72	173	
==>Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Outpu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	72	173	
==>Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Outpu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3542	3642	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, a <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3542	3642	
==>npath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8884	8978	
==>prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8884	8978	
==>prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8884	8978	
==>prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_ne <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7458	7552	
==>est_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24771	24887	
==><Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	619	732	
==>rbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	619	732	
==>rbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	619	732	
==>rbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5761	5914	
==>])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method o <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5761	5914	
==>])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23207	23298	
==>implementations of all other necessary
operators (over said accessors), which can be employe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3492	3593	
==>lf->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3492	3593	
==>lf->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3492	3593	
==>lf->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5360	5463	
==>_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5360	5463	
==>_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5360	5463	
==>_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20400	20498	
==>claration :words {  # see 12.2
      <Identifier> <Initialiser>?
}
rule VariableDeclarationNoIn :wo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2289	2392	
==>ugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Res <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2289	2392	
==>ugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20181	20270	
==>ent {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20181	20270	
==>ent {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10661	10787	
==>----------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10661	10787	
==>----------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10661	10787	
==>----------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11858	11971	
==>$self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	330	432	
==>re is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * La <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	330	432	
==>re is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * La <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15647	15742	
==>rs to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Por <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15647	15742	
==>rs to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Por <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25937	26030	
==>ues duplicate each other,
or duplicate attribute names that aren't being renamed.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30489	30582	
==>ues duplicate each other,
or duplicate attribute names that aren't being renamed.  This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29464	29557	
==>ues duplicate each other,
or duplicate attribute names that aren't being renamed.  This method <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1102	1191	
==>RNESS_PERL}  = "./pugs $optional_args";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6445	6553	
==>malize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7181	7289	
==>malize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6445	6553	
==>malize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7181	7289	
==>malize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	768	875	
==>ug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has St <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	768	875	
==>ug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has St <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7219	7321	
==>turns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSI <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7277	7379	
==>turns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSI <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14476	14611	
==>n $S->force_object(anyof_class => lower => $neg, \$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18820	18948	
==>ub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18820	18948	
==>ub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18820	18948	
==>ub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOA <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3421	3516	
==>";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3421	3516	
==>";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9323	9451	
==>);

  $self->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6615	6727	
==>q 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6615	6727	
==>q 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6615	6727	
==>q 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20771	20882	
==>status)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4551	4644	
==>BLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4551	4644	
==>BLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4551	4644	
==>BLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	897	995	
==>e::Spec->catfile($dir, $_[1]);
		return $abs if (-x $abs or $abs = MM->maybe_command($abs));
	}

	r <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3793	3904	
==>ot in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	91	187	
==>$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	91	187	
==>$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	91	187	
==>$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36003	36142	
==>l = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36003	36142	
==>l = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36003	36142	
==>l = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37620	37710	
==>orementioned.

=item C<difference (Relation::Example $other!) returns Relation::Example>

T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2664	2769	
==>t for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2664	2769	
==>t for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2664	2769	
==>t for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# T <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11982	12078	
==>.html");
      $output .= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) <==
4	/Users/nnunley/pugs/util/config_h.pl	1344	1458	
==>h) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

** <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2655	2762	
==>et_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1267	1374	
==>et_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1968	2075	
==>et_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1816	1949	
==>not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5293	5426	
==>not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4223	4356	
==>not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2412	2512	
==>B::Package::Installed->Object::Accessor::new        :
            JIB::Package::Binary->Object::Acces <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10963	11073	
==>";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10957	11067	
==>";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	722	820	
==>tem (compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4971	5065	
==>usage: $0 --inline src/perl6/Prelude.pm [options]
       $0 --precompile src/perl6/Prelude.pm - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4414	4537	
==>[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36704	36823	
==>fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36704	36823	
==>fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36704	36823	
==>fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1426	1570	
==>ss defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1426	1570	
==>ss defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	225	328	
==>> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	225	328	
==>> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Se <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6823	6923	
==>)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NU <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	731	826	
==>thod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	731	826	
==>thod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	731	826	
==>thod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	297	472	
==>_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20342	20432	
==>1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20342	20432	
==>1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20342	20432	
==>1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5835	5933	
==>g dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CON <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5835	5933	
==>g dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CON <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26785	26879	
==>es of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_bu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31337	31431	
==>es of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_bu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2636	2743	
==>ift;

	if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime cast of ($node)::$from to <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	941	1031	
==>ingleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	941	1031	
==>ingleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1021	1111	
==>ingleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1562	1659	
==>ndler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to quer <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1562	1659	
==>ndler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to quer <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11992	12086	
==>scending>
and C<is insensitive> to reverse the order of sort, or the adjust the
case sensitivit <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8053	8146	
==>stantiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nullary operator <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3358	3464	
==>>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LK <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	196	302	
==>GS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	196	302	
==>GS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3358	3464	
==>>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LK <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	566	733	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	566	733	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2776	2882	
==>sion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl cod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2776	2882	
==>sion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3641	3749	
==>discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3641	3749	
==>discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3641	3749	
==>discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	394	502	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	394	502	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	394	502	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	250	362	
==>my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4513	4611	
==>mp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4513	4611	
==>mp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4513	4611	
==>mp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5752	5847	
==>::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5752	5847	
==>::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3040	3236	
==>"Match: ",Dumper $m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' order sho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25768	25924	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25768	25924	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25768	25924	
==>>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16920	17067	
==>@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16920	17067	
==>@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16920	17067	
==>@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19357	19448	
==>ith using F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Character classes were <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13863	14018	
==>rt)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3976	4115	
==>rt)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3976	4115	
==>rt)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3976	4115	
==>rt)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6690	6834	
==>0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6474	6609	
==>0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2552	2709	
==>] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2457	2605	
==>] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3218	3331	
==>f defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param< <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3218	3331	
==>f defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8233	8355	
==>EXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8233	8355	
==>EXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	227	324	
==>me::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	227	324	
==>me::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Gramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11505	11610	
==>valX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11505	11610	
==>valX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11505	11610	
==>valX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1449	1549	
==>ndefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: J <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	570	815	
==>le);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    ret <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1622	1721	
==>ny parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1622	1721	
==>ny parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a s <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2926	3036	
==>ntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<secti <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2926	3036	
==>ntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<secti <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	313	422	
==>l, defaults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14462	14625	
==>d, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14456	14619	
==>d, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23363	23453	
==><$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC opera <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23363	23453	
==><$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC opera <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1741	1843	
==>opment.  There's a "return" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13428	13522	
==>iner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13428	13522	
==>iner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13428	13522	
==>iner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Ha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	932	1050	
==>ing(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4410	4528	
==>ing(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Ma <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1396	1495	
==>ructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1396	1495	
==>ructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4755	4869	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3882	3996	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4755	4869	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3882	3996	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	228	336	
==>e) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	228	336	
==>e) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	228	336	
==>e) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6300	6401	
==>t;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	156	245	
==>move_header remove_content_headers header_field_names scan
    date expires if_modified_si <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	156	245	
==>move_header remove_content_headers header_field_names scan
    date expires if_modified_si <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18808	18901	
==>d it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17851	17944	
==>d it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18808	18901	
==>d it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17851	17944	
==>d it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11143	11310	
==>rog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1816	1913	
==>DO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1816	1913	
==>DO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1816	1913	
==>DO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2159	2278	
==>();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for back <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2159	2278	
==>();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for back <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1229	1337	
==>);

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter::num_size($n) {
  'subset <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5679	5781	
==>$ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** ghc not found in path.  Looking in $ghc_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14470	14575	
==>t least $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14470	14575	
==>t least $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13511	13612	
==>t least $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13511	13612	
==>t least $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5678	5882	
==>"\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n") <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3039	3243	
==>"\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n") <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5678	5882	
==>"\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n") <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3039	3243	
==>"\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n") <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	746	852	
==>s.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	746	852	
==>s.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	746	852	
==>s.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = ne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32784	32881	
==>n of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20986	21076	
==>zed.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20986	21076	
==>zed.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23944	24049	
==>free->new,
	);
	is($type->stringify, "∀α. ∀β. α → β", "pretty print a -> b");

	$b->instantiate( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2943	3043	
==>{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2943	3043	
==>{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2943	3043	
==>{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4146	4261	
==>hes[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4018	4131	
==>hes[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	121	218	
==>er::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	121	218	
==>er::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6187	6296	
==>ficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ) <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6187	6296	
==>ficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3677	3776	
==>=>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3677	3776	
==>=>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4205	4319	
==>ediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5054	5168	
==>ediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumpe <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	396	499	
==>.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::D <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	396	499	
==>.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::D <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1453	1561	
==>n - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class rep <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1453	1561	
==>n - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class rep <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2051	2154	
==>$path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2051	2154	
==>$path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	544	686	
==>nf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	544	686	
==>nf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14355	14463	
==>add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14355	14463	
==>add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1407	1517	
==>age MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1407	1517	
==>age MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33860	33955	
==>ces such that each says what
language they prefer to communicate in, and what their backup choic <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33860	33955	
==>ces such that each says what
language they prefer to communicate in, and what their backup choic <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	90	180	
==>, "nows", &parse_ws_lit);
    $optable->addToken("term:::", "term:", "nows", "PGE::Exp::Cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34141	34257	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34141	34257	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34141	34257	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $arr <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	192	292	
==>ption = "wert" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operato <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13922	14016	
==>, !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdigits3_int(I) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	978	1096	
==>uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

me <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	978	1096	
==>uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

me <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4204	4305	
==>ement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{( <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4204	4305	
==>ement>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18951	19058	
==>repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3170	3256	
==>instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3170	3256	
==>instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3170	3256	
==>instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attrib <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7998	8106	
==>pFun);
    if($fun =~ /^is macrop5 (.+)$/) {
	return p6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3943	4038	
==>l is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Meta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3943	4038	
==>l is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Meta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3943	4038	
==>l is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Meta <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5125	5223	
==>t_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4252	4350	
==>t_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5125	5223	
==>t_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4252	4350	
==>t_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4345	4447	
==>5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4345	4447	
==>5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	211	304	
==>nput_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	211	304	
==>nput_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	144	249	
==>, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	144	249	
==>, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	144	249	
==>, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1182	1383	
==>y $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evaluate($t);
                next;
            }         
            
            # deal with str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4833	4942	
==>hen we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier ( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4833	4942	
==>hen we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier ( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17389	17483	
==>tring = CALLER::<$_> --> Str )

Performs a Unicode "titlecase" operation on the first character <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2637	2735	
==>*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2637	2735	
==>*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2637	2735	
==>*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// Fil <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	693	787	
==>->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file($test_file);

  # U <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3868	4033	
==>z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # rest of the class 
        get_z => sub { $z },
        set_z => sub {
            my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1795	1887	
==>rm->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1795	1887	
==>rm->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1795	1887	
==>rm->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp| <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5488	5612	
==>e,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($sel <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36771	36865	
==>her trivial case is if any
source relation is the identity-one relation (zero attributes, one t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41320	41414	
==>her trivial case is if any
source relation is the identity-one relation (zero attributes, one t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40943	41037	
==>her trivial case is if any
source relation is the identity-one relation (zero attributes, one t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7605	7791	
==>$_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7605	7791	
==>$_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7605	7791	
==>$_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13411	13524	
==>ass="tests_todo"><tmpl_var name=todo> todo</span>,<br />
                <span class="tests_skipped"><tmpl_var nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18741	18848	
==>error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15162	15269	
==>error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30500	30607	
==>error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8823	8920	
==><<REQUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1138	1255	
==>) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1138	1255	
==>) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1138	1255	
==>) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referen <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9954	10056	
==>type::operator::nary->new(list => $a),
				type::operator::nary->new(list => $a),
			),
		);
	},
	# lis <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1288	1404	
==>path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1288	1404	
==>path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2297	2393	
==>tracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2297	2393	
==>tracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6082	6198	
==>nels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6862	6978	
==>nels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6082	6198	
==>nels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6862	6978	
==>nels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        % <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	736	861	
==>$code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	747	872	
==>$code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_ca <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6390	6500	
==>$self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6390	6500	
==>$self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1353	1474	
==>me;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1353	1474	
==>me;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8858	8948	
==>ush @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->litera <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2683	2773	
==>ush @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->litera <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3092	3274	
==>$?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2798	2890	
==>sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2798	2890	
==>sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2798	2890	
==>sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	124	252	
==>{ stub($_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36254	36343	
==>he resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36254	36343	
==>he resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27349	27436	
==>NOML|REINT_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEE <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22873	23003	
==>^" . "<" x ($list_len - 1) . "\n"
              . '{ $Curtest->{name}, $Curtest->{estat},'
              . '  $Curtest->{wstat}, $C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4495	4587	
==>ap {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4495	4587	
==>ap {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4495	4587	
==>ap {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9079	9248	
==>e \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9914	10083	
==>e \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3720	3819	
==>self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3720	3819	
==>self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_ <==
4	/Users/nnunley/pugs/util/grokprims.pl	1908	2014	
==>ame \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$name";
  } elsif (/special/ and $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	386	487	
==>6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	386	487	
==>6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	386	487	
==>6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13523	13682	
==>n;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13523	13682	
==>n;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13523	13682	
==>n;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chang <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2408	2567	
==>n;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_chang <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6481	6585	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5611	5715	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6481	6585	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5611	5715	
==>ne, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7754	8001	
==>$newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &cont <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7754	8001	
==>$newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &cont <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23875	23970	
==>ading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation obj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28427	28522	
==>ading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation obj <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	305	426	
==>ctors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.def <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	305	426	
==>ctors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.def <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	11	107	
==>perl
# Creates a statistic of Pugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/g <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2043	2144	
==>c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8232	8357	
==>, '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8232	8357	
==>, '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8232	8357	
==>, '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20453	20564	
==>ading );

    return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body = <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5344	5520	
==>hese links ###
                $href->{ $path } = { bin => \@bins, auto => 1 };
                    
                ### dump out alternatives again
                DumpFile( $A <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	978	1077	
==>($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12136	12235	
==>er @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node objec <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	978	1077	
==>($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12136	12235	
==>er @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node objec <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8456	8566	
==>ype} = $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	593	686	
==>')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	593	686	
==>')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	593	686	
==>')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::in <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1136	1250	
==>:PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1136	1250	
==>:PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	969	1050	
==>path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	969	1050	
==>path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21301	21490	
==>b(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						param => com <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4404	4513	
==>1',  $file1,  "0000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "00000 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	687	794	
==>- hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - % <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	687	794	
==>- hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - % <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	687	794	
==>- hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4826	4924	
==>of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4826	4924	
==>of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4826	4924	
==>of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into " <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	925	1015	
==>rl6::Internals::exit $status;
}

sub Perl6::Internals::eval_parrot (Str $code) is builtin i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4250	4365	
==>od BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = u <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4250	4365	
==>od BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1081	1187	
==>f ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1081	1187	
==>f ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7927	8036	
==>y SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7927	8036	
==>y SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7927	8036	
==>y SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::Su <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8639	8759	
==>er numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8639	8759	
==>er numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14857	14951	
==>tituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14857	14951	
==>tituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6616	6742	
==>lass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1113	1218	
==>e = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1113	1218	
==>e = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1113	1218	
==>e = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	336	452	
==>file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	542	658	
==>file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16160	16254	
==>m the named parameter $node_type (a
string); the optional named parameter %attributes (a hash r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16160	16254	
==>m the named parameter $node_type (a
string); the optional named parameter %attributes (a hash r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17670	17761	
==>an DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17670	17761	
==>an DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosett <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2572	2693	
==>atch, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2572	2693	
==>atch, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15080	15184	
==>art  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reas <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15080	15184	
==>art  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reas <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3800	3920	
==>ti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $se <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1900	2020	
==>ti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3972	4065	
==>t the right method return value');
is($Class->superclass, $Object, '... $Class is now a subcla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5874	5967	
==>t the right method return value');
is($Class->superclass, $Object, '... $Class is now a subcla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5333	5456	
==>but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5333	5456	
==>but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5333	5456	
==>but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	504	620	
==>w;
    $obj->mk_accessors( keys %$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12608	12732	
==>gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12608	12732	
==>gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6638	6737	
==>e';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'is <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6638	6737	
==>e';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13014	13141	
==>n = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13014	13141	
==>n = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13014	13141	
==>n = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1899	2026	
==>n = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31175	31322	
==>= $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31175	31322	
==>= $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31175	31322	
==>= $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4539	4627	
==>{ block => $<list> ,} }
RULE
*{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3438	3610	
==>);
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3438	3610	
==>);
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2706	2835	
==>||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2706	2835	
==>||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.star <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26496	26637	
==>4

=item my $obj = $parser->object(TYPE => ARGS...)

This creates a node of package C<TYPE> and sends the constructor whatever
other arguments <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1883	1993	
==>else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1883	1993	
==>else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1883	1993	
==>else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38677	38773	
==>COMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITATIONS

I<This do <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	603	746	
==>0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	603	746	
==>0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1598	1738	
==>tch );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1598	1738	
==>tch );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dump <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9539	9685	
==>end > 0) {
         @lines = $start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      for my $line (@line <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	212	308	
==>M::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	212	308	
==>M::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14914	15008	
==>ut you can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<u <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14914	15008	
==>ut you can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<u <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8914	9010	
==>nt Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3843	3939	
==>nt Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8914	9010	
==>nt Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3843	3939	
==>nt Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	358	474	
==>hift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	358	474	
==>hift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4406	4508	
==>_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4591	4693	
==>_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $v <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35282	35379	
==>oin> except that this method will fail if any of its source Relations
have attributes in common; i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39832	39929	
==>oin> except that this method will fail if any of its source Relations
have attributes in common; i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39392	39489	
==>oin> except that this method will fail if any of its source Relations
have attributes in common; i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4516	4610	
==>{ref($_[0])?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7704	7892	
==>> $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7704	7892	
==>> $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7704	7892	
==>> $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3196	3308	
==>@msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3196	3308	
==>@msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3196	3308	
==>@msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32695	32790	
==>her (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2613	2727	
==>->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2613	2727	
==>->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2960	3074	
==>->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32772	32867	
==>de> the class as well.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10415	10560	
==>ter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	844	983	
==>ngth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	844	983	
==>ngth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	844	983	
==>ngth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	583	680	
==>owing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	583	680	
==>owing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21223	21318	
==>channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21223	21318	
==>channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3189	3316	
==>tribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3189	3316	
==>tribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3189	3316	
==>tribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for bin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8141	8254	
==>p->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_li <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10297	10392	
==>=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of ite <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8190	8285	
==>=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10297	10392	
==>=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8190	8285	
==>=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the number of ite <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8849	8986	
==>fier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8845	8982	
==>fier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'= <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2126	2236	
==>ime = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $bur <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2126	2236	
==>ime = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $bur <==
4	/Users/nnunley/pugs/util/importgraph.pl	1451	1559	
==>ype = shift;
  my $name = shift;
  my $regexp = join '|', map {
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5086	5193	
==>::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5086	5193	
==>::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5086	5193	
==>::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8932	9055	
==>e
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Ins <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8932	9055	
==>e
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Ins <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	203	305	
==>uld return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	203	305	
==>uld return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9419	9527	
==>p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9419	9527	
==>p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9419	9527	
==>p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10352	10467	
==>ne.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're curr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10352	10467	
==>ne.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're curr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2636	2736	
==>heck = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2636	2736	
==>heck = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	114	216	
==>for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	114	216	
==>for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	114	216	
==>for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7649	7749	
==>@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::map (@values ;  Co <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	541	668	
==>n $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	541	668	
==>n $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnost <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9191	9297	
==>') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9191	9297	
==>') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1538	1645	
==>CRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns a <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1300	1407	
==>CRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns a <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1538	1645	
==>CRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns a <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1300	1407	
==>CRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns a <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5565	5715	
==>,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5565	5715	
==>,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11336	11449	
==>NC unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10794	10899	
==>kage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10794	10899	
==>kage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10794	10899	
==>kage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45313	45409	
==>)      => attribute->new('$:name'      => 'str')));
$::Package->send('add_attribute', (symbol->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	150	245	
==>}

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	150	245	
==>}

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	150	245	
==>}

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11273	11376	
==>ed $args{progfile}) {
	$runperl .= qq( "$args{progfile}");
    } else {
	# You probaby didn't want to be <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4306	4396	
==>symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4306	4396	
==>symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4306	4396	
==>symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2181	2277	
==>translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Tex <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2181	2277	
==>translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29019	29112	
==>d functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33705	33798	
==>).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation::Example>

This me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29019	29112	
==>d functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29019	29112	
==>d functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	195	298	
==>$bin = ((dirname(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23225	23321	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23225	23321	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23225	23321	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1881	1986	
==>ocumentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9287	9392	
==>ocumentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7653	7756	
==>ocumentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2099	2202	
==>ocumentation by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7638	7777	
==>}

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    return $self;
  }
}


{
  pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2693	2792	
==>l) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2693	2792	
==>l) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2693	2792	
==>l) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1493	1587	
==>et to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1493	1587	
==>et to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nic <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	445	536	
==>cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	445	536	
==>cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13246	13341	
==>ted (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13246	13341	
==>ted (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements th <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15565	15656	
==>y recursive, they will easily be
able handle arbitrarily complex data structures automatical <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15623	15714	
==>y recursive, they will easily be
able handle arbitrarily complex data structures automatical <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4794	4889	
==>list>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2105	2197	
==>$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2105	2197	
==>$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2105	2197	
==>$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2032	2168	
==>le{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26] <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2032	2168	
==>le{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8359	8492	
==>= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8359	8492	
==>= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	99	232	
==>sh is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3153	3286	
==>sh is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	99	232	
==>sh is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3153	3286	
==>sh is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	351	460	
==>g
our $NULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	912	1013	
==>=~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	923	1024	
==>=~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2457	2550	
==>hopefully) perlish text.

=head1 SYNOPSIS

	use Blondie::Emitter::Pretty;

	print Blondie::Emi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2286	2383	
==>n $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Missi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3388	3482	
==>ssion
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Conte <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3388	3482	
==>ssion
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Conte <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	92	182	
==>e::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Po <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	92	182	
==>e::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Po <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7942	8054	
==>xt:   "; my $context =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1109	1202	
==>----------------------------------------------
## Roles

# Questions on Role methods sent to p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1109	1202	
==>----------------------------------------------
## Roles

# Questions on Role methods sent to p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1109	1202	
==>----------------------------------------------
## Roles

# Questions on Role methods sent to p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2313	2555	
==>{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # expects a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2367	2458	
==>odel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2367	2458	
==>odel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2367	2458	
==>odel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6308	6414	
==>de categories "Uppercase letter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase letter (Lt)",
      # "M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	231	329	
==>sg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	231	329	
==>sg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	231	329	
==>sg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1836	1987	
==>$nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1836	1987	
==>$nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12124	12217	
==>ve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrav <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12124	12217	
==>ve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	232	338	
==>create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	232	338	
==>create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	232	338	
==>create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 . <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2684	2792	
==>s copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2684	2792	
==>s copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17825	17921	
==>ome point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'.  T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17825	17921	
==>ome point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'.  T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11800	11940	
==>, \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8082	8222	
==>, \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8916	9056	
==>, \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16819	16910	
==>ssionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpression :words {  # see 11 <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2395	2488	
==>code.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15183	15276	
==>ties) implement.  This interface is rigorously defined, such that there
should be no ambiguity <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15183	15276	
==>ties) implement.  This interface is rigorously defined, such that there
should be no ambiguity <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2395	2488	
==>code.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2256	2382	
==>w' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2461	2587	
==>w' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        }, <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	888	982	
==>cription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	888	982	
==>cription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6239	6352	
==>_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6038	6146	
==>_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34018	34114	
==>Relation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an ident <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38568	38664	
==>Relation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an ident <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2954	3115	
==>p for holding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	305	404	
==>etTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	305	404	
==>etTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	305	404	
==>etTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	141	275	
==>$config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10353	10466	
==>ds
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10353	10466	
==>ds
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10353	10466	
==>ds
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4983	5104	
==>lf->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4983	5104	
==>lf->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4983	5104	
==>lf->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL:: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	119	217	
==>of /builtins/
* They sometimes use Pugs internals to do the job
* Some of this had not been specced <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19361	19453	
==>($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19361	19453	
==>($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19361	19453	
==>($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MU <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1970	2098	
==>le.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2187	2315	
==>le.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28825	28924	
==>r '&&', you must first install a handler for
'&' that calls the handler for '&&' if it can consume a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4622	4708	
==>ndef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4379	4477	
==>rns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4379	4477	
==>rns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code referen <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6944	7039	
==>r', $size)>

This event is fired once the '=head(n)' directive is reached. This does not include <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6944	7039	
==>r', $size)>

This event is fired once the '=head(n)' directive is reached. This does not include <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	35	136	
==>rnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# Ac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	35	136	
==>rnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# Ac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	35	136	
==>rnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# Ac <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6966	7057	
==>{ \d+ }

rule simple_call { <identifier><ws><expr>; }
macro statement_control:<a_call> (Matc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1130	1237	
==>_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1130	1237	
==>_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7462	7557	
==>ext = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7462	7557	
==>ext = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4557	4684	
==>', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3137	3245	
==>pe $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3137	3245	
==>pe $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3137	3245	
==>pe $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1464	1584	
==>engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1464	1584	
==>engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7927	8024	
==>g called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data sti <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7927	8024	
==>g called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data sti <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39966	40186	
==>symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17756	17970	
==>symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19514	19726	
==>symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41025	41235	
==>symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	378	488	
==>lf, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	378	488	
==>lf, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	820	914	
==>/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softli <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	705	791	
==>/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softli <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9582	9682	
==>this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc commen <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9640	9740	
==>this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc commen <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11884	11983	
==>le. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11942	12041	
==>le. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8148	8342	
==>tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8148	8342	
==>tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8148	8342	
==>tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1519	1624	
==>amodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1519	1624	
==>amodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1519	1624	
==>amodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pre <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	640	736	
==>s for more generally useful stuff, and need not be
  implemented immediately.  Assume the existen <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11421	11514	
==><tmpl_loop name=categories>
        <tr><th colspan="11" class="indent1"><tmpl_var name=catnam <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2023	2123	
==>ight need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2023	2123	
==>ight need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15676	15766	
==>should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

Thes <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15676	15766	
==>should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

Thes <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14362	14509	
==>(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           type => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	229	318	
==>rrectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	229	318	
==>rrectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	229	318	
==>rrectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLI <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6537	6650	
==>ram;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6537	6650	
==>ram;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.ne <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9364	9457	
==>ty{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is expor <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9364	9457	
==>ty{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is expor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3646	3746	
==>m the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3646	3746	
==>m the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5843	5943	
==>m the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19896	19993	
==>),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3721	3872	
==>$Obj->mk_accessors( $acc );
            
            ### set to a sane default value
            $Obj->$acc( $config{$key}->[0] );
        }
        ret <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4591	4690	
==>> 

This parameter is for the skip and TODO tests and should contain
a string describing why the tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4591	4690	
==>> 

This parameter is for the skip and TODO tests and should contain
a string describing why the tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6788	6887	
==>> 

This parameter is for the skip and TODO tests and should contain
a string describing why the tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6790	6970	
==>@_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6790	6970	
==>@_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6790	6970	
==>@_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8921	9044	
==>ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	828	958	
==>name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7043	7155	
==>ect(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	512	618	
==>ot supported by p5 by default)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	486	587	
==>ot supported by p5 by default)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8498	8634	
==>k);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13357	13477	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13357	13477	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13357	13477	
==>ethod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatc <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	596	697	
==>d when you
declare a new class.

A class is a role with the enhancement that is it I<typable>.

This m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29886	29978	
==>rapped, and it supports having old tuple-valued attributes which
have zero attributes (they j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34438	34530	
==>rapped, and it supports having old tuple-valued attributes which
have zero attributes (they j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33602	33694	
==>rapped, and it supports having old tuple-valued attributes which
have zero attributes (they j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4452	4624	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4452	4624	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4452	4624	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	311	424	
==>ar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled(sub {
       	my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13860	13992	
==>return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n#endblock\n";
    
            # register new synta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4293	4392	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4293	4392	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4293	4392	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	172	270	
==>otoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: for my $archive (@ARGV) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7621	7717	
==>ort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7621	7717	
==>ort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7621	7717	
==>ort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5568	5678	
==>wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5580	5690	
==>wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9469	9565	
==>le_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9469	9565	
==>le_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key! <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1621	1733	
==>ist = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1609	1721	
==>ist = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5576	5685	
==>is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5576	5685	
==>is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	698	829	
==>});
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	795	926	
==>});
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3084	3184	
==>Stmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3084	3184	
==>Stmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	955	1086	
==>trs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	955	1086	
==>trs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	955	1086	
==>trs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2044	2153	
==>n-smome.pl     - automate the smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11312	11473	
==>1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unless $code =~ /return/;
    return "#r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7135	7228	
==>d the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7135	7228	
==>d the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7135	7228	
==>d the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3823	3940	
==>sobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3823	3940	
==>sobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3823	3940	
==>sobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; w <==
4	/Users/nnunley/pugs/util/func_refact.pl	2000	2104	
==>ew=>$new}});
    print "union: while adding $new, entered with $oldsize, leaving with $size\n"
        if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	87	192	
==>rc`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	87	192	
==>rc`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	87	192	
==>rc`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskel <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	87	192	
==>rc`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Haskel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	190	297	
==>sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	487	586	
==>compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	487	586	
==>compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	487	586	
==>compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6125	6246	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6125	6246	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6125	6246	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24640	24755	
==>1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10.1
      <null>
    | <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6963	7095	
==>> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modifier :$k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5121	5236	
==>m_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5121	5236	
==>m_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5121	5236	
==>m_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24582	24675	
==>te, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or ex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24582	24675	
==>te, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or ex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24000	24092	
==>s that they
use a compile-time macro-based approach to substitute the user's preferred
langua <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24000	24092	
==>s that they
use a compile-time macro-based approach to substitute the user's preferred
langua <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1982	2137	
==>uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1982	2137	
==>uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14015	14134	
==>_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_complain->("code") },
      ref   => sub { $as <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6769	6883	
==>n sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	360	469	
==>ce should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	565	674	
==>ce should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	621	730	
==>ce should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr ha <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17953	18054	
==>in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $input = CALLER: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9089	9267	
==>q 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5449	5627	
==>q 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6298	6476	
==>q 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22792	22953	
==>namelen - 1)
              . "  @>> @>>>> @>>>> @>>> ^##.##%  "
              . "^" . "<" x ($list_len - 1) . "\n"
              . '{ $Curtest->{name}, $Curtest-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22033	22157	
==>OY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22033	22157	
==>OY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22033	22157	
==>OY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7560	7654	
==>one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6690	6784	
==>one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7560	7654	
==>one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6690	6784	
==>one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1529	1638	
==>s}) {
        $output .= _draw_class_node($class);
        $output .= "node_" . $class->class->id . " -- node_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	184	282	
==>rgs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	184	282	
==>rgs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	184	282	
==>rgs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	297	409	
==>_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	788	900	
==>_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	297	409	
==>_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	788	900	
==>_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2391	2497	
==>$self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, subst <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2642	2748	
==>$self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, subst <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15544	15647	
==>my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19021	19124	
==>my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17298	17409	
==>) foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17298	17409	
==>) foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17298	17409	
==>) foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3712	3814	
==>=> sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')->FETCH('&st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1351	1464	
==>xt' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1351	1464	
==>xt' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1351	1464	
==>xt' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy p <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4420	4534	
==>000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ ' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9427	9541	
==>atch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Ex <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10233	10347	
==>atch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Ex <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11148	11262	
==>atch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1897	2009	
==>State") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1897	2009	
==>State") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1897	2009	
==>State") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29322	29421	
==>ame type. If
it is called I<after> $obj has been added to the tree, $obj will be
removed from the tr <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8500	8667	
==>sult12;
            return;
        }
        # 5
        $A.property_value($P) = $V;
    } else { # 7
        $A.property_value($P) = $V;
    }
    # 8
    my sub not_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9919	10006	
==>unter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9919	10006	
==>unter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9919	10006	
==>unter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4152	4303	
==>implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4152	4303	
==>implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	747	852	
==>say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	747	852	
==>say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30124	30214	
==>onality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34676	34766	
==>onality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33849	33939	
==>onality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7204	7318	
==>or error(Params::Check->last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13013	13125	
==>ue::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13013	13125	
==>ue::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13013	13125	
==>ue::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16949	17091	
==>ts, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17228	17370	
==>ts, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1840	1956	
==>,  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1840	1956	
==>,  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capit <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6768	6897	
==>$_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6768	6897	
==>$_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20550	20646	
==>ers. After all the compilers have finished, the digest lines will
be expanded again.

Every bit o <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20550	20646	
==>ers. After all the compilers have finished, the digest lines will
be expanded again.

Every bit o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17942	18081	
==>t",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16980	17119	
==>t",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17942	18081	
==>t",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16980	17119	
==>t",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16426	16532	
==>confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16426	16532	
==>confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16426	16532	
==>confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	772	866	
==>mpile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_nam <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1373	1479	
==>args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15965	16066	
==>$xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15965	16066	
==>$xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15965	16066	
==>$xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2523	2621	
==>ng a command.

Returns the perl version on success and false on failure.

=cut

sub _perl_version { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2272	2380	
==>ace
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2272	2380	
==>ace
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2272	2380	
==>ace
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5160	5265	
==>ision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2183	2298	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2578	2693	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2241	2356	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2636	2751	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        T <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23769	23891	
==>ne REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	19	129	
==>ple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	19	129	
==>ple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $c <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28970	29068	
==>ne REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11805	11962	
==>ass}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11805	11962	
==>ass}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11805	11962	
==>ass}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1229	1384	
==>EXISTS },
        meta            => { allow => ISA_JIB_META },
        config          => { allow => ISA_JIB_CONFIG },
        package         => { allow = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24350	24523	
==>) { &Rf &= ~$v }  # turn the flag off
      else { ... }            # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

You'll pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6452	6589	
==>:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6452	6589	
==>:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $ma <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1246	1344	
==>rion @by ; *@values) returns List
 multi sub sort(Criterion $by ; *@values) returns List
 &sort<> : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1691	1795	
==>put         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $ter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1691	1795	
==>put         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $ter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1691	1795	
==>put         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2633	2731	
==>rn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2633	2731	
==>rn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2633	2731	
==>rn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8234	8328	
==>pe::operator::nullary', 'type::operator::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$x <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1338	1530	
==>e $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$Control -C $meta_dir -xz] )
                                                            and die $? <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29372	29487	
==>s readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MY <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29372	29487	
==>s readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MY <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	200	303	
==>s readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MY <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5554	5726	
==>ring;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5554	5726	
==>ring;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3707	3807	
==>by)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3707	3807	
==>by)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	52	171	
==>has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	52	171	
==>has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1026	1124	
==>hering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1026	1124	
==>hering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just th <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23556	23658	
==>SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElements> <SourceElement>
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3854	3947	
==>1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junctio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3854	3947	
==>1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junctio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3854	3947	
==>1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junctio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7209	7306	
==>ommunication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop op <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6964	7058	
==>ommunication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop op <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10418	10506	
==>' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\" <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11153	11241	
==>' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7487	7623	
==>flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4206	4326	
==>]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4206	4326	
==>]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4206	4326	
==>]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1236	1333	
==>ixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1236	1333	
==>ixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1236	1333	
==>ixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19724	19816	
==>ub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN modules whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	525	628	
==>ods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	525	628	
==>ods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	525	628	
==>ods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23434	23531	
==>u do any flag-parsing,
if you're adding a handle that might parse flags, because you do not
want t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6359	6463	
==>reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6359	6463	
==>reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6359	6463	
==>reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Nu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	151	243	
==>nt PGE_OPTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLO <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2282	2426	
==>) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2282	2426	
==>) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8110	8236	
==>ess $delete_ok;
    }
=cut
    
    ### uninstall the files
    ### XXX check dependencies
    {   open my $fh, $self->files_li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4351	4462	
==>n;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4351	4462	
==>n;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4351	4462	
==>n;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_f <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1252	1357	
==>n though it will
# likely lack R:P's nice error messages.


# Test suite:
#  re_tests - tests from p5 HEAD <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3109	3230	
==>my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    rule $equal { " . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4746	4850	
==>ify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4746	4850	
==>ify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4746	4850	
==>ify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3450	3557	
==>Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3450	3557	
==>Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $se <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1418	1520	
==>nt returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1418	1520	
==>nt returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $! <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	371	489	
==>0;
BEGIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s/\W//g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10578	10721	
==>op::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10857	11000	
==>op::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8507	8632	
==>ext->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8507	8632	
==>ext->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	648	752	
==>} else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	648	752	
==>} else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	648	752	
==>} else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arra <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	892	994	
==>n{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = reverse @c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	663	779	
==>, value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	663	779	
==>, value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	663	779	
==>, value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3075	3169	
==>der->FETCH('::Test')->STORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::O <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15765	15883	
==>lers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	412	509	
==>ue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	412	509	
==>ue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	412	509	
==>ue}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4999	5127	
==>f user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4999	5127	
==>f user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4999	5127	
==>f user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  a <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	404	529	
==>lon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export {
    my Num $gues <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6344	6441	
==>.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5474	5571	
==>.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6344	6441	
==>.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5474	5571	
==>.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset($t <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8105	8245	
==>734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8105	8245	
==>734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => c <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1652	1771	
==>c";
my $terminfo     = "/etc/terminfo/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8957	9147	
==>_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mult <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5317	5507	
==>_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mult <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6166	6356	
==>_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mult <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1852	1991	
==>ethod append_value ( $arg ) {
            $.string = $arg.value;
            push @.strings, $arg.value;
        }
    }


    role Getopt:: <==
4	/Users/nnunley/pugs/util/package-osx.pl	10470	10606	
==>y @header = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	657	778	
==>s;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no str <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	326	421	
==>$worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootd <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	326	421	
==>$worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5705	5954	
==>sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5705	5954	
==>sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5705	5954	
==>sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5605	5740	
==>:name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13303	13524	
==>[ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13303	13524	
==>[ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13303	13524	
==>[ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	773	925	
==>bsume( $_ ) } }, @args );
        }
        
        method create_arguments ( @strings )  {
            $.argument_class.string_to_arguments( @strings ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2124	2281	
==>" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2124	2281	
==>" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2124	2281	
==>" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11678	11808	
==>ie "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11678	11808	
==>ie "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11678	11808	
==>ie "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	191	288	
==>use Log::Message::Simple        qw[:STD];
use Module::Load::Conditional   qw[can_load];
use File:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1062	1155	
==>ce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1062	1155	
==>ce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1062	1155	
==>ce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4439	4579	
==>her || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4439	4579	
==>her || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4439	4579	
==>her || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curre <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	565	661	
==>$digest);
    ($prim && $prim->can("name") && exists $masked_ops{$prim->name}) ? undef : $prim;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4327	4447	
==>me =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4327	4447	
==>me =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9667	9769	
==>nt;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9667	9769	
==>nt;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5734	5842	
==>y $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $do <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5734	5842	
==>y $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $do <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1948	2040	
==>IG{'num_width'} == 64, 'subset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5621	5756	
==>methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11944	12049	
==>oles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11944	12049	
==>oles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11944	12049	
==>oles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2355	2475	
==>> 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2355	2475	
==>> 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	462	566	
==>.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	462	566	
==>.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	265	371	
==>and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->lo <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13832	13929	
==>ring;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $stri <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13832	13929	
==>ring;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $stri <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	216	313	
==>and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->lo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15441	15541	
==>an is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15441	15541	
==>an is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24561	24652	
==>nse (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either vers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24561	24652	
==>nse (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either vers <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	684	806	
==>= Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # tru <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3755	3877	
==>= Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # tru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	684	806	
==>= Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # tru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3755	3877	
==>= Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # tru <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3824	4003	
==>name(     $path );
                    my $version = package_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq p <==
4	/Users/nnunley/pugs/util/func_refact.pl	1587	1721	
==>>{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1521	1625	
==>}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1521	1625	
==>}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9293	9395	
==>-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style mess <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9293	9395	
==>-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style mess <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39901	39993	
==>oundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39901	39993	
==>oundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) an <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8251	8363	
==>marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8251	8363	
==>marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35824	35918	
==>o defined as the implicit handler when
coercing this object to a string.

=item C<get_set_membe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35824	35918	
==>o defined as the implicit handler when
coercing this object to a string.

=item C<get_set_membe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4001	4175	
==>ss $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4001	4175	
==>ss $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11799	11918	
==>r digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.* <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11799	11918	
==>r digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	990	1093	
==>lon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	990	1093	
==>lon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4486	4583	
==>hod.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4736	4833	
==>hod.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8073	8168	
==>roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24360	24501	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25623	25764	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24639	24780	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25902	26043	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6155	6265	
==>:ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6155	6265	
==>:ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6155	6265	
==>:ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1078	1175	
==>ethod export_attr_names of List of Relation::AttrName () {
    return %!attrs.keys;
}

method expo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2644	2757	
==>my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    wh <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15358	15471	
==>y $self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub redu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2644	2757	
==>my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    wh <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2644	2757	
==>my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    wh <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1260	1427	
==>node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scalar>).add_children(
                        Tree.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	555	664	
==>age PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	555	664	
==>age PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	555	664	
==>age PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	114	221	
==>ings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equal_to     { con <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2143	2247	
==>embers)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2143	2247	
==>embers)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equa <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1339	1430	
==>rt<> := &sort<Criterion>.assuming(by => &infix:<cmp>);

 type KeyExtractor ::= Code(Any) ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	712	1125	
==>tor object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	712	1125	
==>tor object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	506	658	
==>ETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	506	658	
==>ETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	114	223	
==>b debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10514	10602	
==>ush @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10514	10602	
==>ush @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10514	10602	
==>ush @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1593	1703	
==>->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1593	1703	
==>->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1593	1703	
==>->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  } <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20730	20838	
==>wstatus;
    print "\t\t(VMS status is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13056	13158	
==>-- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13056	13158	
==>-- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13056	13158	
==>-- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $obj <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23798	23897	
==>plus_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new(
		type::v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14730	14835	
==>umeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14730	14835	
==>umeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14730	14835	
==>umeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::N <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	95	192	
==>sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

# Pugs note: change "die" to <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	92	194	
==>.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	182	281	
==>, values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	182	281	
==>, values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	182	281	
==>, values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3157	3266	
==>.
        # Note that it is valid for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18283	18383	
==>guring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I h <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	271	371	
==>5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfachen Methode
$we <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18283	18383	
==>guring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I h <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16510	16637	
==>)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4269	4392	
==>l6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4269	4392	
==>l6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4269	4392	
==>l6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	781	881	
==>port { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
su <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	781	881	
==>port { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9333	9424	
==>b_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3158	3249	
==>b_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2810	2944	
==>dd_rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	154	252	
==>GE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take stor <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	154	252	
==>GE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take stor <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	154	252	
==>GE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take stor <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	508	631	
==>o
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also hold <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	508	631	
==>o
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also hold <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2863	2973	
==>d, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2863	2973	
==>d, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!ni <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5839	5991	
==>al:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    litstart = pos
    litlen = 0
  ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9971	10112	
==>shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9971	10112	
==>shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9971	10112	
==>shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13286	13385	
==>s = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13286	13385	
==>s = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13286	13385	
==>s = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10849	11018	
==>( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsaf <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10849	11018	
==>( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsaf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6853	6977	
==>er;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6853	6977	
==>er;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	382	486	
==>ort of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	386	490	
==>ort of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	382	486	
==>ort of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	386	490	
==>ort of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	290	392	
==>];

use base 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2660	2761	
==>sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2660	2761	
==>sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2660	2761	
==>sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1142	1248	
==>map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1142	1248	
==>map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1142	1248	
==>map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self-> <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3973	4077	
==>bject;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName ($O <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2288	2416	
==>y %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.val <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2288	2416	
==>y %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.val <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2653	2755	
==>= $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2653	2755	
==>= $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $sp <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4418	4589	
==>pe!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4418	4589	
==>pe!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7054	7150	
==>xport the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7054	7150	
==>xport the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4707	4830	
==>imes"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4707	4830	
==>imes"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9076	9175	
==>eight 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9076	9175	
==>eight 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2101	2201	
==>r $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2101	2201	
==>r $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1119	1212	
==>) . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Variable <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1119	1212	
==>) . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Variable <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5149	5246	
==>ing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() fun <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5149	5246	
==>ing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() fun <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1040	1131	
==>e Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2895	2986	
==>e Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22462	22576	
==>}    

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11489	11599	
==>}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11489	11599	
==>}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11489	11599	
==>}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	26	145	
==>lan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	26	145	
==>lan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18832	18934	
==>one like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18832	18934	
==>one like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	825	924	
==>(Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::Inf <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	825	924	
==>(Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::Inf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13130	13223	
==>tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prep <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13130	13223	
==>tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prep <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3932	4052	
==>';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3932	4052	
==>';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	782	902	
==>';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1528	1620	
==>nfig => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15171	15265	
==>In scalar and array contexts, the encoded or
decoded string is returned (without changing the i <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15171	15265	
==>In scalar and array contexts, the encoded or
decoded string is returned (without changing the i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9052	9243	
==>" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9887	10078	
==>" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1296	1402	
==>->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    retu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1296	1402	
==>->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1533	1649	
==>$msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1533	1649	
==>$msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1533	1649	
==>$msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6614	6726	
==>ate the case-preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath e <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2134	2243	
==>ethod vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2134	2243	
==>ethod vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19443	19542	
==>ged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19443	19542	
==>ged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of c <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8995	9155	
==>rbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1714	1811	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1714	1811	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1714	1811	
==>$version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retu <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12490	12634	
==>her {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3723	3861	
==>her {
     while $shortest ?? all (@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3041	3159	
==>her {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		take shift @list;
	    }
	}
    }
} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2289	2415	
==>rim->new(
					arity => 3,
					name => '&cast',
					body => \&do_cast,
					type => [ "Type" => "Type" => $to ],
				),
			), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2779	2899	
==>a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2779	2899	
==>a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2779	2899	
==>a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %p <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2560	2691	
==>hod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2560	2691	
==>hod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1993	2108	
==>)
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1675	1786	
==>)
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6457	6590	
==>@packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELI <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6457	6590	
==>@packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELI <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11903	12008	
==>my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4538	4680	
==>1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4538	4680	
==>1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4538	4680	
==>1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4296	4434	
==>a] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20198	20297	
==>tionally in a simple fashion so that it is easy to maintain and
and easy for developers to study.  A <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20198	20297	
==>tionally in a simple fashion so that it is easy to maintain and
and easy for developers to study.  A <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24620	24713	
==>(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25592	25685	
==>(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	555	668	
==>PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	555	668	
==>PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	555	668	
==>PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25834	25931	
==>os()>.  This method, where it returns a
I<reference> to a scalar, makes it work (!).

B<These func <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	229	335	
==>eline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$sel <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	229	335	
==>eline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12431	12526	
==>fined).  The new Document object's All Nodes
attribute starts out empty, but gains one element f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12431	12526	
==>fined).  The new Document object's All Nodes
attribute starts out empty, but gains one element f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3460	3638	
==>"Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3460	3638	
==>"Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3460	3638	
==>"Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9628	9764	
==>bel
        symbol->new('remove_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4669	4802	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4669	4802	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4669	4802	
==>nce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13120	13262	
==>ass} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next MET <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13120	13262	
==>ass} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next MET <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13120	13262	
==>ass} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next MET <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8396	8533	
==>eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13907	14044	
==>eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8396	8533	
==>eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13901	14038	
==>eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	60	157	
==>se qw(Pugs::Grammar::BaseCategory);

# XXX - this module is currently unused
# XXX - see Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25227	25319	
==>ting whether the immutable identity of the
argument C<$other> equals the immutable identity o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29779	29871	
==>ting whether the immutable identity of the
argument C<$other> equals the immutable identity o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28709	28801	
==>ting whether the immutable identity of the
argument C<$other> equals the immutable identity o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	381	495	
==>t },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $obj = $class->S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7194	7307	
==>x; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7194	7307	
==>x; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7194	7307	
==>x; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2327	2452	
==>> $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2327	2452	
==>> $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5149	5265	
==>_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5149	5265	
==>_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4988	5092	
==>(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
} <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4988	5092	
==>(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34198	34289	
==>he main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34198	34289	
==>he main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	169	329	
==>),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	169	329	
==>),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7371	7470	
==>LF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7371	7470	
==>LF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1181	1278	
==>and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1181	1278	
==>and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1181	1278	
==>and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11188	11323	
==>se {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11188	11323	
==>se {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11188	11323	
==>se {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1393	1520	
==>local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->hexdigest;
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2633	2836	
==>ld = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $de <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2633	2836	
==>ld = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $de <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6694	6823	
==>it value
    wstat       Script's wait status
    max         Number of individual tests
    failed      Number which failed
    p <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9434	9531	
==>> "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_img | gre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	829	927	
==>- set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	840	938	
==>- set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	622	714	
==>erl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	622	714	
==>erl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1785	1888	
==>rl5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36531	36627	
==>ential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41080	41176	
==>ential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40694	40790	
==>ential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1125	1231	
==>s},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1125	1231	
==>s},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1125	1231	
==>s},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelud <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11926	12023	
==>tinue working.

  Upon exec, the subref should return match information.  Match
  information gets <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13360	13470	
==>rce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16837	16947	
==>rce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16199	16309	
==>rce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!headi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16546	16645	
==>t('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5966	6057	
==>e_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
nod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5966	6057	
==>e_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
nod <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2865	2956	
==>e_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	775	885	
==>king.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1146	1250	
==>king.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	745	849	
==>king.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1146	1250	
==>king.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2772	2895	
==>::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2772	2895	
==>::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	659	758	
==>lly not needed,
# once macro rxmodinternal:<x> etc works.

#rule name { <?Perl6.name> }
#rule code { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27863	27951	
==>int))", ":t (length_and_first ['foo'], length_and_first [1])");
is(t($map), "∀α. ∀β <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10280	10403	
==>annels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10280	10403	
==>annels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	710	797	
==>-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	710	797	
==>-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8710	8861	
==>",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12616	12761	
==>",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12616	12761	
==>",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1781	1891	
==>::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1921	2031	
==>::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8878	8975	
==>nf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are ava <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8878	8975	
==>nf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are ava <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2074	2214	
==>|| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primiti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2074	2214	
==>|| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primiti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2074	2214	
==>|| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1015	1129	
==>e => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1015	1129	
==>e => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1015	1129	
==>e => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dum <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1578	1684	
==>istics
#  of particular regex engines.  Its structure follows the spec.  If for
#  instance, your engine ca <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	972	1100	
==>es) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36928	37021	
==>uation where a pair
of source relations have identical headings, for these their joining
degen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41477	41570	
==>uation where a pair
of source relations have identical headings, for these their joining
degen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41100	41193	
==>uation where a pair
of source relations have identical headings, for these their joining
degen <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1259	1606	
==>l "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1259	1606	
==>l "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3327	3495	
==>ined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3467	3635	
==>ined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1292	1386	
==>ch installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1292	1386	
==>ch installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1306	1412	
==>ethod union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1306	1412	
==>ethod union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.en <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33687	33784	
==>late module Member Name and usually corresponds to a
language like English or French.  The order o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33687	33784	
==>late module Member Name and usually corresponds to a
language like English or French.  The order o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5367	5488	
==>code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6635	6756	
==>code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5367	5488	
==>code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6623	6744	
==>code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3907	4004	
==>nd setting the passed parameter to a true value. 

If this parameter is false, the factory returns <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3907	4004	
==>nd setting the passed parameter to a true value. 

If this parameter is false, the factory returns <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6104	6201	
==>nd setting the passed parameter to a true value. 

If this parameter is false, the factory returns <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	35	132	
==>ict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# XXX - this module is currently unu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8642	8739	
==>'t matchfail still be returning something?

maybe just overload bool to false ;)

(I mean, serious <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8354	8449	
==>'t matchfail still be returning something?
maybe just overload bool to false ;)
(I mean, serious <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3983	4087	
==>open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\texttt
#{$file
#}
#\\end{b <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	912	1026	
==>\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'npr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1093	1207	
==>\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'npr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1272	1386	
==>\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'npr <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4395	4502	
==>x

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4395	4502	
==>x

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1890	1993	
==>ason, directly returning this expression does not
    # yield the correct return value.

    say "Compar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1890	1993	
==>ason, directly returning this expression does not
    # yield the correct return value.

    say "Compar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5818	5967	
==>_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5818	5967	
==>_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5818	5967	
==>_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11104	11225	
==>if ( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7033	7167	
==>h->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7033	7167	
==>h->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1039	1144	
==>del::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1039	1144	
==>del::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	497	607	
==>hod start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	497	607	
==>hod start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6093	6193	
==>Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6093	6193	
==>Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3808	3931	
==>elf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3638	3761	
==>ub _analyze_line {
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3808	3931	
==>elf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3808	3931	
==>elf = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5053	5157	
==>(), $name, @mess);
}

# Check that $got is within $range of $expected
# if $range is 0, then check it's e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2101	2219	
==>e_BADESC, "A", " in character class") if $cc;
    return $S->force_object(anyof_char => 'A') if $cc;
    return $S->obj <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6821	6922	
==>sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6821	6922	
==>sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9018	9119	
==>sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22557	22758	
==>,
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4476	4572	
==>d returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4476	4572	
==>d returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6000	6096	
==>d returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

= <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	827	1017	
==>S      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	827	1017	
==>S      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21983	22077	
==>n supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21983	22077	
==>n supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(c <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	160	262	
==>ys
Perl 5: my @array = (1,2,3); print "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2917	3018	
==>" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2917	3018	
==>" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2917	3018	
==>" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	784	891	
==>PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	784	891	
==>PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2685	2784	
==>superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2685	2784	
==>superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5129	5258	
==>>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5129	5258	
==>>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5129	5258	
==>>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35960	36057	
==>f 1 means it's a look-ahead.  We send the unrolled contents of the
array reference as the contents <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	347	445	
==>") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	347	445	
==>") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wor <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	347	445	
==>") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wor <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1406	1503	
==>me.
#  re_tests_parrot.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3795	3932	
==>$path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3795	3932	
==>$path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	151	260	
==>ar;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# TODO - implement the "magic hash" dispatcher
# TODO - t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4280	4383	
==>tall_pragma_value($?CLASS, 1);
    }

    sub unimport {
        Pugs::Internals::install_pragma_value($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	348	462	
==>y($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	348	462	
==>y($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	348	462	
==>y($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        valu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5500	5611	
==>efined $range) {
        # This is a fail, but doesn't need extra diagnostics
    } elsif ($got !~ tr/0-9// or $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6321	6438	
==>me   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6321	6438	
==>me   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6321	6438	
==>me   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	524	616	
==>PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	524	616	
==>PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	524	616	
==>PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	14	105	
==>e Module::Install::Makefile;

use strict 'vars';
use Module::Install::Base;
use ExtUtils::Ma <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1441	1551	
==>c
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tests first.  Collect l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4159	4260	
==>ion outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4159	4260	
==>ion outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4159	4260	
==>ion outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1371	1472	
==>ference between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1371	1472	
==>ference between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19590	19688	
==>atement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19590	19688	
==>atement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2199	2316	
==>ng $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2199	2316	
==>ng $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2199	2316	
==>ng $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo, <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3447	3538	
==>::duration ::= &Duration::Gregorian::duration;
#}

# operations with Duration::Gregorian con <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4589	4693	
==>PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is wor <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4589	4693	
==>PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is wor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21244	21337	
==>sing the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit(" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21244	21337	
==>sing the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit(" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10347	10482	
==>e'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10341	10476	
==>e'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16792	16892	
==>)` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it con <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16792	16892	
==>)` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it con <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21428	21532	
==>>

Adds a callback to be executed when the bot receives a corresponding message.
Event names which are al <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20309	20413	
==>>

Adds a callback to be executed when the bot receives a corresponding message.
Event names which are al <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21428	21532	
==>>

Adds a callback to be executed when the bot receives a corresponding message.
Event names which are al <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20309	20413	
==>>

Adds a callback to be executed when the bot receives a corresponding message.
Event names which are al <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4254	4354	
==>*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r->subbeg);*/ /* fails spli <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7290	7379	
==>.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7290	7379	
==>.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7290	7379	
==>.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2409	2509	
==>o Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2409	2509	
==>o Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1630	1724	
==>o Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3491	3585	
==>o Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26703	26826	
==>gesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <Clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11297	11391	
==>ole BUILD submethods. It is important that submethods are used
because they will not get inheri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11297	11391	
==>ole BUILD submethods. It is important that submethods are used
because they will not get inheri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11297	11391	
==>ole BUILD submethods. It is important that submethods are used
because they will not get inheri <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8733	8876	
==>5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(u <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8733	8876	
==>5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(u <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	769	865	
==>l :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtyp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	769	865	
==>l :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtyp <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1328	1440	
==>values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	348	460	
==>values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str> <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8804	8916	
==>values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10178	10272	
==>,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit)) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22133	22227	
==>tem C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21014	21108	
==>tem C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22133	22227	
==>tem C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21014	21108	
==>tem C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7888	8008	
==>ping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7888	8008	
==>ping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7888	8008	
==>ping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1131	1236	
==>ything but throwaway code.
# However, the perl5 core team expressed some interest in perhaps
# maintaining <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3980	4080	
==>how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{ho <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12832	12939	
==>>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rule Obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18131	18223	
==>I SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18131	18223	
==>I SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18131	18223	
==>I SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7776	7944	
==>start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7776	7944	
==>start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7776	7944	
==>start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10511	10646	
==>Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.results, $test;
      $.output.write( $test.repor <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6887	7026	
==>age => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \% <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11442	11581	
==>age => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \% <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12240	12379	
==>age => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \% <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12967	13106	
==>age => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \% <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8710	8829	
==>>{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require_ok ($) {
    my ($require) = @_;
    eval <<REQUI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3994	4099	
==>extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3994	4099	
==>extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4584	4689	
==>extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	546	655	
==>ub values {
		my $self = shift;
		croak "annotations are not eatable, flatten first";
	}

	sub type {
		my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21408	21501	
==>isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21408	21501	
==>isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21408	21501	
==>isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15965	16114	
==>th label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15965	16114	
==>th label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15965	16114	
==>th label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	798	904	
==>mplify arg list - the functions currently take 8 arguments.

=cut

use strict;
use warnings;
#use Sma <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2400	2494	
==>des($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2400	2494	
==>des($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.sub <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12706	12798	
==>t1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12706	12798	
==>t1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1173	1271	
==>s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1173	1271	
==>s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1173	1271	
==>s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4411	4526	
==>Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4411	4526	
==>Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5283	5396	
==>Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5283	5396	
==>Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6177	6306	
==>ult = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6177	6306	
==>ult = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6177	6306	
==>ult = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'P <==
4	/Users/nnunley/pugs/util/version_h.pl	371	469	
==>e can't use SVN keyword expansion (like $Rev$), because
# that is only updated when the file in whi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32510	32604	
==>lass

While a Translator object stores some attributes for configuration, its
main purpose is t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40688	40782	
==>ls.

While it is by no means required, the copyright holders of
Locale::KeyedText would appreci <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32510	32604	
==>lass

While a Translator object stores some attributes for configuration, its
main purpose is t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40688	40782	
==>ls.

While it is by no means required, the copyright holders of
Locale::KeyedText would appreci <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2207	2337	
==>f 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do ho <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2207	2337	
==>f 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do ho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1562	1675	
==>" }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21409	21496	
==>sh @Regexp::Parser::suspend::ISA, __PACKAGE__;
  push @Regexp::Parser::ifthen::ISA, __PA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12528	12641	
==>mand} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12528	12641	
==>mand} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my me <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2679	2790	
==>dex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2679	2790	
==>dex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5653	5770	
==>" . $node->struct_equiv . " whose type is " . $self->display_type($de_facto_type) . " with " . $self->display_type($ex <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1178	1312	
==>D () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method co <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1178	1312	
==>D () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	223	356	
==>&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	223	356	
==>&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1579	1688	
==>', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1579	1688	
==>', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13040	13169	
==>mented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", Dumper( $n );
    
    if ( $n->{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	628	732	
==>irs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	628	732	
==>irs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is e <==
4	/Users/nnunley/pugs/util/package-osx.pl	5747	5844	
==>rl6::Overview::Control.3pm
        /usr/local/man/man3/Perl6::Overview::Data.3
        /usr/local/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4404	4515	
==>/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6569	6662	
==>d results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6569	6662	
==>d results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6569	6662	
==>d results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12200	12316	
==>href};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12200	12316	
==>href};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12200	12316	
==>href};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::id <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6792	6877	
==>isa("Blondie::TypeSafe::Type::Placeholder");
			if (!$x->isa("Blondie::TypeSafe::Type: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21540	21638	
==>case are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20421	20519	
==>case are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21540	21638	
==>case are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20421	20519	
==>case are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$event> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	449	547	
==>a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $l <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	449	547	
==>a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25255	25346	
==>g/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25255	25346	
==>g/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.d <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	999	1245	
==>)? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $36
                                 $iso8601_re ) ) )
        )/;      #/x?# yay, cperl- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11775	11994	
==>urn (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11775	11994	
==>urn (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11775	11994	
==>urn (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3555	3656	
==>f = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type($node);
	
	$self->add_de <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14869	14966	
==>r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18346	18443	
==>r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17762	17859	
==>r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18789	18912	
==>:AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18789	18912	
==>:AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18789	18912	
==>:AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2198	2320	
==>x_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	491	598	
==>ONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	549	656	
==>ONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11181	11286	
==>_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11181	11286	
==>_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	351	478	
==>adFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $struct->{pack <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6415	6521	
==>elf.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outsid <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6415	6521	
==>elf.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outsid <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6008	6113	
==>print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection o <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6008	6113	
==>print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9852	9945	
==>validation is performed over 2 main phases, which
are referred to as "immediate" and "deferred <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9852	9945	
==>validation is performed over 2 main phases, which
are referred to as "immediate" and "deferred <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3897	4000	
==>ix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3897	4000	
==>ix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3897	4000	
==>ix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8506	8616	
==>orrectly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8506	8616	
==>orrectly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4418	4510	
==>t (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4668	4760	
==>t (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10876	11067	
==>red > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10876	11067	
==>red > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10876	11067	
==>red > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25998	26092	
==>ren't being renamed.  This method
supports renaming attributes to each others' names.

=item C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30550	30644	
==>ren't being renamed.  This method
supports renaming attributes to each others' names.

=item C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29525	29619	
==>ren't being renamed.  This method
supports renaming attributes to each others' names.

=item C< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	296	385	
==>::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1936	2050	
==>ig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1936	2050	
==>ig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv- <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	69	173	
==>he original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @p <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	69	173	
==>he original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5516	5624	
==>new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5516	5624	
==>new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5516	5624	
==>new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3549	3676	
==>- bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3689	3816	
==>- bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3282	3377	
==>:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $on <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3282	3377	
==>:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30586	30734	
==>$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30586	30734	
==>$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30586	30734	
==>$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20553	20674	
==>ure"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 = exists self["cname"]
    if $I0 goto setsubpats
    $I0 = pad["s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10151	10276	
==>port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10151	10276	
==>port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected+ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18477	18576	
==>p
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18477	18576	
==>p
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6404	6560	
==>ms', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6404	6560	
==>ms', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6404	6560	
==>ms', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21710	21803	
==>p::Parser> class,
which installs all the handlers for standard Perl 5 regexes.  This
documenta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8029	8142	
==>tion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11506	11619	
==>tion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16528	16653	
==>ltin = $self->reduce($builtin);
        }
        $val->set($builtin);
    }

    return $val;
}

sub reduce_val {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	499	592	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	499	592	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	499	592	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12317	12423	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6884	6990	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12317	12423	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6884	6990	
==>d;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13202	13362	
==>([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13202	13362	
==>([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12298	12448	
==>([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12298	12448	
==>([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2625	2764	
==>qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1292	1431	
==>qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2709	2818	
==>anonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitd <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2709	2818	
==>anonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitd <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	980	1105	
==>'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precond <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	980	1105	
==>'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precond <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7672	7777	
==>set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7672	7777	
==>set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9338	9436	
==>ss->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9338	9436	
==>ss->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	418	514	
==>act values from all letters), and an 
unnamed similar cipher where all bytes are changed, not jus <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	418	514	
==>act values from all letters), and an 
unnamed similar cipher where all bytes are changed, not jus <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5126	5243	
==>= @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16162	16279	
==>= @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17650	17767	
==>= @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22333	22450	
==>= @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6313	6431	
==>- $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (withi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2021	2122	
==>S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2021	2122	
==>S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2021	2122	
==>S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19300	19432	
==>ethod label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39752	39884	
==>ethod label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9386	9494	
==>urusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9386	9494	
==>urusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2984	3084	
==>e parameter stack.

Inherits List.

=item Sym

Resolves a symbol into a value. Could be a global or a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	98	196	
==>s {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	98	196	
==>s {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname}, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	98	196	
==>s {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname}, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3035	3169	
==>ure( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3046	3180	
==>ure( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3113	3211	
==>et on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3113	3211	
==>et on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	427	565	
==>7 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Fou <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	427	565	
==>7 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Fou <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10465	10594	
==>e
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_c <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	792	903	
==>is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internals::exec($prog, Bool::Fal <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5623	5734	
==>' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(T <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5623	5734	
==>' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(T <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2520	2631	
==>' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(T <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5451	5560	
==>}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2820	2915	
==><$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2820	2915	
==><$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request UR <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10915	11004	
==>ersion, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10915	11004	
==>ersion, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7120	7240	
==>er must be a toplevel element of
        # the meta file
        push @index_files, file($path.'.index');
        push @i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15151	15249	
==>h will overwrite the current line (by use of
\r and such).  C<$ml> may be empty if Test::Harness do <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15142	15245	
==>}
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15142	15245	
==>}
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10418	10544	
==>'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10412	10538	
==>'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2779	2904	
==>tart if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2779	2904	
==>tart if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28188	28290	
==>unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28467	28569	
==>unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4107	4218	
==>5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3963	4071	
==>5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      l <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2030	2123	
==>Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< pref <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2030	2123	
==>Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< pref <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4500	4609	
==>span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @inte <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4500	4609	
==>span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @inte <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2241	2337	
==>t "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing message <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2241	2337	
==>t "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing message <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	88	213	
==>'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	88	213	
==>'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	88	213	
==>'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	360	452	
==>e base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token->compile(q(
  \= <'cut'> \N* [\n| <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2441	2581	
==>sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2441	2581	
==>sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5336	5448	
==>n $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $sel <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5336	5448	
==>n $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $sel <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1697	1796	
==>t returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

meth <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1697	1796	
==>t returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

meth <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27500	27597	
==>ttributes, and
the values provide values applied to each tuple.  The new Relation has all
of the t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32052	32149	
==>ttributes, and
the values provide values applied to each tuple.  The new Relation has all
of the t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2446	2545	
==>'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2446	2545	
==>'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2446	2545	
==>'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and creat <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18425	18518	
==>mentation, we
reverse engineering perl source.

We basically use the perl regcompp and regexec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	701	826	
==>redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	701	826	
==>redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	701	826	
==>redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	138	252	
==>%relative_precedences = (
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] ] );
    }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	745	873	
==>\$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	745	873	
==>\$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	745	873	
==>\$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	223	344	
==>' is one of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left   'in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7228	7336	
==>0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7228	7336	
==>0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7228	7336	
==>0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxt <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3481	3586	
==>ig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
trig_func 'atan';
tri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1692	1832	
==>tate ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $stat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2021	2158	
==>tate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1634	1771	
==>tate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2021	2158	
==>tate ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $stat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4363	4509	
==>dir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installatio <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3007	3104	
==>s are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3007	3104	
==>s are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6225	6338	
==>match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6237	6350	
==>match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } va <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17894	17992	
==>S object at a time, and they are
essentially all isolated from each other, even if more than one us <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17894	17992	
==>S object at a time, and they are
essentially all isolated from each other, even if more than one us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10935	11063	
==>_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10935	11063	
==>_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10935	11063	
==>_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.a <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	228	333	
==>t;
use File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_;
    my ($prompt, $abstra <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6244	6374	
==>eys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	511	619	
==>le).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	511	619	
==>le).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	511	619	
==>le).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pS <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3478	3643	
==>_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notify (String $name, *@ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3023	3142	
==>my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3023	3142	
==>my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3023	3142	
==>my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	603	717	
==>tch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6121	6235	
==>tch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	603	717	
==>tch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6133	6247	
==>tch = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1168	1285	
==>osure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <vari <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1168	1285	
==>osure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <vari <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11451	11542	
==>on") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accep <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11451	11542	
==>on") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accep <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2898	3136	
==>ment>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($lin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3152	3390	
==>ment>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($lin <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2898	3136	
==>ment>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($lin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3152	3390	
==>ment>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2701	2804	
==>(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2701	2804	
==>(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2701	2804	
==>(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, - <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9456	9557	
==>Use of Rul awaits working infix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9003	9135	
==>ot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $e <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	737	869	
==>ot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9003	9135	
==>ot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9003	9135	
==>ot/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	479	615	
==>her types in the same level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1517	1630	
==>,
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1517	1630	
==>,
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1517	1630	
==>,
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10618	10781	
==>rams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10618	10781	
==>rams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10618	10781	
==>rams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2055	2211	
==>$postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17914	18071	
==>k)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16952	17109	
==>k)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17914	18071	
==>k)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16952	17109	
==>k)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120, <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4766	4886	
==>ailed: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2998	3112	
==>se = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1), <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2998	3112	
==>se = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1), <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2998	3112	
==>se = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13913	14063	
==>lf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13913	14063	
==>lf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13913	14063	
==>lf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            retu <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1179	1273	
==>petition> | <alias> | <simple_term> }

rule repetition  { <simple_term> <quantifier> }
rule qua <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13478	13575	
==>st which must be
made to pass before this test can pass (or before an implementation
could be star <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13536	13633	
==>st which must be
made to pass before this test can pass (or before an implementation
could be star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13464	13558	
==>item $h.header_field_names

Returns the list of distinct names for the fields present in the
he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13464	13558	
==>item $h.header_field_names

Returns the list of distinct names for the fields present in the
he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1667	1857	
==>k, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1667	1857	
==>k, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1667	1857	
==>k, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6982	7084	
==>ject(anyof_char => "\0", "\\x[0]") if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3458	3564	
==>eady used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3458	3564	
==>eady used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17000	17097	
==>ify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans nume <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17000	17097	
==>ify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans nume <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4947	5056	
==>Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4947	5056	
==>Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5409	5514	
==>Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5409	5514	
==>Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2905	3012	
==>circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $synca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2348	2453	
==>ned $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2348	2453	
==>ned $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2348	2453	
==>ned $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4957	5074	
==>ml|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4957	5074	
==>ml|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4957	5074	
==>ml|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("h <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22437	22537	
==>data
which Perl_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offse <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2487	2607	
==>/add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2487	2607	
==>/add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $even <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8799	8908	
==>NDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0);
    }
    fprintf(stderr,"h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	134	234	
==>ode later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	134	234	
==>ode later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	134	234	
==>ode later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12837	12927	
==>'<tmpl_var name=id>')" id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a sty <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11254	11367	
==>gths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3436	3567	
==>tok);
        return &$step;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $debug <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	359	466	
==>Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	359	466	
==>Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9885	9980	
==>on test utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9943	10038	
==>on test utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7675	7814	
==>ngle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7675	7814	
==>ngle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7675	7814	
==>ngle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_-> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38291	38384	
==>ample>

This method is a generic relational operator that returns the complement of
C<semijoin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1119	1232	
==>)
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1119	1232	
==>)
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1119	1232	
==>)
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2957	3055	
==>\&Point, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3352	3463	
==>[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3352	3463	
==>[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3352	3463	
==>[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.i <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	783	885	
==>sub(Siglet) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($w <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4061	4166	
==>intersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4061	4166	
==>intersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / ` <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11285	11380	
==>ese functions should work with most reg-exps, but given that they are still a
somewhat experimen <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11343	11438	
==>ese functions should work with most reg-exps, but given that they are still a
somewhat experimen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2912	3021	
==>span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2912	3021	
==>span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span i <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5614	5713	
==>lement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5614	5713	
==>lement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14884	14980	
==>>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14884	14980	
==>>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14884	14980	
==>>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1632	1763	
==>, 
    infix_left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9326	9430	
==>that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9326	9430	
==>that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9326	9430	
==>that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14486	14614	
==>y $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14486	14614	
==>y $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14486	14614	
==>y $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unles <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	506	620	
==>->{'to'}}

sub new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4035	4149	
==>"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4035	4149	
==>"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4035	4149	
==>"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	915	1016	
==>se 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3212	3319	
==>kname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3212	3319	
==>kname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3793	3896	
==>kname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3793	3896	
==>kname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21683	21803	
==>r('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18104	18224	
==>r('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	189	295	
==>KIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

= <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	189	295	
==>KIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

= <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	640	756	
==>T "\"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: $! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35241	35337	
==>ational operator that is identical
to C<join> except that this method will fail if any of its sou <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39791	39887	
==>ational operator that is identical
to C<join> except that this method will fail if any of its sou <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39351	39447	
==>ational operator that is identical
to C<join> except that this method will fail if any of its sou <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5689	5833	
==>k = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6242	6386	
==>k = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5882	6026	
==>k = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6435	6579	
==>k = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5877	6092	
==>ne\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5877	6092	
==>ne\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3238	3451	
==>ne\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3238	3451	
==>ne\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11234	11452	
==>:Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11234	11452	
==>:Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11234	11452	
==>:Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTRO <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3170	3283	
==>ild;
    my $build = Module::Build->new(
        dist_name    => $self->{name},
        dist_version => $self->{ve <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3797	3924	
==>1-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non b <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3797	3924	
==>1-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non b <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3981	4075	
==>complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3981	4075	
==>complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	141	246	
==>call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one instance of POE::K <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11550	11651	
==>$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definednes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11550	11651	
==>$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definednes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11550	11651	
==>$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definednes <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11798	11935	
==>y $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3046	3152	
==>have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3046	3152	
==>have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3046	3152	
==>have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3096	3272	
==>!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6573	6749	
==>!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5521	5697	
==>!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1858	1951	
==>use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$EN <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	550	677	
==>>) {
            next if /^\s*(?:#|$)/;
            $self->module_name($1) if /^\s*package\s+(\w[\w:]*)\s*;\s*$/;
            la <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30449	30542	
==>in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it g <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35000	35093	
==>in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it g <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34182	34275	
==>in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15369	15534	
==>b  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15369	15534	
==>b  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15369	15534	
==>b  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2621	2784	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffe <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1311	1474	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2621	2784	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1311	1474	
==>atim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	395	501	
==>fined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	395	501	
==>fined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18075	18171	
==>en the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18075	18171	
==>en the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13616	13758	
==>blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13616	13758	
==>blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9 <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1165	1261	
==>l% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12940	13043	
==>(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12940	13043	
==>(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12940	13043	
==>(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14170	14264	
==>_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACE <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6551	6680	
==>ename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local $_ = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3448	3555	
==>:Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (def <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3448	3555	
==>:Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (def <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3448	3555	
==>:Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (def <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1321	1425	
==>ame_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 d <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1321	1425	
==>ame_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40234	40343	
==>= Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40234	40343	
==>= Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40234	40343	
==>= Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15697	15893	
==>mization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15697	15893	
==>mization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15697	15893	
==>mization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	47	155	
==>Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswähl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5958	6068	
==>erl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1154	1264	
==>erl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5958	6068	
==>erl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1154	1264	
==>erl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4721	4841	
==>y, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4721	4841	
==>y, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4721	4841	
==>y, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arr <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4021	4140	
==>y, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14486	14693	
==>' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14486	14693	
==>' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14486	14693	
==>' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	242	352	
==>Assert - simple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  asser <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10465	10575	
==>exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2480	2580	
==>exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2480	2580	
==>exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14122	14259	
==>s so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14122	14259	
==>s so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14122	14259	
==>s so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3327	3455	
==>. emit($block) . "    ;\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4211	4342	
==>ift if @_;
            ::opaque_instance_attrs($self)->{'$:superclass'};
        },
        'get_method' => sub ($$) {
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15228	15337	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15228	15337	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15228	15337	
==>alar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1551	1725	
==>ucture:<if>'),
							App(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29698	29795	
==>e the same as those of another,
or are the same as the unaffected invocant's attributes.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34250	34347	
==>e the same as those of another,
or are the same as the unaffected invocant's attributes.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33414	33511	
==>e the same as those of another,
or are the same as the unaffected invocant's attributes.  This met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	377	494	
==>ssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	377	494	
==>ssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	377	494	
==>ssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11643	11738	
==>finity'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13383	13622	
==>e {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13383	13622	
==>e {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13383	13622	
==>e {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8710	8841	
==>d plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	878	997	
==>d plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	878	997	
==>d plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3405	3496	
==>,strend-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(sta <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6537	6638	
==>e kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $ker <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	104	197	
==>-------------------------------------------------
## now for some bootstrapping ....

## See h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	104	197	
==>-------------------------------------------------
## now for some bootstrapping ....

## See h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	104	197	
==>-------------------------------------------------
## now for some bootstrapping ....

## See h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	340	479	
==>ethods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	330	459	
==>ethods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33920	34018	
==>tion that has the same heading and
whose body contains all of the tuples that are in the invocant R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38470	38568	
==>tion that has the same heading and
whose body contains all of the tuples that are in the invocant R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1922	2095	
==>ure => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0]->{out}= { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1829	1937	
==>q "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1829	1937	
==>q "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1829	1937	
==>q "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14070	14191	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14070	14191	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14070	14191	
==>ft @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1756	1882	
==>tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5233	5359	
==>tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4163	4289	
==>tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9065	9161	
==>k

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17541	17714	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18198	18371	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17820	17993	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18477	18650	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8560	8677	
==>"bsr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2485	2584	
==>e actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2485	2584	
==>e actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3991	4091	
==>f->{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	579	777	
==>sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2351	2446	
==>ng(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2351	2446	
==>ng(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2351	2446	
==>ng(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill(" <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3705	3958	
==>olate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3748	4001	
==>olate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else { <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3705	3958	
==>olate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3748	4001	
==>olate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	899	1023	
==>[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	899	1023	
==>[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	899	1023	
==>[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.de <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20225	20328	
==>neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0,E0) :- !.
rm(eosnl <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1765	1879	
==>ret, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	197	305	
==>.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interfac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	403	511	
==>.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interfac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6237	6328	
==>now.

Documentation has been added and moved around. See
L<Regexp::Parser::Objects> for docu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22042	22153	
==>ers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The ni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20923	21034	
==>ers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22042	22153	
==>ers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20923	21034	
==>ers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The ni <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23847	23966	
==>}

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20268	20387	
==>}

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1537	1638	
==>push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1537	1638	
==>push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9008	9152	
==>' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9008	9152	
==>' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { In <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9008	9152	
==>' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9620	9734	
==>$@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9620	9734	
==>$@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9620	9734	
==>$@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1997	2081	
==>but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_group>|< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	759	1005	
==>does not exist]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $fil <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4465	4578	
==>l_tree_yaml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30440	30531	
==>function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34991	35082	
==>function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34173	34264	
==>function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1368	1509	
==>onf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, store => \$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8641	8734	
==>ly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8641	8734	
==>ly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8641	8734	
==>ly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::ad <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1304	1443	
==>lt
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!su <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1304	1443	
==>lt
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18984	19086	
==>trate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.expo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18984	19086	
==>trate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.expo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7945	8145	
==>{
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS
        },
        force => {
            store   => \$force,
            def <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4066	4165	
==>pected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4066	4165	
==>pected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4146	4245	
==>pected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10751	10965	
==>xt->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$contex <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10751	10965	
==>xt->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$contex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17407	17501	
==>nd users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
dir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17407	17501	
==>nd users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
dir <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	799	925	
==>( "\n" );
        @:diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2166	2265	
==>... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2166	2265	
==>... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2166	2265	
==>... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38764	38879	
==>t {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38764	38879	
==>t {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38764	38879	
==>t {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	271	375	
==>alue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3667	3836	
==>ate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "V <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4984	5153	
==>ate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3667	3836	
==>ate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4972	5141	
==>ate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "V <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11602	11704	
==><$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8749	8851	
==><$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11602	11704	
==><$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8749	8851	
==><$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an alias for C<s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22692	22789	
==>tion Heading>

Set of Str - This contains zero or more Relation attribute names that
define the he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27244	27341	
==>tion Heading>

Set of Str - This contains zero or more Relation attribute names that
define the he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3384	3476	
==>"Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3384	3476	
==>"Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4945	5210	
==>ew('&f'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('& <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2648	2751	
==>Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2648	2751	
==>Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11108	11202	
==>rent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11108	11202	
==>rent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<chi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5222	5332	
==>n.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5222	5332	
==>n.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3284	3377	
==>lize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curir <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3284	3377	
==>lize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18718	18844	
==>$xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18718	18844	
==>$xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18718	18844	
==>$xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20300	20403	
==>cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7220	7365	
==><'==='>
    | <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'--'>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <'&' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4399	4508	
==>s' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4399	4508	
==>s' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4399	4508	
==>s' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1346	1444	
==>truct_equiv . " is duplicated, and has been alocated $symbol" if defined $symbol;

	my $result = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4673	4764	
==>$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4673	4764	
==>$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4673	4764	
==>$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18314	18411	
==>l and other Perl code such as persistence
solutions.  Moreover, these data structures are in exact <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18314	18411	
==>l and other Perl code such as persistence
solutions.  Moreover, these data structures are in exact <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13219	13315	
==>l and other Perl code such as persistence solutions.
Moreover, these data structures are in exact <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13219	13315	
==>l and other Perl code such as persistence solutions.
Moreover, these data structures are in exact <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19790	19886	
==>due to its more
dynamic capabilities.>

I was inspired to have this organization partly by how Ma <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9850	9946	
==>te, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19790	19886	
==>due to its more
dynamic capabilities.>

I was inspired to have this organization partly by how Ma <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9850	9946	
==>te, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8795	8911	
==>Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12247	12351	
==>ormal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12247	12351	
==>ormal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12247	12351	
==>ormal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3220	3358	
==>nstance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3939	4052	
==>nstance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a su <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7557	7651	
==>coming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> clas <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7557	7651	
==>coming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> clas <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8525	8625	
==>Package' is checked for instead of 'Module' since all types of
    # packages share the same namespac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8525	8625	
==>Package' is checked for instead of 'Module' since all types of
    # packages share the same namespac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2652	2743	
==>it_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ----- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2652	2743	
==>it_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ----- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21932	22029	
==>tion (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20813	20910	
==>tion (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21932	22029	
==>tion (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20813	20910	
==>tion (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for n <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13593	13725	
==>r($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9864	9974	
==>ames6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9864	9974	
==>ames6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9864	9974	
==>ames6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@na <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4567	4724	
==>t!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4567	4724	
==>t!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6545	6639	
==>a::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'ba <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6545	6639	
==>a::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'ba <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7240	7337	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6370	6467	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7240	7337	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6370	6467	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3166	3294	
==>}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3166	3294	
==>}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1662	1777	
==>3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Packa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4865	4980	
==>3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Packa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25132	25222	
==>p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23896	23986	
==>p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25132	25222	
==>p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23896	23986	
==>p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3504	3606	
==>"\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12970	13070	
==>($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12970	13070	
==>($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12970	13070	
==>($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6495	6610	
==>]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Mi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4734	4826	
==>s overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4734	4826	
==>s overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4734	4826	
==>s overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
o <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	634	758	
==>defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	634	758	
==>defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6190	6288	
==>tive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6190	6288	
==>tive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2891	2984	
==>d1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2891	2984	
==>d1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3238	3331	
==>d1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16482	16624	
==>sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) ret <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16482	16624	
==>sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17470	17604	
==>sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) ret <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17470	17604	
==>sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	493	586	
==>tent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1106	1199	
==>tent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	493	586	
==>tent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1106	1199	
==>tent-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10036	10154	
==>(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._h <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10036	10154	
==>(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4673	4786	
==>at uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4513	4622	
==>at uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5252	5386	
==>2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5252	5386	
==>2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

met <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3200	3315	
==>status and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3200	3315	
==>status and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1598	1711	
==>status and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1598	1711	
==>status and headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7014	7131	
==>prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "ol <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7014	7131	
==>prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "ol <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7825	7927	
==>erse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7825	7927	
==>erse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25864	25960	
==>returns a
I<reference> to a scalar, makes it work (!).

B<These functions can only work if called <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39436	39541	
==>n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39436	39541	
==>n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39436	39541	
==>n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28450	28570	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28729	28849	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    s <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4341	4449	
==>y $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4341	4449	
==>y $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6503	6601	
==>ool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inte <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6503	6601	
==>ool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inte <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1641	1733	
==>evel($$) = { 0 }
type::operator::binary: level($.left) = { level($$) + 1 }
type::operator::bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	353	469	
==>and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unava <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	388	502	
==>and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unava <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2072	2176	
==>start, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2072	2176	
==>start, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5802	6048	
==>et ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7564	7810	
==>et ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21937	22049	
==>tom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18358	18470	
==>tom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2616	2762	
==>nd $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	796	908	
==>ule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	807	919	
==>ule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7474	7572	
==>elf.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7474	7572	
==>elf.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4729	4840	
==>red them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4729	4840	
==>red them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}< <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	346	448	
==>:TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.spli <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	346	448	
==>:TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.spli <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4845	4944	
==>m B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2194	2293	
==>m B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1065	1164	
==>m B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1235	1334	
==>m B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8035	8152	
==>rn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8035	8152	
==>rn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8035	8152	
==>rn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23152	23250	
==>mand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21961	22059	
==>mand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23152	23250	
==>mand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21961	22059	
==>mand. Note that you can supply both a nickname and a
channel name to the C<target> parameter.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5879	5993	
==>::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLIC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5879	5993	
==>::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLIC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5879	5993	
==>::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLIC <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4174	4282	
==>isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4174	4282	
==>isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4174	4282	
==>isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25683	25775	
==>erywhere, it's because an lvalued subroutine returning a
normal scalar doesn't work quite rig <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5164	5297	
==>xed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5164	5297	
==>xed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_conte <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15753	15884	
==>elf->{saw_lone_not} = 1;
            $self->{lone_not_line} = $self->{line};
        }

        return $NO;
    }
}

=head2 C<_is_ba <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3600	3711	
==>$two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference -  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3600	3711	
==>$two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference -  <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4475	4584	
==>$two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference -  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4475	4584	
==>$two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference -  <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2882	3034	
==>turn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2882	3034	
==>turn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2882	3034	
==>turn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	661	769	
==>ource, $param )
        if exists $param->{P5} || exists $param->{Perl5};

    my $self = { source => $rule_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1815	1945	
==>e, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1815	1945	
==>e, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1815	1945	
==>e, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3214	3311	
==>lude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::Math;

=head1 DESCR <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4131	4238	
==>le4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1927	2027	
==>X::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1927	2027	
==>X::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1927	2027	
==>X::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq " <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6962	7071	
==>eat}{test_files} }, @{$chunk->{test_files}};
        unlink $file or die "unlink: $!";
    }
    warn "all chu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16299	16406	
==>::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16299	16406	
==>::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16299	16406	
==>::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8624	8721	
==>... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8624	8721	
==>... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8624	8721	
==>... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1039	1128	
==>s", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7718	7857	
==>0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?! <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7718	7857	
==>0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3863	3964	
==>"compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4080	4181	
==>"compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18505	18632	
==>..

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18505	18632	
==>..

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18505	18632	
==>..

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2066	2203	
==>&',
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5655	5757	
==>ils if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5655	5757	
==>ils if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7179	7281	
==>ils if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6083	6204	
==>previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6083	6204	
==>previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7606	7701	
==>dded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implemen <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7606	7701	
==>dded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2493	2629	
==>ed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub { _(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7333	7437	
==>XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7333	7437	
==>XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7333	7437	
==>XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2961	3121	
==>{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2961	3121	
==>{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2961	3121	
==>{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Pe <==
4	/Users/nnunley/pugs/util/importgraph.pl	2724	2824	
==>ext unless exists $modules{$k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge->[0] <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5479	5582	
==>cation.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implem <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5479	5582	
==>cation.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implem <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11418	11516	
==>rrence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- ` <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11418	11516	
==>rrence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- ` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9530	9642	
==>roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9530	9642	
==>roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9530	9642	
==>roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18968	19063	
==>he underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<dat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10686	10776	
==>lass method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::singleton_t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3034	3167	
==>meta;

    ### if we didn't get a meta object, we'll fetch it from the .jib
    unless( $meta ) {
        
        ### installed packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38725	38841	
==>Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - opt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38725	38841	
==>Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - opt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38725	38841	
==>Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - opt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28474	28613	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28753	28892	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12678	12777	
==>$field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12678	12777	
==>$field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1611	1747	
==>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{if=>'block'}] 
];


    my($lex) = sub {
        my($t)=shift(@$in);
            defined($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1566	1674	
==>ub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blesse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1566	1674	
==>ub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blesse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1566	1674	
==>ub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blesse <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15735	15836	
==>or the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<htt <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15735	15836	
==>or the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<htt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21278	21370	
==><$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21278	21370	
==><$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30097	30210	
==>he handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # there was an 'atom <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5852	5958	
==>or epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5852	5958	
==>or epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

metho <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5920	6004	
==>s>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15610	15710	
==>e) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15610	15710	
==>e) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15610	15710	
==>e) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	633	728	
==>code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	298	408	
==>YLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1826	1936	
==>YLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1624	1714	
==>eturn "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1624	1714	
==>eturn "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gramm <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1868	1979	
==>reach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $D <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1868	1979	
==>reach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $D <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1917	2013	
==>ck your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.de <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1917	2013	
==>ck your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12850	12953	
==>rcumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12850	12953	
==>rcumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12850	12953	
==>rcumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length <==
4	/Users/nnunley/pugs/util/func_refact.pl	1695	1826	
==>set) {
            for my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12156	12242	
==>make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12156	12242	
==>make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12156	12242	
==>make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dis <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7429	7531	
==>or_re('\d') if $re eq '\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1576	1676	
==>) implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1576	1676	
==>) implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1576	1676	
==>) implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

u <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5704	5938	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5704	5938	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4340	4440	
==>(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4340	4440	
==>(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6092	6201	
==>$_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6092	6201	
==>$_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6092	6201	
==>$_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1344	1448	
==>age-conf storage position

    foreach my $module (qw< fps HsSyck >) {
        chdir "third-party/$module <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31782	31885	
==>reject it how you choose
  if (! $p->regex($regex)) {
    reject_regex(...);
  }

Any regex containing t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	388	488	
==>ke Object, Package and Module. It was also created
# by God (which means it is part of the core model <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	388	488	
==>ke Object, Package and Module. It was also created
# by God (which means it is part of the core model <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	388	488	
==>ke Object, Package and Module. It was also created
# by God (which means it is part of the core model <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7853	7977	
==>{
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7853	7977	
==>{
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7853	7977	
==>{
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	403	497	
==>$test_file");

print(('-' x 80), "\n");
print "Testing perl6 naive bayesian script with $test_f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18472	18574	
==>>{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6817	6950	
==>dy = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6817	6950	
==>dy = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6817	6950	
==>dy = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0] <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21637	21727	
==>continue'><no_LineTerminator_here><Identifier>? <';'>
}
rule BreakStatement :words {  # see <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1118	1233	
==>f.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #exec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	789	896	
==>eid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	789	896	
==>eid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	789	896	
==>eid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26113	26212	
==>$attrs!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27193	27292	
==>$attrs!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30665	30764	
==>$attrs!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31745	31844	
==>$attrs!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17837	18034	
==>params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41105	41299	
==>params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->ge <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18717	18813	
==>eters of Node.new(); you need to supply its $document and optional
$parent_node though; you can p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18717	18813	
==>eters of Node.new(); you need to supply its $document and optional
$parent_node though; you can p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19222	19379	
==>other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19222	19379	
==>other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19222	19379	
==>other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6588	6695	
==>}

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9809	9922	
==>pturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15650	15763	
==>pturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9809	9922	
==>pturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15644	15757	
==>pturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1135	1309	
==>rpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1135	1309	
==>rpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3890	3998	
==>zip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3890	3998	
==>zip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13940	14071	
==>defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  met <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13940	14071	
==>defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  met <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	375	466	
==>{^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	375	466	
==>{^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13347	13437	
==>>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13347	13437	
==>>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13347	13437	
==>>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3112	3238	
==>2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3112	3238	
==>2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3112	3238	
==>2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37148	37237	
==>-ary version of the aforementioned.

=item C<intersection (Relation::Example $other!) retu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4987	5094	
==>hod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4987	5094	
==>hod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	284	379	
==>_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	284	379	
==>_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	274	376	
==>main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	274	376	
==>main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	274	376	
==>main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSB <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2094	2227	
==>e->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2509	2640	
==>e->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2025	2156	
==>e->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2509	2640	
==>e->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7078	7212	
==>$key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7078	7212	
==>$key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7078	7212	
==>$key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24746	24867	
==>ull>
    | <Alternative> <Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
ru <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1904	2029	
==>');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1904	2029	
==>');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23954	24061	
==>m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(group <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20375	20482	
==>m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(group <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1590	1804	
==>ement>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1590	1804	
==>ement>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1492	1680	
==>sg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1492	1680	
==>sg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retu <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1512	1628	
==>to &$code unless $cwd eq $pwd; # delegate back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot au <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	362	471	
==>old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	362	471	
==>old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	362	471	
==>old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does th <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2406	2548	
==>guments( $string ) {
            given $string {
                when /^-(\w)+/ { map { call("-$_") }, @/ }
                default { next METH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34695	34816	
==>st = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34695	34816	
==>st = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34695	34816	
==>st = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # pr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14040	14160	
==>ate available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new(
                m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14040	14160	
==>ate available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new(
                m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15566	15676	
==>shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21737	21847	
==>shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shif <==
4	/Users/nnunley/pugs/util/func_refact.pl	876	1003	
==>tial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1}, $_) . "\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1162	1259	
==>timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1162	1259	
==>timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1162	1259	
==>timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1767	1886	
==>es
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub doe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4965	5069	
==>_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4965	5069	
==>_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4965	5069	
==>_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22314	22409	
==>ames as you or each other, or having multiple search
directories in your path that packages coul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22314	22409	
==>ames as you or each other, or having multiple search
directories in your path that packages coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2398	2520	
==>show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2398	2520	
==>show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2398	2520	
==>show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile ex <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	294	408	
==>y $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no pref <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3145	3265	
==>nt {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3145	3265	
==>nt {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " ", $event<res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3730	3844	
==>nt {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3730	3844	
==>nt {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " ", $event<res <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2528	2636	
==>tion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {sy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2528	2636	
==>tion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {sy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2528	2636	
==>tion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {sy <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1726	1826	
==>y
# phase development.  There's a "return" halfway down the file to cut
# off construction.  Oh well. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18768	18940	
==>/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19047	19219	
==>/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8153	8283	
==>ed @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8153	8283	
==>ed @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8682	8802	
==>r(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(896 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8682	8802	
==>r(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(896 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21748	21841	
==>se Language
Independence>.  To further demonstrate the difference, it is useful to
compare the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21748	21841	
==>se Language
Independence>.  To further demonstrate the difference, it is useful to
compare the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11320	11448	
==>rl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11320	11448	
==>rl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11320	11448	
==>rl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14947	15073	
==>on regular expression */
  U32 nparens;            /* number of parentheses */

The match result:

  I32 sublen;             /* <==
4	/Users/nnunley/pugs/util/package-osx.pl	412	520	
==>es = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/pbc_merge
        /usr/local/bin/disasse <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13725	13830	
==>t) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13725	13830	
==>t) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11194	11295	
==>r;

The regex is formed by calling the qr() method of each node in the tree,
which may be different fr <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	132	248	
==>ode");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # o <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	132	248	
==>ode");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15805	15897	
==>e main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also wr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15805	15897	
==>e main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also wr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13491	13617	
==>b zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13491	13617	
==>b zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13491	13617	
==>b zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4383	4484	
==>|$dir, to => $target );

Moves a file or directory to the target.

Returns true on success, false on f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	153	257	
==>sed to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	153	257	
==>sed to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12889	12985	
==>pass in multiple field names then it is generally not
possible to tell which of the returned valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12889	12985	
==>pass in multiple field names then it is generally not
possible to tell which of the returned valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	122	245	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	122	245	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	122	245	
==>sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2771	2892	
==>source {
    my($target) = @_;
    open my $ofh, ">", $target or die "open: $target: $!";

    {
        my $prelude = shi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7611	7757	
==>l end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7611	7757	
==>l end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1687	1811	
==>le() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class shoul <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1687	1811	
==>le() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class shoul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1828	1929	
==>ar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($sel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1968	2069	
==>ar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($sel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	830	924	
==>quire $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	830	924	
==>quire $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2457	2598	
==>ng you thunk of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2162	2285	
==>iables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2162	2285	
==>iables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2509	2632	
==>iables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11114	11232	
==>self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15701	15799	
==>be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15701	15799	
==>be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	748	922	
==>d_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::Const>),
                                Tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1697	1807	
==>@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1697	1807	
==>@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1697	1807	
==>@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  ) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9618	9743	
==>discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9618	9743	
==>discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2846	2969	
==>TP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2846	2969	
==>TP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2624	2728	
==>[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2624	2728	
==>[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PIL <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1883	1982	
==>ker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kw <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1883	1982	
==>ker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	113	239	
==>trict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	113	239	
==>trict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	113	239	
==>trict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTIN <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12413	12530	
==>ax) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5107	5212	
==>n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5107	5212	
==>n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5107	5212	
==>n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8554	8698	
==>rule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12463	12604	
==>rule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12463	12604	
==>rule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pri <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9257	9362	
==>expression --> Scalar )
 multi  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1304	1398	
==>2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1304	1398	
==>2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1304	1398	
==>2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11513	11639	
==>$match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11792	11918	
==>$match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1694	1815	
==>rait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1694	1815	
==>rait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13983	14089	
==>ther heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13983	14089	
==>ther heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4214	4316	
==>.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4214	4316	
==>.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14348	14536	
==>> '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	195	302	
==>s::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	195	302	
==>s::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	195	302	
==>s::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11428	11561	
==>tf" : "exact";
  }

  sub data {
    my $self = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1604	1714	
==>\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	975	1065	
==>=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	975	1065	
==>=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2546	2655	
==>s $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceive <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2546	2655	
==>s $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceive <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2626	2735	
==>s $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceive <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	122	219	
==>::Rule::';

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	334	433	
==>arameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	334	433	
==>arameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	334	433	
==>arameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Ad <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7556	7649	
==>((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods))) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3710	3895	
==>t)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3710	3895	
==>t)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1462	1593	
==>erate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	941	1045	
==>->class);        
}

package method::signature;

use strict;
use warnings;

use base 'closure::signature' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1333	1435	
==>bset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#mult <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1333	1435	
==>bset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#mult <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11024	11120	
==>displayed by your program.  It is analagous to a simplified version of the
"Document" interface d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11024	11120	
==>displayed by your program.  It is analagous to a simplified version of the
"Document" interface d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16802	16984	
==>_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16802	16984	
==>_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16802	16984	
==>_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatc <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10680	10794	
==>brule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .loca <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1988	2094	
==>bol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TR <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1670	1772	
==>bol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::TR <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1782	1880	
==>makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> M <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1782	1880	
==>makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10133	10292	
==>lf.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2184	2325	
==>lf.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2184	2325	
==>lf.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1674	1772	
==>mentation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1348	1469	
==>---------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.in <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3644	3765	
==>---------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.in <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1348	1469	
==>---------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.in <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3644	3765	
==>---------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8387	8489	
==>tance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5927	6025	
==>tance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - the <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15863	15959	
==>program will raise a condition or error that,
while resembling a message that would be shown to a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15863	15959	
==>program will raise a condition or error that,
while resembling a message that would be shown to a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3860	3988	
==>{"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5745	5860	
==>ars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5745	5860	
==>ars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5745	5860	
==>ars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19790	19907	
==>ment>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList : <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10276	10392	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13753	13869	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13034	13150	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    r <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2046	2186	
==>ing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3638	3774	
==>ing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5096	5195	
==>dy initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5096	5195	
==>dy initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25078	25203	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1967	2085	
==>)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $sel <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1967	2085	
==>)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $sel <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1967	2085	
==>)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1912	2038	
==>";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1912	2038	
==>";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1912	2038	
==>";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub { <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8783	8902	
==>r ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21252	21346	
==>n;
  push @ISA, qw( Regexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACK <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7706	7806	
==>atch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9634	9734	
==>atch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7694	7794	
==>atch, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10571	10730	
==>\$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6912	7071	
==>\$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7761	7920	
==>\$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processi <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1572	1670	
==>int STDERR "done.\n" if $Config{verbose};
}

sub inline {
    print STDERR "Generating inlined sour <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	456	557	
==>pport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	456	557	
==>pport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide l <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	456	557	
==>pport deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide l <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	629	730	
==>n educated guess of whether we'll need root permission.
print "    (You may need to do that as the 'ro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29347	29455	
==>=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # method bod <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2505	2594	
==>------------------------------------------
## getting children

method get_child ($self: I <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2505	2594	
==>------------------------------------------
## getting children

method get_child ($self: I <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3293	3382	
==>face::print_ast,
		print_program => $interface::print_program,
		print_match => $interface <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3510	3599	
==>face::print_ast,
		print_program => $interface::print_program,
		print_match => $interface <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3948	4065	
==>ircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3948	4065	
==>ircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $even <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3916	4017	
==>ter group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method q <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3916	4017	
==>ter group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	921	1057	
==>t',
        precedence => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8744	8845	
==>opriately.
# This method is called automatically when 
# a subtree is added to a child array
method fi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8744	8845	
==>opriately.
# This method is called automatically when 
# a subtree is added to a child array
method fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6518	6631	
==>ub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6518	6631	
==>ub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6518	6631	
==>ub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is p <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15269	15404	
==>d_n = $end->pindex;

            my $name = join '', 
              map {$_->attr('text')} 
                $beg->look_down(_tag=>'~text <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5099	5209	
==>term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<var <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2641	2751	
==>term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3422	3532	
==>term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<var <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1027	1141	
==>ub  Perl6::List::grep (MatchTest $test ;   *@values) returns Lazy {
   gather {
     for @values -> $x {
       tak <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4250	4355	
==>{ $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4250	4355	
==>{ $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4250	4355	
==>{ $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infin <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1376	1482	
==>oreach my $module (qw< fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20014	20104	
==>SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20014	20104	
==>SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20014	20104	
==>SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13669	13860	
==>on );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            els <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13669	13860	
==>on );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            els <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	935	1059	
==>pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrappe <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	935	1059	
==>pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrappe <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2084	2225	
==>s a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$feature <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3676	3813	
==>s a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$feature <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2626	2728	
==>s no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2626	2728	
==>s no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3332	3449	
==>elf => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3332	3449	
==>elf => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3332	3449	
==>elf => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method(' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2335	2437	
==>and the original object they had
	# this lets us assign letters to them

	my @letters = split //, "αβ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6395	6491	
==>unction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6395	6491	
==>unction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6395	6491	
==>unction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_pri <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6677	6768	
==>-> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5_eleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	917	1030	
==>air = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Named <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	917	1030	
==>air = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Named <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	917	1030	
==>air = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Named <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1701	1795	
==>tinue cleaning and adding p6, tuck it into the pugs distribution
somewhere with test files, and <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11748	11849	
==>the given items if they are already in the set, or inserts the items if
they're not in the set.

Retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8895	8996	
==>the given items if they are already in the set, or inserts the items if
they're not in the set.

Retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11748	11849	
==>the given items if they are already in the set, or inserts the items if
they're not in the set.

Retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8895	8996	
==>the given items if they are already in the set, or inserts the items if
they're not in the set.

Retur <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8932	9046	
==> $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths op <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8932	9046	
==> $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths op <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8059	8157	
==>mediately.  This method should be as thorough as 
possible; for example, it should not merely set a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8059	8157	
==>mediately.  This method should be as thorough as 
possible; for example, it should not merely set a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	122	292	
==>e, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	122	292	
==>e, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	122	292	
==>e, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14821	14936	
==>dir(), $perl);
	    }
	}

	# Build up the name of the executable file from the name of
	# the command.

	if ($Perl ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3390	3500	
==>n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3390	3500	
==>n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3390	3500	
==>n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - <==
4	/Users/nnunley/pugs/util/package-osx.pl	7110	7216	
==>r.3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/lo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3563	3883	
==>xists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Transl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3563	3883	
==>xists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Transl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1641	1737	
==>eakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Ca <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1641	1737	
==>eakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Ca <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4649	4761	
==>dWord {  # see 7.5.1
      <Keyword>
    | <FutureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
}
rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19854	19944	
==>SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19854	19944	
==>SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19854	19944	
==>SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4236	4380	
==>t      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3375	3501	
==>elf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3375	3501	
==>elf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3375	3501	
==>elf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6128	6374	
==>index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6592	6838	
==>index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5624	5734	
==>recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5624	5734	
==>recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8164	8307	
==>rray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8164	8307	
==>rray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8164	8307	
==>rray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.sub <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8261	8382	
==>ile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) or
          do { warn $Strap->{error}, "\n";  ne <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4541	4650	
==>: $package version $version\n";
    return $dump;
}

sub read {
    my $self = shift;
    $self->include_deps( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4341	4434	
==>er::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( * <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4341	4434	
==>er::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( * <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5865	5958	
==>er::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( * <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11332	11437	
==>) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11332	11437	
==>) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	666	766	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	666	766	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6476	6593	
==>or %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7212	7329	
==>or %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6476	6593	
==>or %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7212	7329	
==>or %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %c <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15285	15386	
==>Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_dee <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15343	15444	
==>Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_dee <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41323	41411	
==>ovided feedback towards improving this module's
documentation, particularly towards using <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41323	41411	
==>ovided feedback towards improving this module's
documentation, particularly towards using <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3995	4094	
==>ects.

The array of spans must be ordered, and the spans must not intersect with each other.

- empt <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3995	4094	
==>ects.

The array of spans must be ordered, and the spans must not intersect with each other.

- empt <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2325	2423	
==>te   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2325	2423	
==>te   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22932	23077	
==>arn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22932	23077	
==>arn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22932	23077	
==>arn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sca <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16004	16092	
==>,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1).

rm(lookahead(Re),F <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	402	539	
==>t;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3492	3588	
==>if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6969	7065	
==>if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5926	6022	
==>if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2764	2889	
==>x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2764	2889	
==>x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2764	2889	
==>x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2226	2334	
==>f->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf->{$_} = $DEFAU <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	969	1090	
==>x) if defined $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	295	400	
==>s the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	295	400	
==>s the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	295	400	
==>s the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18320	18413	
==>other Perl code such as persistence
solutions.  Moreover, these data structures are in exactly <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18320	18413	
==>other Perl code such as persistence
solutions.  Moreover, these data structures are in exactly <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13225	13317	
==>other Perl code such as persistence solutions.
Moreover, these data structures are in exactly <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13225	13317	
==>other Perl code such as persistence solutions.
Moreover, these data structures are in exactly <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2131	2304	
==>ods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) e <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3723	3892	
==>ods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) e <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5215	5306	
==>he removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5215	5306	
==>he removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7868	7973	
==>copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7868	7973	
==>copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $spa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2388	2488	
==>ir'}->subdir('build');
$config{'build_dir'}        = [ Path::Class::dir('root-') ];

### package file <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5729	5858	
==>> $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10040	10169	
==>> $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($B <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	568	670	
==>nes
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contigu <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	568	670	
==>nes
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contigu <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2060	2159	
==>-------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_par <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2060	2159	
==>-------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3897	3991	
==>ass, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5799	5893	
==>ass, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3247	3347	
==>pping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6724	6824	
==>pping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3109	3208	
==>or Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are muc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2999	3095	
==>or Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are muc <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7510	7608	
==>.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7510	7608	
==>.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13127	13244	
==>ngth $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6602	6719	
==>ngth $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->fo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2075	2185	
==>$self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_eq <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2075	2185	
==>$self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_eq <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1771	1954	
==>) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            error("Ille <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3927	4016	
==>e_attr($self => '@:roles');
}));

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3927	4016	
==>e_attr($self => '@:roles');
}));

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3927	4016	
==>e_attr($self => '@:roles');
}));

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4565	4670	
==>d' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4565	4670	
==>d' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4565	4670	
==>d' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2472	2567	
==>se Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this w <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2472	2567	
==>se Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22880	22970	
==>ta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<Thi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22880	22970	
==>ta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<Thi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8861	9002	
==>control_dir( $inst_pkg->package )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12735	12858	
==>oxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12735	12858	
==>oxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12735	12858	
==>oxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14860	14952	
==>ith "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $last_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14860	14952	
==>ith "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $last_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9269	9359	
==>mple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @stateme <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3094	3184	
==>mple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @stateme <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8436	8576	
==>print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8436	8576	
==>print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	778	873	
==>{ %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	778	873	
==>{ %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spo <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3589	3701	
==>pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $c <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3589	3701	
==>pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6412	6517	
==>ethod start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6412	6517	
==>ethod start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4245	4344	
==>xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Ro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4245	4344	
==>xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Ro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4245	4344	
==>xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4274	4368	
==>piler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	794	920	
==>ti  Num::floor (  Num  $x            --> Int )
 { Pugs::Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16828	16948	
==>aint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16828	16948	
==>aint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16828	16948	
==>aint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1676	1793	
==>th - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1676	1793	
==>th - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1676	1793	
==>th - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28525	28620	
==>indicating whether the argument C<$tuple> exists
in / is a member of this Relation::Example.

=i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4434	4545	
==>Preluded code, do I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm guessing "curren <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2662	2767	
==>eceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2662	2767	
==>eceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2742	2847	
==>eceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6706	6802	
==>is is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6706	6802	
==>is is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6706	6802	
==>is is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way? <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14152	14246	
==>tifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2683	2794	
==>ion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2683	2794	
==>ion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2683	2794	
==>ion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1] <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	2	106	
==>waehrung1.pl - Perl 5 Version
use utf8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub Pound <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1207	1350	
==>};      
        
        my $_table = $table;  
    TRY_AGAIN:
        if (my $method = $_table->{$message}) {
            return $method->($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	29	121	
==>ss $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	29	121	
==>ss $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	29	121	
==>ss $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6072	6176	
==>gify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $res <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6072	6176	
==>gify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $res <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6072	6176	
==>gify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $res <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1734	1828	
==>::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes

=item * L<Pugs::Runti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	935	1073	
==>';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	935	1073	
==>';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15956	16071	
==>ode) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15956	16071	
==>ode) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11758	11894	
==>");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11758	11894	
==>");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	192	325	
==>Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	192	325	
==>Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!dia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6197	6401	
==>e => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6197	6401	
==>e => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6197	6401	
==>e => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24414	24526	
==>sub p6_to_perl {
    my($x)=@_;
    return 'undef' if !defined $x;
    my $s = eval {p6_as_str($x->perl)};
    de <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	21	278	
==>6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_AR <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	21	278	
==>6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_AR <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	981	1124	
==>n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	981	1124	
==>n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3368	3471	
==>{ ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3368	3471	
==>{ ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3368	3471	
==>{ ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmet <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2117	2289	
==>d_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2117	2289	
==>d_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3024	3140	
==>", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subrout <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3502	3618	
==>", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subrout <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3786	3885	
==>=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it an <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3786	3885	
==>=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it an <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1213	1319	
==>ay contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@chu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12249	12351	
==>ime_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

T <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12249	12351	
==>ime_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

T <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1149	1246	
==>ay contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@chu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1983	2082	
==>) or a dynamic lookup. 



This object-serialization format is shared across all runtimes.



=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11252	11347	
==>ends) returns Bool is export`

These functions should work with most reg-exps, but given that th <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11310	11405	
==>ends) returns Bool is export`

These functions should work with most reg-exps, but given that th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1909	2004	
==>) or a dynamic lookup. 

This object-serialization format is shared across all runtimes.

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14350	14463	
==>d_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14350	14463	
==>d_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14350	14463	
==>d_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	304	436	
==>s $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	304	436	
==>s $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13530	13648	
==>g\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2532	2627	
==>'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2532	2627	
==>'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2532	2627	
==>'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10102	10225	
==>{
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .jo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2390	2500	
==>ne {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2390	2500	
==>ne {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2390	2500	
==>ne {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12819	12927	
==>inding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normaliz <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12819	12927	
==>inding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normaliz <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5948	6042	
==>thod for speed--although they should be careful to avoid changing the 
actual semantics.

Pleas <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5948	6042	
==>thod for speed--although they should be careful to avoid changing the 
actual semantics.

Pleas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	830	950	
==>turns a "rule".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copying the whole st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1199	1314	
==>turns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	798	913	
==>turns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1199	1314	
==>turns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copying the whole st <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	439	570	
==>data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	439	570	
==>data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	904	1001	
==>hed C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	904	1001	
==>hed C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7596	7752	
==>h tests would be run but don't run them
    --concurrent=N, -j      Run N test jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2063	2196	
==>y $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2063	2196	
==>y $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37495	37588	
==>kage in its positional parameter
$module_name (a string) and tries to load it using 'require'. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37495	37588	
==>kage in its positional parameter
$module_name (a string) and tries to load it using 'require'. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1944	2052	
==>b expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1944	2052	
==>b expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1944	2052	
==>b expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_un <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	210	300	
==>.circumfix:«{ }»('foo');
#=postcircumfix
postcircumfix:«{ }»($a, 'foo');
# $a.postcircu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	18	107	
==>erl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	18	107	
==>erl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	18	107	
==>erl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10720	10849	
==>aram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10720	10849	
==>aram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10720	10849	
==>aram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16231	16338	
==>rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9758	9879	
==>$satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11235	11356	
==>$satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1225	1337	
==>$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1225	1337	
==>$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    retu <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	357	477	
==>nted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        m <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	357	477	
==>nted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4743	4855	
==>rs($role)->{'$:name'}} = undef;
        foreach my $method_name ($role->get_method_list) {
            # if we al <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	913	1048	
==>param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tm <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	655	790	
==>param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tm <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	913	1048	
==>param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tm <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	655	790	
==>param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3230	3365	
==>urn;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir] )                and err <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7319	7427	
==>\@copy, $key);
    }

    return @index_files;
}

### these plural functions seem more confusion than helpful <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8650	8755	
==>event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8650	8755	
==>event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $even <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7891	8010	
==>urn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7891	8010	
==>urn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7891	8010	
==>urn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= " <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5010	5122	
==>, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky th <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13286	13379	
==>returns a recurrence set containing only the elements that 
satisfy the given boolean function <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13286	13379	
==>returns a recurrence set containing only the elements that 
satisfy the given boolean function <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	196	310	
==>ler_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	196	310	
==>ler_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	196	310	
==>ler_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1276	1423	
==>nd;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4515	4662	
==>nd;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1276	1423	
==>nd;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4515	4662	
==>nd;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1986	2099	
==>n Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1986	2099	
==>n Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	570	662	
==>VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVari <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	570	662	
==>VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVari <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19205	19315	
==>code {
    my($code)=@_;
    eval_p5_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_l <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28391	28481	
==>nto tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are be <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32943	33033	
==>nto tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are be <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32071	32161	
==>nto tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are be <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5138	5247	
==>is our does() method, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2213	2292	
==>ier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2213	2292	
==>ier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2213	2292	
==>ier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1244	1340	
==>ostwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_do <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	144	240	
==>e qw(textile);

print header();
#my $template  = HTML::Template.new(filename => "wiki.html");

my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1244	1340	
==>ostwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1244	1340	
==>ostwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_do <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4635	4755	
==>l value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- di <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4635	4755	
==>l value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25321	25417	
==>free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25321	25417	
==>free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rose <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7482	7582	
==>returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6612	6712	
==>returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7482	7582	
==>returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6612	6712	
==>returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	127	253	
==>r missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    me <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	127	253	
==>r missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15570	15686	
==>dler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10426	10542	
==>dler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6571	6680	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mul <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5701	5810	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6571	6680	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5701	5810	
==>$one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for includes!
mul <==
4	/Users/nnunley/pugs/util/package-osx.pl	5981	6078	
==>.3pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::O <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1925	2074	
==>),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	696	795	
==>-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	696	795	
==>-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	696	795	
==>-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6146	6264	
==>APPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6146	6264	
==>APPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6146	6264	
==>APPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from sup <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22465	22564	
==>lf["subname"] = "ws"
    self["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14245	14415	
==>ft, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14245	14415	
==>ft, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14245	14415	
==>ft, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts} <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	779	907	
==>Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if defined $tok;
        @tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2002	2096	
==>mber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2002	2096	
==>mber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2002	2096	
==>mber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	402	538	
==>(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	402	538	
==>(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2442	2539	
==>ild);
    }
    $self;
}

## --------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2442	2539	
==>ild);
    }
    $self;
}

## --------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2138	2231	
==>fix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2138	2231	
==>fix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2138	2231	
==>fix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5163	5255	
==>unk = $node->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->isa("Blondie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1865	1980	
==>ng->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Intern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1865	1980	
==>ng->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Intern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1865	1980	
==>ng->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Intern <==
4	/Users/nnunley/pugs/util/drift.pl	77	167	
==>in>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/sr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	953	1048	
==>"\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	953	1048	
==>"\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5185	5276	
==>encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5185	5276	
==>encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3069	3201	
==>', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3069	3201	
==>', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10282	10395	
==>.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10282	10395	
==>.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3045	3246	
==>h: ",Dumper $m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' order should fix th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6117	6217	
==>lass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6117	6217	
==>lass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6117	6217	
==>lass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(": <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4324	4422	
==>{ $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	252	347	
==>JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	252	347	
==>JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	252	347	
==>JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5885	6001	
==>nd {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5885	6001	
==>nd {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5885	6001	
==>nd {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	739	832	
==>ift)->to_native ? str->new('1') : str->new('')  }
sub to_num { (shift)->to_native == 0 ? num-> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1158	1432	
==>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1158	1432	
==>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4026	4214	
==>) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonasso <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7165	7274	
==>less ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3769	3878	
==>less ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4618	4727	
==>less ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8342	8493	
==>=> 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8342	8493	
==>=> 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	281	389	
==>fined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	281	389	
==>fined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3926	4044	
==>nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3926	4044	
==>nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3926	4044	
==>nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1378	1488	
==>ed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1378	1488	
==>ed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11167	11259	
==>B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11167	11259	
==>B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $ch <==
4	/Users/nnunley/pugs/util/drift.pl	844	951	
==>IFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1348	1446	
==>ash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1348	1446	
==>ash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1348	1446	
==>ash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	339	456	
==>{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	339	456	
==>{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6403	6510	
==>atch;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6415	6522	
==>atch;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13415	13546	
==>md, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\".. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13409	13540	
==>md, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\".. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2830	2933	
==>or,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fiel <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2830	2933	
==>or,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fiel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11598	11710	
==>' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11598	11710	
==>' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11598	11710	
==>' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7787	7898	
==>, $y;

    return $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	39	162	
==>tatus-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Proces <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	39	162	
==>tatus-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Proces <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21499	21594	
==>other package or program which uses yours may wish to
override some of your messages, showing ot <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21499	21594	
==>other package or program which uses yours may wish to
override some of your messages, showing ot <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3252	3352	
==>(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25090	25185	
==>nt C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29642	29737	
==>nt C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3262	3384	
==>(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation::Example, w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16113	16211	
==>{ p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16113	16211	
==>{ p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16113	16211	
==>{ p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9874	9988	
==>( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15715	15829	
==>( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9874	9988	
==>( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15709	15823	
==>( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	801	900	
==>l'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	801	900	
==>l'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	801	900	
==>l'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(q <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5944	6040	
==>e = $n->{'type'};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_type = "${pkg_root}::$type";
	my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9919	10029	
==>_runperl { # Create the string to qx in runperl().
    my %args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2063	2178	
==>od($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2063	2178	
==>od($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2063	2178	
==>od($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3493	3632	
==>es Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3481	3620	
==>es Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) } <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	27	123	
==>xt;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	27	123	
==>xt;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	696	886	
==>bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	696	886	
==>bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2198	2327	
==>us_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2198	2327	
==>us_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2245	2377	
==>b p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2245	2377	
==>b p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2245	2377	
==>b p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil," <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	530	653	
==>k()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	530	653	
==>k()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $matc <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2575	2680	
==>) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2575	2680	
==>) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1788	1893	
==>> { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1788	1893	
==>> { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17053	17151	
==>both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to da <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17053	17151	
==>both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to da <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21997	22107	
==>ts->{$script}->{name};
        $max_namelen = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6314	6414	
==>ing ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6314	6414	
==>ing ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6314	6414	
==>ing ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_f <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	826	916	
==>ass has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_ <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	826	916	
==>ass has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11022	11116	
==>r>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11022	11116	
==>r>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	265	352	
==>)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	265	352	
==>)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18624	18827	
==>ore
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18624	18827	
==>ore
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18624	18827	
==>ore
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12307	12426	
==>opaque';
    my $self = $class.CREATE(repr => $canidate, %params);
    $self.BUILDALL($params);
    return $self;
}

(me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2463	2590	
==>ghly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2463	2590	
==>ghly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2463	2590	
==>ghly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX X <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12668	12774	
==>ay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8101	8220	
==>{
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11862	11981	
==>int
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8089	8208	
==>{
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11856	11975	
==>int
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1478	1570	
==>"Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1478	1570	
==>"Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1478	1570	
==>"Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, [ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2272	2375	
==>g if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_defa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2272	2375	
==>g if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_defa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	200	293	
==>ay into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	200	293	
==>ay into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4591	4727	
==>[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22766	22862	
==>names that
define the heading of this Relation.  Each attribute name is a character
string.

=ite <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27318	27414	
==>names that
define the heading of this Relation.  Each attribute name is a character
string.

=ite <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	611	771	
==>};
    }

    package Node;
    sub new {
        my $class = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7743	7885	
==>, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7743	7885	
==>, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7743	7885	
==>, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argu <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3711	3932	
==>= round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 0;
            }
            else {
                i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1403	1490	
==>ole->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1403	1490	
==>ole->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1403	1490	
==>ole->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10578	10685	
==>ented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10736	10843	
==>ented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2130	2227	
==>may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2130	2227	
==>may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13239	13345	
==>span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($on <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13239	13345	
==>span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($on <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38916	39012	
==>elation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; y <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43730	43826	
==>elation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; y <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16070	16172	
==>d time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	511	613	
==>:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
mul <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	511	613	
==>:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
mul <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16070	16172	
==>d time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1116	1274	
==>vision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = sub {
        my $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9709	9820	
==>h - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9709	9820	
==>h - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9709	9820	
==>h - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3439	3547	
==>tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3439	3547	
==>tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3439	3547	
==>tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3337	3432	
==>200);
is($p2->class, \&Point, '... got the right class name');

is($p2->get_x, 100, '... got the <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9985	10110	
==>ax'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->em <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2942	3059	
==>hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2942	3059	
==>hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2942	3059	
==>hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatt <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	580	692	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4058	4170	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!h <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2812	2904	
==>1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2812	2904	
==>1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5143	5238	
==>assed the current object in the recursion and
the wanted namespace ("MyName" in the code above). <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25165	25260	
==>le can have no
more than a single tuple.  A zero-attribute Relation::Example with zero tuples or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5143	5238	
==>assed the current object in the recursion and
the wanted namespace ("MyName" in the code above). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5143	5238	
==>assed the current object in the recursion and
the wanted namespace ("MyName" in the code above). <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8036	8141	
==>ty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8036	8141	
==>ty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $spa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21164	21257	
==>n(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the speci <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21164	21257	
==>n(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the speci <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11306	11412	
==>if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11306	11412	
==>if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19338	19430	
==>of a challenge that indicates the
authentication scheme and parameters applicable to the requ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19338	19430	
==>of a challenge that indicates the
authentication scheme and parameters applicable to the requ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6114	6243	
==>nue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6114	6243	
==>nue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16153	16272	
==>more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16153	16272	
==>more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3393	3539	
==>methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11117	11233	
==>,
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11117	11233	
==>,
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11117	11233	
==>,
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	820	929	
==>tive cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (blessed <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5004	5091	
==>greed(W,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_ran <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5984	6099	
==>_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6177	6292	
==>_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2453	2563	
==>()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, St <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2511	2621	
==>()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, St <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10950	11140	
==>ttr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %params) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	420	514	
==>m $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	420	514	
==>m $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	420	514	
==>m $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3265	3359	
==>angle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3265	3359	
==>angle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3265	3359	
==>angle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11477	11617	
==>}
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11477	11617	
==>}
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2713	2812	
==>red with the same key, the encryption 
can be removed by XORing them together; you might not be able <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2713	2812	
==>red with the same key, the encryption 
can be removed by XORing them together; you might not be able <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10657	10764	
==>s = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10657	10764	
==>s = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10657	10764	
==>s = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7557	7659	
==>seq child of the thunk
			my $last = pop @children_of_seq;

			my @params = grep { $_->struct_equiv->is <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14673	14873	
==>_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_wit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18150	18350	
==>_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_wit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17566	17766	
==>_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_wit <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27605	27702	
==>ou can write C<(?u:...)> or C<(?u)>.  The values 0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C< <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2588	2695	
==>ef;
 }


 multi Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	522	623	
==><|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	522	623	
==><|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	522	623	
==><|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1065	1165	
==>pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1065	1165	
==>pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1065	1165	
==>pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if <==
4	/Users/nnunley/pugs/misc/S29_round.pl	113	236	
==>n below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5412	5523	
==>>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5412	5523	
==>>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5412	5523	
==>>name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1116	1271	
==>.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packa <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1116	1271	
==>.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1114	1207	
==>xpr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1114	1207	
==>xpr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Var <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2226	2341	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2226	2341	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2226	2341	
==>w PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var r <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1195	1293	
==>lysis of the test results difficult for anything but a human.  To
make it easier for programs to wo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	496	653	
==>hunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17433	17528	
==>methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17433	17528	
==>methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17433	17528	
==>methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15812	15964	
==>();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { pu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15812	15964	
==>();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { pu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13871	13967	
==>eason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13929	14025	
==>eason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9891	10014	
==>g
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11368	11491	
==>g
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3252	3374	
==>ld!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Serv <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3252	3374	
==>ld!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Serv <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1019	1114	
==>,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1019	1114	
==>,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1019	1114	
==>,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { co <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13533	13642	
==>check if the runtime has a hash for this
    # in the future the compiler might allow adding globals
    # rig <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3302	3406	
==>!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3302	3406	
==>!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20601	20696	
==>est lines will
be expanded again.

Every bit of the default process described above is overridab <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20601	20696	
==>est lines will
be expanded again.

Every bit of the default process described above is overridab <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5604	5788	
==>ram->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<?? !!>'),
                    Sym->new('$cond'),
                    Sy <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36729	36827	
==>, in which case the result does too.  Another trivial case is if any
source relation is the identit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41278	41376	
==>, in which case the result does too.  Another trivial case is if any
source relation is the identit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40901	40999	
==>, in which case the result does too.  Another trivial case is if any
source relation is the identit <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	262	366	
==>DED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () } <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	262	366	
==>DED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7720	7806	
==>access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_el <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1545	1631	
==>access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16102	16209	
==>v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16102	16209	
==>v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16102	16209	
==>v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1387	1587	
==>s   
            if ($t eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17418	17514	
==>" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17418	17514	
==>" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17418	17514	
==>" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2100	2291	
==>utable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5577	5768	
==>utable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4507	4698	
==>utable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1459	1578	
==>ation => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Instal <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2481	2595	
==>($i));
        unless ($arg->isa('nil') && $param->to_str->to_native =~ /^\?/) {
            (blessed($arg) && $arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3163	3251	
==>s=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3163	3251	
==>s=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3163	3251	
==>s=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3102	3212	
==>s}{$type});
	}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return if $self->node_is_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	11	274	
==>pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	11	274	
==>pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31351	31450	
==>le
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the sec <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31351	31450	
==>le
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the sec <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10015	10121	
==>span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10015	10121	
==>span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $spa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1313	1413	
==>ders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1313	1413	
==>ders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19627	19731	
==>( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::Item <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30469	30563	
==>ransformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35020	35114	
==>ransformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34202	34296	
==>ransformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6932	7029	
==>d => \@unresolved);
print $error $template->output;
close $error;

print "Took: " . (time - $start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6969	7059	
==>------------------------------------------

# stub this for the moment ...
$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6969	7059	
==>------------------------------------------

# stub this for the moment ...
$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6969	7059	
==>------------------------------------------

# stub this for the moment ...
$::Class->add_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16462	16578	
==>nt++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16462	16578	
==>nt++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16462	16578	
==>nt++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" clas <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2442	2557	
==>ck       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Per <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5709	5809	
==>ems = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5709	5809	
==>ems = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36918	37014	
==>e example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=bac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36918	37014	
==>e example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=bac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14427	14595	
==>{
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14427	14595	
==>{
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14427	14595	
==>{
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array <==
4	/Users/nnunley/pugs/util/addauthors.pl	681	798	
==>or some hurestics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21979	22096	
==>("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $len <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17567	17661	
==>alue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17567	17661	
==>alue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17567	17661	
==>alue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2595	2746	
==>r);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2595	2746	
==>r);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2595	2746	
==>r);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	94	182	
==>ch.pm"
package Module::Install::Fetch;
use Module::Install::Base; @ISA = qw(Module::Insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4861	4981	
==>s = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4861	4981	
==>s = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4861	4981	
==>s = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     i <==
4	/Users/nnunley/pugs/util/package-osx.pl	115	212	
==>arrot|pugs-parrot] target_base_dir
        Run after make install'ing pugs and parrot under /usr/l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2005	2123	
==>CH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2005	2123	
==>CH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2005	2123	
==>CH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$se <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27737	27833	
==>ts in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests will be run by C<$^X>, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4628	4743	
==>rray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4628	4743	
==>rray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4628	4743	
==>rray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatch <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1186	1291	
==>st
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub lin <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1186	1291	
==>st
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub lin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1266	1371	
==>st
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub lin <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7724	7820	
==>ts --> Int|List )

Iterates the elements of C<@array>, in order. 

If C<@indextests> are provided <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1508	1644	
==>0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1508	1644	
==>0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16409	16537	
==>rce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6- <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16409	16537	
==>rce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9507	9613	
==>);

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9565	9671	
==>);

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17055	17150	
==>uming the main
application is written in Perl, it is this "Rosetta" file which provides
the glue <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17055	17150	
==>uming the main
application is written in Perl, it is this "Rosetta" file which provides
the glue <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3900	4005	
==>ie "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3900	4005	
==>ie "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3900	4005	
==>ie "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	378	473	
==>ead1 NAME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2780	2933	
==>return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2780	2933	
==>return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2780	2933	
==>return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unbo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	53	153	
==>use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !!>', '$cond', ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3747	3932	
==>tch: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3632	3811	
==>tch: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{stat <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	362	474	
==>$.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	362	474	
==>$.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33720	33816	
==>rns Relation>

This method is a generic relational operator that takes a single Relation
in its C <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34488	34584	
==>rns Relation>

This method is a generic relational operator that takes a single Relation
in its C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38270	38366	
==>rns Relation>

This method is a generic relational operator that takes a single Relation
in its C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39038	39134	
==>rns Relation>

This method is a generic relational operator that takes a single Relation
in its C <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5181	5387	
==>se {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5181	5387	
==>se {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9245	9369	
==>%hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.dele <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9245	9369	
==>%hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.dele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	390	490	
==>erl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Toke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	394	494	
==>erl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Toke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	390	490	
==>erl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Toke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	394	494	
==>erl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::Toke <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1336	1566	
==>or);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1080	1171	
==>rl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1080	1171	
==>rl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1080	1171	
==>rl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12885	13081	
==>ant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13164	13360	
==>ant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24928	25022	
==>A.

Linking Rosetta statically or dynamically with other components is making a
combined work b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24928	25022	
==>A.

Linking Rosetta statically or dynamically with other components is making a
combined work b <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17777	17883	
==>y $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14611	14704	
==>{...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14611	14704	
==>{...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14611	14704	
==>{...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	439	557	
==>e_keys  }

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2855	2965	
==>|()));


# Find design doc directory, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7033	7131	
==>_language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7033	7131	
==>_language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20187	20277	
==>> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20187	20277	
==>> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20187	20277	
==>> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2295	2397	
==>ne
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2802	2903	
==>">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Could <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2802	2903	
==>">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Could <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2802	2903	
==>">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Could <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3370	3456	
==>\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3370	3456	
==>\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2432	2564	
==>h @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2432	2564	
==>h @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2432	2564	
==>h @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11186	11316	
==>y =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11186	11316	
==>y =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11186	11316	
==>y =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8502	8613	
==>erminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $ini <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13200	13303	
==>> <AssignmentExpression>
}
rule PropertyName :words {  # see 11.1.5
      <Identifier>
    | <StringLite <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4353	4446	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4353	4446	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4353	4446	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1704	1813	
==>ta( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
}
sub node::meth_call {
    my $ident = get_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13214	13319	
==>on_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCon <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13214	13319	
==>on_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCon <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13214	13319	
==>on_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1499	1597	
==>- constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1499	1597	
==>- constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1499	1597	
==>- constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4154	4269	
==>bject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4154	4269	
==>bject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4154	4269	
==>bject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3739	3844	
==>n );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3739	3844	
==>n );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14137	14232	
==>s long as
C<%hash> doesn't change. 

If C<@keytests> are provided, only elements whose keys eval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10261	10366	
==>] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1259	1357	
==>ts
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1259	1357	
==>ts
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1259	1357	
==>ts
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4395	4499	
==>hod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4395	4499	
==>hod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5267	5369	
==>hod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5267	5369	
==>hod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1706	1820	
==>`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print STDERR $ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3955	4048	
==>in.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3955	4048	
==>in.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3955	4048	
==>in.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]re <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	736	848	
==>itive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4324	4423	
==>nd a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  I <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4324	4423	
==>nd a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6521	6620	
==>nd a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2837	3013	
==>| 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $eigenclass->superclass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	8	118	
==>PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	8	118	
==>PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	8	118	
==>PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PI <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15884	16000	
==>:current_match = $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local $X::current_match = $m1;
    local $X::cap = [] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6506	6615	
==>last_error), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg, $sel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7107	7209	
==>thod content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7107	7209	
==>thod content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5667	5787	
==>reference->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "Y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9681	9782	
==>e special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inden <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9681	9782	
==>e special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inden <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9681	9782	
==>e special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inden <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	877	979	
==>ence!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	877	979	
==>ence!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	877	979	
==>ence!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8462	8624	
==>l else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8462	8624	
==>l else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8462	8624	
==>l else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7079	7186	
==>ackage Regexp::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	497	616	
==>], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	497	616	
==>], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2891	3000	
==>ndler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	922	1031	
==>ndler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	103	201	
==>ty and performance reality check.
# Hopefully it will develop into a p6 rules engine, and then a p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1412	1507	
==>ancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1412	1507	
==>ancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1412	1507	
==>ancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27113	27208	
==>KED FILES: scr.tmp 0 my.db

If relative, directory name is with respect to the current directory <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	394	490	
==>*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	394	490	
==>*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	81	178	
==>use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	81	178	
==>use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	81	178	
==>use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

= <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1323	1418	
==>c => $topic, entry => $entry, entry_html => $entry_html );
}

sub template ($filename, *%params) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22188	22284	
==>rp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::',$mn);
	$p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6557	6650	
==>oolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

Th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6557	6650	
==>oolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8754	8847	
==>oolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

Th <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6225	6333	
==>ed ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params return <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6225	6333	
==>ed ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params return <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14602	14699	
==>se needs. The
following is a list of future features planned for this module.

- better error hand <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14660	14757	
==>se needs. The
following is a list of future features planned for this module.

- better error hand <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3356	3480	
==>he files
                for my $meth (qw[registered_alternatives_file available_file]) {
                    system( qw[touc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1614	1712	
==>s() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1614	1712	
==>s() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1614	1712	
==>s() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17928	18056	
==>'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<exp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17928	18056	
==>'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<exp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	830	950	
==>Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	830	950	
==>Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2335	2449	
==>t"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2335	2449	
==>t"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	98	199	
==>r other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
us <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	98	199	
==>r other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25879	26076	
==>gify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25879	26076	
==>gify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25879	26076	
==>gify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1383	1511	
==>uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protoco <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1383	1511	
==>uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protoco <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2173	2286	
==>t      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealS <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2173	2286	
==>t      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealS <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	138	231	
==>::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

m <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	138	231	
==>::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	235	396	
==>sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2559	2690	
==>tringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2559	2690	
==>tringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2559	2690	
==>tringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	284	406	
==>llback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	284	406	
==>llback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9683	9779	
==>ence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9683	9779	
==>ence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3929	4036	
==>or_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3929	4036	
==>or_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3929	4036	
==>or_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be au <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12467	12552	
==>har(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4335	4452	
==>),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4528	4645	
==>),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10411	10544	
==>r @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_requ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10411	10544	
==>r @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_requ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10411	10544	
==>r @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_requ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21458	21576	
==>s
    pad["isarray"] = padarray
    pad["cutnum"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1765	1873	
==>e() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1021	1123	
==>ethod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1021	1123	
==>ethod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1021	1123	
==>ethod .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added cl <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9672	9830	
==>^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9672	9830	
==>^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	876	1013	
==>nsional arrays of the match
                     object, telling captures where in the deep structure
                     to store what t <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	876	1013	
==>nsional arrays of the match
                     object, telling captures where in the deep structure
                     to store what t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	359	455	
==>::force_todo_test_junction;

# for running the test suite multiple times in the same process
$Tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	417	513	
==>::force_todo_test_junction;

# for running the test suite multiple times in the same process
$Tes <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8263	8391	
==>t"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8263	8391	
==>t"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3405	3529	
==>ername hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3405	3529	
==>ername hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5154	5251	
==>agnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status ret <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5154	5251	
==>agnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7351	7448	
==>agnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status ret <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9750	9908	
==>tr .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23447	23560	
==>st {
    if (@superclasses.defined) {
        for @superclasses -> $super {
            $super.add_subclass($self) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4169	4279	
==>less $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4386	4496	
==>less $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($f <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1045	1144	
==>expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header return <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1045	1144	
==>expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1592	1691	
==>expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header return <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19684	19773	
==>{ sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whate <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2341	2483	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27495	27637	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2534	2676	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27774	27916	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1286	1419	
==>y $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27211	27337	
==>> {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27211	27337	
==>> {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3580	3679	
==>do lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv, and %^H.  The fir <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1756	1851	
==>ch might be interesting to 
people interested in the algorithm itself.  The attributes in questi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1756	1851	
==>ch might be interesting to 
people interested in the algorithm itself.  The attributes in questi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1299	1392	
==>::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for examp <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1299	1392	
==>::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for examp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5115	5217	
==>tended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5337	5439	
==>tended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2669	2770	
==>efval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter sy <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2669	2770	
==>efval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter sy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5380	5513	
==>:MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->pars <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5898	6010	
==>:MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->pars <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10922	11021	
==>so note that, depending on the backend, the
    <code>ext/</code> tests may or may not be run, causi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5368	5469	
==>n>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5368	5469	
==>n>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5368	5469	
==>n>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POS <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12785	12886	
==>port for ="some_file"
# I'm not sure where this is specced, but when I migrated &prefix:<=> from
# mea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7610	7717	
==>sname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7610	7717	
==>sname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7610	7717	
==>sname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	874	974	
==>mper::Dumper($_[0]);
}

sub import {
	# get the format specified on the command line
	$dumper = $form <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1515	1634	
==>oor( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_roun <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	516	632	
==>rencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	516	632	
==>rencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	516	632	
==>rencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::au <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	606	766	
==>: (\d+) \s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s*
            (?: (\d+) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	650	765	
==>se w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	650	765	
==>se w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	650	765	
==>se w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4838	4938	
==>ty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fg <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4838	4938	
==>ty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7970	8061	
==>rs>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7970	8061	
==>rs>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6310	6429	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6310	6429	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6310	6429	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3904	4002	
==>sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3904	4002	
==>sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3904	4002	
==>sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2104	2212	
==>[1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bin <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2104	2212	
==>[1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bin <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2451	2559	
==>[1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	8	111	
==>Pugs::Grammar::Category;
use warnings;
use strict;

# TODO 
#  ok - is tighter/looser/equiv 
#  infix/pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7216	7358	
==>($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7216	7358	
==>($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7216	7358	
==>($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            } <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14055	14163	
==>ing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local stri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5024	5126	
==>!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("I <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5024	5126	
==>!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("I <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2179	2275	
==>a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different prop <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2179	2275	
==>a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different prop <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11668	11800	
==>p  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package eq $inst_pkg->pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14687	14800	
==>indings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14687	14800	
==>indings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14687	14800	
==>indings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7417	7559	
==>_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ], <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7417	7559	
==>_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ], <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11665	11761	
==>de objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Roo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11665	11761	
==>de objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Roo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	548	677	
==>.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_d <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	548	677	
==>.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	455	578	
==>e};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1181	1301	
==>e};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10497	10650	
==>ift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10497	10650	
==>ift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10497	10650	
==>ift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38613	38719	
==>o!\D*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) or die $parser->errmsg;
    print "VISUAL: ", $par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6952	7063	
==>h = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6952	7063	
==>h = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	6	118	
==>e PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	6	118	
==>e PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	6	118	
==>e PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7709	7805	
==>, and $parser->errnum will return the numerical value
of the message.  If you use new() the F<Reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3628	3755	
==>ee: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3628	3755	
==>ee: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3628	3755	
==>ee: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	258	378	
==>%params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed'};
            $params{'$.skip'} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5390	5492	
==>data structures used by the Rosetta framework, as used by
    # the current process/application.
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5390	5492	
==>data structures used by the Rosetta framework, as used by
    # the current process/application.
    my <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11260	11404	
==>tch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10681	10803	
==>= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10681	10803	
==>= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10681	10803	
==>= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3598	3826	
==>' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3598	3826	
==>' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3117	3310	
==>op::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3128	3321	
==>op::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8041	8143	
==>e>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8041	8143	
==>e>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8041	8143	
==>e>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3201	3404	
==>(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when :: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3201	3404	
==>(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when :: <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	45	194	
==>org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            5 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	45	194	
==>org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            5 <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1908	2011	
==>tions, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3965	4059	
==>e Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3965	4059	
==>e Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3965	4059	
==>e Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Val <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2662	2805	
==>->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the objects new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3827	3943	
==>) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3827	3943	
==>) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3827	3943	
==>) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_nam <==
4	/Users/nnunley/pugs/util/grokprims.pl	2417	2514	
==>int "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  pr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	849	957	
==>ght) = @_;
    return bit->new(0) 
        unless blessed($right) && $right->isa('symbol');
    return bit->n <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9716	9865	
==>Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @val <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	939	1064	
==>Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6705	6830	
==>== Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6705	6830	
==>== Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6705	6830	
==>== Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7259	7370	
==>ngth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7259	7370	
==>ngth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7259	7370	
==>ngth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine i <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	729	840	
==>d $nodes{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%cc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2059	2180	
==>es to a temp dir
#         JIB::Utils->_copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Could not copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2696	2801	
==>ined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2696	2801	
==>ined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2696	2801	
==>ined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __exp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6291	6428	
==>base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6291	6428	
==>base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_fil <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3789	3880	
==>mentation/comments. If you need something
with more power, move up to Config::Simple, Config <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3789	3880	
==>mentation/comments. If you need something
with more power, move up to Config::Simple, Config <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4012	4153	
==>VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self->{saw_lone_not} && 
            ($self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	60	175	
==>_
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	60	175	
==>_
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \& <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	387	480	
==>hods", "Set", { companion => "class" });
Has($?CLASS, "superclasses", "Set", { companion => "s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4178	4301	
==>lass;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4178	4301	
==>lass;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4178	4301	
==>lass;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10946	11060	
==>g
  package Regexp::Parser::open;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    my $idx = $o- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6853	6962	
==>to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6853	6962	
==>to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6853	6962	
==>to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI S <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5110	5207	
==>es) { handle_t_file( catdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5477	5582	
==>stantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5477	5582	
==>stantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5477	5582	
==>stantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6: <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2148	2246	
==>ct Perl6 equivalent for:

    $path

field name: $name
osname: $config->{osname}

Please notify the <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5088	5215	
==>ter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5088	5215	
==>ter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5513	5616	
==>nick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5513	5616	
==>nick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17093	17205	
==>oop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20570	20682	
==>oop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20148	20260	
==>oop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($othe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1752	1935	
==>},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1752	1935	
==>},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7505	7602	
==>lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a laz <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7505	7602	
==>lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a laz <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2478	2591	
==>le executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl block with placeholder parameter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1058	1158	
==>Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1058	1158	
==>Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1058	1158	
==>Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1203	1301	
==>$match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1203	1301	
==>$match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	37	132	
==>::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	37	132	
==>::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15651	15779	
==>it        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15651	15779	
==>it        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15651	15779	
==>it        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	596	724	
==>t{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	612	740	
==>t{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	588	716	
==>t{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10750	10861	
==>ee->[-1]{data}[0] }) {
        last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tre <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21929	22023	
==>rmation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20810	20904	
==>rmation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21929	22023	
==>rmation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20810	20904	
==>rmation (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13109	13224	
==>@_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13109	13224	
==>@_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13109	13224	
==>@_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10039	10137	
==>peAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NOD <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5397	5526	
==>ir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4789	4892	
==>rg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4789	4892	
==>rg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4789	4892	
==>rg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten arg <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1971	2121	
==>files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.pl' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16560	16689	
==>or $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20037	20166	
==>or $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19597	19726	
==>or $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38460	38555	
==>is
substituted for any occurance of its corresponding variable name that is
bounded by '<' and ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38460	38555	
==>is
substituted for any occurance of its corresponding variable name that is
bounded by '<' and ' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1291	1400	
==>turns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1291	1400	
==>turns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1770	1878	
==>y.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1770	1878	
==>y.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

me <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1401	1529	
==>) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir $args->{dir} ) {
        err <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9406	9499	
==>s.
The headers consist of attribute-value pairs also called fields, which
may be repeated, and <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9406	9499	
==>s.
The headers consist of attribute-value pairs also called fields, which
may be repeated, and <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20799	20887	
==>nternals::use($module);
    Pugs::Internals::require_use_helper(Bool::True,$module);
}
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10845	10950	
==>=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10845	10950	
==>=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10845	10950	
==>=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHE <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21323	21419	
==>fine float_substr     substrs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16255	16394	
==>s.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19732	19871	
==>s.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19265	19404	
==>s.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pro <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	673	766	
==>::override::PCRE - Perl-compatible regular expressions

=head1 SYNOPSIS

    use re::override- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7493	7619	
==>ar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'clos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7686	7812	
==>ar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'clos <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1257	1351	
==>print of constant size because the
algorithm is based on statistics. This was my main motivatio <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1257	1351	
==>print of constant size because the
algorithm is based on statistics. This was my main motivatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2668	2766	
==>my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($cont <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3334	3432	
==>= $@ ? "Eval of -CPerl5 code failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::On <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2668	2766	
==>my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2668	2766	
==>my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6073	6163	
==>te($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6073	6163	
==>te($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramet <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6073	6163	
==>te($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramet <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4575	4695	
==>s;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4575	4695	
==>s;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14513	14624	
==>"TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14513	14624	
==>"TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6126	6228	
==>_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6126	6228	
==>_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6126	6228	
==>_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8115	8223	
==>index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8115	8223	
==>index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8115	8223	
==>index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3188	3294	
==>ine subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ => @caller[ %idx{$_} ] } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6399	6553	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6592	6746	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5846	5999	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6039	6192	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	447	570	
==>on (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	447	570	
==>on (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	447	570	
==>on (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee. <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2360	2468	
==>\
multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indicies -> $k {
	pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1115	1219	
==>{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1115	1219	
==>{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1115	1219	
==>{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6337	6470	
==>_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6337	6470	
==>_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rul <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2724	2818	
==>t $other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2724	2818	
==>t $other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Se <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5157	5290	
==>st operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5157	5290	
==>st operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21266	21363	
==>s this would come up with keys which are unique across all Perl packages
(perhaps the key name can <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21266	21363	
==>s this would come up with keys which are unique across all Perl packages
(perhaps the key name can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5716	5881	
==>f;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5716	5881	
==>f;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5716	5881	
==>f;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2736	2834	
==>Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2736	2834	
==>Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2736	2834	
==>Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13098	13191	
==>d C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13098	13191	
==>d C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	923	1015	
==>or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Al <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	923	1015	
==>or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2203	2338	
==>f if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2132	2264	
==>f if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $matc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15876	15975	
==>sed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15876	15975	
==>sed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4731	4819	
==>e_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4731	4819	
==>e_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4731	4819	
==>e_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4493	4616	
==>next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4493	4616	
==>next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4493	4616	
==>next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6661	6767	
==>{
  local $_ = shift;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i an <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	118	263	
==>';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require D <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	113	258	
==>';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require D <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1937	2072	
==>"$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1915	2050	
==>"$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2081	2182	
==>ew Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2081	2182	
==>ew Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2006	2098	
==>C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2006	2098	
==>C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2845	2949	
==>hod $label)))
         (= $current (&dispatcher do))))
     ($method))

=cut

$::ENV->create('WALKMETH' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8316	8402	
==>============================================================

use FindBin;
use File::Sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8316	8402	
==>============================================================

use FindBin;
use File::Sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8316	8402	
==>============================================================

use FindBin;
use File::Sp <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1326	1527	
==>, Comparator);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11816	11940	
==>0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut

=for later
sub wrap { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6459	6558	
==>em'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'x <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6459	6558	
==>em'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9781	9899	
==>::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9781	9899	
==>::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9781	9899	
==>::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27731	27835	
==>umper($res);
	    mkMatch(length($s),$res);
	}
	else { MatchX->new()->set_as_failed() }
    };
}
my $rx = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8261	8370	
==>orking because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # C <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8261	8370	
==>orking because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2302	2403	
==>NDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2302	2403	
==>NDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13973	14137	
==>.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4074	4214	
==>.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4074	4214	
==>.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4074	4214	
==>.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4823	4926	
==>XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4823	4926	
==>XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1138	1236	
==>hift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self- <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1138	1236	
==>hift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self- <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	224	333	
==>erl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	224	333	
==>erl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	98	196	
==>ntersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	98	196	
==>ntersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1681	1803	
==>g{'_meta_dir'}        = [ Path::Class::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1094	1207	
==>'Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1094	1207	
==>'Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1094	1207	
==>'Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	838	992	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	838	992	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	838	992	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->v <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19242	19343	
==>) is builtin is primitive { List::pop(@array) };
multi pop ($array) is builtin is primitive { die "Can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13884	13999	
==>ispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13884	13999	
==>ispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13884	13999	
==>ispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHE <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1958	2058	
==>me>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no lon <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1958	2058	
==>me>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no lon <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	849	959	
==>= new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	849	959	
==>= new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	849	959	
==>= new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9736	9841	
==>g index around, 
# XXX - weaken self-referential things

=pod

A "rule" function gets as argument a l <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28632	28726	
==>apped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bei <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33184	33278	
==>apped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bei <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32312	32406	
==>apped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't bei <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23666	23754	
==>n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	564	723	
==>ue_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	564	723	
==>ue_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	564	723	
==>ue_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13587	13697	
==>$.v};

	die "no such identifier " . $.v unless defined $t;
	
	$t;
}

# values also pass the set of generics unc <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4602	4714	
==>= matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1425	1521	
==>", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1425	1521	
==>", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1425	1521	
==>", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6349	6459	
==>> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6349	6459	
==>> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return P <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16148	16241	
==>handle it internally, while another one displays it to the
user instead.

Locale::KeyedText pr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16148	16241	
==>handle it internally, while another one displays it to the
user instead.

Locale::KeyedText pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1528	1693	
==>SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1528	1693	
==>SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1528	1693	
==>SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6427	6521	
==>hing kernel from \"$kernel_uri\"",
  help   => "Remove \"$kernel_local\" if you want mklivecd.p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18047	18224	
==>}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18326	18503	
==>}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10832	10925	
==>gth returns Str>

=back

B<The following informational functions are fetched on-demand>

=over <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10832	10925	
==>gth returns Str>

=back

B<The following informational functions are fetched on-demand>

=over <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13969	14133	
==>ring.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4070	4210	
==>ring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4070	4210	
==>ring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4070	4210	
==>ring.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	357	471	
==>proxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1217	1326	
==>{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	956	1060	
==>{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1161	1265	
==>{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	226	332	
==>." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	226	332	
==>." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	226	332	
==>." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     ( <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1837	1934	
==>provided
as a curried default.

All of the optional parameters should be supplied by name.

Note t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31480	31577	
==>t. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36030	36127	
==>t. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$pr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18872	18963	
==>setta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18872	18963	
==>setta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3597	3694	
==>- add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3597	3694	
==>- add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3597	3694	
==>- add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	64	159	
==>londie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quote printable/;
use Scalar <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9920	10041	
==>and $test{skipped} + $test{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skippe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34127	34237	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34127	34237	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34127	34237	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3006	3101	
==>v.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3006	3101	
==>v.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3006	3101	
==>v.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7167	7281	
==>> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7167	7281	
==>> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7167	7281	
==>> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13581	13692	
==>RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow quantifie <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4085	4197	
==>os'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' , <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4085	4197	
==>os'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' , <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	935	1047	
==>os'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' , <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17867	17985	
==>fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$start,$fi - $s <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	620	735	
==>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	620	735	
==>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14008	14110	
==>at safer version of the sometimes wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1147	1257	
==>ms -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1147	1257	
==>ms -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17098	17194	
==>ality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17098	17194	
==>ality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14265	14415	
==>rface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_l <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14265	14415	
==>rface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_l <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2235	2346	
==>en '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2235	2346	
==>en '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10173	10312	
==>CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>" <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10173	10312	
==>CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17855	17947	
==>formation about the software being
used by the originating server program handling the reques <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17855	17947	
==>formation about the software being
used by the originating server program handling the reques <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	845	962	
==>printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    print "$desc: $k => $v\n";
  }
  if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	291	395	
==>extkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	291	395	
==>extkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	291	395	
==>extkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Contai <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10724	10836	
==>de_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3159	3263	
==>rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3159	3263	
==>rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3159	3263	
==>rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15901	16059	
==>tr;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15901	16059	
==>tr;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15901	16059	
==>tr;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	17	111	
==>odule::Install::Win32;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEG <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5871	5986	
==>ex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5829	5927	
==>s/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5829	5927	
==>s/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5829	5927	
==>s/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3446	3546	
==>ODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3446	3546	
==>ODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3446	3546	
==>ODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	115	206	
==>on zero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not imp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16157	16296	
==>r $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16157	16296	
==>r $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4553	4651	
==>object.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4803	4901	
==>object.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20197	20297	
==>st
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19156	19256	
==>st
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20197	20297	
==>st
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19156	19256	
==>st
traffic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11111	11225	
==>inite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11111	11225	
==>inite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11111	11225	
==>inite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17370	17462	
==>ish modules in a much more sane manner.
Module::Compile controls the compilation process, cal <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17370	17462	
==>ish modules in a much more sane manner.
Module::Compile controls the compilation process, cal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6197	6332	
==>DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6197	6332	
==>DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply re <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5936	6052	
==>l = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clone <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5936	6052	
==>l = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clone <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8777	9004	
==>etail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End Pugs ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14640	14747	
==>rl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_init <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14640	14747	
==>rl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_init <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14640	14747	
==>rl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_init <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3572	3682	
==>npath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args her <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3572	3682	
==>npath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args her <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7679	7782	
==>t(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return cano <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7679	7782	
==>t(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return cano <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2397	2508	
==>s = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2397	2508	
==>s = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2397	2508	
==>s = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17011	17161	
==>:canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17011	17161	
==>:canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17011	17161	
==>:canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14275	14391	
==>elation::Example {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SEL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8900	9029	
==>ds => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8900	9029	
==>ds => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8900	9029	
==>ds => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTR <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20018	20133	
==>ed} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) {
            $bonusmsg .= " and $tot->{sub_skipped} subtest" <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	211	324	
==>e;
    return $?SELF;
}

method addMethod(Method--Perl6 $meth) {
    ...
}

method apply() {
    ...
}


=head1 NA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3576	3684	
==>p,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3576	3684	
==>p,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3576	3684	
==>p,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1911	2033	
==>s byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1911	2033	
==>s byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10622	10717	
==>texts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) return <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10680	10775	
==>texts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) return <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4222	4340	
==>y $no_index = $values{no_index} ) {
        push @{ $no_index->{'directory'} }, 'inc';
        require YAML;
        lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41020	41117	
==>AME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41020	41117	
==>AME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41020	41117	
==>AME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3704	3816	
==>:flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3888	4000	
==>:flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5759	5869	
==>Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5759	5869	
==>Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5684	5783	
==>$.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This me <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5684	5783	
==>$.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7881	7980	
==>$.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11843	11960	
==>c(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11843	11960	
==>c(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1668	1784	
==>r  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool : <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1668	1784	
==>r  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	375	496	
==>st) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	410	531	
==>st) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	375	496	
==>st) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9588	9709	
==>st) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1735	1836	
==>al $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3353	3446	
==>:Test class represents a single test within the
Test::Builder framework. The class itself is a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3353	3446	
==>:Test class represents a single test within the
Test::Builder framework. The class itself is a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5550	5643	
==>:Test class represents a single test within the
Test::Builder framework. The class itself is a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10764	10924	
==>cro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7105	7265	
==>cro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7954	8114	
==>cro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6666	6789	
==>$S0 = substr target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 go <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6969	7072	
==>the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling wi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6969	7072	
==>the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	28	128	
==>part of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Buil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	28	128	
==>part of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Buil <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6026	6131	
==>ier_scope(M,X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6863	6957	
==>ction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6863	6957	
==>ction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6863	6957	
==>ction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13494	13600	
==>S

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13494	13600	
==>S

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13494	13600	
==>S

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10403	10499	
==>} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1663	1768	
==>"utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1663	1768	
==>"utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1663	1768	
==>"utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7902	8030	
==>m.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7902	8030	
==>m.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1465	1558	
==>}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functiona <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1465	1558	
==>}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functiona <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	945	1079	
==>' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() ,} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2520	2649	
==>" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2520	2649	
==>" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2520	2649	
==>" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1004	1113	
==>_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1004	1113	
==>_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30309	30405	
==>It returns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble thos <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34861	34957	
==>It returns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble thos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38496	38622	
==>ay->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38496	38622	
==>ay->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38496	38622	
==>ay->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10690	10792	
==>smokeserv/README">smokeserv's
    README</a> for details.
  </p>

  <p>
    Note that old smoke reports <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11012	11092	
==>tate:
--------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11012	11092	
==>tate:
--------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11012	11092	
==>tate:
--------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6404	6513	
==>o) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5534	5643	
==>o) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6404	6513	
==>o) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5534	5643	
==>o) returns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	115	247	
==>r @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	115	247	
==>r @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4124	4219	
==>($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4124	4219	
==>($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2152	2332	
==>r->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2152	2332	
==>r->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2152	2332	
==>r->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9489	9592	
==>elem     = document.getElementById("details_"  + id),
          expander = document.getElementById("expa <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	557	984	
==>0 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	557	984	
==>0 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2713	2832	
==>::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2713	2832	
==>::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2329	2435	
==>!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # Firs <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2329	2435	
==>!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # Firs <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	375	472	
==>code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	375	472	
==>code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5435	5533	
==>k properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5435	5533	
==>k properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5435	5533	
==>k properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1482	1607	
==>/perl6/doc/trunk/design/syn/S06.pod
    bit         single native bit
    int         native integer
    str         native st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	228	322	
==>} => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	228	322	
==>} => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	228	322	
==>} => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handle <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6784	6883	
==>rinted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

ste <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4136	4235	
==>rinted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

ste <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6784	6883	
==>rinted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

ste <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4136	4235	
==>rinted too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

ste <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10396	10506	
==>return "$_[1] negate( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16947	17034	
==>s->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16947	17034	
==>s->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16947	17034	
==>s->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	165	286	
==>[]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	165	286	
==>[]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	165	286	
==>[]
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	803	910	
==><=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This module provides a P <==
4	/Users/nnunley/pugs/util/package-osx.pl	3571	3677	
==>pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man/man3/ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3878	3981	
==>:new(@values);
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa(' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27221	27316	
==>This method is a generic relational operator that returns a new Relation
which has a superset of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31773	31868	
==>This method is a generic relational operator that returns a new Relation
which has a superset of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	299	392	
==>:Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	299	392	
==>:Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	299	392	
==>:Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1993	2080	
==>:ENV = Perl6::Runtime::get_top_level_env();

## ---------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4197	4336	
==>= $i;
    }
    if ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = ma <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1499	1642	
==>t_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for now
        set => "Set", iset => "Set", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15638	15733	
==>$params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15638	15733	
==>$params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15638	15733	
==>$params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5527	5634	
==>tant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5527	5634	
==>tant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5527	5634	
==>tant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*) <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	120	218	
==>Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann auch das:
my Schafspe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4837	4970	
==>";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bareword} eq 'class' ? ';use Moose' : '' ) .
                " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3609	3723	
==>ate->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3860	3971	
==>ate->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3860	3971	
==>ate->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{boo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	475	599	
==>},
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	469	593	
==>},
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	160	273	
==>t but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	160	273	
==>t but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	610	771	
==>:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                give <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	610	771	
==>:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                give <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2233	2351	
==>d the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2233	2351	
==>d the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store t <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11315	11429	
==>get, pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2
    pos += 2
    goto subr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	220	327	
==>t one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled from the ar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7455	7560	
==>if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7455	7560	
==>if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$eve <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8587	8684	
==>g methods will
invoke parse() if the tree has not been made yet.

=head2 Setting and Parsing Toget <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8308	8407	
==>but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been review <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8308	8407	
==>but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been review <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5640	5729	
==>2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=o <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5640	5729	
==>2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10915	11036	
==>else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10915	11036	
==>else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2929	3027	
==>d r8593.
multi Array::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34293	34390	
==>tacharacter.

We have added a handler for the '&' metacharacter, but now we need to
write the supp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2328	2430	
==>ldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2328	2430	
==>ldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2328	2430	
==>ldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2335	2431	
==>RAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	207	357	
==>y>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	207	357	
==>y>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	729	844	
==>pture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	722	837	
==>pture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23657	23770	
==>_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23657	23770	
==>_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23657	23770	
==>_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13587	13675	
==>>
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120,D0, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5950	6068	
==>type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5950	6068	
==>type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5796	5891	
==>lean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5796	5891	
==>lean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTT <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2919	3020	
==>arp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5392	5484	
==>{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5392	5484	
==>{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5392	5484	
==>{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12373	12509	
==>s}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12373	12509	
==>s}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12373	12509	
==>s}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3929	4058	
==>ay => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Te <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12840	12968	
==>sage)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open() <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12840	12968	
==>sage)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open() <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6033	6126	
==>onality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this doc <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6033	6126	
==>onality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this doc <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	701	804	
==>ode(%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    for(split('&', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3861	3961	
==>ence in @args, it will be substituted by
# "-" and the contents of the reference will be written to p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3861	3961	
==>ence in @args, it will be substituted by
# "-" and the contents of the reference will be written to p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3861	3961	
==>ence in @args, it will be substituted by
# "-" and the contents of the reference will be written to p <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	618	714	
==>tle whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	618	714	
==>tle whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6561	6654	
==>', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11619	11712	
==>', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method b <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17950	18054	
==>= $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Literal" ]

.sub "p6analyze" :method
    .p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3205	3303	
==>m 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3205	3303	
==>m 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8191	8370	
==>oxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8191	8370	
==>oxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8191	8370	
==>oxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junc <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2145	2247	
==>do.  All
it does in such cases is die with a complaint.  Real solvers usually do
a bit of algorithm swi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	628	739	
==>e     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	628	739	
==>e     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	628	739	
==>e     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2060	2157	
==>\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7490	7594	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7490	7594	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7490	7594	
==>itive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix <==
4	/Users/nnunley/pugs/util/importgraph.pl	1187	1287	
==>eturn;
  }

  $modules{$module_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ig <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1526	1652	
==>($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1526	1652	
==>($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $se <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18481	18575	
==>ally use the perl regcompp and regexecp hooks (C functions
which get called on regular expressi <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2771	2865	
==>ally use the perl regcompp and regexecp hooks (C functions
which get called on regular expressi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	528	640	
==>}, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	528	640	
==>}, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	528	640	
==>}, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8 <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1329	1432	
==>un.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4168	4275	
==>$arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	785	891	
==>verload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	785	891	
==>verload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	785	891	
==>verload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9580	9756	
==>),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass the string index around, 
# X <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1389	1507	
==>head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20817	20930	
==>ok-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17238	17351	
==>ok-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	459	583	
==>native;
    my @seqs = (
        list->new($self->{class}),          # the class we are linearizing
        (map { $_->send(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	911	1011	
==>$a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:</ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	911	1011	
==>$a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:</ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	911	1011	
==>$a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:</ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3118	3340	
==>new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17167	17301	
==>d $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17167	17301	
==>d $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17167	17301	
==>d $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WAL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9612	9797	
==>( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $other!) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14006	14148	
==>tch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14006	14148	
==>tch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14006	14148	
==>tch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3490	3581	
==>=> role 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3148	3240	
==>aram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3148	3240	
==>aram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3148	3240	
==>aram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub j <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	612	721	
==>d m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Example <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1293	1400	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1293	1400	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1293	1400	
==>ethod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23729	23823	
==>59|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22502	22596	
==>59|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23729	23823	
==>59|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22502	22596	
==>59|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	707	843	
==>,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	718	854	
==>,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-captu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2412	2523	
==>poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2412	2523	
==>poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1805	1919	
==>is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1805	1919	
==>is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1805	1919	
==>is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub c <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9283	9390	
==>PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't open $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3323	3431	
==>cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3323	3431	
==>cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3323	3431	
==>cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6717	6842	
==>end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	701	803	
==>ool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: L <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	701	803	
==>ool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: L <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	701	803	
==>ool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: L <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16233	16347	
==>le negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12654	12768	
==>le negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3616	3712	
==>ray
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures shou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3616	3712	
==>ray
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures shou <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1835	1934	
==>de' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5607	5706	
==>depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1835	1934	
==>de' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5665	5764	
==>depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	887	999	
==>$extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1280	1392	
==>$extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	887	999	
==>$extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1280	1392	
==>$extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5363	5481	
==>t $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4493	4611	
==>t $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5363	5481	
==>t $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4493	4611	
==>t $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1180	1282	
==>&& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1180	1282	
==>&& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1180	1282	
==>&& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	758	855	
==>shift;
    $self->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	259	370	
==>the relevant files to the repo
    for my $archive ( qx[find root-* -type f | grep '$Ext\$'] ) {
        chomp $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	785	885	
==>tput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	785	885	
==>tput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1341	1441	
==>tput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	471	579	
==>rations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	471	579	
==>rations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14033	14137	
==>g template available.
        print $translator.translate_message(
            Locale::KeyedText::Message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14033	14137	
==>g template available.
        print $translator.translate_message(
            Locale::KeyedText::Message <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2669	2831	
==>igenClass) {
                my $eigenclass = $EigenClass->new(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1712	1845	
==>rn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not impleme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1712	1845	
==>rn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not impleme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1712	1845	
==>rn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24277	24387	
==>defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24277	24387	
==>defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24277	24387	
==>defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0 <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3161	3264	
==>y / 7) }

method day_of_month returns Int { $.day }
method day_of_month_0 returns Int { $.day - 1 }
meth <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12238	12364	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6805	6931	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12238	12364	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6805	6931	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5143	5260	
==>my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5143	5260	
==>my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	854	952	
==>rns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	854	952	
==>rns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11823	11947	
==>hift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    di <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	232	351	
==>hift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    di <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1737	1835	
==>e value of the 
pair is currently unused, but for forward compatibility it should always be the 
va <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1737	1835	
==>e value of the 
pair is currently unused, but for forward compatibility it should always be the 
va <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5949	6124	
==>ody => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9426	9601	
==>ody => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8482	8657	
==>ody => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26992	27086	
==>f a directory, harness will check after each
test whether new files appeared in that directory, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6088	6181	
==>>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6088	6181	
==>>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6088	6181	
==>>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2114	2209	
==>f->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2114	2209	
==>f->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2114	2209	
==>f->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}- <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18337	18474	
==>f the perl core, to permit the use
of alternate regexp engines.  There being little documentation, we
reverse engineering perl source.

We <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23417	23519	
==>ue => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$code.' } catch Perl6::R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12802	12900	
==>emoved.  In scalar
context the number of fields removed is returned.

Note that if you pass in mult <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12802	12900	
==>emoved.  In scalar
context the number of fields removed is returned.

Note that if you pass in mult <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1783	1904	
==>in     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NA <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1783	1904	
==>in     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1722	1833	
==>oping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Dr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1722	1833	
==>oping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Dr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7676	7804	
==>rn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7676	7804	
==>rn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2281	2394	
==>thod start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2281	2394	
==>thod start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24795	24891	
==>rns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29347	29443	
==>rns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () retur <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2002	2090	
==>-----------------------------------------------------------------
## adding children 

me <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2002	2090	
==>-----------------------------------------------------------------
## adding children 

me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38939	39058	
==>d shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cen <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38939	39058	
==>d shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cen <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38939	39058	
==>d shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cen <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1252	1368	
==>intGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += GolfScore($s) }
   print "You shot a ro <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8749	8859	
==>hared libraries pugs, parrot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2093	2200	
==>t '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2093	2200	
==>t '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2093	2200	
==>t '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10338	10450	
==>ception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10338	10450	
==>ception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subd <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10338	10450	
==>ception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subd <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1739	1837	
==>\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $c <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1441	1576	
==>";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module provides a Perl interface for pluggable reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5985	6110	
==>tubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5985	6110	
==>tubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5985	6110	
==>tubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8619	8785	
==>e::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8619	8785	
==>e::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( define <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8619	8785	
==>e::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( define <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2354	2479	
==>tically by  --
--                  util/gen_prelude.pl                       --
---------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2122	2229	
==>{
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2122	2229	
==>{
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown co <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4099	4198	
==>handle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4099	4198	
==>handle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Even <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5104	5226	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5104	5226	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5104	5226	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5309	5444	
==>f( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5531	5666	
==>f( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumpe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5435	5559	
==>$tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && . <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5435	5559	
==>$tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && . <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3203	3306	
==>i method Array::shift (@array is rw : --> Scalar) {
#    @array.splice(0,1);
#}

# copied from S29draft. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5604	5699	
==>uilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5604	5699	
==>uilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7801	7896	
==>uilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19641	19741	
==>ve is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Interna <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1273	1370	
==>aining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harne <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1273	1370	
==>aining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1820	1917	
==>aining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harne <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3994	4095	
==>e.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\texttt
#{$file
#}
#\\end{block}
#E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1472	1569	
==>('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1472	1569	
==>('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1472	1569	
==>('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10346	10464	
==>$test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "skipp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28851	28947	
==>e set members.  This
method supports having the new attributes having the same names as old
attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33403	33499	
==>e set members.  This
method supports having the new attributes having the same names as old
attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32540	32636	
==>e set members.  This
method supports having the new attributes having the same names as old
attri <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1657	1856	
==>alues is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 865 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4460	4560	
==>??
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4460	4560	
==>??
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4460	4560	
==>??
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16279	16391	
==>lse touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20705	20817	
==>lse touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17872	17967	
==>he software being
used by the originating server program handling the request.

=item $h.from

T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17872	17967	
==>he software being
used by the originating server program handling the request.

=item $h.from

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5213	5328	
==>Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6481	6596	
==>Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5213	5328	
==>Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6469	6584	
==>Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1107	1225	
==>method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1107	1225	
==>method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1107	1225	
==>method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40352	40458	
==>changed the files and the date of any
changes, in addition to preserving this original copyright notice and <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25876	25982	
==>changed the files and the date of any changes, in
addition to preserving this original copyright notice and <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40352	40458	
==>changed the files and the date of any
changes, in addition to preserving this original copyright notice and <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25876	25982	
==>changed the files and the date of any changes, in
addition to preserving this original copyright notice and <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1131	1241	
==>rn ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == I <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1131	1241	
==>rn ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1	94	
==>ackage Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1	94	
==>ackage Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	332	542	
==>}
            else {
                $program = "$tab ruleop::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\n";
            }
            #print "program $progr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	314	413	
==>GS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	314	413	
==>GS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	314	413	
==>GS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	509	629	
==>?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	509	629	
==>?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	509	629	
==>?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2337	2443	
==>a::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2337	2443	
==>a::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2684	2790	
==>a::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3077	3178	
==>my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4813	4974	
==>t;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4813	4974	
==>t;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4813	4974	
==>t;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1959	2080	
==>erl6'   { Pugs::Internals::eval($code) };
            when 'perl5'   { Pugs::Internals::eval_perl5($code) };
            w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9604	9757	
==>a( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map { _pp_depends( [$_] ) } @$entry;
                $str .= ') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1051	1147	
==>ive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1051	1147	
==>ive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1051	1147	
==>ive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6029	6110	
==>= def_stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9487	9642	
==>if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15031	15186	
==>if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9487	9642	
==>if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15025	15180	
==>if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1625	1770	
==>> {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1625	1770	
==>> {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20721	20812	
==>d L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20721	20812	
==>d L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8757	8875	
==>E($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8303	8416	
==>g.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8303	8416	
==>g.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8303	8416	
==>g.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20912	21014	
==>need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20912	21014	
==>need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4894	4991	
==>,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4894	4991	
==>,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PI <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	30	146	
==>RI::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	30	146	
==>RI::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20254	20345	
==>ad2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed whe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20254	20345	
==>ad2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13920	14032	
==>methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13920	14032	
==>methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13920	14032	
==>methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3198	3358	
==>tch => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3072	3227	
==>tch => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18827	18921	
==>$eval_log_file;
sub eval_p5_log_code {
    my($code)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10985	11082	
==>tainer which stores data to be used or
displayed by your program.  It is analagous to a simplified <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14148	14245	
==>tainer which stores data to be used or
displayed by your program.  It is analagous to a simplified <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10985	11082	
==>tainer which stores data to be used or
displayed by your program.  It is analagous to a simplified <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14148	14245	
==>tainer which stores data to be used or
displayed by your program.  It is analagous to a simplified <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4061	4176	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4061	4176	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4061	4176	
==>thods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9481	9570	
==>on method');
   
$iFoo->add_singleton_method('another_test_iFoo_singleton_method' => sub { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2191	2326	
==>state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2120	2252	
==>state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1482	1590	
==>y $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1482	1590	
==>y $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{captu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6507	6617	
==>] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_ccla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1987	2130	
==>lock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1909	2047	
==>lock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2234	2357	
==>burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2234	2357	
==>burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1474	1593	
==>s) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _draw_class_node($class);
        $outpu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7295	7391	
==>e ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# resto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7295	7391	
==>e ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# resto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7295	7391	
==>e ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# resto <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9893	10010	
==>list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15734	15851	
==>list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9893	10010	
==>list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15728	15845	
==>list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1489	1589	
==>um=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6494	6584	
==>:IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6494	6584	
==>:IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6494	6584	
==>:IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1621	1767	
==>rs => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1621	1767	
==>rs => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28215	28330	
==>capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28494	28609	
==>capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::D <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9586	9701	
==>my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9586	9701	
==>my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	941	1033	
==>t doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	941	1033	
==>t doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1110	1234	
==>ir.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1110	1234	
==>ir.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1110	1234	
==>ir.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10714	10808	
==>yzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37610	37702	
==>he source Relations,
such that all common attribute names and corresponding common tuple valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42159	42251	
==>he source Relations,
such that all common attribute names and corresponding common tuple valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41809	41901	
==>he source Relations,
such that all common attribute names and corresponding common tuple valu <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	110	211	
==>l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2143	2242	
==>re. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2143	2242	
==>re. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2143	2242	
==>re. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  J <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40557	40654	
==>NY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURP <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26071	26168	
==>NY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURP <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40557	40654	
==>NY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURP <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26071	26168	
==>NY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURP <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3119	3254	
==>t(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3119	3254	
==>t(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3119	3254	
==>t(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Mat <==
4	/Users/nnunley/pugs/util/package-osx.pl	5266	5363	
==>Perl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20787	20904	
==>}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17208	17325	
==>}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17406	17536	
==>s) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13827	13957	
==>s) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }x <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	862	954	
==>eft;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Typ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	862	954	
==>eft;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Typ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	477	623	
==>$tried++;
        install( $entry );
    }
    
    warn "No packaged found matching '$package'\n" unless $tried;
}                        

### XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	437	553	
==>izer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	437	553	
==>izer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	437	553	
==>izer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $so <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	147	270	
==>acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	563	667	
==>_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	563	667	
==>_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	563	667	
==>_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	800	951	
==>ge =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14076	14210	
==>self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14076	14210	
==>self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14076	14210	
==>self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            pu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3080	3208	
==>side closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3264	3392	
==>side closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	84	186	
==>::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	84	186	
==>::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5514	5643	
==>?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6782	6911	
==>?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5514	5643	
==>?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6770	6899	
==>?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2749	2881	
==>->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.for <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2749	2881	
==>->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.for <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10687	10797	
==>r:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10687	10797	
==>r:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24760	24860	
==>of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post to <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23524	23624	
==>of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24760	24860	
==>of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23524	23624	
==>of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post to <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2095	2236	
==>t_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for better d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3464	3597	
==>t_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for better d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4759	4861	
==>given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faste <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4759	4861	
==>given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faste <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10094	10257	
==>)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10094	10257	
==>)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10094	10257	
==>)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5207	5331	
==>mmar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $<na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	175	273	
==>hing for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	175	273	
==>hing for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	175	273	
==>hing for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opt <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	158	248	
==>retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBuck <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2099	2204	
==>=> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2099	2204	
==>=> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2099	2204	
==>=> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->ST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16516	16612	
==>NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16516	16612	
==>NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16516	16612	
==>NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::V <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	319	409	
==>erl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2737	2837	
==>tpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2737	2837	
==>tpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2737	2837	
==>tpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10770	10875	
==>lator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10770	10875	
==>lator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3152	3249	
==>t,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3152	3249	
==>t,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6823	6977	
==>rn $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6823	6977	
==>rn $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6823	6977	
==>rn $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3977	4067	
==>$self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3977	4067	
==>$self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3977	4067	
==>$self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1518	1606	
==>ncompress_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smoke <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9072	9195	
==>new(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	377	476	
==>new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	453	552	
==>new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params- <==
4	/Users/nnunley/pugs/util/package-osx.pl	8276	8373	
==>man3/Perl6::Spec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr/local/man/ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14940	15043	
==>end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14940	15043	
==>end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5627	5714	
==>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5627	5714	
==>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$ch <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5519	5635	
==>ndows-ish system, without GHC
        # in our path.   Let's hunt around for it.

        my $slash = ( $Config{osnam <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5044	5143	
==>ual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4171	4270	
==>ual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5044	5143	
==>ual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4171	4270	
==>ual($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
mu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13359	13532	
==>ush @rv, '-';
                $string = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3520	3673	
==>ush @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3520	3673	
==>ush @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3520	3673	
==>ush @rv, '-';
            $string = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $strin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12650	12784	
==>nt $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12650	12784	
==>nt $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34921	35018	
==>ust all be set when the object is constructed.  If you want to
conceptually change an existing Tra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34921	35018	
==>ust all be set when the object is constructed.  If you want to
conceptually change an existing Tra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13369	13501	
==>: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9555	9687	
==>: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10391	10523	
==>: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34750	34853	
==>ckage Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx) = <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2021	2143	
==>5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5227	5329	
==>le who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5227	5329	
==>le who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6102	6234	
==>59-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:pe <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6102	6234	
==>59-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	460	559	
==>y override things they didn't intend to.

# Determine which stack frame points to the code we are fi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	460	559	
==>y override things they didn't intend to.

# Determine which stack frame points to the code we are fi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	242	342	
==>is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail- <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	242	342	
==>is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2033	2132	
==>->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self->{params} an <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14553	14651	
==>->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self->{params} an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16444	16572	
==>{
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16444	16572	
==>{
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16444	16572	
==>{
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8438	8551	
==>g @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_assign($lh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12036	12160	
==>HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6603	6727	
==>HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12036	12160	
==>HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6603	6727	
==>HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	71	169	
==>rph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	71	169	
==>rph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	71	169	
==>rph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10516	10628	
==>wing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10516	10628	
==>wing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10516	10628	
==>wing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ----- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17580	17673	
==>d the object's C<type> is determined dynamically.

=item Character Class Hashes

Character cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8742	8926	
==>od eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8742	8926	
==>od eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8742	8926	
==>od eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    retu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27191	27300	
==>hr($_)} @$strA);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + len <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6163	6266	
==>th, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8231	8334	
==>th, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6163	6266	
==>th, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8231	8334	
==>th, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9572	9690	
==>il);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9572	9690	
==>il);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9572	9690	
==>il);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	138	246	
==>]);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	974	1078	
==>([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	974	1078	
==>([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	974	1078	
==>([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	512	608	
==>d to cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17743	17876	
==>b {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17743	17876	
==>b {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17743	17876	
==>b {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1887	1987	
==>p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9055	9220	
==>unt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9055	9220	
==>unt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9055	9220	
==>unt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $leng <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4811	4927	
==>char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4811	4927	
==>char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5992	6091	
==>ful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be nece <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5992	6091	
==>ful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be nece <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2458	2566	
==>UT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+} <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2458	2566	
==>UT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+} <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3682	3775	
==>This module is primarily for reading human written files, and anything we
write shouldn't need <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3682	3775	
==>This module is primarily for reading human written files, and anything we
write shouldn't need <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	75	176	
==>up unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	75	176	
==>up unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21907	22004	
==>hough such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26459	26556	
==>hough such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7374	7520	
==>ternals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7959	8071	
==>e
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7959	8071	
==>e
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7959	8071	
==>e
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9986	10180	
==>g = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6327	6521	
==>g = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7176	7370	
==>g = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15281	15431	
==>pindex;

            my $name = join '', 
              map {$_->attr('text')} 
                $beg->look_down(_tag=>'~text');

            $name = $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	139	251	
==>::Interface;
my $dumper;

# which modules do diffrent formats use
my %format = (
	yaml => ['YAML'           => \& <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1389	1494	
==>ostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

su <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1389	1494	
==>ostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1469	1574	
==>ostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

su <==
4	/Users/nnunley/pugs/t/packages/Test.pm	238	358	
==>cant_see_pkg {
    return My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8507	8623	
==>[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8507	8623	
==>[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8507	8623	
==>[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1144	1262	
==>>{name}, @_ )
    	: join( ' ', @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemake <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	929	1022	
==>ash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	929	1022	
==>ash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	929	1022	
==>ash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	155	280	
==>anh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1052	1154	
==>b eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1052	1154	
==>b eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1052	1154	
==>b eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2819	2954	
==>,
    );
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12658	12782	
==>do(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12658	12782	
==>do(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2451	2564	
==>can NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2874	2984	
==>can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2369	2479	
==>can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2874	2984	
==>can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	105	216	
==>arp 'confess';
use Scalar::Util 'blessed';

use base 'closure';

sub new {
    my $class = shift;
    my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3096	3194	
==>m::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3096	3194	
==>m::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3096	3194	
==>m::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14567	14676	
==>. (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14567	14676	
==>. (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14567	14676	
==>. (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCla <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28665	28758	
==>ARGV;' t/*.t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6124	6246	
==>f($cls eq 'Hash') {
	die "unimplemented";
    }
    if($cls eq 'IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11821	11938	
==>st::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2243	2352	
==>st::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2243	2352	
==>st::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5088	5189	
==>aml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5088	5189	
==>aml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5088	5189	
==>aml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link opti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1393	1491	
==>s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1885	1996	
==>e; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1885	1996	
==>e; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1885	1996	
==>e; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cla <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11667	11777	
==>lation."
        if !($other!heading === $!heading);

    return Relation::Example.new(
        heading => $!he <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3087	3237	
==>ilename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3304	3454	
==>ilename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4077	4189	
==>elf.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4077	4189	
==>elf.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1096	1231	
==>ef
sub to_bit { bit->new(1)            } # we are always true

# comparitor

sub _compare {
    my ($left, $right) = @_;
    (blessed($r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1306	1428	
==>ined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1306	1428	
==>ined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	195	296	
==>record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	195	296	
==>record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	559	655	
==>ipher, in that keys should produce the same keystream and thus text 
should be enciphered and dec <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	559	655	
==>ipher, in that keys should produce the same keystream and thus text 
should be enciphered and dec <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9087	9181	
==>ods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9087	9181	
==>ods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4564	4689	
==>ap:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8041	8166	
==>ap:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7034	7159	
==>ap:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method pro <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	818	931	
==>=> $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_default <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6715	6832	
==>}
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1158	1268	
==>}

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1158	1268	
==>}

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1158	1268	
==>}

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my su <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11524	11635	
==>ult;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \& <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11524	11635	
==>ult;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \& <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1265	1365	
==>ram;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1405	1505	
==>ram;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	98	222	
==>,
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'strin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	98	222	
==>,
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'strin <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	98	222	
==>,
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'strin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	98	222	
==>,
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'strin <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3711	3821	
==>dule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3769	3879	
==>dule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14605	14699	
==>w
recommended "Good Practice" of ordering the header fields.  Long header
values are not folded <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14605	14699	
==>w
recommended "Good Practice" of ordering the header fields.  Long header
values are not folded <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9142	9252	
==>returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1270	1374	
==>returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1270	1374	
==>returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4455	4554	
==>nk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter types with thunk <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24902	24996	
==>eturn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24902	24996	
==>eturn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a s <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1618	1708	
==>'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{H <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1618	1708	
==>'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{H <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5180	5281	
==>.$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5180	5281	
==>.$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5180	5281	
==>.$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Eval <==
4	/Users/nnunley/pugs/util/package-osx.pl	11834	11928	
==>wheel $dest < ~/.pass");
}

&change_files($dest, %change_files) if (keys %change_files > 0);
&c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2133	2241	
==>he
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2133	2241	
==>he
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2133	2241	
==>he
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ou <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16604	16733	
==>me         :optional
    .param int has_name        :opt_flag
    .local pmc exp
    .local pmc newfrom
    .local pmc code
    .l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9304	9430	
==>sh @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9304	9430	
==>sh @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9304	9430	
==>sh @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	183	315	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	183	315	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	183	315	
==>escription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1628	1757	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following we <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1562	1685	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following we <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6873	6971	
==>to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is reall <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6873	6971	
==>to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is reall <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22383	22508	
==>tch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22662	22787	
==>tch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	205	331	
==>3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	205	331	
==>3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	205	331	
==>3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a s <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1904	2038	
==>tion) {
        # this is really up to your subscription and event subclasses to define these
        # if at all.

        # the defau <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2276	2385	
==>"No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2276	2385	
==>"No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2276	2385	
==>"No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1014	1107	
==>s($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($x <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	21	114	
==>erl-indent-level: 4 -*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

package Test::Harnes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1014	1107	
==>s($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1014	1107	
==>s($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4742	4874	
==>$self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4742	4874	
==>$self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4742	4874	
==>$self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11084	11214	
==>t( '$prefix:<$id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15285	15393	
==>eue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15285	15393	
==>eue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	346	445	
==>ts to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	346	445	
==>ts to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8997	9138	
==>t go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8997	9138	
==>t go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8997	9138	
==>t go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6765	6872	
==>ss); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6765	6872	
==>ss); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6765	6872	
==>ss); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16220	16311	
==>results =~ s/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misctmp\d+\s+aborted <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4249	4362	
==>et1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.dif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4249	4362	
==>et1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.dif <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40601	40697	
==>ty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40601	40697	
==>ty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2454	2562	
==>r(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2454	2562	
==>r(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11848	11946	
==>o you will have to wait
a little while. Until then, you can just write your own functions like this <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11906	12004	
==>o you will have to wait
a little while. Until then, you can just write your own functions like this <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4239	4354	
==>cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as k <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4239	4354	
==>cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5724	5846	
==>0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5724	5846	
==>0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5724	5846	
==>0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13217	13365	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27331	27479	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13496	13644	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27610	27758	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9369	9680	
==>*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yie <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9369	9680	
==>*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yie <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	254	354	
==>ATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers:
#    - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	254	354	
==>ATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers:
#    - <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7377	7497	
==>E);
    my $exit = close FILE;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5508	5616	
==>"@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5508	5616	
==>"@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5508	5616	
==>"@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->ev <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1127	1234	
==>hift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $Config{cc} may contain args; try t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1069	1170	
==>hift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Config{cc} may contain args; try t <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3963	4057	
==>s not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATI <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3963	4057	
==>s not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATI <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12501	12645	
==>ri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12501	12645	
==>ri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15560	15678	
==>nqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15560	15678	
==>nqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $ch <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	257	389	
==>ti sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$minute, Int|Real ?$second,
                   S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6565	6695	
==>=>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6565	6695	
==>=>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6565	6695	
==>=>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4139	4251	
==>s[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4139	4251	
==>s[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4139	4251	
==>s[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5001	5101	
==>sub simplify_type {
		my $self = shift;
		my $type = shift;
		while (Scalar::Util::blessed($type) and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1185	1285	
==>nstructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1185	1285	
==>nstructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1185	1285	
==>nstructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum( <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8038	8132	
==>d2 assert_ghc_pkg

Assert that we have F<ghc_pkg> installed.  This caches its result,
any furth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12714	12918	
==>>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12714	12918	
==>>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12714	12918	
==>>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            f <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13465	13582	
==>p::Parser::ifmatch::_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3315	3422	
==>e=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3315	3422	
==>e=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3315	3422	
==>e=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14938	15065	
==>st be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14938	15065	
==>st be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14938	15065	
==>st be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	247	358	
==>OK 
    $Verbose $Switches $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML_Prin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	49	143	
==>warnings;

use Perl6::MetaModel;

role 'IScalar' => {};

class 'PIL::Run::Container::Scalar' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23866	23958	
==>ndef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23866	23958	
==>ndef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23866	23958	
==>ndef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI S <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5555	5685	
==>> \$initrd_mnt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "terminfo=s"     => \$terminfo,
  help             = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6076	6201	
==>et_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6076	6201	
==>et_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6076	6201	
==>et_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub th <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6596	6706	
==>* But not ROPT_CHECK_ALL */

    
    /* XXX Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33008	33103	
==>les that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37558	37653	
==>les that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36902	36997	
==>les that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_u <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3706	3817	
==>xtensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensions {
    my ($self, $path) = @_;
    my @f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9315	9419	
==>", "count=$initrd_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  ste <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	248	348	
==>is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodby <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	248	348	
==>is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodby <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33335	33434	
==>s

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2028	2124	
==>')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2028	2124	
==>')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2028	2124	
==>')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	765	892	
==>ta
       p6_meta_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2332	2434	
==>ers twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2332	2434	
==>ers twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2332	2434	
==>ers twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4315	4459	
==>) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4303	4447	
==>) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4204	4305	
==>riting your own backslash and assertion rules or macros, you may
    use the following syntactic categ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	823	912	
==>new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	823	912	
==>new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	823	912	
==>new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12132	12230	
==>meter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurren <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12132	12230	
==>meter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurren <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5743	5839	
==>ad> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5743	5839	
==>ad> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8646	8795	
==>>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12553	12697	
==>>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12553	12697	
==>>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15541	15657	
==>go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15541	15657	
==>go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15541	15657	
==>go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Mul <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27066	27153	
==>cterClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar is JavaScript::ECMAScript <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1895	2023	
==>string (Unicode semantics)
    Num         Perl number
    Complex     Perl complex number
    Ref         Perl reference
    Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11968	12061	
==>s::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11968	12061	
==>s::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11968	12061	
==>s::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17093	17197	
==>s

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17093	17197	
==>s

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17093	17197	
==>s

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1027	1118	
==>e_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re_symbol;
our $re_comma = '( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4001	4126	
==>)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4013	4138	
==>)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capt <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	166	289	
==>s rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	166	289	
==>s rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4177	4291	
==> can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4177	4291	
==> can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4177	4291	
==> can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn. <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3630	3734	
==>bclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $ <==
4	/Users/nnunley/pugs/util/func_refact.pl	2119	2239	
==>} or $Conf{debug} eq $new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccs <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8680	8775	
==>th $y->{symbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @_);
	unify($x->right, $y->right <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1553	1655	
==>ack into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1553	1655	
==>ack into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1238	1332	
==>rs = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1238	1332	
==>rs = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1467	1601	
==>t.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1467	1601	
==>t.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1467	1601	
==>t.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function ( <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1540	1632	
==>ers::macif(%?CONFIG{'has_num128'},'Clutter::num_size 128;');


subset bit  of uint1 where { t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1924	2086	
==>{
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1924	2086	
==>{
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1924	2086	
==>{
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11498	11594	
==>teral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDecimalLiteral>
}
rule Str <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1928	2039	
==>3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oc <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2290	2401	
==>3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oc <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1928	2039	
==>3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oc <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2290	2401	
==>3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@oc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9950	10090	
==>my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9950	10090	
==>my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9950	10090	
==>my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7413	7545	
==>r);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7413	7545	
==>r);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7413	7545	
==>r);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL:: <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1425	1556	
==>e {
            my $end = date($/[37..35]);
            $duration = Duration::Gregorian.new
                ( :start($start), :end($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14168	14293	
==>{
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14168	14293	
==>{
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22559	22654	
==>s to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22559	22654	
==>s to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18444	18557	
==>he object' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	60	152	
==>)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	60	152	
==>)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16033	16173	
==>array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16033	16173	
==>array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16033	16173	
==>array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2622	2726	
==>vides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    return $provid <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	212	363	
==>and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3997	4090	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3997	4090	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5521	5614	
==>Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B< <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	261	379	
==>(Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	261	379	
==>(Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	952	1068	
==>(Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	952	1068	
==>(Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2302	2431	
==>ool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9074	9203	
==>ool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2302	2431	
==>ool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9074	9203	
==>ool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24162	24273	
==>response to something it received.  This is typically used by automatons
  (clients with either an AI or other i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22935	23046	
==>response to something it received.  This is typically used by automatons
  (clients with either an AI or other i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24162	24273	
==>response to something it received.  This is typically used by automatons
  (clients with either an AI or other i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22935	23046	
==>response to something it received.  This is typically used by automatons
  (clients with either an AI or other i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8470	8582	
==>nboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8470	8582	
==>nboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8470	8582	
==>nboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MU <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10634	10786	
==>ion <=> $a->version } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        return u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4744	4847	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4744	4847	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4744	4847	
==>sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5865	5981	
==>p { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5865	5981	
==>p { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5865	5981	
==>p { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23213	23334	
==>arn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19634	19755	
==>arn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11366	11465	
==>:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11366	11465	
==>:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	292	400	
==>art ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::Tr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	292	400	
==>art ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::Tr <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3318	3424	
==>elete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Ti <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3318	3424	
==>elete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	911	1019	
==>IL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = .. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	911	1019	
==>IL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = .. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	911	1019	
==>IL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3601	3715	
==>patcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3601	3715	
==>patcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3601	3715	
==>patcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1238	1343	
==>1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9200	9317	
==>t/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delet <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9200	9317	
==>t/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delet <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	327	428	
==>* set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

m <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	327	428	
==>* set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4320	4511	
==>rpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    mat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4320	4511	
==>rpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    mat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4320	4511	
==>rpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    mat <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	325	430	
==>half_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2012	2181	
==>a( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2012	2181	
==>a( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2012	2181	
==>a( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19189	19290	
==>),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::nullary->new( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4392	4546	
==>e loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4392	4546	
==>e loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17392	17494	
==>ated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17392	17494	
==>ated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5022	5131	
==>F); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5022	5131	
==>F); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24693	24791	
==>) any later version.  You should have received a
copy of the GPL as part of the Rosetta distributio <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24693	24791	
==>) any later version.  You should have received a
copy of the GPL as part of the Rosetta distributio <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3788	3913	
==>r);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #ret <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1888	2013	
==>r);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #ret <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3644	3739	
==>ion lacks the actual algorithm description. See links or read
the source (there are about 10 lin <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3644	3739	
==>ion lacks the actual algorithm description. See links or read
the source (there are about 10 lin <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	78	199	
==>ls;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

= <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	78	199	
==>ls;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20469	20564	
==>nstead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20469	20564	
==>nstead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=he <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4893	5012	
==>elf->index_file, $self->index_files(package => $pkg) ) {
        unless (-e $index) {
            # create the directory <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2000	2098	
==>$self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2000	2098	
==>$self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2000	2098	
==>$self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2067	2313	
==>" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junct <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2067	2313	
==>" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junct <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2067	2313	
==>" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junct <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1922	2013	
==>r $event, *@args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as argumen <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	246	388	
==>arn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            if (@{$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26226	26322	
==>subset of the original's attributes; that subset is the same as
those attribute names in the argu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30778	30874	
==>subset of the original's attributes; that subset is the same as
those attribute names in the argu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29771	29867	
==>subset of the original's attributes; that subset is the same as
those attribute names in the argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2802	2907	
==>ort_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2802	2907	
==>ort_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2802	2907	
==>ort_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	446	547	
==>]->{levels}[$_[1]]}, $_[2] ) },
);

# parsed: - the rule replaces the right side
# note: S06 - 'chain' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	564	694	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	951	1081	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	564	694	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	951	1081	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13875	13975	
==>et2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13875	13975	
==>et2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1199	1296	
==>nswer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1199	1296	
==>nswer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13082	13201	
==>::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21132	21251	
==>::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13361	13480	
==>::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21411	21530	
==>::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6269	6363	
==>)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6269	6363	
==>)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6269	6363	
==>)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void] <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1878	2005	
==>AME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1878	2005	
==>AME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message. <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	19	118	
==>m Parameter definieren
class Welt {
	method hallo ( $name ) { "Hallo, $name!".say; }
}
#=Methoden mi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6525	6631	
==>node::_print_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1496	1593	
==>String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1496	1593	
==>String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1496	1593	
==>String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1439	1580	
==>ch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1439	1580	
==>ch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1439	1580	
==>ch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3497	3597	
==>, 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18697	18792	
==>r accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17740	17835	
==>r accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18697	18792	
==>r accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17740	17835	
==>r accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autopi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	493	600	
==>RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8417	8508	
==>d1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8417	8508	
==>d1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8417	8508	
==>d1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9133	9254	
==>f->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9133	9254	
==>f->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9133	9254	
==>f->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arg <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18898	18979	
==>0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7622	7719	
==>List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7622	7719	
==>List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7622	7719	
==>List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2227	2354	
==>)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be sol <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2227	2354	
==>)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be sol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3261	3383	
==>ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $qua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3249	3371	
==>ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $qua <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1938	2073	
==>self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirname );
# 
#         
#         ### copy over sources to a temp di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	610	729	
==>if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	610	729	
==>if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	610	729	
==>if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTRO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3193	3307	
==>lass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3193	3307	
==>lass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3193	3307	
==>lass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3014	3140	
==>next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3014	3140	
==>next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3014	3140	
==>next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	203	306	
==>!!  UGLY, NON-COMMENTED  !!WARNING!!
# -----------------------------------------------

my %Cookies;

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35891	36011	
==>il = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35891	36011	
==>il = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35891	36011	
==>il = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7427	7597	
==>ndencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	728	898	
==>ndencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3072	3184	
==>ush(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is c <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3072	3184	
==>ush(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3026	3138	
==>Method")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3026	3138	
==>Method")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3026	3138	
==>Method")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2658	2764	
==>) {
		return "$node";
	} else {
		die "can't perform runtime cast of ($node)::$from to $to";
	}
}

__PACKAG <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	686	826	
==>v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	686	826	
==>v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4430	4528	
==>span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4430	4528	
==>span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27604	27762	
==>:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27883	28041	
==>:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4195	4322	
==>match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4195	4322	
==>match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4867	4972	
==>> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/supers <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3994	4099	
==>> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/supers <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4867	4972	
==>> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/supers <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3994	4099	
==>> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# comparison is subset/supers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10258	10387	
==>annot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10258	10387	
==>annot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10258	10387	
==>annot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	690	789	
==>_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	690	789	
==>_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	690	789	
==>_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global n <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4050	4212	
==>pe, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4050	4212	
==>pe, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14728	14856	
==>een for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PA <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14728	14856	
==>een for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	604	798	
==>) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	604	798	
==>) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	604	798	
==>) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dis <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48762	48901	
==>symbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	700	823	
==>isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2190	2297	
==>1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2190	2297	
==>1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2190	2297	
==>1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, sc <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	321	425	
==>This file so far represents only a an hour or two of work.
It is very much in a state of flux.

=cut

cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2047	2146	
==>e("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2047	2146	
==>e("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2047	2146	
==>e("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) o <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3336	3452	
==>f->{skip_all};

    my $passed = ($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8317	8423	
==>{ Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8317	8423	
==>{ Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8317	8423	
==>{ Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10223	10343	
==>};
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10223	10343	
==>};
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.sp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23685	23783	
==>edText has
named variables, which can be used in any order, or not used at all, or
used multiple ti <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23685	23783	
==>edText has
named variables, which can be used in any order, or not used at all, or
used multiple ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38541	38648	
==>IVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38541	38648	
==>IVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38541	38648	
==>IVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	430	536	
==>$jib";
}    

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: ni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7901	8001	
==>\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7901	8001	
==>\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.de <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1182	1276	
==>:Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy arra <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1182	1276	
==>:Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy arra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3264	3427	
==>$_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3264	3427	
==>$_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5902	6011	
==>gs (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5698	5803	
==>gs (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4364	4488	
==>'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4557	4681	
==>'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17223	17330	
==>POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_B <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13644	13751	
==>POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_B <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6360	6484	
==>=> chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6360	6484	
==>=> chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10657	10758	
==>on' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10657	10758	
==>on' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4629	4728	
==>{
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4629	4728	
==>{
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4629	4728	
==>{
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1504	1620	
==>!%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1504	1620	
==>!%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1504	1620	
==>!%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19337	19429	
==>mented the problem with using F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Cha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2081	2209	
==>d in the right class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package::Installa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1046	1144	
==>N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1046	1144	
==>N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1046	1144	
==>N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=» <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6641	6756	
==>) {
        unless( File::Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	496	601	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	496	601	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	496	601	
==>put: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %att <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	402	525	
==>(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	402	525	
==>(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	402	525	
==>(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11454	11567	
==>>object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13086	13187	
==>ine number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13086	13187	
==>ine number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13086	13187	
==>ine number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5016	5111	
==>e", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34688	34783	
==>>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and;
  @I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5016	5111	
==>e", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5016	5111	
==>e", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13802	13905	
==>rsistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPer <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13802	13905	
==>rsistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1827	1931	
==>[1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1827	1931	
==>[1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1827	1931	
==>[1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34938	35037	
==>ty
defined by Perl or elsewhere

Neg: 1 if negated

=head2 clump

Family: clump

Types: clump (C<\X> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	584	801	
==>t;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($eve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	584	801	
==>t;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($eve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1090	1188	
==>d to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1090	1188	
==>d to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21748	21848	
==>} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21748	21848	
==>} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21748	21848	
==>} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5227	5326	
==>osure here will be passed a reference to the current value, 
this allows r/w access to the value.

= <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	415	545	
==>backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtrac <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	415	545	
==>backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtrac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	415	526	
==>int Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1204	1315	
==>int Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1965	2058	
==>using synopsis, you should
be left with nothing but questions about what this object represent <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1965	2058	
==>using synopsis, you should
be left with nothing but questions about what this object represent <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1281	1395	
==>$self, $block) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "OR takes a block";    
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3892	3988	
==>DO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3892	3988	
==>DO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3892	3988	
==>DO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scal <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5510	5601	
==>st diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5510	5601	
==>st diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7707	7798	
==>st diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5819	5944	
==>nshift @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7127	7231	
==>, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7127	7231	
==>, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7127	7231	
==>, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4336	4433	
==>r *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4336	4433	
==>r *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4336	4433	
==>r *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18708	18801	
==>(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re,N1,F <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2450	2551	
==>st.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2450	2551	
==>st.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2530	2631	
==>st.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21479	21610	
==>yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9021	9122	
==>` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set is <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9021	9122	
==>` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set is <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7709	7807	
==>e($output_dir, $path);
    my $index_file =  catfile($output_path,"index.html");
    eval { mkpath( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13102	13279	
==>key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13102	13279	
==>key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13102	13279	
==>key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12366	12462	
==>m (and their children).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and er <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1826	1930	
==>);
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is ex <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1826	1930	
==>);
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is ex <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5854	5952	
==>turned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers ar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5854	5952	
==>turned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	769	875	
==>cktracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimizatio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1140	1240	
==>cktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimizatio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	739	839	
==>cktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimizatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1140	1240	
==>cktracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimizatio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5332	5455	
==>"$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6600	6723	
==>"$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5332	5455	
==>"$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6588	6711	
==>"$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1514	1667	
==>}
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9456	9564	
==>------------------------------      
    # this collects a unique list of roles 
    # gather recursively, &r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9456	9564	
==>------------------------------      
    # this collects a unique list of roles 
    # gather recursively, &r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9456	9564	
==>------------------------------      
    # this collects a unique list of roles 
    # gather recursively, &r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34978	35108	
==>,
      type => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the merge() method def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1095	1193	
==>y $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contain <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1095	1193	
==>y $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contain <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1095	1193	
==>y $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contain <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16789	16930	
==>ject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16789	16930	
==>ject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16789	16930	
==>ject) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->su <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9151	9282	
==>)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuild <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14249	14352	
==>IX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8453	8556	
==>IX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $ne <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2544	2639	
==>$other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2544	2639	
==>$other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8628	8725	
==>". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8628	8725	
==>". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8628	8725	
==>". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6063	6188	
==>r 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6063	6188	
==>r 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6063	6188	
==>r 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46137	46255	
==>')->set_attr(symbol->new('$:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')->get_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	212	311	
==>.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	212	311	
==>.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	212	311	
==>.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10572	10657	
==>!.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(v <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	912	1018	
==>){
			$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6630	6731	
==>ame (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6630	6731	
==>ame (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6630	6731	
==>ame (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subme <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2363	2482	
==>ds);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2421	2540	
==>ds);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2697	2809	
==>>_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9144	9284	
==>unctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9144	9284	
==>unctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9144	9284	
==>unctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1804	1944	
==>ose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2045	2185	
==>ose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1804	1944	
==>ose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1804	1944	
==>ose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2069	2205	
==>espace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2069	2205	
==>espace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2069	2205	
==>espace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	200	294	
==>'[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	233	327	
==>'[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Com <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	37	125	
==>@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	37	125	
==>@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1413	1560	
==>d_rule( 
        name => '..',
        assoc => 'left',
        precedence => 'looser',
        other => '+',
    );
    
    __PACKAGE__->add_rule( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3922	4022	
==>g>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC AT <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3922	4022	
==>g>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC AT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5446	5546	
==>g>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC AT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27762	27857	
==>he 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key att <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27762	27857	
==>he 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3927	4019	
==>f');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5829	5921	
==>f');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->su <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8921	9022	
==>alize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8921	9022	
==>alize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5936	6027	
==>nfig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. A <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5936	6027	
==>nfig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. A <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3362	3517	
==>$m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3362	3517	
==>$m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        n <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1845	1973	
==>ltin is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12413	12520	
==>->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unico <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6775	6875	
==>ip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6775	6875	
==>ip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8972	9072	
==>ip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5597	5802	
==>[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5597	5802	
==>[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5597	5802	
==>[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3129	3242	
==>rl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3129	3242	
==>rl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3129	3242	
==>rl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21821	21915	
==>ME

Relation::Example -
Simple in-memory implementation of the Relation role

=head1 VERSION

T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2887	2989	
==>ds_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2887	2989	
==>ds_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2887	2989	
==>ds_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	388	471	
==><JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB::Package::Installed>, L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3140	3243	
==>/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3140	3243	
==>/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new() <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3140	3243	
==>/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new() <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30070	30180	
==>nt atom to handle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6893	6998	
==>lemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inhe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1250	1352	
==>lemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inhe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	352	451	
==>lemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inhe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4383	4486	
==>ingify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4383	4486	
==>ingify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5256	5356	
==>ingify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5256	5356	
==>ingify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3535	3643	
==>= "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is exp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3535	3643	
==>= "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is exp <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	312	417	
==>ts an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The fo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	312	417	
==>ts an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	586	698	
==>tant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	586	698	
==>tant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	586	698	
==>tant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thre <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1006	1103	
==>rl6 design docs apo/exe/syn
    --no_designdocs Do not generate html files for the perl6 design do <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1523	1626	
==>CH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1523	1626	
==>CH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1523	1626	
==>CH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircum <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1064	1167	
==>eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4526	4640	
==>I'm guessing "current" because this "is primitive".
    #      If I'm wrong then the above two subs might not work? <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29642	29737	
==>tribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34194	34289	
==>tribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33358	33453	
==>tribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5938	6139	
==>t.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    metho <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5938	6139	
==>t.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    metho <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	564	675	
==>y the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4042	4153	
==>y the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1634	1914	
==>arpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7426	7597	
==>( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7426	7597	
==>( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7426	7597	
==>( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5932	6061	
==>s = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute
        $pass = ($got <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	700	787	
==>ses([ $::Class ]);

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	700	787	
==>ses([ $::Class ]);

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	700	787	
==>ses([ $::Class ]);

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6391	6513	
==>bpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3290	3380	
==>t(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3290	3380	
==>t(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3290	3380	
==>t(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	471	580	
==>lass $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	471	580	
==>lass $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14560	14664	
==>/:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14560	14664	
==>/:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3983	4119	
==>n";
print "\n";

my $quotable = qr/\w+|$RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leadin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25742	25839	
==>being
renamed, with its keys being the old names and its values the new names.
This method will fa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30294	30391	
==>being
renamed, with its keys being the old names and its values the new names.
This method will fa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29260	29357	
==>being
renamed, with its keys being the old names and its values the new names.
This method will fa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5470	5569	
==>solute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This H <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5470	5569	
==>solute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This H <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	117	208	
==>ILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) ret <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	117	208	
==>ILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1941	2042	
==>"package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $co <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1123	1224	
==>nP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1941	2042	
==>"package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1941	2042	
==>"package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $co <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3844	3960	
==>d(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	103	203	
==>S -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	103	203	
==>S -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	103	203	
==>S -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7604	7719	
==>g_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7797	7912	
==>g_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	645	740	
==>ter
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	645	740	
==>ter
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5537	5632	
==>rom_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5537	5632	
==>rom_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5537	5632	
==>rom_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2038	2168	
==>self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2038	2168	
==>self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2038	2168	
==>self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      ! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	641	764	
==>code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    pac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15589	15708	
==>fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15589	15708	
==>fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2001	2098	
==>or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Ar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2001	2098	
==>or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Ar <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6193	6327	
==>$unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $self->rem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1569	1680	
==>self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1569	1680	
==>self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1569	1680	
==>self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2023	2167	
==>lder::Test::Base' => {
    attributes => [
        '$.passed',
        '$.number',
        '$.diagnostic',
        '$.description',
    ],
    su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2481	2578	
==>pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2481	2578	
==>pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2481	2578	
==>pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
)) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6252	6353	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5382	5483	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6252	6353	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5382	5483	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17831	17985	
==>reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17831	17985	
==>reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17831	17985	
==>reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3929	4065	
==>th\E/(.+)\.pm\Z!is;
        return if $1 eq $self->{dispatch};

        $file = "$self->{path}/$1.pm";
        my $pkg = "$self->{name}:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2141	2236	
==>elf->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($a <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11027	11120	
==>ode ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) return <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11027	11120	
==>ode ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) return <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1251	1342	
==>elf->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10634	10757	
==>ant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod > <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7819	7915	
==>t_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return emit($_[0]);
}
sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31163	31258	
==>lational operator that returns a new Relation
which has a subset of the original's tuples, and i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35713	35808	
==>lational operator that returns a new Relation
which has a subset of the original's tuples, and i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10750	10948	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26092	26272	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38722	38901	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39249	39428	
==>s->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2039	2174	
==>ng Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tm <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2039	2174	
==>ng Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8700	8806	
==>t = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offse <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8700	8806	
==>t = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8227	8377	
==>else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8227	8377	
==>else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8227	8377	
==>else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_no <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17122	17216	
==>s the input string after converting each character to it's uppercase
form, if lowercase. This i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6581	6679	
==>ew('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6581	6679	
==>ew('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6581	6679	
==>ew('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'R <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24290	24433	
==>my $v = $h->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # turn the flag off
      else { ... }            # the flag's val <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4663	4860	
==>$name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	160	270	
==>:Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	160	270	
==>:Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	160	270	
==>:Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3946	4071	
==>be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3946	4071	
==>be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6076	6177	
==>fic - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.den <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6076	6177	
==>fic - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.den <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2188	2300	
==>efined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2188	2300	
==>efined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2188	2300	
==>efined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15609	15720	
==>_;

    $runperl_args ||= {};
    $runperl_args->{progfile} = $tmpfile;
    $runperl_args->{stderr} = 1;

    op <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15592	15690	
==>ny - This contains zero or more attribute names and values
that help to define this Node.

=item C< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15592	15690	
==>ny - This contains zero or more attribute names and values
that help to define this Node.

=item C< <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	592	680	
==>-------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# -------------- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	615	703	
==>--------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------------------------- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7138	7265	
==>y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5102	5211	
==>ssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5102	5211	
==>ssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5102	5211	
==>ssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	132	252	
==>1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12664	12780	
==>) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12664	12780	
==>) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12664	12780	
==>) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3231	3329	
==>hy this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3231	3329	
==>hy this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $se <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26803	26896	
==>ptional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26803	26896	
==>ptional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3152	3264	
==>vars+version';
        ($perl_version) = (`$cmd` =~ /version='(.*)'/);
    }
    
    return $perl_version if def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3	105	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3	105	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3	105	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10479	10661	
==>text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10479	10661	
==>text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1888	1990	
==>kg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NA <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1888	1990	
==>kg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NA <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1685	1860	
==>k} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('b <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1685	1860	
==>k} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2060	2178	
==>rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2060	2178	
==>rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4489	4586	
==>crypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4489	4586	
==>crypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cip <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12281	12373	
==>t2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12281	12373	
==>t2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8854	9095	
==>->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8854	9095	
==>->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8854	9095	
==>->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2685	2797	
==>}[1]}->{capture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pugs::Runtime::Match::Rat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5340	5446	
==>ow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5340	5446	
==>ow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5340	5446	
==>ow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO:: <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2501	2603	
==>ero
		!! $x.round_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other math functions.
our <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10959	11068	
==>ary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11109	11218	
==>ary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3679	3784	
==>G;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3679	3784	
==>G;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1784	1878	
==>ded to Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object typ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1713	1806	
==>ded to Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object typ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4710	4813	
==>,2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4710	4813	
==>,2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3806	3902	
==>head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3990	4086	
==>head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled r <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9034	9252	
==>ist.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list w <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9034	9252	
==>ist.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list w <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	859	960	
==>l::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY { <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	833	932	
==>l::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY { <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	142	255	
==>nth;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	142	255	
==>nth;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	377	477	
==><METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	377	477	
==><METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	957	1080	
==>$v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) returns List|Str {
   given want {
     whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2411	2503	
==>f => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2411	2503	
==>f => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2411	2503	
==>f => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3445	3555	
==>e};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3445	3555	
==>e};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3445	3555	
==>e};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = und <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10318	10461	
==>anner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10318	10461	
==>anner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10318	10461	
==>anner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8727	8857	
==>nil::NIL); 
            $e->create("$current", $e->get("&dispatcher")->do()); 
            block->new($e, sub { 
                my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1253	1379	
==>$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1526	1630	
==>'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1526	1630	
==>'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means st <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1526	1630	
==>'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17248	17339	
==>eading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20725	20816	
==>eading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20303	20394	
==>eading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!head <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6944	7052	
==>cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6944	7052	
==>cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6944	7052	
==>cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3792	3895	
==>) if $cc;
    return $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(gpos => gpos => ' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2281	2452	
==>h if $fh;
                                    return;
                            };      

use constant ISA_JIB_META   => sub { UNIVERSAL::isa(shift(), 'JIB::Meta') }; 
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8188	8333	
==>AS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8188	8333	
==>AS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8188	8333	
==>AS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2479	2608	
==>sh'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2479	2608	
==>sh'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2479	2608	
==>sh'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7177	7270	
==>n () { b_main(); return 0; }";

	join("\n\n", Blondie::Backend::C::Builtins->prelude, @{$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	524	624	
==>working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	524	624	
==>working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	524	624	
==>working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3662	3758	
==>func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1217	1319	
==>Y_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1217	1319	
==>Y_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1217	1319	
==>Y_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	691	779	
==>ive_bayesian.p6 add grapes grapes");
}
system("pugs naive_bayesian.p6 classify $test_file <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6549	6817	
==>or
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, j <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7013	7281	
==>or
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, j <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26765	26860	
==>d parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26765	26860	
==>d parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	305	413	
==>,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	305	413	
==>,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	305	413	
==>,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	435	539	
==>f (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you planned $planned tests b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	113	263	
==>1 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'A <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	113	263	
==>1 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'A <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13933	14037	
==>the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17410	17514	
==>the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16790	16894	
==>the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	60	156	
==>lence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3386	3526	
==>' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3386	3526	
==>' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3386	3526	
==>' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToke <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26013	26111	
==>s.  This allows
the tests to determine if they are being executed through the harness
or by any oth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25054	25222	
==>$self:'));
                              })
                          );
                          $e->get('$self:')->set_attr(symbol->new('@:superclasses') => $e->get(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2988	3093	
==>ods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2988	3093	
==>ods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2988	3093	
==>ods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($me <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1333	1459	
==>($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $f <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1300	1426	
==>($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $f <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2512	2608	
==>ng stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting w <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2512	2608	
==>ng stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1919	2091	
==>ule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2166	2338	
==>ule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2425	2522	
==>phered; when you're done, call the closure 
with no arguments to finish the ciphering and clear th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2425	2522	
==>phered; when you're done, call the closure 
with no arguments to finish the ciphering and clear th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10870	11039	
==>_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10870	11039	
==>_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10870	11039	
==>_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#par <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4515	4601	
==>ed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2404	2500	
==>::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2404	2500	
==>::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2404	2500	
==>::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1040	1137	
==>o that we can parse a scheme-like syntax 
# with Attribute Grammers (stolen from Haskell (I think) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1418	1514	
==>g within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1418	1514	
==>g within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	487	603	
==>$class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self->_top->auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14447	14546	
==>butes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14447	14546	
==>butes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14447	14546	
==>butes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1697	1799	
==>.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1697	1799	
==>.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1697	1799	
==>.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1552	1656	
==>t \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1540	1644	
==>t \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14928	15023	
==>Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Paren <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14928	15023	
==>Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Paren <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2782	2926	
==>)
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'RO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7876	8020	
==>)
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'RO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2782	2926	
==>)
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'RO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7876	8020	
==>)
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'RO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20612	20703	
==>xp/Parser/Handlers.pm>.  That file might end up being where
documentation on writing handler <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1402	1589	
==>join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1402	1589	
==>join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15731	15873	
==>$n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25702	25809	
==>_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
flag_x(amat(_,flgs(_,_,_,x,_,_,_,_,_,_))).

%------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3364	3488	
==>$method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3364	3488	
==>$method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3364	3488	
==>$method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23146	23246	
==>}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Identifier>? <'('> <Forma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3397	3492	
==>ere to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3397	3492	
==>ere to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3397	3492	
==>ere to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25097	25182	
==>ES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23861	23946	
==>ES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25097	25182	
==>ES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23861	23946	
==>ES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F<examples/n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2725	2811	
==>:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2725	2811	
==>:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2725	2811	
==>:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1223	1332	
==>mber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1223	1332	
==>mber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1223	1332	
==>mber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11136	11315	
==>params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11136	11315	
==>params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11136	11315	
==>params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ i <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	209	320	
==>v = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $c <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17884	17998	
==>tr
my $snd = comb(
	fun => ide("snd"),
	param => $pair,
);

# the polymorphic fst function takes any pair and retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13243	13344	
==>$__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13243	13344	
==>$__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13243	13344	
==>$__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2924	3078	
==>:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Junction>),
                        Tree.new(:node<Sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6591	6705	
==>(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6591	6705	
==>(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6591	6705	
==>(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaSc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3696	3899	
==>(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3696	3899	
==>(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3696	3899	
==>(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16931	17043	
==>t);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6795	6903	
==>e($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Up <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6795	6903	
==>e($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Up <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5956	6056	
==>hod current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5956	6056	
==>hod current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16379	16529	
==>= shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16379	16529	
==>= shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16379	16529	
==>= shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::V <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9111	9223	
==>line switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3733	3834	
==>of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3733	3834	
==>of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3733	3834	
==>of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11300	11394	
==>>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11300	11394	
==>>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11300	11394	
==>>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3459	3568	
==>D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3459	3568	
==>D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19842	19936	
==>already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<usern <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19842	19936	
==>already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<usern <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4827	4946	
==>lue::Completion_type { # XXX - should be enum
   has $.normal;
   has $.break;
   has $.continue;
   has $.return;
   ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3309	3427	
==>urrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3309	3427	
==>urrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3309	3427	
==>urrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1527	1709	
==>it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5004	5186	
==>it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3934	4116	
==>it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9291	9402	
==>t, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1145	1366	
==>new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1360	1451	
==>$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1360	1451	
==>$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1360	1451	
==>$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	379	499	
==>= @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	414	534	
==>= @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	379	499	
==>= @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9592	9712	
==>= @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3829	4084	
==>n

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages used by the Relation class, that do export symbol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	330	417	
==>= Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	330	417	
==>= Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	327	411	
==>= Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3701	3819	
==>%result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $type = 'test' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	166	282	
==>{
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	166	282	
==>{
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	166	282	
==>{
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	919	1034	
==>r = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	919	1034	
==>r = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	919	1034	
==>r = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	196	298	
==>Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	922	1056	
==>y => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6013	6115	
==>n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6013	6115	
==>n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6013	6115	
==>n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8556	8700	
==>le - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12465	12606	
==>le - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12465	12606	
==>le - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16860	16980	
==>rom a regex.  It should have various options,
such as whether to do optimize...

  # strings
  /foo|father|fort/  => /f(? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	879	1078	
==>ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	880	1079	
==>ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1264	1369	
==>list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1252	1357	
==>list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigs <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9989	10094	
==>vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9989	10094	
==>vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18062	18160	
==>s_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18062	18160	
==>s_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) a <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8986	9103	
==>is,
        # but we can't rely upon everyone having it.  As such, we have
        # a very special cygwin work-around <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1529	1702	
==>nplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13924	14040	
==>spatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13924	14040	
==>spatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13924	14040	
==>spatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::W <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4932	5073	
==>n 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4932	5073	
==>n 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3803	3902	
==>);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5705	5804	
==>);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, ' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1607	1749	
==>" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    pri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12482	12614	
==>mber, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2858	2980	
==>mber, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2858	2980	
==>mber, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	112	261	
==>{
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3166	3315	
==>{
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	112	261	
==>{
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3166	3315	
==>{
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9976	10092	
==>^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9976	10092	
==>^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3622	3726	
==>ase{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3622	3726	
==>ase{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	671	795	
==>ap { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]),
          $INSTALLATION_DIR  
    ) {
        print "Creating di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3078	3177	
==>@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3078	3177	
==>@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3078	3177	
==>@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	772	872	
==>y::unshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	409	502	
==>with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	409	502	
==>with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	409	502	
==>with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24820	24924	
==>IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:floodcontro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23584	23688	
==>IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:floodcontro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24820	24924	
==>IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:floodcontro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23584	23688	
==>IRC servers disconnect you if you post too many commands in too short time.

If you supply C<:floodcontro <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5152	5286	
==>-- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cs <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5152	5286	
==>-- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cs <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2690	2786	
==>ata streams are enciphered with the same key, the encryption 
can be removed by XORing them toget <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2690	2786	
==>ata streams are enciphered with the same key, the encryption 
can be removed by XORing them toget <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	198	302	
==>Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head tail drop upto up <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4963	5150	
==>em( qq[rm -rf $src] )                           and die $?;

        }

        ### clean up the temp dir 
        system( qq[rm -rf $my_tmp_dir] )                        and die $?;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	20	114	
==>ck. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	20	114	
==>ck. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	20	114	
==>ck. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3165	3284	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6290	6409	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3165	3284	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6290	6409	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	124	227	
==>S.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	124	227	
==>S.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	124	227	
==>S.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junct <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3717	3841	
==>eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7268	7364	
==>ss => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7268	7364	
==>ss => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7268	7364	
==>ss => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3181	3307	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3181	3307	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3181	3307	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2162	2262	
==>pe qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5090	5191	
==>l-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5090	5191	
==>l-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5090	5191	
==>l-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4095	4261	
==>stant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5416	5582	
==>stant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4095	4261	
==>stant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5404	5570	
==>stant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $na <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	397	494	
==>er_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4266	4377	
==>two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3393	3504	
==>two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4266	4377	
==>two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3393	3504	
==>two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8174	8304	
==>e, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16125	16248	
==>on {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19602	19725	
==>on {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7893	8016	
==>e, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	214	320	
==>a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * clean <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	214	320	
==>a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * clean <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	889	990	
==>t/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	889	990	
==>t/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:< <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1375	1510	
==>sion {
    method dispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22989	23088	
==>t member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a B <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27541	27640	
==>t member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a B <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26318	26417	
==>t member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a B <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22592	22690	
==>tatement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
rule Try <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	544	641	
==>ty's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	544	641	
==>ty's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enci <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17354	17451	
==>eter
itself, which provides a virtual machine in which Perl code runs).

The classes and methods o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17354	17451	
==>eter
itself, which provides a virtual machine in which Perl code runs).

The classes and methods o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1717	1811	
==>ur also includes several attributes which might be interesting to 
people interested in the alg <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1717	1811	
==>ur also includes several attributes which might be interesting to 
people interested in the alg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5078	5185	
==>6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5078	5185	
==>6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5078	5185	
==>6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6051	6179	
==>RO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6051	6179	
==>RO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6051	6179	
==>RO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::op <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4751	4837	
==>EGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::Filt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9198	9340	
==>nal_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	38	137	
==>Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	38	137	
==>Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	38	137	
==>Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1197	1307	
==>store {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key mus <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	136	245	
==>ments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	131	233	
==>ments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "cont <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4012	4109	
==>order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini f <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4012	4109	
==>order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6440	6572	
==>Needs investigation.

                # For now this means that we only allow compilation on
                # the module content; no <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6440	6572	
==>Needs investigation.

                # For now this means that we only allow compilation on
                # the module content; no <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2129	2245	
==>tion( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2140	2256	
==>tion( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3711	3841	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3711	3841	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3711	3841	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	564	653	
==>ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2370	2478	
==>t $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2370	2478	
==>t $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2370	2478	
==>t $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5168	5268	
==>urn bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar: <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2478	2580	
==>ut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator->new($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1071	1171	
==>>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1071	1171	
==>>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1071	1171	
==>>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5681	5861	
==>et of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacemen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9158	9338	
==>et of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacemen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1087	1196	
==>eturns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1087	1196	
==>eturns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7172	7294	
==>ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2471	2586	
==>str->to_native . ") already exists";
    return $self->[2]->store($name, $nil::NIL);    
}

1;

__END__

=pod

=head <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17204	17303	
==>dience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17204	17303	
==>dience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2500	2628	
==>late = do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$config;
    $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2768	2883	
==>$::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2768	2883	
==>$::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2768	2883	
==>$::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4978	5078	
==>d any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4978	5078	
==>d any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6502	6602	
==>d any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25369	25465	
==>istics like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23959	24053	
==>Relation object, whose Heading and
Body attributes are set respectively from the optional named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28511	28605	
==>Relation object, whose Heading and
Body attributes are set respectively from the optional named <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4667	4761	
==>sed as a string, the match object returns the stringified version
of the result object (usually <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4667	4761	
==>sed as a string, the match object returns the stringified version
of the result object (usually <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	871	980	
==>\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	871	980	
==>\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	871	980	
==>\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs do <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16266	16358	
==>: generic_in($.if) = { generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7764	7881	
==>var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_mag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7764	7881	
==>var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_mag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7764	7881	
==>var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_mag <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1766	1860	
==>:Subscription {
    has Class::Events::Publisher $.publisher;
    has Class::Events::Subscriber <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8292	8541	
==>:Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8292	8541	
==>:Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Ro <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3000	3127	
==>Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3000	3127	
==>Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1166	1260	
==>tils::Dump->export_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @_;
	return $dumper-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2406	2525	
==>{$stage};
	next if !defined $result;
	my $warn = $result->warnings();
	$ret .= $warn if defined $warn;
    }
    $ret;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34886	35002	
==>\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34886	35002	
==>\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34886	35002	
==>\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	615	721	
==>h containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	615	721	
==>h containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (t <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1119	1212	
==>er_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1119	1212	
==>er_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5649	5747	
==>rray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5649	5747	
==>rray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5649	5747	
==>rray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5910	6013	
==>if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5910	6013	
==>if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5910	6013	
==>if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3340	3455	
==>urpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3340	3455	
==>urpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3340	3455	
==>urpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8368	8495	
==>);

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8079	8199	
==>);
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20376	20468	
==>n double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20376	20468	
==>n double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8504	8614	
==>{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8504	8614	
==>{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8480	8579	
==>r croak "assert_ghc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19919	20012	
==>er(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals:: <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	824	940	
==>for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::n <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	824	940	
==>for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::n <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	100	189	
==>RAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_arg <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	100	189	
==>RAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13299	13494	
==>)->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13299	13494	
==>)->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13299	13494	
==>)->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # R <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	465	568	
==>eturn value ] pair
### the default_value is the value of initalization, the return value is
### a subrou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3480	3570	
==>---------------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3503	3593	
==>----------------
## BOOTSTRAPPING COMPLETE
## --------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5382	5472	
==>---------------------------------------
## BOOTSTRAPPING COMPLETE
## ---------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5405	5495	
==>----------------
## BOOTSTRAPPING COMPLETE
## --------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4289	4411	
==>($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4289	4411	
==>($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4289	4411	
==>($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1819	1921	
==>ive object, if this package is a registered alternative

=cut
    
=head2 $pkg->install( ... )

=cut

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1213	1313	
==>ould be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22163	22263	
==>l string representation of the regex.

=item tree

During the first pass, C<tree> is undef, which ins <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1213	1313	
==>ould be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1213	1313	
==>ould be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39621	39740	
==>ss of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	23	120	
==>:Install::Fetch;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4362	4454	
==>ot the right method return value');
is($Object->superclass, undef, '... $Object got the right <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6264	6356	
==>ot the right method return value');
is($Object->superclass, undef, '... $Object got the right <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4778	4955	
==>*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5000	5177	
==>*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33343	33441	
==>y: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4464	4559	
==>d2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4714	4809	
==>d2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1547	1638	
==>ance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1547	1638	
==>ance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1547	1638	
==>ance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10631	10718	
==>.
p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p6_char_class(class_neg(vert <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6566	6677	
==>t } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::A <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6566	6677	
==>t } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::A <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23892	24020	
==>if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p6_loop_CODE: bug" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6756	6880	
==>", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	767	874	
==>elf->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	668	775	
==>elf->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

su <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9515	9685	
==>$entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1318	1468	
==>$entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23219	23312	
==>ce ambiguous results or associations.  Or alternately, the other
packages require your text da <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23219	23312	
==>ce ambiguous results or associations.  Or alternately, the other
packages require your text da <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2736	2849	
==>}
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : method { 
    my $self = shift;
    (blessed($_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1107	1205	
==>s because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1107	1205	
==>s because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1107	1205	
==>s because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4025	4163	
==>succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$m <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	177	311	
==>s -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if ( <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	177	311	
==>s -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3901	4035	
==>succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4674	4769	
==>fference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3801	3896	
==>fference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4674	4769	
==>fference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3801	3896	
==>fference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11640	11751	
==>ine ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11640	11751	
==>ine ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10648	10750	
==>ached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10648	10750	
==>ached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14623	14816	
==>= any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18100	18293	
==>= any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17516	17709	
==>= any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12809	12914	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12809	12914	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLAS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12809	12914	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLAS <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8978	9082	
==>alues,   Code $expression --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gath <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7785	7890	
==>ity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7785	7890	
==>ity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7785	7890	
==>ity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1985	2088	
==>og::Yaswi,
    http://search.cpan.org/~salva/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1206	1326	
==>!defined $line;
        if ($line =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3921	4042	
==>!$force) {
        error($pkg->package . " already exists in this repository");
        return;
    }

    my $inst = JIB: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8738	8845	
==>ndent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8738	8845	
==>ndent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8738	8845	
==>ndent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thun <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19818	19914	
==>ermined when it is constructed, and the object can
not be changed afterwards.

If you want someth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24370	24466	
==>ermined when it is constructed, and the object can
not be changed afterwards.

If you want someth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22922	23018	
==>ermined when it is constructed, and the object can
not be changed afterwards.

If you want someth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24126	24253	
==>ue is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

  for (map "FLAG_$_", split //, $off) {
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	52	159	
==>function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	52	159	
==>function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	52	159	
==>function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9669	9828	
==>n /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information func <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9669	9828	
==>n /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information func <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10403	10503	
==>t`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10403	10503	
==>t`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13189	13310	
==>"    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9375	9496	
==>"    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10211	10332	
==>"    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	473	593	
==>Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $scr <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	473	593	
==>Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $scr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8428	8520	
==>gun when any block of characters is interpolated for modifiers.

=item I<end_element ('line_i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8428	8520	
==>gun when any block of characters is interpolated for modifiers.

=item I<end_element ('line_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	630	749	
==>_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	630	749	
==>_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	630	749	
==>_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1170	1259	
==>de.

L<Blondie::Backend::Perl::Builtins> contains the builtin operations and values
that r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1881	2023	
==>: ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1881	2023	
==>: ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1881	2023	
==>: ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new <==
4	/Users/nnunley/pugs/util/package-osx.pl	317	415	
==>bin/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	842	946	
==>e("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	842	946	
==>e("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	842	946	
==>e("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9256	9387	
==>ments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %boun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9256	9387	
==>ments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %boun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9256	9387	
==>ments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %boun <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2636	2736	
==>f:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2636	2736	
==>f:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2636	2736	
==>f:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26383	26470	
==>Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language::Prolog::Yaswi::Low::ar <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5060	5188	
==>pans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5060	5188	
==>pans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7335	7441	
==>$end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7335	7441	
==>$end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($sta <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2123	2237	
==>AY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_day < $cur_day <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5859	5958	
==>->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5859	5958	
==>->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5859	5958	
==>->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($att <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5094	5332	
==>es/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being author <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4306	4508	
==>es/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being author <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4858	4954	
==>tilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4916	5012	
==>tilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4302	4402	
==>e>'));
   return $var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4007	4102	
==>f ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4007	4102	
==>f ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4007	4102	
==>f ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3312	3424	
==>mplement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3312	3424	
==>mplement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4081	4170	
==>-> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7488	7635	
==>turn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7488	7635	
==>turn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.cl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1516	1651	
==>Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1516	1651	
==>Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2655	2759	
==>ed: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2655	2759	
==>ed: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2735	2839	
==>ed: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2093	2214	
==>ody) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2093	2214	
==>ody) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2093	2214	
==>ody) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	282	396	
==>imitive {
    # XXX return $str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, char <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2606	2702	
==>ckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2606	2702	
==>ckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2606	2702	
==>ckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@se <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28013	28105	
==>_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1344	1447	
==>s) {
                _('$.testplan' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests )) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21607	21701	
==>ributes may be individually addressed only by their names, and all
Relation tuples may be indiv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26159	26253	
==>ributes may be individually addressed only by their names, and all
Relation tuples may be indiv <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1782	1893	
==>L::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1782	1893	
==>L::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1106	1209	
==>s right now this is a non
    # issue since even higher order functions get prims instead of thunks when <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8352	8588	
==>ify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8352	8588	
==>ify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8352	8588	
==>ify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	519	678	
==>.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unle <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3611	3705	
==>t of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3611	3705	
==>t of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9078	9166	
==>ub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2903	2991	
==>ub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13750	13890	
==>sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13750	13890	
==>sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13750	13890	
==>sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1903	2002	
==>> $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12529	12628	
==>st (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12529	12628	
==>st (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12529	12628	
==>st (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	352	462	
==>a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	352	462	
==>a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	352	462	
==>a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3817	3926	
==>([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3817	3926	
==>([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3817	3926	
==>([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3592	3693	
==>from bootstrapping. 

If that is the case, running C<Makefile.PL> and C<make> in
C<Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6602	6750	
==>r RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6602	6750	
==>r RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6344	6467	
==>xport {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_par <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6344	6467	
==>xport {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_par <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6148	6263	
==>self->create($name, $value);
}

sub get {
    my ($self, $name) = @_;
    (defined $name) 
        || confess "You m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4415	4517	
==>->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4415	4517	
==>->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4415	4517	
==>->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1794	1897	
==>sitional => $positional,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy });
}

# some high <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	303	401	
==>s $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	303	401	
==>s $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	303	401	
==>s $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11041	11151	
==>map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11041	11151	
==>map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11041	11151	
==>map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7867	7979	
==>s{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7867	7979	
==>s{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7867	7979	
==>s{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_clas <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1852	1957	
==>m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser {
  my( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39618	39711	
==>d bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24341	24434	
==>d bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39618	39711	
==>d bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24341	24434	
==>d bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14180	14288	
==>shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17657	17765	
==>shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6693	6796	
==>? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # me <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6751	6854	
==>? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7685	7793	
==>oublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the inv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7685	7793	
==>oublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the inv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7685	7793	
==>oublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the inv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4186	4293	
==>f)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($self)->{'$:superclass'};
        }, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7603	7746	
==>sfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	904	1047	
==>sfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	780	885	
==>'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	780	885	
==>'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4047	4143	
==>tr $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4047	4143	
==>tr $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4047	4143	
==>tr $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13157	13263	
==>bject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13157	13263	
==>bject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13157	13263	
==>bject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fro <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1992	2116	
==>noop = Hacks->noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10308	10407	
==>oo.
    # -----------------------------------------------    
    method resolve () { "<implemented> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10308	10407	
==>oo.
    # -----------------------------------------------    
    method resolve () { "<implemented> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10308	10407	
==>oo.
    # -----------------------------------------------    
    method resolve () { "<implemented> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11170	11288	
==>ted"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1:
    pos = find_no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5272	5375	
==>un::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5272	5375	
==>un::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5272	5375	
==>un::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4095	4238	
==>)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4107	4250	
==>)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3717	3836	
==>e.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3585	3699	
==>e.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - a <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6651	6746	
==>to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: I <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6651	6746	
==>to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1203	1298	
==>PSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1203	1298	
==>PSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	420	561	
==>y $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	420	561	
==>y $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15832	15938	
==>ym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2229	2331	
==>ym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2561	2675	
==>}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2561	2675	
==>}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2043	2144	
==>rmutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2043	2144	
==>rmutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14151	14366	
==>y = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14151	14366	
==>y = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14151	14366	
==>y = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1592	1701	
==>?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@indextests -- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21795	21892	
==>his is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20676	20773	
==>his is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21795	21892	
==>his is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20676	20773	
==>his is I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1769	1890	
==>,
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	880	999	
==>,
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19900	19994	
==>e has been parsed into blocks and the blocks have been
marked for various compilers, Module::Co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19900	19994	
==>e has been parsed into blocks and the blocks have been
marked for various compilers, Module::Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3702	3908	
==>@state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3588	3787	
==>@state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2256	2377	
==>rave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, til <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2256	2377	
==>rave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, til <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1156	1263	
==>shift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {"" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1156	1263	
==>shift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {"" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1156	1263	
==>shift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {"" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	209	329	
==>y $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	209	329	
==>y $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	209	329	
==>y $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3637	3752	
==>( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got || defined $is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4084	4202	
==>_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4084	4202	
==>_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4084	4202	
==>_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instanc <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11125	11234	
==>e {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TAB <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4384	4489	
==>est);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4384	4489	
==>est);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19407	19505	
==>($status);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = Inf -- <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	635	737	
==>s is a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can construct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10990	11074	
==>dom Thoughts on Role state:
--------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10990	11074	
==>dom Thoughts on Role state:
--------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10990	11074	
==>dom Thoughts on Role state:
--------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	126	308	
==>rint "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $progra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	126	308	
==>rint "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $progra <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	785	881	
==>he C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	785	881	
==>he C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1214	1307	
==>*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_build_exclude_re();

my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2284	2385	
==>);

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2284	2385	
==>);

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2284	2385	
==>);

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists :: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13272	13364	
==>-1)

Quantifier unexpected on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3815	4115	
==>$fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3815	4115	
==>$fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11371	11469	
==>e of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14848	14946	
==>e of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	836	935	
==>inder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finder->d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18080	18179	
==>ol->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41345	41444	
==>ol->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13148	13240	
==>names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13148	13240	
==>names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	630	762	
==>X_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	274	369	
==>>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	274	369	
==>>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	274	369	
==>>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_j <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12335	12429	
==>de, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12393	12487	
==>de, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1639	1731	
==>name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1639	1731	
==>name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	209	315	
==>eed at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21333	21427	
==>SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21333	21427	
==>SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21333	21427	
==>SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	819	950	
==>()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	819	950	
==>()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19266	19369	
==>d ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19266	19369	
==>d ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	776	923	
==>okie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	776	923	
==>okie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1597	1730	
==>lse {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1597	1730	
==>lse {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($se <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3657	3758	
==>:Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3657	3758	
==>:Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5854	5955	
==>:Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4827	4914	
==>rray::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length(1));

 multi Arra <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1306	1444	
==>um::int($x) }


 multi  Num::exp (  Num  $exponent             ; Num :$base --> Num )
 {
     Math::Basic::exp($exponent, $base);
 }
 multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12139	12225	
==>return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12139	12225	
==>return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12139	12225	
==>return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1707	1831	
==>ping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1707	1831	
==>ping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1707	1831	
==>ping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6369	6473	
==>$Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToInteger(JSX::Value $v) {
    use <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7326	7451	
==>,
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "dar <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7326	7451	
==>,
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "dar <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1652	1751	
==>so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1652	1751	
==>so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2505	2729	
==>[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2812	3022	
==>[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2812	3022	
==>[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12409	12544	
==>};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	361	462	
==>complexity is the same.

TODO

- The structure generated by concat() still looks like a tree, inst <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27583	27679	
==>as all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Eac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32135	32231	
==>as all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Eac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31227	31323	
==>as all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Eac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7188	7291	
==>$node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7200	7303	
==>$node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15148	15240	
==>ends (usually provided by third
parties) implement.  This interface is rigorously defined, su <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15148	15240	
==>ends (usually provided by third
parties) implement.  This interface is rigorously defined, su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3771	3865	
==>function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3771	3865	
==>function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3771	3865	
==>function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __r <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7785	7879	
==>er. 

If C<@indextests> are provided, only elements whose indices match
C<$index ~~ any(@indext <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18017	18112	
==>o_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18017	18112	
==>o_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18017	18112	
==>o_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15242	15380	
==>/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15242	15380	
==>/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15242	15380	
==>/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

pac <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2580	2683	
==>input>*}
rule ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1596	1694	
==>and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1596	1694	
==>and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1596	1694	
==>and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdat <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24001	24187	
==>$_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @result, "FAILED tests @canon\n";
        $canon = join ' ', @canon;
    } else {
        push @r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	584	692	
==>{
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	584	692	
==>{
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	584	692	
==>{
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self-> <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20645	20763	
==>st returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    print "\t\t(VMS statu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17233	17322	
==>p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17233	17322	
==>p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17233	17322	
==>p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5099	5233	
==>ous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5099	5233	
==>ous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1511	1633	
==>p { $_->package eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8715	8820	
==>mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	898	1030	
==>ist
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast, '' );
        #"do{\n" .
        #_emit( $ast, '    ' ) . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3326	3437	
==>ue_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3326	3437	
==>ue_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3326	3437	
==>ue_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8313	8421	
==>"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8313	8421	
==>"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8313	8421	
==>"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4990	5096	
==>letion {
   submethod BUILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5827	5947	
==>rimitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5827	5947	
==>rimitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5827	5947	
==>rimitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16119	16210	
==>C</(\d+)(\w+)/> which, when
reversed, I<can> match differently.

  "100years" =~ /(\d+)(\w+) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1559	1656	
==>odate the characteristics
#  of particular regex engines.  Its structure follows the spec.  If for <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1281	1373	
==>rograms to work with test results, we provide
Test::Harness::Straps.  Instead of printing the <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2124	2268	
==>t;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that matt <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2124	2268	
==>t;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that matt <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1911	2005	
==>CRIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with n <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1911	2005	
==>CRIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16107	16205	
==>= @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16107	16205	
==>= @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16107	16205	
==>= @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23428	23530	
==>o_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23428	23530	
==>o_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23428	23530	
==>o_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spli <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2787	2885	
==>namic scope
for it).

If we have a Thunk inside '&func' in the Env, executing this tree will invoke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16738	16835	
==>body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16738	16835	
==>body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16738	16835	
==>body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5011	5118	
==>= ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5011	5118	
==>= ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5011	5118	
==>= ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6626	6746	
==>no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6626	6746	
==>no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6626	6746	
==>no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	122	232	
==>asic first attempt at a primitive 
s-expr compiler to generate p5 code, it's really 
pretty bad actually, and t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25558	25657	
==>es the name of a condition being reported, if it is used
as an exception payload).  The key is inten <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25558	25657	
==>es the name of a condition being reported, if it is used
as an exception payload).  The key is inten <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	831	940	
==>ssion($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  List::reverse ( *@values --> La <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3158	3257	
==>mContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3158	3257	
==>mContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3158	3257	
==>mContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4756	4862	
==>>{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4756	4862	
==>>{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4756	4862	
==>>{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7671	7772	
==>n $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6799	6885	
==>> ::make_method($_resolve));

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6799	6885	
==>> ::make_method($_resolve));

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6799	6885	
==>> ::make_method($_resolve));

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	768	895	
==>unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	768	895	
==>unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    } <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2310	2404	
==>ll links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Grah <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2310	2404	
==>ll links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Grah <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1438	1609	
==>s')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1438	1609	
==>s')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1438	1609	
==>s')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11947	12037	
==>lass="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4738	4946	
==>y_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $scrip <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4002	4170	
==>y_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $scrip <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13418	13565	
==>y_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $scrip <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9762	9873	
==>'}};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4482	4612	
==>__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4482	4612	
==>__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4482	4612	
==>__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18169	18295	
==>ft;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub insert {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	512	636	
==>ad1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding n <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	512	636	
==>ad1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10593	10685	
==>des are arranged correctly
depending on their types, that their attributes have reasonable va <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10593	10685	
==>des are arranged correctly
depending on their types, that their attributes have reasonable va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	231	391	
==>que_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	231	391	
==>que_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	231	391	
==>que_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@: <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	362	469	
==>UT "module $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FI <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17700	17820	
==>V* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11959	12058	
==>:Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11959	12058	
==>:Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11959	12058	
==>:Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1604	1742	
==>th, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1604	1742	
==>th, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2029	2122	
==>ss Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2029	2122	
==>ss Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	665	764	
==>[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	665	764	
==>[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	395	491	
==>ar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all byt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	395	491	
==>ar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all byt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16900	17048	
==>match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17179	17327	
==>match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19602	19687	
==>eyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19602	19687	
==>eyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	366	466	
==>al" aspects of it in favor of 
a more practical closure based system, similar to what is described
in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34778	34876	
==>_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34778	34876	
==>_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34778	34876	
==>_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	129	227	
==>Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret he <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10833	10931	
==>.

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurren <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	129	227	
==>Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret he <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10833	10931	
==>.

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurren <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13481	13678	
==>ture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13760	13957	
==>ture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             rul <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22892	22988	
==>ared to Other Solutions

One of the main distinctions of this approach over similar packages is t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22892	22988	
==>ared to Other Solutions

One of the main distinctions of this approach over similar packages is t <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13599	13700	
==>ompiler might allow adding globals
    # right now this is a non issue since even higher order functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3974	4070	
==>if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_an <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3974	4070	
==>if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_an <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3974	4070	
==>if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_an <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7509	7750	
==>d      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27510	27691	
==>( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27510	27691	
==>( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27510	27691	
==>( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17284	17378	
==>ule implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-spe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17284	17378	
==>ule implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-spe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17284	17378	
==>ule implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14568	14685	
==>->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14568	14685	
==>->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14568	14685	
==>->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8427	8522	
==>a command line.

Typically this is C<$^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a dif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2211	2317	
==>ing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2211	2317	
==>ing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3757	3853	
==>formation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free soft <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3757	3853	
==>formation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free soft <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16848	16939	
==>hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16848	16939	
==>hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16848	16939	
==>hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	252	354	
==>>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	252	354	
==>>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	252	354	
==>>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20613	20705	
==>t eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob io <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8696	8816	
==>otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8696	8816	
==>otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2663	2779	
==>$start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2663	2779	
==>$start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12527	12628	
==>or each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12527	12628	
==>or each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19840	19940	
==>LE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19840	19940	
==>LE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2975	3094	
==>kgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2975	3094	
==>kgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircn <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8128	8217	
==>->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1953	2042	
==>->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7296	7408	
==>Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7296	7408	
==>Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2816	2913	
==>ORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs curr <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2816	2913	
==>ORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs curr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	623	745	
==>nown parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{source}, "\n";
    local $@;
    ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16323	16433	
==>.&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16323	16433	
==>.&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16323	16433	
==>.&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2752	2870	
==>plate;
    }
    push @rules, "<$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unless $#rules;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4105	4200	
==>Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4105	4200	
==>Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4105	4200	
==>Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SU <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10997	11105	
==>ss it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to rem <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10997	11105	
==>ss it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to rem <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3130	3235	
==>ect representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3130	3235	
==>ect representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23993	24100	
==>not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22766	22873	
==>not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23993	24100	
==>not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22766	22873	
==>not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to avoid <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	738	895	
==>\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	738	895	
==>\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2402	2512	
==>: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class rep <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2402	2512	
==>: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1728	1818	
==>implemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1728	1818	
==>implemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1728	1818	
==>implemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8411	8541	
==>or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	569	699	
==>or undef

    capture - the tree of captured things

    abort - the match was stopped by a { return } or a fail(),

           and <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8129	8256	
==>or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	544	671	
==>or undef
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4979	5083	
==>$to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex co <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4979	5083	
==>$to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex co <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13918	14020	
==>hift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1398	1500	
==>hift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim <==
4	/Users/nnunley/pugs/util/package-osx.pl	6415	6512	
==>Overview::Reduce.3pm
        /usr/local/man/man3/Perl6::Overview::Rule.3
        /usr/local/man/ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1037	1131	
==>::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1037	1131	
==>::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1037	1131	
==>::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1822	1949	
==>eturn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1822	1949	
==>eturn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2741	2841	
==>tion: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_requ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2741	2841	
==>tion: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_requ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5620	5727	
==>t $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4750	4857	
==>t $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5620	5727	
==>t $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4750	4857	
==>t $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8023	8169	
==>> $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8023	8169	
==>> $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1976	2085	
==>w   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Qu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1976	2085	
==>w   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17299	17402	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17299	17402	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17299	17402	
==>WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7541	7709	
==>alue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7541	7709	
==>alue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7541	7709	
==>alue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5685	5785	
==>access it until we have know how both these interfaces can be
# addressed.  One possibility is to ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5685	5785	
==>access it until we have know how both these interfaces can be
# addressed.  One possibility is to ret <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9783	9881	
==>has the
distinction of being the very first module written for Pugs.

It provides a simple set of c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9841	9939	
==>has the
distinction of being the very first module written for Pugs.

It provides a simple set of c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9217	9315	
==>one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9217	9315	
==>one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9217	9315	
==>one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1746	1869	
==>put, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Res <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1746	1869	
==>put, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Res <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12043	12139	
==>he $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("A <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12043	12139	
==>he $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	269	377	
==>->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	269	377	
==>->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	269	377	
==>->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no war <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47137	47282	
==>:namespace')));
                  }))
                  ->or(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	492	601	
==>ly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	492	601	
==>ly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	492	601	
==>ly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_j <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4868	4959	
==>.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	555	646	
==>.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5008	5099	
==>.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	555	646	
==>.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3599	3779	
==>GN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3599	3779	
==>GN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5653	5748	
==>4)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5653	5748	
==>4)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29424	29541	
==>allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inve <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29424	29541	
==>allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inve <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	248	353	
==>allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inve <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1717	1902	
==>@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1777	1883	
==>($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1777	1883	
==>($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1777	1883	
==>($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29021	29204	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29300	29483	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10288	10397	
==>}
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:no <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10288	10397	
==>}
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24844	24963	
==>nt attributes:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{regex} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4414	4509	
==>=> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4414	4509	
==>=> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4414	4509	
==>=> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	897	1042	
==>v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    } <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	897	1042	
==>v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4548	4658	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4741	4851	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ <==
4	/Users/nnunley/pugs/misc/S29_round.pl	858	974	
==>mmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given abs($x) - floor( abs($x) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	343	454	
==>creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	343	454	
==>creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	343	454	
==>creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're c <==
4	/Users/nnunley/pugs/util/grokprims.pl	118	231	
==>al',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7206	7314	
==>se clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7206	7314	
==>se clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7206	7314	
==>se clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8372	8480	
==>from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8372	8480	
==>from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8372	8480	
==>from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1110	1212	
==>) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1110	1212	
==>) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1110	1212	
==>) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	212	316	
==>set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

subm <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	212	316	
==>set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

subm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8220	8323	
==>NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8220	8323	
==>NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1934	2041	
==>oin "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compone <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1934	2041	
==>oin "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compone <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1934	2041	
==>oin "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compone <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1780	1881	
==>my $class = shift;
	my $val = shift;
	my $type = shift || $val->type;

	Blondie::TypeSafe::Annotation- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7945	8045	
==>Define and compile a routine that will validate whether the 'person'
    # table exists (and is corre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7945	8045	
==>Define and compile a routine that will validate whether the 'person'
    # table exists (and is corre <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6120	6211	
==>n $syn_index: $!";
    $template = HTML::Template->new(filename => 'util/catalog_tmpl/Synops <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2564	2704	
==>E__->add_rule( 
        name => '>',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	280	393	
==>_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	280	393	
==>_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	48	151	
==>est;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
ha <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	48	151	
==>est;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	329	430	
==>$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	329	430	
==>$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	329	430	
==>$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	162	383	
==>on( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	163	384	
==>on( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18541	18695	
==>ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18820	18974	
==>ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3707	3821	
==>arp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3472	3574	
==>ethod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3472	3574	
==>ethod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3472	3574	
==>ethod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9098	9206	
==>y $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9098	9206	
==>y $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9098	9206	
==>y $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invoc <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	326	433	
==>d.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of Pugs (6.0.10)
# and with very <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1871	1967	
==>also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1834	1930	
==>also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1871	1967	
==>also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1834	1930	
==>also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2347	2467	
==>true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2347	2467	
==>true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2347	2467	
==>true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4522	4619	
==>es --> Bool )
 { ... } # XXX
 

 &Array::pop<Array> := &Array::splice<Array>.assuming(offset(-1) : <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13671	13778	
==>d the perl compiler have an overly friendly
  relationship.  There may end up being a gotcha, where one need <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9673	9779	
==>pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9673	9779	
==>pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9673	9779	
==>pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9824	9936	
==>ost:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9824	9936	
==>ost:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.co <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2771	2871	
==>returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2771	2871	
==>returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	747	864	
==>n this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	747	864	
==>n this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	747	864	
==>n this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$A <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1524	1625	
==>=> "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (int(@commi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10016	10125	
==>ticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7956	8065	
==>ticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10016	10125	
==>ticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7956	8065	
==>ticular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10233	10385	
==>e(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10233	10385	
==>e(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	485	594	
==>et::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test wit <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	485	594	
==>et::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33785	33921	
==>_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33785	33921	
==>_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33785	33921	
==>_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	226	344	
==>=> ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&xml ],
);

# du <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	48	169	
==>lobals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \ <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	48	169	
==>lobals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3900	4009	
==>parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3900	4009	
==>parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27769	27868	
==>e parser object and a boolean as arguments.
The boolean is true if the flag is going to be turned on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	197	295	
==>d";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	197	295	
==>d";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	197	295	
==>d";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14605	14769	
==>'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ") <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14605	14769	
==>'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ") <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14605	14769	
==>'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ") <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2163	2259	
==>guage model (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = Meta:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	114	215	
==>.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Grammar::Perl6;
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2041	2139	
==>erl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2041	2139	
==>erl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2041	2139	
==>erl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13545	13666	
==>nloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13545	13666	
==>nloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	288	389	
==>p(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	288	389	
==>p(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:< <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7820	7922	
==>es on test include list
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Exclude f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1096	1189	
==>urrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1096	1189	
==>urrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1096	1189	
==>urrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Rol <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2271	2368	
==>the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilob <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2271	2368	
==>the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilob <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8640	8734	
==>tart_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

Thi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8640	8734	
==>tart_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38532	38664	
==>method label
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14353	14437	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14353	14437	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14353	14437	
==>ivate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	934	1082	
==>xpand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	934	1082	
==>xpand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	934	1082	
==>xpand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16112	16225	
==>inline code, once for the final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	636	736	
==>$named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	636	736	
==>$named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	452	544	
==>tch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	452	544	
==>tch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1821	1949	
==>y ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->objec <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3253	3363	
==>rint STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPerl5 code f <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1054	1149	
==>e returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back

= <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1054	1149	
==>e returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5298	5408	
==>type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no str <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13084	13183	
==>$strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header.  Will be run with /x <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3621	3714	
==>e load the operator definitions lastly because they'll override *our*
# operators.
use Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3621	3714	
==>e load the operator definitions lastly because they'll override *our*
# operators.
use Prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3621	3714	
==>e load the operator definitions lastly because they'll override *our*
# operators.
use Prelude <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2694	2802	
==>r $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2694	2802	
==>r $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $fiel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9390	9509	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9390	9509	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9390	9509	
==>function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idx <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	7	100	
==>e Perl6::Core::Ref;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9761	9907	
==>ted";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9761	9907	
==>ted";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7218	7339	
==>m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7206	7327	
==>m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	629	732	
==>tion::Example::Heading class, that do export symbols:
    # (None Yet)

    # Attributes of every Relati <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4024	4141	
==>=~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$i] =~ /^$item <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	447	553	
==>down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you littl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	447	553	
==>down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you littl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15689	15782	
==>).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to alw <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15747	15840	
==>).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to alw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9584	9709	
==>str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9584	9709	
==>str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9584	9709	
==>str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2391	2483	
==>ethod <[[Delete]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	910	1001	
==>tion::Heading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Rel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1376	1488	
==>Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1376	1488	
==>Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	262	372	
==>ram } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	262	372	
==>ram } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4475	4577	
==>oclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4533	4635	
==>oclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4753	4850	
==>:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4753	4850	
==>:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2090	2212	
==>ose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <fil <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	404	526	
==>ose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2090	2212	
==>ose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <fil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2090	2212	
==>ose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11682	11834	
==>" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6002	6145	
==>" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6002	6145	
==>" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15474	15572	
==>is header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15474	15572	
==>is header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6358	6454	
==>capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6358	6454	
==>capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9968	10074	
==>d in scalar
context, it returns the next node:

  while (my $node = $iter->()) {
    # $node is a Regexp::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12114	12203	
==>nals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12114	12203	
==>nals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12114	12203	
==>nals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2328	2461	
==>rl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2641	2769	
==>rl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2641	2769	
==>rl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5396	5489	
==>arget, $position, $lastPosition) =~ m/[^\s]/;
  $whitespacePosition = $-[0];
  $currentOperato <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8363	8504	
==>{
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5200	5332	
==>ne::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5200	5332	
==>ne::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19907	20003	
==>eates an
object no matter what pass the parser is making; object() will return
immediately if it' <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1985	2098	
==>define these
        # if at all.

        # the default Event/Subscriber pair really means that all notifications <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	266	364	
==>yms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	266	364	
==>yms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	266	364	
==>yms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26250	26448	
==>y($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26250	26448	
==>y($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26250	26448	
==>y($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4742	4855	
==>emp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisntall metadata
    system(qq[rm -rf $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25479	25694	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26137	26352	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25758	25973	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26416	26631	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1037	1159	
==>tr($param->{var}, 0, 1),
	       name          => substr($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	365	456	
==>ject;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	365	456	
==>ject;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	365	456	
==>ject;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	101	219	
==>.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	101	219	
==>.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	101	219	
==>.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numbe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5589	5680	
==>solve_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($su <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3234	3343	
==>t in %*INC. it's not perfect.
    # When module return values are specced, we can make this much
    # less ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19652	19741	
==>b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19652	19741	
==>b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19652	19741	
==>b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1579	1695	
==>nt(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1579	1695	
==>nt(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1579	1695	
==>nt(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8720	8828	
==>> $neg, $how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $ho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3857	3958	
==>{
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	42	143	
==>fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for the final im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3857	3958	
==>{
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3857	3958	
==>{
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4736	4838	
==>b cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4736	4838	
==>b cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4618	4699	
==>ded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4618	4699	
==>ded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8128	8242	
==>s ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8520	8634	
==>s ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8128	8242	
==>s ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8520	8634	
==>s ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	195	307	
==>rovides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The o <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	195	307	
==>rovides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The o <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1418	1516	
==>$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexporte <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1418	1516	
==>$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexporte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9285	9394	
==>*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9285	9394	
==>*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9285	9394	
==>*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26280	26375	
==>will
default to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> for <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14100	14202	
==>xpression>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpression>
    | <CallExpressi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1893	2010	
==>P => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5643	5739	
==><"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5643	5739	
==><"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5643	5739	
==><"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11767	11869	
==>they are already in the set, or inserts the items if
they're not in the set.

Returns the number of ite <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8914	9016	
==>they are already in the set, or inserts the items if
they're not in the set.

Returns the number of ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11767	11869	
==>they are already in the set, or inserts the items if
they're not in the set.

Returns the number of ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8914	9016	
==>they are already in the set, or inserts the items if
they're not in the set.

Returns the number of ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3248	3368	
==>r instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3248	3368	
==>r instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3248	3368	
==>r instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12086	12240	
==>le
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12080	12234	
==>le
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call meth <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3060	3152	
==>Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3060	3152	
==>Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	898	1024	
==>t($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Mod <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	898	1024	
==>t($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Mod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1447	1556	
==>ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1447	1556	
==>ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	66	171	
==>rict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pad;
    use b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19566	19655	
==>p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19566	19655	
==>p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19566	19655	
==>p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16276	16541	
==>t('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')->instantiate_container
                                  );
                          })
                      );
                    $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2668	2774	
==>at here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2668	2774	
==>at here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2668	2774	
==>at here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	739	837	
==>oped, it became uninteresting
# as a perl6 bootstrap path, which was the objective.

# Interest was <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1740	1832	
==>NV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1740	1832	
==>NV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	288	376	
==>gs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	321	409	
==>gs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $r <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	351	464	
==>nclude <windows.h>
#endif
int
main(int ac, char **av)
{
    int i;
#ifdef __BORLANDC__
    char *s = GetCom <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	586	687	
==>iq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	586	687	
==>iq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	586	687	
==>iq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 200 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12728	12831	
==>) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12728	12831	
==>) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pri <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12728	12831	
==>) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pri <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1601	1704	
==>ath/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2270	2386	
==>ire HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2270	2386	
==>ire HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1776	1868	
==>doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1776	1868	
==>doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11099	11223	
==>rdables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11099	11223	
==>rdables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26633	26723	
==>method creates and returns a new Locale::KeyedText::Message object.
The Message Key attribu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26633	26723	
==>method creates and returns a new Locale::KeyedText::Message object.
The Message Key attribu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4172	4278	
==>`

Return the start or end value of the span.

These methods may return nothing if the span is empty.

- `s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15352	15458	
==>`

Return the start or end value of the span.

These methods may return nothing if the span is empty.

- `s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4172	4278	
==>`

Return the start or end value of the span.

These methods may return nothing if the span is empty.

- `s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15352	15458	
==>`

Return the start or end value of the span.

These methods may return nothing if the span is empty.

- `s <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	370	507	
==>for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (t <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	370	507	
==>for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8367	8482	
==>);
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8367	8482	
==>);
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3347	3459	
==>program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3564	3676	
==>program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3413	3522	
==>my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$se <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3413	3522	
==>my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$se <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5088	5223	
==>n;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5088	5223	
==>n;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	330	435	
==>Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINA <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	330	435	
==>Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINA <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1837	1942	
==>' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1837	1942	
==>' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19332	19435	
==>OCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19332	19435	
==>OCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9142	9260	
==>ETH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9142	9260	
==>ETH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	971	1052	
==>th ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.? <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	971	1052	
==>th ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	444	560	
==>class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	649	765	
==>class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	705	821	
==>class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3543	3684	
==>hift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	50	155	
==>= { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	50	155	
==>= { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	50	155	
==>= { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  J <==
4	/Users/nnunley/pugs/misc/S29_round.pl	513	622	
==>x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6260	6355	
==>mess
with members belonging to 3rd party classes that your object might be
holding. Using the no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6260	6355	
==>mess
with members belonging to 3rd party classes that your object might be
holding. Using the no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6260	6355	
==>mess
with members belonging to 3rd party classes that your object might be
holding. Using the no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7556	7652	
==>Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1784	1880	
==>Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9190	9286	
==>Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2002	2098	
==>Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1242	1430	
==>= Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1242	1430	
==>= Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1242	1430	
==>= Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_(' <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	874	988	
==>base_path {
    my $self = shift;
    $self->{_top}{base};
}

sub is_extension_build {
    my $self = shift;
    no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2320	2441	
==>way.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2320	2441	
==>way.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2320	2441	
==>way.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the h <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	361	457	
==>|| die "Compile failed";
my $m;
if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)}) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1750	1905	
==>pan::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1750	1905	
==>pan::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	990	1103	
==>) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	990	1103	
==>) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13690	13787	
==>hat needs to
be sorted out before you can continue.

It is also possible to use the `force_todo()` <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13748	13845	
==>hat needs to
be sorted out before you can continue.

It is also possible to use the `force_todo()` <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11245	11339	
==>r :$depends) returns Bool is export`

These functions should work with most reg-exps, but given <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11303	11397	
==>r :$depends) returns Bool is export`

These functions should work with most reg-exps, but given <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7014	7160	
==>> $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7014	7160	
==>> $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7014	7160	
==>> $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@para <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4110	4211	
==>*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyof_char => $S->nchar($name), "\\N{$name <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12376	12502	
==>' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12376	12502	
==>' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$v <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9577	9671	
==>ive.

Instances of this class are usually created as member variables of the
C<HTTP::Request> a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9577	9671	
==>ive.

Instances of this class are usually created as member variables of the
C<HTTP::Request> a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24830	24941	
==>s disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the cons <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23594	23705	
==>s disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the cons <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24830	24941	
==>s disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the cons <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23594	23705	
==>s disconnect you if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6348	6471	
==>,
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6348	6471	
==>,
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6348	6471	
==>,
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11674	11773	
==>n onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hopefully unused part o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5287	5462	
==>bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5287	5462	
==>bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5287	5462	
==>bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8982	9093	
==>noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12627	12733	
==>(*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12627	12733	
==>(*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12627	12733	
==>(*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {... <==
4	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	20	123	
==>0.01;

sub import (Str $pkg, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").gr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6563	6674	
==>.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6563	6674	
==>.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4269	4376	
==>ch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4230	4322	
==>tant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4230	4322	
==>tant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4230	4322	
==>tant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17216	17331	
==>age {
    my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	73	176	
==>re ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	73	176	
==>re ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	73	176	
==>re ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4666	4789	
==>ersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- strin <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4666	4789	
==>ersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- strin <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	902	1003	
==>o!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for pr <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	902	1003	
==>o!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for pr <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4633	4756	
==>EMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10317	10418	
==>(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8210	8311	
==>(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10317	10418	
==>(...)>

Inserts the specifiend items into the set. Returns the number of items
inserted.

It is not fa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8210	8311	
==>(...)>

Inserts the specifiend items into the set. Returns the number of items inserted.

It is not fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1076	1173	
==>ix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sho <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16832	16929	
==>!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpression :words {  # see 11.10
      <Equality <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1076	1173	
==>ix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1076	1173	
==>ix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX sho <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	337	442	
==>ersion =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $self->set_blib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2206	2285	
==>e_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2206	2285	
==>e_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2206	2285	
==>e_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4793	4920	
==>sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error messag <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4793	4920	
==>sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error messag <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4793	4920	
==>sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error messag <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3150	3250	
==>f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'syn', " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10893	11104	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10893	11104	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10893	11104	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " - <==
4	/Users/nnunley/pugs/util/claim_drift.pl	612	724	
==>the top level of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    exit 1;
}

f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	323	439	
==>atever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	309	417	
==>atever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4020	4116	
==>.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4020	4116	
==>.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	7	105	
==>e Perl6::Core::Type::Comparable;

use Perl6::Core::Type::Equivalence;

package type::comparable;

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14415	14504	
==>e bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14415	14504	
==>e bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14415	14504	
==>e bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2380	2480	
==>s = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2380	2480	
==>s = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2380	2480	
==>s = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14546	14712	
==>= @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delete @f{@dir_files};
                my @f = sort k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5261	5424	
==>alue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5261	5424	
==>alue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5261	5424	
==>alue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42869	43026	
==>= shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method lab <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2333	2469	
==>ity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2333	2469	
==>ity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2333	2469	
==>ity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly ha <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1378	1475	
==>ate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be s <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1378	1475	
==>ate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be s <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1875	2067	
==>ew(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1875	2067	
==>ew(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2007	2126	
==>are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2007	2126	
==>are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2910	3041	
==>sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2910	3041	
==>sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15085	15186	
==>value of a header.  The header value is set if you pass
an argument to the method.  The old header val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15085	15186	
==>value of a header.  The header value is set if you pass
an argument to the method.  The old header val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1024	1145	
==>)};
            },

            'array_fetchElem' => sub { # $idx -> $container # autovivification! - returns **CONTAINER* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6714	6810	
==>CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6714	6810	
==>CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6714	6810	
==>CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7833	7947	
==>($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6963	7077	
==>($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7833	7947	
==>($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6963	7077	
==>($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3128	3266	
==>r}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $level at $opt->{precedence} $opt->{othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8251	8354	
==>l6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($ot <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8251	8354	
==>l6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($ot <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8251	8354	
==>l6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1274	1374	
==>"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10702	10802	
==>ss(class_neg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1274	1374	
==>"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1274	1374	
==>"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4540	4654	
==>ass.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4540	4654	
==>ass.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4540	4654	
==>ass.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3479	3608	
==>_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3479	3608	
==>_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3479	3608	
==>_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11298	11391	
==>en ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=it <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11298	11391	
==>en ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1587	1679	
==>E<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This prog <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1587	1679	
==>E<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This prog <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19008	19098	
==>e C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19008	19098	
==>e C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8226	8328	
==>gerLiteral> <ExponentPart>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7994	8092	
==>*{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7994	8092	
==>*{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7994	8092	
==>*{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2118	2222	
==>ly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2118	2222	
==>ly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2118	2222	
==>ly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1067	1195	
==>lib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        si <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1067	1195	
==>lib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        si <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	102	207	
==>se Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_stateme <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5269	5362	
==>n new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:undef),@_) if $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1949	2045	
==>d, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1949	2045	
==>d, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, St <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5381	5475	
==>his is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5381	5475	
==>his is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1523	1663	
==>it :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1764	1904	
==>it :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	92	183	
==>-------------------------------
## Mini Meta-Model with explicit EigenClasses
## ----------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	115	206	
==>--------
## Mini Meta-Model with explicit EigenClasses
## ---------------------------------- <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4617	4727	
==>ay[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5009	5119	
==>ay[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9065	9157	
==>set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9065	9157	
==>set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equa <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5942	6046	
==>Have you read --help?
    You can stop this program by hitting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4040	4141	
==>ivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4040	4141	
==>ivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4040	4141	
==>ivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_und <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12635	12801	
==>})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12635	12801	
==>})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_co <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9916	10018	
==>eyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriteri <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1131	1231	
==>eyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriteri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32779	32946	
==>-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32779	32946	
==>-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32779	32946	
==>-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7072	7239	
==>->{self}{code} ) {
            # &code.goto;
            return 
                " \@_ = (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n- <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	259	354	
==>called?) test.  But
maybe not.  Either way, the current approach seems plausible, no?

Clutter:: <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5573	5667	
==>ction.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5573	5667	
==>ction.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	973	1065	
==>The Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	973	1065	
==>The Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2150	2291	
==>on_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2150	2291	
==>on_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2150	2291	
==>on_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $me <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1162	1258	
==>.. " if $Config{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlink "blib6/lib/Prelude.pm <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	637	906	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # modul <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	637	906	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # modul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3554	3699	
==>turn unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3412	3552	
==>turn unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10112	10225	
==>xt',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10112	10225	
==>xt',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1437	1532	
==>for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often u <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1437	1532	
==>for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5998	6091	
==>t method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10255	10348	
==>t method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return valu <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4242	4333	
==>igned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with ' <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4242	4333	
==>igned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with ' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4147	4268	
==>'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4147	4268	
==>'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LVal <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	997	1118	
==>'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LVal <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9183	9302	
==>oid {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9183	9302	
==>oid {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2415	2505	
==>ling list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2415	2505	
==>ling list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2392	2508	
==>e;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2392	2508	
==>e;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2392	2508	
==>e;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	853	952	
==>ds_slept;
}

sub exit (Int $status = 0) is builtin is primitive {
    Perl6::Internals::exit $status <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	258	362	
==>s a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	258	362	
==>s a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19972	20066	
==>luding
the operating system itself, to have the user language data in separate
files (usually X <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19972	20066	
==>luding
the operating system itself, to have the user language data in separate
files (usually X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	102	232	
==>_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	102	232	
==>_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	102	232	
==>_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ] <==
4	/Users/nnunley/pugs/util/grokprims.pl	2051	2164	
==>$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38486	38612	
==>rse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38486	38612	
==>rse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38486	38612	
==>rse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSA <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3992	4089	
==>he parameter stack and binding
it to $x. Then the app is reduced. First its children will be reduc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11750	11900	
==>return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11750	11900	
==>return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11750	11900	
==>return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9423	9519	
==>y $capture_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree, cre <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8436	8537	
==>y;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8436	8537	
==>y;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5329	5424	
==>ear its internal state as completely as possible. 
This is automatically done as part of C<finis <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5329	5424	
==>ear its internal state as completely as possible. 
This is automatically done as part of C<finis <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10119	10246	
==>ENV->create(
    "*::WALKCLASS", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            closure::param <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	213	335	
==>dWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub conc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	99	215	
==>dWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	99	215	
==>dWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub conc <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2456	2584	
==>e $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3415	3541	
==>e $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12833	12958	
==>Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6308	6433	
==>Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	556	666	
==>> "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	556	666	
==>> "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	556	666	
==>> "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2473	2574	
==>ertain perl binary.
It does this by actually running a command.

Returns the perl version on success a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26483	26576	
==>al way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26483	26576	
==>al way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14987	15079	
==>numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All th <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14987	15079	
==>numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All th <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13764	13913	
==>str($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3885	4022	
==>str($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3885	4022	
==>str($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3885	4022	
==>str($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2583	2685	
==>piler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2583	2685	
==>piler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "l <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7203	7299	
==>YNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCT <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7203	7299	
==>YNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1809	1941	
==>et = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1809	1941	
==>et = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1809	1941	
==>et = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10476	10577	
==>il => do {
		my $a = type::variable::free->new;
		my $l = type::operator::nary->new(list => $a);
		typ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21776	21875	
==>$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $sigil = substr($n,0,1 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5828	5925	
==>ub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4958	5055	
==>ub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5828	5925	
==>ub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4958	5055	
==>ub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1398	1518	
==>ttribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1398	1518	
==>ttribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1398	1518	
==>ttribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curren <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8284	8375	
==>c_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10675	10823	
==>escription;
  
      submethod BUILD (
          $.description,
          $.passed,
          ?$.number     =     0,
          ?$.diagnostic = '???', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3673	3800	
==>,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3673	3800	
==>,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3673	3800	
==>,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	948	1091	
==>= $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        retur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	948	1091	
==>= $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16552	16644	
==>atisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16552	16644	
==>atisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28207	28303	
==>nted.>

This method is a generic relational operator that returns a new Relation
which is the sam <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29218	29314	
==>nted.>

This method is a generic relational operator that returns a new Relation
which is the sam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32759	32855	
==>nted.>

This method is a generic relational operator that returns a new Relation
which is the sam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33770	33866	
==>nted.>

This method is a generic relational operator that returns a new Relation
which is the sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6787	6883	
==>:Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6787	6883	
==>:Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6787	6883	
==>:Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (I <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5047	5134	
==>,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max)) -- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19308	19411	
==>the connection to the server
dies. To read data from the server, a blocking C<readline> call is used.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18333	18436	
==>the connection to the server
dies. To read data from the server, a blocking C<readline> call is used.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19308	19411	
==>the connection to the server
dies. To read data from the server, a blocking C<readline> call is used.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18333	18436	
==>the connection to the server
dies. To read data from the server, a blocking C<readline> call is used.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	265	383	
==>not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result = $self->SUPER::isa(@_);
#     return $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5539	5639	
==>{
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5539	5639	
==>{
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6129	6229	
==>{
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11605	11756	
==>/return/;
        
    return
           "$_[1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	148	244	
==>function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	148	244	
==>function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	148	244	
==>function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2643	2743	
==>function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2643	2743	
==>function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2643	2743	
==>function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, + <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	313	409	
==>it Eigenclasses
## to all Classes created. See Method_Dispatch_w_EigenClasses.jpg in this 
## sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2863	2983	
==>name.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2863	2983	
==>name.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2863	2983	
==>name.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pS <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14960	15055	
==>%failedtests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Gen <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1949	2165	
==>tem');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1949	2165	
==>tem');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2213	2386	
==>it>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#} <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2213	2386	
==>it>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25323	25453	
==>)";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25882	26012	
==>)";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8643	8736	
==>ill be caught later.
    return ::($module_name).does(Package);
}

method load_template_module <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8643	8736	
==>ill be caught later.
    return ::($module_name).does(Package);
}

method load_template_module <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12560	12671	
==>'>
}
rule ArrayLiteral :words {  # see 11.1.4
      <'['> <Elision>? <']'>
    | <'['> <ElementList> <']'>
    | <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3779	3887	
==>_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3779	3887	
==>_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	629	737	
==>_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3852	3960	
==>open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3852	3960	
==>open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1461	1563	
==>g the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1668	1770	
==>g the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9881	9984	
==>optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	316	416	
==>optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	316	416	
==>optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a g <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3102	3196	
==>){ ($vars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2193	2296	
==>t1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2193	2296	
==>t1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4550	4644	
==>entire match string, but may be arbitrary
objects returned from the rule using a C<return> clau <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4550	4644	
==>entire match string, but may be arbitrary
objects returned from the rule using a C<return> clau <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11830	11966	
==>=> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11830	11966	
==>=> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11830	11966	
==>=> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1378	1473	
==>s_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35051	35147	
==>ction> if the two source headings are
identical.  This method has an alias named C<matching>.

=i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39601	39697	
==>ction> if the two source headings are
identical.  This method has an alias named C<matching>.

=i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39143	39239	
==>ction> if the two source headings are
identical.  This method has an alias named C<matching>.

=i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5268	5374	
==>ild.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the respons <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5268	5374	
==>ild.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the respons <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4778	4876	
==>gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5028	5126	
==>gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5962	6137	
==>!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9439	9614	
==>!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8495	8670	
==>!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Re <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	34	138	
==>ss Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1327	1449	
==>mmar = shift;\n" .
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0] = '' unl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14045	14141	
==>ew( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14045	14141	
==>ew( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simp <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5730	5814	
==>r.o src/syck/implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syck/t <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2845	2959	
==>dex, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2845	2959	
==>dex, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20285	20378	
==>utoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20285	20378	
==>utoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20507	20619	
==>n;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOT <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16928	17040	
==>n;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOT <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1580	1682	
==>Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1580	1682	
==>Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2572	2698	
==>, @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2572	2698	
==>, @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2572	2698	
==>, @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	927	1041	
==>Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	927	1041	
==>Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( s <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	362	462	
==>/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=hea <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	362	462	
==>/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10105	10242	
==>$grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4650	4761	
==>{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4650	4761	
==>{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4650	4761	
==>{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12978	13101	
==>_emit( $n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10020	10117	
==>PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10020	10117	
==>PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10020	10117	
==>PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5542	5684	
==>gth;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5542	5684	
==>gth;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20262	20361	
==>and easy for developers to study.  As a result, while it performs correctly
and reliably, it also pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20262	20361	
==>and easy for developers to study.  As a result, while it performs correctly
and reliably, it also pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3267	3406	
==>n {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3460	3599	
==>n {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8656	8783	
==>niverse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8656	8783	
==>niverse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1512	1619	
==>_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1512	1619	
==>_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	440	540	
==>le, $value) {
    %Session{$variable} = $value;
}

sub SessionGet($variable) {
    return %Session{$v <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1831	1934	
==>lBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1831	1934	
==>lBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17265	17359	
==>rse way of saying that it subscribes to the
localization methodology that is described here, an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17265	17359	
==>rse way of saying that it subscribes to the
localization methodology that is described here, an <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2821	2930	
==>e duration summary runcore>) {
    print "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16599	16768	
==>= shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16599	16768	
==>= shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16599	16768	
==>= shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11104	11227	
==>e = 1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  su <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3865	3970	
==>{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' and the 'ok' are on dif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13701	13796	
==>MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13701	13796	
==>MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13701	13796	
==>MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18329	18428	
==>l code such as persistence
solutions.  Moreover, these data structures are in exactly the right inpu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18329	18428	
==>l code such as persistence
solutions.  Moreover, these data structures are in exactly the right inpu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13234	13332	
==>l code such as persistence solutions.
Moreover, these data structures are in exactly the right inpu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13234	13332	
==>l code such as persistence solutions.
Moreover, these data structures are in exactly the right inpu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8346	8594	
==>(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1763	1868	
==>('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1763	1868	
==>('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1763	1868	
==>('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5764	5869	
==>ion handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5764	5869	
==>ion handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface:: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7774	7875	
==>d

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7774	7875	
==>d

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	222	341	
==>l       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	222	341	
==>l       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	10	121	
==>ule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	10	121	
==>ule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37734	37870	
==>}[-1],
      data => [ [] ],
      family => 'branch',
      branch => 1,
      neg => !$pos,
    }, $class;
    return $self;
  }

We've <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4991	5105	
==>Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4991	5105	
==>Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4991	5105	
==>Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1286	1386	
==>atever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # e <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1286	1386	
==>atever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9942	10038	
==>rred".  The immediate validations
are performed at the moment the user tries to set the input, an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9942	10038	
==>rred".  The immediate validations
are performed at the moment the user tries to set the input, an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	150	271	
==>ment_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	150	271	
==>ment_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gram <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4236	4325	
==><Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4236	4325	
==><Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2153	2253	
==>constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2153	2253	
==>constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2153	2253	
==>constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4134	4252	
==>('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_sou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4134	4252	
==>('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_sou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4134	4252	
==>('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_sou <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2013	2106	
==>a book, like Numerical Recipies.)  In particular, it suffers from
convergence problems for som <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7563	7735	
==>>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7563	7735	
==>>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7563	7735	
==>>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tm <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16041	16157	
==>.

=cut

sub _is_bail_out {
    my($self, $line, $reason) = @_;

    if( $line =~ /^Bail out!\s*(.*)/i ) {
        $$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2485	2640	
==>}
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2485	2640	
==>}
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2683	2779	
==>erent data streams are enciphered with the same key, the encryption 
can be removed by XORing the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2683	2779	
==>erent data streams are enciphered with the same key, the encryption 
can be removed by XORing the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21633	21733	
==>event> hashref, containing:

=over

=item C<line>

The original line received from the server (unmodi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20514	20614	
==>event> hashref, containing:

=over

=item C<line>

The original line received from the server (unmodi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21633	21733	
==>event> hashref, containing:

=over

=item C<line>

The original line received from the server (unmodi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20514	20614	
==>event> hashref, containing:

=over

=item C<line>

The original line received from the server (unmodi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12872	13095	
==>$ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12872	13095	
==>$ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12872	13095	
==>$ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4237	4336	
==>rn undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4237	4336	
==>rn undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4237	4336	
==>rn undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	231	328	
==>y %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[1]-1, 0, [ $_[2] ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28858	29019	
==>mify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28858	29019	
==>mify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28858	29019	
==>mify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19271	19364	
==>niformity.

=item Documentation

Fixed some poor wording, and documented the problem with usin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10468	10606	
==>gs[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6809	6947	
==>gs[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7658	7796	
==>gs[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2609	2737	
==>e;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2609	2737	
==>e;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2609	2737	
==>e;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	427	531	
==>tagged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt called for all characters <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12704	12851	
==>t $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'prede <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12704	12851	
==>t $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'prede <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6940	7084	
==>$index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7404	7548	
==>$index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19497	19587	
==>p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19497	19587	
==>p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19497	19587	
==>p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9249	9355	
==>b unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9249	9355	
==>b unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34806	34903	
==>:L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34806	34903	
==>:L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2175	2279	
==>ndefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.'( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4631	4729	
==>urrent test plan or throws an exception if there's already a plan in
place.  You have two options f <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4631	4729	
==>urrent test plan or throws an exception if there's already a plan in
place.  You have two options f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6155	6253	
==>urrent test plan or throws an exception if there's already a plan in
place.  You have two options f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28869	28963	
==>is
method supports having the new attributes having the same names as old
attributes that becom <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33421	33515	
==>is
method supports having the new attributes having the same names as old
attributes that becom <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32558	32652	
==>is
method supports having the new attributes having the same names as old
attributes that becom <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	743	845	
==>eaders = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	743	845	
==>eaders = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1573	1672	
==>},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1573	1672	
==>},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1573	1672	
==>},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1565	1661	
==>infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1565	1661	
==>infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1565	1661	
==>infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Stri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1827	1929	
==>> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1827	1929	
==>> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_heade <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	922	1017	
==>ecified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler (o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	875	967	
==>ecified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler (o <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9186	9297	
==>($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9186	9297	
==>($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	258	388	
==>sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	142	267	
==>sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	142	267	
==>sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )' <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22147	22259	
==>elen;
    if ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Col <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3772	4134	
==>h.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interp <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3815	4177	
==>h.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interp <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3772	4134	
==>h.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interp <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3815	4177	
==>h.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	617	728	
==>verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	617	728	
==>verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	617	728	
==>verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38495	38601	
==>:Class->send('add_method' => (
    # method label
        symbol->new('get_attribute_list'),
    # method b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	332	459	
==>atch) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	332	459	
==>atch) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	162	259	
==>DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $s <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	162	259	
==>DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10274	10411	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10553	10690	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_captur <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1942	2048	
==>pression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1942	2048	
==>pression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3742	3930	
==>",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10893	11032	
==>{ \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10893	11032	
==>{ \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10893	11032	
==>{ \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8202	8327	
==>];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8190	8315	
==>];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$in <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1754	1849	
==>ded by this module.

You may then resume the installation process described in README.

-------- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1594	1689	
==>ded by this module.

You may then resume the installation process described in README.

-------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	427	539	
==>? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	427	539	
==>? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	427	539	
==>? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]-> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	400	502	
==>b *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	400	502	
==>b *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2115	2212	
==>Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Dif <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2115	2212	
==>Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Dif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13356	13478	
==>e (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequence (?#... not terminated

=item RPe_LOGDEP (-4)

(?p{}) is depre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15457	15555	
==>rns the definition of success (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_per <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1737	1831	
==>ake.exe' file needed by this module.

You may then resume the installation process described in <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1577	1671	
==>ake.exe' file needed by this module.

You may then resume the installation process described in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8835	8971	
==>ure( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9028	9164	
==>ure( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	160	257	
==>s = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	160	257	
==>s = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7608	7721	
==>'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7608	7721	
==>'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6112	6215	
==>bjects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () returns <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6112	6215	
==>bjects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () returns <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1590	1694	
==>BuildFile($intmp, $data);
   my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cmd'...";
   my $ <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	174	256	
==>L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages: <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	141	223	
==>L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages: <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	187	269	
==>L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1769	1888	
==>res?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1769	1888	
==>res?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= " <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	696	793	
==>g::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	696	793	
==>g::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6296	6398	
==>ttr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6296	6398	
==>ttr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6296	6398	
==>ttr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	152	245	
==>Blondie::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10920	11050	
==>ples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12391	12521	
==>ples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14397	14527	
==>ples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15868	15998	
==>ples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            body => se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22642	22789	
==>my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $self:) returns opaque {
    # sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4925	5121	
==>' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4925	5121	
==>' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4925	5121	
==>' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7151	7249	
==>sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfiles;
step
  descr  => "Sea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2590	2705	
==>| %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2590	2705	
==>| %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2590	2705	
==>| %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16299	16406	
==>eans character classes should store a hash of what characters
they represent, as well as the macros C<\w>, C <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14284	14434	
==>_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14284	14434	
==>_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1779	1884	
==>od clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1779	1884	
==>od clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9371	9508	
==>>{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9371	9508	
==>>{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TE <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29553	29640	
==>ULTILINE 1

pp_ctl.c
pp_regcomp
pp_substcont
Perl_rxres_save
Perl_rxres_restore
Perl_rxr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8597	8708	
==>= SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	874	973	
==>in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	874	973	
==>in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	874	973	
==>in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	45	148	
==>() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	45	148	
==>() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	705	807	
==>resh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

clas <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	705	807	
==>resh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

clas <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3418	3552	
==>ap {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3418	3552	
==>ap {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	718	818	
==>d when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	718	818	
==>d when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11753	11863	
==>rn $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      met <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2183	2281	
==>rn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    met <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2183	2281	
==>rn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11475	11567	
==>'... instance calling metaclass singleton method fails';

is($iBar->foo, 'Foo->foo', '... $iB <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1357	1473	
==>Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1357	1473	
==>Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  ha <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8646	8741	
==>y caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8646	8741	
==>y caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4401	4617	
==>h.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4401	4617	
==>h.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20429	20519	
==>f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20429	20519	
==>f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	557	706	
==>ram($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	557	706	
==>ram($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6121	6222	
==>ew();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6121	6222	
==>ew();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30229	30363	
==>--;             # this does pos(regex)--
    return;
  });

This handler un-consumes the ')' (via C<&RxPOS-->) and returns false, to
pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2531	2626	
==>mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2531	2626	
==>mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2531	2626	
==>mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $m <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3475	3594	
==>ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7248	7360	
==>i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7248	7360	
==>i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7248	7360	
==>i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8121	8235	
==>\$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8109	8223	
==>\$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1] <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	834	931	
==>y methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	834	931	
==>y methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2603	2774	
==>_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any % <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2603	2774	
==>_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any % <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1458	1561	
==>previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.unive <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1458	1561	
==>previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.unive <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4235	4344	
==>b *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3362	3471	
==>b *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4235	4344	
==>b *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3362	3471	
==>b *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1	105	
==>odule FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $Real <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1	105	
==>odule FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $Real <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30894	30988	
==>s a new Relation::Example
which has a superset of the original's attributes; the new Relation:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6025	6149	
==>hans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($ch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6805	6929	
==>hans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6025	6149	
==>hans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6805	6929	
==>hans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11139	11283	
==>Code->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11139	11283	
==>Code->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11139	11283	
==>Code->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2187	2288	
==>e <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1167	1334	
==>$::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1167	1334	
==>$::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1167	1334	
==>$::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init = <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14548	14646	
==>e/black black/light-gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	659	764	
==>ler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3730	3835	
==>ler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	659	764	
==>ler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3730	3835	
==>ler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10146	10250	
==>------------------------------  
    # collects all the roles, and applies them to the
    # invocant, wh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10146	10250	
==>------------------------------  
    # collects all the roles, and applies them to the
    # invocant, wh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10146	10250	
==>------------------------------  
    # collects all the roles, and applies them to the
    # invocant, wh <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5019	5117	
==>ed $pil_tree;
    use Data::Dumper;
    PIL::PIL1CPerl5::Util::rebless_with_prefix_and_cleanup($pil <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3082	3188	
==>@basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3082	3188	
==>@basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1791	1877	
==>Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3167	3253	
==>Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9617	9735	
==>tion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13094	13212	
==>tion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12366	12484	
==>tion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3648	3808	
==>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3648	3808	
==>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3648	3808	
==>($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6338	6462	
==>ie "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	211	313	
==>odel2.0/lib");
use Getopt::Long qw(:config no_auto_version);

my (@eval,$repl,@inc_dirs,$compile,$as_ya <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3663	3753	
==>OF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3663	3753	
==>OF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3663	3753	
==>OF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3570	3668	
==>~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3570	3668	
==>~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15333	15428	
==>ation written to it should behave identically no matter which
conforming "Engine" is in use.

Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15333	15428	
==>ation written to it should behave identically no matter which
conforming "Engine" is in use.

Ro <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16429	16589	
==>print STDERR "Trying to get heading >$heading<\n";

                my $h = $sobj->look_down( _tag  => 'div', 
                                          class => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1399	1485	
==>$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1399	1485	
==>$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1399	1485	
==>$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_a <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1149	1249	
==>sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _tri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1149	1249	
==>sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _tri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	16	113	
==>Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	16	113	
==>Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	16	113	
==>Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7260	7427	
==>->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7260	7427	
==>->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7260	7427	
==>->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9895	10015	
==>:ENV)
             (closure::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher" <bl <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1041	1166	
==>$archive = $path . $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	455	552	
==>1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output fo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	455	552	
==>1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1011	1108	
==>1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4736	4849	
==>cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4736	4849	
==>cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4736	4849	
==>cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $m <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4036	4148	
==>cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1758	1902	
==>my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1758	1902	
==>my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	329	438	
==>is web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("H <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	329	438	
==>is web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("H <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2207	2352	
==>::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    retu <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2207	2352	
==>::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25164	25257	
==>ation $other!) returns Bool>

This method returns a Bool indicating whether the immutable iden <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29716	29809	
==>ation $other!) returns Bool>

This method returns a Bool indicating whether the immutable iden <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1020	1112	
==>>config->_alternatives );
}

=head2 $file = $inst->registered_alternatives_file

=cut

sub re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24740	24826	
==>modifiers(E0,[],E0).
set_flag(E0,i,E1)  :- set_flag_i(E0,i,E1), !.
set_flag(E0,-i,E1) : <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1203	1319	
==>te"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1203	1319	
==>te"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18762	18857	
==>PI (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18762	18857	
==>PI (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2251	2369	
==>> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2251	2369	
==>> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	121	214	
==>l eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6:: <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	121	214	
==>l eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	444	544	
==>God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	444	544	
==>God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	444	544	
==>God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10244	10333	
==>JavaScript</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13934	14041	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1920	2012	
==>erl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1920	2012	
==>erl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1920	2012	
==>erl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37218	37314	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string) an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37457	37553	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string) an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37218	37314	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string) an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37457	37553	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string) an <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8544	8650	
==>3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8544	8650	
==>3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16165	16263	
==>, and will
not spend much time in providing rationales; you can read TTM itself and
various other e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16165	16263	
==>, and will
not spend much time in providing rationales; you can read TTM itself and
various other e <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3745	3843	
==>= MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.' <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	849	947	
==>= MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.' <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3745	3843	
==>= MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	782	877	
==>= MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5106	5219	
==>'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPara <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5106	5219	
==>'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPara <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2010	2123	
==>'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpPara <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7079	7221	
==>}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7079	7221	
==>}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5805	5907	
==>does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5805	5907	
==>does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9124	9296	
==>em => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9124	9296	
==>em => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9124	9296	
==>em => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6622	6732	
==>ake_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6622	6732	
==>ake_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6622	6732	
==>ake_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4323	4426	
==>runtests>

  my $allok = runtests(@test_files);

This runs all the given I<@test_files> and divines whet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10850	11030	
==>d status returns Hash
      {
          return
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1346	1508	
==>d status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1346	1508	
==>d status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31817	31939	
==>turn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31817	31939	
==>turn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31817	31939	
==>turn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2463	2595	
==>ead1 DESCRIPTION

see L<Blondie> for a documentation of the node types

=head1 EXPORTS

For each node type a function named for its c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4323	4445	
==>print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4323	4445	
==>print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4323	4445	
==>print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1788	1899	
==>"&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1788	1899	
==>"&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1788	1899	
==>"&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__exp <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1686	1777	
==>sub warnings { $_[0]{'warnings'} }
sub has_failed { $_[0]{'has_failed'} }

package Perl6::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1169	1283	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1169	1283	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1169	1283	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $inst <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1434	1531	
==>_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round_half_rand <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15	126	
==>-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19	130	
==>-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15	126	
==>-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19	130	
==>-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23120	23321	
==>tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23120	23321	
==>tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23120	23321	
==>tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34	148	
==>og
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34	148	
==>og
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34	148	
==>og
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @ele <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	995	1094	
==>ts::Event.new(*@args));
    }

    method mk_notifications (*@subscriptions of Class::Events::Subscr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2975	3166	
==>h_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2975	3166	
==>h_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1368	1493	
==>her => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        assoc => 'left',
        precedence => 'eq <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	460	557	
==>rface
sub to_str { shift }

# conversion to other native types
sub to_bit { (shift)->to_native() ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	35	133	
==>005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	35	133	
==>005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	35	133	
==>005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VER <==
4	/Users/nnunley/pugs/util/testgraph.pl	836	940	
==>8" or die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18124	18217	
==>p1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18124	18217	
==>p1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18124	18217	
==>p1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3751	3893	
==>t some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3751	3893	
==>t some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16219	16359	
==>atch[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16213	16353	
==>atch[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dump <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	174	273	
==>e Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	174	273	
==>e Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	174	273	
==>e Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5080	5167	
==>---------------------------------------------------------------------
## now begin creat <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16869	16972	
==>6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3640	3811	
==>t) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3640	3811	
==>t) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            l <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13678	13773	
==>cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13678	13773	
==>cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2275	2388	
==>e 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2275	2388	
==>e 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2275	2388	
==>e 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2675	2779	
==>int "adding $opt->{name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt->{fix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1296	1393	
==>,
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1296	1393	
==>,
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1296	1393	
==>,
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6 <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3177	3287	
==>d $event) {
            # an optimizing lookup for named events stores things in a hash to reduce algorithmic c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	966	1065	
==>ew(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[pub <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	966	1065	
==>ew(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[pub <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4670	4766	
==>[Put]]>(GetPropertyName($V),$W);
    return;
}

# 8.8 The List Type
class JSX::InternalValue::Lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14484	14649	
==>le $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14484	14649	
==>le $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14484	14649	
==>le $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8522	8623	
==>plemented.\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_catch_return_CODE($code_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31099	31203	
==>ou send the names (like '|' or
'atom').  Here is a very simple complete sub-class that does not allow
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7125	7226	
==>tf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7125	7226	
==>tf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7125	7226	
==>tf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1994	2172	
==>}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Ros <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5781	5959	
==>}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1994	2172	
==>}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5781	5959	
==>}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Ros <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8848	8969	
==>n = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1004	1117	
==>n = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1004	1117	
==>n = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.tes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36612	36707	
==>I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

T <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4332	4435	
==>lti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differen <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3459	3562	
==>lti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4332	4435	
==>lti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differen <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3459	3562	
==>lti sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is differen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9090	9263	
==>$list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9090	9263	
==>$list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9090	9263	
==>$list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        }, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	651	803	
==>pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$P <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	61	181	
==>nfix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1864	1961	
==>ss.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1864	1961	
==>ss.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1864	1961	
==>ss.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_inst <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7658	7768	
==>ams[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	945	1049	
==>lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	945	1049	
==>lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	945	1049	
==>lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2202	2305	
==>elf->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $na <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5621	5722	
==>e role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5621	5722	
==>e role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7818	7919	
==>e role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a s <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	640	752	
==>et, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.p <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1363	1463	
==>close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1363	1463	
==>close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1288	1442	
==>"?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   . <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1288	1442	
==>"?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   . <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	746	838	
==>r::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compil <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	746	838	
==>r::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	424	550	
==>,
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	424	550	
==>,
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	424	550	
==>,
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39394	39488	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5129	5223	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39394	39488	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5129	5223	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1504	1614	
==>rray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1504	1614	
==>rray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1504	1614	
==>rray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - ad <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1170	1264	
==>racted,$remainder) = Text::Balanced::extract_delimited( "/" . $_[0], "/" );
    $extracted = su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36122	36245	
==>h -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36122	36245	
==>h -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36122	36245	
==>h -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cla <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10114	10234	
==>prog;

my $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2237	2328	
==>st certainly would have punted.
Also to iblech, and Michael Schilli of JavaScript::SpiderMon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4306	4388	
==>: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4306	4388	
==>: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4306	4388	
==>: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{sl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2004	2139	
==>his help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	318	453	
==>his help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2004	2139	
==>his help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2004	2139	
==>his help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run perl5 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3660	3762	
==>er::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workaround
    package Regexp::Pars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20312	20398	
==>ULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20312	20398	
==>ULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20312	20398	
==>ULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7360	7463	
==>if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :dens <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7360	7463	
==>if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :dens <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3067	3410	
==>elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Extern <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3067	3410	
==>elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Extern <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5402	5497	
==>done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in whic <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5402	5497	
==>done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	790	903	
==>s [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	790	903	
==>s [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	790	903	
==>s [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24322	24484	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25585	25747	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24601	24763	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25864	26026	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32484	32600	
==>shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' node is walked into, after it has
been wal <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17277	17377	
==>eading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20754	20854	
==>eading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20332	20432	
==>eading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!head <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27825	27943	
==>aque $self:) returns list {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(method MRO ((opaq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2321	2423	
==>or: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2321	2423	
==>or: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2321	2423	
==>or: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2657	2760	
==>ulti method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1,1);
#}

# copied from S29draf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2596	2693	
==>- $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2596	2693	
==>- $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2596	2693	
==>- $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7119	7239	
==>_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7119	7239	
==>_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21449	21562	
==>);

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17870	17983	
==>);

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1032	1144	
==>(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1032	1144	
==>(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1032	1144	
==>(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6245	6350	
==>_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => set( %full_map.values ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2144	2246	
==>st went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2144	2246	
==>st went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2144	2246	
==>st went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11719	11817	
==>C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the items i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8866	8964	
==>C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the items i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11719	11817	
==>C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the items i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8866	8964	
==>C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the items i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1381	1509	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1381	1509	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1381	1509	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submetho <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2506	2615	
==>th as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2506	2615	
==>th as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [s <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2671	2779	
==>, $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(par <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2671	2779	
==>, $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(par <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	756	866	
==>lback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	756	866	
==>lback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16642	16741	
==>first time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16642	16741	
==>first time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3189	3296	
==>n /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happe <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3189	3296	
==>n /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happe <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	744	841	
==>rrently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise ve <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	744	841	
==>rrently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13205	13332	
==>hough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13205	13332	
==>hough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13205	13332	
==>hough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11316	11412	
==>sequence(char(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7446	7534	
==>thunk = ($app->struct_equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($or <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6385	6510	
==>=> \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7960	8069	
==>unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7960	8069	
==>unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7960	8069	
==>unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packag <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	558	668	
==>} elsif ($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing fai <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12862	12968	
==>undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12862	12968	
==>undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12862	12968	
==>undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	250	351	
==>f->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	250	351	
==>f->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	250	351	
==>f->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $sel <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27295	27387	
==>, ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	143	246	
==>/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	143	246	
==>/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	143	246	
==>/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4620	4721	
==>l:<x> { ... } # define your own m:x()/stuff/

    As with any such syntactic shenanigans, the declarat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	333	436	
==>pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	333	436	
==>pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pSt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	333	436	
==>pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pSt <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1461	1594	
==>> 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1461	1594	
==>> 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18374	18465	
==>stem-managed locks so that resource corruption or application
failure is prevented.  I<Also, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18374	18465	
==>stem-managed locks so that resource corruption or application
failure is prevented.  I<Also, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2956	3069	
==>) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$translato <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2956	3069	
==>) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$translato <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9676	9768	
==><HTTP::Response> classes, internal to the
library.

The following methods are available:

=ov <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9676	9768	
==><HTTP::Response> classes, internal to the
library.

The following methods are available:

=ov <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	416	549	
==>le/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking o <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	416	549	
==>le/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	126	219	
==>er;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	126	219	
==>er;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3219	3345	
==>{
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3219	3345	
==>{
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2018	2129	
==>'$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2018	2129	
==>'$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2018	2129	
==>'$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; m <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1789	1890	
==>0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1517	1640	
==>ELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1517	1640	
==>ELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1517	1640	
==>ELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	655	750	
==>| $signature->isa('closure::signature')))
        || confess "signature must be an closure::para <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	552	649	
==>* Successfully built!  Type '$Config{make} install' to install.\n";

# make an educated guess of w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6395	6571	
==>e->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6395	6571	
==>e->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6395	6571	
==>e->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13772	13877	
==>lude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13772	13877	
==>lude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9119	9205	
==>|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9223	9306	
==>|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12784	12881	
==>urrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12784	12881	
==>urrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2970	3085	
==>($self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16771	16864	
==>:pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16771	16864	
==>:pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16771	16864	
==>:pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1773	1888	
==>ng $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1773	1888	
==>ng $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2691	2787	
==>rammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2691	2787	
==>rammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warn <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	288	394	
==>->new(0);

# create a null object to 
# be used in bootstrapping
our $NULL_OBJECT = bless [ 
    $OBJECT_ID <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1348	1444	
==>= $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1348	1444	
==>= $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1348	1444	
==>= $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2340	2470	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2340	2470	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2340	2470	
==>) -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28126	28237	
==>w @:MRO)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('MRO'),
    # method b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8943	9102	
==>ith an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_ME <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8943	9102	
==>ith an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_ME <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8943	9102	
==>ith an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_ME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20970	21063	
==>support;

Any of your distrbution's modules that use Module::Compile based modules
will automa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20970	21063	
==>support;

Any of your distrbution's modules that use Module::Compile based modules
will automa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20559	20656	
==>r all the compilers have finished, the digest lines will
be expanded again.

Every bit of the defa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20559	20656	
==>r all the compilers have finished, the digest lines will
be expanded again.

Every bit of the defa <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3051	3143	
==>st in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 ag <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5253	5345	
==>st in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 ag <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11649	11745	
==>ber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remove <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8796	8892	
==>ber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remove <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11649	11745	
==>ber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remove <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8796	8892	
==>ber of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Remove <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	776	1170	
==>10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        17 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	776	1170	
==>10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        17 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	514	612	
==>(Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	572	670	
==>(Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4514	4625	
==>)} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4514	4625	
==>)} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4514	4625	
==>)} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	37	141	
==>t || 'test';

print(('-' x 80), "\n");
print "Testing perl5 naive bayesian script with $test_file\n";
pri <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	857	988	
==>e bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have pro <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	857	988	
==>e bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have pro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1711	1808	
==>r

(variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Single a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1643	1737	
==>r
(variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Single a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4838	4940	
==>sect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inters <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4838	4940	
==>sect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inters <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	540	640	
==>tors

method parent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	540	640	
==>tors

method parent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1164	1276	
==>on #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # note <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1514	1623	
==>on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1121	1230	
==>on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1514	1623	
==>on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4192	4306	
==>=> $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $app->fmap(sub { $self->re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15871	15973	
==>($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15871	15973	
==>($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15871	15973	
==>($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {... <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6051	6208	
==>($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @span <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6871	7028	
==>($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6051	6208	
==>($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6871	7028	
==>($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @span <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10731	10849	
==>nt, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10731	10849	
==>nt, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31775	31872	
==>r is fluent in (and prefers) language A but also understands
language B.  Later on, if for example <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31775	31872	
==>r is fluent in (and prefers) language A but also understands
language B.  Later on, if for example <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	121	239	
==>r  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'n <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	121	239	
==>r  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21529	21624	
==>every Relation tuple must be distinct from the other tuples.  All Relation
attributes may be ind <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26081	26176	
==>every Relation tuple must be distinct from the other tuples.  All Relation
attributes may be ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1226	1339	
==>_box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1226	1339	
==>_box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($matc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9873	9979	
==>s the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11350	11456	
==>s the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5162	5305	
==>bstr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5162	5305	
==>bstr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5162	5305	
==>bstr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4193	4302	
==>s{prefix};
    }

    return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7883	7988	
==>es($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7013	7118	
==>es($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7883	7988	
==>es($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7013	7118	
==>es($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1568	1683	
==>base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1568	1683	
==>base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5882	5996	
==>base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5882	5996	
==>base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' paramete <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1031	1137	
==>ue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1031	1137	
==>ue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * ad <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1031	1137	
==>ue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14524	14640	
==>preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14524	14640	
==>preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1672	1775	
==>etta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1672	1775	
==>etta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8005	8102	
==>em this class solves is when you need do perform "set" operations on 
Span objects, that return li <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8005	8102	
==>em this class solves is when you need do perform "set" operations on 
Span objects, that return li <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1126	1219	
==>haven't been selected won't be printed.  It is designed for so-called 
"print-based debugging" <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1126	1219	
==>haven't been selected won't be printed.  It is designed for so-called 
"print-based debugging" <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6276	6393	
==>n = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c continue p pos
        once bytes cod <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28405	28509	
==>bbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11162	11264	
==>class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11162	11264	
==>class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comm <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	447	562	
==>} qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::provide <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21484	21580	
==>e ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21484	21580	
==>e ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21484	21580	
==>e ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3602	3744	
==>lot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3602	3744	
==>lot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3602	3744	
==>lot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9318	9426	
==>kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5:: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7078	7185	
==>ning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1418	1519	
==>ning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1418	1519	
==>ning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1418	1519	
==>ning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1643	1749	
==>Params::Check->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1181	1278	
==>, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1181	1278	
==>, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1181	1278	
==>, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_outp <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2413	2523	
==>f it uses a
regexp struct, which gets attached to the op tree.  The struct is used
both to return a compiled re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	662	760	
==>.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	662	760	
==>.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	662	760	
==>.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2197	2301	
==>s_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MA <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2197	2301	
==>s_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MA <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9784	9877	
==>r" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurren <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9784	9877	
==>r" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10147	10332	
==>pec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10147	10332	
==>pec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10147	10332	
==>pec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6403	6505	
==>ars {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit from t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25159	25245	
==>bot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23923	24009	
==>bot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25159	25245	
==>bot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23923	24009	
==>bot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openf <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4445	4563	
==>et.

Returns true on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	379	472	
==>new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	379	472	
==>new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	379	472	
==>new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1992	2155	
==>e, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size " <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1992	2155	
==>e, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size " <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1575	1683	
==>$encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '2 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1575	1683	
==>$encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '2 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1677	1767	
==>_index) && $start_index->isa('num')) &&
     (blessed($end_index) && $end_index->isa('num') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2027	2153	
==>thod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2027	2153	
==>thod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2027	2153	
==>thod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7553	7657	
==>turn;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERSION );

Normalizes the versions passed and does <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6556	6664	
==>urn "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6556	6664	
==>urn "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5500	5592	
==>,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Typ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5500	5592	
==>,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19017	19137	
==>ispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19017	19137	
==>ispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19017	19137	
==>ispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warni <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14505	14600	
==>st++ };
default 0
timeout 0
color light-blue/black black/light-gray
hiddenmenu

title    $pugs_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5969	6123	
==>e));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5969	6123	
==>e));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5969	6123	
==>e));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20320	20461	
==>hen => ide("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									fun => i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3228	3457	
==>nts<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3228	3457	
==>nts<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4673	4770	
==>is part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4673	4770	
==>is part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The d <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11674	11766	
==>-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testin <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11732	11824	
==>-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5520	5653	
==>rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5713	5846	
==>rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unle <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25946	26040	
==>ng this original copyright notice and other credits.
Rosetta is distributed in the hope that it <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25946	26040	
==>ng this original copyright notice and other credits.
Rosetta is distributed in the hope that it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4703	4813	
==>utput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4703	4813	
==>utput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4703	4813	
==>utput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	741	837	
==>der - find duplicate nodes in a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9674	9774	
==>f $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9674	9774	
==>f $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9674	9774	
==>f $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pus <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4321	4416	
==>Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10646	10797	
==>version } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        return unless $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	326	422	
==>lurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	326	422	
==>lurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	326	422	
==>lurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18535	18689	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18814	18968	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'g <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3505	3626	
==>recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3505	3626	
==>recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1713	1832	
==>w_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1713	1832	
==>w_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1713	1832	
==>w_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18983	19081	
==>his won't work if we pass in $plus_ten
my $flatten_polymorphic = fun(
	param => "f",
	body => comb( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	762	909	
==>) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1874	2002	
==>efined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1874	2002	
==>efined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1874	2002	
==>efined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31917	32016	
==>e and wants it shown to the user, the main program would check each
of the 3 Template module sets in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31917	32016	
==>e and wants it shown to the user, the main program would check each
of the 3 Template module sets in <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26001	26098	
==>setta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26001	26098	
==>setta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11707	11872	
==>t{max};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $overrun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9245	9333	
==>-----------------------------------------------------

This is a rough sketch of that rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9245	9333	
==>-----------------------------------------------------

This is a rough sketch of that rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9245	9333	
==>-----------------------------------------------------

This is a rough sketch of that rol <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5292	5428	
==>rsion) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Config{osname} eq "cygwin" 
                            or $Config{osnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6785	6885	
==>lasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3048	3148	
==>oniker : "const";
		join("_", $type, ++$self->{counters}{$type});
	}
}

sub define {
	my $self = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6785	6885	
==>lasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6785	6885	
==>lasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	142	252	
==>$?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	142	252	
==>$?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	142	252	
==>$?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless key <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13950	14059	
==>ow) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3706	3822	
==>bname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3706	3822	
==>bname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3706	3822	
==>bname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $j <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4832	4932	
==>@{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3051	3174	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3244	3367	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_de <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5363	5471	
==>old all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proces <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5363	5471	
==>old all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proces <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	675	776	
==>])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	675	776	
==>])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	675	776	
==>])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6107	6258	
==>pans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $sp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6927	7078	
==>pans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6107	6258	
==>pans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6927	7078	
==>pans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $sp <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11431	11544	
==>of %*ENV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = grep !/pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4892	4996	
==>ss $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4892	4996	
==>ss $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4892	4996	
==>ss $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2698	2833	
==>else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2698	2833	
==>else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2698	2833	
==>else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6677	6787	
==>my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$groups;

    my @index_files;
    my %copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	216	349	
==>rn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	216	349	
==>rn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	216	349	
==>rn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19306	19454	
==>label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39758	39906	
==>label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8023	8115	
==>le exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.buil <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8023	8115	
==>le exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.buil <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	470	648	
==>lar {
   Array::shift @CALLER::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24713	24809	
==>::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid input <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24713	24809	
==>::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid input <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6255	6350	
==>$test_filehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2643	2775	
==>odule      Perl 6 standard namespace
    Class       Perl 6 standard class namespace
    Object      Perl 6 object
    Grammar     Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1153	1271	
==>->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1153	1271	
==>->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1153	1271	
==>->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5626	5727	
==>o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    META <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5626	5727	
==>o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    META <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5626	5727	
==>o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    META <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22016	22154	
==>o reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[cname] = self
    self["isarray"] = isarray
  
  n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9796	9897	
==>]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9796	9897	
==>]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9796	9897	
==>]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a) <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	706	829	
==>he bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 720 <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	706	829	
==>he bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 720 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2585	2681	
==>ds!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two dif <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2585	2681	
==>ds!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two dif <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5901	6028	
==>self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5901	6028	
==>self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17197	17316	
==>= (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17197	17316	
==>= (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2668	2803	
==>a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2668	2803	
==>a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1335	1460	
==>.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1335	1460	
==>.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1079	1177	
==>e to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1079	1177	
==>e to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

C <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13116	13212	
==>urrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13116	13212	
==>urrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5806	5946	
==>||
               $n->{sub}{bareword} eq 'warn';
        return " print '', " . _emit( $n->{param} ) . ";\n" .
            " print " . '"\ <==
4	/Users/nnunley/pugs/util/func_refact.pl	1085	1192	
==>on (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is " . scalar(keys %ccset) . "\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2879	3150	
==>) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3946	4047	
==>ame, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3946	4047	
==>ame, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3946	4047	
==>ame, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1050	1154	
==>air
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1050	1154	
==>air
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1050	1154	
==>air
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl( <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	951	1093	
==>";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ". <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	951	1093	
==>";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ". <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25045	25141	
==>displayed by your program.  The Message class is pure and deterministic,
such that all of its cla <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25045	25141	
==>displayed by your program.  The Message class is pure and deterministic,
such that all of its cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2885	3006	
==>(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2885	3006	
==>(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3498	3594	
==>terfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3498	3594	
==>terfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16735	16860	
==>y @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().() <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16735	16860	
==>y @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().() <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12467	12563	
==>HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that ar <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12467	12563	
==>HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that ar <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3248	3418	
==>> 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) re <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3248	3418	
==>> 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	385	530	
==>{
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	385	530	
==>{
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20603	20715	
==>ns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19529	19641	
==>ns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20603	20715	
==>ns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19529	19641	
==>ns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3799	3905	
==>eturn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3799	3905	
==>eturn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3799	3905	
==>eturn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2398	2495	
==>'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2398	2495	
==>'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->ST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2398	2495	
==>'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->ST <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5257	5511	
==>n="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5257	5511	
==>n="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1910	2059	
==>my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1910	2059	
==>my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" an <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6192	6291	
==>OGNITION_FLAG;

    /*XXX should SvREFCNT_dec current value */
    r->substrs->data[0].substr = SvRE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	405	490	
==>upported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	405	490	
==>upported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	405	490	
==>upported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4505	4618	
==>sh( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5834	5947	
==>sh( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4505	4618	
==>sh( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5822	5935	
==>sh( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1828	1941	
==>lsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1828	1941	
==>lsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1828	1941	
==>lsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2372	2469	
==>|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2372	2469	
==>|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2372	2469	
==>|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29934	30033	
==>alyze_file() not taint clean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3633	3723	
==>ute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3633	3723	
==>ute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3633	3723	
==>ute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5531	5643	
==>, ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5531	5643	
==>, ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

= <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6458	6568	
==>, ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

= <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6458	6568	
==>, ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

= <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4089	4206	
==>../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacte <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4089	4206	
==>../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacte <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4289	4388	
==>e thunk for + will be reduced, with 1 and 10 in the parameter stack, the
dynamic scope stack will be <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6733	6830	
==>t previous_comp_hook = NULL;

regexp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3986	4119	
==>=> $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4179	4312	
==>=> $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	719	845	
==>ve accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # cap <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	719	845	
==>ve accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3754	3838	
==>xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3754	3838	
==>xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3754	3838	
==>xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7771	7939	
==>package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unles <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8235	8403	
==>package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unles <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4201	4357	
==>package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unles <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4665	4821	
==>package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unles <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2068	2175	
==>c is not really implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or preferably <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1457	1559	
==>, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1457	1559	
==>, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1457	1559	
==>, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23401	23535	
==>hift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23401	23535	
==>hift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23401	23535	
==>hift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	564	656	
==>stem("pugs naive_bayesian.p6 add apples apples");
    system("pugs naive_bayesian.p6 add oran <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	662	793	
==>\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	662	793	
==>\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2698	2882	
==>by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $u <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2698	2882	
==>by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3606	3698	
==>=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3606	3698	
==>=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6413	6569	
==>ame', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6413	6569	
==>ame', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6413	6569	
==>ame', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @arg <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6297	6392	
==>'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3308	3399	
==>cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3308	3399	
==>cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3308	3399	
==>cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14824	14937	
==>turn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class-> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14824	14937	
==>turn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7286	7398	
==>'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7286	7398	
==>'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	420	596	
==>status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	420	596	
==>status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8759	8909	
==>cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8759	8909	
==>cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3588	3776	
==>l(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13591	13718	
==>$key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13591	13718	
==>$key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13591	13718	
==>$key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	821	936	
==>e Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'void';\n" .   # t/07-try.t, t/07-ref. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10876	10971	
==>attribute_list;            
}

----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10876	10971	
==>attribute_list;            
}

----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10876	10971	
==>attribute_list;            
}

----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/util/package-osx.pl	9587	9717	
==>n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3572	3901	
==>PTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # Exte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3572	3901	
==>PTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # Exte <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	832	928	
==>H(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() act <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	832	928	
==>H(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() act <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	214	336	
==>);

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[-1] eq 'CODE' };

use constant IS_FILE        = <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	609	727	
==>q 'GLOB' ) {
        bless $self, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5087	5189	
==>ecendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7755	7857	
==>ecendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->ba <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	707	815	
==>( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	707	815	
==>( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1167	1271	
==>>compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    * <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1167	1271	
==>>compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    * <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5493	5597	
==>>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5493	5597	
==>>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined chan <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4139	4237	
==>ot given.

The value for day can also be the string "last", in which case the
object returned repre <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4139	4237	
==>ot given.

The value for day can also be the string "last", in which case the
object returned repre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39218	39336	
==>aracter class specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character classes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3006	3108	
==>>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3006	3108	
==>>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3006	3108	
==>>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.* <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1116	1218	
==>ss Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $t <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1116	1218	
==>ss Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6928	7029	
==>ans I should defer events until I get to the
end of the line. I could probably do that, but it could g <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6928	7029	
==>ans I should defer events until I get to the
end of the line. I could probably do that, but it could g <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1475	1604	
==>ng => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3052	3146	
==>mpiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3052	3146	
==>mpiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3052	3146	
==>mpiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available op <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24279	24382	
==>ctive program controlling their
  actions) which are always seen to be replying lest they end up in a lo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23052	23155	
==>ctive program controlling their
  actions) which are always seen to be replying lest they end up in a lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24279	24382	
==>ctive program controlling their
  actions) which are always seen to be replying lest they end up in a lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23052	23155	
==>ctive program controlling their
  actions) which are always seen to be replying lest they end up in a lo <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12492	12613	
==>ix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method curren <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35287	35384	
==>except that this method will fail if any of its source Relations
have attributes in common; it wil <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39837	39934	
==>except that this method will fail if any of its source Relations
have attributes in common; it wil <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39397	39494	
==>except that this method will fail if any of its source Relations
have attributes in common; it wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4537	4669	
==>> sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4537	4669	
==>> sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4537	4669	
==>> sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2721	2813	
==>($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8977	9075	
==>::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9775	9873	
==>::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10684	10782	
==>::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11510	11608	
==>::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other does <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21888	22013	
==>d
    cname = self["cname"]
    isarray = pad["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 g <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3348	3466	
==>cription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.tod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3348	3466	
==>cription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.tod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4872	4990	
==>cription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.tod <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6540	6687	
==>rrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $s <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5044	5191	
==>rrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	372	467	
==>rmative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prop <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	372	467	
==>rmative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prop <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	158	288	
==>XME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a wh <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	158	288	
==>XME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a wh <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10440	10531	
==>the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previou <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10440	10531	
==>the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previou <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	431	526	
==>into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	431	526	
==>into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1386	1480	
==>: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1386	1480	
==>: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() return <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	759	859	
==>ackage::Binary
    JIB::Package::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the fu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8096	8194	
==>thorough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8096	8194	
==>thorough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through the <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1032	1125	
==>> $Config{installsiteman1dir} || $Config{installman1dir},
        installsiteman3dir => $Confi <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1446	1541	
==>eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infi <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1446	1541	
==>eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1746	1869	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3709	3832	
==>g;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1746	1869	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1746	1869	
==>t = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21326	21424	
==>sle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you ca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21326	21424	
==>sle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you ca <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2295	2393	
==>rness.  They are exported on request.

=over 4

=item C<$Test::Harness::Verbose>

The package varia <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1450	1543	
==>h>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12966	13072	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12966	13072	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12966	13072	
==>my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1564	1664	
==>::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DESCRIPTION

This module provides <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1614	1759	
==>];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1559	1700	
==>];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4276	4422	
==>\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "not impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3257	3383	
==>a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3257	3383	
==>a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3257	3383	
==>a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7209	7306	
==>sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7209	7306	
==>sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7209	7306	
==>sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1843	1983	
==>ELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1843	1983	
==>ELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1843	1983	
==>ELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the ins <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2480	2573	
==>iteral>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_ind <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4946	5103	
==>);
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4946	5103	
==>);
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5607	5706	
==>ence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5607	5706	
==>ence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1384	1499	
==>'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4509	4622	
==>'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4509	4622	
==>'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15299	15399	
==>to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $deco <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15299	15399	
==>to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $deco <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16014	16113	
==>ne itself and not any human user.  In some
situations, a shared program component may raise such a c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16014	16113	
==>ne itself and not any human user.  In some
situations, a shared program component may raise such a c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9163	9265	
==>ethod(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9163	9265	
==>ethod(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9163	9265	
==>ethod(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------------------- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3140	3229	
==>ives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_conjunction <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	69	181	
==>is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	69	181	
==>is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	69	181	
==>is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(arg <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4769	4875	
==>ength $lines;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with error code ".($?>>8)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17729	17862	
==>xt_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17729	17862	
==>xt_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17729	17862	
==>xt_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-metho <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1642	1738	
==>he '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Config{_exe}", 'build <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1884	2020	
==>d_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4531	4630	
==>B bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4531	4630	
==>B bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4531	4630	
==>B bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13054	13144	
==>t containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9778	9868	
==>t containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13054	13144	
==>t containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9778	9868	
==>t containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)> <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5969	6087	
==>ethod push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5969	6087	
==>ethod push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1182	1294	
==>}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	523	632	
==>}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	854	971	
==>atching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1060	1177	
==>atching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10912	11006	
==>set if this recurrence is a "universal set".
Otherwise the program will emit warnings during th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10912	11006	
==>set if this recurrence is a "universal set".
Otherwise the program will emit warnings during th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22960	23061	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22960	23061	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22960	23061	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6267	6361	
==>$::Class);

=pod

method add_method (opaque $self: symbol $label, method $method) returns nil { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6285	6438	
==>b it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6285	6438	
==>b it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6285	6438	
==>b it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	59	157	
==>:Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	59	157	
==>:Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	59	157	
==>:Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5198	5393	
==>ed $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5198	5393	
==>ed $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5198	5393	
==>ed $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3105	3457	
==>ngify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3105	3457	
==>ngify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2529	2622	
==>eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2587	2680	
==>eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16353	16556	
==>', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16347	16550	
==>', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12971	13123	
==>d' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12965	13117	
==>d' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	766	881	
==>ue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	766	881	
==>ue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	766	881	
==>ue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26650	26744	
==><ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1736	1842	
==>else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1876	1982	
==>else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{as <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1961	2063	
==>pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use F <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1961	2063	
==>pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use F <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	65	180	
==>Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.61';

use strict;

sub WriteAll {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	926	1039	
==>rs) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	926	1039	
==>rs) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	926	1039	
==>rs) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8020	8170	
==>-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13614	13764	
==>-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8020	8170	
==>-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13608	13758	
==>-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2127	2329	
==>w(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2127	2329	
==>w(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14495	14595	
==>tched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.ge <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14495	14595	
==>tched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.ge <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8195	8350	
==>{param}} 
            ) .
            ')';
    }

    return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11239	11344	
==>et_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11239	11344	
==>et_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11239	11344	
==>et_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method lab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10207	10379	
==>tore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10207	10379	
==>tore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10207	10379	
==>tore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	424	582	
==>ss (
        $Config::Config{make}                   and
        $Config::Config{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        an <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4967	5182	
==>ken);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4967	5182	
==>ken);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3893	3989	
==>*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3893	3989	
==>*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8113	8209	
==>rns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7243	7339	
==>rns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8113	8209	
==>rns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7243	7339	
==>rns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28911	29053	
==>->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28911	29053	
==>->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28911	29053	
==>->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contain <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2540	2642	
==>e = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	my $self = shift;
	my $type = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1896	2003	
==>v($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1896	2003	
==>v($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2132	2239	
==>v($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23877	23970	
==>arrow->new(
		type::variable::free->new,
		my $b = type::variable::free->new,
	);
	is($type->s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15284	15382	
==>you prefer not to import these routines into your namespace, you can
call them as:

  use HTML::Ent <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	124	222	
==>class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TOD <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15284	15382	
==>you prefer not to import these routines into your namespace, you can
call them as:

  use HTML::Ent <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	124	222	
==>class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TOD <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11381	11597	
==>into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'quer <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11381	11597	
==>into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'quer <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20731	20830	
==>bly the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20731	20830	
==>bly the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14751	14861	
==>this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14751	14861	
==>this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14751	14861	
==>this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37262	37426	
==>= -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37262	37426	
==>= -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37262	37426	
==>= -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12957	13049	
==>t_of_param = type($$)->left;
	my $prev_generic = generic($.body);

	if ($t_of_param->free_var <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2420	2552	
==>eader ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2420	2552	
==>eader ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2721	2819	
==>t_bracketed( '<' . $_[0], '<..>' );
    $extracted = substr( $extracted, 1, -1 ) if length($extract <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4607	4686	
==>ted_class>|<explicit_class>|<escape_sequence>|<named_character>|<simple_characte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	180	278	
==>gic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37909	38005	
==>ch source relation
with every tuple of each other source relation, then where each member of a
tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42458	42554	
==>ch source relation
with every tuple of each other source relation, then where each member of a
tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42108	42204	
==>ch source relation
with every tuple of each other source relation, then where each member of a
tu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14472	14681	
==>" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14751	14960	
==>" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	403	530	
==>de.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
} <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	403	530	
==>de.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16071	16178	
==>name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tree.
  return $v;
}
}
sub de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1538	1639	
==>ared within

that scope.



the Sig contains a simply structure of the signature; it does

not allocat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1476	1573	
==>ared within
that scope.

the Sig contains a simply structure of the signature; it does
not allocat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1388	1482	
==>nt RPe_RBRACE => --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => --$ENUM, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	346	466	
==>FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	346	466	
==>FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	346	466	
==>FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1281	1396	
==>unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	841	956	
==>unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	835	925	
==>ocalization of Rosetta::Engine::Example for English

=head1 VERSION

This document describe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	835	925	
==>ocalization of Rosetta::Engine::Example for English

=head1 VERSION

This document describe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4882	4999	
==>_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4715	4826	
==>_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15328	15427	
==>st  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $de <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15386	15485	
==>st  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4287	4409	
==>omepage at L<http://pugscode.org/>.

The Parrot homepage at L<http://www.parrotcode.org>.

=head1 COPYRIGHT

Copyright 2006 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9453	9623	
==>s ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3138	3227	
==>put)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3138	3227	
==>put)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3138	3227	
==>put)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1944	2055	
==>L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1907	2018	
==>L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1944	2055	
==>L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1907	2018	
==>L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1957	2067	
==>te $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1957	2067	
==>te $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1957	2067	
==>te $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6700	6807	
==>o->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $re eq '.';
    die "didn't implemen <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	352	606	
==>his file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Roset <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	352	606	
==>his file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Roset <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1556	1675	
==>x accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1556	1675	
==>x accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	23	139	
==>:PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	23	139	
==>:PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	23	139	
==>:PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3200	3336	
==>h>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3200	3336	
==>h>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20885	21001	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17306	17422	
==>ush @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9251	9382	
==>n $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9251	9382	
==>n $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9251	9382	
==>n $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storin <==
4	/Users/nnunley/pugs/util/package-osx.pl	943	1049	
==>arrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot
        /usr/local/inf <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3555	3696	
==>lues{name}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_na <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2857	2989	
==>{"output-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smok <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6500	6599	
==>> Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "in <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6500	6599	
==>> Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "in <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4781	4877	
==>$set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $dif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4781	4877	
==>$set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $dif <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	954	1046	
==>ad2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	954	1046	
==>ad2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5257	5363	
==>anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4913	5009	
==>b JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4913	5009	
==>b JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4913	5009	
==>b JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4929	5039	
==>$event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4929	5039	
==>$event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5393	5499	
==>$event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5393	5499	
==>$event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2328	2461	
==>omp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2328	2461	
==>omp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of exp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2328	2461	
==>omp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of exp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	120	219	
==>r::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magic hash" dispatcher
ou <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	416	517	
==>rameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	416	517	
==>rameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1720	1820	
==>e

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1778	1878	
==>e

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	765	933	
==>k eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5931	6051	
==>>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5931	6051	
==>>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5931	6051	
==>>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22554	22659	
==>::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string mname
    .local pmc val <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3816	3906	
==>returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3816	3906	
==>returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6013	6103	
==>returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14375	14512	
==>e");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14375	14512	
==>e");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2249	2382	
==>unction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2249	2382	
==>unction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2249	2382	
==>unction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15628	15719	
==>jects themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readable e <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8109	8238	
==>@{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4367	4460	
==>('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4367	4460	
==>('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4367	4460	
==>('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.po <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	957	1050	
==>rbose_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the inte <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6291	6393	
==>:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5421	5523	
==>:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6291	6393	
==>:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5421	5523	
==>:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $on <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6743	6851	
==>y %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e){warn( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1183	1287	
==>y %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1183	1287	
==>y %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1183	1287	
==>y %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22407	22537	
==>if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname"] = "ws"
    self["iscapture"] = 0
    .return (self)
.end

. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13144	13288	
==>{
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13144	13288	
==>{
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12242	12378	
==>{
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12242	12378	
==>{
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1672	1796	
==>rds($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1672	1796	
==>rds($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-T <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	368	472	
==>wo of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::InternalValue i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5552	5653	
==>ub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5552	5653	
==>ub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5552	5653	
==>ub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12878	12977	
==>There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12878	12977	
==>There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12878	12977	
==>There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11716	11869	
==>EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7998	8151	
==>EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8832	8985	
==>EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25140	25239	
==>hich can involve a lot of backup).  Regmlen is
 * supplied because the test in pregexec() needs it a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	192	316	
==>sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	192	316	
==>sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	192	316	
==>sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # m <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1424	1536	
==>t "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	801	899	
==>age, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	801	899	
==>age, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	801	899	
==>age, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9438	9586	
==>' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9438	9586	
==>' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9438	9586	
==>' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5543	5730	
==>apping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9020	9207	
==>apping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO. <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14310	14436	
==>v = $f_test->($noop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCALL(&$f_els <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8222	8319	
==>will be array references to the sub
array.

In Scalar context, they all return the count of elemen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	246	335	
==>nce if_unmodified_since last_modified
    content_type content_encoding content_length con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	246	335	
==>nce if_unmodified_since last_modified
    content_type content_encoding content_length con <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26849	26972	
==>ags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2205	2319	
==>onf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2205	2319	
==>onf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outpu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2205	2319	
==>onf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outpu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	107	210	
==>ess {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	107	210	
==>ess {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	107	210	
==>ess {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1673	1862	
==>&b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1673	1862	
==>&b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1673	1862	
==>&b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2155	2262	
==>}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( Num $x = 1 --> Num )
 {
     Pugs::I <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21754	21853	
==>er>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20635	20734	
==>er>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21754	21853	
==>er>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20635	20734	
==>er>

The server the line was sent from. This is I<not> necessarily the server you
connected to.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11015	11120	
==>rom the set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8419	8524	
==>rom the set. Returns the number of items removed.

It is not fatal to remove an item which is not in the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11015	11120	
==>rom the set. Returns the number of items
removed.

It is not fatal to remove an item which is not in the s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8419	8524	
==>rom the set. Returns the number of items removed.

It is not fatal to remove an item which is not in the s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3009	3160	
==>[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $matches[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3531	3679	
==>[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2911	3059	
==>[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3531	3679	
==>[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0] <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2955	3051	
==>_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2955	3051	
==>_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersec <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12005	12101	
==>s";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis- <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12005	12101	
==>s";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27134	27226	
==>d
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31686	31778	
==>d
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11375	11593	
==>', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11375	11593	
==>', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ ' <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1394	1488	
==>1 DESCRIPTION

This is an experimental module which eases the use of functional programming
tec <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1394	1488	
==>1 DESCRIPTION

This is an experimental module which eases the use of functional programming
tec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1830	1920	
==>if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1830	1920	
==>if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1830	1920	
==>if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stri <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	873	981	
==>d of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	873	981	
==>d of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersec <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3283	3385	
==>regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signatu <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3283	3385	
==>regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signatu <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10372	10498	
==>.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/bin/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	740	857	
==>p ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	740	857	
==>p ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	740	857	
==>p ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24107	24214	
==>er dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24107	24214	
==>er dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24107	24214	
==>er dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	782	934	
==>tion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	782	934	
==>tion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	782	934	
==>tion.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4916	5065	
==>stance_id(shift)
        },
        'class' => sub ($) {
            return ::opaque_instance_class(shift)->superclass;
        },
        'add_single <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10136	10280	
==>g .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6477	6621	
==>g .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7326	7470	
==>g .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12060	12186	
==>"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	650	754	
==>$prev, $pkg);
  while (my ($curr) = caller $level++) {
    $pkg = $curr, last if $prev and $prev eq "base <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	48	143	
==>use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	46	141	
==>use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	43	138	
==>use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installat <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14905	15022	
==>my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	627	729	
==>rapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	627	729	
==>rapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	627	729	
==>rapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18976	19086	
==>D__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18976	19086	
==>D__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6647	6744	
==>a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocan <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6647	6744	
==>a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	623	736	
==>h::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	623	736	
==>h::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	623	736	
==>h::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	588	759	
==>il = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5216	5328	
==>> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5216	5328	
==>> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5216	5328	
==>> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self-> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1357	1496	
==>ethod // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1357	1496	
==>ethod // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $pr <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9213	9342	
==>d in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it's in windows
            # land, and it h <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2147	2253	
==>l($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2287	2397	
==>ie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$from => $to],
						struct_equiv => Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4547	4640	
==>ds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4547	4640	
==>ds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4547	4640	
==>ds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.de <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6316	6442	
==>($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6316	6442	
==>($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5698	5817	
==>Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $ite <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5698	5817	
==>Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $ite <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1782	1912	
==>ader('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1782	1912	
==>ader('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6384	6481	
==>if ref($f);
	my $code = code_for_code_CODE(name=>$name,kind=>$cls,params=>$argl,
				      body=>$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	558	654	
==>@cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	558	654	
==>@cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	558	654	
==>@cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	23	111	
==>rict;
use warnings;

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	979	1084	
==>c is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ r <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	979	1084	
==>c is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5344	5442	
==>'ve joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5344	5442	
==>'ve joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	982	1150	
==>last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	861	1029	
==>last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5095	5238	
==>=item Param

Shifts a parameter from the parameter stack and binds it to a symbol.

    App(
        Val(
            Thunk(
                Seq <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26313	26452	
==>ype => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub on {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2567	2687	
==>(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2567	2687	
==>(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2567	2687	
==>(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t <==
4	/Users/nnunley/pugs/util/func_refact.pl	1112	1225	
==>ccset;
        print "doUnion: initial set size is " . scalar(keys %ccset) . "\n";

        print "\nFinding candi <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	123	236	
==>lDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	123	236	
==>lDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5007	5117	
==>des.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node! <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5007	5117	
==>des.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node! <==
4	/Users/nnunley/pugs/util/drift.pl	1843	1950	
==>IFT>/../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $program[0] = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20149	20248	
==>ne
field labeled "Internal use only" is one of the most widely used. ;)
It get's is own section, els <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18050	18146	
==>elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14471	14567	
==>elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1332	1458	
==>{
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1332	1458	
==>{
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22990	23091	
==>at
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22990	23091	
==>at
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6601	6727	
==>rn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6601	6727	
==>rn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6601	6727	
==>rn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	6	105	
==>1
package Module::Install::Can;

use strict;
use Module::Install::Base;
use Config ();
### This adds <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1095	1216	
==>y "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1098	1210	
==>y "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	434	540	
==>?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	434	540	
==>?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36685	36780	
==>he Message could be
found using the Translator object's Set and Member properties; if none
could <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36685	36780	
==>he Message could be
found using the Translator object's Set and Member properties; if none
could <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9461	9555	
==>_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3286	3380	
==>_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4675	4775	
==>that Cygwin support for pugs still depends on the .msi
   version of GHC and does not provide POSIX f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	814	905	
==>de::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	814	905	
==>de::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	814	905	
==>de::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17241	17394	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23207	23360	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17520	17673	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23486	23639	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	733	864	
==>ubname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	733	864	
==>ubname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2490	2595	
==>s its name.



of course that has the problem of supplying Perl.pm itself - but I think to

do it Right As <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2397	2499	
==>s its name.

of course that has the problem of supplying Perl.pm itself - but I think to
do it Right As <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11335	11446	
==>turn $S->object(branch =>);
  });


  return;

  # control character
  $self->add_handler('\c' => sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	156	258	
==>{ pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	156	258	
==>{ pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	156	258	
==>{ pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4886	5023	
==>cted) . "\n";
        }
        unshift(@mess, "#      got "._q($got)."\n",
                       "# expected $type "._q($expected)."\n") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7435	7539	
==>ix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7435	7539	
==>ix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7435	7539	
==>ix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19927	20026	
==>apply something of a bad type to a str
my $app_plus_ten_to_str = comb(
	fun => $app_to_str,
	param = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25851	25943	
==><$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values dup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30403	30495	
==><$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values dup <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24358	24441	
==>mat([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4422	4563	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4422	4563	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4422	4563	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unbox <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3017	3108	
==>ONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balan <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	13	117	
==>rl -w
use strict;


# this test script will compare the result of all the listed cookbook files
# to some <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2084	2193	
==>line on your
test files.  So if you begin a test with:

    #!perl -T

the test will be run with taint mode on <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22530	22637	
==>by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21384	21491	
==>by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22530	22637	
==>by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21384	21491	
==>by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4926	5030	
==>\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4926	5030	
==>\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) ) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1254	1350	
==>etrieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1254	1350	
==>etrieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the ci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1664	1779	
==>current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1664	1779	
==>current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1664	1779	
==>current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4029	4133	
==>= "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4029	4133	
==>= "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1387	1488	
==><subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1387	1488	
==><subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5343	5537	
==>=>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5343	5537	
==>=>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5343	5537	
==>=>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6943	7031	
==>Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $self->reduce($prog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29503	29619	
==>'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29503	29619	
==>'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29503	29619	
==>'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2522	2638	
==>& $param->to_str->to_native =~ /^\?/) {
            (blessed($arg) && $arg->isa($param_type))
                || conf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4005	4111	
==>ime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5326	5432	
==>ime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4005	4111	
==>ime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5314	5420	
==>ime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2171	2270	
==>est.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2171	2270	
==>est.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2171	2270	
==>est.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7161	7260	
==>:inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7161	7260	
==>:inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7161	7260	
==>:inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to b <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3467	3568	
==>.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3467	3568	
==>.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	72	171	
==>ompiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	72	171	
==>ompiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1933	2084	
==>\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1933	2084	
==>\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1933	2084	
==>\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2471	2594	
==>r = pop(@$ops);
        my $nont = $oper->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1823	1947	
==>utine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1823	1947	
==>utine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1823	1947	
==>utine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7538	7649	
==>PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $ari <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10323	10432	
==>$capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10602	10711	
==>$capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_state <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7861	7955	
==>zation_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authoriza <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7861	7955	
==>zation_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authoriza <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15482	15582	
==>an have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15482	15582	
==>an have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6612	6707	
==>urn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6612	6707	
==>urn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11487	11718	
==>undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_so <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11487	11718	
==>undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_so <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12423	12515	
==>behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, th <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12423	12515	
==>behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10638	10832	
==>= 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = und <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10638	10832	
==>= 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = und <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6129	6238	
==>ral_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	413	519	
==>, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 21 <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	413	519	
==>, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 21 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19839	19938	
==>pired to have this organization partly by how Mac OS X manages its
resources.  It is the standard pr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19839	19938	
==>pired to have this organization partly by how Mac OS X manages its
resources.  It is the standard pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2638	2736	
==>XX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of the lac <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	395	491	
==>XX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the lac <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	395	491	
==>XX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the lac <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1851	1946	
==>nt snapshot.  There are currently
no support for match flags; regexes constructed with this modu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8096	8191	
==>-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7226	7321	
==>-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8096	8191	
==>-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7226	7321	
==>-#> (@a, @b) returns Array { set(@a).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3025	3133	
==>f eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	238	344	
==>:make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	238	344	
==>:make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	238	344	
==>:make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	862	971	
==>oroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	195	304	
==>> 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	862	971	
==>oroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	862	971	
==>oroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10408	10592	
==>d
                    } @{ $test->provides || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9545	9634	
==>eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9545	9634	
==>eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9545	9634	
==>eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	191	302	
==>strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        gram <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3013	3114	
==>s?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $tod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3013	3114	
==>s?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $tod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4537	4638	
==>s?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $tod <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4013	4136	
==>ree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4013	4136	
==>ree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # ch <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	223	326	
==>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<s <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	223	326	
==>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12641	12739	
==>rbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runper <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37667	37758	
==>ample $other!) returns Relation::Example>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38256	38347	
==>ample $other!) returns Relation::Example>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38507	38598	
==>ample $other!) returns Relation::Example>

This method is a generic relational operator that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3931	4125	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3931	4125	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3931	4125	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12699	12810	
==>ce reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12699	12810	
==>ce reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12699	12810	
==>ce reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$thi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	379	470	
==>pe inferrencing, as explained in
# this article: http://research.microsoft.com/Users/luca/Pa <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1622	1751	
==>linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $l <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1622	1751	
==>linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $l <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	30	130	
==>d_nearest (Num $x, int $symmetrical? = 1) {
# XXX -- Not implemented
# How should I implement this? A <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33985	34077	
==>gated

Ender: I<anyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8072	8206	
==>I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    mob["value"] = $S0
    inc pos
  end:
    mpos = pos
    .return (mob)
.end


.sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16841	16941	
==>e $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16841	16941	
==>e $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16841	16941	
==>e $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	380	481	
==>class->symbols,
    )
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude - Aggregator of bu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6418	6534	
==>) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7154	7270	
==>) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6418	6534	
==>) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7154	7270	
==>) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13122	13225	
==>ything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserverna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13122	13225	
==>ything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserverna <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5973	6070	
==>they should be careful to avoid changing the 
actual semantics.

Please note that most of the time <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5973	6070	
==>they should be careful to avoid changing the 
actual semantics.

Please note that most of the time <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29965	30062	
==>values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Messa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29965	30062	
==>values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Messa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3573	3662	
==>----------------------------------------------------

# Utility to test that "No method fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5475	5564	
==>----------------------------------------------------

# Utility to test that "No method fo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	273	415	
==>:Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	267	409	
==>:Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7181	7293	
==>code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7169	7281	
==>code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	598	698	
==>\N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1090	1178	
==>::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1090	1178	
==>::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1090	1178	
==>::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5691	5795	
==>($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "";
    my(%created,% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16585	16686	
==>$method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16585	16686	
==>$method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16585	16686	
==>$method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18475	18591	
==>");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14896	15012	
==>");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12262	12364	
==>an.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class rep <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12262	12364	
==>an.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6915	7032	
==>tTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6915	7032	
==>tTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6915	7032	
==>tTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7232	7344	
==>allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	533	645	
==>allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6937	7044	
==>ngly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = str <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6937	7044	
==>ngly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = str <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17754	17847	
==>$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Perl6::Run::OnPerl5::X1:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7246	7343	
==>f "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7246	7343	
==>f "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7246	7343	
==>f "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	170	264	
==>the supplied regex) or
no Smart::Comments before every fully qualified subroutine.
* takes a re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15327	15443	
==>ks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	874	984	
==>s g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	874	984	
==>s g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	874	984	
==>s g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2727	2833	
==>my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2727	2833	
==>my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2727	2833	
==>my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $ <==
4	/Users/nnunley/pugs/util/func_refact.pl	2613	2718	
==>: totall $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	903	1032	
==>$!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4381	4510	
==>$!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	632	737	
==>],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub ge <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	632	737	
==>],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub ge <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	152	270	
==>(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	152	270	
==>(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2426	2540	
==>', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2426	2540	
==>', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class r <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	933	1059	
==>k.push(int($y / $x)) }
            default  { die "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11533	11634	
==>print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # te <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11533	11634	
==>print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # te <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11533	11634	
==>print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # te <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1833	1945	
==>flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7891	7995	
==>'" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defin <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7949	8053	
==>'" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14127	14223	
==>elation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17604	17700	
==>elation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoi <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2631	2759	
==>= sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( Num $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1685	1808	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1685	1808	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1685	1808	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23533	23706	
==>' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23533	23706	
==>' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23533	23706	
==>' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11533	11639	
==>';
use Test::Exception;
use Data::Dumper;
use Language::AttributeGrammar;

{
	# please forgive me
	my $orig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	996	1100	
==>self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	996	1100	
==>self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	996	1100	
==>self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pS <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6356	6484	
==>ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5864	5992	
==>ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8580	8685	
==>tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Look <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8638	8743	
==>tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Look <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3319	3468	
==>3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3566	3715	
==>3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { con <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	539	666	
==>a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sec <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	539	666	
==>a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sec <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11665	11760	
==>in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given ite <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8812	8907	
==>in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11665	11760	
==>in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8812	8907	
==>in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given ite <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2547	2700	
==>~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		next;
	    }
	    
	    # normal comment
	    print '\syncomment{';
	    while (scalar @file) {
		if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2059	2162	
==>name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2059	2162	
==>name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ver <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2059	2162	
==>name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ver <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3732	3881	
==>rt,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3732	3881	
==>rt,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersec <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1273	1380	
==>jects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such a <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1273	1380	
==>jects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such a <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1874	2007	
==>Expected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unles <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10906	11009	
==>TC.<br />
    Also note that, depending on the backend, the
    <code>ext/</code> tests may or may not b <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15148	15242	
==>his attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes pro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15148	15242	
==>his attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1667	1781	
==>un)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1667	1781	
==>un)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1667	1781	
==>un)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {unde <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	48	134	
==>/lib/perl5/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1714	1839	
==>self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1714	1839	
==>self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1714	1839	
==>self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39899	39989	
==>ational operator that takes
another Relation::Example as its C<$other> argument and combine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7386	7490	
==>-> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7386	7490	
==>-> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7714	7814	
==>-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7714	7814	
==>-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2283	2483	
==>old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Boo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2283	2483	
==>old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Boo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37296	37389	
==>emijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41845	41938	
==>emijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12288	12416	
==>hod host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12288	12416	
==>hod host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            retu <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2439	2534	
==>= 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	893	1061	
==>{tail};
                $whitespace_before = 1;
            }
            my @expect = $p->YYExpect;  # XXX is this expensive?
            
            # print "tail $ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	468	569	
==>ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	468	569	
==>ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	468	569	
==>ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  met <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1776	1868	
==>accepting $received parameters, while App is providing $sent parameters: "
		. Blondie::Emitt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6526	6616	
==>6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6526	6616	
==>6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6526	6616	
==>6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4314	4432	
==>ar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	549	652	
==>, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	549	652	
==>, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	549	652	
==>, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8019	8188	
==>i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8019	8188	
==>i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8019	8188	
==>i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HA <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19632	19749	
==>ure didn't happen.

  U32 lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1157	1267	
==>os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o);
    $s .= "[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6557	6693	
==>},
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6557	6693	
==>},
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6557	6693	
==>},
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4512	4612	
==>$cc) = @_;
    return $S->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1186	1291	
==>e);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->get <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3047	3152	
==>e);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->get <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11896	11996	
==>s with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11896	11996	
==>s with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	294	404	
==>!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESU <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	294	404	
==>!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESU <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23811	23920	
==>scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRS <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28999	29096	
==>scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	677	795	
==>.$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	677	795	
==>.$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	677	795	
==>.$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	581	677	
==>lib_paths(@_);
}

sub lib_links {
	warn "lib_links has been changed to cc_lib_links due to confus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1356	1473	
==>ings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1356	1473	
==>ings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1356	1473	
==>ings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	537	631	
==>hor");
    $optable->addToken("term:\$\$", "term:", "nows", "PGE::Exp::Anchor");
    $optable-> <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3018	3133	
==>d;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	296	395	
==>%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	296	395	
==>%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3118	3216	
==><$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3118	3216	
==><$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	334	448	
==>ar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2944	3048	
==>, "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2944	3048	
==>, "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2944	3048	
==>, "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3466	3562	
==>proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3524	3620	
==>proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7958	8049	
==>on_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7958	8049	
==>on_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1622	1719	
==>ve_scope; # deletes pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17408	17500	
==>.
Module::Compile controls the compilation process, calling each compiler
at the right time w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17408	17500	
==>.
Module::Compile controls the compilation process, calling each compiler
at the right time w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	132	228	
==>eturn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	132	228	
==>eturn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	132	228	
==>eturn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2364	2462	
==>();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing ins <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2364	2462	
==>();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing ins <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2364	2462	
==>();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing ins <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4007	4103	
==>return $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return if $ref eq $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11005	11143	
==>s
            foreach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($todo_type eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12708	12807	
==>e_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_si <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12708	12807	
==>e_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_si <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12708	12807	
==>e_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19365	19598	
==>nd the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19365	19598	
==>nd the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19365	19598	
==>nd the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7237	7334	
==>nd::C::Builtins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1624	1722	
==>es Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1624	1722	
==>es Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	908	1001	
==>e of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering op <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	908	1001	
==>e of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10762	10895	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" . <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11228	11361	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10756	10889	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11222	11355	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	367	478	
==>put'       => $params{'$.output'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_output' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2931	3033	
==>p»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2931	3033	
==>p»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2931	3033	
==>p»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20332	20476	
==>($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20332	20476	
==>($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20332	20476	
==>($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @item <==
4	/Users/nnunley/pugs/util/importgraph.pl	1196	1294	
==>}

  $modules{$module_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11103	11211	
==>lways overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Reg <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11103	11211	
==>lways overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Reg <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14629	14730	
==>=> 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14629	14730	
==>=> 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( star <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10133	10231	
==>an object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is em <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10133	10231	
==>an object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is em <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15508	15600	
==>de_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashe <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15508	15600	
==>de_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	901	1021	
==>olume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	901	1021	
==>olume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4261	4402	
==>ame;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5582	5723	
==>ame;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4261	4402	
==>ame;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5570	5711	
==>ame;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22481	22580	
==>see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22481	22580	
==>see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22481	22580	
==>see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	125	219	
==>$config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Class::dir( cwd() )->sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9482	9598	
==>ms->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9482	9598	
==>ms->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9482	9598	
==>ms->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_el <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	720	827	
==>oads
# }

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17063	17220	
==>ay->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17063	17220	
==>ay->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17063	17220	
==>ay->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTO <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25309	25389	
==>,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12416	12521	
==>ix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12416	12521	
==>ix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12416	12521	
==>ix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32961	33056	
==>resents the general category into which that object falls.

This is very sparse.  Future version <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4435	4598	
==>') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4435	4598	
==>') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4435	4598	
==>') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $cur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11985	12069	
==>ct_chars_more(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15337	15499	
==>fined $type ) {
            $test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip' : 0;
        }
        else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5665	5788	
==>shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5665	5788	
==>shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5665	5788	
==>shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mid <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	805	938	
==>sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29048	29145	
==>ontainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29048	29145	
==>ontainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant In <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29048	29145	
==>ontainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant In <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3846	3955	
==>an, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3846	3955	
==>an, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = norma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4378	4483	
==>an, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4378	4483	
==>an, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = norma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6252	6434	
==>te.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9729	9911	
==>te.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1408	1573	
==>to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requir <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1408	1573	
==>to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16796	16914	
==>sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16796	16914	
==>sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16796	16914	
==>sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' } <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12686	12777	
==>set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1  <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12686	12777	
==>set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1  <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2656	2784	
==>return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8187	8289	
==>0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8187	8289	
==>0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8187	8289	
==>0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5756	5852	
==>he following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5756	5852	
==>he following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3272	3366	
==>sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3272	3366	
==>sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	968	1072	
==>ETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	968	1072	
==>ETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	968	1072	
==>ETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16361	16464	
==>instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	765	862	
==>l.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	765	862	
==>l.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	765	862	
==>l.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return ne <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8150	8256	
==>y) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_para <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8542	8648	
==>y) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_para <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8150	8256	
==>y) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_para <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8542	8648	
==>y) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_para <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1684	1787	
==>ace::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1684	1787	
==>ace::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9836	9937	
==>elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.st <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9836	9937	
==>elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.st <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1018	1126	
==>() returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1156	1264	
==>() returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1018	1126	
==>() returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1156	1264	
==>() returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4172	4277	
==>nly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4172	4277	
==>nly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4172	4277	
==>nly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8298	8424	
==>lems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8298	8424	
==>lems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8298	8424	
==>lems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # thi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	334	426	
==>::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	214	316	
==>on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, f <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	214	316	
==>on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34259	34352	
==>Relation>

This method is a generic relational operator that returns the complement of
C<semij <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38809	38902	
==>Relation>

This method is a generic relational operator that returns the complement of
C<semij <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2691	2780	
==>ble->addToken("close:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8624	8728	
==>lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1755	1857	
==>}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1755	1857	
==>}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1755	1857	
==>}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_nam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3889	4005	
==>$self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	op <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19245	19346	
==>tion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a ta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23797	23898	
==>tion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a ta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22313	22414	
==>tion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a ta <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3893	4165	
==>agraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3936	4208	
==>agraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3893	4165	
==>agraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3936	4208	
==>agraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash %events) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24228	24333	
==>matons
  (clients with either an AI or other interactive program controlling their
  actions) which are al <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23001	23106	
==>matons
  (clients with either an AI or other interactive program controlling their
  actions) which are al <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24228	24333	
==>matons
  (clients with either an AI or other interactive program controlling their
  actions) which are al <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23001	23106	
==>matons
  (clients with either an AI or other interactive program controlling their
  actions) which are al <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11222	11352	
==>prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progfile}");
    } else {
	# You p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12204	12328	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12204	12328	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12204	12328	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11027	11134	
==>eturn $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $self->add_handler('(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5543	5647	
==>Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5543	5647	
==>Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5543	5647	
==>Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespac <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2554	2661	
==>lf.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2554	2661	
==>lf.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	387	487	
==>dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content> <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	387	487	
==>dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22899	23069	
==>Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22899	23069	
==>Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22899	23069	
==>Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @par <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6281	6420	
==>Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4013	4134	
==>ecurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4013	4134	
==>ecurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4013	4134	
==>ecurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class met <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2146	2242	
==>struct  {  <construct_but_not_alias> <quantifier>  }

rule simple_term  {
    <metasyntactic_toke <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4443	4573	
==>->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* numb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6254	6347	
==>e =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash foll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6254	6347	
==>e =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash foll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6254	6347	
==>e =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash foll <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6899	7020	
==>$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2951	3053	
==>other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6428	6530	
==>other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF! <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5367	5469	
==>other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF! <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1181	1301	
==>ion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	923	1043	
==>ion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1181	1301	
==>ion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	923	1043	
==>ion returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15135	15246	
==>} = {};
    $self->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { Digest- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2323	2416	
==>2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2323	2416	
==>2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2323	2416	
==>2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7310	7405	
==>nstance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7310	7405	
==>nstance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7310	7405	
==>nstance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correc <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14446	14539	
==>$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0
timeout 0
color l <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5942	6048	
==>: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get si <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5942	6048	
==>: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get si <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7082	7185	
==>Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a b <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7082	7185	
==>Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6745	6831	
==>:opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6745	6831	
==>:opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6745	6831	
==>:opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8192	8333	
==>ap { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4552	4693	
==>ap { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5401	5542	
==>ap { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	148	239	
==>, "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PG <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11332	11507	
==>rd && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $dom <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11332	11507	
==>rd && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $dom <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3608	3702	
==>written to provide functionality
while Perl 6 was still being developed.

This module is primar <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3608	3702	
==>written to provide functionality
while Perl 6 was still being developed.

This module is primar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1282	1388	
==>attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1282	1388	
==>attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1282	1388	
==>attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	414	533	
==>mber($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7135	7244	
==>L::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7135	7244	
==>L::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7135	7244	
==>L::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26854	26947	
==>hod installs all the flags and handlers.  F<Regexp::Parser> does
this automatically, but if yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	350	448	
==>c.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	350	448	
==>c.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	350	448	
==>c.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13367	13490	
==>y $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13367	13490	
==>y $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13367	13490	
==>y $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1752	1856	
==>alue) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14237	14448	
==>table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14237	14448	
==>table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14237	14448	
==>table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to j <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1006	1094	
==>subdir( $self->config->_alternatives );
}

=head2 $file = $inst->registered_alternatives_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8495	8609	
==>horization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $use <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8495	8609	
==>horization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $use <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20562	20675	
==>ler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not impl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16983	17096	
==>ler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not impl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11602	11725	
==>? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9172	9271	
==>unction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9172	9271	
==>unction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9172	9271	
==>unction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40411	40513	
==>roke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $par <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	821	920	
==>e packages now require synchronised versions.
    # This will be used to ensure we don't accidentall <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12971	13061	
==>version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12971	13061	
==>version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4925	5052	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4925	5052	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4925	5052	
==>ide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Clas <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	553	691	
==>urn;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Repository->new( dir => $dir )
            or error( "Could no <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1646	1769	
==>egex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             } <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1646	1769	
==>egex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4256	4347	
==>he span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_clo <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4256	4347	
==>he span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4668	4799	
==>X - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4668	4799	
==>X - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4668	4799	
==>X - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33909	34010	
==>n.  It's an "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x> can be <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1634	1776	
==>ct domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Deb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1634	1776	
==>ct domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Deb <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10212	10307	
==>arnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10212	10307	
==>arnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8194	8311	
==>, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $Class <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	409	514	
==>, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	409	514	
==>, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7435	7521	
==>on(R), ")", !.
p5_condition_alternative(noop) --> ")". 
p5_condition_test(lookahead(R)) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3185	3286	
==>rameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | rege <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3185	3286	
==>rameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | rege <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	690	780	
==>er::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	690	780	
==>er::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2414	2544	
==>lates{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3915	4013	
==>postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5274	5372	
==>postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1889	2001	
==>s|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1889	2001	
==>s|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1889	2001	
==>s|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comm <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5401	5498	
==>n optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skippi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5401	5498	
==>n optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skippi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6925	7022	
==>n optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skippi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3207	3438	
==>atim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3207	3438	
==>atim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1405	1506	
==>', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1405	1506	
==>', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2841	2942	
==>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2841	2942	
==>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2841	2942	
==>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1535	1633	
==>arnings,$has_failed)=@_;
    bless {
	value => $value,
	warnings => $warnings,
	has_failed => $has_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	897	1007	
==>8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while tak <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28360	28449	
==>es
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32912	33001	
==>es
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32040	32129	
==>es
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mappi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	307	469	
==>s rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	307	469	
==>s rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EP <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5279	5373	
==>Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5279	5373	
==>Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	693	819	
==>st next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	693	819	
==>st next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	693	819	
==>st next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # T <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1053	1141	
==>:CCShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	706	887	
==>_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	706	887	
==>_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	706	887	
==>_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - s <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4326	4464	
==>$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	230	343	
==>.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

meth <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	230	343	
==>.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7846	7945	
==>$func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7846	7945	
==>$func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5345	5439	
==>LV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5345	5439	
==>LV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5345	5439	
==>LV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1141	1235	
==>I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This program <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6459	6578	
==>->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interface to the internal rule <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13628	13746	
==>.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17105	17223	
==>.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16467	16585	
==>.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_in <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5162	5383	
==>r   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5162	5383	
==>r   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13658	13754	
==>antifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED)
      if $tree->[-1]->famil <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24058	24152	
==>ucceeded.

=head2 The Relation::Example Class

A Relation::Example object is an unordered set o <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4969	5077	
==>OT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9576	9664	
==>SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9576	9664	
==>SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9576	9664	
==>SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3888	3992	
==>e.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shif <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18114	18218	
==>the details is test #1.  I tried it with element 1 being
#1 and 0 being empty, this is less awkward.

=he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3888	3992	
==>e.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3888	3992	
==>e.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6584	6706	
==>('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6584	6706	
==>('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6584	6706	
==>('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8038	8155	
==>)$/;
	    }
	}
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5;
s <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1510	1659	
==>add_children(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_children <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2088	2181	
==>]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2088	2181	
==>]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2088	2181	
==>]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4058	4177	
==>ntents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4058	4177	
==>ntents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4058	4177	
==>ntents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $c <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9376	9553	
==>= '';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$en <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7724	7844	
==>hr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(87 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7724	7844	
==>hr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(87 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19298	19391	
==>ized> response.
The field value consist of a challenge that indicates the
authentication schem <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19298	19391	
==>ized> response.
The field value consist of a challenge that indicates the
authentication schem <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8578	8687	
==>r.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8578	8687	
==>r.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8578	8687	
==>r.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	265	375	
==>RT_OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_stream <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5596	5695	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5596	5695	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5596	5695	
==>n unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8050	8158	
==>(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8050	8158	
==>(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8050	8158	
==>(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6900	7004	
==>t for the file.

Returns true on success, false on failure.

=cut

sub _mode_plus_w {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1191	1280	
==>ows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", "nows", "PGE::E <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1805	1896	
==>the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}) <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1805	1896	
==>the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16841	16931	
==>les, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actuall <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16841	16931	
==>les, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actuall <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4819	4948	
==>ildren[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the h <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4819	4948	
==>ildren[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	662	749	
==>ost
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	662	749	
==>ost
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8484	8637	
==>(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{file}} @files ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7478	7600	
==>nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7478	7600	
==>nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7478	7600	
==>nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8361	8534	
==>!= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8361	8534	
==>!= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8361	8534	
==>!= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # th <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18561	18692	
==>Pugs::Internals::sprintf($conversion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Int <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5352	5452	
==>-%d-%d-%d-%d--%s.html",
    (map { $smoke{$_}          } qw<pugs_version pugs_revision osname runcore <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4388	4476	
==>paque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4388	4476	
==>paque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4388	4476	
==>paque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18426	18530	
==>nect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18426	18530	
==>nect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31658	31753	
==>the new Relation has either all of the tuples of
the original, or has zero tuples, respectively. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36208	36303	
==>the new Relation has either all of the tuples of
the original, or has zero tuples, respectively. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	500	629	
==>ant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	500	629	
==>ant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	500	629	
==>ant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5666	5766	
==>er 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retur <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5666	5766	
==>er 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7863	7963	
==>er 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14534	14618	
==>-------

re_reverse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9629	9750	
==>, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9629	9750	
==>, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9629	9750	
==>, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $sl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1050	1165	
==>my $r = 
    concat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', constant('b') ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	524	629	
==>s = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	524	629	
==>s = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	524	629	
==>s = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< li <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26465	26595	
==>->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub visual {
    my $self = shift;
    join "", "(?", $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10124	10232	
==>$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10124	10232	
==>$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10124	10232	
==>$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25697	25801	
==>type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9612	9700	
==>quire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9612	9700	
==>quire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9612	9700	
==>quire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_us <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13737	13837	
==>inal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When savi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13737	13837	
==>inal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When savi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9981	10076	
==>ay is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

C <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9981	10076	
==>ay is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

C <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1756	1907	
==>if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our resul <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1756	1907	
==>if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our resul <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14928	15021	
==>them. So we will implement the Test::More function is_deeply.
The plan currently is to impleme <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14986	15079	
==>them. So we will implement the Test::More function is_deeply.
The plan currently is to impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2250	2352	
==>sion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2250	2352	
==>sion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2250	2352	
==>sion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - pa <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4	101	
==>sr/bin/perl -w

use strict;
use warnings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	806	934	
==>rted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	806	934	
==>rted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	806	934	
==>rted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $di <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5437	5531	
==>u it is essentially read-only, however, all the return values of the
closure are collected into <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7985	8108	
==>cLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <HexIntegerLiteral>
}
rule DecimalLiteral {  # see 7.8.3
      <Decimal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4546	4651	
==>l);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4546	4651	
==>l);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4546	4651	
==>l);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30681	30850	
==>ed dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterato <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21285	21498	
==>$tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21285	21498	
==>$tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21285	21498	
==>$tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18066	18156	
==><LogicalANDExpression>
    | <LogicalORExpression> <'||'> <LogicalANDExpression>
}
rule Log <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23253	23351	
==>],B1,E0,E1).

rmGlobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	72	164	
==>ase 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boots <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	72	164	
==>ase 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boots <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	72	164	
==>ase 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boots <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6389	6492	
==>h calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6389	6492	
==>h calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6389	6492	
==>h calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7059	7170	
==>ct',
   '... got the right return value from another Object singleton/class method');
   
is($Object->singleton_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1116	1212	
==>EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1116	1212	
==>EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1116	1212	
==>EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4447	4551	
==>($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4447	4551	
==>($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4447	4551	
==>($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11121	11223	
==>ts is calculated using the total number of
    tests run -- for example, if a backend only ran three te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17013	17108	
==>x) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17013	17108	
==>x) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17013	17108	
==>x) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1 <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	960	1128	
==>\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	791	930	
==>gex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_sla <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	791	930	
==>gex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_sla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	599	740	
==>ethods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	599	740	
==>ethods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	599	740	
==>ethods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_metho <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9438	9525	
==>op{'isNamed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1") i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	102	207	
==>eturn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	102	207	
==>eturn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	102	207	
==>eturn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23400	23495	
==>to do this copy-and-push before you do any flag-parsing,
if you're adding a handle that might pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37951	38047	
==>h other source relation, then where each member of a
tuple pair has attribute names in common, el <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42500	42596	
==>h other source relation, then where each member of a
tuple pair has attribute names in common, el <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29747	29843	
==>on::Example
which has a subset of the original's attributes; that subset is the same as
those att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42150	42246	
==>h other source relation, then where each member of a
tuple pair has attribute names in common, el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2286	2385	
==>x";
}
# A way to display scalars containing control characters and Unicode.
# Trying to avoid settin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4321	4412	
==>b is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4321	4412	
==>b is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4321	4412	
==>b is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7568	7720	
==>eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7580	7732	
==>eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	407	503	
==>dy => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	483	579	
==>dy => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7915	8118	
==>ge} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $dele <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1216	1419	
==>ge} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $dele <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15290	15387	
==>self is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15290	15387	
==>self is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3557	3661	
==>ler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3557	3661	
==>ler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5901	5994	
==>ine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model docum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5901	5994	
==>ine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model docum <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	645	741	
==>// (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	645	741	
==>// (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	645	741	
==>// (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLis <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7604	7699	
==>omp $ghc_flags;

    return ($ghc, $ghc_version, $ghc_flags, $self->assert_ghc_pkg($ghc));
}

su <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1352	1469	
==>k $Control
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$sr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2303	2399	
==>eturn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2303	2399	
==>eturn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2303	2399	
==>eturn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	219	325	
==>odule::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	219	325	
==>odule::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13368	13516	
==>now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13368	13516	
==>now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13368	13516	
==>now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2253	2401	
==>now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1908	2033	
==>$self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1908	2033	
==>$self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1908	2033	
==>$self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4970	5089	
==>t's last child.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits Li <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4173	4283	
==>RawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4173	4283	
==>RawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1023	1133	
==>RawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1259	1406	
==>ge );
            open my $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Cou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9861	9976	
==>_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9861	9976	
==>_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9861	9976	
==>_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	610	721	
==>try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	610	721	
==>try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	610	721	
==>try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  p <==
4	/Users/nnunley/pugs/util/package-osx.pl	2523	2621	
==>docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/u <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8011	8127	
==>ub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switche <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1051	1153	
==>from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1051	1153	
==>from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1051	1153	
==>from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9290	9405	
==>, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, d <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9348	9463	
==>, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, d <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1326	1430	
==>ec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn' <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1326	1430	
==>ec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22708	22824	
==>} )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19129	19245	
==>} )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logi <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1561	1657	
==>ncluding them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
t <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1561	1657	
==>ncluding them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6770	6895	
==>value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6770	6895	
==>value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Nod <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1401	1509	
==>finite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1401	1509	
==>finite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3276	3384	
==>em (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3276	3384	
==>em (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3276	3384	
==>em (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1251	1357	
==>ual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1251	1357	
==>ual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1251	1357	
==>ual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	18	122	
==>ants;

use strict;

use Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

us <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1239	1354	
==>Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1297	1412	
==>Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $te <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4242	4343	
==>{
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4242	4343	
==>{
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13426	13521	
==>) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Pe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18513	18608	
==>) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13426	13521	
==>) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18513	18608	
==>) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Pe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1363	1486	
==>_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1363	1486	
==>_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather { <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3377	3474	
==>e>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style confi <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3377	3474	
==>e>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style confi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24555	24651	
==>t newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23319	23415	
==>t newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24555	24651	
==>t newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23319	23415	
==>t newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired w <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2621	2729	
==>file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'fil <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3057	3165	
==>file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'fil <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2266	2366	
==>s $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@childre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2266	2366	
==>s $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@childre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1377	1522	
==>ould be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1365	1510	
==>ould be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18863	18970	
==>xt C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18863	18970	
==>xt C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	455	592	
==>) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1810	1950	
==>uld be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1810	1950	
==>uld be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2952	3040	
==>osure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2952	3040	
==>osure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5858	5986	
==>efine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5858	5986	
==>efine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        po <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1311	1412	
==>te $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1311	1412	
==>te $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{captur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2195	2326	
==>de

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	474	589	
==>e({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	474	589	
==>e({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	474	589	
==>e({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3363	3454	
==>:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3363	3454	
==>:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3363	3454	
==>:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_met <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	95	183	
==>etadata.pm"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4717	4853	
==>riting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4717	4853	
==>riting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4717	4853	
==>riting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2257	2382	
==>5] } }
    | IF exp block 'elsif' exp block 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], e <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	642	780	
==>";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11852	11938	
==>($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11852	11938	
==>($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11852	11938	
==>($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5385	5479	
==>==>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5385	5479	
==>==>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5385	5479	
==>==>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is prim <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1139	1233	
==>s Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1134	1228	
==>s Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1139	1233	
==>s Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1134	1228	
==>s Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGH <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17302	17421	
==>i Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER::<$_> --> Str )

P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	334	444	
==>des_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	334	444	
==>des_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	334	444	
==>des_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10130	10228	
==>brule {
    return "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	430	551	
==>L::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	430	551	
==>L::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	430	551	
==>L::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no st <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	660	787	
==>roblematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\'] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5780	5878	
==>ation.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5780	5878	
==>ation.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5780	5878	
==>ation.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8735	8842	
==>ta::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8731	8838	
==>ta::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	667	762	
==>log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm her <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	667	762	
==>log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm her <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13727	13920	
==>ay->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13727	13920	
==>ay->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13727	13920	
==>ay->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11280	11407	
==>from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8978	9082	
==>an => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @uni <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8978	9082	
==>an => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @uni <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4338	4423	
==>t(\@whitespaces));

my @statements;
def_rule('statement',mk_dynamic_alt(\@statements)) <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	908	1030	
==>ISO-8601 formats";

    my $year = $0;
    if ( $year.defined and $year.chars == 2 ) {
        $year = 2000 + $year;  # XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2379	2481	
==>copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2379	2481	
==>copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2379	2481	
==>copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29432	29541	
==>f $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29432	29541	
==>f $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29432	29541	
==>f $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2650	2741	
==>:- style_check(-discontiguous). % remove is plausible

p5_start(Z)    --> p5_concatenation(W <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	813	941	
==>12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<b <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	555	683	
==>12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<b <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	813	941	
==>12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<b <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	555	683	
==>12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10277	10375	
==>paque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10277	10375	
==>paque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10277	10375	
==>paque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3657	3866	
==>l  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3511	3713	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2785	2890	
==>e same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2785	2890	
==>e same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10746	10853	
==>prog' and 'progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$args{pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1865	1968	
==>lt: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1865	1968	
==>lt: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1865	1968	
==>lt: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7859	7975	
==>s Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6989	7105	
==>s Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7859	7975	
==>s Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6989	7105	
==>s Bool {
    $one.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1697	1799	
==>->_files_list );
}

=head1 METHODS

=head2 $inst = JIB::Installation->new;

=cut

### XXX do some smart <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5342	5436	
==>{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5342	5436	
==>{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5342	5436	
==>{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::exp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1200	1349	
==>n;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method st <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1200	1349	
==>n;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method st <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3343	3429	
==>/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3343	3429	
==>/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2927	3029	
==>om( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $match <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26251	26348	
==>attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30803	30900	
==>attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29796	29893	
==>attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2430	2546	
==>.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2430	2546	
==>.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2430	2546	
==>.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not w <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3477	3573	
==>.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 tests and
exited with non- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3040	3155	
==>ix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3040	3155	
==>ix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3040	3155	
==>ix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26833	26937	
==>load;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23342	23469	
==>shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "!";
  }
}


{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2629	2750	
==>un it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2629	2750	
==>un it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2629	2750	
==>un it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USA <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4230	4329	
==>Base($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(Ge <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38302	38396	
==>summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42851	42945	
==>summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transit <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42501	42595	
==>summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transit <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1903	2017	
==>ame};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Q <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1903	2017	
==>ame};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Q <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19219	19317	
==>y involved in making the program would be editing them.  At
the same time, this information is in s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19219	19317	
==>y involved in making the program would be editing them.  At
the same time, this information is in s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6312	6416	
==>:Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6312	6416	
==>:Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6312	6416	
==>:Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list" <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6908	7017	
==>Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1918	2026	
==>}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1918	2026	
==>}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1918	2026	
==>}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DE <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8761	8886	
==>\"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepArray2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5180	5278	
==>{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5180	5278	
==>{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5180	5278	
==>{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8605	8718	
==>clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Regexp::Par <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1718	1825	
==>col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3150	3245	
==>s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0 <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3150	3245	
==>s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4907	5015	
==>*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5100	5208	
==>*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20214	20301	
==>ndler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20214	20301	
==>ndler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7022	7134	
==>undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $ot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7022	7134	
==>undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $ot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7022	7134	
==>undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $ot <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	945	1052	
==>return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14669	14840	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14669	14840	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14669	14840	
==>'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27382	27485	
==>f;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects for Perl 5 regexes

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11396	11516	
==>d $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11396	11516	
==>d $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11396	11516	
==>d $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	529	631	
==>ubstr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemented { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	838	954	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	838	954	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	838	954	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8940	9034	
==>less([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12025	12163	
==>nd !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	277	373	
==>nt = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:con <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	277	373	
==>nt = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:con <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	277	373	
==>nt = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6802	6933	
==>('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6802	6933	
==>('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6802	6933	
==>('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . " <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4129	4223	
==>n<<"AD";
Smoker info not found. Please create a file named $SMOKERFILE
either in this directory <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14391	14531	
==>last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14391	14531	
==>last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # even though we've pin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13440	13568	
==>last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13440	13568	
==>last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even though we've pin <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2759	2886	
==>n("close:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ," <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27484	27580	
==>mes of the new attributes, and
the values provide values applied to each tuple.  The new Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32036	32132	
==>mes of the new attributes, and
the values provide values applied to each tuple.  The new Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31119	31215	
==>mes of the new attributes, and
the values provide values applied to each tuple.  The new Relation <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1300	1461	
==>y' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1300	1461	
==>y' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6279	6377	
==>, 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6279	6377	
==>, 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	620	726	
==>cal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	620	726	
==>cal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	620	726	
==>cal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PI <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7058	7398	
==>e'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7115	7455	
==>e'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7548	7656	
==>s>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Upda <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7548	7656	
==>s>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Upda <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2021	2126	
==>ists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for spars <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2021	2126	
==>ists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for spars <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7980	8077	
==>(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7980	8077	
==>(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5566	5670	
==>b { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5566	5670	
==>b { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5566	5670	
==>b { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23008	23106	
==>e FunctionDeclaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParame <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24370	24467	
==>cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2), <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24370	24467	
==>cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2), <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24370	24467	
==>cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6761	6862	
==>rs, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6761	6862	
==>rs, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6761	6862	
==>rs, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBL <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4390	4482	
==>atch (Class::Events::Subscriber $subscriber) {
        $subscriber.update($.subscription, $.e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	306	404	
==>Loaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	306	404	
==>Loaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	306	404	
==>Loaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22298	22395	
==>actually create any objects.  Afterwards, it is an array
reference of (node) objects.

=item stack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8193	8372	
==>ed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->juncti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8193	8372	
==>ed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->juncti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8193	8372	
==>ed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->juncti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2704	2797	
==>urrently the most complete implementation. 
Pugs currently has some issues with Perl 5 interop <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19243	19338	
==>his header must be included as part of a C<401 Unauthorized> response.
The field value consist o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19243	19338	
==>his header must be included as part of a C<401 Unauthorized> response.
The field value consist o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34388	34478	
==>method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38938	39028	
==>method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $oth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1284	1412	
==>less $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1284	1412	
==>less $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16551	16667	
==>eg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${& <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12972	13088	
==>eg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${& <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	531	658	
==>!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = : <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	531	658	
==>!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = : <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	740	842	
==>msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub ne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	740	842	
==>msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub ne <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	686	820	
==>f->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, 'Test::Harness::Iterator::ARRAY';
        $self->{idx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8578	8711	
==>nt = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8578	8711	
==>nt = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8578	8711	
==>nt = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26597	26702	
==>>{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	456	559	
==>rated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	456	559	
==>rated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	456	559	
==>rated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1625	1746	
==>,
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1625	1746	
==>,
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1625	1746	
==>,
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1383	1502	
==>ose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2566	2681	
==>4main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2566	2681	
==>4main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2566	2681	
==>4main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7277	7367	
==>cept instantiated variables, which delegate. see below)
multi unify => ( 'type::variable::f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10234	10338	
==>ld )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10234	10338	
==>ld )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  T <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12341	12439	
==>rrent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12341	12439	
==>rrent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4365	4546	
==>dency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenenden <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4829	5010	
==>dency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenenden <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6907	7031	
==>@maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7371	7495	
==>@maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12111	12232	
==>fined  $n->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circum <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14729	14830	
==>lass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14729	14830	
==>lass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14729	14830	
==>lass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3011	3146	
==>{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3011	3146	
==>{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3011	3146	
==>{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3154	3273	
==>);

my $old_p_id = $p->id;

$p->set_x(100);
is($p->get_x, 100, '... got the right x for p2');
cmp_ok($p->id, '==', $old_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7759	7862	
==>boxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7759	7862	
==>boxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7759	7862	
==>boxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbox <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7115	7232	
==>if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  push @operatorStack, $operator;
  $position = $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3117	3214	
==>failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test mo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3117	3214	
==>failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test mo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3197	3294	
==>failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test mo <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6318	6453	
==>)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     a <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	79	170	
==>oaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	79	170	
==>oaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6411	6523	
==>urnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7147	7259	
==>urnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6411	6523	
==>urnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7147	7259	
==>urnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.keys {
        %users <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	462	571	
==>s



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definitions to end- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	438	544	
==>s

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definitions to end- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4994	5106	
==>==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4121	4233	
==>==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4994	5106	
==>==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4121	4233	
==>==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6471	6587	
==>>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6471	6587	
==>>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6471	6587	
==>>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	930	1038	
==>($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5848	6042	
==>y,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5848	6042	
==>y,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5848	6042	
==>y,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $cl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11356	11451	
==>B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {true <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	853	958	
==>tance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1058	1163	
==>tance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1114	1219	
==>tance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{cl <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	410	511	
==>les) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	410	511	
==>les) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11952	12052	
==>S

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11952	12052	
==>S

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	39	160	
==>D-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	39	160	
==>D-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26273	26373	
==>t is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30825	30925	
==>t is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23702	23796	
==>d replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is us <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22475	22569	
==>d replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is us <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23702	23796	
==>d replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is us <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22475	22569	
==>d replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is us <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11287	11417	
==>an choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11287	11417	
==>an choose a different nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase+ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10528	10650	
==>an choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10528	10650	
==>an choose a different nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6873	6976	
==>~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_proc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6873	6976	
==>~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_proc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28399	28505	
==>re escaped and you shouldn't try to
extract them.  This method is also defined as the implicit handler when <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35755	35861	
==>re escaped and you shouldn't try to
extract them.  This method is also defined as the implicit handler when <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28399	28505	
==>re escaped and you shouldn't try to
extract them.  This method is also defined as the implicit handler when <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35755	35861	
==>re escaped and you shouldn't try to
extract them.  This method is also defined as the implicit handler when <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	844	1002	
==>nodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	844	1002	
==>nodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	844	1002	
==>nodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code . <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18657	18748	
==>s $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replace) }
 mul <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3774	3944	
==>path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    for my $test ( k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1675	1780	
==>L::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1675	1780	
==>L::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1675	1780	
==>L::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1392	1492	
==>m<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<span> <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1392	1492	
==>m<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<span> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8649	8744	
==>tes a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Cre <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8649	8744	
==>tes a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Cre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3622	3790	
==>join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3622	3790	
==>join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( ex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6271	6384	
==>e' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6271	6384	
==>e' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7414	7522	
==>b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7414	7522	
==>b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7414	7522	
==>b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7016	7117	
==>use Data::Dumper;


# The unification of the various types depends on their data...
# this is why this <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	401	495	
==>(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started s <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	401	495	
==>(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23131	23240	
==>orms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<target> parame <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21940	22049	
==>orms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<target> parame <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23131	23240	
==>orms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<target> parame <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21940	22049	
==>orms the C</MODE> command. Note that you can supply both a nickname and a
channel name to the C<target> parame <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5001	5217	
==>d start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5001	5217	
==>d start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8551	8648	
==>$operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ') <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6085	6181	
==>$operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ') <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1458	1561	
==>y method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent. <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1458	1561	
==>y method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22006	22105	
==>yedText is told to fetch the user message for a certain code, it
returns the first one it finds.  Th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22006	22105	
==>yedText is told to fetch the user message for a certain code, it
returns the first one it finds.  Th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1907	2030	
==>sh ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather cont <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1907	2030	
==>sh ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather cont <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	138	256	
==>ift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::Type <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1483	1579	
==>mance.

However, pugs critical path is currently more oo than rules, my time
is limited, and ther <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1331	1483	
==>$_ => 1 } $sub_seq->tail->to_native);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	14	110	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	14	110	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	14	110	
==>l

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3190	3562	
==>f (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsif ($t =~ /^\<.*\>$/) {
                push @t => 'q' . $t;
            }      
            
            # classes             
            elsif (exists $__classes__{$t}) {               
                my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	462	580	
==>JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	462	580	
==>JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	462	580	
==>JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1571	1692	
==>\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($nam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1571	1692	
==>\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($nam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	199	305	
==>n\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	199	305	
==>n\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17121	17260	
==>ren ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	906	1003	
==>EXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	906	1003	
==>EXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	906	1003	
==>EXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24145	24243	
==>ed set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	465	555	
==>$name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	465	555	
==>$name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	465	555	
==>$name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	507	623	
==>ions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	478	594	
==>ions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	507	623	
==>ions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	507	623	
==>ions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5031	5151	
==>s, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16067	16187	
==>s, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17555	17675	
==>s, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22238	22358	
==>s, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24149	24249	
==>mething
  in response to something it received.  This is typically used by automatons
  (clients with <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22922	23022	
==>mething
  in response to something it received.  This is typically used by automatons
  (clients with <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24149	24249	
==>mething
  in response to something it received.  This is typically used by automatons
  (clients with <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22922	23022	
==>mething
  in response to something it received.  This is typically used by automatons
  (clients with <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3613	3721	
==>rn ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_instance_class(shift)->supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3797	3897	
==>f, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3797	3897	
==>f, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3797	3897	
==>f, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Interna <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	11	113	
==>- Perl 5
use strict;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %liebli <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1930	2104	
==>cache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, allow => D <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4616	4718	
==>1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - paren info b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	712	803	
==>ange If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	712	803	
==>ange If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3376	3498	
==>$_[5], %{$_[4]} } }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2754	2858	
==>o O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2754	2858	
==>o O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2754	2858	
==>o O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35184	35277	
==>urns Relation>

This multi-method is a generic binary relational operator that is identical
to <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39734	39827	
==>urns Relation>

This multi-method is a generic binary relational operator that is identical
to <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	210	302	
==>rns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!fil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	210	302	
==>rns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!fil <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8241	8351	
==>f->{neg};
  }

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $self->{neg} ? 'P' : 'p', $self->ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17168	17257	
==>bute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17168	17257	
==>bute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17168	17257	
==>bute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16382	16531	
==>hift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16382	16531	
==>hift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16382	16531	
==>hift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Val <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3746	3851	
==>self = $class->SUPER::new;

	$self->{left} = shift;
	$self->{right} = shift;
	
	# FIXME - this is a hack f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7253	7358	
==>oublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7253	7358	
==>oublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7253	7358	
==>oublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw< <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5368	5468	
==>>add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->forc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6719	6820	
==>ns.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGE <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8788	8889	
==>ns.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGE <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6719	6820	
==>ns.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGE <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8788	8889	
==>ns.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGE <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	337	448	
==>{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method cre <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	337	448	
==>{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method cre <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2015	2110	
==>ex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

= <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2015	2110	
==>ex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11725	11862	
==>@{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11725	11862	
==>@{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11725	11862	
==>@{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = s <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7351	7454	
==>"Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	338	435	
==>}
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	338	435	
==>}
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	338	435	
==>}
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15470	15709	
==>), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->create('$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5212	5315	
==>lue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5212	5315	
==>lue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5212	5315	
==>lue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4164	4299	
==>edence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        preced <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	415	543	
==>s %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	415	543	
==>s %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	415	543	
==>s %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2249	2345	
==>th Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2338	2434	
==>th Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

= <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10041	10136	
==>new test functions will be defined to facilitate the
testing of those features. For more informa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10099	10194	
==>new test functions will be defined to facilitate the
testing of those features. For more informa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15150	15315	
==>=> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15150	15315	
==>=> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15150	15315	
==>=> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4435	4544	
==>sr_token_match_2";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  null_t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2861	3002	
==>[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2766	2904	
==>[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2365	2454	
==>.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $othe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2365	2454	
==>.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $othe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	366	478	
==>his is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Alg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	370	482	
==>his is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Alg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	366	478	
==>his is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Alg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	370	482	
==>his is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for more documentation.

use v6;
use Alg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3786	4046	
==>bute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $fou <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3786	4046	
==>bute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $fou <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14063	14212	
==>mplemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14057	14206	
==>mplemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" . <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29296	29398	
==>ly take the form of a version
of runtests() which rather than printing its output returns raw data
on t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2424	2524	
==>rpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2424	2524	
==>rpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2424	2524	
==>rpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Contai <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4654	4759	
==>ult{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number seen [te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5560	5662	
==>) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5560	5662	
==>) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5560	5662	
==>) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantia <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1202	1345	
==>s which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1692	1810	
==>y .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1692	1810	
==>y .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1692	1810	
==>y .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2315	2443	
==>6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2315	2443	
==>6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2315	2443	
==>6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2188	2279	
==>ng/383/regexp-plg.html
Without their work, I almost certainly would have punted.
Also to ibl <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6035	6168	
==>tinue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6035	6168	
==>tinue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1343	1455	
==>}
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= " <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1343	1455	
==>}
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	405	507	
==>$jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	405	507	
==>$jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	405	507	
==>$jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1372	1478	
==>if it has a dependency list, transform it into an object
    if( $obj->can('depends') ) {
        $obj->dep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6489	6586	
==>nce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6489	6586	
==>nce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6489	6586	
==>nce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7712	7850	
==>'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7712	7850	
==>'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7712	7850	
==>'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pus <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1920	2043	
==>array array iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr may be a T <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13551	13672	
==>ge goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	583	683	
==>fg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	583	683	
==>fg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	583	683	
==>fg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26898	27152	
==>> 'opaque'),
                            symbol->new('$subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4232	4342	
==>::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4232	4342	
==>::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4232	4342	
==>::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{ar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1834	1964	
==>ords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1834	1964	
==>ords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9232	9329	
==>lue, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size() <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9232	9329	
==>lue, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size() <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2345	2459	
==>5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2345	2459	
==>5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2915	3023	
==>shift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2915	3023	
==>shift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3779	3896	
==>ine, \%result) ) {
        $type = 'test';

        $totals->{seen}++;
        $result{number} = $self->{'next'} unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11809	11905	
==>ne another. 

Because instances of class all conform to the Role interface/API they are 
intercha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11809	11905	
==>ne another. 

Because instances of class all conform to the Role interface/API they are 
intercha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11809	11905	
==>ne another. 

Because instances of class all conform to the Role interface/API they are 
intercha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4831	4967	
==>compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q(
            <Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20275	20375	
==>nd worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFAC <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24827	24927	
==>nd worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFAC <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23388	23488	
==>nd worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15203	15337	
==>= -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15203	15337	
==>= -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15203	15337	
==>= -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	60	156	
==>s;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $container does returns($a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6372	6472	
==>$S->error(0, "\\x[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5491	5587	
==>us_exec_hook != NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regexecp;
  PL_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1303	1397	
==>(Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1303	1397	
==>(Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1331	1451	
==>1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3627	3747	
==>1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1331	1451	
==>1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3627	3747	
==>1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24040	24186	
==>f ($v) { &Rf |= $v }  # turn the flag on
      else { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the flag is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35659	35793	
==>t_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35659	35793	
==>t_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35659	35793	
==>t_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaini <==
4	/Users/nnunley/pugs/util/addauthors.pl	1122	1265	
==>e} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $author- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6811	6917	
==>add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6811	6917	
==>add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6811	6917	
==>add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaqu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	297	400	
==>self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	297	400	
==>self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	297	400	
==>self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12695	12828	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12695	12828	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12695	12828	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	466	562	
==>sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual method 'provides' cal <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4734	4832	
==>an = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4734	4832	
==>an = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6882	6979	
==>needs to add at the beginning, before the 
ciphertext.  This will be prepended to the return value <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6882	6979	
==>needs to add at the beginning, before the 
ciphertext.  This will be prepended to the return value <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6766	6864	
==>=~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_);
    }
    my $meta = g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13648	13740	
==>trol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13648	13740	
==>trol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13648	13740	
==>trol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23813	23919	
==>PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22586	22692	
==>PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23813	23919	
==>PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22586	22692	
==>PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in respo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2018	2129	
==>ce_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2018	2129	
==>ce_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2018	2129	
==>ce_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Disp <==
4	/Users/nnunley/pugs/util/build_pugs.pl	187	289	
==>ildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'inc';
use P <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1408	1507	
==>host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1408	1507	
==>host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	443	538	
==>rs), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caes <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	443	538	
==>rs), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8798	8915	
==>\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8798	8915	
==>\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8798	8915	
==>\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  r <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2472	2572	
==>r  ::= Code(Any) returns Any;
 type Comparator    ::= Code(Any, Any) returns Int;
 type SortCriterion <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30100	30222	
==>s => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30100	30222	
==>s => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30100	30222	
==>s => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3703	3792	
==>lls.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist in the
verificat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3368	3477	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3368	3477	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3438	3531	
==>sed upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free softwa <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3438	3531	
==>sed upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free softwa <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2929	3042	
==>rs:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2929	3042	
==>rs:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6866	6964	
==>ule documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versio <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6632	6727	
==>ule documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versio <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1841	1947	
==>line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $desc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1841	1947	
==>line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $desc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1921	2027	
==>line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $desc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3318	3416	
==>ay, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
key <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3318	3416	
==>ay, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
key <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2999	3095	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3057	3153	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10858	11019	
==>->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10858	11019	
==>->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10858	11019	
==>->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18917	19015	
==>BB::debug && !$eval_log_file) {
	open($eval_log_file,">>deleteme_code.pl") or die $!;
    }
    pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	463	575	
==>efix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	463	575	
==>efix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	463	575	
==>efix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23191	23286	
==>le-
and double-quoted strings in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinya <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23558	23662	
==>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22331	22435	
==>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23558	23662	
==>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22331	22435	
==>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36227	36328	
==>, @$consume);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBran <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22543	22638	
==>...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22543	22638	
==>...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22543	22638	
==>...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5594	5745	
==>1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6862	7013	
==>1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5594	5745	
==>1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6850	7001	
==>1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19747	19855	
==>ee} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1358	1457	
==>less($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1358	1457	
==>less($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1358	1457	
==>less($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12939	13085	
==>untime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12933	13079	
==>untime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6977	7073	
==>once the '=head(n)' directive is reached. This does not include 
the text of the header, that wil <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6977	7073	
==>once the '=head(n)' directive is reached. This does not include 
the text of the header, that wil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3274	3399	
==>ss( $self->can('file') ) {
            error("No file associated with this object -- " .
                  "can not extract me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19352	19451	
==>where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23904	24003	
==>where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22420	22519	
==>where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14129	14264	
==>ery rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10302	10437	
==>ery rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11138	11273	
==>ery rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	89	210	
==>me;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Nee <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23966	24070	
==>to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obj <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22739	22843	
==>to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obj <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23966	24070	
==>to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obj <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22739	22843	
==>to servers too - they must not send
  any error reply back to the client on receipt of a notice.  The obj <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	914	1008	
==>n "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daug <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	914	1008	
==>n "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daug <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35813	35905	
==>me heading as
the invocant Relation::Example, and returns a new Relation::Example that has th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37845	37937	
==>me heading as the
invocant Relation::Example, and returns a new Relation::Example that has th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	321	435	
==>ref) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	321	435	
==>ref) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	321	435	
==>ref) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = St <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1512	1614	
==>=item List

A list is a a node with multiple children.

C<App> is a type of value - it applies its firs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	280	433	
==>> {
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.output'}       || \*STDOUT);
            _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7872	7998	
==>ame};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11871	11993	
==>ame};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11871	11993	
==>ame};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pa <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2667	2772	
==>tr {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we k <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2667	2772	
==>tr {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we k <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4873	4971	
==>o 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  Al <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4873	4971	
==>o 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  Al <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10627	10742	
==>s attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14104	14219	
==>s attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13403	13518	
==>s attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2895	3028	
==>nt(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2895	3028	
==>nt(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2895	3028	
==>nt(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	373	473	
==>::TypeSafe::Annotation;
	use base qw/Blondie::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my $se <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4194	4412	
==>h.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</L <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4194	4412	
==>h.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</L <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11742	11856	
==>=> $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11742	11856	
==>=> $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1491	1600	
==>ests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: ", sub <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4671	4770	
==>scribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and conta <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4671	4770	
==>scribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and conta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6868	6967	
==>scribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and conta <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1503	1594	
==>SPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{P <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	122	245	
==>ents = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=c <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	122	245	
==>ents = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19723	19819	
==>mer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19723	19819	
==>mer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3327	3452	
==>$category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<pugs_version osname runcore>),
      $_[0]->{pugs_revisio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	194	287	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	194	287	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	194	287	
==>ne('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2202	2306	
==>other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $oth <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2202	2306	
==>other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $oth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4880	4976	
==>ult object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initia <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4880	4976	
==>ult object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initia <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2974	3075	
==>n vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2974	3075	
==>n vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the cipher <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6694	6790	
==>$EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6694	6790	
==>$EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8248	8373	
==>}))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            par <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3554	3675	
==>ion");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3554	3675	
==>ion");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5078	5199	
==>ion");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descripti <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6808	6953	
==>end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6808	6953	
==>end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7594	7728	
==>on
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7594	7728	
==>on
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message ke <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1380	1475	
==>rocedural interface does the same thing within a single call, hiding the 
full complexity.

=hea <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1380	1475	
==>rocedural interface does the same thing within a single call, hiding the 
full complexity.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11993	12097	
==>ute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11993	12097	
==>ute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11993	12097	
==>ute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1533	1627	
==>GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	r <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1197	1364	
==>elf->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1076	1243	
==>elf->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3365	3460	
==>an ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3365	3460	
==>an ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14059	14157	
==>ributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14059	14157	
==>ributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14059	14157	
==>ributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.met <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25305	25385	
==>gs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2089	2231	
==>ol $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.def <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2089	2231	
==>ol $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.def <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1982	2097	
==>| hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
} <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1982	2097	
==>| hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	943	1088	
==>urn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	904	1044	
==>urn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3147	3241	
==>n($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) }) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3147	3241	
==>n($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) }) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21642	21736	
==>shref, containing:

=over

=item C<line>

The original line received from the server (unmodifie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20523	20617	
==>shref, containing:

=over

=item C<line>

The original line received from the server (unmodifie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21642	21736	
==>shref, containing:

=over

=item C<line>

The original line received from the server (unmodifie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20523	20617	
==>shref, containing:

=over

=item C<line>

The original line received from the server (unmodifie <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18622	18712	
==>hose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18622	18712	
==>hose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
p <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16625	16741	
==>} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16643	16738	
==>to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16643	16738	
==>to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16643	16738	
==>to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCT <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6010	6120	
==>substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7435	7541	
==>A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7435	7541	
==>A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7435	7541	
==>A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest : <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3306	3450	
==>\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3306	3450	
==>\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12241	12337	
==>eated, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12299	12395	
==>eated, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6613	6756	
==>ch = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6399	6534	
==>ch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2830	2929	
==>>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2830	2929	
==>>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Ret <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17444	17577	
==>ct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{max} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5948	6045	
==>n't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5948	6045	
==>n't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5948	6045	
==>n't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->j <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3815	3923	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4148	4256	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3815	3923	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4148	4256	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5924	6073	
==>> Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6808	6935	
==>- $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contigu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6808	6935	
==>- $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contigu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6808	6935	
==>- $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contigu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5377	5498	
==>0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6645	6766	
==>0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5377	5498	
==>0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6633	6754	
==>0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1708	1820	
==>tion 3.2

sub alternate(Array *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5857	5963	
==>>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5857	5963	
==>>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5857	5963	
==>>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1 <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1784	1952	
==>th) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($curre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1784	1952	
==>th) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($curre <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8693	8786	
==>l ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8693	8786	
==>l ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2681	2809	
==>6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREW <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7579	7687	
==>ritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7579	7687	
==>ritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7579	7687	
==>ritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doub <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1220	1342	
==>[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_s <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1220	1342	
==>[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9723	9819	
==>n( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9723	9819	
==>n( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14751	14882	
==>_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14751	14882	
==>_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2636	2733	
==>test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2636	2733	
==>test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35832	35967	
==>ngth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35832	35967	
==>ngth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35832	35967	
==>ngth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_s <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	685	787	
==>sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = time;
    Perl6::Internals::s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11349	11454	
==>(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11349	11454	
==>(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	810	904	
==><:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	810	904	
==><:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has match <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28882	29111	
==>l->new('@:MRO'),
                                $e->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                return $e->get('$self:')->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4316	4416	
==>my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4316	4416	
==>my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4316	4416	
==>my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	747	884	
==>val,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	747	884	
==>val,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	747	884	
==>val,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5835	5955	
==>hat are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms">.map:{ $_[0] };
        db <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	940	1048	
==>al $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	940	1048	
==>al $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	940	1048	
==>al $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations a <==
4	/Users/nnunley/pugs/util/importgraph.pl	156	255	
==>irectory with src present
# arrows point from importer to importee

use strict;
use warnings;
use Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4093	4193	
==>cc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4093	4193	
==>cc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4093	4193	
==>cc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1423	1554	
==>x} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1999	2130	
==>x} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7467	7568	
==>secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7467	7568	
==>secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	827	1006	
==>e, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	827	1006	
==>e, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4204	4377	
==>':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4204	4377	
==>':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1132	1246	
==>:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAU <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1132	1246	
==>:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAU <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1796	1889	
==>ill go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1796	1889	
==>ill go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1153	1342	
==>ssors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a real type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2223	2327	
==>:unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2223	2327	
==>:unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2223	2327	
==>:unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	128	250	
==>ght 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exp <==
4	/Users/nnunley/pugs/util/version_h.pl	1217	1317	
==>f (my ($source_line) = grep /^(Copied|Merged) From/, @info) {
        if (my ($source_depot) = $sourc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1825	1959	
==>$k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2568	2702	
==>$k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1825	1959	
==>$k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2556	2690	
==>$k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6522	6628	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6522	6628	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6522	6628	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	462	559	
==>en you declare a Method on a Class, it is bound to that
Class' C<Type> object immediately; however <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8660	8766	
==>my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	393	499	
==>my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8660	8766	
==>my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8660	8766	
==>my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3229	3385	
==>t}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3476	3632	
==>t}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1375	1486	
==>, '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1375	1486	
==>, '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2468	2564	
==>= %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2468	2564	
==>= %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2468	2564	
==>= %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5780	5901	
==>ds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5780	5901	
==>ds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5780	5901	
==>ds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - u <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	519	625	
==>i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c code compiled\n";
my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3523	3857	
==>eth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3523	3857	
==>eth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1196	1304	
==>ile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1196	1304	
==>ile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	80	182	
==>er::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	80	182	
==>er::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	80	182	
==>er::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27526	27625	
==>DOUT were
not a console.  You may need to set this if you don't want harness to
output more frequent <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1679	1780	
==>tion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1679	1780	
==>tion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1679	1780	
==>tion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15612	15707	
==>on>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> <S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	817	997	
==>'t work over http mirrors etc!
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS,
        }
    };
    
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6528	6640	
==>rl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6528	6640	
==>rl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6528	6640	
==>rl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31610	31790	
==>{
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31610	31790	
==>{
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31610	31790	
==>{
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13155	13248	
==>a suitable macro, or otherwise support the
unary form C<delete %hash{$key}> in all it's forms. <==
4	/Users/nnunley/pugs/util/package-osx.pl	6647	6744	
==>artmatch.3pm
        /usr/local/man/man3/Perl6::Overview::Subroutine.3
        /usr/local/man/man3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1629	1762	
==>->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1629	1762	
==>->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1629	1762	
==>->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h-> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30761	30855	
==>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation::Example>

This method is a g <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1756	1863	
==>code(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@strin <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1756	1863	
==>code(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@strin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20194	20291	
==>ntentionally in a simple fashion so that it is easy to maintain and
and easy for developers to stu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20194	20291	
==>ntentionally in a simple fashion so that it is easy to maintain and
and easy for developers to stu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16258	16369	
==>axsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	251	344	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	251	344	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	251	344	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3837	3939	
==>n.

=cut

sub _whoami { my $name = (caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	115	205	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	115	205	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	115	205	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24477	24576	
==>ror if the flag isn't supported
  }

You'll probably not be adding handlers that have to parse flags <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6556	6648	
==>uce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6556	6648	
==>uce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6556	6648	
==>uce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4110	4244	
==>jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4110	4244	
==>jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4110	4244	
==>jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4852	4948	
==>+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	489	590	
==>s = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn =' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	489	590	
==>s = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn =' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	489	590	
==>s = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn =' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	944	1042	
==>be a next step. And the current Regexp::Parser Object
# ast isnt really what we want long-term.  If <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4833	4971	
==>Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4833	4971	
==>Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4833	4971	
==>Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1011	1177	
==>{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1011	1177	
==>{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1247	1336	
==>This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1247	1336	
==>This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2109	2208	
==>nd -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; preco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2109	2208	
==>nd -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; preco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2109	2208	
==>nd -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; preco <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1366	1473	
==>rn;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    requ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1287	1390	
==>rn;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	requ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25777	25870	
==>y versions of Rosetta that you modify and distribute must carry prominent
notices stating that <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25777	25870	
==>y versions of Rosetta that you modify and distribute must carry prominent
notices stating that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10901	11061	
==>nd},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10901	11061	
==>nd},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10901	11061	
==>nd},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13285	13393	
==>>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # see 11.2
      <PrimaryExp <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1478	1587	
==>.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Config::Config{_exe}";
    print STDERR "done <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6957	7046	
==>------------------------------------------------------

# stub this for the moment ...
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6957	7046	
==>------------------------------------------------------

# stub this for the moment ...
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6957	7046	
==>------------------------------------------------------

# stub this for the moment ...
$:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7391	7495	
==>vent {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7391	7495	
==>vent {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7719	7819	
==>vent {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7719	7819	
==>vent {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4129	4247	
==>Until('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4129	4247	
==>Until('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4129	4247	
==>Until('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16562	16680	
==>t('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10785	10903	
==>from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10785	10903	
==>from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livec <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16969	17067	
==>, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16969	17067	
==>, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1831	1941	
==>else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1831	1941	
==>else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mult <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1831	1941	
==>else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mult <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2255	2353	
==>d s.
# Match objects arent being created for capture groups which are never reached.
# No lookbehin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21487	21584	
==>orresponding message.
Event names which are all lowercase are "pseudo" events. See below for a lis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20368	20465	
==>orresponding message.
Event names which are all lowercase are "pseudo" events. See below for a lis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21487	21584	
==>orresponding message.
Event names which are all lowercase are "pseudo" events. See below for a lis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20368	20465	
==>orresponding message.
Event names which are all lowercase are "pseudo" events. See below for a lis <==
4	/Users/nnunley/pugs/util/package-osx.pl	10215	10324	
==>hence the $file[-1]).
sub create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1383	1484	
==>lar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1383	1484	
==>lar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1383	1484	
==>lar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2814	2979	
==>1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2814	2979	
==>1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10407	10523	
==>bmit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "gr <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10407	10523	
==>bmit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "gr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16680	16873	
==>e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8230	8360	
==>bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8230	8360	
==>bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8230	8360	
==>bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2115	2202	
==>_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compiler::Rule->compile(<<'RUL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9836	9956	
==>Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9830	9950	
==>Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14166	14260	
==>ue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14166	14260	
==>ue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11848	11948	
==>urns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHOD <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8995	9095	
==>urns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHOD <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11848	11948	
==>urns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHOD <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8995	9095	
==>urns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5561	5666	
==>:= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5561	5666	
==>:= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5561	5666	
==>:= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3064	3152	
==>) --> "|", p6_conjunction(X), p6_alternatives(union(W,X), Z), !.
p6_alternatives(W, W) -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	479	601	
==>e.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	479	601	
==>e.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	479	601	
==>e.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3329	3448	
==>mar $self->{name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub emit_grammar_perl5 {
    # i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8228	8328	
==>)>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

Thi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8228	8328	
==>)>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	82	203	
==>{
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	82	203	
==>{
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	82	203	
==>{
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2134	2246	
==>o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2134	2246	
==>o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2134	2246	
==>o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21555	21653	
==>ng raised
until the second pass.  Figured out how to improve the grammar to get
it to work properly <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3802	3925	
==>%seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7816	7919	
==>elf->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7816	7919	
==>elf->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7816	7919	
==>elf->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11598	11727	
==>es.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed}}, $test{'next'}..$test{max};
            } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5314	5419	
==>ens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5314	5419	
==>ens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5314	5419	
==>ens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'inst <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20220	20364	
==>b(
							fun => ide("=="),
							param => ide("x"),
						),
						param => val(0),
					),
					then => ide("r"),
					else => comb(
						fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39281	39406	
==>h {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39281	39406	
==>h {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39281	39406	
==>h {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $l <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	921	1022	
==>n> | <non_alternation> }

rule comment { \# \N* }

rule alternation     { <non_alternation> \| <term>+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2165	2259	
==>self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2165	2259	
==>self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2165	2259	
==>self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6869	7020	
==>HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3077	3183	
==>less $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3077	3183	
==>less $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3077	3183	
==>less $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1828	1928	
==>nt.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1828	1928	
==>nt.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1828	1928	
==>nt.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is pr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	848	945	
==>ethods
differ from normal Code refs only in that they do not have a
dynamically bound scope for pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11941	12073	
==>ind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11941	12073	
==>ind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11941	12073	
==>ind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3584	3707	
==>$Z::oop{$id}{'op_ahead'} = $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanup\n" if $deb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1855	1953	
==>e Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1855	1953	
==>e Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1855	1953	
==>e Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18514	18713	
==>aram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18514	18713	
==>aram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18514	18713	
==>aram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wha <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2060	2210	
==>nd =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2060	2210	
==>nd =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12098	12195	
==>, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet h <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12156	12253	
==>, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet h <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3024	3133	
==>}});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5339	5440	
==>API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5339	5440	
==>API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5339	5440	
==>API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3626	3775	
==>son");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_;
            (blessed($test) && $test->isa(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15056	15167	
==>Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15056	15167	
==>Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15056	15167	
==>Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	256	344	
==>d from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.htm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	256	344	
==>d from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.htm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	256	344	
==>d from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.htm <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2446	2553	
==>on( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2446	2553	
==>on( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9914	10007	
==>intersection, difference, and a few
other operations.

This class also provides methods for it <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9914	10007	
==>intersection, difference, and a few
other operations.

This class also provides methods for it <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8290	8538	
==>a::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8290	8538	
==>a::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6257	6382	
==>6),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6257	6382	
==>6),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12451	12565	
==>rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12451	12565	
==>rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handle <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21146	21237	
==>, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant featur <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21146	21237	
==>, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant featur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11366	11519	
==>ift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12164	12317	
==>ift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9983	10078	
==>ing representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns - <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9983	10078	
==>ing representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	777	911	
==>,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	777	911	
==>,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	777	911	
==>,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1674	1780	
==>);
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
}
sub node::me <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2474	2597	
==>fined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7568	7691	
==>fined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2474	2597	
==>fined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7568	7691	
==>fined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10050	10188	
==>inst_pkg->name;

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4435	4533	
==>@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4435	4533	
==>@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5959	6057	
==>@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2897	2996	
==>ight y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class name') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2333	2420	
==>ct->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2333	2420	
==>ct->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2333	2420	
==>ct->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4449	4570	
==>ed: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2899	3007	
==>param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2899	3007	
==>param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2899	3007	
==>param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv. <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2516	2664	
==>or    ::= Code(Any, Any) returns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtract <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4530	4661	
==>rs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4530	4661	
==>rs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	908	1004	
==>eric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	908	1004	
==>eric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	908	1004	
==>eric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'AR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	48	143	
==>FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	48	143	
==>FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	48	143	
==>FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
us <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4632	4736	
==>ode.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4632	4736	
==>ode.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2402	2584	
==>ym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:<*>' => Thunk->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11316	11411	
==>s. It is important that submethods are used
because they will not get inherited. This provides m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11316	11411	
==>s. It is important that submethods are used
because they will not get inherited. This provides m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11316	11411	
==>s. It is important that submethods are used
because they will not get inherited. This provides m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12883	13105	
==>->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12883	13105	
==>->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12883	13105	
==>->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2740	2859	
==>local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2740	2859	
==>local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2740	2859	
==>local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL: <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	718	832	
==>($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	718	832	
==>($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9332	9428	
==>> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9332	9428	
==>> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_ent <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22155	22250	
==>k/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21036	21131	
==>k/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22155	22250	
==>k/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21036	21131	
==>k/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	637	753	
==>un)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	637	753	
==>un)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1670	1783	
==>SH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the va <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1670	1783	
==>SH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the va <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1951	2053	
==>ndex(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2313	2415	
==>ndex(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1951	2053	
==>ndex(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2313	2415	
==>ndex(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2331	2428	
==>"Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2331	2428	
==>"Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2331	2428	
==>"Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17371	17467	
==>nly call it through an object that
inherits from that class.

There are no longer I<star>, I<plus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1984	2099	
==>ar hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1984	2099	
==>ar hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1984	2099	
==>ar hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20108	20201	
==>ngE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
tr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20108	20201	
==>ngE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
tr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15905	15993	
==>ocument!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method cre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15905	15993	
==>ocument!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method cre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2131	2257	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2131	2257	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2131	2257	
==>tchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	24	136	
==>.pod 8651.
multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @values -> $x {
	    ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4192	4313	
==>pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4192	4313	
==>pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4192	4313	
==>pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->typ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9143	9261	
==>pander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5217	5397	
==>e top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top o <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5217	5397	
==>e top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top o <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	925	1020	
==>e read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=he <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	925	1020	
==>e read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=he <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15075	15204	
==>r  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variation from UTC in seconds
    has Bool $.is_dst;
}

multi sub localt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	99	220	
==>ugs::Runtime::Match;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2176	2274	
==>) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::con <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2176	2274	
==>) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::con <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2176	2274	
==>) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::con <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	781	875	
==>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to su <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	781	875	
==>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to su <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3921	4013	
==>g:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the or <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3921	4013	
==>g:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5080	5239	
==>->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requir <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5080	5239	
==>->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requir <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5080	5239	
==>->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requir <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	785	888	
==>ke this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usag <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29335	29432	
==>e to be executed, you must
explicitly add it to the queue (C<< $parser->{next} >>).

The handle '| <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4213	4308	
==>test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4213	4308	
==>test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4293	4388	
==>test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and e <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9199	9397	
==>e {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30533	30629	
==>Walking the Tree">).

=back

Objects may override these methods (as objects often do).

=head3 Us <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9174	9266	
==>RIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9174	9266	
==>RIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5120	5223	
==>eturn block could be generated automatically ?
  );

Pseudo-code for usage inside a grammar:

    rule p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	243	338	
==>+$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	243	338	
==>+$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	243	338	
==>+$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10475	10585	
==>r( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10633	10743	
==>r( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14133	14226	
==>hod quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14133	14226	
==>hod quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9497	9613	
==>);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9497	9613	
==>);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9497	9613	
==>);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fa <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	629	724	
==>moker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOptions \our %Config, qw(--output-file|o <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1509	1614	
==>add_path(installsitearch    => $config); 
    add_path(installsitelib     => $config); 

    $config->{per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1511	1601	
==>e('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1511	1601	
==>e('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1511	1601	
==>e('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17115	17243	
==>permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17115	17243	
==>permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nic <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18691	18803	
==>comb(
				fun => ide("id"),
				param => val(v => "foo", t => type::operator::nullary->new("str")),
			),
		),
	) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1618	1723	
==>dy is a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $sel <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12285	12386	
==>, and thus get CORE if none are defined.

  The C hooks (except for comp, obviously) look for the flag <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	919	1041	
==>illa
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	919	1041	
==>illa
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24843	24964	
==>=> sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21264	21385	
==>=> sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	275	372	
==>lename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	275	372	
==>lename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17655	17747	
==>ETHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accept <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17655	17747	
==>ETHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accept <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	481	582	
==>me to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	481	582	
==>me to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	481	582	
==>me to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9949	10043	
==>>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9949	10043	
==>>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18450	18536	
==>curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the cur <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18450	18536	
==>curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17388	17561	
==>ss->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17388	17561	
==>ss->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17388	17561	
==>ss->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1425	1532	
==>ad1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Fi <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1425	1532	
==>ad1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Fi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10587	10684	
==>et is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy itera <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10587	10684	
==>et is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy itera <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1678	1778	
==>p { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            $relative_precedences{$opt-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	989	1084	
==>b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	989	1084	
==>b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	989	1084	
==>b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	777	913	
==>", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1430	1523	
==>pply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1430	1523	
==>pply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1430	1523	
==>pply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17962	18061	
==>other, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS obje <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17962	18061	
==>other, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS obje <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6570	6668	
==>s

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=item <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6570	6668	
==>s

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8729	8878	
==>othing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &lis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8729	8878	
==>othing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &lis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8729	8878	
==>othing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &lis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	796	902	
==>>parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' at: '$self->{ast <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5507	5650	
==>tiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5507	5650	
==>tiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13164	13261	
==>ecause something is not implemented yet. So
in order to still allow that to be tested, and those t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13222	13319	
==>ecause something is not implemented yet. So
in order to still allow that to be tested, and those t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6566	6683	
==>d.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6566	6683	
==>d.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17440	17536	
==>ompilation process, calling each compiler
at the right time with the right data.

=item *

Abilit <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17440	17536	
==>ompilation process, calling each compiler
at the right time with the right data.

=item *

Abilit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1808	1938	
==>label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self-> <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1769	1872	
==>ll_methods($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .ge <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2642	2740	
==>eport() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2642	2740	
==>eport() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPS <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1175	1297	
==>ns get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13701	13817	
==>ns get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	852	961	
==>$pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	852	961	
==>$pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	678	777	
==>ve me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	678	777	
==>ve me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns St <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14528	14624	
==>, so will it's
testing needs. This module will be the code support for those needs. The
following <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14586	14682	
==>, so will it's
testing needs. This module will be the code support for those needs. The
following <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1490	1588	
==>i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1490	1588	
==>i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1490	1588	
==>i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3591	3684	
==>ta.Map as Map
import qualified Pugs.Version

config :: Map.Map String String
config = Map.from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1639	1739	
==>ell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($cla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1639	1739	
==>ell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($cla <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3202	3293	
==>uments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<v <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3202	3293	
==>uments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	532	638	
==>_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	532	638	
==>_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	532	638	
==>_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	474	567	
==>r::Rule->compile(q(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, -1);
	$b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1233	1330	
==>}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1233	1330	
==>}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1233	1330	
==>}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2006	2166	
==>turn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   B <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2006	2166	
==>turn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   B <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3437	3538	
==>IB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPER <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4573	4673	
==>IB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8650	8744	
==>+(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8650	8744	
==>+(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8650	8744	
==>+(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10214	10398	
==>n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional availabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12958	13069	
==>defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12958	13069	
==>defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12958	13069	
==>defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5690	5839	
==>_('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5690	5839	
==>_('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5690	5839	
==>_('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	205	300	
==>{
    my($rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2171	2262	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2171	2262	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2171	2262	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	452	575	
==>rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19627	19720	
==>erl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19627	19720	
==>erl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19627	19720	
==>erl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl <==
4	/Users/nnunley/pugs/t/packages/Test.pm	138	245	
==>our_pkg {
    Our::Package::pkg();
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3636	3741	
==>->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dum <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3636	3741	
==>->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dum <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3636	3741	
==>->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dum <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5454	5705	
==>rsion) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        tak <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5454	5705	
==>rsion) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        tak <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1179	1312	
==>$mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbat <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1179	1312	
==>$mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16391	16491	
==>as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16391	16491	
==>as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16391	16491	
==>as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
M <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2412	2500	
==>@letters = split //, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11379	11475	
==>nstance calling metaclass singleton method fails';
fails_ok { $iBar->singleton_test_on_object } ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22257	22350	
==>xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22257	22350	
==>xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22257	22350	
==>xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15863	15997	
==>q '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15863	15997	
==>q '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15863	15997	
==>q '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5501	5619	
==>like we're on a Windows-ish system, without GHC
        # in our path.   Let's hunt around for it.

        my $slash = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3501	3633	
==>elf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3501	3633	
==>elf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3501	3633	
==>elf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obje <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6232	6331	
==>plate->param("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S} }) ] ); 
    $t <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2938	3041	
==>config.yml file if you want the reports to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32992	33088	
==>ontains only tuples that are in
exactly one of the source Relations.  This method has aliases nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37542	37638	
==>ontains only tuples that are in
exactly one of the source Relations.  This method has aliases nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36886	36982	
==>ontains only tuples that are in
exactly one of the source Relations.  This method has aliases nam <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8163	8296	
==>743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8163	8296	
==>743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4" <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5461	5558	
==>d (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $child <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5461	5558	
==>d (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $child <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14889	15029	
==>channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enque <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14889	15029	
==>channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enque <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5813	5923	
==>($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5295	5405	
==>($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11754	11906	
==>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11754	11906	
==>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11754	11906	
==>{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, ele <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	467	562	
==>n to other native types
sub to_num { num->new((shift)->fetch + 0)  }
sub to_str { str->new((shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12796	12880	
==>tion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12796	12880	
==>tion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12796	12880	
==>tion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Except <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1230	1340	
==>,
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1230	1340	
==>,
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1230	1340	
==>,
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $ <==
4	/Users/nnunley/pugs/util/func_refact.pl	28	125	
==>t;

use Storable;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3821	3934	
==>-> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3821	3934	
==>-> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4355	4464	
==>-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4355	4464	
==>-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13731	13825	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15253	15347	
==>?!\w)/>. (So
that's the object's qr() method for you right there!)

=item Regexp::MinLength

Im <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13731	13825	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13731	13825	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	177	275	
==>eys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash itera <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	177	275	
==>eys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash itera <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	177	275	
==>eys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash itera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12724	12873	
==>( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12724	12873	
==>( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12724	12873	
==>( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $cod <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3300	3412	
==>s %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5688	5800	
==>/^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5688	5800	
==>/^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5688	5800	
==>/^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use a <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	805	897	
==>n each link in a
new window</a>.  (Useful with Firefox 1.5's Preferences/Tabs/Force/NewTab
se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4398	4506	
==>arams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4398	4506	
==>arams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4398	4506	
==>arams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10638	10730	
==>ght return value from another Object singleton/class method called by Bar');

is($Bar->single <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8750	8876	
==>)
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	918	1032	
==>)
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	918	1032	
==>)
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	83	184	
==>ant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	83	184	
==>ant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	83	184	
==>ant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8178	8408	
==>) {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12166	12321	
==>) {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12166	12321	
==>) {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'P <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	110	224	
==>togenrating bindings from vtable.h is NEEDED
# please commit - pmurias
package Inline::Parrot::PMC;
print "Inline:: <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	8	113	
==>ungsoperator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5320	5419	
==>_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5320	5419	
==>_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5320	5419	
==>_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fP <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	210	338	
==>p to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	210	338	
==>p to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6318	6470	
==>} catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6318	6470	
==>} catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6318	6470	
==>} catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3682	3783	
==>Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3682	3783	
==>Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3682	3783	
==>Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pai <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	86	187	
==>asic interface for all types

# conversion to native
sub to_native;

# conversion to other native type <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5779	5898	
==>{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " print '', " . _emit( $n-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13324	13442	
==>$::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13324	13442	
==>$::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13324	13442	
==>$::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_clas <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27330	27422	
==>esults.

=item C<HARNESS_IGNORE_EXITCODE>

Makes harness ignore the exit status of child proc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21759	21975	
==>tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21759	21975	
==>tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21759	21975	
==>tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1251	1353	
==>ther = shift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2765	2914	
==>t};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # upda <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2765	2914	
==>t};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # upda <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6064	6200	
==>e DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6064	6200	
==>e DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13920	14023	
==>hange.

  There may be no place to put the flag value?  And then prove
  implausible to realloc the rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	756	845	
==>e Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	756	845	
==>e Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	756	845	
==>e Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::S <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12606	12845	
==>{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10783	10920	
==>new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10783	10920	
==>new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10783	10920	
==>new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3758	3876	
==>->_caller;
    foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	20	126	
==>rict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	20	126	
==>rict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	20	126	
==>rict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	28	135	
==>te::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duratio <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	28	135	
==>te::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duratio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21049	21147	
==>ttributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25601	25699	
==>ttributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8656	8789	
==>) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8656	8789	
==>) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8656	8789	
==>) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7119	7220	
==>{\n\treturn $main;\n}";
	push @{ $self->{defs} }, "int main () { b_main(); return 0; }";

	join("\n\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16081	16228	
==>$array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16081	16228	
==>$array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16081	16228	
==>$array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2708	2804	
==>xample goes on step further and Curries approxfprime with the user supplied
f.  Such things are p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18029	18199	
==>method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18029	18199	
==>method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18029	18199	
==>method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1715	1825	
==>self->{levels}[$_]} ) {
            $relative_precedences{$opt->{precedence}}->($self, $_, $opt);
            r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6633	6750	
==>move this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6633	6750	
==>move this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6633	6750	
==>move this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33036	33146	
==>nmod' nodes:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5256	5518	
==>h.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5256	5518	
==>h.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13868	13985	
==>5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13862	13979	
==>5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $c <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2566	2662	
==>eserved.

This program is Free Software, and may be used, distributed and modified under 
the sam <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2566	2662	
==>eserved.

This program is Free Software, and may be used, distributed and modified under 
the sam <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	226	314	
==>pires if_modified_since if_unmodified_since last_modified
    content_type content_encodi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	226	314	
==>pires if_modified_since if_unmodified_since last_modified
    content_type content_encodi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21292	21387	
==>Mapping key is an attribute name and each Mapping value
is the corresponding attribute value.

E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25844	25939	
==>Mapping key is an attribute name and each Mapping value
is the corresponding attribute value.

E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24468	24563	
==>Mapping key is an attribute name and each Mapping value
is the corresponding attribute value.

E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23056	23147	
==>torage representation of the roles' attributes (eg,
volatile or persistent) and provide acce <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3100	3392	
==>lt {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<sta <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3100	3392	
==>lt {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<sta <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	89	180	
==>DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldo <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	89	180	
==>DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldo <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1924	2065	
==>me = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $sel <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1924	2065	
==>me = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8872	9004	
==>e the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8872	9004	
==>e the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10062	10199	
==>ethod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10062	10199	
==>ethod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10062	10199	
==>ethod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1886	1983	
==>tive / $right->to_num->to_native()));
}

sub increment { num->new((shift)->to_native + 1) }
sub de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1245	1369	
==>ft',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule( 
        name => '{', <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	204	293	
==>children;

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3848	3937	
==>children;

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	204	293	
==>children;

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3848	3937	
==>children;

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1337	1478	
==>t");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1337	1478	
==>t");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1337	1478	
==>t");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38684	38807	
==>->errmsg;
    print "VISUAL: ", $parser->visual, "\n";
    print "REGEX:  ", $parser->qr, "\n";
  }

The output is:

  VISUA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7163	7271	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3767	3875	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4616	4724	
==>unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2338	2475	
==>h => $1,
        tail  => $2,
        #capture => $1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	592	695	
==>t a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	592	695	
==>t a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	592	695	
==>t a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaq <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19506	19654	
==>p1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21982	22112	
==>lass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21982	22112	
==>lass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21982	22112	
==>lass (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4481	4570	
==>ance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4481	4570	
==>ance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4481	4570	
==>ance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8587	8691	
==>\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16127	16228	
==>rd( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16127	16228	
==>rd( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16127	16228	
==>rd( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4399	4516	
==>}, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4399	4516	
==>}, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2584	2693	
==>iner ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multid <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2584	2693	
==>iner ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multid <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	861	958	
==>rnal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	861	958	
==>rnal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30513	30608	
==>te module for each distinct "user
language" (or "user type") for each distinct Message; each fil <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30513	30608	
==>te module for each distinct "user
language" (or "user type") for each distinct Message; each fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2774	2884	
==>ain_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2774	2884	
==>ain_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2774	2884	
==>ain_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6222	6322	
==>ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_candidat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5734	5832	
==>:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5734	5832	
==>:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5734	5832	
==>:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40466	40562	
==>o large';

Then you can access them via C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warning <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7091	7196	
==>r :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6794	6920	
==>e !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6794	6920	
==>e !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8470	8564	
==>_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8458	8552	
==>_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime: <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13856	13973	
==>_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1336	1453	
==>_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24429	24536	
==>nch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20850	20957	
==>nch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6692	6804	
==>n);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6692	6804	
==>n);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11306	11410	
==>ETH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEM <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11306	11410	
==>ETH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEM <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1358	1478	
==>---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3654	3774	
==>---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1358	1478	
==>---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3654	3774	
==>---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2614	2769	
==>ath=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2614	2769	
==>ath=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38623	38729	
==>::Example
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invoca <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1404	1502	
==>Extractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Crite <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2027	2223	
==>rrent_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2027	2223	
==>rrent_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6586	6683	
==>2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6586	6683	
==>2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1054	1167	
==>:CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1054	1167	
==>:CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1054	1167	
==>:CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_- <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30180	30275	
==>so perls with spaces in the filename work.

Keeping whittling away at _run_all_tests()

Clean up <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12073	12168	
==>ns all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9194	9289	
==>ns all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12073	12168	
==>ns all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9194	9289	
==>ns all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5736	5836	
==>er('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5815	5915	
==>er('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2823	2917	
==>e Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2823	2917	
==>e Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11616	11809	
==>.
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7898	8091	
==>.
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8732	8925	
==>.
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	240	346	
==>+ $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8499	8607	
==>p( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8499	8607	
==>p( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8499	8607	
==>p( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4949	5042	
==>$.throw;
}
class JSX::InternalValue::Completion {
   submethod BUILD { $.type = JSX::InternalV <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1018	1123	
==>re methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1018	1123	
==>re methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9479	9582	
==>$string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9479	9582	
==>$string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	244	343	
==>ire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	244	343	
==>ire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	244	343	
==>ire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't se <==
4	/Users/nnunley/pugs/util/package-osx.pl	2505	2594	
==>al/share/doc/pugs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/L <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3159	3292	
==>>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 're <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3459	3592	
==>>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 're <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1817	1950	
==>>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 're <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2597	2730	
==>>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 're <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11609	11730	
==>return for @modfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3270	3373	
==>rentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary, <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3270	3373	
==>rentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8878	8989	
==>" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	612	723	
==>" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8878	8989	
==>" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8878	8989	
==>" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2939	3057	
==>\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1313	1431	
==>\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2939	3057	
==>\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2939	3057	
==>\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4602	4710	
==>nt);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4602	4710	
==>nt);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4602	4710	
==>nt);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9508	9643	
==>($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9508	9643	
==>($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9508	9643	
==>($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1710	1808	
==>>object(exact => join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2514	2741	
==>ment>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readlin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2514	2741	
==>ment>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readlin <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	212	370	
==>n $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized opti <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	212	370	
==>n $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized opti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3349	3489	
==>equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        precedence => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	780	897	
==>p();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	780	897	
==>p();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	780	897	
==>p();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6537	6805	
==>me other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere conte <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7001	7269	
==>me other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere conte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	798	898	
==>rn true if this class supports PMC compilation.
#
# The hope is that this will allow interoperability <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	798	898	
==>rn true if this class supports PMC compilation.
#
# The hope is that this will allow interoperability <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1362	1591	
==>5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            wh <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1362	1591	
==>5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            wh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4094	4219	
==>[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4234	4359	
==>[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37001	37123	
==>at the same place
    $self->add_handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1330	1424	
==>ef));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1330	1424	
==>ef));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1330	1424	
==>ef));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7162	7275	
==>, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7162	7275	
==>, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7162	7275	
==>, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20265	20365	
==>rds {  # see 12.2
      <VariableDeclarationNoIn>
    | <VariableDeclarationListNoIn> <','> <Variable <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	80	185	
==>ethod dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just c <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	80	185	
==>ethod dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3749	3844	
==>ot::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3749	3844	
==>ot::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3749	3844	
==>ot::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" u <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1855	1948	
==>ndie::TypeSafe::Annotation->new(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11253	11397	
==>ection, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of so <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11253	11397	
==>ection, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of so <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10647	10745	
==>elds with a single invocation.

The $value argument may be a plain string or a reference to an arra <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10647	10745	
==>elds with a single invocation.

The $value argument may be a plain string or a reference to an arra <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	800	914	
==>", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    $args{using}->();
    if($args{pause <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3661	3755	
==>)(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3661	3755	
==>)(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3661	3755	
==>)(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::red <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1780	1878	
==>die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1780	1878	
==>die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1780	1878	
==>die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23137	23230	
==>ou want to include variables, use C<qr//>, or mix single-
and double-quoted strings in buildin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23096	23195	
==>el, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickna <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21905	22004	
==>el, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23096	23195	
==>el, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21905	22004	
==>el, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can supply both a nickna <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	476	581	
==>form one step -- i.e. get an event from @:events and call it.
  my method step () {
    return unless @:ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4097	4188	
==>lass::Rebless defines B<only class methods>. There is no instance
constructor, and when call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4097	4188	
==>lass::Rebless defines B<only class methods>. There is no instance
constructor, and when call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4097	4188	
==>lass::Rebless defines B<only class methods>. There is no instance
constructor, and when call <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2904	3011	
==>'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control character
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4919	5023	
==>eturn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4919	5023	
==>eturn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4919	5023	
==>eturn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15053	15229	
==>$res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15053	15229	
==>$res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15053	15229	
==>$res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1885	1986	
==>ulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $mat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	499	610	
==>( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	493	604	
==>( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13220	13320	
==>rvername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13220	13320	
==>rvername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1130	1280	
==>ach my $i (reverse(0 .. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8103	8214	
==>slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8103	8214	
==>slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8103	8214	
==>slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	335	443	
==>POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is cop <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	335	443	
==>POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is cop <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2959	3063	
==>$self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4221	4325	
==>$self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2959	3063	
==>$self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4221	4325	
==>$self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11870	12009	
==>{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12149	12288	
==>{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	876	992	
==>imensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	190	282	
==>se 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB::Alternative->new <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14392	14526	
==>,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11683	11800	
==>e heading of at least one given relation in @others has"
                    ~ " attributes in common with either othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15160	15277	
==>e heading of at least one given relation in @others has"
                    ~ " attributes in common with either othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14495	14612	
==>e heading of at least one given relation in @others has"
                    ~ " attributes in common with either othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15394	15558	
==>$array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15394	15558	
==>$array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15394	15558	
==>$array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6180	6284	
==>t be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6180	6284	
==>t be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6180	6284	
==>t be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11767	11869	
==>imalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11340	11480	
==>{$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11340	11480	
==>{$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11340	11480	
==>{$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "go <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5004	5115	
==>uncores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->para <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11716	11830	
==>ect => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4703	4835	
==>[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4691	4823	
==>[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1934	2035	
==>s not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.strin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1934	2035	
==>s not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.strin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1390	1511	
==>ble or not;
        # depending on the implementing class, it can default to True or 
        # False, but once it has a v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4868	4988	
==>ble or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3798	3918	
==>ble or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a v <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3066	3178	
==>ld be a global or a dynamic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped from '&f <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6048	6162	
==>heck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6106	6220	
==>heck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18640	18736	
==>ard-coded into your application or package, with one or more
text strings to show human users.  T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18640	18736	
==>ard-coded into your application or package, with one or more
text strings to show human users.  T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	418	563	
==>ug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	418	563	
==>ug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2228	2349	
==>() returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2228	2349	
==>() returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	149	261	
==>per;

our $operator;

# TODO - implement the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2411	2565	
==>xed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2411	2565	
==>xed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2411	2565	
==>xed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	907	1016	
==>AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub pretty_print {
    my $self    = sh <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	371	512	
==>'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	371	512	
==>'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	367	455	
==>_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1094	1181	
==>_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4084	4199	
==>ACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4084	4199	
==>ACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4084	4199	
==>ACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opt <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1194	1288	
==>::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2688	2796	
==>$i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whites <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2688	2796	
==>$i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whites <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2688	2796	
==>$i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whites <==
4	/Users/nnunley/pugs/util/fixauthors.pl	547	632	
==>my $html=get("http://search.cpan.org/~$uid");
  my $tree=HTML::TreeBuilder->new_from_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6047	6163	
==>= $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6047	6163	
==>= $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6047	6163	
==>= $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0" <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	437	536	
==>nt, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another object or something like tha <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2044	2160	
==>acute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â', <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2044	2160	
==>acute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â', <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28019	28112	
==>eys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32571	32664	
==>eys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	76	178	
==>s 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	76	178	
==>s 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	76	178	
==>s 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15072	15268	
==>>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15072	15268	
==>>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15072	15268	
==>>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3535	3629	
==>t symbols

=back

The compiler inherits L<Blondie::Reducer> in order to traverse the node
struc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11637	11771	
==>exists $n->{exp2}{bare_block} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1506	1612	
==>thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1506	1612	
==>thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1506	1612	
==>thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5633	5749	
==>);

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9944	10060	
==>);

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:method <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17058	17153	
==>ngth

A decimal number indicating the size in bytes of the message content.

=item $h.content_la <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17058	17153	
==>ngth

A decimal number indicating the size in bytes of the message content.

=item $h.content_la <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21149	21255	
==>return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17570	17676	
==>return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13014	13111	
==>head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=h <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13014	13111	
==>head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=h <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12324	12432	
==>e HexDigit {  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1884	1990	
==>omp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1884	1990	
==>omp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1884	1990	
==>omp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6076	6213	
==>- signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6:: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6076	6213	
==>- signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5653	5756	
==>!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .expo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5653	5756	
==>!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .expo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3534	3639	
==>/[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  Th <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3534	3639	
==>/[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21250	21335	
==>d_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21250	21335	
==>d_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18594	18708	
==>lyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	740	852	
==>ub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	740	852	
==>ub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	740	852	
==>ub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3950	4074	
==>${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3950	4074	
==>${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . $ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5183	5280	
==>ported) by this module:

=over 3

=item get($url)

The get() function will fetch the document iden <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5183	5280	
==>ported) by this module:

=over 3

=item get($url)

The get() function will fetch the document iden <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3560	3665	
==>der->FETCH('::Test')->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    methods => {
        'reaso <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5857	5954	
==>context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5857	5954	
==>context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5857	5954	
==>context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6502	6605	
==>-case package name, assume case has been preserved
        # correctly.  Otherwise, root through the fil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3927	4037	
==>r->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in progra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4144	4254	
==>r->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in progra <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1921	2014	
==>ectory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES| <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1921	2014	
==>ectory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES| <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2589	2707	
==>PREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1936	2049	
==>erfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1936	2049	
==>erfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1936	2049	
==>erfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::w <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10519	10650	
==>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).ad <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10519	10650	
==>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).ad <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10727	10823	
==>eference to an array
of strings for a multi-valued field. If the $value is undefined or not
given <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10727	10823	
==>eference to an array
of strings for a multi-valued field. If the $value is undefined or not
given <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	928	1045	
==>$key);
	}

	sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3061	3271	
==>ss($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigencl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9600	9724	
==>description = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $description <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	188	304	
==>description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	188	304	
==>description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7802	7906	
==>odel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7802	7906	
==>odel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7802	7906	
==>odel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cla <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11709	11799	
==>C], rest_of_line(T).
rest_of_line([]).


p6_octidecimal_escape_sequence(X) --> "\\0", p6_oc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4977	5093	
==>\$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4977	5093	
==>\$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4977	5093	
==>\$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variab <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3804	3915	
==>hift;
                          $e->set('$method' => $e->get('$current')->send('get_method' => $e->get('$label') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9402	9611	
==>}
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9402	9611	
==>}
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9402	9611	
==>}
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12521	12687	
==>' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	50	147	
==>t of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	50	147	
==>t of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	50	147	
==>t of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1634	1764	
==>= $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1634	1764	
==>= $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1634	1764	
==>= $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52516	52610	
==>:Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	695	796	
==>arams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	695	796	
==>arams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curren <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	695	796	
==>arams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curren <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2209	2306	
==>w).
Then, it creates a initrd and copies your pugs binary and the shared libraries
it needs on it. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23864	23955	
==>,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23864	23955	
==>,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23864	23955	
==>,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3824	3931	
==>{ $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3824	3931	
==>{ $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3824	3931	
==>{ $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32945	33039	
==>eld
"family" represents the general category into which that object falls.

This is very sparse <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21365	21459	
==>o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specifically, making s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7492	7589	
==>aintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining da <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7492	7589	
==>aintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining da <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6060	6156	
==>ented. Currently, the headers
are returned as one long string.

=item List Context

All headers a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6060	6156	
==>ented. Currently, the headers
are returned as one long string.

=item List Context

All headers a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1821	1945	
==>y ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2564	2688	
==>y ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1821	1945	
==>y ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2552	2676	
==>y ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5570	5712	
==>= shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5393	5530	
==>= shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	108	208	
==>as Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 } <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	108	208	
==>as Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2755	2902	
==>g->new );
        
        ### call the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pk <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2225	2322	
==>riable>:=(<varhash>)\{$<key>:=(<term1>)\}
        { return { access_hash_element => $() } }
RULE
* <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6920	7015	
==>tcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6920	7015	
==>tcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6920	7015	
==>tcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.m <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	796	904	
==>conds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0) is builtin i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1938	2038	
==>no\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1938	2038	
==>no\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1938	2038	
==>no\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9330	9467	
==>_('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9330	9467	
==>_('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9330	9467	
==>_('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7942	8050	
==>$Last_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfile, $width <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20204	20302	
==>fic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19163	19261	
==>fic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20204	20302	
==>fic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19163	19261	
==>fic from the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5430	5573	
==>s fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lif <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5430	5573	
==>s fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1569	1688	
==>aders {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1569	1688	
==>aders {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5920	6022	
==>_open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5920	6022	
==>_open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7144	7241	
==>iblings 
# as I think in general it is a bad idea

## -------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7144	7241	
==>iblings 
# as I think in general it is a bad idea

## -------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27148	27242	
==>_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gener <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31700	31794	
==>_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gener <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	69	177	
==>le::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.sea <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	69	177	
==>le::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.sea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7917	8017	
==>op::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7647	7743	
==>op::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2325	2431	
==>urn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2325	2431	
==>urn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2325	2431	
==>urn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6881	6976	
==>ad1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E< <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1321	1416	
==>ad1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6881	6976	
==>ad1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1321	1416	
==>ad1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E< <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2194	2439	
==>f ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $f <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2194	2439	
==>f ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8787	8934	
==>warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8787	8934	
==>warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11418	11564	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11697	11843	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15464	15593	
==>ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15458	15587	
==>ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28411	28521	
==>erence in $code.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $self->SUPER::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1508	1603	
==>map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1508	1603	
==>map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1508	1603	
==>map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3768	3897	
==>,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3768	3897	
==>,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15379	15488	
==>le - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15379	15488	
==>le - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5863	5970	
==>gly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5863	5970	
==>gly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($e <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9514	9619	
==>!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode is on, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1289	1408	
==>m
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5120	5235	
==>fined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5120	5235	
==>fined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5120	5235	
==>fined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4198	4361	
==>$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5519	5682	
==>$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4198	4361	
==>$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5507	5670	
==>$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3049	3204	
==>= join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4077	4181	
==>d $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4077	4181	
==>d $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4077	4181	
==>d $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1811	1929	
==>package Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23208	23299	
==>could
produce ambiguous results or associations.  Or alternately, the other
packages require <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23208	23299	
==>could
produce ambiguous results or associations.  Or alternately, the other
packages require <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14309	14435	
==>@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4127	4236	
==>he' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3982	4089	
==>he' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6 <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	860	963	
==>'?';
    }
    return unless $self->prompt($prompt, ($default || 'n')) =~ /^[Yy]/;
    $self->install_sc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1491	1592	
==>nt(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1491	1592	
==>nt(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1491	1592	
==>nt(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5192	5288	
==>sented by undef.

# 9. Type Conversion

# 9.1
multi sub ToPrimitive(JSX::Value::Object $o) {$o.<[ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2008	2129	
==>ho  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	427	515	
==>s_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	427	515	
==>s_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	427	515	
==>s_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	812	933	
==>st of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	812	933	
==>st of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, en <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1398	1497	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>() <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1398	1497	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>() <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	776	898	
==>ls}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @{$self->{levels}}, $_-1, 0, [ $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13824	13930	
==>>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13824	13930	
==>>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13824	13930	
==>>clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16310	16404	
==>s that empowers single binaries to support N
locales or user types simultaneously, and that all <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16310	16404	
==>s that empowers single binaries to support N
locales or user types simultaneously, and that all <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5143	5233	
==>")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5143	5233	
==>")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since" <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15772	15871	
==>t.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test mod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15830	15929	
==>t.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test mod <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3788	3880	
==>head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E< <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3788	3880	
==>head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E< <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1151	1252	
==>ctory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1151	1252	
==>ctory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33702	33799	
==>ber Name and usually corresponds to a
language like English or French.  The order of these items c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33702	33799	
==>ber Name and usually corresponds to a
language like English or French.  The order of these items c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9597	9715	
==>IVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9597	9715	
==>IVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9597	9715	
==>IVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	511	621	
==>::Scalar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4978	5114	
==>:YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4805	4937	
==>:YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	849	947	
==>eeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to d <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	849	947	
==>eeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to d <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16054	16153	
==>e. But for now, as a simple script, it suffices.
# This script doesn't run as root, anyway.
sub chec <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28381	28470	
==>/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32933	33022	
==>/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32061	32150	
==>/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attrib <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1547	1760	
==>scaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $esca <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1547	1760	
==>scaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $esca <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33428	33523	
==>returned Relation contains only tuples that are in
all of the source Relations.  This method has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37978	38073	
==>returned Relation contains only tuples that are in
all of the source Relations.  This method has <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23936	24079	
==>es)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send (MRO))))
     ($self: get_attr (symbol new @: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14466	14569	
==>or at least $live_timeout seconds,
        # even though we've pinged the server (probably several times <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14466	14569	
==>or at least $live_timeout seconds,
        # even though we've pinged the server (probably several times <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13507	13606	
==>or at least $live_timeout seconds,
    # even though we've pinged the server (probably several times <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13507	13606	
==>or at least $live_timeout seconds,
    # even though we've pinged the server (probably several times <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9169	9348	
==>,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9169	9348	
==>,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9169	9348	
==>,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2054	2159	
==>ew($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31780	31897	
==>warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31780	31897	
==>warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31780	31897	
==>warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	5	106	
==>d JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	5	106	
==>d JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	5	106	
==>d JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21704	21802	
==>tatement :words {  # see 12.8
      <'break'><no_LineTerminator_here><Identifier>? <';'>
}
rule Ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13267	13439	
==>ams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13267	13439	
==>ams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13267	13439	
==>ams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12725	12829	
==>n 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages yet
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1845	1958	
==>cut
say;
return if 1;

PERL6

    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1517	1611	
==>ep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contigu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1517	1611	
==>ep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contigu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1517	1611	
==>ep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contigu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4365	4517	
==>end     safe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre     pair    s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4796	4896	
==>= emit(get_data($_[0], '$<value>'));
   return $var.' = '.$lit.";\n";
}
sub node::sub_application_ter <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	351	447	
==>d in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keep <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	351	447	
==>d in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keep <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8788	8893	
==>ottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; paddin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5120	5216	
==>nput PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5120	5216	
==>nput PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5120	5216	
==>nput PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1488	1749	
==>r {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1488	1749	
==>r {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6173	6276	
==>n.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6173	6276	
==>n.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9394	9651	
==>ft; 
                    $e->get("$current")
                      ->is_not_nil()
                      ->and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e->get("$method")->is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	544	653	
==>ead, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	544	653	
==>ead, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	544	653	
==>ead, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7744	7842	
==>reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.cle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7744	7842	
==>reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.cle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4370	4458	
==>-------------------------------------------
## BOOTSTRAPPING Roles
## ------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4393	4481	
==>--------------------
## BOOTSTRAPPING Roles
## ------------------------------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1249	1356	
==>urn $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1249	1356	
==>urn $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_mat <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5478	5584	
==>self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5478	5584	
==>self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	120	217	
==>use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	120	217	
==>use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	88	184	
==>use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1776	1867	
==>pkg->alternative

Returns the JIB::Alternative object, if this package is a registered alter <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	560	684	
==>ning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string ( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	560	684	
==>ning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34816	34910	
==>vocant Relation and that match any tuples of C<$other> along
their common attributes.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39366	39460	
==>vocant Relation and that match any tuples of C<$other> along
their common attributes.  This met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1952	2058	
==>lf}[$start_index->to_native .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	141	240	
==>se Perl6::Core::List;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Uti <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2695	2793	
==>ceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter { <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2695	2793	
==>ceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1	99	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this cre <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	345	600	
==>by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applie <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	345	600	
==>by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applie <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1295	1400	
==>got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1353	1458	
==>got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test: <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	235	341	
==><+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	846	937	
==>tr;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	846	937	
==>tr;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	846	937	
==>tr;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::R <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4139	4261	
==>k the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Ind <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4139	4261	
==>k the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Ind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2186	2285	
==>allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2197	2296	
==>allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	180	344	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	985	1149	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	180	344	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	985	1149	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	833	992	
==>);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	833	992	
==>);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2112	2209	
==>ectly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item In <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2112	2209	
==>ectly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1021	1127	
==>ct slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1021	1127	
==>ct slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1021	1127	
==>ct slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Para <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	373	468	
==>n("\n", param('topic')) || 'FrontPage';
my $entry      = join("\n", param('entry') || %wiki{$top <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1447	1552	
==>he submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke {
  $CGI->param("sm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6496	6587	
==>N_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6496	6587	
==>N_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6496	6587	
==>N_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15790	15910	
==>nd in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15790	15910	
==>nd in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15790	15910	
==>nd in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1246	1346	
==>t 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $gru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17563	17739	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18220	18396	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17842	18018	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18499	18675	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'gramm <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1608	1737	
==>ring (sequence of integers, no Unicode)
    num         native floating point
    ref         native pointer 
    bool        nati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1046	1158	
==>usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1046	1158	
==>usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1046	1158	
==>usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10950	11078	
==>ss defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10950	11078	
==>ss defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5226	5351	
==>'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5226	5351	
==>'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8109	8217	
==>Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8109	8217	
==>Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8109	8217	
==>Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->per <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	346	444	
==>::Util 'blessed';

# create our basic variables/functions for 
# the metamodel that the runtime nee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13281	13431	
==>$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13281	13431	
==>$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13281	13431	
==>$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18357	18535	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18654	18832	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18636	18814	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18933	19111	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3233	3343	
==>superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3233	3343	
==>superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3233	3343	
==>superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7401	7505	
==>cedence;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Preceden <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1328	1466	
==>entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1328	1466	
==>entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1328	1466	
==>entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argna <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36566	36661	
==>$parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16960	17051	
==>xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16960	17051	
==>xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16960	17051	
==>xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1082	1203	
==>per; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eval <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1914	2030	
==>per; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2054	2170	
==>per; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eval <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1082	1176	
==>ncompatible ways.  It is otherwise stable.

Test::Harness is limited to printing out its result <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2262	2395	
==>]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2262	2395	
==>]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' => <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4402	4492	
==>=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4402	4492	
==>=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12648	12897	
==>:Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in pro <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12648	12897	
==>:Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in pro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7501	7627	
==>n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it doe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7513	7639	
==>n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it doe <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	674	798	
==>of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginn <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	674	798	
==>of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginn <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1727	1847	
==>ents;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_documen <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1727	1847	
==>ents;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_documen <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10382	10479	
==>gexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10382	10479	
==>gexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24912	25007	
==>->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25353	25448	
==>->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48330	48418	
==>-----------------------------------------------
## add Module

$::Module = $::Class->send <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28382	28491	
==>q, and set it to
the code reference in $code.  Example:

  # continuing from above...
  sub init {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3487	3587	
==>ee PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3487	3587	
==>ee PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3487	3587	
==>ee PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	79	188	
==>es in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	79	188	
==>es in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	79	188	
==>es in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Ha <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	79	188	
==>es in `src`
# to the blib6 archlib, so that it will all get installed. This is
# needed to be able to build Ha <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1376	1487	
==>{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1376	1487	
==>{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3063	3166	
==>a,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constru <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3063	3166	
==>a,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	126	225	
==>ine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	126	225	
==>ine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	126	225	
==>ine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8106	8197	
==>ar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9939	10051	
==>ples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13416	13528	
==>ples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3678	3770	
==>:opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3678	3770	
==>:opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3678	3770	
==>:opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('ro <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3130	3224	
==>ethod intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $othe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3130	3224	
==>ethod intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $othe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17643	17736	
==>>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17643	17736	
==>>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2374	2498	
==>aClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2374	2498	
==>aClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2374	2498	
==>aClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inp <==
4	/Users/nnunley/pugs/util/package-osx.pl	315	412	
==>l/bin/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13365	13500	
==>Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13365	13500	
==>Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13365	13500	
==>Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "No <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2605	2721	
==>'op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	263	368	
==>defined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	263	368	
==>defined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	263	368	
==>defined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	787	884	
==>age::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	681	786	
==>>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	681	786	
==>>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	681	786	
==>>isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9375	9471	
==>ymbol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_method ((opaque $sel <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2863	2959	
==>span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2863	2959	
==>span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32016	32105	
==>cendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:M <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32680	32769	
==>cendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:M <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12998	13103	
==>-iblech
class Str does Iter {
    method shift () is primitive { =open(self) }

    method trans (Pair *@i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10364	10468	
==>ORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10364	10468	
==>ORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2556	2655	
==>n easily search on both.
 Why LET but not TEMP?  LET is non-trivial, TEMP isn't.  Minimalism wins.
= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3772	3913	
==>r eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3760	3901	
==>r eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20315	20431	
==>str(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16736	16852	
==>str(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)] <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12120	12224	
==>ses the shell.
    # Please remember to update t/pugsrun/11-safemode.t if you change the fully
    # qual <==
4	/Users/nnunley/pugs/util/package-osx.pl	8801	8919	
==>-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	163	257	
==>s[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	163	257	
==>s[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	163	257	
==>s[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21614	21717	
==>hift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21614	21717	
==>hift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21614	21717	
==>hift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($sp <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1109	1210	
==>aster)
    --output_dir    Output Directory to put the html files (Default: ./t_index)
    --test_dirs <==
4	/Users/nnunley/pugs/util/version_h.pl	342	451	
==>last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that is only updated wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6797	6905	
==>elf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6797	6905	
==>elf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6797	6905	
==>elf->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3246	3354	
==>" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3246	3354	
==>" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3246	3354	
==>" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	829	928	
==>ives are nominally:
  1- Provide an environment in which p6 rules can be run against strings,
  suff <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7113	7219	
==>eak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7113	7219	
==>eak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7113	7219	
==>eak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6324	6425	
==>ame,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_code_CODE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21656	21760	
==>) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21656	21760	
==>) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21656	21760	
==>) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6592	6691	
==>e->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $versi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6592	6691	
==>e->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $versi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6592	6691	
==>e->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $versi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10230	10323	
==>$paramContext, $paramDefault) {
    my $default; $default = DOWN($paramDefault) if defined($pa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1324	1436	
==>: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1324	1436	
==>: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $spa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13055	13152	
==>ll remove all the header fields used to describe the content of
a message.  All header field names <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13055	13152	
==>ll remove all the header fields used to describe the content of
a message.  All header field names <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	129	233	
==>$_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	129	233	
==>$_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	129	233	
==>$_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5900	6003	
==>y;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_tok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12405	12590	
==>{

        if ( ! exists $n->{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2399	2491	
==>ile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2399	2491	
==>ile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2399	2491	
==>ile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6") <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15169	15268	
==>generate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15169	15268	
==>generate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	738	834	
==>($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	738	834	
==>($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	51	157	
==>in this file 

### separate into:

- Introduction

- Documentation Index

- Compiler internals:

    Compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	44	145	
==>in this file 
### separate into:
- Introduction
- Documentation Index
- Compiler internals:
    Compil <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8132	8232	
==>TE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Somet <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8132	8232	
==>TE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Somet <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4606	4707	
==>le>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."->{".$key. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3904	3997	
==>2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3904	3997	
==>2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3904	3997	
==>2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17563	17729	
==>for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17563	17729	
==>for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17563	17729	
==>for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::nex <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	196	298	
==>VERSION = '0.02';

use strict;

# determine if the user needs nmake, and download it if needed
sub chec <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5358	5458	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4488	4588	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5358	5458	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4488	4588	
==>e, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2348	2494	
==>=> '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2348	2494	
==>=> '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1152	1281	
==>...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    mu <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1152	1281	
==>...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13726	13863	
==>%bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13726	13863	
==>%bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13726	13863	
==>%bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3587	3715	
==>>{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11659	11783	
==>( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11659	11783	
==>( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11659	11783	
==>( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1133	1277	
==>IL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        No <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1133	1277	
==>IL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        No <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1133	1277	
==>IL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        No <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15180	15278	
==>$env = $self->{env} = shift;
    $self->{digests} = { map { Digest->compute($_) => $_ } $env->value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9030	9215	
==>eturn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9030	9215	
==>eturn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9030	9215	
==>eturn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $para <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7784	7882	
==>ist::map $expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
# Prim <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2559	2665	
==>ram"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16420	16506	
==>went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16420	16506	
==>went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16420	16506	
==>went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11340	11473	
==>:numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11340	11473	
==>:numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11340	11473	
==>:numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22150	22240	
==>ing.>

=head1 DESCRIPTION

Relation::Example provides a minimal in-RAM
storage implementati <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11307	11437	
==>t nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11307	11437	
==>t nick. $in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10548	10666	
==>t nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10548	10666	
==>t nick. $in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("N <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9462	9596	
==>eight < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    ret <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9462	9596	
==>eight < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5826	5936	
==>] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5814	5924	
==>] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3038	3180	
==>ude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4693	4802	
==>f->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4693	4802	
==>f->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4693	4802	
==>f->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_ro <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15853	15948	
==>metimes a program will raise a condition or error that,
while resembling a message that would be <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15853	15948	
==>metimes a program will raise a condition or error that,
while resembling a message that would be <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13743	13837	
==>names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in tur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13743	13837	
==>names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in tur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9365	9481	
==>oned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9365	9481	
==>oned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9365	9481	
==>oned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->ele <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12010	12102	
==>=head2 C<_restore_PERL5LIB>

  $self->_restore_PERL5LIB;

This restores the original value of <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11256	11351	
==>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17199	17294	
==>so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11256	11351	
==>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17199	17294	
==>so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	960	1063	
==>bles 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sig <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	960	1063	
==>bles 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sig <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	698	800	
==>ake some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_IN <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	698	800	
==>ake some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_IN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1486	1618	
==>uired => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2517	2613	
==>6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2517	2613	
==>6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2517	2613	
==>6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18108	18239	
==>alue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Da <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18108	18239	
==>alue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Da <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18108	18239	
==>alue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Da <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10466	10563	
==>self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_method' => (
    # met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3538	3695	
==>ure
    $/()  
        just the capture - what''s returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1860	1972	
==>e sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11103	11208	
==>{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstring <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11103	11208	
==>{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstring <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11103	11208	
==>{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstring <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2724	2917	
==>line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2724	2917	
==>line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2863	2972	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2863	2972	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (No <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	136	244	
==>data;
use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.04';

use strict 'vars';
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4012	4109	
==>$param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4012	4109	
==>$param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4012	4109	
==>$param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unles <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1060	1176	
==><ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1060	1176	
==><ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6453	6547	
==>nd, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6453	6547	
==>nd, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34545	34641	
==>or that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a sub <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39095	39191	
==>or that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6001	6125	
==>>() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print post <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6001	6125	
==>>() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print post <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5427	5544	
==>=> sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.mul <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5427	5544	
==>=> sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.mul <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5262	5360	
==>zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as comple <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5262	5360	
==>zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as comple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6487	6582	
==>s::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=h <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	322	417	
==>rrencer

# the algorithm implemented is Hindley-Milner type inferrencing, as explained in
# this <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6487	6582	
==>s::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6487	6582	
==>s::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3241	3343	
==>l eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6366	6468	
==>l eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3241	3343	
==>l eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6366	6468	
==>l eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8293	8379	
==>xpand();
}

#======================================================================

us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8293	8379	
==>xpand();
}

#======================================================================

us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8293	8379	
==>xpand();
}

#======================================================================

us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	533	635	
==>flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	533	635	
==>flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	533	635	
==>flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13757	13931	
==>"'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10941	11070	
==>experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print call <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8011	8135	
==>experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print call <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8011	8135	
==>experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print call <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5456	5555	
==>rse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rule categorie <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9317	9404	
==>row->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9512	9599	
==>row->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9707	9794	
==>row->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1956	2058	
==>));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1956	2058	
==>));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1956	2058	
==>));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21488	21586	
==>ss_member(class_neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         , <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	586	828	
==>::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	586	828	
==>::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	546	659	
==>}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	546	659	
==>}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_s <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10630	10726	
==>rence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10630	10726	
==>rence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2366	2457	
==>pr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2366	2457	
==>pr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1931	2051	
==>tart;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1931	2051	
==>tart;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	77	179	
==>le
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Tex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	77	179	
==>le
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3133	3234	
==>count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3133	3234	
==>count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3133	3234	
==>count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	205	304	
==>6 extensions outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mk <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2799	2909	
==>13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to def <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2799	2909	
==>13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to def <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3840	3932	
==>he strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any othe <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3840	3932	
==>he strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any othe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12968	13197	
==>' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12968	13197	
==>' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12968	13197	
==>' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4764	4897	
==>primitive.' .
                'No, Blondie will not have church integers any time soon.',
            ),
        ),

Inherits Unit.

= <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24360	24457	
==>ck

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28912	29009	
==>ck

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11443	11546	
==>return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11443	11546	
==>return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11443	11546	
==>return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14996	15162	
==>elf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14996	15162	
==>elf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14996	15162	
==>elf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8054	8163	
==>, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2230	2328	
==>) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2230	2328	
==>) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2230	2328	
==>) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4109	4205	
==>arameter_with_default(
            traverse_ast( %pad<"tpParam"> ), traverse_ast( %pad<"tpDefault <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4264	4369	
==>val';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = join "", map $_->qr, @{ $rx->[0]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10375	10478	
==>ethod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10375	10478	
==>ethod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10375	10478	
==>ethod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1962	2071	
==>[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1962	2071	
==>[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1962	2071	
==>[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2J <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4293	4396	
==>Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#metho <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4293	4396	
==>Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#metho <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5166	5268	
==>Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
metho <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5166	5268	
==>Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	561	729	
==>"\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	561	729	
==>"\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3384	3478	
==>nfinite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3384	3478	
==>nfinite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($se <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1525	1632	
==>er is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexer = tokens($lexer, *@$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4869	4970	
==>se \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4869	4970	
==>se \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4869	4970	
==>se \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13801	13923	
==>$syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'syn', " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8786	8889	
==>l_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defau <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8786	8889	
==>l_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defau <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8786	8889	
==>l_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defau <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10844	10939	
==>Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<pa <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10844	10939	
==>Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<pa <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10751	10841	
==>quest_method returns Str>

=item B<content_type returns Str>

=item B<content_length return <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10751	10841	
==>quest_method returns Str>

=item B<content_type returns Str>

=item B<content_length return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2224	2349	
==>$arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	whi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2224	2349	
==>$arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	whi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2224	2349	
==>$arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	whi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7563	7687	
==>st *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4062	4254	
==>2;
            carp "unrecognized token '",substr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m->();

        {
            # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2231	2333	
==>an => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2231	2333	
==>an => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35720	35817	
==>ead2 close

Family: close

Types: close1, close2 ... closeN (C<)> when in C<(...>)

Omitted

=head <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4387	4509	
==>_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4387	4509	
==>_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3382	3480	
==>::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export sym <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3382	3480	
==>::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export sym <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12518	12675	
==>) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12518	12675	
==>) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.pa <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13346	13439	
==>ow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
h <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13346	13439	
==>ow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5743	5835	
==>L2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5743	5835	
==>L2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5743	5835	
==>L2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	839	966	
==>ed $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	839	966	
==>ed $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	839	966	
==>ed $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2966	3079	
==>k.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2966	3079	
==>k.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2966	3079	
==>k.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.v <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1253	1365	
==>e two not actually split?
        # my @args = $string.split(rx:Perl5/\s+/);
        # my @args = split(rx:Perl5/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3854	3963	
==>0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3854	3963	
==>0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3854	3963	
==>0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	593	690	
==>::TAP::Model);
our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOption <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7433	7546	
==>opy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7433	7546	
==>opy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7433	7546	
==>opy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1943	2087	
==>$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2003	2147	
==>$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	429	529	
==>osetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	429	529	
==>osetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	888	992	
==>() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	888	992	
==>() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	888	992	
==>() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	405	490	
==>ned in
# this article: http://research.microsoft.com/Users/luca/Papers/BasicTypechecki <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	602	705	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	602	705	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	602	705	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36969	37067	
==>ion

=head2 flags

Family: flags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7016	7135	
==>ass = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7016	7135	
==>ass = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7016	7135	
==>ass = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cele <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1521	1644	
==>Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1974	2097	
==>Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2409	2532	
==>Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2846	2969	
==>Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1688	1818	
==>- collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc => 'left',
    #    precedence => 'eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1613	1724	
==>($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1613	1724	
==>($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1613	1724	
==>($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21929	22144	
==>concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22208	22423	
==>concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	728	828	
==>unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2644	2739	
==>:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# signature from PIL2JS Array.pm and S29draft. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12131	12273	
==>(str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canidate, hash %params) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13059	13195	
==>bel and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13059	13195	
==>bel and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13059	13195	
==>bel and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2769	2901	
==>" } @{$<token>},
                map { "$_" } @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18265	18357	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18265	18357	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18265	18357	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4818	4968	
==>der.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4818	4968	
==>der.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2344	2491	
==>bort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # upd <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2270	2408	
==>bort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # upd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1253	1360	
==>l checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1253	1360	
==>l checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1253	1360	
==>l checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $j <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	928	1034	
==>rom, 1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19584	19695	
==>kg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run::OnPerl5::X1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7446	7535	
==>ter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7446	7535	
==>ter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7446	7535	
==>ter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17723	17827	
==>A;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5641	5801	
==>, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5641	5801	
==>, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5641	5801	
==>, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4278	4380	
==>creen will be displayed before booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7969	8194	
==>), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6421	6524	
==>rg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6421	6524	
==>rg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new(' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6421	6524	
==>rg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new(' <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18570	18801	
==>link, $3);
                      $found = 1;
                      last;
                    }

                    if (!$found) {
                      # Part of the content is inside a pre.
                      $h->push_content($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1927	2025	
==>f ( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $matchObj->position( $matchObj->from() + 1) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17714	17810	
==>object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17714	17810	
==>object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5396	5523	
==>elf->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5914	6020	
==>elf->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	505	608	
==>heck( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	989	1092	
==>heck( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	496	612	
==>> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<ME <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	496	612	
==>> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<ME <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4115	4228	
==>: method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11841	11957	
==>> {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11841	11957	
==>> {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6382	6485	
==>form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6166	6268	
==>form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1832	1978	
==>| $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1832	1978	
==>| $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        } <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2553	2679	
==>| $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2553	2679	
==>| $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    } <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	550	662	
==>n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	531	642	
==>ify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	301	412	
==>ify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	301	412	
==>ify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	337	426	
==>MP_PRELUDE unless $Config{keep} };

GetOptions \%Config, qw(--inline --pugs|p=s --precompi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6931	7086	
==>value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6931	7086	
==>value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LO <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30013	30105	
==>Str $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34565	34657	
==>Str $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4280	4392	
==>https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4280	4392	
==>https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4280	4392	
==>https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3575	3684	
==>'$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $c <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16196	16304	
==>me,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1567	1666	
==>g{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1567	1666	
==>g{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1567	1666	
==>g{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1380	1474	
==>lf->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1520	1614	
==>lf->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{a <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4797	4911	
==>m an MSYS build. If you wish to fix this please refer to:

   http://www.haskell.org/ghc/docs/5.04/html/building/wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2615	2714	
==>|| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2615	2714	
==>|| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2615	2714	
==>|| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurs <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	686	786	
==>hift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1276	1376	
==>hift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->ne <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	813	906	
==>path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	813	906	
==>path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36806	36927	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36806	36927	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36806	36927	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array - <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11295	11411	
==>piled AST: " . Dumper->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	204	330	
==>s
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	204	330	
==>s
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	204	330	
==>s
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28224	28320	
==>em C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation::Example's bo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3103	3252	
==>> sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation::Set') };

### package constants
use constant ISA_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	312	403	
==>er}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	312	403	
==>er}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeni <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	312	403	
==>er}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeni <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2633	2764	
==>ented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2633	2764	
==>ented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        " <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10098	10202	
==>' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10098	10202	
==>' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6686	6811	
==>t == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6686	6811	
==>t == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6686	6811	
==>t == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2029	2120	
==>--------------------------------------
## adding children 

method add_child ($self: Tree $c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2029	2120	
==>--------------------------------------
## adding children 

method add_child ($self: Tree $c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37925	38015	
==>odule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Temp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37925	38015	
==>odule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Temp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5265	5369	
==>'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5265	5369	
==>'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5265	5369	
==>'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	372	466	
==>d line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	333	427	
==>d line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	333	427	
==>d line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1582	1668	
==>Gunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) || <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7602	7692	
==>>sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1427	1517	
==>>sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9700	9832	
==>),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6041	6173	
==>),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6890	7022	
==>),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10767	10883	
==>not be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $ar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14701	14810	
==>/ ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14701	14810	
==>/ ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $m <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1352	1452	
==>,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases t <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1352	1452	
==>,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4780	4887	
==>ethod add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4780	4887	
==>ethod add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5155	5243	
==>d if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5155	5243	
==>d if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16498	16594	
==>UB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16498	16594	
==>UB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16498	16594	
==>UB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1733	1823	
==>s::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

=item * L<Pugs::Compiler::RegexPerl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1516	1627	
==>ssage( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1516	1627	
==>ssage( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24901	24996	
==>This method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mapping <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29453	29548	
==>This method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mapping <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18135	18223	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18443	18531	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41400	41488	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41708	41796	
==>method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5866	5972	
==>o::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5866	5972	
==>o::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5866	5972	
==>o::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE(' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23718	23811	
==>plementation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essenti <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2586	2706	
==>pan::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 | <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2586	2706	
==>pan::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 | <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8291	8399	
==>hod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11768	11876	
==>hod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1248	1375	
==>\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2059	2151	
==>me('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2059	2151	
==>me('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2059	2151	
==>me('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	881	992	
==>ub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with ' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1755	1866	
==>ub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with ' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	881	992	
==>ub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with ' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1755	1866	
==>ub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29287	29408	
==>HX_ re)

 #define FBMcf_TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3324	3426	
==>Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is ex <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3324	3426	
==>Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4848	4950	
==>Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is ex <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11552	11658	
==>package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7343	7434	
==>AME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7343	7434	
==>AME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7343	7434	
==>AME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	772	865	
==>erface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	772	865	
==>erface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23073	23162	
==>> <Identifier> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <'}'>
}
rule Functi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9445	9533	
==>amed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1") if $op{'i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1287	1419	
==>method = $_table->{$message}) {
            return $method->($self, @_);
        }
        else {
            if (exists $_table->{pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1276	1379	
==>rited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1276	1379	
==>rited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1276	1379	
==>rited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1011	1109	
==>iler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	961	1058	
==>iler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in b <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19964	20052	
==>ions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implemen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19964	20052	
==>ions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implemen <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11573	11675	
==>rintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&en <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11573	11675	
==>rintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&en <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11578	11746	
==>: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7860	8028	
==>: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8694	8862	
==>: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bind <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1443	1567	
==>new(500, 350);
$graph->set(
  title        => "Pugs development",
  x_label      => "Days",
  y_label      => "Commits/Develo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	751	871	
==>t' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	751	871	
==>t' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	751	871	
==>t' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	398	510	
==>e where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	398	510	
==>e where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4062	4144	
==>e54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Al <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4062	4144	
==>e54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Al <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	473	574	
==>ing JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	473	574	
==>ing JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	473	574	
==>ing JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36774	36871	
==>ch> to
handle both '&' and '!'.  '!' will indicate a negative look-ahead.

  package Regexp::AndBr <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	87	175	
==>nstall/Compiler.pm"
package Module::Install::Compiler;

use strict;
use Module::Install:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14556	14640	
==>rl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14556	14640	
==>rl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14556	14640	
==>rl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Per <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13002	13104	
==>t a plausibly scoped alternative working.

  Using $/ might be non-trivial, as only some forms of redef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7776	7876	
==>b main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7776	7876	
==>b main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7776	7876	
==>b main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	958	1114	
==>SER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	958	1114	
==>SER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7355	7461	
==>ists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `u <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7355	7461	
==>ists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10693	10805	
==>ath}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $di <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10693	10805	
==>ath}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $di <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	401	504	
==>an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use de <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	423	517	
==>>new;

	my @nodes = grep { blessed($_) } $dup_finder->duplicate_nodes($program);

	$self->{seen <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3758	3899	
==>ocuments   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1443	1590	
==>n sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1786	1928	
==>n sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1393	1535	
==>n sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1786	1928	
==>n sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2365	2479	
==>}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2365	2479	
==>}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not def <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2365	2479	
==>}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not def <==
4	/Users/nnunley/pugs/util/importgraph.pl	340	439	
==>e";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overlap,
  "ignore=s" => \@ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8596	8702	
==>me_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7565	7671	
==>me_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8596	8702	
==>me_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7565	7671	
==>me_object;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4392	4504	
==>> "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2599	2696	
==>XX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method so <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2599	2696	
==>XX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method so <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2599	2696	
==>XX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method so <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18178	18294	
==>w => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_inv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18178	18294	
==>w => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_inv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18010	18107	
==>tering a sane process, by
parsing up your module's source code into various blocks; so that by the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18010	18107	
==>tering a sane process, by
parsing up your module's source code into various blocks; so that by the <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	136	245	
==>ert;
use Exporter;
use Benchmark;
use Config;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	14	107	
==>emporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	14	107	
==>emporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	14	107	
==>emporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15599	15737	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15599	15737	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15599	15737	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2169	2287	
==>atching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2229	2347	
==>atching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3438	3547	
==>t /,/ } @{ $Config{include} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24997	25099	
==>->stringify, "∀α. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = type <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8918	9059	
==>bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented" <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4648	4785	
==>sOptional">,
            %pad<"isWritable">, %pad<"paramContext">,   
            %pad<"paramDefault">,   # ???
        );
    }
    elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12803	12916	
==>bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12803	12916	
==>bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented" <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6708	6930	
==>rom => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $n <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6708	6930	
==>rom => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22467	22563	
==>u can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta::I <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22467	22563	
==>u can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta::I <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	844	952	
==>a.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    ret <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	844	952	
==>a.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15288	15386	
==>ng methods are available for Span objects:

- `start()` / `end()`

Return the start or end value of <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15288	15386	
==>ng methods are available for Span objects:

- `start()` / `end()`

Return the start or end value of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9649	9744	
==>h(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9649	9744	
==>h(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9649	9744	
==>h(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3208	3319	
==>};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3208	3319	
==>};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3208	3319	
==>};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sp <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	693	789	
==>($struct) and $struct->isa("Blondie::Val"))) {
				$self->{seen}->insert($orig);
			}
			$self->B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2635	2747	
==>> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2635	2747	
==>> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2635	2747	
==>> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21064	21157	
==>and max_offset would be plausible places to hide data.
Perl_re_dup just copies them.

Aliases: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	255	369	
==>METHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	255	369	
==>METHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	255	369	
==>METHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel do <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2338	2443	
==>)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21194	21340	
==>{                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17952	18082	
==>{
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41217	41347	
==>{
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44117	44247	
==>{
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7834	7922	
==>ub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7901	7989	
==>ub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1659	1747	
==>ub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1726	1814	
==>ub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19767	19901	
==>>$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, & <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16188	16322	
==>>$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, & <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	192	293	
==>);
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	192	293	
==>);
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37765	37915	
==>nd('add_method' => (
    # method label
        symbol->new('has_attribute'),
    # method body
        method->new(
            $::ENV,
            me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2916	3010	
==>_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2916	3010	
==>_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2916	3010	
==>_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6255	6405	
==>is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6255	6405	
==>is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1072	1207	
==>c->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't parse line: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3693	3802	
==>/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3693	3802	
==>/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3693	3802	
==>/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3366	3494	
==>instance_attrs($self)->{'%:methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            my ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	526	627	
==>e efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	526	627	
==>e efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	526	627	
==>e efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20782	20897	
==>${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17203	17318	
==>${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{n <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1735	1836	
==>e &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperato <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1735	1836	
==>e &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperato <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17661	17813	
==>UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'val <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17661	17813	
==>UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'val <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2386	2481	
==>slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6:: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2386	2481	
==>slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12329	12444	
==>sub { Carp::carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	826	928	
==>e "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ( <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	826	928	
==>e "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20170	20268	
==>( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1446	1575	
==>[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1446	1575	
==>[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1219	1309	
==>API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1219	1309	
==>API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simp <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21482	21663	
==>am => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11227	11323	
==>ay.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11227	11323	
==>ay.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11227	11323	
==>ay.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	885	1006	
==>nt = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	885	1006	
==>nt = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9500	9602	
==>-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $univ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9500	9602	
==>-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $univ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	851	988	
==>++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	851	988	
==>++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	851	988	
==>++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globa <==
4	/Users/nnunley/pugs/util/package-osx.pl	3195	3283	
==>y/Perl/5.8.6/darwin-thread-multi-2level/auto/Perl6/Pugs/.packlist
        /Library/Perl/5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1798	1941	
==>_


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1586	1721	
==>_


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1586	1721	
==>_


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $matc <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1205	1324	
==>defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), tail($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2688	2796	
==>D - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2688	2796	
==>D - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2688	2796	
==>D - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	748	853	
==>ams($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set('$?SELF'    => $inv);
    $self <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5003	5162	
==>ize },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list ope <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5003	5162	
==>ize },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list ope <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	968	1104	
==>when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size) <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	968	1104	
==>when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9335	9484	
==>sed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1453	1586	
==>sed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1453	1586	
==>sed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3682	3883	
==>private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3682	3883	
==>private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3682	3883	
==>private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12356	12457	
==>nidate, %params);
    $self.BUILDALL($params);
    return $self;
}

(method bless ((opaque $class:) (s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1909	2036	
==>elf.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1909	2036	
==>elf.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14367	14478	
==>);

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8570	8681	
==>);

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20776	20890	
==>ubstr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17197	17311	
==>ubstr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5955	6049	
==>g/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
Th <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5955	6049	
==>g/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
Th <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	795	934	
==>ndex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, te <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	795	934	
==>ndex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, te <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2119	2221	
==>$child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_wid <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2119	2221	
==>$child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_wid <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	139	237	
==>piler::Token;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30518	30614	
==>pping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35069	35165	
==>pping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34251	34347	
==>pping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mappi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18148	18270	
==>l, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18148	18270	
==>l, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16813	16905	
==>ct use of environment variables, which can aid in
portability.

Practically speaking, Locale: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16813	16905	
==>ct use of environment variables, which can aid in
portability.

Practically speaking, Locale: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38990	39125	
==>List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38990	39125	
==>List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38990	39125	
==>List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10651	10764	
==>ush @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1712	1840	
==>& ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1712	1840	
==>& ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1712	1840	
==>& ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    el <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	325	419	
==>hod JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	325	419	
==>hod JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	325	419	
==>hod JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2525	2610	
==>ib/pl-5.5.27/lib/x86_64-linux
my $prolog = <<'END';
%================================= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5274	5401	
==>for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method cur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5274	5401	
==>for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	584	684	
==>hod in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while pars <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	584	684	
==>hod in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while pars <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7150	7259	
==>$REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_L <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7150	7259	
==>$REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_L <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	647	751	
==>n unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns boo <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	647	751	
==>n unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5514	5620	
==>});
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5514	5620	
==>});
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5514	5620	
==>});
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23024	23118	
==>_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_S <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1291	1406	
==>s they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	851	966	
==>s they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1513	1610	
==>urn { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1513	1610	
==>urn { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7284	7459	
==>tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7284	7459	
==>tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7284	7459	
==>tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1427	1528	
==>onfig->_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1801	1924	
==>", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2544	2667	
==>", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1801	1924	
==>", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2532	2655	
==>", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15317	15416	
==>MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15317	15416	
==>MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15317	15416	
==>MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32564	32663	
==>n anchor).

=back

If there is a method with the name of one of these attributes, it is
I<imperative <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	297	394	
==>aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	297	394	
==>aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	297	394	
==>aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20450	20547	
==><Initialiser>?
}
rule VariableDeclarationNoIn :words {  # see 12.2
      <Identifier> <Initialiser <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30513	30609	
==>le/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35064	35160	
==>le/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34246	34342	
==>le/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	842	952	
==>b { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	842	952	
==>b { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	842	952	
==>b { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1567	1675	
==>ef($v) eq 'ARRAY') {
            $vs = "[\n".$o->_indent(join(",\n",map{$_->describe}@$v))."\n]";
        } e <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6341	6438	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5471	5568	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6341	6438	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5471	5568	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$one.superset <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4133	4236	
==>---------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4133	4236	
==>---------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4133	4236	
==>---------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22922	23017	
==>n what's wrong
with it.

=item * Variable interpolation

This module parses I<regexes>, not Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11625	11807	
==>ams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11625	11807	
==>ams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11625	11807	
==>ams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1823	1914	
==>s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/($ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	537	660	
==>f: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	537	660	
==>f: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1173	1277	
==>quiv);

	if ($self->has_symbol($node)){
		return $self->symbolic_representation($node);
	}

	my $symbol = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4723	4846	
==>= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[4], } }
        

    | MY NUM attr 
        { $_[0]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1635	1735	
==>new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1635	1735	
==>new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1635	1735	
==>new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1759	2049	
==>),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	215	331	
==>d to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'er <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	215	331	
==>d to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3416	3515	
==>ore([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3416	3515	
==>ore([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3416	3515	
==>ore([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6318	6445	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6318	6445	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6318	6445	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DEST <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25993	26102	
==>tter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	170	273	
==>';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	170	273	
==>';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21449	21576	
==>eturn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21728	21855	
==>eturn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2310	2420	
==>return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2310	2420	
==>return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14848	14969	
==>sion:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression * <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19016	19137	
==>sion:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression * <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10636	10728	
==>right return value from another Object singleton/class method called by Bar');

is($Bar->sing <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6579	6689	
==>('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6579	6689	
==>('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6579	6689	
==>('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2823	2925	
==>un_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2823	2925	
==>un_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2823	2925	
==>un_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3394	3516	
==>ch
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3611	3733	
==>ch
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2012	2108	
==>yptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2012	2108	
==>yptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4658	4783	
==>ify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4658	4783	
==>ify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4658	4783	
==>ify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7847	7947	
==>exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4953	5049	
==>um) returns ~type>

=item B<store (num, ~type) returns nil>

=item B<remove (num) returns nil>

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1339	1431	
==>1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1339	1431	
==>1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1339	1431	
==>1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30287	30392	
==>r->equal_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	884	979	
==>nteroperability with modules that
# do not inherit from Module::Compile but still want to do thi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	884	979	
==>nteroperability with modules that
# do not inherit from Module::Compile but still want to do thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6096	6202	
==>eturn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6084	6190	
==>eturn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9799	9892	
==>e return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phase <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9799	9892	
==>e return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phase <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17937	18064	
==>es' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_h <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17937	18064	
==>es' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7851	7948	
==>-- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7584	7678	
==>-- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3394	3600	
==>ore]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11307	11440	
==>uired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11307	11440	
==>uired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11307	11440	
==>uired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6437	6543	
==>ob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6437	6543	
==>ob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6437	6543	
==>ob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf < <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24336	24417	
==>res_nest(amat(_C0,G),amat([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3590	3700	
==>if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3590	3700	
==>if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	160	255	
==>acks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	160	255	
==>acks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	230	332	
==>ithout loosing this code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5548	5649	
==>, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possib <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5548	5649	
==>, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possib <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5548	5649	
==>, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possib <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2691	2814	
==>_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2691	2814	
==>_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2691	2814	
==>_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	983	1095	
==>ort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	983	1095	
==>ort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3439	3531	
==>('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3439	3531	
==>('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9091	9202	
==>ve alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2126	2237	
==>ve alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	7	116	
==>ict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGI <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	7	116	
==>ict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGI <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	146	256	
==>sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	202	312	
==>sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	146	256	
==>sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	202	312	
==>sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11977	12076	
==>ot case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12409	12508	
==>ot case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11977	12076	
==>ot case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12409	12508	
==>ot case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15415	15510	
==>l is simply mapped char for
char to the desired level. However, attempting to stuff something in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	251	343	
==>low.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	251	343	
==>low.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	251	343	
==>low.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9920	10022	
==>s is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9920	10022	
==>s is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4427	4517	
==>ELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4427	4517	
==>ELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8800	8959	
==>>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8800	8959	
==>>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8800	8959	
==>>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'unde <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1239	1341	
==>r::Null { }
}

module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11963	12131	
==>s && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11963	12131	
==>s && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11963	12131	
==>s && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9671	9810	
==>$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1197	1320	
==>].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1197	1320	
==>].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1197	1320	
==>].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	151	254	
==>path) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	151	254	
==>path) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21338	21433	
==>ing value
is the corresponding attribute value.

Every Relation attribute has a name that is dis <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25890	25985	
==>ing value
is the corresponding attribute value.

Every Relation attribute has a name that is dis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4709	4844	
==>ersion = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\$$a[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34536	34639	
==>et ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34536	34639	
==>et ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34536	34639	
==>et ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $len <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7169	7498	
==>=> 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        wh <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7226	7555	
==>=> 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	815	907	
==>glish

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	815	907	
==>glish

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPS <==
4	/Users/nnunley/pugs/util/package-osx.pl	5080	5182	
==>S22.3pm
        /usr/local/man/man3/Perl6::Bible::S26.3pm
        /usr/local/man/man3/Perl6::Bible::S27 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4810	4910	
==>return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4810	4910	
==>return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4810	4910	
==>return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5212	5380	
==>ft_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@bo <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5212	5380	
==>ft_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@bo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1106	1231	
==>re_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1106	1231	
==>re_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	874	990	
==>k for something which is 
    # not there, then you need to get back
    # a nil value, not just undef
    return nil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6188	6292	
==>\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6188	6292	
==>\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6188	6292	
==>\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instanc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6340	6441	
==>bs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8408	8509	
==>bs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6340	6441	
==>bs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8408	8509	
==>bs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10020	10135	
==>as %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10020	10135	
==>as %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10020	10135	
==>as %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ------- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23270	23363	
==>t;
the interface/behaviour is), this Relation::Example data type is proposed to be
generally u <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4328	4446	
==>, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    } <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4386	4504	
==>, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1226	1328	
==>f.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1226	1328	
==>f.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Spa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28548	28646	
==>ribute names and each of its values
the set of old attribute names that are being wrapped.  This me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33100	33198	
==>ribute names and each of its values
the set of old attribute names that are being wrapped.  This me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32228	32326	
==>ribute names and each of its values
the set of old attribute names that are being wrapped.  This me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8880	8967	
==>{ $iFoo->another_singleton_test_on_object } '... instance calling metaclass singleton me <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	848	969	
==>r now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $my_t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6487	6581	
==>sed> key to true, and adds a
C<really_passed> key which contains the boolean representing if th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6487	6581	
==>sed> key to true, and adds a
C<really_passed> key which contains the boolean representing if th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8684	8778	
==>sed> key to true, and adds a
C<really_passed> key which contains the boolean representing if th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16424	16542	
==>{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12845	12963	
==>{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(any <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2296	2413	
==>y\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7 <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2296	2413	
==>y\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	383	493	
==>class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, when <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	383	493	
==>class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, when <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8112	8199	
==>{ Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1937	2024	
==>{ Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37500	37599	
==>ssertion.  Here's the new class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Rege <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15189	15293	
==>e actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18666	18770	
==>e actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18082	18186	
==>e actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rela <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	133	229	
==>.5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, %conf{'y'}, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12735	12885	
==>unperldisplay\n";
    }
    return $runperl;
}

sub runperl {
    die "test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	565	664	
==>t with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	565	664	
==>t with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	565	664	
==>t with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by re <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3025	3198	
==>$size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @list[$i];
            $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6781	6887	
==>$pugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7684	7786	
==>ordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7684	7786	
==>ordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(norma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34546	34772	
==>equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33959	34162	
==>equal_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7276	7465	
==>ady?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the ve <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7740	7929	
==>ady?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the ve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	20	123	
==>xt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	20	123	
==>xt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3470	3563	
==>->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f" <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	567	676	
==>ket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die f <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	567	676	
==>ket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die f <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4799	4894	
==>B][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4799	4894	
==>B][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13806	13961	
==>sh @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3923	4062	
==>sh @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3923	4062	
==>sh @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3923	4062	
==>sh @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7427	7594	
==>s;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7427	7594	
==>s;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7427	7594	
==>s;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # war <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49576	49705	
==>('add_method' => (
    # method label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV, <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13698	13823	
==>y $start = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3823	3940	
==>y $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3823	3940	
==>y $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3823	3940	
==>y $start = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3005	3217	
==>\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verb <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3005	3217	
==>\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2868	2963	
==>p:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2868	2963	
==>p:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9747	9898	
==>ue)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9747	9898	
==>ue)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9747	9898	
==>ue)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21553	21663	
==>elf[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12044	12201	
==>s) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12044	12201	
==>s) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12044	12201	
==>s) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22539	22641	
==>04

=over 4

=item First Release

Documentation not complete, etc.

=back

=head1 CAVEATS

=over 4

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8564	8734	
==>opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17186	17297	
==>= ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13607	13718	
==>= ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1097	1187	
==>s::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$cod <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1365	1475	
==>\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{" <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	185	277	
==>de_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	185	277	
==>de_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($se <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1596	1680	
==>-------------------------------------------------------------
## informational method <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1596	1680	
==>-------------------------------------------------------------
## informational method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	740	858	
==>od' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	740	858	
==>od' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	740	858	
==>od' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4450	4562	
==>o I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm guessing "current" because this " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	213	315	
==>no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	213	315	
==>no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14255	14352	
==>lunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)` <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14313	14410	
==>lunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14849	15000	
==>x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14849	15000	
==>x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14849	15000	
==>x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	246	378	
==>->mk_accessors(qw/
    target
    from
    position
    coroutine
    capture
    hash
    integer
    number
    /
}

sub new {
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5651	5806	
==>$x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5651	5806	
==>$x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5651	5806	
==>$x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6120	6262	
==>er of test files ran
    good            Number of test files passed
    bad             Number of test files failed
    tests           Number <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1580	1696	
==>ents is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1580	1696	
==>ents is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	867	969	
==>ple spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	867	969	
==>ple spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8764	8856	
==>igest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wil <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5197	5289	
==>ring");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Bas <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8764	8856	
==>igest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wil <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5197	5289	
==>ring");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Bas <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3614	3729	
==>Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3614	3729	
==>Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2939	3053	
==>Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2939	3053	
==>Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8817	8928	
==>ed to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to da <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8817	8928	
==>ed to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to da <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	285	390	
==>trings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	285	390	
==>trings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16663	16767	
==>m_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16663	16767	
==>m_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16663	16767	
==>m_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	519	611	
==>->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15179	15285	
==>'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15179	15285	
==>'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15179	15285	
==>'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
} <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1914	2004	
==>urn parenthesize($$) ? "($_)" : $_ for inner_layout($$) }

type::operator::binary: parenthe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2405	2528	
==>oncat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because we can use < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2830	2950	
==>oncat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use < <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2325	2445	
==>oncat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2830	2950	
==>oncat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4661	4781	
==>atch->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4661	4781	
==>atch->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3477	3595	
==>ap { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3477	3595	
==>ap { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	199	322	
==>_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1196	1311	
==>s_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1196	1311	
==>s_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1196	1311	
==>s_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2597	2697	
==>rn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2597	2697	
==>rn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9857	9950	
==>lass Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.ele <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9857	9950	
==>lass Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.ele <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5609	5735	
==>ble->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTable{$key};
  if ( $token )
  {
    push @bsrStack, "bsr_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1009	1118	
==>>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1236	1345	
==>>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1463	1572	
==>>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6834	6976	
==>>( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6609	6743	
==>>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2811	2936	
==>$match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3004	3129	
==>$match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2020	2215	
==>{
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2020	2215	
==>{
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(. <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1615	1718	
==>e start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, F <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1615	1718	
==>e start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, F <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2944	3060	
==>r 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changin <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2944	3060	
==>r 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9603	9700	
==>y that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inva <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9603	9700	
==>y that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inva <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5021	5164	
==>op{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defa <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5021	5164	
==>op{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8576	8678	
==>IL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13634	13717	
==>=> $e->get('$class:')->send('CREATE' => ($e->get('$canidate'), $e->get('%params')))) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5237	5389	
==>uired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5237	5389	
==>uired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5237	5389	
==>uired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defau <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7646	7745	
==>$arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduce_args:
  goto reduce_saveterm if $a <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	88	250	
==>cape ();
use Term::ReadKey;

{
    package Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20745	20860	
==>_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14555	14656	
==>pan.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14555	14656	
==>pan.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2690	2787	
==>es> is exportable and can be
used to set perl command line options used for running the test
scrip <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3884	4156	
==>ent>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3927	4199	
==>ent>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3884	4156	
==>ent>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3927	4199	
==>ent>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $text, Hash <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8529	8631	
==>age' is checked for instead of 'Module' since all types of
    # packages share the same namespace; any <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8529	8631	
==>age' is checked for instead of 'Module' since all types of
    # packages share the same namespace; any <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8056	8149	
==>y Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8056	8149	
==>y Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9225	9356	
==>thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9225	9356	
==>thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9225	9356	
==>thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items shou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	207	345	
==>> { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3351	3471	
==>n{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  prin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3351	3471	
==>n{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  prin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3351	3471	
==>n{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4179	4277	
==>tch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4179	4277	
==>tch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13991	14098	
==>Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13991	14098	
==>Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13991	14098	
==>Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23130	23211	
==>::X1::Api::Exception::LoopControl;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3743	3857	
==>h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3743	3857	
==>h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u H <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7176	7282	
==>tr $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($tod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7234	7340	
==>tr $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($tod <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19152	19267	
==>e("f"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1496	1594	
==>f->new_pad("name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # ret <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2040	2134	
==>= not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2098	2192	
==>= not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36139	36251	
==>ntation of our children:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16093	16300	
==>star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16372	16579	
==>star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1541	1651	
==>> sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1541	1651	
==>> sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return su <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19831	19977	
==>s' : '').
                   " TODO)")
            if $tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5056	5166	
==>, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5056	5166	
==>, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5056	5166	
==>, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4001	4103	
==>$xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4001	4103	
==>$xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4001	4103	
==>$xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contro <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25860	25952	
==>ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_ANCH_GPOS)
 #define ROPT_ANCH_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13680	13775	
==>onable range of values.

You should consider using a Set::Infinite object if you want to exclude <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13680	13775	
==>onable range of values.

You should consider using a Set::Infinite object if you want to exclude <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2748	2867	
==>},
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    my $perl_version;
    ### sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	893	985	
==>ur objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	893	985	
==>ur objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	893	985	
==>ur objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'arr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2477	2577	
==>?\;
        { return { assign_hash_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5367	5464	
==>, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not avai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5367	5464	
==>, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not avai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5367	5464	
==>, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not avai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15471	15620	
==>shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this usi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15471	15620	
==>shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this usi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15471	15620	
==>shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this usi <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12983	13082	
==>ess { params => undef, param_stack => [] }, shift;
}

sub reduce_val { $_[1]->val }

sub reduce_stub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13424	13528	
==>s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13424	13528	
==>s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4921	5019	
==>', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?S <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4921	5019	
==>', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5453	5558	
==>L++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5453	5558	
==>L++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5453	5558	
==>L++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8272	8481	
==>) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8272	8481	
==>) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8272	8481	
==>) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::S <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13826	13964	
==>if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	419	521	
==>on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	419	521	
==>on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10290	10389	
==>end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10290	10389	
==>end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4714	4850	
==>r writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4714	4850	
==>r writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4714	4850	
==>r writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	42	161	
==>ugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/graph.png   --or
#        svn log > /tmp/log; util/svnl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21509	21612	
==>ord)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) :- catch(   char_type(C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2902	3000	
==>cl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterwa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2902	3000	
==>cl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterwa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2902	3000	
==>cl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterwa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2335	2456	
==>, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2475	2596	
==>, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18995	19110	
==>}

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20353	20468	
==>}

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4663	4784	
==>gs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4663	4784	
==>gs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4663	4784	
==>gs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-on <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14451	14547	
==>.com/regex/  While the code has diverged,
  at least the library has some documentation, which ca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	920	1035	
==>uce($ast);
}

sub reduce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2185	2284	
==>preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2185	2284	
==>preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2185	2284	
==>preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23830	23966	
==>_flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13334	13462	
==>_flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13334	13462	
==>_flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13334	13462	
==>_flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	946	1060	
==>1 },
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	965	1060	
==>d tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	965	1060	
==>d tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	965	1060	
==>d tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	150	244	
==>bstitution are used, and
# this brute-force, simplistic, and extremely foolish
# script, ignori <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	416	581	
==>m ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23821	23912	
==>I SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23821	23912	
==>I SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23821	23912	
==>I SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5197	5323	
==>->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5197	5323	
==>->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0] <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13752	13858	
==>r";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo b <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13752	13858	
==>r";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo b <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1683	1809	
==>), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15494	15605	
==>ap($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16909	17020	
==>ap($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21665	21776	
==>ap($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1515	1611	
==>O - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1515	1611	
==>O - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1515	1611	
==>O - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	932	1038	
==>PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $n <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	932	1038	
==>PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9584	9681	
==>hese methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9584	9681	
==>hese methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recur <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8586	8719	
==>(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(substr($X::st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20218	20329	
==>t theirs from the base object
class.

The walker() method is also now abstracted -- each node it comes across
wi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20228	20319	
==>-E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20228	20319	
==>-E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a c <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19757	19866	
==>witchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> <Sta <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5923	6026	
==>@_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3516	3616	
==>DO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_type <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3516	3616	
==>DO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_type <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3516	3616	
==>DO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2973	3127	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2973	3127	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2973	3127	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	203	297	
==>!!  UGLY, NON-COMMENTED  !!WARNING!!
# -----------------------------------------------

sub IDG <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	692	798	
==>msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ms <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	691	797	
==>msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	692	798	
==>msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	691	797	
==>msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $ms <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	901	1013	
==>ce methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $sc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	901	1013	
==>ce methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $sc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4240	4343	
==>inite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4240	4343	
==>inite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1175	1274	
==>:Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1175	1274	
==>:Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1175	1274	
==>:Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12565	12663	
==>() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier with <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2316	2478	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27470	27632	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2509	2671	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27749	27911	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43185	43426	
==>::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46529	46770	
==>::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36435	36662	
==>::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37970	38197	
==>::params->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                retu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3719	3903	
==>. $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $conf->ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1114	1225	
==>ately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1114	1225	
==>ately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1114	1225	
==>ately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Fi <==
4	/Users/nnunley/pugs/util/build_pugs.pl	933	1058	
==>ugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segment";
    
    print "Build configuration:\n" . PugsBuild: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	903	1009	
==>hift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	903	1009	
==>hift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	903	1009	
==>hift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30171	30268	
==>un.

Fix so perls with spaces in the filename work.

Keeping whittling away at _run_all_tests()

C <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2227	2367	
==>@file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
	        print "{}\n";
		next;
	    } elsif ($file[0] eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4987	5102	
==>@ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're proc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4987	5102	
==>@ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're proc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4987	5102	
==>@ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're proc <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1823	1936	
==>/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    pr <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1823	1936	
==>/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    pr <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1173	1276	
==>ild_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1173	1276	
==>ild_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6516	6611	
==>VEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6516	6611	
==>VEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6516	6611	
==>VEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1575	1684	
==>ay

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' call <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1575	1684	
==>ay

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' call <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1575	1684	
==>ay

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' call <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3416	3523	
==>100, '... got the right x for p2');
is($p2->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11847	11965	
==>l6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11847	11965	
==>l6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11847	11965	
==>l6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$th <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	573	679	
==>n   => $Config{sitebin},
        siteprefix=> $Config{siteprefix},

        installscript  => $Config{insta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	41	142	
==>ule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	41	142	
==>ule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  w <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1359	1452	
==>ct.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as q <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1359	1452	
==>ct.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as q <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1169	1321	
==>1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3465	3617	
==>1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1169	1321	
==>1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3465	3617	
==>1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2879	2979	
==>mes of all the parameters as a list.  The order in which they were
present in the query string is pre <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2879	2979	
==>mes of all the parameters as a list.  The order in which they were
present in the query string is pre <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18276	18368	
==>INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>(" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18276	18368	
==>INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>(" <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1006	1102	
==>ions.)

Although it is secure when used properly, using it incorrectly can lead to 
serious insec <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1006	1102	
==>ions.)

Although it is secure when used properly, using it incorrectly can lead to 
serious insec <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	973	1067	
==>[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	973	1067	
==>[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19637	19735	
==>an one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set data <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24189	24287	
==>an one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set data <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10017	10111	
==>$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($& <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10752	10846	
==>$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($& <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3648	4064	
==>.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages used by the Relation class, t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9380	9537	
==>ed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9380	9537	
==>ed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9380	9537	
==>ed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11817	11932	
==>{
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8093	8206	
==>using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8093	8206	
==>using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8093	8206	
==>using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	962	1069	
==>, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1189	1296	
==>, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1416	1523	
==>, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1641	1748	
==>, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side must be <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2976	3181	
==>reinst;
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10699	10831	
==>os1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10693	10825	
==>os1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5465	5584	
==>les;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5465	5584	
==>les;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5465	5584	
==>les;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1518	1622	
==>> "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4894	5078	
==>name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4894	5078	
==>name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4894	5078	
==>name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18562	18668	
==>eading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9784	9902	
==>pec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9784	9902	
==>pec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9784	9902	
==>pec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1343	1512	
==>storeElem' => sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3916	4015	
==>odo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PU <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3916	4015	
==>odo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5440	5539	
==>odo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PU <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6868	7015	
==>parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6868	7015	
==>parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14632	14733	
==>nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14632	14733	
==>nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2637	2835	
==>t) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1327	1525	
==>t) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2637	2835	
==>t) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1327	1525	
==>t) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3481	3588	
==>sif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == - <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3481	3588	
==>sif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == - <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18665	18761	
==>cation or package, with one or more
text strings to show human users.  This association would nor <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18665	18761	
==>cation or package, with one or more
text strings to show human users.  This association would nor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7500	7613	
==>ame = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7500	7613	
==>ame = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7500	7613	
==>ame = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsnam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23764	23858	
==>so you must use accessor
methods.  Relation::Example does not declare any subroutines or export <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3676	3831	
==>_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3676	3831	
==>_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3676	3831	
==>_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7966	8109	
==>{
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15880	15980	
==>, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely us <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20113	20213	
==>, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely us <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38669	38763	
==>o World!".  All
occurances of any given variable name will be replaced, non-recursively,
and an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38669	38763	
==>o World!".  All
occurances of any given variable name will be replaced, non-recursively,
and an <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	545	703	
==>$dir;
    my $tmpl = {
        dir     => { required => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = chec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14909	15003	
==>d1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
follo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14909	15003	
==>d1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
follo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2987	3113	
==>ept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2987	3113	
==>ept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5321	5419	
==>It returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5321	5419	
==>It returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5294	5394	
==>stance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5294	5394	
==>stance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5294	5394	
==>stance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	661	769	
==>block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	661	769	
==>block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	279	368	
==>term:\\b", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", "term: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22974	23094	
==>lf[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp <==
4	/Users/nnunley/pugs/util/config_h.pl	1195	1298	
==>line "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24047	24142	
==>ing this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24047	24142	
==>ing this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11836	11932	
==>thus created can be recognized, and regexp*s
  created with the normal perl engine can continue w <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2263	2378	
==>"splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2263	2378	
==>"splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	891	981	
==>f events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::D <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	891	981	
==>f events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2092	2231	
==>nds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2092	2231	
==>nds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2092	2231	
==>nds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5837	5947	
==>( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $var = emit(get_da <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10306	10446	
==>.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) | <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10306	10446	
==>.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) | <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11789	11890	
==>= map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11783	11884	
==>= map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xd <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	896	992	
==>has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	896	992	
==>has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8518	8641	
==>d called without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1834	1937	
==>ed by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1834	1937	
==>ed by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1834	1937	
==>ed by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15780	15895	
==>o;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module pro <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15780	15895	
==>o;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module pro <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19123	19219	
==>e basis of the relational
data model proposed by Edgar. F. Codd, upon which anything in the world <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22773	22869	
==>e basis of the relational data model proposed
by Edgar. F. Codd, upon which anything in the world <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	171	276	
==>r::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.error_output' ],
    submethod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7091	7183	
==>:VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7091	7183	
==>:VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7091	7183	
==>:VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9174	9272	
==>ntersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empt <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9174	9272	
==>ntersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empt <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3319	3412	
==>ls> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3319	3412	
==>ls> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	497	621	
==>s is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	497	621	
==>s is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	497	621	
==>s is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => ble <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5911	6017	
==>,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Gram <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24520	24630	
==><')'>
}

# A.7 Regular Expressions

rule Pattern {  # see 15.10.1
      <Disjunction>
}
rule Disjunction {  # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1188	1290	
==>ructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1188	1290	
==>ructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1188	1290	
==>ructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - n <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	764	863	
==>returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<R <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	764	863	
==>returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<R <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16045	16136	
==>::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16045	16136	
==>::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22650	22750	
==>inator_here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14111	14248	
==>r {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4192	4317	
==>r {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4192	4317	
==>r {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4192	4317	
==>r {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13650	13747	
==>x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13650	13747	
==>x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13650	13747	
==>x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2188	2284	
==>$output ;# = svn("up") or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_har <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	276	385	
==>my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2766	2862	
==>r(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2766	2862	
==>r(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2766	2862	
==>r(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6174	6272	
==>ofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8242	8340	
==>ofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6174	6272	
==>ofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8242	8340	
==>ofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13474	13590	
==>) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16951	17067	
==>) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16313	16429	
==>) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	183	284	
==>::Constants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9231	9338	
==>ey =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9231	9338	
==>ey =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9231	9338	
==>ey =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.valu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7869	7964	
==>er_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modify(M,R)) --> ":", !, p5_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7527	7630	
==>MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1755	1858	
==>MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9161	9264	
==>MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1973	2076	
==>MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chr <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12752	12876	
==>ovides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $self->execu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	406	517	
==>ss;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	406	517	
==>ss;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	406	517	
==>ss;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	322	423	
==>mpression_wanted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3939	4037	
==>RIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3939	4037	
==>RIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5463	5561	
==>RIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1273	1381	
==>ust be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters enc <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1273	1381	
==>ust be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters enc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16372	16467	
==>ypes simultaneously, and that allows any end users to add
support for new languages easily and w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16372	16467	
==>ypes simultaneously, and that allows any end users to add
support for new languages easily and w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10922	11051	
==>=> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10922	11051	
==>=> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10922	11051	
==>=> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3285	3400	
==>$_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/non/chain/list
  (is parsed <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	679	798	
==>l 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37401	37494	
==>tion>

This multi-method is the N-ary version of the aforementioned binary join()
operator, an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41950	42043	
==>tion>

This multi-method is the N-ary version of the aforementioned binary join()
operator, an <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	36	128	
==>l6::Core::Num;
use Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	862	1050	
==>$node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	862	1050	
==>$node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8716	8820	
==>less ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cooki <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8716	8820	
==>less ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cooki <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9430	9569	
==>); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9430	9569	
==>); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9430	9569	
==>); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + ra <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10591	10687	
==>1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10591	10687	
==>1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10012	10104	
==>ontaining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10012	10104	
==>ontaining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6174	6286	
==>" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level operators

  # D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5963	6071	
==>" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level operators
  # D <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6554	6661	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6554	6661	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1882	2023	
==>nce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1882	2023	
==>nce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1882	2023	
==>nce (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14573	14695	
==>ainer();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9518	9639	
==>ass;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9518	9639	
==>ass;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9518	9639	
==>ass;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_p <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10961	11090	
==>$n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10961	11090	
==>$n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8668	8789	
==>SES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8668	8789	
==>SES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4893	5005	
==>if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4893	5005	
==>if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5483	5595	
==>if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Dat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7724	7825	
==>ypeSafe::Annotation->new(
				type => [ ( map { $_->accepts_type } @params ) => $last->type, ],
				st <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3983	4089	
==>bols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3983	4089	
==>bols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1043	1142	
==>ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1043	1142	
==>ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1043	1142	
==>ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is pr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29841	29932	
==>he print summary code.

Implement Straps callbacks.  (experimentally implemented)

Straps->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	81	182	
==>nd 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	81	182	
==>nd 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	81	182	
==>nd 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33676	33775	
==>d

=head2 space

Family: space

Types: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3646	3752	
==>ND_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3646	3752	
==>ND_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3646	3752	
==>ND_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4718	4807	
==>nt {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13898	14019	
==>esult;
}

*run_perl = \&runperl; # Nice alias.

sub DIE {
    print STDERR "# @_\n";
    exit 1;
}

# A somewhat safer ver <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11084	11180	
==>ncatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joini <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11084	11180	
==>ncatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joini <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13331	13420	
==>>,
		<span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<span class="tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35608	35738	
==>set );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positiv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35608	35738	
==>set );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positiv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35608	35738	
==>set );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positiv <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	8	95	
==>in/perl

package Blondie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Red <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29943	30087	
==>lf  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendant') # C3 is <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8356	8466	
==>$force);
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4025	4119	
==>eturncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4025	4119	
==>eturncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4025	4119	
==>eturncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10272	10417	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10272	10417	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10272	10417	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	915	1037	
==>= args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	915	1037	
==>= args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	915	1037	
==>= args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1280	1382	
==>S

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10148	10274	
==>are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10148	10274	
==>are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10148	10274	
==>are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call privat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2644	2765	
==>ub visual {
    my $self = shift;
    $self->{neg} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp::Parser::space;
  p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9042	9207	
==>$length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9042	9207	
==>$length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9042	9207	
==>$length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	370	493	
==>::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    my $self = shift;
    my $node = <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	541	678	
==>sh($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $d <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	541	678	
==>sh($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3033	3122	
==>($self: Set $other) returns Set {
    $self.difference($other).union($other.difference($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3033	3122	
==>($self: Set $other) returns Set {
    $self.difference($other).union($other.difference($se <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3733	3911	
==>( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3733	3911	
==>( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3566	3662	
==>.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3566	3662	
==>.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7473	7593	
==>0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7473	7593	
==>0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13289	13455	
==>$idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3458	3604	
==>$idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3458	3604	
==>$idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3458	3604	
==>$idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3693	3880	
==>- state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3579	3760	
==>- state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{stat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23206	23303	
==>..")>

Sends a command to the server. The command is not modified by this module,
aside from appen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23206	23303	
==>..")>

Sends a command to the server. The command is not modified by this module,
aside from appen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16180	16283	
==>om_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16180	16283	
==>om_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16180	16283	
==>om_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SU <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12059	12158	
==><$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9180	9279	
==><$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12059	12158	
==><$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9180	9279	
==><$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1859	1965	
==>.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1627	1733	
==>.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1859	1965	
==>.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1627	1733	
==>.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39551	39645	
==>R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Darr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39551	39645	
==>R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@Darr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24275	24368	
==>R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Darr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24275	24368	
==>R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@Darr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14206	14419	
==>elf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14206	14419	
==>elf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14206	14419	
==>elf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	181	274	
==>ethod subtract($self: Duration $duration) returns Duration {
    $self.new($self.length - $dur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9830	9942	
==>ort... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connecte <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9830	9942	
==>ort... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connecte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3122	3237	
==>or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3122	3237	
==>or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3122	3237	
==>or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @clas <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	146	242	
==>'confess';
use Scalar::Util 'blessed', 'looks_like_number';

use base 'type';

our $TRUE  = bless <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5160	5293	
==>operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart => <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5160	5293	
==>operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5444	5554	
==>s been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5444	5554	
==>s been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17297	17395	
==>he following benefits:

=over

=item *

Ability to mix many source filterish modules in a much more <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17297	17395	
==>he following benefits:

=over

=item *

Ability to mix many source filterish modules in a much more <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9407	9521	
==>lems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9407	9521	
==>lems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9407	9521	
==>lems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	886	1012	
==>Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	886	1012	
==>Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	886	1012	
==>Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new P <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1094	1200	
==>e F<libpcre> code bundled with this library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICEN <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16783	16903	
==>ush(@{$X::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4858	4963	
==>ess_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4858	4963	
==>ess_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4858	4963	
==>ess_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $metho <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	266	364	
==>pression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate (Str $ex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2807	2904	
==>g_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        ms <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2807	2904	
==>g_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        ms <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31185	31276	
==>ames in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooF <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31185	31276	
==>ames in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooF <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3159	3328	
==>0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3058	3222	
==>0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd m <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4320	4424	
==>evious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next } <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4320	4424	
==>evious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2282	2395	
==>tack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6487	6597	
==>perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6487	6597	
==>perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6487	6597	
==>perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2615	2751	
==>return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2615	2751	
==>return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2615	2751	
==>return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < ke <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6122	6212	
==>$self->find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)->val;
}

sub reduce_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3240	3346	
==>$sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3228	3334	
==>$sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10248	10339	
==>lti method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10248	10339	
==>lti method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	798	913	
==>ippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the AP <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	757	867	
==>ippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the AP <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	510	614	
==>ule::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1836	1937	
==>nfix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1836	1937	
==>nfix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1836	1937	
==>nfix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	786	907	
==>ement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	786	907	
==>ement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16279	16428	
==>p( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16279	16428	
==>p( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16279	16428	
==>p( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3913	4021	
==>file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 eq $self->{dispatch};

        $file = "$self->{path <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5040	5175	
==>thers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5040	5175	
==>thers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5040	5175	
==>thers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2097	2195	
==>l($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2097	2195	
==>l($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2514	2610	
==>esents a client's request.  It also contains extra
information passed on by the HTTP server, usef <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2514	2610	
==>esents a client's request.  It also contains extra
information passed on by the HTTP server, usef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7076	7182	
==>eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7088	7194	
==>eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" un <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	438	536	
==>'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($sel <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	438	536	
==>'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($sel <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1410	1515	
==>has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1410	1515	
==>has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19774	19869	
==>setta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it lik <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19774	19869	
==>setta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it lik <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6319	6489	
==>e a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6319	6489	
==>e a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6319	6489	
==>e a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9456	9560	
==>n't close $file. $!\n";

    my $taint = ( $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5234	5346	
==>String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5234	5346	
==>String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6205	6299	
==>nsufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_childre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6205	6299	
==>nsufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_childre <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5287	5418	
==>ild_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5287	5418	
==>ild_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2255	2367	
==>t), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2255	2367	
==>t), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1040	1172	
==>',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3897	4001	
==>);
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3897	4001	
==>);
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3897	4001	
==>);
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6995	7116	
==>wn.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modifier :$k is not (yet?) suppor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1243	1349	
==>=> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1243	1349	
==>=> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1243	1349	
==>=> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4289	4424	
==>s) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4289	4424	
==>s) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4289	4424	
==>s) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6721	6827	
==>e/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base qw/node/;

pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28078	28273	
==>( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28078	28273	
==>( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28078	28273	
==>( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10955	11055	
==>}(do{my \$__f".
		 "= $code_val; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11587	11708	
==>@h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11587	11708	
==>@h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3020	3121	
==>, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3078	3179	
==>, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5496	5609	
==>elf, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1760	1852	
==>PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1760	1852	
==>PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1760	1852	
==>PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1043	1160	
==>one',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1043	1160	
==>one',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18870	18976	
==>ckage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18870	18976	
==>ckage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	665	774	
==>ule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3736	3845	
==>ule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	665	774	
==>ule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3736	3845	
==>ule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16934	17061	
==>: $status\n";
    }

    # Use the first line of the program as a name if none was given
    unless( $name ) {
        ($first_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10963	11063	
==>fined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-worki <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10963	11063	
==>fined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-worki <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10963	11063	
==>fined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-worki <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6791	6917	
==>match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6984	7110	
==>match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21778	21879	
==>nal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26330	26431	
==>nal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1599	1780	
==>' { 
                    return parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Exp <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15838	15947	
==>me levels as the input, unless specified otherwise.

=over

=item chop

 multi Str::chop (  Str  $string is rw <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11323	11416	
==>Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=ite <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11323	11416	
==>Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2617	2737	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2617	2737	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2617	2737	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1177	1271	
==>V = sort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_in <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13968	14059	
==>_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_wa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13968	14059	
==>_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_wa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	73	161	
==>e, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	73	161	
==>e, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5436	5567	
==>ks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6704	6835	
==>ks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5436	5567	
==>ks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6692	6823	
==>ks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10059	10199	
==>ata) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        } <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10059	10199	
==>ata) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5911	6034	
==>ifierName> <IdentifierPart>
}
rule IdentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> < <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2810	2902	
==>ckend::Perl::Builtins - table of prelude replacement relevant to the perl backend

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	676	800	
==>$type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	676	800	
==>$type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22353	22466	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22632	22745	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5522	5620	
==>ile ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5522	5620	
==>ile ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22923	23035	
==>comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19635	19726	
==>,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19635	19726	
==>,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19635	19726	
==>,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10093	10208	
==>DERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10093	10208	
==>DERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ / <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10093	10208	
==>DERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1391	1487	
==>ead1 DESCRIPTION

This module provides an implementation for Perl 6 regexes that use the "Perl5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2703	2856	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2703	2856	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2703	2856	
==>@ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9904	10008	
==>rule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8654	8774	
==>(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8654	8774	
==>(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901 <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	184	298	
==>();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	764	862	
==>- auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' containe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	764	862	
==>- auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' containe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	764	862	
==>- auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' containe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	676	796	
==>js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	676	796	
==>js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	676	796	
==>js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	122	217	
==>f lrep only compiles Grammar sections
# The full version is on misc/pX/Common/lrep*
# ********** <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12659	12785	
==>o the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12659	12785	
==>o the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	470	590	
==>= "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	567	687	
==>= "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) e <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	328	447	
==>eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an install.
        $args[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12907	13020	
==>iX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12907	13020	
==>iX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12907	13020	
==>iX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Ev <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2659	2789	
==>|= {} );
    %$provides = (%$provides, @_) if @_;
    return $provides;
}

sub auto_provides {
    my $self = shift;
    return $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4921	5015	
==>aid to the associativity of the original operator and auto-metaed versions
# of user-defined op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4921	5015	
==>aid to the associativity of the original operator and auto-metaed versions
# of user-defined op <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4921	5015	
==>aid to the associativity of the original operator and auto-metaed versions
# of user-defined op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2953	3063	
==>. ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2953	3063	
==>. ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2953	3063	
==>. ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3601	3697	
==>head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19941	20065	
==>Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16362	16486	
==>Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S- <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6996	7110	
==>!= NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(han <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2423	2521	
==>tr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2423	2521	
==>tr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2423	2521	
==>tr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(St <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	214	310	
==>::Rule::Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1568	1685	
==>($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1568	1685	
==>($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1568	1685	
==>($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	902	1017	
==>], '$<ident>' );
    return "package $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' ) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16380	16487	
==>ble"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6093	6181	
==>uilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6093	6181	
==>uilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8290	8378	
==>uilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3736	3854	
==>$module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3736	3854	
==>$module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If w <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3679	3781	
==>decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3679	3781	
==>decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1909	2037	
==>.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1909	2037	
==>.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4040	4141	
==>l(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1] <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4040	4141	
==>l(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1] <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1538	1673	
==>ub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1538	1673	
==>ub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5852	5986	
==>ub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5852	5986	
==>ub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14094	14198	
==>es = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17571	17675	
==>es = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	515	612	
==>b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	515	612	
==>b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1543	1681	
==>.= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	924	1016	
==>ey = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	924	1016	
==>ey = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	924	1016	
==>ey = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7466	7639	
==>me
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_na <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7466	7639	
==>me
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_na <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20549	20651	
==>) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1267	1359	
==>mitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1267	1359	
==>mitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1267	1359	
==>mitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9632	9742	
==>le subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9632	9742	
==>le subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14155	14249	
==>which to escape). The default set
of characters to encode are control chars, high-bit chars, an <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14155	14249	
==>which to escape). The default set
of characters to encode are control chars, high-bit chars, an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34420	34511	
==>::AndBranch::and> object it
creates!

A method call for a F<Regexp::MyRx::THING> object will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14696	14785	
==>..};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14696	14785	
==>..};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14696	14785	
==>..};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveComm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10000	10169	
==>\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require " <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10000	10169	
==>\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5867	6007	
==>e = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5867	6007	
==>e = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12461	12572	
==>$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @li <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3011	3117	
==>$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @li <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1772	1868	
==>resting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1772	1868	
==>resting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16748	16933	
==>%opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16748	16933	
==>%opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16748	16933	
==>%opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get t <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1297	1420	
==>lp          Show this help

  Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    svn co $_P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9607	9710	
==>at use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9607	9710	
==>at use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2539	2660	
==>($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2539	2660	
==>($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2539	2660	
==>($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29351	29450	
==>fter> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types don't me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6611	6737	
==>$end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6611	6737	
==>$end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6611	6737	
==>$end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3631	3740	
==>l magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3631	3740	
==>l magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3631	3740	
==>l magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1279	1371	
==>ENUM, 'Quantifier follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \% <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	64	164	
==>ntermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# neede <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	64	164	
==>ntermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# neede <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	64	164	
==>ntermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# neede <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	64	164	
==>ntermediate files in `src`
# to the blib6 archlib, so that it will all get installed. This is
# neede <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31661	31759	
==>is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	55	145	
==>s) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	55	145	
==>s) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	55	145	
==>s) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1738	1862	
==>> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1749	1873	
==>> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            rule <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8244	8347	
==>whether this is working because the language
    # spec says it is supposed to, or whether is due a fluk <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8244	8347	
==>whether this is working because the language
    # spec says it is supposed to, or whether is due a fluk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1941	2051	
==>=~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1941	2051	
==>=~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1941	2051	
==>=~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26889	26994	
==>\\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1 <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3791	3899	
==>n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	697	793	
==>ss('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	697	793	
==>ss('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	697	793	
==>ss('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fet <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2493	2588	
==>ct of this class represents a client's request.  It also contains extra
information passed on by <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2493	2588	
==>ct of this class represents a client's request.  It also contains extra
information passed on by <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19920	20011	
==>ot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19920	20011	
==>ot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5499	5603	
==>d $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5499	5603	
==>d $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5499	5603	
==>d $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27998	28101	
==>l new @:MRO)) is_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5629	5739	
==>turns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5629	5739	
==>turns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	540	637	
==>y($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	540	637	
==>y($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1085	1183	
==>[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1085	1183	
==>[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1085	1183	
==>[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8289	8422	
==>x" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1666	1774	
==>js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1666	1774	
==>js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1666	1774	
==>js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29040	29135	
==>o old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33592	33687	
==>o old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32729	32824	
==>o old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11132	11239	
==>'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11132	11239	
==>'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @v <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24926	25021	
==>nt of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29478	29573	
==>nt of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12940	13192	
==>rams] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12940	13192	
==>rams] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12940	13192	
==>rams] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16436	16531	
==>e number of chars removed.

Note: Most users should consider setting their I/O handles to autoch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24378	24581	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25641	25844	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24657	24860	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25920	26123	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10738	10864	
==>);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10738	10864	
==>);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".(" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10738	10864	
==>);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".(" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	233	335	
==>S

    # moot

=head1 DESCRIPTION

Emitters take a compiled program and serialize them into some format <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21138	21250	
==>mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3359	3451	
==>class represents a single test within the
Test::Builder framework. The class itself is actual <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3359	3451	
==>class represents a single test within the
Test::Builder framework. The class itself is actual <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5556	5648	
==>class represents a single test within the
Test::Builder framework. The class itself is actual <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12157	12255	
==>ndently, use the root()
method to get it.  From there, you're on your own.  You'll probably
want to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35475	35562	
==>iases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40025	40112	
==>iases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39585	39672	
==>iases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Rel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4639	4751	
==>, param => $_[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4640	4739	
==>Res; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4640	4739	
==>Res; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4640	4739	
==>Res; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	830	931	
==>ediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1036	1137	
==>ediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing cod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17448	17543	
==>les of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17448	17543	
==>les of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my d <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15835	15947	
==>l $_;
  
  open my $ldd, "-|", "ldd", $bin or die "Couldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1235	1342	
==>_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1235	1342	
==>_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1235	1342	
==>_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - objec <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	756	858	
==>(shift)->to_native() . '');
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	799	935	
==>tion gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass the string index around, 

# XXX   instead of copyi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1168	1299	
==>tion gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	767	898	
==>tion gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1168	1299	
==>tion gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string index around, 
# XXX   instead of copyi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4572	4673	
==>: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operat <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4572	4673	
==>: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operat <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4741	4841	
==>getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people wh <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4741	4841	
==>getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people wh <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10972	11074	
==>versions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17560	17654	
==>erl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17560	17654	
==>erl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17560	17654	
==>erl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2545	2655	
==>headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (St <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2545	2655	
==>headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (St <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26025	26120	
==>e
human-readable version.  Each variable name is a machine-readable short
string; the allowed va <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26025	26120	
==>e
human-readable version.  Each variable name is a machine-readable short
string; the allowed va <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	245	344	
==>e definition clauses would be in one file,
   and the defining macros, for each of various class hie <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	245	344	
==>e definition clauses would be in one file,
   and the defining macros, for each of various class hie <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2957	3053	
==>the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=ite <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2957	3053	
==>the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1365	1466	
==>supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1365	1466	
==>supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1365	1466	
==>supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8115	8209	
==>$self->reduce($_[0]) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rseq->val <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7119	7217	
==>rts HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE AL <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7119	7217	
==>rts HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE AL <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10044	10136	
==>$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 B <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10044	10136	
==>$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1559	1683	
==>');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1559	1683	
==>');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1559	1683	
==>');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->super <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6345	6445	
==>ne } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6345	6445	
==>ne } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6345	6445	
==>ne } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  } <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1011	1101	
==>head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>autrijus@autrijus.orgE<gt>.

The F<libp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23537	23628	
==><$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23537	23628	
==><$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	51	138	
==>se', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
us <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	182	269	
==>se', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
us <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18200	18346	
==>'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(lis <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41465	41611	
==>'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(lis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15350	15443	
==>it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpora <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15350	15443	
==>it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpora <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4052	4203	
==>7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5373	5524	
==>7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4052	4203	
==>7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5361	5512	
==>7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3081	3200	
==>ture> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3081	3200	
==>ture> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2254	2372	
==>n '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2254	2372	
==>n '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8095	8196	
==>y changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8095	8196	
==>y changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has join <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8387	8486	
==>y changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8387	8486	
==>y changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has join <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4112	4222	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3239	3349	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4112	4222	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3239	3349	
==>rsection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2458	2564	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2458	2564	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2458	2564	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class- <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1410	1512	
==>base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec->catfile($path, "lib");
    $se <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3702	3806	
==>md;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3702	3806	
==>md;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	742	840	
==>md;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10664	10757	
==>her Object singleton/class method called by Bar');

is($Bar->singleton_test_on_object(), 
  '& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	864	1028	
==>lessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	864	1028	
==>lessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	864	1028	
==>lessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2042	2123	
==>ot_alias { <subrule>|<capturing_group>|<noncapturing_group>|<quantified_construct> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19136	19233	
==>s *part of the program*, and not the program's users' own data; only
someone already involved in m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19136	19233	
==>s *part of the program*, and not the program's users' own data; only
someone already involved in m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	246	341	
==>NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	246	341	
==>NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13777	13958	
==>) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13777	13958	
==>) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3365	3461	
==>initialization vector should be hashed with the 
key, not merely appended to it; appending can cr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3365	3461	
==>initialization vector should be hashed with the 
key, not merely appended to it; appending can cr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	48	171	
==>Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2810	2919	
==>i($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2810	2919	
==>i($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respo <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	63	158	
==>dispatch table... accessors should be in here
has Method %.dispatch;

# private accessors, metho <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6866	7018	
==>tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11421	11573	
==>tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12219	12371	
==>tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12946	13098	
==>tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14770	14920	
==>t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14770	14920	
==>t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14770	14920	
==>t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result) <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	752	845	
==>ref="#" onclick="openNewWindows(); return false;">open each link in a
new window</a>.  (Useful <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3356	3522	
==>nt ISA_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11991	12092	
==>cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11991	12092	
==>cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11991	12092	
==>cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>st <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6128	6244	
==>C_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq/${ghc_dir}${slash}bin${sl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11510	11616	
==>:p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11510	11616	
==>:p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11510	11616	
==>:p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1813	1910	
==>egexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  d <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	809	906	
==>egexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1667	1760	
==>r 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1667	1760	
==>r 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2686	2802	
==>from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2686	2802	
==>from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2686	2802	
==>from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_fr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43384	43478	
==>tails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relation> apply to this file too.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1057	1165	
==>,
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1057	1165	
==>,
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1057	1165	
==>,
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2646	2748	
==>t() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  mo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2646	2748	
==>t() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  mo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1662	1761	
==>sc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1720	1819	
==>sc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7015	7218	
==>etscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7015	7218	
==>etscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7579	7693	
==>et;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7579	7693	
==>et;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17500	17642	
==>d->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17500	17642	
==>d->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17500	17642	
==>d->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26171	26268	
==>SCAN		0x00040	/* Check-string always at start. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT_C <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1310	1414	
==>) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_sup <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1310	1414	
==>) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_sup <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7117	7216	
==>alize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7117	7216	
==>alize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6988	7094	
==>ed_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6988	7094	
==>ed_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_co <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11488	11587	
==>4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
fig <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11488	11587	
==>4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
fig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9005	9137	
==>/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ext <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	739	871	
==>/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ext <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9005	9137	
==>/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ext <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9005	9137	
==>/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $ext <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	0	107	
==>use strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use C <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	0	107	
==>use strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use C <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14359	14455	
==>attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of C <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14359	14455	
==>attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1257	1402	
==>compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1257	1402	
==>compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6128	6235	
==>and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6128	6235	
==>and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23865	23964	
==>G is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22638	22737	
==>G is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23865	23964	
==>G is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22638	22737	
==>G is that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1969	2071	
==>p ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_cont <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1969	2071	
==>p ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_cont <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1969	2071	
==>p ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4605	4784	
==>nt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4605	4784	
==>nt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4605	4784	
==>nt == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn " <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	897	1015	
==>ub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $string <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1863	1976	
==>/; <IN> };
    close IN;

    strip_comments($program);
    $program =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	180	275	
==>entually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	180	275	
==>entually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	180	275	
==>entually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4025	4190	
==>, exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5738	5848	
==>st of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5738	5848	
==>st of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5738	5848	
==>st of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8063	8245	
==>lar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8063	8245	
==>lar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8063	8245	
==>lar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	684	787	
==>le\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  lo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8076	8222	
==>revious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8076	8222	
==>revious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14005	14105	
==>unction to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14063	14163	
==>unction to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit i <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2640	2737	
==>at
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fra <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2640	2737	
==>at
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fra <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4891	4983	
==>LF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $documen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4891	4983	
==>LF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $documen <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16013	16115	
==>e nuanced treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarrante <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	618	718	
==>pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	618	718	
==>pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	618	718	
==>pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3806	3943	
==>perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> x <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3806	3943	
==>perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> x <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38664	38756	
==>"Hello World!".  All
occurances of any given variable name will be replaced, non-recursively, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38664	38756	
==>"Hello World!".  All
occurances of any given variable name will be replaced, non-recursively, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	653	745	
==>gs the
language must provide, including stuff for what cannot have a reference
implementation <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1441	1571	
==>$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1429	1559	
==>$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	151	251	
==>e after bootstrap).  Or spec code which doesnt actually
# run yet.  The immediate goal is simply to p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38892	38995	
==>ere is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38892	38995	
==>ere is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38892	38995	
==>ere is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5467	5568	
==>desInfo::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	500	616	
==>::new;
    $obj->mk_accessors( keys %$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3133	3243	
==>ex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3133	3243	
==>ex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10592	10688	
==>vious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrenc <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10592	10688	
==>vious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20569	20664	
==>compilers have finished, the digest lines will
be expanded again.

Every bit of the default proc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20569	20664	
==>compilers have finished, the digest lines will
be expanded again.

Every bit of the default proc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	160	253	
==>hem.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	160	253	
==>hem.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5909	6036	
==>.= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5909	6036	
==>.= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5909	6036	
==>.= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8800	8907	
==>_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8858	8965	
==>_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	198	293	
==>_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	256	351	
==>_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6505	6604	
==>ine = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6505	6604	
==>ine = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6505	6604	
==>ine = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getE <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2502	2594	
==>| <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rule>
  | <char <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9559	9705	
==>p if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2704	2810	
==>tovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2704	2810	
==>tovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2704	2810	
==>tovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1371	1573	
==>t line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1371	1573	
==>t line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3776	3898	
==>'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3969	4091	
==>'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4503	4645	
==>authorative for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpF <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	593	724	
==>!$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	593	724	
==>!$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	593	724	
==>!$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4377	4501	
==>nd \W
         rule rxassertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # define a <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12961	13080	
==><tmpl_var name=link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="detai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4369	4478	
==>sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4369	4478	
==>sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4369	4478	
==>sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2530	2665	
==>other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>',
        assoc => 'left',
        precedence => 'equal',
        o <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2851	2950	
==>returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2851	2950	
==>returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17470	17562	
==>`previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17470	17562	
==>`previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12182	12297	
==>defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12182	12297	
==>defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12182	12297	
==>defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23814	23897	
==>f(0,Replace,[X|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H| <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2309	2407	
==>bs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2309	2407	
==>bs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2309	2407	
==>bs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scal <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1548	1637	
==>.\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5304	5412	
==>%users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5304	5412	
==>%users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3198	3300	
==>re ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3198	3300	
==>re ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1717	1818	
==>f->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1717	1818	
==>f->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1717	1818	
==>f->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but J <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12038	12155	
==>r was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12038	12155	
==>r was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20524	20622	
==>field names with ':' allow you to force a
specific spelling.  For example if you really want a head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20524	20622	
==>field names with ':' allow you to force a
specific spelling.  For example if you really want a head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7610	7744	
==>f elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7610	7744	
==>f elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7610	7744	
==>f elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3104	3217	
==>300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Tes <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20371	20485	
==>--> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	846	949	
==>.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	846	949	
==>.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	846	949	
==>.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36547	36772	
==>symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	631	720	
==>autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	631	720	
==>autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	631	720	
==>autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4920	5037	
==>b authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	214	330	
==>] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	214	330	
==>] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	214	330	
==>] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2762	2957	
==>=> 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	575	669	
==>JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	575	669	
==>JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	575	669	
==>JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20536	20639	
==>],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	276	369	
==>s}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	276	369	
==>s}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	276	369	
==>s}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9623	9749	
==>= \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source fi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5964	6090	
==>= \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6813	6939	
==>= \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32192	32292	
==>ve no ending node, and most don't need to to do
anything to the walking stack.

When an object does h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	297	406	
==>S_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	297	406	
==>S_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	297	406	
==>S_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $j <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25547	25645	
==>ator::arrow->new(
		type::operator::pair->new(
			type::variable::free->new,
			type::variable::fre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15334	15451	
==>$_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitia <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15334	15451	
==>$_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitia <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15334	15451	
==>$_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitia <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5170	5270	
==>nst_pkg;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2829	2933	
==>extToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_pars <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2829	2933	
==>extToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_pars <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2829	2933	
==>extToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_pars <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1248	1349	
==>>isa('opaque'))
        || confess "You can only compare opaque types with other opaque types (not $ri <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3990	4122	
==>die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3990	4122	
==>die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2529	2649	
==>$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2446	2562	
==>$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4842	4947	
==>r_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4842	4947	
==>r_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5432	5537	
==>r_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1160	1257	
==>hod dispatch (Str $event, *@args) {
    die 'Please override &dispatch in your subclass of POE::Se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2369	2487	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7463	7581	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2369	2487	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7463	7581	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4650	4750	
==>\%hash ) or error( Params::Check->last_error ), return;

    for my $inst ( @{ $self->available } ) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14235	14330	
==>_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14235	14330	
==>_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14235	14330	
==>_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	461	604	
==>ar_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	461	604	
==>ar_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	461	604	
==>ar_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8053	8199	
==>}

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8053	8199	
==>}

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1856	1974	
==>rse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1856	1974	
==>rse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15953	16195	
==>e' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15953	16195	
==>e' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15953	16195	
==>e' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $arr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	852	950	
==>E

Blondie::Reducer - generic reducing base class for fmapping nodes.

=head1 SYNOPSIS

    package <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16137	16295	
==>."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16131	16289	
==>."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14718	14833	
==>' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14718	14833	
==>' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Local <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2839	2971	
==>,
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23307	23403	
==>I SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23307	23403	
==>I SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23307	23403	
==>I SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	821	930	
==>{
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4520	4607	
==>->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4520	4607	
==>->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4520	4607	
==>->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1332	1473	
==>ule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1332	1473	
==>ule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5614	5717	
==>.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5614	5717	
==>.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($se <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1725	1826	
==>odules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37132	37246	
==>object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12759	12852	
==>Item,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12759	12852	
==>Item,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12759	12852	
==>Item,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircu <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	177	291	
==>when /grrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_dazwischen() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11110	11206	
==>es could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11110	11206	
==>es could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11110	11206	
==>es could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	248	335	
==>ingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s Lieblingsdrink ist %lieblings{'Drink'}" <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52821	52965	
==>->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('%:namespace' => 'hash'));    
    $meta->add_attr(symbol->new('$:version'   => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4286	4376	
==>ockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4286	4376	
==>ockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4286	4376	
==>ockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUB <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2546	2682	
==>ields = join ",\n    ", map {
        "config_$_";
    } sort keys %$config;
    $template =~ s/#all_fields#/$all_fields/;

    my $all_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15576	15709	
==>:Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15576	15709	
==>:Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15576	15709	
==>:Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4815	4908	
==>ad1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4815	4908	
==>ad1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7012	7105	
==>ad1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1417	1508	
==>E__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __PAC <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1587	1701	
==>RSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4139	4241	
==>urn $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return ge <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4988	5090	
==>urn $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return ge <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	550	738	
==>te %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'p <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2061	2213	
==>).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2061	2213	
==>).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32087	32193	
==>atcher_iterator(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29011	29105	
==>ued
attributes which wrap zero old attributes (they are effectively just an
extension of the re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33563	33657	
==>ued
attributes which wrap zero old attributes (they are effectively just an
extension of the re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32700	32794	
==>ued
attributes which wrap zero old attributes (they are effectively just an
extension of the re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	288	371	
==>pile(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler::Rule->compile(q(\w+))->code <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5750	5848	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4880	4978	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5750	5848	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4880	4978	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2413	2525	
==>rl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2413	2525	
==>rl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1634	1738	
==>rl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3495	3599	
==>rl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2455	2555	
==>nknown option: $what" unless exists $Conf->{$what};
    my $value = $Conf->{$what};
    return $value <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	41	186	
==>returns Str is export {
        my @default = (
            "boring",
            "missing examples",
        );
      pick @arr || @default
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12931	13049	
==>efined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invoc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12931	13049	
==>efined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invoc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12931	13049	
==>efined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invoc <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10288	10381	
==>METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the nu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8181	8274	
==>METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the nu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10288	10381	
==>METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the nu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8181	8274	
==>METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the nu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18843	18940	
==>asn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17886	17983	
==>asn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18843	18940	
==>asn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17886	17983	
==>asn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1384	1521	
==>s = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1384	1521	
==>s = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	469	574	
==>>{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	469	574	
==>>{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	376	517	
==>:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	531	643	
==>OS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	531	643	
==>OS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	531	643	
==>OS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7869	7977	
==>o-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7869	7977	
==>o-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7869	7977	
==>o-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27868	27975	
==>_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2789	2913	
==>_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2789	2913	
==>_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2789	2913	
==>_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11057	11168	
==>iltered_INC;
}

=head2 C<_filtered_INC>

  my @filtered_inc = $self->_filtered_INC;

Shortens C<@INC> by removin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1660	1777	
==>"Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1660	1777	
==>"Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1660	1777	
==>"Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11225	11323	
==>ing the qr() method of each node in the tree,
which may be different from the visual() method; spec <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3176	3305	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6301	6430	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3176	3305	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6301	6430	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	427	575	
==>me::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19015	19135	
==>&Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use war <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19015	19135	
==>&Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use war <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19015	19135	
==>&Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use war <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2067	2182	
==>__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2067	2182	
==>__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1303	1410	
==>__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3164	3271	
==>__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7798	7902	
==>is_deeply(
    [ sort $FooBar->get_method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36043	36138	
==>ocant and <$other> headings. 
The body of the new relation is the result of first pairwise-match <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40593	40687	
==>ocant and <$other> headings.
The body of the new relation is the result of first pairwise-match <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40207	40301	
==>ocant and <$other> headings.
The body of the new relation is the result of first pairwise-match <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5696	5803	
==>rict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29889	29981	
==>ped, and it supports having old tuple-valued attributes which
have zero attributes (they just <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34441	34533	
==>ped, and it supports having old tuple-valued attributes which
have zero attributes (they just <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33605	33697	
==>ped, and it supports having old tuple-valued attributes which
have zero attributes (they just <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	483	591	
==>L::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	483	591	
==>L::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	483	591	
==>L::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2247	2420	
==>null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1607	1747	
==>>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PEx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1607	1747	
==>>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PEx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1607	1747	
==>>{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PEx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2232	2330	
==>air|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2232	2330	
==>air|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2232	2330	
==>air|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23706	23799	
==>M
storage implementation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relatio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	679	781	
==>rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3750	3852	
==>rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	679	781	
==>rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3750	3852	
==>rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	558	666	
==>f->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self = shift;
    return $self->{data} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5972	6065	
==>nless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5972	6065	
==>nless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5972	6065	
==>nless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::do <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5153	5289	
==>my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5354	5484	
==>my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5354	5484	
==>my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15011	15115	
==>, $ml) = _mk_leader($test_file, $width);

Generates the 't/foo........' leader for the given C<$test_file <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	868	974	
==>imization - pass the string index around, 

# XXX   instead of copying the whole string to $tail every time <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1233	1338	
==>imization - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	832	937	
==>imization - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1233	1338	
==>imization - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2167	2266	
==>=> <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITION <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6236	6337	
==>t'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
nod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6236	6337	
==>t'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
nod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21140	21234	
==>ur program would use
associated keys internally.

It is strongly suggested (but not required) t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21140	21234	
==>ur program would use
associated keys internally.

It is strongly suggested (but not required) t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	659	779	
==>e( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name} . '>" ,} }' );
}


BEGIN { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	5	101	
==>IL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	5	101	
==>IL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	5	101	
==>IL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STOR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15371	15485	
==>w);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9568	9682	
==>w);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2736	2849	
==>$msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2736	2849	
==>$msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper a <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8120	8251	
==>.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8120	8251	
==>.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17609	17706	
==>QL.

=head2 How It Works

Modern programs or database systems often refer to an error condition by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17609	17706	
==>QL.

=head2 How It Works

Modern programs or database systems often refer to an error condition by <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10732	10847	
==>e");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10732	10847	
==>e");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connect <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10754	10845	
==>st_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10754	10845	
==>st_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns St <==
4	/Users/nnunley/pugs/util/addauthors.pl	14	119	
==>l
use warnings;
use strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5862	5960	
==>(Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5862	5960	
==>(Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8184	8274	
==>Digits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart>?
}
rule DecimalInteger <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1236	1348	
==>l = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1441	1553	
==>l = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1502	1614	
==>l = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instanc <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1822	1924	
==>e the prefix on extension modules built from top level.
    delete $args{prefix}
      unless Cwd::abs_ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1015	1136	
==>ter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method se <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	757	878	
==>ter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1015	1136	
==>ter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	757	878	
==>ter> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method se <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10343	10450	
==>or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Gl <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10343	10450	
==>or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Gl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32500	32601	
==>$e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33155	33256	
==>$e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')-> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	655	788	
==>' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroiz <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	655	788	
==>' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroiz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	14	111	
==>:SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	14	111	
==>:SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5488	5648	
==>{
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5488	5648	
==>{
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5488	5648	
==>{
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	176	280	
==>";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	176	280	
==>";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	176	280	
==>";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6735	6845	
==>0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1177	1281	
==>0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1177	1281	
==>0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1177	1281	
==>0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5262	5354	
==>L::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5262	5354	
==>L::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5262	5354	
==>L::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17653	17736	
==>(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5356	5500	
==>next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5772	5916	
==>next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5368	5512	
==>next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5784	5928	
==>next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5863	5963	
==>wo) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) ret <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4993	5093	
==>wo) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5863	5963	
==>wo) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4993	5093	
==>wo) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	288	384	
==>ule/Install.pm} set to installed version of inc::Module::Install
#     3. The installed version o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7549	7682	
==>apture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7537	7670	
==>apture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7593	7689	
==>item I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by a <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7593	7689	
==>item I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2139	2268	
==>oup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{qua <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2729	2858	
==>oup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{qua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2139	2268	
==>oup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{qua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2717	2846	
==>oup {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{qua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4580	4703	
==>> Pugs::Compiler::Regex->compile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3447	3543	
==>: ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturnc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3447	3543	
==>: ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturnc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3447	3543	
==>: ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturnc <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2720	3010	
==>e {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2720	3010	
==>e {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16431	16539	
==>0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string grammar      :option <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6482	6608	
==>_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6482	6608	
==>_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6482	6608	
==>_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	998	1103	
==>w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitution {
    my $grammar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4776	4886	
==>{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4776	4886	
==>{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10963	11071	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11113	11221	
==>hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	379	512	
==>_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::Config{make} =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6189	6285	
==>thod.

This feature is useful, like custom, for when you don't want to mess
with members belongin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6189	6285	
==>thod.

This feature is useful, like custom, for when you don't want to mess
with members belongin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6189	6285	
==>thod.

This feature is useful, like custom, for when you don't want to mess
with members belongin <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5787	5944	
==>$stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4287	4444	
==>$stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15804	15899	
==>t 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15804	15899	
==>t 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2631	2728	
==>ed name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cm <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	28	125	
==>trict;
use warnings;
use base 'Object::Accessor';

use JIB::Constants;
use JIB::Config;

use JIB:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2631	2728	
==>ed name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2631	2728	
==>ed name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cm <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10219	10383	
==>&ternary:<?? !!>',
        body => sub {
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity => 3,
        name => '&print',
        body => sub { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7984	8079	
==>ield $^node }, $traversal_order);
    };
}

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7984	8079	
==>ield $^node }, $traversal_order);
    };
}

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2191	2284	
==>name: $name
osname: $config->{osname}

Please notify the maintainer of this code. (Brian Inger <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8964	9098	
==>lus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8960	9094	
==>lus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2405	2538	
==>lus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2405	2538	
==>lus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3539	3640	
==>i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3539	3640	
==>i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3539	3640	
==>i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	523	695	
==>"') {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    print <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36995	37090	
==>r these their joining
degenerates to a C<intersection>.  In any situation where a pair of source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41544	41639	
==>r these their joining
degenerates to a C<intersection>.  In any situation where a pair of source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41167	41262	
==>r these their joining
degenerates to a C<intersection>.  In any situation where a pair of source <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	986	1090	
==>=> try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	986	1090	
==>=> try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	986	1090	
==>=> try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6918	7020	
==>odules.

=head1 USAGE

=head2 Creating an Instance

To use this module as is, load it, and create an in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13256	13399	
==>_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13256	13399	
==>_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13072	13193	
==>$num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6547	6668	
==>$num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7905	8003	
==>ached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reach <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7905	8003	
==>ached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reach <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3294	3390	
==>hould be doing this anyway, though.)  It 
also means that the nonce or initialization vector shou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3294	3390	
==>hould be doing this anyway, though.)  It 
also means that the nonce or initialization vector shou <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14092	14188	
==>mentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10319	10415	
==>mentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14092	14188	
==>mentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10319	10415	
==>mentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35733	35847	
==>an object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27947	28043	
==>t relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32499	32595	
==>t relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31591	31687	
==>t relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32406	32518	
==>e
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2898	2996	
==>= "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2898	2996	
==>= "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2898	2996	
==>= "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9076	9183	
==>->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7293	7396	
==>eading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10770	10873	
==>eading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9907	10010	
==>eading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclus <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5937	6056	
==>if ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5937	6056	
==>if ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m, <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1214	1310	
==>` statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIO <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1214	1310	
==>` statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3321	3427	
==>if ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3321	3427	
==>if ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3321	3427	
==>if ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10759	10893	
==>w.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10759	10893	
==>w.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	965	1064	
==>$got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1023	1122	
==>$got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12344	12458	
==>err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1839	1939	
==>s one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1839	1939	
==>s one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1839	1939	
==>s one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3224	3368	
==>e}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            p <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3688	3832	
==>e}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4439	4540	
==>ct got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6341	6442	
==>ct got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Ob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3545	3699	
==>rn unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4473	4624	
==>rn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3434	3585	
==>rn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4473	4624	
==>rn unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	349	466	
==>tp' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support un <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	384	499	
==>tp' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support un <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23767	23867	
==>ults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28319	28419	
==>ults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of S <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11484	11616	
==>f FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	562	687	
==>arams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	562	687	
==>arams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	562	687	
==>arams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my D <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1139	1236	
==>__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtim <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1139	1236	
==>__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtim <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9431	9526	
==>t2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9431	9526	
==>t2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2637	2768	
==>d: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3577	3708	
==>eturned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2637	2768	
==>d: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3589	3720	
==>eturned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6912	7015	
==>elete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1268	1369	
==>elete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	370	468	
==>elete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4568	4660	
==>tBuilder->FETCH('::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11738	11845	
==>unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13810	13905	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13810	13905	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13810	13905	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	52	154	
==>s, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	52	154	
==>s, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	52	154	
==>s, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	54	153	
==>ase qw/Blondie::Runtime/;

use strict;
use warnings;

use Blondie::Backend::Perl::Builtins;

use UNI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6300	6401	
==>r = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6300	6401	
==>r = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6300	6401	
==>r = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2767	2866	
==>>class, \&Object, '... got the right class name');

is($p->get_x, 5, '... got the right x for p');
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3181	3291	
==>" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3181	3291	
==>" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3181	3291	
==>" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3697	3796	
==>trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_func 'asinh';
trig_func 'acosh';
trig_fun <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	219	324	
==>s roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	219	324	
==>s roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5773	5866	
==>}

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX::Value::N <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2354	2447	
==>$x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	363	456	
==>= $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.ta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	363	456	
==>= $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.ta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	363	456	
==>= $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4869	4965	
==>s, of course, incorrect. There is *no* attention
# paid to the associativity of the original oper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4869	4965	
==>s, of course, incorrect. There is *no* attention
# paid to the associativity of the original oper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4869	4965	
==>s, of course, incorrect. There is *no* attention
# paid to the associativity of the original oper <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10317	10458	
==>2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].de <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10317	10458	
==>2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].de <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	642	752	
==>dule, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	642	752	
==>dule, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2323	2420	
==>lated_array> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_gr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2335	2430	
==>expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $desc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2335	2430	
==>expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $desc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2415	2510	
==>expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $desc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8856	8956	
==>atal error was raised in the inital scan
of the regex.

=head2 Getting the Tree

You can access the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5704	5803	
==>=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5704	5803	
==>=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5704	5803	
==>=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10562	10662	
==>ill return undef when it has reached the end of the tree;
it will then reset itself, and will start f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27896	27992	
==>As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32448	32544	
==>As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31540	31636	
==>As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22059	22165	
==>m_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20940	21046	
==>m_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22059	22165	
==>m_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20940	21046	
==>m_nick>

The nick part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1502	1679	
==>s)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1502	1679	
==>s)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	150	279	
==>my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) ! <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	150	279	
==>my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) ! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6627	6734	
==>on) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<objec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6627	6734	
==>on) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my $chan = normalize $event<objec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6997	7100	
==>on) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<objec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6997	7100	
==>on) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my $chan = normalize $event<objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2474	2601	
==>aclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2474	2601	
==>aclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2474	2601	
==>aclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	911	1017	
==>ee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	911	1017	
==>ee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	911	1017	
==>ee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8491	8666	
==>m;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	516	621	
==>pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	516	621	
==>pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	516	621	
==>pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5493	5589	
==>() } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5493	5589	
==>() } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5493	5589	
==>() } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7445	7566	
==>ds.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15330	15434	
==>_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15330	15434	
==>_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15330	15434	
==>_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3523	3623	
==>_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3523	3623	
==>_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3523	3623	
==>_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defin <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	201	301	
==>a real
# precompiled AST of Prelude.pm.

our %Config;
our $TEMP_PRELUDE = "Prelude.pm"; # XXX: move t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19589	19687	
==>ke a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24141	24239	
==>ke a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3220	3306	
==>od does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3220	3306	
==>od does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructo <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2163	2265	
==>ST_ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2487	2601	
==>ler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2487	2601	
==>ler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5722	5830	
==>, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file han <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5722	5830	
==>, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file han <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1263	1370	
==>nd =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1263	1370	
==>nd =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19316	19423	
==>ection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18341	18448	
==>ection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19316	19423	
==>ection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18341	18448	
==>ection to the server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	630	752	
==>or ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it returns <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23787	23884	
==>back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28339	28436	
==>back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26075	26171	
==>' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30627	30723	
==>' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1693	1792	
==>ree node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Mu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1625	1721	
==>ree node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Mu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1382	1474	
==>str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1382	1474	
==>str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	426	543	
==>ined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $self = shift;
    go <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3289	3403	
==>sed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $desc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3289	3403	
==>sed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $desc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4813	4927	
==>sed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $desc <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8109	8222	
==>it();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8109	8222	
==>it();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2101	2206	
==>\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2089	2194	
==>\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$captur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2527	2644	
==>ift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2527	2644	
==>ift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2527	2644	
==>ift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a m <==
4	/Users/nnunley/pugs/util/package-osx.pl	2471	2560	
==>ers/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/dromano/dev/pugs/L <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	736	847	
==>nfig();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed" <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	736	847	
==>nfig();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed" <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5844	5931	
==>----------------------------------------------------
## sibling methods

method get_sibl <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5844	5931	
==>----------------------------------------------------
## sibling methods

method get_sibl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29129	29261	
==>L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29129	29261	
==>L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	472	588	
==>L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	556	672	
==>L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4022	4124	
==>e )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4022	4124	
==>e )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4102	4204	
==>e )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	54	155	
==>Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	54	155	
==>Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	54	155	
==>Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - n <==
4	/Users/nnunley/pugs/util/importgraph.pl	2078	2161	
==>k('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	733	855	
==>l $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9270	9423	
==>md =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9270	9423	
==>md =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn " <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8330	8423	
==>tem which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8330	8423	
==>tem which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2138	2331	
==>FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2138	2331	
==>FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31803	31904	
==>ose
  if (! $p->regex($regex)) {
    reject_regex(...);
  }

Any regex containing those assertions wil <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5048	5268	
==>ents<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5048	5268	
==>ents<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11657	11753	
==>on of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11657	11753	
==>on of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18452	18553	
==>bject(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14873	14974	
==>bject(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4664	4757	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $dec <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4664	4757	
==>)%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $dec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2933	3033	
==>>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2933	3033	
==>>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2933	3033	
==>>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0] <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25282	25362	
==>.
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8903	9023	
==>classes
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8903	9023	
==>classes
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8903	9023	
==>classes
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2420	2513	
==>Base', get_data( $_[0], '$<Pugs::Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2245	2370	
==>er::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2792	2917	
==>er::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3339	3464	
==>er::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{f <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2856	2968	
==>}{-parens=>'()'})\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\( <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	683	799	
==>ching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.mi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	582	684	
==>ching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.mi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11581	11671	
==>l compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::Mo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11639	11729	
==>l compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::Mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14768	14940	
==>, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14768	14940	
==>, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14768	14940	
==>, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{po <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	494	596	
==>ch::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5892	6038	
==>rse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5892	6038	
==>rse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40735	40827	
==>right holders of
Locale::KeyedText would appreciate being informed any time you create a
modi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40735	40827	
==>right holders of
Locale::KeyedText would appreciate being informed any time you create a
modi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1815	1949	
==>lessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1815	1949	
==>lessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1815	1949	
==>lessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$i <==
4	/Users/nnunley/pugs/util/version_h.pl	69	163	
==>= shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_ent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7110	7233	
==>ine;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7110	7233	
==>ine;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2347	2478	
==>ing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2594	2725	
==>ing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9831	9922	
==>"negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersect <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9831	9922	
==>"negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersect <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36812	36980	
==>mbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send(' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	488	734	
==>= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbati <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	488	734	
==>= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbati <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10351	10452	
==>OPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_child <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10351	10452	
==>OPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_child <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	145	372	
==>n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $pro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	145	372	
==>n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $pro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5086	5196	
==>@_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of strin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5308	5418	
==>@_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12285	12398	
==>de .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12285	12398	
==>de .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12285	12398	
==>de .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4219	4320	
==>,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $f <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8984	9097	
==>ssify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGMENT since that inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8576	8685	
==>arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8576	8685	
==>arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8576	8685	
==>arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef* <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	208	302	
==>ages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	208	302	
==>ages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	229	448	
==>,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	230	449	
==>,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::co <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1105	1199	
==>rns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1105	1199	
==>rns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3958	4059	
==>r group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$mi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3958	4059	
==>r group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$mi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3472	3569	
==>y Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or mo <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3472	3569	
==>y Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1968	2122	
==>p {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	282	436	
==>p {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1968	2122	
==>p {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1968	2122	
==>p {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5c <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9175	9295	
==>ring ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is exp <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9175	9295	
==>ring ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is exp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15842	15936	
==>rnately, sometimes a program will raise a condition or error that,
while resembling a message t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15842	15936	
==>rnately, sometimes a program will raise a condition or error that,
while resembling a message t <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1822	1963	
==>.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1822	1963	
==>.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($b <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2543	2668	
==>.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2543	2668	
==>.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2792	2917	
==>_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2792	2917	
==>_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2792	2917	
==>_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	849	967	
==>ec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1055	1173	
==>ec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no st <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16102	16191	
==>teractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Y <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16160	16249	
==>teractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Y <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1411	1559	
==>" . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _draw_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3408	3515	
==>ie 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3408	3515	
==>ie 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3408	3515	
==>ie 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	938	1094	
==>s
                my $self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx -> $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2381	2490	
==>ttribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2381	2490	
==>ttribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2381	2490	
==>ttribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatcha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16250	16399	
==>nt = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $coun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16250	16399	
==>nt = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $coun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16250	16399	
==>nt = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $coun <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	315	450	
==>d('get_file');
	
	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2107	2225	
==>r 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called befo <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2107	2225	
==>r 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called befo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	295	408	
==>e) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'r <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	295	408	
==>e) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4428	4568	
==>x;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4621	4761	
==>x;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	549	665	
==>rce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	549	665	
==>rce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27000	27107	
==>it in your own module.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3707	3809	
==>v) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3707	3809	
==>v) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3707	3809	
==>v) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4362	4485	
==>$dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4362	4485	
==>$dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4362	4485	
==>$dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1932	2056	
==>(my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1932	2056	
==>(my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1932	2056	
==>(my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6513	6651	
==>e($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) retu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6513	6651	
==>e($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3053	3149	
==>le.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3053	3149	
==>le.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4067	4177	
==>zw" );
    is( "$match", "x", 'stringify 1' );
}


__END__

Operator precedence parser

--- from S05 -----
Synt <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14989	15092	
==>m } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the pr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14989	15092	
==>m } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the pr <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	99	200	
==>rnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3151	3264	
==>nt of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3151	3264	
==>nt of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3151	3264	
==>nt of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23121	23223	
==>. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Id <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18255	18362	
==>rness.plx> for an example of use.

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>, currently ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4257	4352	
==>apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4257	4352	
==>apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4257	4352	
==>apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2395	2585	
==>item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.pri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2395	2585	
==>item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.pri <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4191	4338	
==>'¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4191	4338	
==>'¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3363	3486	
==>ntent?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3363	3486	
==>ntent?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14424	14512	
==>ain::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14424	14512	
==>ain::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14424	14512	
==>ain::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8879	9033	
==>xt unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5239	5393	
==>xt unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6088	6242	
==>xt unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_captu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24236	24332	
==>lation::Example are of the same
degree, and the attribute names of each tuple are all the same as <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14040	14145	
==>ump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10267	10372	
==>ump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14040	14145	
==>ump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10267	10372	
==>ump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks t <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6792	6887	
==>HC 6.4.1 or above from path (we have $ghc_version).
*** Please install a newer version from http <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14391	14480	
==>:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14391	14480	
==>:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14391	14480	
==>:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9199	9313	
==>dge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9199	9313	
==>dge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9199	9313	
==>dge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or di <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3569	3682	
==>r;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3569	3682	
==>r;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15354	15451	
==>or any of its components are intended for widespread use
then it needs to account for a variance o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15354	15451	
==>or any of its components are intended for widespread use
then it needs to account for a variance o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50148	50279	
==>->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:aut <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2184	2285	
==>tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2184	2285	
==>tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2264	2365	
==>tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	72	166	
==>RSION = 0.02;

=head1 NAME

Test::Harness::Iterator - Internal Test::Harness Iterator

=head1 S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	541	702	
==>um> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rule( '$' => '
                <Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19749	19897	
==>my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19749	19897	
==>my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19749	19897	
==>my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #war <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	258	386	
==>e::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8331	8443	
==>plan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Bu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	541	641	
==>plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	541	641	
==>plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Bu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1221	1318	
==>ith this package

=head2 $pkg->install( installation => INSTALLATION_OBJECT )

=cut

### XXX perl- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17946	18042	
==>est.

=item $h.from

This header should contain an Internet e-mail address for the human
user who <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24952	25048	
==>dText::Message Class

A Message object is a simple container which stores data to be used or
disp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24952	25048	
==>dText::Message Class

A Message object is a simple container which stores data to be used or
disp <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17946	18042	
==>est.

=item $h.from

This header should contain an Internet e-mail address for the human
user who <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	608	760	
==>$name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	608	760	
==>$name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10227	10348	
==>temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

m <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10227	10348	
==>temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4812	4959	
==>nfix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4812	4959	
==>nfix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print pos <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6409	6505	
==>e> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process eac <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6409	6505	
==>e> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process eac <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48744	48876	
==>hod label
        symbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3458	3557	
==>$Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description" <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3458	3557	
==>$Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4982	5081	
==>$Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	14	131	
==>ilder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or mis <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	14	131	
==>ilder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or mis <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	451	551	
==>y ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	451	551	
==>y ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3154	3271	
==>ot, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $expected ) {
        # undef only <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5904	6004	
==>hift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5904	6004	
==>hift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5904	6004	
==>hift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2706	2802	
==>el;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2706	2802	
==>el;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2706	2802	
==>el;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	12	102	
==>erl

package Blondie::Backend::Perl::Silly;
use base qw/Blondie::Backend::Perl/;

use stric <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2602	2758	
==>ing cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2602	2758	
==>ing cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1206	1287	
==>ass>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1426	1507	
==>ass>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5534	5634	
==>Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4664	4764	
==>Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5534	5634	
==>Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4664	4764	
==>Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $tw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6644	6759	
==>'$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6644	6759	
==>'$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6644	6759	
==>'$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2780	2894	
==>new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2780	2894	
==>new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2780	2894	
==>new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is} <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3103	3327	
==>ti sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             ) returns Array

 multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1601	1736	
==>turn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junctio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1601	1736	
==>turn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junctio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1601	1736	
==>turn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junctio <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18215	18350	
==>=> $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14636	14771	
==>=> $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1230	1331	
==>s") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2395	2496	
==>s") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbou <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	108	223	
==>}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	108	223	
==>}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	108	223	
==>}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6533	6730	
==>ub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6533	6730	
==>ub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6533	6730	
==>ub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $o <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2905	3008	
==>free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gener <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3062	3165	
==>free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gener <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2905	3008	
==>free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gener <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3062	3165	
==>free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU Gener <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2265	2372	
==>::dir('_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$config{'build_dir'}        = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1001	1107	
==>eneric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1001	1107	
==>eneric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1001	1107	
==>eneric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooP <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22418	22515	
==>the same result when invoked on the
same object with the same arguments; they do not interact with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26970	27067	
==>the same result when invoked on the
same object with the same arguments; they do not interact with <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25693	25790	
==>the same result when invoked on the
same object with the same arguments; they do not interact with <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8983	9079	
==>pear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not app <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4737	4877	
==>=~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1705	1821	
==>uote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1705	1821	
==>uote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1705	1821	
==>uote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3124	3213	
==>ee L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3124	3213	
==>ee L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3471	3560	
==>ee L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13327	13433	
==>e};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ran <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13327	13433	
==>e};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ran <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13327	13433	
==>e};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ran <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14554	14647	
==>ash_complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	739	858	
==>{
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	739	858	
==>{
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	739	858	
==>{
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14709	14797	
==>re_reverse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in rever <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16209	16309	
==>bute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16209	16309	
==>bute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16209	16309	
==>bute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8898	8991	
==>Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(any <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4734	4896	
==>ooser',
        other => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_rule( 
    #    name => '->',
    #    assoc => 'non',
    #    prec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	541	644	
==>qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	541	644	
==>qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	541	644	
==>qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	583	698	
==>elf = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	745	860	
==>elf = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an ex <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2222	2317	
==>y 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cause <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2222	2317	
==>y 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cause <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14348	14476	
==>ugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ov <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14348	14476	
==>ugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ov <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14348	14476	
==>ugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use ov <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19168	19286	
==>to reps_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1417	1520	
==>an autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1417	1520	
==>an autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1417	1520	
==>an autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>unde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5998	6115	
==>hain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5998	6115	
==>hain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5998	6115	
==>hain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2304	2402	
==>ly do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2304	2402	
==>ly do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34184	34278	
==>ack

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@membe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34184	34278	
==>ack

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@membe <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1582	1699	
==>r, Comparator);



 multi sub zip (Array *@lists) returns List {
   gather {
     while any(@lists) {
       for @list <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2041	2142	
==>=> 120,
		name => "recursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shif <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17884	17978	
==>codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiv <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17884	17978	
==>codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1593	1808	
==>eading)
                        ?? .value.value
                        !! $?CLASS.new( :attrs<.value.value> )
                    )
                )
                !! ( 'Scalar' => .value )
            )
        ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1865	1960	
==>b p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1865	1960	
==>b p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1865	1960	
==>b p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9627	9743	
==>ther is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13104	13220	
==>ther is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12376	12492	
==>ther is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	160	252	
==>leparse($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12639	12814	
==>urn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12639	12814	
==>urn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12639	12814	
==>urn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1448	1559	
==>, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Match obj.
# Just  prove regex <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	110	229	
==>GIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16198	16298	
==>('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16198	16298	
==>('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16198	16298	
==>('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_ge <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5868	5969	
==>, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5926	6027	
==>, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6291	6389	
==>, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6291	6389	
==>, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3136	3325	
==>p = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int mul <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	819	959	
==>dx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32746	32840	
==>or class as a whole is not pure and deterministic because it
invokes user-defined external file <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32746	32840	
==>or class as a whole is not pure and deterministic because it
invokes user-defined external file <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9908	10009	
==>e::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l. <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1355	1456	
==>p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9908	10009	
==>e::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l. <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1355	1456	
==>p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5514	5636	
==>e_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cann <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6011	6128	
==>e_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cann <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2277	2390	
==>e, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2277	2390	
==>e, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6373	6485	
==>t/non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2592	2694	
==>atcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2592	2694	
==>atcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2592	2694	
==>atcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4739	4841	
==>:stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4739	4841	
==>:stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4739	4841	
==>:stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices a <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25388	25484	
==>ve are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3322	3472	
==>eturn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3322	3472	
==>eturn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3322	3472	
==>eturn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3182	3302	
==>evels}[$level]} ) {
            #print "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_preced <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2617	2804	
==>$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2617	2804	
==>$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9959	10060	
==>= $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_roo <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9959	10060	
==>= $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_roo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13050	13183	
==>.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13050	13183	
==>.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0) <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	768	871	
==>ormalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %pa <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	768	871	
==>ormalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4174	4289	
==>the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4174	4289	
==>the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4174	4289	
==>the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2197	2303	
==>self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst->control_dir( $self->pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10575	10754	
==>c \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # em <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6916	7095	
==>c \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7765	7944	
==>c \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # em <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22586	22684	
==>of several
roles, for a Relation data type that corresponds to the "relation" of logic
and mathemat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5888	6007	
==>nt->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5888	6007	
==>nt->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18003	18098	
==>tify
it easily in its conditional logic, using a simple 'equals', and then the
application can " <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18003	18098	
==>tify
it easily in its conditional logic, using a simple 'equals', and then the
application can " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31331	31455	
==>f = shift;
    $self->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that do <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1497	1609	
==>> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_bl <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1497	1609	
==>> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_bl <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2951	3061	
==>> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5802	5944	
==>. 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5802	5944	
==>. 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3386	3514	
==>p = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3386	3514	
==>p = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4301	4472	
==>r',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4301	4472	
==>r',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4301	4472	
==>r',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7125	7264	
==>] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


 mult <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2716	2875	
==>ate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2626	2780	
==>ate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0] <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1056	1147	
==>idirectional functionality.

The complementary functions are emulated using iterations.

- ` <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1056	1147	
==>idirectional functionality.

The complementary functions are emulated using iterations.

- ` <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3207	3317	
==>", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3207	3317	
==>", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3207	3317	
==>", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2422	2521	
==>dex is file, second level is an array ref of hash refs.
# FIXME: Document next level. ??
my $link_in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	746	1005	
==>Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

me <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2587	2685	
==>"diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) u <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2587	2685	
==>"diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2667	2765	
==>"diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11192	11343	
==>HOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11192	11343	
==>HOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11192	11343	
==>HOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_i <==
4	/Users/nnunley/pugs/util/version_h.pl	325	440	
==>vision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that is only <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11579	11716	
==>y %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11579	11716	
==>y %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11579	11716	
==>y %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$clas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8513	8625	
==>n "$_[1] ruleop::capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2748	2869	
==>it_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2736	2857	
==>it_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2158	2271	
==>it_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2158	2271	
==>it_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3652	3774	
==>r1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3845	3967	
==>r1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	332	449	
==>_upload          => '',
    inline_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules    => [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	37	133	
==>$thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	37	133	
==>$thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	37	133	
==>$thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4670	4825	
==>$dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4670	4825	
==>$dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4691	4786	
==>6($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4691	4786	
==>6($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\d <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9088	9210	
==>that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11829	11924	
==>e instances of class all conform to the Role interface/API they are 
interchangable with one ano <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11829	11924	
==>e instances of class all conform to the Role interface/API they are 
interchangable with one ano <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11829	11924	
==>e instances of class all conform to the Role interface/API they are 
interchangable with one ano <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	132	229	
==>.z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* < <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	132	229	
==>.z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25292	25384	
==>als the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Boo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29844	29936	
==>als the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Boo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	541	632	
==>.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1154	1245	
==>.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	541	632	
==>.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1154	1245	
==>.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	233	331	
==>l_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	289	387	
==>l_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	233	331	
==>l_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	289	387	
==>l_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	587	703	
==>str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	587	703	
==>str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	374	475	
==>AML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17035	17131	
==>e(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file whic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17035	17131	
==>e(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file whic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41586	41678	
==>::Example>

This multi-method is the N-ary version of the aforementioned binary join()
operat <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1577	1793	
==>gex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $esca <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1577	1793	
==>gex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $esca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17030	17173	
==>ncat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17309	17452	
==>ncat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             rul <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1794	1907	
==>g here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is safe is bui <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7840	7950	
==>function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7840	7950	
==>function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7840	7950	
==>function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH() <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2750	2849	
==>od is_nil))
        (($current send (has_method $label)) and (= $method ($current send (get_method $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5762	5857	
==>returns Hash>

This method calls the superclass C<status> method and adds the values of the
test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5762	5857	
==>returns Hash>

This method calls the superclass C<status> method and adds the values of the
test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7959	8054	
==>returns Hash>

This method calls the superclass C<status> method and adds the values of the
test <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3590	3771	
==>~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3590	3771	
==>~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1133	1243	
==>f.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1133	1243	
==>f.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13970	14088	
==>lass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13970	14088	
==>lass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13970	14088	
==>lass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ] <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	229	322	
==>t[1]\n";
print "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}\n";
print "{$wer}s Lieblingsdri <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	109	230	
==>123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	44	146	
==>s, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	44	146	
==>s, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	44	146	
==>s, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2269	2374	
==>:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2269	2374	
==>:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2269	2374	
==>:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/", <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1841	1941	
==>1");
    $self->makemaker_args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $self- <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16926	17059	
==>false if its a failure

  exit              the exit code of the test run, if from a file
  wait              the wait code of the tes <==
4	/Users/nnunley/pugs/util/fixauthors.pl	495	602	
==>a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$uid");
  my $tree <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27874	27971	
==>te values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32426	32523	
==>te values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31518	31615	
==>te values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	250	352	
==>Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=fo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	250	352	
==>Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17614	17708	
==>rd.>

=item $h.user_agent

This header field is used in request messages and contains informati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17614	17708	
==>rd.>

=item $h.user_agent

This header field is used in request messages and contains informati <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4427	4584	
==>class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_l <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4427	4584	
==>class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_l <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9211	9315	
==>turns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_par <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9211	9315	
==>turns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_par <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9768	9871	
==>turns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_par <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9768	9871	
==>turns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_par <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	980	1081	
==>ify(Class::Events::Event.new(*@args));
    }

    method mk_notifications (*@subscriptions of Class::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17471	17565	
==>orm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17471	17565	
==>orm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17471	17565	
==>orm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7704	7855	
==>TOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7704	7855	
==>TOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7704	7855	
==>TOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $metho <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17855	17944	
==>,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19265	19363	
==>ing them.  At
the same time, this information is in separate resource files used by the
program, so <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19265	19363	
==>ing them.  At
the same time, this information is in separate resource files used by the
program, so <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	829	921	
==>en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	829	921	
==>en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13149	13308	
==>ar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21199	21358	
==>ar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13428	13587	
==>ar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21478	21637	
==>ar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13617	13767	
==>)) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3750	3888	
==>)) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3750	3888	
==>)) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3750	3888	
==>)) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5460	5577	
==>xed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, fr <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3620	3737	
==>word_boundary  { \\ b }
#rule element_boundary { \< , \> } # punt for now

rule subrule                { ([\<\<|\<|\x[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5460	5577	
==>xed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5460	5577	
==>xed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, fr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	859	979	
==>to:

 p5-a AND (p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1027	1123	
==>e_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1027	1123	
==>e_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : dele <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1027	1123	
==>e_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : dele <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1609	1727	
==>-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1816	1934	
==>-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22728	22814	
==>d2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22728	22814	
==>d2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22104	22216	
==>opy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *off <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17005	17116	
==>opy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *off <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12211	12304	
==>-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=he <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12211	12304	
==>-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=he <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11048	11160	
==>esult ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11048	11160	
==>esult ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1847	1947	
==>erl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expressi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1847	1947	
==>erl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expressi <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	241	348	
==>simply to permit a piln backend to
# pass most of the tests the current backend does.


role rArray {}


cla <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3076	3173	
==>Returns the value of the parameter named C<$name>.  If called in List context,
it will return a li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3076	3173	
==>Returns the value of the parameter named C<$name>.  If called in List context,
it will return a li <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25484	25564	
==>D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs(A, <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16350	16493	
==>_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20776	20919	
==>_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12945	13047	
==>my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep m/^-T$/, @{$args{switche <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38449	38550	
==>>qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17576	17741	
==>{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17576	17741	
==>{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17576	17741	
==>{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1008	1122	
==>[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { bit->new(1) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2272	2377	
==>->{param_stack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23801	23908	
==>copy-and-push
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) ato <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2394	2493	
==>fined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2394	2493	
==>fined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2394	2493	
==>fined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16974	17080	
==>opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7803	7901	
==>get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7803	7901	
==>get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7803	7901	
==>get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@cl <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2900	3004	
==>s is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU G <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3057	3161	
==>s is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU G <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2900	3004	
==>s is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU G <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3057	3161	
==>s is free software; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5631	5852	
==>ame} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6480	6701	
==>ame} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $pref <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30767	30869	
==>the Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30767	30869	
==>the Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same fo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4053	4148	
==>n the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4053	4148	
==>n the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6250	6345	
==>n the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25055	25177	
==>the regex string from the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2256	2362	
==>o &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2256	2362	
==>o &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2256	2362	
==>o &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2243	2342	
==>O - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2243	2342	
==>O - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2243	2342	
==>O - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use s <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5622	5884	
==>eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an e <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5622	5884	
==>eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an e <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5618	5879	
==>ken eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5618	5879	
==>ken eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2541	2653	
==>$self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2541	2653	
==>$self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2541	2653	
==>$self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	313	421	
==>ut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { r <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	313	421	
==>ut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { r <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5959	6066	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5959	6066	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24230	24322	
==>oopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7247	7335	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7247	7335	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7247	7335	
==>2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	867	964	
==>ut the server your CGI is running on. It also 
attempts to provide some useful defaults for debugg <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	867	964	
==>ut the server your CGI is running on. It also 
attempts to provide some useful defaults for debugg <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8748	8840	
==>s a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8748	8840	
==>s a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12438	12546	
==>>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12438	12546	
==>>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12438	12546	
==>>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1512	1662	
==>, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $meta . '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3424	3529	
==>LTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3424	3529	
==>LTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3424	3529	
==>LTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a- <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2304	2478	
==>Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2304	2478	
==>Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21201	21297	
==>gly suggested (but not required) that each Perl package which
uses this would come up with keys w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21201	21297	
==>gly suggested (but not required) that each Perl package which
uses this would come up with keys w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	809	907	
==>Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	809	907	
==>Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	809	907	
==>Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	170	262	
==>Hash;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20472	20685	
==>@items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20472	20685	
==>@items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20472	20685	
==>@items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36506	36602	
==>then

Family: assertion

Types: ifthen (C<(?(>)

Data: array reference of two objects; first: I<i <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3702	3803	
==>$file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitilde\{\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19963	20056	
==>complish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24515	24608	
==>complish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23067	23160	
==>complish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8925	9036	
==>iolation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8925	9036	
==>iolation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8925	9036	
==>iolation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1754	1861	
==>ke() instead.
sub ok ($@) {
    my ($pass, $name, @mess) = @_;
    _ok($pass, _where(), $name, @mess);
}

su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	751	884	
==>th' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	751	884	
==>th' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            ' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11189	11321	
==>ntity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:per <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11189	11321	
==>ntity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1359	1478	
==>$js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1359	1478	
==>$js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1359	1478	
==>$js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34427	34535	
==>print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others are
possible (Unicode properties and user-def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3522	3634	
==>ell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3522	3634	
==>ell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3522	3634	
==>ell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32691	32789	
==>ess the attribute when I<outside>
the class, and it's a good idea to do so I<inside> the class as w <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	147	243	
==>/$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Dat <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	147	243	
==>/$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Dat <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5408	5514	
==>string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test di <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5408	5514	
==>string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7605	7711	
==>string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test di <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8297	8395	
==>ft, but test cases exist.
multi Array::min(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	723	832	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	723	832	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	723	832	
==>ef($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34246	34336	
==>ad2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13663	13797	
==>Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13663	13797	
==>Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13663	13797	
==>Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2603	2703	
==>my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class->V <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2603	2703	
==>my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class->V <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	981	1073	
==>&::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	981	1073	
==>&::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	368	534	
==>x';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	368	534	
==>x';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3405	3539	
==>s::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3405	3539	
==>s::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12104	12224	
==>)   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12104	12224	
==>)   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12104	12224	
==>)   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	313	415	
==>L::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	313	415	
==>L::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	313	415	
==>L::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10489	10580	
==>r get Object's singleton methods ..

is($Bar->another_singleton_test_on_object(), 
   '&Obje <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6172	6288	
==>_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6172	6288	
==>_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	131	239	
==>d-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	126	227	
==>d-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8144	8308	
==>arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8144	8308	
==>arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8144	8308	
==>arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17759	17863	
==>$self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Parser:: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10429	10539	
==>s(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11024	11107	
==>-------------------------------------------------------------------------

What if R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11024	11107	
==>-------------------------------------------------------------------------

What if R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11024	11107	
==>-------------------------------------------------------------------------

What if R <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1072	1170	
==>e) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1072	1170	
==>e) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15723	15813	
==>ironment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informati <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15781	15871	
==>ironment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9819	10016	
==>match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9819	10016	
==>match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9819	10016	
==>match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9245	9392	
==>b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4156	4269	
==>hift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4156	4269	
==>hift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4156	4269	
==>hift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9331	9509	
==>[
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interfac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9331	9509	
==>[
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interfac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1481	1579	
==>er" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audr <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1481	1579	
==>er" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14101	14289	
==>ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14101	14289	
==>ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14101	14289	
==>ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1699	1813	
==>6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

=item * L<Pugs::Compiler: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1132	1239	
==>aram = shift;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $param;
}

sub en <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12696	12790	
==>t()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12696	12790	
==>t()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1772	1906	
==>t.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1772	1906	
==>t.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1772	1906	
==>t.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11632	11752	
==>);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11632	11752	
==>);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11632	11752	
==>);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	672	768	
==>ig{installscript},
        sitescript     => $Config{installsitescript} || $Config{installscript} <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2987	3147	
==>x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym-> <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4251	4411	
==>x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym-> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7159	7305	
==>2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exc <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7159	7305	
==>2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6913	7010	
==>er and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documen <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1353	1450	
==>er and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documen <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6913	7010	
==>er and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documen <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1353	1450	
==>er and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17832	17983	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17832	17983	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17832	17983	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	481	611	
==>ssion::AST '$match' \n";
    my $p;
    my $last = length( $match );
    my $lex = sub {
        my $m;
        my $whitespace_befo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19122	19230	
==>ler {
    my($self, $line, $type, $totals) = @_;

    die "FAILED--Further testing stopped" .
      ($self->{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7239	7375	
==>omething that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_sa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7703	7839	
==>omething that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_sa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10007	10106	
==>e set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument ca <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10007	10106	
==>e set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	96	213	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	96	213	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	96	213	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { s <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8923	9026	
==>ing:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression --> Lazy ) 
 multi  Lis <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1949	2060	
==>iption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1949	2060	
==>iption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2029	2140	
==>iption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	251	347	
==>no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

req <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5608	5790	
==>>param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(upd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17494	17624	
==>fined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17494	17624	
==>fined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17494	17624	
==>fined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2999	3139	
==>f $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3521	3658	
==>f $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2901	3038	
==>f $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3521	3658	
==>f $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	29	137	
==>ll::Deprecated;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1246	1353	
==>ded "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numificat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1246	1353	
==>ded "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numificat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1246	1353	
==>ded "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numificat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15446	15602	
==>!defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15446	15602	
==>!defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15446	15602	
==>!defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3208	3344	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3208	3344	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3208	3344	
==>{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	596	725	
==>l(@_);
  }

  sub data {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4028	4124	
==>nfig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for examp <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4028	4124	
==>nfig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for examp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24329	24421	
==>he interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24329	24421	
==>he interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2925	3041	
==>hod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3130	3246	
==>hod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5679	5795	
==>hod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4311	4427	
==>hod' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1967	2074	
==>d_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1967	2074	
==>d_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1967	2074	
==>d_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OU <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1703	1808	
==>~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12330	12552	
==>],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12330	12552	
==>],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3244	3334	
==>r = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3244	3334	
==>r = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4797	4894	
==>!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4797	4894	
==>!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3918	4012	
==>date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( ye <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3918	4012	
==>date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( ye <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2060	2291	
==>body) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2863	2976	
==>ixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2863	2976	
==>ixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2863	2976	
==>ixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TO <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15280	15374	
==>that deal with dates/times always convert their value to system
time (seconds since Jan 1, 1970 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15280	15374	
==>that deal with dates/times always convert their value to system
time (seconds since Jan 1, 1970 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3963	4148	
==>mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7440	7625	
==>mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6406	6591	
==>mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2202	2303	
==>for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5580	5726	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6133	6279	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5773	5919	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6326	6472	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23128	23226	
==>ing lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a comman <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23128	23226	
==>ing lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a comman <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17867	17962	
==>($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14288	14383	
==>($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	237	332	
==>ames.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	237	332	
==>ames.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP m <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	480	595	
==>use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	480	595	
==>use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1182	1277	
==>ib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1182	1277	
==>ib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2451	2589	
==>..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3748	3844	
==>lsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3748	3844	
==>lsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4338	4434	
==>lsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $pa <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8419	8560	
==>in:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4670	4776	
==>arg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4670	4776	
==>arg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4018	4118	
==>isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return if $ref eq $cls;
	return if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2154	2260	
==>); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarNa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2154	2260	
==>); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarNa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2154	2260	
==>); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarNa <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4898	4998	
==>RR "done.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	985	1118	
==>rap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	985	1118	
==>rap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    conc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7424	7540	
==>dary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encod <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7424	7540	
==>dary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2936	3137	
==>int:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1796	1902	
==>hods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition wi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1796	1902	
==>hods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition wi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1796	1902	
==>hods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition wi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20448	20539	
==>C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20448	20539	
==>C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if t <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1308	1399	
==>ed the 'nmake' utility
before installation. It's available at:

  http://download.microsoft. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1148	1239	
==>ed the 'nmake' utility
before installation. It's available at:

  http://download.microsoft. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7476	7647	
==>>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7476	7647	
==>>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7476	7647	
==>>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31493	31591	
==>ahead.

=item down

Whether this object creates a deeper scope (like an OPEN).

=item ifthen

Wheth <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5971	6085	
==>t {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5101	5215	
==>t {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5971	6085	
==>t {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5101	5215	
==>t {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15878	15989	
==>'$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12771	12877	
==>$class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canon <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12771	12877	
==>$class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canon <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12771	12877	
==>$class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canon <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15824	15938	
==>e length of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreac <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13166	13325	
==>e brute force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3351	3490	
==>e brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3351	3490	
==>e brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3351	3490	
==>e brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10816	10971	
==>not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p5_simple_escape_sequence(char(C)) --> "\\n", {[C] = "\n"}, !. %# XXX - not really
p5_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7539	7684	
==>:Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7539	7684	
==>:Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7539	7684	
==>:Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3519	3628	
==>ind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3519	3628	
==>ind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3519	3628	
==>ind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30308	30442	
==>ems}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30308	30442	
==>ems}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30308	30442	
==>ems}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scal <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9357	9475	
==>arget, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4922	5116	
==>en rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4922	5116	
==>en rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	42	143	
==>der::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	42	143	
==>der::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4329	4439	
==>eturn;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm -rf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14433	14523	
==>5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14433	14523	
==>5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14433	14523	
==>5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12565	12731	
==>{p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13099	13265	
==>{p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12559	12725	
==>{p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13093	13259	
==>{p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6049	6146	
==>nt ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6049	6146	
==>nt ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2222	2316	
==>rn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2134	2227	
==>rn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10259	10387	
==>er('^^' => sub {
    my ($S) = @_;
    return $S->object(bol => bol => '^^');
  });


  ### '&'


  ### '*'

  $self->add_handler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4257	4377	
==>up {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4257	4377	
==>up {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4257	4377	
==>up {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $sel <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2448	2550	
==>: This program should be run as unpreviliged user, it will ask you to enter
      commands requiring ro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15678	15813	
==>) {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().() <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15678	15813	
==>) {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().() <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	356	447	
==>c::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	356	447	
==>c::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1475	1584	
==>returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1475	1584	
==>returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @ite <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12289	12389	
==>nce.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closes <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12289	12389	
==>nce.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closes <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3483	3669	
==>('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current')
                  ->send('has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1447	1567	
==>:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1447	1567	
==>:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1447	1567	
==>:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26600	26793	
==>turn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26600	26793	
==>turn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26600	26793	
==>turn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9697	9810	
==>r executable we've found (which could be
        # undef, if we didn't find anything).

        $ghc_pkg = $ghc_ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5742	5859	
==>= 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5742	5859	
==>= 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9536	9652	
==>socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autopin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9536	9652	
==>socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autopin <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11912	12030	
==>fe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        close $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3079	3186	
==>, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3079	3186	
==>, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3079	3186	
==>, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on u <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3826	3926	
==>d line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2995	3088	
==>es = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2995	3088	
==>es = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2995	3088	
==>es = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11923	12092	
==>ext unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2562	2660	
==>$title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is tit <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2562	2660	
==>$title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is tit <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2909	3007	
==>$title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is tit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5715	5817	
==>iable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4790	4886	
==>ption.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contai <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4790	4886	
==>ption.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6987	7083	
==>ption.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contai <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5013	5119	
==>$two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4140	4246	
==>$two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5013	5119	
==>$two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4140	4246	
==>$two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10582	10680	
==>the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10582	10680	
==>the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy i <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12990	13085	
==>egative infinite if the recurrence is an empty set.

- `stringify()`

Return a string representa <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12990	13085	
==>egative infinite if the recurrence is an empty set.

- `stringify()`

Return a string representa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3981	4233	
==>-xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my_tmp_dir,
                                    $conf->meta_fil <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6282	6380	
==>O>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6282	6380	
==>O>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8479	8577	
==>O>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific de <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3581	3699	
==>th);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3581	3699	
==>th);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3550	3648	
==>ckend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3550	3648	
==>ckend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12627	12738	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13635	13746	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15160	15271	
==>other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Exam <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6708	6810	
==>_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5_elemental(char(C)) --> "\\", [C], {p5_metachar( <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1490	1612	
==>);
    # remove the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n//;
    my @file = split //, $file;

    o <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	970	1068	
==>he Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	970	1068	
==>he Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1517	1615	
==>he Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8263	8417	
==>x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn " <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8263	8417	
==>x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4784	4938	
==>0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4784	4938	
==>0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4784	4938	
==>0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9324	9422	
==>parser->captures();

If you want to access a specific capture group, pass its numerical
value:

  m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3353	3449	
==>see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3353	3449	
==>see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7267	7360	
==>t-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7267	7360	
==>t-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	733	852	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	733	852	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	733	852	
==>},
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26184	26295	
==>${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value won't be reset (due <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6314	6412	
==>lve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Class->add_method <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4901	5042	
==>r()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4901	5042	
==>r()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@b <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2195	2302	
==>pe, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2195	2302	
==>pe, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9000	9132	
==>_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	734	866	
==>_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9000	9132	
==>_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9000	9132	
==>_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3952	4048	
==>&Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= & <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3952	4048	
==>&Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4932	5025	
==>'... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7600	7693	
==>'... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	826	942	
==>_accessors( qw[repositories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variables <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	902	997	
==>< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	902	997	
==>< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	902	997	
==>< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1059	1181	
==>($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1059	1181	
==>($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1059	1181	
==>($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3741	3854	
==>ool
        # Says whether this Relation::Example is mutable or not;
        # depending on the implementing class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10158	10296	
==>hift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10158	10296	
==>hift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10158	10296	
==>hift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $cl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24878	24971	
==>elation::Example tuples may be individually addressed only by their values; neither
may be add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10924	11020	
==>>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10924	11020	
==>>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10924	11020	
==>>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11183	11281	
==>rue if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11183	11281	
==>rue if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41367	41456	
==>e's
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41367	41456	
==>e's
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13503	13617	
==>$S1
    goto addrange_1
  dotrange:
    if isrange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4095	4205	
==>ion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4095	4205	
==>ion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4095	4205	
==>ion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefin <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5131	5234	
==>catdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synop <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	267	376	
==>[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 METHODS

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	166	270	
==>ks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	166	270	
==>ks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	166	270	
==>ks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24493	24589	
==>te name and each Mapping value
is the corresponding attribute value.

Every Relation::Example att <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5562	5654	
==>WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5562	5654	
==>WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7759	7851	
==>WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5107	5221	
==>p = $o->noop;
    sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	240	342	
==>multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ... <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	240	342	
==>multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ... <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25483	25580	
==>it status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the above.

=item <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	113	209	
==>y $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';' <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	113	209	
==>y $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';' <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	646	739	
==>multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi met <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	646	739	
==>multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi met <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1511	1637	
==>es,
                $:superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3623	3713	
==>get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3623	3713	
==>get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3623	3713	
==>get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%: <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3879	4146	
==>_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3922	4189	
==>_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3879	4146	
==>_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3922	4189	
==>_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate (Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3037	3183	
==>ell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3037	3183	
==>ell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3037	3183	
==>ell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1649	1749	
==>very line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Pe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1770	1863	
==>ss Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1770	1863	
==>ss Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17663	17755	
==>sed in request messages and contains information
about the user agent originating the request <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17663	17755	
==>sed in request messages and contains information
about the user agent originating the request <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15940	16063	
==>[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7510	7609	
==><PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7510	7609	
==><PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7510	7609	
==><PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	826	943	
==>uration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<bef <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	568	685	
==>uration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<bef <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	826	943	
==>uration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<bef <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	568	685	
==>uration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<bef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2456	2582	
==>erl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2456	2582	
==>erl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2456	2582	
==>erl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19988	20097	
==>r = comb(
	fun => $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	body => let(
		ide => " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2712	2812	
==>ler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3285	3385	
==>ler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6989	7081	
==>say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7047	7139	
==>say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	264	363	
==>($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	264	363	
==>($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	264	363	
==>($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2349	2482	
==>_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2349	2482	
==>_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1808	1909	
==>h = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1808	1909	
==>h = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3247	3381	
==>) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3247	3381	
==>) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3247	3381	
==>) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @ <==
4	/Users/nnunley/pugs/util/testgraph.pl	1685	1795	
==>/;
        File::Spec->catdir("t_index",$link);
    }

    package My::Subtest;
    use base qw/Test::TAP::Mode <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1127	1239	
==>f.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1127	1239	
==>f.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3888	3988	
==>on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they shou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3888	3988	
==>on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they shou <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1515	1635	
==>y,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1745	1852	
==>ulti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1745	1852	
==>ulti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1745	1852	
==>ulti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	251	357	
==>ILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	251	357	
==>ILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4195	4318	
==>"");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4195	4318	
==>"");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4528	4624	
==>thods are
implemented as hash keys to code refs. The only function this module
exports is the con <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4528	4624	
==>thods are
implemented as hash keys to code refs. The only function this module
exports is the con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15834	15971	
==>'' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15834	15971	
==>'' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15834	15971	
==>'' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	145	239	
==>s;

use Carp 'confess';
use Scalar::Util 'looks_like_number', 'blessed';

use base 'type::compa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4305	4416	
==>t>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4305	4416	
==>t>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3367	3474	
==>($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3367	3474	
==>($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	642	741	
==>a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	642	741	
==>a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	642	741	
==>a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's al <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	475	574	
==>ive value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_num { shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	349	454	
==>tially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	349	454	
==>tially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19582	19677	
==>m $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
pro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19582	19677	
==>m $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
pro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1235	1357	
==>nt   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1235	1357	
==>nt   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31825	31920	
==>nderstands
language B.  Later on, if for example the first library generates an error
message an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31825	31920	
==>nderstands
language B.  Later on, if for example the first library generates an error
message an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29011	29112	
==>lation::Example>

This method is a generic relational operator that returns a new Relation::Example
wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29659	29760	
==>lation::Example>

This method is a generic relational operator that returns a new Relation::Example
wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30820	30921	
==>lation::Example>

This method is a generic relational operator that returns a new Relation::Example
wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34877	34978	
==>lation::Example>

This method is a generic relational operator that returns a new Relation::Example
wh <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	499	622	
==>lar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;
        $self->{'v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6415	6503	
==>[ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6415	6503	
==>[ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6415	6503	
==>[ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	153	255	
==>quire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	153	255	
==>quire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	153	255	
==>quire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35073	35168	
==>}

We inherit the merge() method defined in F<Regexp::Parser::branch>,
which is used when two of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6907	7016	
==>son = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'na <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6907	7016	
==>son = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'na <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1223	1318	
==>caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1223	1318	
==>caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2715	2817	
==>urn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2715	2817	
==>urn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2795	2897	
==>urn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::B <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2332	2442	
==>le.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHOR <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2332	2442	
==>le.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHOR <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1557	1661	
==>le.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHOR <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3418	3522	
==>le.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6541	6651	
==>one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6541	6651	
==>one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7412	7521	
==>one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7412	7521	
==>one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1549	1687	
==>s int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1549	1687	
==>s int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8134	8237	
==>_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet un <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8134	8237	
==>_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet un <==
4	/Users/nnunley/pugs/util/package-osx.pl	646	752	
==>b
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline.5.1.dyl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2842	2944	
==>mespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2842	2944	
==>mespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2842	2944	
==>mespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its ch <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1517	1620	
==>$value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns $value

    $self->le <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1998	2096	
==>rr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1998	2096	
==>rr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1998	2096	
==>rr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1369	1470	
==>> \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1369	1470	
==>> \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1369	1470	
==>> \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1576	1682	
==>IL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1576	1682	
==>IL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1576	1682	
==>IL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6282	6378	
==>about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, H <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6282	6378	
==>about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, H <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31751	31846	
==>ace that the
current user is fluent in (and prefers) language A but also understands
language B. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31751	31846	
==>ace that the
current user is fluent in (and prefers) language A but also understands
language B. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6231	6412	
==>alues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method un <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9708	9889	
==>alues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method un <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8782	8963	
==>alues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4975	5112	
==>CKAGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        other => ';',
    );

    __PAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	195	306	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	195	306	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	195	306	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1041	1137	
==>{
# XXX I don't understand what round-alternate means.
# But in my understanding, The implementio <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	22	108	
==>stall/Can.pm - lib/Module/Install/Can.pm"
package Module::Install::Can;
use Module::Ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6817	6902	
==>resolve));

## ----------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6817	6902	
==>resolve));

## ----------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6817	6902	
==>resolve));

## ----------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4609	4772	
==>> @replace_list -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1724	1824	
==>gument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - crea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1724	1824	
==>gument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - crea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1724	1824	
==>gument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - crea <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18775	18915	
==>on} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test out <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3678	3779	
==>re 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# fla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3895	3996	
==>re 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# fla <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	413	512	
==>rs = $self->{class}->send('superclasses')->to_native;
    my @seqs = (
        list->new($self->{cla <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	582	799	
==>ift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	582	799	
==>ift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9291	9393	
==>nt-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9291	9393	
==>nt-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style me <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6089	6195	
==>we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for releas <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6147	6253	
==>we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for releas <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11002	11093	
==>quest_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str> <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11002	11093	
==>quest_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str> <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8530	8634	
==>_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3095	3183	
==>{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3095	3183	
==>{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3095	3183	
==>{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10742	10844	
==>s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10742	10844	
==>s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10742	10844	
==>s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	106	206	
==>s {
    stub('&printf', '$handle', '$format', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18872	18972	
==>e_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.). <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17915	18015	
==>e_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.). <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18872	18972	
==>e_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.). <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17915	18015	
==>e_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6312	6432	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6312	6432	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6312	6432	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ], <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5233	5358	
==>,
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5233	5358	
==>,
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27044	27210	
==>'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'))->pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8760	8862	
==>UB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8760	8862	
==>UB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8760	8862	
==>UB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13341	13470	
==>if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13341	13470	
==>if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13341	13470	
==>if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 { <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2226	2355	
==>if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9424	9541	
==>args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9424	9541	
==>args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9424	9541	
==>args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    va <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	53	148	
==>om:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

us <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1650	1765	
==>}
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1650	1765	
==>}
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Se <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5202	5322	
==>$tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ', <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5202	5322	
==>$tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ', <==
4	/Users/nnunley/pugs/util/package-osx.pl	1059	1165	
==>e.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/m <==
4	/Users/nnunley/pugs/util/package-osx.pl	3369	3475	
==>e.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	657	765	
==>wrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	657	765	
==>wrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	657	765	
==>wrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1268	1363	
==>$ENV{PUGS_RUNTIME} eq 'JS';
# XXX: hack to be identified by smokeserv
$ENV{HARNESS_PERL}  = "$^X <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1018	1118	
==>ce => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is sligh <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1018	1118	
==>ce => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is sligh <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23634	23722	
==>n(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1028	1169	
==>y);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1028	1169	
==>y);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($v <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32597	32690	
==>ose is to convert Message objects on demand into user-readable
message strings, using data fro <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32597	32690	
==>ose is to convert Message objects on demand into user-readable
message strings, using data fro <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3542	3646	
==>onload" :load
    .local pmc optable
    $P0 = getclass "PGE::Exp::Subrule"
    $P1 = subclass $P0, "PGE: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4532	4634	
==>2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersecti <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4532	4634	
==>2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersecti <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6356	6436	
==>nt_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	568	662	
==>use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2959	3075	
==>'\C');
  });

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2947	3062	
==>nfig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2947	3062	
==>nfig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2947	3062	
==>nfig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6797	6932	
==>),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1169	1266	
==>m->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	els <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1169	1266	
==>m->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	els <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1378	1475	
==>m->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	els <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19681	19783	
==>last paren matched */
  U32 lastcloseparen;     /* last paren matched */

=head2 Other things the world <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22352	22450	
==>c, such that all of its class
and object methods will each return the same result when invoked on t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26904	27002	
==>c, such that all of its class
and object methods will each return the same result when invoked on t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25627	25725	
==>c, such that all of its class
and object methods will each return the same result when invoked on t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26975	27067	
==>turned Relation has
the complement subset of the original's attributes to what C<project> wou <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31527	31619	
==>turned Relation has
the complement subset of the original's attributes to what C<project> wou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17089	17183	
==>UB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17089	17183	
==>UB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17089	17183	
==>UB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8487	8646	
==>close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8487	8646	
==>close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record se <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7700	7846	
==>ack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_par <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7700	7846	
==>ack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12114	12224	
==>sses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12114	12224	
==>sses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12114	12224	
==>sses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7517	7624	
==>Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	55	171	
==>s;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	55	171	
==>s;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $m <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3296	3405	
==>path, $top_obj) = @_;
    $path = "$self->{base}/$path";

    unshift @INC, $self->{prefix}
        unless gre <==
4	/Users/nnunley/pugs/util/func_refact.pl	3150	3247	
==>clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { require Carp; Carp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12352	12472	
==>ax};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	53	306	
==>packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	53	306	
==>packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	53	306	
==>packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	53	306	
==>packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2159	2258	
==>2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2159	2258	
==>2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2159	2258	
==>2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::in <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	219	325	
==>ear

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	219	325	
==>ear

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8793	8897	
==>umfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6320	6420	
==>umfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21725	21821	
==>r (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20606	20702	
==>r (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21725	21821	
==>r (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20606	20702	
==>r (unmodified).

=item C<server>

The server the line was sent from. This is I<not> necessarily t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9291	9502	
==>0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9291	9502	
==>0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9291	9502	
==>0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16844	16943	
==>::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16844	16943	
==>::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16844	16943	
==>::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1032	1128	
==>ion::LaxAttrList () {
    return %!attrs;
}

method export_attr_names of List of Relation::AttrNa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1969	2136	
==>ostrm = $meta . '/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18858	18987	
==>AD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18858	18987	
==>AD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18858	18987	
==>AD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = o <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	688	808	
==>($1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34302	34396	
==>nal operator that returns the complement of
C<semijoin> with the same argument.  This method ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38852	38946	
==>nal operator that returns the complement of
C<semijoin> with the same argument.  This method ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38331	38425	
==>nal operator that returns the complement of
C<semijoin> with the same argument.  This method ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	228	326	
==>shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	228	326	
==>shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	228	326	
==>shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3413	3500	
==>ETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE('::WithReason' => role 'Te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	841	946	
==>[0]; return \$s, \\\@match; }";
}

{
my $r = capture( 'cap', constant('a') );
print "Perl5 source:\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6902	6994	
==>paque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6902	6994	
==>paque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6902	6994	
==>paque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3934	4061	
==>@data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof',
      type => 'an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1543	1634	
==>her = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1543	1634	
==>her = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1543	1634	
==>her = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::W <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1801	1918	
==>) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1801	1918	
==>) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3023	3114	
==>$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{pre <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5225	5316	
==>$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	754	865	
==>k
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	754	865	
==>k
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	754	865	
==>k
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is <==
4	/Users/nnunley/pugs/util/func_refact.pl	2958	3063	
==>$data;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

sub score {
    my ($tot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5639	5766	
==>:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5639	5766	
==>:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5639	5766	
==>:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        unde <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	875	978	
==>n'
            and .value.does(Relation::Heading|Relation::LaxAttrList))
    )
};

subtype Relation::Lax <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23909	24021	
==>nt in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply ba <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22682	22794	
==>nt in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply ba <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23909	24021	
==>nt in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply ba <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22682	22794	
==>nt in response
  to a NOTICE message.  This rule applies to servers too - they must not send
  any error reply ba <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10471	10578	
==>mplate = HTML::Template->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl','cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5443	5539	
==>is feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5443	5539	
==>is feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5443	5539	
==>is feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6017	6140	
==>m);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetc <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6017	6140	
==>m);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	100	219	
==>s $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.t <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	100	219	
==>s $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3358	3465	
==>perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3358	3465	
==>perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3358	3465	
==>perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2575	2696	
==>y;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5778	5899	
==>y;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2575	2696	
==>y;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5778	5899	
==>y;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	826	932	
==>et_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "P <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	826	932	
==>et_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "P <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10963	11071	
==>object is a simple container which stores data to be used or
displayed by your program.  It is analagous to a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14126	14234	
==>object is a simple container which stores data to be used or
displayed by your program.  It is analagous to a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10963	11071	
==>object is a simple container which stores data to be used or
displayed by your program.  It is analagous to a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14126	14234	
==>object is a simple container which stores data to be used or
displayed by your program.  It is analagous to a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10956	11067	
==>$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10950	11061	
==>$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $pr <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	798	899	
==>efined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use i <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	798	899	
==>efined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	122	240	
==>n (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	122	240	
==>n (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	122	240	
==>n (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4766	4874	
==>type($expected) . " with " . Data::Dumper::Dumper($node);
			$self->unify_type($node, $expected);
		});

		re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	835	954	
==>uce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_thunk {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6919	7026	
==>$a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6919	7026	
==>$a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6919	7026	
==>$a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is cop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3533	3627	
==>|| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$par <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3533	3627	
==>|| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$par <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4123	4217	
==>|| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$par <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	120	213	
==>JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Message::Sim <==
4	/Users/nnunley/pugs/util/func_refact.pl	1857	1997	
==>n" if $Conf{verbose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4455	4545	
==>New::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4455	4545	
==>New::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4455	4545	
==>New::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7349	7475	
==>n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7361	7487	
==>n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21445	21542	
==>rg>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is fr <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21445	21542	
==>rg>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is fr <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10754	10866	
==>r a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10754	10866	
==>r a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7498	7638	
==>shift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0;
    last T <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	117	211	
==>se and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.o <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	106	198	
==>se and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.o <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	73	165	
==>se and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.o <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1621	1745	
==>fy;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.ci <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1621	1745	
==>fy;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.ci <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6833	6927	
==>ient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($in <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6833	6927	
==>ient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	557	660	
==>e) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	557	660	
==>e) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	557	660	
==>e) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_met <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5242	5344	
==>id  or die "error: file '$mid' not found.\n";
-f $wc   or die "error: file '$wc' not found.\n";
PrintGo <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4846	4940	
==>efer to:

   http://www.haskell.org/ghc/docs/5.04/html/building/winbuild.html
   http://www.ree <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2653	2802	
==>x', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2846	2995	
==>x', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3057	3148	
==>rns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3057	3148	
==>rns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::c <==
4	/Users/nnunley/pugs/util/version_h.pl	84	177	
==>:cwd() . "/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4813	4903	
==>EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4813	4903	
==>EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4813	4903	
==>EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3053	3172	
==>= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3053	3172	
==>= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10616	10720	
==>od emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.laz <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10616	10720	
==>od emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.laz <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9222	9340	
==>b-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9222	9340	
==>b-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!chi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2409	2524	
==>ched.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2626	2741	
==>ched.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	604	738	
==>bols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4082	4216	
==>bols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20435	20526	
==>f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usal <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20435	20526	
==>f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usal <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8856	8948	
==>ley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3785	3877	
==>ley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8856	8948	
==>ley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3785	3877	
==>ley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	320	442	
==>@{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	320	442	
==>@{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version in <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2383	2491	
==>]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trai <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2383	2491	
==>]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40135	40248	
==>ef}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40135	40248	
==>ef}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40135	40248	
==>ef}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	236	334	
==>G!!
# -----------------------------------------------

sub IDGenerate {
    my($id)='';
    for (1. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2125	2356	
==>},
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2125	2356	
==>},
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	429	521	
==>:open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	429	521	
==>:open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	221	348	
==>om_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	221	348	
==>om_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	221	348	
==>om_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3539	3651	
==>L = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    p <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5557	5656	
==>named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule si <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1239	1370	
==>et--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3535	3666	
==>et--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1239	1370	
==>et--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3535	3666	
==>et--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21833	22257	
==>,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3697	3828	
==>t appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2917	3040	
==>_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2917	3040	
==>_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2917	3040	
==>_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2536	2641	
==>e the glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2536	2641	
==>e the glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7114	7244	
==>pty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7114	7244	
==>pty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13328	13446	
==>.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13328	13446	
==>.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7002	7141	
==>- elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7002	7141	
==>- elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7002	7141	
==>- elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items s <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2024	2115	
==>f(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1641	1771	
==>l $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1641	1771	
==>l $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1641	1771	
==>l $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14556	14650	
==>saw_lone_not} >> and the line in C<< $strap->{lone_not_line} >>.

=cut

my $Report_Re = <<'REGE <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5753	5987	
==>et.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x i <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5753	5987	
==>et.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	108	206	
==>her API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plai <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	108	206	
==>her API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16612	16709	
==>d?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16612	16709	
==>d?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16612	16709	
==>d?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15477	15561	
==>(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%----------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2097	2206	
==>o', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2097	2206	
==>o', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	980	1084	
==>d a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	980	1084	
==>d a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	29	138	
==>ngs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	29	138	
==>ngs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	29	138	
==>ngs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6481	6575	
==>::opaque_instance_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Role

## - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2318	2453	
==>ame => '!=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2300	2408	
==>rgs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autodere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2300	2408	
==>rgs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autodere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2300	2408	
==>rgs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autodere <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2434	2564	
==>get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2434	2564	
==>get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2434	2564	
==>get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2435	2553	
==>{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2435	2553	
==>{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1450	1552	
==><=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1450	1552	
==><=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) { <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15426	15526	
==>desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

B <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15484	15584	
==>desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

B <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1100	1198	
==>gs>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"p <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1100	1198	
==>gs>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1778	1888	
==>ter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1918	2028	
==>ter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6637	6737	
==>sign($Result1) * floor(abs($Result1));
    return $Result4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) <==
4	/Users/nnunley/pugs/util/package-osx.pl	8331	8428	
==>3/Perl6::Tutorial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1242	1413	
==>d = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1242	1413	
==>d = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%he <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1568	1719	
==>rl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1568	1719	
==>rl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3525	3860	
==>h, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3525	3860	
==>h, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Lo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3643	3807	
==>fix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{lis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3643	3807	
==>fix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{lis <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	863	1191	
==>nstant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && -r _;
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1441	1537	
==>rams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1441	1537	
==>rams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1441	1537	
==>rams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12046	12162	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6613	6729	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12046	12162	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6613	6729	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3292	3435	
==>nt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3292	3435	
==>nt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3292	3435	
==>nt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2015	2101	
==>die::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote(printable($nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35543	35641	
==>ds array references; each of those array
references is the body of one and-branch.  We will take th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1465	1562	
==>cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1465	1562	
==>cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1465	1562	
==>cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1177	1283	
==>y $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $g <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1235	1341	
==>y $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $g <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1621	1715	
==>ick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1621	1715	
==>ick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1728	1857	
==>n string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2056	2183	
==>n string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1669	1796	
==>n string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2056	2183	
==>n string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state <==
4	/Users/nnunley/pugs/util/func_refact.pl	466	564	
==>-debug <fname> is a function to print more
information about as components are computed.
END
    ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2477	2572	
==>->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2477	2572	
==>->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2477	2572	
==>->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5659	5793	
==>e =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5671	5805	
==>e =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	733	833	
==>ame, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	733	833	
==>ame, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11642	11742	
==>the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Rem <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8789	8889	
==>the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Rem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11642	11742	
==>the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Rem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8789	8889	
==>the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Rem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7173	7298	
==>>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7173	7298	
==>>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7173	7298	
==>>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]-> <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2614	2723	
==>ript $html_location") == 0
        or die "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	588	693	
==>nnotations are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $type = $self->SUPER: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1071	1171	
==>) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1071	1171	
==>) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1071	1171	
==>) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1720	1827	
==>utoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1720	1827	
==>utoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10685	10780	
==>alues, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arb <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10685	10780	
==>alues, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	539	640	
==>x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	539	640	
==>x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	539	640	
==>x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5337	5574	
==>e {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5337	5574	
==>e {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31157	31250	
==>mple, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::G <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31157	31250	
==>mple, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::G <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	496	601	
==>version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5461	5558	
==>($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5461	5558	
==>($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5461	5558	
==>($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6092	6223	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6092	6223	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6092	6223	
==>ed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	33	136	
==>ge is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 12 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6125	6308	
==>{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6125	6308	
==>{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6125	6308	
==>{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	58	149	
==>ire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use Pugs::Utils::Interface <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2213	2315	
==>code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2213	2315	
==>code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2213	2315	
==>code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21379	21470	
==>loat_utf8       substrs->data[1].utf8_substr
 #define float_min_offset substrs->data[1].min_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5835	5945	
==>it( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $var = emit(get_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	77	170	
==>er { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_contr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	77	170	
==>er { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_contr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	77	170	
==>er { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_contr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2573	2695	
==>ss->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2573	2695	
==>ss->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2573	2695	
==>ss->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tm <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3545	3655	
==>from() + 1);
  }
  return $matchObj;
}

sub sp {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	259	414	
==>opy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	259	414	
==>opy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8640	8748	
==>apturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::In <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8636	8744	
==>apturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5835	5941	
==>re) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5835	5941	
==>re) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5835	5941	
==>re) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	959	1056	
==>my $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get_data($_[0], '$<b>'));
	return $a.'.'.$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25466	25632	
==>'$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:superclasses <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	584	692	
==>$cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<la <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	584	692	
==>$cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<la <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	584	692	
==>$cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	574	727	
==>/^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	574	727	
==>/^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	574	727	
==>/^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6193	6299	
==>lass;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8189	8289	
==>ject(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	125	220	
==>w PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	125	220	
==>w PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	125	220	
==>w PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	963	1090	
==>nc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	963	1090	
==>nc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	963	1090	
==>nc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obje <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29046	29137	
==>le> for writing test scripts, L<Benchmark> for
the underlying timing routines, and L<Devel:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6159	6265	
==>matcher( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5948	6051	
==>matcher( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low l <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	803	894	
==>dator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	803	894	
==>dator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This document <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34618	34724	
==>6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34618	34724	
==>6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34618	34724	
==>6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3157	3347	
==>=> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3157	3347	
==>=> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3157	3347	
==>=> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unle <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13804	13900	
==>plete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	402	513	
==>onstant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9855	9970	
==>ered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whites <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4288	4392	
==>d of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4288	4392	
==>d of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4288	4392	
==>d of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10217	10353	
==>=> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10217	10353	
==>=> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10217	10353	
==>=> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  s <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1740	1855	
==>ename.exe" or die "Can't write $exename.exe: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4913	5035	
==>ou must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4913	5035	
==>ou must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4913	5035	
==>ou must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPR <==
4	/Users/nnunley/pugs/util/func_refact.pl	1234	1355	
==>\n";

        candidates(\%ccset);
	#while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30376	30473	
==>) may or may not resemble those of the original. 
The anonymous function in the argument C<$transf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	207	304	
==>r::RegexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34928	35024	
==>) may or may not resemble those of the original.
The anonymous function in the argument C<$transf <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34110	34206	
==>) may or may not resemble those of the original.
The anonymous function in the argument C<$transf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	272	424	
==>ray' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2907	3007	
==>me if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2907	3007	
==>me if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2907	3007	
==>me if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6800	6906	
==>orrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6800	6906	
==>orrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6800	6906	
==>orrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4241	4382	
==>rn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4241	4382	
==>rn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	132	262	
==>data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	132	262	
==>data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4344	4486	
==>"  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4484	4626	
==>"  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7686	7770	
==>_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7744	7828	
==>_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3467	3561	
==>s> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3651	3745	
==>s> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1193	1327	
==>Pms -cz .] )   and die $?;
        system( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4296	4405	
==>lude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4296	4405	
==>lude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4296	4405	
==>lude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $ty <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6926	7018	
==>Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1366	1458	
==>Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6926	7018	
==>Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1366	1458	
==>Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	970	1066	
==>"$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Rat <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1027	1127	
==>pec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.s <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1027	1127	
==>pec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18580	18670	
==>export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18580	18670	
==>export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1121	1247	
==>lib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1121	1247	
==>lib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1418	1537	
==>s.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1418	1537	
==>s.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3622	3755	
==>name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $name = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1667	1822	
==>m);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

meth <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1667	1822	
==>m);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8449	8570	
==>continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        & <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8449	8570	
==>continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        & <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9346	9454	
==>(!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9346	9454	
==>(!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9346	9454	
==>(!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = a <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1871	1971	
==>re from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a differ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	983	1084	
==>backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	983	1084	
==>backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the ca <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3831	3929	
==>e complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3831	3929	
==>e complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	495	658	
==>dent,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // di <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	495	658	
==>dent,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // di <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1932	2027	
==>ure...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=ite <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1932	2027	
==>ure...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8947	9049	
==>om>.

This code is free software, and may be used, distributed and/or modified under 
the same terms as <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3876	3978	
==>om>.

This code is free software, and may be used, distributed and/or modified under 
the same terms as <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8947	9049	
==>om>.

This code is free software, and may be used, distributed and/or modified under 
the same terms as <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3876	3978	
==>om>.

This code is free software, and may be used, distributed and/or modified under 
the same terms as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24261	24424	
==>( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24261	24424	
==>( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24261	24424	
==>( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                retu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1972	2127	
==>ass   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, allow => DIR_EXISTS, store => \$d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10918	11064	
==>raffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10918	11064	
==>raffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<res <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	251	355	
==>simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	251	355	
==>simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2665	2770	
==>ile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2665	2770	
==>ile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2665	2770	
==>ile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17753	17867	
==>($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17753	17867	
==>($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17753	17867	
==>($value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5101	5190	
==>n'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	874	1014	
==>har => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	874	1014	
==>har => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16461	16580	
==>n $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    ret <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16461	16580	
==>n $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2124	2234	
==>$time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $b <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2124	2234	
==>$time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2727	2829	
==>n $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2727	2829	
==>n $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	739	847	
==>) returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	880	988	
==>) returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	739	847	
==>) returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	880	988	
==>) returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	590	695	
==>ESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	590	695	
==>ESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	590	695	
==>ESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    pri <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1149	1243	
==>till_day = dayify(@commits);
my @devs_till_day    = dayify(@developers);
# @devs_till_day shoul <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	332	474	
==>nt, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, ti <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	332	474	
==>nt, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, ti <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1203	1307	
==>hod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<rec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1203	1307	
==>hod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<rec <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4074	4171	
==>my $sub = $rval->val;

		Blondie::TypeSafe::Annotation->new(
			type => $sub->type,
			struct_equi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3945	4059	
==>RACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3945	4059	
==>RACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3945	4059	
==>RACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ( <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3283	3387	
==>T EDIT THIS FILE.
    This module is generated by util/PugsConfig.pm.
-}

{-|
    Pugs System Configurati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13770	13894	
==>d
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13770	13894	
==>d
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13770	13894	
==>d
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16404	16498	
==>ccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/mi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5704	5835	
==>tr = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5704	5835	
==>tr = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3307	3403	
==>mpiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3191	3283	
==>mpiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	354	454	
==>->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	354	454	
==>->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Co <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6181	6277	
==>eam> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the crypt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6181	6277	
==>eam> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the crypt <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6250	6347	
==>to a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Alth <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6250	6347	
==>to a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Alth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2054	2154	
==>!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAM <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12691	12791	
==>> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpres <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2054	2154	
==>!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2054	2154	
==>!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	172	293	
==>he value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	172	293	
==>he value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	172	293	
==>he value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { retu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20118	20208	
==>imp := &PIL2JS::Internals::use_perl5_module_imp;


# In src/perl6/Prelude.pm, prefix:<-M> d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8497	8613	
==>)
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $foot <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2108	2215	
==>set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
metho <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2108	2215	
==>set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
metho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	55	154	
==>ns;

use strict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
use Blo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	481	590	
==>};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a so <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	481	590	
==>};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a so <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	546	636	
==>RIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Has <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	546	636	
==>RIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Has <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20232	20342	
==>pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarray, subpats

    cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21920	22009	
==>MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21920	22009	
==>MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21920	22009	
==>MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	305	419	
==>turn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful si <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	305	419	
==>turn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful si <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4726	4837	
==>tion must be implemented as a runtime primitive.' .
                'No, Blondie will not have church integers a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1158	1254	
==>ply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1158	1254	
==>ply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1158	1254	
==>ply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcal <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35816	35911	
==>rgument and combines it with the
invocant relation into a new Relation, such that all common att <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2041	2136	
==>--------------------------
## adding children 

method add_child ($self: Tree $child) returns Tr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40366	40461	
==>rgument and combines it with the
invocant relation into a new Relation, such that all common att <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2041	2136	
==>--------------------------
## adding children 

method add_child ($self: Tree $child) returns Tr <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4919	5026	
==>html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub assert_ghc {
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1629	1728	
==>my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @leng <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1629	1728	
==>my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @leng <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12223	12310	
==>spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_hex_spec(char(C)) --> hexd <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	578	734	
==>*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	578	734	
==>*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6623	6728	
==>mmar::Match) contain:



### Match actually contain getters for $() and such

### getters need to know wha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6401	6503	
==>mmar::Match) contain:

### Match actually contain getters for $() and such
### getters need to know wha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11802	11997	
==>ndef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11802	11997	
==>ndef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3543	3665	
==>y'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3736	3858	
==>y'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_ch <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	312	435	
==>urlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byt <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	312	435	
==>urlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byt <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	289	396	
==>eroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_bloc <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	289	396	
==>eroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_bloc <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5875	6015	
==>Find the latest
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	583	708	
==>) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	583	708	
==>) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	583	708	
==>) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13159	13271	
==>ibute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13159	13271	
==>ibute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13159	13271	
==>ibute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attrib <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4616	4715	
==>hers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not nece <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4616	4715	
==>hers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not nece <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1619	1716	
==>perators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1619	1716	
==>perators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
mult <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4119	4218	
==>y $self = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{clas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2868	2995	
==>rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11564	11691	
==>rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3061	3188	
==>rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11843	11970	
==>rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1545	1636	
==>depth  = $parent.depth() + 1;
}

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1545	1636	
==>depth  = $parent.depth() + 1;
}

## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5107	5204	
==>han} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5107	5204	
==>han} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13305	13400	
==>re in exactly the right input format for
Document.new(), by which you can create an identical Do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13305	13400	
==>re in exactly the right input format for
Document.new(), by which you can create an identical Do <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9787	9928	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10066	10207	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	385	517	
==>val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	385	517	
==>val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16936	17073	
==>lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13357	13494	
==>lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12790	12887	
==>the fields removed.  In scalar
context the number of fields removed is returned.

Note that if you <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12790	12887	
==>the fields removed.  In scalar
context the number of fields removed is returned.

Note that if you <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12888	12999	
==>:Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12888	12999	
==>:Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12888	12999	
==>:Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11874	11987	
==>and) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runIn <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12277	12390	
==>and) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runIn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	708	801	
==>el it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENS <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	708	801	
==>el it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENS <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	171	290	
==>tput   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	171	290	
==>tput   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19284	19388	
==>ut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19284	19388	
==>ut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	759	872	
==>TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|OFF)/;
            $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	13	101	
==>nternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	13	101	
==>nternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	13	101	
==>nternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19011	19132	
==>$other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully suppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19011	19132	
==>$other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully suppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19011	19132	
==>$other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully suppo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1920	2130	
==>f ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2341	2544	
==>f ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1857	2060	
==>f ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2341	2544	
==>f ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11363	11477	
==>pe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool :$w) returns IO
            is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17085	17179	
==>TI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17085	17179	
==>TI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17085	17179	
==>TI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12224	12330	
==>.  The C hooks call for the
  sub hooks in the caller package, and thus get CORE if none are defined.

  Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4909	5005	
==>ttention
# paid to the associativity of the original operator and auto-metaed versions
# of user- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4909	5005	
==>ttention
# paid to the associativity of the original operator and auto-metaed versions
# of user- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4909	5005	
==>ttention
# paid to the associativity of the original operator and auto-metaed versions
# of user- <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	306	421	
==>rn $str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1011	1117	
==>mitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1011	1117	
==>mitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1011	1117	
==>mitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5824	5943	
==>l.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5824	5943	
==>l.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5824	5943	
==>l.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa(" <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3542	3647	
==>ls

=back

The compiler inherits L<Blondie::Reducer> in order to traverse the node
structure. The only dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12643	12788	
==>ft)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12643	12788	
==>ft)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12643	12788	
==>ft)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @l <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1535	1659	
==>$cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

metho <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1535	1659	
==>$cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

metho <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	944	1060	
==>to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("H <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	944	1060	
==>to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("H <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7869	7976	
==>t_path" if $@;
    open (my $fh,'>', $index_file) or die "Failed to open $index_file: $!";
    my @dirs  = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	619	725	
==>ck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	619	725	
==>ck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	619	725	
==>ck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells li <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4606	4725	
==>uncore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19721	19819	
==>ke the Set data type, the Relation data type is immutable.  The value of
a Relation object is deter <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24273	24371	
==>ke the Set data type, the Relation data type is immutable.  The value of
a Relation object is deter <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	386	480	
==>TABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_a <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	812	948	
==>n array that is an
                     index into the multidimensional arrays of the match
                     object, telling captures <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	812	948	
==>n array that is an
                     index into the multidimensional arrays of the match
                     object, telling captures <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	712	817	
==>last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single el <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	712	817	
==>last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single el <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4013	4096	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4254	4337	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4013	4096	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4254	4337	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2170	2275	
==>LIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	284	386	
==>31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsu <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	284	386	
==>31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3157	3253	
==>am);

=head1 DESCRIPTION

The compiler reduces an AST into an executable program. This process ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4009	4146	
==>ay > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4009	4146	
==>ay > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4009	4146	
==>ay > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17813	17915	
==>p::Parser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $npa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15751	15860	
==>turns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_diffe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19228	19337	
==>turns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_diffe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19247	19343	
==>gram would be editing them.  At
the same time, this information is in separate resource files use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19247	19343	
==>gram would be editing them.  At
the same time, this information is in separate resource files use <==
4	/Users/nnunley/pugs/util/package-osx.pl	702	808	
==>e/parrot
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2008	2105	
==>_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2008	2105	
==>_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2008	2105	
==>_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1877	1989	
==>hift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":") <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1877	1989	
==>hift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":") <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5642	5748	
==>ype'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5642	5748	
==>ype'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15522	15638	
==>ce) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    } <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15522	15638	
==>ce) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16187	16281	
==>_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16187	16281	
==>_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4389	4491	
==>?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4389	4491	
==>?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5262	5361	
==>?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5262	5361	
==>?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1451	1572	
==>_wrap_code_with_package($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{de <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1647	1758	
==>t of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5124	5235	
==>t of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4054	4165	
==>t of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tup <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15616	15716	
==>to store Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a level lower than wha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22517	22608	
==>turn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22517	22608	
==>turn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8497	8596	
==>are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, yo <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8497	8596	
==>are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17753	17844	
==>additional runtime penalty after compilation, because C<perl> has
already been doing the C<. <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17753	17844	
==>additional runtime penalty after compilation, because C<perl> has
already been doing the C<. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4535	4634	
==>ol::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Tim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4535	4634	
==>ol::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Tim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4535	4634	
==>ol::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Tim <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2654	2750	
==>rminated by () [] :: as in :z()not :z[]not :z::not
rule metasyntactic_token { \:\w\S+ }

rule com <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31111	31209	
==>ed without any delimiter.  This means,
for example, that the full module names in a set could be ei <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31111	31209	
==>ed without any delimiter.  This means,
for example, that the full module names in a set could be ei <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2416	2512	
==>h a number of bytes and throwing the return value away.
Encryptions after this point will be usin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2416	2512	
==>h a number of bytes and throwing the return value away.
Encryptions after this point will be usin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	231	480	
==>tr %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	231	480	
==>tr %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_t <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1678	1798	
==>f: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1678	1798	
==>f: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	530	648	
==>onstruct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	530	648	
==>onstruct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2538	2634	
==>: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2538	2634	
==>: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() retu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9135	9251	
==>mName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	599	701	
==>tput.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	599	701	
==>tput.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	599	701	
==>tput.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2869	2978	
==>],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckTail {
   my ($scr) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1297	1388	
==>sBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1297	1388	
==>sBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1297	1388	
==>sBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1531	1640	
==>w => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) or error <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2276	2371	
==>ction () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2276	2371	
==>ction () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2276	2371	
==>ction () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8987	9112	
==>$other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9785	9910	
==>$other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10694	10819	
==>$other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11520	11645	
==>$other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the headi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5197	5321	
==>create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6959	7083	
==>create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20375	20474	
==>slowly; you should only use Example
for testing, development, and study; you should not use it in pr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20375	20474	
==>slowly; you should only use Example
for testing, development, and study; you should not use it in pr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2678	2787	
==>ig{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7160	7266	
==>type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7160	7266	
==>type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7160	7266	
==>type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	278	366	
==>:Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	278	366	
==>:Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	278	366	
==>:Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17349	17505	
==>mp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17349	17505	
==>mp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17349	17505	
==>mp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->ite <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	595	723	
==>e}{single_quoted};
        $category =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26468	26575	
==>head2 Parser Methods

=over 4

=item my $obj = $parser->object(TYPE => ARGS...)

This creates a node of pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	241	336	
==>, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	241	336	
==>, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	241	336	
==>, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-tim <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2297	2404	
==>$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$self->bundles};
    }

    if (my $per <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	150	245	
==>specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	150	245	
==>specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19481	19576	
==>,F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - excess caution
  M = [S <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10616	10783	
==>tCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )

 multi  List::sort(  SortCriterion  @b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2866	2975	
==>guous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2866	2975	
==>guous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2866	2975	
==>guous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_str <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	197	302	
==>r(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:k <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	197	302	
==>r(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:k <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13194	13290	
==>et a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13194	13290	
==>et a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8321	8435	
==>ssertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	479	593	
==>ssertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8041	8152	
==>ssertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	456	567	
==>ssertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	923	1040	
==>t of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represent <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4401	4518	
==>t of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represent <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7582	7685	
==>asechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@base <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7582	7685	
==>asechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@base <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6568	6668	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5698	5798	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6568	6668	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5698	5798	
==>et $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators for i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10900	11048	
==>{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1690	1820	
==>($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1080	1183	
==>}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1080	1183	
==>}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblec <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2981	3129	
==>= sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round = round_up_symmetric($x);
                $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1792	1895	
==>",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1792	1895	
==>",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1792	1895	
==>",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22090	22182	
==>m>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20971	21063	
==>m>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22090	22182	
==>m>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20971	21063	
==>m>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever the messa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37200	37296	
==>odule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37439	37535	
==>odule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37200	37296	
==>odule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37439	37535	
==>odule_name! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15351	15452	
==>c?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15409	15510	
==>c?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mult <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19265	19383	
==>off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15686	15804	
==>off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3188	3308	
==>$S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3297	3398	
==>f, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
})) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3297	3398	
==>f, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
})) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3297	3398	
==>f, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
})) <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1065	1166	
==>rate html files for the perl6 design docs (faster)
    --output_dir    Output Directory to put the htm <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1752	1897	
==>);
  });

  # bol, mbol, sbol
  $self->add_handler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2073	2170	
==>t->type;
	my $to = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3976	4067	
==>ads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3976	4067	
==>ads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3976	4067	
==>ads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	808	935	
==>_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3550	3653	
==>ouldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3550	3653	
==>ouldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3550	3653	
==>ouldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1935	2043	
==>in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env();

## --- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3903	3997	
==>ulti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packag <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3903	3997	
==>ulti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packag <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3903	3997	
==>ulti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packag <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1587	1682	
==>:= not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1645	1740	
==>:= not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1159	1250	
==>ess $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1159	1250	
==>ess $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	376	518	
==>my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	860	1002	
==>my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	276	416	
==>my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \ <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	485	618	
==>tack.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop() er <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10838	10934	
==>$set += (1,2,3,4);

Note that in this instance, the information about how many members
were actua <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10838	10934	
==>$set += (1,2,3,4);

Note that in this instance, the information about how many members
were actua <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20016	20103	
==>ame, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_au <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20016	20103	
==>ame, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_au <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2789	2912	
==>oxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2789	2912	
==>oxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2789	2912	
==>oxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function () <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13349	13454	
==>ase create a $initrd_mnt/dev/console by entering the following command
      as root:
      # mknod $initr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6126	6242	
==>) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16109	16225	
==>) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9603	9719	
==>) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19586	19702	
==>) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1658	1787	
==>endency.  Please wait...\n\n";

        system("../../Setup$Config{_exe}", 'build');
        system("../../Setup$Config{_exe}", 'i <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	482	577	
==>", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys % <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	482	577	
==>", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys % <==
4	/Users/nnunley/pugs/util/package-osx.pl	1834	1923	
==>sr/local/lib/perl5/site_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs.pl
        / <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	872	973	
==>:Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->po <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21098	21196	
==>me
degree, and the attribute names of each tuple are all the same as those of
all the other tuples. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25650	25748	
==>me
degree, and the attribute names of each tuple are all the same as those of
all the other tuples. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24265	24363	
==>me
degree, and the attribute names of each tuple are all the same as those of
all the other tuples. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	49	178	
==>ct;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	49	178	
==>ct;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	49	178	
==>ct;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1453	1583	
==>V<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.quer <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1453	1583	
==>V<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.quer <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14289	14384	
==>"WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14289	14384	
==>"WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	564	772	
==>LSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Wor <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	564	772	
==>LSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Wor <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13399	13496	
==>-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13399	13496	
==>-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14377	14472	
==>s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14377	14472	
==>s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14377	14472	
==>s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unli <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2868	2969	
==>erl list
    Eager       Non-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1221	1316	
==>('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1221	1316	
==>('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1221	1316	
==>('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	109	227	
==>ss = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	109	227	
==>ss = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	108	216	
==>:concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	108	216	
==>:concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11618	11764	
==>' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11618	11764	
==>' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11618	11764	
==>' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10532	10659	
==>e} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $s <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6134	6266	
==>rators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4636	4768	
==>rators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10023	10129	
==>fference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.compl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10023	10129	
==>fference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.compl <==
4	/Users/nnunley/pugs/util/package-osx.pl	8301	8407	
==>3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm
        / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2387	2479	
==>ue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2387	2479	
==>ue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2387	2479	
==>ue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Has <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5580	5679	
==>them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test pl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5580	5679	
==>them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test pl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7104	7203	
==>them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test pl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22602	22687	
==>(E0),
   code_type(C,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_lower <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2182	2296	
==>} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2182	2296	
==>} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2182	2296	
==>} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13304	13396	
==>odo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13362	13454	
==>odo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4498	4678	
==>tches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4361	4532	
==>tches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2755	2849	
==>($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2755	2849	
==>($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    set <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	185	295	
==>use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	185	295	
==>use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19928	20025	
==>.  In scalar context it will
return I<"uname:password"> as a single string value.

When used to se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19928	20025	
==>.  In scalar context it will
return I<"uname:password"> as a single string value.

When used to se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36636	36732	
==>tical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41185	41281	
==>tical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40808	40904	
==>tical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11554	11650	
==>'> <StrUnsignedDecimalLiteral>
}
rule StrUnsignedDecimalLiteral {  # see 9.3.1
      <'Infinity'> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17438	17663	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23404	23629	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17717	17942	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23683	23908	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10980	11078	
==>..)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8384	8482	
==>..)>

Removes the specified items from the set. Returns the number of items removed.

It is not fat <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10980	11078	
==>..)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fat <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8384	8482	
==>..)>

Removes the specified items from the set. Returns the number of items removed.

It is not fat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6851	6988	
==>t_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11406	11543	
==>t_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12204	12341	
==>t_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12931	13068	
==>t_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALL <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15193	15288	
==>mething
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15251	15346	
==>mething
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	252	343	
==>()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	252	343	
==>()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1514	1646	
==>de must be a core type";    
    return num->new($left->to_native * $right->to_num->to_native());
}

sub divide {
    my ($left, $rig <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7380	7484	
==>t ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7438	7542	
==>t ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5060	5243	
==>n >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5060	5243	
==>n >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3827	3917	
==>blech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 S <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3827	3917	
==>blech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 S <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5607	5763	
==>ay: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5607	5763	
==>ay: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20875	21003	
==>send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43799	43927	
==>send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8377	8478	
==>egexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1794	1894	
==>dify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1794	1894	
==>dify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1794	1894	
==>dify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} va <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	623	729	
==><.ref> method, which is available on any type, boxed or unboxed.

These objects are what you get from C<::S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	915	1019	
==>}->set('$?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnings;

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5706	5805	
==>s   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5706	5805	
==>s   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5706	5805	
==>s   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o tes <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4932	5060	
==>self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4932	5060	
==>self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	877	973	
==>ming 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between en <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	877	973	
==>ming 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between en <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2669	2866	
==>e - 1);
                }
            },

            'array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                push @{$self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6273	6389	
==>5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Du <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6273	6389	
==>5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Du <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	465	557	
==>in here (note: same author as the first scheme code):

  http://okmij.org/ftp/Scheme/oop-in-f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4	106	
==>warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4	106	
==>warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4	106	
==>warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval() <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10791	10900	
==>s $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{data}[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5514	5614	
==>UB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5514	5614	
==>UB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5514	5614	
==>UB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3814	3930	
==>to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3678	3790	
==>to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Gr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37696	37788	
==>on::Example>

This method is a generic relational operator that takes a single Relation::Exam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38536	38628	
==>on::Example>

This method is a generic relational operator that takes a single Relation::Exam <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	274	374	
==>nt {
   Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12344	12443	
==>nt time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12344	12443	
==>nt time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2506	2597	
==>ass should not inherit from Perl6::Value::List, because this would
# cause multi-dimensional <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2506	2597	
==>ass should not inherit from Perl6::Value::List, because this would
# cause multi-dimensional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1033	1138	
==>lized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1033	1138	
==>lized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1033	1138	
==>lized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	820	917	
==>erl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	820	917	
==>erl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	243	339	
==>ugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	243	339	
==>ugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use P <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6856	7025	
==>icense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6913	7082	
==>icense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9633	9730	
==>ns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Arr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9633	9730	
==>ns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Arr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4908	5011	
==>ject(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	558	664	
==>@$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	558	664	
==>@$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	558	664	
==>@$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6799	6928	
==>t(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6799	6928	
==>t(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6799	6928	
==>t(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2797	2906	
==>ss $self->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6618	6710	
==>2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 20 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6618	6710	
==>2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 20 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6618	6710	
==>2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 20 <==
4	/Users/nnunley/pugs/util/fixauthors.pl	147	257	
==>my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4253	4354	
==>ion form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4253	4354	
==>ion form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4253	4354	
==>ion form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1561	1676	
==>-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1561	1676	
==>-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1561	1676	
==>-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8819	8924	
==>atchObjPos = -1;
  return ( $matchObj );

  ternary_error:
  $matchObjPos = -1;
  die "Missing ternary clo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1511	1653	
==>er => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => 'eval',
        assoc => 'left',
        precedence => 'equal',
        o <==
4	/Users/nnunley/pugs/util/func_refact.pl	2789	2912	
==>a}})}
        keys %cands;

    # prompt the user
    # return list of newly selected functions
}

sub print_cand {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2468	2583	
==>s_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($new <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2468	2583	
==>s_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($new <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	984	1125	
==>r eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $ch <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	984	1125	
==>r eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $ch <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3154	3265	
==>d it.
END

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29721	29821	
==>g, or walking the tree.

You can also set this attribute by passing a value.

=item my $q = $obj->qr( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18975	19099	
==>truct regexp {

=head2 The regular expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14817	14912	
==>:Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14817	14912	
==>:Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14817	14912	
==>:Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8457	8596	
==>@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF var <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8457	8596	
==>@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF var <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8457	8596	
==>@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF var <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3995	4090	
==>parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inli <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3995	4090	
==>parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inli <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3995	4090	
==>parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inli <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11105	11193	
==>ore

p6_simple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_escape_sequ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1149	1284	
==>oop_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4955	5084	
==>ile or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7789	7889	
==>e invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7789	7889	
==>e invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7789	7889	
==>e invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprint <==
4	/Users/nnunley/pugs/util/importgraph.pl	2043	2127	
==>qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Program');
setup_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8325	8442	
==>tion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	483	600	
==>tion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8045	8159	
==>tion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	460	574	
==>tion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1174	1280	
==>($event)) }, *@subscriptions;
    }
    
    method get_subscriptions (Class::Events::Publisher $publisher, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2450	2547	
==>urn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2450	2547	
==>urn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2450	2547	
==>urn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5520	5670	
==>lue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5520	5670	
==>lue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5520	5670	
==>lue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ? <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1339	1482	
==>ension for meta files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Config{installsitelib} <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1088	1212	
==>return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1088	1212	
==>return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14463	14558	
==>ctions, though).
The Node class is pure and deterministic, such that all of its class and
object <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14463	14558	
==>ctions, though).
The Node class is pure and deterministic, such that all of its class and
object <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14032	14147	
==>);
    for WALKCLASS($dispatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$attr-> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8743	8857	
==>previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8743	8857	
==>previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13237	13395	
==>= 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13231	13389	
==>= 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3864	3984	
==>key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3864	3984	
==>key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (:: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3320	3487	
==>gs) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork(' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3320	3487	
==>gs) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork(' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24466	24562	
==>ftware; you can redistribute it and/or modify it under
the terms of the GNU General Public Licens <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24466	24562	
==>ftware; you can redistribute it and/or modify it under
the terms of the GNU General Public Licens <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20627	20726	
==>e bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to jo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19553	19652	
==>e bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20627	20726	
==>e bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19553	19652	
==>e bot has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to jo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37217	37332	
==>self->add_handler('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1212	1309	
==>sed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1212	1309	
==>sed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1212	1309	
==>sed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2118	2413	
==>arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hello there";
                            $body[-1] .= $statement;
                        }
                        els <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1861	1966	
==>&& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1861	1966	
==>&& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1861	1966	
==>&& (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4563	4677	
==>t close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4563	4677	
==>t close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4563	4677	
==>t close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8771	8869	
==>ct(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4036	4129	
==>stance, passing on the C<$description> parameter and setting the passed
parameter to a false v <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4036	4129	
==>stance, passing on the C<$description> parameter and setting the passed
parameter to a false v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6233	6326	
==>stance, passing on the C<$description> parameter and setting the passed
parameter to a false v <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5330	5421	
==>nd.\n";
PrintGolfScore($head, $tail, $rev, $mid, $wc);
CheckHead($head);
CheckTail($tail);
C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5026	5149	
==>t @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16062	16185	
==>t @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17550	17673	
==>t @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22233	22356	
==>t @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5831	5941	
==>ject(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->add_handler('\W' => sub {
    my ( <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11465	11556	
==>colspan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smoke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	578	687	
==>e?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates

  (li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	551	654	
==>e?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates
  (li <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10146	10248	
==>"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
    }
    return join( " ", @existing_switches, @deri <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	424	512	
==>lass JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	470	574	
==>e};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	470	574	
==>e};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	470	574	
==>e};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36757	36853	
==>F<Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative look-ahead.

  pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11675	11772	
==>le};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11675	11772	
==>le};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11675	11772	
==>le};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6861	6948	
==>n_method('another_singleton_test_on_object' => sub { 
   '&Object::another_singleton_tes <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4293	4413	
==>round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = floor($x);

    return $x_round;
}

our Int multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4432	4532	
==>open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4432	4532	
==>open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4432	4532	
==>open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2266	2383	
==>roto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $fil <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2266	2383	
==>roto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $fil <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6253	6362	
==>"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6253	6362	
==>"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3169	3335	
==>> $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12907	13012	
==>e::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12907	13012	
==>e::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12907	13012	
==>e::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3668	3767	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3668	3767	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3668	3767	
==>ni_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelud <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34678	34769	
==>__object__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1765	1880	
==>t'}      = [ Path::Class::file('files.list')     ];
$config{'_control'}         = [ control         => SUBDIR_OF_MET <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1857	1950	
==>njs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1857	1950	
==>njs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1857	1950	
==>njs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js { <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15421	15535	
==>~~ rx:P5/^Item/ {
    #    $res = Pugs::Internals::localtime(Bool::True, $sec, $pico);
    #} else {
        my @tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6500	6612	
==>opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6500	6612	
==>opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6500	6612	
==>opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7325	7416	
==>Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.l <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7325	7416	
==>Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3240	3328	
==>__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use Pad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3240	3328	
==>__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use Pad <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6985	7083	
==>eturn $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($sp <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3273	3371	
==>_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $de <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6985	7083	
==>eturn $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($sp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3331	3429	
==>_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7984	8130	
==>s => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7984	8130	
==>s => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7984	8130	
==>s => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	399	494	
==>e limited superficial success proved
# straightforward, a more robust solution would be far more <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14112	14247	
==>};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14112	14247	
==>};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14112	14247	
==>};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26724	26836	
==>");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t pair(10)");
is(t($p <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1071	1180	
==>.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=k <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1071	1180	
==>.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=k <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1744	1839	
==>akes as parameters at least C<rate of information> in
items per second and C<burst size> in item <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1744	1839	
==>akes as parameters at least C<rate of information> in
items per second and C<burst size> in item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2780	2895	
==>{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2780	2895	
==>{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2780	2895	
==>{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        un <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5059	5160	
==>T);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2771	2867	
==>DO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2771	2867	
==>DO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2771	2867	
==>DO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return v <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6801	6896	
==>@_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3659	3780	
==>ler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1426	1528	
==>nostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $di <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1426	1528	
==>nostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1506	1608	
==>nostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $di <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	35	143	
==>n-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constr <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	35	143	
==>n-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	8	104	
==>mon/p6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-regex p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	8	102	
==>mon/p6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-regex p <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	43	154	
==>.7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	LAST {
		print $potato, "more.";
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	388	490	
==>spugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	388	490	
==>spugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	388	490	
==>spugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1525	1640	
==>]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1513	1628	
==>]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5644	5751	
==>head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return P <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5644	5751	
==>head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2777	2873	
==>piler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<V <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2777	2873	
==>piler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<V <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11807	11902	
==>fix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11865	11960	
==>fix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11085	11241	
==>?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1559	1699	
==>?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1559	1699	
==>?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	63	160	
==>:Harness::Assert;

use strict;
require Exporter;
use vars qw($VERSION @EXPORT @ISA);

$VERSION = ' <==
4	/Users/nnunley/pugs/util/build_pugs.pl	353	468	
==>:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs executable

This sc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31210	31306	
==>hich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35760	35856	
==>hich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34978	35074	
==>hich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3049	3187	
==>w {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3049	3187	
==>w {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3049	3187	
==>w {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7718	7823	
==>e = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CCLASS_WORD, target, pos, las <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9077	9187	
==>$set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9077	9187	
==>$set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	12	118	
==>ule Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_ele <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	12	118	
==>ule Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14742	14917	
==>urn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14742	14917	
==>urn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14742	14917	
==>urn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24429	24538	
==>e N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  push @ISA, qw( Regexp::Parser::__objec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4619	4740	
==>)))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4841	4962	
==>)))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3284	3403	
==>)))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3284	3403	
==>)))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1378	1518	
==>t);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->a <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1378	1518	
==>t);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->a <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10686	10779	
==>ey) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10686	10779	
==>ey) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13715	13839	
==>Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2179	2281	
==>{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2179	2281	
==>{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2179	2281	
==>{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5098	5233	
==>now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5098	5233	
==>now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5098	5233	
==>now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provi <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12936	13041	
==>se qw/Reducer DynamicScopes/;

sub new {
    bless { params => undef, param_stack => [] }, shift;
}

sub r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	698	873	
==>$code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	698	873	
==>$code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	698	873	
==>$code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($st <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4316	4414	
==>il_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4623	4746	
==>$name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4635	4758	
==>$name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19052	19162	
==>be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19052	19162	
==>be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1308	1407	
==>ink and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1308	1407	
==>ink and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1308	1407	
==>ink and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25841	25945	
==>ol new @:subclasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('su <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30874	30967	
==>where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35424	35517	
==>where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34615	34708	
==>where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16238	16347	
==>"$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.or <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16238	16347	
==>"$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.or <==
4	/Users/nnunley/pugs/util/importgraph.pl	245	347	
==>ngs;
use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1838	1931	
==>(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_cal <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3214	3307	
==>(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_cal <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29618	29725	
==>YAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29618	29725	
==>YAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	422	517	
==>YAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	943	1065	
==>et)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	943	1065	
==>et)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machin <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	839	943	
==>) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variabl <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	839	943	
==>) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variabl <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10146	10296	
==>gs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ para <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10146	10296	
==>gs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ para <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19481	19573	
==>er must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorizati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19481	19573	
==>er must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorizati <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24438	24535	
==>rmation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24438	24535	
==>rmation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21406	21500	
==>trijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21406	21500	
==>trijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10120	10280	
==>number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot ski <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2171	2313	
==>number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot ski <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2171	2313	
==>number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot ski <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35750	35861	
==>d to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx}->object(i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	504	639	
==>HS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	504	639	
==>HS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	504	639	
==>HS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2015	2122	
==>e {
	my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSaf <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	44	171	
==>r_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worke <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	44	171	
==>r_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worke <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9685	9769	
==>_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	237	373	
==>thod calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

and maybe

    \(...)
    ^T

=head1 See also

=cut

# TODO - implement <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	159	260	
==>f(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	159	260	
==>f(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	159	260	
==>f(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15137	15262	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15137	15262	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15137	15262	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	580	702	
==>events;

    my $callback = shift @:events;
    return $callback();
  }

  method run () {
    while @:events {
      ./:st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4858	4986	
==>a([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15894	16022	
==>a([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17382	17510	
==>a([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22065	22193	
==>a([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17063	17182	
==>queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17063	17182	
==>queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => { <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1305	1399	
==>e
continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1305	1399	
==>e
continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2091	2199	
==>ther.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2091	2199	
==>ther.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23160	23253	
==>ss in english text and they translate it, which could
produce ambiguous results or association <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23160	23253	
==>ss in english text and they translate it, which could
produce ambiguous results or association <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2046	2165	
==>= $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1165	1262	
==>sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	904	996	
==>sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1109	1201	
==>sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2875	3144	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2875	3144	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # cla <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33881	33977	
==>ys what
language they prefer to communicate in, and what their backup choices are,
in order, if p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33881	33977	
==>ys what
language they prefer to communicate in, and what their backup choices are,
in order, if p <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1312	1405	
==>nuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1312	1405	
==>nuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11470	11558	
==>der.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11470	11558	
==>der.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6902	6996	
==>he I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=ov <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6902	6996	
==>he I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=ov <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2494	2610	
==>te"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è', <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2494	2610	
==>te"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è', <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	844	941	
==>>[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	844	941	
==>>[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5332	5473	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5748	5889	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5344	5485	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5760	5901	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4052	4183	
==>mar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Compiler::Regex->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2003	2098	
==>}, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2003	2098	
==>}, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2003	2098	
==>}, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} typ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3299	3396	
==>>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object-O <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3299	3396	
==>>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object-O <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25448	25544	
==>g_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
repre <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25448	25544	
==>g_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
repre <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1392	1564	
==>sts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1392	1564	
==>sts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1676	1775	
==>key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1676	1775	
==>key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16832	16952	
==>::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16832	16952	
==>::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16832	16952	
==>::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1500	1614	
==>MAR: \$grammar', \"\\n\";\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2438	2569	
==>ew PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2438	2569	
==>ew PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2438	2569	
==>ew PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.g <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16201	16305	
==>in->("ref") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_object <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4200	4312	
==>lags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4417	4529	
==>lags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        prin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26553	26646	
==>ssage constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26553	26646	
==>ssage constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1525	1633	
==>nf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1525	1633	
==>nf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1525	1633	
==>nf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0] <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1929	2029	
==>$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24374	24511	
==>[a..zA..Z]>
}
rule uriMark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2925	3056	
==>ributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2925	3056	
==>ributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2925	3056	
==>ributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label)) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1529	1638	
==>->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $self->makemaker_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6436	6535	
==>sif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6436	6535	
==>sif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6436	6535	
==>sif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	362	460	
==>m = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	362	460	
==>m = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	362	460	
==>m = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pri <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1884	1973	
==>head2 C<post(POE::Session $session, Str $event, *@args)>

Calls C<$session>'s C<$event> ev <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35255	35352	
==>or that is identical
to C<join> except that this method will fail if any of its source Relations
h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39805	39902	
==>or that is identical
to C<join> except that this method will fail if any of its source Relations
h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39365	39462	
==>or that is identical
to C<join> except that this method will fail if any of its source Relations
h <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47392	47537	
==>('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new('STORE'),
    # method bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19104	19202	
==>MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19104	19202	
==>MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19104	19202	
==>MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2009	2163	
==>temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp di <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3539	3688	
==>temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp di <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	980	1093	
==>($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	980	1093	
==>($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20583	20678	
==>bjects.  All of
their class/object attributes are private, so you must use accessor
methods.  Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25135	25230	
==>bjects.  All of
their class/object attributes are private, so you must use accessor
methods.  Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23705	23800	
==>bjects.  All of
their class/object attributes are private, so you must use accessor
methods.  Re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4015	4110	
==>binding
it to $x. Then the app is reduced. First its children will be reduced -
Sym('&infix:<+>' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1417	1540	
==>=> \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' 'name2' \n" .
        "\t{ \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	53	142	
==>) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	53	142	
==>) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	53	142	
==>) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16577	16725	
==>>do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4382	4499	
==>@_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4382	4499	
==>@_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4382	4499	
==>@_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	559	669	
==>ypes; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $par <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	559	669	
==>ypes; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $par <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3793	3893	
==>Assign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3793	3893	
==>Assign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2916	3032	
==>r this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2916	3032	
==>r this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!head <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	953	1054	
==>DO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems( <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	953	1054	
==>DO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	441	554	
==>uperclasses')->to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are lineariz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	61	168	
==>my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	61	168	
==>my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	61	168	
==>my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self-> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1399	1510	
==>-s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to creat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	630	732	
==>ped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	630	732	
==>ped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	630	732	
==>ped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1863	2020	
==>',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	502	605	
==>}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	502	605	
==>}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12617	12715	
==>e:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12617	12715	
==>e:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15618	15730	
==>r $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => - <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15618	15730	
==>r $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6456	6595	
==>(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error in Expression: . <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3819	3930	
==>n :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=he <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3819	3930	
==>n :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5343	5454	
==>n :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=he <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1880	1975	
==>ires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1843	1938	
==>ires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1880	1975	
==>ires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1843	1938	
==>ires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2176	2278	
==>:Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule-> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4859	4956	
==>ster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftov <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4859	4956	
==>ster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftov <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6902	6995	
==>::DuplicateFinder->new;
	$self->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3358	3449	
==>{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3358	3449	
==>{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3358	3449	
==>{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2320	2459	
==>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2679	2793	
==>" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2679	2793	
==>" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2679	2793	
==>" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	559	656	
==>ubname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	559	656	
==>ubname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	559	656	
==>ubname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->un <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5223	5352	
==>skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reas <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5281	5410	
==>skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5991	6116	
==>[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5979	6104	
==>[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	746	885	
==>attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	746	885	
==>attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	746	885	
==>attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	617	718	
==>:Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->po <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7943	8050	
==>o translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7955	8062	
==>o translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1330	1423	
==><perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

The <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1330	1423	
==><perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

The <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	229	331	
==>(    shift() )  };
use constant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir(shift() ) };
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	933	1024	
==>JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	933	1024	
==>JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	933	1024	
==>JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelud <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1644	1784	
==>match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1644	1784	
==>match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debu <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2149	2257	
==>ens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2149	2257	
==>ens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8311	8447	
==>ent {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5245	5363	
==>s[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5245	5363	
==>s[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5245	5363	
==>s[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->ge <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12780	12874	
==>$string, ... )

This routine replaces HTML entities found in the $string with the
corresponding <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12780	12874	
==>$string, ... )

This routine replaces HTML entities found in the $string with the
corresponding <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31232	31324	
==>::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if yo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31232	31324	
==>::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if yo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1051	1172	
==>s) = @_;
    # Do not try to microoptimize by factoring out the "not ".
    # VMS will avenge.
    my $out;
    if ($name) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1329	1425	
==>ER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1329	1425	
==>ER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7049	7139	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11797	11882	
==>(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11797	11882	
==>(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11797	11882	
==>(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1586	1696	
==>_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1586	1696	
==>_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_en <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	260	366	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	260	366	
==>nion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16518	16710	
==>y->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16518	16710	
==>y->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16518	16710	
==>y->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	612	714	
==>ct = eval { LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_from_struct( struct => <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5013	5163	
==>can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4872	5022	
==>can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10576	10666	
==>Rosetta::Model Nodes are arranged correctly
depending on their types, that their attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10576	10666	
==>Rosetta::Model Nodes are arranged correctly
depending on their types, that their attributes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7650	7762	
==>ding );

    return Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	446	539	
==>ti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	446	539	
==>ti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	446	539	
==>ti sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	150	269	
==>sors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $match <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4361	4449	
==>----------------------------------------------------
## BOOTSTRAPPING Roles
## ---------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4384	4472	
==>-----------------------------
## BOOTSTRAPPING Roles
## --------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4407	4495	
==>------
## BOOTSTRAPPING Roles
## -------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3700	3808	
==>e) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3700	3808	
==>e) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCO <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4392	4499	
==>tch this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7869	7976	
==>tch this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14156	14302	
==>],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14435	14581	
==>],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2451	2551	
==>ncore}       = pugspath2runcore($1);
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5538	5637	
==>l 6 Rule categories.  

The module is still very unstable, and the algorithm is not optimized for sp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1076	1249	
==>|
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table = $tab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3362	3460	
==>$b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3362	3460	
==>$b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3362	3460	
==>$b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28884	29003	
==>App.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28884	29003	
==>App.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	251	358	
==>App.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1384	1489	
==>ll_day;

# Create the graph.
my $graph = GD::Graph::lines->new(500, 350);
$graph->set(
  title        => " <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17659	17755	
==>ase systems often refer to an error condition by an
internal code which is guaranteed to be uniqu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17659	17755	
==>ase systems often refer to an error condition by an
internal code which is guaranteed to be uniqu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2206	2298	
==>::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2295	2387	
==>::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the b <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6439	6546	
==>tpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6439	6546	
==>tpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10169	10279	
==>$key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10169	10279	
==>$key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10169	10279	
==>$key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { P <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1358	1437	
==>ias>|<numbered_scalar_alias>|<array_alias>|<hash_alias>|<external_scalar_alias>| <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4960	5136	
==>ed $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4960	5136	
==>ed $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3206	3334	
==>n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $fl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3346	3474	
==>n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2664	2788	
==>5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2664	2788	
==>5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2664	2788	
==>5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = pr <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6896	7001	
==>{ -r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8673	8765	
==>her API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Dig <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8673	8765	
==>her API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Dig <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	452	543	
==>ization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protoco <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	452	543	
==>ization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protoco <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6742	6839	
==>rgs);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31557	31726	
==>$e = shift;
                $e->create('$counter' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6873	6965	
==>cher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6873	6965	
==>cher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6873	6965	
==>cher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3312	3421	
==>ss: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3312	3421	
==>ss: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3312	3421	
==>ss: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclas <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9007	9106	
==>$y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die "trying to unify incompatible ty <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11094	11217	
==>discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11094	11217	
==>discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $v <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3086	3190	
==>pan::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

metho <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3086	3190	
==>pan::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

metho <==
4	/Users/nnunley/pugs/util/importgraph.pl	1004	1120	
==>ort|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $fh;

  unless (defined $module_name) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1457	1554	
==>mber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1457	1554	
==>mber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1457	1554	
==>mber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4723	4847	
==>ound_away_from_zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, round floor below 0
    if $x < 0 {
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1946	2058	
==>@_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1628	1736	
==>@_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2276	2384	
==>@_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1709	1824	
==>de($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1709	1824	
==>de($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1709	1824	
==>de($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	127	225	
==>ilder->STORE('::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9934	10066	
==>or = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9934	10066	
==>or = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9934	10066	
==>or = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return re <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	370	486	
==>$space = "" if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $segil != 0) {
#	$s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3482	3597	
==>s ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj).': <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	909	1007	
==>_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	909	1007	
==>_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	909	1007	
==>_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1073	1185	
==>t match (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # upda <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1424	1534	
==>t match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upda <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1031	1141	
==>t match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upda <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1424	1534	
==>t match (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # upda <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	39	141	
==>ict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside st <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	32	189	
==>-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	32	189	
==>-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	33	178	
==>-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	33	178	
==>-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4332	4525	
==>Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4332	4525	
==>Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2116	2231	
==>trol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2116	2231	
==>trol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my me <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	973	1227	
==>y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	941	1072	
==>ent.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	941	1072	
==>ent.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	941	1072	
==>ent.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.ch <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	220	322	
==>{...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
no <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	220	322	
==>{...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
no <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21737	21829	
==>ot I<Database Language
Independence>.  To further demonstrate the difference, it is useful to <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21737	21829	
==>ot I<Database Language
Independence>.  To further demonstrate the difference, it is useful to <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6560	6692	
==>on";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep /^-opt/, @_;
    push @libs, grep /^-[lL]/, @_;
    push @libs, grep <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1025	1125	
==>infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1025	1125	
==>infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1025	1125	
==>infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2425	2519	
==>run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2425	2519	
==>run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2425	2519	
==>run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16810	16927	
==>ti Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16570	16683	
==>/(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16570	16683	
==>/(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16570	16683	
==>/(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1395	1580	
==>ck.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8892	9014	
==>l the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8892	9014	
==>l the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8892	9014	
==>l the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15270	15498	
==>'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15270	15498	
==>'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15270	15498	
==>'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaq <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21640	21751	
==>s {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	181	280	
==>ional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	237	336	
==>ional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	181	280	
==>ional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	237	336	
==>ional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1153	1276	
==>,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1153	1276	
==>,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	408	492	
==>ate authorization proxy_authorization authorization_basic proxy_authorization_basic
 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	408	492	
==>ate authorization proxy_authorization authorization_basic proxy_authorization_basic
 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28248	28345	
==>rsion of this object which is suitable
for debugging purposes (such as to test that the object's c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35604	35701	
==>rsion of this object which is suitable
for debugging purposes (such as to test that the object's c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28248	28345	
==>rsion of this object which is suitable
for debugging purposes (such as to test that the object's c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35604	35701	
==>rsion of this object which is suitable
for debugging purposes (such as to test that the object's c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38242	38349	
==>}
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38242	38349	
==>}
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38242	38349	
==>}
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $ar <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2715	2810	
==>goes on step further and Curries approxfprime with the user supplied
f.  Such things are possibl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1735	1857	
==>\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

re <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1735	1857	
==>\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	91	193	
==>uilder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	91	193	
==>uilder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2294	2419	
==>Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2294	2419	
==>Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2294	2419	
==>Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10931	11046	
==>o("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readlin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10931	11046	
==>o("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readlin <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1744	1841	
==>ethod is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

m <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1744	1841	
==>ethod is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14716	14892	
==>t ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14716	14892	
==>t ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14716	14892	
==>t ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shi <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8172	8293	
==>,
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initrd_gz <= <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10782	10876	
==>trarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be ex <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10782	10876	
==>trarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	563	678	
==>s";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	563	678	
==>s";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	563	678	
==>s";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and d <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2626	2724	
==>an alternate implementation:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.spl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5790	5898	
==>hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3475	3577	
==>ned $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3475	3577	
==>ned $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3475	3577	
==>ned $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6584	6689	
==>... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually contain getters for $() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6365	6465	
==>... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually contain getters for $() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10805	10900	
==>p the bulk of the Rosetta::Model code,
and these could potentially be extended by third party ad <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10805	10900	
==>p the bulk of the Rosetta::Model code,
and these could potentially be extended by third party ad <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4633	4734	
==>()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, fr <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4633	4734	
==>()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, fr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32119	32216	
==>f the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36669	36766	
==>f the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tup <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5205	5329	
==>"$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6967	7091	
==>"$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18280	18375	
==>tory file
on disk, it is expected that the Engines will employ appropriate measures
such as syst <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18280	18375	
==>tory file
on disk, it is expected that the Engines will employ appropriate measures
such as syst <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5666	5789	
==>ous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# - <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5666	5789	
==>ous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# - <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15237	15341	
==>w(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15237	15341	
==>w(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!que <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3098	3208	
==>'d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3098	3208	
==>'d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3098	3208	
==>'d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13460	13853	
==>',
                                             name    => $tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILE <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36028	36126	
==>nion of the invocant and <$other> headings. 
The body of the new relation is the result of first pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40578	40675	
==>nion of the invocant and <$other> headings.
The body of the new relation is the result of first pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40192	40289	
==>nion of the invocant and <$other> headings.
The body of the new relation is the result of first pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4198	4319	
==>ap {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4198	4319	
==>ap {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4198	4319	
==>ap {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my % <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1661	1798	
==>ch;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1991	2125	
==>ch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1604	1738	
==>ch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1991	2125	
==>ch;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21197	21288	
==>ta[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	99	186	
==>14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	99	186	
==>14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	99	186	
==>14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3317	3440	
==>ak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = pe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3317	3440	
==>ak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = pe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3673	3796	
==>ak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	351	469	
==>plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $pl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3008	3157	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11704	11853	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3201	3350	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11983	12132	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1853	1972	
==>utput .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasse <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1188	1287	
==>od JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1188	1287	
==>od JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1188	1287	
==>od JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5312	5417	
==>\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5312	5417	
==>\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5312	5417	
==>\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slic <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1067	1167	
==>they are one and the same as what
you get when you use the C<type> keyword.  Or maybe the full packag <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1693	1801	
==>n a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availab <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1456	1564	
==>n a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availab <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1693	1801	
==>n a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availab <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1456	1564	
==>n a start object, returns a span that has infinite size.

= OBJECT METHODS

The following methods are availab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4194	4337	
==>urn a named capture
    my $label = shift;
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4681	4791	
==>rn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4681	4791	
==>rn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4681	4791	
==>rn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2230	2367	
==>lse {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2230	2367	
==>lse {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2230	2367	
==>lse {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13656	13755	
==>| <'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7922	8062	
==>d, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13516	13656	
==>d, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7922	8062	
==>d, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13510	13650	
==>d, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $pr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	317	438	
==>gs) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13569	13702	
==>~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DAT <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13569	13702	
==>~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DAT <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	425	544	
==>> undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	425	544	
==>> undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6030	6128	
==>ntics.

Please note that most of the time, it will not be necessary to write these 
methods yoursel <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6030	6128	
==>ntics.

Please note that most of the time, it will not be necessary to write these 
methods yoursel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5286	5379	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5286	5379	
==>R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8003	8105	
==>\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7991	8093	
==>\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	121	218	
==>user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I su <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	121	218	
==>user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I su <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1469	1589	
==>f->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileH <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1436	1556	
==>f->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileH <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	213	320	
==>e Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1472	1564	
==>Compile;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use strict;


f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1822	1917	
==>$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1822	1917	
==>$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1822	1917	
==>$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12471	12569	
==>.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12471	12569	
==>.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2340	2458	
==>y) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2340	2458	
==>y) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2340	2458	
==>y) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10456	10548	
==>":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n";

our <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1274	1378	
==>symbol names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1218	1318	
==>symbol names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9687	9784	
==>nd documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It ha <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9745	9842	
==>nd documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7802	7905	
==>}
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7802	7905	
==>}
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7802	7905	
==>}
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubP <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9420	9522	
==>p
    descr  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2537	2650	
==>st {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersecti <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5740	5853	
==>st {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersecti <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2537	2650	
==>st {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersecti <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5740	5853	
==>st {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersecti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4549	4649	
==>assed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and shoul <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4549	4649	
==>assed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6746	6846	
==>assed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and shoul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28167	28262	
==>->del_flag(@flags)

Deletes the handlers for the flags -- you need only pass the flag names,
wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15774	15915	
==>sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15774	15915	
==>sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15774	15915	
==>sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7986	8113	
==>perty_value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V);
            raise RangeErr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11405	11536	
==>O_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_wi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11405	11536	
==>O_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_wi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1332	1437	
==>ry time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (not l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1332	1437	
==>ry time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (not l <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2338	2485	
==>) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal token: $deps\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	579	703	
==>elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	579	703	
==>elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	579	703	
==>elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1408	1544	
==>) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1752	1883	
==>) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1359	1490	
==>) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1752	1883	
==>) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5205	5328	
==>hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5205	5328	
==>hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1099	1202	
==>category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expres <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1099	1202	
==>category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expres <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4985	5126	
==>dd_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        other => ';',
    );

    __PACKAGE__->recomp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	104	220	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	104	220	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	104	220	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7613	7750	
==>[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7613	7750	
==>[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7613	7750	
==>[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2772	2957	
==>l -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2229	2321	
==>)')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2229	2321	
==>)')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2229	2321	
==>)')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1101	1199	
==>r_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1101	1199	
==>r_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1101	1199	
==>r_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1117	1259	
==>rom Haskell (I think))

class SExpParser     
    def parse (source)
        stack = Array.new
        subexp = Array.new
        source.scan(/ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2073	2194	
==>ect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2073	2194	
==>ect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2153	2274	
==>ect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9343	9457	
==>$S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3471	3662	
==>'$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' => 1,      :$v
    #    'type' => {             Str $v
    #      'bareword' => 'Str',
    #    }
    #    'spla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1275	1372	
==>ning the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1275	1372	
==>ning the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1822	1919	
==>ning the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1338	1506	
==>%self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1338	1506	
==>%self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25025	25151	
==>{
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25580	25706	
==>{
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39934	40061	
==>ve;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39934	40061	
==>ve;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39934	40061	
==>ve;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $v <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	9	127	
==>t;
use File::Path;
use File::Copy;
use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15407	15572	
==>t; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15407	15572	
==>t; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15407	15572	
==>t; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array- <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	39	137	
==>odule Foo {...}", so it returns the Foo
# module object, see thread "What do use and require evalua <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4183	4313	
==>/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing new <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4183	4313	
==>/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing new <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3457	3555	
==><lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psig <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3457	3555	
==><lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psig <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16139	16242	
==>$.is,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3374	3464	
==>ead([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3374	3464	
==>ead([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3374	3464	
==>ead([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbo <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	173	301	
==>)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	173	301	
==>)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	430	521	
==>ty-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-E <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	430	521	
==>ty-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-E <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3780	3947	
==>x--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index. <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3780	3947	
==>x--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1935	2066	
==>umber($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1935	2066	
==>umber($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	32	129	
==>n;

use strict;
use warnings;

#use Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6664	6774	
==>lly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6664	6774	
==>lly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6664	6774	
==>lly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	539	635	
==>ckage PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $interpre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3928	4029	
==>ed));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3928	4029	
==>ed));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3928	4029	
==>ed));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42842	42939	
==>that is at least 6.0.0.

It also requires these Perl 6 classes that are in the current distributio <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14636	14726	
==>X - not quite right... need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24992	25093	
==>s immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23756	23857	
==>s immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXA <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24992	25093	
==>s immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXA <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23756	23857	
==>s immediately to the server, but creates a queue, which is then
slowly sent to the server.

=head1 EXA <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2136	2267	
==>Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Boo <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2136	2267	
==>Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	950	1077	
==>e non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	950	1077	
==>e non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_captur <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1353	1476	
==>sh @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $self->versio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38836	38929	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation librar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43650	43743	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation librar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43184	43277	
==>erl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation librar <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	839	947	
==>::Event $event) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1925	2017	
==>:Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1925	2017	
==>:Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1925	2017	
==>:Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell <==
4	/Users/nnunley/pugs/misc/S29_round.pl	652	780	
==>.5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round = sign($x) * ceil( ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2900	3012	
==>ass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2900	3012	
==>ass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2900	3012	
==>ass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2000	2102	
==>tus::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MAND <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2000	2102	
==>tus::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MAND <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1429	1523	
==>tal module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATOR <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1429	1523	
==>tal module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7327	7432	
==>TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7327	7432	
==>TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7327	7432	
==>TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6835	6944	
==>rPunctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuation (Pc)"
      <Pc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4703	4800	
==>or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=ba <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4703	4800	
==>or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=ba <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6900	6997	
==>or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=ba <==
4	/Users/nnunley/pugs/util/package-osx.pl	1314	1423	
==>~ /pugs/) {

    %symlinks = qw(
        /usr/local/bin/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	625	729	
==>an 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	625	729	
==>an 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	625	729	
==>an 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classde <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1259	1373	
==>eta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	793	900	
==>, 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	793	900	
==>, 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	793	900	
==>, 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2114	2215	
==>ke { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	698	798	
==>eneric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	698	798	
==>eneric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	698	798	
==>eneric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } el <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2136	2284	
==>$`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6450	6561	
==>ance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6450	6561	
==>ance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6450	6561	
==>ance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11992	12144	
==>nd_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11992	12144	
==>nd_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11992	12144	
==>nd_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6538	6653	
==>t;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are appl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6137	6271	
==>efined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6137	6271	
==>efined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6137	6271	
==>efined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$va <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20340	20450	
==>a true value if the bot's socket to the server is currently connected.

Note that you might want to use the C<l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19288	19398	
==>a true value if the bot's socket to the server is currently connected.

Note that you might want to use the C<l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20340	20450	
==>a true value if the bot's socket to the server is currently connected.

Note that you might want to use the C<l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19288	19398	
==>a true value if the bot's socket to the server is currently connected.

Note that you might want to use the C<l <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13185	13354	
==>}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation::Example $other!) returns Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16863	16982	
==>::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not corr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16863	16982	
==>::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not corr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16863	16982	
==>::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not corr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3033	3133	
==>e); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3033	3133	
==>e); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3033	3133	
==>e); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::re <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22991	23108	
==>->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12082	12181	
==>::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12082	12181	
==>::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12082	12181	
==>::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	142	272	
==>ew {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1055	1157	
==>push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1055	1157	
==>push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1055	1157	
==>push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16436	16555	
==>.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16436	16555	
==>.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8606	8702	
==>$user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8606	8702	
==>$user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd" <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4150	4279	
==>=>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._ge <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4150	4279	
==>=>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._ge <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2113	2220	
==>);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2113	2220	
==>);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	343	454	
==>eMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @m <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	343	454	
==>eMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @m <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	361	457	
==>_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_durat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	361	457	
==>_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_durat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10998	11119	
==>r $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10998	11119	
==>r $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10998	11119	
==>r $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	28	125	
==>se GraphViz;
use Getopt::Long;

GetOptions \our %Conf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1276	1376	
==>def). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1276	1376	
==>def). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = q <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1276	1376	
==>def). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = q <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	850	938	
==>>addToken("term:\\D", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4450	4551	
==>fy
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4450	4551	
==>fy
#}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5321	5421	
==>fy
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5321	5421	
==>fy
}

multi sub *infix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6297	6425	
==>ument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6297	6425	
==>ument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6297	6425	
==>ument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8433	8539	
==>e( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ruleop::capture( ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4945	5044	
==>$pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    use Data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3983	4079	
==>::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3983	4079	
==>::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3983	4079	
==>::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Conta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2852	2975	
==>new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2852	2975	
==>new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4376	4499	
==>new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  s <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	842	934	
==>xps
# --------------------------------------------------



our $re_sigil = '[\$\@\%]';
our $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	821	931	
==>();
use Data::Dumper ();
use Storable ();

use Devel::STDERR::Indent;

package type;
use base qw/Clone/;

### t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12877	12978	
==>ception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12877	12978	
==>ception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12877	12978	
==>ception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@ar <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14285	14382	
==>erl.org/viewcvs/perl5/mirror/

  And of course man perlapi, etc.

  The perl regexp engine was lon <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8047	8200	
==>se;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.uni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8047	8200	
==>se;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.uni <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7072	7222	
==>0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = & <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7072	7222	
==>0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13189	13353	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27303	27467	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13468	13632	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27582	27746	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8452	8573	
==>tinue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &con <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8452	8573	
==>tinue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &con <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3498	3613	
==>rt ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3498	3613	
==>rt ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4410	4521	
==>BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2265	2373	
==>new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2265	2373	
==>new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2265	2373	
==>new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	544	650	
==>ero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2072	2178	
==>ero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37281	37374	
==>rameter
$module_name (a string) and checks whether or not it has already been
loaded, returnin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37281	37374	
==>rameter
$module_name (a string) and checks whether or not it has already been
loaded, returnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1418	1517	
==>ns ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1418	1517	
==>ns ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1418	1517	
==>ns ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29607	29705	
==>from the parse tree.  Certain objects
do not need to appear in the tree, but are needed when inspec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27818	27974	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28097	28253	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6831	6980	
==>v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6831	6980	
==>v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2122	2225	
==>Class');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2122	2225	
==>Class');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2122	2225	
==>Class');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and ad <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9741	9826	
==>ail}.
p5_charset_range_x(_) --> p5_charset_item(class_neg(_)), {!, fail}.
p5_charset_r <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19657	19758	
==>ote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- C \= 10, !. %\n
rm(do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2040	2129	
==>($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2040	2129	
==>($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2040	2129	
==>($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{te <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	968	1101	
==>duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    retu <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	710	843	
==>duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    retu <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	968	1101	
==>duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    retu <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	710	843	
==>duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2982	3107	
==>l 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


reg <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2982	3107	
==>l 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


reg <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1872	1973	
==>";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1872	1973	
==>";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4284	4537	
==>_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4284	4537	
==>_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2400	2494	
==>codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2400	2494	
==>codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2313	2451	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27467	27605	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2506	2644	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27746	27884	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2209	2336	
==>able->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	82	177	
==>ter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use De <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	82	177	
==>ter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use De <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	82	177	
==>ter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use De <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9394	9488	
==>true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9394	9488	
==>true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10428	10514	
==>ined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11163	11249	
==>ined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16671	16833	
==>push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16671	16833	
==>push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16671	16833	
==>push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1673	1786	
==>ect(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  # bol, mbol, sbol
  $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	306	417	
==>$_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	306	417	
==>$_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	306	417	
==>$_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33747	33840	
==>is a generic relational operator that takes a single Relation
in its C<$other> argument, where <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34515	34608	
==>is a generic relational operator that takes a single Relation
in its C<$other> argument, where <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38297	38390	
==>is a generic relational operator that takes a single Relation
in its C<$other> argument, where <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39065	39158	
==>is a generic relational operator that takes a single Relation
in its C<$other> argument, where <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15452	15577	
==>, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15452	15577	
==>, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	394	553	
==>ue' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category = $_[0]{pair}{key}{single_quoted} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9809	9951	
==>rn "sub: ",Dumper $n;
        if ( exists $n->{exp2}{pointy_block} ) {
            return  " " . $n->{op1}{stmt} . 
                    ' my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23523	23618	
==>s (it is very simple).

There are other differences.  Where other solutions take variables, they <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23523	23618	
==>s (it is very simple).

There are other differences.  Where other solutions take variables, they <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2703	2815	
==>re from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    ¥       sa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1969	2071	
==>TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, ind <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1969	2071	
==>TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, ind <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34262	34355	
==>ation>

This method is a generic relational operator that returns the complement of
C<semijoin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38812	38905	
==>ation>

This method is a generic relational operator that returns the complement of
C<semijoin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3613	3761	
==>talled uses them
            my @alts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3993	4126	
==>t;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3993	4126	
==>t;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3993	4126	
==>t;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24258	24435	
==>rm1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24537	24714	
==>rm1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2048	2143	
==>ot ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
} <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2106	2201	
==>ot ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14038	14172	
==>arn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14032	14166	
==>arn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4622	4744	
==>ex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4622	4744	
==>ex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	862	1048	
==>es";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	862	1048	
==>es";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	862	1048	
==>es";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	216	329	
==>se perl version of &infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(Rea <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1806	1958	
==>ng '" . basename($meta) ."'\n";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the metadata
        ### location <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3550	3663	
==>if($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3550	3663	
==>if($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3550	3663	
==>if($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14719	14818	
==>('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14719	14818	
==>('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14719	14818	
==>('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3599	3700	
==>, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3599	3700	
==>, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3599	3700	
==>, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15482	15584	
==>cess (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3744	3838	
==>S::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argume <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3744	3838	
==>S::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argume <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3744	3838	
==>S::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argume <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2099	2191	
==>'(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2099	2191	
==>'(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2099	2191	
==>'(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1499	1625	
==>if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1499	1625	
==>if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1499	1625	
==>if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52950	53070	
==>:version'   => 'str'));        
    $meta->add_attr(symbol->new('$:authority' => 'str'));            
}

# add their name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7856	8073	
==>,\n", 
                    map { _emit( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3194	3298	
==>de|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3194	3298	
==>de|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3194	3298	
==>de|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16596	16831	
==>\d$/,
                                          name  => $heading_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        heading  => $hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3024	3128	
==>o @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3024	3128	
==>o @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Pe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3024	3128	
==>o @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Pe <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	253	351	
==>28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearM <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	253	351	
==>28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearM <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8417	8510	
==>ecurity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analys <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8417	8510	
==>ecurity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analys <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35214	35365	
==>get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1315	1418	
==>ad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1315	1418	
==>ad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1315	1418	
==>ad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16404	16546	
==>0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16404	16546	
==>0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16404	16546	
==>0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	897	992	
==>he Class' private
attributes.  This is "early" method binding.

=head1 NOTES

Perhaps this class <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4612	4719	
==>$self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4471	4578	
==>$self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META. <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5115	5216	
==>s

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5115	5216	
==>s

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18953	19068	
==>TA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18953	19068	
==>TA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29939	30036	
==>n accessor method to read values from it by key.  Each template hash
key corresponds to the Messag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29939	30036	
==>n accessor method to read values from it by key.  Each template hash
key corresponds to the Messag <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10107	10251	
==>) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10107	10251	
==>) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4602	4732	
==>',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "div <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4602	4732	
==>',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "div <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3302	3408	
==>ence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3302	3408	
==>ence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3302	3408	
==>ence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8350	8451	
==>urn false if called again.

=head2 Building the Tree

If you don't care to intercept the building of t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11493	11682	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11493	11682	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11493	11682	
==>ndef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13058	13156	
==>hole test was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a h <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28554	28693	
==>eturn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28833	28972	
==>eturn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	170	266	
==>Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	179	275	
==>Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1086	1192	
==>c = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referenc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1086	1192	
==>c = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referenc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1086	1192	
==>c = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a referenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	383	487	
==>e, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	383	487	
==>e, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	383	487	
==>e, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35336	35434	
==>in our I<real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBran <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1	133	
==>use v6;
module Motd;

sub finger (@arr) returns Str is export {
        my @default = (
            "boring",
            "missing ex <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2346	2480	
==>$tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    }, <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2346	2480	
==>$tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    }, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4092	4189	
==>= %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4092	4189	
==>= %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36357	36471	
==>->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36357	36471	
==>->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36357	36471	
==>->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19336	19493	
==>lass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19336	19493	
==>lass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19336	19493	
==>lass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fa <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1041	1135	
==>otifications (*@subscriptions of Class::Events::Subscription) {
        map { Class::Events::No <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4780	4877	
==>%_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    }) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4780	4877	
==>%_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    }) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21787	21880	
==>t>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(ta <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21787	21880	
==>t>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(ta <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2853	2977	
==>ge Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Num  $x             ; :$base --> Num )
 {
     Math <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	563	668	
==>x.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	563	668	
==>x.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	563	668	
==>x.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13973	14090	
==>lue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13973	14090	
==>lue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13973	14090	
==>lue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21587	21681	
==>xp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

This module holds the i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1759	1874	
==>fined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without setting nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9160	9265	
==>args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9160	9265	
==>args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9160	9265	
==>args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2079	2218	
==>USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2079	2218	
==>USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2079	2218	
==>USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12467	12600	
==>\$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{capture} );\n" .
                #"    print <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12417	12543	
==>,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12417	12543	
==>,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	139	248	
==>ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $pa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13695	13801	
==>its2_int(I) -->
  hexdigit(D0), hexdigit(D1), {number_chars(I,[42,120,D0,D1])}.

octdigits_int(I) --> octdi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4401	4502	
==>efix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4401	4502	
==>efix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5273	5372	
==>efix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5273	5372	
==>efix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3070	3185	
==>( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{level <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3571	3686	
==>( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{level <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1256	1350	
==>or version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1256	1350	
==>or version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	430	536	
==>ns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	430	536	
==>ns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4193	4296	
==>ns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4193	4296	
==>ns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19393	19492	
==>on/tuple attribute is a column, but it is not the same as a table.

The intended interface and use o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23945	24044	
==>on/tuple attribute is a column, but it is not the same as a table.

The intended interface and use o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22461	22560	
==>on/tuple attribute is a column, but it is not the same as a table.

The intended interface and use o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4204	4305	
==>ds you should take care not
to call them in function form by mistake; that would not do at all.

=over <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4204	4305	
==>ds you should take care not
to call them in function form by mistake; that would not do at all.

=over <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4204	4305	
==>ds you should take care not
to call them in function form by mistake; that would not do at all.

=over <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10102	10227	
==>turn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10381	10506	
==>turn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	596	694	
==>it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	596	694	
==>it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4210	4345	
==>>new('$accum'),
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5155	5270	
==>cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5155	5270	
==>cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5155	5270	
==>cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (bu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34515	34616	
==>ok in its own
package first, then in F<Regexp::MyRx::__object__> (if it exists), then
in F<Regexp::Par <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22019	22113	
==>uple respectively have a special meaning in relational algebra which
is analagous to what the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26571	26665	
==>uple respectively have a special meaning in relational algebra which
is analagous to what the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25267	25361	
==>uple respectively have a special meaning in relational algebra which
is analagous to what the i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6427	6525	
==>Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6427	6525	
==>Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6427	6525	
==>Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reb <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6113	6261	
==>ring'),
                Val->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	829	938	
==>"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	829	938	
==>"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	829	938	
==>"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12020	12113	
==>1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12020	12113	
==>1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12020	12113	
==>1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6193	6331	
==>a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6193	6331	
==>a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6193	6331	
==>a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1117	1231	
==>t('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14635	14738	
==>ic
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_ancho <==
4	/Users/nnunley/pugs/util/package-osx.pl	11331	11498	
==>ving \$file\: \$_\\n";
            \}
            else \{
                print "Successfully removed \$file\\n";
            \}
        \}
    );
    @footer = map { s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2800	2937	
==>et';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4749	4846	
==>orry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4749	4846	
==>orry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4749	4846	
==>orry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	165	260	
==>s Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	165	260	
==>s Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	165	260	
==>s Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3591	3700	
==>union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3591	3700	
==>union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21215	21309	
==>Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21215	21309	
==>Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a ch <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3054	3161	
==>(" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert" <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3054	3161	
==>(" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert" <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12319	12418	
==>rns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12319	12418	
==>rns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1074	1404	
==>" .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" . $node->id . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1315	1418	
==>{
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1315	1418	
==>{
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1315	1418	
==>{
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # pa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6366	6475	
==>ze_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6366	6475	
==>ze_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	190	296	
==>k => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	194	300	
==>k => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	190	296	
==>k => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	194	300	
==>k => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24111	24214	
==>ween a client automatically sending something
  in response to something it received.  This is typically <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22884	22987	
==>ween a client automatically sending something
  in response to something it received.  This is typically <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24111	24214	
==>ween a client automatically sending something
  in response to something it received.  This is typically <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22884	22987	
==>ween a client automatically sending something
  in response to something it received.  This is typically <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6325	6463	
==>:Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2940	3052	
==>ror_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2940	3052	
==>ror_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4464	4576	
==>ror_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5868	5980	
==>ft;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5868	5980	
==>ft;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5868	5980	
==>ft;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
} <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2410	2540	
==>path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$ba <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2410	2540	
==>path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$ba <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10207	10302	
==>eturn join( " ", @existing_switches, @derived_switches );
}

=head2 C<_cleaned_switches>

  my @ <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	704	797	
==>_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at the class le <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1257	1361	
==>ee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1257	1361	
==>ee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1257	1361	
==>ee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3988	4135	
==>} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        }
        return  "{\n" . _e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	847	959	
==>e of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	847	959	
==>e of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	847	959	
==>e of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cla <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1374	1474	
==>et $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1374	1474	
==>et $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11922	12020	
==>b-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11922	12020	
==>b-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12985	13093	
==>@_;
    exists $args{switches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4528	4635	
==>C} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4528	4635	
==>C} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4528	4635	
==>C} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6089	6218	
==>boxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6089	6218	
==>boxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6089	6218	
==>boxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	573	677	
==>lf->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	573	677	
==>lf->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	573	677	
==>lf->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    whil <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	657	749	
==>);
    Blondie::Backend::Perl::Builtins->find($node->digest || return);
}

sub cast_node_type <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1985	2098	
==>F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2347	2460	
==>F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1985	2098	
==>F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2347	2460	
==>F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	262	373	
==>ull' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns A <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	262	373	
==>ull' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns A <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2599	2705	
==>usMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int { <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2599	2705	
==>usMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3267	3398	
==>.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3267	3398	
==>.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	622	731	
==>ersion to other native types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift) + 0) }

# meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	573	666	
==>s, $rule_source, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_source, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7248	7360	
==>d;
        $start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7248	7360	
==>d;
        $start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17728	17819	
==>epare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, in <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17728	17819	
==>epare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	712	832	
==>::Installation object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	22	117	
==>mes for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	22	117	
==>mes for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	22	117	
==>mes for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2340	2475	
==>'    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2340	2475	
==>'    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6697	6835	
==>k( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6697	6835	
==>k( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $m <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3178	3275	
==>() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_ty <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3236	3333	
==>() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_ty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13073	13192	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21123	21242	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13352	13471	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21402	21521	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7056	7178	
==>pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::A <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7056	7178	
==>pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20171	20266	
==>hoose to declare that its result not be recompiled by
some other containing parser. In this case <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20171	20266	
==>hoose to declare that its result not be recompiled by
some other containing parser. In this case <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	512	633	
==>ile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    return Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14244	14341	
==>len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB ch <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14244	14341	
==>len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB ch <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14244	14341	
==>len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB ch <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4449	4565	
==>nonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2066	2159	
==>hrow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2066	2159	
==>hrow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2066	2159	
==>hrow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10026	10128	
==>ing to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6401	6489	
==>>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6401	6489	
==>>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6401	6489	
==>>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribut <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18740	18853	
==>ple.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30137	30227	
==>ded
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unw <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34689	34779	
==>ded
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unw <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33862	33952	
==>ded
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unw <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4380	4546	
==>undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4247	4408	
==>undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{t <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5260	5392	
==>dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5260	5392	
==>dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $d <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	821	954	
==>\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr eq "\\") {
	    print "\\textbackslash{}";
	    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	111	210	
==>IN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	111	210	
==>IN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	111	210	
==>IN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Reb <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6188	6335	
==>erl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5696	5843	
==>erl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8238	8342	
==>that depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usua <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8238	8342	
==>that depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usua <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4029	4148	
==>lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4029	4148	
==>lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3100	3206	
==>nformation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servernam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3100	3206	
==>nformation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servernam <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1088	1225	
==>ap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($self->val));
    }

    package Thunk;
    use base 'U <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12451	12564	
==>_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12451	12564	
==>_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12451	12564	
==>_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14866	14994	
==>100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14866	14994	
==>100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14866	14994	
==>100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/util/grokprims.pl	1263	1365	
==>or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{args}}[1..$arit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3224	3321	
==>r block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3224	3321	
==>r block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3224	3321	
==>r block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23738	23828	
==>1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X| <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7394	7496	
==>e List section.
multi Array::grep (@values ;  MatchTest $test   --> Lazy )
{
    List::grep $test, *@va <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34307	34401	
==>perator that returns the complement of
C<semijoin> with the same argument.  This method has ali <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38857	38951	
==>perator that returns the complement of
C<semijoin> with the same argument.  This method has ali <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38336	38430	
==>perator that returns the complement of
C<semijoin> with the same argument.  This method has ali <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11181	11321	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11460	11600	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" ) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11390	11486	
==>k_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11390	11486	
==>k_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4709	4808	
==>ad_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4709	4808	
==>ad_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4709	4808	
==>ad_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $wri <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20794	20886	
==>adlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt shutd <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1954	2077	
==>ms($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*AR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1954	2077	
==>ms($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*AR <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	313	418	
==>e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file") <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	313	418	
==>e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file") <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	641	754	
==>.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	641	754	
==>.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6517	6619	
==>the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6529	6631	
==>the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rul <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4452	4807	
==>*)                              # RE options
                        )?                                      # End of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7849	7970	
==>(n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7849	7970	
==>(n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7849	7970	
==>(n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	798	898	
==>.store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour obj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12671	12771	
==>rces have zero tuples; so does result.
        return Relation::Example.new( heading => $!heading, bo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	798	898	
==>.store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	798	898	
==>.store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37706	37838	
==>,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      branch => 1,
      neg => !$pos,
    }, $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1865	1969	
==>, assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1865	1969	
==>, assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	700	800	
==>lf, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $self = shift;
	$ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	432	552	
==>exe_ext},
        path_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4120	4213	
==>$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4120	4213	
==>$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4120	4213	
==>$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
} <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11354	11530	
==>DO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}++ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14475	14674	
==>ffect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17952	18151	
==>ffect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17368	17567	
==>ffect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_w <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10262	10360	
==>pressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
rule Regu <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3251	3376	
==>lsif $tree[0] eq '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $tree[1][ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1767	1888	
==>d->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1767	1888	
==>d->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1767	1888	
==>d->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7608	7739	
==>}
    local $^W = 0;
    last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5735	5840	
==>on";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5735	5840	
==>on";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5735	5840	
==>on";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9557	9661	
==>method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.com <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9557	9661	
==>method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.com <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3336	3436	
==>ts a date /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3336	3436	
==>ts a date /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	44	133	
==>S::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	44	133	
==>S::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	44	133	
==>S::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3478	3566	
==>-----------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3501	3589	
==>------------------
## BOOTSTRAPPING COMPLETE
## ----------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5380	5468	
==>-----------------------------------------
## BOOTSTRAPPING COMPLETE
## ------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5403	5491	
==>------------------
## BOOTSTRAPPING COMPLETE
## ----------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8434	8573	
==>h.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8434	8573	
==>h.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17454	17590	
==>t->new('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_ind <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1796	1900	
==>ve != 0)
        || confess "Division by zero error";
    return num->new(int($left->to_native / $right-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4123	4241	
==>ndef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4123	4241	
==>ndef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4123	4241	
==>ndef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1870	1974	
==><meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list);\n";
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2582	2693	
==>plemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2582	2693	
==>plemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2582	2693	
==>plemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	832	943	
==>} . " " . $opt{name} . ">",
        '{ return { op => "circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1792	1892	
==>eturn;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::String $P) {
    if $O.property_value.exists($P) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	440	535	
==>l $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	440	535	
==>l $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	440	535	
==>l $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12309	12433	
==>b max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8335	8447	
==>, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	545	645	
==>, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	545	645	
==>, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builde <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18122	18242	
==>!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33319	33418	
==>n the walking stack.  Elements are taken from the I<front> of the
walking stack, so we add them in t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17939	18033	
==>achine readable"; any application receiving such a code can identify
it easily in its condition <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17939	18033	
==>achine readable"; any application receiving such a code can identify
it easily in its condition <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3907	4065	
==>t = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3907	4065	
==>t = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3907	4065	
==>t = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $o <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	162	253	
==>tOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19s28.vlinux.de/cgi-bin/pugs-smo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23709	23800	
==>es. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22482	22573	
==>es. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23709	23800	
==>es. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22482	22573	
==>es. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1563	1683	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36461	36556	
==>e sequence in which any two source relations are
combined is inconsequential.  A trivial case is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41010	41105	
==>e sequence in which any two source relations are
combined is inconsequential.  A trivial case is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40624	40719	
==>e sequence in which any two source relations are
combined is inconsequential.  A trivial case is <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8530	8653	
==>hout path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6067	6160	
==>ype', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6067	6160	
==>ype', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2966	3059	
==>ype', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29240	29353	
==>ms = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29240	29353	
==>ms = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29240	29353	
==>ms = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8331	8495	
==>]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8331	8495	
==>]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8331	8495	
==>]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORC <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7475	7630	
==>'>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuato <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4149	4300	
==>ot implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4149	4300	
==>ot implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	402	514	
==>EN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1260	1372	
==>EN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6128	6245	
==>gle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6128	6245	
==>gle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6128	6245	
==>gle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $s <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12903	13003	
==>st )
 multi method Hash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19290	19440	
==>char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Lengt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2624	2726	
==>Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2624	2726	
==>Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2624	2726	
==>Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14191	14355	
==>($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14191	14355	
==>($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14191	14355	
==>($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8464	8565	
==>rray::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $test ;   *@values - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7630	7766	
==>1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7630	7766	
==>1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	571	668	
==>rker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($w <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	571	668	
==>rker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1170	1310	
==>pe_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1170	1310	
==>pe_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	604	732	
==>pe_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	604	732	
==>pe_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8034	8130	
==>if an error is a particular error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

To i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31172	31320	
==>$i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31172	31320	
==>$i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31172	31320	
==>$i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $re <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29762	29855	
==>TDERR.

Implement Straps total_results()

Remember exit code

Completely redo the print summar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14036	14132	
==>field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
wil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14036	14132	
==>field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
wil <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7357	7448	
==>does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7357	7448	
==>does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2241	2375	
==>ostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3602	3728	
==>ostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2047	2155	
==>w easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2047	2155	
==>w easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	342	443	
==>checked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types gi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	342	443	
==>checked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types gi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1614	1702	
==>-------------------------------------------
## informational methods

method is_root retu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1614	1702	
==>-------------------------------------------
## informational methods

method is_root retu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9420	9554	
==>t> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to impl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9420	9554	
==>t> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to impl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	717	824	
==>n" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't nee <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	717	824	
==>n" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't nee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16147	16293	
==>de->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16147	16293	
==>de->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16147	16293	
==>de->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17869	17965	
==>1 Perl5's struct regexp and its abuse

=head1 Description

The perl5 regexp engine is entangled w <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15598	15749	
==>et numbers of load sectors
      "-boot-info-table",                  # Patch boot image with info table
      "-o" => $iso,                        # Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16806	16934	
==>true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16806	16934	
==>true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16806	16934	
==>true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2839	2960	
==>_self => $self);
        goto &{"$self->{name}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self->autoload;
    $self->p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4821	4929	
==>'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4821	4929	
==>'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1727	1835	
==>'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13524	13628	
==>h;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13524	13628	
==>h;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13524	13628	
==>h;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4975	5086	
==>ess $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4975	5086	
==>ess $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12948	13053	
==>al :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3534	3625	
==>pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3534	3625	
==>pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3534	3625	
==>pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7683	7820	
==>ds.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignore <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2000	2117	
==>ds.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2000	2117	
==>ds.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2000	2117	
==>ds.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignore <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	418	531	
==>'Thread 2 finished: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a++; } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20565	20660	
==>methods on those objects.  All of
their class/object attributes are private, so you must use acc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25117	25212	
==>methods on those objects.  All of
their class/object attributes are private, so you must use acc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23687	23782	
==>methods on those objects.  All of
their class/object attributes are private, so you must use acc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9131	9247	
==>nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28767	28873	
==>correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28767	28873	
==>correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28767	28873	
==>correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->ele <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1431	1578	
==>" }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3887	3984	
==>Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3887	3984	
==>Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3887	3984	
==>Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13344	13505	
==>$len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13344	13505	
==>$len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13344	13505	
==>$len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2229	2390	
==>$len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1419	1580	
==>unless defined $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	517	641	
==>ame} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	533	657	
==>ame} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	509	633	
==>ame} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2177	2300	
==>e ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Config{include_re} <==
4	/Users/nnunley/pugs/util/claim_drift.pl	388	488	
==>FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24434	24528	
==>E<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24434	24528	
==>E<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5714	5818	
==>edpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5714	5818	
==>edpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5714	5818	
==>edpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } els <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4287	4388	
==>l be displayed before booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7832	8005	
==>ies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7832	8005	
==>ies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7303	7472	
==>r my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version g <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7767	7936	
==>r my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version g <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23699	23789	
==>send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE messag <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22472	22562	
==>send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE messag <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23699	23789	
==>send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE messag <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22472	22562	
==>send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE messag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1120	1218	
==>r object belongs to a
package that is too close to the main namespace for your tastes, and
you want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1120	1218	
==>r object belongs to a
package that is too close to the main namespace for your tastes, and
you want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1120	1218	
==>r object belongs to a
package that is too close to the main namespace for your tastes, and
you want <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12493	12604	
==>ed $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12493	12604	
==>ed $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12493	12604	
==>ed $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5527	5629	
==>tribute new (%:private_methods)) (hash)
     (attribute new (%:attributes))      (hash)
     (attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1532	1634	
==>tors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1532	1634	
==>tors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1532	1634	
==>tors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Numb <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2600	2793	
==>:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2847	3040	
==>:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8987	9123	
==>rt . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                it <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8987	9123	
==>rt . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                it <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8987	9123	
==>rt . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                it <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	958	1055	
==>tant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY => --$ENUM, 'Can\'t do {n,m} wi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10028	10214	
==>= reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	393	488	
==>class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	393	488	
==>class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	35	131	
==>e strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

u <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14897	14990	
==>nsity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" sema <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14897	14990	
==>nsity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" sema <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	34	126	
==>e strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
u <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11288	11391	
==>e:

  Permit swapping in an alternate regexp engine,
  using calls to p5 subs,
  which can be defined di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	624	722	
==>p Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'L <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	624	722	
==>p Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'L <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	624	722	
==>p Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'L <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2135	2239	
==>$other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2135	2239	
==>$other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19487	19577	
==>tion
variables are system catalog relation variables rather than user-defined
relation vari <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19487	19577	
==>tion
variables are system catalog relation variables rather than user-defined
relation vari <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1406	1567	
==>ocked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not I <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1406	1567	
==>ocked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not I <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	117	213	
==>medium.  It stores a finite string and a position
within that string, and it provides the fundame <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	117	213	
==>medium.  It stores a finite string and a position
within that string, and it provides the fundame <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6878	6980	
==>r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6878	6980	
==>r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process( <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	26	123	
==>------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, us <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	26	123	
==>------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, us <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	679	795	
==>ub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	468	568	
==>pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	468	568	
==>pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	468	568	
==>pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  i <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9399	9524	
==>ild.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no cha <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9399	9524	
==>ild.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no cha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5129	5240	
==>pture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5322	5433	
==>pture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13877	13991	
==>c.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.g <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13877	13991	
==>c.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.g <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2672	2771	
==>members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2672	2771	
==>members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21232	21475	
==>scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21232	21475	
==>scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21232	21475	
==>scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNI <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	529	626	
==><perl5/*>;
}

print "*** Successfully built!  Type '$Config{make} install' to install.\n";

# make <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8360	8491	
==>/css">
    body {
      background-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4195	4303	
==>inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4195	4303	
==>inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4195	4303	
==>inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	957	1093	
==>0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	957	1093	
==>0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5349	5458	
==>$result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5349	5458	
==>$result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3404	3519	
==>lsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3404	3519	
==>lsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3404	3519	
==>lsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, th <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8464	8565	
==>), !.
p5_modifier_spec_neg([-m|L]) --> "m", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-s|L]) - <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5611	5737	
==>h means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1871	1972	
==>l)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1871	1972	
==>l)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1871	1972	
==>l)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17287	17379	
==>->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17287	17379	
==>->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17287	17379	
==>->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribu <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6468	6567	
==>blocking / as-they-come, because
# we want to preserve ordering anyway and it's probably okay to kee <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21999	22093	
==>zero tuples or
one tuple respectively have a special meaning in relational algebra which
is ana <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26551	26645	
==>zero tuples or
one tuple respectively have a special meaning in relational algebra which
is ana <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25247	25341	
==>zero tuples or
one tuple respectively have a special meaning in relational algebra which
is ana <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2914	3042	
==>tr   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2914	3042	
==>tr   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5578	5693	
==>od export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5578	5693	
==>od export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20911	21026	
==>) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17332	17447	
==>) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21705	21795	
==>base Driver Independence>, and not I<Database Language
Independence>.  To further demonstra <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21705	21795	
==>base Driver Independence>, and not I<Database Language
Independence>.  To further demonstra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1999	2166	
==>},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1999	2166	
==>},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1999	2166	
==>},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1823	1942	
==>},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16769	17002	
==>rget, 
                                        heading  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3866	3980	
==>- default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3866	3980	
==>- default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3866	3980	
==>- default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18787	18910	
==>e::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18787	18910	
==>e::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18787	18910	
==>e::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLO <==
4	/Users/nnunley/pugs/util/package-osx.pl	6186	6293	
==>rl6::Overview::Object.3pm
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1316	1419	
==>carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1316	1419	
==>carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1525	1628	
==>carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9239	9346	
==>ator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9434	9541	
==>ator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9629	9736	
==>ator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->new(
			type::operator::n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11286	11392	
==>ator::arrow->new(
		type::operator::nullary->new("int"),
		type::operator::arrow->new(
			type::operator::n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	938	1036	
==>@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	938	1036	
==>@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (St <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7983	8077	
==>{ $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7983	8077	
==>{ $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  ret <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11986	12104	
==>InteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenial <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30336	30431	
==>hose attributes
(provided in C<$heading>) may or may not resemble those of the original. 
The an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34888	34982	
==>hose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34070	34164	
==>hose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3967	4102	
==>( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__->add_rule( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1817	1961	
==>al!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1602	1740	
==>al!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1602	1740	
==>al!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34027	34120	
==>_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyof_rang <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1912	2013	
==>}
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1912	2013	
==>}
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6648	6748	
==>ete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6648	6748	
==>ete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7810	7935	
==>xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7810	7935	
==>xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7810	7935	
==>xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $r <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	240	352	
==>{
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10409	10517	
==>children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2 <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10409	10517	
==>children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6546	6654	
==>ule ( alternation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Mat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6327	6430	
==>ule ( alternation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Mat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	745	846	
==>strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require syn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3293	3388	
==>NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3293	3388	
==>NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3293	3388	
==>NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3530	3631	
==>normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3530	3631	
==>normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3530	3631	
==>normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22800	22896	
==>ntheses.  It will end up being identical to
C<nparen>, but it is incremented during the initial p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	560	689	
==>a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	560	689	
==>a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	560	689	
==>a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3581	3711	
==>ts &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $seen{$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9260	9384	
==>y( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9260	9384	
==>y( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9260	9384	
==>y( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' = <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8332	8573	
==>emplate->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5600	5780	
==>emplate->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35082	35176	
==>gs are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $othe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39632	39726	
==>gs are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $othe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21025	21117	
==>")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19933	20025	
==>")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21025	21117	
==>")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19933	20025	
==>")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1597	1701	
==>i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1597	1701	
==>i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1597	1701	
==>i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7514	7612	
==>will be reunified with it's still free variable
	$_[0]->instantiate($_[1]);
};
multi unify => ('typ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4997	5103	
==>e";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	559	664	
==>pe'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	559	664	
==>pe'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	559	664	
==>pe'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2547	2643	
==>")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2547	2643	
==>")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2547	2643	
==>")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2158	2324	
==>),
                        Tree.new(:node<Code>).add_children(
                            Tree.new(:node<Routine>).add_children(
                                Tree. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1520	1634	
==>it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1520	1634	
==>it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1520	1634	
==>it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1759	1864	
==>) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1759	1864	
==>) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1759	1864	
==>) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems( <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	56	165	
==>> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Ha <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	56	165	
==>> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Ha <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3886	3991	
==>erl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3886	3991	
==>erl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11246	11364	
==>r nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we' <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11246	11364	
==>r nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10491	10601	
==>r nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we' <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10491	10601	
==>r nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17198	17307	
==>resh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub fresh_perl_is {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	23	116	
==>e unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	23	116	
==>e unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	23	116	
==>e unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5208	5359	
==>rn = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ign <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5208	5359	
==>rn = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ign <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5208	5359	
==>rn = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ign <==
4	/Users/nnunley/pugs/util/importgraph.pl	2407	2508	
==>e) = each %modules) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $g->add_node($name, c <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	343	454	
==>get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	343	454	
==>get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($se <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3909	4014	
==>ckages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # At <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3909	4014	
==>ckages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # At <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1845	1948	
==>span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1845	1948	
==>span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_en <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14177	14275	
==>ce" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raisi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14177	14275	
==>ce" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raisi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39537	39630	
==>-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39537	39630	
==>-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24261	24353	
==>-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24261	24353	
==>-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1441	1540	
==>$classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, tak <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1441	1540	
==>$classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, tak <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1441	1540	
==>$classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, tak <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3033	3120	
==>"}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9695	9813	
==>art + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9695	9813	
==>art + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9695	9813	
==>art + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spli <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15341	15436	
==>gth

Implements a min_length() method for all objects that determines the
minimum length of a st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1564	1668	
==>Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class-> <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1564	1668	
==>Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17441	17543	
==>reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17441	17543	
==>reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17426	17528	
==>pected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	96	185	
==>e Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	96	185	
==>e Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	96	185	
==>e Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bna <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3789	3906	
==>$index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5106	5223	
==>$index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3789	3906	
==>$index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5094	5211	
==>$index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2350	2491	
==>->{assoc} if $rule eq 'infix';
        my $template = $rule_templates{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1378	1481	
==>many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1378	1481	
==>many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1378	1481	
==>many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 200 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17735	17893	
==>= &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14156	14314	
==>= &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20378	20476	
==>wly; you should only use Example
for testing, development, and study; you should not use it in prod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20378	20476	
==>wly; you should only use Example
for testing, development, and study; you should not use it in prod <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1797	1915	
==>hose
#  rules.  See JavaScript::ECMAScript3::Grammar.
#
#  Bugs:
#   * This grammar has never yet been run, so there no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6075	6165	
==>($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6075	6165	
==>($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6075	6165	
==>($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38436	38557	
==>everse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38436	38557	
==>everse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38436	38557	
==>everse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5957	6056	
==>, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages -package stm -package netw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6971	7145	
==>l6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6971	7145	
==>l6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6971	7145	
==>l6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5919	6016	
==>ndex_files that a given package belongs to.

=cut

sub index_files { #TODO: When using two propert <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3051	3142	
==>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10082	10210	
==>rnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10082	10210	
==>rnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19436	19547	
==>or lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19436	19547	
==>or lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6750	6858	
==>is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and fin <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6750	6858	
==>is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and fin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9428	9535	
==>cted;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9428	9535	
==>cted;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($! <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	313	416	
==>erl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %p <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	313	416	
==>erl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1959	2052	
==>w PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1959	2052	
==>w PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1959	2052	
==>w PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7183	7274	
==>r $attrs!) returns Relation::Example {
    return $?SELF.project( $!heading.difference( $att <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8037	8135	
==>sion="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.or <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3199	3361	
==>eft',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1956	2061	
==>ame;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1956	2061	
==>ame;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1956	2061	
==>ame;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { sh <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2165	2292	
==>Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7584	7670	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7584	7670	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7584	7670	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17109	17205	
==>) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17109	17205	
==>) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17109	17205	
==>) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3482	3646	
==>age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3482	3646	
==>age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $reque <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15086	15189	
==>> -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15086	15189	
==>> -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" } <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4948	5065	
==>height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer co <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4948	5065	
==>height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer co <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6301	6405	
==>ncoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6301	6405	
==>ncoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9500	9653	
==>'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15044	15197	
==>'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9500	9653	
==>'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15038	15191	
==>'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implem <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7359	7527	
==>ess dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe-> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7823	7991	
==>ess dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe-> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6069	6170	
==>::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6069	6170	
==>::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4772	4876	
==>rns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3899	4003	
==>rns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4772	4876	
==>rns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3899	4003	
==>rns Set {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1052	1151	
==>esn't work so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
su <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14246	14393	
==>$k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %tra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4315	4446	
==>$k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4315	4446	
==>$k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4315	4446	
==>$k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %tra <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5325	5424	
==>eturns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5325	5424	
==>eturns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a UR <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19752	19848	
==>Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19752	19848	
==>Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3043	3192	
==>\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3043	3192	
==>\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3043	3192	
==>\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line = <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	77	222	
==>cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3067	3232	
==>$_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3067	3232	
==>$_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub ar <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4370	4471	
==>) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4370	4471	
==>) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	265	366	
==>ameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	265	366	
==>ameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	265	366	
==>ameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4438	4538	
==>~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub node::a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5269	5398	
==>num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6537	6666	
==>num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5269	5398	
==>num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6525	6654	
==>num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XX <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3315	3437	
==>- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a clo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3326	3448	
==>- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a clo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	693	785	
==>joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	693	785	
==>joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17477	17640	
==>idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2277	2405	
==>< $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2277	2405	
==>< $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2277	2405	
==>< $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4950	5056	
==>xpr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pR <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4950	5056	
==>xpr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pR <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1415	1512	
==>be insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1415	1512	
==>be insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in p <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	289	745	
==>9 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            4 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	289	745	
==>9 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            4 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3307	3417	
==>et.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3307	3417	
==>et.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	337	591	
==>le:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given vers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	337	591	
==>le:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given vers <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3969	4092	
==>( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4821	4914	
==>Stmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4821	4914	
==>Stmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4821	4914	
==>Stmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12754	12883	
==>"/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12754	12883	
==>"/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8512	8638	
==>[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8512	8638	
==>[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2102	2222	
==>";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  ru <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	416	536	
==>";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2102	2222	
==>";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2102	2222	
==>";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16411	16509	
==>UB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::y <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16411	16509	
==>UB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::y <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16411	16509	
==>UB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::y <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13346	13443	
==>v($$)->{ $.param },
		type($.body),
	),
}

# identifiers pass the generic variables unchanged
ide: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6457	6562	
==>t<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7193	7298	
==>t<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6457	6562	
==>t<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7193	7298	
==>t<object>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6885	7032	
==>y $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'say';
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6691	6786	
==>)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6691	6786	
==>)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6691	6786	
==>)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9441	9612	
==>ented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14985	15156	
==>ented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9441	9612	
==>ented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14979	15150	
==>ented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2468	2592	
==>.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2468	2592	
==>.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6153	6251	
==>pes.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6153	6251	
==>pes.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5723	5834	
==>time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... has <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5711	5822	
==>time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14168	14266	
==>od Practice" order.

Any return values of the callback routine are ignored.  The loop can
be broken <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14168	14266	
==>od Practice" order.

Any return values of the callback routine are ignored.  The loop can
be broken <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7207	7310	
==>$negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::C <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7265	7368	
==>$negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17535	17626	
==>ity to ship precompiled modules without shipping Module::Compile and
the compiler modules th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17535	17626	
==>ity to ship precompiled modules without shipping Module::Compile and
the compiler modules th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	444	568	
==>== 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1094	1208	
==>")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1094	1208	
==>")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1094	1208	
==>")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8452	8555	
==>y $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8452	8555	
==>y $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldni <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5109	5206	
==><finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the da <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5109	5206	
==><finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3564	3716	
==>tomatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3564	3716	
==>tomatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3564	3716	
==>tomatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (out <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	833	953	
==>create_arguments ( @strings )  {
            $.argument_class.string_to_arguments( @strings );
        }
    }

    class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10329	10434	
==>:ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10329	10434	
==>:ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10329	10434	
==>:ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2977	3079	
==>::equivalence';

sub new {
    my ($class, %options) = @_;
    (exists $options{params} && blessed($opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3276	3535	
==>apture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3148	3394	
==>apture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	699	889	
==>e_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	699	889	
==>e_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<st <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1684	1815	
==>ngths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1684	1815	
==>ngths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5414	5514	
==>nce to a URI object.

You will not be able to examine the response code or response headers
(like 'Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5414	5514	
==>nce to a URI object.

You will not be able to examine the response code or response headers
(like 'Co <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1615	1831	
==>51.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2315	2428	
==>ify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2315	2428	
==>ify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2315	2428	
==>ify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9141	9268	
==>oesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: {   
        my $alt = $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	589	691	
==>ub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	589	691	
==>ub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	589	691	
==>ub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mul <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12879	12979	
==>set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9655	9755	
==>set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12879	12979	
==>set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9655	9755	
==>set2>, i.e. if
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11100	11272	
==>TURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11100	11272	
==>TURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3077	3227	
==>E, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3294	3444	
==>E, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20187	20283	
==>coded intentionally in a simple fashion so that it is easy to maintain and
and easy for developer <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20187	20283	
==>coded intentionally in a simple fashion so that it is easy to maintain and
and easy for developer <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7478	7580	
==>er_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7314	7412	
==>nce_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7314	7412	
==>nce_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7314	7412	
==>nce_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2061	2214	
==>te->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2477	2627	
==>te->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1993	2143	
==>te->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2477	2627	
==>te->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18279	18399	
==>Y;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14700	14820	
==>Y;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11651	11749	
==>s = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11651	11749	
==>s = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get v <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4099	4214	
==>lastparen = r->lastcloseparen = 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	178	280	
==>.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	178	280	
==>.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	178	280	
==>.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13061	13184	
==>) . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13061	13184	
==>) . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13061	13184	
==>) . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            re <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1961	2070	
==>as a different return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
multi m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1758	1866	
==>ns may be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1274	1372	
==>autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1274	1372	
==>autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1274	1372	
==>autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1000	1101	
==>eferential things



sub ruleop::alternation {

    # alternation is first match (not longest).  thoug <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	961	1059	
==>eferential things

sub ruleop::alternation {
    # alternation is first match (not longest).  thoug <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1546	1641	
==>ring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebre <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1546	1641	
==>ring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebre <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5148	5243	
==>ase64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QS <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5148	5243	
==>ase64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QS <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3515	3684	
==>() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3762	3931	
==>() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3074	3180	
==>tart>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3074	3180	
==>tart>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	305	422	
==>ource) = @_;

    my $file = (caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23794	23886	
==>al "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23794	23886	
==>al "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23794	23886	
==>al "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19018	19131	
==>mc reps, savereps
    .local pmc exp0, exp1

    reps = pad["reps"]
    savereps = new .Hash
    $P0 = new .Iterat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	76	179	
==>'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	76	179	
==>'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	76	179	
==>'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1314	1426	
==>rt sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1314	1426	
==>rt sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1314	1426	
==>rt sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# T <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1100	1200	
==>ake sense to continue for a while on
# Regexp::Parser.  But it's not worth working to finish.  So, we <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3485	3613	
==>ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3485	3613	
==>ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1092	1209	
==>) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex nam <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1092	1209	
==>) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31262	31463	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31262	31463	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31262	31463	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5224	5326	
==>e method fails';

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 4, '... $iFoo is the fourth id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1618	1722	
==>Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1618	1722	
==>Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1618	1722	
==>Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Num <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1148	1252	
==>ly;
    has $.DontEnum;
    has $.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20731	20906	
==>ram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20731	20906	
==>ram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL T <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20731	20906	
==>ram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL T <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26224	26307	
==>t(C1,'undef',O).

END
#============================================================= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13725	13842	
==>)/s;
	$runperl = $1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6668	6765	
==>S.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6668	6765	
==>S.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6668	6765	
==>S.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6500	6660	
==>rying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6500	6660	
==>rying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6500	6660	
==>rying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	278	386	
==>T_ID = num->new(0);

# create a null object to 
# be used in bootstrapping
our $NULL_OBJECT = bless [ 
    $O <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	723	826	
==>}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_out <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	723	826	
==>}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_out <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	782	884	
==>}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_out <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	782	884	
==>}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_out <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2192	2354	
==>turn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2192	2354	
==>turn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1623	1733	
==>code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile_to_c {
	my $self <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6890	6987	
==>jsperl5"and return "JSPERL5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	222	347	
==>/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# tokenizer

sub t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2651	2758	
==>recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2651	2758	
==>recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2651	2758	
==>recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	686	802	
==>ng it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.micro <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1859	1972	
==>te accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave acce <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1859	1972	
==>te accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave acce <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	585	687	
==>ng it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.micro <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1666	1785	
==>tilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1666	1785	
==>tilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => ' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38576	38672	
==>ven "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello Wo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38576	38672	
==>ven "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello Wo <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1789	1887	
==>e C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features ar <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1789	1887	
==>e C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features ar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35759	35852	
==>e in its C<$other> argument, where <$other> has the same heading as
the invocant Relation::Exa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37791	37884	
==>e
in its C<$other> argument, where <$other> has the same heading as the
invocant Relation::Exa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4828	4934	
==>y($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4828	4934	
==>y($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4828	4934	
==>y($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2248	2387	
==>hits, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6351	6452	
==>atch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6351	6452	
==>atch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6351	6452	
==>atch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10024	10137	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10303	10416	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22246	22345	
==>nd each attribute is a column, but a Relation is not a table.

The Relation class is pure and determ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26798	26897	
==>nd each attribute is a column, but a Relation is not a table.

The Relation class is pure and determ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11139	11233	
==>.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8543	8637	
==>.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11139	11233	
==>.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8543	8637	
==>.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1706	1800	
==>e, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
ite <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1706	1800	
==>e, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
ite <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	65	157	
==>Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perld <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	65	157	
==>Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perld <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20850	20970	
==>=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21494	21614	
==>=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17271	17391	
==>=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17915	18035	
==>=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2522	2777	
==>egin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (de <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2522	2777	
==>egin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (de <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	511	623	
==>string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $string <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	511	623	
==>string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $string <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3381	3503	
==>$mod - missing dependency\n";
        warn "($@)\n" if $@ and $@ !~ /Can't locate \Q$file\E/;
        return 0;
    }
}
# E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6149	6244	
==>ion (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6149	6244	
==>ion (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6149	6244	
==>ion (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1578	1742	
==>TER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1578	1742	
==>TER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1578	1742	
==>TER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3779	4084	
==>en 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3779	4084	
==>en 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3037	3200	
==>*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @re <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3037	3200	
==>*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4232	4362	
==>js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4232	4362	
==>js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4232	4362	
==>js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5306	5396	
==>Max) --> "..", digits_int(Max), !.
p6_range_bounds_RHS(_Min,-)   --> "...", !.
p6_range_bou <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14069	14224	
==>nstable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4154	4293	
==>nstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4154	4293	
==>nstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4154	4293	
==>nstable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $ <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	518	619	
==>by util/file_to_hs.pl
    from $in.
-}
EOF
print OUT "$data :: String\n";
print OUT "$data = \"";
dump <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1388	1482	
==>GNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1388	1482	
==>GNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1388	1482	
==>GNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	817	933	
==>sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	817	933	
==>sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	817	933	
==>sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27947	28050	
==>$self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_attr (( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2835	2938	
==>a::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2835	2938	
==>a::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4027	4117	
==>osetta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4027	4117	
==>osetta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19518	19630	
==>] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14258	14358	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14258	14358	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14258	14358	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2925	3033	
==>/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2925	3033	
==>/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2925	3033	
==>/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10194	10284	
==>gularExpressionBody> <'/'> <RegularExpressionFlags>
}
rule RegularExpressionBody {  # see 7 <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2780	3075	
==>(
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2487	2591	
==>d /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2487	2591	
==>d /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2487	2591	
==>d /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	204	306	
==>onfess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $signature, $bo <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1813	1912	
==>d and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $la <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1813	1912	
==>d and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $la <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13337	13464	
==>y}                %hash.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{@keys}         % <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38357	38451	
==>tem C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42906	43000	
==>tem C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42556	42650	
==>tem C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=he <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1162	1352	
==>$b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1162	1352	
==>$b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20919	21013	
==>them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20919	21013	
==>them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10287	10419	
==>with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2320	2436	
==>with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2320	2436	
==>with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5262	5408	
==>> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exist <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5274	5420	
==>> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exist <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31183	31280	
==>at returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
st <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35733	35830	
==>at returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1258	1374	
==>name;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1250	1358	
==>name;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say " <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1615	1744	
==>ing .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2277	2406	
==>ing .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3457	3563	
==>= @_;
  croak "no regex defined" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unless def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7097	7220	
==>my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7097	7220	
==>my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7097	7220	
==>my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8818	8917	
==>N($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8762	8882	
==>sn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to wo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8762	8882	
==>sn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to wo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9020	9136	
==>sn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to wo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9020	9136	
==>sn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2048	2242	
==>to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2048	2242	
==>to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2048	2242	
==>to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34936	35094	
==>do_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$return') == $bit::FALSE && $e->get(' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4931	5042	
==>ce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4058	4169	
==>ce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4931	5042	
==>ce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4058	4169	
==>ce($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2459	2587	
==>tch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2599	2727	
==>tch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "mat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3700	3801	
==>l y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3700	3801	
==>l y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29917	30076	
==>ft;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1856	1959	
==>~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1856	1959	
==>~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1856	1959	
==>~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19939	20037	
==>ing of a bad type to a str
my $app_plus_ten_to_str = comb(
	fun => $app_to_str,
	param => $plus_ten <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3440	3532	
==>lf is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3440	3532	
==>lf is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5637	5729	
==>lf is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4767	4873	
==>s_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	380	480	
==>hings like Object, Package and Module. It was also created
# by God (which means it is part of the co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	380	480	
==>hings like Object, Package and Module. It was also created
# by God (which means it is part of the co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	380	480	
==>hings like Object, Package and Module. It was also created
# by God (which means it is part of the co <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6178	6275	
==>e?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8246	8343	
==>e?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6178	6275	
==>e?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8246	8343	
==>e?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	171	276	
==>it.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interfa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	377	482	
==>it.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interfa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3215	3306	
==>er

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3102	3190	
==>er
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26512	26720	
==>alue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26512	26720	
==>alue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26512	26720	
==>alue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRI <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16584	16761	
==>{
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20061	20238	
==>{
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inne <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19621	19798	
==>{
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inne <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5134	5262	
==>alue);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  META_NO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8160	8331	
==>fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8160	8331	
==>fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8160	8331	
==>fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # un <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15884	16005	
==>se is since we're splicing right after the h1
            my $target  = $link->{linkfile};
            my $heading = $link <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2860	2966	
==>t "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{time <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	604	708	
==>eturn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	374	478	
==>eturn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	374	478	
==>eturn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	460	555	
==>basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	460	555	
==>basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!pa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25148	25241	
==>ht holders
of Rosetta give you permission to link Rosetta with other free software
components, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25148	25241	
==>ht holders
of Rosetta give you permission to link Rosetta with other free software
components, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	702	795	
==>$body . "))->code;"
    }))->code;
*grammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <gra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14027	14144	
==>others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_ze <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17504	17621	
==>others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_ze <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5023	5166	
==>{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defaul <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5023	5166	
==>{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defaul <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7194	7296	
==>rot_path/parrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @mo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4403	4496	
==>defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4403	4496	
==>defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6600	6693	
==>defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, p <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3538	3644	
==>c 'asin';
trig_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18416	18512	
==>getting the most accurate program text
for users, we still get the best results by having a human <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18416	18512	
==>getting the most accurate program text
for users, we still get the best results by having a human <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	856	971	
==>rity => 3,
			name => '&printf',
			body => 'prel_printf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4710	4809	
==>niqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4710	4809	
==>niqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4710	4809	
==>niqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	917	1030	
==>{
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1098	1211	
==>{
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1277	1390	
==>{
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1742	1836	
==>urrently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10224	10318	
==>dness of the input, such as that mandatory
constructor arguments are provided and that they are <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10224	10318	
==>dness of the input, such as that mandatory
constructor arguments are provided and that they are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15470	15575	
==>= 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15470	15575	
==>= 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15470	15575	
==>= 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9175	9265	
==>Foo->bar', '... $iFoo got the right method return value');

$iFoo->add_singleton_method('te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5129	5226	
==>as YAML; don't compile anything.

When compiling (--link option not given), there has to be only o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5129	5226	
==>as YAML; don't compile anything.

When compiling (--link option not given), there has to be only o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5129	5226	
==>as YAML; don't compile anything.

When compiling (--link option not given), there has to be only o <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1790	1907	
==>ess.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4955	5062	
==>=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    use Data::Dumper;
    PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15818	15908	
==>te for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
sever <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15818	15908	
==>te for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
sever <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	282	380	
==>e...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	282	380	
==>e...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	282	380	
==>e...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should w <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13118	13214	
==>e its magic not stick.

  The implementation is at best an XS-based module (currently Inline::C), <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	148	267	
==>dule::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1416	1515	
==>DO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1416	1515	
==>DO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1416	1515	
==>DO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6499	6611	
==>e { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<--> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6499	6611	
==>e { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<--> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6499	6611	
==>e { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<--> <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	877	990	
==>NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14857	14970	
==>c_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{'' <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	877	990	
==>NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14857	14970	
==>c_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{'' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26884	27009	
==>at(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27163	27288	
==>at(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	856	952	
==>rmation about the server your CGI is running on. It also 
attempts to provide some useful default <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	856	952	
==>rmation about the server your CGI is running on. It also 
attempts to provide some useful default <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	686	790	
==>n
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Wi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	686	790	
==>n
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Wi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	686	790	
==>n
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Wi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20703	20804	
==>ate the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	573	703	
==>g () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	573	703	
==>g () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2447	2546	
==>ace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of supplyin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2354	2451	
==>ace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of supplyin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2386	2521	
==>0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2386	2521	
==>0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2386	2521	
==>0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arr <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1303	1391	
==>x.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s28.vlinux.de/iblech/p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11066	11209	
==>my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1540	1675	
==>my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1540	1675	
==>my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37958	38086	
==>ith methods:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6588	6704	
==>ent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6600	6716	
==>ent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    pr <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2528	2631	
==>udes($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2528	2631	
==>udes($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15651	15816	
==>m>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Ba <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15651	15816	
==>m>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Ba <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8137	8268	
==>$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8125	8256	
==>$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! de <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14362	14462	
==>deExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <Postfi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5474	5592	
==>opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run_all_tests>

  my($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13892	14009	
==>r(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13892	14009	
==>r(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13892	14009	
==>r(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4818	4942	
==>: 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4806	4930	
==>: 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2484	2587	
==>s '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2484	2587	
==>s '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2173	2301	
==>,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2173	2301	
==>,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2173	2301	
==>,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5169	5275	
==>);

Pseudo-code for usage inside a grammar:

    rule prototype {
        proto <category>:<name> <options> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1767	1870	
==>.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1884	1987	
==>.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1767	1870	
==>.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1884	1987	
==>.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7900	8047	
==>0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7900	8047	
==>0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7900	8047	
==>0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6 <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7229	7327	
==>/src -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11227	11353	
==>1 match::get( \$_[0], '\$()' ) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3560	3661	
==>tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3560	3661	
==>tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3560	3661	
==>tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	605	721	
==>0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	605	721	
==>0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	605	721	
==>0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	180	284	
==>SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use constant SUBDIR_OF_META     => su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2671	2782	
==>wise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $self->config;

    $self->root-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	76	184	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	76	184	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	76	184	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}-> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1109	1209	
==>ut of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::instantiated - points to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2906	2991	
==>blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2906	2991	
==>blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2906	2991	
==>blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functio <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7161	7285	
==>asl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7161	7285	
==>asl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     = <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9512	9606	
==>rl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9512	9606	
==>rl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16200	16328	
==>d reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16200	16328	
==>d reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7414	7513	
==>et = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning ", <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7414	7513	
==>et = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning ", <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	169	266	
==>to be somehow incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../pu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6908	7000	
==>thod('does'), '... we now have the does() method');
ok($Role->does('Role'), '... Role now doe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7403	7485	
==>rectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7403	7485	
==>rectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7403	7485	
==>rectly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_role <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	762	856	
==>seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	762	856	
==>seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37691	37784	
==>elation::Example>

This method is a generic relational operator that takes a single Relation:: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38531	38624	
==>elation::Example>

This method is a generic relational operator that takes a single Relation:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13363	13485	
==>($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13363	13485	
==>($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5825	5918	
==>tors return Rule objects, which are "matcher" things.

Rules operate on strings (normally) and <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5622	5714	
==>tors return Rule objects, which are "matcher" things.
Rules operate on strings (normally) and <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	224	346	
==>ub { $w } };

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	978	1094	
==>);
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	978	1094	
==>);
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	978	1094	
==>);
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12690	12825	
==>WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3054	3183	
==>WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3054	3183	
==>WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31693	31796	
==>ribute names of the invocant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1368	1470	
==>plit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1368	1470	
==>plit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1368	1470	
==>plit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	582	681	
==>ft;
    my $node = shift;

	return $node unless Scalar::Util::blessed($node);

	$node->isa("Blondie: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2613	2711	
==>().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2613	2711	
==>().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2613	2711	
==>().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mang <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1030	1166	
==>has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1030	1166	
==>has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has S <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	23	128	
==>1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	23	128	
==>1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	191	291	
==>t"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	191	291	
==>t"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER: <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	955	1051	
==>RIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allow <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	955	1051	
==>RIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allow <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	196	310	
==>mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	196	310	
==>mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	196	310	
==>mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43373	43465	
==>ion> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relation> apply to this <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7028	7231	
==>= 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7028	7231	
==>= 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract <==
4	/Users/nnunley/pugs/t/packages/Test.pm	3	103	
==>kage t::packages::Test;

sub ns  { "t::packages::Test" }

sub pkg { $?PACKAGE }

sub test_export is e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38426	38535	
==>, @kids),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Reg <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2130	2231	
==>urns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child) <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2130	2231	
==>urns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7444	7541	
==>the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_dir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7444	7541	
==>the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_dir <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3819	3932	
==>und;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6143	6256	
==>und;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40238	40331	
==>.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent notic <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40238	40331	
==>.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent notic <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5201	5317	
==>s::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6469	6585	
==>s::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5201	5317	
==>s::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6457	6573	
==>s::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6054	6153	
==>'s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6054	6153	
==>'s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6054	6153	
==>'s parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

E <==
4	/Users/nnunley/pugs/util/func_refact.pl	81	177	
==>ions \our %Conf, qw(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8167	8340	
==>) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11719	11860	
==>pec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11719	11860	
==>pec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11719	11860	
==>pec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10998	11096	
==>stores data to be used or
displayed by your program.  It is analagous to a simplified version of th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14161	14259	
==>stores data to be used or
displayed by your program.  It is analagous to a simplified version of th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10998	11096	
==>stores data to be used or
displayed by your program.  It is analagous to a simplified version of th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14161	14259	
==>stores data to be used or
displayed by your program.  It is analagous to a simplified version of th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	21	278	
==>6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	21	278	
==>6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3808	3939	
==>'-e'){
        $src = shift(@ARGV) or die "Enter a one-liner";
    }
    elsif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10065	10190	
==>iff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10065	10190	
==>iff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10065	10190	
==>iff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1475	1571	
==>.= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1475	1571	
==>.= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1475	1571	
==>.= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$sel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5311	5449	
==>$bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5504	5642	
==>$bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pu <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	596	721	
==>pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	596	721	
==>pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5809	5912	
==>elf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5809	5912	
==>elf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5809	5912	
==>elf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2252	2364	
==>s eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2252	2364	
==>s eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2252	2364	
==>s eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14260	14357	
==>BRACES (-19)

Missing braces on \%s{}

=item RPe_RBRACE (-20)

Missing right brace on \%s{}

=item <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2411	2518	
==>kup {
    my($class, $what) = @_;
    die "unknown option: $what" unless exists $Conf->{$what};
    my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	398	502	
==>tance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	603	707	
==>tance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	659	763	
==>tance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instan <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1550	1654	
==>enTableKey}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relativePrecedence}{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11390	11482	
==>rited. This provides more predictable 
behavior to class consturction because it isolates the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11390	11482	
==>rited. This provides more predictable 
behavior to class consturction because it isolates the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11390	11482	
==>rited. This provides more predictable 
behavior to class consturction because it isolates the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4612	4731	
==>'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4612	4731	
==>'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5404	5510	
==>y method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5404	5510	
==>y method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10239	10327	
==>print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10974	11062	
==>print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1499	1611	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1499	1611	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1499	1611	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17720	17816	
==>nullary->new("str")),
);

# the polymorphic snd function takes any pair and returns it's second t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12063	12296	
==>rg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12063	12296	
==>rg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17259	17355	
==>ng we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22359	22455	
==>ng we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13244	13367	
==>,
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Please create a $initr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40361	40471	
==>ef}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40361	40471	
==>ef}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40361	40471	
==>ef}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5502	5643	
==>es;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5502	5643	
==>es;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $mat <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2694	2798	
==>$self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2694	2798	
==>$self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23593	23704	
==>= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $S1
    $S1 .= "\n.end\n"
    self["value"] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6788	6886	
==>not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6788	6886	
==>not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6788	6886	
==>not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1923	2036	
==>le.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2140	2253	
==>le.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_fil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3467	3638	
==>elf = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2428	2534	
==>DERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2428	2534	
==>DERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2428	2534	
==>DERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11319	11422	
==>in,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11319	11422	
==>in,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11319	11422	
==>in,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27749	27837	
==>_and_first_p), "(int × int)", ":t length_and_first [1]");
is(t($length_and_first_gen), " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1891	2034	
==>y \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1879	2022	
==>y \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9924	10028	
==>tor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= Key <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1139	1241	
==>tor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= Key <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25870	25992	
==>yEscape>
}
rule ControlEscape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9513	9628	
==>= args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9513	9628	
==>= args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9513	9628	
==>= args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(id <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21833	21933	
==>ou
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informati <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20714	20814	
==>ou
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informati <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21833	21933	
==>ou
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informati <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20714	20814	
==>ou
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional informati <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	658	768	
==>?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $sizeof_crowd, Array @x?) returns Hash is
ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20802	20893	
==>x:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20802	20893	
==>x:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20802	20893	
==>x:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24016	24142	
==>) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24016	24142	
==>) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24016	24142	
==>) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	50	158	
==>qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4838	4931	
==>tected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4838	4931	
==>tected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4838	4931	
==>tected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	649	766	
==>wd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	649	766	
==>wd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	649	766	
==>wd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_ex <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26930	27030	
==>ity.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harness will check after <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7415	7523	
==>ocal $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7427	7535	
==>ocal $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not al <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1387	1483	
==>b)');
my $rpcr2 = Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36401	36497	
==>ns 'foo' somewhere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->err <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1625	1752	
==>use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->ab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9188	9313	
==>tion = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1316	1433	
==>tion = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1316	1433	
==>tion = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2396	2564	
==>x = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift;
                %{$self->ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7250	7396	
==>urn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7250	7396	
==>urn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7250	7396	
==>urn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3864	3961	
==>Total number of tests expected to run.

=item B<Fail>

Number which failed, either from "not ok" o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	796	886	
==>nt)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	796	886	
==>nt)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	796	886	
==>nt)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14173	14290	
==>_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $self;
}

method CREATE (opaque $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36036	36132	
==>the invocant and <$other> headings. 
The body of the new relation is the result of first pairwise <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40586	40681	
==>the invocant and <$other> headings.
The body of the new relation is the result of first pairwise <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40200	40295	
==>the invocant and <$other> headings.
The body of the new relation is the result of first pairwise <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30500	30665	
==>t')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    con <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4138	4277	
==>1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4126	4265	
==>1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1 <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2278	2369	
==>aml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness: $!";
system($^X <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1335	1465	
==>port(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1335	1465	
==>port(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	396	517	
==>e directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) un <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	396	517	
==>e directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) un <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28609	28838	
==>new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->get('$self:')
                            ->set_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2522	2617	
==>angle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2522	2617	
==>angle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2522	2617	
==>angle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	607	770	
==>ent until end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] \n";
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	593	709	
==>ize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	593	709	
==>ize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	593	709	
==>ize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12453	12556	
==>@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12453	12556	
==>@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12453	12556	
==>@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an arra <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25771	25852	
==>(_,_,_,x,_,_,_,_,_,_))).

%------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26035	26141	
==>ist => $a),
		$a,
	);
	is($type->stringify, "∀α. list α → α", "pretty print list a -> a");
}
{
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2535	2639	
==>ars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2535	2639	
==>ars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2535	2639	
==>ars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9877	10008	
==>arser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@{$o->data}{'min','max'});
    $min = 0 if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	645	743	
==>d_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	645	743	
==>d_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	645	743	
==>d_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1468	1570	
==>meter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12069	12171	
==>to
  strings, rather than Match objects.

  A set of hooks should be defined in CORE which just call ba <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1468	1570	
==>meter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1468	1570	
==>meter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7229	7378	
==>ld', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7229	7378	
==>ld', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2520	2656	
==>>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defa <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2520	2656	
==>>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2796	2905	
==>sg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2796	2905	
==>sg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15840	15946	
==>ol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2237	2339	
==>ol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2595	2704	
==>> Blondie::Val->new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5884	5983	
==>ssage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5884	5983	
==>ssage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5778	5904	
==>rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6627	6753	
==>rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13296	13456	
==>$f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c = $_[0];
        FAIL() i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7679	7804	
==>al ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7679	7804	
==>al ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6557	6658	
==>ode;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	nex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15582	15679	
==>(Str) of Any - This contains zero or more attribute names and values
that help to define this Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15582	15679	
==>(Str) of Any - This contains zero or more attribute names and values
that help to define this Node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1707	1813	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1707	1813	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1707	1813	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMod <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6834	6935	
==>andler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	412	532	
==>ETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	412	532	
==>ETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	412	532	
==>ETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return thi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	66	155	
==>e Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	479	569	
==>LLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	479	569	
==>LLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	479	569	
==>LLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine! <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7515	7604	
==>uiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->fixity || <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8070	8335	
==>ample {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8340	8545	
==>alue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8340	8545	
==>alue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8340	8545	
==>alue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16338	16449	
==>:Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_nu <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	749	860	
==>ou want to install '$script_name'";
        $prompt .= " ($abstract)" if defined $abstract;
        $prompt .= ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16338	16449	
==>:Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16338	16449	
==>:Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_nu <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1392	1524	
==>ill do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash",   # of S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3371	3479	
==>span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3371	3479	
==>span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $sp <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	665	754	
==>s", &parse_dollar);
    $optable->addToken("term:.", "term:", "nows", "PGE::Exp::CCShortcu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10267	10411	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10267	10411	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10267	10411	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8071	8167	
==>e
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2813	2905	
==>",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6265	6357	
==>",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2813	2905	
==>",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2813	2905	
==>",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6121	6217	
==>e =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follow <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22718	22814	
==>ne.  The Relation::Example operators are somewhat of
a superset of the Set operators.

Like the S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6121	6217	
==>e =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follow <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6121	6217	
==>e =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follow <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11615	11731	
==>any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7106	7213	
==>will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7106	7213	
==>will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7106	7213	
==>will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2J <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2468	2562	
==>alue($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6796	6883	
==>' => ::make_method($_resolve));

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6796	6883	
==>' => ::make_method($_resolve));

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6796	6883	
==>' => ::make_method($_resolve));

## ---------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27074	27177	
==>y => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27074	27177	
==>y => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2025	2126	
==>(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2025	2126	
==>(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51016	51195	
==>bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51627	51806	
==>bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12206	12303	
==>ge/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12206	12303	
==>ge/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2140	2278	
==>$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Repoindex <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3570	3664	
==>s is a Factory method used to create a specific class instances which
perform the Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3570	3664	
==>s is a Factory method used to create a specific class instances which
perform the Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5767	5861	
==>s is a Factory method used to create a specific class instances which
perform the Test::Builder <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1855	2051	
==>ush('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_o <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1855	2051	
==>ush('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9675	9770	
==>s will need to override these
method _head() returns Array { return }
method _tail() returns Arr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9675	9770	
==>s will need to override these
method _head() returns Array { return }
method _tail() returns Arr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13645	13745	
==>ject(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2036	2133	
==>ame = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2036	2133	
==>ame = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2036	2133	
==>ame = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	256	376	
==>new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	256	376	
==>new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	256	376	
==>new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5183	5301	
==>}
rule FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boolea <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4287	4395	
==>known proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4287	4395	
==>known proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1515	1619	
==>d, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1573	1677	
==>d, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7678	7836	
==>ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7690	7848	
==>ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1377	1473	
==>*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigsp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1377	1473	
==>*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigsp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22103	22195	
==>able for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20984	21076	
==>able for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22103	22195	
==>able for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20984	21076	
==>able for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7529	7631	
==>in { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7529	7631	
==>in { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7529	7631	
==>in { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packag <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	181	281	
==>s copy
has Bool $isWritable;  # is rw
has Bool $isLazy;
has Str $paramName;
has Perl::Cxt $paramConte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9799	9903	
==>text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9799	9903	
==>text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9799	9903	
==>text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDEN <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1466	1599	
==>iled Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1466	1599	
==>iled Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1128	1225	
==>e multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1128	1225	
==>e multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1128	1225	
==>e multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5415	5526	
==>b ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5415	5526	
==>b ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5415	5526	
==>b ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22793	22897	
==>try'> <Block> <Catch> <Finally>
}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4678	4828	
==>it "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	733	838	
==>invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	733	838	
==>invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	733	838	
==>invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13525	13732	
==>ispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13525	13732	
==>ispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13525	13732	
==>ispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8377	8512	
==>STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23744	23842	
==>$m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23744	23842	
==>$m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23744	23842	
==>$m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	206	308	
==>skipped tests have pos point to the test library

use warnings;
use strict;

use Cwd;
use File::Find;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3374	3470	
==>')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3374	3470	
==>')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3374	3470	
==>')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	573	703	
==>ERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	487	586	
==>nal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	487	586	
==>nal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	487	586	
==>nal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	610	718	
==>$doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	610	718	
==>$doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8146	8240	
==>rective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8146	8240	
==>rective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This even <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5606	5745	
==>s now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4106	4245	
==>s now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	121	213	
==>ment;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	121	213	
==>ment;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15464	15570	
==>}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15464	15570	
==>}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15464	15570	
==>}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2059	2199	
==>$extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

sub double_quoted {
    my $grammar = shift;
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8657	8796	
==>_('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8657	8796	
==>_('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8657	8796	
==>_('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1667	1769	
==>recompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1667	1769	
==>recompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1667	1769	
==>recompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34574	34666	
==>ct__> (if it exists), then
in F<Regexp::Parser::THING> (if it exists), and finally in
F<Regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	20	120	
==>alX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	20	120	
==>alX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	20	120	
==>alX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26132	26236	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a subset of t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31127	31231	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a subset of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30684	30788	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a subset of t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35677	35781	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a subset of t <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3635	3752	
==>hc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->ma <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3635	3752	
==>hc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3314	3419	
==>sion ], @{ $values{requires} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13686	13783	
==>ng name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13686	13783	
==>ng name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39059	39197	
==>d =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39059	39197	
==>d =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39059	39197	
==>d =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    m <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1139	1271	
==>t;
        (ref $self)->new(&$f($self->val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = shi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4790	4963	
==>( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8267	8440	
==>( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7269	7442	
==>( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	108	207	
==>::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	108	207	
==>::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	108	207	
==>::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1886	1979	
==>(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	442	536	
==>r::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	442	536	
==>r::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementatio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29769	29864	
==>ant's attributes.  This method
supports having the new attributes having the same names as old a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34321	34416	
==>ant's attributes.  This method
supports having the new attributes having the same names as old a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33485	33580	
==>ant's attributes.  This method
supports having the new attributes having the same names as old a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4982	5094	
==>r($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4982	5094	
==>r($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4982	5094	
==>r($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patter <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4471	4602	
==>to find '$basename', aborting...\n";
        }

        unless( File::Spec->canonpath($candidates[0]) eq $target ) {
            mkp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	839	960	
==>$param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	818	933	
==>$param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy} <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	818	933	
==>$param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11300	11415	
==>} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14123	14211	
==>ner::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14123	14211	
==>ner::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14123	14211	
==>ner::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	963	1064	
==>);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*si <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	963	1064	
==>);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16113	16209	
==>es.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.pm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16113	16209	
==>es.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.pm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1925	2047	
==>n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1925	2047	
==>n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1925	2047	
==>n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6798	6894	
==>"Perl5"} || %mods{"P5"};
    #my sub warning($e){warn(Carp::longmess($e))};# XXX doesnt work yet. <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	310	479	
==>fined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! % <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	310	479	
==>fined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! % <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2515	2676	
==>alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2526	2687	
==>alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2137	2254	
==>group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2727	2844	
==>group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2137	2254	
==>group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2715	2832	
==>group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18810	18937	
==>hen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20168	20295	
==>hen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{d <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16340	16433	
==>g>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16398	16491	
==>g>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3021	3254	
==>),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5114	5220	
==>ef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5114	5220	
==>ef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5114	5220	
==>ef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3675	3791	
==>e, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1469	1566	
==>testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1469	1566	
==>testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1469	1566	
==>testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5523	5645	
==>$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5523	5645	
==>$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5523	5645	
==>$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5276	5375	
==>ix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END_DIE

    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5172	5262	
==>ration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAM <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4992	5081	
==>ration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAM <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5617	5704	
==>an}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5617	5704	
==>an}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5514	5674	
==>~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5514	5674	
==>~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5514	5674	
==>~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20608	20702	
==>(($self: class) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatcher (symbol n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6937	7050	
==>%!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6937	7050	
==>%!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3073	3175	
==>~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about lar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3073	3175	
==>~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about lar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6599	6709	
==>b prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6599	6709	
==>b prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6599	6709	
==>b prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2703	2812	
==>.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2703	2812	
==>.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2703	2812	
==>.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12970	13063	
==>eletes the elements specified by C<$key> or C<$keys> from the invocant.
returns the value(s) t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	136	294	
==>ls',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-A <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	136	294	
==>ls',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-A <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8925	9033	
==>s delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8925	9033	
==>s delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4551	4697	
==>-> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4551	4697	
==>-> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12796	12919	
==>{
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $con <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12796	12919	
==>{
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14721	14843	
==>ect ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14721	14843	
==>ect ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14721	14843	
==>ect ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9781	9883	
==>unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2063	2175	
==>push \@grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7415	7505	
==>}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7415	7505	
==>}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7415	7505	
==>}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2238	2336	
==>system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2216	2314	
==>system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3261	3354	
==>sors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub b <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3261	3354	
==>sors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1834	1972	
==>_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1834	1972	
==>_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1834	1972	
==>_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek i <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1838	1942	
==>t:\n"; print STDERR $out;
      die "Oops, you failed.\n";
   }
}

# ------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2040	2166	
==>d  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $cod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3846	3944	
==>ad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3846	3944	
==>ad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	696	794	
==>ad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14614	14744	
==>ss ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14614	14744	
==>ss ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14614	14744	
==>ss ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10502	10600	
==>see 7.8.5
      <!before <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule RegularExpress <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7347	7470	
==>hr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7347	7470	
==>hr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3142	3243	
==>n ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3142	3243	
==>n ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2405	2520	
==>self, $passed, $description, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FETCH(': <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3843	3938	
==>ND__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3843	3938	
==>ND__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3843	3938	
==>ND__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9095	9190	
==>in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9095	9190	
==>in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34245	34338	
==>her!) returns Relation>

This method is a generic relational operator that returns the complem <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38795	38888	
==>her!) returns Relation>

This method is a generic relational operator that returns the complem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	147	283	
==>> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	189	325	
==>> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	147	283	
==>> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	189	325	
==>> \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9538	9645	
==>tains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a S <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16028	16135	
==>tains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9538	9645	
==>tains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16028	16135	
==>tains( $object )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40892	40986	
==>bute,
because that is a practical way of suggesting improvements to the standard
version.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26452	26546	
==>bute, because that is a practical way of
suggesting improvements to the standard version.

=hea <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40892	40986	
==>bute,
because that is a practical way of suggesting improvements to the standard
version.

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26452	26546	
==>bute, because that is a practical way of
suggesting improvements to the standard version.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2256	2378	
==>e {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2256	2378	
==>e {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2256	2378	
==>e {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	751	904	
==>3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	751	904	
==>3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14844	14935	
==>Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14844	14935	
==>Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9599	9697	
==>l way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9599	9697	
==>l way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	39026	39123	
==>ribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None y <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43840	43937	
==>ribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None y <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21060	21157	
==><nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19968	20065	
==><nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21060	21157	
==><nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19968	20065	
==><nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the channels C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6288	6451	
==>Exp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6288	6451	
==>Exp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6288	6451	
==>Exp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6917	7053	
==>=> \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Ch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11472	11608	
==>=> \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Ch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12270	12406	
==>=> \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Ch <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12997	13133	
==>=> \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	634	743	
==>, value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	634	743	
==>, value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	634	743	
==>, value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    / <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7633	7790	
==>~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license in <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7690	7847	
==>~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license in <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13090	13189	
==>ive or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not im <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13148	13247	
==>ive or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not im <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3898	3999	
==>bsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3898	3999	
==>bsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7924	8097	
==>y( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7924	8097	
==>y( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7924	8097	
==>y( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #war <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4526	4636	
==>"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNamed">, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3448	3611	
==>0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.output')->write("B <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9087	9189	
==>ct of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9087	9189	
==>ct of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9087	9189	
==>ct of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcul <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2468	2594	
==>_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2468	2594	
==>_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1217	1324	
==>eturn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1217	1324	
==>eturn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16554	16682	
==>en => $nparen,
      data => \@data,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	65	166	
==>@_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	65	166	
==>@_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	65	166	
==>@_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38201	38298	
==>e others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42750	42847	
==>e others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42400	42497	
==>e others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8693	8824	
==>$I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4817	4914	
==>omething
of the original name. So if you had an object blessed into "MyClass",
it will now be bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4817	4914	
==>omething
of the original name. So if you had an object blessed into "MyClass",
it will now be bles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4817	4914	
==>omething
of the original name. So if you had an object blessed into "MyClass",
it will now be bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13188	13294	
==>ame = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13188	13294	
==>ame = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13188	13294	
==>ame = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7023	7119	
==>rsion of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only suppor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7023	7119	
==>rsion of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only suppor <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9095	9204	
==>ommit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12948	13054	
==>ommit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %ha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12948	13054	
==>ommit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %ha <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18466	18566	
==>rule ConditionalExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <LogicalOR <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1314	1412	
==>th whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1314	1412	
==>th whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5177	5277	
==>nal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5177	5277	
==>nal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7374	7474	
==>nal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11421	11512	
==>_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5_co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2623	2731	
==>ight 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2623	2731	
==>ight 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1832	1937	
==>ight 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3693	3798	
==>ight 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or modify it
under t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5391	5485	
==>using the HTML tag "<script src=...>". Of course, this feature is not available
when linking to <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2273	2367	
==>e behavior of
Test::Harness.  They are exported on request.

=over 4

=item C<$Test::Harness::V <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5391	5485	
==>using the HTML tag "<script src=...>". Of course, this feature is not available
when linking to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5391	5485	
==>using the HTML tag "<script src=...>". Of course, this feature is not available
when linking to <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6752	6848	
==>>force_object(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24547	24687	
==>$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24547	24687	
==>$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24547	24687	
==>$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21285	21377	
==>r::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Parser:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6396	6519	
==>.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6463	6558	
==>of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6463	6558	
==>of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6463	6558	
==>of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3487	3613	
==>= $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $debug;
        local $Z::oop{$id}{'op_ahead'} = $op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3382	3499	
==>t;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3382	3499	
==>t;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3382	3499	
==>t;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpP <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3554	3675	
==>unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self->{tree} };
  my $next;

  return sub {
    return $depth i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3995	4087	
==>::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3995	4087	
==>::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5519	5611	
==>::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5308	5455	
==>nstalled package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6065	6188	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6065	6188	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6065	6188	
==>$::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10306	10435	
==>estplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1321	1450	
==>re <Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        wh <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2339	2452	
==>estplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( " <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2339	2452	
==>estplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5730	5846	
==>any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5730	5846	
==>any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5730	5846	
==>any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  m <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7252	7392	
==>, Int)\
\\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2206	2304	
==>$cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wit <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2206	2304	
==>$cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wit <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2206	2304	
==>$cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2522	2643	
==>n use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2439	2556	
==>n use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	590	685	
==>nvite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	590	685	
==>nvite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13522	13733	
==>ams = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13522	13733	
==>ams = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13522	13733	
==>ams = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5111	5201	
==>--------------------------------------
## now begin creating the metamodel, starting with C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4944	5042	
==>Info::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8711	8808	
==>oo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8711	8808	
==>oo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8711	8808	
==>oo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10025	10124	
==>ad_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10025	10124	
==>ad_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6462	6560	
==>cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actua <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6462	6560	
==>cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actua <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	905	1033	
==>le space-seperated args,
# append an argument to the current list.
sub makemaker_append {
    my $self = shift;
    my $name = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5189	5299	
==>ta::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5189	5299	
==>ta::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5779	5889	
==>ta::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7633	7759	
==>last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	528	642	
==>>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	528	642	
==>>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	528	642	
==>>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	84	190	
==>valence;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type';

# e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7121	7209	
==>= '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7121	7209	
==>= '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7121	7209	
==>= '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9250	9378	
==>g  => sub { system "dd", "if=/dev/zero", "of=$initrd_img", "bs=1K", "count=$initrd_size" },
    help   => "We're now creating a z <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9910	10005	
==>my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'na <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	16	111	
==>ehreren Parametern definieren
class Welt {
	method hallo ( String $gruß, String $name ) { "$gru <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9910	10005	
==>my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12531	12641	
==>$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12531	12641	
==>$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12531	12641	
==>$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); d <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12858	12962	
==>t;
    $self->execute($self->compile(@_))->val;
}

package Interpreter;
use base qw/Reducer DynamicScopes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13308	13552	
==>rams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13308	13552	
==>rams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13308	13552	
==>rams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1141	1263	
==>ames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( sou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3740	3928	
==>ng - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3625	3807	
==>ng - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6884	7006	
==>an::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6884	7006	
==>an::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2478	2600	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2478	2600	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2478	2600	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26373	26468	
==>d_subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses.push($subclass);
}

( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3246	3367	
==>es[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3141	3260	
==>es[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14826	14934	
==>se {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14826	14934	
==>se {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10454	10569	
==>------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes ab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10454	10569	
==>------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes ab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10454	10569	
==>------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes ab <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	229	328	
==>s, or type literals

# second part is the object model for a lambda calculus, and a type inferrencer <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2011	2174	
==>mp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3541	3699	
==>mp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12328	12436	
==>mmand>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12328	12436	
==>mmand>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in conne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6082	6207	
==>dy->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6082	6207	
==>dy->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6082	6207	
==>dy->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	320	442	
==>mends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_ke <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8609	8727	
==>:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11456	11561	
==>args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11456	11561	
==>args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args," <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11456	11561	
==>args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args," <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10496	10600	
==>::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10496	10600	
==>::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11002	11101	
==>es data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11002	11101	
==>es data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Do <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1185	1299	
==>ate: <%var> does longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1534	1646	
==>ate: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1141	1253	
==>ate: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1534	1646	
==>ate: <%var> does longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1523	1656	
==>ntime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1976	2109	
==>ntime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2411	2544	
==>ntime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2848	2981	
==>ntime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12560	12687	
==>ll')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'dele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12560	12687	
==>ll')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'dele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12560	12687	
==>ll')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'dele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2643	2741	
==>erl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2643	2741	
==>erl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2643	2741	
==>erl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12854	12947	
==>I migrated &prefix:<=> from
# meaning the same as &readline to $obj.shift(), ="some_file" work <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	236	362	
==>();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	236	362	
==>();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	236	362	
==>();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      / <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13773	13868	
==>_SEQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4468	4593	
==>ng ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7945	8070	
==>ng ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9399	9497	
==>re times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be poss <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9399	9497	
==>re times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be poss <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5255	5355	
==>methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5255	5355	
==>methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5255	5355	
==>methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31082	31181	
==>ith which it was created.

=item flags

The flags for the object.

=back

The following attributes m <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6113	6258	
==>\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\\n   List      pre     keys    safe   ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3427	3527	
==>ut.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to ru <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3427	3527	
==>ut.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to ru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3507	3607	
==>ut.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3441	3584	
==>ff);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3441	3584	
==>ff);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0]. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3441	3584	
==>ff);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0]. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1784	1921	
==>se {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2216	2327	
==>}

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2216	2327	
==>}

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2216	2327	
==>}

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17378	17475	
==>l it through an object that
inherits from that class.

There are no longer I<star>, I<plus>, and I <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6830	6949	
==>} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $pro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6842	6961	
==>} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $pro <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3485	3602	
==><conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2< <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3485	3602	
==><conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7299	7432	
==>"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7311	7444	
==>"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	222	329	
==>SION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36998	37094	
==>hese their joining
degenerates to a C<intersection>.  In any situation where a pair of source
rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41547	41643	
==>hese their joining
degenerates to a C<intersection>.  In any situation where a pair of source
rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41170	41266	
==>hese their joining
degenerates to a C<intersection>.  In any situation where a pair of source
rel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	294	416	
==>ed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => undef } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2281	2374	
==>ings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2281	2374	
==>ings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2281	2374	
==>ings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testp <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1800	1926	
==>2}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.In <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1800	1926	
==>2}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.In <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1125	1230	
==>STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOLD . RED, R <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13998	14090	
==>m their children
comb: generic_in($.fun) = { generic_in($$) }
comb: generic_in($.param) = { g <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19081	19176	
==>more than one argument"), which is also the basis of the relational
data model proposed by Edgar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16207	16302	
==>g rationales; you can read TTM itself and
various other external documentation for much of that. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22731	22826	
==>more than one
argument"), which is also the basis of the relational data model proposed
by Edgar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16207	16302	
==>g rationales; you can read TTM itself and
various other external documentation for much of that. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5886	6046	
==>n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5898	6058	
==>n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21823	21941	
==>> -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18244	18362	
==>> -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
4	/Users/nnunley/pugs/util/func_refact.pl	1776	1879	
==>t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbose} or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3199	3292	
==>ributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3199	3292	
==>ributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3199	3292	
==>ributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2279	2376	
==>>>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2279	2376	
==>>>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11509	11605	
==>s()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11509	11605	
==>s()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4660	4794	
==>$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4660	4794	
==>$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4660	4794	
==>$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	363	460	
==>s_array  {my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub from {my( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5423	5531	
==>sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5249	5355	
==>sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2668	2762	
==>();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2668	2762	
==>();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11297	11503	
==>ll->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11297	11503	
==>ll->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11297	11503	
==>ll->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XX <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4362	4457	
==>Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method PutVal <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8791	8911	
==>t operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8791	8911	
==>t operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $in <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3061	3173	
==>k('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3061	3173	
==>k('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2006	2116	
==>ass: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2006	2116	
==>ass: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3181	3283	
==>Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3181	3283	
==>Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1187	1289	
==>pl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1187	1289	
==>pl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1187	1289	
==>pl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5809	5900	
==>) . "");
$template->param(files => $total_files);
$template->param(links => $total_links);
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1269	1376	
==>ed-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1269	1376	
==>ed-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1269	1376	
==>ed-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17854	17958	
==>e in terms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to be in ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1893	2011	
==>"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1893	2011	
==>"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1893	2011	
==>"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	43	133	
==>sr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
package Module::Install::Scri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1470	1575	
==>} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1470	1575	
==>} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1470	1575	
==>} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef() <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22526	22629	
==><$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX ee <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5185	5288	
==>}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6584	6675	
==>ad1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6584	6675	
==>ad1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6584	6675	
==>ad1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7694	7882	
==>f, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7694	7882	
==>f, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7694	7882	
==>f, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tm <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9839	9952	
==>ng
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10494	10593	
==>s -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 F <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10494	10593	
==>s -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 F <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20525	20621	
==>ide variety of third party Engine
modules that become available over time.  One plan which I favo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20525	20621	
==>ide variety of third party Engine
modules that become available over time.  One plan which I favo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8401	8559	
==>(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new("$label", q<symbol>), 
                        symbol->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4796	4916	
==>$sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4796	4916	
==>$sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4796	4916	
==>$sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19290	19401	
==>is only exited if the connection to the server
dies. To read data from the server, a blocking C<readline> call i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18315	18426	
==>is only exited if the connection to the server
dies. To read data from the server, a blocking C<readline> call i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19290	19401	
==>is only exited if the connection to the server
dies. To read data from the server, a blocking C<readline> call i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18315	18426	
==>is only exited if the connection to the server
dies. To read data from the server, a blocking C<readline> call i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4580	4727	
==>my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5233	5379	
==>my $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18008	18103	
==>ode object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18008	18103	
==>ode object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	90	343	
==>ort symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	90	343	
==>ort symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	90	343	
==>ort symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	90	343	
==>ort symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	573	697	
==>($value) && $value->isa('type')))
            || confess "Keys must be strings, and values must be native types";
        $va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11820	11933	
==>s "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11820	11933	
==>s "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11820	11933	
==>s "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @pa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	904	1015	
==>.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.las <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	904	1015	
==>.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.las <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30390	30487	
==>ne member
large, with each set member being an an exclusive alternative for the rest
of the set. T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30390	30487	
==>ne member
large, with each set member being an an exclusive alternative for the rest
of the set. T <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8942	9038	
==>aracters {  # see 7.8.4
      <DoubleStringCharacter> <DoubleStringCharacters>?
}
rule SingleStri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2816	2933	
==>rclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3021	3138	
==>rclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7569	7685	
==>e ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.trave <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7569	7685	
==>e ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.trave <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1510	1620	
==>ss, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1510	1620	
==>ss, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Com <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6604	6706	
==>ctories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6604	6706	
==>ctories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11516	11628	
==>d $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11516	11628	
==>d $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11516	11628	
==>d $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	33	132	
==>he source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	33	132	
==>he source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will al <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	33	132	
==>he source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will al <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	33	132	
==>he source, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	41	155	
==>ict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	41	155	
==>ict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	41	155	
==>ict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	855	947	
==>.'\'} = '.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(< <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3564	3664	
==>my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6125	6222	
==>rrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6125	6222	
==>rrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2607	2704	
==>my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4025	4191	
==>my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### fi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4489	4655	
==>my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### fi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	835	937	
==>when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	835	937	
==>when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20012	20110	
==>{  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationList> <';'>
}
rule VariableDeclarati <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28341	28438	
==>t's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35697	35794	
==>t's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28341	28438	
==>t's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35697	35794	
==>t's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
extr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9238	9380	
==>eturn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9238	9380	
==>eturn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9238	9380	
==>eturn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $co <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9817	9923	
==>et, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	622	729	
==>nfig{siteprefix},

        installscript  => $Config{installscript},
        sitescript     => $Config{insta <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1478	1578	
==>snt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1536	1636	
==>snt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	136	233	
==>assed around.  It essentially
forms a linked list through the rule as it is executed, but the link <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	136	233	
==>assed around.  It essentially
forms a linked list through the rule as it is executed, but the link <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11264	11388	
==>mple $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	301	402	
==>& str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	301	402	
==>& str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	301	402	
==>& str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2082	2197	
==>rn $conf;
}

sub env_override {
    my($class, $conf) = @_;
    my %env = map { split /=/ } (split /:/, ($ENV{PUGS_B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	273	379	
==>9-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	273	379	
==>9-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	273	379	
==>9-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8803	8963	
==>ore( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8803	8963	
==>ore( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8803	8963	
==>ore( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1942	2053	
==>rw?
# XXX Prim.hs has a different return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14847	14984	
==>op::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15126	15263	
==>op::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25912	26004	
==>y changes, in
addition to preserving this original copyright notice and other credits.
Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25912	26004	
==>y changes, in
addition to preserving this original copyright notice and other credits.
Rosett <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23434	23572	
==>ne REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3530	3636	
==>} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3530	3636	
==>} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3530	3636	
==>} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22105	22209	
==>s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22105	22209	
==>s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22105	22209	
==>s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5257	5395	
==>( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5257	5395	
==>( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5257	5395	
==>( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 ) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3856	3972	
==>=~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $currentTermTable = $self->termTable() if ($whitespacePosition <= $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1638	1735	
==>s to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1638	1735	
==>s to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24215	24306	
==>$type = type::operator::arrow->new($a, $a);

	is($type->stringify, "∀α. α → α", "pret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24443	24539	
==>.")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24443	24539	
==>.")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appen <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2215	2309	
==>mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2215	2309	
==>mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15396	15582	
==>= $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18873	19059	
==>= $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7574	7678	
==>ticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method pro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7574	7678	
==>ticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method pro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17721	17916	
==>new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19479	19674	
==>new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39931	40125	
==>new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40990	41184	
==>new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8939	9124	
==>ethod", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method", $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15244	15348	
==>($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15244	15348	
==>($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15244	15348	
==>($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MU <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7827	8020	
==>at.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7827	8020	
==>at.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23702	23794	
==>constructor, this module won't simply
send all commands immediately to the server, but create <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23702	23794	
==>constructor, this module won't simply
send all commands immediately to the server, but create <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2372	2471	
==>om_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2372	2471	
==>om_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2372	2471	
==>om_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6633	6759	
==>ved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
            op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15500	15616	
==>able_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15500	15616	
==>able_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15500	15616	
==>able_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9862	9975	
==>ckage Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@{$o->data} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2303	2402	
==>= $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2303	2402	
==>= $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2303	2402	
==>= $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$ <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	834	957	
==>r/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethe <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	834	957	
==>r/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3861	3958	
==>ons )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule synta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4045	4142	
==>ons )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule synta <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11463	11565	
==>);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19295	19386	
==>TI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19295	19386	
==>TI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19295	19386	
==>TI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	22	116	
==>. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new P <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	79	173	
==>gs;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blondie::Backend:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	22	116	
==>. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	22	116	
==>. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new P <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	150	262	
==>n {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	150	262	
==>n {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15837	15926	
==>p://www.thethirdmanifesto.com/>, and its authors have also written
several books and paper <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15837	15926	
==>p://www.thethirdmanifesto.com/>, and its authors have also written
several books and paper <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2770	2889	
==>yntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # tre <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2770	2889	
==>yntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6288	6402	
==>r, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6276	6390	
==>r, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11390	11537	
==>rt of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - po <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11390	11537	
==>rt of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - po <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	541	644	
==>eturn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<d <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	541	644	
==>eturn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1323	1522	
==>::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1450	1649	
==>::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	220	327	
==>h { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	220	327	
==>h { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27440	27595	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27440	27595	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27440	27595	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1723	1834	
==>he right hand side must be a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3772	3874	
==>{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3772	3874	
==>{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3772	3874	
==>{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9062	9162	
==>n/S03.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This prog <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3629	3746	
==>ype {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'digit' }

  sub visual <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36915	37011	
==>.  In any situation where a pair
of source relations have identical headings, for these their joi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41464	41560	
==>.  In any situation where a pair
of source relations have identical headings, for these their joi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41087	41183	
==>.  In any situation where a pair
of source relations have identical headings, for these their joi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4091	4315	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4091	4315	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12498	12623	
==>sing  => sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mn <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15872	16074	
==>w(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5],
            pi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5792	5931	
==>j["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5792	5931	
==>j["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5792	5931	
==>j["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12458	12570	
==>t :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3008	3115	
==>t :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11560	11657	
==>A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

T <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11560	11657	
==>A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3749	3918	
==>}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{fro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3889	4058	
==>}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{fro <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	162	261	
==>lly
forms a linked list through the rule as it is executed, but the linked
list is done in code (i.e <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	162	261	
==>lly
forms a linked list through the rule as it is executed, but the linked
list is done in code (i.e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	124	229	
==>il";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # cor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	124	229	
==>il";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # cor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	124	229	
==>il";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # cor <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	581	680	
==>native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_bit { sh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11858	12051	
==>%rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11858	12051	
==>%rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Co <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2099	2203	
==>dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2099	2203	
==>dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11094	11248	
==>!! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1568	1706	
==>!! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1568	1706	
==>!! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test:: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28396	28490	
==>an unsuccessful capture.
(a\1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an unsucce <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7988	8087	
==>sh \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8634	8733	
==>sh \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7976	8075	
==>sh \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8622	8721	
==>sh \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7022	7187	
==>= @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curre <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7022	7187	
==>= @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curre <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25876	25968	
==>tch invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30428	30520	
==>tch invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dup <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3451	3556	
==>_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_name <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3451	3556	
==>_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_name <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1203	1298	
==>remely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1203	1298	
==>remely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the ciphe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3118	3234	
==>[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3118	3234	
==>[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3118	3234	
==>[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2468	2609	
==>k of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code insid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1077	1173	
==>mespaces. This is typically useful when your object belongs to a
package that is too close to the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1077	1173	
==>mespaces. This is typically useful when your object belongs to a
package that is too close to the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1077	1173	
==>mespaces. This is typically useful when your object belongs to a
package that is too close to the <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1474	1602	
==>ger {
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7948	8060	
==>SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7948	8060	
==>SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7948	8060	
==>SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$ty <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7920	8008	
==>y @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7920	8008	
==>y @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	701	798	
==>$self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my $inv = $args->fetch(num->new(0)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2431	2524	
==>($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2431	2524	
==>($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2431	2524	
==>($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14075	14215	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14354	14494	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18649	18745	
==>rate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18649	18745	
==>rate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	729	853	
==>:second($second),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8601 ) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7187	7296	
==>ive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7187	7296	
==>ive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7187	7296	
==>ive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primiti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20362	20462	
==>t's socket to the server is currently connected.

Note that you might want to use the C<logged_in> me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19310	19410	
==>t's socket to the server is currently connected.

Note that you might want to use the C<logged_in> me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20362	20462	
==>t's socket to the server is currently connected.

Note that you might want to use the C<logged_in> me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19310	19410	
==>t's socket to the server is currently connected.

Note that you might want to use the C<logged_in> me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30543	30657	
==>c;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no predecessor 'c', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	175	286	
==>r *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	175	286	
==>r *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	175	286	
==>r *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1546	1657	
==>Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    subm <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1546	1657	
==>Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    subm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4115	4216	
==>compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4332	4433	
==>compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3657	3762	
==>.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3657	3762	
==>.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3657	3762	
==>.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4366	4469	
==>h_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(g <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6155	6252	
==>e.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5285	5382	
==>e.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6155	6252	
==>e.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5285	5382	
==>e.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.pro <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6285	6384	
==>} } (values %{ $syn_indexs->{S} }) ] ); 
    $template->param("exe", [ sort { $a->{name} cmp $b->{na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	785	880	
==>y ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	785	880	
==>y ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = su <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7516	7609	
==>hunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7516	7609	
==>hunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	634	833	
==>::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	635	834	
==>::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22771	22891	
==>sh @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19192	19312	
==>sh @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical pre <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1519	1631	
==>an;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramet <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1281	1393	
==>an;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramet <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1519	1631	
==>an;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramet <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1281	1393	
==>an;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without any paramet <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40379	40473	
==>ate of any
changes, in addition to preserving this original copyright notice and other
credits. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25903	25997	
==>ate of any changes, in
addition to preserving this original copyright notice and other credits. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40379	40473	
==>ate of any
changes, in addition to preserving this original copyright notice and other
credits. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25903	25997	
==>ate of any changes, in
addition to preserving this original copyright notice and other credits. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2340	2454	
==>$href = LoadFile( $Altfile );

        ### this package didn't provide any alternatives
        last LINKING unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	648	753	
==>etaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	648	753	
==>etaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	648	753	
==>etaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	916	1059	
==>get a config and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	739	867	
==>_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	739	867	
==>_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	739	867	
==>_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	466	594	
==>';
        my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8667	8769	
==>.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8667	8769	
==>.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8667	8769	
==>.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1494	1614	
==>ILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1494	1614	
==>ILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1494	1614	
==>ILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD met <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8091	8189	
==>ance}, $_[1]{instance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. int == int, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21784	21881	
==>tr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21784	21881	
==>tr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21784	21881	
==>tr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28259	28353	
==>(Str) of Any>

This method returns this Relation::Example's body.

=item C<size () returns Int> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2528	2679	
==>$) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2733	2884	
==>$) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3805	3956	
==>$) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14861	14977	
==>KCLASS (&dispatcher)))
     (while ($c is_not_nil)
        ((($c send (get_attributes)) apply 
            ((= %attrs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5816	5918	
==>=> $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->add_handler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14052	14149	
==>spatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14052	14149	
==>spatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14052	14149	
==>spatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1009	1208	
==>::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1010	1209	
==>::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4532	4637	
==>nds);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is expor <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4590	4695	
==>nds);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is expor <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2634	2738	
==>[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.y <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2634	2738	
==>[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.y <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1789	1884	
==>These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all func <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1789	1884	
==>These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	683	959	
==>res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	683	959	
==>res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	683	959	
==>res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14917	15038	
==>")
    dec pos
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cn <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	373	483	
==>2),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2031	2122	
==>g Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2031	2122	
==>g Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2031	2122	
==>g Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clk <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5597	5706	
==>i sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4727	4836	
==>i sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5597	5706	
==>i sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4727	4836	
==>i sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	962	1097	
==>0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	962	1097	
==>0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17867	17964	
==>dule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET *** <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17867	17964	
==>dule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET *** <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6198	6301	
==>y $ghc_candidate = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_gh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7255	7346	
==>e_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7255	7346	
==>e_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7255	7346	
==>e_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2860	2964	
==>uthorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it unde <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3017	3121	
==>uthorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it unde <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2860	2964	
==>uthorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it unde <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3017	3121	
==>uthorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or modify it unde <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19709	19804	
==>ically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18690	18785	
==>ically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19709	19804	
==>ically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18690	18785	
==>ically tries to use slight variations of the nickname in the
login phase (for example C<bot_>, C <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6508	6707	
==>}
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6508	6707	
==>}
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26516	26645	
==>cation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26795	26924	
==>cation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10894	11001	
==>e .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5601	5705	
==>lementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5601	5705	
==>lementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5601	5705	
==>lementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem { <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7735	7931	
==>$newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7735	7931	
==>$newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	507	624	
==>x epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	507	624	
==>x epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3259	3356	
==>ty == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3259	3356	
==>ty == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3259	3356	
==>ty == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27563	27650	
==>ad2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser::__objec <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7234	7358	
==>::Internals::VRule, Int)\
\\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1579	1687	
==>ant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1579	1687	
==>ant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1579	1687	
==>ant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1579	1689	
==>f->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1579	1689	
==>f->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1579	1689	
==>f->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasse <==
4	/Users/nnunley/pugs/util/package-osx.pl	343	447	
==>ymlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/local/bin/parr <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9227	9331	
==>an {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9227	9331	
==>an {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9784	9887	
==>an {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9784	9887	
==>an {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18004	18087	
==>>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21262	21345	
==>>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41269	41352	
==>>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44169	44252	
==>>create('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10703	10860	
==>od BUILD (
          $.description,
          $.passed,
          ?$.number     =     0,
          ?$.diagnostic = '???',
      ) {}
  
      method status re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5122	5212	
==>er("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5122	5212	
==>er("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7339	7498	
==>elete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if thi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	640	799	
==>elete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if thi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18711	18816	
==>ost browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<refe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18711	18816	
==>ost browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<refe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1498	1606	
==>wo);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these gre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1498	1606	
==>wo);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these gre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9626	9721	
==>1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9626	9721	
==>1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9626	9721	
==>1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8078	8179	
==>$matchObjPos = $whitespacePosition;
  my $match = $$token{match};
  #TODO == should be isa
  goto tok_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3098	3186	
==>ramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3098	3186	
==>ramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3098	3186	
==>ramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurp <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1350	1495	
==>{
                next if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 unless $first->{$k} eq $o-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2755	2899	
==>ue;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global funct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2755	2899	
==>ue;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global funct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2755	2899	
==>ue;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global funct <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4885	4982	
==>ie::TypeSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unifi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7410	7501	
==>xs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7410	7501	
==>xs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7410	7501	
==>xs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21270	21366	
==>ou don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

= <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21270	21366	
==>ou don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

= <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19240	19346	
==>5_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5271	5356	
==>ethod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5271	5356	
==>ethod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5271	5356	
==>ethod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	543	681	
==>tive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	543	681	
==>tive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	543	681	
==>tive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1579	1701	
==>lation' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2648	2859	
==>ir] 
                            );
            
            ### set these 2 first, the other methods rely on it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6474	6676	
==>1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6474	6676	
==>1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            boo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8837	8964	
==>ers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8837	8964	
==>ers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11045	11151	
==>r of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(... <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8449	8555	
==>r of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(... <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11045	11151	
==>r of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(... <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8449	8555	
==>r of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(... <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22011	22118	
==>Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20892	20999	
==>Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22011	22118	
==>Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20892	20999	
==>Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18525	18647	
==>f( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2247	2366	
==>es("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2247	2366	
==>es("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2247	2366	
==>es("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14032	14131	
==>an't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NESTE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10343	10437	
==>ub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10343	10437	
==>ub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10343	10437	
==>ub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDE <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	555	667	
==>hong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumfl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	555	667	
==>hong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumfl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	104	222	
==>counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.temp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	104	222	
==>counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.temp <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6571	6663	
==>return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is e <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6571	6663	
==>return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29685	29962	
==>new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1736	1865	
==>e{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1736	1865	
==>e{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1736	1865	
==>e{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7189	7294	
==>to fetch template text for the given message key from the
        # successfully loaded template module; o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7189	7294	
==>to fetch template text for the given message key from the
        # successfully loaded template module; o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7661	7745	
==>&Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::tod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7719	7803	
==>&Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::tod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27047	27158	
==>anch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7126	7214	
==>nce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7126	7214	
==>nce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7126	7214	
==>nce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_meth <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2490	2596	
==>}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $spa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5693	5799	
==>}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2490	2596	
==>}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5693	5799	
==>}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $spa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1965	2112	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2158	2305	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1476	1579	
==>t}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1616	1719	
==>t}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17125	17290	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17125	17290	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17125	17290	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # wa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11349	11449	
==>directional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool :$w) retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	403	498	
==>(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	403	498	
==>(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	403	498	
==>(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6060	6152	
==>he resolve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Class)->{'@:ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31703	31830	
==>ift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31703	31830	
==>ift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31703	31830	
==>ift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_le <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23909	24035	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6409	6513	
==>boxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6409	6513	
==>boxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6409	6513	
==>boxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7258	7363	
==>est::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::di <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7316	7421	
==>est::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::di <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4462	4541	
==>(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*26 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4462	4541	
==>(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*26 <==
4	/Users/nnunley/pugs/util/combine_tests.pl	918	1055	
==>_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $event->{nu <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2256	2381	
==>_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{nu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15611	15706	
==>ta and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be see <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15611	15706	
==>ta and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be see <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5859	5991	
==>dex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5859	5991	
==>dex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26681	26775	
==>xt::Message object.
The Message Key attribute of the new object is set from the named parameter <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26681	26775	
==>xt::Message object.
The Message Key attribute of the new object is set from the named parameter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	510	637	
==>_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	510	637	
==>_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	510	637	
==>_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($n <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1074	1167	
==>trijus.orgE<gt>.

The F<libpcre> code bundled with this library by I<Philip Hazel>,
under a BS <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1847	2010	
==>{
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1847	2010	
==>{
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $bas <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2568	2703	
==>{
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $bas <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2568	2703	
==>{
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $bas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9625	9731	
==>main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9625	9731	
==>main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9625	9731	
==>main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprint <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	152	246	
==>inute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:perl5/^$iso8601_ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	202	307	
==>(assert);


=head1 NAME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	23	120	
==>rict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	23	120	
==>rict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	23	120	
==>rict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_c <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	430	546	
==>-> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	430	546	
==>-> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13225	13326	
==>);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6700	6801	
==>);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1966	2078	
==>sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1966	2078	
==>sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1207	1312	
==>sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3068	3173	
==>sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9651	9789	
==>::Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	233	365	
==>::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	233	365	
==>::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	268	379	
==>ose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless $_[0];
    #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3810	3926	
==>ile to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3674	3786	
==>ile to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5068	5158	
==>l object-oriented
interface provided by the C<LWP::UserAgent> module.

The following functi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5068	5158	
==>l object-oriented
interface provided by the C<LWP::UserAgent> module.

The following functi <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5248	5351	
==>_escape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2360	2462	
==>{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2360	2462	
==>{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2360	2462	
==>{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	177	273	
==>ethod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	177	273	
==>ethod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	177	273	
==>ethod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.me <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4435	4527	
==>}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0])? <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3049	3147	
==>ets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3049	3147	
==>ets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31226	31317	
==>g, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy usefu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31226	31317	
==>g, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy usefu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13817	13943	
==>(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13817	13943	
==>(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13817	13943	
==>(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class <==
4	/Users/nnunley/pugs/util/drift.pl	1923	2023	
==>program) until $program[0] =~ /Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24098	24207	
==>ve to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24098	24207	
==>ve to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24098	24207	
==>ve to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	163	264	
==>atching engine, aiming to generate the same data structure as
the 'ratchet' version.

- It currentl <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26737	26830	
==>is different from C<HARNESS_VERBOSE>, which prints
the output from the test being run.  Settin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12736	12820	
==>:Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12736	12820	
==>:Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12736	12820	
==>:Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7272	7460	
==>already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7736	7924	
==>already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3207	3323	
==>an't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must star <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3391	3507	
==>an't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3070	3177	
==>m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3070	3177	
==>m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3070	3177	
==>m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17644	17756	
==>= find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subclass $P0, grammar 
  end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10987	11075	
==>$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10987	11075	
==>$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10987	11075	
==>$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9489	9611	
==>.FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9489	9611	
==>.FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9489	9611	
==>.FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      id <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1670	1787	
==>ex' for writing";

    my $inblock = 0;
    my $col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4452	4582	
==>$args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4452	4582	
==>$args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4452	4582	
==>$args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3639	3759	
==>}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3639	3759	
==>}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3639	3759	
==>}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shif <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18645	18727	
==>,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max(Re,N,F0,F1,B0,B1,E0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29129	29271	
==>w('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque $self: symbol $order) returns block {
    $order <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	432	536	
==>nly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	432	536	
==>nly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 20 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	432	536	
==>nly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 20 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25452	25628	
==>apture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26110	26286	
==>apture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25731	25907	
==>apture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26389	26565	
==>apture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1375	1486	
==>m

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should g <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1375	1486	
==>m

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should g <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1375	1486	
==>m

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should g <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	7	106	
==>Meta::Class;

use Set;
use Meta::Assoc;
use Meta::Attrib;
use Meta::Method;

use Meta::Util;

Has($? <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6742	6842	
==>S::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also install <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6742	6842	
==>S::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also install <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6742	6842	
==>S::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also install <==
4	/Users/nnunley/pugs/util/fixauthors.pl	58	152	
==>WP::Simple;
use HTML::TreeBuilder;

binmode(STDOUT, ":utf8");
binmode(STDIN,  ":utf8");

my @a= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1485	1601	
==>sers;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1485	1601	
==>sers;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9381	9483	
==>l)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $stri <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9381	9483	
==>l)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4538	4702	
==>d}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4538	4702	
==>d}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4538	4702	
==>d}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	885	981	
==>xample:

    p5-foo-1-cpan+kane

=head1 METHODS

=head2 $pkg = JIB::Package->new( file => /path/t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2775	2900	
==>elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_ms <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7869	7994	
==>elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_ms <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2775	2900	
==>elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_ms <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7869	7994	
==>elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_ms <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1860	1979	
==>lues) returns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3600	3701	
==>0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3600	3701	
==>0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3600	3701	
==>0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTR <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2662	2768	
==>_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redir <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2662	2768	
==>_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redir <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1781	1884	
==>))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1781	1884	
==>))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4748	4852	
==>y($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4748	4852	
==>y($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4748	4852	
==>y($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35090	35182	
==>>)

Data: array reference of array references, each representing one
alternation, holding any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	651	746	
==>r), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	651	746	
==>r), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	651	746	
==>r), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ------------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28056	28145	
==>F<__object__> Base Class

All nodes inherit from F<Regexp::Parser::__object__> the followi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4128	4268	
==>e( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4116	4256	
==>e( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21964	22058	
==>e.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meaning <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26516	26610	
==>e.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meaning <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5562	5695	
==>\&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5755	5888	
==>\&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	210	300	
==>erm::::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term:\\b", "term:", "n <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	44	126	
==>.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm"
pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7141	7299	
==>orted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7141	7299	
==>orted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7141	7299	
==>orted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12332	12486	
==>$method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12332	12486	
==>$method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12332	12486	
==>$method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class- <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	421	548	
==>* \] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13133	13230	
==>> [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13133	13230	
==>> [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13133	13230	
==>> [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1030	1283	
==>TRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1030	1283	
==>TRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2027	2149	
==>$burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $toke <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2027	2149	
==>$burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $toke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9758	9886	
==>X - weaken self-referential things

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an option <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1378	1474	
==>reludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1378	1474	
==>reludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1378	1474	
==>reludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1042	1159	
==>Str
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1042	1159	
==>Str
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20173	20348	
==>ent = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20173	20348	
==>ent = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20173	20348	
==>ent = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	611	737	
==>say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?: <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	611	737	
==>say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3086	3200	
==>a(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3632	3746	
==>a(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37483	37599	
==>ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37483	37599	
==>ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37483	37599	
==>ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10885	11030	
==>->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKA <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7960	8096	
==>->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7960	8096	
==>->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKA <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2111	2225	
==>s::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7980	8109	
==>ub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7980	8109	
==>ub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7980	8109	
==>ub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	573	675	
==>cale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I che <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	573	675	
==>cale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I che <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3785	3880	
==>l match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3969	4064	
==>l match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1616	1719	
==>urn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'(' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1616	1719	
==>urn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'(' <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	935	1029	
==>printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	935	1029	
==>printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7542	7648	
==>= pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7542	7648	
==>= pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7542	7648	
==>= pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array * <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15879	15975	
==>d since the time specified in this field,
then the server will return a C<304 Not Modified> respo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15879	15975	
==>d since the time specified in this field,
then the server will return a C<304 Not Modified> respo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	948	1039	
==>or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	948	1039	
==>or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4847	4961	
==>perator;
    goto expect_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3401	3506	
==>>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3401	3506	
==>>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3401	3506	
==>>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27167	27261	
==>he main Relation::Example constructor method:

=over

=item C<new (Set of Str :$heading?, Set o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3915	4036	
==>": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3915	4036	
==>": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3915	4036	
==>": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludep <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2467	2575	
==>set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2467	2575	
==>set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15625	15721	
==>plex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the en <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15683	15779	
==>plex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the en <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21071	21172	
==>rently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has join <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19979	20080	
==>rently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21071	21172	
==>rently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19979	20080	
==>rently, there's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3183	3311	
==>porary hack - matching options in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # after wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16489	16592	
==>alues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16489	16592	
==>alues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16489	16592	
==>alues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNO <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17417	17529	
==>value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17417	17529	
==>value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attr <==
4	/Users/nnunley/pugs/util/package-osx.pl	864	970	
==>lib/libparrot.a
        /usr/local/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1011	1115	
==>nt RPe_BCURLY => --$ENUM, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches n <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3034	3141	
==>) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2017	2124	
==>->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3034	3141	
==>) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    retur <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2017	2124	
==>->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4673	4786	
==>t.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4673	4786	
==>t.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4673	4786	
==>t.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shif <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3973	4085	
==>t.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2531	2661	
==>s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2531	2661	
==>s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2531	2661	
==>s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_in <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	294	401	
==>v/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub set { ${ $_[0] } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2844	2957	
==>lf: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2844	2957	
==>lf: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5757	5858	
==>e if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5757	5858	
==>e if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9149	9244	
==>reate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9149	9244	
==>reate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22798	22899	
==>t> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21625	21726	
==>t> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22798	22899	
==>t> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21625	21726	
==>t> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	12	124	
==>:PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	12	124	
==>:PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	12	124	
==>:PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9375	9521	
==>keys %h;
            } 

            # my $rule_code = Runtime::Perl5::RuleOps::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	877	1008	
==>>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	877	1008	
==>>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	877	1008	
==>>fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1823	1951	
==>iption) = @_;
            $description ||= '';
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1285	1377	
==>$PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1285	1377	
==>$PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1285	1377	
==>$PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	363	464	
==>.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	363	464	
==>.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2257	2353	
==>ead2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2257	2353	
==>ead2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15910	16043	
==>) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15910	16043	
==>) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15910	16043	
==>) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6796	6882	
==>alue from Object singleton/class method');

$Object->add_singleton_method('another_sing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14007	14162	
==>private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this saf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14007	14162	
==>private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this saf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14007	14162	
==>private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this saf <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1419	1521	
==>rototype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2271	2370	
==>et1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2271	2370	
==>et1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersec <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3592	3686	
==>uthentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3592	3686	
==>uthentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cip <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11531	11655	
==>onal" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::Internals::ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	126	220	
==>_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	126	220	
==>_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	126	220	
==>_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31725	31819	
==>as zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<uni <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36275	36369	
==>as zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<uni <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35511	35605	
==>as zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<uni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8482	8610	
==>r."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8482	8610	
==>r."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #war <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8482	8610	
==>r."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #war <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10008	10187	
==>r ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6349	6528	
==>r ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7198	7377	
==>r ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1116	1240	
==>),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1116	1240	
==>),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1116	1240	
==>),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pai <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4310	4412	
==>bj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2476	2604	
==>c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2476	2604	
==>c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2476	2604	
==>c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unbo <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3202	3305	
==>r { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_term  { \< null \> }

rule asserti <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10202	10326	
==>() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10202	10326	
==>() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1651	1754	
==>sure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1651	1754	
==>sure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4789	4909	
==>n 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4789	4909	
==>n 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4789	4909	
==>n 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_role <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1635	1748	
==>'values'}{'dynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7639	7744	
==>b { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7639	7744	
==>b { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7639	7744	
==>b { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { I <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28554	28714	
==>$e->get('$self:')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7732	7829	
==>=> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7732	7829	
==>=> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7732	7829	
==>=> "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1811	1966	
==>y $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1811	1966	
==>y $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1811	1966	
==>y $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6959	7078	
==>ors.pm r8593.
# Prim.hs says \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[.[]]> (*$head is copy, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2351	2443	
==>ostfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2351	2443	
==>ostfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2351	2443	
==>ostfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9607	9737	
==>str target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3020	3123	
==>L::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3020	3123	
==>L::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3020	3123	
==>L::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8303	8554	
==>e

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D langu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8303	8554	
==>e

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D langu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8697	8800	
==>]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8697	8800	
==>]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1742	1895	
==>, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1742	1895	
==>, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1742	1895	
==>, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	289	397	
==>n => undef,
	}, $class;
}

sub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4046	4208	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$si <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4046	4208	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$si <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3103	3200	
==>.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3103	3200	
==>.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4390	4589	
==>y, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfie <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4854	5053	
==>y, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8180	8278	
==>s he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8180	8278	
==>s he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37716	37815	
==>d and merged.  The heading of the new relation is the union of
all the headings of the source relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42265	42364	
==>d and merged.  The heading of the new relation is the union of
all the headings of the source relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41915	42014	
==>d and merged.  The heading of the new relation is the union of
all the headings of the source relati <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15532	15613	
==>-----------------------------------------------------

rm(noop,F0,F0,B0,B0,E0,E0). <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4545	4644	
==>ailed along with a summary report and
a how long it all took.

It returns true if everything was ok. <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5539	5666	
==>%pad<"pRHS"> );
        $ret = emit_Bind( $to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1664	1764	
==>d.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1664	1764	
==>d.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1664	1764	
==>d.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7012	7116	
==>ore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7012	7116	
==>ore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7012	7116	
==>ore( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8579	8723	
==>$newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2745	2857	
==>o, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2745	2857	
==>o, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2745	2857	
==>o, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3906	4046	
==>,
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1692	1818	
==>equired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1692	1818	
==>equired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1692	1818	
==>equired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9379	9477	
==>s @:roles is rw;  # makes the roles mutator/accessor

    # --------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9379	9477	
==>s @:roles is rw;  # makes the roles mutator/accessor

    # --------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9379	9477	
==>s @:roles is rw;  # makes the roles mutator/accessor

    # --------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10649	10810	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10928	11089	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19168	19276	
==>[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20526	20634	
==>[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	936	1050	
==>t back
    # a nil value, not just undef
    return nil->new() unless defined $val;
    return $val;
}

sub store { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	538	640	
==>the closure, then things don\'t work right
      // --the order of output can become all screwed up (se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	538	640	
==>the closure, then things don\'t work right
      // --the order of output can become all screwed up (se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	538	640	
==>the closure, then things don\'t work right
      // --the order of output can become all screwed up (se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19599	19827	
==>ew();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19599	19827	
==>ew();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19599	19827	
==>ew();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	288	385	
==>qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4805	4924	
==>lf->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4805	4924	
==>lf->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4805	4924	
==>lf->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7041	7168	
==>>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Co <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7041	7168	
==>>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Co <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9094	9205	
==>alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag ye <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2129	2240	
==>alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag ye <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31697	31791	
==>tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36247	36341	
==>tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35483	35577	
==>tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wher <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13327	13416	
==>, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { number_chars(I, [42,120,D0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15194	15365	
==>plemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15188	15359	
==>plemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34586	34688	
==>yedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34586	34688	
==>yedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2055	2166	
==>ole_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2055	2166	
==>ole_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2055	2166	
==>ole_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_metho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	5	116	
==>6-pugs;
class Point;

has $.x is rw;  # instance attributes
has $.y;        # default "is readonly" 
method cl <==
4	/Users/nnunley/pugs/util/package-osx.pl	4597	4699	
==>usr/local/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6081	6182	
==>ursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6081	6182	
==>ursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6081	6182	
==>ursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the pr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13777	13923	
==>idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string,$idx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3898	4032	
==>idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3898	4032	
==>idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3898	4032	
==>idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string,$idx <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2083	2198	
==>s List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2083	2198	
==>s List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31333	31430	
==>odules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31333	31430	
==>odules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4717	4844	
==>= "";
    my $code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29178	29304	
==>b new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29178	29304	
==>b new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29178	29304	
==>b new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9343	9594	
==>ock->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_not_nil()
                      ->and(
                          block->new($e, sub { 
                              my $e = shif <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21160	21258	
==>ame as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25712	25810	
==>ame as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8309	8417	
==>ned)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8309	8417	
==>ned)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8309	8417	
==>ned)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil d <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1431	1553	
==>uit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        requir <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1398	1520	
==>uit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        requir <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1449	1541	
==>e tags have been "selected", either by giving 
them to the unexported C<Log::Selective::selec <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1449	1541	
==>e tags have been "selected", either by giving 
them to the unexported C<Log::Selective::selec <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3147	3263	
==>t and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta-> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3611	3727	
==>t and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta-> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	86	182	
==>i.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	86	182	
==>i.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6599	6716	
==>$list = get_data( $_[0], '$<list>' );
    my $fh   = get_str( $_[0], '$<indirect_object>' );
    my $cmd  = "    print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2289	2396	
==>)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2289	2396	
==>)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2289	2396	
==>)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2264	2418	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2264	2418	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2264	2418	
==>if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1881	1981	
==>->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15322	15434	
==>_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1179	1277	
==>return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1179	1277	
==>return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1179	1277	
==>return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Di <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11888	12000	
==>&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12311	12423	
==>&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4531	4643	
==>&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4954	5066	
==>&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22469	22705	
==>_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FET <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22469	22705	
==>_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FET <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22469	22705	
==>_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FET <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18735	18842	
==>p1.p6analyze(pad)
    unless_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unles <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1025	1164	
==>art;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open | <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4264	4403	
==>art;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open | <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1025	1164	
==>art;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open | <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4264	4403	
==>art;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open | <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2150	2273	
==>ule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11018	11141	
==>ule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2343	2466	
==>ule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11297	11420	
==>ule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28676	28802	
==>}
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28676	28802	
==>}
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28676	28802	
==>}
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($i <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	827	920	
==>e a VERSION for this distribution.
Please call the 'version' or 'version_from' function in Mak <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3319	3489	
==>s && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3459	3629	
==>s && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	28	124	
==>5-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all el <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	28	124	
==>5-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all el <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32521	32619	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned binary <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37376	37474	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned binary <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37071	37169	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned binary <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41925	42023	
==>on *@others) returns Relation>

This multi-method is the N-ary version of the aforementioned binary <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1663	1762	
==>$self->position();
  return ("") if $position < 0 or $position <= $from;
  return substr $target, $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2000	2098	
==>:make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2000	2098	
==>:make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2000	2098	
==>:make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24331	24438	
==>);
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24331	24438	
==>);
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24331	24438	
==>);
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7272	7383	
==>ype->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7272	7383	
==>ype->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7272	7383	
==>ype->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "v <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6070	6161	
==>:Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Bu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6070	6161	
==>:Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8267	8358	
==>:Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1508	1654	
==>) {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknow <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1361	1457	
==>$MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1361	1457	
==>$MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1361	1457	
==>$MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelude <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3367	3495	
==>pen;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3367	3495	
==>pen;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1268	1371	
==>:get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1268	1371	
==>:get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13514	13638	
==>bj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13514	13638	
==>bj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13514	13638	
==>bj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18589	18701	
==>totals->{skip_reason} = $detail->{reason}
              unless defined $totals->{skip_reason};
            $total <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12702	12833	
==>TOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12702	12833	
==>TOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12702	12833	
==>TOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $me <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18246	18329	
==>Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F1 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5928	6031	
==>fix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5058	5161	
==>fix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5928	6031	
==>fix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5058	5161	
==>fix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3136	3232	
==>t, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3194	3290	
==>t, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2814	2900	
==>e.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbu <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2814	2900	
==>e.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5556	5700	
==>\n   Int       pre     unshift safe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::sh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11968	12109	
==>int \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8250	8391	
==>int \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9084	9225	
==>int \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	263	381	
==>ub (; Num ?$x = $CALLER::_, :$base)
            returns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2119	2223	
==>e continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2119	2223	
==>e continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2119	2223	
==>e continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16860	17015	
==>);
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @qu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16860	17015	
==>);
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @qu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14152	14246	
==>that case, you can use the rather blunt pass()
functions and its compliment the flunk() functio <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14210	14304	
==>that case, you can use the rather blunt pass()
functions and its compliment the flunk() functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8356	8447	
==>====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8356	8447	
==>====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8356	8447	
==>====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1163	1267	
==>f: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

meth <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1163	1267	
==>f: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9130	9228	
==>map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9130	9228	
==>map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1385	1484	
==>y parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1385	1484	
==>y parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1806	1901	
==>::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set:: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1806	1901	
==>::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6994	7108	
==>, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::Parser->new;

=head2 Setting a Reg <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	208	323	
==>est::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan? <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	208	323	
==>est::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan? <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23797	23888	
==>:KeyedText is generally a simpler solution
than alternatives, and doesn't know about languag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23797	23888	
==>:KeyedText is generally a simpler solution
than alternatives, and doesn't know about languag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3172	3279	
==>lid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* perl5 will call the C<v6.pm> modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1419	1513	
==>:cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1419	1513	
==>:cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1419	1513	
==>:cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1371	1481	
==>l things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1371	1481	
==>l things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2101	2209	
==>Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2101	2209	
==>Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9214	9363	
==>ram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9214	9363	
==>ram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9214	9363	
==>ram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10678	10779	
==>ng the next
time it is called.

=head2 Viewing the Regex

You can get the regex back from the parser w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2920	3060	
==>( $n );
}

sub assoc_list {
    my $n = $_[0];
    # print "list emit_rule: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1220	1319	
==>"timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1220	1319	
==>"timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1220	1319	
==>"timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3178	3282	
==>) { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3178	3282	
==>) { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3178	3282	
==>) { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  m <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1314	1414	
==>) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetrical => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2751	2855	
==>g = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2751	2855	
==>g = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2751	2855	
==>g = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs: <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2537	2635	
==>_package {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6735	6854	
==>x target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4179	4287	
==>Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4179	4287	
==>Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4179	4287	
==>Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	810	925	
==>ix_left =>      '<tight> <op> <equal>', 
    infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16764	16857	
==>B Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16764	16857	
==>B Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16764	16857	
==>B Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14890	15041	
==>e handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14884	15035	
==>e handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4051	4184	
==>\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    retu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4051	4184	
==>\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2990	3182	
==>, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2990	3182	
==>, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	236	335	
==>ugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also no <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	236	335	
==>ugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5075	5169	
==>ferenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5075	5169	
==>ferenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5075	5169	
==>ferenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21810	22019	
==>();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21810	22019	
==>();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21810	22019	
==>();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19246	19346	
==>lfile (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi Control <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	343	472	
==>},
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' can't be mixed w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	623	731	
==>f->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	623	731	
==>f->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	623	731	
==>f->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5725	5873	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5725	5873	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5725	5873	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $k <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1794	1905	
==>as  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22493	22587	
==>s pending.>

=head1 DESCRIPTION

This library provides a partial implementation, in the form of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	731	822	
==>e_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	731	822	
==>e_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	731	822	
==>e_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::op <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16452	16572	
==>ation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.val <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17422	17542	
==>ation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19929	20049	
==>ation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.val <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20899	21019	
==>ation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4320	4478	
==>' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4320	4478	
==>' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4320	4478	
==>' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12246	12347	
==>ok></span>,</td>
	      <td class="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7904	8096	
==>w(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1644	1748	
==>(substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1644	1748	
==>(substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1644	1748	
==>(substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1340	1448	
==>pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto & <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1340	1448	
==>pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto & <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36764	36861	
==>es; if none
could be matched, this method returns undef.  This method could be
considered to imple <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36764	36861	
==>es; if none
could be matched, this method returns undef.  This method could be
considered to imple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10271	10387	
==>($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @bl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10271	10387	
==>($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @bl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9833	9926	
==>ders> object.  You might pass some initial
attribute-value pairs as parameters to the construc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9833	9926	
==>ders> object.  You might pass some initial
attribute-value pairs as parameters to the construc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18951	19068	
==>{
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18951	19068	
==>{
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18951	19068	
==>{
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatch <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1512	1609	
==>Pugs/Run.o";
    #unlink "pugs$Config::Config{_exe}";
    print STDERR "done.\n" if $Config{verbos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1292	1408	
==>$nodes can be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless ref($nodes) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1639	1752	
==>$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1246	1359	
==>$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1639	1752	
==>$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless ref($nodes) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1390	1484	
==>tem) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1390	1484	
==>tem) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2812	2941	
==>opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= '_' . $opt->{assoc} i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3410	3515	
==>throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3410	3515	
==>throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3410	3515	
==>throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2754	2880	
==>t coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2754	2880	
==>t coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2754	2880	
==>t coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn " <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	124	234	
==>ality check.
# Hopefully it will develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a back <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	717	819	
==>with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	717	819	
==>with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	717	819	
==>with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/util/testgraph.pl	582	668	
==>el->new_with_struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6030	6156	
==>elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6030	6156	
==>elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6030	6156	
==>elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19581	19672	
==>anyof_char> nodes when inside character classes.  Fixed.
(Mike Lambert)

Non-grouping parent <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8570	8684	
==>h::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8558	8672	
==>h::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15144	15249	
==>text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original conte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15144	15249	
==>text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original conte <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1501	1617	
==>rs.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1501	1617	
==>rs.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1054	1166	
==>d + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1054	1166	
==>d + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.sta <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	953	1102	
==>tart_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_sta <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4192	4341	
==>tart_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	953	1102	
==>tart_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4192	4341	
==>tart_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11270	11386	
==>ub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11270	11386	
==>ub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obje <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11270	11386	
==>ub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obje <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2806	2903	
==>>reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6298	6453	
==>me> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14289	14399	
==>e() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_auto <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14289	14399	
==>e() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_auto <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	720	827	
==>rintf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14662	14758	
==>ods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14662	14758	
==>ods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14662	14758	
==>ods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3606	3715	
==>$set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3606	3715	
==>$set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4644	4742	
==>use.

=head2 ""

When used as a string, the match object returns the stringified version
of the res <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4644	4742	
==>use.

=head2 ""

When used as a string, the match object returns the stringified version
of the res <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	959	1120	
==>ub as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'),
							Val(2),
						),
					),
				),
			),
			Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1277	1381	
==>bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1277	1381	
==>bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1277	1381	
==>bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18005	18108	
==>r::split (  Str $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5142	5236	
==>ing C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5142	5236	
==>ing C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6666	6760	
==>ing C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1863	1999	
==>[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1863	1999	
==>[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3779	3896	
==>ture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3779	3896	
==>ture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	674	787	
==>ub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	130	227	
==>$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	130	227	
==>$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	130	227	
==>$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12181	12284	
==>d ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12181	12284	
==>d ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12181	12284	
==>d ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7344	7444	
==>d off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previous_com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5236	5337	
==>'t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5236	5337	
==>'t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5236	5337	
==>'t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it d <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27130	27227	
==>p 0 my.db

If relative, directory name is with respect to the current directory at
the moment runt <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3042	3151	
==>en{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16704	16805	
==>e user, but
rather returns its results for calling code to output as it sees fit.  It
also does not ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16704	16805	
==>e user, but
rather returns its results for calling code to output as it sees fit.  It
also does not ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1605	1703	
==>tring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1605	1703	
==>tring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1605	1703	
==>tring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numbe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3067	3197	
==>e')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3067	3197	
==>e')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9892	9994	
==>gister method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9892	9994	
==>gister method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8267	8374	
==>om_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8267	8374	
==>om_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.c <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14665	14770	
==>params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2146	2251	
==>params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5150	5243	
==>escription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descript <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5150	5243	
==>escription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descript <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6674	6767	
==>escription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descript <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3202	3316	
==>erclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3202	3316	
==>erclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3202	3316	
==>erclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1633	1729	
==>ssed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1792	1921	
==>nt "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2535	2664	
==>nt "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1792	1921	
==>nt "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2523	2652	
==>nt "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1293	1399	
==>GI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->para <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14981	15080	
==>}; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18458	18557	
==>}; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17874	17973	
==>}; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2139	2241	
==>m=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2139	2241	
==>m=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2139	2241	
==>m=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2204	2306	
==>er => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2204	2306	
==>er => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'l <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6207	6302	
==>mentation of most block and stream ciphers to a constructor, 
the cryptographic core, and a coup <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6207	6302	
==>mentation of most block and stream ciphers to a constructor, 
the cryptographic core, and a coup <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1389	1494	
==>Parser::bound::ISA, __PACKAGE__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1867	1963	
==>b {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1867	1963	
==>b {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1867	1963	
==>b {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	468	599	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	673	804	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	729	860	
==>hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3901	4002	
==>$length) = @_;
  $length = 1 if not defined $length;
  return (substr $target, $pos, $length) =~ $regu <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5529	5657	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $siz <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4029	4157	
==>len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $siz <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	42	137	
==>ocumentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warning <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	42	137	
==>ocumentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warning <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4101	4217	
==>$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $v <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1198	1288	
==>new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1198	1288	
==>new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1198	1288	
==>new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7643	7756	
==>1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7643	7756	
==>1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2311	2422	
==>( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2311	2422	
==>( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4019	4121	
==>line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4019	4121	
==>line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4099	4201	
==>line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	65	161	
==>ngs going on here.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs int <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27381	27482	
==>e code reference in $code.  Example:

  $parser->add_flag("u" => sub { 0x10 });

This makes 'u' a vali <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3763	3852	
==>D/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <titl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3763	3852	
==>D/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <titl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3763	3852	
==>D/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <titl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5950	6052	
==>}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5950	6052	
==>}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1087	1182	
==>rt returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1087	1182	
==>rt returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18087	18192	
==>:$re)" if $mods;
    my $r = compile($re); sub{my($s)=@_;match($r,$s)}});
  exit;
}
1;
__END__
#print Dump <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	467	570	
==>c.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	467	570	
==>c.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2019	2115	
==>t, yielding a
#more complete version of t/rules/rules.t.  This could either be done
#using Regexp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1167	1282	
==>name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1167	1282	
==>name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1167	1282	
==>name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28977	29075	
==>his value is a number created by OR'ing
together the flags that are enabled at the time.

=item $ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12998	13093	
==>eturn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12998	13093	
==>eturn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12998	13093	
==>eturn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exce <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3815	3943	
==>:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} els <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1915	2043	
==>:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} els <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	405	521	
==>$class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->new(m <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1507	1710	
==>f ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        els <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1507	1710	
==>f ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        els <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7227	7314	
==>r::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1052	1139	
==>r::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) } <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	467	604	
==>1, sub {
            my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6050	6151	
==>uld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6050	6151	
==>uld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6050	6151	
==>uld of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5040	5142	
==>t allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5040	5142	
==>t allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12246	12343	
==>, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12304	12401	
==>, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11277	11399	
==>{
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11277	11399	
==>{
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11277	11399	
==>{
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10572	10693	
==>[2] }' } || die $@} qw(+ - == <=), '<', do {
        grep {
            print "Implement &infix:<$_> in perl instead of th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3464	3567	
==>ub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3464	3567	
==>ub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4337	4439	
==>ub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4337	4439	
==>ub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
m <==
4	/Users/nnunley/pugs/util/version_h.pl	1548	1707	
==>?:file|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision ||= 0;
print " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22835	22932	
==>me.  Messages should include the
code you ran that contains the bug, and your opinion on what's wr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1444	1548	
==>se>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1444	1548	
==>se>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1310	1405	
==>(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutin <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1310	1405	
==>(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9969	10143	
==>lar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9969	10143	
==>lar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9969	10143	
==>lar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13277	13384	
==>slations. This list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 delete %ha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12726	12869	
==>ror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9000	9143	
==>ror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9835	9978	
==>ror in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18737	18835	
==>would render as C<[\w:]>.

=back

=head2 0.021 -- July 3, 2004

=over 4

=item I<anyof_class> Chang <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	799	910	
==>- generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $directi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	808	919	
==>- generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $directi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8603	8693	
==>etta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8603	8693	
==>etta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2833	2956	
==>tement( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub assoc_list {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1248	1339	
==>encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for Engli <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1248	1339	
==>encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for Engli <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12653	12736	
==>tle="<tmpl_var name=unexpect> unexpectedly succeeded"><tmpl_var name=unexpect></span <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9273	9425	
==>=~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9273	9425	
==>=~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2376	2462	
==>f ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2376	2462	
==>f ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/ <==
4	/Users/nnunley/pugs/util/importgraph.pl	1691	1826	
==>] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { setup_mod(2, @_) }
sub setup_rank { setup_mod(3, @_) }

setup_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1292	1402	
==>ation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1292	1402	
==>ation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1292	1402	
==>ation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (te <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18261	18440	
==>ub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21520	21699	
==>ub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41526	41705	
==>ub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44427	44606	
==>ub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	376	482	
==>e_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	376	482	
==>e_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6383	6477	
==>} = $method;
}

(method add_method ((opaque $self:) (symbol $label) (method $method)) returns n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4488	4611	
==>$.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4488	4611	
==>$.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11345	11450	
==>+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11345	11450	
==>+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7021	7134	
==>',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_as <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7021	7134	
==>',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_as <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5781	5884	
==>ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    requ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5263	5366	
==>ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    requ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24313	24472	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25576	25735	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24592	24751	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25855	26014	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2287	2559	
==>> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5764	6036	
==>> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4694	4966	
==>> $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1855	1963	
==>t";
    return $self->[2]->fetch($name);
}

sub set_attr {
    my ($self, $name, $value) = @_;
    (blessed($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3132	3239	
==>reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3132	3239	
==>reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3132	3239	
==>reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} els <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9992	10098	
==>name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	486	643	
==>m('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	787	909	
==>>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	787	909	
==>>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	787	909	
==>>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_cl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28477	28570	
==>re being combined/wrapped, with
its keys being the new tuple-valued attribute names and each o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33029	33122	
==>re being combined/wrapped, with
its keys being the new tuple-valued attribute names and each o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32157	32250	
==>re being combined/wrapped, with
its keys being the new tuple-valued attribute names and each o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4491	4590	
==>OF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $u <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3437	3536	
==>ect = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4491	4590	
==>OF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4491	4590	
==>OF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $u <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2314	2438	
==>sname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1345	1454	
==>tance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1550	1659	
==>tance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1611	1720	
==>tance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3385	3496	
==>amodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3385	3496	
==>amodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (au <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3385	3496	
==>amodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (au <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3297	3402	
==>cate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_designdocs = 1;
    }
}

$output_dir ||= 't_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2119	2228	
==>lf->installation;
    
    return $inst->unregister( package => $self );
}

1;


# Local variables:
# c-indent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8265	8356	
==>!defined $pilc;
    $pilc->expand();
}

#=================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8265	8356	
==>!defined $pilc;
    $pilc->expand();
}

#=================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8265	8356	
==>!defined $pilc;
    $pilc->expand();
}

#=================================================== <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7349	7490	
==>params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7349	7490	
==>params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7349	7490	
==>params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1076	1170	
==>"install $dumper->[0] to enable $interface::format" if $@;

	#export the funtions
	Pugs::Utils: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6892	7012	
==>parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6892	7012	
==>parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25278	25372	
==>ts using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25278	25372	
==>ts using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This p <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6627	6787	
==>];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5131	5291	
==>];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19492	19581	
==>variables are system catalog relation variables rather than user-defined
relation variable <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19492	19581	
==>variables are system catalog relation variables rather than user-defined
relation variable <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7276	7380	
==>_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	214	335	
==>s);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	214	335	
==>s);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	214	335	
==>s);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shif <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16921	17016	
==>wfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PG <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1692	1822	
==>'$.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my ($self, $passed, $descr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3221	3327	
==>);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3221	3327	
==>);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3221	3327	
==>);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5798	5934	
==>->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5798	5934	
==>->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5798	5934	
==>->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1333	1434	
==>ter_scope;	
}

sub leave_scope {
	my $self = shift;

	$self->SUPER::leave_scope;

	pop @{ $self->{para <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40551	40648	
==>HOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26065	26162	
==>HOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULA <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40551	40648	
==>HOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26065	26162	
==>HOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULA <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9575	9675	
==>[0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9575	9675	
==>[0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1284	1389	
==>arn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1284	1389	
==>arn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1284	1389	
==>arn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19363	19459	
==>ionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statements

rule Statem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2670	2763	
==>od_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2670	2763	
==>od_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2670	2763	
==>od_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5135	5266	
==>t != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5135	5266	
==>t != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4663	4772	
==>r::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @lis <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4663	4772	
==>r::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @lis <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15477	15573	
==>et block we thread the set of generic type variables, so the body has the generic variables creat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37447	37540	
==>of the aforementioned binary join()
operator, and the order of its arguments is not significan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41996	42089	
==>of the aforementioned binary join()
operator, and the order of its arguments is not significan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41637	41730	
==>of the aforementioned binary join()
operator, and the order of its arguments is not significan <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15684	15816	
==>issing close '>' in scalar")
  end:
    mpos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .param pmc mob
    .param int p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2877	2992	
==>st::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2877	2992	
==>st::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4401	4516	
==>st::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9812	9923	
==>/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9812	9923	
==>/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9812	9923	
==>/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3638	3737	
==>in the summary report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=item B<Sta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24962	25168	
==>e = shift;
                                  $e->get('$_')->send('add_subclass' => $e->get('$self:'));
                              })
                          );
                          $e->get('$self:' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	674	773	
==>m MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	674	773	
==>m MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	674	773	
==>m MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2043	2236	
==>,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ind <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2043	2236	
==>,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ind <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2043	2236	
==>,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	743	902	
==>\&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	743	902	
==>\&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1276	1398	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1276	1398	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1614	1709	
==>le> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1614	1709	
==>le> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2474	2583	
==>500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_erro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2474	2583	
==>500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_erro <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3855	3948	
==>",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3855	3948	
==>",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	499	611	
==>= shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	499	611	
==>= shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	499	611	
==>= shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &retu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10582	10673	
==>l6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.openfoundr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21114	21294	
==>ORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21114	21294	
==>ORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21114	21294	
==>ORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->stor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19026	19130	
==>ond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{da <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20384	20488	
==>ond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{da <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	115	209	
==>t to debug'}
* adds use Smart::Comments (if it matches the supplied regex) or
no Smart::Comment <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1085	1177	
==>ts::Subscription) {
        map { Class::Events::Notification.new(:subscriber($_), :event($ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8316	8432	
==>} => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8316	8432	
==>} => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8316	8432	
==>} => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13186	13284	
==>w operator, applied to the type of the parameter (as allocated in the new env), and the type of the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1580	1698	
==>g @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller($Level);
    return "at $caller[1] li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	564	655	
==>n ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	564	655	
==>n ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	564	655	
==>n ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_co <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3135	3252	
==>fh>;
    }

    # manhandle the rest of the inlined modules.
    # we make a guess about what to put in %*INC. it's no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11711	11823	
==>$mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11711	11823	
==>$mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11711	11823	
==>$mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28593	28794	
==>et_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->get( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	980	1077	
==>f:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	980	1077	
==>f:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	980	1077	
==>f:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17635	17833	
==>, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14056	14254	
==>, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      el <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6508	6626	
==>)\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6508	6626	
==>)\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5495	5666	
==>m ),
                to    => \( $match->from ),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3990	4086	
==>restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3990	4086	
==>restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3990	4086	
==>restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	951	1047	
==>the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35921	36017	
==>e looking assertion, and the argument
of 1 means it's a look-ahead.  We send the unrolled content <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	951	1047	
==>the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	951	1047	
==>the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2383	2541	
==>: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2694	2847	
==>: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2694	2847	
==>: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33966	34063	
==>ex C</x\&y/> means "match I<y> if I<x> can be matched
at the same location".  Therefore it would b <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36107	36206	
==>s having the same Member Name are adjacent
to each other in the output; for example, with Sets of [' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36107	36206	
==>s having the same Member Name are adjacent
to each other in the output; for example, with Sets of [' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12517	12612	
==>se
docs will not be updated.  The tests that are passing represent the
current working features. <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12517	12612	
==>se
docs will not be updated.  The tests that are passing represent the
current working features. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	451	576	
==>my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	449	574	
==>my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	451	576	
==>my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	449	574	
==>my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2364	2469	
==>taclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2364	2469	
==>taclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2364	2469	
==>taclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body-> <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3686	3785	
==>{$full_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26290	26429	
==>ily => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2619	2723	
==>nk won't be run - it must be the
first child of an App for that to happen.

Inherits Unit.

=item App

An <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1758	1853	
==>rsions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1758	1853	
==>rsions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4834	4935	
==>= mk_Match_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
sub def_token      { def_thin <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4109	4236	
==>to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_coun <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4109	4236	
==>to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_coun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16560	16677	
==>ule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16560	16677	
==>ule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2123	2221	
==>m  # functional things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2043	2140	
==>m  # functional things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35393	35488	
==>ments in this object as an array ref.

=item C<get_member_names()>

This method returns all Memb <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35393	35488	
==>ments in this object as an array ref.

=item C<get_member_names()>

This method returns all Memb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	671	770	
==>led while parsing source code to determine if the
# module/class in a use/no line is part of the Mod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	671	770	
==>led while parsing source code to determine if the
# module/class in a use/no line is part of the Mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20135	20232	
==>then outer blocks.

A compiler may choose to declare that its result not be recompiled by
some oth <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20135	20232	
==>then outer blocks.

A compiler may choose to declare that its result not be recompiled by
some oth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1094	1262	
==>() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1094	1262	
==>() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6098	6194	
==>ype', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'V <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6098	6194	
==>ype', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'V <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10282	10378	
==>head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8175	8271	
==>head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10282	10378	
==>head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8175	8271	
==>head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Returns the <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1010	1125	
==>r
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1884	1999	
==>r
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1010	1125	
==>r
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1884	1999	
==>r
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16241	16358	
==>} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  push @ISA, qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2659	2764	
==>$name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2659	2764	
==>$name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2659	2764	
==>$name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", n <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3709	3873	
==>_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17547	17689	
==>abel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17547	17689	
==>abel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17547	17689	
==>abel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13890	14010	
==>annel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13890	14010	
==>annel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else { <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2276	2371	
==>e Blondie Abstract Syntax Tree, and can be executed by a
runtime. An example runtime is L<Blondi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	185	295	
==>ty_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersa <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	185	295	
==>ty_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9482	9583	
==>tersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9482	9583	
==>tersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1838	1942	
==>rclasses, $self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) returns Set {
    s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5701	5802	
==>ethod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5701	5802	
==>ethod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5701	5802	
==>ethod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16768	16873	
==>as_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31181	31286	
==>that does not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16768	16873	
==>as_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16768	16873	
==>as_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5737	5849	
==>~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5737	5849	
==>~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5737	5849	
==>~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	698	807	
==>tUtils::MakeMaker::prompt;
    }
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemak <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15175	15269	
==>hird
parties) implement.  This interface is rigorously defined, such that there
should be no am <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7302	7396	
==>se ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined | <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15175	15269	
==>hird
parties) implement.  This interface is rigorously defined, such that there
should be no am <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7302	7396	
==>se ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined | <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	814	917	
==>File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19465	19564	
==>t takes a function and applies it to a string
# thiss tests that the inferrence of higher order func <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18296	18393	
==>4-6]>.  If you want to prevent
characters and ranges from being display if they are included in an <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2649	2741	
==>File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5487	5592	
==>rint encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5487	5592	
==>rint encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5487	5592	
==>rint encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging out <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12919	13026	
==>a}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27058	27165	
==>a}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3199	3293	
==>ns are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3086	3177	
==>ns are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21700	21796	
==>ividually addressed only by their values; neither
may be addressed by any ordinal value.

Note th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26252	26348	
==>ividually addressed only by their values; neither
may be addressed by any ordinal value.

Note th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24912	25008	
==>ividually addressed only by their values; neither
may be addressed by any ordinal value.

Note th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3647	3757	
==>/^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jso <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3647	3757	
==>/^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jso <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3647	3757	
==>/^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jso <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23399	23499	
==>xt =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2526	2655	
==>verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2526	2655	
==>verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2526	2655	
==>verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = ru <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3189	3300	
==>d for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of M <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	96	248	
==>ng of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& cr <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	96	248	
==>ng of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& cr <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9105	9251	
==>newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub u <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9105	9251	
==>newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub u <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5063	5234	
==>imal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            el <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5063	5234	
==>imal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            el <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12576	12682	
==>};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12576	12682	
==>};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6180	6295	
==>m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6180	6295	
==>m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11541	11630	
==>ept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plai <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11541	11630	
==>ept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23714	23827	
==>6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23714	23827	
==>6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23714	23827	
==>6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB r <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3861	3969	
==>IL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4194	4302	
==>IL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3861	3969	
==>IL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4194	4302	
==>IL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3135	3250	
==>alue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3135	3250	
==>alue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3135	3250	
==>alue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5489	5588	
==>N

This module provides an implementation for Perl 6 Rule categories.  

The module is still very un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18085	18209	
==>onal, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17123	17247	
==>onal, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18085	18209	
==>onal, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17123	17247	
==>onal, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6473	6585	
==>\'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6473	6585	
==>\'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6473	6585	
==>\'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40691	40786	
==>list is used to fill in
the format string for sprintf().

=over 4

=item $parser->warn(RPe_ERRMS <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1540	1669	
==>::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1540	1669	
==>::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6009	6133	
==>al_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5997	6121	
==>al_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6292	6460	
==>t ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6292	6460	
==>t ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6292	6460	
==>t ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	443	554	
==>r, Number;

macro LChar () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19558	19649	
==>$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19558	19649	
==>$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19558	19649	
==>$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23564	23653	
==>- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1). <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9912	10057	
==>depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6253	6398	
==>depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7102	7247	
==>depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2689	2885	
==>tion$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2689	2885	
==>tion$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8323	8425	
==>leop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = sh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8034	8132	
==>leop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1258	1373	
==>pply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1258	1373	
==>pply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1258	1373	
==>pply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i] <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6753	6860	
==>NARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11895	12037	
==>ing map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11895	12037	
==>ing map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11895	12037	
==>ing map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5347	5448	
==>(Relation::Example $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16237	16332	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16237	16332	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16237	16332	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::V <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21937	22034	
==>(varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20818	20915	
==>(varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeri <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21937	22034	
==>(varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeri <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20818	20915	
==>(varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeri <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	339	454	
==>raverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2451	2551	
==>aller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hook <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2451	2551	
==>aller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hook <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2451	2551	
==>aller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hook <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7906	8108	
==>y->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" un <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1207	1409	
==>y->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	976	1158	
==>ry Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	976	1158	
==>ry Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This i <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3256	3372	
==>ze => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3256	3372	
==>ze => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	489	596	
==>pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	489	596	
==>pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the pre <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17118	17220	
==>t)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    $$meta = $meta_object;
}
sub p6_initialize_package { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	661	759	
==>to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	661	759	
==>to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	661	759	
==>to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' me <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2309	2410	
==>ng.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2309	2410	
==>ng.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12918	13096	
==>f->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12918	13096	
==>f->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12918	13096	
==>f->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $sel <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	370	480	
==>l(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4248	4365	
==>ascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4248	4365	
==>ascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4248	4365	
==>ascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </bo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16384	16474	
==>,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13055	13189	
==>t = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13055	13189	
==>t = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13055	13189	
==>t = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1674	1767	
==>of Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  There's a "return" <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5266	5386	
==>rrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linux <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8732	8843	
==>equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6262	6368	
==>equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5942	6060	
==>nd;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5942	6060	
==>nd;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5942	6060	
==>nd;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_ins <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2350	2454	
==>rray: Int)\
multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indicie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1193	1294	
==>body closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to obje <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12350	12450	
==>for that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12350	12450	
==>for that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1140	1238	
==>body closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to obje <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21576	21684	
==>)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4008	4116	
==>rns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remov <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4008	4116	
==>rns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remov <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2351	2458	
==>infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2351	2458	
==>infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2996	3116	
==>b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2996	3116	
==>b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2996	3116	
==>b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19867	19974	
==>ce [ "PGE::Exp::Quant" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp
    .local int pada <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5480	5599	
==>ons {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14297	14389	
==>6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14297	14389	
==>6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14297	14389	
==>6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
M <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4698	4825	
==>',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4698	4825	
==>',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20077	20168	
==>joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20077	20168	
==>joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5969	6133	
==>entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6433	6597	
==>entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7469	7578	
==>span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7469	7578	
==>span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32487	32580	
==>ed C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37037	37130	
==>ed C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22136	22260	
==>?{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22696	22820	
==>?{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18557	18681	
==>?{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19117	19241	
==>?{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4709	4886	
==>\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2064	2154	
==>elf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2064	2154	
==>elf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DEST <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2064	2154	
==>elf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DEST <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6822	6921	
==>) returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6822	6921	
==>) returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before th <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1711	1809	
==>rker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($wo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1711	1809	
==>rker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($wo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16526	16817	
==>g  => 'div', 
                                          class => qr/^h\d$/,
                                          name  => $heading_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11385	11505	
==>less defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11385	11505	
==>less defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11385	11505	
==>less defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18298	18397	
==>en Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data structure <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18298	18397	
==>en Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data structure <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13203	13301	
==>en
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data structure <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13203	13301	
==>en
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data structure <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12559	12681	
==>{ ... }
    method next    () { ... }
    method current () { ... }
}

# Support for =$fh
class IO does Iter {
    method s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	462	569	
==><cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	462	569	
==><cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16978	17090	
==>f ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20455	20567	
==>f ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20033	20145	
==>f ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer <==
4	/Users/nnunley/pugs/util/drift.pl	1531	1640	
==>odule;
while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $modu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10596	10692	
==>h must be implemented
    # -----------------------------------------------

    method add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10596	10692	
==>h must be implemented
    # -----------------------------------------------

    method add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10596	10692	
==>h must be implemented
    # -----------------------------------------------

    method add_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7165	7278	
==>$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7153	7266	
==>$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2562	2659	
==>turn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incor <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2562	2659	
==>turn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13168	13282	
==>le(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13168	13282	
==>le(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13168	13282	
==>le(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => met <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1249	1346	
==>scribes version 0.03 of re::override, released
March 12, 2006.

=head1 SYNOPSIS

    use re::overr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	621	750	
==>lf.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BU <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	621	750	
==>lf.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BU <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20982	21143	
==>sfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{failed}}, $te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	941	1040	
==>odule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	941	1040	
==>odule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	716	811	
==>TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contain <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	716	811	
==>TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contain <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2523	2615	
==>herit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flat <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2523	2615	
==>herit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6318	6423	
==>[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6318	6423	
==>[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6318	6423	
==>[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thin <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18114	18216	
==>I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc pad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9766	9915	
==>warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9766	9915	
==>warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9766	9915	
==>warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $ke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5405	5499	
==>me,$rep,$type,@pairs)=@$_;
        my $o = PIL::PIL1CPerl5::NodesInfo::Object->new($name,$rep,$ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	660	763	
==>.

# Next steps:

# Create a clean backtracking library (basically a set of simple
# macros) to make wri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7244	7340	
==>=> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7244	7340	
==>=> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7244	7340	
==>=> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	369	507	
==>X - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	369	507	
==>X - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4174	4295	
==>my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4028	4146	
==>my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2620	2776	
==>ath");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2620	2776	
==>ath");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2178	2274	
==>turn if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{ru <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2156	2252	
==>turn if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{ru <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6741	6869	
==>$new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6741	6869	
==>$new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4316	4418	
==>if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_bool {$_[0]?1:undef}
sub p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24298	24382	
==>mat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G)).
match_capture <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1162	1267	
==>...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	904	1009	
==>...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1162	1267	
==>...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	904	1009	
==>...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3560	3736	
==>ed $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4488	4660	
==>ed $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3449	3621	
==>ed $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4488	4660	
==>ed $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5026	5141	
==>in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5026	5141	
==>in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5026	5141	
==>in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11677	11778	
==>rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
module parses them and han <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9081	9184	
==>::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9081	9184	
==>::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9081	9184	
==>::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } e <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27102	27197	
==>00
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #define RE_USE_INTU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2733	2850	
==>File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2733	2850	
==>File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2733	2850	
==>File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compon <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1749	1865	
==>nless ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5364	5538	
==>head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5364	5538	
==>head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31182	31274	
==>e names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::Fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31182	31274	
==>e names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::Fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	669	778	
==>ar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it returns a hashref instead of a Ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	273	378	
==>in class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse gi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	273	378	
==>in class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse gi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	273	378	
==>in class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse gi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10598	10704	
==>self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10598	10704	
==>self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	62	163	
==>ler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	62	163	
==>ler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation fr <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2881	3012	
==>%events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elemen <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3135	3266	
==>%events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elemen <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2881	3012	
==>%events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elemen <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3135	3266	
==>%events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elemen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5108	5240	
==>);
        }
    }
    # this is our does() method, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $role <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3223	3332	
==>ass($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3223	3332	
==>ass($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3223	3332	
==>ass($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_inst <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2400	2542	
==>e program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::Key <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2400	2542	
==>e program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::Key <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2452	2551	
==>5 ones with p6 ones _without_ changings its name.



of course that has the problem of supplying Per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2359	2456	
==>5 ones with p6 ones _without_ changings its name.

of course that has the problem of supplying Per <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3747	3872	
==>P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9906	10006	
==>n "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9906	10006	
==>n "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9906	10006	
==>n "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)= <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1115	1210	
==>ot just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1115	1210	
==>ot just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	797	887	
==>is file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	797	887	
==>is file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Nu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9895	10052	
==>rn ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	463	614	
==>rn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	463	614	
==>rn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6299	6399	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8367	8467	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6299	6399	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8367	8467	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22465	22700	
==>:p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22465	22700	
==>:p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22465	22700	
==>:p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6888	7004	
==>) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = $Result3 % $n2_32;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4175	4290	
==>lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4175	4290	
==>lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4175	4290	
==>lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	311	428	
==>files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	212	329	
==>files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10436	10528	
==>lso the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10436	10528	
==>lso the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_prev <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38450	38544	
==>ble value is
substituted for any occurance of its corresponding variable name that is
bounded b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38450	38544	
==>ble value is
substituted for any occurance of its corresponding variable name that is
bounded b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2675	2773	
==>st' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2675	2773	
==>st' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2675	2773	
==>st' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## att <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6712	6816	
==>se qw/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	330	433	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	330	433	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	330	433	
==>e "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7131	7244	
==>_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7131	7244	
==>_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tig <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18105	18196	
==>Expression> <'||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11. <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	177	305	
==>ault
}

sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	706	811	
==>al {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	706	811	
==>al {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1353	1453	
==>ir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5516	5616	
==>returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5574	5674	
==>returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) r <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1353	1453	
==>ir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	996	1098	
==>)
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	996	1098	
==>)
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	996	1098	
==>)
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1146	1240	
==>ts_till_day = dayify(@commits);
my @devs_till_day    = dayify(@developers);
# @devs_till_day sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2939	3141	
==>=> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2939	3141	
==>=> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2939	3141	
==>=> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $co <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4335	4434	
==>d_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9779	9900	
==>----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an impl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9779	9900	
==>----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an impl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9779	9900	
==>----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an impl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20847	20963	
==>d["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 go <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7992	8088	
==>de)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&expressio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9300	9413	
==>ature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9300	9413	
==>ature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9300	9413	
==>ature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	583	687	
==>ad => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  debug "Reading smoke \"$file\" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5502	5633	
==>) {
                $details->{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{details <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3118	3227	
==>yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3118	3227	
==>yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1612	1710	
==>*@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($wo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1612	1710	
==>*@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($wo <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	365	480	
==>arameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow dupli <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	365	480	
==>arameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow dupli <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5215	5326	
==>pParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCx <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5215	5326	
==>pParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12895	13056	
==>', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12895	13056	
==>', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12895	13056	
==>', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4842	4995	
==>t',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            return ::op <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14832	14928	
==>nd => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14832	14928	
==>nd => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20637	20731	
==>very bit of the default process described above is overridable by
various methods.

=head1 DIST <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20637	20731	
==>very bit of the default process described above is overridable by
various methods.

=head1 DIST <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1614	1743	
==>username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Au <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1614	1743	
==>username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Au <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5627	5740	
==>p -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5627	5740	
==>p -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	424	526	
==>' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	424	526	
==>' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	424	526	
==>' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self- <==
4	/Users/nnunley/pugs/util/package-osx.pl	9296	9444	
==>$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($di <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3107	3214	
==>ion.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3107	3214	
==>ion.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickna <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7500	7604	
==>@children_of_seq = $child->values; # the children of the seq child of the thunk
			my $last = pop @childr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13435	13532	
==>one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18522	18619	
==>one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13435	13532	
==>one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18522	18619	
==>one you first invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2161	2291	
==>y @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2161	2291	
==>y @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m- <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9045	9152	
==>operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9045	9152	
==>operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	5	102	
==>e Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
g <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	5	102	
==>e Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	74	202	
==>ERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	74	202	
==>ERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_sc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	74	202	
==>ERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_sc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35464	35560	
==>ad2 group

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: array reference of any number o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1448	1572	
==>file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base? <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1448	1572	
==>file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base? <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5419	5525	
==>. join(" -> ", map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5303	5404	
==>. $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the Class <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3366	3482	
==>admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6861	6965	
==>=> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6861	6965	
==>=> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6861	6965	
==>=> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7076	7180	
==>hority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7076	7180	
==>hority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7076	7180	
==>hority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_ <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	699	792	
==>zer but $.coercer_role, collect_arguments( grep { not try { $normalizer.subsume( $_ ) } }, @ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29132	29276	
==>@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque $self: symbol $order) returns block {
    $order = ': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	357	465	
==>tance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	562	670	
==>tance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	618	726	
==>tance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy att <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22124	22217	
==>a character class, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpecte <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21570	21688	
==>stat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3384	3484	
==>ay.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3384	3484	
==>ay.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3384	3484	
==>ay.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	4	112	
==>age PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	4	112	
==>age PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	4	112	
==>age PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12675	12798	
==>>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12675	12798	
==>>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12675	12798	
==>>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->po <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1334	1463	
==>1;
            local $Storable::canonical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreez <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9690	9805	
==>$p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9690	9805	
==>$p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9690	9805	
==>$p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40906	41015	
==>calar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40906	41015	
==>calar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40906	41015	
==>calar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	492	600	
==>{my($o)=@_;$$o->{'to'}}

sub new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1935	2041	
==>xtracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1857	1961	
==>xtracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1084	1173	
==>il_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1084	1173	
==>il_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $des <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19822	19920	
==>nt the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19822	19920	
==>nt the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	53	166	
==>trict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	53	166	
==>trict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	53	166	
==>trict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs a <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1186	1289	
==>*@args) {
    die 'Please override &dispatch in your subclass of POE::Session.';
  }
}

=head1 NAME

POE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15128	15235	
==>g, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1306	1407	
==>ons - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1306	1407	
==>ons - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1306	1407	
==>ons - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40701	40847	
==>eturn $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILDAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1587	1693	
==>-) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1587	1693	
==>-) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1587	1693	
==>-) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29074	29167	
==>that returns a new Relation::Example
which is the same as the invocant Relation::Example but t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30103	30196	
==><$attrs> is either empty or equal to
the invocant Relation::Example's header, in which case it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31922	32015	
==>that returns a new Relation::Example
which is the same as the invocant Relation::Example but t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32969	33062	
==>that returns a new Relation::Example
which is the same as the invocant Relation::Example but t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1644	1758	
==>realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realclean->{F <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2464	2568	
==>t::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2464	2568	
==>t::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2464	2568	
==>t::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2342	2449	
==>otocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1443	1550	
==>:Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHOR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2342	2449	
==>otocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1443	1550	
==>:Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5077	5184	
==>w {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5077	5184	
==>w {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5077	5184	
==>w {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1778	1870	
==>xpression) returns Scalar
 multi sub  Perl6::List::reduce (Code $expression ; *@values) retur <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2464	2613	
==>== .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1923	2046	
==>n $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1923	2046	
==>n $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1923	2046	
==>n $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1337	1439	
==>my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1337	1439	
==>my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1337	1439	
==>my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2700	2819	
==>n_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2700	2819	
==>n_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2700	2819	
==>n_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	958	1069	
==>meta or $meta = $self->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->packa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9268	9420	
==>$cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9268	9420	
==>$cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            war <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1208	1321	
==>m is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1208	1321	
==>m is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13171	13329	
==>te force!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3356	3494	
==>te force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3356	3494	
==>te force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3356	3494	
==>te force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14958	15079	
==>eg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, \$how);
  });

  # upper POSIX class
  $self->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4899	4995	
==>e, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4899	4995	
==>e, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4899	4995	
==>e, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37892	37983	
==>ady loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1200	1291	
==>mentation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Exam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37892	37983	
==>ady loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1200	1291	
==>mentation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	206	307	
==>')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	206	307	
==>')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	206	307	
==>')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2806	2946	
==>(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 }, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2699	2832	
==>(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 }, <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	971	1082	
==>es( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t$obj->{package}\ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2200	2310	
==>c, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1125	1248	
==>pecify any filenames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6723	6819	
==>is handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6723	6819	
==>is handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8920	9016	
==>is handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5567	5676	
==>xed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5567	5676	
==>xed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5567	5676	
==>xed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spri <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12773	12861	
==>e,C), !.
p6_named_character_tail([],Close)    --> [Close], !.
p6_named_character_tail([C, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8743	8846	
==>_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_fail <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8801	8904	
==>_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_fail <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9349	9447	
==>_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9349	9447	
==>_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        ' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1441	1558	
==>ot have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5052	5157	
==>or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5052	5157	
==>or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5052	5157	
==>or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	667	794	
==>al c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	667	794	
==>al c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	667	794	
==>al c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6352	6479	
==>al c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2504	2608	
==>erence ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5707	5811	
==>erence ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2504	2608	
==>erence ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5707	5811	
==>erence ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	349	468	
==>ie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4379	4471	
==>est::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually create <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4379	4471	
==>est::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually create <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5903	5995	
==>est::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually create <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23643	23758	
==>fined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23643	23758	
==>fined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23643	23758	
==>fined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7491	7622	
==>terface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandato <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7491	7622	
==>terface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandato <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6018	6116	
==>cient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

met <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6018	6116	
==>cient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

met <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	559	656	
==>l 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert P <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	559	656	
==>l 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16502	16598	
==>ize => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16502	16598	
==>ize => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6450	6547	
==>', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'Mk <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6450	6547	
==>', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'Mk <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25908	26003	
==>contains zero or more variable names and values
that are associated with the message, and can be <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25908	26003	
==>contains zero or more variable names and values
that are associated with the message, and can be <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8418	8517	
==>his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8418	8517	
==>his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $eve <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22996	23094	
==>EEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16606	16709	
==>_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4443	4544	
==>") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4443	4544	
==>") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are t <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15654	15753	
==>_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	300	413	
==>_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Has <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	791	904	
==>_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Has <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	300	413	
==>_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Has <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	791	904	
==>_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Has <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2718	2841	
==>,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2718	2841	
==>,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8869	8965	
==>n.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curren <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8869	8965	
==>n.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	113	206	
==>----------------------------------------
## now for some bootstrapping ....

## See http://art <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	113	206	
==>----------------------------------------
## now for some bootstrapping ....

## See http://art <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	113	206	
==>----------------------------------------
## now for some bootstrapping ....

## See http://art <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14650	14737	
==>right... need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_rever <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3656	3778	
==>ifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3644	3766	
==>ifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '* <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1079	1186	
==>c ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1079	1186	
==>c ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4062	4303	
==>$p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit") <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4062	4303	
==>$p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit") <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15526	15618	
==>Because these functions will be mutually recursive, they will easily be
able handle arbitrari <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15584	15676	
==>Because these functions will be mutually recursive, they will easily be
able handle arbitrari <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1072	1195	
==>);
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1072	1195	
==>);
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1072	1195	
==>);
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14214	14309	
==>egcomp.c ./regexec.c
    ./ext/re/re.xs ./ext/re/re.pm
    http://cvs.perl.org/viewcvs/perl5/mir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32512	32614	
==>>nparen ];
  }

That means that when an 'open' node is walked into, after it has
been walk()ed, it will <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	337	461	
==>);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	372	496	
==>);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	337	461	
==>);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9550	9674	
==>);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8204	8347	
==>arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8204	8347	
==>arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8204	8347	
==>arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	413	524	
==>$_[2];
    },
);

# note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_template <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1208	1336	
==>hort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1208	1336	
==>hort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1208	1336	
==>hort
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eva <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4917	5016	
==>tr () returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns nil>

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5524	5644	
==>gs,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5524	5644	
==>gs,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5524	5644	
==>gs,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20431	20548	
==>um"] = $I0

    if self != "(" goto init
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10464	10654	
==>arrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10464	10654	
==>arrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my me <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2363	2460	
==>s, this port does it's best to work with those limitations and 
still produce a working version of <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2363	2460	
==>s, this port does it's best to work with those limitations and 
still produce a working version of <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6967	7093	
==>);
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLVa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7050	7174	
==>){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7050	7174	
==>){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use c <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4787	4890	
==>the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

D <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4787	4890	
==>the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3246	3334	
==>AGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3246	3334	
==>AGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1629	1754	
==>if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1836	1961	
==>if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelu <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	758	862	
==>xpected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	816	920	
==>xpected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	758	862	
==>xpected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	816	920	
==>xpected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	391	495	
==>UARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	391	495	
==>UARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	391	495	
==>UARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	449	553	
==>ram->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	449	553	
==>ram->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Comp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34790	34885	
==>_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34790	34885	
==>_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	290	547	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6663	6765	
==>lTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (neede <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6663	6765	
==>lTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (neede <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6663	6765	
==>lTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (neede <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17053	17210	
==>eturn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17053	17210	
==>eturn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17053	17210	
==>eturn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12156	12275	
==>status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Te <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6366	6475	
==>ot)       --> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simple_escape <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2556	2663	
==>status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2556	2663	
==>status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Te <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13800	13915	
==>sconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13800	13915	
==>sconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6045	6142	
==>nts;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6045	6142	
==>nts;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	516	606	
==>($self->{seen}->includes($node)){
		$self->{dups}->insert($node);
	} else {
		$self->{seen} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4083	4172	
==>-----------------------------------------------------------------
## NOTE:
## code in this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4083	4172	
==>-----------------------------------------------------------------
## NOTE:
## code in this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4083	4172	
==>-----------------------------------------------------------------
## NOTE:
## code in this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5472	5573	
==>from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5472	5573	
==>from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5472	5573	
==>from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14114	14208	
==>f->registered_alternatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3242	3392	
==>-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2657	2777	
==>ringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2657	2777	
==>ringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2657	2777	
==>ringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7580	7757	
==>it )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7580	7757	
==>it )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17952	18048	
==>l track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17952	18048	
==>l track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3946	4079	
==>$pkg->package . " already exists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8475	8576	
==>mpare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8475	8576	
==>mpare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3587	3692	
==>se{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3587	3692	
==>se{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3587	3692	
==>se{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idem <==
4	/Users/nnunley/pugs/util/package-osx.pl	5487	5584	
==>local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ::FUD.3pm
        /usr/loca <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6373	6479	
==>start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6373	6479	
==>start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10654	10751	
==>t set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10654	10751	
==>t set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	708	817	
==>ve() + 0);
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	997	1098	
==>we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	997	1098	
==>we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	997	1098	
==>we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	78	194	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	78	194	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	78	194	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11183	11291	
==>>new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator:: <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	436	554	
==>ns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	436	554	
==>ns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4853	4956	
==>1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4853	4956	
==>1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9617	9749	
==>raffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disco <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9617	9749	
==>raffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disco <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18428	18524	
==>most accurate program text
for users, we still get the best results by having a human being write <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18428	18524	
==>most accurate program text
for users, we still get the best results by having a human being write <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1754	1858	
==>hould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1754	1858	
==>hould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1754	1858	
==>hould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2045	2187	
==>:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2250	2392	
==>:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2032	2126	
==>, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There ma <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2032	2126	
==>, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5615	5736	
==>fess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5615	5736	
==>fess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5615	5736	
==>fess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21162	21247	
==>ber(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_member(E0,C,Se <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4760	4869	
==>ition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self->{defs} }, $body;

	$self->ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5463	5561	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5463	5561	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5463	5561	
==>A = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14485	14623	
==>es = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	305	422	
==>o) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	305	422	
==>o) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	305	422	
==>o) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	282	397	
==>',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	282	397	
==>',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8217	8307	
==>sh @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2042	2132	
==>sh @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->su <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31906	32018	
==>nal operator that takes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33767	33879	
==>nal operator that takes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36456	36568	
==>nal operator that takes a single
Relation in its C<$other> argument, where <$other> has the same heading as
the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38317	38429	
==>nal operator that takes a single Relation
in its C<$other> argument, where <$other> has the same heading as the
i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24303	24417	
==>g their
  actions) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23076	23190	
==>g their
  actions) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24303	24417	
==>g their
  actions) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23076	23190	
==>g their
  actions) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1031	1137	
==>r $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chom <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1031	1137	
==>r $description? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chom <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	953	1058	
==>r $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chom <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	953	1058	
==>r $description? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chom <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1995	2097	
==>ext;
    # Check if it's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	861	962	
==>nt is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	861	962	
==>nt is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	861	962	
==>nt is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6333	6478	
==>cumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1448	1554	
==>?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1448	1554	
==>?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1448	1554	
==>?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mod <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	122	223	
==>role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	122	223	
==>role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9759	9855	
==>able:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You migh <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9759	9855	
==>able:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You migh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	369	477	
==>E);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sour <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	369	477	
==>E);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sour <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	369	477	
==>E);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sour <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5101	5197	
==>n_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5101	5197	
==>n_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5101	5197	
==>n_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	252	343	
==>piler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4598	4693	
==>http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4598	4693	
==>http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18324	18417	
==>heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18324	18417	
==>heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20485	20642	
==>am => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1370	1474	
==>bs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1370	1474	
==>bs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1370	1474	
==>bs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4271	4369	
==>ess 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4271	4369	
==>ess 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4271	4369	
==>ess 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15316	15408	
==>e!)

=item Regexp::MinLength

Implements a min_length() method for all objects that determine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	139	258	
==>ts.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	143	262	
==>ts.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	139	258	
==>ts.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	143	262	
==>ts.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3300	3413	
==>am{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3300	3413	
==>am{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3300	3413	
==>am{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless de <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5773	5883	
==>lnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(a <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1247	1359	
==>s (Default: take tests from ./tests.yaml)
    --help          Show this help

  Perl6 Documentation:
    You will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1141	1240	
==>XSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1141	1240	
==>XSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1141	1240	
==>XSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3357	3473	
==>or my $file (@{ $Config{precompile} }) {
        my $module; # guess what to put in %*INC
        open my $ifh, $file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1316	1428	
==>($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1316	1428	
==>($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1316	1428	
==>($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2051	2152	
==>,
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2051	2152	
==>,
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2051	2152	
==>,
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ] <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52443	52532	
==>odule));

$::Module->set_attr(symbol->new('@:subclasses') => list->new($::Class));

# NOTE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9404	9541	
==>h( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        $_[3] = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3060	3175	
==>lessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3060	3175	
==>lessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3060	3175	
==>lessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3475	3584	
==>k')))
        || confess "argument to &each must be either a closure or a block";
    foreach my $val (@{$self <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7920	8048	
==>cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13514	13642	
==>cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7920	8048	
==>cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13508	13636	
==>cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3932	4045	
==>f $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3932	4045	
==>f $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3932	4045	
==>f $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13318	13415	
==>es into perlguts, which limits the range of
  perl versions it will work with, and raises maintena <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6847	6942	
==>igned as a replacement (though not drop-in) for my old
F<YAPE::Regex> modules.

=head1 USAGE

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3748	3841	
==>fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3748	3841	
==>fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3748	3841	
==>fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2647	2767	
==>js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2647	2767	
==>js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2647	2767	
==>js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8968	9085	
==>)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3507	3617	
==>> 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3507	3617	
==>> 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3507	3617	
==>> 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	525	653	
==>src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	525	653	
==>src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	525	653	
==>src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10380	10499	
==>object(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16144	16280	
==>$code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16144	16280	
==>$code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16144	16280	
==>$code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4155	4249	
==>w> constructor generally include some sort of key, and sometimes also 
parameters for block siz <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4155	4249	
==>w> constructor generally include some sort of key, and sometimes also 
parameters for block siz <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9223	9338	
==>odule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9281	9396	
==>odule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	16	111	
==>angeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Ar <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	16	111	
==>angeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Ar <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	331	431	
==>t_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

meth <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	331	431	
==>t_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5427	5525	
==>ramework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5427	5525	
==>ramework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15053	15149	
==>mes during a program's operation, the program (or a package it uses)
will need to display a messa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9872	9968	
==>e set of common test utility functions, and is
an implementation of the TAP protocol.

This modul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15053	15149	
==>mes during a program's operation, the program (or a package it uses)
will need to display a messa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9930	10026	
==>e set of common test utility functions, and is
an implementation of the TAP protocol.

This modul <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13983	14083	
==>n prove
  implausible to realloc the regexp struct to create one?

Possible next steps:

  Get per-pa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4337	4436	
==>lit(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # thi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4337	4436	
==>lit(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	377	510	
==>isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	377	510	
==>isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	377	510	
==>isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6052	6162	
==>self->{extensions} ||= [];
}

sub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3034	3148	
==>es;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3034	3148	
==>es;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3034	3148	
==>es;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29127	29236	
==>::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29127	29236	
==>::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	470	571	
==>::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	554	655	
==>::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13367	13467	
==>l, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13367	13467	
==>l, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13367	13467	
==>l, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23387	23481	
==>is important to do this copy-and-push before you do any flag-parsing,
if you're adding a handle <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18034	18154	
==>faults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17072	17192	
==>faults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18034	18154	
==>faults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17072	17192	
==>faults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14406	14577	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14406	14577	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14406	14577	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        m <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2937	3108	
==>ize_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8831	8956	
==>es its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work.. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8831	8956	
==>es its return values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work.. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9087	9208	
==>es its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work.. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9087	9208	
==>es its return values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work.. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3856	3976	
==>depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

su <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3914	4034	
==>depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19705	19799	
==>d-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the compl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19705	19799	
==>d-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the compl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2049	2159	
==>@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2049	2159	
==>@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2049	2159	
==>@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8368	8459	
==>em I<start_element ('line_interpolation')>

This event is begun when any block of characters <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8368	8459	
==>em I<start_element ('line_interpolation')>

This event is begun when any block of characters <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7379	7476	
==>w/type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4496	4581	
==>_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4496	4581	
==>_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4496	4581	
==>_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24722	24826	
==>oop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC ser <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23486	23590	
==>oop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24722	24826	
==>oop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23486	23590	
==>oop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Most IRC ser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3600	3708	
==>bel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    req <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3600	3708	
==>bel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    req <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3600	3708	
==>bel, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    req <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20721	20822	
==>:Hash::META->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_CODE {
    my($nam <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7568	7666	
==>rgs) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6698	6796	
==>rgs) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7568	7666	
==>rgs) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6698	6796	
==>rgs) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2553	2671	
==>$self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5756	5874	
==>$self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2553	2671	
==>$self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5756	5874	
==>$self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3673	3777	
==>s immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3673	3777	
==>s immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3673	3777	
==>s immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inlin <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2415	2504	
==>fix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", "<infix:&", "left <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15281	15398	
==>class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.fl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15281	15398	
==>class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.fl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33323	33419	
==>gram or library may wish to override the user text of another library
which it uses, the Template <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33323	33419	
==>gram or library may wish to override the user text of another library
which it uses, the Template <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1118	1236	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1118	1236	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1118	1236	
==>stanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5678	5781	
==>-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $1,
      pug <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14756	14858	
==>n 1;
}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14806	14898	
==>HOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14806	14898	
==>HOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14806	14898	
==>HOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39189	39312	
==>t {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39189	39312	
==>t {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39189	39312	
==>t {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    p <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2500	2610	
==>open log (in $testdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11689	11814	
==>status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2123	2236	
==>status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2123	2236	
==>status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip d <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	428	521	
==>$$o->{'val_hash'}}

sub from {my($o)=@_;$$o->{'from'}}
sub to   {my($o)=@_;$$o->{'to'}}

sub n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2270	2390	
==>- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2187	2300	
==>- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    u <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15265	15361	
==>input string).

If you prefer not to import these routines into your namespace, you can
call them <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15265	15361	
==>input string).

If you prefer not to import these routines into your namespace, you can
call them <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3584	3685	
==>FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3584	3685	
==>FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3584	3685	
==>FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3956	4093	
==>mpile_dir . q[ -xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->preinst );
            if( -e $prei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2320	2426	
==>'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2320	2426	
==>'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2320	2426	
==>'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1 <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16550	16687	
==>s step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1402	1499	
==>"infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1402	1499	
==>"infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1402	1499	
==>"infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= Stri <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2145	2271	
==>turns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5116	5242	
==>turns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2145	2271	
==>turns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5116	5242	
==>turns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5143	5261	
==>ulti sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4270	4388	
==>ulti sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5143	5261	
==>ulti sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4270	4388	
==>ulti sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	130	229	
==>s are bindings of Code objects to a particular Type.

=over

=item *

A method's Code property usual <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10989	11077	
==>:Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10989	11077	
==>:Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10989	11077	
==>:Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3749	4008	
==>te module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    su <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3749	4008	
==>te module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23265	23361	
==>rnately, the other
packages require your text data to be stored in a format other than Perl
files <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23265	23361	
==>rnately, the other
packages require your text data to be stored in a format other than Perl
files <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18284	18453	
==>rint Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18284	18453	
==>rint Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18284	18453	
==>rint Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'sto <==
4	/Users/nnunley/pugs/util/version_h.pl	813	923	
==>ntries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-rev=.(\d <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6620	6780	
==>_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5124	5284	
==>_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	58	156	
==>= 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	58	156	
==>= 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3439	3563	
==>value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3439	3563	
==>value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3439	3563	
==>value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17575	17683	
==>0),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param => v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7999	8132	
==>,
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7999	8132	
==>,
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7999	8132	
==>,
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1390	1555	
==>);
            #}
            
            # XXX temporary hack - matching options in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $w <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6098	6210	
==>er code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6488	6600	
==>er code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13031	13134	
==>.  They return two
values, their numeric value, and a format string for use with sprintf().

  # for whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	656	749	
==>ctored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	656	749	
==>ctored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	656	749	
==>ctored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12998	13131	
==>fset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12998	13131	
==>fset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12998	13131	
==>fset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1883	2016	
==>fset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	149	259	
==>ss             ();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $set = JIB:: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6056	6149	
==>ode_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Va <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6056	6149	
==>ode_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Va <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2955	3048	
==>ode_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3642	3753	
==>mpiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your targe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3512	3618	
==>mpiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your targe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36208	36296	
==>yApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36208	36296	
==>yApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3924	4024	
==>urrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3924	4024	
==>urrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3924	4024	
==>urrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11379	11484	
==>e Test::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      subm <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1831	1928	
==>e Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    subm <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1831	1928	
==>e Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    subm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1162	1255	
==>print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./hand <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1160	1253	
==>Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This do <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1162	1255	
==>print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./hand <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1160	1253	
==>Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This do <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2045	2146	
==>t, " ", $#nameSplit, "\n";
  my @spacePresent = split / /, $nameSplit[$#nameSplit];
  if ( @spacePrese <==
4	/Users/nnunley/pugs/util/config_h.pl	391	491	
==>ry)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7339	7431	
==>d1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7339	7431	
==>d1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7339	7431	
==>d1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35198	35296	
==>cts

Branched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf (C<abc> with C</i> on)

D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6511	6608	
==>urn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6511	6608	
==>urn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6511	6608	
==>urn Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5139	5265	
==>um, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5139	5265	
==>um, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m- <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	31	135	
==>use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	31	135	
==>use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4784	4945	
==>undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns O <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4784	4945	
==>undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns O <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	748	851	
==>"))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	748	851	
==>"))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_nam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	893	1056	
==>,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	886	1049	
==>,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        retu <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4442	4538	
==>mple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "ht <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4442	4538	
==>mple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "ht <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	318	458	
==>+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' ca <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3903	4012	
==>ues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.va <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7380	7489	
==>ues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.va <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6346	6455	
==>ues ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.va <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3036	3134	
==>ket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
all <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3036	3134	
==>ket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
all <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	88	177	
==>:Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	88	177	
==>:Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1389	1494	
==>template ($filename, *%params) {
    my $template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\% <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31216	31312	
==>as a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35766	35862	
==>as a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34984	35080	
==>as a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2610	2734	
==>ers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTE <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2610	2734	
==>ers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	91	191	
==>Pugs::Runtime::Grammar for metaclass stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    return <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3226	3323	
==>lue' ,'unk';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1146	1267	
==>ortList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1146	1267	
==>ortList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1146	1267	
==>ortList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8378	8475	
==>c_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), !.
p5_mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10357	10490	
==>h {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10357	10490	
==>h {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10357	10490	
==>h {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_su <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2253	2349	
==>l6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SE <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2253	2349	
==>l6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SE <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1773	1865	
==>l6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1773	1865	
==>l6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1146	1252	
==>ject; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1146	1252	
==>ject; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1226	1332	
==>ject; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $T <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3877	3966	
==>t know about @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that_sh <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	532	628	
==>ctions may sub-class this module or
provide special behaviour when a property is set.  If we ever <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	532	628	
==>ctions may sub-class this module or
provide special behaviour when a property is set.  If we ever <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5918	6048	
==>=
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute
        $pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29914	30007	
==>ng old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34466	34559	
==>ng old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33630	33723	
==>ng old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4925	5087	
==>ns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## --------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12320	12412	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12320	12412	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12320	12412	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcirc <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2566	2714	
==>(floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29114	29213	
==>the tree.  It returns a value that says whether
or not it ended up being merged with the previous ob <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6857	6952	
==>ind no closing match, I should
ignore the opening one. However, this means I should defer events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6857	6952	
==>ind no closing match, I should
ignore the opening one. However, this means I should defer events <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6369	6504	
==>le handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6369	6504	
==>le handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5102	5224	
==>( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5102	5224	
==>( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23519	23632	
==>t.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23519	23632	
==>t.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23519	23632	
==>t.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4568	4668	
==>ary report and
a how long it all took.

It returns true if everything was ok.  Otherwise it will C<di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9132	9278	
==>);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9120	9266	
==>);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1573	1698	
==>base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	9412	9532	
==>}
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	195	294	
==>aining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub eva <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	251	350	
==>aining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub eva <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	752	850	
==>lume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	752	850	
==>lume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1338	1436	
==>:%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_asser <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1338	1436	
==>:%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_asser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29664	29799	
==>tems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29664	29799	
==>tems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29664	29799	
==>tems}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4924	5025	
==>e0."\n sub{my \$cn = \$_[0]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print $code;
    eval( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15857	15978	
==>}
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15857	15978	
==>}
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4191	4289	
==>ic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4191	4289	
==>ic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5916	6028	
==>ented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5904	6016	
==>ented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $ch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6042	6138	
==>, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10299	10395	
==>, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3224	3383	
==>ntifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3235	3394	
==>ntifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from match <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1544	1657	
==>ternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ( <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1544	1657	
==>ternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7926	8082	
==>arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argument <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7926	8082	
==>arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argument <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7926	8082	
==>arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argument <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4608	4708	
==>self->{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	228	325	
==>>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	228	325	
==>>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	228	325	
==>>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8306	8480	
==>tr( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4666	4840	
==>tr( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5515	5689	
==>tr( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unl <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1555	1670	
==>s read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2217	2332	
==>s read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1149	1252	
==>r \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1149	1252	
==>r \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1425	1545	
==>nction (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1425	1545	
==>nction (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1425	1545	
==>nction (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = ar <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7313	7428	
==>tart_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7313	7428	
==>tart_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1382	1479	
==>(in public), the current
time and the text they said is saved.

If the (optional) role parameter C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1382	1479	
==>(in public), the current
time and the text they said is saved.

If the (optional) role parameter C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3221	3401	
==>ertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3221	3401	
==>ertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3221	3401	
==>ertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	279	376	
==>Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeichen keine leeren Zeilen me <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	838	941	
==>e versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub registe <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	838	941	
==>e versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub registe <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3328	3427	
==>represents a date /without a time/.

Because it is just a date, it does not handle time zones or lea <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3328	3427	
==>represents a date /without a time/.

Because it is just a date, it does not handle time zones or lea <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12122	12221	
==>$datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12122	12221	
==>$datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2108	2227	
==>r_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	113	222	
==>r_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	113	222	
==>r_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $ <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	129	226	
==>" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, "S <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5031	5169	
==>.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Che <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5031	5169	
==>.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Che <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	120	209	
==>:Install::Scripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3719	3807	
==>6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7681	7836	
==>=> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7681	7836	
==>=> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7681	7836	
==>=> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_jun <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1931	2059	
==>p 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2932	3098	
==>nd we need to set it up for holding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9870	9974	
==>h 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	306	407	
==>h 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	306	407	
==>h 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26684	26872	
==>l => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26684	26872	
==>l => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26684	26872	
==>l => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1378	1489	
==>= check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4971	5106	
==>ompile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4798	4929	
==>ompile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5160	5262	
==>r();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<z <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5160	5262	
==>r();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	954	1070	
==>tamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files giv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	954	1070	
==>tamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files giv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	954	1070	
==>tamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files giv <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	310	405	
==>multi method exists ($index ) returns Object;
multi method exists (*@index ) returns List of Boo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4328	4440	
==>>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        comple <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4328	4440	
==>>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        comple <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	454	647	
==>"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	454	647	
==>"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($v <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2426	2520	
==>=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2426	2520	
==>=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the matc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	207	323	
==>,
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

sub env { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3022	3126	
==>more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7401	7504	
==>more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo->a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16284	16377	
==>ribute if provided (it defaults to empty if the parameter's
corresponding argument is not prov <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16284	16377	
==>ribute if provided (it defaults to empty if the parameter's
corresponding argument is not prov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12892	13005	
==>ue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12892	13005	
==>ue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12892	13005	
==>ue::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33550	33647	
==>, sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C<\w>), naln <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4553	4708	
==>}
                && $$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21420	21514	
==>me that is distinct from the other
attributes, though several attributes may store values of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25972	26066	
==>me that is distinct from the other
attributes, though several attributes may store values of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24605	24699	
==>me that is distinct from the other
attributes, though several attributes may store values of th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2789	2930	
==>rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2973	3114	
==>rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- p <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	650	738	
==>named Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	650	738	
==>named Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1472	1660	
==>or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4950	5137	
==>or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3880	4067	
==>or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5914	6027	
==>ar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5015	5124	
==>h @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5015	5124	
==>h @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5015	5124	
==>h @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31518	31619	
==>?{ ... })>.  Using the 'p' form is deprecated, but is
still allowed, so I delete its handler too.  You <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	343	443	
==>am @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8525	8622	
==>by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8525	8622	
==>by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8525	8622	
==>by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	517	630	
==>outine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	899	1001	
==>e unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	899	1001	
==>e unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	899	1001	
==>e unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred obj <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	371	514	
==>ss ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh. <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	371	514	
==>ss ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2979	3095	
==>ted,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLAS <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2979	3095	
==>ted,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLAS <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6510	6603	
==>dds a
C<really_passed> key which contains the boolean representing if the test truly
did pass. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6510	6603	
==>dds a
C<really_passed> key which contains the boolean representing if the test truly
did pass. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8707	8800	
==>dds a
C<really_passed> key which contains the boolean representing if the test truly
did pass. <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2323	2420	
==>($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns a <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2323	2420	
==>($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns a <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	197	284	
==>ARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------------------------- <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	197	284	
==>ARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12645	12793	
==>$match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12924	13072	
==>$match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2860	2985	
==>_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2860	2985	
==>_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15683	15807	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15683	15807	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15683	15807	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12633	12739	
==>upport for =$fh
class IO does Iter {
    method shift   () is primitive { self.readline() }
    method next <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18560	18774	
==>while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    })
                );
                return $nil::N <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3961	4072	
==>s
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3961	4072	
==>s
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3961	4072	
==>s
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26439	26559	
==>ckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1096	1202	
==>plemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1096	1202	
==>plemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1096	1202	
==>plemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1085	1192	
==>=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdir> changes directory to a dir.

Returns old cwd on s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	715	815	
==>p()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	715	815	
==>p()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	715	815	
==>p()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12081	12260	
==>oduct;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15558	15737	
==>oduct;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases tha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3491	3584	
==>active command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Sh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3491	3584	
==>active command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1384	1562	
==>-> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	616	723	
==>b slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	616	723	
==>b slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	616	723	
==>b slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "ve <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10750	10864	
==>ow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair->new( $a, $b ),
			),
		);
	},
	# ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1138	1236	
==>o a
package that is too close to the main namespace for your tastes, and
you want to rebless everyt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1138	1236	
==>o a
package that is too close to the main namespace for your tastes, and
you want to rebless everyt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1138	1236	
==>o a
package that is too close to the main namespace for your tastes, and
you want to rebless everyt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	785	888	
==>mmar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3545	3646	
==>oxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3545	3646	
==>oxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3545	3646	
==>oxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6771	6903	
==>apture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6771	6903	
==>apture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6536	6634	
==>...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either by <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6536	6634	
==>...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either by <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7901	8015	
==>dex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7889	8003	
==>dex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	312	413	
==>f_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	312	413	
==>f_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2566	2673	
==>ion( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_univ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2566	2673	
==>ion( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_univ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2205	2300	
==>em Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data ar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2205	2300	
==>em Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	60	175	
==>e Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	60	175	
==>e Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1456	1552	
==>e-time-bound values for them.

It includes the parameters as well as anything declared within

th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1395	1489	
==>e-time-bound values for them.
It includes the parameters as well as anything declared within
th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1275	1392	
==>bless \{ bool => \0 }, 'Pugs::Runtime::Match::Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $state <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36650	36746	
==>nvocant.  Another trivial case is where any any source relation has zero
tuples, in which case th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41199	41295	
==>nvocant.  Another trivial case is where any any source relation has zero
tuples, in which case th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40822	40918	
==>nvocant.  Another trivial case is where any any source relation has zero
tuples, in which case th <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3908	4020	
==>L $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    } <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4241	4353	
==>L $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3908	4020	
==>L $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4241	4353	
==>L $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1594	1735	
==>$class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1594	1735	
==>$class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17623	17718	
==>em $h.user_agent

This header field is used in request messages and contains information
about t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17623	17718	
==>em $h.user_agent

This header field is used in request messages and contains information
about t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5303	5416	
==>se these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5303	5416	
==>se these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5303	5416	
==>se these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19738	19842	
==>C \= 10, !. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1043	1156	
==>y @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1917	2030	
==>y @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1043	1156	
==>y @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1917	2030	
==>y @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1747	1859	
==>));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1747	1859	
==>));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	874	985	
==>)) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	874	985	
==>)) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	107	220	
==>JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	107	220	
==>JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = sh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	107	220	
==>JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = sh <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2349	2461	
==>ype => [$from => $to],
						struct_equiv => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "t <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1052	1164	
==>efore> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ... <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	794	906	
==>efore> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ... <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1052	1164	
==>efore> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ... <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	794	906	
==>efore> = %param<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ... <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14088	14186	
==>Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE A <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10315	10413	
==>Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE A <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14088	14186	
==>Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE A <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10315	10413	
==>Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	21	113	
==>die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	21	113	
==>die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	21	113	
==>die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9455	9562	
==>y;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9455	9562	
==>y;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35902	35992	
==>m C<get_set_member_combinations()>

This method returns an array ref having all combination <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35902	35992	
==>m C<get_set_member_combinations()>

This method returns an array ref having all combination <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4515	4618	
==>umbers are stringwise the same.
        # (all string operators have alphabetic names, so tr/a-z// is tr <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	640	733	
==>Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select( <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	640	733	
==>Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8702	8817	
==>MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOWN($tpDefault)." " : "";
    #$type." ".DOW <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5653	5756	
==>ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5653	5756	
==>ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5653	5756	
==>ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12841	12939	
==>f fields removed is returned.

Note that if you pass in multiple field names then it is generally n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12841	12939	
==>f fields removed is returned.

Note that if you pass in multiple field names then it is generally n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19958	20053	
==>eturn I<"uname:password"> as a single string value.

When used to set the header value, it expec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19958	20053	
==>eturn I<"uname:password"> as a single string value.

When used to set the header value, it expec <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2287	2442	
==>ig{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7459	7572	
==>Param}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7459	7572	
==>Param}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7459	7572	
==>Param}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPara <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1398	1493	
==>p markers for container

allocation, as well as the compile-time-bound values for them.

It incl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1338	1431	
==>p markers for container
allocation, as well as the compile-time-bound values for them.
It incl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1924	2015	
==>tr $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1924	2015	
==>tr $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3695	3809	
==>defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3695	3809	
==>defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3695	3809	
==>defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3	101	
==>X/Common/p6compiler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

# ************ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8911	9032	
==>meters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value:: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8911	9032	
==>meters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9147	9239	
==>rint "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9143	9235	
==>rint "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantifi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2536	2653	
==>l) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2536	2653	
==>l) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2536	2653	
==>l) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2982	3076	
==>ct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : "const";
		join("_", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17314	17475	
==>), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17314	17475	
==>), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17314	17475	
==>), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3337	3435	
==>"12th line\n\n\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9803	9948	
==>ocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9803	9948	
==>ocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3920	4014	
==>{ set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3920	4014	
==>{ set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a). <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6234	6324	
==>rray.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6677	6775	
==>ocument>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

Fo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6677	6775	
==>ocument>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

Fo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33998	34095	
==>are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> doe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38548	38645	
==>are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> doe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1340	1460	
==>\n" .
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0] = '' unless defined <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3845	3956	
==>self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3845	3956	
==>self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3845	3956	
==>self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $pa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1103	1226	
==>_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        print "\n*** $entry <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	45	142	
==>trict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15180	15277	
==>> <MultiplicativeExpression>
}
rule ShiftExpression :words {  # see 11.7
      <AdditiveExpression <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	45	142	
==>trict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	45	142	
==>trict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2948	3057	
==>rror($!), return;
    }

    return 1;
}

### these plural functions seem more confusion than helpful currentl <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15376	15480	
==>irectory information
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito boot image name
      "-n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7194	7293	
==>rray

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CON <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7194	7293	
==>rray

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CON <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7203	7359	
==>hin
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7203	7359	
==>hin
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7203	7359	
==>hin
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2333	2449	
==>str'))
        || confess "delimiter must be a string type";    
    return str->new(
        CORE::join $delimiter-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8147	8273	
==>n', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8147	8273	
==>n', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'R <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8593	8697	
==>, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurse <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8593	8697	
==>, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15184	15308	
==>+ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15184	15308	
==>+ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15184	15308	
==>+ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22581	22682	
==>ation not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this modul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13327	13482	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27084	27239	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13606	13761	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27363	27518	
==>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16475	16586	
==>e) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS messages that won't be <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7218	7329	
==>node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3822	3933	
==>node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4671	4782	
==>node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1280	1411	
==>n" .
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argument is undefined' unless defined \$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	163	263	
==>\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	163	263	
==>\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	163	263	
==>\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3492	3598	
==>imP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # impl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3492	3598	
==>imP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # impl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3492	3598	
==>imP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17671	17807	
==>o warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17671	17807	
==>o warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17671	17807	
==>o warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $lab <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27859	27956	
==>Perl.
However, you may want to have it run by a different executable, such as
a threading perl, or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3802	3916	
==>::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3802	3916	
==>::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3802	3916	
==>::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPS <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2660	2761	
==>Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:blank:]/ )
  {
    $matchObj->pos <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19445	19544	
==>me as a table.

The intended interface and use of this class in Perl programs is similar to
the inte <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23997	24096	
==>me as a table.

The intended interface and use of this class in Perl programs is similar to
the inte <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22513	22612	
==>me as a table.

The intended interface and use of this class in Perl programs is similar to
the inte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	253	381	
==>am_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	253	381	
==>am_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12314	12419	
==>self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12314	12419	
==>self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19836	19980	
==>'').
                   " TODO)")
            if $tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} test" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13842	13944	
==>lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13842	13944	
==>lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13842	13944	
==>lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2095	2203	
==>lit / /, $nameSplit[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5767	5860	
==>istic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5767	5860	
==>istic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5767	5860	
==>istic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2565	2667	
==>, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2565	2667	
==>, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5082	5173	
==>ted
interface provided by the C<LWP::UserAgent> module.

The following functions are provide <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5082	5173	
==>ted
interface provided by the C<LWP::UserAgent> module.

The following functions are provide <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3419	3536	
==>);
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1777	1894	
==>);
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2557	2674	
==>);
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixi <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	128	221	
==>e>Public HTML</title>
</head>
<script>
function openNewWindows() {
    var links = document.ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12342	12540	
==>date;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12342	12540	
==>date;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12342	12540	
==>date;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push <==
4	/Users/nnunley/pugs/util/testgraph.pl	87	180	
==>ump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1061	1173	
==>PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        )) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1061	1173	
==>PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        )) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1061	1173	
==>PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        )) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5437	5548	
==>%opt ]} \n";

    delete $opt{rule};
    $operator->add_op( \%opt );
    
    #push @subroutine_names, $opt{name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2426	2556	
==>class} = 1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    for <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2777	2879	
==>(@$extensions) {
        $self->load_extensions("$self->{prefix}/$self->{path}", $self);
    }

    for <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14695	14796	
==>e start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14695	14796	
==>e start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3687	3837	
==>, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3687	3837	
==>, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21378	21469	
==>>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21378	21469	
==>>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the <==
4	/Users/nnunley/pugs/util/func_refact.pl	384	477	
==>fy the initial set. -except <fname> introduces a function to
ignore, can iterate. -debug <fnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6034	6124	
==>OF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6034	6124	
==>OF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6034	6124	
==>OF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18014	18216	
==>elf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18014	18216	
==>elf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18014	18216	
==>elf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11514	11680	
==>rn (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11514	11680	
==>rn (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11514	11680	
==>rn (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	655	778	
==>32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4557	4697	
==>ype content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4557	4697	
==>ype content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8334	8432	
==>lete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8334	8432	
==>lete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13217	13337	
==>age Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13217	13337	
==>age Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13217	13337	
==>age Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	741	932	
==>statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# catego <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	741	932	
==>statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# catego <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3663	3829	
==>ontent;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3663	3829	
==>ontent;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   H <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6834	6928	
==>module is designed as a replacement (though not drop-in) for my old
F<YAPE::Regex> modules.

=h <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	124	216	
==>require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	113	203	
==>require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	80	170	
==>require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	309	428	
==>b __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	309	428	
==>b __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6539	6656	
==>eader_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bou <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6539	6656	
==>eader_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3384	3519	
==>ef $self->get_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int -> $bool;
                my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36071	36178	
==>fset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36071	36178	
==>fset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36071	36178	
==>fset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == leng <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13812	13913	
==>$initrd_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4878	4975	
==>de $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4878	4975	
==>de $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4878	4975	
==>de $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	127	233	
==>nction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	127	233	
==>nction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	127	233	
==>nction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3520	3616	
==>or (@t_dirs,$output_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3010	3109	
==>sage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [option <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3010	3109	
==>sage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [option <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3010	3109	
==>sage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [option <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21381	21472	
==>essm::ISA, __PACKAGE__;
  push @Regexp::Parser::suspend::ISA, __PACKAGE__;
  push @Regexp::P <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	348	479	
==>s expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	839	970	
==>s expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	348	479	
==>s expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	839	970	
==>s expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5464	5570	
==>b { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5464	5570	
==>b { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5464	5570	
==>b { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3202	3299	
==>eg;
  s/\}LET;/let_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	495	634	
==>],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SEL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	495	634	
==>],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SEL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	495	634	
==>],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SEL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1060	1194	
==>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1102	1236	
==>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pre <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3800	3928	
==>ay-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non break <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3800	3928	
==>ay-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non break <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	212	333	
==>_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	206	327	
==>_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	212	333	
==>_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	206	327	
==>_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14591	14717	
==>e 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14591	14717	
==>e 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14591	14717	
==>e 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1579	1694	
==>umber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1579	1694	
==>umber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1659	1774	
==>umber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	662	765	
==>$target, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5369	5493	
==>ass, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11024	11148	
==>ass, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2462	2551	
==>appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2462	2551	
==>appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	209	305	
==>od

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	209	305	
==>od

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2061	2155	
==>example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2061	2155	
==>example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2821	2924	
==>($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = ne <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25399	25494	
==>d returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29951	30046	
==>d returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28890	28985	
==>d returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	540	662	
==>substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	637	759	
==>substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ / <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9572	9680	
==>ne( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9572	9680	
==>ne( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1115	1217	
==>de;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1115	1217	
==>de;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> < <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16666	16761	
==>never outputs anything by itself to the user, but
rather returns its results for calling code to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16666	16761	
==>never outputs anything by itself to the user, but
rather returns its results for calling code to <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	895	1005	
==>ed, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1288	1398	
==>ed, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	895	1005	
==>ed, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1288	1398	
==>ed, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16964	17061	
==>bject, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compar <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16964	17061	
==>bject, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compar <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1829	1922	
==>de->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

We <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1829	1922	
==>de->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

We <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	925	1038	
==>base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	925	1038	
==>base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	925	1038	
==>base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8138	8271	
==>";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8138	8271	
==>";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8138	8271	
==>";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9308	9421	
==>$S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quan <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13866	13982	
==>rl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13860	13976	
==>rl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4178	4269	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4178	4269	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

= <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1056	1182	
==>.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4295	4421	
==>.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1056	1182	
==>.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4295	4421	
==>.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_is_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6168	6292	
==>}
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6168	6292	
==>}
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6168	6292	
==>}
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13436	13537	
==>_}} qw(CDPATH IFS ENV BASH_ENV);
	local @ENV{@keys} = ();
	# Untaint, plus take out . and empty string <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1993	2109	
==>{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1993	2109	
==>{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{cap <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6442	6555	
==>e_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6442	6555	
==>e_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23586	23691	
==>> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTI <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22359	22464	
==>> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23586	23691	
==>> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22359	22464	
==>> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7140	7259	
==>l element of
        # the meta file
        push @index_files, file($path.'.index');
        push @index_files, map { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17332	17447	
==>Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17332	17447	
==>Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17332	17447	
==>Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12263	12378	
==>en3 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4587	4689	
==>type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4587	4689	
==>type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4587	4689	
==>type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1503	1627	
==>@names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\c[A;B] in character class") if @names > 1;
        return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6951	7046	
==>tcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6951	7046	
==>tcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6951	7046	
==>tcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5655	5782	
==>s $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6208	6335	
==>s $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5848	5975	
==>s $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6401	6528	
==>s $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10911	11006	
==>-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10911	11006	
==>-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	153	248	
==>:Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	153	248	
==>:Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4996	5119	
==>tubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4996	5119	
==>tubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4996	5119	
==>tubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_c <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	221	319	
==>n.p5 add apples apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21490	21586	
==>0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21490	21586	
==>0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21490	21586	
==>0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	306	423	
==>EY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	797	914	
==>EY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, wh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	306	423	
==>EY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, wh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	797	914	
==>EY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, wh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4562	4690	
==>m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4562	4690	
==>m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	55	159	
==>t;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	52	150	
==>t;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4164	4315	
==>rn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4164	4315	
==>rn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4164	4315	
==>rn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatch <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8845	8981	
==>e_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub c <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4641	4747	
==>!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4641	4747	
==>!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7114	7205	
==>!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7114	7205	
==>!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channe <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	452	552	
==>Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPY <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	452	552	
==>Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPY <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11735	11830	
==>, &infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently n <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11793	11888	
==>, &infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35816	35908	
==>heading as
the invocant Relation::Example, and returns a new Relation::Example that has the s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37848	37940	
==>heading as the
invocant Relation::Example, and returns a new Relation::Example that has the s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2990	3118	
==>: " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2990	3118	
==>: " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2990	3118	
==>: " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35221	35316	
==>nherit visual()Z and walk()Z<>.

However, we need to define our own qr() method, because we don' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1368	1489	
==>))
        || confess "Index must be a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	569	660	
==>> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	569	660	
==>> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	569	660	
==>> '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21201	21318	
==>" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    no strict 'refs';
    &$look($mn,$name);
}
sub p6_setq  { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1881	1974	
==>inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1881	1974	
==>inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1881	1974	
==>inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  J <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1182	1284	
==>rn Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method str <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1182	1284	
==>rn Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method str <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3187	3283	
==>ion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3187	3283	
==>ion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3759	3904	
==>ge to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3759	3904	
==>ge to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1008	1110	
==>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content- <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1008	1110	
==>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5569	5690	
==>st if it's a dir -> dir
    ### move. Which means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	451	562	
==>?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	451	562	
==>?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	451	562	
==>?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2390	2493	
==>f, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2390	2493	
==>f, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2390	2493	
==>f, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the in <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	742	842	
==>Install::Base::FakeAdmin->new;
}

sub is_admin {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13605	13694	
==>ans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13605	13694	
==>ans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13605	13694	
==>ans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	158	279	
==>ack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	158	279	
==>ack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	158	279	
==>ack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8743	8847	
==>X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <Doub <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2891	3073	
==>art_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3145	3327	
==>art_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2891	3073	
==>art_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3145	3327	
==>art_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    } <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1888	2029	
==>rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implement <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1888	2029	
==>rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implement <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10125	10220	
==>he constructor arguments are passed to the C<header> method which is
described below.

=item $h- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10125	10220	
==>he constructor arguments are passed to the C<header> method which is
described below.

=item $h- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	458	654	
==>->compile( '
            [
                [ \:\: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PAC <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3749	3846	
==>he test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3749	3846	
==>he test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3829	3926	
==>he test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )> <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	98	205	
==>$name";
}

=kwid

= NAME

Sample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2289	2388	
==>("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2289	2388	
==>("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2289	2388	
==>("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{P <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1719	1816	
==>alue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1719	1816	
==>alue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl:: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13746	13842	
==>is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13804	13900	
==>is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3945	4056	
==>ams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3945	4056	
==>ams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3945	4056	
==>ams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31918	32015	
==>The capture group related to this object (like for OPEN and back
references).

=item off

The flag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28625	28791	
==>, ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28625	28791	
==>, ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28625	28791	
==>, ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($ite <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	265	360	
==>_half_up and
# round_half_down

}

our Int multi Num::round_half_up (Num $x, int $symmetrical? = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2275	2385	
==>) + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $positi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1003	1093	
==>_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1003	1093	
==>_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1003	1093	
==>_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::do <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	201	306	
==>t perhaps to express sub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt Pos Pad Sym Stmts P <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27881	27979	
==>es as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32433	32531	
==>es as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31525	31623	
==>es as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1829	1946	
==>s = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1829	1946	
==>s = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; } <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9793	9895	
==>ngs is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9793	9895	
==>ngs is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1509	1709	
==>, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        i <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1509	1709	
==>, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        i <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	768	887	
==>ing
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	768	887	
==>ing
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4004	4157	
==>)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4004	4157	
==>)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless de <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4530	4675	
==>)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4530	4675	
==>)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1029	1164	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1040	1175	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $co <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10860	10984	
==>plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method de <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10860	10984	
==>plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method de <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	487	582	
==>ort { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	487	582	
==>ort { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1727	1823	
==>head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
speci <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1727	1823	
==>head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
speci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17912	18007	
==>AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17912	18007	
==>AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12578	12729	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12578	12729	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12578	12729	
==>shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2447	2577	
==>'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _('$.diagno <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2321	2463	
==>ation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2332	2474	
==>ation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6725	6847	
==>'s wait status
    max         Number of individual tests
    failed      Number which failed
    percent     Percentage of <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	89	184	
==>nctions called when regexps are compiled and
# applied) to permit alternate regexp engines to be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	371	503	
==>shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13376	13475	
==>urn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13376	13475	
==>urn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13376	13475	
==>urn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1112	1212	
==>a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1112	1212	
==>a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1112	1212	
==>a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", " <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28169	28261	
==>s method returns this Relation::Example's heading.

=item C<body () returns Set of Mapping(St <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8161	8502	
==>elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8161	8502	
==>elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	883	999	
==>ethod ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	883	999	
==>ethod ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10317	10427	
==>$var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10317	10427	
==>$var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20137	20230	
==>method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Sam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20137	20230	
==>method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4669	4769	
==>diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4669	4769	
==>diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pip <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4669	4769	
==>diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pip <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	954	1053	
==>nfig.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^(.*?)\s*?=\s*(.*)$/) {
			@config.pu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24804	24904	
==>ODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23568	23668	
==>ODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24804	24904	
==>ODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23568	23668	
==>ODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If you s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1975	2088	
==>s->[1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10272	10380	
==>for start of this match
    to    - string pointer for next match (end+1)
    match - positional submatches <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10530	10625	
==>ous => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a r <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10530	10625	
==>ous => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a r <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	957	1060	
==>eturn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = & <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	957	1060	
==>eturn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = & <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3597	3695	
==>>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3597	3695	
==>>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3303	3407	
==>er.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Seba <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3303	3407	
==>er.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Seba <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17639	17732	
==>:IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOP <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17639	17732	
==>:IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7460	7586	
==>node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7460	7586	
==>node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7460	7586	
==>node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20453	20550	
==>ll the languages your programs do or
might have, and lets you arrange the list in order of prefere <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20453	20550	
==>ll the languages your programs do or
might have, and lets you arrange the list in order of prefere <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15030	15121	
==>called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15030	15121	
==>called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple inte <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	657	833	
==>:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	657	833	
==>:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	494	600	
==>m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	494	600	
==>m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	824	921	
==>('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	824	921	
==>('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	824	921	
==>('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1464	1563	
==>t-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perl <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1464	1563	
==>t-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11973	12069	
==>anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4616	4712	
==>anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5828	5948	
==>=> chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(95 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5828	5948	
==>=> chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(95 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24969	25063	
==>egcomp() supplies a regmust only if the r.e. contains something
 * potentially expensive (at pr <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12785	12870	
==>etails" class="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expande <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7668	7812	
==>il', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_ty <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7668	7812	
==>il', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15317	15422	
==>tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the fir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31096	31195	
==>as created.

=item flags

The flags for the object.

=back

The following attributes may also be set <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2800	2910	
==>if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2800	2910	
==>if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26572	26666	
==>y or equal to
the invocant Relation's header, in which case it returns the identity-one
Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31124	31218	
==>y or equal to
the invocant Relation's header, in which case it returns the identity-one
Relatio <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2252	2378	
==>Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine acting like a method
    Macro       Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4037	4138	
==>s=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4037	4138	
==>s=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4037	4138	
==>s=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	220	334	
==>ring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENT <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	220	334	
==>ring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENT <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	220	334	
==>ring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENT <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	220	334	
==>ring',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28432	28542	
==>to
extract them.  This method is also defined as the implicit handler when
coercing this object to a string.

= <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35788	35898	
==>to
extract them.  This method is also defined as the implicit handler when
coercing this object to a string.

= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28432	28542	
==>to
extract them.  This method is also defined as the implicit handler when
coercing this object to a string.

= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35788	35898	
==>to
extract them.  This method is also defined as the implicit handler when
coercing this object to a string.

= <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1904	2008	
==>se base 'Blondie::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2491	2591	
==>d $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2491	2591	
==>d $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2491	2591	
==>d $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	623	808	
==>}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	623	808	
==>}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1561	1705	
==>eMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1561	1705	
==>eMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1561	1705	
==>eMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	388	506	
==>Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circumfix:< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21700	21797	
==>e received from the server (unmodified).

=item C<server>

The server the line was sent from. This <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20581	20678	
==>e received from the server (unmodified).

=item C<server>

The server the line was sent from. This <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21700	21797	
==>e received from the server (unmodified).

=item C<server>

The server the line was sent from. This <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20581	20678	
==>e received from the server (unmodified).

=item C<server>

The server the line was sent from. This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5025	5149	
==>d in 
            $self->add_method($method_name => $role->get_method($method_name));
        }
    }
    # this is our does( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	618	720	
==>}

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	618	720	
==>}

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	618	720	
==>}

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25298	25403	
==>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24062	24167	
==>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25298	25403	
==>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24062	24167	
==>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5982	6122	
==>lf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5982	6122	
==>lf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5982	6122	
==>lf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_insta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1511	1682	
==>r -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parse <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1511	1682	
==>r -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parse <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1684	1797	
==>pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->license_from($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1335	1444	
==>_build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1335	1444	
==>_build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1335	1444	
==>_build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-class <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	305	432	
==>s export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	305	432	
==>s export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17003	17100	
==>()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numeric <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17003	17100	
==>()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numeric <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2093	2216	
==>le) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2071	2194	
==>le) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2979	3084	
==>nto a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2979	3084	
==>nto a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2387	2506	
==>ush @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that wil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2387	2506	
==>ush @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that wil <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	20	123	
==>use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	20	123	
==>use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	707	859	
==>>compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3778	3930	
==>>compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	707	859	
==>>compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3778	3930	
==>>compile( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40271	40373	
==>this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40271	40373	
==>this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40271	40373	
==>this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3965	4064	
==>ol, $x, taking the 10 off the parameter stack and binding
it to $x. Then the app is reduced. First i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8884	9004	
==>push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8884	9004	
==>push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8660	8761	
==>class = $params->[0]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($co <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6922	7077	
==>_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6922	7077	
==>_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4223	4317	
==>used as an array reference, the match object returns positional
captures as match objects.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4223	4317	
==>used as an array reference, the match object returns positional
captures as match objects.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8685	8787	
==>0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$fro <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	418	520	
==>0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8685	8787	
==>0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8685	8787	
==>0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$fro <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	280	382	
==>ler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been changed to c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1194	1295	
==>Inv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PAp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1194	1295	
==>Inv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PAp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1194	1295	
==>Inv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PAp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7100	7219	
==>"rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "ima <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7100	7219	
==>"rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "ima <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18336	18445	
==>>add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14757	14866	
==>>add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1331	1429	
==>pressed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-international.org/pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6365	6454	
==>odule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6365	6454	
==>odule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6365	6454	
==>odule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7797	7902	
==>@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11035	11120	
==>--------------------------------------------------------------

What if Roles could pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11035	11120	
==>--------------------------------------------------------------

What if Roles could pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11035	11120	
==>--------------------------------------------------------------

What if Roles could pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3942	4092	
==>r my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3942	4092	
==>r my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3942	4092	
==>r my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Method <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5902	6042	
==>$5,
        do { 
          my $str = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6840	6942	
==>d::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4192	4294	
==>d::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6840	6942	
==>d::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4192	4294	
==>d::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	934	1070	
==>};

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@"] );
        return;
    }

    retur <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4567	4688	
==>thod splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @hea <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4567	4688	
==>thod splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @hea <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2309	2408	
==>lutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who created the HTML-ified ec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12920	13098	
==>>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12920	13098	
==>>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12920	13098	
==>>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2125	2209	
==>Prolog".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.html <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4625	4805	
==>: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4625	4805	
==>: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	794	935	
==>nt-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	794	935	
==>nt-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9443	9638	
==>ted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14987	15182	
==>ted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9443	9638	
==>ted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14981	15176	
==>ted";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21027	21123	
==>ms.  Your package or program can be distributed with one or more
resource files containing text f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21027	21123	
==>ms.  Your package or program can be distributed with one or more
resource files containing text f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	601	691	
==>il::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::U <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	601	691	
==>il::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::U <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1204	1327	
==>ex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1204	1327	
==>ex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5534	5632	
==>rl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5534	5632	
==>rl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9862	9972	
==>@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9862	9972	
==>@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9862	9972	
==>@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1448	1541	
==>array_alias>|<external_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <const <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6834	6999	
==>tch.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6834	6999	
==>tch.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3667	3761	
==>"path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handler <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3667	3761	
==>"path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handler <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5061	5169	
==>rs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5061	5169	
==>rs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	916	1008	
==>me::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	916	1008	
==>me::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14336	14500	
==>$method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to av <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14336	14500	
==>$method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to av <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14336	14500	
==>$method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to av <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9226	9346	
==>le', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9284	9404	
==>le', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26643	26738	
==>the identity-one
Relation or the invocant Relation respectively.  This method will fail if
any m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31195	31290	
==>the identity-one
Relation or the invocant Relation respectively.  This method will fail if
any m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2404	2526	
==>rovide any alternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX this should probably be done in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9904	10003	
==>ntation detail 
    # for the methods described below.
    # --------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9904	10003	
==>ntation detail 
    # for the methods described below.
    # --------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9904	10003	
==>ntation detail 
    # for the methods described below.
    # --------------------------------------- <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2887	3104	
==>ay

 multi sub Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	381	512	
==>!! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	381	512	
==>!! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6709	6814	
==>jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return "pir <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8954	9076	
==>at};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures crea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8942	9064	
==>at};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures crea <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	345	445	
==>ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	345	445	
==>ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6459	6595	
==>);
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6459	6595	
==>);
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12745	12878	
==>{
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_ke <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12745	12878	
==>{
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_ke <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10015	10153	
==>elf.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(), <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2072	2204	
==>elf.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(), <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2072	2204	
==>elf.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3485	3586	
==>thod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3485	3586	
==>thod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3485	3586	
==>thod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37007	37103	
==>s: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3578	3683	
==>ix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operato <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3578	3683	
==>ix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operato <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4453	4556	
==>ix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operato <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4453	4556	
==>ix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operato <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12829	12999	
==>ule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12823	12993	
==>ule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                " <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	339	442	
==>ail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to variou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	339	442	
==>ail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to variou <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	135	254	
==>ject::Accessor';

=head2 $obj = JIB::Dependency->new_from_struct( struct => STRUCT )

=cut

sub new_from_struct {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2389	2482	
==>$.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2389	2482	
==>$.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11436	11532	
==>ributes is identical; they do not
interact with the outside environment at all.

A Document objec <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11436	11532	
==>ributes is identical; they do not
interact with the outside environment at all.

A Document objec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1248	1341	
==>CRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PR <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1248	1341	
==>CRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25304	25479	
==>:Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25304	25479	
==>:Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25304	25479	
==>:Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1606	1720	
==>'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2667	2771	
==>or optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2667	2771	
==>or optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2667	2771	
==>or optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TOD <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	286	421	
==>s::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2930	3030	
==>0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2930	3030	
==>0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2930	3030	
==>0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1252	1356	
==>it(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1252	1356	
==>it(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1252	1356	
==>it(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return St <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50832	50931	
==>e('$identifier' => $e->get('$self:')->get_attr(symbol->new('$:name')));
                $e->get('$se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3983	4115	
==>xity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3983	4115	
==>xity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6849	6971	
==>\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6849	6971	
==>\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6849	6971	
==>\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5276	5371	
==>->new;
is($iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1430	1588	
==>item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1430	1588	
==>item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_e <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	785	902	
==>g time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'c <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	785	902	
==>g time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22374	22476	
==>nless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22653	22755	
==>nless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14244	14382	
==>d($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4313	4435	
==>d($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4313	4435	
==>d($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4313	4435	
==>d($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20445	20551	
==>code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	557	660	
==>type'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactore <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	557	660	
==>type'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactore <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	557	660	
==>type'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactore <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13393	13549	
==>ing = substr($string,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3550	3690	
==>ing = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3550	3690	
==>ing = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3550	3690	
==>ing = substr($string,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14545	14669	
==>@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'und <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14545	14669	
==>@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'und <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14545	14669	
==>@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'und <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6817	6934	
==>hift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6817	6934	
==>hift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2196	2292	
==>set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2196	2292	
==>set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4008	4116	
==>ssion';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compile <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4008	4116	
==>ssion';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5455	5557	
==>L.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5265	5365	
==>L.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2149	2261	
==>ires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4410	4512	
==>$self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4410	4512	
==>$self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4410	4512	
==>$self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6869	7123	
==>sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6869	7123	
==>sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6869	7123	
==>sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = ' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7240	7331	
==>into whatever it is combined with (except instantiated variables, which delegate. see below) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2226	2322	
==>s primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2226	2322	
==>s primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2226	2322	
==>s primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12294	12422	
==>st (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12294	12422	
==>st (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20332	20449	
==>hod DESTROYALL (opaque $self:) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKMETH($dis <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21907	22003	
==>rnals::compile_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enable this when Parse-YA <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6111	6214	
==>se -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2818	2919	
==>e "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2818	2919	
==>e "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2818	2919	
==>e "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1357	1459	
==>s hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1357	1459	
==>s hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1357	1459	
==>s hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33749	33840	
==>$transformer!) returns Relation::Example>

This method is a short-hand or alternative for th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2618	2715	
==>")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2618	2715	
==>")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2618	2715	
==>")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34310	34399	
==>[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, digit (C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10482	10634	
==>.'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10482	10634	
==>.'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10482	10634	
==>.'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4263	4372	
==>x Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4263	4372	
==>x Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1982	2087	
==>0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1982	2087	
==>0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19478	19578	
==>rface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24030	24130	
==>rface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22546	22646	
==>rface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Rela <==
4	/Users/nnunley/pugs/util/package-osx.pl	7042	7139	
==>erl5::Docfinder.3
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3pm
        /usr/local/man/m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3859	3967	
==>he meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/$control -C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	943	1040	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	943	1040	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	943	1040	
==>return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      orig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	779	869	
==>ss, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	779	869	
==>ss, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	779	869	
==>ss, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11202	11376	
==>a( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not au <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11202	11376	
==>a( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not au <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11202	11376	
==>a( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not au <==
4	/Users/nnunley/pugs/util/testgraph.pl	1841	1959	
==>y $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3204	3299	
==>&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3204	3299	
==>&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3204	3299	
==>&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2072	2173	
==>S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2072	2173	
==>S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2072	2173	
==>S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", " <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6119	6214	
==>rn $o->mk_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1866	2049	
==>_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . '"' 
        if exists $n->{double_quoted};
            
    return '\'' . $n->{s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4842	4957	
==>shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4842	4957	
==>shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4842	4957	
==>shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21708	21908	
==>6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21708	21908	
==>6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21708	21908	
==>6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->u <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18551	18657	
==>mespace [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18319	18414	
==>>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12095	12190	
==>nt object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18319	18414	
==>>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12095	12190	
==>nt object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2834	2949	
==>ture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3027	3142	
==>ture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12885	12997	
==>blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12885	12997	
==>blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12885	12997	
==>blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY') <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7022	7128	
==>er mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index after must b <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4648	4797	
==>fier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anythi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4648	4797	
==>fier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anythi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7178	7287	
==>EST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7178	7287	
==>EST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6384	6527	
==>g
                    # leading name components and leading dots.  When this
                    # results in a domain with no leading dot, it i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6384	6527	
==>g
                    # leading name components and leading dots.  When this
                    # results in a domain with no leading dot, it i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	74	180	
==>SIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.ne <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	74	180	
==>SIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3374	3480	
==>p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3374	3480	
==>p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3374	3480	
==>p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	394	495	
==>nID() { return $SID; }

sub SessionSet($variable, $value) {
    %Session{$variable} = $value;
}

sub S <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	459	619	
==>SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $nam <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	459	619	
==>SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $nam <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	186	290	
==>';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeG <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	186	290	
==>';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeG <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2007	2206	
==>{ Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    m <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2007	2206	
==>{ Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    m <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2617	2726	
==>$out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2617	2726	
==>$out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	397	499	
==>>compiled(sub {
       	my $grammar = shift;
	my $tree;
	print Dumper($rule->($grammar)->( $_[0], undef <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25419	25515	
==>ment of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29971	30067	
==>ment of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28910	29006	
==>ment of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) return <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5727	6035	
==>)) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7489	7797	
==>)) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3778	3878	
==>r/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5680	5780	
==>r/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is( <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	296	394	
==>pter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is ex <==
4	/Users/nnunley/pugs/util/drift.pl	802	900	
==>./DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8460	8560	
==>, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8460	8560	
==>, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8460	8560	
==>, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECU <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10918	11011	
==>d_method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{\$__f->(\@_)}})));") <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4698	4826	
==>me heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4698	4826	
==>me heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24718	24833	
==>{
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21139	21254	
==>{
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11859	11982	
==>ule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12138	12261	
==>ule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" ) <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1122	1237	
==>l::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            i <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1122	1237	
==>l::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5378	5491	
==>y}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5378	5491	
==>y}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5378	5491	
==>y}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2438	2530	
==>m * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=item * L<Pugs::Emit <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6295	6392	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8363	8460	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6295	6392	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8363	8460	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2455	2584	
==>. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2455	2584	
==>. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15472	15585	
==>ate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!buck <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15472	15585	
==>ate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!buck <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2549	2671	
==>" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RES <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2766	2888	
==>" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RES <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37111	37204	
==>) to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $module <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37111	37204	
==>) to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $module <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3345	3465	
==>};
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3345	3465	
==>};
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	983	1076	
==>:($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	983	1076	
==>:($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4363	4474	
==>self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4363	4474	
==>self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4363	4474	
==>self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2595	2703	
==>n $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2595	2703	
==>n $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "" <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15712	15806	
==>ing the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller in <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15770	15864	
==>ing the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9759	9880	
==>e used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no pa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9759	9880	
==>e used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	925	1038	
==>by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-refere <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	925	1038	
==>by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-refere <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24820	24931	
==>er
object's most important attributes:

  # access to the regex
    # reference to the regex string
    sub Rx : <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6571	6665	
==>nting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrid <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6571	6665	
==>nting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8768	8862	
==>nting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrid <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20467	20581	
==>init
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1374	1471	
==>warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1374	1471	
==>warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1374	1471	
==>warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl| <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12881	13103	
==>sh->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12881	13103	
==>sh->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12881	13103	
==>sh->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ke <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27730	27819	
==>rst");
is(t($length_and_first_p), "(int × int)", ":t length_and_first [1]");
is(t($length <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	361	553	
==>nized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.ch <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	361	553	
==>nized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8962	9132	
==>NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8962	9132	
==>NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	978	1092	
==>() {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	978	1092	
==>() {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8447	8555	
==>m_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8505	8613	
==>m_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Te <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19372	19560	
==>->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the top?
                # this is what you ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1286	1384	
==>cation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1286	1384	
==>cation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1286	1384	
==>cation of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many el <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1837	1968	
==>ach %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2580	2711	
==>ach %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1837	1968	
==>ach %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2568	2699	
==>ach %$n;
    # XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5539	5648	
==>$p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set:: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5539	5648	
==>$p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15142	15239	
==>span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creat <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15142	15239	
==>span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creat <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20303	20454	
==>),
					),
					then => ide("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1392	1485	
==>, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1392	1485	
==>, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1392	1485	
==>, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", [ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38567	38707	
==>et_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	419	524	
==>%params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	419	524	
==>%params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	419	524	
==>%params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2995	3122	
==>(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2995	3122	
==>(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2995	3122	
==>(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      wh <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1606	1707	
==>oaches to rules, so this
file may or may not go anywhere.  The plan as of this moment is to
continue c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6867	6980	
==>ion's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation::Example.new(
        he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1804	1898	
==>and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1804	1898	
==>and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1804	1898	
==>and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1537	1645	
==>UM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=>{}] ,
    ['STM <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	238	337	
==>s tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	238	337	
==>s tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	238	337	
==>s tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/') <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2341	2450	
==>>catfile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Could not remove metadir from '$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3160	3248	
==>--js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3160	3248	
==>--js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3160	3248	
==>--js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20582	20680	
==>g.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20582	20680	
==>g.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22800	22889	
==>tta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22800	22889	
==>tta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interf <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8232	8340	
==>t @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7362	7470	
==>t @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members } <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8232	8340	
==>t @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members } <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7362	7470	
==>t @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(set @b).members } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4622	4721	
==>:items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4622	4721	
==>:items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4622	4721	
==>:items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." - <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3393	3485	
==>gorian;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregorian::du <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2004	2112	
==>$matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1828	1932	
==>sion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1828	1932	
==>sion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1828	1932	
==>sion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22048	22173	
==>'(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18469	18594	
==>'(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20698	20794	
==>sest to your
preference.  Presumably the messages in these files are looked up by the
program usi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20698	20794	
==>sest to your
preference.  Presumably the messages in these files are looked up by the
program usi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11899	12063	
==>}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see en <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11893	12057	
==>}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see en <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6896	7059	
==>}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see en <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6896	7059	
==>}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see en <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4854	5029	
==>w 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6616	6791	
==>w 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	437	543	
==>>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	437	543	
==>>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19020	19123	
==>ion:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $has <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19020	19123	
==>ion:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $has <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10736	10837	
==>ETHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10736	10837	
==>ETHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13717	13847	
==>($$) = { generic_in($$) }
# vals are assumed to know their own type (see package val above)
val: type($$) = { $.t }

# combs (appli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3519	3625	
==>p { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3519	3625	
==>p { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3519	3625	
==>p { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6325	6458	
==>val $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11159	11283	
==>proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11159	11283	
==>proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11159	11283	
==>proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	107	203	
==>te::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Function <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	107	203	
==>te::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Function <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4356	4470	
==>{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4410	4524	
==>{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4356	4470	
==>{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4410	4524	
==>{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	213	322	
==>RGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TOD <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	419	528	
==>RGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TOD <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31076	31170	
==>onsists of the two parts concatenated without any delimiter.  This means,
for example, that the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31076	31170	
==>onsists of the two parts concatenated without any delimiter.  This means,
for example, that the <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	897	1060	
==>ix:</>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                Ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	77	178	
==>Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	77	178	
==>Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	77	178	
==>Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20830	20921	
==>piled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20830	20921	
==>piled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6416	6521	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6416	6521	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6416	6521	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8466	8620	
==>ell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8466	8620	
==>ell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8466	8620	
==>ell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8300	8413	
==>llegal octal digit '%s' ignored", $1) if $o =~ /([^0-7;])/;

      if ($cc) {
        $S->error(0, "\\0[A;B] in ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8938	9092	
==>'', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2707	2851	
==>rend,strbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12823	12945	
==>'', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12823	12945	
==>'', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9083	9180	
==>=> chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9083	9180	
==>=> chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	933	1026	
==>pected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	933	1026	
==>pected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14810	14924	
==>mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14810	14924	
==>mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21277	21369	
==>p::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21422	21517	
==>{...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event nam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20303	20398	
==>{...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event nam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21422	21517	
==>{...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event nam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20303	20398	
==>{...})>

Adds a callback to be executed when the bot receives a corresponding message.
Event nam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	947	1054	
==>turn bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $left->type->t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14066	14165	
==>->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14066	14165	
==>->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14066	14165	
==>->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3040	3228	
==>{ 
                defined $opt->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $l <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2194	2293	
==>args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($fil <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2172	2271	
==>args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($fil <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6427	6522	
==>oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_PO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4284	4434	
==>$match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4825	4975	
==>$match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22774	22866	
==>>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22774	22866	
==>>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4541	4700	
==>idex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                ma <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4541	4700	
==>idex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                ma <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2022	2118	
==>header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.def <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2022	2118	
==>header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4320	4449	
==>s.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4320	4449	
==>s.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4320	4449	
==>s.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14709	14837	
==>X::cap->[$idx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7337	7443	
==>nd   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7337	7443	
==>nd   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	658	755	
==>gs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.toda <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	658	755	
==>gs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.toda <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14427	14546	
==>LL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9512	9604	
==>));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9512	9604	
==>));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9512	9604	
==>));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1724	1825	
==>er(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1724	1825	
==>er(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1724	1825	
==>er(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Numb <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1505	1609	
==>unctional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, sinc <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1505	1609	
==>unctional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, sinc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3352	3443	
==>hrough the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3352	3443	
==>hrough the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible as <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	363	472	
==>IL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	363	472	
==>IL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	363	472	
==>IL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.ref <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5387	5476	
==>eckHead($head);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGolfS <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6322	6417	
==>work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6322	6417	
==>work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6322	6417	
==>work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37417	37508	
==>hods' => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:attributes')      => att <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2334	2432	
==>iv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struct);
}

sub can_reduce {
	my $self = sh <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34843	34938	
==>tch any tuples of C<$other> along
their common attributes.  This method will fail if the heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39393	39488	
==>tch any tuples of C<$other> along
their common attributes.  This method will fail if the heading <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38926	39021	
==>tch any tuples of C<$other> along
their common attributes.  This method will fail if the heading <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3696	3843	
==>~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5013	5160	
==>~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3696	3843	
==>~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5001	5148	
==>~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5785	6007	
==>ends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we f <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6249	6471	
==>ends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24093	24191	
==>ge into the program code itself, so it then becomes a version of that
language.  By contrast, Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24093	24191	
==>ge into the program code itself, so it then becomes a version of that
language.  By contrast, Local <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5994	6096	
==>ure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5994	6096	
==>ure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8776	8873	
==>ed automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Voi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8776	8873	
==>ed automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Voi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	184	293	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	184	293	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	184	293	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24614	24718	
==>c.

 * regmlen      length of regmust string
 *  [regmlen not used currently]

Confined to regcomp/regexe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1463	1563	
==>_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1463	1563	
==>_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1463	1563	
==>_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6203	6337	
==>ection, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreat <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6203	6337	
==>ection, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreat <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3488	3597	
==>=~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub sp {
  my <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	608	716	
==>:Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { native($_) } (
		{
			ari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17390	17488	
==>level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17390	17488	
==>level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17390	17488	
==>level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt> <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14636	14733	
==>s that would have
been iterated.

The lvalue form of C<keys> is not longer supported. Use the C<.b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8533	8721	
==>m == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8533	8721	
==>m == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8533	8721	
==>m == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $k <==
4	/Users/nnunley/pugs/util/config_h.pl	1844	1991	
==>v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1199	1315	
==>f($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1199	1315	
==>f($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub exp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1199	1315	
==>f($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	184	290	
==>:Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is cop <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22175	22271	
==>he message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21056	21152	
==>he message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22175	22271	
==>he message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21056	21152	
==>he message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2741	2845	
==>V[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2741	2845	
==>V[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2741	2845	
==>V[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", " <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21944	22047	
==>::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15649	15786	
==>fix" );
}

sub ternary {
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7390	7520	
==>lass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7390	7520	
==>lass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7390	7520	
==>lass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3984	4083	
==>ine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	295	392	
==>modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	295	392	
==>modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	295	392	
==>modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &J <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1170	1285	
==>shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DynamicScoping - a base c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	37	124	
==>rnet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	37	124	
==>rnet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	37	124	
==>rnet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2213	2315	
==>) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2213	2315	
==>) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38291	38386	
==>Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38291	38386	
==>Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text mo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1256	1379	
==>tatus::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1256	1379	
==>tatus::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Con <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4920	5043	
==>AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4920	5043	
==>AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not al <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6791	6901	
==>mber (Nd)"
      <Nd>
}
rule UnicodeConnectorPunctuation {  # see 7.6
      # any character in the Unicode cate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2792	2887	
==>class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2792	2887	
==>class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2792	2887	
==>class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9570	9687	
==>as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9570	9687	
==>as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5158	5260	
==>str();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5158	5260	
==>str();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5410	5516	
==>ring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5410	5516	
==>ring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7607	7713	
==>ring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diag <==
4	/Users/nnunley/pugs/util/testgraph.pl	651	743	
==>rix->new($tap, Dump($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4217	4362	
==>',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4217	4362	
==>',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13075	13172	
==>' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13075	13172	
==>' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10473	10613	
==>};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1516	1629	
==>ore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1516	1629	
==>ore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1516	1629	
==>ore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance method <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6153	6249	
==>one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5283	5379	
==>one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6153	6249	
==>one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5283	5379	
==>one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one. <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10006	10105	
==>x'> <HexDigit> <HexDigit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	580	672	
==>lasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	580	672	
==>lasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	580	672	
==>lasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	726	832	
==>in is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time() <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12609	12705	
==>py-on-write and such complications, could be a bear.

  A source filter approach, while likely fl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1181	1269	
==>RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1401	1489	
==>RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1234	1354	
==>mote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1234	1354	
==>mote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3132	3229	
==>alled in List context,
it will return a list of values.  Otherwise, it will return the first value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3132	3229	
==>alled in List context,
it will return a list of values.  Otherwise, it will return the first value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14473	14624	
==>->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14473	14624	
==>->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14473	14624	
==>->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pop <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3136	3246	
==>($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $expected <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6073	6183	
==>match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6085	6195	
==>match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3269	3365	
==>le;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAG <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	40	136	
==>le;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAG <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17834	17942	
==>, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16872	16980	
==>, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17834	17942	
==>, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16872	16980	
==>, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2527	2648	
==>age( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2527	2648	
==>age( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16657	16751	
==>t's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16657	16751	
==>t's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13154	13251	
==>s broken because something is not implemented yet. So
in order to still allow that to be tested, a <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13212	13309	
==>s broken because something is not implemented yet. So
in order to still allow that to be tested, a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16200	16293	
==>roviding rationales; you can read TTM itself and
various other external documentation for much <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16200	16293	
==>roviding rationales; you can read TTM itself and
various other external documentation for much <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	489	590	
==>p();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	489	590	
==>p();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	489	590	
==>p();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12493	12646	
==>{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1308	1407	
==>).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1308	1407	
==>).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1308	1407	
==>).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15627	15800	
==>()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15627	15800	
==>()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15627	15800	
==>()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3424	3589	
==>RSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE_BINARY
                            => sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25085	25171	
==>head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23849	23935	
==>head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25085	25171	
==>head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23849	23935	
==>head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> and
F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16831	16932	
==>now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16831	16932	
==>now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16831	16932	
==>now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	757	850	
==>ant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2484	2595	
==>n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2484	2595	
==>n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_co <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4404	4505	
==>e_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in th <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4404	4505	
==>e_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	968	1072	
==>cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($cmd) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6297	6399	
==>= initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6297	6399	
==>= initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6297	6399	
==>= initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4774	4970	
==>modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4774	4970	
==>modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9738	9835	
==>turn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9738	9835	
==>turn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	52	147	
==>::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	52	147	
==>::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	52	147	
==>::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20602	20696	
==>tcher (($self: class) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatcher (sy <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15115	15209	
==>ry depth and of
an arbitrary type. The function signatures will likely look something
like this <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15173	15267	
==>ry depth and of
an arbitrary type. The function signatures will likely look something
like this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16881	16974	
==>matically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 ca <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16881	16974	
==>matically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 ca <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5557	5660	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4687	4790	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5557	5660	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4687	4790	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	80	188	
==>rovides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(ni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	84	192	
==>rovides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	80	188	
==>rovides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	84	192	
==>rovides the "classes" bot and queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(ni <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4041	4191	
==>> {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4041	4191	
==>> {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4041	4191	
==>> {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->stor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40152	40250	
==>RROR HANDLING

=head2 Creating Custom Messages

It is probably easiest to follow my module when cre <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4180	4293	
==>e, @$mods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8260	8363	
==>::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8260	8363	
==>::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8260	8363	
==>::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11596	11689	
==>-----------------

With this Role meta-model , any Class instances, themselves does Role since <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11596	11689	
==>-----------------

With this Role meta-model , any Class instances, themselves does Role since <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11596	11689	
==>-----------------

With this Role meta-model , any Class instances, themselves does Role since <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4084	4214	
==>p:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4084	4214	
==>p:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4526	4629	
==>()`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- ` <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4526	4629	
==>()`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- ` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14568	14665	
==>m_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14568	14665	
==>m_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14568	14665	
==>m_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6730	6841	
==>',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'is <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6730	6841	
==>',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'is <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3629	3740	
==>',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'is <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	932	1035	
==>_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.si <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	932	1035	
==>_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.si <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5594	5692	
==>?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infin <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5594	5692	
==>?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infin <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	414	520	
==>multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.stat <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	414	520	
==>multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.stat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11807	11907	
==>> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11807	11907	
==>> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10402	10498	
==>s) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10402	10498	
==>s) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2924	3019	
==>et $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2924	3019	
==>et $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27705	27797	
==>n anonymous function that, when
given each original tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32257	32349	
==>n anonymous function that, when
given each original tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31349	31441	
==>n anonymous function that, when
given each original tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9347	9476	
==>r . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9347	9476	
==>r . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9347	9476	
==>r . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35371	35480	
==>onvert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21075	21166	
==>infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21075	21166	
==>infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21075	21166	
==>infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21344	21451	
==>ACKAGE__;
  push @Regexp::Parser::unlessm::ISA, __PACKAGE__;
  push @Regexp::Parser::suspend::ISA, __PACKAGE <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1796	1921	
==>_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort ke <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1796	1921	
==>_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort ke <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11372	11470	
==>rn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11372	11470	
==>rn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	349	475	
==>&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	349	475	
==>&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	349	475	
==>&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	126	218	
==>ll::Include;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub include { +shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6472	6599	
==>s primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6472	6599	
==>s primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6472	6599	
==>s primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	828	931	
==>char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_handler('\e' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1237	1369	
==>" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3669	3796	
==>a($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3669	3796	
==>a($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3669	3796	
==>a($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12055	12172	
==>rop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4698	4815	
==>rop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20706	20801	
==>your
preference.  Presumably the messages in these files are looked up by the
program using keys <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20706	20801	
==>your
preference.  Presumably the messages in these files are looked up by the
program using keys <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8830	8948	
==>fine and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id IN <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8830	8948	
==>fine and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id IN <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19440	19537	
==>logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19440	19537	
==>logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18803	18909	
==>th a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - Th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18803	18909	
==>th a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - Th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	496	590	
==>re changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	496	590	
==>re changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17676	17845	
==>w(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19434	19603	
==>w(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39886	40054	
==>w(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40945	41113	
==>w(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' = <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2965	3073	
==>r
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, ver <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3122	3230	
==>r
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, ver <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2965	3073	
==>r
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, ver <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3122	3230	
==>r
the terms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, ver <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3623	3763	
==>$tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = trav <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1900	1994	
==>anceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1900	1994	
==>anceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1900	1994	
==>anceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee = <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	793	904	
==>ld.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	793	904	
==>ld.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7358	7465	
==>.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7358	7465	
==>.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normaliz <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6891	7014	
==>e' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6891	7014	
==>e' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1825	1929	
==>cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1885	1989	
==>cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3487	3621	
==>ta( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1845	1979	
==>ta( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2625	2759	
==>ta( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6394	6491	
==>== PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23273	23426	
==>t;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $self: list ?@supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3250	3359	
==>eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3250	3359	
==>eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3250	3359	
==>eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (v <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16961	17068	
==>om"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = find_global "PGE::Ru <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5036	5138	
==>("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-S <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5036	5138	
==>("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6897	6993	
==>>new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n");
}

sub p6_code_mk_C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1334	1423	
==>lobal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1334	1423	
==>lobal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1334	1423	
==>lobal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2488	2596	
==>----------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3049	3151	
==>ase} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3049	3151	
==>ase} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3049	3151	
==>ase} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	retur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2943	3055	
==>_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explan <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2943	3055	
==>_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4467	4579	
==>_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explan <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14536	14642	
==>to name
    $I0 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	134	235	
==>e
# general p6 one after bootstrap).  Or spec code which doesnt actually
# run yet.  The immediate goa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2541	2636	
==>a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2541	2636	
==>a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2541	2636	
==>a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1696	1902	
==>difiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF] <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1696	1902	
==>difiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9537	9633	
==>der.  The
field names are cases insensitive.

Instances of this class are usually created as memb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9537	9633	
==>der.  The
field names are cases insensitive.

Instances of this class are usually created as memb <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	790	900	
==>$file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	790	900	
==>$file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3522	3617	
==>o.t>.  It failed 10 of 20 tests and
exited with non-zero status indicating something dubious hap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38040	38191	
==>, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38040	38191	
==>, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38040	38191	
==>, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7207	7328	
==>x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_scope <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1529	1645	
==>in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.irc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1529	1645	
==>in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.irc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23834	23929	
==>.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell fo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23834	23929	
==>.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell fo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20788	20885	
==>ram using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resourc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20788	20885	
==>ram using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resourc <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	455	548	
==>SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIP <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	455	548	
==>SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11370	11537	
==>}
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11370	11537	
==>}
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11370	11537	
==>}
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5333	5423	
==>{$index->{_dirs}};
my $index_file = catfile($output_dir,"index.html");
open( my $fh,'>',  $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13947	14043	
==>storing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13947	14043	
==>storing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6431	6524	
==>vent::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6431	6524	
==>vent::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4948	5045	
==>mparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4075	4172	
==>mparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4948	5045	
==>mparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4075	4172	
==>mparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	579	734	
==>sible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	579	734	
==>sible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15613	15711	
==>es

This header gives the date and time after which the entity should be
considered stale.

=item $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15613	15711	
==>es

This header gives the date and time after which the entity should be
considered stale.

=item $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	436	543	
==>:Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	436	543	
==>:Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	807	900	
==>ir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	807	900	
==>ir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	884	1008	
==>of}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the futu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	12	99	
==>ub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	12	99	
==>ub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	12	99	
==>ub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) { <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3356	3457	
==>ness to do a
core patch if one proves necessary to go the last mile.

=head1 BUGS

Numerous.

=head1 T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2454	2551	
==>()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2454	2551	
==>()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2454	2551	
==>()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3796	3907	
==>e(@$ops && @$var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumper "cle <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1613	1719	
==>to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1613	1719	
==>to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1613	1719	
==>to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21150	21326	
==>ns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17906	18068	
==>ns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41174	41333	
==>ns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44074	44233	
==>ns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')->class->send('dispatch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4141	4303	
==>$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4141	4303	
==>$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4141	4303	
==>$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1223	1331	
==>() returns Num is builtin is primitive {
    3.14159265358979323846264338327950288419716939937510;
}

sub lcf <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23848	23985	
==>xt"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13352	13481	
==>xt"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13352	13481	
==>xt"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13352	13481	
==>xt"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6195	6298	
==>troy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6195	6298	
==>troy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6195	6298	
==>troy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2J <==
4	/Users/nnunley/pugs/util/package-osx.pl	3809	3912	
==>n/man3/Perl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A03.3pm
        /usr/local/man/ma <==
4	/Users/nnunley/pugs/util/package-osx.pl	2452	2550	
==>xamples
        /Users/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/dromano/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	136	232	
==>s the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	136	232	
==>s the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	136	232	
==>s the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13688	13788	
==>er have an overly friendly
  relationship.  There may end up being a gotcha, where one needs
  someth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5794	5892	
==>M;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5794	5892	
==>M;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5794	5892	
==>M;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_fo <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2798	2894	
==>)>

Returns the representation of this node in the original text, or at
least a valid representat <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2798	2894	
==>)>

Returns the representation of this node in the original text, or at
least a valid representat <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2453	2548	
==><@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2453	2548	
==><@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9255	9379	
==>te('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expire <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9255	9379	
==>te('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expire <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12129	12243	
==>r('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4772	4886	
==>r('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3546	3645	
==>ut lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3419	3515	
==>ut lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compil <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10523	10737	
==>rray )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> A <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24008	24101	
==>s are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28560	28653	
==>s are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$hea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27391	27484	
==>s are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$hea <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	119	247	
==>method BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	119	247	
==>method BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8289	8395	
==>ethod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11766	11872	
==>ethod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9696	9825	
==>which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9696	9825	
==>which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17156	17253	
==>0001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22256	22353	
==>0001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	43	144	
==>::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	43	144	
==>::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	43	144	
==>::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18111	18201	
==>ft is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	231	334	
==>ay',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	175	268	
==>m $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	175	268	
==>m $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	175	268	
==>m $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5583	5770	
==>$t = [ 'MY' => $ast ]
            }
            elsif ( $ast->{stmt} eq '{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13660	13788	
==>);
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13660	13788	
==>);
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13660	13788	
==>);
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	157	561	
==>0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Examp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	157	561	
==>0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Examp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26697	26808	
==>::minmod;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	396	507	
==>ess::YAML;
use strict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5825	5939	
==>ength( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5825	5939	
==>ength( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6] <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	27	123	
==>st - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	27	123	
==>st - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17640	17816	
==>6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17640	17816	
==>6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17640	17816	
==>6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' | <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13955	14059	
==>ed '-' in charlist (use '..' or '\-')")
    goto end
  err_close:
    parse_error(mob, pos, "No closing ' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22375	22534	
==><Expression> <':'> <StatementList>?
}
rule DefaultClause :words {  # see 12.11
      <'default'> <':'> <StatementList>?
}
rule LabelledStatement :words {  # see <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2354	2471	
==>/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->licen <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	305	414	
==>d size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	305	414	
==>d size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method s <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1574	1678	
==>ngle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1336	1440	
==>ngle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1574	1678	
==>ngle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1336	1440	
==>ngle span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2200	2322	
==>{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2200	2322	
==>{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2200	2322	
==>{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        retu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7353	7459	
==>index_files;
}

### these plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? h <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1972	2064	
==>subset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset nu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14145	14246	
==>y.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14145	14246	
==>y.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) { <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17960	18060	
==>gled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it us <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2319	2419	
==>gled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1263	1443	
==>0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1263	1443	
==>0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1263	1443	
==>0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2813	2909	
==>(RPe_BADESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_char => 'C') i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11143	11287	
==>->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11143	11287	
==>->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11143	11287	
==>->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_clas <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6313	6410	
==>ions. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6313	6410	
==>ions. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	22	114	
==>sitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!suc <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	22	114	
==>sitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!suc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7768	7883	
==>_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7961	8076	
==>_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	230	339	
==>::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_source, $param ) = @_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4384	4492	
==>o not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7861	7969	
==>o not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6845	6953	
==>o not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relati <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10766	10966	
==>ew('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26108	26290	
==>ew('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38738	38919	
==>ew('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39265	39446	
==>ew('$self:' => 'opaque')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3670	3769	
==>_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3670	3769	
==>_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3670	3769	
==>_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludep <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	149	241	
==>ef;
use Perl6::Core::Hash;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10995	11098	
==>he specified items from the set. Returns the number of items
removed.

It is not fatal to remove an item <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8399	8502	
==>he specified items from the set. Returns the number of items removed.

It is not fatal to remove an item <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10995	11098	
==>he specified items from the set. Returns the number of items
removed.

It is not fatal to remove an item <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8399	8502	
==>he specified items from the set. Returns the number of items removed.

It is not fatal to remove an item <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	487	587	
==>match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Du <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	693	793	
==>match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Du <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	83	179	
==>-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	83	179	
==>-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22061	22167	
==>Expression> <')'> <CaseBlock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1301	1403	
==>> '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1301	1403	
==>> '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1301	1403	
==>> '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } el <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1079	1203	
==>re the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1079	1203	
==>re the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13126	13221	
==>ntersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set conta <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13126	13221	
==>ntersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set conta <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1381	1480	
==>Num and ...XXXfill in... };
   subset complex'~$n~' of ValueType where { $^n ~~ Num and ...XXXfill i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5775	5873	
==>ample might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5775	5873	
==>ample might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5775	5873	
==>ample might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	749	852	
==>) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	749	852	
==>) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	749	852	
==>) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Cod <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27625	27724	
==>list int", ":t listify(5)");
is(t($length_and_first), "∀α. list α → (α × int)", ":t length_a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24438	24574	
==>'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Expressions

rule Pattern {  # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16398	16505	
==>sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16398	16505	
==>sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16398	16505	
==>sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6790	6895	
==>ad an external Perl template module; on a require
        # failure, we assume that module intentionally d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6790	6895	
==>ad an external Perl template module; on a require
        # failure, we assume that module intentionally d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4995	5099	
==>Compiler::Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14502	14602	
==>2rel() but that does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15225	15328	
==>POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9423	9526	
==>POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	957	1058	
==>\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ / <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	957	1058	
==>\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ / <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4422	4523	
==>e>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8385	8484	
==>(
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	587	682	
==>(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	587	682	
==>(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20354	20455	
==>f the bot's socket to the server is currently connected.

Note that you might want to use the C<logged <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19302	19403	
==>f the bot's socket to the server is currently connected.

Note that you might want to use the C<logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20354	20455	
==>f the bot's socket to the server is currently connected.

Note that you might want to use the C<logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19302	19403	
==>f the bot's socket to the server is currently connected.

Note that you might want to use the C<logged <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3634	3852	
==>und;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3634	3852	
==>und;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1211	1311	
==>"param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1205	1299	
==>"param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3668	3779	
==>sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3668	3779	
==>sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2881	2991	
==>ach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5080	5190	
==>ach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22669	22807	
==>atch ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22948	23086	
==>atch ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15309	15410	
==>ply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  % <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15367	15468	
==>ply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13655	13843	
==>didate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13655	13843	
==>didate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13655	13843	
==>didate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2536	2667	
==>to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6537	6623	
==>thority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6537	6623	
==>thority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6537	6623	
==>thority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5572	5674	
==>:SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5572	5674	
==>:SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5572	5674	
==>:SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	255	352	
==>po = JIB::Repository->new(...);

Required arguments:

=over 4

=item root

The root directory of t <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15518	15647	
==>string at a higher level that doesn't map to the lower level is an
error (for example, attempting to store Kanji in a Byte uplifte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5629	5737	
==>0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5629	5737	
==>0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5629	5737	
==>0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1086	1201	
==>less keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1086	1201	
==>less keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1086	1201	
==>less keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $li <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2626	2739	
==>ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9288	9423	
==>,
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -I <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9288	9423	
==>,
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -I <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21447	21543	
==>ckage could come with a set of user
messages, but another package or program which uses yours may <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21447	21543	
==>ckage could come with a set of user
messages, but another package or program which uses yours may <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10636	10736	
==>-----------------------------------

    method add_method;
    method get_method;
    method has_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10636	10736	
==>-----------------------------------

    method add_method;
    method get_method;
    method has_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10636	10736	
==>-----------------------------------

    method add_method;
    method get_method;
    method has_met <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9578	9669	
==>r::nullary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nulla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2800	2928	
==>s[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2800	2928	
==>s[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2800	2928	
==>s[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5671	5770	
==>?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5671	5770	
==>?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5671	5770	
==>?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitiv <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9414	9518	
==>2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass(' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9472	9576	
==>2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass(' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12410	12502	
==>set of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12410	12502	
==>set of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12248	12364	
==>};

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12248	12364	
==>};

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12248	12364	
==>};

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without ha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2231	2356	
==>e::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user sim <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2231	2356	
==>e::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user sim <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30326	30419	
==>Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the origi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34878	34971	
==>Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the origi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19527	19621	
==>) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19527	19621	
==>) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19527	19621	
==>) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5945	6052	
==>n( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5945	6052	
==>n( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5945	6052	
==>n( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'pr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1593	1693	
==>arget = $self->target();
  my $from = $self->from();
  my $position = $self->position();
  return ("" <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2156	2298	
==>f ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1579	1676	
==>-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1579	1676	
==>-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1579	1676	
==>-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	604	736	
==>ace_before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2002	2110	
==>($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2002	2110	
==>($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	661	758	
==>pilation, %.3f type checking, %.3f emission, %.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12951	13066	
==>isual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub data {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6932	7031	
==>$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6932	7031	
==>$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6932	7031	
==>$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1367	1489	
==>ready_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1367	1489	
==>ready_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1367	1489	
==>ready_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	61	168	
==>n::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::Run::Cont <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3007	3159	
==>e->new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => 'block'),
                           symbol-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17258	17357	
==>ersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20735	20834	
==>ersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20313	20412	
==>ersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7144	7337	
==>multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $ne <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7144	7337	
==>multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $ne <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	408	538	
==>file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue. <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	408	538	
==>file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3459	3555	
==>ad1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3459	3555	
==>ad1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21403	21497	
==>T> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21403	21497	
==>T> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2824	2942	
==>ing}{start};
    DumpFile($Config{"output-file"}, {
            meat => $self->structure,
            map { $_ => $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1455	1559	
==>itional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->ne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1455	1559	
==>itional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->ne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1664	1768	
==>itional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->ne <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5772	5869	
==>version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5254	5351	
==>version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2201	2296	
==>erface

The Cipher API's functional interface is perhaps the easiest one that allows 
for contin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2201	2296	
==>erface

The Cipher API's functional interface is perhaps the easiest one that allows 
for contin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7915	8063	
==>ue::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7915	8063	
==>ue::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7915	8063	
==>ue::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scal <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17607	17698	
==>etermined dynamically.

=item Character Class Hashes

Character classes (I<anyof> objects) n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4762	4867	
==>rator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self->{pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	669	771	
==>, user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	669	771	
==>, user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	669	771	
==>, user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22512	22631	
==>listify"),
				param => val(10),
			),
		),
	),
);

my $length_and_first_gen = let(
	ide => "listify",
	is => $one_elem_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12981	13088	
==>x) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12981	13088	
==>x) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12981	13088	
==>x) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4163	4288	
==>],
    methods => {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.reason') },
        'status' => sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30758	30851	
==>ation of each tuple), but
that any duplicates following the transformation have been eliminate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35309	35402	
==>ation of each tuple), but
that any duplicates following the transformation have been eliminate <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34500	34593	
==>ation of each tuple), but
that any duplicates following the transformation have been eliminate <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3608	3718	
==>pe = $self->resolve_type($node);
	
	$self->add_definition($node, "const $type $symbol = $body;");

	return $sym <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15120	15224	
==>on saying either exactly what language
we're going into, or what environmental parameter to pay attention <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1099	1195	
==>l byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers prov <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1099	1195	
==>l byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers prov <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11550	11672	
==>t) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11550	11672	
==>t) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22623	22716	
==>.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22623	22716	
==>.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7279	7391	
==>_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7279	7391	
==>_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7279	7391	
==>_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } } <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	312	411	
==>l
run and install and have all the distribution components you need.

= WHY

You should use this mod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4491	4613	
==>s'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4684	4806	
==>s'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_captur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1868	1957	
==>Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1868	1957	
==>Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10421	10567	
==>ses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10421	10567	
==>ses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17651	17746	
==>or database systems often refer to an error condition by an
internal code which is guaranteed to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17651	17746	
==>or database systems often refer to an error condition by an
internal code which is guaranteed to <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5054	5196	
==>24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function int <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5054	5196	
==>24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	257	353	
==>Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	257	353	
==>Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6088	6219	
==>n "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= l <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6088	6219	
==>n "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1623	1718	
==>s::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1763	1858	
==>s::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4469	4598	
==>= 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4469	4598	
==>= 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4469	4598	
==>= 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arit <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	341	432	
==>PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTA <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1695	1802	
==>ests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@indext <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7425	7523	
==>lchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7425	7523	
==>lchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7425	7523	
==>lchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_che <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1219	1336	
==>rement;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1714	1821	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1714	1821	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1714	1821	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	315	414	
==>function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	315	414	
==>function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	315	414	
==>function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5645	5798	
==>ibute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5645	5798	
==>ibute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5645	5798	
==>ibute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	845	960	
==>allow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10246	10345	
==>paque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10246	10345	
==>paque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10246	10345	
==>paque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14333	14429	
==>ion varies with function.
C<keys> only returns the key; C<values> the value; C<kv> returns both a <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9812	9913	
==>() { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::Lis <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9812	9913	
==>() { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3197	3281	
==>estBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3383	3467	
==>estBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6106	6226	
==>print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6106	6226	
==>print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6106	6226	
==>print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Cou <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14751	14865	
==>f->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package Regexp::Parser::g <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3289	3396	
==>ion {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6766	6873	
==>ion {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping. <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	208	309	
==>check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str i <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	208	309	
==>check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5309	5419	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10964	11074	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if no <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1055	1164	
==>do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1055	1164	
==>do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13453	13587	
==>$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13453	13587	
==>$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13453	13587	
==>$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Valu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	27	131	
==>RulesInP5::Match;
use base qw/Class::Accessor/;
use overload
    'bool'  => 'as_bool',
    '""'    => 'as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9782	9923	
==>/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = sh <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9782	9923	
==>/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20782	20875	
==>y easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
M <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20782	20875	
==>y easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
M <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6065	6179	
==>ossible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.de <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6455	6569	
==>ossible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.de <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	509	616	
==>rn = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0 <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	509	616	
==>rn = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13084	13224	
==>p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21134	21274	
==>p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13363	13503	
==>p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21413	21553	
==>p6ws'} )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	580	732	
==>{
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	580	732	
==>{
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	580	732	
==>{
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16477	16591	
==>ete @{$self}{qw(max skip_all todo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7722	7827	
==>$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7722	7827	
==>$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPara <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7722	7827	
==>$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPara <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6375	6473	
==>mp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1792	1891	
==>modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1792	1891	
==>modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1792	1891	
==>modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1102	1213	
==>t('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), " <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1179	1274	
==>bs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1179	1274	
==>bs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_pat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1357	1449	
==>N

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This docu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1357	1449	
==>N

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This docu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2925	3042	
==>": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2925	3042	
==>": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2925	3042	
==>": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit } <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14363	14457	
==>";unpack("U*","\\N{',AName,'}\n")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16342	16470	
==>ck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16342	16470	
==>ck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16342	16470	
==>ck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found fo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14250	14338	
==>har(Name,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_ato <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2236	2357	
==>$off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2236	2357	
==>$off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17730	17827	
==>nt originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The serv <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17730	17827	
==>nt originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The serv <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8185	8298	
==>tanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8185	8298	
==>tanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8185	8298	
==>tanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	831	936	
==>urrently take 8 arguments.

=cut

use strict;
use warnings;
#use Smart::Comments; #for debugging, lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4552	4656	
==>ew( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4552	4656	
==>ew( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4552	4656	
==>ew( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1079	1182	
==>ccessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6628	6732	
==>ub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6628	6732	
==>ub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6628	6732	
==>ub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unbo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	0	97	
==>﻿package Pugs::Grammar::Ternary;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator) <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3931	4049	
==>d BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4264	4382	
==>d BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3931	4049	
==>d BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4264	4382	
==>d BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9152	9302	
==>);

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9152	9302	
==>);

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9152	9302	
==>);

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2781	2884	
==>stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5,$warn) = Perl6::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37848	37975	
==>tem] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37848	37975	
==>tem] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37848	37975	
==>tem] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1391	1489	
==>ml;
	exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	37	145	
==>s Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.paren <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	37	145	
==>s Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.paren <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13879	13978	
==>wo parameters; the name of the field and a single
value (a string).  If a header field is multi-valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13879	13978	
==>wo parameters; the name of the field and a single
value (a string).  If a header field is multi-valu <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	409	537	
==>s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub Cook <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	73	175	
==>days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	73	175	
==>days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	73	175	
==>days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28104	28199	
==>" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1161	1252	
==>PIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1161	1252	
==>PIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1161	1252	
==>PIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.* <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6118	6219	
==>= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6118	6219	
==>= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_n <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5605	5704	
==>rrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5605	5704	
==>rrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	144	258	
==>rimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	144	258	
==>rimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	144	258	
==>rimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8124	8218	
==>duce($_[0]) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rseq->values)[-1]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2221	2352	
==>',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2426	2557	
==>',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instanc <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3453	3575	
==>ent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3453	3575	
==>ent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	58	167	
==>lass::Accessor/;
use overload
    'bool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4559	4658	
==>$^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4559	4658	
==>$^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4559	4658	
==>$^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29042	29152	
==>_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29042	29152	
==>_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	393	491	
==>_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10329	10419	
==>fault);
    return { isInvocant=>$isInvocant, isOptional=>$isOptional, isNamed=>$isNamed, i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24599	24692	
==>se accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24599	24692	
==>se accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The u <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1536	1629	
==>file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1376	1469	
==>file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23180	23327	
==>s - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1348	1439	
==>ain::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1348	1439	
==>ain::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1348	1439	
==>ain::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10489	10657	
==>])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6830	6998	
==>])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7679	7847	
==>])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var b <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5882	6021	
==>e latest
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _normal <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3339	3454	
==>er[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        package => @caller[0],
        f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10400	10514	
==>$depth == $iter->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2031	2138	
==>$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2031	2138	
==>$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2031	2138	
==>$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1801	1907	
==>erl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1801	1907	
==>erl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1801	1907	
==>erl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*/ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2075	2179	
==>ynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@progs) {
		my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7019	7132	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7019	7132	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7019	7132	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	40	135	
==>ore::Type::Comparable;
use Perl6::Core::Num;
use Perl6::Core::Bit;

package str;

use strict;
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	585	746	
==>,
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	585	746	
==>,
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	585	746	
==>,
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2899	2999	
==>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RULE
*{'assign'} = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23031	23147	
==>E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NP <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12943	13118	
==>::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13222	13397	
==>::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2721	2837	
==>se);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2721	2837	
==>se);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10100	10204	
==>,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2061	2160	
==>d_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2061	2160	
==>d_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2061	2160	
==>d_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10941	11108	
==>> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10941	11108	
==>> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10941	11108	
==>> sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13064	13169	
==>numeric value, and a format string for use with sprintf().

  # for when you have a zero-width chunk
  # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	883	1004	
==>ortList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	883	1004	
==>ortList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	883	1004	
==>ortList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10276	10379	
==>lary->new("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free->new;
		type::operato <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11043	11144	
==>ual() method of
each node in the tree.

=head2 Using the Regex

You can use the qr() method to get bac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6518	6613	
==>nstance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6518	6613	
==>nstance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6518	6613	
==>nstance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7992	8321	
==>(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                Sym->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8026	8285	
==>}
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8026	8285	
==>}
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8026	8285	
==>}
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        } <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	320	438	
==>val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	320	438	
==>val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1295	1404	
==>.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1295	1404	
==>.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22137	22262	
==>] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subp <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25333	25432	
==>>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the lic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25333	25432	
==>>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the lic <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	129	222	
==>?  hmm..
# type Perl::Type is Perl::Type::Regular | Perl::Type::Junctive;

class Perl::Type::R <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15945	16062	
==>$target  = $link->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	919	1029	
==>x is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	919	1029	
==>x is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	919	1029	
==>x is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6176	6306	
==>ass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6176	6306	
==>ass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6176	6306	
==>ass1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3711	3890	
==>0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decod <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3711	3890	
==>0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	688	799	
==>e source: ', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->par <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3414	3551	
==>> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?! <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3414	3551	
==>> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4617	4720	
==>lized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4617	4720	
==>lized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10248	10358	
==>>($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	53	157	
==>support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	53	157	
==>support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	53	157	
==>support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7765	7935	
==>every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next u <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8229	8399	
==>every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4195	4353	
==>every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next u <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4659	4817	
==>every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	620	722	
==>ter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	620	722	
==>ter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	620	722	
==>ter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|M <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8089	8183	
==>airs> a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fact mu <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	417	533	
==>mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	539	643	
==>mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2085	2188	
==>n 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2085	2188	
==>n 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6937	7059	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->sp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6937	7059	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->sp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6937	7059	
==>my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->sp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27297	27406	
==>l_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27297	27406	
==>l_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5019	5121	
==>got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Obj <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7687	7789	
==>got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Obj <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	397	496	
==>gest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	473	572	
==>gest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13931	14028	
==>lue (a string).  If a header field is multi-valued, then the
routine is called once for each value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13931	14028	
==>lue (a string).  If a header field is multi-valued, then the
routine is called once for each value <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	517	621	
==>$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_ed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9092	9195	
==>.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = ' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1226	1323	
==>.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = ' <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1226	1323	
==>.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = ' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1853	2005	
==>$args);
        }
    }
    confess "Method (" . $label->to_native . ") not found in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35460	35549	
==>s method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40010	40099	
==>s method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39570	39659	
==>s method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1942	2102	
==>y->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1942	2102	
==>y->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1942	2102	
==>y->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1689	1804	
==>\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5655	5766	
==>e filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter:: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5655	5766	
==>e filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	869	972	
==>per->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	869	972	
==>per->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4421	4541	
==>_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for ( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4421	4541	
==>_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for ( <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	609	712	
==>ults) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	609	712	
==>ults) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5989	6092	
==>\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initial <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5989	6092	
==>\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initial <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5989	6092	
==>\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initial <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21803	21901	
==>xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    isA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	729	857	
==>(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	729	857	
==>(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	729	857	
==>(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw er <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8298	8393	
==>(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7428	7523	
==>(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8298	8393	
==>(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7428	7523	
==>(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1170	1274	
==>0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1170	1274	
==>0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1170	1274	
==>0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => <==
4	/Users/nnunley/pugs/util/testgraph.pl	397	491	
==>yamlfile) or die "Couldn't open $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die "bi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3534	3662	
==>ck};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self->{tree} };
  my $next;

  return sub {
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9571	9678	
==>lf: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1664	1765	
==>lf: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1664	1765	
==>lf: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Tes <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6113	6218	
==>{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my % <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5714	5815	
==>',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SO <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5714	5815	
==>',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SO <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	727	825	
==>e { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	324	485	
==>ribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	324	485	
==>ribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $v <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16740	16864	
==>O;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16740	16864	
==>O;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	901	997	
==>itive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::Va <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3513	3653	
==>\@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3977	4117	
==>\@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5523	5627	
==>my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5523	5627	
==>my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive matc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16584	16693	
==>_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21010	21119	
==>_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
P <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1318	1411	
==>rust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1318	1411	
==>rust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	1007	1141	
==>,
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->recompil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1954	2078	
==>each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1954	2078	
==>each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1954	2078	
==>each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11956	12057	
==>ld name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argum <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12388	12489	
==>ld name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argum <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11956	12057	
==>ld name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value argum <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12388	12489	
==>ld name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value argum <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3497	3598	
==>Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3803	3904	
==>Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3497	3598	
==>Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3803	3904	
==>Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4325	4428	
==>nion
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3452	3555	
==>nion
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4325	4428	
==>nion
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3452	3555	
==>nion
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10579	10747	
==>e state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10579	10747	
==>e state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $h <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2582	2686	
==>*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $g <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2582	2686	
==>*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $g <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10906	11046	
==>emove_available( package => $inst_pkg );
    
    ### move this all to Installation.pm
    $self->write or return;
    
    ### unisntall met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9185	9296	
==>print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13035	13144	
==>print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13035	13144	
==>print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6656	6759	
==>ar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5784	5881	
==>@b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5784	5881	
==>@b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5784	5881	
==>@b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2208	2317	
==>";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2208	2317	
==>";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2208	2317	
==>";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ke <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1896	2005	
==>he target tree and add anomalies
    # to each event.
    # Note that I use the test number for reference, whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	959	1057	
==>JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	959	1057	
==>JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	959	1057	
==>JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24630	24716	
==>0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3568	3708	
==>ith _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4032	4172	
==>ith _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15867	15965	
==>pan ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15867	15965	
==>pan ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4288	4393	
==>e_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4288	4393	
==>e_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# v <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3955	4055	
==>e_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3955	4055	
==>e_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1710	1808	
==>me, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1710	1808	
==>me, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1710	1808	
==>me, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    r <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4541	4631	
==>in,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15900	16002	
==>od _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19377	19479	
==>od _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1317	1417	
==>rn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1317	1417	
==>rn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3199	3311	
==>X - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3199	3311	
==>X - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3199	3311	
==>X - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23651	23760	
==>?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20098	20195	
==>osetta" core
distribution to allow the core to be completely testable on its own.  It is
coded int <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20098	20195	
==>osetta" core
distribution to allow the core to be completely testable on its own.  It is
coded int <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14778	14873	
==>andle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14836	14931	
==>andle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structu <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4497	4611	
==>@_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5460	5561	
==>ta") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5460	5561	
==>ta") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5460	5561	
==>ta") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($fr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24432	24586	
==>eop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25695	25849	
==>eop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24711	24865	
==>eop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25974	26128	
==>eop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7058	7159	
==>more often it is used by 
a block cipher mode role to add some information to the output.

A default i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7058	7159	
==>more often it is used by 
a block cipher mode role to add some information to the output.

A default i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2056	2155	
==>oss all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1980	2074	
==>oss all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	690	793	
==>t> <p6ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3726	3823	
==>$@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3726	3823	
==>$@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3726	3823	
==>$@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15639	15746	
==>with @ids being class level.
        #my @ids = <year month day hour min sec picosec wday yday tzname tz is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21281	21376	
==>UB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21281	21376	
==>UB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21281	21376	
==>UB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	521	620	
==>tem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	521	620	
==>tem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	521	620	
==>tem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verb <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1404	1500	
==>tdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec->catfile($path, "li <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6528	6631	
==>CUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$top <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8992	9094	
==>urn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9185	9287	
==>urn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3402	3499	
==>ted_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3460	3557	
==>ted_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3345	3445	
==>",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3345	3445	
==>",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3345	3445	
==>",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4085	4183	
==>he Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5739	5867	
==>nce->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(),
            at <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2476	2592	
==>.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(ot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2476	2592	
==>.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(ot <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2476	2592	
==>.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(ot <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39555	39657	
==>uncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39555	39657	
==>uncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24279	24380	
==>uncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24279	24380	
==>uncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7921	8078	
==>"DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7921	8078	
==>"DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7921	8078	
==>"DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26079	26175	
==>uld make sure in yours.

Matching against the regex is done in scalar context, globally, like so: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6060	6169	
==>>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6840	6949	
==>>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6060	6169	
==>>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6840	6949	
==>>);
        for %!channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14064	14233	
==>ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14064	14233	
==>ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14064	14233	
==>ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    sl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2278	2382	
==>.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2997	3122	
==>self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2997	3122	
==>self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2997	3122	
==>self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	83	179	
==>nts 'regex matching subs you want to debug'}
* adds use Smart::Comments (if it matches the suppli <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6837	6926	
==><Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4189	4278	
==><Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6837	6926	
==><Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4189	4278	
==><Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9377	9516	
==>ss} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9377	9516	
==>ss} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21597	21690	
==>lation
attributes may be individually addressed only by their names, and all
Relation tuples m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26149	26242	
==>lation
attributes may be individually addressed only by their names, and all
Relation tuples m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10140	10240	
==>ct, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10140	10240	
==>ct, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6457	6553	
==>$one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differenc <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6457	6553	
==>$one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1463	1564	
==>s, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_man <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1463	1564	
==>s, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_man <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1463	1564	
==>s, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_man <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15486	15570	
==>[]),
  re_rewrite(Re0,Re).

%-------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1085	1239	
==>lete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1225	1379	
==>lete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16468	16648	
==>}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16747	16927	
==>}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	834	930	
==>erface.

Normally, they will be constructed as a series of events fired in by
something that C<.d <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	834	930	
==>erface.

Normally, they will be constructed as a series of events fired in by
something that C<.d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6391	6494	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6391	6494	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6391	6494	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7760	7854	
==>ents of C<@array>, in order. 

If C<@indextests> are provided, only elements whose indices matc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8360	8467	
==>}
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	568	665	
==>}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	568	665	
==>}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1554	1696	
==>y ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1554	1696	
==>y ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1554	1696	
==>y ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27040	27142	
==>ge $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27040	27142	
==>ge $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3660	3808	
==>tate = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3660	3808	
==>tate = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Mat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	728	826	
==>nded for a tokenizer, are not actually used.
#   * Some rules, eg StringNumericLiteral, are not use <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10236	10349	
==>te_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10236	10349	
==>te_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4161	4260	
==>variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5010	5109	
==>variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22804	22900	
==>ow less than all of the available details depending on the
intended viewer.

=head2 Compared to O <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22804	22900	
==>ow less than all of the available details depending on the
intended viewer.

=head2 Compared to O <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	181	323	
==>i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	181	323	
==>i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	181	323	
==>i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1503	1625	
==>ly') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift(@ARGV) if <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1958	2115	
==>m<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %pa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1958	2115	
==>m<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %pa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8247	8352	
==>h 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8247	8352	
==>h 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10486	10588	
==>word))          --> "\\W", !.

p6_char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4854	4945	
==>al $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4854	4945	
==>al $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4854	4945	
==>al $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	305	428	
==>s export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	305	428	
==>s export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5802	6025	
==>,
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5802	6025	
==>,
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5802	6025	
==>,
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52434	52518	
==>>new($::Module));

$::Module->set_attr(symbol->new('@:subclasses') => list->new($::Cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12965	13094	
==>is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12965	13094	
==>is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12965	13094	
==>is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1850	1979	
==>is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	590	716	
==>» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	590	716	
==>» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2312	2416	
==>sh @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2312	2416	
==>sh @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_heade <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	445	552	
==>w();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK looku <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	445	552	
==>w();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK looku <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15334	15439	
==>};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Fo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15334	15439	
==>};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18612	18744	
==>f $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::isa because we want t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	925	1019	
==>, pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	925	1019	
==>, pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	925	1019	
==>, pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38160	38283	
==>hod:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self-> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3198	3315	
==>0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termSt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20670	20766	
==>or, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20670	20766	
==>or, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2614	2718	
==>inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2614	2718	
==>inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2614	2718	
==>inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3676	3767	
==>{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3676	3767	
==>{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3676	3767	
==>{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18827	19027	
==>other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18827	19027	
==>other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infini <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18827	19027	
==>other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infini <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6759	6873	
==>my @index_files;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4392	4502	
==>p $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4392	4502	
==>p $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4392	4502	
==>p $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informat <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3349	3457	
==>rays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs lin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2105	2220	
==>,
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35944	36042	
==>ommon tuple values are aligned and merged.  The heading
of the new relation is the union of the inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40494	40592	
==>ommon tuple values are aligned and merged.  The heading
of the new relation is the union of the inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40108	40206	
==>ommon tuple values are aligned and merged.  The heading
of the new relation is the union of the inv <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	237	401	
==>^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	237	401	
==>^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2029	2160	
==>sed
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	698	805	
==>ler::Perl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1634	1788	
==>specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %se <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1634	1788	
==>specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %se <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2182	2303	
==>st) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2182	2303	
==>st) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2356	2457	
==>method register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indica <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2356	2457	
==>method register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indica <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	15	113	
==>untime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	15	113	
==>untime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4029	4136	
==>m{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4029	4136	
==>m{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4029	4136	
==>m{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $p <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16712	16808	
==>string after converting each character to it's lowercase
form, if uppercase.


=item lcfirst

 mu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11135	11267	
==>_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11129	11261	
==>_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       m <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1066	1163	
==>t Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1066	1163	
==>t Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $u <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2007	2158	
==>reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Base class f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34995	35134	
==>";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34995	35134	
==>";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34995	35134	
==>";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4084	4194	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4084	4194	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3831	3940	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3831	3940	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1674	1776	
==>the $method here can be undefined, this is to allow
    # for methods which do not have an implementati <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1674	1776	
==>the $method here can be undefined, this is to allow
    # for methods which do not have an implementati <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1674	1776	
==>the $method here can be undefined, this is to allow
    # for methods which do not have an implementati <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1113	1212	
==>eserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3215	3343	
==>perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3355	3483	
==>perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{arg <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1836	1929	
==>ors (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1836	1929	
==>ors (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1188	1288	
==>) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1188	1288	
==>) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1188	1288	
==>) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3492	3617	
==>_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3492	3617	
==>_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4757	4853	
==>set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4757	4853	
==>set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	111	201	
==>:Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	115	205	
==>:Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	109	199	
==>:Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	109	199	
==>:Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

s <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4861	5033	
==>s;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            exit 0;
        } else {
            print "# ", scalar @tests, " tests to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1534	1642	
==>PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1534	1642	
==>PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1534	1642	
==>PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9694	9833	
==>f->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, $tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	222	320	
==>PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	222	320	
==>PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	222	320	
==>PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	537	661	
==>.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	537	661	
==>.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	537	661	
==>.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    d <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17329	17443	
==>ined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = le <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4140	4236	
==>1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleto <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4140	4236	
==>1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5664	5760	
==>1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleto <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3295	3418	
==>tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3295	3418	
==>tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tre <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	275	370	
==>codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	275	370	
==>codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3945	4087	
==>ode = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3945	4087	
==>ode = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9912	10006	
==>ed to as "immediate" and "deferred".  The immediate validations
are performed at the moment the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9912	10006	
==>ed to as "immediate" and "deferred".  The immediate validations
are performed at the moment the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23725	23817	
==>C
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVM <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22498	22590	
==>C
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVM <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23725	23817	
==>C
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVM <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22498	22590	
==>C
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVM <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2436	2567	
==>(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2436	2567	
==>(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2436	2567	
==>(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3118	3242	
==>:manicheck = sub { return };

    require Module::Build;
    my $build = Module::Build->new(
        dist_name    => $self->{ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4589	4725	
==>a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4973	5087	
==>@roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4973	5087	
==>@roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4973	5087	
==>@roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3496	3599	
==>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3496	3599	
==>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3496	3599	
==>{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7507	7603	
==>t(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2128	2233	
==>);

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2128	2233	
==>);

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2128	2233	
==>);

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our me <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27879	27975	
==>((prog)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATC <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9032	9212	
==>, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path') <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9032	9212	
==>, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path') <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17756	17904	
==>ta_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_v <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17756	17904	
==>ta_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_v <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4701	4859	
==>difier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, an <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4701	4859	
==>difier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, an <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4727	4854	
==>ects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infini <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4727	4854	
==>ects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infini <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2085	2263	
==>turns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2085	2263	
==>turns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	241	349	
==>tion = shift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4587	4698	
==>g( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8064	8175	
==>g( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7057	7168	
==>g( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30343	30437	
==>not match attribute names of the invocant
Relation::Example.  This method has an alias named C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7063	7188	
==>r}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEX <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7063	7188	
==>r}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEX <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8292	8387	
==>erted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8292	8387	
==>erted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)> <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5701	5815	
==>etval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir retur <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5701	5815	
==>etval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3986	4085	
==>ar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4170	4269	
==>ar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disab <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3608	3725	
==>e for that tuple.
        # Note that it is valid for a Relation::Example to have zero tuples.
    has Bool $!is_mutab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	621	729	
==>elf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	621	729	
==>elf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	621	729	
==>elf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4455	4575	
==>e for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4455	4575	
==>e for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36297	36386	
==>,'MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36297	36386	
==>,'MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24702	24799	
==>ng () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29254	29351	
==>ng () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20477	20572	
==>rationale of this is that randoms strings are usally left alone by
compilers. After all the comp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20477	20572	
==>rationale of this is that randoms strings are usally left alone by
compilers. After all the comp <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	671	789	
==>smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	220	306	
==>equire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	220	306	
==>equire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	220	306	
==>equire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Contai <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	966	1078	
==>ed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then sto <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	966	1078	
==>ed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then sto <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3531	3634	
==>(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50049	50238	
==>e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->g <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4397	4540	
==>$self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "set <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4397	4540	
==>$self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "set <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16292	16388	
==>eric_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_in($.else) = { generic($ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3990	4098	
==>ight.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3990	4098	
==>ight.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8242	8336	
==>keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delet <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8242	8336	
==>keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delet <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10157	10267	
==>hile (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5529	5623	
==>fault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5529	5623	
==>fault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7053	7147	
==>fault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7420	7548	
==>d to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7420	7548	
==>d to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7420	7548	
==>d to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == unde <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	309	409	
==>))) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1304	1420	
==>local $Storable::forgive_me = 1;
            local $Storable::canonical = 1;
            local $Storable::Deparse = 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1956	2053	
==>s'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1956	2053	
==>s'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mult <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1956	2053	
==>s'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mult <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39544	39642	
==>Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@D <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39544	39642	
==>Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug reports to
C<perl@D <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24268	24365	
==>Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24268	24365	
==>Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug reports to C<perl@D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7869	7969	
==>alyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX Thi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7869	7969	
==>alyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX Thi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15127	15219	
==>geable "Engine" back-ends (usually provided by third
parties) implement.  This interface is r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15127	15219	
==>geable "Engine" back-ends (usually provided by third
parties) implement.  This interface is r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27904	28013	
==>ine
a base class for your module's objects, or the object you create isn't
a modification of a standard object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	416	524	
==>ub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	416	524	
==>ub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	416	524	
==>ub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1064	1195	
==>);
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1064	1195	
==>);
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameter <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1064	1195	
==>);
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameter <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1379	1503	
==>t ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($pass) {
	_diag "# Failed $ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	516	623	
==>negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fa <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	516	623	
==>negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fa <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3060	3158	
==>PLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute bu <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3060	3158	
==>PLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute bu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3359	3477	
==>] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3359	3477	
==>] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            re <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	8	109	
==>IME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	8	109	
==>IME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10143	10288	
==>{ $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-indentation-style: bsd
# c-basic- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14427	14518	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14427	14518	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14427	14518	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6365	6456	
==>e or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6365	6456	
==>e or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6365	6456	
==>e or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_at <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5133	5241	
==>$two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4260	4368	
==>$two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5133	5241	
==>$two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4260	4368	
==>$two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1028	1124	
==>g objects that it finds along the way into new
namespaces. This is typically useful when your obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1028	1124	
==>g objects that it finds along the way into new
namespaces. This is typically useful when your obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1028	1124	
==>g objects that it finds along the way into new
namespaces. This is typically useful when your obj <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3344	3441	
==>out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3402	3499	
==>out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($ex <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	104	192	
==>Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	104	192	
==>Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	318	417	
==>().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	318	417	
==>().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	318	417	
==>().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1623	1715	
==>, $start_index, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) && <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2559	2654	
==>ix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2559	2654	
==>ix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2559	2654	
==>ix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Nu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14987	15075	
==>write(plus(cap(plus(R))),R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_rewrite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6445	6569	
==>s}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6445	6569	
==>s}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6445	6569	
==>s}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4115	4206	
==>Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4115	4206	
==>Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4115	4206	
==>Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1939	2052	
==>\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1939	2052	
==>\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1939	2052	
==>\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6497	6596	
==>:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6497	6596	
==>:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7369	7466	
==>:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7369	7466	
==>:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3443	3562	
==>::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	225	338	
==>nction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	225	338	
==>nction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	225	338	
==>nction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4175	4269	
==>args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4175	4269	
==>args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5699	5793	
==>args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24562	24666	
==>ne characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23326	23430	
==>ne characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24562	24666	
==>ne characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23326	23430	
==>ne characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5931	6057	
==>y Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5931	6057	
==>y Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5931	6057	
==>y Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1785	1881	
==>ocal $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumpe <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5842	5943	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4972	5073	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5842	5943	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4972	5073	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15972	16105	
==>};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1406	1503	
==>arn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1406	1503	
==>arn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1406	1503	
==>arn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10440	10551	
==>r all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10440	10551	
==>r all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10440	10551	
==>r all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8910	9010	
==>AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 O <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	740	838	
==>ammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34298	34391	
==>ational operator that returns the complement of
C<semijoin> with the same argument.  This meth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38848	38941	
==>ational operator that returns the complement of
C<semijoin> with the same argument.  This meth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38327	38420	
==>ational operator that returns the complement of
C<semijoin> with the same argument.  This meth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	7	107	
==>e Perl6::Core::Nil;

use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3981	4080	
==>failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output f <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3981	4080	
==>failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4061	4160	
==>failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output f <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	229	329	
==>= 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params re <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	229	329	
==>= 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	900	989	
==>ON

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	900	989	
==>ON

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3933	4032	
==>sed by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3933	4032	
==>sed by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	520	618	
==>R::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	520	618	
==>R::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6314	6433	
==>ave an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modif <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5387	5506	
==>ave an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modif <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6314	6433	
==>ave an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modif <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5387	5506	
==>ave an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modif <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	572	688	
==>r () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.t <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	572	688	
==>r () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8655	8750	
==>udes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8655	8750	
==>udes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4161	4259	
==>rns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4161	4259	
==>rns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2718	2814	
==>t_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$modul <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2718	2814	
==>t_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$modul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18629	18736	
==>eb page
     contains the link that the user followed to the current
     page.  Most browsers pass this inf <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18629	18736	
==>eb page
     contains the link that the user followed to the current
     page.  Most browsers pass this inf <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	669	769	
==>[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	669	769	
==>[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <A <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20858	20983	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21502	21627	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17279	17404	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17923	18048	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9428	9533	
==>l = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9428	9533	
==>l = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9428	9533	
==>l = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10383	10495	
==>ndler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10012	10124	
==>ndler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '' <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1684	1782	
==>> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<gr <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1684	1782	
==>> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<gr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37540	37656	
==>ft;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37540	37656	
==>ft;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37540	37656	
==>ft;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized valu <==
4	/Users/nnunley/pugs/util/package-osx.pl	10617	10728	
==>my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34179	34321	
==>))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', symbol->new( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	118	215	
==>ype: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	82	178	
==>ype: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	170	266	
==>ype: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2759	2867	
==>= [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2759	2867	
==>= [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2759	2867	
==>= [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(t <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	547	642	
==>s List of Object|Object
multi sub pairs  (@array ; Any|Junction *@indextests) returns List of Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6194	6298	
==>::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6194	6298	
==>::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6194	6298	
==>::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method <==
4	/Users/nnunley/pugs/util/drift.pl	100	186	
==>:Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40565	40658	
==>NTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26079	26172	
==>NTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40565	40658	
==>NTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26079	26172	
==>NTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9428	9559	
==>roc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9428	9559	
==>roc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8002	8111	
==>ty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
} <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8002	8111	
==>ty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6897	7028	
==>equired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%ha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11452	11583	
==>equired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%ha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12250	12381	
==>equired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%ha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12977	13108	
==>equired => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%ha <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	55	160	
==>erl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### P <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	56	161	
==>erl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### P <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	56	161	
==>erl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1735	1835	
==>JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1735	1835	
==>JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1735	1835	
==>JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	516	613	
==>put into the index files. jibs/ if
not specified.

=item index

Path to the index directory. defau <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7476	7577	
==>Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7476	7577	
==>Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2329	2427	
==>unctions return a closure.  Call the closure with a block of 
data to have it enciphered or deciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2329	2427	
==>unctions return a closure.  Call the closure with a block of 
data to have it enciphered or deciphe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9114	9256	
==>calar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9114	9256	
==>calar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9114	9256	
==>calar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Sc <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2376	2477	
==>s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_module {
    my $config = get_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6950	7082	
==>lse {
				return undef;
			}
		} elsif (ref($x) and ref($y)) {
			return unless @$x == @$y;
			my @x = @$x;
			my @y = @$y;

			while <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3931	4036	
==>efined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3931	4036	
==>efined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 me <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3931	4036	
==>efined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 me <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	472	568	
==>rrot_Interp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typema <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12291	12448	
==>[ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ... <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12291	12448	
==>[ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ... <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12291	12448	
==>[ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ... <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7826	8042	
==>ructure:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	408	517	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($tod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	408	517	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($tod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	408	517	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($tod <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5525	5635	
==>oo], see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @value <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6501	6618	
==>"$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6501	6618	
==>"$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $st <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4585	4682	
==>ntent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4585	4682	
==>ntent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3064	3265	
==>nslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3064	3265	
==>nslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9003	9180	
==>key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9003	9180	
==>key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	130	246	
==>ta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = calle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	130	246	
==>ta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = calle <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	130	246	
==>ta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = calle <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9036	9151	
==>name;
    my @kv;
    for my $k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1019	1128	
==>rait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1893	2002	
==>rait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1019	1128	
==>rait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1893	2002	
==>rait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4066	4181	
==>}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4066	4181	
==>}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4066	4181	
==>}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($met <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	282	385	
==>y $res = (ref $self)->new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = sh <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4143	4252	
==>for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2825	2918	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2825	2918	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2825	2918	
==>ACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13923	14027	
==>on::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13923	14027	
==>on::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13923	14027	
==>on::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30117	30211	
==>ther empty or equal to
the invocant Relation::Example's header, in which case it returns the id <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2913	3016	
==>tware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Publi <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3070	3173	
==>tware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Publi <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2913	3016	
==>tware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Publi <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3070	3173	
==>tware; you can redistribute it and/or modify it under
the terms of either:

    a) the GNU General Publi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1763	1891	
==>s . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesse <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1763	1891	
==>s . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesse <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1763	1891	
==>s . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesse <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2934	3044	
==>>mkpath() or error($!), return;
    }

    return 1;
}

### these plural functions seem more confusion than hel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7711	7864	
==>);
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'dec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7711	7864	
==>);
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'dec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7711	7864	
==>);
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'dec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16400	16493	
==><\w>, C<\d>, etc.  Then this
example would be reversed into something like C</(\w+(?<!\d))(\d+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14795	14898	
==>{};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14795	14898	
==>{};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14795	14898	
==>{};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41025	41121	
==>second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=back

=head1 SEE <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3900	4007	
==>ng is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gath <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3900	4007	
==>ng is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gath <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	5	99	
==>age Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	5	99	
==>age Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13367	13465	
==>et2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13367	13465	
==>et2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note th <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4656	4746	
==>nfig::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4656	4746	
==>nfig::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config <==
4	/Users/nnunley/pugs/util/package-osx.pl	10856	11004	
==>\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7721	7825	
==>\\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9649	9753	
==>\\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7709	7813	
==>\\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	920	1028	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	920	1028	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19642	19738	
==>ticate itself with a server or a
proxy, may do so by including these headers.

=item $h.authoriza <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19642	19738	
==>ticate itself with a server or a
proxy, may do so by including these headers.

=item $h.authoriza <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3157	3260	
==>y ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3157	3260	
==>y ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3157	3260	
==>y ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17011	17171	
==>$n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17011	17171	
==>$n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17011	17171	
==>$n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @pa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26984	27077	
==>(ide("pair")), "∀α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide("fst")), "∀α. <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	780	876	
==>_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no npare <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29070	29163	
==>tor that returns a new Relation::Example
which is the same as the invocant Relation::Example b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31918	32011	
==>tor that returns a new Relation::Example
which is the same as the invocant Relation::Example b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32965	33058	
==>tor that returns a new Relation::Example
which is the same as the invocant Relation::Example b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6022	6128	
==>elf->{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3145	3250	
==>s.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3145	3250	
==>s.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3145	3250	
==>s.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1763	1950	
==>uleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1420	1528	
==>x.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1420	1528	
==>x.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1420	1528	
==>x.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7516	7688	
==>ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7516	7688	
==>ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7516	7688	
==>ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4166	4268	
==>));
}

sub define_named_block {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	24	125	
==>Perl6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation in the __END__
use 5.006;
use s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2181	2276	
==>{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2181	2276	
==>{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2181	2276	
==>{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28272	28364	
==>"FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method creates a method of the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4414	4504	
==>, '... go the right superclass name for Point3D');
is($p3d->prototype->prototype->class, \& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	72	172	
==>IL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	72	172	
==>IL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	72	172	
==>IL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3604	3712	
==>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3604	3712	
==>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3604	3712	
==>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2198	2296	
==>e = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $reduced_struct = $self->SU <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12495	12645	
==>n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12489	12639	
==>n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2776	2888	
==>return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2776	2888	
==>return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2776	2888	
==>return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2503	2613	
==>IL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2503	2613	
==>IL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2503	2613	
==>IL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10780	10891	
==>nd Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10780	10891	
==>nd Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10780	10891	
==>nd Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/util/build_pugs.pl	103	197	
==>qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	251	352	
==>inite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_e <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	251	352	
==>inite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_e <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4288	4388	
==>b all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @t <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4288	4388	
==>b all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1756	1848	
==>led = $self->compile(@_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($compiled) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3944	4085	
==>[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37024	37137	
==>efined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37024	37137	
==>efined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37024	37137	
==>efined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12392	12588	
==>l',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1451	1544	
==>preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1451	1544	
==>preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1451	1544	
==>preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28472	28575	
==>ve $2 as an unsuccessful match.
//x isnt being handled (re_rewrite step?)
lots of stuff with an XXX abov <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6394	6504	
==>stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@toke <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5467	5577	
==>stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@toke <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6394	6504	
==>stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@toke <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5467	5577	
==>stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@toke <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	761	858	
==>rectory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join(' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	761	858	
==>rectory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join(' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17132	17225	
==>.

=item $h.content_language

The natural language(s) of the intended audience for the message <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17132	17225	
==>.

=item $h.content_language

The natural language(s) of the intended audience for the message <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5130	5256	
==>ile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5331	5453	
==>ile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5331	5453	
==>ile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	221	336	
==>> sub { 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11822	11970	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11822	11970	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11822	11970	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:ce <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26949	27039	
==>guage::Prolog::Types qw(:ctors);
use Benchmark qw(:all);
require "m02.pl";
require "re05.pl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3675	3860	
==>od' => $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	534	629	
==>.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	534	629	
==>.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	534	629	
==>.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18707	18825	
==>> sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15128	15246	
==>> sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30466	30584	
==>> sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26902	27002	
==>omatch)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7243	7415	
==>less ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7243	7415	
==>less ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7243	7415	
==>less ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	527	641	
==>}

sub CookiesHeader() {
    my $header = '';
    for(%Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ "=" <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2791	2916	
==>urn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open & <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2791	2916	
==>urn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27232	27347	
==>p::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27511	27626	
==>p::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1753	1857	
==>w {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1753	1857	
==>w {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($fiel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4092	4189	
==>INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
suc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4092	4189	
==>INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
suc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2504	2649	
==>nd,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, U32 flags)
{
  if(!CONTAINS_RECOGNITIO <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4214	4329	
==>ion_build
    ? '../..'
    : $self->{_top}{base};

    # Escape ' and \ in $base pathname 
    $base =~ s{(['\\])}{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15436	15535	
==>hat kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be used <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15436	15535	
==>hat kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be used <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1798	1898	
==>warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1798	1898	
==>warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1798	1898	
==>warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ig <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	667	762	
==>d as insufficiently tractable.
# By requiring far more effort than was hoped, it became unintere <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2891	2986	
==>on($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stri <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2891	2986	
==>on($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stri <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4429	4518	
==>nt describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentatio <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4429	4518	
==>nt describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentatio <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3916	4034	
==>mts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Ex <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3916	4034	
==>mts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Ex <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	766	884	
==>mts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Ex <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26802	26897	
==>m the test being run.  Setting C<$Test::Harness::Debug> will
override this, or you can use the C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24522	24616	
==>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23286	23380	
==>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24522	24616	
==>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23286	23380	
==>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<loggedin <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4442	4570	
==>ence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4442	4570	
==>ence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $s <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	267	367	
==>'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	267	367	
==>'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4743	4928	
==>etch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too man <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4743	4928	
==>etch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too man <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4743	4928	
==>etch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too man <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	59	151	
==>:Harness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6456	6563	
==>} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6456	6563	
==>} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 . <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6456	6563	
==>} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 . <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6885	6982	
==>p-in) for my old
F<YAPE::Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To use this m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30391	30512	
==>ke_descendant_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':ascendant')) == $bit: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36979	37072	
==>cal headings, for these their joining
degenerates to a C<intersection>.  In any situation wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41528	41621	
==>cal headings, for these their joining
degenerates to a C<intersection>.  In any situation wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41151	41244	
==>cal headings, for these their joining
degenerates to a C<intersection>.  In any situation wher <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27052	27164	
==>.= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27052	27164	
==>.= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_k <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8642	8744	
==>s is where this method comes into play
# it will recurse down the tree and fix the
# depth fields appro <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8642	8744	
==>s is where this method comes into play
# it will recurse down the tree and fix the
# depth fields appro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1017	1124	
==>pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1017	1124	
==>pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1017	1124	
==>pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's on <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4305	4412	
==>_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4305	4412	
==>_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2145	2247	
==>>name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args);
    $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1255	1353	
==>>name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
    $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	695	795	
==>s->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20196	20285	
==>xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20196	20285	
==>xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20196	20285	
==>xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	166	333	
==>or(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	166	333	
==>or(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	166	333	
==>or(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22229	22323	
==>Relation -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.1.0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1074	1247	
==>6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1074	1247	
==>6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1074	1247	
==>6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13322	13439	
==>act => chr hex $num, $rep);
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	116	250	
==>package Blondie::Reducer::DynamicScoping::Pad;
    use base qw/Blondie::Map/;
}

sub find_dyn_sym {
    my $self = shift;
    my $symbo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9634	9757	
==>sh.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9634	9757	
==>sh.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $d <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1331	1451	
==>urn;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fn <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	737	844	
==>", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10022	10128	
==>e (my $node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it returns the n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7968	8073	
==>) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7956	8061	
==>) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
4	/Users/nnunley/pugs/util/run-smoke.pl	323	422	
==>You don't seem to have the required modules installed.
Please install it from the CPAN and try again <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1681	1777	
==>calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1681	1777	
==>calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1681	1777	
==>calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1468	1568	
==>< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1468	1568	
==>< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1468	1568	
==>< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1664	1841	
==>->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6683	6784	
==>y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	104	205	
==>nd multimethods)

# first part is a type pretty printer and the type object model
# it emits greek let <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6683	6784	
==>y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6683	6784	
==>y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is t <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2472	2572	
==>nd <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_em <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2472	2572	
==>nd <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_em <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9473	9571	
==>ences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9473	9571	
==>ences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15669	15792	
==>{
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2066	2189	
==>{
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8977	9079	
==>c.



overload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8682	8780	
==>c.

overload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you ca <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1424	1527	
==>sure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_pr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1424	1527	
==>sure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_pr <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11115	11209	
==>ty

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$lo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11115	11209	
==>ty

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$lo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9132	9244	
==>method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1260	1366	
==>method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1260	1366	
==>method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	764	919	
==>rity => 3,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32426	32521	
==>eader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36976	37071	
==>eader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36266	36361	
==>eader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6579	6716	
==>_('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6579	6716	
==>_('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6579	6716	
==>_('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5263	5379	
==>le_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	170	275	
==>b "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	170	275	
==>b "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	170	275	
==>b "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BS <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21354	21440	
==>(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14310	14471	
==>nation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14589	14750	
==>nation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1882	1986	
==>N { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use F <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1882	1986	
==>N { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11835	12001	
==>d eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Ea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11835	12001	
==>d eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Ea <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11835	12001	
==>d eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Ea <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5619	5719	
==>r::caller(skip => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2096	2209	
==>&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2107	2220	
==>&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywh <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2926	3030	
==>ends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2984	3088	
==>ends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, : <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2379	2501	
==>method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2379	2501	
==>method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2119	2229	
==>'path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2119	2229	
==>'path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13203	13329	
==>rn _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op1 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1621	1724	
==>open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1621	1724	
==>open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11621	11751	
==>) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $out);
        ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5328	5434	
==>ss->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5328	5434	
==>ss->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5328	5434	
==>ss->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (de <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1385	1483	
==>_

=pod

=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head1 SYNOPSIS

	use Blondie::A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4247	4341	
==>infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4247	4341	
==>infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4247	4341	
==>infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1748	1856	
==>p")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1748	1856	
==>p")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1748	1856	
==>p")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33812	33907	
==>'&' metacharacter will mean.  If you've used F<vim>, you might know
about its '\&' regex asserti <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	872	994	
==>ned($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	594	702	
==>pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	594	702	
==>pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	594	702	
==>pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10517	10701	
==>alue_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10517	10701	
==>alue_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_var <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7396	7489	
==>d _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7396	7489	
==>d _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_AR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3410	3529	
==>[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3410	3529	
==>[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3410	3529	
==>[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1934	2028	
==>sure);
    $optable->addToken("postfix:*", "<term:", "left", $parse_quant);
    $optable->addTo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1503	1621	
==>{
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

subme <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1503	1621	
==>{
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

subme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3453	3628	
==>{
        my $bool = substr( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11851	11982	
==>self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11851	11982	
==>self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11851	11982	
==>self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7537	7677	
==>nt( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7730	7870	
==>nt( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         rul <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13225	13315	
==>by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13225	13315	
==>by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	61	163	
==>:Core::Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Sca <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7191	7292	
==>return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7191	7292	
==>return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7191	7292	
==>return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35972	36069	
==>'s a look-ahead.  We send the unrolled contents of the
array reference as the contents of the look <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7741	7840	
==>, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7741	7840	
==>, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1845	1941	
==>Little and others.

This program is free software; you can redistribute it and/or modify it
under <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1845	1941	
==>Little and others.

This program is free software; you can redistribute it and/or modify it
under <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35450	35588	
==>pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35450	35588	
==>pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35450	35588	
==>pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27668	27758	
==>object base class.  All
user-defined F<MyRx::*> objects inherit from F<MyRx::__object__> fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	304	401	
==>AsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	304	401	
==>AsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	304	401	
==>AsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	445	588	
==>bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	445	588	
==>bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	445	588	
==>bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pi <==
4	/Users/nnunley/pugs/util/drift.pl	561	678	
==>!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/data/;
    s/--.*$//;
    /\S/ or next;
    print TMP $_;
}
close IN;
c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12266	12369	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6833	6936	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12266	12369	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6833	6936	
==>=> $meth, 'ARG' => $arg } )
        if !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20513	20729	
==>cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20513	20729	
==>cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20513	20729	
==>cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2313	2436	
==>::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2324	2447	
==>::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2012	2115	
==>assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2012	2115	
==>assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'po <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20807	20902	
==>ef describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19724	19819	
==>ef describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20807	20902	
==>ef describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19724	19819	
==>ef describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2797	2914	
==>l->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2797	2914	
==>l->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2797	2914	
==>l->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	918	1029	
==>trict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Regex->compile( 
        $rule, 
        { gra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21829	21983	
==>ersal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21829	21983	
==>ersal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21829	21983	
==>ersal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9562	9658	
==>ter = $parser->walker;

This will produce an iterator that will traverse the entire parse tree,
t <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9391	9539	
==>S-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9391	9539	
==>S-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10186	10292	
==>span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10186	10292	
==>span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7444	7613	
==>) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	745	914	
==>) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	572	666	
==>) - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        ! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	572	666	
==>) - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5735	5826	
==>libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5735	5826	
==>libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~li <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5735	5826	
==>libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~li <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18303	18409	
==>tr $input ; Rule $delimiter          , Int $limit = inf --> List )
 &split<> := &split<Str>.assuming:delimi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	10	109	
==>::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	10	109	
==>::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	10	109	
==>::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { di <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2032	2151	
==>we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2032	2151	
==>we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2032	2151	
==>we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spe <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21146	21232	
==>- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2145	2257	
==>requires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2053	2153	
==>tisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2053	2153	
==>tisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2053	2153	
==>tisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6704	6822	
==>eturns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2365	2483	
==>arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6704	6822	
==>eturns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2365	2483	
==>arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12694	12811	
==>ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5054	5160	
==>cro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5054	5160	
==>cro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5054	5160	
==>cro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2210	2307	
==>use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2210	2307	
==>use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11239	11333	
==>do, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, but <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11297	11391	
==>do, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, but <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7136	7250	
==>)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7136	7250	
==>)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7136	7250	
==>)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2702	2815	
==>a subclass of L<Blondie::Reducere> that performs the actions denoted by
the AST, ultimately flattenning the tree d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	469	574	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	469	574	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	469	574	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4104	4216	
==>ity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4104	4216	
==>ity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4104	4216	
==>ity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $un <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6593	6692	
==>/haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $1 >= 6 and $2 >= 4) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8468	8617	
==>str( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8468	8617	
==>str( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_sub <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40263	40355	
==>::KeyedText that you modify and distribute must carry
prominent notices stating that you chan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40263	40355	
==>::KeyedText that you modify and distribute must carry
prominent notices stating that you chan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2026	2145	
==>ndef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2026	2145	
==>ndef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2026	2145	
==>ndef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1205	1317	
==>fe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8111	8249	
==>. ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	272	410	
==>n {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8111	8249	
==>. ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8111	8249	
==>. ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8056	8189	
==>s, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!coo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8056	8189	
==>s, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!coo <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	147	245	
==>rc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trig <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	147	245	
==>rc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7234	7401	
==>t( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	252	352	
==>m here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	252	352	
==>m here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	252	352	
==>m here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9786	9926	
==>d = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9786	9926	
==>d = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3344	3445	
==>r { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3344	3445	
==>r { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3157	3268	
==>@a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7847	7958	
==>if !defined $rb->[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3157	3268	
==>@a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3157	3268	
==>@a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16994	17109	
==>"${ROOT}::${pkg}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12128	12223	
==>l5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12128	12223	
==>l5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12128	12223	
==>l5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1915	2014	
==>less $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    return { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1838	1935	
==>less $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14528	14623	
==>string, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Good <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14528	14623	
==>string, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Good <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4248	4370	
==>$self->{values}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3362	3455	
==>ss represents a single test within the
Test::Builder framework. The class itself is actually a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3362	3455	
==>ss represents a single test within the
Test::Builder framework. The class itself is actually a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5559	5652	
==>ss represents a single test within the
Test::Builder framework. The class itself is actually a <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5028	5129	
==>egin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run is overall suc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7865	7958	
==>foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7865	7958	
==>foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7865	7958	
==>foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2427	2540	
==>e', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2427	2540	
==>e', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2774	2887	
==>e', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7682	7858	
==>item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7682	7858	
==>item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7682	7858	
==>item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy sl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3962	4116	
==>})
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })->do_while(
                block->new($e, s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	755	868	
==>tart <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	755	868	
==>tart <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1041	1150	
==>o);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1041	1150	
==>o);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4184	4268	
==>a::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4184	4268	
==>a::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta:: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4245	4349	
==>rown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns B <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4303	4407	
==>rown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns B <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13023	13120	
==>ifier is also used internally when joining two spans, and when getting the span size.

Create a sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13023	13120	
==>ifier is also used internally when joining two spans, and when getting the span size.

Create a sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2246	2346	
==>ecursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2246	2346	
==>ecursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2246	2346	
==>ecursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8352	8535	
==>has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8352	8535	
==>has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8352	8535	
==>has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2001	2137	
==>w this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run per <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	315	451	
==>w this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2001	2137	
==>w this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2001	2137	
==>w this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ":5 <p5code>    run per <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9795	9934	
==>ake pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1511	1602	
==>, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1511	1602	
==>, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1511	1602	
==>, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6647	6760	
==>1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $name, @mess) = @_;
    my $pass;
    $pass = $got <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	363	473	
==>{
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Ar <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5488	5584	
==>)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5488	5584	
==>)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5242	5360	
==>my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5464	5582	
==>my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	494	597	
==>E - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	505	608	
==>E - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.* <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15532	15635	
==>e was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15532	15635	
==>e was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26180	26277	
==>er, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26180	26277	
==>er, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8001	8101	
==>elete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8001	8101	
==>elete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8966	9084	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8954	9072	
==>ogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Ar <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	27	125	
==>se v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'lo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	27	125	
==>se v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'lo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	769	923	
==>p_dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1110	1254	
==>_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1110	1254	
==>_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1110	1254	
==>_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3919	4058	
==>zed);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3919	4058	
==>zed);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2502	2617	
==>:Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2502	2617	
==>:Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24085	24196	
==>ODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24085	24196	
==>ODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24085	24196	
==>ODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1297	1388	
==>ode =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1472	1573	
==>' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21434	21535	
==>ass_pos(word)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C) :- !, \+(char <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1472	1573	
==>' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1472	1573	
==>' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5867	5966	
==>ent based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of d <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5867	5966	
==>ent based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	503	594	
==>s module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docume <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	503	594	
==>s module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docume <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11907	12014	
==>=> 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13299	13406	
==>=> 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11907	12014	
==>=> 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13299	13406	
==>=> 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1189	1287	
==>lf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1189	1287	
==>lf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1189	1287	
==>lf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	696	810	
==>my $const = $_[0];
    my $len = length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20062	20169	
==>rop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if($param =~ /\*/) {
	my $modifyargs ="" <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11406	11502	
==>ction( $recurrence )`

Returns only the elements in this recurrence that are also in the given re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11406	11502	
==>ction( $recurrence )`

Returns only the elements in this recurrence that are also in the given re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	137	244	
==>{
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	137	244	
==>{
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	137	244	
==>{
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22161	22255	
==>um);char_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_type(C,space) ; C = 11), ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4251	4367	
==>ource .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4251	4367	
==>ource .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4251	4367	
==>ource .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTok <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2373	2468	
==>::Backend::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20163	20273	
==>c> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19122	19232	
==>c> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20163	20273	
==>c> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19122	19232	
==>c> is the timestamp of when the last
traffic from the server was seen, and C<last_autoping> is the timestamp of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16461	16641	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16740	16920	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5397	5542	
==>at we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5861	6006	
==>at we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1010	1100	
==>CH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1010	1100	
==>CH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1010	1100	
==>CH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6796	6919	
==>!perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6796	6919	
==>!perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6796	6919	
==>!perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (an <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20643	20742	
==>liserNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3585	3700	
==>XX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4902	5017	
==>XX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3585	3700	
==>XX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4890	5005	
==>XX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14346	14482	
==>lar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14346	14482	
==>lar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14346	14482	
==>lar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) { <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2883	2981	
==>Jun Jul Aug Sep Oct Nov Dec>;
method month_abbr returns Str { @months_abbr[./month_0] }

# yes, the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1771	1883	
==>nly for performance reasons,

# because they are too frequent and they are too slow using the basic 

# rule pars <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1699	1809	
==>nly for performance reasons,
# because they are too frequent and they are too slow using the basic 
# rule pars <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	374	483	
==>nly for performance reasons,
# because they are too frequent and they are too slow using the basic
# rule pars <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	385	494	
==>nly for performance reasons,
# because they are too frequent and they are too slow using the basic
# rule pars <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	140	244	
==>'::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1238	1328	
==>side the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1238	1328	
==>side the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1238	1328	
==>side the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	535	641	
==>],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ST <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1393	1499	
==>],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ST <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19387	19478	
==>finition statements are structured as
standard data manipulation statements but that the tar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19387	19478	
==>finition statements are structured as
standard data manipulation statements but that the tar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1561	1708	
==>pace_before ) {
                # XXX - angle quotes are always tried even if it were expecting a simple '<'
            
                # after wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11022	11125	
==>" method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11022	11125	
==>" method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11022	11125	
==>" method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14850	14975	
==>ant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14850	14975	
==>ant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14850	14975	
==>ant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	84	328	
==>'t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Const <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	84	328	
==>'t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Const <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	118	214	
==>piler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	118	214	
==>piler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43513	43606	
==>s to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pend <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	916	1008	
==>lPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	916	1008	
==>lPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1463	1555	
==>lPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18925	19028	
==>end

.namespace [ "PGE::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, sa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37931	38027	
==>h every tuple of each other source relation, then where each member of a
tuple pair has attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42480	42576	
==>h every tuple of each other source relation, then where each member of a
tuple pair has attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42130	42226	
==>h every tuple of each other source relation, then where each member of a
tuple pair has attribute <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2075	2182	
==>($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, values are 2 char strings such as \n
my %backs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4357	4451	
==>myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4357	4451	
==>myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4357	4451	
==>myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them in <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	354	467	
==>m merge list_to_stream cutsort
#                 iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2796	2887	
==>ject->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2796	2887	
==>ject->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2796	2887	
==>ject->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2401	2517	
==>lar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3152	3257	
==>my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3152	3257	
==>my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3152	3257	
==>my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::m <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	692	796	
==>~ url_encode(%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    for(sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1315	1425	
==>s.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1315	1425	
==>s.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1315	1425	
==>s.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Mo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7773	7908	
==>otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry-> <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1074	1209	
==>otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12109	12216	
==>t_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12109	12216	
==>t_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3080	3241	
==>$token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syncat} = PGE_OPTABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_O <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1370	1467	
==>S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1370	1467	
==>S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1370	1467	
==>S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	35	140	
==>educer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub reduce {
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	874	965	
==>se Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	874	965	
==>se Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	874	965	
==>se Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5019	5128	
==>ure => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5241	5350	
==>ure => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9348	9438	
==>ush @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3173	3263	
==>ush @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Pe <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4954	5079	
==>e"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4954	5079	
==>e"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(9 <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9597	9712	
==>urn if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubbl <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9597	9712	
==>urn if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubbl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	647	776	
==>tch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	744	873	
==>tch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7209	7306	
==>ers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7209	7306	
==>ers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11681	11795	
==>entify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11681	11795	
==>entify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11681	11795	
==>entify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6 <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	192	277	
==>tp.perl.org/group/perl.perl6.language/20985
  docs/quickref/rules
  http://search.cpan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8199	8322	
==>) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8199	8322	
==>) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8199	8322	
==>) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i <==
4	/Users/nnunley/pugs/util/version_h.pl	519	627	
==>n = 0;

# SVK tries to ask the user questions when it has a STDIN and there is
# no repository.  Since we don <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9474	9610	
==>self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETUR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9474	9610	
==>self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETUR <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9474	9610	
==>self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETUR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13480	13599	
==>ated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1922	2014	
==>l6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1922	2014	
==>l6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1922	2014	
==>l6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::C <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16987	17121	
==>the test run, if from a file
  wait              the wait code of the test run, if from a file

  max               total tests which s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4905	5016	
==>5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4905	5016	
==>5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5495	5606	
==>5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_a <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2804	2966	
==>nge -1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	226	333	
==>} catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	226	333	
==>} catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	226	333	
==>} catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6321	6428	
==>content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4754	4861	
==>e on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4754	4861	
==>e on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6321	6428	
==>content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12323	12517	
==>r, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12317	12511	
==>r, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                " <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3372	3488	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3372	3488	
==>um' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17598	17760	
==>)/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14019	14181	
==>)/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1497	1597	
==>s>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rul <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12844	12929	
==>character_tail([C,T],Close) --> [C], p6_named_character_tail(T,Close).


brackets("{", <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7251	7355	
==>s->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1316	1411	
==>tput=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1316	1411	
==>tput=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1316	1411	
==>tput=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6010	6112	
==>ch_3";
  goto token_match;
  bsr_token_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	378	478	
==>que is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	378	478	
==>que is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	378	478	
==>que is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDAL <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4115	4219	
==>st>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4115	4219	
==>st>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	457	560	
==>aque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	457	560	
==>aque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	457	560	
==>aque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3496	3587	
==>t->a.$/;
print &Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10351	10493	
==>t>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6692	6834	
==>t>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7541	7683	
==>t>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	189	300	
==>e 'Need at least one package';

my @List = LoadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my $trie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4534	4639	
==>->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4534	4639	
==>->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4534	4639	
==>->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6164	6292	
==>($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $expected) {
            unshift @mess, "# $got - $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2059	2152	
==>method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2059	2152	
==>method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2059	2152	
==>method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3278	3417	
==>{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matches[1]{abort} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3173	3309	
==>{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matches[1]{abort} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16921	17014	
==>tribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16921	17014	
==>tribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2220	2320	
==>ON

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have ob <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2220	2320	
==>ON

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have ob <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3710	3809	
==>fference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3710	3809	
==>fference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.u <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2073	2239	
==>rt         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2073	2239	
==>rt         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1161	1299	
==>)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1115	1246	
==>)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1297	1424	
==>st result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess fl <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1297	1424	
==>st result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess fl <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	246	365	
==>h = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	246	365	
==>h = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3067	3196	
==>$gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = $Config{fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5132	5240	
==>ken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5132	5240	
==>ken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5132	5240	
==>ken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1041	1410	
==>,
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	282	383	
==>ed by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thing <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	282	383	
==>ed by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thing <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	282	383	
==>ed by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thing <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	931	1057	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1324	1450	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	931	1057	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1324	1450	
==>1;
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1384	1498	
==>body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1384	1498	
==>body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1384	1498	
==>body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13427	13528	
==>n>
    | <MemberExpression> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2078	2170	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	241	333	
==>ng, recursive-decent engine, generated from the
# regexp ast nodes created by Regexp::Parser. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2078	2170	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2078	2170	
==>$self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	447	543	
==>e lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Securi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	447	543	
==>e lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Securi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6806	6900	
==>s fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6806	6900	
==>s fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	809	937	
==>d";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	809	937	
==>d";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	809	937	
==>d";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16643	16743	
==>le *@others) returns Relation::Example {

    # First do some optimizing of the order that source rel <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4857	5013	
==>tch, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4857	5013	
==>tch, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6836	6934	
==>y of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6836	6934	
==>y of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	877	983	
==>ms;
 }

 multi sub Array::grep (@values ;      Code *&test  ) returns Lazy
 multi sub Array::grep (@values, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1885	1981	
==>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1885	1981	
==>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1885	1981	
==>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUP <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26702	26799	
==>vely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invoc <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	101	198	
==>"wert";

#!\pause
# Etwas besser, aber jedoch unübersichtlich:
my $option = $para{'x'};
$option = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31254	31351	
==>vely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invoc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30283	30380	
==>vely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2084	2177	
==>erl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2084	2177	
==>erl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2084	2177	
==>erl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9302	9428	
==>push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9302	9428	
==>push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9302	9428	
==>push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args. <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	964	1072	
==>n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11713	11823	
==>TCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11713	11823	
==>TCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11713	11823	
==>TCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4888	5024	
==>e     grep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, Lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1903	2009	
==>9])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1903	2009	
==>9])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1903	2009	
==>9])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10306	10422	
==>y $outfile = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test file $outp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2617	2720	
==>$_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1229	1332	
==>$_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1930	2033	
==>$_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $n <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17020	17141	
==>r $string              --> Str )
 multi Str::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5000	5114	
==>e;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5000	5114	
==>e;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5000	5114	
==>e;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub f <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1270	1415	
==>span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4509	4654	
==>span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1270	1415	
==>span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4509	4654	
==>span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_ope <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4188	4342	
==>e( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4210	4301	
==>ttribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4210	4301	
==>ttribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4210	4301	
==>ttribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3937	4033	
==>Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3937	4033	
==>Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &S <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	400	495	
==>node   = $node if $node.defined;   
}

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	400	495	
==>node   = $node if $node.defined;   
}

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37844	37937	
==>lation is
the result of first pairwise-matching every tuple of each source relation
with every <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42393	42486	
==>lation is
the result of first pairwise-matching every tuple of each source relation
with every <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42043	42136	
==>lation is
the result of first pairwise-matching every tuple of each source relation
with every <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	385	585	
==>onstant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	386	586	
==>onstant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8703	8805	
==>, ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 F <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8703	8805	
==>, ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 F <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2242	2375	
==>ty;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2242	2375	
==>ty;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2242	2375	
==>ty;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3538	3654	
==>, $name, @mess);
}

sub isnt ($$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !defined $got || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6851	7014	
==>\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6851	7014	
==>\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6851	7014	
==>\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1359	1496	
==>"label = \"" . $node->name . "(" . $node->id . ")\" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8135	8264	
==>> 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4969	5075	
==>n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4969	5075	
==>n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2318	2415	
==>r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5517	5638	
==>nfix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a ne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5517	5638	
==>nfix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19467	19565	
==>value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19467	19565	
==>value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5701	5813	
==>a::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5701	5813	
==>a::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6291	6403	
==>a::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

pa <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15600	15699	
==>ple, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a lev <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8191	8316	
==>ies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8191	8316	
==>ies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26199	26294	
==>ers are ignored).  Each variable name can be any
defined and non-empty string, and each variable <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26199	26294	
==>ers are ignored).  Each variable name can be any
defined and non-empty string, and each variable <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	238	362	
==>mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	238	362	
==>mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	238	362	
==>mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5361	5465	
==>ct_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => $() ,} }
RULE
*{'_print'} = Pugs <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1729	1827	
==>$options, "nows") >= 0);

  #print "name: $name - eq: $equivalence - rp: $relativePrecedence - opti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1666	1759	
==>')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1666	1759	
==>')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1666	1759	
==>')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1641	1745	
==>char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord $char);
    }
} <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1641	1745	
==>char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord $char);
    }
} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13273	13370	
==>icrosoft systems.

  The implementation reaches into perlguts, which limits the range of
  perl ve <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30949	31042	
==>d a new POSIX character class, its handler
must start with "POSIX_".

=item $parser->del_handl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4003	4112	
==>ys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4003	4112	
==>ys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4003	4112	
==>ys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6918	7020	
==>term:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error(mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	712	831	
==>ass(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	712	831	
==>ass(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	712	831	
==>ass(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	213	320	
==>returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub split <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	213	320	
==>returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub split <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20827	20917	
==>compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20827	20917	
==>compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	163	280	
==>up {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	163	280	
==>up {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	163	280	
==>up {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	57	159	
==>arFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	57	159	
==>arFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	57	157	
==>arFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	57	157	
==>arFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1087	1186	
==>un.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TA <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1087	1186	
==>un.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1634	1733	
==>un.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TA <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3168	3290	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (St <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6293	6415	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (St <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3168	3290	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (St <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6293	6415	
==>EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (St <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2764	2889	
==>( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2764	2889	
==>( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3558	3679	
==>( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3558	3679	
==>( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6428	6531	
==>ne.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5558	5661	
==>ne.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6428	6531	
==>ne.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5558	5661	
==>ne.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7517	7633	
==>)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7517	7633	
==>)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7517	7633	
==>)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12970	13102	
==>x} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6445	6577	
==>x} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11403	11601	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11403	11601	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11403	11601	
==>l;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5997	6099	
==>=> $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2935	3052	
==>q @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathch <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2935	3052	
==>q @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathch <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	217	323	
==>gs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - I <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	217	323	
==>gs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5580	5689	
==>fault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5580	5689	
==>fault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5580	5689	
==>fault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52538	52624	
==>his is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => list->new($::Class <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5247	5424	
==>0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        } <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5247	5424	
==>0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        } <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	931	1031	
==>:$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	989	1089	
==>:$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1337	1481	
==>($idx);
                unless ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_storeElem($idx, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27643	27738	
==>onding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
gi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32195	32290	
==>onding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
gi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31287	31382	
==>onding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
gi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16553	16639	
==>(group(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9075	9193	
==>turn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9075	9193	
==>turn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requi <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2790	2888	
==>dex (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2790	2888	
==>dex (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26810	26951	
==>on;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27089	27230	
==>on;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11859	11970	
==>oreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	268	374	
==>oreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15121	15222	
==>igest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand fold <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15121	15222	
==>igest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand fold <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11981	12080	
==>e element in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the elem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11981	12080	
==>e element in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the elem <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	978	1108	
==>int "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	989	1119	
==>int "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	935	1043	
==>Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	935	1043	
==>Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5175	5297	
==>e_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    ) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5175	5297	
==>e_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    ) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17939	18036	
==>egexp engine is entangled with the rest of the perl core.
Some of the interaction is via global va <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2298	2395	
==>egexp engine is entangled with the rest of the perl core.
Some of the interaction is via global va <==
4	/Users/nnunley/pugs/util/drift.pl	1256	1368	
==>}

#ifndef HADDOCK









SCARY

# splice(@program, 2, 0, @scary_header);

open IN, $in or die $!;
open OUT, "> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	506	603	
==>>catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	506	603	
==>>catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	506	603	
==>>catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2921	3050	
==>$perl eq $^X ) {
        ### just load the config        
        require Config;
        $perl_version = $Config::Config{version} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16949	17070	
==>o_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16949	17070	
==>o_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16949	17070	
==>o_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 b <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	158	281	
==>me tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infi <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	166	289	
==>me tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infi <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	158	281	
==>me tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infi <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	166	289	
==>me tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22801	22914	
==>ication of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@args);
}


no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5520	5621	
==>em. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5520	5621	
==>em. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5520	5621	
==>em. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on s <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	162	265	
==>Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1537	1631	
==>e optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1537	1631	
==>e optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1537	1631	
==>e optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3580	3683	
==>me !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3580	3683	
==>me !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3580	3683	
==>me !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1753	1859	
==>r, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1753	1859	
==>r, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1753	1859	
==>r, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::e <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3260	3355	
==>\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th line\n\n\n\n\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17199	17312	
==>f we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17199	17312	
==>f we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17199	17312	
==>f we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($clas <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18637	18733	
==>ects in separate
threads try to access the same external resources.>

Rosetta does not use any di <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18637	18733	
==>ects in separate
threads try to access the same external resources.>

Rosetta does not use any di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15547	15641	
==>hristopher J. Date and Hugh
Darwen for a solid foundation for data and database management syst <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15547	15641	
==>hristopher J. Date and Hugh
Darwen for a solid foundation for data and database management syst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7256	7401	
==>ess sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7256	7401	
==>ess sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7256	7401	
==>ess sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instan <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	352	455	
==>_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_v <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2592	2723	
==>ttt{";
		next;
	    }
	    
	    # normal comment
	    print '\syncomment{';
	    while (scalar @file) {
		if ($chr eq "#" and $file <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29632	29739	
==>> q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29632	29739	
==>> q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	429	525	
==>mar = shift;
	my $tree;
	print Dumper($rule->($grammar)->( $_[0], undef, $tree, $tree )) if $ENV{ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	436	531	
==>> q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10086	10204	
==>ular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8026	8144	
==>ular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10086	10204	
==>ular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8026	8144	
==>ular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()> <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2395	2519	
==>ath = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clea <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2395	2519	
==>ath = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clea <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1213	1305	
==>arameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1213	1305	
==>arameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10813	10942	
==>ray'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10813	10942	
==>ray'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10813	10942	
==>ray'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5283	5389	
==>arams)
		my $symbol = $self->declare($node);

		my $return_type = $node->type->[-1]->type;
		
		my @childre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1625	1764	
==>ally by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1625	1764	
==>ally by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # wa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9185	9291	
==>= ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9185	9291	
==>= ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2730	2827	
==>my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Lo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10650	10747	
==>my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2730	2827	
==>my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10650	10747	
==>my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Lo <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9649	9768	
==>end
    islazy = 1
    pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITES <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1546	1663	
==>ns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hou <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1815	1932	
==>ns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hou <==
4	/Users/nnunley/pugs/util/func_refact.pl	260	353	
==>hfuncs.pl. Will print initial set sizes for all functions
by default, or use -initial <fname>, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	792	931	
==>r index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	792	931	
==>r index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11433	11551	
==>sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3024	3142	
==>sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16632	16799	
==>private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16632	16799	
==>private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16632	16799	
==>private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6967	7051	
==>is($Object->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1837	1937	
==>tr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1837	1937	
==>tr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1837	1937	
==>tr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2376	2485	
==>ert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2376	2485	
==>ert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1597	1702	
==>ert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3458	3563	
==>ert grammars in Perl 6 syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3142	3283	
==>$m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3142	3283	
==>$m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3142	3283	
==>$m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4735	4832	
==>=head1 METHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns *na <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21121	21233	
==>adarray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	247	344	
==>alue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	247	344	
==>alue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	247	344	
==>alue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$val <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1344	1453	
==>( $self ) =  @_;
  return $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self->position() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2513	2610	
==>c_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2513	2610	
==>c_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2513	2610	
==>c_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24252	24350	
==>ither an AI or other interactive program controlling their
  actions) which are always seen to be r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23025	23123	
==>ither an AI or other interactive program controlling their
  actions) which are always seen to be r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24252	24350	
==>ither an AI or other interactive program controlling their
  actions) which are always seen to be r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23025	23123	
==>ither an AI or other interactive program controlling their
  actions) which are always seen to be r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2772	2924	
==>::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          retur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	525	659	
==>::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        retur <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	525	659	
==>::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        retur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4364	4458	
==>!.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{", !, p5_range_bounds(Min <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1318	1425	
==>n_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1318	1425	
==>n_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1318	1425	
==>n_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PI <==
4	/Users/nnunley/pugs/util/version_h.pl	25	122	
==>rict;
use warnings;
use Cwd;

my $version_h = shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9363	9479	
==>rset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9363	9479	
==>rset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	781	883	
==>', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is ex <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	839	941	
==>', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	371	520	
==>> [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	371	520	
==>> [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	371	520	
==>> [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribute <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	153	268	
==>sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10955	11060	
==>|
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-wo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10955	11060	
==>|
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-wo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10955	11060	
==>|
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-wo <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	190	291	
==>thod SubRoutine SubBlock SubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3500	3651	
==>' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $reason");
            exit 25 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	950	1040	
==>ude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	950	1040	
==>ude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	950	1040	
==>ude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24382	24641	
==>:'         => 'opaque'),
                              symbol->new('?@superclasses' => 'list'),                              
                          ),
                returns => 'list'
            ),             
            sub {
                my $e = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1121	1224	
==>urn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1121	1224	
==>urn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1121	1224	
==>urn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	802	896	
==>, "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "nows", "PGE::Ex <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8258	8362	
==>cePosition, $match);
  #What does this line 
  #$temp1 = length $key + $whitespacePosition;
  goto tok_ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4780	4880	
==>g{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4780	4880	
==>g{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4780	4880	
==>g{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6418	6561	
==>rint STDERR '', " . _emit( $n->{param} );
            }
            return " print '', $s";
        }
        if ( $n->{method}{bareword} eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7504	7637	
==>ched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7253	7379	
==>ched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	50	157	
==>0] * $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1403	1512	
==>mporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1403	1512	
==>mporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1403	1512	
==>mporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABS <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8368	8466	
==>nd;

  tok_match_sub:
  $operator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$to <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	776	921	
==>ir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) { <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	776	921	
==>ir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9314	9441	
==>leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9314	9441	
==>leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $ch <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1335	1438	
==>et($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1335	1438	
==>et($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8758	8875	
==>xpr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	675	785	
==>ring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use ov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	675	785	
==>ring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use ov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	675	785	
==>ring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use ov <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6531	6635	
==>t {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6531	6635	
==>t {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7403	7505	
==>t {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7403	7505	
==>t {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.i <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3248	3395	
==>things in a hash to reduce algorithmic complexity
            gather {
                given $event.name {
                    when '*' { take %.sub <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1783	1871	
==>then resume the installation process described in README.

------------------------------ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1623	1711	
==>then resume the installation process described in README.

------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16884	17021	
==>{
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16884	17021	
==>{
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16884	17021	
==>{
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18691	18827	
==>ed 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18691	18827	
==>ed 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18691	18827	
==>ed 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9159	9266	
==>g, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, $how);
  });

  # upper POSIX class <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3558	3679	
==>@caller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1515	1624	
==>h

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1515	1624	
==>h

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1515	1624	
==>h

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12880	12981	
==>tion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12880	12981	
==>tion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12880	12981	
==>tion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	995	1076	
==>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7554	7681	
==>rn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7554	7681	
==>rn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6924	7010	
==>har("+").
p5_metachar("\.").
p5_metachar("[").
p5_metachar("^").
p5_metachar("$"). %"
p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1428	1548	
==>f $TODO;
    print STDOUT "$out\n";

    unless ($pass) {
	_diag "# Failed $where\n";
    }

    # Ensure that the messag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31461	31573	
==>"push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31461	31573	
==>"push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $len <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31461	31573	
==>"push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $len <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3939	4053	
==>ir") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ". <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3939	4053	
==>ir") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ". <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3939	4053	
==>ir") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ". <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4628	4928	
==>);
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4628	4928	
==>);
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6835	6959	
==>'';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6835	6959	
==>'';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	684	850	
==>sage, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36499	36613	
==>( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36499	36613	
==>( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36499	36613	
==>( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unl <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1376	1494	
==>Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15005	15107	
==>:Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15005	15107	
==>:Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15005	15107	
==>:Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Per <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16797	16896	
==>XT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16797	16896	
==>XT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is u <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1605	1698	
==>@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1605	1698	
==>@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4265	4368	
==>d('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4265	4368	
==>d('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4265	4368	
==>d('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Clas <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4011	4090	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4252	4331	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4011	4090	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4252	4331	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	78	199	
==>xup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becaus <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4548	4669	
==>ling, duh!
            $inst_pkg = $inst->register( package => $self ) 
                or error("Could not register packa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	78	199	
==>xup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becaus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	78	199	
==>xup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becaus <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	612	733	
==>0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	612	733	
==>0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else { <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	355	454	
==>ol to somewhat speed up
# the rewrite of existing p5 programs instead of doing
# full conversions. : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5034	5151	
==>= 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5034	5151	
==>= 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5034	5151	
==>= 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	119	215	
==>al)
# FIXOTHERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke): skipped te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5215	5321	
==>parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5215	5321	
==>parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5215	5321	
==>parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
s <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	720	821	
==>sert> :remove_subscription<remove> .= new; # FIXME we need one at the class level too

    method noti <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27442	27552	
==>f $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	390	497	
==>ift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	390	497	
==>ift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	390	497	
==>ift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1026	1127	
==>.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1026	1127	
==>.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1026	1127	
==>.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24235	24318	
==>,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26920	27040	
==>ot ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <Char <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31342	31433	
==>he
Bool-returning anonymous function in the argument C<$predicate> returns
True when given t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35892	35983	
==>he
Bool-returning anonymous function in the argument C<$predicate> returns
True when given t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35110	35201	
==>he
Bool-returning anonymous function in the argument C<$predicate> returns
True when given t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10989	11126	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10989	11126	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10989	11126	
==>)
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7793	7899	
==>d \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  st <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10187	10286	
==>.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simpl <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10245	10344	
==>.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simpl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13456	13553	
==>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash). <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13456	13553	
==>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash). <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10056	10162	
==>turn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10056	10162	
==>turn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	815	918	
==>h($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> ! <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	815	918	
==>h($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> ! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	191	289	
==>ell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	191	289	
==>ell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	191	289	
==>ell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13535	13680	
==>patch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13535	13680	
==>patch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13535	13680	
==>patch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16412	16522	
==>ob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string gra <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2294	2406	
==>d for capture groups which are never reached.
# No lookbehind as been implemented at all, at all.
# A couple of o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8500	8595	
==>PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])', <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8500	8595	
==>PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])', <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8500	8595	
==>PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13543	13702	
==>< $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13543	13702	
==>< $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13543	13702	
==>< $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fi <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2428	2587	
==>< $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20049	20132	
==>e_insensitive_char_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	295	434	
==>g}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	295	434	
==>g}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	295	434	
==>g}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11068	11180	
==>},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11068	11180	
==>},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11068	11180	
==>},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1686	1795	
==>}

	if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20021	20142	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20300	20421	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10044	10147	
==>less $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    m <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10044	10147	
==>less $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1337	1489	
==>r::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub multi method submethod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11262	11424	
==>{
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11262	11424	
==>{
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11262	11424	
==>{
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4840	4949	
==>ms  => closure::params->new(symbol->new('&dispatcher' => 'block')),
            returns => 'opaque' 
        ) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18028	18250	
==>mmon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21505	21727	
==>mmon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21092	21314	
==>mmon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25978	26071	
==>on::Example Heading>

Set of Str - This contains zero or more Relation::Example attribute name <==
4	/Users/nnunley/pugs/util/config_h.pl	1166	1273	
==>ine
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12935	13029	
==>x) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12935	13029	
==>x) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12935	13029	
==>x) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5689	5792	
==>tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5689	5792	
==>tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17370	17471	
==>her!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20847	20948	
==>her!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15403	15568	
==>shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15403	15568	
==>shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15403	15568	
==>shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Ar <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15151	15242	
==>ewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewri <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2284	2475	
==>fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2284	2475	
==>fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4807	4932	
==>\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4795	4920	
==>\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5341	5512	
==>rsion and (    $Config{osname} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7283	7387	
==>and {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7283	7387	
==>and {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7283	7387	
==>and {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


packa <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	847	950	
==>ipt,
#     but rather in implementing it (eg, by ToNumber).
#   * Character sets are sometimes collapsed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8146	8310	
==>g->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8146	8310	
==>g->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8146	8310	
==>g->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7624	7750	
==>turn $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5136	5249	
==>y $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5136	5249	
==>y $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5136	5249	
==>y $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	547	659	
==>linearizing
        (map { $_->send('MRO') } @supers ), # the MRO of all the superclasses
        list->new(@supe <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21970	22087	
==>un => ide("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6539	6629	
==>ntf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6539	6629	
==>ntf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6539	6629	
==>ntf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1630	1761	
==>ass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1630	1761	
==>ass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1630	1761	
==>ass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5990	6107	
==>de();

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2767	2864	
==>();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_white <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2767	2864	
==>();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_white <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2767	2864	
==>();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_white <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1078	1203	
==>re} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1034	1154	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20057	20142	
==>otE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acce <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20057	20142	
==>otE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1781	1916	
==>pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1781	1916	
==>pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1781	1916	
==>pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11438	11554	
==>_1
  subrule_name_2:
    $I1 = pos - $I0
    subname = substr target, $I0, $I1
    $S0 = substr target, pos, 2
    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7871	7987	
==>ay = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7871	7987	
==>ay = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.len <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7871	7987	
==>ay = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.len <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	475	576	
==>f = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}->insert($no <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4288	4394	
==>> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#met <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4288	4394	
==>> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#met <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5161	5266	
==>> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
met <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5161	5266	
==>> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1425	1518	
==>= join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1425	1518	
==>= join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1425	1518	
==>= join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6853	6944	
==>ser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIG <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4205	4296	
==>ser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIG <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6853	6944	
==>ser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIG <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4205	4296	
==>ser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIG <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4287	4401	
==>e nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as respon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4287	4401	
==>e nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see as respon <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4798	4910	
==>e nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as respon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4798	4910	
==>e nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see as respon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5695	5801	
==>:PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5695	5801	
==>:PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5695	5801	
==>:PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	162	258	
==>lo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3049	3146	
==>ks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3049	3146	
==>ks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3049	3146	
==>ks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8991	9144	
==>}
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14720	14873	
==>}
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8991	9144	
==>}
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14714	14867	
==>}
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1892	1999	
==>n by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Bui <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9298	9405	
==>n by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Bui <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7664	7769	
==>n by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Bui <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2110	2215	
==>n by Stevan Little E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Bui <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1174	1292	
==>{
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side mus <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1401	1519	
==>{
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side mus <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1626	1744	
==>{
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right hand side mus <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1565	1698	
==>for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Root . '/_builddir';             # bui <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10645	10772	
==>"macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expan <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6986	7113	
==>"macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7835	7962	
==>"macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expan <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11701	11818	
==>$self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and pro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11701	11818	
==>$self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and pro <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1145	1246	
==>me::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime sp <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1145	1246	
==>me::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime sp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4956	5111	
==>h ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( I <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4956	5111	
==>h ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( I <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6410	6502	
==>for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=ov <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6410	6502	
==>for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=ov <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6743	6851	
==>ttle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Pe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8812	8920	
==>ttle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Pe <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6743	6851	
==>ttle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Pe <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8812	8920	
==>ttle <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Pe <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	192	295	
==>ugh to do the
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem Cx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	264	358	
==>alue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	264	358	
==>alue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	264	358	
==>alue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12792	12942	
==>y $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12792	12942	
==>y $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handl <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3095	3190	
==>oes Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3095	3190	
==>oes Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2617	2737	
==>_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2617	2737	
==>_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2617	2737	
==>_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	558	661	
==>*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	558	661	
==>*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	558	661	
==>*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24384	24476	
==>_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match_captures_set(N,X,amat(C0,G),amat(C <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3579	3720	
==>ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3579	3720	
==>ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9171	9279	
==>n",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9167	9275	
==>n",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4484	4615	
==>> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4484	4615	
==>> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.spa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5829	5930	
==>date %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5829	5930	
==>date %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normaliz <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1235	1331	
==>nd modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Current <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1235	1331	
==>nd modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Current <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23758	23853	
==>d with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23758	23853	
==>d with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13127	13236	
==>hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13127	13236	
==>hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13127	13236	
==>hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	495	599	
==>PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-off <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1082	1184	
==>g C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AU <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1082	1184	
==>g C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1638	1740	
==>g C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AU <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2320	2458	
==>f = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2867	3005	
==>f = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3414	3552	
==>f = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	888	983	
==>piler::Token->compile(q( \: <rule_name> { return $<rule_name> . " => 0" } ))->code;

*rule = Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	620	713	
==>PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	620	713	
==>PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	620	713	
==>PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self-> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10965	11052	
==>lly
p5_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1891	2037	
==>> 'Test');

        $DEBUG
    and print $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $lex, yyerror => sub { <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2951	3062	
==>ion->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else {
			my $type = $self->guess_perl_t <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	328	428	
==>%*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAM <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	328	428	
==>%*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAM <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1210	1310	
==>$a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1210	1310	
==>$a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1210	1310	
==>$a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	38	137	
==>eBackends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8749	8848	
==>the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1662	1757	
==>O - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1662	1757	
==>O - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1662	1757	
==>O - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shoul <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1739	1858	
==>ex) && $end_index->isa('num')))    
        || confess "Indecies must be a num type";
    return list->new(
        # ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11197	11309	
==>push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11197	11309	
==>push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($F <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11197	11309	
==>push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($F <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	838	973	
==>eft',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3925	4041	
==>ame, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3925	4041	
==>ame, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  % <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4795	4897	
==>sible the
    internal/external distinction is just a trait, and that some of those
    things are subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8494	8600	
==>0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8494	8600	
==>0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8494	8600	
==>0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3230	3343	
==>L_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3230	3343	
==>L_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18558	18651	
==>() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18558	18651	
==>() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12112	12253	
==>i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12112	12253	
==>i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12112	12253	
==>i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1404	1510	
==>_grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };

sub add_op {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12631	12726	
==>s with encoding and decoding of strings with HTML
character entities.  The module provides the f <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12631	12726	
==>s with encoding and decoding of strings with HTML
character entities.  The module provides the f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13094	13184	
==>::Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13094	13184	
==>::Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as th <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8847	8963	
==>ned $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathNa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5500	5598	
==>dditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5500	5598	
==>dditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6090	6188	
==>dditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1109	1219	
==>defined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1109	1219	
==>defined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1109	1219	
==>defined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1984	2107	
==>$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1984	2107	
==>$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1984	2107	
==>$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5080	5198	
==>throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typeof'>
}
rule FutureRes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	726	838	
==>ssdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	726	838	
==>ssdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	726	838	
==>ssdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportLi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3057	3156	
==>e "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arit <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	107	206	
==>ter;
use vars qw($VERSION @EXPORT @ISA);

$VERSION = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(asse <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3057	3156	
==>e "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3057	3156	
==>e "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arit <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1656	1772	
==>turn $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4859	4975	
==>turn $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7485	7583	
==>e(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7485	7583	
==>e(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3191	3292	
==>an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3191	3292	
==>an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a H <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25914	26010	
==>ns zero or more variable names and values
that are associated with the message, and can be interp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25914	26010	
==>ns zero or more variable names and values
that are associated with the message, and can be interp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5890	6083	
==>tart => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5890	6083	
==>tart => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5890	6083	
==>tart => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3816	3939	
==>_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = emit(@_);
}
sub n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1301	1411	
==>card_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1301	1411	
==>card_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1301	1411	
==>card_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	115	207	
==>Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementations). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10825	10962	
==>gs.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10825	10962	
==>gs.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10825	10962	
==>gs.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$. <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	12	116	
==>riablen
class Person {
	has $.name is rw;
	# method name() { return "Otto"; } # überflüssig
}
class Wel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5311	5407	
==>en't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5311	5407	
==>en't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5311	5407	
==>en't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12102	12219	
==>*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA st <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12102	12219	
==>*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	95	186	
==>Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	95	186	
==>Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6388	6501	
==>)) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6388	6501	
==>)) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6388	6501	
==>)) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	61	167	
==>ment snapshot of the prolog regex engine I
started over the weekend.  A "look at what I'm up to".

It passe <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10140	10240	
==>, 
which can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CON <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10140	10240	
==>, 
which can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CON <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6140	6236	
==>xt

All headers are returned split into the respective
lines.

=item Hash Context (if it exists?) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6140	6236	
==>xt

All headers are returned split into the respective
lines.

=item Hash Context (if it exists?) <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1188	1324	
==>infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	612	710	
==>);
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	612	710	
==>);
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	612	710	
==>);
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9852	10014	
==>n,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1931	2071	
==>n,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1931	2071	
==>n,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19533	19633	
==>t char within the capture.
n=0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2314	2424	
==>e> \;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2807	2901	
==>_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2807	2901	
==>_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2807	2901	
==>_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7183	7387	
==>ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7376	7580	
==>ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8956	9051	
==>Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8956	9051	
==>Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25336	25430	
==>pt that has failing subtests statistics like the
above are printed.

=item C<Test returned stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4113	4205	
==>fines B<only class methods>. There is no instance
constructor, and when calling these methods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4113	4205	
==>fines B<only class methods>. There is no instance
constructor, and when calling these methods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4113	4205	
==>fines B<only class methods>. There is no instance
constructor, and when calling these methods <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16281	16393	
==>e touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20707	20819	
==>e touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_d <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3695	3803	
==>decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3695	3803	
==>decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17207	17318	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17207	17318	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17207	17318	
==>d an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dis <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25398	25478	
==>,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2200	2291	
==>a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2200	2291	
==>a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2200	2291	
==>a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(fun <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3507	3912	
==>osetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=po <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3507	3912	
==>osetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=po <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2774	2906	
==>gs->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2914	3046	
==>gs->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7745	7887	
==>new('has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4753	4857	
==>lf->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4753	4857	
==>lf->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4753	4857	
==>lf->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	956	1071	
==>me {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'Pugs::Gram <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	389	500	
==>roxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	389	500	
==>roxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	389	500	
==>roxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25072	25163	
==>he server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23836	23927	
==>he server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25072	25163	
==>he server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23836	23927	
==>he server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2432	2545	
==>ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2432	2545	
==>ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2432	2545	
==>ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_c <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14889	14993	
==>rnel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$sr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6931	7049	
==>n success, false on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    require File:: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	126	230	
==>printf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4052	4153	
==>s now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Obje <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5954	6055	
==>s now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Obje <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10853	11006	
==>mmediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11132	11285	
==>mmediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1989	2088	
==>cting the 
last component of the calling function's package name.  (For example, if 
a function in C <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1989	2088	
==>cting the 
last component of the calling function's package name.  (For example, if 
a function in C <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11983	12094	
==>tives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_available( pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2267	2375	
==>w PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2267	2375	
==>w PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2267	2375	
==>w PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3686	3783	
==>3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).membe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3686	3783	
==>3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).membe <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	984	1078	
==>{
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	984	1078	
==>{
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1459	1581	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1459	1581	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1459	1581	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10531	10687	
==>ms(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10531	10687	
==>ms(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10531	10687	
==>ms(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	125	251	
==>ike:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7023	7121	
==>od content_language ($self: )          is rw { $self.header("Content-Language") }
method content_le <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7023	7121	
==>od content_language ($self: )          is rw { $self.header("Content-Language") }
method content_le <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2195	2289	
==>Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2195	2289	
==>Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1045	1150	
==>for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1045	1150	
==>for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1045	1150	
==>for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23716	23815	
==>que $self) (list ?@superclasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasse <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3843	3935	
==>.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3843	3935	
==>.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        co <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7206	7291	
==>--------------------------------------------------------------------
## traversal

met <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7206	7291	
==>--------------------------------------------------------------------
## traversal

met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5708	5806	
==>ll_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5708	5806	
==>ll_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5708	5806	
==>ll_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24209	24305	
==>ributes; all tuples in a Relation::Example are of the same
degree, and the attribute names of eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2234	2333	
==>OAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2234	2333	
==>OAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2234	2333	
==>OAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8439	8532	
==>ors must have the same symbol, and are also unified recursively
multi unify => ('type::operato <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	259	366	
==>tr
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * N <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	259	366	
==>tr
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * N <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	259	366	
==>tr
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * N <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	418	557	
==>bj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.s <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	418	557	
==>bj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3857	3954	
==>options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4041	4138	
==>options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	243	383	
==>ing in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	243	383	
==>ing in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1240	1341	
==>>';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" va <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1240	1341	
==>>';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" va <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1611	1728	
==>panying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2273	2390	
==>panying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18488	18582	
==>al Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, exp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18488	18582	
==>al Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, exp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	39	136	
==>::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	39	136	
==>::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) retu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7670	7792	
==>);
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	239	342	
==>rl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	223	322	
==>rl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7128	7219	
==>node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_T <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7128	7219	
==>node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_T <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9749	9865	
==>ndef, if we didn't find anything).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1153	1248	
==>"N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:« <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1153	1248	
==>"N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:« <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1153	1248	
==>"N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:« <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1074	1170	
==>T_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1074	1170	
==>T_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(St <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6085	6180	
==>andler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  us <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6085	6180	
==>andler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17335	17495	
==>aram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17335	17495	
==>aram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17335	17495	
==>aram == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->un <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5776	5863	
==>?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X::cap->[-2],"<ws>?(?x)".$::X::cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2762	2854	
==>lements the semantics for perl6-style variable binding,
as well as subroutine call argument p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2762	2854	
==>lements the semantics for perl6-style variable binding,
as well as subroutine call argument p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3109	3201	
==>lements the semantics for perl6-style variable binding,
as well as subroutine call argument p <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3364	3494	
==>1;
#    }
#    # backslash
#    $file =~ s/\\/\\textbackslash\{\}/g;
#    # segils
##    $file =~ s/([\$])/\\$1/gm;
#    # latex sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	252	356	
==>args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	252	356	
==>args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	252	356	
==>args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ar <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4138	4278	
==>>new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Param->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	780	869	
==>) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	780	869	
==>) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decre <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	780	869	
==>) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1665	1768	
==>b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1665	1768	
==>b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1665	1768	
==>b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Num <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6811	6912	
==>rn $p->Output( classname => $self->{grammar} );
}

sub exists_op { die "not implemented" };
sub de <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10241	10354	
==>$string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %sub <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10241	10354	
==>$string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %sub <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16502	16598	
==>e of the span if Infinite, then the list contains
a single span. Otherwise, it contains two spans <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16502	16598	
==>e of the span if Infinite, then the list contains
a single span. Otherwise, it contains two spans <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6543	6642	
==>lti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sever <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5673	5772	
==>lti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sever <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6543	6642	
==>lti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sever <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5673	5772	
==>lti sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sever <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	512	631	
==>scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{sitep <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11307	11423	
==>ource.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14784	14900	
==>ource.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14092	14208	
==>ource.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1817	1922	
==>.

If anyone would like to help out, let me know, and I'll upload more of
the development environment.

Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9478	9573	
==>tion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9478	9573	
==>tion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9478	9573	
==>tion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /:: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9854	9961	
==>d as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5881	5998	
==>statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5881	5998	
==>statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $matc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	556	658	
==>.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	556	658	
==>.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Mo <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1515	1663	
==>w
                ( :start($start), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration;
}

# operations with Duratio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6681	6786	
==>xception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6681	6786	
==>xception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6681	6786	
==>xception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1928	2037	
==>js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1928	2037	
==>js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1928	2037	
==>js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2975	3074	
==>res the installation of a lot of Perl 5 modules,
it is completely independent of Pugs or Parrot. 

= <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1700	1809	
==>}
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1700	1809	
==>}
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6073	6163	
==><t/complex.t> test 
actually roundtrip parses this document successfully. However, more com <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6073	6163	
==><t/complex.t> test 
actually roundtrip parses this document successfully. However, more com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1709	1801	
==>_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1709	1801	
==>_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1709	1801	
==>_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1292	1402	
==>elf.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my met <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1292	1402	
==>elf.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	999	1101	
==>) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2599	2701	
==>) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12658	12767	
==>if @avail == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1124	1221	
==>Cxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1124	1221	
==>Cxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1124	1221	
==>Cxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1422	1534	
==>utes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1422	1534	
==>utes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1422	1534	
==>utes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2890	3017	
==>.packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo ] . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14161	14247	
==>te; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14161	14247	
==>te; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14161	14247	
==>te; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3974	4088	
==>ive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3974	4088	
==>ive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3974	4088	
==>ive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $ha <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23553	23643	
==>place|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Repla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5813	5930	
==>urn {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3310	3404	
==>st;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3310	3404	
==>st;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5507	5601	
==>st;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	619	716	
==>LE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::S <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	619	716	
==>LE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	73	168	
==>TP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	73	168	
==>TP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18860	18952	
==>c for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17903	17995	
==>c for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18860	18952	
==>c for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17903	17995	
==>c for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11341	11436	
==>that they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anyth <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11399	11494	
==>that they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anyth <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3244	3336	
==>::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti me <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3244	3336	
==>::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12403	12525	
==>my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      metho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2781	2895	
==>my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    metho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2781	2895	
==>my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    metho <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	405	502	
==>symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4040	4136	
==>rg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4040	4136	
==>rg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4630	4726	
==>rg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12379	12475	
==>self.BUILDALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6511	6693	
==>leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6511	6693	
==>leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any c <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6660	6758	
==>a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6660	6758	
==>a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1451	1563	
==>ge VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1451	1563	
==>ge VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1451	1563	
==>ge VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10895	10989	
==>_escape_sequence(char(C)) --> "\\n", {[C] = "\n"}, !. %# XXX - not really
p5_simple_escape_sequ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11873	12023	
==>t returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XX <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2291	2427	
==>t returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XX <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2291	2427	
==>t returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XX <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1555	1656	
==>tring $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2491	2614	
==>tch}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	143	254	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	143	254	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	143	254	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17539	17653	
==>rl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17539	17653	
==>rl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17539	17653	
==>rl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29191	29286	
==>matched what they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3698	3868	
==>^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3698	3868	
==>^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2552	2652	
==>returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2552	2652	
==>returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3696	3816	
==>Param";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3696	3816	
==>Param";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3696	3816	
==>Param";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	806	900	
==>Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	998	1092	
==>Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	806	900	
==>Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	998	1092	
==>Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3261	3409	
==>ath}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unless ( @exts ) {
        my $admin = $self->{admin};
        @exts = $adm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5938	6077	
==>e MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5938	6077	
==>e MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5938	6077	
==>e MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7849	8007	
==>sub add_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7215	7339	
==>rray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7215	7339	
==>rray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7215	7339	
==>rray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // S <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1171	1282	
==>r $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1171	1282	
==>r $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7021	7127	
==>\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7033	7139	
==>\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6506	6638	
==>'$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieab <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13102	13234	
==>kslash:
    inc pos
    $S0 = substr target, pos, 1
    $I0 = index "nrtfae0", $S0
    if $I0 == -1 goto addchar
    $S0 = substr "\n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6506	6638	
==>'$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieab <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6506	6638	
==>'$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	654	768	
==>ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	654	768	
==>ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	654	768	
==>ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	56	157	
==>hunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	56	157	
==>hunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	56	157	
==>hunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5243	5339	
==>>isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->declare($node);

		my $retur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14189	14297	
==>trs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17666	17774	
==>trs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.siz <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28148	28243	
==>lues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringifie <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28148	28243	
==>lues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringifie <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1522	1631	
==>ame>\>  \:\=  <construct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14993	15089	
==>ach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14993	15089	
==>ach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14993	15089	
==>ach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3728	3906	
==>fined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3728	3906	
==>fined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :sta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	70	165	
==>XX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable contro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	70	165	
==>XX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable contro <==
4	/Users/nnunley/pugs/util/grokprims.pl	1194	1310	
==>op->{args}};

  if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6780	6881	
==>sts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=hea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6780	6881	
==>sts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8977	9078	
==>sts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9585	9713	
==>d, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1678	1798	
==>d, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1678	1798	
==>d, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1871	1974	
==>'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser {
  my($ws,$operators,$t <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2261	2387	
==>urn Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter ( <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2261	2387	
==>urn Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	320	431	
==>der of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	320	431	
==>der of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1304	1427	
==>STROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1509	1632	
==>STROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1570	1693	
==>STROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	754	868	
==>value->isa('type'))
        || confess "You must provide a value to reference";    
    ${$self} = $value;
    retu <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1210	1311	
==>lete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2563	2656	
==>die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2563	2656	
==>die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2563	2656	
==>die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v) <==
4	/Users/nnunley/pugs/util/func_refact.pl	2456	2586	
==>>{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contribut <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	126	247	
==>LD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fuse <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	126	247	
==>LD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fuse <==
4	/Users/nnunley/pugs/util/importgraph.pl	205	313	
==>orter to importee

use strict;
use warnings;
use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1375	1485	
==>my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6458	6567	
==>::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6458	6567	
==>::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6458	6567	
==>::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !per <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3429	3588	
==>w(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2785	2884	
==>_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2785	2884	
==>_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2785	2884	
==>_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12748	12935	
==>->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12748	12935	
==>->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12748	12935	
==>->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Per <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39089	39234	
==>l->new('get_attributes'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8202	8333	
==>"cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8202	8333	
==>"cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => ch <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1835	1936	
==>al { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1835	1936	
==>al { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27343	27440	
==>ct does not permit changes to its attributes; they
must all be set when the object is constructed. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34869	34966	
==>ct does not permit changes to its attributes;
they must all be set when the object is constructed. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27343	27440	
==>ct does not permit changes to its attributes; they
must all be set when the object is constructed. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34869	34966	
==>ct does not permit changes to its attributes;
they must all be set when the object is constructed. <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3211	3311	
==>dir && -f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not locate (syn/S12.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11753	11850	
==>means that all classes
and roles can be polymorphic to one another. 

Because instances of class a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11753	11850	
==>means that all classes
and roles can be polymorphic to one another. 

Because instances of class a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11753	11850	
==>means that all classes
and roles can be polymorphic to one another. 

Because instances of class a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8739	8923	
==>ethod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8739	8923	
==>ethod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8739	8923	
==>ethod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    r <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3088	3179	
==>\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/PropList. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7722	7860	
==>) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7734	7872	
==>) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2286	2387	
==>ence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.co <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2286	2387	
==>ence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	625	770	
==>'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    uns <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	625	770	
==>'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    uns <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9647	9738	
==>of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The followi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9647	9738	
==>of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The followi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3976	4084	
==>.}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3976	4084	
==>.}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3976	4084	
==>.}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbod <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1056	1158	
==>eturn $o;
}
sub set_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20397	20492	
==>tify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20397	20492	
==>tify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20397	20492	
==>tify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10486	10653	
==>\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6827	6994	
==>\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7676	7843	
==>\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2455	2581	
==>{
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $templat <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10096	10206	
==>ist => type::variable::free->new),
	# list a -> bool
	'is_nil?' => type::operator::arrow->new(
		type::operator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8603	8712	
==>f !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8603	8712	
==>f !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8603	8712	
==>f !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2990	3204	
==>verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<ve <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2990	3204	
==>verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<ve <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4050	4151	
==>he POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=ba <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4050	4151	
==>he POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=ba <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22	153	
==>not edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22	152	
==>not edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7707	7811	
==>e) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7707	7811	
==>e) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1019	1129	
==>" ~ @args.perl; # XXX delme
        Pugs::Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1579	1678	
==>command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1579	1678	
==>command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1579	1678	
==>command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8723	8852	
==>$explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	891	1008	
==>$explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	891	1008	
==>$explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = T <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	435	548	
==>end('superclasses')->to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are li <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1144	1251	
==>s->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4241	4340	
==>ndef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4241	4340	
==>ndef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4241	4340	
==>ndef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	171	275	
==>rgs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	171	275	
==>rgs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	171	275	
==>rgs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2859	2960	
==>aluated Perl list
    Eager       Non-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	813	921	
==>he opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1018	1126	
==>he opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1074	1182	
==>he opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_insta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32181	32282	
==>ss; most have no ending node, and most don't need to to do
anything to the walking stack.

When an obj <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	793	926	
==>:ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't iterate with a ", ref $thin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4213	4318	
==>") if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not a unicode <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2677	2766	
==>You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2677	2766	
==>You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6134	6229	
==>uccessfully. However, more complex POD 
documents may not do as well. Error reporting is still p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6134	6229	
==>uccessfully. However, more complex POD 
documents may not do as well. Error reporting is still p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4040	4169	
==>tallation => $obj) }
                map { JIB::Meta->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->availa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1194	1288	
==>aml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1194	1288	
==>aml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --lin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1194	1288	
==>aml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23939	24031	
==>,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attemp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23939	24031	
==>,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attemp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23939	24031	
==>,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attemp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11195	11345	
==>ent )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11195	11345	
==>ent )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.c <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3122	3244	
==>icient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3122	3244	
==>icient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5034	5149	
==>ackage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5034	5149	
==>ackage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5034	5149	
==>ackage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && re <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4826	4931	
==>cter_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

rule escap <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1007	1120	
==>y $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie intermediate language is a language fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	259	370	
==>ass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	259	370	
==>ass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	259	370	
==>ass::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3532	3658	
==>sed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3532	3658	
==>sed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3532	3658	
==>sed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear } <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5298	5394	
==>>= $lastPosition );
  my $currentOperatorTable = $self->whitespaceOperatorTable();
  
  (substr $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18391	18484	
==>0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18391	18484	
==>0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18391	18484	
==>0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10126	10215	
==>/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs/p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	800	909	
==>turn emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7435	7533	
==>en cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7435	7533	
==>en cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	538	631	
==>t.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	538	631	
==>t.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6416	6534	
==>n)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6416	6534	
==>n)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %cha <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4503	4604	
==>s now reduced
to 11.

Inherits Unit.

=item Stub

A node that makes the runtime throw a fatal error. U <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23472	23565	
==>ns are immutable rather than mutable, this property and/or
same-named accessor method can be u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28024	28117	
==>ns are immutable rather than mutable, this property and/or
same-named accessor method can be u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26828	26921	
==>ns are immutable rather than mutable, this property and/or
same-named accessor method can be u <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6839	6942	
==>); print Dumper $m; print $m->describe;
token whitespace:<basic_whitespace> { \s+ }

rule identifier { \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1058	1160	
==>name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1058	1160	
==>name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1058	1160	
==>name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3508	3623	
==>values{distribution_type} ||= 'module';
    $values{name}              ||= do {
        my $name = $values{module_na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20597	20694	
==>x1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20597	20694	
==>x1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20597	20694	
==>x1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1514	1615	
==>my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1514	1615	
==>my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1514	1615	
==>my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15542	15652	
==>visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub da <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21713	21823	
==>visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub da <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4509	4605	
==>ess {
		%$self, 
		left => $self->left->splat($accum),
		right => $self->right->splat($accum),
	} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27779	27876	
==>ine RX_MATCH_COPIED_on(prog)	((prog)->reganch |= ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_off(prog <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3634	3729	
==>_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the option <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3634	3729	
==>_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the option <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3714	3809	
==>_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the option <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3545	3643	
==>ig,
    getConfig
) where

import qualified Data.Map as Map
import qualified Pugs.Version

config : <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25439	25533	
==>of the other components concerned, provided that you include the source
code of the other compo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25439	25533	
==>of the other components concerned, provided that you include the source
code of the other compo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2493	2586	
==>ard output of the script
without altering the behavior otherwise.  The F<prove> utility's C<-v <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	64	192	
==>@ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XSLoader::lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5505	5609	
==>onal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5505	5609	
==>onal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6095	6199	
==>onal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4227	4330	
==>multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3354	3457	
==>multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4227	4330	
==>multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3354	3457	
==>multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3221	3321	
==>eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3221	3321	
==>eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3221	3321	
==>eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $ei <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27608	27700	
==>he Relation::Example has zero tuples.  If a Relation::Example has zero attributes, then
C<$bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5069	5164	
==>mmand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5069	5164	
==>mmand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5069	5164	
==>mmand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2689	2784	
==>st);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2689	2784	
==>st);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2689	2784	
==>st);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1432	1542	
==>(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1432	1542	
==>(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20576	20674	
==>gram, it will search for language files specific to the program
in the order you chose so to pick a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20576	20674	
==>gram, it will search for language files specific to the program
in the order you chose so to pick a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21957	22091	
==>ct;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21957	22091	
==>ct;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21957	22091	
==>ct;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    } <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3043	3141	
==>foo'>  Scary.
rule interpolated_array    { \@ <name> <element_expr>? }
rule interpolated_hash     { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5800	5942	
==>]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5800	5942	
==>]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5800	5942	
==>]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a valu <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2004	2088	
==>_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_group>|<noncapt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13611	13792	
==>_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13611	13792	
==>_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13611	13792	
==>_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 ' <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	132	231	
==>, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SY <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	132	231	
==>, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SY <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11160	11251	
==>OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11160	11251	
==>OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (St <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3082	3204	
==>elf->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3583	3705	
==>elf->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1264	1355	
==>he continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> o <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1264	1355	
==>he continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> o <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1797	1936	
==>t "Indexing '" . basename($meta) ."'\n";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the metadat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8586	8692	
==>_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8582	8688	
==>_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18557	18662	
==>tant.

# sprintf # XXX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3519	3712	
==>_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5627	5748	
==>st provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5627	5748	
==>st provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5627	5748	
==>st provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3870	3971	
==>r($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3870	3971	
==>r($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3870	3971	
==>r($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	383	481	
==>fig

=back

=head1 METHODS

=head2 $src = JIB::Source->new( dir => /path/to/source )

=cut

sub new <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1340	1449	
==>{ 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_AL <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24420	24522	
==>d all over perl.  Discussed elsewhere.

 * regmust      string (pointer into program) that match must i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1327	1429	
==>{ 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_AL <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	188	281	
==>ndie::Prelude::Strings - String related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5240	5354	
==>O;
    has @:subclasses;
    has @:superclasses;
    has %:private_methods;
    has %:attributes;
    has %:methods <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5460	5561	
==>d take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5460	5561	
==>d take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5460	5561	
==>d take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2234	2334	
==>ild_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2197	2293	
==>my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2197	2293	
==>my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2197	2293	
==>my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Rol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1185	1298	
==>lX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1185	1298	
==>lX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1185	1298	
==>lX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3022	3136	
==>UG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3022	3136	
==>UG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3022	3136	
==>UG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->e <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28565	28655	
==>g)		((prog)->reganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->reganch <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6578	6833	
==>w(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7744	7854	
==>n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7744	7854	
==>n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7744	7854	
==>n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5906	6056	
==>we don't get a silly
            ### deep dir structure
            my $target = $dir;
            $target =~ s/^$base//;

            unless( $self->_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7967	8109	
==>ar i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7967	8109	
==>ar i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7967	8109	
==>ar i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1307	1417	
==>for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1307	1417	
==>for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        war <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1307	1417	
==>for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        war <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12	107	
==>cperl; cperl-indent-level: 4 -*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

package Test: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8081	8212	
==>reedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ got <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4321	4448	
==>$step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4321	4448	
==>$step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7804	7930	
==>reedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ got <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	578	686	
==>nternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	578	686	
==>nternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	578	686	
==>nternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	667	761	
==>t);
  my %results = $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyz <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3140	3247	
==>ead1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3140	3247	
==>ead1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	662	760	
==>defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<qua <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	662	760	
==>defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<qua <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	552	693	
==>afe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi su <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	552	693	
==>afe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8554	8665	
==>s::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8542	8653	
==>s::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32296	32393	
==>me regardless of
which is the invocant and which is the argument.  This method will fail if
C<$oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36846	36943	
==>me regardless of
which is the invocant and which is the argument.  This method will fail if
C<$oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36136	36233	
==>me regardless of
which is the invocant and which is the argument.  This method will fail if
C<$oth <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	385	526	
==>($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to op <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	385	526	
==>($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to op <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6862	6986	
==>od title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6862	6986	
==>od title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $se <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27176	27281	
==>= join("",map{chr($_)} @$strA);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$npos;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2969	3067	
==>cial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2969	3067	
==>cial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2969	3067	
==>cial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->na <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26478	26575	
==>eferences to other objects in them if you wish.

=back

This is the main Message constructor metho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26478	26575	
==>eferences to other objects in them if you wish.

=back

This is the main Message constructor metho <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23511	23605	
==>his property and/or
same-named accessor method can be used to see if a Relation-doing object
ca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28063	28157	
==>his property and/or
same-named accessor method can be used to see if a Relation-doing object
ca <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3414	3579	
==>< USAGE >>

 % p526.pl        # Convert from p5 code to p6 code

    -c            # Show conversion rules
    -e            # Convert one-liner
    -s            # L <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	997	1117	
==>er; Dumper( $self->{ast}() )};

    eval {
        $self->{perl5} = Pugs::Emitter::Perl6::Perl5::emit( 
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	580	687	
==>n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	580	687	
==>n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_li <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	326	433	
==>ns

# implement this and get the rest for free
# NOTE: 
# compare returns a native boolean though,
# so it s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1245	1337	
==>n to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1245	1337	
==>n to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1245	1337	
==>n to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11809	11962	
==>ons"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15286	15439	
==>ons"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14621	14774	
==>ons"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2670	2765	
==>r;

=head1 DESCRIPTION

This is a subclass of L<Blondie::Reducere> that performs the actions den <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1698	1815	
==>method::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1698	1815	
==>method::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1698	1815	
==>method::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21512	21611	
==>>data[1].max_offset
 #define check_substr     substrs->data[2].substr
 #define check_utf8       subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2677	2792	
==>my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2677	2792	
==>my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2677	2792	
==>my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6476	6584	
==>cmp $b->{name} } (values %{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# G <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5426	5599	
==>et";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5426	5599	
==>et";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20036	20129	
==>er value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20036	20129	
==>er value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3141	3287	
==>ss $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3018	3159	
==>ss $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	510	620	
==>* as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor: <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	510	620	
==>* as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor: <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	324	426	
==>nfix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *inf <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	324	426	
==>nfix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *inf <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9626	9721	
==>= DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9626	9721	
==>= DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	295	502	
==>rr) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	295	502	
==>rr) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	295	502	
==>rr) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1085	1220	
==>->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __P <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2427	2555	
==>ex
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2427	2555	
==>ex
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2281	2404	
==>ame: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	449	672	
==>gs.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	449	672	
==>gs.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "< <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12908	13001	
==>epends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) return <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12966	13059	
==>epends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8945	9045	
==>s a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8945	9045	
==>s a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8945	9045	
==>s a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2299	2399	
==>s on it. Finally, it will call mkisofs to create a ISO9660 image.

You can stop this program at any t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2972	3078	
==>l magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2972	3078	
==>l magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2972	3078	
==>l magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9325	9415	
==>----------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook::reg <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2140	2253	
==>.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2140	2253	
==>.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4359	4461	
==>.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4359	4461	
==>.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3662	3812	
==>est.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3662	3812	
==>est.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13391	13509	
==>return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = subst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13385	13503	
==>return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = subst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1632	1765	
==>ags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1576	1706	
==>ags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,stat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1898	2000	
==>et::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1898	2000	
==>et::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5668	5768	
==>_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $sel <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5668	5768	
==>_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $sel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	398	482	
==>_authenticate authorization proxy_authorization authorization_basic proxy_authorizati <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	398	482	
==>_authenticate authorization proxy_authorization authorization_basic proxy_authorizati <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1114	1215	
==>%v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value= <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1114	1215	
==>%v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9030	9128	
==>the only overhead is a SVMG (i.e. bless())

you can return the same failure object always

then the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8732	8828	
==>the only overhead is a SVMG (i.e. bless())
you can return the same failure object always
then the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3656	3805	
==>kage}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} };
            }
        }

=cut

        ### extract th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3562	3686	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3562	3686	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3562	3686	
==>hods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priva <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18534	18637	
==>RC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<ne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18534	18637	
==>RC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17570	17671	
==>RC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17570	17671	
==>RC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C< <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	216	330	
==>fferences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	216	330	
==>fferences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8929	9019	
==>ammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @ter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2754	2844	
==>ammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3100	3204	
==>nless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3100	3204	
==>nless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3100	3204	
==>nless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1272	1452	
==>nt.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1272	1452	
==>nt.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1272	1452	
==>nt.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12453	12572	
==>$min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5748	6020	
==>($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5748	6020	
==>($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3109	3379	
==>($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3109	3379	
==>($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1542	1648	
==>finite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1542	1648	
==>finite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	135	230	
==>enter a new rule or parenthesized
group.  This is approximately the Match object that userland f <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	135	230	
==>enter a new rule or parenthesized
group.  This is approximately the Match object that userland f <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	240	341	
==>{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
} <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	240	341	
==>{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6171	6264	
==>ipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constructo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6171	6264	
==>ipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constructo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5254	5465	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5254	5465	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5254	5465	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7469	7566	
==>elf: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has_method ((opaque $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1095	1216	
==>A_OBJ.

XXX needs verification
XXX needs binary package recognition

=cut

{   my $acc = {
        file            => { al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3882	3999	
==>fts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3882	3999	
==>fts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3882	3999	
==>fts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14596	14792	
==>"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14596	14792	
==>"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14596	14792	
==>"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37071	37167	
==>od (C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp::Pars <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2231	2463	
==>f ($statement =~ /^\-\>/) {
                            #warn "hello there";
                            $body[-1] .= $statement;
                        }
                        else {
                            #warn "our other a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	177	272	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	177	272	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	177	272	
==>.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1563	1682	
==>pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1563	1682	
==>pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1563	1682	
==>pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2714	2816	
==>em App

An App makes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we ha <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4257	4365	
==>vision} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2979	3086	
==>_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2979	3086	
==>_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2979	3086	
==>_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6789	6890	
==>em B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE AL <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6789	6890	
==>em B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE AL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8986	9087	
==>em B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE AL <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6930	7029	
==>gs_version;
step
  descr  => "Querying Pugs for its version",
  ensure => sub { defined $pugs_versio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1056	1189	
==>a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1056	1189	
==>a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1056	1189	
==>a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $sel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5699	5788	
==>",map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@var <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1132	1249	
==>S.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1132	1249	
==>S.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1132	1249	
==>S.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.r <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2882	2990	
==>elude = shift @{ $Config{precompile} };
        warn "*** warning: Prelude.pm should probably be the first -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3611	3733	
==>ke_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3611	3733	
==>ke_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3611	3733	
==>ke_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bar <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13955	14049	
==>This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilai <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10182	10276	
==>This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilai <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13955	14049	
==>This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilai <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10182	10276	
==>This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilai <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1153	1249	
==>tories to Pugs's 
search path so that later `use` or `require` statements 
will find modules whic <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1153	1249	
==>tories to Pugs's 
search path so that later `use` or `require` statements 
will find modules whic <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17416	17510	
==>itle of the document.  In libwww-perl this header will be
initialized automatically from the E< <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17416	17510	
==>itle of the document.  In libwww-perl this header will be
initialized automatically from the E< <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8756	8866	
==>if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pkg) || $self->can_run('ghc-pkg');

        # This above <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2651	2756	
==>X - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2651	2756	
==>X - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3807	3929	
==>$tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17376	17471	
==>specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17376	17471	
==>specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17376	17471	
==>specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavi <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3812	3917	
==>onfig;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	229	323	
==>self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	229	323	
==>self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	229	323	
==>self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4104	4241	
==>$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4104	4241	
==>$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4104	4241	
==>$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	204	303	
==>$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Makefi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7552	7662	
==>ode::varglobal {
   my $a = $_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variable {
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2463	2564	
==>ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2463	2564	
==>ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2463	2564	
==>ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1220	1327	
==>"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self = shift;
    my $calle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4749	4842	
==>tever
blessing they had before, but unlike B<rebless>, it preseves something
of the original n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4749	4842	
==>tever
blessing they had before, but unlike B<rebless>, it preseves something
of the original n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4749	4842	
==>tever
blessing they had before, but unlike B<rebless>, it preseves something
of the original n <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1056	1166	
==>te
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    retur <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1056	1166	
==>te
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	793	890	
==>ate a store for single elements (Span::Singleton)
    * use binary search instead of linear search <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	793	890	
==>ate a store for single elements (Span::Singleton)
    * use binary search instead of linear search <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3334	3456	
==>thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class = shift;
    %hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	749	842	
==>Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	749	842	
==>Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	749	842	
==>Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9328	9444	
==>move \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9328	9444	
==>move \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9328	9444	
==>move \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pi <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	283	386	
==>$.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA. <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	283	386	
==>$.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11590	11691	
==>s test will not be relevant though.

=item Create a Visitor class

This would also be a good use for R <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11590	11691	
==>s test will not be relevant though.

=item Create a Visitor class

This would also be a good use for R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13454	13638	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13454	13638	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13454	13638	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chan <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2339	2523	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_chan <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	618	745	
==>start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1880	2007	
==>start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	618	745	
==>start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1880	2007	
==>start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17327	17440	
==>efined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	916	1014	
==>sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	916	1014	
==>sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	916	1014	
==>sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1132	1243	
==>yms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1132	1243	
==>yms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1132	1243	
==>yms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29578	29833	
==>ew(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12439	12541	
==>0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12439	12541	
==>0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12439	12541	
==>0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14006	14129	
==>ive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17483	17606	
==>ive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Rela <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20546	20645	
==>llow you to force a
specific spelling.  For example if you really want a header field name
to show u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20546	20645	
==>llow you to force a
specific spelling.  For example if you really want a header field name
to show u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4540	4651	
==>e = sub ($) {
    my ($self) = @_;
    my %roles;
    foreach my $role (@{::opaque_instance_attrs($self)->{'@:ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7531	7626	
==>om_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7531	7626	
==>om_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7531	7626	
==>om_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort ma <==
4	/Users/nnunley/pugs/util/grokprims.pl	1443	1542	
==>/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(list|chaining) infix/) {
    $example = "\$$a0 $na <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30581	30676	
==>d it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35132	35227	
==>d it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34314	34409	
==>d it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	489	587	
==>NUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless gr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	489	587	
==>NUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless gr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	489	587	
==>NUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless gr <==
4	/Users/nnunley/pugs/util/func_refact.pl	240	335	
==>d by --nodes
of graphfuncs.pl. Will print initial set sizes for all functions
by default, or use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6237	6326	
==>MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6237	6326	
==>MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6237	6326	
==>MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6666	6783	
==>if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6666	6783	
==>if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6666	6783	
==>if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	547	642	
==>ules in a second pass.

Primary configuration settings are read from the file `config.yml` in
th <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4309	4423	
==>e than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4309	4423	
==>e than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3335	3442	
==>ee.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3335	3442	
==>ee.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25042	25137	
==>which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23806	23901	
==>which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25042	25137	
==>which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23806	23901	
==>which is then
slowly sent to the server.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5131	5243	
==>ure => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5324	5436	
==>ure => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4493	4602	
==>t 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_par <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4339	4444	
==>t 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_par <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7541	7701	
==>me{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newname <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7541	7701	
==>me{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newname <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13167	13285	
==>).get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for detail <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13167	13285	
==>).get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for detail <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	763	866	
==>junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	821	924	
==>junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21123	21217	
==>for users, and your program would use
associated keys internally.

It is strongly suggested (bu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21123	21217	
==>for users, and your program would use
associated keys internally.

It is strongly suggested (bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4425	4547	
==>is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4425	4547	
==>is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4425	4547	
==>is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7872	7978	
==>s lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13234	13393	
==>] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13228	13387	
==>] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2802	2921	
==>ncrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2802	2921	
==>ncrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12017	12115	
==>rue if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9138	9236	
==>rue if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12017	12115	
==>rue if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9138	9236	
==>rue if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5461	5557	
==>son = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5461	5557	
==>son = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6985	7081	
==>son = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14836	14989	
==>efined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14836	14989	
==>efined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14836	14989	
==>efined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return po <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18872	18976	
==>(exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE::Exp::Alt" ]

.sub "p6analyze <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6417	6545	
==>return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6417	6545	
==>return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	646	764	
==>xtracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	646	764	
==>xtracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11987	12097	
==>Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11987	12097	
==>Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1605	1702	
==>$value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (S <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1605	1702	
==>$value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6810	6916	
==>crement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6810	6916	
==>crement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6810	6916	
==>crement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_fr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	49	140	
==>se warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::Precedence;

use D <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23796	23936	
==>::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13300	13434	
==>::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13300	13434	
==>::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13300	13434	
==>::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__fl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8816	8925	
==>elete stringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8816	8925	
==>elete stringifies its return values,
      # but I was unable to work out a test case, and in interactive Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9072	9179	
==>elete stringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9072	9179	
==>elete stringifies its return values,
    # but I was unable to work out a test case, and in interactive Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19230	19388	
==>Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the or <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19230	19388	
==>Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the or <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19230	19388	
==>Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the or <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20612	20728	
==>regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pugs::Inte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2226	2384	
==>odes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2155	2307	
==>odes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5175	5309	
==>se()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5175	5309	
==>se()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &c <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26990	27100	
==>.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



grammar JavaS <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2997	3638	
==>names );
}

###########################################################################

} # role Relation::Heading

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9779	9906	
==>=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9779	9906	
==>=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9779	9906	
==>=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7956	8079	
==>ed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5902	6025	
==>);}
    r->precomp = savesvpv(pat);
    
    r->nparens = nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7956	8079	
==>ed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7956	8079	
==>ed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3418	3540	
==>ddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and error($?), return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	249	335	
==>f->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(St <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	249	335	
==>f->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(St <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	249	335	
==>f->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(St <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19137	19257	
==>(
				fun => ide("f"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	349	453	
==>@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	349	453	
==>@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	349	453	
==>@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1685	1810	
==>$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1673	1798	
==>$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%in <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9723	9819	
==>ce set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can e <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9723	9819	
==>ce set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	388	509	
==>$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	388	509	
==>$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	388	509	
==>$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ? <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9607	9708	
==>apeSequence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCharacter>
}
rule SingleEscap <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6295	6394	
==>::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6295	6394	
==>::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span: <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5570	5668	
==>>get_tests;
    $self->run_children($Config{concurrent}, \@tests);
}

sub run_children {
    my ($s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17235	17352	
==>kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tm <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18230	18339	
==>tals->{max}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals) = @_;

    my $cur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6079	6183	
==>ture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5886	5986	
==>ture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22555	22679	
==>xPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18976	19100	
==>xPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17964	18058	
==>*

Module::Compile attempts to make source filtering a sane process, by
parsing up your module' <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17964	18058	
==>*

Module::Compile attempts to make source filtering a sane process, by
parsing up your module' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9333	9442	
==>tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11648	11757	
==>tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type e <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3285	3387	
==>gex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3285	3387	
==>gex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2119	2216	
==>doc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Differe <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2119	2216	
==>doc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Differe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5365	5553	
==>ss ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5781	5969	
==>ss ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5377	5565	
==>ss ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5793	5981	
==>ss ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	39	131	
==>(RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	39	131	
==>(RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	857	946	
==>ax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifyin <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	857	946	
==>ax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifyin <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1458	1562	
==>ass Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fie <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1458	1562	
==>ass Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fie <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3426	3523	
==>em C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3426	3523	
==>em C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

T <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	632	877	
==>l = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    return;
                            };    

use constant FILE_REA <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5793	5888	
==>pan.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5793	5888	
==>pan.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15137	15235	
==>ass
an argument to the method.  The old header value is always returned.
If the given header did no <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15137	15235	
==>ass
an argument to the method.  The old header value is always returned.
If the given header did no <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20710	20803	
==>rt> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20710	20803	
==>rt> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15616	15714	
==>MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15616	15714	
==>MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15616	15714	
==>MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2093	2215	
==>pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5536	5656	
==>$authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5536	5656	
==>$authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5536	5656	
==>$authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38784	38892	
==>shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38784	38892	
==>shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if the <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38784	38892	
==>shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24760	24853	
==>de a few C-macro-style functions for easy access to the parser
object's most important attribu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	120	252	
==>lues -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	120	252	
==>lues -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38219	38312	
==>emplate text string in
its positional parameter $text (a string), and a Message Variables hash <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38219	38312	
==>emplate text string in
its positional parameter $text (a string), and a Message Variables hash <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15314	15411	
==>e starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19472	19569	
==>e starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35934	36030	
==>)>

This method returns an array ref having all combinations of this object's
Set Names and Membe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35934	36030	
==>)>

This method returns an array ref having all combinations of this object's
Set Names and Membe <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15216	15340	
==>target, pos, $I1
    mob["cname"] = cname
    pos = $I0
    goto end
  name:
    inc pos
    (mob, $P0, mfrom, mpos) = newfro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3363	3460	
==>g of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3363	3460	
==>g of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3363	3460	
==>g of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6254	6433	
==>->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6254	6433	
==>->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6254	6433	
==>->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_me <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1480	1604	
==>Thunk(
					Seq(
						Param('$n'),
						App(
							Sym('&control_structure:<if>'),
							App(
								Sym('&infix:<==>'), <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12229	12336	
==>1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12229	12336	
==>1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1428	1526	
==>erbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1428	1526	
==>erbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1428	1526	
==>erbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1- <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	356	448	
==>NARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6959	7060	
==>d to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; mor <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2994	3095	
==>e "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tree <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6959	7060	
==>d to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; mor <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2994	3095	
==>e "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tree <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	620	782	
==>s {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        retur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	620	782	
==>s {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19034	19128	
==>ith user text that is
associated with hard-coded program conditions.  In other words, this user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19034	19128	
==>ith user text that is
associated with hard-coded program conditions.  In other words, this user <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	752	864	
==>WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	752	864	
==>WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	752	864	
==>WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	392	568	
==>ods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	392	568	
==>ods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	392	568	
==>ods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                f <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6150	6246	
==>/<TheGrammar.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4743	4843	
==><*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3870	3970	
==><*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4743	4843	
==><*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3870	3970	
==><*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric differe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42917	43071	
==>)->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # method b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5729	5821	
==>ODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5729	5821	
==>ODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5729	5821	
==>ODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	807	921	
==>ss Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	807	921	
==>ss Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  ha <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	975	1073	
==>ht($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	975	1073	
==>ht($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8360	8467	
==>ed.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it retur <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8360	8467	
==>ed.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3068	3167	
==>glock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclas <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2959	3054	
==>glock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2701	2858	
==>kslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away wit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10014	10120	
==>0] unless $_[0] =~ /::/;
    return "$_[1] ruleop::capture( '$_[0]', \\&{'$name'} )\n";
}
sub node::non_cap <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11988	12082	
==>&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, thi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11988	12082	
==>&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, thi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7132	7324	
==>num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnum <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7132	7324	
==>num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15170	15278	
==>digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15170	15278	
==>digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1564	1664	
==>er - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31057	31157	
==>es)

This uninstalls the given handles.  You send the names (like '|' or
'atom').  Here is a very sim <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1564	1664	
==>er - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1564	1664	
==>er - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4911	5021	
==>lies it's children one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12625	12726	
==>n>? <']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule Elem <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11965	12059	
==>1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11965	12059	
==>1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	480	570	
==>te.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1093	1183	
==>te.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	480	570	
==>te.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1093	1183	
==>te.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11032	11180	
==>ort returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1510	1650	
==>ort returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1510	1650	
==>ort returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17302	17443	
==>", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<res <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17302	17443	
==>", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<res <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8583	8676	
==>(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2408	2501	
==>(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2341	2446	
==>red.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filenam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2341	2446	
==>red.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filenam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2341	2446	
==>red.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filenam <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8	111	
==>relude-0.0.1;

use v6;


=kwid

There are a couple of things going on here.

* These are perl6 implement <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16163	16278	
==>}
    # + 3 : we want three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2336	2441	
==>required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2336	2441	
==>required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2336	2441	
==>required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($fi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5543	5657	
==>Syms) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	69	157	
==>:Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	69	157	
==>:Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	69	157	
==>:Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub J <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	557	683	
==>ready installed
    {   my @list = LoadFile( $Available );
        if ( grep { $_->{package} eq $path } @list ) {
            w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5203	5310	
==>= shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5203	5310	
==>= shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5203	5310	
==>= shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16723	16886	
==>ift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$class: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5451	5553	
==>. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5451	5553	
==>. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5451	5553	
==>. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10973	11105	
==>$ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10973	11105	
==>$ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10973	11105	
==>$ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{ci <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	149	252	
==>:TestBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16586	16685	
==>d1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16586	16685	
==>d1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16586	16685	
==>d1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, e <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6607	6703	
==>This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fir <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6607	6703	
==>This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fir <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1625	1716	
==>--------------------------------
## informational methods

method is_root returns Bool { $!p <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1625	1716	
==>--------------------------------
## informational methods

method is_root returns Bool { $!p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	635	731	
==>d memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	635	731	
==>d memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	635	731	
==>d memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_arg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19488	19582	
==>d.

Standard escapes (C<\a>, C<\e>, etc.) were being returned as I<exact>
nodes instead of I<an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5712	5829	
==>d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5712	5829	
==>d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5712	5829	
==>d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigi <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	229	319	
==>'foo');
#=postcircumfix
postcircumfix:«{ }»($a, 'foo');
# $a.postcircumfix:«{ }»('foo') <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1153	1262	
==>ub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2318	2427	
==>ub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8786	8891	
==>ically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sur <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8786	8891	
==>ically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	698	807	
==>e bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	698	807	
==>e bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	698	807	
==>e bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modif <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9823	9923	
==>XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typen <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2908	3030	
==>O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3453	3575	
==>O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8301	8410	
==>ection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11778	11887	
==>ection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31186	31334	
==>t_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31186	31334	
==>t_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31186	31334	
==>t_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11026	11163	
==>og (@{$args{progs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	218	343	
==>trict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        * <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8159	8276	
==>R::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	376	483	
==>R::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	376	483	
==>R::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	610	709	
==>e for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	610	709	
==>e for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	610	709	
==>e for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1637	1759	
==>body {
          [ \( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	270	386	
==>bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	270	386	
==>bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	270	386	
==>bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17450	17552	
==>$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() and like().
#

sub fresh_pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7770	7871	
==>}
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7770	7871	
==>}
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7770	7871	
==>}
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1013	1154	
==>ri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1013	1154	
==>ri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	474	579	
==>ty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files tha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	474	579	
==>ty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files tha <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4946	5118	
==>found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4946	5118	
==>found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6526	6620	
==>1);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6526	6620	
==>1);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_f <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17313	17434	
==>my @path = split(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11928	12048	
==>my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11928	12048	
==>my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11928	12048	
==>my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13048	13145	
==>This will remove all the header fields used to describe the content of
a message.  All header fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13048	13145	
==>This will remove all the header fields used to describe the content of
a message.  All header fiel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28029	28121	
==>itional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Mes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28029	28121	
==>itional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Mes <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17070	17182	
==>nal Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1799	1910	
==>elude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1799	1910	
==>elude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1799	1910	
==>elude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	172	308	
==>arCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	172	308	
==>arCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	172	308	
==>arCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2573	2666	
==>reter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Interpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10051	10227	
==>'my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10051	10227	
==>'my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10051	10227	
==>'my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30460	30553	
==>cketing system at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and enhancements to 
C <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11938	12059	
==>, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        ($in, $out, $pid <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27703	27802	
==>> may be an Set with a single member that is an empty Mapping.

=back

A Relation::Example object ha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37260	37353	
==>her, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41809	41902	
==>her, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41432	41525	
==>her, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>. <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7749	7850	
==>ode $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# signature from S29draft.pod 86 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7699	7794	
==>0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7699	7794	
==>0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7699	7794	
==>0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1374	1490	
==>n list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1718	1832	
==>n list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1325	1439	
==>n list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1718	1832	
==>n list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9095	9234	
==>::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9095	9234	
==>::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9095	9234	
==>::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5561	5682	
==>natives collection
        my @alts = @{ $self->registered_alternatives };
        
        ### check if we're the 'prefer <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1928	2127	
==>/= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1928	2127	
==>/= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	963	1060	
==>ash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the pack <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	963	1060	
==>ash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the pack <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	891	1032	
==>" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? " <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	891	1032	
==>" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? " <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5099	5197	
==>4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5099	5197	
==>4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2362	2488	
==>> $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2909	3035	
==>> $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3456	3582	
==>> $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3733	3850	
==>p => $top_obj );
    }
}

sub find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub { <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5663	5775	
==>evious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe, <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5663	5775	
==>evious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4209	4305	
==>ad2 @{}

When used as an array reference, the match object returns positional
captures as match o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4209	4305	
==>ad2 @{}

When used as an array reference, the match object returns positional
captures as match o <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18359	18566	
==>ist) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $2, $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2102	2206	
==>$full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STOR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2102	2206	
==>$full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STOR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2102	2206	
==>$full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STOR <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2070	2185	
==>ken_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2070	2185	
==>ken_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8717	8823	
==>ar {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8713	8819	
==>ar {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6690	6830	
==>sing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6690	6830	
==>sing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6690	6830	
==>sing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6266	6399	
==>*
        .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
        ([^\n]*)
    /ixms) {
        my $author = $1 || $2;
        $aut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18368	18460	
==>LTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18368	18460	
==>LTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18368	18460	
==>LTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1573	1679	
==>w PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1573	1679	
==>w PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1573	1679	
==>w PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1777	1898	
==>t.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1777	1898	
==>t.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Ro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1777	1898	
==>t.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Ro <==
4	/Users/nnunley/pugs/util/func_refact.pl	115	216	
==>=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filename contai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	794	918	
==>_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	794	918	
==>_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	794	918	
==>_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	926	1024	
==>piler::Rule->compile(<<'RULE')->code();\n";
    print $source;
    print "RULE\n";
}
print <<'PUSH' <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	105	195	
==>'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdlin <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	105	195	
==>'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdlin <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	109	239	
==>[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5858	5961	
==>y';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCH <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5858	5961	
==>y';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCH <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6448	6551	
==>y';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12335	12473	
==>}
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12335	12473	
==>}
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12335	12473	
==>}
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", sc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21162	21288	
==>me')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    no strict 'refs';
    &$loo <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1287	1411	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3583	3707	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1287	1411	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3583	3707	
==>7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3876	3977	
==>f => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3876	3977	
==>f => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3876	3977	
==>f => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26230	26317	
==>rator::arrow->new(
		type::operator::nary->new(list => $a),
		type::operator::arrow->new <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2278	2439	
==>_set,
            allow       => ISA_JIB_REPOSITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            store       => \$ins <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1358	1462	
==>ion 3.2

sub concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0] <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2495	2592	
==>point will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2495	2592	
==>point will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15827	15971	
==>emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp3} ) ;
    }

    return _not_implemented <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7771	7868	
==>der-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	16	105	
==>der-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPla <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	16	105	
==>der-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPla <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	550	719	
==>:constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	550	719	
==>:constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ru <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13178	13291	
==>my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	588	701	
==>my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35374	35515	
==>ibute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36299	36440	
==>ibute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37834	37975	
==>ibute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23381	23475	
==>method superclasses (opaque $self: list ?@superclasses) returns list {
    if (@superclasses.de <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1120	1295	
==>CH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1120	1295	
==>CH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2956	3053	
==>e_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        com <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2956	3053	
==>e_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        com <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9165	9337	
==>::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12642	12814	
==>::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21728	21821	
==>e>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is u <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21728	21821	
==>e>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2651	2772	
==>)) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # may <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2651	2772	
==>)) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # may <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2651	2772	
==>)) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # may <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	303	395	
==>"
void run_bytecode(Parrot_Interp i,char *bcfile) {
    Parrot_PackFile pf = Parrot_readbc(i, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1254	1352	
==>Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1254	1352	
==>Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1254	1352	
==>Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2187	2277	
==>truct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondie::Backe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2322	2434	
==>sh{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2322	2434	
==>sh{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2322	2434	
==>sh{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pai <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	270	375	
==>> 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2973	3054	
==>\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2973	3054	
==>\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2973	3054	
==>\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1117	1206	
==>", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19429	19524	
==>quested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authent <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19429	19524	
==>quested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authent <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23480	23573	
==>ext has no non-trivial
external dependencies (it is very simple).

There are other differences <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23480	23573	
==>ext has no non-trivial
external dependencies (it is very simple).

There are other differences <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	228	336	
==>LLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	228	336	
==>LLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11710	11818	
==>l6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3000	3107	
==>ocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3000	3107	
==>ocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3000	3107	
==>ocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11653	11758	
==>of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8800	8905	
==>of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11653	11758	
==>of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8800	8905	
==>of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert(...)>

Removes the given i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	812	915	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	812	915	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	812	915	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $t <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	16	118	
==>.01;

use File::Spec <catfile splitpath>;

our @.known_parsers;
my $parser_details = 'ParserDetails.ini <==
4	/Users/nnunley/pugs/util/claim_drift.pl	1160	1287	
==>al $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $orig or die "symlink: $!" } unless $Conf{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3911	4010	
==>ltered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3911	4010	
==>ltered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3911	4010	
==>ltered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'n <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5667	5799	
==>\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scalar    pre     min <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2533	2647	
==>(@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2533	2647	
==>(@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2533	2647	
==>(@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10002	10109	
==>.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        un <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10002	10109	
==>.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10453	10559	
==>because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "test.pl:runperl(): 'switches' m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22023	22124	
==>nt(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	324	458	
==>ackage Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symbol n <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	35	136	
==>ethod name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hallo, $name!".say; } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1595	1687	
==>head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1595	1687	
==>head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7554	7724	
==>atch)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaroun <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7554	7724	
==>atch)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaroun <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18119	18216	
==>cified in the constructor. If the nickname is already used, this module
will try to use a permuted <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18119	18216	
==>cified in the constructor. If the nickname is already used, this module
will try to use a permuted <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2053	2252	
==>when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @ar <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2053	2252	
==>when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @ar <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1325	1436	
==>map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental modu <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1325	1436	
==>map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental modu <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3343	3436	
==>gs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3343	3436	
==>gs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1207	1304	
==>::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if le <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1207	1304	
==>::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if le <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9232	9325	
==>t1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9232	9325	
==>t1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15931	16126	
==>ure(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15925	16120	
==>ure(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14821	14914	
==>ties_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  Bu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14821	14914	
==>ties_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  Bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17123	17271	
==>subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahaha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17123	17271	
==>subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahaha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17123	17271	
==>subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahaha <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	543	663	
==>int" }


 type MatchTest ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num ) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7649	7773	
==>pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10039	10149	
==>6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10039	10149	
==>6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10039	10149	
==>6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9712	9825	
==>les () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9712	9825	
==>les () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9712	9825	
==>les () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2571	2665	
==>tor->new($test_output);
    return $self->_analyze_iterator($name, $it);
}


sub _analyze_itera <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26982	27138	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27261	27417	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9198	9306	
==>ME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9198	9306	
==>ME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13225	13397	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27339	27511	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13504	13676	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27618	27790	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2886	3013	
==>ck.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2886	3013	
==>ck.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6301	6408	
==>();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6301	6408	
==>();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5383	5491	
==>{
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4513	4621	
==>{
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5383	5491	
==>{
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4513	4621	
==>{
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_s <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	856	1188	
==>8 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	856	1188	
==>8 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7641	7781	
==>ntent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7641	7781	
==>ntent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2873	2975	
==>see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2873	2975	
==>see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3103	3204	
==>lsif($stage eq 'pil_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<< <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28437	28534	
==>g node for this object.
This is used by the walk() method.  Typically, a capturing group's ender
i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5631	5731	
==>before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abort <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5631	5731	
==>before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abort <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7155	7255	
==>before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abort <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	45	126	
==>ocal/lib/perl5/site_perl/5.8.7/Module/Install/Fetch.pm"
package Module::Install::F <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3275	3382	
==>&RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self->{stack} } while @{ $self->{stack} };
    de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7116	7208	
==>d JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7116	7208	
==>d JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7116	7208	
==>d JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5449	5563	
==>*{ ref($self) . "::FLAG_$seq" } = $func;
}


sub del_flag {
  my ($self, @flags) = @_;
  no strict 'refs';
  my $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4543	4642	
==>ts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4543	4642	
==>ts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4543	4642	
==>ts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $obj <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5021	5133	
==>turns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4148	4260	
==>turns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5021	5133	
==>turns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4148	4260	
==>turns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2883	3024	
==>- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3067	3208	
==>- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- c <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2180	2302	
==>tatus $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5036	5171	
==>b { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16072	16207	
==>b { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17560	17695	
==>b { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22243	22378	
==>b { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1606	1742	
==>up',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> lit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1617	1753	
==>up',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> lit <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3448	3540	
==>thod does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3448	3540	
==>thod does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9815	9926	
==>$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9815	9926	
==>$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9815	9926	
==>$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]." <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11266	11356	
==>name } '... instance calling metaclass method fails';
fails_ok { $iBar->another_singleton_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1539	1655	
==>ain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1539	1655	
==>ain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1539	1655	
==>ain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1846	1949	
==>=~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'c');
  });

  $self->add_handler(' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4926	5036	
==>-> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4926	5036	
==>-> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5390	5496	
==>-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5390	5496	
==>-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2314	2451	
==>. " -- node_" . $class->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    ret <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2509	2618	
==>$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: use a real temp file?
sub emit_chunk {
    my($ <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	113	212	
==>ode.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger - <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	113	212	
==>ode.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger - <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5376	5475	
==>open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	623	723	
==>rs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	623	723	
==>rs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	623	723	
==>rs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding has <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2765	2910	
==>() ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2660	2797	
==>() ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3731	3845	
==>from, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15051	15164	
==>est <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	736	865	
==>x:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        pr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1153	1248	
==>ackage

=head2 $meta = $pkg->meta

The JIB::Meta object associated with this package

=head2 $pk <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	558	645	
==>st seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	558	645	
==>st seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12523	12630	
==>class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12523	12630	
==>class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16412	16512	
==>currence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16412	16512	
==>currence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the sp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11875	12041	
==>pt ::= &difference;

###########################################################################

method semidifference (Relation::Example $other!) returns Relation::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5673	5786	
==>elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5673	5786	
==>elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5673	5786	
==>elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	119	233	
==>s $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.cou <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	119	233	
==>s $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.cou <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1481	1591	
==>8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# u <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1481	1591	
==>8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12710	12884	
==>$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12710	12884	
==>$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12710	12884	
==>$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1377	1476	
==>5" regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 regexes that use <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27906	28010	
==>OPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MAT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3279	3381	
==>ixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3279	3381	
==>ixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3279	3381	
==>ixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shif <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3984	4102	
==>alues{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2277	2378	
==>(pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2277	2378	
==>(pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2277	2378	
==>(pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <e <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5115	5326	
==>th,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	688	796	
==>nk to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Perl 6 s <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6939	7045	
==>: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless -e "pugs$Config{_exe} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	655	755	
==>nk to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Perl 6 s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9641	9812	
==>1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Relation::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	905	1021	
==>s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	905	1021	
==>s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TO <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	905	1021	
==>s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52326	52417	
==>he boostrapping

# < Class is subclass of Object >
$::Class->set_attr(symbol->new('@:supercl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5340	5525	
==>dy >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5340	5525	
==>dy >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1601	1693	
==>COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free so <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1601	1693	
==>COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free so <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	999	1134	
==>6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_apply
       p6_applym
       p6_return_CODE
       p6_catch_return_CO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17613	17806	
==>}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17892	18085	
==>}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1029	1126	
==>sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1029	1126	
==>sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	349	437	
==>ule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	349	437	
==>ule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2319	2471	
==>ched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9091	9243	
==>ched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2319	2471	
==>ched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9091	9243	
==>ched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4407	4518	
==>r if $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15025	15205	
==>ant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15304	15484	
==>ant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19610	19707	
==>over N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24162	24259	
==>over N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1127	1244	
==>sif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1127	1244	
==>sif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1127	1244	
==>sif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package P <==
4	/Users/nnunley/pugs/util/run-smoke.pl	271	370	
==>rereq($_) or $failed++;
}

die <<"EOF" if $failed;

You don't seem to have the required modules inst <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26030	26121	
==>o or more Relation::Example attribute names that
define the heading of this Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1289	1378	
==>e a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1289	1378	
==>e a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1289	1378	
==>e a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::g <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2767	2878	
==>' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") if $cc;
    return $S->fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7045	7149	
==>oro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7045	7149	
==>oro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7045	7149	
==>oro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	999	1164	
==>ess %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	999	1164	
==>ess %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13441	13589	
==>ass_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             got <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13441	13589	
==>ass_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             got <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13441	13589	
==>ass_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             got <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9000	9117	
==>ion --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       ta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3804	3976	
==>ne.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Name <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3804	3976	
==>ne.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24916	25038	
==>w< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21337	21459	
==>w< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      retu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1982	2275	
==>mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8617	8810	
==>$r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12094	12287	
==>$r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11303	11496	
==>$r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1934	2097	
==>h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # -> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1934	2097	
==>h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # -> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1934	2097	
==>h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # -> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6444	6542	
==>::pos == (length($X::str)) || substr($X::str,$X::pos,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2910	3014	
==>s;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($cl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	174	278	
==>s;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($cl <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1862	1955	
==>M::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utt <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1862	1955	
==>M::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utt <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	474	674	
==>if ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	474	674	
==>if ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1975	2080	
==>&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1986	2091	
==>&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2556	2659	
==>\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2556	2659	
==>\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2556	2659	
==>\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7754	7855	
==>= $repo->add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	585	680	
==>oth.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code direct <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	585	680	
==>oth.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code direct <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2503	2597	
==>f));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2503	2597	
==>f));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subse <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	811	911	
==>t create $testdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if " <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	120	214	
==>ing is making the
# "source" property of the object fallback to "content"
method source($self:) <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	120	214	
==>ing is making the
# "source" property of the object fallback to "content"
method source($self:) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1690	1786	
==>t is to
continue cleaning and adding p6, tuck it into the pugs distribution
somewhere with test f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7488	7576	
==>lass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7488	7576	
==>lass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7488	7576	
==>lass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @s <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3677	3791	
==>le};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensions {
    my ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4039	4150	
==>ndef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4039	4150	
==>ndef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4039	4150	
==>ndef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == unde <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	922	1053	
==>s {
    my $self = shift;
    map { @$_ } $self->scopes;
}

sub scopes {
    my $self = shift;
    @{ $self->{scopes} }
}

sub enter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4399	4506	
==>'overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4399	4506	
==>'overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4399	4506	
==>'overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1790	1891	
==>DO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1790	1891	
==>DO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_require <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1790	1891	
==>DO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_require <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	653	752	
==>it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() creates inst <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6209	6356	
==>st ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( unini <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6209	6356	
==>st ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( unini <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4011	4112	
==>ethod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4011	4112	
==>ethod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	332	447	
==>RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1174	1274	
==>ons on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1174	1274	
==>ons on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1174	1274	
==>ons on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	783	901	
==>e;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {Pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	783	901	
==>e;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {Pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	783	901	
==>e;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {Pr <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10269	10365	
==>head2 C<_cleaned_switches>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1607	1808	
==>o PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rela <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1607	1808	
==>o PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rela <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1607	1808	
==>o PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rela <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1703	1805	
==>values.

C<Env> is a map - it contains symbol to value mappings.

=back

=head2 Misc

=over 4

=item Bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9210	9337	
==>$self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1334	1455	
==>$self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1334	1455	
==>$self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31547	31646	
==>rm is deprecated, but is
still allowed, so I delete its handler too.  You can use this class to
ensu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3953	4051	
==>ype_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4286	4384	
==>ype_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3953	4051	
==>ype_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4286	4384	
==>ype_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2913	3140	
==>');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3167	3394	
==>');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2913	3140	
==>');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3167	3394	
==>');
                        %events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3736	3842	
==>e extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3736	3842	
==>e extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11017	11111	
==>expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expec <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11075	11169	
==>expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4926	5041	
==>EBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4926	5041	
==>EBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4926	5041	
==>EBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, : <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3267	3375	
==>->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alnum {
  my ( $matchObj ) = @_
  my ($mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1963	2061	
==>nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1963	2061	
==>nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1963	2061	
==>nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11877	12013	
==>e, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_col <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11877	12013	
==>e, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_col <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2437	2567	
==>temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2437	2567	
==>temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	114	237	
==>Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	336	433	
==>riendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	336	433	
==>riendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	336	433	
==>riendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	152	274	
==>Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16215	16317	
==>ULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16215	16317	
==>ULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16215	16317	
==>ULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	157	262	
==>.
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	157	262	
==>.
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6509	6604	
==>=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handle <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6509	6604	
==>=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	168	281	
==>arser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	168	281	
==>arser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	168	281	
==>arser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel:: <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	396	533	
==>ript_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line =~ /^#\s*prompt:\s+(.*)/;
        $default = $1  if $lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2862	2954	
==>ne => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2862	2954	
==>ne => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2862	2954	
==>ne => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () { <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1660	1810	
==>ppend_value( $arg );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11221	11348	
==>r(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11221	11348	
==>r(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11221	11348	
==>r(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6030	6130	
==>nd declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6030	6130	
==>nd declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6030	6130	
==>nd declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1093	1188	
==>ypeSafe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6041	6194	
==>thod next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6041	6194	
==>thod next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	8	124	
==>in/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switch <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	8	124	
==>in/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30414	30526	
==>rn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 & <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30414	30526	
==>rn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 & <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30414	30526	
==>rn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 & <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10028	10127	
==>it>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14248	14452	
==>}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14248	14452	
==>}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14248	14452	
==>}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	466	562	
==>nless Scalar::Util::blessed($node);
	return if $node->atomic;

	return 1;
}

sub generic_reduce { <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5952	6070	
==>wer the first chunk by 1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	101	218	
==>ub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	101	218	
==>ub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	101	218	
==>ub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17361	17460	
==>ill copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22463	22562	
==>ill copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3591	3690	
==>d by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3808	3907	
==>d by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8223	8321	
==>ection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7353	7451	
==>ection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8223	8321	
==>ection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7353	7451	
==>ection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	784	898	
==>A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimization - pass the string ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1153	1263	
==>A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string ind <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	752	862	
==>A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1153	1263	
==>A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimization - pass the string ind <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12318	12414	
==>=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12318	12414	
==>=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1476	1595	
==>);
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1476	1595	
==>);
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1125	1234	
==>[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1125	1234	
==>[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11793	11931	
==>match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12072	12210	
==>match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       rul <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12821	12917	
==>encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12821	12917	
==>encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	98	201	
==>his adds a 5.005 Perl version dependency.
### This is a bug and will be fixed.
use File::Spec ();
use Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2450	2549	
==>ndalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2450	2549	
==>ndalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2450	2549	
==>ndalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2407	2548	
==>ixity} eq 'infix';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2301	2431	
==>p\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2301	2431	
==>p\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2301	2431	
==>p\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	737	849	
==>l5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	737	849	
==>l5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	737	849	
==>l5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shif <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3238	3341	
==>urns Int { $.day - 1 }
method day_0 returns Int { $.day - 1 }
method mday returns Int { $.day }
method m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	370	487	
==>ft;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	370	487	
==>ft;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	370	487	
==>ft;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6450	6561	
==>ct;");
    }
    elsif($sn eq 'global') {
	warn "global PPad may not be doing the right thing\n";
	$decl = "no s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27164	27274	
==>$self->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2964	3066	
==>ello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2964	3066	
==>ello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2964	3066	
==>ello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	461	577	
==>robably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub si <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	461	577	
==>robably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub si <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	461	577	
==>robably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub si <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3929	4041	
==>();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8081	8222	
==>_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8081	8222	
==>_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8081	8222	
==>_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14895	14993	
==>ed into the core functionality of F<Regexp::Parser>
in the future.  Module names are merely the aut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1463	1559	
==>«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1463	1559	
==>«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1463	1559	
==>«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)" <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4465	4559	
==>\( <argument_list> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7057	7187	
==>[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7045	7175	
==>[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10473	10575	
==>act,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10473	10575	
==>act,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1138	1329	
==>cription'},
                '$.passed'      =>                        1,
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	492	602	
==>of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	492	602	
==>of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	492	602	
==>of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13393	13492	
==>most of the functions is a way
to provide a comment that refers to another file or test which must b <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13451	13550	
==>most of the functions is a way
to provide a comment that refers to another file or test which must b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26153	26249	
==>is a generic relational operator that returns a new Relation
which has a subset of the original's <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31148	31244	
==>is a generic relational operator that returns a new Relation
which has a subset of the original's <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30705	30801	
==>is a generic relational operator that returns a new Relation
which has a subset of the original's <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35698	35794	
==>is a generic relational operator that returns a new Relation
which has a subset of the original's <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	358	612	
==>is file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	358	612	
==>is file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the R <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2226	2321	
==>of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2226	2321	
==>of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	211	306	
==>base 'Object::Accessor';

=head2 $set = JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

su <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4036	4124	
==>er 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4036	4124	
==>er 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5560	5648	
==>er 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13835	13952	
==>n/ if $is_vms; # XXX pipes sometimes double these
    return $result;
}

*run_perl = \&runperl; # Nice alias.

sub DIE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1135	1249	
==>assdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1135	1249	
==>assdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1135	1249	
==>assdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw er <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13970	14090	
==>ople and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13970	14090	
==>ople and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Inte <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2419	2523	
==>ently requires swi prolog be built ./configure --enable-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9237	9328	
==>value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1078	1179	
==>ading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1078	1179	
==>ading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1634	1735	
==>ading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1883	1984	
==>($name, $config) = @_;
    my $path = $Config{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2223	2338	
==>ace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAG <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2223	2338	
==>ace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAG <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2223	2338	
==>ace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAG <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3206	3315	
==>> "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(an <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15846	15945	
==>.

This library is free software; you can redistribute it and/or
modify it under the same terms as P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21385	21484	
==>.

This library is free software; you can redistribute it and/or
modify it under the same terms as P <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15846	15945	
==>.

This library is free software; you can redistribute it and/or
modify it under the same terms as P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21385	21484	
==>.

This library is free software; you can redistribute it and/or
modify it under the same terms as P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3759	3885	
==>onf->archive_data;
        my $control = $conf->archive_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX har <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	33	127	
==>...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	33	127	
==>...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	33	127	
==>...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runt <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	441	533	
==>NAME

Blondie::Prelude - Aggregator of builtin functions for Blondie runtimes

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1100	1195	
==>security; see the L</SECURITY> section for details.  (In particular, 
note that the serious inse <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1100	1195	
==>security; see the L</SECURITY> section for details.  (In particular, 
note that the serious inse <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1543	1631	
==>Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1543	1631	
==>Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19346	19513	
==>ttrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19346	19513	
==>ttrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19346	19513	
==>ttrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5206	5344	
==>eturn;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1633	1729	
==>($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1633	1729	
==>($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ( <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9360	9484	
==>longs: $_" unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n") <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2105	2279	
==>start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2105	2279	
==>start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4311	4453	
==>'¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4311	4453	
==>'¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	687	795	
==>>SUPER::type;

		# this method always returns the shallowest possible scalar value

		# simplify [["Foo"]] in <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23468	23560	
==>cale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are othe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23468	23560	
==>cale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are othe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2787	2879	
==>nings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::Mo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2787	2879	
==>nings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::Mo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2313	2420	
==>lation;

    # External packages used by the Relation::Example class, that do export symbols:
    # (None Ye <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	806	911	
==>{ say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	806	911	
==>{ say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	806	911	
==>{ say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7393	7502	
==>s_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7393	7502	
==>s_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "r <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5233	5380	
==>ss $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            while (<FH>) {
                last META <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2956	3065	
==>data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing dat <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2956	3065	
==>data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing dat <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17353	17458	
==>p = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	127	240	
==>se(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	127	240	
==>se(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	127	240	
==>se(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be c <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	227	319	
==>t PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
use constant PGE_OPTABLE_INFI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1032	1137	
==>extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1032	1137	
==>extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1032	1137	
==>extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2238	2369	
==>-&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2238	2369	
==>-&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2238	2369	
==>-&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15352	15464	
==>"(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9949	10059	
==>ode::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5430	5533	
==>r;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5430	5533	
==>r;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6020	6123	
==>r;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3427	3545	
==>t ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefaul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3427	3545	
==>t ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefaul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3427	3545	
==>t ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefaul <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6184	6279	
==>=> 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", [ sort { $a->{name} cmp $b-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6068	6168	
==>es in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advan <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	621	721	
==>called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# this code is a hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6068	6168	
==>es in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6068	6168	
==>es in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8515	8656	
==>rn sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12425	12563	
==>rn sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12425	12563	
==>rn sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	133	228	
==>@EXPORT];
use base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub constan <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1057	1267	
==>when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1057	1267	
==>when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4678	4775	
==>rt of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4678	4775	
==>rt of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	79	183	
==>Param")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $isLValue;    # not is c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2819	2917	
==>rive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, mak <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2819	2917	
==>rive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, mak <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15727	15818	
==>ment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15785	15876	
==>ment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16754	16907	
==>dditional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real her <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21852	22005	
==>dditional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real her <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	935	1053	
==>(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4413	4531	
==>(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mappi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	145	274	
==>ut;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	145	274	
==>ut;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method dia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13290	13462	
==>e( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13290	13462	
==>e( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13290	13462	
==>e( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5104	5193	
==>in,Max,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25185	25271	
==>work/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23949	24035	
==>work/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25185	25271	
==>work/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23949	24035	
==>work/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for exam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26287	26422	
==>ew('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $self: opaque $subclass) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1883	1972	
==>Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1883	1972	
==>Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1883	1972	
==>Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20621	20723	
==>name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->new()" if $name =~ /\@/;
    return "\$${ROOT}::Ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4642	4743	
==>PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4642	4743	
==>PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4642	4743	
==>PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20601	20699	
==>urns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19527	19625	
==>urns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20601	20699	
==>urns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19527	19625	
==>urns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C<join <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	766	866	
==>escription;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	766	866	
==>escription;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33045	33144	
==>tores an ordered list of one or more elements where
each element is a Template module Set Name.  Whe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33045	33144	
==>tores an ordered list of one or more elements where
each element is a Template module Set Name.  Whe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20633	20750	
==>has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19559	19676	
==>has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20633	20750	
==>has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19559	19676	
==>has joined. This is a readonly accessor, you
have to use the C<join> and C<part> methods to join or leave channels.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	28	137	
==>mar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	28	137	
==>mar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	28	135	
==>mar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	28	135	
==>mar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13733	13948	
==>w();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   igno <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13733	13948	
==>w();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   igno <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13733	13948	
==>w();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   igno <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	237	399	
==>b register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6641	6760	
==>e_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_va <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6641	6760	
==>e_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_va <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	780	875	
==>operty - content.

The constructor for this class has a special shortcut syntax compared
to norm <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	780	875	
==>operty - content.

The constructor for this class has a special shortcut syntax compared
to norm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17682	17801	
==>ead1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    usern <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17682	17801	
==>ead1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    usern <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11137	11227	
==>eader (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11137	11227	
==>eader (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns St <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5040	5201	
==>.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5040	5201	
==>.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10148	10303	
==>dtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expres <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10148	10303	
==>dtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expres <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2778	2908	
==>oken>},
                map { "$_" } @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runtim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9655	9821	
==>@li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9655	9821	
==>@li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9655	9821	
==>@li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2387	2496	
==>ST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie> f <==
4	/Users/nnunley/pugs/util/combine_tests.pl	210	306	
==>$combined);
print Dump(combine_tests(map { LoadFile($_) } @ARGV));
#
# Annotates the last test tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11649	11749	
==>on't try to put literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9423	9513	
==>t ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";")) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9423	9513	
==>t ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";")) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9423	9513	
==>t ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";")) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8590	8734	
==>e, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8590	8734	
==>e, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2323	2419	
==>cts or fully functioning modules in 
Pugs, this port does it's best to work with those limitation <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2323	2419	
==>cts or fully functioning modules in 
Pugs, this port does it's best to work with those limitation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4780	4884	
==>$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p3d->g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11171	11274	
==>rl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11171	11274	
==>rl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11171	11274	
==>rl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstke <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15143	15258	
==>foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't unlink '$file': $!\n" if -f $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1942	2050	
==>as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1942	2050	
==>as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1942	2050	
==>as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3835	3949	
==>}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3835	3949	
==>}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3835	3949	
==>}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14586	14683	
==>ion.

  The regexp compiler hook generally gets the pattern _after_ variable
  interpolation has o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13464	13597	
==>s}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13464	13597	
==>s}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13464	13597	
==>s}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8598	8719	
==>put.write( $footer ) if $footer;
  }
  
  method get_test_number
  {
      return +@:results + 1;
  }
  
  method plan ( S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	545	667	
==>sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Can <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	545	667	
==>sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Can <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	545	667	
==>sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Can <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	708	827	
==>st}{capture};
    Dumper($ast);
    $_ = q[rule {
    package Pugs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2157	2259	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retur <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	417	519	
==>imit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another object or s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2157	2259	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2157	2259	
==>, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6944	7079	
==>0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11948	12083	
==>0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6944	7079	
==>0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11942	12077	
==>0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8363	8481	
==>$j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8363	8481	
==>$j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8363	8481	
==>$j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::c <==
4	/Users/nnunley/pugs/util/testgraph.pl	339	433	
==>$yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't open $yaml <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5722	5828	
==>s!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4852	4958	
==>s!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5722	5828	
==>s!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4852	4958	
==>s!  :D
multi sub *infix:«⊂» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1040	1164	
==>f ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scop <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1040	1164	
==>f ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scop <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1040	1164	
==>f ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1244	1361	
==>f $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::RegexPerl5 - Compiler for Per <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1138	1255	
==>_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () re <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	880	997	
==>_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () re <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1138	1255	
==>_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () re <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	880	997	
==>_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () re <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17450	17577	
==>s);
  for my $start (0..$len) {
    local $X::str = $s;
    local $X::pos = $start;
    local $X::cap = [];
    my $m = MatchX-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5585	5693	
==>_24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5585	5693	
==>_24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5585	5693	
==>_24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1564	1670	
==>[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1564	1670	
==>[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1564	1670	
==>[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7294	7413	
==>cygwin)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5949	6059	
==>{
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5949	6059	
==>{
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5678	5798	
==>tf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5678	5798	
==>tf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5678	5798	
==>tf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7724	7828	
==>e;
sub node::empty_list {
    return "()";
}
sub node::immediate_statement_exec {
    return get_data( $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3160	3296	
==>s ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3160	3296	
==>s ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3160	3296	
==>s ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $se <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7205	7321	
==>, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $depends <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14149	14364	
==>oxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'z <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14149	14364	
==>oxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'z <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14149	14364	
==>oxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'z <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5184	5280	
==>i,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2184	2294	
==>y, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # w <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2184	2294	
==>y, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19645	19737	
==>u specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight va <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19645	19737	
==>u specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18497	18611	
==>SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18497	18611	
==>SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2656	2750	
==>e_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2656	2750	
==>e_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	57	148	
==>escape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	57	148	
==>escape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5597	5732	
==>h previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5609	5744	
==>h previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13496	13588	
==>ort_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13496	13588	
==>ort_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3913	4025	
==>unless _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write( $test->rep <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13922	14027	
==>y and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17399	17504	
==>y and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16779	16884	
==>y and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3252	3358	
==>$.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expres <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3252	3358	
==>$.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expres <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10984	11082	
==>s Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11042	11140	
==>s Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34299	34389	
==>thod creates and returns a new Locale::KeyedText::Translator object.
The Set Names property <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34299	34389	
==>thod creates and returns a new Locale::KeyedText::Translator object.
The Set Names property <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11513	11613	
==>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size() <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8660	8760	
==>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size() <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11513	11613	
==>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size() <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8660	8760	
==>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set.size() <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1002	1127	
==>n, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1002	1127	
==>n, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+// <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	862	958	
==>mbinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	862	958	
==>mbinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1071	1173	
==>ed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1071	1173	
==>ed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1071	1173	
==>ed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2175	2268	
==>exicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2175	2268	
==>exicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2175	2268	
==>exicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box. <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2039	2172	
==>by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mod <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3631	3760	
==>by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2187	2281	
==>osetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2187	2281	
==>osetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9346	9467	
==>es = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9346	9467	
==>es = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash. <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	480	590	
==>{
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<durati <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	480	590	
==>{
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<durati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29416	29507	
==>:Example attribute names, or any C<$mapping> values duplicate each other,
or duplicate attri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14097	14232	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14376	14511	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       rule <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3767	3857	
==>in <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3767	3857	
==>in <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3661	3808	
==>terpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4978	5125	
==>terpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3661	3808	
==>terpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4966	5113	
==>terpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17187	17276	
==>hods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes')) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17187	17276	
==>hods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes')) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17187	17276	
==>hods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes')) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4246	4363	
==>if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4116	4231	
==>if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7094	7191	
==>t<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7094	7191	
==>t<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $eve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13862	13975	
==>CK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("J <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13862	13975	
==>CK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("J <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34570	34666	
==>lation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39120	39216	
==>lation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2	121	
==>Usage: perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2	121	
==>Usage: perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	2	119	
==>Usage: perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2	119	
==>Usage: perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	31	125	
==>sInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use warnings;
use constant PGE_OPTAB <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25241	25333	
==>he immutable identity of the
argument C<$other> equals the immutable identity of the invocant <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29793	29885	
==>he immutable identity of the
argument C<$other> equals the immutable identity of the invocant <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28723	28815	
==>he immutable identity of the
argument C<$other> equals the immutable identity of the invocant <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4353	4459	
==>nect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple proc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4353	4459	
==>nect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple proc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26093	26191	
==>short
string; the allowed variable names you can have depend on the Message Key
it is being used wi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26093	26191	
==>short
string; the allowed variable names you can have depend on the Message Key
it is being used wi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	171	288	
==>s -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $dir <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22050	22178	
==>?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22610	22738	
==>?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18471	18599	
==>?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19031	19159	
==>?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1598	1733	
==>ay' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1598	1733	
==>ay' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1598	1733	
==>ay' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	389	501	
==>>Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
        nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2685	2788	
==>JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2685	2788	
==>JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2685	2788	
==>JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PI <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14247	14344	
==>e loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to trap <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20088	20185	
==>m the main program binary.  Each user
language is in a separate file, and adding a localization to <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20088	20185	
==>m the main program binary.  Each user
language is in a separate file, and adding a localization to <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14247	14344	
==>e loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to trap <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6382	6489	
==>self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6382	6489	
==>self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19037	19135	
==>ion layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS wi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19037	19135	
==>ion layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS wi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5175	5335	
==>-$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5175	5335	
==>-$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	730	876	
==>onfig = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        my ($root, $pool, $pool_rel, $index, $index_fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1547	1650	
==>6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1547	1650	
==>6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1547	1650	
==>6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_e <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5437	5563	
==>rk right.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14771	14877	
==>um( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
us <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14771	14877	
==>um( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
us <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14771	14877	
==>um( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
us <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	194	311	
==>@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = 123; }
#="is ref": eine Referenz wird er <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6693	6840	
==>ri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referre <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6693	6840	
==>ri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referre <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1975	2070	
==>psis, you should
be left with nothing but questions about what this object represents.

It repre <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1975	2070	
==>psis, you should
be left with nothing but questions about what this object represents.

It repre <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2520	2646	
==>>{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	12	128	
==>:PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	12	128	
==>:PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	12	128	
==>:PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $sel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4582	4693	
==>$i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10522	10708	
==>as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10522	10708	
==>as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is r <==
4	/Users/nnunley/pugs/util/build_pugs.pl	194	309	
==>s;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'inc';
use PugsBuild::Config;

h <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7875	7985	
==>my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ast ( %app< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6399	6493	
==>ed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6399	6493	
==>ed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6399	6493	
==>ed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26720	26814	
==>OPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31376	31469	
==>on in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35926	36019	
==>on in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35144	35237	
==>on in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-on <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	501	644	
==>elf.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	501	644	
==>elf.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9783	9894	
==>nected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9783	9894	
==>nected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	857	964	
==>height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	857	964	
==>height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7149	7259	
==>ft;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	507	597	
==>tactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	507	597	
==>tactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	507	597	
==>tactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18900	19026	
==>{
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20258	20384	
==>{
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13605	13704	
==>rs of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13605	13704	
==>rs of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8131	8229	
==>).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7261	7359	
==>).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8131	8229	
==>).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7261	7359	
==>).difference(set @b).members }
multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5651	5752	
==>.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our stat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5651	5752	
==>.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1675	1828	
==>$recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1882	2035	
==>$recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15308	15408	
==>able for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15308	15408	
==>able for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These meth <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	95	338	
==>ymbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	95	338	
==>ymbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2504	2731	
==>ts<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2504	2731	
==>ts<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8281	8408	
==>^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8281	8408	
==>^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8281	8408	
==>^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($ <==
4	/Users/nnunley/pugs/util/config_h.pl	319	429	
==>ory of the Pugs installation 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ARG <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6380	6484	
==>ions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6380	6484	
==>ions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7250	7353	
==>ions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7250	7353	
==>ions with non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13535	13658	
==>ir, to altdir
        my $script = basename($_);
    
        my $alt = $self->alternatives_dir->file( $script );
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	824	940	
==>our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	824	940	
==>our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	824	940	
==>our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = ne <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1226	1352	
==>e
        # so, why do these two not actually split?
        # my @args = $string.split(rx:Perl5/\s+/);
        # my @args = sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6194	6295	
==>in("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6194	6295	
==>in("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6194	6295	
==>in("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1456	1551	
==>Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.un <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1456	1551	
==>Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19586	19672	
==>PAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 I <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19586	19672	
==>PAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 I <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3665	3767	
==>e
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3665	3767	
==>e
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23435	23527	
==>s to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23435	23527	
==>s to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> " <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	308	475	
==>defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	308	475	
==>defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7876	7992	
==>tch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7864	7980	
==>tch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8144	8255	
==>ction returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match fa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7870	7978	
==>ction returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match fa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	593	679	
==>http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to s <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	593	679	
==>http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2768	2876	
==>round.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? w <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2768	2876	
==>round.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? w <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2768	2876	
==>round.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	94	187	
==>amicScoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blond <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4360	4463	
==>at will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4360	4463	
==>at will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5233	5333	
==>at will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5233	5333	
==>at will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10749	10887	
==>m_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10749	10887	
==>m_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9126	9222	
==>there's absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8826	8920	
==>there's absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7845	8068	
==>// yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pa <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7845	8068	
==>// yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33782	33919	
==>( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33782	33919	
==>( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33782	33919	
==>( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1229	1319	
==>symbolic_representation($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1952	2088	
==>t;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scalar_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23582	23693	
==>,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23582	23693	
==>,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23582	23693	
==>,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defin <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2259	2352	
==>PTABLE_CLOSE;
    $self->operatorTable()->{$spacePresent[1]} = %tokenClone;
    $self->whitesp <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25163	25258	
==>ts=%d, %s>

If all tests are successful some statistics about the performance are
printed.

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7388	7513	
==>al;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7388	7513	
==>al;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7388	7513	
==>al;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3551	3642	
==>$pil_code,$warn) = Perl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !define <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1399	1514	
==>, transform it into an object
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	132	241	
==>ant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	132	241	
==>ant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	132	241	
==>ant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4932	5054	
==>s ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed befor <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4932	5054	
==>s ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed befor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5026	5131	
==>_ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5026	5131	
==>_ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pm <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16316	16423	
==>ion {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Couldn't open pipe to \"$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22595	22686	
==>,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22595	22686	
==>,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22595	22686	
==>,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15194	15296	
==>? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15194	15296	
==>? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15194	15296	
==>? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2649	2745	
==>opeop}?\s*${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	228	316	
==>prog = shift;

	Blondie::TypeSafe::Flatten->new->reduce(
		Blondie::TypeSafe::Annotator-> <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6509	6645	
==>ncode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6509	6645	
==>ncode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1462	1557	
==>s are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1462	1557	
==>s are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back i <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2180	2342	
==>%self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        }, <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2180	2342	
==>%self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        }, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17878	18017	
==>_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17878	18017	
==>_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	729	850	
==>ammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	891	1012	
==>ammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $par <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5779	5880	
==>-\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5779	5880	
==>-\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5586	5701	
==>);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5586	5701	
==>);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6176	6291	
==>);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	389	501	
==>) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module was automati <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1835	1968	
==>e::Spec->updir || $file eq File::Spec->curdir;
            next if $file eq ".svn";
            next if $file eq "CVS";
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9042	9147	
==>my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9042	9147	
==>my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9042	9147	
==>my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9048	9142	
==>evious_comp_hook = PL_regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_hook_off() { /* a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6827	6923	
==>4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4179	4275	
==>4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6827	6923	
==>4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4179	4275	
==>4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5877	5976	
==>test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5877	5976	
==>test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7401	7500	
==>test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7483	7569	
==>0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22109	22200	
==>or numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20990	21081	
==>or numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22109	22200	
==>or numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varie <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20990	21081	
==>or numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (varie <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2032	2212	
==>e(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Resu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2032	2212	
==>e(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Resu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31495	31590	
==>tion has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36045	36140	
==>tion has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simp <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2230	2338	
==>'t open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9150	9258	
==>hod fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define t <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9150	9258	
==>hod fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define t <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2230	2338	
==>'t open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	230	343	
==>urce dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & error checking
    my $struc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6596	6702	
==>=> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6596	6702	
==>=> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6596	6702	
==>=> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	461	577	
==>ant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	461	577	
==>ant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	461	577	
==>ant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3672	3788	
==>line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4484	4596	
==>fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4484	4596	
==>fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4484	4596	
==>fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1236	1333	
==>y Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), pr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3728	3825	
==>ix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) ret <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1236	1333	
==>y Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), pr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3728	3825	
==>ix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) ret <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7017	7157	
==>ft },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7017	7157	
==>ft },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	691	801	
==>r:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lower {
  my ( $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4533	4638	
==>$cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4533	4638	
==>$cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4533	4638	
==>$cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25317	25413	
==>ngo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistri <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24081	24177	
==>ngo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistri <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25317	25413	
==>ngo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistri <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24081	24177	
==>ngo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free software; you can redistri <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29511	29607	
==>t's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34063	34159	
==>t's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33227	33323	
==>t's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tup <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21395	21487	
==>agnostics and Bug Fixes

More tests added (specifically, making sure C<(?(N)T|F)> works right <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2513	2657	
==>etchSize)){
                    $self->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slots <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6537	6653	
==>a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6537	6653	
==>a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6537	6653	
==>a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pS <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1291	1400	
==>nsity ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1291	1400	
==>nsity ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1248	1351	
==>= match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1248	1351	
==>= match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6304	6401	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8372	8469	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6304	6401	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8372	8469	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1563	1767	
==>t>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1563	1767	
==>t>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16070	16160	
==>eters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vince <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16128	16218	
==>eters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vince <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9377	9552	
==>ason => $results{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{todo},
                    ml          => $ml, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3909	4043	
==>} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4102	4236	
==>} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tai <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	412	512	
==>yaml this file?
    open my $fh, "$Metactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13078	13228	
==>res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13078	13228	
==>res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13078	13228	
==>res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	719	837	
==>t "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	401	522	
==>nal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	401	522	
==>nal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	401	522	
==>nal => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27983	28077	
==>dification of a standard object, no warnings will be issued.

=head2 The F<__object__> Base Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	643	773	
==>k \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7608	7736	
==>ge( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7608	7736	
==>ge( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7608	7736	
==>ge( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22485	22721	
==>alar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22485	22721	
==>alar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22485	22721	
==>alar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5848	5947	
==>le_name - the name of the rule that will parse operands.

=head2 add_op ()

Instance method.  Adds a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2157	2277	
==>ssage is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( St <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4298	4412	
==>RD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '.' BAREWO <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	158	266	
==>ssage is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( St <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	158	266	
==>ssage is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2097	2217	
==>put\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	411	531	
==>put\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2097	2217	
==>put\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2097	2217	
==>put\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12065	12158	
==>ted_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on ch <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12123	12216	
==>ted_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on ch <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	12	102	
==>e Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_pat <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	12	102	
==>e Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2169	2248	
==>oerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|sc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2169	2248	
==>oerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|sc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2169	2248	
==>oerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|sc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14645	14756	
==>eval "require File::Spec";
	    if ($@) {
		warn "test.pl had problems loading File::Spec: $@";
		$Perl = "./$pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	161	260	
==>plemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	161	260	
==>plemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	161	260	
==>plemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/pus <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5379	5498	
==>ity 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    retur <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5379	5498	
==>ity 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16707	16808	
==>nto Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the res <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16707	16808	
==>nto Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the res <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6005	6103	
==>changing the 
actual semantics.

Please note that most of the time, it will not be necessary to wri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6005	6103	
==>changing the 
actual semantics.

Please note that most of the time, it will not be necessary to wri <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1695	1788	
==>et(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of informa <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1695	1788	
==>et(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of informa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1406	1509	
==>r unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1406	1509	
==>r unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1406	1509	
==>r unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - ma <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22515	22612	
==>1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   co <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	492	613	
==>k of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	492	613	
==>k of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32660	32756	
==>arguments is not significant to the result;
the new Relation contains all the tuples of the sourc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37210	37306	
==>arguments is not significant to the result;
the new Relation contains all the tuples of the sourc <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5157	5353	
==>}
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) { <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5157	5353	
==>}
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	351	465	
==>for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	351	465	
==>for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7777	7905	
==>md =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7777	7905	
==>md =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2529	2644	
==>ile - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2746	2861	
==>ile - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prel <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10180	10484	
==>,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	384	495	
==>g->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	384	495	
==>g->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	384	495	
==>g->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23579	23748	
==>}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23858	24027	
==>}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3132	3264	
==>2 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3132	3264	
==>2 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13766	13898	
==>map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $sk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1734	1825	
==>ented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1734	1825	
==>ented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1734	1825	
==>ented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5239	5395	
==>ngth >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@ta <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5239	5395	
==>ngth >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@ta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	385	505	
==>print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	482	602	
==>print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Be <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2670	2823	
==>> $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2670	2823	
==>> $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1458	1559	
==>ulti sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ ur <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1458	1559	
==>ulti sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ ur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	549	668	
==>ssful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or pre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	549	668	
==>ssful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or pre <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	640	756	
==>e running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ se <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	640	756	
==>e running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ se <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	391	493	
==>SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.c <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	391	493	
==>SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.c <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11002	11097	
==>Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $go <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11060	11155	
==>Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10738	10858	
==>od;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10738	10858	
==>od;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10738	10858	
==>od;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16340	16437	
==>>> , C<< $strap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cut

sub _reset_file_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	841	941	
==>));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	841	941	
==>));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	841	941	
==>));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = ad <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1795	1901	
==>f; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	264	361	
==>op();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	264	361	
==>op();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	264	361	
==>op();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    v <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13640	13769	
==>ount \"$initrd_img\" by entering the following command as root:
      # umount $initrd_img
HELP

  step
    descr  => "Compressing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4544	4643	
==>return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4544	4643	
==>return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4544	4643	
==>return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	705	840	
==>h; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	705	840	
==>h; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	705	840	
==>h; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2491	2721	
==>$_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2491	2721	
==>$_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8449	8608	
==>y $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8449	8608	
==>y $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10752	10867	
==>$params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10752	10867	
==>$params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10752	10867	
==>$params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2196	2298	
==>.
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar <==
4	/Users/nnunley/pugs/util/package-osx.pl	9863	9979	
==>est$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from to $dest$from <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	408	511	
==>N . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	922	1050	
==>ses to look through
    my @classes = ($class);
    
    #warn "inv: " . $inv->id->to_native . " => class: " . $inv->class->id->t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28541	28637	
==>ued attribute names and each of its values
the set of old attribute names that are being wrapped. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33093	33189	
==>ued attribute names and each of its values
the set of old attribute names that are being wrapped. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32221	32317	
==>ued attribute names and each of its values
the set of old attribute names that are being wrapped. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	371	471	
==>NIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INI <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	371	471	
==>NIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INI <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11579	11669	
==>ill compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test:: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11637	11727	
==>ill compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16789	16958	
==>if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16789	16958	
==>if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16789	16958	
==>if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance .. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3234	3340	
==>IC! %d %s", &RxPOS, &RxCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9813	9930	
==>xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9813	9930	
==>xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9813	9930	
==>xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;" <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1288	1395	
==>t of Pair) )
multi Array::pairs  (@array ; MatchTest *@indextests )
{
    my @ret;
    for @array.keys -> $k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8723	8857	
==>},
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8723	8857	
==>},
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8723	8857	
==>},
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cla <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3116	3216	
==>dn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filena <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3126	3240	
==>lass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3126	3240	
==>lass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3126	3240	
==>lass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($bod <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3239	3401	
==>nt_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$si <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3239	3401	
==>nt_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$si <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	332	447	
==>h) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match node <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	332	447	
==>h) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1812	1970	
==>n to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1812	1970	
==>n to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1812	1970	
==>n to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2775	2905	
==>refix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	271	368	
==>ie) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	271	368	
==>ie) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	271	368	
==>ie) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24590	24674	
==>(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8202	8316	
==>ame =~ /END/;#XXX

    $kind = 'Sub' if $kind eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20075	20170	
==>ther data types.

While the implementation can be changed greatly (it isn't what's important;
th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24627	24722	
==>ther data types.

While the implementation can be changed greatly (it isn't what's important;
th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23179	23274	
==>ther data types.

While the implementation can be changed greatly (it isn't what's important;
th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5275	5370	
==>try); $p5";
}

NODE PIL_Environment ($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4142	4398	
==>n "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13905	14001	
==>Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13905	14001	
==>Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13905	14001	
==>Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2752	2874	
==>E

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2752	2874	
==>E

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2752	2874	
==>E

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => " <==
4	/Users/nnunley/pugs/misc/IDE-support/server.pl	85	173	
==>elete-overlay (overlays-in (point-min) (point-max)))";
say "(overlay-put (make-overlay {$ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23372	23482	
==>$@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) {
    my($max,$skipped,@failed) = @_;
    my % <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1147	1251	
==>:TypeSafe::Type::Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	88	188	
==>EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	88	188	
==>EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12165	12291	
==>b pads {
    my $self = shift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = shift;
    pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12638	12732	
==>undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12638	12732	
==>undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12638	12732	
==>undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2495	2593	
==>links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2495	2593	
==>links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2495	2593	
==>links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't com <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2266	2376	
==>:inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2266	2376	
==>:inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2266	2376	
==>:inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6881	6982	
==>ersion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('autho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6881	6982	
==>ersion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('autho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6881	6982	
==>ersion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('autho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21562	21658	
==>1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21562	21658	
==>1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21562	21658	
==>1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1590	1696	
==>{
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1590	1696	
==>{
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1590	1696	
==>{
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10737	10876	
==>y{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " w <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10737	10876	
==>y{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " w <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4904	4998	
==>o missing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchObj, $whitespacePosition, <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1094	1283	
==>$x",
            "$x, period",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14199	14311	
==>l};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14199	14311	
==>l};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14199	14311	
==>l};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	296	405	
==>::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	296	405	
==>::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	296	405	
==>::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	272	363	
==>new->reduce(
		Blondie::TypeSafe::Annotator->new->annotate($runtime, $prog)
	);
}

{
	packag <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3981	4079	
==>grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4165	4263	
==>grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19898	19992	
==>ode has been parsed into blocks and the blocks have been
marked for various compilers, Module:: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19898	19992	
==>ode has been parsed into blocks and the blocks have been
marked for various compilers, Module:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9459	9601	
==>];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] ruleo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1507	1608	
==>rl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1507	1608	
==>rl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1507	1608	
==>rl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented a <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1791	1915	
==><_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1791	1915	
==><_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20784	20878	
==>:' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20784	20878	
==>:' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27357	27463	
==>rmit changes to its attributes; they
must all be set when the object is constructed.  If you want to
concep <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34883	34989	
==>rmit changes to its attributes;
they must all be set when the object is constructed.  If you want to
concep <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27357	27463	
==>rmit changes to its attributes; they
must all be set when the object is constructed.  If you want to
concep <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34883	34989	
==>rmit changes to its attributes;
they must all be set when the object is constructed.  If you want to
concep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2506	2600	
==>th Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2506	2600	
==>th Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2506	2600	
==>th Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, ret <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	119	212	
==>le;
require Perl6::Run::OnPerl5::X1::Prelude;

sub initialize {
    Perl6::Run::OnPerl5::X1::A <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2070	2249	
==>y )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5084	5175	
==>st's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5084	5175	
==>st's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opti <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7281	7372	
==>st's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (opti <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	372	473	
==>has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	372	473	
==>has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Com <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1154	1253	
==>t script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script ) <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1154	1253	
==>t script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7891	8006	
==>fined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7879	7994	
==>fined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$in <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	874	971	
==>server your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

= <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	874	971	
==>server your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3928	4113	
==>ystem( qq[tar -f $my_tmp_dir/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7766	7868	
==>cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  fore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7766	7868	
==>cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  fore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7766	7868	
==>cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  fore <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7010	7136	
==>'@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7010	7136	
==>'@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2221	2326	
==>s?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones be <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2140	2242	
==>s?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5730	5981	
==>'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5730	5981	
==>'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5730	5981	
==>'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6610	6729	
==>py/ }
END
    foreach my $pkg (keys %used) {
	next if $created{$pkg};
	$code .= "package $pkg;\n";
    }
    #print $cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14224	14318	
==>s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14224	14318	
==>s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14224	14318	
==>s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3644	3748	
==>thod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3644	3748	
==>thod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3644	3748	
==>thod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3878	4031	
==>$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3878	4031	
==>$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join( <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	582	688	
==>Bin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pu <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	582	688	
==>Bin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20846	21105	
==>lem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20846	21105	
==>lem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20846	21105	
==>lem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4337	4489	
==>value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8457	8598	
==>eturn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8457	8598	
==>eturn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8457	8598	
==>eturn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8013	8123	
==>"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8013	8123	
==>"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8013	8123	
==>"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18367	18474	
==>= pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	52	164	
==>::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	52	164	
==>::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7069	7157	
==>l.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, S <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7069	7157	
==>l.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8319	8434	
==>> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8319	8434	
==>> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8319	8434	
==>> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	686	819	
==>"-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	686	819	
==>"-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	686	819	
==>"-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$ou <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8322	8418	
==>$key + $whitespacePosition;
  goto tok_match_end;

  tok_match_sub:
  $operator = &$$match($match <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6633	6745	
==>imitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6633	6745	
==>imitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6633	6745	
==>imitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::R <==
4	/Users/nnunley/pugs/util/package-osx.pl	4815	4912	
==>/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/ma <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4894	4997	
==>afe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified_app,
		);
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2652	2740	
==>d_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2652	2740	
==>d_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2652	2740	
==>d_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2099	2218	
==>$n;

      if ($cc) {
        $S->error(0, "\\C[A;B] in character class") if @names > 1;
        return $S->force_object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6047	6162	
==>f->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6047	6162	
==>f->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6047	6162	
==>f->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	932	1057	
==>k_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	932	1057	
==>k_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	932	1057	
==>k_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1523	1642	
==>$n;

      if ($cc) {
        $S->error(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4993	5250	
==>ice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	118	262	
==>)')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	118	262	
==>)')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	118	262	
==>)')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           ! <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	304	416	
==>]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexsco <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	304	416	
==>]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexsco <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2203	2298	
==>d C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets s <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2203	2298	
==>d C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	83	181	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spider <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	83	181	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spider <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	83	181	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spider <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	846	973	
==>ation>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $durati <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	588	715	
==>ation>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $durati <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	846	973	
==>ation>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $durati <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	588	715	
==>ation>;
    if defined %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $durati <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11616	11712	
==>tta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that live <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11616	11712	
==>tta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that live <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6427	6528	
==>itter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6439	6540	
==>itter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generate <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20353	20446	
==>ogram package installers usually do it.  An os-level preference
/ control-panel displays a lis <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20353	20446	
==>ogram package installers usually do it.  An os-level preference
/ control-panel displays a lis <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6344	6442	
==>@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_code_CODE(name=>$name,kind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1510	1605	
==>p(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1510	1605	
==>p(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1510	1605	
==>p(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10880	11027	
==>e trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10880	11027	
==>e trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25843	25937	
==>em C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25843	25937	
==>em C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12536	12689	
==>he methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12536	12689	
==>he methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12536	12689	
==>he methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if w <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1364	1464	
==>et, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version tha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1720	1882	
==>TCH('::Fail')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$.nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7026	7138	
==>NE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7026	7138	
==>NE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7026	7138	
==>NE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9573	9684	
==>ize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will nee <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9573	9684	
==>ize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will nee <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21117	21209	
==>ent (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21117	21209	
==>ent (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9074	9171	
==>you can return the same failure object always

then there's absolutely no overhead

I'm not sure a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8775	8870	
==>you can return the same failure object always
then there's absolutely no overhead
I'm not sure a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16086	16174	
==>ttle <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@best <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16144	16232	
==>ttle <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@best <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	477	603	
==>nature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <sub <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	477	603	
==>nature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <sub <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12525	12625	
==>et, and then pass the result to is or ok
on success, or report that the eval was not successful on fa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12583	12683	
==>et, and then pass the result to is or ok
on success, or report that the eval was not successful on fa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13855	13974	
==>> 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13855	13974	
==>> 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span. <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14433	14539	
==>my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1913	2019	
==>my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14353	14480	
==>down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overlo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14353	14480	
==>down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overlo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14353	14480	
==>down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overlo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4310	4414	
==>les can have 2147483648 and 2147483648
        # that stringify to the same thing but are acutally numeri <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1675	1774	
==>drive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10761	10857	
==>r a multi-valued field. If the $value is undefined or not
given, then that header field will rema <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10761	10857	
==>r a multi-valued field. If the $value is undefined or not
given, then that header field will rema <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1568	1655	
==>drive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15342	15438	
==>the program or any of its components are intended for widespread use
then it needs to account for <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15342	15438	
==>the program or any of its components are intended for widespread use
then it needs to account for <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12662	12756	
==>y $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12720	12814	
==>y $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2581	2758	
==>g);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1);
                }
            },

            'array_extendSize' => sub { # $int - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1513	1643	
==>%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1513	1643	
==>%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1513	1643	
==>%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5036	5181	
==>ably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5036	5181	
==>ably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	704	802	
==>EGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	910	1008	
==>EGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capt <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8001	8097	
==>roblem this class solves is when you need do perform "set" operations on 
Span objects, that retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8001	8097	
==>roblem this class solves is when you need do perform "set" operations on 
Span objects, that retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	74	174	
==>ot::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	74	174	
==>ot::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	74	174	
==>ot::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4575	4676	
==>ple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4575	4676	
==>ple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20914	21010	
==>cks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20914	21010	
==>cks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16702	16819	
==>sults =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag "# PROG: \n$prog\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1372	1478	
==>L2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1372	1478	
==>L2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1372	1478	
==>L2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30418	30530	
==>ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30418	30530	
==>ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30418	30530	
==>ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11369	11478	
==>Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11369	11478	
==>Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        ne <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11369	11478	
==>Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        ne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	438	533	
==>=> $params->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $params-> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18374	18472	
==>tter.

I have found that when it comes to getting the most accurate program text
for users, we stil <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18374	18472	
==>tter.

I have found that when it comes to getting the most accurate program text
for users, we stil <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	886	979	
==>.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	886	979	
==>.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4383	4497	
==>oop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub concat { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5690	5802	
==>'@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5690	5802	
==>'@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6280	6392	
==>'@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17769	17908	
==>if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17769	17908	
==>if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17769	17908	
==>if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	979	1092	
==>::Iterator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good on 5.5.4.
    return s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	923	1033	
==>{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	923	1033	
==>{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1203	1304	
==>Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1203	1304	
==>Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_node <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2846	2944	
==>em C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they were <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2846	2944	
==>em C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they were <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1575	1668	
==>ples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/co <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1575	1668	
==>ples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14983	15124	
==>channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14983	15124	
==>channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $chan <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16701	16816	
==>,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1);
      TAILCAL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	603	715	
==>[0], undef, $tree, $tree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capt <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5922	6030	
==>rns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5980	6088	
==>rns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5192	5299	
==>ring () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5192	5299	
==>ring () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14304	14484	
==>);
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14304	14484	
==>);
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14304	14484	
==>);
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Arra <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1762	1919	
==>';

    package Prim;
    use base qw/Map/;

    package Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thun <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4690	4834	
==>post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (Code)\
\\n   List      pr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1219	1468	
==>ng Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1219	1468	
==>ng Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2139	2247	
==>e = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2139	2247	
==>e = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $m <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16985	17124	
==>$tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # No <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1034	1157	
==>"    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1034	1157	
==>"    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2544	2666	
==>if (!$?SELF.attr_name_exists( $attr_name )) {
            return Bool::false;
        }
    }
    return Bool::true;
}

met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	622	726	
==>' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_strin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	622	726	
==>' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_strin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	622	726	
==>' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_strin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14948	15043	
==>n the future.  Module names are merely the author's suggestions.

=over 4

=item Regexp::WordBou <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2428	2552	
==>> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        el <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2428	2552	
==>> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1066	1168	
==>Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1066	1168	
==>Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1066	1168	
==>Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->na <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11096	11195	
==>ntf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1529	1638	
==>$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    my $ident = get_str( $_[0], '$<class>' );
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3470	3577	
==>make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3470	3577	
==>make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3470	3577	
==>make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	699	807	
==>instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	699	807	
==>instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	699	807	
==>instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12729	12833	
==>method next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where this i <==
4	/Users/nnunley/pugs/util/func_refact.pl	2078	2188	
==>ng with $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $size - $oldsize; # new member c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1136	1269	
==>f;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1432	1534	
==>? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1432	1534	
==>? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnost <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1512	1614	
==>? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnost <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	349	465	
==>r my $line (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warning <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	922	1013	
==>$key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	922	1013	
==>$key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	922	1013	
==>$key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH() <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	487	576	
==>t("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $leng <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1100	1189	
==>t("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $leng <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	487	576	
==>t("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $leng <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1100	1189	
==>t("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7209	7322	
==>var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7209	7322	
==>var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7209	7322	
==>var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDT <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	571	673	
==>->new;

  # Various ways to interpret a test
  my %results = $strap->analyze($name, \@test_output);
  m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5261	5357	
==>? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$descr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5261	5357	
==>? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$descr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6785	6881	
==>? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$descr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6899	7153	
==>ock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6899	7153	
==>ock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6899	7153	
==>ock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	954	1087	
==>{p}        = delete $param->{p}    unless defined $self->{p};
                        # default = undef;
    $self->{sigspace} = delet <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16099	16228	
==>$.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16099	16228	
==>$.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = ( <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2306	2401	
==>th all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by G <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2306	2401	
==>th all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by G <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4180	4287	
==>$tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4180	4287	
==>$tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28237	28330	
==>y pass the flag names,
without the "FLAG_" prefix.

=item $parser->add_handler($seq, $code)

T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3158	3273	
==>ervername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3158	3273	
==>ervername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8691	8797	
==>items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set opera <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8691	8797	
==>items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set opera <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	667	833	
==>e is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*( <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	667	833	
==>e is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1138	1227	
==>write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Add <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1138	1227	
==>write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Add <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	354	492	
==>l {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    forea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	389	527	
==>l {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    forea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	354	492	
==>l {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    forea <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9567	9705	
==>l {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    forea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8663	8788	
==>nick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8663	8788	
==>nick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8927	9044	
==>nick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8927	9044	
==>nick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18092	18343	
==>.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21569	21820	
==>.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21156	21407	
==>.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4279	4420	
==>if an alphanumeric-ending token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $na <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	991	1153	
==>(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	991	1153	
==>(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16016	16127	
==>queue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16016	16127	
==>queue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3326	3463	
==>ed $expected;
    }
    else {
        $pass = $got eq $expected;
    }

    unless ($pass) {
	unshift(@mess, "#      got "._q($got)."\n", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3280	3375	
==>ations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothrea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3280	3375	
==>ations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothrea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3280	3375	
==>ations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothrea <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8014	8099	
==>ble::instantiated', 'type::variable::instantiated') => sub { unify($_[0]{instance}, $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15607	15747	
==>1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15601	15741	
==>1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	779	897	
==>ilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	779	897	
==>ilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	397	541	
==>self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            'array_fetch' => sub { # evaluated <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3142	3250	
==>bj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3142	3250	
==>bj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3142	3250	
==>bj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5179	5300	
==>param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5179	5300	
==>param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5179	5300	
==>param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14680	14785	
==>$self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6671	6768	
==>atch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Spe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6671	6768	
==>atch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Spe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6671	6768	
==>atch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Spe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1543	1636	
==>> $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<na <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2627	2755	
==>rt must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3663	3791	
==>rt must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2627	2755	
==>rt must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3663	3791	
==>rt must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4457	4587	
==>. ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4597	4727	
==>. ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	732	835	
==>t(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm he <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	732	835	
==>t(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm he <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1997	2205	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                whe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1997	2205	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                whe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	278	384	
==>q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instea <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	278	384	
==>q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instea <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5869	5979	
==>turns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4999	5109	
==>turns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5869	5979	
==>turns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4999	5109	
==>turns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11633	11745	
==>( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11633	11745	
==>( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11633	11745	
==>( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7276	7373	
==>kenCat >= PGE_OPTABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3594	3714	
==>} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3594	3714	
==>} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3594	3714	
==>} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4272	4394	
==>f $archive $control $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $control <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19833	19936	
==>C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !. <==
4	/Users/nnunley/pugs/util/combine_tests.pl	552	649	
==>[].
#
# more_revisions[] is added with revision number of the older versions.
#
sub combine_tests{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24962	25057	
==>dynamically with other components is making a
combined work based on Rosetta.  Thus, the terms a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24962	25057	
==>dynamically with other components is making a
combined work based on Rosetta.  Thus, the terms a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2160	2321	
==>t_set);
    my $tmpl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11240	11327	
==>ss Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1698	1783	
==>ss Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1698	1783	
==>ss Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27945	28100	
==>)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28224	28379	
==>)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4056	4163	
==>Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

metho <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4056	4163	
==>Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

metho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3398	3521	
==>rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3398	3521	
==>rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2080	2186	
==>\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2068	2174	
==>\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2031	2198	
==>o)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2031	2198	
==>o)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2031	2198	
==>o)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                retu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1843	1962	
==>o)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11510	11684	
==>elf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11510	11684	
==>elf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11510	11684	
==>elf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	552	655	
==>s 'You must override _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3132	3236	
==>lf->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3132	3236	
==>lf->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3132	3236	
==>lf->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32591	32687	
==>s
been walk()ed, it will insert the matching 'close' node into the
walking stack.

The purpose of <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9153	9265	
==>mes6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} el <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11241	11334	
==>for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes() <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11241	11334	
==>for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes() <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4727	4834	
==>nClass',
    '$:superclass' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28616	28710	
==>hat are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33168	33262	
==>hat are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32296	32390	
==>hat are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1586	1720	
==>Object",   # for now
        set => "Set", iset => "Set",         # also for now
        hash => "Hash", ihash => "Hash",     #  └─ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3820	3912	
==>tovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3820	3912	
==>tovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3820	3912	
==>tovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7130	7231	
==>prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7130	7231	
==>prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7130	7231	
==>prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5930	6071	
==>pre     join    safe   (Str, List)\
\\n   List      pre     zip     safe   (List)\
\\n   List      pre     keys    safe   (rw!Hash)\
\\n   Lis <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28225	28351	
==>ock = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28504	28630	
==>ock = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14666	14764	
==>nterpolation has occured.  But not in the case of m'pattern'.
  Which might come in hand when doing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6451	6536	
==>f(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6451	6536	
==>f(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6451	6536	
==>f(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var d <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4894	5006	
==>= $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4894	5006	
==>= $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1526	1630	
==>mper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1666	1770	
==>mper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9826	9939	
==>, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11303	11416	
==>, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1924	2036	
==>tant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1935	2047	
==>tant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24475	24586	
==>ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_boo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24475	24586	
==>ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_boo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24475	24586	
==>ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_boo <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12919	13013	
==>bj.shift(), ="some_file" worked, so I
# added the .shift() declaration here.  --iblech
class St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3012	3130	
==>eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3012	3130	
==>eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3012	3130	
==>eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclas <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4799	4902	
==>aks other MM-users
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13706	13826	
==>oes result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15231	15351	
==>oes result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9814	9916	
==>/script>
</head>

<body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recently submitted < <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5411	5510	
==>o);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4541	4640	
==>o);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5411	5510	
==>o);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4541	4640	
==>o);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
mu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2293	2395	
==>celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $sel <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2293	2395	
==>celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $sel <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1650	1742	
==>olute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1650	1742	
==>olute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	322	439	
==>f) = @_;

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	450	551	
==>TDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	450	551	
==>TDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	450	551	
==>TDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3773	3870	
==>siest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3773	3870	
==>siest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3853	3950	
==>siest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next te <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16401	16500	
==>ue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16401	16500	
==>ue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17101	17197	
==>ty was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17101	17197	
==>ty was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6446	6615	
==>ROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6446	6615	
==>ROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6446	6615	
==>ROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	49	145	
==>e:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $böse = $w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	85	217	
==>.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	85	217	
==>.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	85	217	
==>.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1422	1519	
==>Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2->perl5;
print "Benchmark:\n";
Bench <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5130	5269	
==>literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 < 0 goto term_b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3632	3744	
==>n that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7109	7221	
==>n that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6066	6178	
==>n that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5679	5812	
==>pture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6232	6365	
==>pture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5872	6005	
==>pture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6425	6558	
==>pture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2482	2604	
==>="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2482	2604	
==>="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7816	7910	
==>..}>

Clears the cipher object's internal structures.

Cipher authors should assume that if thi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7816	7910	
==>..}>

Clears the cipher object's internal structures.

Cipher authors should assume that if thi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5814	5906	
==>x(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$de <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5814	5906	
==>x(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$de <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5538	5673	
==>ew('$cond'),
            Param->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->n <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2616	2725	
==>code(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F) <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2616	2725	
==>code(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26613	26712	
==>sRangesNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6199	6310	
==>h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7197	7308	
==>h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1340	1435	
==>d-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ n <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1340	1435	
==>d-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	153	266	
==>6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	153	266	
==>6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	153	266	
==>6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Per <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	46	147	
==>ype;
use Perl6::Core::Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp 'c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	679	810	
==>e_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	679	810	
==>e_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	679	810	
==>e_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3622	3747	
==>kage|module|class) \s+ ([^-;]+)/x;
            $program .= $_;
        }

        die "could not guess module name: $file" unl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9899	10001	
==>s .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10247	10349	
==>s .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1949	2066	
==>CVS";
            my $currfile = File::Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13111	13209	
==>xt =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::prot <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13111	13209	
==>xt =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::prot <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13111	13209	
==>xt =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::prot <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3293	3424	
==><op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4142	4273	
==><op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3672	3754	
==>lf._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3672	3754	
==>lf._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	952	1062	
==>ersions of modules.
    # This is not enforced yet, but will be some time in the next few
    # releases once w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3579	3675	
==>de_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stm <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3579	3675	
==>de_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stm <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	429	525	
==>de_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stm <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30389	30510	
==>make_descendant_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':ascendant')) == $bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2019	2112	
==>x:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2019	2112	
==>x:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2019	2112	
==>x:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numbe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3547	3666	
==>$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4864	4983	
==>$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpol <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3547	3666	
==>$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpol <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4852	4971	
==>$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpol <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1952	2126	
==>_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5739	5913	
==>_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1952	2126	
==>_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5739	5913	
==>_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16882	17018	
==>("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2145	2271	
==>efault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	388	504	
==>mar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2927	3033	
==>essage );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2927	3033	
==>essage );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6886	6985	
==>EE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1326	1425	
==>EE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6886	6985	
==>EE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1326	1425	
==>EE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11393	11576	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11393	11576	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11393	11576	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3284	3371	
==>ull \> }

rule assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol>|<lookahe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39741	39839	
==>t is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gene <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39741	39839	
==>t is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gene <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2026	2118	
==><:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2115	2207	
==><:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Gra <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	806	905	
==>cLiteral, are not used in parsing JavaScript,
#     but rather in implementing it (eg, by ToNumber). <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12186	12285	
==>d to get it.  From there, you're on your own.  You'll probably
want to make a recursive function tha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19070	19165	
==>nging
over more than one argument"), which is also the basis of the relational
data model propos <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22720	22815	
==>nging over more than one
argument"), which is also the basis of the relational data model propos <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	370	468	
==>... doesnt add much clarity, given the cruft
of wrapping a map and join around the macro string.  B <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32616	32713	
==>nary union()
operator, and the order of its arguments is not significant to the result;
the new Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37166	37263	
==>nary union()
operator, and the order of its arguments is not significant to the result;
the new Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36474	36571	
==>nary union()
operator, and the order of its arguments is not significant to the result;
the new Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9420	9595	
==>rn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14964	15139	
==>rn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9420	9595	
==>rn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14958	15133	
==>rn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2641	2749	
==>= $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        " <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2641	2749	
==>= $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8687	8861	
==>lear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8687	8861	
==>lear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8687	8861	
==>lear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30952	31045	
==>ttributes

All objects share the following attributes (accessible via
C<< $obj->{...} >>):

=o <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	775	875	
==>unshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.el <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3404	3492	
==>od () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3404	3492	
==>od () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3404	3492	
==>od () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => meth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	727	854	
==>ve = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	727	854	
==>ve = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1268	1383	
==>tch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1268	1383	
==>tch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $po <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16417	16527	
==>) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        bod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19894	20004	
==>) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        bod <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	684	789	
==>n }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	684	789	
==>n }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29519	29651	
==>ist' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29519	29651	
==>ist' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29519	29651	
==>ist' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33919	34040	
==>n "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x> can be matched
at the same location" <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	310	414	
==>n_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2444	2547	
==>esuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2444	2547	
==>esuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2444	2547	
==>esuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - A <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6162	6274	
==>{
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6162	6274	
==>{
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	712	849	
==>Noop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	712	849	
==>Noop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14046	14149	
==>IX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8251	8354	
==>IX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7840	7948	
==>%$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($v,$prefix);
	    } elsif(d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1505	1605	
==>Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemente <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1505	1605	
==>Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemente <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1505	1605	
==>Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemente <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5392	5502	
==>3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5392	5502	
==>3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5392	5502	
==>3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Fr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25773	25873	
==>ubclasses ((opaque $self:)) returns list 
    ($self: get_attr (symbol new @:subclasses)))

=cut

$:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8065	8178	
==>if this perl's internals can cache the hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8934	9032	
==>x) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8934	9032	
==>x) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8934	9032	
==>x) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9849	9964	
==>am, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless define <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15690	15805	
==>am, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9849	9964	
==>am, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15684	15799	
==>am, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless define <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10326	10544	
==>y )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )

 multi Array:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8131	8249	
==>/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8131	8249	
==>/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = () <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8131	8249	
==>/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14663	14753	
==>e $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14663	14753	
==>e $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14663	14753	
==>e $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(s <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2672	2762	
==>)\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${re_comma}\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5898	6059	
==>ngth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5898	6059	
==>ngth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5898	6059	
==>ngth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17415	17544	
==>ce($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn "weird - $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21391	21497	
==>lls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21391	21497	
==>lls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21391	21497	
==>lls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	566	711	
==>return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	559	704	
==>return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21915	22009	
==>s distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely obj <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21915	22009	
==>s distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely obj <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1190	1345	
==>left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	209	300	
==>rl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	209	300	
==>rl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	209	300	
==>rl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CO <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	351	494	
==>y %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	345	488	
==>y %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1797	1899	
==>ram>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionNam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1797	1899	
==>ram>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionNam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17913	18039	
==>nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      nparen => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2410	2517	
==>.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2410	2517	
==>.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } els <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2410	2517	
==>.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1919	2020	
==>am signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1919	2020	
==>am signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1919	2020	
==>am signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43427	43522	
==>ges also work in the problem domain of managing
data or data definitions or connections to datab <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1554	1709	
==>) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<obj <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1554	1709	
==>) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<obj <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10277	10431	
==>+;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    dis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10277	10431	
==>+;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    dis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2958	3186	
==>AS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # cla <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8052	8280	
==>AS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2958	3186	
==>AS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8052	8280	
==>AS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	456	569	
==>XX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
} <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	456	569	
==>XX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
} <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	456	569	
==>XX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15635	15734	
==>tever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_from_whatever called on $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10228	10328	
==>s empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATO <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10228	10328	
==>s empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATO <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1654	1747	
==>e (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $fi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1654	1747	
==>e (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $fi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	71	182	
==>'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not fo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	71	182	
==>'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2787	2902	
==>$header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http:// <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2787	2902	
==>$header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http:// <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9782	9880	
==>eight
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9782	9880	
==>eight
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3134	3260	
==>:die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3134	3260	
==>:die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3134	3260	
==>:die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	574	697	
==>$_->send('MRO') } @supers ), # the MRO of all the superclasses
        list->new(@supers)                  # a list of all t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14172	14300	
==>MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statem <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14172	14300	
==>MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statem <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20225	20317	
==>c

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=bac <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20225	20317	
==>c

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2392	2519	
==>=> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2939	3066	
==>=> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3486	3613	
==>=> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	1019	1136	
==>(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2185	2280	
==>gs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1511	1606	
==>More and other modules based on
Test::Builder.  You don't need to know about Test::Harness to us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2185	2280	
==>gs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2185	2280	
==>gs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2372	2474	
==>do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2372	2474	
==>do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2372	2474	
==>do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasse <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4360	4453	
==>pack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27457	27552	
==>of C<$attrs> provide the names of the new attributes, and
the values provide values applied to e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32009	32104	
==>of C<$attrs> provide the names of the new attributes, and
the values provide values applied to e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31092	31187	
==>of C<$attrs> provide the names of the new attributes, and
the values provide values applied to e <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27734	27822	
==>og)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_on(prog)	((prog)->reganc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7427	7583	
==>(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_fi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7427	7583	
==>(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_fi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2070	2180	
==>f @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1179	1286	
==>f @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3142	3312	
==>$@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3142	3312	
==>$@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3142	3312	
==>$@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2225	2352	
==>Cxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt' <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	981	1076	
==>ol {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	981	1076	
==>ol {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $des <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	594	706	
==>e order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	594	706	
==>e order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	594	706	
==>e order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1154	1277	
==>ode and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.bod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1154	1277	
==>ode and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.bod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1154	1277	
==>ode and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.bod <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13807	13907	
==>h::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keyte <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	289	413	
==>) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	289	413	
==>) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	289	413	
==>) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	289	413	
==>) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4153	4270	
==>Token; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4153	4270	
==>Token; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (j <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4153	4270	
==>Token; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (j <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	133	239	
==>rl6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

meth <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4391	4487	
==>splatting happens in parametrized type operators, since they have children
	my $self = shift;
	my <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	515	616	
==>ction test);
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	628	724	
==>etch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	628	724	
==>etch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	628	724	
==>etch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15964	16073	
==>n_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2778	2873	
==>fix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2778	2873	
==>fix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2778	2873	
==>fix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10917	11029	
==>/:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10917	11029	
==>/:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9265	9373	
==>x}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11580	11688	
==>x}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	263	373	
==>undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	469	579	
==>undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4512	4617	
==>}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4512	4617	
==>}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4021	4216	
==>test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24072	24211	
==>et;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24072	24211	
==>et;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24072	24211	
==>et;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7398	7577	
==>',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7455	7634	
==>',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4573	4681	
==>1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5058	5166	
==>1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7306	7407	
==>the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Redu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7306	7407	
==>the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Redu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	698	797	
==>->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	698	797	
==>->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1566	1710	
==>V}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1566	1710	
==>V}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1566	1710	
==>V}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27617	27710	
==>on::Example has zero tuples.  If a Relation::Example has zero attributes, then
C<$body> may be <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12581	12681	
==>, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the object <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12581	12681	
==>, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the object <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18497	18589	
==>l regcompp and regexecp hooks (C functions
which get called on regular expression compilation <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2787	2879	
==>l regcompp and regexecp hooks (C functions
which get called on regular expression compilation <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	548	678	
==>{ undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $scri <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	548	678	
==>{ undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $scri <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8991	9103	
==>_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_hook = PL_regcompp;
  PL_regcompp = &hook_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5922	6048	
==>py) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5922	6048	
==>py) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5922	6048	
==>py) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.e <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10209	10312	
==>s(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char_class(cl <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	35	162	
==>my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	35	162	
==>my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	765	874	
==>of this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4243	4352	
==>of this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	349	467	
==>er::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	349	467	
==>er::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	349	467	
==>er::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26257	26356	
==>If this is not set, it will
default to 80. Note that users of Bourne-sh based shells will need to
C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7832	7930	
==>Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7832	7930	
==>Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7832	7930	
==>Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVA <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4653	4749	
==>e set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4903	4999	
==>e set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24386	24480	
==>with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24386	24480	
==>with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. T <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16709	16806	
==>arameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16709	16806	
==>arameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new N <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	369	461	
==>$codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempf <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	369	461	
==>$codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempf <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	597	708	
==>y $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 construct that can avoid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	62	170	
==>t;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	62	170	
==>t;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	62	170	
==>t;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12843	12949	
==>is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9619	9725	
==>is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12843	12949	
==>is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9619	9725	
==>is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (more) than C<$se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	276	404	
==>[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	196	324	
==>[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	194	322	
==>[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	192	320	
==>[basename];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile] <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25162	25265	
==>.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> fo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23926	24029	
==>.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25162	25265	
==>.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23926	24029	
==>.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> fo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1069	1191	
==>litbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1069	1191	
==>litbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	367	461	
==>on-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	367	461	
==>on-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4530	4653	
==>urn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4518	4641	
==>urn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12157	12255	
==>x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12157	12255	
==>x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12157	12255	
==>x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4057	4165	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4057	4165	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4057	4165	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3179	3281	
==>wfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2456	2551	
==>(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2456	2551	
==>(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2456	2551	
==>(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18895	18982	
==>l6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_log_file,">>deleteme_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17104	17188	
==>));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17104	17188	
==>));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17104	17188	
==>));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6031	6142	
==>s-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o->mk_eater_for_re(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3893	3995	
==>_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report ex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3893	3995	
==>_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report ex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4483	4585	
==>_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9811	9961	
==>uring subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless def <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15652	15802	
==>uring subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9811	9961	
==>uring subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15646	15796	
==>uring subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless def <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9788	9950	
==>@array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method reve <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9788	9950	
==>@array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method reve <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3900	3996	
==>>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You ca <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3900	3996	
==>>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	755	916	
==>::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	755	916	
==>::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	588	711	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4066	4189	
==>at do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27110	27247	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'lit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27389	27526	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'lit <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3896	3995	
==>ent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $hos <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3896	3995	
==>ent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $hos <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1565	1660	
==>exponent) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2767	2861	
==>e_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2767	2861	
==>e_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2767	2861	
==>e_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13601	13778	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26185	26362	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13880	14057	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26464	26641	
==>)
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10920	11023	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10920	11023	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10920	11023	
==>:p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9789	9910	
==>------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9789	9910	
==>------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9789	9910	
==>------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12451	12550	
==>env (the parameter is associated with a new type variable)
# this new env is passed down to the body <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1177	1345	
==>ackage_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # author <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	460	628	
==>ackage_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # author <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14282	14393	
==>or {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $las <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14282	14393	
==>or {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $las <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3583	3689	
==>> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  n <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3583	3689	
==>> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4458	4562	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  n <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4458	4562	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference operator
#  n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2995	3118	
==>eshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<" <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2995	3118	
==>eshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34942	35036	
==>he object is constructed.  If you want to
conceptually change an existing Translator object, yo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34942	35036	
==>he object is constructed.  If you want to
conceptually change an existing Translator object, yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4893	5008	
==>_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2435	2550	
==>_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3216	3331	
==>_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33192	33305	
==>$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1933	2041	
==>don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = P <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1933	2041	
==>don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = P <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9148	9254	
==>pan => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clon <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9148	9254	
==>pan => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clon <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21800	21901	
==>s I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20681	20782	
==>s I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21800	21901	
==>s I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20681	20782	
==>s I<not> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5578	5710	
==>om, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5578	5710	
==>om, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5578	5710	
==>om, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (ma <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1966	2072	
==>l/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.pl     - automate the <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	482	605	
==>/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_p <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	482	605	
==>/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21662	21776	
==>)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18083	18197	
==>)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3200	3337	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3200	3337	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3200	3337	
==>a( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16067	16218	
==>$self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16067	16218	
==>$self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16067	16218	
==>$self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	485	602	
==>ass->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11586	11676	
==>---------------------------

With this Role meta-model , any Class instances, themselves do <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11586	11676	
==>---------------------------

With this Role meta-model , any Class instances, themselves do <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11586	11676	
==>---------------------------

With this Role meta-model , any Class instances, themselves do <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1937	2097	
==>=>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1937	2097	
==>=>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3865	3975	
==>en the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3865	3975	
==>en the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1677	1826	
==>s->[$i];
            if($all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $event <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2521	2635	
==>ray.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2521	2635	
==>ray.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2521	2635	
==>ray.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1341	1465	
==>_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1341	1465	
==>_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1341	1465	
==>_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BU <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5436	5533	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4566	4663	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5436	5533	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4566	4663	
==>>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8794	8898	
==>rload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Gra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8503	8604	
==>rload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2052	2145	
==>perators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2052	2145	
==>perators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4124	4225	
==>ck (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4124	4225	
==>ck (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4124	4225	
==>ck (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4414	4509	
==>ck

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder inst <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4414	4509	
==>ck

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5938	6033	
==>ck

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2286	2420	
==>gs[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2286	2420	
==>gs[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2286	2420	
==>gs[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7589	7807	
==>try;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependenc <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8053	8271	
==>try;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependenc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8397	8495	
==>et1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, retur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8397	8495	
==>et1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3837	3976	
==>0]->{out}; %}\n";
    my $prec = "P000";
    my %seen;
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my % <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29742	29836	
==>ame as the unaffected invocant's attributes.  This method
supports having the new attributes ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34294	34388	
==>ame as the unaffected invocant's attributes.  This method
supports having the new attributes ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33458	33552	
==>ame as the unaffected invocant's attributes.  This method
supports having the new attributes ha <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2642	2740	
==>ibute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9343	9440	
==>rence( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semid <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12820	12917	
==>rence( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semid <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12074	12171	
==>rence( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2751	2895	
==>$value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2751	2895	
==>$value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2751	2895	
==>$value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global f <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1548	1677	
==>bit
    int         native integer
    str         native string (sequence of integers, no Unicode)
    num         native floatin <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1792	1896	
==>ch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6307	6389	
==>intf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6307	6389	
==>intf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6307	6389	
==>intf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($nam <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	342	457	
==>nguageChar is Char;
class Grapheme     is Char;
class CodePoint    is Char;
class Byte         is Char, Number;

mac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	838	938	
==>lation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit from <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	838	938	
==>lation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	993	1112	
==>> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	993	1112	
==>> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	993	1112	
==>> sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14982	15081	
==>rn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{PERLE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2515	2629	
==>e we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5630	5741	
==>}( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        univers <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5630	5741	
==>}( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        univers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2432	2543	
==>e we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7979	8117	
==>< arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7979	8117	
==>< arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7979	8117	
==>< arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fu <==
4	/Users/nnunley/pugs/util/grokprims.pl	207	315	
==>',
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infix', <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10101	10218	
==>)) do) }))))


$::ENV->create(
    "*::WALKCLASS", 
    closure->new(
        $::ENV, 
        closure::signature->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11115	11230	
==>e},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11115	11230	
==>e},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11115	11230	
==>e},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5232	5406	
==>uple === any($!body);
}

###########################################################################

method equal (Relation::Example $other!) returns Bool {
    return $other <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	726	848	
==>name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	726	848	
==>name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	726	848	
==>name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7281	7426	
==>fined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7281	7426	
==>fined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7281	7426	
==>fined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $ <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1072	1207	
==>$input) {
    return
      unless defined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless def <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7210	7345	
==>> $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6969	7097	
==>> $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2938	3040	
==>l (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!bod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6415	6517	
==>l (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!bod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22945	23114	
==>@param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22945	23114	
==>@param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22945	23114	
==>@param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scala <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36801	36969	
==>get_attr(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Cl <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4161	4270	
==>rint_to => *STDOUT);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1994	2088	
==>d

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1994	2088	
==>d

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1994	2088	
==>d

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteract <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2550	2652	
==>100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2550	2652	
==>100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2550	2652	
==>100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21813	21929	
==>ssarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional infor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20694	20810	
==>ssarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional infor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21813	21929	
==>ssarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional infor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20694	20810	
==>ssarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C<rest>

Additional infor <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	929	1043	
==>e:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	929	1043	
==>e:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4699	4794	
==>5)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4699	4794	
==>5)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3778	3872	
==>n (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3778	3872	
==>n (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3778	3872	
==>n (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22622	22710	
==>,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_lower(C2x)),
   C1x =< Cx, C <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2256	2361	
==>elf->bundles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	99	247	
==>);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Qu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6073	6188	
==>ub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3242	3355	
==>ub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4091	4204	
==>ub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4452	4572	
==>pace for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @resul <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4452	4572	
==>pace for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @resul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6325	6427	
==>Bar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11171	11273	
==>Bar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7090	7200	
==>code();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3440	3532	
==>JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3440	3532	
==>JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3440	3532	
==>JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4304	4417	
==>== $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7781	7894	
==>== $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6765	6878	
==>== $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4377	4481	
==>the same thing but are acutally numerically
        # different. Display the numbers if $type isn't a str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1766	1866	
==>turn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1766	1866	
==>turn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1766	1866	
==>turn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3447	3558	
==>$_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1805	1916	
==>$_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2585	2696	
==>$_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    retu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1376	1473	
==>e();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1010	1131	
==>) returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1010	1131	
==>) returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    retur <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	29	126	
==>rrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	29	126	
==>rrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3865	3989	
==>PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.r <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4198	4322	
==>PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.r <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3865	3989	
==>PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.r <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4198	4322	
==>PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7963	8114	
==>],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7963	8114	
==>],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7963	8114	
==>],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4737	4878	
==>ift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value('@:slots')}, $idx_from, $ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	250	366	
==>n
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datet <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	250	366	
==>n
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datet <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21306	21400	
==>a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</Q <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21306	21400	
==>a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</Q <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5666	5774	
==>object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # aln <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5978	6076	
==>object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  }) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11209	11305	
==>ay will not change the semantic of a header field, but
in practice there are cases like old-style <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11209	11305	
==>ay will not change the semantic of a header field, but
in practice there are cases like old-style <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2683	2801	
==>le
  # cannot inherit from TestPlan because of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1411	1522	
==>ult->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1411	1522	
==>ult->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1411	1522	
==>ult->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_cc <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	39	144	
==>use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

s <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	39	144	
==>use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2401	2502	
==>>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2401	2502	
==>>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8918	9021	
==>$input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6233	6326	
==>ort_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6233	6326	
==>ort_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6233	6326	
==>ort_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2nor <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6039	6133	
==>n C<want> gets implemented. Currently, the headers
are returned as one long string.

=item List <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14717	14811	
==>The error handling capabilities need to be expanded more to handle the
error reporting needs of <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14775	14869	
==>The error handling capabilities need to be expanded more to handle the
error reporting needs of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6039	6133	
==>n C<want> gets implemented. Currently, the headers
are returned as one long string.

=item List <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1600	1698	
==>no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1600	1698	
==>no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24864	24960	
==>body.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29416	29512	
==>body.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10094	10192	
==>e_name,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12688	12774	
==>n::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12688	12774	
==>n::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12688	12774	
==>n::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw( <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1457	1568	
==>superclasses.size ) {
        return ([+] $:superclasses,
                $:superclasses.map:{ .all_superclasses <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	730	838	
==>")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	730	838	
==>")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	730	838	
==>")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0] <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	616	769	
==>ckage} ) . '-' .
                        package_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %in <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8517	8624	
==>ects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8517	8624	
==>ects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $ <==
4	/Users/nnunley/pugs/util/drift.pl	1096	1195	
==>ARNING WARNING WARNING --

This is an autogenerated file from $in.

Do not edit this file.

All chan <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4283	4378	
==>le->compile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1885	1978	
==>@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1885	1978	
==>@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1885	1978	
==>@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")} <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3295	3402	
==>he world's ugliest cygwin variable gives us a hint to the
        # cygwin root.  There is probably a better <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7918	8049	
==>.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7918	8049	
==>.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7918	8049	
==>.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	893	1014	
==>s_dir

=cut

sub alternatives_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5253	5385	
==>ttribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5253	5385	
==>ttribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5253	5385	
==>ttribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40968	41063	
==>need to
throw a warning that can only be figured out the second pass.

=item $parser->error(RPe_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1412	1537	
==>ead') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1412	1537	
==>ead') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4245	4353	
==>],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string, <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4245	4353	
==>],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2975	3082	
==>rint( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2975	3082	
==>rint( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8702	8857	
==>);
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# expe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8702	8857	
==>);
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# expe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4515	4618	
==>ew', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4515	4618	
==>ew', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15968	16090	
==>e->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15968	16090	
==>e->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15968	16090	
==>e->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6983	7082	
==>odule as is, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::Parser-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2020	2131	
==>_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2020	2131	
==>_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2020	2131	
==>_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5262	5366	
==>nt "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if($sr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1907	2003	
==>tle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9313	9409	
==>tle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7679	7773	
==>tle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2125	2219	
==>tle E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1857	1961	
==>{stack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $self->parse if $self->{st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2329	2430	
==>s[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2329	2430	
==>s[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2329	2430	
==>s[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7313	7496	
==>> ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7313	7496	
==>> ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7313	7496	
==>> ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2152	2300	
==>',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2019	2186	
==>'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2019	2186	
==>'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pus <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2019	2186	
==>'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pus <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4707	4811	
==>hing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my $r = comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	591	708	
==>{
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6109	6226	
==>{
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	591	708	
==>{
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6121	6238	
==>{
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1920	2071	
==>mpile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_compile($code);
        die $@ if $@;
        exit 0;
    }
}

1;

__END_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2734	2844	
==>l array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2734	2844	
==>l array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2734	2844	
==>l array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2593	2702	
==>ne\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3029	3138	
==>ne\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1648	1743	
==>used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Bewar <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1648	1743	
==>used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Bewar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9393	9551	
==>eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14937	15095	
==>eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9393	9551	
==>eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14931	15089	
==>eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemente <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3837	3945	
==>g}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3646	3746	
==>fined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3646	3746	
==>fined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3646	3746	
==>fined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6283	6396	
==>xadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	452	544	
==>th.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method aco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	452	544	
==>th.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method aco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	452	544	
==>th.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method aco <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2619	2742	
==>n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1436	1554	
==>s) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1436	1554	
==>s) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1436	1554	
==>s) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FET <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8775	8878	
==>y $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8775	8878	
==>y $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8775	8878	
==>y $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18141	18447	
==>( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21618	21924	
==>( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21205	21511	
==>( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26560	26662	
==>zip");
}




# tests for the type inferrencer
is(t($id), "∀α. α → α", ":t id");
is(t($app_id), " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4091	4205	
==>perclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:superclass'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3240	3348	
==>class);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3240	3348	
==>class);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3240	3348	
==>class);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	277	394	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	277	394	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	277	394	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36330	36425	
==>C<plus>.

=item C<union (Relation::Example *@others) returns Relation::Example>

This multi-meth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2287	2401	
==>rectory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( per <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3706	3806	
==>x:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S29draft <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22421	22516	
==>led in.

Generally, when a program package would return a code-key to indicate a
condition, ofte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22421	22516	
==>led in.

Generally, when a program package would return a code-key to indicate a
condition, ofte <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37174	37297	
==>ch Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39234	39349	
==>ay->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39234	39349	
==>ay->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39234	39349	
==>ay->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retur <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26960	27078	
==>}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEsca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23255	23351	
==>Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23255	23351	
==>Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23255	23351	
==>Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1260	1371	
==>, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (subs <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1260	1371	
==>, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (subs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1780	1890	
==>v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Fu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1780	1890	
==>v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Fu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2007	2213	
==>ew(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _sh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2007	2213	
==>ew(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _sh <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12364	12490	
==>match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12643	12769	
==>match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	431	526	
==>ad1 NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::SmokeBackends;

=head1 DESCR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23882	23972	
==>MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23882	23972	
==>MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23882	23972	
==>MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	963	1087	
==>y} = Pugs::Compiler::Regex->compile( 
        $rule, 
        { grammar => $class },
    );
}

sub capture {
    # print Dump <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5345	5452	
==>uperclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5345	5452	
==>uperclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5345	5452	
==>uperclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1817	1971	
==>paque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2022	2176	
==>paque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2085	2239	
==>paque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6091	6195	
==>$x)}


sub rx_common_($hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    state(%modifiers_known, %modif <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3770	4116	
==>>'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3259	3406	
==>@_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3259	3406	
==>@_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3259	3406	
==>@_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cel <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4526	4638	
==>e "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12303	12396	
==>rray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12303	12396	
==>rray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12303	12396	
==>rray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20119	20219	
==>h user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20119	20219	
==>h user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12986	13080	
==>es belonged to which field.

=item $h.remove_content_headers

This will remove all the header f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12986	13080	
==>es belonged to which field.

=item $h.remove_content_headers

This will remove all the header f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16465	16583	
==>+
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16465	16583	
==>+
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16465	16583	
==>+
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15429	15528	
==>ument
# for success, or returns the definition of success (e.g. the
# expected scalar) if given no a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1200	1317	
==>warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1200	1317	
==>warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1200	1317	
==>warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1784	1878	
==>s->{INST_MAN1DIR} =
      File::Spec->catfile($path, "man1");
    $self->makemaker_args->{INST_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21238	21336	
==>, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25790	25888	
==>, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Map <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24414	24512	
==>, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Map <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25337	25432	
==>::operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is( <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5276	5387	
==>xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexd <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2738	2847	
==>ray.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2738	2847	
==>ray.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2738	2847	
==>ray.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17358	17551	
==>s)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17358	17551	
==>s)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17358	17551	
==>s)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	465	554	
==>lValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::InternalValue;
cl <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16316	16460	
==>emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               print STDERR "Trying to get head <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	544	668	
==>nt(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	544	668	
==>nt(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".ex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	544	668	
==>nt(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".ex <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	692	891	
==>uleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	693	892	
==>uleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4400	4515	
==>ck for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4400	4515	
==>ck for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11441	11577	
==>it
  ./perl -we 'use Regexp::Perl6; print "a" =~ /<word>**{1}/;'

Status:

  Perl subs get called for regexp comp and exec.
  The hooks a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2483	2584	
==>mal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2483	2584	
==>mal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2483	2584	
==>mal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	917	1056	
==>ge-map';        
        
        # alias prototype to some common names for super
        return $table->{prototype}
            if ($messa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2253	2388	
==>if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zer <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2253	2388	
==>if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zer <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	681	796	
==>i_file(Class $class: IO $fh) {
	my @config;

	my $lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13942	14053	
==>};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13942	14053	
==>};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13942	14053	
==>};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	924	1018	
==>"tests.yml";
$Config{"recurse"} = 1 if not defined $Config{"recurse"};
# Needed for smokeserv
$ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4345	4539	
==>ructure:<if>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4457	4547	
==>w::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4457	4547	
==>w::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4457	4547	
==>w::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14982	15131	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14982	15131	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14982	15131	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            m <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	745	862	
==>y $i = $input.();
      if $i.isa(Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	42	296	
==>es used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	42	296	
==>es used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	42	296	
==>es used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42	296	
==>es used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	421	520	
==>s_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	421	520	
==>s_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1433	1531	
==>s_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1433	1531	
==>s_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8168	8416	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8168	8416	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25058	25201	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25337	25480	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicatio <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13275	13487	
==>paque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2524	2626	
==>gle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2524	2626	
==>gle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2524	2626	
==>gle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3783	3902	
==>le;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sho <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3783	3902	
==>le;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5307	5426	
==>le;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sho <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8799	8906	
==>solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18729	18839	
==>(ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20087	20197	
==>(ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	23	119	
==>---------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	23	119	
==>---------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4423	4524	
==>>{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4423	4524	
==>>{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4423	4524	
==>>{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6019	6104	
==>}

my $x1 = def_stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ & <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7297	7407	
==>s{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7297	7407	
==>s{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$ev <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	712	841	
==>, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2482	2598	
==>C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is unsa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3617	3721	
==>--------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5519	5623	
==>--------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	328	429	
==>Val would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	328	429	
==>Val would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	328	429	
==>Val would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10614	10755	
==>_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11076	11217	
==>_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10608	10749	
==>_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11070	11211	
==>_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1315	1407	
==>UTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1315	1407	
==>UTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1315	1407	
==>UTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1829	1943	
==>warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1829	1943	
==>warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1829	1943	
==>warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13911	14005	
==>ctdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdig <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8621	8718	
==>espace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8621	8718	
==>espace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method lo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26776	26871	
==>ibute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<projec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31328	31423	
==>ibute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<projec <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9915	10042	
==>mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3516	3617	
==>sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3516	3617	
==>sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3516	3617	
==>sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1242	1354	
==>}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1242	1354	
==>}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22519	22612	
==>e outside
environment at all.

A Relation object has 2 main attributes (implementation details <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27071	27164	
==>e outside
environment at all.

A Relation object has 2 main attributes (implementation details <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	396	509	
==>::Reducer::DuplicateFinder->new;

	my @nodes = grep { blessed($_) } $dup_finder->duplicate_nodes($program);

	$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	136	237	
==>e later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	136	237	
==>e later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	136	237	
==>e later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12226	12352	
==>"circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4656	4754	
==>e unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4656	4754	
==>e unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4656	4754	
==>e unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2130	2252	
==>ash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2130	2252	
==>ash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2130	2252	
==>ash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	212	317	
==>k { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}] <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	212	317	
==>k { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}] <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7814	7908	
==>{...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7814	7908	
==>{...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1357	1556	
==>S\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )") <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1357	1556	
==>S\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )") <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1759	1856	
==>perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1899	1996	
==>perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5376	5496	
==>ub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5376	5496	
==>ub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5376	5496	
==>ub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the supe <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	161	282	
==>);
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.impor <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	161	282	
==>);
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.impor <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13111	13206	
==>te about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13169	13264	
==>te about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11980	12079	
==>case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12412	12511	
==>case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11980	12079	
==>case
sensitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12412	12511	
==>case sensitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7808	7933	
==>> chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7808	7933	
==>> chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16608	16708	
==>ize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16608	16708	
==>ize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=he <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39626	39713	
==>ports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
inf <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24349	24436	
==>ports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more inf <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39626	39713	
==>ports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
inf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24349	24436	
==>ports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more inf <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2491	2686	
==>? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2491	2686	
==>? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2253	2357	
==>UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if define <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2253	2357	
==>UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if define <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12069	12221	
==>eader_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instanc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12069	12221	
==>eader_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instanc <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1532	1643	
==>lems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_l <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1532	1643	
==>lems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6998	7121	
==>Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6998	7121	
==>Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7896	7996	
==>al {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7627	7723	
==>al {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1079	1176	
==>ies the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1079	1176	
==>ies the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36576	36672	
==>s an
empty list, in which case the returned Relation is identical to the
invocant.  Another trivi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41125	41221	
==>s an
empty list, in which case the returned Relation is identical to the
invocant.  Another trivi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	250	371	
==>SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	250	371	
==>SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	250	371	
==>SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => ble <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2059	2160	
==>DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use String::Esc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21527	21621	
==>y, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21527	21621	
==>y, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21527	21621	
==>y, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34355	34465	
==>) if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34355	34465	
==>) if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34355	34465	
==>) if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2080	2175	
==>-------------------------------------
## some metamodel tools

=pod

sub *WALKMETH (block &dispa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3803	3909	
==>nfig::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfil <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3803	3909	
==>nfig::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfil <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13700	13796	
==>to
be sorted out before you can continue.

It is also possible to use the `force_todo()` function <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13758	13854	
==>to
be sorted out before you can continue.

It is also possible to use the `force_todo()` function <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3411	3513	
==>o it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3411	3513	
==>o it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15250	15345	
==>here
should be no ambiguity when trying to invoke or implement it, and so an
application written <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15250	15345	
==>here
should be no ambiguity when trying to invoke or implement it, and so an
application written <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6542	6653	
==>f = shift;
	my $node = $self->generic_reduce(shift);

	my $seq = $node->struct_equiv;
	join("\n\t", "", map { "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	614	709	
==>n "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	614	709	
==>n "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	614	709	
==>n "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2777	2883	
==>GHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Co <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2934	3040	
==>GHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Co <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2777	2883	
==>GHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Co <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2934	3040	
==>GHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11920	12053	
==>$.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUP <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2334	2457	
==>$.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUP <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2334	2457	
==>$.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUP <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1397	1502	
==>sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2995	3138	
==>k yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3179	3322	
==>k yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16443	16542	
==>set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16443	16542	
==>set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $p <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26489	26596	
==>α. ∀β. list α → list β → list (α × β)", "pretty print :t zip");
}




# tests for the type inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	935	1034	
==>ody, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	935	1034	
==>ody, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	935	1034	
==>ody, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  lo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4187	4300	
==>r $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the tok <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4187	4300	
==>r $text, Hash %events) returns Void {    
    %events<start_element>('line_interpolation');
    # grab all the tok <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4144	4255	
==>r $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the tok <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4144	4255	
==>r $text, Hash %events) returns Void {  
    %events<start_element>('line_interpolation');
    # grab all the tok <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2869	3007	
==>rm>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3116	3254	
==>rm>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22185	22286	
==>n can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26737	26838	
==>n can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Rela <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21553	21650	
==>udo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20434	20531	
==>udo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21553	21650	
==>udo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20434	20531	
==>udo" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20495	20588	
==>>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20495	20588	
==>>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	577	796	
==>tant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	578	797	
==>tant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 , <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13898	13997	
==>_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8104	8203	
==>_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9368	9543	
==>other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12845	13020	
==>other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12099	12274	
==>other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6669	6780	
==>on = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6669	6780	
==>on = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7037	7144	
==>on = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7037	7144	
==>on = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11552	11658	
==>s the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of ele <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8699	8805	
==>s the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of ele <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11552	11658	
==>s the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of ele <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8699	8805	
==>s the specified item if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8198	8342	
==>N ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8198	8342	
==>N ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8198	8342	
==>N ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1929	2027	
==>, substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END__

use YAML;
print Dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2238	2335	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2238	2335	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2238	2335	
==>{
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12662	12792	
==>od) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12662	12792	
==>od) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12662	12792	
==>od) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLO <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3861	4205	
==>rt;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3861	4205	
==>rt;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($f <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2140	2294	
==>>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or v <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2140	2294	
==>>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or v <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3616	3802	
==>> \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    check($tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41077	41178	
==>Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41077	41178	
==>Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41077	41178	
==>Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1170	1272	
==>Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1170	1272	
==>Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7356	7446	
==>>grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1181	1271	
==>>grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7058	7195	
==>splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7058	7195	
==>splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7058	7195	
==>splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5259	5370	
==>)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Config{osname} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	147	275	
==>ift;

    bless {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	800	905	
==>l($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	800	905	
==>l($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	800	905	
==>l($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3619	3717	
==>=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own language <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3489	3585	
==>=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own language <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9750	9844	
==>der to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root();
} <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9750	9844	
==>der to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root();
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13031	13181	
==>" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13025	13175	
==>" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2139	2249	
==>> list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2139	2249	
==>> list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1434	1545	
==>CURRENT} || 1;
    if ($^O =~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11604	11696	
==>ie "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11604	11696	
==>ie "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11604	11696	
==>ie "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($x <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13294	13579	
==>iledtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             percent <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9594	9701	
==>ist of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.n <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9594	9701	
==>ist of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.n <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4286	4408	
==>Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
nod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4286	4408	
==>Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
nod <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1136	1258	
==>Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
nod <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	243	348	
==>rator;

# Flags used as return values from our methods.  Just for internal 
# clarification.
my $TRUE  = ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8148	8263	
==>inc pos
  end:
    mpos = pos
    .return (mob)
.end


.sub "parse_closure"
    .param pmc mob
    .local pmc newfro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	248	341	
==>Loaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	248	341	
==>Loaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	248	341	
==>Loaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20685	20789	
==>namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20685	20789	
==>namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20685	20789	
==>namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1329	1414	
==>() } }
RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code() <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1113	1241	
==>ew( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	855	983	
==>ew( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

meth <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1113	1241	
==>ew( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

meth <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	855	983	
==>ew( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5758	5881	
==>sname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5758	5881	
==>sname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5758	5881	
==>sname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7378	7468	
==>($::Class, symbol->new('add_method'), $_add_method));
}

=pod

method has_method (opaque $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1729	1916	
==>( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retur <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1729	1916	
==>( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13597	13692	
==>seful when writing modules and you
find there is some language feature missing, or core bug that <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13655	13750	
==>seful when writing modules and you
find there is some language feature missing, or core bug that <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13940	14043	
==>`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13998	14101	
==>`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	25	121	
==>tch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	25	121	
==>tch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8492	8697	
==>= @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8492	8697	
==>= @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8492	8697	
==>= @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Va <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4968	5095	
==>[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6827	6927	
==>he C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6827	6927	
==>he C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9024	9124	
==>he C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Ha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	752	850	
==>me uninteresting
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	462	558	
==>\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1075	1171	
==>\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Con <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	462	558	
==>\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Con <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1075	1171	
==>\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print("Con <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1500	1649	
==>ode<Num>).add_children(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15060	15183	
==>ds to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2599	2703	
==>:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2599	2703	
==>:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $nex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2599	2703	
==>:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $nex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1023	1131	
==>dcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1023	1131	
==>dcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1023	1131	
==>dcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24569	24668	
==>Relation::Example attribute has a name that is distinct from the other
attributes, though several at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11481	11589	
==>lock#" . $code;
}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { capture = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7153	7260	
==>UB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7153	7260	
==>UB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7153	7260	
==>UB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4562	4682	
==>st');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprint <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4345	4460	
==>st');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprint <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1174	1279	
==>(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    m <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1232	1337	
==>(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	512	694	
==>ds => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                m <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4601	4770	
==>gs = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_IN <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7479	7576	
==>ertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7479	7576	
==>ertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	195	291	
==>ely the Match object that userland folks will
see, but it has some other clutter because of uncle <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	195	291	
==>ely the Match object that userland folks will
see, but it has some other clutter because of uncle <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15883	15982	
==>lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20116	20215	
==>lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5117	5213	
==>lename)

The C<read> method reads a config file, and returns a boolean value
of success or failur <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5117	5213	
==>lename)

The C<read> method reads a config file, and returns a boolean value
of success or failur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14859	14987	
==>st;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14859	14987	
==>st;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14859	14987	
==>st;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4035	4139	
==>har => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\N' = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	638	727	
==>:Completion is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValueP <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4082	4285	
==>$event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4082	4285	
==>$event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3949	4088	
==>] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0] <==
4	/Users/nnunley/pugs/util/package-osx.pl	10603	10724	
==>n';\n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2059	2208	
==>tate->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2475	2621	
==>tate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1991	2137	
==>tate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2475	2621	
==>tate->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7959	8104	
==>ot implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13553	13698	
==>ot implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7959	8104	
==>ot implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13547	13692	
==>ot implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5545	5657	
==>@$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5545	5657	
==>@$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5545	5657	
==>@$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22275	22370	
==>object()
method not to actually create any objects.  Afterwards, it is an array
reference of (no <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4270	4377	
==>? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10256	10349	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10256	10349	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10256	10349	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "s <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1125	1221	
==>ally used to add extra directories to Pugs's 
search path so that later `use` or `require` statem <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1125	1221	
==>ally used to add extra directories to Pugs's 
search path so that later `use` or `require` statem <==
4	/Users/nnunley/pugs/util/addauthors.pl	1206	1307	
==>{
    warn "$c missing from AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3381	3469	
==>add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3381	3469	
==>add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3381	3469	
==>add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13768	13865	
==>};
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13768	13865	
==>};
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13768	13865	
==>};
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($x <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9395	9484	
==>gexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef,undef <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11354	11504	
==>{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $resu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11354	11504	
==>{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $resu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	979	1075	
==>se() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array:: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	979	1075	
==>se() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9569	9696	
==>~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9569	9696	
==>~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9569	9696	
==>~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14156	14250	
==>doesn't change. 

If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~~ any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3274	3382	
==>elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3274	3382	
==>elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3274	3382	
==>elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40367	40468	
==>TRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40052	40155	
==>, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40052	40155	
==>, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40052	40155	
==>, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unb <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34324	34425	
==>return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation::Example has <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17140	17245	
==>unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17140	17245	
==>unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17140	17245	
==>unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = N <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34107	34200	
==>ad2 anyof_range

Family: anyof_range

Types: anyof_range (C<X-Y>)

Data: array reference of lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9666	9805	
==>fy( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9666	9805	
==>fy( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9666	9805	
==>fy( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4527	4649	
==>($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    J <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4503	4630	
==>eiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_round = round_ceiling($x) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21931	22018	
==>ugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21931	22018	
==>ugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21931	22018	
==>ugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6319	6433	
==>continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => su <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6319	6433	
==>continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6998	7095	
==>Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Lang <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6998	7095	
==>Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Lang <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2453	2570	
==>age)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2453	2570	
==>age)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15697	15792	
==>d_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15697	15792	
==>d_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8784	8957	
==>less ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5144	5317	
==>less ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5993	6166	
==>less ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14281	14385	
==>w_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->push_con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	856	961	
==>e predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	856	961	
==>e predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	856	961	
==>e predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	67	162	
==>:Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5254	5377	
==>ent_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    ret <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5254	5377	
==>ent_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	29	142	
==>h of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.mon <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	29	142	
==>h of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.mon <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5901	6023	
==>,
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self->{data}[0]->qr, $sel <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6899	7009	
==>turn the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6899	7009	
==>turn the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3938	4133	
==>values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7415	7610	
==>values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6381	6576	
==>values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1722	1820	
==>.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns I <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1722	1820	
==>.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12270	12423	
==>e::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12264	12417	
==>e::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20864	20961	
==>d routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25416	25513	
==>d routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19167	19277	
==>t be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending wit <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19167	19277	
==>t be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending wit <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	343	449	
==>$bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	343	449	
==>$bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    m <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	847	974	
==>te( "wiki_edit.tmpl", topic => $topic, entry => $entry );
    }
    when 'update' { 
        say "Updating";
#        die "No to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2816	2911	
==>re;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2816	2911	
==>re;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2816	2911	
==>re;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	980	1105	
==>st = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= 1; 1 }    # X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22536	22632	
==>$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22536	22632	
==>$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22536	22632	
==>$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6811	6896	
==>hod($_resolve));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6811	6896	
==>hod($_resolve));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6811	6896	
==>hod($_resolve));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	431	543	
==>formation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require C <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	431	543	
==>formation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require C <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26269	26366	
==>ubset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30821	30918	
==>ubset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6143	6254	
==>die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6143	6254	
==>die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6143	6254	
==>die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "" <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2253	2342	
==>--------------------------------------------------
-- Do not modify this file; it is gener <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28051	28188	
==>p = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28051	28188	
==>p = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28051	28188	
==>p = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	90	194	
==>qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7220	7375	
==>d) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7220	7375	
==>d) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7220	7375	
==>d) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24567	24687	
==>$class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'gro <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1067	1199	
==>rom;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.captu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1067	1199	
==>rom;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.captu <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1256	1364	
==>tring delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and PO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1256	1364	
==>tring delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and PO <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20960	21054	
==>nt> <'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rule IterationStat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4866	4955	
==>bject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass". <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4866	4955	
==>bject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass". <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4866	4955	
==>bject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass". <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3768	3891	
==>e};
        $name =~ s/::/-/g;
        die "Error in name(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6347	6445	
==>xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6347	6445	
==>xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6347	6445	
==>xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	834	948	
==>dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	834	948	
==>dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	834	948	
==>dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	361	459	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <immediate_statement_rule>*
        { ret <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	328	448	
==>[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	819	939	
==>[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	328	448	
==>[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	819	939	
==>[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	366	469	
==>r_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	366	469	
==>r_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11077	11174	
==>name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11077	11174	
==>name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2231	2355	
==>exp2 => $_[3], exp3 => $_[5] } }
    | IF exp block 'elsif' exp block 'else' block
        { $_[0]->{out}= { 
            op1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12269	12379	
==>).";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_looku <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12269	12379	
==>).";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_looku <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12269	12379	
==>).";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_looku <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13896	14004	
==>{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13896	14004	
==>{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1489	1585	
==>source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1489	1585	
==>source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13296	13422	
==>size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13296	13422	
==>size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13296	13422	
==>size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chang <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2181	2307	
==>size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_chang <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16950	17084	
==>n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic_reduce {
    my $self = shift;
    my $n <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	304	406	
==>';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
main(int ac, char **av) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4828	4928	
==>y of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Compl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4828	4928	
==>y of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Compl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50374	50495	
==>et_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method labe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16937	17026	
==>ternals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16937	17026	
==>ternals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16937	17026	
==>ternals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14864	14968	
==>TI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14864	14968	
==>TI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14864	14968	
==>TI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5670	5771	
==>imag'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'Str';
    return get_meta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7110	7215	
==><?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @terms, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1338	1462	
==>que_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1338	1462	
==>que_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1338	1462	
==>que_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6893	6978	
==>::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::Object->new( $dup_finder->dupli <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10886	11032	
==>ng to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($stri <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10886	11032	
==>ng to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($stri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15989	16081	
==>long with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15989	16081	
==>long with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1054	1148	
==>size 1;
Clutter::int_size 2;
Clutter::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	341	460	
==>{
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	341	460	
==>{
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	341	460	
==>{
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1276	1406	
==>ut = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	883	1009	
==>opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	883	1009	
==>opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	883	1009	
==>opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5535	5639	
==>teme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5535	5639	
==>teme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5535	5639	
==>teme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaSc <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2268	2414	
==>*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify wit <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2268	2414	
==>*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify wit <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11143	11238	
==>TTP spec (RFC 2616) promise that joining multiple
values in this way will not change the semanti <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11143	11238	
==>TTP spec (RFC 2616) promise that joining multiple
values in this way will not change the semanti <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9054	9163	
==>mbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9054	9163	
==>mbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1106	1209	
==>e set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1106	1209	
==>e set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1741	1865	
==>atch: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2069	2191	
==>atch: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1682	1804	
==>atch: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2069	2191	
==>atch: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9377	9505	
==>t {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9365	9493	
==>t {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34476	34577	
==>er Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34476	34577	
==>er Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Lo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1619	1733	
==>lue
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a sin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1619	1733	
==>lue
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a sin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8275	8381	
==>te - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7996	8100	
==>te - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10494	10612	
==>um2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2795	2899	
==>y $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2795	2899	
==>y $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2795	2899	
==>y $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "C <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	914	1010	
==>eading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	914	1010	
==>eading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1470	1566	
==>eading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	596	733	
==>ef( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	684	821	
==>ef( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	681	813	
==>ef( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1294	1398	
==>t" if not $options;
  if ( $relativePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4427	4549	
==>nt postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4427	4549	
==>nt postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9646	9745	
==>}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return }
m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9646	9745	
==>}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return }
m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7562	7661	
==>e64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7562	7661	
==>e64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum o <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3972	4069	
==>::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3972	4069	
==>::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set: <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2434	2529	
==>on) == 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($sm <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20099	20193	
==>the implementation can be changed greatly (it isn't what's important;
the interface/behaviour i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24651	24745	
==>the implementation can be changed greatly (it isn't what's important;
the interface/behaviour i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23203	23297	
==>the implementation can be changed greatly (it isn't what's important;
the interface/behaviour i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6947	7056	
==>! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7005	7114	
==>! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2891	2992	
==>a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2891	2992	
==>a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20846	20939	
==>.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20846	20939	
==>.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20846	20939	
==>.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27445	27532	
==>ine RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)
 #define RX_MATCH_T <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7824	7985	
==>, 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3186	3300	
==>rrent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3186	3300	
==>rrent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3186	3300	
==>rrent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}-> <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5447	5565	
==>rs.
            foreach my $piece (qw(name type reason)) {
                $details->{$piece} = defined $result{$piece} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2333	2450	
==>y, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2333	2450	
==>y, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2333	2450	
==>y, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3896	4008	
==>ler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expres <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4229	4341	
==>ler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expres <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3896	4008	
==>ler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expres <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4229	4341	
==>ler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expres <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3970	4094	
==>ub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return con <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5291	5415	
==>ub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3970	4094	
==>ub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5279	5403	
==>ub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return con <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	115	219	
==>ST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	173	277	
==>ST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Te <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13567	13664	
==>d be started).  This is most useful when writing modules and you
find there is some language featu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13625	13722	
==>d be started).  This is most useful when writing modules and you
find there is some language featu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	671	767	
==>is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	671	767	
==>is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20787	20880	
==>implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20787	20880	
==>implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	816	917	
==>ribution.
Please use the 'name' function in Makefile.PL.
END

    $name =~ s/-/::/g;
    $self->module <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1560	1671	
==>}
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1560	1671	
==>}
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1560	1671	
==>}
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5598	5706	
==>rogress to stderr
    --touch,   -t     mark Run.hi and Run.o stale, triggering pugs rebuild
    --output,  - <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6412	6522	
==>ns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.prope <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5542	5652	
==>ns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.prope <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6412	6522	
==>ns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.prope <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5542	5652	
==>ns Set {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.prope <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9829	9929	
==>thod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9829	9929	
==>thod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9829	9929	
==>thod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

:: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8392	8501	
==>lation::Example {
    return Relation::Example.new(
        heading => $heading,
        body => set( $!body.v <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	562	658	
==>_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	562	658	
==>_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25415	25513	
==>cture of a Relation::Example can look like a table, where each of its tuples is
a row, and each att <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14630	14735	
==>xpression>
    | <'+'> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExpression>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4377	4480	
==>positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XX <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4377	4480	
==>positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XX <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4967	5070	
==>positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XX <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7752	7872	
==>chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7752	7872	
==>chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	872	996	
==>ame   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	872	996	
==>ame   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	872	996	
==>ame   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	49	155	
==>6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	53	159	
==>6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	49	155	
==>6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	53	159	
==>6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# One is able <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	131	232	
==>ur $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	131	232	
==>ur $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	131	232	
==>ur $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14220	14390	
==>f->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14220	14390	
==>f->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14220	14390	
==>f->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18868	18963	
==>e Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This class implements a Rela <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7160	7268	
==>. rFoo now does Role');

my $rBar = $Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'rB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7342	7445	
==>ubs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Retur <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7342	7445	
==>ubs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40980	41074	
==>w a warning that can only be figured out the second pass.

=item $parser->error(RPe_ERRMSG, ARG <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5000	5131	
==>urn {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5193	5324	
==>urn {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1211	1311	
==>emote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1211	1311	
==>emote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1765	1862	
==>odules look like, you can have a look at the
modules in F<ext/>. Another good source of working Pe <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1765	1862	
==>odules look like, you can have a look at the
modules in F<ext/>. Another good source of working Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3406	3512	
==>~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3406	3512	
==>~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3406	3512	
==>~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6053	6180	
==>Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6053	6180	
==>Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6053	6180	
==>Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('P <==
4	/Users/nnunley/pugs/util/config_h.pl	769	873	
==>VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1179	1296	
==>>coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  {
    $self->pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9343	9453	
==>ight look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # --------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9343	9453	
==>ight look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # --------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9343	9453	
==>ight look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # --------------- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1179	1351	
==>(*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1179	1351	
==>(*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	613	759	
==>(*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	613	759	
==>(*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13852	13965	
==>IN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13852	13965	
==>IN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30665	30763	
==>e must represent a single
language.

The name of each Template module has two parts, the Set Name a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30665	30763	
==>e must represent a single
language.

The name of each Template module has two parts, the Set Name a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	345	437	
==>_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	345	437	
==>_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	345	437	
==>_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17292	17425	
==>"_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    }, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17292	17425	
==>"_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    }, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1431	1526	
==>aid is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::Se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1431	1526	
==>aid is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16992	17103	
==>int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16992	17103	
==>int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16992	17103	
==>int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	342	430	
==>ompiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token->compile(q( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12351	12452	
==>, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<H <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12351	12452	
==>, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<H <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1287	1384	
==>return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wid <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1287	1384	
==>return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4328	4519	
==>lurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4328	4519	
==>lurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4328	4519	
==>lurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => su <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	464	563	
==>intf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($args{en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6615	6731	
==>)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6615	6731	
==>)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6615	6731	
==>)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2401	2496	
==>rl => 'some/perl/binary' );

C<_perl_version> returns the version of a certain perl binary.
It d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1168	1282	
==>t-1)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1013	1123	
==>instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1013	1123	
==>instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1013	1123	
==>instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	99	203	
==>self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	99	203	
==>self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	99	203	
==>self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1359	1461	
==>w (Relation::LaxAttrList :%attrs? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.ma <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2834	2933	
==>urns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2834	2933	
==>urns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2898	2994	
==>recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2898	2994	
==>recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4932	5048	
==>go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4932	5048	
==>go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4932	5048	
==>go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1252	1380	
==>tore the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results(@r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1252	1380	
==>tore the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results(@r <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8430	8522	
==>n when any block of characters is interpolated for modifiers.

=item I<end_element ('line_int <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8430	8522	
==>n when any block of characters is interpolated for modifiers.

=item I<end_element ('line_int <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	366	466	
==>b { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_value => ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7293	7383	
==>ta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7293	7383	
==>ta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7293	7383	
==>ta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @va <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5886	5989	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5016	5119	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5886	5989	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5016	5119	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	346	463	
==>nused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	346	463	
==>nused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23146	23240	
==>supposed to pass in english text and they translate it, which could
produce ambiguous results o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23146	23240	
==>supposed to pass in english text and they translate it, which could
produce ambiguous results o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	532	639	
==>: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	532	639	
==>: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	532	639	
==>: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is pri <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12707	12811	
==>>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <Element <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1032	1146	
==>point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = ca <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1906	2020	
==>point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1032	1146	
==>point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = ca <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1906	2020	
==>point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9371	9479	
==>d    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9371	9479	
==>d    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9371	9479	
==>d    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wr <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	37	137	
==>ine::Parrot;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
use Inline::Parrot::PMC 'get_int';
us <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11070	11178	
==>], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11220	11328	
==>], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /s <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2725	2821	
==>N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst si <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2725	2821	
==>N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst si <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3019	3123	
==>]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see ab <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3019	3123	
==>]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see ab <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3091	3186	
==>`splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- ` <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3091	3186	
==>`splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- ` <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13976	14166	
==>lit('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4077	4239	
==>lit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4077	4239	
==>lit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4077	4239	
==>lit('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1976	2076	
==>p !/^--.*=$/, @{$opts->{SETUP}});

    my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1254	1350	
==>d postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1254	1350	
==>d postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1254	1350	
==>d postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2167	2271	
==>_but_not_alias> <quantifier>  }

rule simple_term  {
    <metasyntactic_token> | <commit_something>
  | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1656	1750	
==>my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1656	1750	
==>my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1656	1750	
==>my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8088	8203	
==>".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8088	8203	
==>".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8088	8203	
==>".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25122	25256	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25401	25535	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20385	20503	
==>ub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16806	16924	
==>ub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5801	6005	
==>p '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31309	31434	
==>sub init {
    my $self = shift;
    $self->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5969	6062	
==>'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10226	10319	
==>'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19453	19534	
==><lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19453	19534	
==><lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18864	18962	
==>r
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has join <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17907	18005	
==>r
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18864	18962	
==>r
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has join <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17907	18005	
==>r
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channels it has join <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17821	17974	
==>{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18100	18253	
==>{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8728	8871	
==>unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8728	8871	
==>unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11529	11628	
==>\N{NAME} escapes -- they get interpolated
by Perl first.  In fact, if one slipped through:

  my $rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1310	1404	
==>ant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1310	1404	
==>ant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1310	1404	
==>ant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17573	17714	
==>UILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40842	40983	
==>UILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	614	727	
==>count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	614	727	
==>count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1942	2122	
==>push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                ne <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1942	2122	
==>push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                ne <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5673	5791	
==>tem("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return ' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5673	5791	
==>tem("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13927	14081	
==>ete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13927	14081	
==>ete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13927	14081	
==>ete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $si <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9280	9389	
==>re_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9473	9582	
==>re_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	49	148	
==>Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorith <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	49	148	
==>Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorith <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3949	4141	
==>%$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9266	9374	
==>@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10072	10180	
==>@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10987	11095	
==>@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11203	11354	
==>) = @_;
    return $S->object(reg_any => sany => '.');
  });


  ### '|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(bran <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3908	4011	
==>:hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3908	4011	
==>:hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3908	4011	
==>:hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    d <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp4.pl	4	111	
==>terp4.pl - Interpolation in Perl 6
sub hallo {
	"Hallo, $_!"
}

say "Otto sagt: {hallo('Hund')}"; # Code-Blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	637	743	
==>Params}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	637	743	
==>Params}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	637	743	
==>Params}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16260	16363	
==>t looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data { <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20686	20789	
==>t looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	0	91	
==>package Pugs::Runtime::Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	0	91	
==>package Pugs::Runtime::Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runti <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4224	4508	
==>}
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	547	642	
==>_args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	547	642	
==>_args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	547	642	
==>_args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3164	3275	
==>more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3164	3275	
==>more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	957	1054	
==>cal stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	957	1054	
==>cal stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into th <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17454	17574	
==>e [ \""
    $P0 .= grammar
    $P0 .= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = com <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	51	159	
==>on cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $juliu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	51	159	
==>on cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $juliu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6694	6779	
==>erl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5_elemental(char(C <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5745	5834	
==>)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5935	6024	
==>)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5745	5834	
==>)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5935	6024	
==>)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2236	2336	
==>die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2236	2336	
==>die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2236	2336	
==>die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Roo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10251	10351	
==>l tests need a plan. A plan is simply the number of tests which are
expected to run. This should be s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10309	10409	
==>l tests need a plan. A plan is simply the number of tests which are
expected to run. This should be s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	546	643	
==>port {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	546	643	
==>port {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4191	4326	
==>other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        ot <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2324	2436	
==>{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2324	2436	
==>{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2324	2436	
==>{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3975	4081	
==>med attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Arra <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3975	4081	
==>med attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8028	8133	
==>inite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8028	8133	
==>inite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8629	8735	
==>_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoid <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8629	8735	
==>_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoid <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8629	8735	
==>_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoid <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4736	4857	
==>s thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test u <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4794	4915	
==>s thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	10	120	
==>ole Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub * <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	10	120	
==>ole Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8019	8146	
==>27),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "an <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8019	8146	
==>27),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23771	23864	
==>d multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and do <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23771	23864	
==>d multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and do <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7765	7876	
==>rder
    --recurse, -r           Recurse into directories on test include list
    --incude=I1,[I2,...]    Inclu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5163	5262	
==>ethod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5163	5262	
==>ethod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5163	5262	
==>ethod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') { <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	515	631	
==>n(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1489	1599	
==>pan> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1489	1599	
==>pan> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1567	1660	
==>e value to dynamic_config, skipping\n";
		return $self;
	}
	$self->{'values'}{'dynamic_config' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14574	14733	
==>ts ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14574	14733	
==>ts ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14574	14733	
==>ts ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        ' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23101	23195	
==>s (eg,
volatile or persistent) and provide accessors to them.  The Relation
library provides fu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21560	21666	
==>ents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20441	20547	
==>ents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21560	21666	
==>ents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20441	20547	
==>ents. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, containing:

=over <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11864	12057	
==>keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11864	12057	
==>keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	96	208	
==>sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*= <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	96	208	
==>sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*= <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3278	3378	
==>$ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3278	3378	
==>$ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38918	39016	
==>ation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43732	43830	
==>ation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18249	18378	
==>k->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21508	21637	
==>k->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41514	41643	
==>k->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->ge <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44415	44544	
==>k->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->ge <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8984	9091	
==>$t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrep <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8984	9091	
==>$t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrep <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	319	423	
==>required.
#
# P.S. This documentation is not in POD format in order to avoid
# problems when there are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6064	6245	
==>_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6064	6245	
==>_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6064	6245	
==>_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                m <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12110	12207	
==>" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23870	23996	
==>f;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34979	35073	
==>ing of the invocant Relation.  This method
degenerates into an C<intersection> if the two sourc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39529	39623	
==>ing of the invocant Relation.  This method
degenerates into an C<intersection> if the two sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1216	1338	
==>def)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1216	1338	
==>def)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1216	1338	
==>def)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1330	1426	
==>ype->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9941	10085	
==>] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9941	10085	
==>] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9941	10085	
==>] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy = <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13040	13168	
==>>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="11" class="indent3">
              <tmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5479	5580	
==>ified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5479	5580	
==>ified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5479	5580	
==>ified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	631	721	
==>agwitz E<lt>rafl@debian.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	29	137	
==>line;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for the fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1084	1182	
==>$a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1084	1182	
==>$a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1084	1182	
==>$a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't ne <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4622	4721	
==>ets the current test plan or throws an exception if there's already a plan in
place.  You have two o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4622	4721	
==>ets the current test plan or throws an exception if there's already a plan in
place.  You have two o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6146	6245	
==>ets the current test plan or throws an exception if there's already a plan in
place.  You have two o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5201	5314	
==>le;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5394	5507	
==>le;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $boo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35705	35796	
==>lational operator that takes a single
Relation::Example in its C<$other> argument, where <$o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37737	37828	
==>lational operator that takes a single Relation::Example
in its C<$other> argument, where <$o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35097	35194	
==>a: array reference of array references, each representing one
alternation, holding any number of o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9864	9955	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9864	9955	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9864	9955	
==>RO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1962	2070	
==>ance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1962	2070	
==>ance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1962	2070	
==>ance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7600	7692	
==>rl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1828	1920	
==>rl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9234	9326	
==>rl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2046	2138	
==>rl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Little E<lt>steva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15038	15146	
==>l(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15038	15146	
==>l(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15038	15146	
==>l(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47044	47150	
==>, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace'))) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1899	2016	
==>mber_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10036	10149	
==>y ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });

  $self->add_ha <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9929	10028	
==>is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entiti <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9929	10028	
==>is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entiti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7910	8032	
==>afe::Annotation->new(
				type => [ $child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4704	4813	
==>$role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4704	4813	
==>$role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4704	4813	
==>$role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9879	10021	
==>particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particula <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7819	7961	
==>particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particula <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9879	10021	
==>particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particula <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7819	7961	
==>particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particula <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8792	8896	
==>verload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8501	8602	
==>verload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::G <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34750	34848	
==>ocant and whose body contains all of the tuples that
are in the invocant Relation and that match an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39300	39398	
==>ocant and whose body contains all of the tuples that
are in the invocant Relation and that match an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	606	705	
==>ope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	606	705	
==>ope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	606	705	
==>ope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6888	6975	
==>mpl/error.tmpl');
$template->param(unresolved => \@unresolved);
print $error $template-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2481	2619	
==>> 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>',
        assoc => 'l <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	828	951	
==>r = eval{ $f->($mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print " <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5617	5723	
==>ildren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5617	5723	
==>ildren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	875	983	
==>on - pass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1240	1345	
==>on - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	839	944	
==>on - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1240	1345	
==>on - pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9114	9288	
==>param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9114	9288	
==>param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9114	9288	
==>param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $para <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20735	20833	
==>r_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . "/" . $subsubdir } = $val->{ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3337	3448	
==>>{base}/$path";

    unshift @INC, $self->{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    fore <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1480	1590	
==>TELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1480	1590	
==>TELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1480	1590	
==>TELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12384	12501	
==>not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2764	2877	
==>not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2764	2877	
==>not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description ) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13882	13992	
==>eir children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$) }

# combs combine the generic value <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	420	541	
==>::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number }, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	420	541	
==>::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number }, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10838	10933	
==>(Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expect <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10896	10991	
==>(Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expect <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19566	19660	
==>ame, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18547	18641	
==>ame, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19566	19660	
==>ame, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18547	18641	
==>ame, username, or ircname. Note that thesse are I<not>
necessarily the names you specified in t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32355	32519	
==>length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32355	32519	
==>length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32355	32519	
==>length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6827	6933	
==>n "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6827	6933	
==>n "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6827	6933	
==>n "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1153	1257	
==>elf = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reduce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10790	10976	
==>num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10790	10976	
==>num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10790	10976	
==>num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5905	6025	
==>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5905	6025	
==>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5905	6025	
==>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{met <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17821	17919	
==>ression> <'&&'> <BitwiseORExpression>
}
rule LogicalANDExpressionNoIn :words {  # see 11.11
      < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8903	9065	
==>ckage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD() <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8903	9065	
==>ckage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD() <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8903	9065	
==>ckage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD() <==
4	/Users/nnunley/pugs/util/package-osx.pl	7653	7750	
==>::Functions.3
        /usr/local/man/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17867	17992	
==>bject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20747	20872	
==>bject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24535	24660	
==>bject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1117	1240	
==>_('@:results')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $expla <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	952	1079	
==>param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $du <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	694	821	
==>param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $du <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	952	1079	
==>param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $du <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	694	821	
==>param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $du <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2938	3061	
==>an = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2938	3061	
==>an = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	557	670	
==>quire Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and de <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	557	670	
==>quire Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and de <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25231	25338	
==>eeds it and pregcomp() is computing
 * it anyway.
 * [regmust is now supplied always.  The tests that use re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2515	2615	
==>that has the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2420	2519	
==>that has the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more i <==
4	/Users/nnunley/pugs/util/package-osx.pl	5556	5653	
==>AQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Perl6::Overv <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8856	8976	
==>set
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $str <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8856	8976	
==>set
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16723	16834	
==>> "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13144	13255	
==>> "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3888	4026	
==>]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .ma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3888	4026	
==>]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .ma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4420	4550	
==>]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .ma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4420	4550	
==>]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .ma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5971	6095	
==>') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	warn "our PPad not implemented\n"; # use MM?
    }
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3645	3750	
==>n't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3645	3750	
==>n't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3645	3750	
==>n't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub inf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1608	1740	
==>le';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_captur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3455	3559	
==>ping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6932	7036	
==>ping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5889	5993	
==>ping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3731	3830	
==>m B<Stat>

If the test exited with non-zero, this is its exit status.

=item B<Wstat>

The wait stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1344	1441	
==>es
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INIT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1344	1441	
==>es
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INIT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1344	1441	
==>es
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INIT <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7468	7566	
==>nks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7468	7566	
==>nks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2654	2758	
==>expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2654	2758	
==>expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2654	2758	
==>expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1550	1656	
==>apture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1550	1656	
==>apture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3474	3575	
==>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

ru <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3474	3575	
==>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

ru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	978	1083	
==>paque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1183	1288	
==>paque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1244	1349	
==>paque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4692	4790	
==>ctic shenanigans, the declaration must be visible
    in the lexical scope to have any effect. It's <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6237	6363	
==>}
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an except <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5310	5436	
==>}
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an except <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6237	6363	
==>}
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an except <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5310	5436	
==>}
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an except <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11447	11555	
==>c->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11447	11555	
==>c->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11447	11555	
==>c->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1113	1227	
==>self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1113	1227	
==>self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2599	2700	
==>results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend fo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2599	2700	
==>results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4693	4793	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5419	5519	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24906	24996	
==>pply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands imm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24906	24996	
==>pply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands imm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3508	3612	
==>) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3508	3612	
==>) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3508	3612	
==>) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2440	2548	
==>ent we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2440	2548	
==>ent we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.serv <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26104	26199	
==>t of Str $attrs!) returns Relation>

This method is a generic relational operator that returns a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30656	30751	
==>t of Str $attrs!) returns Relation>

This method is a generic relational operator that returns a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6634	6757	
==>_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6634	6757	
==>_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6634	6757	
==>_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX:: <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5832	5937	
==>*@values --> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	523	635	
==>new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	523	635	
==>new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	523	635	
==>new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$sel <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3924	4024	
==>ests.yaml\n";
}
print "Output directory      : $output_dir\n";
print "\n";

my $quotable = qr/\w+|$RE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22926	23121	
==>x', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23205	23400	
==>x', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1234	1329	
==>ut to other uses as well.

Log::Selective exports a single function, C<note>, which is called wi <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1234	1329	
==>ut to other uses as well.

Log::Selective exports a single function, C<note>, which is called wi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	806	906	
==>n can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	806	906	
==>n can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	408	502	
==>oc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	408	502	
==>oc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2008	2104	
==>ke encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2, <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2370	2466	
==>ke encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2, <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2008	2104	
==>ke encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2, <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2370	2466	
==>ke encode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4267	4396	
==>in( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4255	4384	
==>in( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8727	8818	
==>r::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2552	2643	
==>r::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, s <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1478	1575	
==>ramming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Fun <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1478	1575	
==>ramming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Fun <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	452	547	
==>ction) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: met <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	452	547	
==>ction) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: met <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6051	6154	
==>ing for Linux",
  help   => "This program needs Linux to run correctly.",
  ensure => sub { $^O eq "linu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5033	5131	
==>0000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5033	5131	
==>0000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5033	5131	
==>0000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	562	672	
==>known>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	562	672	
==>known>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	562	672	
==>known>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9078	9174	
==>leStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <! <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	257	342	
==>ame = Pugs::Compiler::Rule->compile(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1428	1554	
==>: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.rem <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1428	1554	
==>: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.rem <==
4	/Users/nnunley/pugs/util/combine_tests.pl	857	983	
==>sions, $revision;
        for my $file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4718	4830	
==>ias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4718	4830	
==>ias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5308	5420	
==>ias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6407	6499	
==>:Harness::Iterator->new($fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<an <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3707	3806	
==>>find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val . " to $type";

		Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4378	4465	
==>LHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4378	4465	
==>LHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4378	4465	
==>LHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::Ba <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2254	2399	
==>erse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3008	3102	
==>editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3008	3102	
==>editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3008	3102	
==>editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10366	10551	
==>::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	908	1077	
==>::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	908	1077	
==>::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23474	23618	
==>aram => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide("f"),
					),
					pa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3073	3169	
==>t.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3073	3169	
==>t.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3153	3249	
==>t.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1503	1600	
==>$_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::n <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1503	1600	
==>$_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::n <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6787	6881	
==>element, an event is fired, the first argument to all these events is
the C<$event_type> (heade <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6787	6881	
==>element, an event is fired, the first argument to all these events is
the C<$event_type> (heade <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1314	1480	
==>s_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4553	4719	
==>s_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1314	1480	
==>s_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4553	4719	
==>s_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_e <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15914	16048	
==>ht after the h1
            my $target  = $link->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7551	7655	
==>age PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7551	7655	
==>age PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7551	7655	
==>age PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1884	2026	
==>e (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1884	2026	
==>e (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1884	2026	
==>e (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6161	6249	
==>Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5017	5127	
==>$?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5017	5127	
==>$?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_node <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4558	4667	
==>$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4558	4667	
==>$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1286	1396	
==>s_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1286	1396	
==>s_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1286	1396	
==>s_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4543	4663	
==>.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4543	4663	
==>.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4543	4663	
==>.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29771	29870	
==>ribute by passing a value.

=item my $q = $obj->qr()

The regex representation of this object.  It i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31264	31358	
==>ks like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35814	35908	
==>ks like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35032	35126	
==>ks like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9024	9116	
==>} '... instance calling metaclass singleton method fails';

is($iFoo->foo, 'Foo->foo', '... $ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2316	2431	
==>is non-fatal";

		cmp_deeply(
			$result,
			$prog->{result},
			"correct results for $prog->{name}",
		);
	}
}

__P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7491	7582	
==>lti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7491	7582	
==>lti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7491	7582	
==>lti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8002	8115	
==>_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8002	8115	
==>_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8002	8115	
==>_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_i <==
4	/Users/nnunley/pugs/util/importgraph.pl	694	798	
==><', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w.]+ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5873	5989	
==>ext( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5873	5989	
==>ext( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $. <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12520	12623	
==>ed"><span title="<tmpl_var name=skipped> skipped"><tmpl_var name=skipped></span>,</td>
	      <td class= <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	394	491	
==>:Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$VE <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2837	2944	
==>gs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2994	3101	
==>gs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2837	2944	
==>gs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2994	3101	
==>gs is a joint work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6144	6327	
==>';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6144	6327	
==>';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6144	6327	
==>';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scala <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38445	38546	
==>($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3343	3465	
==>bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3343	3465	
==>bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3343	3465	
==>bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        w <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1744	1835	
==>l($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { join(" ", layout($. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7189	7328	
==>f ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7189	7328	
==>f ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15404	15523	
==>ntrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15404	15523	
==>ntrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	908	1004	
==>ding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mess <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	908	1004	
==>ding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mess <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1464	1560	
==>ding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mess <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16335	16426	
==>generic($.if) }
cond: generic_in($.else) = { generic($.then) }
cond: generic($$) = { generic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20111	20201	
==>xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20111	20201	
==>xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20111	20201	
==>xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18599	18687	
==>N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6601	6697	
==>ndlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3955	4051	
==>ndlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6601	6697	
==>ndlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3955	4051	
==>ndlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20833	21015	
==>nation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21112	21294	
==>nation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5856	6004	
==>($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        },                
    }
);

o <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	736	877	
==>on",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Sym('$x'),
							Val(2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4403	4535	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4403	4535	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4403	4535	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	302	415	
==>%opt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33684	33775	
==>C<difference (Relation $other!) returns Relation>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38234	38325	
==>C<difference (Relation $other!) returns Relation>

This method is a generic relational opera <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	6	103	
==>/bin/perl
use strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CT <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	25	149	
==>Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to ze <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	25	149	
==>Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to ze <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13298	13417	
==>refix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13292	13411	
==>refix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3932	4039	
==>ay ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and al <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3932	4039	
==>ay ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and al <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6448	6546	
==>sed to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6241	6335	
==>sed to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11905	12013	
==>\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12328	12436	
==>\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4548	4656	
==>\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4971	5079	
==>\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38253	38349	
==>>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TOD <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42802	42898	
==>>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TOD <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42452	42548	
==>>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TOD <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5105	5228	
==>ill be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5105	5228	
==>ill be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @h <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	573	670	
==>unc if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $func)
	}
}

i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4825	4921	
==>makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8538	8643	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8538	8643	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8538	8643	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1526	1623	
==>r SHOULD NOT BE CHANGED to accommodate the characteristics
#  of particular regex engines.  Its st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2963	3098	
==>mainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( q(
        \!      # $!
    |   \??     # $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1065	1177	
==>nally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1065	1177	
==>nally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1065	1177	
==>nally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17152	17248	
==>between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is em <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17152	17248	
==>between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is em <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14122	14217	
==>acters to consider unsafe (i.e., which to escape). The default set
of characters to encode are c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14122	14217	
==>acters to consider unsafe (i.e., which to escape). The default set
of characters to encode are c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1732	1843	
==>e('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1732	1843	
==>e('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1732	1843	
==>e('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

me <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1951	2167	
==>rent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we d <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1951	2167	
==>rent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15591	15732	
==>on\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15585	15726	
==>on\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24180	24281	
==>ing it received.  This is typically used by automatons
  (clients with either an AI or other interacti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22953	23054	
==>ing it received.  This is typically used by automatons
  (clients with either an AI or other interacti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24180	24281	
==>ing it received.  This is typically used by automatons
  (clients with either an AI or other interacti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22953	23054	
==>ing it received.  This is typically used by automatons
  (clients with either an AI or other interacti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1083	1180	
==>$_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14154	14251	
==>ase of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation::Exam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1083	1180	
==>$_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1083	1180	
==>$_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14724	14836	
==>'4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14724	14836	
==>'4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1637	1735	
==>cate containers.



the Body is just a structure with three node forms: Var

(variable lookup), App <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1571	1666	
==>cate containers.

the Body is just a structure with three node forms: Var
(variable lookup), App <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20432	20531	
==>ent, and study; you should not use it in production.

For production use, there should be a wide var <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20432	20531	
==>ent, and study; you should not use it in production.

For production use, there should be a wide var <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9121	9217	
==>apping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9121	9217	
==>apping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2930	3130	
==>unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2930	3130	
==>unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2930	3130	
==>unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14583	14682	
==>rp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers =
    ( undef => sub { $as_hash_comp <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3877	3990	
==>it(@_);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { L <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4348	4445	
==>}
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4348	4445	
==>}
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4348	4445	
==>}
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at & <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15352	15468	
==>der {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2190	2269	
==>stcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|state <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2190	2269	
==>stcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|state <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2190	2269	
==>stcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2377	2502	
==>ble
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{be <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9149	9274	
==>ble
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2377	2502	
==>ble
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9149	9274	
==>ble
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{be <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24105	24204	
==>ps between a client automatically sending something
  in response to something it received.  This is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22878	22977	
==>ps between a client automatically sending something
  in response to something it received.  This is <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24105	24204	
==>ps between a client automatically sending something
  in response to something it received.  This is <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22878	22977	
==>ps between a client automatically sending something
  in response to something it received.  This is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1004	1138	
==>fix_list =>      '<tight> [ <op> <tight> ]+',
    ternary =>         '<tight> <op> <parse> <op2> <equal>',
);

sub new {
    my ($class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2320	2441	
==>rs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2320	2441	
==>rs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2320	2441	
==>rs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14553	14646	
==>{ $_->to_struct } @{ $self->registered_alternatives };
    eval { DumpFile( $self->registered_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20141	20233	
==>$xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20141	20233	
==>$xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20141	20233	
==>$xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16573	16666	
==>B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2), <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4060	4194	
==>rn @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9642	9758	
==>ull subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13119	13235	
==>ull subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12391	12507	
==>ull subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!h <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18277	18372	
==>erchange
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18277	18372	
==>erchange
format between Rosetta::Model and other Perl code such as persistence
solutions.  Moreo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13182	13276	
==>erchange format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13182	13276	
==>erchange format between
Rosetta::Model and other Perl code such as persistence solutions.
Moreo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1253	1357	
==>r_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1253	1357	
==>r_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	48	138	
==>p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-mo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	48	138	
==>p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-mo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32043	32142	
==>turns a new Relation that has the same heading
and whose body contains all of the tuples that are in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33904	34003	
==>turns a new Relation that has the same heading and
whose body contains all of the tuples that are in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36593	36692	
==>turns a new Relation that has the same heading
and whose body contains all of the tuples that are in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38454	38553	
==>turns a new Relation that has the same heading and
whose body contains all of the tuples that are in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	480	597	
==>.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	480	597	
==>.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	480	597	
==>.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, St <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9041	9125	
==>char(45)],L1)}, !.
p5_charset_def_x(L0,L0) --> {true}.
p5_charset_items([Item1|MoreIt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	848	984	
==>_[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16263	16363	
==>::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16263	16363	
==>::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16263	16363	
==>::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warning <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14529	14668	
==>eld('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the databas <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14529	14668	
==>eld('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the databas <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1659	1757	
==>z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] enco <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1659	1757	
==>z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] enco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6166	6351	
==>turn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6166	6351	
==>turn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6166	6351	
==>turn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21440	21549	
==>A, __PACKAGE__;
  push @Regexp::Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5656	5772	
==>(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4134	4238	
==>and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4134	4238	
==>and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4134	4238	
==>and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil " <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	167	280	
==>Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	167	280	
==>Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4127	4225	
==>pic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4127	4225	
==>pic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPI <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	777	881	
==>ork
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	777	881	
==>ork
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	204	306	
==>rnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	204	306	
==>rnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filter <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16790	16954	
==>ket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # E <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16790	16954	
==>ket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # E <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35509	35598	
==>C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

T <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40059	40148	
==>C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

T <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	86	189	
==>----------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	86	189	
==>----------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16617	16706	
==>n the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16617	16706	
==>n the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14269	14363	
==>$xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14269	14363	
==>$xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14269	14363	
==>$xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33729	33820	
==>Str $heading!, Code $transformer!) returns Relation::Example>

This method is a short-hand o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3125	3238	
==>enclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3125	3238	
==>enclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3125	3238	
==>enclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eige <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13845	13954	
==>1]->family eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $tree->[-1]->{data} };
      my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5054	5202	
==>matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5054	5202	
==>matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tai <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9196	9288	
==>ntation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-or <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9196	9288	
==>ntation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14244	14344	
==>d('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10946	11046	
==>= $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Result <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14244	14344	
==>d('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14244	14344	
==>d('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14780	14921	
==>ing.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14780	14921	
==>ing.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	908	1006	
==>the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	862	956	
==>the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14217	14332	
==>r (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree->[-1]->family eq "assertion" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9282	9375	
==>t(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3107	3200	
==>t(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gramm <==
4	/Users/nnunley/pugs/util/drift.pl	951	1048	
==>0);
exit unless @program;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	25	113	
==>.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	25	113	
==>.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	25	113	
==>.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7861	8025	
==>ing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7861	8025	
==>ing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7861	8025	
==>ing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6586	6699	
==>root through the file to locate the case-preserved
        # version of the package name.
        if ( $subpath eq <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1625	1727	
==>{
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1625	1727	
==>{
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1534	1619	
==>ompiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1534	1619	
==>ompiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1640	1748	
==>{
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1640	1748	
==>{
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1640	1748	
==>{
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn " <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27259	27352	
==>o_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4783	4889	
==>ngleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4783	4889	
==>ngleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4783	4889	
==>ngleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$met <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	943	1042	
==>it $status;
}

sub Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
    my $sub = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4892	5054	
==>tch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4904	5066	
==>tch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	60	154	
==>is class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $stri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	60	154	
==>is class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $stri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	325	442	
==>fined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	325	442	
==>fined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defin <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	231	319	
==>od: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat( <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	231	319	
==>od: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat( <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1740	1853	
==>e (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; print STD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1661	1762	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1661	1762	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1661	1762	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7139	7241	
==>h \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7139	7241	
==>h \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Need <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7139	7241	
==>h \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Need <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	247	343	
==>he notification process involves:
# creating an *event*
# getting the *subscriptions* for it, and <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3533	3662	
==>r[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5844	5949	
==>vel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5844	5949	
==>vel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5844	5949	
==>vel
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2261	2377	
==>reates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2272	2388	
==>reates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1150	1239	
==>le::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1150	1239	
==>le::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1512	1610	
==>lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinte <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1512	1610	
==>lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinte <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13832	13935	
==>) },
      scalar_numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar_non_numeri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1086	1185	
==>e to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1086	1185	
==>e to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1086	1185	
==>e to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance wi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12549	12686	
==>noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f);
        TAILCALL(&$c,$noop) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3827	3924	
==>id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3827	3924	
==>id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3827	3924	
==>id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(unde <==
4	/Users/nnunley/pugs/util/func_refact.pl	2513	2632	
==>func
          , union(Storable::dclone($ccset), $cand)];  # new contributions
        #print "$cand: totall $cands{$can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6367	6456	
==>ule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6367	6456	
==>ule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6367	6456	
==>ule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	438	533	
==>s 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	438	533	
==>s 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	438	533	
==>s 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribut <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4615	4736	
==>->  $f = open 'file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open 'fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5637	5733	
==>{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5637	5733	
==>{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5637	5733	
==>{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41782	41956	
==>l->new('BUILD'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19891	19980	
==>b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19891	19980	
==>b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19891	19980	
==>b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5369	5468	
==>s, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_st <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5369	5468	
==>s, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_st <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	486	584	
==>ined and !$tz.isa("Time::Zone");
    return
        Date::Gregorian.new( :year($year), :month($mont <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4133	4285	
==>ntrol: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4133	4285	
==>ntrol: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9170	9263	
==>) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2995	3088	
==>) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14813	14905	
==>ot/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25486	25696	
==>m2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26144	26354	
==>m2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25765	25975	
==>m2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26423	26633	
==>m2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17579	17720	
==>L'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20947	21088	
==>L'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40848	40989	
==>L'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43871	44012	
==>L'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7312	7441	
==>file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	124	215	
==>to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	124	215	
==>to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	124	215	
==>to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	392	488	
==>esn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->cat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	392	488	
==>esn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->cat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	392	488	
==>esn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->cat <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2707	2803	
==>= open $2/g;
#    s/open (\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8486	8590	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8486	8590	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8486	8590	
==>tr' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	632	729	
==>ad1 NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Prelude::Control;

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1376	1498	
==>bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1376	1498	
==>bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1231	1337	
==>::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($scri <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1231	1337	
==>::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($scri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2004	2114	
==>:opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2004	2114	
==>:opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2004	2114	
==>:opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14272	14376	
==>od CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispa <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	877	974	
==>ver your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	93	190	
==>y ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channe <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	877	974	
==>ver your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	93	190	
==>y ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8382	8549	
==>"sigspace");
        }
        if $pre ne "" {
            $pre ~= "::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	94	208	
==>i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	94	208	
==>i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	94	208	
==>i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14046	14199	
==>e {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14046	14199	
==>e {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14046	14199	
==>e {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_clas <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	676	773	
==>top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	622	732	
==>ess "Class must be an instance of reference";
    (blessed($attrs) && $attrs->isa('hash'))
        || confess " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	917	1016	
==>de $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	917	1016	
==>de $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	917	1016	
==>de $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1368	1471	
==>rt {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_impor <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1368	1471	
==>rt {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_impor <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12265	12367	
==>new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class repres <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12265	12367	
==>new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class repres <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11410	11537	
==>$links++;
        next;
      }
      
      $linkhead = $1 if ($linkhead =~ /^"(.*)"$/);
#     $body->push_content(HTML::Elemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2482	2573	
==>[ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2482	2573	
==>[ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2482	2573	
==>[ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1503	1643	
==>od if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method foun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1708	1848	
==>od if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method foun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1769	1909	
==>od if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method foun <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	156	282	
==>e 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37302	37466	
==>);
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37302	37466	
==>);
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETC <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37302	37466	
==>);
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETC <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7205	7331	
==>NT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_M <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7205	7331	
==>NT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_M <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9993	10118	
==>edure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9993	10118	
==>edure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1137	1253	
==>erator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	177	266	
==>gInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	177	266	
==>gInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	177	266	
==>gInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2677	2778	
==>return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6154	6255	
==>return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5084	5185	
==>return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1450	1574	
==>on() > 0;
}

sub as_integer {
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6640	6761	
==>e' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6640	6761	
==>e' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6640	6761	
==>e' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3168	3273	
==>m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3168	3273	
==>m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26619	26830	
==>nboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26619	26830	
==>nboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26619	26830	
==>nboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2656	2764	
==>\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $self->add_handler(' <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1017	1134	
==>STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35574	35731	
==>'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => 'attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7904	8022	
==>ar arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7904	8022	
==>ar arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7904	8022	
==>ar arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2371	2475	
==>ss'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2371	2475	
==>ss'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2371	2475	
==>ss'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $: <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2779	2881	
==>$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced}{-parens=>'()'})\s*($RE{b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21104	21288	
==>('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44028	44195	
==>('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7836	7930	
==>her object's internal structures.

Cipher authors should assume that if this method is being ca <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7836	7930	
==>her object's internal structures.

Cipher authors should assume that if this method is being ca <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5695	5872	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4195	4372	
==>esult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	145	244	
==>nside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	145	244	
==>nside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	462	577	
==>::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	462	577	
==>::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7827	7925	
==>CKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=head1 SYNOPSIS

	use Blondi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11056	11176	
==>removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Ret <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8460	8580	
==>removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11056	11176	
==>removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8460	8580	
==>removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Ret <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7211	7497	
==>}                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yiel <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7211	7497	
==>}                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yiel <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2860	2950	
==>c -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --e <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2860	2950	
==>c -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3079	3185	
==>ss $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3079	3185	
==>ss $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3079	3185	
==>ss $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_me <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6158	6246	
==>L::Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16074	16200	
==>ermutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16074	16200	
==>ermutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6056	6157	
==>type::variable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28102	28200	
==>om F<Regexp::Parser::__object__> the following
methods:

=over 4

=item my $d = $obj->data()

The o <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1031	1156	
==>rint $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    while (1) {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8979	9074	
==>ents, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8979	9074	
==>ents, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34163	34306	
==>n' => bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	790	893	
==>}
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	790	893	
==>}
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	790	893	
==>}
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11371	11468	
==>a handler, the qr() method is used to produce
the Perl regex implementation of the new node.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5814	5910	
==>ript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5814	5910	
==>ript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5814	5910	
==>ript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8548	8732	
==>method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8548	8732	
==>method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8548	8732	
==>method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    i <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1083	1177	
==>e"}}, 'Disabled' if not $Config{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV) {
    @ARGV <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1636	1736	
==>w, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1636	1736	
==>w, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1636	1736	
==>w, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4720	4819	
==>xt;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper::Dumper($nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7143	7282	
==>ious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7143	7282	
==>ious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7143	7282	
==>ious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14852	14965	
==>exp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off, @d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4195	4291	
==>:IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4195	4291	
==>:IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4195	4291	
==>:IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockret <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1757	1861	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::pr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1815	1919	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::pr <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2517	2615	
==>st element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and retu <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2517	2615	
==>st element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1953	2062	
==>equote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1953	2062	
==>equote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1953	2062	
==>equote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf " <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6151	6252	
==>linux" };

step
  descr  => "Fetching GRUB from \"$grub_uri\"",
  help   => "Remove \"$grub_local\" if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8137	8265	
==>hift;
    $self->{type};
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub visu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23492	23587	
==>her than mutable, this property and/or
same-named accessor method can be used to see if a Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28044	28139	
==>her than mutable, this property and/or
same-named accessor method can be used to see if a Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26848	26943	
==>her than mutable, this property and/or
same-named accessor method can be used to see if a Relati <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1807	1936	
==>.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1807	1936	
==>.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1807	1936	
==>.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9317	9431	
==>=> string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => [ command-line arguments to t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2448	2562	
==>rg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7542	7656	
==>rg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2448	2562	
==>rg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7542	7656	
==>rg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15445	15569	
==>channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15445	15569	
==>channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1751	1855	
==>_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1751	1855	
==>_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3720	3864	
==>trs($self)->{'%:methods'}};
        },                             
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1367	1466	
==>r @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1367	1466	
==>r @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1367	1466	
==>r @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::V <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5032	5183	
==>$succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( de <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5032	5183	
==>$succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8784	8889	
==>{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8780	8885	
==>{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	281	379	
==>geLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	281	379	
==>geLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	281	379	
==>geLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8209	8351	
==>Index - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8209	8351	
==>Index - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mk <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8209	8351	
==>Index - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mk <==
4	/Users/nnunley/pugs/util/fixauthors.pl	609	700	
==>:TreeBuilder->new_from_content($html);
  my $realname = $tree->look_down(class=>"t1");

  re <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10565	10662	
==>text, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.ciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10565	10662	
==>text, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.ciph <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	470	558	
==>------------------------------------------------
## accessors and mutators

method parent <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	470	558	
==>------------------------------------------------
## accessors and mutators

method parent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2220	2327	
==>",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2220	2327	
==>",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2220	2327	
==>",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4936	5035	
==>rrot') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	177	280	
==>xpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	177	280	
==>xpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	177	280	
==>xpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $se <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15315	15414	
==>itiveExpression>
    | <ShiftExpression> <'>>'> <AdditiveExpression>
    | <ShiftExpression> <'>>>'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	705	809	
==>id_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	705	809	
==>id_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	705	809	
==>id_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subn <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6292	6382	
==>e
L<Regexp::Parser::Objects> for documentation about nodes and the objects
that represent t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4520	4639	
==>= Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4520	4639	
==>= Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4520	4639	
==>= Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $s <==
4	/Users/nnunley/pugs/util/config_h.pl	1113	1208	
==>ne = try_compile(<< '.');
import System.Console.Readline
main :: IO ()
main = readline "" >> ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1149	1273	
==>the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1149	1273	
==>the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1149	1273	
==>the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2655	2760	
==>=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10527	10650	
==>t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10527	10650	
==>t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10527	10650	
==>t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.re <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	880	1001	
==>t;
    $self->cache({});

    $self->reduce($ast);
}

sub reduce_stub {
    my $self = shift;

	my $node = shift;

    die <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17861	18035	
==>tance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17861	18035	
==>tance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17861	18035	
==>tance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6587	6704	
==>se strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	618	719	
==>tance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recurs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	618	719	
==>tance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recurs <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	618	719	
==>tance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recurs <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	255	417	
==>,

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1931	2093	
==>,

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	255	417	
==>,

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1931	2093	
==>,

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10410	10553	
==>arameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33538	33663	
==>rn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33538	33663	
==>rn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33538	33663	
==>rn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    fo <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	196	309	
==>-e 'use Sample::Module'

= DESCRIPTION

This purpose of this module is simply to be an example Perl6 module that w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12527	12625	
==>last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12527	12625	
==>last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12527	12625	
==>last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6583	6680	
==>e_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'T <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6583	6680	
==>e_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9337	9509	
==>ented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9337	9509	
==>ented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	458	550	
==>ldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	458	550	
==>ldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	878	996	
==>$obj->installations( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-off <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2226	2332	
==>", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2226	2332	
==>", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2226	2332	
==>", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10337	10456	
==>h (end+1)
    match - positional submatches
    named - named submatches
    capture - return'ed things
    
    st <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5811	5911	
==>gs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5811	5911	
==>gs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primat <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6764	6863	
==>egexp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13497	13630	
==>urns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13497	13630	
==>urns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13497	13630	
==>urns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	88	190	
==>::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/html/bison_[ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2752	2885	
==>{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2752	2885	
==>{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5810	5903	
==>yck/token.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/UnicodeC.o' if gre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1277	1378	
==>,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    X <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30589	30690	
==>ject(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consumpt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1277	1378	
==>,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1277	1378	
==>,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    X <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28246	28341	
==>version of this object which is suitable
for debugging purposes (such as to test that the object <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35602	35697	
==>version of this object which is suitable
for debugging purposes (such as to test that the object <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28246	28341	
==>version of this object which is suitable
for debugging purposes (such as to test that the object <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35602	35697	
==>version of this object which is suitable
for debugging purposes (such as to test that the object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12136	12240	
==>rent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12136	12240	
==>rent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12136	12240	
==>rent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root" <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9966	10063	
==>oke reports. These smokes are
    automatically generated and show how much a given backend (norma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	486	580	
==>---------------------------------------------------

use Test::More tests => 46;

{
    use Has <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4171	4259	
==>gs::Compiler::Rule->compile(<<'RULE')->code();

    <@Grammar::Perl6::terms>
RULE
*{'list <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22436	22533	
==>en invoked on the
same object with the same arguments; they do not interact with the outside
envir <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26988	27085	
==>en invoked on the
same object with the same arguments; they do not interact with the outside
envir <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25711	25808	
==>en invoked on the
same object with the same arguments; they do not interact with the outside
envir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11772	11876	
==>(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11772	11876	
==>(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11772	11876	
==>(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4435	4541	
==>y $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4435	4541	
==>y $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4435	4541	
==>y $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5052	5193	
==>= SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastpar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26799	26922	
==>b_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27078	27201	
==>b_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" ) <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30335	30428	
==>ts.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
directo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3518	3635	
==>b variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4835	4952	
==>b variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3518	3635	
==>b variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4823	4940	
==>b variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5544	5683	
==>e}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $mess ~= "\n\t{$cal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3455	3570	
==>ethod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5505	5620	
==>ethod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4461	4576	
==>ethod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6069	6165	
==>cal fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6069	6165	
==>cal fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6069	6165	
==>cal fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	494	595	
==>) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	494	595	
==>) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	494	595	
==>) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6490	6597	
==>chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %chann <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7226	7333	
==>chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6490	6597	
==>chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7226	7333	
==>chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %chann <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4251	4353	
==>neComment {  # see 7.4
      <'//'> <SingleLineCommentChars>?
}
rule SingleLineCommentChars {  # see 7. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16940	17062	
==>] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16940	17062	
==>] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16940	17062	
==>] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1815	1907	
==>an experimental, pre-alpha development snapshot.  There are currently
no support for match fl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21184	21280	
==>lly.

It is strongly suggested (but not required) that each Perl package which
uses this would co <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21184	21280	
==>lly.

It is strongly suggested (but not required) that each Perl package which
uses this would co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13709	13821	
==>ibute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13709	13821	
==>ibute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13709	13821	
==>ibute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $se <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	768	864	
==>unction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	960	1056	
==>unction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	768	864	
==>unction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	960	1056	
==>unction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2752	2882	
==>=> $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7846	7976	
==>=> $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2752	2882	
==>=> $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7846	7976	
==>=> $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	865	997	
==>ned %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	607	739	
==>ned %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	865	997	
==>ned %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	607	739	
==>ned %param<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8003	8096	
==>i sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7133	7226	
==>i sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<- <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8003	8096	
==>i sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<- <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7133	7226	
==>i sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1	95	
==>ackage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1	95	
==>ackage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	291	380	
==>piler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	291	380	
==>piler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3185	3435	
==>lass Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3185	3435	
==>lass Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the R <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1723	1826	
==>npath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our ar <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1723	1826	
==>npath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12790	12898	
==>OLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12790	12898	
==>OLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12790	12898	
==>OLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', % <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6279	6376	
==>ject_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int {
    +@array;
}
# nam <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6082	6176	
==>n {$r.f.($x)}


sub rx_common_($hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    state(%modi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9127	9249	
==>= $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9127	9249	
==>= $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9127	9249	
==>= $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	529	629	
==>ole is a composable unit of behaviour; which includes;

=over

=item *

unbound public and private me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1820	1919	
==>| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filena <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1820	1919	
==>| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filena <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1820	1919	
==>| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filena <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5119	5217	
==>rrow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type:: <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4359	4474	
==>efined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_sta <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4413	4528	
==>efined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_sta <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4359	4474	
==>efined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_sta <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4413	4528	
==>efined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_sta <==
4	/Users/nnunley/pugs/util/func_refact.pl	968	1094	
==>t "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccse <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2338	2434	
==>r2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2338	2434	
==>r2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2338	2434	
==>r2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1809	1910	
==>rted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1809	1910	
==>rted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1809	1910	
==>rted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4110	4206	
==>') will resolve '&infix:<+>' into the thunk that does
addition, C<< Val(1) >> will reduce to 1, a <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4656	4759	
==>" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

# ----------------------- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6632	6738	
==>odule|Class|Object|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	472	574	
==>bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	472	574	
==>bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	472	574	
==>bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22415	22556	
==>my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22415	22556	
==>my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22415	22556	
==>my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $el <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1127	1215	
==>{'meth_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<id <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17253	17385	
==>primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3122	3226	
==>if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3122	3226	
==>if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5460	5546	
==>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]] <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15071	15181	
==>les, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # No <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18548	18658	
==>les, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # No <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17964	18074	
==>les, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5432	5603	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5432	5603	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5432	5603	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	855	953	
==>s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	855	953	
==>s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	855	953	
==>s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1312	1409	
==>sts(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5744	5892	
==>elf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_ac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5744	5892	
==>elf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_ac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5744	5892	
==>elf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_ac <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6070	6168	
==>open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $template = HTML::Template <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26137	26236	
==>rted .* to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Check-string always at start. */
 #define ROPT_GP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	828	925	
==>instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	828	925	
==>instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	828	925	
==>instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22891	23063	
==>ue with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22891	23063	
==>ue with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22891	23063	
==>ue with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7723	7827	
==>i Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# signatu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3592	3721	
==>al $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4909	5038	
==>al $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3592	3721	
==>al $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4897	5026	
==>al $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3534	3651	
==>_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lack <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3534	3651	
==>_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lack <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13588	13688	
==>nce($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13588	13688	
==>nce($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1210	1312	
==>TS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1210	1312	
==>TS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1210	1312	
==>TS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6641	6767	
==>rt + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6641	6767	
==>rt + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6641	6767	
==>rt + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16736	16826	
==>ments character class operations like union, intersection, and
subtraction.

=item Regexp:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11917	12063	
==>"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8199	8345	
==>"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9033	9179	
==>"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2445	2542	
==>up>
  | <literal> | <interpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <met <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	347	472	
==>= 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_d <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	347	472	
==>= 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_d <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9989	10083	
==>width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_inde <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9989	10083	
==>width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_inde <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4532	4675	
==>{ #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12837	12950	
==>hod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12837	12950	
==>hod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12837	12950	
==>hod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8840	8976	
==>'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9033	9169	
==>'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1923	2028	
==>te($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1923	2028	
==>te($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6350	6477	
==>y $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtim <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6338	6465	
==>y $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtim <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	863	952	
==>pared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying opti <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	863	952	
==>pared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying opti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5155	5248	
==>ption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5155	5248	
==>ption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6679	6772	
==>ption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	183	333	
==>"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	183	333	
==>"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	183	333	
==>"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      va <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4681	4803	
==>"iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339), <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4681	4803	
==>"iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339), <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3576	3753	
==>gn($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                } <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4600	4692	
==>intersection( $set.complement );
}

# --------- arithmetic and list operations -------------- <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4600	4692	
==>intersection( $set.complement );
}

# --------- arithmetic and list operations -------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1490	1591	
==>= PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1490	1591	
==>= PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1490	1591	
==>= PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1547	1651	
==>two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1547	1651	
==>two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9589	9684	
==>n_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9589	9684	
==>n_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3498	3636	
==>omatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3498	3636	
==>omatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3498	3636	
==>omatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1169	1282	
==>opy::copy ($config_template, $filename) or
            die "copy: $!";
        print <<".";
*** Default build conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1421	1520	
==>ingified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1421	1520	
==>ingified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1421	1520	
==>ingified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2376	2523	
==>Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2376	2523	
==>Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3226	3313	
==>essor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3226	3313	
==>essor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2054	2168	
==>arse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2054	2168	
==>arse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2054	2168	
==>arse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_n <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21339	21438	
==>r     substrs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5922	6017	
==>ustom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5922	6017	
==>ustom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5922	6017	
==>ustom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4225	4334	
==>tion instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array i <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5122	5231	
==>tion instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4225	4334	
==>tion instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5122	5231	
==>tion instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) returns Array i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1837	1952	
==>] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->mak <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	948	1061	
==>] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->mak <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22128	22221	
==>multiple language
or permissions issue; simply order the files appropriately in the search
lis <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22128	22221	
==>multiple language
or permissions issue; simply order the files appropriately in the search
lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5250	5383	
==>e attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5250	5383	
==>e attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5250	5383	
==>e attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the inst <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10705	10812	
==>- what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	654	838	
==>ANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	654	838	
==>ANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	654	838	
==>ANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for t <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	535	631	
==>hat.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLimit;

has Perl::Type $.su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20752	20844	
==>ld names are returned with the ':' intact for
$h->header_field_names and the $h->scan callbac <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20752	20844	
==>ld names are returned with the ':' intact for
$h->header_field_names and the $h->scan callbac <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1704	1791	
==>ce

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1704	1791	
==>ce

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1137	1337	
==>olate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        % <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1137	1337	
==>olate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5840	5938	
==>se base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5840	5938	
==>se base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6430	6528	
==>se base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1] <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43353	43444	
==>COPYRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14061	14187	
==>[-1]->{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3609	3718	
==>is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3609	3718	
==>is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3609	3718	
==>is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_j <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8823	8930	
==>module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8823	8930	
==>module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7363	7455	
==>osetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7363	7455	
==>osetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4773	4954	
==>}
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4773	4954	
==>}
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37829	37928	
==>.  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $modul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37829	37928	
==>.  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $modul <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3178	3376	
==>rt is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3178	3376	
==>rt is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	862	969	
==>t = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	862	969	
==>t = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2836	2967	
==>return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1458	1589	
==>return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1631	1734	
==>ure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1631	1734	
==>ure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22832	22986	
==>onstant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23111	23265	
==>onstant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   r <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4472	4570	
==>owing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mon <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4472	4570	
==>owing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mon <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1269	1367	
==>ating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Regex->compile( '
        %' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13429	13565	
==>ibute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10253	10352	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10253	10352	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10253	10352	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9739	9846	
==>x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9739	9846	
==>x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9739	9846	
==>x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19355	19455	
==>,
  % match_captures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1918	2026	
==>s_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1918	2026	
==>s_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25822	25917	
==>target's C<pos()>.  This method, where it returns a
I<reference> to a scalar, makes it work (!). <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	934	1065	
==>_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4173	4304	
==>_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	934	1065	
==>_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4173	4304	
==>_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4294	4411	
==>tactic categories:

         rule rxbackslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16478	16575	
==>ance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16478	16575	
==>ance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16478	16575	
==>ance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => met <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1571	1694	
==>st type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signatu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1571	1694	
==>st type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signatu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5405	5510	
==>mber_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5405	5510	
==>mber_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	53	158	
==>ugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	46	145	
==>ugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	46	145	
==>ugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'P <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1094	1189	
==>clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("version") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18193	18400	
==>xed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18193	18400	
==>xed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18193	18400	
==>xed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9813	9909	
==>he very first module written for Pugs.

It provides a simple set of common test utility functions <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9871	9967	
==>he very first module written for Pugs.

It provides a simple set of common test utility functions <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1383	1505	
==>$::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests ));
            }
            elsif ($explanation eq 'no_pla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6838	6942	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6838	6942	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6838	6942	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11291	11452	
==>\0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7514	7628	
==>copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7514	7628	
==>copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7514	7628	
==>copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4160	4261	
==>.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6572	6672	
==>.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6572	6672	
==>.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9570	9684	
==>))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('remove_method'), 
    # method b <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	912	1019	
==>nshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_ar <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	912	1019	
==>nshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5676	5803	
==>$capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6229	6356	
==>$capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5869	5996	
==>$capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6422	6549	
==>$capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6090	6260	
==>eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        pus <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6554	6724	
==>eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        pus <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	151	282	
==>s $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	151	282	
==>s $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $reque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	987	1109	
==>_eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	987	1109	
==>_eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	987	1109	
==>_eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18869	18992	
==>tart => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18869	18992	
==>tart => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18869	18992	
==>tart => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1911	2020	
==>'list'))
        || confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args->length() <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5794	6047	
==>"\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5794	6047	
==>"\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3155	3406	
==>"\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3155	3406	
==>"\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	219	350	
==>=> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	219	350	
==>=> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10593	10694	
==>ompile a function that will select a record from the
    # 'person' table, whose 'id' field matches th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10593	10694	
==>ompile a function that will select a record from the
    # 'person' table, whose 'id' field matches th <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4614	4758	
==>GV;

    if ( @tests ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaran <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14168	14292	
==>ed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14168	14292	
==>ed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'nu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14168	14292	
==>ed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3305	3413	
==>EGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4642	4750	
==>EGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3305	3413	
==>EGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4864	4972	
==>EGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmod <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6839	6945	
==>|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27672	27766	
==>e).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32224	32318	
==>e).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31316	31410	
==>e).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6508	6640	
==>:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6508	6640	
==>:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6508	6640	
==>:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1180	1297	
==>res => [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan (populates maxpar)
  # because tree i <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	725	845	
==>iables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to incl <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	725	845	
==>iables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to incl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	174	268	
==>normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed meth <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	174	268	
==>normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed meth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22168	22262	
==>tever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=bac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21049	21143	
==>tever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=bac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22168	22262	
==>tever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=bac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21049	21143	
==>tever the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35938	36050	
==>fN (C<\1>, C<\2>, etc.); reff1, reff2 .. reffN
(C<\1>, C<\2>, etc. with C</i> on)

=head2 ifmatch

Family: assert <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15299	15398	
==>sync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15299	15398	
==>sync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15299	15398	
==>sync ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	677	787	
==>, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10055	10154	
==>ind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10055	10154	
==>ind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10055	10154	
==>ind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
us <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	888	1068	
==>g :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    return %!at <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2963	3076	
==>ay for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2963	3076	
==>ay for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2963	3076	
==>ay for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	521	638	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	521	638	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	521	638	
==>eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { sa <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5927	6039	
==>svpv(pat);
    
    r->nparens = nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp, nparens+1 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1203	1318	
==>less $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1203	1318	
==>less $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10057	10154	
==>lue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value:: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10057	10154	
==>lue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value:: <==
4	/Users/nnunley/pugs/util/version_h.pl	1126	1252	
==>grep /(?:file|svn|https?)\b/, @info) {
        ($revision) = $line =~ / (\d+)$/;
    } elsif (my ($source_line) = grep /^(Copie <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8945	9040	
==>fix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8945	9040	
==>fix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8945	9040	
==>fix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2981	3126	
==>ILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3198	3343	
==>ILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9119	9222	
==>equire Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::M <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9177	9280	
==>equire Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10903	11012	
==>pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Ad <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10903	11012	
==>pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Ad <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10903	11012	
==>pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Ad <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7339	7436	
==>($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10816	10913	
==>($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9953	10050	
==>($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14251	14365	
==>first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14251	14365	
==>first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $f <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2825	2934	
==>th);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2825	2934	
==>th);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3457	3562	
==>{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3457	3562	
==>{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8553	8651	
==>perator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6087	6184	
==>perator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6905	7044	
==>$grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6905	7044	
==>$grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    p <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1522	1621	
==>.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule:: <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1522	1621	
==>.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule:: <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	253	352	
==>Flags used as return values from our methods.  Just for internal 
# clarification.
my $TRUE  = (1==1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5798	5893	
==>e an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5798	5893	
==>e an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5798	5893	
==>e an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__P <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5636	5743	
==>) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4766	4873	
==>) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5636	5743	
==>) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4766	4873	
==>) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3034	3142	
==>ep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3034	3142	
==>ep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	120	226	
==>rface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	120	226	
==>rface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29706	29838	
==>::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29706	29838	
==>::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	502	618	
==>::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	566	682	
==>::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1516	1640	
==>ir' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1516	1640	
==>ir' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1516	1640	
==>ir' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unb <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6665	6782	
==>ame for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	242	353	
==>PORT_OK 
    $Verbose $Switches $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4043	4139	
==>= $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4043	4139	
==>= $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4633	4729	
==>= $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6292	6387	
==>--> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9730	9817	
==>rator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9730	9817	
==>rator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9730	9817	
==>rator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2647	2819	
==>= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2303	2431	
==>xp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2435	2533	
==>SCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2435	2533	
==>SCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2435	2533	
==>SCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2682	2814	
==>eys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2682	2814	
==>eys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2682	2814	
==>eys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      } <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10523	10638	
==>rt_dir, 
                     'util','catalog_tmpl','code.tmpl');  
  $template->param("file" => $file);
  my $outpu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15144	15249	
==>more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18621	18726	
==>more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18037	18142	
==>more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rela <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26682	26776	
==>g information about itself as
it runs the tests.  This is different from C<HARNESS_VERBOSE>, wh <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11980	12099	
==>end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11980	12099	
==>end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21627	21720	
==>idually addressed only by their names, and all
Relation tuples may be individually addressed o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26179	26272	
==>idually addressed only by their names, and all
Relation tuples may be individually addressed o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2083	2190	
==>1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2083	2190	
==>1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1317	1418	
==>1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3178	3279	
==>1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	109	236	
==>se strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	109	236	
==>se strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	109	236	
==>se strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1974	2076	
==>s 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1974	2076	
==>s 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1974	2076	
==>s 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stev <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10540	10686	
==>sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3726	3841	
==>more. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3726	3841	
==>more. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3726	3841	
==>more. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	903	1056	
==>5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    retu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	903	1056	
==>5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9497	9650	
==>eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15041	15194	
==>eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9497	9650	
==>eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15035	15188	
==>eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not imp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19919	20027	
==>u accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18900	19008	
==>u accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19919	20027	
==>u accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18900	19008	
==>u accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13444	13537	
==>irst invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whos <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18531	18624	
==>irst invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whos <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13444	13537	
==>irst invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whos <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18531	18624	
==>irst invoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whos <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3090	3255	
==>len > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6916	7026	
==>lf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6916	7026	
==>lf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6916	7026	
==>lf->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTIN <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3403	3511	
==>rsion osname runcore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @smokes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36969	37062	
==>ave identical headings, for these their joining
degenerates to a C<intersection>.  In any situ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41518	41611	
==>ave identical headings, for these their joining
degenerates to a C<intersection>.  In any situ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41141	41234	
==>ave identical headings, for these their joining
degenerates to a C<intersection>.  In any situ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	331	444	
==>tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree retu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1828	1928	
==>pan::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1828	1928	
==>pan::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11201	11299	
==>rns Bool is primitive is unsafe is builtin {
        Pugs::Internals::hSeek(self, $position, $whenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	226	327	
==>[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	226	327	
==>[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	226	327	
==>[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30997	31095	
==>tributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with which it w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4693	4796	
==>my $expected = shift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Da <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5983	6084	
==>_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5983	6084	
==>_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5983	6084	
==>_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:M <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11833	11933	
==>n the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COM <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8980	9080	
==>n the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COM <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11833	11933	
==>n the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COM <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8980	9080	
==>n the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24189	24321	
==>+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24189	24321	
==>+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24189	24321	
==>+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	740	830	
==>ll;
use Regexp::Common;
use Data::Dumper;

# ---------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3288	3402	
==>$idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3288	3402	
==>$idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3288	3402	
==>$idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2212	2313	
==>_object(anyof_char_comp => $S->nchar($n), "\\C[$n]");
      }

      return $S->object(exact_comp => j <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2636	2753	
==>ookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2636	2753	
==>ookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6068	6153	
==>{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6068	6153	
==>{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22513	22679	
==>TDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8116	8225	
==>turns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8116	8225	
==>turns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8116	8225	
==>turns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	157	270	
==>se Cwd;
use vars qw[$REPO];

$REPO = JIB::Repository->new( root => $REPOSITORY_ROOT )
                or die "No r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	753	852	
==>ted Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	753	852	
==>ted Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	753	852	
==>ted Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10804	10943	
==>\@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11270	11409	
==>\@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10798	10937	
==>\@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11264	11403	
==>\@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3949	4046	
==>rule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4133	4230	
==>rule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
be <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1896	1987	
==>Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1896	1987	
==>Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PI <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3147	3273	
==>ent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, die <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3147	3273	
==>ent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, die <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	859	957	
==>tion about the server your CGI is running on. It also 
attempts to provide some useful defaults for <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	859	957	
==>tion about the server your CGI is running on. It also 
attempts to provide some useful defaults for <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	753	860	
==>turns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.heig <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	753	860	
==>turns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.heig <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1631	1729	
==>_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1631	1729	
==>_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1683	1785	
==>und_down: symmetrical => $^b },
		);
	my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5237	5329	
==>o install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5237	5329	
==>o install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5237	5329	
==>o install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23825	23935	
==>e difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTIC <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22598	22708	
==>e difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTIC <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23825	23935	
==>e difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTIC <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22598	22708	
==>e difference between
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTIC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5086	5196	
==>...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5086	5196	
==>...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5086	5196	
==>...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10201	10348	
==>m => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10201	10348	
==>m => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10201	10348	
==>m => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @item <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	55	164	
==>h heads (or
# should head) up every core test program to prepare it for running.
# Now instead of:
#
# BEG <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7006	7159	
==>Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2518	2651	
==>.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2518	2651	
==>.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2518	2651	
==>.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.lengt <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	347	467	
==>::$method"} = sub {
            +shift->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    ble <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15409	15508	
==>lass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15409	15508	
==>lass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15409	15508	
==>lass (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13953	14045	
==>ties( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with their <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1007	1099	
==>ersal_set )`

Create a recurrence set with full bidirectional functionality.

The complementa <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13953	14045	
==>ties( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with their <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1007	1099	
==>ersal_set )`

Create a recurrence set with full bidirectional functionality.

The complementa <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3847	3962	
==>_dirs\n";
} else {
    print "Tests                 : Processing tests from tests.yaml\n";
}
print "Output directory <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5566	5658	
==>Reason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribut <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5566	5658	
==>Reason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7763	7855	
==>Reason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3295	3393	
==>ox.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3295	3393	
==>ox.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3295	3393	
==>ox.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4508	4653	
==>= 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        las <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4508	4653	
==>= 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        las <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4508	4653	
==>= 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        las <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	688	827	
==>t of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18027	18148	
==>nal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17065	17186	
==>nal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18027	18148	
==>nal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17065	17186	
==>nal, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4156	4261	
==>}

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4156	4261	
==>}

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	393	497	
==>}

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

meth <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	393	497	
==>}

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

meth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13439	13650	
==>,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13718	13929	
==>,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23850	23943	
==>natives, and doesn't know about language specific details like
encodings or plurality.

My und <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23850	23943	
==>natives, and doesn't know about language specific details like
encodings or plurality.

My und <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7486	7599	
==>ush @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7486	7599	
==>ush @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7486	7599	
==>ush @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pus <==
4	/Users/nnunley/pugs/util/grokprims.pl	1297	1394	
==>mple = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{args}}[1..$arity-1]).")<br />";
    }
    $e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20426	20528	
==>to the ender() method of the node.

The init() method has been moved to another file to help keep I<thi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13651	13747	
==>t be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13651	13747	
==>t be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3799	3892	
==>obal "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpression, $target <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12052	12177	
==>ems - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12046	12171	
==>ems - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4672	4767	
==>s a string, the match object returns the stringified version
of the result object (usually the e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4672	4767	
==>s a string, the match object returns the stringified version
of the result object (usually the e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13481	13598	
==>hift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13481	13598	
==>hift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13481	13598	
==>hift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12972	13112	
==>itive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12972	13112	
==>itive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12972	13112	
==>itive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1857	1997	
==>itive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5188	5290	
==>= Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5188	5290	
==>= Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5188	5290	
==>= Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3273	3370	
==>print ("*** Could not locate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_designdocs = <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2694	2805	
==>($self, $method) = @_;

    my $extensions = $self->{extensions} || [];
    unless (@$extensions) {
        $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8287	8371	
==>ilc->expand();
}

#================================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8287	8371	
==>ilc->expand();
}

#================================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8287	8371	
==>ilc->expand();
}

#================================================================== <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3096	3195	
==>es}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3096	3195	
==>es}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3096	3195	
==>es}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_nam <==
4	/Users/nnunley/pugs/util/importgraph.pl	69	165	
==>roduces importgraph.ps in the current directory
# it expects to run from the top pugs directory w <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18026	18219	
==>common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21503	21696	
==>common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21090	21283	
==>common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10381	10508	
==>ush @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @class <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10381	10508	
==>ush @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @class <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	725	823	
==>);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	725	823	
==>);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14741	14867	
==>() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/... <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14741	14867	
==>() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/... <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3041	3157	
==>ld};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.define <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3041	3157	
==>ld};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.define <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17683	17841	
==>redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17683	17841	
==>redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17683	17841	
==>redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5410	5542	
==>pe = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5410	5542	
==>pe = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5410	5542	
==>pe = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token = <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9278	9384	
==>NESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18455	18562	
==>ct(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14876	14983	
==>ct(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4440	4537	
==>y')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4440	4537	
==>y')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1821	1920	
==>user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12167	12253	
==>cher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12167	12253	
==>cher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12167	12253	
==>cher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2790	2900	
==>ime.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2790	2900	
==>ime.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2790	2900	
==>ime.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21617	21705	
==>data[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1121	1232	
==>D (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1121	1232	
==>D (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3625	3730	
==>{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $ke <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3625	3730	
==>{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $ke <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7288	7418	
==>t   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Intern <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28901	29001	
==>f,
reg_any.

=item my $f = $obj->flags()

The flag value for this object.  This value is a number cre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	297	388	
==>ype content_encoding content_length content_language
    title user_agent server from refere <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	297	388	
==>ype content_encoding content_length content_language
    title user_agent server from refere <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2135	2253	
==>ars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2135	2253	
==>ars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1367	1480	
==>ars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3228	3341	
==>ars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7528	7642	
==>f: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7528	7642	
==>f: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.h <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	950	1042	
==>le::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	950	1042	
==>le::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2922	3039	
==>tart_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2922	3039	
==>tart_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3566	3656	
==>var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<charac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3750	3840	
==>var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<charac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	452	568	
==>out}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1383	1486	
==>>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1383	1486	
==>>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1383	1486	
==>>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1506	1624	
==>F $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($intmp, $data);
   my $cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	11	123	
==>::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	11	123	
==>::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	11	123	
==>::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1180	1293	
==>{
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	15	108	
==>ompiler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.03';

# Documentation in the __END__
use 5. <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	493	602	
==>i.e. get an event from @:events and call it.
  my method step () {
    return unless @:events;

    my $callba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	667	760	
==>ub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@AR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	667	760	
==>ub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@AR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	667	760	
==>ub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@AR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17093	17189	
==>in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17093	17189	
==>in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21121	21212	
==>racle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21121	21212	
==>racle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	279	431	
==>6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	279	431	
==>6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	279	431	
==>6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2590	2693	
==>tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $template =~ s/<op2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	220	330	
==>ecursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	220	330	
==>ecursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	220	330	
==>ecursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14235	14339	
==>t (Relation::Example *@others) returns Relation::Example {

    if (+@others == 0) {
        return $?SEL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9594	9701	
==>ry_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9594	9701	
==>ry_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9594	9701	
==>ry_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1 <==
4	/Users/nnunley/pugs/util/package-osx.pl	12005	12095	
==>s > 0);
&create_remover($dest, values %change_files, @files, %symlinks, $remover);
&chown_a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6177	6271	
==>el::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6177	6271	
==>el::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	971	1058	
==>ion::LaxAttrList of Mapping{Relation::AttrName}
    of Relation::LaxPairAttrType|Relatio <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1081	1281	
==>nts<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1081	1281	
==>nts<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3232	3333	
==>}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = spli <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3232	3333	
==>}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = spli <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7242	7375	
==>ly qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7242	7375	
==>ly qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10124	10232	
==>.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10124	10232	
==>.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3295	3406	
==>th.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3295	3406	
==>th.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3295	3406	
==>th.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11253	11354	
==>urns opaque
    (((?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%para <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2802	2905	
==>n unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2995	3098	
==>n unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3388	3489	
==>rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3388	3489	
==>rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1907	2010	
==>infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1907	2010	
==>infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1907	2010	
==>infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19268	19362	
==>ror.
This should never happen.  Please contact the author immediately.
Here's the error.
$@
WHO <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14055	14153	
==>de)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10282	10380	
==>de)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14055	14153	
==>de)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10282	10380	
==>de)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5342	5436	
==>ptional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5342	5436	
==>ptional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6866	6960	
==>ptional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	767	874	
==>s(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	767	874	
==>s(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	767	874	
==>s(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5338	5495	
==>} ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5754	5911	
==>} ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5350	5507	
==>} ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5766	5923	
==>} ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                retu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10777	10904	
==>ECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10777	10904	
==>ECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::M <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16752	16859	
==>the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16752	16859	
==>the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5986	6122	
==>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!use <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6766	6902	
==>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5986	6122	
==>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!use <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6766	6902	
==>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3151	3266	
==>ture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3335	3450	
==>ture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32133	32229	
==>hat are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear on <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36683	36779	
==>hat are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear on <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21057	21151	
==>g C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chan <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19965	20059	
==>g C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21057	21151	
==>g C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19965	20059	
==>g C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, which has the chan <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2443	2544	
==>node = shift;
	Scalar::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20399	20495	
==>use Example
for testing, development, and study; you should not use it in production.

For produc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20399	20495	
==>use Example
for testing, development, and study; you should not use it in production.

For produc <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8646	8749	
==>des(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @membe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7615	7718	
==>des(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8646	8749	
==>des(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7615	7718	
==>des(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @membe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6440	6581	
==>ing dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibil <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6440	6581	
==>ing dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibil <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21272	21355	
==>dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendan <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44179	44262	
==>dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7883	8023	
==>ring);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7883	8023	
==>ring);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7883	8023	
==>ring);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.in <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21651	21753	
==>n (self)
.end

.namespace [ "PGE::Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .loc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2585	2679	
==>ested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2585	2679	
==>ested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6407	6500	
==>rs for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6407	6500	
==>rs for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

= <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	109	212	
==>onfig;
use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20023	20115	
==>imensional object Hash,
or various combinations of other data types.

While the implementatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24575	24667	
==>imensional object Hash,
or various combinations of other data types.

While the implementatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23127	23219	
==>imensional object Hash,
or various combinations of other data types.

While the implementatio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10448	10547	
==>id quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10448	10547	
==>id quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The he <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25612	25708	
==>he same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30164	30260	
==>he same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$ma <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18725	18957	
==>Part of the content is inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert jus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6530	6614	
==>e('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6530	6614	
==>e('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6530	6614	
==>e('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15622	15733	
==>_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15622	15733	
==>_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15622	15733	
==>_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	360	460	
==>our or two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::Int <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6808	6910	
==>d1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4160	4262	
==>d1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6808	6910	
==>d1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4160	4262	
==>d1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	760	856	
==>nlike the "mix-in" effect of
adding more superclasses to a Class, all of the methods that are
inc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7269	7357	
==>tcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7269	7357	
==>tcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7269	7357	
==>tcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11928	12054	
==>lear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Containe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11928	12054	
==>lear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Containe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11928	12054	
==>lear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Containe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8827	8924	
==>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Go <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3756	3853	
==>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Go <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8827	8924	
==>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Go <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3756	3853	
==>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Go <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24814	25029	
==>get('?@superclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->get('$_')->send('ad <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47656	47849	
==>ms->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35516	35702	
==>ms->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6721	6901	
==>ms->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24780	24924	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applica <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26373	26517	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applica <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25059	25203	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applica <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26652	26796	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applica <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3389	3517	
==>meth (qw[registered_alternatives_file available_file]) {
                    system( qw[touch], $obj->$meth )    and error($?), r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13876	13972	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13876	13972	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13876	13972	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4824	4953	
==>],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4659	4782	
==>],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	155	260	
==>tation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	155	260	
==>tation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	194	311	
==>lementations).
# To contribute, just scroll down until pod lines start appearing, and
# continue conversion to p6 code <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	707	814	
==>ields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys % <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1191	1298	
==>ields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys % <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8755	8846	
==>ock>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8755	8846	
==>ock>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1077	1187	
==>.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self = shift;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9589	9680	
==>is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9589	9680	
==>is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9589	9680	
==>is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10488	10584	
==>an use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($fiel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10488	10584	
==>an use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($fiel <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	374	467	
==>ead1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored in <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	374	467	
==>ead1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4327	4450	
==>t $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4327	4450	
==>t $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4327	4450	
==>t $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	44	140	
==>e: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str = shift;
if($str eq <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19491	19597	
==>n subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the whole match.  $1 is n=1, et <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	685	780	
==>thods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	685	780	
==>thods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	685	780	
==>thods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2593	2714	
==>in($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2593	2714	
==>in($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1577	1678	
==>amed, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1577	1678	
==>amed, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1366	1485	
==>ternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1710	1827	
==>ternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1317	1434	
==>ternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1710	1827	
==>ternation list is empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3807	3904	
==>s Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4140	4237	
==>s Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3807	3904	
==>s Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4140	4237	
==>s Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/util/testgraph.pl	1792	1916	
==>Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19323	19421	
==>f one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23875	23973	
==>f one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22391	22489	
==>f one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colum <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	703	831	
==>}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	800	928	
==>}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6818	6967	
==>ary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $bound <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6818	6967	
==>ary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $bound <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18373	18466	
==>ad data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18373	18466	
==>ad data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14248	14377	
==>$r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17725	17854	
==>$r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17141	17270	
==>$r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	391	514	
==>be ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	510	619	
==>sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	514	623	
==>sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	510	619	
==>sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	514	623	
==>sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	750	854	
==>o: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use bi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	750	854	
==>o: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use bi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10623	10732	
==>> b -> (a x b)
	pair => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	859	955	
==>Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pair <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	859	955	
==>Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pair <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	859	955	
==>Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pair <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7549	7641	
==>Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1777	1869	
==>Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9183	9275	
==>Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1995	2087	
==>Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14964	15058	
==>:More function is_deeply.
The plan currently is to implement this as a mutually recursive multi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15022	15116	
==>:More function is_deeply.
The plan currently is to implement this as a mutually recursive multi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11802	11892	
==>Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11802	11892	
==>Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. St <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15724	15838	
==>ed on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	248	348	
==>IL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	248	348	
==>IL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	248	348	
==>IL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4166	4298	
==>$tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4154	4286	
==>$tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23253	23347	
==>nd is not modified by this module,
aside from appending the correct newline characters.

=head1 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23253	23347	
==>nd is not modified by this module,
aside from appending the correct newline characters.

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1519	1626	
==>{
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1519	1626	
==>{
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1519	1626	
==>{
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3871	3966	
==>riskCommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardSlashO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	664	778	
==>lobal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e ea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	664	778	
==>lobal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e ea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	664	778	
==>lobal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e ea <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6349	6463	
==>lobal c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e ea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20319	20435	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20598	20714	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	354	448	
==>ram's model (M1)

=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $role.addMethod(Method.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2891	3014	
==>{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2891	3014	
==>{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2891	3014	
==>{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ( <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1493	1591	
==>m a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is export {
    Date::Grego <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6790	6889	
==>a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6790	6889	
==>a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6790	6889	
==>a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7750	7845	
==>s the elements of C<@array>, in order. 

If C<@indextests> are provided, only elements whose ind <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10010	10112	
==>0:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10010	10112	
==>0:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl. <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2285	2380	
==>lScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2285	2380	
==>lScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3514	3696	
==>) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtracking - st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4443	4621	
==>) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3404	3582	
==>) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4443	4621	
==>) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtracking - st <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3864	3979	
==>opy it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $target = File::Spec->canonpath( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	82	174	
==>ckage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	82	174	
==>ckage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	82	174	
==>ckage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10855	11016	
==>ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10855	11016	
==>ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10855	11016	
==>ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2411	2509	
==>an interpreter.

=over 4

=item Thunk

Something you thunk of but haven't yet executed.

For exampl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3144	3250	
==>rity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3144	3250	
==>rity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3144	3250	
==>rity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1696	1799	
==>}
if($compile) {
    open(F,"<$compile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10664	10774	
==>val $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10822	10932	
==>val $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) i <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8550	8645	
==>ed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8608	8703	
==>ed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6174	6290	
==>all: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2649	2749	
==>DO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2649	2749	
==>DO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2649	2749	
==>DO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2601	2689	
==>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2601	2689	
==>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2601	2689	
==>{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2790	2897	
==>to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2790	2897	
==>to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2790	2897	
==>to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1680	1779	
==>)<?p6ws>?\)<?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} = Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12696	12820	
==>t = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$ps <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12696	12820	
==>t = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$ps <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	327	435	
==>e place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<M <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	327	435	
==>e place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<M <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1237	1349	
==>ne =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6188	6293	
==>patch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6188	6293	
==>patch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6188	6293	
==>patch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21780	21893	
==>gs} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18201	18314	
==>gs} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13684	13794	
==>have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15209	15319	
==>have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union( <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1412	1538	
==>{
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {

    my($v, @values);
    for @p { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18143	18234	
==><~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18143	18234	
==><~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18143	18234	
==><~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9161	9423	
==>ons, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5521	5783	
==>ons, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6370	6632	
==>ons, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	112	220	
==>my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { $w };
}

### This is the ONLY module that shouldn't have stri <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5601	5757	
==>( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.sh <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5601	5757	
==>( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.sh <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3041	3141	
==>AME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  u <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3041	3141	
==>AME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5492	5612	
==>rx->{flags}[-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5476	5592	
==>primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5476	5592	
==>primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5476	5592	
==>primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15868	15973	
==>ot $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	714	818	
==>ESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	714	818	
==>ESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2265	2366	
==>ot $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1237	1366	
==>gth() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1586	1710	
==>gth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1193	1317	
==>gth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1586	1710	
==>gth() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alt <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3026	3133	
==>ndex) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argum <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3026	3133	
==>ndex) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argum <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14871	14966	
==>s routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14871	14966	
==>s routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9563	9715	
==>lf + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - sho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9563	9715	
==>lf + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - sho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9563	9715	
==>lf + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - sho <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	405	521	
==>otential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use defaults
    if ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4876	4977	
==>r of tests to run.

Those are the only valid arguments.

You must have a plan set before you can recor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4876	4977	
==>r of tests to run.

Those are the only valid arguments.

You must have a plan set before you can recor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6400	6501	
==>r of tests to run.

Those are the only valid arguments.

You must have a plan set before you can recor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1272	1365	
==>erl6-MetaModel 2.0 port of the Perl 6 version of 
Test::Builder::TestPlan.

This file contains <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23075	23289	
==>ix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23354	23568	
==>ix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6784	6893	
==>ax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6796	6905	
==>ax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8359	8452	
==>6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Gra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2184	2277	
==>6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Gra <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4174	4263	
==>---------------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## -------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4197	4286	
==>----------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2840	2939	
==>.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2840	2939	
==>.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37180	37274	
==>module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positio <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37180	37274	
==>module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	834	940	
==>t(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	834	940	
==>t(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	834	940	
==>t(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var re <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1755	1856	
==>umber  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1377	1479	
==>'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1377	1479	
==>'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1457	1559	
==>'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diag <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28232	28327	
==>y () returns Set of Mapping(Str) of Any>

This method returns this Relation::Example's body.

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4930	5047	
==>!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (No <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4930	5047	
==>!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (No <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4188	4272	
==>nterface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4188	4272	
==>nterface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Inte <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28717	28835	
==>leop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28996	29114	
==>leop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7825	7939	
==>tch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7825	7939	
==>tch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7825	7939	
==>tch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	1	109	
==>=der x Operator
# x Wiederholt in Perl weiterhin Strings:
$a = "a" x 3  # "aaa"

#=der xx Operator
# neu in P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9000	9116	
==>=> "\0", "\\0[0]") if $cc;
    return $S->object(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag('i' = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2369	2468	
==>ne, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2369	2468	
==>ne, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi s <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1413	1522	
==>or: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [opti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1300	1417	
==>dname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Te <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2076	2190	
==>strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2076	2190	
==>strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1289	1397	
==>dname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Te <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2633	2741	
==>et ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2633	2741	
==>et ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4188	4287	
==>art or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_o <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4188	4287	
==>art or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_o <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	228	333	
==>5 code.  It was explored as a possible
# bootstrap path for perl6.

# The perl5 regexp engine is unfortuna <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34	141	
==>ser::__object__;  

  sub class {
    my $self = shift;
    Carp::carp("class() deprecated; use family() ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1998	2101	
==>erclass (@{$class->superclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1812	1957	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1597	1736	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1597	1736	
==>imental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	172	263	
==>fix
circumfix:«{ }»($a, 'foo'); # $a.circumfix:«{ }»('foo');
#=postcircumfix
postcircumf <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3320	3439	
==>ensions}};
    unless ( @exts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1248	1344	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1248	1344	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1248	1344	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)", <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	399	515	
==>e::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODULE, $modules[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2018	2124	
==>ribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1700	1802	
==>ribute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1153	1250	
==>al \"$str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$str <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2386	2497	
==>quiv => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "type_convert_${from}_${to}",
							t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28509	28605	
==>its keys being the new tuple-valued attribute names and each of its values
the set of old attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33061	33157	
==>its keys being the new tuple-valued attribute names and each of its values
the set of old attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32189	32285	
==>its keys being the new tuple-valued attribute names and each of its values
the set of old attribu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	381	475	
==>ta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_k <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8170	8309	
==>= $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38523	38642	
==>p {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38523	38642	
==>p {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38523	38642	
==>p {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	908	1021	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	908	1021	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	908	1021	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) e <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14015	14118	
==>lose:
    parse_error(mob, pos, "No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "par <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1556	1663	
==>:False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1556	1663	
==>:False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	729	864	
==>Token;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	729	864	
==>Token;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	729	864	
==>Token;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17477	17599	
==>n) {
    local $X::str = $s;
    local $X::pos = $start;
    local $X::cap = [];
    my $m = MatchX->new();
    local $X::c <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8287	8417	
==>cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this.
    return $self->{ghc_pkg} if $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2384	2480	
==>->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2384	2480	
==>->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2384	2480	
==>->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4062	4166	
==>, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4062	4166	
==>, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4062	4166	
==>, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	565	672	
==>= shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} el <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	335	442	
==>= shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} el <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	335	442	
==>= shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4553	4654	
==>XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4553	4654	
==>XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4553	4654	
==>XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no re <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	138	259	
==>nh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1999	2097	
==>a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1999	2097	
==>a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1999	2097	
==>a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5507	5633	
==>span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5507	5633	
==>span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	521	637	
==>finite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constru <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	521	637	
==>finite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constru <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1715	1843	
==>e "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2458	2586	
==>e "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1715	1843	
==>e "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2446	2574	
==>e "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	775	890	
==>$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	775	890	
==>$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	775	890	
==>$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3199	3430	
==>nts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            % <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3199	3430	
==>nts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            % <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4104	4223	
==>.ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a secti <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4104	4223	
==>.ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a secti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2439	2671	
==>ed $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2748	2971	
==>ed $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2748	2971	
==>ed $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5693	5788	
==>et_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5693	5788	
==>et_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5693	5788	
==>et_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4886	5059	
==>tching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($versio <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4886	5059	
==>tching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($versio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11208	11298	
==>, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11208	11298	
==>, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2079	2171	
==>T

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2079	2171	
==>T

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2079	2171	
==>T

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11505	11593	
==>".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_comment_body( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2651	2755	
==>}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2651	2755	
==>}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2651	2755	
==>}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8799	9011	
==>{
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5159	5371	
==>{
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6008	6220	
==>{
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9300	9403	
==>Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9300	9403	
==>Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9300	9403	
==>Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21880	21988	
==>sage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20761	20869	
==>sage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21880	21988	
==>sage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20761	20869	
==>sage was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1163	1274	
==>code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1174	1285	
==>code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unl <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7253	7344	
==>---------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7253	7344	
==>---------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7206	7303	
==>r=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7206	7303	
==>r=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7206	7303	
==>r=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Ru <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	702	833	
==>rl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initialize_package
       p6_wrap_co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1180	1274	
==>PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1180	1274	
==>PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1180	1274	
==>PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9573	9695	
==>args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5914	6036	
==>args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6763	6885	
==>args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($b <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2476	2585	
==>ical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6449	6570	
==>e superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6449	6570	
==>e superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6449	6570	
==>e superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	54	157	
==>ict;

# TODO 
#  ok - is tighter/looser/equiv 
#  infix/prefix/circumfix/postcircumfix
#  is assoc left/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13295	13402	
==>c;
    return $S->object(exact => chr hex $num, $rep);
  });

  # alpha POSIX class
  $self->add_handler('PO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3453	3554	
==>l("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3453	3554	
==>l("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3453	3554	
==>l("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not d <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5674	5776	
==>);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4804	4906	
==>);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5674	5776	
==>);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4804	4906	
==>);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2853	2978	
==>tus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2853	2978	
==>tus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6627	6725	
==>s : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method inse <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6627	6725	
==>s : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method inse <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9734	9837	
==>fference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9734	9837	
==>fference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8732	8825	
==>rl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2557	2650	
==>rl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Gr <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6803	6911	
==>sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1013	1114	
==>ture
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1013	1114	
==>ture
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1013	1114	
==>ture
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3731	3844	
==>main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3731	3844	
==>main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3731	3844	
==>main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unw <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	121	225	
==>RSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, and downlo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7266	7361	
==>send the regex to be parsed as the argument to the constructor.

=item $parser->regex($regex)

C <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1105	1203	
==>file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1105	1203	
==>file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_g <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	176	271	
==>ipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	176	271	
==>ipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6663	6798	
==>ash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6663	6798	
==>ash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6663	6798	
==>ash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2851	2973	
==>&& $_->isa('type'))
        || confess "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	229	335	
==>$value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	229	335	
==>$value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24763	24878	
==>{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21184	21299	
==>{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3005	3117	
==>, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3005	3117	
==>, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4715	4912	
==>parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5810	5959	
==>1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5810	5959	
==>1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5810	5959	
==>1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	813	921	
==>IL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	813	921	
==>IL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	813	921	
==>IL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	241	349	
==>s;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	241	349	
==>s;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	241	349	
==>s;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1911	2001	
==>are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

Non <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1874	1964	
==>are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

Non <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1911	2001	
==>are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

Non <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1874	1964	
==>are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

Non <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6998	7143	
==>x;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6986	7131	
==>x;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1577	1679	
==>);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1577	1679	
==>);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3125	3234	
==>= $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3125	3234	
==>= $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3125	3234	
==>= $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4618	4861	
==>'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&repeatedly_apply_and_accum'),
                            Sym->new( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1353	1461	
==>A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11599	11700	
==>ll not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=b <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11599	11700	
==>ll not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5754	5857	
==>(Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4884	4987	
==>(Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5754	5857	
==>(Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4884	4987	
==>(Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, S <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2406	2510	
==>i@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1861	1965	
==>i@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2406	2510	
==>i@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1861	1965	
==>i@oook.de>

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it unde <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6555	6654	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8623	8722	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6555	6654	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8623	8722	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8241	8466	
==>hift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    metho <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8241	8466	
==>hift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    metho <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	747	842	
==>($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinter <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	747	842	
==>($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	590	690	
==>ame
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	590	690	
==>ame
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	590	690	
==>ame
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3730	3825	
==><|\<|\x[abd]]) (\??) <name> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
r <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1013	1126	
==>cute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave ac <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1013	1126	
==>cute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave ac <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5354	5458	
==>| %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5354	5458	
==>| %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	987	1151	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	987	1151	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5020	5182	
==>fied number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($ma <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5020	5182	
==>fied number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5106	5301	
==>";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5106	5301	
==>";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5106	5301	
==>";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'd <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22351	22444	
==>me-number versions of Relation::Heading ("Heading")
and Relation::Tuple ("Tuple").

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2975	3089	
==>~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2975	3089	
==>~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2975	3089	
==>~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14330	14433	
==>empfiles

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2503	2618	
==>[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2503	2618	
==>[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2503	2618	
==>[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1047	1142	
==>lue;
class JSX::Value::Array is JSX::Value::Object;

class JSX::PropertyAttributes {
    has $.R <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3067	3226	
==>w('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1122	1254	
==>::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lva <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1122	1254	
==>::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lva <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1122	1254	
==>::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lva <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12067	12299	
==>=> 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12067	12299	
==>=> 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1131	1248	
==>er::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1131	1248	
==>er::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5616	5719	
==>:_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5616	5719	
==>:_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6206	6309	
==>:_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_t <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	48	129	
==>cal/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Install:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11545	11662	
==>kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11545	11662	
==>kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11545	11662	
==>kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implement <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7011	7112	
==>_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto en <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4700	4830	
==>end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4700	4830	
==>end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	722	823	
==>_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.he <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	722	823	
==>_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1509	1622	
==>ise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1509	1622	
==>ise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1509	1622	
==>ise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14718	14821	
==>pattern'.
  Which might come in hand when doing p6 regex.



Notes on struct regex:

  typedef struct re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3639	3788	
==>lternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3651	3800	
==>lternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	576	674	
==><$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0 <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	576	674	
==><$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9794	9889	
==>eturn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9794	9889	
==>eturn $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9239	9333	
==>eturn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9239	9333	
==>eturn $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $sp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8787	8892	
==>Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8787	8892	
==>Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out a t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9043	9146	
==>Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9043	9146	
==>Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out a t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4038	4191	
==>\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5359	5512	
==>\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4038	4191	
==>\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5347	5500	
==>\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            re <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4386	4534	
==>)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre     pair    safe   (List)\
\\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	571	670	
==>uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	571	670	
==>uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	571	670	
==>uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is prim <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3221	3338	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6346	6463	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3221	3338	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6346	6463	
==>g } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4819	4923	
==>o, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4877	4981	
==>o, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21522	21616	
==>ot tried to port between
databases before, especially given that the Perl DBI purports to provi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21522	21616	
==>ot tried to port between
databases before, especially given that the Perl DBI purports to provi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5610	5717	
==>«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode oper <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4740	4847	
==>«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode oper <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5610	5717	
==>«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode oper <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4740	4847	
==>«>=» (Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode oper <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15166	15277	
==>:Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	725	824	
==>_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	725	824	
==>_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1281	1380	
==>_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1934	2032	
==>+$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1934	2032	
==>+$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1934	2032	
==>+$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9159	9270	
==>%hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13010	13119	
==>%hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %ha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13010	13119	
==>%hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %ha <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12004	12094	
==>C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_chars_more( <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5181	5301	
==>B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5181	5301	
==>B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	821	918	
==>list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: joi <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	821	918	
==>list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: joi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8919	9031	
==>s up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
} <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8919	9031	
==>s up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
} <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6523	6625	
==>iblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6523	6625	
==>iblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1647	1767	
==>eadline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1647	1767	
==>eadline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12992	13088	
==>t the next value.
The unit specifier is also used internally when joining two spans, and when get <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12992	13088	
==>t the next value.
The unit specifier is also used internally when joining two spans, and when get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10073	10208	
==>'$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10073	10208	
==>'$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10073	10208	
==>'$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descripti <==
4	/Users/nnunley/pugs/util/package-osx.pl	8853	8962	
==>change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig to $dest$change_files{$ori <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2154	2258	
==>', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'ci <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2154	2258	
==>', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'ci <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28675	28791	
==>8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), (PL_reg_match_utf8 = 1)) \
			 : (RX_MAT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1740	1846	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1740	1846	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1740	1846	
==>ne('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14696	14809	
==>er
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14696	14809	
==>er
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16299	16408	
==>};

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16299	16408	
==>};

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  m <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7294	7394	
==>STRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

... <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7294	7394	
==>STRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

... <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3915	4036	
==>ht;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtyp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4248	4369	
==>ht;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtyp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3915	4036	
==>ht;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtyp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4248	4369	
==>ht;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtyp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1320	1437	
==>_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1320	1437	
==>_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1320	1437	
==>_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVar <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3353	3460	
==>plified one.
#multi Array::shift ( --> Scalar ) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# sign <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1193	1293	
==>p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1193	1293	
==>p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1193	1293	
==>p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MU <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6474	6570	
==>$base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, cat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6474	6570	
==>$base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, cat <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	657	745	
==>azy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Remove <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	657	745	
==>azy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Remove <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	399	551	
==>sting p5 programs instead of doing
# full conversions. :-/
#
# c.f. Mini HowTo: How to port Perl 5 modules to Perl 6:
#      http://perlmonks.org/index.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11475	11581	
==>->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11475	11581	
==>->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11475	11581	
==>->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	928	1022	
==>a shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<de <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	928	1022	
==>a shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<de <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1072	1163	
==>:Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1072	1163	
==>:Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3029	3132	
==>ar->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    retu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	766	889	
==>> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (%has <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3050	3155	
==>hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3050	3155	
==>hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3050	3155	
==>hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5498	5614	
==>les) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5498	5614	
==>les) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5498	5614	
==>les) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18477	18580	
==>de);
}
sub p6_wrap_code_with_package {
    my($code,$pkg)=@_;
    "package ${ROOT}::$pkg; $code";
}


su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4936	5037	
==>if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4936	5037	
==>if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4936	5037	
==>if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3481	3578	
==>incent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it u <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3481	3578	
==>incent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it u <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	278	402	
==>$tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	278	402	
==>$tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1499	1602	
==>ite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop orde <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1499	1602	
==>ite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop orde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4677	4777	
==>s () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode man <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4677	4777	
==>s () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode man <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4677	4777	
==>s () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode man <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1378	1489	
==>ray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1711	1811	
==>n "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1711	1811	
==>n "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1711	1811	
==>n "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } ca <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11254	11345	
==>ield, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11254	11345	
==>ield, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10484	10573	
==>pher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10484	10573	
==>pher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3728	3843	
==>}

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3728	3843	
==>}

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13083	13196	
==>25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X') <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13083	13196	
==>25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X') <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8147	8282	
==>d"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8147	8282	
==>d"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2414	2505	
==>th URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)? <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2414	2505	
==>th URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)? <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1220	1372	
==>.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4459	4611	
==>.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1220	1372	
==>.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4459	4611	
==>.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7704	7845	
==>type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7704	7845	
==>type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7704	7845	
==>type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12290	12418	
==>d host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12290	12418	
==>d host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11794	11890	
==>l::Node - This stores an ordered list of all this
Document's Node objects that do not have parent <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11794	11890	
==>l::Node - This stores an ordered list of all this
Document's Node objects that do not have parent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6702	6823	
==>'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6702	6823	
==>'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6702	6823	
==>'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4200	4314	
==>r->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4200	4314	
==>r->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21651	21744	
==>er, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Dat <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21651	21744	
==>er, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1438	1546	
==>";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1438	1546	
==>";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1438	1546	
==>";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11450	11555	
==>name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11450	11555	
==>name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11450	11555	
==>name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29037	29132	
==>hod is a generic relational operator that returns a new Relation::Example
which is the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31885	31980	
==>hod is a generic relational operator that returns a new Relation::Example
which is the same as t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32932	33027	
==>hod is a generic relational operator that returns a new Relation::Example
which is the same as t <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	175	263	
==>d
  http://www.nntp.perl.org/group/perl.perl6.language/20985
  docs/quickref/rules
  http <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1234	1336	
==>r; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1234	1336	
==>r; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1234	1336	
==>r; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16034	16127	
==>0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1).

rm(lookahead(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8148	8246	
==>or you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	627	725	
==>int(abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return int <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8148	8246	
==>or you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8148	8246	
==>or you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1177	1347	
==>13121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3473	3643	
==>13121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1177	1347	
==>13121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3473	3643	
==>13121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2590	2752	
==>{

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3122	3284	
==>{

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2491	2647	
==>{
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3000	3156	
==>{
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	695	798	
==>..
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	695	798	
==>..
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5179	5281	
==><finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5179	5281	
==><finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ciphe <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9927	10033	
==>ork?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9927	10033	
==>ork?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	991	1087	
==>)($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	991	1087	
==>)($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	991	1087	
==>)($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17819	17927	
==>$totals) = @_;
    print $line if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11982	12088	
==>}
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11982	12088	
==>}
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11982	12088	
==>}
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priva <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6992	7113	
==>ete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6992	7113	
==>ete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7341	7456	
==>ete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7341	7456	
==>ete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      % <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8047	8187	
==>ss 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13641	13781	
==>ss 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8047	8187	
==>ss 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13635	13775	
==>ss 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3366	3468	
==>d";
	warn "defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1192	1286	
==>l2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1192	1286	
==>l2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1192	1286	
==>l2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10945	11050	
==>WITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10945	11050	
==>WITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10945	11050	
==>WITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid us <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13277	13379	
==>e of the body
fun: type($$) = {
	type::operator::arrow->new(
		new_env($$)->{ $.param },
		type($.body) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	107	219	
==>e::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one source dir';

for my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	840	949	
==>Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	840	949	
==>Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	840	949	
==>Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13412	13595	
==>g,1);
            }

            if (substr($string,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($id <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3569	3728	
==>g,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3569	3728	
==>g,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3569	3728	
==>g,1);
        }

        if (substr($string,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	49	158	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	63	172	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	49	158	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	49	158	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6796	6894	
==>dom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6796	6894	
==>dom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6796	6894	
==>dom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is r <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5334	5432	
==>s-%s--%d-%d--%d-%d-%d-%d-%d-%d--%s.html",
    (map { $smoke{$_}          } qw<pugs_version pugs_rev <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6093	6201	
==>!~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $s ~~ s:g/<TheGrammar.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34090	34186	
==>r> does not have
an identical header to the invocant relation.  This method has aliases
named C<m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38640	38736	
==>r> does not have
an identical header to the invocant relation.  This method has aliases
named C<m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38101	38197	
==>r> does not have
an identical header to the invocant relation.  This method has aliases
named C<m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4499	4619	
==>->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4499	4619	
==>->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4499	4619	
==>->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slic <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15102	15199	
==>ion to be instantiated to the concrete values as inferred in the body of the function, based on th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17877	18031	
==>ay->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17877	18031	
==>ay->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17877	18031	
==>ay->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn " <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2143	2249	
==>nc/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args{nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2393	2483	
==>instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2393	2483	
==>instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2393	2483	
==>instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34083	34182	
==>C<$other> does not have
an identical header to the invocant relation.  This method has aliases
named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38633	38732	
==>C<$other> does not have
an identical header to the invocant relation.  This method has aliases
named <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38094	38193	
==>C<$other> does not have
an identical header to the invocant relation.  This method has aliases
named <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	748	840	
==>Token->compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compile(q( \{ [ <block> | <- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1591	1682	
==>tly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1591	1682	
==>tly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1591	1682	
==>tly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_con <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2337	2452	
==>gs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print subs <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14594	14709	
==>IRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14594	14709	
==>IRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # i <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2337	2452	
==>gs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print subs <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14216	14321	
==>ime() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14216	14321	
==>ime() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pin <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11137	11231	
==>odo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11195	11289	
==>odo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5191	5354	
==>rse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cs <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5191	5354	
==>rse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cs <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4195	4298	
==><start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4240	4343	
==><start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx: <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4195	4298	
==><start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4240	4343	
==><start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25684	25784	
==>e and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25684	25784	
==>e and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5126	5220	
==>push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5126	5220	
==>push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5375	5521	
==>tch, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section wo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5839	5985	
==>tch, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section wo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3007	3107	
==>ELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns B <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6484	6584	
==>ELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16407	16535	
==>ource) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16407	16535	
==>ource) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5424	5551	
==>' => $Object,
    '%:methods' => {
        'resolve' => $_resolve,
        'add_method' => sub ($$$) {
            my ($self, $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4643	4752	
==>te_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4643	4752	
==>te_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4643	4752	
==>te_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4875	4975	
==>tem B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch (num) returns ~type>

=it <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36470	36566	
==>e in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41019	41115	
==>e in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40633	40729	
==>e in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16751	16898	
==>er;
use base qw/Reducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6754	6860	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6754	6860	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6754	6860	
==>lX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	560	670	
==>gs don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	560	670	
==>gs don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	560	670	
==>gs don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30724	30817	
==>_object__> class,
because F<__object__> doesn't inherit from anywhere.  You want to go along
t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3740	3847	
==>ll( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7217	7324	
==>ll( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6174	6281	
==>ll( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34482	34572	
==>gexp::MyRx::THING> object will look in its own
package first, then in F<Regexp::MyRx::__obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1920	2023	
==>ror at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1920	2023	
==>ror at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1920	2023	
==>ror at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Ch <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3279	3368	
==>FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defin <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1397	1529	
==>OAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pwd}) {
            goto &$code unless $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13226	13337	
==>mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33710	33819	
==>NIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33710	33819	
==>NIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33710	33819	
==>NIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elem <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15774	15873	
==>al $m0->{$name} = [@{$m0->{$name}||[]}];
    push(@{$m0->{$name}},$m1); #see below
    $X::cap = $ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1283	1377	
==>JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1283	1377	
==>JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1283	1377	
==>JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5720	5837	
==>($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5720	5837	
==>($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5720	5837	
==>($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2755	2853	
==>ase};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6 <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1707	1804	
==>here; that will create the
'nmake.exe' file needed by this module.

You may then resume the instal <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1547	1644	
==>here; that will create the
'nmake.exe' file needed by this module.

You may then resume the instal <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23680	23771	
==>etta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23680	23771	
==>etta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4395	4501	
==>ete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4395	4501	
==>ete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4395	4501	
==>ete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1567	1665	
==>) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

PV type_convert_IV_PV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17846	17957	
==>ss "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17846	17957	
==>ss "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17846	17957	
==>ss "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1437	1536	
==>able>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "use Perl6::Slurp;\n".$var." = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18024	18122	
==>limiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split ( Rule $delimit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	430	522	
==>inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	430	522	
==>inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	430	522	
==>inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11346	11441	
==>hods are used
because they will not get inherited. This provides more predictable 
behavior to c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11346	11441	
==>hods are used
because they will not get inherited. This provides more predictable 
behavior to c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11346	11441	
==>hods are used
because they will not get inherited. This provides more predictable 
behavior to c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1809	1929	
==>> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1809	1929	
==>> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1809	1929	
==>> sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3202	3318	
==>aque_instance_attrs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($s <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	953	1063	
==>Destroy() {
    my $fh = open("$Path/$SID", :w);
    $fh.print(SessionCode(%Session.keys));
    $fh.close;
}

S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2042	2150	
==>nts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2042	2150	
==>nts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2042	2150	
==>nts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)M <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	201	298	
==>ybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

and m <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2176	2329	
==>eys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRU <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2176	2329	
==>eys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRU <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5650	5761	
==>d ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5650	5761	
==>d ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3895	4028	
==>.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3895	4028	
==>.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4427	4552	
==>.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4427	4552	
==>.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11131	11256	
==>dxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11131	11256	
==>dxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11131	11256	
==>dxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11995	12100	
==>e' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11995	12100	
==>e' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11995	12100	
==>e' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && bl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18309	18759	
==>rs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1328	1443	
==>k => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1328	1443	
==>k => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6667	6752	
==>G Roles COMPLETE
## ------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1440	1569	
==>@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {

    my($v, @values);
    for @p {
      ($v, $input) = $_.($inpu <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1327	1422	
==>kpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OB <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1327	1422	
==>kpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	304	483	
==>s >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	304	483	
==>s >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	304	483	
==>s >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15767	15916	
==>??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3490	3632	
==>{
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Val <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3490	3632	
==>{
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Val <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7716	7825	
==>ams) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = shift;

	$prim->struct_equiv->body;
}

__P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	736	843	
==>, cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	736	843	
==>, cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	736	843	
==>, cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	855	999	
==>{
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $prot <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	855	999	
==>{
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $prot <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4535	4677	
==>allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4535	4677	
==>allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	971	1071	
==>{ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don' <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	971	1071	
==>{ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	39	134	
==>er::Pretty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quo <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2331	2425	
==>fsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_hook = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6228	6468	
==>rcuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sati <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6692	6932	
==>rcuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sati <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18316	18415	
==>w api into the guts of the perl core, to permit the use
of alternate regexp engines.  There being li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1410	1505	
==>attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1410	1505	
==>attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1410	1505	
==>attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj = <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	241	361	
==>'A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href;
        if (href.match(/\/~/)) windo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2838	2941	
==>eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2838	2941	
==>eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2838	2941	
==>eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->ro <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23891	24022	
==>t. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4913	5017	
==>f $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4913	5017	
==>f $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constan <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29068	29170	
==>t. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8376	8519	
==>}
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8376	8519	
==>}
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8376	8519	
==>}
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn " <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4418	4542	
==>::round_toward_zero ( Num $x ) {
    my $x_round;

    # round floor above 0, round ceiling below 0
    if $x < 0 {
        $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9944	10063	
==>st{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skipped: $test{skip_reason}" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4271	4374	
==>d return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4271	4374	
==>d return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4271	4374	
==>d return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7545	7670	
==>utput-file"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurrent=N, -j      Run N t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13170	13269	
==>};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13170	13269	
==>};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13170	13269	
==>};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7775	7943	
==>age that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless de <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8239	8407	
==>age that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4205	4361	
==>age that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless de <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4669	4825	
==>age that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4181	4284	
==>ode($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4181	4284	
==>ode($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4181	4284	
==>ode($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31730	31825	
==>uantifiers).

=item min

The minimum repetition count of this object (for quantifiers).

=item n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1835	1953	
==>ndef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1835	1953	
==>ndef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::UR <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1562	1678	
==>->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1562	1678	
==>->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9175	9294	
==>)};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13026	13142	
==>)};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13026	13142	
==>)};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash ke <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3253	3355	
==>'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3613	3727	
==>Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieab <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3613	3727	
==>Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieab <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3613	3727	
==>Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieab <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5561	5662	
==>\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7601	7701	
==>azy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_ar <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7601	7701	
==>azy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_ar <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	214	311	
==>s implemented.

# Input a string containing a rpn expression.
# Return the evaluated integer resul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40762	40871	
==>r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40762	40871	
==>r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40762	40871	
==>r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub el <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2232	2327	
==>of algorithm switching.  When their fast method fails, they fall back
on something more likely t <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	552	672	
==>or $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $ <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	552	672	
==>or $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11894	11991	
==>h the normal perl engine can continue working.

  Upon exec, the subref should return match inform <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	75	165	
==>ugs::Grammar::BaseCategory);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7620	7777	
==>r . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7620	7777	
==>r . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7620	7777	
==>r . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	619	731	
==>st be an opaque type";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8122	8362	
==>v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8122	8362	
==>v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8122	8362	
==>v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2649	2750	
==>ut .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = orange <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4493	4658	
==>end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5152	5317	
==>end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4493	4658	
==>end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5152	5317	
==>end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	736	1144	
==>Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A commo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	736	1144	
==>Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A commo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3868	3984	
==>x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (Ti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3880	3996	
==>x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (Ti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12433	12546	
==>ashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12433	12546	
==>ashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12433	12546	
==>ashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1250	1354	
==>int <<".";
*** Default build config file created.
    You can edit some settings in $filename (then rerun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2567	2666	
==>sa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2567	2666	
==>sa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2567	2666	
==>sa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5576	5681	
==>))
        || confess "You must set '$name' to a native type";
    $self->{env}->{$name} = reference->new( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6527	6652	
==>TION

This class represents a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete A <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6527	6652	
==>TION

This class represents a single span.

It is intended mostly for "internal" use by the Span class. 
For a more complete A <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3224	3348	
==>TION

This class represents a single span.

It is intended mostly for "internal" use by the Span class. For a more complete A <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3224	3348	
==>TION

This class represents a single span.

It is intended mostly for "internal" use by the Span class. For a more complete A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5382	5569	
==>SH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5394	5581	
==>SH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4744	4890	
==>ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6506	6652	
==>ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	880	986	
==>SA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26mai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	880	986	
==>SA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26mai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	880	986	
==>SA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26mai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6108	6207	
==>on is (still) incomplete.  It
may be a little jumbled or hard to understand.  If you find a problem, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2170	2289	
==>ET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_P <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2170	2289	
==>ET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18820	18915	
==>pport (such as modification of the compiled re op tree the native
compiler creates, but which we <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3110	3205	
==>pport (such as modification of the compiled re op tree the native
compiler creates, but which we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8113	8234	
==>d_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8113	8234	
==>d_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8113	8234	
==>d_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    di <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	453	569	
==>ce {
    my $self = shift;
    my $node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	247	363	
==>rits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            fo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	238	352	
==>rits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            fo <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1116	1213	
==>gainst a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C< <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1116	1213	
==>gainst a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C< <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4616	4785	
==>d;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @m <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5080	5249	
==>d;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7452	7580	
==>r"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7452	7580	
==>r"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4358	4468	
==>previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4358	4468	
==>previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.cl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1224	1327	
==>t = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' un <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1224	1327	
==>t = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2856	2960	
==>, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2856	2960	
==>, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2856	2960	
==>, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sca <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8056	8144	
==>="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtm <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8190	8301	
==>p substr($_, 2), grep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $gh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	49	157	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	49	157	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	49	157	
==>$VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6678	6811	
==>return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6678	6811	
==>return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1830	1927	
==>e attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1830	1927	
==>e attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16570	16666	
==>le::KeyedText gives your application the maximum amount of control as
to what the user sees; it n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16570	16666	
==>le::KeyedText gives your application the maximum amount of control as
to what the user sees; it n <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3960	4042	
==>43/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3960	4042	
==>43/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	185	292	
==>rammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	189	296	
==>rammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	183	290	
==>rammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	183	290	
==>rammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7845	7939	
==>t's internal structures.

Cipher authors should assume that if this method is being called, the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7845	7939	
==>t's internal structures.

Cipher authors should assume that if this method is being called, the <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	718	821	
==>$span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	718	821	
==>$span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	166	280	
==>',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    target
    f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14444	14545	
==>move_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14444	14545	
==>move_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provid <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14444	14545	
==>move_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provid <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	385	486	
==>: argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	385	486	
==>: argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18775	18871	
==>ny
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less expr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18775	18871	
==>ny
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less expr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1512	1633	
==>t,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5331	5434	
==>angle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5331	5434	
==>angle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or di <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5331	5434	
==>angle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or di <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26782	26904	
==>@statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27061	27183	
==>@statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34261	34351	
==>et_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Tra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34261	34351	
==>et_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Tra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6325	6498	
==>alar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6325	6498	
==>alar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6325	6498	
==>alar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    s <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21393	21485	
==>'> <Statement>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')'> <Statem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7242	7340	
==>ktracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order operato <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6996	7090	
==>ktracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order operato <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	847	937	
==>object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equiv <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	847	937	
==>object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equiv <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11088	11192	
==>ove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8492	8596	
==>ove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11088	11192	
==>ove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8492	8596	
==>ove an item which is not in the set.

=head2 C<$set.includes(...)>, C<$set.has(...)>

Returns true if all <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3826	4015	
==>eft'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3826	4015	
==>eft'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15372	15466	
==>ically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and unco <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15372	15466	
==>ically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and unco <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7453	7562	
==><|> ..."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	416	520	
==>IL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	416	520	
==>IL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var _ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	416	520	
==>IL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4634	4743	
==>ss'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4634	4743	
==>ss'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4634	4743	
==>ss'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1026	1167	
==>key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1026	1167	
==>key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push( <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	110	236	
==>hs) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.sa <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	110	236	
==>hs) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1248	1345	
==>ULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1248	1345	
==>ULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1248	1345	
==>ULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6431	6539	
==>@{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6431	6539	
==>@{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6431	6539	
==>@{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2624	2791	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1314	1481	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2624	2791	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1314	1481	
==>m => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2266	2407	
==>gin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', " <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2266	2407	
==>gin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7153	7245	
==>end_element ('header')>

This event is fired after the '=head(n)' directive and it's accompan <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7153	7245	
==>end_element ('header')>

This event is fired after the '=head(n)' directive and it's accompan <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12345	12472	
==>my $self = shift;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bless {
        map { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10501	10600	
==>e = quotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node::var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13300	13398	
==>source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(? <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13300	13398	
==>source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(? <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5735	5832	
==>Var Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scop <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5735	5832	
==>Var Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scop <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2640	2732	
==>I METHODS

These methods must be implemented by subclasses... though a default
implementation <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2640	2732	
==>I METHODS

These methods must be implemented by subclasses... though a default
implementation <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14413	14535	
==>->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awarn($rx->RPe_ZQUANT);
      }

      # unbounded quantifier o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	634	739	
==>new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	634	739	
==>new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	634	739	
==>new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5307	5426	
==>s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6575	6694	
==>s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5307	5426	
==>s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6563	6682	
==>s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9812	9960	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10091	10239	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2814	2906	
==>recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2814	2906	
==>recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrenc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2333	2458	
==>2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2333	2458	
==>2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37490	37584	
==>l package in its positional parameter
$module_name (a string) and tries to load it using 'requi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37490	37584	
==>l package in its positional parameter
$module_name (a string) and tries to load it using 'requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6709	6853	
==>nf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6709	6853	
==>nf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6709	6853	
==>nf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        ci <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6301	6476	
==>tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	63	153	
==>n this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.7 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	63	153	
==>n this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.7 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	63	153	
==>n this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.7 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	63	153	
==>n this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	654	785	
==>s, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	654	785	
==>s, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	654	785	
==>s, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => ( <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13767	13869	
==>ing \"$initrd_img\"",
    ensure => sub { -r $initrd_gz and -M $initrd_gz <= -M $initrd_img },
    usin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5013	5122	
==>e->get('&dispatcher')->do();        
        }
    )
);

## -------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14398	14502	
==>:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      . <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14398	14502	
==>:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      . <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8358	8457	
==>!, Code $replacements!) returns Relation::Example {
    return Relation::Example.new(
        headin <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2025	2118	
==>{MAN3PODS} = {} if $perl_version == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17793	17930	
==>|| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17793	17930	
==>|| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17793	17930	
==>|| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$met <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1623	1741	
==>= $^X;
    $config->{pugspath}  =
      File::Spec->catfile($config->{bin}, "pugs$config->{exe_ext}");

    ($config->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1757	1863	
==>have an implementation. These
    # methods are then required to be implemented by the 
    # composing cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1757	1863	
==>have an implementation. These
    # methods are then required to be implemented by the 
    # composing cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1757	1863	
==>have an implementation. These
    # methods are then required to be implemented by the 
    # composing cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36625	36720	
==><eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3601	3702	
==>upers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3601	3702	
==>upers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3601	3702	
==>upers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9991	10147	
==>num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_num <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2052	2198	
==>num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_num <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2052	2198	
==>num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_num <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25216	25314	
==>β. (α × β)", "pretty print a x b");
}
{
	my $type = type::operator::arrow->new(
		type::varia <==
4	/Users/nnunley/pugs/util/package-osx.pl	9057	9154	
==>bin") unless (-d "${dest}/usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17074	17172	
==>6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17074	17172	
==>6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	12	107	
==>Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the mos <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	12	107	
==>Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the mos <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4359	4457	
==>2 $inst_pkg = $inst->is_installed( package => $package )

=cut

### XXX package name?
sub is_instal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6403	6492	
==>uperclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6403	6492	
==>uperclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6403	6492	
==>uperclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute(' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2153	2256	
==>ath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the gl <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2153	2256	
==>ath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the gl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	325	444	
==>mper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	325	444	
==>mper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$ma <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	824	936	
==>ove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	824	936	
==>ove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5541	5640	
==>is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5541	5640	
==>is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_li <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	414	501	
==>thorization proxy_authorization authorization_basic proxy_authorization_basic
»;

has $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	414	501	
==>thorization proxy_authorization authorization_basic proxy_authorization_basic
»;

has $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12398	12546	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12398	12546	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ti <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12398	12546	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1277	1400	
==>Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{code} = eval 
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6988	7143	
==>{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6988	7143	
==>{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6988	7143	
==>{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                retu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1552	1647	
==>lder.  You don't need to know about Test::Harness to use
those modules.

Test::Harness runs test <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7908	8010	
==>an1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7908	8010	
==>an1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20587	20684	
==>or example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", y <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20587	20684	
==>or example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", y <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10764	10879	
==>ludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10764	10879	
==>ludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	428	524	
==>lock>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	428	524	
==>lock>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	384	485	
==>(through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	384	485	
==>(through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	384	485	
==>(through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2508	2608	
==>??
my $link_info;
my $total_links;
my $total_files;
my $syn_indexs;
my @syn;

my $help;
my $no_design <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9892	9993	
==>$p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9892	9993	
==>$p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9892	9993	
==>$p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval { <==
4	/Users/nnunley/pugs/util/importgraph.pl	2170	2255	
==>_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19940	20056	
==>, {}));
    }
}

# calculate output path of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $out <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	643	755	
==>method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	643	755	
==>method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	643	755	
==>method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No oth <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1415	1637	
==>values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1594	1702	
==>class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1594	1702	
==>class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1594	1702	
==>class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchabl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8338	8446	
==>due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8338	8446	
==>due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	557	648	
==>as $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	557	648	
==>as $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	833	935	
==>6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synopses with hyperlinks to correspon <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6133	6221	
==>::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6133	6221	
==>::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6133	6221	
==>::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6306	6451	
==>o we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ => Fi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31730	31825	
==>ro tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36280	36375	
==>ro tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35516	35611	
==>ro tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	45	138	
==>e Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	45	138	
==>e Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	45	138	
==>e Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modul <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20188	20281	
==>LLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arbi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22127	22223	
==>s.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21008	21104	
==>s.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22127	22223	
==>s.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21008	21104	
==>s.

=item C<object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2817	2917	
==>nf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2883	2983	
==>'... got the right y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2817	2917	
==>nf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confes <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2817	2917	
==>nf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5700	5816	
==>s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5700	5816	
==>s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5700	5816	
==>s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICA <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7409	7508	
==>ariable( %pad<"pSubName"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lvalue, @params, $ty <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	791	930	
==>\s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5578	5697	
==>{
        unshift @INC, $self->{prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4152	4279	
==>= undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4152	4279	
==>= undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4152	4279	
==>= undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37078	37174	
==>> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp::Parser>, L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16881	17041	
==>self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16881	17041	
==>self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16881	17041	
==>self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13252	13398	
==>ne      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13252	13398	
==>ne      => $line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12344	12482	
==>ne      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12344	12482	
==>ne      => $line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5835	6000	
==>shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5835	6000	
==>shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5835	6000	
==>shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $star <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	244	341	
==>mpairs 1?)
Please note efficiency isnt currently on the goal list.

CAVEAT - This file so far repr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	805	921	
==>l A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedill <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2511	2627	
==>/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	805	921	
==>l A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedill <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2511	2627	
==>/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11639	11755	
==>hod reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYN <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11639	11755	
==>hod reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYN <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	154	259	
==>=> 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7566	7652	
==>dition_test(lookahead_not(R))  --> p5_elemental(lookahead_not(R)).
p5_condition_test(lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10835	10940	
==>ner::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10835	10940	
==>ner::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10835	10940	
==>ner::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11576	11791	
==>); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mism <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11576	11791	
==>); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mism <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11576	11791	
==>); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mism <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4977	5075	
==>,"emit: pil_tree was undefined") if !defined $pil_tree;
    use Data::Dumper;
    PIL::PIL1CPerl5:: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6742	6852	
==>ecurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6742	6852	
==>ecurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	480	584	
==>node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =hea <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	480	584	
==>node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5842	5952	
==>igil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5842	5952	
==>igil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5842	5952	
==>igil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12156	12265	
==>alDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3003	3201	
==>ell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3003	3201	
==>ell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3003	3201	
==>ell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'b <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14614	14712	
==>n the count of elements that would have
been iterated.

The lvalue form of C<keys> is not longer su <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	77	170	
==>e base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	77	170	
==>e base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3747	3839	
==>parse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3747	3839	
==>parse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	974	1089	
==>/ readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	974	1089	
==>/ readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	974	1089	
==>/ readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5434	5542	
==>r

    sub { my $x = shift; $x }

applied to the value 10 (ultimately reducing to 10).

Inherits Unit.

=back <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23633	23724	
==>sitional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23633	23724	
==>sitional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3890	3987	
==>$description> is the optional
description of the test.  This is the easiest way to match a failing <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3890	3987	
==>$description> is the optional
description of the test.  This is the easiest way to match a failing <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3970	4067	
==>$description> is the optional
description of the test.  This is the easiest way to match a failing <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10462	10597	
==>e field list mismatch:\n$vars\n$chk\n";
    my $keys = join(" ", @{$info->{'fields'}});

    my $code = "";
    $code .= "sub ${package_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2782	2902	
==>aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2782	2902	
==>aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2782	2902	
==>aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %para <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7098	7200	
==>($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7098	7200	
==>($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $p <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	331	431	
==>?  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	331	431	
==>?  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTT <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2128	2310	
==>@res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2128	2310	
==>@res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5525	5655	
==>r(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5525	5655	
==>r(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha" <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	447	547	
==>:False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::Fa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	447	547	
==>:False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::Fa <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1459	1558	
==>:False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::Fa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1459	1558	
==>:False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::Fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4194	4326	
==>>{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1573	1679	
==>aque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1573	1679	
==>aque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1573	1679	
==>aque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($in <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39578	39668	
==>rved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39578	39668	
==>rved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24302	24391	
==>rved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24302	24391	
==>rved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1407	1517	
==>capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1407	1517	
==>capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20310	20404	
==>lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20310	20404	
==>lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently conne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4196	4297	
==>ses within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4196	4297	
==>ses within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4196	4297	
==>ses within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28640	28737	
==>nyof_close> node.

=item my $c = $obj->family()

The general family of this object.  These are any <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	39	166	
==>ct;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOpti <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30904	31000	
==>either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35454	35550	
==>either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34645	34741	
==>either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8306	8416	
==>]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8294	8404	
==>]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17893	17986	
==>a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17893	17986	
==>a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	97	218	
==>plement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Thing <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	97	218	
==>plement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Thing <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	139	232	
==>b remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	139	232	
==>b remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11987	12103	
==>nsitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12419	12535	
==>nsitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11987	12103	
==>nsitive and '_' can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12419	12535	
==>nsitive and '_'
can be used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6431	6537	
==>Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule Un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	52	152	
==>::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the G <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	52	152	
==>::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the G <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	52	152	
==>::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the G <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4556	4776	
==>ate}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4556	4776	
==>ate}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched c <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	866	1056	
==>e );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	866	1056	
==>e );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22180	22278	
==>ssage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21061	21159	
==>ssage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22180	22278	
==>ssage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21061	21159	
==>ssage operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2788	2879	
==>arsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6240	6331	
==>arsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2788	2879	
==>arsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2788	2879	
==>arsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	377	488	
==>rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	377	488	
==>rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# c <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1745	1851	
==>is_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cen <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1745	1851	
==>is_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cen <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	447	572	
==>'$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	75	178	
==>25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	75	178	
==>25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	75	178	
==>25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	192	294	
==>e method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	184	284	
==>e method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25212	25298	
==>gs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25212	25298	
==>gs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5163	5278	
==>k {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_glob <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13866	13967	
==>order that source relations are
    # combined, so to try and make the least expensive kinds of combin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17343	17444	
==>order that source relations are
    # combined, so to try and make the least expensive kinds of combin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16723	16824	
==>order that source relations are
    # combined, so to try and make the least expensive kinds of combin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4881	5040	
==>s}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4881	5040	
==>s}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4881	5040	
==>s}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6256	6370	
==>('\Z') if $re eq '\Z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32530	32720	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32530	32720	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32530	32720	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23547	23681	
==>ubclass($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclas <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	169	313	
==>method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	169	313	
==>method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5294	5386	
==>n.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMEN <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5294	5386	
==>n.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMEN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	822	934	
==>lib",
        #"$Bin/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dum <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8380	8482	
==>LD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	584	680	
==>LD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	584	680	
==>LD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1613	1735	
==>t.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1613	1735	
==>t.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1613	1735	
==>t.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wri <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2690	2808	
==>m::sqrt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1135	1243	
==>rap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1135	1243	
==>rap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1135	1243	
==>rap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	139	244	
==>[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19010	19144	
==>1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15431	15565	
==>1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23109	23205	
==>like "gettext" it looks like you
are supposed to pass in english text and they translate it, whic <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23109	23205	
==>like "gettext" it looks like you
are supposed to pass in english text and they translate it, whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1485	1587	
==>/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1485	1587	
==>/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1485	1587	
==>/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3835	3938	
==>method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3835	3938	
==>method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISP <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3835	3938	
==>method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISP <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	830	927	
==>nts[0] =:= the
  # callback we enqueue().
  method post (POE::Session $session, Str $event, *@args <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5831	5941	
==>ash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1842	1939	
==>\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1842	1939	
==>\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1842	1939	
==>\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23793	23907	
==>s used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22566	22680	
==>s used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23793	23907	
==>s used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22566	22680	
==>s used similarly to PRIVMSG.  The difference between
  NOTICE and PRIVMSG is that automatic replies must never be s <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1302	1441	
==>sult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $! <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1302	1441	
==>sult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $! <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4333	4433	
==>'#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any comm <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4333	4433	
==>'#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any comm <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	327	451	
==>g( *self.parse_arguments( @args ) );
        }

        method parse_arguments ( Array of Str @args ) {
            collect_a <==
4	/Users/nnunley/pugs/util/testgraph.pl	794	914	
==>{
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USA <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1371	1471	
==>bs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1371	1471	
==>bs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37830	37947	
==>>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bind <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37830	37947	
==>>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bind <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37830	37947	
==>>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bind <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23161	23305	
==>~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9446	9559	
==>rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Pe <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9446	9559	
==>rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30859	30952	
==>ric relational operator that returns a new Relation::Example
which has a superset of the origi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7359	7543	
==>f $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7359	7543	
==>f $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5429	5543	
==>{
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5429	5543	
==>{
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Heade <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2209	2364	
==>] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4250	4343	
==>ing(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@part <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4250	4343	
==>ing(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@part <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4250	4343	
==>ing(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@part <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13442	13591	
==>,
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13442	13591	
==>,
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13442	13591	
==>,
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2616	2723	
==>t>+}
rule ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13895	14013	
==>:canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatche <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2121	2239	
==>=> $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13895	14013	
==>:canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13895	14013	
==>:canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1232	1343	
==>s => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1232	1343	
==>s => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1232	1343	
==>s => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9729	9847	
==>$_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9709	9827	
==>$_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24874	24968	
==>1 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24874	24968	
==>1 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamic <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20234	20329	
==>_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internals::s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6002	6096	
==>& CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6002	6096	
==>& CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actu <==
4	/Users/nnunley/pugs/util/addauthors.pl	250	342	
==>h (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11452	11548	
==>ts in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11452	11548	
==>ts in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Retu <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4193	4288	
==>16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4193	4288	
==>16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28284	28386	
==>le
for debugging purposes (such as to test that the object's contents look
good at a glance); no attrib <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35640	35742	
==>le
for debugging purposes (such as to test that the object's contents look
good at a glance); no attrib <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28284	28386	
==>le
for debugging purposes (such as to test that the object's contents look
good at a glance); no attrib <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35640	35742	
==>le
for debugging purposes (such as to test that the object's contents look
good at a glance); no attrib <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2327	2460	
==>tracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2237	2366	
==>tracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5705	5807	
==>__DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5705	5807	
==>__DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2013	2117	
==>, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	383	487	
==>ing @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2013	2117	
==>, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2013	2117	
==>, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2370	2487	
==>must be a string type";    
    return str->new(
        CORE::join $delimiter->to_native => 
        map { $_->to_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1061	1161	
==>y slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1061	1161	
==>y slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1061	1161	
==>y slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5061	5242	
==>ap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5073	5254	
==>ap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	642	742	
==>:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	642	742	
==>:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12965	13142	
==>)
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21015	21192	
==>)
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13244	13421	
==>)
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21294	21471	
==>)
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2923	3061	
==>tch => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2809	2943	
==>tch => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7058	7162	
==>, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a diff <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7058	7162	
==>, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a diff <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8845	8965	
==>values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8845	8965	
==>values,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9101	9215	
==>values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work...
    % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9101	9215	
==>values,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work...
    % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1764	1885	
==>fy {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1764	1885	
==>fy {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1764	1885	
==>fy {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2667	2774	
==>], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1601	1717	
==>sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6543	6650	
==>te($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6543	6650	
==>te($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1512	1610	
==>sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24847	24945	
==>if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the construc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23611	23709	
==>if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the construc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24847	24945	
==>if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the construc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23611	23709	
==>if you post too many commands in too short time.

If you supply C<:floodcontrol(1)> to the construc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3257	3397	
==>_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3504	3644	
==>_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifie <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	452	570	
==>ss->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10876	10981	
==>{tree} = $self->{data}[-1];
    }
  }
}


{
  package Regexp::Parser::exact;
  push @ISA, qw( Regexp::Pars <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3866	3987	
==><rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3866	3987	
==><rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4398	4513	
==><rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4398	4513	
==><rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7367	7534	
==>ndency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{versio <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7831	7998	
==>ndency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{versio <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12214	12308	
==>r of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12214	12308	
==>r of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1025	1125	
==>or
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1025	1125	
==>or
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# stat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24929	25023	
==>of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29481	29575	
==>of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11731	11850	
==>(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11731	11850	
==>(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11731	11850	
==>(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var <==
4	/Users/nnunley/pugs/util/fixauthors.pl	251	361	
==>} 
  map {my $x=$_; $x=~tr/A-Za-z//cd; [$_, $x]} 
  @a;

foreach (@a) {
  next unless /\)$/;
  next unless /\(( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8144	8274	
==>le !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8144	8274	
==>le !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2877	2993	
==>parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadF <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3341	3457	
==>parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadF <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4602	4752	
==>" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5066	5216	
==>" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9517	9621	
==>ext;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Mod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9517	9621	
==>ext;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8080	8202	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8080	8202	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8080	8202	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1911	2025	
==>$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'TestBuilde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1141	1247	
==>primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1141	1247	
==>primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1141	1247	
==>primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postw <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3925	4038	
==>nking scripts/manpages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) {
            cho <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3359	3453	
==>ling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTI <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3359	3453	
==>ling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTI <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3439	3533	
==>ling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20190	20321	
==>:Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20190	20321	
==>:Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20190	20321	
==>:Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4	113	
==>age Regexp::Parser;

sub init {
  my ($self) = @_;

  # /m, /s, /i, /x flags
  $self->add_flag('m' => sub { 0x <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	391	490	
==>CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	391	490	
==>CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17476	17567	
==>ogether with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17476	17567	
==>ogether with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1866	1993	
==>:$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5343	5470	
==>:$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4273	4400	
==>:$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3549	3663	
==>y $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13405	13507	
==>::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13405	13507	
==>::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13405	13507	
==>::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7302	7456	
==>('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7302	7456	
==>('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7302	7456	
==>('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###.... <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	585	693	
==>aque object 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9147	9255	
==>don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-lin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	369	473	
==>ree
# NOTE: 
# compare returns a native boolean though,
# so it should be considered a protected 
# metho <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15848	15944	
==>mmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19325	19421	
==>mmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6691	6788	
==>s primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6691	6788	
==>s primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6691	6788	
==>s primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1). <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7151	7263	
==>>add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7151	7263	
==>>add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1820	1924	
==>>add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1820	1924	
==>>add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1065	1161	
==>1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote. <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1065	1161	
==>1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17455	17544	
==>his header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17455	17544	
==>his header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24594	24695	
==>ENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23358	23459	
==>ENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24594	24695	
==>ENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23358	23459	
==>ENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged in.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14585	14780	
==>be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14585	14780	
==>be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14585	14780	
==>be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'm <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2991	3084	
==>le failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4496	4638	
==>fy}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4496	4638	
==>fy}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4496	4638	
==>fy}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '( <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9132	9267	
==>,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1060	1173	
==>t files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1060	1173	
==>t files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1060	1173	
==>t files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6661	6770	
==>dex_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$groups;

    my @index_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2097	2203	
==>e::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	274	360	
==>s::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	274	360	
==>s::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	140	242	
==>qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	144	246	
==>qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	138	240	
==>qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	138	240	
==>qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3359	3479	
==>"Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3370	3490	
==>"Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3714	3820	
==>Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3714	3820	
==>Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10349	10462	
==>$?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].define <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10349	10462	
==>$?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].define <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11955	12050	
==>is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method crea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11955	12050	
==>is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method crea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15846	15952	
==>return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_hand <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10702	10808	
==>return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_hand <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5869	5973	
==>ribute->new('@:subclasses')      => list->new(),
            attribute->new('@:superclasses')    => list- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1178	1280	
==>E_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1178	1280	
==>E_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1178	1280	
==>E_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use J <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5571	5672	
==>L_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1206	1301	
==>) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1206	1301	
==>) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1206	1301	
==>) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8013	8124	
==>orization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8013	8124	
==>orization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5806	5909	
==>::unshift (@array is rw ; *@values --> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.elem <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7272	7373	
==>::unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elem <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17788	17905	
==>ot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16826	16943	
==>ot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17788	17905	
==>ot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16826	16943	
==>ot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	176	301	
==>);
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	176	301	
==>);
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	176	301	
==>);
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pai <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1398	1480	
==>s>|<hash_alias>|<external_scalar_alias>|<external_array_alias>|<external_hash_alias <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1160	1294	
==>Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1160	1294	
==>Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6171	6281	
==>his is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6171	6281	
==>his is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21156	21263	
==>$S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17577	17684	
==>$S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1145	1240	
==>=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1198	1293	
==>=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27062	27157	
==>t> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31614	31709	
==>t> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30670	30765	
==>t> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38688	38781	
==>urances of any given variable name will be replaced, non-recursively,
and any "<foo>" not matc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38688	38781	
==>urances of any given variable name will be replaced, non-recursively,
and any "<foo>" not matc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4767	4858	
==>t_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4767	4858	
==>t_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attri <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4012	4125	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4070	4183	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14261	14408	
==>ors/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14261	14408	
==>ors/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14261	14408	
==>ors/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14886	14996	
==>file from the name of
	# the command.

	if ($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_perl: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2938	3038	
==>aram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2938	3038	
==>aram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2938	3038	
==>aram}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3324	3470	
==>ns block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3739	3837	
==>Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3739	3837	
==>Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3739	3837	
==>Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	273	367	
==>use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	939	1049	
==>bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	939	1049	
==>bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	939	1049	
==>bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PL <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	367	488	
==>[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16723	16818	
==>lue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() withou <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16723	16818	
==>lue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() withou <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16723	16818	
==>lue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() withou <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23623	23747	
==>COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3456	3572	
==>= 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3673	3789	
==>= 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28853	28950	
==>COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36237	36353	
==>e);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  # matches the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3466	3567	
==>op();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3466	3567	
==>op();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3466	3567	
==>op();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1694	1840	
==>or (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1694	1840	
==>or (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1694	1840	
==>or (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (k <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	457	598	
==>schema;

    for my $class ( $schema->classes ) {

        class($class->name =>
              { instance =>
                { methods => { ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1319	1420	
==>btract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1319	1420	
==>btract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1319	1420	
==>btract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Va <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2391	2512	
==>ive_control;

        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	559	667	
==>PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	559	667	
==>PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	559	667	
==>PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1387	1513	
==>t:

    y - target value for y
    f - function of one variable

It looks for an x such that f(x) is y.

You may optionally sup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7275	7392	
==>arn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clon <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7275	7392	
==>arn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clon <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7275	7392	
==>arn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clon <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5012	5123	
==>onstant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5012	5123	
==>onstant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	426	542	
==>ERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	426	542	
==>ERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	426	542	
==>ERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1848	1953	
==>is plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	698	807	
==>lurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	698	807	
==>lurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	698	807	
==>lurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16755	16872	
==>al pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8598	8690	
==>gs "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8598	8690	
==>gs "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8598	8690	
==>gs "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36510	36605	
==>combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41059	41154	
==>combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40673	40768	
==>combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8520	8613	
==>ymbol $label)) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ($label)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9010	9142	
==>";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ar <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	744	876	
==>";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9010	9142	
==>";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9010	9142	
==>";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_ar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6953	7081	
==>= 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6953	7081	
==>= 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8983	9105	
==>= %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8983	9105	
==>= %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17841	18009	
==>,
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17841	18009	
==>,
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Nod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14720	14815	
==>close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, whi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14720	14815	
==>close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, whi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3250	3359	
==>\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functiona <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3250	3359	
==>\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functiona <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	112	206	
==>ge Module::Install::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	13	106	
==>ge Module::Install::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7127	7244	
==>ailable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to de <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	428	545	
==>ailable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9483	9572	
==>, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3308	3397	
==>, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6795	6943	
==>{ $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus the current one
    for my $key (@copy) {
        my $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6788	6890	
==>1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7160	7262	
==>1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7459	7561	
==>1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24676	24776	
==>ully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runlo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23440	23540	
==>ully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runlo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24676	24776	
==>ully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runlo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23440	23540	
==>ully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runlo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9625	9726	
==>'
    # -----------------------------------------------      
    method collect_all_roles () { "<impl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9625	9726	
==>'
    # -----------------------------------------------      
    method collect_all_roles () { "<impl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9625	9726	
==>'
    # -----------------------------------------------      
    method collect_all_roles () { "<impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	996	1126	
==>gs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	996	1126	
==>gs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	996	1126	
==>gs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js} <==
4	/Users/nnunley/pugs/util/func_refact.pl	2277	2396	
==>nodes) {
        #print "trying: $cand\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #print "p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2718	2827	
==>{
  # \s \S
  package Regexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1638	1735	
==>a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemen <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1638	1735	
==>a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemen <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1638	1735	
==>a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemen <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4994	5105	
==>urns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which wi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4994	5105	
==>urns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which wi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6750	6850	
==>t has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...} <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6750	6850	
==>t has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10540	10710	
==>sion
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> $a->version } @maybe;
        }

        ### no alt? bail!
        la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7164	7254	
==>gleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8159	8249	
==>gleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10728	10818	
==>gleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/test.pl	18	140	
==>"a#" ~ foo("test"); # test
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 };
# sec <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4085	4201	
==>eturn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4085	4201	
==>eturn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4085	4201	
==>eturn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map { <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	104	204	
==>i *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	104	204	
==>i *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:< <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	149	243	
==>Iterator

=head1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it = Test::Harness::Iterator->n <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30954	31047	
==>al's attributes; the new Relation::Example has as
many additional attributes as there are pair <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7473	7598	
==>lags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4834	4943	
==>JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4834	4943	
==>JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4834	4943	
==>JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5283	5415	
==>);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6551	6683	
==>);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5283	5415	
==>);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6539	6671	
==>);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20076	20168	
==>s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20076	20168	
==>s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20076	20168	
==>s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1667	1787	
==>on.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1667	1787	
==>on.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1667	1787	
==>on.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14012	14121	
==>', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3126	3221	
==>em Arcfour is susceptible to related-key attacks.

This means that you should strive to use only <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3126	3221	
==>em Arcfour is susceptible to related-key attacks.

This means that you should strive to use only <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2756	2876	
==>"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # sm <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2756	2876	
==>"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # sm <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1691	1794	
==>ception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::E <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1691	1794	
==>ception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::E <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23060	23160	
==>ues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27612	27712	
==>ues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26389	26489	
==>ues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tup <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7404	7542	
==>} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7597	7735	
==>} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11695	11780	
==><lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11695	11780	
==><lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4662	4788	
==>( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4662	4788	
==>( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4662	4788	
==>( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0 <==
4	/Users/nnunley/pugs/util/func_refact.pl	1737	1857	
==>f}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4836	4936	
==>r @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4836	4936	
==>r @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4836	4936	
==>r @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5214	5326	
==>==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5214	5326	
==>==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5214	5326	
==>==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2093	2193	
==>' { Pugs::Internals::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	424	538	
==>pen   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	424	538	
==>pen   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1436	1549	
==>pen   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1436	1549	
==>pen   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16069	16188	
==>TICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16069	16188	
==>TICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $t <==
4	/Users/nnunley/pugs/util/testgraph.pl	1411	1519	
==>odel::Visual/;
    sub file_class { "My::File" }
    
    package My::File;
    use base qw/Test::TAP::Model: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16153	16251	
==>%params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16153	16251	
==>%params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16153	16251	
==>%params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10229	10322	
==>a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10229	10322	
==>a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10229	10322	
==>a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11724	11833	
==>o handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method hand <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11724	11833	
==>o handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method hand <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2908	3011	
==>anslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find use <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2908	3011	
==>anslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7470	7600	
==>rom = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7458	7588	
==>rom = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10588	10705	
==>me' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10746	10863	
==>me' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3734	3855	
==>tmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3734	3855	
==>tmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	584	705	
==>tmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4511	4611	
==>s
out each individual test which failed along with a summary report and
a how long it all took.

It r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	107	211	
==>sar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13(" <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	107	211	
==>sar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13(" <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2929	3023	
==>ther) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2929	3023	
==>ther) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4319	4461	
==>turn;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29365	29454	
==>ple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The member <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33917	34006	
==>ple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The member <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33081	33170	
==>ple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The member <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	657	769	
==>m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	657	769	
==>m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_k <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3250	3350	
==>ng(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6727	6827	
==>ng(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4365	4464	
==>logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15801	15900	
==>logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4365	4464	
==>logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15801	15900	
==>logical value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2895	2990	
==>trict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2895	2990	
==>trict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2895	2990	
==>trict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2401	2546	
==>elf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2401	2546	
==>elf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2401	2546	
==>elf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Per <==
4	/Users/nnunley/pugs/util/drift.pl	619	754	
==>s/--.*$//;
    /\S/ or next;
    print TMP $_;
}
close IN;
close TMP;

my ($rh, $wh);

system(
    'ghc',
    '--make',
    '-o' => $set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7677	7833	
==>ed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7677	7833	
==>ed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7677	7833	
==>ed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9173	9299	
==>Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, pos, 2 <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	130	261	
==>uration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ve <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	138	269	
==>uration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ve <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	130	261	
==>uration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ve <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	138	269	
==>uration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 DateTime::Span
        - Perl5 ve <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3966	4071	
==>eft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: L <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3966	4071	
==>eft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: L <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	140	241	
==>{
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$ <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	140	241	
==>{
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14165	14400	
==>ce->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14165	14400	
==>ce->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14165	14400	
==>ce->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29101	29195	
==>::Example
which is the same as the invocant Relation::Example but that some of its attributes
a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2121	2287	
==>:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2121	2287	
==>:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2121	2287	
==>:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2j <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7532	7617	
==>$orig_thunk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->fixity || "") eq "infi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9044	9207	
==>]; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0] <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5748	5844	
==>t run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5748	5844	
==>t run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7272	7368	
==>t run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	117	224	
==>qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	117	224	
==>qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	117	224	
==>qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7189	7273	
==>idea

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7189	7273	
==>idea

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9023	9160	
==>r them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9023	9160	
==>r them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9023	9160	
==>r them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21866	21979	
==>lass_pos(ascii)     ,C) :- !,    isAscii(C).
class_member(class_neg(ascii)     ,C) :- !, \+(isAscii(C)).
class_mem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1218	1321	
==>self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41061	41160	
==>sion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41061	41160	
==>sion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41061	41160	
==>sion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40644	40751	
==>t @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40644	40751	
==>t @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40644	40751	
==>t @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key ) <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	20	122	
==>ait
sub storage is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9118	9234	
==>if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LIN <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2153	2269	
==>if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LIN <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8081	8178	
==>R HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use the next <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2983	3103	
==>a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2983	3103	
==>a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2983	3103	
==>a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8196	8315	
==>est_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal dig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13475	13690	
==>atcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13475	13690	
==>atcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13475	13690	
==>atcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-d <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7520	7621	
==>amp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => "Searching fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2187	2310	
==>stance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2187	2310	
==>stance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2187	2310	
==>stance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $insta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2552	2661	
==>to_native
    )     
}

# some of the common list operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	66	168	
==>neuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Dem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	66	168	
==>neuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Dem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	66	168	
==>neuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Dem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	924	1053	
==>t{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	949	1078	
==>t{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non', <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	607	718	
==>bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket wit <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	607	718	
==>bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket wit <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2171	2278	
==>(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2171	2278	
==>(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	623	723	
==>=> \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	623	723	
==>=> \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4150	4255	
==>ntent.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4150	4255	
==>ntent.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1060	1154	
==>ilter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1060	1154	
==>ilter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8717	8826	
==>ub') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	702	814	
==>in::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	702	814	
==>in::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	702	814	
==>in::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	497	603	
==>bject  = undef;
$::Module  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (ver <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	630	750	
==>y =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	720	829	
==>= ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	720	829	
==>= ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	720	829	
==>= ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg" <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	50	180	
==>le;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_DE.utf8");

sub slurp {
    my ($file) = @_;
    no warnings;
    ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	133	240	
==>rName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	133	240	
==>rName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	133	240	
==>rName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrou <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	260	366	
==>e other clutter because of unclear design.

    $.from         - The place where this subrule/group started <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	260	366	
==>e other clutter because of unclear design.

    $.from         - The place where this subrule/group started <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	22	117	
==>tegy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is tru <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	22	117	
==>tegy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is tru <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2348	2473	
==>automatically by  --
--                  util/gen_prelude.pl                       --
---------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	560	663	
==>new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	560	663	
==>new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	560	663	
==>new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13320	13414	
==>sion

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1091	1205	
==>keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1091	1205	
==>keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1091	1205	
==>keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2974	3061	
==>= Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<term1>)<?p6ws>?\= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17560	17699	
==>ymbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40829	40968	
==>ymbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	65	161	
==>s scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parenth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	65	161	
==>s scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parenth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22308	22485	
==>n $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22308	22485	
==>n $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22308	22485	
==>n $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21344	21430	
==>ass_member(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5887	5997	
==>_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5887	5997	
==>_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5887	5997	
==>_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4066	4161	
==>t::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4066	4161	
==>t::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10009	10103	
==>atch? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',de <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10744	10838	
==>atch? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',de <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40609	40706	
==>RCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40609	40706	
==>RCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28306	28399	
==>as the invocant Relation but that some of its attributes
have been combined/wrapped into tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32858	32951	
==>as the invocant Relation but that some of its attributes
have been combined/wrapped into tuple <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	47	152	
==>efail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	47	152	
==>efail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14934	15037	
==>ss->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14934	15037	
==>ss->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub p <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	72	200	
==>ument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbati <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	72	200	
==>ument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbati <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	72	200	
==>ument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbati <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	72	200	
==>ument',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbati <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2804	2909	
==>erm = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2792	2897	
==>erm = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quant <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33608	33701	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38158	38251	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Rela <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6941	7074	
==>sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6929	7062	
==>sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4578	4678	
==>( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4578	4678	
==>( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2369	2472	
==>lass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2369	2472	
==>lass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2369	2472	
==>lass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43356	43447	
==>YRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9367	9513	
==>=head1 Perl 6 Code
  
  class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$ski <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35297	35395	
==>t this method will fail if any of its source Relations
have attributes in common; it will only acce <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39847	39945	
==>t this method will fail if any of its source Relations
have attributes in common; it will only acce <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39407	39505	
==>t this method will fail if any of its source Relations
have attributes in common; it will only acce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17483	17626	
==>y' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17483	17626	
==>y' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17483	17626	
==>y' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::i <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	339	449	
==>f->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::Conf <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4901	5040	
==>ted and (length $initchar < 2))
        {
          goto term_literal;
        }
        $matchObj->{value} = $initchar;
        $matchObj-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18086	18308	
==>.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pai <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21563	21785	
==>.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pai <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21150	21372	
==>.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pai <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13690	13801	
==>mand as root:
      # umount $initrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	483	613	
==>, signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'bare_block' => $_[2] } }
    ;
    
attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1311	1409	
==>our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1311	1409	
==>our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1311	1409	
==>our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reen <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	59	161	
==>mpare the result of all the listed cookbook files
# to some expected set of results
# later it can be m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5278	5379	
==>elf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5278	5379	
==>elf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5278	5379	
==>elf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19257	19352	
==>ad2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19257	19352	
==>ad2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently conne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3619	3713	
==>itional invocant named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4521	4651	
==>match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4521	4651	
==>match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print po <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9259	9364	
==>"'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entit <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9259	9364	
==>"'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3142	3275	
==>sses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3142	3275	
==>sses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3142	3275	
==>sses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	231	332	
==>the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src' <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5221	5317	
==>m get($url)

The get() function will fetch the document identified by the given URL
and return it <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5221	5317	
==>m get($url)

The get() function will fetch the document identified by the given URL
and return it <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10264	10352	
==>+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10999	11087	
==>+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6384	6509	
==>family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{data} = $type;
    }
    else {
      $self->{type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16726	16822	
==>::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16726	16822	
==>::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16726	16822	
==>::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without pa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5122	5219	
==>.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4249	4346	
==>.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5122	5219	
==>.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4249	4346	
==>.not_equal($two);
}
multi sub *infix:<≠> (Set $one, Set $two) returns Set {
    $one.not_equal($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9667	9761	
==>Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9667	9761	
==>Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9667	9761	
==>Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1483	1583	
==>}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1483	1583	
==>}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1483	1583	
==>}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	707	802	
==>e->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Builti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17620	17769	
==>=> 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_va <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17620	17769	
==>=> 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_va <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7981	8078	
==>tem' directive is reached, the next event fired will be
any text which follows the item.

=item I< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7981	8078	
==>tem' directive is reached, the next event fired will be
any text which follows the item.

=item I< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17194	17302	
==>l->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17194	17302	
==>l->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17194	17302	
==>l->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() for <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	252	342	
==>ap';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	306	414	
==>ixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	306	414	
==>ixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::pos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	306	414	
==>ixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::pos <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7199	7313	
==>art = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7199	7313	
==>art = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7996	8096	
==>$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7984	8084	
==>$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2254	2364	
==>ompiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

U <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2254	2364	
==>ompiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

U <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1481	1585	
==>ompiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

U <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3342	3446	
==>ompiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

U <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1192	1347	
==>.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1192	1347	
==>.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	93	185	
==>ar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	93	185	
==>ar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1468	1666	
==>e
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5326	5430	
==>f->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5326	5430	
==>f->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5326	5430	
==>f->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOP <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15512	15655	
==>paren matched */

Other things the world messes with:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possi <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1156	1282	
==>ex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curli <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1156	1282	
==>ex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curli <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	868	969	
==>new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning handler
BEGI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21999	22132	
==>asses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21999	22132	
==>asses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21999	22132	
==>asses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	914	1035	
==>"sorry, only scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15929	16124	
==>pture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15923	16118	
==>pture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $su <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	991	1173	
==>*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_ <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	991	1173	
==>*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2024	2231	
==>g);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5501	5708	
==>g);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4431	4638	
==>g);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	542	640	
==>used in a safe
context (such as the IRC evalbot) using `is safe` or `is unsafe`.

For functions exp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2308	2423	
==>': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1100	1204	
==>rgs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1100	1204	
==>rgs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1100	1204	
==>rgs are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24457	24571	
==>ar('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24457	24571	
==>ar('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24457	24571	
==>ar('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match- <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16357	16457	
==>n("digest") and my $native = $r->provides($builtin->digest)){
        $val->set($native); # it's a Pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1184	1296	
==>method'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1184	1296	
==>method'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1184	1296	
==>method'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4717	4810	
==>ogical_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_cla <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	555	659	
==>ew( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %para <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	555	659	
==>ew( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %para <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6711	6806	
==>st:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6723	6818	
==>st:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1478	1635	
==>put.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not sp <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1478	1635	
==>put.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not sp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5973	6068	
==>', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10230	10325	
==>', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1446	1686	
==>eop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4909	5007	
==>you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4909	5007	
==>you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4909	5007	
==>you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2651	2794	
==>tal    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5460	5554	
==>w_role->version($version)     if defined $version;
    $new_role->authority($authority) if defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5460	5554	
==>w_role->version($version)     if defined $version;
    $new_role->authority($authority) if defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5460	5554	
==>w_role->version($version)     if defined $version;
    $new_role->authority($authority) if defi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20121	20215	
==>tring_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16986	17078	
==>:Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16986	17078	
==>:Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16986	17078	
==>:Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11915	12043	
==>-&RxPOS;
        my $v = "";

        # outside of char class, \nnn might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2304	2407	
==>uld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2304	2407	
==>uld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2304	2407	
==>uld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(k <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14421	14527	
==>.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14421	14527	
==>.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	433	531	
==>Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $other) returns Duration { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10933	11029	
==>gex you passed it, but it will not operate
differently.

The string representation is built by ca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	285	387	
==>no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perfor <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	296	398	
==>no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perfor <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16889	16986	
==>eld is used as a modifier to the
media type.  When present, its value indicates what additional
en <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16889	16986	
==>eld is used as a modifier to the
media type.  When present, its value indicates what additional
en <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2125	2240	
==>>name in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $si <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11537	11658	
==>('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11537	11658	
==>('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2163	2262	
==>);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $othe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2163	2262	
==>);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $othe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9492	9648	
==>$cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15036	15192	
==>$cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9492	9648	
==>$cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15030	15186	
==>$cmd eq 'commit' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	237	342	
==>rn bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	237	342	
==>rn bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	237	342	
==>rn bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	848	946	
==>de => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	848	946	
==>de => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	848	946	
==>de => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::R <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21003	21099	
==>s pushed to the queue are after an opening
parenthesis or after 'atom' matches.  This makes thing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2876	2984	
==>\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2876	2984	
==>\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2876	2984	
==>\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8888	8981	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3817	3910	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8888	8981	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3817	3910	
==>HT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16195	16434	
==>ar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16474	16713	
==>ar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional( <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3610	3708	
==>date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3610	3708	
==>date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21691	22204	
==>pping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=enco <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18214	18712	
==>pping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

= <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1160	1263	
==>s Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that ha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1160	1263	
==>s Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32667	32765	
==>tack.

The purpose of adding an ending node to the walking stack is that ending
nodes are all omitt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4127	4225	
==>doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subretu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4127	4225	
==>doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subretu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4127	4225	
==>doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subretu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10687	10817	
==>ents and returns a "rule".

=cut

=for later
# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7499	7583	
==>------------------------------------------------------------------------
## END BOOTS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7499	7583	
==>------------------------------------------------------------------------
## END BOOTS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7499	7583	
==>------------------------------------------------------------------------
## END BOOTS <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11805	11916	
==>g of keys that is expected to happen,
but wishes to compare them with something other than C<E<lt>=E<gt>> or
C<c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1502	1606	
==>die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1502	1606	
==>die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23770	23864	
==>rl6::Run::OnPerl5::X1::Api::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
       if <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	15	119	
==>rver::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$por <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	15	119	
==>rver::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$por <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30980	31072	
==>in which case
this method returns the identity-one Relation or the invocant relation,
respect <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35530	35622	
==>in which case
this method returns the identity-one Relation or the invocant relation,
respect <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6750	6877	
==>ata_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6750	6877	
==>ata_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17882	17977	
==>e being
used by the originating server program handling the request.

=item $h.from

This header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17882	17977	
==>e being
used by the originating server program handling the request.

=item $h.from

This header <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	221	347	
==>turn "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	221	347	
==>turn "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1145	1239	
==>- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1145	1239	
==>- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional re <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1681	1845	
==>{
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1681	1845	
==>{
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1091	1246	
==>e ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.val <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1091	1246	
==>e ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.val <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4830	4953	
==>i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3601	3712	
==>routines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	218	328	
==>ment the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our %hash;

sub recompile {
    my $cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2008	2114	
==>n single-line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	654	750	
==>L2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	654	750	
==>L2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	654	750	
==>L2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13644	13748	
==>ession>
    | <'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <Me <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6414	6512	
==>s.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6414	6512	
==>s.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8611	8709	
==>s.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7111	7232	
==>ub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7111	7232	
==>ub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7111	7232	
==>ub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ar <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17609	17725	
==>tch = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	124	225	
==>aModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	124	225	
==>aModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	124	225	
==>aModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4484	4569	
==>d(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range <==
4	/Users/nnunley/pugs/util/package-osx.pl	4011	4108	
==>man3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/ma <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30742	30833	
==>onding transformation of each tuple), but
that any duplicates following the transformation h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35293	35384	
==>onding transformation of each tuple), but
that any duplicates following the transformation h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34484	34575	
==>onding transformation of each tuple), but
that any duplicates following the transformation h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5993	6148	
==>nt: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5993	6148	
==>nt: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	647	757	
==>";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	647	757	
==>";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callb <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42512	42631	
==>)
);

$::Object->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4346	4449	
==>"smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4346	4449	
==>"smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4346	4449	
==>"smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1206	1332	
==>@expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementContro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9055	9180	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9055	9180	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9055	9180	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) } <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7729	7834	
==>erse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7729	7834	
==>erse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9869	9965	
==>mple set of common test utility functions, and is
an implementation of the TAP protocol.

This mo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9927	10023	
==>mple set of common test utility functions, and is
an implementation of the TAP protocol.

This mo <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14761	14860	
==>=back


=head2 Str

General notes about strings:

A Str can exist at several Unicode levels at once. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2473	2568	
==>ds{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2473	2568	
==>ds{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2473	2568	
==>ds{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1656	1759	
==>>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1656	1759	
==>>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1656	1759	
==>>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13638	13723	
==>digit(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigits2_int(I) -->
  hexdigit(D0 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3505	3642	
==>) {
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4889	5018	
==>) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            return ::opaque_instance_class(shi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3771	3892	
==>me as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3783	3904	
==>me as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x , <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	728	868	
==>ule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	728	868	
==>ule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4547	4653	
==>ne ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4547	4653	
==>ne ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25876	25991	
==>ass->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # method body
        method-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8402	8501	
==>E  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8402	8501	
==>E  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8402	8501	
==>E  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	517	633	
==>n ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	517	633	
==>n ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $me <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6721	6827	
==>em body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6721	6827	
==>em body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7856	8072	
==>my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7856	8072	
==>my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7856	8072	
==>my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15091	15214	
==>(\$class: %attrs)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('CREATE'),
    # method b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13156	13270	
==>expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9342	9456	
==>expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10178	10292	
==>expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15711	15818	
==>whatever called on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeri <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2120	2245	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rath <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2120	2245	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rath <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	598	698	
==>times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not gi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	598	698	
==>times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not gi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7805	7908	
==>xed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5136	5239	
==>><octaldigit><octaldigit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hex <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7805	7908	
==>xed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7805	7908	
==>xed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15927	16013	
==>1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11455	11591	
==>as Str $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This w <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1903	2027	
==>as Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This w <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1903	2027	
==>as Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3639	3740	
==>) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3639	3740	
==>) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3639	3740	
==>) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38456	38561	
==>consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13610	13702	
==>row PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13610	13702	
==>row PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $E <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13610	13702	
==>row PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $E <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10474	10567	
==>$i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17416	17509	
==>$i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10474	10567	
==>$i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17416	17509	
==>$i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1545	1644	
==>);

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1545	1644	
==>);

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1545	1644	
==>);

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $meth <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3238	3326	
==>Fail  Failed  List of Failed
  ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16452	16558	
==>label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16452	16558	
==>label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16452	16558	
==>label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => ' <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1310	1404	
==>sh @devs_till_day, $devs_till_day[-1] while
  @devs_till_day < @commits_till_day;

# Create the <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4410	4515	
==>s to precompile the Prelude\n"
        unless $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1165	1261	
==>se to the main namespace for your tastes, and
you want to rebless everything down to your project <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1165	1261	
==>se to the main namespace for your tastes, and
you want to rebless everything down to your project <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1165	1261	
==>se to the main namespace for your tastes, and
you want to rebless everything down to your project <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9925	10022	
==>lementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features a <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9983	10080	
==>lementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features a <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1824	1989	
==>ch, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1824	1989	
==>ch, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7529	7615	
==>mar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1354	1440	
==>mar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	193	300	
==>b new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	193	300	
==>b new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	193	300	
==>b new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->fun <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1497	1591	
==>list->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self->{env <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35114	35308	
==>L) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7186	7273	
==>ed($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7186	7273	
==>ed($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7186	7273	
==>ed($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	878	990	
==>ey)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. <==
4	/Users/nnunley/pugs/misc/S29_round.pl	838	950	
==>::round_half_down_symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given ab <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	878	990	
==>ey)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	878	990	
==>ey)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9056	9166	
==>t;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9056	9166	
==>t;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9056	9166	
==>t;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15242	15338	
==>C</(?<=\w)(?!\w)/>. (So
that's the object's qr() method for you right there!)

=item Regexp::MinL <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9671	9783	
==>max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with hei <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9671	9783	
==>max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with hei <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9873	9967	
==>currence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify() <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9873	9967	
==>currence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18197	18293	
==>ere multiple DBMS
objects want to use the same external resources, such as a repository file
on d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18197	18293	
==>ere multiple DBMS
objects want to use the same external resources, such as a repository file
on d <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2669	2764	
==>smit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2669	2764	
==>smit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	35	150	
==>e Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    whil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1742	1833	
==>ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1742	1833	
==>ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1742	1833	
==>ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" } <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11345	11437	
==>de (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11345	11437	
==>de (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (St <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7016	7182	
==>$span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7016	7182	
==>$span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $. <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	146	230	
==>-Bible/lib/Perl6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl.perl6.language/2 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2252	2350	
==>tains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2252	2350	
==>tains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30456	30552	
==>ative for the rest
of the set. There is a separate template module for each distinct "user
langua <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30456	30552	
==>ative for the rest
of the set. There is a separate template module for each distinct "user
langua <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2622	2723	
==>nt.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	595	695	
==>w>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	595	695	
==>w>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2526	2623	
==>nt.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12892	12997	
==>thod livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autopin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12892	12997	
==>thod livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autopin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3792	3895	
==>d union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3792	3895	
==>d union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11355	11482	
==>[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29197	29293	
==>d what they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' handle,
b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14674	14799	
==>as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14674	14799	
==>as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14674	14799	
==>as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34066	34160	
==>le whose attributes
(provided in C<$heading>) may or may not resemble those of the original.
Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13029	13139	
==>s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    wa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13029	13139	
==>s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    wa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13029	13139	
==>s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    wa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28181	28276	
==>->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::swi_toplevel;

__END <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	341	441	
==>Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in wh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	341	441	
==>Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in wh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	341	441	
==>Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in wh <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3297	3396	
==>pe' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a ' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	735	843	
==>Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	735	843	
==>Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	574	680	
==>Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	574	680	
==>Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1644	1749	
==>ir metainfo to one file
    my @metalist;
    for my $meta ( qx[find $Repodir -type f | grep '$Metaext\$'] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	546	648	
==>or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	546	648	
==>or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	546	648	
==>or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11845	11962	
==>Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11845	11962	
==>Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $ser <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2153	2265	
==>$code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2153	2265	
==>$code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13471	13581	
==>g eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13471	13581	
==>g eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13471	13581	
==>g eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protectio <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21797	21901	
==>ed";

    # Figure out our longest name string for formatting purposes.
    my $max_namelen = length($fai <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1775	1886	
==>y  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1775	1886	
==>y  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1775	1886	
==>y  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1619	1712	
==>lue) && ($return_value->isa($self->{sig}->returns) || $return_value->isa('nil')))
        || c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8885	9023	
==>appear" }
NODE TCxtLValue ($type) { "should not appear" }
NODE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8996	9117	
==>$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	730	851	
==>$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8996	9117	
==>$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8996	9117	
==>$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37589	37682	
==>of combining all of the source Relations,
such that all common attribute names and correspondi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42138	42231	
==>of combining all of the source Relations,
such that all common attribute names and correspondi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41788	41881	
==>of combining all of the source Relations,
such that all common attribute names and correspondi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5752	5851	
==>nfinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5752	5851	
==>nfinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5752	5851	
==>nfinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	729	819	
==>rks
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
	my $p5 = p6_wra <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	102	211	
==>lar::Util ();

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node unless $self->can_reduc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5573	5672	
==>SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $strin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5573	5672	
==>SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $strin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5573	5672	
==>SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $strin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4295	4403	
==>t $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4295	4403	
==>t $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5168	5275	
==>t $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5168	5275	
==>t $one, Set $two) returns Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2641	2755	
==>cher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2641	2755	
==>cher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2641	2755	
==>cher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of so <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	121	224	
==>leganter:
if any(wurf(), wurf(), wurf()) == 6 {
	... # aber: wurf() wird immer genau drei mal aufgerufen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10391	10549	
==>stance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10391	10549	
==>stance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10391	10549	
==>stance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1248	1342	
==>ttr_name) {
    return %!attrs{$attr_name};
}

method attr_name_exists of Bool (Relation::AttrN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1458	1559	
==>urn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1458	1559	
==>urn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3545	3641	
==>the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3545	3641	
==>the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_pa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6220	6315	
==>-> "^".
p5_elemental(eol)   --> "$". %"
p5_elemental(word_boundary)     --> "\\b", !.
p5_element <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6727	6896	
==>k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6727	6896	
==>k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3228	3327	
==>gs) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_d <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3228	3327	
==>gs) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8019	8124	
==>s, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $clas <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8019	8124	
==>s, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $clas <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	705	829	
==>ir bin_dir compile_dir ]),
          $INSTALLATION_DIR  
    ) {
        print "Creating dir: $_\n";
        system( qw[mkdir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	263	358	
==>::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	263	358	
==>::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	263	358	
==>::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6602	6721	
==>},
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6602	6721	
==>},
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6602	6721	
==>},
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	31034	31137	
==>schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

This program is free software; you <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3709	3815	
==>= 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3709	3815	
==>= 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3709	3815	
==>= 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice lis <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8614	8718	
==>$x->{symbol} eq $y->{symbol}
		or die "Can't unify $x->{symbol} with $y->{symbol} in " . Dumper(@_);
	
	u <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	801	917	
==>val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|OFF)/;
            $val = undef if $val eq "~";
            die "sor <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12274	12368	
==>(C), !.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], bracket <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1184	1275	
==>Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1184	1275	
==>Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PI <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2697	2794	
==>eams are enciphered with the same key, the encryption 
can be removed by XORing them together; you <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2697	2794	
==>eams are enciphered with the same key, the encryption 
can be removed by XORing them together; you <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10675	10769	
==>Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Trans <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10675	10769	
==>Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Trans <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1039	1207	
==>ift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_viv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40941	41049	
==>tems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40941	41049	
==>tems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40941	41049	
==>tems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8546	8657	
==>ed nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8546	8657	
==>ed nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  s <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	24	113	
==>egies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

u <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	24	113	
==>egies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

u <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1203	1303	
==>aml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2912	3001	
==>required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvoc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2912	3001	
==>required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvoc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2912	3001	
==>required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvoc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	656	820	
==>,

            'array_store' => sub { # evaluated in lvalue context as a list
                my $self = shift;
                my $repl = shift;
                @{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	459	566	
==>| $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	459	566	
==>| $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25274	25368	
==>e bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

Th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25274	25368	
==>e bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25010	25108	
==>he server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<ex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23774	23872	
==>he server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<ex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25010	25108	
==>he server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<ex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23774	23872	
==>he server, but creates a queue, which is then
slowly sent to the server.

=head1 EXAMPLES

See F<ex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5843	5954	
==>!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9320	9431	
==>!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18088	18184	
==>ress should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18088	18184	
==>ress should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5720	5830	
==>le-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5708	5818	
==>le-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6605	6710	
==>ete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6605	6710	
==>ete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(norma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5782	5977	
==>depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) { <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6246	6441	
==>depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3047	3144	
==>-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3047	3144	
==>-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set <==
4	/Users/nnunley/pugs/util/importgraph.pl	628	744	
==>.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4504	4611	
==>ous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4516	4623	
==>ous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4705	4802	
==>ght z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x(200);
is($p <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5216	5352	
==>hr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5216	5352	
==>hr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5738	5849	
==>ion?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5726	5837	
==>ion?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6809	6936	
==>$capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7002	7129	
==>$capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1063	1183	
==>$topic ~~ $wikiwords;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	129	224	
==>50288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	129	224	
==>50288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	129	224	
==>50288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17188	17295	
==>, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20665	20772	
==>, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20243	20350	
==>, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1507	1634	
==>ub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $sel <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7736	7851	
==>deC.c';
    }

    my $perl5_c = '';
    if (grep /^-DPUGS_HAVE_PERL5$/, @_) {
        $perl5_c = 'src/perl5/p5embed <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	46	154	
==>s Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if gr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	46	154	
==>s Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if gr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	255	366	
==>ot main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	255	366	
==>ot main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	255	366	
==>ot main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8508	8605	
==>ild it:

  $parser->parse;

This is not necessary, though, because the following methods will
invo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25944	26037	
==>licate each other,
or duplicate attribute names that aren't being renamed.  This method
suppor <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30496	30589	
==>licate each other,
or duplicate attribute names that aren't being renamed.  This method
suppor <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29471	29564	
==>licate each other,
or duplicate attribute names that aren't being renamed.  This method
suppor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8852	8942	
==>ss method fails';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calli <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4212	4326	
==>last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	118	219	
==>usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	118	219	
==>usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	118	219	
==>usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RES <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12623	12750	
==>efine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delete <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12623	12750	
==>efine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delete <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12623	12750	
==>efine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delete <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2972	3087	
==>bly be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6318	6431	
==>returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- ` <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8386	8499	
==>returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- ` <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6318	6431	
==>returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- ` <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8386	8499	
==>returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5961	6065	
==>returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5091	5195	
==>returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5961	6065	
==>returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5091	5195	
==>returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $o <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2343	2551	
==>xe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$_;
          }
         }
        else {
      warn "Cannot open log (in $testdir):$!";
        }
    }
}
co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	205	300	
==>e unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	205	300	
==>e unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	205	300	
==>e unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1666	1778	
==>);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1666	1778	
==>);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1666	1778	
==>);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	349	453	
==>riable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	349	453	
==>riable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]] <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10539	10632	
==>(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10539	10632	
==>(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciph <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38072	38226	
==>arn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38072	38226	
==>arn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38072	38226	
==>arn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49422	49571	
==>ersion'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:version'));
            }
        )
    )
);

$::Module-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1822	1943	
==>$curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1822	1943	
==>$curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nic <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2831	2932	
==>ption($subscription);
        }

        method remove_subscription (Class::Events::Subscription::Name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1406	1505	
==>{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1406	1505	
==>{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1406	1505	
==>{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10548	10637	
==>tal_space))  --> "\\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1658	1805	
==>.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1865	2012	
==>.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompil <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5974	6092	
==>arser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5974	6092	
==>arser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1000	1109	
==>::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1000	1109	
==>::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1000	1109	
==>::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9596	9723	
==>ard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9596	9723	
==>ard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6614	6728	
==>ntext ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6672	6786	
==>ntext ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8805	8903	
==>.return (mob)
 err_noclose:
    parse_error(mob, pos, "Missing closing braces for closure")
    .re <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2438	2534	
==>et($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2438	2534	
==>et($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($s <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7413	7508	
==>omplement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_nex <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7413	7508	
==>omplement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_nex <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1198	1359	
==>$cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4437	4598	
==>$cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1198	1359	
==>$cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4437	4598	
==>$cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9987	10130	
==>nboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9987	10130	
==>nboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9987	10130	
==>nboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8634	8733	
==>sts $suspect->{$_});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10830	10967	
==>]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10830	10967	
==>]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10830	10967	
==>]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37308	37392	
==>'list')));
$::Class->send('add_attribute', (symbol->new('%:private_methods') => attri <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6867	6976	
==>sult3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	295	402	
==>t" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloadin <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	295	402	
==>t" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloadin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29855	29951	
==>re

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29855	29951	
==>re

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor me <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	889	995	
==>g}->();
    if($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5097	5191	
==>"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5097	5191	
==>"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5097	5191	
==>"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11824	11921	
==>06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=hea <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11824	11921	
==>06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2449	2537	
==>$.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_clos <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2449	2537	
==>$.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_clos <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17078	17198	
==>{
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primitive is safe {
        Num::round_gen($n, & <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4712	4808	
==>est.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=bac <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4712	4808	
==>est.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=bac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6909	7005	
==>est.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9602	9779	
==>d eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15146	15323	
==>d eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9602	9779	
==>d eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15140	15317	
==>d eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8494	8615	
==>ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - nee <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8198	8312	
==>ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - nee <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8745	8849	
==>ecause that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8455	8556	
==>ecause that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3006	3170	
==>ubstr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2250	2345	
==>block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2250	2345	
==>block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2250	2345	
==>block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8054	8164	
==>$capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8247	8357	
==>$capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1404	1498	
==>ION

This is an experimental module which eases the use of functional programming
techniques in <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1404	1498	
==>ION

This is an experimental module which eases the use of functional programming
techniques in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5963	6079	
==>$method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5963	6079	
==>$method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5963	6079	
==>$method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_a <==
4	/Users/nnunley/pugs/util/importgraph.pl	2860	2964	
==>ge($name, $k, color => $color);
    $edges++;
  }
}
print "$nodes nodes and $edges edges\n";

#$g->as_can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1589	1730	
==>bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1589	1730	
==>bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1589	1730	
==>bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3776	3907	
==>_emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn "emit: ", Dumper( $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	234	343	
==>File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	154	263	
==>File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	152	261	
==>File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	150	259	
==>File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Message: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17883	18009	
==>b new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fami <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20763	20889	
==>b new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fami <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24551	24677	
==>b new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fami <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1764	1866	
==>urn" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3049	3159	
==>dubious
          Test returned status 3 (wstat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20429	20527	
==>nel displays a list of all the languages your programs do or
might have, and lets you arrange the l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20429	20527	
==>nel displays a list of all the languages your programs do or
might have, and lets you arrange the l <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2060	2155	
==>.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2060	2155	
==>.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:< <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12686	12829	
==>ne =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_header>

  my $is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8520	8623	
==>thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8520	8623	
==>thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8520	8623	
==>thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $b <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2997	3110	
==>, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2997	3110	
==>, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $spa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2215	2320	
==>s Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2215	2320	
==>s Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bo <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	873	1016	
==>am<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<afte <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	615	758	
==>am<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	873	1016	
==>am<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	615	758	
==>am<start> 
    {
        %tmp<start> = %param<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<afte <==
4	/Users/nnunley/pugs/util/package-osx.pl	8579	8700	
==>n.3pm

    );
}

sub change_files {
    my ($dest, %change_files) = @_;
    for my $orig (keys %change_files) {
        my <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	382	498	
==>rt
#                 iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::import { } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5450	5551	
==>>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5450	5551	
==>>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5450	5551	
==>>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_met <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3564	3673	
==>> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3932	4041	
==>> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	514	615	
==>: No compatible subroutine found: "&C" 
   this file is currently simply a source code generator.
   W <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	514	615	
==>: No compatible subroutine found: "&C" 
   this file is currently simply a source code generator.
   W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1653	1762	
==>("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1653	1762	
==>("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1653	1762	
==>("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1859	1965	
==>r=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce the data for this tool
     uti <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	867	982	
==>NDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its ele <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	867	982	
==>NDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its ele <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11653	11756	
==>('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $ex <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11653	11756	
==>('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $ex <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9755	9850	
==>et2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9755	9850	
==>et2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.in <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6638	6730	
==>on of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHO <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6638	6730	
==>on of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	620	735	
==>he moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $labe <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	976	1096	
==>ontinue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	238	342	
==>"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	238	342	
==>"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	238	342	
==>"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3456	3579	
==>ctored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3456	3579	
==>ctored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	815	909	
==>Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	815	909	
==>Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2206	2370	
==>ter => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2453	2617	
==>ter => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( < <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1818	1947	
==>kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1818	1947	
==>kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9618	9745	
==>}
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$noo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8123	8238	
==>nboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8123	8238	
==>nboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8123	8238	
==>nboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6909	7035	
==>$start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6909	7035	
==>$start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6909	7035	
==>$start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slic <==
4	/Users/nnunley/pugs/util/version_h.pl	2334	2434	
==>gs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1936	2038	
==>r( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END__

use YAML;
print Dump $match->( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	460	561	
==>n attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	460	561	
==>n attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	460	561	
==>n attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15740	15872	
==>" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/dev/null#NL:#;

        # VM <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20544	20638	
==>e, and then invoking methods on those objects.  All of
their class/object attributes are privat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25096	25190	
==>e, and then invoking methods on those objects.  All of
their class/object attributes are privat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23666	23760	
==>e, and then invoking methods on those objects.  All of
their class/object attributes are privat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13770	13952	
==>$e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt us <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13770	13952	
==>$e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt us <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3201	3301	
==>$source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3418	3518	
==>$source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::pri <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7613	7707	
==>d ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementation <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7613	7707	
==>d ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementation <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26856	26948	
==>he "Message Variables" attribute if the corresponding argument is
provided (it defaults to em <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26856	26948	
==>he "Message Variables" attribute if the corresponding argument is
provided (it defaults to em <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	248	360	
==>ings = 0;
my @tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line ( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16716	16818	
==>expects an int and will emit an int
# add (int -> int -> int) is resolved using val(10) into int -> int <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3007	3106	
==>ddr>

The IP address of the client, if available.

=back

In addition, the following request headers <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3007	3106	
==>ddr>

The IP address of the client, if available.

=back

In addition, the following request headers <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1807	1923	
==>);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	984	1098	
==>);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1457	1571	
==>);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1219	1329	
==>ub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self->{type} = $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3039	3153	
==>i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3039	3153	
==>i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3039	3153	
==>i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2956	3066	
==>count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2956	3066	
==>count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2956	3066	
==>count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitiv <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2177	2272	
==>ith taint mode on.

=head2 Configuration variables.

These variables can be used to configure th <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12072	12166	
==>e, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks wit <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12130	12224	
==>e, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks wit <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18427	18513	
==>s used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhos <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18427	18513	
==>s used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	405	525	
==>ny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	405	525	
==>ny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	405	525	
==>ny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        ret <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	665	778	
==>pires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesAdd($variable, $value) {
    %Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13184	13290	
==>ss_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13184	13290	
==>ss_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13184	13290	
==>ss_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5045	5154	
==>lue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5045	5154	
==>lue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1949	2058	
==>lue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,' <==
4	/Users/nnunley/pugs/util/package-osx.pl	5007	5104	
==>man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6::Bible::S22.3pm
        /usr/loca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1171	1280	
==>lder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1538	1627	
==>spatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1538	1627	
==>spatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1538	1627	
==>spatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $metho <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4185	4298	
==>mods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36064	36160	
==>adings. 
The body of the new relation is the result of first pairwise-matching every
tuple of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40614	40709	
==>adings.
The body of the new relation is the result of first pairwise-matching every
tuple of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40228	40323	
==>adings.
The body of the new relation is the result of first pairwise-matching every
tuple of the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15840	15982	
==>p1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp3} ) ;
    }

    return _not_implemented( $n, "tern <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6014	6114	
==>~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6014	6114	
==>~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6014	6114	
==>~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	374	475	
==>in is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	374	475	
==>in is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	374	475	
==>in is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17900	18052	
==>faults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16938	17090	
==>faults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17900	18052	
==>faults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16938	17090	
==>faults to $nick)
    host     => "localhost",
    port     => 6667,         # (optional)
    autoping => 90,           # (optional, defaults to 90)
    l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4707	4808	
==>")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4847	4948	
==>")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9792	9887	
==>turns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9792	9887	
==>turns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10569	10705	
==>{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11031	11167	
==>{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10563	10699	
==>{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11025	11161	
==>{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	684	821	
==>t
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	684	821	
==>t
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	684	821	
==>t
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4157	4289	
==>{$self->get_value('@:slots')}, mk_containers(@$values);
            },

            'array_pop' => sub { # $val
                my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1345	1438	
==>,
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1345	1438	
==>,
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1345	1438	
==>,
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comm <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6101	6187	
==>?{ &::hlp_ws;})');
my $x2 = def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7123	7267	
==>ernation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12131	12275	
==>ernation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7123	7267	
==>ernation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12125	12269	
==>ernation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9994	10091	
==>eturns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17257	17354	
==>S

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix man <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9994	10091	
==>eturns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17257	17354	
==>S

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix man <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35444	35578	
==>ray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35444	35578	
==>ray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35444	35578	
==>ray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19912	20011	
==>give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18893	18992	
==>give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19912	20011	
==>give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18893	18992	
==>give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To set the n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9765	9892	
==>s {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9765	9892	
==>s {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9765	9892	
==>s {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3355	3451	
==>@statements, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	71	172	
==>tine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	71	172	
==>tine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	71	172	
==>tine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	356	451	
==>repository

=item pool

Path to the pool directory of the repository. $root/jibs if not specifie <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24727	24878	
==>er%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result, "\n";
    my $txt = join "", @r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1890	1995	
==>$args) && $args->isa('list'))
        || confess "Args must be a list";
    my $params = $self->{sig}->par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4096	4197	
==>elf.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4096	4197	
==>elf.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4096	4197	
==>elf.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6175	6272	
==>MSWin32|mingw|msys|cygwin)/) {
        push @pkgs, -package => 'Win32' unless $ghc_version =~ /^6. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25429	25542	
==>0]{tree} }

    # the most recent addition to the tree
    sub LATEST :lvalue      { $_[0]{tree}[-1] }

You may fi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7875	7973	
==>ACK;
  HANDLER_CALL:
/*    fprintf(stderr,"calling out...\n");*/
    ret = call_sv(handler, G_ARRAY <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24590	24682	
==><is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attrib <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29142	29234	
==><is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attrib <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1115	1212	
==>t is typically used to add extra directories to Pugs's 
search path so that later `use` or `requir <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1115	1212	
==>t is typically used to add extra directories to Pugs's 
search path so that later `use` or `requir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	579	672	
==>_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't y <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	579	672	
==>_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't y <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13959	14111	
==>h @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair $pair <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4060	4192	
==>h @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4060	4192	
==>h @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4060	4192	
==>h @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair $pair <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	717	835	
==>quire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	684	802	
==>quire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3356	3450	
==>of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally obj <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3356	3450	
==>of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally obj <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4568	4714	
==>le => File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-indentat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1570	1687	
==>_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1570	1687	
==>_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1570	1687	
==>_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->nam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3596	3685	
==>__->mk_accessors(qw(positional invocant named named_slurpy));
use Carp qw(croak);
use PadW <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14546	14661	
==>$first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14546	14661	
==>$first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	45	152	
==>Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	45	152	
==>Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	282	392	
==>Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	264	370	
==>Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Gr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6070	6175	
==>ereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6070	6175	
==>ereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Mo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6086	6230	
==>do tests

    files           Number of test files ran
    good            Number of test files passed
    bad             Number of test files f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1877	1982	
==>self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1877	1982	
==>self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1877	1982	
==>self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1102	1253	
==>etch(num->new(0)); # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # X <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	216	322	
==>for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if the <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	216	322	
==>for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	197	314	
==>:Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	84	197	
==>:Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	84	197	
==>:Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	38	128	
==>e strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::Preced <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	949	1080	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canon <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1823	1954	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canon <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	949	1080	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canon <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1823	1954	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canon <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12364	12457	
==>defaults to empty if the parameter's
corresponding argument is undefined).  The new Document o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12364	12457	
==>defaults to empty if the parameter's
corresponding argument is undefined).  The new Document o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23957	24049	
==>the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23957	24049	
==>the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10035	10180	
==>size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10035	10180	
==>size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10035	10180	
==>size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Valu <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13324	13438	
==>ject => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10147	10251	
==>$_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10147	10251	
==>$_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4997	5111	
==>lurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4997	5111	
==>lurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4997	5111	
==>lurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $u <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1038	1138	
==>ing else like C<t>, or maybe they are one and the same as what
you get when you use the C<type> keywo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3965	4123	
==>ude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $contro <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21707	21806	
==>ly addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26259	26358	
==>ly addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is v <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24919	25018	
==>ly addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is v <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	578	824	
==>plies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	578	824	
==>plies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8116	8215	
==>e; for example, it should not merely set arrays to C<()>, but loop 
through them setting all the ele <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8116	8215	
==>e; for example, it should not merely set arrays to C<()>, but loop 
through them setting all the ele <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13040	13140	
==>turns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9764	9864	
==>turns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13040	13140	
==>turns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9764	9864	
==>turns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($se <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10033	10144	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10033	10144	
==>sg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text! <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	122	230	
==>my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.a <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	122	230	
==>my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	987	1128	
==>');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	987	1128	
==>');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	987	1128	
==>');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last <==
4	/Users/nnunley/pugs/util/importgraph.pl	396	494	
==>"overlap=s" => \$overlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = Graph <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24051	24188	
==>($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24051	24188	
==>($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24051	24188	
==>($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4176	4295	
==>('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4383	4502	
==>('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7692	7860	
==>{
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7692	7860	
==>{
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7692	7860	
==>{
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $t <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1864	1973	
==>subscriber;

    method match ($notification) {
        # this is really up to your subscription and event sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5506	5630	
==>, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{prefix};
    }

    f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6330	6444	
==>, cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6330	6444	
==>, cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6330	6444	
==>, cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12681	12782	
==>$as_num_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my %as_s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5578	5673	
==>s role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5578	5673	
==>s role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7775	7870	
==>s role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5859	5965	
==>ATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5859	5965	
==>ATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5859	5965	
==>ATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->C <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	489	591	
==>=head1 SYNOPSIS

  use Test::Harness::Straps;

  my $strap = Test::Harness::Straps->new;

  # Various w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8650	8749	
==>sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8650	8749	
==>sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8650	8749	
==>sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10269	10382	
==>is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semij <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13746	13859	
==>is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semij <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13027	13140	
==>is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semij <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	240	344	
==>---------
## This is an extension of the Mini-MetaModel which adds explicit Eigenclasses
## to all Classe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1704	1857	
==>= shift;
                my $idx = shift;
                $self->array_fetchElem($idx)->scalar_fetch;
            },
     
            'array_storeVal' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	499	599	
==>=~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	499	599	
==>=~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	499	599	
==>=~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	663	791	
==>d = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_clo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	663	791	
==>d = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_clo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	663	791	
==>d = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_clo <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6173	6266	
==>e AG above, and avoids unnecessary duplication
	my $self = shift;
	$self->{instance}->splat(@_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4168	4257	
==>W)) --> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9707	9806	
==>thod _head() returns Array { return }
method _tail() returns Array { return }

# What we implement f <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1149	1248	
==><block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex n <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9707	9806	
==>thod _head() returns Array { return }
method _tail() returns Array { return }

# What we implement f <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1149	1248	
==><block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex n <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6289	6398	
==>>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6094	6206	
==>zation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6094	6206	
==>zation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6094	6206	
==>zation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4238	4344	
==>t$}{"\n" x ($1 =~ y/\n//)}mesg;
}

sub precomp {
    print STDERR "Generating precompiled Prelude" if $Conf <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12365	12496	
==>fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier>
    | <Literal>
    | <A <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4335	4430	
==>viously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$des <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4335	4430	
==>viously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4415	4510	
==>viously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$des <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37960	38055	
==>y ) and return that subroutine's result, which is a Template text
string if the module recognize <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37960	38055	
==>y ) and return that subroutine's result, which is a Template text
string if the module recognize <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5558	5649	
==>Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5558	5649	
==>Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12507	12828	
==>oes(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12507	12828	
==>oes(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6360	6461	
==>return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -In <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6360	6461	
==>return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -In <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6612	6710	
==>ause the module does
not so much define a grammar as let each matched node state what it
expects to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	958	1053	
==>ap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	958	1053	
==>ap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	958	1053	
==>ap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11376	11493	
==>> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11376	11493	
==>> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11376	11493	
==>> [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

su <==
4	/Users/nnunley/pugs/util/run-smoke.pl	841	929	
==>th('./util/smokeserv/smokeserv-client.pl'); 

chdir($pugs_sandbox) or die "Could change d <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21734	21856	
==>ram pmc pad
    .local int isarray, iscapture
    .local string cname
    .local pmc reps

    iscapture = self["iscapture" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5279	5369	
==>!$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5279	5369	
==>!$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5279	5369	
==>!$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5610	5707	
==>ssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5610	5707	
==>ssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5610	5707	
==>ssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_ <==
4	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	27	127	
==>sub import (Str $pkg, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").grep:{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17039	17134	
==>Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17039	17134	
==>Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17039	17134	
==>Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4517	4789	
==>),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	747	842	
==>ings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	747	842	
==>ings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	747	842	
==>ings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24586	24681	
==>SEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully l <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23350	23445	
==>SEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24586	24681	
==>SEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23350	23445	
==>SEUDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully l <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2924	3032	
==>self->_top->VERSION;
    my %values  = %{ $self->{'values'} };

    delete $values{sign};
    if ( my $perl_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4178	4284	
==>e reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4178	4284	
==>e reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4178	4284	
==>e reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fil <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5628	5811	
==>> [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5462	5614	
==>urpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5462	5614	
==>urpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5462	5614	
==>urpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10676	10816	
==>";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7017	7157	
==>";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7866	8006	
==>";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::P <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13721	13825	
==>nitrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => sub { -r $initrd_gz and <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9149	9318	
==>erence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12626	12795	
==>erence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5864	5963	
==>pec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= F <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5864	5963	
==>pec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= F <==
4	/Users/nnunley/pugs/util/config_h.pl	415	515	
==>, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3705	3796	
==>ict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3705	3796	
==>ict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3705	3796	
==>ict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15907	16011	
==>k ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15907	16011	
==>k ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15907	16011	
==>k ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5223	5323	
==>x->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::P <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	5	109	
==>le4.pl - while-Schleife in Perl 6
use v6;
my $i = 1;
loop { # dies ist eine echte Schleife, daher...
	say <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7646	7752	
==>s {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithm <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7646	7752	
==>s {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithm <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1040	1138	
==>he C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corres <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1040	1138	
==>he C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corres <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7245	7362	
==>"weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "l <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7245	7362	
==>"weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "l <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13714	13811	
==>inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17191	17288	
==>inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) retu <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4427	4547	
==>ult""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9020	9129	
==>ncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12877	12982	
==>ncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12877	12982	
==>ncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15609	15763	
==>_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15609	15763	
==>_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15609	15763	
==>_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4512	4651	
==>int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4512	4651	
==>int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4512	4651	
==>int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{c <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2292	2467	
==>un before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # remot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13273	13425	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13273	13425	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13273	13425	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	282	387	
==>method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	282	387	
==>method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	282	387	
==>method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" u <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16934	17019	
==>m(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0,E <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2896	3020	
==>add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /W <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2896	3020	
==>add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /W <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2489	2573	
==>lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl. <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2489	2573	
==>lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40313	40416	
==>rry
prominent notices stating that you changed the files and the date of any
changes, in addition to pre <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25837	25940	
==>rry prominent
notices stating that you changed the files and the date of any changes, in
addition to pre <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40313	40416	
==>rry
prominent notices stating that you changed the files and the date of any
changes, in addition to pre <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25837	25940	
==>rry prominent
notices stating that you changed the files and the date of any changes, in
addition to pre <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7936	8046	
==>lar.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	288	387	
==>self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	288	387	
==>self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	288	387	
==>self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8104	8208	
==>Position;
  my $match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "Sub <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7633	7726	
==>:variable::free') => sub { $_[1]->instantiate($_[0]) };

# an instantiated variable will unify <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1714	1799	
==>Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1714	1799	
==>Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	541	640	
==>lf.difference($other);
#}

#method infix:<->($self: Duration $duration) returns Date {
    #$self.su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2722	2811	
==>:WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2722	2811	
==>:WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2722	2811	
==>:WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9712	9862	
==>--> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	935	1061	
==>--> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11584	11692	
==>onnection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11584	11692	
==>onnection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0 <==
4	/Users/nnunley/pugs/util/importgraph.pl	956	1073	
==>= [defined($1), defined($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4952	5051	
==>hether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4952	5051	
==>hether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7149	7248	
==>hether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40745	40869	
==>}
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2445	2541	
==>ame)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2445	2541	
==>ame)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argument <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2445	2541	
==>ame)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argument <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6767	6855	
==>$::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6767	6855	
==>$::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6767	6855	
==>$::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5290	5404	
==>less \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute contai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5290	5404	
==>less \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute contai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5290	5404	
==>less \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute contai <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22711	22801	
==>x =< C2x, !.
charset_member(_,C,[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
ch <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15974	16088	
==>.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19451	19565	
==>.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18957	19071	
==>.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4807	4905	
==>ailedtests) = _run_all_tests(@tests);
    _show_results($tot, $failedtests);

    my $ok = _all_ok( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18672	18786	
==>if(defined $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	644	740	
==>resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	644	740	
==>resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	644	740	
==>resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11807	11904	
==>29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HT <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11807	11904	
==>29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HT <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	180	272	
==>--cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><< <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	333	425	
==>--cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	345	465	
==>l.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	345	465	
==>l.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	345	465	
==>l.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the n <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2041	2134	
==>mplete version of t/rules/rules.t.  This could either be done
#using Regexp::Parser Objects, o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	918	1020	
==>$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::Ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21069	21162	
==>I SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21069	21162	
==>I SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21069	21162	
==>I SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5746	5845	
==>turn Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10324	10423	
==>tion)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5746	5845	
==>turn Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10324	10423	
==>tion)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You m <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24524	24628	
==>t a -> b where a = b");
}
{
	my $type = type::operator::arrow->new(
		type::operator::arrow->new(
			type <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2735	2834	
==>$!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6212	6311	
==>$!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5142	5241	
==>$!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7901	8005	
==>Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7031	7135	
==>Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7901	8005	
==>Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7031	7135	
==>Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
multi s <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5895	6014	
==>rst tests (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $this_size -= $chunk_size i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12151	12248	
==>_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Er <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12151	12248	
==>_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Er <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12151	12248	
==>_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Er <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12301	12441	
==>mpile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8577	8717	
==>mpile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9412	9552	
==>mpile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14011	14123	
==>ject(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      push @$tree, $se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	763	939	
==>eyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	763	939	
==>eyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engin <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4851	5006	
==>()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are wit <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4851	5006	
==>()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are wit <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4429	4539	
==>tory to the target.

Returns true on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2023	2116	
==>JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2023	2116	
==>JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2023	2116	
==>JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24005	24111	
==>en|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20426	20532	
==>en|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7238	7337	
==>de into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7238	7337	
==>de into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks a <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	558	676	
==>ash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @ti <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	558	676	
==>ash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @ti <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	538	645	
==>imethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $c <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	538	645	
==>imethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6903	7003	
==>eginning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6903	7003	
==>eginning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3743	3837	
==>nsert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3743	3837	
==>nsert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3332	3433	
==>INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3332	3433	
==>INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3332	3433	
==>INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2430	2527	
==>m) returns num>

=item B<increment () returns num>

=item B<decrement () returns num>

=back

=cut <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1832	1972	
==>ure from S29draft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17777	17869	
==>0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17777	17869	
==>0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17777	17869	
==>0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4289	4387	
==>.
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') } <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5186	5284	
==>.
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4289	4387	
==>.
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5186	5284	
==>.
sub no_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') } <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15754	15863	
==>ectify_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2453	2556	
==>sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2453	2556	
==>sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2453	2556	
==>sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3366	3500	
==>ash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3366	3500	
==>ash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3366	3500	
==>ash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1134	1233	
==>Notification.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method get_subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7964	8134	
==>l, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7964	8134	
==>l, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7964	8134	
==>l, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_m <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1944	2047	
==>nal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1944	2047	
==>nal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14801	14893	
==>ct has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14801	14893	
==>ct has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1521	1624	
==>t

A list is a a node with multiple children.

C<App> is a type of value - it applies its first child to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1340	1431	
==>one ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1340	1431	
==>one ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1340	1431	
==>one ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4050	4170	
==>} );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4190	4310	
==>} );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7559	7667	
==>vent<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7559	7667	
==>vent<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!ch <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5971	6086	
==>rint -d  $final_dir
            ? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to instal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11538	11645	
==>0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11538	11645	
==>0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11538	11645	
==>0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7309	7509	
==>n = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7309	7509	
==>n = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_spa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1591	1732	
==>a( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1591	1732	
==>a( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11599	11693	
==>2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an al <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8746	8840	
==>2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an al <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11599	11693	
==>2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an al <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8746	8840	
==>2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9021	9146	
==>all {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[T <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9021	9146	
==>all {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[T <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9918	10014	
==>rn @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
} <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9918	10014	
==>rn @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
} <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2475	2593	
==>eatures {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4063	4181	
==>eatures {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1646	1743	
==>ggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plug <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1646	1743	
==>ggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8658	8785	
==>/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8658	8785	
==>/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8658	8785	
==>/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7225	7408	
==>{
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7225	7408	
==>{
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7225	7408	
==>{
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1071	1244	
==>pe' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table = <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2051	2196	
==>Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pu <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2051	2196	
==>Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2340	2479	
==>->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtim <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2266	2397	
==>->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtim <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16665	16775	
==>${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or mayb <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13086	13196	
==>${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or mayb <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1487	1581	
==>ntal viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchli <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1487	1581	
==>ntal viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchli <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	242	344	
==>$.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	242	344	
==>$.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9871	9965	
==>Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9871	9965	
==>Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2306	2402	
==>rn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2306	2402	
==>rn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2306	2402	
==>rn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline(' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16467	16563	
==>e: Most users should consider setting their I/O handles to autochomp
instead of this step.


=ite <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9360	9464	
==>$file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't close <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	804	906	
==>Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	804	906	
==>Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	804	906	
==>Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12787	12897	
==>pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2596	2697	
==>other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($sel <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2596	2697	
==>other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($sel <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5798	5895	
==>er(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX::Value::Null $v)      { +0 }
multi sub <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1014	1130	
==>um{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciitilde{}";
	    return;
	} elsif ($chr =~ /\</) { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1432	1590	
==>ined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1432	1590	
==>ined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4749	4843	
==>ompiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an impleme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4889	4983	
==>ompiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	891	1099	
==>aluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	212	332	
==>self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	212	332	
==>self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	212	332	
==>self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7921	8025	
==>lti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7921	8025	
==>lti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7921	8025	
==>lti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11836	11974	
==>matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut

=for later
sub wrap {
    my $debug = shift;
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8442	8561	
==>::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8148	8261	
==>::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_gr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	346	440	
==>File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use HTML::T <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3010	3137	
==>ort {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %ex <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3010	3137	
==>ort {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %ex <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	25	135	
==>se lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	25	135	
==>se lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2587	2702	
==>push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2587	2702	
==>push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    re <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3683	3820	
==>\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1946	2049	
==>age $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1946	2049	
==>age $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1946	2049	
==>age $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= " <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21265	21360	
==>mon API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialect <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21265	21360	
==>mon API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialect <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	987	1081	
==>etails.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> direct <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	987	1081	
==>etails.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> direct <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3182	3317	
==>ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1876	1975	
==>e};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1876	1975	
==>e};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1876	1975	
==>e};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$nam <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13893	13992	
==>- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you ca <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13951	14050	
==>- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you ca <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8575	8671	
==>ors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8575	8671	
==>ors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Ci <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4422	4604	
==>unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4422	4604	
==>unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4422	4604	
==>unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4084	4199	
==>index, $value);
}

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || c <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3674	3774	
==>SS_PERL} = q{$full_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	707	798	
==>ody}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	707	798	
==>ody}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	707	798	
==>ody}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2880	2993	
==>_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2880	2993	
==>_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2880	2993	
==>_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13316	13416	
==>ation::Example $other!) returns Relation::Example {

    die "The relation in $other has attributes i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8869	9002	
==>for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8869	9002	
==>for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2388	2513	
==>rresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2388	2513	
==>rresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sor <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22363	22461	
==>t all of its class
and object methods will each return the same result when invoked on the
same obj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26915	27013	
==>t all of its class
and object methods will each return the same result when invoked on the
same obj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25638	25736	
==>t all of its class
and object methods will each return the same result when invoked on the
same obj <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7465	7586	
==>ING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applic <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7465	7586	
==>ING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11001	11105	
==>text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# alwa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11001	11105	
==>text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# alwa <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1761	1858	
==>ETHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1524	1621	
==>ETHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1761	1858	
==>ETHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1524	1621	
==>ETHODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4030	4168	
==>n(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5351	5489	
==>n(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4030	4168	
==>n(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5339	5477	
==>n(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5050	5177	
==>efault'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7771	7887	
==>xy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7771	7887	
==>xy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7771	7887	
==>xy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	63	167	
==>use Module::Install::Base;
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1384	1480	
==>CLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1384	1480	
==>CLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1384	1480	
==>CLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	711	816	
==>e
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	711	816	
==>e
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	711	816	
==>e
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists ar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10876	10975	
==>:person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'funct <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10876	10975	
==>:person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'funct <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2149	2359	
==>$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2149	2359	
==>$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15862	15958	
==>not) been modified since the time specified in this field,
then the server will return a C<304 No <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15862	15958	
==>not) been modified since the time specified in this field,
then the server will return a C<304 No <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4138	4273	
==>oc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	331	426	
==>o warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	331	426	
==>o warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	331	426	
==>o warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->u <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1624	1722	
==>ub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instea <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1624	1722	
==>ub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instea <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2570	2666	
==>o it at both ends!)

=item Encrypting with the exact same key twice can compromise both encryptio <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2570	2666	
==>o it at both ends!)

=item Encrypting with the exact same key twice can compromise both encryptio <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	90	215	
==>rg/?node_id=438876
# For historical interest, I've left this program pretty much
# unchanged from the original p5 Santa golf g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2989	3100	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2989	3100	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2989	3100	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	377	489	
==>"a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	377	489	
==>"a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	377	489	
==>"a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2435	2533	
==>AGE__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::TestPr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2990	3096	
==>s[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2990	3096	
==>s[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2990	3096	
==>s[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12393	12559	
==>,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12393	12559	
==>,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23655	23791	
==>ertion',
      type => 'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = <==
4	/Users/nnunley/pugs/util/package-osx.pl	5956	6053	
==>an3/Perl6::Overview::File.3pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5660	5818	
==>tiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Typ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5660	5818	
==>tiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Typ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5660	5818	
==>tiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Typ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4369	4459	
==>nts;
def_rule('statement',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rule('t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9906	10012	
==>$1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9906	10012	
==>$1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9906	10012	
==>$1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10 <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2503	2624	
==>de.pm>,
                (map { ('-i' => $_) } @{ PugsBuild::Config->lookup('precompile_modules') }),
                '-p', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1236	1330	
==>ke document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1236	1330	
==>ke document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1236	1330	
==>ke document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3146	3248	
==>&prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3146	3248	
==>&prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3146	3248	
==>&prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" - <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	62	160	
==>... # teste ob $prim prim ist
}

sub search_prim_within( $count ) {
	my @numbers := $prim...$prim+$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7450	7565	
==>o' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1463	1559	
==>);

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1463	1559	
==>);

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1463	1559	
==>);

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	418	533	
==>fs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	909	1024	
==>fs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	418	533	
==>fs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	909	1024	
==>fs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9136	9234	
==>lan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9194	9292	
==>lan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16690	16784	
==>ta" distribution.

While it is possible that one could write a self-contained application in
Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16690	16784	
==>ta" distribution.

While it is possible that one could write a self-contained application in
Ro <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12176	12289	
==>"] = subname
    mob["iscapture"] = iscapture
    if iscapture == 0 goto end
    $S0 = escape subname
    $S0 = co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	112	214	
==>} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	112	214	
==>} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	112	214	
==>} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2103	2207	
==>_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2103	2207	
==>_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2103	2207	
==>_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	57	158	
==>CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_r <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	66	183	
==>ct_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_lead <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	66	183	
==>ct_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_lead <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1432	1542	
==>id

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPT <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1432	1542	
==>id

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPT <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1793	1942	
==>ey  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _comman <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1793	1942	
==>ey  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _comman <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	690	821	
==>OLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0 <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4264	4358	
==>ch (Code & Class::Events::Subscriber $subscriber) {
        $subscriber.($.subscription, $.even <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7688	7788	
==>t(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36407	36505	
==>t len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36407	36505	
==>t len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36407	36505	
==>t len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1078	1201	
==>defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9234	9319	
==>----------------------------------------------------------------

This is a rough sket <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9234	9319	
==>----------------------------------------------------------------

This is a rough sket <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9234	9319	
==>----------------------------------------------------------------

This is a rough sket <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23689	23780	
==>OTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTI <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22462	22553	
==>OTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23689	23780	
==>OTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22462	22553	
==>OTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTI <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1465	1599	
==>s( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $inst->registered_alternat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10910	11035	
==>"'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10910	11035	
==>"'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10910	11035	
==>"'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	98	201	
==>D_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	98	201	
==>D_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	98	201	
==>D_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35576	35666	
==>ere> and C<grep>.

=item C<union (Relation::Example $other!) returns Relation::Example>

Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2070	2162	
==>s  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2070	2162	
==>s  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2070	2162	
==>s  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1890	2032	
==>CH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1890	2032	
==>CH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1890	2032	
==>CH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.B <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9217	9331	
==>oid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl script
#   stdin    => string to fe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3512	3621	
==>erl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	806	913	
==>hift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	806	913	
==>hift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	806	913	
==>hift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dep <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	245	356	
==>pt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16175	16265	
==>&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16175	16265	
==>&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16175	16265	
==>&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::N <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16696	16815	
==>$n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39859	39963	
==>::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39859	39963	
==>::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39859	39963	
==>::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	897	1004	
==>It is probably bad to have both a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4384	4482	
==>Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4384	4482	
==>Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4384	4482	
==>Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.res <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12187	12298	
==>ment in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new No <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16767	16878	
==>ment in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12187	12298	
==>ment in it is used to initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16767	16878	
==>ment in it is used to
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4980	5086	
==>b { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4980	5086	
==>b { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4980	5086	
==>b { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2867	2965	
==>losure::signature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12839	12952	
==>d(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12839	12952	
==>d(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12839	12952	
==>d(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bin <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19611	19711	
==>=> "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->ne <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6301	6400	
==>arametric)\z/) {
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3957	4046	
==>aque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3957	4046	
==>aque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3957	4046	
==>aque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6300	6413	
==>loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec pos
  term_literal_one:
    $I0 = pos - l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12452	12554	
==>calar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12452	12554	
==>calar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12452	12554	
==>calar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	887	1004	
==>file (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1761	1878	
==>file (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	887	1004	
==>file (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1761	1878	
==>file (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' par <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2868	3011	
==>h);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &co <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2868	3011	
==>h);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22745	22837	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22745	22837	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1036	1136	
==>es
# and we need to now create these attributes in all the currently live instances
# of Class (which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1036	1136	
==>es
# and we need to now create these attributes in all the currently live instances
# of Class (which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1036	1136	
==>es
# and we need to now create these attributes in all the currently live instances
# of Class (which <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	919	1017	
==>hift;

	$self->{names}{$node} ||= '$node_' . ++$self->{node_counter};
}

sub layout {
	my $self = s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10201	10299	
==>oto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1275	1371	
==>output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1275	1371	
==>output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1275	1371	
==>output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16759	16901	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            fore <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16759	16901	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            fore <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16759	16901	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            fore <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	993	1113	
==>trol MD
$Available      = $Meta . '/available';             # available packages MD
$Altfile        = $Meta . '/registere <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1350	1485	
==>else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1350	1485	
==>else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1350	1485	
==>else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13148	13263	
==>ime";
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22621	22745	
==>() in sv.c is a useful source of information, as well as (I
suspect) an important constraint on what fields can contain.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1035	1138	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1035	1138	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1035	1138	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31902	31996	
==>ational operator that takes a single
Relation in its C<$other> argument, where <$other> has the <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33763	33857	
==>ational operator that takes a single Relation
in its C<$other> argument, where <$other> has the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36452	36546	
==>ational operator that takes a single
Relation in its C<$other> argument, where <$other> has the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38313	38407	
==>ational operator that takes a single Relation
in its C<$other> argument, where <$other> has the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	430	579	
==>new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	430	579	
==>new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	250	359	
==>e grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	261	370	
==>e grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	782	901	
==>if( scalar @metas > 1 ) {
        warn "More than one result found, using highest versioned\n";
    }
    
    my $found <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	149	265	
==>d', '$true', '$false'), # non short circuiting

    '&control_structure:<if>' => Thunk(
        Seq(
            Para <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34189	34282	
==>This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34189	34282	
==>This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_na <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1219	1316	
==>X - referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	973	1065	
==>t
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( out <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	973	1065	
==>t
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1053	1145	
==>t
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( out <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26910	27012	
==>,
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all);
require <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	261	361	
==>my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	261	361	
==>my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	261	361	
==>my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method(' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10169	10275	
==>{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	13	106	
==>rl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	13	106	
==>rl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require ' <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5988	6091	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        wh <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5988	6091	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        wh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	232	327	
==>eld names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	232	327	
==>eld names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of H <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3915	4012	
==>rl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3915	4012	
==>rl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3915	4012	
==>rl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9001	9124	
==>ns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9799	9922	
==>ns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10708	10831	
==>ns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11534	11657	
==>ns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not match the heading of the in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	969	1107	
==>up {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule clos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	969	1107	
==>up {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule clos <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	114	215	
==>∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Co <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	114	215	
==>∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Co <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7804	7905	
==>:DontEnum :DontDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	203	298	
==>08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	203	298	
==>08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	203	298	
==>08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12464	12615	
==>rray[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	658	754	
==>s by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	658	754	
==>s by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	658	754	
==>s by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4401	4589	
==>name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4401	4589	
==>name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4401	4589	
==>name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7851	7946	
==>1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modify(M,R <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28857	28974	
==>P_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Ente <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28857	28974	
==>P_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Ente <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	224	329	
==>P_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Ente <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	979	1094	
==>$unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1101	1216	
==>$unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	979	1094	
==>$unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1101	1216	
==>$unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2504	2624	
==>.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is unsafe {
        eval(slurp $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	758	874	
==>=> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	758	874	
==>=> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	758	874	
==>=> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4791	4906	
==>se`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't ope <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4791	4906	
==>se`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3003	3115	
==>nd, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3003	3115	
==>nd, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.sta <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1256	1367	
==>lume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1256	1367	
==>lume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9286	9397	
==>unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11601	11712	
==>unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8927	9028	
==>ndef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8985	9086	
==>ndef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3692	3787	
==>ESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3692	3787	
==>ESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3607	3704	
==>script\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3607	3704	
==>script\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3607	3704	
==>script\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18483	18601	
==>agic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18483	18601	
==>agic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18483	18601	
==>agic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4927	5045	
==>t to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4927	5045	
==>t to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4927	5045	
==>t to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14395	14498	
==>ere><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <Unary <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2565	2672	
==>) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2565	2672	
==>) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2565	2672	
==>) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4840	4989	
==>+ 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4840	4989	
==>+ 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4840	4989	
==>+ 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patte <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	6	140	
==>= 0;
my $still_running = 2;
my $thr1 = async {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8967	9068	
==>ree software, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3896	3997	
==>ree software, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8967	9068	
==>ree software, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3896	3997	
==>ree software, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5564	5669	
==>,@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5564	5669	
==>,@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5564	5669	
==>,@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::* <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23685	23812	
==>(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20106	20233	
==>(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	19	144	
==>en
my @a = 1..5;  # '12345'
say 0..@a;     # '012345'

say 0..@a-1;   # '01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2322	2444	
==>$args->{NAME}     =~ s/-/::/g;
    if ( $self->tests ) {
        $args->{test} = { TESTS => $self->tests };
    }
    if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4	101	
==>sr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4	101	
==>sr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4	101	
==>sr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this cr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34943	35039	
==><$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39493	39589	
==><$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9221	9313	
==>) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3046	3138	
==>) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	311	568	
==>s file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used by the <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1303	1408	
==>et $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.prop <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1303	1408	
==>et $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.prop <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14112	14209	
==>droot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => sub { system "ta <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5132	5245	
==>_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefaul <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5132	5245	
==>_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefaul <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2036	2149	
==>_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefaul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13580	13684	
==>m' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg, \$how <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6438	6738	
==>elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UN <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6902	7202	
==>elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UN <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	952	1065	
==>ensity, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.densit <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	952	1065	
==>ensity, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.densit <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	195	303	
==>Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	830	927	
==>ate( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	830	927	
==>ate( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	910	1007	
==>ate( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3595	3710	
==>->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3846	3958	
==>->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3846	3958	
==>->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2016	2104	
==>ptable->addToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5478	5672	
==>rl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5478	5672	
==>rl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = s <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6697	6867	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5201	5371	
==>e;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1967	2100	
==>er',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedenc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20143	20236	
==>x0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20143	20236	
==>x0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20143	20236	
==>x0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SU <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9649	9764	
==>need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, so it will not see PERL5LIB <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7423	7567	
==>return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7423	7567	
==>return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2206	2302	
==>e

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous c <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2206	2302	
==>e

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8259	8466	
==>method::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8259	8466	
==>method::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8259	8466	
==>method::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4457	4597	
==>oin(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]?"
        );
        #print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3616	3718	
==>s not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3616	3718	
==>s not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3616	3718	
==>s not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub in <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7938	8058	
==>/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi;
    if(api == 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9570	9680	
==>$pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9570	9680	
==>$pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9570	9680	
==>$pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4666	4797	
==>XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4666	4797	
==>XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4666	4797	
==>XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	769	875	
==>st} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: '$ru <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1769	1884	
==>rm:", "nows", &parse_enumclass);
    $optable->addToken("term:<+[", "term:", "nows", &parse_enumclass);
    $optable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1319	1418	
==>le>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1319	1418	
==>le>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2235	2351	
==>e($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2235	2351	
==>e($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2235	2351	
==>e($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ ) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5574	5675	
==>egexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	955	1054	
==>Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	955	1054	
==>Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5425	5522	
==>I object.

You will not be able to examine the response code or response headers
(like 'Content-Ty <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5425	5522	
==>I object.

You will not be able to examine the response code or response headers
(like 'Content-Ty <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4171	4369	
==>h.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4171	4369	
==>h.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11271	11366	
==>t ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11271	11366	
==>t ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C< <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	703	866	
==>l(\*STDOUT),
    map { native($_) } (
        {
            arity => 3,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4375	4480	
==>rom Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4375	4480	
==>rom Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4375	4480	
==>rom Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4938	5115	
==>ders have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Versio <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4938	5115	
==>ders have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Versio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	703	802	
==>pture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	703	802	
==>pture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	913	1062	
==>\$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab conc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	184	278	
==>6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Ch <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	184	278	
==>6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Ch <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	184	278	
==>6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Ch <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33208	33306	
==>dules will be searched in the order
they appear in this array until a match for that message is fou <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33208	33306	
==>dules will be searched in the order
they appear in this array until a match for that message is fou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3169	3297	
==>ke_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3169	3297	
==>ke_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3169	3297	
==>ke_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_nam <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27997	28094	
==>n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
print $r->('xx <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3525	3670	
==>-e            # Convert one-liner
    -s            # List supported features
    -d            # Dump debugging information
    p5_source.pl  # C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6647	6753	
==>w    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6647	6753	
==>w    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6647	6753	
==>w    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	936	1033	
==>p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	936	1033	
==>p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	936	1033	
==>p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	83	172	
==>';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Output' => class 'TestBuilder: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2434	2533	
==>tion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n" <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2434	2533	
==>tion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2514	2613	
==>tion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6265	6469	
==>->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6265	6469	
==>->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6265	6469	
==>->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body- <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4922	5107	
==>t ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offset = 0,
                                   In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	934	1050	
==>essed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	934	1050	
==>essed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	934	1050	
==>essed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	968	1066	
==>he front of the path for everything to find the correct
# pugs executable.
$ENV{PATH} = "." . $Conf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6022	6161	
==>~ ) ),
        q() => Pugs::Compiler::Regex->compile( q!
                ### floating point
                \d+\.\d+ { return { num => $() , <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1670	1778	
==>= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1670	1778	
==>= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1670	1778	
==>= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + arg <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	93	229	
==>ly {
        $a > 5 or retry;
        $a = -1000;
        $still_running--;
    }
    say 'Thread 1 finished: $a is >5 and reset to -1000 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21724	21822	
==>,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21724	21822	
==>,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21724	21822	
==>,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6686	6808	
==>nboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6686	6808	
==>nboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6686	6808	
==>nboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unb <==
4	/Users/nnunley/pugs/util/package-osx.pl	4996	5084	
==>/usr/local/man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6::Bible::S22.3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2679	2857	
==>ss => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2679	2857	
==>ss => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2679	2857	
==>ss => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16722	16805	
==>on(_Re1,Re2),F0,F1,B0,B1,E0,E1) :- rm(Re2,F0,F1,B0,B1,E0,E1).

rm(intersection(Re1,R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	329	470	
==>.output',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $plan, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	196	310	
==>)),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	196	310	
==>)),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	196	310	
==>)),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2087	2180	
==>ini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2087	2180	
==>ini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2087	2180	
==>ini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	800	891	
==>== -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) > <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5312	5415	
==>e::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2854	2957	
==>e::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3703	3806	
==>e::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1118	1226	
==>Scope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1118	1226	
==>Scope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1118	1226	
==>Scope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_-> <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	218	320	
==>s have pos point to the test library

use warnings;
use strict;

use Cwd;
use File::Find;
use File::Spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2747	2865	
==>_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2747	2865	
==>_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTPa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2747	2865	
==>_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTPa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5401	5531	
==>method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5401	5531	
==>method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5401	5531	
==>method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1737	1841	
==>ard' replace $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub nod <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1069	1183	
==>nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#} <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1069	1183	
==>nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#} <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1449	1548	
==>de ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1449	1548	
==>de ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15849	15954	
==>op };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15849	15954	
==>op };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15849	15954	
==>op };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/junkt1.pl	3	98	
==>lle alt genug für...?
my @alter = @anwesende».alter();

"Na zum Glück ist das hier jugendfrei <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1498	1618	
==>.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1498	1618	
==>.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1498	1618	
==>.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	934	1077	
==>he meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => File::Spec->ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4187	4283	
==>"p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4187	4283	
==>"p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4187	4283	
==>"p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5575	5684	
==>cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5575	5684	
==>cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4718	4816	
==>gified version
of the result object (usually the entire match string).

=head2 0+

When used as a n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4718	4816	
==>gified version
of the result object (usually the entire match string).

=head2 0+

When used as a n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1920	2022	
==>s Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Por <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1920	2022	
==>s Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Por <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33203	33296	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37753	37846	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	903	1000	
==>ching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but sk <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	903	1000	
==>ching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but sk <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	903	1000	
==>ching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but sk <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5149	5263	
==>>();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5149	5263	
==>>();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11567	11677	
==>debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      . <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11567	11677	
==>debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      . <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6536	6640	
==>);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sev <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5666	5770	
==>);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sev <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6536	6640	
==>);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sev <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5666	5770	
==>);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# sev <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2221	2333	
==>me, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        | <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	289	426	
==>c($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
} <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	289	426	
==>c($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3918	4015	
==>next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3918	4015	
==>next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	465	570	
==>lan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$.output'   => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1663	1759	
==>{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1663	1759	
==>{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1663	1759	
==>{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28982	29082	
==>alue is a number created by OR'ing
together the flags that are enabled at the time.

=item $obj->inse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4767	4862	
==>th/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4767	4862	
==>th/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4767	4862	
==>th/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	329	450	
==>ack => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub fr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	329	450	
==>ack => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub fr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	562	672	
==>head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	562	672	
==>head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10685	10789	
==>nc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@IN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10685	10789	
==>nc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@IN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10685	10789	
==>nc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@IN <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8387	8494	
==>o') {
	warn "Macro is not implemented.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Coroutine' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4595	4681	
==>.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4595	4681	
==>.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4595	4681	
==>.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4164	4299	
==>n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	807	917	
==>cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	807	917	
==>cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	807	917	
==>cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does n <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3351	3524	
==>(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; SortCriterion  $by = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1452	1552	
==>ten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1452	1552	
==>ten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1452	1552	
==>ten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10076	10225	
==>y {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._ciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10076	10225	
==>y {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._ciph <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41141	41234	
==>supports embedding of Template modules into the same files as
program code, rather than requir <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41141	41234	
==>supports embedding of Template modules into the same files as
program code, rather than requir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5402	5509	
==>objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5402	5509	
==>objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5402	5509	
==>objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1266	1369	
==>ect(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  $self->add_handl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13612	13704	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13612	13704	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13612	13704	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Eva <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23046	23149	
==>r does the
same thing.)

=item nparen

The number of OPENs (capturing groups) in the regex.

=item captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6071	6169	
==>TI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6071	6169	
==>TI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6071	6169	
==>TI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13917	14044	
==>urn { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14196	14323	
==>urn { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	79	182	
==>eline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	79	182	
==>eline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	114	219	
==>um $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	114	219	
==>um $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	114	219	
==>um $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1420	1525	
==>$fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   print FF $data;
   close(FF <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8610	8705	
==>ew PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8610	8705	
==>ew PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8610	8705	
==>ew PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2481	2579	
==>struct is used
both to return a compiled regexp, and to provide match results.  This
module is an e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9600	9695	
==>method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9600	9695	
==>method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1876	1971	
==>ents and checks standard output for the expected strings
in TAP format.

The F<prove> utility is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	496	614	
==>et;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	500	618	
==>et;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	496	614	
==>et;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	500	618	
==>et;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($ <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1173	1270	
==>designed for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selec <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1173	1270	
==>designed for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2793	2888	
==>r example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query strin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2793	2888	
==>r example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query strin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5336	5457	
==>fix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5336	5457	
==>fix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        pos <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2870	2975	
==>>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2870	2975	
==>>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15375	15494	
==>urn _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15912	16026	
==>t(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10768	10882	
==>t(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->o <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3844	3947	
==>preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin->post <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5204	5306	
==>preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin->post <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19067	19168	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19067	19168	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19067	19168	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1528	1623	
==>n::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e ( <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	813	957	
==>5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!" <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	813	957	
==>5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!" <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	285	401	
==>Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	186	302	
==>Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1775	1885	
==>:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1775	1885	
==>:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	185	280	
==>be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	185	280	
==>be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	320	438	
==>f = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $C <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	46	148	
==>o";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	42	144	
==>o";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	42	144	
==>o";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5766	5865	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4896	4995	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5766	5865	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4896	4995	
==>et $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9995	10132	
==>cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9995	10132	
==>cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9995	10132	
==>cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2036	2146	
==>aces when tests are inserted.
    # It is better then checking for the names of the tests 
    # since they are <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10571	10683	
==>! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10571	10683	
==>! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9901	10001	
==>MIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9901	10001	
==>MIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	107	237	
==>::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	149	279	
==>::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	107	237	
==>::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	149	279	
==>::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9914	10011	
==>handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9914	10011	
==>handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1583	1679	
==>ass->get_attr(symbol->new('%:methods'));
        #warn "looking for method (" . $label->to_native <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24348	24494	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25611	25757	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24627	24773	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25890	26036	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@gramma <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	329	429	
==>_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => und <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	329	429	
==>_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => und <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10495	10592	
==>being TODO tests
then you can pass them through this function. This is primarily a release
tool, b <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10553	10650	
==>being TODO tests
then you can pass them through this function. This is primarily a release
tool, b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1606	1738	
==>',
        precedence => 'looser',
        other => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1115	1211	
==>Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1115	1211	
==>Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1115	1211	
==>Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't w <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5398	5496	
==>h an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5398	5496	
==>h an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6922	7020	
==>h an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skip <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18110	18204	
==>sts($META->FETCH("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7268	7364	
==>:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capture <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7268	7364	
==>:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capture <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7268	7364	
==>:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capture <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2909	3060	
==>skipping\n";
        return $self;
    }

    # Avoid spurious warnings as we are not checking manifest here.

    local $SIG{__WARN__} = sub {1};
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1325	1415	
==>ndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1325	1415	
==>ndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1325	1415	
==>ndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end" <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3649	3751	
==>egexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workaround
    package R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3651	3747	
==>s lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HAC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3651	3747	
==>s lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HAC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3651	3747	
==>s lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HAC <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10526	10648	
==>he highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> $a->ver <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	611	724	
==>=> $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native ty <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1209	1314	
==>=> $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native ty <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	316	415	
==>defh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = P <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	316	415	
==>defh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = P <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	232	342	
==>ounter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLAS <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	232	342	
==>ounter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLAS <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11842	11938	
==>the specified header field.  Previous values
for the same field are retained.

As for the header( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11842	11938	
==>the specified header field.  Previous values
for the same field are retained.

As for the header( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6150	6303	
==>),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5517	5627	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5517	5627	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5517	5627	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15460	15579	
==>ompile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15460	15579	
==>ompile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	598	715	
==>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodif <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	598	715	
==>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2313	2410	
==>re checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16189	16286	
==>eof'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpression <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2313	2410	
==>re checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2313	2410	
==>re checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8471	8577	
==>acters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8471	8577	
==>acters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12147	12240	
==>INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12147	12240	
==>INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14493	14639	
==>'0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14493	14639	
==>'0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14493	14639	
==>'0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	310	400	
==>elp() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2761	2869	
==>g workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2761	2869	
==>g workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2761	2869	
==>g workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9221	9370	
==>>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9221	9370	
==>>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9221	9370	
==>>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->va <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20930	21044	
==>sts reps[cname]
    if $I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  setre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1753	1855	
==>*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1753	1855	
==>*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1753	1855	
==>*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8515	8609	
==>t return value from Foo singleton/class method');  
  
fails_ok { $Object->singleton_test_on_Fo <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6325	6448	
==>r, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5398	5521	
==>r, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6325	6448	
==>r, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5398	5521	
==>r, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	938	1068	
==>Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bindin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	938	1068	
==>Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bindin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	444	553	
==>mediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	650	759	
==>mediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	744	844	
==>n a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special s <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	744	844	
==>n a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special s <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6607	6702	
==>e return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identifi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6607	6702	
==>e return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3684	3898	
==>>{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3537	3744	
==>>{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11675	11793	
==>secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('disca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11675	11793	
==>secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('disca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4540	4680	
==>ub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4540	4680	
==>ub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4540	4680	
==>ub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8862	8969	
==>_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1249	1352	
==>split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1249	1352	
==>split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1249	1352	
==>split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24559	24814	
==>s => 'list'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14005	14152	
==>art => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14005	14152	
==>art => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14005	14152	
==>art => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1271	1377	
==>e_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1271	1377	
==>e_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1271	1377	
==>e_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23722	23805	
==>n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- !.
replace_at_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1483	1590	
==>ld generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1483	1590	
==>ld generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1483	1590	
==>ld generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20802	20899	
==>m).
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3668	3764	
==>they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3668	3764	
==>they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3668	3764	
==>they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When strin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9677	9790	
==>et2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9677	9790	
==>et2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35753	35847	
==>Example in its C<$other> argument, where <$other> has the same heading as
the invocant Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37785	37879	
==>Example
in its C<$other> argument, where <$other> has the same heading as the
invocant Relation <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11070	11166	
==>StrNumericLiteral> <StrWhiteSpace>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhiteSpaceChar> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	975	1070	
==>rray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	975	1070	
==>rray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	975	1070	
==>rray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1745	1845	
==>m->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1745	1845	
==>m->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1745	1845	
==>m->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4938	5050	
==>my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not o <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4938	5050	
==>my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22497	22594	
==>te a
condition, often it will also provide some variable values to be
interpolated into the user s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22497	22594	
==>te a
condition, often it will also provide some variable values to be
interpolated into the user s <==
4	/Users/nnunley/pugs/util/version_h.pl	2053	2162	
==>DIN.
  no warnings "io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4458	4561	
==>nd my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4458	4561	
==>nd my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4458	4561	
==>nd my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5790	5914	
==>This is also a fail
        unshift @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1083	1200	
==>subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1083	1200	
==>subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1083	1200	
==>subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28438	28533	
==>d properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being handled (re_rew <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15912	16018	
==>Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15912	16018	
==>Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	224	324	
==>gs[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	224	324	
==>gs[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	224	324	
==>gs[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2561	2675	
==>y $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2561	2675	
==>y $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2561	2675	
==>y $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	955	1038	
==>Rule->compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	554	652	
==>igh)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not g <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	554	652	
==>igh)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not g <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3597	3692	
==>05, it was written to provide functionality
while Perl 6 was still being developed.

This module <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3597	3692	
==>05, it was written to provide functionality
while Perl 6 was still being developed.

This module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12436	12534	
==>s makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $sour <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12436	12534	
==>s makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $sour <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3036	3131	
==>lient, if available.

=back

In addition, the following request headers are set on the HTTP::Hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3036	3131	
==>lient, if available.

=back

In addition, the following request headers are set on the HTTP::Hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1787	1914	
==>this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1787	1914	
==>this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1787	1914	
==>this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3584	3680	
==>not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll overr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3584	3680	
==>not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll overr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3584	3680	
==>not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll overr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2805	3038	
==>,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => "ANGLE", angle_quoted => $m->() },
                        } );
                        #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3934	4103	
==>}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3813	3976	
==>}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $cap <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	147	244	
==>->new;
### new fakeroot dir
$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) );

$IN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4527	4670	
==>y $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4527	4670	
==>y $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4527	4670	
==>y $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1762	1853	
==>lpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Helpers::ma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7725	7893	
==>my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the ri <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8189	8357	
==>my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the ri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4159	4315	
==>my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the ri <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4623	4779	
==>my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the ri <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16291	16402	
==>'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12828	12936	
==>ng to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12828	12936	
==>ng to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12828	12936	
==>ng to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Sl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	67	187	
==>s;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	661	764	
==>es.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	661	764	
==>es.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	661	764	
==>es.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4980	5115	
==>cal $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4980	5115	
==>cal $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4980	5115	
==>cal $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21465	21586	
==>->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Rege <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	220	362	
==>d to be a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and die $?;
    syste <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8535	8674	
==>ext METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8535	8674	
==>ext METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8535	8674	
==>ext METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11868	11998	
==>errun ($test{max}+1..@$details) {
                    next unless ref $details->[$overrun-1];
                    push @{$test{fail <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3596	3744	
==>t_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_value(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6088	6188	
==>look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be usef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6088	6188	
==>look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be usef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6088	6188	
==>look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be usef <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1893	2041	
==>rl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1893	2041	
==>rl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #i <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3252	3359	
==>askell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::S <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3252	3359	
==>askell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	91	211	
==>JIB::Dependency;

use YAML                    qw[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1826	1929	
==>, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1826	1929	
==>, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1826	1929	
==>, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4573	4710	
==>?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4573	4710	
==>?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4822	4906	
==>tch } splice(@{$self->get_value('@:slots')}, $idx_from, $idx_to, mk_containers(@$repl <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1490	1598	
==>tion 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27370	27464	
==>any additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31922	32016	
==>any additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31005	31099	
==>any additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18257	18386	
==>e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21516	21645	
==>e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41522	41651	
==>e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44423	44552	
==>e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$self:'), $e->get('%para <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	964	1063	
==>w( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	332	426	
==>e-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	332	426	
==>e-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	332	426	
==>e-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directl <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	286	398	
==>@ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4824	4920	
==>duce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4824	4920	
==>duce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4824	4920	
==>duce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# p <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2348	2442	
==>stian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 L <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2348	2442	
==>stian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 L <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1943	2048	
==>d_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) ) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1943	2048	
==>d_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	545	636	
==>lass->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	545	636	
==>lass->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10999	11170	
==>gs} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $self->add <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6663	6798	
==>n = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6663	6798	
==>n = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != I <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	317	425	
==>if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fini <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	317	425	
==>if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fini <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	494	603	
==>cket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	498	607	
==>cket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	494	603	
==>cket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	498	607	
==>cket;
use Set;

sub debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28465	28604	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28744	28883	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       r <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10811	10950	
==>if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3809	3908	
==>ubroutine you're currently in.

=cut

sub _whoami { my $name = (caller 1)[3]; $name =~ s/.+:://; $na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1223	1321	
==>fine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1223	1321	
==>fine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1223	1321	
==>fine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10960	11102	
==>t =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10960	11102	
==>t =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10960	11102	
==>t =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1102	1207	
==>tom
    # Module::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Install is a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8297	8398	
==>de = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32975	33075	
==>es:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32975	33075	
==>es:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8009	8106	
==>de = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18784	18880	
==>C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17827	17923	
==>C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18784	18880	
==>C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17827	17923	
==>C<$autoping>
seconds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2483	2582	
==>f, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2483	2582	
==>f, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2483	2582	
==>f, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10509	10615	
==>ted graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10509	10615	
==>ted graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2031	2120	
==>n("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "po <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2103	2192	
==>n("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "po <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13532	13660	
==>r_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13532	13660	
==>r_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	973	1079	
==>me



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is first match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	936	1037	
==>me

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is first match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2806	2925	
==>, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2806	2925	
==>, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2806	2925	
==>, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude" <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	397	499	
==>he module if possible
sub can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3057	3162	
==>h; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3057	3162	
==>h; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3057	3162	
==>h; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1138	1257	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1138	1257	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1138	1257	
==>) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	726	845	
==>{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7689	7792	
==>_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7689	7792	
==>_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7689	7792	
==>_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26635	26737	
==>" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minmod;
  push @ISA, qw( Regexp::Parser <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23453	23592	
==>ide("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10430	10571	
==>/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6771	6912	
==>/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7620	7761	
==>/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3802	3923	
==>self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3301	3423	
==>|   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11681	11782	
==>arn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11681	11782	
==>arn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11681	11782	
==>arn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	74	173	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	74	173	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	74	173	
==>equire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7661	7818	
==>= +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be igno <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27122	27213	
==>n alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31674	31765	
==>n alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30730	30821	
==>n alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rela <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2027	2149	
==>ase);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2027	2149	
==>ase);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3951	4045	
==>ig::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3951	4045	
==>ig::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	571	705	
==>e / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	571	705	
==>e / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PI <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1982	2101	
==>rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    tok <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1982	2101	
==>rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	551	666	
==>value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	551	666	
==>value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	551	666	
==>value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1063	1163	
==>| $Config{installman1dir},
        installsiteman3dir => $Config{installsiteman3dir} || $Config{insta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2528	2632	
==>]->store($name, $nil::NIL);    
}

1;

__END__

=pod

=head1 NAME

opaque - the core opaque instance type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	109	202	
==>le contains p5 runtime primitives which are written in p6.
Most will eventually be implemented <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	109	202	
==>le contains p5 runtime primitives which are written in p6.
Most will eventually be implemented <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	109	202	
==>le contains p5 runtime primitives which are written in p6.
Most will eventually be implemented <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1146	1263	
==>ir.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1146	1263	
==>ir.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcirc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1146	1263	
==>ir.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcirc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21731	21828	
==>ch installs all the handlers for standard Perl 5 regexes.  This
documentation contains a sub-class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8743	8848	
==>other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6272	6373	
==>other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	800	900	
==>tore for single elements (Span::Singleton)
    * use binary search instead of linear search

  From P <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	800	900	
==>tore for single elements (Span::Singleton)
    * use binary search instead of linear search

  From P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2889	2998	
==>fied at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2889	2998	
==>fied at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shi <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	822	930	
==>&$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is default {
   my %resul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11084	11250	
==>f $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11084	11250	
==>f $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11084	11250	
==>f $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22322	22439	
==>PGE::Exp::WS" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	812	926	
==>ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	812	926	
==>ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	812	926	
==>ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @var <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5765	5853	
==>reverse(Rx,R)}, ")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8411	8530	
==>\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	315	433	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	315	433	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	315	433	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2942	3144	
==>events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3196	3398	
==>events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2942	3144	
==>events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3196	3398	
==>events<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6059	6181	
==>tr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6059	6181	
==>tr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6059	6181	
==>tr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2168	2269	
==>ft;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Blondie::Nodes-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	836	931	
==>e );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $co <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	836	931	
==>e );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4346	4478	
==>1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4346	4478	
==>1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4346	4478	
==>1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17343	17445	
==>print "$bonusmsg.\n" if $bonusmsg;
            die "Failed $tot->{bad}/$tot->{tests} test scripts, $pct <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	668	814	
==>]; \\\@match },
        } }";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	682	806	
==>ts\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	682	806	
==>ts\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	682	806	
==>ts\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3283	3392	
==>en =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::T <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3283	3392	
==>en =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::T <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10323	10418	
==>her(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10323	10418	
==>her(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12326	12433	
==>/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	122	222	
==>ds on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	122	222	
==>ds on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	122	222	
==>ds on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8260	8359	
==>if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8248	8347	
==>if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3365	3458	
==>Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3365	3458	
==>Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11801	11899	
==>hic to one another. 

Because instances of class all conform to the Role interface/API they are 
in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11801	11899	
==>hic to one another. 

Because instances of class all conform to the Role interface/API they are 
in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11801	11899	
==>hic to one another. 

Because instances of class all conform to the Role interface/API they are 
in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	842	959	
==>)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	842	959	
==>)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	842	959	
==>)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	292	410	
==>_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23752	23849	
==>n("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_com <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23752	23849	
==>n("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_com <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23752	23849	
==>n("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_com <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11899	12032	
==>{ 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12178	12311	
==>{ 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22868	22958	
==>d2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22868	22958	
==>d2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNO <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13165	13270	
==>les to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$initrd_mnt/dev/console" },
    pause  => 1,
    usin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2618	2720	
==>at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2618	2720	
==>at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2618	2720	
==>at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4182	4286	
==>lf: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Objec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4182	4286	
==>lf: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Objec <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	419	522	
==>lf: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Objec <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	419	522	
==>lf: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22782	22918	
==>$class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23284	23420	
==>$class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14324	14420	
==>()
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14324	14420	
==>()
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5684	5863	
==>boxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5684	5863	
==>boxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5684	5863	
==>boxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whi <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	2178	2302	
==>_day, $till_day[-1] || 0
        while $#till_day < $cur_day;
    } else {
      $till_day[-1]++;
    }
  }

  return @till_d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1024	1161	
==>_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1024	1161	
==>_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22124	22217	
==>the multiple language
or permissions issue; simply order the files appropriately in the search <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22124	22217	
==>the multiple language
or permissions issue; simply order the files appropriately in the search <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19974	20086	
==>array
    padarray = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0]
    exp = exp.p6analyze(pad)
    sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2639	2748	
==>sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2639	2748	
==>sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2639	2748	
==>sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dis <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8905	9030	
==>-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8905	9030	
==>-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8790	8883	
==>ng Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..In <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8790	8883	
==>ng Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..In <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22645	22752	
==>let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1736	1841	
==>or message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1736	1841	
==>or message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1736	1841	
==>or message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	800	899	
==>ter mess.

The project objectives are nominally:
  1- Provide an environment in which p6 rules can b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16374	16483	
==>omplain->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_object => sub { $_[0] },
     );
sub p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1559	1666	
==>undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1559	1666	
==>undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1559	1666	
==>undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7184	7269	
==>e_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7184	7269	
==>e_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7184	7269	
==>e_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14516	14648	
==>num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14516	14648	
==>num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14516	14648	
==>num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7681	7788	
==>return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	427	533	
==>at the runtime needs to 
# have available ...
$::Class   = undef;
$::Object  = undef;
$::Module  = undef;
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3996	4087	
==>6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3996	4087	
==>6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3996	4087	
==>6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10122	10256	
==>my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10122	10256	
==>my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10122	10256	
==>my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->c <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20436	20533	
==>$cmd = %?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7042	7209	
==>l = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6806	6968	
==>l = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8357	8464	
==>ecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8357	8464	
==>ecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2529	2639	
==>() + 1);
  }
  return $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	273	370	
==>) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	273	370	
==>) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	273	370	
==>) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1493	1598	
==>ry->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1493	1598	
==>ry->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1493	1598	
==>ry->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18332	18428	
==>uts of the perl core, to permit the use
of alternate regexp engines.  There being little document <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7396	7501	
==>LER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwante <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7454	7559	
==>LER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwante <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	629	720	
==>SIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a li <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	629	720	
==>SIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a li <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	258	370	
==>&ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	258	370	
==>&ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4009	4113	
==>tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4009	4113	
==>tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6240	6361	
==>unction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6298	6419	
==>unction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33965	34060	
==>n order, if preferred ones aren't supported by a program or its libraries.
When translating a me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33965	34060	
==>n order, if preferred ones aren't supported by a program or its libraries.
When translating a me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	839	943	
==>ole.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	839	943	
==>ole.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	839	943	
==>ole.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I p <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3578	3672	
==>t-path=$parrot_path
    mklivecd.pl takes --parrot-path as the root of an Parrot source directo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3427	3535	
==>nside a closure, refers to the current match, even if there is another
        match inside the closure
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3438	3546	
==>nside a closure, refers to the current match, even if there is another
        match inside the closure
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	232	330	
==>}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	232	330	
==>}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6854	6963	
==>t: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6854	6963	
==>t: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6854	6963	
==>t: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3090	3183	
==>?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Compiler::Rule->compile(<<' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4271	4388	
==>"  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4411	4528	
==>"  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . " <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	696	811	
==>";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.com/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	595	696	
==>";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19387	19646	
==>original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19387	19646	
==>original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19387	19646	
==>original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6205	6383	
==>er
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Gra <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12507	12624	
==>tine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actuall <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12507	12624	
==>tine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actuall <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30248	30345	
==>, which will be substituted at run-time before the text
is shown to the user.

Each Template modul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30248	30345	
==>, which will be substituted at run-time before the text
is shown to the user.

Each Template modul <==
4	/Users/nnunley/pugs/util/grokprims.pl	224	345	
==>right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    chain => 'chaining infix' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2964	3077	
==>ink.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2964	3077	
==>ink.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2964	3077	
==>ink.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5320	5418	
==>ect to clear its internal state as completely as possible. 
This is automatically done as part of C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5320	5418	
==>ect to clear its internal state as completely as possible. 
This is automatically done as part of C <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39770	39864	
==>edistribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39770	39864	
==>edistribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4841	4986	
==>->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1965	2098	
==>$obj->index((defined $index
                    ? dir($index)
                    : $obj->root->subdir($config->repo_index)
        )) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2272	2385	
==>1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2272	2385	
==>1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	442	548	
==>_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	442	548	
==>_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6006	6100	
==>bug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6006	6100	
==>bug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<user <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18885	19013	
==>goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18885	19013	
==>goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18885	19013	
==>goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	227	323	
==>, "nows", "PGE::Exp::Cut");
    $optable->addToken("term:\\b", "term:", "nows", "PGE::Exp::Anchor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13871	13986	
==>ie;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13871	13986	
==>ie;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	72	174	
==>submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	72	174	
==>submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7308	7481	
==>roject_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation::Example {

    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13764	13861	
==>(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13764	13861	
==>(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13764	13861	
==>(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5205	5316	
==>eading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8682	8793	
==>eading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7702	7813	
==>eading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18326	18504	
==>" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'("Undefined variable $_[1] in '.$where.'\n") '.";\n";
    $code .= "}\n";

    eval_p5_code($code);
}
sub p6_wrap_code_with <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7679	7818	
==>(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->item <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7679	7818	
==>(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->item <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7679	7818	
==>(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->item <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2343	2460	
==>/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	151	251	
==>warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	151	251	
==>warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	151	251	
==>warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
us <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	449	559	
==>ered a protected 
# method, which is used to implement the 
# other methods below
sub _compare { confess 'You m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1764	1857	
==>=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1764	1857	
==>=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1764	1857	
==>=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12745	12982	
==>s] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12745	12982	
==>s] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12745	12982	
==>s] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33739	33830	
==>ng!, Code $transformer!) returns Relation::Example>

This method is a short-hand or alternat <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6890	7007	
==>= "$file is not readable";
        return;
    }

    local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
    if ( $Test::Har <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8632	8745	
==>erl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8632	8745	
==>erl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8632	8745	
==>erl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3523	3651	
==>ll() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3523	3651	
==>ll() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3523	3651	
==>ll() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}-> <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1815	1912	
==>ill_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17230	17337	
==>in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17230	17337	
==>in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17230	17337	
==>in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29254	29353	
==>erge()

Merges this node with the previous one, if they are of the same type. If
it is called I<afte <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	415	544	
==>t = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for rea <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	415	544	
==>t = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for rea <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8890	8987	
==>ent processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a spe <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8890	8987	
==>ent processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	689	797	
==>hift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	689	797	
==>hift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	689	797	
==>hift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	16	118	
==>engine_demo.pl';
use Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)= <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	27	123	
==>use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

ou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	27	123	
==>use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

ou <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	738	833	
==>SIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	738	833	
==>SIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Build <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22482	22597	
==>>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23045	23160	
==>>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18903	19018	
==>>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19466	19581	
==>>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13535	13669	
==>= substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3676	3798	
==>= substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3676	3798	
==>= substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3676	3798	
==>= substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5449	5559	
==>n received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5449	5559	
==>n received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2633	2729	
==>that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2633	2729	
==>that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4800	4896	
==>s>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4800	4896	
==>s>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4800	4896	
==>s>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	592	707	
==>ers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	592	707	
==>ers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	592	707	
==>ers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatche <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3119	3233	
==>of this Relation::Example's attributes.
        # Note that it is valid for a Relation::Example to have zero attrib <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	771	896	
==>hars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	771	896	
==>hars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11909	12009	
==>ing the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11909	12009	
==>ing the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	12	104	
==>t_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	12	104	
==>t_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	12	104	
==>t_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18875	18965	
==>ode)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_log_f <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9918	10042	
==>,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7858	7982	
==>,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9918	10042	
==>,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7858	7982	
==>,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2 <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2052	2153	
==>ub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1986	2079	
==>_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1986	2079	
==>_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1986	2079	
==>_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1968	2111	
==>e_name { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2687	2799	
==>$_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2687	2799	
==>$_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2687	2799	
==>$_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
su <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5765	5930	
==>goto term_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4120	4240	
==>->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4120	4240	
==>->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4120	4240	
==>->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{s <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1677	1804	
==>MonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.d <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1677	1804	
==>MonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14209	14314	
==>g and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} secon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14209	14314	
==>g and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} secon <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1309	1485	
==>} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_el <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1309	1485	
==>} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_el <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3330	3495	
==>]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3577	3742	
==>]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	598	724	
==>s, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	598	724	
==>s, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	598	724	
==>s, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	429	548	
==>xity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14794	14947	
==>ay;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    has Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8077	8217	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8077	8217	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8077	8217	
==>lass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        at <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	508	615	
==>quire Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    Current directory is @{[Cwd::abs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4567	4667	
==>pile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4567	4667	
==>pile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4567	4667	
==>pile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{out <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3691	3803	
==>urn 'str' if !((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7479	7585	
==>efix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7479	7585	
==>efix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7479	7585	
==>efix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1056	1167	
==>ted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1056	1167	
==>ted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1056	1167	
==>ted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1123	1300	
==>y)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1123	1300	
==>y)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25793	25881	
==>]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8608	8751	
==>istify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8608	8751	
==>istify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8608	8751	
==>istify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7524	7640	
==>ess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7524	7640	
==>ess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7524	7640	
==>ess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6493	6601	
==>n}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7229	7337	
==>n}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6493	6601	
==>n}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7229	7337	
==>n}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18171	18323	
==>sed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18171	18323	
==>sed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18171	18323	
==>sed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2230	2378	
==>{
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Uti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2472	2588	
==>L2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2472	2588	
==>L2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2472	2588	
==>L2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDT <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1068	1179	
==>er_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: join( ' ', @_ ) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4704	4806	
==>p5_range_bounds( 0 ,Max) --> ",", digits_int(Max).
p5_range_bounds_RHS(_Min,Max) --> ",", digits_int(Ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6118	6214	
==>urce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6118	6214	
==>urce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6118	6214	
==>urce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fol <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12602	12745	
==>\"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8876	9019	
==>\"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9711	9854	
==>\"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macr <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17443	17538	
==>tlecase" operation on the first character of the string.


=item capitalize

 multi Str::capital <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5086	5221	
==>l variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Yo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5086	5221	
==>l variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Yo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5086	5221	
==>l variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10211	10350	
==>( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$iden <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6552	6691	
==>( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$iden <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7401	7540	
==>( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$iden <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6946	7057	
==>ew("int");
	$self;
}


package types;

use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15005	15107	
==>of_class => space => $neg, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4716	4815	
==>ess):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Meta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4716	4815	
==>ess):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Meta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4716	4815	
==>ess):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Meta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11298	11418	
==>ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11577	11697	
==>ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20658	20757	
==>ar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field nam <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20658	20757	
==>ar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field nam <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4359	4457	
==>urn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("ope <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15795	15893	
==>urn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("ope <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4359	4457	
==>urn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15795	15893	
==>urn a logical value, whether the `start` or `end` values belong to the span ("closed") or not ("ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7326	7431	
==>y because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7326	7431	
==>y because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7326	7431	
==>y because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5272	5373	
==>lGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5408	5509	
==>heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation::Exa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5272	5373	
==>lGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5272	5373	
==>lGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16829	16925	
==>tional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16829	16925	
==>tional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3409	3503	
==>ssed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "arg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4091	4185	
==>ssed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "arg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	570	669	
==>dles 'use base "Regexp::Parser"'
# which wouldn't call 'import'
{
  my ($level, $prev, $pkg);
  whil <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8898	8998	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3827	3927	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8898	8998	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3827	3927	
==>ght (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code is free software, and may be used, d <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11512	11622	
==>$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $self = shift;
    my $node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	345	450	
==>rlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	345	450	
==>rlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	345	450	
==>rlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	481	576	
==>ubclasses" });
Has($?CLASS, "subclasses", "Set", { companion => "superclasses" });

# every Meta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22565	22659	
==>ct has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27117	27211	
==>ct has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25849	25943	
==>ct has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7942	8040	
==>ecret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7942	8040	
==>ecret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the ciphe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19242	19337	
==><lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19242	19337	
==><lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
d <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8182	8292	
==>l::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8574	8684	
==>l::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8182	8292	
==>l::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8574	8684	
==>l::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13923	14026	
==>on?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- ` <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13981	14084	
==>on?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24495	24593	
==>ion as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29047	29145	
==>ion as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7568	7692	
==>lems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7568	7692	
==>lems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7568	7692	
==>lems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => und <==
4	/Users/nnunley/pugs/util/package-osx.pl	4332	4429	
==>5.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/man/man3/Perl6::Bible:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24122	24221	
==>nt automatically sending something
  in response to something it received.  This is typically used b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22895	22994	
==>nt automatically sending something
  in response to something it received.  This is typically used b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24122	24221	
==>nt automatically sending something
  in response to something it received.  This is typically used b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22895	22994	
==>nt automatically sending something
  in response to something it received.  This is typically used b <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6116	6230	
==>ments );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue""p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4088	4201	
==>l_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4937	5050	
==>l_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2211	2354	
==>);
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2211	2354	
==>);
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2211	2354	
==>);
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6495	6587	
==>module parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1052	1153	
==>umber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1052	1153	
==>umber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1052	1153	
==>umber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, " <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3663	3780	
==>in' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3663	3780	
==>in' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	513	630	
==>in' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3227	3372	
==>atisfied?
            my $info = LoadFile( 
                File::Spec->catdir( $meta_dir, $config->meta_file ) );
            
            my %av <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2491	2588	
==>ith_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2491	2588	
==>ith_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2491	2588	
==>ith_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30144	30232	
==>the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>] <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34696	34784	
==>the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>] <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33869	33957	
==>the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1482	1589	
==>();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1482	1589	
==>();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1482	1589	
==>();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0] <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7897	7991	
==>$command_line = $self->_command_line();

Returns the full command line that will be run to test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21598	21696	
==>xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21598	21696	
==>xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21598	21696	
==>xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11871	12008	
==>r $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => stri <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11871	12008	
==>r $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => stri <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23811	23902	
==>generally a simpler solution
than alternatives, and doesn't know about language specific det <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23811	23902	
==>generally a simpler solution
than alternatives, and doesn't know about language specific det <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2492	2616	
==>ptimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2492	2616	
==>ptimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2809	2927	
==>rn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2809	2927	
==>rn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1224	1322	
==>er returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1224	1322	
==>er returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1771	1869	
==>er returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15882	15978	
==>_bail_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$reason);

Checks if the line is a " <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	636	756	
==>($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1392	1512	
==>acted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1392	1512	
==>acted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted }, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10975	11072	
==>= $code_val; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namest <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2068	2261	
==>$!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5545	5738	
==>$!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4475	4668	
==>$!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14201	14309	
==>fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::variable::free->ne <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3235	3397	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("< <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4041	4203	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3235	3397	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("< <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4041	4203	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4273	4421	
==>ms :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4273	4421	
==>ms :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4273	4421	
==>ms :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16579	16670	
==>ELF!_inner_join( $other );
}

multi method join (Relation::Example *@others) returns Relatio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1792	1952	
==>ls}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2275	2373	
==>n};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2253	2351	
==>n};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1104	1197	
==>c, $ghc_version, $setup, @args) = @{$opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_ve <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4628	4727	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3755	3854	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4628	4727	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3755	3854	
==>(Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
mu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3901	4020	
==>|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3901	4020	
==>|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5895	5993	
==>tatus code is returned

=item Item Context

All headers are returned as one long string, or maybe a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5895	5993	
==>tatus code is returned

=item Item Context

All headers are returned as one long string, or maybe a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3086	3262	
==>ion $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of St <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6563	6739	
==>ion $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of St <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5786	5887	
==>ndary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5786	5887	
==>ndary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2032	2143	
==>.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2032	2143	
==>.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2032	2143	
==>.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15186	15282	
==>lue is always returned.
If the given header did not exist then C<undef> is returned.

Methods tha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15186	15282	
==>lue is always returned.
If the given header did not exist then C<undef> is returned.

Methods tha <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	239	331	
==>capeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	239	331	
==>capeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	99	353	
==>ls:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	99	353	
==>ls:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	99	353	
==>ls:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	99	353	
==>ls:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3845	3951	
==>, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3845	3951	
==>, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5369	5475	
==>, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2107	2248	
==>rom the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2107	2248	
==>rom the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2107	2248	
==>rom the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2622	2747	
==>self->family;
  }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6558	6658	
==>«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode opera <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5688	5788	
==>«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode opera <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6558	6658	
==>«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode opera <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5688	5788	
==>«⊋» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14498	14597	
==>$xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14498	14597	
==>$xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14498	14597	
==>$xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19487	19584	
==>logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a read <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19487	19584	
==>logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a read <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14564	14687	
==>_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it ca <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14564	14687	
==>_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17189	17283	
==>timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compiler <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17189	17283	
==>timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compiler <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1086	1324	
==>\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1002	1110	
==>lf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1002	1110	
==>lf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1002	1110	
==>lf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8287	8464	
==>'$label'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symbol $label) returns method { 
    %:meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1707	1823	
==>te($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1707	1823	
==>te($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1707	1823	
==>te($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5071	5218	
==>out}= \$_[1] }\n";
    }
    $prec = "P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1177	1296	
==>o    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1177	1296	
==>o    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1619	1713	
==>ion) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1708	1822	
==>.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code *&expression) returns Scalar
 multi sub  Perl6:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34837	34933	
==>hat match any tuples of C<$other> along
their common attributes.  This method will fail if the he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39387	39483	
==>hat match any tuples of C<$other> along
their common attributes.  This method will fail if the he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38920	39016	
==>hat match any tuples of C<$other> along
their common attributes.  This method will fail if the he <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5135	5277	
==>p(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($toke <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5135	5277	
==>p(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($toke <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15104	15193	
==>hich
multiple interchangeable "Engine" back-ends (usually provided by third
parties) imple <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15104	15193	
==>hich
multiple interchangeable "Engine" back-ends (usually provided by third
parties) imple <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	373	499	
==>rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	522	648	
==>rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	373	499	
==>rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	522	648	
==>rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1353	1477	
==>ite t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1353	1477	
==>ite t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $spa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5920	6020	
==>ck>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5920	6020	
==>ck>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined cha <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4170	4318	
==>rg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0];

    $v{0} --> %v{0};

    $#v   --> @v.l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3282	3390	
==>ss => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3282	3390	
==>ss => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3282	3390	
==>ss => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21752	21856	
==>ects.  I was getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the fie <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38268	38363	
==>tem C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42817	42912	
==>tem C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<d <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42467	42562	
==>tem C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8169	8283	
==>0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8169	8283	
==>0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8169	8283	
==>0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arra <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	48	150	
==>icScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicSc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3335	3436	
==>pan1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8103	8204	
==>pan1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3335	3436	
==>pan1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8103	8204	
==>pan1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19872	19971	
==>artly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, inc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19872	19971	
==>artly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, inc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16252	16346	
==>ious other external documentation for much of that.

The Rosetta Native Interface is defined ma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16252	16346	
==>ious other external documentation for much of that.

The Rosetta Native Interface is defined ma <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3243	3439	
==>{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:per <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3243	3439	
==>{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:per <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6248	6361	
==>data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6248	6361	
==>data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33324	33522	
==>>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33324	33522	
==>>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33324	33522	
==>>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1253	1358	
==>EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1253	1358	
==>EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1253	1358	
==>EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2522	2619	
==>e_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rule>
  | <character>
}

# XXX - not \S, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7307	7420	
==>undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7307	7420	
==>undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7307	7420	
==>undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12902	12987	
==>il(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
brackets("<"," <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	737	838	
==>onstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equival <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	737	838	
==>onstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equival <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	737	838	
==>onstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equival <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7661	7766	
==>("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	834	935	
==>ther_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	834	935	
==>ther_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	834	935	
==>ther_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6449	6648	
==>$step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1). <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6449	6648	
==>$step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1). <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6449	6648	
==>$step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1). <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3227	3396	
==>e => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5924	6033	
==>nshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return se <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5924	6033	
==>nshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1842	1942	
==>elf!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1842	1942	
==>elf!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2990	3132	
==>e
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2990	3132	
==>e
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9381	9490	
==>odo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9439	9548	
==>odo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3021	3165	
==>ule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3021	3165	
==>ule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	409	504	
==>r_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull() <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	409	504	
==>r_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3406	3607	
==>?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3273	3463	
==>?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1798	1896	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; y <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1798	1896	
==>l>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; y <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7273	7360	
==>ut hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7273	7360	
==>ut hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7273	7360	
==>ut hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32854	33019	
==>[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32854	33019	
==>[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32854	33019	
==>[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22488	22576	
==>set_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrang <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2745	2861	
==>s Str $.subname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.params;   # FIXME: needs attention; don't u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1437	1535	
==>an_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Int <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1437	1535	
==>an_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Int <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1437	1535	
==>an_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Int <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4819	4983	
==>L results.
            @tests = sort @tests;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            exit 0;
        } else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2215	2316	
==>ash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2215	2316	
==>ash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Contai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2215	2316	
==>ash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Contai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3172	3274	
==>j and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3172	3274	
==>j and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3172	3274	
==>j and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23768	23869	
==>urce Identifier Character Classes

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacter <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	841	960	
==>ssors( qw[installations] );
    
    $obj->installations( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20890	20987	
==>you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordere <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25442	25539	
==>you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordere <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5559	5667	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superse <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4689	4797	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5559	5667	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4689	4797	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set $two) returns Set {
    $one.superse <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17496	17638	
==>ody => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20973	21115	
==>ody => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20560	20702	
==>ody => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5726	5828	
==>ons:

=item * name => $category_name - the name of this category 
(a namespace or a Grammar name).

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6070	6192	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6070	6192	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6070	6192	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	212	308	
==>er::Rule::Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6946	7043	
==>, $size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6946	7043	
==>, $size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1780	1872	
==>t = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcd <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1780	1872	
==>t = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcd <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7299	7519	
==>);

    my(%failedtests);

    # Test-wide totals.
    my(%tot) = (
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7558	7687	
==>&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7305	7427	
==>&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1214	1308	
==>s

=head1 VERSION

This document describes version 0.03 of re::override, released
March 12, 200 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5169	5265	
==>ush @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5362	5458	
==>ush @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21016	21107	
==>gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21016	21107	
==>gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<chann <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	30	126	
==>se warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	30	126	
==>se warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	30	126	
==>se warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2024	2120	
==>1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2024	2120	
==>1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2024	2120	
==>1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12269	12388	
==>) {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4912	5031	
==>) {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1652	1756	
==>ammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1652	1756	
==>ammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1928	2032	
==>w we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1928	2032	
==>w we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1928	2032	
==>w we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18931	19015	
==>F0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	834	939	
==>fix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	834	939	
==>fix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	834	939	
==>fix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1723	1826	
==>lf->$_ } $self->ls_accessors;

    return \%struct;
}

1;

# Local variables:
# c-indentation-style: bsd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8245	8365	
==>}

    return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	774	877	
==>::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	774	877	
==>::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34226	34321	
==></(?=a)(?=b)(?=c)d/> in Perl.  We will support this with the '&'
metacharacter.

We have added a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4385	4478	
==>inds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4385	4478	
==>inds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4385	4478	
==>inds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This com <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3990	4089	
==>property_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName ($O:) { $.prope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16933	17020	
==>RO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16933	17020	
==>RO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16933	17020	
==>RO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11640	11750	
==>$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11640	11750	
==>$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1429	1555	
==>tr $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

me <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1429	1555	
==>tr $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19394	19481	
==>> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19394	19481	
==>> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5777	5905	
==>ant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5777	5905	
==>ant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	293	383	
==>TION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	293	383	
==>TION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2307	2436	
==>? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9079	9208	
==>? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2307	2436	
==>? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9079	9208	
==>? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	118	216	
==>... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	118	216	
==>... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	118	216	
==>... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12967	13133	
==>();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12967	13133	
==>();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_p <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1434	1556	
==>ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) & <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23487	23582	
==>tors with versions that are more specific to
their own objects, for efficiency, and they can opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17395	17492	
==>n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17395	17492	
==>n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17395	17492	
==>n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	504	599	
==>y $orig = $node->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{du <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11239	11398	
==>id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11239	11398	
==>id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11239	11398	
==>id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1213	1326	
==>t;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$tab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9765	9869	
==>amed;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9765	9869	
==>amed;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9765	9869	
==>amed;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6a <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2568	2689	
==>itelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	782	894	
==>e

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	782	894	
==>e

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	782	894	
==>e

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	309	411	
==>ulti Num::round_half_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7899	8016	
==>@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7899	8016	
==>@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7899	8016	
==>@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	883	983	
==>> \\(0+$-[0]), to => \\(0+$+[0]),
    bool => \\$bool, match => \\@match, named => {}, capture => \\ <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1452	1564	
==>okens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	146	250	
==>tart = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var sec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	146	250	
==>tart = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var sec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	146	250	
==>tart = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var sec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2427	2529	
==>($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2427	2529	
==>($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DE <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1391	1490	
==>$_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg): <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1391	1490	
==>$_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg): <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19890	20008	
==>Pe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16311	16429	
==>Pe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : ' <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8675	8763	
==>say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed une <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8733	8821	
==>say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed une <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3049	3162	
==>e an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3049	3162	
==>e an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3049	3162	
==>e an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      de <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4471	4580	
==>)

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4471	4580	
==>)

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a duration <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13352	13448	
==>.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment that <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13410	13506	
==>.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15754	15858	
==>.};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15754	15858	
==>.};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15754	15858	
==>.};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULT <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2907	3028	
==>ef as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2907	3028	
==>ef as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31880	31973	
==>s a generic binary relational operator that takes a single
Relation in its C<$other> argument, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36430	36523	
==>s a generic binary relational operator that takes a single
Relation in its C<$other> argument, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8889	9090	
==>age )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	565	675	
==>_setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pk <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	565	675	
==>_setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pk <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6642	6736	
==>nt>*');

my $source = `cat parser_spike_target.p6`;
my $m = match($Perl_prog,$source);

$Data:: <==
4	/Users/nnunley/pugs/util/func_refact.pl	448	542	
==>ore, can iterate. -debug <fname> is a function to print more
information about as components ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10773	10891	
==>: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10773	10891	
==>: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10773	10891	
==>: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @pa <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1897	1992	
==>issing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1897	1992	
==>issing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37986	38080	
==>tine's result, which is a Template text
string if the module recognizes $msg_key, and the undef <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37986	38080	
==>tine's result, which is a Template text
string if the module recognizes $msg_key, and the undef <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12894	13000	
==>od livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12894	13000	
==>od livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	595	699	
==>$0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	595	699	
==>$0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notic <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	97	200	
==>Argument::Style;
        has $normalizer_role = ::Getopt::Argument::Normalizer::Null;
        has $coerc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	197	288	
==>Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	197	288	
==>Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
us <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32375	32484	
==>ts to object() that will produce
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = s <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	297	397	
==>ramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

method &infix:«==»($self, Perl::Pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19142	19238	
==>t of the program*, and not the program's users' own data; only
someone already involved in making <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19142	19238	
==>t of the program*, and not the program's users' own data; only
someone already involved in making <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	911	1008	
==>sar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	911	1008	
==>sar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	27	121	
==>:Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	27	121	
==>:Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	781	904	
==>@:diagnostics.join( "\n" );
        @:diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1009	1106	
==>r C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte v <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1009	1106	
==>r C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3087	3240	
==>rn "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3087	3240	
==>rn "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4838	4932	
==>ct returns the numified version
of the result object (usually the entire match string).

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4838	4932	
==>ct returns the numified version
of the result object (usually the entire match string).

=head1 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13932	14047	
==>ee 11.2
      <'('> <')'>
    | <'('> <ArgumentList> <')'>
}
rule ArgumentList :words {  # see 11.2
      <Assignmen <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5657	5783	
==>++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


# copied from S29draft. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2613	2714	
==>Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2613	2714	
==>Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2613	2714	
==>Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3191	3322	
==>(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3191	3322	
==>(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3191	3322	
==>(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	240	337	
==>trict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'Mod <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	312	425	
==>eturns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi sub pi is read <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13762	13853	
==>Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13762	13853	
==>Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13762	13853	
==>Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12666	12772	
==>e op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ran <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12666	12772	
==>e op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ran <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12666	12772	
==>e op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ran <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11822	11918	
==>es
a named character's name, and returns the actual character:

  my $R = $parser->nchar("LATIN C <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50295	50441	
==>et('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	749	847	
==>$volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canon <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	749	847	
==>$volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canon <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22570	22668	
==>ngth_and_first_gen = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17241	17337	
==>estroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17241	17337	
==>estroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17241	17337	
==>estroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	938	1035	
==>sses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	938	1035	
==>sses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	938	1035	
==>sses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3175	3284	
==>ned $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3175	3284	
==>ned $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unle <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3175	3284	
==>ned $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unle <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1240	1347	
==>ers = $self.all_superclasses;
    die "Uh-oh, there's a super in my duper!"
        if $supers.includes($sel <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15874	15987	
==>bin or die "Couldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2123	2234	
==>e ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2123	2234	
==>e ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2593	2689	
==>the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just process <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2593	2689	
==>the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just process <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1963	2061	
==>!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipula <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1963	2061	
==>!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipula <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18144	18226	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18452	18534	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41409	41491	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41717	41799	
==>> $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD')))) <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1085	1201	
==>ft );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1976	2092	
==>ft );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1323	1417	
==>tening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1323	1417	
==>tening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24042	24135	
==>tional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28594	28687	
==>tional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27425	27518	
==>tional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3625	3752	
==>ion)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themse <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3625	3752	
==>ion)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5149	5276	
==>ion)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themse <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	854	957	
==>soc @.rev_assocs;   # of assocs

method new($class: Str $name) returns Meta::Class {

    $.name = $name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	266	392	
==>pe {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	266	392	
==>pe {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	266	392	
==>pe {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17126	17272	
==>d have been run
  seen              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	881	1007	
==>") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	894	1015	
==>") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	92	217	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	92	217	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	92	217	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3672	3774	
==>2->get_y, 200, '... still got the right y for p2');
is($p1->get_x, 15, '... still got the right x for p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18981	19116	
==>) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15402	15537	
==>) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	689	785	
==>_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	747	843	
==>_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	237	345	
==>ess {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	237	345	
==>ess {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	237	345	
==>ess {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17696	17802	
==>n";
    $code .= "our \$META;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2646	2799	
==>es = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2559	2707	
==>es = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1889	1982	
==>understand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1889	1982	
==>understand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3237	3369	
==>)  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3237	3369	
==>)  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3237	3369	
==>)  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24789	24891	
==>starting points
 * for a match, cutting down the work a lot.  Regmust permits fast rejection
 * of line <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	208	364	
==>given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognize <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	208	364	
==>given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognize <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	846	956	
==>VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	846	956	
==>VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	846	956	
==>VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4831	4969	
==>::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4831	4969	
==>::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4831	4969	
==>::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7666	7773	
==>urn Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	145	244	
==>ndline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	145	244	
==>ndline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	145	244	
==>ndline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestP <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2307	2427	
==>ath = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2307	2427	
==>ath = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9097	9189	
==>turn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed() <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9097	9189	
==>turn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed() <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3271	3378	
==>l "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3271	3378	
==>l "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3088	3186	
==>ME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Serv <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3088	3186	
==>ME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Serv <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	693	799	
==>$self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num ty <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1375	1481	
==>$self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num ty <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14043	14141	
==>) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing func <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14101	14199	
==>) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing func <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1924	2075	
==>new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1924	2075	
==>new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my % <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3448	3581	
==>\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3448	3581	
==>\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6944	7077	
==>ist      pre     Str::split   safe   (Str)\
\\n   List      pre     Str::split   safe   (Str: Str)\
\\n   List      pre     Str::split <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2849	2936	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2849	2936	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2849	2936	
==>igenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:na <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1317	1443	
==>arams();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_stri <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1317	1443	
==>arams();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_stri <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2024	2131	
==>s.Prelude where

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
>   No stain yet o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	202	302	
==>de->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	202	302	
==>de->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	202	302	
==>de->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4141	4253	
==>$param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4141	4253	
==>$param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4731	4843	
==>$param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	82	188	
==>"redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { $w };
}

### This is the ONLY <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24096	24190	
==>avoid loops between a client automatically sending something
  in response to something it rece <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22869	22963	
==>avoid loops between a client automatically sending something
  in response to something it rece <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24096	24190	
==>avoid loops between a client automatically sending something
  in response to something it rece <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22869	22963	
==>avoid loops between a client automatically sending something
  in response to something it rece <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2608	2760	
==>f ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_es <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6720	6818	
==>) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6720	6818	
==>) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6720	6818	
==>) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15357	15495	
==>)} 
                $beg->look_down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1240	1336	
==>l:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1240	1336	
==>l:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1240	1336	
==>l:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ru <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1781	1914	
==>ingify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1781	1914	
==>ingify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24173	24300	
==>en_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20594	20721	
==>en_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3028	3129	
==>}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3028	3129	
==>}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	401	497	
==>th = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content- <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	401	497	
==>th = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11796	11933	
==>ay slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11796	11933	
==>ay slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11796	11933	
==>ay slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5242	5333	
==>'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3438	3541	
==>e.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pIn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3438	3541	
==>e.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pIn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3438	3541	
==>e.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pIn <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4822	4922	
==>haracter_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28411	28517	
==>nd you shouldn't try to
extract them.  This method is also defined as the implicit handler when
coercing th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35767	35873	
==>nd you shouldn't try to
extract them.  This method is also defined as the implicit handler when
coercing th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28411	28517	
==>nd you shouldn't try to
extract them.  This method is also defined as the implicit handler when
coercing th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35767	35873	
==>nd you shouldn't try to
extract them.  This method is also defined as the implicit handler when
coercing th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3316	3419	
==>5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4653	4756	
==>5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ' <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3316	3419	
==>5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4875	4978	
==>5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18584	18688	
==>e Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1259	1355	
==>, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1259	1355	
==>, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1259	1355	
==>, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23118	23237	
==>xPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19539	19658	
==>xPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15832	15932	
==>r.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15832	15932	
==>r.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules th <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4578	4703	
==>s ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2320	2443	
==>s ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1853	1957	
==>s copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1853	1957	
==>s copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inter <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8553	8662	
==>nd
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1518	1617	
==>ce' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1518	1617	
==>ce' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1518	1617	
==>ce' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::op <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5644	5740	
==>s all the given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7041	7133	
==>leton_test_on_object',
   '... got the right return value from another Object singleton/class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8028	8120	
==>leton_test_on_object',
   '... got the right return value from another Object singleton/class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10597	10689	
==>leton_test_on_object',
   '... got the right return value from another Object singleton/class <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20333	20435	
==>eturns a true value if the bot's socket to the server is currently connected.

Note that you might want <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19281	19383	
==>eturns a true value if the bot's socket to the server is currently connected.

Note that you might want <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20333	20435	
==>eturns a true value if the bot's socket to the server is currently connected.

Note that you might want <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19281	19383	
==>eturns a true value if the bot's socket to the server is currently connected.

Note that you might want <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	378	483	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg=" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	378	483	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg=" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	378	483	
==>$v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg=" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7324	7428	
==>oes Role');

# create a class to put the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar', <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2246	2351	
==>e.exists($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	499	589	
==>LER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	499	589	
==>LER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	499	589	
==>LER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10765	10861	
==>LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current value of C<@INC> and turn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	96	182	
==>---------------------------------------------------------
## now for some bootstrapping <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	96	182	
==>---------------------------------------------------------
## now for some bootstrapping <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	96	182	
==>---------------------------------------------------------
## now for some bootstrapping <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	193	319	
==>~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @r <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	193	319	
==>~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12010	12127	
==>eger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3.1
      <Decim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1340	1431	
==>debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1340	1431	
==>debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1340	1431	
==>debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8165	8395	
==>$h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12153	12308	
==>$h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12153	12308	
==>$h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9935	10027	
==>t_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - should permit \misc, no?
set_met <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20824	20946	
==>chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
key <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19741	19863	
==>chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
key <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20824	20946	
==>chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
key <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19741	19863	
==>chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
key <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2277	2467	
==>for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2277	2467	
==>for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	609	733	
==>he struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1093	1217	
==>he struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	400	517	
==>@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2616	2714	
==>while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2616	2714	
==>while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2616	2714	
==>while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5456	5558	
==>T these are generated
# as the AST is left they are unified
# a free variable can be instantiated to po <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2574	2673	
==>on passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2574	2673	
==>on passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An H <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2309	2415	
==>$message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_output.say( $mes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	294	396	
==>$message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $mes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	294	396	
==>$message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $mes <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	261	359	
==>art appearing, and
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3686	4071	
==>dulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unles <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3686	4071	
==>dulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unles <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1639	1759	
==>),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1650	1770	
==>),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14367	14471	
==>ub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3278	3379	
==>foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3278	3379	
==>foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3278	3379	
==>foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39121	39245	
==>ems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39121	39245	
==>ems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39121	39245	
==>ems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}} <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9232	9354	
==>SEGMENT end
        
        s/^__(.*)__$/PugsBuild::Config->lookup($1)/e;
        
        die "don't know where this opti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2701	2804	
==>'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2701	2804	
==>'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2701	2804	
==>'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2844	2944	
==>r class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17203	17309	
==>' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17203	17309	
==>' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17203	17309	
==>' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1485	1590	
==>sibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1485	1590	
==>sibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1485	1590	
==>sibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12537	12640	
==>tderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    if ($args{ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5293	5392	
==>TI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5293	5392	
==>TI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5293	5392	
==>TI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	253	348	
==>de) && (my $meth = $self->can("reduce_" . $node->moniker))) {
		return $self->$meth($node);
	} e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5413	5521	
==>->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5413	5521	
==>->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5413	5521	
==>->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14564	14665	
==>class .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $I0 = find_not_cclass .C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13559	13657	
==>ader.  The field names have case as suggested by HTTP spec, and the
names are returned in the recom <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13559	13657	
==>ader.  The field names have case as suggested by HTTP spec, and the
names are returned in the recom <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1312	1409	
==>copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/ <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1312	1409	
==>copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22740	22936	
==>em [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22740	22936	
==>em [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22740	22936	
==>em [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	183	310	
==>{
    # print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ %opt ]} \n";

    Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3858	3976	
==>= $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3858	3976	
==>= $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4390	4502	
==>= $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4390	4502	
==>= $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3811	3923	
==>();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9870	9974	
==>name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9870	9974	
==>name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9870	9974	
==>name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	190	342	
==>ion => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	190	342	
==>ion => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	190	342	
==>ion => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13341	13462	
==>ms => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13341	13462	
==>ms => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13341	13462	
==>ms => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{po <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14574	14680	
==>ion>
    | <'++'> <UnaryExpression>
    | <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'-' <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	65	174	
==>e File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $. <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	65	174	
==>e File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11363	11459	
==>d as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11363	11459	
==>d as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4822	4952	
==>s is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compari <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3949	4079	
==>s is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compari <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4822	4952	
==>s is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compari <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3949	4079	
==>s is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compari <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2292	2420	
==>ntifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2303	2431	
==>ntifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::captu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7207	7326	
==>64),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482), <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7207	7326	
==>64),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482), <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14984	15157	
==>t( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15263	15436	
==>t( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1042	1166	
==>bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1053	1177	
==>bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3130	3243	
==>ss->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3130	3243	
==>ss->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3130	3243	
==>ss->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclas <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12694	12804	
==>so does result.
        return Relation::Example.new( heading => $!heading, body => set() );
    }
    if ($oth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11829	11985	
==>= emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15373	15477	
==>op   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15373	15477	
==>op   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15373	15477	
==>op   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14126	14217	
==>::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14126	14217	
==>::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14126	14217	
==>::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23038	23122	
==>ption::Return;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13981	14094	
==>{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4701	4802	
==>a::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::In <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4701	4802	
==>a::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::In <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	8	101	
==>in/perl

package Blondie::Backend::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11303	11399	
==>s (hash new)))
     ($class: send (bless (NIL ?%params)))))

=cut

$::Class->send('add_method' => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22028	22227	
==>l::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # speculative syntax here :)
    unbox($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2425	2574	
==>{ $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2425	2574	
==>{ $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2425	2574	
==>{ $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	443	549	
==>sts<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

= <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	443	549	
==>sts<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

= <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2399	2495	
==>have it enciphered or deciphered; when you're done, call the closure 
with no arguments to finish <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2399	2495	
==>have it enciphered or deciphered; when you're done, call the closure 
with no arguments to finish <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8374	8503	
==>or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	532	661	
==>or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match was stopped by a { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8093	8219	
==>or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	508	634	
==>or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match was stopped by a { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1638	1737	
==>$unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1638	1737	
==>$unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1638	1737	
==>$unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26360	26448	
==>uire Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1061	1167	
==>turn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1061	1167	
==>turn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1061	1167	
==>turn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fix <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13099	13186	
==>","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I) --> digit( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5571	5686	
==>onst'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protecte <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1380	1481	
==>::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($wor <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1380	1481	
==>::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($wor <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5941	6037	
==>hc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages -packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16270	16435	
==>efined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16270	16435	
==>efined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16270	16435	
==>efined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32125	32223	
==>ect is omitted from the actual tree (like a CLOSE).

=item on

The flags specifically turned on for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19199	19311	
==>[a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15620	15732	
==>[a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12207	12305	
==>o initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) tha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16787	16885	
==>o
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12207	12305	
==>o initialize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16787	16885	
==>o
initialize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) tha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1382	1549	
==>ds) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1382	1549	
==>ds) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7585	7688	
==>e,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pVarName) {
    return " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1110	1236	
==>,
			body => '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8195	8310	
==>an:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8195	8310	
==>an:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8195	8310	
==>an:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10412	10539	
==>' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10412	10539	
==>' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10412	10539	
==>' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5413	5519	
==>'refs';
  no warnings 'redefine';
  *{ ref($self) . "::FLAG_$seq" } = $func;
}


sub del_flag {
  my ($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33623	33736	
==>$array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33623	33736	
==>$array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33623	33736	
==>$array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	974	1077	
==>] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub subs <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24211	24308	
==>ally used by automatons
  (clients with either an AI or other interactive program controlling thei <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22984	23081	
==>ally used by automatons
  (clients with either an AI or other interactive program controlling thei <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24211	24308	
==>ally used by automatons
  (clients with either an AI or other interactive program controlling thei <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22984	23081	
==>ally used by automatons
  (clients with either an AI or other interactive program controlling thei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1415	1516	
==>_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1415	1516	
==>_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1415	1516	
==>_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV} <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	538	649	
==>);
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectivel <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	538	649	
==>);
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectivel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8516	8618	
==>h[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8504	8606	
==>h[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5127	5238	
==>def_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5127	5238	
==>def_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5127	5238	
==>def_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25282	25371	
==>erator::arrow->new(
		type::variable::free->new,
		type::operator::pair->new(
			type::var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1649	1773	
==>if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1637	1761	
==>if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2245	2365	
==>dded to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=b <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2245	2365	
==>dded to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=b <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3841	3934	
==>is a hack for L::AG, since it doesn't know about @ISA
	$self->{symbol} = $class_that_should_be <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7470	7557	
==>ter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7470	7557	
==>ter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7470	7557	
==>ter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_met <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1152	1296	
==>art_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4391	4535	
==>art_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1152	1296	
==>art_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4391	4535	
==>art_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.end;
    if ($cmp > 0) {
        $i_end       = $span.end;
        $open_end <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40906	41002	
==>that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEME <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26466	26562	
==>that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEME <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40906	41002	
==>that is a practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEME <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26466	26562	
==>that is a practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEME <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6778	6878	
==>$pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX - Exp?
}

NODE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7327	7425	
==>or_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7327	7425	
==>or_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7327	7425	
==>or_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2 <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5381	5487	
==>en my $f, '>', "${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3458	3557	
==>efined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3458	3557	
==>efined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3458	3557	
==>efined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' objec <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	735	860	
==>'ARRAY' ) {
        bless $self, 'Test::Harness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3475	3574	
==>,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::sl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3475	3574	
==>,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::sl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3475	3574	
==>,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::sl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5313	5424	
==>}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for ne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5313	5424	
==>}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27960	28057	
==>t you create isn't
a modification of a standard object, no warnings will be issued.

=head2 The F< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1997	2091	
==>nding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1997	2091	
==>nding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1997	2091	
==>nding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub . <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2947	3067	
==>ymbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    has Set of Str $!heading;
        # Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2798	2888	
==>::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2798	2888	
==>::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2798	2888	
==>::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS:: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7648	7877	
==>};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7648	7877	
==>};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num = <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3953	4080	
==>not ok" or because they never ran.

=item B<Failed>

Percentage of the total tests which failed.

=item B<List of Failed>

A lis <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	730	833	
==>{ $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tight <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	426	527	
==>atch = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %par <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	426	527	
==>atch = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %par <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14416	14514	
==>{ DumpFile( $self->available_file, @avail ) };
    $@ and error( "Could not write available file: $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2911	3004	
==>ng Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights res <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2911	3004	
==>ng Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights res <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3258	3351	
==>ng Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights res <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10637	10743	
==>from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and retur <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10637	10743	
==>from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and retur <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10651	10753	
==>ed sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10651	10753	
==>ed sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_ent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9536	9691	
==>f, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9536	9691	
==>f, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9536	9691	
==>f, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return t <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1661	1788	
==>se 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq;
    use base 'Node';

    package Prim;
    u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4255	4370	
==>ented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4255	4370	
==>ented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4255	4370	
==>ented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18841	19034	
==>}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19120	19313	
==>}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15749	15844	
==>dified_since

These header fields are used to make a request conditional.  If the requested
reso <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15749	15844	
==>dified_since

These header fields are used to make a request conditional.  If the requested
reso <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10233	10360	
==>ocate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10233	10360	
==>ocate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3413	3535	
==>ub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3413	3535	
==>ub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2354	2483	
==>ethod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2354	2483	
==>ethod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2354	2483	
==>ethod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4668	4775	
==>100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number seen [test $result{numbe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4395	4573	
==>>do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set('$_' => $va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1850	1983	
==>$sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1850	1983	
==>$sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1850	1983	
==>$sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1685	1785	
==>ant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1685	1785	
==>ant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1685	1785	
==>ant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29638	29759	
==>= 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29638	29759	
==>= 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29638	29759	
==>= 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1754	1844	
==>= split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19706	19821	
==>alue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19706	19821	
==>alue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19706	19821	
==>alue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-ex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21125	21223	
==>hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are normali <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20033	20131	
==>hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21125	21223	
==>hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20033	20131	
==>hashref, which has the channels C<nick> has joined as
keys. Note that the channel names are normali <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1033	1148	
==>n't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4662	4767	
==>!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2402	2506	
==>!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7866	7975	
==>d} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7854	7963	
==>d} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3058	3166	
==>ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class My <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3058	3166	
==>ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class My <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9747	9882	
==>) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is export <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9747	9882	
==>) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is export <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16393	16517	
==>my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyM <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16393	16517	
==>my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyM <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3185	3294	
==>valid for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	150	246	
==>xternal
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	150	246	
==>xternal
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19255	19397	
==>push @$tree, $self unless $self->omit;
  }
}


{
  # ) for non-captures
  package Regexp::Parser::tail;
  push @ISA, qw( Regexp::Parser::__obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4293	4398	
==>{ "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4293	4398	
==>{ "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4293	4398	
==>{ "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = P <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	656	775	
==>:<*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name => "simple multiplication",
	},
	{
		ast => App(
			Val(
				Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14751	14853	
==>d(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14751	14853	
==>d(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14751	14853	
==>d(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9705	9819	
==>::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9705	9819	
==>::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9705	9819	
==>::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt+ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	333	439	
==>(Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6496	6596	
==>eturns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5626	5726	
==>eturns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6496	6596	
==>eturns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5626	5726	
==>eturns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14383	14516	
==>(&$f_then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7848	7955	
==>NOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7848	7955	
==>NOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7848	7955	
==>NOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $:: <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1135	1308	
==>or 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1135	1308	
==>or 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2364	2465	
==>none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appr <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2364	2465	
==>none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21430	21571	
==>param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21430	21571	
==>param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21430	21571	
==>param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1821	1934	
==>lue;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || conf <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	329	433	
==>er;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	329	433	
==>er;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15763	15864	
==>ores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node cons <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15763	15864	
==>ores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node cons <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	227	315	
==>ompiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	141	255	
==>ix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	141	255	
==>ix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2717	2814	
==>t_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expres <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2717	2814	
==>t_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expres <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4067	4180	
==>il} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4284	4397	
==>il} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9622	9731	
==>ule::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = spl <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9622	9731	
==>ule::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = spl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11461	11554	
==>ecause it isolates the Role specifc
code to the class that consumed it.

--------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11461	11554	
==>ecause it isolates the Role specifc
code to the class that consumed it.

--------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11461	11554	
==>ecause it isolates the Role specifc
code to the class that consumed it.

--------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37616	37708	
==>rce Relations,
such that all common attribute names and corresponding common tuple values
are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42165	42257	
==>rce Relations,
such that all common attribute names and corresponding common tuple values
are <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41815	41907	
==>rce Relations,
such that all common attribute names and corresponding common tuple values
are <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13787	13908	
==>syn_src_dir, "$syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_sr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	694	801	
==>aque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	694	801	
==>aque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	694	801	
==>aque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	312	427	
==>_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1840	1955	
==>_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23958	24112	
==>nboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dim <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23958	24112	
==>nboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dim <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23958	24112	
==>nboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dim <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	135	228	
==>ts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use strict <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24319	24422	
==>s) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23092	23195	
==>s) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24319	24422	
==>s) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23092	23195	
==>s) which are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16754	16892	
==>->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$class:')), $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21242	21338	
==>tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25794	25890	
==>tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mappi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24418	24514	
==>tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mappi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3045	3141	
==>t.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnos <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3045	3141	
==>t.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3125	3221	
==>t.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnos <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1272	1405	
==>erl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1477	1610	
==>erl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6pr <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13630	13735	
==>als
    # right now this is a non issue since even higher order functions get prims instead of thunks when <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27353	27446	
==>S_IGNORE_EXITCODE>

Makes harness ignore the exit status of child processes when defined.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5574	5671	
==>els{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5574	5671	
==>els{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19208	19301	
==>>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exit <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19208	19301	
==>>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1011	1115	
==>);
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1011	1115	
==>);
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1011	1115	
==>);
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	787	885	
==>in     => $Config{installbin},
        installsitebin => $Config{installsitebin} || $Config{install <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	318	412	
==>Spec::Functions ':ALL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14911	15075	
==>te rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14905	15069	
==>te rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1654	1777	
==>.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1654	1777	
==>.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3988	4121	
==>= $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3988	4121	
==>= $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	671	771	
==>.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	283	375	
==>th_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	283	375	
==>th_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	283	375	
==>th_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9385	9491	
==>y($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9385	9491	
==>y($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9385	9491	
==>y($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2913	3016	
==>am{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2913	3016	
==>am{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cst <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2913	3016	
==>am{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cst <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2246	2414	
==>rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2493	2661	
==>rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { cap <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4460	4572	
==>$removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this op <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4460	4572	
==>$removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this op <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11856	11975	
==>wer
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11850	11969	
==>wer
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subs <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22222	22323	
==>f its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation cl <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26774	26875	
==>f its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1887	2011	
==>es = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1887	2011	
==>es = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1887	2011	
==>es = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38846	38934	
==>sm:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21720	21820	
==>only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26272	26372	
==>only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24932	25032	
==>only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Rel <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	321	414	
==>es can only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.junc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	758	862	
==>pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary sea <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	758	862	
==>pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary sea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1510	1613	
==>f $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1510	1613	
==>f $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5093	5254	
==>= {
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( defined( $details->{ok} ) && defined( $deta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28216	28359	
==>'MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6750	6856	
==>$flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6762	6868	
==>$flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3700	3885	
==>ystem( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4698	4813	
==>> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5048	5154	
==>b get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, whe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5270	5376	
==>b get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1610	1723	
==>($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1610	1723	
==>($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1610	1723	
==>($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	956	1095	
==>in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    h <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	956	1095	
==>in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    h <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8092	8203	
==>n_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8092	8203	
==>n_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'ro <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5224	5403	
==>f the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ... <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5224	5403	
==>f the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ... <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4242	4372	
==>pture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4254	4384	
==>pture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10733	10881	
==>_alt;
    
        ### link the files
        return unless $self->link_files( package => $new_alt );
    }

    ### remove this package from the ava <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	862	965	
==>8-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	862	965	
==>8-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	862	965	
==>8-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	971	1080	
==>ent = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'Pugs::Grammar::Base <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3654	3755	
==>ef}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3654	3755	
==>ef}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3654	3755	
==>ef}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1141	1251	
==>er('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2306	2416	
==>er('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14945	15038	
==>the core of the
Rosetta framework and defines a common programmatic interface (API), called
th <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14945	15038	
==>the core of the
Rosetta framework and defines a common programmatic interface (API), called
th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6141	6298	
==>= split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when It <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6141	6298	
==>= split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when It <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	134	242	
==>constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	134	242	
==>constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::op <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20875	20971	
==>imply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation objec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25427	25523	
==>imply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation objec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5067	5160	
==>d if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5067	5160	
==>d if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19990	20118	
==>ROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19990	20118	
==>ROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19990	20118	
==>ROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41155	41245	
==>p::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 CO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	124	252	
==>tate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	124	252	
==>tate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	124	252	
==>tate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  S <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2251	2354	
==>e Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2251	2354	
==>e Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40487	40584	
==>dText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40487	40584	
==>dText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22443	22555	
==>self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    my ($class, $rx, $dir, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1847	1944	
==>$one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
mu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1847	1944	
==>$one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
mu <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	64	156	
==>ort Filtered::Comments 'regex matching subs you want to debug'}
* adds use Smart::Comments (i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	342	436	
==>tch::newfrom( $matchObj );
  $matchObj->position($matchObj->from());
  return $matchObj;
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	38	131	
==>:Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8703	8794	
==>y $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8703	8794	
==>y $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8703	8794	
==>y $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (arg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7052	7161	
==>grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };
sub code  { die "not imp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6282	6376	
==>ntrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6282	6376	
==>ntrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6282	6376	
==>ntrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	874	979	
==>));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3754	3851	
==>atch variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_sourc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3938	4035	
==>atch variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_sourc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	807	903	
==>));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2591	2706	
==>node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5357	5455	
==>xed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5357	5455	
==>xed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5357	5455	
==>xed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33269	33465	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33269	33465	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33269	33465	
==>ngth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tm <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14195	14297	
==>Expression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7488	7592	
==>imitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7488	7592	
==>imitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7488	7592	
==>imitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19616	19707	
==>cter classes.  Fixed.
(Mike Lambert)

Non-grouping parentheses weren't being parsed properly <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12009	12107	
==>.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12009	12107	
==>.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12009	12107	
==>.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shif <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2403	2496	
==>our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_towa <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1222	1385	
==>al*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'rev <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5487	5607	
==>ch;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and matc <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5487	5607	
==>ch;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and matc <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	762	877	
==>r_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep length, $clean->{FILES}, @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1892	2095	
==>match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2314	2510	
==>match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1830	2026	
==>match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2314	2510	
==>match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	347	453	
==>,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	347	453	
==>,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	347	453	
==>,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12898	12992	
==>me as &readline to $obj.shift(), ="some_file" worked, so I
# added the .shift() declaration her <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4867	4986	
==>f($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4867	4986	
==>f($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4867	4986	
==>f($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5024	5124	
==>he right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7692	7792	
==>he right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9593	9719	
==>nected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9593	9719	
==>nected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($! <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1320	1430	
==>ependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependencies <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	880	990	
==>ependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependencies <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13840	13947	
==>- ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13840	13947	
==>- ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14164	14260	
==>ou can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk ( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14222	14318	
==>ou can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34077	34294	
==>b {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5055	5185	
==>>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5055	5185	
==>>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5055	5185	
==>>= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11303	11448	
==>) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if ( $n->{op1}{op} eq ':=' ) {
        #warn "bin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4011	4141	
==>th'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4011	4141	
==>th'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4011	4141	
==>th'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't us <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	953	1070	
==>k\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8362	8464	
==>r hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8362	8464	
==>r hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8362	8464	
==>r hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19281	19405	
==>uld never happen.  Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	299	398	
==>:Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	299	398	
==>:Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	299	398	
==>:Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3049	3176	
==>$_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2931	3051	
==>$_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bo <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8263	8360	
==>atim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim sectio <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8263	8360	
==>atim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim sectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10221	10342	
==>rn bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10221	10342	
==>rn bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10221	10342	
==>rn bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CAL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22527	22629	
==>lf)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc pad
    .local s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40246	40355	
==>ue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40246	40355	
==>ue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40246	40355	
==>ue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	156	243	
==>RSAL::moniker;
use String::Escape qw/quote printable/;
use Blondie::Reducer::DuplicateFi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5533	5653	
==>ty($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5533	5653	
==>ty($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5533	5653	
==>ty($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4024	4122	
==>total tests which failed.

=item B<List of Failed>

A list of the tests which failed.  Successive f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	804	909	
==>_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	804	909	
==>_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	804	909	
==>_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSC <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13326	13429	
==>ins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -ty <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3992	4185	
==>_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7469	7662	
==>_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($a <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10984	11077	
==>s Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_n <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10984	11077	
==>s Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7895	8083	
==>( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3999	4140	
==>@{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5223	5364	
==>@{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20263	20357	
==>case the result of the compilation
is replaced by a single line containing the hexadecimal dige <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20263	20357	
==>case the result of the compilation
is replaced by a single line containing the hexadecimal dige <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8173	8385	
==>aybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8637	8849	
==>aybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3998	4091	
==>ON

This document describes Rosetta version 0.724.0.

It also describes the same-number versio <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3998	4091	
==>ON

This document describes Rosetta version 0.724.0.

It also describes the same-number versio <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12010	12107	
==>turns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9131	9228	
==>turns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12010	12107	
==>turns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9131	9228	
==>turns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2> and C< <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1368	1467	
==>l2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefi <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1368	1467	
==>l2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21184	21279	
==>your
module distribtution do not need to have the compilers installed
themselves. So you don't n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21184	21279	
==>your
module distribtution do not need to have the compilers installed
themselves. So you don't n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1458	1566	
==>... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1458	1566	
==>... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	264	366	
==>s would be in one file,
   and the defining macros, for each of various class hierarchies,
   in others <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	264	366	
==>s would be in one file,
   and the defining macros, for each of various class hierarchies,
   in others <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	852	970	
==>eturn 1;
    }
}

sub base_path {
    my $self = shift;
    $self->{_top}{base};
}

sub is_extension_build {
    my $se <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2445	2548	
==>END__

=pod

=head1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::TestPrograms;

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	25	119	
==>se this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly dep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	25	119	
==>se this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly dep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	25	119	
==>se this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly dep <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21107	21230	
==>elf = shift;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3247	3359	
==>N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3247	3359	
==>N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3247	3359	
==>N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infini <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	461	581	
==>rint "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = length( $match );
    my $lex = sub {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13597	13712	
==>ding, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17074	17189	
==>ding, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16436	16551	
==>ding, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	470	568	
==>M::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from t <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	470	568	
==>M::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16296	16390	
==>ontent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16296	16390	
==>ontent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.conten <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	27	139	
==>dule HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols', <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	27	139	
==>dule HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols', <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6400	6496	
==>in C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to pr <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6400	6496	
==>in C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13974	14111	
==>( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13974	14111	
==>( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13974	14111	
==>( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23850	24003	
==>"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13354	13497	
==>"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13354	13497	
==>"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13354	13497	
==>"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3870	3973	
==>age PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3870	3973	
==>age PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3870	3973	
==>age PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21759	21859	
==>I was getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the field. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24439	24605	
==>pture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25702	25868	
==>pture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24718	24884	
==>pture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25981	26147	
==>pture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3595	3711	
==>DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3595	3711	
==>DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3595	3711	
==>DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	947	1060	
==>od notify (*@args) {
        .notify(Class::Events::Event.new(*@args));
    }

    method mk_notifications (*@subs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4104	4293	
==>_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5425	5614	
==>_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4104	4293	
==>_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5413	5602	
==>_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8757	8907	
==>tribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8757	8907	
==>tribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8757	8907	
==>tribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3761	3857	
==>ft if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3761	3857	
==>ft if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3761	3857	
==>ft if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------------- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18466	18549	
==>Fx,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12703	12933	
==>},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{failed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17821	17977	
==>ethod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17821	17977	
==>ethod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17821	17977	
==>ethod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6302	6406	
==>i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contig <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6302	6406	
==>i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contig <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6302	6406	
==>i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contig <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3281	3378	
==>... got the same ids');

my $p2 = new $p1->class->(100, 200);
is($p2->class, \&Point, '... got the <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13799	13955	
==>o } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $skip =~ /^Skip/i;
            }

            $sel <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3205	3319	
==>l;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtyp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3205	3319	
==>l;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtyp <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1534	1638	
==>d/dist");
        system("../../Setup$Config{_exe}", 'unregister', '--user');

        print "*** Buildin <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3034	3123	
==>y $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens=>' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2479	2610	
==>}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method t <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2479	2610	
==>}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9021	9115	
==>Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=head <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9021	9115	
==>Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=head <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	9	115	
==>le--Perl6 does NameSpace--Perl6;

# publicly exported methods
has Code--Perl6 %.methods;

# private use met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1237	1332	
==>2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1237	1332	
==>2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1237	1332	
==>2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13308	13460	
==>if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = substr($string,1);
            }

            if (substr($stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3473	3609	
==>if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3473	3609	
==>if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3473	3609	
==>if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = substr($string,1);
        }

        if (substr($stri <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12284	12399	
==>hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $nan },
      ref   => su <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3346	3452	
==>relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6823	6929	
==>relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5780	5886	
==>relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3665	3760	
==>mpiler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3078	3188	
==>.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3078	3188	
==>.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3078	3188	
==>.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	156	258	
==>cedence/lib",
;

use Pugs::Grammar::Perl6;
use strict;
use warnings;
use Data::Dumper;
$Data::Du <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1259	1380	
==>>package );
    
    return $self;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9685	9795	
==>of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for triv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13162	13272	
==>of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for triv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12434	12544	
==>of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for triv <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	155	294	
==>an {
    my $n;
    if (@_ == 1) {
	$n = shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14562	14681	
==>p = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14562	14681	
==>p = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14562	14681	
==>p = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a num <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2327	2430	
==>marFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2327	2430	
==>marFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1552	1649	
==>marFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3413	3510	
==>marFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Perl 6 syntax into Perl 5 modules.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3085	3190	
==>st argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3085	3190	
==>st argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3085	3190	
==>st argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27248	27344	
==>eading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation::Ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4683	4814	
==>t { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4537	4664	
==>t { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	151	264	
==>our @EXPORT_OK = qw(rule);

sub compiled {
    my $class = shift;
    my $code = shift;
    my ($grammar) = caller <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1784	1896	
==>call {
    my $ident = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8732	8906	
==>m[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8732	8906	
==>m[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->stor <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8732	8906	
==>m[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->stor <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20813	20953	
==>.4
      <!before <'function'>><Expression> <';'> #lookahead
}
rule IfStatement :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13391	13538	
==>len = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13391	13538	
==>len = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13391	13538	
==>len = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2276	2423	
==>len = +@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16682	16790	
==>- IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16682	16790	
==>- IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19078	19208	
==>+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2928	3037	
==>>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2928	3037	
==>>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2928	3037	
==>>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5603	5695	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        els <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5777	5869	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        els <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5603	5695	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        els <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5777	5869	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        els <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21598	21703	
==>0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Subrule" ]

.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	91	178	
==>ive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	91	178	
==>ive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	91	178	
==>ive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7643	7763	
==>.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3315	3402	
==>lass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3315	3402	
==>lass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3315	3402	
==>lass($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12249	12382	
==>s[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12249	12382	
==>s[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12249	12382	
==>s[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	722	896	
==>.).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3793	3967	
==>.).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	722	896	
==>.).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3793	3967	
==>.).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        prin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12686	12797	
==>tuples; so does result.
        return Relation::Example.new( heading => $!heading, body => set() );
    }
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7778	7884	
==>.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	23	117	
==>.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	23	117	
==>.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6149	6267	
==>ED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6149	6267	
==>ED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6149	6267	
==>ED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	449	565	
==>->{out}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5317	5413	
==>$self->simplify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28839	28934	
==>y other value set members.  This
method supports having the new attributes having the same names <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33391	33486	
==>y other value set members.  This
method supports having the new attributes having the same names <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32528	32623	
==>y other value set members.  This
method supports having the new attributes having the same names <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4337	4444	
==>ke_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4337	4444	
==>ke_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4337	4444	
==>ke_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9291	9453	
==>ybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22971	23077	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22971	23077	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22971	23077	
==>ed($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8357	8485	
==>ore' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8357	8485	
==>ore' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8357	8485	
==>ore' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19029	19135	
==>tten_polymorphic = fun(
	param => "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2425	2559	
==>lass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2425	2559	
==>lass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2425	2559	
==>lass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11950	12050	
==>ass) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# this is the actual inferrence engin <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8694	8801	
==>~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32($P);
    return if $u <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	196	302	
==>eroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2876	2972	
==>map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2876	2972	
==>map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2876	2972	
==>map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XX <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1240	1363	
==>= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($in <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1240	1363	
==>= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($in <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3995	4096	
==>can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a fi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3995	4096	
==>can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a fi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3487	3582	
==>ise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object repres <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3487	3582	
==>ise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object repres <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	474	567	
==>ontrol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	474	567	
==>ontrol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2602	2735	
==>= map { $_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1068	1170	
==>k it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1068	1170	
==>k it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1068	1170	
==>k it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20610	20707	
==>files specific to the program
in the order you chose so to pick a supported language closest to yo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20610	20707	
==>files specific to the program
in the order you chose so to pick a supported language closest to yo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	599	692	
==>x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	599	692	
==>x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9131	9248	
==>ntation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12984	13097	
==>ntation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12984	13097	
==>ntation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4248	4347	
==>) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34921	35020	
==>ny Unicode property
defined by Perl or elsewhere

Neg: 1 if negated

=head2 clump

Family: clump

Ty <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4248	4347	
==>) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4248	4347	
==>) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	970	1074	
==>CH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	970	1074	
==>CH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	970	1074	
==>CH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unw <==
4	/Users/nnunley/pugs/util/package-osx.pl	5453	5550	
==>l6::FAQ::Capture.3pm
        /usr/local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Per <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5448	5559	
==>lf.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5448	5559	
==>lf.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $ <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	595	696	
==>}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	595	696	
==>}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2119	2240	
==>pile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2119	2240	
==>pile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1351	1467	
==>pile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3212	3328	
==>pile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	29	130	
==>angeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	29	130	
==>angeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	29	130	
==>angeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash ele <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5996	6093	
==>gexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is version B<0.022b>.  T <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	232	342	
==>my $welt = new Welt();  	# wie in Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6842	6936	
==>}

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


metho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6842	6936	
==>}

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


metho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6842	6936	
==>}

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2975	3115	
==>my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2975	3115	
==>my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $re <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2291	2388	
==>ES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http: <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2291	2388	
==>ES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3547	3664	
==>tance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3654	3756	
==>ndle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3654	3756	
==>ndle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($pa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4244	4346	
==>ndle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1327	1457	
==>) {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1327	1457	
==>) {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $re <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	348	450	
==>>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	348	450	
==>>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9362	9485	
==>or @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


=item rever <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	535	638	
==>ia the closure, then things don\'t work right
      // --the order of output can become all screwed up ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	535	638	
==>ia the closure, then things don\'t work right
      // --the order of output can become all screwed up ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	535	638	
==>ia the closure, then things don\'t work right
      // --the order of output can become all screwed up ( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1820	1916	
==>method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.inters <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1820	1916	
==>method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.inters <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1636	1731	
==>TION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1636	1731	
==>TION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1810	1953	
==>oot));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool)
        ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11573	11694	
==>ms) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11573	11694	
==>ms) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11573	11694	
==>ms) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.me <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14735	14841	
==>), return;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tab <==
4	/Users/nnunley/pugs/util/fixauthors.pl	629	723	
==>om_content($html);
  my $realname = $tree->look_down(class=>"t1");

  return "" unless $realnam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8890	8983	
==>->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2715	2808	
==>->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28826	28942	
==>S is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYA <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28826	28942	
==>S is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYA <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1799	1914	
==>f->name
            or die "all_from called with no args without setting name() first";
        $file = join('/', 'l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	197	301	
==>S is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9830	9951	
==>ere's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves aga <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2862	2983	
==>ere's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves aga <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10330	10465	
==>'^^');
  });


  ### '&'


  ### '*'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4303	4418	
==>rl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4303	4418	
==>rl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4303	4418	
==>rl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5482	5666	
==>ives again
                DumpFile( $Altfile, $href );

                my $postinst = $meta_dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    syst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1689	1806	
==>elay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1689	1806	
==>elay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1689	1806	
==>elay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10369	10477	
==>YPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command li <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10369	10477	
==>YPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command li <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1361	1460	
==>y $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use o <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1361	1460	
==>y $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11579	11698	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11579	11698	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11579	11698	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18154	18254	
==>in all sources to it.
    my Relation::Example $r1 .= new( heading => set(), body => set( mapping() ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1669	1770	
==>Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.p <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1669	1770	
==>Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3407	3502	
==>amed C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3407	3502	
==>amed C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhe <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	425	542	
==>1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Pe <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	425	542	
==>1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Pe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5691	5795	
==>pdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5691	5795	
==>pdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Pa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3191	3283	
==>th zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3191	3283	
==>th zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	429	557	
==>ir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	464	592	
==>ir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	429	557	
==>ir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9642	9770	
==>ir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2753	2859	
==>_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2753	2859	
==>_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$fie <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15237	15338	
==>tity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18714	18815	
==>tity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2171	2403	
==>)}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2171	2403	
==>)}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2171	2403	
==>)}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1944	2078	
==>eck->last_error ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor object, bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13858	13991	
==>SPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13858	13991	
==>SPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13858	13991	
==>SPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17148	17261	
==>::${pkg}::META";
    $$meta = $meta_object;
}
sub p6_initialize_package {
    my($pkg,$kind)=@_;
    $kind = "" if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1269	1366	
==>* Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1269	1366	
==>* Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1269	1366	
==>* Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11620	11723	
==>ed $args{stdin}) {
	# so we don't try to put literal newlines and crs onto the
	# command line.
	$args{s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31558	31651	
==>ases are
where C<$predicate> simply returns True or False regardless of its
argument, in which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36108	36201	
==>ases are
where C<$predicate> simply returns True or False regardless of its
argument, in which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35335	35428	
==>ases are
where C<$predicate> simply returns True or False regardless of its
argument, in which <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1539	1679	
==>ckage }
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9743	9838	
==>eturns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9743	9838	
==>eturns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::M <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21355	21448	
==>ialect.  An application written to it should easily port
to alternative relational database en <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21355	21448	
==>ialect.  An application written to it should easily port
to alternative relational database en <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3113	3227	
==>$self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3195	3303	
==>elf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3195	3303	
==>elf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3195	3303	
==>elf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.k <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6357	6460	
==>r.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6357	6460	
==>r.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6357	6460	
==>r.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14028	14125	
==>1.2
      <AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpression>
}
rule LeftHand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3241	3399	
==>1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3241	3399	
==>1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3241	3399	
==>1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21660	21756	
==>o added tests for the new captures() method.

I changed the field 'class' to 'family' in objects. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2449	2602	
==>>from,
                to    => \$_[3]{match}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8279	8374	
==>.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to w <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8279	8374	
==>.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to w <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23547	23640	
==>There are other differences.  Where other solutions take variables, they
seem to be positional <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23547	23640	
==>There are other differences.  Where other solutions take variables, they
seem to be positional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1042	1170	
==>$arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1042	1170	
==>$arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1042	1170	
==>$arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1400	1518	
==>(world)/) {
        print "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTIO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8614	8716	
==>( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8614	8716	
==>( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8614	8716	
==>( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4137	4236	
==>es and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4321	4420	
==>es and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults t <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3617	3714	
==>- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3617	3714	
==>- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	542	625	
==>gs::Runtime::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tre <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10462	10612	
==>ipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "skipped\n        all skipp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3401	3534	
==>int _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@ava <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3865	3998	
==>int _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@ava <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2334	2428	
==>plication allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2334	2428	
==>plication allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1040	1134	
==>not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1040	1134	
==>not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1040	1134	
==>not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23322	23413	
==>ple different Relation-implementing classes are used together, and
each doesn't know the oth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22311	22410	
==>chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21183	21282	
==>chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22311	22410	
==>chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21183	21282	
==>chan", key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7646	7742	
==>iable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::variable;
sub node::empty_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2599	2755	
==>ecking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2599	2755	
==>ecking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $pa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2136	2239	
==>.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   retur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2136	2239	
==>.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   retur <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3074	3167	
==>" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1428	1575	
==>t: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	205	319	
==>ller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	205	319	
==>ller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	205	319	
==>ller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1246	1342	
==>t.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1246	1342	
==>t.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1246	1342	
==>t.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEE <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6474	6623	
==>, $target ) 
                } File::Find::Rule->file->in( $from );
    } else {
        %from = ( $from => $to );
    }
   
    while( my($orig,$targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1871	1983	
==>($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1871	1983	
==>($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1871	1983	
==>($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7644	7756	
==>a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an ol <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7644	7756	
==>a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an ol <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7644	7756	
==>a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an ol <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22494	22591	
==>["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" : <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3214	3343	
==>a->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3678	3807	
==>a->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	172	284	
==>rsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
ha <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	172	284	
==>rsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
ha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	681	781	
==>ne Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translato <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	681	781	
==>ne Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translato <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1167	1265	
==>over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving in <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1167	1265	
==>over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	993	1094	
==>blech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	993	1094	
==>blech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	993	1094	
==>blech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34870	34963	
==>pes: name of property (C<\p{NAME}>, C<\P{NAME}>); any Unicode property
defined by Perl or else <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1859	1990	
==>message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        & <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1859	1990	
==>message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        & <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1106	1202	
==>ead1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1106	1202	
==>ead1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13525	13669	
==>e'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$class:')->send('CREATE' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4529	4656	
==>_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstrin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4529	4656	
==>_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstrin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4529	4656	
==>_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstrin <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9739	9852	
==>o it will not see PERL5LIB, tainted or not.
    if ( $taint || $self->{_is_macos} ) {
        my @inc = $self->_fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1746	1853	
==>ion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1746	1853	
==>ion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1746	1853	
==>ion (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::R <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36816	36915	
==>indicate a negative look-ahead.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub in <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	684	814	
==>in' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    retur <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26333	26438	
==>'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClassRanges>
}
r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11976	12080	
==>ethod('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11976	12080	
==>ethod('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11976	12080	
==>ethod('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9961	10076	
==>e}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7753	7862	
==>s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7753	7862	
==>s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7753	7862	
==>s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4499	4624	
==>);
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* look <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4499	4624	
==>);
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* look <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21045	21143	
==>ed attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25597	25695	
==>ed attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tup <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5649	5839	
==>t} eq '{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9218	9326	
==>$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9218	9326	
==>$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9218	9326	
==>$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1102	1295	
==>);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, @rv;
        @rv;
    };
}

sub s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2989	3091	
==>le\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2989	3091	
==>le\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2989	3091	
==>le\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	37	134	
==>and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can up <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	37	134	
==>and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can up <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	37	134	
==>and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can up <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3216	3315	
==>e only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this an <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3216	3315	
==>e only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this an <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	35	125	
==>aluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	53	143	
==>aluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3062	3188	
==>tart;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3062	3188	
==>tart;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0 <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11989	12088	
==>t in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11989	12088	
==>t in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in t <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11852	11978	
==>target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	329	432	
==>Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	329	432	
==>Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	329	432	
==>Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	549	646	
==>rence($other);
#}

#method infix:<->($self: Duration $duration) returns Date {
    #$self.subtract <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1003	1097	
==>e're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1003	1097	
==>e're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1003	1097	
==>e're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2898	3031	
==>stance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2898	3031	
==>stance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2898	3031	
==>stance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::mak <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6563	6745	
==>e cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cooki <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6563	6745	
==>e cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cooki <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6329	6433	
==>self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cann <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6329	6433	
==>self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cann <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2574	2701	
==>alue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2574	2701	
==>alue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2574	2701	
==>alue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19163	19251	
==>,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1106	1234	
==>) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1106	1234	
==>) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1106	1234	
==>) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3423	3579	
==>b match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3423	3579	
==>b match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3423	3579	
==>b match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15805	15933	
==>$bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die "Couldn't open pipe to \"ldd $bin\": $!\n";
    w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	326	576	
==>nt values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::She <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	326	576	
==>nt values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::She <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	951	1037	
==>llow Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	951	1037	
==>llow Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8992	9127	
==>"..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8992	9127	
==>"..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8992	9127	
==>"..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3556	3656	
==>newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $lastPosition = length $target;
  my @bsrS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11980	12111	
==>nn might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc;
          if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2568	2677	
==>ing () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6045	6154	
==>ing () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4975	5084	
==>ing () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1202	1320	
==>longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at run <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1551	1667	
==>longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at run <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1158	1274	
==>longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1551	1667	
==>longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at run <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2936	3037	
==>$e = shift(@let_stack) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4821	4919	
==>hing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4821	4919	
==>hing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4821	4919	
==>hing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed i <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5255	5369	
==>ocal,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15940	16049	
==>/g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15940	16049	
==>/g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15940	16049	
==>/g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24189	24307	
==>sult, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3890	3989	
==>ause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3890	3989	
==>ause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3890	3989	
==>ause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11453	11598	
==>doc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc term <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11453	11598	
==>doc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc term <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	693	831	
==>es
sub _diag {
    return unless @_;
    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
               map { split /\n/ } @_;
    my $fh = $TO <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1833	1954	
==>turn sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b0r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10093	10203	
==>------------------    
      
    # -----------------------------------------------  
    # collects all the ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10093	10203	
==>------------------    
      
    # -----------------------------------------------  
    # collects all the ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10093	10203	
==>------------------    
      
    # -----------------------------------------------  
    # collects all the ro <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4889	5010	
==>want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4889	5010	
==>want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.con <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25508	25588	
==>0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I,J)),X,am <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3756	3881	
==>f') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3756	3881	
==>f') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3756	3881	
==>f') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WAL <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1226	1330	
==>evel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6732	6858	
==>alse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6732	6858	
==>alse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6732	6858	
==>alse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8178	8278	
==>S->force_object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handle <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7384	7511	
==>n "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7372	7499	
==>n "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5150	5245	
==>e64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBz <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5150	5245	
==>e64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBz <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2128	2225	
==>, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2128	2225	
==>, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2128	2225	
==>, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Cod <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	164	259	
==>2graph /tmp/log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Pie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17337	17497	
==>am == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17337	17497	
==>am == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17337	17497	
==>am == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unbo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2777	2903	
==>p2 => $_[3], } }

    | SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1521	1666	
==>n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1521	1666	
==>n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5928	6022	
==>$?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specif <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5928	6022	
==>$?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	25	124	
==>:Num;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	337	435	
==>Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	337	435	
==>Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	337	435	
==>Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1611	1725	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1611	1725	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1611	1725	
==>arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_me <==
4	/Users/nnunley/pugs/util/version_h.pl	1316	1421	
==>rce_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # convert /svk/trun <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7793	7891	
==>st::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test::Build <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	34	124	
==>st::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	34	124	
==>st::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Build <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2955	3180	
==>D_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8049	8274	
==>D_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2955	3180	
==>D_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8049	8274	
==>D_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2629	2760	
==>ne=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2629	2760	
==>ne=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14786	14882	
==>e
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are i <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14844	14940	
==>e
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2045	2168	
==>ot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2045	2168	
==>ot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2045	2168	
==>ot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
}) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10060	10199	
==>name;

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->av <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38626	38740	
==>Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38626	38740	
==>Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38626	38740	
==>Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	643	741	
==>e class.

This has the effect of making C<Role> objects appear to "flatten" in
the classes which th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1189	1324	
==>???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1189	1324	
==>???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1189	1324	
==>???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11728	11842	
==>reduce($_[0]) })
        : $node
}

package DynamicScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2998	3108	
==>length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2998	3108	
==>length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2998	3108	
==>length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22048	22149	
==>d Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documentation is pend <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4549	4649	
==>, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- uni <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4549	4649	
==>, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- uni <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4945	5057	
==>s, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15981	16093	
==>s, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17469	17581	
==>s, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22152	22264	
==>s, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4091	4187	
==>f->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4091	4187	
==>f->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4681	4777	
==>f->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1365	1457	
==>IL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1365	1457	
==>IL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1365	1457	
==>IL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6895	6986	
==>n_object' => sub { 
   '&Object::another_singleton_test_on_object'
});

is($Object->another_ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	872	1012	
==>values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$value, $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3535	3648	
==>ove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3535	3648	
==>ove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3535	3648	
==>ove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8660	8765	
==>tack < 1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4138	4239	
==>st a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4138	4239	
==>st a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4138	4239	
==>st a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1091	1222	
==>pe == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1091	1222	
==>pe == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1091	1222	
==>pe == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData( <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	730	851	
==>'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	532	636	
==>rt()>

  assert( EXPR, $name );

If the expression is false the program aborts.

=cut

sub assert ($;$) { <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10974	11074	
==>my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18024	18120	
==>hese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18024	18120	
==>hese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11250	11356	
==>t(1,substr($X::str,$from,$to-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2499	2603	
==>$key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2499	2603	
==>$key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2499	2603	
==>$key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9827	9974	
==>F' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	757	897	
==>self->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	366	470	
==>t big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	366	470	
==>t big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3149	3249	
==>$self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3149	3249	
==>$self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	832	946	
==>($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	832	946	
==>($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	832	946	
==>($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	81	176	
==>erl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::Te <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	23	126	
==>t-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	23	126	
==>t-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1960	2060	
==>>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longe <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1960	2060	
==>>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18774	18870	
==>e C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18774	18870	
==>e C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13212	13303	
==>($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13212	13303	
==>($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5064	5168	
==>ub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4191	4295	
==>ub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5064	5168	
==>ub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4191	4295	
==>ub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:<≠> (Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14088	14220	
==>s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14088	14220	
==>s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14088	14220	
==>s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4948	5055	
==>y) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4948	5055	
==>y) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4948	5055	
==>y) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1161	1257	
==>level% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1465	1569	
==>r $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1465	1569	
==>r $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14808	14904	
==>s of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will ne <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14866	14962	
==>s of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	282	380	
==>op of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	282	380	
==>op of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	282	380	
==>op of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is p <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3819	3963	
==>};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3819	3963	
==>};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	411	508	
==>__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This modu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	411	508	
==>__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This modu <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	539	664	
==>gs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	539	664	
==>gs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1056	1162	
==>, or maybe they are one and the same as what
you get when you use the C<type> keyword.  Or maybe the full p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7888	7989	
==>JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7888	7989	
==>JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7888	7989	
==>JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.on <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6261	6366	
==>%modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c continue p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4506	4603	
==>B want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4506	4603	
==>B want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4506	4603	
==>B want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24485	24583	
==>this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

= <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29037	29135	
==>this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3216	3313	
==>be needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3216	3313	
==>be needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1017	1113	
==>s Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


ro <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1017	1113	
==>s Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


ro <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	825	916	
==>s Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	825	916	
==>s Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10168	10313	
==>, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10168	10313	
==>, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10168	10313	
==>, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	212	338	
==>PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	212	338	
==>PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	257	358	
==>o_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEF <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	257	358	
==>o_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEF <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	538	681	
==>s) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	743	886	
==>s) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	799	942	
==>s) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12124	12222	
==>oks should be defined in CORE which just call back to the
  original comp and exec (not implemented <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	591	742	
==>ay($day),
                             :hour($hour), :minute($minute), :second($second),
                             :tz($tz) );
}

# convert from an i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2026	2111	
==>ass->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2026	2111	
==>ass->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2026	2111	
==>ass->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28270	28367	
==>hich is suitable
for debugging purposes (such as to test that the object's contents look
good at a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35626	35723	
==>hich is suitable
for debugging purposes (such as to test that the object's contents look
good at a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28270	28367	
==>hich is suitable
for debugging purposes (such as to test that the object's contents look
good at a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35626	35723	
==>hich is suitable
for debugging purposes (such as to test that the object's contents look
good at a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8639	8774	
==>CH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8639	8774	
==>CH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8639	8774	
==>CH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIN <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14430	14527	
==>s
a 2 element list in (key, value) order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %hash> r <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40475	40570	
==>Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40475	40570	
==>Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4368	4455	
==>e method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4618	4705	
==>e method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8756	8861	
==>L2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8756	8861	
==>L2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8756	8861	
==>L2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8300	8402	
==>e nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12305	12427	
==>< teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34348	34456	
==>latten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34348	34456	
==>latten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34348	34456	
==>latten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	79	176	
==>ion is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	79	176	
==>ion is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	79	176	
==>ion is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2155	2456	
==>> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when r <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2155	2456	
==>> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	417	517	
==>rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	417	517	
==>rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18914	19046	
==>b {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15335	15467	
==>b {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15067	15163	
==>rogram's operation, the program (or a package it uses)
will need to display a message to the user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15067	15163	
==>rogram's operation, the program (or a package it uses)
will need to display a message to the user <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12806	12911	
==>singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12806	12911	
==>singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12806	12911	
==>singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (C <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17781	17871	
==>itwiseORExpression>
    | <LogicalANDExpression> <'&&'> <BitwiseORExpression>
}
rule Logica <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	225	326	
==>ute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	225	326	
==>ute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17943	18038	
==>equest.

=item $h.from

This header should contain an Internet e-mail address for the human
user <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17943	18038	
==>equest.

=item $h.from

This header should contain an Internet e-mail address for the human
user <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37530	37647	
==>rray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitial <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37530	37647	
==>rray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitial <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37530	37647	
==>rray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitial <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26615	26708	
==>hatever
other arguments are included.  This method takes care of building the
proper inheritan <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2390	2499	
==>pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2390	2499	
==>pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10679	10784	
==>field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10679	10784	
==>field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1090	1219	
==>ure => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1046	1169	
==>ure => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unl <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20982	21077	
==>t of functionality to Perl packages
or programs.  Your package or program can be distributed wit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20982	21077	
==>t of functionality to Perl packages
or programs.  Your package or program can be distributed wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7179	7302	
==>) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7179	7302	
==>) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7179	7302	
==>) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14333	14449	
==>tr( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14333	14449	
==>tr( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14333	14449	
==>tr( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8194	8428	
==>tore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8194	8428	
==>tore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8194	8428	
==>tore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2998	3227	
==>s
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (po <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9888	10074	
==>new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->digest for grep { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4513	4611	
==>() {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4513	4611	
==>() {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4513	4611	
==>() {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3464	3669	
==>nown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3464	3669	
==>nown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3464	3669	
==>nown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1992	2078	
==>peSafe::Annotator;
	use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26543	26637	
==>he main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This metho <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26543	26637	
==>he main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	698	974	
==>ngs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	698	974	
==>ngs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	698	974	
==>ngs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29823	29984	
==>$_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29823	29984	
==>$_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29823	29984	
==>$_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9457	9542	
==>(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4,3,3],[0],[0]);
my($qr) = Rege <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3346	3468	
==>ce - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3357	3479	
==>ce - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current mat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	890	997	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	890	997	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefi <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4787	4907	
==>some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4646	4766	
==>some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $va <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18238	18337	
==>g file', programs would have a harder time figuring out the
best way to deal with it.  But for displ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18238	18337	
==>g file', programs would have a harder time figuring out the
best way to deal with it.  But for displ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	105	204	
==>head1 DESCRIPTION

Methods are bindings of Code objects to a particular Type.

=over

=item *

A met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2779	2871	
==>es

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2779	2871	
==>es

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2779	2871	
==>es

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attrib <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3712	3846	
==>tore       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_err <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3880	4011	
==>{
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3880	4011	
==>{
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.* <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8112	8234	
==>tore   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_err <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6979	7088	
==>g, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Mode <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6979	7088	
==>g, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Mode <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14141	14235	
==>(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14141	14235	
==>(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2327	2435	
==>y $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2327	2435	
==>y $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2427	2529	
==>Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2427	2529	
==>Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5301	5418	
==>rack our status, especially the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5301	5418	
==>rack our status, especially the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5740	5855	
==>rack our status, especially the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5740	5855	
==>rack our status, especially the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1023	1159	
==>=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2939	3075	
==>=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	981	1113	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2825	2957	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.) <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1318	1458	
==>ing ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1318	1458	
==>ing ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2663	2764	
==>rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parame <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2663	2764	
==>rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parame <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1828	1944	
==>e"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1828	1944	
==>e"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16951	17050	
==>he other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16951	17050	
==>he other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3807	3908	
==>p://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3807	3908	
==>p://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3807	3908	
==>p://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	601	722	
==>r     => { required => 1 },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6687	6798	
==>ol = $inst->unregister( package => $inst_pkg );

=cut

sub unregister {
    my $self = shift;
    my $conf = $se <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	30	117	
==>easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	30	117	
==>easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7315	7520	
==>ed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7315	7520	
==>ed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unles <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7315	7520	
==>ed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unles <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	427	524	
==>t not macros) in this file need to have the
`is primitive` trait.

Please also declare whether the <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1468	1588	
==>my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	606	700	
==>=item B<$.output>

The filehandle to which to write all normal output (test results and
descrip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	606	700	
==>=item B<$.output>

The filehandle to which to write all normal output (test results and
descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1162	1256	
==>=item B<$.output>

The filehandle to which to write all normal output (test results and
descrip <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10658	10769	
==>)
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7899	7987	
==>s{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7899	7987	
==>s{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normali <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3215	3316	
==>, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

my $p2 = ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5573	5668	
==>l -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5573	5668	
==>l -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5573	5668	
==>l -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8128	8240	
==>IL1CPerl5::Unparse_CPerl5;
sub recurse {
    my($x)=@_;
    my $s;
    return '(undef)' if !defined $x;
    my $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10429	10537	
==>-------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10429	10537	
==>-------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10429	10537	
==>-------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # t <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4923	5037	
==>e_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	138	237	
==>uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	138	237	
==>uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	138	237	
==>uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24643	24832	
==>ift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	777	923	
==>oc => 'left',
            precedence => 'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6451	6546	
==>SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6451	6546	
==>SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6451	6546	
==>SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2698	2799	
==>gically for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it wo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2698	2799	
==>gically for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it wo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9593	9690	
==>e usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9593	9690	
==>e usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is d <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23252	23359	
==>xp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6analyze(pad)
    .return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	310	407	
==>:IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	310	407	
==>:IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	310	407	
==>:IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9793	9886	
==>ion.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9793	9886	
==>ion.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4906	4998	
==>');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7574	7666	
==>');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4083	4198	
==>( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4276	4391	
==>( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8703	8901	
==>stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->j <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8703	8901	
==>stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->j <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8703	8901	
==>stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->j <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	115	210	
==>cessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5426	5524	
==>XSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5426	5524	
==>XSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5426	5524	
==>XSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8763	8860	
==>rce_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	864	968	
==>bug "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3613	3716	
==>------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5515	5618	
==>------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	157	258	
==>S;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	157	258	
==>S;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	157	258	
==>S;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2246	2345	
==>e maintainer of this code. (Brian Ingerson for now)
.
# XXX Not sure about the above heuristic. So d <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	917	1017	
==>turn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	917	1017	
==>turn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16435	16532	
==>ll be converted to lower case, and potential
parameters will be chopped off and returned as a sepa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16435	16532	
==>ll be converted to lower case, and potential
parameters will be chopped off and returned as a sepa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1741	1840	
==>t;
	
	my $compiled = $self->compile(@_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2328	2424	
==>elf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2328	2424	
==>elf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2328	2424	
==>elf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5399	5608	
==>f ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5399	5608	
==>f ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10538	10647	
==>$callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $pat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10538	10647	
==>$callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6465	6589	
==>d_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6465	6589	
==>d_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6465	6589	
==>d_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5331	5422	
==>Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',(shift()?1:0),@_) if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10284	10394	
==>it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10284	10394	
==>it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10284	10394	
==>it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { " <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	154	254	
==>Pugs internals to do the job
* Some of this had not been specced yet (need S29 work).

When writing p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25214	25392	
==>>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    las <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25214	25392	
==>>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    las <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25214	25392	
==>>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    las <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10854	11005	
==>: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9996	10093	
==>($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9996	10093	
==>($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gat <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2126	2222	
==>hen used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portion <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2126	2222	
==>hen used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portion <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7645	7802	
==>n\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $fil <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7702	7859	
==>n\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	571	724	
==>> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the bo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	571	724	
==>> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the bo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	571	724	
==>> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the bo <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2313	2401	
==>oken("infix:", "<postfix:*", "right,nows", "PGE::Exp::Concat");
    $optable->addToken("i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14416	14521	
==>sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4982	5087	
==>sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5204	5309	
==>sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13996	14101	
==>cher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        for $c->get_attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2449	2549	
==>zy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1.. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2449	2549	
==>zy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1.. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2449	2549	
==>zy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1.. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2582	2751	
==>as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_ms <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2582	2751	
==>as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_ms <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2096	2193	
==>oc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" ele <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2096	2193	
==>oc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" ele <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	611	721	
==>od end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
metho <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	611	721	
==>od end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
metho <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1981	2070	
==>dditionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unof <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1981	2070	
==>dditionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unof <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11670	11768	
==>lves does Role since they
are just instances of Class which does Role too. So this means that all c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11670	11768	
==>lves does Role since they
are just instances of Class which does Role too. So this means that all c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11670	11768	
==>lves does Role since they
are just instances of Class which does Role too. So this means that all c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20382	20473	
==>y $dispatcher = $self.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'DESTROYALL') - <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3805	3921	
==>bol type in a param list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2818	2922	
==>values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2818	2922	
==>values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2818	2922	
==>values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4036	4134	
==>ine to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( S <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4036	4134	
==>ine to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4116	4214	
==>ine to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( S <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2708	2799	
==>y $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	309	411	
==>} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	309	411	
==>} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	309	411	
==>} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4854	4955	
==>n) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4854	4955	
==>n) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4854	4955	
==>n) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2596	2695	
==>t TEMP?  LET is non-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($v <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4822	5033	
==>{
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI] <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4822	5033	
==>{
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI] <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1488	1584	
==>MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1405	1495	
==>MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10419	10559	
==>\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6760	6900	
==>\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7609	7749	
==>\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	496	596	
==>e rule replaces the right side
# note: S06 - 'chain' can't be mixed with other types in the same leve <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5915	6009	
==>> $() ,} }
RULE
*{'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9712	9801	
==>urn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9712	9801	
==>urn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_privat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9712	9801	
==>urn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_privat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	481	587	
==>arser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	492	598	
==>arser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10144	10243	
==>a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10144	10243	
==>a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19128	19382	
==>regex   => $regex,
                                     target  => $target,
                                     heading =>  $heading, 
                                     source  => $source } if $regex;
                  ($h->content_list)[0]->push_cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10841	10946	
==>rray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10841	10946	
==>rray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10841	10946	
==>rray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWI <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6367	6483	
==>params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_enc <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6367	6483	
==>params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_enc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6541	6631	
==>iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11599	11689	
==>iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	285	385	
==>s, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	285	385	
==>s, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	285	385	
==>s, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	525	623	
==>ssed($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('opaque')))
        || confes <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3803	3900	
==>r data.  Finally, call the finish() method to return any leftover data 
and clear the cipher objec <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3803	3900	
==>r data.  Finally, call the finish() method to return any leftover data 
and clear the cipher objec <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3333	3426	
==>1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@o <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3333	3426	
==>1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1713	1832	
==>n...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1713	1832	
==>n...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1713	1832	
==>n...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.bo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	6	102	
==>/bin/perl

package Blondie::Compiler;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScopi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7777	7893	
==>.  If you use new() the F<Regexp::Parser> object will
still be returned, but if you use regex() then it will return f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5830	5931	
==>::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5830	5931	
==>::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6420	6521	
==>::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4334	4455	
==>$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4334	4455	
==>$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4334	4455	
==>$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6208	6328	
==>( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5368	5467	
==>s to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metaclas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6697	6793	
==>pyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6697	6793	
==>pyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6697	6793	
==>pyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistr <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26704	26805	
==>e available

do{open F,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use La <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15725	15820	
==>rray of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15725	15820	
==>rray of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18258	18350	
==>bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18258	18350	
==>bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2240	2339	
==>t);

Analyzes the output of a single test, assigning it the given C<$name>
for use in the total repo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23125	23216	
==>- see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23125	23216	
==>- see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23125	23216	
==>- see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14899	15002	
==>_start);

    $Strap->_restore_PERL5LIB;

    return(\%tot, \%failedtests);
}

=item B<_mk_leader>

  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13299	13400	
==>($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13299	13400	
==>($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13299	13400	
==>($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8680	8781	
==>ex($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2029	2114	
==>_env();

## -------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	724	843	
==>2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postcircumfix:<" . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11341	11457	
==>rator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11341	11457	
==>rator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11341	11457	
==>rator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1961	2108	
==>{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1740	1878	
==>{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1740	1878	
==>{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0] <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4164	4284	
==>tpParam"> ), traverse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my %pad = $t <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6322	6509	
==>te)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1725	1872	
==>arn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1725	1872	
==>arn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1725	1872	
==>arn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18832	18924	
==>ion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its stat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17875	17967	
==>ion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its stat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18832	18924	
==>ion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its stat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17875	17967	
==>ion if it hasn't seen traffic for
C<$live_timeout> seconds. Furthermore, it'll track its stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1023	1261	
==>\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11614	11765	
==>b {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11614	11765	
==>b {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11614	11765	
==>b {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7638	7787	
==>0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7638	7787	
==>0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28246	28370	
==>eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28525	28649	
==>eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7954	8092	
==>) -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'MET <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7954	8092	
==>) -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'MET <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3704	3834	
==>s -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3704	3834	
==>s -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17569	17700	
==>ype' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17569	17700	
==>ype' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2031	2143	
==>rt(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2031	2143	
==>rt(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1122	1220	
==>s syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1122	1220	
==>s syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1122	1220	
==>s syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New meth <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	267	371	
==>l {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns boo <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	267	371	
==>l {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14241	14342	
==>ler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8445	8546	
==>ler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3877	3987	
==>t(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14761	14846	
==>rnals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14761	14846	
==>rnals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14761	14846	
==>rnals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1261	1362	
==>lf_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5092	5213	
==>ub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16128	16249	
==>ub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17616	17737	
==>ub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22299	22420	
==>ub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tre <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15988	16094	
==>heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19465	19571	
==>heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18971	19077	
==>heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Re <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2653	2749	
==>y the objects since they're copies
	foreach my $entry (@free) {
		my $assigned = $map{$entry->{or <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1156	1270	
==>t an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1156	1270	
==>t an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15819	15917	
==>it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15819	15917	
==>it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1115	1216	
==>concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1115	1216	
==>concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8672	8767	
==>red when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8672	8767	
==>red when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1517	1659	
==>\"\\n\";\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\n" . 
        $program . 
        "        )- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9952	10068	
==>es($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9952	10068	
==>es($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9952	10068	
==>es($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2580	2701	
==>le->roles}) {
        $output .= _draw_role($subrole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5299	5399	
==>b expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5299	5399	
==>b expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5299	5399	
==>b expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bod <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7498	7594	
==>ed.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=it <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7498	7594	
==>ed.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17731	17825	
==>o see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
already <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17731	17825	
==>o see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
already <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7934	8074	
==>t' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7934	8074	
==>t' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7934	8074	
==>t' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'. <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1137	1248	
==>cope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15472	15578	
==>ed */
  U32 lastcloseparen;     /* last paren matched */

Other things the world messes with:

  I32 refcnt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13679	13784	
==>he root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13679	13784	
==>he root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13679	13784	
==>he root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @ <==
4	/Users/nnunley/pugs/util/package-osx.pl	8036	8134	
==>pm
        /usr/local/man/man3/Perl6::Spec::Package.3pm
        /usr/local/man/man3/Perl6::Spec::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2999	3093	
==>al($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2999	3093	
==>al($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2999	3093	
==>al($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5767	5870	
==>xed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5767	5870	
==>xed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5767	5870	
==>xed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19272	19376	
==>ng with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the fi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19272	19376	
==>ng with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17537	17628	
==>y to ship precompiled modules without shipping Module::Compile and
the compiler modules them <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17537	17628	
==>y to ship precompiled modules without shipping Module::Compile and
the compiler modules them <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5734	5868	
==>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5552	5682	
==>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1803	1896	
==>ead "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>ibl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1803	1896	
==>ead "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>ibl <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3721	3832	
==>t_smoker;
    $self->get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37653	37760	
==>value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37653	37760	
==>value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37653	37760	
==>value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5698	5806	
==>run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5698	5806	
==>run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5698	5806	
==>run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4428	4523	
==>eferenceError; }
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetB <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15019	15128	
==>r)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13	106	
==>Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPO <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13	106	
==>Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14722	14826	
==>initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14722	14826	
==>initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Prim <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14722	14826	
==>initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Prim <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13125	13225	
==>ning under -T, you really mean to
	# run a fresh perl, so we'll brute force launder everything for yo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11234	11367	
==>{
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3849	3945	
==>.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3849	3945	
==>.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3849	3945	
==>.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6727	6852	
==>IL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6727	6852	
==>IL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6727	6852	
==>IL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefau <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21891	21994	
==>length($failed_str);
    foreach my $script (keys %$failedtests) {
        my $namelen = length $failedt <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20690	20813	
==>her (symbol new DESTROY))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	323	423	
==>str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	323	423	
==>str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	323	423	
==>str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep clo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2408	2524	
==>} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	395	498	
==>iner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added func <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	395	498	
==>iner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added func <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	395	498	
==>iner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added func <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8805	8910	
==>{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8514	8616	
==>{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6635	6727	
==>rsion of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AU <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6635	6727	
==>rsion of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AU <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14384	14487	
==>IX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8587	8690	
==>IX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2336	2434	
==>lf.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Spa <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2336	2434	
==>lf.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Spa <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5342	5444	
==>directory.  This is shorthand for backwards
compatibility on systems where C<glob()> doesn't work right <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15695	15793	
==>->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15695	15793	
==>->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15695	15793	
==>->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13919	14023	
==>eption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13919	14023	
==>eption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13919	14023	
==>eption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cl <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5234	5363	
==>n", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5292	5421	
==>n", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7660	7758	
==>%channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7660	7758	
==>%channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $even <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1308	1431	
==>Y';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1513	1636	
==>Y';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1574	1697	
==>Y';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35700	35803	
==>make to be look-aheads.  To
make an object, we need to access C<< $self->{rx} >>.

    my $consume = pop <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6217	6327	
==>return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

met <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6217	6327	
==>return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

met <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	56	154	
==>tter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Inde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	56	154	
==>tter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Inde <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7882	7981	
==>rtable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12276	12375	
==>te; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progr <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7882	7981	
==>rtable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12276	12375	
==>te; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10016	10135	
==>dle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # mem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10016	10135	
==>dle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # mem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10016	10135	
==>dle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # mem <==
4	/Users/nnunley/pugs/util/testgraph.pl	123	213	
==>est::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Confi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	984	1086	
==>semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	984	1086	
==>semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	379	474	
==>ad1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	379	474	
==>ad1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28008	28104	
==>il if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( M <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32560	32656	
==>il if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( M <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40749	40841	
==>of
Locale::KeyedText would appreciate being informed any time you create a
modified version o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40749	40841	
==>of
Locale::KeyedText would appreciate being informed any time you create a
modified version o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4608	4772	
==>);
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4608	4772	
==>);
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3270	3362	
==>r(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3270	3362	
==>r(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enci <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12883	13004	
==>SH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1807	1909	
==>se F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeC <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2465	2560	
==>"infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2465	2560	
==>"infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2465	2560	
==>"infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2809	2931	
==>de); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $tit <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2809	2931	
==>de); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $tit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17740	17833	
==>item *

Zero additional runtime penalty after compilation, because C<perl> has
already been do <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17740	17833	
==>item *

Zero additional runtime penalty after compilation, because C<perl> has
already been do <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13952	14054	
==>=> "Creating directory \"$cdroot\"",
  ensure => sub { -d $cdroot and -r $cdroot },
  using  => sub { m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	152	280	
==>able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	156	284	
==>able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	152	280	
==>able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	156	284	
==>able to say:
#   my $bot = new_bot(nick => $nick, host => $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	986	1244	
==>g_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	986	1244	
==>g_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5638	5745	
==>d: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    re <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5638	5745	
==>d: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13049	13157	
==>| 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13049	13157	
==>| 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13049	13157	
==>| 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatch <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	228	333	
==>regex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/regex/) ~~ any(@a, 'c', 'd' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6228	6337	
==>et, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6228	6337	
==>et, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6228	6337	
==>et, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5588	5689	
==>c) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1)) if $cc;
    return $S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21861	21967	
==>>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20742	20848	
==>>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21861	21967	
==>>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20742	20848	
==>>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C<from>

The C <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15107	15261	
==>eg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14882	15013	
==>> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14882	15013	
==>> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else { <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	761	870	
==>id {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	761	870	
==>id {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $chil <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30567	30744	
==>('_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4256	4369	
==>based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4256	4369	
==>based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4256	4369	
==>based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15672	15798	
==>0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15672	15798	
==>0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15672	15798	
==>0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4290	4404	
==>| BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5764	5916	
==>for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5764	5916	
==>for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5764	5916	
==>for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25477	25576	
==>?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #Sourc <==
4	/Users/nnunley/pugs/util/grokprims.pl	121	234	
==>,
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-assoc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14604	14698	
==>s] belongs inside character classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9293	9383	
==>sh @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3118	3208	
==>sh @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5330	5451	
==>p} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5330	5451	
==>p} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5330	5451	
==>p} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	78	167	
==>Module/Install/Scripts.pm"
package Module::Install::Scripts;
use Module::Install::Base; @I <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11472	11587	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11751	11866	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2020	2120	
==>ort {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2078	2178	
==>ort {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3522	3647	
==>riable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4839	4964	
==>riable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3522	3647	
==>riable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4827	4952	
==>riable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2648	2753	
==>Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@it <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2648	2753	
==>Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28324	28518	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28324	28518	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28324	28518	
==>( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24820	24947	
==>ion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22712	22816	
==>2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22712	22816	
==>2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22712	22816	
==>2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14233	14331	
==>e ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14233	14331	
==>e ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1177	1273	
==>es in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1177	1273	
==>es in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continu <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4873	5020	
==>x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	680	778	
==>Model t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrouti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	680	778	
==>Model t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrouti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	680	778	
==>Model t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrouti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9258	9402	
==>to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9258	9402	
==>to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9258	9402	
==>to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $a <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2977	3072	
==>/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Scary.
rule interpolate <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1491	1603	
==>witch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12337	12438	
==>e_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12337	12438	
==>e_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12337	12438	
==>e_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1886	1996	
==>ode);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2823	2927	
==>($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2823	2927	
==>($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2823	2927	
==>($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3022	3115	
==>ssed($struct) ? $struct->moniker : "const";
		join("_", $type, ++$self->{counters}{$type});
	} <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5898	5987	
==>node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMac <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5898	5987	
==>node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMac <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2797	2886	
==>node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMac <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1096	1297	
==>', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1096	1297	
==>', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^= <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2748	2854	
==>Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2748	2854	
==>Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9523	9660	
==>>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9523	9660	
==>>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9523	9660	
==>>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	282	401	
==>ar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Gramma <==
4	/Users/nnunley/pugs/util/func_refact.pl	2648	2761	
==>and}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	927	1038	
==>endChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	927	1038	
==>endChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	927	1038	
==>endChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	297	430	
==>val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	214	312	
==>s->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	214	312	
==>s->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	214	312	
==>s->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3615	3722	
==>] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3615	3722	
==>] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3615	3722	
==>] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->u <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15401	15495	
==>supported level is simply mapped char for
char to the desired level. However, attempting to stu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5826	5931	
==>rom the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5826	5931	
==>rom the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5826	5931	
==>rom the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1945	2045	
==>("Blondie::Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduced <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5492	5713	
==>val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5492	5713	
==>val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	31	126	
==>Infinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($cla <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	31	126	
==>Infinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($cla <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4794	4957	
==>mpty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4794	4957	
==>mpty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3191	3297	
==>ule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3179	3285	
==>ule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8097	8324	
==>y $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8097	8324	
==>y $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        ci <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8097	8324	
==>y $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        ci <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4524	4634	
==>d<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNamed" <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9824	9922	
==>_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1932	2098	
==>$match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1932	2098	
==>$match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7429	7529	
==>der operators take a list of match operators, and return a new 

match operator.



A ruleop() functi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7176	7273	
==>der operators take a list of match operators, and return a new 
match operator.

A ruleop() functi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1324	1436	
==>et; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1324	1436	
==>et; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1324	1436	
==>et; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12187	12305	
==>arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if ! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6754	6872	
==>arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if ! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12187	12305	
==>arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if ! <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6754	6872	
==>arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7252	7416	
==>implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7252	7416	
==>implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7252	7416	
==>implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $k <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11662	11756	
==>mp>.

=item Pair(KeyExtractor, Comparator)

A combination of the two methods above, for when on <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14884	14977	
==>xpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5634	5749	
==>new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5634	5749	
==>new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5634	5749	
==>new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1466	1587	
==>i    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @hea <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1466	1587	
==>i    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @hea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	551	647	
==>my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	551	647	
==>my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Dat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11953	12068	
==>_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11953	12068	
==>_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # a <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	582	670	
==>-----------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ---- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	605	693	
==>------------------
# Author: Yung-chung Lin (xern@cpan.org)
# --------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	904	1075	
==>ndef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } el <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	904	1075	
==>ndef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } el <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4313	4435	
==>wlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4313	4435	
==>wlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2689	2802	
==>->display_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1719	1829	
==>=> 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1719	1829	
==>=> 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute" <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4504	4583	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4504	4583	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+( <==
4	/Users/nnunley/pugs/util/grokprims.pl	798	900	
==>l version="1.1" encoding="UTF-8" ?><html><body><table border="1">';



foreach my $op (sort 
         { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2810	2906	
==>opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly prun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2810	2906	
==>opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly prun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2810	2906	
==>opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly prun <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1420	1555	
==>t unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        } <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1420	1555	
==>t unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2413	2519	
==>rt <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2413	2519	
==>rt <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	257	373	
==>s_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	257	373	
==>s_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3142	3252	
==>e::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3991	4101	
==>e::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	541	662	
==>t ran $ran.\n";
	} elsif ($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1200	1301	
==>2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1200	1301	
==>2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1200	1301	
==>2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1904	2006	
==>ge PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1904	2006	
==>ge PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1904	2006	
==>ge PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	0	87	
==>use Perl6::Run::OnPerl5::X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1731	1899	
==>_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1731	1899	
==>_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1731	1899	
==>_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_in <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2310	2428	
==>ke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7931	8082	
==>ext unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8395	8546	
==>ext unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1214	1308	
==>ame> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<para <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1214	1308	
==>ame> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<para <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1162	1274	
==>FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->logi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1129	1241	
==>FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->logi <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2745	2847	
==>? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "- <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2745	2847	
==>? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "- <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1694	1788	
==>SE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefil <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1694	1788	
==>SE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23405	23495	
==>mponent or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23405	23495	
==>mponent or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	136	241	
==>er::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	136	241	
==>er::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	136	241	
==>er::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless { <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2466	2577	
==>$code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_clien <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2466	2577	
==>$code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_clien <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1135	1243	
==>ool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1135	1243	
==>ool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1078	1180	
==>->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1078	1180	
==>->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1078	1180	
==>->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	752	864	
==>ly different)


use utf8;
use strict;
use warnings;

use Set::Object ();
use Data::Dumper ();
use Storable ();

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14841	14932	
==>uire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14841	14932	
==>uire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14841	14932	
==>uire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	526	641	
==>r $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    prin <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	526	641	
==>r $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    prin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9763	9860	
==>:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pas <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9763	9860	
==>:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1410	1596	
==>l_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1410	1596	
==>l_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1410	1596	
==>l_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	778	939	
==>utes,
                  # so we represent them all as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16766	16862	
==>This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16766	16862	
==>This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16766	16862	
==>This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE A <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5481	5572	
==>ti sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8430	8573	
==>) ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12343	12482	
==>) ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12343	12482	
==>) ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gramm <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13158	13254	
==>ype of the function the arrow operator, applied to the type of the parameter (as allocated in the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10924	11058	
==>{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Runtime <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3080	3184	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3080	3184	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3080	3184	
==>ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7039	7137	
==>ew PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will ta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7039	7137	
==>ew PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will ta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7039	7137	
==>ew PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will ta <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3440	3589	
==>@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3440	3589	
==>@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1330	1439	
==>irs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	668	776	
==>irs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	414	855	
==>21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            2 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	414	855	
==>21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1776	1890	
==>_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( "'" . $_[0], "'" );
    $e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9040	9152	
==>("", map $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map joi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	42	146	
==>a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# On <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	46	150	
==>a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# On <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	42	146	
==>a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# On <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	46	150	
==>a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bots.
# On <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9603	9802	
==>{ "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $str <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9603	9802	
==>{ "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $str <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16109	16211	
==>odified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16109	16211	
==>odified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4879	4989	
==>r? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4879	4989	
==>r? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4879	4989	
==>r? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6242	6341	
==>attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13211	13383	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13211	13383	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13211	13383	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1501	1613	
==>oad($stream);
    
    if (-M $filename > -M $config_template) {
        print <<".";
*** Build config file '$fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2183	2287	
==>ng(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2183	2287	
==>ng(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2183	2287	
==>ng(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	365	465	
==>/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	365	465	
==>/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	365	465	
==>/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7642	7736	
==>tests --> Int|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int|Li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	879	1098	
==>ft;
                my $idx = shift;
                $self->hash_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $self = shift;
                my $idx = shift;
                my $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	175	293	
==>ge PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	175	293	
==>ge PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	175	293	
==>ge PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4318	4468	
==>> &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4318	4468	
==>> &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4318	4468	
==>> &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        met <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3873	3999	
==>to
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $target = File::Spec->canonpath(
            File::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	619	791	
==>AGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __PACKAGE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	293	394	
==>if $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	293	394	
==>if $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	293	394	
==>if $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5136	5253	
==>r
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5136	5253	
==>r
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5136	5253	
==>r
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	104	200	
==>EPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22995	23136	
==>TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22995	23136	
==>TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22995	23136	
==>TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @pa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2795	2904	
==>code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3040	3149	
==>code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2795	2904	
==>code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3040	3149	
==>code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1010	1129	
==>he tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4488	4607	
==>he tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1337	1429	
==>glish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 S <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1337	1429	
==>glish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1086	1200	
==>ference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subm <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1066	1180	
==>ference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subm <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1086	1200	
==>ference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subm <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1066	1180	
==>ference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

subm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2099	2321	
==>$sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2099	2321	
==>$sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2099	2321	
==>$sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14683	14766	
==>irs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,b <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12492	12592	
==>f spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as be <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12492	12592	
==>f spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as be <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1020	1111	
==>put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1020	1111	
==>put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19664	19792	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->er <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7824	7943	
==>n iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7824	7943	
==>n iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n). <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7824	7943	
==>n iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n). <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11814	11928	
==>$self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $sy <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	223	332	
==>$self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $sy <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7658	7754	
==>s care of much of this.)

A default implementation of this method is provided which returns nothi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7658	7754	
==>s care of much of this.)

A default implementation of this method is provided which returns nothi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	554	715	
==>thods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	554	715	
==>thods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	554	715	
==>thods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## crea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31320	31419	
==>item data

The data or children of this object.

=item dir

The direction of this object (for look-a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10207	10346	
==>:get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6548	6687	
==>:get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7397	7536	
==>:get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6157	6254	
==>es.pod r8593.
multi method Array::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	504	624	
==>pl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	498	618	
==>pl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11509	11607	
==>t all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11509	11607	
==>t all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38463	38580	
==>ift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38463	38580	
==>ift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38463	38580	
==>ift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16174	16280	
==>ub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3604	3717	
==>cher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3604	3717	
==>cher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3604	3717	
==>cher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10534	10630	
==>"alive\n";

our $regexp_compile_hook = sub{
  my($re)=@_;
  print STDERR "compiling pattern '$re' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7775	7898	
==>rray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7775	7898	
==>rray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7775	7898	
==>rray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # re <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	945	1066	
==>\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3802	3955	
==>t the code
        {   ### XXX we should *build* things here too
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1805	1915	
==>'t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1805	1915	
==>'t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1805	1915	
==>'t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11514	11620	
==>$f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22491	22597	
==>$f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11514	11620	
==>$f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11514	11620	
==>$f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18257	18370	
==>f
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3845	3947	
==>el for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRAC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3845	3947	
==>el for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRAC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3845	3947	
==>el for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRAC <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	394	504	
==>>root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17297	17400	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17297	17400	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17297	17400	
==>::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13526	13675	
==>re are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13526	13675	
==>re are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13526	13675	
==>re are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9398	9484	
==>identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_identifier(X), <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22786	22904	
==>s} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19207	19325	
==>s} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12822	12935	
==>udo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12822	12935	
==>udo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.conne <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6516	6707	
==>::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            f <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6516	6707	
==>::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            f <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	290	396	
==>hift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $F <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	302	408	
==>hift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $F <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9964	10150	
==>e "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11441	11627	
==>e "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta- <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4133	4231	
==>return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -I <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4133	4231	
==>return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -I <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18156	18289	
==>Int $limit = inf --> List )
 multi Str::split (      Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	946	1078	
==>b { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	946	1078	
==>b { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	946	1078	
==>b { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13535	13700	
==>hile $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13535	13700	
==>hile $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13535	13700	
==>hile $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2420	2585	
==>hile $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17981	18104	
==>tional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 12 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17019	17142	
==>tional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 12 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17981	18104	
==>tional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 12 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17019	17142	
==>tional)
    autoping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 12 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	555	650	
==>Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	555	650	
==>Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1111	1206	
==>Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5245	5430	
==>ol => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5079	5256	
==>ol => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub rule <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4768	4875	
==>")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
li <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4768	4875	
==>")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1406	1507	
==>y array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1406	1507	
==>y array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1406	1507	
==>y array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1395	1495	
==>'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3225	3351	
==>JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5487	5601	
==>ole (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5487	5601	
==>ole (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5487	5601	
==>ole (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2619	2723	
==>e") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2619	2723	
==>e") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2619	2723	
==>e") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inlin <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6940	7024	
==>achar("\.").
p5_metachar("[").
p5_metachar("^").
p5_metachar("$"). %"
p5_metachar("(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8383	8487	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8383	8487	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8383	8487	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17309	17409	
==>s a function that takes any param
# that function will return a pair with the first param and the sec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5672	5818	
==>? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5684	5830	
==>? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1162	1276	
==>" }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2036	2150	
==>" }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4932	5067	
==>> ';',
    #);

    # experimental
    __PACKAGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tigh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	355	455	
==>e //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	355	455	
==>e //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	355	455	
==>e //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10304	10433	
==>ightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10304	10433	
==>ightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10304	10433	
==>ightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3136	3243	
==>eturn $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PANIC! %d %s" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11744	11907	
==>ires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.pus <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11744	11907	
==>ires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.pus <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5034	5179	
==>obably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5034	5179	
==>obably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6720	6826	
==>= $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6720	6826	
==>= $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6720	6826	
==>= $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following l <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1573	1707	
==>) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escap <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1573	1707	
==>) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escap <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7620	7746	
==>) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7620	7746	
==>) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3875	3972	
==>_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3875	3972	
==>_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2003	2098	
==>1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2003	2098	
==>1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSI <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7544	7689	
==>_close',
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2519	2613	
==>), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2519	2613	
==>), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2519	2613	
==>), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Strin <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	578	702	
==>l be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	578	702	
==>l be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15988	16083	
==>of
the document itself.

=item $h.last_modified

This header indicates the date and time at whic <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15988	16083	
==>of
the document itself.

=item $h.last_modified

This header indicates the date and time at whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5470	5587	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5470	5587	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # X <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5470	5587	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # X <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3150	3252	
==>6/lib';
    $self->{_build_info} = join '', qx{$executable -V};
}

sub _build_exclude_re {
    my $excl <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8773	8889	
==>ues --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	246	362	
==>ues --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4908	5005	
==>_obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4908	5005	
==>_obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1632	1736	
==>0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1632	1736	
==>0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1632	1736	
==>0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$ <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1302	1403	
==>ct Environment for Perl 6

=head1 SYNOPSIS

  class MySession is POE::Session {
    method dispatch (S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4208	4324	
==>}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3335	3451	
==>}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4208	4324	
==>}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is u <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3335	3451	
==>}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5193	5326	
==>_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('coll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5193	5326	
==>_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('coll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5193	5326	
==>_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('coll <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	969	1070	
==>ift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitter::Pretty->new->string( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2244	2412	
==>]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2491	2659	
==>]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1880	1984	
==>return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1880	1984	
==>return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    retur <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	912	1014	
==>lock> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($n <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	912	1014	
==>lock> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1704	1800	
==>ti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* r <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1704	1800	
==>ti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	140	276	
==>}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	182	318	
==>}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	140	276	
==>}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	182	318	
==>}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1128	1227	
==>store($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1128	1227	
==>store($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	843	941	
==>headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	843	941	
==>headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Head <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14279	14368	
==>me_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames ":full";unpa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16955	17043	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16955	17043	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16955	17043	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	367	468	
==>>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	367	468	
==>>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	367	468	
==>>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7860	7959	
==>} '... metaclass calling instance method fails';

## does Foo get Object's singleton methods ..

is( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4691	4801	
==>"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it breaks <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9669	9775	
==>my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9669	9775	
==>my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9669	9775	
==>my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4968	5117	
==>=>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4968	5117	
==>=>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13124	13219	
==>sage.  All header field names prefixed with C<Content-> falls
into this category, as well as C<A <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13124	13219	
==>sage.  All header field names prefixed with C<Content-> falls
into this category, as well as C<A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	640	759	
==>t{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	656	775	
==>t{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	632	751	
==>t{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	37	137	
==>me;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role does NameSpace;

=head <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2162	2275	
==>rgs{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	371	482	
==>? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	371	482	
==>? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	371	482	
==>? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.ch <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5223	5343	
==>ss {
    has @:MRO;
    has @:subclasses;
    has @:superclasses;
    has %:private_methods;
    has %:attributes;
    ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3972	4068	
==>::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3972	4068	
==>::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3972	4068	
==>::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1384	1515	
==>empty" unless ref($nodes) eq 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1728	1856	
==>empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1335	1463	
==>empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1728	1856	
==>empty" unless ref($nodes) eq 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11530	11670	
==>=> 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           "$_[1] Pugs::Runtime::Rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13272	13399	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13272	13399	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13272	13399	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@l <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2157	2284	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10062	10251	
==>est.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2117	2288	
==>est.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2117	2288	
==>est.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3426	3575	
==>g->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Obj     = $self->SUP <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	746	841	
==>port(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::Tr <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	746	841	
==>port(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::Tr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18986	19080	
==>use Locale::KeyedText is only meant to be used with user text that is
associated with hard-code <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18986	19080	
==>use Locale::KeyedText is only meant to be used with user text that is
associated with hard-code <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19198	19311	
==>rep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # ) fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18239	18351	
==>method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18239	18351	
==>method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18239	18351	
==>method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13587	13748	
==>ue::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13587	13748	
==>ue::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13587	13748	
==>ue::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => <==
4	/Users/nnunley/pugs/util/importgraph.pl	1886	1972	
==>.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr/^IMC\b/);
setup_cluster('RRegex', qr/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1232	1331	
==>} if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1232	1331	
==>} if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1232	1331	
==>} if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3137	3264	
==>ap { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, "list-op" );
}

sub _emit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	757	846	
==>=> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	757	846	
==>=> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	757	846	
==>=> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Ob <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	127	265	
==>age Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3329	3449	
==>,          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3329	3449	
==>,          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Stri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3329	3449	
==>,          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1267	1371	
==>Stmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VAR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1267	1371	
==>Stmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VAR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1267	1371	
==>Stmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VAR <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1168	1267	
==>ts results.  This makes
analysis of the test results difficult for anything but a human.  To
make it <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2457	2589	
==>finite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        pus <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2457	2589	
==>finite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        pus <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	247	359	
==>$param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	247	359	
==>$param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24799	24900	
==>1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If y <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23563	23664	
==>1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If y <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24799	24900	
==>1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If y <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23563	23664	
==>1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short time.

If y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	689	801	
==>_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	689	801	
==>_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	689	801	
==>_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16591	16691	
==>ader field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16591	16691	
==>ader field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.cont <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10060	10158	
==>ersion=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10060	10158	
==>ersion=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	555	720	
==>},
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12681	12816	
==>r::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3045	3174	
==>r::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3045	3174	
==>r::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6938	7063	
==>ang \< perl5 \> <p6ws>? 
    \) <p6ws>? \;
        { return { eval_perl5 => $<literal> } }
RULE
*{'_return'} = Pugs::Compiler: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2414	2513	
==>my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2414	2513	
==>my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2414	2513	
==>my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11394	11566	
==>ersection;

###########################################################################

method difference (Relation::Example $other!) returns Relation::Example {

    die " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4850	4962	
==>"
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13494	13585	
==>xport_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13494	13585	
==>xport_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3405	3558	
==>> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        }, <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19067	19167	
==>str;
}

multi shift (@array) is builtin is primitive { List::shift(@array) };
multi shift ($array) is <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2748	2840	
==>=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this node <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2748	2840	
==>=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this node <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4378	4477	
==>, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4378	4477	
==>, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Retu <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24939	25035	
==>ree->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α  <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25380	25476	
==>ree->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α  <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15843	15978	
==>0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15843	15978	
==>0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15843	15978	
==>0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Valu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13986	14090	
==>')'>
}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <As <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5800	5954	
==>if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5800	5954	
==>if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5800	5954	
==>if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	753	849	
==>:Compiler::Rule->compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10808	10976	
==>Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7149	7317	
==>Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7998	8166	
==>Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8854	8969	
==>V{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathName($^X <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8120	8216	
==>ral> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <De <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15354	15446	
==>hould behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15354	15446	
==>hould behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2626	2804	
==>en rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             & <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2626	2804	
==>en rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             & <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	475	581	
==>de - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  = <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	475	581	
==>de - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6162	6302	
==>eturn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6162	6302	
==>eturn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6162	6302	
==>eturn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fla <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5589	5686	
==>egexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	766	863	
==>le the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	766	863	
==>le the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3810	3905	
==>1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3994	4089	
==>1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	645	746	
==>d (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $st <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	645	746	
==>d (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $st <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10912	11004	
==>many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specifi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10912	11004	
==>many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specifi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3074	3179	
==>in('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must asc <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3074	3179	
==>in('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must asc <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	548	644	
==>c($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	548	644	
==>c($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12879	13101	
==>Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12879	13101	
==>Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12879	13101	
==>Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	997	1105	
==>4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "% <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2457	2569	
==>prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13454	13551	
==>hdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13454	13551	
==>hdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13454	13551	
==>hdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	246	379	
==>een = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2560	2676	
==>ts;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
} <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2560	2676	
==>ts;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
} <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8433	8522	
==>--> "i", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-m|L]) --> "m", p5_modifier_spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14555	14672	
==>sult;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14555	14672	
==>sult;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    re <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	860	966	
==>itebin} || $Config{installsbin},

        installman1dir     => $Config{installman1dir},
        installman <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	190	292	
==>L::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	190	292	
==>L::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	190	292	
==>L::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9094	9238	
==>m->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9094	9238	
==>m->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9094	9238	
==>m->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4969	5076	
==>nt($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4969	5076	
==>nt($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4969	5076	
==>nt($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $nat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8350	8440	
==>>new_pad( $param->val, my $placeholder = Blondie::TypeSafe::Type::Placeholder->new );

		my <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8316	8417	
==>s not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5677	5778	
==>ay to
# access it until we have know how both these interfaces can be
# addressed.  One possibility is <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8316	8417	
==>s not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5677	5778	
==>ay to
# access it until we have know how both these interfaces can be
# addressed.  One possibility is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9139	9250	
==>ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1267	1372	
==>ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1267	1372	
==>ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2978	3069	
==>p($source_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
print "$match";

su <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27459	27554	
==>> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zero att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2867	2960	
==>ed} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2867	2960	
==>ed} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2867	2960	
==>ed} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1682	1793	
==>p;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1682	1793	
==>p;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21669	21780	
==>lf->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flag <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18090	18201	
==>lf->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flag <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	158	378	
==>nation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	159	379	
==>nation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   rul <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7172	7291	
==>{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = Lo <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	473	592	
==>{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = Lo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4222	4321	
==>unction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5119	5218	
==>unction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4222	4321	
==>unction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5119	5218	
==>unction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1744	1866	
==>ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1744	1866	
==>ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1744	1866	
==>ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefine <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8650	8749	
==>redicate!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!headin <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2622	2741	
==>, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2622	2741	
==>, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	77	184	
==>G = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	77	184	
==>G = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	38	139	
==>urce, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	38	139	
==>urce, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	38	139	
==>urce, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get i <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	38	139	
==>urce, header, object and intermediate files in `src`
# to the blib6 archlib, so that it will all get i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2005	2107	
==>("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2005	2107	
==>("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3498	3750	
==>f every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Vari <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3498	3750	
==>f every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Vari <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1169	1284	
==>eholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1169	1284	
==>eholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3871	3986	
==>erl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3871	3986	
==>erl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2150	2264	
==>ments, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2150	2264	
==>ments, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5119	5250	
==>class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5119	5250	
==>class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5119	5250	
==>class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20882	20968	
==>ct__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=item Cleaner Grammar Fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5452	5562	
==>utomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5452	5562	
==>utomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) & <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5452	5562	
==>utomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) & <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3191	3312	
==>,          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3191	3312	
==>,          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3191	3312	
==>,          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	928	1016	
==>addToken("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6133	6253	
==>_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6133	6253	
==>_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6133	6253	
==>_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20016	20108	
==>ad perl5 modules via js when not running under PIL2JS!";
}
our &PIL2JS::Internals::use_perl5_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2384	2522	
==>concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2395	2533	
==>concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternat <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1012	1108	
==><< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte val <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1012	1108	
==><< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte val <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3541	3691	
==>nt {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{captur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3400	3544	
==>nt {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	963	1075	
==>p / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * sym <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	963	1075	
==>p / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * sym <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8032	8157	
==>er;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, B <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8032	8157	
==>er;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, B <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	392	513	
==>od _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	392	513	
==>od _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1711	1837	
==>, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1711	1837	
==>, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1711	1837	
==>, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, % <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	117	217	
==>'0.61';

use strict 'vars';

my @scalar_keys = qw{
    name module_name abstract author version licen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1136	1255	
==>OLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1341	1460	
==>OLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1402	1521	
==>OLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	255	350	
==>rimitives, please do *not* use `return()`, because
that messes up PIR generation.  To return a v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8654	8755	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8654	8755	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8654	8755	
==>Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MUL <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20101	20201	
==>eDeclarationList :words {  # see 12.2
      <VariableDeclaration>
    | <VariableDeclarationList> <', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8894	9000	
==>expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8894	9000	
==>expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8894	9000	
==>expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1740	1907	
==>nt() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1740	1907	
==>nt() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1740	1907	
==>nt() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10676	10767	
==>ingleton/class method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::si <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1848	1949	
==>ader($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1848	1949	
==>ader($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1781	1875	
==>grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1781	1875	
==>grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	972	1079	
==>r}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	972	1079	
==>r}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9560	9659	
==>ompile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a re <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9560	9659	
==>ompile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18113	18246	
==>loodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17151	17284	
==>loodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18113	18246	
==>loodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17151	17284	
==>loodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3157	3312	
==>e) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3157	3312	
==>e) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3157	3312	
==>e) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3155	3299	
==>= '_'.$func;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$func}->[1] <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2060	2167	
==>t)\
multi method Array::delete (@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4108	4198	
==>hile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4108	4198	
==>hile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4108	4198	
==>hile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($x <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11054	11207	
==>result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11054	11207	
==>result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4068	4198	
==>le 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postambl <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3019	3135	
==>le 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postambl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	681	789	
==>lements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	681	789	
==>lements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1442	1546	
==>arse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1442	1546	
==>arse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	665	782	
==>r_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	665	782	
==>r_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	665	782	
==>r_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CL <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13083	13172	
==>?"). brackets("#","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	488	591	
==>h - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	488	591	
==>h - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	248	337	
==>e if_unmodified_since last_modified
    content_type content_encoding content_length conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	248	337	
==>e if_unmodified_since last_modified
    content_type content_encoding content_length conte <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26168	26294	
==>{
    my ($class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4510	4609	
==>nt () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4510	4609	
==>nt () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4510	4609	
==>nt () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MU <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12705	12802	
==>lakier (modulo memory issues),
  might suffice, be easier to create, and be more portable.
  http: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9347	9443	
==>e( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidiff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12824	12920	
==>e( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidiff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12078	12174	
==>e( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidiff <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4573	4724	
==>s an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "se <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5232	5383	
==>s an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4573	4724	
==>s an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5232	5383	
==>s an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13085	13213	
==>{length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13085	13213	
==>{length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2601	2700	
==>> object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not cl <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2601	2700	
==>> object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not cl <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3723	3838	
==>t {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859- <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3723	3838	
==>t {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20467	20566	
==>es your programs do or
might have, and lets you arrange the list in order of preference.  When you
o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20467	20566	
==>es your programs do or
might have, and lets you arrange the list in order of preference.  When you
o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3329	3517	
==>ed $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3469	3657	
==>ed $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	226	327	
==>__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2933	3041	
==>,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eage <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2933	3041	
==>,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eage <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2933	3041	
==>,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eage <==
4	/Users/nnunley/pugs/util/importgraph.pl	2489	2583	
==>g->add_node($name, color => ($module->[1] ? 'green' : 'black'),
    (defined $cluster ? (cluste <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2555	2675	
==>',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, I <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2555	2675	
==>',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, I <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1730	1820	
==>($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1730	1820	
==>($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ci <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1012	1167	
==>= shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	891	1046	
==>= shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3145	3261	
==>cted,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3145	3261	
==>cted,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24198	24303	
==>This is typically used by automatons
  (clients with either an AI or other interactive program controlling <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22971	23076	
==>This is typically used by automatons
  (clients with either an AI or other interactive program controlling <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24198	24303	
==>This is typically used by automatons
  (clients with either an AI or other interactive program controlling <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22971	23076	
==>This is typically used by automatons
  (clients with either an AI or other interactive program controlling <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2297	2409	
==>{
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2297	2409	
==>{
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2297	2409	
==>{
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19088	19193	
==>ethod BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: set_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4777	4890	
==>g
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4777	4890	
==>g
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4777	4890	
==>g
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doubl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24190	24275	
==>rl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3033	3180	
==>n $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3033	3180	
==>n $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3033	3180	
==>n $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # P <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1457	1558	
==>ACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http: <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4647	4752	
==>f( $result{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1658	1762	
==>pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1658	1762	
==>pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1658	1762	
==>pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? F <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3564	3711	
==>= (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3564	3711	
==>= (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4189	4288	
==>ome sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's do <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4189	4288	
==>ome sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's do <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8011	8149	
==>fix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13605	13743	
==>fix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8011	8149	
==>fix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13599	13737	
==>fix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5295	5400	
==>h @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5295	5400	
==>h @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5295	5400	
==>h @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1060	1184	
==>$Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Control -C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5656	5755	
==>n;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5656	5755	
==>n;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6246	6345	
==>n;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28586	28717	
==>he Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object('and');
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	261	360	
==>ith calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	261	360	
==>ith calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	261	360	
==>ith calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1222	1317	
==>art, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1222	1317	
==>art, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1222	1317	
==>art, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLi <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1877	2004	
==>lar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16045	16154	
==>if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16045	16154	
==>if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16045	16154	
==>if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5016	5226	
==>d($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5016	5226	
==>d($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5016	5226	
==>d($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_c <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3871	4028	
==>ion = package_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13067	13178	
==>n(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use brute force <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	46	143	
==>e::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	46	143	
==>e::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17240	17335	
==>E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9710	9852	
==>AILED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	824	955	
==>{
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	824	955	
==>{
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	824	955	
==>{
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22458	22559	
==>p() will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*le <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3149	3258	
==>one }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3149	3258	
==>one }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15439	15530	
==>rporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a form <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15439	15530	
==>rporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a form <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4236	4331	
==>resents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('to <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4236	4331	
==>resents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14710	14811	
==>kage interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14710	14811	
==>kage interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14710	14811	
==>kage interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2811	2923	
==>!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# . <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2811	2923	
==>!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# . <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3396	3493	
==>le 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unico <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3580	3677	
==>le 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unico <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7352	7486	
==>d from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("W <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7352	7486	
==>d from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("W <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9852	9973	
==>onstant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10131	10252	
==>onstant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	797	907	
==>clude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	797	907	
==>clude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	797	907	
==>clude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3602	3700	
==>d in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3602	3700	
==>d in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3602	3700	
==>d in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operator <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1080	1177	
==>eturns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch () retu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4128	4239	
==>ub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3255	3366	
==>ub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4128	4239	
==>ub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3255	3366	
==>ub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1104	1222	
==>ngth \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $gr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9073	9190	
==>Y (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9073	9190	
==>Y (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10240	10350	
==>ringify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3278	3392	
==>new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3278	3392	
==>new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_fi <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3881	3966	
==>lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assi <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3881	3966	
==>lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	210	328	
==>le_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless define <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	204	322	
==>le_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	210	328	
==>le_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	204	322	
==>le_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	710	827	
==>g?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:diagnosti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14758	14874	
==>=> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14758	14874	
==>=> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14758	14874	
==>=> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4328	4420	
==>A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=it <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4328	4420	
==>A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5852	5944	
==>A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3303	3410	
==>ance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4005	4104	
==>ance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15986	16079	
==>, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15986	16079	
==>, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  No <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	96	341	
==>mbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	96	341	
==>mbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used b <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29338	29474	
==>e FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4182	4283	
==>nts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4182	4283	
==>nts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4182	4283	
==>nts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4619	4779	
==>kg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTALLABLE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	489	589	
==>l parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	489	589	
==>l parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	489	589	
==>l parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10100	10195	
==>p://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
de <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10100	10195	
==>p://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	509	636	
==>main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	509	636	
==>main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	509	636	
==>main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	537	630	
==>ub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11147	11255	
==>ile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod sect <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11147	11255	
==>ile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod sect <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	327	444	
==>t { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $args = ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2609	2715	
==>$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2609	2715	
==>$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScop <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2609	2715	
==>$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2392	2475	
==>Perl5::emit('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Grammar::Rule::rule>' ) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5790	6042	
==>int("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5790	6042	
==>int("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%e <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3151	3401	
==>int("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3151	3401	
==>int("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	14	116	
==>Bin';
use lib
    "$Bin/lib",
    "$Bin/../../../../lib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$B <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2884	2982	
==>ub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not re <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2884	2982	
==>ub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not re <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	69	158	
==>ge Module::Install::Can;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VER <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7105	7228	
==>m = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7105	7228	
==>m = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7105	7228	
==>m = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7368	7472	
==>es in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:superclass' => $Object,
    '@:roles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1721	1843	
==>(!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $lin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1721	1843	
==>(!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $lin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1721	1843	
==>(!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $lin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6250	6332	
==>outine|Sub|Method|Submethod|Macro|Rule|Block|Bare|Parametric)\z/) {
	my($name,$argl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2549	2666	
==>t.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2549	2666	
==>t.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5956	6048	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5956	6048	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	927	1028	
==>+ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	927	1028	
==>+ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	927	1028	
==>+ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array o <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18818	18907	
==>::Internals::substr($s,undef,$start,$length,undef,$replace) }
 multi substr(Str $s, StrLen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	404	509	
==>E = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our cu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	404	509	
==>E = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our cu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	404	509	
==>E = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our cu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11482	11604	
==>rn " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs::Runtime::Perl6::Scalar::Alias', " .
            "\\" . _emit( $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29647	29755	
==>t "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29647	29755	
==>t "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	451	547	
==>t "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_k <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12535	12634	
==>Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12535	12634	
==>Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2851	2949	
==>lue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tok <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2851	2949	
==>lue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7857	7973	
==>.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7857	7973	
==>.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7857	7973	
==>.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	557	659	
==>$h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14119	14249	
==>"   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'un <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7321	7451	
==>g ];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14119	14249	
==>"   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14119	14249	
==>"   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2108	2221	
==>], exp1 => $_[2], exp2 => $_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	383	481	
==>ontext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	383	481	
==>ontext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	383	481	
==>ontext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	154	268	
==>words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## At <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	154	268	
==>words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## At <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4253	4344	
==>);
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6155	6246	
==>);
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	731	829	
==>footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	731	829	
==>footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8660	8746	
==>number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8660	8746	
==>number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4527	4657	
==>>();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4527	4657	
==>>();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9323	9413	
==>ead1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9323	9413	
==>ead1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	760	871	
==>ed for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - optimiz <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1131	1236	
==>ed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiz <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	730	835	
==>ed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiz <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1131	1236	
==>ed for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - optimiz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11095	11259	
==>ar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11095	11259	
==>ar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11095	11259	
==>ar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6463	6578	
==>elf->link_files( package => $inst_pkg );

    }

    ### update the available files
    $self->available( [ @{ $self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1339	1460	
==>1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1701	1819	
==>and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1701	1819	
==>and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.g <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1701	1819	
==>and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11817	11964	
==>g->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just renam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11817	11964	
==>g->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just renam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11817	11964	
==>g->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just renam <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2068	2163	
==>lled immediately -- other
events may be pending processing, too.

=head2 C<run()>

Enter the mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1919	2009	
==>now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1919	2009	
==>now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1919	2009	
==>now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7980	8087	
==>empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7980	8087	
==>empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $sp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11549	11659	
==>?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ? <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11549	11659	
==>?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ? <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7758	7866	
==>llee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7758	7866	
==>llee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5260	5369	
==>cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5260	5369	
==>cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11822	11927	
==>m
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11816	11921	
==>m
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6611	6725	
==>string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6611	6725	
==>string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6611	6725	
==>string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3028	3136	
==>\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyo <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	290	410	
==>SA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	443	560	
==>h}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1169	1283	
==>h}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22296	22387	
==>ribes Relation version 0.1.0.

It also describes the same-number versions of Relation::Headi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17253	17357	
==>an use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17253	17357	
==>an use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17253	17357	
==>an use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6917	7020	
==>NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThunk ($pThunk) {
    "(do{ ". <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	674	781	
==>Y>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CON <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	674	781	
==>Y>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CON <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10286	10385	
==>for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10286	10385	
==>for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6039	6164	
==>0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6039	6164	
==>0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6039	6164	
==>0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6565	6651	
==>osSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchref(I) <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3277	3382	
==>urns Int { $.day - 1 }
method mday returns Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use Dur <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4010	4098	
==>st::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4010	4098	
==>st::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6207	6295	
==>st::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1523	1624	
==>Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1523	1624	
==>Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1523	1624	
==>Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5198	5298	
==>== PGE_OPTABLE_CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto end if ( $position > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14173	14308	
==>{ $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14173	14308	
==>{ $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14173	14308	
==>{ $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; define <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4125	4242	
==>hile preserving the line counts
sub strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ s{^=\w(.*?)^=cut$}{" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11893	12033	
==>it
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11887	12027	
==>it
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19295	19396	
==>AIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a packa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19295	19396	
==>AIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a packa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8601	8698	
==>ad2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is enco <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8601	8698	
==>ad2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is enco <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8450	8540	
==>Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2275	2365	
==>Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	110	231	
==>er::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        pus <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	110	231	
==>er::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        pus <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23532	23653	
==>my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'as <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23885	24006	
==>my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5420	5528	
==>urpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5420	5528	
==>urpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5420	5528	
==>urpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35931	36028	
==>assertion, and the argument
of 1 means it's a look-ahead.  We send the unrolled contents of the
ar <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4510	4629	
==>aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13937	14052	
==>while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13937	14052	
==>while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13937	14052	
==>while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6395	6478	
==>thod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6395	6478	
==>thod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6395	6478	
==>thod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\' <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5968	6111	
==>n   List      pre     zip     safe   (List)\
\\n   List      pre     keys    safe   (rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2925	3028	
==>Blondie::TypeSafe::Annotation->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4900	4999	
==>t {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4027	4126	
==>t {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4900	4999	
==>t {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4027	4126	
==>t {
    $one.symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (S <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8701	9016	
==>ew(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $stub = $params->{env}->get($param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4336	4483	
==>t = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4336	4483	
==>t = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4336	4483	
==>t = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $me <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8072	8173	
==>Literal {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4872	5002	
==>'3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4872	5002	
==>'3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $matc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11178	11273	
==>currence object.

- `complement()`

Returns everything (from the universal set) that is not in t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11178	11273	
==>currence object.

- `complement()`

Returns everything (from the universal set) that is not in t <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3612	3707	
==>qualified Pugs.Version

config :: Map.Map String String
config = Map.fromList
    [#all_definiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1273	1366	
==>pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1273	1366	
==>pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1273	1366	
==>pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7543	7696	
==>= undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7543	7696	
==>= undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7543	7696	
==>= undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3545	3656	
==>"hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3545	3656	
==>"hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3545	3656	
==>"hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1533	1643	
==>f $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7750	7874	
==>= (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7750	7874	
==>= (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7750	7874	
==>= (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	169	272	
==>gs note: change "die" to "fail" when "fail" is implemented.

# Input a string containing a rpn expressio <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3225	3453	
==>events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpo <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3225	3453	
==>events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6317	6415	
==>wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6317	6415	
==>wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3277	3374	
==>ormalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3277	3374	
==>ormalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6007	6101	
==>005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6007	6101	
==>005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute it <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1011	1105	
==>r::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1011	1105	
==>r::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1091	1185	
==>r::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36259	36402	
==>( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36259	36402	
==>( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36259	36402	
==>( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4320	4435	
==>h : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symb <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1419	1545	
==>hfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Plugga <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1419	1545	
==>hfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Plugga <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18459	18555	
==>I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is no <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18459	18555	
==>I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is no <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5631	5837	
==>=> -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                els <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2992	3198	
==>=> -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                els <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5631	5837	
==>=> -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                els <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2992	3198	
==>=> -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                els <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2567	2674	
==>.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5770	5877	
==>.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2567	2674	
==>.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5770	5877	
==>.is_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4753	4866	
==>>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4753	4866	
==>>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4753	4866	
==>>name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slu <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6905	7018	
==>), @libs);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7101	7231	
==>shift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7294	7424	
==>shift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6351	6449	
==>return until the start of the rule, which unsets the flag before returning.

- this can also be use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6145	6242	
==>return until the start of the rule, which unsets the flag before returning.
- this can also be use <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1840	1940	
==>s - match: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $equivalence, mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3520	3630	
==>odeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3520	3630	
==>odeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3520	3630	
==>odeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1928	2035	
==>>' ) );
    return "$ident->$meth($list);\n";
}
sub node::sub_call_term {
    my $ident = get_str( $_[0], '$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8340	8486	
==>se)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	498	644	
==>se)

    match - the "match" tree or undef

    tail - the string tail or undef

    capture - the tree of captured things

    abort - the match w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8060	8202	
==>se)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	475	617	
==>se)
    match - the "match" tree or undef
    tail - the string tail or undef
    capture - the tree of captured things
    abort - the match w <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4478	4624	
==>pe ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4478	4624	
==>pe ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4919	5011	
==>name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '.. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7587	7679	
==>name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9320	9455	
==>>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9320	9455	
==>>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9320	9455	
==>>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38069	38184	
==>shift;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small change to the qr() method:

  sub qr {
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6541	6653	
==>e []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6541	6653	
==>e []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6541	6653	
==>e []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8221	8364	
==>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8221	8364	
==>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8221	8364	
==>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->un <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3252	3384	
==>de,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my $node = shift;
		
		my $obj = B::svref_2object(r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8605	8702	
==>p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) } <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	739	836	
==>relude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::IO;

=head1 DESCRIPTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8605	8702	
==>p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8605	8702	
==>p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3698	3795	
==>$span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method un <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3698	3795	
==>$span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19617	19707	
==>0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19617	19707	
==>0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2733	2838	
==>any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17325	17415	
==>/ p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17325	17415	
==>/ p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17325	17415	
==>/ p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6273	6451	
==>e) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5781	5959	
==>e) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8125	8247	
==>$jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8125	8247	
==>$jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8125	8247	
==>$jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	127	222	
==>redefine';

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARG <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8894	9058	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8894	9058	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8894	9058	
==>y just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2672	2807	
==>ody);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2672	2807	
==>ody);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2672	2807	
==>ody);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1614	1712	
==>::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlug <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1614	1712	
==>::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlug <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19346	19439	
==>ical other
vendor's DBMS) is that data definition statements are structured as
standard data m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19346	19439	
==>ical other
vendor's DBMS) is that data definition statements are structured as
standard data m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1666	1776	
==>RGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = (length($ARGV[0]) ? <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24060	24155	
==>le.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free soft <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24060	24155	
==>le.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free soft <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2654	2879	
==>e
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2830	2928	
==>infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:« <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2830	2928	
==>infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:« <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2830	2928	
==>infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5563	5713	
==>fy,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => co <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5563	5713	
==>fy,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => co <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	890	984	
==>able with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	890	984	
==>able with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13579	13688	
==>e a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13579	13688	
==>e a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib: <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1685	1781	
==>always represented by a named parameter (pair).  (The value of the 
pair is currently unused, but <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1685	1781	
==>always represented by a named parameter (pair).  (The value of the 
pair is currently unused, but <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16297	16413	
==>get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annot <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16297	16413	
==>get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annot <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16297	16413	
==>get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annot <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6033	6144	
==>n "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $li <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6355	6476	
==>m ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6355	6476	
==>m ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	796	957	
==>.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	796	957	
==>.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	796	957	
==>.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11963	12086	
==>er MPW at once;
	    # the test itself is one; we can't do two more, so
	    # write to temp file
	    my $stdin = qq{$^X -e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2995	3120	
==>d} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2995	3120	
==>d} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24895	25002	
==>sh @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21316	21423	
==>sh @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8969	9096	
==>": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	703	830	
==>": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8969	9096	
==>": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8969	9096	
==>": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	957	1081	
==><start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dura <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	699	823	
==><start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dura <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	957	1081	
==><start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dura <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	699	823	
==><start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $dura <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11724	11819	
==>encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11724	11819	
==>encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	978	1070	
==>rray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	978	1070	
==>rray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.leng <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	978	1070	
==>rray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.leng <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28580	28669	
==>ganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATC <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46014	46164	
==>nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49248	49398	
==>nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50126	50276	
==>nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$: <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	453	578	
==>- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found matching '$package'\n" unl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19309	19408	
==>s; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23861	23960	
==>s; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22377	22476	
==>s; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19061	19152	
==>hod _semijoin (Relation::Example $other!) returns Relation::Example {
    return Relation::E <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4958	5069	
==>compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4958	5069	
==>compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.spa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9991	10086	
==>dth = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9991	10086	
==>dth = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7006	7141	
==>eld', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7006	7141	
==>eld', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2510	2619	
==>st_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at leas <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2510	2619	
==>st_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at leas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9791	9943	
==>eturns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9791	9943	
==>eturns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9791	9943	
==>eturns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->para <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	666	778	
==>s ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1142	1248	
==>moved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1142	1248	
==>moved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1142	1248	
==>moved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4998	5103	
==>eturn "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4998	5103	
==>eturn "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11517	11614	
==>A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11517	11614	
==>A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Ros <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25340	25448	
==>ape>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disjunction> <')'>
    | <'(?='> < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	156	253	
==>"(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	156	253	
==>"(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	156	253	
==>"(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7574	7678	
==>r @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7574	7678	
==>r @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7574	7678	
==>r @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38260	38353	
==>ameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38260	38353	
==>ameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37478	37594	
==>rns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37478	37594	
==>rns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37478	37594	
==>rns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1968	2081	
==>*/}{} unless -e $file;
        die "all_from: cannot find $file from $name" unless -e $file;
    }

    $self->ver <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8724	8827	
==>newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete string <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8724	8827	
==>newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete string <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8982	9083	
==>newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete string <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8982	9083	
==>newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete string <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6058	6166	
==>RNING

This is version B<0.022b>.  The documentation is (still) incomplete.  It
may be a little jumbled or ha <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3715	3822	
==>Nil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3715	3822	
==>Nil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	565	672	
==>Nil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2434	2555	
==>t mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2434	2555	
==>t mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18482	18594	
==>);

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14903	15015	
==>);

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1478	1584	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1478	1584	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1478	1584	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18041	18175	
==>to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17079	17213	
==>to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18041	18175	
==>to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17079	17213	
==>to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2148	2263	
==>),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* crea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2159	2274	
==>),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* crea <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13255	13351	
==>.

- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satisf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13255	13351	
==>.

- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satisf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2325	2447	
==>ar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2465	2587	
==>ar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7215	7318	
==>ck if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	516	619	
==>ck if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1890	2062	
==>ass >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2095	2267	
==>ass >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2158	2330	
==>ass >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7176	7288	
==>O_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7176	7288	
==>O_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7176	7288	
==>O_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32743	32843	
==>s a good idea to do so I<inside> the class as well.

=head1 OBJECTS

All objects are prefixed with F< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9898	10001	
==>spatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9898	10001	
==>spatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9898	10001	
==>spatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9744	9895	
==>=> $self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $pas <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1827	1966	
==>=> $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pas <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1827	1966	
==>=> $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pas <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16092	16188	
==>turns it. Called with a
list, it chops each item in turn, and returns the last character
chopped. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7203	7293	
==>attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7203	7293	
==>attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7203	7293	
==>attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45538	45679	
==>ymbol->new('name'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	104	211	
==>rts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	104	211	
==>rts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	104	211	
==>rts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	710	806	
==>ipt or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined fr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	553	649	
==>(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	553	649	
==>(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered a <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	710	806	
==>ipt or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined fr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38125	38243	
==>y, the small change to the qr() method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5576	5684	
==>'\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5576	5684	
==>'\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5576	5684	
==>'\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	926	1054	
==>ir} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	169	284	
==>dump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	169	284	
==>dump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	169	284	
==>dump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    r <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4140	4246	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3267	3373	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4140	4246	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3267	3373	
==>> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6078	6173	
==>channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<chann <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6858	6953	
==>channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6078	6173	
==>channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6858	6953	
==>channels{$chan}<users>.keys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<chann <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1864	1995	
==>g($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1864	1995	
==>g($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1978	2102	
==>w(
				type => $type,
				struct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $fro <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	545	655	
==>* overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constr <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	545	655	
==>* overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constr <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	145	243	
==>.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$tr <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	145	243	
==>.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19638	19837	
==>>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19638	19837	
==>>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19638	19837	
==>>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23228	23328	
==>::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(",",@ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	915	1016	
==>:Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStm <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	915	1016	
==>:Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStm <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	278	368	
==>y.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contigu <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	278	368	
==>y.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contigu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6908	7065	
==>unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6908	7065	
==>unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6908	7065	
==>unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1072	1177	
==>t->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the core symbol ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10738	10952	
==>delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$te <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10738	10952	
==>delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$te <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5449	5546	
==>rr_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module i <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5449	5546	
==>rr_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	373	521	
==>ed value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	373	521	
==>ed value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~ <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1485	1587	
==>ust be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stev <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1485	1587	
==>ust be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stev <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10336	10443	
==>e initrd.gz will be built later from.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2616	2720	
==>line") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2616	2720	
==>line") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2616	2720	
==>line") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13543	13706	
==>ure} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9727	9890	
==>ure} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10563	10726	
==>ure} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4710	4811	
==>tegory - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Category;

  # examp <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3693	3807	
==>anup\n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1732	1841	
==>!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1732	1841	
==>!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1732	1841	
==>!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35724	36004	
==>attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(symbol->new('%: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1617	1707	
==>l:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1617	1707	
==>l:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1617	1707	
==>l:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13043	13143	
==>}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13043	13143	
==>}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13043	13143	
==>}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16228	16322	
==>=> sub { $as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever($ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7252	7526	
==>l',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $licens <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7309	7583	
==>l',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $licens <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17448	17553	
==>in
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17448	17553	
==>in
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39582	39673	
==>.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<ht <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39582	39673	
==>.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<ht <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24306	24396	
==>.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<ht <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24306	24396	
==>.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<ht <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5244	5349	
==>te($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5244	5349	
==>te($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've jo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4961	5066	
==>char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4961	5066	
==>char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10882	11019	
==>se {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @b <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10882	11019	
==>se {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7557	7655	
==>::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7557	7655	
==>::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure a <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4065	4195	
==>::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [| <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4065	4195	
==>::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [| <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8283	8380	
==>like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

Th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8283	8380	
==>like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

Th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13135	13239	
==>alars),
which is suitable as a generic data interchange format between
Rosetta::Model and other Perl code <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18230	18334	
==>alars), which is suitable as a generic data interchange
format between Rosetta::Model and other Perl code <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13135	13239	
==>alars),
which is suitable as a generic data interchange format between
Rosetta::Model and other Perl code <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18230	18334	
==>alars), which is suitable as a generic data interchange
format between Rosetta::Model and other Perl code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	160	302	
==>rent;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'tok <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	160	302	
==>rent;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'tok <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2440	2560	
==>if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1604	1708	
==>if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8048	8190	
==>calar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8048	8190	
==>calar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8048	8190	
==>calar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    retu <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26935	27028	
==>($snd), "str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → ( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2268	2378	
==>utput_dir;  # The root directory of the output tree.
my $start_dir = cwd;

# ref to hash of information about l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14231	14337	
==>\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14231	14337	
==>\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14231	14337	
==>\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21144	21373	
==>";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21144	21373	
==>";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21144	21373	
==>";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5959	6055	
==>ition = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_match;
  bsr_token_match_3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10740	10887	
==>( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10740	10887	
==>( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10740	10887	
==>( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2764	2886	
==>o '$builddir'" ), return;

### XXX perl-ify
sub build {
    my $self = shift;
    my $conf = $self->config;

    ### XXX mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	806	911	
==>will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	806	911	
==>will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	806	911	
==>will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3686	3786	
==>$res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3686	3786	
==>$res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3686	3786	
==>$res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7389	7539	
==>ll method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7389	7539	
==>ll method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3644	3751	
==>opy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3644	3751	
==>opy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    retu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	275	387	
==>rap path for perl6.

# The perl5 regexp engine is unfortunately entangled with the rest of
# the p5 implementatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	33	134	
==>Log
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	33	134	
==>Log
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	33	134	
==>Log
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2220	2421	
==>d export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5697	5898	
==>d export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4627	4828	
==>d export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2044	2138	
==>.)  In particular, it suffers from
convergence problems for some functions, which all Newton me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20769	20920	
==>= $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20769	20920	
==>= $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20769	20920	
==>= $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A S <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8487	8609	
==><$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're running the harness under.
This might be to run a threaded <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2922	3023	
==>$self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2922	3023	
==>$self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2922	3023	
==>$self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14127	14257	
==>my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4204	4326	
==>my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4204	4326	
==>my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4204	4326	
==>my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	281	374	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	281	374	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	281	374	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4054	4169	
==>>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4054	4169	
==>>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4054	4169	
==>>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7627	7774	
==>defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7627	7774	
==>defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defin <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2626	2731	
==>> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2626	2731	
==>> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4153	4335	
==>oxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4153	4335	
==>oxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4153	4335	
==>oxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5365	5472	
==>g {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::FLAG_ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2484	2598	
==>mpiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        ty <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2484	2598	
==>mpiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1259	1363	
==>$arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1247	1351	
==>$arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3526	3631	
==>r'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'p <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3526	3631	
==>r'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3392	3493	
==>e) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4074	4175	
==>e) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3111	3199	
==>rl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3111	3199	
==>rl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3458	3546	
==>rl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7869	8001	
==>d', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7869	8001	
==>d', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5332	5433	
==>e root, whose attributes will hold all of
    # the other data structures used by the Rosetta framewor <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5332	5433	
==>e root, whose attributes will hold all of
    # the other data structures used by the Rosetta framewor <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3762	4020	
==>MPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3762	4020	
==>MPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3677	3880	
==>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3924	4127	
==>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16244	16393	
==>y $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16244	16393	
==>y $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16244	16393	
==>y $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7661	7776	
==>ingle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7661	7776	
==>ingle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34548	34646	
==>lasses)

Data: 'POSIX' if C<[:NAME:]>, C<[^:NAME:]> (or other POSIX notations, like
C<[=NAME=]> and <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11788	11892	
==>he set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8935	9039	
==>he set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11788	11892	
==>he set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8935	9039	
==>he set, or inserts the items if
they're not in the set.

Returns the number of items removed.

=head2 C<$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3673	3796	
==>, return;

    return $version if $version =~ /^\.?\d/;
    return '0.0';
}

=pod

=head2 JIB::Utils->_whoami

Returns the n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6396	6492	
==>B sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6396	6492	
==>B sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6396	6492	
==>B sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($x <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5907	6007	
==>ift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5907	6007	
==>ift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.n <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8335	8450	
==>ing ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_ID <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8335	8450	
==>ing ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_ID <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15724	15819	
==>.  Or, when viewing an error message, the
application's developer should see more details than j <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15724	15819	
==>.  Or, when viewing an error message, the
application's developer should see more details than j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13777	13902	
==>= shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13777	13902	
==>= shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13777	13902	
==>= shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11377	11487	
==>.. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11377	11487	
==>.. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11377	11487	
==>.. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18734	18830	
==>replace) }
 multi substr(Str $s, StrPos $start,   StrLen $length  ; $replace)
{ Pugs::Internals:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11134	11269	
==>er;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass d <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1606	1727	
==>er;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1606	1727	
==>er;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5402	5523	
==>ong'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1700	1808	
==>re so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1905	2013	
==>re so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1968	2076	
==>re so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return :: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2740	2842	
==>gify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2740	2842	
==>gify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($s <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1283	1379	
==>lt
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1283	1379	
==>lt
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	481	728	
==>uffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'v <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	481	728	
==>uffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8620	8710	
==>ar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @ter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2445	2535	
==>ar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @ter <==
4	/Users/nnunley/pugs/util/testgraph.pl	739	853	
==>t = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or die "binmode <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	451	559	
==>ew_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	451	559	
==>ew_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	451	559	
==>ew_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8332	8517	
==>kg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	890	991	
==>zy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	890	991	
==>zy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	890	991	
==>zy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10500	10625	
==>ly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10500	10625	
==>ly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10500	10625	
==>ly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5049	5150	
==>sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><octaldigit><o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6895	7149	
==>a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6895	7149	
==>a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6895	7149	
==>a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13165	13266	
==><tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> test cases</s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2141	2355	
==>Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11256	11380	
==>ef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11256	11380	
==>ef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11256	11380	
==>ef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4077	4165	
==>ash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4077	4165	
==>ash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4077	4165	
==>ash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_me <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9241	9388	
==>- the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9241	9388	
==>- the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1378	1469	
==>Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1378	1469	
==>Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	532	651	
==>[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	792	911	
==>[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1064	1183	
==>[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7902	7992	
==>'type::variable::instantiated') => sub { unify($_[1]{instance}, $_[0], @_[2, 3]) };
multi u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8688	8781	
==>me).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8688	8781	
==>me).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3776	3890	
==>defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH cal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3776	3890	
==>defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH cal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3776	3890	
==>defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH cal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	49	162	
==>ance attributes
has $.y;        # default "is readonly" 
method clear () {
    $.x = 0;  # accessible within the <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12	118	
==>erl

use warnings;
use strict;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20082	20175	
==>)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20082	20175	
==>)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20082	20175	
==>)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SU <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2830	2930	
==>warn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $self->warn($enum, $err, @args <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4226	4321	
==>Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4226	4321	
==>Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4226	4321	
==>Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21173	21264	
==>ed as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22626	22717	
==>2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Ros <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21173	21264	
==>ed as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22626	22717	
==>2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Ros <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	706	828	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asserti <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	706	828	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asserti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8046	8144	
==>ct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'funct <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8046	8144	
==>ct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'funct <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20594	20734	
==>pture:
    $I0 = exists self["cname"]
    if $I0 goto setsubpats
    $I0 = pad["subpats"]
    self["cname"] = $I0
    
  setsubpats:
    cnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13006	13115	
==>hod ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13006	13115	
==>hod ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13006	13115	
==>hod ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27435	27532	
==>ucted.  If you want to
conceptually change an existing Message object, you must create a new
objec <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27435	27532	
==>ucted.  If you want to
conceptually change an existing Message object, you must create a new
objec <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18597	18693	
==>h member in a set of key-codes,
which are hard-coded into your application or package, with one o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18597	18693	
==>h member in a set of key-codes,
which are hard-coded into your application or package, with one o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19414	19524	
==>e blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subcla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19414	19524	
==>e blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subcla <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26691	26786	
==>on respectively.  This method will fail if
any members of C<$attrs> do not match attribute names <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31243	31338	
==>on respectively.  This method will fail if
any members of C<$attrs> do not match attribute names <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3612	3714	
==>ackDev->import; };
use strict;

if($Regexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	95	191	
==>f unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	95	191	
==>f unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	95	191	
==>f unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12657	12765	
==>= env($$);
	my %new = (
		%$orig,
		$.param => type::variable::free->new()
	);
	\%new;
}

# inherit the set o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13367	13465	
==>) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13367	13465	
==>) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13367	13465	
==>) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2041	2192	
==>x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our Int multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8450	8553	
==>s $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8450	8553	
==>s $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8450	8553	
==>s $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(und <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	869	1005	
==>dd_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => '*',
    );

    __PACKAGE__->add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2668	2758	
==>thod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2668	2758	
==>thod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2668	2758	
==>thod_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48064	48227	
==>get('$self:')
                  ->get_attr(symbol->new('%:namespace'))
                  ->store(
                      $e->get('$label'),
                      $e- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7632	7738	
==>e PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7632	7738	
==>e PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7632	7738	
==>e PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9914	10060	
==>tisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wante <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11391	11537	
==>tisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wante <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3034	3133	
==>so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("35 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3034	3133	
==>so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("35 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1143	1288	
==>->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Glob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1143	1288	
==>->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Glob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1143	1288	
==>->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Glob <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2647	2782	
==>100) }

our @months = <January February March     April   May      June
               July    August   September October November Decem <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	165	260	
==>:Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use strict <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2961	3070	
==>elf.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4223	4332	
==>elf.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2961	3070	
==>elf.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4223	4332	
==>elf.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1670	1898	
==>},          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1670	1898	
==>},          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2781	2880	
==>ject { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infin <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2781	2880	
==>ject { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infin <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2001	2113	
==>es.
#     So it isnt entirely clear we are doing an fully correct parse.
#
#  Todo:
#   * Create a second grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5851	5952	
==>>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5851	5952	
==>>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5851	5952	
==>>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4046	4154	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4046	4154	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4046	4154	
==>$dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->a <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3447	3645	
==>interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3495	3693	
==>interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3447	3645	
==>interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3495	3693	
==>interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10506	10656	
==>_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10506	10656	
==>_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10506	10656	
==>_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $arg <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2590	2680	
==>lag will set this.

=item C<$Test::Harness::switches>

The package variable C<$Test::Harnes <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5771	5891	
==>_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2468	2577	
==>', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2468	2577	
==>', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2815	2924	
==>', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitl <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	568	683	
==>Stack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	9	117	
==>IL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	9	117	
==>IL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	9	117	
==>IL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5080	5184	
==>lass_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7748	7852	
==>lass_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19418	19514	
==>e to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Pro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19418	19514	
==>e to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37603	37728	
==>:Parser::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3237	3339	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3237	3339	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3237	3339	
==>d_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	337	431	
==>ings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	337	431	
==>ings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	337	431	
==>ings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15477	15588	
==>"", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16892	17003	
==>"", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21648	21759	
==>"", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10384	10560	
==>in.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13861	14037	
==>in.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13142	13318	
==>in.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relati <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10665	10768	
==>>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = $code_val;
    if($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13313	13439	
==>f if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13313	13439	
==>f if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13313	13439	
==>f if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $l <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2198	2324	
==>f if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4452	4589	
==>$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4452	4589	
==>$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4452	4589	
==>$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	732	826	
==>lly - a subclass of the perl backend that
conditionally excludes some builtin operators to demo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9286	9405	
==>= "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9274	9393	
==>= "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	517	611	
==>quest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	517	611	
==>quest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	763	854	
==>de::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	763	854	
==>de::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	763	854	
==>de::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use P <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20754	20837	
==>[],[],[C|Bx],[C|Bx],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0,B0,E0, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12169	12278	
==>(Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'AR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6736	6845	
==>(Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'AR <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12169	12278	
==>(Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'AR <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6736	6845	
==>(Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'AR <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8382	8494	
==>ruleop::capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2772	2869	
==>rrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2772	2869	
==>rrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2772	2869	
==>rrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12651	12818	
==>},
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12651	12818	
==>},
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12651	12818	
==>},
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8962	9126	
==>postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if needed <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6625	6765	
==>@_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6411	6543	
==>@_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12072	12195	
==>-1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12072	12195	
==>-1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20368	20478	
==>cket to the server is currently connected.

Note that you might want to use the C<logged_in> method instead.

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19316	19426	
==>cket to the server is currently connected.

Note that you might want to use the C<logged_in> method instead.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20368	20478	
==>cket to the server is currently connected.

Note that you might want to use the C<logged_in> method instead.

= <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19316	19426	
==>cket to the server is currently connected.

Note that you might want to use the C<logged_in> method instead.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17855	18021	
==>xt-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17855	18021	
==>xt-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # ca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17855	18021	
==>xt-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # ca <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1611	1716	
==>keserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program and e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7371	7512	
==>f iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7371	7512	
==>f iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7371	7512	
==>f iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2582	2687	
==>=> sub { $_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archiv <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1436	1549	
==>ery_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ / <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1436	1549	
==>ery_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ / <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2842	2945	
==>rface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2842	2945	
==>rface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6955	7066	
==>s')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6955	7066	
==>s')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6955	7066	
==>s')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	815	932	
==>ayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	815	932	
==>ayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      ret <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	669	785	
==>1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	669	785	
==>1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5833	5957	
==>r(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5833	5957	
==>r(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2013	2120	
==>0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $* <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	28	125	
==>0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $* <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	28	125	
==>0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3478	3587	
==>m       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3478	3587	
==>m       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isF <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3478	3587	
==>m       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isF <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3601	3744	
==>}
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first subma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3613	3756	
==>}
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first subma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15418	15510	
==>in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Mani <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15418	15510	
==>in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Mani <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1635	1740	
==>:Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILS <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1635	1740	
==>:Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILS <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26078	26173	
==>chine-readable short
string; the allowed variable names you can have depend on the Message Key
i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26078	26173	
==>chine-readable short
string; the allowed variable names you can have depend on the Message Key
i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23822	23926	
==>5.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uriCharacter> <uriCharacters>?
} <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	454	557	
==>atch_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_con <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	454	557	
==>atch_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_con <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2458	2544	
==>$self;
}

## -------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2458	2544	
==>$self;
}

## -------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	897	1011	
==>ly a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	897	1011	
==>ly a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	897	1011	
==>ly a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31577	31671	
==>m ifthen

Whether this object has a true/false branch (like the C<(?(...)T|F)>
assertion).

=it <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2095	2218	
==>= 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10963	11086	
==>= 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2288	2411	
==>= 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11242	11365	
==>= 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	973	1110	
==>$pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        ta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	973	1110	
==>$pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        ta <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16092	16186	
==>Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16092	16186	
==>Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2000	2139	
==>roviding the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2000	2139	
==>roviding the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on th <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2430	2561	
==>}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2430	2561	
==>}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20799	20926	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1955	2069	
==>my($ws,$operators,$tokens)=@_;
  my $noop = Hacks->noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = ra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7322	7475	
==>t' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7322	7475	
==>t' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7322	7475	
==>t' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1020	1149	
==>e           ||= $ENV{PUGS_BUILD_CONFIG} || $config_default;
    my $stream;
    
    if (!-e $filename) {
        require File::Co <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1197	1312	
==>ue) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->[$index->to_nat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1991	2083	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1991	2083	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1991	2083	
==>:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11653	11770	
==>eg_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15380	15486	
==>Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15380	15486	
==>Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $t <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7156	7266	
==>ST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7156	7266	
==>ST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13254	13351	
==>ied>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13254	13351	
==>ied>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP: <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5564	5707	
==>aram->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	274	365	
==>.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waitin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	274	365	
==>.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waitin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	274	365	
==>.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waitin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6768	6886	
==>w_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6768	6886	
==>w_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6768	6886	
==>w_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3595	3692	
==>g something dubious happened.

The columns in the summary report mean:

=over 4

=item B<Failed Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13679	13774	
==>b p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13679	13774	
==>b p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13679	13774	
==>b p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Ex <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	510	619	
==>ny <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2085	2240	
==>unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2332	2487	
==>unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15032	15134	
==>hese methods can both be used to read
and to set the value of a header.  The header value is set if you <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15032	15134	
==>hese methods can both be used to read
and to set the value of a header.  The header value is set if you <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14639	14734	
==>rdering the header fields.  Long header
values are not folded.

The optional $eol parameter spec <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17466	17561	
==>edText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pack <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17466	17561	
==>edText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pack <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14639	14734	
==>rdering the header fields.  Long header
values are not folded.

The optional $eol parameter spec <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9762	9883	
==>isfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wante <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11239	11360	
==>isfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wante <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6464	6556	
==>d fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11522	11614	
==>d fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12743	12873	
==>s deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12743	12873	
==>s deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12743	12873	
==>s deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1586	1687	
==>RGV[0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1512	1628	
==>ne{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1512	1628	
==>ne{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "c <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3902	3994	
==>he
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, wh <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3902	3994	
==>he
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	112	229	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	112	229	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	112	229	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6057	6144	
==>lay_type($expected_type) . " for placeholder of " . Blondie::Emitter::Pretty->new->strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13386	13582	
==>Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13386	13582	
==>Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13386	13582	
==>Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2253	2375	
==>t $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missing plan" unless defined $:exp <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3274	3387	
==>quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	492	597	
==>hod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	492	597	
==>hod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	492	597	
==>hod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ob <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10710	10811	
==>=head2 Viewing the Regex

You can get the regex back from the parser with the visual() method:

  my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38114	38268	
==>ar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38114	38268	
==>ar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38114	38268	
==>ar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2606	2702	
==>pecify is probably --initrd-mnt.

Note: I only tested this program on Linux, but it should work o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	603	742	
==>1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2295	2405	
==>acro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2295	2405	
==>acro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2295	2405	
==>acro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # X <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	144	248	
==>lled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	144	248	
==>lled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	144	248	
==>lled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
u <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	144	248	
==>lled. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9277	9490	
==>pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9277	9490	
==>pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9277	9490	
==>pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Pe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10213	10325	
==>aced by
    # it, since that would probably be faster)

    # also, the signature for this sub is nowhere near fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3078	3171	
==>t and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3078	3171	
==>t and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3078	3171	
==>t and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37100	37195	
==>s have zero attributes in common, their joining degenerates to a
C<product>.  In any situation w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41649	41744	
==>s have zero attributes in common, their joining degenerates to a
C<product>.  In any situation w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41272	41367	
==>s have zero attributes in common, their joining degenerates to a
C<product>.  In any situation w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2734	2829	
==>lementation. 
Pugs currently has some issues with Perl 5 interoperability.

Parrot Perl 6 is the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11859	11997	
==>}
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->registered_alternatives( \@alts ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3404	3516	
==>add_package(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9291	9401	
==>-------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9291	9401	
==>-------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9291	9401	
==>-------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # mak <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3278	3378	
==>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	266	387	
==>.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	266	387	
==>.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	266	387	
==>.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b" <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	4053	4173	
==>elf->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d $path;

    @found;
}

1;

__ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4614	4743	
==>14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4614	4743	
==>14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => ' <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	78	179	
==>nge returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	78	179	
==>nge returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13023	13110	
==>d($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13023	13110	
==>d($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13023	13110	
==>d($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_met <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27457	27564	
==>rint "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my $ret = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4745	4844	
==>t, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4745	4844	
==>t, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4745	4844	
==>t, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15690	15836	
==>o;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15690	15836	
==>o;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1693	1786	
==>cket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of infor <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1693	1786	
==>cket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of infor <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25693	25787	
==>ul, the script dies with one of the
above messages.

=item C<FAILED--Further testing stopped: % <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9758	9862	
==>,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (% <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14517	14611	
==>tribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14517	14611	
==>tribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14517	14611	
==>tribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:c <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1046	1193	
==>ins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1046	1193	
==>ins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1722	1832	
==>y $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1722	1832	
==>y $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23709	23820	
==>s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23709	23820	
==>s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23709	23820	
==>s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULT <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22528	22622	
==>is library provides a partial implementation, in the form of several
roles, for a Relation data <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24714	24816	
==>e C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23478	23580	
==>e C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24714	24816	
==>e C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23478	23580	
==>e C<runloop> event is fired when an iteration of the main runloop is
finished.

=head1 FLOODCONTROL

Mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20336	20445	
==>e its walk() method called.  And the ending node for stack-type
nodes has been abstracted to the ender() metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6785	6885	
==>here a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6785	6885	
==>here a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6785	6885	
==>here a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + mi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3795	3898	
==>nion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3795	3898	
==>nion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9102	9245	
==>'$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9102	9245	
==>'$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9102	9245	
==>'$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::V <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2760	2866	
==>{
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7545	7701	
==>fined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7545	7701	
==>fined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7545	7701	
==>fined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10143	10277	
==>KCLASS", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1154	1250	
==>tr !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1154	1250	
==>tr !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1154	1250	
==>tr !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::sp <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20380	20472	
==>f a nondeterministic
finite-state machine (aka syntax charts or "railroad normal form" in
par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24177	24276	
==>ething it received.  This is typically used by automatons
  (clients with either an AI or other inte <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22950	23049	
==>ething it received.  This is typically used by automatons
  (clients with either an AI or other inte <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24177	24276	
==>ething it received.  This is typically used by automatons
  (clients with either an AI or other inte <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22950	23049	
==>ething it received.  This is typically used by automatons
  (clients with either an AI or other inte <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8057	8149	
==>on(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7187	7279	
==>on(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8057	8149	
==>on(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7187	7279	
==>on(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24613	24698	
==>ures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag( <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3471	3587	
==>\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	371	472	
==>::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> : <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	371	472	
==>::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> : <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1319	1415	
==>enting dynamic scopes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8960	9060	
==>de is free software, and may be used, distributed and/or modified under 
the same terms as Perl itsel <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3889	3989	
==>de is free software, and may be used, distributed and/or modified under 
the same terms as Perl itsel <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8960	9060	
==>de is free software, and may be used, distributed and/or modified under 
the same terms as Perl itsel <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3889	3989	
==>de is free software, and may be used, distributed and/or modified under 
the same terms as Perl itsel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23092	23218	
==>at '$' will be interpreted as
an anchor. If you want to include variables, use C<qr//>, or mix single-
and double-quoted string <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6605	6707	
==>ere as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Bas <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6605	6707	
==>ere as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Bas <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16438	16533	
==>05, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribute <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16496	16591	
==>05, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribute <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4889	5006	
==>}
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15925	16042	
==>}
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17413	17530	
==>}
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22096	22213	
==>}
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, $self->{rx}->object(@{ $self->e <==
4	/Users/nnunley/pugs/util/testgraph.pl	1366	1491	
==>ckage My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_class { "My::File" }
    
    package My::File;
    u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	235	339	
==>msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	235	339	
==>msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	235	339	
==>msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9139	9256	
==>f.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9139	9256	
==>f.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9139	9256	
==>f.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25440	25543	
==>ple can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Rela <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	344	468	
==>INV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	344	468	
==>INV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5003	5110	
==>h->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5003	5110	
==>h->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4266	4414	
==>code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9346	9447	
==>elta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      double <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9346	9447	
==>elta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      double <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9346	9447	
==>elta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      double <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10252	10367	
==>od next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

me <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10252	10367	
==>od next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

me <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12126	12220	
==>> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12126	12220	
==>> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$se <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1974	2089	
==>ttr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototype]]>;
    return JSX::true if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	42	141	
==>:$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" }, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	42	141	
==>:$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" }, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	42	141	
==>:$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6535	6652	
==>MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6535	6652	
==>MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6535	6652	
==>MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17840	18044	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18771	18975	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18119	18323	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19050	19254	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4398	4570	
==>( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => { $labe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1472	1571	
==>irst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1472	1571	
==>irst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1472	1571	
==>irst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: H <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1507	1702	
==>key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1507	1702	
==>key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18339	18437	
==>ying to users, easy messages are
better.

I have found that when it comes to getting the most accur <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18339	18437	
==>ying to users, easy messages are
better.

I have found that when it comes to getting the most accur <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8437	8541	
==>JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = &infix:« <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4476	4569	
==>2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4476	4569	
==>2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4476	4569	
==>2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2111	2237	
==>int ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	425	551	
==>int ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2111	2237	
==>int ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2111	2237	
==>int ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3433	3540	
==>1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2237	2341	
==>ash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2237	2341	
==>ash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2237	2341	
==>ash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8099	8199	
==>anged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joined. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8099	8199	
==>anged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joined. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8391	8489	
==>anged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8391	8489	
==>anged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1505	1618	
==>->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1505	1618	
==>->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1505	1618	
==>->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7469	7582	
==>o->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth id');
is($F <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21126	21236	
==>uiltin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pugs::Internals::use($module)
      !! Pugs::Inte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	153	262	
==>ompiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parro <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	141	245	
==>ompiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parro <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8126	8222	
==>y further calls to ghc_pkg This method expects to
be called with a path (relative, absolute, or a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2527	2670	
==>fined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2527	2670	
==>fined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2527	2670	
==>fined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5979	6103	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # packa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5979	6103	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # packa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5979	6103	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # packa <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1302	1404	
==>12, 2006.

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (worl <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	492	590	
==>--------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	492	590	
==>--------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    re <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3425	3517	
==>NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

= <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3425	3517	
==>NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

= <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27559	27659	
==>irst but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27559	27659	
==>irst but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4218	4311	
==>When used as an array reference, the match object returns positional
captures as match objects <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4218	4311	
==>When used as an array reference, the match object returns positional
captures as match objects <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6121	6239	
==>event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3478	3596	
==>event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6121	6239	
==>event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3478	3596	
==>event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler:: <==
4	/Users/nnunley/pugs/util/version_h.pl	1535	1692	
==>ne) = grep /(?:file|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	91	188	
==>node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	55	152	
==>node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	143	240	
==>node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21225	21324	
==>urned on or off.  Also, if the flag handler returns 0,
that flag is removed from the resulting objec <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1707	1806	
==>ct, returns a span that has infinite size.

= OBJECT METHODS

The following methods are available fo <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1470	1569	
==>ct, returns a span that has infinite size.

= OBJECT METHODS

The following methods are available fo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1707	1806	
==>ct, returns a span that has infinite size.

= OBJECT METHODS

The following methods are available fo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1470	1569	
==>ct, returns a span that has infinite size.

= OBJECT METHODS

The following methods are available fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2514	2665	
==>list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2719	2870	
==>list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3791	3942	
==>list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9626	9715	
==>azy'};
	push(@args,"named=>1") if $op{'isNamed'};
	push(@args,"writable=>1") if $op{'isWri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7480	7605	
==>r EigenClass methods
                || confess "Cannot call private method from different class";   
            return $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7480	7605	
==>r EigenClass methods
                || confess "Cannot call private method from different class";   
            return $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7480	7605	
==>r EigenClass methods
                || confess "Cannot call private method from different class";   
            return $meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39912	40009	
==>);

Also note the C<RPe_BADESC> warning takes two arguments: the character
that was unexpectedly e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11326	11432	
==>([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11326	11432	
==>([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17530	17626	
==>an is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the inter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17530	17626	
==>an is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the inter <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	179	274	
==>gs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Variable <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	179	274	
==>gs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Variable <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2393	2487	
==>r.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($ot <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2393	2487	
==>r.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($ot <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20504	20616	
==>turn;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16925	17037	
==>turn;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	40	130	
==>fig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-T <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	40	130	
==>fig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1551	1669	
==>IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1551	1669	
==>IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1551	1669	
==>IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15376	15462	
==>,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pat,Re) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11165	11285	
==>bel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11165	11285	
==>bel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11165	11285	
==>bel, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1404	1511	
==>okens looks like: {@tokens.perl}";
    return @tokens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lex <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8735	8840	
==>313052; }
    .indent1 { padding-top:  10px; border-bottom: 1px solid #313052; }
    .indent2 { padding-le <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1011	1107	
==>//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1011	1107	
==>//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1011	1107	
==>//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	240	334	
==>y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	240	334	
==>y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	240	334	
==>y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27901	27996	
==>trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32453	32548	
==>trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31545	31640	
==>trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2714	2816	
==>Plan because of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method header returns St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36998	37113	
==>context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36998	37113	
==>context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36998	37113	
==>context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	200	308	
==>( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[-1] eq 'CODE' };

u <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13209	13399	
==>ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => $test{max}, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2273	2393	
==>_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to q <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2273	2393	
==>_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	445	532	
==>->code;
*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name><?ws>?<block>{
	my $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	557	691	
==>eturn;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Installation->new( dir => $dir )
            or error( " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1115	1210	
==>erce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1115	1210	
==>erce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1115	1210	
==>erce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerc <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	149	259	
==>topt::Argument::Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6585	6683	
==>::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6585	6683	
==>::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6585	6683	
==>::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (define <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3574	3678	
==>*infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference op <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3574	3678	
==>*infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set difference op <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4449	4551	
==>*infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference op <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4449	4551	
==>*infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set difference op <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1394	1520	
==>e => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1405	1531	
==>e => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8887	8978	
==>rl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2712	2803	
==>rl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3068	3197	
==>w(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::La <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2002	2101	
==>{ return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2002	2101	
==>{ return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2002	2101	
==>{ return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15578	15718	
==>ction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15572	15712	
==>ction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9282	9396	
==>str target, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto qua <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8308	8416	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # graph P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	373	466	
==>2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	373	466	
==>2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	373	466	
==>2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9923	10025	
==>ate_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9923	10025	
==>ate_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2642	2743	
==>@set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @int <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2642	2743	
==>@set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @int <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1034	1150	
==>int
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1908	2024	
==>int
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1034	1150	
==>int
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1908	2024	
==>int
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6425	6524	
==>ced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<en <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5498	5597	
==>ced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<en <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6425	6524	
==>ced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<en <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5498	5597	
==>ced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<en <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5162	5304	
==>erations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $r <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5162	5304	
==>erations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $r <==
4	/Users/nnunley/pugs/util/importgraph.pl	2417	2517	
==>%modules) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $g->add_node($name, color => ( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13934	14036	
==>or(mob, pos, "Unescaped '-' in charlist (use '..' or '\-')")
    goto end
  err_close:
    parse_error( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2736	2836	
==>ar junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2736	2836	
==>ar junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2736	2836	
==>ar junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7233	7351	
==>(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(85 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7233	7351	
==>(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(85 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3105	3206	
==>recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3105	3206	
==>recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6386	6493	
==>odifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the st <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5459	5566	
==>odifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the st <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6386	6493	
==>odifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5459	5566	
==>odifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the st <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	873	980	
==>I>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	873	980	
==>I>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23699	23797	
==>ed variables, which can be used in any order, or not used at all, or
used multiple times.  Locale:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23699	23797	
==>ed variables, which can be used in any order, or not used at all, or
used multiple times.  Locale:: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	605	701	
==>` or `is unsafe`.

For functions exported to the global `*` namespace, please use
the `is builtin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4207	4298	
==>e_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4207	4298	
==>e_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4207	4298	
==>e_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2520	2719	
==>"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2520	2719	
==>"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13616	13718	
==>% $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the bel <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13616	13718	
==>% $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the bel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	602	766	
==>q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	602	766	
==>q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1709	1836	
==>);
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1709	1836	
==>);
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3647	3787	
==>if $_[0] == $Class;
            return ::opaque_instance_class(shift)->superclass;
        },                       
        'class_precenden <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1860	1997	
==>0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sligh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1860	1997	
==>0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sligh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1860	1997	
==>0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sligh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21392	21487	
==>gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21392	21487	
==>gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1435	1528	
==>anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH| <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1435	1528	
==>anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH| <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1435	1528	
==>anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH| <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	812	917	
==>er
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code $value = { $^v.[1] } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2599	2697	
==>h my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2599	2697	
==>h my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2599	2697	
==>h my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4054	4193	
==>e => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1412	1529	
==>on

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $. <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1412	1529	
==>on

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17249	17353	
==>faults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17249	17353	
==>faults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5954	6052	
==>arn "types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "filling " . $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1919	2014	
==>w to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1919	2014	
==>w to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1919	2014	
==>w to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(functi <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12312	12429	
==>nsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15263	15358	
==>f speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15263	15358	
==>f speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8198	8299	
==>ns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7328	7429	
==>ns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8198	8299	
==>ns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7328	7429	
==>ns Array { set(@a).intersection(set @b).members }
multi sub *infix:<%#> (@a, $b) returns Array { set(@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2262	2387	
==>role($role);
        $output .= "node_" . $role->id . " -- node_" . $class->id . " [ dir = back, style = solid, color = orange <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11988	12093	
==>formation.  Match
  information gets inserted in $1 etal.  These will be limited to
  strings, rather than <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	301	397	
==>tocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Se <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	301	397	
==>tocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5101	5211	
==>$self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5101	5211	
==>$self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5101	5211	
==>$self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collec <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	118	214	
==>copy-prefix" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7830	7919	
==>s, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7897	7986	
==>s, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1655	1744	
==>s, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1722	1811	
==>s, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2615	2716	
==>rl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comman <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2615	2716	
==>rl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comman <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2615	2716	
==>rl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comman <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	500	593	
==>B<new (*native*) returns nil>

=item B<to_native () returns *native*>

=item B<to_bit () retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22635	22769	
==>s}[-1],
      family => 'assertion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1026	1121	
==>y of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1026	1121	
==>y of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1026	1121	
==>y of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	337	439	
==>estructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	337	439	
==>estructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functio <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	337	439	
==>estructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functio <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14128	14220	
==>L(&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1 <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1203	1316	
==>($perl_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : di <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3175	3286	
==>0 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_buc <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3175	3286	
==>0 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_buc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1783	1885	
==>ormance reasons,

# because they are too frequent and they are too slow using the basic 

# rule parser <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1711	1811	
==>ormance reasons,
# because they are too frequent and they are too slow using the basic 
# rule parser <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	386	485	
==>ormance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	397	496	
==>ormance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12161	12275	
==>}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    ` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5409	5517	
==>self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5409	5517	
==>self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5409	5517	
==>self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22707	22801	
==>ther than one.  The Relation::Example operators are somewhat of
a superset of the Set operators <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1039	1273	
==>{
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Ch <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1039	1273	
==>{
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Ch <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2394	2491	
==>ad1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2394	2491	
==>ad1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5666	5797	
==>_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPara <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5666	5797	
==>_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPara <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5666	5797	
==>_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPara <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2547	2674	
==>elf->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3667	3771	
==>rations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3667	3771	
==>rations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3667	3771	
==>rations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7463	7569	
==>@args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7463	7569	
==>@args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7463	7569	
==>@args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16575	16686	
==>ome p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16575	16686	
==>ome p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will com <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1156	1248	
==>emote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1156	1248	
==>emote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1977	2085	
==>.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.pl     - automate the smoke proces <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	869	969	
==>::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	869	969	
==>::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	869	969	
==>::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2904	3029	
==>ler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO oursel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2904	3029	
==>ler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO oursel <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3962	4057	
==>ment;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3962	4057	
==>ment;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22538	22659	
==>$class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23040	23161	
==>$class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5886	5987	
==>r, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=head <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5886	5987	
==>r, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=head <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13496	13622	
==>YNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13496	13622	
==>YNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6271	6371	
==>operators

  # Domain-specific-language-like syntax, contained in a package

### rule must ever use R <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6057	6155	
==>operators
  # Domain-specific-language-like syntax, contained in a package
### rule must ever use R <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1028	1157	
==>r( abs($x) ) }
        when $_ >  .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4135	4236	
==>ir|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int ra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4135	4236	
==>ir|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int ra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4135	4236	
==>ir|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int ra <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1478	1589	
==>urns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1478	1589	
==>urns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2311	2410	
==>returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2311	2410	
==>returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17612	17763	
==>ength'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17612	17763	
==>ength'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17567	17668	
==>n $str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17567	17668	
==>n $str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2404	2540	
==>ass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2404	2540	
==>ass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2404	2540	
==>ass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1212	1321	
==>.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/li <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6827	6937	
==>, { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6827	6937	
==>, { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21305	21390	
==>botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21305	21390	
==>botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3413	3548	
==>rule( 
        name => '=',
        assoc => 'right',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__->add <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4161	4268	
==>wo) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3288	3395	
==>wo) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4161	4268	
==>wo) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3288	3395	
==>wo) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8853	8986	
==>ine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           nam <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8853	8986	
==>ine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21162	21256	
==>at people who install your
module distribtution do not need to have the compilers installed
the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21162	21256	
==>at people who install your
module distribtution do not need to have the compilers installed
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10745	10903	
==>::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10745	10903	
==>::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10745	10903	
==>::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end} <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	231	344	
==>perl5/^$iso8601_re$/;

multi sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$mi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2830	2983	
==>($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.n <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2830	2983	
==>($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.n <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12857	12952	
==>specifier is used for several things. 
For example, when iterating through the span range, the u <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12857	12952	
==>specifier is used for several things. 
For example, when iterating through the span range, the u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3690	3796	
==>setta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3690	3796	
==>setta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7244	7348	
==>node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7256	7360	
==>node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	807	959	
==>/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__END <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2365	2463	
==>rl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2365	2463	
==>rl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Roo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2365	2463	
==>rl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Roo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2055	2164	
==>nes);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2055	2164	
==>nes);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1294	1394	
==>nes);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3155	3255	
==>nes);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	0	98	
==>=pod
XXX I suspect the where{true}'s are not the right thing.  What is?

The definition of these in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6084	6181	
==>:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6084	6181	
==>:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6084	6181	
==>:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2307	2405	
==>do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with th <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2307	2405	
==>do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1499	1615	
==>bers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $sel <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1499	1615	
==>bers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $sel <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7909	8004	
==>}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7909	8004	
==>}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10039	10156	
==>pher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._hea <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10039	10156	
==>pher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._hea <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2162	2269	
==>tdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 Fi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2162	2269	
==>tdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8528	8645	
==>INDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8528	8645	
==>INDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8528	8645	
==>INDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	872	968	
==>nt <<'GROK';
usage: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2805	2935	
==>_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2805	2935	
==>_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2805	2935	
==>_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn " <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15685	15810	
==>member we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $self->{lone_not_line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5006	5116	
==>we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5006	5116	
==>we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5006	5116	
==>we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2403	2507	
==>config->{$name} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $template = d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3204	3304	
==>urce = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3421	3521	
==>urce = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13886	13977	
==>ed by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13886	13977	
==>ed by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2950	3053	
==>orce_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	981	1084	
==>orce_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	385	482	
==>t_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Durat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	385	482	
==>t_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Durat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3552	3676	
==>body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3552	3676	
==>body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3552	3676	
==>body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => :: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11276	11396	
==>ty-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14753	14873	
==>ty-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14061	14181	
==>ty-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7320	7426	
==>or Perl 6 Rule operator precedence

=head1 SYNOPSIS

  use Pugs::Grammar::Precedence;

  # example de <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2296	2395	
==>d (x as num) returns num>

=item B<subtract (x as num) returns num>

=item B<mulitply (x as num) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1123	1220	
==>r(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1123	1220	
==>r(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1123	1220	
==>r(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6344	6445	
==>... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calli <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11190	11291	
==>... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calli <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2105	2202	
==>lly scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

= <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2105	2202	
==>lly scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	723	870	
==>ass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	723	870	
==>ass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	723	870	
==>ass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structur <==
4	/Users/nnunley/pugs/util/run-smoke.pl	55	148	
==>(svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, ".." <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1513	1611	
==>$cwd/$testdir";
}
if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print "# Unpacking $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9549	9639	
==>_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9549	9639	
==>_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9549	9639	
==>_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6608	6737	
==>N{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6608	6737	
==>N{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6608	6737	
==>N{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCod <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	345	459	
==>if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an install.
        $args[0] = 'install <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	215	331	
==>content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	215	331	
==>content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	423	530	
==>pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	423	530	
==>pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13751	13869	
==>t_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $orig <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18954	19072	
==>t_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $orig <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13751	13869	
==>t_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $orig <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18954	19072	
==>t_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $orig <==
4	/Users/nnunley/pugs/util/grokprims.pl	863	1009	
==>';



foreach my $op (sort 
         {
           $a->{name} cmp $b->{name} or
             $a->{assoc} cmp $b->{assoc} or
               @{$a->{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32756	32871	
==>r_iterator(@:MRO);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16088	16295	
==>eedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16367	16574	
==>eedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alterna <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6060	6182	
==>return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6060	6182	
==>return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12573	12678	
==>and};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@arg <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12573	12678	
==>and};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@arg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2536	2629	
==>ass represents the query string portion of a requested URI.
It provides the following methods: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2536	2629	
==>ass represents the query string portion of a requested URI.
It provides the following methods: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7411	7538	
==>\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7411	7538	
==>\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7411	7538	
==>\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23977	24096	
==>too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22750	22869	
==>too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23977	24096	
==>too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22750	22869	
==>too - they must not send
  any error reply back to the client on receipt of a notice.  The object of
  this rule is to a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1640	1741	
==>ct->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1640	1741	
==>ct->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1640	1741	
==>ct->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	3056	3153	
==>line.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        /Library/Frameworks/GMP.Framewo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13546	13704	
==>stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fina <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13546	13704	
==>stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fina <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13546	13704	
==>stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fina <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2431	2589	
==>stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $fina <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17015	17110	
==>plied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17015	17110	
==>plied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes o <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	525	627	
==><density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	525	627	
==><density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16443	16537	
==>ew languages easily and without a recompile (such as by simply
copying files), often even while <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16443	16537	
==>ew languages easily and without a recompile (such as by simply
copying files), often even while <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8156	8259	
==>ction.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from P <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3748	3910	
==>} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here too
            system( qq[tar -f $my_tmp_dir/$d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1464	1559	
==>d -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1464	1559	
==>d -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1464	1559	
==>d -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11641	11759	
==>{
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11641	11759	
==>{
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22402	22509	
==>rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::if <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15746	15846	
==>in the new symbol introduced by the binding
# the body of the binding contains the env with the the s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8016	8122	
==>emp1;
  reduce_end:
  goto (pop @bsrStack);

  token_match:
  $matchObjPos = $whitespacePosition;
  my $mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	968	1066	
==><err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	968	1066	
==><err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	968	1066	
==><err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primit <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28200	28296	
==>object's data.  This might be an array reference (for a 'branch'
node), another object (for a 'qu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14816	14910	
==>s::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14816	14910	
==>s::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14816	14910	
==>s::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6603	6720	
==>() {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6603	6720	
==>() {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6603	6720	
==>() {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($ord <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9069	9179	
==>lf->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", map $_->visual, @$_), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15402	15519	
==>ation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $so <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15402	15519	
==>ation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $so <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1427	1536	
==>s Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1427	1536	
==>s Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10193	10316	
==>ass->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10193	10316	
==>ass->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10193	10316	
==>ass->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $sta <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	857	957	
==>NOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11305	11421	
==>t;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5119	5233	
==>num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5119	5233	
==>num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5119	5233	
==>num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16999	17099	
==>rl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16999	17099	
==>rl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8935	9026	
==>:Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2760	2851	
==>:Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9633	9751	
==>s not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13110	13228	
==>s not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12382	12500	
==>s not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	199	303	
==>File DumpFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File::Ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40093	40199	
==>:Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40093	40199	
==>:Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40093	40199	
==>:Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8205	8333	
==>mpty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8597	8725	
==>mpty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8205	8333	
==>mpty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8597	8725	
==>mpty;
    
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1184	1289	
==>test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub l <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1184	1289	
==>test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1264	1369	
==>test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5019	5117	
==>f->{path}", $self
    ) unless $self->{extensions};

    foreach my $obj (@{$self->{extensions}}) { <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	227	331	
==>C::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Pe <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2699	2803	
==>st ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2699	2803	
==>st ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	227	331	
==>C::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2745	2891	
==>',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        preceden <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1019	1126	
==>) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1019	1126	
==>) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1019	1126	
==>) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3420	3535	
==>->object(digit => 1);
  });

  # digit (a digit)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5630	5731	
==>st.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5630	5731	
==>st.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5630	5731	
==>st.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODE <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19800	19904	
==>as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4016	4114	
==>am{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4016	4114	
==>am{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4016	4114	
==>am{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless def <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4862	4975	
==>p6ws>?
    <code> 
        {
	 eval Emitter::Perl5::emit({macro => $()});
	 return { macro => $() ,}
	}
RULE
*{'em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4369	4463	
==>:Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4369	4463	
==>:Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4369	4463	
==>:Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	114	205	
==>ammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	118	209	
==>ammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	112	203	
==>ammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	112	203	
==>ammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

sub a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6128	6224	
==>two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5258	5354	
==>two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6128	6224	
==>two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5258	5354	
==>two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6317	6421	
==>\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6317	6421	
==>\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6317	6421	
==>\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6581	6693	
==>[]
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6581	6693	
==>[]
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6581	6693	
==>[]
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fals <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3951	4052	
==>tatus;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2070	2248	
==>from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2070	2248	
==>from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2070	2248	
==>from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	297	439	
==>IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	680	830	
==>ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	653	797	
==>ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23864	23956	
==>oesn't know about language specific details like
encodings or plurality.

My understanding of <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23864	23956	
==>oesn't know about language specific details like
encodings or plurality.

My understanding of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5960	6095	
==>ibute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5960	6095	
==>ibute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5960	6095	
==>ibute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}} <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3605	3715	
==>g dubious happened.

The columns in the summary report mean:

=over 4

=item B<Failed Test>

The test file whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5526	5739	
==>{
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fir <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5526	5739	
==>{
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fir <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5526	5739	
==>{
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fir <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7079	7182	
==>nds on their data...
# this is why this code is so big.

# in a language with native multimetods this wo <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13815	13931	
==>= $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1295	1411	
==>= $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5530	5639	
==>art_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5530	5639	
==>art_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8700	8827	
==>) if !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13728	13821	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13728	13821	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13728	13821	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
su <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6277	6377	
==>lti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5407	5507	
==>lti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6277	6377	
==>lti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5407	5507	
==>lti sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *infix: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3926	4024	
==>------------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3926	4024	
==>------------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14863	14960	
==>d with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14863	14960	
==>d with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	353	463	
==>RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	353	463	
==>RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	353	463	
==>RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}-> <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	16	113	
==>it's actually a role; after all, it defines no properties.

# return floating point seconds relati <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2289	2419	
==>ROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        l <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2289	2419	
==>ROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15073	15172	
==>elf->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9272	9371	
==>elf->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22598	22712	
==>outof_scope) {
    TREE = pop STACK;
  }

After the tree has been created, this key is deleted; this gives the
code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1882	1980	
==>PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1882	1980	
==>PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1882	1980	
==>PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4627	4723	
==>return @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Prox <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4627	4723	
==>return @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Prox <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15995	16090	
==>document itself.

=item $h.last_modified

This header indicates the date and time at which the r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15995	16090	
==>document itself.

=item $h.last_modified

This header indicates the date and time at which the r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3043	3159	
==>ists $options{params} && blessed($options{params}) && $options{params}->isa('closure::params'))
        || confess "B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7635	7739	
==>s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7635	7739	
==>s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7635	7739	
==>s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19071	19164	
==>me> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19071	19164	
==>me> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1953	2103	
==>e dpkg
    my $postrm = $meta . '/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	574	671	
==>ed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-der <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	574	671	
==>ed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-der <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	574	671	
==>ed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-der <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3463	3562	
==>base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{nam <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4745	4844	
==>base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{nam <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3237	3355	
==>nd> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %pa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3237	3355	
==>nd> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4167	4282	
==>ontent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4167	4282	
==>ontent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3187	3289	
==>urncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $rest <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3187	3289	
==>urncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $rest <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3187	3289	
==>urncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $rest <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	154	255	
==>ll develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a backtracking, recursive-d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1006	1117	
==>f = shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	332	437	
==>y_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_R <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1860	1965	
==>y_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_R <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6211	6307	
==>ad \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d.]+ \ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6780	6894	
==>lrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2human {
  local $_ = shift;

  $_ eq "jsper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3823	3913	
==>-----------------------------------------------------------------
## Package

## See http:/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3823	3913	
==>-----------------------------------------------------------------
## Package

## See http:/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3823	3913	
==>-----------------------------------------------------------------
## Package

## See http:/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16149	16342	
==>leop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16428	16621	
==>leop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               , <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10482	10638	
==>leop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10761	10917	
==>leop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22152	22245	
==>nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if ap <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21033	21126	
==>nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if ap <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22152	22245	
==>nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if ap <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21033	21126	
==>nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (if ap <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4302	4419	
==>"isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWritable""paramContext""pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21524	21617	
==>rray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21524	21617	
==>rray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21524	21617	
==>rray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11172	11353	
==>ll->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11172	11353	
==>ll->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11172	11353	
==>ll->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10451	10556	
==>$code_param_info.')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $code_args .= "' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6666	6771	
==>eason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6666	6771	
==>eason = strip_colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7034	7135	
==>eason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7034	7135	
==>eason = strip_colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18212	18357	
==>new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41477	41622	
==>new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1113	1236	
==>tement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        warn "E <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1549	1664	
==>&& ! $whitespace_before ) {
                # XXX - angle quotes are always tried even if it were expecting a simple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2578	2676	
==>TORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2578	2676	
==>TORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2578	2676	
==>TORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2648	2765	
==>Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2648	2765	
==>Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2648	2765	
==>Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28590	28685	
==>ail> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $obj->family( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	475	658	
==>slots', {});
        },
        methods => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            h <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	490	597	
==>"C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	490	597	
==>"C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8791	8904	
==>t::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::nu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8849	8962	
==>t::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::nu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	189	290	
==>t::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::nu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	247	348	
==>t::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2309	2423	
==>";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2309	2423	
==>";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2309	2423	
==>";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10541	10641	
==>erl(): 'switches' must be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_quot <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1461	1596	
==>ing options in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4687	4785	
==>> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4687	4785	
==>> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4687	4785	
==>> '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pack <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2484	2588	
==>nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2484	2588	
==>nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2564	2668	
==>nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "d <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4521	4615	
==>lf, 
		left => $self->left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $se <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	29	129	
==>r definieren
class Welt {
	method hallo ( $name ) { "Hallo, $name!".say; }
}
#=Methoden mit einem Arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3373	3467	
==>defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3373	3467	
==>defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3373	3467	
==>defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	496	603	
==>=~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8763	8869	
==>=~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't ope <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8763	8869	
==>=~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't ope <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8763	8869	
==>=~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "deleteme$$.p6";
    open(F,">$fn") or die "Couldn't ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1199	1320	
==>ame} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1199	1320	
==>ame} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1199	1320	
==>ame} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infini <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3756	3860	
==>ool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Cxt',
  'paramDefault' ,'E <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	26	137	
==>se v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $ke <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	26	137	
==>se v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $ke <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5121	5217	
==>erAgent> module.

The following functions are provided (and exported) by this module:

=over 3

= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5121	5217	
==>erAgent> module.

The following functions are provided (and exported) by this module:

=over 3

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	784	914	
==>{
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        },
        'DESTROY' => sub {
            my $foot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5699	5800	
==>"method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5699	5800	
==>"method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5699	5800	
==>"method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	332	447	
==>$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ms <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	332	447	
==>$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ms <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	332	447	
==>$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ms <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2216	2329	
==>|Str {
 multi sub  Perl6::List::reverse (; *@values) returns Lazy|Str {
   given want {
     when List {
       ga <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2381	2486	
==>rs = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2381	2486	
==>rs = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2381	2486	
==>rs = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_a <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3951	4178	
==>new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->new(
        Seq->new(
            Param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7220	7321	
==>b {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7220	7321	
==>b {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7220	7321	
==>b {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12423	12580	
==>"$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12417	12574	
==>"$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, un <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17954	18049	
==>tem $h.from

This header should contain an Internet e-mail address for the human
user who contro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17954	18049	
==>tem $h.from

This header should contain an Internet e-mail address for the human
user who contro <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	846	980	
==>dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\\n/g; s/\t/\\t/g; s/\r/\\r/g; s/\"/\\"/g;
        print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1124	1224	
==>ject belongs to a
package that is too close to the main namespace for your tastes, and
you want to re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1124	1224	
==>ject belongs to a
package that is too close to the main namespace for your tastes, and
you want to re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1124	1224	
==>ject belongs to a
package that is too close to the main namespace for your tastes, and
you want to re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2256	2370	
==>ve {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2256	2370	
==>ve {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2256	2370	
==>ve {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.pe <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2577	2680	
==>t) {
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Couln't run smoke upload <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4064	4179	
==>ds}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4064	4179	
==>ds}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4064	4179	
==>ds}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10891	10994	
==>for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36016	36114	
==>ion is the union of the invocant and <$other> headings. 
The body of the new relation is the result <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40566	40663	
==>ion is the union of the invocant and <$other> headings.
The body of the new relation is the result <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40180	40277	
==>ion is the union of the invocant and <$other> headings.
The body of the new relation is the result <==
4	/Users/nnunley/pugs/util/run-smoke.pl	585	682	
==>die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or die "Need HTML output file loc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2055	2222	
==>ans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2055	2222	
==>ans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1289	1388	
==>ment(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    doe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1289	1388	
==>ment(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    doe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	403	514	
==>on (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	403	514	
==>on (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	403	514	
==>on (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20474	20571	
==>ing technology).  Each node is an opcode plus a "next" pointer,
possibly plus an operand.

We don' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34488	34760	
==>next')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2520	2613	
==>$code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$construc <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2520	2613	
==>$code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$construc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13890	13987	
==>s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13890	13987	
==>s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13890	13987	
==>s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13463	13624	
==>,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3612	3757	
==>,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3612	3757	
==>,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3612	3757	
==>,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23705	23824	
==>>{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20126	20245	
==>>{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3446	3563	
==>l = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail. <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3446	3563	
==>l = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6146	6240	
==>plitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8214	8308	
==>plitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6146	6240	
==>plitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8214	8308	
==>plitpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9440	9559	
==>?:/cygdrive|[A-Za-z]:)/.*$Config{_exe}$}
            ) {

                # Smells like a Windows executable called from <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	407	501	
==>l::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	407	501	
==>l::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	407	501	
==>l::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14508	14623	
==>$translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RE <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14508	14623	
==>$translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RE <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12056	12148	
==>tr $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function curre <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12114	12206	
==>tr $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function curre <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21924	22034	
==>ment describes Relation::Example version 0.1.0.

It also describes the same-number versions of Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5511	5614	
==>ef
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5511	5614	
==>ef
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6101	6204	
==>ef
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3541	3638	
==>.= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_harness <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10687	10786	
==>n(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10687	10786	
==>n(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10687	10786	
==>n(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16448	16537	
==>versed into something like C</(\w+(?<!\d))(\d+)/>.
The other difficulty is complex regexes <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	847	1021	
==>re} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	840	1014	
==>re} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30142	30237	
==>ed with the
Message; this user string may also contain variable names that correspond
to Message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30142	30237	
==>ed with the
Message; this user string may also contain variable names that correspond
to Message <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3871	3992	
==>> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3871	3992	
==>> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4403	4518	
==>> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4403	4518	
==>> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3571	3670	
==>erl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	334	431	
==>onal soul, really concreate and practical 
# things like Object, Package and Module. It was also c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	334	431	
==>onal soul, really concreate and practical 
# things like Object, Package and Module. It was also c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	334	431	
==>onal soul, really concreate and practical 
# things like Object, Package and Module. It was also c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	916	1057	
==>h' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	916	1057	
==>h' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	916	1057	
==>h' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1972	2076	
==>ression($res, $cur);
   }
   $res;
 }


 multi sub Perl6::Hash::reverse (%hash) returns Hash is default { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12442	12552	
==>ing target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string char <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3827	3915	
==>Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and settin <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3827	3915	
==>Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and settin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6024	6112	
==>Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and settin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20662	20765	
==>tance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20662	20765	
==>tance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20662	20765	
==>tance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17802	17911	
==>ame => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16840	16949	
==>ame => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17802	17911	
==>ame => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16840	16949	
==>ame => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", # (optional, defaults to $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	8	100	
==>ement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	8	100	
==>ement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	8	100	
==>ement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17105	17216	
==>NOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17105	17216	
==>NOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17105	17216	
==>NOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Per <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8808	8915	
==>Literal {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2848	2940	
==>fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2848	2940	
==>fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2848	2940	
==>fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8984	9072	
==>ls_ok { $iFoo->singleton_test_on_object } '... instance calling metaclass singleton metho <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5711	5877	
==>@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedTe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5711	5877	
==>@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedTe <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	248	412	
==>t }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	248	412	
==>t }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2422	2566	
==>es<  from  $expr\n";
		} else {
		    print "ok\n";
		}
	    }
	}
    }
}

do {
    # $use_native_ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23402	23504	
==>)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt han <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23402	23504	
==>)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt han <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23402	23504	
==>)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt han <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15224	15342	
==>ests} = { map { Digest->compute($_) => $_ } $env->values };
    my $ast = shift;

    $self->reduce($ast);
}

sub reduc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5999	6102	
==>... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5999	6102	
==>... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5999	6102	
==>... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4126	4231	
==>$OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14449	14554	
==>"Can't apply non function type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4126	4231	
==>$OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4126	4231	
==>$OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28195	28290	
==>ers need to be resolvable";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher order app wit <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14766	14872	
==>os) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, $P0, mfro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19998	20090	
==>$xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19998	20090	
==>$xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19998	20090	
==>$xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MUL <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8950	9074	
==>,
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "di <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8950	9074	
==>,
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "di <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6640	6735	
==>d siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibling <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6640	6735	
==>d siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibling <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39532	39625	
==>the first pass.  To accomplish this, use force_object(), which creates
an object regardless of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37513	37638	
==>store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37513	37638	
==>store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37513	37638	
==>store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32786	32884	
==>:Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatcher') <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1529	1689	
==>:Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => [ $extracted, $extracted <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1982	2117	
==>:Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2417	2552	
==>:Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2854	2989	
==>:Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13099	13277	
==>( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13099	13277	
==>( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13099	13277	
==>( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	191	305	
==>_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	191	305	
==>_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	191	305	
==>_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6162	6260	
==>r_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5292	5390	
==>r_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6162	6260	
==>r_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5292	5390	
==>r_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6160	6285	
==>ameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6160	6285	
==>ameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6160	6285	
==>ameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3913	4036	
==>$next->walk(\@stack, $d);
    return wantarray ? ($next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3480	3579	
==>F|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20706	20814	
==>nNoIn>
}
rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule ExpressionStatement :words {  # see 12.4 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5636	5735	
==>}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5636	5735	
==>}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5636	5735	
==>}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubN <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	175	278	
==>ExpressionLiteral has been added to Literal.
#     Since we dont have a separate tokenizer.
#   * <Sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11807	11894	
==>xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11807	11894	
==>xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11807	11894	
==>xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULT <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12219	12317	
==>e order they had in C<@values>.

If C<$inplace> is specified, the array is sorted in place.

See L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1377	1474	
==>n "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1377	1474	
==>n "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1377	1474	
==>n "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6| <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4716	4820	
==>we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4716	4820	
==>we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23212	23309	
==>_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27764	27861	
==>_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	703	807	
==>Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	703	807	
==>Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	703	807	
==>Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2404	2534	
==>ode_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tT <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2540	2636	
==>s not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2540	2636	
==>s not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2540	2636	
==>s not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2628	2747	
==>b add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc}  = 'non'    unless define <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1452	1554	
==>PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLVa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4576	4675	
==>PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLVa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4576	4675	
==>PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLVa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14775	14870	
==>ork is a powerful but elegant system, which makes
it easy to create and use relational databases <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14775	14870	
==>ork is a powerful but elegant system, which makes
it easy to create and use relational databases <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23499	23586	
==>s are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23499	23586	
==>s are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8047	8153	
==>ent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8047	8153	
==>ent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8047	8153	
==>ent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25187	25285	
==>rk/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23951	24049	
==>rk/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25187	25285	
==>rk/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23951	24049	
==>rk/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6019	6123	
==>hings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6019	6123	
==>hings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6019	6123	
==>hings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24830	24919	
==>et_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2596	2741	
==>ff + $size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	318	457	
==>();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

metho <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	318	457	
==>();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

metho <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1331	1432	
==>h zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if o <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1331	1432	
==>h zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31048	31195	
==>$i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31048	31195	
==>$i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31048	31195	
==>$i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21002	21102	
==>> <Expression> <')'> <Statement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Stateme <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3865	3962	
==>ssing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3865	3962	
==>ssing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6062	6159	
==>ssing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If th <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1510	1606	
==>cal path is currently more oo than rules, my time
is limited, and there are other bootstrap appro <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10986	11085	
==>Removes the specified items from the set. Returns the number of items
removed.

It is not fatal to r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8390	8489	
==>Removes the specified items from the set. Returns the number of items removed.

It is not fatal to r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10986	11085	
==>Removes the specified items from the set. Returns the number of items
removed.

It is not fatal to r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8390	8489	
==>Removes the specified items from the set. Returns the number of items removed.

It is not fatal to r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2367	2487	
==>s);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, symbol $label, hash %opts) returns method {
    { ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3777	3881	
==>} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3777	3881	
==>} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3777	3881	
==>} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17096	17211	
==>rammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::wo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17375	17490	
==>rammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::wo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7735	7825	
==>element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1560	1650	
==>element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	307	447	
==>$struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	791	931	
==>$struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4065	4246	
==>\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5386	5567	
==>\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4065	4246	
==>\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5374	5555	
==>\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2263	2517	
==>( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1031	1213	
==>( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1031	1213	
==>( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17945	18163	
==>($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17945	18163	
==>($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17945	18163	
==>($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20425	20536	
==>ipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $estat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25343	25440	
==>agous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation::Examp <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4644	4723	
==>-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4644	4723	
==>-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5110	5207	
==>d_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5110	5207	
==>d_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_co <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5641	5737	
==>ns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro la <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5641	5737	
==>ns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro la <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2080	2184	
==>ead1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2080	2184	
==>ead1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1314	1412	
==>ead1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3175	3273	
==>ead1 NAME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2648	2753	
==>o label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2648	2753	
==>o label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2648	2753	
==>o label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $va <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2091	2195	
==>ams>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name>' ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5328	5475	
==>at when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install it <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5792	5939	
==>at when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6806	6932	
==>::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) sup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6806	6932	
==>::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) sup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6806	6932	
==>::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) sup <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4618	4717	
==>(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6779	6877	
==>from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6779	6877	
==>from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6779	6877	
==>from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30957	31047	
==>POSIX character class, its handler
must start with "POSIX_".

=item $parser->del_handler(@h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1444	1631	
==>:SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1444	1631	
==>:SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1444	1631	
==>:SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2814	2922	
==>_stack,[$vars,$tmpvars]);
  "(do{my \$__v__ ; my($tmpvars); { local($vars)=($vars); \$__v__ = do{ ";
}
sub le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3	99	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3	99	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3	99	
==>usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5908	6020	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escape <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6101	6213	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escape <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7322	7427	
==>st )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may co <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7322	7427	
==>st )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21896	21996	
==>.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20777	20877	
==>.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21896	21996	
==>.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20777	20877	
==>.

=item C<rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message w <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	201	309	
==>ional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	201	309	
==>ional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3468	3610	
==>h;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3468	3610	
==>h;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3468	3610	
==>h;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1255	1360	
==>ey) && $key->isa('type'))
        || confess "Key must be a str type";
    (blessed($value) && $value->isa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3859	4001	
==>>parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
            last i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1204	1307	
==>runcate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	241	340	
==>L

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	241	340	
==>L

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1550	1666	
==>n = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1550	1666	
==>n = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1550	1666	
==>n = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defau <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	147	246	
==>e Pugs::Grammar::BaseCategory ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51273	51531	
==>>new('-')
                            )
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4660	4792	
==>pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4660	4792	
==>pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!chi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5995	6115	
==>When using two properties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9526	9642	
==>_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9526	9642	
==>_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9526	9642	
==>_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
} <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12142	12239	
==>n.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13973	14070	
==>n.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12142	12239	
==>n.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13973	14070	
==>n.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13122	13243	
==>el";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13122	13243	
==>el";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13122	13243	
==>el";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10269	10384	
==>irs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built later from.
      We'll <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6995	7092	
==>n0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.densi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6995	7092	
==>n0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.densi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32791	32882	
==>stic because it
invokes user-defined external files for reading, mainly in the
C<translate_m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32791	32882	
==>stic because it
invokes user-defined external files for reading, mainly in the
C<translate_m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5822	5942	
==>xt;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5822	5942	
==>xt;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{ <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1174	1284	
==>NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_ <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1174	1284	
==>NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	390	493	
==>lue
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_str { shift }

# conv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	578	677	
==>lass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	578	677	
==>lass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	578	677	
==>lass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1071	1169	
==>->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1071	1169	
==>->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16158	16247	
==>ncent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16216	16305	
==>ncent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <p <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1016	1124	
==>lf => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autolo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1935	2062	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1935	2062	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1935	2062	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13800	13899	
==>n "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13800	13899	
==>n "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13800	13899	
==>n "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_n <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25863	25957	
==>is($type->stringify, "∀α. list α", "pretty print list a");
}
{
	my $a = type::variable::fre <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	865	995	
==>fined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39693	39791	
==>ay->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Val <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12757	12855	
==>handler->($x);
}

my %as_str_handlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef" <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39693	39791	
==>ay->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39693	39791	
==>ay->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Val <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23117	23218	
==><')'. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	119	235	
==>acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18362	18455	
==>.};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18362	18455	
==>.};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.k <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18362	18455	
==>.};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.k <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9109	9225	
==>etails  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12085	12190	
==>.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12085	12190	
==>.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12085	12190	
==>.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	729	881	
==>+^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	729	881	
==>+^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	742	862	
==>tent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	742	862	
==>tent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4666	4762	
==>_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4666	4762	
==>_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5256	5352	
==>_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4777	4929	
==>ist      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     grep    safe   (Code, List)\
\\n   L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6467	6562	
==>s_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6467	6562	
==>s_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    loc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6467	6562	
==>s_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    loc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	155	287	
==>..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting constructs are macros:

    macr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2618	2710	
==>rray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2618	2710	
==>rray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2618	2710	
==>rray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4393	4577	
==>e unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4260	4438	
==>e unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18938	19043	
==>the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending ' <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18938	19043	
==>the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	566	685	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postfix:<" . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18031	18127	
==>MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18031	18127	
==>MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18031	18127	
==>MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
M <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8976	9118	
==>_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14705	14847	
==>_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8976	9118	
==>_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14699	14841	
==>_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2474	2589	
==>age ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2474	2589	
==>age ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19737	19833	
==>ut the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I wa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19737	19833	
==>ut the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I wa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2901	3033	
==>//localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $. <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2901	3033	
==>//localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $. <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1553	1655	
==>st - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fa <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1553	1655	
==>st - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31327	31514	
==>th += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31327	31514	
==>th += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31327	31514	
==>th += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now lengt <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1877	2008	
==>symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Che <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	335	431	
==>C<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	335	431	
==>C<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	335	431	
==>C<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5489	5594	
==>tribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5489	5594	
==>tribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5489	5594	
==>tribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute') <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	727	820	
==>ence (? incomplete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifie <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	224	324	
==>It's a backtracking, recursive-decent engine, generated from the
# regexp ast nodes created by Regexp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13775	13866	
==>ception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protecti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13775	13866	
==>ception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protecti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13775	13866	
==>ception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protecti <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2251	2355	
==>nd Blondie::Nodes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	432	531	
==>mport BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	432	531	
==>mport BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	432	531	
==>mport BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    se <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	440	545	
==>n Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	440	545	
==>n Bool::False }
method end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1452	1556	
==>n Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1452	1556	
==>n Bool::False }
method end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12316	12457	
==>rror in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8592	8733	
==>rror in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9427	9568	
==>rror in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1967	2126	
==>} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1746	1895	
==>} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1746	1895	
==>} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $mat <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3522	3613	
==>-> {true}.

p6_concatenation(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	494	592	
==>ce.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	494	592	
==>ce.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	225	322	
==>ches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	225	322	
==>ches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3238	3342	
==>) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3238	3342	
==>) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	214	307	
==>n this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	214	307	
==>n this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10901	11017	
==>ailures
        my $fh = Pugs::Internals::openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	264	370	
==>* hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	264	370	
==>* hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	264	370	
==>* hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14086	14189	
==>less (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' aliased properly
	return $Perl if $^O eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8454	8552	
==>ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8442	8540	
==>ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5761	5857	
==>Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightf <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19587	19683	
==>like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5761	5857	
==>Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightf <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24139	24235	
==>like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1709	1844	
==>nk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@h <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1709	1844	
==>nk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@h <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5365	5456	
==>ds) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5423	5514	
==>ds) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_test <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8769	8900	
==>i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8769	8900	
==>i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8769	8900	
==>i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our & <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18448	18559	
==>->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $curr/$max");

        if( $detail->{type <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11746	11905	
==>ding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8028	8187	
==>ding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8862	9021	
==>ding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4515	4664	
==>>isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure->do());      
        }
    }    
    return <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2052	2164	
==>de::Unit';

    package Blondie::App;
    use base 'Blondie::Node::List';

    package Blondie::Val;
    use base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	801	912	
==>e the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	801	912	
==>e the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	801	912	
==>e the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1179	1277	
==>b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1179	1277	
==>b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1179	1277	
==>b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8536	8630	
==>oo singleton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Object can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	453	549	
==>dentally override things they didn't intend to.

# Determine which stack frame points to the code <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	453	549	
==>dentally override things they didn't intend to.

# Determine which stack frame points to the code <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2728	2824	
==>«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2728	2824	
==>«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2728	2824	
==>«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	336	512	
==>e {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "colo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6020	6127	
==>open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6020	6127	
==>open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6020	6127	
==>open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2371	2498	
==>return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: th <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7759	7880	
==>ns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method trav <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7759	7880	
==>ns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method trav <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2295	2415	
==>return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: th <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1102	1222	
==>art       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.en <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4341	4461	
==>art       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1102	1222	
==>art       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4341	4461	
==>art       = $.start;
        $open_start    = $.start_is_open || $span.start_is_open;
    }
    $cmp = $.end <=> $span.en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6683	6796	
==>ed $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6683	6796	
==>ed $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6683	6796	
==>ed $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47483	47615	
==>hod label
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5160	5259	
==>.

When compiling (--link option not given), there has to be only one input file.
In linking mode, m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5160	5259	
==>.

When compiling (--link option not given), there has to be only one input file.
In linking mode, m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5160	5259	
==>.

When compiling (--link option not given), there has to be only one input file.
In linking mode, m <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	613	703	
==>abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** Please rep <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2743	2862	
==>h, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7837	7956	
==>h, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') - <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2743	2862	
==>h, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') - <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7837	7956	
==>h, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') - <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	864	963	
==>a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autoge <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	864	963	
==>a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autoge <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	858	947	
==>nglish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	858	947	
==>nglish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2287	2396	
==>t(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2287	2396	
==>t(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2287	2396	
==>t(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && th <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9593	9700	
==>, "0", "-F", $initrd_img };

  step
    descr  => "Mounting \"$initrd_img\"",
    ensure => sub { `mount` =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	514	628	
==>" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	334	444	
==>{ { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	334	444	
==>{ { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	334	444	
==>{ { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16076	16225	
==>atch,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16070	16219	
==>atch,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1 <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	268	389	
==>=> $Config{osname},
        pager     => $Config{pager},
        prefix    => $Config{prefix},
        archname  => $Confi <==
4	/Users/nnunley/pugs/util/package-osx.pl	6691	6788	
==>l6::Overview::Subroutine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /us <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10045	10144	
==>eEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule Regula <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	53	148	
==>.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Arr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	53	148	
==>.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3109	3216	
==>::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3109	3216	
==>::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3109	3216	
==>::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8342	8461	
==>ext }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8342	8461	
==>ext }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating co <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	815	910	
==>imal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C<$ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	815	910	
==>imal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C<$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4253	4355	
==>amble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Coul <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23484	23578	
==>able rather than mutable, this property and/or
same-named accessor method can be used to see if <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28036	28130	
==>able rather than mutable, this property and/or
same-named accessor method can be used to see if <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26840	26934	
==>able rather than mutable, this property and/or
same-named accessor method can be used to see if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1726	1858	
==>ls}[$_]} ) {
            $relative_precedences{$opt->{precedence}}->($self, $_, $opt);
            return;
        }
    }
    push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14425	14514	
==>6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14425	14514	
==>6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14425	14514	
==>6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SU <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1239	1398	
==>lf{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and retu <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1239	1398	
==>lf{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8920	9037	
==>= $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $cla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8920	9037	
==>= $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $cla <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5952	6058	
==>module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5952	6058	
==>module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	297	392	
==>ee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	297	392	
==>ee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	297	392	
==>ee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12048	12152	
==>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9169	9273	
==>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12048	12152	
==>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9169	9273	
==>, i.e. if C<$set1> contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1920	2014	
==>r(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1920	2014	
==>r(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1920	2014	
==>r(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6906	6999	
==>mal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3578	3701	
==>{ no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        "    require Runtime::Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	652	752	
==>s.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	652	752	
==>s.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	652	752	
==>s.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  w <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15686	15785	
==>ice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 C <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15686	15785	
==>ice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4564	4661	
==>tring, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

W <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4564	4661	
==>tring, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1559	1714	
==>bj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1559	1714	
==>bj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1559	1714	
==>bj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6983	7159	
==>ew( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6983	7159	
==>ew( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6983	7159	
==>ew( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5990	6073	
==>SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5990	6073	
==>SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5990	6073	
==>SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15750	15875	
==>age Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15750	15875	
==>age Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15750	15875	
==>age Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    ret <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	529	629	
==>>
END

my @dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m[/])[2] => undef } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7594	7699	
==>rn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, cou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7594	7699	
==>rn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, cou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7594	7699	
==>rn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, cou <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	896	990	
==>le provides a Perl interface to use the B<libpcre> library for
regular expressions.

=head1 AUT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35399	35518	
==>ining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35399	35518	
==>ining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35399	35518	
==>ining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_ <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1505	1609	
==>ake_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33321	33519	
==>th >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33321	33519	
==>th >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33321	33519	
==>th >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items} <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1483	1625	
==>uration = Duration::Gregorian.new
                ( :start($start), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12550	12703	
==>$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13084	13237	
==>$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12544	12697	
==>$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13078	13231	
==>$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	665	786	
==>lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	665	786	
==>lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	665	786	
==>lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13225	13356	
==>ill not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13225	13356	
==>ill not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13225	13356	
==>ill not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "go <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1700	1805	
==>ical => $^b },
		);
	my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand() * 100)) % @l.elems <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4774	4910	
==>' .
                'No, Blondie will not have church integers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

App <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4090	4200	
==>,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Va <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4090	4200	
==>,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Va <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	940	1050	
==>,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'Va <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45327	45416	
==>ibute->new('$:name'      => 'str')));
$::Package->send('add_attribute', (symbol->new('%:na <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11289	11414	
==>[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11289	11414	
==>[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11289	11414	
==>[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6157	6254	
==>set in advance with the prune method.

This feature is useful, like custom, for when you don't wan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6157	6254	
==>set in advance with the prune method.

This feature is useful, like custom, for when you don't wan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6157	6254	
==>set in advance with the prune method.

This feature is useful, like custom, for when you don't wan <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4510	4644	
==>) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	250	351	
==>'t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	250	351	
==>'t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	250	351	
==>'t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4863	4962	
==>cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4863	4962	
==>cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4863	4962	
==>cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULT <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21425	21522	
==>.})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names wh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20306	20403	
==>.})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21425	21522	
==>.})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20306	20403	
==>.})>

Adds a callback to be executed when the bot receives a corresponding message.
Event names wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12215	12314	
==>lize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16795	16894	
==>lize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets st <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12215	12314	
==>lize a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets st <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16795	16894	
==>lize a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets st <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3273	3370	
==>f._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6303	6400	
==>'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6303	6400	
==>'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xV <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3273	3370	
==>f._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8059	8152	
==>(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7189	7282	
==>(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8059	8152	
==>(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7189	7282	
==>(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(set @b).m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2073	2217	
==>ILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2290	2434	
==>ILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2265	2365	
==>sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2265	2365	
==>sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6450	6574	
==>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6450	6574	
==>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6450	6574	
==>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @re <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25895	25993	
==>t α", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator:: <==
4	/Users/nnunley/pugs/util/addauthors.pl	435	536	
==>{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7171	7282	
==>ARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7171	7282	
==>ARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7171	7282	
==>ARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11046	11149	
==>tadata
    system( qq[rm -rf ] . $self->control_dir( $inst_pkg->package ) ) and die $?;

    msg( "Packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11004	11109	
==>t;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always o <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11004	11109	
==>t;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7728	7814	
==>ashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1553	1639	
==>ashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4470	4619	
==>:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4470	4619	
==>:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4470	4619	
==>:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _(' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52656	52744	
==>ect));
$::Object->set_attr(symbol->new('@:MRO') => list->new($::Object));

foreach my $me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1536	1643	
==>Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1536	1643	
==>Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - jun <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1536	1643	
==>Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - jun <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	594	693	
==>n value based on the objects /current/
### value.. this allows subdirs to 'change' magically if a ro <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1242	1410	
==>16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @byt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1242	1410	
==>16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @byt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4240	4328	
==>alue
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4240	4328	
==>alue
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3447	3548	
==>ns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3447	3548	
==>ns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringif <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3900	3995	
==>, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) retur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3900	3995	
==>, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2051	2209	
==>rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2244	2402	
==>rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16625	16805	
==>my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16625	16805	
==>my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16625	16805	
==>my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $a <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3149	3245	
==>iled re op tree the native
compiler creates, but which we obviously don't have).

Whether this wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4906	4998	
==>w be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4906	4998	
==>w be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4906	4998	
==>w be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cust <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23600	23691	
==>e
Relation library's interface.

See also the bundled L<Relation::Example>, which provides a <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5382	5569	
==>NOT_OURS if /^generated_by: Module::Install\b/;
            }
            return $self if -s FH;
        }
    }

    print "Writing META.yml\n";

    local *META;
    open META, "> META.y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6216	6314	
==>ck {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6216	6314	
==>ck {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6216	6314	
==>ck {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10016	10112	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_tex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10016	10112	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_tex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	545	638	
==>rl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	545	638	
==>rl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3384	3494	
==>ete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak "no regex defined" unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6027	6145	
==>r.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6027	6145	
==>r.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6027	6145	
==>r.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null <==
4	/Users/nnunley/pugs/util/package-osx.pl	4803	4900	
==>cal/man/man3/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	337	451	
==>ist'))
        || confess "You must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || confess "You <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1650	1755	
==>ecompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1650	1755	
==>ecompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1650	1755	
==>ecompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1812	1946	
==>if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1812	1946	
==>if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2533	2651	
==>if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2533	2651	
==>if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2546	2656	
==>turn $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4245	4408	
==>) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output ca <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4245	4408	
==>) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output ca <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13604	13699	
==>nth.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to repre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13604	13699	
==>nth.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to repre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12598	12744	
==>[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12598	12744	
==>[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12598	12744	
==>[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can u <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4722	4841	
==>r->[2]) }
}

# -----------------------------------------------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34469	34573	
==>hift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34469	34573	
==>hift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $of <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34469	34573	
==>hift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33285	33503	
==>";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33285	33503	
==>";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33285	33503	
==>";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3152	3264	
==>require Module::Build;
    my $build = Module::Build->new(
        dist_name    => $self->{name},
        dist_ve <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2098	2211	
==>:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2098	2211	
==>:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($co <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	51	144	
==>FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($s <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	51	144	
==>FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3067	3213	
==>uperclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3067	3213	
==>uperclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3067	3213	
==>uperclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8002	8124	
==>>canonpath(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonp <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	35	143	
==>rnings;

use Blondie::Nodes;
use Blondie::Backend::C;
use Blondie::Emitter::Pretty;
use Blondie::TypeSafe;

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6810	6911	
==>imeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6810	6911	
==>imeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6810	6911	
==>imeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12019	12142	
==>07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12019	12142	
==>07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3261	3368	
==>g/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catd <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3261	3368	
==>g/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catd <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5769	5872	
==>pt;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5769	5872	
==>pt;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5769	5872	
==>pt;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36072	36170	
==>C<(?=)>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2894	3005	
==>ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2894	3005	
==>ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2894	3005	
==>ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1181	1280	
==>ror in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10664	10805	
==>thod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10664	10805	
==>thod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10664	10805	
==>thod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10942	11045	
==>er::exact;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1811	1911	
==>y.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but will <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3511	3611	
==>^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ % <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1811	1911	
==>y.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but will <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3511	3611	
==>^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16860	16958	
==>es

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16860	16958	
==>es

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16860	16958	
==>es

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attri <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13752	13847	
==>rExpression> <Arguments>
    | <CallExpression> <Arguments>
    | <CallExpression> <'['> <Expres <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6546	6664	
==>ords($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6546	6664	
==>ords($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7020	7118	
==>ethod content_language ($self: )          is rw { $self.header("Content-Language") }
method content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7020	7118	
==>ethod content_language ($self: )          is rw { $self.header("Content-Language") }
method content <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5044	5146	
==>}
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME:: <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5044	5146	
==>}
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2488	2592	
==>ected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagn <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2488	2592	
==>ected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagn <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2568	2672	
==>ected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2317	2424	
==>ct 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2317	2424	
==>ct 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2317	2424	
==>ct 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	140	246	
==>erl {
    local $Data::Dumper::Terse = 1;
    return join( ', ', Data::Dumper::Dumper( @_ ) );
}

package P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1817	1926	
==>) };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1817	1926	
==>) };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1817	1926	
==>) };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6785	6883	
==>(pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6058	6155	
==>::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6058	6155	
==>::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6058	6155	
==>::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1319	1423	
==>ld_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1319	1423	
==>ld_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1319	1423	
==>ld_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inte <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18215	18302	
==>) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
rm( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3761	3983	
==>eponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3761	3983	
==>eponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4568	4679	
==>of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4568	4679	
==>of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11371	11517	
==>rl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11371	11517	
==>rl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11371	11517	
==>rl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1146	1255	
==>->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	885	989	
==>->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1090	1194	
==>->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8103	8196	
==>(index, value)>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9861	9973	
==>>
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15702	15814	
==>>
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9861	9973	
==>>
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15696	15808	
==>>
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $param_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3731	3840	
==>ass, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3731	3840	
==>ass, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c <==
4	/Users/nnunley/pugs/util/package-osx.pl	7602	7699	
==>ntation.3pm
        /usr/local/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/Perl6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29881	29982	
==>thesis '('; if there is an extra ')'
a fatal error is thrown.  However, the nature of 'atom' is to mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13761	13858	
==>m_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13761	13858	
==>m_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13761	13858	
==>m_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	582	692	
==>space) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	582	692	
==>space) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	582	692	
==>space) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2803	2890	
==>lternatives(W, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_al <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6772	6880	
==>ategory "Decimal number (Nd)"
      <Nd>
}
rule UnicodeConnectorPunctuation {  # see 7.6
      # any characte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2836	2940	
==>f $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2836	2940	
==>f $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2836	2940	
==>f $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1055	1206	
==>) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20288	20376	
==>_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20288	20376	
==>_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20288	20376	
==>_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12536	12636	
==>x) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12536	12636	
==>x) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12536	12636	
==>x) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24349	24431	
==>(_C0,G),amat([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27813	27932	
==>d() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4177	4285	
==>("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4177	4285	
==>("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4177	4285	
==>("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3514	3631	
==>}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4831	4948	
==>}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3514	3631	
==>}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4819	4936	
==>}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexical <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	594	695	
==>you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 S <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	594	695	
==>you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8970	9067	
==>re available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of t <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8970	9067	
==>re available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1912	2040	
==>ence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__->add_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	387	498	
==>.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	387	498	
==>.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FET <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	387	498	
==>.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FET <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2065	2161	
==>L5' or $ENV{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8968	9056	
==>ance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8968	9056	
==>ance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8968	9056	
==>ance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7967	8074	
==>ck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7967	8074	
==>ck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7967	8074	
==>ck_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	884	998	
==>>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	884	998	
==>>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	884	998	
==>>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    % <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6049	6154	
==>nd
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1425	1537	
==>gth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1425	1537	
==>gth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1425	1537	
==>gth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        re <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29639	29736	
==>est names are not truncated as badly.
(Partially done with new skip test styles)

Add option for c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1749	1905	
==>esn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1749	1905	
==>esn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1749	1905	
==>esn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14266	14376	
==>es .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5240	5435	
==>( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5240	5435	
==>( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5240	5435	
==>( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22727	22844	
==>=> comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22361	22462	
==>$ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_absolute_name && $pkg;
    $mn;
} <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	908	1081	
==>gz
            system( qq[tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4049	4164	
==>ral                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11224	11320	
==>e way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11224	11320	
==>e way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11224	11320	
==>e way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1246	1362	
==>erl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1318	1413	
==>06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4625	4798	
==>l')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4625	4798	
==>l')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4625	4798	
==>l')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $ke <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4310	4425	
==>, $r->[0], $r->[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "0000000 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40329	40431	
==>tices stating that you changed the files and the date of any
changes, in addition to preserving this or <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25853	25955	
==>tices stating that you changed the files and the date of any changes, in
addition to preserving this or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40329	40431	
==>tices stating that you changed the files and the date of any
changes, in addition to preserving this or <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25853	25955	
==>tices stating that you changed the files and the date of any changes, in
addition to preserving this or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5720	5860	
==>{
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5720	5860	
==>{
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14291	14418	
==>$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14285	14412	
==>$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	201	306	
==>gs;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	178	283	
==>gs;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4548	4644	
==>=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given d <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4548	4644	
==>=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1265	1388	
==>eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementControl->parse( $match, { p => 1 } );
            last if ( $m <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1495	1605	
==>ound = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3319	3414	
==>tests,
running those tests, and then telling this module to compare the received
output to the e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3319	3414	
==>tests,
running those tests, and then telling this module to compare the received
output to the e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3399	3494	
==>tests,
running those tests, and then telling this module to compare the received
output to the e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8272	8378	
==>");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks l <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8330	8436	
==>");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1211	1305	
==>tBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 port of the Per <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1670	1786	
==>( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->lic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7226	7335	
==>M2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7226	7335	
==>M2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7226	7335	
==>M2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40623	40720	
==>blem arises.  They use
Carp::carp() or Carp::croak().  The argument list is used to fill in
the fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2362	2453	
==>MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2362	2453	
==>MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2362	2453	
==>MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1419	1603	
==>1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1419	1603	
==>1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24105	24202	
==>g> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28657	28754	
==>g> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13089	13210	
==>-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf(" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6564	6685	
==>-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf(" <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	471	574	
==>$match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3 <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	471	574	
==>$match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9831	9981	
==>ST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $bi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6172	6322	
==>ST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $bi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7021	7171	
==>ST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $bi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	360	479	
==>elds"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "as <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11749	11864	
==>h, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11749	11864	
==>h, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	344	456	
==>elds"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "as <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23657	23749	
==>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.or <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22430	22522	
==>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.or <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23657	23749	
==>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.or <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22430	22522	
==>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.or <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1528	1652	
==>f defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1528	1652	
==>f defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4411	4507	
==>uperclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6313	6409	
==>uperclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12011	12139	
==>ub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12011	12139	
==>ub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12011	12139	
==>ub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10523	10631	
==>multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11487	11608	
==>safe {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	348	475	
==>|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    l <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31347	31438	
==>ol-returning anonymous function in the argument C<$predicate> returns
True when given the tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35897	35988	
==>ol-returning anonymous function in the argument C<$predicate> returns
True when given the tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35115	35206	
==>ol-returning anonymous function in the argument C<$predicate> returns
True when given the tu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17368	17572	
==>, 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23334	23538	
==>, 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17647	17851	
==>, 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23613	23817	
==>, 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6308	6426	
==>n we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalance <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5381	5499	
==>n we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalance <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6308	6426	
==>n we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalance <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5381	5499	
==>n we have an error, so 
    # we need to throw an exception about it.
    (!@modifier_stack) 
        || die "Unbalance <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6757	6888	
==>-e $file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5915	6034	
==>y($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5915	6034	
==>y($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5915	6034	
==>y($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	488	587	
==>C *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all those <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2808	2906	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2808	2906	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2808	2906	
==>attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1747	1850	
==>ce $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19250	19348	
==>$self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19250	19348	
==>$self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19250	19348	
==>$self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2805	2926	
==>gs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2805	2926	
==>gs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2805	2926	
==>gs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6904	7019	
==>$attrs ) === any( $!heading ));

    return Relation::Example.new(
        heading => $attrs,
        body => set( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12915	13016	
==>tribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12915	13016	
==>tribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12915	13016	
==>tribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	733	833	
==>ead1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1858	1958	
==>ead1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	733	833	
==>ead1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1858	1958	
==>ead1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is free software <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1786	1897	
==>Class); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1786	1897	
==>Class); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1786	1897	
==>Class); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2114	2223	
==>XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI- <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2114	2223	
==>XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI- <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3392	3487	
==>it does not handle time zones or leap
seconds.

All methods take named parameters unless otherwi <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3392	3487	
==>it does not handle time zones or leap
seconds.

All methods take named parameters unless otherwi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4735	4879	
==>= $meta_dir->file( $conf->postinst );
            if( -e $postinst && -s _ ) {
                system( qq[ $^X $postinst ] )                   an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12307	12429	
==>piX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $sy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12307	12429	
==>piX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $sy <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12307	12429	
==>piX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11415	11570	
==>{ 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11415	11570	
==>{ 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11415	11570	
==>{ 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It w <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16084	16188	
==>:unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { en <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	611	730	
==>($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	611	730	
==>($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2473	2581	
==>num->new($i));
        unless ($arg->isa('nil') && $param->to_str->to_native =~ /^\?/) {
            (blessed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5924	6046	
==>, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5924	6046	
==>, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5924	6046	
==>, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$ <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	665	773	
==>se($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	316	410	
==>JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	316	410	
==>JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	316	410	
==>JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11803	12041	
==>idate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11803	12041	
==>idate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11803	12041	
==>idate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @par <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	640	745	
==>" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10110	10285	
==>{
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10110	10285	
==>{
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24785	24881	
==>ribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Frankl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24785	24881	
==>ribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Frankl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10838	10978	
==>_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10832	10972	
==>_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15035	15126	
==>d
the Rosetta Native Interface (RNI), which applications invoke and which
multiple interchan <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15035	15126	
==>d
the Rosetta Native Interface (RNI), which applications invoke and which
multiple interchan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	575	713	
==>ut)) 
                unless defined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLASS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10026	10134	
==>5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10026	10134	
==>5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10026	10134	
==>5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    r <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10354	10454	
==>into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alrea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8247	8347	
==>into the set. Returns the number of items inserted.

It is not fatal to insert an item which is alrea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10354	10454	
==>into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is alrea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8247	8347	
==>into the set. Returns the number of items inserted.

It is not fatal to insert an item which is alrea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5757	5879	
==>p for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5757	5879	
==>p for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5757	5879	
==>p for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5437	5541	
==>spose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5437	5541	
==>spose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3855	3954	
==>tter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3855	3954	
==>tter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the i <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	738	860	
==>g"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	738	860	
==>g"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3414	3523	
==>(@t_dirs) {
    die("Test directory '$_' does not exist. Try --help. ") unless -d $_;
}
$_ = rel2abs($_) for ( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	216	314	
==>>root->subdir(    shift() )  };
use constant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4989	5139	
==>able' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4989	5139	
==>able' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4989	5139	
==>able' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3411	3518	
==>s represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation::Example' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2796	2893	
==>s: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2796	2893	
==>s: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2796	2893	
==>s: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'E <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9943	10092	
==>, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2008	2145	
==>, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2008	2145	
==>, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip <==
4	/Users/nnunley/pugs/util/importgraph.pl	1575	1680	
==>$regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1278	1399	
==>,
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1278	1399	
==>,
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1278	1399	
==>,
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10700	10797	
==>ep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3348	3527	
==>' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3348	3527	
==>' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3348	3527	
==>' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub { <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	478	569	
==>in their <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/public_htm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5575	5680	
==>0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5575	5680	
==>0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5575	5680	
==>0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10300	10402	
==>= ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	905	1021	
==>{ # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	905	1021	
==>{ # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	257	357	
==>er();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	257	357	
==>er();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1993	2109	
==>->to_native]
    );
}

sub length {
    my $self = shift;
    return num->new(scalar(@{$self}));
}

sub elems {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6244	6333	
==>other functions.  

=cut

## ------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6244	6333	
==>other functions.  

=cut

## ------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6244	6333	
==>other functions.  

=cut

## ------------------------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1656	1762	
==>ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1656	1762	
==>ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4940	5040	
==>eturn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_enco <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4940	5040	
==>eturn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_enco <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5374	5563	
==>value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8851	9040	
==>value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7871	8060	
==>value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rel <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4974	5070	
==>ounds(Min,Max), "}", p6_range_greed(W,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	857	949	
==>lude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	857	949	
==>lude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	857	949	
==>lude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8421	8541	
==>HS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	471	581	
==>he actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	471	581	
==>he actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	471	581	
==>he actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7362	7511	
==>params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7362	7511	
==>params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7362	7511	
==>params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12435	12529	
==>ss ((opaque $class:) (str $canidate) (hash %params)) returns opaque
    ((($canidate to_bit) or <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7349	7459	
==>n);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7349	7459	
==>n);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %cha <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1089	1184	
==>($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of cr <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1089	1184	
==>($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of cr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8848	9025	
==>rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{nam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5208	5385	
==>rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6057	6234	
==>rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{nam <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	63	161	
==>e - package namespaces

=head1 SYNOPSIS

 class Role does NameSpace;

=head1 DESCRIPTION

This type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	51	170	
==>Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	51	170	
==>Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	51	170	
==>Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	885	986	
==>evs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39616	39703	
==>and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> fo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24339	24426	
==>and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39616	39703	
==>and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> fo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24339	24426	
==>and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3002	3107	
==>instance_attrs($self)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' class
my $Object = $Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14085	14181	
==>elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14085	14181	
==>elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14085	14181	
==>elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8568	8668	
==>the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '?? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6102	6201	
==>the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '?? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1486	1633	
==>n : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flag <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1435	1577	
==>n : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flag <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8747	8844	
==>ule_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $module <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8747	8844	
==>ule_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	978	1083	
==>y)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Sa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	978	1083	
==>y)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Sa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	978	1083	
==>y)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Sa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31866	31959	
==>y regex containing those assertions will fail to compile and throw an
error (specifically, B<R <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2085	2194	
==>pe",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@progs) {
		my $r = $runtime_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2215	2296	
==>r:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2215	2296	
==>r:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2215	2296	
==>r:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6281	6410	
==>ND;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3226	3334	
==>nd this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3226	3334	
==>nd this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3226	3334	
==>nd this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3254	3384	
==>f $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3254	3384	
==>f $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3254	3384	
==>f $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	10	110	
==>ratoren (nullär)
# der "und so weiter und so fort"-Operator:
$x = {...}	# "yada, yada, yada"
$x = {t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2783	2896	
==>0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2783	2896	
==>0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9390	9501	
==>&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $resu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9390	9501	
==>&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $resu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3472	3574	
==>?) <p6ws>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile(<<'RUL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	677	764	
==>::EigenClass->superclasses([ $::Class ]);

## ------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	677	764	
==>::EigenClass->superclasses([ $::Class ]);

## ------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	677	764	
==>::EigenClass->superclasses([ $::Class ]);

## ------------------------------------------ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4012	4138	
==>ier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4000	4126	
==>ier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1 <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2359	2454	
==>l <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2359	2454	
==>l <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4403	4520	
==>ool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'P <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4403	4520	
==>ool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'P <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4469	4548	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(: <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4469	4548	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11308	11442	
==>f $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11308	11442	
==>f $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2698	2792	
==>r := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2698	2792	
==>r := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	465	556	
==>roperty, and adds nothing else.

More specialised processing instructions may sub-class this <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	465	556	
==>roperty, and adds nothing else.

More specialised processing instructions may sub-class this <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18681	18781	
==>ds {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <AssignmentOperator> < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5389	5502	
==>());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5389	5502	
==>());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5389	5502	
==>());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsna <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4517	4654	
==>sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4657	4794	
==>sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6005	6096	
==>:Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6005	6096	
==>:Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25460	25635	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26118	26293	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25739	25914	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26397	26572	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10449	10605	
==>und
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10449	10605	
==>und
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10449	10605	
==>und
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7275	7414	
==>to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $file );
    my $mask    = -d $file ? 0100 : 0200;
    
    if( $x an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14347	14459	
==>}

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5812	5921	
==>)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flav <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5812	5921	
==>)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flav <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5812	5921	
==>)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flav <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5348	5439	
==>core($head, $tail, $rev, $mid, $wc);
CheckHead($head);
CheckTail($tail);
CheckRev($rev);
Che <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15617	15729	
==>l, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15617	15729	
==>l, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15617	15729	
==>l, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14674	14771	
==>trs)
}

(method CREATE ((opaque $class:) (str $repr) (hash %params)) returns opaque
    ((= %attrs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1182	1279	
==>azy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1182	1279	
==>azy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1182	1279	
==>azy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherite <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39570	39666	
==>hts
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or vis <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39570	39666	
==>hts
reserved.  Address comments, suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or vis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24294	24389	
==>hts reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or vis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24294	24389	
==>hts reserved.
Address comments, suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or vis <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4325	4447	
==>f.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0 <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4325	4447	
==>f.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1359	1443	
==>ailable at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1199	1283	
==>ailable at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15954	16086	
==>rse error: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1041	1150	
==>ion (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1041	1150	
==>ion (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1041	1150	
==>ion (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3195	3357	
==>de: a <prefix>-<name>
            ### implementation;
            my @list = LoadFile( $Available );
            
            my @maybe;
            for my $test ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1264	1388	
==>rent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1264	1388	
==>rent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1264	1388	
==>rent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23359	23451	
==>an F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41283	41375	
==>an F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37309	37401	
==>an F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistr <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20081	20170	
==>LER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefix:<:10> ( <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1140	1298	
==>e);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1140	1298	
==>e);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18552	18658	
==>standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18552	18658	
==>standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21510	21647	
==>y %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21510	21647	
==>y %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21510	21647	
==>y %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subc <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7127	7248	
==>rl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$k} {
                warning "Modifier :$k is not ye <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7448	7592	
==>:constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7641	7785	
==>:constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	66	159	
==>ss defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	66	159	
==>ss defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1936	2181	
==>= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            giv <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1936	2181	
==>= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            giv <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4609	4727	
==>gth? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4609	4727	
==>gth? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4917	5020	
==>etric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4044	4147	
==>etric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4917	5020	
==>etric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4044	4147	
==>etric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2231	2332	
==>it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $vol <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2231	2332	
==>it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $vol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15131	15234	
==>1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15131	15234	
==>1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16507	16600	
==>atabase functionality;
this language, which satisfies TTM's definition of a "D" language, is
d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16507	16600	
==>atabase functionality;
this language, which satisfies TTM's definition of a "D" language, is
d <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2312	2416	
==>};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2290	2394	
==>};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	781	879	
==>vidual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	781	879	
==>vidual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4233	4363	
==>erl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4086	4212	
==>erl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	611	715	
==>Abstract syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	580	680	
==>Abstract syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16927	17075	
==>my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16927	17075	
==>my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( in <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16927	17075	
==>my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	861	952	
==>compiled code

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPY <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2531	2645	
==>ible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2531	2645	
==>ible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1063	1176	
==>circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1063	1176	
==>circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	461	588	
==>nfix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4547	4649	
==>ough ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # reg <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4547	4649	
==>ough ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # reg <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4547	4649	
==>ough ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # reg <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	782	883	
==>E<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1907	2008	
==>E<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	782	883	
==>E<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1907	2008	
==>E<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under
t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1901	2051	
==>->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1901	2051	
==>->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1901	2051	
==>->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5815	5923	
==>p);
    r->prelen = SvLEN(pat);
    if(r->prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7717	7809	
==>irs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_d <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7717	7809	
==>irs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11458	11596	
==>h', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11458	11596	
==>h', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('p <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1905	2003	
==>$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, o <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1905	2003	
==>$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4725	4854	
==>y $source = q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13868	13969	
==>"zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13868	13969	
==>"zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13868	13969	
==>"zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38838	38931	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43652	43745	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43186	43279	
==>l@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6272	6389	
==>$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6272	6389	
==>$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6272	6389	
==>$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18337	18508	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18634	18805	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18616	18787	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18913	19084	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optiona <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5032	5139	
==>n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5032	5139	
==>n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5032	5139	
==>n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2209	2408	
==>nt unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $ol <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2209	2408	
==>nt unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $ol <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6573	6679	
==>d_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6573	6679	
==>d_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4134	4253	
==>e( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return $self->{values}->{features}
    	? @{ $self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	71	177	
==>= shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pEx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	71	177	
==>= shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pEx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	71	177	
==>= shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pEx <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4022	4150	
==>se
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4022	4150	
==>se
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21809	21902	
==>At some appropriate place, usually in the
main program, Locale::KeyedText can be given input t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21809	21902	
==>At some appropriate place, usually in the
main program, Locale::KeyedText can be given input t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9011	9110	
==>nd/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode < <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9011	9110	
==>nd/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode < <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1154	1268	
==>ive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1154	1268	
==>ive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1154	1268	
==>ive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12443	12555	
==>t \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7378	7546	
==>t' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7378	7546	
==>t' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7378	7546	
==>t' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	14	117	
==>elt
class Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9898	10027	
==>],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9898	10027	
==>],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9898	10027	
==>],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2883	3003	
==>join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2932	3052	
==>en ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <= <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2932	3052	
==>en ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <= <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1372	1465	
==>found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pu <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1372	1465	
==>found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1458	1582	
==>=> 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => 'e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1613	1716	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1613	1716	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1613	1716	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $ve <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4723	4857	
==>atch => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4723	4857	
==>atch => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2425	2545	
==>ck

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2609	2729	
==>ck

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6792	6879	
==>olve' => ::make_method($_resolve));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6792	6879	
==>olve' => ::make_method($_resolve));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6792	6879	
==>olve' => ::make_method($_resolve));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	242	335	
==>stPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	242	335	
==>stPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	242	335	
==>stPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4697	4825	
==>omplement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4697	4825	
==>omplement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2767	2861	
==>called before any other methods, as it initialises the list of
parameters.

=item C<$q.params() <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2767	2861	
==>called before any other methods, as it initialises the list of
parameters.

=item C<$q.params() <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7032	7156	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7225	7349	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36219	36307	
==>b']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36219	36307	
==>b']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20851	20958	
==>> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note tha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19768	19875	
==>> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20851	20958	
==>> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19768	19875	
==>> (the current
topic) and C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note tha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18269	18364	
==>:]> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and ranges from being displ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23287	23377	
==>n, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41211	41301	
==>n, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37237	37327	
==>n, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	446	547	
==>turn $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	446	547	
==>turn $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41341	41432	
==>wards improving this module's
documentation, particularly towards using a much shorter and
n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41341	41432	
==>wards improving this module's
documentation, particularly towards using a much shorter and
n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12976	13117	
==>e {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12976	13117	
==>e {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12976	13117	
==>e {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spl <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1861	2002	
==>e {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $size {
        warn "spl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15664	15764	
==>te table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15664	15764	
==>te table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15664	15764	
==>te table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $la <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3087	3177	
==>ft.pod r8649.
&Array::shift := &Array::splice.assuming(:offset(0) :length(1));
## an altern <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10280	10418	
==>t of this match
    to    - string pointer for next match (end+1)
    match - positional submatches
    named - named submatches
    ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27515	27613	
==>es the method
C<FLAG_u>.  This doesn't mean you can use them on C<qr//>, but rather
that you can wr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11892	11989	
==>he same field are retained.

As for the header() method, the field name ($field) is not case
sensi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11892	11989	
==>he same field are retained.

As for the header() method, the field name ($field) is not case
sensi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14851	14968	
==>_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	251	368	
==>];
use Log::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14851	14968	
==>_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14851	14968	
==>_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14855	14980	
==>turn ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5677	5775	
==>nnels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5677	5775	
==>nnels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the chan <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4028	4126	
==>grep { $_ !~ /^_/ } __PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c-indentation-style: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2513	2622	
==>rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2513	2622	
==>rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2513	2622	
==>rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40272	40371	
==>or messages for your sub-class.

  package Your::SubClass;
  # use constant NAME => VALUE, FMTSTRING <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3446	3545	
==>IL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3446	3545	
==>IL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3446	3545	
==>IL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} a <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8486	8583	
==>ses exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::max $cmp, *@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	479	602	
==>:VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	479	602	
==>:VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	479	602	
==>:VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4638	4736	
==>f,$match_hack,$name,$re)=@_;
  #$match_hack - Match creation is one thing which is very cruft in th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1464	1590	
==>->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1464	1590	
==>->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->is <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1464	1590	
==>->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->is <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4892	5005	
==>based on the last test line seen.  C<$pass> is
            #true if it was considered to be a passed test.  C<%tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9609	9700	
==>fo,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9609	9700	
==>fo,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9609	9700	
==>fo,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,[ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5066	5160	
==>or abstraction violation.
# Need to figure out positional constructors.  At least it's isolated <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1403	1512	
==>nite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Da <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1403	1512	
==>nite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Da <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15541	15636	
==>l by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database management <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15541	15636	
==>l by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database management <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6680	6802	
==>colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6680	6802	
==>colon($reason);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7048	7164	
==>colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7048	7164	
==>colon($reason);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24672	24767	
==>r export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exceptio <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24672	24767	
==>r export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exceptio <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	781	878	
==>ce->strptime($date, "%Y-%m-%d %H:%M:%S");
  push @commits,    $time;
  push @developers, $time unl <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	772	868	
==>}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return = <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	772	868	
==>}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53104	53193	
==>tr->new('Class'));
$::Object->send('name'  => str->new('Object'));
$::Package->send('name' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4824	5004	
==>mber_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4824	5004	
==>mber_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	565	652	
==>mar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	565	652	
==>mar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2479	2582	
==>l::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2479	2582	
==>l::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10601	10699	
==>sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVE <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10601	10699	
==>sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVE <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3112	3218	
==>le3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "3rd line\n4th line\n5th line\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4088	4189	
==>e name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4088	4189	
==>e name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4088	4189	
==>e name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8283	8390	
==>rns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7413	7520	
==>rns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8283	8390	
==>rns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7413	7520	
==>rns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1807	1941	
==>should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1807	1941	
==>should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19179	19271	
==>uted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the ma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19179	19271	
==>uted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the ma <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2674	2796	
==>my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2340	2438	
==>args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2340	2438	
==>args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2340	2438	
==>args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9588	9716	
==>Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1681	1801	
==>Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1681	1801	
==>Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1, <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	329	436	
==>Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	329	436	
==>Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28451	28550	
==>his method is also defined as the implicit handler when
coercing this object to a string.

=back

=h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28451	28550	
==>his method is also defined as the implicit handler when
coercing this object to a string.

=back

=h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1295	1435	
==>e(
        '.' => q( <before <Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6457	6577	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6457	6577	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6457	6577	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7027	7134	
==>gram" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7039	7146	
==>gram" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15265	15364	
==>t it
could also be a prompt or response message for interactive systems.

If the program or any of i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15265	15364	
==>t it
could also be a prompt or response message for interactive systems.

If the program or any of i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9856	9969	
==>cal $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9856	9969	
==>cal $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9856	9969	
==>cal $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $te <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14546	14650	
==>(Unspecced) facade class supplying localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4325	4512	
==>other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => 'left',
        precedence => 'looser',
        other => 'Y',
    );
    
    __PACKAGE__->add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2123	2222	
==>Var; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2123	2222	
==>Var; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2123	2222	
==>Var; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12705	12833	
==>'t exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedTex <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12705	12833	
==>'t exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedTex <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1627	1749	
==>s / 500) + 1) * 500,
) or die $graph->error;

my @data = (
  [ 0..@commits_till_day ],              # Day#
  [ 0, @commits_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18646	18762	
==>, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14277	14413	
==>y @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4342	4466	
==>y @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4342	4466	
==>y @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4342	4466	
==>y @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4056	4180	
==>slator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4056	4180	
==>slator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	933	1020	
==>ity_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Location <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	933	1020	
==>ity_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Location <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5093	5233	
==>if ( $ast->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1391	1501	
==>k blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1391	1501	
==>k blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1391	1501	
==>k blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3488	3623	
==>fined( $matches[1]{state} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4417	4550	
==>fined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3378	3511	
==>fined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4417	4550	
==>fined( $matches[1]{state} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2474	2573	
==>S.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2474	2573	
==>S.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2474	2573	
==>S.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23072	23169	
==>item nparen

The number of OPENs (capturing groups) in the regex.

=item captures

An array refere <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11942	12089	
==>r line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (? <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11942	12089	
==>r line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (? <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	72	191	
==>od BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	72	191	
==>od BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9775	9896	
==>($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9775	9896	
==>($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9775	9896	
==>($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11909	12017	
==>) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12332	12440	
==>) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4552	4660	
==>) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4975	5083	
==>) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13718	13834	
==>=~ /(.*)/s;
	$runperl = $1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3969	4066	
==>e\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3969	4066	
==>e\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3969	4066	
==>e\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23079	23180	
==>key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27631	27732	
==>key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26408	26509	
==>key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15651	15839	
==>>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15651	15839	
==>>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15651	15839	
==>>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14280	14386	
==>w(
			type::variable::free->new,
			type::variable::free->new,
		),
		$.fun,
		$.param,
	);

	# first of al <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2440	2559	
==>DDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers o <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2440	2559	
==>DDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers o <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	431	547	
==>ental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't int <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4449	4555	
==>unless $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4110	4228	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4110	4228	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4110	4228	
==>push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10421	10538	
==>ew(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::variable::free->new;
		my $l = type: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5496	5615	
==>_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || conf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5496	5615	
==>_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || conf <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5496	5615	
==>_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || conf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14550	14657	
==>t heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	654	759	
==>say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	654	759	
==>say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	654	759	
==>say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	187	315	
==>die usage();


for my $arg (@ARGV ) {
    
    my($key,$val) = split ':', $arg;
    die usage() if !$key or !$val;
   
   
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34758	34863	
==>ail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34758	34863	
==>ail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34758	34863	
==>ail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	815	949	
==>ule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	815	949	
==>ule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9964	10066	
==>ild.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
} <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9964	10066	
==>ild.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10980	11104	
==>fy( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10980	11104	
==>fy( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10980	11104	
==>fy( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	216	327	
==>er;
use Blondie::TypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	}, $class;
}

sub string { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2102	2325	
==>p ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2102	2325	
==>p ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2102	2325	
==>p ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() no <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3482	3583	
==>clude "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc optable
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10112	10234	
==>ispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10112	10234	
==>ispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10112	10234	
==>ispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_cl <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7228	7336	
==>[-1] !! undef;
    @result;
}


 multi Array::unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1093	1204	
==>$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1093	1204	
==>$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1302	1413	
==>$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2120	2237	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2120	2237	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2120	2237	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4144	4235	
==>$self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1072	1200	
==>$self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1072	1200	
==>$self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1072	1200	
==>$self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24360	24454	
==>xt is entirely object-oriented; you use it
by creating objects from its member classes, usually <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24360	24454	
==>xt is entirely object-oriented; you use it
by creating objects from its member classes, usually <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1063	1156	
==>l and object-oriented interfaces both follow the same basic steps, 
albeit with different inte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1063	1156	
==>l and object-oriented interfaces both follow the same basic steps, 
albeit with different inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15690	15820	
==>o_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15690	15820	
==>o_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15690	15820	
==>o_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9332	9440	
==>local *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TES <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4107	4206	
==>d2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not.

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4107	4206	
==>d2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not.

= <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24279	24373	
==>s simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24279	24373	
==>s simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13657	13765	
==>lass => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1718	1822	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1718	1822	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1718	1822	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2874	3005	
==>foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2874	3005	
==>foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2874	3005	
==>foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9843	9942	
==>evel
  my $iter = $parser->walker(2);  # top- through third-level

The iterator returned is a functi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22895	23014	
==>- 1) . "\n"
              . '{ $Curtest->{name}, $Curtest->{estat},'
              . '  $Curtest->{wstat}, $Curtest->{ma <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	886	982	
==>t_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	886	982	
==>t_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	966	1062	
==>t_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	434	549	
==>eturn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	434	549	
==>eturn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	434	549	
==>eturn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1112	1214	
==>ig{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV) {
    @ARGV = sort map glob, "t/*/*.t", "t/*/*/* <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21859	21966	
==>purposes.
    my $max_namelen = length($failed_str);
    foreach my $script (keys %$failedtests) {
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2652	2753	
==>e are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2652	2753	
==>e are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2652	2753	
==>e are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20495	20595	
==>) : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20495	20595	
==>) : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20495	20595	
==>) : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4100	4210	
==>FILE $makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $self->is_ext <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3080	3180	
==>cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3080	3180	
==>cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3080	3180	
==>cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8521	8613	
==>b_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8521	8613	
==>b_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8521	8613	
==>b_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20528	20619	
==>is>
file as abstract as possible.  F<Regexp::Parser> installs its handlers
in F<Regexp/Parse <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2790	2894	
==>Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2790	2894	
==>Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2870	2974	
==>Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'o <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5559	5683	
==>len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4059	4183	
==>len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	157	262	
==>tion from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::J <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	157	262	
==>tion from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::J <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	777	883	
==>le);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering the behavior of the strap  UNIMP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12765	12867	
==>om_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12765	12867	
==>om_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12765	12867	
==>om_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5270	5380	
==>> $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1815	1923	
==>ut JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1815	1923	
==>ut JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1815	1923	
==>ut JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9574	9689	
==>$1" ) if $taint;

    # When taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1313	1424	
==>false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1313	1424	
==>false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1313	1424	
==>false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal( <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	776	872	
==>admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	802	898	
==>admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3535	3627	
==>head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3535	3627	
==>head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1823	1938	
==>k($pass, _where(), $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9636	9734	
==>nvocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9636	9734	
==>nvocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9636	9734	
==>nvocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3419	3550	
==>kage => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1302	1406	
==>nline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1302	1406	
==>nline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1302	1406	
==>nline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7802	7895	
==>sa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7802	7895	
==>sa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7802	7895	
==>sa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1437	1554	
==>ance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1642	1759	
==>ance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1703	1820	
==>ance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the super <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	980	1073	
==>ght benefit from its existence.  Normally this
# kind of reverse-engineered implicit abstracti <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10507	10635	
==>a} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1328	1423	
==>e {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1328	1423	
==>e {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1328	1423	
==>e {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14278	14389	
==>ect => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_array {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	455	547	
==>nge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	455	547	
==>nge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	455	547	
==>nge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr)) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3296	3426	
==>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<Package>).add_children(
                    Tree. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	496	596	
==>d_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	496	596	
==>d_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	496	596	
==>d_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1296	1399	
==>eturns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
metho <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1296	1399	
==>eturns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
metho <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2548	2634	
==>at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nn <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2548	2634	
==>at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nn <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4660	4781	
==>/^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4853	4974	
==>/^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tai <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4753	4872	
==>$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4811	4930	
==>$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	322	554	
==>S_FILE        => sub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28217	28332	
==>pture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28496	28611	
==>pture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dum <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1600	1692	
==>class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy s <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1600	1692	
==>class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8891	9038	
==>negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14620	14767	
==>negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8891	9038	
==>negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14614	14761	
==>negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7564	7688	
==>- $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7564	7688	
==>- $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7564	7688	
==>- $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3105	3194	
==>ay::shift := &Array::splice.assuming(:offset(0) :length(1));
## an alternate implementatio <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	108	231	
==>nfinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Dat <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	116	239	
==>nfinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Dat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	108	231	
==>nfinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Dat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	116	239	
==>nfinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differences from Perl5 Dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4592	4696	
==>_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4592	4696	
==>_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4592	4696	
==>_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_st <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1281	1381	
==><[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8623	8739	
==>X needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code),0);
      SPAGA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1384	1472	
==>e('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1384	1472	
==>e('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1384	1472	
==>e('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2734	2852	
==>mlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2734	2852	
==>mlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13894	14002	
==>->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13894	14002	
==>->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6589	6701	
==>ody:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6589	6701	
==>ody:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6589	6701	
==>ody:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack - <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	301	402	
==>e 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 M <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3735	3840	
==>ine\n".
        "9th line\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd lin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1583	1679	
==>, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1583	1679	
==>, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1583	1679	
==>, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	501	632	
==>);
    $path    =~ s/$Ext$//;

    ### check if it is already installed
    {   my @list = LoadFile( $Available );
        if ( grep <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12312	12404	
==>vification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12312	12404	
==>vification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12312	12404	
==>vification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5986	6107	
==>bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2463	2568	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2463	2568	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2463	2568	
==>ew PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19435	19693	
==>$other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19435	19693	
==>$other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19435	19693	
==>$other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $t <==
4	/Users/nnunley/pugs/util/package-osx.pl	3876	3973	
==>le::A03.3pm
        /usr/local/man/man3/Perl6::Bible::A04.3pm
        /usr/local/man/man3/Perl6::B <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17439	17554	
==>are no longer I<star>, I<plus>, and I<curly> classes; they have been
combined into one class, I<quantifier>.  You pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1517	1641	
==>ze_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domai <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1517	1641	
==>ze_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11378	11494	
==>]     return { bool => 1, tail => \$_[0] } }\n"
        unless $code =~ /return/;
    return "#return-block#" . $code <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35013	35107	
==>s method
degenerates into an C<intersection> if the two source headings are
identical.  This me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39563	39657	
==>s method
degenerates into an C<intersection> if the two source headings are
identical.  This me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39105	39199	
==>s method
degenerates into an C<intersection> if the two source headings are
identical.  This me <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22148	22241	
==>The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21029	21122	
==>The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22148	22241	
==>The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21029	21122	
==>The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo event (i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13317	13608	
==>$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bou <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13317	13608	
==>$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bou <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13317	13608	
==>$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bou <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	153	260	
==>r;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that get decla <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	40	139	
==>ore::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17909	17999	
==>_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17909	17999	
==>_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17909	17999	
==>_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17512	17653	
==>er {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20989	21130	
==>er {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20576	20717	
==>er {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13747	13862	
==>bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  err_bracket:
    parse_error(mob, pos <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2707	2821	
==>_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7221	7311	
==>pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pSubParams, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1253	1370	
==>gify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1253	1370	
==>gify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1253	1370	
==>gify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	348	461	
==>$src = join('', @a);
    my $match = Pugs::Grammar::Perl6->parse( $src );
    #use YAML;
    #print Dump $match <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4271	4409	
==>y: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1620	1710	
==>for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1620	1710	
==>for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1620	1710	
==>for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	501	619	
==>GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	472	590	
==>GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	501	619	
==>GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	501	619	
==>GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2723	2938	
==>d ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2723	2938	
==>d ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.spa <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1665	1780	
==>ib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 po <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1665	1780	
==>ib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2826	2927	
==>&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2826	2927	
==>&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2826	2927	
==>&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15720	15816	
==>xplanation of the execution of a regex.  Will
be able to produce HTML output that color-codes the <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1214	1368	
==>1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+------- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3510	3664	
==>1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1214	1368	
==>1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3510	3664	
==>1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7851	7954	
==>p {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_nee <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7851	7954	
==>p {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_nee <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7851	7954	
==>p {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_nee <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9246	9350	
==>if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_k <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9246	9350	
==>if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_k <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1972	2072	
==>ype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Pe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1972	2072	
==>ype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Pe <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4870	5018	
==>ie
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # t <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4870	5018	
==>ie
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1191	1296	
==>xpected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $go <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1249	1354	
==>xpected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8035	8149	
==>valX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8035	8149	
==>valX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8035	8149	
==>valX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11647	11747	
==>AL LETTER R}';
  my $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3315	3447	
==>= get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4164	4296	
==>= get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	535	634	
==>til::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	535	634	
==>til::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2188	2298	
==>base(10);


 multi Math::Basic::rand ( Num $x = 1 --> Num )
 {
     Pugs::Internals::rand($x);
 }


 multi  Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5661	5763	
==>os, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5661	5763	
==>os, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5661	5763	
==>os, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->u <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11621	11741	
==>modfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	708	812	
==>lice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	708	812	
==>lice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy list <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	708	812	
==>lice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12467	12582	
==>"+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12467	12582	
==>"+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12467	12582	
==>"+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1103	1190	
==>dition => $() } }
RULE
*{'meth_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5715	5837	
==>}( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5715	5837	
==>}( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method ne <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11364	11459	
==>and from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11364	11459	
==>and from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23597	23807	
==>d to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23597	23807	
==>d to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23597	23807	
==>d to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4004	4115	
==>al' not try to load a module. XXX: add a real inc class to
    # interface %*INC, instead of this hack.
    # %* <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	164	268	
==>t "$wer hat einen $haustier\n";
print "$wer mag @obst[0] und @obst[1]\n";
print "{$wer}s Lieblingsfarbe i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	391	489	
==>dent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	391	489	
==>dent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	391	489	
==>dent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14094	14213	
==>urn (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local string target
    .local int pos, lastpos
    .local p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12877	12991	
==>[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12877	12991	
==>[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12877	12991	
==>[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4039	4172	
==>$i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4039	4172	
==>$i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4039	4172	
==>$i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4716	4816	
==>ge type::operator::nary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $cla <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10232	10360	
==>ry { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10232	10360	
==>ry { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9768	9877	
==>rn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We wa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9768	9877	
==>rn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We wa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12531	12858	
==>essage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12531	12858	
==>essage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Ke <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2536	2655	
==>ot succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # las <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2536	2655	
==>ot succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	533	634	
==>te, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	533	634	
==>te, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	533	634	
==>te, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37354	37439	
==>mbol->new('%:private_methods') => attribute->new('%:private_methods' => 'hash')));
$:: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11625	11737	
==>--> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of_line([C|T]) --> [C], rest_of_line(T).
rest_of_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	229	338	
==>args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	229	338	
==>args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	229	338	
==>args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	266	417	
==>perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	266	417	
==>perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	266	417	
==>perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1879	1980	
==>rens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address;
  my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12239	12353	
==>te_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8515	8629	
==>te_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9350	9464	
==>te_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	459	567	
==>= shift;
    $flavor =~ s/\W//g;

    die "Usage: use re::override-flavor" unless $flavor;

    unless ($inse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5670	5851	
==>},
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5670	5851	
==>},
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5670	5851	
==>},
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary-> <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15368	15480	
==>the last char within the capture.
n=0 is the total match?

  U32 lastparen;          /* last paren matched */
  U <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3901	4041	
==>qual',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'loo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3655	3747	
==>bal_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$don <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3655	3747	
==>bal_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$don <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3655	3747	
==>bal_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$don <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1647	1752	
==>e        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1647	1752	
==>e        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1647	1752	
==>e        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2601	2702	
==>lias");
    $optable->addToken("prefix::", "<infix:|", "nows", &parse_modifier);
    $optable->addToke <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	916	1034	
==>cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	916	1034	
==>cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3185	3298	
==>onfig());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** NOTE ***
    DO NOT EDIT THIS FILE <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15633	15739	
==>look, with @ids being class level.
        #my @ids = <year month day hour min sec picosec wday yday tzname <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19321	19427	
==>oin '', $ML, @_ if $ML;
}


# For slow connections, we save lots of bandwidth by printing only once
# per s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	719	822	
==>rncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	719	822	
==>rncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	719	822	
==>rncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7480	7630	
==>0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7480	7630	
==>0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7480	7630	
==>0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, en <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25666	25767	
==>aracterEscape>
    | <CharacterClassEscape>
}
rule CharacterEscape {  # see 15.10.1
      <ControlEsca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8984	9092	
==>K
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter.
# Arguments :
#   swit <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24660	24802	
==>= sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14434	14545	
==>fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14434	14545	
==>fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14434	14545	
==>fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6883	6985	
==>error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6895	6997	
==>error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{cap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2276	2369	
==>Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2365	2458	
==>Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4669	4772	
==>n if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4669	4772	
==>n if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6193	6296	
==>n if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	756	847	
==>pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Valid <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	756	847	
==>pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Valid <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6474	6562	
==>elf.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6474	6562	
==>elf.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4909	5023	
==>thod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4909	5023	
==>thod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4909	5023	
==>thod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retur <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11560	11661	
==>r this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11560	11661	
==>r this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39228	39314	
==>::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATI <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39228	39314	
==>::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	567	671	
==>x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	567	671	
==>x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	567	671	
==>x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3136	3238	
==>:Example's attributes.
        # Note that it is valid for a Relation::Example to have zero attributes. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	513	664	
==>') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	513	664	
==>') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9086	9175	
==>mmar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2911	3000	
==>mmar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
p <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6148	6258	
==>0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue""pParams""pType"
        dbg " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1099	1199	
==>pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1099	1199	
==>pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1099	1199	
==>pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12972	13084	
==>ttribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12972	13084	
==>ttribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12972	13084	
==>ttribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	389	501	
==>compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11217	11345	
==>oized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11217	11345	
==>oized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11217	11345	
==>oized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0] <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1438	1536	
==>turn JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[ <==
4	/Users/nnunley/pugs/util/package-osx.pl	10238	10354	
==>ub create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	970	1083	
==>"~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	970	1083	
==>"~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	970	1083	
==>"~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1451	1548	
==>_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1451	1548	
==>_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1451	1548	
==>_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13851	13967	
==>obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13851	13967	
==>obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13851	13967	
==>obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6230	6339	
==>nless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($sel <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5974	6085	
==>d

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5974	6085	
==>d

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $spa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	285	386	
==>ch lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::Jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	285	386	
==>ch lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::Jo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6002	6092	
==>TP::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6002	6092	
==>TP::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12423	12506	
==>R) --> hexdigits_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18144	18253	
==>o->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$metho <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3379	3486	
==>}
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event han <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3379	3486	
==>}
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event han <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18540	18633	
==>er and remove
any embedded class that is I<entirely> redundant (that is, I<every>
character in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	92	198	
==>porarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	92	198	
==>porarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	92	198	
==>porarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('n <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6414	6510	
==>INE$/, @_;
    push @pkgs, -package => 'plugins', -package => 'haskell-src' if grep /^-DPUGS_HAVE <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3706	3804	
==>e Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3706	3804	
==>e Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3706	3804	
==>e Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7654	7748	
==>sub { $_[1]->instantiate($_[0]) };

# an instantiated variable will unify it's instantiated val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4747	4839	
==>hatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origina <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4747	4839	
==>hatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origina <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4747	4839	
==>hatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origina <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28193	28287	
==>s_debug_string()>

This method returns a stringified version of this object which is suitable
f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35549	35643	
==>s_debug_string()>

This method returns a stringified version of this object which is suitable
f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28193	28287	
==>s_debug_string()>

This method returns a stringified version of this object which is suitable
f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35549	35643	
==>s_debug_string()>

This method returns a stringified version of this object which is suitable
f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	629	784	
==>classes
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4419	4512	
==>item B<create( *@args )>

This method actually creates and returns a new Test::Builder instanc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4419	4512	
==>item B<create( *@args )>

This method actually creates and returns a new Test::Builder instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5943	6036	
==>item B<create( *@args )>

This method actually creates and returns a new Test::Builder instanc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9159	9259	
==>ll  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9159	9259	
==>ll  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9159	9259	
==>ll  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @x <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4399	4505	
==>ush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4399	4505	
==>ush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2671	2768	
==>>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be ca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2671	2768	
==>>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2862	2966	
==>kTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2862	2966	
==>kTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2862	2966	
==>kTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	690	782	
==>$p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->ne <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	692	796	
==>, ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier ind <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	692	796	
==>, ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier ind <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3940	4036	
==>::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3940	4036	
==>::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11380	11521	
==>send('add_method' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	201	312	
==>2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	201	312	
==>2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	201	312	
==>2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10001	10156	
==>::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10001	10156	
==>::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10001	10156	
==>::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17482	17598	
==>";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{max}, timestr($tot->{benc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4700	4825	
==>ethods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1442	1536	
==>(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1442	1536	
==>(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1442	1536	
==>(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{pre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11809	11969	
==>\n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    prin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8091	8251	
==>\n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8925	9085	
==>\n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    prin <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	448	543	
==>-touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_output();

inline(), exit 0 if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2868	3005	
==>=> $_[1], name => $_[2], block => $_[4], %{$_[3]} } }
    | SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2191	2286	
==>0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2191	2286	
==>0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2191	2286	
==>0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6576	6710	
==>he first method
    my $_add_method = method->new(
            $::ENV,
            method::signature->new(
                params => me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21445	21543	
==>a( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21445	21543	
==>a( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21445	21543	
==>a( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SU <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7669	7819	
==>NT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*AR <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7669	7819	
==>NT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*AR <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4520	4664	
==>ed file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4742	4886	
==>ed file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6120	6276	
==>chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6120	6276	
==>chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38421	38515	
==>ars into it, where each variable value is
substituted for any occurance of its corresponding va <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38421	38515	
==>ars into it, where each variable value is
substituted for any occurance of its corresponding va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2662	2759	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	85	182	
==>ler/;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2662	2759	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2662	2759	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11329	11460	
==>^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_enti <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11329	11460	
==>^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_enti <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	186	280	
==>ator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	186	280	
==>ator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1641	1755	
==>ke_node_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $args[-1]->to;
    my $str = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	954	1044	
==>coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	954	1044	
==>coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	954	1044	
==>coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3784	3975	
==>Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3490	3596	
==>0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3490	3596	
==>0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3490	3596	
==>0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11748	11844	
==>nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11748	11844	
==>nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
D <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16747	16841	
==>ite a self-contained application in
Rosetta D and compile that into its own executable, in prac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16747	16841	
==>ite a self-contained application in
Rosetta D and compile that into its own executable, in prac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7873	7973	
==>L2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7873	7973	
==>L2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7873	7973	
==>L2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2657	2765	
==>e)) .") = $res (type = " . $self->display_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3567	3671	
==>a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3567	3671	
==>a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3567	3671	
==>a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1405	1512	
==>bz2";
my $kernel_local = "vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6949	7054	
==>mDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posB <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6949	7054	
==>mDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posB <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3848	3953	
==>mDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posB <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13858	13958	
==>tine
is called with two parameters; the name of the field and a single
value (a string).  If a header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13858	13958	
==>tine
is called with two parameters; the name of the field and a single
value (a string).  If a header <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1192	1287	
==>ty_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respon <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1192	1287	
==>ty_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1681	1785	
==>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1681	1785	
==>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variable <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1681	1785	
==>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variable <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	796	888	
==>d1 DESCRIPTION

Provides runtime routines for the Perl6-in-Perl5 compiled code

=head1 AUTHOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3097	3286	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3097	3286	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3097	3286	
==>ef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "arg <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2619	2744	
==>die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.sp <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3655	3780	
==>die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2619	2744	
==>die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3655	3780	
==>die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8938	9066	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9131	9259	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alter <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17375	17468	
==>s these
benefits to developers and users alike.

For some practical examples of Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17375	17468	
==>s these
benefits to developers and users alike.

For some practical examples of Locale::KeyedT <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7440	7560	
==>ERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE | <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7440	7560	
==>ERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE | <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	710	814	
==>end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	710	814	
==>end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6274	6402	
==>( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaini <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29530	29624	
==>plit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34082	34176	
==>plit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33246	33340	
==>plit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attribu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4618	4736	
==>elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4618	4736	
==>elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2385	2493	
==>ers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2385	2493	
==>ers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1696	1820	
==>butes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1696	1820	
==>butes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1696	1820	
==>butes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        op <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19229	19317	
==>F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7040	7207	
==>>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2110	2216	
==>ude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2110	2216	
==>ude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2110	2216	
==>ude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5245	5393	
==>ltiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multili <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5245	5393	
==>ltiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multili <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5245	5393	
==>ltiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multili <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31510	31608	
==>n

Whether this object creates a deeper scope (like an OPEN).

=item ifthen

Whether this object ha <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	510	648	
==>w();
    $local_env->next($env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1900	2002	
==>re
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1900	2002	
==>re
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1900	2002	
==>re
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2726	2822	
==>emp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6178	6274	
==>emp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2726	2822	
==>emp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2726	2822	
==>emp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13098	13326	
==>'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canid <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	362	449	
==>$qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	362	449	
==>$qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	362	449	
==>$qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3175	3274	
==>load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3175	3274	
==>load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3175	3274	
==>load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	593	687	
==>ry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

gi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13129	13272	
==>->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4006	4102	
==>trict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use cons <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4006	4102	
==>trict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use cons <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4006	4102	
==>trict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1132	1244	
==>d
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1132	1244	
==>d
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1132	1244	
==>d
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9579	9686	
==>d_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9579	9686	
==>d_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3375	3473	
==>!! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3433	3531	
==>!! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5445	5571	
==>ens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5445	5571	
==>ens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5445	5571	
==>ens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19184	19279	
==>elf: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('add_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15647	15753	
==>ading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) retur <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19124	19230	
==>ading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3334	3438	
==>)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"lit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3518	3622	
==>)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"lit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8355	8592	
==>($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8355	8592	
==>($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8355	8592	
==>($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1846	1991	
==>rule(
        name => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - co <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4163	4322	
==>] )
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	186	280	
==>x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	186	280	
==>x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	186	280	
==>x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15423	15521	
==>y extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15423	15521	
==>y extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the No <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	995	1088	
==>returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B< <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	995	1088	
==>returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9228	9335	
==>r)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9228	9335	
==>r)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9228	9335	
==>r)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1079	1183	
==>rop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1833	1937	
==>rop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1079	1183	
==>rop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1833	1937	
==>rop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18415	18519	
==>x->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13100	13198	
==>:Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13100	13198	
==>:Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13100	13198	
==>:Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	528	661	
==>ext.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	528	661	
==>ext.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	528	661	
==>ext.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18342	18457	
==>e );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	816	969	
==>@{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11279	11411	
==>lare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11279	11411	
==>lare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11279	11411	
==>lare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5692	5792	
==>chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5692	5792	
==>chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	149	247	
==>inite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set:: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	149	247	
==>inite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14626	14818	
==>ny( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18103	18295	
==>ny( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17519	17711	
==>ny( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10265	10414	
==>join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$test{ml}ok\n";
            } elsif (defined $test{skip_all} and leng <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4466	4581	
==>match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4466	4581	
==>match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7109	7204	
==>to add some information to the output.

A default implementation of this method is provided whic <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7109	7204	
==>to add some information to the output.

A default implementation of this method is provided whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1738	1839	
==>aScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1738	1839	
==>aScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1738	1839	
==>aScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25922	26019	
==>_ANCH_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36765	36862	
==>in C<(?(>)

=head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string with contents of as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6141	6251	
==>stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6141	6251	
==>stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6141	6251	
==>stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descripti <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2748	2850	
==>}{'no_index'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6722	6835	
==>y $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1164	1271	
==>y $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1164	1271	
==>y $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1164	1271	
==>y $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3003	3124	
==>ie "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3003	3124	
==>ie "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3003	3124	
==>ie "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\ <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2464	2564	
==>.) then "foo" is the name of the subscription
        method add_subscription (String $name, $subscri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	958	1090	
==>lsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	958	1090	
==>lsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	958	1090	
==>lsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curre <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11346	11442	
==>of a sub-class that adds a handler, the qr() method is used to produce
the Perl regex implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	153	280	
==>draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	956	1060	
==>i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	956	1060	
==>i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	956	1060	
==>i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2463	2570	
==>d for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2463	2570	
==>d for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2463	2570	
==>d for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2216	2341	
==>to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5692	5798	
==>IL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5692	5798	
==>IL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5692	5798	
==>IL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we ca <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3256	3368	
==>',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3256	3368	
==>',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	923	1018	
==>not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	923	1018	
==>not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2189	2304	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2584	2699	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2247	2362	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2642	2757	
==>sc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $!) {
        Test::p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1161	1294	
==>method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1161	1294	
==>method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expe <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14991	15093	
==>ntics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14991	15093	
==>ntics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4833	5034	
==>sh( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4833	5034	
==>sh( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4833	5034	
==>sh( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1408	1547	
==>d_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_sta <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4647	4786	
==>d_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1408	1547	
==>d_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4647	4786	
==>d_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24797	24901	
==>easy access to the parser
object's most important attributes:

  # access to the regex
    # reference to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5472	5573	
==>ly qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5472	5573	
==>ly qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5472	5573	
==>ly qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1733	1901	
==>>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_inde <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1733	1901	
==>>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_inde <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1733	1901	
==>>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_inde <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4046	4148	
==>ection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4046	4148	
==>ection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5742	5837	
==>:Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
mul <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7446	7556	
==>rep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell-src -any';
    }

    if (gre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3660	3752	
==>ebug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3660	3752	
==>ebug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3660	3752	
==>ebug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10294	10443	
==>rent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10294	10443	
==>rent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10294	10443	
==>rent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       e <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1111	1212	
==>o continue for a while on
# Regexp::Parser.  But it's not worth working to finish.  So, we
# bootstrap <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3153	3267	
==>at} = PGE_OPTABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

sub pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	624	721	
==>e $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	624	721	
==>e $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	624	721	
==>e $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4280	4396	
==>et {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3407	3523	
==>et {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4280	4396	
==>et {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3407	3523	
==>et {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.un <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3859	4203	
==>port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3859	4203	
==>port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9317	9406	
==>ammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3142	3231	
==>ammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6138	6249	
==>e::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6138	6249	
==>e::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6138	6249	
==>e::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descrip <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	852	952	
==>:Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# get the format specified on the command <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7900	8011	
==>E1,[E2,...]   Exclude files
    --anonymous, -a         Do not include ~/.smoker.yml data in report
.
    exit 0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28998	29098	
==>ed, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28998	29098	
==>ed, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	353	449	
==>ed, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2713	2938	
==>f->_reset_file_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20162	20337	
==>tems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20162	20337	
==>tems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20162	20337	
==>tems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2689	2792	
==>blessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3311	3411	
==>lf->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3311	3411	
==>lf->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3311	3411	
==>lf->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]-> <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22878	22975	
==>TILINE

 ROPT_ANCH 
 ROPT_ANCH_BOL 
 ROPT_ANCH_GPOS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH_SBOL 
 ROPT_ANCH_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35273	35369	
==>al
to C<join> except that this method will fail if any of its source Relations
have attributes in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39823	39919	
==>al
to C<join> except that this method will fail if any of its source Relations
have attributes in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39383	39479	
==>al
to C<join> except that this method will fail if any of its source Relations
have attributes in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12046	12193	
==>t->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12046	12193	
==>t->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12046	12193	
==>t->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Arr <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4070	4190	
==>AX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4070	4190	
==>AX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1495	1590	
==>SLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1335	1430	
==>SLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7758	7880	
==>debug->{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9326	9442	
==>debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9326	9442	
==>debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7496	7611	
==>debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4444	4582	
==>ed,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4444	4582	
==>ed,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4444	4582	
==>ed,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = su <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11606	11738	
==>:Check->last_error ), return;

    my $alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11631	11726	
==>eta-model , any Class instances, themselves does Role since they
are just instances of Class whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11631	11726	
==>eta-model , any Class instances, themselves does Role since they
are just instances of Class whi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11631	11726	
==>eta-model , any Class instances, themselves does Role since they
are just instances of Class whi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3753	3844	
==>'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	173	278	
==>Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $class = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7433	7533	
==>operators take a list of match operators, and return a new 

match operator.



A ruleop() function g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7180	7277	
==>operators take a list of match operators, and return a new 
match operator.

A ruleop() function g <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10269	10365	
==>nBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
rule RegularEx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31063	31174	
==>The parser object with which it was created.

=item flags

The flags for the object.

=back

The following attri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3584	3689	
==>}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3584	3689	
==>}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3584	3689	
==>}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14826	14970	
==>i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14826	14970	
==>i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14826	14970	
==>i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resu <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3170	3314	
==>i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11740	11892	
==>} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "ent <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11740	11892	
==>} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "ent <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11740	11892	
==>} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "ent <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33312	33429	
==>cut

$::Class->send('add_method' => (
    # method label
        symbol->new('is_a'),
    # method body
        method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11148	11268	
==>::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11148	11268	
==>::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11148	11268	
==>::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5719	5861	
==>r ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5731	5873	
==>r ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2514	2645	
==>varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ] <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2514	2645	
==>varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	432	550	
==>"$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	432	550	
==>"$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4399	4494	
==>s($Object->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6301	6396	
==>s($Object->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	6	97	
==>ta.pl. Santa Claus golf game test program.
# For more detail: http://www.perlmonks.org/?node <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	822	912	
==>-------------
# Regexps
# --------------------------------------------------



our $re_sig <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6267	6387	
==>$class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fami <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4758	4855	
==>ter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4758	4855	
==>ter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6955	7052	
==>ter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3669	3761	
==>_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14951	15043	
==>hannel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $passwor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3669	3761	
==>_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14951	15043	
==>hannel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $passwor <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1653	1779	
==>alse;
    if $O.property_value.exists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	408	507	
==>plement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	408	507	
==>plement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	408	507	
==>plement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-0 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3720	3886	
==>GE_INSTALLED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installed')}; 
use constant I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2785	2889	
==>, $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2785	2889	
==>, $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2785	2889	
==>, $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4634	4798	
==>_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4634	4798	
==>_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4634	4798	
==>_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $meth <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	87	190	
==>r ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=head1 NAME

Class--Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	489	595	
==>e end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	489	595	
==>e end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->com <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3093	3182	
==>r).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3093	3182	
==>r).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Se <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6177	6274	
==>to the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6177	6274	
==>to the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the heade <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15784	15879	
==>e to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its au <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15784	15879	
==>e to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its au <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	69	200	
==>en {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	69	200	
==>en {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	944	1041	
==>GIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	944	1041	
==>GIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Comp <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8592	8697	
==>%mods{'ov'} || %mods{'overlap'};
    my $ex = %mods{'ex'} || %mods{'exhaustive'};
    my $adverbs = join(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2259	2353	
==>{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2259	2353	
==>{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2259	2353	
==>{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1172	1273	
==>rom_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1172	1273	
==>rom_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1172	1273	
==>rom_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	419	511	
==>ree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser::Diagnostics;
use Regexp::P <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2632	2831	
==>($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                el <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1322	1521	
==>($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                el <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2632	2831	
==>($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                el <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1322	1521	
==>($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                el <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	15	143	
==>k_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	15	143	
==>k_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1891	2018	
==>se {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1891	2018	
==>se {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3085	3256	
==>checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a sec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3085	3256	
==>checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a sec <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2590	2685	
==>C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2590	2685	
==>C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6104	6221	
==>:str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6116	6233	
==>:str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3356	3468	
==>";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub emit_grammar_perl5 {
    # item=>'<item>',
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37821	37929	
==>!$pos,
    }, $class;
    return $self;
  }

We've added a C<neg> attribute, and removed both C<type> and C<r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8519	8615	
==>s set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8519	8615	
==>s set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8519	8615	
==>s set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11183	11273	
==>escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22486	22600	
==>ason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket usually stays conne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21340	21454	
==>ason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket usually stays conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22486	22600	
==>ason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket usually stays conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21340	21454	
==>ason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socket usually stays conne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	542	661	
==>f);
	}

	sub values { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $class;
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16395	16484	
==>ans "whatever annotation went with this attribute when it's declared"
$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16395	16484	
==>ans "whatever annotation went with this attribute when it's declared"
$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16395	16484	
==>ans "whatever annotation went with this attribute when it's declared"
$::Class->add_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13511	13674	
==>= $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13511	13674	
==>= $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13511	13674	
==>= $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2396	2559	
==>= $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $si <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3780	3878	
==>embers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mult <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3780	3878	
==>embers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mult <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11031	11124	
==>($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11031	11124	
==>($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1305	1435	
==>urn { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1305	1435	
==>urn { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<state <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3384	3495	
==>shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$current' => $e->get('&dispatcher <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	24	129	
==>nings;
use strict;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15530	15641	
==>ms}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15530	15641	
==>ms}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15530	15641	
==>ms}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6020	6120	
==>» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5150	5250	
==>» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6020	6120	
==>» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5150	5250	
==>» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23700	23841	
==>=> \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7280	7386	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7280	7386	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7280	7386	
==>w_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	345	470	
==>You must provide a name for your symbol";
    bless { 
        name => $name,
        type => $type || 'type',
    } => $class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12024	12138	
==>his;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12024	12138	
==>his;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12024	12138	
==>his;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3207	3315	
==>e nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3207	3315	
==>e nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normali <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3788	3892	
==>e nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3788	3892	
==>e nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normali <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1242	1348	
==>rt
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1242	1348	
==>rt
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1322	1428	
==>rt
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) i <==
4	/Users/nnunley/pugs/util/config_h.pl	596	693	
==>pen OUT, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) {
    /version (\S+) .*\breleas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4533	4676	
==>v = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shoul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4533	4676	
==>v = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shoul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4533	4676	
==>v = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shoul <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11559	11674	
==>ode);
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15962	16073	
==>f the line is a "Bail out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9513	9616	
==>iag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reaso <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1612	1709	
==>iag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reaso <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1612	1709	
==>iag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reaso <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	312	416	
==>-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	312	416	
==>-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	312	416	
==>-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	822	918	
==>( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Token->compile(q( \: <ru <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1737	1859	
==>::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1999	2121	
==>::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1737	1859	
==>::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1999	2121	
==>::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5598	5701	
==>=> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5598	5701	
==>=> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5598	5701	
==>=> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
} <==
4	/Users/nnunley/pugs/util/run-smoke.pl	353	449	
==>uired modules installed.
Please install it from the CPAN and try again.

A bundle is available to <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	15	128	
==>{ say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	15	128	
==>{ say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	15	128	
==>{ say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3940	4043	
==>lf->invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3073	3182	
==>ell, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3073	3182	
==>ell, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3073	3182	
==>ell, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36795	36891	
==>y: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 logical

Fami <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	441	568	
==>tfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2069	2178	
==>n $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2069	2178	
==>n $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2318	2416	
==>ts are objects in the Perl 6 class system.

These objects are changed when you define new traits of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4099	4211	
==>($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4099	4211	
==>($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4099	4211	
==>($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	173	269	
==>head1 NAME

Blondie::Prelude::Strings - String related builtins

=head1 SYNOPSIS

    use Blondie <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8978	9096	
==>),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8978	9096	
==>),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14816	14912	
==>cters in header field
values will be substituted with this line ending sequence.

=back

=head1 C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14816	14912	
==>cters in header field
values will be substituted with this line ending sequence.

=back

=head1 C <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4188	4303	
==>ndex given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected n <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4188	4303	
==>ndex given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected n <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	376	478	
==>reviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	376	478	
==>reviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	882	1040	
==>b { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	882	1040	
==>b { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	882	1040	
==>b { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3385	3492	
==>= shift; $s =~ s!'!\\'!g; $s }

sub emit_grammar_perl5 {
    # item=>'<item>',
    my ($self, $default) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6980	7097	
==>eol' :
      'eol';
    return $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19626	19716	
==>[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19626	19716	
==>[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19626	19716	
==>[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	820	969	
==>'      =>      $params{'$.passed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	671	767	
==>from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	671	767	
==>from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	671	767	
==>from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes: <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	626	766	
==>{
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.p <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	626	766	
==>{
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.p <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2506	2628	
==>s);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    unshif <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24324	24425	
==>ich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23097	23198	
==>ich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24324	24425	
==>ich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23097	23198	
==>ich are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3871	3993	
==>erbose};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1700	1816	
==>ublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1700	1816	
==>ublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1700	1816	
==>ublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4753	4880	
==>_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5057	5184	
==>_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4946	5073	
==>_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5250	5377	
==>_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4135	4242	
==>an't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4135	4242	
==>an't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4135	4242	
==>an't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30793	30889	
==>.  You want to go along
the I<object>'s inheritance tree.  Use Damian Conway's F<NEXT> module
ins <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	912	1018	
==>self = bless {}, $class;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub regex { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	105	208	
==>bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	105	208	
==>bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	105	208	
==>bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.B <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4540	4651	
==>++ for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4540	4651	
==>++ for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!ca <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3884	3970	
==>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignme <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3884	3970	
==>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignme <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5793	5897	
==>\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns S <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5793	5897	
==>\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3263	3353	
==>ives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3148	3234	
==>ives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	771	882	
==>entry => '', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", topic => $topi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	992	1093	
==>m < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to continue the previous mat <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3864	3947	
==>--------------------------------------------------------------------------
## removi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3864	3947	
==>--------------------------------------------------------------------------
## removi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4375	4482	
==>.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4375	4482	
==>.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4375	4482	
==>.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	44	149	
==>use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] if $ARGV[1];

s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20150	20249	
==>mpletely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20150	20249	
==>mpletely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23403	23496	
==>ta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation fi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23403	23496	
==>ta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation fi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13628	13743	
==>eeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke report" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2175	2272	
==>make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2175	2272	
==>make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2175	2272	
==>make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1637	1762	
==>specced::e);
 }


 multi  Num::log (  Num  $x             ; Num :$base --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9093	9194	
==>type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9093	9194	
==>type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9093	9194	
==>type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate t <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5913	6036	
==>s = %pad<"pSyms">.map:{ $_[0] };
        dbg "# Symbols:    @symbols[]";

        dbg "# Statements: "; my $statements = tra <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1720	1814	
==>{ lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1720	1814	
==>{ lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(subs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1720	1814	
==>{ lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(subs <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3248	3454	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                wh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3248	3454	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                wh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6517	6623	
==>ine if requested template module is already loaded.
        # It may have been embedded in a core program f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6517	6623	
==>ine if requested template module is already loaded.
        # It may have been embedded in a core program f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1055	1171	
==>rks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1055	1171	
==>rks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it . <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1055	1171	
==>rks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it . <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	992	1094	
==>s);
@EXPORT_OK = qw($verbose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARN <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6087	6251	
==>y this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.curren <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6907	7071	
==>y this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.curren <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6087	6251	
==>y this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.curren <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6907	7071	
==>y this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.curren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16697	16810	
==>CTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16697	16810	
==>CTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16697	16810	
==>CTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2829	2959	
==>b ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3034	3164	
==>b ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5066	5191	
==>a"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5066	5191	
==>a"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(9 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7432	7541	
==>LER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call p <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1463	1572	
==>ly call $self->tests if we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7432	7541	
==>LER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7432	7541	
==>LER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call p <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3103	3201	
==>sion`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'gh <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3103	3201	
==>sion`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'gh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1963	2060	
==>tic lookup (lex only) or a dynamic lookup. 



This object-serialization format is shared across a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1889	1984	
==>tic lookup (lex only) or a dynamic lookup. 

This object-serialization format is shared across a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1397	1523	
==>b to_bit { bit->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $args ||= list->new();
    $self->_bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14727	14828	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14727	14828	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14727	14828	
==>tribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && define <==
4	/Users/nnunley/pugs/util/drift.pl	146	242	
==>e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{DERIVEPATH <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	811	939	
==>l $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	811	939	
==>l $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5860	5958	
==>handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5860	5958	
==>handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20440	20550	
==>KMETH($dispatcher, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	663	762	
==>e ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	663	762	
==>e ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	663	762	
==>e ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: * <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5348	5482	
==>oin( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#& <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5348	5482	
==>oin( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#& <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12984	13080	
==>ed
entities are left alone.

If multiple strings are provided as argument they are each decoded
s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12984	13080	
==>ed
entities are left alone.

If multiple strings are provided as argument they are each decoded
s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5185	5331	
==>= $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{"passed"}        = 1;
            $status->{"really_pas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10794	10921	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10794	10921	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10794	10921	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $clas <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7305	7416	
==>mc mob
    .local int pos, lastpos
    .local string target, value
    .local pmc mfrom, mpos
    $P0 = find_glo <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13772	13918	
==>ing,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = substr($string <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3893	4027	
==>ing,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3893	4027	
==>ing,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3893	4027	
==>ing,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = substr($string <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18068	18164	
==>_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18068	18164	
==>_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18068	18164	
==>_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34036	34151	
==>}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34036	34151	
==>}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34036	34151	
==>}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3989	4100	
==>lass Relation-0.1.0 {

    # External packages used by the Relation class, that do export symbols:
    # (None Y <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3959	4065	
==>CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3959	4065	
==>CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15882	15976	
==>his module provides a system for writing modules that I<compile> other
Perl modules.

Modules t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15882	15976	
==>his module provides a system for writing modules that I<compile> other
Perl modules.

Modules t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2671	2830	
==>perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2864	3023	
==>perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1633	1730	
==>e Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1633	1730	
==>e Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cip <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	990	1100	
==>return $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17046	17142	
==>ls::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17046	17142	
==>ls::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17046	17142	
==>ls::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6673	6774	
==>ction (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6673	6774	
==>ction (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6673	6774	
==>ction (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5707	5912	
==>erl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5707	5912	
==>erl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5707	5912	
==>erl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1658	1764	
==>::values (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10482	10610	
==>set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10482	10610	
==>set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2808	2911	
==>_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($da <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2808	2911	
==>_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9075	9176	
==>: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9075	9176	
==>: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9075	9176	
==>: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_functi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2402	2590	
==>rn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2712	2894	
==>rn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2712	2894	
==>rn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3672	3777	
==>match end)
  $self->add_handler('\G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in ch <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12777	12872	
==>a "units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is use <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12777	12872	
==>a "units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8304	8395	
==>->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2129	2220	
==>->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	423	531	
==>e_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	423	531	
==>e_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	423	531	
==>e_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $se <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4177	4281	
==>{
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3304	3408	
==>{
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4177	4281	
==>{
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3304	3408	
==>{
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	59	198	
==>returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { ' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	59	198	
==>returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { ' <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	60	187	
==>returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is export { ' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	60	187	
==>returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is export { ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13634	13798	
==>n.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                sh <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13634	13798	
==>n.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7849	7950	
==>et here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7849	7950	
==>et here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8075	8214	
==>arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8075	8214	
==>arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8075	8214	
==>arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->u <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17358	17504	
==>";
    while ($fi < $flen) {
        # optional non-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1766	1866	
==>Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1766	1866	
==>Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1766	1866	
==>Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6298	6417	
==>nc(callback);

    /* Try to scare off the rest of perl */
    r->minlen = 0;
    r->reganch = 0;
    /* Make sure envir <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12204	12300	
==>mage/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12204	12300	
==>mage/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9233	9370	
==>re_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        com <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9233	9370	
==>re_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        com <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1797	1931	
==>H ) {
            next if $file eq File::Spec->updir || $file eq File::Spec->curdir;
            next if $file eq ".svn";
            n <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3236	3356	
==>_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(!@ARGV <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	903	999	
==>urns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOC <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	903	999	
==>urns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOC <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3488	3579	
==>wSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulon <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	593	795	
==>?$offset = 0,
                                   Int ?$length,
                                       *@values
                                ) returns List is rw
 multi sub Array::unshift (@array is rw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11855	12005	
==>ing line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(? <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11855	12005	
==>ing line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(? <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1762	1895	
==>'t write $exename.exe: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14571	14698	
==>y issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14571	14698	
==>y issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howev <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14571	14698	
==>y issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howev <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4468	4587	
==>s,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
}
sub rep_type  { $_[0]{'rep'} } # string <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9052	9160	
==>ading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12529	12637	
==>ading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11765	11873	
==>ading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&exc <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2771	2863	
==>uoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced}{-paren <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	594	732	
==>ipt ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $d <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	594	732	
==>ipt ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $d <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	573	778	
==>, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing o <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	573	778	
==>, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing o <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8082	8183	
==>-------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth av <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8082	8183	
==>-------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth av <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	236	344	
==>$tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	236	344	
==>$tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	993	1088	
==>nciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	993	1088	
==>nciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4281	4421	
==>st',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => 'le <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2234	2332	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2234	2332	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2234	2332	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1] <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19494	19608	
==>self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end:
    .return (sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1736	1848	
==>te(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1736	1848	
==>te(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1736	1848	
==>te(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1724	1871	
==>5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1724	1871	
==>5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	315	419	
==>sed by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	315	419	
==>sed by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1628	1735	
==>$chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+) <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1628	1735	
==>$chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	737	834	
==>es from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	737	834	
==>es from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9446	9543	
==>e pairs also called fields, which
may be repeated, and which are printed in a particular order.  T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9446	9543	
==>e pairs also called fields, which
may be repeated, and which are printed in a particular order.  T <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15374	15466	
==>HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::enco <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15374	15466	
==>HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::enco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1765	1891	
==>ble; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'H <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1765	1891	
==>ble; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'H <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1765	1891	
==>ble; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'H <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5165	5262	
==>ut),
to be loaded by Run.hs.

When pugs is built, a fallback Prelude.hs that contains only a quote <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24642	24748	
==>is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23406	23512	
==>is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24642	24748	
==>is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23406	23512	
==>is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloop> event is fired when an <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14384	14522	
==>heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITC <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17861	17999	
==>heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITC <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17277	17415	
==>heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITC <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	277	380	
==>n.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes grapes");
}
system("perl naive <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	868	986	
==>ew();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	868	986	
==>ew();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23935	24028	
==>eates and returns a new Relation object, whose Heading and
Body attributes are set respectivel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28487	28580	
==>eates and returns a new Relation object, whose Heading and
Body attributes are set respectivel <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	427	552	
==>s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1679	1801	
==>nstance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1679	1801	
==>nstance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1679	1801	
==>nstance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (define <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3364	3481	
==>e::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1722	1839	
==>e::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2502	2619	
==>e::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = g <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2761	2902	
==>ft @file;
		    while (scalar @file) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1555	1646	
==>_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1555	1646	
==>_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1555	1646	
==>_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5831	5929	
==>*infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4961	5059	
==>*infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5831	5929	
==>*infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4961	5059	
==>*infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7325	7439	
==>N)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7383	7497	
==>N)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6900	7008	
==>ntext_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::nu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6958	7066	
==>ntext_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9834	9942	
==>ment a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	272	375	
==>ment a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	272	375	
==>ment a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23969	24090	
==>uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4976	5090	
==>(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4976	5090	
==>(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4976	5090	
==>(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      ret <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5046	5159	
==>l($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4173	4286	
==>l($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5046	5159	
==>l($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4173	4286	
==>l($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
}
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2825	2931	
==>_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2825	2931	
==>_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2825	2931	
==>_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  di <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5732	5823	
==>olean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10009	10130	
==>min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1007	1097	
==>FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::double <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1007	1097	
==>FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::double <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1007	1097	
==>FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::double <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8046	8209	
==>w       => FILE_EXISTS
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or erro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1310	1418	
==>"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1310	1418	
==>"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1310	1418	
==>"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11130	11265	
==>number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pa <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4691	4823	
==>@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps diffing raw YAML res <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1602	1723	
==>number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1602	1723	
==>number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5733	5832	
==>nt<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5733	5832	
==>nt<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2003	2097	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2003	2097	
==>oper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2700	2819	
==>eturns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3164	3283	
==>eturns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21453	21550	
==>could come with a set of user
messages, but another package or program which uses yours may wish t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21453	21550	
==>could come with a set of user
messages, but another package or program which uses yours may wish t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4579	4714	
==>Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4579	4714	
==>Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4579	4714	
==>Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arra <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	307	403	
==>t()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been changed to cc_inc_paths due to co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8877	9015	
==>family => 'branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    j <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6626	6726	
==>Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6626	6726	
==>Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7341	7447	
==>or precedence

=head1 SYNOPSIS

  use Pugs::Grammar::Precedence;

  # example definition for "sub rxi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5113	5217	
==>ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5113	5217	
==>ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5113	5217	
==>ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$par <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1951	2069	
==>regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1951	2069	
==>regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2160	2267	
==>en $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "spli <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2160	2267	
==>en $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "spli <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16349	16442	
==>ly in terms of a new high-level
programming language named "Rosetta D", which is computational <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16349	16442	
==>ly in terms of a new high-level
programming language named "Rosetta D", which is computational <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14201	14321	
==>.
            my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.value <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4274	4386	
==>.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4274	4386	
==>.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.value <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4274	4386	
==>.
        my @ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.value <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8157	8274	
==>PER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	374	481	
==>PER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	374	481	
==>PER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2428	2520	
==>r>)<?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { return { assign_hash_to_scalar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14478	14570	
==>e('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14478	14570	
==>e('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14478	14570	
==>e('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:me <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	882	979	
==>/^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitea <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	882	979	
==>/^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21407	21499	
==>port
to alternative relational database engines with minimal effort.

This might seem strange <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21407	21499	
==>port
to alternative relational database engines with minimal effort.

This might seem strange <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2787	2925	
==>if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2680	2811	
==>if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2601	2693	
==>dex) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2601	2693	
==>dex) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1894	1991	
==>intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dy <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1821	1917	
==>intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dy <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8066	8161	
==>:Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8066	8161	
==>:Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16699	16798	
==>gument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16699	16798	
==>gument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Re <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	991	1089	
==>ance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Laz <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	991	1089	
==>ance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Laz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1386	1490	
==>al>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1386	1490	
==>al>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1386	1490	
==>al>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24966	25063	
==>be addressed by any ordinal value.

Note that it is valid for a Relation::Example to have zero tup <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2402	2507	
==>+= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2402	2507	
==>+= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2402	2507	
==>+= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4611	4708	
==>returns true if everything was ok.  Otherwise it will C<die()> with
one of the messages in the DIA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2367	2503	
==>xists $params{'$.diagnostic'};
        }
    },
    methods => {
        'number'      => sub { _('$.number') },
        'passed'      => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2232	2331	
==>OLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2232	2331	
==>OLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2232	2331	
==>OLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	894	1008	
==>upply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	894	1008	
==>upply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	894	1008	
==>upply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2147	2235	
==>ss_hash_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12671	12796	
==>f' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12671	12796	
==>f' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12671	12796	
==>f' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')-> <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	27	132	
==>ar =~ /regex/;
#=Perl 6: generalisierter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /rege <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1163	1268	
==>rns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_clos <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1163	1268	
==>rns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_clos <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13394	13515	
==>mijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # T <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16871	16992	
==>mijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # T <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16233	16354	
==>mijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5714	5816	
==>bj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5714	5816	
==>bj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5714	5816	
==>bj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15732	15879	
==>hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15732	15879	
==>hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15732	15879	
==>hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4721	4856	
==>ullLiteral>
    | <BooleanLiteral>
}
rule Keyword {  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28178	28273	
==>ref.

=item C<as_debug_string()>

This method returns a stringified version of this object which <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35534	35629	
==>ref.

=item C<as_debug_string()>

This method returns a stringified version of this object which <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28178	28273	
==>ref.

=item C<as_debug_string()>

This method returns a stringified version of this object which <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35534	35629	
==>ref.

=item C<as_debug_string()>

This method returns a stringified version of this object which <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	482	595	
==>rray is shape() or another object or something like that.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20134	20223	
==>6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20134	20223	
==>6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20134	20223	
==>6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2134	2265	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2134	2265	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2134	2265	
==>amples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5455	5555	
==>$two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4585	4685	
==>$two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5455	5555	
==>$two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4585	4685	
==>$two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6565	6684	
==>urn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6565	6684	
==>urn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6565	6684	
==>urn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn. <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5160	5247	
==>s(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Max), !.
p6_range_bounds( 0 , <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6364	6459	
==>?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8432	8527	
==>?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6364	6459	
==>?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8432	8527	
==>?) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	691	966	
==>$_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	691	966	
==>$_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	691	966	
==>$_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2415	2509	
==>>{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} = B <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5879	6187	
==>t an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %eve <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5879	6187	
==>t an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %eve <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	266	365	
==>$self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	266	365	
==>$self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14746	14857	
==>rap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14746	14857	
==>rap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14746	14857	
==>rap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1296	1386	
==>use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21749	21848	
==><server>

The server the line was sent from. This is I<not> necessarily the server you
connected to. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20630	20729	
==><server>

The server the line was sent from. This is I<not> necessarily the server you
connected to. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21749	21848	
==><server>

The server the line was sent from. This is I<not> necessarily the server you
connected to. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20630	20729	
==><server>

The server the line was sent from. This is I<not> necessarily the server you
connected to. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	443	563	
==>,
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	443	563	
==>,
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4452	4544	
==>yedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DES <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4452	4544	
==>yedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DES <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1134	1254	
==>($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1134	1254	
==>($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1134	1254	
==>($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9679	9807	
==>n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitution <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6020	6148	
==>n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitution <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6869	6997	
==>n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitution <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28323	28419	
==>.

=item C<size () returns Int>

This method returns a count of this Relation::Example's member t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2858	3088	
==>::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2858	3088	
==>::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2858	3088	
==>::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	124	217	
==>8327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	124	217	
==>8327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	124	217	
==>8327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17355	17539	
==>ethod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17355	17539	
==>ethod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17355	17539	
==>ethod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Per <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2903	3039	
==>ng under?
    if( $perl eq $^X ) {
        ### just load the config        
        require Config;
        $perl_version = $Config::Conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19602	19695	
==>$value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19602	19695	
==>$value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19602	19695	
==>$value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	428	614	
==>e = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $node->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3244	3365	
==>s);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3244	3365	
==>s);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3244	3365	
==>s);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12397	12515	
==>a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12397	12515	
==>a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12397	12515	
==>a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3149	3261	
==>13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Failed  List of Fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7118	7300	
==>l};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'bef <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6880	7052	
==>l};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'bef <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2374	2465	
==>erldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldoc <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2374	2465	
==>erldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3049	3182	
==>$sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        un <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3049	3182	
==>$sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20126	20223	
==>d first, then outer blocks.

A compiler may choose to declare that its result not be recompiled by <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20126	20223	
==>d first, then outer blocks.

A compiler may choose to declare that its result not be recompiled by <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32846	32942	
==>m returned while I<walking> the tree is
helpful.

The walk() method is used to modify the walking <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9586	9676	
==>a.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9586	9676	
==>a.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9586	9676	
==>a.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3557	3659	
==>->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3557	3659	
==>->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3557	3659	
==>->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21013	21097	
==>nternals::require_use_helper(Bool::False,$module);
}
sub Pugs::Internals::require_use <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7233	7347	
==>for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7233	7347	
==>for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7233	7347	
==>for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly h <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9522	9668	
==>defined $end && $end > 0) {
         @lines = $start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      fo <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2116	2236	
==>t       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outpu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2116	2236	
==>t       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2196	2316	
==>t       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outpu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3013	3128	
==>ject(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2058	2174	
==>$code) };
            when 'haskell' { Pugs::Internals::eval_haskell($code) };
            when 'parrot'  { Pugs::Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13855	13952	
==>her = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13855	13952	
==>her = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13855	13952	
==>her = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatche <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4111	4227	
==>pe,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftype)= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5174	5263	
==>:make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5174	5263	
==>:make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5174	5263	
==>:make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => : <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3194	3319	
==>= $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3194	3319	
==>= $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	107	197	
==>lurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) ret <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	107	197	
==>lurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1943	2113	
==>XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1943	2113	
==>XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1943	2113	
==>XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $sel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1287	1386	
==>ass (probably a role) for
implementing dynamic scopes (not really a reduer).

=head1 SYNOPSIS

    u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	298	421	
==>m => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - she <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	298	421	
==>m => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - she <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2064	2180	
==>l($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2064	2180	
==>l($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1044	1176	
==>str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1044	1176	
==>str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1044	1176	
==>str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	137	233	
==>{ File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40649	40762	
==>this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40649	40762	
==>this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40649	40762	
==>this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2121	2214	
==>new (*native*) returns num>

=item B<to_native () returns *native*>

=item B<to_bit () returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7366	7514	
==>ms,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7366	7514	
==>ms,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7366	7514	
==>ms,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl, <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10805	10900	
==>NC2PERL5LIB;

Takes the current value of C<@INC> and turns it into something suitable
for puttin <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10619	10740	
==>:Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10619	10740	
==>:Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15989	16084	
==>HORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan L <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16047	16142	
==>HORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	421	608	
==>n_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	421	608	
==>n_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	421	608	
==>n_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $ <==
4	/Users/nnunley/pugs/util/addauthors.pl	816	959	
==>reach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Gues <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	129	274	
==>pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	129	274	
==>pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5932	6037	
==>ing ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : ca <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5932	6037	
==>ing ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : ca <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13114	13209	
==>about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13172	13267	
==>about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6226	6322	
==>returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5356	5452	
==>returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6226	6322	
==>returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5356	5452	
==>returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	945	1075	
==>createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.child <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	945	1075	
==>createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.child <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	945	1075	
==>createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.child <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8623	8714	
==>afe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1843	1949	
==>f: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1843	1949	
==>f: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $se <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2366	2453	
==>Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2366	2453	
==>Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	513	611	
==>uous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	513	611	
==>uous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	513	611	
==>uous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32742	32836	
==>es of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37292	37386	
==>es of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36609	36703	
==>es of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusio <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17675	17768	
==>Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34439	34532	
==>ching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38989	39082	
==>ching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic relat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12057	12149	
==>d returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12057	12149	
==>d returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/summe2.pl	2	119	
==>summe2.pl - Unicode in Perl 6
use v6;
sub Σ {
	my $i = 0;
	$i += $_ for @_;
	return $i;
}
say Σ 1..10; # gibt 55 aus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	53	146	
==>als::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	53	146	
==>als::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	53	146	
==>als::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2788	2916	
==>y} eq 'ternary';
    }
    
    return statement( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return defa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4415	4508	
==>false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4415	4508	
==>false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6612	6705	
==>false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on th <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3144	3245	
==>t if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1282	1380	
==>ig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1282	1380	
==>ig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1282	1380	
==>ig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MUL <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	883	1030	
==>my $self = shift;
    if ($self == $TRUE) {
        return $FALSE;
    }
    else {
        return $TRUE;
    }    
}

sub and : method {
    my ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5262	5362	
==>lf => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5262	5362	
==>lf => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5262	5362	
==>lf => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH an <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7598	7768	
==>g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Canno <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7655	7825	
==>g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Canno <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1108	1238	
==>() ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1064	1187	
==>() ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11450	11595	
==>eredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11450	11595	
==>eredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3154	3277	
==>open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validat <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3154	3277	
==>open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validat <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	666	783	
==>ing;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	666	783	
==>ing;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1642	1733	
==>mpiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1642	1733	
==>mpiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2802	2921	
==>->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2942	3061	
==>->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2054	2156	
==>{
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2054	2156	
==>{
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6830	6956	
==>g from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6830	6956	
==>g from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6830	6956	
==>g from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2897	2990	
==>s currently at a comparable state as v6.pm.

Although running C<v6-pugs> requires the installa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17559	17670	
==>hs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13980	14091	
==>hs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10380	10483	
==>hift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10659	10762	
==>hift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         rule <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4342	4672	
==>args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1247	1435	
==>l6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1247	1435	
==>l6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1247	1435	
==>l6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.thi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2786	2895	
==>e {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2844	2953	
==>e {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6229	6337	
==>$x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6229	6337	
==>$x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_inf <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12458	12626	
==>2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) {
        $class = $test_cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7896	7998	
==>utine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7896	7998	
==>utine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7896	7998	
==>utine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PI <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9144	9249	
==>ode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9144	9249	
==>ode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12807	12900	
==>e replaces HTML entities found in the $string with the
corresponding Unicode character.  Under <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12807	12900	
==>e replaces HTML entities found in the $string with the
corresponding Unicode character.  Under <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4163	4294	
==>matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4035	4163	
==>matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capt <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26352	26447	
==>itself is copied on input and output, any
variable values which are references will be passed by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26352	26447	
==>itself is copied on input and output, any
variable values which are references will be passed by <==
4	/Users/nnunley/pugs/util/package-osx.pl	5652	5749	
==>rview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/local/man/man3/Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	451	545	
==>1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	451	545	
==>1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	451	545	
==>1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	283	396	
==>>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	283	396	
==>>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9095	9188	
==>DS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> c <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9095	9188	
==>DS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1124	1246	
==>+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1163	1265	
==>s

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1163	1265	
==>s

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1163	1265	
==>s

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Ro <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1932	2050	
==>$lang {
            when 'perl6'   { Pugs::Internals::eval($code) };
            when 'perl5'   { Pugs::Internals::eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10438	10548	
==>----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10438	10548	
==>----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10438	10548	
==>----------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2921	3119	
==>f $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3301	3411	
==>$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3301	3411	
==>$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3301	3411	
==>$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8207	8342	
==>rse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8207	8342	
==>rse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7342	7445	
==>-= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7342	7445	
==>-= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29798	29905	
==>T_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29798	29905	
==>T_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5200	5305	
==>olded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5200	5305	
==>olded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7523	7697	
==>p);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7523	7697	
==>p);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7523	7697	
==>p);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7288	7437	
==>(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler('\z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in cha <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	864	990	
==>$regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '? <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	864	990	
==>$regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1409	1519	
==>pture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1409	1519	
==>pture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28279	28379	
==>uitable
for debugging purposes (such as to test that the object's contents look
good at a glance); no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35635	35735	
==>uitable
for debugging purposes (such as to test that the object's contents look
good at a glance); no <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28279	28379	
==>uitable
for debugging purposes (such as to test that the object's contents look
good at a glance); no <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35635	35735	
==>uitable
for debugging purposes (such as to test that the object's contents look
good at a glance); no <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1446	1543	
==>dy) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1446	1543	
==>dy) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_don <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1446	1543	
==>dy) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_don <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1148	1244	
==>s, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1148	1244	
==>s, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1148	1244	
==>s, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34596	34869	
==>s')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34004	34247	
==>s')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4312	4421	
==>pture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4505	4614	
==>pture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27123	27240	
==>t::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_N <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27123	27240	
==>t::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_N <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4739	4835	
==>@set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @int <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4739	4835	
==>@set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3491	3607	
==>rs{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "| <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3491	3607	
==>rs{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "| <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3491	3607	
==>rs{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "| <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12450	12564	
==>et
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string charlist
    $P0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10980	11082	
==>UNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10980	11082	
==>UNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10980	11082	
==>UNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10508	10595	
==>\W", !.

p6_char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21996	22190	
==>";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21996	22190	
==>";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21996	22190	
==>";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2396	2583	
==>d    => 1, 
            store       => \$inst_set,
            allow       => ISA_JIB_INSTALLATION_SET, 
        },
    };                             

    check( $tmpl, \%hash ) or error <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2669	2775	
==>is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          retur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2669	2775	
==>is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          retur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1871	1962	
==>etta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1871	1962	
==>etta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	397	494	
==>talled with non-default settings, and so is not intended for
"general" use.  It's more of a pugs b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14861	14953	
==>an@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14861	14953	
==>an@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14861	14953	
==>an@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7028	7135	
==>oles
my $rFoo = $Role->new(
    '$:name' => 'rFoo',
    '%:methods' => { foo => sub { 'rFoo::foo' } }
);
ok( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36513	36611	
==>bined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41062	41160	
==>bined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40676	40774	
==>bined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the r <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3236	3361	
==>re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $Config{exclude_re} = q <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	922	1018	
==>t(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	922	1018	
==>t(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	922	1018	
==>t(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3138	3233	
==>s susceptible to related-key attacks.

This means that you should strive to use only truly rando <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12327	12422	
==>(Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3138	3233	
==>s susceptible to related-key attacks.

This means that you should strive to use only truly rando <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12385	12480	
==>(Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	322	423	
==>match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alt <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	322	423	
==>match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alt <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14674	14769	
==>ader
values are not folded.

The optional $eol parameter specifies the line ending sequence to
u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14674	14769	
==>ader
values are not folded.

The optional $eol parameter specifies the line ending sequence to
u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2337	2478	
==>{ 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8896	9037	
==>{ 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2337	2478	
==>{ 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8892	9033	
==>{ 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7886	8019	
==>t::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7886	8019	
==>t::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7886	8019	
==>t::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5523	5628	
==>)       --> "(?>",  !, p5_start(R), ")".
p5_elemental(lookahead(R))        --> "(?=",  !, p5_start(R), ")" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28130	28237	
==>g-o)> becomes C<(?i)>.

=item $parser->del_flag(@flags)

Deletes the handlers for the flags -- you need only <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4230	4330	
==>ddmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4230	4330	
==>ddmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4230	4330	
==>ddmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2379	2518	
==>e
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9151	9290	
==>e
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2379	2518	
==>e
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9151	9290	
==>e
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17442	17666	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17721	17945	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23408	23631	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23687	23910	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2411	2517	
==>)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2411	2517	
==>)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2411	2517	
==>)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12526	12631	
==>hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_name <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	340	459	
==>r.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	340	459	
==>r.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	340	459	
==>r.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14078	14186	
==>.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic($.param) }

comb: type($$) = {
	m <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1951	2055	
==>e both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2831	2935	
==>e both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$ <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1571	1666	
==>`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Li <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1571	1666	
==>`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Li <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25105	25208	
==>or +
 * at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7104	7196	
==>:eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7104	7196	
==>:eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7104	7196	
==>:eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2223	2352	
==>plit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMetho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2223	2352	
==>plit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMetho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2223	2352	
==>plit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMetho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8451	8597	
==>eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1953	2043	
==>s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1953	2043	
==>s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1953	2043	
==>s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9059	9168	
==>y $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9059	9168	
==>y $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9059	9168	
==>y $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContex <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20624	20724	
==>sion>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule Empty <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7116	7271	
==>_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully lo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7116	7271	
==>_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3470	3676	
==>unction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3470	3676	
==>unction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3470	3676	
==>unction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1373	1487	
==>chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    m <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1373	1487	
==>chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3301	3408	
==>[^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty resu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3301	3408	
==>[^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty resu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5463	5626	
==>ugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the le <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2810	2952	
==>r)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside clo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2994	3136	
==>r)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside clo <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3214	3349	
==>_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2509	2613	
==>t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	384	485	
==>w("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	384	485	
==>w("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	384	485	
==>w("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5248	5372	
==>it_Assign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        db <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2010	2112	
==>ile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2010	2112	
==>ile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2010	2112	
==>ile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10047	10207	
==>est::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2102	2254	
==>est::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2102	2254	
==>est::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            ) <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2064	2184	
==>pe;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2064	2184	
==>pe;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4516	4595	
==>A-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4516	4595	
==>A-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8569	8689	
==>= 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8569	8689	
==>= 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8569	8689	
==>= 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVER <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5589	5686	
==>to be a better way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @Regexp::Parser::__object__ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10171	10268	
==>of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a pla <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10229	10326	
==>of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a pla <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3061	3184	
==>or $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<L <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3061	3184	
==>or $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<L <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1432	1532	
==>multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (S <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1432	1532	
==>multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36768	36894	
==>es
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Da <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36768	36894	
==>es
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Da <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36768	36894	
==>es
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Da <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	394	510	
==>$str ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?OS eq an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8591	8701	
==>idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8591	8701	
==>idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8591	8701	
==>idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1836	1966	
==>ds;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!par <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1836	1966	
==>ds;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2301	2408	
==>ule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2441	2548	
==>ule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1166	1290	
==>turn;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]])/) {
#	    print "\\" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17648	17740	
==><+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17648	17740	
==><+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17648	17740	
==><+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9414	9511	
==>`size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calcul <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9414	9511	
==>`size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calcul <==
4	/Users/nnunley/pugs/util/package-osx.pl	4853	4950	
==>cal/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        /usr/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	605	714	
==>pture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	811	920	
==>pture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3609	3706	
==>{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3609	3706	
==>{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names - <==
4	/Users/nnunley/pugs/util/fixauthors.pl	368	516	
==>/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9085	9227	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9085	9227	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9085	9227	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8429	8530	
==>('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8429	8530	
==>('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8429	8530	
==>('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	253	343	
==>CKAGE__->mk_accessors(qw/runtime cache env/)
}

{
    package Blondie::Compiler::Placeholde <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	408	544	
==>ontent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	408	544	
==>ontent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4161	4269	
==>ns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7638	7746	
==>ns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7217	7336	
==>image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alef <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7217	7336	
==>image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alef <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8136	8239	
==>rg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unkn <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8136	8239	
==>rg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unkn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1278	1379	
==>lf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1278	1379	
==>lf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1278	1379	
==>lf: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10735	10872	
==>3);
            my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "...\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5055	5160	
==>into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5055	5160	
==>into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5055	5160	
==>into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14158	14340	
==>s safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14158	14340	
==>s safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14158	14340	
==>s safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	741	864	
==>n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6125	6224	
==>defined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6125	6224	
==>defined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6125	6224	
==>defined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EO <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25160	25258	
==>ot of backup).  Regmlen is
 * supplied because the test in pregexec() needs it and pregcomp() is co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	91	206	
==>ar i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	91	206	
==>ar i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	91	206	
==>ar i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3910	4012	
==>nce Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has $.property_name;
    meth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3510	3657	
==>$_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4359	4506	
==>$_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::te <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12643	12737	
==>_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fun <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12701	12795	
==>_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1035	1150	
==>nside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1035	1150	
==>nside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1035	1150	
==>nside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $in <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26470	26569	
==>ganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31953	32051	
==>e main program would check each
of the 3 Template module sets in turn, looking at just the set memb <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31953	32051	
==>e main program would check each
of the 3 Template module sets in turn, looking at just the set memb <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4822	4915	
==>lified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4822	4915	
==>lified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	745	853	
==>opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $opt{name} . " " . $opt{name} . <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27059	27152	
==>ject> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31611	31704	
==>ject> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30667	30760	
==>ject> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	639	746	
==>rams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	639	746	
==>rams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	639	746	
==>rams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1498	1645	
==>SE;
    }        
}

1;

__END__

=pod

=head1 NAME

bit - the core bit type

=head1 METHODS

=over 4

=item B<new (*native*) returns bit>

=item B< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	416	518	
==>Name}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	416	518	
==>Name}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	416	518	
==>Name}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15584	15688	
==>D__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15584	15688	
==>D__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15584	15688	
==>D__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27871	27967	
==>is method returns a deep copy of this Relation::Example as a Hash ref of 2
elements, which corres <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1358	1456	
==>donly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constan <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1358	1456	
==>donly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constan <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1358	1456	
==>donly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constan <==
4	/Users/nnunley/pugs/util/build_pugs.pl	42	138	
==>gs;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Find qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2247	2352	
==>er(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2247	2352	
==>er(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2247	2352	
==>er(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4533	4633	
==>ode->orig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($no <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9265	9386	
==>when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9265	9386	
==>when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decip <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11993	12088	
==>$class->new(@_);
}


# this is the actual inferrence engine
my $i = Language::AttributeGrammar-> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3642	3763	
==>nf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3642	3763	
==>nf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33204	33302	
==>e modules will be searched in the order
they appear in this array until a match for that message is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33204	33302	
==>e modules will be searched in the order
they appear in this array until a match for that message is <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8798	8922	
==>Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3727	3851	
==>Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal- <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8798	8922	
==>Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal- <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3727	3851	
==>Cryptography, Second Edition>. 1995, published by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13505	13639	
==>y $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13505	13639	
==>y $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13505	13639	
==>y $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25702	25802	
==>match.
 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21364	21459	
==>bstr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_min_offset substrs->d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19793	19884	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19793	19884	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19793	19884	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38468	38577	
==>}

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16864	16953	
==>..};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReada <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16864	16953	
==>..};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReada <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16864	16953	
==>..};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReada <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20666	20769	
==>e_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20666	20769	
==>e_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20666	20769	
==>e_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4668	4761	
==>f $left->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i (map { num->ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	85	203	
==>use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	127	245	
==>use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	85	203	
==>use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	127	245	
==>use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&bool <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2617	2736	
==>all e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umla <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2617	2736	
==>all e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umla <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1379	1474	
==>s 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ b <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1379	1474	
==>s 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ b <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11141	11236	
==>ncludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an al <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8545	8640	
==>ncludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an al <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11141	11236	
==>ncludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an al <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8545	8640	
==>ncludes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6194	6399	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6194	6399	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6194	6399	
==>name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->ad <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10124	10259	
==>own into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2401	2501	
==>autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2401	2501	
==>autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2401	2501	
==>autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3980	4065	
==>------------------------------------------------------------
## BEGIN BOOTSTRAPPING AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3980	4065	
==>------------------------------------------------------------
## BEGIN BOOTSTRAPPING AR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3980	4065	
==>------------------------------------------------------------
## BEGIN BOOTSTRAPPING AR <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1269	1408	
==>' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $c <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1269	1408	
==>' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10352	10446	
==>a recurrence set.

The complementary functions are emulated using iterations.

See also the sec <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10352	10446	
==>a recurrence set.

The complementary functions are emulated using iterations.

See also the sec <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11263	11408	
==>: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13537	13635	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13537	13635	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13537	13635	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5238	5415	
==>turn " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ /^v5/ ) {
                retur <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	339	464	
==>$.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	339	464	
==>$.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24255	24352	
==>tion has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mappin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28807	28904	
==>tion has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mappin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19721	19870	
==>airs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation::Example $other!) returns Relation::Example {
    # Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6226	6315	
==>s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6226	6315	
==>s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6226	6315	
==>s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18856	18949	
==>affic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17899	17992	
==>affic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18856	18949	
==>affic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17899	17992	
==>affic for
C<$live_timeout> seconds. Furthermore, it'll track its status (its nick, the
channel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	782	884	
==>ully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	782	884	
==>ully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	782	884	
==>ully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of b <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1498	1616	
==>{
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            ms <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1498	1616	
==>{
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            ms <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2769	2858	
==>_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -is <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2769	2858	
==>_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6763	6875	
==>~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2486	2589	
==>class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2486	2589	
==>class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2486	2589	
==>class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4882	4997	
==>_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4882	4997	
==>_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5472	5587	
==>_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	582	679	
==><->($self: Duration $duration) returns Date {
    #$self.subtract($duration);
#}

#method infix:<+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8186	8304	
==>warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8186	8304	
==>warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8186	8304	
==>warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1951	2055	
==>romatic.

=head1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_out <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1536	1660	
==>:maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($f <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1452	1553	
==>:maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2013	2101	
==>se base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scal <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	45	132	
==>se base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1855	1956	
==>ame = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::U <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1855	1956	
==>ame = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::U <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1855	1956	
==>ame = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::U <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2634	2731	
==>nate implementation:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1046	1161	
==>$str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->match($str)   for 1..40},
        P6_RegexP5 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	722	830	
==>c)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	722	830	
==>c)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	722	830	
==>c)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12434	12535	
==>rror

Use the errmsg() and errnum() methods to get the error information.

To see if an error is a par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3598	3695	
==>subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3598	3695	
==>subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3598	3695	
==>subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if d <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9947	10042	
==>ew
other operations.

This class also provides methods for iterating through the set, and for qu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9947	10042	
==>ew
other operations.

This class also provides methods for iterating through the set, and for qu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25232	25320	
==>omponents, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25232	25320	
==>omponents, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1812	1905	
==>Primitive dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1741	1832	
==>Primitive dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Co <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14770	14856	
==>"r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r& <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14770	14856	
==>"r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r& <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1139	1255	
==>key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Intern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1139	1255	
==>key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Intern <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1139	1255	
==>key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Intern <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1058	1177	
==>pe {
    my $self = shift;
    unshift @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3855	3957	
==>ot the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to impleme <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3855	3957	
==>ot the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to impleme <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3855	3957	
==>ot the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to impleme <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4817	4917	
==>odulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symme <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3944	4044	
==>odulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symme <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4817	4917	
==>odulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symme <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3944	4044	
==>odulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) returns Set {
    $one.symme <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10472	10629	
==>ETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10472	10629	
==>ETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10472	10629	
==>ETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	329	451	
==>&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML::Generator( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5891	6018	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5891	6018	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5891	6018	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1003	1132	
==>s Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has S <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1003	1132	
==>s Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has S <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6561	6659	
==>us code and message are printed on STDERR.  The return value is
the HTTP response code.

=item gets <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6561	6659	
==>us code and message are printed on STDERR.  The return value is
the HTTP response code.

=item gets <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	267	387	
==>s $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query hand <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	267	387	
==>s $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query hand <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14455	14557	
==>terator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14455	14557	
==>terator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2428	2526	
==>->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2428	2526	
==>->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2428	2526	
==>->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5091	5291	
==>ods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5091	5291	
==>ods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5091	5291	
==>ods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	30	121	
==>ie::Backend::Prim;
use base qw/Blondie::Map Blondie::Node::Atomic/;

use strict;
use warning <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	74	174	
==>se Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2351	2447	
==>(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2351	2447	
==>(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2351	2447	
==>(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3316	3441	
==>Any
        # Each Set member is a tuple of this Relation::Example, where the tuple
        # is represented as a Mapping; eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1023	1114	
==>ude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1023	1114	
==>ude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1023	1114	
==>ude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Pr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1054	1157	
==>}

# hmm, what do we need to test to check for circular superclasses?
# I guess that we're not the super <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7001	7102	
==>fix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7001	7102	
==>fix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7001	7102	
==>fix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @r <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2262	2401	
==>m->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                S <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2620	2759	
==>m->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8829	8919	
==>ar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2654	2744	
==>ar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7439	7548	
==>m_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't supp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7497	7606	
==>m_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't supp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15992	16088	
==>terpreted by the machine itself and not any human user.  In some
situations, a shared program com <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15992	16088	
==>terpreted by the machine itself and not any human user.  In some
situations, a shared program com <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7073	7195	
==>ks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	802	918	
==>$label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	802	918	
==>$label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	802	918	
==>$label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method labe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5055	5194	
==>e {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5055	5194	
==>e {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	602	735	
==>ymbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4080	4213	
==>ymbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14798	14902	
==>catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable file from the nam <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30739	30829	
==>esponding transformation of each tuple), but
that any duplicates following the transformati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35290	35380	
==>esponding transformation of each tuple), but
that any duplicates following the transformati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34481	34571	
==>esponding transformation of each tuple), but
that any duplicates following the transformati <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3815	4001	
==>$ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3815	4001	
==>$ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24853	24971	
==>uantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quant <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2022	2120	
==>ode();

    $<variable>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_eleme <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2707	2845	
==>erm, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2707	2845	
==>erm, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_r <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44768	45038	
==>, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ----------------- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5989	6098	
==>ontent = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5989	6098	
==>ontent = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP:: <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	410	507	
==>trical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_down <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3190	3318	
==>);
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3190	3318	
==>);
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3190	3318	
==>);
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4540	4660	
==>curdir unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{sh <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7629	7792	
==>|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2366	2461	
==>(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2366	2461	
==>(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2366	2461	
==>(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")", <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7259	7404	
==>kage::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7259	7404	
==>kage::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21258	21355	
==>s a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL di <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21258	21355	
==>s a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL di <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2445	2544	
==>ew;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2445	2544	
==>ew;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %! <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	550	645	
==>}

# I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version_ <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	550	645	
==>}

# I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6628	6728	
==>ve { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6628	6728	
==>ve { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6628	6728	
==>ve { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub i <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	56	150	
==>Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->ne <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2831	2945	
==>r;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2831	2945	
==>r;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2911	3025	
==>r;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_te <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23225	23318	
==>uilding your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	172	277	
==>n gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flag <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	163	264	
==>n gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flag <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2291	2391	
==>@!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2291	2391	
==>@!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1989	2095	
==>eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Compress::Bzip2; debug "Bzip2 compression o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	686	814	
==>);
    use overload ();
    use Carp ();

    sub atomic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21369	21558	
==>rn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21369	21558	
==>rn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21369	21558	
==>rn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Va <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20255	20356	
==>.


  regnode program[1];     /* Unwarranted chumminess with compiler. */

regcomp.h: This is essentia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18893	19021	
==>spatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18893	19021	
==>spatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18893	19021	
==>spatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispat <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5714	5816	
==>sult ?? @result[-1] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshift ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	777	885	
==>y $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	467	554	
==>igenClass = undef;

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	467	554	
==>igenClass = undef;

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	467	554	
==>igenClass = undef;

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17579	17724	
==>on_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21056	21201	
==>on_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20643	20788	
==>on_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3978	4077	
==>d_block($node, $symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1344	1492	
==>'))
        || confess "OR takes a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4851	4944	
==>ilder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pas <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4851	4944	
==>ilder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7048	7141	
==>ilder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	713	867	
==>le( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3784	3938	
==>le( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	713	867	
==>le( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3784	3938	
==>le( '((.).).' );
    my $match = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $matc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2705	2806	
==>Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2705	2806	
==>Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18216	18309	
==>=head1 EXAMPLES

See F<examples/mini_harness.plx> for an example of use.

=head1 AUTHOR

Micha <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	133	226	
==>s use Smart::Comments (if it matches the supplied regex) or
no Smart::Comments before every fu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	625	875	
==>ge Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	625	875	
==>ge Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Loca <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4748	4906	
==>.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==I <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4748	4906	
==>.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==I <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18936	19059	
==>{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerole <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20294	20417	
==>{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerole <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5993	6113	
==>+;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6051	6171	
==>+;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this <==
4	/Users/nnunley/pugs/util/package-osx.pl	11064	11228	
==>\) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            print "Removing \$file\\n"\;
            print "Removing \$fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	156	258	
==>05-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	156	258	
==>05-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	156	258	
==>05-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8447	8550	
==>_('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	909	1012	
==>ng XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can't match '$iso8601' to availab <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8447	8550	
==>_('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8447	8550	
==>_('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3358	3454	
==>Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3358	3454	
==>Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	998	1089	
==>g workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	998	1089	
==>g workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	750	881	
==>iscard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	750	881	
==>iscard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    } <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7578	7693	
==>an array of strings
	my @p = map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?// <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	666	773	
==>}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DuplicateFinder - find duplicate nodes in a p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5292	5383	
==>DE PIL_Environment ($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13523	13706	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13802	13985	
==>eedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	32	135	
==>package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	32	135	
==>package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::co <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12458	12554	
==>s:

  Trying to properly do (non-leaking) memory management, via reverse
  engineering (almost co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4796	4977	
==>> [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4796	4977	
==>> [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Ar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32912	33010	
==>ry relational operator that is like
C<union> except that the returned Relation contains only tuples <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33367	33465	
==>ry relational operator that is like
C<union> except that the returned Relation contains only tuples <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37462	37560	
==>ry relational operator that is like
C<union> except that the returned Relation contains only tuples <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37917	38015	
==>ry relational operator that is like
C<union> except that the returned Relation contains only tuples <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	957	1154	
==>_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4196	4393	
==>_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	957	1154	
==>_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4196	4393	
==>_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3535	3641	
==>= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$ar <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2578	2680	
==>= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$ar <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1732	1827	
==>}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1732	1827	
==>}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2595	2751	
==>- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2595	2751	
==>- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1724	1847	
==>P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18002	18098	
==>urce filtering a sane process, by
parsing up your module's source code into various blocks; so th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18002	18098	
==>urce filtering a sane process, by
parsing up your module's source code into various blocks; so th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3861	3977	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg, @data) = @_;
    my $self = bless {
      rx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1767	1864	
==>ethod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1767	1864	
==>ethod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1767	1864	
==>ethod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9294	9554	
==>'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shi <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9294	9554	
==>'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7309	7447	
==>1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7309	7447	
==>1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13701	13820	
==>l_var name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1257	1373	
==>( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1257	1373	
==>( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1257	1373	
==>( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2389	2505	
==>bose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dum <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2389	2505	
==>bose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dum <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2389	2505	
==>bose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dum <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29923	30023	
==>the object.

=item my $r = $obj->raw()

The raw representation of this object.  It does not look at t <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1871	2010	
==>{ $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_r <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2408	2547	
==>{ $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_r <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	190	324	
==>am) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple documents not supported\n" if <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22847	22970	
==>> ide("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				pa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4702	4790	
==>t',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	315	464	
==>('$:value');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:value' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10063	10182	
==>s
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10063	10182	
==>s
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10063	10182	
==>s
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2249	2409	
==>ostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5501	5602	
==>$fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5501	5602	
==>$fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5501	5602	
==>$fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21217	21307	
==>e anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0]. <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27634	27733	
==>\
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED(pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	402	488	
==>eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	402	488	
==>eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	402	488	
==>eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Ev <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16646	16860	
==>(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(refer <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1479	1574	
==>", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1479	1574	
==>", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1479	1574	
==>", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2882	3005	
==>is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2882	3005	
==>is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.st <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3463	3550	
==>c -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-s <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3463	3550	
==>c -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	193	294	
==>) uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	193	294	
==>) uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	193	294	
==>) uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringi <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2765	2864	
==>{ <commit_rule> | <commit_alternation> | <commit_atom> }
rule commit_rule        { \:\:\: }
rule com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16063	16208	
==>shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16063	16208	
==>shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16063	16208	
==>shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16495	16613	
==>?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int( $n - 0.5) !! int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1660	1767	
==>nly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1660	1767	
==>nly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1660	1767	
==>nly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	433	533	
==>should be considered a protected 
# method, which is used to implement the 
# other methods below
sub <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10415	10506	
==>self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $sel <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10415	10506	
==>self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $sel <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7753	7851	
==>the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7753	7851	
==>the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3859	3950	
==>Config::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Conf <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3859	3950	
==>Config::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3779	3891	
==>(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Becau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3779	3891	
==>(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Becau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3779	3891	
==>(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Becau <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6463	6555	
==>_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $strap->analyze_file($test_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8952	9059	
==>1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @kv;
    fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3828	3924	
==>code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3828	3924	
==>code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3828	3924	
==>code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eva <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12771	12867	
==>set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (super <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12771	12867	
==>set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (super <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22632	22727	
==>handle
this.

A program generates a Message that contains all possibly useful details, so
that e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22632	22727	
==>handle
this.

A program generates a Message that contains all possibly useful details, so
that e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	498	619	
==>f->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	498	619	
==>f->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	498	619	
==>f->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $s <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7850	7943	
==>tance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type::variable::instantiated') => sub { u <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1447	1628	
==>}
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1447	1628	
==>}
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2993	3120	
==>isappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eva <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3133	3260	
==>isappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eva <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	499	598	
==>-------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!p <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	499	598	
==>-------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	408	506	
==>st param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	408	506	
==>st param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	408	506	
==>st param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS <==
4	/Users/nnunley/pugs/util/config_h.pl	739	835	
==>fdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef P <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1963	2068	
==>ead1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of th <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1963	2068	
==>ead1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of th <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13503	13593	
==>t the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13503	13593	
==>t the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8965	9082	
==>$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Win <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	699	816	
==>$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Win <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8965	9082	
==>$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Win <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8965	9082	
==>$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Win <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3528	3862	
==>'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Loca <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3528	3862	
==>'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Loca <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23526	23621	
==>d/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28078	28173	
==>d/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depen <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3641	3738	
==>>{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6949	7073	
==>meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.doe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6949	7073	
==>meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.doe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1454	1570	
==>d_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %st <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1454	1570	
==>d_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2384	2497	
==>a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2384	2497	
==>a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2384	2497	
==>a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15820	15918	
==>ill support the same levels as the input, unless specified otherwise.

=over

=item chop

 multi St <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4614	4713	
==>or the skip and TODO tests and should contain
a string describing why the test is a skip or TODO tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4614	4713	
==>or the skip and TODO tests and should contain
a string describing why the test is a skip or TODO tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6811	6910	
==>or the skip and TODO tests and should contain
a string describing why the test is a skip or TODO tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2501	2618	
==>) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2501	2618	
==>) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2501	2618	
==>) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4715	4829	
==>%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4715	4829	
==>%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4715	4829	
==>%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	408	510	
==>reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node);
	return i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13443	13643	
==>ext_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13443	13643	
==>ext_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13443	13643	
==>ext_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class- <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19394	19505	
==>forever. */

  I32 *startp;
  I32 *endp;

Length is nparens+1.
startp[n] is the starting offset in subbeg,
endp[ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2493	2656	
==>N_SET, 
        },
    };                             

    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    


}

1;

__END__

    ### ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19184	19328	
==>b { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19184	19328	
==>b { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19184	19328	
==>b { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3801	3905	
==>= $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the followi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3801	3905	
==>= $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the followi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3801	3905	
==>= $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the followi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3782	3873	
==>eturn lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1118	1224	
==>* proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%p <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1098	1204	
==>* proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%p <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1118	1224	
==>* proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%p <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1098	1204	
==>* proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%p <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8870	9004	
==>osure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8870	9004	
==>osure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7820	7937	
==>rpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        l <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7820	7937	
==>rpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9666	9829	
==>:Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $reason,
              descr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1753	1908	
==>:Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            descr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1753	1908	
==>:Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            descr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1516	1659	
==>> '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '|',
        assoc => 'left',
        precedence => 'looser',
        other => '. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2402	2585	
==>capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20668	20766	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20668	20766	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!! <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20668	20766	
==>> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12339	12537	
==>ndidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12339	12537	
==>ndidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12339	12537	
==>ndidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1845	1944	
==>\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1845	1944	
==>\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1845	1944	
==>\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14549	14635	
==>erse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1), !.
%# XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	366	481	
==>roxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	366	481	
==>roxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	366	481	
==>roxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	856	970	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	856	970	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	856	970	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2J <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3496	3599	
==>ever clinking.
-}


module Pugs.Config (
    config,
    getConfig
) where

import qualified Data.Map as <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3474	3577	
==>et, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchO <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14817	14952	
==>@a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14817	14952	
==>@a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14817	14952	
==>@a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3161	3296	
==>@a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1956	2077	
==>ion of .jib is in same dir as $meta
        ### XXX add other found data to the metadata as well
        my $archive = $me <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4335	4434	
==>alue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tru <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4335	4434	
==>alue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6532	6631	
==>alue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14360	14520	
==>bs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14360	14520	
==>bs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14360	14520	
==>bs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub- <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	433	529	
==>ong;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1237	1335	
==>alyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contri <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6315	6413	
==>ns. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> fu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1237	1335	
==>alyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contri <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6315	6413	
==>ns. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> fu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9958	10099	
==>rder)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7898	8039	
==>rder)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9958	10099	
==>rder)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7898	8039	
==>rder)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2300	2411	
==>=~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	36	146	
==>e strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	36	146	
==>e strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	36	146	
==>e strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	154	260	
==>:Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	154	260	
==>:Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21296	21391	
==>YRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21296	21391	
==>YRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2112	2224	
==>onstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2112	2224	
==>onstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2112	2224	
==>onstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24187	24293	
==>e::variable::free->new;
	my $type = type::operator::arrow->new($a, $a);

	is($type->stringify, "∀α. α  <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13419	13537	
==>{$n->{attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5142	5241	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5142	5241	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos - <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5142	5241	
==>y $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos - <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5898	6007	
==>!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # Thi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5898	6007	
==>!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # Thi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13490	13606	
==>r!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16967	17083	
==>r!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16329	16445	
==>r!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so s <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1057	1168	
==>ve seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... " if <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26928	27028	
==>ed (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26928	27028	
==>ed (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Keyed <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7060	7158	
==>::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7060	7158	
==>::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31568	31766	
==>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31568	31766	
==>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31568	31766	
==>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8330	8534	
==>{ Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8330	8534	
==>{ Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8330	8534	
==>{ Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1447	1547	
==>fix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3126	3259	
==>nt(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3126	3259	
==>nt(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3126	3259	
==>nt(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@comp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	295	402	
==>PO->create   or die "Creation failed";

for my $jib ( values %PKGS ) {
    $REPO->add_file( file => $jib->fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8968	9110	
==>f, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8655	8793	
==>f, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	330	447	
==>6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	330	447	
==>6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13884	14038	
==>1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13884	14038	
==>1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13884	14038	
==>1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	995	1099	
==>);
    my $b = emit(get_data($_[0], '$<b>'));
	return $a.'.'.$b;
}
sub node::grammar_name {
    my $ident <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15260	15358	
==>uspect the default should be Grf. -law]

Attempting to use a string at a level higher it can suppor <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1671	1861	
==>Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	568	663	
==>return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	568	663	
==>return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	568	663	
==>return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	722	885	
==>=> sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	712	821	
==>0+$+[$_]),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	795	890	
==>sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	821	916	
==>sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17333	17428	
==>their new() method directly, you can only call it through an object that
inherits from that clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	286	380	
==>links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	286	380	
==>links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	286	380	
==>links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	110	209	
==>ix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map` <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	110	209	
==>ix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map` <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7382	7479	
==>" match operators: like 'literal'.



Higher order operators take a list of match operators, and r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7131	7226	
==>" match operators: like 'literal'.

Higher order operators take a list of match operators, and r <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2949	3071	
==>/pugs/livecd.iso.

Note: If you want to modify the kernel used, you may want to use the
      configuration at
      http:/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4950	5041	
==>w PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4950	5041	
==>w PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4950	5041	
==>w PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ar <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10287	10375	
==>\\D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1299	1399	
==>EED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1299	1399	
==>EED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1299	1399	
==>EED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT L <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28950	29175	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29229	29454	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	568	667	
==>=> \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	568	667	
==>=> \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10534	10724	
==>v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    % <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10534	10724	
==>v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    % <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15926	16023	
==>rs and taught classes on the subject over the last
35+ years, along with Codd himself (some are li <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15926	16023	
==>rs and taught classes on the subject over the last
35+ years, along with Codd himself (some are li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14155	14336	
==>this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14155	14336	
==>this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14155	14336	
==>this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17265	17360	
==>want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_dup w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17350	17539	
==>eop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23316	23505	
==>eop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17629	17818	
==>eop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23595	23784	
==>eop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33757	33871	
==>egated

=head2 digit

Family: digit

Types: digit (C<\d>), ndigit (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1077	1195	
==>d($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4683	4782	
==>be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4683	4782	
==>be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4683	4782	
==>be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8018	8156	
==>lo from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8018	8156	
==>lo from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8018	8156	
==>lo from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9042	9151	
==>a separate perl interpreter.
# Arguments :
#   switches => [ command-line switches ]
#   nolib    => 1 # don't <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28280	28380	
==>object (for a 'quant' node), or it might not exist at all
(for an 'anchor' node).

=item my $e = $obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1505	1604	
==>tant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1505	1604	
==>tant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1505	1604	
==>tant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move N <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5144	5283	
==>urns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6906	7045	
==>urns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&d <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1437	1528	
==>0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1437	1528	
==>0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29456	29568	
==>tems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29456	29568	
==>tems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29456	29568	
==>tems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2023	2131	
==>";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2023	2131	
==>";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2023	2131	
==>";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3442	3533	
==>tal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	565	679	
==>')) }
sub to_num { (shift)->length             }
sub to_bit { (shift)->length->to_bit     }

# methods ...

sub fet <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	104	216	
==>::Grammar for metaclass stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    return join( ', ', Data::Dumper <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22670	22762	
==>es to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22670	22762	
==>es to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6545	6663	
==>2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYPar <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2576	2677	
==>g(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n" <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2576	2677	
==>g(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2656	2757	
==>g(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14226	14320	
==>$xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14226	14320	
==>$xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14226	14320	
==>$xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1670	1777	
==>ew( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1670	1777	
==>ew( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7610	7706	
==>t ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directiv <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7610	7706	
==>t ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directiv <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	423	531	
==>) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    r <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	423	531	
==>) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    r <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4186	4291	
==>) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4186	4291	
==>) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { r <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	727	824	
==>) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", n <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	727	824	
==>) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2779	2929	
==>_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    w <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3399	3549	
==>_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    w <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2779	2929	
==>_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    w <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3399	3549	
==>_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	796	918	
==>ntly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	796	918	
==>ntly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	796	918	
==>ntly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %a <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9700	9812	
==>~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_img\" into \"$initrd_mnt <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	800	946	
==>de<Array>).add_children(
                                Tree.new(:node<Array::Const>),
                                Tree.new(:node<Array::Slice <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	283	381	
==>Log
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	283	381	
==>Log
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	283	381	
==>Log
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4289	4393	
==>t = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argume <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4289	4393	
==>t = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argume <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4879	4983	
==>t = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argume <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2830	2930	
==>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2830	2930	
==>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14015	14112	
==>for each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14015	14112	
==>for each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	96	228	
==>es;

sub symbols {
    stub '&infix:<~>',
}



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Strings - String related b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1497	1595	
==>o
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1497	1595	
==>o
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# T <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1497	1595	
==>o
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2300	2392	
==>_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2300	2392	
==>_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2300	2392	
==>_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11781	11922	
==>->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11781	11922	
==>->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11781	11922	
==>->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->el <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8188	8308	
==>dependencies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5088	5224	
==>less {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5088	5224	
==>less {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5088	5224	
==>less {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2490	2589	
==>yze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator->new($test_outp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	484	590	
==>new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	484	590	
==>new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	484	590	
==>new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, * <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1911	2015	
==>IGN} unless $self->is_admin;

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1290	1415	
==>ial, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1290	1415	
==>ial, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it .. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1290	1415	
==>ial, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it .. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14142	14242	
==>->force_object(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5396	5519	
==>opt = @_;
    # print "Operator add: @{[ %opt ]} \n";

    delete $opt{rule};
    $operator->add_op( \%opt );
    
    #push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5525	5635	
==>>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5525	5635	
==>>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5525	5635	
==>>authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1298	1408	
==>).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1298	1408	
==>).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	298	405	
==>mit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	298	405	
==>mit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	842	947	
==>:opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1047	1152	
==>:opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1103	1208	
==>:opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4435	4626	
==>erl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4435	4626	
==>erl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4435	4626	
==>erl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10068	10169	
==>gexp::Parser::* object
  }

In list context, it returns the next node and its depth:

  while (my ($no <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4597	4705	
==>efined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# th <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4597	4705	
==>efined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	930	1037	
==>elf->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $self->{ast}() )};

    eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8663	8790	
==>\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8663	8790	
==>\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_par <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8663	8790	
==>\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2555	2663	
==>oreach my $subrole (@{$role->roles}) {
        $output .= _draw_role($subrole);
        #$output .= "node_" . <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8852	8963	
==>charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8852	8963	
==>charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) { <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8634	8731	
==>y 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8634	8731	
==>y 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3993	4161	
==>methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3993	4161	
==>methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3993	4161	
==>methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6: <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5933	6060	
==>o we arbitrarily lower the first chunk by 1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8570	8670	
==>n $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8570	8670	
==>n $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8570	8670	
==>n $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8816	8915	
==>OWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($typ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35865	35971	
==>ot in C<(...>)

Omitted

=head2 ref

Family: ref

Types: ref1, ref2 .. refN (C<\1>, C<\2>, etc.); reff1, re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5431	5529	
==>});
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F," <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5431	5529	
==>});
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F," <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5431	5529	
==>});
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F," <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1144	1250	
==>ty: $n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a sub call wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12541	12642	
==>ified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12541	12642	
==>ified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12541	12642	
==>ified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11250	11375	
==>ck_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11250	11375	
==>ck_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # when we're successf <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10495	10612	
==>ck_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10495	10612	
==>ck_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # when we're successf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	412	505	
==>)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	412	505	
==>)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	412	505	
==>)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $und <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	426	561	
==>nded.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as n <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	426	561	
==>nded.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7667	7758	
==>hannels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $kil <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7667	7758	
==>hannels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $kil <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20786	20899	
==>n")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, wh <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19703	19816	
==>n")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20786	20899	
==>n")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, wh <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19703	19816	
==>n")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) and C<users>, a hashref, wh <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13905	14007	
==>ad1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overload opera <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10132	10234	
==>ad1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overload opera <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13905	14007	
==>ad1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overload opera <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10132	10234	
==>ad1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports overload opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	67	188	
==>fication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	67	188	
==>fication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	67	188	
==>fication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	848	968	
==>STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5241	5371	
==>eys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5241	5371	
==>eys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5831	5961	
==>eys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12026	12122	
==>e actual inferrence engine
my $i = Language::AttributeGrammar->new(<<'#\'EOG');
#\

# at the root <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	111	219	
==>::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings;

use Carp 'confess';
use Scalar <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4696	4988	
==>ew(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celem <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4696	4988	
==>ew(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5714	5855	
==>d_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5714	5855	
==>d_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39032	39174	
==>t->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39032	39174	
==>t->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39032	39174	
==>t->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        ) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4347	4448	
==>d_be}->is_arrow;
}

sub splat { # recursive splatting happens in parametrized type operators, since th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3907	4027	
==>ludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3907	4027	
==>ludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3907	4027	
==>ludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18700	18795	
==>ccepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17743	17838	
==>ccepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18700	18795	
==>ccepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17743	17838	
==>ccepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$autoping> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51389	51577	
==>'$self:')->get_attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3115	3208	
==>}
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3115	3208	
==>}
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3115	3208	
==>}
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2665	2761	
==>ad1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2665	2761	
==>ad1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4189	4285	
==>ad1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17179	17302	
==>local $seen = $seen || {};

    if ($seen->{$node}++){
        return "... recursive=$node ...";
    }

    if (Scalar::Util <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2447	2543	
==>e)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2447	2543	
==>e)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2447	2543	
==>e)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5219	5316	
==>ods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> an <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5219	5316	
==>ods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7416	7513	
==>ods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> an <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26817	26909	
==>o intuit before matching */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40736	40848	
==>::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40736	40848	
==>::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40736	40848	
==>::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ar <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1302	1410	
==>}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1302	1410	
==>}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8111	8209	
==>ssible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8111	8209	
==>ssible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38567	38703	
==>) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38567	38703	
==>) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38567	38703	
==>) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3576	3692	
==>rce_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos (last global match end)
  $self->a <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7521	7619	
==>= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($buc <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1932	2074	
==>> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ e <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1932	2074	
==>> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4692	4787	
==>) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4914	5009	
==>) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	459	560	
==>rint $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	459	560	
==>rint $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	459	560	
==>rint $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3106	3210	
==>finite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3106	3210	
==>finite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10656	10779	
==>he invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14133	14256	
==>he invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13432	13555	
==>he invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21055	21161	
==>ement :words {  # see 12.6
      <'do'> <Statement> <'while'> <'('> <Expression> <');'>
    | <'while'> <'( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	334	448	
==>return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	334	448	
==>return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15870	15969	
==>he comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the mos <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20103	20202	
==>he comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the mos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6589	6680	
==>--------------------------------------------------------------
## BOOTSTRAPPING Roles COMPLE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4374	4462	
==>---------------------------------------
## BOOTSTRAPPING Roles
## ----------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4397	4485	
==>----------------
## BOOTSTRAPPING Roles
## ---------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4351	4435	
==>--------------------------------------------------------------
## BOOTSTRAPPING Roles <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1031	1139	
==>truct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from_struct {
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27976	28072	
==>e invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32528	32624	
==>e invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31620	31716	
==>e invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15334	15431	
==>xpected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15392	15489	
==>xpected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7930	8019	
==>ash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
pu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1755	1844	
==>ash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
pu <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2424	2518	
==>d structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2424	2518	
==>d structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	555	643	
==>Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|ht <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	555	643	
==>Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|ht <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4108	4196	
==>bute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4108	4196	
==>bute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4108	4196	
==>bute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7766	7882	
==>my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2063	2173	
==>my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2063	2173	
==>my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2063	2173	
==>my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3740	3880	
==>$name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5057	5197	
==>$name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3740	3880	
==>$name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5045	5185	
==>$name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3224	3333	
==>ied path as well.

    if ($Config{osname} eq q{cygwin}) {

        # The world's ugliest cygwin variable give <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	212	314	
==>less;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	212	314	
==>less;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	212	314	
==>less;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5576	5715	
==>int((@dirs+1) / 3)+1;
$template->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c) <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2499	2608	
==>bscription
        method add_subscription (String $name, $subscriber = $?CALLER::?SELF) {
            my $sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34525	34628	
==>mify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34525	34628	
==>mify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34525	34628	
==>mify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7331	7431	
==>y $hybrid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1039	1355	
==>PairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1620	1712	
==>r

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimens <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1620	1712	
==>r

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimens <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3596	3783	
==>,
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3596	3783	
==>,
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3790	3886	
==>ch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3974	4070	
==>ch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Retu <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8257	8360	
==>um_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $* <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8315	8418	
==>um_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $* <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31127	31223	
==>elimiter.  This means,
for example, that the full module names in a set could be either
[Foo::L:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31127	31223	
==>elimiter.  This means,
for example, that the full module names in a set could be either
[Foo::L:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3090	3198	
==>nks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3090	3198	
==>nks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	314	443	
==>ed $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name => $name,
        type => $type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13968	14085	
==>$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13968	14085	
==>$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13968	14085	
==>$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6316	6463	
==>n'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3498	3603	
==>m - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3498	3603	
==>m - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implement <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3498	3603	
==>m - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implement <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1538	1649	
==>pital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1538	1649	
==>pital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12224	12332	
==>$0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12224	12332	
==>$0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	678	1088	
==>ttributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	678	1088	
==>ttributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2809	2932	
==>a object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depen <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3273	3396	
==>a object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	905	1025	
==>_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	905	1025	
==>_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	905	1025	
==>_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate " <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25712	25809	
==>(opaque $self:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self:)) returns l <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3450	3579	
==>pan.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3450	3579	
==>pan.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6628	6725	
==>ther by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and shoul <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6628	6725	
==>ther by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and shoul <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9218	9326	
==>ist of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9218	9326	
==>ist of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $se <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9775	9882	
==>ist of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $se <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9775	9882	
==>ist of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4918	5026	
==>r("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy( from => $file|$dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1089	1180	
==>sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1089	1180	
==>sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1089	1180	
==>sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1376	1697	
==>trs.exists($attr_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5810	5914	
==>:Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5810	5914	
==>:Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5810	5914	
==>:Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::F <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	952	1074	
==>My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12727	12848	
==>_('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemente <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12727	12848	
==>_('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemente <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12727	12848	
==>_('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemente <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1512	1644	
==>ing too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALLATION },
        repository      => { al <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1569	1665	
==>ant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1569	1665	
==>ant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1569	1665	
==>ant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5909	6010	
==>/\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5909	6010	
==>/\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5909	6010	
==>/\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1582	1680	
==>- An experimental compiler for Perl 6

=head1 DESCRIPTION

This module provides an implementati <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7561	7677	
==>_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7561	7677	
==>_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $chi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	99	196	
==>******
# This version of lrep only compiles Grammar sections
# The full version is on misc/pX/Comm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2385	2477	
==>alue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'H <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2385	2477	
==>alue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'H <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2385	2477	
==>alue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'H <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6567	6668	
==>al $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6579	6680	
==>al $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10551	10645	
==>plement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10551	10645	
==>plement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13112	13228	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21162	21278	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13391	13507	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21441	21557	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17528	17623	
==>ass, I<quantifier>.  You pass it the min and max,
and the object's C<type> is determined dynamic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9221	9302	
==>-----------------------------------------------------------------------------

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9221	9302	
==>-----------------------------------------------------------------------------

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9221	9302	
==>-----------------------------------------------------------------------------

Thi <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1792	1914	
==>─ "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } qw( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4649	4740	
==>y $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4649	4740	
==>y $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4649	4740	
==>y $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5706	5800	
==>r &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(& <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	769	863	
==>>compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5706	5800	
==>r &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(& <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5706	5800	
==>r &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(& <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	931	1067	
==>}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@"] );
        return;
    }

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6741	6867	
==>cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6741	6867	
==>cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6741	6867	
==>cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1837	2008	
==>se eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1837	2008	
==>se eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $b <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2558	2701	
==>se eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2558	2701	
==>se eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $b <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6846	6958	
==>> $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	684	790	
==>DO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	684	790	
==>DO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	684	790	
==>DO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19852	19963	
==>substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16273	16384	
==>substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xg <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11652	11743	
==>ually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11710	11801	
==>ually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix: <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5115	5459	
==>ym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	503	633	
==>(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	503	633	
==>(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	503	633	
==>(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excepti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5886	6037	
==>y $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub gre <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4610	4733	
==>@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4610	4733	
==>@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	79	176	
==>ckage Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules tha <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	44	142	
==>ctional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	44	142	
==>ctional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2654	2749	
==>:true;
}

method any_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19422	19510	
==>end(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1684	1786	
==>nd =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inter <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1684	1786	
==>nd =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inter <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31620	31717	
==>rdless of its
argument, in which case the new Relation has either all of the tuples of
the origina <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36170	36267	
==>rdless of its
argument, in which case the new Relation has either all of the tuples of
the origina <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4284	4403	
==>push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4153	4270	
==>push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3489	3588	
==>::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3489	3588	
==>::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18686	18782	
==>YNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17729	17825	
==>YNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18686	18782	
==>YNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17729	17825	
==>YNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3692	3812	
==>q -depth;
    carp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3924	4019	
==>anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3924	4019	
==>anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3924	4019	
==>anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->para <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1438	1540	
==>ned %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %p <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1438	1540	
==>ned %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %p <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4998	5096	
==>es, 
then clears the object's internal state.  This should be called as the last 
step of encipheri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4998	5096	
==>es, 
then clears the object's internal state.  This should be called as the last 
step of encipheri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18261	18353	
==>:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18261	18353	
==>:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18261	18353	
==>:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16450	16540	
==>B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26487	26588	
==>PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* how exponential is t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27825	27920	
==>s optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32377	32472	
==>s optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31469	31564	
==>s optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14425	14527	
==>must be a function
	die "Can't apply non function type (" . $.fun . " has type " . $f->stringify
		unle <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1139	1235	
==>HODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1192	1288	
==>HODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10614	10705	
==>e))  --> "\\H", !.
p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p6_char_class(c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4351	4451	
==>()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") or not <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15787	15887	
==>()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") or not <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4351	4451	
==>()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") or not <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15787	15887	
==>()`

Return a logical value, whether the `start` or `end` values belong to the span ("closed") or not <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	755	857	
==>e, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	755	857	
==>e, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9981	10072	
==>eturn stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns A <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9981	10072	
==>eturn stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	535	655	
==>f $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	570	690	
==>f $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	535	655	
==>f $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26823	26935	
==>ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2523	2643	
==>) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2523	2643	
==>) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less o <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6066	6182	
==>$URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        } <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6066	6182	
==>$URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        } <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6274	6369	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8342	8437	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6274	6369	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8342	8437	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) ret <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1401	1531	
==>oint
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1401	1531	
==>oint
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17094	17189	
==>tionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any oth <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17094	17189	
==>tionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any oth <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	268	388	
==>clutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	268	388	
==>clutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	628	744	
==>my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can ha <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1112	1228	
==>my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can ha <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1760	1872	
==>y to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1760	1872	
==>y to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17486	17582	
==>he right time with the right data.

=item *

Ability to ship precompiled modules without shipping <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17486	17582	
==>he right time with the right data.

=item *

Ability to ship precompiled modules without shipping <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	70	163	
==>l/5.8.7/Module/Install/Include.pm"
package Module::Install::Include;
use Module::Install::Base <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14311	14395	
==>asses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14311	14395	
==>asses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14311	14395	
==>asses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:priv <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3386	3516	
==>take %.subscription.values».members };
                    default { take %.subscriptions<$_>.members }
                    # FIXM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1331	1430	
==>.name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1331	1430	
==>.name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1331	1430	
==>.name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	533	639	
==>much's first article that he read from cover
# to cover with no hand holding, and actually understood. Ever <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	865	1043	
==>submethod BUILD (Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22172	22275	
==>x = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22172	22275	
==>x = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22172	22275	
==>x = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6675	6899	
==>ne(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6675	6899	
==>ne(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5587	5677	
==>by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E< <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5587	5677	
==>by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E< <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14084	14179	
==>dt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10311	10406	
==>dt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14084	14179	
==>dt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10311	10406	
==>dt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2949	3052	
==>lib::gzerrno";
    while (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrn <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29870	29963	
==>utes
that were wrapped, and it supports having old tuple-valued attributes which
have zero att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34422	34515	
==>utes
that were wrapped, and it supports having old tuple-valued attributes which
have zero att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33586	33679	
==>utes
that were wrapped, and it supports having old tuple-valued attributes which
have zero att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19355	19524	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19355	19524	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19355	19524	
==>$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	571	686	
==>delete $param->{p};
    warn "Error in compile: unknown parameter '$_'" 
        for keys %$param;
    #print 'ru <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9831	9950	
==>tch::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9825	9944	
==>tch::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24671	24771	
==>se, or (at your option) any later version.  You should have received a
copy of the GPL as part of the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24671	24771	
==>se, or (at your option) any later version.  You should have received a
copy of the GPL as part of the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11120	11227	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11120	11227	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11120	11227	
==>6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18756	18872	
==>0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18756	18872	
==>0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18756	18872	
==>0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29570	29667	
==>t has already been consumed.

If you created a handle for '&&' without a predecessor, you would ha <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9126	9223	
==>ule DoubleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\"\\]> #SourceCharact <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	799	890	
==>::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::K <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	799	890	
==>::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::K <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	799	890	
==>::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::K <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12232	12349	
==>p::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1858	1974	
==>ode into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1858	1974	
==>ode into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1858	1974	
==>ode into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5912	6136	
==>0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5912	6136	
==>0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5912	6136	
==>0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	226	366	
==>\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [ <==
4	/Users/nnunley/pugs/util/config_h.pl	364	463	
==>defaults to current directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6585	6674	
==>@glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6585	6674	
==>@glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6585	6674	
==>@glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23123	23222	
==>)>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21932	22031	
==>)>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23123	23222	
==>)>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to th <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21932	22031	
==>)>

Performs the C</MODE> command. Note that you can supply both a nickname and a
channel name to th <==
4	/Users/nnunley/pugs/util/importgraph.pl	448	551	
==>) or die "invalid command line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rankdir <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5862	5954	
==>STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoro <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5862	5954	
==>STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoro <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2761	2853	
==>STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoro <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	169	288	
==>Install installed, creating author mode ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Modu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	327	435	
==>e if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	327	435	
==>e if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	327	435	
==>e if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    ret <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15088	15208	
==>r for the given C<$test_file> as well
as a similar version which will overwrite the current line (by use of
\r and such). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2495	2608	
==>scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2495	2608	
==>scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2495	2608	
==>scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16299	16420	
==>g}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16299	16420	
==>g}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3592	3712	
==>ase') ],
    attributes => [ '$.reason' ],
    methods => {
        'reason' => sub { _('$.reason') },
        'status' = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1038	1129	
==>everse-engineered implicit abstraction kludge would be
# unsustainable, and unsuitable for a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6514	6620	
==>ICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scala <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6514	6620	
==>ICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scala <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32663	32760	
==>uments is not significant to the result;
the new Relation contains all the tuples of the source Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37213	37310	
==>uments is not significant to the result;
the new Relation contains all the tuples of the source Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13864	13997	
==>_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13864	13997	
==>_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13864	13997	
==>_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3068	3181	
==>emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    my $block = g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2956	3063	
==>";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2956	3063	
==>";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2956	3063	
==>";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17645	17761	
==>esh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? $expected : /$expected/) :
		          $expected },
		$ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1624	1734	
==>, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1624	1734	
==>, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1624	1734	
==>, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8367	8485	
==>junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8367	8485	
==>junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8367	8485	
==>junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20242	20357	
==>file) is builtin is primitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11642	11787	
==>ax}) {
                push @{$test{failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	646	762	
==>e;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	646	762	
==>e;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	646	762	
==>e;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3534	3655	
==>("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3534	3655	
==>("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5058	5179	
==>("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21987	22073	
==>bes the same-number versions of Relation::Example::Heading
and Relation::Example::Tuple <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13448	13600	
==>chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basename($_);
    
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1319	1419	
==>tion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1319	1419	
==>tion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1319	1419	
==>tion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$st <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1336	1432	
==>yright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can red <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1336	1432	
==>yright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can red <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3871	3967	
==>List)\
multi List::max(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48641	48727	
==>$:authority') => attribute->new('$:authority' => 'str')));

$::Module->send('add_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8347	8582	
==>tringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8347	8582	
==>tringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8347	8582	
==>tringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4010	4100	
==>e L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team E<l <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7486	7633	
==>return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7486	7633	
==>return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6369	6475	
==>elf.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6369	6475	
==>elf.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4469	4609	
==>ro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4469	4609	
==>ro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    " <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17377	17470	
==>= F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5774	5861	
==>ted_type);
		warn Data::Dumper::Dumper($expected_type) unless defined $self->simplify_ty <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3902	4085	
==>( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        retur <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3902	4085	
==>( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        retur <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14723	14872	
==>.Time
    has Int  $.month;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20757	20869	
==>S status is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next' <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	440	557	
==>\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2639	2741	
==>ct_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2639	2741	
==>ct_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2719	2821	
==>ct_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	877	982	
==>ht + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	877	982	
==>ht + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2698	2791	
==>... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_ <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2698	2791	
==>... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9652	9897	
==>nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::EN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3595	3695	
==>urrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($cu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3595	3695	
==>urrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($cu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4185	4285	
==>urrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5201	5318	
==>v_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5201	5318	
==>v_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5791	5908	
==>v_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3663	3756	
==><make> in
C<Pugs::Compiler::Rule> should fix the problem.

- The perl5 executable must have PM <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5617	5726	
==>tr target, pos, 1
    if $S0 != $S2 goto err_close
    inc pos
  term_bx3:
    if isnegated goto term_charlist <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1006	1107	
==>recompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1006	1107	
==>recompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1006	1107	
==>recompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1734	1843	
==>onfig->{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3128	3236	
==>a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3128	3236	
==>a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3128	3236	
==>a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	804	916	
==>emaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

# For mm args that take multiple space-sep <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	621	731	
==>module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (N <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	621	731	
==>module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (N <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3447	3547	
==>cc) = @_;
    return $S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(ex <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8227	8393	
==>othing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pac <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8691	8857	
==>othing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14710	14848	
==>,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14989	15127	
==>,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	437	531	
==>ram,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	398	492	
==>ram,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	398	492	
==>ram,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pret <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19184	19275	
==>::Internals::eval($code,$lang);
}


 multi Control::Basic::evalfile (Str $filename ; Grammar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1295	1418	
==>el eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1500	1623	
==>el eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1561	1684	
==>el eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $meth <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5105	5209	
==>uce_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equiv;
	my $child = $thunk- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	667	789	
==>ring, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	667	789	
==>ring, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pug <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3692	3787	
==>ar>

=back

Please read the HTTP::Query documentation for more information on these methods.

=h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3692	3787	
==>ar>

=back

Please read the HTTP::Query documentation for more information on these methods.

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1367	1455	
==>:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1367	1455	
==>:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1367	1455	
==>:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	825	928	
==>s($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	825	928	
==>s($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	825	928	
==>s($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DE <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29131	29226	
==>Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way of running tests quietly ( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9125	9218	
==>_hook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_regcompp = previous_comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1748	1838	
==>class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1748	1838	
==>class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1748	1838	
==>class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6502	6612	
==>.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6502	6612	
==>.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3421	3520	
==>ecific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3421	3520	
==>ecific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	384	553	
==>'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	384	553	
==>'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	384	553	
==>'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2501	2650	
==>_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2706	2855	
==>_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3778	3927	
==>_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $su <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10466	10564	
==>the => operator, you can use
'_' as a replacement for '-' in header names.

The header() method acc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10466	10564	
==>the => operator, you can use
'_' as a replacement for '-' in header names.

The header() method acc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1173	1258	
==>gs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1173	1258	
==>gs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5870	6008	
==>e
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5870	6008	
==>e
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5870	6008	
==>e
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	431	544	
==>hift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } : 0 )";
}

sub captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4702	4875	
==>$key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4702	4875	
==>$key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4702	4875	
==>$key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	907	996	
==>python.org/pipermail/python-list/2005-March/270531.html
# and converted to Ruby, ...
# and <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2250	2457	
==>sh {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5727	5934	
==>sh {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4657	4864	
==>sh {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	92	220	
==>ument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	92	220	
==>ument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'str <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	92	220	
==>ument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	92	220	
==>ument',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19765	19863	
==>a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19765	19863	
==>a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9793	9890	
==>stinction of being the very first module written for Pugs.

It provides a simple set of common tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9851	9948	
==>stinction of being the very first module written for Pugs.

It provides a simple set of common tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13281	13380	
==>$class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13281	13380	
==>$class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13281	13380	
==>$class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2731	2841	
==>inal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2731	2841	
==>inal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2731	2841	
==>inal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constan <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1478	1568	
==>commit>", "term:", "nows", "PGE::Exp::Commit");
    $optable->addToken("term:<", "term:", " <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2684	2834	
==>(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10262	10361	
==>d($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10262	10361	
==>d($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10262	10361	
==>d($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_me <==
4	/Users/nnunley/pugs/util/package-osx.pl	11533	11646	
==>$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    print REMOVE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	458	547	
==>def;
$::EigenClass = undef;

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	458	547	
==>def;
$::EigenClass = undef;

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	458	547	
==>def;
$::EigenClass = undef;

## ---------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6739	6830	
==>n Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

Thi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8808	8899	
==>n Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

Thi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6739	6830	
==>n Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

Thi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8808	8899	
==>n Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

Thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7427	7553	
==>ds'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3036	3136	
==>);
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with di <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3036	3136	
==>);
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3116	3216	
==>);
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with di <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11450	11578	
==>? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9937	10041	
==>hods described below.
    # -----------------------------------------------
    # has %:methods;
    # ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9937	10041	
==>hods described below.
    # -----------------------------------------------
    # has %:methods;
    # ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9937	10041	
==>hods described below.
    # -----------------------------------------------
    # has %:methods;
    # ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	799	920	
==>OS;

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	689	809	
==>d of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::B <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	851	971	
==>d of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::B <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16275	16372	
==>umentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new hig <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16275	16372	
==>umentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new hig <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	880	982	
==>e!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	880	982	
==>e!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	880	982	
==>e!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14121	14220	
==>test);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<%test> <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2597	2702	
==>ter>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z()not :z[]not :z::no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2090	2184	
==>t 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2090	2184	
==>t 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can red <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2090	2184	
==>t 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can red <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13553	13709	
==>,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3694	3834	
==>,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3694	3834	
==>,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3694	3834	
==>,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = s <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2087	2224	
==>en checking for the names of the tests 
    # since they are often the same for different tests.
    #
    my $target = $_[-1];
    for my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3242	3369	
==>0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3242	3369	
==>0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3242	3369	
==>0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1843	1962	
==>->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1843	1962	
==>->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1843	1962	
==>->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support fo <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3370	3464	
==>head>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule asser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2939	3075	
==>abel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2939	3075	
==>abel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2939	3075	
==>abel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->ad <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1143	1261	
==>$ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1143	1261	
==>$ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	646	759	
==>sh ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	646	759	
==>sh ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	895	1059	
==>licates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	895	1059	
==>licates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	895	1059	
==>licates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identif <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	521	640	
==>hod _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'encipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	521	640	
==>hod _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'encipher <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7828	7929	
==>$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7816	7917	
==>$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$q <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20821	21001	
==>uleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21100	21280	
==>uleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10311	10452	
==>te(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10311	10452	
==>te(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3201	3317	
==>est__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	208	310	
==>Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	208	310	
==>Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	208	310	
==>Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6093	6207	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6093	6207	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6093	6207	
==>"\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23234	23335	
==>g values.  When a scope is entered, the top
value is copied and pushed onto the stack.  When a scope i <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3699	3863	
==>my $unlink_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_name(     $path );
                    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10621	10767	
==>p), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10621	10767	
==>p), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# -- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10621	10767	
==>p), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# -- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8525	8620	
==>r->parse;

This is not necessary, though, because the following methods will
invoke parse() if t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2077	2168	
==>----------------------------------------
## some metamodel tools

=pod

sub *WALKMETH (block <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9913	10016	
==>e KeyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCrite <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1128	1229	
==>e KeyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCrite <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	449	534	
==>---------------------------------------------------------------------
## accessors and <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	449	534	
==>---------------------------------------------------------------------
## accessors and <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	475	582	
==>= 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_st <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	533	640	
==>= 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_st <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23766	23864	
==>REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22282	22380	
==>REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2721	2827	
==>)')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2721	2827	
==>)')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2721	2827	
==>)')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    sub <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3800	3893	
==>ondie::TypeSafe::Annotation->new(
			type => $type,
			struct_equiv => $sym->fmap(sub { Blondi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7284	7424	
==>nd - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7284	7424	
==>nd - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7284	7424	
==>nd - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @it <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1930	2021	
==>, *@args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9912	9999	
==>ues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9912	9999	
==>ues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priv <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9912	9999	
==>ues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9538	9651	
==>y($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9538	9651	
==>y($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9538	9651	
==>y($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	127	220	
==>rns out we need the real YAML.pm
use PugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAML-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9177	9303	
==>tr $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1305	1423	
==>tr $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1305	1423	
==>tr $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6365	6482	
==>on about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5438	5555	
==>on about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ " <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6365	6482	
==>on about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ " <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5438	5555	
==>on about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13903	14031	
==>al');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13903	14031	
==>al');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13903	14031	
==>al');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $met <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	128	226	
==>"blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag @obst[0] und @o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4946	5053	
==>ray) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4946	5053	
==>ray) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4946	5053	
==>ray) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1457	1591	
==>hods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1457	1591	
==>hods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1457	1591	
==>hods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaqu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2624	2733	
==>>{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
        $args->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	192	297	
==>erl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	192	297	
==>erl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 cod <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	192	297	
==>erl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3621	3759	
==>ser lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4938	5076	
==>ser lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3621	3759	
==>ser lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4926	5064	
==>ser lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6786	6904	
==>turn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6786	6904	
==>turn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $en <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6786	6904	
==>turn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $en <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	230	321	
==>erms, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compiler <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1107	1249	
==>efined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11454	11564	
==>hod_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11454	11564	
==>hod_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11454	11564	
==>hod_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($sel <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5207	5481	
==>w('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22569	22662	
==>as 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27121	27214	
==>as 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25853	25946	
==>as 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7544	7680	
==>rases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->lic <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7601	7737	
==>rases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->lic <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4658	4788	
==>X should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @mayb <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5122	5252	
==>X should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @mayb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	336	451	
==>minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	336	451	
==>minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	336	451	
==>minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1493	1605	
==>LES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11172	11371	
==>todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type}tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1084	1186	
==>);
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1084	1186	
==>);
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1164	1266	
==>);
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5847	6013	
==>f($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5847	6013	
==>f($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5847	6013	
==>f($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8355	8462	
==>`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1614	1755	
==>name.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17058	17166	
==>lue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17058	17166	
==>lue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17058	17166	
==>lue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7290	7440	
==>urn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7290	7440	
==>urn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7290	7440	
==>urn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8163	8294	
==>dbg "# -- unknown node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	553	661	
==>type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt is CxtVoid | CxtItem | CxtS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	11	110	
==>::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	11	110	
==>::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# obje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	11	110	
==>::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# obje <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21942	22050	
==>es).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20823	20931	
==>es).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21942	22050	
==>es).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20823	20931	
==>es).

=item C<from>

The C<nick!hostmask> the message was sent from. Not available for numeric
handlers.

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4712	4887	
==>0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4712	4887	
==>0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4712	4887	
==>0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $k <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5055	5178	
==>->{extensions};

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1893	1987	
==>x:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1893	1987	
==>x:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1893	1987	
==>x:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : N <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26848	26939	
==>efine RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can trust a p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	584	686	
==>lti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	584	686	
==>lti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string version <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	584	686	
==>lti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string version <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41135	41223	
==>xp::Parser>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3514	3619	
==>/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



= <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	110	214	
==>erl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	110	214	
==>erl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3389	3489	
==>/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

= <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1055	1207	
==>perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_v <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	934	1086	
==>perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5908	6022	
==>rmally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5704	5813	
==>rmally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	82	232	
==>ort {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	82	232	
==>ort {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13396	13501	
==>`(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,}) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13396	13501	
==>`(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,}) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9535	9631	
==>ook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primiti <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2137	2265	
==>_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2137	2265	
==>_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	106	245	
==>ped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { l <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	106	245	
==>ped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { l <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7433	7526	
==>directive (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element (' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7433	7526	
==>directive (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element (' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1156	1299	
==>tributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1156	1299	
==>tributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1156	1299	
==>tributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5776	5864	
==>R)}, ")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1102	1247	
==>less $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1102	1247	
==>less $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1102	1247	
==>less $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $sel <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7580	7684	
==>n (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature from S29draf <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	808	927	
==>"sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" ta <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	808	927	
==>"sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" ta <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2991	3103	
==>e => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2991	3103	
==>e => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4314	4507	
==>actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $name = $ast->{op};
            if (   defined $name 
                && $name =~ /[[:alnu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3214	3321	
==>el_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3214	3321	
==>el_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3214	3321	
==>el_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5678	5791	
==>Str) of Str $mapping!) returns Relation::Example {

    die "Some keys of $mapping! do not match this relation's a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4845	4952	
==>ar} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4845	4952	
==>ar} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5435	5542	
==>ar} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1917	2040	
==>nction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1917	2040	
==>nction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1917	2040	
==>nction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadO <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2597	2745	
==>e strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the package name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2658	2780	
==>p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2658	2780	
==>p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2658	2780	
==>p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $l <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8925	9022	
==>rdon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3854	3951	
==>rdon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8925	9022	
==>rdon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3854	3951	
==>rdon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or modifi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5461	5563	
==>returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4591	4693	
==>returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5461	5563	
==>returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4591	4693	
==>returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	372	477	
==>!defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12023	12144	
==>,
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12023	12144	
==>,
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16561	16655	
==>ng.

Locale::KeyedText gives your application the maximum amount of control as
to what the user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16561	16655	
==>ng.

Locale::KeyedText gives your application the maximum amount of control as
to what the user <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12513	12613	
==>a code snippet, and then pass the result to is or ok
on success, or report that the eval was not succ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12571	12671	
==>a code snippet, and then pass the result to is or ok
on success, or report that the eval was not succ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1758	1855	
==>ocessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perld <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1758	1855	
==>ocessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perld <==
4	/Users/nnunley/pugs/misc/S29_round.pl	209	330	
==>loor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3462	3572	
==>str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3462	3572	
==>str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3462	3572	
==>str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13666	13836	
==>e::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13666	13836	
==>e::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13666	13836	
==>e::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19128	19243	
==>| <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      <AssignmentExpressio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	260	362	
==>nly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see ps <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	260	362	
==>nly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see ps <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	260	362	
==>nly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see ps <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9793	9882	
==>die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless_with_prefix($p,'PIL::PIL1::NodeSet <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3184	3293	
==>name hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3184	3293	
==>name hostname servername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3765	3870	
==>name hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3765	3870	
==>name hostname servername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22562	22654	
==>bject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27114	27206	
==>bject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25846	25938	
==>bject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1783	1916	
==>simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1783	1916	
==>simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1783	1916	
==>simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	146	233	
==>use Pugs::Grammar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Gramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11024	11147	
==>d body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11024	11147	
==>d body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11024	11147	
==>d body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14011	14132	
==>erver will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won' <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14011	14132	
==>erver will
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13077	13190	
==>erver will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won' <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13077	13190	
==>erver will
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2174	2307	
==>d1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2174	2307	
==>d1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2521	2654	
==>d1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1078	1182	
==>strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14002	14103	
==>d )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37852	37946	
==>s
the result of first pairwise-matching every tuple of each source relation
with every tuple of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42401	42495	
==>s
the result of first pairwise-matching every tuple of each source relation
with every tuple of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42051	42145	
==>s
the result of first pairwise-matching every tuple of each source relation
with every tuple of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13068	13238	
==>one;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13068	13238	
==>one;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13068	13238	
==>one;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #wa <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2069	2165	
==>fers from
convergence problems for some functions, which all Newton methods do.  All
it does in s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38685	38779	
==>her> is a subset of the
heading of the invocant Relation::Example, and returns a new Relation:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19308	19398	
==><==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19308	19398	
==><==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19308	19398	
==><==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16198	16297	
==>n error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2607	2706	
==>n error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	381	479	
==>{};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things th <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	381	479	
==>{};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1107	1213	
==>until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1107	1213	
==>until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1107	1213	
==>until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7229	7324	
==>eturn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7229	7324	
==>eturn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7229	7324	
==>eturn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	98	191	
==>'Object::Accessor';

my %config;
my $Cwd = Path::Class::dir(cwd());

use constant SUBDIR_OF_RO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8387	8520	
==>key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9024	9152	
==>O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9024	9152	
==>O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9024	9152	
==>O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3291	3474	
==>, return;
                }
        
                ### set up the files
                for my $meth (qw[registered_alternatives_file available_file]) {
                    system( q <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3927	4025	
==>n and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3927	4025	
==>n and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HA <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3927	4025	
==>n and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HA <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2224	2325	
==>tement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedenc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2224	2325	
==>tement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedenc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2805	2931	
==>eck->last_error), return;
    
    my $perl_version;
    ### special perl, or the one we are running under?
    if( $perl eq $^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22160	22269	
==>xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22160	22269	
==>xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22160	22269	
==>xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2041	2176	
==>hift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2041	2176	
==>hift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2041	2176	
==>hift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11113	11238	
==>fess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11113	11238	
==>fess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11113	11238	
==>fess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	757	893	
==>::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	757	893	
==>::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19477	19567	
==>arget relation
variables are system catalog relation variables rather than user-defined
rel <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19477	19567	
==>arget relation
variables are system catalog relation variables rather than user-defined
rel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	223	475	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	223	475	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3108	3213	
==>plication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3108	3213	
==>plication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1234	1392	
==>$cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4473	4631	
==>$cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1234	1392	
==>$cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4473	4631	
==>$cmp > 0) {
        $i_end       = $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $ope <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31359	31477	
==>:init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... } <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6017	6108	
==>utine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubP <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6017	6108	
==>utine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubP <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2916	3007	
==>utine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubP <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15916	16045	
==>in\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# This is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4354	4463	
==>turncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4354	4463	
==>turncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4354	4463	
==>turncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5251	5452	
==>maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all els <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5251	5452	
==>maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all els <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2949	3065	
==>{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protocon <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3413	3529	
==>{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protocon <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1688	1809	
==>>('abc')         for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b](b)/o for 1..2000},
});

}

__END__


# exp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5967	6059	
==>er 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Buil <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5967	6059	
==>er 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8164	8256	
==>er 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Buil <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2936	3058	
==>l6 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1098	1211	
==>{
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1098	1211	
==>{
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1098	1211	
==>{
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3603	3717	
==>classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3603	3717	
==>classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3603	3717	
==>classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	986	1098	
==>ub GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0;
   wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3203	3321	
==>!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3203	3321	
==>!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3203	3321	
==>!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2335	2457	
==>ing
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2335	2457	
==>ing
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3131	3235	
==>d( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param< <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3131	3235	
==>d( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param< <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4604	4746	
==>expires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4604	4746	
==>expires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17561	17673	
==>->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13982	14094	
==>->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2909	3016	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	940	1047	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3724	3819	
==>selves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3724	3819	
==>selves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15217	15372	
==>keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15217	15372	
==>keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15217	15372	
==>keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	243	347	
==>> (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	243	347	
==>> (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKA <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	440	532	
==>ype keeps the C<source> property, and adds nothing else.

More specialised processing instruc <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	440	532	
==>ype keeps the C<source> property, and adds nothing else.

More specialised processing instruc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1565	1689	
==>the last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Si <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1565	1689	
==>the last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Si <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2024	2118	
==>≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2024	2118	
==>≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6877	6995	
==>eturn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6877	6995	
==>eturn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6877	6995	
==>eturn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fro <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1997	2089	
==>ntation
consult a book, like Numerical Recipies.)  In particular, it suffers from
convergence <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5679	5798	
==>protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      < <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8313	8422	
==>new( testplan => $plan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	523	622	
==>new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	523	622	
==>new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12917	13034	
==>to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12917	13034	
==>to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12917	13034	
==>to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        }, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2576	2681	
==>ap;
	my @forall;

	# allocate letters for type variables
	# it's ok to destroy the objects since they're c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6397	6504	
==>q normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7133	7240	
==>q normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.ke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6397	6504	
==>q normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.ke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7133	7240	
==>q normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan}<users>.ke <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14400	14512	
==>_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1880	1992	
==>_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15969	16063	
==>distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16027	16121	
==>distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2608	2710	
==>get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1220	1322	
==>get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1921	2023	
==>get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rul <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	309	414	
==>$ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	273	368	
==>normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	273	368	
==>normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	273	368	
==>normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	691	867	
==>b { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	691	867	
==>b { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	691	867	
==>b { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	285	401	
==>compile {
    my ( $class, $rule_source, $param ) = @_;
    my $self = { source => $rule_source };

    $self->{g <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29262	29361	
==>le MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29262	29361	
==>le MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5955	6046	
==>s($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10212	10303	
==>s($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3931	4111	
==>$_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}() } 
    ' );
    my $match = $rule->match( "xyzw" );
    is( "$match", "x", 'stringify 1' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7214	7307	
==>::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7214	7307	
==>::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7214	7307	
==>::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9974	10085	
==>es;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9974	10085	
==>es;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9974	10085	
==>es;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17913	18017	
==>m quotemeta

=item rindex 

Needs to be in terms of StrPos, not Int.

=item split

 multi Str::split (  S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3975	4082	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1282	1389	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8086	8183	
==>s, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans, <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8086	8183	
==>s, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2260	2370	
==>{$self->{levels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	775	874	
==>ogram.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_finder = Blondie::R <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10880	10975	
==>ded by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10880	10975	
==>ded by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27427	27531	
==>s when defined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to behave as though STDOUT w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6828	6928	
==>dy, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6828	6928	
==>dy, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6828	6928	
==>dy, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4656	4846	
==>ink
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_heading);

# Loading te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1008	1123	
==>lue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1213	1328	
==>lue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1274	1389	
==>lue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11892	12014	
==>brule_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16126	16216	
==>elf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_lis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16126	16216	
==>elf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_lis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16126	16216	
==>elf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_lis <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1771	1905	
==>p:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1771	1905	
==>p:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1055	1169	
==>le { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_place <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1055	1169	
==>le { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_place <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32182	32282	
==>f not, it then checks
each set's member for language B and displays that; and so on.

I<For the prese <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32182	32282	
==>f not, it then checks
each set's member for language B and displays that; and so on.

I<For the prese <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11214	11308	
==>Returns everything (from the universal set) that is not in this recurrence.

- `union( $recurre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11214	11308	
==>Returns everything (from the universal set) that is not in this recurrence.

- `union( $recurre <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4644	4838	
==>@bins;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link f <==
4	/Users/nnunley/pugs/util/package-osx.pl	10089	10189	
==>les are all files that will be removed. The last one passed in is the
# remover that will be installe <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1112	1210	
==>b build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpnam <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1112	1210	
==>b build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1607	1709	
==>::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1607	1709	
==>::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1607	1709	
==>::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2328	2442	
==>=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2328	2442	
==>=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13114	13218	
==>mmand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--v <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13114	13218	
==>mmand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--v <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2986	3086	
==>other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6463	6563	
==>other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5402	5502	
==>other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relati <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13218	13305	
==>"tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok"><t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32585	32678	
==>ts
main purpose is to convert Message objects on demand into user-readable
message strings, us <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32585	32678	
==>ts
main purpose is to convert Message objects on demand into user-readable
message strings, us <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13049	13137	
==>xt::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13049	13137	
==>xt::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23868	23977	
==>s that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22641	22750	
==>s that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23868	23977	
==>s that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22641	22750	
==>s that automatic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers t <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1815	1955	
==>(!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1815	1955	
==>(!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2536	2660	
==>(!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2536	2660	
==>(!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = re <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3463	3683	
==>' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'par <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3463	3683	
==>' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'par <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	792	885	
==>ation of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	792	885	
==>ation of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12846	12949	
==>stcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12846	12949	
==>stcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12846	12949	
==>stcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $le <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33594	33693	
==>head2 alnum

Family: alnum

Types: alnum (C<\w>), nalnum (C<\W>)

Neg: 1 if negated

=head2 space

F <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2457	2580	
==>fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2457	2580	
==>fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4364	4455	
==>ion of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4364	4455	
==>ion of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::KeyedT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4972	5087	
==>}
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4972	5087	
==>}
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	169	286	
==>ainer::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1925	2027	
==>::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  d <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1925	2027	
==>::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1387	1486	
==>slurp {
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<va <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9386	9477	
==>ert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name ) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9386	9477	
==>ert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name ) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3277	3526	
==>ll

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3277	3526	
==>ll

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6272	6383	
==>//= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6272	6383	
==>//= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10039	10160	
==>= $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1843	1941	
==>- Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1843	1941	
==>- Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1843	1941	
==>- Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	485	656	
==>match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	400	571	
==>match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	488	659	
==>match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1268	1390	
==>s->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shif <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	606	727	
==>s->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1923	2040	
==>or in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1923	2040	
==>or in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9480	9570	
==>eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9480	9570	
==>eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9480	9570	
==>eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
M <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3292	3433	
==>tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3292	3433	
==>tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7552	7672	
==>y $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7552	7672	
==>y $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7552	7672	
==>y $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n)) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27940	28045	
==>_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3370	3495	
==>w(:node<Package>).add_children(
                    Tree.new(:node<Module>).add_children(
                        Tree.new(:no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	498	589	
==>of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	498	589	
==>of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	498	589	
==>of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1186	1290	
==>key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1186	1290	
==>key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1186	1290	
==>key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15180	15271	
==>ivalent to
C</(?!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10865	11003	
==>[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10859	10997	
==>[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9996	10105	
==>ied ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9990	10099	
==>ied ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$nam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16059	16160	
==>> sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemente <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12800	12884	
==>);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12800	12884	
==>);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12800	12884	
==>);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1571	1670	
==>ype

=head1 METHODS

=over 4

=item B<new (*native*) returns bit>

=item B<to_native () returns *nat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8612	8741	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8805	8934	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $ru <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11974	12070	
==>linkfile.html");
      $output .= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6346	6425	
==>\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30111	30201	
==>or the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34663	34753	
==>or the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33836	33926	
==>or the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2623	2711	
==>open {
    s/open (${re_scopeop}?\s*${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = ope <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	587	713	
==>n '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	587	713	
==>n '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8561	8672	
==>g an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8561	8672	
==>g an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11539	11731	
==>atch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11539	11731	
==>atch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11539	11731	
==>atch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_ty <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22969	23063	
==>back-references
from octal escapes.  (The source code to Perl's regex compiler does the
same th <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16693	16834	
==>.
            "alas--no output ever seen\n";
    } else {
        $pct = sprintf("%.2f", $tot->{good} / $tot->{tests} * 100);
        my $perc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6789	6913	
==>i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6789	6913	
==>i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $star <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6789	6913	
==>i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $star <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2174	2291	
==>ternals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20932	21192	
==>m";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20932	21192	
==>m";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scala <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20932	21192	
==>m";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scala <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17266	17413	
==>=> 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') charact <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17266	17413	
==>=> 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') charact <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3287	3455	
==>ray[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23956	24110	
==>.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23956	24110	
==>.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23956	24110	
==>.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22029	22137	
==>erl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV wh <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16931	17038	
==>erl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1852	1950	
==>($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1852	1950	
==>($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data) <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1334	1465	
==>|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3630	3761	
==>|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1334	1465	
==>|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3630	3761	
==>|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +-- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5772	5920	
==>or my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $pkg->prefix    eq $test->prefix    and
                $pk <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4702	4818	
==>e";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4702	4818	
==>e";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4702	4818	
==>e";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [.. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3726	3853	
==>\$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8122	8241	
==>\$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5937	6034	
==>le::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5937	6034	
==>le::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3050	3159	
==>ative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3050	3159	
==>ative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3050	3159	
==>ative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9625	9709	
==>p5_charset_item(char(A)), "-", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5764	5886	
==>r::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        whil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5764	5886	
==>r::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        whil <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3783	3904	
==>s($program);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1803	1912	
==>>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::Internals::log_base($x,$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26748	26843	
==>int F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Types::overload;
use L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	494	612	
==>ypes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	494	612	
==>ypes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	494	612	
==>ypes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1221	1325	
==>n $param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_count_stack} }, 0;
	
	$self->SU <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1027	1179	
==>t;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4266	4418	
==>t;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1027	1179	
==>t;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4266	4418	
==>t;
        $open_start    = $.start_is_open;
    }
    else {
        $i_start       = $.start;
        $open_start    = $.start_is_open || $span.start_i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2550	2729	
==>th {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2550	2729	
==>th {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1200	1341	
==>have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1200	1341	
==>have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	141	286	
==>Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	141	286	
==>Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	141	286	
==>Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1399	1497	
==>the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. Thi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	134	540	
==>.);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

pac <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	134	540	
==>.);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

pac <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	405	514	
==>ort by highest version
    ### XXX this should be a policy decision
    my @metas = sort { $b->{version} cmp $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4697	4799	
==>in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4697	4799	
==>in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6221	6323	
==>in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7829	7953	
==>++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11829	11949	
==>++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11829	11949	
==>++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	844	952	
==>lf = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=h <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	1252	1348	
==>are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will only <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1252	1348	
==>are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will only <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7071	7237	
==>isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7071	7237	
==>isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7071	7237	
==>isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5261	5381	
==>:LoadFile($index);
        my $meta = $pkg->meta->to_struct;
        
        # add the archive path to the package's met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3142	3248	
==>re ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3142	3248	
==>re ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3142	3248	
==>re ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    ret <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2321	2417	
==>etrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi N <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9549	9738	
==>nted";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            war <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15093	15282	
==>nted";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9549	9738	
==>nted";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15087	15276	
==>nted";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	693	810	
==>$value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	693	810	
==>$value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	693	810	
==>$value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	297	389	
==>nstant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABL <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	383	504	
==>nil { bit->new(0) }

1;

__END__

=pod

=head1 NAME 

nil - the base native nil type

=head1 METHODS

=over 4

=item B<new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	569	661	
==>f($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	569	661	
==>f($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	569	661	
==>f($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22074	22172	
==>ck part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20955	21053	
==>ck part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22074	22172	
==>ck part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20955	21053	
==>ck part of C<from>. Not available for numeric handlers.

=item C<object>

The nick/channel/whatever <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13480	13646	
==>my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13480	13646	
==>my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13480	13646	
==>my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2365	2531	
==>my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11317	11451	
==>nt == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11317	11451	
==>nt == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	700	813	
==>\n";
    }
    return($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookies{$variable}=$value;
}

sub Get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6751	6867	
==>amContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6751	6867	
==>amContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6751	6867	
==>amContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26625	26740	
==>end('add_method' => (
    # method label
        symbol->new('add_subclass'),
    # method body
        method->new( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9122	9237	
==>eeded
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKIN <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2157	2272	
==>eeded
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKIN <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1133	1228	
==>d1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1186	1281	
==>d1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	567	661	
==>')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2237	2331	
==>ariables can be used to configure the behavior of
Test::Harness.  They are exported on request. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	567	661	
==>')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	567	661	
==>')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18482	18596	
==>$other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18678	18792	
==>$other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18892	19006	
==>$other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19094	19208	
==>$other!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6318	6573	
==>r->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6318	6573	
==>r->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6318	6573	
==>r->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            ' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16661	16787	
==>flag
    .local pmc exp
    .local pmc newfrom
    .local pmc code
    .local pmc sub
    .local pmc pad

    null code
    nul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4477	4626	
==>->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4477	4626	
==>->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4477	4626	
==>->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7393	7540	
==>st++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) {
        print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3590	3691	
==>) .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3590	3691	
==>) .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3590	3691	
==>) .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5216	5311	
==>struct_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self-> <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4912	5028	
==>t = traverse_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3366	3461	
==>cant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3366	3461	
==>cant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3366	3461	
==>cant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2261	2373	
==>H";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2261	2373	
==>H";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2261	2373	
==>H";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4163	4264	
==>::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ />/ )
  {
    $matchObj->position( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2966	3075	
==>- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2966	3075	
==>- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ r <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8489	8591	
==>pan ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8489	8591	
==>pan ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17844	17943	
==>.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULL <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17844	17943	
==>.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4175	4339	
==>->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4175	4339	
==>->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4175	4339	
==>->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defin <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3026	3131	
==>l_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5145	5242	
==>test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5145	5242	
==>test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7342	7439	
==>test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	733	917	
==>}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8054	8161	
==>$backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8054	8161	
==>$backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8054	8161	
==>$backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12690	12852	
==>" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8964	9126	
==>" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9799	9961	
==>" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5691	5813	
==>"$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** ghc not found in path.  Looking in $ghc_root\n";

        if (-d $ghc_ro <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5954	6062	
==>elete $INC{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{exte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17156	17247	
==>ULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17156	17247	
==>ULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17156	17247	
==>ULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7541	7641	
==>method(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7541	7641	
==>method(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7541	7641	
==>method(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10454	10554	
==>oted at <20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, S <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11882	11978	
==>Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13274	13370	
==>Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11882	11978	
==>Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13274	13370	
==>Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15011	15113	
==>ct => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15011	15113	
==>ct => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5750	5845	
==>r engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule obje <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5551	5642	
==>r engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule obje <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5100	5231	
==>==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5100	5231	
==>==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18397	18498	
==>nary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of " <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18397	18498	
==>nary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of " <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	37	159	
==>a::Assoc;
use Meta::Attrib;
use Meta::Method;

use Meta::Util;

Has($?CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6861	6973	
==>(new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6861	6973	
==>(new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6861	6973	
==>(new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3289	3383	
==>tput and diagnostic output of tests,
running those tests, and then telling this module to compa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3289	3383	
==>tput and diagnostic output of tests,
running those tests, and then telling this module to compa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3369	3463	
==>tput and diagnostic output of tests,
running those tests, and then telling this module to compa <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25130	25219	
==>:variable::free->new,
		type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2063	2164	
==>sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2063	2164	
==>sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2063	2164	
==>sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	491	603	
==>y $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	491	603	
==>y $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	491	603	
==>y $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28522	28618	
==>:Harness tests itself

  $ cd ~/src/devel/Test-Harness
  $ perl -Mblib -e 'use Test::Harness qw(& <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1500	1601	
==>hod vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1500	1601	
==>hod vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17710	17807	
==>n
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17710	17807	
==>n
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2248	2357	
==>sg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2248	2357	
==>sg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my me <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1292	1386	
==>algorithm is based on statistics. This was my main motivation to
implement it. Other rate limit <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1292	1386	
==>algorithm is based on statistics. This was my main motivation to
implement it. Other rate limit <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4619	4787	
==>ethod from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}() <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4619	4787	
==>ethod from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}() <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32072	32171	
==>responds to language A, looking for a match to said error
message.  If it finds one, then that is di <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32072	32171	
==>responds to language A, looking for a match to said error
message.  If it finds one, then that is di <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1146	1244	
==>tch  = Grammar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11668	11754	
==>SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11668	11754	
==>SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11668	11754	
==>SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB eva <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8154	8262	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8546	8654	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8154	8262	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8546	8654	
==>eturns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _normalize_parameter( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14332	14455	
==>ro_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarde <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17809	17932	
==>ro_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarde <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17225	17348	
==>ro_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5859	5965	
==>:Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11779	11888	
==>_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11779	11888	
==>_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11779	11888	
==>_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p <==
4	/Users/nnunley/pugs/util/func_refact.pl	3120	3221	
==>tal - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2183	2296	
==>d1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1115	1214	
==>e is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1115	1214	
==>e is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1115	1214	
==>e is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5872	5985	
==>::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5872	5985	
==>::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5872	5985	
==>::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #wa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14660	14760	
==>ect(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2247	2326	
==>scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2247	2326	
==>scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2247	2326	
==>scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1507	1622	
==>odifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1507	1622	
==>odifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1507	1622	
==>odifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsi <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	435	529	
==>NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::SmokeBackends;

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22041	22139	
==>essage for a certain code, it
returns the first one it finds.  This also works for the multiple lan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22041	22139	
==>essage for a certain code, it
returns the first one it finds.  This also works for the multiple lan <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9337	9427	
==>ON

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9337	9427	
==>ON

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40368	40470	
==>s and the date of any
changes, in addition to preserving this original copyright notice and other
credi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25892	25994	
==>s and the date of any changes, in
addition to preserving this original copyright notice and other credi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40368	40470	
==>s and the date of any
changes, in addition to preserving this original copyright notice and other
credi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25892	25994	
==>s and the date of any changes, in
addition to preserving this original copyright notice and other credi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3965	4082	
==>t) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3965	4082	
==>t) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3965	4082	
==>t) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2040	2147	
==>foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2040	2147	
==>foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2040	2147	
==>foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source i <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5690	5795	
==>on_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Un <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5172	5277	
==>on_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9699	9795	
==>a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9699	9795	
==>a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22116	22227	
==>p{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22116	22227	
==>p{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - se <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22116	22227	
==>p{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	269	357	
==>);

my (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::Run::OnP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11749	11900	
==>elf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11749	11900	
==>elf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11749	11900	
==>elf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering ma <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9671	9768	
==>d'};
	push(@args,"writable=>1") if $op{'isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10157	10292	
==>. ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10157	10292	
==>. ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1149	1261	
==>th();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.paren <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1149	1261	
==>th();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.paren <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9687	9901	
==>dir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|src)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12901	13057	
==>VERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12901	13057	
==>VERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12901	13057	
==>VERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7170	7268	
==>ion of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7170	7268	
==>ion of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25437	25534	
==>item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the ob <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25437	25534	
==>item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the ob <==
4	/Users/nnunley/pugs/util/package-osx.pl	11009	11112	
==>e =~ /\(?:readline|history\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4287	4396	
==>opic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $even <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4287	4396	
==>opic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $even <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19510	19605	
==>:Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are mark <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19510	19605	
==>:Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are mark <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	139	247	
==>x
#  is assoc left/right/non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	380	481	
==>ect (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	380	481	
==>ect (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	380	481	
==>ect (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13747	13845	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13747	13845	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13747	13845	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15007	15099	
==>ader, $ml) = _mk_leader($test_file, $width);

Generates the 't/foo........' leader for the gi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4016	4119	
==>E('::Skip' => class 'TestBuilder::Test::Skip' => {
    is   => [ $::Object ],
    does => [ $::TestBuild <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3065	3166	
==>$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3065	3166	
==>$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3065	3166	
==>$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3109	3220	
==>$ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3097	3208	
==>$ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7380	7472	
==>rn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10857	10949	
==>rn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17578	17777	
==>>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17578	17777	
==>>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17578	17777	
==>>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $met <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9253	9342	
==>Int ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13043	13142	
==>ers

This will remove all the header fields used to describe the content of
a message.  All header f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13043	13142	
==>ers

This will remove all the header fields used to describe the content of
a message.  All header f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28801	28895	
==>ation attribute names, or duplicate any other value set members.  This
method supports having t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33353	33447	
==>ation attribute names, or duplicate any other value set members.  This
method supports having t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13911	14019	
==>put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = R <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13911	14019	
==>put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = R <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21219	21313	
==>s a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21219	21313	
==>s a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3478	3646	
==>m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3478	3646	
==>m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13562	13709	
==>y->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13562	13709	
==>y->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13562	13709	
==>y->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            r <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9418	9515	
==>th::BigInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**10 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17850	17978	
==>ick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16888	17016	
==>ick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17850	17978	
==>ick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # ( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16888	17016	
==>ick)
    ircname  => "Ingo's Bot", # (optional, defaults to $nick)
    host     => "localhost",
    port     => 6667,         # ( <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1293	1421	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3589	3717	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1293	1421	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3589	3717	
==>4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	627	881	
==>ckages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Ros <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	627	881	
==>ckages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Ros <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3332	3425	
==>osure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3332	3425	
==>osure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1151	1296	
==>} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Funct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1151	1296	
==>} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Funct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1151	1296	
==>} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Funct <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13993	14128	
==>f ( $n->{op1}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	224	440	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $inde <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	224	440	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $inde <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2017	2112	
==>header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2017	2112	
==>header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_he <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11953	12053	
==>field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12385	12485	
==>field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11953	12053	
==>field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $value a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12385	12485	
==>field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $value a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4026	4185	
==>> $e->get('&dispatcher')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5830	5922	
==>clusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->cu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5830	5922	
==>clusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->cu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5830	5922	
==>clusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9281	9422	
==>";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9281	9422	
==>";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9281	9422	
==>";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22791	22886	
==>culative syntax here :)
    unbox($self).class
}

(method class ((opaque $self:)) returns opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6164	6269	
==>attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6164	6269	
==>attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6164	6269	
==>attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10601	10702	
==>e end of the tree;
it will then reset itself, and will start from the beginning the next
time it is ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19881	19976	
==>ject().  force_object() creates an
object no matter what pass the parser is making; object() wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	729	817	
==>----------------------------------------------------------------------
## Object

# The ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	729	817	
==>----------------------------------------------------------------------
## Object

# The ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	729	817	
==>----------------------------------------------------------------------
## Object

# The ' <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2233	2330	
==>s in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In sho <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2233	2330	
==>s in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In sho <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14453	14611	
==>r) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6571	6691	
==>~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6571	6691	
==>~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6571	6691	
==>~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29164	29284	
==>y (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29164	29284	
==>y (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4250	4366	
==>int3D },        
    };
}

my $p3d = new Point3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the right class name fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	550	649	
==>ked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	550	649	
==>ked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	550	649	
==>ked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8725	8853	
==>0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7403	7504	
==>ody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7403	7504	
==>ody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7403	7504	
==>ody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	437	553	
==>means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	437	553	
==>means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9202	9292	
==>mmar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
pu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3027	3117	
==>mmar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15065	15259	
==>$array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15065	15259	
==>$array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15065	15259	
==>$array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26215	26342	
==>$self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type => 'flags',
      on => $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6073	6183	
==>L-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6073	6183	
==>L-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defau <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6073	6183	
==>L-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defau <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	843	949	
==>ray ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, ($k,@arr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2029	2146	
==>inite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
m <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2029	2146	
==>inite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
m <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1757	1851	
==>::Events::Subscription {
    has Class::Events::Publisher $.publisher;
    has Class::Events::S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22020	22110	
==>$xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22020	22110	
==>$xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22020	22110	
==>$xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0 <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	989	1095	
==>$^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14334	14425	
==>'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14334	14425	
==>'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14334	14425	
==>'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::mai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16017	16151	
==>grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16017	16151	
==>grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16017	16151	
==>grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8774	8872	
==>s.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_','$_re_','$_m_','$_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8863	8987	
==>ay @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @list <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8863	8987	
==>ay @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @list <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4265	4362	
==>ct returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4265	4362	
==>ct returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1695	1816	
==>)         for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b](b)/o for 1..2000},
});

}

__END__


# experiment <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4652	4772	
==>stfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        post <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4652	4772	
==>stfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        post <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8453	8553	
==>e tree, you can use the
parse() method to explicitly build it:

  $parser->parse;

This is not necess <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3380	3500	
==>ller.elems ?? Control::Caller.new(
        package => @caller[0],
        file    => @caller[1],
        line    => @call <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3427	3543	
==>port {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3427	3543	
==>port {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4951	5067	
==>port {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15568	15693	
==>:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15568	15693	
==>:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15568	15693	
==>:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Clas <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1633	1724	
==>e::Nodes> and some
more objects.

They provide stringification, fmapping and value encapsula <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1785	1896	
==>_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pus <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1785	1896	
==>_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pus <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1865	1976	
==>_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pus <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1378	1511	
==>---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3674	3807	
==>---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1378	1511	
==>---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3674	3807	
==>---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3523	3627	
==>" " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3523	3627	
==>" " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3523	3627	
==>" " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1439	1619	
==>s -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1439	1619	
==>s -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3385	3514	
==>atch, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parall <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3385	3514	
==>atch, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parall <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27496	27598	
==>e object, you must create a new
object that is a clone of the first but for the changes.

=back

A Mess <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27496	27598	
==>e object, you must create a new
object that is a clone of the first but for the changes.

=back

A Mess <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1691	1789	
==>0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1691	1789	
==>0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16530	16630	
==>LTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16530	16630	
==>LTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16530	16630	
==>LTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35245	35344	
==>k()Z<>.

However, we need to define our own qr() method, because we don't want
to have &'s in our I< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7851	7951	
==>be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7851	7951	
==>be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7851	7951	
==>be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    retur <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	48	143	
==>ll::Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use File::Spec;
use File::Ba <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1464	1629	
==>ake join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1464	1629	
==>ake join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6145	6237	
==>, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and str <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6145	6237	
==>, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and str <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4372	4488	
==>$noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4680	4770	
==>".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4680	4770	
==>".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4680	4770	
==>".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SU <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	242	375	
==>k_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	128	254	
==>k_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	128	254	
==>k_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40019	40117	
==>nd a string.  If the warning is called
from a character class, pass " in character class"; otherwis <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2711	2829	
==>ler\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2711	2829	
==>ler\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2711	2829	
==>ler\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5815	5906	
==>))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(condition(Rk,R1,R2)) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1510	1650	
==>method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1715	1855	
==>method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13051	13168	
==>d()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_her <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13051	13168	
==>d()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_her <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11207	11361	
==>{ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11207	11361	
==>{ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11207	11361	
==>{ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	548	658	
==>ession_wanted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  d <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2693	2793	
==>returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1358	1458	
==>th) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2693	2793	
==>returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1358	1458	
==>th) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	423	517	
==>inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ version of Module::Ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	788	879	
==>Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	788	879	
==>Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	788	879	
==>Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pre <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5768	5853	
==>2144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5958	6043	
==>2144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5768	5853	
==>2144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5958	6043	
==>2144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8549	8676	
==>' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8549	8676	
==>' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1259	1367	
==>n (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	250	349	
==>ID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '';
    SessionDecode(slurp(catfile($Path, $SID)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3499	3608	
==>r $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3499	3608	
==>r $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3499	3608	
==>r $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9201	9308	
==>s copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normal <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9201	9308	
==>s copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0, $span1) = _normal <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9758	9864	
==>s copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normal <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9758	9864	
==>s copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span0, $span1) = _normal <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6438	6539	
==>ames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3391	3479	
==>('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3391	3479	
==>('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3391	3479	
==>('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15721	15847	
==>to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15721	15847	
==>to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15721	15847	
==>to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3082	3187	
==>n, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

me <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3082	3187	
==>n, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2768	2927	
==>flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2677	2831	
==>flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4752	4854	
==>e data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4752	4854	
==>e data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3707	3831	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3707	3831	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3707	3831	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2275	2381	
==>Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( F <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2492	2598	
==>Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( F <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9555	9652	
==>onn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will inse <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9555	9652	
==>onn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will inse <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1510	1617	
==>rsion_from($file);

    # The remaining probes read from POD sections; if the file
    # has an accompanying <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	606	703	
==>-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	606	703	
==>-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	606	703	
==>-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3755	3857	
==>ivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3755	3857	
==>ivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()." <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3755	3857	
==>ivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()." <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	318	412	
==>code(slurp(catfile($Path, $SID)));
    CookiesAdd('sid',$SID);
}

sub SessionID() { return $SID <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3639	3748	
==>name =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pIn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3639	3748	
==>name =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pIn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3639	3748	
==>name =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pIn <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	828	928	
==>strate dynamicity.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::B <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3584	3678	
==>'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3584	3678	
==>'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	434	528	
==>'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13199	13357	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27313	27471	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13478	13636	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27592	27750	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1317	1490	
==>pen;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4556	4729	
==>pen;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1317	1490	
==>pen;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4556	4729	
==>pen;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10715	10821	
==>(@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25186	25292	
==>ts> <',}'>
    | <'{'> <DecimalDigits> <','> <DecimalDigits> <'}'>
}
rule Atom {  # see 15.10.1
      <Patt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10715	10821	
==>(@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10715	10821	
==>(@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $d <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3719	3819	
==>p}[0]  <=> $a->{timestamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for ke <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9467	9576	
==> $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9467	9576	
==> $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16467	16561	
==>without a recompile (such as by simply
copying files), often even while the program is executin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16467	16561	
==>without a recompile (such as by simply
copying files), often even while the program is executin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11227	11320	
==>---------------------------------------------------------
What is Exp?  And why is it in my tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5296	5443	
==>1;
            $status->{"really_passed"} = _('$.passed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18777	18876	
==>6

=head1 VERSION

This document describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relatio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	864	953	
==>e::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	864	953	
==>e::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15171	15282	
==>e "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { en <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15171	15282	
==>e "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { en <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15604	15697	
==>which contain the mapping from all characters to the corresponding entities
(and vice versa, r <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15604	15697	
==>which contain the mapping from all characters to the corresponding entities
(and vice versa, r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22106	22198	
==>e for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (var <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20987	21079	
==>e for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (var <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22106	22198	
==>e for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (var <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20987	21079	
==>e for numeric handlers.

=item C<object>

The nick/channel/whatever the message operated (var <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18126	18260	
==>> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17164	17298	
==>> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18126	18260	
==>> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17164	17298	
==>> 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9557	9653	
==>ks. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9557	9653	
==>ks. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5427	5518	
==>dd_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5427	5518	
==>dd_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10485	10596	
==>:Template->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl','code.tmpl');  
  $tem <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8850	8954	
==>oxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8850	8954	
==>oxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8850	8954	
==>oxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(* <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22746	22854	
==>ol($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12854	12946	
==>A=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12854	12946	
==>A=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12854	12946	
==>A=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	496	599	
==>e
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	496	599	
==>e
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	496	599	
==>e
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTRO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33713	33811	
==>: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digit

Family: digit

Types: digit (C<\d <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9617	9769	
==>nus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8309	8422	
==>>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8309	8422	
==>>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->typ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8309	8422	
==>>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	695	810	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	695	810	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	695	810	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = St <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6066	6159	
==>olve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Class)->{'@:roles'} = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2929	3063	
==>essage
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.ele <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2929	3063	
==>essage
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.ele <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1428	1538	
==>pile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1428	1538	
==>pile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2376	2517	
==>, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2376	2517	
==>, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19389	19527	
==>$on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15810	15948	
==>$on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10021	10141	
==>"    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	476	591	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	476	591	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	476	591	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($c <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1796	1903	
==>$self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1796	1903	
==>$self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18767	18863	
==>nlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is l <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18767	18863	
==>nlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12858	12995	
==>panded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	351	473	
==>cee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	351	473	
==>cee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	351	473	
==>cee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26m <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	221	348	
==>ems per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5 <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	221	348	
==>ems per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1053	1171	
==>});
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@item <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1053	1171	
==>});
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@item <==
4	/Users/nnunley/pugs/util/combine_tests.pl	614	725	
==>older versions.
#
sub combine_tests{
    #
    # Collect all the test results indexed on filename/number
    # i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5395	5500	
==>t, $expected, $range, $name, @mess) = @_;
    my $pass;
    if (!defined $got or !defined $expected or !de <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13030	13130	
==>h take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13088	13188	
==>h take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing te <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26062	26168	
==>urn;
  }
}


{
  package Regexp::Parser::flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29790	29885	
==>is method
supports having the new attributes having the same names as old attributes
that were w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34342	34437	
==>is method
supports having the new attributes having the same names as old attributes
that were w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33506	33601	
==>is method
supports having the new attributes having the same names as old attributes
that were w <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	647	774	
==>ults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	647	774	
==>ults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11703	11805	
==>ush('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11703	11805	
==>ush('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10982	11080	
==>)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fatal <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8386	8484	
==>)>

Removes the specified items from the set. Returns the number of items removed.

It is not fatal <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10982	11080	
==>)>

Removes the specified items from the set. Returns the number of items
removed.

It is not fatal <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8386	8484	
==>)>

Removes the specified items from the set. Returns the number of items removed.

It is not fatal <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4406	4538	
==>r[0];
    $r->{0}  --> $r{0};
    $r->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	173	275	
==>e end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	173	275	
==>e end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	173	275	
==>e end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1597	1736	
==>tin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9926	10025	
==>1 = $p->unparse;
    $c1 =~ s/PIL_Environment/PIL::Environment/g;
    if($c0 ne $c1) { pil_diff($c0, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9616	9708	
==>e_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9616	9708	
==>e_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9616	9708	
==>e_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XX <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	389	596	
==>eop::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\n";
            }
            #print "program $program\n";
            my $return;
            $return = " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1538	1675	
==>scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1538	1675	
==>scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1538	1675	
==>scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defau <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4018	4134	
==>ds being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4018	4134	
==>ds being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4018	4134	
==>ds being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5585	5682	
==>PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5322	5462	
==>match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5334	5474	
==>match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	46	160	
==>Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	46	160	
==>Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6575	6675	
==>mpile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := (<@Grammar::Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15055	15149	
==>&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send('add_method' => ( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5874	6029	
==>ist      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List      pre     zip     safe   (List)\
\\n   List      p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6536	6640	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_uni <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10013	10117	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_uni <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9105	9209	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_uni <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16540	16664	
==>def);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EE <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15594	15710	
==>def);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EE <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	586	688	
==>work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stri <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	586	688	
==>work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3994	4107	
==>keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } __PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1635	1727	
==>) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1635	1727	
==>) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1635	1727	
==>) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	519	618	
==>ystem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	519	618	
==>ystem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ve <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	519	618	
==>ystem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ve <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	742	890	
==>r [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15418	15544	
==>asses are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15412	15538	
==>asses are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19175	19266	
==>permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19175	19266	
==>permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4507	4599	
==>lessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15050	15142	
==>)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N), N1 is N + 1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4507	4599	
==>lessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4507	4599	
==>lessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6466	6583	
==>er number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCombiningMark {  # see 7.6
      # any ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4059	4162	
==>= $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4059	4162	
==>= $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4059	4162	
==>= $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12018	12139	
==>\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comm <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12018	12139	
==>\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comm <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9354	9468	
==>$self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        gi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9354	9468	
==>$self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        gi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2353	2449	
==>olved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2353	2449	
==>olved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13544	13634	
==>ackslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13544	13634	
==>ackslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2845	2956	
==>( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2845	2956	
==>( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	531	630	
==>link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, wh <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	531	630	
==>link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2986	3096	
==>refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2986	3096	
==>refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2986	3096	
==>refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::B <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1582	1682	
==>e}", 'unregister', '--user');

        print "*** Building the '$module' dependency.  Please wait...\ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1465	1580	
==>PE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its eleme <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1465	1580	
==>PE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its eleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3868	3960	
==>t id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '.. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5770	5862	
==>t id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '.. <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4248	4367	
==>r;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2484	2585	
==>_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2484	2585	
==>_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2484	2585	
==>_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.met <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7698	7862	
==>eq->new(
            Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&control_structure:<if>'),
                    A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3524	3635	
==>$name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3524	3635	
==>$name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3524	3635	
==>$name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1773	1883	
==>regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..f <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1773	1883	
==>regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..f <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1850	1947	
==>e.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1850	1947	
==>e.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20366	20461	
==>1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating objec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24918	25013	
==>1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating objec <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22857	22948	
==>ing.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22857	22948	
==>ing.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12893	12992	
==>de from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12893	12992	
==>de from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12893	12992	
==>de from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9765	9897	
==>{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3626	3787	
==>{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3626	3787	
==>{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3626	3787	
==>{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Per <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	374	471	
==>rray is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is exp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	374	471	
==>rray is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is exp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	595	684	
==>'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	595	684	
==>'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15680	15812	
==>{ (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15680	15812	
==>{ (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15680	15812	
==>{ (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        b <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19879	19964	
==>an_module_noimp := &PIL2JS::Internals::use_jsan_module_imp;

sub PIL2JS::Internals::us <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17740	17855	
==>ompute {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    return  si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	989	1082	
==>curses through its
hierarchy, reblessing objects that it finds along the way into new
namespac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	989	1082	
==>curses through its
hierarchy, reblessing objects that it finds along the way into new
namespac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	989	1082	
==>curses through its
hierarchy, reblessing objects that it finds along the way into new
namespac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5753	5868	
==>ackup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITIO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5753	5868	
==>ackup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITIO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5753	5868	
==>ackup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITIO <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21010	21110	
==>ssion> <')'> <Statement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Statement> <'wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10993	11093	
==>hich stores data to be used or
displayed by your program.  It is analagous to a simplified version of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14156	14256	
==>hich stores data to be used or
displayed by your program.  It is analagous to a simplified version of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10993	11093	
==>hich stores data to be used or
displayed by your program.  It is analagous to a simplified version of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14156	14256	
==>hich stores data to be used or
displayed by your program.  It is analagous to a simplified version of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	750	862	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	750	862	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	750	862	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $co <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8183	8327	
==>ty_value{'length'});
            my $k;
            loop(;$k < $length; $k++) {
                my $key = $k; # Eh. Spec would have us use ToStri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8485	8576	
==>ess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8485	8576	
==>ess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8485	8576	
==>ess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7878	8017	
==>ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7878	8017	
==>ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unbo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7878	8017	
==>ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unbo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	12	113	
==>ogress
package Pugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
our $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15332	15450	
==>oop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $pos = $X:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10638	10738	
==>---------------------------------

    method add_method;
    method get_method;
    method has_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10638	10738	
==>---------------------------------

    method add_method;
    method get_method;
    method has_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10638	10738	
==>---------------------------------

    method add_method;
    method get_method;
    method has_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10236	10404	
==>assed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              descrip <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	786	944	
==>assed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            descrip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	786	944	
==>assed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            descrip <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15684	15780	
==>Pinyan)

Produces a human-readable explanation of the execution of a regex.  Will
be able to prod <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	766	865	
==>ry, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	766	865	
==>ry, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23990	24081	
==>Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

In <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23990	24081	
==>Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

In <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	419	511	
==>:Template;
use HTML::TreeBuilder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	637	736	
==>e_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	637	736	
==>e_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	637	736	
==>e_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14595	14773	
==>y_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    pus <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14874	15052	
==>y_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    pus <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2907	3073	
==>y, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2907	3073	
==>y, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	167	281	
==>ict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	56	164	
==>ict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1759	1867	
==>package() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	56	164	
==>ict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	989	1135	
==>|| 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	989	1135	
==>|| 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7353	7470	
==>d and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .ge <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7353	7470	
==>d and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .ge <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35030	35132	
==>ect, you must create a new
object that is a clone of the first but for the changes.

=back

A Translato <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35030	35132	
==>ect, you must create a new
object that is a clone of the first but for the changes.

=back

A Translato <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6715	6812	
==>=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fired <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6715	6812	
==>=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fired <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5013	5171	
==>}
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5013	5171	
==>}
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1802	1922	
==>( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1802	1922	
==>( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}-> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	178	308	
==>ge   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	178	308	
==>ge   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1467	1564	
==>0, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1467	1564	
==>0, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35869	36001	
==>gth
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35869	36001	
==>gth
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35869	36001	
==>gth
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4145	4256	
==>H('::WithReason') ],
    methods => {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5997	6134	
==>= [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5997	6134	
==>= [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5997	6134	
==>= [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	146	240	
==>file::Name;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11070	11225	
==>{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11070	11225	
==>{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11070	11225	
==>{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized met <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9844	9935	
==>inite" until "Infinite".

Recurrence sets can be combined with union, intersection, differen <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9844	9935	
==>inite" until "Infinite".

Recurrence sets can be combined with union, intersection, differen <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2919	3070	
==>ystem( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7067	7176	
==>ists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_mag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7067	7176	
==>ists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_mag <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7067	7176	
==>ists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_mag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	487	616	
==>= 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @match;
  for ( 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9314	9426	
==>lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_option <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9314	9426	
==>lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_option <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9314	9426	
==>lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_option <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8140	8243	
==>g 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8140	8243	
==>g 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8140	8243	
==>g 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14264	14363	
==>e.pm
    http://cvs.perl.org/viewcvs/perl5/mirror/

  And of course man perlapi, etc.

  The perl re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5074	5188	
==>"    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2616	2730	
==>"    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3397	3511	
==>"    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = g <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22206	22297	
==>minimal in-RAM
storage implementation for the L<Relation> library.

I<TODO: REWRITE THE FOLL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4544	4636	
==>ray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4544	4636	
==>ray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4544	4636	
==>ray.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15426	15517	
==>de($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15426	15517	
==>de($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8034	8124	
==>and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8034	8124	
==>and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3893	4000	
==>ll_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.k <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7370	7477	
==>ll_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.k <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6336	6443	
==>ll_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.k <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4531	4625	
==>t => $self->left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $self);
}

su <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5392	5578	
==>(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &* <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5392	5578	
==>(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &* <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2982	3098	
==>*%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self. <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2982	3098	
==>*%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16899	17000	
==>ring = CALLER::<$_> --> Str )

Like C<lc>, but only affects the first character.


=item uc

 multi St <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	588	685	
==>RIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test resu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	588	685	
==>RIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test resu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1144	1241	
==>RIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7323	7420	
==>ix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7323	7420	
==>ix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7323	7420	
==>ix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4574	4667	
==>unted.
  --initrd-size=$initrd_size
    --initrd-size specifies the size of the (uncompressed) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	465	574	
==>ERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	465	574	
==>ERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_M <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30722	30821	
==>plate module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30722	30821	
==>plate module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2915	3018	
==>ed Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2915	3018	
==>ed Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2915	3018	
==>ed Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    out <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	430	551	
==>}xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9848	9969	
==>}xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2059	2167	
==>nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2059	2167	
==>nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!que <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	795	906	
==>t; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	795	906	
==>t; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	795	906	
==>t; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFil <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10444	10555	
==>les = (
    [$pugs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/parrot" => "$initrd_mnt/bin/pa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1091	1197	
==>@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19433	19532	
==>s not the same as a table.

The intended interface and use of this class in Perl programs is similar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23985	24084	
==>s not the same as a table.

The intended interface and use of this class in Perl programs is similar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22501	22600	
==>s not the same as a table.

The intended interface and use of this class in Perl programs is similar <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1254	1360	
==>nsity,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1254	1360	
==>nsity,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15545	15637	
==>eir
privileges regarding access to information details, or their technical
skills.  For examp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15545	15637	
==>eir
privileges regarding access to information details, or their technical
skills.  For examp <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1377	1477	
==>>new(<<'#\'EOG');
#\
type::variable::instantiated: layout($$) = { $.instance }
type::operator::nullar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1875	1967	
==>($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSour <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1875	1967	
==>($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSour <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1875	1967	
==>($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSour <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9339	9461	
==>this package didn't provide any alternatives
        last LINKING unless $alt;
        
        ### XXX this should probabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	768	869	
==>refix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	768	869	
==>refix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	768	869	
==>refix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1543	1648	
==>}
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1543	1648	
==>}
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1543	1648	
==>}
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4681	4768	
==>ounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", digits_int(Max).
p5_range_bound <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2653	2764	
==>s is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implem <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2653	2764	
==>s is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implem <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3000	3111	
==>s is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implem <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5143	5239	
==>rnel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	783	905	
==>"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	783	905	
==>"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4565	4666	
==>ll be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / inte <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4565	4666	
==>ll be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / inte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1382	1509	
==>pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1382	1509	
==>pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21416	21513	
==>s is that, for example, your package could come with a set of user
messages, but another package o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21416	21513	
==>s is that, for example, your package could come with a set of user
messages, but another package o <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9978	10079	
==>Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementat <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9978	10079	
==>Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2626	2725	
==>losed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2626	2725	
==>losed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2291	2393	
==>ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2291	2393	
==>ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2291	2393	
==>ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2727	2837	
==>original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2727	2837	
==>original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2727	2837	
==>original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4382	4604	
==>new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8053	8168	
==>n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8053	8168	
==>n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8053	8168	
==>n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22269	22391	
==>$1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18690	18812	
==>$1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    m <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	709	830	
==>$m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	709	830	
==>$m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5793	6016	
==>bParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5793	6016	
==>bParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5793	6016	
==>bParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3443	3544	
==>ig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7345	7442	
==>our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7345	7442	
==>our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7345	7442	
==>our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6025	6125	
==>tpos goto term_literal_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13945	14044	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13945	14044	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13945	14044	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7985	8082	
==>ray: Code)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14965	15061	
==>return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14965	15061	
==>return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14965	15061	
==>return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3196	3301	
==>way status and headers
  # This should all be done better so the response doesn't live in
  # memory all a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3196	3301	
==>way status and headers
  # This should all be done better so the response doesn't live in
  # memory all a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12347	12441	
==>c?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc? <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12405	12499	
==>c?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc? <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9747	9849	
==>_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1411	1511	
==>ay are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1411	1511	
==>ay are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1411	1511	
==>ay are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1517	1619	
==>l6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actual <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1517	1619	
==>l6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actual <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1517	1619	
==>l6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actual <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	750	845	
==>OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6658	6759	
==>of text which seem to still be inside a list?

Basically the item body, much like this text is.

- how <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6658	6759	
==>of text which seem to still be inside a list?

Basically the item body, much like this text is.

- how <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18347	18444	
==>ce address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18347	18444	
==>ce address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7498	7595	
==>ur @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1270	1367	
==>Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7498	7595	
==>ur @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7498	7595	
==>ur @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	646	755	
==>e_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	646	755	
==>e_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	646	755	
==>e_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23706	23789	
==>- 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9675	9775	
==>e) { my $s = $value; $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2471	2562	
==>le_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2471	2562	
==>le_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2471	2562	
==>le_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	532	653	
==>($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord ' <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	532	653	
==>($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord ' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6422	6519	
==>et $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6422	6519	
==>et $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18085	18178	
==>tem Character Class Rendering

The visual() method of I<anyof> objects will quell the repetiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16258	16476	
==>elems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16258	16476	
==>elems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16258	16476	
==>elems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arr <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4162	4291	
==>$dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_index} ) {
        push @{ $no_index->{'direc <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	30	139	
==><»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	325	431	
==>rrorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	325	431	
==>rrorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	325	431	
==>rrorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = " <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1789	1899	
==>*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1789	1899	
==>*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	649	755	
==>der;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	649	755	
==>der;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1331	1437	
==>",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1331	1437	
==>",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1331	1437	
==>",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6458	6562	
==>t be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6241	6343	
==>t be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1344	1442	
==>vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1344	1442	
==>vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6775	6881	
==>will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4127	4233	
==>will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6775	6881	
==>will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4127	4233	
==>will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1828	1967	
==>=> [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1110	1237	
==>split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1110	1237	
==>split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1110	1237	
==>split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4905	5063	
==>elf.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4905	5063	
==>elf.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $ope <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3708	3854	
==>elf.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $ope <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3708	3854	
==>elf.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $ope <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10832	10973	
==>med;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub af <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10826	10967	
==>med;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub af <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14030	14139	
==>("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method qui <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14030	14139	
==>("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method qui <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14592	14690	
==>rt for those needs. The
following is a list of future features planned for this module.

- better e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14650	14748	
==>rt for those needs. The
following is a list of future features planned for this module.

- better e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1694	1786	
==>aveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
peo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1694	1786	
==>aveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
peo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10462	10570	
==>ook through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10462	10570	
==>ook through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10462	10570	
==>ook through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6975	7078	
==>duce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15301	15400	
==>ub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15301	15400	
==>ub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15301	15400	
==>ub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28391	28491	
==>values are escaped and you shouldn't try to
extract them.  This method is also defined as the implici <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35747	35847	
==>values are escaped and you shouldn't try to
extract them.  This method is also defined as the implici <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28391	28491	
==>values are escaped and you shouldn't try to
extract them.  This method is also defined as the implici <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35747	35847	
==>values are escaped and you shouldn't try to
extract them.  This method is also defined as the implici <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9096	9208	
==>( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $mod <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9096	9208	
==>( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $mod <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2148	2257	
==>ir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2126	2235	
==>ir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6894	7050	
==>:Grammar::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Grammar::Term.bareword> 
            #    { return $/{'Pugs::Gr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1598	1691	
==>pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1598	1691	
==>pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1598	1691	
==>pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10289	10411	
==>Use UNIX style error messages instead of MPW style.
	    $runperl .= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4450	4555	
==>pec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4450	4555	
==>pec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4450	4555	
==>pec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX <==
4	/Users/nnunley/pugs/util/func_refact.pl	2137	2258	
==>eq $new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4418	4514	
==>pand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4418	4514	
==>pand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4418	4514	
==>pand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4043	4247	
==>:Package->new( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15361	15491	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15361	15491	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15361	15491	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1368	1483	
==>s not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<C <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1368	1483	
==>s not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<C <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	825	920	
==>n February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

P <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	825	920	
==>n February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1196	1294	
==>:Balanced::extract_delimited( "/" . $_[0], "/" );
    $extracted = substr( $extracted, 1, -1 ) if l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6659	6782	
==>ented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6659	6782	
==>ented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6659	6782	
==>ented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	290	380	
==>@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o->{'val_string'}}
sub as_array  {my($o)=@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28523	28743	
==>in( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlific <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28523	28743	
==>in( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlific <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28523	28743	
==>in( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlific <==
4	/Users/nnunley/pugs/util/importgraph.pl	1567	1677	
==>} @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3404	3505	
==>:Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    bles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3404	3505	
==>:Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    bles <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3404	3505	
==>:Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    bles <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9187	9285	
==>*/
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#--------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	223	474	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	223	474	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34449	34541	
==>item C<semijoin (Relation $other!) returns Relation>

This method is a generic relational ope <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38999	39091	
==>item C<semijoin (Relation $other!) returns Relation>

This method is a generic relational ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1728	1861	
==>ta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1728	1861	
==>ta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overw <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1728	1861	
==>ta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overw <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14374	14566	
==>")->push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           type => "text/css", 
                                           hr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6183	6286	
==>e useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6183	6286	
==>e useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6183	6286	
==>e useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2848	2944	
==>me, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2848	2944	
==>me, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2848	2944	
==>me, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = a <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1081	1208	
==>ck_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

-------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	106	224	
==>Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	106	224	
==>Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	106	224	
==>Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(arg <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1035	1142	
==>al($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be us <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1035	1142	
==>al($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be us <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11723	11822	
==>.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11723	11822	
==>.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a n <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4943	5063	
==>ng(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some ke <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8420	8540	
==>ng(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some ke <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8031	8114	
==>----------------------------------------------------------------------------
## util <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8031	8114	
==>----------------------------------------------------------------------------
## util <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12604	12729	
==>$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $sou <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12604	12729	
==>$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $sou <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4813	4906	
==>fully qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4813	4906	
==>fully qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3996	4105	
==>type, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Pe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3996	4105	
==>type, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Pe <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	181	273	
==>aoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	181	273	
==>aoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	78	197	
==>LD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header retur <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	78	197	
==>LD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	839	940	
==>say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	795	893	
==>say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::A <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	590	709	
==>XISTS, store => \$file },
        meta    => { store => \$meta, allow => ISA_JIB_META },
    };
    my $args = check( $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1066	1166	
==>y($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1066	1166	
==>y($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1066	1166	
==>y($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5690	5859	
==>es' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5690	5859	
==>es' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5690	5859	
==>es' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13375	13492	
==>delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{@keys}         %hash<key1>.delete{@keys}


= <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1772	1867	
==>C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1772	1867	
==>C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1275	1366	
==>Lit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1275	1366	
==>Lit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39956	40082	
==>$class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39956	40082	
==>$class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39956	40082	
==>$class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	50	167	
==>Cwd;
use Config();
use File::Spec;
our %Config = %Config::Config;

sub get_config {
    my $config = {
        perl_re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1868	1960	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1831	1923	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1868	1960	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1831	1923	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11234	11333	
==>"\"$^N\"":"undef","\n";
END




__END__

=pod
Objective:

  Permit swapping in an alternate regexp e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12968	13065	
==>afe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12968	13065	
==>afe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12968	13065	
==>afe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1306	1401	
==>r $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1306	1401	
==>r $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_b <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	587	675	
==>------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# --------- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	610	698	
==>-------------
# Author: Yung-chung Lin (xern@cpan.org)
# -------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7078	7194	
==>$_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7078	7194	
==>$_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18738	18832	
==>taneously
trying to avoid triggering core behavior which we are not prepared to
support (such a <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3028	3122	
==>taneously
trying to avoid triggering core behavior which we are not prepared to
support (such a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	787	919	
==>here quite different!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6140	6259	
==>ve the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6140	6259	
==>ve the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6140	6259	
==>ve the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8334	8442	
==>xed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8334	8442	
==>xed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8334	8442	
==>xed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17732	17832	
==>gicalANDExpression :words {  # see 11.11
      <BitwiseORExpression>
    | <LogicalANDExpression> <'& <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7074	7240	
==>le (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have som <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7538	7704	
==>le (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have som <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	358	475	
==>am->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	358	475	
==>am->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6452	6593	
==>ue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeee <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6452	6593	
==>ue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeee <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1962	2105	
==>ss $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1962	2105	
==>ss $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1962	2105	
==>ss $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	2184	2274	
==>5/site_perl/PIL /Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /Libr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18877	18975	
==>e native
compiler creates, but which we obviously don't have).


=head1 struct regexp

  typedef st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	257	354	
==>self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	257	354	
==>self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	257	354	
==>self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a n <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17037	17188	
==>HTML::Element->new('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1661	1762	
==>Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1661	1762	
==>Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1661	1762	
==>Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Cou <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1552	1668	
==>mflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otil <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1552	1668	
==>mflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otil <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12388	12482	
==>_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5031	5125	
==>_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4049	4151	
==>ion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4049	4151	
==>ion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3319	3441	
==>",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3319	3441	
==>",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3319	3441	
==>",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1877	1996	
==>custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1877	1996	
==>custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1877	1996	
==>custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1948	2061	
==>subscription and event subclasses to define these
        # if at all.

        # the default Event/Subscriber pai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1407	1544	
==>GE__->add_rule(
        name => '!',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	810	919	
==>)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	810	919	
==>)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	810	919	
==>)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37218	37397	
==>);
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37218	37397	
==>);
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37218	37397	
==>);
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18428	18539	
==>)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3082	3199	
==>is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3082	3199	
==>is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3082	3199	
==>is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || def <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	825	936	
==>$self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_thunk { <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1097	1207	
==>->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	178	275	
==>g for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal optio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	178	275	
==>g for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal optio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	178	275	
==>g for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal optio <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9846	9962	
==>name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9846	9962	
==>name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5463	5567	
==>he source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5463	5567	
==>he source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5385	5480	
==>is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5385	5480	
==>is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8807	8919	
==>ree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8807	8919	
==>ree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4995	5091	
==>ass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precend <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7663	7759	
==>ass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7098	7206	
==>XX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7098	7206	
==>XX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7098	7206	
==>XX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	543	641	
==>cts (or possibly
    # the default values too)
    (blessed($signature) && ($signature->isa('closur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2562	2723	
==>constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2573	2734	
==>constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1624	1728	
==>(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1624	1728	
==>(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1624	1728	
==>(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2113	2219	
==>f $debug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2384	2482	
==>(~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2384	2482	
==>(~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2384	2482	
==>(~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	565	662	
==>encee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	565	662	
==>encee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	565	662	
==>encee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	99	187	
==>"
package Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13635	13769	
==>m' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13635	13769	
==>m' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13635	13769	
==>m' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxe <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	485	581	
==>f a pugs bootstrap exercise.

This code is currently completely in flux.  It is simultaneously be <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11924	12041	
==>eading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     : <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15401	15518	
==>eading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     : <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14736	14853	
==>eading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     : <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20293	20384	
==>ow arbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $string --> Num)
{ ... <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	913	1022	
==>OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto end <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31640	31740	
==>er set for itself.  When the program is run, it would
determine either from a user config file or a u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31640	31740	
==>er set for itself.  When the program is run, it would
determine either from a user config file or a u <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	543	641	
==>ion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	warn "lib_links has been c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14322	14482	
==>@a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14322	14482	
==>@a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14322	14482	
==>@a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        wh <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2853	3013	
==>@a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16353	16452	
==>I SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16353	16452	
==>I SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16353	16452	
==>I SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21863	21954	
==>mplementation of the Relation role

=head1 VERSION

This document describes Relation::Exampl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	686	816	
==>uce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5073	5176	
==>"html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5073	5176	
==>"html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5073	5176	
==>"html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4894	5010	
==>ie "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4894	5010	
==>ie "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find t <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9118	9231	
==>L_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9118	9231	
==>L_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1367	1485	
==>\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1367	1485	
==>\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1367	1485	
==>\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25565	25645	
==>B,C,_,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4365	4557	
==>s \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4906	5098	
==>s \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                nam <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10683	10782	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10683	10782	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13773	13899	
==>]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':cano <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13773	13899	
==>]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':cano <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13773	13899	
==>]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':cano <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2237	2332	
==>gorithm switching.  When their fast method fails, they fall back
on something more likely to wor <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6930	7029	
==>ess::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1370	1469	
==>ess::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6930	7029	
==>ess::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1370	1469	
==>ess::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by Stevan Li <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19550	19652	
==>he current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specif <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18531	18633	
==>he current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specif <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19550	19652	
==>he current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specif <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18531	18633	
==>he current nickname, username, or ircname. Note that thesse are I<not>
necessarily the names you specif <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2324	2497	
==>on  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2JS Array.pm and S29draft.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2514	2626	
==>ne('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2514	2626	
==>ne('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eva <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2514	2626	
==>ne('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eva <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15201	15305	
==>($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3281	3382	
==>mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3281	3382	
==>mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3281	3382	
==>mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file! <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5516	5645	
==>xt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5516	5645	
==>xt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2097	2196	
==>dd_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2097	2196	
==>dd_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1307	1501	
==>else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            r <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1307	1501	
==>else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1456	1565	
==>egated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1467	1576	
==>egated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ), <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4800	4898	
==>n irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5050	5148	
==>n irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13437	13642	
==>o handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13437	13642	
==>o handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13437	13642	
==>o handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->n <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1062	1176	
==>elf = shift;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $base = $self->{_t <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5824	6090	
==>ck.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5824	6090	
==>ck.push($token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        } <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4956	5157	
==>ck.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4956	5157	
==>ck.push($token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	659	786	
==>cs returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5077	5172	
==>renced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5077	5172	
==>renced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5077	5172	
==>renced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5874	5988	
==>yper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5874	5988	
==>yper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5874	5988	
==>yper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15044	15132	
==>plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N), N1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3127	3369	
==>es
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsif ($t =~ /^\<.*\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2273	2409	
==>= 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2273	2409	
==>= 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2273	2409	
==>= 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pil <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14736	14834	
==>fies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14736	14834	
==>fies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header fie <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15648	15742	
==>`start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15648	15742	
==>`start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_op <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16190	16290	
==>l it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($sym <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2599	2699	
==>l it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($sym <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3990	4083	
==>d1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-numbe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3990	4083	
==>d1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-numbe <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	573	667	
==>w {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_result <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	573	667	
==>w {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_result <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3998	4077	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3998	4077	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6597	6702	
==>, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6597	6702	
==>, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5499	5602	
==>normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5499	5602	
==>normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3782	3916	
==>][0] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4096	4196	
==>{ $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4096	4196	
==>{ $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4096	4196	
==>{ $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10734	10851	
==>);
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connected { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10734	10851	
==>);
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connected { <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4900	4997	
==>',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4900	4997	
==>',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LVal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8530	8669	
==>all next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8530	8669	
==>all next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8530	8669	
==>all next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2704	2825	
==>> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2704	2825	
==>> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2704	2825	
==>> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It' <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10838	10959	
==>$3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the opening delimiter (provided on <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2326	2420	
==>"S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5661	5755	
==><@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref summary <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2326	2420	
==>"S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2326	2420	
==>"S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	184	277	
==>ethod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	184	277	
==>ethod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	184	277	
==>ethod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9808	9905	
==>int STDERR "hi\n";
    return reverse(1,undef,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::Stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12004	12100	
==>D__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12004	12100	
==>D__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12004	12100	
==>D__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	474	594	
==>bcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	571	691	
==>bcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23192	23288	
==>tinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27744	27840	
==>tinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Rela <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3067	3217	
==>g ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value if provided <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2930	3035	
==>varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$dec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2930	3035	
==>varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$dec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2930	3035	
==>varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$dec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1305	1430	
==>rams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # supp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1305	1430	
==>rams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # supp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1305	1430	
==>rams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # supp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5805	5920	
==>plement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5805	5920	
==>plement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5805	5920	
==>plement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39298	39391	
==>::Example>

This multi-method is a generic binary relational operator that is identical
to C<j <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6762	6879	
==>y, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documentat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6537	6645	
==>y, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documentat <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	449	542	
==>('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 D <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	449	542	
==>('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 D <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2649	2782	
==>er" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2649	2782	
==>er" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*q <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6952	7051	
==>repended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher it <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6952	7051	
==>repended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher it <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11849	11954	
==>t>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 9.3.1
      <[0..9]>
}
rule ExponentP <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1539	1634	
==>lect> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no fa <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1539	1634	
==>lect> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4981	5093	
==>E: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4981	5093	
==>E: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4981	5093	
==>E: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28139	28233	
==>voke perl on
each test.  For example, setting C<HARNESS_PERL_SWITCHES> to C<-W> will
run all te <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6306	6421	
==>f: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6306	6421	
==>f: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5876	5970	
==>ually enciphers the data.  They may choose, however, to override 
any method for speed--althoug <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5876	5970	
==>ually enciphers the data.  They may choose, however, to override 
any method for speed--althoug <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3310	3420	
==>defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$k <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3310	3420	
==>defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6794	6922	
==>r . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6794	6922	
==>r . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6794	6922	
==>r . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) ) <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	334	448	
==>returns 9
sub evaluate (Str $expr) returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6300	6416	
==>n join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#---- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6312	6428	
==>n join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#---- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23753	23851	
==>his class defaults it to False.

=back

This is the main Relation constructor method:

=over

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28305	28403	
==>his class defaults it to False.

=back

This is the main Relation constructor method:

=over

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12380	12498	
==>p { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12380	12498	
==>p { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12380	12498	
==>p { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	928	1039	
==>intf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf ST <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10119	10282	
==>refix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( grep { $_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2172	2271	
==>ved_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_match <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2172	2271	
==>ved_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_match <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2252	2351	
==>ved_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_match <==
4	/Users/nnunley/pugs/util/package-osx.pl	619	734	
==>e
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18049	18145	
==>>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18049	18145	
==>>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18049	18145	
==>>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25463	25561	
==>age Key>

Str - This uniquely identifies the type of message that the object
represents (or gives t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25463	25561	
==>age Key>

Str - This uniquely identifies the type of message that the object
represents (or gives t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1277	1370	
==>ems) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

meth <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1277	1370	
==>ems) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

meth <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4073	4291	
==>->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4270	4372	
==>r hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4270	4372	
==>r hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4270	4372	
==>r hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' ! <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	595	717	
==>, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1083	1205	
==>, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	595	717	
==>, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1083	1205	
==>, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16354	16496	
==>,
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16354	16496	
==>,
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6866	6991	
==>) {
            return 'Pugs::Runtime::Perl6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36383	36480	
==>end

Family: assertion

Types: suspend (C<< (?> >>)

Data: array reference of any number of object <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2280	2408	
==>l a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2280	2408	
==>l a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24440	24538	
==>ation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the G <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24440	24538	
==>ation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the G <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2607	2716	
==>i sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2607	2716	
==>i sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2607	2716	
==>i sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pi <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	166	265	
==>e($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path );
my $fullnam <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18632	18735	
==>tExpressionNoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4887	4988	
==>rn "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4887	4988	
==>rn "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4887	4988	
==>rn "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15051	15204	
==>lf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15051	15204	
==>lf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15051	15204	
==>lf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9488	9588	
==>o quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITESPACE, target, pos, las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11518	11709	
==>0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11518	11709	
==>0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11518	11709	
==>0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24346	24463	
==>"%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, "?% okay";
    }
    my $ender = 's' x ($sk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12224	12354	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12224	12354	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12224	12354	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'in <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2105	2230	
==>type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2849	2963	
==>Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Ciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2849	2963	
==>Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Ciph <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	318	422	
==>$sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	318	422	
==>$sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9167	9276	
==>ext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9167	9276	
==>ext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9167	9276	
==>ext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'t <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	25	129	
==>ersion
use utf8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5985	6090	
==>tch;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capture_closure <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5797	5897	
==>tch;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capture_closure <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20091	20179	
==>tE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timesta <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20091	20179	
==>tE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timesta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14423	14552	
==>TE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14423	14552	
==>TE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14423	14552	
==>TE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9631	9751	
==>b _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args) {
	# In VMS protect with doublequotes because otherw <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	755	862	
==>any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	755	862	
==>any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18591	18693	
==>ferer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the curr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18591	18693	
==>ferer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the curr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6097	6227	
==>> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6097	6227	
==>> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6097	6227	
==>> --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Ob <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15172	15272	
==>e, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	679	955	
==>sh @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	679	955	
==>sh @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	679	955	
==>sh @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10673	10803	
==>er bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     ||
           $n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2098	2199	
==>>makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $s <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1207	1305	
==>>makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $s <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4618	4714	
==>Type'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4618	4714	
==>Type'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2427	2520	
==>}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2427	2520	
==>}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2427	2520	
==>}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_un <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	353	442	
==>s $Config{keep} };

GetOptions \%Config, qw(--inline --pugs|p=s --precompile|i=s@ --verbos <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8176	8282	
==>ext() method:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

When the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1375	1472	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1375	1472	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1375	1472	
==>= qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Eva <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	503	621	
==>alues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	503	621	
==>alues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	503	621	
==>alues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $valu <==
4	/Users/nnunley/pugs/util/package-osx.pl	3625	3722	
==>al/man/man3/Perl6::API.3
        /usr/local/man/man3/Perl6::API.3pm
        /usr/local/man/man3/Pe <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	311	417	
==>);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITE <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	311	417	
==>);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITE <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30395	30491	
==>mber
large, with each set member being an an exclusive alternative for the rest
of the set. There <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30395	30491	
==>mber
large, with each set member being an an exclusive alternative for the rest
of the set. There <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1863	1963	
==>@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1863	1963	
==>@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1863	1963	
==>@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    funct <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16118	16207	
==>In> <'>='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'instanceof'> <ShiftExpress <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11885	11982	
==>e::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13277	13374	
==>e::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11885	11982	
==>e::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13277	13374	
==>e::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dstart, end <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6462	6574	
==>',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_se <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6462	6574	
==>',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3024	3121	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
mu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3024	3121	
==>ded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
mu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2432	2569	
==>che{$dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessors( qw[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	67	163	
==>nctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	67	163	
==>nctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	67	163	
==>nctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3374	3501	
==>.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expression <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3374	3501	
==>.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expression <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17076	17172	
==>ation is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl cod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17076	17172	
==>ation is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2838	2985	
==>t all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ do <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3022	3169	
==>t all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ do <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3635	3729	
==>.  This is done by setting C<$match.multidex> to the index where
captures should put themselves <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3635	3729	
==>.  This is done by setting C<$match.multidex> to the index where
captures should put themselves <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7386	7536	
==>rl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	80	180	
==>nstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	80	180	
==>nstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of thi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	80	180	
==>nstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of thi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1549	1691	
==>@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1320	1427	
==>, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1320	1427	
==>, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1320	1427	
==>, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconv <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11231	11331	
==>ion can take a few different forms:

=over 8

=item Comparator

A closure with arity of 2, which retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5260	5346	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5260	5346	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('sup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5260	5346	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('sup <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1556	1654	
==>ss represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty s <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1318	1416	
==>ss represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1556	1654	
==>ss represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty s <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1318	1416	
==>ss represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2990	3111	
==>:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2990	3111	
==>:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2990	3111	
==>:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	63	172	
==>ule - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1098	1214	
==>FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2402	2508	
==>my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2402	2508	
==>my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2402	2508	
==>my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10326	10442	
==>nserts the specifiend items into the set. Returns the number of items
inserted.

It is not fatal to insert an item wh <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8219	8335	
==>nserts the specifiend items into the set. Returns the number of items inserted.

It is not fatal to insert an item wh <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10326	10442	
==>nserts the specifiend items into the set. Returns the number of items
inserted.

It is not fatal to insert an item wh <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8219	8335	
==>nserts the specifiend items into the set. Returns the number of items inserted.

It is not fatal to insert an item wh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43500	43639	
==>shift;
                $e->get('WALKMETH')
                  ->do(list->new(
                      $e->get('$self:')->class->send('dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2826	2945	
==>, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2826	2945	
==>, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2826	2945	
==>, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	719	855	
==>= $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	719	855	
==>= $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	719	855	
==>= $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_pa <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1152	1251	
==>:Internals::trunc($x);
 }
 our &Num::int ::= &Num::truncate;

 # XXX - referred to, but not specced, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16917	17021	
==>ther to do optimize...

  # strings
  /foo|father|fort/  => /f(?:o(?:o|rt)|ather)/

  # char classes
  /[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7131	7221	
==>_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7131	7221	
==>_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7131	7221	
==>_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7375	7464	
==>is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postci <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9577	9666	
==>p{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{'is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7375	7464	
==>is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postci <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7375	7464	
==>is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postci <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7408	7535	
==>( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Failed to 'chmod +w' '$file': <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1096	1200	
==>~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1096	1200	
==>~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1096	1200	
==>~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2341	2436	
==>t.  Returns the C<%results> of the test.
See L<Results>.

C<@test_output> should be the raw outp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7300	7405	
==>ndefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7300	7405	
==>ndefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7300	7405	
==>ndefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1967	2055	
==>y $params = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to($params->le <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14653	14784	
==>$_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop);
    };
  }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	963	1054	
==>($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	963	1054	
==>($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	963	1054	
==>($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2186	2288	
==>ion}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: ([\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2487	2584	
==>ll report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2487	2584	
==>ll report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2487	2584	
==>ll report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21049	21176	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21696	21823	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17470	17597	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18117	18244	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13917	14091	
==>ng,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4026	4172	
==>ng,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4026	4172	
==>ng,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4026	4172	
==>ng,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10241	10359	
==>thod skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2278	2386	
==>thod skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2278	2386	
==>thod skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2550	2668	
==>ce {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2550	2668	
==>ce {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2550	2668	
==>ce {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_clas <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10711	10815	
==>le::free->new;
		
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4945	5121	
==>1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4792	4963	
==>1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5275	5439	
==>ch => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5108	5265	
==>ch => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4445	4552	
==>d_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4445	4552	
==>d_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4445	4552	
==>d_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or di <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16376	16478	
==>tax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1221	1346	
==>} catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1221	1346	
==>} catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1221	1346	
==>} catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._e <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8194	8306	
==>)
.end


.sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local string target
    .local pmc m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2891	3006	
==>or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2891	3006	
==>or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2891	3006	
==>or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	104	209	
==>::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use Carp 'confess';
use <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12115	12309	
==>f_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_ar <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12115	12309	
==>f_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_ar <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9135	9285	
==>count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the firs <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9135	9285	
==>count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the firs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8959	9081	
==>length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8959	9081	
==>length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8959	9081	
==>length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifte <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4381	4473	
==>itrd-gz=$initrd_gz
    mklivecd.pl automatically generates a gzipped initrd suitable for GRUB <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3112	3271	
==>a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3112	3271	
==>a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3112	3271	
==>a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	535	646	
==>S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefix =>          '< <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	929	1069	
==>urn '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	929	1069	
==>urn '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6934	7048	
==>if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6934	7048	
==>if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$cha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3523	3632	
==>$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7000	7109	
==>$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5957	6066	
==>$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5430	5530	
==>revision osname runcore timestamp duration>),
    (map { $smoke{summary}{$_} } qw<total ok failed tod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1511	1629	
==>53;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1511	1629	
==>53;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nic <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33001	33100	
==>names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33001	33100	
==>names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22219	22312	
==>" warning raised by a zero-width
assertion followed by C<?>, which doesn't warrant the warning <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1897	2012	
==>rackets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1077	1174	
==>d fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1077	1174	
==>d fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1077	1174	
==>d fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9549	9676	
==>value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9549	9676	
==>value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9549	9676	
==>value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	842	949	
==>$args, @_ ) if @_;
    $args;
}

# For mm args that take multiple space-seperated args,
# append an argument <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14060	14192	
==>nt_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $categ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10233	10365	
==>nt_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $categ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11069	11201	
==>nt_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $categ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	357	472	
==>HTTP_COOKIE'} ne '') {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5373	5469	
==>re here will be passed the current value itself, which means 
you it is essentially read-only, ho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	717	810	
==>cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	717	810	
==>cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	717	810	
==>cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6794	6926	
==>= $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12879	13006	
==>= $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6231	6335	
==>eturn $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6231	6335	
==>eturn $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10911	11041	
==>e zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12382	12512	
==>e zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14388	14518	
==>e zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15859	15989	
==>e zero tuples; so does result.
        return Relation.new(
            heading => $!heading.union( $other!heading ),
            b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23697	23799	
==>t has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28249	28351	
==>t has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27062	27164	
==>t has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4656	4763	
==>ic and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4656	4763	
==>ic and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4838	4929	
==>hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@chi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4838	4929	
==>hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@chi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4926	5032	
==>i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4926	5032	
==>i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5516	5622	
==>i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2637	2749	
==>spatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2637	2749	
==>spatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2637	2749	
==>spatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2159	2252	
==>rbitrary code;
each alternate engine may introduce additional security or memory problems.

Ta <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4660	4802	
==>huffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	82	184	
==>_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	82	184	
==>_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	82	184	
==>_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12494	12643	
==>cher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12494	12643	
==>cher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12494	12643	
==>cher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unl <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8401	8521	
==>tate of the current test.
        my @failed = grep { !$results{details}[$_-1]{ok} }
                     1..@{$results{d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11310	11412	
==>indBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11310	11412	
==>indBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11310	11412	
==>indBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18503	18599	
==>w\d:]>.  If you want to go even further and remove
any embedded class that is I<entirely> redunda <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4706	4804	
==>}
sub field_is_optional {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4788	4915	
==>0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4788	4915	
==>0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4788	4915	
==>0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6716	6808	
==>::blessed($y)) {
			die "baaah! expected type cannot be placeholder" if $y->isa("Blondie::Typ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13559	13699	
==>n)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(% <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13559	13699	
==>n)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(% <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6494	6612	
==>eader("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6494	6612	
==>eader("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21574	21681	
==>er::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	625	724	
==>(and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	625	724	
==>(and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	625	724	
==>(and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8968	9076	
==>push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8968	9076	
==>push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8968	9076	
==>push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_ma <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1866	1963	
==>if $x == 0;
     Pugs::Internals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Num $x, Nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31181	31327	
==>>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31181	31327	
==>>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31181	31327	
==>>shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2930	3066	
==>p);
          local $Z::oop{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3663	3761	
==>publisher.notify(Class::Events::Event::Named.new($name));
        }
    }
}

class Class::Events::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5334	5428	
==>pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5334	5428	
==>pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5334	5428	
==>pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SU <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4224	4345	
==>nd error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), return;
        
        1 wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	470	566	
==>ze($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	470	566	
==>ze($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	470	566	
==>ze($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14111	14216	
==>}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpression>
    | <CallExpression>
}
rule Pos <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2883	3027	
==>) },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2883	3027	
==>) },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12073	12163	
==>Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12073	12163	
==>Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3697	3807	
==>{
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3697	3807	
==>{
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_ha <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1281	1410	
==>int "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38483	38609	
==>everse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38483	38609	
==>everse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38483	38609	
==>everse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVE <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16725	16825	
==>turns its results for calling code to output as it sees fit.  It
also does not make direct use of env <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16725	16825	
==>turns its results for calling code to output as it sees fit.  It
also does not make direct use of env <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1426	1518	
==>$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1426	1518	
==>$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2485	2645	
==>e
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2485	2645	
==>e
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	412	544	
==>ubrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     think <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	412	544	
==>ubrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     think <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	801	909	
==>int STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	801	909	
==>int STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	801	909	
==>int STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8229	8331	
==>st_error), return;

    my $pkg = JIB::Package->new( file => $file );

    return $self->add_package(pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	442	555	
==>me});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	442	555	
==>me});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	442	555	
==>me});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8121	8262	
==>class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8121	8262	
==>class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	475	588	
==>.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	475	588	
==>.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10186	10305	
==>UG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style er <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12381	12496	
==>ue );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12381	12496	
==>ue );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $thi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12381	12496	
==>ue );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2079	2182	
==>hority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2079	2182	
==>hority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2079	2182	
==>hority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	847	938	
==>$ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15016	15125	
==>a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15016	15125	
==>a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	923	1022	
==>t @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Obj <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	923	1022	
==>t @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1240	1346	
==>re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1240	1346	
==>re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1240	1346	
==>re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3242	3360	
==>$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3242	3360	
==>$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2021	2116	
==>-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1945	2036	
==>-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6485	6582	
==>nstance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6485	6582	
==>nstance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6485	6582	
==>nstance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class( <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4052	4178	
==>unless exists $values{$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2472	2574	
==>0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2472	2574	
==>0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2472	2574	
==>0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS:: <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	100	205	
==>d hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3083	3184	
==>need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3083	3184	
==>need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3083	3184	
==>need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4377	4473	
==>gnostics and output match exactly.  If you pass
C<$description>, this will use it as the test des <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4377	4473	
==>gnostics and output match exactly.  If you pass
C<$description>, this will use it as the test des <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4457	4553	
==>gnostics and output match exactly.  If you pass
C<$description>, this will use it as the test des <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	397	490	
==>ple assert routine since we don't have Carp::Assert handy.

B<For internal use by Test::Harnes <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6456	6593	
==>perl version info from $file\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4374	4472	
==>IL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4374	4472	
==>IL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4374	4472	
==>IL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1996	2133	
==>need better checks
        
        ### XXX create an object::accessor object, blessed in the right class
        my $obj = 
            $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	192	292	
==>Num/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	192	292	
==>Num/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Par <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	192	292	
==>Num/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Par <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15453	15569	
==>/* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

Other things the world messes with:

  I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34897	35007	
==>print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34897	35007	
==>print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34897	35007	
==>print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3661	3757	
==>ecause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Whe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3661	3757	
==>ecause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Whe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3661	3757	
==>ecause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23015	23197	
==>ti-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23015	23197	
==>ti-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23015	23197	
==>ti-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	218	351	
==>is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8152	8347	
==>);   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8152	8347	
==>);   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8152	8347	
==>);   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7323	7436	
==>r::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1296	1407	
==>n.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempora <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1296	1407	
==>n.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempora <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1296	1407	
==>n.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempora <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4691	4801	
==>ror ), return;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->pa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8847	8965	
==>perations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $differenc <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8847	8965	
==>perations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $differenc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	472	585	
==>aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub g <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2000	2113	
==>aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub g <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1346	1470	
==>= '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1346	1470	
==>= '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9197	9304	
==>'s .end is undefined

=cut



### current implementation is always anchored at ^

### because it was special <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8896	8999	
==>'s .end is undefined
=cut

### current implementation is always anchored at ^
### because it was special <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12159	12261	
==>confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12159	12261	
==>confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12159	12261	
==>confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4938	5056	
==>$head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STD <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7344	7462	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8696	8814	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19364	19482	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26006	26109	
==>ct is the first value in C<@_>.>  I made sure of this in
my code; you should make sure in yours.

Matchi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1152	1252	
==>10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1152	1252	
==>10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1152	1252	
==>10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19935	20163	
==>ngify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19935	20163	
==>ngify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @ite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19935	20163	
==>ngify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10195	10307	
==>{
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	882	984	
==>nable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumpe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	882	984	
==>nable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumpe <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1659	1750	
==>e(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::Li <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1659	1750	
==>e(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::Li <==
4	/Users/nnunley/pugs/util/claim_drift.pl	599	713	
==>e you are in the top level of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	348	440	
==>ew PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	348	440	
==>ew PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	348	440	
==>ew PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self) <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	482	582	
==>tion.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	482	582	
==>tion.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	529	625	
==>returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	529	625	
==>returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3206	3367	
==><|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1073	1166	
==>:JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1073	1166	
==>:JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1073	1166	
==>:JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1857	1977	
==>ring("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1857	1977	
==>ring("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    pr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1857	1977	
==>ring("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10684	10800	
==>=~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10842	10958	
==>=~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16555	16666	
==>str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16555	16666	
==>str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5974	6099	
==>ge Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5974	6099	
==>ge Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5974	6099	
==>ge Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3429	3533	
==>$right->params) == bit->new(1) && 
     $left->returns eq $right->returns) ? 
        bit->new(1) : bit-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7714	7816	
==>nt_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7714	7816	
==>nt_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7714	7816	
==>nt_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14426	14558	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, \$how);
  });

  # print POSIX cla <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	369	469	
==>ub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   r <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	369	469	
==>ub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	308	435	
==>Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Mul <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	308	435	
==>Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Mul <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	841	934	
==>::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	841	934	
==>::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Comp <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6944	7090	
==>s;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6944	7090	
==>s;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5316	5417	
==>xport {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5316	5417	
==>xport {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1285	1392	
==>quest {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+) <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1285	1392	
==>quest {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+) <==
4	/Users/nnunley/pugs/util/testgraph.pl	1214	1313	
==>for this tool
   util/catalog_tests.pl - produce cross-linkable tests
   util/run-smome.pl     - aut <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7016	7131	
==>return unless @$x == @$y;
			my @x = @$x;
			my @y = @$y;

			while (@x) {
				return unless $self->types_eq(pop @x, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5562	5663	
==>efault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5562	5663	
==>efault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5562	5663	
==>efault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2005	2135	
==>[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7] );
            $state[0] = $st unless $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9667	9767	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9667	9767	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9667	9767	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dis <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4735	4901	
==>> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $ent <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5199	5365	
==>> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $ent <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1207	1308	
==>'" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="h <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1207	1308	
==>'" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="h <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	752	893	
==>archive -C $my_tmp_dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7345	7467	
==>y hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7345	7467	
==>y hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7345	7467	
==>y hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5920	6104	
==>eading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9397	9581	
==>eading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8453	8637	
==>eading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	695	824	
==>rgs = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    ### make it a P::C item
    $arg <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	883	981	
==>est catalog and synopses with hyperlinks to corresponding tests

  Options:
    --p6design_dir  Dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2881	2971	
==>igger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2881	2971	
==>igger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2881	2971	
==>igger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1433	1544	
==>ant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1433	1544	
==>ant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].ui <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1433	1544	
==>ant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].ui <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17677	17769	
==>s (I<anyof> objects) now have another attribute, C<charmap>,
which is a hash reference holdin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16425	16563	
==>>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16425	16563	
==>>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16425	16563	
==>>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Pe <==
4	/Users/nnunley/pugs/util/package-osx.pl	895	1004	
==>cal/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14379	14505	
==>mber (if any)

  type          'todo' or 'skip' (if any)
  reason        why is it todo or skip? (if any)

It will also catch l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1060	1175	
==>ed binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1060	1175	
==>ed binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19979	20070	
==><$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( Str $bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11768	11896	
==>if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11768	11896	
==>if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11768	11896	
==>if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1361	1460	
==>al => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2754	2869	
==>uld *build* things here too
            print "Unpacking code...\n";
            system( qq[tar -f $my_tmp_dir/$Data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3096	3199	
==>my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3096	3199	
==>my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3096	3199	
==>my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	757	871	
==>ny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	757	871	
==>ny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	757	871	
==>ny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.F <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	38	133	
==>simple translation of the JuncType type from
# src/Pugs/AST/Internals.hs to an enum.  This is al <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4982	5097	
==>! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!ca <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4982	5097	
==>! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4854	4964	
==>^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4854	4964	
==>^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3303	3417	
==>ion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $tod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3303	3417	
==>ion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $tod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4827	4941	
==>ion)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $tod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	606	706	
==>"no code";
__END__

#use Test::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5362	5462	
==>dy'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5362	5462	
==>dy'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5362	5462	
==>dy'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @IS <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26329	26423	
==>fine ROPT_EVAL_SEEN		0x00400
 #define ROPT_CANY_SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CAN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8128	8261	
==>e,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    my $pkg = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6741	6857	
==>g;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6741	6857	
==>g;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6741	6857	
==>g;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	0	97	
==>package Perl6::Rule::Parser;

use base 'Regexp::Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38352	38446	
==>>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42901	42995	
==>>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42551	42645	
==>>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2056	2166	
==>ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "blib6/lib/Prelude.pm.yml";

    build_lib($version, $ghc, @a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23298	23390	
==>perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All ri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41222	41314	
==>perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All ri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37248	37340	
==>perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All ri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20583	20680	
==>? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1830	1927	
==>sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20583	20680	
==>? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20583	20680	
==>? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1282	1401	
==>stance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1282	1401	
==>stance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && b <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1282	1401	
==>stance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && b <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	176	275	
==>os field
# FIXOTHERS (smoke): skipped tests have pos point to the test library

use warnings;
use st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50868	50984	
==>->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:ver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2800	2895	
==>variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2800	2895	
==>variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3147	3242	
==>variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18692	18887	
==>s_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %params) returns ni <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12440	12583	
==>shift;

    bless {
        map { $_->equals => $_  } @_,
    }, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1413	1511	
==>$class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1413	1511	
==>$class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5440	5587	
==>Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5662	5809	
==>Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        retur <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6622	6722	
==>,
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6622	6722	
==>,
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', ' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	497	615	
==>$!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foote <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	497	615	
==>$!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foote <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8434	8538	
==>it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then y <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8434	8538	
==>it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then y <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3006	3149	
==>ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3006	3149	
==>ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3528	3665	
==>>{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3528	3665	
==>>{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Run <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10975	11081	
==>m the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10975	11081	
==>m the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1007	1102	
==>rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1007	1102	
==>rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17070	17245	
==>ch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17070	17245	
==>ch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17070	17245	
==>ch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24697	24795	
==>o try to match next.

=back

=head2 Devices and Standards

I made a few C-macro-style functions for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	503	604	
==>s clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	503	604	
==>s clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	503	604	
==>s clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - key <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13951	14047	
==>ed. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vil <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10178	10274	
==>ed. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vil <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13951	14047	
==>ed. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vil <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10178	10274	
==>ed. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vil <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4958	5066	
==>or new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4958	5066	
==>or new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined % <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5420	5524	
==>or new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5420	5524	
==>or new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3615	3728	
==>extToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3615	3728	
==>extToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3615	3728	
==>extToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the l <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	84	189	
==>ie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format', '$string'),

    '$*OUT' => Stub('$*OU <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3521	3642	
==>|| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            | <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3521	3642	
==>|| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5045	5166	
==>|| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12618	12718	
==>code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Err <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12618	12718	
==>code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Err <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12618	12718	
==>code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Err <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23279	23425	
==>anon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5582	5706	
==>e have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5582	5706	
==>e have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5582	5706	
==>e have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_meth <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7024	7118	
==>N($pThunk)."})";
}
NODE PCode ($pType, $pParams, $pLValue, $pIsMulti, $pBody) {
    code_helper <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11528	11624	
==>docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though. <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11528	11624	
==>docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though. <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15668	15761	
==>`end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15668	15761	
==>`end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14136	14262	
==>\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14136	14262	
==>\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14136	14262	
==>\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1380	1494	
==>, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    # re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2033	2146	
==>";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2033	2146	
==>";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2033	2146	
==>";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	537	663	
==>r() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

m <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	537	663	
==>r() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	490	595	
==>ethod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	490	595	
==>ethod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	490	595	
==>ethod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1068	1177	
==>y set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1068	1177	
==>y set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5767	5867	
==>n.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5767	5867	
==>n.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	393	507	
==>& 
     looks_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2192	2312	
==>~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $mes <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2799	2909	
==>ms::Check->last_error), return;
    
    my $perl_version;
    ### special perl, or the one we are running unde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	189	297	
==>~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $mes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	189	297	
==>~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $mes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1374	1491	
==>\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17979	18071	
==>$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17979	18071	
==>$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17979	18071	
==>$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7370	7518	
==>p: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	363	463	
==>w("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	363	463	
==>w("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	363	463	
==>w("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37757	37856	
==>ation is the union of
all the headings of the source relations.  The body of the new relation is
the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42306	42405	
==>ation is the union of
all the headings of the source relations.  The body of the new relation is
the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41956	42055	
==>ation is the union of
all the headings of the source relations.  The body of the new relation is
the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	671	774	
==>L::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	671	774	
==>L::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	671	774	
==>L::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't l <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1802	1902	
==>lems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17531	17674	
==>fess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no wa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17531	17674	
==>fess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no wa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17531	17674	
==>fess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no wa <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15326	15423	
==>ffset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the total match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18494	18585	
==>LTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18494	18585	
==>LTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18494	18585	
==>LTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s( <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1470	1598	
==>(my $code = $sym->{$pwd}) {
            goto &$code unless $cwd eq $pwd; # delegate back to parent dirs
        }
        $$sym = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	457	550	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	457	550	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	457	550	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7205	7307	
==>f $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2279	2409	
==>d 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2290	2420	
==>d 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ru <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	518	610	
==>cessing instructions may sub-class this module or
provide special behaviour when a property i <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	518	610	
==>cessing instructions may sub-class this module or
provide special behaviour when a property i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	553	722	
==>nstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	553	722	
==>nstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9793	9915	
==>aded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9793	9915	
==>aded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6928	7043	
==>chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6928	7043	
==>chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	441	547	
==>$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	441	547	
==>$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8374	8509	
==>XX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8374	8509	
==>XX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8374	8509	
==>XX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10359	10442	
==>t=>$isInvocant, isOptional=>$isOptional, isNamed=>$isNamed, isLValue=>$isLValue, isW <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	215	351	
==>:Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ( <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2900	3014	
==>target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2900	3014	
==>target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6799	6887	
==>p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar("\|").
p5_metac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9507	9700	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15051	15244	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9507	9700	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15045	15238	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5910	6073	
==>eadonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5910	6073	
==>eadonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5910	6073	
==>eadonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1618	1738	
==>lass->id . " -- node_" . $class->id . " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can(' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15328	15445	
==>p::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15607	15724	
==>p::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2579	2713	
==>t; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2579	2713	
==>t; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6011	6104	
==>Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6011	6104	
==>Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5072	5218	
==>l"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5072	5218	
==>l"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5072	5218	
==>l"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22262	22348	
==>chr(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7284	7418	
==>nfo = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( l <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	585	719	
==>nfo = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20397	20490	
==>ally canonicalized including the
'_' to '-' translation.  There are some application where thi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20397	20490	
==>ally canonicalized including the
'_' to '-' translation.  There are some application where thi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4704	4801	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersectio <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3831	3928	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersectio <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4704	4801	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersectio <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3831	3928	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersectio <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2510	2609	
==>s ever really good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	144	240	
==>f "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	144	240	
==>f "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	144	240	
==>f "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	978	1139	
==>am->{p}    unless defined $self->{p};
                        # default = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        dele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4146	4259	
==>>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4146	4259	
==>>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4146	4259	
==>>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//< <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4969	5090	
==>nsidered to be a passed test.  C<%test> is the results
            #of the test you're summarizing.
            my $detail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	422	524	
==>JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	422	524	
==>JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	422	524	
==>JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5570	5677	
==>{ $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5570	5677	
==>{ $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5570	5677	
==>{ $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slu <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3259	3359	
==>e response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3259	3359	
==>e response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3291	3390	
==>or "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3291	3390	
==>or "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6978	7101	
==>a->$key);
        
        # maybe use another mechanism to call arbitrary stuff on the package
        # obj? otherwise all <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	237	347	
==>XT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ARG <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	237	347	
==>XT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ARG <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2249	2344	
==>key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2249	2344	
==>key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6171	6293	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6171	6293	
==>t( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10791	10894	
==>`+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the infor <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10791	10894	
==>`+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the infor <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4183	4278	
==>&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30060	30155	
==>tion>

This method is a short-hand or alternative for the functionality provided
by the 5 generi <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4183	4278	
==>&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34612	34707	
==>tion>

This method is a short-hand or alternative for the functionality provided
by the 5 generi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24600	24739	
==>', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24879	25018	
==>', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'gr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1904	2032	
==>of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an ab <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1904	2032	
==>of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an ab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3198	3371	
==>son
        \:?     # $:x
        [
            [ \:\: ]?
            [ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3341	3498	
==>e writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $matc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3341	3498	
==>e writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $matc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3341	3498	
==>e writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1048	1162	
==>opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1048	1162	
==>opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1048	1162	
==>opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	287	392	
==>v, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || confess "env must be a closure <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1347	1472	
==>O - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1347	1472	
==>O - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5847	5960	
==>ngs qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5847	5960	
==>ngs qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6483	6660	
==>n(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6483	6660	
==>n(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6483	6660	
==>n(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1360	1463	
==>f FILE * GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV c) {
	return fprintf(f <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6775	6889	
==>}( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6775	6889	
==>}( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24686	24795	
==>->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21107	21216	
==>->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10225	10335	
==>tion" (true/false)
    from  - string pointer for start of this match
    to    - string pointer for next mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	63	160	
==>- functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	63	160	
==>- functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	63	160	
==>- functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# P <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4026	4138	
==>:$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4084	4196	
==>:$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1732	1829	
==>ler($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callba <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1732	1829	
==>ler($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3713	3840	
==>i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3713	3840	
==>i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3713	3840	
==>i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4200	4308	
==>{
        my($fname,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6981	7078	
==>hannels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6981	7078	
==>hannels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7330	7425	
==>hannels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7330	7425	
==>hannels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3066	3167	
==>.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3066	3167	
==>.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5672	5765	
==>le, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implement <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5672	5765	
==>le, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implement <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4208	4330	
==>e header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4208	4330	
==>e header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2358	2461	
==>Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::E <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2906	3009	
==>Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::E <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21585	21687	
==>s.  Figured out how to improve the grammar to get
it to work properly.  Also added tests for the new ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15412	15512	
==>UB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15412	15512	
==>UB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15412	15512	
==>UB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs } <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3420	3530	
==>ore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8582	8688	
==>e( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8578	8684	
==>e( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23628	23722	
==>any commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this mod <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23628	23722	
==>any commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this mod <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1241	1381	
==>--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3537	3677	
==>--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1241	1381	
==>--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+ <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3537	3677	
==>--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19024	19152	
==>fier}";
            }
        }
    }
    $str;
}

multi shift (@array) is builtin is primitive { List::shift(@array) };
multi sh <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24386	24533	
==>}
rule uriMark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	415	525	
==>der to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	415	525	
==>der to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	415	525	
==>der to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9999	10160	
==>s;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9999	10160	
==>s;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9999	10160	
==>s;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7801	7906	
==>_pkg describe $package` =~ /package-url/;
}

sub _normalize_version {
    my $dir = shift;
    $dir =~ /.* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7591	7736	
==>n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7591	7736	
==>n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8832	8931	
==>ould be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8539	8636	
==>ould be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17370	17489	
==>exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ \""
    $P0 .= grammar
    $P0 . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2294	2401	
==>Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2294	2401	
==>Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? ev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2294	2401	
==>Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? ev <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8889	9038	
==>ble.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8889	9038	
==>ble.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19825	19952	
==>t;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16246	16373	
==>t;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6135	6253	
==>) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6135	6253	
==>) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6135	6253	
==>) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8370	8462	
==>l, my $placeholder = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fma <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1784	1946	
==>($idx)->scalar_fetch;
            },
     
            'array_storeVal' => sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3984	4089	
==>itespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3984	4089	
==>itespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3984	4089	
==>itespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_p <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6018	6128	
==>rmalize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3942	4048	
==>e::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2176	2282	
==>e::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2957	3063	
==>e::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1133	1223	
==>PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compile <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1133	1223	
==>PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2369	2477	
==>ut (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1000 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2369	2477	
==>ut (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1000 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2369	2477	
==>ut (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1000 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21596	21694	
==>*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21596	21694	
==>*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21596	21694	
==>*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spl <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	333	424	
==>be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.junc_type wher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4757	4862	
==>ote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4757	4862	
==>ote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4757	4862	
==>ote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n] <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2600	2696	
==>o_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2600	2696	
==>o_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7654	7750	
==>ct will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::M <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7395	7488	
==>ct will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::M <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13310	13415	
==>_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the following comm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1418	1520	
==>dxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1418	1520	
==>dxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1418	1520	
==>dxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idx <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21644	21743	
==>ref, containing:

=over

=item C<line>

The original line received from the server (unmodified).

=i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20525	20624	
==>ref, containing:

=over

=item C<line>

The original line received from the server (unmodified).

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21644	21743	
==>ref, containing:

=over

=item C<line>

The original line received from the server (unmodified).

=i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20525	20624	
==>ref, containing:

=over

=item C<line>

The original line received from the server (unmodified).

=i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4099	4220	
==>}
}
# 8.7.1
method GetValue (JSX::PsuedoValue $V) { $V }
method GetValue (JSX::InternalValue::Reference $V) {
    my $Resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2663	2776	
==>erl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2663	2776	
==>erl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2663	2776	
==>erl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5010	5155	
==>f->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    } <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4869	5014	
==>f->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1253	1372	
==>value - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1253	1372	
==>value - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1253	1372	
==>value - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or I <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4343	4435	
==>p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3776	3890	
==>xt = shift @stack;
      $d += $next->(), redo if ref($next) eq "CODE";
    }

    @stack = @{ $self->{tree} }, ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15610	15721	
==>- these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15610	15721	
==>- these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15610	15721	
==>- these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1304	1408	
==>ages.


# Test suite:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests_perl5.t - driver from same. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2526	2624	
==>is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2526	2624	
==>is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2526	2624	
==>is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	134	236	
==>/Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	134	236	
==>/Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	134	236	
==>/Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26073	26174	
==>gify, "∀α. list α → α", "pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19961	20058	
==>rmation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18942	19039	
==>rmation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19961	20058	
==>rmation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18942	19039	
==>rmation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22804	22893	
==>:Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16223	16312	
==>ng.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Ma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22804	22893	
==>:Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16281	16370	
==>ng.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Ma <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1905	2011	
==>ME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$Fin <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1905	2011	
==>ME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$Fin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6752	6854	
==>malize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6752	6854	
==>malize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6262	6416	
==>m_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6320	6474	
==>m_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3379	3486	
==>..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3379	3486	
==>..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12051	12199	
==>}{op} eq ')' ) {
        return '()'
            unless defined  $n->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	388	491	
==>ough ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	388	491	
==>ough ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	388	491	
==>ough ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a sub <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	42	143	
==>gs/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

met <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11520	11629	
==>$result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encod <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11520	11629	
==>$result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encod <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	898	999	
==>(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ / <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	898	999	
==>(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ / <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15386	15482	
==>es ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encod <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15386	15482	
==>es ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19363	19455	
==>'s DBMS) is that data definition statements are structured as
standard data manipulation stat <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19363	19455	
==>'s DBMS) is that data definition statements are structured as
standard data manipulation stat <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	647	777	
==>data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

met <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	647	777	
==>data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

met <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	198	313	
==>ral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos. <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	198	313	
==>ral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1897	2000	
==>irectly returning this expression does not
    # yield the correct return value.

    say "Comparing: "~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1897	2000	
==>irectly returning this expression does not
    # yield the correct return value.

    say "Comparing: "~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21402	21495	
==>sily port
to alternative relational database engines with minimal effort.

This might seem str <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21402	21495	
==>sily port
to alternative relational database engines with minimal effort.

This might seem str <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35490	35585	
==>r Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method return <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35490	35585	
==>r Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method return <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	137	229	
==>unction, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	137	229	
==>unction, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6829	6928	
==>?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) { <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6829	6928	
==>?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1	100	
==>ackage Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1	100	
==>ackage Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
us <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12547	12639	
==>a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=he <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12547	12639	
==>a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=he <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3837	3922	
==>ee::insert_children;

## ------------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3837	3922	
==>ee::insert_children;

## ------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	977	1082	
==>cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	977	1082	
==>cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	977	1082	
==>cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	40	141	
==>e::Zone;
use Date::Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3506	3623	
==>, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'ge <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5556	5673	
==>, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'ge <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2705	2805	
==>onds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = spli <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2705	2805	
==>onds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = spli <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1356	1457	
==>0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9428	9527	
==>d_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9428	9527	
==>d_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	57	148	
==>$Bin/../../../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs-Compi <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4338	4437	
==>my @smokes  = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29034	29128	
==>ap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwra <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33586	33680	
==>ap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwra <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32723	32817	
==>ap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwra <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12083	12243	
==>m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          }
          elsif ($v > $S->{maxpa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2731	2831	
==>>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2731	2831	
==>>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2731	2831	
==>>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7291	7403	
==>digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A;B] in characte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2068	2158	
==>>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2068	2158	
==>>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2068	2158	
==>>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4746	4887	
==>/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4758	4899	
==>/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21094	21186	
==>source files containing text for users, and your program would use
associated keys internally <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21094	21186	
==>source files containing text for users, and your program would use
associated keys internally <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	699	800	
==>e>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Si <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	699	800	
==>e>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Si <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	793	892	
==>y $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archli <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	793	892	
==>y $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archli <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3664	3953	
==>x:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3150	3283	
==>unction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3150	3283	
==>unction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3150	3283	
==>unction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17771	17883	
==>ck     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16809	16921	
==>ck     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17771	17883	
==>ck     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16809	16921	
==>ck     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's Bot", <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3505	3610	
==>s
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_] <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	741	863	
==>rray @x?) returns Hash is
export{
    my %terms;
    for 1 .. $sizeof_crowd {
        my $phrase = finger @x;
       %terms <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5312	5426	
==>_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	689	789	
==>~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	689	789	
==>~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	513	621	
==>e            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	513	621	
==>e            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	500	590	
==>re specialised processing instructions may sub-class this module or
provide special behavio <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	500	590	
==>re specialised processing instructions may sub-class this module or
provide special behavio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2457	2567	
==>r => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2457	2567	
==>r => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2804	2914	
==>r => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24225	24322	
==>les in a Relation::Example are of the same
degree, and the attribute names of each tuple are all t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1243	1403	
==>st_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7332	7430	
==>tch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7332	7430	
==>tch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7332	7430	
==>tch_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9661	9768	
==>ocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9661	9768	
==>ocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27207	27291	
==>SE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUTORITATIVE	(REINT_AUTORITATIVE_NOML <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16405	16502	
==>g>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16463	16560	
==>g>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	675	769	
==>ad1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :ta <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	675	769	
==>ad1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :ta <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5668	5874	
==>s = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3029	3235	
==>s = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5668	5874	
==>s = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3029	3235	
==>s = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9309	9438	
==>d =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9309	9438	
==>d =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9309	9438	
==>d =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1546	1654	
==>=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{if=> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1534	1648	
==>t > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1534	1648	
==>t > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6946	7049	
==>handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6946	7049	
==>handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_co <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25122	25223	
==>1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14115	14211	
==>next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14115	14211	
==>next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14115	14211	
==>next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2] <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	458	601	
==>day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19756	19858	
==>urned off.  Fixed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstracting

The object() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19954	20041	
==>preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl referen <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19954	20041	
==>preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl referen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	846	974	
==>el && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	846	974	
==>el && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	846	974	
==>el && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5820	5926	
==>r::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2555	2679	
==>okies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie. <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2555	2679	
==>okies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4147	4245	
==>ch object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array refere <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4147	4245	
==>ch object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array refere <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37816	37956	
==>bol->new('has_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5613	5709	
==>->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5613	5709	
==>->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5613	5709	
==>->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_js <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3669	3836	
==>al);            
            $closure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->isa('block')) {
            m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2168	2275	
==>/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2168	2275	
==>/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11642	11831	
==>\$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7924	8113	
==>\$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8758	8947	
==>\$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                " <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	38	139	
==>kage;

has Array of Perl::Roles @.super_roles;

has Hash of Str, Perl::Meta::Property %.properties;
ha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1480	1623	
==>y',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1480	1623	
==>y',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2386	2517	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7480	7611	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2386	2517	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7480	7611	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8273	8368	
==>, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets fo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7403	7498	
==>, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets fo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8273	8368	
==>, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets fo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7403	7498	
==>, $b) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	246	334	
==>calar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	246	334	
==>calar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	246	334	
==>calar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5283	5367	
==>_alt(\@operators);

def_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11161	11287	
==>eChar> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9085	9184	
==>mP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Juncti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9085	9184	
==>mP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Juncti <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9085	9184	
==>mP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Juncti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4959	5086	
==>elf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4959	5086	
==>elf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4959	5086	
==>elf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice: <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2079	2178	
==>ip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eval { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37512	37610	
==>s arguments is not significant to the result;
the new Relation is the result of combining all of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42061	42159	
==>s arguments is not significant to the result;
the new Relation is the result of combining all of th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20395	20492	
==>nly use Example
for testing, development, and study; you should not use it in production.

For pro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20395	20492	
==>nly use Example
for testing, development, and study; you should not use it in production.

For pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4351	4452	
==>$OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4351	4452	
==>$OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4351	4452	
==>$OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub comm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6183	6280	
==>.. $Bar class_precendence_list');

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3485	3619	
==>data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1843	1977	
==>data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2623	2757	
==>data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2520	2605	
==>cal/lib/pl-5.5.27/lib/x86_64-linux
my $prolog = <<'END';
%============================ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2260	2410	
==>tart,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2260	2410	
==>tart,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3201	3319	
==>$i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3201	3319	
==>$i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16814	16991	
==>ems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16814	16991	
==>ems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16814	16991	
==>ems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxe <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11369	11487	
==>_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the ones that involve <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6243	6342	
==>xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6243	6342	
==>xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9732	9830	
==>it /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9732	9830	
==>it /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1311	1451	
==>ble>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1311	1451	
==>ble>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_var <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11462	11592	
==>)
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'MET <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11462	11592	
==>)
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'MET <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22002	22099	
==>nt from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not av <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20883	20980	
==>nt from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not av <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22002	22099	
==>nt from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not av <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20883	20980	
==>nt from. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not av <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	790	931	
==>ontent-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	790	931	
==>ontent-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            ' <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11111	11205	
==>= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `complem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11111	11205	
==>= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `complem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10387	10534	
==>e_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10387	10534	
==>e_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10387	10534	
==>e_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@ <==
4	/Users/nnunley/pugs/util/config_h.pl	36	134	
==>arnings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This fil <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	41	138	
==>trict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Inst <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	39	136	
==>trict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Inst <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	36	133	
==>trict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7132	7237	
==>$other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7132	7237	
==>$other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7132	7237	
==>$other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12919	13018	
==>ion is free
fun: generic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = generic($.bod <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	561	672	
==>{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	71	180	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	71	180	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	71	180	
==>s keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8975	9081	
==>e.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8975	9081	
==>e.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8975	9081	
==>e.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= : <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	77	178	
==>p::installed


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4486	4584	
==>port extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4486	4584	
==>port extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5076	5174	
==>port extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Acc <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13676	13762	
==>D1,D2,D3])}.
hexdigits2_int(I) -->
  hexdigit(D0), hexdigit(D1), {number_chars(I,[42,12 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4697	4802	
==>y));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4697	4802	
==>y));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5287	5392	
==>y));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++ <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	10	108	
==>a replacement for the old BEGIN preamble which heads (or
# should head) up every core test program <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2007	2175	
==>e                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2007	2175	
==>e                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2007	2175	
==>e                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $s <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	499	606	
==>times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t <==
4	/Users/nnunley/pugs/util/package-osx.pl	11190	11333	
==>\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                print "Problem removin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17839	17948	
==>label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17839	17948	
==>label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17839	17948	
==>label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9124	9214	
==>empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4267	4357	
==>empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9124	9214	
==>empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4267	4357	
==>empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Re <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3406	3522	
==>e this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy li <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3406	3522	
==>e this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy li <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13429	13527	
==>ovide a comment that refers to another file or test which must be
made to pass before this test can <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13487	13585	
==>ovide a comment that refers to another file or test which must be
made to pass before this test can <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1708	1814	
==>ath::Class::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4026	4119	
==>e Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4026	4119	
==>e Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4026	4119	
==>e Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18493	18602	
==>turns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18689	18798	
==>turns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18903	19012	
==>turns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	735	835	
==>arse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3322	3426	
==>nerated by util/PugsConfig.pm.
-}

{-|
    Pugs System Configuration.

>   Alive without breath;
>   as c <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11564	11703	
==>fined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.pu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11564	11703	
==>fined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.pu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18155	18250	
==>any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18155	18250	
==>any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suit <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16497	16601	
==>'%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16497	16601	
==>'%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16497	16601	
==>'%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2467	2594	
==>hift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = shift;
    ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3786	3884	
==>DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3786	3884	
==>DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3786	3884	
==>DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14021	14123	
==>x : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14021	14123	
==>x : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14021	14123	
==>x : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB g <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2361	2449	
==>:Exp::Concat");
    $optable->addToken("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4351	4493	
==>pre     List::end     safe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   Lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38293	38390	
==>Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38293	38390	
==>Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38293	38390	
==>Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15889	16002	
==>ldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	10	106	
==>/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	10	106	
==>/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	10	106	
==>/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scri <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6373	6485	
==>0;
    r->reganch = 0;
    /* Make sure environment is set up (also helps scare off perl) */
    r->reganch |= RO <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	188	294	
==>s

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this ve <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	188	294	
==>s

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this ve <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2421	2516	
==>ck &dispatcher, symbol $label, hash %opts) returns method {
    { (&dispatcher.() // return).get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7578	7667	
==>teractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1806	1895	
==>teractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9212	9301	
==>teractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2024	2113	
==>teractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation by <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1065	1179	
==>ntect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1065	1179	
==>ntect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PI <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1065	1179	
==>ntect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4556	4648	
==>e conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12712	12849	
==>ist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto sc <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3242	3375	
==>ion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  su <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3242	3375	
==>ion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4766	4899	
==>ion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  su <==
4	/Users/nnunley/pugs/util/package-osx.pl	6036	6133	
==>ions.3
        /usr/local/man/man3/Perl6::Overview::Functions.3pm
        /usr/local/man/man3/Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14552	14638	
==>ake_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14552	14638	
==>ake_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14552	14638	
==>ake_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3197	3311	
==>->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3197	3311	
==>->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($curr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3197	3311	
==>->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($curr <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11444	11574	
==>f->($close);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5101	5201	
==>f "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5101	5201	
==>f "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5101	5201	
==>f "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	403	499	
==>_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	403	499	
==>_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	403	499	
==>_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23712	23911	
==>em );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23712	23911	
==>em );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23712	23911	
==>em );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	161	258	
==>name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	287	409	
==>C3 only accepts classes";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10637	10735	
==>nt_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10637	10735	
==>nt_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10637	10735	
==>nt_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6a <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1410	1552	
==>ar eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escapin <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1410	1552	
==>ar eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escapin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18215	18308	
==>es the rather complex algorithm that
Module::Compile uses.

First, the source module is prepro <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18215	18308	
==>es the rather complex algorithm that
Module::Compile uses.

First, the source module is prepro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	59	163	
==>orts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	59	163	
==>orts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	59	163	
==>orts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4533	4660	
==>->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4533	4660	
==>->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4533	4660	
==>->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2396	2491	
==>HTML-ified ecma-262, without which
#  this grammar would likely not have been written. - Mitchel <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	227	333	
==>y ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	227	333	
==>y ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> / <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	113	217	
==>6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	113	217	
==>6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3356	3476	
==>05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3367	3487	
==>05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24558	24650	
==>eir attributes are private, so you must use accessor methods.
Locale::KeyedText does not decl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24558	24650	
==>eir attributes are private, so you must use accessor methods.
Locale::KeyedText does not decl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	80	196	
==>uire 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

use Path::Class ();
use Cwd;
use vars qw[$REPO];

$REPO = JIB <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	290	388	
==>uire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	251	349	
==>uire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	251	349	
==>uire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17496	17638	
==>boxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17496	17638	
==>boxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17496	17638	
==>boxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	319	411	
==>, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array>.assuming(:offs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5064	5161	
==>a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5064	5161	
==>a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8292	8487	
==>ound ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy ba <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8756	8951	
==>ound ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy ba <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14348	14461	
==>_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	84	189	
==>peof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	84	189	
==>peof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	84	189	
==>peof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6017	6156	
==>ty}_$op->{assoc}"};
                    unless ( defined $t ) {
                        warn "can't find template for '$op->{fixity}_$op-> <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	741	842	
==>ption<remove> .= new; # FIXME we need one at the class level too

    method notify (Class::Events::Ev <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10137	10224	
==>print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]": <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10872	10959	
==>print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]": <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	600	741	
==>least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1088	1229	
==>least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	600	741	
==>least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1088	1229	
==>least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes fr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3469	3638	
==>nt' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4269	4363	
==>cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4269	4363	
==>cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4269	4363	
==>cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	247	364	
==>valence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name) 
        || confess "You must provide a n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3516	3622	
==>::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3516	3622	
==>::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3516	3622	
==>::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4518	4630	
==>ence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## make class

my $Foo = $Class->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5996	6091	
==>sOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5996	6091	
==>sOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5996	6091	
==>sOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->nam <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4281	4390	
==>t>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4281	4390	
==>t>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7780	7881	
==>Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7780	7881	
==>Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1039	1167	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1039	1167	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1039	1167	
==>s, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2423	2521	
==>ing $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = $O.property_attribu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9662	9763	
==>lue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9662	9763	
==>lue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9662	9763	
==>lue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8146	8291	
==>id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4506	4651	
==>id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5355	5500	
==>id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pre <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	29	128	
==>er::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	29	128	
==>er::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18675	18769	
==>ntly
like what the core expects to avoid problems.  While simultaneously
trying to avoid trigge <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2965	3059	
==>ntly
like what the core expects to avoid problems.  While simultaneously
trying to avoid trigge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5328	5446	
==>on, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5328	5446	
==>on, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5328	5446	
==>on, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3553	3657	
==>::Rule->compile(<<'RULE')->code();
 
    \=[pod|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2572	2666	
==>self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2572	2666	
==>self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2572	2666	
==>self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction" <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12703	12797	
==>ed"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td><span title="Details" class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2599	2715	
==>ect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPl <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20330	20443	
==>le ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $cmd = % <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	364	470	
==>ect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	364	470	
==>ect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6533	6665	
==>>{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10274	10401	
==>te method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10274	10401	
==>te method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10274	10401	
==>te method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3062	3227	
==>tch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3062	3227	
==>tch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3169	3278	
==>really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SY <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3169	3278	
==>really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SY <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7709	7862	
==>D');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7709	7862	
==>D');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7709	7862	
==>D');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'd <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4913	5005	
==>symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4040	4132	
==>symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4913	5005	
==>symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4040	4132	
==>symmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $on <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	191	296	
==>trict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already b <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	191	296	
==>trict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2249	2337	
==>.size && $other.includes($self.members));
}
method proper_subset($self: Set $other) retur <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2249	2337	
==>.size && $other.includes($self.members));
}
method proper_subset($self: Set $other) retur <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	433	553	
==>nt to base
a new module distribution on.

= AUTHORS

Brian Ingerson <ingy@cpan.org>

= COPYRIGHT

Copyright (c) 2005. Bri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2334	2438	
==>Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2334	2438	
==>Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2681	2785	
==>Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23166	23356	
==>,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23445	23635	
==>,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12196	12319	
==>if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12190	12313	
==>if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3744	3848	
==>e( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6447	6551	
==>e( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3961	4065	
==>e( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6459	6563	
==>e( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	13	116	
==>terator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	13	111	
==>terator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	43	140	
==>terator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	43	140	
==>terator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4735	4853	
==>eral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4735	4853	
==>eral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PI <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1641	1759	
==>eral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4395	4495	
==>d, then the Seq will finish, the Thunk will
finish, the stacks will be popped once more, and the whol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7322	7421	
==>ckage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7322	7421	
==>ckage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; ou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7322	7421	
==>ckage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; ou <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1544	1645	
==>nds) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Shoul <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1602	1703	
==>nds) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Shoul <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4589	4684	
==>ction this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constru <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4589	4684	
==>ction this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24274	24435	
==>'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24274	24435	
==>'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24274	24435	
==>'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18843	18933	
==>def,$start,$length,undef,$replace) }
 multi substr(Str $s, StrLen $offset ; StrLen $length, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	863	968	
==>al packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # At <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	863	968	
==>al packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # At <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1324	1422	
==>se?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1324	1422	
==>se?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4102	4263	
==>\$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5423	5584	
==>\$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4102	4263	
==>\$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5411	5572	
==>\$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3730	3850	
==>_;
            (blessed($test) && $test->isa('TestBuilder::Test'))
                || confess "test argument must be a Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5061	5172	
==>ay -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5061	5172	
==>ay -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5061	5172	
==>ay -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub J <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16848	16965	
==>and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ( <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5675	5773	
==>em B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5675	5773	
==>em B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7872	7970	
==>em B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5144	5248	
==>rd the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5144	5248	
==>rd the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5144	5248	
==>rd the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3158	3255	
==>r die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haske <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3158	3255	
==>r die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haske <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15694	15785	
==>ed stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15694	15785	
==>ed stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12472	12593	
==>{
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	129	242	
==>(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be cal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	129	242	
==>(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be cal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	129	242	
==>(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be cal <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2858	2971	
==>r($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2858	2971	
==>r($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2335	2438	
==>d add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2335	2438	
==>d add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8526	8667	
==>args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4886	5027	
==>args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5735	5876	
==>args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - m <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2406	2521	
==>pl                       --
----------------------------------------------------------------

preludeStr :: String
. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2439	2536	
==>airs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Per <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2439	2536	
==>airs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Per <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17604	17698	
==>TTP
standard.>

=item $h.user_agent

This header field is used in request messages and contains <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17604	17698	
==>TTP
standard.>

=item $h.user_agent

This header field is used in request messages and contains <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	64	160	
==>XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	172	268	
==>XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	64	160	
==>XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	172	268	
==>XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1818	1930	
==>my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	929	1039	
==>my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2706	2808	
==>pan2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2706	2808	
==>pan2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15896	16053	
==>ALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3216	3313	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempote <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3216	3313	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempote <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3216	3313	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempote <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10716	10850	
==>."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10716	10850	
==>."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10716	10850	
==>."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCo <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	426	518	
==>ile|i=s@ --verbose|v --touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_outpu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17699	17851	
==>ms => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'has <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19457	19609	
==>ms => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'has <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39909	40060	
==>ms => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'has <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40968	41119	
==>ms => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'has <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2730	3174	
==>ym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12508	12641	
==>sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12508	12641	
==>sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12508	12641	
==>sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	182	322	
==>hould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	182	322	
==>hould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	182	322	
==>hould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a } <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4957	5074	
==>tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STDOUT);$|=1;  # auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16031	16130	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16031	16130	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16031	16130	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self-> <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9226	9388	
==>my $prog = AST->new(
    Seq->new(
        map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	951	1070	
==>ef(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	951	1070	
==>ef(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	951	1070	
==>ef(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and box <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	385	519	
==>a;
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40938	41046	
==>b items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40938	41046	
==>b items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40938	41046	
==>b items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	475	586	
==>int Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	92	186	
==>0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	92	186	
==>0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	92	186	
==>0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3057	3213	
==>preinst ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Site] ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	250	359	
==>\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	250	359	
==>\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32435	32527	
==>g> value set members do not match invocant
Relation::Example attribute names, or duplicate an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29336	29450	
==>an have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYA <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29336	29450	
==>an have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYA <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3805	3915	
==>reamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5165	5274	
==>reamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18315	18439	
==>@_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } unti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	640	743	
==>nstance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	640	743	
==>nstance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	640	743	
==>nstance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	519	649	
==>hese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	616	746	
==>hese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3512	3629	
==>hod) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5562	5679	
==>hod) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_meth <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3542	3673	
==>. '::'}) {
            next unless exists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2138	2254	
==>multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2138	2254	
==>multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2138	2254	
==>multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1614	1723	
==>UILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $compleme <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1614	1723	
==>UILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $compleme <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15944	16040	
==>For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $objec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15944	16040	
==>For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $objec <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4253	4404	
==>"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4253	4404	
==>"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14811	14903	
==>ain attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This st <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14811	14903	
==>ain attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4639	4778	
==>ss method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4639	4778	
==>ss method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4639	4778	
==>ss method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->ad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	164	262	
==>XX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $COR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	164	262	
==>XX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $COR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	164	262	
==>XX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $COR <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16545	16678	
==>f this step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::< <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27419	27513	
==>object is constructed.  If you want to
conceptually change an existing Message object, you must <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27419	27513	
==>object is constructed.  If you want to
conceptually change an existing Message object, you must <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1438	1560	
==>y of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1438	1560	
==>y of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1438	1560	
==>y of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->val <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3109	3206	
==>:Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_of_month returns Int { $. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	327	483	
==>my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	327	483	
==>my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	608	714	
==>ages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables use <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	608	714	
==>ages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	261	386	
==>e->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2850	2948	
==>>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2850	2948	
==>>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2850	2948	
==>>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses( <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4519	4630	
==>if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $tokenStack[-1];
    goto missing_term if (( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	922	1020	
==>se Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	922	1020	
==>se Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	922	1020	
==>se Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25860	25969	
==>)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # method <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27835	27931	
==>ly a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32387	32483	
==>ly a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31479	31575	
==>ly a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13317	13449	
==>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fina <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9503	9635	
==>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fina <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10339	10471	
==>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fina <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9176	9289	
==>by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3547	3647	
==>JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3547	3647	
==>JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3547	3647	
==>JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8314	8429	
==>- an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	472	587	
==>- an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string tail or undef

    captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8034	8146	
==>- an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	449	561	
==>- an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef
    captu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8166	8263	
==>o, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8166	8263	
==>o, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21186	21281	
==>c).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acces <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21186	21281	
==>c).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acces <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35948	36046	
==>n tuple values are aligned and merged.  The heading
of the new relation is the union of the invocan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40498	40596	
==>n tuple values are aligned and merged.  The heading
of the new relation is the union of the invocan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40112	40210	
==>n tuple values are aligned and merged.  The heading
of the new relation is the union of the invocan <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2448	2582	
==>rn { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2448	2582	
==>rn { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2174	2273	
==>rland objects -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2093	2190	
==>rland objects -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10439	10551	
==>R $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10439	10551	
==>R $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10439	10551	
==>R $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1680	1775	
==>stringification, fmapping and value encapsulation features.

They are discussed in the main L<Bl <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1005	1125	
==>$session.dispatch($event, *@args);
      $result;
    });
    
    # And enter the runloop again.
    ./:step(); #/#--vim <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1302	1415	
==>y_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1302	1415	
==>y_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1302	1415	
==>y_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cp <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5469	5571	
==>on // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
} <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5527	5629	
==>on // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
} <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1103	1198	
==>urity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1103	1198	
==>urity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecur <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1332	1464	
==>lse { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a direct <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7181	7313	
==>urn $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded wh <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1332	1464	
==>lse { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a direct <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7181	7313	
==>urn $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded wh <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16312	16424	
==>gen(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	453	555	
==>args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	453	555	
==>args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	453	555	
==>args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10805	10959	
==>.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10805	10959	
==>.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=he <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	936	1059	
==>cifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	936	1059	
==>cifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5836	5949	
==>rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5836	5949	
==>rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27658	27756	
==>h()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspond <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27658	27756	
==>h()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspond <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6181	6321	
==>};

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6181	6321	
==>};

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6181	6321	
==>};

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } ca <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3825	3946	
==>le') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17060	17168	
==>_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > length $name;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2077	2172	
==>ole->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2077	2172	
==>ole->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2077	2172	
==>ole->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1988	2101	
==>ul :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1988	2101	
==>ul :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) | <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1988	2101	
==>ul :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) | <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3681	3787	
==>t thing
needed is a scope.t test file.

=item Memory

One sees both segfaults and memory exhaustion when ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11917	12068	
==>.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_com <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11917	12068	
==>.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_com <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	838	941	
==>ns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	838	941	
==>ns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8674	8809	
==>$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9509	9644	
==>$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9269	9380	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9462	9573	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22616	22712	
==>Text would also handle
this.

A program generates a Message that contains all possibly useful det <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22616	22712	
==>Text would also handle
this.

A program generates a Message that contains all possibly useful det <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7994	8088	
==>ic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7994	8088	
==>ic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7222	7322	
==>ackage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7222	7322	
==>ackage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7222	7322	
==>ackage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "packa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5695	5833	
==>mper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5695	5833	
==>mper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8544	8651	
==>ct(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13175	13391	
==>e'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	852	943	
==>e Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	852	943	
==>e Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	852	943	
==>e Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
us <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7867	7978	
==>]    Include files
    --exclude=E1,[E2,...]   Exclude files
    --anonymous, -a         Do not include ~/.smoke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1459	1561	
==>urpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1459	1561	
==>urpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1459	1561	
==>urpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should b <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2109	2251	
==>amlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2109	2251	
==>amlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14622	14724	
==>1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14622	14724	
==>1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5110	5219	
==>hunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equiv;
	my $child = $thunk->val->stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	367	472	
==>.. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inste <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	367	472	
==>.. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inste <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	367	472	
==>.. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inste <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14868	14959	
==>s_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_complain-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1488	1602	
==>tasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying sh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1488	1602	
==>tasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying sh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4470	4574	
==>value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6372	6476	
==>value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5634	5781	
==>k, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5634	5781	
==>k, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5634	5781	
==>k, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4737	4845	
==>ore => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    if( File:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9131	9282	
==>my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the f <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9131	9282	
==>my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13357	13475	
==>my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27190	27308	
==>my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5077	5190	
==>);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5077	5190	
==>);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5077	5190	
==>);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users wh <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15088	15193	
==>}
}
{
  # (??{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit { <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	922	1009	
==>that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, o <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	922	1009	
==>that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17047	17142	
==>.content_length

A decimal number indicating the size in bytes of the message content.

=item $h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17047	17142	
==>.content_length

A decimal number indicating the size in bytes of the message content.

=item $h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	455	549	
==>tion_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

ha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	455	549	
==>tion_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13941	14056	
==>e $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13941	14056	
==>e $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13941	14056	
==>e $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	317	420	
==>sor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 METHODS

=head2 $sr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1049	1177	
==>st/s )  
$_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($g <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7031	7128	
==>iners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7031	7128	
==>iners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7031	7128	
==>iners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an arra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3633	3808	
==>nt'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3488	3657	
==>nt'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (? <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10873	10984	
==>rse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=it <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10873	10984	
==>rse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2802	2893	
==>Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2802	2893	
==>Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2802	2893	
==>Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	695	810	
==>f->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13402	13504	
==>lue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13402	13504	
==>lue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13402	13504	
==>lue::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6008	6118	
==>unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh enc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6008	6118	
==>unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh enc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6008	6118	
==>unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh enc <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1787	1883	
==>"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5445	5562	
==>ings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5445	5562	
==>ings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5445	5562	
==>ings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = f <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7117	7241	
==>shift;
    @syn = map { m|^.*/(\D\d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2462	2555	
==>sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2462	2555	
==>sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2462	2555	
==>sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	699	800	
==>tin` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is primit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1223	1317	
==>nd. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1223	1317	
==>nd. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1223	1317	
==>nd. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8037	8174	
==>}, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8037	8174	
==>}, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8037	8174	
==>}, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
4	/Users/nnunley/pugs/misc/IDE-support/server.pl	115	207	
==>int-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'fa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4948	5103	
==>( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._sh <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4948	5103	
==>( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8610	8796	
==>>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8610	8796	
==>>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8610	8796	
==>>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2262	2352	
==>, qw(-w ./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7559	7665	
==>_"
  for @modfiles;

my @pfiles;
step
  descr  => "Searching for Parrot include files",
  ensure => sub { @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20973	21069	
==>P5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20973	21069	
==>P5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20973	21069	
==>P5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10338	10461	
==>lation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3467	3568	
==>g a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3467	3568	
==>g a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3467	3568	
==>g a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	496	597	
==>unctions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	496	597	
==>unctions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TOD <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	496	597	
==>unctions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TOD <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8540	8637	
==>ry', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{sym <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	117	242	
==>urns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Emp <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	117	242	
==>urns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Emp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	442	541	
==>d'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Ar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	442	541	
==>d'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Ar <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	406	512	
==>ass.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - norma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5750	5856	
==>tabase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	406	512	
==>ass.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - norma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5750	5856	
==>tabase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5010	5177	
==>lse {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5010	5177	
==>lse {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4389	4492	
==>ck whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $fil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4389	4492	
==>ck whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $fil <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2554	2674	
==>ns;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } el <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2554	2674	
==>ns;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } el <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	201	303	
==>xtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module:: <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	95	197	
==>xtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module:: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1945	2051	
==>($callback);
  my $r_address;
  my $regexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19081	19182	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19081	19182	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19081	19182	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5899	6029	
==>ammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5899	6029	
==>ammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13994	14117	
==>);
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13994	14117	
==>);
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $cha <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	140	247	
==>pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	140	247	
==>pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Spa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8585	8681	
==>pyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API o <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8585	8681	
==>pyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5494	5597	
==>efined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5494	5597	
==>efined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5494	5597	
==>efined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5801	5915	
==>ibutes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5801	5915	
==>ibutes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5801	5915	
==>ibutes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4285	4393	
==>the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4285	4393	
==>the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we see a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4796	4902	
==>the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4796	4902	
==>the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we see a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21862	21949	
==>TI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::ope <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21862	21949	
==>TI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::ope <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21862	21949	
==>TI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::ope <==
4	/Users/nnunley/pugs/util/grokprims.pl	1869	1976	
==>ssociative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	822	912	
==>:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	822	912	
==>:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	822	912	
==>:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35574	35688	
==>l, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35574	35688	
==>l, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35574	35688	
==>l, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $leng <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10288	10397	
==>constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16576	16674	
==>lass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16576	16674	
==>lass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16576	16674	
==>lass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( sta <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26117	26206	
==>rse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1, <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13460	13612	
==>ing,-1,1) eq '-') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3609	3745	
==>ing,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3609	3745	
==>ing,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3609	3745	
==>ing,-1,1) eq '-') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1754	1894	
==>nt Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1754	1894	
==>nt Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15325	15442	
==>leop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15604	15721	
==>leop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gram <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	127	219	
==>t as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COM <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	127	219	
==>t as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COM <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7902	8020	
==>ing.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5571	5681	
==>tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5571	5681	
==>tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5571	5681	
==>tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1993	2115	
==>TORE('::Base' => role 'TestBuilder::Test::Base' => {
    attributes => [
        '$.passed',
        '$.number',
        '$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2025	2140	
==>ndef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2025	2140	
==>ndef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2025	2140	
==>ndef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	213	309	
==>Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	213	309	
==>Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	213	309	
==>Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13886	13980	
==>[D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31962	32064	
==>r> argument, where <$other> has the same heading as
the invocant Relation, and returns a new Relation t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33823	33925	
==>r> argument, where <$other> has the same heading as the
invocant Relation, and returns a new Relation t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36512	36614	
==>r> argument, where <$other> has the same heading as
the invocant Relation, and returns a new Relation t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38373	38475	
==>r> argument, where <$other> has the same heading as the
invocant Relation, and returns a new Relation t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6122	6269	
==>ans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6122	6269	
==>ans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $. <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17693	17813	
==>nend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2079	2239	
==>b {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => und <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1850	2005	
==>b {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => und <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1850	2005	
==>b {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => und <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11255	11372	
==>return ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{exp2} ) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2668	2775	
==>ny {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6145	6252	
==>ny {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5075	5182	
==>ny {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping( <==
4	/Users/nnunley/pugs/util/package-osx.pl	5501	5605	
==>/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Ove <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1411	1548	
==>q 'ARRAY' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1755	1887	
==>q 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1362	1494	
==>q 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1755	1887	
==>q 'ARRAY' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31327	31425	
==>ta

The data or children of this object.

=item dir

The direction of this object (for look-ahead/b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12326	12412	
==>:SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12326	12412	
==>:SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12326	12412	
==>:SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_met <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19035	19242	
==>r if the regex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     he <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	640	732	
==>to which to write all normal output (test results and
descriptions).

=item B<$.error_output> <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	640	732	
==>to which to write all normal output (test results and
descriptions).

=item B<$.error_output> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1196	1288	
==>to which to write all normal output (test results and
descriptions).

=item B<$.error_output> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2956	3072	
==>ass);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2956	3072	
==>ass);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2956	3072	
==>ass);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1168	1318	
==>ate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1373	1523	
==>ate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # l <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9886	9980	
==>n phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9886	9980	
==>n phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9081	9199	
==>($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9081	9199	
==>($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9081	9199	
==>($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35886	35983	
==>:Example that has the same heading
and whose body contains all of the tuples that are in either or <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1701	1830	
==>uldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user anony <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1565	1656	
==>elf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLower <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1565	1656	
==>elf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLower <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1565	1656	
==>elf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLower <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	406	569	
==>$conf    = $self->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40562	40668	
==>urn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40562	40668	
==>urn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40562	40668	
==>urn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40477	40587	
==>ref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40477	40587	
==>ref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40477	40587	
==>ref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21249	21348	
==>re($module);
  }
  my sub find() {
    my $file = join(%?CONFIG<file_sep>,split("::",$module)) ~ ".p <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	124	237	
==>sub slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' for reading" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7759	7857	
==>s Test::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Build <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4	94	
==>s Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4	94	
==>s Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Build <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7431	7561	
==>5 ";
        $ghc_flags .= join(' ', grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2070	2173	
==>ion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $auth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2070	2173	
==>ion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $auth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2070	2173	
==>ion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $auth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4028	4140	
==>zer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler fo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3886	3995	
==>zer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler fo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11881	11979	
==>s the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11881	11979	
==>s the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1007	1120	
==>lf    = shift;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16559	16662	
==>};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16559	16662	
==>};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16559	16662	
==>};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3147	3247	
==>prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3147	3247	
==>prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3147	3247	
==>prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7160	7298	
==>am{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7160	7298	
==>am{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7160	7298	
==>am{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub-> <==
4	/Users/nnunley/pugs/util/package-osx.pl	8512	8611	
==>man/man3/Pugs::Doc::Run.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_files <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4844	5024	
==>]->{out}= { 
            op1 => { op => $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2597	2723	
==>my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2597	2723	
==>my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2597	2723	
==>my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22187	22420	
==>aram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22187	22420	
==>aram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22187	22420	
==>aram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $sc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3192	3351	
==>->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq->{$file};
        }
    }

    i <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19574	19686	
==>le match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastparen;          /* last p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5285	5390	
==>mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_an <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5285	5390	
==>mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_an <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5285	5390	
==>mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2913	3086	
==>st of Bool (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1767	1886	
==>~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1767	1886	
==>~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1767	1886	
==>~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11348	11528	
==>:CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11348	11528	
==>:CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11348	11528	
==>:CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hac <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2457	2590	
==>hift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\te <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3849	3956	
==>.. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3849	3956	
==>.. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5373	5480	
==>.. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28816	28908	
==>.

=item C<not_equal (Relation::Example $other!) returns Bool>

This method returns the compl <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2493	2598	
==>tyle files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootprop <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2493	2598	
==>tyle files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootprop <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17296	17399	
==>e start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.it <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17296	17399	
==>e start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2895	3017	
==>help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1269	1391	
==>help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2895	3017	
==>help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2895	3017	
==>help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5713	5840	
==>e     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5713	5840	
==>e     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5713	5840	
==>e     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12139	12260	
==>return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circumfix" );
}

sub postcircum <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1612	1726	
==>ative of f (which Newton's method
              uses to update its guess at each iteration)
    verbose - a boolean <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	964	1069	
==>ter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # The <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	964	1069	
==>ter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # The <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	964	1069	
==>ter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # The <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4309	4415	
==>rn;
    $self->add_package_to_index( package => $inst ) or return;

    return 1;
}

=head2 $bool = $repo-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12851	12983	
==>ice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12851	12983	
==>ice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12851	12983	
==>ice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from sl <==
4	/Users/nnunley/pugs/util/package-osx.pl	4380	4477	
==>E06.3pm
        /usr/local/man/man3/Perl6::Bible::E07.3pm
        /usr/local/man/man3/Perl6::Bible <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39603	39700	
==>suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24326	24423	
==>suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39603	39700	
==>suggestions, and bug reports to
C<perl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24326	24423	
==>suggestions, and bug reports to C<perl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6569	6682	
==>fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3923	4036	
==>fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6569	6682	
==>fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3923	4036	
==>fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> whi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13065	13161	
==>as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18160	18256	
==>as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13065	13161	
==>as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitable a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18160	18256	
==>as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitable a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2960	3096	
==>s;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3507	3643	
==>s;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $s <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16209	16306	
==>o ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct re <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20635	20732	
==>o ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12913	13023	
==>ub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12913	13023	
==>ub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12913	13023	
==>ub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26564	26658	
==>y works when sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29761	29881	
==>returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is ve <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29761	29881	
==>returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is ve <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	27	130	
==>ock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use war <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	27	130	
==>ock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use war <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	272	368	
==>:Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20539	20635	
==>_for_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	272	368	
==>:Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	272	368	
==>:Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12380	12479	
==>ine containing a digest of the original content.
#
# This makes further dividing of Perl code less t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12380	12479	
==>ine containing a digest of the original content.
#
# This makes further dividing of Perl code less t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1667	1758	
==>Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1667	1758	
==>Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12553	12718	
==>t->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pri <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8827	8992	
==>t->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9662	9827	
==>t->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pri <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3722	3825	
==>Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P6Rule", "$optab <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10612	10733	
==>s Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "cre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10612	10733	
==>s Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "cre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2152	2267	
==>thod ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $pro <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2152	2267	
==>thod ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $pro <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18801	18898	
==>nds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Further <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17844	17941	
==>nds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Further <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18801	18898	
==>nds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Further <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17844	17941	
==>nds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. Further <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10582	10683	
==>name;
    $code_args .= "'\$.params'=>$code_params,";
    $code_args .= "'\$.body'=>$code_body";
    m <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1896	2032	
==>xt if $file eq ".svn";
            next if $file eq "CVS";
            my $currfile = File::Spec->catfile( $start, $file );
            n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7464	7575	
==>1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7464	7575	
==>1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7464	7575	
==>1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7891	8069	
==>) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7891	8069	
==>) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7891	8069	
==>) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4406	4530	
==>shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->scalar_fetch <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5404	5511	
==>s a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5404	5511	
==>s a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7601	7708	
==>s a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4468	4562	
==>num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0])?$_[0]:die "bug"} # XXX - name confl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	510	767	
==>turns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=po <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	510	767	
==>turns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=po <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	888	987	
==>ent unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - p <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	888	987	
==>ent unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1152	1390	
==>)
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1279	1517	
==>)
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3987	4083	
==>.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3987	4083	
==>.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9062	9264	
==>art => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normall <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9062	9264	
==>art => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normall <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17424	17518	
==>.

The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, de <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17424	17518	
==>.

The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, de <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	909	1014	
==>dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	876	981	
==>dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12124	12218	
==>t2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12124	12218	
==>t2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16438	16556	
==>state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $self->{line}       = 0;
    $self->{sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4924	5037	
==>t a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4924	5037	
==>t a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4924	5037	
==>t a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2994	3101	
==>less defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2994	3101	
==>less defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2994	3101	
==>less defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7795	7926	
==>HAVE_PERL5$/, @_) {
        $perl5_c = 'src/perl5/p5embed.c';
    }

    # Remove -Wl flags in Perl5 embedding.
    @_ = grep { !/^- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27661	27758	
==>f
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32213	32310	
==>f
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31305	31402	
==>f
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10896	11004	
==>get, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    lastpos = length target
    $S0 = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5046	5150	
==>eturn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5046	5150	
==>eturn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5046	5150	
==>eturn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULT <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1757	1876	
==>y ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	823	938	
==>SS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	823	938	
==>SS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	823	938	
==>SS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (d <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	185	285	
==>xist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref { <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	185	285	
==>xist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9570	9693	
==>o: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5911	6034	
==>o: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6760	6883	
==>o: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	703	807	
==>arts of the grammar, intended for a tokenizer, are not actually used.
#   * Some rules, eg StringNumericL <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2724	2841	
==>sh ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2724	2841	
==>sh ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3035	3133	
==>s, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.comple <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3035	3133	
==>s, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.comple <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2590	2701	
==>d";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2590	2701	
==>d";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.valu <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2590	2701	
==>d";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.valu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	142	269	
==>tBuilder::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10808	10918	
==>O = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value atte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10808	10918	
==>O = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value atte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10808	10918	
==>O = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value atte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28781	28908	
==>. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28781	28908	
==>. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28781	28908	
==>. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4933	5037	
==>it {
    my($pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16198	16329	
==>=> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) == <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19675	19806	
==>=> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) == <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19208	19339	
==>=> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) == <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1298	1410	
==>y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # wor <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6066	6185	
==>@_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12245	12349	
==>_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12245	12349	
==>_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12245	12349	
==>_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7505	7627	
==>my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7562	7684	
==>my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3471	3569	
==>= $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3471	3569	
==>= $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named-> <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	766	910	
==>abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $di <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	766	910	
==>abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $di <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5411	5522	
==>odule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

met <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5411	5522	
==>odule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

met <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9855	9952	
==>decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9855	9952	
==>decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23250	23344	
==>mmand is not modified by this module,
aside from appending the correct newline characters.

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23250	23344	
==>mmand is not modified by this module,
aside from appending the correct newline characters.

=he <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1850	1962	
==>a registered alternative

=cut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    ms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	333	429	
==>mts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	333	429	
==>mts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? : <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	333	429	
==>mts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? : <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3831	3937	
==>IL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4164	4270	
==>IL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3831	3937	
==>IL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4164	4270	
==>IL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    submethod BUILD <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	118	212	
==>ar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitte <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	20	125	
==>.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub ser <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	20	125	
==>.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub ser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6867	6971	
==>tent =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6867	6971	
==>tent =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2713	2843	
==>r ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2713	2843	
==>r ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2713	2843	
==>r ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17522	17643	
==>l() and like().
#

sub fresh_perl_like {
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3970	4092	
==>oop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3970	4092	
==>oop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'P <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	820	942	
==>oop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'P <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	575	692	
==>.add_children(
                Tree.new(:node<Object>).add_children(
                    Tree.new(:node<List>).add_chi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3079	3200	
==>.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3079	3200	
==>.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
}) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3079	3200	
==>.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
}) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5393	5506	
==>=> \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    ### build a from => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6053	6162	
==>intWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6053	6162	
==>intWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6053	6162	
==>intWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "J <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9486	9593	
==>$S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2504	2619	
==>print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2721	2836	
==>print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compil <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1068	1172	
==>od on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	151	246	
==>f, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	151	246	
==>f, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	151	246	
==>f, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::V <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3299	3402	
==>->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1149	1252	
==>->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5914	6301	
==>(block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7676	8063	
==>(block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7518	7653	
==>(1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0;
    last TODO;
}

sub eq_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	174	291	
==>/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28374	28697	
==>) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # En <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28374	28697	
==>) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # En <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28374	28697	
==>) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # En <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1580	1684	
==>YNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/My <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1580	1684	
==>YNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/My <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	525	620	
==>=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$h <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	525	620	
==>=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19937	20050	
==>ame> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18918	19031	
==>ame> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19937	20050	
==>ame> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18918	19031	
==>ame> and C<ircname> information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11285	11412	
==>,[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1630	1731	
==>eludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1630	1731	
==>eludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1630	1731	
==>eludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelud <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1149	1254	
==>', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wid <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1149	1254	
==>', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wid <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17164	17260	
==>MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22264	22360	
==>MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19260	19361	
==>ally a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23812	23913	
==>ally a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22328	22429	
==>ally a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4414	4534	
==>ned $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a spe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4414	4534	
==>ned $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a spe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4414	4534	
==>ned $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a spe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12596	12698	
==>r_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 Standard Warning <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5767	5862	
==>tate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'S <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5767	5862	
==>tate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'S <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2666	2761	
==>tate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	502	594	
==>annotator {
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL::require:: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7107	7201	
==>) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ($a,$b) is looser(infix:<*>) {...}

say 3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3583	3674	
==>ain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3583	3674	
==>ain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restore <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3583	3674	
==>ain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restore <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12294	12399	
==>{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35408	35501	
==>at would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39958	40051	
==>at would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pro <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39518	39611	
==>at would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2443	2544	
==>TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2443	2544	
==>TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2443	2544	
==>TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - a <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3253	3355	
==>{
#    @array.splice(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simpli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1403	1500	
==>expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1403	1500	
==>expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1403	1500	
==>expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4476	4609	
==>k('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum V <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4698	4831	
==>k('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum V <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5746	5840	
==>se Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5746	5840	
==>se Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

Th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3941	4046	
==>tents( file => $file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4652	4755	
==>)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doubleq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4652	4755	
==>)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doubleq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4652	4755	
==>)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doubleq <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1100	1277	
==>new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &ur <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1100	1277	
==>new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &ur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7785	7886	
==>malize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7785	7886	
==>malize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	855	951	
==>tional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# T <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	855	951	
==>tional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# T <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1454	1547	
==>:MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_comma <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1374	1463	
==>:MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_comma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	470	738	
==>)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $gra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3776	3876	
==>r {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3776	3876	
==>r {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3776	3876	
==>r {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12029	12149	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my meth <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6596	6716	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my meth <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12029	12149	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my meth <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6596	6716	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3815	3934	
==>for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3815	3934	
==>for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3815	3934	
==>for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	230	346	
==>hift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        ass <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3701	3942	
==>^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3701	3942	
==>^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2284	2422	
==>ooser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	70	182	
==>NIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	70	182	
==>NIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	70	182	
==>NIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21906	22011	
==><rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20787	20892	
==><rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21906	22011	
==><rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20787	20892	
==><rest>

Additional information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. N <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15835	15935	
==>d by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "In <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20068	20168	
==>d by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "In <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2976	3075	
==>$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning uni <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2976	3075	
==>$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning uni <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2758	2886	
==>r_name {
        if ($?SELF.attr_name_exists( $attr_name )) {
            return Bool::true;
        }
    }
    return Bool::fal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14936	15062	
==>must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14936	15062	
==>must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14936	15062	
==>must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1693	1793	
==>e::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages used by the Relation::Example::Tu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2951	3050	
==>relude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2951	3050	
==>relude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2951	3050	
==>relude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19957	20055	
==>information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18938	19036	
==>information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19957	20055	
==>information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18938	19036	
==>information.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39649	39759	
==>ray = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if U <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39649	39759	
==>ray = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if U <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39649	39759	
==>ray = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if U <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1679	1788	
==>start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The following method <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1442	1551	
==>start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The following method <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1679	1788	
==>start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The following method <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1442	1551	
==>start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The following method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5654	5789	
==>xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5654	5789	
==>xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5654	5789	
==>xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	325	422	
==>Array of Perl::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15667	15765	
==>. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15667	15765	
==>. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20342	20438	
==>Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24894	24990	
==>Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you u <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5214	5344	
==>(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5272	5402	
==>(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17579	17672	
==>ping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17579	17672	
==>ping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compil <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9107	9228	
==>, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9095	9216	
==>, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17883	17980	
==>1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17883	17980	
==>1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10119	10214	
==>ated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warn <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10119	10214	
==>ated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warn <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7937	8122	
==>last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?S <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7937	8122	
==>last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?S <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2159	2324	
==>>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2159	2324	
==>>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1004	1113	
==>LKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1004	1113	
==>LKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1004	1113	
==>LKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->g <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	637	739	
==>ess,
# simply run this program in the same directory containing
# those files.
#
# Enjoy! -- asavige (a <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2598	2704	
==>s.
our bool multi Num::is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10673	10773	
==>ray[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10673	10773	
==>ray[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10673	10773	
==>ray[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14963	15106	
==>6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14963	15106	
==>6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14963	15106	
==>6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                re <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	763	873	
==>n 3.1

## XXX - the sub(Siglet) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5880	5986	
==>};
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - base class for p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	597	696	
==>DO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	597	696	
==>DO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	597	696	
==>DO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7987	8123	
==>$/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an impl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1127	1237	
==>b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add mo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1127	1237	
==>b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add mo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1127	1237	
==>b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add mo <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1619	1738	
==>om_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a.round_down: symmetrical => $^b },
		);
	my $sym_flag = (in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6351	6458	
==>name = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6351	6458	
==>name = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6351	6458	
==>name = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2213	2347	
==>_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2213	2347	
==>_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $ma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14099	14196	
==>t fit into one of the standard
testing functions. In that case, you can use the rather blunt pass( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14157	14254	
==>t fit into one of the standard
testing functions. In that case, you can use the rather blunt pass( <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3225	3350	
==>b $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2013	2104	
==>AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2013	2104	
==>AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2013	2104	
==>AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7475	7571	
==>ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, an <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7475	7571	
==>ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, an <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15563	15655	
==>o_entity and the %entity_to_char hashes,
which contain the mapping from all characters to the <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15563	15655	
==>o_entity and the %entity_to_char hashes,
which contain the mapping from all characters to the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3329	3483	
==>ertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3329	3483	
==>ertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3329	3483	
==>ertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	110	222	
==>warnings;

use Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8664	8790	
==>= Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8664	8790	
==>= Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19102	19218	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19381	19497	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match:: <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2299	2393	
==>ript with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindB <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2299	2393	
==>ript with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindB <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36734	36830	
==>which case the result does too.  Another trivial case is if any
source relation is the identity-o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41283	41379	
==>which case the result does too.  Another trivial case is if any
source relation is the identity-o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40906	41002	
==>which case the result does too.  Another trivial case is if any
source relation is the identity-o <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1647	1742	
==>valent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1647	1742	
==>valent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22616	22707	
==>g.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22616	22707	
==>g.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5100	5253	
==>char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  $self->add_handler('\T' => sub {
    my ($S, $cc) = @_;
    return $S->fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13329	13447	
==>ass) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13329	13447	
==>ass) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13329	13447	
==>ass) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	89	191	
==>us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	89	191	
==>us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	89	191	
==>us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	436	536	
==>);
}

sub annotator_class { "Blondie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36081	36204	
==>tive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36081	36204	
==>tive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36081	36204	
==>tive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8072	8274	
==>{
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8072	8274	
==>{
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8072	8274	
==>{
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8157	8302	
==>$rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4517	4662	
==>$rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5366	5511	
==>$rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2023	2158	
==>------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3800	3914	
==>/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3800	3914	
==>/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3800	3914	
==>/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alter <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8078	8174	
==>*&expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Array: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6352	6459	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6352	6459	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4241	4344	
==>n thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) retu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4299	4402	
==>n thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4900	4997	
==>the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4900	4997	
==>the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the mat <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4449	4545	
==>BJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the yea <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4449	4545	
==>BJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the yea <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6155	6352	
==>ir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from the target so we don't get a silly
        ### deep dir str <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2829	2936	
==>Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2829	2936	
==>Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4353	4460	
==>Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1815	1953	
==>f exists $n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{doubl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3562	3667	
==>Any, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3562	3667	
==>Any, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@arra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3562	3667	
==>Any, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@arra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8041	8156	
==>BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8041	8156	
==>BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8041	8156	
==>BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2252	2344	
==>thod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2252	2344	
==>thod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2252	2344	
==>thod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7143	7314	
==>l => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6904	7066	
==>l => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	661	757	
==>ion and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	661	757	
==>ion and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9168	9275	
==>main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9168	9275	
==>main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9168	9275	
==>main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40389	40491	
==>rr_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can ac <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7274	7390	
==>= timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

sub he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2066	2156	
==>f->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2066	2156	
==>f->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2066	2156	
==>f->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTRO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2082	2196	
==>) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1760	1866	
==>) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4442	4538	
==>atch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4692	4788	
==>atch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rul <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	907	1021	
==>(.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1088	1202	
==>(.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1267	1381	
==>(.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op-> <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3414	3515	
==>last mile.

=head1 BUGS

Numerous.

=head1 TODO

=over
=item Scoping

You should be able to do both le <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4052	4150	
==>st script to run after the kernel has started.
  --welcome-p6=$welcome_p6
    --welcome-p6 is a Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2665	2749	
==>tml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2665	2749	
==>tml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2665	2749	
==>tml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9687	9801	
==>urn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9687	9801	
==>urn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9687	9801	
==>urn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7645	7758	
==>current=N, -j      Run N test jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests in ra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13343	13446	
==>ime() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_au <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13343	13446	
==>ime() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_au <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	804	895	
==>my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	804	895	
==>my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12346	12447	
==>'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12346	12447	
==>'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6328	6447	
==>t );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15151	15262	
==>se {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15151	15262	
==>se {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15151	15262	
==>se {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4685	4824	
==>(
            Stub(
                'Addition must be implemented as a runtime primitive.' .
                'No, Blondie will not have chur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2272	2386	
==>rm named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2283	2397	
==>rm named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::con <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2490	2626	
==>f +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2490	2626	
==>f +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1304	1406	
==>ainers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1248	1346	
==>ainers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19048	19171	
==>fun(
	param => "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("f"),
				param => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4267	4373	
==>am->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4267	4373	
==>am->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croa <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4857	4963	
==>am->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	754	863	
==>are used for backtracking.



A "ruleop" function gets some arguments and returns a "rule".



=cut



# XXX - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1125	1228	
==>are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	724	827	
==>are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1125	1228	
==>are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

# XXX - <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3639	3748	
==>fined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $self->{'pil_code'} = Perl6::Run:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21405	21499	
==>ribute has a name that is distinct from the other
attributes, though several attributes may sto <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25957	26051	
==>ribute has a name that is distinct from the other
attributes, though several attributes may sto <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24590	24684	
==>ribute has a name that is distinct from the other
attributes, though several attributes may sto <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	421	517	
==>ead1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOPS <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	421	517	
==>ead1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15939	16032	
==>ll return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modifi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15939	16032	
==>ll return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	373	487	
==>ixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6940	7042	
==>r_reduce:
  push @bsrStack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	470	568	
==>a 'plain' Match.

- There are no tests yet for <before>, hashes, end_of_string, and the rule wrap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1288	1391	
==>to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/Sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1232	1331	
==>to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/Sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1268	1370	
==>:List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1268	1370	
==>:List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1268	1370	
==>:List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10956	11052	
==>+//g;
    s/^NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOW <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16559	16660	
==>or Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16559	16660	
==>or Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.f <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16559	16660	
==>or Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.f <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1253	1355	
==>lly compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1253	1355	
==>lly compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8155	8248	
==>_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1980	2073	
==>_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::P <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	897	1042	
==>rt       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4136	4281	
==>rt       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	897	1042	
==>rt       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4136	4281	
==>rt       = $span.start;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2270	2394	
==>taModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2270	2394	
==>taModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2270	2394	
==>taModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Per <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6112	6204	
==>mental(bos)   --> "\\A".
p5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7061	7199	
==>ice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7061	7199	
==>ice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7061	7199	
==>ice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $sl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1817	1919	
==>node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::blessed($node) ? $self-> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16183	16297	
==>last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16183	16297	
==>last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Con <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2207	2299	
==>me || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determin <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1313	1404	
==>me || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	333	456	
==>> 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	333	456	
==>> 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_ke <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15936	16027	
==>e_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15936	16027	
==>e_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13826	14003	
==>ven $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13826	14003	
==>ven $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13826	14003	
==>ven $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14594	14715	
==>r::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17362	17555	
==>{
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17362	17555	
==>{
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17362	17555	
==>{
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2551	2653	
==>src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2551	2653	
==>src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2551	2653	
==>src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	616	715	
==>a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	616	715	
==>a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp: <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4643	4740	
==>---- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4643	4740	
==>---- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	111	225	
==>tart_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string', <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	111	225	
==>tart_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string', <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	111	225	
==>tart_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string', <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	111	225	
==>tart_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14350	14478	
==>ar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use over <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14350	14478	
==>ar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use over <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14350	14478	
==>ar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use over <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20352	20444	
==>entially a linear encoding of a nondeterministic
finite-state machine (aka syntax charts or " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2471	2599	
==>ky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2471	2599	
==>ky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2471	2599	
==>ky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XX <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19808	19911	
==>AREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10683	10798	
==>.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10683	10798	
==>.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37556	37741	
==>::Class->send('add_attribute', (symbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1800	1911	
==>return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2005	2116	
==>return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2068	2179	
==>return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class, <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3037	3157	
==>ist;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3037	3157	
==>ist;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_ <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1263	1360	
==>den', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id' <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1263	1360	
==>den', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11360	11514	
==>f = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        all <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12158	12312	
==>f = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5908	6023	
==>y $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $statu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5908	6023	
==>y $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $statu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15001	15164	
==>,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15280	15443	
==>,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15387	15491	
==>digit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9584	9688	
==>digit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3675	3797	
==>ion");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3675	3797	
==>ion");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5199	5321	
==>ion");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4941	5037	
==>->get_y, 0, '... got the right cleared y for p3d');
is($p3d->get_z, 0, '... got the right cleared <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2289	2407	
==>|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2289	2407	
==>|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2289	2407	
==>|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL o <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4501	4591	
==>ymbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule character  { <a_dot>|<logical_grap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1847	1958	
==>r
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1907	2018	
==>r
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$c <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1973	2067	
==>quivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1973	2067	
==>quivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	142	257	
==>als:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	834	945	
==>hild_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	834	945	
==>hild_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	131	240	
==>als:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8210	8339	
==>arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8210	8339	
==>arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	117	219	
==>f all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	117	219	
==>f all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3869	4054	
==>> 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3869	4054	
==>> 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.i <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	965	1071	
==>$self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	965	1071	
==>$self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9672	9845	
==>onstant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9951	10124	
==>onstant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27137	27228	
==><select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This met <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31689	31780	
==><select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This met <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	407	505	
==>pe {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldo <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	407	505	
==>pe {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26529	26625	
==>al cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31081	31177	
==>al cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19959	20050	
==>r $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12007	12122	
==>or instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12007	12122	
==>or instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12007	12122	
==>or instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclas <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	13	116	
==>rl

package Blondie::Prelude::Math;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9209	9358	
==>. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9209	9358	
==>. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9209	9358	
==>. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10981	11077	
==>rently.

The string representation is built by calling the visual() method of
each node in the tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1940	2096	
==>me'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anyt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2145	2301	
==>me'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anyt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2208	2364	
==>me'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anyt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1425	1536	
==>ect
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_from_struct( struc <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	905	1007	
==>my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	872	974	
==>my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21323	21424	
==>atcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->d <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44230	44331	
==>atcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3642	3740	
==>str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collec <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3642	3740	
==>str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collec <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	908	997	
==>setta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	908	997	
==>setta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	107	214	
==>nd queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	111	218	
==>nd queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	107	214	
==>nd queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	111	218	
==>nd queue, to be used in other bots.
# One is able to say:
#   my $bot = new_bot(nick => $nick, host => $host <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12218	12320	
==>e a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16798	16900	
==>e a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12218	12320	
==>e a new Node object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16798	16900	
==>e a new Node object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1120	1257	
==>'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_nam <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1120	1257	
==>'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_nam <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2370	2498	
==>}    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2370	2498	
==>}    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1215	1326	
==>bute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutab <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4693	4804	
==>bute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1467	1605	
==>_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1407	1540	
==>_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	560	657	
==>tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	560	657	
==>tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3836	3940	
==>{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !defined $args->{invocant};

	$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20000	20092	
==>x1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20000	20092	
==>x1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20000	20092	
==>x1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12913	13040	
==>ble' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12913	13040	
==>ble' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12913	13040	
==>ble' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8092	8235	
==>= '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13686	13829	
==>= '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8092	8235	
==>= '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13680	13823	
==>= '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18354	18464	
==>' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14775	14885	
==>' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_c <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	190	296	
==>c ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{M <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6059	6160	
==>my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $s ~~ s:g/<TheGramma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2198	2334	
==>ody => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2198	2334	
==>ody => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2198	2334	
==>ody => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2340	2448	
==>ret="";
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	next if !defined $result;
	my $w <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	625	755	
==>ker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5993	6118	
==>bute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5993	6118	
==>bute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5993	6118	
==>bute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	602	704	
==>g the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	602	704	
==>g the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	602	704	
==>g the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Pr <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	864	954	
==>s Preferences/Tabs/Force/NewTab
setting.)
</p>
<p>
To update this listing, run <tt>perl gen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6819	6925	
==>lowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6819	6925	
==>lowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6819	6925	
==>lowing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24255	24358	
==>sh @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",100*(1 <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5607	5734	
==>: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34134	34243	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34134	34243	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizati <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34134	34243	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizati <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1616	1711	
==>g/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1616	1711	
==>g/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1790	1942	
==>state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] ] } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3860	3967	
==>al to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 por <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3860	3967	
==>al to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 por <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5384	5491	
==>al to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 por <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11848	12033	
==>nus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation::Example $other!) returns Rel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4655	4745	
==>writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4655	4745	
==>writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5245	5335	
==>writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurp <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23002	23133	
==>$Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2653	2751	
==>isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2653	2751	
==>isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2653	2751	
==>isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1 <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3640	3734	
==>rig_func 'asec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
tr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	299	400	
==>i sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	299	400	
==>i sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	5	93	
==>erl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Comp <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	5	93	
==>erl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2935	3050	
==><x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2935	3050	
==><x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2935	3050	
==><x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   ( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7317	7429	
==>urn;
    }

    my %results = $self->analyze_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4118	4226	
==>>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4118	4226	
==>>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4118	4226	
==>>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@par <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21609	21708	
==>mprove the grammar to get
it to work properly.  Also added tests for the new captures() method.

I c <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4857	4980	
==>span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4857	4980	
==>span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	894	1006	
==>immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1100	1212	
==>immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($p <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4202	4298	
==>cs for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the recei <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4202	4298	
==>cs for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the recei <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4282	4378	
==>cs for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the recei <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18414	18506	
==>little documentation, we
reverse engineering perl source.

We basically use the perl regcompp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1441	1558	
==>_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1646	1763	
==>_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1707	1824	
==>_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11448	11614	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11448	11614	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11448	11614	
==>ESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8185	8316	
==>{
        fprintf(stderr,"api 13 violation\n"); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9502	9608	
==>age name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9502	9608	
==>age name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9502	9608	
==>age name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	592	699	
==>=>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	592	699	
==>=>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	592	699	
==>=>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14521	14618	
==>0
timeout 0
color light-blue/black black/light-gray
hiddenmenu

title    $pugs_version
root     (c <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1980	2078	
==>> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 S <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1980	2078	
==>> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 S <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14540	14637	
==>'s
testing needs. This module will be the code support for those needs. The
following is a list of <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14598	14695	
==>'s
testing needs. This module will be the code support for those needs. The
following is a list of <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	103	239	
==>rogram to prepare it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/TEST will <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	156	252	
==>h = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	156	252	
==>h = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	156	252	
==>h = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1065	1224	
==>elf->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{sigspace} = de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1561	1661	
==>(this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1561	1661	
==>(this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1561	1661	
==>(this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6:: <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6162	6314	
==>ult {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we ha <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5235	5387	
==>ult {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we ha <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6162	6314	
==>ult {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we ha <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5235	5387	
==>ult {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we ha <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21010	21109	
==>of which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25562	25661	
==>of which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2718	2813	
==>'name' and 'value' pairs.  This
method should be called before any other methods, as it initiali <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2718	2813	
==>'name' and 'value' pairs.  This
method should be called before any other methods, as it initiali <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11769	11864	
==>>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node objec <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11769	11864	
==>>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6587	6724	
==>l')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6587	6724	
==>l')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6587	6724	
==>l')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31891	32025	
==>rn $e->get('@values')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descendant_di <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8788	8888	
==>outine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' ta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8788	8888	
==>outine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' ta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2318	2410	
==>Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2318	2410	
==>Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1114	1264	
==>xec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1319	1469	
==>xec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33130	33220	
==>ymmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi- <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37680	37770	
==>ymmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi- <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2463	2585	
==>es;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4051	4173	
==>es;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature <==
4	/Users/nnunley/pugs/util/package-osx.pl	3960	4058	
==>/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local/ma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20814	20909	
==>natively, and be I<the> back-end which
I recommend above all others for production use.

Most of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20814	20909	
==>natively, and be I<the> back-end which
I recommend above all others for production use.

Most of <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2587	2701	
==>arams::Check->last_error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3940	4028	
==>=> '@:roles');
}));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3940	4028	
==>=> '@:roles');
}));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3940	4028	
==>=> '@:roles');
}));

## ----------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3143	3295	
==>',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaq <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14294	14422	
==>tch->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14288	14416	
==>tch->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / cod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3871	3997	
==>',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11749	11849	
==>return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13985	14084	
==>s --> Int|List )
 
Iterates the elements of C<%hash> in no apparent order, but the order
will be the <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2179	2271	
==>return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2179	2271	
==>return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	779	1057	
==>LIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E i <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7382	7499	
==>TRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($R <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7382	7499	
==>TRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($R <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3531	3642	
==>.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7008	7119	
==>.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5965	6076	
==>.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37529	37639	
==>ss for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8552	8657	
==>unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8552	8657	
==>unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8552	8657	
==>unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3314	3422	
==>eld} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3314	3422	
==>eld} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!head <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17777	17872	
==>Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17777	17872	
==>Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3944	4057	
==>bj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1340	1447	
==>!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "Th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2356	2498	
==>0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2668	2805	
==>0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2668	2805	
==>0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            ret <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	70	219	
==>lues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	70	219	
==>lues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2270	2371	
==>$rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $ot <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2270	2371	
==>$rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $ot <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1661	1761	
==>- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT ME <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1661	1761	
==>- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT ME <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	11	105	
==>doc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) ret <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	11	105	
==>doc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) ret <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4852	5032	
==>Y {
            die $e;
        } else {
            $! = $e;
            return undef; # this is probably the one place we can return
                          # in the Prelude: we <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1268	1380	
==>$msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1268	1380	
==>$msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1268	1380	
==>$msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9342	9523	
==>>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9342	9523	
==>>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9342	9523	
==>>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6795	6914	
==>:More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar::Term.ident' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24767	24888	
==>main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23531	23652	
==>main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24767	24888	
==>main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23531	23652	
==>main runloop is
finished.

=head1 FLOODCONTROL

Most IRC servers disconnect you if you post too many commands in too short <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1994	2111	
==>ift;
    my $who  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3466	3563	
==>Y|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return ' <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1186	1282	
==>-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size bec <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1186	1282	
==>-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size bec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19868	19989	
==>old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 e <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16289	16410	
==>old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 e <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1349	1446	
==>junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1349	1446	
==>junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14607	14752	
==>w_dir_files} = (1) x @new_dir_files;
                delete @f{@dir_files};
                my @f = sort keys %f;
                print "LEAKED FI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5404	5511	
==>jetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5404	5511	
==>jetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5404	5511	
==>jetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4798	4931	
==>operator
    #__PACKAGE__->add_rule( 
    #    name => '->',
    #    assoc => 'non',
    #    precedence => 'equal',
    #    other = <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8813	8918	
==>n.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8813	8918	
==>n.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _no <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	25	124	
==>Role--Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1121	1262	
==>atch_return_CODE
       p6_loop_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_def <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18737	18846	
==>then->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{da <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20095	20204	
==>then->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{da <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29384	29493	
==>tree, $obj will be
removed from the tree.  Most node types don't merge.  Returns true if
the node was merged w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	134	232	
==>Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	134	232	
==>Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4480	4576	
==>, the match object returns the I<result>
object; this is normally the entire match string, but ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4480	4576	
==>, the match object returns the I<result>
object; this is normally the entire match string, but ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	670	770	
==>,  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	670	770	
==>,  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13976	14084	
==>ialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13976	14084	
==>ialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13976	14084	
==>ialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	452	550	
==>native conversion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (shift)->j <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21406	21503	
==>>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for'> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1607	1702	
==>);
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1607	1702	
==>);
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1607	1702	
==>);
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5420	5551	
==>ance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5420	5551	
==>ance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5420	5551	
==>ance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3869	3996	
==>:AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33350	33449	
==>are taken from the I<front> of the
walking stack, so we add them in the order they are to be encount <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	833	927	
==>x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	833	927	
==>x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mul <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	833	927	
==>x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

mul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2585	2718	
==>urn 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2585	2718	
==>urn 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3460	3553	
==>ere
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the query <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3460	3553	
==>ere
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the query <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2158	2278	
==>{
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $t <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5129	5249	
==>{
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $t <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2158	2278	
==>{
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $t <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5129	5249	
==>{
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9410	9509	
==>e_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9410	9509	
==>e_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9410	9509	
==>e_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6902	6996	
==>h failed (as string).

C<$failed> should be empty if everything passed.

B<NOTE> Currently this <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15785	15888	
==>s
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15843	15946	
==>s
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- T <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9605	9701	
==>se.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9605	9701	
==>se.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18907	19002	
==>ext
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18907	19002	
==>ext
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::Keyed <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	207	356	
==>ift;
    bless {
        params => undef,
        param_stack => [],
    }, $class;
}

sub execute {
    my $self = shift;
    my $prog = shift;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8480	8620	
==>xed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8480	8620	
==>xed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8480	8620	
==>xed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15678	15839	
==>} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15678	15839	
==>} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15678	15839	
==>} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6752	6859	
==>ater_for_re('.') if $re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1359	1460	
==>ng(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1359	1460	
==>ng(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1359	1460	
==>ng(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9824	10022	
==>( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9824	10022	
==>( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9824	10022	
==>( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	503	660	
==>\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            la <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21680	21780	
==>g your package.  One
can override simply by using the same key code with a new user message in
one of <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21680	21780	
==>g your package.  One
can override simply by using the same key code with a new user message in
one of <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36952	37044	
==>_text_string = $translator.translate_message( $message );

=back

The Translator class also h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36952	37044	
==>_text_string = $translator.translate_message( $message );

=back

The Translator class also h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34624	34735	
==>(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34624	34735	
==>(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	188	284	
==>ler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pug <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	188	284	
==>ler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	453	587	
==>nction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	453	587	
==>nction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	453	587	
==>nction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3199	3300	
==>ineTerminator>
    | <Comment>
    | <Token> <DivPunctuator>
}
rule InputElementRegExp {  # see clause <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10989	11087	
==>er which stores data to be used or
displayed by your program.  It is analagous to a simplified vers <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14152	14250	
==>er which stores data to be used or
displayed by your program.  It is analagous to a simplified vers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10989	11087	
==>er which stores data to be used or
displayed by your program.  It is analagous to a simplified vers <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14152	14250	
==>er which stores data to be used or
displayed by your program.  It is analagous to a simplified vers <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2048	2151	
==>4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encod <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2048	2151	
==>4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encod <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5101	5198	
==>353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5101	5198	
==>353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1766	1904	
==>.
sub ok ($@) {
    my ($pass, $name, @mess) = @_;
    _ok($pass, _where(), $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23486	23582	
==>le rather than mutable, this property and/or
same-named accessor method can be used to see if a R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28038	28134	
==>le rather than mutable, this property and/or
same-named accessor method can be used to see if a R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26842	26938	
==>le rather than mutable, this property and/or
same-named accessor method can be used to see if a R <==
4	/Users/nnunley/pugs/util/testgraph.pl	707	822	
==>inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binmo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10494	10603	
==>/bin/pugs"],
    ["$parrot_path/parrot" => "$initrd_mnt/bin/parrot"],
    [$bash                 => "$initrd_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	598	704	
==>you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	598	704	
==>you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	598	704	
==>you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks l <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36537	36631	
==>gnificant to the result;
the new Relation::Example contains all the tuples of the source Relati <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14731	14859	
==>nstant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15010	15138	
==>nstant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2654	2777	
==>se = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2654	2777	
==>se = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	332	461	
==>nt $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.stric <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	332	461	
==>nt $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.stric <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	305	414	
==>| @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	305	414	
==>| @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19159	19255	
==>, and not the program's users' own data; only
someone already involved in making the program woul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19159	19255	
==>, and not the program's users' own data; only
someone already involved in making the program woul <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5250	5344	
==>turns a hash reference representing the configuration data

=item write

The C<write> method th <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5250	5344	
==>turns a hash reference representing the configuration data

=item write

The C<write> method th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5313	5419	
==>piderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5313	5419	
==>piderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5313	5419	
==>piderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8214	8317	
==>rser->next) {
    # $node is a Regexp::Parser::* object
  }

When the regex is finished being parsed, ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26451	26547	
==>h($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns nil 
    (($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	159	303	
==>@a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	159	303	
==>@a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	159	303	
==>@a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1753	1857	
==>if $self->{stack};
  return $self->{tree};
}


sub nparen {
  my ($self) = @_;
  $self->parse if $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	299	396	
==>!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = un <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	299	396	
==>!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = un <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12704	12799	
==>e module provides the following functions:

=over 4

=item decode_entities( $string, ... )

This <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12704	12799	
==>e module provides the following functions:

=over 4

=item decode_entities( $string, ... )

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	583	673	
==>thod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	583	673	
==>thod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	583	673	
==>thod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19813	19902	
==>p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19813	19902	
==>p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19813	19902	
==>p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9652	9795	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9931	10074	
==>,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	465	560	
==>lter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	465	560	
==>lter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7922	8067	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1714	1834	
==>nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1714	1834	
==>nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1714	1834	
==>nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5139	5266	
==>ELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = % <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5139	5266	
==>ELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = % <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22818	22911	
==>data type, the Relation::Example data type is immutable.  The value of
a Relation::Example obj <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12332	12424	
==>d> failed"><tmpl_var name=failed></span>,</td>
	      <td class="num tests_todo"><span title= <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3135	3241	
==>IS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3135	3241	
==>IS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3364	3493	
==>ne JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3364	3493	
==>ne JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3364	3493	
==>ne JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16712	16883	
==>se {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16712	16883	
==>se {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16712	16883	
==>se {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $sel <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4287	4397	
==>);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1896	2021	
==>ple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5373	5498	
==>ple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4303	4428	
==>ple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $head <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6847	6960	
==>nfix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6847	6960	
==>nfix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6847	6960	
==>nfix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3409	3506	
==>\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $1;/g;
  #p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8776	8880	
==>xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8776	8880	
==>xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8776	8880	
==>xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	837	939	
==>s expressed in developing this into a cpan module for
# real use.  It might, imaginably, perhaps, be po <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13324	13435	
==>er subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16801	16912	
==>er subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16163	16274	
==>er subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5065	5171	
==>hift;
    return $self unless $self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub versi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12937	13054	
==>%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INV <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12937	13054	
==>%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INV <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4679	4788	
==>ror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4679	4788	
==>ror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2767	2882	
==>c(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2767	2882	
==>c(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2767	2882	
==>c(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         ! <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23304	23448	
==>ide("nil"),
			else => comb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => ide("f"),
						param => comb(
							fun <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	387	495	
==>gs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CRE <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	387	495	
==>gs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CRE <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8817	8902	
==>rset_def([char(93)|L]) --> "]", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4018	4182	
==>t = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1978	2117	
==>.number'      => $self->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $descrip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	449	563	
==>PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	449	563	
==>PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	449	563	
==>PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub ty <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13359	13491	
==>"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$per <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9545	9677	
==>"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10381	10513	
==>"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11769	11892	
==>PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11769	11892	
==>PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11769	11892	
==>PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	136	227	
==>e printable/;
use Scalar::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3094	3275	
==>ount = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3094	3275	
==>ount = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3094	3275	
==>ount = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq ' <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6051	6155	
==>tch_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16109	16202	
==>$document, and
whose Node Type attribute is set from the named parameter $node_type (a
string) <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16109	16202	
==>$document, and
whose Node Type attribute is set from the named parameter $node_type (a
string) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8709	8821	
==>> sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue);
    } <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8709	8821	
==>> sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	827	922	
==>tta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, that <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	827	922	
==>tta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	601	700	
==>>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1222	1321	
==>miter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	601	700	
==>>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	601	700	
==>>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2211	2337	
==>ind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2211	2337	
==>ind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2558	2684	
==>ind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	522	631	
==>r $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14696	14805	
==>son // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $targ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	522	631	
==>r $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14696	14805	
==>son // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	540	656	
==>self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	540	656	
==>self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	540	656	
==>self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9122	9232	
==>t;
    join $self->raw, map join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	695	1106	
==>y Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	695	1106	
==>y Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9702	9798	
==>calar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns a <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9702	9798	
==>calar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7978	8095	
==>: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8036	8153	
==>: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20900	20998	
==>sume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25452	25550	
==>sume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3286	3437	
==>w()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3286	3437	
==>w()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3286	3437	
==>w()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	881	983	
==>:pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::string_concat {
    my $a = emit(get_data($_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6015	6171	
==>s must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6015	6171	
==>s must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6015	6171	
==>s must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16497	16593	
==>ator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($.el <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17279	17415	
==>k}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17279	17415	
==>k}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $c <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7187	7293	
==>tr $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($? <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7245	7351	
==>tr $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($? <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1938	2069	
==>er($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl(" <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1938	2069	
==>er($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl(" <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1137	1237	
==>oc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # d <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1137	1237	
==>oc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	161	268	
==>t;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	161	268	
==>t;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	161	268	
==>t;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    im <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15040	15127	
==>cap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3538	3653	
==>ispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	251	353	
==>_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	212	314	
==>_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	212	314	
==>_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2200	2302	
==>RULE')->code();

    $<variable>:=(<varhash>)\{$<key>:=(<term1>)\}
        { return { access_hash_eleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3346	3436	
==>urn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3346	3436	
==>urn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3346	3436	
==>urn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(n <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	241	338	
==>es");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19397	19488	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19397	19488	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19397	19488	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23379	23480	
==>($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23379	23480	
==>($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23379	23480	
==>($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2235	2337	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2235	2337	
==>(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	81	182	
==>Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal ar <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	81	182	
==>Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2893	3033	
==>> 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '&&',
        assoc = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6080	6200	
==>::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3249	3367	
==>::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4098	4216	
==>::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    pr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5348	5462	
==>thod negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous } <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5348	5462	
==>thod negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4601	4699	
==>($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext, <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4601	4699	
==>($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2139	2260	
==>onstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'id <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11007	11128	
==>onstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2332	2453	
==>onstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'id <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11286	11407	
==>onstant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	870	969	
==>ti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract al <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	870	969	
==>ti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract al <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	870	969	
==>ti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract al <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4028	4186	
==>untime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4028	4186	
==>untime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1253	1347	
==>t anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1253	1347	
==>t anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1915	2062	
==>tate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation strin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1915	2062	
==>tate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation strin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11459	11593	
==>}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11459	11593	
==>}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and p <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2853	2966	
==>rees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2853	2966	
==>rees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.ch <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4258	4369	
==>ewhere?
  sub flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4110	4203	
==>f => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4110	4203	
==>f => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4110	4203	
==>f => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7859	7965	
==>dex{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7847	7953	
==>dex{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$boo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15699	15788	
==>his case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15699	15788	
==>his case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4441	4575	
==>down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4441	4575	
==>down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	141	246	
==>an be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * clea <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	141	246	
==>an be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * clea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7191	7305	
==>n emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3795	3909	
==>n emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4644	4758	
==>n emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26037	26131	
==>rts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30589	30683	
==>rts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29564	29658	
==>rts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	600	711	
==>$match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6118	6229	
==>$match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	600	711	
==>$match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6130	6241	
==>$match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', map { match <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	794	904	
==><÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	794	904	
==><÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8639	8734	
==>security caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::S <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8639	8734	
==>security caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::S <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4731	4842	
==>is builtin is safe {
        if Pugs::Internals::current_pragma_value($?CLASS) //
                $fatal::DEFAUL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2708	2805	
==>umber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2708	2805	
==>umber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2708	2805	
==>umber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Numb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3025	3139	
==>tributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3025	3139	
==>tributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3025	3139	
==>tributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attr <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	259	363	
==>d to the
Role it is attached to (however, this is a trend and not a rule).

=item *

A method is bound to <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23011	23111	
==>ot Perl.  If you send a single-quoted
string as a regex with a variable in it, that '$' will be inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3380	3471	
==>a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3380	3471	
==>a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3380	3471	
==>a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) }) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28201	28295	
==>mplemented.>

This method is a generic relational operator that returns a new Relation
which is <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29212	29306	
==>mplemented.>

This method is a generic relational operator that returns a new Relation
which is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32753	32847	
==>mplemented.>

This method is a generic relational operator that returns a new Relation
which is <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33764	33858	
==>mplemented.>

This method is a generic relational operator that returns a new Relation
which is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	391	510	
==>List;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	391	510	
==>List;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	391	510	
==>List;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	820	929	
==>->position();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $position = -1;
  $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8457	8561	
==>urn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8457	8561	
==>urn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_para <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8457	8561	
==>urn $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_para <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25215	25306	
==>ttribute Relation::Example with zero tuples or
one tuple respectively have a special meaning <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1473	1749	
==>r {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_F is readonly = (
    'MY <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29502	29597	
==>e
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34054	34149	
==>e
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33218	33313	
==>e
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes a <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7862	8082	
==>App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->ne <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4338	4447	
==>tate[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4338	4447	
==>tate[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10283	10375	
==>ault = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocant, i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6428	6557	
==>$node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interface <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1918	2028	
==>g} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(ca <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1918	2028	
==>g} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(ca <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2154	2264	
==>g} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	631	748	
==>:SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	631	748	
==>:SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	631	748	
==>:SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            ' <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	388	484	
==>SessionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Session{$variable} = $valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7875	8003	
==>ush @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7875	8003	
==>ush @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7875	8003	
==>ush @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3369	3479	
==>}

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $ex <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3369	3479	
==>}

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4893	5003	
==>}

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $ex <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2947	3038	
==>..ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-harness......ok
  t/waterloo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6083	6190	
==>nc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6083	6190	
==>nc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6083	6190	
==>nc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct- <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3942	4040	
==>t(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAKEFILE <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4582	4685	
==>ft;
	my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = shift;
	m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1299	1390	
==>c(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1299	1390	
==>c(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primit <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1299	1390	
==>c(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primit <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40130	40231	
==>f not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-130 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24821	24922	
==>f not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-130 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40130	40231	
==>f not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-130 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24821	24922	
==>f not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-130 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13450	13550	
==>nvoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
(' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18537	18637	
==>nvoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
(' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13450	13550	
==>nvoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
(' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18537	18637	
==>nvoked export_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
(' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1420	1533	
==>e;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1420	1533	
==>e;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_lo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20459	20556	
==>not use it in production.

For production use, there should be a wide variety of third party Engin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20459	20556	
==>not use it in production.

For production use, there should be a wide variety of third party Engin <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4348	4440	
==>operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivale <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4348	4440	
==>operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivale <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11227	11384	
==>ue_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11227	11384	
==>ue_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11227	11384	
==>ue_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3926	4040	
==>slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3926	4040	
==>slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4516	4630	
==>slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_ar <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27974	28069	
==>ion.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<HARNESS_P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8947	9135	
==>$_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5307	5495	
==>$_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6156	6344	
==>$_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5549	5689	
==>method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5549	5689	
==>method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5549	5689	
==>method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4321	4419	
==>mpiled Prelude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to preco <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4212	4331	
==>rts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4212	4331	
==>rts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	376	484	
==>/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $ <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	376	484	
==>/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	78	189	
==>",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	58	169	
==>",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	78	189	
==>",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	78	189	
==>",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1810	1979	
==>Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1810	1979	
==>Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1168	1272	
==>= $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_wid <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1168	1272	
==>= $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_wid <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3993	4121	
==>y};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key:\n";
        forea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18520	18641	
==>| POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these block <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18520	18641	
==>| POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these block <==
4	/Users/nnunley/pugs/util/importgraph.pl	1672	1772	
==>dules{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { setup_mod <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3994	4187	
==>ap{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7471	7664	
==>ap{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($att <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32422	32513	
==>h as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32422	32513	
==>h as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7201	7338	
==>/::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7201	7338	
==>/::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	218	333	
==>rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    delete $param->{P5};
    delete $para <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	1	95	
==>=Variablen
werden weiterhin mit den "magischen Zeichen" (sigils)
$, %, @ gekennzeichnet.
#=Kont <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7120	7253	
==>alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12128	12261	
==>alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7120	7253	
==>alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12122	12255	
==>alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	685	785	
==>c->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	685	785	
==>c->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	685	785	
==>c->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1215	1324	
==>->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	954	1058	
==>->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1159	1263	
==>->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatch <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	252	348	
==>s_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o->{'val_s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11081	11174	
==>m B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_lea <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11081	11174	
==>m B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_lea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	315	436	
==>lat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	315	436	
==>lat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cl <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6118	6228	
==>y[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$siz <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6508	6618	
==>y[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$siz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14043	14196	
==>else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14043	14196	
==>else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14043	14196	
==>else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_c <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3024	3116	
==>= @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1591	1719	
==>'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder->FETCH('::Test')->FE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1742	1850	
==>plice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1742	1850	
==>plice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1742	1850	
==>plice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3234	3331	
==>ram. This process has three
main aspects:

=over 4

=item *

Resolving compile time resolvable sym <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6583	6703	
==>S/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6583	6703	
==>S/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6583	6703	
==>S/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_s <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	70	174	
==>Runtime/;

use strict;
use warnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3359	3470	
==>rsion );

Returns a proper module version, or '0.0' if none was available.

=cut

sub _version_to_number {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1936	2034	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ful <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1936	2034	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ful <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1936	2034	
==>ull_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $ful <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4380	4488	
==>E >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4380	4488	
==>E >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4380	4488	
==>E >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5580	5674	
==>elude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5580	5674	
==>elude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5580	5674	
==>elude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js tes <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26421	26514	
==>ARNESS_COMPILE_TEST>

When true it will make harness attempt to compile the test using
C<perlc <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20476	20596	
==>ram go boom.
sub _dubious_return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('? <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9908	10019	
==>terator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9908	10019	
==>terator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9908	10019	
==>terator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23931	24045	
==>NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the client on rece <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22704	22818	
==>NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the client on rece <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23931	24045	
==>NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the client on rece <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22704	22818	
==>NOTICE message.  This rule applies to servers too - they must not send
  any error reply back to the client on rece <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2628	2729	
==>boxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17859	17960	
==>}
rule LogicalANDExpressionNoIn :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <LogicalAN <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2628	2729	
==>boxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2628	2729	
==>boxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5469	5566	
==>Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4599	4696	
==>Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5469	5566	
==>Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4599	4696	
==>Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2996	3096	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2996	3096	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2996	3096	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21612	21708	
==>ndlers for Perl 5 regexes

=head1 DESCRIPTION

This module holds the init() method for the F<Rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4523	4634	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4523	4634	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4523	4634	
==>efined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12213	12319	
==>}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12213	12319	
==>}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12213	12319	
==>}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34363	34455	
==><\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1606	1711	
==>:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1606	1711	
==>:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1606	1711	
==>:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=" <==
4	/Users/nnunley/pugs/util/config_h.pl	801	919	
==>ION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you hav <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	952	1048	
==>rl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	952	1048	
==>rl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	952	1048	
==>rl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4293	4427	
==>$self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4433	4567	
==>$self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20935	21026	
==>annel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20935	21026	
==>annel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick") <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7193	7310	
==>list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	494	611	
==>list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17386	17488	
==>enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        nod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17386	17488	
==>enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	165	275	
==>Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	165	275	
==>Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.th <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	165	275	
==>Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.th <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1055	1163	
==>", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RES <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36517	36623	
==>L: ", $parser->visual, "\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14248	14334	
==>:Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14248	14334	
==>:Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14248	14334	
==>:Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5150	5238	
==>method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5150	5238	
==>method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1145	1232	
==>))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Par <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1145	1232	
==>))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Par <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	318	429	
==>use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION

A simple assert routine since we don't <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14190	14358	
==>lems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14190	14358	
==>lems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @li <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14190	14358	
==>lems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @li <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3678	3794	
==>ile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> := <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18181	18274	
==>xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18181	18274	
==>xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18181	18274	
==>xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8428	8528	
==>e if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8428	8528	
==>e if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25976	26069	
==>= type::operator::arrow->new(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($type->st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6963	7052	
==>------------------------------------------------

# stub this for the moment ...
$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6963	7052	
==>------------------------------------------------

# stub this for the moment ...
$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6963	7052	
==>------------------------------------------------

# stub this for the moment ...
$::Class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16858	16950	
==>round, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16858	16950	
==>round, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On t <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	278	382	
==>d
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Grapheme     is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14779	14871	
==>iveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14779	14871	
==>iveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14779	14871	
==>iveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	928	1070	
==>closure::signature->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5928	6031	
==>$ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5928	6031	
==>$ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5928	6031	
==>$ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7321	7411	
==>higher order operators: alternation, concatenation.

- "plain" match operators: like 'liter <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7071	7160	
==>higher order operators: alternation, concatenation.
- "plain" match operators: like 'liter <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27347	27459	
==>{},$from,$to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3813	3917	
==>rn $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3813	3917	
==>rn $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3813	3917	
==>rn $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2031	2133	
==>turn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2031	2133	
==>turn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1270	1365	
==>turn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gram <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3131	3226	
==>turn join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Perl6 Gram <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12781	13058	
==>ed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{failed}})/$test{max},
                                             estat   => '',
                                             wsta <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1770	1916	
==>create clean '$builddir'" ), return;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9655	9762	
==>rse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n] <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9655	9762	
==>rse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13077	13213	
==>@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: synta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	782	894	
==>any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	782	894	
==>any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	782	894	
==>any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %mod <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1589	1692	
==>ew();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($start_index) && $star <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32860	32957	
==>le I<walking> the tree is
helpful.

The walk() method is used to modify the walking stack before t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	247	343	
==>:Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	247	343	
==>:Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24731	24893	
==>', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25010	25172	
==>', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1407	1508	
==>nted to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the u <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1407	1508	
==>nted to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11397	11517	
==>racter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2988	3108	
==>racter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1182	1284	
==>sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless define <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1193	1295	
==>sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless define <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4720	4869	
==>m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4720	4869	
==>m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4720	4869	
==>m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39473	39570	
==>nd upper side of the range, objects must be created during
the first pass.  To accomplish this, us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37364	37506	
==>, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37364	37506	
==>, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37364	37506	
==>, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
} <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4452	4563	
==>e "*** Wasn't able to find '$basename', aborting...\n";
        }

        unless( File::Spec->canonpath($candid <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	248	356	
==>SA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}


# check if we can load some modul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7102	7202	
==>s_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7102	7202	
==>s_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7102	7202	
==>s_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18716	18824	
==>),
				param => val(v => "foo", t => type::operator::nullary->new("str")),
			),
		),
	),
);

# this function <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7706	7809	
==>d') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7706	7809	
==>d') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7706	7809	
==>d') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12423	12564	
==>t_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12423	12564	
==>t_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12423	12564	
==>t_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1936	2061	
==>X - this is teh b0rk: (($v, $newinput) = $_->($input))
      return($v, $newinput)
        if ?$v;
    }
    return;
  };
}

1 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2842	2994	
==>tems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3462	3614	
==>tems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2842	2994	
==>tems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3462	3614	
==>tems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	384	490	
==>()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_ch <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5022	5118	
==>/ "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5022	5118	
==>/ "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17686	17781	
==>ew(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17686	17781	
==>ew(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autop <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14087	14216	
==>->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # bounded quantifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1698	1795	
==>rl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1698	1795	
==>rl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1698	1795	
==>rl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clo <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1	98	
==>se v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1	98	
==>se v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10349	10440	
==>";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11084	11175	
==>";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1946	2066	
==>cted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2381	2501	
==>cted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2818	2938	
==>cted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extract <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2530	2623	
==>commands requiring root privilegies.

Note: The only option you'll have to specify is probably <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2926	3034	
==>$a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2926	3034	
==>$a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2926	3034	
==>$a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	115	229	
==>{
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2747	2830	
==>self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2747	2830	
==>self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2747	2830	
==>self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Cod <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19046	19253	
==>gex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	612	711	
==>lues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	612	711	
==>lues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	612	711	
==>lues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9742	9848	
==>y->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3104	3196	
==>text}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3104	3196	
==>text}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3104	3196	
==>text}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	680	787	
==>l_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	680	787	
==>l_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	680	787	
==>l_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3449	3562	
==>ing.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3449	3562	
==>ing.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3449	3562	
==>ing.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10634	10742	
==>:p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10634	10742	
==>:p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10634	10742	
==>:p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	331	428	
==>er::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
my $rpc_rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24468	24582	
==>$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24468	24582	
==>$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24468	24582	
==>$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2943	3049	
==>r::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, %options) = @_;
    (exists $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17182	17271	
==>e_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17182	17271	
==>e_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17182	17271	
==>e_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6729	6834	
==>mplate_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a req <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6729	6834	
==>mplate_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a req <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15178	15272	
==>ar and array contexts, the encoded or
decoded string is returned (without changing the input st <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15178	15272	
==>ar and array contexts, the encoded or
decoded string is returned (without changing the input st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8338	8459	
==>($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8338	8459	
==>($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23781	23874	
==>ements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23781	23874	
==>ements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9775	9879	
==>se -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21570	21663	
==>your messages, showing other messages instead which are
more appropriate to the context in whi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21570	21663	
==>your messages, showing other messages instead which are
more appropriate to the context in whi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5381	5512	
==>) if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4340	4449	
==>method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4340	4449	
==>method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4340	4449	
==>method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9453	9582	
==>::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5794	5923	
==>::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6643	6772	
==>::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6375	6480	
==>($got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16364	16465	
==>e(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket:: <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16364	16465	
==>e(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket:: <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13352	13451	
==>ndex (eval $loc failed: $@)" if $@;
  $total_links += $links;
  $total_files++;
  $outfile->print($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3582	3751	
==>1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3582	3751	
==>1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16526	16624	
==>hm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16526	16624	
==>hm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # " <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2257	2397	
==>for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2257	2397	
==>for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	608	733	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	608	733	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	779	890	
==>apped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	779	890	
==>apped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	779	890	
==>apped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8733	8853	
==>1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8721	8841	
==>1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	291	390	
==>([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	291	390	
==>([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?: <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4336	4503	
==>r = \@v --> $r = @v;
    $r = \%v --> $r = %v;
    
    $r->[0]  --> $r[0];
    $r->{0}  --> $r{0};
    $r->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	193	296	
==>SAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	193	296	
==>SAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	193	296	
==>SAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compati <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	860	985	
==>? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return list->new(@res) if not @no <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	201	320	
==>tall::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7669	7754	
==>mp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7727	7812	
==>mp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19116	19290	
==>t yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19116	19290	
==>t yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19116	19290	
==>t yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	285	376	
==>ect ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	use base qw/Blondie::Red <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20103	20277	
==>nd $tot->{sub_skipped} subtest"
                         . ($tot->{sub_skipped} != 1 ? 's' : '');
        }
        $bonusmsg .= ' skipped';
    }
    elsif ($tot->{sub_skippe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	857	965	
==>ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	857	965	
==>ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	857	965	
==>ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13902	13997	
==>=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports over <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10129	10224	
==>=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports over <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13902	13997	
==>=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports over <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10129	10224	
==>=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports over <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23270	23370	
==>tion

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16098	16197	
==>%params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16098	16197	
==>%params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16098	16197	
==>%params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1361	1488	
==>+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3657	3784	
==>+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1361	1488	
==>+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3657	3784	
==>+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10328	10441	
==>other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching :: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13805	13918	
==>other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching :: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13086	13199	
==>other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching :: <==
4	/Users/nnunley/pugs/util/package-osx.pl	1681	1770	
==>cal/lib/perl5/site_perl/pil2js.pl /Library/Perl/5.8.6/pil2js.pl
        /usr/local/lib/per <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17439	17607	
==>dx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	726	837	
==>n;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! Thi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2007	2118	
==>n;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! Thi <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	144	243	
==>:parser_details = 'ParserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37767	37866	
==>he union of
all the headings of the source relations.  The body of the new relation is
the result of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42316	42415	
==>he union of
all the headings of the source relations.  The body of the new relation is
the result of <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41966	42065	
==>he union of
all the headings of the source relations.  The body of the new relation is
the result of <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2173	2271	
==>shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will a <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2173	2271	
==>shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will a <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2245	2343	
==>$args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{ch <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2223	2321	
==>$args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{ch <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5890	5991	
==>tes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cla <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5890	5991	
==>tes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8087	8188	
==>tes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two cla <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	678	776	
==>iciently tractable.
# By requiring far more effort than was hoped, it became uninteresting
# as a p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	2013	2143	
==>emptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	340	438	
==>$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	340	438	
==>$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	340	438	
==>$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	730	831	
==>e keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	730	831	
==>e keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	730	831	
==>e keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2984	3089	
==>_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2984	3089	
==>_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2984	3089	
==>_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1367	1464	
==>PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1580	1783	
==>e);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list') <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1580	1783	
==>e);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list') <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25897	25992	
==>Any - This contains zero or more variable names and values
that are associated with the message, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25897	25992	
==>Any - This contains zero or more variable names and values
that are associated with the message, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5221	5325	
==>x), !.
p6_range_bounds( 0 ,Max) --> "...", digits_int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8370	8473	
==>method BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	574	671	
==>method BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	574	671	
==>method BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Tes <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1190	1355	
==>D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +---------- <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3486	3651	
==>D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +---------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1190	1355	
==>D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +---------- <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3486	3651	
==>D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +---------- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	938	1076	
==>erl::Silly->new; # might or might not have some builtins
                                        # instead of prelude functions

=head1 DES <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38307	38414	
==>rom_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38307	38414	
==>rom_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38307	38414	
==>rom_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    re <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1266	1409	
==>{
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3168	3270	
==>ess && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3168	3270	
==>ess && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3168	3270	
==>ess && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(su <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11731	11868	
==>ers has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15208	15345	
==>ers has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14543	14680	
==>ers has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13278	13387	
==>oft systems.

  The implementation reaches into perlguts, which limits the range of
  perl versions it will wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2379	2478	
==>x.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2379	2478	
==>x.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2379	2478	
==>x.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20409	20535	
==>return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20688	20814	
==>return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11601	11695	
==>ccept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11601	11695	
==>ccept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2194	2290	
==>ion($?SELF);
    }
}

class Class::Events::Subscription::Named {
    is Class::Events::Subscripti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23915	24004	
==>) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23915	24004	
==>) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23915	24004	
==>) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	595	692	
==>_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	595	692	
==>_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	595	692	
==>_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1012	1094	
==>E';

------------------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3455	3566	
==>rn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3455	3566	
==>rn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3455	3566	
==>rn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefau <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4912	5011	
==>ly valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4912	5011	
==>ly valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6436	6535	
==>ly valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns B <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21923	22030	
==>olute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1529	1624	
==>ement, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1529	1624	
==>ement, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1529	1624	
==>ement, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18127	18237	
==>arn "1..M can only appear at the beginning or end of tests\n"
      if $totals->{seen} && 
         $totals->{m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6751	6850	
==>ils of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6751	6850	
==>ils of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8948	9047	
==>ils of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	111	211	
==>::Perl5::Ratchet for the final implementation

use strict;
use warnings;
use Data::Dumper;
use P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	159	253	
==>methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	159	253	
==>methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed I <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	159	253	
==>methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed I <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	880	998	
==>of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4358	4476	
==>of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3252	3370	
==>of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relati <==
4	/Users/nnunley/pugs/util/version_h.pl	95	186	
==>src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5995	6084	
==>s perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5995	6084	
==>s perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8192	8281	
==>s perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9901	10027	
==>y ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular orde <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7841	7967	
==>y ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular orde <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9901	10027	
==>y ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular orde <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7841	7967	
==>y ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular orde <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	430	568	
==>pile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6536	6641	
==>new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6536	6641	
==>new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6536	6641	
==>new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5428	5531	
==>ethods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5428	5531	
==>ethods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5428	5531	
==>ethods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	215	330	
==>s ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	215	330	
==>s ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4893	4987	
==>r Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read> <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4893	4987	
==>r Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read> <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8171	8274	
==>e 
# depth available for various reasons
# of convience. Sometimes that depth 
# field is not always cor <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8171	8274	
==>e 
# depth available for various reasons
# of convience. Sometimes that depth 
# field is not always cor <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2712	2811	
==>rcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt som <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2712	2811	
==>rcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt som <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6523	6630	
==>turns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6523	6630	
==>turns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7395	7500	
==>turns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7395	7500	
==>turns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4837	4949	
==>pan );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4837	4949	
==>pan );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6891	6984	
==>llegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7909	8002	
==>llegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5175	5278	
==>'::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Roo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5175	5278	
==>'::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Roo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5175	5278	
==>'::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Roo <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1679	1802	
==>ameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) { <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2260	2383	
==>ameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1679	1802	
==>ameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) { <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2260	2383	
==>ameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10923	11069	
==>c   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>() <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10923	11069	
==>c   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>() <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1149	1243	
==>entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@ge <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1149	1243	
==>entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6147	6271	
==>"Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6147	6271	
==>"Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6147	6271	
==>"Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  su <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9165	9266	
==>aka "please segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#-- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1731	1858	
==>_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1731	1858	
==>_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1731	1858	
==>_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	820	915	
==>>config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

sub altern <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2	117	
==>Junction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2	117	
==>Junction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2	117	
==>Junction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $clas <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5030	5200	
==>_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5030	5200	
==>_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9387	9508	
==>local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9375	9496	
==>local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1528	1657	
==>o_slot($idx);
                $self->get_value('@:slots')->[$idx] = $container;
            },

            'array_fetchVal' => su <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1194	1289	
==>se() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: sp <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1194	1289	
==>se() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: sp <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6392	6498	
==>local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; use strict;");
    }
    elsif($sn eq 'global') {
	warn " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38317	38422	
==>m => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38317	38422	
==>m => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38317	38422	
==>m => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9157	9298	
==>guments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Sig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9157	9298	
==>guments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Sig <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9157	9298	
==>guments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Sig <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3747	3841	
==>->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_object(anyof_char = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1399	1490	
==>gainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1399	1490	
==>gainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1399	1490	
==>gainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7541	7641	
==>} }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7541	7641	
==>} }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7541	7641	
==>} }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTa <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	475	572	
==>SAX.do_warn("could not open $file in $dir\n");
		return $class;
	}

	@.known_parsers = $class._par <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	235	332	
==>erator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

= <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1506	1651	
==>ult = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	11	106	
==>L::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::Big <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	11	106	
==>L::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::Big <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	11	106	
==>L::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::Big <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15000	15102	
==>alue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15000	15102	
==>alue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15000	15102	
==>alue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25989	26084	
==>ting the individual tests.  This allows
the tests to determine if they are being executed throug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1088	1209	
==>ersion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, look <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1088	1209	
==>ersion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, look <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1088	1209	
==>ersion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, look <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10473	10580	
==>scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10473	10580	
==>scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10473	10580	
==>scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cel <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15579	15676	
==>is an
error (for example, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3762	3898	
==>s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5079	5215	
==>s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3762	3898	
==>s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5067	5203	
==>s]*) /x ) {
            my $index = ord($1)-ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34823	34925	
==>tems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34823	34925	
==>tems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34823	34925	
==>tems: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5085	5257	
==>ember_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keye <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5085	5257	
==>ember_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keye <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2318	2443	
==>user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        l <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2318	2443	
==>user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        l <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	299	403	
==>blessed($value) && $value->isa('type'))
        || confess "You must provide a value to reference";
    b <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3295	3386	
==>st::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3295	3386	
==>st::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5492	5583	
==>st::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single te <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1624	1732	
==>ile $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): ( <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1624	1732	
==>ile $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): ( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	631	736	
==>sses the problem that macros are currently
   quite slow (~10sec for this file).

   And because macros ar <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	631	736	
==>sses the problem that macros are currently
   quite slow (~10sec for this file).

   And because macros ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13505	13670	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13505	13670	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13505	13670	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2390	2555	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47981	48185	
==>,            
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:namespace'))
                  ->store(
                      $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35500	35631	
==>) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35500	35631	
==>) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35500	35631	
==>) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7167	7290	
==>nboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7167	7290	
==>nboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7167	7290	
==>nboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19074	19187	
==>);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3307	3419	
==>et.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method interse <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3307	3419	
==>et.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method interse <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21305	21399	
==>opyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21305	21399	
==>opyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13192	13304	
==>this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13192	13304	
==>this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13192	13304	
==>this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9073	9236	
==>&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9073	9236	
==>&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1538	1657	
==>phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1538	1657	
==>phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.ni <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8752	8872	
==>dnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was un <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8752	8872	
==>dnick) doesn't work
      # yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was un <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9010	9126	
==>dnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was un <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9010	9126	
==>dnick) doesn't work
    # yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was un <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18195	18352	
==>$arg = @args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $str ~= Pugs::Internals::s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31249	31346	
==>les, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35799	35896	
==>les, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35017	35114	
==>les, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2471	2571	
==>:blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2711	2808	
==>er(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2711	2808	
==>er(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2711	2808	
==>er(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31826	31947	
==>et_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31826	31947	
==>et_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31826	31947	
==>et_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{it <==
4	/Users/nnunley/pugs/util/version_h.pl	473	577	
==>the keyword appears
# is modified.
my $revision = 0;

# SVK tries to ask the user questions when it has a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	951	1087	
==>is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name          => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1757	1864	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1757	1864	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1757	1864	
==>ow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5791	5899	
==>_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5791	5899	
==>_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # use <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5791	5899	
==>_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # use <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	183	277	
==>ite. So smartmatch can be
implemented using some is_subtype? (QQQ what's it called?) test.  But <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5421	5529	
==>s;
		my @exps;

		$self->enter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20873	20969	
==>ROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20873	20969	
==>ROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20873	20969	
==>ROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5665	5789	
==>t then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5665	5789	
==>t then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5665	5789	
==>t then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3933	4036	
==>file_contents( file => $file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5736	5845	
==>_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_dat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3072	3181	
==>_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3921	4030	
==>_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_dat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1561	1654	
==>SCRIPTION

These ADTs are the implementation classes of all the L<Blondie::Nodes> and some
mor <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1462	1574	
==>or an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how accurate the answer must b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	396	504	
==>re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	396	504	
==>re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	396	504	
==>re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	742	881	
==>t be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6224	6351	
==>i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6224	6351	
==>i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6224	6351	
==>i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15808	15975	
==>l(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16087	16254	
==>l(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleo <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	282	381	
==>=~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Sim <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	318	415	
==>=~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP::Sim <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3665	3807	
==>= shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4129	4271	
==>= shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10169	10263	
==>, and is essentially just
concerned with the well-formedness of the input, such as that mandato <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10169	10263	
==>, and is essentially just
concerned with the well-formedness of the input, such as that mandato <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	74	185	
==>_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      clos <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	74	185	
==>_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      clos <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8612	8706	
==>or notes about fail()

shouldn't matchfail still be returning something?

maybe just overload b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8325	8417	
==>or notes about fail()
shouldn't matchfail still be returning something?
maybe just overload b <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7507	7629	
==>er")
    pos = mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLAS <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5536	5639	
==>);
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{"> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5536	5639	
==>);
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{"> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5536	5639	
==>);
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{"> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	875	986	
==>ame2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	836	998	
==>::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'void';\n" .   # t/07-try.t, t/07-ref.t
        $perl5 . "\n" .
        "; 1;\n";

    {
      # Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2289	2435	
==>' exp block 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12382	12481	
==>er field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12382	12481	
==>er field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $val <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1129	1244	
==>be {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::S <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29073	29180	
==>ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29073	29180	
==>ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	424	519	
==>ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	871	973	
==>ar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast, '' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3413	3506	
==>r framework. The class itself is actually a factory for
classes which C<does> the Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3413	3506	
==>r framework. The class itself is actually a factory for
classes which C<does> the Test::Builde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5610	5703	
==>r framework. The class itself is actually a factory for
classes which C<does> the Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6270	6373	
==>);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5400	5503	
==>);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6270	6373	
==>);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5400	5503	
==>);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi sub *in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	409	520	
==>containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the "m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	389	496	
==>containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "m <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1384	1480	
==>e";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional program <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1384	1480	
==>e";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional program <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2303	2420	
==>bug $@\n$value\n" if $@;
		}
		if ($res ne $valuex) {
		    print "not ok\n  \# Expected: >$valuex<\n  \#      Got: >$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30719	30810	
==>(or rather, the corresponding transformation of each tuple), but
that any duplicates followi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35270	35361	
==>(or rather, the corresponding transformation of each tuple), but
that any duplicates followi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34461	34552	
==>(or rather, the corresponding transformation of each tuple), but
that any duplicates followi <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3908	4013	
==>terminfo
    To make, for example, the <Pos1> and <End> keys working, we need a terminfo
    file.
  --lin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5030	5123	
==>current test file.

=item B<Str $.description>

The test's description (optional).

=item B<St <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5030	5123	
==>current test file.

=item B<Str $.description>

The test's description (optional).

=item B<St <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7227	7320	
==>current test file.

=item B<Str $.description>

The test's description (optional).

=item B<St <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1284	1633	
==>)
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	202	303	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	202	303	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming R <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	202	303	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1289	1408	
==>>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1289	1408	
==>>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1289	1408	
==>>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed( <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1459	1572	
==>n";
    my $file = slurp($fname);
    # remove the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n// <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6291	6393	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6291	6393	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6291	6393	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1992	2145	
==>defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1992	2145	
==>defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1992	2145	
==>defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PI <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	241	325	
==><JavaScript::ECMAScript3::Grammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11573	11666	
==><@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11573	11666	
==><@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3210	3305	
==>st modules that use Test::Builder.  It
does this by you setting the expected output and diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3210	3305	
==>st modules that use Test::Builder.  It
does this by you setting the expected output and diagnost <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3290	3385	
==>st modules that use Test::Builder.  It
does this by you setting the expected output and diagnost <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3338	3455	
==>hildren(
                Tree.new(:node<Package>).add_children(
                    Tree.new(:node<Module>).add_childr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20839	20937	
==>alid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25391	25489	
==>alid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23979	24077	
==>alid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 Th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30875	31025	
==>@tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30875	31025	
==>@tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30875	31025	
==>@tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) { <==
4	/Users/nnunley/pugs/util/drift.pl	1493	1601	
==>T $_;
}
print OUT @scary_header;
my $module;
while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4763	4880	
==>sa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4763	4880	
==>sa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4763	4880	
==>sa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16792	16891	
==>List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	360	459	
==>, $name );

=head1 DESCRIPTION

A simple assert routine since we don't have Carp::Assert handy.

B<F <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16792	16891	
==>List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16792	16891	
==>List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10940	11045	
==>L5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2096	2199	
==>us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2096	2199	
==>us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2096	2199	
==>us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14041	14139	
==>c?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing fu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14099	14197	
==>c?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing fu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7001	7094	
==>des an interface between the 

low-level functional operators, and the higher level OO/Overloa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6762	6854	
==>des an interface between the 
low-level functional operators, and the higher level OO/Overloa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4127	4242	
==>y, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newli <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4127	4242	
==>y, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newli <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8507	8603	
==>l -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8507	8603	
==>l -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rose <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9919	10037	
==>ke sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pk <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12697	12783	
==>Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12697	12783	
==>Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12697	12783	
==>Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1928	2155	
==>ch->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2349	2569	
==>ch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1865	2085	
==>ch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2349	2569	
==>ch->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (nod <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15739	15839	
==>llowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
will support the same <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19696	19790	
==>:IRC> automatically tries to use slight variations of the nickname in the
login phase (for exam <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19696	19790	
==>:IRC> automatically tries to use slight variations of the nickname in the
login phase (for exam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6523	6635	
==>: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6523	6635	
==>: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6523	6635	
==>: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	883	980	
==>now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	883	980	
==>now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	883	980	
==>now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1277	1400	
==>ri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().def <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1277	1400	
==>ri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().def <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12084	12188	
==>, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12084	12188	
==>, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4409	4514	
==>nd_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4409	4514	
==>nd_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4409	4514	
==>nd_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { com <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27914	28010	
==>nt executable, such as
a threading perl, or a different version.

If you're using the F<prove> ut <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	101	214	
==>DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will be used
as the base for Perl6's <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1867	1969	
==>.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1867	1969	
==>.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1867	1969	
==>.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1444	1608	
==>header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1444	1608	
==>header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23929	24023	
==>or the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external reference <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23929	24023	
==>or the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external reference <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	166	265	
==>f (! -e "words.db.p5") {
    system("perl naive_bayesian.p5 add apples apples");
    system("perl na <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	430	552	
==>ch Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	430	552	
==>ch Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16938	17032	
==>named modules or anonymous routines) and write the rest of the
application in their other langu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16938	17032	
==>named modules or anonymous routines) and write the rest of the
application in their other langu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	336	452	
==>ys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	541	657	
==>ys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	597	713	
==>ys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5869	6069	
==>nt(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5869	6069	
==>nt(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3230	3428	
==>nt(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3230	3428	
==>nt(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2755	2861	
==>finite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2755	2861	
==>finite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2755	2861	
==>finite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2470	2569	
==>RE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errms <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	136	230	
==>nt$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::O <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	136	230	
==>nt$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::O <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	702	790	
==>Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE Use <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	702	790	
==>Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE Use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	256	374	
==>al
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	256	374	
==>al
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	256	374	
==>al
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6	109	
==>s is needed by v6.pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options av <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14241	14411	
==>>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14241	14411	
==>>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14241	14411	
==>>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11429	11532	
==>ex implementation of the new node.

=head2 Named Character Support

Perl's regex engine doesn't see \N{N <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	700	806	
==>ruct( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct => $struct );

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1242	1341	
==>e PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1242	1341	
==>e PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1242	1341	
==>e PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19910	19994	
==>ernals::use_jsan_module_imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatever <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3419	3572	
==>_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3419	3572	
==>_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11383	11477	
==>tax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11383	11477	
==>tax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.head <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1450	1583	
==>ariable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1450	1583	
==>ariable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @r <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5826	5917	
==>Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan. <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5826	5917	
==>Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan. <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	679	790	
==>Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookies{$varia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4937	5029	
==>eturn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4937	5029	
==>eturn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4937	5029	
==>eturn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1825	1929	
==>version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1825	1929	
==>version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1825	1929	
==>version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9030	9125	
==>ppear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $ <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	47	148	
==>:MetaModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a Tangram schema stru <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31386	31477	
==>argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35936	36027	
==>argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35154	35245	
==>argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argum <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1917	2125	
==>s         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1917	2125	
==>s         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24222	24315	
==>ime binding and
will support multiple languages or locales simultaneously at run time.

=head1 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24222	24315	
==>ime binding and
will support multiple languages or locales simultaneously at run time.

=head1 <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	841	952	
==>);
    }

}

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>

=head1 SEE ALSO

L<Carp::Assert>

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2783	2875	
==>erl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2783	2875	
==>erl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_per <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2783	2875	
==>erl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2244	2352	
==>racted,$remainder) = Text::Balanced::extract_delimited( '"' . $_[0], '"' );
    $extracted = substr( $extract <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6278	6389	
==>NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6278	6389	
==>NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.b <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8493	8587	
==>wn security analysis before using it in any 
sensitive application.>

B<I<The authors and copyr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8493	8587	
==>wn security analysis before using it in any 
sensitive application.>

B<I<The authors and copyr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7967	8075	
==>t to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that has no capture (but the 'b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7699	7804	
==>t to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that has no capture (but the 'b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37503	37602	
==>der of its arguments is not significant to the result;
the new Relation is the result of combining a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42052	42151	
==>der of its arguments is not significant to the result;
the new Relation is the result of combining a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8717	8913	
==>} @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_norm <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8717	8913	
==>} @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_norm <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8717	8913	
==>} @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_norm <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3348	3460	
==>} while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	10	150	
==>B::Alternative;

use strict;
use warnings;

use JIB::Config;
use JIB::Utils;

use Params::Check           qw[check];
use Log::Message::Simple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6843	6949	
==>ake_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6843	6949	
==>ake_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6843	6949	
==>ake_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15117	15223	
==>my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15117	15223	
==>my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15117	15223	
==>my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($ <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	143	236	
==>name, $path) = fileparse($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	151	262	
==>er "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	151	262	
==>er "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	151	262	
==>er "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  P <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8858	8967	
==>{
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "Can't unify $x->{name} with $y->{name} i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18545	18638	
==>N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	424	516	
==>Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	424	516	
==>Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23619	23725	
==>a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22392	22498	
==>a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23619	23725	
==>a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22392	22498	
==>a C<NOTICE> to a destination.

B<Note>: A bot should I<always> use C<NOTICE> to send replies. Quoting L<RFC <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9796	9935	
==>erson.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9796	9935	
==>erson.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	235	338	
==>'Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = sh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	235	338	
==>'Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = sh <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	732	841	
==>' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	642	737	
==>s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	642	737	
==>s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	642	737	
==>s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4310	4523	
==>.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4310	4523	
==>.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21957	22059	
==>safe {
    # XXX - re-enable this when Parse-YAML supports closures correctly!
    return if index($fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1015	1131	
==>r usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile mu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1015	1131	
==>r usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile mu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1015	1131	
==>r usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile mu <==
4	/Users/nnunley/pugs/util/func_refact.pl	101	202	
==>help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n f <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2828	2941	
==>lsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1896	2009	
==>t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num $x) {
	my Int $t = int($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11978	12072	
==>ml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_requ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11978	12072	
==>ml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_requ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11978	12072	
==>ml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_requ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	521	642	
==>e =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	521	642	
==>e =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11587	11684	
==>ce that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11587	11684	
==>ce that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10092	10233	
==>ather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10092	10233	
==>ather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	3	123	
==>kage JIB::Package::Binary;

1;




sub install {



    ### XXX return j::p::installed


}

1;

# Local variables:
# c-in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	259	344	
==>Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
use Pugs::Compile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2503	2646	
==>l { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2503	2646	
==>l { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2503	2646	
==>l { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10045	10135	
==>IL::PIL1CPerl5::Util::FilterNodeDefs;
our($package_name,$method_name);
sub import {
    my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9578	9692	
==>) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9578	9692	
==>) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->ele <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9578	9692	
==>) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->ele <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	336	428	
==>e((splitpath(%*INC<XML/SAX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open(catf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6201	6328	
==>gexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6201	6328	
==>gexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6201	6328	
==>gexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4838	4937	
==>t {
  Carp::croak("class name passed where object required") unless ref $_[0];
  my $type = splice @ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	86	233	
==>Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ } <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	86	233	
==>Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ } <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2576	2687	
==>);
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2576	2687	
==>);
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11871	12038	
==>current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11871	12038	
==>current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11871	12038	
==>current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	166	267	
==>ey, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10220	10322	
==>alue::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list crea <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10220	10322	
==>alue::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list crea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1909	2010	
==>(which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. 



T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1836	1934	
==>(which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. 

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15765	15906	
==>pfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/dev/null#NL:#;

        # VMS file locking
        $prog =~ s{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5005	5134	
==>etch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5005	5134	
==>etch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5005	5134	
==>etch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1614	1724	
==>');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1614	1724	
==>');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1614	1724	
==>');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2235	2342	
==>ile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19638	19731	
==>r
updating their "information schema" records, which in SQL are read-only,
not by using specia <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19638	19731	
==>r
updating their "information schema" records, which in SQL are read-only,
not by using specia <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3655	3789	
==>= $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_ag <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3655	3789	
==>= $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_ag <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5003	5108	
==>],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding f <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5003	5108	
==>],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding f <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1035	1166	
==>sn't a WikiWoord!\n" unless $topic ~~ $wikiwords;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2673	2776	
==>new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2673	2776	
==>new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2673	2776	
==>new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        r <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	474	591	
==>oid is export{
    system(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2958	3067	
==>);
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2958	3067	
==>);
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2958	3067	
==>);
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3686	3787	
==>::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3686	3787	
==>::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3686	3787	
==>::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2903	3001	
==>pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2903	3001	
==>pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2903	3001	
==>pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	981	1073	
==>=item B<new (~type) returns reference>

=item B<to_native () returns *native*>

=item B<to_bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	988	1119	
==>,
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	988	1119	
==>,
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	988	1119	
==>,
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22286	22378	
==>ument describes Relation version 0.1.0.

It also describes the same-number versions of Relati <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37027	37123	
==>s to a C<intersection>.  In any situation where a pair of source
relations have zero attributes i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41576	41672	
==>s to a C<intersection>.  In any situation where a pair of source
relations have zero attributes i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41199	41295	
==>s to a C<intersection>.  In any situation where a pair of source
relations have zero attributes i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4244	4347	
==><∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3371	3474	
==><∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4244	4347	
==><∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3371	3474	
==><∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3765	3879	
==>class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, ju <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3765	3879	
==>class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, ju <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23347	23441	
==>than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23347	23441	
==>than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	261	376	
==>we can load some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16099	16207	
==>f $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16099	16207	
==>f $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16099	16207	
==>f $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8865	8987	
==>t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	599	721	
==>t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8865	8987	
==>t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8865	8987	
==>t open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't close \"$fn\": $!\n";
    my $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9879	10002	
==>e',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9879	10002	
==>e',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9879	10002	
==>e',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3245	3372	
==>. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3245	3372	
==>. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3245	3372	
==>. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1066	1176	
==>= 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1066	1176	
==>= 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1822	1930	
==>= 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1822	1930	
==>= 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1369	1477	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'L <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1369	1477	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'L <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1108	1215	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'L <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1108	1215	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'L <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1728	1843	
==>nf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1728	1843	
==>nf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	401	501	
==>export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_ST <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	401	501	
==>export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_ST <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9062	9171	
==>, $how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15359	15459	
==>ush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15359	15459	
==>ush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15359	15459	
==>ush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2345	2472	
==>red is Getopt::Argument::Style {
        method ^string_to_arguments( $string ) {
            given $string {
                wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3820	3920	
==>n't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3820	3920	
==>n't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3820	3920	
==>n't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pars <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25217	25317	
==>ribute Relation::Example with zero tuples or
one tuple respectively have a special meaning in relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3628	3719	
==>the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3628	3719	
==>the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3628	3719	
==>the operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1634	1767	
==>ms->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1634	1767	
==>ms->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1634	1767	
==>ms->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10210	10341	
==>@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10210	10341	
==>@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	295	393	
==>filename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.cl <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	295	393	
==>filename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.cl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2975	3087	
==>?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2975	3087	
==>?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Spa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2559	2656	
==>member to do it at both ends!)

=item Encrypting with the exact same key twice can compromise both <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2559	2656	
==>member to do it at both ends!)

=item Encrypting with the exact same key twice can compromise both <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11855	11996	
==>\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8137	8278	
==>\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8971	9112	
==>\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1813	1914	
==>y $safe = $self->annotate($compiled);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12121	12226	
==>d_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4764	4869	
==>d_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10402	10505	
==>connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10402	10505	
==>connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	870	1001	
==>re
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	870	1001	
==>re
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	870	1001	
==>re
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2549	2670	
==>$run == $:expect;
          return "Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similariti <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26463	26569	
==>{  # see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3186	3274	
==>elf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3186	3274	
==>elf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3186	3274	
==>elf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1857	1965	
==>ss, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $clas <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1857	1965	
==>ss, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6884	6985	
==>tch = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6884	6985	
==>tch = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1397	1520	
==>_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1397	1520	
==>_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1397	1520	
==>_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4421	4529	
==>$@;
    PugsConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1043	1148	
==>y $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1043	1148	
==>y $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1043	1148	
==>y $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1095	1192	
==>k for circular superclasses?
# I guess that we're not the superclass of any superclass

method set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8775	8896	
==>uous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8775	8896	
==>uous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8775	8896	
==>uous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24635	24721	
==>,X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10609	10737	
==>has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      submethod BUILD (
          $.description, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1129	1247	
==>has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description, <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1129	1247	
==>has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3809	3918	
==>var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumper "cleaned",$Z::o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8692	8790	
==>=~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob-> <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	425	523	
==>=~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8692	8790	
==>=~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8692	8790	
==>=~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob-> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	793	932	
==>> '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSafe::Ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10011	10117	
==>l handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10011	10117	
==>l handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10011	10117	
==>l handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8489	8695	
==>@a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8489	8695	
==>@a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8489	8695	
==>@a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17817	17915	
==>ber of times that character appeared in the character class.  The
character class C<[A-CB-E]> would <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1830	1959	
==>keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1830	1959	
==>keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	904	1013	
==>,');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	904	1013	
==>,');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1419	1526	
==>"can't open $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11908	12004	
==>ams);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11908	12004	
==>ams);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11908	12004	
==>ams);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4190	4333	
==>>clear;
        },              
        class => sub { \&Point3D },        
    };
}

my $p3d = new Point3D(5, 6, 7);
is($p3d->class, \&Point3D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3609	3706	
==>pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3609	3706	
==>pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3609	3706	
==>pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retur <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	80	182	
==>Browser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Dig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4052	4152	
==>l$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4052	4152	
==>l$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4052	4152	
==>l$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return con <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2889	3005	
==>s{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2889	3005	
==>s{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5852	5952	
==>hich are "matcher" things.

Rules operate on strings (normally) and return Match objects.



### exam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5649	5746	
==>hich are "matcher" things.
Rules operate on strings (normally) and return Match objects.

### exam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27779	27882	
==>bject and a boolean as arguments.
The boolean is true if the flag is going to be turned on, and false if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4315	4415	
==>ss ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4315	4415	
==>ss ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4905	5005	
==>ss ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3859	3967	
==>lf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3859	3967	
==>lf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3083	3173	
==>ompare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3141	3231	
==>ompare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	532	635	
==>r "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	532	635	
==>r "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	532	635	
==>r "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28325	28424	
==>e_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture.
(a\1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23488	23610	
==>nless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23488	23610	
==>nless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23488	23610	
==>nless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Sc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	251	353	
==>s;

BEGIN {
    $operator = Pugs::Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operato <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1421	1522	
==>lue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1421	1522	
==>lue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1421	1522	
==>lue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7502	7654	
==>$start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7502	7654	
==>$start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7502	7654	
==>$start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17796	17904	
==>return $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$s)=@_;
  my $r = compi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1977	2097	
==>"<term:", "left", $parse_quant);
    $optable->addToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->ad <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29536	29631	
==>nwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34088	34183	
==>nwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33252	33347	
==>nwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7006	7112	
==>failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9256	9452	
==>d normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9256	9452	
==>d normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16640	16738	
==>to what the user sees; it never outputs anything by itself to the user, but
rather returns its resu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16640	16738	
==>to what the user sees; it never outputs anything by itself to the user, but
rather returns its resu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22028	22281	
==>lation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	716	853	
==>en = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	716	853	
==>en = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	716	853	
==>en = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5414	5525	
==>elf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5414	5525	
==>elf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5414	5525	
==>elf) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $m <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	151	250	
==>od

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2060	2151	
==>= $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2060	2151	
==>= $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2060	2151	
==>= $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3645	3803	
==>te names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3657	3815	
==>te names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9353	9466	
==>($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $retu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9353	9466	
==>($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7173	7307	
==>te instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7173	7307	
==>te instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7173	7307	
==>te instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_n <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11136	11243	
==>d using the total number of
    tests run -- for example, if a backend only ran three tests, which it
    pa <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3929	4039	
==>idates;
        my $target = File::Spec->canonpath(
            File::Spec->catfile(qw< dist build src >, $path <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	507	606	
==>*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	507	606	
==>*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	507	606	
==>*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5648	5811	
==>, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5648	5811	
==>, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5648	5811	
==>, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = fr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8424	8530	
==>.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	935	1096	
==>r-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	935	1096	
==>r-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1027	1122	
==>gs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1027	1122	
==>gs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2461	2586	
==>s> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 < <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2645	2770	
==>s> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7867	7964	
==>led by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7867	7964	
==>led by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channe <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23166	23265	
==>PT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=head1 Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12901	12997	
==>xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12901	12997	
==>xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12901	12997	
==>xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14305	14448	
==>pr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispatcher = $class.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5422	5530	
==>tore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5422	5530	
==>tore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5422	5530	
==>tore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2079	2167	
==>me),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2079	2167	
==>me),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:| <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2079	2167	
==>me),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:| <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14072	14158	
==>r_chars(I,[42,111,D0,D1,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnums(T) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5711	5807	
==>%!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5711	5807	
==>%!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3584	3685	
==>)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3584	3685	
==>)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3584	3685	
==>)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6267	6355	
==>mangle_sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_name {
	my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11759	11913	
==>cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11759	11913	
==>cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11759	11913	
==>cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell' <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	735	839	
==>die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke =~ /^< <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5091	5239	
==>fier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5091	5239	
==>fier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default { <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	140	240	
==>his document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs - <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	140	240	
==>his document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs - <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8942	9094	
==>lan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.wr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1094	1228	
==>lan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.wr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1094	1228	
==>lan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.wr <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	369	471	
==>1], 'SAX');
	$file //= $parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XM <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1665	1766	
==>re_symbol})/\@$1.last/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8309	8435	
==>ount,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be us <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8309	8435	
==>ount,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be us <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8309	8435	
==>ount,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be us <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25460	25556	
==>at return a non-zero exit status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message simi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7040	7174	
==>am = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7040	7174	
==>am = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7040	7174	
==>am = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	131	240	
==>:TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&say'),
		App(
			Sym <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32095	32192	
==>hose body contains all of the tuples that are in either or both of the
invocant Relation and C<$ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36645	36742	
==>hose body contains all of the tuples that are in either or both of the
invocant Relation and C<$ot <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	60	160	
==>ame;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or di <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	60	160	
==>ame;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or di <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35154	35245	
==>product (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39704	39795	
==>product (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1253	1354	
==>des that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1253	1354	
==>des that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class t <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3655	3749	
==>as still being developed.

This module is primarily for reading human written files, and anythi <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3655	3749	
==>as still being developed.

This module is primarily for reading human written files, and anythi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7408	7526	
==>>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10247	10365	
==>g;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # comp <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7408	7526	
==>>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10247	10365	
==>g;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # comp <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	681	830	
==>< $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	681	830	
==>< $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5401	5501	
==>g or a reference to a URI object.

You will not be able to examine the response code or response head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5401	5501	
==>g or a reference to a URI object.

You will not be able to examine the response code or response head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2690	2788	
==>ethod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2690	2788	
==>ethod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2690	2788	
==>ethod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Rol <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	295	392	
==>erl::Type;

# junctive types can only be disjunctions and conjunctions, so
# sub-type JuncType
has <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5702	5879	
==>eturns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9179	9356	
==>eturns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relat <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4978	5141	
==>his dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _par <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5442	5605	
==>his dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2415	2660	
==>'$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2415	2660	
==>'$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2415	2660	
==>'$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $ty <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14117	14209	
==>0]; TAILCALL(&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1] <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1029	1154	
==>tion formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2926	3030	
==>export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2926	3030	
==>export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2926	3030	
==>export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7277	7401	
==>al"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7277	7401	
==>al"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2153	2250	
==>vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_ke <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2153	2250	
==>vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_ke <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6253	6373	
==>new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17831	17938	
==>ce')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17831	17938	
==>ce')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17831	17938	
==>ce')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10706	10796	
==>y Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9653	9784	
==>ed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9653	9784	
==>ed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9653	9784	
==>ed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11252	11376	
==>>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11252	11376	
==>>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11252	11376	
==>>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    r <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9185	9296	
==>$initrd_img and -s $initrd_img == 1024 * $initrd_size },
    using  => sub { system "dd", "if=/dev/zero", "of=$i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9559	9663	
==>thod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.compl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9559	9663	
==>thod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.compl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	964	1058	
==>the API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
funct <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	964	1058	
==>the API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
funct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12185	12415	
==>res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # prin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12185	12415	
==>res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # prin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12185	12415	
==>res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # prin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7229	7352	
==>ast_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $file ) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18636	18770	
==>hen any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30195	30287	
==>oject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stand <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34747	34839	
==>oject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stand <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33920	34012	
==>oject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stand <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17544	17649	
==>=> ide("pair"),
	param => val(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = com <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20105	20196	
==>plementation can be changed greatly (it isn't what's important;
the interface/behaviour is), <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24657	24748	
==>plementation can be changed greatly (it isn't what's important;
the interface/behaviour is), <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23209	23300	
==>plementation can be changed greatly (it isn't what's important;
the interface/behaviour is), <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3088	3219	
==>namic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped from '&func' in
                   # the env, whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18103	18231	
==>l6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dum <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18103	18231	
==>l6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dum <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18103	18231	
==>l6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dum <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10865	10978	
==>closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to transla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11015	11128	
==>closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to transla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17865	17962	
==>module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET * <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17865	17962	
==>module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET * <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8374	8485	
==>curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<obje <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8374	8485	
==>curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<obje <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9223	9318	
==>ogical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open"). <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9223	9318	
==>ogical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open"). <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	455	573	
==>intro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <typ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	455	573	
==>intro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <typ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9983	10076	
==>ode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9983	10076	
==>ode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6596	6719	
==>ds ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $ou <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6654	6777	
==>ds ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	517	618	
==>ch stack frame points to the code we are filtering.
# This is a method in case it needs to be overridd <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	517	618	
==>ch stack frame points to the code we are filtering.
# This is a method in case it needs to be overridd <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10530	10636	
==>\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule RegularExpressionChar {  # see 7.8.5
      <!befor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2027	2118	
==>Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2027	2118	
==>Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2027	2118	
==>Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=". <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	669	786	
==>rl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	669	786	
==>rl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	669	786	
==>rl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3404	3496	
==>erl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly instal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7723	7850	
==>=>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7723	7850	
==>=>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7723	7850	
==>=>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	25	121	
==>-09-11 15:57:29Z andy $

package Test::Harness::Assert;

use strict;
require Exporter;
use vars q <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6809	6900	
==>fix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6809	6900	
==>fix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6809	6900	
==>fix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3566	3669	
==>ule, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3624	3727	
==>ule, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	523	624	
==>ck frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
su <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	523	624	
==>ck frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
su <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	348	463	
==>rns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	348	463	
==>rns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3938	4050	
==>x -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3938	4050	
==>x -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15775	15878	
==>urn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19252	19355	
==>urn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7718	7823	
==>pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7718	7823	
==>pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7718	7823	
==>pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	30	141	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	30	141	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	30	141	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2982	3083	
==>t::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! an <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14219	14315	
==>/:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method w <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14219	14315	
==>/:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	353	454	
==>iler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	291	388	
==>th MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	291	388	
==>th MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	291	388	
==>th MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11380	11495	
==>.. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11380	11495	
==>.. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11380	11495	
==>.. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PI <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4128	4228	
==>t ...
}
rule MultiLineNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but n <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7067	7167	
==>n it is used by 
a block cipher mode role to add some information to the output.

A default implement <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7067	7167	
==>n it is used by 
a block cipher mode role to add some information to the output.

A default implement <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1632	1730	
==>y "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = sp <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1632	1730	
==>y "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = sp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4805	4923	
==>rser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML com <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4640	4754	
==>rser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML com <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14118	14214	
==>the headers
will be visited in the recommended "Good Practice" order.

Any return values of the c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14118	14214	
==>the headers
will be visited in the recommended "Good Practice" order.

Any return values of the c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1022	1260	
==>\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1129	1228	
==>utput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1129	1228	
==>utput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1129	1228	
==>utput function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17423	17585	
==>xt
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17998	18144	
==>,
      family => 'close',
      nparen => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub t <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	920	1049	
==>FILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nma <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	797	902	
==>FILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1100	1195	
==>and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1100	1195	
==>and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1100	1195	
==>and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOP <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1822	1918	
==>thod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1822	1918	
==>thod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1079	1194	
==>h (not longest).  though we need a 

    # separate longest match for tokens (putter on #perl6)

    # update: <%var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1430	1543	
==>h (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1037	1150	
==>h (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1430	1543	
==>h (not longest).  though we need a 
    # separate longest match for tokens (putter on #perl6)
    # update: <%var <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1287	1410	
==>oad {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8238	8343	
==>y my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8238	8343	
==>y my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8238	8343	
==>y my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23091	23200	
==>OTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19512	19621	
==>OTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8539	8640	
==>($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8539	8640	
==>($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed ni <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5227	5337	
==>rt_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_op <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5227	5337	
==>rt_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_op <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3762	3857	
==>closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3762	3857	
==>closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9911	10024	
==>\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15752	15865	
==>\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9911	10024	
==>\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15746	15859	
==>\(\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13034	13213	
==>y $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13034	13213	
==>y $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13034	13213	
==>y $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16092	16220	
==>l_args);
    my $status = $?;

    # Clean up the results into something a bit more predictable.
    $results =~ s/\n+$//;
    $r <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1545	1647	
==>$O: JSX::String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	597	694	
==>rgs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	597	694	
==>rgs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	597	694	
==>rgs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8411	8605	
==>prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            chomp;
            msg("Removing file '$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8290	8392	
==>w PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8290	8392	
==>w PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8290	8392	
==>w PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4087	4186	
==>e backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4271	4370	
==>e backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17489	17581	
==>those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::I <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17489	17581	
==>those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2505	2600	
==>, b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2505	2600	
==>, b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2505	2600	
==>, b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2134	2252	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2724	2842	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2134	2252	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2712	2830	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifi <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6755	6866	
==>l',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'i <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6755	6866	
==>l',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3654	3765	
==>l',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'i <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	60	164	
==>p the DESTDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
use File: <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4991	5112	
==>here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(back <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4991	5112	
==>here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(back <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	912	1007	
==>mplicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printi <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	912	1007	
==>mplicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	147	250	
==>d. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	147	250	
==>d. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	147	250	
==>d. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	147	250	
==>d. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10189	10304	
==>r own class or not.
        return bless sub {
            confess "Cannot call private method from different class" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10189	10304	
==>r own class or not.
        return bless sub {
            confess "Cannot call private method from different class" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10189	10304	
==>r own class or not.
        return bless sub {
            confess "Cannot call private method from different class" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4719	4831	
==>ve registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!u <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4719	4831	
==>ve registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!u <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3071	3174	
==>content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3071	3174	
==>content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2219	2359	
==>}
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2219	2359	
==>}
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2468	2569	
==>est::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $exp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2526	2627	
==>est::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19045	19156	
==>' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Endi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19045	19156	
==>' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Endi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7760	7856	
==>hod proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method aut <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7760	7856	
==>hod proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method aut <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6533	6631	
==>e {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6533	6631	
==>e {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1725	1820	
==>ookup), App (application) and Lit (literal).



App is divided to Multiple, Single and Primitive <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1656	1749	
==>ookup), App (application) and Lit (literal).

App is divided to Multiple, Single and Primitive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11830	12023	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11830	12023	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11830	12023	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18860	18950	
==>intersection (Relation::Example $other!) returns Relation::Example {
    return Relation::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4575	4679	
==>6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4575	4679	
==>6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4575	4679	
==>6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6:: <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1774	1862	
==>cs/design
     perl util/catalog_tests.pl --test_dirs=t/builtins,t/macros --output_dir=t_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	412	516	
==>d start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	412	516	
==>d start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True  }
method end_i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1424	1527	
==>d start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1424	1527	
==>d start_is_open   () { return Bool::False }
method end_is_closed   () { return Bool::True }
method end_i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3028	3141	
==>1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
s <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3028	3141	
==>1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19709	19804	
==>ly,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19709	19804	
==>ly,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete f <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1633	1744	
==>thod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5110	5221	
==>thod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4040	4151	
==>thod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3098	3199	
==>_

use Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule' );

=for pod
  sub rx <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15439	15570	
==>me =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name=>$name);
            
            my @kids = $b <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4911	5009	
==>utes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4911	5009	
==>utes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7108	7206	
==>utes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16571	16717	
==>ASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9305	9397	
==>eturns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9305	9397	
==>eturns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9204	9295	
==>F!_union( $other );
}

multi method union (Relation::Example *@others) returns Relation::Exa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11335	11468	
==>alue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11335	11468	
==>alue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this do <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11335	11468	
==>alue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this do <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1287	1403	
==>self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAM <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5523	5687	
==>=> \( $match->from ),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

# - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10090	10188	
==>use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10090	10188	
==>use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10090	10188	
==>use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11137	11235	
==>BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11137	11235	
==>BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11137	11235	
==>BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So th <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4092	4183	
==>(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !. <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1551	1648	
==>s class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an e <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1313	1410	
==>s class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an e <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1551	1648	
==>s class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an e <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1313	1410	
==>s class represents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3383	3512	
==>$match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "para <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3383	3512	
==>$match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "para <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1940	2043	
==>= $child.size();    
    }
    return $size;
}

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1940	2043	
==>= $child.size();    
    }
    return $size;
}

## ----------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11342	11476	
==>umify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11342	11476	
==>umify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't wo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11342	11476	
==>umify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't wo <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	615	715	
==>b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'new' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2415	2555	
==>Prim->new(
							arity => 1,
							body => "type_convert_${from}_${to}",
							type => [$from => $to],
						),
					),
				),	
			),
			( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10053	10169	
==>\$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10047	10163	
==>\$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14843	14968	
==>e constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14843	14968	
==>e constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14843	14968	
==>e constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5810	5912	
==>er::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\.\.) \;
        { return { _simple_statement <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29420	29561	
==>>new('dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1307	1410	
==>"PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1307	1410	
==>"PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1307	1410	
==>"PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2350	2454	
==>y $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2350	2454	
==>y $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2350	2454	
==>y $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LE <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14144	14245	
==>+ generic($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types::unify( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1759	1872	
==>crollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1759	1872	
==>crollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1759	1872	
==>crollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	121	223	
==>, $name!".say; }
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=aufrufen pol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5960	6055	
==>my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5960	6055	
==>my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5960	6055	
==>my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	35	151	
==>0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    's <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	35	151	
==>0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    's <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8247	8354	
==>$alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7963	8065	
==>$alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5865	6077	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5865	6077	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5865	6077	
==>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32820	32913	
==>cts are prefixed with F<Regexp::Parser::>, but that is omitted
here for brevity.  The headings <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11798	11907	
==>etware || $is_vms) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runperl;
	}
	elsif ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23310	23406	
==>UB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23310	23406	
==>UB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23310	23406	
==>UB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= ma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	586	834	
==>n version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Mod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	586	834	
==>n version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Mod <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3645	3777	
==>./../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3645	3777	
==>./../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	24	123	
==>nt::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	24	123	
==>nt::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %even <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3772	3867	
==>r() method repeatedly 
with your data.  Finally, call the finish() method to return any leftover <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3772	3867	
==>r() method repeatedly 
with your data.  Finally, call the finish() method to return any leftover <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	694	811	
==>nvocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	694	811	
==>nvocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	275	379	
==>e File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	275	379	
==>e File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1428	1677	
==>rface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1428	1677	
==>rface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14228	14325	
==>);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::variable::free->new,
			type::vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	847	952	
==>f = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	847	952	
==>f = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	847	952	
==>f = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1221	1324	
==>$_[0], '$<ident>' );
    return "require $ident;\n";
}
sub node::use_bareword {
    my $ident = get_str( <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	376	479	
==>l(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nested addi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3322	3417	
==>ts,
running those tests, and then telling this module to compare the received
output to the expe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3322	3417	
==>ts,
running those tests, and then telling this module to compare the received
output to the expe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3402	3497	
==>ts,
running those tests, and then telling this module to compare the received
output to the expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14615	14749	
==>self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14615	14749	
==>self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14615	14749	
==>self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshif <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1396	1501	
==>> "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3610	3705	
==>ta_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3610	3705	
==>ta_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3610	3705	
==>ta_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offse <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6308	6405	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, St <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8376	8473	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6308	6405	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8376	8473	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns Str`

- `abs2rel (Str $path, St <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	782	892	
==>a?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1554	1657	
==>)
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1554	1657	
==>)
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1554	1657	
==>)
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5583	5689	
==>pace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5583	5689	
==>pace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5583	5689	
==>pace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6756	6858	
==>/^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build -idist/ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2428	2564	
==>_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler:: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2428	2564	
==>_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2179	2289	
==>00)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end o <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2179	2289	
==>00)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7936	8084	
==>et->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7936	8084	
==>et->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7936	8084	
==>et->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1389	1497	
==>upported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1389	1497	
==>upported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1389	1497	
==>upported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3948	4048	
==>ngth;
  return (substr $target, $pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3428	3572	
==>);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3428	3572	
==>);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3428	3572	
==>);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5924	6042	
==>mented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	war <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13506	13660	
==>= 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3651	3789	
==>= 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3651	3789	
==>= 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3651	3789	
==>= 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7252	7350	
==>ELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7252	7350	
==>ELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7252	7350	
==>ELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pne <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	57	154	
==>)
="file"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20877	20975	
==>C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19794	19892	
==>C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20877	20975	
==>C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19794	19892	
==>C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24059	24199	
==>}  # turn the flag on
      else { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11643	11746	
==>lone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11643	11746	
==>lone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11643	11746	
==>lone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15719	15825	
==>osec wday yday tzname tz is_dst>; # XXX: this should be a class variable!
        #Time::Local.new( pairs z <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5417	5511	
==>_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5417	5511	
==>_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5417	5511	
==>_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	584	683	
==>:EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eigen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	584	683	
==>:EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eigen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	584	683	
==>:EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eigen <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3441	3537	
==>'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	470	571	
==>e in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	470	571	
==>e in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	470	571	
==>e in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Att <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1285	1385	
==>}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13767	13887	
==>oxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13767	13887	
==>oxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13767	13887	
==>oxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5694	5812	
==>e}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rule { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7402	7518	
==>= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7414	7530	
==>= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - n <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	333	446	
==>{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16150	16249	
==>into something a bit more predictable.
    $results =~ s/\n+$//;
    $results =~ s/at\s+misctmp\d+\s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12824	12938	
==>.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12824	12938	
==>.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12824	12938	
==>.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $ <==
4	/Users/nnunley/pugs/util/grokprims.pl	647	752	
==>soc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, assoc=>$a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9643	9763	
==>ry_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9643	9763	
==>ry_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9643	9763	
==>ry_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24946	25042	
==>ostly enough
 * that pregcomp() supplies a regmust only if the r.e. contains something
 * potenti <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13560	13682	
==>ddrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endcla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1479	1579	
==>gnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_nu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1479	1579	
==>gnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_nu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1559	1659	
==>gnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_nu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	665	760	
==>ype, boxed or unboxed.

These objects are what you get from C<::SomeClass> references.

Note tha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4561	4811	
==>ape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cook <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4561	4811	
==>ape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cook <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6364	6458	
==>le above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26405	26499	
==>able.

=item C<HARNESS_COMPILE_TEST>

When true it will make harness attempt to compile the tes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6364	6458	
==>le above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6364	6458	
==>le above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7100	7224	
==>ODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7100	7224	
==>ODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7100	7224	
==>ODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4845	4960	
==>e} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	197	339	
==>ne <ws> to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4168	4274	
==>0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4168	4274	
==>0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4168	4274	
==>0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %par <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	567	684	
==>S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	567	684	
==>S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26543	26638	
==>here C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31095	31190	
==>here C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1823	1926	
==>s of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1823	1926	
==>s of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1823	1926	
==>s of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS:: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7787	7882	
==>sv_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  H <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3473	3667	
==>_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # cl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3473	3667	
==>_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # cl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1762	1877	
==>ns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $prot <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1762	1877	
==>ns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $prot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13901	14043	
==>affic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13901	14043	
==>affic for at least $autoping seconds, so we
        # PING the server. If the connection is still alive, the server will
        # respond with <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12971	13105	
==>affic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12971	13105	
==>affic for at least $autoping seconds, so we
    # PING the server. If the connection is still alive, the server will
    # respond with <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	630	745	
==>t - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever



Contin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10498	10613	
==>t - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Contin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	603	715	
==>t - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Contin <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	807	914	
==>. $self->reduce($_) . ";\n\n";
	} @nodes, $program);

	$out;
}

sub make_name {
	my $self = shift;
	my $node <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12399	12511	
==>$runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runperl .= ' 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1070	1178	
==>';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1070	1178	
==>';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1070	1178	
==>';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert' <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10922	11054	
==>er.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    h <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10922	11054	
==>er.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18516	18609	
==>ame>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessar <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18516	18609	
==>ame>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessar <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2256	2368	
==>rn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2256	2368	
==>rn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32903	33001	
==>t it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32903	33001	
==>t it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_n <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2510	2627	
==>=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2510	2627	
==>=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22522	22615	
==>will also provide some variable values to be
interpolated into the user strings; Locale::Keyed <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22522	22615	
==>will also provide some variable values to be
interpolated into the user strings; Locale::Keyed <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	159	266	
==>rict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::In <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	123	229	
==>rict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::In <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	211	317	
==>rict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::In <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	855	969	
==>y ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for singl <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	855	969	
==>y ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for singl <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	377	481	
==>e) returns Num
    { ... };

multi sub pi is readonly () returns Num
    { 3.14159_26535_89793_23846_2643 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1538	1648	
==>ameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

rege <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1538	1648	
==>ameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

rege <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16528	16623	
==>so stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16528	16623	
==>so stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7521	7616	
==>erl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1749	1844	
==>erl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9155	9250	
==>erl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1967	2062	
==>erl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chro <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1750	1858	
==>node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	540	639	
==>-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	540	639	
==>-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	540	639	
==>-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3878	3973	
==>C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramete <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3878	3973	
==>C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramete <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6075	6170	
==>C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramete <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5777	5911	
==>$ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we've found a GHC directory.  Find the latest
            # ghc ins <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	484	611	
==>300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	484	611	
==>300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24733	24837	
==>Devices and Standards

I made a few C-macro-style functions for easy access to the parser
object's most i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2005	2123	
==>&& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PV <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2005	2123	
==>&& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PV <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2005	2123	
==>&& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PV <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1121	1238	
==>_term
        { $_[0]->{out}= { type => $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{out}= { named <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1307	1458	
==>.split(rx:Perl5/\s+/);
        # my @args = split(rx:Perl5/\s+/, $string);
        
        my @args = $string.split;
        exec(@args);
    }
}

clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6509	6644	
==>te($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6509	6644	
==>te($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6509	6644	
==>te($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9296	9426	
==>mple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10102	10232	
==>mple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11017	11147	
==>mple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not m <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	527	627	
==>pmc);
}
C
package PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4282	4390	
==>as the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4282	4390	
==>as the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4793	4899	
==>as the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4793	4899	
==>as the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2756	2902	
==>$1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        boo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2651	2789	
==>$1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        boo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6440	6545	
==>) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6440	6545	
==>) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12898	13058	
==>%opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12898	13058	
==>%opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12898	13058	
==>%opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instanc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1056	1152	
==>", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1056	1152	
==>", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1056	1152	
==>", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1426	1531	
==>imestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1426	1531	
==>imestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to serv <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	297	397	
==>::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and st <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	297	397	
==>::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14435	14535	
==>ailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_BADPOS (-24)

PO <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20875	20970	
==>module);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7779	7873	
==>fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7779	7873	
==>fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	225	322	
==>me = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pr <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	281	378	
==>me = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	225	322	
==>me = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pr <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	281	378	
==>me = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14657	14771	
==>ie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loca <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14657	14771	
==>ie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loca <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14657	14771	
==>ie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	753	865	
==>postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <equal>', 
    infix_right <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	773	883	
==>on
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	965	1075	
==>on
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	773	883	
==>on
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	965	1075	
==>on
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2495	2601	
==>e) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2495	2601	
==>e) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2495	2601	
==>e) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Objec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1433	1529	
==>$extracted2 = substr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13856	13959	
==>ng of the order that source relations are
    # combined, so to try and make the least expensive kinds o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17333	17436	
==>ng of the order that source relations are
    # combined, so to try and make the least expensive kinds o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16713	16816	
==>ng of the order that source relations are
    # combined, so to try and make the least expensive kinds o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6013	6104	
==>ubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6013	6104	
==>ubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2912	3003	
==>ubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', ' <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1363	1447	
==>X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	510	618	
==>s {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	510	618	
==>s {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	510	618	
==>s {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	813	911	
==>= $strap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTED
  my $verbose_outpu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7175	7298	
==>han $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -I <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7175	7298	
==>han $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -I <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21959	22055	
==>rder they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a ce <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21959	22055	
==>rder they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a ce <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3825	3929	
==>rule argument_list { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_group        { \( < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7768	7863	
==>LF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7768	7863	
==>LF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7768	7863	
==>LF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	808	953	
==>urn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	808	953	
==>urn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	808	953	
==>urn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2812	2927	
==>> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  N <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	704	855	
==>y installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17417	17519	
==>arams))
        (= $method (WALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->send('add_m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3156	3255	
==>gs) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3156	3255	
==>gs) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4	98	
==>his file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4	98	
==>his file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4	98	
==>his file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9742	9837	
==>set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=hea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9742	9837	
==>set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=hea <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2422	2552	
==>ule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22816	22908	
==>rom_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22816	22908	
==>rom_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22816	22908	
==>rom_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1026	1132	
==>y ($self, $block) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "AND takes a block <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5124	5214	
==>C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5124	5214	
==>C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6648	6738	
==>C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	220	339	
==>getElementsByTagName('A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href;
        if (hr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9622	9724	
==>ved'
    # -----------------------------------------------      
    method collect_all_roles () { "<im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9622	9724	
==>ved'
    # -----------------------------------------------      
    method collect_all_roles () { "<im <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9622	9724	
==>ved'
    # -----------------------------------------------      
    method collect_all_roles () { "<im <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	222	321	
==>nction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	222	321	
==>nction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	222	321	
==>nction (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4443	4554	
==>initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line endin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4443	4554	
==>initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line endin <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5613	5722	
==>revious( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5613	5722	
==>revious( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	72	170	
==>nings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !!>', '$cond', '$true', '$false') <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1552	1643	
==>se() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1552	1643	
==>se() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1552	1643	
==>se() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2240	2328	
==>nce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2240	2328	
==>nce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2240	2328	
==>nce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::mak <==
4	/Users/nnunley/pugs/util/version_h.pl	500	620	
==>dified.
my $revision = 0;

# SVK tries to ask the user questions when it has a STDIN and there is
# no repository.  Since <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3139	3243	
==>subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3139	3243	
==>subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3139	3243	
==>subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19005	19121	
==>rt => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19005	19121	
==>rt => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19005	19121	
==>rt => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	733	840	
==>Bin/../lib",
        "$Bin/../../Pugs-Compiler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1377	1481	
==>L2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1377	1481	
==>L2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1377	1481	
==>L2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	82	177	
==>" (C functions called when regexps are compiled and
# applied) to permit alternate regexp engine <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6464	6564	
==>t>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7200	7300	
==>t>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6464	6564	
==>t>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7200	7300	
==>t>);
      for %channels{$chan}<users>.keys {
        %users{$_}<channels>.delete($chan) if %users{$_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22151	22263	
==>list = fun(
	param => "x",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7489	7590	
==>Item;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7489	7590	
==>Item;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7489	7590	
==>Item;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5440	5549	
==>int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5440	5549	
==>int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14180	14278	
==>son") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { . <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14180	14278	
==>son") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6171	6278	
==>k it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6171	6278	
==>k it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6171	6278	
==>k it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ------ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	768	870	
==>$class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to other types
sub to_str { s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16496	16626	
==>n( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19973	20103	
==>n( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19533	19663	
==>n( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7634	7731	
==>ub node::variable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::variable;
sub n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7401	7549	
==>1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9378	9526	
==>1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7389	7537	
==>1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9366	9514	
==>1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11928	12065	
==>ne   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11928	12065	
==>ne   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5103	5199	
==>item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5103	5199	
==>item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	614	708	
==>ocal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	614	708	
==>ocal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	614	708	
==>ocal $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24869	24964	
==>c., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dyn <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24869	24964	
==>c., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dyn <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19994	20095	
==>r) {
    die "Can't load perl5 modules via js when not running under PIL2JS!";
}
our &PIL2JS::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11128	11224	
==>heir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11128	11224	
==>heir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11128	11224	
==>heir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	897	1070	
==>ribute($_) }
                             $class->attributes->members,
                             $class->associations->members,
                             # 2-way associ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12669	12804	
==>Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $st <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3033	3162	
==>Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $st <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3033	3162	
==>Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7308	7401	
==>l(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { G <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1133	1226	
==>l(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { G <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8112	8231	
==>\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind eq 'SubPrim' && $name =~ /END/;#XXX

    $kind = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12947	13038	
==>LTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12947	13038	
==>LTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12947	13038	
==>LTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	904	1026	
==>l.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.child <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	904	1026	
==>l.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.child <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	904	1026	
==>l.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.child <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8962	9056	
==>Default'};
	push(@args,"default=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'p <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2180	2281	
==>GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2320	2421	
==>GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20085	20181	
==>eneral order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to de <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20085	20181	
==>eneral order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to de <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7416	7530	
==>ulti, $pBody)=@_;
    my $type = $pType;
    my @pams = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # XXX - ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7666	7774	
==>of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7666	7774	
==>of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7666	7774	
==>of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7583	7695	
==>t {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6713	6825	
==>t {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7583	7695	
==>t {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6713	6825	
==>t {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $on <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3705	3795	
==>arn;
	    $self->{'pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_code,$warn,$faile <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	682	831	
==>urn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	693	842	
==>urn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	47	144	
==>sub Pugs::Runtime::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs::Grammar::Rule::';

sub emit_no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2574	2681	
==>ink to

do it Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2479	2581	
==>ink to
do it Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1085	1196	
==>$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1085	1196	
==>$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7281	7373	
==>ent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7281	7373	
==>ent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5591	5737	
==>he AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6055	6201	
==>he AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on t <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1624	1719	
==>proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## lik <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1682	1777	
==>proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## lik <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9305	9394	
==>ts, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3130	3219	
==>ts, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19881	19983	
==>aram => $id,
);

# we can't get app_to_str to apply something of a bad type to a str
my $app_plus_ten_t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2659	2765	
==>field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRAN <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2659	2765	
==>field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRAN <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1962	2055	
==>plied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last ten <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1962	2055	
==>plied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last ten <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5685	5836	
==>(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5685	5836	
==>(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8657	8754	
==>- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8657	8754	
==>- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17749	17855	
==>>{tree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp:: <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	216	318	
==>0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Makefile { $_[0] }

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1852	1952	
==>ars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1852	1952	
==>ars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1852	1952	
==>ars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	351	468	
==>!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	351	468	
==>!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}- <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2766	2854	
==>ule_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2766	2854	
==>ule_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2244	2382	
==>h = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2244	2382	
==>h = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2242	2359	
==>ess ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2242	2359	
==>ess ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2755	2864	
==>ray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2755	2864	
==>ray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2755	2864	
==>ray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33573	33776	
==>bol->new('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19785	19876	
==>eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19785	19876	
==>eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19785	19876	
==>eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	912	1019	
==>o export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	912	1019	
==>o export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	88	179	
==>::Headers $!headers handles «
    header push_header init_header remove_header remove_conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	88	179	
==>::Headers $!headers handles «
    header push_header init_header remove_header remove_conte <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1178	1302	
==>";
        $nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3620	3728	
==>lf->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3620	3728	
==>lf->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3620	3728	
==>lf->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2481	2592	
==>~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2481	2592	
==>~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16258	16365	
==>e [ "PGE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .local pmc optable
    optable = find_global "PGE::P <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	331	433	
==>= 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	331	433	
==>= 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    m <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14132	14230	
==>cks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<%test> which wil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10367	10481	
==>nal submatches
    named - named submatches
    capture - return'ed things
    
    state - a "continuation" or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5335	5430	
==>&& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5335	5430	
==>&& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5335	5430	
==>&& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1760	1881	
==>od type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1760	1881	
==>od type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1760	1881	
==>od type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_met <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3323	3431	
==>say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        package = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40840	40932	
==>t pass over the regex.

=item $parser->awarn(RPe_ERRMSG, ARGS...)

Unconditionally throws a w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	81	169	
==>uire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	268	356	
==>uire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	455	543	
==>uire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4799	4916	
==>utput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4799	4916	
==>utput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4799	4916	
==>utput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("out <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7483	7592	
==>)} @$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($name,$type, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4122	4240	
==>position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws;
  }

  $initch <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5322	5419	
==>iving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5322	5419	
==>iving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5322	5419	
==>iving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	594	698	
==>e}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	594	698	
==>e}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	594	698	
==>e}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14848	14949	
==>eric     => sub { $as_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	828	928	
==>ges now require synchronised versions.
    # This will be used to ensure we don't accidentally load o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6055	6154	
==>(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6055	6154	
==>(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6055	6154	
==>(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the strin <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2325	2446	
==>ss::Events::Publisher is extended {
        use Set;
        has %.subscriptions of Set;

        # when you say add_subsc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24124	24221	
==>an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28676	28773	
==>an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Rel <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25692	25773	
==>_,_,_,_,_,_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
flag_x(amat(_,flgs(_, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	33	137	
==>ict;
use warnings;
use base 'Object::Accessor';
use JIB::Config;
use JIB::Package;
use JIB::Constants;

u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	166	261	
==>d" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	166	261	
==>d" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	166	261	
==>d" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless re <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5253	5400	
==>at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what w <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5717	5864	
==>at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what w <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8909	9024	
==>)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared libraries (*.so) pug <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36821	36915	
==>identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41370	41464	
==>identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40993	41087	
==>identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all. <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7066	7205	
==>match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7066	7205	
==>match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1975	2084	
==>(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1975	2084	
==>(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]? <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14885	14984	
==>ant.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14885	14984	
==>ant.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! unde <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14885	14984	
==>ant.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! unde <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3229	3328	
==>ant.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! unde <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8175	8279	
==>cant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11652	11756	
==>cant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
} <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10834	10938	
==>cant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20	278	
==>v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constan <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20	278	
==>v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constan <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20	278	
==>v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20	278	
==>v6;

# External packages used by packages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constan <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1278	1381	
==>v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_ <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1278	1381	
==>v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8907	9004	
==>span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8907	9004	
==>span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5700	5874	
==>hod" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7462	7636	
==>hod" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2290	2386	
==>t($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2290	2386	
==>t($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1406	1529	
==>,
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1417	1540	
==>,
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::conc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1464	1558	
==>exity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1464	1558	
==>exity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23182	23301	
==>b {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19603	19722	
==>b {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5945	6061	
==>$s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5945	6061	
==>$s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5945	6061	
==>$s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1911	2017	
==>tr =~ s/^\s*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		return "$node" if Blondie <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10064	10216	
==>capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # exampl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10900	11052	
==>capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # exampl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3312	3416	
==>pe { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <si <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3312	3416	
==>pe { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <si <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4450	4572	
==>ion > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4450	4572	
==>ion > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5716	5827	
==>} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the un <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5716	5827	
==>} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	48	137	
==>oot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	48	137	
==>oot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	48	137	
==>oot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12317	12432	
==>tion::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4284	4377	
==>description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4284	4377	
==>description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6481	6574	
==>description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1559	1677	
==>KE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1559	1677	
==>KE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1559	1677	
==>KE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	41	132	
==>::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1391	1513	
==>cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1391	1513	
==>cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1391	1513	
==>cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	72	164	
==>qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our @EXPORT_OK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	118	224	
==>IL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	118	224	
==>IL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	118	224	
==>IL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  su <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2158	2258	
==>ll = File::Spec->devnull;

my $output ;# = svn("up") or die "Could not update pugs tree: $!";
system( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1484	1650	
==>-> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1588	1754	
==>-> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    } <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1484	1650	
==>-> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    } <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1588	1754	
==>-> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14901	15013	
==>ared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18378	18490	
==>ared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17794	17906	
==>ared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7904	8020	
==>}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8.3
      <Decim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1157	1262	
==>.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1157	1262	
==>.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1157	1262	
==>.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1333	1429	
==>s my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
e <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1333	1429	
==>s my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2856	2950	
==>l it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2752	2843	
==>l it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3737	3843	
==>dd response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3737	3843	
==>dd response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1216	1310	
==>e> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1216	1310	
==>e> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12375	12487	
==>b)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .loc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1115	1214	
==>e PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1115	1214	
==>e PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we wa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1115	1214	
==>e PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we wa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2732	2911	
==>Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2732	2911	
==>Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $a <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	444	572	
==>|= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $searc <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	444	572	
==>|= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $searc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6663	6768	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6663	6768	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6663	6768	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11740	11925	
==>g toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3065	3182	
==>s defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3065	3182	
==>s defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3065	3182	
==>s defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $par <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17672	17836	
==>->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('% <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19430	19594	
==>->new(
                params => method::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('% <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39882	40045	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('% <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40941	41104	
==>->new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6563	6769	
==>f, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6563	6769	
==>f, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6563	6769	
==>f, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #wa <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	9	99	
==>n/perl

# --------------------------------------------------
# This script converts p5 sour <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1655	1774	
==>-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1655	1774	
==>-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1655	1774	
==>-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # + <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7464	7561	
==>Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6594	6691	
==>Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7464	7561	
==>Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6594	6691	
==>Set $one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $on <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3578	3719	
==>pends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or retur <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4042	4183	
==>pends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or retur <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10741	10836	
==>unction currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10799	10894	
==>unction currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	52	165	
==>t a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	52	165	
==>t a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39717	39812	
==>ation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39717	39812	
==>ation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1804	2045	
==>m('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17796	17949	
==>} )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21273	21426	
==>} )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $co <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20860	21013	
==>} )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1686	1834	
==>)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1686	1834	
==>)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1686	1834	
==>)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3294	3428	
==>,        
        'skip_all' => sub {
            confess 'Cannot skill_all with a plan' if defined _('$.testplan');
            _('$.o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3612	3711	
==>named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3612	3711	
==>named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4202	4301	
==>named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1240	1332	
==>_registered_alternatives );
}

=head2 $file = $inst->available_file

=cut

sub available_file <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	63	189	
==>se 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	105	231	
==>se 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	63	189	
==>se 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	105	231	
==>se 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'boo <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1070	1185	
==>lex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umla <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1070	1185	
==>lex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umla <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13477	13571	
==>is evaluated lazily. This means that side effects, such as "say" and
database queries, may occu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13477	13571	
==>is evaluated lazily. This means that side effects, such as "say" and
database queries, may occu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9664	9794	
==>ant( "\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       , <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2570	2676	
==>arn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2570	2676	
==>arn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2570	2676	
==>arn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16618	16744	
==>$match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16897	17023	
==>$match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20478	20575	
==>ion where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20478	20575	
==>ion where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2362	2509	
==>*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2362	2509	
==>*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15269	15364	
==>.

Methods that deal with dates/times always convert their value to system
time (seconds since J <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15269	15364	
==>.

Methods that deal with dates/times always convert their value to system
time (seconds since J <==
4	/Users/nnunley/pugs/util/config_h.pl	89	186	
==>empdir);

=pod

=head1 DOCUMENTATION

This file seems to determine some configuration.

  util/con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5968	6062	
==>s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5968	6062	
==>s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5968	6062	
==>s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1417	1524	
==>.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9490	9597	
==>$neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSIX cl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1417	1524	
==>.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1417	1524	
==>.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	67	208	
==>_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1642	1752	
==>D (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5119	5229	
==>D (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4049	4159	
==>D (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values - <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3759	3886	
==>from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3759	3886	
==>from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3759	3886	
==>from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.de <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	924	1027	
==>}

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2769	2952	
==>trol -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4826	4935	
==>),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4826	4935	
==>),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4826	4935	
==>),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2765	2903	
==>d>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@$grammar1::ops, ::compile_rule( '" .
            quote <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1400	1497	
==>)')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1400	1497	
==>)')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1400	1497	
==>)')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3029	3129	
==>space); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3029	3129	
==>space); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3029	3129	
==>space); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	560	658	
==>le} does not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19869	19964	
==>will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18850	18945	
==>will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19869	19964	
==>will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18850	18945	
==>will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> informat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2372	2476	
==>= $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metacl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2372	2476	
==>= $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metacl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2372	2476	
==>= $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metacl <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9776	9875	
==>builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mods,$pat,$qo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	801	901	
==>: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	801	901	
==>: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	801	901	
==>: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the u <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4131	4262	
==>ew_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-i <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4131	4262	
==>ew_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6331	6433	
==>gle span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6331	6433	
==>gle span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	978	1088	
==>his sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is call <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	978	1088	
==>his sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is call <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4600	4702	
==>ve already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4600	4702	
==>ve already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13843	13964	
==>$label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13843	13964	
==>$label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13843	13964	
==>$label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26605	26691	
==>rter->pass_as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_met <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3682	3793	
==>ping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7159	7270	
==>ping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6116	6227	
==>ping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!headi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6548	6642	
==>= newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9633	9759	
==>]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9633	9759	
==>]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9633	9759	
==>]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[id <==
4	/Users/nnunley/pugs/util/drift.pl	1618	1709	
==>OUT <<".";
module $module.Instances ()
where
import $module
import Data.Yaml.Syck
import DrI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	121	229	
==>at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	116	217	
==>at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10185	10281	
==>which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10185	10281	
==>which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2435	2582	
==>x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2435	2582	
==>x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2435	2582	
==>x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17269	17371	
==>now abstract classes I<anchor> and I<assertion>. You can't call
their new() method directly, you can on <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7432	7533	
==>?\s*\z//;
	my @pn = split(/\s*[,:]\s*|(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    } <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2775	2871	
==>RIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2932	3028	
==>RIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2775	2871	
==>RIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2932	3028	
==>RIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20292	20400	
==>self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20292	20400	
==>self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20292	20400	
==>self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9946	10043	
==>inite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9946	10043	
==>inite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8405	8501	
==>_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fa <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8463	8559	
==>_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10074	10187	
==>$self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10074	10187	
==>$self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @sp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7323	7423	
==>te %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7323	7423	
==>te %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5021	5131	
==>', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5021	5131	
==>', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1925	2035	
==>', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26692	26783	
==>ptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAt <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2885	2999	
==>elf = shift;
	my $node = shift;

	$self->{names}{$node->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $ty <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30935	31032	
==>r a tuple that is identical to the original, in which case
this method returns the identity-one Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35485	35582	
==>r a tuple that is identical to the original, in which case
this method returns the identity-one Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34676	34773	
==>r a tuple that is identical to the original, in which case
this method returns the identity-one Re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4655	4762	
==>' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4655	4762	
==>' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8212	8311	
==>ment ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element ( <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8212	8311	
==>ment ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element ( <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	218	338	
==>ribute, just scroll down until pod lines start appearing, and
# continue conversion to p6 code.

class Char is Str;
class <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9566	9689	
==>macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5907	6030	
==>macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6756	6879	
==>macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	129	241	
==>tants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Message::Simple qw(:STD);

=head1 METHOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3676	3784	
==>ing
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3676	3784	
==>ing
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3676	3784	
==>ing
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37180	37323	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37180	37323	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37180	37323	
==>RSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1546	1639	
==>lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12283	12400	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12283	12400	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12283	12400	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warning <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1480	1585	
==>alue, and has a type (C<Val>).

=item List

A list is a a node with multiple children.

C<App> is a type o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5263	5379	
==>ody => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8740	8856	
==>ody => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7760	7876	
==>ody => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12022	12126	
==>> to reverse the order of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator.

If all cri <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1438	1558	
==>};
sub merge_category   { die "not implemented" };

sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9246	9344	
==>r Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9246	9344	
==>r Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9246	9344	
==>r Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	1	98	
==>ub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	1	98	
==>ub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	1	98	
==>ub PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4981	5086	
==>->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16017	16122	
==>->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17505	17610	
==>->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22188	22293	
==>->{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  } <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	847	968	
==>ts ( @strings )  {
            $.argument_class.string_to_arguments( @strings );
        }
    }

    class Getopt::Argume <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1492	1612	
==>BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1492	1612	
==>BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1492	1612	
==>BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14490	14595	
==>ld($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14490	14595	
==>ld($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10055	10141	
==>efined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10790	10876	
==>efined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5230	5335	
==>ATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1208	1313	
==>d_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_random (Num $x <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5230	5335	
==>ATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3102	3205	
==>('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10141	10257	
==>{ bool => 0 } - match failed

or to a hashref containing:

    bool  - an "assertion" (true/false)
    from  - s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10666	10777	
==>NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10666	10777	
==>NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12878	12986	
==>alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at lea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12878	12986	
==>alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at lea <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2664	2799	
==>kie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2664	2799	
==>kie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1772	1880	
==>::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1912	2020	
==>::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15617	15837	
==>"\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15896	16116	
==>"\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::captur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1237	1379	
==>ule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1237	1379	
==>ule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    u <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2015	2115	
==>my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "blib6/lib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14708	14796	
==>UB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14708	14796	
==>UB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14708	14796	
==>UB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15270	15397	
==>b to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15270	15397	
==>b to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15270	15397	
==>b to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	597	698	
==>stall' to install.\n";

# make an educated guess of whether we'll need root permission.
print "    (Yo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10143	10293	
==>/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ p <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10143	10293	
==>/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1095	1200	
==>rl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1095	1200	
==>rl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17967	18066	
==>, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17967	18066	
==>, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects w <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18677	18776	
==>:words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <AssignmentOperat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3317	3456	
==>'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3779	3913	
==>ed_alternatives_file ) 
            };
            $@ and error( "Could not load registered alts file: $@" ), return;

            $obj <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18968	19061	
==>N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23264	23354	
==>id accessors), which can be employed when objects of
multiple different Relation-implementi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7003	7101	
==>/ We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new conta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7003	7101	
==>/ We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new conta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7003	7101	
==>/ We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new conta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5174	5309	
==>s => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5174	5309	
==>s => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5174	5309	
==>s => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role- <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	441	548	
==>lf, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pkg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	21	145	
==>age PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	21	145	
==>age PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	21	145	
==>age PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # M <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7402	7496	
==>method extend (Mapping(Str) of Code $attrs!) returns Relation::Example {

    if ($attrs.size() <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	814	952	
==>esent them all as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12111	12239	
==>->{flags}[-1],
      family => 'quant',
      data => $data,
      min => $min,
      max => $max,
    }, $class;
    return $sel <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1659	1756	
==>Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1659	1756	
==>Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10147	10253	
==>my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && ret <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10147	10253	
==>my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14821	14917	
==>art => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14821	14917	
==>art => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5491	5630	
==>{
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Boo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5491	5630	
==>{
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Boo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	780	888	
==>urn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	780	888	
==>urn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1395	1501	
==>tatement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# --- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1395	1501	
==>tatement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# --- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1606	1706	
==>he signature; it does

not allocate containers.



the Body is just a structure with three node forms <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1541	1638	
==>he signature; it does
not allocate containers.

the Body is just a structure with three node forms <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2774	2905	
==>s ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2774	2905	
==>s ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2774	2905	
==>s ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50936	51100	
==>)
                  ->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3846	3935	
==>------------------------------------------
## Package

## See http://article.gmane.org/gma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3846	3935	
==>------------------------------------------
## Package

## See http://article.gmane.org/gma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3846	3935	
==>------------------------------------------
## Package

## See http://article.gmane.org/gma <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5788	6037	
==>print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    retur <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5788	6037	
==>print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3149	3396	
==>print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    retur <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3149	3396	
==>print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5850	5981	
==>one(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.ne <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5850	5981	
==>one(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.ne <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1870	1993	
==>.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1870	1993	
==>.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7382	7535	
==>rl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7382	7535	
==>rl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7382	7535	
==>rl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.na <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3901	3999	
==>.

=item B<Fail>

Number which failed, either from "not ok" or because they never ran.

=item B<Fai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3712	3828	
==>f $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3419	3533	
==>'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3419	3533	
==>'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3419	3533	
==>'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5641	5757	
==>ition) $then\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13686	13845	
==>or @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13686	13845	
==>or @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13686	13845	
==>or @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @list <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	521	665	
==>);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 NA <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6137	6287	
==>ork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_num} = $child;
            $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	69	171	
==>l6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	69	171	
==>l6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	69	171	
==>l6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2253	2356	
==>erm>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 's <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2264	2367	
==>erm>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 's <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39204	39287	
==>>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39204	39287	
==>>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell> <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6498	6628	
==>"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6498	6628	
==>"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9202	9308	
==>nd is undefined

=cut



### current implementation is always anchored at ^

### because it was specialized <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8901	9003	
==>nd is undefined
=cut

### current implementation is always anchored at ^
### because it was specialized <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22232	22329	
==>sed by a zero-width
assertion followed by C<?>, which doesn't warrant the warning.

Added "Unrecog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18059	18155	
==>xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18059	18155	
==>xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18059	18155	
==>xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$x <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6594	6793	
==>yuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        ) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6594	6793	
==>yuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        ) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4326	4438	
==>do, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4384	4496	
==>do, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14845	14962	
==>};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14845	14962	
==>};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16595	16697	
==>pans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The a <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16595	16697	
==>pans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The a <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2678	2910	
==>r);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::so <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3362	3497	
==>> 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3362	3497	
==>> 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sig <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3362	3497	
==>> 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sig <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17375	17481	
==>or:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17375	17481	
==>or:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()` <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5478	5573	
==>if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5478	5573	
==>if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5544	5670	
==>len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $l <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4044	4170	
==>len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $l <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	764	876	
==>'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	764	876	
==>'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17260	17352	
==>('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17260	17352	
==>('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17260	17352	
==>('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:method <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4355	4454	
==>pp->values;

		my $thunk_type = $thunk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$thu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3956	4053	
==>}";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3956	4053	
==>}";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3956	4053	
==>}";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	47	152	
==>als.hs, line starting `data VJunc'

has Perl::JuncType $.juncType;

has Set of Val $.juncDup;
has Set of V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	822	926	
==>p cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Adde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	822	926	
==>p cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Adde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	822	926	
==>p cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Adde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13511	13609	
==>> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13511	13609	
==>> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13511	13609	
==>> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6393	6487	
==>p /^-DPUGS_HAVE_READLINE$/, @_;
    push @pkgs, -package => 'plugins', -package => 'haskell-src <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1418	1561	
==>e with MD in it
$Site           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8749	8858	
==>ex($P);
    my $uint = ToUint32($P);
    return if $uint < $A.property_value{'length'};
    $A.property_value{ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2470	2574	
==>^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2470	2574	
==>^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5407	5555	
==>return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5407	5555	
==>return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18876	18999	
==>ion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15297	15420	
==>ion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1490	1648	
==>rrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1490	1648	
==>rrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1727	1852	
==>fess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1727	1852	
==>fess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1727	1852	
==>fess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ad <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	634	737	
==>::Installation->new( dir => $dir )
            or error( "Could not create JIB::Installation object from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11597	11713	
==>rder to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11597	11713	
==>rder to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11597	11713	
==>rder to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shift <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7986	8072	
==>_modifier_spec(L) --> p5_modifier_spec_pos(L).
p5_modifier_spec_pos([i|L])  --> "i", p5 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1022	1140	
==>t at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $di <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1896	2014	
==>t at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $di <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1022	1140	
==>t at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $di <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1896	2014	
==>t at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11131	11261	
==>]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11131	11261	
==>]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11131	11261	
==>]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5949	6058	
==>->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22295	22393	
==>e the same method names as you or each other, or having multiple search
directories in your path th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22295	22393	
==>e the same method names as you or each other, or having multiple search
directories in your path th <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10528	10622	
==>od decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10528	10622	
==>od decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6929	7080	
==>->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6929	7080	
==>->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6929	7080	
==>->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $ke <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8392	8493	
==>->{name} in " . Dumper(@_);
};

# binary operators must have the same symbol, and are also unified rec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6606	6714	
==>t "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6618	6726	
==>t "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1461	1564	
==>t => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1461	1564	
==>t => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( gramm <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4057	4239	
==>start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { ret <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4057	4239	
==>start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3278	3398	
==>args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3418	3538	
==>args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	166	287	
==>{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	166	287	
==>{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	166	287	
==>{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8808	8921	
==>elf = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=head <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	772	900	
==>t::Harness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5987	6082	
==>I SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5987	6082	
==>I SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5987	6082	
==>I SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6882	6989	
==>() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6882	6989	
==>() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6882	6989	
==>() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 i <==
4	/Users/nnunley/pugs/util/run-smoke.pl	118	212	
==>pec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML T <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18239	18359	
==>en
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1242	1353	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1242	1353	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1242	1353	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i-> <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11437	11531	
==>ing
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11495	11589	
==>ing
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15816	15906	
==>site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
sev <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15816	15906	
==>site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
sev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12820	12934	
==>ef}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12820	12934	
==>ef}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12820	12934	
==>ef}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10948	11043	
==>it, but it will not operate
differently.

The string representation is built by calling the visu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	631	756	
==>) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ms <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	630	755	
==>) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	631	756	
==>) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	630	755	
==>) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $ms <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3312	3412	
==>turn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8080	8180	
==>turn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bo <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3312	3412	
==>turn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8080	8180	
==>turn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1462	1650	
==>_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1462	1650	
==>_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4624	4741	
==>($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4624	4741	
==>($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type(" <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5608	5775	
==>ich will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6072	6239	
==>ich will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9217	9342	
==>$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9205	9330	
==>$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1724	1849	
==>_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1724	1849	
==>_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1724	1849	
==>_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k. <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21910	22015	
==>atement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <Statement>
}
rule SwitchStatement : <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9242	9347	
==>lementation is always anchored at ^

### because it was specialized for subrules

### - needs to be genera <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8938	9041	
==>lementation is always anchored at ^
### because it was specialized for subrules
### - needs to be genera <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7219	7322	
==>f we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile ) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	520	623	
==>f we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile ) <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9280	9385	
==>ry->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9475	9580	
==>ry->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9670	9775	
==>ry->new("int"),	
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11327	11431	
==>ry->new("int"),
		type::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1832	1937	
==>t_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1832	1937	
==>t_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1912	2017	
==>t_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29060	29241	
==>'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29339	29520	
==>'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28685	28780	
==>ic simple API that will serve their role.

For example, inside the text Template file "MyApp/L/E <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28685	28780	
==>ic simple API that will serve their role.

For example, inside the text Template file "MyApp/L/E <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14509	14638	
==>p:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4990	5114	
==>rl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4990	5114	
==>rl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4990	5114	
==>rl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4527	4628	
==>}

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4527	4628	
==>}

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4527	4628	
==>}

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3303	3441	
==>d hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3303	3441	
==>d hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3303	3441	
==>d hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8647	8756	
==>on method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '... $iFoo is the four <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	597	740	
==>rs ), # the MRO of all the superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	377	460	
==>odifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	377	460	
==>odifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	377	460	
==>odifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_ca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1976	2091	
==>1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14496	14610	
==>1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1526	1636	
==>nt :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @leng <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1526	1636	
==>nt :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @leng <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2220	2325	
==>_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2220	2325	
==>_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	314	416	
==>> -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	314	416	
==>> -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3812	3993	
==>.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3812	3993	
==>.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $pa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	263	395	
==>::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shif <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	261	393	
==>::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4025	4158	
==>, join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5346	5479	
==>, join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4025	4158	
==>, join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5334	5467	
==>, join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }";
            $cod <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	657	825	
==>ut -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:per <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	657	825	
==>ut -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:per <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7986	8092	
==>lize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Someb <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7986	8092	
==>lize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Someb <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4022	4121	
==>e ($O:) { $.base_object }
    method GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21128	21224	
==>($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21128	21224	
==>($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21128	21224	
==>($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6851	6952	
==>s - move to module documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unb <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6617	6715	
==>s - move to module documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unb <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1512	1601	
==>ount>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1512	1601	
==>ount>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	642	759	
==>match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6160	6277	
==>match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	642	759	
==>match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6172	6289	
==>match ), " ", Dumper( $match ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3787	3890	
==>method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._n <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3787	3890	
==>method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._n <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1885	1977	
==>ehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES) <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1885	1977	
==>ehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6550	6669	
==>ong name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6550	6669	
==>ong name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1744	1855	
==>Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1744	1855	
==>Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9844	9952	
==>_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9844	9952	
==>_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9844	9952	
==>_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14020	14116	
==>ments of C<%hash> in no apparent order, but the order
will be the same between successive calls t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	268	367	
==>s} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	268	367	
==>s} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	268	367	
==>s} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1155	1252	
==>perclass of any superclass

method set_superclasses($self: Set $super) {

    my $supers = $self.a <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	554	703	
==>pace}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8455	8557	
==>gil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8455	8557	
==>gil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8455	8557	
==>gil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefin <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18528	18621	
==>rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8343	8435	
==>already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8343	8435	
==>already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27623	27712	
==>om
F<Regexp::Parser::__object__>, the global object base class.  All
user-defined F<MyRx:: <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1257	1390	
==>? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Perl version '$perl_version' is bad. Must be 5 or 6.";
    my $path = F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	11	113	
==>perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	11	113	
==>perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->ca <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	11	113	
==>perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1328	1437	
==>&RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} = $@, return if $@;

  # reset things, define tree as [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1514	1620	
==>hain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1514	1620	
==>hain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1514	1620	
==>hain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28862	29024	
==>( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed func <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28862	29024	
==>( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed func <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28862	29024	
==>( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed func <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	74	175	
==>for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	439	562	
==>> 'circumfix', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6633	6752	
==>_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6633	6752	
==>_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6633	6752	
==>_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tie <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40631	40731	
==>SS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40631	40731	
==>SS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15329	15422	
==>plication written to it should behave identically no matter which
conforming "Engine" is in us <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15329	15422	
==>plication written to it should behave identically no matter which
conforming "Engine" is in us <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21468	21561	
==>in_offset
 #define float_max_offset substrs->data[1].max_offset
 #define check_substr     subs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11624	11736	
==>s[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11624	11736	
==>s[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11624	11736	
==>s[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0] <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15289	15395	
==>me:
    inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2223	2357	
==>ast if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2223	2357	
==>ast if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2223	2357	
==>ast if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2754	2856	
==>e_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9162	9272	
==>ew;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9162	9272	
==>ew;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4323	4413	
==>$Object->name, 'Object', '... $Object got the right method return value');
is($Object->supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6225	6315	
==>$Object->name, 'Object', '... $Object got the right method return value');
is($Object->supe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5361	5504	
==>unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5777	5920	
==>unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5373	5516	
==>unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5789	5932	
==>unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	891	994	
==>turns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the refer <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	891	994	
==>turns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the refer <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	891	994	
==>turns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the refer <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9851	9942	
==>t_iFoo_singleton_method',
 '... still got the right return value from $iFoo singleton method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6493	6625	
==>means that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6493	6625	
==>means that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1754	1849	
==>.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1754	1849	
==>.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spa <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	68	169	
==>ns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	24	123	
==>ns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5396	5496	
==>ber of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5396	5496	
==>ber of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5396	5496	
==>ber of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	343	442	
==>s documentation is not in POD format in order to avoid
# problems when there are fundamental bugs i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	46	142	
==>description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	46	142	
==>description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	46	142	
==>description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ] <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4205	4317	
==>ted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5102	5214	
==>ted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4205	4317	
==>ted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5102	5214	
==>ted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwards (*@filenames <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	799	908	
==>ar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	799	908	
==>ar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	799	908	
==>ar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10453	10546	
==>list
    ((($self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_metho <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1993	2183	
==>ext::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LIN <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1993	2183	
==>ext::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LIN <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10832	10929	
==>hat header field will remain unchanged.

The old value (or values) of the last of the header field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10832	10929	
==>hat header field will remain unchanged.

The old value (or values) of the last of the header field <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3401	3515	
==>};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak "no regex defined" unless &RxLEN;
  $self->pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11709	11794	
==>::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11709	11794	
==>::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11709	11794	
==>::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_fi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7364	7476	
==>/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3968	4080	
==>/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4817	4929	
==>/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5825	5933	
==>_shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5825	5933	
==>_shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.i <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	640	739	
==>low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	640	739	
==>low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1653	1751	
==>fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1653	1751	
==>fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22567	22656	
==>rface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Excep <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22567	22656	
==>rface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Excep <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	459	682	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	459	682	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	640	748	
==>x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to us <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	640	748	
==>x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14040	14194	
==>,
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14040	14194	
==>,
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14040	14194	
==>,
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @arg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27203	27345	
==>s'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list {
    .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	412	525	
==>eturn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	412	525	
==>eturn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	412	525	
==>eturn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

su <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	379	535	
==>rns Num { ... }

multi sub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37070	37180	
==>lems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37070	37180	
==>lems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVER <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37070	37180	
==>lems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVER <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3217	3448	
==>batim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_eleme <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3217	3448	
==>batim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_eleme <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3042	3155	
==>\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does not
    # reco <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13240	13342	
==>s) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $self->re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3534	3640	
==>::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3534	3640	
==>::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3534	3640	
==>::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25300	25472	
==>rl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25300	25472	
==>rl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25300	25472	
==>rl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7125	7227	
==>mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_error(mob, pos, "Missing clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1054	1185	
==>, @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1054	1185	
==>, @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1054	1185	
==>, @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No <==
4	/Users/nnunley/pugs/util/package-osx.pl	8264	8362	
==>r/local/man/man3/Perl6::Spec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10561	10673	
==>)->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10561	10673	
==>)->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @par <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10561	10673	
==>)->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @par <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8930	9027	
==>ttps://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely upon every <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1236	1361	
==>$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	917	1042	
==>c: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        print "Error in sta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1236	1361	
==>$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1236	1361	
==>$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5713	5826	
==>ias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5713	5826	
==>ias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6303	6416	
==>ias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	123	221	
==>erl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warnings;

use Carp 'confes <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10059	10151	
==>e not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10059	10151	
==>e not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14357	14446	
==>andSideExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpression :words {  # see 11 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1275	1386	
==>// Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1275	1386	
==>// Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })') <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1275	1386	
==>// Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })') <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5695	5794	
==>}

sub instantiate {
	my $self = shift;
	$self->{instance} = shift;
	bless $self, "type::variable::i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23880	23999	
==>atic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not sen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22653	22772	
==>atic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not sen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23880	23999	
==>atic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not sen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22653	22772	
==>atic replies must never be sent in response
  to a NOTICE message.  This rule applies to servers too - they must not sen <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6371	6633	
==>ncy, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6835	7097	
==>ncy, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    } <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15205	15301	
==>ned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15205	15301	
==>ned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13209	13322	
==>". ${$_[0]} },
      lvalue => sub { p6_as_str(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9715	9815	
==>zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9715	9815	
==>zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9715	9815	
==>zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub a <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4868	4995	
==>ml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4868	4995	
==>ml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(9 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5963	6056	
==>turn $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5651	5744	
==>turn $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9267	9390	
==>roups with the captures() method:

  my $all_captures = $parser->captures();

If you want to access a specific capture group <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	641	740	
==>avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	641	740	
==>avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	641	740	
==>avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8150	8257	
==>ator precedence.  

=head1 METHODS

=head2 new ()

Class method.  Returns a category object.

option <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15004	15171	
==>ifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15004	15171	
==>ifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15004	15171	
==>ifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lis <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4662	4792	
==>ould be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5126	5256	
==>ould be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	254	371	
==>', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	254	371	
==>', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6403	6513	
==>y Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Det <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6403	6513	
==>y Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Det <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9048	9143	
==>e; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documenta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9048	9143	
==>e; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documenta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7816	7915	
==>e subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7816	7915	
==>e subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7816	7915	
==>e subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlo <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	23	115	
==>tall/Compiler.pm - /usr/local/lib/perl5/site_perl/5.8.8/Module/Install/Compiler.pm"
package M <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6357	6475	
==>$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->new(
        yylex => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40659	40775	
==>ayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40659	40775	
==>ayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40659	40775	
==>ayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $th <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2731	2832	
==>,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Arra <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3275	3376	
==>,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Arra <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2430	2527	
==>dd_child($child);
    }
    $self;
}

## --------------------------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2430	2527	
==>dd_child($child);
    }
    $self;
}

## --------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2520	2615	
==>_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@var <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2520	2615	
==>_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@var <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2520	2615	
==>_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@var <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5416	5509	
==>,'>',  $index_file) or die "Failed to open $index_file: $!";
my $template = HTML::Template->ne <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3864	3971	
==>}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3864	3971	
==>}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1724	1830	
==>}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1724	1830	
==>}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	500	643	
==>_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17662	17779	
==>library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17662	17779	
==>library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2354	2490	
==>header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2354	2490	
==>header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19908	20001	
==>en parsed into blocks and the blocks have been
marked for various compilers, Module::Compile d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19908	20001	
==>en parsed into blocks and the blocks have been
marked for various compilers, Module::Compile d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4737	4842	
==>y $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4737	4842	
==>y $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isN <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4737	4842	
==>y $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isN <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28560	28654	
==>her assertion's ender is a C<tail> node, and a
character class's ender is an C<anyof_close> nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3962	4076	
==>lone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3962	4076	
==>lone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3962	4076	
==>lone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless define <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	901	1005	
==>ber).
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5345	5482	
==>sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6613	6750	
==>sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5345	5482	
==>sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6601	6738	
==>sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	225	331	
==>'grammar1::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5610	5708	
==>::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5610	5708	
==>::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7807	7905	
==>::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1300	1405	
==>erl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1358	1463	
==>erl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11176	11274	
==>STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'L <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11176	11274	
==>STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3805	3933	
==>e;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3805	3933	
==>e;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3805	3933	
==>e;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	806	926	
==>ub { my \@match; my \$s = shift; $_[0]; return \$s, \\\@match; }";
}

{
my $r = capture( 'cap', constant('a') );
pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5490	5585	
==>$frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5490	5585	
==>$frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5490	5585	
==>$frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { e <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	797	900	
==>lled

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For example:

    p5- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13343	13433	
==>elf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13343	13433	
==>elf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13343	13433	
==>elf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_l <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8312	8406	
==>tal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the speci <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8312	8406	
==>tal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the speci <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	145	260	
==>$key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &or <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	145	260	
==>$key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3884	3976	
==>s->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5786	5878	
==>s->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5504	5766	
==>...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5504	5766	
==>...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30997	31096	
==>s in
its set. For maximum flexibility in their use, the full name of a module
consists of the two pa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30997	31096	
==>s in
its set. For maximum flexibility in their use, the full name of a module
consists of the two pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3254	3469	
==>$_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3126	3334	
==>$_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                ) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1689	1784	
==>my nodes used only for reconstruction to source.
 # represented as processing instructions, or m <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1689	1784	
==>my nodes used only for reconstruction to source.
 # represented as processing instructions, or m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11307	11430	
==>e; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11307	11430	
==>e; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11307	11430	
==>e; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            m <==
4	/Users/nnunley/pugs/util/package-osx.pl	6813	6915	
==>Overview::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16607	16703	
==>needed?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16607	16703	
==>needed?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16607	16703	
==>needed?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::ar <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2550	2657	
==>copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1708	1805	
==>warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1708	1805	
==>warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1708	1805	
==>warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17040	17149	
==>ove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17040	17149	
==>ove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10850	10948	
==>ill remain unchanged.

The old value (or values) of the last of the header fields is returned.
If n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10850	10948	
==>ill remain unchanged.

The old value (or values) of the last of the header fields is returned.
If n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6430	6538	
==>hin "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1182	1281	
==>,
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1182	1281	
==>,
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1182	1281	
==>,
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Nu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8514	8632	
==>_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1335	1516	
==>if ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4574	4755	
==>if ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1335	1516	
==>if ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4574	4755	
==>if ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_i <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5365	5464	
==>rties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<er <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5365	5464	
==>rties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<er <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22790	22886	
==>l
choose to show less than all of the available details depending on the
intended viewer.

=head2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22790	22886	
==>l
choose to show less than all of the available details depending on the
intended viewer.

=head2 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1845	1958	
==>t : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	956	1067	
==>t : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9699	9795	
==>!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loade <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9699	9795	
==>!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loade <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	762	868	
==>s_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	762	868	
==>s_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3505	3645	
==>lly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3505	3645	
==>lly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3505	3645	
==>lly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	357	454	
==>ng
## implementation of Roles into the model. See below for more details.
## --------------------- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7041	7154	
==>)\n";

# read @syn and $syn_indexs
sub read_designdocs {
    my $ddoc_dir = shift;
    @syn = map { m|^.*/(\D\d\d) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10589	10711	
==>}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10589	10711	
==>}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10589	10711	
==>}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14136	14233	
==>ives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->writ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11316	11443	
==>in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11316	11443	
==>in_login_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10557	10672	
==>in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10557	10672	
==>in_login_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28159	28254	
==>s object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28159	28254	
==>s object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1376	1466	
==>expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1434	1524	
==>expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1966	2193	
==>d ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # = <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1966	2193	
==>d ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5926	6049	
==>}
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5926	6049	
==>}
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($conten <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25853	25955	
==>classes)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('subclasses') <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29403	29520	
==>ELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Four <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29403	29520	
==>ELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Four <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	227	332	
==>ELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Four <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15223	15328	
==>uldn't unlink '$file': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 while -f ++$tmpfile;
END <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13008	13116	
==>=~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13008	13116	
==>=~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1801	1907	
==>{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1801	1907	
==>{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = ( <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9447	9553	
==>n ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_img | grep lost+found` },
    u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6704	6825	
==>ub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6704	6825	
==>ub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6704	6825	
==>ub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @arg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1692	1785	
==>lass [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs inside <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10923	11032	
==>progs' must be an ARRAYREF " . _where()
	    unless ref $args{progs} eq "ARRAY";
        foreach my $prog (@{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14592	14696	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14592	14696	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14592	14696	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply( <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2047	2168	
==>eq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2927	3048	
==>eq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	268	373	
==>py);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	268	373	
==>py);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3215	3385	
==>ded
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$func}->[1];
        return $sub 
            ? $sub->( $obj, $obj->$acc )
            : $obj->$a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1969	2098	
==>ced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1891	2016	
==>ced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1049	1141	
==><?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_call_ter <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4766	4911	
==>t)\
\\n   List      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     grep    safe   (Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21056	21151	
==>') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21056	21151	
==>') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21056	21151	
==>') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	974	1087	
==>b makemaker_append {
    my $self = shift;
    my $name = shift;
    my $args = $self->makemaker_args;
    $args-> <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1914	2016	
==>"bug - no callback" if !defined($callback);
  my $r_address;
  my $regexp_compile_hook = sub {
    $r_a <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6109	6208	
==>lf->{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5383	5490	
==>e is the implementation of the identity function, or

    sub { my $x = shift; $x }

applied to the value 10 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2081	2184	
==>rity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2081	2184	
==>rity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2081	2184	
==>rity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bod <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10950	11080	
==>de: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_char <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10950	11080	
==>de: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_char <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23696	23819	
==>EC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream ta <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28911	29007	
==>EC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6658	6769	
==>ld really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6658	6769	
==>ld really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6658	6769	
==>ld really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4888	4981	
==>ame} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_typ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2233	2372	
==>y));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2233	2372	
==>y));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	423	522	
==>plit(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\" <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	423	522	
==>plit(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1370	1488	
==>));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1370	1488	
==>));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1370	1488	
==>));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32940	33037	
==>ing stack before the node
is returned.  Here is the walk() method for all the quantifier and
'minm <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14577	14681	
==>ing localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian dates are inaccurat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1748	1851	
==>ew() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1748	1851	
==>ew() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1748	1851	
==>ew() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1656	1803	
==>ed.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recomp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1863	2010	
==>ed.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recomp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2136	2239	
==>\\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Run <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2124	2227	
==>\\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Run <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	342	450	
==>." have been expressed as
#     complemented character sets.  <-[...]>  They are all tagged with
#     #Sourc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2579	2685	
==>ing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2579	2685	
==>ing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2579	2685	
==>ing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6698	6904	
==>e
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6698	6904	
==>e
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5410	5521	
==>a);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $real <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5410	5521	
==>a);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $real <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	53	162	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	53	162	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	53	162	
==>ixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(% <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3870	3973	
==>e_object(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1020	1123	
==>(
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1020	1123	
==>(
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1020	1123	
==>(
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2807	2909	
==>matchObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesI <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	723	843	
==>pecific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	688	799	
==>pecific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say " <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22660	22757	
==>ver

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27212	27309	
==>ver

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation at <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1813	1927	
==>config_template or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2419	2519	
==>lasses,
Roles, etc - or when you do even scarier things to the Perl 6 class
system.

Note that the fi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	909	1002	
==>to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_ro <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	909	1002	
==>to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_ro <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2323	2425	
==>ool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2323	2425	
==>ool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17493	17585	
==>ically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no lo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17493	17585	
==>ically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no lo <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20984	21084	
==>,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1351	1445	
==>4800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1351	1445	
==>4800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1351	1445	
==>4800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  functi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1776	1886	
==>hether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1776	1886	
==>hether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1776	1886	
==>hether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	16	130	
==>r;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	16	130	
==>r;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	16	130	
==>r;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6983	7087	
==>nnels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\")." <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6983	7087	
==>nnels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\")." <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7332	7434	
==>nnels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\")." <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7332	7434	
==>nnels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\")." <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10792	10932	
==>1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the ope <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15895	15994	
==>is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15895	15994	
==>is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15895	15994	
==>is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8796	8899	
==>dfies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relati <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34577	34673	
==>in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invoca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39127	39223	
==>in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invoca <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5495	5598	
==>s Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File: <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5495	5598	
==>s Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18587	18680	
==>sse are I<not>
necessarily the names you specified in the constructor. For example,
this modul <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18587	18680	
==>sse are I<not>
necessarily the names you specified in the constructor. For example,
this modul <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	370	493	
==>ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	861	984	
==>ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	370	493	
==>ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	861	984	
==>ARG> is an Array ref]
           ~ q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11884	11996	
==>f ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12307	12419	
==>f ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4527	4639	
==>f ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4950	5062	
==>f ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4070	4169	
==>nterface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "<preco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2381	2471	
==>elf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2381	2471	
==>elf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2381	2471	
==>elf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1247	1396	
==>Toady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shift;

    # die "alternation list is empty" unless <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1596	1740	
==>Toady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1203	1347	
==>Toady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1596	1740	
==>Toady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shift;
    # die "alternation list is empty" unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14684	14781	
==>e Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14684	14781	
==>e Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14684	14781	
==>e Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7184	7274	
==>($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1801	1960	
==>tart => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2213	2372	
==>tart => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1801	1960	
==>tart => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2213	2372	
==>tart => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ) <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	169	282	
==>(Module::Install::Base);

$VERSION = '0.02';

use strict;

# determine if the user needs nmake, and download it if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6834	6943	
==>oro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6834	6943	
==>oro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6834	6943	
==>oro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10195	10354	
==>int header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10195	10354	
==>int header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11171	11268	
==>that joining multiple
values in this way will not change the semantic of a header field, but
in pr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11171	11268	
==>that joining multiple
values in this way will not change the semantic of a header field, but
in pr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1950	2102	
==>etafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_depend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	182	285	
==>>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	182	285	
==>>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	182	285	
==>>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12997	13210	
==>ey;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12997	13210	
==>ey;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12997	13210	
==>ey;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10407	10510	
==>56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12704	12835	
==>LOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12704	12835	
==>LOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12704	12835	
==>LOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $meth <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24236	24328	
==>trol('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exc <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26991	27093	
==>e example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARG <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26991	27093	
==>e example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARG <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3093	3191	
==>rser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &cont <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3093	3191	
==>rser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12885	13040	
==>n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	410	539	
==>e( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1739	1835	
==>0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1739	1835	
==>0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1739	1835	
==>0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14305	14412	
==>>[-1]->family eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38856	38959	
==>turn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38856	38959	
==>turn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38856	38959	
==>turn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clos <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5227	5344	
==>ndex "[{(<", $S0
    if $I2 < 0 goto term_bx1
    $S2 = substr "]})>", $I0
    inc pos
  term_bx1:
    $S0 = substr ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1526	1632	
==>p;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1526	1632	
==>p;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1526	1632	
==>p;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3386	3701	
==>expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3386	3701	
==>expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	187	285	
==>nced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	187	285	
==>nced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6624	6730	
==>>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6624	6730	
==>>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6624	6730	
==>>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.un <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7536	7695	
==>y ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf | <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7536	7695	
==>y ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf | <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19576	19671	
==>riables.  In SQL terms, you create or alter tables by adding or
updating their "information sche <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19576	19671	
==>riables.  In SQL terms, you create or alter tables by adding or
updating their "information sche <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	970	1102	
==>asename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	839	947	
==>asename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1868	1975	
==>t, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_out <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1868	1975	
==>t, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_out <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1338	1455	
==>!defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @token <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	81	189	
==>e &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	81	189	
==>e &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	81	189	
==>e &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13158	13255	
==>le as a generic data interchange format between
Rosetta::Model and other Perl code such as persist <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18253	18350	
==>le as a generic data interchange
format between Rosetta::Model and other Perl code such as persist <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13158	13255	
==>le as a generic data interchange format between
Rosetta::Model and other Perl code such as persist <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18253	18350	
==>le as a generic data interchange
format between Rosetta::Model and other Perl code such as persist <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4863	4985	
==>$tot, $failedtests);

    my $ok = _all_ok($tot);

    assert(($ok xor keys %$failedtests), 
           q{ok status jives w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3971	4068	
==>n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3971	4068	
==>n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3971	4068	
==>n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	232	345	
==>ould be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	232	345	
==>ould be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	232	345	
==>ould be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	171	275	
==>r base class - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPTION

Emitters <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15670	15770	
==>le";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15670	15770	
==>le";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15670	15770	
==>le";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, % <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4635	4839	
==>( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless d <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4635	4839	
==>( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20532	20632	
==>nter,
possibly plus an operand.

We don't care.


=head2 Internals:

  regnode *regstclass;

Points i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21383	21489	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21383	21489	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21383	21489	
==>STROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2620	2741	
==>ion and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2620	2741	
==>ion and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2620	2741	
==>ion and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14822	14914	
==>screen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boo <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12003	12124	
==>ch
  information gets inserted in $1 etal.  These will be limited to
  strings, rather than Match objects.

  A set of hoo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25706	25835	
==>assertion',
      type => 'logical',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1413	1519	
==>L2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1413	1519	
==>L2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1413	1519	
==>L2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    m <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	111	216	
==>within( $count ) {
	my @numbers := $prim...$prim+$count :by(2);
	let $prim;
	
	for @numbers -> $prim {
		r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4067	4154	
==>A
## ----------------------------------------------------------------------------
## NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4067	4154	
==>A
## ----------------------------------------------------------------------------
## NOT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4067	4154	
==>A
## ----------------------------------------------------------------------------
## NOT <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10477	10572	
==>while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` meth <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17419	17514	
==>while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` meth <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10477	10572	
==>while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17419	17514	
==>while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14966	15093	
==>ata) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group',
      type => 'grou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9073	9177	
==>.}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9073	9177	
==>.}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9073	9177	
==>.}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5420	5535	
==>eturns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5420	5535	
==>eturns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3316	3410	
==>ters of the request are accessible through the HTTP::Query object that
is part of every HTTP::R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3316	3410	
==>ters of the request are accessible through the HTTP::Query object that
is part of every HTTP::R <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25397	25607	
==>rm1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26055	26265	
==>rm1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25676	25886	
==>rm1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26334	26544	
==>rm1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1515	1663	
==>( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.appen <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1274	1429	
==>-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.new
                if !stack.empty?
                    stack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7194	7299	
==>backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7194	7299	
==>backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7194	7299	
==>backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ma <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3014	3288	
==>>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3014	3288	
==>>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1561	1668	
==>capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1561	1668	
==>capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6745	6842	
==>ently a way of extracting a
complete grammar.  This may change in future versions.

This module is <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5808	5903	
==>e I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  I <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5808	5903	
==>e I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7332	7427	
==>e I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  I <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	385	487	
==>_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return map <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	385	487	
==>_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return map <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	951	1092	
==>\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	951	1092	
==>\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9067	9179	
==>ional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9063	9175	
==>ional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3994	4112	
==>name>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3994	4112	
==>name>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event< <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2256	2347	
==>ILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2256	2347	
==>ILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7852	8023	
==>> ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4689	4824	
==>e {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4689	4824	
==>e {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4689	4824	
==>e {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2397	2502	
==>that the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2397	2502	
==>that the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_re <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16222	16317	
==>c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_da <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20648	20743	
==>c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_da <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	186	312	
==>emp              qw[tempdir];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::A <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	164	261	
==>e * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	164	261	
==>e * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	164	261	
==>e * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18683	18819	
==>get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18683	18819	
==>get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18683	18819	
==>get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4050	4157	
==>default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3907	4012	
==>default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :l <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3728	3821	
==>tten files, and anything we
write shouldn't need to have documentation/comments. If you need s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3728	3821	
==>tten files, and anything we
write shouldn't need to have documentation/comments. If you need s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13502	13595	
==>_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated i <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13502	13595	
==>_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3755	3853	
==>n "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3755	3853	
==>n "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3755	3853	
==>n "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @super <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4427	4554	
==>nce => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4427	4554	
==>nce => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2053	2162	
==>m) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2053	2162	
==>m) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27152	27264	
==>andlers
    $self->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4526	4625	
==>~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4526	4625	
==>~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4526	4625	
==>~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10366	10544	
==>d case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13843	14021	
==>d case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13124	13302	
==>d case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18595	18689	
==>dundant (that is, I<every>
character in that embedded class is already found in the class), set <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24837	24954	
==>h @result, "\n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8282	8391	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8282	8391	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8282	8391	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL: <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5430	5585	
==>} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in our path.   Let's hunt a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15686	15818	
==>ft)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15686	15818	
==>ft)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15686	15818	
==>ft)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4187	4284	
==>];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5036	5133	
==>];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1424	1513	
==>1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1264	1353	
==>1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32152	32259	
==>ual tree (like a CLOSE).

=item on

The flags specifically turned on for this object (for flag assertions
an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1770	1874	
==>$arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1770	1874	
==>$arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1770	1874	
==>$arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8170	8266	
==>b *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<% <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7300	7396	
==>b *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<% <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8170	8266	
==>b *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<% <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7300	7396	
==>b *infix:<*#> (@a, @b) returns Array { set(@a).intersection(set @b).members }
multi sub *infix:<% <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2543	2706	
==>h $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/s;
            return $grammar->no_match;
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1818	1924	
==>r) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1818	1924	
==>r) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1818	1924	
==>r) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3557	3669	
==>return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersect <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3557	3669	
==>return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersect <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15964	16057	
==>ness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nun <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16022	16115	
==>ness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nun <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1486	1593	
==>lti-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Perl6> is the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	764	878	
==>s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	764	878	
==>s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	764	878	
==>s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pa <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	701	814	
==>IN;
    open IN, "< $file" or die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'" <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5094	5236	
==>= self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5094	5236	
==>= self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	428	529	
==>Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ST <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	428	529	
==>Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1903	2027	
==>an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1903	2027	
==>an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1903	2027	
==>an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23834	23974	
==>g = $_[0]{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__fla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13338	13470	
==>g = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__fla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13338	13470	
==>g = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__fla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13338	13470	
==>g = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__fla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9074	9192	
==>sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "H <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19906	20020	
==>odeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12930	13042	
==>sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "H <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12930	13042	
==>sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "H <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11635	11731	
==>eturns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8782	8878	
==>eturns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11635	11731	
==>eturns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8782	8878	
==>eturns the number of elements in the set. C<count> is an alias for C<size>.

=head2 C<$set.invert <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10037	10280	
==>r
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	134	240	
==>r) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $ri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	134	240	
==>r) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $ri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	134	240	
==>r) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $ri <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5642	5750	
==>rns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4772	4880	
==>rns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5642	5750	
==>rns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4772	4880	
==>rns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12934	13102	
==>t_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12934	13102	
==>t_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17118	17233	
==>[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13539	13654	
==>[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7405	7593	
==>lf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            ret <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7405	7593	
==>lf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            ret <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3279	3384	
==>should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za.. <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3279	3384	
==>should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za.. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3550	3696	
==>n Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3550	3696	
==>n Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5684	5803	
==>- &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scala <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5684	5803	
==>- &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scala <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16982	17092	
==>hift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1022	1120	
==>)) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1022	1120	
==>)) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1022	1120	
==>)) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Cod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1765	1870	
==>does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1765	1870	
==>does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4230	4341	
==>rn ($cls eq 'str') if !((~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3096	3186	
==>ame terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packag <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3096	3186	
==>ame terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packag <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3443	3533	
==>ame terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packag <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5641	5742	
==>ning them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entir <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5641	5742	
==>ning them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entir <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7165	7266	
==>ning them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entir <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1813	1907	
==>pl --test_dirs=t/builtins,t/macros --output_dir=t_test --no_designdocs

   See also:
     util/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	527	636	
==>rsion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statemen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	527	636	
==>rsion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statemen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	527	636	
==>rsion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statemen <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	49	146	
==>it defines no properties.

# return floating point seconds relative to 1st Jan 2000, UTC
method ep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9217	9332	
==>$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9217	9332	
==>$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37886	37977	
==>s already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return tha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37886	37977	
==>s already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return tha <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1433	1578	
==>ents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $si <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1069	1214	
==>ents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $si <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1433	1578	
==>ents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $si <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1069	1214	
==>ents<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $si <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1763	1873	
==>, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1763	1873	
==>, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1763	1873	
==>, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|P <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35181	35273	
==>rns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation::Examp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7834	7932	
==>del

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7834	7932	
==>del

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7834	7932	
==>del

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	21041	21136	
==>getlogin /[get|set][pw|gr].*/ kill setpgrp setpriority
# system times


# fork lock wait waitpid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2328	2450	
==>abel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2328	2450	
==>abel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2328	2450	
==>abel};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $inst <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9840	9951	
==>ts{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6182	6317	
==>ault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6182	6317	
==>ault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6182	6317	
==>ault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12828	12934	
==>sion>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3286	3411	
==>D             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB BA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3465	3580	
==>(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3465	3580	
==>(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3465	3580	
==>(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7019	7366	
==>ix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7855	7997	
==>arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7855	7997	
==>arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7855	7997	
==>arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15825	15928	
==>est's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP pro <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15883	15986	
==>est's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP pro <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	307	406	
==>d>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use P <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	307	406	
==>d>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	3	97	
==>Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	3	97	
==>Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporari <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	3	97	
==>Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2010	2116	
==>od(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2010	2116	
==>od(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2010	2116	
==>od(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19376	19548	
==>s')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19376	19548	
==>s')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19376	19548	
==>s')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6680	6778	
==>ets a document identified by a URL and stores it in the file. The
return value is the HTTP response <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6680	6778	
==>ets a document identified by a URL and stores it in the file. The
return value is the HTTP response <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1388	1480	
==>/State/Temp markers for container

allocation, as well as the compile-time-bound values for t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1328	1419	
==>/State/Temp markers for container
allocation, as well as the compile-time-bound values for t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1660	1770	
==>rn $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1660	1770	
==>rn $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38616	38712	
==>ace' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given vari <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38616	38712	
==>ace' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3729	3835	
==>run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3729	3835	
==>run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3729	3835	
==>run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	232	335	
==>ct 'vars';
use vars qw($VERSION);

sub Meta { shift }

my @scalar_keys = qw<
    name module_name versio <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	137	246	
==>s $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	137	246	
==>s $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2926	3023	
==>ce, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2926	3023	
==>ce, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2475	2711	
==>rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2783	3006	
==>rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2783	3006	
==>rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher- <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10590	10773	
==>pped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print(" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2692	2797	
==>>{name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefix' un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	718	821	
==>mells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	718	821	
==>mells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them impleme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	718	821	
==>mells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them impleme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	220	359	
==>after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19204	19309	
==>ctually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19204	19309	
==>ctually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19204	19309	
==>ctually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	976	1082	
==>ng thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	976	1082	
==>ng thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	976	1082	
==>ng thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20682	20783	
==>='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule Expressio <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2742	2853	
==>2,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th line\n7th line\n8th line\n9th line <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9828	9931	
==>o indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9828	9931	
==>o indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9828	9931	
==>o indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2129	2301	
==>...}

proto method attr_name_exists of Bool (Relation::AttrName $attr_name) {...}

###########################################################################

method size o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2487	2583	
==>[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificatio <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2487	2583	
==>[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificatio <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2487	2583	
==>[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificatio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2700	2832	
==>_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7794	7926	
==>_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2700	2832	
==>_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7794	7926	
==>_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_elem } )
            if !$val_elem.does(Hash);
        for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4250	4376	
==>ser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4102	4225	
==>ser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Pe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3277	3375	
==>d enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initializat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3277	3375	
==>d enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initializat <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3410	3585	
==>ts')->[$idx];
            },

            'array_existsElem' => sub { # $int -> $bool;
                my $self = shift;
                my $idx = shift;
                exists <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6441	6565	
==>asses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6441	6565	
==>asses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaqu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6441	6565	
==>asses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaqu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5049	5224	
==>/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            di <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5049	5224	
==>/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            di <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5049	5224	
==>/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            di <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	2	107	
==>e strict;

### fixes the config for us
BEGIN { require 'conf.pl' }

use JIB::Config;
use JIB::Source;

use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11542	11670	
==>lock = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11821	11949	
==>lock = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2598	2703	
==>y) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2598	2703	
==>y) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	216	335	
==>rce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $para <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	210	329	
==>rce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	216	335	
==>rce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	210	329	
==>rce, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $para <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	57	159	
==>CE';
# please help fill in this file
# a method of autogenrating bindings from vtable.h is NEEDED
# ple <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4542	4641	
==>nd C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4542	4641	
==>nd C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6739	6838	
==>nd C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7750	7865	
==>ant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7750	7865	
==>ant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	833	938	
==>/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	833	938	
==>/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7996	8140	
==>}
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13590	13734	
==>}
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7996	8140	
==>}
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13584	13728	
==>}
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9283	9440	
==>r      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $pa <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1403	1548	
==>r      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $pa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1403	1548	
==>r      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27901	27996	
==>of this Relation::Example as a Hash ref of 2
elements, which correspond to the 2 named parameter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2085	2187	
==>lf->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2085	2187	
==>lf->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2085	2187	
==>lf->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22478	22577	
==>apturing group constructs.

=back

=head2 0.01 -- June 29, 2004

=over 4

=item First Release

Docum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4180	4301	
==>e { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4180	4301	
==>e { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4180	4301	
==>e { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4156	4257	
==>$S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\n", '\N') if $cc;
    return $S->objec <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6429	6526	
==>modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5502	5599	
==>modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6429	6526	
==>modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5502	5599	
==>modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4720	4827	
==>ction
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3847	3954	
==>ction
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4720	4827	
==>ction
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3847	3954	
==>ction
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6516	6602	
==>->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6516	6602	
==>->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6516	6602	
==>->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_meth <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	570	693	
==>soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>() <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	570	693	
==>soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>() <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15736	15828	
==>able TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15794	15886	
==>able TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6979	7077	
==>uthority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:autho <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25508	25606	
==>>E<gt> 8>
and C<$?> are printed in a message similar to the above.

=item C<Failed 1 test, %.2f%% o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6979	7077	
==>uthority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:autho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6979	7077	
==>uthority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:autho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	657	755	
==>ITE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blech <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	657	755	
==>ITE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blech <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9115	9201	
==>tem1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_cha <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9219	9302	
==>tem1|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_cha <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	788	914	
==>new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	788	914	
==>new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7435	7558	
==>ned $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7435	7558	
==>ned $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16911	17045	
==>t} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13332	13466	
==>t} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4161	4245	
==>n ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value
( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4161	4245	
==>n ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value
( <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5345	5548	
==>),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1444	1543	
==>ODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_desc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1444	1543	
==>ODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_desc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1444	1543	
==>ODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_desc <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	950	1098	
==>n.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4189	4337	
==>n.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	950	1098	
==>n.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4189	4337	
==>n.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3022	3161	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \& <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11718	11857	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3215	3354	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11997	12136	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36654	36777	
==>op;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36654	36777	
==>op;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36654	36777	
==>op;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13978	14075	
==>data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $o->data->[1 <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1377	1510	
==>alar>).add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1468	1569	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1468	1569	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1468	1569	
==>DALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6046	6145	
==>_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6046	6145	
==>_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6046	6145	
==>_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11729	11864	
==>elf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11729	11864	
==>elf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11729	11864	
==>elf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	98	191	
==>Scoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7594	7693	
==>edbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7594	7693	
==>edbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7594	7693	
==>edbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprint <==
4	/Users/nnunley/pugs/util/fixauthors.pl	1	100	
==>!/usr/bin/perl
use warnings;
use strict;
#use CPAN;
use LWP::Simple;
use HTML::TreeBuilder;

binmode <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2858	2958	
==>d_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2858	2958	
==>d_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2858	2958	
==>d_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3342	3439	
==>values

=item *

Replacing all values which the runtime provides builtins for with the replacement <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6258	6353	
==>Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6258	6353	
==>Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6258	6353	
==>Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1010	1136	
==>} else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1010	1136	
==>} else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1010	1136	
==>} else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs= <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2088	2193	
==>emented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or preferably let
L<Blondie::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	511	615	
==>d assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	511	615	
==>d assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	511	615	
==>d assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12167	12267	
==>se the root()
method to get it.  From there, you're on your own.  You'll probably
want to make a recu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18245	18342	
==>>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18245	18342	
==>>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested re <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3888	3980	
==>erday" return the appropriate date.

Any other string will be passed to `Date::Something::Wav <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3888	3980	
==>erday" return the appropriate date.

Any other string will be passed to `Date::Something::Wav <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	817	926	
==>_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (bles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1595	1699	
==>[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1595	1699	
==>[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1595	1699	
==>[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4060	4182	
==>Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinit <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4060	4182	
==>Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinit <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14625	14727	
==>, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14625	14727	
==>, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15463	15564	
==>$xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15463	15564	
==>$xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15463	15564	
==>$xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22556	22657	
==>2*len+1, U32);


 } regexp;

=head2 Additional notes

Perl_re_dup() in sv.c is a useful source of info <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3477	3574	
==>'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3477	3574	
==>'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3477	3574	
==>'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7302	7452	
==>elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7302	7452	
==>elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7302	7452	
==>elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->pu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10271	10370	
==>ts of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34770	34891	
==>nch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	987	1085	
==>its a number of new attributes from various sources
# and we need to now create these attributes in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	987	1085	
==>its a number of new attributes from various sources
# and we need to now create these attributes in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	987	1085	
==>its a number of new attributes from various sources
# and we need to now create these attributes in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14867	14959	
==>teractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14867	14959	
==>teractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14867	14959	
==>teractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3014	3104	
==>)->code();

    $<variable>:=(<term1>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	903	1004	
==>turn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	903	1004	
==>turn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3802	3889	
==>ious =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.clo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3802	3889	
==>ious =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.clo <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3080	3203	
==>e "open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the inlined modules.
    # we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7110	7208	
==>:Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7110	7208	
==>:Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7110	7208	
==>:Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attrib <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23381	23523	
==>aram => comb(
						fun => ide("f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					),
				),
				par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	565	673	
==>List;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	565	673	
==>List;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	565	673	
==>List;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([% <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2107	2204	
==>led C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module n <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2107	2204	
==>led C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module n <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	369	463	
==>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be store <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	369	463	
==>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be store <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13428	13572	
==>at 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13428	13572	
==>at 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13428	13572	
==>at 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        el <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10743	10849	
==>code = $code_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class unde <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8426	8536	
==>y limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8426	8536	
==>y limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	348	453	
==>es.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Se <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	348	453	
==>es.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5309	5411	
==>node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2851	2953	
==>node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3700	3802	
==>node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4257	4353	
==>tch object returns positional
captures as match objects.

=head2 %{}

When used as a hash referen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4257	4353	
==>tch object returns positional
captures as match objects.

=head2 %{}

When used as a hash referen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6075	6199	
==>s %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6075	6199	
==>s %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6075	6199	
==>s %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11843	11979	
==>hReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status ret <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2265	2387	
==>hReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status ret <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2265	2387	
==>hReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3116	3218	
==>= shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$self}, (ref $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12112	12221	
==>lasses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pack <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12112	12221	
==>lasses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pack <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12112	12221	
==>lasses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6262	6362	
==>$Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3128	3254	
==>$event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3128	3254	
==>$event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	80	185	
==>ing.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a se <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	80	185	
==>ing.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a se <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13382	13506	
==>ams to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21722	21823	
==>ly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26274	26375	
==>ly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24934	25035	
==>ly by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relati <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1704	1801	
==>=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFG <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1704	1801	
==>=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFG <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11246	11340	
==><includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=h <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11246	11340	
==><includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1413	1513	
==>ead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) a <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1413	1513	
==>ead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) a <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1604	1697	
==>MAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.ex <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1444	1537	
==>MAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24973	25087	
==>he position in the regex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1193	1293	
==>($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	932	1027	
==>($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1137	1232	
==>($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	575	673	
==>, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	575	673	
==>, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	575	673	
==>, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() me <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5708	5891	
==>else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event .. <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5708	5891	
==>else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event .. <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1287	1394	
==>not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI- <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3234	3339	
==>s rw : --> Scalar) {
#    @array.splice(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4262	4387	
==>y (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4262	4387	
==>y (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4262	4387	
==>y (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7419	7593	
==>f $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7419	7593	
==>f $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7419	7593	
==>f $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5316	5417	
==>s(Role), which is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3220	3332	
==>ive++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3220	3332	
==>ive++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3220	3332	
==>ive++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at comp <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21004	21097	
==>[CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3145	3300	
==>->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3145	3300	
==>->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ch <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3145	3300	
==>->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_ch <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1305	1418	
==>ou can edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3714	3843	
==>aram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3714	3843	
==>aram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3714	3843	
==>aram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1377	1483	
==>he IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1377	1483	
==>he IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autop <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8014	8110	
==>xt event fired will be
any text which follows the item.

=item I<end_element ('item')>

This even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8014	8110	
==>xt event fired will be
any text which follows the item.

=item I<end_element ('item')>

This even <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1196	1291	
==>ide extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1196	1291	
==>ide extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack th <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	73	163	
==>ort { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	73	163	
==>ort { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3921	4084	
==>Y})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3921	4084	
==>Y})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3921	4084	
==>Y})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2915	3011	
==>Subscription::Named $subscription) {
            %.subscriptions<$subscrption.name>.remove($subsc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14289	14424	
==>if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14289	14424	
==>if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14289	14424	
==>if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	13	113	
==>se warnings;
package Inline::Parrot;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
use Inline::P <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4594	4710	
==>sif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lift <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4594	4710	
==>sif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lift <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13992	14083	
==>utine replaces unsafe characters in $string with their entity
representation. A second argum <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13992	14083	
==>utine replaces unsafe characters in $string with their entity
representation. A second argum <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5069	5162	
==>a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5069	5162	
==>a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6593	6686	
==>a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4817	4973	
==>{
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4829	4985	
==>{
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $n <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11744	11832	
==>lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi. <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11744	11832	
==>lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	441	625	
==>{
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	441	625	
==>{
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	441	625	
==>{
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6567	6663	
==>file($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub _index <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11858	11956	
==>urns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

This means you mus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	871	961	
==>XICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	871	961	
==>XICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	871	961	
==>XICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1089	1209	
==>opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1089	1209	
==>opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1089	1209	
==>opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2053	2152	
==>on of t/rules/rules.t.  This could either be done
#using Regexp::Parser Objects, or wait for the hyp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1779	1908	
==>SH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2522	2651	
==>SH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1779	1908	
==>SH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2510	2639	
==>SH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 'refs';
    my $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14104	14242	
==>$@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14104	14242	
==>$@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14104	14242	
==>$@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    ret <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1289	1425	
==>(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	808	907	
==>(lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	808	907	
==>(lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	808	907	
==>(lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	106	204	
==>ited piln version with a more
# general p6 one after bootstrap).  Or spec code which doesnt actuall <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	574	762	
==>lf = shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shift;
                $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1126	1226	
==>-----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent threa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1126	1226	
==>-----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent threa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1126	1226	
==>-----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent threa <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4598	4700	
==>r the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year() <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4598	4700	
==>r the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year() <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5074	5172	
==>last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The sam <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5074	5172	
==>last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The sam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2339	2485	
==>->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2339	2485	
==>->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2339	2485	
==>->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	201	299	
==>t file (re_tests), but it's
real p5 re coverage is much less.  The test passing was simply to
permi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	358	446	
==>qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	358	446	
==>qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	358	446	
==>qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1093	1213	
==>ue_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_cha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1093	1213	
==>ue_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_cha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1093	1213	
==>ue_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_cha <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27498	27592	
==>c 5");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7804	7910	
==>, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
# Prim.hs has a different return t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	189	289	
==>onfess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1737	1836	
==>$got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1795	1894	
==>$got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6074	6183	
==>ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6267	6376	
==>ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	51	149	
==>dium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite strin <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	51	149	
==>dium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4958	5077	
==>finite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4958	5077	
==>finite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4958	5077	
==>finite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1216	1322	
==>based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runti <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1565	1669	
==>based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runti <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1172	1276	
==>based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1565	1669	
==>based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3906	4005	
==>ods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3906	4005	
==>ods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3906	4005	
==>ods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9950	10060	
==>g) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pk <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9950	10060	
==>g) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pk <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9950	10060	
==>g) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pk <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	3	94	
==>package Pugs::Grammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28588	28684	
==>set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33140	33236	
==>set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32268	32364	
==>set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5646	5753	
==>_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3238	3341	
==>ined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3238	3341	
==>ined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3238	3341	
==>ined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time. <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46873	47029	
==>te('$return' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  ->and <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	634	735	
==>b {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	634	735	
==>b {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	634	735	
==>b {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40578	40692	
==>>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40578	40692	
==>>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40578	40692	
==>>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21383	21495	
==>e(pad)
    self[0] = exp
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray
    pa <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	701	823	
==>xpression ; *@values) returns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3043	3152	
==>1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3043	3152	
==>1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3043	3152	
==>1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14603	14733	
==>ible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14603	14733	
==>ible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14603	14733	
==>ible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    cl <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4555	4642	
==>&Array::pop<Array> := &Array::splice<Array>.assuming(offset(-1) :length(1));

 multi Arr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4447	4551	
==>substr $target, $from, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3353	3446	
==>s a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4047	4140	
==>s a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5255	5348	
==>s a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8263	8410	
==>ef( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8263	8410	
==>ef( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8263	8410	
==>ef( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19774	19887	
==>[1]
    $P1 = $P1.p6analyze(pad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Quant <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4225	4350	
==>arams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4225	4350	
==>arams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4225	4350	
==>arams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    whil <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8646	8759	
==>->{$_});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  }
  !$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2273	2402	
==>dence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2963	3080	
==>);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2963	3080	
==>);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @I <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2963	3080	
==>);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @I <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6664	6798	
==>0], '$<indirect_object>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1848	1955	
==>PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1848	1955	
==>PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1848	1955	
==>PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_ch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1030	1150	
==>_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1030	1150	
==>_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2227	2332	
==>exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2378	2482	
==>exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3], <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38422	38515	
==>liases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42971	43064	
==>liases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFI <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42621	42714	
==>liases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2871	2985	
==>d test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2871	2985	
==>d test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2871	2985	
==>d test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1641	1737	
==>nd_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($end_in <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5871	6075	
==>(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5871	6075	
==>(" $line\n");                                            
                }
            }
        },
        string  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3232	3434	
==>(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod: <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3232	3434	
==>(" $line\n");                                            
                }
            }
        },
        string => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38271	38377	
==>ype = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}->object($type => 1, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12148	12233	
==>:SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asce <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12148	12233	
==>:SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asce <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12148	12233	
==>:SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asce <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2977	3118	
==>0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3500	3638	
==>0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2880	3018	
==>0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3500	3638	
==>0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10014	10211	
==>'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->remo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31077	31218	
==>_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3812	3899	
==>ree::insert_child ::= &Tree::insert_children;

## -------------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3812	3899	
==>ree::insert_child ::= &Tree::insert_children;

## -------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12131	12270	
==>more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12131	12270	
==>more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Re <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3884	3988	
==>:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3884	3988	
==>:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4887	4985	
==>oublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4887	4985	
==>oublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4887	4985	
==>oublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	225	319	
==>ne.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	225	319	
==>ne.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	225	319	
==>ne.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4560	4668	
==>e => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4753	4861	
==>e => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.* <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19250	19346	
==>g.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19250	19346	
==>g.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12540	12695	
==>->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13074	13229	
==>->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12534	12689	
==>->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13068	13223	
==>->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11172	11327	
==>i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->req <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11172	11327	
==>i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->req <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11172	11327	
==>i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->req <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1979	2092	
==>1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6770	6870	
==>SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6770	6870	
==>SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6770	6870	
==>SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5158	5263	
==>y @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5158	5263	
==>y @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5158	5263	
==>y @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	425	562	
==><conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	425	562	
==><conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12770	12880	
==>dler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still ali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12770	12880	
==>dler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still ali <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10868	10962	
==>in this instance, the information about how many members
were actually new is discarded.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10868	10962	
==>in this instance, the information about how many members
were actually new is discarded.

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1498	1666	
==>ash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1498	1666	
==>ash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1498	1666	
==>ash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4656	4756	
==>ce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv->val);
}

sub add_de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4283	4391	
==>ould not load meta file from archive: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_struct(stru <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5999	6087	
==>rform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5999	6087	
==>rform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8196	8284	
==>rform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Te <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11532	11650	
==>$?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sour <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15009	15127	
==>$?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sour <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7932	8046	
==>e {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## ---------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7932	8046	
==>e {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## ---------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3230	3343	
==>new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3230	3343	
==>new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3230	3343	
==>new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - lengt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10036	10169	
==>celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10036	10169	
==>celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10036	10169	
==>celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2173	2293	
==>($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_rel((defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2472	2568	
==>> $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2472	2568	
==>> $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2472	2568	
==>> $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1107	1198	
==>g " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->has_sy <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3665	3825	
==>t(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3665	3825	
==>t(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4303	4410	
==>plement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4303	4410	
==>plement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22949	23051	
==>> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21767	21869	
==>> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22949	23051	
==>> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21767	21869	
==>> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1938	2052	
==>(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1938	2052	
==>(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1172	1278	
==>{
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
meth <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1172	1278	
==>{
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
meth <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6145	6258	
==>e($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6145	6258	
==>e($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14243	14344	
==>r('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => grap <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8447	8548	
==>r('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => grap <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3639	3760	
==>nformation
    p5_source.pl  # Convert the file. The script appends
                  # '.p6' to the original name

HELP
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	354	458	
==>ub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	354	458	
==>ub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2501	2635	
==>val { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2501	2635	
==>val { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2501	2635	
==>val { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16745	16842	
==>ityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <Rela <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2600	2725	
==>$native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2600	2725	
==>$native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2600	2725	
==>$native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Per <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16097	16219	
==>Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    th <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	970	1071	
==>PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	970	1071	
==>PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PI <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6947	7040	
==>program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6959	7052	
==>program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flag <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	131	226	
==>nt';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5873	5960	
==>::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5873	5960	
==>::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5873	5960	
==>::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	287	432	
==>{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($quer <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	287	432	
==>{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($quer <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16254	16341	
==>rrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org> <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16312	16399	
==>rrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org> <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6568	6695	
==>me,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local $_ = shift;

  /JSPERL5/i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	271	367	
==>2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	271	367	
==>2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	271	367	
==>2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8668	8755	
==>return ::($module_name).does(Package);
}

method load_template_module (Str $module_name! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8668	8755	
==>return ::($module_name).does(Package);
}

method load_template_module (Str $module_name! <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23615	23719	
==>nt>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	906	997	
==>de::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	906	997	
==>de::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	906	997	
==>de::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2970	3178	
==>,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2719	2824	
==>mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2719	2824	
==>mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2719	2824	
==>mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Coul <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	547	668	
==>se v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') { <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	547	668	
==>se v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25142	25235	
==>opyright holders
of Rosetta give you permission to link Rosetta with other free software
compo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25142	25235	
==>opyright holders
of Rosetta give you permission to link Rosetta with other free software
compo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17995	18121	
==>toping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17033	17159	
==>toping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17995	18121	
==>toping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17033	17159	
==>toping => 90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7554	7651	
==>};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7554	7651	
==>};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7554	7651	
==>};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#M <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	778	872	
==>oken("term:\\d", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\D", " <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	855	973	
==>ole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        languag <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	855	973	
==>ole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        languag <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30448	30544	
==>e alternative for the rest
of the set. There is a separate template module for each distinct "use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30448	30544	
==>e alternative for the rest
of the set. There is a separate template module for each distinct "use <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19581	19678	
==>on is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24133	24230	
==>on is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewh <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	155	250	
==>"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	155	250	
==>"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7866	7967	
==>"var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_chec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7866	7967	
==>"var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_chec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7866	7967	
==>"var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_chec <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	67	163	
==>ccessor/;

use strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15620	15719	
==>I SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15620	15719	
==>I SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15620	15719	
==>I SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) { <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3412	3701	
==>unk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Wil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3171	3283	
==>urn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operatio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3171	3283	
==>urn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operatio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3171	3283	
==>urn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operatio <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4245	4371	
==>irs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11787	11896	
==>efined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11787	11896	
==>efined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packag <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11787	11896	
==>efined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6962	7106	
==>!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6730	6868	
==>!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4913	5021	
==>eturn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type / <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4913	5021	
==>eturn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17054	17162	
==>::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17054	17162	
==>::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17054	17162	
==>::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16699	16789	
==>l.

=item Regexp::CharClassOps

Implements character class operations like union, intersect <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6833	6977	
==>f (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            % <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6833	6977	
==>f (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            % <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6624	6724	
==>::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or y <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6624	6724	
==>::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or y <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	311	448	
==>dir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alternativ <==
4	/Users/nnunley/pugs/util/drift.pl	811	914	
==>rc",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @pr <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11183	11276	
==>s Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11183	11276	
==>s Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16167	16293	
==>ing => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19644	19770	
==>ing => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19177	19303	
==>ing => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11263	11358	
==>d2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11263	11358	
==>d2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23222	23312	
==>he C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23222	23312	
==>he C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3312	3415	
==>t(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_hand <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1162	1265	
==>t(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12609	12704	
==>the header fields with the specified names.

The header field names ($field) are not case sensit <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12609	12704	
==>the header fields with the specified names.

The header field names ($field) are not case sensit <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23887	24005	
==>start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29064	29163	
==>start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15025	15116	
==>PI), called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15025	15116	
==>PI), called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8609	8769	
==>\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	277	386	
==>ACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	277	386	
==>ACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing hav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	277	386	
==>ACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing hav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1149	1250	
==>d = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1149	1250	
==>d = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1358	1459	
==>d = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $d <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14692	14790	
==>itrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8164	8355	
==>ed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8164	8355	
==>ed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8164	8355	
==>ed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $met <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2428	2563	
==>self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5329	5459	
==>ch => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5522	5652	
==>ch => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1141	1235	
==>not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1141	1235	
==>not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3323	3424	
==>local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4660	4761	
==>local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3323	3424	
==>local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4882	4983	
==>local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	685	792	
==>y if a rootdir gets changed

### base dirs
### XXX touch the 'root' entry and the tests will run somewhere q <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4004	4103	
==>test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goin <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4004	4103	
==>test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4084	4183	
==>test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're goin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1144	1331	
==>( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            ini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1144	1331	
==>( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            ini <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1144	1331	
==>( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            ini <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28378	28481	
==>count of this Relation::Example's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4603	4735	
==>ndefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5262	5394	
==>ndefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4603	4735	
==>ndefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5262	5394	
==>ndefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_open || $.span.end_is_open ) {
            warn "setting start <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1104	1212	
==>d here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1104	1212	
==>d here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1104	1212	
==>d here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7330	7423	
==>( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TERNARY <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3977	4103	
==>val { 
                map { JIB::Package->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new_from_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2392	2501	
==>aclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2392	2501	
==>aclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2392	2501	
==>aclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2839	2945	
==>}
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2839	2945	
==>}
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2839	2945	
==>}
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{is <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	78	175	
==>.. accessors should be in here
has Method %.dispatch;

# private accessors, methods, etc
has Metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7334	7448	
==>'"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3938	4052	
==>'"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4787	4901	
==>'"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16862	16958	
==>es
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to em <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16862	16958	
==>es
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to em <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1517	1603	
==><$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1517	1603	
==><$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1746	1856	
==>e {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1746	1856	
==>e {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1746	1856	
==>e {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $nam <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	26	117	
==>m src/Pugs/AST/Internals.hs, line starting `data VJunc'

has Perl::JuncType $.juncType;

has <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6120	6220	
==>e, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5250	5350	
==>e, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6120	6220	
==>e, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5250	5350	
==>e, Set $two) returns Set {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5946	6049	
==>one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5076	5179	
==>one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5946	6049	
==>one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5076	5179	
==>one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10543	10670	
==>back) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10543	10670	
==>back) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4178	4278	
==>mpl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4178	4278	
==>mpl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2. <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8896	9010	
==>"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared librar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6219	6312	
==>:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6219	6312	
==>:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6219	6312	
==>:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf(" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5857	5972	
==>:Compiler::Regex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2573	2706	
==>::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2573	2706	
==>::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2573	2706	
==>::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> I <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	346	448	
==>ge::Prolog::Yaswi, which requires swi-prolog be
installed with non-default settings, and so is not inte <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24286	24384	
==>rogram controlling their
  actions) which are always seen to be replying lest they end up in a loop <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23059	23157	
==>rogram controlling their
  actions) which are always seen to be replying lest they end up in a loop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24286	24384	
==>rogram controlling their
  actions) which are always seen to be replying lest they end up in a loop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23059	23157	
==>rogram controlling their
  actions) which are always seen to be replying lest they end up in a loop <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2549	2669	
==>hen 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the resul <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2549	2669	
==>hen 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the resul <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7680	7796	
==>teral {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <Reg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1712	1805	
==>TEXT_STRINGS_F is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number e <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2447	2551	
==>o recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2447	2551	
==>o recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2144	2235	
==>head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2144	2235	
==>head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated re <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	717	816	
==>le functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff i <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	717	816	
==>le functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff i <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3377	3475	
==>s just a date, it does not handle time zones or leap
seconds.

All methods take named parameters un <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3377	3475	
==>s just a date, it does not handle time zones or leap
seconds.

All methods take named parameters un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1330	1437	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1330	1437	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1330	1437	
==>'(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4755	4855	
==>};

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    if( File::Copy::move <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9809	9963	
==>op::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9916	10028	
==>NDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9916	10028	
==>NDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9916	10028	
==>NDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13318	13478	
==>tant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27432	27592	
==>tant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13597	13757	
==>tant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27711	27871	
==>tant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	719	840	
==>$_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HAS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	719	840	
==>$_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HAS <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31536	31631	
==>s specific
to it, another library likewise, and a program which uses both libraries
could have y <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31536	31631	
==>s specific
to it, another library likewise, and a program which uses both libraries
could have y <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1415	1555	
==>en;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4654	4794	
==>en;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1415	1555	
==>en;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4654	4794	
==>en;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4660	4795	
==>ate instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4660	4795	
==>ate instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4660	4795	
==>ate instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_metho <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2711	2814	
==>, $from, 1) =~ /[:blank:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3209	3368	
==>( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3220	3379	
==>( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return va <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35357	35452	
==>his method returns all Set Names elements in this object as an array ref.

=item C<get_member_na <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35357	35452	
==>his method returns all Set Names elements in this object as an array ref.

=item C<get_member_na <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4346	4486	
==>tional"
                             #       "isWritable""paramContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6157	6291	
==>->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6157	6291	
==>->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6157	6291	
==>->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4266	4365	
==>istake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4266	4365	
==>istake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4266	4365	
==>istake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "N <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	120	218	
==>ith $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") {
    system("perl naive_bayes <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40493	40609	
==>is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MER <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26007	26123	
==>is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MER <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40493	40609	
==>is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MER <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26007	26123	
==>is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MER <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	353	470	
==>=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	353	470	
==>=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12464	12571	
==>object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$com <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12464	12571	
==>object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$com <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28629	28725	
==>off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37104	37198	
==>ve zero attributes in common, their joining degenerates to a
C<product>.  In any situation wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41653	41747	
==>ve zero attributes in common, their joining degenerates to a
C<product>.  In any situation wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41276	41370	
==>ve zero attributes in common, their joining degenerates to a
C<product>.  In any situation wher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4897	5012	
==>lect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4897	5012	
==>lect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4897	5012	
==>lect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->r <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8299	8397	
==><_command>

  my $command = $self->_command();

Returns the command that runs the test.  Combine th <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	918	1011	
==>s = $dup_finder->duplicate_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1077	1167	
==>elper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1077	1167	
==>elper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1077	1167	
==>elper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8284	8530	
==>Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8284	8530	
==>Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2039	2163	
==>},
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2039	2163	
==>},
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2327	2438	
==>$_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_ter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3108	3219	
==>$_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_ter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4798	4916	
==>path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4798	4916	
==>path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4798	4916	
==>path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12249	12350	
==>.

If C<$inplace> is specified, the array is sorted in place.

See L<http://www.nntp.perl.org/group/pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3437	3545	
==>$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3437	3545	
==>$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3437	3545	
==>$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31956	32053	
==>ct (like for OPEN and back
references).

=item off

The flags specifically turned off for this obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14116	14324	
==>able} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14116	14324	
==>able} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14116	14324	
==>able} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                re <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	165	263	
==>d it all for the
# meta-model, except perhaps to express sub-types, default values,
# etc.
enum Exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6523	6690	
==>}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6523	6690	
==>}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6523	6690	
==>}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4341	4440	
==>";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31532	31627	
==>s the original.  Trivial cases are
where C<$predicate> simply returns True or False regardless o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36082	36177	
==>s the original.  Trivial cases are
where C<$predicate> simply returns True or False regardless o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35309	35404	
==>s the original.  Trivial cases are
where C<$predicate> simply returns True or False regardless o <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	172	361	
==>ft;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sig <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	237	392	
==>ft;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sig <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13658	13753	
==>s span

This type os span is used to represent continuous measurements, such as times, temperatu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13658	13753	
==>s span

This type os span is used to represent continuous measurements, such as times, temperatu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2577	2692	
==>Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2577	2692	
==>Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	815	911	
==>sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	873	969	
==>sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3378	3495	
==>ty || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3378	3495	
==>ty || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3378	3495	
==>ty || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5058	5165	
==>_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it do <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5058	5165	
==>_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it do <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10302	10397	
==>s => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10302	10397	
==>s => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16423	16526	
==>ts successful$bonusmsg.\n";
    } elsif (!$tot->{tests}){
        die "FAILED--no tests were run for som <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10191	10290	
==>empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the e <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10191	10290	
==>empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13196	13294	
==>ted yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provid <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13254	13352	
==>ted yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provid <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4203	4323	
==>_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4203	4323	
==>_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4203	4323	
==>_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	246	355	
==>Seq(
			(map { Param($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors {
    foreach my $class (@{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	343	441	
==>Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $can <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	343	441	
==>Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $can <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	343	441	
==>Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $can <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1320	1417	
==>one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_supers <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1320	1417	
==>one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_supers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10563	10675	
==>>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10563	10675	
==>>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10563	10675	
==>>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3840	3941	
==>. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set:: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3840	3941	
==>. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23130	23226	
==>ks like you
are supposed to pass in english text and they translate it, which could
produce ambig <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23130	23226	
==>ks like you
are supposed to pass in english text and they translate it, which could
produce ambig <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	888	1005	
==>T look like it's mature enough to bear
# our weight, to be a next step. And the current Regexp::Parser Object
# ast is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9014	9116	
==>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9014	9116	
==>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9014	9116	
==>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8616	8765	
==>returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$cu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35314	35412	
==>l fail if any of its source Relations
have attributes in common; it will only accept inputs that wo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39864	39962	
==>l fail if any of its source Relations
have attributes in common; it will only accept inputs that wo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39424	39522	
==>l fail if any of its source Relations
have attributes in common; it will only accept inputs that wo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26605	26814	
==>Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26605	26814	
==>Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26605	26814	
==>Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7753	7858	
==>\+//;
	    $h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isLValue'}=1 if s/\s+is lvalue//;
	    $h{'isLazy' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	292	400	
==>tr $delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $deli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2034	2132	
==>from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2034	2132	
==>from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2034	2132	
==>from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	504	620	
==>$_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	504	620	
==>$_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->mat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	504	620	
==>$_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1497	1637	
==>0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1436	1571	
==>0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capt <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13095	13210	
==>he span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13095	13210	
==>he span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10398	10559	
==>id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10398	10559	
==>id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10398	10559	
==>id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27554	27651	
==>mean you can use them on C<qr//>, but rather
that you can write C<(?u:...)> or C<(?u)>.  The value <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9624	9734	
==>eturn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10460	10570	
==>eturn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14733	14828	
==>ad1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14733	14828	
==>ad1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23041	23138	
==>eant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like y <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23041	23138	
==>eant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like y <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2934	3027	
==>s::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeCompone <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2827	2919	
==>s::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeCompone <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4818	4937	
==>ve church integers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Applies it's children one by o <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3668	3772	
==>est::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This para <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3668	3772	
==>est::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5865	5969	
==>est::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This para <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	27	123	
==>perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	27	123	
==>perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.per <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	27	123	
==>perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	377	488	
==>PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	377	488	
==>PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	377	488	
==>PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5263	5373	
==>e {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracke <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	956	1064	
==>]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	836	943	
==>valent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	836	943	
==>valent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	836	943	
==>valent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1403	1507	
==>TION

This module provides an implementation for Perl 6 regexes that use the "Perl5" switch:

    :Pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1168	1269	
==>p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1168	1269	
==>p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1168	1269	
==>p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_fro <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3074	3182	
==>}

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descrip <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3074	3182	
==>}

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4598	4706	
==>}

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descrip <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11867	11981	
==>y $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be res <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	276	385	
==>y $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be res <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19422	19503	
==>otE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19422	19503	
==>otE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15250	15357	
==>nt.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15250	15357	
==>nt.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5103	5202	
==>ialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5103	5202	
==>ialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2775	2883	
==>s_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{names}{$node->orig};
}

sub declare {
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17256	17348	
==>($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17256	17348	
==>($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17256	17348	
==>($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULT <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1781	1905	
==>erl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1974	2098	
==>erl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2936	3054	
==>resis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "oc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2936	3054	
==>resis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "oc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1888	1989	
==>prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1888	1989	
==>prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1888	1989	
==>prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21498	21591	
==>gn {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND($v);}


my %space_from_ <==
4	/Users/nnunley/pugs/util/version_h.pl	1306	1413	
==>ot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # convert / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5633	5739	
==>ef, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$se <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5633	5739	
==>ef, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$se <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6223	6329	
==>ef, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$se <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1786	2048	
==>en 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buff <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1786	2048	
==>en 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buff <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3909	4009	
==>pty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The arra <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3909	4009	
==>pty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2608	2768	
==>op::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2619	2779	
==>op::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22046	22137	
==>rameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22046	22137	
==>rameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nic <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23440	23562	
==>$n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19861	19983	
==>$n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3066	3181	
==>'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # smal <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3066	3181	
==>'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # smal <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17730	17889	
==>ange = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14151	14310	
==>ange = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9365	9467	
==>/reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9365	9467	
==>/reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	988	1101	
==>b to_num { (shift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1149	1255	
==>t; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1149	1255	
==>t; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1229	1335	
==>t; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5008	5112	
==>}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self->{param}->free_vars;
}


package type::opera <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2970	3073	
==>t open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2970	3073	
==>t open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2970	3073	
==>t open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	95	198	
==>sage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	95	198	
==>sage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	95	198	
==>sage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1127	1226	
==>m->{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{required};
	    $invocant = $db_pa <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21516	21660	
==>ml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      }
      return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3577	3664	
==>6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3577	3664	
==>6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3577	3664	
==>6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	874	1034	
==>' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	874	1034	
==>' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	874	1034	
==>' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::S <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13449	13566	
==>$I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange goto addrange <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5834	5947	
==>if $match->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5649	5760	
==>if $match->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1564	1658	
==>=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<e <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1564	1658	
==>=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2372	2493	
==>ule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2619	2740	
==>ule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_gr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	172	261	
==>ve_content_headers header_field_names scan
    date expires if_modified_since if_unmodifie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	172	261	
==>ve_content_headers header_field_names scan
    date expires if_modified_since if_unmodifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2792	2882	
==>ugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2792	2882	
==>ugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($cod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2792	2882	
==>ugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3240	3422	
==>d => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub perl5 {
    my $rx = qr(^($_[0]))s;
    no warnings qw( uni <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2862	2964	
==>t::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test ) <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2862	2964	
==>t::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2942	3044	
==>t::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7681	7789	
==>eded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7681	7789	
==>eded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7681	7789	
==>eded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	32	132	
==>ngs which end up defined in PILn
# (though one may wish to overwrite a limited piln version with a mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2783	2880	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2783	2880	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2783	2880	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? - <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1008	1116	
==>arch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1008	1116	
==>arch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12351	12449	
==>ember of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is clos <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12351	12449	
==>ember of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is clos <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1845	1977	
==>t;
    my $name     = shift;
    my $features = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	13	103	
==>use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	13	103	
==>use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	13	103	
==>use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5890	5997	
==>_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5890	5997	
==>_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5890	5997	
==>_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encod <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12297	12397	
==>other!) returns Relation::Example {

    die "The heading of the relation in $other is not a full sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7827	7926	
==>e types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7827	7926	
==>e types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoint <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7827	7926	
==>e types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoint <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3385	3482	
==>ject is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3443	3540	
==>ject is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26555	26649	
==>age constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26555	26649	
==>age constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates an <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7563	7697	
==>vide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied b <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	864	998	
==>vide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	198	303	
==>nings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @valu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	175	280	
==>nings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @valu <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4313	4428	
==>])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it hel <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4313	4428	
==>])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it hel <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4337	4449	
==>inite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4337	4449	
==>inite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3718	3879	
==>{},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6244	6339	
==>('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6244	6339	
==>('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6244	6339	
==>('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6118	6247	
==>->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6118	6247	
==>->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6118	6247	
==>->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30046	30145	
==>ect, just itself.  This is used primarily when
inspecting the parsing of the regex.

=item my $t = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	517	643	
==>d it
eval 
  q(
    use FindBin '$Bin';
    use lib
        "$Bin/lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8846	8956	
==>$self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($l <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8846	8956	
==>$self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($l <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4954	5049	
==>, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5012	5107	
==>, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	832	958	
==>=> sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	686	808	
==>($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4061	4140	
==>F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4061	4140	
==>F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1471	1568	
==>usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	162	256	
==>hods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	162	256	
==>hods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	162	256	
==>hods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2956	3056	
==>om the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 E <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2956	3056	
==>om the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 E <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1915	2006	
==>sg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1915	2006	
==>sg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name! <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1146	1245	
==>,   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1146	1245	
==>,   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1146	1245	
==>,   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	64	158	
==>Roles @.super_roles;

has Hash of Str, Perl::Meta::Property %.properties;
has Hash of Str, Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3226	3327	
==>$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3226	3327	
==>$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3226	3327	
==>$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13818	13912	
==>Pe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s. <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	342	451	
==>.
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	342	451	
==>.
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6653	6859	
==>kie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6653	6859	
==>kie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21085	21199	
==>S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-be <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17506	17620	
==>S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-be <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	870	995	
==>name => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	459	557	
==>ook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	459	557	
==>ook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subt <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	459	557	
==>ook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subt <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	968	1068	
==>From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	968	1068	
==>From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> < <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11449	11543	
==>y.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11507	11601	
==>y.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	500	623	
==>'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	500	623	
==>'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13925	14024	
==>gle
value (a string).  If a header field is multi-valued, then the
routine is called once for each v <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13925	14024	
==>gle
value (a string).  If a header field is multi-valued, then the
routine is called once for each v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11747	11872	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12026	12151	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'g <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9660	9755	
==>an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9660	9755	
==>an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18830	18928	
==>h as modification of the compiled re op tree the native
compiler creates, but which we obviously do <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3120	3218	
==>h as modification of the compiled re op tree the native
compiler creates, but which we obviously do <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33812	33906	
==>o
an individual user's (or user role's) preferences such that each says what
language they pref <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33812	33906	
==>o
an individual user's (or user role's) preferences such that each says what
language they pref <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9026	9138	
==>est_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9084	9196	
==>est_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35575	35669	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<j <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40125	40219	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<j <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4322	4429	
==>eturns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infini <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4322	4429	
==>eturns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infini <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14203	14304	
==>to encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
charac <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14203	14304	
==>to encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
charac <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6148	6248	
==>itpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8216	8316	
==>itpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6148	6248	
==>itpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8216	8316	
==>itpath (Str $path, Bool $nofile?) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20897	21024	
==>ref',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13682	13777	
==>pacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13682	13777	
==>pacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13682	13777	
==>pacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}-> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38182	38277	
==>uples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42731	42826	
==>uples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42381	42476	
==>uples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	349	605	
==>ges in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External pa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	349	605	
==>ges in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External pa <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2494	2583	
==>losure> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4824	4992	
==>ype'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4824	4992	
==>ype'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4824	4992	
==>ype'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	959	1055	
==>"The right hand side must be a core type";
    return str->new($left->to_native . $right->to_str- <==
4	/Users/nnunley/pugs/util/package-osx.pl	10704	10847	
==>eader[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$f <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11161	11298	
==>,
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => sub { $_[0] ? 1 : undef },
      scalar_numeric     => sub { ${$_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6393	6485	
==>f event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=hea <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6393	6485	
==>f event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=hea <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4614	4728	
==>tals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	31	144	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	31	144	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	31	144	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5184	5317	
==>s ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5184	5317	
==>s ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1577	1670	
==>apture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introdu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1577	1670	
==>apture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introdu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13874	14022	
==>d);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3987	4119	
==>d);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3987	4119	
==>d);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3987	4119	
==>d);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	447	641	
==>M                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1] <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4397	4494	
==>match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=he <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4397	4494	
==>match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4477	4574	
==>match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	225	339	
==>d_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	225	339	
==>d_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	225	339	
==>d_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7094	7211	
==>y) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7094	7211	
==>y) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22760	22850	
==>umentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22760	22850	
==>umentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18876	18974	
==>ve.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18876	18974	
==>ve.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16836	16930	
==>file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16836	16930	
==>file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1707	1799	
==>$o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1707	1799	
==>$o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1707	1799	
==>$o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1874	1977	
==>poch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.n <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1874	1977	
==>poch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15163	15264	
==>map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unf <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15163	15264	
==>map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2283	2409	
==>tches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2283	2409	
==>tches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2283	2409	
==>tches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsn <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1962	2066	
==>(blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit->new(exists $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4868	4959	
==>ect blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4868	4959	
==>ect blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4868	4959	
==>ect blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8383	8563	
==>ss->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8383	8563	
==>ss->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8383	8563	
==>ss->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9126	9248	
==>: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_fai <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7984	8313	
==>Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	380	482	
==>_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	380	482	
==>_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	380	482	
==>_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5156	5274	
==>_ok  => $result{ok}
            };

            assert( defined( $details->{ok} ) && defined( $details->{actual_ok} ) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	323	423	
==>C};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	323	423	
==>C};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	323	423	
==>C};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8284	8433	
==>(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8284	8433	
==>(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8284	8433	
==>(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    : <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6361	6461	
==>y($self, $name, $fh) = @_;

    my $it = Test::Harness::Iterator->new($fh);
    return $self->_analyz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6739	6925	
==>ft;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curri <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6739	6925	
==>ft;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curri <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6739	6925	
==>ft;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curri <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22716	22820	
==>gs,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Application of undef.\n" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9559	9678	
==>S_WHITESPACE, target, pos, lastpos
    $S0 = substr target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3136	3271	
==>e by $top_class $top_version\n" . 
                    ($self->postamble || '');

    open MAKEFILE, '< Makefile' or die $!;
    my $mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	794	899	
==>if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	794	899	
==>if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	794	899	
==>if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v, <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	108	214	
==>or 1..6;
#!\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1394	1490	
==>prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1394	1490	
==>prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1394	1490	
==>prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4309	4425	
==>c.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4309	4425	
==>c.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4309	4425	
==>c.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4527	4615	
==>,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2646	2777	
==>ifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2646	2777	
==>ifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1275	1372	
==>uency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1275	1372	
==>uency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2084	2177	
==>"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2084	2177	
==>"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2084	2177	
==>"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34233	34324	
==>of_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9206	9313	
==>cant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9206	9313	
==>cant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9206	9313	
==>cant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_ <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	330	429	
==>velopers;
my %devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of "svn log" or save "svn lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10913	11046	
==>class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10913	11046	
==>class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10913	11046	
==>class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1545	1675	
==>art), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration;
}

# operations with Duration::Gregorian <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13220	13403	
==>opy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq '-') {
                push @rv, '-';
                $string = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3401	3560	
==>opy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3401	3560	
==>opy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subst <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3401	3560	
==>opy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq '-') {
            push @rv, '-';
            $string = subst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1505	1660	
==>@_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1505	1660	
==>@_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1505	1660	
==>@_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1552	1659	
==>es) {
        my $methods = $class->get_attr(symbol->new('%:methods'));
        #warn "looking for method (" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12335	12540	
==>state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12329	12534	
==>state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18237	18333	
==>tandard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
req <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18237	18333	
==>tandard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
req <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6284	6466	
==>y $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1514	1624	
==>airs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1514	1624	
==>airs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1514	1624	
==>airs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	761	871	
==>hmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchma <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	761	871	
==>hmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26275	26369	
==>ile it is by no means required, the copyright holders of Rosetta would
appreciate being informe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26275	26369	
==>ile it is by no means required, the copyright holders of Rosetta would
appreciate being informe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5045	5137	
==>le.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5045	5137	
==>le.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7242	7334	
==>le.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3108	3212	
==>ree-dot version
        $perl_version =~
          s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2), int($3 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1839	1936	
==>t/macros --output_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	418	508	
==>PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	418	508	
==>PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	418	508	
==>PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2739	2922	
==>em( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            syste <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6623	6738	
==>get) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$ori <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1767	1873	
==>f exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1767	1873	
==>f exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{matc <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8270	8378	
==>tegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1476	1579	
==>bj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1476	1579	
==>bj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1476	1579	
==>bj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	651	826	
==>ngleton');
        },
        'create' => sub { shift; $::CLASS->new(@_) }        
    },
    submethods => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2823	2928	
==>];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2823	2928	
==>];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_al <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2823	2928	
==>];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_al <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3406	3556	
==>eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4255	4405	
==>eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19808	19904	
==>namic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19808	19904	
==>namic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2789	2903	
==>ng of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2789	2903	
==>ng of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2789	2903	
==>ng of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cla <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24382	24484	
==>ing-of-line only)?

Very popular.  Used all over perl.  Discussed elsewhere.

 * regmust      string (p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	277	381	
==>lass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	277	381	
==>lass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	277	381	
==>lass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16021	16119	
==>$_>) is rw --> Char )

Trims the last character from C<$string>, and returns it. Called with a
list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7190	7297	
==>my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7190	7297	
==>my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7190	7297	
==>my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4607	4710	
==>(offset(-1) :length(1));

 multi Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15261	15467	
==>, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15261	15467	
==>, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15261	15467	
==>, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16691	16783	
==>onNoIn> <'!='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'==='> <RelationalE <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	228	327	
==>t::Harness::Iterator;

# Flags used as return values from our methods.  Just for internal 
# clarifi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1119	1215	
==>ameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a para <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1119	1215	
==>ameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a para <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	487	584	
==>le was automatically generated by util/file_to_hs.pl
    from $in.
-}
EOF
print OUT "$data :: Stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7354	7444	
==>ole ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7354	7444	
==>ole ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7354	7444	
==>ole ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12750	12937	
==>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12750	12937	
==>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12750	12937	
==>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6 <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8421	8525	
==>j);
  tok_match_end:
  $$operator{type} = $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenSta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18817	18954	
==>ata} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20175	20312	
==>ata} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22164	22276	
==>/
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offse <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17065	17176	
==>/
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1392	1492	
==>aram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1392	1492	
==>aram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1601	1701	
==>aram->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9854	9954	
==>e Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.pugscode.org/"> <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5487	5590	
==>) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# t <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5487	5590	
==>) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# t <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5231	5329	
==>)

The get() function will fetch the document identified by the given URL
and return it.  It return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5231	5329	
==>)

The get() function will fetch the document identified by the given URL
and return it.  It return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1527	1643	
==>$!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1527	1643	
==>$!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11945	12042	
==>ack

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This met <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11945	12042	
==>ack

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1625	1729	
==>$s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1625	1729	
==>$s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1625	1729	
==>$s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13180	13325	
==>$0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13180	13325	
==>$0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => $from_n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12276	12413	
==>$0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12276	12413	
==>$0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => $from_n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27339	27438	
==>object does not permit changes to its attributes; they
must all be set when the object is constructe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34865	34964	
==>object does not permit changes to its attributes;
they must all be set when the object is constructe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27339	27438	
==>object does not permit changes to its attributes; they
must all be set when the object is constructe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34865	34964	
==>object does not permit changes to its attributes;
they must all be set when the object is constructe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1164	1285	
==>ed at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	724	845	
==>ed at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	806	917	
==>alize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $le <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	815	926	
==>alize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $le <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17710	17811	
==>E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7787	7886	
==>use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	28	119	
==>use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	28	119	
==>use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16549	16659	
==>bstr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16549	16659	
==>bstr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1992	2088	
==>r', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () return <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1992	2088	
==>r', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32940	33086	
==>op_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32940	33086	
==>op_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32940	33086	
==>op_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5527	5632	
==>s) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2218	2321	
==>Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2218	2321	
==>Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2218	2321	
==>Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24187	24284	
==>dered set of named attributes; all tuples in a Relation::Example are of the same
degree, and the a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2272	2376	
==>}

      return $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27937	28033	
==>, "∀α. ∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), "list int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12558	12729	
==>ammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13092	13263	
==>ammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12552	12723	
==>ammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13086	13257	
==>ammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	646	780	
==>plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	646	780	
==>plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	628	740	
==>if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	628	740	
==>if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15528	15773	
==>mar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15807	16052	
==>mar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         ) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5468	5561	
==>the response code or response headers
(like 'Content-Type') when you are accessing the web usi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5468	5561	
==>the response code or response headers
(like 'Content-Type') when you are accessing the web usi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8103	8241	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8103	8241	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8103	8241	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ], <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12219	12328	
==>{  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule Hex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8666	8793	
==>/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8666	8793	
==>/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8666	8793	
==>/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7395	7488	
==>wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7395	7488	
==>wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7395	7488	
==>wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self-> <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2247	2338	
==>ly would have punted.
Also to iblech, and Michael Schilli of JavaScript::SpiderMonkey, whose <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4335	4502	
==>Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4335	4502	
==>Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4335	4502	
==>Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  su <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2256	2353	
==>get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1463	1604	
==>.
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1451	1592	
==>.
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  pri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14029	14127	
==>.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the header <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14029	14127	
==>.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the header <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7111	7266	
==>t SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successful <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7111	7266	
==>t SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successful <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23344	23439	
==>er than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23344	23439	
==>er than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1123	1228	
==>(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1123	1228	
==>(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1123	1228	
==>(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15422	15543	
==>stage2_eltorito", # Set El Torito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulation <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	96	199	
==>tor
# neu in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiederholt xx listen:
@a = (1, 2) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	341	437	
==>sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, B <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	341	437	
==>sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5268	5379	
==>/^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5268	5379	
==>/^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5268	5379	
==>/^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(a <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	803	910	
==><< "END";
Can't determine a VERSION for this distribution.
Please call the 'version' or 'version_from' funct <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16990	17105	
==>ze() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20467	20582	
==>ze() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20045	20160	
==>ze() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40563	40656	
==>RANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOS <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26077	26170	
==>RANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOS <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40563	40656	
==>RANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26077	26170	
==>RANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8004	8117	
==>arams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8004	8117	
==>arams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ind <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8004	8117	
==>arams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4585	4692	
==>{ op1 => 'method_call', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD exp   %pr <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1202	1306	
==>_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1202	1306	
==>_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1605	1701	
==>l5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLen <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1605	1701	
==>l5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	847	963	
==>",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2168	2277	
==>if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2168	2277	
==>if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2168	2277	
==>if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2082	2190	
==>ocess

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root directory f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	986	1091	
==>s 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	986	1091	
==>s 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	986	1091	
==>s 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6545	6641	
==>ernals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19656	19752	
==>sages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6545	6641	
==>ernals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19656	19752	
==>sages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3780	3877	
==>od repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
and <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3780	3877	
==>od repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
and <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3367	3453	
==>]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A] <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18464	18550	
==>ot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18464	18550	
==>ot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3367	3453	
==>]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7250	7382	
==>s, map { $path->file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1960	2074	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1960	2074	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1960	2074	
==>unction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18753	18870	
==>AREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15174	15291	
==>AREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	285	401	
==>],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIV <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1143	1259	
==>],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIV <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13429	13525	
==>terminated

=item RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Seq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14649	14744	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14649	14744	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14649	14744	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9427	9545	
==>s.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9427	9545	
==>s.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9427	9545	
==>s.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var or <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1029	1130	
==>2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie intermediate language is a language for machines <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15050	15163	
==>n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15050	15163	
==>n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15050	15163	
==>n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13531	13618	
==>ped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpect <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2917	3081	
==>{
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2917	3081	
==>{
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5865	5963	
==>cale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5865	5963	
==>cale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2856	2966	
==>RGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2856	2966	
==>RGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Coul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2856	2966	
==>RGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Coul <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8679	8779	
==>= pop @termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28472	28611	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28751	28890	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10209	10311	
==>.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of on <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10209	10311	
==>.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of on <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9944	10064	
==>o particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7884	8004	
==>o particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9944	10064	
==>o particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7884	8004	
==>o particular order)
  say ~([1,2,3] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11137	11230	
==>et.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8541	8634	
==>et.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11137	11230	
==>et.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8541	8634	
==>et.includes(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	435	555	
==>f = { source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14846	14951	
==>k ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14846	14951	
==>k ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14846	14951	
==>k ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MU <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2661	2775	
==>capture => ${$_[3]{match}[1]}->{capture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3830	3931	
==>d"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3830	3931	
==>d"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4420	4521	
==>d"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8713	8822	
==>nt %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8713	8822	
==>nt %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it seems, delete s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8971	9078	
==>nt %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8971	9078	
==>nt %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it seems, delete s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	361	454	
==>ding command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	322	415	
==>ding command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	322	415	
==>ding command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	752	868	
==>art;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	752	868	
==>art;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8003	8098	
==>hed, the next event fired will be
any text which follows the item.

=item I<end_element ('item') <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8003	8098	
==>hed, the next event fired will be
any text which follows the item.

=item I<end_element ('item') <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	71	318	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	71	318	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by p <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1632	1757	
==>sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4835	4960	
==>sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1702	1892	
==>'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!ms <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1702	1892	
==>'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!ms <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1412	1502	
==>ler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1412	1502	
==>ler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28626	28722	
==>nder is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of this object. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19525	19618	
==>1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19525	19618	
==>1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19525	19618	
==>1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	162	276	
==>submodules",
    search_path => [__PACKAGE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3577	3673	
==>".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3577	3673	
==>".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3577	3673	
==>".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4271	4384	
==>elf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4271	4384	
==>elf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4271	4384	
==>elf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->para <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5786	5895	
==>ath);

my $welcomed = 0;
step
  descr  => "Welcome",
  ensure => sub { $welcomed },
  using  => sub { $welcome <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3723	3834	
==>G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	876	979	
==>rl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	876	979	
==>rl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	876	979	
==>rl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28633	28732	
==>, but it expects you
to make modules having a specific simple API that will serve their role.

For e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1404	1503	
==>n unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28633	28732	
==>, but it expects you
to make modules having a specific simple API that will serve their role.

For e <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1404	1503	
==>n unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4309	4484	
==>s[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4178	4347	
==>s[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                m <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	370	497	
==>till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proce <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	370	497	
==>till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proce <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29209	29336	
==>s $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29488	29615	
==>s $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1767	1863	
==>instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1767	1863	
==>instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25169	25283	
==>)->set_attr(symbol->new('@:superclasses') => $e->get('?@superclasses')); 
                          # clear the MRO <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3089	3202	
==>$INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $sel <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4542	4638	
==>l named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4542	4638	
==>l named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6066	6162	
==>l named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2232	2400	
==>s{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2232	2400	
==>s{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding t <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2382	2489	
==>->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $ou <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2382	2489	
==>->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $ou <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	892	1021	
==>5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	892	1021	
==>5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5486	5581	
==>/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5486	5581	
==>/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1848	1956	
==>);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::Backend::C::Bui <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	338	441	
==>by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	338	441	
==>by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	338	441	
==>by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scal <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11813	11910	
==>ems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clea <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8960	9057	
==>ems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11813	11910	
==>ems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clea <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8960	9057	
==>ems if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2413	2544	
==>s;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15808	15911	
==>$xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15808	15911	
==>$xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15808	15911	
==>$xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($x <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	720	1130	
==>:Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	720	1130	
==>:Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8304	8409	
==>ee in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or crea <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8304	8409	
==>ee in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or crea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8246	8352	
==>$::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8246	8352	
==>$::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8246	8352	
==>$::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	214	319	
==>iler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1325	1418	
==>h references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1325	1418	
==>h references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1325	1418	
==>h references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1715	1810	
==>:_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1715	1810	
==>:_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1715	1810	
==>:_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22631	22734	
==>over 4

=item * Bugs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12319	12406	
==>turn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12319	12406	
==>turn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12319	12406	
==>turn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30804	30914	
==>')', because
if the 'c)' handler gets called, it's expected to match!  It pops the
flag stack, and returns an o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	648	754	
==>ight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	648	754	
==>ight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	648	754	
==>ight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of ty <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7883	8060	
==>t;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	349	470	
==>ass = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	349	470	
==>ass = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	349	470	
==>ass = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2724	2833	
==>%param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2724	2833	
==>%param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2724	2833	
==>%param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1866	1954	
==>itter::Pretty->new->string($reduced)
			if $received != $sent and $reduced->isa("Blondie: <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	402	500	
==>H_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote us <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	402	500	
==>H_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote us <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40223	40315	
==>02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40223	40315	
==>02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1337	1458	
==>";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	808	909	
==>nboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	808	909	
==>nboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	808	909	
==>nboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9992	10172	
==>ed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	556	726	
==>ed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass. <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	556	726	
==>ed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7360	7468	
==>{
        $S->error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13872	14100	
==>output arrived\n";
                $tot{bad}++;
                $failedtests{$tfile} = { canon       => '??',
                                         max         => '??',
                                         failed      => ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6669	6785	
==>$type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+// <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6669	6785	
==>$type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+// <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6669	6785	
==>$type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+// <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1758	1855	
==>ting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) { <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1758	1855	
==>ting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) { <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1717	1811	
==>her;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1717	1811	
==>her;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2081	2261	
==>my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2081	2261	
==>my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2081	2261	
==>my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p ) <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2943	3063	
==>$tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8446	8554	
==>method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8446	8554	
==>method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8446	8554	
==>method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaq <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2950	3048	
==>a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the other <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2950	3048	
==>a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the other <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16030	16126	
==>t any human user.  In some
situations, a shared program component may raise such a condition, and <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16030	16126	
==>t any human user.  In some
situations, a shared program component may raise such a condition, and <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	519	623	
==>t();

inline(), exit 0 if $Config{inline};
precomp(), exit 0 if $Config{precompile};
usage();
exit 1;

su <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17091	17190	
==>ns numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17091	17190	
==>ns numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a s <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	968	1063	
==>xpressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2617	2768	
==>EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2617	2768	
==>EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2617	2768	
==>EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2619	2714	
==>types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# signature from PIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16502	16612	
==>0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16502	16612	
==>0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16502	16612	
==>0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2834	2992	
==>mp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tm <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3454	3612	
==>mp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tm <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2834	2992	
==>mp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tm <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3454	3612	
==>mp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4502	4621	
==>/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("") <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4502	4621	
==>/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("") <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7770	7878	
==>ture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7758	7866	
==>ture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6903	7024	
==>arts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHE <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6903	7024	
==>arts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHE <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2000	2094	
==>.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_supers <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2000	2094	
==>.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_supers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8250	8382	
==>push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normali <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8250	8382	
==>push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normali <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8250	8382	
==>push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normali <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1474	1584	
==>) if length($extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2133	2233	
==>);

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2133	2233	
==>);

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2133	2233	
==>);

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40994	41093	
==>};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40994	41093	
==>};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40994	41093	
==>};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	102	195	
==>Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	102	195	
==>Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	102	195	
==>Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6216	6308	
==>es Role
::opaque_instance_attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18635	18757	
==>"id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "foo", t => type: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7214	7307	
==>st_on_object',
  '... still got the right return value from first Object singleton/class metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8209	8302	
==>st_on_object',
  '... still got the right return value from first Object singleton/class metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10778	10871	
==>st_on_object',
  '... still got the right return value from first Object singleton/class metho <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2896	3009	
==>@basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basech <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2896	3009	
==>@basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basech <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3040	3142	
==>ing.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as ex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3040	3142	
==>ing.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as ex <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	826	923	
==>ouldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	474	561	
==>ss = undef;

## ------------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	474	561	
==>ss = undef;

## ------------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	474	561	
==>ss = undef;

## ------------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6229	6409	
==>.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9706	9886	
==>.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8780	8960	
==>.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	713	887	
==>de) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::Ei <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3877	4139	
==>nd_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3920	4182	
==>nd_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3877	4139	
==>nd_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3920	4182	
==>nd_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh.close();
}

sub interpolate <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33916	34013	
==>Relation that has the same heading and
whose body contains all of the tuples that are in the invoc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38466	38563	
==>Relation that has the same heading and
whose body contains all of the tuples that are in the invoc <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9682	9777	
==>need to override these
method _head() returns Array { return }
method _tail() returns Array { re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9682	9777	
==>need to override these
method _head() returns Array { return }
method _tail() returns Array { re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	938	1068	
==>cument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	938	1068	
==>cument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (nod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	938	1068	
==>cument.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (nod <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	481	572	
==>::Util 'first';
use Regexp::Common qw/balanced delimited/;
use Pod::Simple::HTML;
use Pod::P <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	736	860	
==>ool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	736	860	
==>ool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5660	5775	
==>@retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is exp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5660	5775	
==>@retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9296	9406	
==>ocal $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9296	9406	
==>ocal $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22382	22477	
==>your path that packages could be installed in.

Generally, when a program package would return a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22382	22477	
==>your path that packages could be installed in.

Generally, when a program package would return a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4370	4516	
==>}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4370	4516	
==>}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4370	4516	
==>}
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF }, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23839	23950	
==>etween
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  Thi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22612	22723	
==>etween
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  Thi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23839	23950	
==>etween
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  Thi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22612	22723	
==>etween
  NOTICE and PRIVMSG is that automatic replies must never be sent in response
  to a NOTICE message.  Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12699	12806	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12699	12806	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12699	12806	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27831	27924	
==>em C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation::Exampl <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	164	275	
==>ed to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn't supp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1110	1220	
==>il>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1110	1220	
==>il>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1110	1220	
==>il>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1860	1956	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.7 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1823	1919	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.7 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1860	1956	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.7 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1823	1919	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.7 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6433	6529	
==>returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6433	6529	
==>returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8630	8726	
==>returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23456	23549	
==>et data type is.

=head1 INTERFACE

The interface of Relation::Example is entirely object-orie <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13872	14020	
==>end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_da <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3985	4117	
==>end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_da <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3985	4117	
==>end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_da <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3985	4117	
==>end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_da <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9166	9295	
==>_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9154	9283	
==>_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	34	131	
==>for Arrays, Hashes, Sets and other collections
# like Bags, ordered hashes and so on.

role Map--P <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9471	9567	
==>ts working infix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc}))";
    "$ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2555	2685	
==>Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                m <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2555	2685	
==>Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6534	6664	
==>sed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' ins <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6534	6664	
==>sed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' ins <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6534	6664	
==>sed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' ins <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3748	3876	
==>t have PMC support. 

PMC support is required for loading precompiled Perl 6 files.

If you see the error below, it may happen th <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12393	12500	
==>tifying what sort of line you're looking at.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12511	12612	
==>ed };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12511	12612	
==>ed };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12511	12612	
==>ed };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18020	18183	
==>call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18020	18183	
==>call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18020	18183	
==>call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2583	2684	
==>block &dispatcher) (symbol $label) (hash ?%opts)) returns method 
    ((= $method NIL)
     (= $curren <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1749	1850	
==>..
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1749	1850	
==>..
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6660	6761	
==>tually contain getters for $() and such

### getters need to know what you want (str, bool, hash, arra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6436	6536	
==>tually contain getters for $() and such
### getters need to know what you want (str, bool, hash, arra <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	142	252	
==>lgorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts o <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	142	252	
==>lgorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12095	12202	
==>e};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12095	12202	
==>e};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1048	1197	
==>st|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12264	12377	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12264	12377	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12264	12377	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6960	7068	
==>say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6960	7068	
==>say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.ne <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13914	14012	
==>d and a single
value (a string).  If a header field is multi-valued, then the
routine is called onc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13914	14012	
==>d and a single
value (a string).  If a header field is multi-valued, then the
routine is called onc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8072	8171	
==>interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8072	8171	
==>interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8072	8171	
==>interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1183	1305	
==>s';
        my $code = eval($program);
        warn "Error in statement:\n", $program if $@;
        die "error in immediat <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2323	2438	
==>rn Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.m <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2323	2438	
==>rn Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3335	3458	
==>rent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3335	3458	
==>rent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3335	3458	
==>rent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1022	1121	
==>ew();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1022	1121	
==>ew();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1102	1201	
==>ew();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remo <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	409	512	
==>ldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	409	512	
==>ldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	420	514	
==>pt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	420	514	
==>pt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic cip <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1716	1814	
==>$position <= $from;
  return substr $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16877	16965	
==>B Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16877	16965	
==>B Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16877	16965	
==>B Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5794	5934	
==>"hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5794	5934	
==>"hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5794	5934	
==>"hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, bu <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	316	410	
==>{ +shift->admin->auto_include(@_) };
sub auto_include_deps { +shift->admin->auto_include_deps(@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6174	6265	
==>ate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6174	6265	
==>ate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::fl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6174	6265	
==>ate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::fl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1179	1284	
==>atch: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Match" if ! defined $match; 
  $optio <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36144	36239	
==>very
tuple of the invocant relation with every tuple of the <$other> relation,
then where each m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40693	40788	
==>very
tuple of the invocant relation with every tuple of the <$other> relation,
then where each m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40307	40402	
==>very
tuple of the invocant relation with every tuple of the <$other> relation,
then where each m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9512	9749	
==>g);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1792	1902	
==>Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1792	1902	
==>Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1872	1982	
==>Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @exp <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9028	9244	
==>lue::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - th <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9028	9244	
==>lue::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	436	548	
==>_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero], <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1964	2076	
==>_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31145	31289	
==>length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31145	31289	
==>length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31145	31289	
==>length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Lis <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5043	5157	
==>f $Test::Harness::debug;
        }
    }
    $self->{_config}{test_count} = scalar @tests;
    @tests;
}

sub get_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10573	10677	
==>act 
    # methods which must be implemented
    # -----------------------------------------------

    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10573	10677	
==>act 
    # methods which must be implemented
    # -----------------------------------------------

    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10573	10677	
==>act 
    # methods which must be implemented
    # -----------------------------------------------

    m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	598	692	
==>e = shift;

	warn Carp::longmess unless $node->can("digest");
    Blondie::Backend::Perl::Built <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29021	29115	
==>ample>

This method is a generic relational operator that returns a new Relation::Example
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29669	29763	
==>ample>

This method is a generic relational operator that returns a new Relation::Example
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30830	30924	
==>ample>

This method is a generic relational operator that returns a new Relation::Example
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34887	34981	
==>ample>

This method is a generic relational operator that returns a new Relation::Example
which <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31960	32071	
==>hich is the same as the invocant Relation::Example but that some of its attributes
have been combined/wrapped in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40139	40419	
==>),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19688	19959	
==>), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4285	4409	
==>j->available( \@avail );

        }
  
        return $obj;
    }
}

=head2 $inst_pkg = $inst->is_installed( package => $pack <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7575	7682	
==>ex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	403	509	
==>ize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	403	509	
==>ize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	403	509	
==>ize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12354	12507	
==>2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12354	12507	
==>2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12354	12507	
==>2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonic <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1384	1507	
==>wed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies
    open my <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3502	3602	
==>uilder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to cre <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3502	3602	
==>uilder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to cre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5699	5799	
==>uilder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to cre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19690	19799	
==>1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # X <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19690	19799	
==>1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # X <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19690	19799	
==>1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # X <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1285	1390	
==>is confusing.
macro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueType where { $^n ~~ Num and .. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7696	7804	
==>$name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7696	7804	
==>$name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7696	7804	
==>$name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13139	13265	
==>rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13139	13265	
==>rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $li <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31886	31982	
==>brary generates an error
message and wants it shown to the user, the main program would check eac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31886	31982	
==>brary generates an error
message and wants it shown to the user, the main program would check eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33871	33983	
==>is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33871	33983	
==>is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33871	33983	
==>is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39962	40056	
==>arguments: the character
that was unexpectedly escaped, and a string.  If the warning is called <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19581	19685	
==>or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructor. For examp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18562	18666	
==>or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructor. For examp <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19581	19685	
==>or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructor. For examp <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18562	18666	
==>or ircname. Note that thesse are I<not>
necessarily the names you specified in the constructor. For examp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9925	10045	
==>r proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9925	10045	
==>r proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9925	10045	
==>r proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx] <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1605	1703	
==>erbose};
}

sub inline {
    print STDERR "Generating inlined source Prelude... " if $Config{verbos <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7943	8054	
==>);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^is macrop5 (.+)$/) {
	return p6_m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34896	34995	
==>utes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39446	39545	
==>utes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38979	39078	
==>utes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoca <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1466	1575	
==>r die "error: open '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3059	3163	
==>}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3059	3163	
==>}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3059	3163	
==>}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::o <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9046	9154	
==>arts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %en <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9046	9154	
==>arts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %en <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2501	2603	
==>eport_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!resul <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2501	2603	
==>eport_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!resul <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22949	23056	
==>th_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v => "foo", t => type::oper <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2183	2274	
==>:inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2183	2274	
==>:inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2183	2274	
==>:inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2016	2191	
==>hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self->hash_fetch };
            },
            hash_deleteElem => sub {
                my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16518	16619	
==>ess $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16518	16619	
==>ess $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16518	16619	
==>ess $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($lab <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4373	4512	
==>! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4373	4512	
==>! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4373	4512	
==>! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4040	4141	
==>\begin{block}{$desc}\\texttt
#{$file
#}
#\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7694	7809	
==>ot template text for the message key, so
        # interpolate the message vars into it and return that.
        $te <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7694	7809	
==>ot template text for the message key, so
        # interpolate the message vars into it and return that.
        $te <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	654	761	
==>$prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Silly - a subclass of the perl b <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2839	2932	
==>oth return and argument types differ.
multi infix:«¥» (Array *@arrays --> Lazy) { zip *@arr <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2502	2627	
==>ift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	207	306	
==>arser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	207	306	
==>arser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	207	306	
==>arser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10602	10713	
==>ile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10602	10713	
==>ile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10602	10713	
==>ile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24214	24295	
==>mat([],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_captures <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11550	11681	
==>..
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11550	11681	
==>..
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11550	11681	
==>..
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            wa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4776	4890	
==>erl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4776	4890	
==>erl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4776	4890	
==>erl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	114	214	
==>_;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base class - not more than just a namespac <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6078	6169	
==>vent::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYN <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6078	6169	
==>vent::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYN <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12734	12829	
==>g functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entitie <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12734	12829	
==>g functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entitie <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33282	33373	
==>ntersection (Relation $other!) returns Relation>

This multi-method is a generic binary rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37832	37923	
==>ntersection (Relation $other!) returns Relation>

This multi-method is a generic binary rela <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2429	2542	
==>'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class rep <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2429	2542	
==>'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1927	2032	
==>module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($mo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1927	2032	
==>module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($mo <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	761	920	
==>$scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NA <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	761	920	
==>$scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NA <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36843	36933	
==>considered to implement the 'main' functionality of Locale::KeyedText.

Some example usage: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36843	36933	
==>considered to implement the 'main' functionality of Locale::KeyedText.

Some example usage: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1546	1650	
==>$passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo retu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1546	1650	
==>$passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo retu <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1391	1487	
==>on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exac <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1391	1487	
==>on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9375	9530	
==>unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9375	9530	
==>unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9375	9530	
==>unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	765	891	
==>is down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10821	10954	
==>statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11100	11233	
==>statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19806	19902	
==>dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19806	19902	
==>dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5231	5437	
==>tack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5231	5437	
==>tack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5142	5247	
==>trs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8619	8724	
==>trs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17645	17737	
==>ix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17645	17737	
==>ix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17645	17737	
==>ix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1693	1810	
==>i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->license_from($file);
}

sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	464	580	
==>des = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $sr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	499	615	
==>des = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $sr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	464	580	
==>des = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $sr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	751	859	
==>ETH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	751	859	
==>ETH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24357	24462	
==>>can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_han <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20778	20883	
==>>can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_han <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2086	2196	
==>hod as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::sta <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2086	2196	
==>hod as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::sta <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	727	832	
==>DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source = <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	727	832	
==>DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3569	3673	
==>returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5] <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3569	3673	
==>returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5] <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11960	12052	
==><$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11960	12052	
==><$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6710	6819	
==>|\Q$Config{so}\E)$/, @_;
    push @libs, grep /^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pkg <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5980	6068	
==>irst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5980	6068	
==>irst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8177	8265	
==>irst two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2921	3028	
==>ge( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a mess <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2921	3028	
==>ge( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a mess <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	576	680	
==>od from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp< <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	576	680	
==>od from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp< <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2762	2859	
==>D({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2762	2859	
==>D({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14970	15061	
==>ramework and defines a common programmatic interface (API), called
the Rosetta Native Interf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14970	15061	
==>ramework and defines a common programmatic interface (API), called
the Rosetta Native Interf <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	311	415	
==>w to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# pu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	311	415	
==>w to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# pu <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	310	407	
==>($self: Duration $duration) returns Duration {
    #$self.subtract($duration);
#}

#method infix:< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2444	2537	
==>$label, hash %opts) returns method {
    { (&dispatcher.() // return).get_method($label, %opts <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4366	4507	
==>_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4366	4507	
==>_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	422	512	
==>odule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	422	512	
==>odule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11146	11247	
==>es(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8550	8651	
==>es(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11146	11247	
==>es(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8550	8651	
==>es(...)>, C<$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3877	3978	
==>er 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

Returns the c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5164	5256	
==>d'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5164	5256	
==>d'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5164	5256	
==>d'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('clas <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2207	2314	
==>$@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){
		    $valuex = eval("\"$value\""); die "bug $@\n$val <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12909	13012	
==>. " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12909	13012	
==>. " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12909	13012	
==>. " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	424	550	
==>e) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31289	31383	
==><grep> operator; that subset is those for which the the
Bool-returning anonymous function in th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35839	35933	
==><grep> operator; that subset is those for which the the
Bool-returning anonymous function in th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35057	35151	
==><grep> operator; that subset is those for which the the
Bool-returning anonymous function in th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3667	3814	
==>( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3667	3814	
==>( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23067	23164	
==>a
user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23067	23164	
==>a
user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4914	5044	
==>),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4914	5044	
==>),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2283	2412	
==>tar'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2294	2423	
==>tar'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1600	1713	
==>abstract class") if $class =~ /::anchor$/;

    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38716	38828	
==>ntainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38716	38828	
==>ntainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38716	38828	
==>ntainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9323	9438	
==>'t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9323	9438	
==>'t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9323	9438	
==>'t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pil <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	336	446	
==>my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness::St <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9206	9305	
==>\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringCharacter {  # see <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12739	12831	
==>rrence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite i <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12739	12831	
==>rrence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14260	14410	
==>:Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_er <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14260	14410	
==>:Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_er <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3876	4009	
==>} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3876	4009	
==>} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^( <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2286	2436	
==>{
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> joi <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1055	1205	
==>{
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> joi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9726	9876	
==>{
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> joi <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	949	1075	
==>{
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> joi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	286	425	
==>n '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7452	7538	
==>> ::make_method($_collect_all_roles));

## -------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7452	7538	
==>> ::make_method($_collect_all_roles));

## -------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7452	7538	
==>> ::make_method($_collect_all_roles));

## -------------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16759	16888	
==>amily . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shift;
    jo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2806	2924	
==>omatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2806	2924	
==>omatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2806	2924	
==>omatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retur <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5887	6016	
==>chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5887	6016	
==>chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi" <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3413	3527	
==>optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3413	3527	
==>optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5620	5721	
==>hings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warn <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	81	182	
==>w(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

say "$wer hat einen $ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5620	5721	
==>hings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5620	5721	
==>hings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	473	575	
==>:Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subst <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	473	575	
==>:Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subst <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9121	9211	
==>push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2946	3036	
==>push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3393	3524	
==>subscription.values».members };
                    default { take %.subscriptions<$_>.members }
                    # FIXME look a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	981	1086	
==>,
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	981	1086	
==>,
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8021	8114	
==>$newest_p_stamp = -M "$parrot_path/runtime/parrot/include/$_"
  for @pfiles;

my $rebuild;
ste <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8503	8621	
==>up {
    return "$_[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5202	5299	
==>o returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5202	5299	
==>o returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6726	6823	
==>o returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4666	4783	
==>Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # sa <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4666	4783	
==>Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # sa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2238	2344	
==>C, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2238	2344	
==>C, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	271	362	
==>s: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_c <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	271	362	
==>s: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	137	246	
==>};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	137	246	
==>};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	137	246	
==>};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ( <==
4	/Users/nnunley/pugs/util/importgraph.pl	2236	2319	
==>gs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	983	1146	
==>$rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3867	3985	
==>>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3867	3985	
==>>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3867	3985	
==>>{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	759	880	
==>ix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	759	880	
==>ix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	759	880	
==>ix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3027	3126	
==>ntext.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3027	3126	
==>ntext.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3027	3126	
==>ntext.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer th <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	282	377	
==>("reduce_" . $node->moniker))) {
		return $self->$meth($node);
	} else {
		return $self->generic <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9369	9506	
==>ete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9369	9506	
==>ete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	85	177	
==>hangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Pe <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	85	177	
==>hangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Pe <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	275	403	
==>(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_stream cutsort
#                 i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9021	9140	
==>p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9021	9140	
==>p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9021	9140	
==>p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7817	7918	
==>ories on test include list
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Exclu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4885	4983	
==>:doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4885	4983	
==>:doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4885	4983	
==>:doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2099	2195	
==>ass / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2188	2284	
==>ass / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pug <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5911	6030	
==>_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::po <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3116	3231	
==>1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3116	3231	
==>1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3116	3231	
==>1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16273	16387	
==>ub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	806	908	
==>"PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	806	908	
==>"PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	806	908	
==>"PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retv <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13052	13142	
==>set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9776	9866	
==>set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13052	13142	
==>set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9776	9866	
==>set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7603	7713	
==>ic_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6733	6843	
==>ic_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7603	7713	
==>ic_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6733	6843	
==>ic_difference(set(@args));
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12295	12395	
==>cute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
fe <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12295	12395	
==>cute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
fe <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4370	4465	
==>+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4370	4465	
==>+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	121	222	
==>Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalon <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2194	2295	
==>egexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	121	222	
==>Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalon <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	121	222	
==>Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalon <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3833	3977	
==>\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $q <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3821	3965	
==>\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $q <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	164	268	
==>s.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	164	268	
==>s.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15405	15523	
==>le '$name'";
    FAIL();
  }

  my $pos = $X::pos;
  my $cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1620	1724	
==>ler() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1620	1724	
==>ler() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' arg <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1620	1724	
==>ler() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3117	3302	
==>c workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3117	3302	
==>c workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3117	3302	
==>c workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8780	8961	
==>defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8780	8961	
==>defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8780	8961	
==>defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23331	23431	
==>*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23331	23431	
==>*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23331	23431	
==>*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	466	565	
==>on to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_nu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7695	7784	
==>s, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1520	1609	
==>s, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5309	5449	
==>match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5321	5461	
==>match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "ca <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	37	144	
==>m = 17;

sub is_prim { 
	... # teste ob $prim prim ist
}

sub search_prim_within( $count ) {
	my @numbers := <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6230	6320	
==>= shift;
	my $node = shift;

	$self->mangle_sym_name($node->struct_equiv->val->struct_equiv <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2256	2397	
==>chet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2244	2385	
==>chet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3166	3302	
==>();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3166	3302	
==>();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	65	192	
==>c.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12773	12859	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12773	12859	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12773	12859	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2463	2570	
==>"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2463	2570	
==>"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pil <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2463	2570	
==>"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pil <==
4	/Users/nnunley/pugs/util/package-osx.pl	822	928	
==>/libparrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        /usr/local/lib/libparrot.dylib
        /u <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2630	2737	
==>1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $f <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3066	3173	
==>1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $f <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20113	20206	
==>t>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20113	20206	
==>t>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	184	287	
==>contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	184	287	
==>contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	768	864	
==>on Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Prox <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	768	864	
==>on Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Prox <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2696	2822	
==>ole->id . " [ dir = back, style = solid, color = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, ">", $A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4391	4479	
==>ue_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4391	4479	
==>ue_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4391	4479	
==>ue_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9184	9282	
==>s = $parser->nparen;

=head2 Getting All Captures

You can access all the capture groups with the c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18210	18303	
==>I SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18210	18303	
==>I SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18210	18303	
==>I SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1735	1850	
==>infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns t <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1498	1613	
==>infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns t <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1735	1850	
==>infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns t <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1498	1613	
==>infinite size.

= OBJECT METHODS

The following methods are available for Set::Span objects:

- `start()`

Returns t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12498	12630	
==>oxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12498	12630	
==>oxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12498	12630	
==>oxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' = <==
4	/Users/nnunley/pugs/util/importgraph.pl	2752	2859	
==>k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g->add_ed <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1838	1940	
==>) ) for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [S <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1838	1940	
==>) ) for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [S <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3195	3291	
==>ble 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3195	3291	
==>ble 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2063	2326	
==>od ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF] <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2063	2326	
==>od ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8885	8997	
==>[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8873	8985	
==>[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48156	48349	
==>tore(
                      $e->get('$label'),
                      $e->get('$value')
                  );
            }
        )
    )
);

## ------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	431	532	
==>* functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	431	532	
==>* functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	431	532	
==>* functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shif <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	696	811	
==>method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return .pad();
} <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	696	811	
==>method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return .pad();
} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32066	32164	
==>at corresponds to language A, looking for a match to said error
message.  If it finds one, then tha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32066	32164	
==>at corresponds to language A, looking for a match to said error
message.  If it finds one, then tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	681	769	
==>n: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ge <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	681	769	
==>n: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ge <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	681	769	
==>n: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/ge <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11060	11175	
==>AGE__,$namestr,$code_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4119	4220	
==>o a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4119	4220	
==>o a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6316	6417	
==>o a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4205	4378	
==>";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XX <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5526	5699	
==>";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4205	4378	
==>";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XX <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5514	5687	
==>";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XX <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4915	5007	
==>mmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4042	4134	
==>mmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4915	5007	
==>mmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4042	4134	
==>mmetric_difference($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1135	1244	
==>y) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1135	1244	
==>y) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1135	1244	
==>y) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<po <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3443	3542	
==>) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispat <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24938	25031	
==>e Locale::KeyedText::Message Class

A Message object is a simple container which stores data t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24938	25031	
==>e Locale::KeyedText::Message Class

A Message object is a simple container which stores data t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19858	19988	
==>ike this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DES <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19858	19988	
==>ike this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DES <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19858	19988	
==>ike this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DES <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3356	3451	
==>perl5 to execute C</usr/bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pugs::C <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4428	4552	
==>avepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4973	5086	
==>_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4973	5086	
==>_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4973	5086	
==>_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3529	3663	
==>f, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3529	3663	
==>f, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3529	3663	
==>f, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - se <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4736	4826	
==>, digits_int(Max).
p5_range_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_range_boun <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6279	6456	
==>m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5787	5964	
==>m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine p <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2557	2688	
==>mpiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2557	2688	
==>mpiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4074	4205	
==>${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4074	4205	
==>${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->par <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26953	27049	
==>if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $messag <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26953	27049	
==>if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $messag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10594	10713	
==>@{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10594	10713	
==>@{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10594	10713	
==>@{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12946	13121	
==>{
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::L <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12946	13121	
==>{
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::L <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12946	13121	
==>{
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::L <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4384	4481	
==>ll be popped, then the Seq will finish, the Thunk will
finish, the stacks will be popped once more <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7448	7569	
==>delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"rd") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6151	6269	
==>_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6151	6269	
==>_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6151	6269	
==>_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercla <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31952	32055	
==>ts C<$other> argument, where <$other> has the same heading as
the invocant Relation, and returns a new R <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33813	33916	
==>ts C<$other> argument, where <$other> has the same heading as the
invocant Relation, and returns a new R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36502	36605	
==>ts C<$other> argument, where <$other> has the same heading as
the invocant Relation, and returns a new R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38363	38466	
==>ts C<$other> argument, where <$other> has the same heading as the
invocant Relation, and returns a new R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3197	3312	
==>d foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3197	3312	
==>d foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3197	3312	
==>d foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1819	1931	
==>od <[[CanPut]]> ($O: JSX::String $P) {
    if $O.property_value.exists($P) {
        my $attr = $O.property_attri <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6410	6536	
==><lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot determine au <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2367	2458	
==>fg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2367	2458	
==>fg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2367	2458	
==>fg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3832	3942	
==>">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3832	3942	
==>">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3832	3942	
==>">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach ( <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6607	6715	
==>constructor
	}, $class;
}

# functions are applied 
package fun;
use base qw/node/;

package comb;
use base q <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23933	24065	
==>ss {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5659	5760	
==>$pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5659	5760	
==>$pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5659	5760	
==>$pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11965	12086	
==>thod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11965	12086	
==>thod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11965	12086	
==>thod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6394	6493	
==>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7130	7229	
==>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6394	6493	
==>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7130	7229	
==>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$chan <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	125	241	
==>s export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	125	241	
==>s export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4802	4906	
==>n array of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4802	4906	
==>n array of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $ciphe <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3597	3709	
==>D () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3597	3709	
==>D () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5841	5949	
==>rn '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5841	5949	
==>rn '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7773	7877	
==>r-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4999	5096	
==>alar {p6_new('Scalar',@_)}

# XXX - Using field names here is a major abstraction violation.
# Nee <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	18	110	
==>r-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	18	110	
==>r-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4965	5069	
==>l_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4965	5069	
==>l_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2712	2805	
==>HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2712	2805	
==>HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2940	3037	
==>st>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the cli <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2940	3037	
==>st>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the cli <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1567	1662	
==>t {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1567	1662	
==>t {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1618	1730	
==>pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9479	9588	
==>ritable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9479	9588	
==>ritable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9479	9588	
==>ritable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23554	23692	
==>($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2514	2611	
==>oaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2514	2611	
==>oaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_on <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2514	2611	
==>oaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_on <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	177	301	
==>ub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	171	295	
==>ub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	177	301	
==>ub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	171	295	
==>ub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9879	9992	
==>n.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'proc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9879	9992	
==>n.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'proc <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2607	2699	
==>le::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2607	2699	
==>le::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagi <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	745	852	
==>x {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	292	392	
==>end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	292	392	
==>end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	292	392	
==>end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1740	1863	
==>var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1740	1863	
==>var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1740	1863	
==>var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undef <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	31029	31125	
==>C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

This program is free s <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3104	3202	
==>_expr>? }
rule interpolated_hash     { \% <name> <element_expr>? }
# XXX - kludge
rule element_expr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2783	2873	
==>$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2783	2873	
==>$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2783	2873	
==>$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2145	2267	
==>t( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11013	11135	
==>t( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2338	2460	
==>t( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11292	11414	
==>t( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1195	1304	
==>OPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1195	1304	
==>OPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1195	1304	
==>OPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	223	316	
==>--------------------------
## This is an extension of the Mini-MetaModel which adds explicit E <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39397	39511	
==>rrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5132	5246	
==>rrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39397	39511	
==>rrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5132	5246	
==>rrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Locale::KeyedText library.

Locale::KeyedT <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4264	4381	
==>F); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4264	4381	
==>F); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27292	27400	
==>> $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must al <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27292	27400	
==>> $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4075	4180	
==>eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4075	4180	
==>eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4075	4180	
==>eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub com <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9127	9231	
==>op{'paramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6572	6670	
==>p2 = $$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $top <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4493	4615	
==>-----------------------

my $Role;

my $_resolve = sub ($) {
    my ($self) = @_;
    my %roles;
    foreach my $role (@{:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13313	13412	
==>($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13313	13412	
==>($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13313	13412	
==>($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1303	1409	
==>f->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1443	1549	
==>f->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	113	219	
==>ok also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	108	208	
==>ok also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to ma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4218	4389	
==>ly add symbol types to a param list"
            foreach @_;
    $self->SUPER::unshift(@_);
}

sub push : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33989	34103	
==>Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33989	34103	
==>Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33989	34103	
==>Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22475	22589	
==>),
			param => comb(
				fun => ide("listify"),
				param => val(10),
			),
		),
	),
);

my $length_and_first_gen = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1567	1675	
==>n "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('N <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1567	1675	
==>n "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('N <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1567	1675	
==>n "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5344	5497	
==>' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5176	5322	
==>' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8951	9053	
==>UB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8951	9053	
==>UB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8951	9053	
==>UB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21440	21541	
==>s(word)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C) :- !, \+(char_type( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6814	6911	
==>,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6814	6911	
==>,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6814	6911	
==>,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5205	5334	
==>:proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub sk <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5263	5392	
==>:proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub sk <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	4	105	
==>sr/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	4	105	
==>sr/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10238	10405	
==>\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6579	6746	
==>\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7428	7595	
==>\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7466	7552	
==>t_equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blo <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	41	148	
==>= @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_pa <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	41	148	
==>= @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_pa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3563	3659	
==>pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3563	3659	
==>pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1193	1289	
==>«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1193	1289	
==>«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1193	1289	
==>«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8084	8200	
==>b {
	my($s)=@_;
	$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind eq 'SubPrim' && $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1229	1344	
==>un=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1229	1344	
==>un=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1229	1344	
==>un=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  " <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19602	19706	
==>rn (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2360	2475	
==>blem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2360	2475	
==>blem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2360	2475	
==>blem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	130	235	
==>/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7132	7276	
==>celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7132	7276	
==>celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7132	7276	
==>celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	339	455	
==>ut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submeth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	339	455	
==>ut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submeth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3163	3263	
==>t:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3163	3263	
==>t:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7860	7990	
==>"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(872 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7860	7990	
==>"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(872 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	479	576	
==>r is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub c <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	479	576	
==>r is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub c <==
4	/Users/nnunley/pugs/util/package-osx.pl	1527	1616	
==>local/lib/perl5/site_perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib/p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1938	2040	
==>tring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1938	2040	
==>tring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= St <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1938	2040	
==>tring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= St <==
4	/Users/nnunley/pugs/util/func_refact.pl	290	384	
==>set sizes for all functions
by default, or use -initial <fname>, possibly many times, to
specif <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	249	352	
==>er needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26238	26337	
==>a can sell you a warranty for it.

While it is by no means required, the copyright holders of Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26238	26337	
==>a can sell you a warranty for it.

While it is by no means required, the copyright holders of Rosett <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	200	297	
==>er needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1638	1770	
==>$_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1582	1711	
==>$_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3703	3795	
==>sure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3703	3795	
==>sure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3645	3772	
==>$_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8886	8988	
==>ted package and an optional available list
    ### and check if the package is available/provided by an <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10363	10465	
==>ted package and an optional available list
    ### and check if the package is available/provided by an <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4988	5084	
==>r:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann\ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	717	831	
==>}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3097	3198	
==>.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3097	3198	
==>.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3097	3198	
==>.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8736	8852	
==>a PHP-based strap.

=cut

sub _command {
    my $self = shift;

    return $ENV{HARNESS_PERL}           if defined $E <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2409	2505	
==>arr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2409	2505	
==>arr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18544	18639	
==>selves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are h <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18544	18639	
==>selves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are h <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2466	2567	
==>--------------------------------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	693	788	
==>i sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	693	788	
==>i sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	693	788	
==>i sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0. <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14032	14128	
==>hash> in no apparent order, but the order
will be the same between successive calls to these func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3171	3259	
==>to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3171	3259	
==>to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3171	3259	
==>to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3413	3557	
==>_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3413	3557	
==>_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3413	3557	
==>_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6908	7013	
==>nd -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure => sub { defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11938	12080	
==>arter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11938	12080	
==>arter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2406	2499	
==>rn $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16013	16105	
==>rn $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$s <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5010	5227	
==>n event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of th <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5010	5227	
==>n event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of th <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	289	393	
==>turns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	289	393	
==>turns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6932	7050	
==>E', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6932	7050	
==>E', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10647	10754	
==>undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10647	10754	
==>undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $se <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6706	6857	
==>ad\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|lic <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6763	6914	
==>ad\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|lic <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6415	6506	
==>n::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6415	6506	
==>n::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1433	1531	
==>e_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1433	1531	
==>e_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1433	1531	
==>e_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2321	2432	
==>param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2321	2432	
==>param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3814	3920	
==>> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3814	3920	
==>> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3273	3373	
==>[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3273	3373	
==>[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3273	3373	
==>[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $sel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10530	10624	
==>der names.

The header() method accepts multiple ($field => $value) pairs, which
means that you <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10530	10624	
==>der names.

The header() method accepts multiple ($field => $value) pairs, which
means that you <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8760	8853	
==>finite` object using an existing Recurrence object.

- `universal_set()`

Creates an object wi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8760	8853	
==>finite` object using an existing Recurrence object.

- `universal_set()`

Creates an object wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40806	40926	
==>r {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40806	40926	
==>r {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40806	40926	
==>r {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{array <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	557	664	
==>ly
    # the default values too)
    (blessed($signature) && ($signature->isa('closure::params') || $signatu <==
4	/Users/nnunley/pugs/util/func_refact.pl	1003	1137	
==>";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	668	769	
==>_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	668	769	
==>_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	668	769	
==>_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1214	1311	
==>tem B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1214	1311	
==>tem B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1761	1858	
==>tem B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

= <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2214	2306	
==>um_width'} == 64, 'subset complex of complex64  where { true }');
Helpers::macif(%?CONFIG{'nu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1074	1190	
==>s;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: join( ' ', @_ );
}

sub bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13656	13791	
==>>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13656	13791	
==>>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13656	13791	
==>>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7890	8065	
==>e right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        ne <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8354	8529	
==>e right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24318	24428	
==>ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation bra <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20739	20849	
==>ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation bra <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16279	16409	
==>_",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @! <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16279	16409	
==>_",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33662	33782	
==>for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33662	33782	
==>for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33662	33782	
==>for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	888	1003	
==><tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18452	18606	
==>uleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18731	18885	
==>uleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5793	5896	
==>----- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method pre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5793	5896	
==>----- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	462	622	
==>) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	462	622	
==>) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	784	888	
==>t.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( St <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	784	888	
==>t.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37164	37288	
==>->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37164	37288	
==>->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37164	37288	
==>->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2760	2868	
==>)
        (($current send (has_method $label)) and (= $method ($current send (get_method $label)))
         ( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3307	3401	
==>[^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\) <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1230	1347	
==>f->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Perl version '$perl_version' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	59	165	
==>File.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	59	165	
==>File.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	59	161	
==>File.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	849	962	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	849	962	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	849	962	
==>ain_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	989	1114	
==>ight =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17802	17894	
==>infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17802	17894	
==>infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17802	17894	
==>infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1988	2096	
==>hObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ( <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13879	13983	
==>here it can't plausibly be reached to
  change.

  There may be no place to put the flag value?  And then <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22847	22999	
==>)
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::consta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23126	23278	
==>)
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::consta <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3077	3190	
==>all o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slas <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3077	3190	
==>all o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1626	1754	
==>shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1626	1754	
==>shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1626	1754	
==>shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    r <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2144	2265	
==>ke encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { or <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2144	2265	
==>ke encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { or <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2082	2192	
==>ARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2082	2192	
==>ARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15320	15437	
==>p = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2498	2605	
==>ar => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2498	2605	
==>ar => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Dat <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2845	2952	
==>ar => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Dat <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1811	1925	
==>STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you failed.\n";
   }
}

# ------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7548	7641	
==>\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7548	7641	
==>\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7548	7641	
==>\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params-> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2329	2434	
==>xternal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2877	2982	
==>xternal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3255	3353	
==>d, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3255	3353	
==>d, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2236	2345	
==>hould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2236	2345	
==>hould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,und <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2236	2345	
==>hould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,und <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4839	4926	
==>f {p6_new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3578	3705	
==>more robust
    local $CWD = $builddir;
    
    ### XXX invoke build code here

    ### build an archive file
    my $archive = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5917	6037	
==>: '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5917	6037	
==>: '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5917	6037	
==>: '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	331	431	
==>ce(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	331	431	
==>ce(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	331	431	
==>ce(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5381	5555	
==>) {
                $t = [ 'SUB' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10213	10350	
==>f($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10213	10350	
==>f($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        d <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13663	13763	
==>=> sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as_array_complain->("numeri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2743	2893	
==>ethods rely on it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if the metadir doesn't exist yet, th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4253	4383	
==>lurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4253	4383	
==>lurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4253	4383	
==>lurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $typ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3450	3545	
==>TTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can r <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3450	3545	
==>TTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33113	33201	
==>d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37663	37751	
==>d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Rel <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14432	14609	
==>e tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17909	18086	
==>e tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17325	17502	
==>e tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16551	16662	
==>s::unify(
		my $t = type($.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8983	9107	
==>*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8979	9103	
==>*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2424	2547	
==>*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2424	2547	
==>*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optio <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1608	1822	
==>.pod 8651.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4000	4089	
==>turns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4000	4089	
==>turns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6197	6286	
==>turns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8123	8227	
==>lementation for Perl 6 operator precedence.  

=head1 METHODS

=head2 new ()

Class method.  Return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	282	381	
==>Exception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	282	381	
==>Exception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	282	381	
==>Exception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	594	711	
==>e program aborts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10404	10524	
==>) {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10404	10524	
==>) {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    metho <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7090	7186	
==>::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7090	7186	
==>::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5855	5960	
==>{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5855	5960	
==>{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5855	5960	
==>{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems = <==
4	/Users/nnunley/pugs/util/package-osx.pl	11952	12043	
==>);
&make_symlinks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($dest, values % <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1593	1693	
==>OGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always re <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1593	1693	
==>OGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38896	38992	
==>ile is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43710	43806	
==>ile is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18424	18562	
==>q 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18424	18562	
==>q 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18424	18562	
==>q 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2320	2438	
==>params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1546	1676	
==>p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1546	1676	
==>p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1546	1676	
==>p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p- <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2806	2913	
==>simplified one.
#multi Array::pop ( --> Scalar ) {
multi Array::pop (  ) {
    Array::pop @+_;
}

# copied f <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	501	603	
==>se while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17319	17419	
==>fference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20796	20896	
==>fference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20374	20474	
==>fference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return R <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2338	2433	
==>ns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method supe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2338	2433	
==>ns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method supe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1030	1133	
==>:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1030	1133	
==>:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1030	1133	
==>:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "i <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1328	1421	
==>smokeserv
$ENV{HARNESS_PERL}  = "$^X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5308	5499	
==>ame =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5308	5499	
==>ame =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5308	5499	
==>ame =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11179	11280	
==>nd associated metadata removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_alternative <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8223	8320	
==>$!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11700	11797	
==>$!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10983	11074	
==>decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10983	11074	
==>decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2649	2751	
==>or die "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix save <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1983	2068	
==>Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1983	2068	
==>Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1983	2068	
==>Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2766	2874	
==>ncat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7576	7684	
==>a = $_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variable {
    return $_[0];
}
*node::vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2766	2874	
==>ncat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2766	2874	
==>ncat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing in <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5617	5720	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operato <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4747	4850	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operato <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5617	5720	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operato <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4747	4850	
==>(Set $one, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operato <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	158	289	
==>ss = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1785	1885	
==>String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1785	1885	
==>String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1785	1885	
==>String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inlin <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4459	4587	
==>my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4459	4587	
==>my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2068	2161	
==>nofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bibl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2068	2161	
==>nofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bibl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7040	7134	
==>r <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7040	7134	
==>r <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7040	7134	
==>r <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6469	6567	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5599	5697	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6469	6567	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5599	5697	
==>» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (S <==
4	/Users/nnunley/pugs/util/claim_drift.pl	879	992	
==>{ $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    pri <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27650	27745	
==>extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given eac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32202	32297	
==>extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given eac <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31294	31389	
==>extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35267	35394	
==>n_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35267	35394	
==>n_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35267	35394	
==>n_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body= <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32853	32948	
==>er!) returns Relation>

This multi-method is a generic binary relational operator that is like
C <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33308	33403	
==>er!) returns Relation>

This multi-method is a generic binary relational operator that is like
C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37403	37498	
==>er!) returns Relation>

This multi-method is a generic binary relational operator that is like
C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37858	37953	
==>er!) returns Relation>

This multi-method is a generic binary relational operator that is like
C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	11693	11825	
==>ole}    = $whole;
      $link->{relfile}  = $relative_file;
      if ($regex) {
        $reopts||='';
        $link->{regex} = eval " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2177	2291	
==>un perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2177	2291	
==>un perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2177	2291	
==>un perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5651	5765	
==>am[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $node- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5470	5582	
==>am[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $node- <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7280	7379	
==>ase);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($b <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7280	7379	
==>ase);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4003	4109	
==>on for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4003	4109	
==>on for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4003	4109	
==>on for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	241	381	
==>aning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "qu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	241	381	
==>aning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "qu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13595	13698	
==>everal times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.las <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13595	13698	
==>everal times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2096	2199	
==>=> $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2096	2199	
==>=> $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2443	2546	
==>=> $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::B <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2271	2372	
==>f->version || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $self->test <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5260	5393	
==>\"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # X <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6528	6661	
==>\"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # X <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5260	5393	
==>\"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # X <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6516	6649	
==>\"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # X <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17326	17440	
==>lit(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11941	12054	
==>lit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = rev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11941	12054	
==>lit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = rev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11941	12054	
==>lit(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = rev <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4237	4341	
==>nd @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4237	4341	
==>nd @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4237	4341	
==>nd @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7794	7912	
==>=> BOOL])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shift;
    my %args = @_;
    my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11641	11748	
==>pts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11641	11748	
==>pts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11641	11748	
==>pts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4548	4678	
==>it           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4548	4678	
==>it           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4548	4678	
==>it           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
su <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	294	394	
==>returns Date {
    ...
}

method subtract($self: Duration $duration) returns Date {
    $self.add(-$d <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8085	8190	
==>for @pfiles;

my $rebuild;
step
  descr  => "Checking if we have to rebuild the initrd",
  ensure => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3145	3245	
==>"&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3145	3245	
==>"&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3145	3245	
==>"&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval( <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9722	9858	
==>x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9722	9858	
==>x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1480	1628	
==>ems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1584	1732	
==>ems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1480	1628	
==>ems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1584	1732	
==>ems -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	27	130	
==>proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	27	130	
==>proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	27	130	
==>proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9221	9321	
==>(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9221	9321	
==>(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9221	9321	
==>(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $nam <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21679	21777	
==>ier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <'break'><no_LineTerminator_here><Iden <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30410	30508	
==>h each set member being an an exclusive alternative for the rest
of the set. There is a separate te <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30410	30508	
==>h each set member being an an exclusive alternative for the rest
of the set. There is a separate te <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1500	1596	
==>Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, th <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1500	1596	
==>Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3254	3461	
==>),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14581	14665	
==>::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14581	14665	
==>::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14581	14665	
==>::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3608	3720	
==>turns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3608	3720	
==>turns Set {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4483	4593	
==>turns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4483	4593	
==>turns Set {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4117	4237	
==>ody->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4117	4237	
==>ody->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4117	4237	
==>ody->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6476	6564	
==>ody=>$body,lvalue=>$lval);
	my $ret = eval($code);
	Carp::confess("p6_new($cls,$name,...) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9330	9451	
==>$.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "decip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9330	9451	
==>$.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "decip <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12366	12464	
==>currence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the para <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12366	12464	
==>currence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the para <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5630	5753	
==>code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6898	7021	
==>code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5630	5753	
==>code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6886	7009	
==>code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1916	2008	
==>r.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1916	2008	
==>r.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1916	2008	
==>r.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { retur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9861	9945	
==>(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_item(char <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	117	208	
==>line('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	117	208	
==>line('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	117	208	
==>line('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4426	4588	
==>ext eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4426	4588	
==>ext eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            la <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4426	4588	
==>ext eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            la <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22709	22806	
==>aint on what fields can contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 R <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4228	4316	
==>a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> param <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4228	4316	
==>a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6425	6513	
==>a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> param <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11323	11437	
==>scalar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3701	3803	
==>{
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3701	3803	
==>{
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3701	3803	
==>{
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1939	2072	
==>return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1939	2072	
==>return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $h <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	170	262	
==>d _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.el <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	170	262	
==>d _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5708	5817	
==>jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5708	5817	
==>jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5708	5817	
==>jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4111	4202	
==>_block($node, $symbol, $body, $self->resolve_type($node));
}

sub define_named_block {
	my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1604	1740	
==>roup',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1615	1751	
==>roup',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> l <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11852	11948	
==>ME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11852	11948	
==>ME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Ent <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18215	18331	
==>lp->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "confess" : "c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21153	21264	
==>isual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @IS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5540	5638	
==>/lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related fi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5348	5445	
==>/lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related fi <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10189	10309	
==>::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3381	3489	
==>ub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3381	3489	
==>ub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3381	3489	
==>ub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3180	3278	
==>ot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3180	3278	
==>ot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20696	20787	
==>join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan" <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20696	20787	
==>join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1721	1835	
==>wrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1721	1835	
==>wrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1721	1835	
==>wrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	88	185	
==>:BaseCategory);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implem <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7601	7715	
==>' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method list (u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4501	4605	
==>ation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Ja <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4501	4605	
==>ation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Ja <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4501	4605	
==>ation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Ja <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13820	13991	
==>nput( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them fr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13820	13991	
==>nput( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them fr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4746	4854	
==>erclass' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:me <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	3595	3695	
==>{
    print "P6 design documents   : Won't generate cross-referenced P6 design documents\n";
} else { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2161	2316	
==>Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prototype => new Object(),
    # class definition
        get_x => sub { $x },
        ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10929	11057	
==>rivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10929	11057	
==>rivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10929	11057	
==>rivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12610	12696	
==>2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12610	12696	
==>2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12610	12696	
==>2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12437	12550	
==>'$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12437	12550	
==>'$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12437	12550	
==>'$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::cr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3905	4013	
==>tch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4122	4230	
==>tch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	356	463	
==>Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	356	463	
==>Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5467	5589	
==>x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5467	5589	
==>x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7232	7333	
==><_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and r <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7232	7333	
==><_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and r <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1725	1828	
==>ath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1725	1828	
==>ath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1341	1432	
==>{
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slurpy <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1341	1432	
==>{
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slurpy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6561	6669	
==>on ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6342	6445	
==>on ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually con <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1283	1383	
==>ues with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concate <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1283	1383	
==>ues with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concate <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2314	2409	
==>ength })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2314	2409	
==>ength })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2314	2409	
==>ength })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20806	20896	
==>d (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=cut

$::Class->send('add_method' => ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2490	2613	
==>oter returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expected $.expect but ran $ru <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15407	15504	
==>nes the
minimum length of a string that would be matched by the regex; provides
a front-end method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	978	1069	
==>t,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_matc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	978	1069	
==>t,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_matc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	978	1069	
==>t,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_matc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1167	1275	
==>as

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1167	1275	
==>as

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11569	11708	
==>hes}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so we don't try to put literal newlines and crs onto the
	# command <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3894	4015	
==>to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3894	4015	
==>to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3894	4015	
==>to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  c <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23976	24070	
==>ify, "∀α. ∀β. α → β", "pretty print a -> b");

	$b->instantiate( type::operator::null <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2074	2227	
==>ay "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp = <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2074	2227	
==>ay "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10992	11088	
==>ed.

A multi-valued field will be returned as separate values in list
context and will be concate <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10992	11088	
==>ed.

A multi-valued field will be returned as separate values in list
context and will be concate <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34436	34529	
==>matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38986	39079	
==>matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14052	14179	
==>al { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14052	14179	
==>al { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14052	14179	
==>al { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10546	10672	
==>a}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{data} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6319	6409	
==>------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6319	6409	
==>------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6319	6409	
==>------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercla <==
4	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	216	310	
==>= Test::Harness::Iterator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4478	4592	
==>.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4478	4592	
==>.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7975	8075	
==>leop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7702	7798	
==>leop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6392	6505	
==>for remaining whitespace!

    $p = Pugs::Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	562	669	
==>al = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	332	439	
==>al = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	332	439	
==>al = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	787	902	
==>);
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	787	902	
==>);
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	787	902	
==>);
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Cont <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	119	217	
==>ukt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4057	4153	
==>tional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5typ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4057	4153	
==>tional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5typ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4647	4743	
==>tional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11733	11884	
==>>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11733	11884	
==>>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11733	11884	
==>>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36232	36330	
==>Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array reference of any number of objects

Dir: -1 if lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7916	8074	
==>warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7916	8074	
==>warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7916	8074	
==>warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	3249	3359	
==>aller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, k <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20537	20639	
==>us, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{ml}dubious\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5152	5253	
==>@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5152	5253	
==>@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5152	5253	
==>@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	640	746	
==>rs = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!heade <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	640	746	
==>rs = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!heade <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	299	402	
==>a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	299	402	
==>a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3558	3660	
==>LTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	197	299	
==>A = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3558	3660	
==>LTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3558	3660	
==>LTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2575	2678	
==>b("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ( <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2575	2678	
==>b("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18865	18961	
==>ss expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anyt <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18865	18961	
==>ss expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anyt <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1229	1343	
==>mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1229	1343	
==>mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11834	11966	
==>~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SEL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15311	15443	
==>~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SEL <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14646	14778	
==>~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SEL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1033	1123	
==>, "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36868	36987	
==>y( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36868	36987	
==>y( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36868	36987	
==>y( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used i <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7755	7852	
==>my $ghc_pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package-url/;
}

sub _no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1821	1923	
==>],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1821	1923	
==>],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19293	19388	
==>tinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data defi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19293	19388	
==>tinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12533	12638	
==>w( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12533	12638	
==>w( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unbo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12533	12638	
==>w( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unbo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8537	8645	
==>e HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lis <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8537	8645	
==>e HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6654	6802	
==>ERR') ) { 
                return " print STDERR '', " . _emit( $n->{param} ) . ', "\n"';
            }
            return " print '', $s" . ', "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1896	2000	
==>ethod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1896	2000	
==>ethod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1896	2000	
==>ethod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6416	6522	
==>cendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## test adding a class meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22600	22691	
==>,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22600	22691	
==>,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22600	22691	
==>,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1267	1414	
==>ct ) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3951	4051	
==>s is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3951	4051	
==>s is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5475	5575	
==>s is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Te <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1409	1511	
==>ctor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterion    : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13120	13217	
==>rgl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13120	13217	
==>rgl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13120	13217	
==>rgl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_u <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	169	263	
==>de, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	225	319	
==>de, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	169	263	
==>de, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	225	319	
==>de, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_" ~ $Test::num_of_tests_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33620	33734	
==>my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33620	33734	
==>my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33620	33734	
==>my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6031	6129	
==>olve'), '... we do not have the resolve method');

# Bootstrap -> Class does Role 
::opaque_instanc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1194	1394	
==>e {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Boo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1194	1394	
==>e {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Boo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26514	26612	
==>f you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, : <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26514	26612	
==>f you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, : <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	668	802	
==>ic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1271	1376	
==>O - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported ye <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1271	1376	
==>O - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported ye <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1271	1376	
==>O - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported ye <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20198	20303	
==>($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1$2;";
	}
	my $argl2 = $argl;
	$arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	128	225	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	128	225	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	128	225	
==>(%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub u <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9801	9923	
==>ule',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpola <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1243	1365	
==>};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($inpu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9801	9923	
==>ule',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpola <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1243	1365	
==>};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($inpu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34040	34153	
==>ub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34040	34153	
==>ub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34040	34153	
==>ub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3902	4011	
==>ore {
    my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa('symbol'))
        || confess " <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3472	3566	
==>etta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document des <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8630	8724	
==>s> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3472	3566	
==>etta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document des <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8630	8724	
==>s> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12576	12716	
==>LKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12576	12716	
==>LKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12576	12716	
==>LKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5151	5256	
==>($method);
    }

    my $admin = $self->{admin} or die <<"END_DIE";
The '$method' method does not exist i <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	367	482	
==>ine ( $self->_read_script($script_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line =~ /^ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13078	13175	
==>primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic da <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18173	18270	
==>primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic da <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13078	13175	
==>primitive Perl data structures (hash refs, array refs, scalars),
which is suitable as a generic da <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18173	18270	
==>primitive Perl data structures (hash refs,
array refs, scalars), which is suitable as a generic da <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1850	1961	
==>g $P) {
    if $O.property_value.exists($P) {
        my $attr = $O.property_attributes{$P};
        return JSX: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2698	2798	
==>hod size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6175	6275	
==>hod size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5105	5205	
==>hod size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18206	18298	
==>n describes the rather complex algorithm that
Module::Compile uses.

First, the source module <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18206	18298	
==>n describes the rather complex algorithm that
Module::Compile uses.

First, the source module <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5670	5810	
==>n ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5670	5810	
==>n ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5670	5810	
==>n ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2803	2918	
==>-ify
sub build {
    my $self = shift;
    my $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_ji <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24676	24830	
==>capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24955	25109	
==>capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	281	391	
==>::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	281	391	
==>::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkp <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5205	5323	
==>shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1506	1609	
==>ct as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1506	1609	
==>ct as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1506	1609	
==>ct as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11088	11186	
==>ion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11088	11186	
==>ion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10771	10866	
==>dy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11050	11145	
==>dy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1919	2035	
==>?ws>? <named_capture_body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6358	6459	
==>r) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6358	6459	
==>r) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6358	6459	
==>r) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	790	901	
==>~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10440	10550	
==>--------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10440	10550	
==>--------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10440	10550	
==>--------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemen <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11756	11884	
==>OPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Dat <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11756	11884	
==>OPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Dat <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6738	6839	
==>n a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Po <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6738	6839	
==>n a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2851	2965	
==>d(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2851	2965	
==>d(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2851	2965	
==>d(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11710	11820	
==>heading);

    return Relation::Example.new(
        heading => $!heading,
        body => $!body.difference( $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1977	2074	
==>my $regexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1307	1395	
==>espace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1307	1395	
==>espace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1307	1395	
==>espace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $de <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	35	175	
==>her API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        me <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	35	175	
==>her API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        me <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2648	2748	
==>TP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2648	2748	
==>TP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); } <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4653	4757	
==>fined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http:// <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4653	4757	
==>fined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http:// <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1640	1731	
==>Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Nod <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1640	1731	
==>Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	443	552	
==>>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	443	552	
==>>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	443	552	
==>>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tai <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	663	764	
==>urpy;

# in fact, maybe the following syntax could auto-define the extra
# types for 1 to 1 correspond <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1601	1760	
==>,
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1601	1760	
==>,
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3127	3281	
==>.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3127	3281	
==>.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1688	1793	
==>lue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1688	1793	
==>lue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %! <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8681	8776	
==>ng existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object us <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8681	8776	
==>ng existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1363	1469	
==>rguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1363	1469	
==>rguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1363	1469	
==>rguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2276	2374	
==>ced::extract_delimited( '"' . $_[0], '"' );
    $extracted = substr( $extracted, 1, -1 ) if length( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6201	6308	
==>s = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6201	6308	
==>s = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6201	6308	
==>s = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1063	1166	
==>$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inhe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	295	391	
==>arkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	295	391	
==>arkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	295	391	
==>arkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but do <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9388	9475	
==>, charset_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_ident <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2146	2257	
==>L::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2146	2257	
==>L::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2146	2257	
==>L::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArg <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3098	3203	
==>shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$se <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3111	3206	
==>nion(W,X), Z), !.
p6_alternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatena <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	497	609	
==>ignature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = { source => $rule_sou <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19253	19353	
==>essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23805	23905	
==>essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wh <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22321	22421	
==>essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21289	21388	
==>->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44196	44295	
==>->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4208	4301	
==>tside of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE< <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4208	4301	
==>tside of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2691	2789	
==>NTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $sr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2691	2789	
==>NTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $sr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2691	2789	
==>NTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $sr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5677	5772	
==>($sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12388	12562	
==>:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12388	12562	
==>:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($u <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4578	4680	
==>fference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.rec <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4578	4680	
==>fference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.rec <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	505	628	
==>ys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;
        $self->{'values' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2259	2358	
==>my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2259	2358	
==>my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2339	2438	
==>my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	256	365	
==>Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	256	365	
==>Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	256	365	
==>Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	256	365	
==>Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16114	16311	
==>ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16393	16590	
==>ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10455	10604	
==>ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10734	10883	
==>ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13250	13418	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27364	27532	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13529	13697	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27643	27811	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1196	1329	
==>\%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      deb <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4925	5062	
==>ss' ? ';use Moose' : '' ) .
                ";use Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1593	1684	
==>lf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1593	1684	
==>lf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1593	1684	
==>lf->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2821	2926	
==>rams;   # FIXME: needs attention; don't use yet.
}

multi sub caller (Class $kind = Any, Int :$skip = 0, S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37135	37230	
==>heir joining degenerates to a
C<product>.  In any situation where the heading of one source rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41684	41779	
==>heir joining degenerates to a
C<product>.  In any situation where the heading of one source rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41307	41402	
==>heir joining degenerates to a
C<product>.  In any situation where the heading of one source rela <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10517	10667	
==>";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10517	10667	
==>";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8117	8232	
==>\@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8105	8220	
==>\@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15037	15162	
==>result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original str <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19212	19337	
==>result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original str <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5011	5120	
==>( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5233	5342	
==>( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21529	21635	
==>e all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$eve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20410	20516	
==>e all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21529	21635	
==>e all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20410	20516	
==>e all lowercase are "pseudo" events. See below for a list
of pseudo events.

The callback is given a C<$eve <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	512	618	
==>);

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	512	618	
==>);

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	512	618	
==>);

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2518	2640	
==>temAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2518	2640	
==>temAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? er <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2518	2640	
==>temAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? er <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	499	619	
==>e'ing until we need it
eval 
  q(
    use FindBin '$Bin';
    use lib
        "$Bin/lib",
        "$Bin/../Pugs-Compiler- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	862	967	
==>ount - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	862	967	
==>ount - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	862	967	
==>ount - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17080	17256	
==>and( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17080	17256	
==>and( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17080	17256	
==>and( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	507	608	
==>y $digest = shift;

    my $prim = $self->SUPER::provides($digest);
    ($prim && $prim->can("name") & <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2515	2609	
==>ng(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2515	2609	
==>ng(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2515	2609	
==>ng(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2876	3046	
==>m, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $::TestB <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1629	1741	
==>-$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1629	1741	
==>-$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1629	1741	
==>-$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8394	8492	
==>N_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8394	8492	
==>N_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8394	8492	
==>N_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    l <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9938	10031	
==>arrow->new(
				type::operator::nary->new(list => $a),
				type::operator::nary->new(list => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2435	2577	
==>_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2435	2577	
==>_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "sto <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2435	2577	
==>_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "sto <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5878	5993	
==>fess "You must set '$name' to a native type";
    my $current = $self;
    while ($current) {
        if (exists $cu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2687	2804	
==>);
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1330	1442	
==>lues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.a <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	350	462	
==>lues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.a <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8806	8918	
==>lues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23473	23579	
==>$s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23473	23579	
==>$s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23473	23579	
==>$s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1740	1850	
==>(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1740	1850	
==>(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1740	1850	
==>(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  } <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5596	5697	
==>en () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
met <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5596	5697	
==>en () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
met <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1551	1650	
==>x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match('abc') for <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9342	9463	
==>xpires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9342	9463	
==>xpires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %h <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2586	2676	
==>($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Arr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2586	2676	
==>($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Arr <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	185	298	
==>ook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn't support args atm

## Chapte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3858	3961	
==>= %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3858	3961	
==>= %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3858	3961	
==>= %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5924	6021	
==>$.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5924	6021	
==>$.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5313	5408	
==>her object to clear its internal state as completely as possible. 
This is automatically done as <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5313	5408	
==>her object to clear its internal state as completely as possible. 
This is automatically done as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4099	4207	
==>\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4099	4207	
==>\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".j <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4099	4207	
==>\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".j <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2562	2657	
==>«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2562	2657	
==>«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2562	2657	
==>«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Numbe <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4327	4420	
==>2407663;
    # http://www.research.att.com/~njas/sequences/A001113
}

 multi method Array::del <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1069	1190	
==>$self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1069	1190	
==>$self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1069	1190	
==>$self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod' <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	64	163	
==>n doesn't work if the above line is uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22937	23032	
==>, nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason opti <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21755	21850	
==>, nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason opti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22937	23032	
==>, nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason opti <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21755	21850	
==>, nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason opti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	781	902	
==>> "prefix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6150	6253	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6150	6253	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6150	6253	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sourc <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13438	13559	
==>$I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange goto a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36758	36853	
==>es too.  Another trivial case is if any
source relation is the identity-one relation (zero attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41307	41402	
==>es too.  Another trivial case is if any
source relation is the identity-one relation (zero attri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40930	41025	
==>es too.  Another trivial case is if any
source relation is the identity-one relation (zero attri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2840	2957	
==>ment', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_H <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2840	2957	
==>ment', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_H <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13965	14064	
==>f_test = $o->data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4992	5085	
==>c/perl6/Prelude.pm [options]
       $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13678	13837	
==>_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13678	13837	
==>_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13678	13837	
==>_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5911	6044	
==>$1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub author_from {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2208	2298	
==>{ return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2208	2298	
==>{ return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2208	2298	
==>{ return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1412	1509	
==>turns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1412	1509	
==>turns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14369	14461	
==>ethod ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14369	14461	
==>ethod ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3047	3149	
==>aramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3047	3149	
==>aramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3047	3149	
==>aramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30091	30189	
==>n
inspecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this objec <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4600	4730	
==>»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "d <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4600	4730	
==>»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "d <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6379	6471	
==>a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML for <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6379	6471	
==>a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML for <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11492	11605	
==>e)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2354	2441	
==>' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2354	2441	
==>' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2354	2441	
==>' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12760	12884	
==>tkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12760	12884	
==>tkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12760	12884	
==>tkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Per <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17005	17120	
==>}
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4244	4360	
==>|| 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4244	4360	
==>|| 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1016	1123	
==>b script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1016	1123	
==>b script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21136	21235	
==>each tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' A <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25688	25787	
==>each tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' A <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	871	968	
==>cepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::L <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	871	968	
==>cepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::L <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6083	6201	
==>ub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File:: <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3760	3877	
==>ub find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10859	10958	
==>n unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10859	10958	
==>n unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fie <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	398	506	
==>ince we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	398	506	
==>ince we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2242	2345	
==>fined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2242	2345	
==>fined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure <==
4	/Users/nnunley/pugs/util/config_h.pl	1423	1527	
==>UGS_HAVE_TH\n";
    warn << '.';

*** Template Haskell compiler backends disabled.  If you want
    Templ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1726	1827	
==>g PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1726	1827	
==>g PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1726	1827	
==>g PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20769	20884	
==>C, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17190	17305	
==>C, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7271	7378	
==>ls>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7271	7378	
==>ls>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked fr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5705	5812	
==>ngine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5705	5812	
==>ngine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6410	6515	
==>(assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6194	6297	
==>(assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4990	5126	
==>bject(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16026	16162	
==>bject(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17514	17650	
==>bject(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22197	22333	
==>bject(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11058	11194	
==>mes6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11058	11194	
==>mes6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11058	11194	
==>mes6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8766	8886	
==>cat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8959	9079	
==>cat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       , <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	281	387	
==>of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	281	387	
==>of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4810	4937	
==>e eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4810	4937	
==>e eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4810	4937	
==>e eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $se <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7644	7747	
==>en a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_el <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7644	7747	
==>en a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_el <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2750	2847	
==>-

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Du <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2750	2847	
==>-

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Du <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4076	4187	
==>ub new {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2889	2989	
==>er(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2889	2989	
==>er(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2889	2989	
==>er(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	344	460	
==>:Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	344	460	
==>:Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	344	460	
==>:Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	524	631	
==>-------------

use Test::More tests => 46;

{
    use Hash::Util 'lock_keys';

    # Every instance should h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19279	19437	
==>VERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $ot <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19279	19437	
==>VERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $ot <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19279	19437	
==>VERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $ot <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6007	6113	
==>ata}[0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0] <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8287	8392	
==>ce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = Bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16632	16728	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16632	16728	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16632	16728	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBA <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10601	10748	
==>( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11063	11210	
==>( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10595	10742	
==>( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11057	11204	
==>( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11718	11832	
==>reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2150	2254	
==>reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2150	2254	
==>reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11925	12030	
==>at =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok = su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14411	14506	
==>};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14411	14506	
==>};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14411	14506	
==>};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %par <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11924	12021	
==>ontinue working.

  Upon exec, the subref should return match information.  Match
  information ge <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38730	38837	
==>l, "\n";
    print "REGEX:  ", $parser->qr, "\n";
  }

The output is:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4653	4754	
==>r checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4653	4754	
==>r checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collec <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4653	4754	
==>r checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collec <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11089	11238	
==>atch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8153	8294	
==>atch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8153	8294	
==>atch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9478	9565	
==>ier(X), ":]", !.
p5_charset_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5_sim <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6873	7039	
==>rray: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shif <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6873	7039	
==>rray: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shif <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13122	13218	
==>DO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order to <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13180	13276	
==>DO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4521	4622	
==>_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4521	4622	
==>_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ an <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4521	4622	
==>_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	168	273	
==>();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	168	273	
==>();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	168	273	
==>();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7574	7668	
==>ng this
initial pass.

=head3 Fatal Errors

B<If there is a compilation-stopping error>, $parse <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5226	5331	
==>d-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# Thi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5226	5331	
==>d-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# Thi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1095	1196	
==>ject mixes in both Package

and Code -- because it is both a namespace of symbols and has

a main body <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1044	1143	
==>ject mixes in both Package
and Code -- because it is both a namespace of symbols and has
a main body <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3625	3792	
==>lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $ind <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4942	5109	
==>lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3625	3792	
==>lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $ind <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4930	5097	
==>lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $name =~ /^\$/ ) {
        # $^a, $^b
        if ( $name =~ /^ \$ \^ ([^\s]*) /x ) {
            my $ind <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1387	1499	
==>d $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1592	1704	
==>d $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1653	1765	
==>d $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17337	17530	
==>l'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17337	17530	
==>l'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17337	17530	
==>l'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || con <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	421	570	
==>an install.
        $args[0] = 'install';
    }
    else {
        # If this is merely a copy, tell the user to "make register".
        $prompt_regis <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2355	2486	
==>ethod
    Macro       Perl compile-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable execut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	418	521	
==>use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	418	521	
==>use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	418	521	
==>use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	523	644	
==>join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime par <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	523	644	
==>join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime par <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25830	25925	
==>od will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30382	30477	
==>od will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1937	2028	
==>n::LaxAttrList () {...}

proto method export_attr_names of List of Relation::AttrName () {.. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3857	3965	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3857	3965	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12090	12197	
==>{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12090	12197	
==>{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2713	2812	
==>s is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft= <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2713	2812	
==>s is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft= <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22186	22281	
==>of
their attributes are private, so you must use accessor methods.  Rosetta
does not declare any <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22186	22281	
==>of
their attributes are private, so you must use accessor methods.  Rosetta
does not declare any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1064	1172	
==>'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1064	1172	
==>'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => ' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1064	1172	
==>'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => ' <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	434	578	
==>->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        map { "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3573	3660	
==>2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3573	3660	
==>2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3573	3660	
==>2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefin <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26947	27042	
==>", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β)", ": <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1908	2064	
==>\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1896	2052	
==>\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7207	7313	
==>& return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7195	7301	
==>& return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6243	6396	
==>formed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = rege <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6243	6396	
==>formed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = rege <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6243	6396	
==>formed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = rege <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	747	849	
==>eta = JIB::Meta->new_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1750	1900	
==>prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompilin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1881	1983	
==>export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1881	1983	
==>export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1961	2063	
==>export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	830	947	
==>st gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	830	947	
==>st gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	830	947	
==>st gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10960	11057	
==>ill not operate
differently.

The string representation is built by calling the visual() method of <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9694	9800	
==>nnels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} }, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9694	9800	
==>nnels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} }, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5674	5774	
==>return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5674	5774	
==>return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	212	338	
==>ost, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter ma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	216	342	
==>ost, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter ma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	212	338	
==>ost, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter ma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	216	342	
==>ost, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter ma <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1467	1589	
==>self) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	986	1081	
==>erlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	986	1081	
==>erlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	986	1081	
==>erlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26399	26530	
==>nary->new(list => type::operator::pair->new( $a, $b )),
		),
	);
	is($type->stringify, "∀α. ∀β. list α → list β → list ( <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	421	537	
==>H => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: chec <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	421	537	
==>H => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: chec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11083	11191	
==>012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11083	11191	
==>012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10175	10281	
==>$isNamed, $isLValue, $isWritable, $isLazy, $paramName, $paramContext, $paramDefault) {
    my $default; $de <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10199	10299	
==>ibed below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2824	2924	
==>CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2824	2924	
==>CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CL <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10199	10299	
==>ibed below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1719	1820	
==>>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Jav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1719	1820	
==>>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Jav <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1719	1820	
==>>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Jav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2790	2892	
==>pen my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2790	2892	
==>pen my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2790	2892	
==>pen my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2932	3115	
==>tch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        el <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2932	3115	
==>tch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        el <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11877	11974	
==>tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Retu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11877	11974	
==>tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2618	2720	
==>head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. $#{$_[0]}]) }

sub shift   : method { CORE::shi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19370	19470	
==>s a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intend <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23922	24022	
==>s a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intend <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22438	22538	
==>s a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intend <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6437	6535	
==>et($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5567	5665	
==>et($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6437	6535	
==>et($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5567	5665	
==>et($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) returns Set {
    $one.proper_subset($two <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22308	22427	
==>ULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22308	22427	
==>ULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22308	22427	
==>ULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4147	4248	
==>) { $V }
method GetValue (JSX::InternalValue::Reference $V) {
    my $Result2 = GetBase($V);
    raise <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6919	7088	
==>ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6919	7088	
==>ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10779	10875	
==>ield. If the $value is undefined or not
given, then that header field will remain unchanged.

The <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10779	10875	
==>ield. If the $value is undefined or not
given, then that header field will remain unchanged.

The <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17075	17187	
==>faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20552	20664	
==>faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20130	20242	
==>faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2667	2769	
==>an App for that to happen.

Inherits Unit.

=item App

An App makes a Thunk reduce to it's value (and a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16601	16701	
==>, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16601	16701	
==>, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type e <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7402	7498	
==>til they have an entire block, then cipher 
the block and return the new ciphertext (or plaintext <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7402	7498	
==>til they have an entire block, then cipher 
the block and return the new ciphertext (or plaintext <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2608	2719	
==>ken{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28552	28671	
==>('&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8801	8903	
==>a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8801	8903	
==>a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	147	243	
==>rimitive 
s-expr compiler to generate p5 code, it's really 
pretty bad actually, and the s-expr g <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30292	30400	
==>ual_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5428	5530	
==>uld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5428	5530	
==>uld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5428	5530	
==>uld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The o <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12297	12390	
==>r(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_hex_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18050	18133	
==>Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18050	18133	
==>Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18050	18133	
==>Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->p <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	424	557	
==>HTTP_COOKIE'})) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub CookiesHeader() {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4954	5077	
==>q 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4954	5077	
==>q 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4954	5077	
==>q 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	868	969	
==>ammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13263	13433	
==>_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know ho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13263	13433	
==>_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know ho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13263	13433	
==>_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know ho <==
4	/Users/nnunley/pugs/util/importgraph.pl	2150	2235	
==>.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4937	5097	
==>e' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3651	3774	
==>ble in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3651	3774	
==>ble in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3651	3774	
==>ble in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7968	8110	
==>unction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7968	8110	
==>unction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7968	8110	
==>unction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4783	4903	
==>lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV v <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4010	4147	
==>}
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4010	4147	
==>}
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6813	6914	
==>s that if I get to the end of the line and find no closing match, I should
ignore the opening one. How <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6813	6914	
==>s that if I get to the end of the line and find no closing match, I should
ignore the opening one. How <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	195	307	
==>of PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	195	307	
==>of PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay . <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	195	307	
==>of PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay . <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	637	734	
==>::Publisher {
    use Set;
    has Set $.subscriptions handles :add_subscription<insert> :remove_s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9793	9929	
==>le substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6134	6270	
==>le substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6983	7119	
==>le substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37253	37362	
==>lasses')      => attribute->new('@:subclasses'      => 'list')));
$::Class->send('add_attribute', (symbol->new <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	881	1060	
==>(Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1336	1454	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::look <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1336	1454	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::look <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1336	1454	
==>,
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::look <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2701	2816	
==>> 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î', <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2701	2816	
==>> 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î', <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19846	19942	
==>Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour conf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19846	19942	
==>Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour conf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4010	4140	
==>ariable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5331	5461	
==>ariable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4010	4140	
==>ariable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5319	5449	
==>ariable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return constant( \$_[7][$index] )->(\@_);
            }" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5772	5873	
==>}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5772	5873	
==>}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5772	5873	
==>}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	144	245	
==>mbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5545	5644	
==>resh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifeti <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5545	5644	
==>resh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifeti <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19648	19743	
==>rror messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19648	19743	
==>rror messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3184	3313	
==>_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3184	3313	
==>_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{mat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8910	9007	
==>tatus;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defined <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8910	9007	
==>tatus;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defined <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4200	4309	
==>};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4541	4632	
==>PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4541	4632	
==>PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4541	4632	
==>PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26610	26820	
==>new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26610	26820	
==>new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26610	26820	
==>new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26019	26118	
==>_SBOL	 	0x00004
 #define ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1073	1197	
==>t <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rathe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1073	1197	
==>t <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rathe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3322	3427	
==>rnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3322	3427	
==>rnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16076	16203	
==>mutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16076	16203	
==>mutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	412	529	
==>&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9830	9947	
==>&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11683	11818	
==>initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd_mnt/lib6/$_";
        } else {
          copy "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3600	3715	
==>tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3851	3963	
==>tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3851	3963	
==>tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $mat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18296	18752	
==>1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relati <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	741	989	
==>te that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_ke <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	741	989	
==>te that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_ke <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9438	9559	
==>0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5927	6045	
==>s">.map:{ $_[0] };
        dbg "# Symbols:    @symbols[]";

        dbg "# Statements: "; my $statements = traverse_ast <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3469	3576	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3469	3576	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1895	2065	
==>ver";
            }
        } else {
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub li <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2143	2245	
==>dress);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( */ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11794	11888	
==>ities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11794	11888	
==>ities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1180	1280	
==>ir constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1180	1280	
==>ir constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1180	1280	
==>ir constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19075	19168	
==>c {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2381	2479	
==>) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2381	2479	
==>) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27998	28089	
==>iable name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27998	28089	
==>iable name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9595	9754	
==>f ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15139	15298	
==>f ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9595	9754	
==>f ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15133	15292	
==>f ( $cmd eq 'prior' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not im <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1787	1901	
==>bs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs ) <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	898	1010	
==>bs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3042	3152	
==>ift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) => " . ( <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2558	2660	
==>-file. FIXME: use a real temp file?
sub emit_chunk {
    my($self) = @_;
    DumpFile("tests.$$.yml", $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2790	2899	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2790	2899	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2790	2899	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9989	10096	
==>ar name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10649	10798	
==>pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$fagain);
      };
      goto &$fmin;
    };        
  }
}
{
  # ( n <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1045	1193	
==>l) {
        print "\t$obj->{package}\n";       
    }
    
}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5214	5318	
==>= 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $dir;

Retu <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2283	2377	
==>ie Abstract Syntax Tree, and can be executed by a
runtime. An example runtime is L<Blondie::Bac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6957	7103	
==>a_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6957	7103	
==>a_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_d <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24624	24749	
==>if ($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39455	39557	
==>ers
on the lower and upper side of the range, objects must be created during
the first pass.  To accomp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1395	1520	
==>x must be a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11637	11738	
==>map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11637	11738	
==>map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11637	11738	
==>map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2472	2707	
==>m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hig <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2780	3002	
==>m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hig <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2780	3002	
==>m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hig <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1701	1822	
==>to &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	441	557	
==>less {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	441	557	
==>less {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	441	557	
==>less {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5280	5458	
==>{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1469	1558	
==>);
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1469	1558	
==>);
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1469	1558	
==>);
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4916	5029	
==>xinfix',
    operand => 'rxatom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19828	19918	
==>q p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19828	19918	
==>q p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19828	19918	
==>q p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	806	935	
==>y bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	806	935	
==>y bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_s <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	490	588	
==>lfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	490	588	
==>lfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( S <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3402	3504	
==>";
	return $self->$method(@_);
}

sub define_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4468	4563	
==>eates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4468	4563	
==>eates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5992	6087	
==>eates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3222	3372	
==>0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3469	3619	
==>0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat { <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2753	2855	
==>ousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") retur <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2753	2855	
==>ousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") retur <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8779	8891	
==>us common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8779	8891	
==>us common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7593	7701	
==>.map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7593	7701	
==>.map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3628	3769	
==>\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3641	3760	
==>->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3641	3760	
==>->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3641	3760	
==>->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2838	3054	
==>!($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.read <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2838	3054	
==>!($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.read <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2202	2331	
==>ll off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2202	2331	
==>ll off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9681	9794	
==>n "Return type does not match - should return " . $self->returns->name
                    if defined $self->retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9681	9794	
==>n "Return type does not match - should return " . $self->returns->name
                    if defined $self->retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9681	9794	
==>n "Return type does not match - should return " . $self->returns->name
                    if defined $self->retur <==
4	/Users/nnunley/pugs/util/drift.pl	383	493	
==>en TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, $in or die $!;
while (<IN>) {
    if (/\{-!\s*glob <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18392	18487	
==>uctures are in exactly the right input
format for Node.new(), by which you can create an identic <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18392	18487	
==>uctures are in exactly the right input
format for Node.new(), by which you can create an identic <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	82	176	
==>NV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_S <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	82	176	
==>NV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1596	1706	
==>al("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1586	1696	
==>al("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1596	1706	
==>al("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1596	1706	
==>al("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
} <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	610	741	
==>e {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    r <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	610	741	
==>e {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    r <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	863	977	
==>erforms one dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3584	3678	
==>ompiler
from bootstrapping. 

If that is the case, running C<Makefile.PL> and C<make> in
C<Pugs <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1411	1549	
==>s_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4650	4788	
==>s_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1411	1549	
==>s_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4650	4788	
==>s_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9679	9780	
==>trict the depth to which it reaches, pass walker()
an argument:

  my $iter = $parser->walker(0);  # t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11245	11344	
==>File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11245	11344	
==>File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11245	11344	
==>File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1855	1975	
==>arName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1855	1975	
==>arName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1855	1975	
==>arName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1982	2092	
==>erl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4121	4275	
==>) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ?? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4121	4275	
==>) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ?? <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2140	2238	
==>rly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's k <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2140	2238	
==>rly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's k <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6306	6549	
==>last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other erro <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6770	7013	
==>last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other erro <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13826	13941	
==>nite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infin <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13826	13941	
==>nite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1422	1543	
==>=> $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1433	1554	
==>=> $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ru <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11714	11822	
==>n object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, e <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11714	11822	
==>n object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3341	3461	
==>d content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3341	3461	
==>d content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17088	17185	
==>tten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17088	17185	
==>tten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7742	7845	
==>$ra) {
	next     if !defined $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8491	8590	
==>m_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8491	8590	
==>m_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pug <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8491	8590	
==>m_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pug <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16772	16870	
==>intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't interse <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16772	16870	
==>intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't interse <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23413	23503	
==>or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23413	23503	
==>or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
e <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4197	4292	
==>nostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4197	4292	
==>nostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4277	4372	
==>nostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21038	21157	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22468	22587	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42257	42376	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43962	44081	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6141	6281	
==>>new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5362	5463	
==>$always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5362	5463	
==>$always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spli <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5362	5463	
==>$always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spli <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5361	5461	
==>Foo refs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32962	33063	
==>ode
is returned.  Here is the walk() method for all the quantifier and
'minmod' nodes:

  # star, plus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9236	9336	
==>tension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DES <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9236	9336	
==>tension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DES <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9236	9336	
==>tension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DES <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	205	301	
==>) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	205	301	
==>) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	205	301	
==>) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => met <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1145	1240	
==>my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 * <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1145	1240	
==>my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 * <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	303	409	
==>@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2348	2454	
==>end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2348	2454	
==>end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set. <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	303	409	
==>@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INS <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2638	2770	
==>g);
    }
}


class Control::Caller {
    has Str $.package;
    has Str $.file;
    has Int $.line;
    has Str $.subname;
    has S <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	369	482	
==>or $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - nod <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	369	482	
==>or $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1194	1316	
==>g, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1194	1316	
==>g, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1194	1316	
==>g, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23239	23337	
==>utable>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to muta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27791	27889	
==>utable>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to muta <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14770	14867	
==>ore to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14828	14925	
==>ore to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1152	1259	
==>.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes tha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1152	1259	
==>.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes tha <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1951	2046	
==>>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparis <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1951	2046	
==>>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparis <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4602	4764	
==>updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for e <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4602	4764	
==>updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18642	18738	
==>d-coded into your application or package, with one or more
text strings to show human users.  Thi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18642	18738	
==>d-coded into your application or package, with one or more
text strings to show human users.  Thi <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7660	7768	
==>ERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2ex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27729	27822	
==>t, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32281	32374	
==>t, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31373	31466	
==>t, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7235	7331	
==>join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=po <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7235	7331	
==>join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=po <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7235	7331	
==>join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=po <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4614	4719	
==>ve two subs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	368	472	
==>ibute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ver <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	368	472	
==>ibute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ver <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22993	23094	
==>text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22993	23094	
==>text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1911	2015	
==>{ 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) ret <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1911	2015	
==>{ 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14131	14218	
==>$xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14131	14218	
==>$xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14131	14218	
==>$xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	788	886	
==>nclude=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test::Harness::Verb <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3666	3760	
==>ray, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3666	3760	
==>ray, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3666	3760	
==>ray, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6551	6663	
==>("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6551	6663	
==>("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6551	6663	
==>("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2 <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5787	5881	
==>rc/syck/syck_st.o src/syck/token.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2726	2823	
==>t it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2726	2823	
==>t it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2726	2823	
==>t it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4638	4744	
==>=>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4638	4744	
==>=>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4638	4744	
==>=>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  s <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1062	1235	
==>f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1062	1235	
==>f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3516	3624	
==>t we need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args- <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2559	2663	
==>t we need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1920	2082	
==>@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1920	2082	
==>@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1920	2082	
==>@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10435	10532	
==>rs> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before <[*\\\ <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	684	791	
==>all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Sigle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8801	8899	
==>ULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8801	8899	
==>ULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8801	8899	
==>ULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12833	12958	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12833	12958	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12833	12958	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_ <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	318	429	
==>($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an instal <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	872	992	
==>ave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $reques <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	872	992	
==>ave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $reques <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	203	321	
==>use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	623	722	
==>ect model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Multi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	623	722	
==>ect model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Multi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	623	722	
==>ect model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Multi <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6159	6310	
==>efault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then w <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5232	5383	
==>efault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then w <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6159	6310	
==>efault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5232	5383	
==>efault {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then w <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	163	277	
==>en3 'open3';
use Carp;

sub WritePugs {
    my $self = shift;

    my $install_version = shift;
    die "Install ve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8892	8988	
==>~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8892	8988	
==>~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8892	8988	
==>~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12808	12904	
==>a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12808	12904	
==>a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12808	12904	
==>a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prel <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11386	11481	
==>ned differently in different packages.

This would permit
  ./perl -we 'use Regexp::Perl6; print <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7562	7660	
==>e, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6692	6790	
==>e, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7562	7660	
==>e, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6692	6790	
==>e, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~> (Set $o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3558	3705	
==>$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3546	3693	
==>$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6470	6582	
==>binations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6470	6582	
==>binations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7793	7929	
==>1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7793	7929	
==>1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7793	7929	
==>1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6374	6459	
==>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &::hlp_stmt;})');
my $x5 = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	513	665	
==>h, \$1 } : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match => do{ my \@match; $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3550	3636	
==>butes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3550	3636	
==>butes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3550	3636	
==>butes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21042	21162	
==>!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21689	21809	
==>!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17463	17583	
==>!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18110	18230	
==>!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11995	12113	
==>y ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11995	12113	
==>y ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11995	12113	
==>y ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18989	19085	
==>type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the string <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1419	1530	
==>amicScoping/;

    ...

    $self->enter_scope; # opens a new scope

    $self->new_pad("name" => $value); # sha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	327	422	
==>ey eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	327	422	
==>ey eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	327	422	
==>ey eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5043	5159	
==>close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1679	1787	
==>self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1679	1787	
==>self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1679	1787	
==>self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13244	13399	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27358	27513	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13523	13678	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27637	27792	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2806	2943	
==>.
        # "    }\n" .
        "    push \@$grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6670	6777	
==>0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6682	6789	
==>0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1025	1128	
==>een traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 12 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1025	1128	
==>een traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 12 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	76	181	
==>t;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	76	181	
==>t;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	76	181	
==>t;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pC <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	481	655	
==>),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11957	12077	
==>rrent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11957	12077	
==>rrent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11957	12077	
==>rrent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3148	3303	
==>lass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chang <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3148	3303	
==>lass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chang <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3148	3303	
==>lass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chang <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1193	1318	
==>ce:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1403	1535	
==>(*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1403	1535	
==>(*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1403	1535	
==>(*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1083	1170	
==>ead1 DESCRIPTION

L<Blondie::Backend::Perl::Interpreter> contains the tree reduction cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12128	12225	
==>rk with the parse tree independently, use the root()
method to get it.  From there, you're on your <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7627	7720	
==>---------------------------------------------------

## NOTE:
## we want to prevent the defaul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7627	7720	
==>---------------------------------------------------

## NOTE:
## we want to prevent the defaul <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7627	7720	
==>---------------------------------------------------

## NOTE:
## we want to prevent the defaul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	565	690	
==>ms) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	565	690	
==>ms) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	565	690	
==>ms) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Disp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17389	17492	
==>perl($prog,
		sub { @_ ? $_[0] eq $expected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_li <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2987	3095	
==>< @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) retur <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2987	3095	
==>< @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) retur <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4868	4966	
==>m 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4868	4966	
==>m 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16666	16824	
==>ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16666	16824	
==>ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16666	16824	
==>ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxe <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	243	360	
==>line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2018	2164	
==>,
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8790	8936	
==>,
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2018	2164	
==>,
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8790	8936	
==>,
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	810	912	
==>2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	810	912	
==>2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	810	912	
==>2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	157	254	
==>rl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:config n <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4095	4220	
==>urn $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} conten <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3561	3685	
==>es this as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@val <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2959	3058	
==>Point, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1->g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4304	4400	
==>->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5830	5931	
==>ew;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5830	5931	
==>ew;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5830	5931	
==>ew;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3240	3335	
==>t->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}->($self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11000	11114	
==>b {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12061	12160	
==>ap{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12061	12160	
==>ap{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12061	12160	
==>ap{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cla <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7952	8072	
==>+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	773	884	
==>hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	773	884	
==>hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	773	884	
==>hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2016	2125	
==>return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2016	2125	
==>return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Pe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1256	1357	
==>return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3117	3218	
==>return;
    return join('', $fh->getlines);
}

__END__

=head1 NAME

compile_p6grammar.pl - Compile Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10854	10996	
==>rtable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7930	8063	
==>rtable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7930	8063	
==>rtable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13053	13162	
==>nd $tainted++;

    if ($tainted) {
	# We will assume that if you're running under -T, you really mean to
	# r <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5668	5861	
==>m( qq[ $^X $postinst ] )               and die $?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13932	14042	
==>ontrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13932	14042	
==>ontrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13932	14042	
==>ontrol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_p <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4239	4353	
==>erence ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4239	4353	
==>erence ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6040	6154	
==>tfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4472	4581	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4472	4581	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4472	4581	
==>ode") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2402	2546	
==>od header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10764	10879	
==>ivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modific <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10764	10879	
==>ivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modific <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10764	10879	
==>ivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modific <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1467	1567	
==>_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1467	1567	
==>_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1467	1567	
==>_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25916	26013	
==>).

B<These functions can only work if called with ampersands, and only if
the parser object is th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11768	11900	
==>ibutes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15245	15377	
==>ibutes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14580	14712	
==>ibutes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10297	10412	
==>negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] neg <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3409	3496	
==>->{'$:superclass'} = $Object;

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4103	4190	
==>->{'$:superclass'} = $Object;

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5311	5398	
==>->{'$:superclass'} = $Object;

## ------------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19685	19853	
==>ther = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19685	19853	
==>ther = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19685	19853	
==>ther = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	994	1148	
==>" .
        #_emit( $ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	562	809	
==>}
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	562	809	
==>}
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	396	490	
==>outines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't i <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	396	490	
==>outines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1288	1445	
==>$open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4527	4684	
==>$open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1288	1445	
==>$open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4527	4684	
==>$open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8476	8637	
==>maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8476	8637	
==>maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8476	8637	
==>maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48529	48630	
==>>new('$:version')   => attribute->new('$:version'   => 'str')));
$::Module->send('add_attribute', (sym <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6873	6975	
==>umentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28460	28558	
==>d is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 The <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28460	28558	
==>d is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 The <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6639	6736	
==>umentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4724	4824	
==>d-img will be mounted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    --cdroot i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21518	21613	
==>d in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->uns <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21518	21613	
==>d in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->uns <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21518	21613	
==>d in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->uns <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	978	1072	
==>CShortcut");
    $optable->addToken("term:\\S", "term:", "nows", "PGE::Exp::CCShortcut");
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	95	184	
==>Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_des <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	95	184	
==>Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_des <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	95	184	
==>Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_des <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	344	447	
==>*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	344	447	
==>*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	344	447	
==>*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	308	431	
==>bject & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not rea <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1533	1656	
==>bject & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not rea <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30991	31088	
==>ing attributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with whi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11639	11743	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	227	325	
==>S.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	227	325	
==>S.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	227	325	
==>S.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1139	1263	
==>:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        warn "Error in statement:\n", $pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16045	16158	
==>pfile: $!";

    my $results = runperl(%$runperl_args);
    my $status = $?;

    # Clean up the results into some <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12235	12348	
==>uilder::Test::TODO does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          my $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2623	2728	
==>uilder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2623	2728	
==>uilder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	975	1079	
==>);
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	975	1079	
==>);
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pilresult <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	897	1000	
==>);
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	897	1000	
==>);
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	182	289	
==>rt { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1 <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	182	289	
==>rt { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15229	15334	
==>his_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1111	1215	
==>ediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1111	1215	
==>ediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1111	1215	
==>ediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	609	734	
==>() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say " <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	609	734	
==>() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15636	15755	
==>(,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10492	10611	
==>(,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10361	10500	
==>" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6702	6841	
==>" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7551	7690	
==>" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2409	2516	
==>ace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'C');
  });

  $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31079	31177	
==>he given handles.  You send the names (like '|' or
'atom').  Here is a very simple complete sub-cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17322	17413	
==>0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17322	17413	
==>0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17322	17413	
==>0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1699	1822	
==>d ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2752	2845	
==>module implements the semantics for perl6-style variable binding,
as well as subroutine call a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2752	2845	
==>module implements the semantics for perl6-style variable binding,
as well as subroutine call a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3099	3192	
==>module implements the semantics for perl6-style variable binding,
as well as subroutine call a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35067	35200	
==>ft_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35067	35200	
==>ft_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35067	35200	
==>ft_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18574	18709	
==>e isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1235	1341	
==>},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1235	1341	
==>},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{outp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1235	1341	
==>},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{outp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39960	40059	
==>he License, or (at your option) any later version.  You
should have received a copy of the LGPL as p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39960	40059	
==>he License, or (at your option) any later version.  You
should have received a copy of the LGPL as p <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	381	474	
==>run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $mat <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	381	474	
==>run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18211	18333	
==>name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2865	2978	
==>space($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2865	2978	
==>space($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2865	2978	
==>space($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	189	310	
==>class 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1134	1234	
==>a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1134	1234	
==>a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1134	1234	
==>a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6066	6179	
==>=> 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4261	4355	
==>nce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4261	4355	
==>nce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6458	6552	
==>nce, passing on the C<$description> and
C<$reason> parameters and a true value for the passed p <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	543	645	
==>orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($orig);
			return;
		} else {
			i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	25537	25635	
==>ed in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/% <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7008	7105	
==>s reached. This does not include 
the text of the header, that will be processed as a interpolated <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7008	7105	
==>s reached. This does not include 
the text of the header, that will be processed as a interpolated <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24619	24780	
==>ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24898	25059	
==>ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         ) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5303	5459	
==>$ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite, <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5303	5459	
==>$ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15444	15572	
==>t El Torito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-load-siz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4887	4982	
==>yClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4887	4982	
==>yClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4887	4982	
==>yClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10911	11022	
==>lue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10911	11022	
==>lue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10911	11022	
==>lue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new P <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1110	1218	
==>= [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as_png unless $Conf{no};

if ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1329	1429	
==>nt => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1329	1429	
==>nt => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1329	1429	
==>nt => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1136	1244	
==>$_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	999	1102	
==>$_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	46	144	
==>ead1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 G <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	46	144	
==>ead1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 G <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2147	2309	
==>s;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2147	2309	
==>s;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	348	475	
==>brule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	348	475	
==>brule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5516	5732	
==>ed $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5516	5732	
==>ed $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5516	5732	
==>ed $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	799	899	
==>hich was the objective.

# Interest was expressed in developing this into a cpan module for
# real us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20301	20390	
==>xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20301	20390	
==>xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20301	20390	
==>xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23803	23897	
==>$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23803	23897	
==>$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23803	23897	
==>$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3087	3177	
==>de/iblech/pugs/livecd-kernel.config.

Available options and defaults:
  --kernel-uri=$kerne <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2333	2435	
==>ssages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the a <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2333	2435	
==>ssages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1755	1840	
==>\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to} <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	140	255	
==>qw[LoadFile DumpFile];


@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### copy a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5267	5362	
==>ng you like with each object, but is (at least nominally)
intended to allow filtering out object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5267	5362	
==>ng you like with each object, but is (at least nominally)
intended to allow filtering out object <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5267	5362	
==>ng you like with each object, but is (at least nominally)
intended to allow filtering out object <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1563	1671	
==>_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1563	1671	
==>_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @ro <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10804	10900	
==>defined or not
given, then that header field will remain unchanged.

The old value (or values) of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10804	10900	
==>defined or not
given, then that header field will remain unchanged.

The old value (or values) of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9345	9463	
==>rt =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9345	9463	
==>rt =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9345	9463	
==>rt =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item }, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7292	7382	
==>ed variables, which delegate. see below)
multi unify => ( 'type::variable::free', any(qw/ty <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23617	23721	
==>>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7772	7870	
==>y($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7772	7870	
==>y($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7772	7870	
==>y($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3817	3914	
==>nts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3817	3914	
==>nts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3817	3914	
==>nts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	112	205	
==>, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attributes <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2361	2467	
==>?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2361	2467	
==>?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3017	3120	
==>[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3017	3120	
==>[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4871	4987	
==>position methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4871	4987	
==>position methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4871	4987	
==>position methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    for <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17368	17474	
==>Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start (0..$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1650	1759	
==>multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1650	1759	
==>multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1650	1759	
==>multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7287	7370	
==>body(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R1), p5_condition_alterna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3621	3850	
==>ch, 1 ),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::O <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17282	17372	
==>:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17282	17372	
==>:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17282	17372	
==>:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15366	15504	
==>_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15360	15498	
==>_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20792	20889	
==>using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20792	20889	
==>using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2671	2801	
==>return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5663	5791	
==>return;
    };
}

# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2971	3090	
==>return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2971	3090	
==>return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1111	1223	
==>sif ($chr =~ /\</) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	150	258	
==>{
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	150	258	
==>{
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	150	258	
==>{
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18291	18483	
==>mper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18291	18483	
==>mper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18291	18483	
==>mper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #w <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14680	14879	
==>hared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18157	18356	
==>hared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shar <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17573	17772	
==>hared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	679	790	
==>_[0]} }
sub store { 
    my ($self, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confes <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2610	2713	
==>my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.dif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2610	2713	
==>my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.dif <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6608	6710	
==>rams);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6608	6710	
==>rams);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5372	5499	
==>n $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4024	4127	
==>}

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4024	4127	
==>}

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4614	4717	
==>}

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param-> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5267	5378	
==>s, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    unde <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5267	5378	
==>s, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    unde <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1139	1239	
==>::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # def <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1139	1239	
==>::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # def <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	790	934	
==>"";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	790	934	
==>"";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	790	934	
==>"";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->ex <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7407	7504	
==>s*//;
	$params =~ s/\s*\)?\s*\z//;
	my @pn = split(/\s*[,:]\s*|(?<=:)\s*/,$params);
	$params = \@p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5331	5434	
==>all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5331	5434	
==>all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5331	5434	
==>all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @su <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4215	4313	
==>_[0] =~ s{^=\w(.*?)^=cut$}{"\n" x ($1 =~ y/\n//)}mesg;
}

sub precomp {
    print STDERR "Generatin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1824	2068	
==>= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ " <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1824	2068	
==>= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ " <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	585	720	
==>= $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $ <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	585	720	
==>= $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2638	2779	
==>rs",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2638	2779	
==>rs",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2638	2779	
==>rs",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5499	5596	
==>[0],'$<op>');
    my $condition = emit(get_data($_[0],'$<condition>'));
    my $then = emit(get_da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3754	3876	
==>).push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3754	3876	
==>).push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3754	3876	
==>).push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1428	1545	
==>gram here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	801	914	
==>$c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	801	914	
==>$c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	801	914	
==>$c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7513	7621	
==>d1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7513	7621	
==>d1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4672	4768	
==>END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20227	20319	
==>ent which is modified
# try to 'collapse' useless directory entries
sub collapse_isolated_dir <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1318	1440	
==>w    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!hand <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1318	1440	
==>w    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!hand <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6499	6609	
==>ackage Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objec <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6281	6387	
==>ackage Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	132	236	
==>Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	132	236	
==>Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	132	236	
==>Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12442	12540	
==>e the errmsg() and errnum() methods to get the error information.

To see if an error is a particul <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18688	18799	
==>>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15109	15220	
==>>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30447	30558	
==>>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2816	2920	
==>ethod ($current send (get_method $label)))
         (= $current (&dispatcher do))))
     ($method))

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	237	356	
==>TINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	237	356	
==>TINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	237	356	
==>TINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wha <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1544	1636	
==>h::Unspecced::e) ** $exponent) instead?
     Pugs::Internals::exp($exponent,$base // Math::Un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5313	5411	
==>s
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5313	5411	
==>s
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "< <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5313	5411	
==>s
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "< <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	165	260	
==>9 already defines some p6 implementations).
# To contribute, just scroll down until pod lines st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3974	4159	
==>.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7451	7636	
==>.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6417	6602	
==>.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13421	13533	
==>{
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$how);
  });

  # alnu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12288	12399	
==>(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4931	5042	
==>(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22154	22255	
==>lgebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26706	26807	
==>lgebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each at <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26188	26284	
==>d with (others are ignored).  Each variable name can be any
defined and non-empty string, and eac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26188	26284	
==>d with (others are ignored).  Each variable name can be any
defined and non-empty string, and eac <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21951	22068	
==>sts) {
        my $namelen = length $failedtests->{$script}->{name};
        $max_namelen = $namelen if $namelen > $ma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2141	2246	
==>to_str->to_native . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_at <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8705	8808	
==>re elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8705	8808	
==>re elegant %users{$newnick} = %users.delete($oldnick) doesn't work
      # yet in Pugs, because, so it s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8963	9064	
==>re elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8963	9064	
==>re elegant %users{$newnick} = %users.delete($oldnick) doesn't work
    # yet in Pugs, because, so it s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	662	771	
==>s must be native types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1315	1413	
==>main_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1315	1413	
==>main_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1315	1413	
==>main_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname") <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7912	8026	
==>->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hash <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11909	12021	
==>->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hash <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11909	12021	
==>->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hash <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1823	1973	
==>eturn;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %para <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1823	1973	
==>eturn;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %para <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10709	10824	
==>)
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10709	10824	
==>)
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $. <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4399	4538	
==>= $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub concat {
    my($o,$aref)=@_;
    die "bug $aref" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30189	30292	
==>ct.  See the object's documentation for
possible values for its type.

=item my $v = $obj->visual()

The <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7498	7626	
==>is entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $inf <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	799	927	
==>is entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $inf <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14495	14609	
==>::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECO <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14495	14609	
==>::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17340	17435	
==>) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17340	17435	
==>) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17340	17435	
==>) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB inf <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	130	223	
==>ME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Comp <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1683	1779	
==>$config->{bin}, "pugs$config->{exe_ext}");

    ($config->{file_sep}) =
      ($Config{sitelib} = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18483	18576	
==>entical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specificall <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18483	18576	
==>entical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specificall <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3391	3506	
==>lf => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3391	3506	
==>lf => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3391	3506	
==>lf => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $b <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29805	29899	
==>emember exit code

Completely redo the print summary code.

Implement Straps callbacks.  (exper <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	224	342	
==>ram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{rat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	218	336	
==>ram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	224	342	
==>ram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{rat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	218	336	
==>ram ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{rat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	339	452	
==>.. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	339	452	
==>.. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is no <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	339	452	
==>.. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is no <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2149	2248	
==>B] in character class") if @names > 1;
        return $S->force_object(anyof_char_comp => $S->nchar( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4559	4687	
==>~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4559	4687	
==>~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	228	332	
==>y Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	228	332	
==>y Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40140	40238	
==>te to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24831	24929	
==>te to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40140	40238	
==>te to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24831	24929	
==>te to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA. <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	723	837	
==>date_guess($guess, $target, $f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1411	1511	
==>gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1411	1511	
==>gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1411	1511	
==>gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7457	7613	
==>@items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7457	7613	
==>@items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7457	7613	
==>@items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff el <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5862	6002	
==>\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6991	7103	
==>(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6991	7103	
==>(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6991	7103	
==>(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1074	1241	
==>t;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1270	1367	
==>age VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1270	1367	
==>age VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1270	1367	
==>age VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3269	3374	
==>ude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3269	3374	
==>ude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3269	3374	
==>ude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my su <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21889	21992	
==>? <';'>
}
rule WithStatement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <Statement>
} <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11165	11259	
==>Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11223	11317	
==>Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4095	4179	
==>of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Ro <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4095	4179	
==>of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Ro <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1463	1583	
==>= $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1430	1550	
==>= $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2106	2206	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Lo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2106	2206	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Lo <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4619	4765	
==>Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (Lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5948	6049	
==>op level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kno <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5948	6049	
==>op level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kno <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5948	6049	
==>op level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kno <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4810	4898	
==>l $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4810	4898	
==>l $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4810	4898	
==>l $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4319	4467	
==>:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4319	4467	
==>:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35716	35808	
==>erator that takes a single
Relation::Example in its C<$other> argument, where <$other> has th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37748	37840	
==>erator that takes a single Relation::Example
in its C<$other> argument, where <$other> has th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	896	1024	
==>gnore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11800	11913	
==>r::Test::Skip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2222	2327	
==>r::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2222	2327	
==>r::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39284	39380	
==>ell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39284	39380	
==>ell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. D <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17330	17425	
==>ogy that is described here, and hence provides these
benefits to developers and users alike.

Fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17330	17425	
==>ogy that is described here, and hence provides these
benefits to developers and users alike.

Fo <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8920	9015	
==>al-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3849	3944	
==>al-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8920	9015	
==>al-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3849	3944	
==>al-Gordon <brent@brentdax.com>.

This code is free software, and may be used, distributed and/or <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	570	708	
==>arch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = sp <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	570	708	
==>arch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = sp <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	270	388	
==>ing is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $st <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	270	388	
==>ing is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $st <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27397	27493	
==>s there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31949	32045	
==>s there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31032	31128	
==>s there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2059	2154	
==>ar, it suffers from
convergence problems for some functions, which all Newton methods do.  All
i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4274	4384	
==>"\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14258	14344	
==>ew( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14258	14344	
==>ew( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14258	14344	
==>ew( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	573	677	
==>our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	573	677	
==>our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	573	677	
==>our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])" <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6821	6908	
==>, qw(-idist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1099	1191	
==>ary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1099	1191	
==>ary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_prev <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	684	819	
==>, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binmode OUT;
}

# X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5679	5776	
==>obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5679	5776	
==>obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5679	5776	
==>obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4499	4595	
==>uilder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $expla <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4499	4595	
==>uilder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $expla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6023	6119	
==>uilder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $expla <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16078	16171	
==>xpression>
    | <RelationalExpressionNoIn> <'>='> <ShiftExpression>
    | <RelationalExpressi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	986	1088	
==>DO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	986	1088	
==>DO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	986	1088	
==>DO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same fo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	813	903	
==>RE_EXITCODE};

my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14309	14409	
==>$S->force_object(anyof_class => graph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_hand <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1134	1230	
==>nfix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1134	1230	
==>nfix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numbe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1134	1230	
==>nfix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numbe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20117	20222	
==>>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19076	19181	
==>>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20117	20222	
==>>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19076	19181	
==>>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic from the server <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13403	13519	
==>lems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13403	13519	
==>lems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13403	13519	
==>lems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3379	3487	
==>"\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3888	4040	
==>tant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3888	4040	
==>tant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16588	16704	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16867	16983	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<li <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	740	884	
==>cond),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8601 ) returns Duration::Gregorian is expor <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13212	13347	
==>tax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9398	9533	
==>tax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10234	10369	
==>tax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #" <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4394	4492	
==>ut match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4394	4492	
==>ut match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4474	4572	
==>ut match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1623	1719	
==>.. their public equivalents live in Installation.pm
$config{'_meta_dir'}        = [ Path::Class:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30029	30146	
==>tems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30029	30146	
==>tems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30029	30146	
==>tems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13561	13675	
==>script = basename($_);
    
        my $alt = $self->alternatives_dir->file( $script );
        my $bin = $conf->bi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1370	1498	
==>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppEx <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1370	1498	
==>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppEx <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3955	4058	
==>or class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Transla <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3955	4058	
==>or class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Transla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3088	3192	
==>~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3088	3192	
==>~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3088	3192	
==>~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('c <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	674	769	
==>anging from an experimental "let's see if something
like this can work" to "ok, this looks doabl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20822	20950	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1144	1256	
==>bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1144	1256	
==>bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1144	1256	
==>bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7535	7663	
==>"lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7535	7663	
==>"lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6616	6712	
==>nt Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
} <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6616	6712	
==>nt Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10959	11057	
==>head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items
re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8363	8461	
==>head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10959	11057	
==>head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items
re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8363	8461	
==>head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number of items re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15143	15259	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15143	15259	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15143	15259	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_meth <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25223	25308	
==>,D,E,F,G,H,I,J)),
  E1 = amat(C0,flgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3700	3799	
==>uld fix the problem.

- The perl5 executable must have PMC support. 

PMC support is required for lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10444	10599	
==>rkaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10444	10599	
==>rkaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10444	10599	
==>rkaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	459	571	
==>ge TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the taintedn <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	997	1095	
==>head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=bac <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	997	1095	
==>head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=bac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1544	1642	
==>head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=bac <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1239	1333	
==>lp() if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	57	189	
==>warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	57	189	
==>warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	57	189	
==>warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $ <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	820	930	
==>ay).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl tsanta.pl he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	13	116	
==>r::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	13	116	
==>r::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16242	16337	
==>tes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parame <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16242	16337	
==>tes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parame <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24590	24729	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24869	25008	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6795	6896	
==>_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6795	6896	
==>_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1194	1443	
==>isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    su <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1194	1443	
==>isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4615	4722	
==>);
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4615	4722	
==>);
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	54	154	
==>m;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	54	154	
==>m;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14616	14712	
==>ed "Good Practice" of ordering the header fields.  Long header
values are not folded.

The option <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14616	14712	
==>ed "Good Practice" of ordering the header fields.  Long header
values are not folded.

The option <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3347	3460	
==>ift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3347	3460	
==>ift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3347	3460	
==>ift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => : <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15522	15616	
==>riables, so the body has the generic variables created in the binding
let: generic_in($.is) = { <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	745	889	
==>har eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	745	889	
==>har eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1328	1425	
==>sts of junctions --> junctions of lists
# - list concatenation --> array concatenation

# -------- <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1328	1425	
==>sts of junctions --> junctions of lists
# - list concatenation --> array concatenation

# -------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39357	39477	
==>y;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39357	39477	
==>y;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39357	39477	
==>y;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	775	878	
==>simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	740	837	
==>x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only me <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	740	837	
==>x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4872	4965	
==>le_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5065	5158	
==>le_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11251	11372	
==>$subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11251	11372	
==>$subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11251	11372	
==>$subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        i <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6817	6927	
==>/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::op <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3073	3192	
==>a('type'))
        || confess "you can only add types to a list got($_) => " . (CORE::join ", " => @_)
            forea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3890	3992	
==>lled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3890	3992	
==>lled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3890	3992	
==>lled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher-> <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4942	5074	
==>}
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	return 0 if $x == 0;
	$x > 0 ?? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	42	153	
==>e lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	42	153	
==>e lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	42	153	
==>e lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10458	10623	
==>sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10458	10623	
==>sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10458	10623	
==>sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}' <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1461	1594	
==>sume ( Getopt::Argument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Arg <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16634	16741	
==>G


# these are some sample ASTs that need to be typed

# this is a function that expects an int and will em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3796	3890	
==>fined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3796	3890	
==>fined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3796	3890	
==>fined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	311	406	
==>qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_sup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	311	406	
==>qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_sup <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	311	406	
==>qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_sup <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28536	28677	
==>&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28815	28956	
==>&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \& <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	789	888	
==>>{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2624	2723	
==>>{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2585	2705	
==>.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2585	2705	
==>.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	758	864	
==>0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_half_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4548	4642	
==>max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4548	4642	
==>max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4548	4642	
==>max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10051	10159	
==>1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set co <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7991	8099	
==>1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set co <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10051	10159	
==>1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set co <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7991	8099	
==>1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<set(...)>

Returns a new set co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5334	5493	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5750	5909	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5346	5505	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5762	5921	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1897	2023	
==>return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this mi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1897	2023	
==>return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this mi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4951	5051	
==>rom ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4951	5051	
==>rom ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7054	7161	
==>rm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3658	3765	
==>rm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4507	4614	
==>rm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8558	8660	
==>or::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't un <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16120	16220	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a li <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16120	16220	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a li <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16519	16612	
==>), often even while the program is executing.

Locale::KeyedText gives your application the ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16519	16612	
==>), often even while the program is executing.

Locale::KeyedText gives your application the ma <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1563	1676	
==>se;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_un <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1563	1676	
==>se;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14806	14900	
==>ystem, which makes
it easy to create and use relational databases in a very reliable,
portable, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14806	14900	
==>ystem, which makes
it easy to create and use relational databases in a very reliable,
portable, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2888	3004	
==>ndencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $proto <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3352	3468	
==>ndencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $proto <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9520	9631	
==>available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  m <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9520	9631	
==>available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2752	2887	
==>ary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return statement( $n )
        if ref $n->{op1} && exists $n->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19808	19897	
==>om_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19808	19897	
==>om_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19808	19897	
==>om_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3586	3687	
==>rl5::X1::Pugs::compile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CPerl5 faile <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	0	87	
==>method JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	0	87	
==>method JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	0	87	
==>method JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2591	2701	
==>$substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2591	2701	
==>$substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2591	2701	
==>$substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	343	446	
==>oad some module
### Upgrade this to not have to load the module if possible
sub can_use {
	my ($self, $m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45811	46041	
==>ame' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$name')
                  ->is_not_nil
                  ->and( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9917	10023	
==>l 
    # for the methods described below.
    # -----------------------------------------------
    # has % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9917	10023	
==>l 
    # for the methods described below.
    # -----------------------------------------------
    # has % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9917	10023	
==>l 
    # for the methods described below.
    # -----------------------------------------------
    # has % <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5824	5920	
==>our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5824	5920	
==>our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5824	5920	
==>our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9351	9446	
==>$aname if $op{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5141	5272	
==>$pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5342	5468	
==>$pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5342	5468	
==>$pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10485	10599	
==>]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10479	10593	
==>]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rul <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4052	4155	
==>ay )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The va <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4052	4155	
==>ay )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	84	184	
==>6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	84	184	
==>6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7230	7319	
==>Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1055	1144	
==>Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5742	5900	
==>atch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5742	5900	
==>atch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.lengt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5742	5900	
==>atch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.lengt <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2747	2872	
==>{'ops'} = $ops;
        my $cmp = (!defined($ops->[-1])) ? -1 : $ops->[-1]->op_cmp($op);
        if($cmp <= 0) {
          pri <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4688	4815	
==>"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4688	4815	
==>"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21151	21245	
==>nnels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21151	21245	
==>nnels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3485	3590	
==>1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3791	3896	
==>1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3485	3590	
==>1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3791	3896	
==>1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute it and/or modify <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2057	2162	
==>y $class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7134	7228	
==>($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7134	7228	
==>($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7134	7228	
==>($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    r <==
4	/Users/nnunley/pugs/util/config_h.pl	1007	1109	
==>nt OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5851	5950	
==>(@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5851	5950	
==>(@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5851	5950	
==>(@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	650	779	
==>ipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4445	4558	
==>"\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ch <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	810	917	
==>hift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' )."}";
    s/\$_\[4\]/\$grammar/g;
    retur <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5087	5181	
==>ions]

Creates a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39861	39952	
==>GPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24566	24657	
==>GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39861	39952	
==>GPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24566	24657	
==>GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20789	20968	
==>);
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20789	20968	
==>);
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20789	20968	
==>);
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36593	36685	
==>first: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 gro <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	518	623	
==>?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually i <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	518	623	
==>?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually i <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	389	491	
==><≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a ! <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	389	491	
==><≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a ! <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20438	20620	
==>rl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20438	20620	
==>rl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20438	20620	
==>rl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $met <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	167	299	
==>evision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Config{osname},
        page <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12856	13021	
==>ure->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11535	11698	
==>ure->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15286	15449	
==>ure->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->ne <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6397	6523	
==>author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13773	13888	
==>,
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13773	13888	
==>,
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13773	13888	
==>,
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9273	9370	
==>le SingleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\'\\]> #SourceCharacte <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1721	1868	
==>m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1721	1868	
==>m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3119	3255	
==>, $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 3 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3119	3255	
==>, $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 3 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3284	3415	
==>d' => sub ($$) {
            my ($self, $label) = @_;
            exists ::opaque_instance_attrs($self)->{'%:methods'}->{$label} ? 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13832	13951	
==>$self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13832	13951	
==>$self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13832	13951	
==>$self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11187	11321	
==>{
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11181	11315	
==>{
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7878	8030	
==>y $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7878	8030	
==>y $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7878	8030	
==>y $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22239	22333	
==>tion for the L<Relation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14660	14763	
==>an, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14660	14763	
==>an, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19912	20004	
==>arsed into blocks and the blocks have been
marked for various compilers, Module::Compile disp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19912	20004	
==>arsed into blocks and the blocks have been
marked for various compilers, Module::Compile disp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14710	14812	
==>ebug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14710	14812	
==>ebug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5608	5705	
==>hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5608	5705	
==>hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13547	13693	
==>ISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13547	13693	
==>ISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13547	13693	
==>ISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Clas <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23929	24022	
==>ype::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. α → β", "pretty print a <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	279	431	
==>(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$ <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	279	431	
==>(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7477	7651	
==>tch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7477	7651	
==>tch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7477	7651	
==>tch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4931	5050	
==>ckage => $pkg) ) {
        unless (-e $index) {
            # create the directory an index file lives in (ignores error <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20391	20494	
==>[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	385	477	
==>L2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	385	477	
==>L2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	385	477	
==>L2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	499	601	
==>= @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@di <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	499	601	
==>= @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@di <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2945	3041	
==>, if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2945	3041	
==>, if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9826	9940	
==>$name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9826	9940	
==>$name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9826	9940	
==>$name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "re <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3344	3472	
==>en_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3344	3472	
==>en_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9587	9684	
==>e methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurren <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9587	9684	
==>e methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15616	15715	
==>fess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15616	15715	
==>fess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15616	15715	
==>fess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_att <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1979	2072	
==>num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num of num <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	763	862	
==>Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	763	862	
==>Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	763	862	
==>Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5157	5277	
==>d, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_me <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2889	2991	
==>sult, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_fun <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2947	3049	
==>sult, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_fun <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6158	6253	
==>deDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSequence>
}
rule Unicode <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3087	3190	
==>$passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3087	3190	
==>$passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4611	4714	
==>$passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4339	4558	
==>ext;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Net <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4339	4558	
==>ext;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Net <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19320	19414	
==>ta DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are stru <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19320	19414	
==>ta DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are stru <==
4	/Users/nnunley/pugs/util/drift.pl	1184	1296	
==>e.

All changes made here will be lost!

-- WARNING WARNING WARNING --
-}

#ifndef HADDOCK









SCARY

# spli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	626	724	
==>ed CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	626	724	
==>ed CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	626	724	
==>ed CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@ru <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13086	13201	
==>od trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use brute force!
        my sub expand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5294	5400	
==>L::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5294	5400	
==>L::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5294	5400	
==>L::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3666	3772	
==>->preop) {
        $args{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMaker::WriteMakefil <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29004	29095	
==>ple-valued
attributes which wrap zero old attributes (they are effectively just an
extension <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33556	33647	
==>ple-valued
attributes which wrap zero old attributes (they are effectively just an
extension <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32693	32784	
==>ple-valued
attributes which wrap zero old attributes (they are effectively just an
extension <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1409	1517	
==>_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1409	1517	
==>_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7175	7275	
==>r::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$spa <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7175	7275	
==>r::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	158	249	
==>ec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	158	249	
==>ec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	158	249	
==>ec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3315	3451	
==>r, $config->meta_file ) );
            
            my %avail = map { $_->{package} => $_ } LoadFile( $Available );
            for my $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	993	1096	
==>erred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily imp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	993	1096	
==>erred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily imp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	993	1096	
==>erred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily imp <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2849	2946	
==>tree;
	    my($p5,$warn) = Perl6::Run::OnPerl5::X1::PilToPerl5::emit($pil_tree);
	    my $failed = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3654	3749	
==>astly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3654	3749	
==>astly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3654	3749	
==>astly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25274	25402	
==>al {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1068	1188	
==>ody = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1468	1588	
==>ody = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1942	2062	
==>ody = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6185	6303	
==>tch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return jo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6197	6315	
==>tch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return jo <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30842	30939	
==>g held the torch for many years, and then
Michael G Schwern.

Current maintainer is Andy Lester C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	110	204	
==>nfess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::TestBuilder = class 'TestBuild <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2118	2242	
==>[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$se <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2118	2242	
==>[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$se <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	794	891	
==>ft(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar us <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	794	891	
==>ft(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar us <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5204	5324	
==>rns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5204	5324	
==>rns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_nam <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2391	2501	
==>r @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2391	2501	
==>r @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1074	1197	
==>ymmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1054	1177	
==>ymmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1074	1197	
==>ymmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1054	1177	
==>ymmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2871	2984	
==>uce auto_provides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warnings as w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3002	3142	
==>matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3524	3661	
==>matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2904	3041	
==>matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3524	3661	
==>matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @sta <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5714	5948	
==>ro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yi <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5714	5948	
==>ro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9070	9233	
==>9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9070	9233	
==>9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2969	3069	
==>r is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returni <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2969	3069	
==>r is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returni <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30679	30774	
==>n has all of the tuples of the
original (or rather, the corresponding transformation of each tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35230	35325	
==>n has all of the tuples of the
original (or rather, the corresponding transformation of each tup <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1001	1120	
==>arnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1001	1120	
==>arnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1001	1120	
==>arnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2378	2489	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    # (None Y <==
4	/Users/nnunley/pugs/util/claim_drift.pl	529	632	
==>.${FS}DrIFT") {
    warn <<".";
*** No DrIFT directory found. Make sure you are in the top level of a pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2640	2738	
==>--perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2640	2738	
==>--perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @A <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2640	2738	
==>--perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @A <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16147	16312	
==>tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_g <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6095	6186	
==>lder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6095	6186	
==>lder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8292	8383	
==>lder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6963	7102	
==>>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6963	7102	
==>>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6963	7102	
==>>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # wa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6909	7007	
==>Name" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThunk ($pThunk) { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19646	19771	
==>" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3113	3218	
==>a("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3113	3218	
==>a("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3113	3218	
==>a("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14103	14291	
==>t->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14103	14291	
==>t->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14103	14291	
==>t->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret-> <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2121	2240	
==>afe::Annotation->new(
		type => $to,
		struct_equiv => Blondie::App->new(
			Blondie::TypeSafe::Annotation->new(
				typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	728	849	
==>() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	728	849	
==>() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	728	849	
==>() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	700	819	
==>check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class->SUP <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2483	2602	
==>{
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods ) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4071	4190	
==>{
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3156	3270	
==>);
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3156	3270	
==>);
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	635	746	
==>lf->SUPER::add_rule( 
        "infix:<" . $opt{name} . ">",
        '{ return { op => "infix:<' . $opt{name} . ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	565	669	
==>[$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	565	669	
==>[$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	565	669	
==>[$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10119	10255	
==>SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $k <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10119	10255	
==>SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $k <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4006	4121	
==>}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::el <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4006	4121	
==>}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3228	3367	
==>id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3947	4061	
==>id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12814	12910	
==>scalar
context the number of fields removed is returned.

Note that if you pass in multiple field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12814	12910	
==>scalar
context the number of fields removed is returned.

Note that if you pass in multiple field <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13769	13874	
==>r, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18972	19077	
==>r, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13769	13874	
==>r, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18972	19077	
==>r, to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_ <==
4	/Users/nnunley/pugs/util/version_h.pl	2046	2153	
==>like STDIN.
  no warnings "io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5545	5644	
==>new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5545	5644	
==>new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5545	5644	
==>new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2058	2179	
==>othread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2058	2179	
==>othread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2058	2179	
==>othread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6352	6461	
==>p5_elemental(dot)       --> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37152	37249	
==>nerates to a
C<product>.  In any situation where the heading of one source relation is a
full subs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41701	41798	
==>nerates to a
C<product>.  In any situation where the heading of one source relation is a
full subs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41324	41421	
==>nerates to a
C<product>.  In any situation where the heading of one source relation is a
full subs <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1640	1741	
==>done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1640	1741	
==>done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5896	5986	
==>normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5896	5986	
==>normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $event <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1219	1367	
==>ppen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1219	1367	
==>ppen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_head <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7005	7124	
==>s_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Parameter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8224	8324	
==>turns a category object.

options:

=item * grammar => $category_name - the name of this category <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1476	1582	
==>'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILP <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1476	1582	
==>'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILP <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3224	3328	
==>er.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3224	3328	
==>er.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6336	6435	
==>rray:) returns Int {
    +@array;
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6748	6846	
==>etails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to tr <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6748	6846	
==>etails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to tr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8945	9043	
==>etails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to tr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8284	8382	
==>m('$fun_name',$argl)" if $fun_name;
	return "p6_applyi($fun,$argl)";
    }
    return "p6_apply($fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	456	552	
==>ass is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	456	552	
==>ass is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	456	552	
==>ass is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2659	2940	
==>lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1349	1630	
==>lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2659	2940	
==>lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1349	1630	
==>lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16302	16431	
==>, "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16302	16431	
==>, "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6444	6554	
==>tcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6227	6335	
==>tcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alt <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	117	213	
==>EQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	117	213	
==>EQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32631	32724	
==>on demand into user-readable
message strings, using data from external Template modules as a t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32631	32724	
==>on demand into user-readable
message strings, using data from external Template modules as a t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17334	17447	
==>,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11949	12061	
==>,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11949	12061	
==>,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11949	12061	
==>,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse ma <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	348	452	
==>hingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	348	452	
==>hingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	353	453	
==>size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $? <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	353	453	
==>size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $? <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35698	35789	
==>nary relational operator that takes a single
Relation::Example in its C<$other> argument, wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5779	5868	
==>il2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5779	5868	
==>il2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5779	5868	
==>il2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

s <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1657	1795	
==>fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1624	1762	
==>fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6431	6526	
==>tVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6431	6526	
==>tVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17233	17341	
==>e";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$ho <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13654	13762	
==>e";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$ho <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6908	7002	
==>ver 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' direct <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6908	7002	
==>ver 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' direct <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7719	7861	
==>/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	639	738	
==>of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	639	738	
==>of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	639	738	
==>of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2352	2472	
==>!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    } <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2352	2472	
==>!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20074	20173	
==>s I think) from the main program binary.  Each user
language is in a separate file, and adding a loc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20074	20173	
==>s I think) from the main program binary.  Each user
language is in a separate file, and adding a loc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	698	839	
==>without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	698	839	
==>without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	698	839	
==>without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	479	588	
==>Filtered::Comments;
use Filter::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21897	21989	
==>ode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21897	21989	
==>ode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21897	21989	
==>ode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25182	25269	
==>network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for ex <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23946	24033	
==>network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for ex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25182	25269	
==>network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for ex <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23946	24033	
==>network/svnbot.p6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6965	7079	
==>EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6965	7079	
==>EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6965	7079	
==>EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fi <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	779	883	
==>ernals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $sta <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11027	11157	
==>naryMode($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    multi method seek (Int $position, Int $w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4141	4258	
==>{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4141	4258	
==>{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4141	4258	
==>{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6139	6263	
==>x = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() lo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6139	6263	
==>x = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() lo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6139	6263	
==>x = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() lo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10558	10655	
==>$.name'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code_params,";
    $code_args .= "' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2758	2883	
==>gth; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2758	2883	
==>gth; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2758	2883	
==>gth; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.B <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47442	47557	
==>Package->send('add_method' => (
    # method label
        symbol->new('STORE'),
    # method body
        method->n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19003	19102	
==>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the cons <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18037	18136	
==>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the cons <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19003	19102	
==>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the cons <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18037	18136	
==>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in the cons <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9227	9394	
==>$at = $pos + $m0.from;
              {$a}.push($m0) if $at > $prev; $prev = $at;
              $pos += {$m}.from + 1;
           }
           # want.Item
           0 ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5713	5813	
==>$method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5713	5813	
==>$method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5713	5813	
==>$method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5738	5841	
==>g $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5738	5841	
==>g $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5738	5841	
==>g $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6048	6146	
==>s, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 4, '... $Object is the se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10439	10559	
==>l out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2456	2564	
==>l out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2456	2564	
==>l out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20654	20755	
==>}
}


{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8532	8657	
==>=> chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(883 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8532	8657	
==>=> chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(883 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17680	17772	
==>pired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D stateme <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17680	17772	
==>pired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D stateme <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6925	7065	
==>t_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11480	11620	
==>t_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12278	12418	
==>t_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13005	13145	
==>t_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23553	23674	
==>_SANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_COPY_STR  0x01            /* Need to copy the string <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37711	37811	
==>ligned and merged.  The heading of the new relation is the union of
all the headings of the source re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42260	42360	
==>ligned and merged.  The heading of the new relation is the union of
all the headings of the source re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41910	42010	
==>ligned and merged.  The heading of the new relation is the union of
all the headings of the source re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3434	3546	
==>::Grammar::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8746	8858	
==>hift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8734	8846	
==>hift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capt <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2134	2231	
==>e a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2134	2231	
==>e a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	193	302	
==>d';

use base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1332	1438	
==>so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1332	1438	
==>so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their k <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1332	1438	
==>so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8448	8548	
==>FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $EN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8448	8548	
==>FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $EN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8448	8548	
==>FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $EN <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13548	13710	
==>op {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13548	13710	
==>op {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13548	13710	
==>op {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $o <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2433	2595	
==>op {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4129	4236	
==>@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4978	5085	
==>@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2709	2813	
==>rns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

subme <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2709	2813	
==>rns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

subme <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	79	198	
==>rict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	121	240	
==>rict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	79	198	
==>rict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	121	240	
==>rict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4315	4441	
==>ript>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4315	4441	
==>ript>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4315	4441	
==>ript>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16161	16422	
==>al(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16440	16701	
==>al(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13267	13362	
==>...}`

This method returns a recurrence set containing only the elements that 
satisfy the given <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13267	13362	
==>...}`

This method returns a recurrence set containing only the elements that 
satisfy the given <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7706	7798	
==>d variable will unify it's instantiated value instead of itself
multi unify => ('type::variab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2850	2959	
==>"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2850	2959	
==>"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2850	2959	
==>"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or di <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9861	9967	
==>e
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5673	5766	
==>_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5673	5766	
==>_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3475	3621	
==>ub { # $int -> $bool;
                my $self = shift;
                my $idx = shift;
                exists $self->get_value('@:slots')->[$idx] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	129	222	
==>ture can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	129	222	
==>ture can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	129	222	
==>ture can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22 <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16721	16843	
==>c code
    .local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8427	8520	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8427	8520	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8427	8520	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4324	4428	
==>l-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4324	4428	
==>l-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4324	4428	
==>l-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4365	4468	
==>E
*{'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13499	13651	
==>d_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3644	3780	
==>d_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3644	3780	
==>d_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3644	3780	
==>d_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7309	7423	
==>defined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7309	7423	
==>defined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7309	7423	
==>defined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	366	477	
==>value)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conversion to native <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11005	11125	
==>self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11005	11125	
==>self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11005	11125	
==>self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	216	326	
==>s "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	216	326	
==>s "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	216	326	
==>s "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10577	10707	
==>:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10577	10707	
==>:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10577	10707	
==>:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp- <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2925	3038	
==>ee);
	    my $failed = !defined $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6789	6876	
==>resolve' => ::make_method($_resolve));

## --------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6789	6876	
==>resolve' => ::make_method($_resolve));

## --------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6789	6876	
==>resolve' => ::make_method($_resolve));

## --------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11622	11804	
==>params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11622	11804	
==>params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11622	11804	
==>params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	848	1000	
==>F->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	848	1000	
==>F->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	848	1000	
==>F->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	326	439	
==>> \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML <==
4	/Users/nnunley/pugs/util/version_h.pl	121	218	
==>my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entries";

my $old_revision = -1;
op <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27065	27159	
==>would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=ite <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31617	31711	
==>would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=ite <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30673	30767	
==>would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=ite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1914	2072	
==>p($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1914	2072	
==>p($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1914	2072	
==>p($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1651	1755	
==>= @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($end_index) && $end_index <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13701	13800	
==>traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; dis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13701	13800	
==>traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; dis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24404	24496	
==>w.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24404	24496	
==>w.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4287	4380	
==>cription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4287	4380	
==>cription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6484	6577	
==>cription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	490	596	
==>y($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	490	596	
==>y($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21248	21343	
==>alled
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE A <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21248	21343	
==>alled
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3716	3821	
==>le_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gene <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3933	4038	
==>le_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gene <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20303	20393	
==>rationNoIn>
    | <VariableDeclarationListNoIn> <','> <VariableDeclarationNoIn>
}
rule Vari <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15440	15568	
==>op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \'' . $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2855	3014	
==>ner ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2855	3014	
==>ner ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2855	3014	
==>ner ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute " <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4811	4905	
==>tmpl, \%args) or error(Params::Check->last_error), return;

    for my $index ( $self->index_fi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	188	321	
==>od BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	188	321	
==>od BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33835	33929	
==>(or user role's) preferences such that each says what
language they prefer to communicate in, a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33835	33929	
==>(or user role's) preferences such that each says what
language they prefer to communicate in, a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6963	7065	
==>ack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close:
  goto oper_red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6679	6776	
==>_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6679	6776	
==>_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6679	6776	
==>_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6338	6442	
==>Primitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5461	5564	
==>y @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5461	5564	
==>y @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5461	5564	
==>y @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2567	2678	
==>ig->lookup('precompile_modules') }),
                '-p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3573	3678	
==>.toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3573	3678	
==>.toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3573	3678	
==>.toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
} <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1105	1217	
==>}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, plus whatever /they/ ne <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19178	19272	
==>ader() methods to set the referrer.

=item $h.www_authenticate

This header must be included as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19178	19272	
==>ader() methods to set the referrer.

=item $h.www_authenticate

This header must be included as <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26503	26591	
==>rolog::Yaswi qw(:query :interactive :load :assert :context :run);
#$Language::Prolog::Yas <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	953	1065	
==>e( list_dependencies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9120	9231	
==>y!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9120	9231	
==>y!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9120	9231	
==>y!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15497	15607	
==>$_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->vi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16912	17022	
==>$_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->vi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21668	21778	
==>$_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->vi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4101	4191	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9723	9847	
==>ilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9723	9847	
==>ilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9723	9847	
==>ilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub ru <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3753	3853	
==>intf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec fail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1133	1274	
==>F->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1133	1274	
==>F->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1133	1274	
==>F->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} ) <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2087	2209	
==>map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11852	11974	
==>y $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11852	11974	
==>y $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11852	11974	
==>y $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10027	10142	
==>param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	93	199	
==>s>($container; ReturnType $arg) {
    $container does returns($arg);
  }
  #... #QQQ - what goes here, if a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1997	2096	
==>my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1997	2096	
==>my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::do <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1997	2096	
==>my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::do <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10608	10713	
==>his method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10608	10713	
==>his method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2477	2577	
==>erate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2477	2577	
==>erate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5432	5672	
==>) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7194	7434	
==>) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34641	34737	
==>bset of the
heading of the invocant Relation, and returns a new Relation that has the
same headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39191	39287	
==>bset of the
heading of the invocant Relation, and returns a new Relation that has the
same headin <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7927	8114	
==>ame => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.P <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7927	8114	
==>ame => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13987	14110	
==>l $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PA <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13987	14110	
==>l $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3906	4031	
==>ne'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4099	4224	
==>ne'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 }, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22576	22667	
==>ocket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22576	22667	
==>ocket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

T <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26236	26333	
==>fault to C<COLUMNS>. If this is not set, it will
default to 80. Note that users of Bourne-sh based <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	559	652	
==>ackage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recurs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	559	652	
==>ackage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recurs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	559	652	
==>ackage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recurs <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3046	3167	
==>te $values{perl_version} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^(\d+)\ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26848	26959	
==>age::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)];
#use Language::Prol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20275	20362	
==>p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20275	20362	
==>p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20275	20362	
==>p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9247	9389	
==>ilder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $de <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1369	1505	
==>ilder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1369	1505	
==>ilder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $de <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43305	43417	
==>c) 2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

T <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1512	1682	
==>f.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1616	1786	
==>f.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1512	1682	
==>f.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1616	1786	
==>f.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18850	18974	
==>->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18850	18974	
==>->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18850	18974	
==>->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	753	846	
==>ring comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	753	846	
==>ring comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	753	846	
==>ring comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_ra <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4807	4897	
==>rray.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length( <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	395	503	
==>id
# problems when there are fundamental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3636	3736	
==>DO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3636	3736	
==>DO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3636	3736	
==>DO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2521	2635	
==>y $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2521	2635	
==>y $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2521	2635	
==>y $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15070	15181	
==>)))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11530	11689	
==>ub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $blo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7812	7971	
==>ub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $blo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8646	8805	
==>ub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $blo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10520	10624	
==>$code_args = "";
    $code_args .= "'\$.name'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1591	1705	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1591	1705	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1591	1705	
==>ame);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22297	22392	
==>nnel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21169	21264	
==>nnel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified ke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22297	22392	
==>nnel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified ke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21169	21264	
==>nnel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the specified ke <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	778	872	
==>d { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	778	872	
==>d { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRI <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1015	1108	
==>Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1015	1108	
==>Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5931	6044	
==>h objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->comp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5727	5835	
==>h objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->comp <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4983	5087	
==>encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex conver <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4983	5087	
==>encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex conver <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2981	3089	
==>"internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the ob <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2981	3089	
==>"internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the ob <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2604	2704	
==>tring))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22514	22612	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18935	19033	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2676	2879	
==>_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2676	2879	
==>_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20301	20395	
==>replaced by a single line containing the hexadecimal digest of the
result in double quotes foll <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20301	20395	
==>replaced by a single line containing the hexadecimal digest of the
result in double quotes foll <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3165	3358	
==>( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3165	3358	
==>( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3984	4074	
==>a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbol <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3984	4074	
==>a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbol <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1852	1968	
==>return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . '"' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	160	253	
==>->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	160	253	
==>->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
us <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	160	253	
==>->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
us <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	702	823	
==>atch     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	702	823	
==>atch     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or pa <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	177	278	
==>RY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## func <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	177	278	
==>RY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## func <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2948	3084	
==>_->add_rule(
        name => 'try',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #fo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	921	1036	
==>t => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.n <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	921	1036	
==>t => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.n <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25946	26048	
==>T_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL	 	0x00004
 #define ROPT_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	423	521	
==>, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	423	521	
==>, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	423	521	
==>, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->get <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10557	10683	
==>gram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11019	11145	
==>gram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10551	10677	
==>gram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11013	11139	
==>gram = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6280	6376	
==>r $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns St <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8348	8444	
==>r $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6280	6376	
==>r $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns St <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8348	8444	
==>r $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) returns St <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	302	409	
==>er::Rule::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	516	620	
==>/ and refer to it via the closure, then things don\'t work right
      // --the order of output can becom <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	516	620	
==>/ and refer to it via the closure, then things don\'t work right
      // --the order of output can becom <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	516	620	
==>/ and refer to it via the closure, then things don\'t work right
      // --the order of output can becom <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16333	16430	
==>e media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returne <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16333	16430	
==>e media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returne <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3086	3174	
==>=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fprintf(stderr," flags=%l <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	272	397	
==>hod ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMethod(Method.new(...))
 $class.apply;

 # my SomeCla <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	709	854	
==>*
            (?: (\d+) \s* M )? \s*
            (?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11265	11382	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14742	14859	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14050	14167	
==>e is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1535	1676	
==>\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1535	1676	
==>\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @pat <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35757	35851	
==>nal operator that takes
another Relation as its C<$other> argument and combines it with the
inv <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40307	40401	
==>nal operator that takes
another Relation as its C<$other> argument and combines it with the
inv <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13264	13432	
==>line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13264	13432	
==>line,
        from      => $from,
        from_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12356	12512	
==>line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12356	12512	
==>line,
      from      => $from,
      from_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3201	3294	
==>ulesInP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use base qw/Class::Acc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6193	6284	
==>LTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6193	6284	
==>LTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6193	6284	
==>LTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MU <==
4	/Users/nnunley/pugs/util/testgraph.pl	1750	1869	
==>e My::Subtest;
    use base qw/Test::TAP::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2348	2459	
==>file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2565	2676	
==>file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude f <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6176	6278	
==>pe}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= < <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3992	4098	
==>ues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Mod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3992	4098	
==>ues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Mod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10951	11045	
==>such field exists C<undef> will be returned.

A multi-valued field will be returned as separate <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10951	11045	
==>such field exists C<undef> will be returned.

A multi-valued field will be returned as separate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3756	3868	
==>sobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3756	3868	
==>sobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3756	3868	
==>sobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29476	29578	
==>he format.

Fix HARNESS_COMPILE_TEST without breaking its core usage.

Figure a way to report test name <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	858	955	
==>::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	858	955	
==>::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	938	1035	
==>::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	137	226	
==>f.new($self.length + $duration.length);
}

method subtract($self: Duration $duration) retu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2357	2467	
==>mes must be symbols";
    ($self->[2]->exists($name) == $bit::FALSE)
        || confess "Attribute (" . $name-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1470	1572	
==>.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1470	1572	
==>.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1470	1572	
==>.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11822	11938	
==>s it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11822	11938	
==>s it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10456	10559	
==>t it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DES <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10456	10559	
==>t it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DES <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6905	6994	
==>t::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.o <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1345	1434	
==>t::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6905	6994	
==>t::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1345	1434	
==>t::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5363	5460	
==>al_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5363	5460	
==>al_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9237	9327	
==>ments, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3062	3152	
==>ments, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	738	875	
==>nse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	738	875	
==>nse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($p <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7548	7685	
==>s, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7605	7742	
==>s, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license( <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	482	588	
==>defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	482	588	
==>defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14079	14173	
==>argument can be given to specify which
characters to consider unsafe (i.e., which to escape). T <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14079	14173	
==>argument can be given to specify which
characters to consider unsafe (i.e., which to escape). T <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10212	10319	
==>!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10212	10319	
==>!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12075	12166	
==>setta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12075	12166	
==>setta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) i <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1035	1143	
==>resented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes an <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4513	4621	
==>resented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes an <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10071	10174	
==>.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule RegularExpressionLiteral {  # see 7. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28302	28399	
==>ation::Example's body.

=item C<size () returns Int>

This method returns a count of this Relation <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8981	9181	
==>y @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rew <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8981	9181	
==>y @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rew <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4016	4136	
==>y bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4016	4136	
==>y bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8135	8330	
==>unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8135	8330	
==>unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8135	8330	
==>unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( ' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	293	409	
==>class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PAC <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5367	5491	
==>) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_p <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5367	5491	
==>) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2524	2631	
==>fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2664	2771	
==>fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	564	674	
==>er = '';
    for(%Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ "=" ~ %Cookies{$_} ~ "; expires=Sat, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2241	2339	
==>ail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twic <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2241	2339	
==>ail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twic <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2241	2339	
==>ail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1968	2091	
==>(args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1968	2091	
==>(args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1968	2091	
==>(args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Bo <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18578	18664	
==>oIn> <'?'> <AssignmentExpressionNoIn> <':'> <AssignmentExpressionNoIn>
}
rule Assignmen <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7875	7986	
==>e.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simil <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7005	7116	
==>e.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simil <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7875	7986	
==>e.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simil <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7005	7116	
==>e.includes($member);
}

# Subs to make set operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Simil <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4393	4493	
==>ethod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4393	4493	
==>ethod prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5265	5363	
==>ethod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5265	5363	
==>ethod prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (Set $one, Set <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2265	2361	
==>ir fast method fails, they fall back
on something more likely to work.

Further, the above method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3324	3414	
==>f)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3324	3414	
==>f)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3324	3414	
==>f)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::o <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38073	38162	
==>he undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38073	38162	
==>he undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	27	116	
==>require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitiv <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	27	116	
==>require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitiv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	887	990	
==>- returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	887	990	
==>- returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	887	990	
==>- returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the r <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24901	24996	
==>ator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1391	1490	
==>nish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 vers <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1391	1490	
==>nish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 vers <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1391	1490	
==>nish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 vers <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	89	181	
==>nt { $fh } <<'END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function openNe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13779	13875	
==>B prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13779	13875	
==>B prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13779	13875	
==>B prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_fr <==
4	/Users/nnunley/pugs/util/package-osx.pl	2909	3038	
==>gs/pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5951	6064	
==>_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6009	6122	
==>_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5139	5243	
==>');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1 <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	298	422	
==>sage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	298	422	
==>sage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::M <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10392	10500	
==>ew(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          T <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10392	10500	
==>ew(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          T <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2461	2566	
==>ing
newlines.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::I <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9813	9916	
==>m.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    ret <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9813	9916	
==>m.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    ret <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1748	1845	
==>ly, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alpha deve <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1019	1139	
==>= $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1019	1139	
==>= $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookie <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7239	7336	
==>::C::Builtins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15030	15127	
==>egexp::WordBounds

Adds handlers for C<< < >> and C<< > >> anchors, which match at the
beginning a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14422	14510	
==>:main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14422	14510	
==>:main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14422	14510	
==>:main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5655	5821	
==>as bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5655	5821	
==>as bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5655	5821	
==>as bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'd <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	200	309	
==>PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smoke_concurren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11736	11935	
==>candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11736	11935	
==>candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11736	11935	
==>candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ } <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19840	19947	
==>s Relation::Example {
    # This form takes the form of an ordinary natural join,
    # where some source at <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	624	760	
==>fined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	635	771	
==>fined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5883	5987	
==>b retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5883	5987	
==>b retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7289	7393	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10766	10870	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9903	10007	
==>he heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27653	27749	
==>ension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32205	32301	
==>ension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31297	31393	
==>ension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each or <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32000	32090	
==>method _make_descendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7336	7431	
==>n(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2469	2564	
==>2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(I <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7336	7431	
==>n(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2469	2564	
==>2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(I <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	280	390	
==>n-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	280	390	
==>n-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4630	4775	
==>llow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5282	5427	
==>llow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21309	21403	
==>les be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21309	21403	
==>les be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5496	5595	
==>{ $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5496	5595	
==>{ $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5496	5595	
==>{ $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2453	2553	
==>RE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2453	2553	
==>RE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2453	2553	
==>RE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Ma <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5555	5646	
==>tion );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($target, $whitespacePosition <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2674	2786	
==>ys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    ExtUtils::MakeMa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6281	6376	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6281	6376	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6281	6376	
==>aque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	513	619	
==>nt pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	513	619	
==>nt pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	513	619	
==>nt pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  p <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5673	5769	
==>(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9290	9409	
==>> perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => [ comma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2244	2332	
==>attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2244	2332	
==>attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2244	2332	
==>attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_me <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	852	956	
==>ackages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Att <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	852	956	
==>ackages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Att <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7823	7918	
==>roxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Aut <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7823	7918	
==>roxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Aut <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23054	23250	
==>leop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23333	23529	
==>leop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" ) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18751	18845	
==>ts native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18751	18845	
==>ts native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5060	5175	
==>d Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5060	5175	
==>d Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	31	134	
==>6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @E <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	31	134	
==>6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4664	4758	
==>e_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4664	4758	
==>e_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4664	4758	
==>e_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1805	1960	
==>relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1805	1960	
==>relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1805	1960	
==>relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	994	1105	
==>ew() unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($ind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1127	1261	
==>am - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1127	1261	
==>am - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ? <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1127	1261	
==>am - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ? <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16203	16311	
==>=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	10	125	
==>odule File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	10	125	
==>odule File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5287	5396	
==>ler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5104	5207	
==>ler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6899	6998	
==>me'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posNa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6899	6998	
==>me'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posNa <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18762	18857	
==>d triggering core behavior which we are not prepared to
support (such as modification of the com <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3052	3147	
==>d triggering core behavior which we are not prepared to
support (such as modification of the com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3486	3579	
==>vifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3486	3579	
==>vifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3486	3579	
==>vifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8964	9078	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9157	9271	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11348	11453	
==>f !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11348	11453	
==>f !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4523	4659	
==>er_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.p <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4523	4659	
==>er_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16450	16543	
==>m::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16450	16543	
==>m::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::n <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1311	1437	
==>3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3607	3733	
==>3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1311	1437	
==>3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3607	3733	
==>3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7444	7544	
==>\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7444	7544	
==>\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7444	7544	
==>\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14577	14677	
==>ndler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8779	8879	
==>ndler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	854	951	
==>previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	854	951	
==>previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8768	8884	
==>Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expe <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18240	18352	
==>$where = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $code .= ' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	932	1040	
==>Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	932	1040	
==>Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39653	39762	
==>= shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIV <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39653	39762	
==>= shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIV <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39653	39762	
==>= shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIV <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20415	20513	
==>bdirectory and no files, collapse
    for my $subdir (keys %{$dir_index->{_dirs}}) {
	my $val = $di <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16136	16249	
==>resentation that is like the $html->as_text
            $heading = $p->interpolate($heading);
            $heading <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2540	2645	
==>$new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $vers <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2540	2645	
==>$new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $vers <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2540	2645	
==>$new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $vers <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12908	13065	
==>:isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12908	13065	
==>:isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12908	13065	
==>:isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2143	2295	
==>();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6827	6981	
==>_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11387	11536	
==>_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12185	12334	
==>_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12912	13061	
==>_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6670	6793	
==>h"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6670	6793	
==>h"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8909	9021	
==>$intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric differenc <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8909	9021	
==>$intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric differenc <==
4	/Users/nnunley/pugs/util/importgraph.pl	1507	1613	
==>, map {
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12568	12666	
==>xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12568	12666	
==>xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12568	12666	
==>xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5468	5624	
==>}
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5468	5624	
==>}
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	440	549	
==>( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	472	581	
==>( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2067	2190	
==>= @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_outp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2067	2190	
==>= @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_outp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2147	2270	
==>= @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_outp <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38892	38983	
==>cant Relation::Example and that match any tuples of C<$other> along
their common attributes. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2970	3201	
==>',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mod <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8064	8295	
==>',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2970	3201	
==>',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8064	8295	
==>',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Mod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8259	8402	
==>@{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8259	8402	
==>@{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8259	8402	
==>@{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2619	2730	
==>f it exists.

Returns a true value on success, otherwise something false.

=cut

sub create {
    my $self = shi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7704	7846	
==>( $match ) {
        return ${$match<category>}.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precede <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	765	880	
==>y $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	765	880	
==>y $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	765	880	
==>y $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	713	828	
==>State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenth <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	713	828	
==>State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenth <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6037	6140	
==>losed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6037	6140	
==>losed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3426	3593	
==>$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	289	386	
==>ain_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	289	386	
==>ain_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::ad <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	289	386	
==>ain_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::ad <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1605	1701	
==>ss::Events::Subscriber {
    use Set;
    has Set $.subscriptions handles :note_subscription<inse <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	125	244	
==>)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	125	244	
==>)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15902	16003	
==>tr $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15902	16003	
==>tr $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	997	1160	
==>r .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'L <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	997	1160	
==>r .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'L <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	533	654	
==>@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	533	654	
==>@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18412	18528	
==>eturn (self)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1020	1114	
==>TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1020	1114	
==>TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1020	1114	
==>TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PU <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1065	1187	
==>am<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration ret <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	807	929	
==>am<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration ret <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1065	1187	
==>am<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration ret <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	807	929	
==>am<after> + $duration;
    }
    return $class.new( %tmp );
}

method set_time_zone( $tz ) {
    ...
}

method duration ret <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6452	6545	
==>join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inte <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5525	5618	
==>join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inte <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6452	6545	
==>join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inte <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5525	5618	
==>join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_inte <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	497	599	
==>}
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathemat <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	497	599	
==>}
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathemat <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10558	10652	
==>_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The compleme <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10558	10652	
==>_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The compleme <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20873	20988	
==>->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43797	43912	
==>->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10048	10161	
==>ring) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my % <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10048	10161	
==>ring) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my % <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1307	1462	
==>= ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1307	1462	
==>= ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_v <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14585	14687	
==>r than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not inc <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14585	14687	
==>r than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not inc <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4633	4758	
==>$one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3760	3885	
==>$one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4633	4758	
==>$one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3760	3885	
==>$one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	655	779	
==>elation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4133	4257	
==>elation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relatio <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2646	2738	
==>=head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2646	2738	
==>=head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6303	6405	
==>ial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6303	6405	
==>ial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6303	6405	
==>ial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35551	35662	
==>se {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35551	35662	
==>se {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35551	35662	
==>se {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48606	48690	
==>end('add_attribute', (symbol->new('$:authority') => attribute->new('$:authority' => ' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4247	4370	
==>d a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12716	12815	
==>xt) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12716	12815	
==>xt) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12716	12815	
==>xt) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2641	2739	
==>ok to destroy the objects since they're copies
	foreach my $entry (@free) {
		my $assigned = $map{$ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19786	19919	
==>:File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $outfile->print($sobj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15507	15608	
==>== Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15507	15608	
==>== Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15507	15608	
==>== Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9079	9192	
==>ule for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Modu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9137	9250	
==>ule for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Modu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1777	1885	
==>PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc::Module:: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	2372	2465	
==>se>

The package variable C<$Test::Harness::Verbose> is exportable and can be
used to let C<ru <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	208	331	
==>> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # E <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	212	335	
==>> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # E <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	208	331	
==>> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # E <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	212	335	
==>> $host, port => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6973	7147	
==>::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6973	7147	
==>::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6973	7147	
==>::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.un <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6028	6134	
==>r(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	619	862	
==>nction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	619	862	
==>nction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	619	862	
==>nction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @re <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7471	7633	
==>fe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     . <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	637	761	
==>"not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5946	6058	
==>@:superclasses')    => list->new(),
            attribute->new('%:private_methods') => hash->new(),
            a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	95	182	
==>{ 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	95	182	
==>{ 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	95	182	
==>{ 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1047	1181	
==>>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1447	1581	
==>>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1921	2055	
==>>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15995	16098	
==>EST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $results = runperl(%$runperl_args) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2910	3018	
==>ifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2898	3006	
==>ifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28054	28148	
==>me (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28054	28148	
==>me (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and val <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22972	23063	
==>eption;
@ISA=qw(Error);
package Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@ISA=qw(Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16186	16324	
==>->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Reg <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23657	23759	
==>can default to True or
False, but once it has a value of False, it can not be further changed;
this cla <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28209	28311	
==>can default to True or
False, but once it has a value of False, it can not be further changed;
this cla <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27022	27124	
==>can default to True or
False, but once it has a value of False, it can not be further changed;
this cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3074	3221	
==>sses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3074	3221	
==>sses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3074	3221	
==>sses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_c <==
4	/Users/nnunley/pugs/util/version_h.pl	1250	1350	
==>pied|Merged) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	844	1024	
==>tc!
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS,
        }
    };
    
    my $args = check( $tmpl, \%h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36424	36519	
==>ult tuples that
duplicate others.  The sequence in which any two source relations are
combined i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40973	41068	
==>ult tuples that
duplicate others.  The sequence in which any two source relations are
combined i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40587	40682	
==>ult tuples that
duplicate others.  The sequence in which any two source relations are
combined i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12526	12853	
==>xt::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12526	12853	
==>xt::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Local <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5970	6107	
==>t unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5970	6107	
==>t unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2357	2467	
==>ed_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        " <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2357	2467	
==>ed_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        " <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2437	2547	
==>ed_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1218	1326	
==>print $fh $string;
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV PV/ => "IV" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13911	14013	
==>d, so to try and make the least expensive kinds of combining
    # occur first, and most expensive late <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17388	17490	
==>d, so to try and make the least expensive kinds of combining
    # occur first, and most expensive late <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16768	16870	
==>d, so to try and make the least expensive kinds of combining
    # occur first, and most expensive late <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14832	14944	
==>``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fol <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14832	14944	
==>``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fol <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3862	3966	
==>postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin->postamble;
    $self->{ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5222	5325	
==>postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin->postamble;
    $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13218	13310	
==>ontaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9890	9982	
==>ontaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13218	13310	
==>ontaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9890	9982	
==>ontaining all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1499	1614	
==>IB::Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $obj;
}

=head <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4167	4276	
==>_1";
    goto token_match;
    bsr_token_match_1:
    goto found_term if $operator;
    goto null_term if ($ke <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1920	2016	
==>push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1920	2016	
==>push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2284	2408	
==>} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $template = $rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4450	4560	
==>ommand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4450	4560	
==>ommand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4450	4560	
==>ommand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	54	149	
==>ent_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruct <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	54	149	
==>ent_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruct <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12358	12452	
==>$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12358	12452	
==>$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13280	13453	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13280	13453	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy " <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13280	13453	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1512	1620	
==>l_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1512	1620	
==>l_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $ve <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1512	1620	
==>l_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $ve <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	45	138	
==>code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von Code-Objekten: for-Schleifen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2538	2652	
==>ut) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Java <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2538	2652	
==>ut) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Java <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2538	2652	
==>ut) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Java <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12735	12838	
==>push_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $test_r <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6309	6407	
==>ast one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docum <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6309	6407	
==>ast one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docum <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3679	3790	
==>mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7156	7267	
==>mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6113	6224	
==>mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23490	23612	
==>ess ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23490	23612	
==>ess ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23490	23612	
==>ess ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scal <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21315	21409	
==>ting object's visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and B <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5186	5326	
==>{
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
} <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5244	5384	
==>{
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11807	11959	
==>cs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);

      if ($n =~ /\d/) {
        --&RxPOS;
        my $v = "";

        # outsi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1836	1926	
==>($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1836	1926	
==>($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1836	1926	
==>($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1689	1916	
==>] .
                    qq[xargs -I % echo $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1374	1472	
==>while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1579	1677	
==>while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1640	1738	
==>while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4208	4296	
==>he Perl 6 Synopsis: L<http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs homepage at <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5056	5171	
==>E  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	403	507	
==>:TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	403	507	
==>:TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	403	507	
==>:TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7074	7297	
==>= $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7074	7297	
==>= $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $. <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5769	5895	
==>"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953), <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5769	5895	
==>"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19698	19814	
==>e) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19698	19814	
==>e) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19698	19814	
==>e) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	138	245	
==>lar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($klass) && $k <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	793	905	
==>tch->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	999	1111	
==>tch->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_st <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8974	9082	
==>uire'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF! <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8974	9082	
==>uire'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF! <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4786	4931	
==>ame =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4798	4943	
==>ame =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1553	1660	
==>ol::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1553	1660	
==>ol::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $s <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3576	3714	
==>VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4059	4182	
==>, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4059	4182	
==>, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4059	4182	
==>, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	705	801	
==>for execution system (compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::B <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3007	3112	
==>r = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($statu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3007	3112	
==>r = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($statu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17014	17113	
==>t fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will als <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17014	17113	
==>t fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will als <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5941	6075	
==>ake_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5941	6075	
==>ake_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5941	6075	
==>ake_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20884	20977	
==>utdown slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell te <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	582	697	
==>difiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        onc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	582	697	
==>difiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        onc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	582	697	
==>difiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        onc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	314	428	
==>fixity => 'postfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19220	19334	
==>my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15641	15755	
==>my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	108	198	
==>handles «
    header push_header init_header remove_header remove_content_headers header_f <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	108	198	
==>handles «
    header push_header init_header remove_header remove_content_headers header_f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5956	6053	
==>> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5956	6053	
==>> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5956	6053	
==>> \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11604	11715	
==>shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	781	886	
==>stics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	781	886	
==>stics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	861	966	
==>stics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3685	3806	
==>) . $self->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  } <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	927	1024	
==>haracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a mes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	927	1024	
==>haracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a mes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1483	1580	
==>haracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a mes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13002	13111	
==>"Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13002	13111	
==>"Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13002	13111	
==>"Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_c <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	977	1080	
==>c no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic ~~ $wikiwor <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	408	595	
==>uleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	408	595	
==>uleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::op <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	721	813	
==>pherer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	721	813	
==>pherer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8176	8383	
==>ecrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # imp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8176	8383	
==>ecrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # imp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8176	8383	
==>ecrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # imp <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24774	24863	
==>,E1)  :- set_flag_i(E0,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23720	23819	
==>$self) (list ?@superclasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasses ap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23980	24105	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24259	24384	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7993	8098	
==>n1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7993	8098	
==>n1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4865	4962	
==>on is, of course, incorrect. There is *no* attention
# paid to the associativity of the original o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4865	4962	
==>on is, of course, incorrect. There is *no* attention
# paid to the associativity of the original o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4865	4962	
==>on is, of course, incorrect. There is *no* attention
# paid to the associativity of the original o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	796	1015	
==>,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	797	1016	
==>,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8113	8218	
==>);
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8171	8276	
==>);
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_test <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	730	1036	
==>rbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_typ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	730	1036	
==>rbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_typ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7415	7501	
==>->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1240	1326	
==>->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6933	7108	
==>};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6933	7108	
==>};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6933	7108	
==>};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    wa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17482	17591	
==>LD)))))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25214	25306	
==>a Bool indicating whether the immutable identity of the
argument C<$other> equals the immutab <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29766	29858	
==>a Bool indicating whether the immutable identity of the
argument C<$other> equals the immutab <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28696	28788	
==>a Bool indicating whether the immutable identity of the
argument C<$other> equals the immutab <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	53	145	
==>nts.pm";import Filtered::Comments 'regex matching subs you want to debug'}
* adds use Smart:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6910	7067	
==>6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exist <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16243	16345	
==>om_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16243	16345	
==>om_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16243	16345	
==>om_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12718	12924	
==>e } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12718	12924	
==>e } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12718	12924	
==>e } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2943	3058	
==>a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2943	3058	
==>a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2943	3058	
==>a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_att <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17078	17191	
==>LKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, %params);
    }
}

(method BUILDALL ((opaque $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	122	225	
==>right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	122	225	
==>right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	122	225	
==>right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	941	1031	
==>key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	941	1031	
==>key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	941	1031	
==>key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13980	14099	
==>cur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17457	17576	
==>cur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19241	19339	
==>eginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or P <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19241	19339	
==>eginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or P <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18831	18946	
==>p0
    unless_null exp1, end
    .return (exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3528	3625	
==>ing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3528	3625	
==>ing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7940	8029	
==>ify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27017	27173	
==>} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27296	27452	
==>} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20888	20984	
==>oduction use.

Most of the other (near term) third party Engines will likely just map
Rosetta's r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20888	20984	
==>oduction use.

Most of the other (near term) third party Engines will likely just map
Rosetta's r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	86	198	
==>we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim: <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	86	198	
==>we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3799	3894	
==>which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3799	3894	
==>which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13841	13949	
==>> $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $h <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7393	7544	
==>\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	853	956	
==>tside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	853	956	
==>tside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	853	956	
==>tside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7048	7213	
==>[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6812	6972	
==>[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18369	18464	
==>o read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18369	18464	
==>o read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	489	611	
==>ssed($node);
	return if $node->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

	re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	586	691	
==>l eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	356	461	
==>l eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	356	461	
==>l eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'A <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	961	1099	
==>rt> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    re <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	703	841	
==>rt> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    re <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	961	1099	
==>rt> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    re <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	703	841	
==>rt> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<after> + $duration;
    }
    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6681	6789	
==>s>) <p6ws>? 
    $<term2> := (<term1>|<term2>) <p6ws>? \;
        { return { sub_application => $() ,} }
RULE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3764	3859	
==>if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3764	3859	
==>if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3764	3859	
==>if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------------------ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	702	837	
==>ci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	702	837	
==>ci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8296	8386	
==>r::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statem <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2121	2211	
==>r::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statem <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5797	6020	
==>entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6261	6484	
==>entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10232	10327	
==>s.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe = <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10232	10327	
==>s.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7685	7823	
==>.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored." <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2002	2120	
==>.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored." <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2002	2120	
==>.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored." <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2002	2120	
==>.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored." <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18114	18214	
==>ble, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no lon <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18114	18214	
==>ble, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no lon <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	156	251	
==>se;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	156	251	
==>se;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Matc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3832	3927	
==>rray { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3832	3927	
==>rray { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9442	9536	
==>se objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Mo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9442	9536	
==>se objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2452	2554	
==>thod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2452	2554	
==>thod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Disp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2452	2554	
==>thod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Disp <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1820	1915	
==>ed difference is provided
as a curried default.

All of the optional parameters should be suppli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1562	1679	
==>? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1562	1679	
==>? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1562	1679	
==>? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixe <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5423	5515	
==>sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolea <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8128	8261	
==>2 != ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            loop(;$k < $length; $k++) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13438	13559	
==>_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13438	13559	
==>_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13438	13559	
==>_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10653	10753	
==>ll start from the beginning the next
time it is called.

=head2 Viewing the Regex

You can get the re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	157	256	
==>w implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	157	256	
==>w implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	157	256	
==>w implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2190	2289	
==>rst argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2190	2289	
==>rst argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrout <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2190	2289	
==>rst argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrout <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6111	6195	
==>= shift;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)->val <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4402	4537	
==>nt_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part all <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4402	4537	
==>nt_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part all <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14518	14614	
==>build the string, the result
will use case as suggested by HTTP spec, and it will follow
recommen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14518	14614	
==>build the string, the result
will use case as suggested by HTTP spec, and it will follow
recommen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	771	894	
==>< {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	771	894	
==>< {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	771	894	
==>< {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCo <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1970	2074	
==>1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	51	169	
==>ar:
say "$test";      # print "$test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1551	1660	
==>s         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1551	1660	
==>s         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1551	1660	
==>s         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3	93	
==>$rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Gramma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3	93	
==>$rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Gramma <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3221	3305	
==>vious => $self._get_intersection( $self.complement_previous, $self.complement_next, $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3221	3305	
==>vious => $self._get_intersection( $self.complement_previous, $self.complement_next, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13260	13395	
==>. \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9446	9581	
==>. \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10282	10417	
==>. \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4148	4260	
==>n = length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws;
  }

  $initchar = substr $target, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	327	433	
==>> q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYI <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1855	1961	
==>> q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYI <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8480	8581	
==>( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8480	8581	
==>( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	464	623	
==>$matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $gram <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3583	3686	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3834	3935	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3834	3935	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	186	321	
==>ite ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	186	321	
==>ite ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8867	8971	
==>$state->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10252	10355	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10252	10355	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8556	8658	
==>$state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5767	5947	
==>e beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5767	5947	
==>e beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5767	5947	
==>e beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u <==
4	/Users/nnunley/pugs/util/func_refact.pl	1658	1791	
==>eys %$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ignoring{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10181	10300	
==>lass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10181	10300	
==>lass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10181	10300	
==>lass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_n <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8692	8801	
==>ON__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_C__/$unicode_c/;
        s/__PERL5_C__/$p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5522	5630	
==>fix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4652	4760	
==>fix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5522	5630	
==>fix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4652	4760	
==>fix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infix:«>=» (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	829	945	
==>roxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	829	945	
==>roxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	829	945	
==>roxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26840	26933	
==>g */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can tru <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2100	2303	
==>n "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hello ther <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1500	1685	
==>e it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4977	5162	
==>e it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Se <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3907	4092	
==>e it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Se <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3056	3212	
==>f->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )                a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1024	1111	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1024	1111	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1024	1111	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ob <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3656	3775	
==>"FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3656	3775	
==>"FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5180	5299	
==>"FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Tes <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1733	1830	
==>create a new grammar, inherit from this one, and redefine just those
#  rules.  See JavaScript::EC <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8253	8354	
==>ptions:

=item * grammar => $category_name - the name of this category 
(a namespace or a Grammar n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15504	15602	
==>ted scalar) if given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, $nam <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1614	1709	
==>face::Exception {

    # External packages used by the Rosetta::Interface::Exception class, that <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1614	1709	
==>face::Exception {

    # External packages used by the Rosetta::Interface::Exception class, that <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1106	1239	
==>elf = shift;
        my $f = shift;
        (ref $self)->new(&$f($self->val));
    }

    package Thunk;
    use base 'Unit';

    sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3819	3937	
==>s1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3819	3937	
==>s1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3819	3937	
==>s1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New ch <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2885	2986	
==>add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	916	1017	
==>add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2705	2805	
==>thod { CORE::shift(@{(shift)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5355	5503	
==>),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5187	5328	
==>),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	877	979	
==>pile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	877	979	
==>pile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11864	11966	
==>of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9011	9113	
==>of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11864	11966	
==>of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9011	9113	
==>of items removed.

=head2 C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3619	3714	
==>to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DES <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3619	3714	
==>to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DES <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3430	3525	
==>here does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3308	3400	
==>here does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compil <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13475	13649	
==>') {
                $add_dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3624	3778	
==>') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3624	3778	
==>') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3624	3778	
==>') {
            $add_dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5158	5257	
==>Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5158	5257	
==>Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5158	5257	
==>Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6: <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1581	1679	
==>R "done.\n" if $Config{verbose};
}

sub inline {
    print STDERR "Generating inlined source Prelud <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1055	1164	
==>ty->new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2800	2902	
==>&&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2800	2902	
==>&&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2800	2902	
==>&&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,un <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17654	17808	
==>'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17654	17808	
==>'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38978	39075	
==>ncan.

Relation is free software; you can redistribute it and/or modify it under
the same terms as <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43792	43889	
==>ncan.

Relation is free software; you can redistribute it and/or modify it under
the same terms as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2614	2723	
==>arsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2614	2723	
==>arsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2614	2723	
==>arsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq ' <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state1.pl	6	113	
==>e1.pl - "state" in Perl 5
{
	my $var = new MeineKlasse;
	# $var wird nur einmal erzeugt
	sub singleton {
		r <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5483	5602	
==>.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5483	5602	
==>.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1844	1958	
==>L_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1844	1958	
==>L_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value f <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16136	16237	
==>, anyway.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32554	32647	
==>his multi-method is the N-ary version of the aforementioned binary union()
operator, and the o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37104	37197	
==>his multi-method is the N-ary version of the aforementioned binary union()
operator, and the o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36412	36505	
==>his multi-method is the N-ary version of the aforementioned binary union()
operator, and the o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	68	170	
==>os;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	68	170	
==>os;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	68	170	
==>os;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::crea <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4600	4690	
==>$right) && $right->isa('closure::params'));
    return bit->new(0) if $left->length->not_eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	271	371	
==>:Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	271	371	
==>:Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	271	371	
==>:Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1954	2061	
==>mpiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1954	2061	
==>mpiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (< <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3915	4017	
==>s intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.n <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3915	4017	
==>s intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5135	5269	
==>uld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5135	5269	
==>uld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5135	5269	
==>uld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	286	381	
==>his is an extension of the Mini-MetaModel which adds a self-bootstrapping
## implementation of R <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10585	10728	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11047	11190	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10579	10722	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11041	11184	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2232	2420	
==>ed    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPOSITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8206	8325	
==>this is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assert <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7930	8045	
==>this is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assert <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2998	3238	
==>ents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_ele <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2998	3238	
==>ents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_ele <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5186	5283	
==>ted) by this module:

=over 3

=item get($url)

The get() function will fetch the document identif <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5186	5283	
==>ted) by this module:

=over 3

=item get($url)

The get() function will fetch the document identif <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10954	11096	
==>rt, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_dis <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10954	11096	
==>rt, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_dis <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6059	6144	
==>%channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normali <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6059	6144	
==>%channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normali <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2982	3092	
==>superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2982	3092	
==>superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2982	3092	
==>superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17315	17411	
==>>. You can't call
their new() method directly, you can only call it through an object that
inheri <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1474	1625	
==>or @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.inser <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1578	1729	
==>or @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.inser <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1474	1625	
==>or @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.inser <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1578	1729	
==>or @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.inser <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7466	7566	
==>} }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7466	7566	
==>} }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7466	7566	
==>} }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11028	11171	
==>scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11028	11171	
==>scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11028	11171	
==>scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1028	1152	
==>}
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
type KeyExtractor  ::= Code( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7756	7894	
==>fe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn " <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1057	1195	
==>fe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5021	5131	
==>e => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5243	5353	
==>e => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9599	9743	
==>my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n } <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	951	1053	
==>e have are:
# type::operator
#	::binary - takes 2 params (e.g. ->, x)
#	::nullary - takes 0 params (e.g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17292	17392	
==>C
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17292	17392	
==>C
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2032	2174	
==>---------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1895	1998	
==>::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1895	1998	
==>::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1895	1998	
==>::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	439	547	
==>urn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	439	547	
==>urn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	439	547	
==>urn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15195	15287	
==>?!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2820	2944	
==>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comm <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2820	2944	
==>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comm <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1715	1814	
==>s/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1715	1814	
==>s/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24666	24764	
==>License, or (at your option) any later version.  You should have received a
copy of the GPL as part <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24666	24764	
==>License, or (at your option) any later version.  You should have received a
copy of the GPL as part <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24338	24431	
==>e = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = type::variable: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5194	5343	
==>leop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ ' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5030	5175	
==>leop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10035	10124	
==>"\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"u <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10770	10859	
==>"\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	390	538	
==>kpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	425	573	
==>kpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	390	538	
==>kpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $n <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9603	9751	
==>kpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $n <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5470	5586	
==>tructure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_thunk' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2098	2193	
==>:EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2098	2193	
==>:EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2098	2193	
==>:EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13174	13306	
==>{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2581	2692	
==>);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2581	2692	
==>);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2581	2692	
==>);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return unde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10746	10889	
==>ental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{ab <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7827	7964	
==>ental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{ab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7827	7964	
==>ental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{ab <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2176	2281	
==>tcher, symbol $label, hash %opts) returns method {
    while (my $current = &dispatcher.()) {
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	41	155	
==>nings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	41	155	
==>nings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	41	155	
==>nings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach u <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1835	1923	
==>('smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    if <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	22	118	
==>ge Blondie::SmokeBackends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWar <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27098	27199	
==>vaScript::ECMAScript3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29442	29537	
==>.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unw <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33994	34089	
==>.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unw <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33158	33253	
==>.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unw <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14620	14716	
==>Good Practice" of ordering the header fields.  Long header
values are not folded.

The optional $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14620	14716	
==>Good Practice" of ordering the header fields.  Long header
values are not folded.

The optional $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32476	32566	
==>he Locale::KeyedText::Translator Class

While a Translator object stores some attributes fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32476	32566	
==>he Locale::KeyedText::Translator Class

While a Translator object stores some attributes fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8075	8222	
==>) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13669	13816	
==>) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8075	8222	
==>) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13663	13810	
==>) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4631	4735	
==>eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4631	4735	
==>eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4631	4735	
==>eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_att <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10296	10480	
==>, q<block>)
            ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->get("&dispatcher")->do() 
        }
    )
);

=cut

m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15258	15355	
==>ng the input string).

If you prefer not to import these routines into your namespace, you can
cal <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15258	15355	
==>ng the input string).

If you prefer not to import these routines into your namespace, you can
cal <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1350	1446	
==>5. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1350	1446	
==>5. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1818	1988	
==>);
}

###########################################################################

proto method export_attrs of Relation::LaxAttrList () {...}

proto method export_attr_na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2467	2570	
==>l}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2467	2570	
==>l}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2467	2570	
==>l}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of & <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1899	2022	
==>:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @arg <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1899	2022	
==>:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @arg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15805	15905	
==>ild Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15805	15905	
==>ild Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$do <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3457	3589	
==>less $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3457	3589	
==>less $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26937	27035	
==>faults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::M <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26937	27035	
==>faults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5202	5397	
==>key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5202	5397	
==>key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5202	5397	
==>key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14476	14582	
==>ror( "Could not write available file: $@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	291	384	
==>2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	291	384	
==>2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	291	384	
==>2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	994	1120	
==>s copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unles <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1868	1994	
==>s copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unles <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	994	1120	
==>s copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unles <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1868	1994	
==>s copy' parameter
    # trait at some point
    my @path = @_path;
    my $file = canonpath(pop(@path));
    return $file unles <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9232	9462	
==>( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtime::Perl5::RuleOps::emit_rul <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3894	4012	
==>e, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3894	4012	
==>e, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	744	862	
==>e, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5602	5700	
==>ss defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5602	5700	
==>ss defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinit <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5602	5700	
==>ss defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6347	6455	
==>2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6347	6455	
==>2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6347	6455	
==>2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n <==
4	/Users/nnunley/pugs/util/package-osx.pl	11646	11752	
==>ER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$dest$files[-1]";
    print "Made $dest$files[- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	661	779	
==>v, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->new($label) 
        unless (blesse <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7664	7763	
==>ignature from S29draft.pod 8655.  In the List section.
multi Array::map (@values ;  Code $expression <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	958	1052	
==>n version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	958	1052	
==>n version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2741	2868	
==>= 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2741	2868	
==>= 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2741	2868	
==>= 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5300	5399	
==>ol = $self->declare($node);

		my $return_type = $node->type->[-1]->type;
		
		my @children = $child <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	317	423	
==>l::Type $.type;  # for slurpy/item types

# On the other hand, we could actually make it a real junctive ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1175	1272	
==>ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1175	1272	
==>ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1175	1272	
==>ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	734	850	
==>ersed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	734	850	
==>ersed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12860	12955	
==>cifier is used for several things. 
For example, when iterating through the span range, the unit <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12860	12955	
==>cifier is used for several things. 
For example, when iterating through the span range, the unit <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	27	126	
==>9draft.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of Pugs::Intern <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1435	1527	
==>dent>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	440	531	
==>:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	440	531	
==>:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	440	531	
==>:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	302	392	
==>refactoring with confidence.

It uses Language::Prolog::Yaswi, which requires swi-prolog be <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6119	6249	
==>n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6119	6249	
==>n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14565	14675	
==>times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traff <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14565	14675	
==>times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traff <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6047	6200	
==>ext ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6047	6200	
==>ext ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5706	5831	
==>gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5706	5831	
==>gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14646	14753	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14646	14753	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14646	14753	
==>re is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45427	45523	
==>=> attribute->new('%:namespace' => 'hash')));


$::Package->send('add_method' => (
    # method l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2925	3033	
==>};
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2925	3033	
==>};
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2925	3033	
==>};
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19671	19773	
==>icient to "Forces List Context"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2026	2129	
==>tted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2026	2129	
==>tted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the tim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2026	2129	
==>tted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the tim <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1834	1953	
==>dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1834	1953	
==>dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1834	1953	
==>dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	536	627	
==>rg/ftp/Scheme/oop-in-fp.txt
  
This system is still relatively "functional" in flavor, howev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5991	6093	
==>t encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5991	6093	
==>t encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5991	6093	
==>t encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16319	16573	
==>ments )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16598	16852	
==>ments )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $m <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6152	6250	
==>ers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6152	6250	
==>ers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is re <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	628	726	
==>should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as S <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	628	726	
==>should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as S <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1191	1287	
==><Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. re <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1191	1287	
==><Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	670	810	
==>*{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	670	810	
==>*{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14766	14862	
==>to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substitute <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14766	14862	
==>to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substitute <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2917	3013	
==>$set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2917	3013	
==>$set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2910	3062	
==>return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2910	3062	
==>return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2910	3062	
==>return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	596	690	
==>ition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:uppe <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1728	1824	
==>at has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span object <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1491	1587	
==>at has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span object <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1728	1824	
==>at has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span object <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1491	1587	
==>at has infinite size.

= OBJECT METHODS

The following methods are available for Set::Span object <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	671	778	
==>rt symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Heading object:
    has Mapping % <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1314	1410	
==>= 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1314	1410	
==>= 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1314	1410	
==>= 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1817	1973	
==>its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {... <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1817	1973	
==>its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {... <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1817	1973	
==>its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {... <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11425	11527	
==>eral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsigne <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13892	14027	
==>ccess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_pe <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13892	14027	
==>ccess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_pe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18274	18367	
==>repository file
on disk, it is expected that the Engines will employ appropriate measures
such <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18274	18367	
==>repository file
on disk, it is expected that the Engines will employ appropriate measures
such <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26314	26409	
==>s of Bourne-sh based shells will need to
C<export COLUMNS> for this module to use that variable. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3678	3765	
==>tml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3678	3765	
==>tml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3678	3765	
==>tml PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/x <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6237	6374	
==>print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5989	6119	
==>{
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5989	6119	
==>{
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $clas <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5989	6119	
==>{
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $clas <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11125	11266	
==>t) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2584	2674	
==>IL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2584	2674	
==>IL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2584	2674	
==>IL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27514	27694	
==>mp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sample <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27514	27694	
==>mp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sample <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27514	27694	
==>mp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sample <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9217	9351	
==>xgc) {
      my $n = '::';
      return $S->$n;
    }

    if (${&Rx} =~ m{ \G ([a-z]+) }xgc) {
    }

  });

  $self->add_handler('::' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19574	19672	
==>rname, or ircname. Note that thesse are I<not>
necessarily the names you specified in the construct <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18555	18653	
==>rname, or ircname. Note that thesse are I<not>
necessarily the names you specified in the construct <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19574	19672	
==>rname, or ircname. Note that thesse are I<not>
necessarily the names you specified in the construct <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18555	18653	
==>rname, or ircname. Note that thesse are I<not>
necessarily the names you specified in the construct <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4018	4193	
==>rl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cle <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4018	4193	
==>rl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cle <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24236	24352	
==>} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20657	20773	
==>} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1170	1268	
==>S.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1170	1268	
==>S.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1170	1268	
==>S.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "i <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1918	2010	
==>es constructed with this module may cause
segfaults on C<split>, substitution, and/or other u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1258	1458	
==>leop::constant( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8231	8336	
==>>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8231	8336	
==>>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8231	8336	
==>>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5636	5749	
==>optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5636	5749	
==>optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5636	5749	
==>optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_t <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3209	3309	
==>"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsole <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1527	1670	
==>" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2291	2434	
==>t;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_u <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2291	2434	
==>t;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6789	6896	
==>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6789	6896	
==>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kic <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2343	2454	
==>~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1674	1770	
==>'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1879	1975	
==>'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1942	2038	
==>'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1501	1601	
==>op support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal cl <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1501	1601	
==>op support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal cl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17698	17793	
==>s information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozill <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17698	17793	
==>s information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozill <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12426	12534	
==>efs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12426	12534	
==>efs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12426	12534	
==>efs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24187	24291	
==>received.  This is typically used by automatons
  (clients with either an AI or other interactive program <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22960	23064	
==>received.  This is typically used by automatons
  (clients with either an AI or other interactive program <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24187	24291	
==>received.  This is typically used by automatons
  (clients with either an AI or other interactive program <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22960	23064	
==>received.  This is typically used by automatons
  (clients with either an AI or other interactive program <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12908	13175	
==>100*(scalar @{$test{failed}})/$test{max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } else {
                    print "Don't kn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12832	12929	
==>nt - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::nex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12832	12929	
==>nt - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::nex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12832	12929	
==>nt - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::nex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16251	16356	
==>g( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16251	16356	
==>g( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16251	16356	
==>g( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SU <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	872	996	
==>nst' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	881	1005	
==>nst' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    r <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1949	2045	
==>th any tags, it will intuit one by extracting the 
last component of the calling function's packa <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1949	2045	
==>th any tags, it will intuit one by extracting the 
last component of the calling function's packa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7260	7455	
==>" " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runt <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11893	12010	
==>!~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12316	12433	
==>!~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4536	4653	
==>!~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4959	5076	
==>!~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	74	192	
==>our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	74	192	
==>our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	74	192	
==>our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1129	1232	
==>@args) = @{$opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23701	23899	
==>>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23701	23899	
==>>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23701	23899	
==>>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $met <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1424	1554	
==>ype.

C<Val> is a type of unit because it encloses one value, and has a type (C<Val>).

=item List

A list is a a node with multipl <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	38	178	
==>g;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7196	7287	
==>var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7196	7287	
==>var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7196	7287	
==>var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20513	20621	
==>);

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTRE <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16934	17042	
==>);

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTRE <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2936	3029	
==>eturns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2936	3029	
==>eturns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differe <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7785	7882	
==>ath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Por <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7785	7882	
==>ath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Por <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1053	1146	
==>left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Con <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1053	1146	
==>left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2112	2209	
==>XX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2112	2209	
==>XX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2112	2209	
==>XX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::t <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17349	17437	
==>iseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressionNoIn>
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1456	1583	
==>h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1456	1583	
==>h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1456	1583	
==>h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4305	4435	
==>gth( $item );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1637	1746	
==>ing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1637	1746	
==>ing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message? <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1637	1746	
==>ing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message? <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19958	20057	
==>mentList> <Statement>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1293	1391	
==>ti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parse <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1293	1391	
==>ti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parse <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1293	1391	
==>ti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parse <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3465	3570	
==>ed, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3465	3570	
==>ed, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22181	22275	
==>e =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.priv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22181	22275	
==>e =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.priv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4328	4432	
==>mp", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4328	4432	
==>mp", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4328	4432	
==>mp", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	222	314	
==>::Reducer::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondie::B <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6472	6577	
==>=> chr(hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2074	2172	
==>de) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2074	2172	
==>de) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2074	2172	
==>de) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map n <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1617	1762	
==>ld not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( "Cou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2851	2994	
==>if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2851	2994	
==>if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2851	2994	
==>if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	580	679	
==>_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	580	679	
==>_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	580	679	
==>_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	970	1068	
==>L_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	970	1068	
==>L_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	970	1068	
==>L_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarna <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1068	1161	
==>ns of Class::Events::Subscription) {
        map { Class::Events::Notification.new(:subscriber <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2701	2815	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2701	2815	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2701	2815	
==>::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprin <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28709	28819	
==>, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), (PL_reg_match_utf8 = 1)) \
			 : (RX_MATCH_UTF8_off(prog), (PL_reg_m <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2289	2408	
==>faults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@o <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2289	2408	
==>faults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@o <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1662	1760	
==>0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode( <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1662	1760	
==>0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1738	1889	
==><>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # esca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1738	1889	
==><>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # esca <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	477	578	
==>-> $func\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1670	1764	
==>mplementation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2799	2956	
==>turns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3419	3576	
==>turns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2799	2956	
==>turns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3419	3576	
==>turns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5036	5169	
==>}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6300	6433	
==>}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5036	5169	
==>}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6288	6421	
==>}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13116	13247	
==>p::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21166	21297	
==>p::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13395	13526	
==>p::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21445	21576	
==>p::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6677	6828	
==>eword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::More
                <Pugs::Gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1022	1139	
==>ors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1022	1139	
==>ors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1022	1139	
==>ors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2610	2750	
==>arn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2610	2750	
==>arn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2610	2750	
==>arn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unl <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16185	16298	
==>three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5895	6032	
==>';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5895	6032	
==>';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5895	6032	
==>';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1851	1961	
==>shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_ar <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	961	1070	
==>shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_ar <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1249	1345	
==>fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1249	1345	
==>fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5859	5961	
==>= (die|\.\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::Compiler: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11522	11623	
==>et_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11522	11623	
==>et_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11522	11623	
==>et_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2176	2364	
==>[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2176	2364	
==>[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( span <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2038	2139	
==>ER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $s <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14558	14658	
==>ER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18967	19076	
==>tchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18967	19076	
==>tchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18967	19076	
==>tchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	377	475	
==>umper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2201	2381	
==>l => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	657	764	
==>r.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	657	764	
==>r.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	657	764	
==>r.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	402	523	
==>ssoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14269	14358	
==>lasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14269	14358	
==>lasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14269	14358	
==>lasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15283	15422	
==>n "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15277	15416	
==>n "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15846	15941	
==>erl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<comp <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15846	15941	
==>erl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<comp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2232	2352	
==>eturns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2232	2352	
==>eturns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6787	6895	
==>error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6799	6907	
==>error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9242	9381	
==>t::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1364	1497	
==>t::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1364	1497	
==>t::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3163	3271	
==>atus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=h <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3163	3271	
==>atus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20037	20122	
==>method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

The <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20037	20122	
==>method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

The <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4425	4535	
==>x_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4425	4535	
==>x_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4425	4535	
==>x_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1806	1902	
==>JIB::Alternative object, if this package is a registered alternative

=cut
    
=head2 $pkg->inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1887	1986	
==>quired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1887	1986	
==>quired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter ty <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1887	1986	
==>quired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter ty <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23170	23254	
==>qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9826	9937	
==>ndef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9826	9937	
==>ndef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9826	9937	
==>ndef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	871	971	
==>-client.pl'); 

chdir($pugs_sandbox) or die "Could change directory: $!";

# '.' needs to be at the f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6843	6966	
==>);
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6843	6966	
==>);
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22191	22285	
==>ted (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22191	22285	
==>ted (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>jo <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1576	1681	
==>d1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1576	1681	
==>d1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15511	15604	
==>numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
w <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15511	15604	
==>numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
w <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1304	1444	
==>$_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::Typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2236	2343	
==>(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2236	2343	
==>(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2236	2343	
==>(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	402	507	
==>kage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	402	507	
==>kage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	402	507	
==>kage and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14754	14860	
==>que
    ((= %attrs (hash new))
     (= &dispatcher ($class: send (dispatcher :descendent)))
     (= $c (WAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	29	122	
==>his as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depend <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	29	122	
==>his as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depend <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	29	122	
==>his as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depend <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1571	1676	
==>Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Arra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1571	1676	
==>Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Arra <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8712	8805	
==>ew( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence ob <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8712	8805	
==>ew( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence ob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3703	3844	
==>ute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1894	1994	
==>h' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1894	1994	
==>h' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1894	1994	
==>h' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Ce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14100	14233	
==>ess $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14100	14233	
==>ess $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14100	14233	
==>ess $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6561	6665	
==>x), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7897	8046	
==>h( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::writ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7897	8046	
==>h( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::writ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7897	8046	
==>h( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::writ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2168	2303	
==>at = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op( {
        name => '+',
        block => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9235	9332	
==>return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9235	9332	
==>return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9235	9332	
==>return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3530	3626	
==>e object-oriented backend.

To use the Cipher API, you must first create an object of the appropr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3530	3626	
==>e object-oriented backend.

To use the Cipher API, you must first create an object of the appropr <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	706	797	
==>isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	706	797	
==>isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KE <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1820	1937	
==>p = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBunzip = sub { return };
}

sub add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	628	727	
==>d some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	628	727	
==>d some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	628	727	
==>d some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5310	5435	
==>/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6578	6703	
==>/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5310	5435	
==>/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6566	6691	
==>/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source-filter - temporary hac <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1702	1814	
==>charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns S <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1702	1814	
==>charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns S <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2488	2585	
==>ear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a reque <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2488	2585	
==>ear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a reque <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2330	2473	
==>ir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5242	5329	
==>dd_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5242	5329	
==>dd_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5242	5329	
==>dd_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1732	1864	
==>>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1732	1864	
==>>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1732	1864	
==>>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p <==
4	/Users/nnunley/pugs/util/package-osx.pl	6210	6307	
==>m
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl6::Overv <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7659	7773	
==>} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Rege <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3152	3256	
==>be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3152	3256	
==>be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return unde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3152	3256	
==>be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return unde <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2140	2247	
==>s = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1489	1595	
==>sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1489	1595	
==>sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1489	1595	
==>sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14468	14619	
==>$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14468	14619	
==>$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14468	14619	
==>$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11761	11863	
==>et, ":utf8";
		$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for pointless $VARx
$Data::Dumper::Inde <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6303	6418	
==>oin( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6315	6430	
==>oin( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	186	300	
==>NLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    forea <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6597	6694	
==>d pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=it <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6597	6694	
==>d pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8794	8891	
==>d pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=it <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6519	6653	
==>Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working) <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6577	6711	
==>Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1472	1567	
==>emented by passing a C<Result> object that has a
$.backtrack closure that calls back into the pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1472	1567	
==>emented by passing a C<Result> object that has a
$.backtrack closure that calls back into the pa <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	397	503	
==>ate;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	397	503	
==>ate;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6368	6469	
==>I.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6368	6469	
==>I.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3851	3958	
==>nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3851	3958	
==>nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normaliz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4383	4486	
==>nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normaliz <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4383	4486	
==>nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normaliz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8963	9077	
==>\"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	697	811	
==>\"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8963	9077	
==>\"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8963	9077	
==>\"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-name-with-spaces i <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	438	542	
==>a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
mu <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	438	542	
==>a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
mu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7675	7779	
==>ray2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into ar <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7675	7779	
==>ray2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into ar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2990	3086	
==>tem C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the follo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2990	3086	
==>tem C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the follo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5773	5910	
==>Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5773	5910	
==>Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3017	3119	
==>{ shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3017	3119	
==>{ shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	5926	6048	
==>sts ran
    ok              Number of individual tests passed
    sub_skipped     Number of individual tests skipped
    to <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13691	13791	
==>the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17168	17268	
==>the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16530	16630	
==>the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Rel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5301	5517	
==>0;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $d <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5301	5517	
==>0;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14195	14295	
==>rson.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = tr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14195	14295	
==>rson.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = tr <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2793	2890	
==>{$_} } qw<pugs_version osname duration summary runcore>) {
    print "The submitted smoke has an i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23953	24043	
==>ULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23953	24043	
==>ULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23953	24043	
==>ULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1969	2088	
==>@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1969	2088	
==>@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1969	2088	
==>@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5255	5347	
==>fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|say|warn|die) < <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1941	2049	
==>e encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4, <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2303	2411	
==>e encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4, <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1941	2049	
==>e encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4, <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2303	2411	
==>e encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,@octect[1],4, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3802	3898	
==>test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descript <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3802	3898	
==>test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descript <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3882	3978	
==>test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descript <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4080	4175	
==>dy) = @_;

	$self->define_named_block($node, $symbol, $body, $self->resolve_type($node));
}

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19348	19446	
==>PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines li <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19348	19446	
==>PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines li <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	926	1022	
==>ered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and obj <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	926	1022	
==>ered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and obj <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11847	11964	
==>hift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	256	368	
==>hift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3123	3233	
==>pace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3111	3221	
==>pace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$ru <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5623	5735	
==>evious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5623	5735	
==>evious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33192	33285	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<inter <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37742	37835	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14027	14169	
==>$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14027	14169	
==>$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14027	14169	
==>$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10309	10410	
==>my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $code_p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	75	181	
==>BUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	75	181	
==>BUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set ( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9278	9370	
==>nce (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12755	12847	
==>nce (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $oth <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5935	6048	
==>ur args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5935	6048	
==>ur args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4218	4325	
==>n backslash and assertion rules or macros, you may
    use the following syntactic categories:

         rul <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	279	375	
==>airs]);
}
sub node_s { hlp('string',@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp('arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15033	15227	
==>ew;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15033	15227	
==>ew;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15033	15227	
==>ew;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4078	4174	
==>-> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    ha <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4078	4174	
==>-> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5996	6089	
==>ght method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return va <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10253	10346	
==>ght method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35292	35431	
==>>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35292	35431	
==>>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35292	35431	
==>>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4281	4387	
==>urn $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4281	4387	
==>urn $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $s <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5254	5351	
==>ill fetch the document identified by the given URL
and return it.  It returns C<undef> if it fails <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5254	5351	
==>ill fetch the document identified by the given URL
and return it.  It returns C<undef> if it fails <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	479	651	
==>{
                confess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1..' . _('$:expect') },
        ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1690	1788	
==>PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1690	1788	
==>PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1690	1788	
==>PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2683	2777	
==>, "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2683	2777	
==>, "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2683	2777	
==>, "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pre <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2731	2948	
==>(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $att <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	48	150	
==>egex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	48	150	
==>egex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	48	150	
==>egex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	910	1061	
==>Pretty->new->string($result); # works for all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESC <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	819	930	
==>ted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	819	930	
==>ted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	819	930	
==>ted_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11662	11776	
==>bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11662	11776	
==>bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11662	11776	
==>bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_ <==
4	/Users/nnunley/pugs/util/grokprims.pl	2428	2525	
==>/tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2211	2324	
==>k

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2211	2324	
==>k

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2211	2324	
==>k

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TO <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	155	258	
==>equire '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

my %indexed = m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10517	10616	
==>.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Inform <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10517	10616	
==>.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Inform <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18903	18997	
==>, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>login <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18903	18997	
==>, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>login <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3555	3673	
==>ding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	997	1113	
==>"----\n";
	my @res = eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    prin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3363	3468	
==>ric' if !((~$$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|H <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	984	1111	
==>names for super
        return $table->{prototype}
            if ($message eq 'prototype' ||
                $message eq 'super <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5788	5896	
==>';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5788	5896	
==>';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6378	6486	
==>';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2279	2457	
==>hod_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2279	2457	
==>hod_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $tok <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2279	2457	
==>hod_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $tok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3451	3540	
==>Compiler::Rule> module must be properly installed.

An improperly installed C<Pugs::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11158	11259	
==>$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8562	8663	
==>$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11158	11259	
==>$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for
C<includes>.

= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8562	8663	
==>$set.has(...)>

Returns true if all given items are in the set. C<has> is an alias for C<includes>.

= <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2325	2490	
==>$?SELF.export_attr_names();
}

###########################################################################

method all_names_exist of Bool (Relation::AttrName *@attr_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1225	1319	
==>ndef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1225	1319	
==>ndef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1225	1319	
==>ndef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14524	14677	
==>(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14524	14677	
==>(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14524	14677	
==>(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18957	19053	
==>s shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that i <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18957	19053	
==>s shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that i <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12254	12345	
==>$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12254	12345	
==>$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4983	5093	
==>k for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4983	5093	
==>k for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4983	5093	
==>k for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5056	5161	
==>elf->can_run($ENV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This local subroutine returns the version of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	55	171	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	55	171	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	55	171	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4207	4318	
==>", $self->raw, map($_->qr, @{ $self->{data} }), "]";
  }

  sub visual {
    my $self = shift;
    join "", $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16657	16759	
==>st.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16657	16759	
==>st.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16657	16759	
==>st.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIP <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1493	1592	
==>. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = jo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	199	313	
==>ebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	199	313	
==>ebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	199	313	
==>ebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
u <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	787	885	
==>n {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fa <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3365	3485	
==>orn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # sm <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3365	3485	
==>orn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # sm <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	357	452	
==>st::force_todo_test_junction;

# for running the test suite multiple times in the same process
$ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	415	510	
==>st::force_todo_test_junction;

# for running the test suite multiple times in the same process
$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10870	10985	
==>re {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11020	11135	
==>re {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1805	1898	
==>ake_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($n <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	801	894	
==>ake_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7458	7700	
==>:True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $re <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7458	7700	
==>:True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8239	8357	
==>def - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7962	8076	
==>def - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1576	1681	
==>ble>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1576	1681	
==>ble>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24395	24486	
==>http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24395	24486	
==>http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redis <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6492	6590	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5622	5720	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6492	6590	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5622	5720	
==>o) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) retu <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3129	3235	
==>y and run $0 again to load it.
END

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11249	11335	
==>Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1707	1791	
==>Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1707	1791	
==>Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6879	7010	
==>%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_mult <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15993	16092	
==>seems safe.  But more nuanced treatment will be needed if utf8 is
to be supported.

  regnode progra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36000	36098	
==>of the new relation is the union of the invocant and <$other> headings. 
The body of the new relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40550	40647	
==>of the new relation is the union of the invocant and <$other> headings.
The body of the new relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40164	40261	
==>of the new relation is the union of the invocant and <$other> headings.
The body of the new relati <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2166	2310	
==>26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.ta <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2166	2310	
==>26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.ta <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	564	665	
==>lti submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	564	665	
==>lti submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!conten <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3412	3531	
==>->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	75	192	
==>d by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	75	192	
==>d by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	75	192	
==>d by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5617	5755	
==>r has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5617	5755	
==>r has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5617	5755	
==>r has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8943	9050	
==>l6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 Operators: L<http://dev.perl.org/perl6/do <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16441	16560	
==>($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16441	16560	
==>($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10940	11036	
==>ned.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned as <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10940	11036	
==>ned.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11245	11392	
==>y %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11245	11392	
==>y %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11245	11392	
==>y %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	507	608	
==>ults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_U <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3534	3867	
==>=> $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::K <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3534	3867	
==>=> $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::K <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3582	3685	
==>ip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3582	3685	
==>ip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5852	5952	
==>one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4982	5082	
==>one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5852	5952	
==>one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4982	5082	
==>one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	920	1046	
==>";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	920	1046	
==>";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	920	1046	
==>";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_met <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	873	979	
==>m( qq[ cp -R $srcdir/* $builddir/$path ] ) and die "$?";
        chdir $builddir or die "Could not chdir to <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	879	1000	
==>f of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliase <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	879	1000	
==>f of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliase <==
4	/Users/nnunley/pugs/util/version_h.pl	571	674	
==>t has a STDIN and there is
# no repository.  Since we don't need a STDIN anyway, get rid of it.
close ST <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13641	13773	
==>$noop = $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11934	12042	
==>$perl -le "print join qq[\n], \@INC"`;
    chomp @inc;
    return @inc;
}


=head2 C<_restore_PERL5LIB>

  $s <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16091	16192	
==>rn a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `u <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16091	16192	
==>rn a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `u <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23827	23915	
==>X|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1630	1753	
==>ually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # sa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1630	1753	
==>ually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # sa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1031	1149	
==>alue, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1031	1149	
==>alue, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1148	1260	
==>( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	890	1002	
==>( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1148	1260	
==>( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	890	1002	
==>( $tz ) {
    ...
}

method duration returns Object ($self: ) {
    return $self.size;
}

method start () returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1079	1175	
==>:Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1079	1175	
==>:Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1079	1175	
==>:Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27475	27567	
==>($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x)") <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	46	142	
==>Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	46	142	
==>Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16608	16699	
==>d fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16608	16699	
==>d fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distri <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14606	14714	
==>s
    if $I0 > pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2037	2138	
==>= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2037	2138	
==>= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2037	2138	
==>= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) = <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4259	4355	
==>(W)) --> "+?", !.
p56_quantified_op(W, ques(W))    --> "?", !.
p56_quantified_op(W, star(W))    - <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	684	811	
==>e META.info.
It will turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3557	3656	
==>ct, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3557	3656	
==>ct, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store shou <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3557	3656	
==>ct, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store shou <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10059	10169	
==>rminfo/l";
  step
    descr  => "Creating directories " . join(", ", map { "$_" } @dirs),
    ensure => sub { - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2807	2908	
==>$file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2807	2908	
==>$file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2807	2908	
==>$file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	532	676	
==>ds => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.output' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3826	3927	
==>uired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->sl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3826	3927	
==>uired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->sl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4416	4517	
==>uired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->sl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	515	683	
==>> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                ret <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	515	683	
==>> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5010	5115	
==>}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5010	5115	
==>}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	121	218	
==>state that is passed around.  It essentially
forms a linked list through the rule as it is execute <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	121	218	
==>state that is passed around.  It essentially
forms a linked list through the rule as it is execute <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	400	492	
==>TP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revisi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	400	492	
==>TP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revisi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14490	14593	
==>0 = substr target, pos, 1
    if $S0 == '<' goto name
    $I0 = find_not_cclass .CCLASS_NUMERIC, target, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31709	31803	
==>e original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gre <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36259	36353	
==>e original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gre <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35495	35589	
==>e original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gre <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	96	248	
==>y @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ? <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	96	248	
==>y @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ? <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29974	30071	
==>om it by key.  Each template hash
key corresponds to the Message Key attribute of a Message object <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29974	30071	
==>om it by key.  Each template hash
key corresponds to the Message Key attribute of a Message object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2269	2377	
==>p::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2269	2377	
==>p::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2269	2377	
==>p::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	198	300	
==>= shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok($ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15842	15962	
==>1); #see below
    $X::cap = $cap;
    $X::current_match = $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local $X::curre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7429	7582	
==>t(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7622	7775	
==>t(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1165	1271	
==>fig::Config{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1104	1204	
==>fig::Config{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	120	211	
==>2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	120	211	
==>2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	120	211	
==>2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_ar <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5130	5243	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5130	5243	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefa <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2034	2147	
==>IL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	296	404	
==>,
	xml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump dat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3727	3838	
==>k

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyr <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3727	3838	
==>k

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyr <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4007	4102	
==>/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# uni <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4007	4102	
==>/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# uni <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5043	5187	
==>=> sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method r <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5043	5187	
==>=> sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method r <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3700	3800	
==>d on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a strin <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3700	3800	
==>d on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35668	35802	
==>);
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bod <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35668	35802	
==>);
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bod <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35668	35802	
==>);
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bod <==
4	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	323	450	
==>etry }\
            .retry_with:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < - <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10505	10630	
==>st:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connecte <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10505	10630	
==>st:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connecte <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1864	1958	
==>).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1827	1921	
==>).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1864	1958	
==>).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1827	1921	
==>).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-0.724 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	132	236	
==>pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	132	236	
==>pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	132	236	
==>pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1288	1376	
==>://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s28.vli <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8666	8809	
==>TURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8666	8809	
==>TURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8666	8809	
==>TURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2607	2730	
==>en =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2607	2730	
==>en =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2607	2730	
==>en =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4428	4514	
==>--> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_gre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5080	5228	
==>[1] }\n";
    }
    $prec = "P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	665	768	
==>BLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	665	768	
==>BLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	665	768	
==>BLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21746	21845	
==>_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21746	21845	
==>_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21746	21845	
==>_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0, <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1099	1192	
==>w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", "term:", "now <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9267	9383	
==>0
    $S0 = substr target, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	963	1138	
==>n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab concat(\n" . 
               ( join '', @s ) . 
               "$tab ),\n";
}

1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8883	9036	
==>nless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5243	5396	
==>nless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6092	6245	
==>nless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5040	5140	
==>e.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4167	4267	
==>e.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5040	5140	
==>e.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4167	4267	
==>e.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one.not_equal($two);
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3375	3485	
==>}
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3375	3485	
==>}
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3375	3485	
==>}
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1243	1338	
==>apability if created, and in perhaps accepting
# patches to remove roadblocks if encountered.  T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14576	14712	
==>elf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14576	14712	
==>elf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $an <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14576	14712	
==>elf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $an <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7699	7833	
==>my @args;
        for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Arguments: ", @ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9226	9323	
==>=> type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9421	9518	
==>=> type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9616	9713	
==>=> type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator::arrow->ne <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11273	11369	
==>=> type::operator::arrow->new(
		type::operator::nullary->new("int"),
		type::operator::arrow->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7271	7457	
==>== Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7271	7457	
==>== Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7271	7457	
==>== Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1269	1401	
==>e {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1269	1401	
==>e {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'v <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5046	5146	
==>ments,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2259	2356	
==>ot supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2259	2356	
==>ot supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2259	2356	
==>ot supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2066	2169	
==>version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2066	2169	
==>version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2066	2169	
==>version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22988	23089	
==>ns and Programs

rule FunctionDeclaration :words {  # see clause 13
      <'function'> <Identifier> <' <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1129	1227	
==>d for finding roots, like square roots or
cube roots (as in the example above).  Read a Calculus te <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6392	6489	
==>an::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6392	6489	
==>an::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4582	4677	
==>+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4582	4677	
==>+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1253	1374	
==>{$key} }, @rv;
        @rv;
    };
}

sub sign {
    my $self = shift;
    return $self->{'values'}{'sign'} if defined wan <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17209	17314	
==>$?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20686	20791	
==>$?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20264	20369	
==>$?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headin <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	456	562	
==>acter but not ...
#     But <SourceCharacter> isnt called for all characters anyway,
#     so no great loss <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36687	36784	
==>re any any source relation has zero
tuples, in which case the result does too.  Another trivial ca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41236	41333	
==>re any any source relation has zero
tuples, in which case the result does too.  Another trivial ca <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40859	40956	
==>re any any source relation has zero
tuples, in which case the result does too.  Another trivial ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2006	2136	
==>);
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9395	9508	
==>h;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9395	9508	
==>h;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub nu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15186	15284	
==>isting span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The foll <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15186	15284	
==>isting span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The foll <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	534	655	
==>self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	534	655	
==>self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1053	1148	
==>the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1053	1148	
==>the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

= <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17184	17281	
==>pecifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
Thi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22284	22381	
==>pecifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
Thi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	533	619	
==>lass::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	533	619	
==>lass::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_met <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5613	5720	
==>'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  't <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5613	5720	
==>'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  't <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2510	2617	
==>'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  't <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12197	12286	
==>\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10334	10510	
==>>{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5480	5597	
==>.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5480	5597	
==>.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5480	5597	
==>.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1193	1295	
==>ingify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1193	1295	
==>ingify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6460	6553	
==>rt_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6460	6553	
==>rt_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13947	14064	
==>s)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13947	14064	
==>s)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribute <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13947	14064	
==>s)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribute <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5413	5531	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6681	6799	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5413	5531	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6669	6787	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26393	26486	
==>l (or rather, the corresponding projection of
each tuple), but that any duplicates following t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30945	31038	
==>l (or rather, the corresponding projection of
each tuple), but that any duplicates following t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29947	30040	
==>l (or rather, the corresponding projection of
each tuple), but that any duplicates following t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16655	16746	
==>tart to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements chara <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11890	12022	
==>lete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11890	12022	
==>lete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11890	12022	
==>lete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	157	272	
==>cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	157	272	
==>cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash() <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	157	272	
==>cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9205	9323	
==>sh ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13055	13170	
==>sh ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13055	13170	
==>sh ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7587	7697	
==>IL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7587	7697	
==>IL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7587	7697	
==>IL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_ <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2510	2615	
==>. $c . $';
    }
}




conv_package {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5484	5613	
==>tiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Cod <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5484	5613	
==>tiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Cod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12965	13056	
==>dText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Mess <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12965	13056	
==>dText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Mess <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1262	1368	
==>t
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1262	1368	
==>t
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31751	31845	
==>ly.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36301	36395	
==>ly.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) retu <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2527	2641	
==>possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    th <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2527	2641	
==>possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    th <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3386	3480	
==>rted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3386	3480	
==>rted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%head <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3521	3740	
==>ym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of the top le <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1151	1260	
==>}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	890	994	
==>}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1095	1199	
==>}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_at <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8379	8499	
==>b ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8087	8203	
==>b ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1086	1181	
==>ture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1086	1181	
==>ture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	105	205	
==>::Core::Bit;
use Perl6::Core::Nil;

package list;

use strict;
use warnings;

use Carp 'confess';
use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1070	1168	
==>O - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1070	1168	
==>O - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-d <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1070	1168	
==>O - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6568	6689	
==>::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6568	6689	
==>::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6568	6689	
==>::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbox <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3403	3508	
==>> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule assert_eol  { \$\$ }
ru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2096	2233	
==>.number',
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %pa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25029	25125	
==>ol>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29581	29677	
==>ol>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28493	28589	
==>ol>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6804	6902	
==>=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>st <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4156	4254	
==>=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6804	6902	
==>=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>st <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4156	4254	
==>=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 AUTHOR

stevan little, E<lt>st <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3524	3624	
==>{ \< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rule word_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5488	5583	
==>3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5488	5583	
==>3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5488	5583	
==>3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11195	11293	
==>());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    (((?%params is_nil) and ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3354	3446	
==>elf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3354	3446	
==>elf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3354	3446	
==>elf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => :: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	208	332	
==>200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	208	332	
==>200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35720	35813	
==>or that takes a single
Relation::Example in its C<$other> argument, where <$other> has the sam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37752	37845	
==>or that takes a single Relation::Example
in its C<$other> argument, where <$other> has the sam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18581	18695	
==>p @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_han <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15002	15116	
==>p @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_han <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	217	320	
==><-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <s <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	217	320	
==><-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	864	978	
==>hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	864	978	
==>hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	864	978	
==>hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7195	7295	
==>) --> "\\", digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40432	40542	
==>s, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40432	40542	
==>s, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40432	40542	
==>s, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1058	1155	
==>s::Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) returns Bool is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26568	26664	
==>or method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12687	12783	
==>resent "chunks" of data, such as date objects without the time part.

Discrete spans take a "unit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26568	26664	
==>or method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12687	12783	
==>resent "chunks" of data, such as date objects without the time part.

Discrete spans take a "unit <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14027	14121	
==>RS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Li <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10254	10348	
==>RS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Li <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14027	14121	
==>RS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Li <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10254	10348	
==>RS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan" Li <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4709	4824	
==>nshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4709	4824	
==>nshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4709	4824	
==>nshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4009	4123	
==>nshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1057	1168	
==>ub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1057	1168	
==>ub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1057	1168	
==>ub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6198	6304	
==>ON_FLAG;

    /*XXX should SvREFCNT_dec current value */
    r->substrs->data[0].substr = SvREFCNT_inc(call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2936	3039	
==>ude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2936	3039	
==>ude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaSc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2936	3039	
==>ude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaSc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	153	297	
==>ray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	195	339	
==>ray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	153	297	
==>ray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	195	339	
==>ray,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1503	1599	
==>ength + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1503	1599	
==>ength + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1503	1599	
==>ength + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undef <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	411	497	
==>w for more details.
## ---------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5111	5226	
==>t_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_ty <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5111	5226	
==>t_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_ty <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6102	6232	
==>eys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6882	7012	
==>eys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6102	6232	
==>eys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        d <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6882	7012	
==>eys {
          %!users{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        d <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18593	18707	
==>ignmentExpressionNoIn> <':'> <AssignmentExpressionNoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5217	5314	
==>alX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5217	5314	
==>alX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5217	5314	
==>alX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5871	6007	
==>str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optiona <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5871	6007	
==>str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optiona <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5871	6007	
==>str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optiona <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	301	434	
==>f($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11046	11156	
==>$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11046	11156	
==>$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11046	11156	
==>$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1646	1751	
==>ello", "Ingo");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1909	2094	
==>"&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1909	2094	
==>"&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    joi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1909	2094	
==>"&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    joi <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3134	3281	
==>i < $listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14479	14632	
==>s}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14479	14632	
==>s}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14479	14632	
==>s}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6039	6168	
==>sub}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "met <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8894	8996	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9280	9382	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8894	8996	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9280	9382	
==>my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9852	9956	
==>- a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	288	389	
==>- a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	288	389	
==>- a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	66	160	
==>../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19544	19670	
==>for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - suff <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	15	117	
==>::Grammar::Var;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

P <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6631	6729	
==>r by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6631	6729	
==>r by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1845	1954	
==>e if $self->{stack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $self->parse if $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22241	22329	
==>UB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22241	22329	
==>UB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22241	22329	
==>UB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5525	5652	
==>->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5525	5652	
==>->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{r <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3133	3234	
==>e Data::Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS - <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	874	1013	
==>= undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8328	8420	
==>Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8328	8420	
==>Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8328	8420	
==>Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1372	1481	
==>reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1372	1481	
==>reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilte <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5057	5150	
==>my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5057	5150	
==>my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type( <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	71	182	
==>tr is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1991	2089	
==>pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1991	2089	
==>pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1991	2089	
==>pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5330	5486	
==>ild_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5330	5486	
==>ild_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23242	23336	
==>. The command is not modified by this module,
aside from appending the correct newline characte <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23242	23336	
==>. The command is not modified by this module,
aside from appending the correct newline characte <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14513	14618	
==>en though we've pinged the server (probably several times). So, we
        # conclude, the connection is b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14513	14618	
==>en though we've pinged the server (probably several times). So, we
        # conclude, the connection is b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13550	13651	
==>en though we've pinged the server (probably several times). So, we
    # conclude, the connection is b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13550	13651	
==>en though we've pinged the server (probably several times). So, we
    # conclude, the connection is b <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	896	1022	
==>int($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-M <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	896	1022	
==>int($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-M <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7036	7155	
==>nfig{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc_version = shift;

    o <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	431	540	
==>TABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6179	6308	
==>t = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6179	6308	
==>t = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6179	6308	
==>t = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Per <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5045	5135	
==>rc/perl6/Prelude.pm --pugs ./pugs.exe [options]

Creates a Prelude.hs fallback or a Prelude <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5407	5503	
==>($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4537	4633	
==>($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5407	5503	
==>($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4537	4633	
==>($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24063	24156	
==>or::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty print a -> b whe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	590	729	
==>essage) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.output')} $message, "\n";
        },
        'diag' => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	423	536	
==>, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	423	536	
==>, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	423	536	
==>, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	432	535	
==>if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "cha <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	432	535	
==>if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "cha <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6863	6953	
==>Spec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and i <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6863	6953	
==>Spec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	23726	23877	
==>ed[-1]) { # don't forget the last one
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    push @cano <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13278	13377	
==>my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13278	13377	
==>my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13278	13377	
==>my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3436	3544	
==>0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3436	3544	
==>0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3436	3544	
==>0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22637	22749	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22916	23028	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8594	8694	
==>E => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8594	8694	
==>E => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9820	9941	
==>y ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	598	699	
==>));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	598	699	
==>));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	598	699	
==>));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31213	31309	
==>h has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35763	35859	
==>h has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34981	35077	
==>h has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12272	12391	
==>, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12272	12391	
==>, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12272	12391	
==>, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    n <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1955	2052	
==>s not robust.  (If you need a real implementation
consult a book, like Numerical Recipies.)  In pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7784	8011	
==>_emit( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # n <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8786	8895	
==>s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10420	10528	
==>" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10578	10686	
==>" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2048	2220	
==>),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2048	2220	
==>),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2048	2220	
==>),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.e <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3271	3363	
==>$self->can_reduce($node);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$k <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28202	28298	
==>tring()>

This method returns a stringified version of this object which is suitable
for debuggin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35558	35654	
==>tring()>

This method returns a stringified version of this object which is suitable
for debuggin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28202	28298	
==>tring()>

This method returns a stringified version of this object which is suitable
for debuggin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35558	35654	
==>tring()>

This method returns a stringified version of this object which is suitable
for debuggin <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2636	2745	
==>urns method 
    ((= $method NIL)
     (= $current (&dispatcher do))
     (while (($current is_not_nil) and ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	582	680	
==>eturn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	582	680	
==>eturn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	582	680	
==>eturn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2324	2460	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2871	3007	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3418	3554	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $se <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1482	1684	
==>|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            n <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1482	1684	
==>|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            n <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6867	6964	
==>lings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6867	6964	
==>lings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7892	8047	
==>ototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <cate <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4489	4598	
==>_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $tokenStack[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15078	15176	
==>my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15078	15176	
==>my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1569	1680	
==>ngs "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1569	1680	
==>ngs "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1569	1680	
==>ngs "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $un <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2764	2941	
==>ts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6241	6418	
==>ts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5171	5348	
==>ts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (R <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8328	8437	
==>+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unex <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2808	2939	
==>= shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2913	3020	
==>error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2913	3020	
==>error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4437	4544	
==>error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is e <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4447	4587	
==>"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "ra <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4447	4587	
==>"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "ra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7740	7851	
==>e, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninst <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1041	1152	
==>e, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninst <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4903	4998	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4903	4998	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for th <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1888	1981	
==>\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, y <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1888	1981	
==>\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, y <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3345	3447	
==>_0 returns Int { $.day - 1 }

#use Duration::Gregorian;# qw(duration);

#BEGIN {
#our &Date::Gregorian: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13852	13944	
==>refix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13852	13944	
==>refix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13852	13944	
==>refix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17060	17159	
==>e ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17060	17159	
==>e ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17060	17159	
==>e ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36917	37026	
==>"-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36917	37026	
==>"-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36917	37026	
==>"-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11882	11981	
==>r:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

This means you must have the F<charnames> p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24121	24252	
==>$self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, $self->{data} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	12	112	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	12	112	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	12	112	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so :: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7034	7142	
==>4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3184	3282	
==>) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3184	3282	
==>) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
me <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3184	3282	
==>) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
me <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	156	275	
==>Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instea <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	156	275	
==>Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	986	1099	
==>of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	986	1099	
==>of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6075	6208	
==>ub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this simplifies the AG above, and avoids unnecessary d <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14401	14500	
==>{$_} // $_ }, self.split('');
    }
}


sub Pugs::Internals::but_block ($obj, Code $code) is primiti <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	110	199	
==>p('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) retur <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	110	199	
==>p('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15345	15474	
==>}{op} eq '--' ) {
        return _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1010	1124	
==>ackage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1010	1124	
==>ackage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1010	1124	
==>ackage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12653	12810	
==>}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $name = _emit( $n->{e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7433	7534	
==><PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7433	7534	
==><PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7433	7534	
==><PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5572	5704	
==>ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5572	5704	
==>ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5572	5704	
==>ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = functi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	64	165	
==>e attribute;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5411	5506	
==>ike CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5222	5315	
==>ike CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9464	9556	
==>t2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9464	9556	
==>t2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3052	3169	
==>n "\n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3686	3796	
==>END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3686	3796	
==>END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3686	3796	
==>END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8540	8683	
==>tr( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to lo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4900	5043	
==>tr( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to lo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5749	5892	
==>tr( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to lo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5643	5731	
==>s::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3574	3677	
==>temeta } @include );
    $Config{include_re} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shif <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4800	4894	
==>_int(Max), !.
p5_range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	565	655	
==>ch;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Concrete <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	565	655	
==>ch;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Concrete <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11301	11483	
==>= \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7583	7765	
==>= \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8417	8599	
==>= \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5237	5341	
==>ompiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YA <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	120	223	
==>ll elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* N <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	120	223	
==>ll elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* N <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5056	5156	
==>ompiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YA <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	496	663	
==>lasses ) {

        class($class->name =>
              { instance =>
                { methods => { map { $_->name => $_->code }
                               $class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6894	7023	
==>tart, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6894	7023	
==>tart, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6894	7023	
==>tart, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - sli <==
4	/Users/nnunley/pugs/util/func_refact.pl	3070	3183	
==>ew) = @_;
    return 0 if $total == $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub :: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4555	4653	
==>d().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4555	4653	
==>d().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4555	4653	
==>d().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\ <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2836	2936	
==>ns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> a <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2836	2936	
==>ns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37632	37727	
==>ule( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positional <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37632	37727	
==>ule( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positional <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22350	22462	
==>rray
reference of (node) objects.

=item stack

Initially an array reference, used to store the tree as a new sco <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10318	10423	
==>ugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class="i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35638	35729	
==>eturns Relation::Example>

This multi-method is a generic binary relational operator that ta <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39831	39922	
==>eturns Relation::Example>

This multi-method is a generic binary relational operator that ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5766	5919	
==>r the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5766	5919	
==>r the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5766	5919	
==>r the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... ad <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36931	37042	
==>lf = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_handler(' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	654	827	
==>ion => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    my $args = check( $tm <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1410	1524	
==>_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubPa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4534	4646	
==>_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubPa <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4534	4646	
==>_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubPa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5193	5384	
==>and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for these links ###
                $href->{ $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4401	4552	
==>and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26103	26196	
==>plied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26103	26196	
==>plied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	503	628	
==>-> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	503	628	
==>-> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2142	2252	
==>sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2142	2252	
==>sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1367	1470	
==>.stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

met <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1367	1470	
==>.stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

met <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2007	2105	
==>default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2007	2105	
==>default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2382	2502	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7476	7596	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2382	2502	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7476	7596	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19184	19277	
==>x0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19184	19277	
==>x0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19184	19277	
==>x0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_t <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2706	2807	
==>{
print <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to submit the re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6198	6296	
==>is feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6198	6296	
==>is feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6198	6296	
==>is feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd pa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11069	11253	
==>n'} -1;
    sub{
      my $c = $_[0];
      my $m = MatchX->new();
      my $from = $X::pos;
      my $close = sub {
        my $c0 = $_[0];
        my $to = $X::pos;
        $m->set(1, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	928	1019	
==>ude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	928	1019	
==>ude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	928	1019	
==>ude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	565	747	
==>(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	565	747	
==>(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	565	747	
==>(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15823	15991	
==>s zip @ids, @tm );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3948	4107	
==>em( qq[tar --exclude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3101	3210	
==>n = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3101	3210	
==>n = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3101	3210	
==>n = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %v <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1987	2136	
==>:Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3517	3661	
==>:Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5814	5933	
==>$iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5814	5933	
==>$iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4413	4514	
==>cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4413	4514	
==>cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4413	4514	
==>cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10077	10288	
==>calar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10077	10288	
==>calar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10077	10288	
==>calar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOA <==
4	/Users/nnunley/pugs/util/config_h.pl	430	538	
==>V or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	222	346	
==>=> $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	226	350	
==>=> $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	222	346	
==>=> $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	226	350	
==>=> $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4745	4865	
==>e: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = sel <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4745	4865	
==>e: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = sel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2535	2648	
==>do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2752	2865	
==>do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5379	5511	
==>Inv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5379	5511	
==>Inv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5379	5511	
==>Inv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21993	22111	
==>aram => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $length,
			param = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14019	14141	
==>ll
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14019	14141	
==>ll
        # respond with a PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13085	13199	
==>ll
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13085	13199	
==>ll
    # respond with a PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27253	27368	
==>, \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27532	27647	
==>, \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5581	5677	
==>nk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5639	5735	
==>nk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, : <==
4	/Users/nnunley/pugs/util/testgraph.pl	762	869	
==>fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or die "binmode: $!";
print $fh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	508	608	
==>ne(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	508	608	
==>ne(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	508	608	
==>ne(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10272	10382	
==>);');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	550	655	
==>rn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	550	655	
==>rn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	550	655	
==>rn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1623	1740	
==>y $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is ha <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1623	1740	
==>y $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8081	8187	
==>];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8081	8187	
==>];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5302	5401	
==>xpand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5302	5401	
==>xpand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5302	5401	
==>xpand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11	109	
==>perl

use strict;
use warnings;

use Perl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core::Str;
u <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6564	6667	
==>span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6564	6667	
==>span.

It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3261	3363	
==>span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3261	3363	
==>span.

It is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`. <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21853	21956	
==>quire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is builtin is un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5968	6070	
==>ack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5968	6070	
==>ack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5968	6070	
==>ack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10485	10667	
==>efined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10485	10667	
==>efined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10485	10667	
==>efined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1642	1756	
==>ty",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1642	1756	
==>ty",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1642	1756	
==>ty",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	782	873	
==>->_compare($_[1]) == -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10069	10222	
==>re => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: mac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10905	11058	
==>re => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: mac <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1555	1645	
==>[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1555	1645	
==>[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.mat <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2565	2681	
==>l e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Iceland <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2565	2681	
==>l e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Iceland <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5464	5566	
==>t process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine w <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5464	5566	
==>t process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2119	2249	
==>sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quant <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2709	2839	
==>sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2119	2249	
==>sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2697	2827	
==>sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quant <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	485	611	
==>ather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	485	611	
==>ather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6137	6265	
==>^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6137	6265	
==>^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6137	6265	
==>^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}- <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	49	145	
==>.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13567	13714	
==>sh(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13567	13714	
==>sh(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13567	13714	
==>sh(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2452	2599	
==>sh(@result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4872	5019	
==>l $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4872	5019	
==>l $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4872	5019	
==>l $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  l <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5146	5249	
==>/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synopses
infest_syns <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2579	2683	
==>$code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub no <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2579	2683	
==>$code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26707	26804	
==>ssage Key attribute of the new object is set from the named parameter
$msg_key (a string); the opt <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26707	26804	
==>ssage Key attribute of the new object is set from the named parameter
$msg_key (a string); the opt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	452	548	
==>rit_category { die "not implemented" };
sub inherit_grammar { die "not implemented" };

sub add_o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5881	5973	
==>pe', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Sub <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5881	5973	
==>pe', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Sub <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2780	2872	
==>pe', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Sub <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11	123	
==>toconf;

use Cwd;
use Config;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXP <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15380	15491	
==>hod ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15380	15491	
==>hod ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15380	15491	
==>hod ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	732	883	
==>e( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	732	883	
==>e( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2326	2439	
==>ctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2326	2439	
==>ctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7100	7202	
==>return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3704	3806	
==>return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4553	4655	
==>return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1482	1579	
==>nfig{_exe}", 'configure', '--user', '--prefix', "$pwd/dist");
        system("../../Setup$Config{_ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3909	4041	
==>mber};

        # sometimes the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	73	194	
==>on of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	73	194	
==>on of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	73	194	
==>on of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5034	5153	
==>sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16070	16189	
==>sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17558	17677	
==>sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22241	22360	
==>sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{r <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	964	1087	
==>ct the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2792	2887	
==>6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2792	2887	
==>6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

= <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3139	3234	
==>6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41094	41198	
==>ad1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41094	41198	
==>ad1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41094	41198	
==>ad1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=he <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1171	1265	
==>cube roots (as in the example above).  Read a Calculus textbook for details.
This implementatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1140	1263	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1140	1263	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1140	1263	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs= <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4602	4750	
==>ckage => $self ) 
                or error("Could not register package"), return;
            
            
            my $postinst = $meta_dir->fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1527	1618	
==>r) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1527	1618	
==>r) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1527	1618	
==>r) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4336	4501	
==>}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4336	4501	
==>}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3417	3573	
==>};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $matches[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3309	3462	
==>};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $matches[0] <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15359	15456	
==>ariable that is present inside the function, if it was free it might be unified to a concrete valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	475	568	
==>Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	475	568	
==>Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	475	568	
==>Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.k <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1815	1939	
==>y {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1815	1939	
==>y {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3057	3168	
==>RG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3057	3168	
==>RG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16943	17066	
==>atements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "mac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17222	17345	
==>atements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "mac <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12652	12749	
==>true if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Re <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12652	12749	
==>true if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Re <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	631	813	
==>= 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $li <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	631	813	
==>= 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $li <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2861	2989	
==>{ $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbati <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2861	2989	
==>{ $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbati <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13530	13650	
==>params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13530	13650	
==>params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13530	13650	
==>params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attrib <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9401	9521	
==>$opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "sys <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1482	1590	
==>lass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::V <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1482	1590	
==>lass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::V <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1482	1590	
==>lass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::V <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13329	13433	
==>=> <<HELP;
      Please create a $initrd_mnt/dev/console by entering the following command
      as root: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	716	819	
==>tr $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi subm <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	716	819	
==>tr $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi subm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23977	24066	
==>s Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23977	24066	
==>s Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=h <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7118	7219	
==>ermitting the removal of siblings 
# as I think in general it is a bad idea

## ---------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7118	7219	
==>ermitting the removal of siblings 
# as I think in general it is a bad idea

## ---------------------- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6183	6283	
==>_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6183	6283	
==>_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6066	6248	
==>1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6066	6248	
==>1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6066	6248	
==>1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1061	1165	
==>_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1061	1165	
==>_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1061	1165	
==>_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]- <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11218	11320	
==>my $to = $X::pos;
        $m->set(1,substr($X::str,$from,$to-$from),[],{},$from,$to);
        TAILCALL( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	943	1057	
==>he contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	943	1057	
==>he contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	943	1057	
==>he contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(n <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1849	1962	
==>$config;
}

sub add_path {
    my ($name, $config) = @_;
    my $path = $Config{$name} || '';
    $path =~ s/([\/\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12719	12850	
==>n the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12719	12850	
==>n the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12719	12850	
==>n the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	827	927	
==>with_package($cc->as_p5,'main');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13799	13898	
==>ext' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13799	13898	
==>ext' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13799	13898	
==>ext' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7334	7421	
==>ulti unify => ( 'type::variable::free', any(qw/type::variable::free type::operator/) ) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8058	8209	
==>( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13652	13803	
==>( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8058	8209	
==>( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13646	13797	
==>( $prefix eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	149	253	
==>se 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub constants { @EXPORT };

use cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39701	39799	
==>ft_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39701	39799	
==>ft_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39701	39799	
==>ft_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1725	1858	
==>: ();
        do {
            my $st = $nodes->[0]->( $_[0], $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7447	7547	
==>bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7447	7547	
==>bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7447	7547	
==>bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	417	522	
==>SS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	417	522	
==>SS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	417	522	
==>SS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	156	249	
==>die::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1082	1255	
==>::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1082	1255	
==>::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1082	1255	
==>::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12932	13033	
==>"some_file" worked, so I
# added the .shift() declaration here.  --iblech
class Str does Iter {
    me <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12016	12200	
==>n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8298	8482	
==>n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9132	9316	
==>n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                " <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15457	15562	
==>e
	$ret;
}

# in a let block we thread the set of generic type variables, so the body has the generic vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7507	7606	
==>$data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7507	7606	
==>$data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_re <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1282	1377	
==>cause the
algorithm is based on statistics. This was my main motivation to
implement it. Other r <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1282	1377	
==>cause the
algorithm is based on statistics. This was my main motivation to
implement it. Other r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5692	5870	
==>attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9169	9347	
==>attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) retu <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	249	355	
==>s) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	213	319	
==>s) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11871	11975	
==>$one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dsta <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13263	13367	
==>$one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dsta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11871	11975	
==>$one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dsta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13263	13367	
==>$one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), start => $dsta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	483	606	
==>itive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	483	606	
==>itive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	483	606	
==>itive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1350	1440	
==>is file contains both the TestBuilder::TestPlan object and 
a subclass, TestBuilder::NullPl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11036	11181	
==>lear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11036	11181	
==>lear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7929	8049	
==>(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7929	8049	
==>(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1171	1282	
==>,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1171	1282	
==>,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @IS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1171	1282	
==>,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @IS <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16176	16274	
==>($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: generic <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	81	179	
==>es

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code objects to a particular Typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4139	4230	
==>ile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4139	4230	
==>ile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4139	4230	
==>ile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Packa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1838	1952	
==>y $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1838	1952	
==>y $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retur <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2074	2188	
==>y $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19201	19304	
==>symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('add_method' => (
    # method <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9944	10072	
==>"$initrd_mnt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15151	15263	
==>b, 0, "PGE::Exp::Scalar")
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    mob["cname"] = cname
    po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14436	14536	
==>thod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14436	14536	
==>thod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14436	14536	
==>thod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mu <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	114	227	
==>shers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9015	9125	
==>rn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate im <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12872	12978	
==>rn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate im <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12872	12978	
==>rn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate im <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5995	6110	
==>ter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolut <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5995	6110	
==>ter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolut <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8035	8146	
==>, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8023	8134	
==>, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	654	763	
==>s @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    retu <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	654	763	
==>s @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2354	2453	
==>«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for in <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2354	2453	
==>«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for in <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	216	318	
==>ng, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5578	5677	
==>- debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5578	5677	
==>- debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5578	5677	
==>- debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10115	10240	
==>capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10394	10519	
==>capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2982	3094	
==>ay($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a succes <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2982	3094	
==>ay($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a succes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2623	2778	
==>lass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2623	2778	
==>lass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2623	2778	
==>lass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16303	16394	
==>ects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_complain->("perl5_obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3424	3556	
==>$s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3424	3556	
==>$s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3424	3556	
==>$s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10878	10991	
==>y $f = $o->concat( $o->data );
    return $f;
  }
}
{
  # ( capturing
  package Regexp::Parser::open;
  sub emit { <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	686	817	
==>';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	686	817	
==>';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	819	908	
==>the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	819	908	
==>the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Build <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	968	1101	
==>en eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	968	1101	
==>en eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	968	1101	
==>en eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class un <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2535	2645	
==>'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2719	2829	
==>'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	61	155	
==>classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't y <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	61	155	
==>classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't y <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5934	6031	
==>?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToNumber(JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	17	113	
==>::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	17	113	
==>::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	17	113	
==>::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13110	13213	
==>.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_p <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13110	13213	
==>.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_p <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6285	6381	
==>ut whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6285	6381	
==>ut whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8198	8310	
==>eally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8198	8310	
==>eally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8198	8310	
==>eally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6713	6818	
==>40 or ($ghc_version =~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from path <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4756	4884	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5060	5188	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4949	5077	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5253	5381	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7187	7344	
==>lue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7187	7344	
==>lue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7187	7344	
==>lue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6: <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3572	3664	
==>import qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.Map String Stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2726	2904	
==>ub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2726	2904	
==>ub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2726	2904	
==>ub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3817	3915	
==>"-I../../inc" "-I../inc" "-Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1504	1629	
==>$p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1504	1629	
==>$p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1504	1629	
==>$p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13196	13302	
==>loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eval $loc;
  warn "*** U <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9437	9613	
==>emidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12914	13090	
==>emidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17650	17743	
==>er field is used in request messages and contains information
about the user agent originating <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17650	17743	
==>er field is used in request messages and contains information
about the user agent originating <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8836	8949	
==>pen(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	570	683	
==>pen(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8836	8949	
==>pen(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8836	8949	
==>pen(F,">$fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Co <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2827	2935	
==>en ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the inde <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2827	2935	
==>en ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the inde <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31581	31678	
==>nd a program which uses both libraries
could have yet another set for itself.  When the program is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31581	31678	
==>nd a program which uses both libraries
could have yet another set for itself.  When the program is <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28613	28701	
==>e RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9883	9985	
==>s = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9883	9985	
==>s = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9883	9985	
==>s = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11840	11935	
==>er's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5444	5545	
==>O::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5444	5545	
==>O::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Reb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5444	5545	
==>O::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Reb <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8021	8150	
==>l) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4609	4722	
==>key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8086	8199	
==>key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7079	7192	
==>key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	552	657	
==>O_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	552	657	
==>O_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	552	657	
==>O_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub ini <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3997	4103	
==>s -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3997	4103	
==>s -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3997	4103	
==>s -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5497	5603	
==>ess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5782	5888	
==>ess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You m <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10338	10436	
==>esult;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10338	10436	
==>esult;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3194	3343	
==>xt;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3092	3237	
==>xt;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5493	5622	
==>led capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5318	5442	
==>led capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4952	5063	
==>6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless define <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4952	5063	
==>6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless define <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5414	5521	
==>6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless define <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5414	5521	
==>6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless define <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8957	9124	
==>cope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8957	9124	
==>cope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8957	9124	
==>cope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$ <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	933	1050	
==>lly!
.
    }
}
else {
    print << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

sub is_root {
    loc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6389	6486	
==>ULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6389	6486	
==>ULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6389	6486	
==>ULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	730	817	
==>= Pugs::Compiler::Token->compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13174	13290	
==>arams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13174	13290	
==>arams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13174	13290	
==>arams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () { <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	749	850	
==>lfer)

use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10067	10176	
==>6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10067	10176	
==>6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10067	10176	
==>6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15094	15199	
==>, my $control) = $extra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $cont <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6673	6805	
==>match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6457	6581	
==>match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1205	1317	
==>that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4683	4795	
==>that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11276	11432	
==>sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11276	11432	
==>sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11276	11432	
==>sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30264	30363	
==>()

Clean up how the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	259	360	
==>oul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	259	360	
==>oul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	259	360	
==>oul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	18	102	
==>e/Install/Makefile.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16183	16324	
==>re for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_val <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16183	16324	
==>re for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_val <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16183	16324	
==>re for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_val <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3126	3320	
==>t(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3137	3331	
==>t(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ matc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9962	10097	
==>ined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9962	10097	
==>ined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13127	13222	
==>e.  All header field names prefixed with C<Content-> falls
into this category, as well as C<Allo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13127	13222	
==>e.  All header field names prefixed with C<Content-> falls
into this category, as well as C<Allo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12549	12662	
==>croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stric <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12549	12662	
==>croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stric <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12549	12662	
==>croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stric <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2779	2932	
==>lan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	532	667	
==>lan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$r <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	532	667	
==>lan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	673	792	
==>ix =>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17967	18105	
==>@nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval so <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1580	1708	
==>p::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1591	1719	
==>p::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&captu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1261	1357	
==>methods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1261	1357	
==>methods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15145	15311	
==>'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15145	15311	
==>'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15145	15311	
==>'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys- <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	171	278	
==>izer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        method bind ( Code &fun, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8088	8190	
==>Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8088	8190	
==>Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she ha <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8380	8480	
==>Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she ha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8380	8480	
==>Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2222	2330	
==>f !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2222	2330	
==>f !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2222	2330	
==>f !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub J <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	91	193	
==>ng point seconds relative to 1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7216	7338	
==>->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7216	7338	
==>->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7216	7338	
==>->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit- <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9735	9844	
==>.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	267	396	
==>t $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	267	396	
==>t $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	267	396	
==>t $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	588	684	
==>quire::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotato <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	605	732	
==>p6_as_bool
       p6_as_num
       p6_as_str
       p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11454	11548	
==>ction because it isolates the Role specifc
code to the class that consumed it.

--------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11454	11548	
==>ction because it isolates the Role specifc
code to the class that consumed it.

--------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11454	11548	
==>ction because it isolates the Role specifc
code to the class that consumed it.

--------------- <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7604	7749	
==>s_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        els <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2182	2292	
==>PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2182	2292	
==>PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2182	2292	
==>PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2419	2665	
==>ype');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2419	2665	
==>ype');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2419	2665	
==>ype');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3902	4013	
==>alues %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub proce <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9925	10167	
==>el' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3941	4086	
==>npages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from altd <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5813	5908	
==>s

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5871	5966	
==>s

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9626	9742	
==>$c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    r <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9626	9742	
==>$c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    r <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	266	361	
==><REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	266	361	
==><REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13571	13727	
==>result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13571	13727	
==>result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13571	13727	
==>result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2456	2612	
==>result,@a[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	941	1040	
==>ined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	941	1040	
==>ined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	941	1040	
==>ined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_na <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1440	1589	
==>$!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $curre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1440	1589	
==>$!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $curre <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3444	3586	
==>?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3575	3686	
==>space($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3575	3686	
==>space($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAh <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3575	3686	
==>space($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAh <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2073	2186	
==>lback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'END';

#includ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	813	917	
==>ter become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	813	917	
==>ter become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	813	917	
==>ter become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	802	898	
==>IL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	994	1090	
==>IL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	802	898	
==>IL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	994	1090	
==>IL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Uti <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4326	4499	
==>ogress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time arou <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4326	4499	
==>ogress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time arou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13705	13825	
==>::Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr', <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13705	13825	
==>::Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr', <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2226	2365	
==>er \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	116	212	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	116	212	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	116	212	
==>urn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	469	615	
==>'%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	469	615	
==>'%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {}, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	469	615	
==>'%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {}, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	704	829	
==>t = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2168	2321	
==>tate

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2098	2247	
==>tate
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2723	2824	
==>$span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2723	2824	
==>$span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence. <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11711	11877	
==>x};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $overrun ($te <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3995	4114	
==>} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3995	4114	
==>} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5173	5281	
==>, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5173	5281	
==>, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5173	5281	
==>, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_ty <==
4	/Users/nnunley/pugs/util/testgraph.pl	1109	1205	
==>ILE  location of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce t <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	711	865	
==>},

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them all as attributes
                  attrs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6205	6299	
==>int = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6205	6299	
==>int = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6205	6299	
==>int = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	893	999	
==>PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	893	999	
==>PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	893	999	
==>PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27255	27349	
==>, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation::Example <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2358	2473	
==>roblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2358	2473	
==>roblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2358	2473	
==>roblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longe <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6488	6591	
==>ray;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seems a preferable p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3552	3652	
==>ntext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3552	3652	
==>ntext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3552	3652	
==>ntext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array) <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	272	369	
==>te (*@index ) returns List of Object;
multi method exists ($index ) returns Object;
multi method e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3052	3236	
==>TROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3052	3236	
==>TROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3052	3236	
==>TROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                m <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7488	7585	
==>atchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests --> Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32518	32695	
==>t_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32518	32695	
==>t_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32518	32695	
==>t_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value:: <==
4	/Users/nnunley/pugs/util/importgraph.pl	2528	2634	
==>1] ? 'green' : 'black'),
    (defined $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3496	3611	
==>2", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3496	3611	
==>2", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!cha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	955	1056	
==>f->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2555	2656	
==>f->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4439	4549	
==>ct => "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1384	1479	
==>Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1384	1479	
==>Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1384	1479	
==>Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1910	2087	
==>s,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and over <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2115	2292	
==>s,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and over <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2178	2355	
==>s,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and over <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8826	8921	
==>st::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8884	8979	
==>st::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	220	307	
==>st::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	278	365	
==>st::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planne <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2556	2729	
==>:node<Macro>)
                            ),
                            Tree.new(:node<Block>).add_children(
                                Tree.new(:node<Bare>).add_childr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	897	986	
==>use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	897	986	
==>use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	897	986	
==>use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6498	6646	
==>od

($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12399	12521	
==>nboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12399	12521	
==>nboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12399	12521	
==>nboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1425	1526	
==>- only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1425	1526	
==>- only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .in <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1425	1526	
==>- only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2374	2456	
==>s::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Gram <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1094	1198	
==>amed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1094	1198	
==>amed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1094	1198	
==>amed args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5411	5509	
==>aller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname}() a <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	86	194	
==>/Module/Install/Makefile/Version.pm"
package Module::Install::Makefile::Version;
use Module::Install::Base; @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11770	11854	
==>L::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11770	11854	
==>L::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11770	11854	
==>L::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	748	842	
==>>new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	748	842	
==>>new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	359	462	
==>new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role = Role.new("Foo");
 my $newclass = Cl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20931	21026	
==>the constructor or header() method, the same
field name should not occur multiple times.  The re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20931	21026	
==>the constructor or header() method, the same
field name should not occur multiple times.  The re <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3331	3413	
==>t_eos>|<assert_bol>|<assert_eol>|<lookahead>|<lookbehind>|<word_boundary> }
rule as <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	828	924	
==>t, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, an <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	828	924	
==>t, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, an <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3075	3194	
==><signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [ <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3075	3194	
==><signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1841	1958	
==>ere, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLA <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1841	1958	
==>ere, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLA <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29969	30062	
==>es (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34521	34614	
==>es (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33685	33778	
==>es (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relatio <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3009	3118	
==>ub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghc <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3009	3118	
==>ub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghc <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2815	2918	
==>data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$con <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2815	2918	
==>data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$con <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6972	7129	
==>sure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6972	7129	
==>sure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5881	5993	
==>);
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.clos <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5881	5993	
==>);
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.clos <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10262	10360	
==>neg(digit))         --> "\\D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", !.
p56_char_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4517	4612	
==>)($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4517	4612	
==>)($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4517	4612	
==>)($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pri <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20241	20400	
==>eturn $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatcher = $se <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10152	10250	
==>e::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro m <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10152	10250	
==>e::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13787	13897	
==>Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2170	2264	
==>the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2170	2264	
==>the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2170	2264	
==>the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10693	10826	
==>sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10693	10826	
==>sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10693	10826	
==>sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        }, <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10424	10529	
==>});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n";
    my $keys = join(" ", @{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16778	16920	
==>fined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16778	16920	
==>fined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16778	16920	
==>fined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	419	547	
==>}

  sub visual {
    my $self = shift;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    e <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16224	16356	
==>:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19701	19833	
==>:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19234	19366	
==>:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values ) <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2575	2676	
==>name.cmd");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Could not build $exenam <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5597	5697	
==>ip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<B <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5597	5697	
==>ip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7121	7221	
==>ip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<B <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	426	526	
==>oncat() still looks like a tree, instead of a 'plain' Match.

- There are no tests yet for <before> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2732	2858	
==>de: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2949	3075	
==>de: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shif <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1056	1165	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1056	1165	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5061	5187	
==>var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5061	5187	
==>var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5651	5777	
==>var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	D <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	309	427	
==>urns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1241	1353	
==>_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ an <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29020	29128	
==>quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29020	29128	
==>quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp:: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	375	471	
==>quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1175	1273	
==>s &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1175	1273	
==>s &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1175	1273	
==>s &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8343	8557	
==>reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8807	9021	
==>reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11838	11959	
==>e eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4481	4602	
==>e eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S-> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	367	480	
==>umber,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1225	1338	
==>umber,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10791	10897	
==>package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10791	10897	
==>package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10791	10897	
==>package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	53	148	
==>../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	899	1014	
==>he list if we have no more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	856	955	
==>2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	856	955	
==>2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	856	955	
==>2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3135	3244	
==>erl5 I<and> perl6 code.

This is a valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15236	15344	
==>self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15236	15344	
==>self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15236	15344	
==>self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6499	6633	
==>ub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6499	6633	
==>ub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6499	6633	
==>ub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15640	15749	
==>nd
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar")
  end:
    mpos = pos
    .return (mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2648	2755	
==>um recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2648	2755	
==>um recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2648	2755	
==>um recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	131	224	
==>exp matching and substitution are used, and
# this brute-force, simplistic, and extremely fool <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1078	1184	
==>ed ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1078	1184	
==>ed ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1078	1184	
==>ed ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	29	134	
==>die;

use strict;
use warnings;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie - Blondie is a dumb int <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5735	5852	
==>res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $max <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5735	5852	
==>res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $max <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5735	5852	
==>res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $max <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9568	9674	
==>=   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9568	9674	
==>=   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9568	9674	
==>=   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4126	4230	
==>TCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub { "not ok " . _('$.numbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7791	7929	
==>tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7791	7929	
==>tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$me <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7791	7929	
==>tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8663	8806	
==>q '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14388	14531	
==>q '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8663	8806	
==>q '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14382	14525	
==>q '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28370	28459	
==>en combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32922	33011	
==>en combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32050	32139	
==>en combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says w <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1701	1788	
==>ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_harness_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6009	6130	
==>get =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                error <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3200	3301	
==>jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3200	3301	
==>jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3200	3301	
==>jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2163	2261	
==>cally, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($nam <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2163	2261	
==>cally, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($nam <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5140	5236	
==>$cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5140	5236	
==>$cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4952	5115	
==>';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4964	5127	
==>';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capt <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32708	32803	
==>new Relation contains all the tuples of the source Relations, including
one copy each of any dup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37258	37353	
==>new Relation contains all the tuples of the source Relations, including
one copy each of any dup <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15987	16150	
==>'';
        my $len    = length;
        my $suflen = length $suf;
        $maxlen    = $len    if $len    > $maxlen;
        $maxsuflen = $suflen if $suflen > $max <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9662	9763	
==>equire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Find <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9662	9763	
==>equire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Find <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9662	9763	
==>equire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Find <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5752	5904	
==>$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
} <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5752	5904	
==>$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1975	2071	
==>lex only) or a dynamic lookup. 



This object-serialization format is shared across all runtimes <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1901	1995	
==>lex only) or a dynamic lookup. 

This object-serialization format is shared across all runtimes <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8373	8465	
==>start_element ('line_interpolation')>

This event is begun when any block of characters is in <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8373	8465	
==>start_element ('line_interpolation')>

This event is begun when any block of characters is in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5630	5754	
==>ength = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5630	5754	
==>ength = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5630	5754	
==>ength = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $sta <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14965	15072	
==>ams {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler;
use base qw/Reducer Map DynamicSc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4363	4480	
==>$removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4363	4480	
==>$removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!ch <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8342	8446	
==>clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8342	8446	
==>clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6325	6428	
==>rns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5455	5558	
==>rns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6325	6428	
==>rns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5455	5558	
==>rns Set {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3246	3381	
==>);
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3246	3381	
==>);
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4770	4905	
==>);
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	407	526	
==>ef($body) eq 'CODE')
        || confess "body must be a code ref";
    my $local_env = closure::env->new();
    $local_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21485	21582	
==>6. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21485	21582	
==>6. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10933	11028	
==>e is a "universal set".
Otherwise the program will emit warnings during the execution of some me <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10933	11028	
==>e is a "universal set".
Otherwise the program will emit warnings during the execution of some me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8442	8542	
==>SSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8442	8542	
==>SSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2279	2376	
==>ted, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2279	2376	
==>ted, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1050	1175	
==>e::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1050	1175	
==>e::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1050	1175	
==>e::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @re <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4312	4422	
==>) {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

metho <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4312	4422	
==>) {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

metho <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3865	3966	
==>ess::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3865	3966	
==>ess::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3485	3582	
==>> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3669	3766	
==>> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-captu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	728	822	
==>.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1853	1947	
==>.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	728	822	
==>.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1853	1947	
==>.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is fr <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	43	148	
==>ends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestProgr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2494	2598	
==>spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2494	2598	
==>spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2494	2598	
==>spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14961	15068	
==>ding.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18438	18545	
==>ding.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17854	17961	
==>ding.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11654	11753	
==>f, which gets written onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hop <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13014	13143	
==>l, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8128	8243	
==>def/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8128	8243	
==>def/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8128	8243	
==>def/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	633	747	
==>70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	633	747	
==>70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10375	10483	
==>in() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10375	10483	
==>in() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2790	2906	
==>$set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.clos <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2790	2906	
==>$set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.clos <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22709	22801	
==>2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosett <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22709	22801	
==>2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosett <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5577	5679	
==>ens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5577	5679	
==>ens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39287	39383	
==>>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38732	38828	
==>>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39287	39383	
==>>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43546	43642	
==>>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dunc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11774	11878	
==>p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11774	11878	
==>p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11774	11878	
==>p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args) <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2435	2535	
==>|= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2459	2582	
==>self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5268	5368	
==>>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5268	5368	
==>>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5268	5368	
==>>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8981	9096	
==>ample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9779	9894	
==>ample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10688	10803	
==>ample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11514	11629	
==>ample $other!) returns Relation::Example {

    die "The heading of the relation in $other does"
            ~ " not <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2513	2629	
==>ta_ext'}         = [ '.info' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0]->meta_ext  } ];

$config{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1075	1170	
==>m') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1075	1170	
==>m') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1075	1170	
==>m') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3705	3838	
==><self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20541	20635	
==>name, and then invoking methods on those objects.  All of
their class/object attributes are pri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25093	25187	
==>name, and then invoking methods on those objects.  All of
their class/object attributes are pri <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23663	23757	
==>name, and then invoking methods on those objects.  All of
their class/object attributes are pri <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	422	540	
==>hift;
    my $args = ($self->{makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

sub build_subdi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	331	449	
==>air = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	331	449	
==>air = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	331	449	
==>air = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	202	301	
==>JIB::Package::Installable;

use File::Spec;
use File::Basename          qw[basename];
use Params::Ch <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	549	668	
==>ot/\$Root/;
        print "\t$_\n";
    }
 
    ### show alternatives
    if( my $aref = $alts->{ $struct->{package} }-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3956	4068	
==>-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3956	4068	
==>-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3956	4068	
==>-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that y <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8867	8989	
==>TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1023	1137	
==>TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1023	1137	
==>TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builde <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18563	18656	
==>ded class that is I<entirely> redundant (that is, I<every>
character in that embedded class is <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2313	2456	
==>t_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2301	2444	
==>t_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5769	5873	
==>andle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Conn <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5769	5873	
==>andle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Conn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8814	9083	
==>rg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8814	9083	
==>rg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8814	9083	
==>rg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22208	22313	
==>aseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <CaseCl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4451	4566	
==>he numbers if $type isn't a string operator,
        # and the numbers are stringwise the same.
        # (all strin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1225	1339	
==>my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method ba <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1225	1339	
==>my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method ba <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	721	830	
==>as the 'root' user.)\n"
    unless -w $Config{sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6040	6164	
==>=~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangle <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6040	6164	
==>=~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangle <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6040	6164	
==>=~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	515	692	
==>('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	515	692	
==>('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	515	692	
==>('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16286	16429	
==>ading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11327	11513	
==>_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation::Ex <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8641	8823	
==>_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12118	12300	
==>_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	259	357	
==>----------------------
## This is an extension of the Mini-MetaModel which adds a self-bootstrappin <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1071	1230	
==>.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1071	1230	
==>.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  h <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15661	15777	
==>ength of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use on <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19894	20010	
==>ength of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use on <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	973	1112	
==>shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	852	991	
==>shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	847	943	
==>ides information about the server your CGI is running on. It also 
attempts to provide some usefu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	847	943	
==>ides information about the server your CGI is running on. It also 
attempts to provide some usefu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33046	33155	
==>s:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	692	787	
==>L2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	692	787	
==>L2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	692	787	
==>L2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12399	12515	
==>cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12399	12515	
==>cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12399	12515	
==>cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	591	704	
==>undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	591	704	
==>undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Ha <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	591	704	
==>undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5948	6040	
==>ss');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclas <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1534	1661	
==>base 'Unit';

    package App;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use bas <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9155	9260	
==>$_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9155	9260	
==>$_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22288	22380	
==>esn't warrant the warning.

Added "Unrecognized escape" warnings to I<all> escape sequence ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	950	1042	
==>$ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	950	1042	
==>$ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	950	1042	
==>$ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29895	29986	
==>experimentally implemented)

Straps->analyze_file() not taint clean, don't know if it can be <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7728	7906	
==>tent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inval <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7728	7906	
==>tent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inval <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	158	254	
==>enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	158	254	
==>enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13822	13941	
==>/disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13822	13941	
==>/disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if de <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9887	10004	
==>d_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_w <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9887	10004	
==>d_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6720	6858	
==>};
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6720	6858	
==>};
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3389	3509	
==>l::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !def <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3389	3509	
==>l::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !def <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1403	1528	
==>$0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1403	1528	
==>$0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8969	9085	
==>_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8969	9085	
==>_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3935	4045	
==>ributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3935	4045	
==>ributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	778	877	
==>return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	778	877	
==>return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	284	409	
==>1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ m <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3430	3529	
==>T_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4566	4664	
==>T_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	957	1053	
==>age->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib fil <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2785	2950	
==>t $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        l <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3405	3570	
==>t $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2785	2950	
==>t $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        l <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3405	3570	
==>t $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14731	14829	
==>os_anchor:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22827	22919	
==>($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22827	22919	
==>($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22827	22919	
==>($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1738	1920	
==>=> {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1738	1920	
==>=> {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9823	9934	
==>time::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9817	9928	
==>time::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6042	6139	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6042	6139	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6042	6139	
==>y})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	447	550	
==>int Dump $match->();
    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19757	19854	
==>kname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18738	18835	
==>kname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19757	19854	
==>kname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used. <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18738	18835	
==>kname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used. <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5129	5347	
==>eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5129	5347	
==>eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1096	1188	
==>entary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_p <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1096	1188	
==>entary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4661	4782	
==>args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4661	4782	
==>args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4661	4782	
==>args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6248	6350	
==>instance}->splat(@_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30862	30956	
==>l cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is iden <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35412	35506	
==>l cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is iden <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34603	34697	
==>l cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is iden <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	1474	1617	
==>r @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_};
                $cc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4024	4125	
==>rently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4024	4125	
==>rently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4024	4125	
==>rently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7606	7759	
==>->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7606	7759	
==>->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'd <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7606	7759	
==>->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'd <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5277	5371	
==>at a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5277	5371	
==>at a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6801	6895	
==>at a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8658	8805	
==>ew(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8658	8805	
==>ew(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8658	8805	
==>ew(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	769	873	
==>that
conditionally excludes some builtin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use B <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1042	1159	
==>::grep (MatchTest $test ;   *@values) returns Lazy {
   gather {
     for @values -> $x {
       take $x if $x ~~ $tes <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4226	4344	
==>>{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	111	227	
==>$class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" } <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1621	1721	
==>There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named paramet <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1621	1721	
==>There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named paramet <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2655	2859	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $bu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1345	1549	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $bu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2655	2859	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $bu <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1345	1549	
==>my @lines = split("\n", $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	335	437	
==>y ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	335	437	
==>y ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	335	437	
==>y ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1921	2073	
==>arName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1921	2073	
==>arName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1921	2073	
==>arName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inlin <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3470	3566	
==>item Scoping

You should be able to do both lexically and dynamically scoped
overriding.  You cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3364	3471	
==>SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3364	3471	
==>SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3364	3471	
==>SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26903	26998	
==>switch in the F<prove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a dir <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4440	4543	
==>[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsi <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4695	4798	
==>[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsi <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4440	4543	
==>[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsi <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4695	4798	
==>[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsi <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3722	3820	
==>eally the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::inse <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3722	3820	
==>eally the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::inse <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2328	2425	
==>>>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all ex <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2328	2425	
==>>>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all ex <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4952	5047	
==>(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) retur <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5010	5105	
==>(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4340	4434	
==>a hash reference, the match object returns named captures
as match objects, keyed by their name <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4340	4434	
==>a hash reference, the match object returns named captures
as match objects, keyed by their name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6040	6137	
==>t>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6040	6137	
==>t>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3260	3345	
==>Failed
  -----------------------------------------------------------------------
  t/w <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2296	2394	
==>tr) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2296	2394	
==>tr) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2296	2394	
==>tr) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS:: <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27593	27686	
==>t harness to
output more frequent progress messages using carriage returns.  Some
consoles may <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11742	11905	
==>xpires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11742	11905	
==>xpires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6465	6581	
==>), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multip <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6465	6581	
==>), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11356	11477	
==>ext if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11356	11477	
==>ext if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11356	11477	
==>ext if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	181	285	
==>o kinds of things that can do subscriber:
# - Code
# - Object

# The notification process involves:
# cre <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	79	196	
==>le::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4050	4149	
==>$__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4050	4149	
==>$__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4050	4149	
==>$__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1789	1951	
==>$self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2201	2363	
==>$self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1789	1951	
==>$self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2201	2363	
==>$self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2423	2554	
==>ds
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4011	4142	
==>ds
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	161	257	
==>rns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	161	257	
==>rns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15286	15383	
==>wing methods are available for Span objects:

- `start()` / `end()`

Return the start or end value <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15286	15383	
==>wing methods are available for Span objects:

- `start()` / `end()`

Return the start or end value <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9837	9930	
==>:Model's input validation is performed over 2 main phases, which
are referred to as "immediate <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9837	9930	
==>:Model's input validation is performed over 2 main phases, which
are referred to as "immediate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4826	4963	
==>Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4826	4963	
==>Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4826	4963	
==>Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' | <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1478	1591	
==>"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1478	1591	
==>"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	63	168	
==>y of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    f <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	63	168	
==>y of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    f <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	715	882	
==>rent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    m <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	715	882	
==>rent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    m <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	59	156	
==>A>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$ <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	59	156	
==>A>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4332	4444	
==>::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4332	4444	
==>::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1730	1826	
==>«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1730	1826	
==>«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6017	6208	
==>that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to ou <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6481	6672	
==>that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to ou <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7422	7546	
==>::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre    =       saf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11682	11769	
==>rnals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11682	11769	
==>rnals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11682	11769	
==>rnals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PI <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2320	2442	
==>ey {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_k <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2320	2442	
==>ey {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_k <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	876	981	
==>ol is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expect <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	934	1039	
==>ol is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expect <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31971	32094	
==>nt, where <$other> has the same heading as
the invocant Relation, and returns a new Relation that has the same heading
and w <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33832	33955	
==>nt, where <$other> has the same heading as the
invocant Relation, and returns a new Relation that has the same heading and
w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36521	36644	
==>nt, where <$other> has the same heading as
the invocant Relation, and returns a new Relation that has the same heading
and w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38382	38505	
==>nt, where <$other> has the same heading as the
invocant Relation, and returns a new Relation that has the same heading and
w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2700	2820	
==>d ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2700	2820	
==>d ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? == <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2700	2820	
==>d ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? == <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5297	5389	
==>kage type::variable;
use base qw/type/;

package type::variable::free;
use base qw/type::vari <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4526	4812	
==>n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            gi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4526	4812	
==>n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            gi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13429	13580	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13429	13580	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13429	13580	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2314	2465	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10973	11129	
==>login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    log <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10973	11129	
==>login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    log <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	386	534	
==>ch.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()() <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	386	534	
==>ch.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()() <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11488	11647	
==>n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           "$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5838	5988	
==>n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5838	5988	
==>n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8174	8381	
==>>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8174	8381	
==>>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8174	8381	
==>>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # i <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1218	1326	
==>my $pwd = cwd();

    print "*** Building dependencies.  Please wait...\n\n";

    # XXX - instead of --user, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	213	352	
==>RUCT )

=cut

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { req <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	760	873	
==>ODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gene <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	760	873	
==>ODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gene <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	760	873	
==>ODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gene <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3842	3970	
==>otemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2427	2523	
==>g(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2427	2523	
==>g(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2427	2523	
==>g(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13211	13328	
==>]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13211	13328	
==>]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	375	486	
==>(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!membe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	375	486	
==>(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!membe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14266	14387	
==>arn "test.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' un <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	375	478	
==>ui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	375	478	
==>ui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	375	478	
==>ui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$arg <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1798	2037	
==>m('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					),
				),
			),
		),
		resu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2865	2958	
==>tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2865	2958	
==>tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2865	2958	
==>tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12539	12676	
==>$initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1141	1245	
==>) (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re imp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1141	1245	
==>) (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re imp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1141	1245	
==>) (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re imp <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13783	13899	
==> $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 ) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13783	13899	
==> $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22449	22543	
==>rogram package would return a code-key to indicate a
condition, often it will also provide some <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22449	22543	
==>rogram package would return a code-key to indicate a
condition, often it will also provide some <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1470	1566	
==>indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			my $redu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2124	2226	
==>", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2124	2226	
==>", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2124	2226	
==>", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4106	4202	
==>->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$w <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10210	10336	
==>ty = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10210	10336	
==>ty = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7876	7971	
==>$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.key <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7876	7971	
==>$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.key <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	749	880	
==>[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		my $key = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7974	8088	
==>e_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7974	8088	
==>e_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7974	8088	
==>e_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	748	865	
==>e of mod;
    }
    $target = $matchObj->target();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7757	7860	
==>unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7757	7860	
==>unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7757	7860	
==>unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unb <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	460	568	
==>e {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}->in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3543	3650	
==>{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3543	3650	
==>{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3543	3650	
==>{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14468	14606	
==>at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5894	6012	
==>$new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5894	6012	
==>$new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5894	6012	
==>$new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2169	2316	
==>tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	982	1074	
==>Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	982	1074	
==>Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	982	1074	
==>Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::J <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2093	2198	
==>compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2093	2198	
==>compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1325	1426	
==>compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3186	3287	
==>compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2027	2132	
==>{
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3679	3784	
==>E::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2027	2132	
==>{
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2027	2132	
==>{
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3190	3300	
==>rt} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3190	3300	
==>rt} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3190	3300	
==>rt} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12057	12177	
==>:Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12057	12177	
==>:Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12057	12177	
==>:Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unl <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	68	168	
==>chafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6832	6931	
==>$coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6832	6931	
==>$coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6832	6931	
==>$coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js) <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	641	812	
==>is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:per <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	641	812	
==>is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:per <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3393	3517	
==>unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3393	3517	
==>unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1418	1515	
==>You can also configure how the tests are to
be run.

The interface is currently incomplete.  I<Ple <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8583	8678	
==>copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher AP <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8583	8678	
==>copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher AP <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14476	14571	
==>nized escape %s%s passed through

=item RPe_BADPOS (-24)

POSIX class [:%s:] unknown

=item RPe_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	692	791	
==>$step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempt <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	692	791	
==>$step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempt <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1916	2034	
==>dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available! <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1894	2012	
==>dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available! <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13877	13977	
==>2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13877	13977	
==>2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5946	6056	
==>@_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5946	6056	
==>@_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header(" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13333	13429	
==>een for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername") <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13333	13429	
==>een for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2912	3035	
==>ram=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2912	3035	
==>ram=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2912	3035	
==>ram=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15777	15876	
==>lates how wide the leader should be based on the length of the
longest test name.

=cut

sub _leader <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4426	4582	
==>y add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25379	25474	
==>ns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29931	30026	
==>ns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28870	28965	
==>ns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename <==
4	/Users/nnunley/pugs/util/func_refact.pl	1883	2027	
==>onf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "unio <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5445	5605	
==>define $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5445	5605	
==>define $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () retu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1911	2013	
==>ir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6 <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1911	2013	
==>ir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2441	2552	
==>le $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "state <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2441	2552	
==>le $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "state <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2441	2552	
==>le $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "state <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9082	9247	
==>d = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9082	9247	
==>d = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9082	9247	
==>d = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6373	6488	
==>ase);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6373	6488	
==>ase);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3042	3144	
==>ns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representin <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3042	3144	
==>ns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	222	331	
==>GV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TA <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	428	537	
==>GV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TA <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	800	902	
==>y $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    re <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	800	902	
==>y $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8317	8471	
==>eturn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8317	8471	
==>eturn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8317	8471	
==>eturn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12538	12675	
==>.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric com <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12538	12675	
==>.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric com <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11167	11265	
==>q $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11167	11265	
==>q $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_wit <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6783	6898	
==>lip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      got '$got'\n",
		"# expe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1928	2024	
==>f  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1928	2024	
==>f  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1928	2024	
==>f  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3872	4001	
==>t be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2343	2448	
==>d.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2343	2448	
==>d.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2343	2448	
==>d.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7305	7414	
==>urn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3909	4018	
==>urn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4758	4867	
==>urn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2909	2995	
==>b\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13454	13659	
==>.$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13454	13659	
==>.$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13454	13659	
==>.$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1666	1763	
==>ams>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1210	1314	
==>rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1210	1314	
==>rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9598	9692	
==>$universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defin <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9598	9692	
==>$universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25065	25216	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25344	25495	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31403	31522	
==>{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ .. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18542	18648	
==>he {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contain <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18542	18648	
==>he {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contain <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3604	3698	
==>n object of the appropriate 
class, passing the key, a mode (either "enciphering" or "decipheri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3604	3698	
==>n object of the appropriate 
class, passing the key, a mode (either "enciphering" or "decipheri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10387	10506	
==>)) {
    if ($depth == $iter->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argumen <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	169	263	
==>ost will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	169	263	
==>ost will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	169	263	
==>ost will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4406	4536	
==>r ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4406	4536	
==>r ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4406	4536	
==>r ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	708	835	
==>')->FETCH('::TODO')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>      $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12046	12199	
==>>new()); 
                  }));
                $e->get('$class:')->send('bless' => (str->new(), $e->get('?%params')));    
            }
        )
    ) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	450	565	
==>and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	655	770	
==>and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	711	826	
==>and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instanc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15637	15754	
==>sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15637	15754	
==>sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15637	15754	
==>sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1282	1379	
==>rimitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1282	1379	
==>rimitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1282	1379	
==>rimitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	283	374	
==>$self->compile($prog);
	my $type_annotated = $self->annotate($c);
	my $c_code = $self->emit( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4234	4449	
==>(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next poss <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4234	4449	
==>(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next poss <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2635	2731	
==>head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo B <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2635	2731	
==>head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo B <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	639	767	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	844	972	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	900	1028	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instanc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28534	28631	
==>g whether the argument C<$tuple> exists
in / is a member of this Relation::Example.

=item C<equal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6982	7118	
==>0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11986	12122	
==>0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6982	7118	
==>0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11980	12116	
==>0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12199	12338	
==>p_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12199	12338	
==>p_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12199	12338	
==>p_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2168	2298	
==>equal = "r$level";
    $equal = "parse" if $level == $#{$self->{levels}};
    for my $op ( @{$self->{levels}[$level]} ) {
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1475	1570	
==>/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1475	1570	
==>/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1475	1570	
==>/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11136	11257	
==>6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11136	11257	
==>6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11136	11257	
==>6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instanc <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10761	10902	
==>~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	41	145	
==>) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	41	145	
==>) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $le <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	41	145	
==>) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2346	2442	
==>umber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2346	2442	
==>umber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2346	2442	
==>umber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2019	2114	
==>>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2019	2114	
==>>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	961	1055	
==>also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
opti <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	961	1055	
==>also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
opti <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4679	4799	
==>har;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsif ( $initchar eq 'o' ) { $baase = 8; go <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4795	4899	
==>x = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4795	4899	
==>x = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4795	4899	
==>x = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8780	8888	
==>yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8780	8888	
==>yet in Pugs, because, so it seems, delete stringifies its return values,
      # but I was unable to work out <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9036	9142	
==>yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9036	9142	
==>yet in Pugs, because, so it seems, delete stringifies its return values,
    # but I was unable to work out <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4236	4356	
==>($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   return $var." = \\".$lit.";\n";
}
sub node::a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23502	23608	
==>handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23502	23608	
==>handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23502	23608	
==>handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2196	2317	
==>./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2196	2317	
==>./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32124	32223	
==>error
message.  If it finds one, then that is displayed; if not, it then checks
each set's member fo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32124	32223	
==>error
message.  If it finds one, then that is displayed; if not, it then checks
each set's member fo <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1004	1138	
==>=> [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = sh <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1004	1138	
==>=> [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5209	5303	
==>der("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("La <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5209	5303	
==>der("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("La <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4845	4949	
==>not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4845	4949	
==>not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4845	4949	
==>not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::n <==
4	/Users/nnunley/pugs/util/testgraph.pl	364	459	
==>ts.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't open $yamlfile for reading: $!";
bin <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4505	4642	
==>or (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne ' <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4505	4642	
==>or (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne ' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39713	39806	
==>formation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39713	39806	
==>formation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5651	5749	
==>ay @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5651	5749	
==>ay @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5651	5749	
==>ay @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	539	654	
==>('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	539	654	
==>('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	539	654	
==>('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5870	5976	
==>sh,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4119	4218	
==>m B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test y <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4119	4218	
==>m B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test y <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4199	4298	
==>m B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test y <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10066	10162	
==>/->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub node::non_capturing_subru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13517	13651	
==>id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13517	13651	
==>id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13517	13651	
==>id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1351	1459	
==>/\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_cod <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4085	4178	
==>tem B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4085	4178	
==>tem B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5609	5702	
==>tem B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8787	8889	
==>$Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0 <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8845	8947	
==>$Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	185	279	
==>$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0 <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	243	337	
==>$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5361	5476	
==>_Min,-)   --> "...", !.
p6_range_bounds_RHS(Min ,Min) --> {true}.



p5_elemental(group(R))            --> "(?:",  ! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22580	22673	
==>ttributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27132	27225	
==>ttributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25864	25957	
==>ttributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1271	1366	
==>kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1271	1366	
==>kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11456	11547	
==> $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11456	11547	
==> $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37625	37718	
==>ions,
such that all common attribute names and corresponding common tuple values
are aligned a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42174	42267	
==>ions,
such that all common attribute names and corresponding common tuple values
are aligned a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41824	41917	
==>ions,
such that all common attribute names and corresponding common tuple values
are aligned a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3514	3622	
==>but we need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($arg <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2557	2661	
==>but we need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($arg <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9572	9665	
==>ensitive.

Instances of this class are usually created as member variables of the
C<HTTP::Requ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9572	9665	
==>ensitive.

Instances of this class are usually created as member variables of the
C<HTTP::Requ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	219	324	
==>nt cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	219	324	
==>nt cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2049	2141	
==>Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2138	2230	
==>Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6611	6724	
==>pe eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6611	6724	
==>pe eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($na <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6611	6724	
==>pe eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33544	33653	
==>sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is used to come up out of it.  In between <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13612	13735	
==>= ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr target, pos, 2
    if $S0 != "]> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	430	534	
==>@_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	430	534	
==>@_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	430	534	
==>@_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1472	1586	
==>val( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1472	1586	
==>val( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "com <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6668	6767	
==>my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6726	6825	
==>my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4896	5011	
==>sts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4896	5011	
==>sts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4896	5011	
==>sts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	717	808	
==>ckend::Perl::Silly - a subclass of the perl backend that
conditionally excludes some builtin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	90	195	
==>'new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	90	195	
==>'new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	90	195	
==>'new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative( <==
4	/Users/nnunley/pugs/util/package-osx.pl	1739	1837	
==>js.pl
        /usr/local/lib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3283	3395	
==>lf, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1803	1897	
==>s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1803	1897	
==>s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(in <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1803	1897	
==>s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1786	1902	
==>$*ERR.say("# ok");
END { Test::test_ends() }
1;
=kwid
=cut
say;
return if 1;

PERL6

    print Dumper $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1055	1147	
==>>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1055	1147	
==>>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1055	1147	
==>>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	467	593	
==>nts earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The cu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	467	593	
==>nts earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The cu <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11291	11409	
==>esult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14768	14886	
==>esult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14076	14194	
==>esult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2615	2701	
==>();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<?p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13862	13957	
==>{$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_dep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13862	13957	
==>{$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_dep <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13862	13957	
==>{$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_dep <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4190	4297	
==>{
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4190	4297	
==>{
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4190	4297	
==>{
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs) <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3693	3798	
==>1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_gl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5714	5837	
==>{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1832	1939	
==>CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1832	1939	
==>CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1832	1939	
==>CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6714	6821	
==>y_error if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16578	16676	
==>ix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16578	16676	
==>ix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16578	16676	
==>ix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1091	1192	
==>this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* h <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1091	1192	
==>this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10491	10587	
==>use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10491	10587	
==>use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7297	7462	
==>->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7297	7462	
==>->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7297	7462	
==>->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CL <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6068	6187	
==>ed\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq 'temp') {
	m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2436	2540	
==>O - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..5 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2436	2540	
==>O - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..5 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2436	2540	
==>O - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..5 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3121	3241	
==>||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2324	2423	
==>hrow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2324	2423	
==>hrow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2324	2423	
==>hrow "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1416	1568	
==>sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1416	1568	
==>sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11916	12026	
==>ack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic fro <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11916	12026	
==>ack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic fro <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5815	5922	
==>o);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4945	5052	
==>o);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5815	5922	
==>o);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4945	5052	
==>o);
}
multi sub *infix:«⊃» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7232	7354	
==>{
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3836	3958	
==>{
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4685	4807	
==>{
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2302	2414	
==>n it. Finally, it will call mkisofs to create a ISO9660 image.

You can stop this program at any time, it'll cont <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5567	5699	
==>nt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "terminfo=s"     => \$terminfo,
  help             => \&usage,
) o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	527	636	
==>:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	787	896	
==>:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1059	1168	
==>:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9392	9500	
==>rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9392	9500	
==>rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9392	9500	
==>rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8993	9095	
==>od:

  my $root = $parser->root;

It will be an array reference of objects.

=head2 Getting the OPEN Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4986	5101	
==>))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4986	5101	
==>))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4986	5101	
==>))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	777	890	
==>(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    $args{using} <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5386	5509	
==>pan.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5386	5509	
==>pan.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $. <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1606	1699	
==>net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Nu <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1606	1699	
==>net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Nu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	166	259	
==>args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	166	259	
==>args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	166	259	
==>args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14455	14570	
==>cess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14455	14570	
==>cess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14455	14570	
==>cess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularit <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15751	15846	
==>fied_since

These header fields are used to make a request conditional.  If the requested
resour <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15751	15846	
==>fied_since

These header fields are used to make a request conditional.  If the requested
resour <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21519	21611	
==>o change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21519	21611	
==>o change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1928	2049	
==>{
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1928	2049	
==>{
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1928	2049	
==>{
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key), <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3594	3715	
==>im
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3594	3715	
==>im
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20541	20637	
==>of preference.  When you
open a program, it will search for language files specific to the progra <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20541	20637	
==>of preference.  When you
open a program, it will search for language files specific to the progra <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5058	5205	
==>p_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = sel <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5058	5205	
==>p_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14250	14350	
==>sion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'nam <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14250	14350	
==>sion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'nam <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3325	3525	
==>a Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9665	9773	
==>ire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9665	9773	
==>ire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9665	9773	
==>ire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	443	542	
==>failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	443	542	
==>failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24310	24403	
==>=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24310	24403	
==>=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2072	2184	
==>k eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2072	2184	
==>k eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2072	2184	
==>k eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3523	3617	
==>chObjPos) = Parser::Rule::Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $la <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1381	1500	
==>n is mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but once <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4859	4977	
==>n is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7803	7896	
==>turns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7803	7896	
==>turns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	325	482	
==>r is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	325	482	
==>r is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2068	2164	
==>imes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1992	2083	
==>imes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17504	17603	
==>Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17504	17603	
==>Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17504	17603	
==>Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	64	156	
==>::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package b <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2128	2234	
==>iff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4347	4453	
==>iff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2128	2234	
==>iff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4347	4453	
==>iff = $.span.difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14494	14610	
==>conds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14494	14610	
==>conds,
        # even though we've pinged the server (probably several times). So, we
        # conclude, the connect <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13535	13643	
==>conds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connect <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13535	13643	
==>conds,
    # even though we've pinged the server (probably several times). So, we
    # conclude, the connect <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2972	3082	
==>erms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0b <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3129	3239	
==>erms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0b <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2972	3082	
==>erms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0b <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3129	3239	
==>erms of either:

    a) the GNU General Public License, version 2, or
    b) the Artistic License, version 2.0b <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11555	11662	
==>elation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 { <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15032	15139	
==>elation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 { <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3649	3744	
==>acks the actual algorithm description. See links or read
the source (there are about 10 lines of <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3649	3744	
==>acks the actual algorithm description. See links or read
the source (there are about 10 lines of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21663	21803	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21942	22082	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8767	8860	
==>st>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8767	8860	
==>st>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	12944	13217	
==>max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } else {
                    print "Don't know which tests failed: got $test{ok} ok, " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10848	10950	
==>s_attribute;
    method get_attribute_list;            
}

-------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10848	10950	
==>s_attribute;
    method get_attribute_list;            
}

-------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10848	10950	
==>s_attribute;
    method get_attribute_list;            
}

-------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5449	5558	
==>urn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5449	5558	
==>urn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4075	4172	
==>the kernel has started.
  --welcome-p6=$welcome_p6
    --welcome-p6 is a Perl 6 program runnable b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	126	253	
==>::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9673	9793	
==>lice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9673	9793	
==>lice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9673	9793	
==>lice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $ <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	913	1110	
==>OGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            } <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	913	1110	
==>OGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12168	12310	
==>ta = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12168	12310	
==>ta = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1347	1444	
==>name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1347	1444	
==>name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1347	1444	
==>name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cla <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	199	308	
==>vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $Verbose $Switches $Debug
    $verbose $switches $debu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8817	8919	
==>fault = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstract <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8817	8919	
==>fault = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstract <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8817	8919	
==>fault = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstract <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	270	373	
==>// &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	270	373	
==>// &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	270	373	
==>// &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16591	16690	
==>NOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16591	16690	
==>NOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16591	16690	
==>NOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7377	7466	
==>lass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7377	7466	
==>lass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7377	7466	
==>lass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37613	37705	
==>ext_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl pac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37613	37705	
==>ext_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl pac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25223	25312	
==>oftware
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/phi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25223	25312	
==>oftware
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/phi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1741	1912	
==>( <$fh> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    clos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6254	6385	
==>";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6254	6385	
==>";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6254	6385	
==>";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7757	7854	
==>s bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18955	19052	
==>$eval_log_file,">>deleteme_code.pl") or die $!;
    }
    print $eval_log_file $code,"\n" if $eval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7757	7854	
==>s bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7757	7854	
==>s bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9038	9147	
==>res. This is necessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	311	433	
==>f->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	311	433	
==>f->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	311	433	
==>f->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6319	6442	
==>y =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7593	7684	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7593	7684	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    ) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7593	7684	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	48	155	
==>d, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	48	155	
==>d, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	48	155	
==>d, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try { <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	47	148	
==>----------------------
# This script converts p5 source to p6. Currently,
# only regexp matching and s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13127	13222	
==>eturned.

If called in void context the arguments are decoded in-place.

This routine is exporte <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13127	13222	
==>eturned.

If called in void context the arguments are decoded in-place.

This routine is exporte <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4826	4920	
==>ed function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. Thes <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4826	4920	
==>ed function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. Thes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11451	11560	
==>atfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3945	4054	
==>Reference {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    met <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11451	11560	
==>atfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11451	11560	
==>atfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7076	7229	
==>ar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7076	7229	
==>ar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call m <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1269	1363	
==>stant size because the
algorithm is based on statistics. This was my main motivation to
impleme <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1269	1363	
==>stant size because the
algorithm is based on statistics. This was my main motivation to
impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	218	324	
==>rue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	218	324	
==>rue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	218	324	
==>rue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	633	727	
==>]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13871	13986	
==>>[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13871	13986	
==>>[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13871	13986	
==>>[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7006	7102	
==>turn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7006	7102	
==>turn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7006	7102	
==>turn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2000	2153	
==>( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3530	3678	
==>( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to t <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	863	960	
==>arameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - che <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	863	960	
==>arameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - che <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14226	14335	
==>ew(\$class, %attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaqu <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5030	5128	
==>Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5030	5128	
==>Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6554	6652	
==>Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1029	1145	
==>'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2270	2359	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2270	2359	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2270	2359	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10066	10198	
==>et == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10066	10198	
==>et == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificati <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10066	10198	
==>et == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38726	38821	
==>vocant Relation::Example, and returns a new Relation::Example that has the
same heading as the i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3471	3566	
==>x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3471	3566	
==>x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_re <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1339	1448	
==>" for ($0, @ARGV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
chdir($testd <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28374	28462	
==>ombined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32926	33014	
==>ombined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32054	32142	
==>ombined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whic <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5276	5394	
==>e must be numeric, >= 0
# Non numeric ranges might be a useful future extension. (eg %)
sub within ($$$@) {
    my ($go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3550	3666	
==>ful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3550	3666	
==>ful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3550	3666	
==>ful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9624	9750	
==>er(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9624	9750	
==>er(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9624	9750	
==>er(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2323	2444	
==>alue; 
        my $param      = $params->fetch(num->new($i));
        my $param_type = $param->type->to_native;
        my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13350	13481	
==>son.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => as <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13350	13481	
==>son.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => as <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18910	19007	
==>nd still send the right
thing on the wire.

When setting the referrer, this method removes the fra <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18910	19007	
==>nd still send the right
thing on the wire.

When setting the referrer, this method removes the fra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1087	1260	
==>ntify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::ide <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1087	1260	
==>ntify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::ide <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1087	1260	
==>ntify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::ide <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34005	34128	
==>'s
standard C<map> operator. It returns a new Relation::Example whose attributes
(provided in C<$heading>) may or may not re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1918	2038	
==>return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1918	2038	
==>return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1918	2038	
==>return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3939	4052	
==>f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3939	4052	
==>f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3939	4052	
==>f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	448	557	
==>tr symbol nil type  
        list hash reference block 
        closure closure::env closure::signature closur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3611	3730	
==>y $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    *$equal = Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24415	24522	
==>ch_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24415	24522	
==>ch_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24415	24522	
==>ch_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_n <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1282	1379	
==>) {
    print template( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_html ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9354	9452	
==>) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9354	9452	
==>) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$modu <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9202	9294	
==>n is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9202	9294	
==>n is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1037	1133	
==>diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1037	1133	
==>diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1593	1689	
==>diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	188	280	
==>r";
say "$wer mag @obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'} <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6099	6224	
==>ho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6099	6224	
==>ho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13447	13550	
==>$source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13447	13550	
==>$source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11465	11568	
==>) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good am <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11465	11568	
==>) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good am <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7255	7363	
==>autoflush(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Test-wide totals.
    my(%tot) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	703	792	
==>->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	703	792	
==>->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ joi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	703	792	
==>->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ joi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9420	9553	
==>ool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9408	9541	
==>ool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6851	6943	
==>y a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6851	6943	
==>y a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP re <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1095	1235	
==>abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 down ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	720	814	
==>, @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	720	814	
==>, @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	720	814	
==>, @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	943	1041	
==>fying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	943	1041	
==>fying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12731	12828	
==>s without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or ` <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12731	12828	
==>s without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or ` <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4104	4342	
==>!$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	796	893	
==>re not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorith <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	796	893	
==>re not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorith <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	796	893	
==>re not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorith <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	150	281	
==>nction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9419	9616	
==>2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2892	3008	
==>angle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2892	3008	
==>angle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2892	3008	
==>angle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->ty <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32204	32301	
==>uplicated tuples appear only once in
the result.  With any 2 relations, the result is the same reg <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36754	36851	
==>uplicated tuples appear only once in
the result.  With any 2 relations, the result is the same reg <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36044	36141	
==>uplicated tuples appear only once in
the result.  With any 2 relations, the result is the same reg <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14965	15060	
==>edtests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Generate <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11512	11614	
==>y($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! def <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22489	22591	
==>y($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11512	11614	
==>y($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11512	11614	
==>y($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! def <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5258	5358	
==>%channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # En <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5258	5358	
==>%channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # En <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1944	2034	
==>pses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/ <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1944	2034	
==>pses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2210	2331	
==>ntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2210	2331	
==>ntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1438	1556	
==>ntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3299	3417	
==>ntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

  perl compile_p6grammar.pl GrammarFile.pm > GrammarFi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9808	9915	
==>nnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9808	9915	
==>nnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connec <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1607	1701	
==>::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1607	1701	
==>::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4968	5089	
==>IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4968	5089	
==>IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? ble <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4968	5089	
==>IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? ble <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	201	301	
==>mplate.new(filename => "wiki.html");

my $action    = param('action');
my %wiki      = evalfile("wiki <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1932	2083	
==>utation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1932	2083	
==>utation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24288	24394	
==>gram controlling their
  actions) which are always seen to be replying lest they end up in a loop with
  an <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23061	23167	
==>gram controlling their
  actions) which are always seen to be replying lest they end up in a loop with
  an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24288	24394	
==>gram controlling their
  actions) which are always seen to be replying lest they end up in a loop with
  an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23061	23167	
==>gram controlling their
  actions) which are always seen to be replying lest they end up in a loop with
  an <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3010	3119	
==>ayout,
	   );
	} || die "$@\n" . Data::Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1101	1205	
==>er $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1101	1205	
==>er $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Te <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1101	1205	
==>er $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Te <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	343	593	
==>donly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::La <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1807	1924	
==>'s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Da <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1807	1924	
==>'s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Da <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2043	2160	
==>'s gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Da <==
4	/Users/nnunley/pugs/util/config_h.pl	321	432	
==>y of the Pugs installation 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ARGV o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4617	4709	
==>2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4617	4709	
==>2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4617	4709	
==>2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6941	7069	
==>$_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11945	12073	
==>$_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6941	7069	
==>$_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11939	12067	
==>$_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1800	1995	
==>egin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    wh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1800	1995	
==>egin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    wh <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15175	15272	
==>using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHO <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15175	15272	
==>using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	208	326	
==>rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	202	320	
==>rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	208	326	
==>rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	202	320	
==>rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7602	7708	
==>@js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7602	7708	
==>@js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7602	7708	
==>@js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    pu <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11243	11339	
==>e prelude weren't compiled into the code #print "Compiled AST: " . Dumper->reduce($c);

package R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16353	16481	
==>is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16353	16481	
==>is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16353	16481	
==>is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current c <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24316	24417	
==>a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	811	942	
==>)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varglo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14841	14942	
==>o_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14841	14942	
==>o_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14841	14942	
==>o_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1467	1570	
==>{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'} <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1467	1570	
==>{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4160	4256	
==>io S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=cu <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4160	4256	
==>io S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=cu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1215	1330	
==>:cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1215	1330	
==>:cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1215	1330	
==>:cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	562	668	
==>lf{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	562	668	
==>lf{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	562	668	
==>lf{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIK <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1193	1286	
==>b, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_bu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12719	12859	
==>nt \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8993	9133	
==>nt \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9828	9968	
==>nt \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expa <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3906	4003	
==>tual bug is in Handlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7397	7498	
==>- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain " <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7397	7498	
==>- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain " <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2010	2122	
==>:Perl {
        multi method as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12408	12501	
==>r $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12466	12559	
==>r $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5511	5631	
==>(.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6779	6899	
==>(.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5511	5631	
==>(.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6767	6887	
==>(.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2669	2830	
==>|
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2916	3077	
==>|
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifi <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	92	196	
==>al "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_fu <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	92	196	
==>al "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_fu <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8898	8994	
==>esses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializa <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8898	8994	
==>esses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3256	3347	
==>pile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3473	3564	
==>pile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_p <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3457	3590	
==>floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(a <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1769	1900	
==>floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(a <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2306	2437	
==>floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(a <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2868	2999	
==>floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(a <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3206	3389	
==>$Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bind <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13176	13274	
==>hing is not implemented yet. So
in order to still allow that to be tested, and those tests to knowi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13234	13332	
==>hing is not implemented yet. So
in order to still allow that to be tested, and those tests to knowi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10320	10415	
==>=> do {
		my $a = type::variable::free->new;
		type::operator::arrow->new(
			type::operator::na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	909	1021	
==>ostcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	438	537	
==>= $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	438	537	
==>= $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	438	537	
==>= $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient. <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12067	12163	
==>contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9188	9284	
==>contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12067	12163	
==>contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9188	9284	
==>contains all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10818	10961	
==>atch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ab <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7895	8030	
==>atch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7895	8030	
==>atch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ab <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	176	277	
==>ix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kein Standard-Operator!
3!  		# 3.pos <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18015	18114	
==>ction is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2374	2473	
==>ction is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1577	1669	
==>%PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that di <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1417	1509	
==>%PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that di <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11277	11390	
==>self, $position, $whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe. Uses the shell.

    mul <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	396	504	
==>h_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	396	504	
==>h_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	396	504	
==>h_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3572	3691	
==>RULE')->code();
 
    \=[pod|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8390	8495	
==>CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinte <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8390	8495	
==>CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinte <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8390	8495	
==>CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1064	1176	
==>f ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1064	1176	
==>f ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1273	1385	
==>f ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_op <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2686	2786	
==>happen.

Inherits Unit.

=item App

An App makes a Thunk reduce to it's value (and also prepares a dy <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2479	2630	
==>e}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $target->{mor <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4350	4463	
==>key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4350	4463	
==>key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	877	992	
==>ullPlan' => class 'TestBuilder::NullPlan' => {
    is => [ $::Object ],    
    methods => {
        'header' => sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12479	12583	
==>ists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12479	12583	
==>ists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12479	12583	
==>ists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4513	4609	
==>e.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4513	4609	
==>e.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6037	6133	
==>e.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	851	963	
==>= $value;
    return nil->new();
}

1;

__END__

=pod

=head1 NAME

reference - the core reference type

=head1 M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6078	6169	
==>) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6078	6169	
==>) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6078	6169	
==>) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\" <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2215	2333	
==>if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@oc <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2215	2333	
==>if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@oc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4409	4524	
==>f.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.g <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4409	4524	
==>f.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.g <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4647	4765	
==>mestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} <=> $a->{pugs_revision} ||
          lc $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14401	14493	
==>tes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14401	14493	
==>tes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14401	14493	
==>tes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12725	12858	
==>te a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12725	12858	
==>te a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12725	12858	
==>te a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unl <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1102	1216	
==>t
      or die "Must pass Perl version (5 or 6)";
    my $base = $self->{_top}{base};
    my $blib = ($perl_version <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19239	19333	
==>otE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the serv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19239	19333	
==>otE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the serv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1252	1341	
==>Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meaning <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1252	1341	
==>Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meaning <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13093	13214	
==>9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x% <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6568	6689	
==>9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x% <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1918	2021	
==>my ($self, $name, $value) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35642	35740	
==>nN (C<(>)

Data: array reference of any number of objects

Ender: I<close>

=head2 close

Family: c <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4016	4116	
==>=> $year, month => $month, day => $day )`

Returns a date object for the given values.  The month and <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4016	4116	
==>=> $year, month => $month, day => $day )`

Returns a date object for the given values.  The month and <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3847	3941	
==>.. $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5749	5843	
==>.. $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2502	2630	
==>ject::Accessor::new;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $acc->{$_}->{al <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10709	10814	
==>array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10709	10814	
==>array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10709	10814	
==>array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fun <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21098	21215	
==>qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17519	17636	
==>qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2899	3016	
==>$_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3748	3865	
==>$_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	669	920	
==>ss ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

modu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	669	920	
==>ss ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

modu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10986	11082	
==>returned.

A multi-valued field will be returned as separate values in list
context and will be c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10986	11082	
==>returned.

A multi-valued field will be returned as separate values in list
context and will be c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2487	2628	
==>ss);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2487	2628	
==>ss);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2487	2628	
==>ss);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4025	4205	
==>.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4025	4205	
==>.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1901	2007	
==>e "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1901	2007	
==>e "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3200	3358	
==>a<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a co <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3200	3358	
==>a<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a co <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7718	7858	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7911	8051	
==>'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4782	4892	
==>->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::num <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4782	4892	
==>->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::num <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4782	4892	
==>->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2269	2421	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2269	2421	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2269	2421	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8087	8188	
==>--------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth availab <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8087	8188	
==>--------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth availab <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4404	4502	
==>ch objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4404	4502	
==>ch objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9964	10084	
==>1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2560	2657	
==>s of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2560	2657	
==>s of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2560	2657	
==>s of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa(" <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2932	3032	
==>stribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versi <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3089	3189	
==>stribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versi <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2932	3032	
==>stribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versi <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3089	3189	
==>stribute it and/or modify it under
the terms of either:

    a) the GNU General Public License, versi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2059	2200	
==>tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2059	2200	
==>tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2059	2200	
==>tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12132	12240	
==>in; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7229	7349	
==>ment
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7229	7349	
==>ment
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7229	7349	
==>ment
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	593	702	
==>r);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pk <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9205	9380	
==>ms()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9205	9380	
==>ms()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7111	7307	
==>t_attr(symbol->new('%:methods'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$method')
                  );
            }
        );

    # a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	27	132	
==>{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	27	132	
==>{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	27	132	
==>{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2482	2597	
==>t(bound => nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2181	2281	
==>ode as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2181	2281	
==>ode as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2181	2281	
==>ode as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37176	37299	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37176	37299	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37176	37299	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36520	36614	
==>assertion

Types: ifthen (C<(?(>)

Data: array reference of two objects; first: I<ifmatch>, I<u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	391	526	
==>return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	391	526	
==>return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6784	6889	
==>d ` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
ig <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6784	6889	
==>d ` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
ig <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4102	4241	
==>y:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $value <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1098	1218	
==>.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1098	1218	
==>.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1098	1218	
==>.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21696	21895	
==>l6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21696	21895	
==>l6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21696	21895	
==>l6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3688	3802	
==>stamble";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	977	1109	
==>($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebyte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	977	1109	
==>($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebyte <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9821	9924	
==>.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is e <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9821	9924	
==>.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39904	39997	
==>dation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any la <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39904	39997	
==>dation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any la <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	592	689	
==>RLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (S <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	592	689	
==>RLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (S <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4444	4552	
==>$base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	391	481	
==>on);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	391	481	
==>on);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	391	481	
==>on);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3071	3242	
==>$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3071	3242	
==>$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.fr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3071	3242	
==>$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.fr <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6006	6110	
==>$v }
multi sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1955	2138	
==>des.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5742	5925	
==>des.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1955	2138	
==>des.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5742	5925	
==>des.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	218	319	
==>sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	218	319	
==>sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	218	319	
==>sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9102	9197	
==>regcompp;
}
void regexp_hook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12944	13047	
==>gs)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12944	13047	
==>gs)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12944	13047	
==>gs)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10395	10567	
==>urn $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13872	14044	
==>urn $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $oth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4315	4425	
==>'\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1441	1551	
==>'\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	526	697	
==>] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3348	3466	
==>nt_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3348	3466	
==>nt_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!con <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	802	916	
==>rn $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4940	5104	
==>$_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4952	5116	
==>$_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26094	26188	
==>roject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30646	30740	
==>roject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4075	4202	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4075	4202	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4075	4202	
==>i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  } <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15736	15863	
==>name tz is_dst>; # XXX: this should be a class variable!
        #Time::Local.new( pairs zip @ids, @tm );

        $res = Time:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	64	183	
==>od (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buff <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	64	183	
==>od (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buff <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37129	37220	
==>family

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jef <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2332	2434	
==>lume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2332	2434	
==>lume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11313	11409	
==>)`

Returns all elements both from this recurrence and from the given recurrence.

- `intersectio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11313	11409	
==>)`

Returns all elements both from this recurrence and from the given recurrence.

- `intersectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2501	2599	
==>{
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2501	2599	
==>{
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2501	2599	
==>{
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17782	17879	
==>values (eg. 65 for 'A') and
the number of times that character appeared in the character class.  T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6348	6525	
==>qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6348	6525	
==>qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16635	16736	
==>a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16635	16736	
==>a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10128	10240	
==>function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10128	10240	
==>function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10128	10240	
==>function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	2	102	
==>euler.pl - Berechnung der Euler'schen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3671	3771	
==>ing
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3671	3771	
==>ing
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4261	4361	
==>ing
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32730	32825	
==>all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37280	37375	
==>all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36597	36692	
==>all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1750	1858	
==>sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1750	1858	
==>sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1750	1858	
==>sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2208	2299	
==>") or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_harness.pl),@yaml_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	117	223	
==>me = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	117	223	
==>me = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	117	223	
==>me = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return <==
4	/Users/nnunley/pugs/util/package-osx.pl	4500	4597	
==>/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/man3/Perl6::Bible::S03.3pm
        /u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9719	9910	
==>elf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9719	9910	
==>elf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9719	9910	
==>elf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1230	1352	
==>aner and simpler.  Even though it will
# likely lack R:P's nice error messages.


# Test suite:
#  re_tests - tests from p5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2750	2835	
==>",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.": <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6202	6287	
==>",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2750	2835	
==>",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2750	2835	
==>",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__.": <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	98	211	
==>$pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq ' <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	98	211	
==>$pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq ' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7090	7184	
==>s a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7090	7184	
==>s a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This ev <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24811	24912	
==>OL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23575	23676	
==>OL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24811	24912	
==>OL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23575	23676	
==>OL

Most IRC servers disconnect you if you post too many commands in too short time.

If you supply C< <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	455	580	
==>(Str $str is rw) returns Str is builtin is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $remov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16523	16637	
==>'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16523	16637	
==>'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return st <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16523	16637	
==>'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return st <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13925	14105	
==>2);
            }

            push @rv, $string.split('');
            push @rv, '-' if $add_dash;

            @rv;
        }

        my %transtable;
        for @intable -> Pair <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4034	4186	
==>2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4034	4186	
==>2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4034	4186	
==>2);
        }

        push @rv, $string.split('');
        push @rv, '-' if $add_dash;

        @rv;
    }

    my %transtable;
    for @intable -> Pair <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19516	19616	
==>ures_get(I,E0,M), nonvar(M), %# XXX - excess caution
  M = [Str|_], %# XXX - need api
  re_parse(Str, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7689	7781	
==>printf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7689	7781	
==>printf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7689	7781	
==>printf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self- <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1134	1228	
==>nswer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1134	1228	
==>nswer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1574	1663	
==>n@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1574	1663	
==>n@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1818	1950	
==>nt $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Config{cc} eq 'gcc')
     {
      $minus_o = "-o $exenam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2516	2613	
==>ded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2516	2613	
==>ded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2516	2613	
==>ded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5676	5811	
==>s :(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $dir ( File::Fin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8638	8735	
==>h)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8638	8735	
==>h)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8638	8735	
==>h)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1060	1169	
==>"&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1060	1169	
==>"&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1060	1169	
==>"&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7940	8094	
==>hift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7940	8094	
==>hift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7940	8094	
==>hift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11977	12087	
==>lternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_availa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2091	2208	
==>ile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2872	2989	
==>ile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1863	1969	
==>al) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1863	1969	
==>al) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $sel <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23578	23673	
==>f a Relation-doing object
can mutate.  Depending on the implementing class, it can default to Tr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28130	28225	
==>f a Relation-doing object
can mutate.  Depending on the implementing class, it can default to Tr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	482	575	
==>n interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangab <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	482	575	
==>n interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangab <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2078	2232	
==>push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 { <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2078	2232	
==>push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 { <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	142	243	
==>b($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
m <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	142	243	
==>b($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
m <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	419	521	
==>6';

    $self->set_blib($install_version);

    $self->set_makefile_macros
      if $install_version e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1058	1151	
==>coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1058	1151	
==>coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1058	1151	
==>coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3861	3991	
==>t should not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5218	5337	
==>rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, f <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	113	207	
==>entation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 200 <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	113	207	
==>entation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 200 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3096	3212	
==>onfess "you can only add types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4183	4268	
==>e('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4183	4268	
==>e('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4183	4268	
==>e('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1146	1257	
==>0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3709	3805	
==>ode) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3709	3805	
==>ode) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3709	3805	
==>ode) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&re <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1466	1570	
==>8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODIN <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1466	1570	
==>8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODIN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2873	2977	
==>t "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2861	2965	
==>t "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17355	17548	
==>opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17355	17548	
==>opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($lab <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17355	17548	
==>opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($lab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3124	3244	
==>ms} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3124	3244	
==>ms} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3124	3244	
==>ms} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 } <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4249	4358	
==>str $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    goto err_noterm;
  }
  $po <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	489	702	
==>ft @CALLER::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$length,
                                       *@values <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9374	9496	
==>en any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9374	9496	
==>en any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13065	13161	
==>e each decoded
separately and the same number of strings are returned.

If called in void context <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13065	13161	
==>e each decoded
separately and the same number of strings are returned.

If called in void context <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8479	8641	
==>be it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not cor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8479	8641	
==>be it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not cor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8479	8641	
==>be it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not cor <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	474	579	
==>w {
    my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($kla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1155	1261	
==>xity}\n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a sub call without parame <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5835	5930	
==>, 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
no <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5835	5930	
==>, 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
no <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2734	2829	
==>, 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
no <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25726	25826	
==>he key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-em <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25726	25826	
==>he key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-em <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	925	1021	
==>fied in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or An <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	878	971	
==>fied in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or An <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6209	6328	
==>= $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6209	6328	
==>= $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($pr <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1375	1464	
==>ttp://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1215	1304	
==>ttp://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2130	2247	
==>d_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matche <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2130	2247	
==>d_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matche <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2130	2247	
==>d_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matche <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1725	1814	
==>\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol})->(\[.+?])/\$$1$2 <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3659	3899	
==>$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph' <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3659	3899	
==>$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15743	15839	
==>ted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights re <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15743	15839	
==>ted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15942	16034	
==>return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15942	16034	
==>return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2790	2912	
==>}

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fo <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2790	2912	
==>}

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11840	11938	
==>ented, so you will have to wait
a little while. Until then, you can just write your own functions l <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11898	11996	
==>ented, so you will have to wait
a little while. Until then, you can just write your own functions l <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52045	52274	
==>ttr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## ------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37169	37293	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37169	37293	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37169	37293	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pus <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9453	9577	
==>\$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9441	9565	
==>\$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	472	577	
==>_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	472	577	
==>_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	24155	24282	
==>non;
    } else {
        push @result, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $faile <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7067	7175	
==>e @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7067	7175	
==>e @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7067	7175	
==>e @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	898	1014	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	898	1014	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	898	1014	
==>{$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25715	25809	
==>d subroutine returning a
normal scalar doesn't work quite right with a regex that's supposed to <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2066	2179	
==>:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HE <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2066	2179	
==>:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19972	20066	
==>his is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>las <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19972	20066	
==>his is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>las <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26445	26630	
==>' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26445	26630	
==>' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26445	26630	
==>' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	597	695	
==>s essentially a reference implementation of all the things the
language must provide, including stu <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1864	1978	
==>y $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	745	856	
==>ike a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	745	856	
==>ike a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	745	856	
==>ike a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38093	38211	
==>? 'not' : 'and';
  }

And finally, the small change to the qr() method:

  sub qr {
    my ($self) = @_;
    my @kids = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21852	21942	
==>{...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21852	21942	
==>{...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21852	21942	
==>{...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23843	23983	
==>{"-text"} };
       if($__flag) {
          last if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13347	13479	
==>{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "red <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13347	13479	
==>{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "red <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13347	13479	
==>{"-text"} };
     if($__flag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "red <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23142	23351	
==>fix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23421	23630	
==>fix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ru <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12996	13092	
==>e infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation of <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12996	13092	
==>e infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation of <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16671	16766	
==>s" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each ele <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16671	16766	
==>s" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each ele <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17344	17437	
==>.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17344	17437	
==>.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Conne <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4258	4394	
==>am"' {
        my %pad = $tree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isW <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2799	2921	
==>::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "War <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2799	2921	
==>::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "War <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2799	2921	
==>::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "War <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11238	11340	
==>Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11238	11340	
==>Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2191	2290	
==>those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2110	2207	
==>those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	827	956	
==>L::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	827	956	
==>L::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	827	956	
==>L::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4231	4436	
==>\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4231	4436	
==>\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10345	10459	
==>::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10345	10459	
==>::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10345	10459	
==>::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('su <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16058	16159	
==>ift(@{$m0->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tree.
  re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10255	10403	
==>o' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10255	10403	
==>o' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24501	24593	
==>dified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EV <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24501	24593	
==>dified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EV <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37196	37293	
==>( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$modu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37435	37532	
==>( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37196	37293	
==>( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$modu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37435	37532	
==>( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$modu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2848	2977	
==>self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infin <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2848	2977	
==>self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	993	1079	
==>tent-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modif <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	993	1079	
==>tent-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modif <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4200	4302	
==>Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwar <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5097	5199	
==>Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwar <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4200	4302	
==>Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwar <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5097	5199	
==>Refacted this into a Junction instead of the
# regexp since all it does it remove . and ..
sub no_upwar <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5945	6076	
==>ite .'/'. $path;
        print -d  $final_dir
            ? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2722	2808	
==>fix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2722	2808	
==>fix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2722	2808	
==>fix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14365	14484	
==>ro: expanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16009	16111	
==>I SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16009	16111	
==>I SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16009	16111	
==>I SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1295	1431	
==>T )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11773	11898	
==>JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11773	11898	
==>JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11773	11898	
==>JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6420	6554	
==>urn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6420	6554	
==>urn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32114	32215	
==>h to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32114	32215	
==>h to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's m <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17929	18030	
==>ExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <BitwiseORExpressionNoIn>
}
rule LogicalORExpr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	425	525	
==>it();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	425	525	
==>it();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", "" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	425	525	
==>it();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", "" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16333	16458	
==>e Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs a <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16333	16458	
==>e Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1257	1378	
==>t is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4735	4856	
==>t is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1023	1123	
==>_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1023	1123	
==>_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1023	1123	
==>_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	621	716	
==>ot/dists

=item index_file

Path to the main index file. default: $root/dists/index

=back

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2205	2294	
==>) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2205	2294	
==>) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2205	2294	
==>) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(functi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3636	3752	
==>de);
	
	$self->add_definition($node, "const $type $symbol = $body;");

	return $symbol;
}

sub define_thunk {
	my $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3469	3578	
==>method(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3469	3578	
==>method(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3469	3578	
==>method(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15264	15388	
==>postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        return _emit( $n- <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9038	9131	
==>my $switches = $self->_switches($file);

Formats and returns the switches necessary to run the <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18474	18562	
==>name>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, o <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18474	18562	
==>name>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, o <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1174	1287	
==>d duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chan <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	916	1029	
==>d duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chan <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1174	1287	
==>d duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chan <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	916	1029	
==>d duration returns Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - chan <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	922	1036	
==>rgs->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@"] ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1683	1792	
==>$tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1683	1792	
==>$tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1683	1792	
==>$tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8484	8610	
==>ORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8484	8610	
==>ORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8484	8610	
==>ORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3911	3999	
==>ntified_op(W, W) --> {true}.

p6_quantified(Z) --> p6_elemental(W), p6_quantified_op(W, Z <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	205	310	
==>version license
    distribution_type perl_version tests
};

my @tuple_keys = qw{
    build_requires requi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2495	2615	
==>cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cook <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2495	2615	
==>cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cook <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3587	3683	
==>orted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3587	3683	
==>orted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	106	207	
==>is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	106	207	
==>is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overw <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	106	207	
==>is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overw <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11205	11304	
==>oved");

    return 1;
}

=head2 $alt = $inst->remove_registered_alternative( package => $inst_pkg ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2036	2173	
==>ar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matchi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2096	2233	
==>ar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matchi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	138	242	
==>ebug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	138	242	
==>ebug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=hea <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	702	804	
==>ol $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	702	804	
==>ol $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofil <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	153	252	
==>h;
has $.height;
has $.width;

has $!parent;
has @!children;

## ----------------------------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	153	252	
==>h;
has $.height;
has $.width;

has $!parent;
has @!children;

## ----------------------------------- <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	746	846	
==>g>.
.
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1934	2023	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1934	2023	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1934	2023	
==>warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::J <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1207	1318	
==>,
    next => ['atom'],
  );

  # do the initial scan (populates maxpar)
  # because tree is undef, nothing gets <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2385	2492	
==>s primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2385	2492	
==>s primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2385	2492	
==>s primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'o <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5349	5458	
==>archive path to the package's meta info
        $meta->{archive} =
            $self->pool_rel->file( file($pk <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	855	999	
==>{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p}    unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14052	14151	
==>ass attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14052	14151	
==>ass attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14052	14151	
==>ass attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3984	4159	
==>values);
            },

            'array_unshift' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                unshift @{$s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	103	208	
==>e File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	103	208	
==>e File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	103	208	
==>e File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3133	3287	
==>$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3133	3287	
==>$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1306	1418	
==>e( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Inte <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1306	1418	
==>e( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Inte <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7965	8065	
==>=>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7095	7195	
==>=>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7965	8065	
==>=>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7095	7195	
==>=>  [1,2,3,5]
# (Similar to Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8049	8282	
==>(($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALK <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2587	2698	
==>nted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2587	2698	
==>nted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.v <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2587	2698	
==>nted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41053	41152	
==>rl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7617	7716	
==>regcomp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stderr,"exp =%lu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41053	41152	
==>rl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41053	41152	
==>rl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6394	6500	
==>self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6394	6500	
==>self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6394	6500	
==>self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUB <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13918	14019	
==>class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8560	8730	
==>("?%opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38393	38505	
==>, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38393	38505	
==>, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38393	38505	
==>, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1957	2061	
==>h($FindBin::Bin);

    return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35914	36006	
==>member_combinations()>

This method returns an array ref having all combinations of this obje <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35914	36006	
==>member_combinations()>

This method returns an array ref having all combinations of this obje <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7015	7121	
==>ug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7015	7121	
==>ug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channel <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1803	1899	
==>at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test s <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1803	1899	
==>at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2869	3015	
==>$_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2758	2899	
==>$_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4943	5038	
==>you need more control or access to the header fields in the requests
sent and responses received <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4943	5038	
==>you need more control or access to the header fields in the requests
sent and responses received <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2143	2251	
==>tcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2143	2251	
==>tcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2143	2251	
==>tcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_me <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	463	568	
==>ol = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12093	12207	
==>eded.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12093	12207	
==>eded.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11822	11919	
==>5:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=h <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11822	11919	
==>5:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=h <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1034	1235	
==>e( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~@ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9702	9822	
==>eleteme_pil1");
}
sub p2p {
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PIL:: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	503	600	
==>ING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	503	600	
==>ING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns St <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2333	2459	
==>rt;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2333	2459	
==>rt;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2333	2459	
==>rt;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        retu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10001	10087	
==>d permit \misc, no?
set_metachar("\\").
set_metachar("]").
set_metachar("-").
p5_charse <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1217	1317	
==>xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1217	1317	
==>xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1217	1317	
==>xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1305	1388	
==>::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	842	937	
==>{$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	842	937	
==>{$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	842	937	
==>{$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i <==
4	/Users/nnunley/pugs/util/package-osx.pl	8780	8890	
==>$dest$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2146	2247	
==>te_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2146	2247	
==>te_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2146	2247	
==>te_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	100	205	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36012	36117	
==>on::Example and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	100	205	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	100	205	
==>= '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13940	14057	
==>be no place to put the flag value?  And then prove
  implausible to realloc the regexp struct to create one?

Possible <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1674	1787	
==>y) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1674	1787	
==>y) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1674	1787	
==>y) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5297	5428	
==>verse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5297	5428	
==>verse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1566	1683	
==>_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1566	1683	
==>_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3924	4025	
==>efined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3924	4025	
==>efined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3924	4025	
==>efined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2541	2677	
==>a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2541	2677	
==>a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	10	133	
==>mplate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	10	133	
==>mplate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16936	17050	
==>is primitive is safe {
        Num::round_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	385	483	
==>$tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::N <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	385	483	
==>$tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::N <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1637	1760	
==>after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "unio <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1637	1760	
==>after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "unio <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2233	2329	
==>ses within the strategy.  They're
done like this until pugs gets support for virtual classes.

=c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2233	2329	
==>ses within the strategy.  They're
done like this until pugs gets support for virtual classes.

=c <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8508	8613	
==>e


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Rec <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8508	8613	
==>e


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Rec <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6183	6279	
==>m> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryptog <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6183	6279	
==>m> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryptog <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1060	1186	
==>v = closure::env->new();
    $local_env->next($env);
    bless {
        sig  => $signature,
        body => $body,
        env <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1482	1584	
==>t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1482	1584	
==>t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1482	1584	
==>t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14678	14771	
==>we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14678	14771	
==>we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14678	14771	
==>we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	9	101	
==>Perl6::Core::Bit;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;

packag <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	763	891	
==>new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	745	868	
==>new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	745	868	
==>new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2462	2553	
==>t ISA_JIB_CONFIG => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_RE <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	320	433	
==>nup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * it <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	320	433	
==>nup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3143	3259	
==>st->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3143	3259	
==>st->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3143	3259	
==>st->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24255	24353	
==>er an AI or other interactive program controlling their
  actions) which are always seen to be repl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23028	23126	
==>er an AI or other interactive program controlling their
  actions) which are always seen to be repl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24255	24353	
==>er an AI or other interactive program controlling their
  actions) which are always seen to be repl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23028	23126	
==>er an AI or other interactive program controlling their
  actions) which are always seen to be repl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4299	4408	
==>nt<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4299	4408	
==>nt<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17153	17250	
==>s 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can d <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22253	22350	
==>s 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can d <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2524	2648	
==>e";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2524	2648	
==>e";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTT <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16204	16304	
==>r. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2613	2713	
==>r. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5060	5161	
==>>{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shift;

	my $t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9121	9210	
==>is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()` <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4264	4353	
==>is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9121	9210	
==>is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4264	4353	
==>is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2171	2279	
==>$x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2171	2279	
==>$x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2171	2279	
==>$x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cel <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13120	13222	
==>ep
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$init <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10584	10683	
==>it has reached the end of the tree;
it will then reset itself, and will start from the beginning the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5518	5641	
==>stract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot op <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6015	6133	
==>stract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot op <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16791	16906	
==>$self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13212	13327	
==>$self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S-> <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3073	3199	
==>{
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl_version) = (`$cmd` <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	186	290	
==>{ $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	186	290	
==>{ $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	186	290	
==>{ $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Per <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10209	10306	
==>n (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of test <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10267	10364	
==>n (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of test <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3377	3470	
==>ame)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3377	3470	
==>ame)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9214	9369	
==>- $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9214	9369	
==>- $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9214	9369	
==>- $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21552	21650	
==><Expression> <')'> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2343	2461	
==>"atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2343	2461	
==>"atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	294	406	
==>t} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	294	406	
==>t} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

_ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	0	100	
==>package Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	0	100	
==>package Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23175	23270	
==>t be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27727	27822	
==>t be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	624	730	
==>ategory =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rul <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3561	3881	
==>.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Tran <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3561	3881	
==>.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Tran <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6406	6515	
==>tr $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Deter <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6406	6515	
==>tr $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Deter <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12674	12791	
==>lf = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $h <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13073	13169	
==>ng representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND L <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13073	13169	
==>ng representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND L <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29623	29716	
==>ject (Set of Str $attrs!) returns Relation::Example>

This method is a generic relational oper <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1587	1698	
==>s) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1577	1688	
==>s) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1587	1698	
==>s) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1587	1698	
==>s) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3686	3785	
==>er
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3686	3785	
==>er
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTT <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	685	779	
==>orce_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	743	837	
==>orce_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18515	18607	
==>execp hooks (C functions
which get called on regular expression compilation and execution) to <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2805	2897	
==>execp hooks (C functions
which get called on regular expression compilation and execution) to <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11571	11661	
==>nction will compare `$got` and `$expected` using `&compare_func`. This will
eventually allo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11629	11719	
==>nction will compare `$got` and `$expected` using `&compare_func`. This will
eventually allo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14857	14982	
==>+;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14857	14982	
==>+;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14857	14982	
==>+;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3201	3326	
==>+;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3574	3682	
==>ns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1 <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3574	3682	
==>ns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1 <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1676	1772	
==>x:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1676	1772	
==>x:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5981	6082	
==>ol::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5981	6082	
==>ol::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - i <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2415	2511	
==>d Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2415	2511	
==>d Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17328	17448	
==>m_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17328	17448	
==>m_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3488	3589	
==>context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submeth <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3488	3589	
==>context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submeth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3816	3933	
==>> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3816	3933	
==>> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5861	5946	
==>plementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/l <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5861	5946	
==>plementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/l <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1425	1545	
==>"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1425	1545	
==>"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4474	4570	
==>crypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    pu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4474	4570	
==>crypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4203	4303	
==>$self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4203	4303	
==>$self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4203	4303	
==>$self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1385	1487	
==>ements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1385	1487	
==>ements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1385	1487	
==>ements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-2 <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1580	1680	
==>nd_toward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9015	9114	
==>tart()` / `end()`

Return the start or end value of the set.

These methods may return nothing if th <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9015	9114	
==>tart()` / `end()`

Return the start or end value of the set.

These methods may return nothing if th <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1237	1329	
==>-------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1077	1169	
==>-------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	836	929	
==>ode.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract al <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	836	929	
==>ode.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract al <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	836	929	
==>ode.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract al <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4119	4248	
==>my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4119	4248	
==>my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4119	4248	
==>my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
} <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4902	4990	
==>(\+|-) <subrule> }

rule escape_sequence { <simple_escape_sequence> | <octal_escape_seque <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3808	3945	
==>rl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3808	3945	
==>rl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30279	30371	
==>l's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$head <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34831	34923	
==>l's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9554	9661	
==>my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9554	9661	
==>my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9554	9661	
==>my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1362	1465	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1362	1465	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1362	1465	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11974	12083	
==>tart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11974	12083	
==>tart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14996	15091	
==>$password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14996	15091	
==>$password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18794	18904	
==>),
		),
	),
);

# this function cannot be typed, since it wants a function in x, (a -> b), and a is both an int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19572	19661	
==>m_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19572	19661	
==>m_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19572	19661	
==>m_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	114	214	
==>vent<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./jo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	114	214	
==>vent<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./jo <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5203	5300	
==>_file, $_); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generating i <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	355	448	
==>njunctions, so
# sub-type JuncType
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2446	2549	
==>uch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2446	2549	
==>uch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2446	2549	
==>uch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7785	7883	
==>, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns in <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7785	7883	
==>, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns in <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6711	6808	
==>URL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $fi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6711	6808	
==>URL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $fi <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2275	2375	
==>nt( ($.second - int($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14585	14675	
==>ass.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14585	14675	
==>ass.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## No <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14585	14675	
==>ass.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## No <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4633	4755	
==>]->emit if @a == 1;
    my @fs = map { $_->emit } @a;
    my $code1 = ""; my $code2 = "";
    my $code0 = "my \$f0 = \$fs[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11170	11268	
==>n that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11170	11268	
==>n that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11170	11268	
==>n that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Clas <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1643	1738	
==>line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmak <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1483	1578	
==>line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmak <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5172	5262	
==><users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5172	5262	
==><users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9118	9252	
==>h, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $pro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9106	9240	
==>h, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $pro <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1381	1480	
==>e ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1381	1480	
==>e ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3245	3351	
==>_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3245	3351	
==>_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3060	3159	
==>e Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2951	3046	
==>e Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	339	477	
==>in    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $ <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	339	477	
==>in    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	320	426	
==>igspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	320	426	
==>igspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1450	1638	
==>new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1450	1638	
==>new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6987	7110	
==>Multi:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLValue">;
        db <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7285	7395	
==>), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7285	7395	
==>), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7285	7395	
==>), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5433	5536	
==>ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5433	5536	
==>ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5433	5536	
==>ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GL <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14192	14292	
==>= type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5834	5981	
==>pe}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5834	5981	
==>pe}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5834	5981	
==>pe}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12582	12690	
==>it into
C<$comment> (sans #).

=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	602	748	
==>rpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	602	748	
==>rpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	602	748	
==>rpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    r <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	42	164	
==>URUS APPLY HERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # mont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	741	848	
==>re} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	947	1054	
==>re} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_ex <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4039	4122	
==>ement_previous => $self._get_union( $self.complement_previous, $set.complement_previ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4039	4122	
==>ement_previous => $self._get_union( $self.complement_previous, $set.complement_previ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1936	2050	
==>ew PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1936	2050	
==>ew PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var k <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1936	2050	
==>ew PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var k <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2340	2432	
==>. An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpreter.

=over <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	68	204	
==>values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	68	204	
==>values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6317	6433	
==>nce}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_vars {
	my $self = shift;
	$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	284	380	
==>san.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	284	380	
==>san.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	284	380	
==>san.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3978	4164	
==>rs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7455	7641	
==>rs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6421	6607	
==>rs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns R <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6963	7068	
==>r $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_ <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	188	309	
==>dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	188	309	
==>dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	439	548	
==>gs{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	406	515	
==>gs{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5413	5537	
==>a if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_char', <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36984	37078	
==>eadings, for these their joining
degenerates to a C<intersection>.  In any situation where a pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41533	41627	
==>eadings, for these their joining
degenerates to a C<intersection>.  In any situation where a pa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41156	41250	
==>eadings, for these their joining
degenerates to a C<intersection>.  In any situation where a pa <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1532	1635	
==>om makemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABST <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1809	1911	
==>mber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1809	1911	
==>mber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1809	1911	
==>mber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N" <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3902	4001	
==>wp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1607	1706	
==>atural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <na <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1607	1706	
==>atural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <na <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3902	4001	
==>wp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12687	12787	
==>re not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values o <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12687	12787	
==>re not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values o <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14274	14373	
==>ool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print eac <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14332	14431	
==>ool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print eac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3792	3907	
==>en \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3792	3907	
==>en \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3792	3907	
==>en \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{prel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	532	634	
==>SIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentially a reference implementati <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4066	4173	
==>t {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~norm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4066	4173	
==>t {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~norm <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16436	16531	
==>t for new languages easily and without a recompile (such as by simply
copying files), often even <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16436	16531	
==>t for new languages easily and without a recompile (such as by simply
copying files), often even <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3803	3906	
==>".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3803	3906	
==>".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4393	4496	
==>".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20866	20958	
==>(do{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not q <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	498	595	
==>se also declare whether the function can be used in a safe
context (such as the IRC evalbot) using <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	180	275	
==>::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	180	275	
==>::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	176	267	
==>::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1997	2138	
==>ure_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2190	2331	
==>ure_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22129	22226	
==>Print(C)     :- (char_type(C,alnum);char_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (ch <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5774	5882	
==>.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0 <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5774	5882	
==>.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0 <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11276	11371	
==>s recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and from <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11276	11371	
==>s recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and from <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1940	2059	
==>};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototype <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3035	3138	
==>lems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3035	3138	
==>lems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3035	3138	
==>lems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1321	1439	
==>gs here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1321	1439	
==>gs here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1777	1874	
==>hildren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1777	1874	
==>hildren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1284	1402	
==>lt;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1284	1402	
==>lt;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resul <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1284	1402	
==>lt;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	969	1074	
==>xtracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	969	1074	
==>xtracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	969	1074	
==>xtracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1943	2057	
==>iscard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1943	2057	
==>iscard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1943	2057	
==>iscard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10974	11093	
==>to Installation.pm
    $self->write or return;
    
    ### unisntall metadata
    system( qq[rm -rf ] . $self->control_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17903	18010	
==>-CB-E]> would have a character map of C<< { 65 => 1, 66
=> 2, 67 => 2, 68 => 1, 69 => 1} >>.  This will refl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	61	167	
==>le.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	61	167	
==>le.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	61	163	
==>le.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pac <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9437	9550	
==>tring is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $resul <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9437	9550	
==>tring is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $resul <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18944	19040	
==>rl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18944	19040	
==>rl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with use <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	725	838	
==>[*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard funct <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	725	838	
==>[*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard funct <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11044	11152	
==>?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11194	11302	
==>?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	538	665	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	544	671	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	599	726	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	270	391	
==>s::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Gram <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	460	567	
==>att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldo <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	460	567	
==>att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldo <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2933	3030	
==>t, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_pre <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2933	3030	
==>t, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11387	11496	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11387	11496	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11387	11496	
==>$method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12274	12377	
==>t => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12274	12377	
==>t => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "sp <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5653	5755	
==>d1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5653	5755	
==>d1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Ev <==
4	/Users/nnunley/pugs/util/version_h.pl	2072	2176	
==>"io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#defin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	58	166	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	58	166	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	58	166	
==>{
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16995	17111	
==>ss->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16995	17111	
==>ss->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16995	17111	
==>ss->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $labe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10736	10837	
==>You can get the regex back from the parser with the visual() method:

  my $rx = $parser->visual;

Thi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4767	4975	
==>{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { return(\$_[0]->{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3640	3734	
==>LE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs < <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	792	894	
==>ompiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	984	1086	
==>ompiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	792	894	
==>ompiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	984	1086	
==>ompiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5240	5349	
==>str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = ge <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2782	2891	
==>str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = ge <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15080	15174	
==>rivmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15080	15174	
==>rivmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11723	11830	
==>et.invert(...)>

Removes the given items if they are already in the set, or inserts the items if
they're not <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8870	8977	
==>et.invert(...)>

Removes the given items if they are already in the set, or inserts the items if
they're not <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11723	11830	
==>et.invert(...)>

Removes the given items if they are already in the set, or inserts the items if
they're not <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8870	8977	
==>et.invert(...)>

Removes the given items if they are already in the set, or inserts the items if
they're not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1997	2173	
==>elf->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10970	11082	
==>> $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10970	11082	
==>> $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10970	11082	
==>> $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	366	505	
==>mplement the "magic hash" dispatcher
# TODO - generate AST

*ident = Pugs::Compiler::Rule->compile( '
            [
                [ \ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8599	8710	
==>eRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse($v0);
    $s = "\"$v0\"" i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19831	19927	
==>ed nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurat <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19831	19927	
==>ed nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10587	10703	
==>.$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10587	10703	
==>.$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10587	10703	
==>.$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1437	1549	
==>or writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4393	4491	
==>function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4393	4491	
==>function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4393	4491	
==>function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_call <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12365	12482	
==>= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12365	12482	
==>= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12365	12482	
==>= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2383	2500	
==>n't create it.
        mkpath(dirname($ppc_yml));
        
        run($^X, qw<util/gen_prelude.pl -v -i src/perl6/Pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7052	7157	
==>es) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7052	7157	
==>es) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7052	7157	
==>es) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // th <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16665	16758	
==>n>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <EqualityExpressionN <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2353	2459	
==>ult,
			$prog->{result},
			"correct results for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	25	119	
==>ings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	25	119	
==>ings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	25	119	
==>ings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9941	10056	
==>umbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9941	10056	
==>umbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9941	10056	
==>umbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	194	302	
==>Reducer::DuplicateFinder;
use Blondie::TypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3365	3645	
==>r example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1533	1630	
==>d($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1533	1630	
==>d($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1533	1630	
==>d($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_met <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4683	4792	
==>( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4683	4792	
==>( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7355	7460	
==>rectories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7355	7460	
==>rectories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3842	3949	
==>t { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_group        { \( <pattern> \) }
rule n <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5020	5116	
==>st in the current test file.

=item B<Str $.description>

The test's description (optional).

=it <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5020	5116	
==>st in the current test file.

=item B<Str $.description>

The test's description (optional).

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7217	7313	
==>st in the current test file.

=item B<Str $.description>

The test's description (optional).

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9926	10060	
==>elf: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1991	2115	
==>elf: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1991	2115	
==>elf: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder:: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17674	17769	
==>param => val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polymorphic snd fu <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2693	2795	
==>printf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyri <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2693	2795	
==>printf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22704	22794	
==>=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22704	22794	
==>=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13859	14008	
==>$start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @rv, '- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3972	4105	
==>$start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3972	4105	
==>$start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3972	4105	
==>$start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @rv, '- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1067	1198	
==>ode.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1067	1198	
==>ode.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1067	1198	
==>ode.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	473	575	
==>}

# conversion to native value
sub to_native { shift }

# keep this here for a consistent interface
su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21465	21567	
==>n the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" events. Se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20346	20448	
==>n the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" events. Se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21465	21567	
==>n the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" events. Se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20346	20448	
==>n the bot receives a corresponding message.
Event names which are all lowercase are "pseudo" events. Se <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5979	6081	
==>len = 0
  term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_cclass .CCLASS_WH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8628	8725	
==>TI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8628	8725	
==>TI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8628	8725	
==>TI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8995	9127	
==>]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8995	9127	
==>]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8995	9127	
==>]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28634	28731	
==>se);
    $verbose=0; runtests @ARGV;' t/*.t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5913	6031	
==>{capture} = [ { $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, thi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5726	5838	
==>{capture} = [ { $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, thi <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6207	6358	
==>se = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6207	6358	
==>se = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14164	14290	
==>(1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $pref <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14164	14290	
==>(1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	187	303	
==>mmar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	191	307	
==>mmar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	185	301	
==>mmar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	185	301	
==>mmar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %o <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1477	1588	
==>> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1477	1588	
==>> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11580	11676	
==>ecurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11580	11676	
==>ecurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	389	489	
==>base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13579	13677	
==>-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13579	13677	
==>-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13579	13677	
==>-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4210	4323	
==>);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4210	4323	
==>);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4800	4913	
==>);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curr <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4278	4385	
==>se" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } glob "pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	804	940	
==>(@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	804	940	
==>(@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	804	940	
==>(@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13978	14095	
==>n_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_complai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17529	17671	
==>onfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17529	17671	
==>onfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17529	17671	
==>onfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	479	602	
==>{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1056	1171	
==>perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1888	1999	
==>perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2028	2139	
==>perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self-> <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	281	379	
==>rgs atm

## Chapter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1000	1107	
==>ethod end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    r <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1000	1107	
==>ethod end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4242	4360	
==>i} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4242	4360	
==>i} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4242	4360	
==>i} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY" <==
4	/Users/nnunley/pugs/util/run-smoke.pl	680	778	
==>location";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->lookup( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8081	8313	
==>{ 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8081	8313	
==>{ 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8081	8313	
==>{ 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6283	6484	
==>e );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\n" .
                        "\t/* $op->{name} $op->{fixity <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3307	3409	
==>w our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3307	3409	
==>w our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$ser <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4426	4526	
==>piler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4273	4371	
==>piler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7117	7222	
==>head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7117	7222	
==>head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7117	7222	
==>head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $h <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21632	21725	
==>ass_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(clas <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4790	4894	
==>y Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4790	4894	
==>y Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2412	2508	
==>hered or deciphered; when you're done, call the closure 
with no arguments to finish the cipherin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2412	2508	
==>hered or deciphered; when you're done, call the closure 
with no arguments to finish the cipherin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	986	1096	
==>$cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	986	1096	
==>$cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	986	1096	
==>$cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1697	1836	
==>) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2026	2162	
==>) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1639	1775	
==>) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2026	2162	
==>) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[ <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1253	1373	
==>0);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $f <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1220	1340	
==>0);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $f <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13460	13556	
==>.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are alw <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13460	13556	
==>.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are alw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4670	4771	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4851	4952	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5195	5296	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5396	5497	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4932	5053	
==>ent {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4932	5053	
==>ent {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5396	5511	
==>ent {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5396	5511	
==>ent {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	135	231	
==>?? !!>', '$cond', '$true', '$false'), # non short circuiting

    '&control_structure:<if>' => Th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20163	20263	
==>able on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20163	20263	
==>able on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
an <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24149	24247	
==>n has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28701	28799	
==>n has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4671	4767	
==>is($p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2639	2742	
==>inimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5965	6064	
==>ssage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5965	6064	
==>ssage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2267	2365	
==>rent properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

= <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2267	2365	
==>rent properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

= <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	236	375	
==>(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "You must hav <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1304	1440	
==>/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1304	1440	
==>/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	290	403	
==>nite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	290	403	
==>nite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7041	7152	
==>of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7041	7152	
==>of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7041	7152	
==>of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10412	10519	
==>\"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10570	10677	
==>\"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18101	18199	
==>e
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18101	18199	
==>e
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6108	6262	
==>rs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6108	6262	
==>rs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6108	6262	
==>rs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.va <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4882	4980	
==>iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviated to uniqueness. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	422	541	
==>f;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	422	541	
==>f;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	422	541	
==>f;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1265	1611	
==>uire $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Int <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1265	1611	
==>uire $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Int <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2758	2901	
==>->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2758	2901	
==>->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runti <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3996	4125	
==>appens often on VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self->{saw_lone_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10789	10893	
==>ng>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10789	10893	
==>ng>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29117	29213	
==>sor" (that is, a '&&' with a
'&') are post-consumption: they have already matched what they are
n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18031	18189	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18310	18468	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18946	19122	
==>tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18946	19122	
==>tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18946	19122	
==>tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet f <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5567	5664	
==>er $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Stri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12534	12635	
==>autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12534	12635	
==>autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::ini <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12534	12635	
==>autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::ini <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7664	7755	
==>n free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4143	4238	
==>here is no instance
constructor, and when calling these methods you should take care not
to call <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	191	286	
==>{ __PACKAGE__ . "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub ru <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4143	4238	
==>here is no instance
constructor, and when calling these methods you should take care not
to call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4143	4238	
==>here is no instance
constructor, and when calling these methods you should take care not
to call <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3782	3890	
==>mt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Var <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3782	3890	
==>mt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Var <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	632	740	
==>mt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Var <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	66	155	
==>." unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'};
Please invoke ${\__PACKA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5517	5622	
==>S.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5517	5622	
==>S.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5517	5622	
==>S.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<E <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1981	2084	
==>ie::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2701	2807	
==>le no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 White Space

rule TAB  { \x000 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4648	4746	
==>from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4648	4746	
==>from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4648	4746	
==>from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15559	15672	
==>tching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15559	15672	
==>tching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15559	15672	
==>tching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	98	195	
==>e Perl6::Core::Bit;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3724	3830	
==>-2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3724	3830	
==>-2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), ( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3724	3830	
==>-2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22375	22536	
==>>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22375	22536	
==>>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED C <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22375	22536	
==>>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED C <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3649	3769	
==>mmar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3842	3962	
==>mmar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8108	8223	
==>unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8301	8416	
==>unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13272	13406	
==>" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9458	9592	
==>" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10294	10428	
==>" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5536	5661	
==>n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5758	5883	
==>n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12536	12642	
==>e) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/g <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12536	12642	
==>e) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/g <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	164	265	
==>alue = ::Any ];

# FIXME - no insert methods
multi method delete ($index ) returns Object;
multi metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11818	11914	
==>r. 

Because instances of class all conform to the Role interface/API they are 
interchangable wi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11818	11914	
==>r. 

Because instances of class all conform to the Role interface/API they are 
interchangable wi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11818	11914	
==>r. 

Because instances of class all conform to the Role interface/API they are 
interchangable wi <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1404	1623	
==>LSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'Yo <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1404	1623	
==>LSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'Yo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	259	360	
==>iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAU <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	259	360	
==>iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAU <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1866	2065	
==>flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1805	1997	
==>flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22282	22373	
==>t>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally usi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22282	22373	
==>t>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally usi <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	685	824	
==>nted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3189	3302	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3189	3302	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3189	3302	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	275	403	
==>lue = '' unless defined $value; # default to empty string
    bless \$value => $class;
}

# conversion to native value
sub to_nat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5102	5206	
==>], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7770	7874	
==>], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclas <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3578	3673	
==>Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being deve <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3578	3673	
==>Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being deve <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4906	5013	
==>ulti Array::shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::splice (       @array is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	596	689	
==>$thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	596	689	
==>$thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	596	689	
==>$thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inlin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3983	4142	
==>ude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $control --exclude .svn -C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4366	4474	
==>, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4366	4474	
==>, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4366	4474	
==>, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	808	904	
==>ken->compile(q( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Token->com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3549	3663	
==>methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3549	3663	
==>methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3549	3663	
==>methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	571	680	
==>lan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing failure diagnos <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1564	1696	
==>),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1575	1707	
==>),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9787	9888	
==>itable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9787	9888	
==>itable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listif <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9787	9888	
==>itable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listif <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5352	5447	
==>arts.  After the executable is ready, the Standard
Prelude is precompiled and stored in YAML for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7167	7273	
==>s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7167	7273	
==>s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7167	7273	
==>s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19132	19231	
==>$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19132	19231	
==>$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19132	19231	
==>$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4056	4142	
==>equire "lib/TestBuilder/TestPlan.pm";
require "lib/TestBuilder/Output.pm";
require "lib <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	877	982	
==>{$variable} = url_decode($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1576	1675	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1576	1675	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1576	1675	
==>",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "inf <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10335	10445	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10614	10724	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	416	510	
==>o_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Per <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	416	510	
==>o_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1300	1419	
==>y %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1300	1419	
==>y %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1300	1419	
==>y %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    } <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14965	15073	
==>.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18442	18550	
==>.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17858	17966	
==>.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17710	17812	
==>ressionNoIn>
}
rule LogicalANDExpression :words {  # see 11.11
      <BitwiseORExpression>
    | <Logic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1327	1415	
==>js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1327	1415	
==>js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1327	1415	
==>js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11703	11812	
==><size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the it <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8850	8959	
==><size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11703	11812	
==><size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the it <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8850	8959	
==><size>.

=head2 C<$set.invert(...)>

Removes the given items if they are already in the set, or inserts the it <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5590	5840	
==>tr( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6439	6689	
==>tr( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print " <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8860	8993	
==>t will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCH <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8860	8993	
==>t will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCH <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10085	10218	
==>bject
  }

In list context, it returns the next node and its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6606	6693	
==>main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6606	6693	
==>main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6606	6693	
==>main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10860	11021	
==>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10860	11021	
==>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cs <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10860	11021	
==>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cs <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16592	16692	
==>ot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{tests} test $blurb could be run, " <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4093	4218	
==>eturn $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14940	15093	
==>nt( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15219	15372	
==>nt( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'gr <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11984	12078	
==>gn b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11984	12078	
==>gn b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9982	10085	
==>n1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9982	10085	
==>n1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5152	5249	
==>e_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5152	5249	
==>e_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3442	3546	
==>", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3442	3546	
==>", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3442	3546	
==>", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "h <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18689	18790	
==>PSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$auto <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17732	17833	
==>PSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$auto <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18689	18790	
==>PSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$auto <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17732	17833	
==>PSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen traffic for C<$auto <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5837	5944	
==>)[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5837	5944	
==>)[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9407	9509	
==>disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9407	9509	
==>disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4846	4965	
==>els>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new p <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4846	4965	
==>els>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10949	11065	
==>}
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10949	11065	
==>}
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9693	9787	
==>thod collect_all_roles () { "<implemented>" }  

    # ---------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26157	26251	
==>define ROPT_NOSCAN		0x00040	/* Check-string always at start. */
 #define ROPT_GPOS_SEEN		0x0008 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9693	9787	
==>thod collect_all_roles () { "<implemented>" }  

    # ---------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9693	9787	
==>thod collect_all_roles () { "<implemented>" }  

    # ---------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	488	588	
==>g this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	488	588	
==>g this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	488	588	
==>g this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2056	2165	
==>eprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2056	2165	
==>eprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a. <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	282	383	
==>@y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *i <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	282	383	
==>@y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19135	19228	
==>ith little
trouble.  Likewise, emulation layers for any other programming language can
be supp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19135	19228	
==>ith little
trouble.  Likewise, emulation layers for any other programming language can
be supp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36628	36721	
==>*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a fi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2574	2658	
==>';
%======================================================================

:- style_ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17823	17965	
==>f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1749	1842	
==>bstr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1749	1842	
==>bstr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1749	1842	
==>bstr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($se <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10671	10778	
==>_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = $code_val;
    if($kind eq 'M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6690	6792	
==>e->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6690	6792	
==>e->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6690	6792	
==>e->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9291	9404	
==>ess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9291	9404	
==>ess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9291	9404	
==>ess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SEL <==
4	/Users/nnunley/pugs/util/importgraph.pl	2551	2663	
==>,
    (defined $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $node <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	20389	20533	
==>ide("fac'"),
							param => comb(
								fun => comb(
									fun => ide("sub"),
									param => ide("x"),
								),
								param => val(1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9226	9334	
==>my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9226	9334	
==>my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9226	9334	
==>my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$. <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	398	502	
==>unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $ca <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	398	502	
==>unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $ca <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25822	25916	
==>his method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30374	30468	
==>his method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3189	3445	
==>m->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2667	2805	
==>'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2667	2805	
==>'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2667	2805	
==>'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxe <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	496	764	
==>n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buff <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	496	764	
==>n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buff <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6092	6216	
==>next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or els <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6092	6216	
==>next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or els <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3784	3877	
==>.

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3784	3877	
==>.

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1103	1195	
==>der = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1103	1195	
==>der = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2545	2667	
==>erl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2545	2667	
==>erl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2545	2667	
==>erl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7129	7235	
==>llow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->last_err <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3571	3675	
==>::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3571	3675	
==>::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3571	3675	
==>::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->nam <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2036	2130	
==>xename.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3113	3232	
==>->{DIR} ||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2852	2955	
==>opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2852	2955	
==>opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2852	2955	
==>opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12981	13092	
==>final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1363	1465	
==>assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<lis <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1363	1465	
==>assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<lis <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1363	1465	
==>assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1041	1155	
==>ch my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1041	1155	
==>ch my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1041	1155	
==>ch my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$a <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4953	5082	
==>{
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	return 0 if $x == 0;
	$x > 0 ?? 1 !! -1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1676	1789	
==>fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1676	1789	
==>fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1676	1789	
==>fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSco <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10196	10325	
==>ine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10196	10325	
==>ine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4583	4692	
==>plemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_ch <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4583	4692	
==>plemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_ch <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7427	7545	
==>r) of Code $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16472	16570	
==>ather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16472	16570	
==>ather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16472	16570	
==>ather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20430	20549	
==>tax charts or "railroad normal form" in
parsing technology).  Each node is an opcode plus a "next" pointer,
possibly plu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1469	1564	
==>pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1469	1564	
==>pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1469	1564	
==>pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1582	1710	
==>=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{if=>'block'}] 
];


    my($lex) = sub {
        my($t) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13209	13305	
==>urn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13209	13305	
==>urn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13209	13305	
==>urn $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9224	9336	
==>ewnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9224	9336	
==>ewnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1990	2092	
==>unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless su <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1990	2092	
==>unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless su <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8536	8650	
==>han what you're running the harness under.
This might be to run a threaded Perl, for example.

You can also overloa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2801	2896	
==>. ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2801	2896	
==>. ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eige <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2801	2896	
==>. ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Eige <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2672	2865	
==>ph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2672	2865	
==>ph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2097	2211	
==>ct( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::Tru <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2097	2211	
==>ct( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::Tru <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7728	7904	
==>@found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8192	8368	
==>@found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the right package <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4162	4326	
==>@found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4626	4790	
==>@found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the right package <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3403	3520	
==>ndic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrav <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3403	3520	
==>ndic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrav <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2271	2367	
==>ix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2271	2367	
==>ix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4021	4143	
==>($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. Th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4021	4143	
==>($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. Th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4021	4143	
==>($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. Th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6771	6886	
==>les;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups min <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14654	14816	
==>regorian dates are inaccurate" - GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    h <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1033	1130	
==>b_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1033	1130	
==>b_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1113	1210	
==>b_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	312	445	
==>n>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for mor <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	316	449	
==>n>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for mor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	312	445	
==>n>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for mor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	316	449	
==>n>();            # Enter main event loop
# Note that this is *not* a port of Perl 5's Net::IRC.
# See the POD of this document for mor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3966	4069	
==>$self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3966	4069	
==>$self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3966	4069	
==>$self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @param <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	79	172	
==>use strict;
use warnings;
use Module::Compile-base;
use File::Basename;
use Pugs::Runtime::Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1823	1962	
==>ch} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1823	1962	
==>ch} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7410	7496	
==>Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statemen <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1235	1321	
==>Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statemen <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11905	11990	
==>pen,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> octdigits_int(C), p6_oct_cha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3111	3262	
==>b variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2989	3134	
==>b variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4631	4744	
==>t 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splic <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4631	4744	
==>t 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12540	12653	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12540	12653	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12540	12653	
==>')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15694	15805	
==>args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3057	3161	
==>irst event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $serve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3057	3161	
==>irst event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $serve <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1870	1964	
==>ew({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly conf <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1870	1964	
==>ew({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly conf <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6320	6429	
==>eeds optimization for faster backtracking, less stack usage
    return sub {
        my $state = $_[1] || $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8476	8574	
==>root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8476	8574	
==>root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8476	8574	
==>root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !def <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6494	6654	
==>a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cooki <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6494	6654	
==>a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cooki <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21818	21936	
==>ssm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18239	18357	
==>ssm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	702	807	
==>is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# D <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	702	807	
==>is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# D <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	701	801	
==>is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	701	801	
==>is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" } <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22007	22103	
==>om. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20888	20984	
==>om. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22007	22103	
==>om. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20888	20984	
==>om. Not available for numeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not availa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34714	34826	
==>ass = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34714	34826	
==>ass = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34714	34826	
==>ass = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	71	177	
==>IR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
use File::Spec;

my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	777	881	
==>=> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	777	881	
==>=> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      un <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	777	881	
==>=> "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      un <==
4	/Users/nnunley/pugs/util/combine_tests.pl	89	193	
==>p LoadFile/ ];
#my @data = map { YAML::LoadFile($_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#p <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4503	4601	
==>It prints
out each individual test which failed along with a summary report and
a how long it all t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2310	2405	
==>tr.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2310	2405	
==>tr.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2310	2405	
==>tr.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(fu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14767	14887	
==>ed $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method inv <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14767	14887	
==>ed $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method inv <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	790	885	
==>ees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a ser <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	790	885	
==>ees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a ser <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1870	2032	
==>t tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1870	2032	
==>t tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	724	857	
==>(
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	724	857	
==>(
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'H <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10818	10933	
==>'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10818	10933	
==>'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10818	10933	
==>'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params, <==
4	/Users/nnunley/pugs/util/importgraph.pl	1588	1691	
==>$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod}->[$type] <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3414	3642	
==>h');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3462	3690	
==>h');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3414	3642	
==>h');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3462	3690	
==>h');
                            interpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	115	231	
==>hift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compil <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	115	231	
==>hift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compil <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6483	6583	
==>self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_unio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6483	6583	
==>self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_unio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1359	1453	
==>ck
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1359	1453	
==>ck
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1359	1453	
==>ck
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $po <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2676	2822	
==>( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the objects new method and retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2406	2508	
==>SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2406	2508	
==>SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2406	2508	
==>SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12399	12524	
==>sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12678	12803	
==>sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16559	16672	
==>);

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12980	13093	
==>);

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1133	1285	
==>jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta(   $meta     );
        $obj-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	73	168	
==>:Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	73	168	
==>:Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	73	168	
==>:Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3203	3328	
==>] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3203	3328	
==>] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9334	9446	
==>after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9334	9446	
==>after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6338	6431	
==>ding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6338	6431	
==>ding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyth <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6338	6431	
==>ding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyth <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1869	2021	
==>cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1869	2021	
==>cwd();
        }
        elsif (!file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2586	2714	
==>cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2586	2714	
==>cwd();
    }
    elsif (!file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	417	517	
==>n the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_fi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	417	517	
==>n the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1508	1607	
==>::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1508	1607	
==>::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2642	2746	
==>diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2642	2746	
==>diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2722	2826	
==>diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Tes <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4183	4294	
==>ken_match;
    bsr_token_match_1:
    goto found_term if $operator;
    goto null_term if ($key eq "");
  }
  ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6729	6832	
==>kage PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6729	6832	
==>kage PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6729	6832	
==>kage PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBod <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1865	2030	
==>::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clo <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1865	2030	
==>::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10159	10255	
==>ANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10217	10313	
==>ANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tes <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4738	4837	
==>mounted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    --cdroot is the directo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7699	7850	
==>('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7699	7850	
==>('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7699	7850	
==>('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7880	7995	
==>T ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17099	17195	
==>e in bytes of the message content.

=item $h.content_language

The natural language(s) of the int <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17099	17195	
==>e in bytes of the message content.

=item $h.content_language

The natural language(s) of the int <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9812	9906	
==>cts a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parame <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9812	9906	
==>cts a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parame <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19063	19193	
==><'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expressio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3318	3433	
==>stance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3318	3433	
==>stance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3318	3433	
==>stance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7463	7599	
==>urn 1;

    } else {        
        error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	378	477	
==>to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_str { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33469	33567	
==>ppear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33469	33567	
==>ppear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1694	1834	
==>te ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2023	2160	
==>te ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1636	1773	
==>te ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2023	2160	
==>te ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state- <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	17	138	
==>AML            qw[LoadFile];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2331	2430	
==>();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2331	2430	
==>();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2331	2430	
==>();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refer <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3327	3456	
==>tart;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3327	3456	
==>tart;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12112	12205	
==>1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12112	12205	
==>1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3752	3873	
==>) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the fi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3752	3873	
==>) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the fi <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	360	459	
==>oc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	360	459	
==>oc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3147	3281	
==>[ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3147	3281	
==>[ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3147	3281	
==>[ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cla <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12098	12190	
==>"<tmpl_var name=total> total"><tmpl_var name=total></span>:</td>
	      <td class="num tests_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9969	10164	
==>ion,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	535	718	
==>ion,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	535	718	
==>ion,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Tes <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1411	1526	
==>}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6453	6564	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6453	6564	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_so <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6453	6564	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_so <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4086	4310	
==>nt_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4086	4310	
==>nt_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	842	966	
==>ring = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	856	974	
==>ring = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.i <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19262	19371	
==>ilout_reason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6279	6375	
==>elonging to 3rd party classes that your object might be
holding. Using the noio example above, th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6279	6375	
==>elonging to 3rd party classes that your object might be
holding. Using the noio example above, th <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6279	6375	
==>elonging to 3rd party classes that your object might be
holding. Using the noio example above, th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4364	4475	
==>ill be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4364	4475	
==>ill be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5237	5345	
==>ill be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:« <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5237	5345	
==>ill be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:« <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19285	19377	
==><401 Unauthorized> response.
The field value consist of a challenge that indicates the
authen <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19285	19377	
==><401 Unauthorized> response.
The field value consist of a challenge that indicates the
authen <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	81	168	
==>se HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	81	168	
==>se HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_head <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2844	2989	
==>chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3028	3173	
==>chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1519	1649	
==>nt $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1519	1649	
==>nt $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 A <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	150	280	
==>s;
no warnings 'recursion';

sub new {
    my $class = shift;
    bless {
        params => undef,
        param_stack => [],
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	23	114	
==>rict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	23	114	
==>rict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	23	114	
==>rict;
use warnings;
use Perl6::MetaModel::Psyche;

## -------------------------------------- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2155	2263	
==>. "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2936	3044	
==>. "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op = <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2100	2192	
==>ou might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http:// <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2100	2192	
==>ou might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http:// <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2287	2413	
==>ass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2834	2960	
==>ass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3381	3507	
==>ass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8721	8838	
==>$n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = _mangle_ident( $n->{name}{barewor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5696	5795	
==>l --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5696	5795	
==>l --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=h <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5696	5795	
==>l --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=h <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6925	7124	
==>$array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            % <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6925	7124	
==>$array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            % <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14367	14477	
==>_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1847	1957	
==>_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7061	7184	
==>,
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7061	7184	
==>,
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2266	2369	
==>rface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2266	2369	
==>rface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2779	2896	
==>$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to h <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2779	2896	
==>$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15877	15972	
==>ON

This module provides a system for writing modules that I<compile> other
Perl modules.

Modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15877	15972	
==>ON

This module provides a system for writing modules that I<compile> other
Perl modules.

Modul <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5974	6067	
==>g string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5974	6067	
==>g string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	14	122	
==>5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	14	122	
==>5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	14	122	
==>5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2705	2795	
==>p5_start(Z)    --> p5_concatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21705	21813	
==>b "p6analyze" :method
    .param pmc pad
    .local int isarray, iscapture
    .local string cname
    .local <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	455	558	
==>the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	455	558	
==>the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	455	558	
==>the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1820	1959	
==>match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1820	1959	
==>match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dum <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9019	9123	
==>nt.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 A <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9019	9123	
==>nt.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 A <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25902	25994	
==>ibute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30454	30546	
==>ibute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29429	29521	
==>ibute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names tha <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8043	8135	
==>riable::instantiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nulla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13108	13212	
==>ch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13108	13212	
==>ch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13108	13212	
==>ch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22831	23005	
==>calar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22831	23005	
==>calar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22831	23005	
==>calar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	339	471	
==>{    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$cons <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2497	2592	
==>ze < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2497	2592	
==>ze < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	214	305	
==>\\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	214	305	
==>\\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	507	603	
==>ulti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	507	603	
==>ulti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	507	603	
==>ulti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (* <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25655	25748	
==>s why I'm using
C<${&Rx}> everywhere, it's because an lvalued subroutine returning a
normal sc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18659	18781	
==>a reference";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        local <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9704	9815	
==>ation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13181	13292	
==>ation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12453	12564	
==>ation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are m <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	996	1133	
==>t "." if $Conf{verbose};
        my %cc = ($f => 1);
        print "calculating cc for $f\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	99	217	
==>JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	99	217	
==>JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	99	217	
==>JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Num <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10218	10333	
==>ame'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10212	10327	
==>ame'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23725	23824	
==>e won't simply
send all commands immediately to the server, but creates a queue, which is then
slowl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23725	23824	
==>e won't simply
send all commands immediately to the server, but creates a queue, which is then
slowl <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3656	3759	
==>dling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3656	3759	
==>dling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5330	5430	
==>his is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a respon <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5330	5430	
==>his is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a respon <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	652	755	
==>e instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALK <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	652	755	
==>e instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALK <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	652	755	
==>e instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALK <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6560	6660	
==>piler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := ( <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5860	5978	
==>lcomed },
  using  => sub { $welcomed++ },
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can sto <==
4	/Users/nnunley/pugs/util/package-osx.pl	5606	5703	
==>rview.3
        /usr/local/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overvie <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	169	273	
==>) {
		"Hallo, {name $person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$we <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4085	4186	
==>he test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4085	4186	
==>he test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4165	4266	
==>he test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of exp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	278	374	
==>pe() returns a string that represents the 
node type, which are checked against each other for ag <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	278	374	
==>pe() returns a string that represents the 
node type, which are checked against each other for ag <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16584	16675	
==>D" language, is
described fully in the L<Rosetta::Language> documentation file that comes
wi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16584	16675	
==>D" language, is
described fully in the L<Rosetta::Language> documentation file that comes
wi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	66	162	
==>g;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path::Class::dir(cwd() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6168	6259	
==>:truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6168	6259	
==>:truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6168	6259	
==>:truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Interna <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5488	5596	
==>er_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4618	4726	
==>er_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5488	5596	
==>er_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4618	4726	
==>er_superset($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13652	13839	
==>candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13652	13839	
==>candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13652	13839	
==>candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	288	413	
==>ess \(my $f = 0) => __PACKAGE__;

sub new {
    my (undef, $value) = @_;
    (defined $value            && 
     looks_like_nu <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3714	4072	
==>ine, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3757	4115	
==>ine, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                } <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3714	4072	
==>ine, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                } <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3757	4115	
==>ine, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18905	19033	
==>AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18905	19033	
==>AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18905	19033	
==>AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTO <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	572	694	
==>elf->{'values'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6495	6605	
==>alues %{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating directory i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11253	11347	
==>nly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11253	11347	
==>nly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11253	11347	
==>nly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submetho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1917	2018	
==>ompiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1917	2018	
==>ompiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || ret <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	169	269	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	128	224	
==>rict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4170	4293	
==>//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4170	4293	
==>//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4170	4293	
==>//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurp <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	375	492	
==>duration(:second($seconds));
}

multi sub duration( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	113	208	
==>do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.per <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	102	195	
==>do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.per <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	69	162	
==>do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.per <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6895	6987	
==>2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6895	6987	
==>2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6895	6987	
==>2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(f <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4887	4985	
==>ibrary.  It should also be suitable for one-liners.  If
you need more control or access to the head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4887	4985	
==>ibrary.  It should also be suitable for one-liners.  If
you need more control or access to the head <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2045	2141	
==>he last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2045	2141	
==>he last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	371	477	
==>= bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	371	477	
==>= bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	371	477	
==>= bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}-> <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2330	2431	
==>econd returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.year <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8190	8307	
==>plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $C <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	405	510	
==>plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $C <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	405	510	
==>plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $C <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24735	24829	
==>le tuple must be distinct from the other tuples.  All Relation::Example
attributes may be indiv <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	114	208	
==>rns Duration {
    $self.new($self.length + $duration.length);
}

method subtract($self: Durati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5890	5981	
==>"__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

Wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5890	5981	
==>"__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

Wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5890	5981	
==>"__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

Wh <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11782	11887	
==>s_mswin || $is_netware || $is_vms) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15450	15549	
==>$_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15450	15549	
==>$_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15450	15549	
==>$_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11778	11907	
==>$_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11778	11907	
==>$_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11778	11907	
==>$_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8749	8856	
==>x and create
the tree in one step:

  my $ok = $parser->parse($new_regex);

Again, $ok will be false if a fa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2750	2893	
==>r;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2955	3098	
==>r;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclas <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	612	725	
==>oc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    < <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	612	725	
==>oc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22479	22714	
==>m, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22479	22714	
==>m, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22479	22714	
==>m, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49389	49507	
==>l->new('$:version'), $e->get('?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7686	7819	
==>ture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7879	8012	
==>ture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5328	5426	
==>rint|say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16364	16458	
==>removes trailing chars that match C</\n/>. In
either case, it returns the number of chars remov <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	331	450	
==>l/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $mayb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6030	6127	
==>define ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6030	6127	
==>define ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6030	6127	
==>define ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	67	180	
==>t_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	67	180	
==>t_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	67	180	
==>t_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	67	180	
==>t_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start_modifier',
    'end_modi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1843	1953	
==>.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1843	1953	
==>.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1843	1953	
==>.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statem <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9008	9115	
==>X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Formats and returns the switches nece <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35269	35365	
==>Example has all of the same attributes as the original.  Trivial cases are
where C<$predicate> si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	686	773	
==>implemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	686	773	
==>implemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	686	773	
==>implemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37071	37166	
==>ere a pair of source
relations have zero attributes in common, their joining degenerates to a
C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41620	41715	
==>ere a pair of source
relations have zero attributes in common, their joining degenerates to a
C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41243	41338	
==>ere a pair of source
relations have zero attributes in common, their joining degenerates to a
C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	731	834	
==>it}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	731	834	
==>it}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	731	834	
==>it}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $ke <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	873	971	
==>ild html test catalog and synopses with hyperlinks to corresponding tests

  Options:
    --p6desig <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2980	3115	
==>alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2991	3126	
==>alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                rul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4783	4912	
==>do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4771	4900	
==>do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21920	22027	
==>e_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enable this when Parse-YAML supports closures cor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1408	1504	
==>name"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1408	1504	
==>name"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined)) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1408	1504	
==>name"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined)) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2008	2099	
==>r;
	use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Sc <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14498	14587	
==>.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsa <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14498	14587	
==>.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	41	130	
==>r;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Sc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5245	5363	
==>mfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5245	5363	
==>mfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #prin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15231	15329	
==>ot Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15231	15329	
==>ot Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2435	2564	
==>= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform( <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2435	2564	
==>= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8505	8609	
==>ence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8505	8609	
==>ence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3067	3174	
==>trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0} <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3067	3174	
==>trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40399	40490	
==>in addition to preserving this original copyright notice and other
credits. Locale::KeyedTex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40399	40490	
==>in addition to preserving this original copyright notice and other
credits. Locale::KeyedTex <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9597	9729	
==>ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5555	5683	
==>ion inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5555	5683	
==>ion inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package sta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	628	739	
==>>new(1) : bit->new(0) }

# methods

sub fetch { ${$_[0]} }
sub store { 
    my ($self, $value) = @_;
    (blesse <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5554	5714	
==>se v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38545	38653	
==>SAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38545	38653	
==>SAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38545	38653	
==>SAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2301	2422	
==>.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2301	2422	
==>.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2301	2422	
==>.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eva <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2284	2396	
==>ntrol_dir( $self->package );
        my $data     = $conf->archive_data;
        my $control  = $conf->archive_co <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	923	1029	
==>5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_alternat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	151	257	
==>pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	151	257	
==>pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4754	4844	
==>$?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4754	4844	
==>$?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6518	6614	
==>thoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6518	6614	
==>thoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6518	6614	
==>thoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3119	3216	
==>n $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3119	3216	
==>n $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1787	1881	
==>plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, which wi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1787	1881	
==>plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, which wi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	342	571	
==>ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	342	571	
==>ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	342	571	
==>ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err in <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3289	3441	
==>?), return;
                }
        
                ### set up the files
                for my $meth (qw[registered_alternatives_file available_file] <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4103	4200	
==>s for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were ext <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4103	4200	
==>s for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were ext <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4408	4502	
==>reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4255	4348	
==>reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6501	6654	
==>:Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.sub_call'}->() }
            |
                ### Test-0.0.6
                <Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3340	3492	
==>supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3340	3492	
==>supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3340	3492	
==>supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7015	7201	
==>n( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10492	10678	
==>n( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relat <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14043	14145	
==>:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14043	14145	
==>:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4855	5038	
==>,
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_n <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4855	5038	
==>,
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_n <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3440	3558	
==>y $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $ <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3440	3558	
==>y $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	802	941	
==>= 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	802	941	
==>= 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5450	5552	
==>r/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5260	5360	
==>r/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4716	4831	
==>@array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4716	4831	
==>@array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4716	4831	
==>@array, @$cmp;
    $cmp := &infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $ma <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4016	4130	
==>@array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $ma <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	347	455	
==>f (%*ENV{'HTTP_COOKIE'} ne '') {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2164	2263	
==><$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2164	2263	
==><$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2164	2263	
==><$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  J <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7528	7650	
==>fault: $Config{"output-file"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18153	18243	
==>,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18153	18243	
==>,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18153	18243	
==>,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14108	14246	
==>pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4189	4315	
==>pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4189	4315	
==>pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4189	4315	
==>pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(Str) ?? expand($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	834	959	
==>er($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	834	959	
==>er($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	836	940	
==>_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1042	1146	
==>_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$p <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2458	2577	
==>eys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	15	116	
==>ernals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	15	116	
==>ernals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	15	116	
==>ernals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No S <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17245	17350	
==>urn "... recursive=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($node->can("fmap" <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13249	13346	
==>in the new env), and the type of the body
fun: type($$) = {
	type::operator::arrow->new(
		new_env <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21320	21413	
==>name and each Mapping value
is the corresponding attribute value.

Every Relation attribute ha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25872	25965	
==>name and each Mapping value
is the corresponding attribute value.

Every Relation attribute ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6777	6887	
==>$tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6777	6887	
==>$tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6777	6887	
==>$tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3728	3824	
==>, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3728	3824	
==>, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3728	3824	
==>, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15287	15403	
==>]} },
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $reftyp = re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17770	17862	
==>&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17770	17862	
==>&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17770	17862	
==>&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1063	1186	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1063	1186	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2144	2242	
==>b_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Rie <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2144	2242	
==>b_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Rie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1284	1395	
==>urn if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1489	1600	
==>urn if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1550	1661	
==>urn if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37055	37149	
==>any situation where a pair of source
relations have zero attributes in common, their joining de <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41604	41698	
==>any situation where a pair of source
relations have zero attributes in common, their joining de <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41227	41321	
==>any situation where a pair of source
relations have zero attributes in common, their joining de <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4636	4724	
==>escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
rule logical_g <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9803	9901	
==>of being the very first module written for Pugs.

It provides a simple set of common test utility f <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9861	9959	
==>of being the very first module written for Pugs.

It provides a simple set of common test utility f <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14523	14619	
==>grows, so will it's
testing needs. This module will be the code support for those needs. The
foll <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14581	14677	
==>grows, so will it's
testing needs. This module will be the code support for those needs. The
foll <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3262	3371	
==>sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6617	6708	
==>s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6617	6708	
==>s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6617	6708	
==>s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13450	13554	
==>keys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11440	11537	
==>le::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11440	11537	
==>le::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11440	11537	
==>le::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15577	15705	
==>angle_quoted} . '\' }';
    }

    return _not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = $_[0];
    # pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3160	3258	
==>-CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3160	3258	
==>-CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3160	3258	
==>-CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4101	4206	
==>Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4101	4206	
==>Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4101	4206	
==>Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1128	1253	
==>s')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6459	6571	
==>\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6459	6571	
==>\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6459	6571	
==>\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1710	1833	
==>e $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splice (@a is rw, $offset=0, $length?, *@l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4552	4655	
==>ml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4552	4655	
==>ml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4552	4655	
==>ml = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, " <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4485	4629	
==>,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($cont <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4485	4629	
==>,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($cont <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	677	782	
==>CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is expo <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	677	782	
==>CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is expo <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3292	3411	
==>ate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3292	3411	
==>ate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34365	34462	
==>t.
The Set Names property of the new object is set from the named parameter
@set_names (an array r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34365	34462	
==>t.
The Set Names property of the new object is set from the named parameter
@set_names (an array r <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21591	21708	
==>seudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The original line receive <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20472	20589	
==>seudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The original line receive <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21591	21708	
==>seudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The original line receive <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20472	20589	
==>seudo events.

The callback is given a C<$event> hashref, containing:

=over

=item C<line>

The original line receive <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3338	3444	
==>ch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6815	6921	
==>ch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some valu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5772	5878	
==>ch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7407	7521	
==>. "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7407	7521	
==>. "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7407	7521	
==>. "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();" <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17240	17354	
==>ase" operation, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2295	2394	
==>grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2295	2394	
==>grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Per <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1520	1615	
==>grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3381	3476	
==>grammar.pl GrammarFile.pm > GrammarFile.pmc

=head1 DESCRIPTION

Used to convert grammars in Per <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9442	9565	
==>ild_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9442	9565	
==>ild_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3620	3717	
==>selves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<352 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3620	3717	
==>selves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<352 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3872	3973	
==>:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3872	3973	
==>:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3872	3973	
==>:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) { <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10277	10376	
==>so, the signature for this sub is nowhere near finalized; it should
    # support asynch/exclusive/o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	160	250	
==>_header remove_content_headers header_field_names scan
    date expires if_modified_since i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	160	250	
==>_header remove_content_headers header_field_names scan
    date expires if_modified_since i <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18012	18102	
==>),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,E <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18323	18413	
==>),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,E <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7043	7199	
==>HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7507	7663	
==>HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9931	10086	
==>HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1716	1859	
==>HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14616	14733	
==>uals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14616	14733	
==>uals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it th <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1705	1801	
==>::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1705	1801	
==>::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1738	1844	
==>nt(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1738	1844	
==>nt(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1738	1844	
==>nt(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}! <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	999	1094	
==>) returns reference>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7801	7922	
==>ter};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::al <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7539	7652	
==>ter};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::al <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	19	114	
==>Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	19	114	
==>Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1448	1601	
==>nt {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1552	1705	
==>nt {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1448	1601	
==>nt {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else { <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1552	1705	
==>nt {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } else { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2951	3357	
==>alue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Vari <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2951	3357	
==>alue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Vari <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	651	900	
==>tta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DB <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	651	900	
==>tta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DB <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40280	40378	
==>you modify and distribute must carry
prominent notices stating that you changed the files and the d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25804	25902	
==>you modify and distribute must carry prominent
notices stating that you changed the files and the d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40280	40378	
==>you modify and distribute must carry
prominent notices stating that you changed the files and the d <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25804	25902	
==>you modify and distribute must carry prominent
notices stating that you changed the files and the d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14331	14447	
==>_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14331	14447	
==>_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14331	14447	
==>_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5131	5220	
==>ctors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=>$_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	53	161	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	53	161	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	53	161	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_fr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5750	5861	
==>ush @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5750	5861	
==>ush @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5750	5861	
==>ush @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1170	1265	
==>only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=head2 Base A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1151	1257	
==>m args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1151	1257	
==>m args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual che <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1151	1257	
==>m args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual che <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1458	1552	
==>ableKey = substr $relativePrecedence, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	492	601	
==>@_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	492	601	
==>@_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	492	601	
==>@_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4005	4109	
==>rExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matchObj->target();
  $position = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11358	11507	
==>'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11637	11786	
==>'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	539	649	
==>lt)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data stru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	513	617	
==>lt)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data stru <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1624	1752	
==>LD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; retu <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1591	1719	
==>LD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6232	6335	
==>hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7230	7333	
==>hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA- <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1102	1234	
==>next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't parse line: $_\n";
    }
    return $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3851	3937	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3851	3937	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3851	3937	
==>MD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1346	1485	
==>= ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1346	1485	
==>= ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	990	1089	
==>e too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Modu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	942	1038	
==>e too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Modu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3061	3172	
==>elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3061	3172	
==>elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: <==
4	/Users/nnunley/pugs/util/run-smoke.pl	565	666	
==>ox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or die "Need HTML <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13958	14056	
==>from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13958	14056	
==>from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13958	14056	
==>from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11586	11719	
==>rent == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An obje <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11586	11719	
==>rent == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	420	518	
==>h pmc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	420	518	
==>h pmc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4859	5018	
==>l dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2737	2872	
==>lf: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $re <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2737	2872	
==>lf: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4099	4234	
==>l dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	888	992	
==>turn ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widg <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	888	992	
==>turn ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widg <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21488	21583	
==>ges, but another package or program which uses yours may wish to
override some of your messages, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21488	21583	
==>ges, but another package or program which uses yours may wish to
override some of your messages, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14246	14346	
==>'get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5538	5638	
==>]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14246	14346	
==>'get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14246	14346	
==>'get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	766	876	
==>L::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	766	876	
==>L::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	766	876	
==>L::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $w <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9979	10073	
==>([C])}.
%# XXX - should permit \misc, no?
set_metachar("\\").
set_metachar("]").
set_metachar(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1650	1794	
==>obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1650	1794	
==>obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1650	1794	
==>obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->is <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5976	6076	
==>rn Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specif <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5976	6076	
==>rn Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specif <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13234	13328	
==>lements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only th <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13234	13328	
==>lements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2517	2615	
==>eck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2517	2615	
==>eck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2517	2615	
==>eck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26452	26633	
==>. 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26452	26633	
==>. 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26452	26633	
==>. 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1845	1967	
==>pression ; *@values) returns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = & <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2997	3137	
==>s::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15635	15734	
==>) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15635	15734	
==>) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15635	15734	
==>) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1994	2099	
==>pts->{SETUP}});

    my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	785	889	
==>s;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	785	889	
==>s;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_ou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	865	969	
==>s;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2595	2709	
==>y);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'he <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2595	2709	
==>y);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'he <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2942	3056	
==>y);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'he <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1937	2050	
==>r{';
	    while (scalar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1623	1727	
==>nfess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can ref <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1828	1932	
==>nfess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can ref <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3458	3561	
==>e = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3458	3561	
==>e = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $u <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12557	12667	
==>=> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6032	6142	
==>=> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->for <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3607	3706	
==>l/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on th <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3607	3706	
==>l/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4650	4778	
==>ckage_re { $Package_re };

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2111	2212	
==>infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2111	2212	
==>infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2111	2212	
==>infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ " <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10986	11091	
==>([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOO <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19970	20064	
==>h
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combina <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24522	24616	
==>h
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combina <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23074	23168	
==>h
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combina <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15453	15564	
==>$self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16868	16979	
==>$self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21624	21735	
==>$self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5402	5496	
==>ass method
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

is($iFoo->f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11848	11966	
==>ef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11848	11966	
==>ef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11848	11966	
==>ef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14921	15030	
==>superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14921	15030	
==>superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14921	15030	
==>superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => ' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17599	17704	
==>ucted pair, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t => t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4154	4266	
==>mp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4154	4266	
==>mp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4154	4266	
==>mp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1336	1430	
==>ludes attribute
lookup as well as method lookup, as attribute fetching is actually
just a short <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5212	5488	
==>nfix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4588	4722	
==>$string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4588	4722	
==>$string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4588	4722	
==>$string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	929	1051	
==>}
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	929	1051	
==>}
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	929	1051	
==>}
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0] <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18834	18935	
==>y ),
    );
}

my method _intersection (Relation::Example $other!) returns Relation::Example {
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4845	4964	
==>, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4845	4964	
==>, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4845	4964	
==>, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => : <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	723	832	
==>onfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	723	832	
==>onfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13761	13864	
==>ecode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

T <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13761	13864	
==>ecode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

T <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23951	24067	
==>see 15.1.3
      <uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1463	1601	
==>aped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => subs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1403	1536	
==>aped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => subs <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3580	3679	
==>de generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3797	3896	
==>de generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2892	2994	
==>what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir re <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2892	2994	
==>what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir re <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8252	8479	
==>ld;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $arr <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8252	8479	
==>ld;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $arr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8838	8976	
==>return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cook <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8838	8976	
==>return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cook <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4680	4791	
==>"Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4680	4791	
==>"Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4680	4791	
==>"Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6777	6886	
==>=> chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0 <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14294	14402	
==>{
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_se <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1774	1882	
==>{
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1044	1148	
==>matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1044	1148	
==>matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3587	3688	
==>ND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3587	3688	
==>ND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3587	3688	
==>ND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::p <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3439	3541	
==>ntinue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo
( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3439	3541	
==>ntinue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo
( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	731	835	
==>s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	731	835	
==>s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	731	835	
==>s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FI <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12554	12656	
==>ompletely undocumented source), in the presence
  of copy-on-write and such complications, could be a b <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	834	947	
==>e result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6381	6469	
==>(EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6381	6469	
==>(EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SEL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6381	6469	
==>(EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SEL <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7999	8118	
==>"lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7999	8118	
==>"lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7280	7385	
==>ith_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1185	1278	
==>a

The JIB::Meta object associated with this package

=head2 $pkg->install( installation => IN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23908	24080	
==>num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23908	24080	
==>num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23908	24080	
==>num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6405	6504	
==>n_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{name} cmp $b->{name} } (values %{ $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7644	7790	
==>xt }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7644	7790	
==>xt }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closur <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5020	5119	
==>53{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5020	5119	
==>53{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6245	6416	
==>($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6245	6416	
==>($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6245	6416	
==>($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8536	8635	
==>$S->object(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4273	4407	
==>nstead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $self->package );
            system( qq <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11785	11900	
==>ead a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\01 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11785	11900	
==>ead a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\01 <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8404	8511	
==>$noop = $o->noop;
    my $s = join("",$o->data);
    my $len = length($s);
    if($o->{'flags'} & $o->flag_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5374	5476	
==>a) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5374	5476	
==>a) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5374	5476	
==>a) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6176	6271	
==>ntal(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". %"
p5_elemental <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	335	592	
==>R is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used by the Relation class, that do <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1601	1689	
==>statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1601	1689	
==>statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1601	1689	
==>statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<f <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8524	8647	
==>ntain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8524	8647	
==>ntain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!hea <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	249	361	
==>{  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# tokenizer

sub tokenize ( $s ) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	772	1057	
==>t]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && -r _;
                                    local <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11025	11172	
==>hod report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.descripti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1503	1642	
==>hod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1503	1642	
==>hod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descripti <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6951	7097	
==>ail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$e <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7415	7561	
==>ail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2386	2524	
==>ncat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternatio <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2397	2535	
==>ncat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3993	4108	
==>larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3993	4108	
==>larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3993	4108	
==>larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1198	1306	
==>oes longest match based on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1547	1653	
==>oes longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1154	1260	
==>oes longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1547	1653	
==>oes longest match based on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14696	14792	
==>orm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27939	28035	
==>threading perl, or a different version.

If you're using the F<prove> utility, you can use the C< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14696	14792	
==>orm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14696	14792	
==>orm to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $labe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35471	35576	
==>@_;
    my @kids = @{ $self->{data} };

Here, @kids is an array that holds array references; each of those <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1737	1863	
==>able      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (defa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1737	1863	
==>able      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (defa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1737	1863	
==>able      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (defa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	456	553	
==>hift;
	die "generic reductions don't make sense while interpreting ($node)";
}

sub reduce_val { $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	623	754	
==>header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthor <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	623	754	
==>header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthor <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2902	3013	
==>>{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "EN <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5101	5211	
==>>{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"EN <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3401	3510	
==>qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcdir/* $builddir/$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2185	2289	
==>(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2185	2289	
==>(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2185	2289	
==>(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12870	12978	
==>s still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12870	12978	
==>s still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8802	8907	
==>} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8511	8613	
==>} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31450	31551	
==>hat don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	457	551	
==>:Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	457	551	
==>:Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	457	551	
==>:Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) { <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2366	2471	
==>re_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2366	2471	
==>re_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16272	16366	
==>ntains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16272	16366	
==>ntains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three sp <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	62	156	
==>rness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporter;
us <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6117	6209	
==>gs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6117	6209	
==>gs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6117	6209	
==>gs == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5376	5504	
==>>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5376	5504	
==>>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5376	5504	
==>>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1208	1297	
==>turn $dir->file( $self->config->_registered_alternatives );
}

=head2 $file = $inst->avail <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9711	9873	
==>s( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3474	3582	
==>_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3474	3582	
==>_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3474	3582	
==>_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1051	1168	
==>equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1031	1148	
==>equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1051	1168	
==>equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1031	1148	
==>equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23529	23639	
==>lice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23529	23639	
==>lice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23529	23639	
==>lice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30601	30703	
==>>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consumptive, which is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13477	13660	
==>:capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13756	13939	
==>:capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1890	2024	
==>> Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1890	2024	
==>> Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( sta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4482	4610	
==>tus->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2416	2515	
==>r, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2416	2515	
==>r, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2416	2515	
==>r, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rin <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	565	687	
==>st ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::ab <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	364	475	
==>parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junct <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	364	475	
==>parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junct <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8230	8335	
==>g: ", $Strap->_command_line($tfile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) or <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5550	5681	
==>$ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.n <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5550	5681	
==>$ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.n <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1976	2076	
==>sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1976	2076	
==>sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4319	4432	
==>s Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4319	4432	
==>s Set {
    $one.not_equal($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5192	5304	
==>s Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5192	5304	
==>s Set {
    $one.not_equal($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19939	20169	
==>y($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19939	20169	
==>y($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19939	20169	
==>y($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - c <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13888	13995	
==>pod = catfile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19139	19262	
==>rn Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	842	957	
==>.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	842	957	
==>.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	842	957	
==>.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? spri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3947	4048	
==>lf->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1254	1355	
==>lf->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", ' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	811	986	
==>@args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	811	986	
==>@args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12574	12676	
==>$S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6049	6151	
==>$S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7398	7527	
==>it'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7398	7527	
==>it'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7398	7527	
==>it'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34646	34735	
==>nd finally in
F<Regexp::Parser::__object__>.

Here is the definition of F<Regexp::AndBranc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	148	268	
==>ce;
my $dumper;

# which modules do diffrent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	474	578	
==>-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	474	578	
==>-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	474	578	
==>-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6353	6469	
==>eturncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6353	6469	
==>eturncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6353	6469	
==>eturncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22333	22440	
==>ed escape" warnings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7930	8044	
==>dbg "# Context:   "; my $context =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = trav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1704	1799	
==>> $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1704	1799	
==>> $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1704	1799	
==>> $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4298	4399	
==>if $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4298	4399	
==>if $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4298	4399	
==>if $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete(' <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16392	16485	
==>xpression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <EqualityExpression <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13391	13496	
==>ional skip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, $extr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	279	381	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	279	381	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	279	381	
==>nsuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4541	4648	
==>ted line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4541	4648	
==>ted line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($e <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1364	1464	
==>turns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my metho <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1364	1464	
==>turns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1914	2014	
==>ther => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', ass <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1914	2014	
==>ther => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', ass <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4328	4423	
==>hen used as a hash reference, the match object returns named captures
as match objects, keyed by <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4328	4423	
==>hen used as a hash reference, the match object returns named captures
as match objects, keyed by <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2893	3015	
==>single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ < <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2893	3015	
==>single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ < <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14625	14717	
==>ike encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and nev <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14625	14717	
==>ike encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and nev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5006	5172	
==>eton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5006	5172	
==>eton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5006	5172	
==>eton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                } <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	852	958	
==>installsitebin} || $Config{installsbin},

        installman1dir     => $Config{installman1dir},
        in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1337	1493	
==>arse( $match, { p => 1 } );
            last if ( $m );
            #}
            
            # XXX temporary hack - matching options in 'expected' order s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2803	2899	
==>umber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2803	2899	
==>umber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2803	2899	
==>umber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Nu <==
4	/Users/nnunley/pugs/util/importgraph.pl	509	617	
==>yout => $layout,
  directed => 1,
  rankdir => 1,
  overlap => $overlap,
);

my %modules;
find sub {
  return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8736	8839	
==>}xgc) {
      return $S->force_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->objec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23635	23729	
==>mands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23635	23729	
==>mands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2759	2860	
==>lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Inte <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2759	2860	
==>lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Inte <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2759	2860	
==>lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Inte <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6486	6586	
==>nfo } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\n".<<'END';
sub is_slurpy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6413	6628	
==>dulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6413	6628	
==>dulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6413	6628	
==>dulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ". <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5751	5837	
==>lf->display_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) unless de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1950	2082	
==>"Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_depend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	188	282	
==>is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	188	282	
==>is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	188	282	
==>is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13715	13865	
==>($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3840	3978	
==>($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3840	3978	
==>($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3840	3978	
==>($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	81	200	
==>ct;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	123	242	
==>ct;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	81	200	
==>ct;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	123	242	
==>ct;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \&hash,
    'bool'   => \&b <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6170	6286	
==>rt_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NA <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6170	6286	
==>rt_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7573	7678	
==>[ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'nam <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7573	7678	
==>[ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'nam <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3800	3975	
==>\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3800	3975	
==>\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative pa <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1222	1318	
==>of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, s <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1222	1318	
==>of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3080	3250	
==>_('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3080	3250	
==>_('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3080	3250	
==>_('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $th <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	233	325	
==>base 'Object::Accessor';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/met <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9531	9651	
==>hen we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise . <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9531	9651	
==>hen we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise . <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16728	16829	
==>ns its results for calling code to output as it sees fit.  It
also does not make direct use of environ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16728	16829	
==>ns its results for calling code to output as it sees fit.  It
also does not make direct use of environ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6910	7043	
==>->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6910	7043	
==>->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6910	7043	
==>->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => u <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	698	798	
==>ie::Backend::Perl; # something to run the program
    
    my $result = Blondie::Backend::Perl->new-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4025	4175	
==>- pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4025	4175	
==>- pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::I <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4025	4175	
==>- pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3960	4095	
==>dd_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__->ad <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6415	6521	
==>e "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5488	5594	
==>e "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6415	6521	
==>e "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5488	5594	
==>e "Unbalanced modifier(s) found (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3765	3859	
==>uldn't need to have documentation/comments. If you need something
with more power, move up to C <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3765	3859	
==>uldn't need to have documentation/comments. If you need something
with more power, move up to C <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10361	10454	
==>er(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<encip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10361	10454	
==>er(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<encip <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11506	11624	
==>stall location
        @inc = grep !/perl_root/i, @inc;

    } elsif ( $self->{_is_win32} ) {
        # Lose any traili <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6145	6256	
==>$gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6145	6256	
==>$gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6145	6256	
==>$gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18003	18095	
==>n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18003	18095	
==>n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18003	18095	
==>n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_t <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5915	6014	
==>multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5045	5144	
==>multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5915	6014	
==>multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5045	5144	
==>multi sub *infix:«⊆» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6315	6458	
==>t get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ => File::Spe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18174	18326	
==>: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18174	18326	
==>: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18174	18326	
==>: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    retu <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6732	6843	
==>$file = "tests.$pid.yml";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) o <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3376	3501	
==>e<Package>).add_children(
                    Tree.new(:node<Module>).add_children(
                        Tree.new(:node<Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10404	10513	
==>ted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10404	10513	
==>ted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10404	10513	
==>ted>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the fol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1933	2036	
==>ite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1933	2036	
==>ite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1933	2036	
==>ite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	699	870	
==>k eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') {
            push @stack, int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7287	7434	
==>>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7287	7434	
==>>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7287	7434	
==>>new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is cop <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5701	5817	
==>$::Class = opaque->new(
        reference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8207	8321	
==>> sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8207	8321	
==>> sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8207	8321	
==>> sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6310	6410	
==>ugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	220	312	
==>l6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	220	312	
==>l6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	220	312	
==>l6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
re <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2490	2599	
==>ined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $en <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3418	3527	
==>ined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2490	2599	
==>ined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3418	3527	
==>ined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $en <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17754	17849	
==>e Rosetta D statements and routines
within the virtual machine, input data to it, and output dat <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17754	17849	
==>e Rosetta D statements and routines
within the virtual machine, input data to it, and output dat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18993	19084	
==>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
spe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18993	19084	
==>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
spe <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17714	17830	
==>tr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16005	16108	
==>MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16005	16108	
==>MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16005	16108	
==>MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3250	3456	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3250	3456	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11586	11712	
==>er and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livech <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11586	11712	
==>er and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livech <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8468	8606	
==>m
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3524	3630	
==>2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3524	3630	
==>2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3524	3630	
==>2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	920	1049	
==>ng) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matchi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	920	1049	
==>ng) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matchi <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	179	281	
==>handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy, <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	179	281	
==>handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9593	9711	
==>( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9593	9711	
==>( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9593	9711	
==>( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            pu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1893	2007	
==>}
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass (@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2775	2877	
==>[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2775	2877	
==>[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2775	2877	
==>[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4570	4665	
==>::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $conten <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4570	4665	
==>::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $conten <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9480	9572	
==>re private, so you must use accessor methods.
Rosetta::Model does not declare any subroutines <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9480	9572	
==>re private, so you must use accessor methods.
Rosetta::Model does not declare any subroutines <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1856	1953	
==>N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1856	1953	
==>N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1856	1953	
==>N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	27	136	
==>Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	25	134	
==>Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
u <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4384	4479	
==>*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4384	4479	
==>*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4636	4800	
==>ource .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4636	4800	
==>ource .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4636	4800	
==>ource .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	864	986	
==>urn { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        nam <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	405	516	
==>q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	896	1007	
==>q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	405	516	
==>q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object t <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	896	1007	
==>q[ of Hash refs, where each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15055	15209	
==>get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15055	15209	
==>get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15055	15209	
==>get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	420	514	
==>h = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	420	514	
==>h = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pi <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	172	262	
==>method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_nod <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	172	262	
==>method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_nod <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2773	2897	
==>se );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2773	2897	
==>se );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	970	1066	
==>Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	970	1066	
==>Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4035	4148	
==>he simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4035	4148	
==>he simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4035	4148	
==>he simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18588	18682	
==>ely> redundant (that is, I<every>
character in that embedded class is already found in the clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11158	11307	
==>=> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11158	11307	
==>=> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11158	11307	
==>=> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_ <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	414	559	
==>ub duration( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    ret <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3350	3464	
==>->provides(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $name     = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2643	2747	
==>'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = joi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2643	2747	
==>'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = joi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2643	2747	
==>'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7022	7164	
==>5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7022	7164	
==>5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7022	7164	
==>5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scal <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9621	9722	
==>lt;
 }

 multi Array::reverse (   @values --> Lazy|Str) {
 multi  List::reverse ( *@values --> Lazy|St <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7940	8040	
==>], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3542	3638	
==>m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7670	7766	
==>], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3726	3822	
==>m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9455	9569	
==>rgs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9455	9569	
==>rgs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9455	9569	
==>rgs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(v <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7420	7533	
==>NARY );
  goto expect_oper;

  reduce:
  my $temp1 = pop @tokenStack;
  my $temp2 = $$temp1{syncat};
  if ( $temp2 <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3436	3579	
==>{
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3739	3882	
==>{
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3436	3579	
==>{
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng. <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3739	3882	
==>{
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	545	647	
==>file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11757	11842	
==>ile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11757	11842	
==>ile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11757	11842	
==>ile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	794	889	
==>$::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	794	889	
==>$::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	794	889	
==>$::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this i <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1087	1175	
==>ken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2773	2888	
==>%*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can conn <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2773	2888	
==>%*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can conn <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	106	201	
==>ME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	106	201	
==>ME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1989	2105	
==>er::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs( <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1989	2105	
==>er::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	421	523	
==>ebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	421	523	
==>ebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->com <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3019	3119	
==>he test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fai <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3019	3119	
==>he test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3099	3199	
==>he test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fai <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1594	1693	
==>otstrap approaches to rules, so this
file may or may not go anywhere.  The plan as of this moment is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14495	14658	
==>size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14495	14658	
==>size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14495	14658	
==>size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13537	13638	
==>s must follow something
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	240	347	
==>e > 0 })
    returns Num { ... }

# mmm, curry!
&log10<> := &log<>.assuming:base(10);

multi sub rand (; Num <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2897	2994	
==>sibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2897	2994	
==>sibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2897	2994	
==>sibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1277	1372	
==>stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1277	1372	
==>stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1277	1372	
==>stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5441	5532	
==>e "Failed to open $index_file: $!";
my $template = HTML::Template->new(filename => 'util/cat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10710	10833	
==>method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10710	10833	
==>method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

su <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10710	10833	
==>method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4138	4237	
==>_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4138	4237	
==>_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $ev <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25770	25867	
==>to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Mess <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25770	25867	
==>to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Mess <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	5	123	
==>trict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use Fi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	5	123	
==>trict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use Fi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5958	6062	
==>ns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5958	6062	
==>ns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13552	13686	
==>et = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13552	13686	
==>et = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13552	13686	
==>et = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8468	8596	
==>class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clump',
      t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8156	8280	
==>s:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7882	8001	
==>s:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1684	1785	
==>n find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1684	1785	
==>n find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4359	4499	
==>t open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20990	21087	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20990	21087	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20990	21087	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ( <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1123	1282	
==>=> $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1513	1616	
==>""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1513	1616	
==>""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash w <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1513	1616	
==>""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash w <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4060	4188	
==>->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = " <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3011	3125	
==>->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = " <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25474	25570	
==>tr - This uniquely identifies the type of message that the object
represents (or gives the name o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25474	25570	
==>tr - This uniquely identifies the type of message that the object
represents (or gives the name o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10584	10700	
==>0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10584	10700	
==>0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4569	4669	
==>e a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / interse <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4569	4669	
==>e a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / interse <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3385	3525	
==>tifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3373	3513	
==>tifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9339	9475	
==>else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9327	9463	
==>else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \ <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1375	1514	
==>text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $nod <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1375	1514	
==>text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6044	6137	
==>pile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options.. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5835	5927	
==>pile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	440	549	
==>g('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1018	1122	
==>.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1018	1122	
==>.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1018	1122	
==>.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	106	211	
==>..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1373	1471	
==>rray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1373	1471	
==>rray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1373	1471	
==>rray.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	783	912	
==>TANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	783	912	
==>TANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	783	912	
==>TANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instan <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4280	4408	
==>}
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5601	5729	
==>}
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4280	4408	
==>}
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5589	5717	
==>}
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2609	2761	
==>s != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2609	2761	
==>s != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2609	2761	
==>s != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5034	5165	
==>} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_, <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3972	4078	
==>ype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue - <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3972	4078	
==>ype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue - <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15053	15143	
==>ve Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15053	15143	
==>ve Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1972	2075	
==>{
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1972	2075	
==>{
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27738	27833	
==>s, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27738	27833	
==>s, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1524	1682	
==>@$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1472	1624	
==>@$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38300	38395	
==>ariables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38300	38395	
==>ariables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	727	847	
==>fic-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hell <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	692	803	
==>fic-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hell <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8152	8257	
==>ing, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.esc <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8152	8257	
==>ing, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.esc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24075	24175	
==>of
  this rule is to avoid loops between a client automatically sending something
  in response to so <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22848	22948	
==>of
  this rule is to avoid loops between a client automatically sending something
  in response to so <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24075	24175	
==>of
  this rule is to avoid loops between a client automatically sending something
  in response to so <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22848	22948	
==>of
  this rule is to avoid loops between a client automatically sending something
  in response to so <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8893	9074	
==>$_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next un <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5253	5434	
==>$_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6102	6283	
==>$_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next un <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3753	3917	
==>{ scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18319	18433	
==>( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	325	431	
==>s_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	325	431	
==>s_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	325	431	
==>s_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle( <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8208	8354	
==>losure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8208	8354	
==>losure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $se <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6103	6199	
==>as one long string.

=item List Context

All headers are returned split into the respective
lines <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6103	6199	
==>as one long string.

=item List Context

All headers are returned split into the respective
lines <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7770	7887	
==>s/_//g foreach $x, $y;

    return $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2120	2221	
==>, "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2120	2221	
==>, "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2120	2221	
==>, "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+", <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	704	847	
==>protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	704	847	
==>protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	940	1031	
==>pecified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	940	1031	
==>pecified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5536	5634	
==>3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5536	5634	
==>3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5536	5634	
==>3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6142	6237	
==>ss)->{'@:roles'} = [ $Role ];
$_resolve->($Class);

# Bootstrap -> Role does Role
::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1808	1934	
==>class (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('supercla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4523	4613	
==>strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4523	4613	
==>strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4523	4613	
==>strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pai <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9028	9150	
==>::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splic <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2491	2612	
==>f ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $c <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2491	2612	
==>f ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $c <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	486	595	
==>::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splic <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4052	4170	
==>t) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4052	4170	
==>t) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cur <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4052	4170	
==>t) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5223	5317	
==>=> $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1514	1622	
==>e::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without an <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1276	1384	
==>e::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without an <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1514	1622	
==>e::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without an <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1276	1384	
==>e::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Without an <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12609	12708	
==>ple usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $do <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12609	12708	
==>ple usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $do <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16344	16437	
==>($builtin->can("digest") and my $native = $r->provides($builtin->digest)){
        $val->set($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28913	29036	
==>' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28913	29036	
==>' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	276	387	
==>' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    ' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4718	4818	
==>section
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mod <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3845	3945	
==>section
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mod <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4718	4818	
==>section
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mod <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3845	3945	
==>section
multi sub *infix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# mod <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3635	3761	
==>/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 lev <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3635	3761	
==>/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 lev <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5967	6081	
==>e {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5967	6081	
==>e {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2397	2530	
==>greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '?? <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8956	9089	
==>greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '?? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2397	2530	
==>greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '?? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8952	9085	
==>greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '?? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6961	7090	
==>$match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6961	7090	
==>$match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1818	1914	
==>in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F<t <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1818	1914	
==>in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F<t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9280	9389	
==>])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9280	9389	
==>])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9280	9389	
==>])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sp <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	962	1070	
==>p6
GROK
   exit(1);
}

sub GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$scri <==
4	/Users/nnunley/pugs/util/addauthors.pl	368	462	
==>authors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} key <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5136	5228	
==>recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5136	5228	
==>recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6660	6752	
==>recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14246	14349	
==>, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I< <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14246	14349	
==>, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1559	1661	
==>ew
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some high <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1559	1661	
==>ew
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some high <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6049	6176	
==>ss = ($got <= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $exp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3623	3734	
==>" relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7100	7211	
==>" relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6057	6168	
==>" relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7071	7213	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't suppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7071	7213	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't suppo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7071	7213	
==>$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't suppo <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4526	4622	
==>)?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4161	4293	
==>ed;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4161	4293	
==>ed;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4161	4293	
==>ed;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20564	20661	
==>pt alarm bind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[g <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2855	2978	
==>0) {
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead'} = un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	681	779	
==>lass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::AT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	681	779	
==>lass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::AT <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	681	779	
==>lass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::AT <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3838	3954	
==>locate "Syck_stub.o" and copy it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $target <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6065	6162	
==>::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6065	6162	
==>::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6065	6162	
==>::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->item <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7503	7614	
==>rl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inclu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7503	7614	
==>rl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inclu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4736	4827	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4986	5077	
==>e Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1866	2026	
==>'$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1866	2026	
==>'$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1866	2026	
==>'$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12564	12710	
==>ge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14361	14538	
==>ethods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14361	14538	
==>ethods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14361	14538	
==>ethods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14336	14441	
==>es

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self->availab <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3765	3992	
==>{
                my $type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compili <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1414	1513	
==>, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1414	1513	
==>, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1414	1513	
==>, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline(' <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1361	1472	
==>ct {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object repres <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1361	1472	
==>ct {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object repres <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15111	15213	
==>digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Ex <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15111	15213	
==>digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Ex <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5963	6058	
==>m>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This progra <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5963	6058	
==>m>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This progra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7316	7481	
==>name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7316	7481	
==>name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7316	7481	
==>name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq ' <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19899	19989	
==>nals::string_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Nu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9966	10093	
==>closure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '.. <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9342	9578	
==>t dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10819	11055	
==>t dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8855	8953	
==>h a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The fol <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8855	8953	
==>h a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The fol <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	538	660	
==>num:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	798	920	
==>num:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1070	1192	
==>num:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26930	27032	
==>tically, but if you are sub-classing it, you'll probably want
to call it in your own module.

  package <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3341	3437	
==>mplete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3341	3437	
==>mplete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	239	335	
==>pan.

Please refer the documentation of the other Modules in the JIB namespace for
details.

=hea <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4178	4266	
==>?", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13651	13759	
==>((stat$_)[2]&0020)) }
		    split quotemeta ($sep), $1;

	$runperl =~ /(.*)/s;
	$runperl = $1;

	$result = `$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1750	1852	
==>" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1750	1852	
==>" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1750	1852	
==>" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6639	6751	
==>e { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6639	6751	
==>e { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6639	6751	
==>e { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::r <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16278	16381	
==>env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $nativ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3045	3173	
==>"abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3045	3173	
==>"abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3045	3173	
==>"abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1668	1775	
==>@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1222	1332	
==>ame => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entry <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1222	1332	
==>ame => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entry <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1222	1332	
==>ame => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entry <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3334	3436	
==>nt parse. using simplified one.
#multi Array::shift ( --> Scalar ) {
multi Array::shift (  ) {
    Arra <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1744	1853	
==>=> $self ) ) {
        error("Package '". $self->package ."' is already installed --skipping");
        return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	162	257	
==>hods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't check <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	162	257	
==>hods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't check <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	162	257	
==>hods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't check <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	555	675	
==>aceTermTable 
    whitespaceOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3677	3786	
==>$i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3677	3786	
==>$i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $D <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3677	3786	
==>$i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $D <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4296	4408	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
} <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3423	3535	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4296	4408	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3423	3535	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
} <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4969	5076	
==>rs_guide/x11221.html
.
    }
}

sub assert_ghc {
    my $self = shift;
    my $ghc = $self->can_run($ENV{GHC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2643	2741	
==>ading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2643	2741	
==>ading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2643	2741	
==>ading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	183	292	
==>L2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	183	292	
==>L2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	183	292	
==>L2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@va <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18726	18830	
==>l($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") if -e "deleteme_code.pl";}
my $eva <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19704	19801	
==>tomatically tries to use slight variations of the nickname in the
login phase (for example C<bot_> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18685	18782	
==>tomatically tries to use slight variations of the nickname in the
login phase (for example C<bot_> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19704	19801	
==>tomatically tries to use slight variations of the nickname in the
login phase (for example C<bot_> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18685	18782	
==>tomatically tries to use slight variations of the nickname in the
login phase (for example C<bot_> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3373	3510	
==>w()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3373	3510	
==>w()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3373	3510	
==>w()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12044	12191	
==>ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12044	12191	
==>ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12044	12191	
==>ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2650	2750	
==>$node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3935	4107	
==>y),  
    # rest of the class 
        get_z => sub { $z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3314	3414	
==>>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3314	3414	
==>>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3314	3414	
==>>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->typ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25878	25969	
==>define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_ANCH_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13978	14085	
==>old other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13978	14085	
==>old other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19766	19862	
==>is immutable.  The value of
a Relation object is determined when it is constructed, and the objec <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24318	24414	
==>is immutable.  The value of
a Relation object is determined when it is constructed, and the objec <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1498	1599	
==>eport_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1498	1599	
==>eport_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1578	1679	
==>eport_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2684	2779	
==>mple.  For fprime, the
example goes on step further and Curries approxfprime with the user suppl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2193	2297	
==>$::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2193	2297	
==>$::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2193	2297	
==>$::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class { <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	793	891	
==>ng more superclasses to a Class, all of the methods that are
included via roles will be able to acc <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1709	1876	
==>terion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sor <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	184	285	
==>[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	184	285	
==>[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on obj <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	184	285	
==>[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on obj <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35695	35951	
==>symbol->new('$attribute' => 'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get(' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1480	1643	
==>TP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1480	1643	
==>TP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	619	715	
==>ls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it wa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	619	715	
==>ls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it wa <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9534	9640	
==>l new (%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9141	9241	
==>args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9141	9241	
==>args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir - <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9141	9241	
==>args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1105	1227	
==>al>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	377	473	
==>clone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	377	473	
==>clone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	377	473	
==>clone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4408	4522	
==>nfess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

sub eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	772	872	
==>$a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	772	872	
==>$a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	772	872	
==>$a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { <==
4	/Users/nnunley/pugs/util/testgraph.pl	1008	1129	
==>tions:

   --inlinecss, -e      inline css in HTML header (for broken webservers)
   --cssfile,  -c FILE  location of css. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4349	4457	
==>allreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4349	4457	
==>allreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4349	4457	
==>allreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pil <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14138	14253	
==>am pmc mob
    .local string target
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local strin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4866	4971	
==>od($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4866	4971	
==>od($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4866	4971	
==>od($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3089	3214	
==>d($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3089	3214	
==>d($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	499	609	
==>que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2027	2137	
==>que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12376	12551	
==>ec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12376	12551	
==>ec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12376	12551	
==>ec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15658	15791	
==>}

sub ternary {
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2363	2507	
==>defined $:expect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1364	1460	
==>$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1364	1460	
==>$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1364	1460	
==>$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2 <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9290	9392	
==>is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS- <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9290	9392	
==>is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS- <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1172	1267	
==>ITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the lett <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1172	1267	
==>ITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the lett <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1253	1353	
==>alls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1253	1353	
==>alls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1253	1353	
==>alls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PI <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7354	7450	
==>fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val->struct_e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2548	2644	
==>://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2548	2644	
==>://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1761	1853	
==>://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3622	3714	
==>://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Nathan Gr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	651	751	
==>C hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_ite <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	651	751	
==>C hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_ite <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23871	23963	
==>know about language specific details like
encodings or plurality.

My understanding of altern <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23871	23963	
==>know about language specific details like
encodings or plurality.

My understanding of altern <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	72	173	
==>ELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= a <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	72	173	
==>ELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16737	16831	
==>e could write a self-contained application in
Rosetta D and compile that into its own executabl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16737	16831	
==>e could write a self-contained application in
Rosetta D and compile that into its own executabl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2415	2636	
==>,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7768	7916	
==>=> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7768	7916	
==>=> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #w <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7768	7916	
==>=> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24221	24358	
==>p::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24500	24637	
==>p::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17020	17148	
==>ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17299	17427	
==>ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9444	9547	
==>e 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <HexEscape <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	40	142	
==>= "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Dr <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	36	138	
==>= "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Dr <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	36	138	
==>= "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Dr <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5182	5309	
==>,               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtV <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5182	5309	
==>,               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9468	9578	
==>------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9468	9578	
==>------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9468	9578	
==>------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	39	131	
==>INC, "/home/eric256/auto/pugs/ext/CGI/lib" };
use CGI;
#use perl5:HTML::Template;
#use perl5: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14652	14750	
==>Close the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14652	14750	
==>Close the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	382	478	
==>0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1109	1202	
==>0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5519	5701	
==>' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15065	15184	
==>m::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15065	15184	
==>m::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15065	15184	
==>m::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    ret <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7057	7206	
==>ys.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result ! <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5558	5707	
==>ys.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result ! <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3336	3432	
==>ath, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@f <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3336	3432	
==>ath, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27181	27301	
==>_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27181	27301	
==>_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21870	21990	
==>'(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18291	18411	
==>'(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14059	14190	
==>3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_ge <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14059	14190	
==>3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_ge <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5866	5964	
==>m Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5866	5964	
==>m Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2838	3050	
==>rl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2838	3050	
==>rl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DE <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2838	3050	
==>rl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DE <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1643	1783	
==>)) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
op <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5626	5730	
==>, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4756	4860	
==>, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5626	5730	
==>, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mu <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4756	4860	
==>, Set $two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
mu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11215	11335	
==>}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11215	11335	
==>}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11215	11335	
==>}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset th <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2584	2679	
==>ption you'll have to specify is probably --initrd-mnt.

Note: I only tested this program on Linu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4154	4269	
==>ue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4154	4269	
==>ue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4154	4269	
==>ue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5432	5536	
==>::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5432	5536	
==>::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5432	5536	
==>::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22106	22204	
==>ation of the regex.

=item len

The length of the original string representation of the regex.

=it <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	749	876	
==>ized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not All <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	749	876	
==>ized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not All <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9240	9379	
==>est::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descripti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1362	1495	
==>est::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1362	1495	
==>est::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descripti <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12781	12892	
==>_str_handlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" },
      numeric     => sub { " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3622	3743	
==>] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        boo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3815	3936	
==>] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        boo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	599	761	
==>> 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( error( Params <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	100	228	
==>ct;
use warnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1499	1594	
==>el_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1499	1594	
==>el_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pre <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1499	1594	
==>el_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pre <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2077	2191	
==>us;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2077	2191	
==>us;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7347	7445	
==>egex($regex)

Clears the parser's memory and sets $regex as the regex to be parsed.

=back

These t <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5843	5949	
==>ax} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_reason}) ) {
        $ty <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8103	8200	
==>sts of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
the <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8103	8200	
==>sts of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3015	3133	
==>prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP serv <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3015	3133	
==>prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP serv <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2517	2634	
==>$message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_inf <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2517	2634	
==>$message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_inf <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1865	1984	
==>' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1865	1984	
==>' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	767	868	
==>Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	767	868	
==>Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11486	11583	
==>-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11486	11583	
==>-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11486	11583	
==>-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_f <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17334	17442	
==>ge data
which Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	337	433	
==>::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	337	433	
==>::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	337	433	
==>::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15718	15844	
==>ub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15718	15844	
==>ub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15718	15844	
==>ub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22316	22425	
==>];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if ! <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2310	2447	
==>ch if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2236	2365	
==>ch if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34322	34416	
==>s a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set f <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34322	34416	
==>s a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set f <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	2675	2771	
==>od day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pr <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2675	2771	
==>od day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pr <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1705	1793	
==>t = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plainte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1705	1793	
==>t = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plainte <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9206	9361	
==>1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; g <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10197	10352	
==>1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; g <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8641	8728	
==>describes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8641	8728	
==>describes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1679	1783	
==>ft(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax err <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1679	1783	
==>ft(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax err <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1679	1783	
==>ft(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax err <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2146	2246	
==>e 2 char strings such as \n
my %backslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backs <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	739	855	
==>m";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    m <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	739	855	
==>m";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	224	326	
==>cause all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	215	316	
==>cause all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be w <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2129	2253	
==>) if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}" <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2129	2253	
==>) if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}" <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	550	655	
==>);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2078	2183	
==>);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10130	10243	
==>2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3886	3994	
==>"" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <la <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3886	3994	
==>"" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <la <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3886	3994	
==>"" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <la <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1429	1533	
==>sh) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1429	1533	
==>sh) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1429	1533	
==>sh) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1500	1598	
==>ew_pad("name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1973	2139	
==>};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1973	2139	
==>};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1973	2139	
==>};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $t <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1809	1927	
==>};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9806	9921	
==>_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9806	9921	
==>_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9806	9921	
==>_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "requi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3493	3590	
==>urbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3493	3590	
==>urbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5341	5438	
==>kage type::variable::free;
use base qw/type::variable/;

# a free variable is a placeholder
# when <==
4	/Users/nnunley/pugs/util/package-osx.pl	7312	7409	
==>an3/Perl6::Spec::CPAN.3
        /usr/local/man/man3/Perl6::Spec::CPAN.3pm
        /usr/local/man/m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1571	1724	
==>NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8825	8925	
==>$p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8825	8925	
==>$p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8825	8925	
==>$p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction vi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4334	4516	
==>} eq 'module' ) {
            # Moose: package xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10228	10396	
==>ent>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6569	6737	
==>ent>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7418	7586	
==>ent>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10531	10639	
==>'$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10531	10639	
==>'$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10531	10639	
==>'$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " <==
4	/Users/nnunley/pugs/util/claim_drift.pl	731	828	
==>$orig (glob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13542	13642	
==>e a real problem.
  [It was.  The regexp implementation is intimately entangled with
  the rest of pe <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	62	157	
==>base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Sp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	67	161	
==>base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Sp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	65	159	
==>base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Sp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6761	6919	
==>undary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_st <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6761	6919	
==>undary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_st <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5984	6094	
==>my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HT <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5984	6094	
==>my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HT <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1712	1820	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1712	1820	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (No <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20150	20243	
==>roak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authoriz <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20150	20243	
==>roak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authoriz <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13853	14003	
==>v, (~ $start)..(~ $end);

                $string = substr($string,$idx+2);
            }

            push @rv, $string.split('');
            push @r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3966	4100	
==>v, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3966	4100	
==>v, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3966	4100	
==>v, (~ $start)..(~ $end);

            $string = substr($string,$idx+2);
        }

        push @rv, $string.split('');
        push @r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8377	8557	
==>nt_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8377	8557	
==>nt_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8377	8557	
==>nt_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/util/version_h.pl	1000	1110	
==>sif (my @info = qx/svk info/ and $? == 0) {
    print "Writing version from `svk info` to $version_h\n";
    if <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	104	233	
==>rementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und als @x speichern
#=andere Hyper-Operatoren
$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2555	2656	
==>mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2555	2656	
==>mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2555	2656	
==>mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js(" <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1181	1295	
==>uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_un <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1181	1295	
==>uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_un <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37060	37154	
==>ituation where a pair of source
relations have zero attributes in common, their joining degener <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41609	41703	
==>ituation where a pair of source
relations have zero attributes in common, their joining degener <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41232	41326	
==>ituation where a pair of source
relations have zero attributes in common, their joining degener <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15143	15237	
==>rd", respectively.  C<< /</ >> is equivalent to
C</(?!\w)(?=\w)/>, and C<< />/ >> is equivalent <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1583	1711	
==>ath);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktex <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1583	1711	
==>ath);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktex <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	25	121	
==>:Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	25	117	
==>:Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6719	6822	
==>od insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6719	6822	
==>od insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2965	3065	
==>other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2965	3065	
==>other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Ret <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12725	12857	
==>p
    descr  => "Copying shared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { " <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	114	233	
==>t_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'ne <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	114	233	
==>t_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'ne <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	114	233	
==>t_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'ne <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	114	233	
==>t_element',
    'end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'ne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13939	14059	
==>so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so ever <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13939	14059	
==>so we
        # PING the server. If the connection is still alive, the server will
        # respond with a PONG, so ever <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13009	13121	
==>so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so ever <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13009	13121	
==>so we
    # PING the server. If the connection is still alive, the server will
    # respond with a PONG, so ever <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6678	6781	
==>rray.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value:: <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6678	6781	
==>rray.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	856	967	
==>_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	856	967	
==>_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1754	1854	
==>($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exis <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2076	2176	
==>($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1737	1843	
==>---- the following were included only for performance reasons,

# because they are too frequent and they ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	340	445	
==>---- the following were included only for performance reasons,
# because they are too frequent and they ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1665	1770	
==>---- the following were included only for performance reasons,
# because they are too frequent and they ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	351	456	
==>---- the following were included only for performance reasons,
# because they are too frequent and they ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15925	16080	
==>k'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16204	16359	
==>k'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             rul <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3578	3690	
==>eturn $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersectio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3578	3690	
==>eturn $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3066	3237	
==>lass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3066	3237	
==>lass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->super <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3066	3237	
==>lass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->super <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2173	2311	
==>);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12650	12798	
==>h ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12929	13077	
==>h ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3053	3159	
==>ccurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3053	3159	
==>ccurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my % <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7735	7849	
==>ix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7735	7849	
==>ix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7735	7849	
==>ix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1897	1989	
==>lessed($node) ? $self->SUPER::reduce($node->struct_equiv) : $node;
	}
}

{
	package Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1318	1410	
==>and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1318	1410	
==>and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1318	1410	
==>and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1466	1718	
==>)
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2637	2751	
==>y) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2637	2751	
==>y) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2637	2751	
==>y) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2743	2845	
==>exp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $n <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9976	10207	
==>} else {
          $lines->{$line} = ($test->{ok}||0 ==1 ? 1 : 0);
          }
          }
      }
  }
                                                                                           
  my $infile  = IO::File->new($input_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5130	5260	
==>xed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5130	5260	
==>xed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5130	5260	
==>xed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4194	4309	
==>- Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4194	4309	
==>- Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4194	4309	
==>- Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ". <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24174	24283	
==>te phase to run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Null <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5220	5350	
==>, "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $re <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5278	5408	
==>, "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	880	969	
==>lder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in t <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	880	969	
==>lder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in t <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	166	271	
==>er := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	166	271	
==>er := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7473	7568	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1701	1796	
==>E ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>s <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2751	2863	
==>$cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading propertie <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2751	2863	
==>$cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading propertie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2978	3071	
==>ock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fgloc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2870	2962	
==>ock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fgloc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2633	2739	
==>";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2773	2879	
==>";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2530	2625	
==>_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_c <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2530	2625	
==>_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15197	15367	
==>mented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15191	15361	
==>mented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5263	5373	
==>he353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5263	5373	
==>he353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40619	40734	
==>s ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40619	40734	
==>s ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40619	40734	
==>s ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Valu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1749	1845	
==>ugs distribution
somewhere with test files, and do objective 1 above.

If anyone would like to he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1134	1231	
==>@CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1134	1231	
==>@CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1134	1231	
==>@CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some var <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8052	8148	
==>our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBar->does('rFoo'), ' <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14290	14389	
==>rg/viewcvs/perl5/mirror/

  And of course man perlapi, etc.

  The perl regexp engine was long ago d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	768	866	
==>-------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	768	866	
==>-------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	768	866	
==>-------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3703	3883	
==>ings')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3703	3883	
==>ings')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3703	3883	
==>ings')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	503	595	
==>Regexp::Parser::Objects;
use Regexp::Parser::Handlers;


# this handles 'use base "Regexp::Pa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	833	928	
==>s at the byte level, not the character level, so different 
character encodings may be enciphere <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	833	928	
==>s at the byte level, not the character level, so different 
character encodings may be enciphere <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	607	701	
==>m_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	665	759	
==>m_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2971	3061	
==>$node->struct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : "cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	629	754	
==>}
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	629	754	
==>}
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	629	754	
==>}
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1935	2025	
==>ement { num->new((shift)->to_native + 1) }
sub decrement { num->new((shift)->to_native - 1) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	355	466	
==>ew sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	355	466	
==>ew sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	355	466	
==>ew sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	86	190	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use P <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2808	2911	
==>) returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2629	2732	
==>) returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2808	2911	
==>) returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2629	2732	
==>) returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4987	5094	
==>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4987	5094	
==>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4987	5094	
==>is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	330	425	
==>ub inc_paths {
	warn "inc_paths has been changed to cc_inc_paths due to confusion between Perl a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10960	11056	
==>o, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str : <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11018	11114	
==>o, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str : <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3912	4002	
==>her Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3912	4002	
==>her Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9246	9361	
==>$length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ( <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9246	9361	
==>$length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ( <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47326	47484	
==>e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12370	12507	
==>ifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12370	12507	
==>ifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12370	12507	
==>ifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retu <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3866	3989	
==>eturn anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1493	1596	
==>the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1493	1596	
==>the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sh <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1493	1596	
==>the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sh <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	168	269	
==>age hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9923	10094	
==>y {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11400	11571	
==>y {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5235	5329	
==>data> method returns a hash reference representing the configuration data

=item write

The C<w <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5235	5329	
==>data> method returns a hash reference representing the configuration data

=item write

The C<w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3117	3222	
==>$build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3117	3222	
==>$build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3117	3222	
==>$build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2824	2943	
==>];
$config{'postinst'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	320	414	
==>ed at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	320	414	
==>ed at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	320	414	
==>ed at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first para <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27382	27487	
==>butes; they
must all be set when the object is constructed.  If you want to
conceptually change an existin <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34908	35013	
==>butes;
they must all be set when the object is constructed.  If you want to
conceptually change an existin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27382	27487	
==>butes; they
must all be set when the object is constructed.  If you want to
conceptually change an existin <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34908	35013	
==>butes;
they must all be set when the object is constructed.  If you want to
conceptually change an existin <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	109	227	
==>er;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	109	227	
==>er;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6384	6531	
==>($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	245	356	
==>, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	245	356	
==>, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\. <==
4	/Users/nnunley/pugs/util/package-osx.pl	2874	2967	
==>/darwin-thread-multi-2level/CORE/pugs/pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12631	12724	
==>::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12631	12724	
==>::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12631	12724	
==>::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2829	2985	
==>my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unl <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3449	3605	
==>my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unl <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2829	2985	
==>my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unl <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3449	3605	
==>my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	922	1170	
==>dator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	922	1170	
==>dator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13949	14045	
==>oring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.ne <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13949	14045	
==>oring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.ne <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30445	30542	
==>the CPAN bug ticketing system at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and enhance <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3333	3427	
==>lX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3333	3427	
==>lX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3333	3427	
==>lX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : u <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3995	4143	
==>en) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3995	4143	
==>en) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.sp <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38140	38234	
==>text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38140	38234	
==>text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1407	1513	
==>se extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1407	1513	
==>se extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1407	1513	
==>se extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Ha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14574	14669	
==>TPOS (-25)

POSIX syntax [%s %s] belongs inside character classes

=item RPe_EMPTYB (-26)

Empty <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9789	9890	
==>strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

mult <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9789	9890	
==>strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

mult <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8304	8395	
==>lement ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_in <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8304	8395	
==>lement ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7039	7219	
==>urn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "Th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10516	10696	
==>urn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "Th <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	70	169	
==>_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getsto <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	70	169	
==>_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getsto <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	513	740	
==>pts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	513	740	
==>pts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	20068	20172	
==>rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, $output_dir);
    $outpath    =~ s/\.t$/\. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1120	1216	
==>CK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1120	1216	
==>CK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1120	1216	
==>CK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1316	1424	
==>ORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1316	1424	
==>ORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1316	1424	
==>ORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1390	1500	
==>pl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3840	3938	
==>s $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3840	3938	
==>s $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4430	4528	
==>s $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36861	37011	
==>tch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new('@ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12423	12531	
==>E' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12423	12531	
==>E' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Me <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30371	30465	
==>t didn't actually match.  The real closing parenthesis handler
is:

  $self->add_handler('c)' = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1894	2060	
==>_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2141	2307	
==>_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4749	4883	
==>||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	617	714	
==>avor, however, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Schem <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40045	40137	
==>ample, such that all common attribute names
and corresponding common tuple values are aligned <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6770	6929	
==>rn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6770	6929	
==>rn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6770	6929	
==>rn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	558	688	
==>{
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub red <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30761	30959	
==>gth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30761	30959	
==>gth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30761	30959	
==>gth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	3000	3126	
==>"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ w <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4153	4313	
==>bdir -cz .] )
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3238	3337	
==>ree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3238	3337	
==>ree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::b <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3238	3337	
==>ree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2583	2699	
==>lf, $class; 
}

our $op_count = '000';
sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\ <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1608	1723	
==>companying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2270	2385	
==>companying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14503	14603	
==>me( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14503	14603	
==>me( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field( <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6267	6388	
==>ve some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5340	5461	
==>ve some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6267	6388	
==>ve some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5340	5461	
==>ve some modifiers
    # on the stack, then we have an error, so 
    # we need to throw an exception about it.
    (!@modi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	962	1083	
==>print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to micr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4209	4309	
==>}";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4209	4309	
==>}";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4209	4309	
==>}";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	504	622	
==>v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	504	622	
==>v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	504	622	
==>v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15694	15793	
==>rl6_objects_from_whatever called on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4351	4445	
==>_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4351	4445	
==>_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4351	4445	
==>_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1134	1266	
==>} }",
    postfix_non =>       
        "exp 'name'         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postfix', op1 => \$_[2], <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8439	8543	
==>to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8439	8543	
==>to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8439	8543	
==>to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15159	15285	
==>=> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15159	15285	
==>=> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15159	15285	
==>=> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1536	1662	
==>er Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1536	1662	
==>er Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3385	3478	
==>eeds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3385	3478	
==>eeds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3385	3478	
==>eeds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1326	1416	
==>extracted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . $remain <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14532	14624	
==>ods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14532	14624	
==>ods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14532	14624	
==>ods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10635	10778	
==>od, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10635	10778	
==>od, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10635	10778	
==>od, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9177	9293	
==>d_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} else {
	    push(@names5,'$'.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2889	2988	
==>@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'ref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2889	2988	
==>@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'ref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2889	2988	
==>@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'ref <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	242	339	
==>ubroutine.
* takes a rexep as the only argument
* not tested much
* read this modules source befor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9128	9302	
==>ay' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9128	9302	
==>ay' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9128	9302	
==>ay' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	550	668	
==>ms->{name},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelud <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12581	12695	
==>y $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21743	21847	
==>all the handlers for standard Perl 5 regexes.  This
documentation contains a sub-classing tutorial.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11595	11690	
==>head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8742	8837	
==>head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11595	11690	
==>head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8742	8837	
==>head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in the set. C<count> is an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2005	2159	
==>t;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2005	2159	
==>t;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last un <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2005	2159	
==>t;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last un <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4562	4657	
==>acter  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<explicit_class>|<escape_sequence>|<name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8176	8273	
==>nnels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8176	8273	
==>nnels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	897	989	
==>array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheri <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	897	989	
==>array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheri <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7770	7889	
==>us }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complem <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7770	7889	
==>us }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6484	6602	
==>_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6484	6602	
==>_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9279	9442	
==>( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7180	7304	
==>larray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7180	7304	
==>larray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7180	7304	
==>larray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14541	14655	
==>eeded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14541	14655	
==>eeded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14541	14655	
==>eeded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($se <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2670	2779	
==>dex {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type} }, @_ if $t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12712	12853	
==>hod' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2487	2587	
==>$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2487	2587	
==>$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2487	2587	
==>$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6036	6367	
==>((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7798	8129	
==>((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })) <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4737	4840	
==>l methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4596	4699	
==>l methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$ <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	948	1157	
==>rk yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current sc <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	948	1157	
==>rk yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current sc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	49	165	
==>warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             () <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	47	163	
==>warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             () <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3198	3319	
==>:Build->new(
        dist_name    => $self->{name},
        dist_version => $self->{version},
        license      => $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4125	4244	
==>ef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4125	4244	
==>ef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4125	4244	
==>ef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2187	2298	
==>on;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5984	6077	
==>>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5984	6077	
==>>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5984	6077	
==>>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	881	992	
==>.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_tra <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	881	992	
==>.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_tra <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4680	4774	
==>ng, the match object returns the stringified version
of the result object (usually the entire m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4680	4774	
==>ng, the match object returns the stringified version
of the result object (usually the entire m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1661	1773	
==>ts[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1661	1773	
==>ts[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1661	1773	
==>ts[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return met <==
4	/Users/nnunley/pugs/util/testgraph.pl	673	773	
==>ata));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $ou <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5375	5509	
==>on"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5375	5509	
==>on"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    " <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9561	9661	
==>l5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5: <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9561	9661	
==>l5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5: <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2185	2307	
==>al_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2499	2608	
==>UERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $hea <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2499	2608	
==>UERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $hea <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1258	1354	
==>eving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1258	1354	
==>eving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4722	4816	
==>::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4722	4816	
==>::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4722	4816	
==>::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_S <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	581	713	
==>val { $self->_top->autoload } or return;
    goto &$autoload;
}

#line 76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29155	29274	
==>6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29155	29274	
==>6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn " <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29155	29274	
==>6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5987	6082	
==>uning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5987	6082	
==>uning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5987	6082	
==>uning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recur <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	20187	20279	
==>lude.pm, prefix:<-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsaf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9756	9876	
==>ize > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9756	9876	
==>ize > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9756	9876	
==>ize > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems- <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2275	2380	
==>uiv => Blondie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$from => $to],
						str <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9806	9913	
==>connecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we conn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9806	9913	
==>connecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we conn <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1114	1207	
==>the L</SECURITY> section for details.  (In particular, 
note that the serious insecurities pla <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1114	1207	
==>the L</SECURITY> section for details.  (In particular, 
note that the serious insecurities pla <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5337	5521	
==>@body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                la <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5337	5521	
==>@body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                la <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5222	5338	
==>rn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!se <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5222	5338	
==>rn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18706	18809	
==>s:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C< <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18706	18809	
==>s:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C< <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3129	3228	
==>ectories the resulting relative path
    # must ascend out of before it can descend to $path_directo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3129	3228	
==>ectories the resulting relative path
    # must ascend out of before it can descend to $path_directo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1721	1815	
==>NGS_F is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19465	19555	
==>ix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19465	19555	
==>ix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19465	19555	
==>ix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx <==
4	/Users/nnunley/pugs/util/func_refact.pl	1350	1485	
==>}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Conf{debug}||="");

    return 0 if $ig <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3379	3467	
==>a.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3379	3467	
==>a.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3379	3467	
==>a.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11734	11842	
==>..)>

Removes the given items if they are already in the set, or inserts the items if
they're not in the set. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8881	8989	
==>..)>

Removes the given items if they are already in the set, or inserts the items if
they're not in the set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11734	11842	
==>..)>

Removes the given items if they are already in the set, or inserts the items if
they're not in the set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8881	8989	
==>..)>

Removes the given items if they are already in the set, or inserts the items if
they're not in the set. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19777	20011	
==>leop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20056	20290	
==>leop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	288	434	
==>t, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\] <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	288	434	
==>t, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7560	7702	
==>_('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7560	7702	
==>_('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7560	7702	
==>_('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	125	221	
==>tch;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# TODO - implement <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2450	2552	
==>method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2450	2552	
==>method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2450	2552	
==>method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Di <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14829	14929	
==>ect(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1784	1917	
==>tion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1784	1917	
==>tion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1784	1917	
==>tion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fun <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34708	34802	
==>nition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4140	4282	
==>.'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4128	4270	
==>.'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3681	3779	
==>pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<P <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3681	3779	
==>pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	259	383	
==>bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a por <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	263	387	
==>bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a por <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	259	383	
==>bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a por <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	263	387	
==>bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note that this is *not* a por <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6856	6976	
==>elf->add_handler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FLAG_s ? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2344	2442	
==>le);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2344	2442	
==>le);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2344	2442	
==>le);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24755	24853	
==>PL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24755	24853	
==>PL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11767	11926	
==>ype} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11767	11926	
==>ype} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11767	11926	
==>ype} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11422	11517	
==>erl regex implementation of the new node.

=head2 Named Character Support

Perl's regex engine d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	151	264	
==>CK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	151	264	
==>CK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	151	264	
==>CK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1967	2133	
==>ol => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1967	2133	
==>ol => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3891	4029	
==>s is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    ha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3891	4029	
==>s is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	425	526	
==>ining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) i <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2248	2349	
==>name) { "rule $name :words" },
#     rather than having the clutter of lots of explicit :words modifie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	425	526	
==>ining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	425	526	
==>ining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4819	4967	
==>>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4819	4967	
==>>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10899	11022	
==>$text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @bloc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10899	11022	
==>$text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @bloc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7779	7884	
==>lf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7779	7884	
==>lf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7779	7884	
==>lf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoP <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1271	1405	
==>et--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3567	3701	
==>et--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1271	1405	
==>et--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3567	3701	
==>et--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5273	5457	
==>ody = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # mak <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5273	5457	
==>ody = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # mak <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4781	4880	
==>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5031	5130	
==>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Per <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9710	9835	
==>, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9710	9835	
==>, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookie <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2843	2950	
==>nRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2843	2950	
==>nRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15014	15188	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15014	15188	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15014	15188	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6332	6433	
==>];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3067	3180	
==>* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3067	3180	
==>* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $ob <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3067	3180	
==>* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $ob <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27597	27689	
==>mpty Set,
the Relation::Example has zero tuples.  If a Relation::Example has zero attributes, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6789	6935	
==>rrent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6789	6935	
==>rrent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5733	5834	
==>alize (closed) database connection handle we will work with;
    # this does not talk to the underlyin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5733	5834	
==>alize (closed) database connection handle we will work with;
    # this does not talk to the underlyin <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22348	22451	
==>e_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22625	22728	
==>e_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7952	8050	
==>TION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7952	8050	
==>TION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1667	1793	
==>heck->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	349	466	
==>ed!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	349	466	
==>ed!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	444	555	
==>heck->last_error ), return;

    my $obj = $class->SUPER::new;
    $obj->mk_accessors( keys %$tmpl );
    
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2121	2225	
==>ad1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple vari <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2121	2225	
==>ad1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple vari <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2468	2572	
==>ad1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple vari <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3046	3161	
==>>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3046	3161	
==>>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3046	3161	
==>>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5975	6082	
==>new(),
            attribute->new('%:private_methods') => hash->new(),
            attribute->new('%:attribu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14150	14253	
==>aliased properly
	return $Perl if $^O eq 'VMS';

	my $exe;
	eval "require Config; Config->import";
	if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10918	11028	
==>empted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10918	11028	
==>empted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10918	11028	
==>empted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS. <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	107	204	
==>jektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1737	1933	
==>nt => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1737	1933	
==>nt => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15325	15422	
==>=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and b <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15325	15422	
==>=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7701	7810	
==>if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1842	1960	
==>nary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10150	10257	
==>d lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10150	10257	
==>d lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10150	10257	
==>d lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24044	24180	
==>exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24044	24180	
==>exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24044	24180	
==>exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8076	8179	
==>ead1 DESCRIPTION

This module provides an implementation for Perl 6 operator precedence.  

=head1 M <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1546	1700	
==>/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1546	1700	
==>/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2653	2760	
==>andle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2653	2760	
==>andle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3703	3787	
==>HTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3703	3787	
==>HTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3703	3787	
==>HTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12231	12355	
==>turn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12231	12355	
==>turn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12231	12355	
==>turn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done w <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16130	16237	
==>enthesis (maybe capturing paren)

  # any character

  # backslash

  # start of char class (and possible ne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1691	1827	
==>urn _mangle_var( $n->{scalar} )
        if exists $n->{scalar};
        
    return _mangle_var( $n->{array} )
        if exists $n-> <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10443	10573	
==>val;
            print $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix:<$_>", body => eval 'sub { $_[1] '.$_.' $_[2 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23326	23423	
==>ed in a format other than Perl
files.  Or alternately they have a compiled C component or otherwis <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23326	23423	
==>ed in a format other than Perl
files.  Or alternately they have a compiled C component or otherwis <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5651	5769	
==>e META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11395	11505	
==>>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11395	11505	
==>>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Ev <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11395	11505	
==>>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4902	5012	
==>" . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4902	5012	
==>" . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4902	5012	
==>" . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5851	5952	
==>{
    Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes/piln_object_re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1419	1584	
==>' && @$nodes;

    return sub {

        ### testing alternations on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1763	1922	
==>' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1370	1529	
==>' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1763	1922	
==>' && @$nodes;
    return sub {
        ### testing alternations on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1531	1708	
==>er
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm( <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1531	1708	
==>er
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1981	2090	
==>do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $f <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1981	2090	
==>do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19181	19279	
==>s users' own data; only
someone already involved in making the program would be editing them.  At
t <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19181	19279	
==>s users' own data; only
someone already involved in making the program would be editing them.  At
t <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11845	11942	
==>ead1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTM <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11845	11942	
==>ead1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2155	2266	
==>ODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2155	2266	
==>ODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2155	2266	
==>ODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19476	19620	
==>int != time ) {
        _print_ml(@_);
        $Last_ML_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1257	1359	
==>ef() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is reado <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1257	1359	
==>ef() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is reado <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1257	1359	
==>ef() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is reado <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3786	3887	
==>class") if $cc;
    return $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(gpos => g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23315	23412	
==>bstr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23315	23412	
==>bstr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23315	23412	
==>bstr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	770	882	
==>her) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	770	882	
==>her) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	770	882	
==>her) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($at <==
4	/Users/nnunley/pugs/util/config_h.pl	1526	1629	
==>plate Haskell support, please compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try_compi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1182	1306	
==>my $string = shift;
                print $fh $string;
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	850	962	
==>matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	850	962	
==>matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	850	962	
==>matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	451	539	
==>s JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4159	4243	
==>$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4159	4243	
==>$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4159	4243	
==>$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pack <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11392	11615	
==>1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}++;
        }
        else {
            # List unrun tests as failures.
            if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	408	529	
==>[ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	408	529	
==>[ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	408	529	
==>[ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $ <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	16040	16165	
==>ce  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a representation that is like the $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4920	5034	
==>difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simpl <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4920	5034	
==>difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simpl <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1326	1435	
==>turn Date::Gregorian.new
        ( :year($year), :month($1),  :day($2),
          :hour($5),    :minute($6), : <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8914	9027	
==>rsection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference does <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8914	9027	
==>rsection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference does <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1392	1495	
==>et::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1392	1495	
==>et::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1066	1238	
==>cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1066	1238	
==>cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1066	1238	
==>cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2189	2323	
==>'==',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	264	367	
==>->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2208	2311	
==>type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_type = $type_lookup{$attr->typ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	264	367	
==>->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	264	367	
==>->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21973	22065	
==>!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20854	20946	
==>!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21973	22065	
==>!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20854	20946	
==>!hostmask> the message was sent from. Not available for numeric
handlers.

=item C<from_nick> <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9170	9283	
==>f:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_hei <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9170	9283	
==>f:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_hei <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1315	1415	
==>the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for cont <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1257	1355	
==>the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for cont <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3163	3304	
==>|| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3163	3304	
==>|| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3163	3304	
==>|| 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10118	10250	
==>d pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10118	10250	
==>d pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10118	10250	
==>d pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7862	7979	
==>NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2712	2868	
==>eq 'postcircumfix';
        return ternary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return statement( $n )
        if ref $n->{op <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2572	2673	
==>.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2572	2673	
==>.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2652	2753	
==>.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1624	1732	
==>ecompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1624	1732	
==>ecompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1624	1732	
==>ecompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unles <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2258	2360	
==>() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@c <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2258	2360	
==>() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	426	527	
==>frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	437	538	
==>frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3046	3208	
==>nt ISA_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation::Set') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13850	13981	
==>t ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13850	13981	
==>t ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descrip <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13850	13981	
==>t ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descrip <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3598	3723	
==>Class[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3598	3723	
==>Class[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3598	3723	
==>Class[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCla <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	48	149	
==>e::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXPORT];
use bas <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3433	3607	
==>ble_file]) {
                    system( qw[touch], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3031	3190	
==>atcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3031	3190	
==>atcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3031	3190	
==>atcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1446	1546	
==>ringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1446	1546	
==>ringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1446	1546	
==>ringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11685	11833	
==>rl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11685	11833	
==>rl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11685	11833	
==>rl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2022	2166	
==>f $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2022	2166	
==>f $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2022	2166	
==>f $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12181	12291	
==>rser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2582	2695	
==>ng.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .fl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2582	2695	
==>ng.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .fl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2582	2695	
==>ng.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .fl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1632	1746	
==>> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1632	1746	
==>> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1632	1746	
==>> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3053	3155	
==>me} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3053	3155	
==>me} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3053	3155	
==>me} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	307	401	
==>my ( $ast, $tail ) = Pugs::Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match->n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9744	9875	
==>rce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6085	6216	
==>rce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6934	7065	
==>rce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2092	2204	
==>uld not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::rmtree($arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13880	13996	
==>}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPAT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13880	13996	
==>}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPAT <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13880	13996	
==>}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPAT <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21855	21958	
==>ire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is builtin is unsa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4921	5117	
==>alue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4921	5117	
==>alue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4921	5117	
==>alue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2594	2697	
==>e>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2778	2881	
==>e>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param' <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38386	38479	
==>odified
by interpolating the %msg_vars into it, where each variable value is
substituted for a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38386	38479	
==>odified
by interpolating the %msg_vars into it, where each variable value is
substituted for a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	712	820	
==>ue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	712	820	
==>ue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	712	820	
==>ue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21201	21297	
==>r purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mappin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25753	25849	
==>r purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mappin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2677	2771	
==>::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2677	2771	
==>::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4578	4763	
==>@set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    r <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4578	4763	
==>@set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    r <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1180	1278	
==>input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1180	1278	
==>input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	63	169	
==>primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	63	169	
==>primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	63	169	
==>primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    m <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	5421	5515	
==>iled and stored in YAML format in a (conjecturally)
well-defined location for latter runs of pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	747	865	
==>nst'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3439	3531	
==>b6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3439	3531	
==>b6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3439	3531	
==>b6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5352	5451	
==>variable::free;
use base qw/type::variable/;

# a free variable is a placeholder
# when going into a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12284	12381	
==>x); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12284	12381	
==>x); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12284	12381	
==>x); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Api <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6064	6166	
==>is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6064	6166	
==>is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    return <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4835	4936	
==>turns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

C <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4835	4936	
==>turns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	845	971	
==>) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	845	971	
==>) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    " <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	95	198	
==>"sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	95	198	
==>"sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12858	12963	
==>elf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12858	12963	
==>elf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12858	12963	
==>elf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6537	6634	
==>ath.
*** Please install GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	429	524	
==>oin(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	429	524	
==>oin(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	429	524	
==>oin(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2161	2261	
==>_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2161	2261	
==>_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2161	2261	
==>_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10384	10495	
==>Y_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10384	10495	
==>Y_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7331	7422	
==>raversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() eq <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7331	7422	
==>raversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() eq <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2150	2233	
==><Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.o <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2150	2233	
==><Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1988	2086	
==>unction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1988	2086	
==>unction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1988	2086	
==>unction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35840	35934	
==>with the
invocant relation into a new Relation, such that all common attribute names
and corres <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40390	40484	
==>with the
invocant relation into a new Relation, such that all common attribute names
and corres <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4263	4356	
==>tion, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4263	4356	
==>tion, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	966	1115	
==>->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() ,} }
            ' );
    __PACKAGE_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2441	2548	
==>}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2441	2548	
==>}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2441	2548	
==>}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14367	14552	
==>+;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14367	14552	
==>+;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14367	14552	
==>+;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2898	3083	
==>+;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1952	2125	
==>}                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1952	2125	
==>}                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2019	2106	
==>e qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::U <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	51	137	
==>e qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scalar::U <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21148	21242	
==>am would use
associated keys internally.

It is strongly suggested (but not required) that each <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	829	923	
==>t( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21148	21242	
==>am would use
associated keys internally.

It is strongly suggested (but not required) that each <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	829	923	
==>t( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14055	14187	
==>atement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10228	10360	
==>atement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11064	11196	
==>atement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10329	10420	
==>_switches( @switches_from_user );

Returns only defined, non-blank, trimmed switches from th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4973	5089	
==>oc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
    block <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1042	1138	
==>= Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from ou <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1042	1138	
==>= Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from ou <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1122	1218	
==>= Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from ou <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8835	8946	
==>$_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2354	2485	
==>ce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2354	2485	
==>ce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2354	2485	
==>ce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($cl <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13080	13208	
==>ils_<tmpl_var name=id>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summary>
                <sp <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10924	11026	
==>de())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<n <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10924	11026	
==>de())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21259	21355	
==>elves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21259	21355	
==>elves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	267	400	
==>thod diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XX <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	267	400	
==>thod diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XX <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15721	15815	
==>ges.  Or, when viewing an error message, the
application's developer should see more details th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15721	15815	
==>ges.  Or, when viewing an error message, the
application's developer should see more details th <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2838	2997	
==>verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %ev <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2838	2997	
==>verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %ev <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10393	10501	
==>jects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

T <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10393	10501	
==>jects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2569	2684	
==>s_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5772	5887	
==>s_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2569	2684	
==>s_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5772	5887	
==>s_empty;
    my @span = $span.complement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

m <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	845	947	
==>nonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	845	947	
==>nonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of o <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3409	3502	
==>rface

The Cipher API is fundamentally object-oriented; the procedural and functional 
interfa <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3409	3502	
==>rface

The Cipher API is fundamentally object-oriented; the procedural and functional 
interfa <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1078	1184	
==>t 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1078	1184	
==>t 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1959	2064	
==>- 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessi <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1959	2064	
==>- 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7813	7929	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6943	7059	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7813	7929	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6943	7059	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make set operations o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	805	921	
==>ixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	805	921	
==>ixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	805	921	
==>ixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $sel <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	522	633	
==>he user to "make register".
        $prompt_register = 1;
    }
}
print "*** Running: $setup @args\n";

my $rv = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4177	4283	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4177	4283	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4177	4283	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3607	3738	
==>ss @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].po <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3607	3738	
==>ss @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].po <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9459	9556	
==>e!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9459	9556	
==>e!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3377	3517	
==>ent_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3377	3517	
==>ent_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3377	3517	
==>ent_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14739	14834	
==>e(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	841	953	
==>H' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	841	953	
==>H' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6771	6868	
==>_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    } <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6771	6868	
==>_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    } <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2416	2545	
==>nment"' {
        my %pad = $tree[1];  # keys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13807	13924	
==>match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    retu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13807	13924	
==>match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    retu <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9985	10088	
==>List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Pe <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9985	10088	
==>List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2391	2509	
==>say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> module is a front-end to the experimental Perl6-to- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2357	2454	
==>,
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2357	2454	
==>,
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Numb <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2357	2454	
==>,
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Numb <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1691	1791	
==>lugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<M <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1691	1791	
==>lugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<M <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1120	1216	
==>ning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inher <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1120	1216	
==>ning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inher <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4084	4201	
==>urn $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4084	4201	
==>urn $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9942	10049	
==>if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Pe <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9942	10049	
==>if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3474	3607	
==>t ];
        return;
    }
    die "there is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3312	3414	
==>ion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3312	3414	
==>ion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3312	3414	
==>ion (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3824	3927	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    subme <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4157	4260	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    subme <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3824	3927	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    subme <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4157	4260	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler::PIL::PIL $.right;
    subme <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14607	14709	
==>ALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE ((opaque $cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	435	530	
==>irs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	435	530	
==>irs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	435	530	
==>irs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40109	40220	
==>$key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40109	40220	
==>$key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40109	40220	
==>$key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15379	15497	
==>ackage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15379	15497	
==>ackage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15379	15497	
==>ackage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4429	4542	
==>re_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4429	4542	
==>re_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4429	4542	
==>re_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	735	838	
==>an closure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || confess "body must <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6454	6552	
==>item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6454	6552	
==>item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28056	28152	
==>names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32608	32704	
==>names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21479	21622	
==>SAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21479	21622	
==>SAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21479	21622	
==>SAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if P <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	472	574	
==>"LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4646	4757	
==>int postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4646	4757	
==>int postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5308	5404	
==>ncoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

XXX

=cut <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5308	5404	
==>ncoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

XXX

=cut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24382	24496	
==>],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24382	24496	
==>],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24382	24496	
==>],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    r <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24278	24380	
==>fy, "∀α. α → α", "pretty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1306	1407	
==>k $fn or die "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2630	2755	
==>se the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2847	2972	
==>se the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18490	18595	
==>ling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s referer <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18490	18595	
==>ling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s referer <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	881	984	
==>eyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	881	984	
==>eyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Key <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2079	2174	
==>ents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2168	2263	
==>ents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1548	1640	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1548	1640	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1548	1640	
==>(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2698	2803	
==>ed1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2698	2803	
==>ed1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expor <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2698	2803	
==>ed1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expor <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4762	4860	
==>cope to have any effect. It's possible the
    internal/external distinction is just a trait, and t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11510	11650	
==>['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11510	11650	
==>['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2523	2637	
==>perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2523	2637	
==>perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	611	714	
==>ant PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	611	714	
==>ant PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	611	714	
==>ant PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1127	1214	
==>Interpreter> contains the tree reduction code.

L<Blondie::Backend::Perl::Builtins> cont <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13209	13365	
==>[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13203	13359	
==>[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13382	13481	
==>self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7591	7690	
==>self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1678	1821	
==>e ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2007	2147	
==>e ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1620	1760	
==>e ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2007	2147	
==>e ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7219	7328	
==>fined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7219	7328	
==>fined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7219	7328	
==>fined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package P <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3555	3651	
==>(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*=% <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14396	14561	
==>$size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14396	14561	
==>$size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14396	14561	
==>$size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2927	3092	
==>$size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2377	2510	
==>.
            %attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = : <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	365	478	
==>my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extrac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	365	478	
==>my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extrac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	365	478	
==>my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extrac <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1583	1690	
==>"arch");
    $self->makemaker_args->{INST_SCRIPT} =
      File::Spec->catfile($path, "script");
    $self->m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11110	11203	
==>smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11110	11203	
==>smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11110	11203	
==>smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@i <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4889	4988	
==>S_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # sys <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2527	2622	
==>row(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2527	2622	
==>row(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2527	2622	
==>row(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2088	2196	
==>" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2088	2196	
==>" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2088	2196	
==>" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{met <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2003	2099	
==>hesize($$) = { $$->isa("type::operator::pair") || level($$) }
#'EOG

sub stringify {
	my $dag = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2283	2409	
==>($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2830	2956	
==>($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3377	3503	
==>($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19342	19451	
==>p::Parser::tail;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7868	8072	
==>ture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    }) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7868	8072	
==>ture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    }) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1362	1486	
==>t for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'R <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1362	1486	
==>t for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'R <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14383	14493	
==>xt;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= C <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14383	14493	
==>xt;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= C <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14122	14217	
==>headers
will be visited in the recommended "Good Practice" order.

Any return values of the call <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14122	14217	
==>headers
will be visited in the recommended "Good Practice" order.

Any return values of the call <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15332	15445	
==>Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15332	15445	
==>Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontr <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14538	14642	
==>0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Cre <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14538	14642	
==>0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Cre <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3777	3882	
==>al . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type => $type,
			struct_equiv => $sym->fmap(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2418	2515	
==>r;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2418	2515	
==>r;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2418	2515	
==>r;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1169	1313	
==>teral'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Gramm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4804	4935	
==>}

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4804	4935	
==>}

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4804	4935	
==>}

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7828	7939	
==>m}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7828	7939	
==>m}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7828	7939	
==>m}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	913	1018	
==>Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1429	1547	
==>itives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1636	1754	
==>itives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prel <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	437	532	
==>atus::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_L <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	437	532	
==>atus::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_L <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1784	1944	
==>turn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1784	1944	
==>turn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	633	731	
==>sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values ' <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	633	731	
==>sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values ' <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5499	5603	
==>($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4629	4733	
==>($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5499	5603	
==>($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4629	4733	
==>($two);
}
multi sub *infix:«<=» (Set $one, Set $two) returns Set {
    $one.subset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2858	2963	
==>le-0.1.0 {

    # External packages used by the Relation::Example class, that do export symbols:
    # (No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4952	5049	
==>ss".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4952	5049	
==>ss".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4952	5049	
==>ss".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

P <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	3180	3297	
==>[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4199	4305	
==>apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4199	4305	
==>apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4199	4305	
==>apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3313	3422	
==>}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3313	3422	
==>}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3313	3422	
==>}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19018	19125	
==>} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20376	20483	
==>} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[ <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4984	5087	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 en <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4984	5087	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 en <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11725	11812	
==>(T).
rest_of_line([]).


p6_octidecimal_escape_sequence(X) --> "\\0", p6_oct_spec(X), !. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	682	791	
==>fix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	682	791	
==>fix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	682	791	
==>fix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is prim <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	455	541	
==>{ return $() }
RULE
*{'indirect_object'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3736	3852	
==>$dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3736	3852	
==>$dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for W <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3736	3852	
==>$dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for W <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5091	5194	
==>se = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__object__::'};

    push @{ "$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2994	3103	
==>ull_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs curren <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	578	675	
==>n construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	578	675	
==>n construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() meth <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	578	675	
==>n construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() meth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12489	12590	
==>ned ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12489	12590	
==>ned ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12489	12590	
==>ned ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3892	3989	
==>, and the problems tracked down.

=item Completeness

\G, pos(), etc, are not yet supported.

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4850	4950	
==>rait, and that some of those
    things are subs or methods rather than rules or macros. (The numeric <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4456	4544	
==>(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRH <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4456	4544	
==>(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRH <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4456	4544	
==>(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRH <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3861	3963	
==>mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3861	3963	
==>mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3861	3963	
==>mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alt <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15103	15194	
==>anguage declaration saying either exactly what language
we're going into, or what environmen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2692	2797	
==>$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2692	2797	
==>$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2692	2797	
==>$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	600	701	
==>ing the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	600	701	
==>ing the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	600	701	
==>ing the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12308	12401	
==>le="<tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td class="num t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	0	94	
==>module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

cl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	0	94	
==>module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

cl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11334	11490	
==>, undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', unde <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11334	11490	
==>, undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', unde <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20809	20906	
==>OS X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20809	20906	
==>OS X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as w <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2608	2735	
==>ldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2608	2735	
==>ldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2079	2175	
==>but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2079	2175	
==>but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	674	785	
==>he senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	674	785	
==>he senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	674	785	
==>he senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4267	4416	
==>ack - check if an alphanumeric-ending token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	744	871	
==>for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	744	871	
==>for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	744	871	
==>for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	193	281	
==>mediate_statement_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23204	23291	
==>:localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23204	23291	
==>:localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23204	23291	
==>:localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21780	21877	
==>litstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21780	21877	
==>litstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21780	21877	
==>litstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Int <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35371	35465	
==>pes: star (C<*>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	844	948	
==>);

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	844	948	
==>);

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	844	948	
==>);

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Re <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12622	12726	
==>s="num tests_unexpect"><span title="<tmpl_var name=unexpect> unexpectedly succeeded"><tmpl_var name=unexp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13431	13535	
==>?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,}) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13431	13535	
==>?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,}) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1142	1243	
==>n( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1142	1243	
==>n( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2111	2222	
==>:Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2111	2222	
==>:Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1620	1736	
==>$i=1; $i<@$events; $i++) {
            my $event = $events->[$i];
            if($all_the_same->(@{ $events->[$i] })) <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1482	1619	
==>Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for now
        set = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	370	465	
==>Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	370	465	
==>Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obje <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	370	465	
==>Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be obje <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3137	3306	
==>_->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	444	580	
==>ess({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VAL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	444	580	
==>ess({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VAL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	444	580	
==>ess({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VAL <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4720	4866	
==>n "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5379	5525	
==>n "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4720	4866	
==>n "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5379	5525	
==>n "setting start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1085	1258	
==>dentify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1085	1258	
==>dentify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1085	1258	
==>dentify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5966	6073	
==>my $self = shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $self <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	371	468	
==>is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	371	468	
==>is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1384	1480	
==>is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1384	1480	
==>is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end_is <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3490	3593	
==>ts )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3490	3593	
==>ts )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3570	3673	
==>ts )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For n <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1957	2045	
==>o Garcia  for Language::Prolog::Yaswi,
    http://search.cpan.org/~salva/Language-Prolog- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13771	13966	
==>$_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if inde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13771	13966	
==>$_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if inde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13771	13966	
==>$_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if inde <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5969	6071	
==>Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.sup <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5099	5201	
==>Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.sup <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5969	6071	
==>Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.sup <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5099	5201	
==>Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.sup <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8865	8963	
==>s, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3794	3892	
==>s, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8865	8963	
==>s, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3794	3892	
==>s, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

This code i <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2348	2460	
==>t" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2348	2460	
==>t" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13781	13882	
==>d join (Relation *@others) returns Relation {

    # First do some optimizing of the order that source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17258	17359	
==>d join (Relation *@others) returns Relation {

    # First do some optimizing of the order that source <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	919	1074	
==>urns list of indices
                my $self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6245	6334	
==>ro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6245	6334	
==>ro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6245	6334	
==>ro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3183	3294	
==>undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interfa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3400	3511	
==>undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interfa <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6325	6423	
==>.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6325	6423	
==>.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8571	8698	
==>$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8571	8698	
==>$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8571	8698	
==>$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1285	1384	
==>:pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1285	1384	
==>:pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1285	1384	
==>:pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4108	4250	
==>t( struct => $_ ) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( "Could not load available fi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28875	28995	
==>ome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inve <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28875	28995	
==>ome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inve <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	242	350	
==>ome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inve <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7754	7876	
==>{
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7754	7876	
==>{
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7754	7876	
==>{
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2278	2387	
==>11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th lin <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4126	4235	
==>($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exc <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4184	4293	
==>($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6508	6612	
==>}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuffi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6508	6612	
==>}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuffi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2165	2278	
==>q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2165	2278	
==>q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_A <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3693	3788	
==>iphering"), and any 
other options to the constructor.  Then you call the cipher() method repeat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3693	3788	
==>iphering"), and any 
other options to the constructor.  Then you call the cipher() method repeat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7081	7178	
==>rmalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7081	7178	
==>rmalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1462	1578	
==>ure
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1462	1578	
==>ure
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16096	16189	
==>ed parameter $document, and
whose Node Type attribute is set from the named parameter $node_ty <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16096	16189	
==>ed parameter $document, and
whose Node Type attribute is set from the named parameter $node_ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1724	1829	
==>n;

};



# ----- the following were included only for performance reasons,

# because they are too freque <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1655	1756	
==>n;
};

# ----- the following were included only for performance reasons,
# because they are too freque <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17377	17477	
==>vmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.lo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17377	17477	
==>vmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.lo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12804	12888	
==>ackage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12804	12888	
==>ackage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12804	12888	
==>ackage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2901	3016	
==>MP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2901	3016	
==>MP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	35	142	
==>ATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	35	142	
==>ATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17312	17412	
==>r some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

Th <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17312	17412	
==>r some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

Th <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9533	9632	
==>hod semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13010	13109	
==>hod semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1029	1146	
==>lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1029	1146	
==>lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1029	1146	
==>lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2229	2329	
==>s->build_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => ' <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13400	13522	
==>lse {
      sub {
        my $c = $_[0];
        FAIL() if &Regexp::Parser::ifmatch::_is_found_backwards($f);
        TAILC <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2582	2684	
==>1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1194	1296	
==>1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1895	1997	
==>1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex> <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	98	208	
==>:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Referenz:
say " <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	951	1129	
==>~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	951	1129	
==>~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24062	24173	
==>p => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthe <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20483	20594	
==>p => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthe <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4984	5091	
==>b *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4111	4218	
==>b *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4984	5091	
==>b *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4111	4218	
==>b *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4123	4254	
==>ous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_ne <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4123	4254	
==>ous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13893	13992	
==>->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8099	8198	
==>->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5579	5724	
==>passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6043	6188	
==>passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14575	14680	
==>C $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14575	14680	
==>C $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $chann <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4140	4255	
==>pe => $sub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $ap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	173	272	
==>), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	173	272	
==>), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	173	272	
==>), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash it <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6869	7011	
==>ive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } el <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7333	7475	
==>ive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } el <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4582	4705	
==>n    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4582	4705	
==>n    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2733	2843	
==>k:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub cntrl {
  my ( $matc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2088	2180	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2088	2180	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2088	2180	
==>JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { J <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2218	2336	
==>art";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2218	2336	
==>art";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9388	9501	
==>username   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9388	9501	
==>username   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    s <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1085	1221	
==>ume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1085	1221	
==>ume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1414	1507	
==>Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/tal <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1414	1507	
==>Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/tal <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1459	1575	
==>apture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1459	1575	
==>apture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5154	5268	
==>y( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8631	8745	
==>y( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11444	11584	
==>ft;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11444	11584	
==>ft;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11444	11584	
==>ft;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	22052	22151	
==>dex($file, 'Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4031	4171	
==>: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4019	4159	
==>: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp i <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1270	1365	
==>$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6910	6998	
==>{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6910	6998	
==>{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6910	6998	
==>{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5143	5248	
==>urn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5143	5248	
==>urn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5733	5838	
==>urn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$va <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	365	460	
==>THODS

=head2 JIB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path to a direc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2592	2694	
==>3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2592	2694	
==>3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2592	2694	
==>3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIM <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	223	316	
==>(need S29 work).

When writing primitives, please do *not* use `return()`, because
that messes <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5377	5489	
==>= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5377	5489	
==>= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inlin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5377	5489	
==>= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inlin <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	470	579	
==>elf->set_makefile_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs_fix_make <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19073	19176	
==>inal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19073	19176	
==>inal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20352	20446	
==>NAMES

The header field name spelling is normally canonicalized including the
'_' to '-' transl <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20352	20446	
==>NAMES

The header field name spelling is normally canonicalized including the
'_' to '-' transl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9796	9953	
==>=>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              descripti <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	372	519	
==>=>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            descripti <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	372	519	
==>=>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            descripti <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	696	806	
==>values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# native conversion
sub to_n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26985	27141	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27264	27420	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7371	7474	
==>ailed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $w <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7429	7532	
==>ailed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $w <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2997	3205	
==>ETH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8091	8299	
==>ETH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2997	3205	
==>ETH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8091	8299	
==>ETH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9361	9458	
==>ns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9361	9458	
==>ns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_nam <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2161	2256	
==>->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{VE <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1271	1362	
==>->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{VE <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1711	1834	
==>trap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_init;

    return $self;
}

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4069	4159	
==>erl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descriptio <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4069	4159	
==>erl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descriptio <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4069	4159	
==>erl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descriptio <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1210	1434	
==>adable ].
                                           q[or does not exist]);
                                    return;
                            };    
use constant IS_DIR         => sub { return 1 if -d $_[-1] };

use con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	64	165	
==>return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	64	165	
==>return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	64	165	
==>return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6296	6425	
==>lues  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	811	909	
==>ludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	811	909	
==>ludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	811	909	
==>ludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 P <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4498	4610	
==>verse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersectio <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4498	4610	
==>verse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9569	9663	
==>e divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_block <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9569	9663	
==>e divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_block <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17914	18070	
==>y 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for the a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1001	1092	
==>:JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1001	1092	
==>:JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1001	1092	
==>:JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prel <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4029	4132	
==>'t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4029	4132	
==>'t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4029	4132	
==>'t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	382	482	
==>mance reality check")
# spike has succeeded.  The most of the re_tests are passing.  While
# the spik <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2107	2277	
==>es.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2107	2277	
==>es.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $c <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10893	10994	
==>Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <code>ext/</code> tests m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2962	3057	
==>ub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2962	3057	
==>ub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2962	3057	
==>ub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3721	3833	
==>Class;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3721	3833	
==>Class;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3721	3833	
==>Class;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12092	12199	
==>nt qq(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$st <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28574	28673	
==>s ender is a C<tail> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5433	5531	
==>skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defau <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5433	5531	
==>skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defau <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6957	7055	
==>skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defau <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2371	2575	
==>) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2371	2575	
==>) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	210	367	
==>ven $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized o <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	210	367	
==>ven $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2101	2242	
==>able from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2101	2242	
==>able from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2101	2242	
==>able from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path t <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	124	224	
==>lass - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infi <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	124	224	
==>lass - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infi <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6428	6523	
==>tart => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESC <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6428	6523	
==>tart => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESC <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2961	3108	
==>lass'}) {
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass'})
                    ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	821	934	
==>LASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	821	934	
==>LASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	821	934	
==>LASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4470	4579	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4470	4579	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4470	4579	
==>"Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14052	14156	
==>y $crufty = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3173	3299	
==>>{extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4724	4838	
==>n.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@te <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16205	16292	
==>nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16263	16350	
==>nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14446	14563	
==>o just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-cir <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14446	14563	
==>o just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-cir <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14446	14563	
==>o just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-cir <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1652	1782	
==>re => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for perf <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1586	1710	
==>re => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for perf <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2075	2172	
==>me, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2075	2172	
==>me, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4067	4198	
==>( $n->{bare_block} ) . "\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3571	3664	
==>es Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43460	43553	
==>in of managing
data or data definitions or connections to databases: L<Set>, L<Rosetta>.

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3571	3664	
==>es Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15899	16007	
==>urn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextcha <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10755	10863	
==>urn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextcha <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2156	2256	
==>/API/Code.pm # userland objects -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2075	2173	
==>/API/Code.pm # userland objects -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3367	3534	
==>PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant IS <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1345	1466	
==>ft) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

sub do {
    my ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21546	21637	
==>so see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21546	21637	
==>so see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17277	17437	
==>( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23243	23403	
==>( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17556	17716	
==>( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23522	23682	
==>( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1171	1274	
==>[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1171	1274	
==>[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixe <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1171	1274	
==>[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixe <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1580	1677	
==>ng change or just have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Test::Harness: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4205	4320	
==>quired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4205	4320	
==>quired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slur <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4205	4320	
==>quired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	692	783	
==>nversion to other native types
sub to_str { (shift)->to_native ? str->new('1') : str->new('' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15748	15960	
==>::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15748	15960	
==>::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15748	15960	
==>::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1466	1581	
==>pe/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $type);
	}

}

{
	package Bl <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6557	6676	
==>= @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6614	6733	
==>= @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal) <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9483	9594	
==>");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	629	892	
==>& $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	629	892	
==>& $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	629	892	
==>& $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove d <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1586	1706	
==>my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_files_l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12989	13082	
==>belonged to which field.

=item $h.remove_content_headers

This will remove all the header fie <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3050	3143	
==>-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget} <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3050	3143	
==>-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12989	13082	
==>belonged to which field.

=item $h.remove_content_headers

This will remove all the header fie <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3629	3735	
==>.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3629	3735	
==>.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
mult <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4503	4608	
==>.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
mult <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4503	4608	
==>.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (backslash)
mult <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3757	3847	
==>coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3757	3847	
==>coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3757	3847	
==>coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_r <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6193	6313	
==>*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	724	815	
==>ed->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	724	815	
==>ed->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	724	815	
==>ed->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2997	3108	
==>native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2997	3108	
==>native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2997	3108	
==>native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29448	29548	
==>cf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBM <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1807	1932	
==>iled to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1807	1932	
==>iled to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4330	4430	
==>ponse
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4330	4430	
==>ponse
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1666	1764	
==>header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1666	1764	
==>header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3137	3230	
==>Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unic <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3137	3230	
==>Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unic <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3706	3913	
==>te

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3592	3792	
==>te
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3193	3287	
==>= set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3193	3287	
==>= set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3751	3870	
==>sa('symbol'))
        || confess "You must store a symbol type in a param list"
            foreach @values;
    $class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2549	2660	
==>= $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2549	2660	
==>= $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2549	2660	
==>= $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7186	7300	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7186	7300	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7186	7300	
==>tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5651	5739	
==>...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap->[-1]) }
sub hlp_stmt { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13366	13470	
==>e
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13366	13470	
==>e
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13366	13470	
==>e
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    m <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	260	356	
==>e::Piece;
use Time::Seconds;

# All dates should be displayed as UTC (Time::Piece honours $*ENV<T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21454	21612	
==>s && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21454	21612	
==>s && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21454	21612	
==>s && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9130	9236	
==>less @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9130	9236	
==>less @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9130	9236	
==>less @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3, <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17664	17777	
==>ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8745	8853	
==>y $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8745	8853	
==>y $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8745	8853	
==>y $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf " <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5815	5910	
==>tus> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befor <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5815	5910	
==>tus> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8012	8107	
==>tus> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befor <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10425	10508	
==>ue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$paramName, para <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6777	6886	
==>t ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6777	6886	
==>t ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15206	15303	
==>ed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the pa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15206	15303	
==>ed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the pa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33898	33993	
==>they prefer to communicate in, and what their backup choices are,
in order, if preferred ones ar <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2259	2354	
==>name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33898	33993	
==>they prefer to communicate in, and what their backup choices are,
in order, if preferred ones ar <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2259	2354	
==>name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C< <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	312	413	
==>ss Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	312	413	
==>ss Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	804	904	
==>ion can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
August <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	804	904	
==>ion can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
August <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2131	2241	
==>ation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-onl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2968	3064	
==>il::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2968	3064	
==>il::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2968	3064	
==>il::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retur <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21931	22031	
==>eg(ascii)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7148	7247	
==>_;
    $S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    return $S->force_object(anyof_ch <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12404	12500	
==>rns the element in the recurrence that is closest to the parameter.
If both previous and next ele <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12404	12500	
==>rns the element in the recurrence that is closest to the parameter.
If both previous and next ele <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26269	26362	
==>================================================

use strict;
use warnings;
BEGIN {
    requir <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24045	24169	
==>eipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sending something
  in response <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22818	22942	
==>eipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sending something
  in response <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24045	24169	
==>eipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sending something
  in response <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22818	22942	
==>eipt of a notice.  The object of
  this rule is to avoid loops between a client automatically sending something
  in response <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10212	10334	
==>tion( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    re <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10212	10334	
==>tion( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10840	10947	
==>erson AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10840	10947	
==>erson AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2583	2700	
==>hift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\W' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	909	1008	
==>'t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a prec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	909	1008	
==>'t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a prec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	909	1008	
==>'t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a prec <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1955	2061	
==>blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1637	1739	
==>blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2285	2387	
==>blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($sel <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	719	815	
==>ad1 NAME

Blondie::Prelude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5514	5613	
==>ossibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5514	5613	
==>ossibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5514	5613	
==>ossibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1287	1397	
==>s nice error messages.


# Test suite:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests_perl5.t - driver <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4195	4281	
==>ce' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4195	4281	
==>ce' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4195	4281	
==>ce' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_metho <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8193	8302	
==>~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $switches $file";

    return $line;
}


=head2 C<_co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38273	38367	
==><ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divid <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42822	42916	
==><ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divid <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42472	42566	
==><ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divid <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	351	448	
==>hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	351	448	
==>hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	351	448	
==>hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	204	300	
==>Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	204	300	
==>Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms ) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12613	12708	
==>ad2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12613	12708	
==>ad2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18353	18446	
==>$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18353	18446	
==>$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18353	18446	
==>$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	483	615	
==>{ 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	463	591	
==>{ 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4105	4220	
==>.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header valu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4105	4220	
==>.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header valu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6068	6183	
==>ass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4088	4178	
==>statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4088	4178	
==>statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4088	4178	
==>statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loo <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2067	2188	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4286	4407	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2067	2188	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4286	4407	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( $set2 );
        @diff = @diff.map:{ <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1626	1724	
==>arameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1626	1724	
==>arameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5709	5806	
==>lthough the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5709	5806	
==>lthough the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14318	14449	
==>refix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4790	4890	
==>!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4790	4890	
==>!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4790	4890	
==>!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10962	11175	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10962	11175	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10962	11175	
==>s => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell-> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	30	147	
==>';
use Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15505	15602	
==>>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15505	15602	
==>>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15505	15602	
==>>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $x <==
4	/Users/nnunley/pugs/util/testgraph.pl	217	302	
==>qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HTMLMatrix->css_fi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2250	2395	
==>d() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are alwa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2250	2395	
==>d() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are alwa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2567	2661	
==>, this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Al <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2567	2661	
==>, this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Al <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1183	1313	
==>s detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless - <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1183	1313	
==>s detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless - <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1971	2076	
==>ires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2851	2956	
==>ires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } m <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2897	2997	
==>{ $Config{precompile} };
        warn "*** warning: Prelude.pm should probably be the first --include <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	233	332	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	233	332	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	233	332	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8467	8605	
==>0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8467	8605	
==>0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8467	8605	
==>0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8612	8730	
==>nitrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2714	2827	
==>=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2714	2827	
==>=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2714	2827	
==>=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&" <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13292	13391	
==>warn "*** Unfortunately $path will not be available in the index (eval $loc failed: $@)" if $@;
  $t <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5894	5992	
==>--
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5894	5992	
==>--
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2413	2512	
==>itations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITAT <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2413	2512	
==>itations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITAT <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13608	13704	
==>writing modules and you
find there is some language feature missing, or core bug that needs to
be <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13666	13762	
==>writing modules and you
find there is some language feature missing, or core bug that needs to
be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3286	3386	
==>named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3286	3386	
==>named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3642	3742	
==>named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3995	4090	
==>elete;
}

sub process_list {
  my $tmpl = HTML::Template->new(filehandle => *DATA, die_on_bad_pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3209	3346	
==>], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12586	12686	
==>(*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12586	12686	
==>(*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see o <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12586	12686	
==>(*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see o <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	316	416	
==>t => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	316	416	
==>t => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33985	34081	
==>d ones aren't supported by a program or its libraries.
When translating a message, a match in fou <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33985	34081	
==>d ones aren't supported by a program or its libraries.
When translating a message, a match in fou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8527	8629	
==>ckage' is checked for instead of 'Module' since all types of
    # packages share the same namespace; a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8527	8629	
==>ckage' is checked for instead of 'Module' since all types of
    # packages share the same namespace; a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5422	5553	
==>ce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5422	5553	
==>ce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5422	5553	
==>ce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9387	9483	
==>roup, pass its numerical
value:

  my $capture_2 = $parser->captures(2);

=head2 Walking the Tree <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6223	6361	
==>.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capt <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6223	6361	
==>.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capt <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18035	18127	
==>in()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18035	18127	
==>in()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13310	13464	
==>@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13310	13464	
==>@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  = <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8260	8376	
==>e != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8260	8376	
==>e != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14153	14263	
==>see 11.2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :words {  # see 11.3
      <Left <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	264	371	
==>Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	264	371	
==>Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	264	371	
==>Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	366	478	
==>arize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_native;
    my @seqs <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8158	8261	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_interse <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11635	11738	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_interse <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10817	10920	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_interse <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	743	913	
==>ty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section he <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	743	913	
==>ty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section he <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	248	367	
==>~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for 1. <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26617	26706	
==>s_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method/4 will be a <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9947	10049	
==>ixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9947	10049	
==>ixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	236	352	
==>ine'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	236	352	
==>ine'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{ <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	236	352	
==>ine'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	236	352	
==>ine'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { %events{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	21	122	
==>xt:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	21	122	
==>xt:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	21	122	
==>xt:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pri <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8173	8327	
==>le = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::em <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7393	7504	
==>es.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7393	7504	
==>es.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7393	7504	
==>es.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is co <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1547	1664	
==>age is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller($Le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4187	4295	
==>il_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4187	4295	
==>il_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4187	4295	
==>il_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yam <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17972	18073	
==>e rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp s <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2331	2432	
==>e rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28503	28598	
==>hen
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28503	28598	
==>hen
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3976	4071	
==>etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3976	4071	
==>etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3976	4071	
==>etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pri <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14087	14231	
==>or @intable -> Pair $pair {
            my ($k, $v) = $pair.kv;
            # $k is stringified by the => operator.
            my @ks = $k.isa(S <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4168	4300	
==>or @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4168	4300	
==>or @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4168	4300	
==>or @intable -> Pair $pair {
        my ($k, $v) = $pair.kv;
        # $k is stringified by the => operator.
        my @ks = $k.isa(S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10428	10581	
==>statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10707	10860	
==>statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1104	1206	
==>...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time - <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1104	1206	
==>...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11682	11792	
==>)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11682	11792	
==>)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11682	11792	
==>)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18603	18693	
==>s N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0). <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	204	298	
==>verwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modu <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4416	4510	
==>ements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tokens should be <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	204	298	
==>verwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	204	298	
==>verwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1218	1391	
==>?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1218	1391	
==>?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	858	962	
==>packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	858	962	
==>packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12639	12740	
==>0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob["isnegated"] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2143	2241	
==>f.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2143	2241	
==>f.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2143	2241	
==>f.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	46	148	
==>ve;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(* <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	46	148	
==>ve;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(* <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	348	444	
==>r.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen reada <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	348	444	
==>r.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen reada <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36489	36604	
==>items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36489	36604	
==>items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36489	36604	
==>items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1897	2043	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25040	25186	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2090	2236	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25319	25465	
==>, Dumper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25815	25972	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25815	25972	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25815	25972	
==>elf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14714	14812	
==>ge "%s-%s"

=item RPe_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here are so <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5298	5477	
==>str($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5298	5477	
==>str($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7821	7924	
==>ng an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7821	7924	
==>ng an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23724	23839	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24003	24118	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2515	2613	
==>clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data y <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2515	2613	
==>clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data y <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6935	7090	
==>e));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6935	7090	
==>e));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4500	4603	
==>2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @str <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4500	4603	
==>2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @str <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	52	150	
==>h;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	52	150	
==>h;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2092	2225	
==>ate->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2507	2638	
==>ate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2023	2154	
==>ate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2507	2638	
==>ate->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$n <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1297	1446	
==>dir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$Control -C $me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16924	17054	
==>it        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16924	17054	
==>it        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16924	17054	
==>it        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15973	16123	
==>($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15973	16123	
==>($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15973	16123	
==>($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9162	9287	
==>, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5645	5753	
==>:SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5645	5753	
==>:SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5645	5753	
==>:SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  r <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	473	578	
==>Perform one step -- i.e. get an event from @:events and call it.
  my method step () {
    return unless @ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2485	2712	
==>fined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2485	2712	
==>fined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38517	38615	
==>iable name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'pl <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38517	38615	
==>iable name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'pl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9444	9553	
==>ram ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'Ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	5	103	
==>s -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	5	103	
==>s -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	5	103	
==>s -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	791	930	
==>y int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	791	930	
==>y int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8096	8208	
==>else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8084	8196	
==>else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	141	246	
==>r::Util 'blessed';
use Carp 'confess';

use base 'type::equivalence';

# need to load this here in 
# orde <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	814	903	
==>ub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	814	903	
==>ub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	814	903	
==>ub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	501	606	
==>$param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	501	606	
==>$param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPS <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3151	3245	
==>nt ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersectio <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3151	3245	
==>nt ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersectio <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	134	243	
==>t(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	134	243	
==>t(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	134	243	
==>t(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(re <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12054	12139	
==>class="leftsep num tests_total"><span title="<tmpl_var name=total> total"><tmpl_var na <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4251	4347	
==>annels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<3 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4251	4347	
==>annels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<3 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40018	40113	
==>ould have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the file <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40018	40113	
==>ould have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the file <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6353	6451	
==>ead1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which w <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3707	3805	
==>ead1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6353	6451	
==>ead1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3707	3805	
==>ead1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event::Parser> which w <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9887	10010	
==>tring
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        re <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11364	11487	
==>tring
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        re <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	523	628	
==>cial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	523	628	
==>cial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4231	4334	
==>i sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3358	3461	
==>i sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4231	4334	
==>i sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3358	3461	
==>i sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is union
multi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19870	19992	
==>d;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16291	16413	
==>d;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8130	8224	
==>d2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8130	8224	
==>d2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10224	10344	
==>exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10224	10344	
==>exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priva <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10224	10344	
==>exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priva <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16424	16529	
==>b _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $self->{line <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7038	7137	
==>AL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assum <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7038	7137	
==>AL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assum <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15328	15426	
==>em C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by ex <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15328	15426	
==>em C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2696	2802	
==>") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2696	2802	
==>") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2696	2802	
==>") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	315	414	
==>("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25128	25267	
==>[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5177	5311	
==>> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5177	5311	
==>> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5177	5311	
==>> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->a <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4314	4429	
==>e =~ s{(['\\])}{\\$1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    P <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1631	1744	
==><{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1631	1744	
==><{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1631	1744	
==><{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	228	336	
==>rate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__->a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13807	13941	
==>es => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13807	13941	
==>es => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This w <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	258	358	
==>r=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$packag <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	258	358	
==>r=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$packag <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17896	18071	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18827	19002	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18175	18350	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19106	19281	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4870	4993	
==>$index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_w <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4870	4993	
==>$index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_w <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	942	1057	
==>'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capita <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	942	1057	
==>'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capita <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	973	1075	
==>tch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - te <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	973	1075	
==>tch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - te <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	973	1075	
==>tch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - te <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3238	3335	
==>e Internet.
  --kernel-local=$kernel_local
    Locally, the kernel is saved as --kernel-local.
  - <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1075	1232	
==>[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1075	1232	
==>[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2159	2258	
==>match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratche <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2147	2246	
==>match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratche <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9323	9417	
==>ew(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6132	6222	
==>sses both perform the Test::Builder::Test::WithReason role
and override some methods to pro <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6132	6222	
==>sses both perform the Test::Builder::Test::WithReason role
and override some methods to pro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8329	8419	
==>sses both perform the Test::Builder::Test::WithReason role
and override some methods to pro <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2283	2447	
==>ype = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw",
                          } ];
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2651	2760	
==>freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2651	2760	
==>freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1067	1165	
==>f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1067	1165	
==>f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOP <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	656	750	
==>rgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This libra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1099	1192	
==>imeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1099	1192	
==>imeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
lo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1099	1192	
==>imeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
lo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11745	11860	
==>mple.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &dif <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2420	2521	
==>ve a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2420	2521	
==>ve a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2420	2521	
==>ve a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_m <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	766	866	
==>ue) {
    %Cookies{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2714	2802	
==>mp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Hor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2714	2802	
==>mp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Hor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2714	2802	
==>mp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Hor <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1737	1999	
==>None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1737	1999	
==>None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rose <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17742	17861	
==>"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    irc <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17742	17861	
==>"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    irc <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14063	14155	
==>o "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10290	10382	
==>o "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14063	14155	
==>o "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10290	10382	
==>o "iblech" Blechschmidt (Documentation)

Stevan "stevan" Little (misc. ugly hacks to make thi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1583	1689	
==>.= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1583	1689	
==>.= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1583	1689	
==>.= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n <==
4	/Users/nnunley/pugs/util/run-smoke.pl	771	863	
==>>lookup('smoke_upload');
my $smoke_upload_script = File::Spec->canonpath('./util/smokeserv/sm <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9441	9653	
==>ew (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return ::T <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6356	6510	
==>s $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6356	6510	
==>s $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6356	6510	
==>s $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:ce <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1404	1500	
==>od remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) r <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1404	1500	
==>od remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19375	19465	
==>that data definition statements are structured as
standard data manipulation statements but <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19375	19465	
==>that data definition statements are structured as
standard data manipulation statements but <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3474	3616	
==>e,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3614	3756	
==>e,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	366	470	
==>ntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	366	470	
==>ntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1058	1160	
==>var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1058	1160	
==>var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1058	1160	
==>var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4482	4610	
==>[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4482	4610	
==>[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->el <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4482	4610	
==>[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->el <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1869	1985	
==>h hash ihash)),
        (map { $_ => '@' } qw(flat_array array iarray)),
      );

sub generate_attribute {
    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32215	32313	
==>uples appear only once in
the result.  With any 2 relations, the result is the same regardless of
w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36765	36863	
==>uples appear only once in
the result.  With any 2 relations, the result is the same regardless of
w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36055	36153	
==>uples appear only once in
the result.  With any 2 relations, the result is the same regardless of
w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2742	2861	
==>cal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2742	2861	
==>cal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::M <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2742	2861	
==>cal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::M <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1792	1897	
==>splice (@a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $l <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13700	13828	
==>); [] },
      numeric     => sub { $as_array_complain->("numeric") },
      non_numeric => sub { $as_array_complain->("non_numer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6692	6815	
==>&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6692	6815	
==>&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6692	6815	
==>&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24172	24313	
==>ew('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5062	5154	
==>$.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's dia <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5062	5154	
==>$.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's dia <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7259	7351	
==>$.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's dia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6295	6413	
==>XX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6295	6413	
==>XX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31037	31128	
==>on or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35587	35678	
==>on or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Rela <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	811	913	
==>_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	811	913	
==>_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24659	24758	
==>of the
License, or (at your option) any later version.  You should have received a
copy of the GPL a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24659	24758	
==>of the
License, or (at your option) any later version.  You should have received a
copy of the GPL a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2991	3135	
==>IN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3208	3352	
==>IN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	855	959	
==>in('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	855	959	
==>in('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4393	4489	
==>it(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<ke <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4578	4674	
==>it(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<ke <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38160	38255	
==>ars! )>

This method takes a defined (but possibly empty) Template text string in
its positional <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38160	38255	
==>ars! )>

This method takes a defined (but possibly empty) Template text string in
its positional <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1031	1152	
==>e;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1031	1152	
==>e;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	92	189	
==>r';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use F <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	92	189	
==>r';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use F <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15249	15350	
==>ation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18726	18827	
==>ation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15050	15139	
==>ative Interface (RNI), which applications invoke and which
multiple interchangeable "Engin <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15050	15139	
==>ative Interface (RNI), which applications invoke and which
multiple interchangeable "Engin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2607	2826	
==>ce => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2607	2826	
==>ce => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2607	2826	
==>ce => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bl <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	596	725	
==>less @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = shift;
    $self->{'va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5812	6015	
==>me}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fix <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1814	1928	
==>ods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1814	1928	
==>ods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ % <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1814	1928	
==>ods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ % <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8936	9032	
==>ub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8936	9032	
==>ub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8936	9032	
==>ub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	702	829	
==>f = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer::DynamicScoping::Pad->new(
        na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	553	648	
==>%cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	553	648	
==>%cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	553	648	
==>%cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14081	14240	
==>.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expan <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14081	14240	
==>.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expan <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14081	14240	
==>.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2421	2559	
==>thods => {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic'  => <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2881	2989	
==>$self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2881	2989	
==>$self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2881	2989	
==>$self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	620	719	
==>`.

For functions exported to the global `*` namespace, please use
the `is builtin` trait.

=cut


c <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	729	839	
==>s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1890	1990	
==>'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1890	1990	
==>'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1890	1990	
==>'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6 <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3702	3795	
==>rily for reading human written files, and anything we
write shouldn't need to have documentati <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15319	15412	
==>d so an
application written to it should behave identically no matter which
conforming "Engine <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3702	3795	
==>rily for reading human written files, and anything we
write shouldn't need to have documentati <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15319	15412	
==>d so an
application written to it should behave identically no matter which
conforming "Engine <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5657	5764	
==>pdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5657	5764	
==>pdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16582	16697	
==>), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that need to be typed

# this i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13985	14090	
==>($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13985	14090	
==>($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13985	14090	
==>($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attrib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1625	1737	
==>$class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12613	12725	
==>>new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1625	1737	
==>$class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1625	1737	
==>$class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2416	2514	
==>y $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2416	2514	
==>y $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2416	2514	
==>y $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	616	711	
==>sed locally.
Helpers:: is for more generally useful stuff, and need not be
  implemented immedia <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	403	568	
==>st_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	403	568	
==>st_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	861	950	
==>replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>: <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	861	950	
==>replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6140	6241	
==>of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6140	6241	
==>of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6140	6241	
==>of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper t <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	1185	1285	
==>can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub auto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2358	2461	
==>er types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller conte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2358	2461	
==>er types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller conte <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2358	2461	
==>er types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller conte <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11546	11656	
==>OR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PIN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11546	11656	
==>OR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PIN <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14395	14494	
==>$self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8598	8697	
==>$self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6743	6842	
==>um $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6743	6842	
==>um $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6743	6842	
==>um $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive i <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	137	234	
==>ten-Operator
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16783	16883	
==>n( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwis <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16783	16883	
==>n( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20695	20802	
==>)->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20695	20802	
==>)->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20695	20802	
==>)->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTH <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	56	157	
==>new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	56	157	
==>new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	56	157	
==>new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15751	15847	
==>a regex.  Will
be able to produce HTML output that color-codes the elements of the regex
accordin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2805	2927	
==>"Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3269	3391	
==>"Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32443	32535	
==>ited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32443	32535	
==>ited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	835	925	
==>Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replaceme <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	835	925	
==>Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replaceme <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25944	26032	
==>:variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	26187	26275	
==>:variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	455	565	
==>NC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purpos <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	455	565	
==>NC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purpos <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1465	1555	
==>ugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1465	1555	
==>ugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12697	12835	
==>, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12976	13114	
==>, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1249	1362	
==>on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $densi <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1249	1362	
==>on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $densi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4055	4155	
==>value_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return contin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4055	4155	
==>value_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return contin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4055	4155	
==>value_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return contin <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18119	18216	
==>||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <LogicalAND <==
4	/Users/nnunley/pugs/util/graphfuncs.pl	975	1106	
==>nodes) {
        print "." if $Conf{verbose};
        my %cc = ($f => 1);
        print "calculating cc for $f\n";
        $allccs{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	567	657	
==>,\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	567	657	
==>,\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	567	657	
==>,\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_comp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	302	405	
==>cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	302	405	
==>cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bo <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	302	405	
==>cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7503	7602	
==>SA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7503	7602	
==>SA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7503	7602	
==>SA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2189	2346	
==>in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2249	2406	
==>in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                mat <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1885	1994	
==>hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
} <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1885	1994	
==>hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
} <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3291	3445	
==>{
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue) <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3291	3445	
==>{
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17633	17730	
==>es.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17633	17730	
==>es.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3197	3298	
==>js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3197	3298	
==>js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3197	3298	
==>js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2J <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16368	16464	
==>ves trailing chars that match C</\n/>. In
either case, it returns the number of chars removed.

N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8171	8319	
==>hods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8171	8319	
==>hods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { N <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8171	8319	
==>hods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { N <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9360	9456	
==>opaque $self: symbol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4528	4650	
==>method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher) returns opaque {
    &dispatcher.()
}

(clos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	536	637	
==>r a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	536	637	
==>r a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	536	637	
==>r a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4453	4589	
==>> '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raqu <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4453	4589	
==>> '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raqu <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15653	15748	
==>the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15653	15748	
==>the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	68	179	
==>ess keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	68	179	
==>ess keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	68	179	
==>ess keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using f <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10474	10575	
==>=cut

my $i = Interpreter->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1773	1898	
==>ieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3278	3403	
==>tRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <RegularExpressionLite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1773	1898	
==>ieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1773	1898	
==>ieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5183	5279	
==>lean value
of success or failure

=item data

The C<data> method returns a hash reference represe <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5183	5279	
==>lean value
of success or failure

=item data

The C<data> method returns a hash reference represe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11412	11518	
==>s;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11412	11518	
==>s;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11412	11518	
==>s;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@a <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	353	448	
==>nc_paths has been changed to cc_inc_paths due to confusion between Perl and C";
	shift()->cc_inc <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21839	21946	
==>een {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is bui <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	107	211	
==>';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	107	211	
==>';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	107	211	
==>';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cla <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	615	740	
==>:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<La <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36762	36856	
==>oo.  Another trivial case is if any
source relation is the identity-one relation (zero attribut <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41311	41405	
==>oo.  Another trivial case is if any
source relation is the identity-one relation (zero attribut <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40934	41028	
==>oo.  Another trivial case is if any
source relation is the identity-one relation (zero attribut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	842	948	
==>retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gener <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	842	948	
==>retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gener <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	842	948	
==>retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gener <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1849	2039	
==>r sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1849	2039	
==>r sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1849	2039	
==>r sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our & <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11270	11387	
==>from,$to-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14940	15052	
==>mpilation regular expression */
  U32 nparens;            /* number of parentheses */

The match result:

  I32 s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	5	117	
==>age Perl6::MM::Method;

use Perl6::Core::Closure;

package method;

use strict;
use warnings;

use Carp 'confess' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	305	400	
==>ent_encoding content_length content_language
    title user_agent server from referer
    www_au <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	305	400	
==>ent_encoding content_length content_language
    title user_agent server from referer
    www_au <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7315	7432	
==>run_test($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	11	113	
==>ude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	11	113	
==>ude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	11	113	
==>ude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13234	13351	
==>( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16711	16828	
==>( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16073	16190	
==>( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10490	10605	
==>{switches}) {
	local $Level = 2;
	die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
	    unless re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1929	2124	
==>))."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1929	2124	
==>))."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1929	2124	
==>))."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16131	16268	
==>ut!\s*(.*)/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_stat <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4477	4573	
==>to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Si <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4477	4573	
==>to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Si <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17053	17148	
==>ch that would not be possible if its
functionality was subsumed into a larger package that would <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17053	17148	
==>ch that would not be possible if its
functionality was subsumed into a larger package that would <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11193	11286	
==>item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11193	11286	
==>item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39204	39321	
==>ay = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39204	39321	
==>ay = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39204	39321	
==>ay = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2360	2475	
==>unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

sub import {
    my $clas <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1506	1612	
==>st ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1506	1612	
==>st ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1586	1692	
==>st ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27997	28098	
==>ap");
is(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 + x)");

dies_ok { t($flatten_ <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2075	2186	
==>'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd::ab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2971	3068	
==>:blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2971	3068	
==>:blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2971	3068	
==>:blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $o <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4319	4437	
==>it'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4319	4437	
==>it'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1169	1287	
==>it'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             ' <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13853	13944	
==>|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    - <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1441	1547	
==>port
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    m <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1441	1547	
==>port
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1521	1627	
==>port
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10651	10806	
==>ch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10651	10806	
==>ch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10651	10806	
==>ch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

clas <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	252	364	
==>ined;
    return $:tree;
}

method show_tree ($self:) returns Void {
    $self.tree().traverse(-> $t { 
        s <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4442	4577	
==>e?
sub is_installed {
    my $self = shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4095	4199	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4095	4199	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4095	4199	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    m <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13963	14074	
==>l change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" B <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10190	10301	
==>l change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" B <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13963	14074	
==>l change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" B <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10190	10301	
==>l change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" B <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6353	6502	
==>ef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6353	6502	
==>ef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6353	6502	
==>ef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24280	24388	
==>qr, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, $self->{data}[0]->visual, $self-> <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1196	1312	
==>pt;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        m <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1196	1312	
==>pt;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        m <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13851	13964	
==>my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13851	13964	
==>my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22932	23073	
==>add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            metho <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42535	42676	
==>add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8545	8683	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8738	8876	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14011	14138	
==>mp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14011	14138	
==>mp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14011	14138	
==>mp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29607	29704	
==>created a handle for '&&' without a predecessor, you would have
to add it explicity to the queue f <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5741	5877	
==>=> 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eva <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5741	5877	
==>=> 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eva <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14263	14362	
==>r $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This wil <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14321	14420	
==>r $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This wil <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29789	29883	
==>tal_results()

Remember exit code

Completely redo the print summary code.

Implement Straps ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3089	3178	
==>^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3089	3178	
==>^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3089	3178	
==>^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14854	14980	
==>Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14854	14980	
==>Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14854	14980	
==>Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5706	5801	
==>antiate {
	my $self = shift;
	$self->{instance} = shift;
	bless $self, "type::variable::instanti <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7627	7746	
==>$o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    r <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7068	7182	
==>$o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7140	7234	
==>output.

A default implementation of this method is provided which returns nothing.

=item C<_t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7140	7234	
==>output.

A default implementation of this method is provided which returns nothing.

=item C<_t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	208	314	
==>atcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	458	560	
==>rs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	458	560	
==>rs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1447	1545	
==>:undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1539	1649	
==>l do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1539	1649	
==>l do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1539	1649	
==>l do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_me <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	499	597	
==>w PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() ho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	499	597	
==>w PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() ho <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	499	597	
==>w PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() ho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1445	1542	
==><'BIND', __PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Config => LIBS => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6716	6856	
==>to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6716	6856	
==>to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6716	6856	
==>to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22494	22618	
==>fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $failed_str)
                  . $middle_s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5314	5476	
==>age as being authorative for these links ###
                $href->{ $path } = { bin => \@bins, auto => 1 };
                    
                ### dump out alt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6196	6304	
==>on_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6196	6304	
==>on_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	697	799	
==>emented immediately.  Assume the existence of what would
  be useful, and we'll do it later.

=cut
###* <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8355	8460	
==>>unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11616	11707	
==>e $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11616	11707	
==>e $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11616	11707	
==>e $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	325	428	
==>$_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	325	428	
==>$_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	325	428	
==>$_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16837	16967	
==>ainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16837	16967	
==>ainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16837	16967	
==>ainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3793	3897	
==>>fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5470	5571	
==>rammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # ma <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5280	5379	
==>rammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # ma <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13260	13354	
==>`grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13260	13354	
==>`grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15261	15436	
==>ues = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15261	15436	
==>ues = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15261	15436	
==>ues = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36567	36663	
==>others> is an
empty list, in which case the returned Relation is identical to the
invocant.  Anot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41116	41212	
==>others> is an
empty list, in which case the returned Relation is identical to the
invocant.  Anot <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13028	13123	
==>ings are provided as argument they are each decoded
separately and the same number of strings ar <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13028	13123	
==>ings are provided as argument they are each decoded
separately and the same number of strings ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5352	5479	
==>yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5352	5479	
==>yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5352	5479	
==>yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\" <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17508	17611	
==>xp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5168	5315	
==>::Runtime::Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7533	7648	
==>ot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7533	7648	
==>ot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMetho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7533	7648	
==>ot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMetho <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1253	1430	
==>.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1253	1430	
==>.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1253	1430	
==>.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	664	790	
==>turns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagnost <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6514	6612	
==>@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6514	6612	
==>@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7386	7482	
==>@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7386	7482	
==>@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> (Set $one, *@args) r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5826	6002	
==>(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($po <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5826	6002	
==>(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($po <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21799	21917	
==>regcomp.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 coun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1359	1475	
==>sion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1359	1475	
==>sion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1359	1475	
==>sion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($ <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	2970	3067	
==>onfig{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\us <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3492	3609	
==><  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        w <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1804	1919	
==>< .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        w <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2341	2456	
==>< .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        w <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2903	3018	
==>< .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3058	3243	
==>> sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3058	3243	
==>> sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3058	3243	
==>> sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $se <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1567	1668	
==>t} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args-> <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2604	2721	
==>Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqrt (  Num  $x             - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	470	575	
==>atfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	470	575	
==>atfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	470	575	
==>atfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11202	11313	
==>ory = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1192	1294	
==>ocal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1192	1294	
==>ocal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1192	1294	
==>ocal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bl <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	679	784	
==>a: (caching)
    #    Set-Cookie: (multiple cookies)
    print CookiesHeader();
    if ($location.defined) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4446	4548	
==>$self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4446	4548	
==>$self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4446	4548	
==>$self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	418	535	
==>y $match = shift;
    $match .= '';
    # print "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10668	10777	
==>NC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still bro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10668	10777	
==>NC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still bro <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10668	10777	
==>NC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still bro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	370	465	
==>$_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	370	465	
==>$_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	370	465	
==>$_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3525	3635	
==>{
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3742	3852	
==>{
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8907	9008	
==>p5 code

I'd _expect_ the match object returned to carry the same magic.



overload in p5 is just sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8613	8711	
==>p5 code
I'd _expect_ the match object returned to carry the same magic.

overload in p5 is just sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3527	3652	
==>my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3527	3652	
==>my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3527	3652	
==>my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12520	12638	
==>> sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11902	12074	
==>@h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11902	12074	
==>@h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5415	5518	
==>tamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5415	5518	
==>tamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3266	3371	
==>for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3266	3371	
==>for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3266	3371	
==>for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23557	23647	
==>e|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[ <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	778	880	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	836	938	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	778	880	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	836	938	
==>ption? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2239	2366	
==>Text::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2239	2366	
==>Text::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4345	4460	
==>] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.stat <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4345	4460	
==>] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.stat <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2542	2644	
==>concurrency temp-file. FIXME: use a real temp file?
sub emit_chunk {
    my($self) = @_;
    DumpFile(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1165	1263	
==>nk and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1165	1263	
==>nk and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1165	1263	
==>nk and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "I <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1507	1617	
==>,
  x_label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1625	1733	
==>r my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1625	1733	
==>r my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1625	1733	
==>r my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7600	7706	
==>ssing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7600	7706	
==>ssing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7600	7706	
==>ssing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	926	1176	
==>r

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to ru <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	926	1176	
==>r

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to ru <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3183	3313	
==>p == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3183	3313	
==>p == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1645	1753	
==>=>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imple <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1645	1753	
==>=>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imple <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1645	1753	
==>=>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imple <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	129	227	
==>=> "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4393	4494	
==>r::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::stateme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6527	6620	
==>essing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6527	6620	
==>essing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6527	6620	
==>essing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.o <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5561	5673	
==>anonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.d <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5561	5673	
==>anonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.d <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23508	23602	
==>, this property and/or
same-named accessor method can be used to see if a Relation-doing object <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28060	28154	
==>, this property and/or
same-named accessor method can be used to see if a Relation-doing object <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2219	2319	
==>t;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name}) is n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6189	6281	
==>pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6189	6281	
==>pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6189	6281	
==>pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name ! <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10061	10182	
==>)
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLASS", 
    closure->new(
        $::E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	979	1080	
==>doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	979	1080	
==>doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	979	1080	
==>doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19804	19900	
==>ader that use the
"Basic Authentication Scheme".  In array context it will return two
values; the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19804	19900	
==>ader that use the
"Basic Authentication Scheme".  In array context it will return two
values; the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16434	16523	
==>utationally complete
(and industrial strength) and has fully integrated database functiona <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16434	16523	
==>utationally complete
(and industrial strength) and has fully integrated database functiona <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9877	10023	
==>try );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1666	1800	
==>try );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9205	9335	
==>1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9205	9335	
==>1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1541	1636	
==>rammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1541	1636	
==>rammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3295	3387	
==>lock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3179	3268	
==>lock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	415	575	
==>_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	415	575	
==>_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2578	2703	
==>et> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2578	2703	
==>et> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4962	5076	
==>bset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!= <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4089	4203	
==>bset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4962	5076	
==>bset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!= <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4089	4203	
==>bset/superset
multi sub *infix:<==> (Set $one, Set $two) returns Set {
    $one.equal($two);
}
multi sub *infix:<!= <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4274	4413	
==>ields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep,
        type => $ty <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	243	352	
==>al(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3094	3194	
==>led!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3094	3194	
==>led!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3174	3274	
==>led!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2318	2420	
==>rst in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/] <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2318	2420	
==>rst in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/] <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1558	1652	
==>y including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1558	1652	
==>y including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10016	10115	
==>ADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=hea <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10016	10115	
==>ADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	596	711	
==>x] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	596	711	
==>x] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	596	711	
==>x] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$sel <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13515	13634	
==>cale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13515	13634	
==>cale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1887	1974	
==>L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1976	2063	
==>L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::R <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	626	745	
==>take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buff <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	626	745	
==>take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buff <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16608	16714	
==>rn unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16887	16993	
==>rn unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	709	840	
==>my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $qr = eval{ $f- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40365	40475	
==>, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40365	40475	
==>, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40365	40475	
==>, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arra <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1678	1944	
==>w( :attrs<.value.value> )
                    )
                )
                !! ( 'Scalar' => .value )
            )
        ) } }
    );
}

###########################################################################

proto method export_attrs of Relation::LaxAt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4879	4969	
==>ion_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4879	4969	
==>ion_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacc <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4879	4969	
==>ion_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34020	34147	
==>e;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34020	34147	
==>e;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34020	34147	
==>e;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	335	433	
==>ave all the distribution components you need.

= WHY

You should use this module as a starting poin <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1231	1340	
==>returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.pe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1289	1398	
==>returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.pe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4491	4593	
==>erence ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4491	4593	
==>erence ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1515	1618	
==>ue;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1515	1618	
==>ue;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1515	1618	
==>ue;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28038	28131	
==>perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	310	428	
==>nfinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	310	428	
==>nfinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	310	428	
==>nfinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containin <==
4	/Users/nnunley/pugs/util/func_refact.pl	1771	1873	
==>t->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbo <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1136	1251	
==>"Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Ic <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1136	1251	
==>"Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Ic <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8958	9071	
==>.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix a <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8958	9071	
==>.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7237	7410	
==>n 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7237	7410	
==>n 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7237	7410	
==>n 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26032	26134	
==><@_>.>  I made sure of this in
my code; you should make sure in yours.

Matching against the regex is d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1352	1474	
==>nless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1352	1474	
==>nless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1] <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9948	10051	
==>xt
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9948	10051	
==>xt
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF' <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3318	3448	
==>art = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3318	3448	
==>art = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8721	8823	
==>> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35350	35445	
==>nt

Family: quant

Types: star (C<*>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Dat <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1012	1127	
==>ec = $op->{'nprec'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12961	13072	
==>ined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12961	13072	
==>ined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12961	13072	
==>ined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0] <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	4074	4205	
==>main::;
        print "\n---- Conversion subs ----\n";
        print $conv;
    }
    elsif  ($arg eq '-s'){
        print <<'SUPPOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37790	37916	
==>s = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37790	37916	
==>s = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' ta <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37790	37916	
==>s = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	446	562	
==>$.todo'}        = 0  unless exists $params{'$.todo'};
            $params{'$.reason'}      = '' unless exists $params <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1915	2021	
==>)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1915	2021	
==>)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1915	2021	
==>)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=( <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	744	881	
==>ep { not try { $normalizer.subsume( $_ ) } }, @args );
        }
        
        method create_arguments ( @strings )  {
            $.ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	115	208	
==>erl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	115	208	
==>erl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	115	208	
==>erl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $clas <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6506	6604	
==>::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "interna <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6506	6604	
==>::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "interna <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13549	13702	
==>ng,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $st <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3690	3827	
==>ng,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3690	3827	
==>ng,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3690	3827	
==>ng,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2294	2393	
==>, assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2294	2393	
==>, assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17556	17647	
==>e Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17556	17647	
==>e Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
m <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1254	1363	
==>module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        ha <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	632	755	
==>underflow\n";

        # given/when is a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        gi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11798	11894	
==>orphic to one another. 

Because instances of class all conform to the Role interface/API they ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11798	11894	
==>orphic to one another. 

Because instances of class all conform to the Role interface/API they ar <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11798	11894	
==>orphic to one another. 

Because instances of class all conform to the Role interface/API they ar <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1039	1178	
==>ts";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $8 ) {
            $durat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21358	21449	
==>_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21358	21449	
==>_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21358	21449	
==>_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6 <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	477	616	
==>t the metadata out
        {   ### extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10090	10228	
==>=~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ide <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6431	6569	
==>=~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ide <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7280	7418	
==>=~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ide <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10069	10178	
==>method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.pa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10069	10178	
==>method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.pa <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18837	18934	
==>lias for this method so you
can avoid this misspelling in your programs and still send the right
t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18837	18934	
==>lias for this method so you
can avoid this misspelling in your programs and still send the right
t <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1528	1622	
==>rgs->{INST_ARCHLIB} =
      File::Spec->catfile($path, "arch");
    $self->makemaker_args->{INS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5196	5293	
==>ted namespace ("MyName" in the code above).  This lets you to
do anything you like with each objec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5196	5293	
==>ted namespace ("MyName" in the code above).  This lets you to
do anything you like with each objec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5196	5293	
==>ted namespace ("MyName" in the code above).  This lets you to
do anything you like with each objec <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33925	34022	
==>that has the same heading and
whose body contains all of the tuples that are in the invocant Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38475	38572	
==>that has the same heading and
whose body contains all of the tuples that are in the invocant Relat <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37927	38024	
==>that has the same heading and
whose body contains all of the tuples that are in the invocant Relat <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23062	23158	
==>0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6076	6175	
==>e recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6076	6175	
==>e recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6076	6175	
==>e recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9780	9918	
==>|0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them out for now
          if($test->{t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4784	4888	
==>->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p3d->get_x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18505	18606	
==>ren} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19863	19964	
==>ren} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3673	3777	
==>ym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2859	2950	
==>$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2859	2950	
==>$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2859	2950	
==>$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11074	11220	
==>NDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11074	11220	
==>NDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      fo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11074	11220	
==>NDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      fo <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	769	887	
==>if $i.isa(Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if define <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	694	802	
==>ms }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($ <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	694	802	
==>ms }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	741	842	
==>ggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	741	842	
==>ggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15453	15636	
==>n ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        headi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18930	19113	
==>n ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        headi <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7446	7567	
==>RING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONT <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7446	7567	
==>RING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONT <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	560	692	
==>count  = 1;

    while (abs($f($guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4369	4484	
==>role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4369	4484	
==>role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4369	4484	
==>role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # an <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	193	320	
==>gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3976	4083	
==>param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3976	4083	
==>param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3976	4083	
==>param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $para <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6568	6688	
==>if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        ( <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6625	6745	
==>if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	216	331	
==>al operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that str <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	216	331	
==>al operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that str <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	911	1067	
==>return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	875	1023	
==>return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	843	933	
==>document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	843	933	
==>document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation i <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16922	17069	
==>{ "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic_reduce {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3627	3741	
==>P6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3627	3741	
==>P6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3627	3741	
==>P6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1052	1183	
==>,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1063	1194	
==>,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

su <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15668	15768	
==>empting to use a string at a level lower than what it supports is not
allowed.

If a function takes a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19370	19458	
==>tures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex, <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	162	272	
==>with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
use Fil <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4231	4333	
==>Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.m <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4231	4333	
==>Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.m <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	121	221	
==>rbe => "blau",
	Drink => "Martini"
);

say "$wer hat einen $haustier";
say "$wer mag @obst[0] und @ob <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2957	3190	
==>>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) { <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2957	3190	
==>>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) { <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13409	13532	
==>nterface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13409	13532	
==>nterface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	208	305	
==>(re_tests), but it's
real p5 re coverage is much less.  The test passing was simply to
permit refa <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	4937	5033	
==>iles
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{file}} = $_ for @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	205	297	
==>e perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	205	297	
==>e perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	205	297	
==>e perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10886	10988	
==>r');      
  
is($Bar->singleton_test_on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13778	13869	
==>tion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13778	13869	
==>tion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13778	13869	
==>tion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11889	12121	
==>on', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sourc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11889	12121	
==>on', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sourc <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8362	8476	
==>s)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $mark <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8362	8476	
==>s)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $mark <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4504	4597	
==>r blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4504	4597	
==>r blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4504	4597	
==>r blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	37	121	
==>kend::Perl::Interpreter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScopin <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2040	2157	
==>he spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2040	2157	
==>he spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2040	2157	
==>he spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1665	1769	
==>$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
}
s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	782	931	
==>kage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	782	931	
==>kage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6055	6154	
==>ming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5846	5943	
==>ming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	531	678	
==>\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	531	678	
==>\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	895	984	
==>ents fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM> <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	895	984	
==>ents fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1881	2004	
==>->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1881	2004	
==>->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shif <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1881	2004	
==>->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shif <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3210	3299	
==>n(X), p6_conjunctions(intersect(W,X), Z), !.
p6_conjunctions(W, W) --> {true}.


p5_concat <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	808	919	
==>lf->runtime(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->red <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4871	4969	
==>ti sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $rea <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4929	5027	
==>ti sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $rea <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1277	1442	
==>8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1277	1442	
==>8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2268	2361	
==>L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::E <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2357	2450	
==>L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::E <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	409	527	
==>ke_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	397	491	
==>.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	397	491	
==>.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	397	491	
==>.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14567	14729	
==>rn;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14561	14723	
==>rn;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9796	9888	
==>ers.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9796	9888	
==>ers.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19866	19995	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19866	19995	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19866	19995	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8774	8955	
==>ile ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8774	8955	
==>ile ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8774	8955	
==>ile ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18559	18657	
==>ogicalORExpressionNoIn> <'?'> <AssignmentExpressionNoIn> <':'> <AssignmentExpressionNoIn>
}
rule As <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3884	4002	
==>([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3884	4002	
==>([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nick <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4416	4528	
==>([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4416	4528	
==>([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nick <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11377	11536	
==>1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11656	11815	
==>1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11242	11361	
==>" . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = eac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11242	11361	
==>" . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = eac <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11242	11361	
==>" . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = eac <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2690	2781	
==>z[]not :z::not
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1264	1377	
==>t - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1264	1377	
==>t - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1264	1377	
==>t - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4878	4984	
==>2, $obj);
	goto &{$obj->can($method)};
}

sub load {
    my ($self, $method) = @_;

    $self->load_extensi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4131	4231	
==>lue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4131	4231	
==>lue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6328	6428	
==>lue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Te <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6470	6571	
==>method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submeth <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6470	6571	
==>method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submeth <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7105	7217	
==>rs. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7105	7217	
==>rs. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marra <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7105	7217	
==>rs. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marra <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16426	16537	
==>italize 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39162	39313	
==>> sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	727	846	
==>usts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	727	846	
==>usts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	727	846	
==>usts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3182	3355	
==>= %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3182	3355	
==>= %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3182	3355	
==>= %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1801	1908	
==>declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1801	1908	
==>declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1801	1908	
==>declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $nam <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3079	3173	
==>arn "type of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8455	8586	
==>$current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8455	8586	
==>$current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8455	8586	
==>$current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2345	2443	
==>e_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2345	2443	
==>e_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2216	2309	
==>le> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2305	2398	
==>le> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1784	1903	
==>s of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in : <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5261	5380	
==>s of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in : <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4191	4310	
==>s of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in : <==
4	/Users/nnunley/pugs/util/package-osx.pl	8935	9054	
==>g to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) = @_;
    make_dir("${dest}/us <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4226	4321	
==><script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4226	4321	
==><script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
E <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4226	4321	
==><script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12977	13128	
==>from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12977	13128	
==>from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12977	13128	
==>from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->fr <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	384	480	
==>ot_readbc(i,bcfile);
    Parrot_loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13298	13434	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13298	13434	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13298	13434	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2183	2319	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15013	15115	
==>f;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15013	15115	
==>f;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15013	15115	
==>f;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10662	10763	
==>et.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10662	10763	
==>et.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autov <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10662	10763	
==>et.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autov <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1130	1230	
==>- rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $match <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6959	7177	
==>l',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artis <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7016	7234	
==>l',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artis <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8551	8660	
==>epresenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $univer <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8551	8660	
==>epresenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $univer <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14061	14161	
==>cdroot };

step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28911	29006	
==>es having the same names as old
attributes that become wrapped, and it supports having new tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33463	33558	
==>es having the same names as old
attributes that become wrapped, and it supports having new tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32600	32695	
==>es having the same names as old
attributes that become wrapped, and it supports having new tuple <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6674	6771	
==>h_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speedu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6674	6771	
==>h_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speedu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6674	6771	
==>h_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Speedu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	385	481	
==>IS

 my $role = Role.new("SomeRole");

 $role.addMethod(Method.new(...))

 $role.apply;

=head1 D <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8587	8758	
==>r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8587	8758	
==>r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8587	8758	
==>r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1943	2072	
==>y>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { named_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5501	5630	
==>ure

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5326	5450	
==>ure
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param <==
4	/Users/nnunley/pugs/util/addauthors.pl	1287	1387	
==>thor->{commitcount}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15013	15121	
==>';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  package Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38335	38441	
==>=> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38335	38441	
==>=> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38335	38441	
==>=> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4537	4643	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4537	4643	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4537	4643	
==>>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7521	7640	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7521	7640	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7521	7640	
==>s defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2123	2215	
==>> }
rule quantified_construct  {  <construct_but_not_alias> <quantifier>  }

rule simple_term <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13506	13603	
==>st of distinct names for the fields present in the
header.  The field names have case as suggested <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13506	13603	
==>st of distinct names for the fields present in the
header.  The field names have case as suggested <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	482	575	
==>e whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	482	575	
==>e whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	413	517	
==>order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	413	517	
==>order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bin <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	413	517	
==>order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bin <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13778	13878	
==>n type (see package val above)
val: type($$) = { $.t }

# combs (applications) pass their env to eval <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18442	18546	
==>ord I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {H <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18442	18546	
==>ord I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {H <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7319	7409	
==>sh @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1144	1234	
==>sh @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2838	2970	
==>turn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1460	1592	
==>turn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7042	7139	
==>e does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the proto <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7042	7139	
==>e does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the proto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	251	355	
==>my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	251	355	
==>my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	251	355	
==>my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8626	8727	
==>le.

You can also overload this method if you've built your own strap subclass,
such as a PHP interpre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3141	3239	
==>abel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3141	3239	
==>abel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3141	3239	
==>abel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4985	5080	
==>e (num, ~type) returns nil>

=item B<remove (num) returns nil>

=item B<slice (num, num) returns <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6596	6695	
==>et {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5726	5825	
==>et {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6596	6695	
==>et {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5726	5825	
==>et {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix:< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20177	20308	
==>| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20177	20308	
==>| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20177	20308	
==>| !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17791	17894	
==>XX finish


XXX What exactly _is_ intuit, and do we care?


=cut


=pod

=head1 Perl5's struct regexp an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3016	3140	
==>precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__->a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5221	5324	
==>::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $so <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5040	5139	
==>::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $so <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	334	423	
==>onfig->root->subdir( 'repo' );

system( qw[rm -rf], $config->root, $config->build_dir .'*' <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7091	7202	
==>$ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= S <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7091	7202	
==>$ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= S <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6588	6688	
==>ELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6588	6688	
==>ELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1234	1362	
==>- ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1234	1362	
==>- ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be S <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1234	1362	
==>- ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be S <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17150	17243	
==>($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2600	2702	
==>) (symbol $label) (hash ?%opts)) returns method 
    ((= $method NIL)
     (= $current (&dispatcher do) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6343	6444	
==>[PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6343	6444	
==>[PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6343	6444	
==>[PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } }) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	655	784	
==>?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## C <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	655	784	
==>?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	479	593	
==>n.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	479	593	
==>n.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	204	349	
==>&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thunk(
        Seq(
            Param('$x'),
            Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13	122	
==>Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13	122	
==>Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13	122	
==>Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	995	1104	
==>}

{
  debug "Sending data to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1657	1802	
==>sts";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8045	8179	
==>S   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8045	8179	
==>S   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8045	8179	
==>S   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16080	16184	
==>which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $la <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16080	16184	
==>which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $la <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	383	484	
==>mitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	383	484	
==>mitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	383	484	
==>mitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Ar <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	632	749	
==>output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6796	6904	
==>ure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bas <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20480	20579	
==>ams do or
might have, and lets you arrange the list in order of preference.  When you
open a program <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20480	20579	
==>ams do or
might have, and lets you arrange the list in order of preference.  When you
open a program <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13612	13713	
==>0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow quantifiers
    $rx->error($rx <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10354	10510	
==>est::Builder::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	896	1046	
==>est::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	896	1046	
==>est::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12639	12735	
==>| <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementList : <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5690	5790	
==>s it until we have know how both these interfaces can be
# addressed.  One possibility is to return a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5690	5790	
==>s it until we have know how both these interfaces can be
# addressed.  One possibility is to return a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2948	3036	
==>her = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closur <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2948	3036	
==>her = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closur <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10775	10902	
==>operator::arrow->new(
				$b,
				type::operator::pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1527	1638	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1527	1638	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1527	1638	
==>= $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28217	28311	
==>method returns a stringified version of this object which is suitable
for debugging purposes (s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35573	35667	
==>method returns a stringified version of this object which is suitable
for debugging purposes (s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28217	28311	
==>method returns a stringified version of this object which is suitable
for debugging purposes (s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35573	35667	
==>method returns a stringified version of this object which is suitable
for debugging purposes (s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	61	169	
==>bjects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	61	169	
==>bjects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SU <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	61	169	
==>bjects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SU <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	33	125	
==>ugs/AST/Internals.hs (see line starting "data Param")

has Bool $isInvocant;
has Bool $isOpti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4958	5061	
==>nal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4958	5061	
==>nal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4958	5061	
==>nal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == ! <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14276	14370	
==>iterated.

What is returned at each element of the iteration varies with function.
C<keys> only <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4219	4321	
==>erm_ws;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	656	762	
==>ed - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TO <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	656	762	
==>ed - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TO <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9049	9143	
==>()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9049	9143	
==>()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32344	32508	
==>gth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32344	32508	
==>gth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                la <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32344	32508	
==>gth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                la <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11408	11556	
==>$src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7725	7875	
==>$n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2036	2166	
==>$n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2036	2166	
==>$n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2036	2166	
==>$n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2843	3055	
==>Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2843	3055	
==>Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2843	3055	
==>Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1552	1687	
==>,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	555	656	
==>d.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	555	656	
==>d.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	555	656	
==>d.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3268	3385	
==>um Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "C <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3268	3385	
==>um Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "C <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3475	3571	
==>:Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_dr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3475	3571	
==>:Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_dr <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	1874	1966	
==>pe::operator::binary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_layout($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	435	519	
==>nals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	435	519	
==>nals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	435	519	
==>nals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1246	1348	
==>r { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chun <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1246	1348	
==>r { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chun <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8045	8133	
==>--------------------------------------------------------------
## utility methods

# NOTE <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8045	8133	
==>--------------------------------------------------------------
## utility methods

# NOTE <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14544	14655	
==>er (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14544	14655	
==>er (probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if( <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13581	13684	
==>er (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13581	13684	
==>er (probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4101	4280	
==>-s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, instead o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5628	5744	
==>LE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5628	5744	
==>LE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5628	5744	
==>LE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9478	9622	
==>->add_handler(':::' => sub {
    my ($S) = @_;
  });


  ### '#'

  # I don't think I need to handle this because the
  # nextchar() method skips <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9220	9328	
==>ugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't rem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9220	9328	
==>ugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't rem <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9220	9328	
==>ugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't rem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2350	2584	
==>=> 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1482	1652	
==>=> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1482	1652	
==>=> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $ <==
4	/Users/nnunley/pugs/util/run-smoke.pl	230	329	
==>est::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $failed;

You don <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3705	3844	
==>tch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3705	3844	
==>tch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3705	3844	
==>tch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4497	4604	
==>th =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($clas <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4497	4604	
==>th =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($clas <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12511	12619	
==>if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12511	12619	
==>if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17670	17762	
==>request messages and contains information
about the user agent originating the request.  I<E. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17670	17762	
==>request messages and contains information
about the user agent originating the request.  I<E. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9104	9245	
==>ndefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9104	9245	
==>ndefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension fo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9104	9245	
==>ndefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension fo <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7737	7848	
==>S(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8744	8852	
==>k
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8744	8852	
==>k
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22940	23039	
==>ro or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27492	27591	
==>ro or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
att <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12586	12747	
==>pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  step
    descr  => "Copyin <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5963	6076	
==>place this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5963	6076	
==>place this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_p <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2295	2389	
==>ound_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.roun <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	602	753	
==>(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	602	753	
==>(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6582	6688	
==>("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6582	6688	
==>("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	521	622	
==>, buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	521	622	
==>, buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pai <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	521	622	
==>, buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1510	1611	
==>+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6280	6384	
==>if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6280	6384	
==>if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6280	6384	
==>if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy sl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4680	4779	
==>) {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4680	4779	
==>) {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4680	4779	
==>) {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangl <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	149	246	
==>rtini"
);

print "$wer hat einen $haustier\n";
print "$wer mag @obst[0] und @obst[1]\n";
print "{$ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1255	1399	
==>e $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Control
    }
    
    print -e $archive && - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21345	21445	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21345	21445	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21345	21445	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12536	12687	
==>th;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12536	12687	
==>th;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI:: <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	971	1077	
==>: @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simpli <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	971	1077	
==>: @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simpli <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	482	593	
==>est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2010	2121	
==>est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	560	668	
==>all ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $matc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	560	668	
==>all ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $matc <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15570	15688	
==>::False, $sec, $pico);

        # FIXME: this is how it oughta look, with @ids being class level.
        #my @ids = <y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18500	18590	
==>B infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18500	18590	
==>B infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18500	18590	
==>B infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4384	4524	
==>nk $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $builddir] )                      and error($?), return;

    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1174	1271	
==>nput > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1174	1271	
==>nput > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1174	1271	
==>nput > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1126	1300	
==>{ $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1126	1300	
==>{ $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1474	1576	
==>ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $se <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1614	1716	
==>ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	902	993	
==>relude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	902	993	
==>relude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	902	993	
==>relude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3769	3936	
==>Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	107	209	
==>ss {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	107	209	
==>ss {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	107	209	
==>ss {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13953	14082	
==>";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10126	10255	
==>";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	877	1006	
==>h => $1,
        tail  => $2,
        capture => { cpan_bareword => $1 },
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10962	11091	
==>";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	319	425	
==>red = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	319	425	
==>red = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2791	2886	
==>for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2791	2886	
==>for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query str <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18990	19093	
==>$length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


package Control::Basic {}

 multi Contro <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	167	260	
==>meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	167	260	
==>meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	167	260	
==>meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6060	6197	
==>o the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the D <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6060	6197	
==>o the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the D <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6090	6207	
==>_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find:: <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3767	3883	
==>_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10454	10604	
==>calar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10454	10604	
==>calar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10454	10604	
==>calar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36891	37016	
==>egexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same plac <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4990	5087	
==>.number>

The number of the test in the current test file.

=item B<Str $.description>

The test's <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4990	5087	
==>.number>

The number of the test in the current test file.

=item B<Str $.description>

The test's <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7187	7284	
==>.number>

The number of the test in the current test file.

=item B<Str $.description>

The test's <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	653	902	
==>a

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	653	902	
==>a

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4122	4245	
==>*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4315	4438	
==>*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18258	18390	
==>]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object, $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1857	1958	
==>e = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1857	1958	
==>e = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UND <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1857	1958	
==>e = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UND <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2988	3100	
==>i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2988	3100	
==>i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2988	3100	
==>i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/util/version_h.pl	1973	2074	
==>e STDIN reopened...", because
  # our handle for $version_h got slot #0, like STDIN.
  no warnings "io <==
4	/Users/nnunley/pugs/util/ghc_setup.pl	6	153	
==>/bin/perl
#
# Silly GHC ./Setup helper, simply to strip the DESTDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8471	8610	
==>n Cabal version
        if ($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	938	1062	
==>REWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        N <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5695	5799	
==>r|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10180	10300	
==>::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatcher", q<b <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1058	1157	
==>new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it get <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1058	1157	
==>new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1138	1237	
==>new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it get <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3650	3750	
==>er));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of ev <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3650	3750	
==>er));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of ev <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6980	7077	
==>e the '=head(n)' directive is reached. This does not include 
the text of the header, that will be <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6980	7077	
==>e the '=head(n)' directive is reached. This does not include 
the text of the header, that will be <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13228	13346	
==>dir('bin');

    ### XXX doesn't return an object...
    return 1 unless -d $my_bindir;

    my @bins;
    msg( "Linkin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1279	1394	
==>ef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        B <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1279	1394	
==>ef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        B <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1279	1394	
==>ef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        B <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5100	5234	
==>);
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5100	5234	
==>);
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14216	14319	
==>X class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8420	8523	
==>X class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2808	2901	
==>riableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2808	2901	
==>riableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Pr <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2628	2733	
==>g{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_control'}  = [ 'control.tgz'   ];
$config{'a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	761	854	
==>parison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	761	854	
==>parison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	761	854	
==>parison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3920	4036	
==>} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4060	4176	
==>} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5290	5386	
==>configuration data

=item write

The C<write> method the file for the properties, and writes it
t <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5290	5386	
==>configuration data

=item write

The C<write> method the file for the properties, and writes it
t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11880	11993	
==>') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12303	12416	
==>') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4523	4636	
==>') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4946	5059	
==>') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->fo <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	938	1094	
==>p:{ $_ ne "" } );
        $buf = "";
        last;
      }

      $buf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while +@newtoks <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	61	158	
==>strict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2612	2704	
==>following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sepera <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2612	2704	
==>following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sepera <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5030	5186	
==>, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4889	5045	
==>, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1814	1900	
==>->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3190	3276	
==>->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13245	13345	
==>meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13245	13345	
==>meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13245	13345	
==>meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26028	26122	
==>hod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30580	30674	
==>hod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29555	29649	
==>hod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) r <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1900	1994	
==>!~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file p6 pil_code pil_ <==
4	/Users/nnunley/pugs/util/version_h.pl	551	652	
==>ser questions when it has a STDIN and there is
# no repository.  Since we don't need a STDIN anyway, g <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36525	36621	
==>onsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41074	41170	
==>onsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40688	40784	
==>onsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Re <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3050	3157	
==>> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $star <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3050	3157	
==>> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $star <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8402	8498	
==>num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8460	8556	
==>num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14547	14665	
==>(probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14547	14665	
==>(probably several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13584	13694	
==>(probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13584	13694	
==>(probably several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31537	31634	
==>tes a deeper scope (like an OPEN).

=item ifthen

Whether this object has a true/false branch (lik <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6617	6710	
==>m B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report retu <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6617	6710	
==>m B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8814	8907	
==>m B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7599	7704	
==>ee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7599	7704	
==>ee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4118	4215	
==>en used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4118	4215	
==>en used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6535	6652	
==>emplate module is already loaded.
        # It may have been embedded in a core program file and hence
        # shoul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6535	6652	
==>emplate module is already loaded.
        # It may have been embedded in a core program file and hence
        # shoul <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34738	34836	
==>g as the invocant and whose body contains all of the tuples that
are in the invocant Relation and t <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39288	39386	
==>g as the invocant and whose body contains all of the tuples that
are in the invocant Relation and t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4305	4421	
==>6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4305	4421	
==>6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4305	4421	
==>6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $n <==
4	/Users/nnunley/pugs/util/run-smoke.pl	3103	3206	
==>AD};
    system("$^X $ENV{PUGS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload command: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4425	4520	
==>ef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precendenc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6327	6422	
==>ef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precendenc <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5712	5833	
==>xt }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

metho <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5712	5833	
==>xt }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

metho <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	340	458	
==>t.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	340	458	
==>t.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14004	14101	
==>perators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10231	10328	
==>perators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14004	14101	
==>perators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10231	10328	
==>perators.

=head1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation) <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2508	2616	
==>ce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5711	5819	
==>ce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2508	2616	
==>ce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5711	5819	
==>ce ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30729	30836	
==>ct__> class,
because F<__object__> doesn't inherit from anywhere.  You want to go along
the I<object>'s inhe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4678	4777	
==>ldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4678	4777	
==>ldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4678	4777	
==>ldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	2034	2141	
==>tr type";
    bit->new(exists $self->{$key->to_str->to_native} ? 1 : 0);    
}

1;

__END__

=pod

=head1 NA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1385	1490	
==>moved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1385	1490	
==>moved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL B <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1385	1490	
==>moved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL B <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9856	9951	
==>provides a simple set of common test utility functions, and is
an implementation of the TAP prot <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9914	10009	
==>provides a simple set of common test utility functions, and is
an implementation of the TAP prot <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1389	1483	
==>ce} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1529	1623	
==>ce} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9859	9983	
==>s = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9859	9983	
==>s = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9859	9983	
==>s = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23915	24035	
==>lasses) (?@superclasses)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send ( <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	293	424	
==>uilddir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4089	4181	
==>thods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4089	4181	
==>thods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4089	4181	
==>thods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and wh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6262	6412	
==>ar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6262	6412	
==>ar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6262	6412	
==>ar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5545	5644	
==>}
  previous_exec_hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4174	4306	
==>capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4046	4175	
==>capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matc <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	64	156	
==>il is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_out <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	64	156	
==>il is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_out <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1404	1532	
==>le, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

M <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1404	1532	
==>le, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

M <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12433	12527	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12491	12585	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6104	6204	
==>t needs to do to signal
this is to return the string set in advance with the prune method.

This feat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6104	6204	
==>t needs to do to signal
this is to return the string set in advance with the prune method.

This feat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6104	6204	
==>t needs to do to signal
this is to return the string set in advance with the prune method.

This feat <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3773	3869	
==>g_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'cotanh';
trig <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	768	880	
==>tcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	768	880	
==>tcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	768	880	
==>tcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4794	4893	
==>ray
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$aref, <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3855	3951	
==>that the next test should fail.  C<$description> is the optional
description of the test.  This i <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3855	3951	
==>that the next test should fail.  C<$description> is the optional
description of the test.  This i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3935	4031	
==>that the next test should fail.  C<$description> is the optional
description of the test.  This i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5517	5628	
==>elf, @flags) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @f <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	685	784	
==>th (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','' <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	685	784	
==>th (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4847	4971	
==>postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4847	4971	
==>postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3471	3565	
==>rs unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3471	3565	
==>rs unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14670	14775	
==>S_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, mpos) = newf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6371	6467	
==>are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6371	6467	
==>are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6371	6467	
==>are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12159	12266	
==>y ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16739	16846	
==>y ref) is set, then each element in it is used to
initialize a new Node object (plus an optional hierarchy o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12159	12266	
==>y ref) is set, then each
element in it is used to initialize a new Node object (plus an optional
hierarchy o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16739	16846	
==>y ref) is set, then each element in it is used to
initialize a new Node object (plus an optional hierarchy o <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3227	3348	
==>LED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $desc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3227	3348	
==>LED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $desc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4751	4872	
==>LED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $desc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3907	4001	
==>out PMC support.

  Can't locate object method "compile" via package "Pugs::Compiler::Perl6"

P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3329	3451	
==>ons

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3340	3462	
==>ons

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14729	14844	
==>tr $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enque <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14729	14844	
==>tr $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enque <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4008	4124	
==>r mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4008	4124	
==>r mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4008	4124	
==>r mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6319	6414	
==>> for documentation about nodes and the objects
that represent them.  See L<Regexp::Parser::Hand <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3603	3728	
==>q $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mod <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3603	3728	
==>q $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5127	5252	
==>q $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test mod <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1283	1375	
==>9323846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is builtin is pr <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7529	7638	
==>temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16952	17043	
==>dable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16952	17043	
==>dable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16952	17043	
==>dable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inter <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	456	570	
==>w, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tre <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	456	570	
==>w, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4296	4393	
==>as match objects.

=head2 %{}

When used as a hash reference, the match object returns named captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4296	4393	
==>as match objects.

=head2 %{}

When used as a hash reference, the match object returns named captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2289	2411	
==>, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2289	2411	
==>, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2289	2411	
==>, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can' <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2453	2555	
==>}
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    ::= Code(Any, Any) returns Int;
 t <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7081	7197	
==>ndle passed
sub _autoflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13213	13314	
==>); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13213	13314	
==>); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13213	13314	
==>); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5976	6069	
==>hile (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6546	6639	
==>hile (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17674	17809	
==>arnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17674	17809	
==>arnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17674	17809	
==>arnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3843	3944	
==>OB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->ref();
}
sub p6_isa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20352	20463	
==>t
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16773	16884	
==>t
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2718	2812	
==>lf: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2718	2812	
==>lf: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1349	1449	
==>ge PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1349	1449	
==>ge PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1349	1449	
==>ge PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{ <==
4	/Users/nnunley/pugs/util/package-osx.pl	1602	1691	
==>usr/local/lib/perl5/site_perl/PIL.pm /Library/Perl/5.8.6/PIL.pm
        /usr/local/lib/per <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1041	1139	
==>tion? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1041	1139	
==>tion? ) returns Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	963	1060	
==>tion? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	963	1060	
==>tion? ) returns Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7389	7495	
==>e PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7389	7495	
==>e PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7389	7495	
==>e PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3199	3309	
==>ervername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3199	3309	
==>ervername nickname umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3780	3886	
==>ervername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3780	3886	
==>ervername nickname umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6720	6838	
==>ess) = @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	873	973	
==>Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	873	973	
==>Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all po <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	873	973	
==>Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all po <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4251	4366	
==>$list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            $list->pus <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	116	214	
==>less (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes o <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	116	214	
==>less (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes o <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17472	17555	
==>:- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18082	18205	
==>ptional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optiona <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17120	17243	
==>ptional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optiona <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18082	18205	
==>ptional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optiona <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17120	17243	
==>ptional, defaults to 120)
    floodcontrol => 0,        # (optional, defaults to 0)
    debug_raw => 0,           # (optiona <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	877	989	
==>die::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # might or might not have some buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	75	171	
==>:shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	75	171	
==>:shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	75	171	
==>:shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4849	5039	
==>rn { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4698	4883	
==>rn { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags-> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3500	3599	
==>ta) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3500	3599	
==>ta) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	510	629	
==>vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	510	629	
==>vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	510	629	
==>vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30709	30806	
==>it must match the right parenthesis
itself.  The handler throws an error if it can't match the ')' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	124	266	
==>ents = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3178	3320	
==>ents = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	124	266	
==>ents = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3178	3320	
==>ents = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	775	875	
==>@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1900	2000	
==>@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	775	875	
==>@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1900	2000	
==>@web.deE<gt>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1189	1324	
==>eft',
        precedence => 'equal',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        name => '~',
        assoc => 'lef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	965	1046	
==>L2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	965	1046	
==>L2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	965	1046	
==>L2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4180	4299	
==>amble = "# Postamble by $top_class $top_version\n"
        . ($self->postamble || '');

    local *MAKEFILE;
    open MA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7145	7239	
==>Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7145	7239	
==>Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $m <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14144	14232	
==>um)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) :- cached_unc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19319	19589	
==>' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19319	19589	
==>' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19319	19589	
==>' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5597	5699	
==>) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::String $v) {
    ~$v eq "" ?? JSX::fals <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1861	1969	
==>write it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1861	1969	
==>write it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Pa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1861	1969	
==>write it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Pa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2391	2691	
==>ccum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('& <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12564	12692	
==>->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12564	12692	
==>->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12564	12692	
==>->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2149	2272	
==>odules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2149	2272	
==>odules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1381	1499	
==>odules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3242	3360	
==>odules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compiler::Rule synta <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2515	2755	
==>olon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2762	3002	
==>olon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3519	3624	
==>/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3394	3494	
==>/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	890	1058	
==>my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	890	1058	
==>my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	890	1058	
==>my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@su <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	1366	1445	
==>}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5107	5212	
==>2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5107	5212	
==>2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5107	5212	
==>2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39945	40039	
==>Example as its C<$other> argument and combines it with the
invocant relation into a new Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1490	1657	
==>F->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1490	1657	
==>F->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1490	1657	
==>F->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1" <==
4	/Users/nnunley/pugs/util/config_h.pl	1131	1231	
==>< '.');
import System.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7826	7954	
==>ck = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8019	8147	
==>ck = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4117	4217	
==>cendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6019	6119	
==>cendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1438	1597	
==>{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5385	5484	
==>unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, sinc <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5385	5484	
==>unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, sinc <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3763	4110	
==>line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $f <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3806	4153	
==>line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $f <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3763	4110	
==>line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $f <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3806	4153	
==>line = $fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $f <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10483	10614	
==>1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_childre <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10483	10614	
==>1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_childre <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4411	4526	
==>te[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keyst <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4411	4526	
==>te[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keyst <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8836	8936	
==>ublished by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3765	3865	
==>ublished by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8836	8936	
==>ublished by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3765	3865	
==>ublished by 
John Wiley & Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3723	3828	
==>st module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<2 <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3723	3828	
==>st module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5247	5352	
==>st module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<2 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10189	10285	
==>ar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Ba <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6368	6481	
==>en = 0;
    r->reganch = 0;
    /* Make sure environment is set up (also helps scare off perl) */
    r->reganch | <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	665	753	
==>.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	665	753	
==>.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	665	753	
==>.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5993	6131	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5993	6131	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5993	6131	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1360	1472	
==>ls}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ($self, $op) = @_;
    print "emitting g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11295	11452	
==>my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before here <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11295	11452	
==>my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before here <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3164	3278	
==>al = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4013	4127	
==>al = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4710	4810	
==>ift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper::Du <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1032	1123	
==>Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1032	1123	
==>Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1032	1123	
==>Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24113	24248	
==>$a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24113	24248	
==>$a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(def <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24113	24248	
==>$a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(def <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6952	7070	
==>";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28461	28553	
==>ich attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33013	33105	
==>ich attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32141	32233	
==>ich attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8804	8927	
==>r cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8804	8927	
==>r cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8804	8927	
==>r cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	481	595	
==>next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### BACKSLASHED <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	958	1062	
==>ly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	958	1062	
==>ly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	958	1062	
==>ly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'l <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27127	27222	
==>r is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usable grammar.
# Unim <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11708	11831	
==>ivecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    r <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11708	11831	
==>ivecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10910	10999	
==>b.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, * <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10910	10999	
==>b.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3649	3775	
==>}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3649	3775	
==>}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3649	3775	
==>}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	26	135	
==>strict;
use warnings;
use Cwd;
use Config;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $C <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24011	24142	
==>or reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops between a client automatically send <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22784	22915	
==>or reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops between a client automatically send <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24011	24142	
==>or reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops between a client automatically send <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22784	22915	
==>or reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops between a client automatically send <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7575	7699	
==>") and ($orig_thunk->fixity || "") eq "infix") {
		return "( $params[0] $thunk $params[1] )";
	} else {
		return "$thunk( " . <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6803	6904	
==>);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7175	7276	
==>);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Re <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7474	7575	
==>);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4837	4953	
==>$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4837	4953	
==>$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5348	5449	
==>ails.  The $url argument can
be either a simple string or a reference to a URI object.

You will not b <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5348	5449	
==>ails.  The $url argument can
be either a simple string or a reference to a URI object.

You will not b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	788	929	
==>ol  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7251	7353	
==>::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7251	7353	
==>::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7251	7353	
==>::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	805	960	
==>ass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	805	960	
==>ass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	805	960	
==>ass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4326	4422	
==>quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1710	1829	
==>r
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1710	1829	
==>r
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1710	1829	
==>r
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4480	4589	
==>::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32359	32523	
==>th;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32359	32523	
==>th;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_leng <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32359	32523	
==>th;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3668	3784	
==>lf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3668	3784	
==>lf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3668	3784	
==>lf->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	126	226	
==>ement the "magic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after e <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5844	5997	
==>!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	204	300	
==>6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	204	300	
==>6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	204	300	
==>6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	785	985	
==>"shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fontcolo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20201	20289	
==>{ smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20201	20289	
==>{ smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20201	20289	
==>{ smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9853	9971	
==>param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $para <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15694	15812	
==>param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9853	9971	
==>param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15688	15806	
==>param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, $cmd );
        $param_list = '' unless defined $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2681	2795	
==>t "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2681	2795	
==>t "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_st <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2681	2795	
==>t "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_st <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15979	16080	
==>Bail out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1107	1217	
==>if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1107	1217	
==>if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1107	1217	
==>if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	307	414	
==>tall::Base};
}


# check if we can load some module
### Upgrade this to not have to load the module if possi <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4374	4645	
==>ef->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LINKING unless $link_this;

                my @b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	505	616	
==>b" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	505	616	
==>b" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	505	616	
==>b" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :l <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14316	14424	
==>his makes it prettier
        $sobj->look_down(_tag=>"head")->push_content(
                HTML::Element->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2451	2556	
==>R_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2451	2556	
==>R_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2451	2556	
==>R_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9673	9811	
==>lf->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9673	9811	
==>lf->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.ke <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9673	9811	
==>lf->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.ke <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	550	641	
==>PAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian Ragwitz E<lt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1570	1686	
==>t );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Pe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1570	1686	
==>t );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Pe <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4540	4654	
==>f children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4540	4654	
==>f children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!chil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8227	8316	
==>ents, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2052	2141	
==>ents, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5041	5151	
==>) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5099	5209	
==>) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9232	9326	
==>CE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9232	9326	
==>CE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24258	24422	
==>if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24258	24422	
==>if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24258	24422	
==>if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9665	9757	
==>tin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	557	731	
==>$1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do {
            my($key, $val) = ($1, $2);
            $val = 1 if $val =~ /^ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4144	4252	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\n", '\N') if $cc;
    return $S-> <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1385	1492	
==>urn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.de <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1385	1492	
==>urn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.de <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	483	576	
==>Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	483	576	
==>Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	483	576	
==>Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $J <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27113	27204	
==>cript3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usab <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5047	5171	
==>]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5047	5171	
==>]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5637	5761	
==>]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6015	6111	
==>>has_method('resolve'), '... we do not have the resolve method');

# Bootstrap -> Class does Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11102	11254	
==>ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1576	1712	
==>ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builde <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1576	1712	
==>ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builde <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19923	20033	
==>12.1
      <Statement>
    | <StatementList> <Statement>
}
rule VariableStatement :words {  # see 12.2
      <' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1762	1881	
==>new(p6_file=>$filename)->get_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	861	964	
==>mp,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_bas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	861	964	
==>mp,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_bas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	861	964	
==>mp,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_bas <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20328	20481	
==>subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6156	6247	
==>::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6156	6247	
==>::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB P <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6156	6247	
==>::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6879	6997	
==>OROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6879	6997	
==>OROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6879	6997	
==>OROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::I <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1901	1996	
==>p = sub { system($setup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$opts <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11941	12084	
==>on";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $sta <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2355	2486	
==>on";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $sta <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2355	2486	
==>on";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5749	5858	
==>urn { angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs::C <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	156	274	
==>b { $w };
}

### This is the ONLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3657	3772	
==>kup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3657	3772	
==>kup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3657	3772	
==>kup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	988	1093	
==>ame_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	988	1093	
==>ame_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	988	1093	
==>ame_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBL <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3194	3292	
==>urns Int { $.day }
method day_of_month_0 returns Int { $.day - 1 }
method day_0 returns Int { $.day <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	950	1051	
==>/gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	950	1051	
==>/gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	178	271	
==>ext::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	178	271	
==>ext::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7995	8104	
==>al {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7722	7826	
==>al {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1635	1732	
==>ules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pug <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1635	1732	
==>ules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pug <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35135	35334	
==>t::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	87	183	
==>tored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	87	183	
==>tored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	87	183	
==>tored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17577	17718	
==>ALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20945	21086	
==>ALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40846	40987	
==>ALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43869	44010	
==>ALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3786	3901	
==>abel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3786	3901	
==>abel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3786	3901	
==>abel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($l <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7488	7596	
==>'\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit { <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	887	1003	
==>so8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year.defined and $year.chars == 2 ) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37385	37479	
==>so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the nam <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37385	37479	
==>so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the nam <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7196	7302	
==>ng ";
    $ghc_flags .= " -I../../src -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_E <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	51	138	
==>dn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	51	138	
==>dn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	51	138	
==>dn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	508	607	
==>/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.prin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1121	1220	
==>/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.prin <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	508	607	
==>/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.prin <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1121	1220	
==>/html; charset=UTF-8\r\n");
    $.remote.print("Content-Length: $length\r\n\r\n");
    $.remote.prin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	768	872	
==>e "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($level, $pkg, @EXPORT) if $pkg;
}


su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1572	1659	
==>mitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1572	1659	
==>mitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1572	1659	
==>mitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16000	16104	
==>q 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16000	16104	
==>q 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16000	16104	
==>q 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v e <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4082	4203	
==>shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2715	2807	
==>opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2715	2807	
==>opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2715	2807	
==>opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1192	1321	
==>LOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1397	1526	
==>LOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1458	1587	
==>LOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1595	1700	
==>confess "Key must be a str type";
    delete $self->{$key->to_str->to_native};
    nil->new();
}

sub keys <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1308	1411	
==>=~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1308	1411	
==>=~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1890	1984	
==>ive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Addit <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1890	1984	
==>ive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Addit <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2968	3115	
==>$matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3491	3635	
==>$matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2871	3015	
==>$matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3491	3635	
==>$matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12077	12236	
==>d_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12077	12236	
==>d_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12077	12236	
==>d_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candid <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9697	9828	
==>ock),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6038	6169	
==>ock),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6887	7018	
==>ock),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	282	372	
==>mar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while ($tail =~ m/rule\s+(\S+)\s+\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24932	25057	
==>rm =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25211	25336	
==>rm =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	361	459	
==>tors should emit error messages if there are unknown parameters
    * Lazy lists are not implemente <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	361	459	
==>tors should emit error messages if there are unknown parameters
    * Lazy lists are not implemente <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7778	7897	
==>ack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $po <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5950	6050	
==>s[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, shou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5950	6050	
==>s[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, shou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5950	6050	
==>s[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, shou <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3331	3433	
==>( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8099	8201	
==>( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.i <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3331	3433	
==>( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8099	8201	
==>( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39616	39734	
==>ardless of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so th <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1954	2046	
==>in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1954	2046	
==>in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1954	2046	
==>in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1522	1651	
==>$match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUT <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1522	1651	
==>$match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUT <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	308	417	
==>s:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores bac <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	308	417	
==>s:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores bac <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4099	4202	
==>es.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in w <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4099	4202	
==>es.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in w <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	346	455	
==>apping
our $NULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	24	123	
==>le provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	24	123	
==>le provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	24	123	
==>le provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29263	29388	
==>return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29542	29667	
==>return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1957	2064	
==>ity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " ", $#nameSplit, <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2964	3067	
==>od 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? a <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26050	26144	
==>attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30602	30696	
==>attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	448	542	
==>gs[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	448	542	
==>gs[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	448	542	
==>gs[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Const <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1782	1895	
==>me eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1782	1895	
==>me eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1782	1895	
==>me eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6126	6220	
==>tance_attrs($Class)->{'@:roles'} = [ $Role ];
$_resolve->($Class);

# Bootstrap -> Role does Ro <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5235	5357	
==>arts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5235	5357	
==>arts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	554	664	
==>q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an expl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	554	664	
==>q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an expl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3356	3481	
==>$.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3356	3481	
==>$.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3108	3227	
==>id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
          &$reduce_helper($var,$ops);
          return &$step;
        } <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	943	1061	
==>ash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) returns List|Str {
   gi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	490	615	
==>be a bit more elegant, and not blow it away every go
{   system( qw[rm -rf], $config->root )                         and die $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4265	4358	
==>escription? )>

Compares the receivied and expected lines from the previously run tests,
passi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4265	4358	
==>escription? )>

Compares the receivied and expected lines from the previously run tests,
passi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4345	4438	
==>escription? )>

Compares the receivied and expected lines from the previously run tests,
passi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10813	10977	
==>hars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10813	10977	
==>hars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3061	3203	
==>return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3061	3203	
==>return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1165	1277	
==>| $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have trouble with a full line of text.

=head1 SYNOP <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13274	13375	
==>e' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13274	13375	
==>e' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %param <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13274	13375	
==>e' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1970	2111	
==>{...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work aroun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1970	2111	
==>{...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work aroun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1970	2111	
==>{...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work aroun <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2497	2598	
==>harity
#


grammar JavaScript::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_input>*}
rule ws_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9706	9817	
==>atch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9706	9817	
==>atch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9706	9817	
==>atch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns- <==
4	/Users/nnunley/pugs/util/package-osx.pl	5627	5715	
==>local/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34167	34310	
==>> bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2084	2185	
==>_die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5871	5972	
==>_die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2084	2185	
==>_die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5871	5972	
==>_die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model:: <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13836	13953	
==>ad of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHO <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13836	13953	
==>ad of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHO <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12982	13093	
==>]" goto endclass
    if $S0 == "-" goto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5850	6044	
==>->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5850	6044	
==>->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5850	6044	
==>->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	901	1001	
==>:Rule;\nuse base 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5215	5318	
==>ram{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5215	5318	
==>ram{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5215	5318	
==>ram{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1350	1458	
==>')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->c <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1350	1458	
==>')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	42	138	
==>time::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	42	138	
==>time::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4582	4719	
==>il} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7227	7349	
==>>last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $fil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9773	9889	
==>use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9773	9889	
==>use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9773	9889	
==>use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	897	1001	
==>>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	897	1001	
==>>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	897	1001	
==>>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	19843	19942	
==>die "Can't open output test file $synhtml: $!";
        $outfile->print($sobj->as_HTML(undef, ' ', { <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2403	2522	
==>inblock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2653	2761	
==>$lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2653	2761	
==>$lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lan <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2653	2761	
==>$lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4930	5034	
==>d();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4930	5034	
==>d();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(100000 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4930	5034	
==>d();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(100000 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3542	3635	
==>of 20 tests and
exited with non-zero status indicating something dubious happened.

The column <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	383	492	
==>[ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	383	492	
==>[ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	383	492	
==>[ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.C <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	965	1237	
==>13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oc <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	965	1237	
==>13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oc <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2914	3028	
==>perty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $da <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2914	3028	
==>perty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $da <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2503	2621	
==>shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	897	1006	
==>' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	897	1006	
==>' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 un <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	897	1006	
==>' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13604	13703	
==>x) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13604	13703	
==>x) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13604	13703	
==>x) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5555	5644	
==>use Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1669	1816	
==>?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_capture => {
                ident => $_[0]{ident}(),
                rule  => $_[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7202	7303	
==>nfess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7202	7303	
==>nfess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7202	7303	
==>nfess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_meth <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2104	2205	
==>expr\n" if $debug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	369	506	
==>ngify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.ne <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	369	506	
==>ngify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.ne <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	473	576	
==>() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocati <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	473	576	
==>() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocati <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16165	16262	
==>ternals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without l <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20591	20688	
==>ternals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without l <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34309	34402	
==>es and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34309	34402	
==>es and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new o <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8066	8161	
==>ist::reduce *&expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5808	5902	
==>dy left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5808	5902	
==>dy left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10521	10671	
==>>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10521	10671	
==>>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10521	10671	
==>>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",ma <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23459	23543	
==>-----------------

replace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace, <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3018	3181	
==>dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21276	21371	
==>ping where each Mapping key is an attribute name and each Mapping value
is the corresponding att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25828	25923	
==>ping where each Mapping key is an attribute name and each Mapping value
is the corresponding att <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24452	24547	
==>ping where each Mapping key is an attribute name and each Mapping value
is the corresponding att <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24087	24188	
==>le is to avoid loops between a client automatically sending something
  in response to something it re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22860	22961	
==>le is to avoid loops between a client automatically sending something
  in response to something it re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24087	24188	
==>le is to avoid loops between a client automatically sending something
  in response to something it re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22860	22961	
==>le is to avoid loops between a client automatically sending something
  in response to something it re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7124	7231	
==>}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7136	7243	
==>}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	562	655	
==>RIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<IN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	562	655	
==>RIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<IN <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8949	9042	
==>exes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
you <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8949	9042	
==>exes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
you <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8219	8347	
==>rs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8219	8347	
==>rs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8219	8347	
==>rs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	981	1083	
==>uce {
	my $self = shift;
	my $node = shift;

	my $h = Devel::STDERR::Indent::indent;
	warn "annotation: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	568	710	
==>n program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	568	710	
==>n program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	222	341	
==>ckage Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 fil <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3506	3615	
==>ent to &each must be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	451	560	
==>e => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	445	554	
==>e => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retur <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5345	5452	
==>ec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ( <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5345	5452	
==>ec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ( <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7169	7292	
==>Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int)\
\\n   List      pre     split   s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3066	3179	
==>ve {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3066	3179	
==>ve {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3066	3179	
==>ve {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15641	15767	
==>}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15641	15767	
==>}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15641	15767	
==>}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3311	3418	
==>aque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3311	3418	
==>aque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($bu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3311	3418	
==>aque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($bu <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	474	574	
==>e by Test::Harness ONLY!>

=head1 FUNCTIONS

=head2 C<assert()>

  assert( EXPR, $name );

If the exp <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	564	695	
==>d  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	564	695	
==>d  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	564	695	
==>d  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	148	247	
==>_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'grammar1::';

{
  pack <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9755	9874	
==>)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9755	9874	
==>)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	927	1024	
==>classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	927	1024	
==>classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say ' <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4248	4376	
==>ndex} ) {
        push @{ $no_index->{'directory'} }, 'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5023	5127	
==>l @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var sto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5023	5127	
==>l @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var sto <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5023	5127	
==>l @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var sto <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	635	745	
==>>length->to_bit     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7764	7868	
==>' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7764	7868	
==>' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7764	7868	
==>' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8202	8401	
==>ethod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8202	8401	
==>ethod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8202	8401	
==>ethod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    ret <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	696	796	
==>emission, %.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6187	6320	
==>($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &co <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6187	6320	
==>($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &co <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	160	290	
==>E - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whit <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	160	290	
==>E - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4009	4113	
==>write( $test->report() );
        }
    }
};

require "lib/TestBuilder/TestPlan.pm";
require "lib/TestBui <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6104	6215	
==>rict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9581	9692	
==>rict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	836	935	
==>:SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::Se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	836	935	
==>:SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::Se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5097	5206	
==>nt_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } el <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5097	5206	
==>nt_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } el <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12109	12207	
==>s right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12109	12207	
==>s right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3942	4044	
==>t.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to th <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3942	4044	
==>t.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4022	4124	
==>t.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to th <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	113	213	
==>e::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use Carp 'confess';
use <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2418	2515	
==>}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2418	2515	
==>}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15185	15277	
==>array contexts, the encoded or
decoded string is returned (without changing the input string) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15185	15277	
==>array contexts, the encoded or
decoded string is returned (without changing the input string) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1130	1242	
==>: lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub :: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6640	6751	
==>$body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	869	976	
==>: lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1074	1181	
==>: lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub :: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	263	361	
==>toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1198	1296	
==>iguates this case.

Types have a dispatch table; this is a collection of functions and
methods that <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	263	361	
==>toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	263	361	
==>toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11553	11744	
==>params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11553	11744	
==>params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11553	11744	
==>params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3760	3863	
==>DESC, "G", " in character class") if $cc;
    return $S->force_object(anyof_char => 'G') if $cc;
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12585	12720	
==>b {
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_foun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4407	4519	
==>ss defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4407	4519	
==>ss defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4407	4519	
==>ss defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7812	7941	
==>new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7812	7941	
==>new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7812	7941	
==>new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2505	2612	
==>or types. Let'shope we never need to print more than these ;-)
	
	my %map;
	my @forall;

	# allocate letters <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	556	666	
==>ng - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	556	666	
==>ng - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4434	4543	
==>ew();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4434	4543	
==>ew();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5885	6056	
==>t->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14164	14287	
==>nboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14164	14287	
==>nboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warning <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14164	14287	
==>nboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warning <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5306	5453	
==>his way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we do <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5770	5917	
==>his way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we do <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9653	9752	
==>span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9653	9752	
==>span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $s <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2597	2729	
==>r @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $he <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2597	2729	
==>r @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7107	7229	
==>a_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Brea <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7107	7229	
==>a_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Brea <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8054	8182	
==>et, ")", pos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    mob["value"] = $S0
    inc pos
  end:
    mpos = pos
    . <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10716	10820	
==>er!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do diff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14193	14297	
==>er!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do diff <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13492	13596	
==>er!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do diff <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6198	6302	
==>ta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6198	6302	
==>ta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6198	6302	
==>ta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cr <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14210	14310	
==>$self = opaque.new(\$class, %attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4725	4851	
==>y = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4725	4851	
==>y = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4725	4851	
==>y = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5936	6051	
==>=> $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5749	5858	
==>=> $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5420	5527	
==>{
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5420	5527	
==>{
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	116	218	
==>to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	116	218	
==>to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	116	218	
==>to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3586	3698	
==>et  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3586	3698	
==>et  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2491	2578	
==>--------------------------------------------------------
## getting children

method get <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2491	2578	
==>--------------------------------------------------------
## getting children

method get <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9465	9566	
==>@span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method com <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9465	9566	
==>@span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method com <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18656	18750	
==>ke it look sufficiently
like what the core expects to avoid problems.  While simultaneously
try <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2946	3040	
==>ke it look sufficiently
like what the core expects to avoid problems.  While simultaneously
try <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	486	589	
==>xhaustive'> | <':ex'> }
rule flag_overlap     { <':overlap'> | <':ov'> }
rule flag_words       { <':sigs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2483	2580	
==>d_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2483	2580	
==>d_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2483	2580	
==>d_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($se <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2893	3044	
==>tar,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2904	3055	
==>tar,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1011	1136	
==>e created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1011	1136	
==>e created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14184	14294	
==>d_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14184	14294	
==>d_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14184	14294	
==>d_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11271	11448	
==>axage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11271	11448	
==>axage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h. <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	379	487	
==>. )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Re <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	379	487	
==>. )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Re <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3802	3895	
==>ments. If you need something
with more power, move up to Config::Simple, Config::General or on <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3802	3895	
==>ments. If you need something
with more power, move up to Config::Simple, Config::General or on <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7553	7743	
==>mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7553	7743	
==>mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20331	20426	
==>rectly
and reliably, it also performs quite slowly; you should only use Example
for testing, dev <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20331	20426	
==>rectly
and reliably, it also performs quite slowly; you should only use Example
for testing, dev <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9549	9702	
==>sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        return $v i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2347	2464	
==>= precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expres <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2347	2464	
==>= precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expres <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2347	2464	
==>= precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expres <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2479	2659	
==>teral',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2490	2670	
==>teral',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1337	1432	
==>epth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1337	1432	
==>epth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14476	14591	
==>t $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14476	14591	
==>t $live_timeout seconds,
        # even though we've pinged the server (probably several times). So, we
        # co <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13517	13624	
==>t $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13517	13624	
==>t $live_timeout seconds,
    # even though we've pinged the server (probably several times). So, we
    # co <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	771	885	
==>ch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4, <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	771	885	
==>ch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15822	15919	
==>has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$par <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15822	15919	
==>has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$par <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7908	8026	
==>rr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) mar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7908	8026	
==>rr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) mar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7908	8026	
==>rr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) mar <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	317	432	
==>$f = $p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.expected";
    unlink " <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2233	2351	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2628	2746	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2291	2409	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2686	2804	
==>rt {
    my $result := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8559	8691	
==>alues --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::joi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1132	1231	
==>) }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1132	1231	
==>) }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1132	1231	
==>) }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3855	3964	
==>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3855	3964	
==>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3855	3964	
==>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1750	1852	
==>x> compiles Perl 6 Regexes to Perl 5.

=item * L<Pugs::Compiler::RegexPerl5> wraps Perl 5 Regexes to re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	195	320	
==>e.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter ' <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	195	320	
==>e.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2689	2796	
==>e('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (bu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2873	2980	
==>e('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1244	1354	
==>); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1244	1354	
==>); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1244	1354	
==>); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg= <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13831	13947	
==>instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13831	13947	
==>instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6643	6753	
==>:



### Match actually contain getters for $() and such

### getters need to know what you want (str, bool, ha <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6421	6528	
==>:

### Match actually contain getters for $() and such
### getters need to know what you want (str, bool, ha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17978	18176	
==>hod($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17978	18176	
==>hod($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17978	18176	
==>hod($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13962	14064	
==>ched (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5727	5831	
==>> params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5727	5831	
==>> params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5727	5831	
==>> params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	757	856	
==>nce
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	757	856	
==>nce
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1265	1358	
==>ou are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's av <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1105	1198	
==>ou are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's av <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12043	12152	
==>r of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator.

If all criteria are exhausted when c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2478	2579	
==>efined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $lev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2478	2579	
==>efined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $lev <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2478	2579	
==>efined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $lev <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2271	2405	
==>el};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2271	2405	
==>el};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5934	6043	
==>($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5934	6043	
==>($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11895	12028	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12174	12307	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \& <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4475	4579	
==>');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precend <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6377	6481	
==>');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precend <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33842	33936	
==>r role's) preferences such that each says what
language they prefer to communicate in, and what <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28715	28809	
==>t aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation att <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33842	33936	
==>r role's) preferences such that each says what
language they prefer to communicate in, and what <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33267	33361	
==>t aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation att <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4149	4256	
==>ion $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4149	4256	
==>ion $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4149	4256	
==>ion $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	249	340	
==>sh(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { hlp('string',@_); }
sub node_a { hlp('a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	784	880	
==>ackage::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. F <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5577	5669	
==>s, $self->resolve_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4559	4690	
==>[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4547	4678	
==>[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1847	1951	
==>an.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1847	1951	
==>an.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end = <==
4	/Users/nnunley/pugs/util/version_h.pl	107	202	
==>s_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entries";

my $old_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2073	2161	
==>lf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2073	2161	
==>lf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2073	2161	
==>lf->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5097	5227	
==>al $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5097	5227	
==>al $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5097	5227	
==>al $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	470	563	
==>ie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4711	4844	
==>n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4711	4844	
==>n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4711	4844	
==>n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8097	8205	
==>) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15445	15555	
==>rol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15445	15555	
==>rol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3681	3780	
==>$buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*EN <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3681	3780	
==>$buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*EN <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17013	17126	
==>n.
    # why twice: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39658	39766	
==>ft;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39658	39766	
==>ft;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSA <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39658	39766	
==>ft;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1885	2009	
==>@res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this he <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1885	2009	
==>@res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this he <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1885	2009	
==>@res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3482	3576	
==>properly installed.

An improperly installed C<Pugs::Compiler::Rule> module would prevent the P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39398	39492	
==>nge checking (C<[a-z]>) requires knowledge of the characters
on the lower and upper side of the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1922	2068	
==>"  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1910	2056	
==>"  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9864	9963	
==>tities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $s <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9864	9963	
==>tities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3007	3109	
==>e of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1535	1637	
==>Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3007	3109	
==>e of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): a <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1535	1637	
==>Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12777	12891	
==>seudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12777	12891	
==>seudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my me <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	320	418	
==>gths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	320	418	
==>gths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	3	106	
==>ckage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	3	106	
==>ckage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	3	106	
==>ckage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	569	665	
==>t
multi sub pairs  (@array ; Any|Junction *@indextests) returns List of Pair
multi sub values (@a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23657	23752	
==>e.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all comm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23657	23752	
==>e.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all comm <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1073	1166	
==>commits_till_day[42] = 1500 (1500 commits from day 1 to day 42)
my @commits_till_day = dayify( <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24582	24666	
==>if_undef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2126	2244	
==>>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	440	558	
==>>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2126	2244	
==>>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

su <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2126	2244	
==>>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

su <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23136	23252	
==>.param pmc pad
    .local string cname
    .local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5881	5985	
==>::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5881	5985	
==>::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5881	5985	
==>::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7154	7272	
==>d_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7154	7272	
==>d_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1823	1929	
==>d_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1823	1929	
==>d_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46393	46535	
==>FETCH'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2946	3046	
==>", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2946	3046	
==>", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2946	3046	
==>", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	173	265	
==>-----------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	173	265	
==>-----------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	367	470	
==>()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	367	470	
==>()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	367	470	
==>()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Con <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13298	13399	
==>pe($$) = {
	type::operator::arrow->new(
		new_env($$)->{ $.param },
		type($.body),
	),
}

# identifie <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2008	2168	
==>rn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Boo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2008	2168	
==>rn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Boo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22116	22208	
==>nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22116	22208	
==>nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E< <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1368	1473	
==>r 6.";
    my $path = File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      Fil <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	161	279	
==>ode = shift;

	return $node unless $self->can_reduce($node);

	if (Scalar::Util::blessed($node) && (my $meth = $self->c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	183	292	
==>0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	183	292	
==>0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	183	292	
==>0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1620	1764	
==>ways tried even if it were expecting a simple '<'
            
                # after whitespace means '<' (default)
                # without w <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	759	857	
==>teresting
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in develo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31557	31652	
==>ther library likewise, and a program which uses both libraries
could have yet another set for it <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31557	31652	
==>ther library likewise, and a program which uses both libraries
could have yet another set for it <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13541	13746	
==>ISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13541	13746	
==>ISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13541	13746	
==>ISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatc <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1480	1604	
==>eturns Int;
 type Criterion    ::= KeyExtractor | Comparator
                       | Pair(KeyExtractor, Comparator);



 mul <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	804	902	
==>1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	804	902	
==>1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1360	1458	
==>1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandl <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10404	10499	
==>cussion but no final
    # spec, see the thread rooted at <20050502192508.GF24107@sike.forum2.or <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1353	1510	
==>eme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:n <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1353	1510	
==>eme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2547	2664	
==>set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shi <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2547	2664	
==>set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34730	34824	
==>cale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_name <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34730	34824	
==>cale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_name <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1582	1673	
==>ed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=o <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1582	1673	
==>ed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1374	1517	
==>ds(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1374	1517	
==>ds(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3880	3973	
==>nd "yesterday" return the appropriate date.

Any other string will be passed to `Date::Somethi <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3880	3973	
==>nd "yesterday" return the appropriate date.

Any other string will be passed to `Date::Somethi <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4853	4958	
==>ater be the / of the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2143	2235	
==>=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2143	2235	
==>=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2143	2235	
==>=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7077	7185	
==>")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	492	591	
==>05-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	492	591	
==>05-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	492	591	
==>05-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6557	6656	
==>et(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6557	6656	
==>et(@args));
#}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7428	7526	
==>et(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7428	7526	
==>et(@args));
}
multi sub *infix:<*> (Set $one, *@args) returns Set {
    $one.intersection(set(@args <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	185	283	
==>i method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $ <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	185	283	
==>i method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9152	9247	
==>%entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_ent <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9152	9247	
==>%entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_ent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	741	842	
==>ant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	741	842	
==>ant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	741	842	
==>ant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3666	3813	
==>length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3666	3813	
==>length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# H <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3666	3813	
==>length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# H <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8645	8743	
==>e yet.

=head2 Setting and Parsing Together

You can also use parse() instead of regex() to set the <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14250	14385	
==>ch != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14244	14379	
==>ch != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3497	3593	
==>ying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/aut <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3497	3593	
==>ying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/aut <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3522	3641	
==>"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3522	3641	
==>"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý' <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6664	6760	
==>=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Ele <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6664	6760	
==>=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Ele <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6289	6406	
==>ation::Example.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1789	1901	
==>> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1789	1901	
==>> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1789	1901	
==>> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22054	22184	
==>=> sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22614	22744	
==>=> sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18475	18605	
==>=> sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19035	19165	
==>=> sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m{ \G ($ne <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	16	128	
==>ator_engine.pl - fglock

#



use strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filte <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	16	123	
==>ator_engine.pl - fglock
#

use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	46	152	
==>ator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filte <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	46	152	
==>ator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filte <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	7	102	
==>XX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	7	102	
==>XX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	7	102	
==>XX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10482	10569	
==>does Bar get Object's singleton methods ..

is($Bar->another_singleton_test_on_object(), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2392	2518	
==>" .
            "use Pugs::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6985	7083	
==>ty' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6985	7083	
==>ty' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6985	7083	
==>ty' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30550	30643	
==>its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
tho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35101	35194	
==>its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
tho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34283	34376	
==>its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
tho <==
4	/Users/nnunley/pugs/util/func_refact.pl	1894	2039	
==>eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: while add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	779	896	
==>lti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	779	896	
==>lti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	779	896	
==>lti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5329	5448	
==>ributes;
    has %:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1805	1910	
==>gs.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1805	1910	
==>gs.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1805	1910	
==>gs.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	362	471	
==>ITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	362	471	
==>ITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	362	471	
==>ITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12875	12974	
==>Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar ) is default

Delete <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	536	669	
==>eturn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	536	669	
==>eturn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	536	669	
==>eturn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6407	6536	
==>=~ s/^$base//;
                      $_ => File::Spec->catfile( $to, $target ) 
                } File::Find::Rule->file->in( $fro <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1783	1885	
==>methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavi <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1783	1885	
==>methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavi <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	4125	4223	
==>f = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{class_tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14889	15007	
==>lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14889	15007	
==>lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14889	15007	
==>lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2867	2962	
==>eturn $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	313	420	
==>nal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	313	420	
==>nal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::P <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	313	420	
==>nal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::P <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3667	3766	
==>sion} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[1]
    } @{ $cats{$_} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6568	6741	
==>{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6761	6934	
==>{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20429	20541	
==>^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$.. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16850	16962	
==>^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$.. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8208	8329	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8401	8522	
==>ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return u <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	799	918	
==>{ ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Per <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	799	918	
==>{ ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Per <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	237	350	
==>'+'}
# TODO - ~ ? 

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1305	1415	
==>_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1305	1415	
==>_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1305	1415	
==>_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_nam <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1454	1553	
==>m)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1454	1553	
==>m)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33751	33850	
==>o our F<Regexp::AndBranch> example.  Let me explain what the
'&' metacharacter will mean.  If you've <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1519	1614	
==>N

This module provides a Perl interface for pluggable regular expression
engines.  It affects a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13639	13781	
==>script );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	521	618	
==>ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	521	618	
==>ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	521	618	
==>ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15537	15651	
==>1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15537	15651	
==>1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4347	4459	
==>ib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # thi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4197	4305	
==>ib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # thi <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4753	4856	
==>tp://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simpli <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4753	4856	
==>tp://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simpli <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3754	3876	
==>e;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3754	3876	
==>e;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1808	1920	
==>, $class;
    return $self;
  }
}


{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1684	1793	
==>V[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = (length($ARGV[0]) ? $ARGV[0] : $ARGV <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6078	6224	
==>- simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6898	7044	
==>- simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6078	6224	
==>- simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6898	7044	
==>- simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1184	1278	
==>\$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1184	1278	
==>\$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1184	1278	
==>\$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	292	384	
==>ules in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB::Config>, L<JIB::Installation> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10431	10537	
==>ub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10589	10695	
==>ub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n" <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	928	1030	
==>, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Spa <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	928	1030	
==>, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Spa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10661	10789	
==>sity ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10661	10789	
==>sity ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19361	19455	
==>ote that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Retu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19361	19455	
==>ote that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5430	5536	
==>r_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5430	5536	
==>r_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35921	36016	
==>combinations()>

This method returns an array ref having all combinations of this object's
Set N <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35921	36016	
==>combinations()>

This method returns an array ref having all combinations of this object's
Set N <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6256	6384	
==>: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	104	211	
==>e::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differ <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	112	219	
==>e::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	104	211	
==>e::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differ <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	112	219	
==>e::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document differ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33276	33375	
==>ound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13609	13697	
==>"whatever annotation went with this attribute when it's declared"
::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13609	13697	
==>"whatever annotation went with this attribute when it's declared"
::Class.meta.add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13609	13697	
==>"whatever annotation went with this attribute when it's declared"
::Class.meta.add_method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5478	5649	
==>}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5478	5649	
==>}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12040	12190	
==>take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12040	12190	
==>take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11381	11517	
==>am . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11375	11511	
==>am . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1130	1232	
==>->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2295	2397	
==>->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13664	13833	
==>lue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13664	13833	
==>lue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $lis <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13664	13833	
==>lue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $lis <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1076	1206	
==>S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $s <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1076	1206	
==>S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4995	5107	
==>i sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack - <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5053	5165	
==>i sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack - <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	931	1036	
==>signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swear <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	931	1036	
==>signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swear <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	80	178	
==>likely there will be more than one.

Design goals:
 1 Correctness - mirror the spec.
 2 Interoperat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	399	555	
==>ses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	399	555	
==>ses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	399	555	
==>ses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:meth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33036	33126	
==>ant Relation::Example but that some of its
tuple/Mapping-valued attributes have been split/ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1128	1533	
==>$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2362	2502	
==>x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2362	2502	
==>x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eva <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2362	2502	
==>x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eva <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	223	356	
==>t Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tail ) = Pugs::Grammar::Expression::as <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1267	1409	
==>= $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4506	4648	
==>= $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1267	1409	
==>= $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4506	4648	
==>= $span.end;
        $open_end    = $span.end_is_open;
    }
    elsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12624	12745	
==>d' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12624	12745	
==>d' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12624	12745	
==>d' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	552	653	
==>0.1.0 {
    does Relation::Heading;

    # External packages used by the Relation::Example::Heading cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	313	423	
==>Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	294	401	
==>Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15485	15595	
==>f->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16900	17010	
==>f->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21656	21766	
==>f->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	293	401	
==>b IDGenerate {
    my($id)='';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2491	2605	
==>hread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2491	2605	
==>hread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2491	2605	
==>hread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5544	5637	
==>ondie::Param")) {
				push @params, $self->resolve_type($sub->accepts_type) ." ". (my $sym = $ <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1961	2088	
==>do nothing but have distinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	327	430	
==>ports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	327	430	
==>ports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	327	430	
==>ports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20523	20765	
==>= $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20523	20765	
==>= $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20523	20765	
==>= $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $el <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11737	11850	
==>s_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4971	5090	
==>/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or here <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4971	5090	
==>/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or here <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2029	2147	
==>f ($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub exter <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2029	2147	
==>f ($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub exter <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12526	12641	
==>prev  = @{ $self->available };
    my @avail = grep { $_->package ne $inst_pkg->package } @prev;
    
    ### no cha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5346	5442	
==>gth > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5346	5442	
==>gth > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5346	5442	
==>gth > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5676	5768	
==>E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementati <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5676	5768	
==>E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementati <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1627	1816	
==>}
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1627	1816	
==>}
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12668	12768	
==>ld names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return va <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12668	12768	
==>ld names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return va <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2468	2576	
==>args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils: <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1625	1724	
==>args->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1705	1796	
==>ipher::Arcfour also includes several attributes which might be interesting to 
people intere <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1705	1796	
==>ipher::Arcfour also includes several attributes which might be interesting to 
people intere <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19837	19936	
==>AMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19837	19936	
==>AMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7052	7146	
==>ur &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of sibl <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7052	7146	
==>ur &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of sibl <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	764	879	
==>gs) returns Bool is builtin is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internal <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1581	1673	
==>o() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub stat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1581	1673	
==>o() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub stat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1581	1673	
==>o() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1215	1311	
==>emoved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1215	1311	
==>emoved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations sup <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1215	1311	
==>emoved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations sup <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	128	239	
==>pp;

my %relative_precedences = (
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	189	294	
==>t_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	189	294	
==>t_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	189	294	
==>t_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2460	2600	
==>lement => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n") <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2460	2600	
==>lement => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n") <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19601	19730	
==>, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16022	16151	
==>, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->c <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33915	34009	
==>mmunicate in, and what their backup choices are,
in order, if preferred ones aren't supported b <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33915	34009	
==>mmunicate in, and what their backup choices are,
in order, if preferred ones aren't supported b <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17507	17597	
==>ession>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpression <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6122	6223	
==>get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6122	6223	
==>get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4214	4307	
==>of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{'' <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4214	4307	
==>of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{'' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17653	17852	
==>);
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14074	14273	
==>);
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1604	1702	
==>pwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1604	1702	
==>pwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30391	30504	
==>( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30391	30504	
==>( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $le <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30391	30504	
==>( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $le <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6985	7150	
==>$.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6985	7150	
==>$.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	935	1052	
==>lling captures where in the deep structure
                     to store what they've captured.

=cut

our class Match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	935	1052	
==>lling captures where in the deep structure
                     to store what they've captured.

=cut

our class Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1101	1198	
==>input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1101	1198	
==>input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1101	1198	
==>input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12370	12471	
==>IL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12370	12471	
==>IL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12370	12471	
==>IL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {... <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1151	1251	
==>ence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Matc <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16819	16952	
==>nt;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21917	22050	
==>nt;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	629	760	
==>ge with pp_deps.pl            
sub _recurse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provided, plus w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13158	13317	
==>om_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13158	13317	
==>om_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line,
        from      => $from,
        from_nick => <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12254	12405	
==>om_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12254	12405	
==>om_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line,
      from      => $from,
      from_nick => <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14302	14418	
==>(+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	776	884	
==>, pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	776	884	
==>, pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	776	884	
==>, pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support f <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5352	5453	
==>et $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4482	4583	
==>et $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5352	5453	
==>et $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4482	4583	
==>et $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $one, Set <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2014	2127	
==>l {
        multi method as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method as (-- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1426	1524	
==>$verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1426	1524	
==>$verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1426	1524	
==>$verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	124	220	
==>parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	124	220	
==>parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4693	4842	
==>rom = shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1719	1830	
==>( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1719	1830	
==>( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1799	1910	
==>( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expe <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31665	31762	
==>the program is run, it would
determine either from a user config file or a user interface that the <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3405	3502	
==>External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31665	31762	
==>the program is run, it would
determine either from a user config file or a user interface that the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3405	3502	
==>External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	499	600	
==>unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	499	600	
==>unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match fa <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1244	1338	
==>supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previou <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1244	1338	
==>supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	387	498	
==>m'  && defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pugs::Ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8082	8192	
==>ield is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns norm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7811	7916	
==>ield is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns norm <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4783	4880	
==>\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_results($tot, $failedtests <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	602	698	
==>seen}->insert($node);
		$self->SUPER::generic_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3196	3283	
==>attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3196	3283	
==>attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3196	3283	
==>attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7525	7635	
==>rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7525	7635	
==>rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7525	7635	
==>rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5198	5308	
==>(closure) return nil>

The closure here will be passed a reference to the current value, 
this allows r/w acces <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14567	14667	
==>f `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14567	14667	
==>f `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	555	654	
==>"Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	555	654	
==>"Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	317	455	
==>s = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $ <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	317	455	
==>s = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9731	9830	
==>ay { return }
method _tail() returns Array { return }

# What we implement for them.
method finish(C <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9731	9830	
==>ay { return }
method _tail() returns Array { return }

# What we implement for them.
method finish(C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4162	4295	
==>@s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4150	4283	
==>@s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$po <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	411	526	
==>uild_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow i <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1698	1792	
==>insert> :remove_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Cla <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8329	8434	
==>, this is usually not an issue
# since each time you either add a child
# or create a tree you are doing i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8329	8434	
==>, this is usually not an issue
# since each time you either add a child
# or create a tree you are doing i <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13764	13867	
==>de_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13764	13867	
==>de_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5009	5143	
==>f->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5009	5143	
==>f->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5009	5143	
==>f->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	399	510	
==>Header (
    +$status = '200 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$location
) returns S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	562	687	
==>or), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields acce <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1046	1171	
==>or), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields acce <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6807	6909	
==>> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $clos <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6807	6909	
==>> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $clos <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1939	2050	
==>Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1939	2050	
==>Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my <==
4	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	278	389	
==>SIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2019	2130	
==>Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	523	637	
==>st);
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) {
  return(undef, $inp <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6613	6721	
==>le> and parses its
results.  It will also use that name for the total report.

=cut

sub analyze_file {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	539	653	
==>ODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	539	653	
==>ODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	539	653	
==>ODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $coun <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6377	6489	
==>n/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8150	8271	
==>eturn '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8162	8283	
==>eturn '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8663	8758	
==>ent is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifie <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8663	8758	
==>ent is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6768	6899	
==>ep;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6768	6899	
==>ep;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf | <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6768	6899	
==>ep;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf | <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	722	816	
==>e|o=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6641	6733	
==>abgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All righ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6641	6733	
==>abgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All righ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6641	6733	
==>abgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All righ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2502	2611	
==>Y_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $header <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2502	2611	
==>Y_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $header <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8904	8999	
==>um_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_sta <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8962	9057	
==>um_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4192	4356	
==>el, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4192	4356	
==>el, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4192	4356	
==>el, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4933	5090	
==>undef; # this is probably the one place we can return
                          # in the Prelude: we want to exit from the
                          # *caller <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4013	4113	
==>]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4013	4113	
==>]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4013	4113	
==>]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams} <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5566	5664	
==>};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3563	3685	
==>~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buff <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3563	3685	
==>~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buff <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2707	2804	
==>ltaneous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2607	2701	
==>ltaneous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4533	4680	
==>{ num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	34	135	
==>at an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	34	135	
==>at an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	34	135	
==>at an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11524	11709	
==>und
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11524	11709	
==>und
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mus <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11524	11709	
==>und
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mus <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3736	3850	
==>nd
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $self->{data}) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	514	613	
==>$args->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invoca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3841	3930	
==>-----------------------------------------------
## Package

## See http://article.gmane.or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3841	3930	
==>-----------------------------------------------
## Package

## See http://article.gmane.or <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3841	3930	
==>-----------------------------------------------
## Package

## See http://article.gmane.or <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3114	3248	
==>en /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A.. <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3114	3248	
==>en /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2929	3029	
==>ile is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $mo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2929	3029	
==>ile is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6442	6557	
==>fix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6442	6557	
==>fix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6442	6557	
==>fix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3334	3431	
==>alnum {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	506	607	
==>x all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	506	607	
==>x all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	506	607	
==>x all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_r <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4421	4545	
==>ion    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of chil <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4421	4545	
==>ion    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of chil <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8133	8227	
==>C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts th <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8133	8227	
==>C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7396	7497	
==>{
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7396	7497	
==>{
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7724	7821	
==>{
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7724	7821	
==>{
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1707	1810	
==>on of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the
m <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1707	1810	
==>on of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the
m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4120	4217	
==>tions

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.p <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4120	4217	
==>tions

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2253	2348	
==>ed,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $ext <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	796	890	
==>ed,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ext <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2164	2258	
==>ed,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ext <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	796	890	
==>ed,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $ext <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13449	13552	
==>ource =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $sou <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13449	13552	
==>ource =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $sou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32923	33019	
==>de effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Name <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32923	33019	
==>de effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Name <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4730	4831	
==>phertext version of the data given.
The data may be either a string or an array of bytes; the array of <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4730	4831	
==>phertext version of the data given.
The data may be either a string or an array of bytes; the array of <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6013	6107	
==>sufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6013	6107	
==>sufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7155	7292	
==>ethod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7155	7292	
==>ethod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7155	7292	
==>ethod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5411	5525	
==>f $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str($_[0],'$<op>');
    my $condi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12200	12313	
==>d exec (not implemented).  The C hooks call for the
  sub hooks in the caller package, and thus get CORE if none a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6376	6488	
==>duce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_sh <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	132	235	
==>.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	132	235	
==>.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9851	9986	
==>,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7791	7926	
==>,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9851	9986	
==>,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7791	7926	
==>,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particular order)
  say ~([1,2,3] *# [1,2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19926	20153	
==>lue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19926	20153	
==>lue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19926	20153	
==>lue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7680	7777	
==>:varscalar = *node::varhash = *node::variable;
sub node::empty_list {
    return "()";
}
sub node: <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4038	4179	
==>"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "um <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4038	4179	
==>"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "um <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	115	208	
==>Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	16	109	
==>Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2868	2979	
==>A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2868	2979	
==>A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2868	2979	
==>A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2848	2946	
==>ion::Example-0.1.0 {

    # External packages used by the Relation::Example class, that do export s <==
4	/Users/nnunley/pugs/util/fixauthors.pl	356	484	
==>s /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3900	4003	
==>) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inco <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3900	4003	
==>) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inco <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4490	4593	
==>) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inco <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1656	1761	
==>em Map

A map is like a hash - it has keys and values.

C<Env> is a map - it contains symbol to value mapp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5079	5175	
==>nced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5079	5175	
==>nced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5079	5175	
==>nced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1520	1638	
==>orted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1520	1638	
==>orted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1520	1638	
==>orted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1 <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6152	6263	
==>},
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($6)->minutes) . "&nbsp;min",
      summar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3088	3188	
==>IL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3088	3188	
==>IL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3088	3188	
==>IL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, a <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	434	528	
==>=> sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter::Simple;
sub import <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3569	3767	
==>h.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %event <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3569	3767	
==>h.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %event <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	590	694	
==>es

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	590	694	
==>es

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Com <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8868	8974	
==>s.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Targ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8868	8974	
==>s.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Targ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22206	22306	
==>le, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26758	26858	
==>le, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table. <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	921	1123	
==>{
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add syml <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	921	1123	
==>{
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add syml <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7170	7268	
==>ype:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7182	7280	
==>ype:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7448	7569	
==>s Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::enc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7448	7569	
==>s Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::enc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16959	17054	
==>ymous routines) and write the rest of the
application in their other language(s) of choice.  Ass <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16959	17054	
==>ymous routines) and write the rest of the
application in their other language(s) of choice.  Ass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	295	414	
==>code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	295	414	
==>code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an a <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	295	414	
==>code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3463	3565	
==>ee,$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	316	416	
==>elf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	316	416	
==>elf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	316	416	
==>elf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]-> <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12076	12171	
==>all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9197	9292	
==>all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12076	12171	
==>all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equa <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9197	9292	
==>all the
items of C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12838	12936	
==>et1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (mor <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9614	9712	
==>et1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (mor <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12838	12936	
==>et1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (mor <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9614	9712	
==>et1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less (mor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19864	19993	
==>is, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19864	19993	
==>is, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19864	19993	
==>is, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYA <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12126	12224	
==>nment variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2947	3053	
==>n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2947	3053	
==>n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2947	3053	
==>n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methna <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9119	9291	
==>urn  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{signat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4050	4163	
==>required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4050	4163	
==>required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4050	4163	
==>required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9341	9459	
==>ldren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9341	9459	
==>ldren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9857	10006	
==>y = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9857	10006	
==>y = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9857	10006	
==>y = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Valu <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2044	2169	
==>\n" .
        "    push \@grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7541	7666	
==>,
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usage i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1183	1268	
==>er::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1183	1268	
==>er::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->comp <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2866	2978	
==>t deduce auto_provides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warning <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1085	1179	
==>lVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1085	1179	
==>lVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1085	1179	
==>lVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	287	394	
==>match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	287	394	
==>match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone( <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1362	1457	
==>ts can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 a <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1362	1457	
==>ts can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5438	5538	
==> (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4568	4668	
==> (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5438	5538	
==> (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4568	4668	
==> (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}
multi sub *infix:«<=» (Set $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18494	18666	
==>NG THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE AR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18494	18666	
==>NG THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE AR <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18494	18666	
==>NG THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE AR <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6483	6569	
==>ce(R).
p5_elemental(negSet(X)) --> "[^", !, p5_charset_def(X), "]".
p5_elemental(posSet <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7060	7160	
==>vent<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kicke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7060	7160	
==>vent<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kicke <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1014	1105	
==>LExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1014	1105	
==>LExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9542	9637	
==>oes not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a f <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9542	9637	
==>oes not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a f <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12167	12261	
==>the parameter value if the parameter is a member of the recurrence.
Otherwise, returns the prev <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12167	12261	
==>the parameter value if the parameter is a member of the recurrence.
Otherwise, returns the prev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8080	8219	
==>ents[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8080	8219	
==>ents[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8080	8219	
==>ents[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxe <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1017	1131	
==>$op->{'nprec'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or di <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1319	1447	
==>7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3615	3743	
==>7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1319	1447	
==>7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3615	3743	
==>7 6 5 4 3 2 1 0|
#        +-----------+---+-------+-------+---+-----------+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6619	6724	
==>ODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6619	6724	
==>ODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fet <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6619	6724	
==>ODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fet <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23377	23472	
==>rded.

It is important to do this copy-and-push before you do any flag-parsing,
if you're adding <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5425	5538	
==>mporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sg <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6693	6806	
==>mporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5425	5538	
==>mporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6681	6794	
==>mporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sg <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3890	4002	
==>ne 'Dispatchable';
    return $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2061	2153	
==>('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2061	2153	
==>('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2061	2153	
==>('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13732	13859	
==>( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13726	13853	
==>( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8138	8263	
==>( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8138	8263	
==>( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	979	1083	
==>n () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	979	1083	
==>n () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	979	1083	
==>n () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3939	4042	
==>$self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	329	581	
==>PTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applie <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	329	581	
==>PTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applie <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4473	4552	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4473	4552	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5699	5853	
==>function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5699	5853	
==>function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5699	5853	
==>function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4826	4928	
==>rget);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.E <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1900	2031	
==>m { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1900	2031	
==>m { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5927	6030	
==>) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5927	6030	
==>) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2416	2515	
==>g = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2416	2515	
==>g = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2416	2515	
==>g = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9843	9956	
==>$self->_filtered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if ther <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8443	8554	
==>a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8443	8554	
==>a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unb <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8443	8554	
==>a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unb <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3193	3451	
==>) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::De <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3193	3451	
==>) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::De <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	769	870	
==>ol::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	769	870	
==>ol::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	560	674	
==>PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	560	674	
==>PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	560	674	
==>PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9248	9335	
==>ngleton_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_iFoo_singleton_met <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5211	5325	
==>::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6479	6593	
==>::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5211	5325	
==>::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6467	6581	
==>::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    r <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14886	15018	
==>s Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has Int  $.picosec;
    has Int  $.wday;    # 1 to 7, Sunday == 1
    has In <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9758	9880	
==>e FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9758	9880	
==>e FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9758	9880	
==>e FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11691	11804	
==>ey );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11691	11804	
==>ey );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11691	11804	
==>ey );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	697	795	
==>ase report this issue to <perl6-compiler\@perl.org>.
.
        require "$self->{path}/$self->{dispa <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4690	4789	
==>y_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4690	4789	
==>y_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1095	1192	
==>NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is expor <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1095	1192	
==>NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is expor <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8551	8696	
==>rce-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	622	741	
==>e = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	622	741	
==>e = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	622	741	
==>e = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	165	266	
==>> $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	165	266	
==>> $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	165	266	
==>> $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5060	5171	
==>urn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5060	5171	
==>urn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5060	5171	
==>urn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28805	28896	
==>he invocant.

=item C<not_equal (Relation::Example $other!) returns Bool>

This method retur <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6187	6285	
==>ub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5317	5415	
==>ub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6187	6285	
==>ub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5317	5415	
==>ub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32412	32628	
==>f, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32412	32628	
==>f, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32412	32628	
==>f, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            nex <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3484	3597	
==>when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1796	1907	
==>when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2333	2444	
==>when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2895	3006	
==>when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1952	2078	
==>. "    rule $rule_name { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" . <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	506	626	
==>.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	506	626	
==>.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	506	626	
==>.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3488	3741	
==>tributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interf <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3488	3741	
==>tributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interf <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1858	1952	
==>e engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1947	2041	
==>e engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23394	23529	
==>d eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23394	23529	
==>d eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23394	23529	
==>d eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Sca <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6117	6231	
==>$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13150	13265	
==>->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9336	9451	
==>->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10172	10287	
==>->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\ <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1301	1396	
==>ate( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_html );
}

sub template <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4246	4405	
==>lass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4246	4405	
==>lass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4246	4405	
==>lass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        a <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2637	2737	
==>uct as a new api into the guts of the perl core.  There being no
documentation, one ends up reverse e <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11144	11238	
==>r :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$to <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11202	11296	
==>r :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$to <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10345	10440	
==>}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%option <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13054	13149	
==>mber Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10345	10440	
==>}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%option <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13054	13149	
==>mber Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4371	4517	
==>eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ if $result{ok}
        }
        elsif( $result{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	357	459	
==>thing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	357	459	
==>thing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcir <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	357	459	
==>thing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcir <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8645	8739	
==>l be caught later.
    return ::($module_name).does(Package);
}

method load_template_module (S <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8645	8739	
==>l be caught later.
    return ::($module_name).does(Package);
}

method load_template_module (S <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	294	415	
==>_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $ <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	294	415	
==>_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1259	1362	
==>r( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1259	1362	
==>r( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	892	1018	
==>stance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	892	1018	
==>stance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	892	1018	
==>stance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7767	7885	
==>on of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7767	7885	
==>on of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7767	7885	
==>on of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(strin <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	168	273	
==>be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `cat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21665	21770	
==>er

=item C<line>

The original line received from the server (unmodified).

=item C<server>

The server t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20546	20651	
==>er

=item C<line>

The original line received from the server (unmodified).

=item C<server>

The server t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21665	21770	
==>er

=item C<line>

The original line received from the server (unmodified).

=item C<server>

The server t <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20546	20651	
==>er

=item C<line>

The original line received from the server (unmodified).

=item C<server>

The server t <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9591	9699	
==>s List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9591	9699	
==>s List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3278	3371	
==>ase qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	49	142	
==>ase qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2276	2395	
==>Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.er <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	265	376	
==>Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.er <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	265	376	
==>Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.er <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4923	5019	
==>ro => $()});
	 return { macro => $() ,}
	}
RULE
*{'empty_list'} = Pugs::Compiler::Rule->compile(< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39119	39243	
==>elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39119	39243	
==>elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39119	39243	
==>elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1079	1180	
==>gent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	369	476	
==>if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	369	476	
==>if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	369	476	
==>if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7423	7557	
==>ub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7423	7557	
==>ub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if define <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7423	7557	
==>ub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if define <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	159	265	
==>:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:tree.defined;
    retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24659	24787	
==>gs}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2069	2175	
==>MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2069	2175	
==>MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\" <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2069	2175	
==>MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\" <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5810	5902	
==>c2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824) <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5810	5902	
==>c2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8781	8887	
==>o you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I us <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8490	8593	
==>o you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I us <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1976	2071	
==>valent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1976	2071	
==>valent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C< <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5007	5165	
==>} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4871	4981	
==>parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4871	4981	
==>parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4871	4981	
==>parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8515	8607	
==>new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8515	8607	
==>new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $l <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8515	8607	
==>new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $l <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6143	6247	
==>t {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5273	5377	
==>t {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6143	6247	
==>t {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5273	5377	
==>t {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$on <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8567	8676	
==>nfinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8567	8676	
==>nfinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence. <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	8312	8416	
==>top-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8312	8416	
==>top-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tr <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9300	9390	
==>ype::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nulla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9495	9585	
==>ype::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nulla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9690	9780	
==>ype::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nulla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11346	11436	
==>ype::operator::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nulla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	85	181	
==>e strict;
use warnings;

use String::Escape qw/quote printable/;
use Scalar::Util qw/blessed/;

u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30883	30976	
==>transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origina <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35433	35526	
==>transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origina <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34624	34717	
==>transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origina <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3092	3188	
==>HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3092	3188	
==>HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31458	31553	
==>sole read-only argument. The new
Relation has all of the same attributes as the original.  Trivi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36008	36103	
==>sole read-only argument. The new
Relation has all of the same attributes as the original.  Trivi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4607	4802	
==>s = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!se <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4607	4802	
==>s = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!se <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	302	401	
==>key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	302	401	
==>key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfou <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6890	6991	
==>e1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6890	6991	
==>e1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return su <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1470	1571	
==>tz) );
}

# convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is expo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	401	497	
==>::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	405	501	
==>::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	401	497	
==>::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	405	501	
==>::IRC.
# See the POD of this document for more documentation.

use v6;
use Algorithm::TokenBucket <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8845	8958	
==>fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't cl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	579	692	
==>fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8845	8958	
==>fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't cl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8845	8958	
==>fn") or die "Couldn't open \"$fn\" for writing: $!\n"; # XXX - kludge
    print F $p6; close F or die "Couldn't cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3402	3558	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3402	3558	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3402	3558	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            ' <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32802	32901	
==>.

=item C<unwrap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  This method has not ye <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8100	8298	
==>"autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8100	8298	
==>"autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8100	8298	
==>"autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3566	3676	
==>( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5064	5220	
==>ug;
        }
    }
    $self->{_config}{test_count} = scalar @tests;
    @tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3002	3120	
==>arse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "S <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3480	3598	
==>arse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "S <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	71	183	
==>ner::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c->scalar_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1950	2057	
==>warn "not implemented";
}

sub perl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2466	2563	
==>efined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2466	2563	
==>efined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2466	2563	
==>efined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2534	2629	
==>@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2534	2629	
==>@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2534	2629	
==>@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2623	2730	
==>xists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    # fill the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1691	1790	
==>l write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1691	1790	
==>l write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetH <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1691	1790	
==>l write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetH <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11184	11315	
==>num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11184	11315	
==>num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6150	6252	
==>";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	891	1000	
==>r support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	891	1000	
==>r support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	891	1000	
==>r support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2927	3031	
==>"} = $self->autoload;
    $self->preload;

    # Unregister loader and worker packages so subdirs can use <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8688	8813	
==>),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8688	8813	
==>),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4771	4883	
==>= Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4607	4716	
==>= Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14659	14774	
==>( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14659	14774	
==>( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14659	14774	
==>( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11522	11621	
==>Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$initrd_mnt/lib6/$_" or return for @m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1357	1474	
==>clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	695	811	
==>clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31867	31960	
==>ulti-method is a generic binary relational operator that takes a single
Relation in its C<$oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36417	36510	
==>ulti-method is a generic binary relational operator that takes a single
Relation in its C<$oth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13290	13383	
==>expected on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3937	4029	
==>e.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3937	4029	
==>e.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3937	4029	
==>e.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $:: <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5631	5752	
==>elf->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::M <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28910	29024	
==>BYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28910	29024	
==>BYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	273	379	
==>BYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit. <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	837	934	
==>ethods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	837	934	
==>ethods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7959	8052	
==>channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.de <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7959	8052	
==>channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.de <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27410	27505	
==>airs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31962	32057	
==>airs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31045	31140	
==>airs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28130	28250	
==>MRO)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('MRO'),
    # method body
        m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10130	10227	
==>PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10130	10227	
==>PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10130	10227	
==>PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14726	14822	
==>);

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which make <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16062	16158	
==>they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14726	14822	
==>);

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which make <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16062	16158	
==>they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	14350	14450	
==>j->look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	476	587	
==>:PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	476	587	
==>:PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	476	587	
==>:PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25733	25832	
==>foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROP <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	742	919	
==>h = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3813	3990	
==>h = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	742	919	
==>h = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3813	3990	
==>h = $rule->match( 'abc' );

    if ($match) {               # true
        print $match;           # "abc"
        print $match->from;     # 0
        print $match->to;       # 3 <==
4	/Users/nnunley/pugs/examples/hop6/Stream.pm	173	286	
==>rl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7257	7360	
==>->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7257	7360	
==>->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLA <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7257	7360	
==>->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLA <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4	101	
==>IL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4	101	
==>IL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4	101	
==>IL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12361	12458	
==>anguage/16578> for more
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	235	353	
==>urn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	235	353	
==>urn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	235	353	
==>urn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2604	2701	
==>e of
Perl 6 syntax and semantics.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1044	1139	
==>ust say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, t <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1044	1139	
==>ust say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, t <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12302	12439	
==>p;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        { local($X:: <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1542	1670	
==>> sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1542	1670	
==>> sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	724	819	
==>(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	724	819	
==>(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2811	2942	
==>hift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last if <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6076	6196	
==>1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6076	6196	
==>1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6076	6196	
==>1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        r <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	7499	7619	
==>uild_indexes {
    my $path     = shift;
    my $index    = shift;
    
    return unless exists $index->{_dirs} or exist <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2891	2988	
==>ot::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2891	2988	
==>ot::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2891	2988	
==>ot::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Cod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23549	23653	
==>rn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19970	20074	
==>rn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30555	30652	
==>" (or "user type") for each distinct Message; each file can be
shared by multiple Messages but the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30555	30652	
==>" (or "user type") for each distinct Message; each file can be
shared by multiple Messages but the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	679	827	
==>"pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	679	827	
==>"pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	679	827	
==>"pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1049	1174	
==>> ')',
        assoc => 'non',
        precedence => 'equal',
        other => 'circumfix:<( )>',
    );
    __PACKAGE__->add_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5800	5903	
==>calar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5800	5903	
==>calar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15243	15338	
==>(without changing the input string).

If you prefer not to import these routines into your names <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15243	15338	
==>(without changing the input string).

If you prefer not to import these routines into your names <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6604	6724	
==>}
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	688	775	
==>plemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	688	775	
==>plemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	688	775	
==>plemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4324	4474	
==>l6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4324	4474	
==>l6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4324	4474	
==>l6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/util/addauthors.pl	993	1095	
==>y ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a (@$authors) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	488	617	
==>JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	488	617	
==>JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	488	617	
==>JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.c <==
4	/Users/nnunley/pugs/util/importgraph.pl	2353	2452	
==>my ($nodes, $edges) = (0, 0);
while (my ($name, $module) = each %modules) {
  my $cluster = $module- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6116	6231	
==>.= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6116	6231	
==>.= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6116	6231	
==>.= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Co <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2218	2315	
==>f ($class =~ /^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} else {
		return $cla <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	350	473	
==>y_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = read <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	385	508	
==>y_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = read <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	350	473	
==>y_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = read <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9563	9686	
==>y_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my @nodes = read <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1041	1153	
==>ng globals
    # ought to check if the runtime has a hash for this right now this is a non
    # issue since even <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1160	1262	
==>un}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1160	1262	
==>un}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1160	1262	
==>un}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10701	10822	
==>ethod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10701	10822	
==>ethod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10701	10822	
==>ethod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4373	4468	
==>$_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_pil_tr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15895	16034	
==>elf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15895	16034	
==>elf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15895	16034	
==>elf->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2549	2644	
==>e Defaults

Note that Perl 6 allows us to provide defaults for optional parameters.
This include <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1282	1416	
==>=> { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1229	1359	
==>=> { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16076	16170	
==>d program component may raise such a condition, and one
application may handle it internally, w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16076	16170	
==>d program component may raise such a condition, and one
application may handle it internally, w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8976	9213	
==>y;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8976	9213	
==>y;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8976	9213	
==>y;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $pa <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11507	11607	
==>or

A closure with arity of 1, which returns the "key" by which to sort. If
the closure returns a Num <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	417	532	
==>pe> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexica <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	417	532	
==>pe> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexica <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29807	29917	
==>{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a da <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29807	29917	
==>{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	505	614	
==>tandalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	505	614	
==>tandalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	505	614	
==>tandalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->fu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3385	3492	
==>'\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13020	13123	
==>ap{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13020	13123	
==>ap{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminat <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13020	13123	
==>ap{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminat <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	807	930	
==>ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11240	11362	
==>xs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11240	11362	
==>xs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11240	11362	
==>xs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13707	13811	
==>y $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4973	5072	
==>d(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4973	5072	
==>d(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4973	5072	
==>d(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21715	21845	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21994	22124	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18819	18923	
==>e a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18819	18923	
==>e a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $doc <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12044	12168	
==>$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10947	11063	
==>me};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10947	11063	
==>me};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10947	11063	
==>me};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_t <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	349	459	
==>r filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.ge <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	349	459	
==>r filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.ge <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	7468	7577	
==>se($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7468	7577	
==>se($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2057	2175	
==>)";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2057	2175	
==>)";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2057	2175	
==>)";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	117	219	
==>$bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6144	6276	
==>62),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6144	6276	
==>62),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      = <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2349	2449	
==>inted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2349	2449	
==>inted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7776	7929	
==>mary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ] <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7776	7929	
==>mary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ] <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10272	10369	
==>ty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Re <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8165	8262	
==>ty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10272	10369	
==>ty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8165	8262	
==>ty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend items into the set. Re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14283	14411	
==>$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14277	14405	
==>$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_su <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13057	13156	
==>k that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_an <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13057	13156	
==>k that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3160	3266	
==>_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3160	3266	
==>_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3160	3266	
==>_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1318	1419	
==>CKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1599	1717	
==>SubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'P <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4694	4811	
==>SubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'P <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4694	4811	
==>SubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'P <==
4	/Users/nnunley/pugs/util/package-osx.pl	5283	5389	
==>.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/local <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2243	2355	
==>nd";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::In <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2243	2355	
==>nd";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::In <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3576	3686	
==>h($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3576	3686	
==>h($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3257	3408	
==>ub { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value('@:sl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7838	7933	
==>y should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7838	7933	
==>y should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7838	7933	
==>y should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1772	1880	
==>_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %native);
}

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4616	4714	
==>Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4616	4714	
==>Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4616	4714	
==>Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arra <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12695	12792	
==>e likely flakier (modulo memory issues),
  might suffice, be easier to create, and be more portabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9621	9717	
==>t',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9621	9717	
==>t',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9621	9717	
==>t',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2296	2402	
==>MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2513	2619	
==>MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_f <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1754	1849	
==>her;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is con <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1754	1849	
==>her;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is con <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2816	2956	
==>ted
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2816	2956	
==>ted
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6165	6267	
==>1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/fi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6165	6267	
==>1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6079	6196	
==>s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6067	6184	
==>s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6264	6369	
==>turn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6252	6357	
==>turn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10161	10345	
==>:Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          re <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	715	887	
==>:Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        re <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	715	887	
==>:Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        re <==
4	/Users/nnunley/pugs/util/drift.pl	1338	1447	
==>IN, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hac <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32243	32342	
==>e result.  With any 2 relations, the result is the same regardless of
which is the invocant and whic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36793	36892	
==>e result.  With any 2 relations, the result is the same regardless of
which is the invocant and whic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36083	36182	
==>e result.  With any 2 relations, the result is the same regardless of
which is the invocant and whic <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9502	9586	
==>set_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5_simple_escape_sequence(R <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3985	4119	
==>eturn $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3985	4119	
==>eturn $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11030	11131	
==>elf = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11030	11131	
==>elf = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21616	21725	
==>ck is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received from the server <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20497	20606	
==>ck is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21616	21725	
==>ck is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received from the server <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20497	20606	
==>ck is given a C<$event> hashref, containing:

=over

=item C<line>

The original line received from the server <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2675	2778	
==>in = $self->env->get($symbol) || die $@;

    # fill the place holder with the compiled version of the b <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13423	13518	
==>r

This will remove all header fields.

=item $h.header_field_names

Returns the list of distinc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13423	13518	
==>r

This will remove all header fields.

=item $h.header_field_names

Returns the list of distinc <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10472	10603	
==>.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>). <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10472	10603	
==>.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>). <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2293	2398	
==>l $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_nam <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2293	2398	
==>l $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3349	3484	
==>y $idx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $in <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3001	3107	
==>shift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3001	3107	
==>shift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3001	3107	
==>shift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $c <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4524	4694	
==>eturn JIB::Package->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11160	11259	
==>would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11160	11259	
==>would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11160	11259	
==>would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1001	1198	
==>ne_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1001	1198	
==>ne_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24371	24549	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25634	25812	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24650	24828	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25913	26091	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'op', 
             ruleop::alternation( \@grammar1::ops )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13307	13424	
==>lems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13307	13424	
==>lems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13307	13424	
==>lems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Co <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	469	583	
==>y $self = shift;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1027	1141	
==>y @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1027	1141	
==>y @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1027	1141	
==>y @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fil <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3767	3875	
==>ine\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4631	4710	
==>5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4631	4710	
==>5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	9141	9372	
==>>{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $results{bonus},
                    skipped     => $results{skip},
                    ski <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1814	2002	
==>$in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1814	2002	
==>$in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3005	3144	
==>ches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3527	3663	
==>ches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2907	3043	
==>ches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3527	3663	
==>ches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7939	8052	
==>SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7939	8052	
==>SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7939	8052	
==>SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{" <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8810	8905	
==>batim>

This event handles the entire verbatim string.

=item I<string>

This event processes ra <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	396	491	
==>defh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8810	8905	
==>batim>

This event handles the entire verbatim string.

=item I<string>

This event processes ra <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	396	491	
==>defh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3860	4030	
==>($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref->fetch;            
        }
    }
    return nil->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9848	9982	
==>ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AU <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9848	9982	
==>ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AU <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9848	9982	
==>ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2415	2526	
==>defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2415	2526	
==>defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2415	2526	
==>defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

su <==
4	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	815	926	
==>en 'edit' {
        print template( "wiki_edit.tmpl", topic => $topic, entry => $entry );
    }
    when 'update <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4440	4551	
==>t at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4440	4551	
==>t at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4440	4551	
==>t at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max: <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3596	3707	
==>t at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	735	921	
==><bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	735	921	
==><bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1362	1538	
==>ist', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1362	1538	
==>ist', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6477	6604	
==>$attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6477	6604	
==>$attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6477	6604	
==>$attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1106	1210	
==>y understanding, The implemention below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12744	12874	
==>| $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # fo <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12744	12874	
==>| $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # fo <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4915	5041	
==>line seen.  C<$pass> is
            #true if it was considered to be a passed test.  C<%test> is the results
            #of th <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3369	3463	
==>= [];
  my $termEmpty = $self->termTable()->{""};
  my $operatorEmpty = $self->operatorTable()- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14651	14746	
==>res planned for this module.

- better error handling for cmp_ok

The error handling capabilitie <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14709	14804	
==>res planned for this module.

- better error handling for cmp_ok

The error handling capabilitie <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5666	5868	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                } <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5666	5868	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20361	20456	
==>erforms quite slowly; you should only use Example
for testing, development, and study; you shoul <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20361	20456	
==>erforms quite slowly; you should only use Example
for testing, development, and study; you shoul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5508	5687	
==>mt} eq 'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif ( $ast->{stmt} eq '{' ) {
                $t = [ 'B <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37772	37871	
==>ion of
all the headings of the source relations.  The body of the new relation is
the result of firs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42321	42420	
==>ion of
all the headings of the source relations.  The body of the new relation is
the result of firs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41971	42070	
==>ion of
all the headings of the source relations.  The body of the new relation is
the result of firs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17144	17228	
==>ethods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17144	17228	
==>ethods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17144	17228	
==>ethods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attrib <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14842	14957	
==>mit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->data);
    my $code = 'sub{my $__c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	461	566	
==>cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	461	566	
==>cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	461	566	
==>cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1804	2209	
==>object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comm <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1804	2209	
==>object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6488	6650	
==>ts in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6488	6650	
==>ts in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4999	5112	
==>:/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4999	5112	
==>:/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_". <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4999	5112	
==>:/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_". <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	637	734	
==>rn "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }))->code <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5999	6103	
==>n.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5999	6103	
==>n.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Spa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6932	7035	
==>' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6932	7035	
==>' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11025	11131	
==>t. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8429	8535	
==>t. Returns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11025	11131	
==>t. Returns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8429	8535	
==>t. Returns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8778	8887	
==>[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8778	8887	
==>[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8778	8887	
==>[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4320	4407	
==>ue::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    ble <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4320	4407	
==>ue::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    ble <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4320	4407	
==>ue::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    ble <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2706	2849	
==>}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Gl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2706	2849	
==>}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Gl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2706	2849	
==>}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Gl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1901	2026	
==>]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1901	2026	
==>]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1901	2026	
==>]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16605	16705	
==>module is more of a theoretical
exercise, a jump-start to built-in reversing capability in Perl.

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20065	20337	
==>')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2862	2997	
==>v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2862	2997	
==>v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2862	2997	
==>v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27639	27779	
==>tant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27918	28058	
==>tant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( " <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14439	14530	
==>ities($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14439	14530	
==>ities($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12847	12978	
==>n-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12847	12978	
==>n-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete fr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12847	12978	
==>n-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete fr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29127	29236	
==>ration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcn <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3667	3832	
==>if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27377	27471	
==>itional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31929	32023	
==>itional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31012	31106	
==>itional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2331	2433	
==>(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9737	9851	
==>($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1329	1443	
==>ct->{$_} ) for keys %$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $obj->c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9737	9851	
==>($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9737	9851	
==>($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20355	20482	
==>turn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20634	20761	
==>turn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	603	703	
==>ence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	603	703	
==>ence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10749	10916	
==>l            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10749	10916	
==>l            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_ <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	832	937	
==>m here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is pri <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	832	937	
==>m here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is pri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2300	2401	
==>MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 4 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2300	2401	
==>MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 4 <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	346	442	
==>$.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return B <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	346	442	
==>$.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return B <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1887	1986	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1850	1949	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1887	1986	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1850	1949	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPA <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7585	7692	
==>.";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete( <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7585	7692	
==>.";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete( <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1059	1159	
==>3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NA <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1059	1159	
==>3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9676	9849	
==>ant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9955	10128	
==>ant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3381	3478	
==>od sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3381	3478	
==>od sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	99	350	
==>ls:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2518	2631	
==>@array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifie <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2518	2631	
==>@array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifie <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2518	2631	
==>@array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12735	12938	
==>i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12735	12938	
==>i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12735	12938	
==>i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#p <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6571	6699	
==>),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6571	6699	
==>),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	577	671	
==>..}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ($ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	577	671	
==>..}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12754	12891	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19591	19728	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13033	13170	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19870	20007	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "p <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4023	4120	
==>tAsteriskCommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	307	398	
==>_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	307	398	
==>_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	307	398	
==>_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	6799	6922	
==>$key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6799	6922	
==>$key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34086	34184	
==>n the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=ba <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34086	34184	
==>n the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5626	5736	
==>->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5626	5736	
==>->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5626	5736	
==>->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	91	192	
==>ll is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2493	2586	
==>>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2493	2586	
==>>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2493	2586	
==>>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::M <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17586	17685	
==>alize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17586	17685	
==>alize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40791	40886	
==>g informed any time you create a
modified version of Locale::KeyedText that you are willing to d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40791	40886	
==>g informed any time you create a
modified version of Locale::KeyedText that you are willing to d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	569	817	
==>ta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for Engli <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	569	817	
==>ta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for Engli <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1539	1651	
==>span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1539	1651	
==>span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34163	34287	
==>:List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34163	34287	
==>:List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34163	34287	
==>:List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14411	14580	
==>ay_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14411	14580	
==>ay_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() m <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14411	14580	
==>ay_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19716	19833	
==>'Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19716	19833	
==>'Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19716	19833	
==>'Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probabl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3294	3397	
==>:Parser::digit;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5283	5389	
==>p $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2825	2931	
==>p $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3674	3780	
==>p $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36577	36671	
==>n::Example contains all the tuples of the source Relations, including
one copy each of any dupl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4804	4924	
==>heck->last_error), return;

    if( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Fail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6306	6397	
==>WithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6306	6397	
==>WithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = func <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6306	6397	
==>WithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11215	11395	
==>= Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11215	11395	
==>= Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11215	11395	
==>= Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            retu <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	473	580	
==>));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a ty <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	944	1089	
==>{
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
} <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	944	1089	
==>{
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
} <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	59	161	
==>for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some t <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	59	161	
==>for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	42	143	
==>se base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondie:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1031	1123	
==>ead->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1031	1123	
==>ead->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1031	1123	
==>ead->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4483	4592	
==>o implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9250	9358	
==>ree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11565	11673	
==>ree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4329	4434	
==>o implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13316	13453	
==>f $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13316	13453	
==>f $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13316	13453	
==>f $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @re <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2201	2338	
==>f $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size_change = $listlen - $len;
    my @re <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31653	31805	
==>>new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1183	1288	
==>= $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1183	1288	
==>= $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1183	1288	
==>= $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumf <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9862	9980	
==>> $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, A <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9862	9980	
==>> $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15212	15315	
==>Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $di <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15212	15315	
==>Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $di <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18881	18979	
==>> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17924	18022	
==>> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18881	18979	
==>> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17924	18022	
==>> seconds. Furthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8186	8338	
==>\n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2272	2366	
==>'::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2272	2366	
==>'::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2272	2366	
==>'::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(': <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7960	8086	
==>age;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.pu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7960	8086	
==>age;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.pu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22027	22126	
==>tch the user message for a certain code, it
returns the first one it finds.  This also works for the <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22027	22126	
==>tch the user message for a certain code, it
returns the first one it finds.  This also works for the <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4631	4835	
==>oro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unle <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4631	4835	
==>oro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unle <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6436	6534	
==>an also be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimenta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6229	6324	
==>an also be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimenta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2037	2139	
==>'t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2037	2139	
==>'t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2037	2139	
==>'t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--l <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22725	22820	
==>in
this current version, because I've tried to fix those I've already
found. Those who find bugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	756	865	
==>]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	756	865	
==>]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	563	667	
==>, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	574	678	
==>, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14149	14348	
==>" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14149	14348	
==>" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14149	14348	
==>" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic su <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	902	1039	
==>hr eq "\\") {
	    print "\\textbackslash{}";
	    return;
	} elsif ($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} els <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3333	3503	
==>iated with this object -- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	797	914	
==>ispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	797	914	
==>ispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	797	914	
==>ispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8048	8144	
==>t(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7178	7274	
==>t(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8048	8144	
==>t(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7178	7274	
==>t(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2858	2951	
==>y $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1305	1398	
==>nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRA <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2858	2951	
==>y $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2858	2951	
==>y $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);( <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31683	31781	
==>er all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
na <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36233	36331	
==>er all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
na <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35469	35567	
==>er all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32043	32138	
==>see L</"ERROR HANDLING">.

=back

=head2 Walking an Object

Most objects inherit their ender() a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24538	24659	
==>$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24538	24659	
==>$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24538	24659	
==>$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arra <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5650	5749	
==>:proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $dia <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5708	5807	
==>:proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $dia <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	35	127	
==>s defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

clas <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	35	127	
==>s defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6163	6283	
==>ult ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6163	6283	
==>ult ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ], <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6163	6283	
==>ult ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ], <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	665	787	
==>string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	665	787	
==>string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package P <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15105	15206	
==>end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15105	15206	
==>end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	483	616	
==>parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	483	616	
==>parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .metho <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2203	2333	
==>ssage($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $prot <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2203	2333	
==>ssage($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $prot <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10687	10825	
==>no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        return unless $self->link_files( package => $ne <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	4135	4242	
==>,  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3933	4037	
==>"Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3933	4037	
==>"Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clea <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	9092	9192	
==>_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = basename($relative_file) <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5779	5876	
==>over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeric C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5779	5876	
==>over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeric C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26	156	
==>ub init {
  my ($self) = @_;

  # /m, /s, /i, /x flags
  $self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 }) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37418	37512	
==>-method is the N-ary version of the aforementioned binary join()
operator, and the order of its <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41967	42061	
==>-method is the N-ary version of the aforementioned binary join()
operator, and the order of its <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41608	41702	
==>-method is the N-ary version of the aforementioned binary join()
operator, and the order of its <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2913	3026	
==>t;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2913	3026	
==>t;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2913	3026	
==>t;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^ <==
4	/Users/nnunley/pugs/util/package-osx.pl	7816	7913	
==>dule.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/Perl6::Sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9005	9147	
==>'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9005	9147	
==>'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9005	9147	
==>'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33378	33475	
==>ad2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5509	5638	
==>$n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) ret <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10479	10608	
==>$n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) ret <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5509	5638	
==>$n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) ret <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10479	10608	
==>$n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8215	8337	
==>:capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8408	8530	
==>:capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4915	5006	
==>oo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7583	7674	
==>oo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3928	4043	
==>urpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3928	4043	
==>urpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4518	4633	
==>urpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28176	28288	
==>_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2817	2942	
==>'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2817	2942	
==>'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2817	2942	
==>'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $ <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1806	1915	
==>me>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule external_ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27346	27453	
==>does not permit changes to its attributes; they
must all be set when the object is constructed.  If you want <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34872	34979	
==>does not permit changes to its attributes;
they must all be set when the object is constructed.  If you want <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27346	27453	
==>does not permit changes to its attributes; they
must all be set when the object is constructed.  If you want <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34872	34979	
==>does not permit changes to its attributes;
they must all be set when the object is constructed.  If you want <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22997	23138	
==>DO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22997	23138	
==>DO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @para <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22997	23138	
==>DO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @para <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22037	22143	
==>ember(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C)     :- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5443	5558	
==>things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5443	5558	
==>things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5443	5558	
==>things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9875	9965	
==>od
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2353	2473	
==>o;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2267	2380	
==>o;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3364	3475	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3557	3668	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2602	2725	
==>:Runtime::Match::Ratchet; # overload doesn't work without this ???\n\n" .
            join("\n", ( 
                map { "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2741	2834	
==>TION

This module implements the semantics for perl6-style variable binding,
as well as subrou <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2741	2834	
==>TION

This module implements the semantics for perl6-style variable binding,
as well as subrou <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3088	3181	
==>TION

This module implements the semantics for perl6-style variable binding,
as well as subrou <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10521	10626	
==>::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node::variable {
    my $name = mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	386	488	
==>EHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	386	488	
==>EHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	386	488	
==>EHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0.. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	427	558	
==>CH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	427	558	
==>CH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	427	558	
==>CH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18333	18448	
==>e(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4663	4751	
==>"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prot <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4663	4751	
==>"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prot <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4663	4751	
==>"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_prot <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2399	2527	
==>ault { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2399	2527	
==>ault { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8089	8273	
==>}{bareword} ) .
            '(' .
            join ( ";\n", 
                map { _emit( $_ ) } @{$n->{param}} 
            ) .
            ')';
    }

    return _not_implemen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5477	5573	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5477	5573	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5477	5573	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3584	3708	
==>f exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|li <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3584	3708	
==>f exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2245	2350	
==>>' ) );
    return "$ident($list);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3536	3635	
==>->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3536	3635	
==>->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3536	3635	
==>->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2492	2590	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2492	2590	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2492	2590	
==>> ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:m <==
4	/Users/nnunley/pugs/util/package-osx.pl	3748	3836	
==>sr/local/man/man3/Perl6::Bible::A01.3pm
        /usr/local/man/man3/Perl6::Bible::A02.3pm <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3761	3931	
==>e_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5425	5552	
==>) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5425	5552	
==>) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5425	5552	
==>) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var m <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	619	723	
==>to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	619	723	
==>to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	619	723	
==>to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39862	39967	
==>alue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39862	39967	
==>alue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39862	39967	
==>alue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shi <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1651	1745	
==>->catfile($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec->catfile($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2165	2265	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2165	2265	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2165	2265	
==>hod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:metho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21854	21955	
==>em C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20735	20836	
==>em C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21854	21955	
==>em C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20735	20836	
==>em C<to>

The nick the message was sent to.

=item C<rest>

Additional information (varies).

=item C< <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	241	335	
==>LD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	241	335	
==>LD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	756	847	
==>uilder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan o <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	756	847	
==>uilder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan o <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9693	9828	
==>rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5241	5346	
==>'::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5241	5346	
==>'::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5241	5346	
==>'::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1396	1498	
==>of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1396	1498	
==>of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1396	1498	
==>of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1094	1194	
==>elf;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->meta

The JIB <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3128	3290	
==>alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	451	545	
==>re compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	451	545	
==>re compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	451	545	
==>re compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17448	17551	
==>,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17448	17551	
==>,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17448	17551	
==>,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5117	5219	
==>ected
# if $range is 0, then check it's exact
# else if $expected is 0, then $range is an absolute valu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6716	6877	
==>ift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6716	6877	
==>ift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6716	6877	
==>ift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25421	25563	
==>ree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28880	29042	
==>= 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28880	29042	
==>= 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28880	29042	
==>= 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Per <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5472	5573	
==>self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $self->get <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11284	11404	
==>uple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14761	14881	
==>uple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14069	14189	
==>uple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SE <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19584	19684	
==>%# XXX - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1,E0, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3718	3836	
==>, $test) = @_;
            (blessed($test) && $test->isa('TestBuilder::Test'))
                || confess "test argumen <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4824	4923	
==>rter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4824	4923	
==>rter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	312	411	
==>:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	312	411	
==>:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	312	411	
==>:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and M <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1781	1876	
==>ialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.com
cd $path
binary
ge <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4542	4700	
==>= 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4542	4700	
==>= 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primiti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4542	4700	
==>= 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primiti <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	10	110	
==>and use return the last statement evaluated in the .pm, in this case
# 42. See thread "What do use an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2555	2650	
==>n package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2555	2650	
==>n package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2555	2650	
==>n package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2560	2676	
==>on on success and false on failure.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15453	15544	
==>plete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15453	15544	
==>plete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2143	2281	
==>CLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2143	2281	
==>CLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2143	2281	
==>CLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_a <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	864	966	
==>prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3143	3263	
==>hr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a dig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	241	355	
==>opt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	241	355	
==>opt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	241	355	
==>opt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1168	1263	
==>to the main namespace for your tastes, and
you want to rebless everything down to your project's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1168	1263	
==>to the main namespace for your tastes, and
you want to rebless everything down to your project's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1168	1263	
==>to the main namespace for your tastes, and
you want to rebless everything down to your project's <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5853	5942	
==>".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5183	5283	
==>n.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5183	5283	
==>n.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5183	5283	
==>n.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3090	3177	
==>ugs::Internals::arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Inter <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	318	436	
==>f->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	318	436	
==>f->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	31	125	
==>e Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is co <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	31	125	
==>e Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7829	7938	
==>d up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7829	7938	
==>d up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7829	7938	
==>d up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL: <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	901	999	
==>on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=i <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	901	999	
==>on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25159	25252	
==>of Rosetta give you permission to link Rosetta with other free software
components, as defined <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25159	25252	
==>of Rosetta give you permission to link Rosetta with other free software
components, as defined <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7888	8022	
==>:to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7888	8022	
==>:to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7888	8022	
==>:to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2632	2750	
==>->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2632	2750	
==>->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2632	2750	
==>->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15347	15451	
==>mplements a min_length() method for all objects that determines the
minimum length of a string that would <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3378	3495	
==>shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3378	3495	
==>shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3378	3495	
==>shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13581	13692	
==>d init the object
                $e->create('$self' => $e->get('$class:')->send('CREATE' => ($e->get('$canidate <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7468	7554	
==>equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blond <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34990	35104	
==>=head2 clump

Family: clump

Types: clump (C<\X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7823	7923	
==>s speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7823	7923	
==>s speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7823	7923	
==>s speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	691	803	
==>:create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	691	803	
==>:create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	691	803	
==>:create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $l <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24985	25081	
==>s a regmust only if the r.e. contains something
 * potentially expensive (at present, the only su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	611	711	
==>ams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	611	711	
==>ams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lval <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	611	711	
==>ams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lval <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1844	1930	
==>-----------------------------------------------------------------------------
.
    }
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7378	7497	
==>] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7390	7509	
==>] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26263	26359	
==>that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30815	30911	
==>that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	861	1012	
==>ge = shift;
        return $table  if $message eq 'message-map';        
        
        # alias prototype to some common names for super
        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1114	1225	
==>y \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\", <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1114	1225	
==>y \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\", <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	280	385	
==>]+$/)
        || confess "bad attribute name ($name)";
    $class->SUPER::new($name, $type);
}

sub instan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	261	429	
==>ass object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	261	429	
==>ass object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	261	429	
==>ass object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            ' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	297	418	
==>Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in case there's more than one package matching,
    ### sort by highest <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2103	2198	
==>nClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2103	2198	
==>nClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2103	2198	
==>nClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15964	16113	
==>+;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15964	16113	
==>+;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15964	16113	
==>+;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	891	1013	
==>i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	891	1013	
==>i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	891	1013	
==>i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.t <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	644	737	
==>yze($name, \@test_output);
  my %results = $strap->analyze_fh($name, $test_filehandle);
  my % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11975	12069	
==>_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11975	12069	
==>_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11975	12069	
==>_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_r <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2493	2581	
==>OPSIS

	use Blondie::Emitter::Pretty;

	print Blondie::Emitter::Pretty->new->string($prog <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9665	9799	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9944	10078	
==>leop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7625	7716	
==>rmalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7625	7716	
==>rmalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4055	4199	
==>s => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4055	4199	
==>s => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4055	4199	
==>s => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9168	9281	
==>d;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9168	9281	
==>d;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphe <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11063	11161	
==>rate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "u <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11063	11161	
==>rate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	858	975	
==>ch->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	858	975	
==>ch->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12069	12175	
==>event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_co <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12069	12175	
==>event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_co <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	460	564	
==>de.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigg <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	460	564	
==>de.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigg <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8061	8156	
==>he item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, fo <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8061	8156	
==>he item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, fo <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	1702	1838	
==>s = ();

    local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File::S <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5185	5285	
==>back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash co <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5185	5285	
==>back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash co <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7382	7482	
==>back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash co <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13824	13937	
==>e relevant line of code is
  off in perl runtime guts where it can't plausibly be reached to
  change.

  There ma <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8182	8292	
==>if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $switches $file";

    return $line;
}


=h <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1703	1801	
==>om there; that will create the
'nmake.exe' file needed by this module.

You may then resume the ins <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1543	1641	
==>om there; that will create the
'nmake.exe' file needed by this module.

You may then resume the ins <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	553	686	
==>atch" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5266	5385	
==>}
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5266	5385	
==>}
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5856	5975	
==>}
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	775	877	
==>oin ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	833	935	
==>oin ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5243	5337	
==>yedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5243	5337	
==>yedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Local <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2432	2531	
==>| %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2432	2531	
==>| %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2432	2531	
==>| %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex' <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34711	34903	
==>my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispatche <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	71	167	
==>rint $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	71	167	
==>rint $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	71	167	
==>rint $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24310	24447	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'o <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25573	25710	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24589	24726	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25852	25989	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'o <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8298	8410	
==>bPrim';
    $kind =~ s/^Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1719	1813	
==>sage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1719	1813	
==>sage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1719	1813	
==>sage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4655	4775	
==>ix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4655	4775	
==>ix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14843	14950	
==>ext::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14843	14950	
==>ext::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4083	4206	
==>e() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4141	4264	
==>e() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	373	474	
==>sg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ / <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	373	474	
==>sg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ / <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6803	6928	
==>@_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6803	6928	
==>@_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6803	6928	
==>@_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell') <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	797	899	
==>:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:perl5/^$/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5304	5408	
==>shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5304	5408	
==>shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5304	5408	
==>shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_t <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8035	8121	
==>type::variable::instantiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9435	9610	
==>&semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12912	13087	
==>&semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of th <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2481	2655	
==>type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^hea <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2481	2655	
==>type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	346	444	
==>eturn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	346	444	
==>eturn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	346	444	
==>eturn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4293	4443	
==>py = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4293	4443	
==>py = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Typ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4293	4443	
==>py = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Typ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1060	1146	
==>die::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Backend::Perl::Interpreter> contain <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8147	8260	
==>een_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7755	7852	
==>[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7755	7852	
==>[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7755	7852	
==>[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::Su <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1385	1501	
==>}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10917	11013	
==>$class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10917	11013	
==>$class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10917	11013	
==>$class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_ta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24549	24711	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25812	25974	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24828	24990	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26091	26253	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1278	1418	
==>ody>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1278	1418	
==>ody>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compil <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7954	8081	
==>+ $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @arr <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7954	8081	
==>+ $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @arr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	49	150	
==>since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
pa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	49	150	
==>since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
pa <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	802	917	
==>();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the pa <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	802	917	
==>();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the pa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6083	6190	
==>ck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6141	6248	
==>ck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36725	36839	
==>his is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36725	36839	
==>his is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36725	36839	
==>his is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	640	749	
==>elf->SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15961	16058	
==>return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7529	7626	
==>el);
}

(method has_method ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15961	16058	
==>return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15961	16058	
==>return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2206	2305	
==>c

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2206	2305	
==>c

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8429	8526	
==>\$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8417	8514	
==>\$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7290	7406	
==>dds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7042	7156	
==>dds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => su <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3610	3713	
==>my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3610	3713	
==>my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1. <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3429	3555	
==>!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Prox <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3429	3555	
==>!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Prox <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17589	17686	
==>s databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17589	17686	
==>s databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to a <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	351	447	
==>sity }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool:: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	351	447	
==>sity }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool:: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41373	41463	
==>cumentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=bac <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41373	41463	
==>cumentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=bac <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5645	5752	
==>'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ . <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5645	5752	
==>'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ . <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12550	12641	
==>uperset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12550	12641	
==>uperset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1638	1770	
==>{$_->describe}@$v))."\n]";
        } else {
            $vs = $v->describe;
        }
        $s .= "\n  $k => " .$o->_indent_except_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1293	1397	
==>rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1293	1397	
==>rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1293	1397	
==>rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17589	17701	
==>runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1732	1863	
==>.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1732	1863	
==>.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26738	26834	
==>members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31290	31386	
==>members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an a <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13266	13381	
==>},
      perl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20060	20151	
==>($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20060	20151	
==>($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20060	20151	
==>($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1231	1353	
==>as Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1231	1353	
==>as Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  h <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18213	18310	
==>er, such as
'error opening file', programs would have a harder time figuring out the
best way to d <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18213	18310	
==>er, such as
'error opening file', programs would have a harder time figuring out the
best way to d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13985	14099	
==>} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1027	1139	
==>use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1027	1139	
==>use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1027	1139	
==>use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2020	2140	
==>out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2020	2140	
==>out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2100	2220	
==>out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2349	2464	
==>> \&do_cast,
					type => [ "Type" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_type <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6333	6464	
==>X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\z';
    return sub{
      FAIL() if !($X::pos == (length($X:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1693	1785	
==>b p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1693	1785	
==>b p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1693	1785	
==>b p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6647	6782	
==>e 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6647	6782	
==>e 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tie <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6647	6782	
==>e 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tie <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2754	2884	
==>fix:<++>',
    );

    # experimental
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        precedence = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9661	9797	
==>ringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9661	9797	
==>ringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9661	9797	
==>ringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3176	3302	
==>xtensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @ext <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5892	6044	
==>,
        ),
    ),
    '&say' => Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2798	2915	
==>h(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2798	2915	
==>h(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2798	2915	
==>h(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6260	6372	
==>{ 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6260	6372	
==>{ 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1664	1755	
==>gs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1664	1755	
==>gs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> com <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	182	301	
==>ier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Voi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	182	301	
==>ier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Voi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	182	301	
==>ier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Voi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	182	301	
==>ier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filename, Hash %events is rw) returns Voi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24375	24475	
==>{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$r <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11082	11182	
==>al), "\n";
printf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24375	24475	
==>{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24375	24475	
==>{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6314	6417	
==>ce_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6314	6417	
==>ce_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6314	6417	
==>ce_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	87	226	
==>... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num :$base )
    returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10430	10529	
==>nsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10430	10529	
==>nsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	464	559	
==>rsion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (shift)->join(str-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7356	7498	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7356	7498	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7356	7498	
==>$_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	712	1119	
==>Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encod <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	712	1119	
==>Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18144	18243	
==>g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18144	18243	
==>g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10771	10938	
==>y \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11237	11404	
==>y \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10765	10932	
==>y \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11231	11398	
==>y \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	942	1067	
==>ternative installation] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1183	1305	
==>(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1183	1305	
==>(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1183	1305	
==>(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2j <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	846	969	
==>turns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = non <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	846	969	
==>turns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = non <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13109	13231	
==>ss->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$re <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13109	13231	
==>ss->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$re <==
4	/Users/nnunley/pugs/util/file_to_hs.pl	40	145	
==>::Basename;
use FindBin qw<$Bin>;

# XXX - This is not at all portable.

my ($in, $out) = @ARGV;

my ($nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5166	5264	
==>\@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5166	5264	
==>\@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThun <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5166	5264	
==>\@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	434	542	
==>pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	434	542	
==>pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	434	542	
==>pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3380	3484	
==>0.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% oka <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8978	9111	
==>Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.h <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1126	1245	
==>Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.h <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1126	1245	
==>Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.h <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52381	52465	
==>lass->set_attr(symbol->new('@:superclasses') => list->new($::Module));

$::Module->se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9123	9246	
==>on_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous => <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9123	9246	
==>on_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous => <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	650	750	
==>t given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be wri <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	650	750	
==>t given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be wri <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20845	20973	
==>,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5396	5489	
==>$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5396	5489	
==>$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5396	5489	
==>$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17425	17538	
==>ta type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17425	17538	
==>ta type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8077	8173	
==>e $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8077	8173	
==>e $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6980	7079	
==>->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6992	7091	
==>->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	479	592	
==>~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; howev <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	479	592	
==>~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; howev <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21806	21906	
==>t> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20687	20787	
==>t> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21806	21906	
==>t> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20687	20787	
==>t> necessarily the server you
connected to.

=item C<to>

The nick the message was sent to.

=item C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9248	9366	
==>Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9248	9366	
==>Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9248	9366	
==>Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4851	4953	
==>roak("class name passed where object required") unless ref $_[0];
  my $type = splice @_, 1, 1;
  my $r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4260	4378	
==>es}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{values}{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	661	757	
==>}
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	661	757	
==>}
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	661	757	
==>}
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3542	3709	
==>ACKAGE_BINARY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Binary') }; 
use constant ISA <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29611	29705	
==>valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34163	34257	
==>valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the sa <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33327	33421	
==>valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the sa <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33217	33316	
==>l be searched in the order
they appear in this array until a match for that message is found.  Since <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33217	33316	
==>l be searched in the order
they appear in this array until a match for that message is found.  Since <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1532	1625	
==>s it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1532	1625	
==>s it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	250	349	
==>rom here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	250	349	
==>rom here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	250	349	
==>rom here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7963	8106	
==>j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7963	8106	
==>j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arra <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7963	8106	
==>j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arra <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	5787	5903	
==>y $child (1 .. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the first tests <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	705	805	
==>file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, whi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	705	805	
==>file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, whi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10089	10176	
==>print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"unde <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10824	10911	
==>print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"unde <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12174	12282	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6741	6849	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12174	12282	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6741	6849	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6398	6520	
==>(Lt)",
      # "Modifier letter (Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2308	2409	
==>container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2308	2409	
==>container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($sel <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2308	2409	
==>container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($sel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	655	763	
==>d values must be native types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12279	12383	
==>defined $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7439	7542	
==>" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_ <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7439	7542	
==>" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3399	3527	
==>nLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTermina <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3713	3807	
==>ld put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3713	3807	
==>ld put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5786	5895	
==>andler {
  my ($self, @handles) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16207	16298	
==>urn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16207	16298	
==>urn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16207	16298	
==>urn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19264	19365	
==>> <','> <AssignmentExpression>
}
rule ExpressionNoIn :words {  # see 11.14
      <AssignmentExpression <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2425	2533	
==>"SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7182	7290	
==>part messages since we try to
# be compatible with Test::More::skip().
sub skip {
    my $why = shift;
    my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2425	2533	
==>"SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2425	2533	
==>"SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9016	9179	
==>$method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9016	9179	
==>$method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9016	9179	
==>$method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7396	7497	
==>:free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a generic rec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14776	14882	
==>s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14776	14882	
==>s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use con <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14776	14882	
==>s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	14	112	
==>:Runtime::Perl6;

use strict;
use warnings;

use Data::Dumper;

# TODO - see Pugs::Runtime::Grammar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1633	1750	
==>label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1633	1750	
==>label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1633	1750	
==>label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	940	1052	
==>global {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^([\$|\@|\%]\*( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4093	4223	
==>are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4093	4223	
==>are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $se <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9978	10093	
==>e         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base = <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9978	10093	
==>e         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12396	12488	
==>er's
corresponding argument is undefined).  The new Document object's All Nodes
attribute sta <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12396	12488	
==>er's
corresponding argument is undefined).  The new Document object's All Nodes
attribute sta <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3795	3892	
==>with your data.  Finally, call the finish() method to return any leftover data 
and clear the ciph <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3795	3892	
==>with your data.  Finally, call the finish() method to return any leftover data 
and clear the ciph <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1074	1170	
==>module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECU <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1074	1170	
==>module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECU <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42862	42957	
==>.0.

It also requires these Perl 6 classes that are in the current distribution:
L<Relation-(0.1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2031	2122	
==>6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2031	2122	
==>6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2031	2122	
==>6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref( <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15845	15964	
==>@{ $index->{$syn} }){
          # reverse is since we're splicing right after the h1
            my $target  = $link->{l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1742	1849	
==>('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1742	1849	
==>('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1742	1849	
==>('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = ar <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4468	4605	
==>utes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4468	4605	
==>utes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $doc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1763	1880	
==>concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1774	1891	
==>concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21491	21611	
==>(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17912	18032	
==>(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2550	2670	
==>ar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2743	2863	
==>ar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6636	6747	
==>UB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6636	6747	
==>UB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6636	6747	
==>UB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28949	29044	
==>.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation::Example>

This method is a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3762	3866	
==>gth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3762	3866	
==>gth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3762	3866	
==>gth == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	708	808	
==>d::Perl; # something to run the program
    
    my $result = Blondie::Backend::Perl->new->run($prog) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14944	15111	
==>eturn _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	48	137	
==>(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	48	137	
==>(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	48	137	
==>(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7030	7164	
==>atch->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7030	7164	
==>atch->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_mat <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	510	620	
==>\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	477	587	
==>\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5012	5120	
==>x[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=he <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5012	5120	
==>x[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=he <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	987	1091	
==>" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, t <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	987	1091	
==>" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	578	750	
==>val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	578	750	
==>val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23330	23427	
==>n a format other than Perl
files.  Or alternately they have a compiled C component or otherwise ha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23330	23427	
==>n a format other than Perl
files.  Or alternately they have a compiled C component or otherwise ha <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	720	820	
==>ctive::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	n <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	720	820	
==>ctive::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	n <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1358	1450	
==>::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1358	1450	
==>::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2068	2240	
==>ray )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10841	10964	
==>d ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10841	10964	
==>d ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10841	10964	
==>d ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8379	8473	
==>se FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $sr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	91	185	
==>se FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $sr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8379	8473	
==>se FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $sr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8379	8473	
==>se FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $sr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21727	21826	
==>ng the same key code with a new user message in
one of their own resource files.  At some appropriat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21727	21826	
==>ng the same key code with a new user message in
one of their own resource files.  At some appropriat <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1455	1550	
==>xport {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1455	1550	
==>xport {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1901	2001	
==>eter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1901	2001	
==>eter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1901	2001	
==>eter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43268	43364	
==>ion library.

Relation is Copyright (c) 2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6393	6498	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6393	6498	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6393	6498	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1910	2011	
==>tfile($path, "man3");
    $self->makemaker_args->{MAN1PODS} = {} if $perl_version == 6;
    $self->mak <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7463	7593	
==>ASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7463	7593	
==>ASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7463	7593	
==>ASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8274	8392	
==>umper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::cap <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13469	13592	
==>%params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13469	13592	
==>%params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13469	13592	
==>%params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "s <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8916	9015	
==>harset_def(L)            -->      p5_charset_items(L0), p5_charset_def_x(L0,L).
p5_charset_def_x(L0, <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	7648	7761	
==>rent=N, -j      Run N test jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests in rando <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	863	968	
==>$c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	863	968	
==>$c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	863	968	
==>$c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        } <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	865	958	
==>th document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	865	958	
==>th document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	865	958	
==>th document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	832	926	
==>1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	806	897	
==>_END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head1 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	806	897	
==>_END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	717	803	
==>1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/N <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10378	10515	
==>4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => conc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10378	10515	
==>4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => conc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	270	380	
==>interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	476	586	
==>interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10807	10919	
==>les( package => $new_alt );
    }

    ### remove this package from the available list
    $self->remove_availabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1785	1884	
==>Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind laz <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1785	1884	
==>Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind laz <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1785	1884	
==>Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind laz <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9163	9307	
==>portant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9163	9307	
==>portant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9163	9307	
==>portant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1977	2105	
==>e dir as $meta
        ### XXX add other found data to the metadata as well
        my $archive = $meta;
        $archive =~ s|^$ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3207	3332	
==>7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Res <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17849	17957	
==>value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17849	17957	
==>value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17849	17957	
==>value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26041	26138	
==>IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalE <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1132	1241	
==>ne of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6391	6500	
==>ram ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $sel <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1132	1241	
==>ne of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6391	6500	
==>ram ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $sel <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3612	3735	
==>en =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3612	3735	
==>en =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8979	9101	
==>ck} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8979	9101	
==>ck} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4490	4588	
==>ersion of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only fun <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4490	4588	
==>ersion of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only fun <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2185	2282	
==>i sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» ( <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2185	2282	
==>i sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2611	2726	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2611	2726	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2611	2726	
==>s %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} e <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13269	13376	
==>ple translations. This list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 de <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1483	1596	
==>textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{ <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1483	1596	
==>textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1119	1227	
==>_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1119	1227	
==>_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3213	3327	
==>f = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric';
    }
    if($ref eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4393	4502	
==>ubclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4393	4502	
==>ubclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4393	4502	
==>ubclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19315	19584	
==>lice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19315	19584	
==>lice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19315	19584	
==>lice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	30	130	
==>tten in p5.  It the very beginnings of a
# proof of concept.  A feasibility and performance reality c <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4333	4442	
==>@tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track do <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4387	4496	
==>@tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track do <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4333	4442	
==>@tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track do <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4387	4496	
==>@tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track do <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12563	12667	
==>dler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $ps <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12563	12667	
==>dler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $ps <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15530	15623	
==>use these functions will be mutually recursive, they will easily be
able handle arbitrarily co <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15588	15681	
==>use these functions will be mutually recursive, they will easily be
able handle arbitrarily co <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3441	3574	
==>given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1753	1884	
==>given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2290	2421	
==>given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = s <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2852	2983	
==>given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = s <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	78	174	
==>Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use warnings <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2764	2856	
==>ments the semantics for perl6-style variable binding,
as well as subroutine call argument pas <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2764	2856	
==>ments the semantics for perl6-style variable binding,
as well as subroutine call argument pas <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3111	3203	
==>ments the semantics for perl6-style variable binding,
as well as subroutine call argument pas <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	320	435	
==>ss { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1702	1810	
==>fined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1702	1810	
==>fined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1702	1810	
==>fined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6823	6935	
==>ar! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6823	6935	
==>ar! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3580	3676	
==>resenting the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, ret <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3580	3676	
==>resenting the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, ret <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	84	170	
==>rse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Tex <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	84	170	
==>rse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Tex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1875	1977	
==>"p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1875	1977	
==>"p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1875	1977	
==>"p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    i <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16636	16744	
==>sub round($n) is primitive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2570	2671	
==>st.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_di <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2570	2671	
==>st.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2650	2751	
==>st.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_di <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29834	30056	
==>lock'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6356	6453	
==>s handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6356	6453	
==>s handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8553	8650	
==>s handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This a <==
4	/Users/nnunley/pugs/util/drift.pl	1384	1492	
==>!;
while (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hack to fix includes (It's stupid!)
    print OU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5485	5586	
==>s); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5485	5586	
==>s); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5485	5586	
==>s); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11506	11632	
==>unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11785	11911	
==>unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	774	886	
==>ture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3560	3659	
==>her.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3560	3659	
==>her.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12929	13024	
==>generally not
possible to tell which of the returned values belonged to which field.

=item $h.r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12929	13024	
==>generally not
possible to tell which of the returned values belonged to which field.

=item $h.r <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7182	7285	
==>ould be much more concise

# a free variable instantiates into whatever it is combined with (except inst <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2950	3046	
==>GHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2950	3046	
==>GHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3297	3393	
==>GHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7286	7391	
==>test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7344	7449	
==>test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER: <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2020	2123	
==>);
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_v <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2020	2123	
==>);
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2027	2142	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2027	2142	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _bu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2027	2142	
==>ef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _bu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1591	1705	
==>::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	322	454	
==>::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4925	5026	
==>ments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4925	5026	
==>ments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6449	6550	
==>ments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9298	9395	
==>unction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9298	9395	
==>unction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {.. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9298	9395	
==>unction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {.. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19647	19842	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19926	20121	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   rule <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1589	1692	
==>s Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1589	1692	
==>s Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8864	9008	
==>return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8864	9008	
==>return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2416	2535	
==>g($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4739	4854	
==>create('WALKCLASS' => closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17310	17523	
==>::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23276	23489	
==>::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17589	17802	
==>::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23555	23768	
==>::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rule <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	282	400	
==>203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	282	400	
==>203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Pa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1176	1291	
==>) {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1176	1291	
==>) {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5507	5617	
==>ub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_compleme <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5507	5617	
==>ub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_compleme <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27220	27304	
==>L|RE_USE_INTUIT_ML)
 #define REINT_AUTORITATIVE	(REINT_AUTORITATIVE_NOML|REINT_AUTORI <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	73	201	
==>ORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACK <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	149	248	
==>1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	149	248	
==>1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	149	248	
==>1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19893	20027	
==>h it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19893	20027	
==>h it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19893	20027	
==>h it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoi <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3776	3885	
==>confess "You must store a symbol type in a param list"
            foreach @values;
    $class->SUPER::new(@va <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10650	10778	
==>rogram );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10644	10772	
==>rogram );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20159	20253	
==>mpiler may choose to declare that its result not be recompiled by
some other containing parser. <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20159	20253	
==>mpiler may choose to declare that its result not be recompiled by
some other containing parser. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2612	2732	
==>il2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2612	2732	
==>il2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2612	2732	
==>il2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	327	439	
==>onfess';
use Scalar::Util 'blessed';

# create our basic variables/functions for 
# the metamodel that the runtim <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16377	16524	
==>ruct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV * <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20803	20950	
==>ruct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV * <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6979	7102	
==>fined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current ) <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6979	7102	
==>fined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current ) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4368	4561	
==>(
                $closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3718	3822	
==>::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3718	3822	
==>::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3718	3822	
==>::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ----------- <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1551	1674	
==>$input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@values, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	959	1075	
==>" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	959	1075	
==>" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	959	1075	
==>" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8621	8745	
==>ant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8621	8745	
==>ant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8621	8745	
==>ant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4296	4469	
==>eturn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4296	4469	
==>eturn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1291	1409	
==>ods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1291	1409	
==>ods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22071	22295	
==>t( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22350	22574	
==>t( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13217	13318	
==>s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6692	6793	
==>s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3246	3362	
==>=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3246	3362	
==>=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3246	3362	
==>=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2399	2502	
==>syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2399	2502	
==>syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1620	1717	
==>syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3481	3578	
==>syntax into Perl 5 modules.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1444	1550	
==>ext node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1444	1550	
==>ext node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1444	1550	
==>ext node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, d <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	5213	5315	
==>e '$rev' not found.\n";
-f $mid  or die "error: file '$mid' not found.\n";
-f $wc   or die "error: file <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11501	11634	
==>ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11501	11634	
==>ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($conne <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3089	3191	
==>rence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3089	3191	
==>rence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10358	10466	
==>RM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10358	10466	
==>RM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2235	2395	
==>zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# commen <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2235	2395	
==>zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# commen <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1063	1175	
==>gil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholder <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1063	1175	
==>gil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholder <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2774	2881	
==>that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@p <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2774	2881	
==>that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	398	505	
==>ed $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $para <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	398	505	
==>ed $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $para <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5666	5862	
==>ast;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6515	6711	
==>ast;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8329	8455	
==>unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8522	8648	
==>unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2901	3006	
==>run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2901	3006	
==>run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2901	3006	
==>run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pug <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16706	16805	
==>w($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2107	2224	
==>new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2107	2224	
==>new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = e <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2107	2224	
==>new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = e <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	203	315	
==>se File::Spec ();
use ExtUtils::MakeMaker ();

# check if we can load some module
sub can_use {
    my ($self, $m <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	954	1063	
==>et uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2659	2760	
==>upport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2659	2760	
==>upport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2659	2760	
==>upport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6871	6973	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1311	1413	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6871	6973	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1311	1413	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8490	8597	
==>ot be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8490	8597	
==>ot be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2959	3061	
==>rray is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @values);
    @array.elems <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4716	4816	
==>rray is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @values);
   @array.elems <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	314	424	
==>UR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	314	424	
==>UR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	314	424	
==>UR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12886	13005	
==>ee 11.1.4
      <','>
    | <Elision> <','>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1134	1242	
==>" . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1534	1642	
==>" . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2008	2116	
==>" . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3988	4118	
==>@$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3988	4118	
==>@$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3988	4118	
==>@$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contai <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5211	5307	
==>_); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generating index.ht <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	52	153	
==>r - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	52	153	
==>r - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15227	15322	
==>er did not exist then C<undef> is returned.

Methods that deal with dates/times always convert t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15227	15322	
==>er did not exist then C<undef> is returned.

Methods that deal with dates/times always convert t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16964	17053	
==>{...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16964	17053	
==>{...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsS <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16964	17053	
==>{...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsS <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3728	3854	
==>:PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.r <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3728	3854	
==>:PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.r <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4475	4590	
==>r @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offs <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4475	4590	
==>r @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22373	22499	
==>my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18794	18920	
==>my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	397	521	
==>s defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	397	521	
==>s defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	277	413	
==>rns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $inp <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	277	413	
==>rns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $inp <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2017	2111	
==>It is currently unsuitable for just about any use other than Pugs development.

An user-supplie <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19099	19190	
==>F0,F1,B0,B1,E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(R <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4958	5055	
==>E ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4958	5055	
==>E ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21622	21713	
==>atabase Independence".  However, the level of DBI's provided independence
is I<Database Driv <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21622	21713	
==>atabase Independence".  However, the level of DBI's provided independence
is I<Database Driv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3391	3501	
==>restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3391	3501	
==>restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3391	3501	
==>restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
v <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	907	1017	
==>c doesn't spot that the include file was changed,
    #      so we need to mark as stale some obj files to trig <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	604	702	
==>d up, and p6 added.  It's basically three days old,
and only now is changing from an experimental " <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2476	2571	
==>ismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2476	2571	
==>ismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2556	2651	
==>ismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	161	280	
==>no warnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    clo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3339	3450	
==>lass($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3339	3450	
==>lass($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3339	3450	
==>lass($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1626	1733	
==>)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1626	1733	
==>)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1626	1733	
==>)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= N <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1422	1568	
==>s ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1422	1568	
==>s ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	2347	2459	
==>args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{pre <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4607	4719	
==>args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{pre <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2479	2653	
==>t_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^h <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2479	2653	
==>t_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^h <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1150	1257	
==>{
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1150	1249	
==>{
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
sub <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13138	13234	
==>metimes a test is broken because something is not implemented yet. So
in order to still allow tha <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2173	2269	
==>um and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< iden <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13196	13292	
==>metimes a test is broken because something is not implemented yet. So
in order to still allow tha <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2173	2269	
==>um and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< iden <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2879	3101	
==>=> 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have them.
    $se <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28873	28993	
==>lcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28873	28993	
==>lcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be in <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	240	348	
==>lcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be in <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11047	11149	
==>*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { ret <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11047	11149	
==>*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3378	3480	
==>ance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3378	3480	
==>ance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3378	3480	
==>ance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4095	4239	
==>'¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => ' <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4095	4239	
==>'¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => ' <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3456	3554	
==>can create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3456	3554	
==>can create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20209	20305	
==>rom the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19168	19264	
==>rom the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20209	20305	
==>rom the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19168	19264	
==>rom the server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9671	9807	
==>dd_handler('$' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \$ }xgc) {
      my $n = '$$';
      return $S->$n;
    }

    if ($S- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7006	7123	
==>t}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7006	7123	
==>t}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7006	7123	
==>t}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cou <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12832	12930	
==>f8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

Th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12832	12930	
==>f8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

Th <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3216	3323	
==>e umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3216	3323	
==>e umode _ ircname> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3797	3900	
==>e umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3797	3900	
==>e umode _ ircname> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curn <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8574	8757	
==>EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_ex <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8574	8757	
==>EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_ex <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5112	5213	
==>Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $dec <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5112	5213	
==>Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $dec <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1078	1242	
==>y of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3643	3767	
==>umfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    els <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3643	3767	
==>umfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    els <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3643	3767	
==>umfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    els <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1095	1199	
==>cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1095	1199	
==>cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $sp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1095	1199	
==>cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $sp <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	327	426	
==>ass");
 $class.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5031	5191	
==>) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5031	5191	
==>) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value wa <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5031	5191	
==>) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value wa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	499	643	
==>(-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    re <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	251	394	
==>$iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = append_last($x,$str,$iter);
        return $str;
      }else{
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19272	19399	
==>f ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19272	19399	
==>f ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19272	19399	
==>f ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arra <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	14223	14339	
==>int_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17700	17816	
==>int_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuple <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17116	17232	
==>int_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuple <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7948	8092	
==><\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13542	13686	
==><\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7948	8092	
==><\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13536	13680	
==><\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character class 
	   if ( $prefix eq '-' ) {
	       $cmd = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2702	2811	
==>hes;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2702	2811	
==>hes;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2782	2891	
==>hes;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use T <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2251	2358	
==>ulti method as (--> Named) { $.name => self }
    }

    class Getopt::Argument::Style::Clustered is Getopt: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48976	49201	
==>:' => 'opaque'),
                              symbol->new('?$version' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2818	2914	
==>ce_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2818	2914	
==>ce_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2818	2914	
==>ce_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14922	15024	
==>POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9122	9224	
==>POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1771	1863	
==>del::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document descri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1771	1863	
==>del::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document descri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8732	8922	
==>l->{type} eq 'todo') {
                if ($detail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                else {
                    $todos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5806	5914	
==>, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5806	5914	
==>, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5806	5914	
==>, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/( <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5415	5540	
==>'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'packag <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1555	1664	
==>er = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if define <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1555	1664	
==>er = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1635	1744	
==>er = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if define <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1094	1190	
==>m($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1152	1248	
==>m($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17015	17128	
==>ueue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(St <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17015	17128	
==>ueue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(St <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	305	405	
==>mits;
my @commits;
my @developers;
my %devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of " <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2266	2411	
==>) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3690	3801	
==>cleanup\n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$op <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	9	106	
==>erl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	9	106	
==>erl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	115	238	
==>r;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my($k <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7301	7394	
==>ls::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7301	7394	
==>ls::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7301	7394	
==>ls::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $ma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12445	12540	
==>ew Document object's All Nodes
attribute starts out empty, but gains one element for each Node i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12445	12540	
==>ew Document object's All Nodes
attribute starts out empty, but gains one element for each Node i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22655	22745	
==>eption Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Cla <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22655	22745	
==>eption Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2861	2958	
==>rnals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2861	2958	
==>rnals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2861	2958	
==>rnals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1771	1862	
==>cif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Helpers::macif(%?CON <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5650	5764	
==>nt',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5650	5764	
==>nt',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', ' <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	965	1069	
==>o);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	965	1069	
==>o);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6702	6847	
==>=> $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6702	6847	
==>=> $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7029	7138	
==>see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5530	5639	
==>see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8458	8650	
==>prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            chomp;
            msg("Removing file '$_'", 1);
            -e $_ && system(qq[rm -rf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2213	2313	
==>TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2213	2313	
==>TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2213	2313	
==>TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22495	22605	
==>n($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23058	23168	
==>n($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18916	19026	
==>n($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19479	19589	
==>n($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17839	17971	
==>> is the test considered ok?
              actual_ok => did it literally say 'ok'?
              name      => name of the test (if an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7793	7896	
==>xt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7793	7896	
==>xt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRou <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7793	7896	
==>xt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRou <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5732	5855	
==>bsr_token_match2_1";
    goto token_match;
    bsr_token_match2_1:
    goto found_oper if $operator;          
  }

  expect <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1964	2074	
==>ED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1964	2074	
==>ED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1964	2074	
==>ED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC} <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5021	5213	
==>ts
            #of the test you're summarizing.
            my $details = {
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	773	871	
==>--------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submeth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	773	871	
==>--------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submeth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	773	871	
==>--------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submeth <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5625	5750	
==>ga"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5625	5750	
==>ga"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr( <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5997	6104	
==>tr)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A col <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5997	6104	
==>tr)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A col <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11614	11726	
==>fined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11614	11726	
==>fined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retur <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11614	11726	
==>fined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	168	268	
==>ment the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20527	20625	
==>||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20527	20625	
==>||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:< <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20527	20625	
==>||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:< <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19571	19683	
==>ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2638	2744	
==>turns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6115	6221	
==>turns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.siz <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5045	5151	
==>turns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.siz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7219	7341	
==>ew( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7219	7341	
==>ew( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7219	7341	
==>ew( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->ne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2048	2147	
==>rn quote(printable($node->struct_equiv));
	} else { die "don't know to make a literal out of $t" }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1503	1623	
==>teTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1503	1623	
==>teTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1503	1623	
==>teTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scro <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	457	559	
==>ACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass->isa('refere <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	962	1064	
==>nts that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definiti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	962	1064	
==>nts that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definiti <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1419	1518	
==>desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1477	1576	
==>desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, S <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12299	12402	
==>d );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your d <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12299	12402	
==>d );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7483	7581	
==>ete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7483	7581	
==>ete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3265	3366	
==>'-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3265	3366	
==>'-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3265	3366	
==>'-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1372	1472	
==>f->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1372	1472	
==>f->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	997	1087	
==>Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	997	1087	
==>Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10781	10891	
==>last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15340	15441	
==>{...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15340	15441	
==>{...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15340	15441	
==>{...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MUL <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7125	7254	
==>head[shift @rest];
  }
  $head;
}


# signature from S29draft.pod 8651.  In the List section.
multi Array::grep (@values ;      Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	948	1060	
==>gical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	948	1060	
==>gical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	948	1060	
==>gical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->nam <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5760	5866	
==>ntainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    se <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5760	5866	
==>ntainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    se <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25788	25881	
==>of Rosetta that you modify and distribute must carry prominent
notices stating that you change <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25788	25881	
==>of Rosetta that you modify and distribute must carry prominent
notices stating that you change <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1389	1534	
==>cal
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1377	1522	
==>cal
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" . <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21401	21498	
==>dvantage of
this is that, for example, your package could come with a set of user
messages, but an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21401	21498	
==>dvantage of
this is that, for example, your package could come with a set of user
messages, but an <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5099	5220	
==>e.
        }
    }
}

class Carp {
    # Please remember to update t/pugsrun/11-safemode.t if you change the fully
    # q <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36009	36107	
==>w relation is the union of the invocant and <$other> headings. 
The body of the new relation is the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40559	40656	
==>w relation is the union of the invocant and <$other> headings.
The body of the new relation is the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40173	40270	
==>w relation is the union of the invocant and <$other> headings.
The body of the new relation is the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2552	2695	
==>xp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2552	2695	
==>xp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2552	2695	
==>xp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15148	15334	
==>s method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15148	15334	
==>s method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15148	15334	
==>s method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	808	910	
==>il::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.ri <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1000	1102	
==>il::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.ri <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	808	910	
==>il::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.ri <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1000	1102	
==>il::Type {
    has Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.ri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	771	920	
==>f);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	771	920	
==>f);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	771	920	
==>f);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16364	16474	
==>s 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16364	16474	
==>s 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decre <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16364	16474	
==>s 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decre <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5832	5941	
==>n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5832	5941	
==>n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30962	31056	
==>istinguishes each module from others in
its set. For maximum flexibility in their use, the full <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30962	31056	
==>istinguishes each module from others in
its set. For maximum flexibility in their use, the full <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	770	889	
==>rt and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	770	889	
==>rt and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @sta <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	636	734	
==>r listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	636	734	
==>r listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=hea <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1052	1205	
==>q 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	931	1084	
==>q 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21266	21349	
==>ate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':as <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44173	44256	
==>ate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':as <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16386	16504	
==>:pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #E <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2296	2412	
==>\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2296	2412	
==>\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15450	15560	
==>:pos;
  my $cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #E <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3622	3718	
==>s instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3622	3718	
==>s instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5819	5915	
==>s instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1030	1122	
==>ckage Blondie::TypeSafe::Type::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25845	25942	
==>ble::free->new);
	is($type->stringify, "∀α. list α", "pretty print list a");
}
{
	my $a = type <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3513	3681	
==>\$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the out <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3513	3681	
==>\$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the out <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30970	31068	
==>shes each module from others in
its set. For maximum flexibility in their use, the full name of a m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30970	31068	
==>shes each module from others in
its set. For maximum flexibility in their use, the full name of a m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1895	2143	
==>rl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1895	2143	
==>rl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modi <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2795	2897	
==>,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2795	2897	
==>,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13707	13846	
==>n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9 <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13707	13846	
==>n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7232	7329	
==>words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundar <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7232	7329	
==>words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundar <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3843	3968	
==>rt} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9258	9369	
==>_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9258	9369	
==>_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9258	9369	
==>_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_nam <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	293	399	
==>use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19506	19606	
==>in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exis <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24058	24158	
==>in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exis <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25824	25908	
==>--------------------------------------------

listify(X,L) :- atom(X), atom_codes(X,L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31281	31485	
==>alue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31281	31485	
==>alue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31281	31485	
==>alue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	235	333	
==>aph::lines;
use Time::Piece;
use Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @develo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1524	1661	
==>ge eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28832	28927	
==>cate any other value set members.  This
method supports having the new attributes having the sam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33384	33479	
==>cate any other value set members.  This
method supports having the new attributes having the sam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32521	32616	
==>cate any other value set members.  This
method supports having the new attributes having the sam <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2067	2181	
==>pital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumfl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2067	2181	
==>pital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumfl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1823	1928	
==>od clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    ret <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1823	1928	
==>od clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3937	4053	
==>($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3937	4053	
==>($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{p <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4527	4643	
==>($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	244	351	
==>$klass->isa('opaque'))
        || confess "C3 only accepts classes";
    bless { class  => $klass } => $clas <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8998	9105	
==>l int min, max, islazy
    .local int pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	742	846	
==>a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	742	846	
==>a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	742	846	
==>a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12043	12160	
==>l6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12043	12160	
==>l6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12043	12160	
==>l6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1659	1783	
==>ed'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Fail')->new(
                '$.description' => $params{' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16732	16853	
==>$self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18158	18279	
==>$self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  su <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24777	24898	
==>$self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  su <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1301	1404	
==>nfess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) {
        $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12788	12872	
==>X::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12788	12872	
==>X::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12788	12872	
==>X::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4392	4499	
==>e = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4392	4499	
==>e = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4392	4499	
==>e = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1 <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	771	865	
==>elf->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
su <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	122	216	
==>head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend::Per <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	118	211	
==>-----------------------------------
## now for some bootstrapping ....

## See http://article. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	118	211	
==>-----------------------------------
## now for some bootstrapping ....

## See http://article. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	118	211	
==>-----------------------------------
## now for some bootstrapping ....

## See http://article. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4906	5010	
==>ix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4906	5010	
==>ix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->para <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4906	5010	
==>ix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->para <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5073	5172	
==>';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__object_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3041	3187	
==>>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3041	3187	
==>>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3041	3187	
==>>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6290	6419	
==>ie "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6290	6419	
==>ie "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6290	6419	
==>ie "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16668	16776	
==>hat need to be typed

# this is a function that expects an int and will emit an int
# add (int -> int -> int) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3477	3578	
==>, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3477	3578	
==>, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3477	3578	
==>, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subn <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	270	368	
==>sors(qw/runtime cache env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondi <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	15578	15677	
==>ing if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15578	15677	
==>ing if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	468	565	
==>ini HowTo: How to port Perl 5 modules to Perl 6:
#      http://perlmonks.org/index.pl?node_id=4424 <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2104	2197	
==>-supplied regular expression may lead to execution of arbitrary code;
each alternate engine ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5444	5604	
==>bstitution => $/{'Pugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1673	1780	
==>(@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_rep <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1673	1780	
==>(@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_rep <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1673	1780	
==>(@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_rep <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50462	50590	
==>add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new(
            $::ENV, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	32	146	
==>::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Prelude;

sub new {
    my $class = sh <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12619	12715	
==>second, or holidays per month.

It is also used when the objects represent "chunks" of data, such <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12619	12715	
==>second, or holidays per month.

It is also used when the objects represent "chunks" of data, such <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36856	36956	
==>tes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41405	41505	
==>tes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41028	41128	
==>tes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2840	2929	
==>riable>:=(<variable>)<?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5967	6061	
==>f = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5967	6061	
==>f = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Va <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5967	6061	
==>f = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Va <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5576	5839	
==>dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    system( qq[ $^X $postinst ] )               and die $?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	461	554	
==>ng a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	461	554	
==>ng a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	461	554	
==>ng a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10102	10239	
==>ming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        f <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10102	10239	
==>ming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        f <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5484	5597	
==>rn a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5309	5419	
==>rn a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1231	1327	
==>rs to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1231	1327	
==>rs to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACK <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1231	1327	
==>rs to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACK <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6561	6646	
==>does Role

## ------------------------------------------------------------------------ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13210	13324	
==>entExpression>
}
rule PropertyName :words {  # see 11.1.5
      <Identifier>
    | <StringLiteral>
    | <NumericLi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1741	1849	
==>);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1741	1849	
==>);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1741	1849	
==>);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1687	1884	
==>n
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1687	1884	
==>n
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1687	1884	
==>n
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17297	17396	
==>m and returns a function that takes any param
# that function will return a pair with the first para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13146	13254	
==>ub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13146	13254	
==>ub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13146	13254	
==>ub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16581	16670	
==>) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30082	30175	
==>ial cases are where C<$attrs> is either empty or equal to
the invocant Relation::Example's hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4077	4169	
==>ntainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4077	4169	
==>ntainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4077	4169	
==>ntainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1236	1348	
==>dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #prin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	447	558	
==>dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    prin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12166	12262	
==>t_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> do <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12166	12262	
==>t_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> do <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8130	8274	
==>cant );
    }
    else {
        dbg "# -- unknown node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	390	494	
==>, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	390	494	
==>, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	390	494	
==>, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12852	13005	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12852	13005	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12852	13005	
==>$class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Met <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	412	514	
==>r::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Pe <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	412	514	
==>r::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21294	21389	
==>n")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21294	21389	
==>n")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sen <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1794	1955	
==>.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_o <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2206	2367	
==>.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1794	1955	
==>.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_o <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2206	2367	
==>.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2874	2982	
==>\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2874	2982	
==>\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2874	2982	
==>\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	55	153	
==>e Params::Check   qw[check];

use JIB::Constants;
use JIB::Config;

use base 'Object::Accessor';

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3395	3492	
==>st) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3395	3492	
==>st) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3395	3492	
==>st) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8129	8273	
==>r ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8129	8273	
==>r ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10898	10993	
==>erse` must be set if this recurrence is a "universal set".
Otherwise the program will emit warni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10898	10993	
==>erse` must be set if this recurrence is a "universal set".
Otherwise the program will emit warni <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8878	8978	
==>}

    $S->warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7017	7180	
==>a( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7017	7180	
==>a( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7017	7180	
==>a( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Per <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1324	1484	
==>{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1596	1727	
==>match_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4431	4537	
==>es it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4431	4537	
==>es it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4431	4537	
==>es it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_f <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1633	1731	
==>oked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1633	1731	
==>oked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34986	35081	
==>nceptually change an existing Translator object, you must create a new
object that is a clone of <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34986	35081	
==>nceptually change an existing Translator object, you must create a new
object that is a clone of <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5848	5994	
==>ess ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9835	9949	
==>XX - code\n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{ <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	157	266	
==>{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]";

# Hash Referenz:
say " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1785	1889	
==>}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Builtins - 

=head1 SYNOPSIS

	use Blon <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2607	2712	
==>PYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2607	2712	
==>PYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1818	1919	
==>PYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3679	3780	
==>PYRIGHT

Copyright 2006 by Nathan Gray.

This program is free software; you can redistribute it and/or <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1942	2156	
==>.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method st <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1942	2156	
==>.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method st <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	804	929	
==>s;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_ <==
4	/Users/nnunley/pugs/util/config_h.pl	1288	1395	
==>Monad m) => m ()
main = $([| return () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
els <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1494	1615	
==>ompile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16254	16359	
==>p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16254	16359	
==>p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB f <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16254	16359	
==>p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB f <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12879	13003	
==>,
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This metho <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12879	13003	
==>,
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This metho <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11645	11754	
==>$str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11639	11748	
==>$str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2254	2376	
==>lse {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2254	2376	
==>lse {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2254	2376	
==>lse {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $out <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15600	15710	
==>e"] = cname
    pos = $I0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10371	10476	
==>nless $_[0] =~ /->/;
    return "$_[1] negate( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $lite <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4693	4793	
==>ode,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4693	4793	
==>ode,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely sp <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4693	4793	
==>ode,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13658	13826	
==>l6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # giv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13658	13826	
==>l6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # giv <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13658	13826	
==>l6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # giv <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	2683	2795	
==>ub emit {
    my($self) = @_;
    $self->{_timing}{end} = time;
    $self->{_timing}{duration} =
        $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20045	20135	
==>_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20045	20135	
==>_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20045	20135	
==>_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10955	11061	
==>def;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10955	11061	
==>def;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10955	11061	
==>def;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9045	9140	
==>TailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1394	1513	
==>($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = sp <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1970	2089	
==>($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = sp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	122	226	
==>a::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18140	18238	
==>iously to return the compiled regexp, to give input to a search,
and to get back match results.

Ou <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	45	154	
==>ug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set:: <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	45	154	
==>ug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set:: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13867	13960	
==>b { $as_array_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_array_comp <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15210	15360	
==>_gz and -M $iso <= -M "$cdroot/boot/grub/menu.lst" },
  using  => sub {
    system
      "mkisofs",
      "-R",                                # Genera <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	363	466	
==>ern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurpy magic doesn't work too well presently . <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7059	7191	
==>}
  }

  sub visual {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->visual;
    }
    else {
      join "", <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20197	20306	
==>"p6analyze" :method
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2490	2584	
==>odes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes tha <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2490	2584	
==>odes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes tha <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	257	358	
==>Piece;
use Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @developers;
my %devs_seen;

pri <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4751	4851	
==>pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4751	4851	
==>pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6275	6375	
==>pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	255	355	
==>ecking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatibl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	255	355	
==>ecking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatibl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	255	355	
==>ecking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatibl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	776	873	
==>0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	776	873	
==>0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extract <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3360	3453	
==>pec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3360	3453	
==>pec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4589	4686	
==>t = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("htt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4589	4686	
==>t = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("htt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	944	1041	
==>:AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, em <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	897	991	
==>:AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23803	23956	
==>urn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23803	23956	
==>urn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23803	23956	
==>urn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$. <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	101	199	
==>nes Objektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10973	11068	
==>nds) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11031	11126	
==>nds) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14091	14200	
==>); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14091	14200	
==>); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14091	14200	
==>); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	53	152	
==>ings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings like: <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18556	18664	
==>ce [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1378	1481	
==>$ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1378	1481	
==>$ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1378	1481	
==>$ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infin <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2116	2226	
==>("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2116	2226	
==>("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19267	19363	
==>.connected>

Returns a true value if the bot's socket to the server is currently connected.

Note <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19267	19363	
==>.connected>

Returns a true value if the bot's socket to the server is currently connected.

Note <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8453	8553	
==>in::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUG <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8453	8553	
==>in::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUG <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8453	8553	
==>in::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUG <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	667	763	
==>->isa('closure::signature')))
        || confess "signature must be an closure::params or closure <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19296	19455	
==>subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Length is nparens+1. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6309	6412	
==>nstance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6309	6412	
==>nstance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6309	6412	
==>nstance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_ins <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1696	1813	
==>mp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    . <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1696	1813	
==>mp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1158	1303	
==>ibutes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1158	1303	
==>ibutes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an obj <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1158	1303	
==>ibutes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an obj <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5268	5403	
==>::Util 'blessed';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $cl <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	568	692	
==>is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $ms <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	568	692	
==>is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $ms <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6778	6901	
==>ue::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - retur <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6778	6901	
==>ue::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - retur <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	657	757	
==>Input($input) is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	985	1080	
==>em B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leadi <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	985	1080	
==>em B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leadi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1541	1636	
==>em B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leadi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16814	16922	
==>n undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16814	16922	
==>n undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16814	16922	
==>n undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4886	4988	
==>oo refs to metaclass');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6877	6981	
==>p { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1234	1336	
==>p { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	336	435	
==>p { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10384	10478	
==>%:methods.keys;
}

(method get_method_list ((opaque $self:)) returns list
    ((($self: get_att <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	167	286	
==>Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	161	280	
==>Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	167	286	
==>Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	161	280	
==>Regex';

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    $p <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6025	6167	
==>.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.c <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6025	6167	
==>.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13314	13417	
==><!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $sour <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13314	13417	
==><!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $sour <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10828	10976	
==>= undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_logi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10828	10976	
==>= undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_logi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7551	7677	
==>eturn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7551	7677	
==>eturn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1887	2072	
==>/= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.csta <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1887	2072	
==>/= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.csta <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	9987	10082	
==>export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9987	10082	
==>export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10806	10921	
==>lcome_p6           => "$initrd_mnt/welcome.p6"],
  );
  step
    descr  => "Copying Pugs, Parrot, Bash, inputrc, the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4417	4516	
==>$self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4417	4516	
==>$self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4417	4516	
==>$self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4963	5062	
==>rns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4963	5062	
==>rns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24247	24339	
==>right (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24247	24339	
==>right (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, a <==
4	/Users/nnunley/pugs/util/package-osx.pl	11025	11172	
==>ne|history\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            print <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	466	569	
==>etaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	466	569	
==>etaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	466	569	
==>etaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2129	2248	
==>) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runti <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2189	2308	
==>) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runti <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3487	3601	
==>.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3487	3601	
==>.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4807	4917	
==>ent, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module f <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4807	4917	
==>ent, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16651	16760	
==>return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13072	13181	
==>return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	60	165	
==>.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	60	165	
==>.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	60	165	
==>.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::R <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3056	3205	
==>keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25046	25141	
==>returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29598	29693	
==>returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relatio <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28510	28605	
==>returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relatio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5419	5512	
==>src=...>". Of course, this feature is not available
when linking to a standalone JavaScript fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5419	5512	
==>src=...>". Of course, this feature is not available
when linking to a standalone JavaScript fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5419	5512	
==>src=...>". Of course, this feature is not available
when linking to a standalone JavaScript fi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35022	35124	
==>ator object, you must create a new
object that is a clone of the first but for the changes.

=back

A T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35022	35124	
==>ator object, you must create a new
object that is a clone of the first but for the changes.

=back

A T <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3365	3455	
==>TP::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3365	3455	
==>TP::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query> <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29567	29663	
==>f any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34119	34215	
==>f any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33283	33379	
==>f any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30992	31087	
==>mple has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the k <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6491	6590	
==>*infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<* <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6491	6590	
==>*infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<* <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7363	7460	
==>*infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<* <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7363	7460	
==>*infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<* <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1169	1296	
==>er => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handlin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1169	1296	
==>er => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5530	5691	
==>rt + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5530	5691	
==>rt + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5530	5691	
==>rt + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9365	9474	
==>rect stderr to stdout
#   args     => [ command-line arguments to the perl program ]
#   verbose  => print the <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	638	736	
==>enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL an <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	638	736	
==>enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3506	3605	
==>name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3506	3605	
==>name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cla <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3506	3605	
==>name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @cla <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11815	11928	
==>s if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8962	9075	
==>s if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11815	11928	
==>s if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8962	9075	
==>s if
they're not in the set.

Returns the number of items removed.

=head2 C<$set.clear()>

Clears the set.

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2086	2202	
==>verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    prin <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	400	516	
==>verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    prin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2086	2202	
==>verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    prin <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2086	2202	
==>verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n";
    prin <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25085	25220	
==>5.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'>
    | <'{'> <DecimalDigi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	606	717	
==>] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	606	717	
==>] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	606	717	
==>] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PI <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2165	2268	
==>ix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2165	2268	
==>ix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2165	2268	
==>ix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	13228	13325	
==>ameter (as allocated in the new env), and the type of the body
fun: type($$) = {
	type::operator:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3012	3111	
==>HO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3012	3111	
==>HO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3605	3702	
==>HO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3605	3702	
==>HO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22517	22622	
==>o the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21371	21476	
==>o the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22517	22622	
==>o the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21371	21476	
==>o the server by sending a C</QUIT> command. Note that the
socket usually stays connected for a few seconds <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6086	6190	
==>rogram needs Linux to run correctly.",
  ensure => sub { $^O eq "linux" };

step
  descr  => "Fetching GR <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1867	1974	
==>ndef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2084	2191	
==>ndef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2564	2671	
==>al.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2564	2671	
==>al.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2564	2671	
==>al.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	698	787	
==>PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::Undefined is JSX:: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10630	10733	
==>record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10630	10733	
==>record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	548	646	
==>idator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export sym <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	548	646	
==>idator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export sym <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5280	5412	
==>\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6548	6680	
==>\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5280	5412	
==>\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6536	6668	
==>\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - source <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2237	2362	
==>xp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2784	2909	
==>xp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3331	3456	
==>xp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31747	31897	
==>e->get('$counter'));
                    $e->set('$counter' => $e->get('$counter')->increment);                        
                    return $e-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	260	372	
==>TCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	260	372	
==>TCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	260	372	
==>TCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norm <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	67	177	
==>all::Base;
use Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug and will be fixed.
u <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4285	4459	
==>0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "not implemented" } 
            }
        ) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5937	6108	
==>h[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5937	6108	
==>h[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5937	6108	
==>h[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = m <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15000	15135	
==>day == 1
    has Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # var <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	284	381	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	284	381	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	284	381	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2J <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3486	3608	
==>e[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10024	10115	
==>l the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10024	10115	
==>l the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	705	796	
==>UILD_OPTS
environment variable.

Current settings:
.
    print PugsBuild::Config->pretty_pri <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	521	627	
==>mat.
INFO

# Read the logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2449	2554	
==>hould be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TAILCALL" "GOTO"?  So you c <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23581	23686	
==>e"}} })'
}
sub p6_loop_CODE {
    my($body)=@_;
    # the caller is responsible for providing any value ca <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2082	2180	
==>ward_zero (Num $x) {
	return(int $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	return <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5019	5164	
==>e, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    sa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14659	14777	
==>ss1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14659	14777	
==>ss1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14659	14777	
==>ss1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9789	9910	
==>m_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

met <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9789	9910	
==>m_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

met <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	851	950	
==>e binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	851	950	
==>e binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	763	863	
==>s doable".  So yes, the code is
an utter mess.

The project objectives are nominally:
  1- Provide an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3521	3619	
==>splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3521	3619	
==>splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3521	3619	
==>splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/l <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11926	12029	
==>pan = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13318	13421	
==>pan = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11926	12029	
==>pan = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13318	13421	
==>pan = Span.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3261	3592	
==>request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($p <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3261	3592	
==>request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36349	36444	
==>ally by translate_message() to produce the list of Template module
names that it will search.

= <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36349	36444	
==>ally by translate_message() to produce the list of Template module
names that it will search.

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20096	20228	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20096	20228	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20096	20228	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	4671	4777	
==>th Test's &fail.
    sub __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Internals <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9978	10103	
==>] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7918	8043	
==>] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9978	10103	
==>] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7918	8043	
==>] *# [1,2,6])    # 1 2      (in no particular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4941	5051	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



= <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4941	5051	
==>x[1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



= <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	526	619	
==>ransformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	526	619	
==>ransformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5308	5394	
==>ule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my($name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6243	6325	
==>ethod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6243	6325	
==>ethod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6243	6325	
==>ethod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12684	12784	
==>) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12684	12784	
==>) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the value <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1008	1107	
==>ng simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; mes <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1008	1107	
==>ng simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; mes <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	770	884	
==>rrent_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trun <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	770	884	
==>rrent_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trun <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8934	9038	
==>ubstr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\0[0]") if $cc;
    return $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15420	15518	
==>d by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15420	15518	
==>d by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	143	240	
==>lect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is ex <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	143	240	
==>lect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4464	4580	
==>we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4464	4580	
==>we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4464	4580	
==>we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	185	297	
==>if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	185	297	
==>if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	185	297	
==>if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3a <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	5421	5525	
==>placeholder
# when going into an AST these are generated
# as the AST is left they are unified
# a free v <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	41	147	
==>::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
}



__PAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23377	23478	
==>_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23377	23478	
==>_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23377	23478	
==>_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	0	98	
==>package Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	0	98	
==>package Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	0	98	
==>package Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSI <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2376	2474	
==>op this program at any time, it'll continue when you run it again.

Note: This program should be ru <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18005	18125	
==>90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17043	17163	
==>90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18005	18125	
==>90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17043	17163	
==>90,           # (optional, defaults to 90)
    live_timeout => 120,      # (optional, defaults to 120)
    floodcontrol = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11717	11885	
==>Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11717	11885	
==>Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11717	11885	
==>Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'c <==
4	/Users/nnunley/pugs/util/package-osx.pl	9619	9746	
==>rep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1538	1643	
==>put[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1538	1643	
==>put[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1538	1643	
==>put[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	894	1017	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	894	1017	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	894	1017	
==>}

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appro <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	789	883	
==>se Blondie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->co <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	604	855	
==>s packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	604	855	
==>s packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13341	13443	
==>{time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13341	13443	
==>{time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11664	11779	
==>d";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11664	11779	
==>d";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11664	11779	
==>d";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3457	3546	
==>er::Rule> module must be properly installed.

An improperly installed C<Pugs::Compiler::Ru <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16786	16907	
==>e.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CA <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9123	9226	
==>};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion arise? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	350	445	
==>Name = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableN <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	350	445	
==>Name = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableN <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1035	1138	
==>ive . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core str type

=head1 MET <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11081	11175	
==>----------------

What if Roles could provide their own BUILD submethods? This would 
mean that <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11081	11175	
==>----------------

What if Roles could provide their own BUILD submethods? This would 
mean that <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11081	11175	
==>----------------

What if Roles could provide their own BUILD submethods? This would 
mean that <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1218	1333	
==>sed on the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1567	1678	
==>sed on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    m <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1174	1285	
==>sed on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1567	1678	
==>sed on the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1234	1344	
==>t_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1234	1344	
==>t_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1234	1344	
==>t_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19365	19456	
==>g F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Character classes weren't clos <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3121	3241	
==>ym('&func'), # Sym is reduced to the Thunk mapped from '&func' in
                   # the env, which is then given to th <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	752	855	
==>');
}
 
sub SessionDecode($data) {
    for(split('&',$data)) {
        my($variable,$value) = split('=', <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8332	8421	
==>ements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2157	2246	
==>ements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6012	6126	
==>{
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6792	6906	
==>{
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6012	6126	
==>{
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6792	6906	
==>{
        $!chans.remove(normalize $event<object>);
        for %!channels{$chan}<users>.keys {
          %!users{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	955	1057	
==>ispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	955	1057	
==>ispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	955	1057	
==>ispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c-> <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14070	14160	
==>ric_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic($.param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3569	3678	
==>LKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3569	3678	
==>LKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3569	3678	
==>LKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	878	974	
==>).";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();\n";
    p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12575	12734	
==>h')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $pat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12575	12734	
==>h')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $pat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7426	7579	
==>ncat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7619	7772	
==>ncat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7021	7165	
==>@args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7021	7165	
==>@args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ar <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7021	7165	
==>@args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@ar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5554	5674	
==>>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sg <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6822	6942	
==>>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5554	5674	
==>>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sg <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6810	6930	
==>>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sg <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4537	4645	
==>,
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4537	4645	
==>,
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7552	7644	
==>plements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7552	7644	
==>plements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14127	14223	
==>for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14127	14223	
==>for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14127	14223	
==>for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2045	2149	
==>oes a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2045	2149	
==>oes a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2045	2149	
==>oes a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18892	18986	
==>mentation is pending.>

=head1 DESCRIPTION

This class implements a Relation data type that cor <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26802	26943	
==>pplication;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27081	27222	
==>pplication;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3368	3466	
==>d;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 9 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3368	3466	
==>d;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 9 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7160	7302	
==>'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7160	7302	
==>'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7160	7302	
==>'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1519	1620	
==>opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc} = 'left' unless defined $opt->{assoc} <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1463	1597	
==>the others get added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3346	3462	
==>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3346	3462	
==>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - u <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3346	3462	
==>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9035	9144	
==>r' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9035	9144	
==>r' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9035	9144	
==>r' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11903	12004	
==>tructor... fun() instead of fun->new()
	(my $class) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18346	18549	
==>ess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18346	18549	
==>ess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18346	18549	
==>ess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pack <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2951	3074	
==>t.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<st <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2951	3074	
==>t.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<st <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2927	3021	
==><$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP ad <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2927	3021	
==><$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP ad <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5675	5797	
==>b ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5675	5797	
==>b ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19116	19226	
==>}

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15537	15647	
==>}

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	855	960	
==>s.

=cut

use strict;
use warnings;
#use Smart::Comments; #for debugging, look also at Filtered-Comm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16888	16978	
==>ernals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16888	16978	
==>ernals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SU <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16888	16978	
==>ernals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SU <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3248	3375	
==>6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3248	3375	
==>6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3248	3375	
==>6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14692	14801	
==>ndef"); [] },
      numeric     => sub { $as_hash_complain->("numeric") },
      non_numeric => sub { $as_hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6205	6308	
==>(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6205	6308	
==>(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6205	6308	
==>(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].co <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1486	1582	
==>und_half_alternate },
#		{ $^a.round_half_random },

		{ $^a.round_half_ceiling },
		{ $^a.round_ <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	54	148	
==>pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	54	148	
==>pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false <==
4	/Users/nnunley/pugs/util/testgraph.pl	1458	1565	
==>}
    
    package My::File;
    use base qw/Test::TAP::Model::File::Visual/;
    sub subtest_class { "My::S <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3613	3787	
==>key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk_accessors( $acc );
            
            ### set to a s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	288	398	
==>g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2697	2861	
==>, ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                map { "$_" } @{$<rule>},
            )) . "\n"
    }))->code <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3822	3921	
==>e as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3822	3921	
==>e as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3822	3921	
==>e as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1606	1724	
==>ile-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1813	1931	
==>ile-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3020	3143	
==>larity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3020	3143	
==>larity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3020	3143	
==>larity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12916	13014	
==>ethod Hash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or C <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6177	6319	
==>il => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6177	6319	
==>il => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7350	7451	
==>on' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7350	7451	
==>on' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4067	4194	
==>ed as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4079	4206	
==>ed as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical va <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4211	4308	
==>ometimes also 
parameters for block size and so on; see the cipher module's documentation for 
det <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4211	4308	
==>ometimes also 
parameters for block size and so on; see the cipher module's documentation for 
det <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6878	6994	
==>e() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6878	6994	
==>e() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undef <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6878	6994	
==>e() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undef <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1794	1878	
==>'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harne <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	278	380	
==>::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	278	380	
==>::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	278	380	
==>::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37330	37423	
==>ke
C<union> except that the returned Relation::Example contains only tuples that are in
all of <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	247	371	
==>binators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Pars <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	247	371	
==>binators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Pars <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3768	3871	
==>duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($ <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1868	1971	
==>duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1068	1171	
==>() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1068	1171	
==>() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1068	1171	
==>() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13743	13858	
==>2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 ) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13743	13858	
==>2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 ) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16931	17027	
==>ly do a lot
internally; it exists mainly to document a certain localization methodology
in an eas <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16931	17027	
==>ly do a lot
internally; it exists mainly to document a certain localization methodology
in an eas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	32	139	
==>005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	32	139	
==>005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	32	139	
==>005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1701	1807	
==>0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1701	1807	
==>0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1701	1807	
==>0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8721	8820	
==>d of regex() to set the regex and create
the tree in one step:

  my $ok = $parser->parse($new_regex <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13412	13566	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13691	13845	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::an <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6201	6347	
==>int";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6714	6860	
==>int";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref( <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	238	339	
==>t_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	238	339	
==>t_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $c <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	294	394	
==>t_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $c <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	294	394	
==>t_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $c <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2661	2765	
==>urns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least unt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2661	2765	
==>urns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least unt <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3043	3144	
==>@intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3043	3144	
==>@intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3622	3731	
==>->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3622	3731	
==>->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3622	3731	
==>->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18584	18706	
==>f the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18584	18706	
==>f the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18584	18706	
==>f the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22268	22379	
==>turns num 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('id') <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13063	13183	
==>ed => ($tres->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	868	973	
==>hat were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descend <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	868	973	
==>hat were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descend <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	868	973	
==>hat were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descend <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	130	232	
==>s Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: : <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	130	232	
==>s Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: : <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16585	16686	
==>uch header field, then the empty
string is returned.  This makes it safe to do the following:

  if $h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16585	16686	
==>uch header field, then the empty
string is returned.  This makes it safe to do the following:

  if $h <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4299	4412	
==>, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.cl <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4299	4412	
==>, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.cl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6067	6161	
==>time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6067	6161	
==>time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19652	19747	
==>elf with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basi <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10235	10330	
==>head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Insert <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10235	10330	
==>head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Insert <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19652	19747	
==>elf with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1970	2073	
==>base 'Blondie::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    packag <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	983	1080	
==>d C<Type>.  Perhaps this module should be called
something else like C<t>, or maybe they are one a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2784	2890	
==>bled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2784	2890	
==>bled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2784	2890	
==>bled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21990	22091	
==>pos(print)     ,C) :- !,    isPrint(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1686	1831	
==>sub new {
        my $class = shift;
        my %hash  = @_;
        
        ### might get params for underlying classes
        local $Params::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1230	1329	
==>8-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1230	1329	
==>8-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqr <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1230	1329	
==>8-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	376	477	
==>:Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	376	477	
==>:Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of M <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	376	477	
==>:Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of M <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13178	13276	
==>, so we'll brute force launder everything for you
	my $sep;

	eval "require Config; Config->import" <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1326	1465	
==>}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $esca <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1326	1465	
==>}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $esca <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9138	9244	
==>sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use th <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9138	9244	
==>sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use th <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20153	20275	
==>n;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16574	16696	
==>n;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19163	19260	
==>posed by Edgar. F. Codd, upon which anything in the world can
be modelled.

A relation is essentia <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8588	8713	
==>t

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8588	8713	
==>t

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11227	11338	
==>so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11227	11338	
==>so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11862	11996	
==>erver, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11862	11996	
==>erver, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      re <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	192	296	
==>Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and th <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	192	296	
==>Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3580	3675	
==>{ "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3580	3675	
==>{ "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3580	3675	
==>{ "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13122	13236	
==>olspan="11" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5273	5384	
==>\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5273	5384	
==>\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5273	5384	
==>\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9847	9943	
==>inite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::I <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9847	9943	
==>inite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::I <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	785	879	
==>M> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	785	879	
==>M> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	447	558	
==>m_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Per <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	447	558	
==>m_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Per <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	58	157	
==>PTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	58	157	
==>PTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9622	9725	
==>ill traverse the entire parse tree,
to any depth.  To restrict the depth to which it reaches, pass walke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1626	1720	
==>arName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1626	1720	
==>arName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1626	1720	
==>arName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2242	2371	
==>stant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2242	2371	
==>stant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2242	2371	
==>stant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0 <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15236	15381	
==>*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $test->{type}   = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2327	2434	
==>eturn;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1859	1963	
==>CH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1859	1963	
==>CH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1859	1963	
==>CH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	218	340	
==>ort => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	222	344	
==>ort => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	218	340	
==>ort => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	222	344	
==>ort => $port);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7604	7692	
==>--------------------------------------------------------------------------

## NOTE:
## w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7604	7692	
==>--------------------------------------------------------------------------

## NOTE:
## w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7604	7692	
==>--------------------------------------------------------------------------

## NOTE:
## w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6971	7112	
==>leop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6738	6874	
==>leop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match- <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23009	23097	
==>l, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23009	23097	
==>l, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23682	23790	
==>ses;
}

(method superclasses ((opaque $self) (list ?@superclasses)) returns list 
    ((?@superclasses is_nil <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20213	20309	
==>eDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12.2
      <VariableDeclarationN <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1978	2127	
==>class'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2183	2332	
==>class'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2246	2395	
==>class'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attr <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	326	422	
==>ds ) returns Duration::Gregorian is export {
    duration(:second($seconds));
}

multi sub durati <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16792	16899	
==>ing val(10) into int -> int
# x is inferred to be int
my $plus_ten = fun(
	param => "x",
	body => comb(
		fu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18810	18915	
==>package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18810	18915	
==>package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	927	1024	
==>corresponding tests

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8277	8374	
==>) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7407	7504	
==>) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8277	8374	
==>) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7407	7504	
==>) returns Array { set(@a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4558	4654	
==>>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n))) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4558	4654	
==>>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n))) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4558	4654	
==>>as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n))) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6094	6217	
==>g: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6094	6217	
==>g: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6094	6217	
==>g: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11731	11827	
==>methods above, for when one wishs to take
advantage of the internal caching of keys that is expec <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7518	7645	
==>e1, $file2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8142	8266	
==>lt container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8142	8266	
==>lt container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub und <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8142	8266	
==>lt container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub und <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	438	546	
==>Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($direc <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	438	546	
==>Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($direc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9095	9185	
==>l6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @state <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2920	3010	
==>l6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @state <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	17721	17830	
==>= $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17721	17830	
==>= $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19000	19092	
==>gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19000	19092	
==>gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4023	4113	
==>pt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4023	4113	
==>pt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5613	5734	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6166	6287	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5806	5927	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6359	6480	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	913	1020	
==>= shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	913	1020	
==>= shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33935	34048	
==>} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_laz <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33935	34048	
==>} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_laz <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33935	34048	
==>} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_laz <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3927	4036	
==>(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15455	15547	
==>ete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by Ch <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15455	15547	
==>ete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by Ch <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6598	6713	
==>_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'U <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6598	6713	
==>_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'U <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8395	8499	
==>thod.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5935	6035	
==>thod.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4355	4466	
==>eys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4355	4466	
==>eys. Then, we delete all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4864	4973	
==>eys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4864	4973	
==>eys. Then, we delete all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7249	7450	
==>, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8591	8720	
==>no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4951	5080	
==>no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5800	5929	
==>no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there i <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6857	6942	
==>new(filename => 'util/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@unre <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3499	3608	
==>Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5532	5629	
==>ain_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5532	5629	
==>ain_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5532	5629	
==>ain_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->na <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2180	2291	
==>t;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { loc <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2180	2291	
==>t;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { loc <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1854	1952	
==>aned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBA <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1854	1952	
==>aned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13265	13436	
==>arams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13265	13436	
==>arams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how t <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13265	13436	
==>arams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how t <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	96	215	
==>sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11038	11186	
==>"->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8104	8247	
==>"->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8104	8247	
==>"->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        ret <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7283	7372	
==>nstantiated variables, which delegate. see below)
multi unify => ( 'type::variable::free', <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1605	1720	
==>$chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1605	1720	
==>$chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4222	4314	
==>tion, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Li <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4222	4314	
==>tion, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Li <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1245	1352	
==>= shift;
	my $node = shift;

	if (exists $self->{seen}{$node}){
		if ($self->{current_node} eq $node) {
			$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11587	11692	
==>his wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::stat <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2023	2126	
==>his wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::stat <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2023	2126	
==>his wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::stat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2623	2737	
==>w(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2623	2737	
==>w(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2623	2737	
==>w(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13050	13151	
==>values, their numeric value, and a format string for use with sprintf().

  # for when you have a zero <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1655	1779	
==>.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't se <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1655	1779	
==>.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6272	6376	
==>y ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.star <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6272	6376	
==>y ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.star <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3876	3979	
==>trol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3876	3979	
==>trol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3876	3979	
==>trol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stateme <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1675	1803	
==>ackage() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

# Loca <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	821	947	
==>", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	814	940	
==>", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4509	4704	
==>WP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Deb <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4509	4704	
==>WP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Deb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16498	16590	
==>st_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16498	16590	
==>st_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000) <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6015	6115	
==>x:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5145	5245	
==>x:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6015	6115	
==>x:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5145	5245	
==>x:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	544	643	
==>01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	544	643	
==>01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	544	643	
==>01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3374	3468	
==>>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3249	3351	
==>PTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6374	6476	
==>PTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3249	3351	
==>PTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6374	6476	
==>PTY_STR;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( ' <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	475	583	
==>$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the taintedness of %ENV, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1097	1194	
==>pically useful when your object belongs to a
package that is too close to the main namespace for y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1097	1194	
==>pically useful when your object belongs to a
package that is too close to the main namespace for y <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1097	1194	
==>pically useful when your object belongs to a
package that is too close to the main namespace for y <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17389	17492	
==>t.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Ent <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17389	17492	
==>t.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Ent <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12397	12490	
==>eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Thes <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12455	12548	
==>eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Thes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1100	1196	
==>ote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1100	1196	
==>ote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $ke <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1100	1196	
==>ote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $ke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2501	2629	
==>001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_logi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2501	2629	
==>001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_logi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17931	18058	
==>tributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<expor <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17931	18058	
==>tributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<expor <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19154	19261	
==>arams keys) apply 
        ($self: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13141	13243	
==>n p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13141	13243	
==>n p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13141	13243	
==>n p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { ex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2278	2404	
==>>{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15200	15297	
==>ibute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15200	15297	
==>ibute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15200	15297	
==>ibute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1899	1992	
==>($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1899	1992	
==>($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1899	1992	
==>($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	210	347	
==>res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	210	347	
==>res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	210	347	
==>res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	791	896	
==>mine a NAME for this distribution.
Please use the 'name' function in Makefile.PL.
END

    $name =~ s/-/:: <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6596	6706	
==>rray.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*rev <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6596	6706	
==>rray.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*rev <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1640	1733	
==>pe if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1640	1733	
==>pe if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7948	8074	
==>$.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1107	1224	
==>nstance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1107	1224	
==>nstance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BU <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1107	1224	
==>nstance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BU <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	238	355	
==>st $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	238	355	
==>st $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	238	355	
==>st $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1419	1514	
==>ts_parrot.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, ada <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1107	1237	
==>sure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1107	1237	
==>sure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_ru <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8248	8353	
==>her this is working because the language
    # spec says it is supposed to, or whether is due a fluke or u <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8248	8353	
==>her this is working because the language
    # spec says it is supposed to, or whether is due a fluke or u <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9383	9576	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9383	9576	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9383	9576	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	265	369	
==>();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs: <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1324	1439	
==>) || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    req <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1251	1359	
==>) || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	req <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2662	2756	
==>etails

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2662	2756	
==>etails

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r. <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	487	599	
==>WP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	454	566	
==>WP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30652	30747	
==>$heading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35203	35298	
==>$heading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7423	7540	
==>rl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4027	4144	
==>rl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4876	4993	
==>rl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $r <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4206	4304	
==>(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(news <==
4	/Users/nnunley/pugs/util/package-osx.pl	8675	8793	
==>change_files) {
        my $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1292	1391	
==>T LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1292	1391	
==>T LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1292	1391	
==>T LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNOR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3870	3959	
==>------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3870	3959	
==>------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3870	3959	
==>------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12041	12197	
==>rams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12041	12197	
==>rams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12041	12197	
==>rams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->param <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10096	10183	
==>p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($isInvocant, $isOptional, $isNamed, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19632	19723	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19632	19723	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19632	19723	
==>xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2658	2766	
==>}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	336	450	
==>32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23905	23994	
==>at,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_comm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23905	23994	
==>at,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_comm <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23905	23994	
==>at,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_comm <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12362	12470	
==>a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4763	4859	
==>nd contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4763	4859	
==>nd contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6960	7056	
==>nd contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6268	6411	
==>thod}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2501	2595	
==>on with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2501	2595	
==>on with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2501	2595	
==>on with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15969	16095	
==>sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10825	10951	
==>sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # a <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2645	2745	
==>my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $unive <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2645	2745	
==>my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $unive <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8367	8516	
==>xed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # war <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8367	8516	
==>xed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # war <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8367	8516	
==>xed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # war <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1363	1484	
==>"ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($pass) { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	983	1156	
==>s
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$sexpr};
        foreach my $i (reverse(0 .. $#{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11902	12003	
==>rchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__EN <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11902	12003	
==>rchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__EN <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11902	12003	
==>rchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__EN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10929	11068	
==>};
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print ca <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8002	8133	
==>};
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8002	8133	
==>};
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6422	6553	
==>1] || $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# inter <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32697	32792	
==>esult;
the new Relation contains all the tuples of the source Relations, including
one copy each <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37247	37342	
==>esult;
the new Relation contains all the tuples of the source Relations, including
one copy each <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8412	8506	
==>This event is begun when any block of characters is interpolated for modifiers.

=item I<end_el <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8412	8506	
==>This event is begun when any block of characters is interpolated for modifiers.

=item I<end_el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13047	13258	
==>->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13047	13258	
==>->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $b <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13047	13258	
==>->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $b <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16625	16717	
==>ionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalE <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28196	28294	
==>ebug_string()>

This method returns a stringified version of this object which is suitable
for debu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35552	35650	
==>ebug_string()>

This method returns a stringified version of this object which is suitable
for debu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28196	28294	
==>ebug_string()>

This method returns a stringified version of this object which is suitable
for debu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35552	35650	
==>ebug_string()>

This method returns a stringified version of this object which is suitable
for debu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	187	306	
==>r::Infix;

# TODO - generate AST
# TODO - prefix:{'+'}
# TODO - ~ ? 

sub add_rule {
    my $self = shift;
    my %opt = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6665	6759	
==>tributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6665	6759	
==>tributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6665	6759	
==>tributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3446	3546	
==>dler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  u <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3446	3546	
==>dler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  u <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1266	1360	
==>w lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), val <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1266	1360	
==>w lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), val <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2318	2437	
==>_('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $description, $rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	227	328	
==>buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	227	328	
==>buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New P <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	227	328	
==>buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	311	410	
==>d.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	311	410	
==>d.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies wi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	311	410	
==>d.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies wi <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20330	20415	
==>DeclarationListNoIn> <','> <VariableDeclarationNoIn>
}
rule VariableDeclaration :words <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13856	13972	
==>connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. I <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13856	13972	
==>connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. I <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4136	4230	
==>16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4136	4230	
==>16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3709	3825	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3709	3825	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3709	3825	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must p <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	709	820	
==>$x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6009	6129	
==>nt;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $cla <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6009	6129	
==>nt;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $cla <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1667	1762	
==>(IV x) {
	char * target = (char *)GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, "%d", x) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7555	7658	
==>e_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7555	7658	
==>e_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blo <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1360	1462	
==>owed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have be <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1360	1462	
==>owed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1107	1208	
==>ame) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1107	1208	
==>ame) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1107	1208	
==>ame) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	208	297	
==>Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q([\w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6979	7092	
==>ble contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6979	7092	
==>ble contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6979	7092	
==>ble contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] } <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2332	2439	
==>le::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Could not remove metad <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1809	1916	
==>port 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $lin <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1809	1916	
==>port 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $lin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1889	1996	
==>port 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $lin <==
4	/Users/nnunley/pugs/util/package-osx.pl	4028	4125	
==>::A06.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bib <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38016	38153	
==>:Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38016	38153	
==>:Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        el <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38016	38153	
==>:Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        el <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15641	15767	
==>lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1505	1612	
==>ef($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1505	1612	
==>ef($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1505	1612	
==>ef($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($n <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2794	2894	
==>right 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors. <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2951	3051	
==>right 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors. <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2794	2894	
==>right 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors. <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2951	3051	
==>right 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorship by the Pugs Contributors. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3419	3525	
==>ges used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3419	3525	
==>ges used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1314	1409	
==>LD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $m <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1314	1409	
==>LD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $m <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7727	7921	
==>ount = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yie <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7727	7921	
==>ount = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yie <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3821	3929	
==>error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK" <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3879	3987	
==>error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2468	2573	
==>oo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portio <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2468	2573	
==>oo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portio <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5649	5751	
==>ngine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) data <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5649	5751	
==>ngine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) data <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2674	2769	
==>(or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A buck <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	637	732	
==>_version_list code from lib.pm because I am hoping that perl6
# and the new module functionality <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2674	2769	
==>(or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A buck <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	637	732	
==>_version_list code from lib.pm because I am hoping that perl6
# and the new module functionality <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2804	2907	
==>ll to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2804	2907	
==>ll to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2804	2907	
==>ll to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35610	35711	
==>one and-branch.  We will take the last one off
and keep it normal, but the others we will make to be l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1094	1212	
==>s(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1094	1212	
==>s(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1094	1212	
==>s(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22784	22883	
==>(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22784	22883	
==>(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    m <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22784	22883	
==>(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1490	1586	
==>sion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1490	1586	
==>sion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1490	1586	
==>sion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implement <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21923	22020	
==>l information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20804	20901	
==>l information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21923	22020	
==>l information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availa <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20804	20901	
==>l information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not availa <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	592	749	
==>system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2036	2190	
==>system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3566	3715	
==>system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	874	1019	
==>system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5376	5480	
==>return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method cl <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5376	5480	
==>return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method cl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8597	8693	
==>ers DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8597	8693	
==>ers DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1032	1174	
==>$code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_lin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1032	1174	
==>$code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_lin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1380	1495	
==>~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $p <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1380	1495	
==>~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $p <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17054	17159	
==>e @r_with_shared_attrs;
    my Relation::Example @r_with_disjoint_attrs;
    while (my $r1 = @sources.shif <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7395	7480	
==>tch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7395	7480	
==>tch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7395	7480	
==>tch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2723	2871	
==>',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'lef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5175	5304	
==>_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5175	5304	
==>_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5175	5304	
==>_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{p <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10113	10222	
==>CTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, e <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8053	8162	
==>CTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10113	10222	
==>CTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, e <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8053	8162	
==>CTORS

=head2 C<set(...)>

Returns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	365	615	
==>None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Valid <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	365	615	
==>None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Valid <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6134	6262	
==>@_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7132	7260	
==>@_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6160	6279	
==>efault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6160	6279	
==>efault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Objec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6160	6279	
==>efault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Objec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1878	1972	
==>NGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$ENUM, 'Invalid [] range <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13178	13340	
==>]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13172	13334	
==>]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	121	245	
==>d BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fu <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	121	245	
==>d BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3138	3240	
==>-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $on <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3138	3240	
==>-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $on <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2428	2529	
==>e can stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has the pr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2335	2434	
==>e can stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has the pr <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5340	5447	
==>fix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4470	4577	
==>fix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5340	5447	
==>fix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $on <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4470	4577	
==>fix:«<» (Set $one, Set $two) returns Set {
    $one.proper_subset($two);
}
multi sub *infix:«>» (Set $on <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15022	15118	
==>N

=head2 Introduction

Many times during a program's operation, the program (or a package it use <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15022	15118	
==>N

=head2 Introduction

Many times during a program's operation, the program (or a package it use <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21290	21384	
==>d1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21290	21384	
==>d1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1299	1418	
==>as Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!que <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1299	1418	
==>as Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!que <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1306	1395	
==>onfig{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('b <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1306	1395	
==>onfig{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4126	4257	
==>], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => ' <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	340	457	
==>fix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11834	11928	
==>rrences are exactly the same.

This method tests the closures identities using the '===' operat <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11834	11928	
==>rrences are exactly the same.

This method tests the closures identities using the '===' operat <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	127	212	
==>er push_header init_header remove_header remove_content_headers header_field_names sca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	127	212	
==>er push_header init_header remove_header remove_content_headers header_field_names sca <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5260	5387	
==>h;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3760	3887	
==>h;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	4	108	
==>le FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	4	108	
==>le FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1506	1625	
==>scription,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1506	1625	
==>scription,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnost <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2947	3064	
==>n $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2947	3064	
==>n $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!conte <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1333	1433	
==>trived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1333	1433	
==>trived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use th <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17273	17366	
==>of saying that it subscribes to the
localization methodology that is described here, and hence <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17273	17366	
==>of saying that it subscribes to the
localization methodology that is described here, and hence <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16455	16575	
==>on.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17425	17545	
==>on.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19932	20052	
==>on.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20902	21022	
==>on.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4099	4220	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4099	4220	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4099	4220	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4692	4788	
==>itrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in order to copy files to i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11218	11328	
==>s' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix:< <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24392	24490	
==>methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28944	29042	
==>methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27811	27909	
==>methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this R <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4971	5082	
==>name => $_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$run <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2365	2465	
==>n p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2365	2465	
==>n p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_d <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2365	2465	
==>n p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2781	2873	
==>'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(", <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6233	6325	
==>'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2781	2873	
==>'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(", <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2781	2873	
==>'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(", <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	471	597	
==>t->{package};
    
    ### create a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### copy all t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	576	672	
==>e property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (neede <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	576	672	
==>e property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (neede <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	576	672	
==>e property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (neede <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	150	251	
==>rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	356	457	
==>rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34433	34526	
==>ot_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38983	39076	
==>ot_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3000	3108	
==>if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3000	3108	
==>if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  % <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31780	31872	
==>named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36330	36422	
==>named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22138	22235	
==><object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo ev <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21019	21116	
==><object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22138	22235	
==><object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21019	21116	
==><object>

The nick/channel/whatever the message operated (varies).

=item C<pseudo>

The pseudo ev <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13853	13971	
==>ave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($para <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1333	1451	
==>ave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($para <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	603	698	
==>a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Sh <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	603	698	
==>a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1869	1977	
==>tr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1869	1977	
==>tr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1869	1977	
==>tr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22746	22832	
==>ass_pos(X)|_])    :- class_member(class_pos(X),C), !.
charset_member(_,C,[class_neg(X)| <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3902	4009	
==>h';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	844	941	
==>$::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	844	941	
==>$::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	844	941	
==>$::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ( <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9474	9585	
==>@_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1221	1319	
==>ooter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=h <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1221	1319	
==>ooter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1768	1866	
==>ooter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	890	1046	
==>sh @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	890	1046	
==>sh @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3421	3528	
==>emit_grammar_perl5 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in pe <==
4	/Users/nnunley/pugs/util/munge_haddock.pl	137	235	
==>f\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  print "\n\n-- #ignore-exports\n" if /^mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4703	4878	
==>xt;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4703	4878	
==>xt;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	176	279	
==>l::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	176	279	
==>l::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	2152	2247	
==>ix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNC <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2152	2247	
==>ix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNC <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2086	2187	
==>index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2086	2187	
==>index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11821	11917	
==>urrently not implemented, so you will have to wait
a little while. Until then, you can just write <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11879	11975	
==>urrently not implemented, so you will have to wait
a little while. Until then, you can just write <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	955	1067	
==>ias prototype to some common names for super
        return $table->{prototype}
            if ($message eq 'prot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6106	6203	
==>UBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6106	6203	
==>UBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6106	6203	
==>UBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\ <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	375	485	
==>,
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate($ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14409	14596	
==>"head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14688	14875	
==>"head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2425	2555	
==>NPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2425	2555	
==>NPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Messa <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4430	4579	
==>ilddir?
    #system( qq[rm -rf $builddir] )                      and error($?), return;

    return JIB::Package->new( 
                file => File:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	870	981	
==>s(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	870	981	
==>s(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	870	981	
==>s(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22976	23075	
==>n

This module parses I<regexes>, not Perl.  If you send a single-quoted
string as a regex with a va <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2096	2229	
==>>[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = undef if $state->[0] > $#$nodes <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2511	2642	
==>>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2027	2158	
==>>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2511	2642	
==>>[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = undef if $state->[0] > $#$nodes <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32398	32494	
==>does not have an identical header to the invocant relation.  This
method has an alias named C<plu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36948	37044	
==>does not have an identical header to the invocant relation.  This
method has an alias named C<plu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36238	36334	
==>does not have an identical header to the invocant relation.  This
method has an alias named C<plu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4663	4786	
==>intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- st <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4663	4786	
==>intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- st <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15134	15231	
==>ument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string i <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15134	15231	
==>ument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6929	7054	
==>'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6929	7054	
==>'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $sp <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18757	18857	
==>its $document and optional
$parent_node though; you can produce a direct clone like this:

    my $cl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18757	18857	
==>its $document and optional
$parent_node though; you can produce a direct clone like this:

    my $cl <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4097	4271	
==>g->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File::Copy::copy( $pkg->file, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5227	5322	
==>ne input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5227	5322	
==>ne input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5227	5322	
==>ne input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7693	7806	
==>/;
	    $h{'slurpy'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\+//;
	    $h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3817	3928	
==>lan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3817	3928	
==>lan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5341	5452	
==>lan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	47	148	
==>9-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-3 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	47	148	
==>9-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-3 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	47	148	
==>9-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-3 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30356	30452	
==>e, to
pretend it didn't actually match.  The real closing parenthesis handler
is:

  $self->add_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13096	13275	
==>ore( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13096	13275	
==>ore( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13096	13275	
==>ore( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$s <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1626	1777	
==>pend_name( $arg );
            $.append_value( $arg );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3575	3667	
==>graphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALS <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3575	3667	
==>graphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	821	920	
==>upports PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	821	920	
==>upports PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# d <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27717	27812	
==>Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_ke <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27717	27812	
==>Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4139	4308	
==>)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4139	4308	
==>)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4139	4308	
==>)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3224	3346	
==>pe),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my $node = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1383	1493	
==>r your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins fi <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1383	1493	
==>r your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins fi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15756	15851	
==>y Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

Thi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15756	15851	
==>y Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

Thi <==
4	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1973	2089	
==>e {
    my $self = shift;
    my $attr = shift;

    # $attr may be a T2::Attribute or a T2::Association, but as they <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2067	2165	
==>Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a gl <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2067	2165	
==>Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a gl <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1025	1122	
==>@developers;

# Collect commits in days
# E.g. $commits_till_day[42] = 1500 (1500 commits from day <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	480	597	
==>): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        = <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	480	597	
==>): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        = <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	28	118	
==>s::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Pa <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	28	118	
==>s::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1683	1830	
==>efined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $st <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2012	2156	
==>efined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $st <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1625	1769	
==>efined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $st <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2012	2156	
==>efined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $st <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22085	22178	
==>=E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(usern <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22085	22178	
==>=E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(usern <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2377	2465	
==>ler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2377	2465	
==>ler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6068	6173	
==>thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6068	6173	
==>thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13451	13630	
==>@result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13451	13630	
==>@result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13451	13630	
==>@result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $s <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2336	2515	
==>@result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@a[$i]);
            $i++;
        }
    }

    if $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5424	5566	
==>tch2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5424	5566	
==>tch2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $mat <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1965	2090	
==>H
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; chars <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1965	2090	
==>H
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; chars <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4877	4992	
==>fined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4877	4992	
==>fined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4877	4992	
==>fined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special c <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19050	19155	
==>key) = $value if $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%par <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22040	22135	
==>dlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20921	21016	
==>dlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22040	22135	
==>dlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20921	21016	
==>dlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handlers.

=item <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1656	1766	
==>able;
    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOA <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	551	649	
==>r odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	551	649	
==>r odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	551	649	
==>r odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	765	883	
==>$_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	765	883	
==>$_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1442	1537	
==>elf->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1582	1677	
==>elf->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1280	1423	
==>nce}";
            }
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11581	11682	
==>_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11581	11682	
==>_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11581	11682	
==>_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10178	10291	
==>data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st->[-1] } and $st->[-1][-1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1364	1459	
==>xportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1364	1459	
==>xportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1364	1459	
==>xportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8126	8234	
==>=> "Checking if we have to rebuild the initrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19638	19731	
==>d'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19638	19731	
==>d'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMet <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19638	19731	
==>d'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	22	117	
==>. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	22	117	
==>. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	22	117	
==>. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13349	13450	
==>s, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Val <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11683	11784	
==>nd crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_m <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13349	13450	
==>s, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13349	13450	
==>s, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	397	505	
==>cc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	397	505	
==>cc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	397	505	
==>cc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	179	288	
==>my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4258	4367	
==>($file) or return;
    my $contents = do { local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	179	288	
==>my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	179	288	
==>my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11611	11800	
==>rn 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11611	11800	
==>rn 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $ca <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11611	11800	
==>rn 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $ca <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8912	9019	
==>c-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely up <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5069	5189	
==>just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5069	5189	
==>just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5069	5189	
==>just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $na <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1067	1187	
==>UE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      p <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1035	1136	
==>, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null string many times <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8045	8156	
==>e "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12038	12144	
==>e "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12038	12144	
==>e "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2384	2478	
==>e L<Results>.

C<@test_output> should be the raw output from the test, including
newlines.

=cu <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4939	5096	
==>rack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4939	5096	
==>rack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3792	3902	
==>m() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $positio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13852	13986	
==>if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13852	13986	
==>if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13852	13986	
==>if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $met <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48498	48586	
==>>send('add_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 'st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3846	3953	
==>, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3846	3953	
==>, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3846	3953	
==>, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implem <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	846	959	
==>g, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9715	9904	
==>escription,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	295	472	
==>escription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	295	472	
==>escription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test: <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	13	107	
==>X-0.01;

use File::Spec <catfile splitpath>;

our @.known_parsers;
my $parser_details = 'Parser <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	122	216	
==>ity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	122	216	
==>ity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal ch <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2337	2450	
==>al was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2395	2508	
==>al was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1359	1484	
==>"is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19134	19234	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19134	19234	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19134	19234	
==>x1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	633	753	
==>cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	633	753	
==>cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2210	2315	
==>ere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2221	2326	
==>ere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::a <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1818	1957	
==>>{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print D <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1818	1957	
==>>{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print D <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12976	13070	
==>recognized
entities are left alone.

If multiple strings are provided as argument they are each <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12976	13070	
==>recognized
entities are left alone.

If multiple strings are provided as argument they are each <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2540	2651	
==>cat eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13500	13602	
==>se Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13500	13602	
==>se Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13500	13602	
==>se Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10417	10550	
==>ams > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10417	10550	
==>ams > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10417	10550	
==>ams > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3727	3870	
==>' {
        # XXX
        $ret = traverse_ast ( $tree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_as <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	632	728	
==>ber_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is exp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	690	786	
==>ber_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is exp <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1714	1808	
==>nfess "bad return value, got($return_value) expected(" . $self->{sig}->returns . ")";
    retur <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13383	13482	
==>ameter to most of the functions is a way
to provide a comment that refers to another file or test wh <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13441	13540	
==>ameter to most of the functions is a way
to provide a comment that refers to another file or test wh <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12539	12634	
==>dated.  The tests that are passing represent the
current working features.

This module deals wi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12539	12634	
==>dated.  The tests that are passing represent the
current working features.

This module deals wi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19451	19562	
==>ion::Example {
    return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5100	5208	
==>e;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5100	5208	
==>e;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5100	5208	
==>e;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5525	5639	
==>trd_size,
  "initrd-mnt=s"   => \$initrd_mnt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "termi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23397	23497	
==>text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17796	17892	
==>n, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=ba <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17796	17892	
==>n, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=ba <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12011	12173	
==>t, pos, $I0
    mob["arg"] = $S0
    pos += $I0
    $S0 = substr target, pos, 1
  subrule_end:
    if $S0 != ">" goto end
    inc pos
    mpos = pos
    mob["subna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1997	2103	
==>jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1997	2103	
==>jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1997	2103	
==>jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } e <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4024	4150	
==>open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4024	4150	
==>open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $spa <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3889	3989	
==>malize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3889	3989	
==>malize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1660	1827	
==>$Root . '/_builddir';             # buildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'co <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3696	3798	
==>tem C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, an <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3696	3798	
==>tem C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, an <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5893	5995	
==>tem C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, an <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21555	21654	
==>o" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contai <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20436	20535	
==>o" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contai <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21555	21654	
==>o" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contai <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20436	20535	
==>o" events. See below for a list
of pseudo events.

The callback is given a C<$event> hashref, contai <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	318	439	
==>,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	318	439	
==>,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2266	2371	
==>', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2266	2371	
==>', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	947	1061	
==>]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH> <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	947	1061	
==>]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH> <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10078	10191	
==>f.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10078	10191	
==>f.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1. <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	42	144	
==>:Control;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !!>', ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1438	1535	
==>Name => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1438	1535	
==>Name => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PV <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1438	1535	
==>Name => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PV <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11680	11819	
==>e {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11680	11819	
==>e {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11680	11819	
==>e {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec- <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1717	1812	
==>:
     perl util/catalog_tests.pl --p6design_dir=../p6/docs/design
     perl util/catalog_tests. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20874	20972	
==>nd C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickname <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19791	19889	
==>nd C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20874	20972	
==>nd C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickname <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19791	19889	
==>nd C<users>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nickname <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12962	13078	
==>tion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16439	16555	
==>tion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15801	15917	
==>tion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive h <==
4	/Users/nnunley/pugs/util/package-osx.pl	1215	1324	
==>y.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) { <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19824	19936	
==>Block :words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <St <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1178	1274	
==>ime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1178	1274	
==>ime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar- <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10877	11068	
==>t )

 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using cri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3219	3330	
==>...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3219	3330	
==>...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3219	3330	
==>...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	541	656	
==>CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	541	656	
==>CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the ins <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	541	656	
==>CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the ins <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1179	1291	
==>("version") or $CGI->param("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $ <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	155	284	
==>lock | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3884	3983	
==>ray
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3884	3983	
==>ray
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3884	3983	
==>ray
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	341	460	
==>s[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	341	460	
==>s[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	341	460	
==>s[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7235	7341	
==>plemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule operato <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2842	2955	
==>ne\n9th line\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckT <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5964	6067	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5094	5197	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5964	6067	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5094	5197	
==>urns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5939	6045	
==>depot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command defi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5939	6045	
==>depot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command defi <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1984	2084	
==>t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1984	2084	
==>t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	789	943	
==>2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	789	943	
==>2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	789	943	
==>2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10098	10238	
==>/;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6439	6579	
==>/;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7288	7428	
==>/;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1142	1235	
==>h unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( "/" . $_[0 <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2360	2459	
==> (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2360	2459	
==> (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24974	25070	
==>A Message object is a simple container which stores data to be used or
displayed by your program. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24974	25070	
==>A Message object is a simple container which stores data to be used or
displayed by your program. <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16170	16297	
==>if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_state>

  $strap->_reset_file_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11074	11174	
==>'has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11074	11174	
==>'has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11074	11174	
==>'has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %para <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17799	17950	
==>utes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'valu <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17799	17950	
==>utes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'valu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6821	6965	
==>e, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = c <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6821	6965	
==>e, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3567	3674	
==>\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_cla <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3183	3280	
==>odule allows you to test test modules that use Test::Builder.  It
does this by you setting the exp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3183	3280	
==>odule allows you to test test modules that use Test::Builder.  It
does this by you setting the exp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3263	3360	
==>odule allows you to test test modules that use Test::Builder.  It
does this by you setting the exp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5622	5746	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6175	6299	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5815	5939	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6368	6492	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12069	12186	
==>>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12069	12186	
==>>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12069	12186	
==>>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7461	7574	
==>$) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth id' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8012	8120	
==>r @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8012	8120	
==>r @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Re <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7501	7602	
==>QUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7501	7602	
==>QUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2122	2233	
==>== b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2122	2233	
==>== b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pai <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2122	2233	
==>== b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pai <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27273	27364	
==>$parser->add_flag($flag, $code)

This method creates a method of the parser C<FLAG_$flag>, a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3400	3513	
==>seInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3400	3513	
==>seInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3400	3513	
==>seInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	231	342	
==>ls::MakeMaker ();

# check if we can load some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3851	3952	
==>u use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3851	3952	
==>u use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3851	3952	
==>u use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root: <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	138	236	
==>er;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEG <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	39	137	
==>er;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEG <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21163	21255	
==>OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provi <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21163	21255	
==>OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10796	10942	
==>est{max} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs addition <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10999	11135	
==>]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10999	11135	
==>]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10999	11135	
==>]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) no <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2517	2629	
==>: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.m <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5720	5832	
==>: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2517	2629	
==>: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5720	5832	
==>: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = @span.m <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5783	5879	
==>return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5783	5879	
==>return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2281	2374	
==>ar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2370	2463	
==>ar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3878	3999	
==>P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3878	3999	
==>P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4410	4525	
==>P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4410	4525	
==>P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $n <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12673	12770	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and r <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12731	12828	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2698	2794	
==>success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2698	2794	
==>success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3692	3846	
==>alar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3692	3846	
==>alar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3692	3846	
==>alar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	911	1008	
==>OLOAD {}
sub DESTROY {}

1;

# Restore warning handler
BEGIN { $SIG{__WARN__} = $SIG{__WARN__}->() <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14923	15017	
==>current lexical context has
declared the "working unicode level to be". Default is LChars.

[Q: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1750	1858	
==>05-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1750	1858	
==>05-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1750	1858	
==>05-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	406	507	
==>n_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node);
	retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2604	2702	
==>mpile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2604	2702	
==>mpile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2604	2702	
==>mpile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or d <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18868	18963	
==>$replace) }
 multi substr(Str $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Internals <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2221	2324	
==>$args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2199	2302	
==>$args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6892	6990	
==>RawName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE P <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2071	2160	
==>lf->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	405	507	
==>mpt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	405	507	
==>mpt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	405	507	
==>mpt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User' <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1653	1752	
==>$INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8405	8611	
==>od($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8405	8611	
==>od($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8405	8611	
==>od($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # th <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1702	1790	
==>_[0]{'warnings'} }
sub has_failed { $_[0]{'has_failed'} }

package Perl6::Run::OnPerl5::X <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	475	607	
==>_PACKAGE__->can($1);

        no strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3452	3550	
==>fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3452	3550	
==>fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3452	3550	
==>fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	926	1023	
==>ath::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	926	1023	
==>ath::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	926	1023	
==>ath::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21461	21555	
==>re C<(?(N)T|F)> works right).
In doing so, found that the "too many branches" error wasn't bein <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4960	5166	
==>rsions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (! <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4960	5166	
==>rsions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (! <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15124	15226	
==>t(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4443	4542	
==>RAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter type <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3191	3349	
==>);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($tok) {
        $tok = pop(@$X::cap);
        my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6787	6889	
==>r pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6787	6889	
==>r pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6787	6889	
==>r pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2081	2184	
==>w PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2081	2184	
==>w PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2081	2184	
==>w PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsi <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	17	114	
==>se strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_DE. <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12474	12573	
==>turns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12532	12631	
==>turns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	596	685	
==>arset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modifie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	596	685	
==>arset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modifie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5698	5941	
==>p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5698	5941	
==>p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5698	5941	
==>p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'S <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6846	6939	
==>build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @libs);
    print "*** Building: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7181	7277	
==>s event is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=ite <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7181	7277	
==>s event is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=ite <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3757	3851	
==>Value
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3757	3851	
==>Value
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1225	1334	
==>er,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1225	1334	
==>er,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1225	1334	
==>er,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETC <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13553	13651	
==>ool )

True if invocant has an element whose key matches C<$key>, false
otherwise.

An unary form i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8438	8538	
==>[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLA <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8438	8538	
==>[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLA <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13624	13720	
==>ecurrence_holidays );

- Continuous span

This type os span is used to represent continuous measu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13624	13720	
==>ecurrence_holidays );

- Continuous span

This type os span is used to represent continuous measu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	164	275	
==>tegory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	168	279	
==>tegory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	162	273	
==>tegory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	162	273	
==>tegory);

use Pugs::Grammar::Infix;

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Gra <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4465	4621	
==>s}++ if $result{ok}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals->{skip}++;
            $pass = 1;
        }

        $totals->{o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2558	2691	
==>alid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2558	2691	
==>alid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false bu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2558	2691	
==>alid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false bu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1904	2029	
==>'current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1904	2029	
==>'current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($ty <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1904	2029	
==>'current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2503	2600	
==>umber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2503	2600	
==>umber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2503	2600	
==>umber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "in <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43191	43432	
==>ms->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46535	46776	
==>ms->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36441	36668	
==>ms->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37976	38203	
==>ms->new(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	605	707	
==>Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	605	707	
==>Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	605	707	
==>Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete s <==
4	/Users/nnunley/pugs/util/claim_drift.pl	150	251	
==>FT,
# you need to point symlinks to the current one if you want to regenerate
# files. We should proba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	270	367	
==>le)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	270	367	
==>le)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	270	367	
==>le)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3208	3318	
==>chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	600	706	
==>ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	600	706	
==>ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ - <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	600	706	
==>ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ - <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4841	4939	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2190	2288	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1061	1159	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=it <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1231	1329	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6475	6586	
==>(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6268	6373	
==>(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6024	6123	
==>l semantics.

Please note that most of the time, it will not be necessary to write these 
methods yo <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6024	6123	
==>l semantics.

Please note that most of the time, it will not be necessary to write these 
methods yo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	284	408	
==>);
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	284	408	
==>);
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$clas <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	284	408	
==>);
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$clas <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17207	17345	
==>ef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17207	17345	
==>ef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7642	7739	
==>iter, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::map (@va <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12464	12561	
==>epends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12522	12619	
==>epends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1873	1966	
==>k($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1873	1966	
==>k($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3251	3369	
==>) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3251	3369	
==>) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3251	3369	
==>) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12135	12235	
==>n = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:0 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13966	14066	
==>n = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12135	12235	
==>n = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:0 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13966	14066	
==>n = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14703	14841	
==>ts ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14703	14841	
==>ts ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14703	14841	
==>ts ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	6277	6383	
==>left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10074	10286	
==>g scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10074	10286	
==>g scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10074	10286	
==>g scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOL <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6803	6960	
==>ensions: Can't open $subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11151	11257	
==>al number of
    tests run -- for example, if a backend only ran three tests, which it
    passed, this pag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6290	6383	
==>t$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6290	6383	
==>t$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6290	6383	
==>t$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangl <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15817	15927	
==>os
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .Exce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2497	2601	
==>/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi()) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2497	2601	
==>/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi()) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2497	2601	
==>/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi()) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4144	4250	
==>Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4144	4250	
==>Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4144	4250	
==>Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20885	20973	
==>_>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=item Cleaner Grammar Flow

N <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26538	26649	
==>ub visual {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4618	4718	
==>he skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4618	4718	
==>he skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6815	6915	
==>he skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10572	10708	
==>e
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      submethod BUI <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1098	1220	
==>e
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUI <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1098	1220	
==>e
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUI <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2301	2400	
==>}

    class Getopt::Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2496	2715	
==>return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-orde <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2803	3010	
==>return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-orde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2803	3010	
==>return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-orde <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5293	5435	
==>e[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6120	6280	
==>ind template for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ s/$_/$op->{$_}/g for qw( name2 n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	626	738	
==>BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	626	738	
==>BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	626	738	
==>BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	573	698	
==>d => $1 }, value => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	896	1015	
==>of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tup <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4374	4493	
==>of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tup <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1792	1886	
==>cter classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => -- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12002	12113	
==>ct(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4645	4756	
==>ct(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2114	2214	
==>g.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2114	2214	
==>g.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Ci <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24009	24111	
==>rror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betw <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22782	22884	
==>rror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betw <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24009	24111	
==>rror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betw <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22782	22884	
==>rror reply back to the client on receipt of a notice.  The object of
  this rule is to avoid loops betw <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3729	3975	
==>setta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database por <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3729	3975	
==>setta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database por <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12263	12383	
==>eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4906	5026	
==>eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	284	393	
==>ag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	540	641	
==>rams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	540	641	
==>rams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	540	641	
==>rams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19890	20003	
==>fter login, so it can give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18871	18984	
==>fter login, so it can give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19890	20003	
==>fter login, so it can give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18871	18984	
==>fter login, so it can give you accurate
C<username> and C<ircname> information.

This is a readonly accessor. To s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5536	5703	
==>token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5536	5703	
==>token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5536	5703	
==>token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "meth <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1154	1287	
==>ternation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2829	2947	
==>elf = shift;
    my $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2782	2875	
==>s for perl6-style variable binding,
as well as subroutine call argument passing and binding, i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2782	2875	
==>s for perl6-style variable binding,
as well as subroutine call argument passing and binding, i <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3129	3222	
==>s for perl6-style variable binding,
as well as subroutine call argument passing and binding, i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	179	289	
==>w PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	179	289	
==>w PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	179	289	
==>w PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6886	6983	
==>turn $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n");
}

sub p6 <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4589	4701	
==>s \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3716	3828	
==>s \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4589	4701	
==>s \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipl <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3716	3828	
==>s \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multipl <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1001	1112	
==>f (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { re <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	968	1079	
==>f (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21221	21317	
==>lation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribut <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25773	25869	
==>lation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribut <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25345	25443	
==>.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24109	24207	
==>.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25345	25443	
==>.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24109	24207	
==>.de>

=head1 LICENSE

This program is free software; you can redistribute it and/or modify it under <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8812	8926	
==>:unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	950	1051	
==>ss->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	950	1051	
==>ss->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	950	1051	
==>ss->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4412	4512	
==>t(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4412	4512	
==>t(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4412	4512	
==>t(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      l <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3071	3184	
==>t at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3071	3184	
==>t at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3984	4091	
==>ry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3984	4091	
==>ry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the na <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3984	4091	
==>ry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the na <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1631	1728	
==>e there.

# Some raw development notes appear after __END__.

package Regexp::StructHook;

our $in <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3914	4118	
==>\1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {},
                match => [],
            }, 'Pugs::Runt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5170	5278	
==>5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "no <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5170	5278	
==>5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "no <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5760	5868	
==>5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "no <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	459	569	
==>n);

    $self->set_makefile_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pug <==
4	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	505	613	
==>ot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c code com <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5005	5100	
==>ct, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7673	7768	
==>ct, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10232	10334	
==>eturn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10232	10334	
==>eturn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10232	10334	
==>eturn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	95	190	
==>atching subs you want to debug'}
* adds use Smart::Comments (if it matches the supplied regex) o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	935	1035	
==>h how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Mini <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	935	1035	
==>h how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Mini <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	935	1035	
==>h how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Mini <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21711	21799	
==>ode', ':' => 'type');
%sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2828	2929	
==>t open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2828	2929	
==>t open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2828	2929	
==>t open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $! <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12938	13021	
==>ackets("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
brackets(" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2039	2177	
==>il => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8811	8949	
==>il => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2039	2177	
==>il => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8811	8949	
==>il => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	268	361	
==>f->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	268	361	
==>f->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	268	361	
==>f->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->is <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7261	7382	
==>est   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft.pod 8 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2624	2728	
==>_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_handler('\D' => sub { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7260	7352	
==>.20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7260	7352	
==>.20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3047	3173	
==>}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3047	3173	
==>}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( def <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3047	3173	
==>}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( def <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1366	1484	
==>($year), :month($1),  :day($2),
          :hour($5),    :minute($6), :second( $second ),
          :tz($tz) );
}

# con <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	35	138	
==>ake at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	39	142	
==>ake at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	35	138	
==>ake at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	39	142	
==>ake at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, to be used in other bo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18121	18265	
==>$lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14542	14686	
==>$lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7244	7371	
==>p {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = ran <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7232	7359	
==>p {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = ran <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13394	13493	
==>::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13394	13493	
==>::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13394	13493	
==>::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $ta <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3182	3379	
==>s copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $star <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3182	3379	
==>s copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12972	13110	
==>r) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :1 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12972	13110	
==>r) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :1 <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	941	1038	
==>List))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::AttrName}
    of Relation::Lax <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5276	5370	
==>$cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as po <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5276	5370	
==>$cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as po <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	648	737	
==>Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	648	737	
==>Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	231	341	
==>se File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messag <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	151	261	
==>se File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messag <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	149	259	
==>se File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messag <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	147	257	
==>se File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Messag <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4603	4716	
==>all', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $_[0]- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	228	331	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	228	331	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	228	331	
==>ess {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10757	10873	
==>progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14523	14615	
==>e('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14523	14615	
==>e('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14523	14615	
==>e('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	731	826	
==>dulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_dif <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	731	826	
==>dulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_dif <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1494	1583	
==>+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0 <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3531	3630	
==>ad1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instanc <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3531	3630	
==>ad1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instanc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5728	5827	
==>ad1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instanc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1339	1434	
==>f->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4357	4474	
==>F;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4357	4474	
==>F;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4357	4474	
==>F;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	793	895	
==>grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pugs::Comp <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31539	31632	
==>riginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36089	36182	
==>riginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35316	35409	
==>riginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	377	494	
==>s an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - easier <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	356	468	
==>s an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - easier <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8505	8607	
==>rs{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8505	8607	
==>rs{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19174	19294	
==>'0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19174	19294	
==>'0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19174	19294	
==>'0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28844	28954	
==>xact, flags, group, groupp, minmod, prop, open, quant, ref,
reg_any.

=item my $f = $obj->flags()

The flag val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11157	11327	
==>{
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11157	11327	
==>{
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11157	11327	
==>{
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2793	2893	
==>thod $label)) and (= $method ($current send (get_method $label)))
         (= $current (&dispatcher d <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3833	3932	
==>les.  Use of the perl api has to be
checked for correctness, and the problems tracked down.

=item C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3109	3202	
==>my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3109	3202	
==>my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->supe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3109	3202	
==>my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->supe <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	237	338	
==>use
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert";

#!\paus <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3721	3871	
==>t => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

metho <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3721	3871	
==>t => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

metho <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5423	5528	
==>to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method re <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5423	5528	
==>to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method re <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6483	6618	
==>5),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6483	6618	
==>5),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2134	2251	
==>r_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2134	2251	
==>r_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2134	2251	
==>r_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("J <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2219	2321	
==>$STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/) }

	sub annotate {
		my $se <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1273	1508	
==>etafile $Repodir/$meta_info] )
                                                                and die $?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there to <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	718	813	
==>Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1 <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	718	813	
==>Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1 <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5039	5148	
==>);        
        }
    )
);

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3952	4039	
==>);
}));

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3952	4039	
==>);
}));

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3952	4039	
==>);
}));

## ---------------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	509	606	
==>sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	509	606	
==>sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	509	606	
==>sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2888	2982	
==>_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternatives(W, Z).

p6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	16	127	
==>ge PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	16	127	
==>ge PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	16	127	
==>ge PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4118	4235	
==>ins HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4118	4235	
==>ins HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script ty <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4118	4235	
==>ins HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script ty <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20778	20872	
==>0) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_] <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1512	1616	
==>ate::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

With <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1512	1616	
==>ate::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

With <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	580	681	
==>ial behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<o <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	580	681	
==>ial behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<o <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	193	304	
==>day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @L <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	193	304	
==>day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @L <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20850	20946	
==>andles
lots of other program resources as data files as well, making them easy to
upgrade.

Local <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20850	20946	
==>andles
lots of other program resources as data files as well, making them easy to
upgrade.

Local <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11861	12011	
==>get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$name', \n" . $progr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4009	4120	
==>:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4009	4120	
==>:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4009	4120	
==>:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3150	3313	
==>ode...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2724	2826	
==>." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2724	2826	
==>." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2724	2826	
==>." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1185	1312	
==>ift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtime: <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11723	11819	
==>common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that d <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11723	11819	
==>common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1994	2141	
==>PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1994	2141	
==>PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_valu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1994	2141	
==>PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_valu <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	199	309	
==>lf: Duration $duration) returns Duration {
    $self.new($self.length - $duration.length);
}

#method infix:<-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9516	9633	
==>om_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9516	9633	
==>om_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9516	9633	
==>om_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List' <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4069	4167	
==>YRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; you can redistrib <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2365	2525	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2558	2718	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::ca <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2687	2813	
==>: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto gene <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2687	2813	
==>: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto gene <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18234	18346	
==>able method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18234	18346	
==>able method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18234	18346	
==>able method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13757	13903	
==>d = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                push @rv, (~ $start)..(~ $end);

                $string = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3878	4012	
==>d = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3878	4012	
==>d = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3878	4012	
==>d = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            push @rv, (~ $start)..(~ $end);

            $string = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5050	5157	
==>::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5050	5157	
==>::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23987	24079	
==>text" suggests that they
use a compile-time macro-based approach to substitute the user's pre <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23987	24079	
==>text" suggests that they
use a compile-time macro-based approach to substitute the user's pre <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	385	483	
==>text
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/op <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	385	483	
==>text
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/op <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	385	483	
==>text
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/op <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12793	12889	
==>fun: generic_in($.body) = { generic_in($$) }

# possibly amend the list of generic variables if t <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3286	3407	
==>defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3286	3407	
==>defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	389	482	
==>ion = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $f <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	389	482	
==>ion = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $f <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1020	1110	
==>object-oriented interfaces.  The 
functional and object-oriented interfaces both follow the <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1020	1110	
==>object-oriented interfaces.  The 
functional and object-oriented interfaces both follow the <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	542	630	
==>ethod addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trig <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	542	630	
==>ethod addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trig <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	140	266	
==>nt',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filena <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	140	266	
==>nt',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filena <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	140	266	
==>nt',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filena <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	140	266	
==>nt',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str $filena <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10588	10715	
==>ite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10588	10715	
==>ite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10588	10715	
==>ite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22840	22924	
==>:- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18889	19020	
==>f->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15310	15441	
==>f->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16334	16462	
==>c cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12755	12883	
==>c cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S- <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	28	123	
==>ce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Scha <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6446	6587	
==>ts.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility on <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6446	6587	
==>ts.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility on <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18200	18336	
==>ct(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14621	14757	
==>ct(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self-> <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2395	2500	
==>$self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inter <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2395	2500	
==>$self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inter <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3892	3977	
==>mbler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1 <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3892	3977	
==>mbler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	743	840	
==>reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	743	840	
==>reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	743	840	
==>reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1191	1289	
==>= %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1191	1289	
==>= %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("W <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1191	1289	
==>= %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("W <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	14495	14633	
==>dir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5178	5274	
==>(--link option not given), there has to be only one input file.
In linking mode, multiple input f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5178	5274	
==>(--link option not given), there has to be only one input file.
In linking mode, multiple input f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5178	5274	
==>(--link option not given), there has to be only one input file.
In linking mode, multiple input f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2120	2251	
==>lass => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prototype => new Object( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8091	8211	
==>( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8091	8211	
==>( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8091	8211	
==>( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	758	869	
==>>from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	758	869	
==>>from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11656	11751	
==>)`

Returns true if this recurrence intersects (has any element in common) with the given recurr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11656	11751	
==>)`

Returns true if this recurrence intersects (has any element in common) with the given recurr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19138	19233	
==>relational
data model proposed by Edgar. F. Codd, upon which anything in the world can
be modell <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21960	22055	
==>NTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects f <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22788	22883	
==>relational data model proposed
by Edgar. F. Codd, upon which anything in the world can be modell <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21960	22055	
==>NTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects f <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2606	2754	
==>ded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	251	375	
==>.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { ac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	251	375	
==>.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { ac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	251	375	
==>.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { ac <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3255	3353	
==>R;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6380	6478	
==>R;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3255	3353	
==>R;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6380	6478	
==>R;
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2820	3027	
==>'+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2831	3038	
==>'+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3719	3858	
==>] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3731	3870	
==>] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4305	4420	
==>'', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation? <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5626	5741	
==>'', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4305	4420	
==>'', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation? <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5614	5729	
==>'', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	412	509	
==>rams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	412	509	
==>rams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Para <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	412	509	
==>rams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Para <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10390	10512	
==>'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ad <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10390	10512	
==>'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_ad <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1939	2042	
==>original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESC <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1939	2042	
==>original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESC <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6036	6151	
==>we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing fo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6094	6209	
==>we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing fo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1608	1702	
==>er::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 To <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1608	1702	
==>er::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 To <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1798	1884	
==>ompile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3174	3260	
==>ompile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8170	8274	
==>ol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8170	8274	
==>ol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8170	8274	
==>ol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7463	7557	
==>($child->isa("Blondie::Seq")){
			my @children_of_seq = $child->values; # the children of the s <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26143	26245	
==>is method is a generic relational operator that returns a new Relation
which has a subset of the origin <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31138	31240	
==>is method is a generic relational operator that returns a new Relation
which has a subset of the origin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30695	30797	
==>is method is a generic relational operator that returns a new Relation
which has a subset of the origin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35688	35790	
==>is method is a generic relational operator that returns a new Relation
which has a subset of the origin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1681	1822	
==>}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1681	1822	
==>}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1681	1822	
==>}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13010	13107	
==>ugh they were methods.  They return two
values, their numeric value, and a format string for use w <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4417	4513	
==>{

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( ' <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4417	4513	
==>{

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( ' <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	280	373	
==>DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=h <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	280	373	
==>DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10583	10702	
==>infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub revers <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10583	10702	
==>infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub revers <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10583	10702	
==>infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub revers <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21721	21835	
==>ethod
    .param pmc pad
    .local int isarray, iscapture
    .local string cname
    .local pmc reps

    iscaptu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15624	15713	
==>elationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> <ShiftEx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14659	14776	
==>to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14659	14776	
==>to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14659	14776	
==>to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5250	5343	
==>($link_info) unless $no_designdocs;

# Generating index.html
my @dirs = sort keys %{$index->{_ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12366	12473	
==>pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2665	2766	
==>6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug work <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2665	2766	
==>6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug work <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2665	2766	
==>6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug work <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	146	265	
==>ccessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1650	1756	
==>ub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1650	1756	
==>ub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemen <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1650	1756	
==>ub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemen <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1370	1665	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1370	1665	
==>text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8349	8469	
==>eedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        r <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8060	8174	
==>eedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14298	14410	
==>';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14298	14410	
==>';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14298	14410	
==>';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	851	953	
==>turns Duration::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9163	9266	
==>},
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9163	9266	
==>},
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" clas <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9163	9266	
==>},
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" clas <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15945	16034	
==>(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0 <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4473	4599	
==>ys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9664	9771	
==>s {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\'] <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9664	9771	
==>s {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\'] <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7798	7904	
==>larExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1563	1666	
==>0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->nchar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6093	6192	
==>yobj. All it needs to do to signal
this is to return the string set in advance with the prune method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6093	6192	
==>yobj. All it needs to do to signal
this is to return the string set in advance with the prune method <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6093	6192	
==>yobj. All it needs to do to signal
this is to return the string set in advance with the prune method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3754	3863	
==>attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3754	3863	
==>attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3754	3863	
==>attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5199	5331	
==>my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X::str;
      pos($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13236	13366	
==>defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13236	13366	
==>defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13236	13366	
==>defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Cl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9258	9377	
==>s $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1069	1172	
==>rgs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1069	1172	
==>rgs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1069	1172	
==>rgs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + " <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	688	788	
==>head1 DESCRIPTION

Base class for:

    JIB::Package::Source
    JIB::Package::Binary
    JIB::Packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4643	4730	
==>optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexali <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4643	4730	
==>optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexali <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5233	5320	
==>optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexali <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3074	3173	
==>::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3074	3173	
==>::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7971	8063	
==>lf: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7971	8063	
==>lf: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22927	23030	
==>t> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason op <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21745	21848	
==>t> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22927	23030	
==>t> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason op <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21745	21848	
==>t> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason op <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6639	6758	
==>ash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6639	6758	
==>ash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo" <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4616	4711	
==>et.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($s <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4616	4711	
==>et.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($s <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	876	994	
==>t methods are bound into the compiled Class (the Type object)
when they are included into the Class.  This has the same <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18996	19185	
==>n there is no regex
                # or if the regex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     ta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11502	11607	
==>::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11502	11607	
==>::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11502	11607	
==>::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die " <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17174	17316	
==>eop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17453	17595	
==>eop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8390	8482	
==>s, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
pus <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2215	2307	
==>s, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
pus <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29023	29118	
==>es which wrap zero old attributes (they are effectively just an
extension of the relation).

=it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33575	33670	
==>es which wrap zero old attributes (they are effectively just an
extension of the relation).

=it <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32712	32807	
==>es which wrap zero old attributes (they are effectively just an
extension of the relation).

=it <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2878	2994	
==>ugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3035	3151	
==>ugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2878	2994	
==>ugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3035	3151	
==>ugs Contributors.

Pugs is free software; you can redistribute it and/or modify it under
the terms of either:

    a) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3108	3320	
==>er' => 'block'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6248	6353	
==>::Rule 

  # low level operators

  # Domain-specific-language-like syntax, contained in a package

### ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6035	6137	
==>::Rule 
  # low level operators
  # Domain-specific-language-like syntax, contained in a package
### ru <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6431	6530	
==>$fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4323	4454	
==>F
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4323	4454	
==>F
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4323	4454	
==>F
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2425	2539	
==>S.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys doe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2425	2539	
==>S.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys doe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2425	2539	
==>S.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys doe <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3324	3415	
==>urn undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Ha <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40521	40618	
==>hat it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABIL <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26035	26132	
==>hat it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABIL <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40521	40618	
==>hat it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABIL <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26035	26132	
==>hat it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABIL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8318	8431	
==>rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n" .
    #       emit_ru <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	23	133	
==>rict;
use warnings;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	470	574	
==>e called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_subma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	470	574	
==>e called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_subma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16155	16254	
==>LTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16155	16254	
==>LTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16155	16254	
==>LTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	599	704	
==>man <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	599	704	
==>man <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expor <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	599	704	
==>man <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expor <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	132	233	
==>->STORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$ <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	565	656	
==>er,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi metho <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22823	22914	
==>lass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<Th <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	565	656	
==>er,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi metho <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22823	22914	
==>lass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<Th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17676	17830	
==>\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17955	18109	
==>\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2241	2335	
==>iedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2241	2335	
==>iedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is <==
4	/Users/nnunley/pugs/util/package-osx.pl	4931	5028	
==>12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/local/man/man3/Perl6::Bible: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3364	3459	
==>this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3364	3459	
==>this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

= <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3444	3539	
==>this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

= <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9471	9578	
==>rt... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9471	9578	
==>rt... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2071	2165	
==>> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2160	2254	
==>> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses th <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10724	10865	
==>rocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7065	7206	
==>rocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7914	8055	
==>rocessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper: <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6570	6668	
==>$kernel_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local };

s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9147	9293	
==>panded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5290	5403	
==>ub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5290	5403	
==>ub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5290	5403	
==>ub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $n <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3770	4112	
==>$fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh. <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3813	4155	
==>$fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh. <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3770	4112	
==>$fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh. <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3813	4155	
==>$fh.readline;
                            }                          
                            %events<end_element>('paragraph');
                        }
                        else {
                            %events<newline>();
                        }
                    }
                }
            } 
        }
    }
    $fh. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2114	2319	
==>cription,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	608	739	
==>ethod = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'C <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	608	739	
==>ethod = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'C <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	663	763	
==>nalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1985	2098	
==>seful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1985	2098	
==>seful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1985	2098	
==>seful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4872	4974	
==>> $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4872	4974	
==>> $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	918	1012	
==>y define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	918	1012	
==>y define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18932	19104	
==>other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18932	19104	
==>other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18932	19104	
==>other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied ar <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24202	24318	
==>see 15.1.3
      <uriAlpha>
    | <DecimalDigit>
    | <uriMark>
}
rule uriEscaped {  # see 15.1.3
      <'%'> <HexDi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4529	4682	
==>ift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        sto <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3707	3812	
==>== 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3707	3812	
==>== 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3707	3812	
==>== 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  retu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2527	2613	
==>copied from S29draft.pod r8649.
&Array::pop := &Array::splice.assuming(:offset(-1) :len <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6318	6454	
==>ethod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6318	6454	
==>ethod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6318	6454	
==>ethod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4021	4146	
==>ne'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4214	4339	
==>ne'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub { <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38729	38823	
==>e replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38729	38823	
==>e replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3406	3757	
==>< $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3406	3757	
==>< $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4558	4653	
==>atch string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=hea <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4558	4653	
==>atch string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=hea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14784	14887	
==>s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14784	14887	
==>s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14784	14887	
==>s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2930	3030	
==>sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1826	1937	
==>->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1826	1937	
==>->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1826	1937	
==>->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15190	15299	
==>r => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $h <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12823	12972	
==>yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2325	2457	
==>recomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2325	2457	
==>recomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2325	2457	
==>recomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4924	5042	
==>iles(package => $pkg) ) {
        unless (-e $index) {
            # create the directory an index file lives in (ignor <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4088	4200	
==>del_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4088	4200	
==>del_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4088	4200	
==>del_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3716	3818	
==>rn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3716	3818	
==>rn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3716	3818	
==>rn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	655	760	
==>fer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	655	760	
==>fer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	655	760	
==>fer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1689	1790	
==>/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashsc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	313	451	
==>ameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)* <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	313	451	
==>ameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)* <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20244	20342	
==>y to maintain and
and easy for developers to study.  As a result, while it performs correctly
and r <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20244	20342	
==>y to maintain and
and easy for developers to study.  As a result, while it performs correctly
and r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10411	10570	
==>:CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10411	10570	
==>:CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10411	10570	
==>:CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21014	21127	
==>y"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padarray <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1271	1376	
==>t(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1271	1376	
==>t(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1271	1376	
==>t(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4999	5103	
==>iler::Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18597	18841	
==>($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	666	768	
==>0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	666	768	
==>0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	666	768	
==>0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PP <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1533	1656	
==>ined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1533	1656	
==>ined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	32	137	
==>.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callb <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	32	137	
==>.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callb <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1446	1540	
==>ng the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1446	1540	
==>ng the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1096	1244	
==>s Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.aut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1096	1244	
==>s Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.aut <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19513	19648	
==>v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15934	16069	
==>v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $ <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1301	1404	
==>andom (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1818	1910	
==>sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1818	1910	
==>sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1818	1910	
==>sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EO <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2255	2380	
==>ct__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2802	2927	
==>ct__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3349	3474	
==>ct__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7056	7147	
==>tch $m --> Match) is parsed(rx:perl5/<simple_call>/) {$m}

multi infix:<*> ($a,$b) {...}
mul <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8136	8247	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _norma <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8528	8639	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _norma <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8136	8247	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _norma <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8528	8639	
==>: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $span1) = _norma <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	379	502	
==>int
main(int ac, char **av)
{
    int i;
#ifdef __BORLANDC__
    char *s = GetCommandLine();
    int j=0;
    av[0] = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3834	3966	
==>me"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1249	1362	
==>Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  ,' <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4399	4509	
==>Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4399	4509	
==>Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3829	3950	
==>iler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { array => "\@" . $_[0]->() <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11431	11549	
==>ETH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11431	11549	
==>ETH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1847	1938	
==>--------------------------------------------------------------------------
.
    }
}

1;

__ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10752	10859	
==>inator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharacter>
}
rule Regula <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7527	7669	
==>2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2680	2790	
==>($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2680	2790	
==>($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2680	2790	
==>($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7475	7587	
==>eturn "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7475	7587	
==>eturn "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14277	14373	
==>g an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14277	14373	
==>g an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3621	3824	
==>ed($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3621	3824	
==>ed($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14784	14925	
==>";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14784	14925	
==>";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connec <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7744	7862	
==>$arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	737	850	
==>rtList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	737	850	
==>rtList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	737	850	
==>rtList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1318	1456	
==>("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1318	1456	
==>("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1318	1456	
==>("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16415	16502	
==>tion went with this attribute when it's declared"
$::Class->add_method('find_attribute_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16415	16502	
==>tion went with this attribute when it's declared"
$::Class->add_method('find_attribute_s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16415	16502	
==>tion went with this attribute when it's declared"
$::Class->add_method('find_attribute_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14560	14685	
==>-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14560	14685	
==>-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14560	14685	
==>-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33699	33789	
==>vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation::Example> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3074	3215	
==>FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3291	3432	
==>FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19300	19396	
==>ved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND E <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19300	19396	
==>ved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2055	2174	
==>to, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2055	2174	
==>to, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2055	2174	
==>to, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11962	12088	
==>rver,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11962	12088	
==>rver,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handle <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8345	8467	
==>)\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8345	8467	
==>)\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7277	7385	
==>urn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7277	7385	
==>urn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7277	7385	
==>urn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3392	3486	
==>ield_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_ord <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3126	3220	
==>claim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3184	3278	
==>claim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3392	3486	
==>ield_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_ord <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	35	136	
==>e modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	35	136	
==>e modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15325	15423	
==>>{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15325	15423	
==>>{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11943	12081	
==>$n = $_[0];
    # print "infix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	577	704	
==>_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	593	720	
==>_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	569	696	
==>_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4525	4724	
==>("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4525	4724	
==>("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7261	7357	
==>on-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7261	7357	
==>on-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	856	998	
==>ly},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy},
	       invocant      => $param->{in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28368	28456	
==>been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> say <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32920	33008	
==>been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> say <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32048	32136	
==>been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> say <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10007	10115	
==>sh());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10007	10115	
==>sh());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8914	9020	
==>available list
    ### and check if the package is available/provided by any installed pkg
    sub dependen <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10391	10497	
==>available list
    ### and check if the package is available/provided by any installed pkg
    sub dependen <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2021	2119	
==>4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (default <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4011	4109	
==>$self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2021	2119	
==>4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (default <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4011	4109	
==>$self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5059	5238	
==>return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4902	5072	
==>return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22364	22459	
==>ch
directories in your path that packages could be installed in.

Generally, when a program pack <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22364	22459	
==>ch
directories in your path that packages could be installed in.

Generally, when a program pack <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1170	1282	
==>p { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7656	7758	
==>,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7656	7758	
==>,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7656	7758	
==>,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2953	3049	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2953	3049	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2953	3049	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9005	9092	
==>rl 6 Operators: L<http://dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7384	7487	
==>om_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decreme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7384	7487	
==>om_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decreme <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7384	7487	
==>om_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decreme <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8411	8507	
==>don't care to intercept the building of the tree, you can use the
parse() method to explicitly bu <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	645	754	
==>se Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->ma <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3716	3825	
==>se Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	645	754	
==>se Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3716	3825	
==>se Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3317	3469	
==>) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown J <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3317	3469	
==>) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown J <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3317	3469	
==>) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown J <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	494	619	
==>okiesAdd($p,$v);
        }
    }
}

sub CookiesHeader() {
    my $header = '';
    for(%Cookies.keys) {
        $header ~= "Se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2896	3005	
==>y %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2896	3005	
==>y %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2896	3005	
==>y %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($con <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	656	757	
==>mpiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3727	3828	
==>mpiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	656	757	
==>mpiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3727	3828	
==>mpiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match = $rule->match <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4225	4354	
==>ith embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4225	4354	
==>ith embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4626	4738	
==>*@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4626	4738	
==>*@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5566	5691	
==>=~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6834	6959	
==>=~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5566	5691	
==>=~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6822	6947	
==>=~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    # $/
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3122	3244	
==>_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3122	3244	
==>_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3122	3244	
==>_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33777	33912	
==>::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33777	33912	
==>::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    f <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33777	33912	
==>::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2865	2988	
==>) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2865	2988	
==>) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array-> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2865	2988	
==>) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array-> <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	6811	6912	
==>mods{"P5"};
    #my sub warning($e){warn(Carp::longmess($e))};# XXX doesnt work yet.
    my sub warnin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7781	7917	
==>elf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7781	7917	
==>elf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7781	7917	
==>elf->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1964	2116	
==>_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ": <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	278	430	
==>_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1964	2116	
==>_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ": <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1964	2116	
==>_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    print ": <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2047	2142	
==>e name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any ta <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2047	2142	
==>e name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any ta <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33118	33206	
==>on>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37668	37756	
==>on>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12089	12204	
==>f needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<hand <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12089	12204	
==>f needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<hand <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18218	18315	
==>uch as
'error opening file', programs would have a harder time figuring out the
best way to deal w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18218	18315	
==>uch as
'error opening file', programs would have a harder time figuring out the
best way to deal w <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13099	13227	
==>id>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_tot <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	15031	15127	
==>mijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18508	18604	
==>mijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17924	18020	
==>mijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7253	7428	
==>tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7253	7428	
==>tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7253	7428	
==>tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11421	11553	
==>':=' ) {
        #warn "bind: ", Dumper( $n );
        return " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs::Runtime::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4769	4896	
==>L::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4769	4896	
==>L::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4769	4896	
==>L::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21786	21952	
==>ses => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21786	21952	
==>ses => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21786	21952	
==>ses => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $:: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3464	3567	
==>se" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
tr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13914	14035	
==>if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13914	14035	
==>if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10518	10615	
==>ou can pass them through this function. This is primarily a release
tool, but can be useful in oth <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10576	10673	
==>ou can pass them through this function. This is primarily a release
tool, but can be useful in oth <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	2238	2354	
==>::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::eval_yaml($code) };

            die <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4244	4355	
==>p', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4244	4355	
==>p', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1094	1205	
==>p', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19834	19929	
==>is constructed, and the object can
not be changed afterwards.

If you want something similar but <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24386	24481	
==>is constructed, and the object can
not be changed afterwards.

If you want something similar but <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22938	23033	
==>is constructed, and the object can
not be changed afterwards.

If you want something similar but <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1270	1363	
==>asier for programs to work with test results, we provide
Test::Harness::Straps.  Instead of pr <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5048	5188	
==>rom the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please remember to update t/pugsrun/11-safemode.t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34781	34880	
==>ad, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34781	34880	
==>ad, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @li <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34781	34880	
==>ad, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @li <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2945	3141	
==>m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2945	3141	
==>m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15982	16073	
==>ears, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15982	16073	
==>ears, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1769	1886	
==>$method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1769	1886	
==>$method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1769	1886	
==>$method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6142	6251	
==>t'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($nam <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29638	29733	
==>y attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34190	34285	
==>y attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33354	33449	
==>y attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or a <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48611	48695	
==>add_attribute', (symbol->new('$:authority') => attribute->new('$:authority' => 'str') <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1307	1422	
==>grave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntil <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1307	1422	
==>grave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntil <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	189	294	
==>ncipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfou <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	189	294	
==>ncipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17885	18067	
==>unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17885	18067	
==>unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17885	18067	
==>unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method-> <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22996	23093	
==>escapes.  (The source code to Perl's regex compiler does the
same thing.)

=item nparen

The numbe <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10471	10590	
==>[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10465	10584	
==>[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2739	2851	
==>fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2797	2909	
==>fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17812	17909	
==>l> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSIN <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17812	17909	
==>l> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSIN <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	62	158	
==>Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { <==
4	/Users/nnunley/pugs/inc/Module/Install/Base.pm	133	227	
==>Suspend handler for "redefined" warnings
BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6090	6224	
==>f data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6090	6224	
==>f data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1790	1906	
==>,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $statu <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1790	1906	
==>,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $statu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1197	1374	
==>res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1197	1374	
==>res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1197	1374	
==>res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $i <==
4	/Users/nnunley/pugs/util/testgraph.pl	543	637	
==>fh>);
undef $yamlfh;

my $tap = My::Model->new_with_struct(delete $data->{meat});
my $v = Test: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16122	16221	
==>miness with compiler. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1549	1652	
==>oes not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1549	1652	
==>oes not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1549	1652	
==>oes not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7877	8010	
==>nt_rule {
    return emit($_[0]);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # impleme <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1611	1718	
==>hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1611	1718	
==>hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1611	1718	
==>hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5884	5984	
==>{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5884	5984	
==>{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6474	6574	
==>{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0] <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3315	3407	
==>B::Utils->_version_to_number( version => $version );

Returns a proper module version, or '0. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1285	1382	
==>r(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1285	1382	
==>r(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1285	1382	
==>r(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2219	2315	
==>it creates a initrd and copies your pugs binary and the shared libraries
it needs on it. Finally, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4317	4432	
==>r) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4317	4432	
==>r) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4317	4432	
==>r) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3979	4082	
==>($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RBRACE, 'N' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4043	4152	
==>" . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4043	4152	
==>" . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4043	4152	
==>" . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abo <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1708	1808	
==>it looks like early
# phase development.  There's a "return" halfway down the file to cut
# off const <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	130	257	
==>y $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	130	257	
==>y $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	130	257	
==>y $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub e <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	15722	15820	
==>nv is augmented to contain the new symbol introduced by the binding
# the body of the binding conta <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	28	128	
==>RENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	28	128	
==>RENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17957	18111	
==>eop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18236	18390	
==>eop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2179	2295	
==><if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2179	2295	
==><if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16531	16633	
==>lue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16531	16633	
==>lue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16531	16633	
==>lue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $ <==
4	/Users/nnunley/pugs/util/package-osx.pl	4074	4172	
==>ible::A12.3pm
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /usr/local/man/man3/Perl6:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12862	12973	
==>) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12862	12973	
==>) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $th <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12862	12973	
==>) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $th <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7511	7621	
==>+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6244	6347	
==>stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.siz <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6244	6347	
==>stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.siz <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7604	7695	
==>my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7604	7695	
==>my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(nor <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50798	50898	
==>= shift;
                $e->create('$identifier' => $e->get('$self:')->get_attr(symbol->new('$:name' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1010	1107	
==>s defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1010	1107	
==>s defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1010	1107	
==>s defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s { <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17270	17405	
==>onstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23236	23371	
==>onstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17549	17684	
==>onstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23515	23650	
==>onstant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_sta <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	111	212	
==>ib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extens <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	111	212	
==>ib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extens <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	111	212	
==>ib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extens <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	111	212	
==>ib, so that it will all get installed. This is
# needed to be able to build Haskell based Perl6 extens <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1634	1739	
==>rting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is defined in Pug <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10223	10318	
==>X - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10223	10318	
==>X - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10223	10318	
==>X - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	589	696	
==>7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	589	696	
==>7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	589	696	
==>7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22082	22179	
==>)

C<\b> was being turned into "b" inside a character class, instead of
a backspace.  (Mike Lamber <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16289	16492	
==>alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16568	16771	
==>alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	164	270	
==>turns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	164	270	
==>turns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	669	874	
==>ts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @ski <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	669	874	
==>ts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @ski <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5721	5848	
==>tch.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.c <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5721	5848	
==>tch.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.c <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1798	1895	
==>ti sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1798	1895	
==>ti sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Se <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3684	3767	
==>rsection( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closur <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3684	3767	
==>rsection( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6588	6694	
==>)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6588	6694	
==>)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6588	6694	
==>)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1709	1814	
==>en if it is non-empty.

Returns true on success, false on failure.

=cut

sub _rmdir {
    my $self = shif <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	705	801	
==>s).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=he <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	705	801	
==>s).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=he <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1261	1357	
==>s).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2893	3002	
==>>{fixity};
    #$fixity .= '_' . $opt->{assoc} if $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12961	13071	
==>thod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12961	13071	
==>thod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12961	13071	
==>thod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confe <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3896	3999	
==>:TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13163	13284	
==>re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or las <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13163	13284	
==>re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or las <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1760	1857	
==>ESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1760	1857	
==>ESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4805	4960	
==>/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4805	4960	
==>/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4805	4960	
==>/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9032	9138	
==>d integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurr <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9032	9138	
==>d integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurr <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1312	1412	
==>th, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1312	1412	
==>th, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

s <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	951	1050	
==>us;
}

sub Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
    my $sub = substr( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	533	627	
==>rlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	533	627	
==>rlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	533	627	
==>rlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1060	1214	
==>Sym('&f'),
							Val(2),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2), <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7446	7549	
==>=> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7446	7549	
==>=> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7446	7549	
==>=> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @v <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1219	1319	
==>shells have trouble with a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@tes <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4686	4785	
==>e test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test de <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4686	4785	
==>e test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6883	6982	
==>e test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test de <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1493	1600	
==>, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1700	1807	
==>, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prel <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	646	741	
==>.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo> <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	646	741	
==>.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5297	5473	
==>do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label")))) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7059	7235	
==>do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label")))) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5091	5195	
==>dence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7759	7863	
==>dence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	798	896	
==>two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/supers <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	798	896	
==>two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/supers <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21281	21373	
==>_perl),C) :- !,   (char_type(C,space) ; C = 11). %\v chr(11)
class_member(class_neg(space_per <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3985	4078	
==>?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35426	35519	
==>ref.

=item C<get_member_names()>

This method returns all Member Names elements in this objec <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35426	35519	
==>ref.

=item C<get_member_names()>

This method returns all Member Names elements in this objec <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3985	4078	
==>?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1497	1642	
==>q 'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                con <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8451	8561	
==>Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testpl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	649	747	
==>Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testpl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	649	747	
==>Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testpl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11757	11871	
==>r(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RB <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4400	4514	
==>r(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RB <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3886	3986	
==>normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3886	3986	
==>normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12174	12275	
==>e Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12174	12275	
==>e Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12174	12275	
==>e Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS <==
4	/Users/nnunley/pugs/util/package-osx.pl	8379	8476	
==>Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8393	8512	
==>greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8101	8216	
==>greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1219	1327	
==>~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1219	1327	
==>~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2323	2442	
==>descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        retur <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2323	2442	
==>descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        retur <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	10006	10108	
==>rator::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator::nary->new(list => type:: <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4203	4304	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3330	3431	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4203	4304	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3330	3431	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4243	4351	
==>ls];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4243	4351	
==>ls];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } el <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4243	4351	
==>ls];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } el <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2206	2321	
==>alf_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33764	33859	
==>p::AndBranch> example.  Let me explain what the
'&' metacharacter will mean.  If you've used F<v <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3454	3548	
==>-oriented; the procedural and functional 
interfaces are layers on top of the object-oriented b <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3454	3548	
==>-oriented; the procedural and functional 
interfaces are layers on top of the object-oriented b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2802	2891	
==>3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@va <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6254	6343	
==>3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2802	2891	
==>3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@va <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2802	2891	
==>3 = join(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3655	3773	
==>{
    return $depth if @_ and $_[0] eq -depth;
    carp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	67	185	
==>w[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->imp <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	72	190	
==>w[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->imp <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	72	190	
==>w[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->imp <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2151	2245	
==>for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2151	2245	
==>for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1269	1359	
==>ntinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> objec <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1269	1359	
==>ntinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> objec <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12046	12163	
==>en, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12046	12163	
==>en, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8873	8971	
==>I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to carry the same <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8579	8676	
==>I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to carry the same <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23663	23884	
==>ew();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23663	23884	
==>ew();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method e <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23663	23884	
==>ew();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method e <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4613	4718	
==>le(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  < <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35309	35407	
==>d will fail if any of its source Relations
have attributes in common; it will only accept inputs th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39859	39957	
==>d will fail if any of its source Relations
have attributes in common; it will only accept inputs th <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39419	39517	
==>d will fail if any of its source Relations
have attributes in common; it will only accept inputs th <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3310	3409	
==>return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8078	8177	
==>return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3310	3409	
==>return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8078	8177	
==>return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return <==
4	/Users/nnunley/pugs/util/package-osx.pl	8535	8662	
==>.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %change_files) = @_;
    for my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	568	678	
==>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	568	678	
==>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	568	678	
==>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7467	7564	
==>tamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  f <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1428	1527	
==>de $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1428	1527	
==>de $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() ! <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1428	1527	
==>de $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() ! <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1605	1747	
==>se {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1605	1747	
==>se {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ( <==
4	/Users/nnunley/pugs/util/package-osx.pl	14	120	
==>l

use strict;
use warnings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parrot| <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16267	16360	
==>RelationalExpression>
    | <EqualityExpression> <'=='> <RelationalExpression>
    | <Equality <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2363	2454	
==>eExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compil <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2363	2454	
==>eExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compil <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40515	40614	
==>hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANT <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26029	26128	
==>hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40515	40614	
==>hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANT <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26029	26128	
==>hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANT <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18336	18432	
==>n_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>() <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18336	18432	
==>n_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>() <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1186	1280	
==>so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective expor <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1186	1280	
==>so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective expor <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9493	9628	
==>lf->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{rx}->ob <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23741	23841	
==>r changed;
this class defaults it to False.

=back

This is the main Relation constructor method:

=o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28293	28393	
==>r changed;
this class defaults it to False.

=back

This is the main Relation constructor method:

=o <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	688	781	
==>ime - Base class for execution system (compiler + interpreter or equivalent).

=head1 SYNOPSIS <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15690	15790	
==>ar month day hour min sec picosec wday yday tzname tz is_dst>; # XXX: this should be a class variable <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8933	9031	
==>];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8933	9031	
==>];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8933	9031	
==>];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispat <==
4	/Users/nnunley/pugs/util/run-smoke.pl	2389	2481	
==>graph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testg <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1841	1973	
==>arams {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "Args must be a list";
    my $para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12087	12176	
==>e
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12087	12176	
==>e
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12087	12176	
==>e
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(ma <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13553	13671	
==>=> 1000);

    mkpath(my $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTM <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2941	3041	
==>m}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2941	3041	
==>m}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2941	3041	
==>m}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPar <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4188	4290	
==>%events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4233	4335	
==>%events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = s <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4188	4290	
==>%events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4233	4335	
==>%events<start_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6848	6953	
==>> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6848	6953	
==>> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6848	6953	
==>> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18244	18346	
==>ective here is to see if it is possible to use the regexp
struct as a new api into the guts of the perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11	106	
==>s here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11	106	
==>s here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11	106	
==>s here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1592	1678	
==>r::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)\(<?p6ws>?$<params>:=(<list> <==
4	/Users/nnunley/pugs/util/combine_tests.pl	688	818	
==>lts indexed on filename/number
    # into %sum
    #
    my %sum;
    my @revisions;
    for my $data (@_) {
        my $revision = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	330	420	
==>criptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	330	420	
==>criptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	330	420	
==>criptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7565	7672	
==>>{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7565	7672	
==>>{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7565	7672	
==>>{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padn <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4271	4379	
==>$self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        c <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4271	4379	
==>$self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13699	13799	
==>dard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17176	17276	
==>dard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11341	11484	
==>sub negate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21006	21106	
==>ltiple times.  The result of doing so,
it that only the last of these fields will be present in the h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21006	21106	
==>ltiple times.  The result of doing so,
it that only the last of these fields will be present in the h <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	30	120	
==>ie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

u <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27876	28032	
==>ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28155	28311	
==>ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12219	12334	
==>.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4862	4977	
==>.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12529	12666	
==>PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle nu <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12529	12666	
==>PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle nu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	914	1006	
==>nticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length Co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	914	1006	
==>nticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length Co <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4671	4790	
==>!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4729	4848	
==>!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &T <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6856	6969	
==>0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span- <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6856	6969	
==>0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3211	3348	
==>!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3211	3348	
==>!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1339	1480	
==>);
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1339	1480	
==>);
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1339	1480	
==>);
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5999	6104	
==>ata($_[0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   = <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8232	8333	
==>values;
}


# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20074	20163	
==>o_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20074	20163	
==>o_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20074	20163	
==>o_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5273	5412	
==>\@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5273	5412	
==>\@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5273	5412	
==>\@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4358	4468	
==>$xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4358	4468	
==>$xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4358	4468	
==>$xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	705	803	
==>$//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strptime($date, "%Y <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3795	3907	
==>fined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3795	3907	
==>fined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3795	3907	
==>fined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_e <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1679	1777	
==>set( $self.all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28712	28836	
==>ly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28712	28836	
==>ly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= ", <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28712	28836	
==>ly_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= ", <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19182	19274	
==>AILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_reason} <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	734	841	
==>de representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	734	841	
==>de representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	795	894	
==>)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	795	894	
==>)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worke <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6671	6761	
==>))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14175	14263	
==>Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( ha <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14175	14263	
==>Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( ha <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14175	14263	
==>Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( ha <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20026	20141	
==>"] = 1
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .return (s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	389	484	
==>.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	389	484	
==>.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	389	484	
==>.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Nu <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1915	2006	
==>ath = $Config{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22482	22579	
==>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socke <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21336	21433	
==>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22482	22579	
==>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socke <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21336	21433	
==>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
socke <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7938	8044	
==>cks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7950	8056	
==>cks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	974	1073	
==>ify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the sam <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	974	1073	
==>ify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the sam <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1320	1418	
==>Perl version '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spec->catdir($base, $bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	185	280	
==>his is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	185	280	
==>his is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	185	280	
==>his is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	517	688	
==>$token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	598	713	
==>source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	598	713	
==>source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	598	713	
==>source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $t <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3962	4064	
==>est way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of e <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3962	4064	
==>est way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4042	4144	
==>est way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of e <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27110	27206	
==>anged;
this class defaults it to False.

=back

This is the main Relation::Example constructor me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6604	6713	
==>d('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6604	6713	
==>d('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6604	6713	
==>d('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versio <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22034	22135	
==>s_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1199	1304	
==>ib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($ <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1199	1304	
==>ib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15752	15848	
==>_CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE AL <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15810	15906	
==>_CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE AL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13876	13988	
==>_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13876	13988	
==>_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13876	13988	
==>_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(su <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7847	7969	
==>( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13441	13563	
==>( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7847	7969	
==>( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13435	13557	
==>( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	823	930	
==>e bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	823	930	
==>e bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2084	2181	
==>ir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir') <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2084	2181	
==>ir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir') <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7758	7889	
==>nless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining b <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7758	7889	
==>nless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7282	7422	
==>bind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7282	7422	
==>bind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7282	7422	
==>bind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2078	2180	
==>urn quote(printable($node)),
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1103	1338	
==>t>),
                                Tree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>), <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	33	120	
==>s
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	33	120	
==>s
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(funct <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	33	120	
==>s
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(funct <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8648	8757	
==>s(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7617	7726	
==>s(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8648	8757	
==>s(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7617	7726	
==>s(42);
  say "The set contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $se <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	23	125	
==>ement is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my % <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	23	125	
==>ement is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my % <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2009	2104	
==>onent of the calling function's package name.  (For example, if 
a function in C<Some::Module> c <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2009	2104	
==>onent of the calling function's package name.  (For example, if 
a function in C<Some::Module> c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5361	5511	
==>essed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> ", map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_typ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7332	7425	
==>r operators: alternation, concatenation.

- "plain" match operators: like 'literal'.



Higher <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7082	7172	
==>r operators: alternation, concatenation.
- "plain" match operators: like 'literal'.

Higher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17257	17360	
==>.... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17257	17360	
==>.... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17257	17360	
==>.... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5656	5758	
==>e( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5656	5758	
==>e( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5656	5758	
==>e( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9862	9983	
==>t:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37587	37703	
==>:numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37587	37703	
==>:numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37587	37703	
==>:numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1000	1143	
==>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1000	1143	
==>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1000	1143	
==>env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5	101	
==>r/bin/perl

use strict;
use warnings;

use Perl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	299	422	
==>unction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	299	422	
==>unction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	299	422	
==>unction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self-> <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6943	7046	
==>h Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PI <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1436	1546	
==>hlib     => $config); 
    add_path(installprivlib     => $config); 
    add_path(installsitearch    => $config <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	436	535	
==>t BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrli <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	436	535	
==>t BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrli <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	436	535	
==>t BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrli <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3195	3304	
==>' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3195	3304	
==>' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3195	3304	
==>' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6195	6301	
==>x:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (S <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5325	5431	
==>x:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6195	6301	
==>x:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5325	5431	
==>x:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27355	27463	
==>-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects for Perl 5 r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11480	11570	
==>the Role specifc
code to the class that consumed it.

------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11480	11570	
==>the Role specifc
code to the class that consumed it.

------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11480	11570	
==>the Role specifc
code to the class that consumed it.

------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7360	7475	
==>ay so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_tem <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7360	7475	
==>ay so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_tem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13930	14032	
==>ource;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_h <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13930	14032	
==>ource;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_h <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1945	2059	
==>ub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_win32} = ( $^O =~ /^( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	942	1031	
==>use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	942	1031	
==>use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	942	1031	
==>use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18027	18255	
==>et_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18027	18255	
==>et_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18027	18255	
==>et_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        : <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1984	2083	
==>$Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1 <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1984	2083	
==>$Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7978	8076	
==>door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7978	8076	
==>door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This m <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17706	17883	
==>ethod::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ), <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19464	19641	
==>ethod::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ), <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39916	40092	
==>ethod::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ), <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40975	41151	
==>ethod::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ), <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2851	2991	
==>rsion;
    ### special perl, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load the config        
        requi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	153	265	
==>ount++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	153	265	
==>ount++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	153	265	
==>ount++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1578	1679	
==>ym("name"); # returns $value

    $self->leave_scope; # deletes pads since last enter_scope

=head1 DE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2943	3055	
==>". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2943	3055	
==>". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2943	3055	
==>". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10656	10753	
==>\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = $cod <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9335	9459	
==>Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   } <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	731	854	
==>Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	444	545	
==>or::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	444	545	
==>or::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17250	17339	
==>6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1) <==
4	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	58	147	
==>non-runnable module - use 'pil2_json_emit_<language>.p6' instead

  ../../pugs -CPIL2-JSON <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17250	17339	
==>6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17250	17339	
==>6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4110	4219	
==>file => { required => 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_err <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4178	4273	
==>s )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4178	4273	
==>s )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opt <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5702	5797	
==>s )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The opt <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3705	3824	
==>le =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitilde\{\}/g;
#    $file =~ s/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	54	165	
==>sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	54	165	
==>sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	54	165	
==>sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19255	19355	
==>sentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23807	23907	
==>sentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wher <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22323	22423	
==>sentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, wher <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5203	5306	
==>e data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5203	5306	
==>e data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells t <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	454	578	
==>l YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	997	1093	
==>yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	997	1093	
==>yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	997	1093	
==>yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5474	5587	
==>g and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2135	2246	
==>t" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2135	2246	
==>t" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5299	5409	
==>g and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13316	13435	
==>_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13316	13435	
==>_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13316	13435	
==>_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1309	1426	
==>int "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4741	4841	
==>x:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3868	3968	
==>x:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4741	4841	
==>x:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3868	3968	
==>x:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5660	5787	
==>= $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$bound <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5660	5787	
==>= $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$bound <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17235	17333	
==>n that, we can do anything we want with it.
This is perhaps the most flexible place to allocate lar <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22335	22433	
==>n that, we can do anything we want with it.
This is perhaps the most flexible place to allocate lar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8945	9083	
==>boxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8945	9083	
==>boxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8945	9083	
==>boxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method <==
4	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	53	158	
==>r $name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Module - A Sample Module fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9730	9852	
==>_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path} <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9730	9852	
==>_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path} <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	346	450	
==>_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	346	450	
==>_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15149	15262	
==>= map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15149	15262	
==>= map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15149	15262	
==>= map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6 <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12190	12304	
==>hift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = shift;
    push @{ $self->{ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36193	36289	
==>ple of the <$other> relation,
then where each member of a tuple pair has attribute names in commo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40742	40838	
==>ple of the <$other> relation,
then where each member of a tuple pair has attribute names in commo <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40356	40452	
==>ple of the <$other> relation,
then where each member of a tuple pair has attribute names in commo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17957	18119	
==>$self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17957	18119	
==>$self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17957	18119	
==>$self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2014	2128	
==>module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
>   No stain ye <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6649	6808	
==>URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6649	6808	
==>URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8188	8282	
==>line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is foun <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8188	8282	
==>line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is foun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2915	3036	
==>is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2915	3036	
==>is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2915	3036	
==>is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) { <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7941	8045	
==>urns the full command line that will be run to test I<$file>.

=cut

sub _command_line {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1689	1877	
==>_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method exp <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1689	1877	
==>_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method exp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6818	6946	
==>block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7011	7139	
==>block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6218	6333	
==>ch->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6218	6333	
==>ch->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	21	114	
==>::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: Rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	21	114	
==>::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: Rule <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8627	8730	
==>DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2685	2796	
==>CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2685	2796	
==>CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6690	6786	
==>d ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6748	6844	
==>d ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1924	2039	
==>efile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{in <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1924	2039	
==>efile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	468	576	
==>event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	468	576	
==>event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - % <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	618	729	
==>rn;
    goto &$autoload;
}

#line 76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19994	20083	
==>o_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19994	20083	
==>o_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19994	20083	
==>o_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	340	450	
==>s } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasse <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	515	621	
==>x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) !! <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3000	3100	
==>=== $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6477	6577	
==>=== $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1293	1403	
==>lf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1293	1403	
==>lf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1293	1403	
==>lf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20724	20823	
==>Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the p <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20724	20823	
==>Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	842	959	
==>nd',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requir <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	842	959	
==>nd',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requir <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1885	2002	
==>install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7996	8105	
==>um;
    # ...
  }

If you want to see if an error is a particular error, see
L</"ERROR HANDLING">.

=head2 Ins <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14640	14773	
==>, 2005; "pre-Gregorian dates are inaccurate" - GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NOTE 1-ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31456	31568	
==>warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31456	31568	
==>warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31456	31568	
==>warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	312	420	
==>method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi m <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	312	420	
==>method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi m <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10797	10890	
==>e returns Str>

=item B<content_length returns Str>

=back

B<The following informational func <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10797	10890	
==>e returns Str>

=item B<content_length returns Str>

=back

B<The following informational func <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12392	12566	
==>:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.c <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12392	12566	
==>:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.c <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4464	4560	
==>The following methods are available for Date objects:

- `year()`

Returns the year for the objec <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4464	4560	
==>The following methods are available for Date objects:

- `year()`

Returns the year for the objec <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6285	6383	
==>($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a col <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6285	6383	
==>($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a col <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15585	15679	
==>mation details, or their technical
skills.  For example, a native French or Chinese speaker oft <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15585	15679	
==>mation details, or their technical
skills.  For example, a native French or Chinese speaker oft <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5324	5449	
==>,Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ /^v5/ ) {
                return "warn 'use v5 - not implemented' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	473	587	
==>CE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	473	587	
==>CE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	473	587	
==>CE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1182	1359	
==>today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1182	1359	
==>today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	511	641	
==>ffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_bl <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	511	641	
==>ffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9820	9946	
==>os, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9820	9946	
==>os, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9820	9946	
==>os, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $s <==
4	/Users/nnunley/pugs/util/package-osx.pl	3956	4053	
==>/man/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/loc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4667	4764	
==>= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.proj <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8144	8241	
==>= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.proj <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6101	6202	
==>ocument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6101	6202	
==>ocument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3980	4075	
==>> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = " <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3980	4075	
==>> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = " <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2920	3037	
==>pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = jo <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2920	3037	
==>pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = jo <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	129	233	
==>.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ---------------- <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	129	233	
==>.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ---------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6829	6955	
==>p);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6829	6955	
==>p);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6829	6955	
==>p);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step = <==
4	/Users/nnunley/pugs/util/package-osx.pl	8469	8566	
==>an3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run.3
        /usr/local/man/man3/P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20295	20404	
==>f, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20295	20404	
==>f, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to mak <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20295	20404	
==>f, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to mak <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1254	1342	
==>"\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(' <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3871	3992	
==>ge}/bin";
    
        my @bins;
        print "\nRelinking scripts/manpages to $new_alt->{package}...\n";
        for ( q <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13562	13657	
==>ULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13562	13657	
==>ULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13562	13657	
==>ULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9191	9316	
==>n = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(), <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1319	1436	
==>n = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(), <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1319	1436	
==>n = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(), <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13898	14001	
==>hod CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	320	438	
==>ss defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               d <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	320	438	
==>ss defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8477	8572	
==>e has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8477	8572	
==>e has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3020	3120	
==>ents is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <AR <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3020	3120	
==>ents is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <AR <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9604	9700	
==>od _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9604	9700	
==>od _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8775	8892	
==>unc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8775	8892	
==>unc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8775	8892	
==>unc(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1772	1893	
==>cument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1772	1893	
==>cument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1772	1893	
==>cument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub J <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3271	3379	
==>adians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / (2*p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2900	2997	
==>f the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2900	2997	
==>f the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33511	33602	
==>is method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38061	38152	
==>is method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4189	4289	
==>r error(Params::Check->last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    my $conte <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1121	1219	
==>4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B< <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1121	1219	
==>4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1668	1766	
==>4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B< <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8699	8841	
==>t_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5677	5783	
==>ME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # bec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5677	5783	
==>ME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # bec <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5677	5783	
==>ME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # bec <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19406	19515	
==>gnmentExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <Varia <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	164	267	
==>acks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	164	267	
==>acks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	164	267	
==>acks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5991	6091	
==>len-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5991	6091	
==>len-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5991	6091	
==>len-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1446	1544	
==>1::Root";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single nati <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	724	853	
==>= $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4601	4697	
==>(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4601	4697	
==>(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4601	4697	
==>(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4079	4193	
==>or in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
su <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4928	5042	
==>or in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
su <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5197	5296	
==>])->new('$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39189	39323	
==>@_;
    if ($cc) {
      # character class specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4930	5020	
==>Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4930	5020	
==>Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4930	5020	
==>Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8108	8248	
==>),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr( <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8108	8248	
==>),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr( <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4904	5003	
==>d also be suitable for one-liners.  If
you need more control or access to the header fields in the r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4904	5003	
==>d also be suitable for one-liners.  If
you need more control or access to the header fields in the r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8860	8955	
==>& Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

Thi <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3789	3884	
==>& Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

Thi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8860	8955	
==>& Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

Thi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3789	3884	
==>& Sons, Inc.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>.

Thi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	176	284	
==>as $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	176	284	
==>as $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3556	3648	
==>s of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=bac <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3556	3648	
==>s of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	150	286	
==>&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallb <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	192	328	
==>&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallb <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	150	286	
==>&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallb <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	192	328	
==>&array,
    '%{}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11971	12095	
==>bug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the server if neede <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11971	12095	
==>bug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the server if neede <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11150	11270	
==>bug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the server if neede <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11150	11270	
==>bug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the server if neede <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3811	3962	
==>an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3811	3962	
==>an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3811	3962	
==>an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$s <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	799	897	
==>ll Module::Install core packages now require synchronised versions.
    # This will be used to ensu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2793	2904	
==>.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2793	2904	
==>.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if de <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2793	2904	
==>.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if de <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13494	13580	
==>s="tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="tests_unexp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1464	1633	
==>tion')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <UR <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1464	1633	
==>tion')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <UR <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15089	15196	
==>> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15089	15196	
==>> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5769	5922	
==>he class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5769	5922	
==>he class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5769	5922	
==>he class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add m <==
4	/Users/nnunley/pugs/util/grokprims.pl	518	629	
==>*)\)/ or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16957	17109	
==>nge);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13378	13530	
==>nge);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ <==
4	/Users/nnunley/pugs/misc/S29_round.pl	4922	5049	
==>ound_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	return <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4092	4183	
==>--------------------------------------------------------
## NOTE:
## code in this section ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4092	4183	
==>--------------------------------------------------------
## NOTE:
## code in this section ha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4092	4183	
==>--------------------------------------------------------
## NOTE:
## code in this section ha <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	269	452	
==>def
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22074	22183	
==>RL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't k <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16975	17083	
==>RL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't k <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	420	523	
==>ne, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference - ∖ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	420	523	
==>ne, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference - ∖ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6060	6188	
==>' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_call: ", Dumper( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1400	1507	
==>r(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1400	1507	
==>r(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1400	1507	
==>r(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17133	17271	
==>ick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", " <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17133	17271	
==>ick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", " <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1825	1921	
==>d intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1825	1921	
==>d intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18815	18918	
==>oduce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18815	18918	
==>oduce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2541	2639	
==>my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(sub{sub{undef}} <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	622	719	
==>suggest performance is quite plausible.

# Next steps:

# Create a clean backtracking library (bas <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2324	2421	
==>atches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matche <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2324	2421	
==>atches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2404	2501	
==>atches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matche <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23047	23131	
==>turn;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1756	1878	
==>),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1756	1878	
==>),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1756	1878	
==>),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($se <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1995	2114	
==>se
        # if at all.

        # the default Event/Subscriber pair really means that all notifications are sent everyw <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6925	7045	
==>>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6925	7045	
==>>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6925	7045	
==>>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::co <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11388	11486	
==>ve
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5367	5475	
==>MES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5367	5475	
==>MES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (s <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	52	157	
==>or {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_role = ::Getopt::Arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3262	3373	
==>Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3262	3373	
==>Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3262	3373	
==>Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1681	1789	
==>f $@;

	return $func;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "c <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12149	12254	
==>s (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an optional <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16729	16834	
==>s (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an optional <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12149	12254	
==>s (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an optional <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16729	16834	
==>s (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an optional <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1925	2028	
==>b test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join( <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1925	2028	
==>b test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2005	2108	
==>b test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join( <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	458	568	
==>file    $Repoindex  $Repodir    $Metaext

            package_prefix  package_authority   package_name  package <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28606	28702	
==>te names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33158	33254	
==>te names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32286	32382	
==>te names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribu <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9856	9947	
==>o m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_m",%mods,$pat, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13512	13628	
==>attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13512	13628	
==>attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13512	13628	
==>attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5225	5337	
==>ails->{ok} ) && defined( $details->{actual_ok} ) );

            # We don't want these to be undef because they a <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3362	3460	
==>ompile(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <variable> <p6ws>? \, <p6ws>?
    $<c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1152	1247	
==>will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1152	1247	
==>will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1152	1247	
==>will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-P <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12605	12723	
==>ns #).

=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comme <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6124	6222	
==>$self->{data}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5484	5579	
==>ations in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5484	5579	
==>ations in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3894	3995	
==>piler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.v <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4227	4328	
==>piler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3894	3995	
==>piler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.v <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4227	4328	
==>piler::PIL::PIL $.right;
    submethod BUILD () {
        type_check $.left.vtype, 'LValue', $.right.v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	480	580	
==>l5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	480	580	
==>l5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	480	580	
==>l5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $nam <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2376	2474	
==>o
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmet <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	378	483	
==>_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our defa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	378	483	
==>_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our defa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	378	483	
==>_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our defa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9819	9954	
==>ith arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particula <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7759	7894	
==>ith arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particula <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9819	9954	
==>ith arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particula <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7759	7894	
==>ith arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2,3] -# [1,2,6])    # 3        (in no particula <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18288	18389	
==>rmat between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18288	18389	
==>rmat between Rosetta::Model and other Perl code such as persistence
solutions.  Moreover, these data s <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13193	13293	
==>rmat between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data s <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13193	13293	
==>rmat between
Rosetta::Model and other Perl code such as persistence solutions.
Moreover, these data s <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	598	731	
==>le( $Available );
        if ( grep { $_->{package} eq $path } @list ) {
            warn "$path is already installed"; 
            n <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1122	1231	
==>leted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1122	1231	
==>leted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1122	1231	
==>leted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11940	12060	
==>y ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11940	12060	
==>y ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Has <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11940	12060	
==>y ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Has <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7124	7217	
==>}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation::Exampl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3815	4050	
==>, 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3815	4050	
==>, 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.sp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7046	7163	
==>me"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7046	7163	
==>me"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7937	8046	
==>each (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7937	8046	
==>each (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7937	8046	
==>each (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseCl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4816	4917	
==>= shift;

	push @{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $se <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4113	4233	
==>s, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it wil <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4113	4233	
==>s, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it wil <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2145	2240	
==>ction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional inte <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2145	2240	
==>ction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional inte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7215	7323	
==>) - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7215	7323	
==>) - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7215	7323	
==>) - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n( <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	284	377	
==>reating an *event*
# getting the *subscriptions* for it, and converting them to *notifications <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	198	297	
==>od source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_f <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	198	297	
==>od source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_f <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9883	9980	
==>ulti *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Val <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9883	9980	
==>ulti *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Val <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18557	18675	
==>resents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18557	18675	
==>resents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18557	18675	
==>resents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class m <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	214	321	
==>atchable lookup (inheritance)
has Type @.supers;

multi method isa($self: Class $class) returns Bool {
    . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1583	1693	
==>ile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1583	1693	
==>ile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1583	1693	
==>ile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5635	5723	
==>= $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->struct_equiv => $sym) <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1847	1964	
==>ar.
#
#  Bugs:
#   * This grammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11611	11703	
==>'t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11611	11703	
==>'t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11611	11703	
==>'t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2246	2355	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2246	2355	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2246	2355	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28184	28276	
==>=item C<as_debug_string()>

This method returns a stringified version of this object which is <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35540	35632	
==>=item C<as_debug_string()>

This method returns a stringified version of this object which is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28184	28276	
==>=item C<as_debug_string()>

This method returns a stringified version of this object which is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35540	35632	
==>=item C<as_debug_string()>

This method returns a stringified version of this object which is <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1564	1677	
==>r $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1564	1677	
==>r $_base?) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' pa <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5878	5990	
==>r $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' pa <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5878	5990	
==>r $_base?) returns Str is export {
    # take a copy of our args here, maybe
    # replace this with 'is copy' pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2231	2358	
==>= $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2231	2358	
==>= $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2231	2358	
==>= $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1599	1688	
==>"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3966	4065	
==>PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pTy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3966	4065	
==>PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pTy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3966	4065	
==>PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pTy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3854	3959	
==>name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3854	3959	
==>name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3854	3959	
==>name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22: <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	474	568	
==>s/BasicTypechecking.pdf

# please note that this is nothingmuch's first article that he read fr <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	649	746	
==>ocument.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<sou <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	649	746	
==>ocument.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<sou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18727	18823	
==>nes before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statem <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18727	18823	
==>nes before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statem <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24613	24723	
==>edin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23377	23487	
==>edin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24613	24723	
==>edin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23377	23487	
==>edin>

The C<loggedin> event is fired when the bot has successfully logged in.

=head2 C<runloop>

The C<runloo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1967	2077	
==>urn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1967	2077	
==>urn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($se <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4320	4417	
==>2 %{}

When used as a hash reference, the match object returns named captures
as match objects, ke <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4320	4417	
==>2 %{}

When used as a hash reference, the match object returns named captures
as match objects, ke <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7281	7377	
==>nfix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7281	7377	
==>nfix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	220	327	
==>t ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	220	327	
==>t ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	220	327	
==>t ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TOD <==
4	/Users/nnunley/pugs/util/importgraph.pl	292	392	
==>Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout, <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1591	1701	
==>>\>  \:\=  <construct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <construct>  }
rule numbered_scala <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13650	13759	
==>r!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17127	17236	
==>r!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $ot <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16489	16598	
==>r!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $ot <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4298	4403	
==>ix long doubles can have 2147483648 and 2147483648
        # that stringify to the same thing but are acut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36417	36515	
==>ngth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36417	36515	
==>ngth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36417	36515	
==>ngth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	191	294	
==>n") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	191	294	
==>n") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	191	294	
==>n") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11646	11749	
==>e() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11646	11749	
==>e() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11646	11749	
==>e() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$se <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2464	2570	
==>il/gen_prelude.pl -v -i src/perl6/Prelude.pm>,
                (map { ('-i' => $_) } @{ PugsBuild::Config-> <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	492	596	
==>um_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's I <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	492	596	
==>um_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's I <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14097	14191	
==>./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14097	14191	
==>./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  me <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38846	38941	
==>Duncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43660	43755	
==>Duncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43194	43289	
==>Duncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	449	549	
==>.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is succes <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	449	549	
==>.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is succes <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6138	6229	
==>normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6138	6229	
==>normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8932	9060	
==>{
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8932	9060	
==>{
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8932	9060	
==>{
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods = <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	429	516	
==>JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4813	5118	
==>nd_accum'),
                            Sym->new('&f'),
                            App->new(
                                Sym->new('&f'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2110	2225	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2110	2225	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2110	2225	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $l <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2221	2363	
==>ift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2221	2363	
==>ift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6421	6512	
==>.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6421	6512	
==>.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23881	24001	
==>\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20302	20422	
==>\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< i <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	806	905	
==>h( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::cat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	806	905	
==>h( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::cat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2509	2667	
==>er->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.rea <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6031	6163	
==>sh( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6031	6163	
==>sh( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6031	6163	
==>sh( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            ret <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2319	2455	
==>->Object::Accessor::new           :
            $args->{installation}   
                ? JIB::Package::Installed->Object::Accessor::new <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7242	7341	
==>r)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7242	7341	
==>r)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7242	7341	
==>r)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::ma <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1723	1828	
==>n refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1928	2033	
==>n refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instan <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1991	2096	
==>n refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instan <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18945	19040	
==>data> field points to the underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4318	4436	
==>nk are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Final <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4318	4436	
==>nk are on the
        # channel, as keys. Then, we delete all nicks we see as response from
        # the /NAMES. Final <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4829	4943	
==>nk are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Final <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4829	4943	
==>nk are on the channel, as
      # keys. Then, we delete all nicks we see as response from the /NAMES.
      # Final <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4088	4254	
==>urn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = e <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5409	5575	
==>urn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4088	4254	
==>urn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5397	5563	
==>urn constant( \$_[7][$index] )->(\@_);
            }";
            $code =~ s/^/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2641	2765	
==>(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2641	2765	
==>(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2641	2765	
==>(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++ <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5437	5542	
==>JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub To <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5076	5208	
==>_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5076	5208	
==>_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5076	5208	
==>_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1605	1699	
==>kemaker_args->{INST_SCRIPT} =
      File::Spec->catfile($path, "script");
    $self->makemaker_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17473	17575	
==>ot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC lib <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17473	17575	
==>ot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC lib <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	454	555	
==>0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	454	555	
==>0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	2491	2594	
==>desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2549	2652	
==>desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	534	638	
==>ers.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	534	638	
==>ers.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defin <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15756	15857	
==>This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main No <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15756	15857	
==>This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main No <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36845	36963	
==>s = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36845	36963	
==>s = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36845	36963	
==>s = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "un <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5633	5737	
==>two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4763	4867	
==>two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5633	5737	
==>two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4763	4867	
==>two) returns Set {
    $one.superset($two);
}

# look at all these great unicode operators!  :D
multi sub <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	951	1053	
==>st the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	951	1053	
==>st the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fro <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	951	1053	
==>st the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fro <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	69	170	
==>result of all the listed cookbook files
# to some expected set of results
# later it can be modifed to <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1207	1379	
==>]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$fie <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1207	1379	
==>]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$fie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5144	5241	
==>s($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5144	5241	
==>s($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	919	1041	
==>o more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1911	2013	
==>o you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1911	2013	
==>o you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, unde <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1911	2013	
==>o you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, unde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8933	9062	
==>lose F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-nam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	667	796	
==>lose F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8933	9062	
==>lose F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8933	9062	
==>lose F or die "Couldn't close \"$fn\": $!\n";
    my $dir = "-I$src_root/lib6";
    if ( $^O =~ /win/i ) {
        # fixes dir-nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	570	680	
==>p_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::p <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	570	680	
==>p_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11588	11677	
==>re `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-sty <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11646	11735	
==>re `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-sty <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2497	2611	
==>)?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2497	2611	
==>)?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8557	8668	
==>nting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Rec <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8557	8668	
==>nting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Rec <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2407	2596	
==>b {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2717	2900	
==>b {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2717	2900	
==>b {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  = <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7405	7511	
==>y ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7405	7511	
==>y ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7731	7833	
==>y ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7731	7833	
==>y ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10651	10779	
==>: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander cod <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6992	7120	
==>: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander cod <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7841	7969	
==>: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander cod <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	1822	1957	
==>(Str $code = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is safe is builtin {
        given lc $lang {
            when ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1043	1133	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1043	1133	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1043	1133	
==>L2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1742	1858	
==>sage?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1742	1858	
==>sage?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Co <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1742	1858	
==>sage?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Co <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6982	7071	
==>mple_call { <identifier><ws><expr>; }
macro statement_control:<a_call> (Match $m --> Match <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3535	3676	
==>to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3535	3676	
==>to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --com <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3535	3676	
==>to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --com <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1000	1114	
==>is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) retur <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1000	1114	
==>is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) retur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18286	18386	
==>ing out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I have <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18286	18386	
==>ing out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I have <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	122	221	
==>s $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	122	221	
==>s $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	122	221	
==>s $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2738	2864	
==>} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both kinds of requires into prer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1493	1596	
==>eturn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1493	1596	
==>eturn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (v <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1493	1596	
==>eturn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34098	34212	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatte <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34098	34212	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatte <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34098	34212	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatte <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5551	5657	
==>) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NA <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5551	5657	
==>) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NA <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3814	3918	
==>the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4031	4135	
==>the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7068	7178	
==>m>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!user <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7068	7178	
==>m>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!user <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21198	21291	
==>t> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21198	21291	
==>t> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8829	8949	
==>1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8829	8949	
==>1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8829	8949	
==>1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2432	2552	
==>ad2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2616	2736	
==>ad2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <na <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13891	13990	
==>lf->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8097	8196	
==>lf->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10825	10951	
==>$plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10825	10951	
==>$plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3183	3297	
==>} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3183	3297	
==>} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	813	917	
==>rser->export_to_level($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2186	2296	
==>JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Att <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2186	2296	
==>JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Att <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2186	2296	
==>JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Att <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22086	22192	
==>ock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <De <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2052	2260	
==>if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            mat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5619	5711	
==>(<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5619	5711	
==>(<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_n <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5619	5711	
==>(<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5595	5742	
==>ll')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5595	5742	
==>ll')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5595	5742	
==>ll')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4942	5030	
==>e(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range_greed(W,Min,Max,Z), !.
p6_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	916	1080	
==>> $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	916	1080	
==>> $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	916	1080	
==>> $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_c <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17317	17426	
==>"$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	420	516	
==>e based system, similar to what is described
in here (note: same author as the first scheme code) <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4150	4259	
==>r = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-lea <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1003	1100	
==>ssage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every lin <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1003	1100	
==>ssage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every lin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1559	1656	
==>ssage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every lin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3511	3687	
==>e} ) ) {

                    return unless defined $matches[0]{state};

                    @state = ( $matches[0]{state}, 0 );

                }

                ### backtrac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4440	4612	
==>e} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrac <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3401	3573	
==>e} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4440	4612	
==>e} ) ) {
                    return unless defined $matches[0]{state};
                    @state = ( $matches[0]{state}, 0 );
                }
                ### backtrac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16293	16414	
==>> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16293	16414	
==>> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6471	6566	
==>rmatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6471	6566	
==>rmatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37045	37141	
==>new('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10539	10622	
==>@{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10539	10622	
==>@{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10539	10622	
==>@{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasse <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12809	12907	
==>$set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9585	9683	
==>$set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12809	12907	
==>$set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9585	9683	
==>$set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has a <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13425	13550	
==>e_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isran <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	431	524	
==>t_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	392	485	
==>t_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	392	485	
==>t_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5787	5882	
==>', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5787	5882	
==>', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2686	2781	
==>', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11905	12002	
==>_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbs <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4983	5095	
==>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16019	16131	
==>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17507	17619	
==>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22190	22302	
==>{rx}->object(@{ $self->ender });
    unshift @$ws, sub { -1 }, @{ $self->{data} }, sub { +1 } if $d;
  }

  sub i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	506	615	
==>hod size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	506	615	
==>hod size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7260	7354	
==>been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7260	7354	
==>been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7223	7368	
==>n class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7223	7368	
==>n class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7223	7368	
==>n class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::C <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	162	286	
==>ue, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" }

	sub fmap {
		my $self = shift;
		my $f = shift;
		my $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12148	12245	
==>ee independently, use the root()
method to get it.  From there, you're on your own.  You'll probab <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17504	17599	
==>tory of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17504	17599	
==>tory of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14554	14678	
==>???
            'my $p6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3678	3781	
==>ediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3678	3781	
==>ediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(.. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3678	3781	
==>ediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(.. <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4577	4724	
==>};
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### remove this package from the available l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5511	5631	
==>{
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5511	5631	
==>{
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5511	5631	
==>{
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must pr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6136	6246	
==>Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $pr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9613	9723	
==>Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20950	21047	
==>kefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based mod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20950	21047	
==>kefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based mod <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1621	1742	
==>Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, d <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1621	1742	
==>Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3402	3505	
==>o \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<43 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3402	3505	
==>o \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<43 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4111	4217	
==>:FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4111	4217	
==>:FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4111	4217	
==>:FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22117	22209	
==>ic handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=ite <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20998	21090	
==>ic handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=ite <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22117	22209	
==>ic handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=ite <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20998	21090	
==>ic handlers.

=item C<object>

The nick/channel/whatever the message operated (varies).

=ite <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2412	2511	
==>config{'build_dir'}        = [ Path::Class::dir('root-') ];

### package files/extensions
$config{'m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4673	4755	
==>MS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4673	4755	
==>MS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4673	4755	
==>MS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9807	9907	
==>h == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9807	9907	
==>h == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9807	9907	
==>h == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13308	13405	
==>tion reaches into perlguts, which limits the range of
  perl versions it will work with, and raise <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7712	7828	
==>e aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7712	7828	
==>e aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patter <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7712	7828	
==>e aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patter <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23631	23730	
==>eElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <Functio <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9667	9832	
==>:Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	249	406	
==>:Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	249	406	
==>:Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	98	227	
==>w {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	98	227	
==>w {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	98	227	
==>w {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	3693	3788	
==>\n\n\n\n\n\n\n12th line\n11th line\n10th line\n".
        "9th line\n8th line\n7th line\n6th lin <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	247	413	
==>t"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	247	413	
==>t"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	272	368	
==>pass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_to <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	330	426	
==>pass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_to <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	378	632	
==>TY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	378	632	
==>TY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta: <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2991	3083	
==>ields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code, <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2991	3083	
==>ields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	522	643	
==>backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	522	643	
==>backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5265	5368	
==>ls{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAME <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5265	5368	
==>ls{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAME <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1324	1455	
==>& $block->isa('block'))
        || confess "OR takes a block";    
    if ($self == $FALSE) {
        $block->do();
        return $ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32207	32304	
==>icated tuples appear only once in
the result.  With any 2 relations, the result is the same regard <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36757	36854	
==>icated tuples appear only once in
the result.  With any 2 relations, the result is the same regard <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36047	36144	
==>icated tuples appear only once in
the result.  With any 2 relations, the result is the same regard <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	656	763	
==>}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	656	763	
==>}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	656	763	
==>}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27362	27453	
==>CE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MA <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	440	627	
==>hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_ME <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4273	4397	
==>indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4273	4397	
==>indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4273	4397	
==>indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2805	2905	
==>lass name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right y fo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7366	7480	
==>::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7366	7480	
==>::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7366	7480	
==>::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4149	4247	
==>esolve_type($node));
}

sub define_named_block {
	my $self = shift;
	my ($node, $symbol, $body, $ty <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	6564	6671	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10041	10148	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method u <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9133	9240	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method u <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15133	15235	
==>\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3230	3332	
==>ole->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3230	3332	
==>ole->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3230	3332	
==>ole->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::op <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1881	2003	
==>$features = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13305	13419	
==>s heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16782	16896	
==>s heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16144	16258	
==>s heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?S <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2820	2941	
==>ate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6196	6304	
==>)->code();

    sub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15236	15330	
==>t exist then C<undef> is returned.

Methods that deal with dates/times always convert their val <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15236	15330	
==>t exist then C<undef> is returned.

Methods that deal with dates/times always convert their val <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	583	688	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyLib::L::Eng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5783	5882	
==>::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5783	5882	
==>::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::un <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5783	5882	
==>::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::un <==
4	/Users/nnunley/pugs/util/version_h.pl	2366	2466	
==>e/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $version_h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21013	21109	
==>= '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21013	21109	
==>= '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21013	21109	
==>= '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULT <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2497	2622	
==>sub new {
    my $class = shift;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = '000' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4289	4393	
==>map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4289	4393	
==>map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4289	4393	
==>map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cx <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2761	2903	
==>abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2761	2903	
==>abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3024	3157	
==>() ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2908	3033	
==>() ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    re <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1564	1663	
==>our keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but se <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1564	1663	
==>our keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19673	19771	
==>somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is imm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24225	24323	
==>somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is imm <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2291	2403	
==>kemaker_args(
        INSTALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3849	3946	
==>>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3849	3946	
==>>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4439	4536	
==>>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15284	15421	
==>terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::captu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15563	15700	
==>terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::captu <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	450	545	
==>empfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	450	545	
==>empfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	239	363	
==>an;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	239	363	
==>an;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3559	3651	
==>mit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3743	3835	
==>mit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5926	6038	
==>copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1505	1617	
==>e $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstri <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5926	6038	
==>copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1505	1617	
==>e $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstri <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3394	3571	
==>e '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.r <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3394	3571	
==>e '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.r <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	65	161	
==>e constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flu <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	65	161	
==>e constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18433	18516	
==>$e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21692	21775	
==>$e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41698	41781	
==>$e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44599	44682	
==>$e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14293	14389	
==>C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string

= <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14293	14389	
==>C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5277	5384	
==>_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5277	5384	
==>_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5277	5384	
==>_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12726	12809	
==>ail(Name,Close), !, uncode_charname_to_char(Name,C), !.
p6_named_character_tail([],C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	352	456	
==>ond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	352	456	
==>ond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	352	456	
==>ond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1844	1937	
==>my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7890	8042	
==>ral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13484	13636	
==>ral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7890	8042	
==>ral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13478	13630	
==>ral "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12765	12906	
==>ss'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22992	23133	
==>ss'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26697	26838	
==>ss'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42595	42736	
==>ss'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4064	4177	
==>""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4064	4177	
==>""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4064	4177	
==>""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	844	951	
==>opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{name} . ' ' . $opt{n <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3418	3521	
==>ence($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric d <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3418	3521	
==>ence($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4736	4831	
==>AME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provide <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4876	4971	
==>AME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provide <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19860	19990	
==>e this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19860	19990	
==>e this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTR <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19860	19990	
==>e this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTR <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7920	8101	
==>pture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $na <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7920	8101	
==>pture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $na <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1531	1657	
==>.
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's ch <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1531	1657	
==>.
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's ch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17941	18076	
==>m )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17941	18076	
==>m )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17941	18076	
==>m )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	527	662	
==>+@:output;

        my $output = @:output.join( "\n" );
        @:output   = ();
        return $output;
    }

    method diagnostics r <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2805	2925	
==>ypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<e <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2805	2925	
==>ypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<e <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10024	10120	
==>ent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return - <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10024	10120	
==>ent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return - <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4277	4387	
==>ich has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4277	4387	
==>ich has the nicks, which we currently think are on the
        # channel, as keys. Then, we delete all nicks we <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4788	4896	
==>ich has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4788	4896	
==>ich has the nicks, which we currently think are on the channel, as
      # keys. Then, we delete all nicks we <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1806	1907	
==>l($ExtUtils::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1070	1170	
==>(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1070	1170	
==>(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1070	1170	
==>(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7900	8135	
==>art ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7900	8135	
==>art ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7900	8135	
==>art ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	402	576	
==>eatedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ), <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2509	2668	
==>leop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2520	2679	
==>leop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2226	2334	
==>ed
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2226	2334	
==>ed
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	626	766	
==>\n"),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO related buil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9281	9394	
==>ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9281	9394	
==>ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9281	9394	
==>ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_param <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45973	46142	
==>get('?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3814	3931	
==>, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requir <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3814	3931	
==>, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requir <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3814	3931	
==>, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4161	4273	
==>t so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4161	4273	
==>t so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fix <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4161	4273	
==>t so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fix <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	96	225	
==>4'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say 0^..^@a;   # '1234'

my @c = 1...;  # (1..Inf) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1771	1874	
==>r(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1771	1874	
==>r(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / N <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1771	1874	
==>r(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / N <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24100	24198	
==>d loops between a client automatically sending something
  in response to something it received.  T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22873	22971	
==>d loops between a client automatically sending something
  in response to something it received.  T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24100	24198	
==>d loops between a client automatically sending something
  in response to something it received.  T <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22873	22971	
==>d loops between a client automatically sending something
  in response to something it received.  T <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2497	2613	
==>tive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2497	2613	
==>tive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2497	2613	
==>tive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	451	540	
==>]{tree}[-1] }

use Regexp::Parser::Diagnostics;
use Regexp::Parser::Objects;
use Regexp::P <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17662	17827	
==>$fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1752	1880	
==>$obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1752	1880	
==>$obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cust <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1752	1880	
==>$obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cust <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8750	8863	
==>XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	48	142	
==>use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	48	142	
==>use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	48	142	
==>use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14068	14230	
==>attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14068	14230	
==>attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14068	14230	
==>attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	973	1106	
==>}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'equa <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4149	4250	
==>$one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3276	3377	
==>$one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4149	4250	
==>$one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3276	3377	
==>$one, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> ( <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3336	3458	
==>l/PugsConfig.pm.
-}

{-|
    Pugs System Configuration.

>   Alive without breath;
>   as cold as death;
>   never thirstin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2758	2863	
==>1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2758	2863	
==>1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fi <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2758	2863	
==>1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1908	2026	
==>code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '', <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3006	3124	
==>-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3484	3602	
==>-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subro <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1908	2026	
==>code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '', <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1862	1970	
==>t seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.deb <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1862	1970	
==>t seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.deb <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20265	20358	
==>add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot rec <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20265	20358	
==>add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot rec <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	384	482	
==>{ return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	384	482	
==>{ return Bool::True  }
method start_is_open   () { return Bool::False }
method end_is_closed   () { <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1397	1494	
==>{ return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1397	1494	
==>{ return Bool::True }
method start_is_open   () { return Bool::False }
method end_is_closed   () { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1821	1962	
==>des->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1760	1898	
==>des->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	809	937	
==>ool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_sta <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	809	937	
==>ool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3930	4032	
==>));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3930	4032	
==>));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3930	4032	
==>));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc( <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1653	1750	
==>e.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  T <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8955	9077	
==>IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGM <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	430	528	
==>le($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could not open $file in $dir\n");
		retur <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3459	3554	
==>er::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribu <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3459	3554	
==>er::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribu <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21539	21732	
==>,
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun => comb(
                fun => ide("length'" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3642	3748	
==>lass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3642	3748	
==>lass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3642	3748	
==>lass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2128	2254	
==>= 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3327	3428	
==>ass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3327	3428	
==>ass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3327	3428	
==>ass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method) <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	209	340	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only ca <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	207	338	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only ca <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14684	14775	
==>re always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14684	14775	
==>re always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4 <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3662	3911	
==>} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packa <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3662	3911	
==>} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packa <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15801	15910	
==>URLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->obje <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10657	10766	
==>URLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24334	24535	
==>boxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24334	24535	
==>boxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24334	24535	
==>boxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32025	32114	
==>ispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO.revers <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1367	1494	
==>) ) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2784	2894	
==>his should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2784	2894	
==>his should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2784	2894	
==>his should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4856	4954	
==>b *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compariso <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3983	4081	
==>b *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compariso <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4856	4954	
==>b *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compariso <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3983	4081	
==>b *infix:<%> (Set $one, Set $two) returns Set {
    $one.symmetric_difference($two);
}

# compariso <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13483	13604	
==>_syns {
    my $index = shift;

    my $p = Pod::PlainText->new(width => 1000);

    mkpath(my $syndir = catdir($output_di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18178	18271	
==>s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18178	18271	
==>s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18178	18271	
==>s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0 <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1660	1754	
==>to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file need <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1500	1594	
==>to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file need <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6096	6181	
==><users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~nor <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6096	6181	
==><users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~nor <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7943	8063	
==>s = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $disc <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7943	8063	
==>s = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $disc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13384	13501	
==>server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traf <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13384	13501	
==>server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traf <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22229	22335	
==>,
			param => ide("x"),
		),
		param => ide("nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify" <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11253	11342	
==>der::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail does T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1711	1798	
==>der::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1711	1798	
==>der::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6645	6743	
==>mplete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checkin <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6645	6743	
==>mplete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checkin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8252	8415	
==>$match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8252	8415	
==>$match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = s <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	94	192	
==>= Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3)) <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	94	192	
==>= Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3)) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1010	1105	
==>rrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1010	1105	
==>rrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1010	1105	
==>rrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14615	14717	
==>$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
} <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5959	6061	
==>types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "filling " . $self->display_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14615	14717	
==>$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14615	14717	
==>$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
} <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	2391	2494	
==>il/gen_prelude.pl                       --
------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13407	13504	
==>dir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13407	13504	
==>dir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13407	13504	
==>dir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pref <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3377	3482	
==>[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3377	3482	
==>[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21024	21117	
==>odule::Compile based modules
will automatically be compiled into .pmc files and shipped with y <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21024	21117	
==>odule::Compile based modules
will automatically be compiled into .pmc files and shipped with y <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19974	20070	
==>assword"> as a single string value.

When used to set the header value, it expects two arguments. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19974	20070	
==>assword"> as a single string value.

When used to set the header value, it expects two arguments. <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2612	2704	
==>pec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagically <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2612	2704	
==>pec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagically <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15623	15723	
==>DOUT and not $ENV{HARNESS_NOTTY} and not $Verbose;

    return($leader, $ml);
}

=item B<_leader_widt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14863	14977	
==>_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $dige <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14863	14977	
==>_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $dige <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2192	2286	
==>ince module names are typically 
capitalized, most "autotags" will be too.

When activated, the <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2192	2286	
==>ince module names are typically 
capitalized, most "autotags" will be too.

When activated, the <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6268	6368	
==>wo);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5398	5498	
==>wo);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6268	6368	
==>wo);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5398	5498	
==>wo);
}
multi sub *infix:«⊈» (Set $one, Set $two) returns Set {
    !$one.subset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11162	11359	
==>p && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11162	11359	
==>p && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythi <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11162	11359	
==>p && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythi <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2975	3071	
==>is file bridges between perl and Blondie, by providing implementations of
some math, string and I <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1614	1713	
==>s.  Its structure follows the spec.  If for
#  instance, your engine cannot handle left recursive ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4947	5042	
==>y dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4947	5042	
==>y dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4947	5042	
==>y dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	320	764	
==>53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	320	764	
==>53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7481	7579	
==>text (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7481	7579	
==>text (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	538	670	
==>y, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	538	670	
==>y, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	538	670	
==>y, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26127	26238	
==>gex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13805	13905	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13805	13905	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13805	13905	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2415	2523	
==>don't remember at the moment but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5481	5587	
==>tiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5481	5587	
==>tiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5481	5587	
==>tiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	158	261	
==>m grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Gramm <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	151	252	
==>m grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Gramm <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1107	1205	
==>le) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1107	1205	
==>le) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2364	2459	
==>ng(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2364	2459	
==>ng(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2364	2459	
==>ng(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b") <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1282	1371	
==>lf->declare($node) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is duplica <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8161	8304	
==>> 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8161	8304	
==>> 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27335	27432	
==>tributes; the new Relation has as
many additional attributes as there are pairs in the argument C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31887	31984	
==>tributes; the new Relation has as
many additional attributes as there are pairs in the argument C< <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7880	8012	
==>lated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13474	13606	
==>lated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7880	8012	
==>lated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13468	13600	
==>lated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5271	5408	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5464	5601	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2854	2964	
==>$url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # < <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2854	2964	
==>$url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # < <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5157	5263	
==>m *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5157	5263	
==>m *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5157	5263	
==>m *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum <==
4	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	93	217	
==>trict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildc <==
4	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	93	217	
==>trict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36279	36371	
==>invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation::Example <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4864	4970	
==>nfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	160	258	
==>given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	160	258	
==>given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	160	258	
==>given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPI <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2423	2553	
==>$i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2423	2553	
==>$i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2423	2553	
==>$i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $ <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	163	264	
==>node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi meth <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	163	264	
==>node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi meth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	41	132	
==>ammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	41	132	
==>ammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
us <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6317	6448	
==>= _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6592	6722	
==>= _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1040	1145	
==>w {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1040	1145	
==>w {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7754	7885	
==>n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaini <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7754	7885	
==>n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaini <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	309	425	
==>ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1167	1283	
==>ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_ <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8726	8832	
==>tr )
 multi  List::join (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1254	1351	
==>xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1254	1351	
==>xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1254	1351	
==>xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6417	6638	
==>'$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6417	6638	
==>'$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6417	6638	
==>'$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove t <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5018	5158	
==>v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pop <==
4	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	388	486	
==>h clarity, given the cruft
of wrapping a map and join around the macro string.  But perhaps there
s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7536	7632	
==>p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7536	7632	
==>p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7536	7632	
==>p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_t <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8460	8600	
==>ine based on Cabal version
        if ($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4253	4348	
==>f
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Outp <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4253	4348	
==>f
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Outp <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5777	5872	
==>f
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Outp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8871	9014	
==>ss attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8871	9014	
==>ss attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8871	9014	
==>ss attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next m <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5356	5461	
==>::Example $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4807	4956	
==>DO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4807	4956	
==>DO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4807	4956	
==>DO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8387	8500	
==>"$_[1] capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1092	1188	
==>BLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1092	1188	
==>BLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBB <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1092	1188	
==>BLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBB <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8716	8860	
==>turn $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experim <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8716	8860	
==>turn $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experim <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14360	14460	
==>will print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= F <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14418	14518	
==>will print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= F <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6326	6455	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8546	8657	
==>($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8546	8657	
==>($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8546	8657	
==>($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11674	11798	
==>r::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Build <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	724	848	
==>fix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => '*',
        assoc => 'left',
    ) <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2108	2220	
==>r::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Build <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2108	2220	
==>r::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Build <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11756	11876	
==>nc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $ENV{ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50872	50988	
==>t_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:version <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9242	9356	
==>-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9242	9356	
==>-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Head <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1196	1288	
==>regular expressions

=head1 VERSION

This document describes version 0.03 of re::override, re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2712	2831	
==>ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2712	2831	
==>ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.< <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5819	5918	
==>to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_conn <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5819	5918	
==>to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_conn <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	232	343	
==>newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	232	343	
==>newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	232	343	
==>newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	232	343	
==>newline'
);

sub parse (Str $filename, Hash %events is rw) returns Void is export {
    
    for @EVENTS -> $e { <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11570	11668	
==>em if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in t <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8717	8815	
==>em if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11570	11668	
==>em if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in t <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8717	8815	
==>em if it's in the set.

=head2 C<$set.size()>, C<$set.count()>

Returns the number of elements in t <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	431	550	
==>f ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	431	550	
==>f ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11712	11816	
==>res', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $disca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11712	11816	
==>res', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $disca <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5346	5486	
==>assed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1104	1217	
==>perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1104	1217	
==>perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) }) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1104	1217	
==>perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) }) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12461	12576	
==>ifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12461	12576	
==>ifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12461	12576	
==>ifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1005	1160	
==>defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    met <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1005	1160	
==>defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    met <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1219	1319	
==>age part of the Module is simply a hash from strings

(symbol names) to objects (containers)



the C <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1164	1261	
==>age part of the Module is simply a hash from strings
(symbol names) to objects (containers)

the C <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	83	196	
==>test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2650	2761	
==>\$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2650	2761	
==>\$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2650	2761	
==>\$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container t <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1947	2043	
==>with any tags, it will intuit one by extracting the 
last component of the calling function's pac <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	527	623	
==>:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Descript <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1947	2043	
==>with any tags, it will intuit one by extracting the 
last component of the calling function's pac <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	527	623	
==>:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Descript <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1345	1453	
==>mport')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$cla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1345	1453	
==>mport')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$cla <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	94	198	
==>--------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
h <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	94	198	
==>--------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3566	3692	
==>ue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4883	5009	
==>ue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3566	3692	
==>ue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $nam <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4871	4997	
==>ue = undef;
    # XXX - eval $name doesn't look up in user lexical pad
    # XXX - what &xxx interpolate to?
    
    if ( $nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	820	922	
==>hink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not af <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	820	922	
==>hink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not af <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	820	922	
==>hink "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not af <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11519	11615	
==>:More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Language::AttributeGrammar;

{
	# ple <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	11888	12060	
==>.@$details) {
                    next unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15437	15549	
==>sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16852	16964	
==>sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual { <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21608	21720	
==>sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15577	15749	
==>();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15577	15749	
==>();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15577	15749	
==>();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6:: <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3985	4117	
==>> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule inter <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17792	17905	
==>dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17792	17905	
==>dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17792	17905	
==>dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $metho <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	6784	6897	
==>ing for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($fil <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4237	4351	
==>%!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4237	4351	
==>%!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15312	15409	
==>s convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15312	15409	
==>s convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2278	2401	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9050	9173	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2278	2401	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9050	9173	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap { <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6660	6758	
==>x:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6660	6758	
==>x:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6660	6758	
==>x:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21081	21179	
==>ere's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
k <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19989	20087	
==>ere's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
k <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21081	21179	
==>ere's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
k <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19989	20087	
==>ere's only one key,
C<channels>, which is a hashref, which has the channels C<nick> has joined as
k <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16205	16319	
==>ified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16205	16319	
==>ified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4580	4682	
==>erence( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4580	4682	
==>erence( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recur <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2667	2775	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_e <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7761	7869	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2667	2775	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7761	7869	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_NO_HASH',
                { 'METH' => $meth, 'ARG' => $arg, 'VAL' => $val_e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	87	208	
==>Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

sub add_rule {
    # print "add infix o <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1001	1243	
==>lation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15310	15504	
==>s->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15310	15504	
==>s->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $p <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15310	15504	
==>s->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13134	13260	
==>Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      = <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13134	13260	
==>Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	379	483	
==>ll_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	379	483	
==>ll_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subr <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3806	3927	
==>g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40214	40325	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40214	40325	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40214	40325	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $valu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21564	21679	
==>exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ " <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10996	11095	
==>s no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10996	11095	
==>s no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10996	11095	
==>s no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7176	7300	
==>gicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7176	7300	
==>gicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7176	7300	
==>gicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2J <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1281	1375	
==>ll_day --
# fill if needed
push @devs_till_day, $devs_till_day[-1] while
  @devs_till_day < @co <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4813	4922	
==>ar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4813	4922	
==>ar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1719	1828	
==>ar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1022	1120	
==>switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Switches <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6882	6977	
==>optimization - return the internal list object, if there is one
    return Perl6::Value::List.ne <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6882	6977	
==>optimization - return the internal list object, if there is one
    return Perl6::Value::List.ne <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8242	8336	
==>ay("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8300	8394	
==>ay("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	677	799	
==>S => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	578	700	
==>S => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2759	2856	
==>thod>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2759	2856	
==>thod>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11241	11359	
==>so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # whe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11241	11359	
==>so our nick_already_used
          # handler can choose a different nick. $in_login_phase is reset to 0
          # whe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10486	10596	
==>so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # whe <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10486	10596	
==>so our nick_already_used
      # handler can choose a different nick. $in_login_phase is reset to 0
      # whe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7426	7533	
==>$::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Canno <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7426	7533	
==>$::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Canno <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7426	7533	
==>$::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Canno <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9881	10004	
==>,$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9881	10004	
==>,$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @nam <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9881	10004	
==>,$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @nam <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18979	19102	
==>{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20337	20460	
==>{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8880	8986	
==>voke this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8880	8986	
==>voke this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15604	15709	
==>(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15604	15709	
==>(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15604	15709	
==>(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
4	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1196	1298	
==>%p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<inp <==
4	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1196	1298	
==>%p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<inp <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4748	4847	
==>{
   Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10382	10478	
==>ed validations are performed
on demand at some time after the input has been set, and could poten <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10382	10478	
==>ed validations are performed
on demand at some time after the input has been set, and could poten <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25317	25412	
==>phy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25317	25412	
==>phy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2291	2387	
==>uld see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::E <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2291	2387	
==>uld see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::E <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	796	888	
==>{
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	635	727	
==>{
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	635	727	
==>{
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	604	704	
==>LUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	604	704	
==>LUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

mo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20914	21015	
==><Regexp::Parser::__object__>.

=item Cleaner Grammar Flow

Now the only places 'atom' gets pushed to t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6141	6238	
==>turn the string set in advance with the prune method.

This feature is useful, like custom, for wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6141	6238	
==>turn the string set in advance with the prune method.

This feature is useful, like custom, for wh <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6141	6238	
==>turn the string set in advance with the prune method.

This feature is useful, like custom, for wh <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3826	3920	
==>et, $position, $lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $currentTermTabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2531	2622	
==>abel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2531	2622	
==>abel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2531	2622	
==>abel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::S <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1395	1531	
==>t;                # file with MD in it
$Site           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tm <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7569	7668	
==>or @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7569	7668	
==>or @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7569	7668	
==>or @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitiv <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	126	256	
==>uild_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4201	4303	
==>ithin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4201	4303	
==>ithin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4201	4303	
==>ithin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4190	4353	
==>abel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4190	4353	
==>abel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4190	4353	
==>abel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7393	7508	
==>leanup {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3240	3393	
==>_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2521	2614	
==>ntainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value chec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2521	2614	
==>ntainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value chec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2521	2614	
==>ntainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value chec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4167	4290	
==>?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4167	4290	
==>?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4167	4290	
==>?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $sl <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14906	14999	
==>----------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(ca <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4641	4835	
==>my @bins;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### lin <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3442	3542	
==>ORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday the <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3442	3542	
==>ORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3522	3622	
==>ORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday the <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4304	4431	
==>antifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()( <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4304	4431	
==>antifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()( <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1397	1491	
==>README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1397	1491	
==>README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	659	775	
==>_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	659	775	
==>_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	659	775	
==>_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7644	7739	
==>struct_equiv->isa("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4155	4259	
==>rint $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4155	4259	
==>rint $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4155	4259	
==>rint $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	70	166	
==>ssor/;

use strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_T <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8394	8505	
==>span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

me <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8394	8505	
==>span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

me <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2452	2555	
==>ift;
	Scalar::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$se <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1788	1885	
==>s Class::Events::Publisher $.publisher;
    has Class::Events::Subscriber $.subscriber;

    metho <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4531	4720	
==>ames!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

me <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4531	4720	
==>ames!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

me <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1133	1235	
==>ie "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args-> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2024	2125	
==>ie "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args-> <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7232	7486	
==>--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7232	7486	
==>--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	185	289	
==>channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which le <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	185	289	
==>channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which le <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1582	1685	
==>ase; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@arg <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1582	1685	
==>ase; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	259	361	
==>ep track of which files have already been filtered
my $filtered = {};

# A map of digests to code block <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	259	361	
==>ep track of which files have already been filtered
my $filtered = {};

# A map of digests to code block <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12923	13028	
==>ash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or C<$keys> from t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27072	27166	
==>eturn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ext <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31624	31718	
==>eturn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ext <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30680	30774	
==>eturn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ext <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2268	2395	
==>tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2268	2395	
==>tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2268	2395	
==>tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15252	15364	
==>ute($_) => $_ } $env->values };
    my $ast = shift;

    $self->reduce($ast);
}

sub reduce_param {
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10488	10617	
==>{$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $k <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10488	10617	
==>{$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $k <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8667	8781	
==>le (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8667	8781	
==>le (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	995	1104	
==>dy) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authorit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	995	1104	
==>dy) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authorit <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	995	1104	
==>dy) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authorit <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	792	898	
==>t::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
{
    my @re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5444	5597	
==>nt "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5456	5609	
==>nt "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2030	2125	
==>ond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2030	2125	
==>ond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4443	4553	
==>}
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4443	4553	
==>}
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4443	4553	
==>}
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9206	9321	
==>module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        ( <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9206	9321	
==>module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        ( <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10702	10800	
==>s? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedTe <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10702	10800	
==>s? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedTe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2214	2344	
==>a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2214	2344	
==>a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2214	2344	
==>a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 { <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23036	23139	
==>name] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14214	14437	
==>.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        } <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14214	14437	
==>.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	567	663	
==>hod start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns boo <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	567	663	
==>hod start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns boo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6180	6314	
==>efault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6180	6314	
==>efault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6180	6314	
==>efault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5956	6098	
==>est.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17336	17429	
==>xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17336	17429	
==>xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17336	17429	
==>xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4228	4398	
==>se {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5549	5719	
==>se {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4228	4398	
==>se {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5537	5707	
==>se {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compi <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	192	302	
==>Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	192	302	
==>Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3774	3872	
==>e methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redis <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3774	3872	
==>e methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21508	21651	
==>List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21508	21651	
==>List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21508	21651	
==>List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9729	9833	
==>e string index around, 
# XXX - weaken self-referential things

=pod

A "rule" function gets as argu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7423	7521	
==>allchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7423	7521	
==>allchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7423	7521	
==>allchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16464	16589	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen => $nparen,
      data => \@data, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10331	10445	
==>er );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13808	13922	
==>er );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &s <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13089	13203	
==>er );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12493	12594	
==>($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12493	12594	
==>($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12493	12594	
==>($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	470	609	
==>d with other types in the same level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	524	658	
==>LUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	524	658	
==>LUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36264	36365	
==>ecution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  # matches the first numbe <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19775	19869	
==>et or set an authorization header that use the
"Basic Authentication Scheme".  In array context <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19775	19869	
==>et or set an authorization header that use the
"Basic Authentication Scheme".  In array context <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6433	6524	
==>nstance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3941	4057	
==>med_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posit <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3941	4057	
==>med_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posit <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4531	4647	
==>med_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posit <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18817	18917	
==>es Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5271	5408	
==>m]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - so <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6539	6676	
==>m]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - so <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5271	5408	
==>m]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - so <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6527	6664	
==>m]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $code = $_[0]; 
    
    # XXX XXX XXX - so <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	291	386	
==>ferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21564	21659	
==>ND__

=head1 NAME

Regexp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

T <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	291	386	
==>ferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	291	386	
==>ferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11475	11626	
==>ay' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11475	11626	
==>ay' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @param <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11475	11626	
==>ay' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @param <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4102	4209	
==>ion $.subscription;
    has Class::Events::Event $.event;

    method dispatch {
        dispatch($?SELF, $. <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1989	2127	
==>pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section] <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1989	2127	
==>pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section] <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4688	4820	
==>t_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modif <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4688	4820	
==>t_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modif <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9358	9462	
==>t() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.h <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9358	9462	
==>t() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.h <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7506	7608	
==>ead1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1734	1836	
==>ead1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9140	9242	
==>ead1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1952	2054	
==>ead1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code <==
4	/Users/nnunley/pugs/util/importgraph.pl	979	1096	
==>($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $fh;

  unles <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7506	7613	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7506	7613	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7506	7613	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9402	9553	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14946	15097	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9402	9553	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14940	15091	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> not implemented" <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2158	2280	
==>:i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2158	2280	
==>:i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$pe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2158	2280	
==>:i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$pe <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	94	209	
==>> $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10253	10376	
==>n_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10253	10376	
==>n_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1174	1271	
==>ost = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*EN <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1174	1271	
==>ost = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*EN <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1871	1970	
==>l of the optional parameters should be supplied by name.

Note that the above code is not robust.  ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	376	498	
==>slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	376	498	
==>slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # does <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	376	498	
==>slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # does <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2484	2581	
==>1);
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) skipped and ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4686	4838	
==>ut will
        # definately be helpful for things such as == and <= that fail
        if ($got eq $expected and $type !~ tr/a-z//) {
            unshift <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	437	546	
==>->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	947	1041	
==>d, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	947	1041	
==>d, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	188	287	
==>L',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	188	287	
==>L',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35247	35388	
==>);
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35247	35388	
==>);
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35247	35388	
==>);
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6544	6676	
==>n $/{'Pugs::Grammar::Term.sub_call'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bar <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2511	2621	
==>($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5714	5824	
==>($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2511	2621	
==>($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5714	5824	
==>($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $span.complement;
    @span = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	426	541	
==>endir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	461	576	
==>endir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	426	541	
==>endir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9639	9754	
==>endir(DIR, $src) or die $!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7718	7839	
==>rkaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub tr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7718	7839	
==>rkaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub tr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	817	934	
==>Tail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	817	934	
==>Tail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      retur <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	268	368	
==>][a-zA-Z0-9_]+$/)
        || confess "bad attribute name ($name)";
    $class->SUPER::new($name, $typ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6318	6417	
==>ntax, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assumin <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6103	6201	
==>ntax, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assumin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7542	7635	
==>ode by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromati <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1770	1863	
==>ode by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromati <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9176	9269	
==>ode by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromati <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1988	2081	
==>ode by Stevan Little E<lt>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromati <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	958	1077	
==>d);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	958	1077	
==>d);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STOR <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	958	1077	
==>d);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STOR <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9402	9520	
==>\@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infix:<~~> .
    #'Rul.new(:f(sub($_s_) <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4561	4705	
==>{    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifie <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4561	4705	
==>{    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifie <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1408	1522	
==>raffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1408	1522	
==>raffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21125	21304	
==>YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21125	21304	
==>YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21125	21304	
==>YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9695	9837	
==>->file( $script );
            1 while unlink $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	4	92	
==>PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	4	92	
==>PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	4	92	
==>PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19683	19851	
==>$other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19683	19851	
==>$other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19683	19851	
==>$other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6: <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14559	14658	
==>t you
  in the right direction.

  The regexp compiler hook generally gets the pattern _after_ varia <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24216	24314	
==>used by automatons
  (clients with either an AI or other interactive program controlling their
  ac <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22989	23087	
==>used by automatons
  (clients with either an AI or other interactive program controlling their
  ac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24216	24314	
==>used by automatons
  (clients with either an AI or other interactive program controlling their
  ac <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22989	23087	
==>used by automatons
  (clients with either an AI or other interactive program controlling their
  ac <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5919	6052	
==>$attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5919	6052	
==>$attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreac <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5919	6052	
==>$attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreac <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2590	2725	
==>:Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $c <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2590	2725	
==>:Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7917	8043	
==>"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7917	8043	
==>"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1673	1784	
==>thod clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.ins <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1673	1784	
==>thod clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.ins <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13718	13816	
==>r join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns R <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17195	17293	
==>r join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns R <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5488	5601	
==>~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6756	6869	
==>~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5488	5601	
==>~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0] <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6744	6857	
==>~ s/ ([^']) \$ \( \) < (.*?) > /$1 \$_[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0] <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6192	6386	
==>rray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@re <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6192	6386	
==>rray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17308	17448	
==>{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>() <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17308	17448	
==>{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9959	10112	
==>return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9959	10112	
==>return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sca <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9959	10112	
==>return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2178	2280	
==>lf = shift;
	my $node = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $reduced_st <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4683	4794	
==>ue_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6011	6122	
==>lse {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{callback} <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4683	4794	
==>ue_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4683	4794	
==>ue_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3191	3303	
==>defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	401	507	
==>class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	401	507	
==>class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	401	507	
==>class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $clas <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3917	4080	
==>c"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3917	4080	
==>c"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1473	1626	
==>c"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1473	1626	
==>c"
      print $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5686	5860	
==>ray of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5686	5860	
==>ray of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4285	4383	
==>l
captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4285	4383	
==>l
captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3349	3454	
==>$matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3349	3454	
==>$matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $ma <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11881	11978	
==>while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11939	12036	
==>while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	280	430	
==>{
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2941	3056	
==>containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2941	3056	
==>containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2941	3056	
==>containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2086	2236	
==>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2086	2236	
==>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2086	2236	
==>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3265	3371	
==>lout};
    }

    $totals{skip_all} = $self->{skip_all} if defined $self->{skip_all};

    my $passed = ($t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2487	2615	
==>ets on \\%s", 'C');
  });

  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13505	13607	
==>rl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13505	13607	
==>rl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13505	13607	
==>rl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5302	5411	
==>e_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $alw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5302	5411	
==>e_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $alw <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5302	5411	
==>e_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $alw <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	92	192	
==>se Memoize;
memoize('env');

use Module::Pluggable (
    sub_name => "submodules",
    search_path => <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4662	4759	
==>string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramete <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4662	4759	
==>string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramete <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6859	6956	
==>string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramete <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16466	16554	
==>set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey,E0,E1).

rm(g <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2329	2525	
==>old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ Lis <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2329	2525	
==>old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ Lis <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7310	7404	
==>tors:



- higher order operators: alternation, concatenation.

- "plain" match operators: like <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7062	7153	
==>tors:

- higher order operators: alternation, concatenation.
- "plain" match operators: like <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8286	8427	
==>y cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8286	8427	
==>y cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8286	8427	
==>y cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1832	1941	
==>AScript3::Grammar.
#
#  Bugs:
#   * This grammar has never yet been run, so there no doubt are some.
#
#  Poss <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5747	5906	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4247	4406	
==>$stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1959	2066	
==>ection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1959	2066	
==>ection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'S <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1168	1284	
==>rch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = F <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1168	1284	
==>rch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = F <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4778	4873	
==>ray.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.ass <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	307	400	
==>ray.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array>.ass <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	655	780	
==>rn undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10971	11086	
==>e::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10971	11086	
==>e::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10971	11086	
==>e::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22767	22882	
==>am => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						param => val <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22917	23028	
==>am => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29304	29410	
==>late file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29304	29410	
==>late file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1275	1381	
==>par)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1219	1315	
==><footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1219	1315	
==><footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1766	1862	
==><footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5348	5456	
==>rclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5348	5456	
==>rclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5348	5456	
==>rclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) { <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	275	378	
==>d isa($self: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=h <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2182	2351	
==>->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2182	2351	
==>->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB co <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2182	2351	
==>->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB co <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1732	1843	
==>et_attributes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclass <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1952	2054	
==>{
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1952	2054	
==>{
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21690	21781	
==>dence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To fur <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21690	21781	
==>dence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To fur <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3723	3826	
==>b preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $t <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5083	5186	
==>b preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3525	3622	
==>ds are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3525	3622	
==>ds are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2088	2190	
==>>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2088	2190	
==>>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Api <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2088	2190	
==>>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::Api <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	823	916	
==>object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	823	916	
==>object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	823	916	
==>object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32239	32337	
==>n
the result.  With any 2 relations, the result is the same regardless of
which is the invocant and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36789	36887	
==>n
the result.  With any 2 relations, the result is the same regardless of
which is the invocant and <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36079	36177	
==>n
the result.  With any 2 relations, the result is the same regardless of
which is the invocant and <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	158	254	
==>ods, etc
has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @. <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	137	237	
==>uilder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @:output;
    has @ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23646	23740	
==>e with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any ord <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23646	23740	
==>e with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any ord <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15903	16030	
==>= pos
    $P0 = new .Exception
    $S0 = "p6rule parse error: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11963	12056	
==>et1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11963	12056	
==>et1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	750	890	
==>class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	750	890	
==>class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13119	13240	
==>span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13119	13240	
==>span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6513	6650	
==>attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6513	6650	
==>attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6513	6650	
==>attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3561	3668	
==>class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos (last glob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	902	1023	
==>around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken self-referential things



sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1267	1383	
==>around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	866	982	
==>around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1267	1383	
==>around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7855	7954	
==>bug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($kille <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7855	7954	
==>bug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($kille <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1111	1205	
==>NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1111	1205	
==>NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	610	730	
==>> $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	610	730	
==>> $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	610	730	
==>> $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name = <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8887	8999	
==>TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8887	8999	
==>TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37897	37987	
==>oaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subrouti <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37897	37987	
==>oaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subrouti <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3288	3394	
==>trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3288	3394	
==>trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $strin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3288	3394	
==>trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $strin <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6666	6808	
==>:Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7342	7435	
==>s') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('coll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7342	7435	
==>s') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('coll <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7342	7435	
==>s') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('coll <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1221	1317	
==>n $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exist <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1221	1317	
==>n $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exist <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16048	16143	
==>at
lives in the Document object given in the named parameter $document, and
whose Node Type attr <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16048	16143	
==>at
lives in the Document object given in the named parameter $document, and
whose Node Type attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4052	4149	
==>".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Juncti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4052	4149	
==>".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Juncti <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4052	4149	
==>".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Juncti <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10365	10463	
==>ld) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting befor <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10365	10463	
==>ld) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting befor <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10148	10243	
==>e FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Vo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10206	10301	
==>e FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Vo <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6830	6936	
==>Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'C <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6830	6936	
==>Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'C <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3729	3835	
==>Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'C <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	2733	2839	
==>,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,jo <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	10238	10351	
==>span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10238	10351	
==>span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24711	24807	
==>le::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid inp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24711	24807	
==>le::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid inp <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6034	6175	
==>, to make the timestamps not break so the smoke reports look
          # good even on 640x480
          $str;
        },
      ],
      durati <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3359	3465	
==>-fglock; # everything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I l <==
4	/Users/nnunley/pugs/misc/POE/lib/POE.pm	947	1052	
==>callback on @:events.
    ./:enqueue({
      my $result = $session.dispatch($event, *@args);
      $result <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3240	3343	
==>-fglock; # everything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I l <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3793	3910	
==>n('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5 <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3793	3910	
==>n('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5317	5434	
==>n('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5 <==
4	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	697	806	
==>ame::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $prompt .= " ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7115	7295	
==>o;
            return 
                " \@_ = (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3576	3682	
==>e_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3576	3682	
==>e_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3576	3682	
==>e_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6443	6540	
==>und (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5516	5613	
==>und (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6443	6540	
==>und (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5516	5613	
==>und (" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10251	10381	
==>fess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10251	10381	
==>fess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10251	10381	
==>fess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       :: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6541	6682	
==>b ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{ab <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6330	6466	
==>b ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{ab <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5153	5270	
==>efined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.s <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5153	5270	
==>efined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5295	5380	
==>tors);

def_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_operato <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8291	8375	
==>>expand();
}

#====================================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8291	8375	
==>>expand();
}

#====================================================================== <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8291	8375	
==>>expand();
}

#====================================================================== <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14948	15060	
==>pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	774	876	
==>-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	774	876	
==>-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - . <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	774	876	
==>-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - . <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2318	2413	
==>command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The ma <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2318	2413	
==>command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6158	6269	
==>assAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6158	6269	
==>assAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $? <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6158	6269	
==>assAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $? <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7201	7303	
==>tack, $operator;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_PREFIX <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10346	10450	
==>d items into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is a <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8239	8343	
==>d items into the set. Returns the number of items inserted.

It is not fatal to insert an item which is a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10346	10450	
==>d items into the set. Returns the number of items
inserted.

It is not fatal to insert an item which is a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8239	8343	
==>d items into the set. Returns the number of items inserted.

It is not fatal to insert an item which is a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5016	5122	
==>al __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5016	5122	
==>al __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21672	21770	
==>are using your package.  One
can override simply by using the same key code with a new user message <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21672	21770	
==>are using your package.  One
can override simply by using the same key code with a new user message <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4990	5115	
==>sions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4990	5115	
==>sions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  & <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4990	5115	
==>sions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6762	6849	
==>application => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6124	6236	
==>s{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6904	7016	
==>s{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6124	6236	
==>s{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6904	7016	
==>s{$_}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7907	8013	
==>defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "und <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7965	8071	
==>defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "und <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7312	7414	
==>= (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7312	7414	
==>= (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2262	2373	
==>die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2262	2373	
==>die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2262	2373	
==>die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  whil <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1310	1396	
==>::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4113	4211	
==>lurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > insi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4113	4211	
==>lurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > insi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4113	4211	
==>lurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > insi <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28975	29068	
==>or running test scripts from the command line,
L<Test> and L<Test::Simple> for writing test sc <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3388	3524	
==>tches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $m <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3388	3524	
==>tches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $m <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6065	6156	
==>w. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, m <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6065	6156	
==>w. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, m <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17222	17336	
==>{$node}++){
        return "... recursive=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9897	10006	
==>s_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9897	10006	
==>s_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9897	10006	
==>s_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12937	13062	
==>tives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12937	13062	
==>tives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12937	13062	
==>tives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Impl <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	6821	6909	
==>e: $!";
$template = HTML::Template->new(filename => 'util/catalog_tmpl/error.tmpl');
$tem <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5581	5708	
==>r(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gam <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5581	5708	
==>r(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gam <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21513	21638	
==>_my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21792	21917	
==>_my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3358	3484	
==>});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3358	3484	
==>});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3358	3484	
==>});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5178	5276	
==>_box {get_meta($_[0])->new('$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift;
    return new_bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	867	961	
==>this will allow interoperability with modules that
# do not inherit from Module::Compile but st <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	867	961	
==>this will allow interoperability with modules that
# do not inherit from Module::Compile but st <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5531	5653	
==>afe   (rw!Array, List)\
\\n   Int       pre     unshift safe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	200	296	
==>gs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	200	296	
==>gs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	200	296	
==>gs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7733	7885	
==>expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                retu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7733	7885	
==>expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                retu <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	950	1057	
==>te a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symme <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	950	1057	
==>te a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symme <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2003	2180	
==>et_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $pass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6813	6898	
==>d($_resolve));

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6813	6898	
==>d($_resolve));

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6813	6898	
==>d($_resolve));

## ------------------------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	13	272	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	13	272	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	13	272	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	13	272	
==>gs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1728	1890	
==>header());            
        },
        'ok' => sub { 
            my ($self, $passed, $description) = @_;
            $description ||= '';
            $self->re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24963	25060	
==>won't simply
send all commands immediately to the server, but creates a queue, which is then
slowl <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24963	25060	
==>won't simply
send all commands immediately to the server, but creates a queue, which is then
slowl <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10989	11090	
==>oves the specified items from the set. Returns the number of items
removed.

It is not fatal to remove <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8393	8494	
==>oves the specified items from the set. Returns the number of items removed.

It is not fatal to remove <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10989	11090	
==>oves the specified items from the set. Returns the number of items
removed.

It is not fatal to remove <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8393	8494	
==>oves the specified items from the set. Returns the number of items removed.

It is not fatal to remove <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5041	5310	
==>m->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15815	15915	
==>Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for w <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15815	15915	
==>Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for w <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12295	12387	
==><$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns tru <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12295	12387	
==><$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns tru <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7968	8054	
==>rt(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L).
p5_modifier_spec_pos([ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10863	11018	
==>tatement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11142	11297	
==>tatement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	697	826	
==>eturn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	697	826	
==>eturn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	697	826	
==>eturn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o, <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29723	29830	
==>d option for coverage analysis.

Trap STDERR.

Implement Straps total_results()

Remember exit code

Complet <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1307	1424	
==>lass}::parse"} = Pugs::Compiler::Regex->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3129	3240	
==>case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3129	3240	
==>case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3129	3240	
==>case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return u <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4288	4436	
==>:Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            An <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4288	4436	
==>:Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            An <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1672	1777	
==>YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1672	1777	
==>YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_ch <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1672	1777	
==>YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_ch <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2589	2732	
==>al = $off + $size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	58	173	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	58	173	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_t <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	58	173	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9603	9713	
==>rl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6336	6446	
==>ter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase letter (Lt)",
      # "Modifier letter (Lm)", "Other let <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9603	9713	
==>rl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9603	9713	
==>rl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1655	1789	
==>rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #p <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2398	2532	
==>rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1655	1789	
==>rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2386	2520	
==>rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7558	7691	
==>om different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7558	7691	
==>om different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7558	7691	
==>om different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a metho <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5921	6014	
==>,} }
RULE
*{'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $< <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	422	533	
==>rLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be ac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	422	533	
==>rLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be ac <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	422	533	
==>rLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be ac <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5215	5324	
==>main->can($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Sk <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16289	16401	
==>s it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum dat <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20715	20827	
==>s it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum dat <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21654	21757	
==>)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    ch <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15343	15468	
==>$when - int $when) * 10**12;
    # XXX: waiting on a better want
    #if want ~~ rx:P5/^Item/ {
    #    $res = Pugs::Internal <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25681	25779	
==>hine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25681	25779	
==>hine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32804	32897	
==>BJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is omitted
here for brevit <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	455	635	
==>RRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	543	723	
==>RRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	540	715	
==>RRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31219	31316	
==>h

Whether this object has branches (like C<|>).

=item family

The general family of this object. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13226	13326	
==>name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13226	13326	
==>name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_nam <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13226	13326	
==>name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_nam <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22198	22296	
==>s "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts[-1] = $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	919	1095	
==>trs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    return %!attrs;
}

method export_attr_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7729	7900	
==>pported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7729	7900	
==>pported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7729	7900	
==>pported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $sta <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19956	20078	
==>:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, & <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16377	16499	
==>:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, & <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3607	3710	
==>ck above



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own l <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3479	3578	
==>ck above

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1468	1602	
==>ed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Ga <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1468	1602	
==>ed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Ga <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1101	1192	
==>d1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1101	1192	
==>d1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26407	26624	
==>t ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26407	26624	
==>t ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26407	26624	
==>t ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27768	27916	
==>e;
            }
        )
    )
);

=pod

method MRO (opaque $self:) returns list {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2208	2327	
==>")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2208	2327	
==>")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2208	2327	
==>")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$l <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13877	13969	
==>ctdigits([D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10310	10425	
==>match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6651	6766	
==>match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7500	7615	
==>match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4504	4647	
==>print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4726	4869	
==>print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13354	13449	
==>minated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must b <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13354	13449	
==>minated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13479	13694	
==>er;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13479	13694	
==>er;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13479	13694	
==>er;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1065	1165	
==>E} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Switches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2089	2202	
==>it::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $se <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1767	1872	
==>it::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $se <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	867	959	
==>onstructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such a <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	867	959	
==>onstructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	577	679	
==>.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	577	679	
==>.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	577	679	
==>.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      } <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	178	277	
==>$para{'x'};
$option = "wert" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4082	4192	
==>body = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4082	4192	
==>body = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4082	4192	
==>body = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10893	10991	
==>meta('$class')".
		 "->add_method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4395	4509	
==>UNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4395	4509	
==>UNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4395	4509	
==>UNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3192	3295	
==>pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3192	3295	
==>pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3192	3295	
==>pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2423	2549	
==>ths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $pa <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2423	2549	
==>ths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $pa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4559	4659	
==>.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set o <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4809	4909	
==>.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16289	16525	
==>nboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16289	16525	
==>nboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16289	16525	
==>nboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1485	1603	
==>b     => $config); 
    add_path(installsitearch    => $config); 
    add_path(installsitelib     => $config); 

    $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2612	2715	
==>efore ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant pa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2796	2899	
==>efore ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant pa <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4063	4161	
==>ering>);

This class method constructs a new cipher object.  The options passed to the 
C<new> cons <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4063	4161	
==>ering>);

This class method constructs a new cipher object.  The options passed to the 
C<new> cons <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1270	1364	
==>SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time peop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1270	1364	
==>SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time peop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3789	3883	
==>ame,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3789	3883	
==>ame,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3789	3883	
==>ame,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2753	2841	
==>'assign_open_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<vari <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	860	1011	
==>ak "virtual method str called on @_";
    }

    my %DIGEST_CACHE;

    sub digest {
        my $self = shift;
        $DIGEST_CACHE{overload::StrVal($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7568	7662	
==>item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7568	7662	
==>item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7568	7662	
==>item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB re <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8723	8812	
==>f([char(45)|L]) --> "-", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 45 is -
p5 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	364	512	
==>RRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	364	512	
==>RRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	364	512	
==>RRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	95	224	
==>~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7988	8122	
==>$tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7988	8122	
==>$tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7988	8122	
==>$tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	313	413	
==>Assoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a Slu <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24412	24553	
==>.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Expressions <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2518	2609	
==>00],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair str <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2518	2609	
==>00],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair str <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2518	2609	
==>00],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair str <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	143	252	
==>$event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./ <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	143	252	
==>$event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	576	671	
==>ys should produce the same keystream and thus text 
should be enciphered and deciphered the same <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	576	671	
==>ys should produce the same keystream and thus text 
should be enciphered and deciphered the same <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4415	4527	
==>my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4415	4527	
==>my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4415	4527	
==>my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4260	4357	
==>enced by --splashscreen will be displayed before booting.
  --lib6=$lib6
    --lib6 will be copied <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5959	6052	
==>ign doc index
unless($no_designdocs) { 
    my $syn_index = catfile($output_dir,"Synopsis", "i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4605	4709	
==>boxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4605	4709	
==>boxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4605	4709	
==>boxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbox <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18135	18356	
==>== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21612	21833	
==>== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21199	21420	
==>== any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs, <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	531	632	
==>pad if $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the last scope by $sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2443	2555	
==>=> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7537	7649	
==>=> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2443	2555	
==>=> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7537	7649	
==>=> $arg } )
        if !@val.defined;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14340	14524	
==>ze_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14340	14524	
==>ze_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14340	14524	
==>ze_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop( <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2871	3055	
==>ze_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop( <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1876	2019	
==>ps {
    my $deps = shift;
    
    my $str = '';
    return $str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2094	2189	
==>} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && def <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2094	2189	
==>} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && def <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2094	2189	
==>} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && def <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	137	241	
==>t(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	137	241	
==>t(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	137	241	
==>t(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21525	21621	
==>any branches" error wasn't being raised
until the second pass.  Figured out how to improve the gr <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	17764	17921	
==>till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      g <==
4	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	695	814	
==>);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N| <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	198	297	
==>ing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evalua <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	254	353	
==>ing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evalua <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	574	695	
==>while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $nod <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	574	695	
==>while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $nod <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2366	2485	
==>", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." } <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2366	2485	
==>", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	377	518	
==>ts',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $plan, $output) = @_;
            __('$:singleton' => $: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	219	312	
==>rg/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	219	312	
==>rg/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	219	312	
==>rg/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pack <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	427	528	
==>is document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	431	532	
==>is document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	427	528	
==>is document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	431	532	
==>is document for more documentation.

use v6;
use Algorithm::TokenBucket;
use Set;

sub debug(Str $msg) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11687	11811	
==>::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Ski <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2121	2233	
==>::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Ski <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2121	2233	
==>::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Ski <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	256	353	
==>r the documentation of the other Modules in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8084	8200	
==>nd Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8084	8200	
==>nd Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ". <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8084	8200	
==>nd Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ". <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1593	1703	
==>ister', '--user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        system <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1126	1220	
==>lass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1126	1220	
==>lass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1126	1220	
==>lass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1448	1545	
==>(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1448	1545	
==>(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1448	1545	
==>(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	593	690	
==>rection' flag, in order to implement <after>.

- Captures need an internal 'counter', see the ra <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2455	2640	
==>nto the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                push @list, $info;                
                Du <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3406	3493	
==>ss)->{'$:superclass'} = $Object;

## --------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4100	4187	
==>ss)->{'$:superclass'} = $Object;

## --------------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5308	5395	
==>ss)->{'$:superclass'} = $Object;

## --------------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	820	923	
==>) {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	820	923	
==>) {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	820	923	
==>) {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	532	660	
==>ib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	532	660	
==>ib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5966	6071	
==>in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5760	5862	
==>in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	563	653	
==>s Duration::Gregorian is export {
    Duration::Gregorian.new( :year($year), :month($month) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11842	11927	
==>val_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haske <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11842	11927	
==>val_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haske <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11842	11927	
==>val_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haske <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	3104	3281	
==>ns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6581	6758	
==>ns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5529	5706	
==>ns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) return <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	280	400	
==>rgs) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	276	375	
==>ta::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs::G <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21041	21135	
==>$_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21041	21135	
==>$_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21041	21135	
==>$_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$x <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1505	1650	
==>an') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Un <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13666	13773	
==>el         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13666	13773	
==>el         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1] <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13666	13773	
==>el         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3482	3583	
==>ram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3482	3583	
==>ram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3482	3583	
==>ram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2618	2764	
==>op( {
        name => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	592	691	
==>ass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	592	691	
==>ass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	592	691	
==>ass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	790	912	
==>t}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	790	912	
==>t}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	790	912	
==>t}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    m <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10205	10304	
==>list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10205	10304	
==>list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10708	10802	
==>tes or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, make <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10708	10802	
==>tes or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, make <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12495	12620	
==>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found fo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12495	12620	
==>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found fo <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10223	10321	
==>_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
exp <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10281	10379	
==>_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
exp <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5982	6089	
==>.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent( <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6175	6282	
==>.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5982	6089	
==>.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6175	6282	
==>.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent( <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	432	550	
==>rl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;

    my $fn = "de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8699	8816	
==>rl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8699	8816	
==>rl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "de <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8699	8816	
==>rl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $p6 =~ s/^use\s+([^;]+);/$frob->($1)/emg;
    my $fn = "de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8046	8170	
==>$tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8046	8170	
==>$tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8046	8170	
==>$tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14347	14455	
==>=> $neg, \$how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18855	18984	
==>e $self: hash %params) returns nil {
    for %params.kv -> $key, $value {
        # not sure if this is the 
        # correct syn <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32354	32451	
==>gument.  This method will fail if
C<$other> does not have an identical header to the invocant rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36904	37001	
==>gument.  This method will fail if
C<$other> does not have an identical header to the invocant rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36194	36291	
==>gument.  This method will fail if
C<$other> does not have an identical header to the invocant rela <==
4	/Users/nnunley/pugs/examples/hop6/Parser.pm	1663	1768	
==>rn \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is exported(:all) {
  retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	59	155	
==>0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	59	155	
==>0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	59	155	
==>0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5735	5863	
==>e(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex = <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5735	5863	
==>e(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3947	4050	
==>Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3947	4050	
==>Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText: <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2235	2374	
==>);
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-T <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2235	2374	
==>);
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-T <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2292	2391	
==>> $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compar <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2292	2391	
==>> $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compar <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	724	832	
==>ElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	724	832	
==>ElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	724	832	
==>ElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering pro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26222	26323	
==>it matched
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
modifier).  Re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4355	4454	
==>nite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_laz <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4355	4454	
==>nite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_laz <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4355	4454	
==>nite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_laz <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	262	358	
==>Perl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6953	7170	
==>pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6953	7170	
==>pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6953	7170	
==>pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10249	10345	
==>($name,$vars,$body)=@_;

    my $info = $PIL::PIL1CPerl5::NodesInfo::node_named{$name};
    die " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14492	14589	
==>_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14492	14589	
==>_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14492	14589	
==>_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MUL <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11664	11754	
==>alDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1946	2055	
==>nline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1946	2055	
==>nline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::Fi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1946	2055	
==>nline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::Fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8647	8780	
==>undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(ba <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8647	8780	
==>undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(ba <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8647	8780	
==>undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(ba <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	68	165	
==>tants;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative;

us <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17833	18013	
==>alues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21310	21490	
==>alues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20897	21077	
==>alues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2comm <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2234	2327	
==>emory problems.

Tainting information is discarded.

The perl5 regexp engine is entangled with <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21377	21525	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  match <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21656	21804	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  match <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3057	3159	
==>nging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3057	3159	
==>nging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	704	811	
==>an.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns Li <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	704	811	
==>an.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns Li <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27881	27973	
==>=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27881	27973	
==>=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10211	10414	
==>->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10211	10414	
==>->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10211	10414	
==>->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @p <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8393	8556	
==>,
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Val <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8393	8556	
==>,
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Val <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23557	23663	
==>bject(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19978	20084	
==>bject(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5404	5503	
==>(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5404	5503	
==>(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5117	5240	
==>label, $method) = @_;
            ::opaque_instance_class($self)->add_method($label, $method);
        },          
    },
) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3136	3246	
==>->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3124	3234	
==>->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspa <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	215	320	
==>tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh. <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	271	376	
==>tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	215	320	
==>tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh. <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	271	376	
==>tempfilename = "pil_test_" ~ $Test::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4511	4621	
==>es')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4511	4621	
==>es')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4511	4621	
==>es')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27696	27793	
==>/m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handler gets the parser object and a boo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4272	4405	
==>perclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2887	3019	
==>perclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3092	3224	
==>perclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2136	2262	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2136	2262	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2136	2262	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3310	3412	
==>termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $self->termTable()-> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1188	1325	
==>gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1188	1325	
==>gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3795	3914	
==>_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    retur <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3795	3914	
==>_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	888	1003	
==>must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	888	1003	
==>must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Per <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	888	1003	
==>must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Per <==
4	/Users/nnunley/pugs/examples/cookbook/test.pl	192	301	
==>ted in the test suit

use File::Compare qw(compare);


my $pugs = "../../pugs";

foreach my $p6 (<01strings/*. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	471	581	
==>&{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pk <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	471	581	
==>&{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pk <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6857	6962	
==>this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation::Examp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12661	12810	
==>$path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how shoul <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12661	12810	
==>$path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how shoul <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1735	1835	
==>f you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anothe <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1735	1835	
==>f you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anothe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22170	22268	
==>ver the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=he <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21051	21149	
==>ver the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22170	22268	
==>ver the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=he <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21051	21149	
==>ver the message operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=he <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15403	15523	
==>xt');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	354	451	
==>around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	354	451	
==>around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	354	451	
==>around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSu <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7323	7430	
==>(Rk), p5_concatenation(R1), p5_condition_alternative(R2).
p5_condition_alternative(R)    --> "|", p5_concate <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1766	1858	
==>per is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = m <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1766	1858	
==>per is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = m <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	60	148	
==>detail: http://www.perlmonks.org/?node_id=438876
# For historical interest, I've left thi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29206	29333	
==>less $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29485	29612	
==>less $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20915	21017	
==>d to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20915	21017	
==>d to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13918	14033	
==>rently, no operators are overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10145	10260	
==>rently, no operators are overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13918	14033	
==>rently, no operators are overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10145	10260	
==>rently, no operators are overloaded. This will change as soon Pugs supports overload operators.

=head1 AUTHORS

Sam <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3735	3865	
==>Chars>? <'*/'>
}
rule MultiLineCommentChars {  # see 7.4
      <MultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <Pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14275	14363	
==>ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14275	14363	
==>ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14275	14363	
==>ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1396	1542	
==>).defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1396	1542	
==>).defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~ <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	198	310	
==>debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$. <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	198	310	
==>debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	27	126	
==>lock is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Ar <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	27	126	
==>lock is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18125	18223	
==>is called it only gets the source code that it should be
looking at.

This section describes the ra <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18125	18223	
==>is called it only gets the source code that it should be
looking at.

This section describes the ra <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	133	256	
==>map {
        my $c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4759	4853	
==>')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4759	4853	
==>')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4759	4853	
==>')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label <==
4	/Users/nnunley/pugs/util/grokprims.pl	579	723	
==>it /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6575	6666	
==>oin "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6575	6666	
==>oin "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6575	6666	
==>oin "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5406	5514	
==>f($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5406	5514	
==>f($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5406	5514	
==>f($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	566	680	
==>);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	566	680	
==>);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	566	680	
==>);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [] <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29105	29199	
==>ng timing routines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	900	1029	
==>hod parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use P <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	900	1029	
==>hod parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use P <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16659	16766	
==>s; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_matc <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36498	36593	
==>lations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41047	41142	
==>lations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40661	40756	
==>lations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	3006	3099	
==>d Blondie, by providing implementations of
some math, string and IO operations (including a va <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	401	534	
==>ng" : "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	88	193	
==>e('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNativ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	88	193	
==>e('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNativ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	88	193	
==>e('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNativ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11372	11464	
==>) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11372	11464	
==>) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3379	3506	
==>name) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3379	3506	
==>name) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $eve <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7594	7692	
==>n
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7652	7750	
==>n
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3683	3798	
==>okAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3683	3798	
==>okAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3683	3798	
==>okAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $c <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2309	2413	
==>hild);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child { <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2309	2413	
==>hild);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9969	10062	
==>et1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are no <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9969	10062	
==>et1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are no <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10340	10483	
==>, '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6681	6824	
==>, '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7530	7673	
==>, '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3781	3904	
==>}
        elsif ($closure->isa('block')) {
            my $ref = reference->new($val);  
            $closure->env->set('$_' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	18	119	
==>ime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	18	119	
==>ime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my ) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22981	23071	
==>Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(ta <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22981	23071	
==>Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(ta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	625	751	
==>utput;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34820	34915	
==>nt Relation and that match any tuples of C<$other> along
their common attributes.  This method w <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39370	39465	
==>nt Relation and that match any tuples of C<$other> along
their common attributes.  This method w <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	743	853	
==>r $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	801	911	
==>r $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	743	853	
==>r $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	801	911	
==>r $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6051	6154	
==>b visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4186	4287	
==>special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4186	4287	
==>special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4186	4287	
==>special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspe <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12042	12209	
==>die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8324	8491	
==>die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9158	9325	
==>die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5860	5957	
==>text;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5860	5957	
==>text;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5860	5957	
==>text;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'p <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2001	2103	
==>::log($x)   if !defined $base;
    return Pugs::Internals::log10($x) if $base == 10;
    return (Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13622	13709	
==>otation went with this attribute when it's declared"
::Class.meta.add_method('find_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13622	13709	
==>otation went with this attribute when it's declared"
::Class.meta.add_method('find_attri <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13622	13709	
==>otation went with this attribute when it's declared"
::Class.meta.add_method('find_attri <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	995	1114	
==>{
    my $self    = shift;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1761	1864	
==>RE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1761	1864	
==>RE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bod <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1761	1864	
==>RE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bod <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	842	952	
==>OCTYPE html/) {
    debug "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1693	1801	
==>n be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1693	1801	
==>n be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1693	1801	
==>n be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods a <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2582	2686	
==>de = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2582	2686	
==>de = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4386	4483	
==>ar = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4571	4668	
==>ar = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	14017	14117	
==>ead1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10244	10344	
==>ead1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14017	14117	
==>ead1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10244	10344	
==>ead1 AUTHORS

Sam "mugwump" Vilain (Code)

Ingo "iblech" Blechschmidt (Documentation)

Stevan "stevan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4361	4456	
==>j, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
Ne <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4507	4602	
==>d be longest-match-first, but that's simple too, and the
# difference won't matter for the spike <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4361	4456	
==>j, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
Ne <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4361	4456	
==>j, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
Ne <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14521	14629	
==>de($obj);
    $obj;
}

# (Unspecced) facade class supplying localtime
class Time::Local {
    has Int  $.year <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1862	1958	
==>umber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1862	1958	
==>umber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1862	1958	
==>umber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	456	560	
==>/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	456	560	
==>/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	456	560	
==>/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANC <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	483	574	
==>ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(cond <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2129	2218	
==>sure got(" . $args->length()->to_native . ") expected(" . $params->length->to_native . ")" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	311	431	
==>NFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	802	922	
==>NFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	311	431	
==>NFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	802	922	
==>NFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ of Hash refs, where each <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1072	1169	
==>fied response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1072	1169	
==>fied response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7097	7190	
==>erpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event is <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7097	7190	
==>erpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event is <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4739	4839	
==>fix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric dif <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3866	3966	
==>fix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric dif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4739	4839	
==>fix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric dif <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3866	3966	
==>fix:<*> (Set $one, Set $two) returns Set {
    $one.intersection($two);
}

# modulus is symmetric dif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1852	2007	
==>efore]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m ) {
                    #print " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6474	6569	
==>zation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6474	6569	
==>zation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6474	6569	
==>zation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10425	10565	
==>s[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6766	6906	
==>s[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7615	7755	
==>s[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9501	9605	
==>hebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When tai <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	724	832	
==>r( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immedi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	930	1038	
==>r( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immedi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15318	15415	
==>ert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15318	15415	
==>ert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14373	14490	
==>ne was long ago derived from Henry Spencer's
  regexp library.  http://arglist.com/regex/  While the code has diverged <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14291	14380	
==>"U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14291	14380	
==>"U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14291	14380	
==>"U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($x <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28994	29094	
==>verted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28994	29094	
==>verted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERT <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	349	445	
==>verted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERT <==
4	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	107	225	
==>l {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $cod <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	107	225	
==>l {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $cod <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20943	21039	
==>tor or header() method, the same
field name should not occur multiple times.  The result of doing <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20943	21039	
==>tor or header() method, the same
field name should not occur multiple times.  The result of doing <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16765	16894	
==>tch = $m0;
      push(@{$X::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      loca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7147	7241	
==>authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7147	7241	
==>authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7147	7241	
==>authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '- <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	802	975	
==>y Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	802	975	
==>y Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'e <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	15	114	
==>JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $ev <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	15	114	
==>JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $ev <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5268	5371	
==>L::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_do <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5268	5371	
==>L::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_do <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5268	5371	
==>L::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_do <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3350	3443	
==>-CPerl5 code failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5::X1:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2114	2251	
==>oncat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10982	11119	
==>oncat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2307	2444	
==>oncat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11261	11398	
==>oncat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::cap <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	21805	21923	
==>=> val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_first = fun(
	par <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10622	10738	
==>er has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14099	14215	
==>er has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $ <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13398	13514	
==>er has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3532	3630	
==>->new(0)
}

package closure::params;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Ut <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2151	2270	
==>pture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remainder) = T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2068	2181	
==>pture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remainder) = T <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4211	4308	
==>e the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Syn <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4211	4308	
==>e the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Syn <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4129	4231	
==>ment, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

meth <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4129	4231	
==>ment, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

meth <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30581	30677	
==>h distinct Message; each file can be
shared by multiple Messages but the whole module must repres <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30581	30677	
==>h distinct Message; each file can be
shared by multiple Messages but the whole module must repres <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4624	4724	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3751	3851	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4624	4724	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3751	3851	
==>> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# multiplication is intersection <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2368	2534	
==>xp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' e <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7991	8086	
==>o Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7121	7216	
==>o Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7991	8086	
==>o Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7121	7216	
==>o Ruby)
multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17316	17425	
==>:words {  # see 11.10
      <BitwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpre <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	73	181	
==>ngify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations wit <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	73	181	
==>ngify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations wit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3286	3393	
==>e sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3286	3393	
==>e sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3286	3393	
==>e sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname o <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6204	6299	
==>y:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	742	868	
==>t) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	742	868	
==>t) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          va <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	742	868	
==>t) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3393	3517	
==>path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3393	3517	
==>path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3393	3517	
==>path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (- <==
4	/Users/nnunley/pugs/util/package-osx.pl	10623	10744	
==>iles = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16804	16982	
==>$array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16804	16982	
==>$array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elem <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16804	16982	
==>$array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elem <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5302	5416	
==>if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ($S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8017	8118	
==>+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Ar <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7147	7248	
==>+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Ar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8017	8118	
==>+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Ar <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7147	7248	
==>+#> (@a, @b) returns Array { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Ar <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8130	8244	
==>n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3513	3607	
==>n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3513	3607	
==>n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3513	3607	
==>n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3373	3482	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3373	3482	
==>an is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	341	443	
==>pher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head' <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	341	443	
==>pher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9718	9821	
==>lice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9718	9821	
==>lice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9718	9821	
==>lice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4339	4432	
==>$allok = runtests(@test_files);

This runs all the given I<@test_files> and divines whether th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6872	6983	
==>L::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6872	6983	
==>L::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6872	6983	
==>L::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     = <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	421	518	
==>ence($self: Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $other) retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18181	18333	
==>t->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18181	18333	
==>t->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18181	18333	
==>t->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4478	4573	
==>lt(\@tokens));
# tokens should be longest-match-first, but that's simple too, and the
# differen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2827	2925	
==>e_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2827	2925	
==>e_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2827	2925	
==>e_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attr <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23113	23207	
==>GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1192	1295	
==>\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Com <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2066	2169	
==>\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Com <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	577	673	
==>\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Com <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	848	939	
==>er types
sub to_str { str->new('' . (shift)->to_native) }
sub to_num { (shift)->keys->length <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1915	2007	
==>in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1878	1970	
==>in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1915	2007	
==>in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1878	1970	
==>in the current distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None repo <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9780	9894	
==>rmalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler regis <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9780	9894	
==>rmalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler regis <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	190	286	
==>ext;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM:: <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	190	286	
==>ext;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1328	1439	
==>l: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$reg <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5148	5258	
==>hift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5148	5258	
==>hift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5148	5258	
==>hift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4940	5085	
==>}
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4940	5085	
==>}
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4940	5085	
==>}
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7976	8098	
==>as Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Class: $pl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10633	10761	
==>ys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $va <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10633	10761	
==>ys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $va <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1446	1543	
==>ing more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obs <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1446	1543	
==>ing more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obs <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3869	3977	
==>= $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 eq $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1396	1495	
==>(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaMo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1396	1495	
==>(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaMo <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1396	1495	
==>(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaMo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	925	1068	
==>fig and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => File: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40409	40515	
==>unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40409	40515	
==>unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $val <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40409	40515	
==>unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $val <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9353	9470	
==>nick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9353	9470	
==>nick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostna <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	538	628	
==>input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	538	628	
==>input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4893	5001	
==>ok = _all_ok($tot);

    assert(($ok xor keys %$failedtests), 
           q{ok status jives with $failedtests <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1511	1618	
==>_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{' <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1511	1618	
==>_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{' <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2965	3070	
==>_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{' <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3955	4056	
==>he easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of li <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3955	4056	
==>he easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of li <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4035	4136	
==>he easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of li <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7511	7611	
==>st_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => "Se <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13657	13780	
==>a ) {
            my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	787	897	
==>depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	787	897	
==>depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	787	897	
==>depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self- <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2906	3038	
==>alhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remot <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2906	3038	
==>alhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remot <==
4	/Users/nnunley/pugs/util/claim_drift.pl	111	212	
==>rectories and they all use a shared DrIFT,
# you need to point symlinks to the current one if you want <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35412	35508	
==>>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head2 group

Family: group

Types: group (C<(?: <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1484	1624	
==>);
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5181	5289	
==>l_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5181	5289	
==>l_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5181	5289	
==>l_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2675	2796	
==>d $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2675	2796	
==>d $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10547	10655	
==>$value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = jo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10705	10813	
==>$value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = jo <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20132	20229	
==>e 12.2
      <VariableDeclaration>
    | <VariableDeclarationList> <','> <VariableDeclaration>
}
r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3682	3773	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3682	3773	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3682	3773	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fun <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3938	4048	
==>fig{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($EN <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	307	425	
==>{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # In <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	512	630	
==>{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # In <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	568	686	
==>{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # In <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	301	403	
==>egexp's limits, it is only
# expected to serve as a tool to somewhat speed up
# the rewrite of existing <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2755	2866	
==>/who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2755	2866	
==>/who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, s <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	17	124	
==>topt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	17	124	
==>topt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8685	8825	
==>ymbol->new('get_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	7742	7878	
==>s -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11219	11355	
==>s -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10383	10519	
==>s -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12284	12413	
==>my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13094	13223	
==>my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18187	18280	
==>ng at.

This section describes the rather complex algorithm that
Module::Compile uses.

First, <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18187	18280	
==>ng at.

This section describes the rather complex algorithm that
Module::Compile uses.

First, <==
4	/Users/nnunley/pugs/util/package-osx.pl	9382	9516	
==>e $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	766	861	
==>:AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	766	861	
==>:AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	766	861	
==>:AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17925	18107	
==>lass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17925	18107	
==>lass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fai <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17925	18107	
==>lass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fai <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	669	780	
==>"Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	669	780	
==>"Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { % <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	13	109	
==>ge Module::Install::Base;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGIN { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2714	2807	
==>t, '... got the right class name');
is($p->prototype->class, \&Object, '... got the right clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5689	5819	
==>me'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10000	10130	
==>me'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6273	6374	
==>}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= S <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6273	6374	
==>}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3296	3406	
==>) :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3296	3406	
==>) :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3296	3406	
==>) :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13868	13995	
==>ess $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14147	14274	
==>ess $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20315	20415	
==>e, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24867	24967	
==>e, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1275	1388	
==>prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try { <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1275	1388	
==>prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1978	2080	
==>mfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$sta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1978	2080	
==>mfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3013	3118	
==>t index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18336	18441	
==>ng haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basically ensures that id is polymorphic whe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3013	3118	
==>t index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3013	3118	
==>t index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4746	4918	
==>end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4746	4918	
==>end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    } <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1265	1362	
==>ntermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1265	1362	
==>ntermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24588	24686	
==>UDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23352	23450	
==>UDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24588	24686	
==>UDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23352	23450	
==>UDO EVENTS

=head2 C<loggedin>

The C<loggedin> event is fired when the bot has successfully logged <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	14825	14924	
==>f the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->lef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2721	2819	
==>- test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2721	2819	
==>- test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2721	2819	
==>- test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13397	13541	
==>+@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13397	13541	
==>+@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13397	13541	
==>+@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2282	2426	
==>+@list;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3152	3249	
==>=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
d <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3152	3249	
==>=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3232	3329	
==>=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
d <==
4	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	387	517	
==>pp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute($re, $_[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3569	3674	
==>e or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3569	3674	
==>e or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3569	3674	
==>e or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4530	4655	
==>if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM);
    }
    &Rf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2522	2619	
==>l('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2522	2619	
==>l('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2522	2619	
==>l('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11178	11330	
==>urn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11178	11330	
==>urn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11178	11330	
==>urn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaq <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	408	521	
==>nce->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    (( <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	886	999	
==>bs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	886	999	
==>bs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1482	1576	
==>er by giving 
them to the unexported C<Log::Selective::select> function or by including them 
i <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1482	1576	
==>er by giving 
them to the unexported C<Log::Selective::select> function or by including them 
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3239	3342	
==>method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3239	3342	
==>method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3239	3342	
==>method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_insta <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	55	151	
==>$_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ sind {£to€(100)}€";
# gibt '100 <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7869	8118	
==>w(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37705	37823	
==>ed $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37705	37823	
==>ed $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37705	37823	
==>ed $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	3126	3239	
==>sts 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fa <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	37434	37528	
==>-ary version of the aforementioned binary join()
operator, and the order of its arguments is no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41983	42077	
==>-ary version of the aforementioned binary join()
operator, and the order of its arguments is no <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41624	41718	
==>-ary version of the aforementioned binary join()
operator, and the order of its arguments is no <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	274	388	
==>in is primitive {
    # XXX return $str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3297	3399	
==>me (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3297	3399	
==>me (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3297	3399	
==>me (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5889	5992	
==>d declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5889	5992	
==>d declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5889	5992	
==>d declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	49	150	
==>ated in the .pm, in this case
# 42. See thread "What do use and require evaluate to?" on p6l started b <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10770	10874	
==>ind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	336	433	
==>key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.dec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	336	433	
==>key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.dec <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	336	433	
==>key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.dec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39325	39439	
==>->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39325	39439	
==>->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39325	39439	
==>->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	213	311	
==>p($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	213	311	
==>p($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16462	16553	
==>dustrial strength) and has fully integrated database functionality;
this language, which sat <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16462	16553	
==>dustrial strength) and has fully integrated database functionality;
this language, which sat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16726	16939	
==>range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16726	16939	
==>range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16726	16939	
==>range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18497	18614	
==>= 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .pa <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2768	2909	
==>rser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $ <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2768	2909	
==>rser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	940	1036	
==>ch object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The P <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	940	1036	
==>ch object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	445	544	
==>at don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	445	544	
==>at don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n( <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	445	544	
==>at don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	15997	16181	
==>,
            min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	733	837	
==>ratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>( <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	733	837	
==>ratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38960	39056	
==>2 Escape Sequences

If you are creating a new escape sequence, like '\y', your handler will
recei <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	757	861	
==>{ Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	757	861	
==>{ Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	138	235	
==>ext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	138	235	
==>ext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	9815	9919	
==>ht() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children - <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9815	9919	
==>ht() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children - <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3745	3842	
==>pans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete A <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3745	3842	
==>pans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete A <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27043	27168	
==>t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β) → α", ":t fst");
is(t(ide("snd")), "∀α. ∀β. (α × β) → β", <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3256	3352	
==>arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3256	3352	
==>arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defea <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3256	3352	
==>arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defea <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4847	4950	
==>{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4847	4950	
==>{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1134	1234	
==>ternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1134	1234	
==>ternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5439	5547	
==>^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5439	5547	
==>^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5439	5547	
==>^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1756	1894	
==>unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 're <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2499	2637	
==>unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 're <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1756	1894	
==>unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 're <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2487	2625	
==>unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) = each %$n;
    # XXX - use real references
    no strict 're <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14347	14522	
==>tant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14626	14801	
==>tant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10820	10918	
==>` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $g <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10878	10976	
==>` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	820	946	
==>class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	820	946	
==>class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$insta <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	820	946	
==>class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$insta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11171	11296	
==>. ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $n->{ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20517	20630	
==>.
rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[1 <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12990	13099	
==>>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7054	7146	
==>add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7054	7146	
==>add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7054	7146	
==>add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	3717	3828	
==>:import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error wh <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3775	3886	
==>:import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error wh <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19635	19729	
==>g or
updating their "information schema" records, which in SQL are read-only,
not by using spec <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19635	19729	
==>g or
updating their "information schema" records, which in SQL are read-only,
not by using spec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1852	1968	
==>ft;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1852	1968	
==>ft;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bi <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2088	2204	
==>ft;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bi <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8616	8724	
==>$pLHS > 1;
    my($lhs)=@$pLHS;
    my $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tp <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15412	15503	
==>Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities:: <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15412	15503	
==>Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19740	19844	
==>ations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alr <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18721	18825	
==>ations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19740	19844	
==>ations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alr <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18721	18825	
==>ations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is alr <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	474	606	
==>_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	474	606	
==>_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8805	8909	
==>rn @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8805	8909	
==>rn @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32069	32201	
==>n, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32069	32201	
==>n, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32069	32201	
==>n, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14182	14289	
==>neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1624	1727	
==>a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2633	2775	
==>) = @_;
            if ($class != $EigenClass) {
                my $eigenclass = $EigenClass->new(
                    '$:name' => 'EigenClass <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	391	503	
==>ion () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	391	503	
==>ion () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	391	503	
==>ion () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retur <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11643	11751	
==>[0]}) },
      perl5_object => sub { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool }, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4940	5034	
==>emporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4940	5034	
==>emporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (* <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4940	5034	
==>emporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (* <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6682	6797	
==>r eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    retu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6682	6797	
==>r eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26100	26198	
==>tring; the allowed variable names you can have depend on the Message Key
it is being used with (oth <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26100	26198	
==>tring; the allowed variable names you can have depend on the Message Key
it is being used with (oth <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12734	12876	
==>xpanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expand <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9008	9150	
==>xpanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expand <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9843	9985	
==>xpanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expand <==
4	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	93	204	
==>TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

use strict;
use warnings;

# Input a string containing a r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1699	1832	
==>] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2442	2575	
==>] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1699	1832	
==>] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2430	2563	
==>] . '  ';
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
    #print "NODE ", Dumper($n);
    my ( $k, $v ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3298	3391	
==>}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3298	3391	
==>}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => u <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3298	3391	
==>}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5758	5851	
==>more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=ite <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5758	5851	
==>more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=ite <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5758	5851	
==>more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=ite <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3219	3333	
==>hift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  push @ISA, qw( Regexp: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1104	1197	
==>FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1104	1197	
==>FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1104	1197	
==>FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6577	6682	
==>od previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array. <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6577	6682	
==>od previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3066	3166	
==>e ExtUtils::Manifest;
    local *ExtUtils::Manifest::manicheck = sub { return };

    require Module: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40375	40485	
==>unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40375	40485	
==>unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $v <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40375	40485	
==>unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $v <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2016	2104	
==>t's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	89	186	
==>tion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	89	186	
==>tion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	89	186	
==>tion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6:: <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22694	22787	
==>dimensions rather than one.  The Relation::Example operators are somewhat of
a superset of the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11240	11352	
==>$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11240	11352	
==>$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11240	11352	
==>$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4114	4309	
==>c ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "%$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8629	8814	
==>$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8629	8814	
==>$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8629	8814	
==>$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->ne <==
4	/Users/nnunley/pugs/misc/S29_round.pl	1826	1954	
==>($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given fl <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2363	2491	
==>($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given fl <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	3970	4052	
==>ed ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3970	4052	
==>ed ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15252	15350	
==>y @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $des <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15310	15408	
==>y @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $des <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6529	6818	
==>ew(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20332	20446	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20611	20725	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	523	630	
==>ft;
        return $self->{values}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = shift <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7284	7429	
==>ed $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7284	7429	
==>ed $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7284	7429	
==>ed $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::C <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16568	16694	
==>fe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::round_gen <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13501	13656	
==>dash = 1;
                $string = substr($string,0,-1)
            }

            while (($idx = index($string,'-')) != -1) {
                my $pre = su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3646	3785	
==>dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3646	3785	
==>dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = su <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3646	3785	
==>dash = 1;
            $string = substr($string,0,-1)
        }

        while (($idx = index($string,'-')) != -1) {
            my $pre = su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	366	475	
==>JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	366	475	
==>JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	366	475	
==>JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refere <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14519	14626	
==>$neg, \$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $ho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9598	9719	
==>lems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9598	9719	
==>lems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9598	9719	
==>lems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sli <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3076	3208	
==>() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tr <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3076	3208	
==>() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17194	17291	
==>ntended audience for the message
content.  The value is one or more language tags as defined by RF <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17194	17291	
==>ntended audience for the message
content.  The value is one or more language tags as defined by RF <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1643	1758	
==>capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlau <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1643	1758	
==>capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlau <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	943	1084	
==>rs {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	943	1084	
==>rs {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	55	152	
==>m pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compile <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	55	152	
==>m pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compile <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1662	1782	
==>complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1662	1782	
==>complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        r <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3885	3982	
==>t.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.co <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3885	3982	
==>t.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.co <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	525	625	
==>CRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pug <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	525	625	
==>CRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pug <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3300	3393	
==>=pod

=head2 JIB::Utils->_version_to_number( version => $version );

Returns a proper module v <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16839	16980	
==>){
        return join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")" <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	15899	16063	
==>n = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = /\.(\w+)$/ ? $1 : '';
        my $len    = length;
        my $suflen = length $suf;
        $m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37772	37907	
==>{
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37772	37907	
==>{
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37772	37907	
==>{
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # ' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5306	5415	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10961	11070	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20317	20411	
==>that end users could do,
although program package installers usually do it.  An os-level prefer <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20317	20411	
==>that end users could do,
although program package installers usually do it.  An os-level prefer <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10064	10199	
==>>add_handler('^' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return $S->$n;
    }

    retu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3373	3480	
==>nick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permut <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3373	3480	
==>nick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permut <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1701	1805	
==>Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blond <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38788	38897	
==>t;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38788	38897	
==>t;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38788	38897	
==>t;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12056	12148	
==>_PERL5LIB;

This restores the original value of the C<PERL5LIB> environment variable.
Necessa <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4335	4451	
==>map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	90	190	
==>reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	90	190	
==>reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	90	190	
==>reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9163	9341	
==>length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9163	9341	
==>length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        c <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9163	9341	
==>length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        c <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	6	99	
==>/bin/perl

package Blondie::Backend::Perl;
use base qw/Blondie::Runtime/;

use strict;
use war <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11479	11640	
==>ss \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7761	7922	
==>ss \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8595	8756	
==>ss \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13400	13522	
==>osetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' = <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13400	13522	
==>osetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2707	2806	
==>or platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :). <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2707	2806	
==>or platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :). <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16764	16945	
==>'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16764	16945	
==>'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatche <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16764	16945	
==>'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatche <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4143	4273	
==>iverse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $se <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4143	4273	
==>iverse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $se <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5811	5912	
==>left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5811	5912	
==>left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      m <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14708	14823	
==>lf->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $self->{param_sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17516	17610	
==>UB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17516	17610	
==>UB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17516	17610	
==>UB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2146	2263	
==>b statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2146	2263	
==>b statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2146	2263	
==>b statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1388	1484	
==>= File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec->ca <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	893	1009	
==>ody => 'prel_printf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2322	2427	
==>return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2322	2427	
==>return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2322	2427	
==>return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
} <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	637	791	
==>ldren(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35332	35429	
==>ts source Relations
have attributes in common; it will only accept inputs that would result in
a c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39882	39979	
==>ts source Relations
have attributes in common; it will only accept inputs that would result in
a c <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39442	39539	
==>ts source Relations
have attributes in common; it will only accept inputs that would result in
a c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3984	4180	
==>ub { $z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $sel <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5209	5321	
==>| confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5209	5321	
==>| confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5209	5321	
==>| confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttr <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4603	4756	
==>^       safe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     sa <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1870	1984	
==>lem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1870	1984	
==>lem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	86	184	
==>anager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will b <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4167	4330	
==>/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name = <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5488	5651	
==>/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4167	4330	
==>/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5476	5639	
==>/$_[1]/mg;
            return "$code\n";
        }
        else {
            $value = eval $name;
        }
    }
    
    $value = join('', eval $name) if $name = <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6801	6904	
==>returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6801	6904	
==>returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8998	9101	
==>returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Tes <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	22	123	
==>ge Blondie::Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	99	197	
==>g the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	99	197	
==>g the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31035	31126	
==>tion or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35585	35676	
==>tion or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17826	17928	
==>ta to it, and output data from it.

You can create more than one DBMS object at a time, and they are
es <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17826	17928	
==>ta to it, and output data from it.

You can create more than one DBMS object at a time, and they are
es <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12004	12100	
==>... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, S <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12062	12158	
==>... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, S <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1946	2054	
==>xename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\n";
    i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2298	2396	
==>dd_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2298	2396	
==>dd_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_inst <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2298	2396	
==>dd_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_inst <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16677	16779	
==>obj_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1448	1546	
==>could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1448	1546	
==>could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1448	1546	
==>could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2101	2233	
==>_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2101	2233	
==>_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2101	2233	
==>_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31986	32081	
==>erences).

=item off

The flags specifically turned off for this object (for flag assertions
and <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2736	2869	
==>var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.h <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2736	2869	
==>var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.h <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	114	216	
==>{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is cop <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	114	216	
==>{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is cop <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3253	3383	
==>_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3253	3383	
==>_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $ <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1034	1132	
==>nNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.ex <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3321	3431	
==>ed( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3321	3431	
==>ed( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	134	232	
==>the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source || <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	134	232	
==>the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source || <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	741	879	
==>ess {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	741	879	
==>ess {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	741	879	
==>ess {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21133	21227	
==>st copies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33815	33962	
==>>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33815	33962	
==>>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UN <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33815	33962	
==>>elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UN <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18614	18741	
==>omb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => " <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1444	1539	
==>here.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, co <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1975	2070	
==>der($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header( <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1444	1539	
==>here.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, co <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1975	2070	
==>der($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34941	35061	
==>, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34941	35061	
==>, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34941	35061	
==>, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6818	6939	
==>(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6818	6939	
==>(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
} <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6818	6939	
==>(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
} <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1849	1938	
==>ws", &parse_enumclass);
    $optable->addToken("term:{{", "term:", "nows", &parse_closure) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23119	23217	
==>ext" it looks like you
are supposed to pass in english text and they translate it, which could
prod <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23119	23217	
==>ext" it looks like you
are supposed to pass in english text and they translate it, which could
prod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3479	3576	
==>>{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3479	3576	
==>>{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7814	7951	
==>, @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7814	7951	
==>, @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only d <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8355	8454	
==>k 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8355	8454	
==>k 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	356	611	
==>y = q{};

###########################################################################
###########################################################################

class Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # External packages <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6599	6688	
==>----------------------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## -- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6622	6711	
==>-----------------------------
## BOOTSTRAPPING Roles COMPLETE
## ------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6645	6734	
==>------
## BOOTSTRAPPING Roles COMPLETE
## ------------------------------------------------ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6861	6969	
==>)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6861	6969	
==>)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pref <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6861	6969	
==>)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pref <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23939	24090	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26648	26799	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24218	24369	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26927	27078	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1158	1269	
==>method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1158	1269	
==>method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5585	5684	
==>t database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_e <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5585	5684	
==>t database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_e <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	243	350	
==>ub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	243	350	
==>ub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22320	22416	
==>n class is pure and deterministic, such that all of its class
and object methods will each return <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26872	26968	
==>n class is pure and deterministic, such that all of its class
and object methods will each return <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5554	5698	
==>);
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$template->param(directories => [ map { { title => $_,
                                          wrap <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3380	3497	
==>ift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3380	3497	
==>ift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3380	3497	
==>ift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{t <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	4797	4938	
==>n = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4797	4938	
==>n = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13179	13272	
==>e decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \% <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13179	13272	
==>e decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \% <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3264	3361	
==>= $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3264	3361	
==>= $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3264	3361	
==>= $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $ <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17642	17776	
==>har* strend,
                  char* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2148	2246	
==>("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2148	2246	
==>("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2148	2246	
==>("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5458	5586	
==>a"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935) <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5458	5586	
==>a"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935) <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	334	448	
==>pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	334	448	
==>pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	872	983	
==>brule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	883	994	
==>brule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17472	17560	
==>e
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17472	17560	
==>e
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7039	7178	
==>eturn 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7027	7166	
==>eturn 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7065	7223	
==>,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_typ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7065	7223	
==>,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_typ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6362	6458	
==>al' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtIt <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6362	6458	
==>al' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtIt <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1090	1204	
==>name => '&infix:<+>',
			body => '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	95	193	
==>s_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	95	193	
==>s_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argnam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	95	193	
==>s_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argnam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	262	355	
==>..normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precom <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	262	355	
==>..normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precom <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	262	355	
==>..normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precom <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27552	27641	
==>rser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4287	4411	
==>_str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p " <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4427	4551	
==>_str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p " <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	4932	5030	
==>{
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4990	5088	
==>{
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1368	1477	
==>}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	356	465	
==>}
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1368	1477	
==>}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool::False }
method end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	356	465	
==>}
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::False }
method end <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5981	6161	
==>$replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Rela <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9458	9638	
==>$replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Rela <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4409	4524	
==>tate[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_key <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4409	4524	
==>tate[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_key <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11132	11265	
==>defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -In <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11132	11265	
==>defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -In <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3303	3408	
==>>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<userna <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3303	3408	
==>>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<userna <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5398	5499	
==>er_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4528	4629	
==>er_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5398	5499	
==>er_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4528	4629	
==>er_subset($two);
}
multi sub *infix:«>» (Set $one, Set $two) returns Set {
    $one.proper_superset( <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4587	4707	
==>= 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	329	435	
==>Level = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	329	435	
==>Level = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	329	435	
==>Level = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1557	1803	
==>:Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rose <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1557	1803	
==>:Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rose <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11598	11686	
==>and `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11656	11744	
==>and `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2404	2517	
==>r to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varl <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2404	2517	
==>r to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varl <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6628	6728	
==>s. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. Ther <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6628	6728	
==>s. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. Ther <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10564	10714	
==>fined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10564	10714	
==>fined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10564	10714	
==>fined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[ <==
4	/Users/nnunley/pugs/util/package-osx.pl	615	732	
==>merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	264	385	
==>) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($mat <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	264	385	
==>) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($mat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1157	1269	
==>perset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1157	1269	
==>perset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21416	21511	
==>event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Eve <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20297	20392	
==>event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21416	21511	
==>event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Eve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20297	20392	
==>event {...})>

Adds a callback to be executed when the bot receives a corresponding message.
Eve <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	16555	16662	
==>$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{test <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5644	5750	
==>eturn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6197	6303	
==>eturn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5837	5943	
==>eturn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6390	6496	
==>eturn unless $match;
        my $capture_block = sub { return { constant =>  match::get( $_[0], '$()' )  ,} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8665	8793	
==>- more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @ar <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5025	5153	
==>- more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @ar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5874	6002	
==>- more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @ar <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21248	21372	
==>pats"]
    pad["subpats"] = 0
    pad["isarray"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = ex <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	100	193	
==>duce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postf <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3170	3365	
==>ss: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $ <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3170	3365	
==>ss: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16162	16259	
==>rks, and will
not spend much time in providing rationales; you can read TTM itself and
various oth <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16162	16259	
==>rks, and will
not spend much time in providing rationales; you can read TTM itself and
various oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5	110	
==>is is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5	110	
==>is is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to b <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5	110	
==>is is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to b <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	3	99	
==>kalare (Zahlen, Strings, Objekte, ...)
Perl 5:  my $name="Jens"; print "Mein Name ist $name.";
Pe <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25127	25216	
==>nbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Su <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23891	23980	
==>nbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Su <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25127	25216	
==>nbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Su <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23891	23980	
==>nbot.p6>, F<examples/network/logbot.p6> and
F<examples/network/svnbot.p6> in the L<Pugs Su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11776	11884	
==>_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11776	11884	
==>_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11776	11884	
==>_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

s <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1080	1179	
==>dd_smoke();
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10126	10255	
==>iff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10126	10255	
==>iff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $di <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10126	10255	
==>iff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7275	7460	
==>nf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7275	7460	
==>nf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $sta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7275	7460	
==>nf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $sta <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26820	26914	
==>un.  Setting C<$Test::Harness::Debug> will
override this, or you can use the C<-d> switch in th <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2483	2606	
==>h},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9395	9487	
==>..};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9395	9487	
==>..};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9395	9487	
==>..};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("re <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30365	30460	
==>C<$heading>) may or may not resemble those of the original. 
The anonymous function in the argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34917	35011	
==>C<$heading>) may or may not resemble those of the original.
The anonymous function in the argum <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34099	34193	
==>C<$heading>) may or may not resemble those of the original.
The anonymous function in the argum <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7917	8064	
==>node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4277	4424	
==>node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are A <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5126	5273	
==>node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are A <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2285	2388	
==>:Example-0.1.0 {
    does Relation;

    # External packages used by the Relation::Example class, that d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2841	2975	
==>n {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1463	1597	
==>n {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7431	7541	
==>er::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actual <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7443	7553	
==>er::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actual <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1323	1424	
==>JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1323	1424	
==>JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1323	1424	
==>JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19179	19324	
==>=> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19179	19324	
==>=> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19179	19324	
==>=> sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1122	1228	
==>oper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1102	1208	
==>oper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1122	1228	
==>oper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1102	1208	
==>oper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	283	388	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	283	388	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	283	388	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3659	3783	
==>::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3659	3783	
==>::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3659	3783	
==>::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	65	165	
==>"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1637	1733	
==>lf: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($sel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1637	1733	
==>lf: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13346	13440	
==>Document.new(), by which you can create an identical Document (with member
Nodes) to the one yo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13346	13440	
==>Document.new(), by which you can create an identical Document (with member
Nodes) to the one yo <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10969	11077	
==>to the initrd",
    help   => "Note: You might want to strip pugs and parrot to save space.",
    ensure => s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14548	14643	
==>slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14548	14643	
==>slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14548	14643	
==>slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4585	4731	
==>azy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  s <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4585	4731	
==>azy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26245	26341	
==>ny
defined and non-empty string, and each variable value can be anything at
all.  Note that while <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26245	26341	
==>ny
defined and non-empty string, and each variable value can be anything at
all.  Note that while <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24516	24627	
==>Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24516	24627	
==>Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24516	24627	
==>Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' = <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10338	10448	
==>uite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class="indent2">$ make smoke
$ ./ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1319	1518	
==>leop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1446	1645	
==>leop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::const <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14890	14983	
==>ew( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "da <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14890	14983	
==>ew( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "da <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6663	6781	
==>emit_grammar_perl5 {
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp-> <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2373	2469	
==>Clary, who created the HTML-ified ecma-262, without which
#  this grammar would likely not have b <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11682	11767	
==>van little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.com <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11682	11767	
==>van little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.com <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12010	12112	
==>used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12442	12544	
==>used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12010	12112	
==>used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12442	12544	
==>used as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5058	5209	
==>x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_n <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5058	5209	
==>x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	564	687	
==>t = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	564	687	
==>t = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2019	2134	
==>s Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $se <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2019	2134	
==>s Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $se <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	25350	25443	
==>qual (Relation $other!) returns Bool>

This method returns the complement of C<equal> with the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29902	29995	
==>qual (Relation $other!) returns Bool>

This method returns the complement of C<equal> with the <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13364	13498	
==>s to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to ins <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5172	5271	
==>optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This ret <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5172	5271	
==>optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This ret <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7369	7468	
==>optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6153	6257	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6153	6257	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6153	6257	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	498	624	
==>n
) returns Str {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Need <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3129	3235	
==>); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3129	3235	
==>); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3129	3235	
==>); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ( <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16706	16814	
==>ext/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16706	16814	
==>ext/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17637	17732	
==>a virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17637	17732	
==>a virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38039	38297	
==>'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	819	926	
==>que structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1024	1131	
==>que structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_c <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1080	1187	
==>que structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10973	11213	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10973	11213	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10973	11213	
==>:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4889	4987	
==>xt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4889	4987	
==>xt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23187	23283	
==>y distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27739	27835	
==>y distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	600	705	
==>ote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </ <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	600	705	
==>ote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6157	6250	
==>Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers t <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6157	6250	
==>Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	17045	17157	
==>o_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2315	2422	
==>subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2315	2422	
==>subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$sub <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2662	2769	
==>subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$sub <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5360	5497	
==>w_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5360	5497	
==>w_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pu <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1069	1173	
==>rgs = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), ma <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1069	1173	
==>rgs = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), ma <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1508	1602	
==>15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\CO <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1348	1442	
==>15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\CO <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7429	7520	
==>le(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1254	1345	
==>le(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	684	832	
==>","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	684	832	
==>","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeou <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	684	832	
==>","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeou <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1805	1908	
==>Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc::Module::Install::VERSION = *VER <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23020	23119	
==>s and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set memb <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27572	27671	
==>s and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set memb <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26349	26448	
==>s and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set memb <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14299	14394	
==>=item RPe_RBRACE (-20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonex <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6331	6490	
==>self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{param} );
            }
            ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4986	5078	
==>Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4986	5078	
==>Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refere <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4986	5078	
==>Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refere <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1315	1490	
==>sts of Bool (Relation::AttrName $attr_name) {
    return %!attrs.exists($attr_name);
}

###########################################################################

} # class R <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3749	3877	
==>atch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3749	3877	
==>atch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3749	3877	
==>atch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30384	30483	
==>en of the object.

=item $obj->walk()

"Walks" the object.  This is used to dive into the node's chi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38177	38273	
==>ult tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42726	42822	
==>ult tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42376	42472	
==>ult tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C< <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10757	10855	
==>y uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $ <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10815	10913	
==>y uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12948	13041	
==>tin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provi <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12948	13041	
==>tin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5641	5750	
==>} @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5641	5750	
==>} @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5641	5750	
==>} @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	186	301	
==>r+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_dazwischen(); continue <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2626	2737	
==>$next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2626	2737	
==>$next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2626	2737	
==>$next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	716	829	
==>le      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	716	829	
==>le      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25080	25176	
==>sage class is pure and deterministic,
such that all of its class and object methods will each ret <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25080	25176	
==>sage class is pure and deterministic,
such that all of its class and object methods will each ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2251	2354	
==>ck is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2251	2354	
==>ck is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix thi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2251	2354	
==>ck is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix thi <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20116	20199	
==>,E0,E0) :- class_member(class_pos(X),C), !.
rm(class_neg(X),[C|F1],F1,B0,[C|B0],E0,E <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	134	253	
==>alue = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" }

	sub fmap {
		my $self = <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14023	14131	
==>def;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14023	14131	
==>def;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attrib <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14023	14131	
==>def;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attrib <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3552	3669	
==>593 defines this as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	127	222	
==>7950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	127	222	
==>7950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	127	222	
==>7950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48875	49052	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$version' => 'st <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29529	29691	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45647	45809	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49737	49899	
==>>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27377	27478	
==>attributes; they
must all be set when the object is constructed.  If you want to
conceptually change a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34903	35004	
==>attributes;
they must all be set when the object is constructed.  If you want to
conceptually change a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27377	27478	
==>attributes; they
must all be set when the object is constructed.  If you want to
conceptually change a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34903	35004	
==>attributes;
they must all be set when the object is constructed.  If you want to
conceptually change a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16354	16466	
==>rimitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Code $corner) returns Int is primitive is saf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2457	2552	
==>try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2457	2552	
==>try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2457	2552	
==>try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Se <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17894	18022	
==>) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@methods) {
        l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1351	1450	
==>urn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1351	1450	
==>urn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER:: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1351	1450	
==>urn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1914	2040	
==>lass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1914	2040	
==>lass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1914	2040	
==>lass');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6972	7090	
==>, $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, _where(), @_);
}

sub curr_test {
    $test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	13	125	
==>PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	13	125	
==>PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	13	125	
==>PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7387	7498	
==>t values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7387	7498	
==>t values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7387	7498	
==>t values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5333	5466	
==>--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exechook <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4271	4366	
==>a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4271	4366	
==>a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4271	4366	
==>a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1573	1684	
==>ors
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1573	1684	
==>ors
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1573	1684	
==>ors
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Num <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	356	459	
==>A    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_value <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18015	18117	
==>ch.pl';
  Pkg_re_tests::test(sub{my($mods,$re)=@_;
    $re = "(?$mods)(?:$re)" if $mods;
    my $r = co <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26494	26590	
==>ection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31046	31142	
==>ection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the i <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30048	30144	
==>ection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9952	10055	
==>* $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9952	10055	
==>* $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9952	10055	
==>* $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBi <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33009	33105	
==>ect falls.

This is very sparse.  Future versions will have more complete
documentation.  For now <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3394	3503	
==>unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3394	3503	
==>unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3394	3503	
==>unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	335	440	
==>h($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_reduce {
	my $self = shift;
	my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16871	17001	
==>'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16871	17001	
==>'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    el <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16871	17001	
==>'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    el <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	781	889	
==>my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	781	889	
==>my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	781	889	
==>my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1486	1615	
==>tance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1486	1615	
==>tance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1486	1615	
==>tance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1705	1828	
==>pile) {
    open(F,"<$compile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $ <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1077	1225	
==>t;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1077	1225	
==>t;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5383	5482	
==>c_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, si <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5383	5482	
==>c_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, si <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	62	174	
==>Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parse <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	62	174	
==>Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parse <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2072	2185	
==>calar(@{$self}));
}

sub elems {
    my $self = shift;
    return num->new($#{$self});
}

sub is_empty {
    my $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	440	546	
==>$jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	440	546	
==>$jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	440	546	
==>$jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CL <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	32921	33022	
==>onal operator that is like
C<union> except that the returned Relation contains only tuples that are in <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33376	33477	
==>onal operator that is like
C<union> except that the returned Relation contains only tuples that are in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37471	37572	
==>onal operator that is like
C<union> except that the returned Relation contains only tuples that are in <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37926	38027	
==>onal operator that is like
C<union> except that the returned Relation contains only tuples that are in <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	2606	2739	
==>s -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2606	2739	
==>s -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6566	6686	
==><channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$c <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6566	6686	
==><channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7926	8026	
==>nation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alterna <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3369	3468	
==>use it is just a date, it does not handle time zones or leap
seconds.

All methods take named parame <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3369	3468	
==>use it is just a date, it does not handle time zones or leap
seconds.

All methods take named parame <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7656	7752	
==>nation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alterna <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	648	743	
==>{
	my $self = shift;
	$self->annotator->annotate($self, @_);
}

sub emitter_class { "Blondie::Ba <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1647	1737	
==>tr.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1647	1737	
==>tr.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1647	1737	
==>tr.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1682	1802	
==>,  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital TH <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1682	1802	
==>,  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital TH <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2163	2263	
==>arn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2223	2323	
==>arn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2120	2237	
==>*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.sa <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3279	3387	
==>($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmp <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	125	232	
==>*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.sa <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	125	232	
==>*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.sa <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9159	9421	
==>tions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5519	5781	
==>tions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6368	6630	
==>tions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	0	96	
==>﻿package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
use Pugs::Compiler::Rule;
u <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	12206	12301	
==>T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend ) <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12206	12301	
==>T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend ) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	0	93	
==>﻿package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
u <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9484	9622	
==>o we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $scr <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2537	2675	
==>o we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $scr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28779	28886	
==>/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28779	28886	
==>/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4448	4557	
==>ry stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $tok <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4448	4557	
==>ry stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $tok <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6205	6355	
==>n);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5278	5428	
==>n);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw a <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6205	6355	
==>n);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw a <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5278	5428	
==>n);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to throw a <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3537	3869	
==>$arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::Key <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3537	3869	
==>$arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::Key <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11823	11915	
==>@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11823	11915	
==>@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1526	1678	
==>ew().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1526	1678	
==>ew().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1264	1411	
==>IL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join " <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1264	1411	
==>IL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join " <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	497	625	
==>ift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if (my $replacement = $r->provides($node)) {
			return $self <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23813	23923	
==>ream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0 <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29001	29099	
==>ream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15055	15231	
==>es->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15055	15231	
==>es->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15055	15231	
==>es->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array-> <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	849	965	
==>um::round_half_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17876	17986	
==>rror qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symt <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9940	10035	
==>ferred".  The immediate validations
are performed at the moment the user tries to set the input, <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9940	10035	
==>ferred".  The immediate validations
are performed at the moment the user tries to set the input, <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	9625	9743	
==>hip
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartm <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9625	9743	
==>hip
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartm <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6200	6301	
==>ing - should be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5987	6086	
==>ing - should be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3383	3488	
==>got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3383	3488	
==>got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4907	5012	
==>got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28163	28252	
==>t $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog::Yas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1140	1237	
==>d (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1140	1237	
==>d (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1140	1237	
==>d (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16510	16625	
==>($^O eq 'VMS') {
        # some tests will trigger VMS messages that won't be expected
        $results =~ s/\n?%[A- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6393	6505	
==>->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6393	6505	
==>->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6393	6505	
==>->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6	105	
==>e Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6	105	
==>e Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6	105	
==>e Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7565	7662	
==>m::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7184	7402	
==>urrent_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $ <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7184	7402	
==>urrent_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21142	21242	
==>s the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20050	20150	
==>s the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21142	21242	
==>s the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20050	20150	
==>s the channels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13640	13827	
==>->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13640	13827	
==>->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13640	13827	
==>->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21852	21941	
==>UB-CLASSING

I will present two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::AndB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13755	13864	
==>ey->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13755	13864	
==>ey->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13755	13864	
==>ey->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key- <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	30290	30385	
==>ry is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COMPILE_TEST currently as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9434	9526	
==>.};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9434	9526	
==>.};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9434	9526	
==>.};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	15793	15906	
==>, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # reverse is since we're splic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8887	8987	
==>fix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8887	8987	
==>fix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @cop <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8887	8987	
==>fix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @cop <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4859	5031	
==>}($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4859	5031	
==>}($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	28143	28250	
==>f 'foo')";
dies_ok { t($no_such_sym) } "all identifiers need to be resolvable";
dies_ok { t($app_plus_ten_to <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5908	6027	
==>_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5908	6027	
==>_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5908	6027	
==>_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{metho <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11376	11484	
==>.1
      <StrDecimalLiteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6534	6664	
==>ilable files
    $self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $self->write or return;
    
    return $in <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	301	409	
==>S}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	301	409	
==>S}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	301	409	
==>S}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1004	1225	
==>) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'li <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1004	1225	
==>) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'li <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10740	10838	
==>ions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) { <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10740	10838	
==>ions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1349	1530	
==>t_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1349	1530	
==>t_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1349	1530	
==>t_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->n <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5256	5377	
==>s_of_type;
sub init {
    my $list = PIL::PIL1CPerl5::NodesList::get_name_rep_type_pairs_list();
    my $code = "";
    fo <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2506	2601	
==>ass represents a client's request.  It also contains extra
information passed on by the HTTP ser <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2506	2601	
==>ass represents a client's request.  It also contains extra
information passed on by the HTTP ser <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6085	6170	
==>t<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6085	6170	
==>t<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<cha <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22737	22851	
==>ethod class (opaque $self:) returns opaque {
    # speculative syntax here :)
    unbox($self).class
}

(method cla <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4280	4385	
==>Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.i <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4280	4385	
==>Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9449	9575	
==>eOps::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: arg <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13359	13458	
==>te($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13359	13458	
==>te($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13359	13458	
==>te($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4198	4298	
==>nitialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, whi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4198	4298	
==>nitialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, whi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1334	1427	
==>evious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1334	1427	
==>evious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7162	7306	
==>sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ], <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7162	7306	
==>sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ], <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13641	13734	
==>_SWBRAN (-7)

Switch (?(condition)... contains too many branches

=item RPe_SWUNKN (-8)

Unkno <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	9398	9489	
==>("int"),
		),
	),
	sub => type::operator::arrow->new(
		type::operator::nullary->new("int"), <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8189	8307	
==>n "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8189	8307	
==>n "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8189	8307	
==>n "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4224	4326	
==>on
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is uni <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3351	3453	
==>on
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is uni <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4224	4326	
==>on
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is uni <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3351	3453	
==>on
multi sub *infix:<∪> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# addition is uni <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	480	586	
==>, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	480	586	
==>, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	480	586	
==>, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@arg <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1144	1241	
==>oots, like square roots or
cube roots (as in the example above).  Read a Calculus textbook for det <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15675	15804	
==>{
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9384	9478	
==>ll ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9384	9478	
==>ll ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9384	9478	
==>ll ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4756	4870	
==>;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@s <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	223	337	
==>RSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modules = glob('*.pm');

    requi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4756	4870	
==>;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4756	4870	
==>;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5873	5989	
==>urn @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5873	5989	
==>urn @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	426	519	
==>New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 versio <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	426	519	
==>New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 versio <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14928	15019	
==><'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression>
}
rule Addi <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13350	13479	
==>nge:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23694	23805	
==>ed $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23694	23805	
==>ed $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23694	23805	
==>ed $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3370	3469	
==>,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3370	3469	
==>,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3370	3469	
==>,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15188	15356	
==>method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15188	15356	
==>method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15188	15356	
==>method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15453	15579	
==>ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \'' . $n->{op1}{ang <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7541	7635	
==>turn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7541	7635	
==>turn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->pa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7541	7635	
==>turn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->pa <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	541	654	
==>her {
	while @values {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23990	24101	
==>_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23990	24101	
==>_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23990	24101	
==>_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32893	32991	
==>method, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32893	32991	
==>method, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	27	140	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	27	140	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	27	140	
==>nings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  r <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	7	105	
==>The world needs a Perl6 regex pattern reference grammar.
Here is a place to accumulate one.

Resour <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2387	2494	
==>rks
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..2000 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2387	2494	
==>rks
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..2000 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2387	2494	
==>rks
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..2000 <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2789	3006	
==>z] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18298	18491	
==>et);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18298	18491	
==>et);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STO <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18298	18491	
==>et);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STO <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4914	5024	
==>};
}

sub load {
    my ($self, $method) = @_;

    $self->load_extensions(
        "$self->{prefix}/$self->{pa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7084	7176	
==>{
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7084	7176	
==>{
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(functi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7084	7176	
==>{
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(functi <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2254	2495	
==>nt>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_lin <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2254	2495	
==>nt>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_lin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	27	120	
==>ircumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	31	124	
==>ircumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9272	9371	
==>SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9272	9371	
==>SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9272	9371	
==>SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB r <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4397	4485	
==>_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tok <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3443	3553	
==>);

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	433	543	
==>mbers;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes($no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3443	3553	
==>);

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (d <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3443	3553	
==>);

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (d <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6943	7077	
==>x;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6931	7065	
==>x;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	82	168	
==>_decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_num <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	82	168	
==>_decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_num <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24252	24429	
==>r1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24531	24708	
==>r1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12242	12364	
==>d in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12236	12358	
==>d in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8534	8637	
==>)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8534	8637	
==>)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pai <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8534	8637	
==>)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pai <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	352	451	
==>2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	352	451	
==>2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	352	451	
==>2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5840	5948	
==>ethod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5840	5948	
==>ethod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sourc <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5840	5948	
==>ethod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sourc <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	6096	6200	
==>s to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method strin <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6096	6200	
==>s to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method strin <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1730	1818	
==>et::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional. <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1730	1818	
==>et::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional. <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7526	7619	
==>`reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7526	7619	
==>`reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13758	13884	
==>::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13758	13884	
==>::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13758	13884	
==>::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->di <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2765	2868	
==>s some issues with Perl 5 interoperability.

Parrot Perl 6 is the best performing implementation by far. <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2260	2408	
==>es} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{num};
            if( defined <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5820	5940	
==>s) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5820	5940	
==>s) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5820	5940	
==>s) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33090	33177	
==>d
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37640	37727	
==>d
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36984	37071	
==>d
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relati <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11339	11443	
==>less (NIL ?%params)))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('n <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24266	24369	
==>egin a match; Nullch if none obvious

Confined to regcomp/regexec.

 * reganch      is the match anchore <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20611	20705	
==>object attributes are private, so you must use accessor
methods.  Relation does not declare any <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25163	25257	
==>object attributes are private, so you must use accessor
methods.  Relation does not declare any <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3372	3520	
==>_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3372	3520	
==>_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fo <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3372	3520	
==>_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5930	6027	
==>ammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Terna <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5528	5666	
==>ine {$caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $m <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3021	3141	
==>e;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=hea <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3021	3141	
==>e;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=hea <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28665	28762	
==>_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), (PL_reg_mat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2178	2303	
==>= ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2383	2508	
==>= ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2508	2633	
==>= ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14181	14305	
==>pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree-> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2688	2793	
==>ess $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2688	2793	
==>ess $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2768	2873	
==>ess $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	621	753	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . "> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13050	13163	
==>ete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13050	13163	
==>ete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13050	13163	
==>ete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12619	12722	
==>($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => type::variable::fre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3364	3473	
==>f{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3364	3473	
==>f{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3364	3473	
==>f{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2576	2683	
==>k to

do it Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Comp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2481	2583	
==>k to
do it Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Comp <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	744	845	
==>ave other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struc <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1228	1329	
==>ave other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11965	12085	
==>ass;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11965	12085	
==>ass;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11965	12085	
==>ass;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2564	2668	
==>( -f $self->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath(" <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1719	1849	
==>sif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type e <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1719	1849	
==>sif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type e <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3293	3390	
==>Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, S <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3293	3390	
==>Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13416	13516	
==>'**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13416	13516	
==>'**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13416	13516	
==>'**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6908	7000	
==>Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1348	1440	
==>Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6908	7000	
==>Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1348	1440	
==>Builder and Test::Harness::TAP.

=head1 AUTHORS

code by chromatic E<lt>chromatic@wgz.orgE<gt <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	757	882	
==>aram->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	739	861	
==>aram->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	739	861	
==>aram->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8326	8427	
==>age(package => $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2098	2256	
==>lass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2098	2256	
==>lass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2098	2256	
==>lass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4331	4470	
==>lt{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5331	5425	
==>>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5331	5425	
==>>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]- <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5331	5425	
==>>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]- <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5875	5959	
==>5_elemental(condition(Rk,R1,R2)) --> "(?", p5_condition_body(Rk,R1,R2), !.
p5_element <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13894	13993	
==>the name of the field and a single
value (a string).  If a header field is multi-valued, then the
ro <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13894	13993	
==>the name of the field and a single
value (a string).  If a header field is multi-valued, then the
ro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3915	4021	
==>PSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3915	4021	
==>PSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3915	4021	
==>PSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	328	429	
==>y $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    prin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1239	1358	
==>C;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1239	1358	
==>C;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1239	1358	
==>C;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pu <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	841	945	
==>';
    print <<__HELP__;
$0 - Build html test catalog and synopses with hyperlinks to corresponding tests <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6577	6716	
==>unction  pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1756	1863	
==>);

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1756	1863	
==>);

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1756	1863	
==>);

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	949	1069	
==>class Getopt::Argument::Style {
        has $value;

        method ^string_to_arguments ( $string ) {
            return <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21107	21221	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->a <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17528	17642	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->a <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2681	2896	
==>the prefix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2950	3062	
==>ing(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2950	3062	
==>ing(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2950	3062	
==>ing(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9386	9476	
==>_END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,und <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2349	2472	
==>[];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2349	2472	
==>[];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2349	2472	
==>[];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS. <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	213	319	
==>@_;
}

role 'IArray' => {};

class 'PIL::Run::Container::Array' => {
    does => [ 'IArray' ],
    instance <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	326	422	
==>type, which are checked against each other for agreement at BUILD time
for the below classes.

=c <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	326	422	
==>type, which are checked against each other for agreement at BUILD time
for the below classes.

=c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10985	11133	
==>ift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting mat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8053	8196	
==>ift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting mat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8053	8196	
==>ift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting mat <==
4	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1610	1708	
==>d_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a.round_down: symmetrical => $ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1023	1129	
==>X use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]> <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1023	1129	
==>X use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14578	14673	
==>TTP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long he <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14578	14673	
==>TTP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long he <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2102	2218	
==>@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@ret;
} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	86	184	
==>ay code.
use strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19942	20032	
==>x:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19942	20032	
==>x:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19942	20032	
==>x:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10067	10160	
==>ple, to set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3611	3703	
==>ecific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$n <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3611	3703	
==>ecific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5808	5900	
==>ecific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$n <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27	124	
==>eptember 7

This file is a development snapshot of the prolog regex engine I
started over the week <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	356	452	
==>y $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	356	452	
==>y $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	356	452	
==>y $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	54	162	
==>ptions
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0;
our $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2195	2298	
==>lat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2195	2298	
==>lat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2195	2298	
==>lat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9613	9760	
==>eason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1706	1843	
==>eason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1706	1843	
==>eason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test <==
4	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	50	147	
==>e $.returns;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $container does r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6571	6666	
==>tan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16488	16583	
==>))(\d+)/>.
The other difficulty is complex regexes with if-then assertions.  I
don't want to thi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6571	6666	
==>tan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6571	6666	
==>tan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8635	8743	
==>next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $n <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8635	8743	
==>next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3134	3233	
==>rs object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. R <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3134	3233	
==>rs object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8764	9012	
==>unction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8764	9012	
==>unction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8764	9012	
==>unction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2036	2139	
==>}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	126	237	
==>will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	126	237	
==>will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pug <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	126	237	
==>will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pug <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	126	237	
==>will all get installed. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pug <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8475	8585	
==>rks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8475	8585	
==>rks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	520	615	
==>ntent_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $con <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	520	615	
==>ntent_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $con <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2190	2304	
==>TA  ];

### source package dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R func <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3765	3863	
==>> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3765	3863	
==>> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3765	3863	
==>> @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5879	6003	
==>= @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5879	6003	
==>= @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5879	6003	
==>= @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $metho <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	382	477	
==>nnotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::Type <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1540	1662	
==>> $obj->depends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_stru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3591	3691	
==>ethod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3591	3691	
==>ethod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3591	3691	
==>ethod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7545	7735	
==>::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7545	7735	
==>::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7545	7735	
==>::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14937	15021	
==>ite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(plus(R))),R1,RW0,RW1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	283	389	
==>s.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	283	389	
==>s.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	283	389	
==>s.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2J <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	678	793	
==>dea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	678	793	
==>dea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appro <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	678	793	
==>dea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appro <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27986	28086	
==>G_s> would be called with a false one.

If the flag handler returns 0, the flag is removed from the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8558	8742	
==>'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8558	8742	
==>'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8558	8742	
==>'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $metho <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4375	4479	
==>nst->is_installed( package => $package )

=cut

### XXX package name?
sub is_installed {
    my $self = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	119	231	
==>ox.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	119	231	
==>ox.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].F <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	119	231	
==>ox.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].F <==
4	/Users/nnunley/pugs/util/grokprims.pl	2255	2350	
==>ame}</tt></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  fore <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38560	38699	
==>>new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	235	351	
==>first $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	235	351	
==>first $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	235	351	
==>first $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3615	3723	
==>et {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (bac <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3615	3723	
==>et {
#    $one.difference($two);
#}

# unicode set difference operator
#  note the difference - ∖ vs \ (bac <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4490	4596	
==>et {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (bac <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4490	4596	
==>et {
    $one.difference($two);
}

# unicode set difference operator
#  note the difference - ∖ vs \ (bac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2538	2639	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2719	2820	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3292	3393	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3493	3594	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1938	2071	
==>ms::Check->last_error ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor objec <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2022	2189	
==>am<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    { <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2022	2189	
==>am<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	64	156	
==>lass in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	64	156	
==>lass in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3976	4094	
==>test;
            _('$.output')->write( $test->report() );
        }
    }
};

require "lib/TestBuilder/TestPlan.pm";
r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6645	6744	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6645	6744	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6645	6744	
==>s(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14230	14328	
==>ass->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14230	14328	
==>ass->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14230	14328	
==>ass->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	927	1052	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	927	1052	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Nu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	927	1052	
==>harCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Nu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2962	3052	
==>y $source = slurp($source_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5249	5403	
==>ine = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5249	5403	
==>ine = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5249	5403	
==>ine = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $m <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1700	1798	
==>neric_reduce($app);

    my $received = $self->leave_scope;

	die "Thunk is accepting $received par <==
4	/Users/nnunley/pugs/inc/Module/Install.pm	3526	3647	
==>};
        next if $self->{pathnames}{$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self->{pathn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3457	3558	
==>d(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3457	3558	
==>d(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')-> <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3457	3558	
==>d(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	595	697	
==>ix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	595	697	
==>ix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	595	697	
==>ix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11348	11445	
==>here "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11348	11445	
==>here "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	101	212	
==>i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6320	6431	
==>s "Uppercase letter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase letter (Lt)",
      # "Modifier letter (L <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	101	212	
==>i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	101	212	
==>i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15115	15267	
==>ata,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16318	16455	
==>urn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16318	16455	
==>urn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($labe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16318	16455	
==>urn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($labe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1962	2087	
==>{
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1962	2087	
==>{
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1962	2087	
==>{
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefine <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4047	4157	
==>ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD";
Smoker info not foun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	163	269	
==>);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	163	269	
==>);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebles <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	163	269	
==>);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebles <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18193	18295	
==>o a search,
and to get back match results.

Our objective here is to see if it is possible to use the r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	642	737	
==>08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	642	737	
==>08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' a <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	642	737	
==>08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1840	1959	
==>mplemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1840	1959	
==>mplemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1840	1959	
==>mplemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	21407	21524	
==>IG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) < pre <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	19247	19348	
==>=> "foo", t => type::operator::nullary->new("str")),
		),
	),
);

# if we don't know what symbol it is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3532	3666	
==>"", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3532	3666	
==>"", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3532	3666	
==>"", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see a <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	999	1090	
==>nless|while|unless)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$r <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2764	2902	
==>> 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        precedence => 'loos <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1223	1355	
==>t

sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS }, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4675	4790	
==>ection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ( <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4675	4790	
==>ection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ( <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12834	12927	
==>expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12892	12985	
==>expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	886	978	
==>C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory fo <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	886	978	
==>C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory fo <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25284	25374	
==>n at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a sys <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25284	25374	
==>n at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a sys <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1197	1282	
==>-----------------------------------------------------------

Since you are using Micro <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1037	1122	
==>-----------------------------------------------------------

Since you are using Micro <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	99	224	
==>arnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	99	224	
==>arnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	99	224	
==>arnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1767	1871	
==>rl single bit (allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc. <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13186	13337	
==>dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILE <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	23	133	
==>S;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	23	133	
==>S;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, nam <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	23	133	
==>S;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2902	3018	
==>ndef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2902	3018	
==>ndef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arr <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2902	3018	
==>ndef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arr <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	4909	5008	
==>" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelude.p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1963	2072	
==>self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1963	2072	
==>self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1963	2072	
==>self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else { <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	8590	8703	
==>is addition analyzes the reason for the TODO    
        my %todos;
        foreach my $detail (@{$results{details <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	317	415	
==>handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	317	415	
==>handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	317	415	
==>handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5645	5743	
==>Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n" <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5703	5801	
==>Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n" <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	31406	31500	
==>e> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation h <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35956	36050	
==>e> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation h <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17026	17133	
==>twice: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
su <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1074	1171	
==>nals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1074	1171	
==>nals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1074	1171	
==>nals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	22652	22829	
==>. "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOUT =\n"
              . "@" . "<" x ($max_namelen - 1)
              . "  @>> @> <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	202	315	
==>mports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	202	315	
==>mports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	202	315	
==>mports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	329	491	
==>e'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	329	491	
==>e'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4252	4393	
==>= -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $cl <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4252	4393	
==>= -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $cl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2083	2241	
==>efined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2083	2241	
==>efined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2083	2241	
==>efined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10200	10294	
==>ritable, $isLazy, $paramName, $paramContext, $paramDefault) {
    my $default; $default = DOWN( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1269	1382	
==>ame();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $coun <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1260	1366	
==>ame();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $coun <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5597	5695	
==>ccess requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5597	5695	
==>ccess requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5837	6013	
==>ath") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5837	6013	
==>ath") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17852	17947	
==>acle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine re <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17852	17947	
==>acle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2062	2160	
==>not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2062	2160	
==>not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2062	2160	
==>not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1504	1597	
==>t }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available options:
  --smokeserv=http: <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1038	1158	
==>" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * supe <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1018	1138	
==>" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * supe <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1038	1158	
==>" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * supe <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1018	1138	
==>" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * supe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3887	3987	
==>`new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Sp <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3887	3987	
==>`new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Sp <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2397	2493	
==>k with those limitations and 
still produce a working version of File::Spec for use as we develop <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2397	2493	
==>k with those limitations and 
still produce a working version of File::Spec for use as we develop <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	121	232	
==>use Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl version o <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	84	186	
==>od, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	84	186	
==>od, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	84	186	
==>od, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2968	3213	
==>tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4648	4749	
==>nput_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4648	4749	
==>nput_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4648	4749	
==>nput_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6076	6176	
==>/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6076	6176	
==>/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6076	6176	
==>/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:S <==
4	/Users/nnunley/pugs/util/combine_tests.pl	499	597	
==>A revision is added to each member of the more_events[].
#
# more_revisions[] is added with revisio <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1283	1391	
==>um() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1283	1391	
==>um() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fin <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1283	1391	
==>um() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fin <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1940	2071	
==>($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("un <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1940	2071	
==>($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("un <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7674	7770	
==>d proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7674	7770	
==>d proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_a <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3600	3710	
==>ub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3600	3710	
==>ub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2925	3034	
==>ub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2925	3034	
==>ub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace this <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4184	4385	
==>.'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \.. <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4184	4385	
==>.'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \.. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20632	20728	
==>program
in the order you chose so to pick a supported language closest to your
preference.  Presu <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20632	20728	
==>program
in the order you chose so to pick a supported language closest to your
preference.  Presu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2301	2431	
==>VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2301	2431	
==>VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self- <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2301	2431	
==>VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self- <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20934	21032	
==>all sysopen sysread sysseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot cry <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8289	8411	
==>n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8289	8411	
==>n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	195	303	
==>alker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	195	303	
==>alker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to ma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1415	1537	
==>oad files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->p <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23834	23931	
==>hod:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28386	28483	
==>hod:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27208	27305	
==>hod:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1636	1738	
==>al_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->descr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1636	1738	
==>al_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->descr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1636	1738	
==>al_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->descr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1837	1976	
==>rse::Yapp(input => $g);
    $p=$p->Output(classname => 'Test');

        $DEBUG
    and print $p;

    eval $p;
        $@
    and d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8272	8375	
==>($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8272	8375	
==>($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8272	8375	
==>($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2727	2845	
==>nfig{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	767	876	
==>t;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	767	876	
==>t;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	767	876	
==>t;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18729	18829	
==>will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the conne <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17772	17872	
==>will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18729	18829	
==>will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the conne <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17772	17872	
==>will autoping the server if it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the conne <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6987	7108	
==>1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6987	7108	
==>1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18589	18684	
==>iate each member in a set of key-codes,
which are hard-coded into your application or package, w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18589	18684	
==>iate each member in a set of key-codes,
which are hard-coded into your application or package, w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	460	564	
==>e objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	460	564	
==>e objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	460	564	
==>e objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number o <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11852	11951	
==>Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	(my $clas <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9	130	
==>ed file - do not edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9	129	
==>ed file - do not edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1402	1499	
==>g and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1402	1499	
==>g and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $head <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18096	18213	
==>dant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21353	21470	
==>dant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41361	41478	
==>dant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44260	44377	
==>dant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->ne <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	835	954	
==>me in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $ <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	835	954	
==>me in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1340	1458	
==>ed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1340	1458	
==>ed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1340	1458	
==>ed in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(arg <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6358	6472	
==>> $rx->{flags}[-1],
      family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{data} = $type <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10186	10307	
==>= 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stri <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10186	10307	
==>= 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2270	2380	
==>(for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2270	2380	
==>(for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30788	30967	
==>last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30788	30967	
==>last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30788	30967	
==>last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6: <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14799	14896	
==>t strings:

A Str can exist at several Unicode levels at once. Which level you
interact with typic <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	739	854	
==>clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep len <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5516	5606	
==>gnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Buil <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5516	5606	
==>gnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7713	7803	
==>gnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Buil <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5676	5798	
==>->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must sup <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1636	1746	
==>scr $intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12685	12792	
==>har => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6160	6267	
==>har => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2967	3080	
==>ammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2955	3068	
==>ammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasy <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	3225	3337	
==>ed( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3225	3337	
==>ed( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	900	1023	
==>tup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	900	1023	
==>tup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	900	1023	
==>tup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(r <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6409	6507	
==>pr_types.pod r8593.
multi method Array::as_num (@array:) returns Num {
    +@array;
}

# speculativ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6038	6163	
==>t->{env}->{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self->create($na <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3025	3122	
==>DERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3025	3122	
==>DERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3025	3122	
==>DERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6734	6825	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8803	8894	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6734	6825	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8803	8894	
==>Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	999	1115	
==>thod size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($sel <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	999	1115	
==>thod size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($sel <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15632	15728	
==>e names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15632	15728	
==>e names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4377	4481	
==>or stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4377	4481	
==>or stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#}

multi sub *infix:«<» (S <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5250	5351	
==>or stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (S <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5250	5351	
==>or stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
}

multi sub *infix:«<» (S <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1723	1888	
==>ed.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6348	6455	
==>($$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2785	2888	
==>ile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2785	2888	
==>ile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2785	2888	
==>ile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?J <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8068	8215	
==>eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> me <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13662	13809	
==>eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8068	8215	
==>eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> me <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13656	13803	
==>eq '-' ) {
	       $cmd = '[^' . substr($cmd, 2);
	   } 
       elsif ( $prefix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> me <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13203	13380	
==>b {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	143	260	
==>"";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	143	260	
==>"";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	143	260	
==>"";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2550	2665	
==>...
        ),
    ),

If you reduce this AST the code inside the thunk won't be run - it must be the
first child of <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3726	3823	
==>{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3726	3823	
==>{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4316	4413	
==>{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is r <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5645	5759	
==>subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => { <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9956	10070	
==>subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => { <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	440	538	
==>tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quanti <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	440	538	
==>tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quanti <==
4	/Users/nnunley/pugs/misc/S29_round.pl	907	1020	
==>d .5 down above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23853	23948	
==>C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28405	28500	
==>C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and retu <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27227	27322	
==>C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and retu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18463	18560	
==>the character
class would render as C<[\w\d:]>.  If you want to go even further and remove
any emb <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9129	9233	
==>=> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9129	9233	
==>=> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9129	9233	
==>=> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1824	1917	
==>mental, pre-alpha development snapshot.  There are currently
no support for match flags; regex <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11043	11178	
==>ot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        -M <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	935	1024	
==>prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	935	1024	
==>prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	935	1024	
==>prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	143	289	
==>{
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	143	289	
==>{
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8646	8739	
==>reates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8646	8739	
==>reates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )` <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19038	19168	
==>S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15459	15589	
==>S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2296	2410	
==>P_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2296	2410	
==>P_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4654	4766	
==>L::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4654	4766	
==>L::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4654	4766	
==>L::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa(" <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1972	2074	
==>y @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " ", $#nameSplit, "\n";
  m <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5497	5626	
==>'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5991	6118	
==>' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18084	18182	
==>rences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18084	18182	
==>rences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2925	3071	
==>{
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2925	3071	
==>{
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 i <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	98	188	
==>5-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	98	188	
==>5-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value: <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9010	9142	
==>,$max)= (@$o{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o-> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7319	7419	
==>Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7319	7419	
==>Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $re <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29046	29144	
==>nabled at the time.

=item $obj->insert()

Inserts this object into the tree.  It returns a value t <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9171	9280	
==>_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9171	9280	
==>_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1916	2016	
==>er => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1916	2016	
==>er => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8475	8608	
==>> chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    " <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8475	8608	
==>> chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    " <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9711	9820	
==>sg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'T <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9711	9820	
==>sg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21920	22015	
==>onal information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20801	20896	
==>onal information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21920	22015	
==>onal information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not a <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20801	20896	
==>onal information (varies).

=item C<from>

The C<nick!hostmask> the message was sent from. Not a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3061	3247	
==>{

                return unless defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2962	3142	
==>{
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11720	11849	
==>le"
    $P1 = $P0(mob)
    unless $P1 goto end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to()
    mpos = -1
    $S0 = subst <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2604	2717	
==>event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2604	2717	
==>event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username an <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3343	3435	
==>oes(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3343	3435	
==>oes(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21456	21552	
==>ng sure C<(?(N)T|F)> works right).
In doing so, found that the "too many branches" error wasn't b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7353	7444	
==>a

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7353	7444	
==>a

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7353	7444	
==>a

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4036	4161	
==>( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4176	4301	
==>( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1383	1484	
==>bs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1383	1484	
==>bs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	805	935	
==>er a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	805	935	
==>er a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.p <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22142	22253	
==>is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17043	17153	
==>is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	178	316	
==>instance => {
        attrs => [ '$:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value(' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9037	9152	
==>new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12514	12629	
==>new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11750	11865	
==>new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differen <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	135	257	
==>base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_he <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	135	257	
==>base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_he <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	274	374	
==>ead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should em <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	274	374	
==>ead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should em <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2664	2772	
==>ny methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2664	2772	
==>ny methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cur <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2664	2772	
==>ny methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6179	6309	
==>1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6179	6309	
==>1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6179	6309	
==>1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	246	354	
==>n.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the previous version, bu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21035	21136	
==>ns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19943	20044	
==>ns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21035	21136	
==>ns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19943	20044	
==>ns a hashref describing C<nick>. Currently, there's only one key,
C<channels>, which is a hashref, whi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	677	794	
==>lse {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	676	793	
==>lse {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	677	794	
==>lse {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	676	793	
==>lse {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3977	4096	
==>, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{invocant};
    }

    for my $param_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6220	6311	
==>() {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entry <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6220	6311	
==>() {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entry <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6220	6311	
==>() {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entry <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15275	15390	
==>ub { \%{$_[0]} },
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2910	3009	
==>lue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2910	3009	
==>lue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2910	3009	
==>lue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3283	3388	
==>ld never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0.. <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3283	3388	
==>ld never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0.. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6702	6806	
==>my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!cha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6702	6806	
==>my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!cha <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10629	10792	
==>/;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) if $switch ne "";
    }

    return @switches;
}

=head2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11709	11816	
==>seen;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
} <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11556	11653	
==>ts

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor clas <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11556	11653	
==>ts

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor clas <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	235	345	
==>fmap {
		my $self = shift;
		my $f = shift;
		my $res = (ref $self)->new($f->($self->val));
	}
}

{
	package Bl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1556	1656	
==>ives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1556	1656	
==>ives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1556	1656	
==>ives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Pe <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	745	840	
==>EP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORi <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	745	840	
==>EP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9567	9712	
==>e');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9567	9712	
==>e');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4968	5074	
==>enthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache35 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4968	5074	
==>enthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache35 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3668	3773	
==>roy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3668	3773	
==>roy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3668	3773	
==>roy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1159	1261	
==>write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Building de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5302	5415	
==>=> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5302	5415	
==>=> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5302	5415	
==>=> 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	112	205	
==>mmar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

# TODO - <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2686	3017	
==>Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13014	13101	
==>add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13014	13101	
==>add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_pr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13014	13101	
==>add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_pr <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9767	9871	
==>$class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4512	4609	
==>onal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4512	4609	
==>onal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5102	5199	
==>onal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4123	4224	
==>efault
to 1 if not given.

The value for day can also be the string "last", in which case the
object r <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4123	4224	
==>efault
to 1 if not given.

The value for day can also be the string "last", in which case the
object r <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9924	10017	
==>et1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set contain <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9924	10017	
==>et1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set contain <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	519	617	
==>re's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	519	617	
==>re's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	519	617	
==>re's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1625	1721	
==>Test::Harness runs tests and expects output from the test in a
certain format.  That format is ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1419	1545	
==>F, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1419	1545	
==>F, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1419	1545	
==>F, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for % <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6051	6158	
==>uence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombiningMark>
    | <Unicod <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9010	9153	
==>'.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is hand <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9010	9153	
==>'.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is hand <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19425	19564	
==>$f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&R <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15846	15985	
==>$f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&R <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	856	956	
==>e().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less f <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	856	956	
==>e().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less f <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19299	19395	
==>information is in separate resource files used by the
program, so that if you wanted to upgrade o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19299	19395	
==>information is in separate resource files used by the
program, so that if you wanted to upgrade o <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2483	2624	
==>{
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multide <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2483	2624	
==>{
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multide <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	931	1023	
==>Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl: <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	931	1023	
==>Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7374	7533	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7374	7533	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cla <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7374	7533	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	688	826	
==>emented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17232	17394	
==>',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerate <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17232	17394	
==>',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerate <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6799	6905	
==>_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6799	6905	
==>_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17575	17679	
==>e,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17759	17863	
==>e,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2040	2139	
==>at is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1964	2059	
==>at is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional t <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11098	11202	
==>e Regex

You can use the qr() method to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

The r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5682	5783	
==>type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5682	5783	
==>type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6272	6373	
==>type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1356	1490	
==>_);
        }
        else {
            if (exists $_table->{prototype}) {
                $_table = $_table->{prototype}->('message-m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4780	4877	
==>nd().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4780	4877	
==>nd().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4780	4877	
==>nd().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protec <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3618	3741	
==>n
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->{version} <=> $a->{version } } @maybe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1485	1597	
==>qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1485	1597	
==>qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1485	1597	
==>qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16059	16157	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16059	16157	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16059	16157	
==>ke_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13600	13757	
==>index($string,'-')) != -1) {
                my $pre = substr($string,0,$idx-1);
                my $start = substr($string,$idx-1,1);
                my $end <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3733	3878	
==>index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3733	3878	
==>index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3733	3878	
==>index($string,'-')) != -1) {
            my $pre = substr($string,0,$idx-1);
            my $start = substr($string,$idx-1,1);
            my $end <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	59	157	
==>acro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	59	157	
==>acro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&st <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	59	157	
==>acro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&st <==
4	/Users/nnunley/pugs/util/combine_tests.pl	523	620	
==>ach member of the more_events[].
#
# more_revisions[] is added with revision number of the older v <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	824	994	
==>( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PRO <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	824	994	
==>( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PRO <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11365	11460	
==>mewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_o <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11423	11518	
==>mewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_o <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5192	5324	
==>ssage;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my metho <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5192	5324	
==>ssage;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my metho <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	7988	8117	
==>least once
        my($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{f <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24158	24273	
==>ermits the execute phase to run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a m <==
4	/Users/nnunley/pugs/util/build_pugs.pl	9303	9435	
==>/e;
        
        die "don't know where this option belongs: $_" unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1180	1282	
==>g {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1180	1282	
==>g {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1180	1282	
==>g {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName p <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1244	1340	
==>ix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1244	1340	
==>ix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1244	1340	
==>ix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12739	12854	
==>{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12739	12854	
==>{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12739	12854	
==>{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4286	4383	
==>>fmap(sub { $self->reduce($_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		my $thunk_type <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25403	25620	
==>)
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26061	26278	
==>)
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25682	25899	
==>)
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26340	26557	
==>)
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	327	445	
==>ee TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *imme <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	533	651	
==>ee TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *imme <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36277	36364	
==>MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translat <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36277	36364	
==>MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translat <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9214	9327	
==>(avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl script
#   stdin    => string t <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	898	1002	
==>name) = @_;
    my $config_default    = 'config.yml';
    my $config_template   = 'util/config-template.y <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16474	16569	
==>et(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2) <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16474	16569	
==>et(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2) <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1263	1370	
==>f nothing is in MRO, we take the superclasses
    # because we know that is there ...
    $supers = $class-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3895	3997	
==>1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3895	3997	
==>1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3895	3997	
==>1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1129	1282	
==>hunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4, <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2255	2349	
==>e have different properties,
you should see the subclasses for more.

In short, those subclasse <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2255	2349	
==>e have different properties,
you should see the subclasses for more.

In short, those subclasse <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	944	1036	
==>fied, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	944	1036	
==>fied, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>. <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9949	10059	
==>f pointer in the match tree
4 - a grammar name
5 - pos 
#6 - the whole string to match - TODO - unify with $ <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	238	381	
==>le( $Repoindex );

for my $package (@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to install
        n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10489	10621	
==>d($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10489	10621	
==>d($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10489	10621	
==>d($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7302	7408	
==>| ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7302	7408	
==>| ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7302	7408	
==>| ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2289	2386	
==>ocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4880	4995	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4880	4995	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4880	4995	
==>ed $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7192	7295	
==>'\s') if $re eq '\s';
    return $o->mk_eater_for_re('\S') if $re eq '\S';
    die "Regexp compilation b <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9828	9979	
==>s AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6169	6320	
==>s AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7018	7169	
==>s AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7084	7186	
==>GE_OPTABLE_TERNARY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  p <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14379	14502	
==>n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	638	729	
==>ef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	638	729	
==>ef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	638	729	
==>ef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10434	10546	
==>:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node< <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10434	10546	
==>:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8551	8737	
==>hod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8551	8737	
==>hod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8551	8737	
==>hod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $ <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1097	1194	
==>ewton's method is a simple method for finding roots, like square roots or
cube roots (as in the ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3318	3425	
==>ttributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3318	3425	
==>ttributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3318	3425	
==>ttributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1473	1564	
==>--$ENUM, 'Reference to nonexistent group';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\' <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1052	1173	
==>live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check tha <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1052	1173	
==>live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check tha <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12159	12266	
==>m{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12159	12266	
==>m{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12159	12266	
==>m{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8632	8761	
==>p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared librari <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39918	40036	
==>ner::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39918	40036	
==>ner::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store { <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39918	40036	
==>ner::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15575	15747	
==>ew();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15575	15747	
==>ew();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15575	15747	
==>ew();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6 <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26062	26156	
==>match(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomew <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1095	1192	
==>param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7710	7796	
==>r::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1535	1621	
==>r::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_ <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1520	1618	
==>ates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generat <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1520	1618	
==>ates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generat <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9866	9963	
==>2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9866	9963	
==>2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3836	3931	
==>(Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exce <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4020	4115	
==>(Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exce <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4039	4129	
==>on 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS" <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4039	4129	
==>on 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8895	9043	
==>te( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14624	14772	
==>te( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8895	9043	
==>te( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14618	14766	
==>te( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "<$cmd> n <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	640	847	
==>cy_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # meta dir
$Root           = $Cwd . '/fakeroot';               # our makebelief / dir
$ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5437	5543	
==>protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5437	5543	
==>protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7634	7740	
==>protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2035	2218	
==>$o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2035	2218	
==>$o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            } <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2035	2218	
==>$o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            } <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1847	1970	
==>$o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13508	13624	
==>get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annota <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13508	13624	
==>get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annota <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13508	13624	
==>get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annota <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19114	19227	
==>ion regular expression */
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	795	888	
==>ent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-Aft <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	795	888	
==>ent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-Aft <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3787	3913	
==>me ( sort keys %seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11	107	
==>l6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11	107	
==>l6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeL <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11	107	
==>l6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeL <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10006	10162	
==>l}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new sy <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10842	10998	
==>l}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new sy <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	236	341	
==>= ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.d <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	236	341	
==>= ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1028	1163	
==>e {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1028	1163	
==>e {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@s <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1028	1163	
==>e {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	303	403	
==>shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set::Object->new;

    $self->reduce($ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11800	11895	
==>he `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until th <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11858	11953	
==>he `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until th <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1869	1964	
==>object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a stati <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1797	1890	
==>object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a stati <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12831	12931	
==>if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9607	9707	
==>if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12831	12931	
==>if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9607	9707	
==>if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> has at least one element less <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5699	5819	
==>al->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave_scope;
		
		my $last_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1572	1661	
==>method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1572	1661	
==>method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1572	1661	
==>method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	242	376	
==>ect' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11363	11481	
==>e're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("US <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11363	11481	
==>e're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("US <==
4	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	470	569	
==>bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system(" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26263	26360	
==>-empty string, and each variable value can be anything at
all.  Note that while the Hash itself is <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26263	26360	
==>-empty string, and each variable value can be anything at
all.  Note that while the Hash itself is <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	609	726	
==>d die $?;
    
    ### XXX missing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12709	12818	
==>he iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12709	12818	
==>he iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hash <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12709	12818	
==>he iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hash <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17085	17190	
==>ed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17085	17190	
==>ed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17085	17190	
==>ed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2827	2948	
==>$p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2967	3088	
==>$p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14969	15063	
==>od oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14969	15063	
==>od oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19851	19981	
==>th it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19851	19981	
==>th it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19851	19981	
==>th it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26361	26460	
==>efine ROPT_CANY_SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27222	27338	
==>shift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1096	1202	
==>ess {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1096	1202	
==>ess {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1096	1202	
==>ess {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10796	10895	
==>= lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_met <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17996	18090	
==>an identify
it easily in its conditional logic, using a simple 'equals', and then the
applicati <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17996	18090	
==>an identify
it easily in its conditional logic, using a simple 'equals', and then the
applicati <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13180	13299	
==>r to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anywa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13180	13299	
==>r to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anywa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13180	13299	
==>r to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anywa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2808	2899	
==>in(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6260	6351	
==>in(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2808	2899	
==>in(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2808	2899	
==>in(",",map{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7299	7403	
==>R::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CAL <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7357	7461	
==>R::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CAL <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2549	2644	
==>onstructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $code <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2549	2644	
==>onstructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4695	4875	
==>t_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4695	4875	
==>t_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            re <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13205	13297	
==>routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13205	13297	
==>routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18839	18949	
==>hod BUILD (opaque $self: hash %params) returns nil {
    for %params.kv -> $key, $value {
        # not sure if <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34044	34140	
==>n C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38594	38690	
==>n C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocan <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38055	38151	
==>n C<$other>.  This method will fail if C<$other> does not have
an identical header to the invocan <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	475	618	
==>);
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, & <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	475	618	
==>);
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, & <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12404	12501	
==>of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fo <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12404	12501	
==>of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12682	12824	
==>perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8956	9098	
==>perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9791	9933	
==>perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" . <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38508	38623	
==>'add_method' => (
    # method label
        symbol->new('get_attribute_list'),
    # method body
        method->ne <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13534	13675	
==>ts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13534	13675	
==>ts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13534	13675	
==>ts = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8944	9035	
==>g metaclass singleton method fails';
fails_ok { $iFoo->singleton_test_on_object } '... insta <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	783	906	
==>label) && $label->isa('str'));
    
    my $args = list->new($inv, @args);
    
    my $class = $inv->class;
    
    # gath <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9425	9531	
==>cessor

    # -----------------------------------------------      
    # this collects a unique list of ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9425	9531	
==>cessor

    # -----------------------------------------------      
    # this collects a unique list of ro <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9425	9531	
==>cessor

    # -----------------------------------------------      
    # this collects a unique list of ro <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4237	4355	
==>r $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) e <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4237	4355	
==>r $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) e <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10914	11009	
==>the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-value <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10914	11009	
==>the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-value <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30246	30369	
==>my $dispatcher;
                if ($order->equal_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatch <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2519	2638	
==>>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2519	2638	
==>>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2519	2638	
==>>new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if define <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	482	594	
==>ft;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11346	11446	
==>Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11346	11446	
==>Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spe <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11346	11446	
==>Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spe <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8138	8244	
==>HTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unle <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8138	8244	
==>HTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unle <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1531	1647	
==>nction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1531	1647	
==>nction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1531	1647	
==>nction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	796	911	
==>u must provide a value to reference";    
    ${$self} = $value;
    return nil->new();
}

1;

__END__

=pod

=head1 <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6774	6895	
==>al tests
    failed      Number which failed
    percent     Percentage of tests which failed
    canon       List of test <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	272	365	
==>meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	272	365	
==>meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6op <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	272	365	
==>meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6op <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7619	7729	
==>lasses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7619	7729	
==>lasses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7619	7729	
==>lasses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13678	13809	
==>,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13678	13809	
==>,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6441	6541	
==>$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6441	6541	
==>$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 E <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15568	15674	
==>def }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15568	15674	
==>def }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15568	15674	
==>def }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::d <==
4	/Users/nnunley/pugs/util/package-osx.pl	11110	11272	
==>le\\n"; 
                next;
            \}
            print "Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15648	15784	
==>defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15648	15784	
==>defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) no <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15648	15784	
==>defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) no <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	331	432	
==>ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 METHODS

=head2 $src = JIB::Sou <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5267	5358	
==>lue::Object $o) {$o.<[[DefaultValue]]>}
multi sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
mul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2507	2597	
==>eturn "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2507	2597	
==>eturn "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->co <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9103	9226	
==>lurpy'};

	my $pname = $op{'paramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4213	4311	
==>};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4213	4311	
==>};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4213	4311	
==>};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class:: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2639	2771	
==>) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading component <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2639	2771	
==>) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading component <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1687	1792	
==>mmar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1827	1932	
==>mmar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11784	11913	
==>turn => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $code = ma <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3592	3715	
==>t.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3592	3715	
==>t.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5116	5239	
==>t.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	482	594	
==>lify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HAS <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	25	125	
==>trict;
use warnings;
use Cwd;
use Config();
use File::Spec;
our %Config = %Config::Config;

sub get_c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16511	16608	
==>ead1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16511	16608	
==>ead1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16511	16608	
==>ead1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3865	4038	
==>$matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $stat <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4877	5046	
==>$matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $stat <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3745	3914	
==>$matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $stat <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4877	5046	
==>$matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $stat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3215	3334	
==>_attrs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self, $label) = @ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6689	6789	
==>'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'is <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6689	6789	
==>'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'is <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	220	320	
==>.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACK <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	220	320	
==>.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACK <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	220	320	
==>.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACK <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3289	3386	
==>$node);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$kind";
	warn "defining a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6373	6702	
==>y, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### g <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6837	7166	
==>y, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### g <==
4	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	665	784	
==>ble not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'htt <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	564	669	
==>ble not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'htt <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8098	8332	
==>} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$e <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8562	8796	
==>} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$e <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	34	141	
==>::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_durat <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	34	141	
==>::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_durat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22214	22318	
==>uses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <CaseClause> <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	966	1063	
==>in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	966	1063	
==>in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1513	1610	
==>in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7605	7722	
==>= map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'slurpy'}=1 if s/\* <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	17	115	
==>:EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	17	115	
==>:EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	17	115	
==>:EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3641	3773	
==>x3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $ <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3641	3773	
==>x3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3075	3188	
==>vocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3075	3188	
==>vocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3075	3188	
==>vocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[ <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10413	10511	
==>ier for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacem <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10413	10511	
==>ier for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacem <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3653	3745	
==>_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.clo <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3653	3745	
==>_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.clo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16439	16567	
==>? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # c <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12860	12988	
==>? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # c <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8137	8229	
==>=item' directive, followed by any text on the same line.

=item I<start_element ('verbatim')> <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8137	8229	
==>=item' directive, followed by any text on the same line.

=item I<start_element ('verbatim')> <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2101	2216	
==>NDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) i <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2101	2216	
==>NDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) i <==
4	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	94	201	
==>arch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to ca <==
4	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	94	201	
==>arch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to ca <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	874	991	
==>nfig{installsbin},

        installman1dir     => $Config{installman1dir},
        installman3dir     => $Config{insta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1724	1829	
==>print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tri <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1724	1829	
==>print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tri <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1724	1829	
==>print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tri <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5387	5496	
==>ontent_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5387	5496	
==>ontent_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1441	1639	
==>} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1441	1639	
==>} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1441	1639	
==>} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            ' <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5796	5908	
==>ex_content);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_files(package => $pkg)

Returns a lis <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15843	15951	
==>ule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpressionNoIn> <' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1570	1669	
==>rl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1570	1669	
==>rl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "he <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1570	1669	
==>rl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22123	22236	
==>_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22123	22236	
==>_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22123	22236	
==>_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MUL <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	11776	11880	
==>}

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3289	3459	
==>) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3289	3459	
==>) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	808	896	
==>:Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	808	896	
==>:Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VE <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5501	5635	
==>$ar, s => $a_file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_version = shift;
    #my @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5030	5142	
==>)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5030	5142	
==>)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5030	5142	
==>)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8004	8115	
==>name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pre <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11999	12105	
==>name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11999	12105	
==>name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	149	235	
==>ammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_rule'} = Pugs::Compiler:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4135	4269	
==>ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4328	4462	
==>ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2310	2406	
==>ypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keyst <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2310	2406	
==>ypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keyst <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	11846	11944	
==>Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	(m <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4896	4993	
==>l public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.num <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4896	4993	
==>l public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.num <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7093	7190	
==>l public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.num <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2295	2430	
==>xpect = 0 )
      {
          fail "Invalid or missing plan" unless defined $:expect;
      }
  
      method header returns Str
      { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15168	15302	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC err <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15168	15302	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC err <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15168	15302	
==>, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC err <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1542	1738	
==>%events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('lis <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12057	12253	
==>tine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => ' <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1542	1738	
==>%events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('lis <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12057	12253	
==>tine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => ' <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23677	23778	
==>or
False, but once it has a value of False, it can not be further changed;
this class defaults it to F <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28229	28330	
==>or
False, but once it has a value of False, it can not be further changed;
this class defaults it to F <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27042	27143	
==>or
False, but once it has a value of False, it can not be further changed;
this class defaults it to F <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9218	9311	
==>value) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	8420	8522	
==>};

# binary operators must have the same symbol, and are also unified recursively
multi unify => ('typ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5241	5336	
==>iption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5241	5336	
==>iption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6765	6860	
==>iption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	751	869	
==>lX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	751	869	
==>lX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	751	869	
==>lX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13536	13636	
==>> <?ws_required> <MemberExpression> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <Mem <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2331	2474	
==>sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gre <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8890	9033	
==>sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2331	2474	
==>sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8886	9029	
==>sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_gre <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	331	449	
==>ring

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

s <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	331	449	
==>ring

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16326	16420	
==>single binaries to support N
locales or user types simultaneously, and that allows any end user <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16326	16420	
==>single binaries to support N
locales or user types simultaneously, and that allows any end user <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1875	1998	
==>ile_only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	36935	37027	
==>where a pair
of source relations have identical headings, for these their joining
degenerates <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41484	41576	
==>where a pair
of source relations have identical headings, for these their joining
degenerates <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41107	41199	
==>where a pair
of source relations have identical headings, for these their joining
degenerates <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5930	6118	
==>middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5930	6118	
==>middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5930	6118	
==>middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16189	16300	
==>p6obj_complain->("ref") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7370	7497	
==>fined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7370	7497	
==>fined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7370	7497	
==>fined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$j <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	546	643	
==>d::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$| = 1 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1162	1270	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1162	1270	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packa <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1162	1270	
==>@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packa <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	498	594	
==>= "2.46";

# Backwards compatibility for exportable variable names.
*verbose  = *Verbose;
*switch <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3753	3846	
==>ybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { <==
4	/Users/nnunley/pugs/inc/Module/Install/Can.pm	857	950	
==>ybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3753	3846	
==>ybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	790	880	
==>ybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	684	790	
==>_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * c <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	684	790	
==>_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * c <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4777	4871	
==>/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4777	4871	
==>/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~ <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2391	2581	
==>t("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2391	2581	
==>t("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1840	1940	
==>scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# In <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16184	16275	
==>:- \+(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0, <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3184	3287	
==>urn $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2748	2842	
==>Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2748	2842	
==>Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>» <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2748	2842	
==>Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>» <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22941	23036	
==>ck
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optional <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21759	21854	
==>ck =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22941	23036	
==>ck
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a channel, stating a reason optional <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21759	21854	
==>ck =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optional <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2936	3046	
==>do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    has Set of Str $!h <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2680	2779	
==>:Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2680	2779	
==>:Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4204	4303	
==>:Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use T <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28686	28822	
==>r1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \& <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28965	29101	
==>r1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \& <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11814	11908	
==>that define the recurrences are exactly the same.

This method tests the closures identities us <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11814	11908	
==>that define the recurrences are exactly the same.

This method tests the closures identities us <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3765	3886	
==>ef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), return;

    if (-e $self->pool->fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	480	596	
==>R);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	515	631	
==>R);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	480	596	
==>R);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6810	6929	
==>h failed
    percent     Percentage of tests which failed
    canon       List of tests which failed (as string).

C<$fa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8568	8669	
==>UBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8568	8669	
==>UBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::R <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8568	8669	
==>UBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::R <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1127	1231	
==>t be a str type";
    return $self->{$key->to_str->to_native};
}

sub store {
    my ($self, $key, $value <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5088	5180	
==>= eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5088	5180	
==>= eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retur <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5088	5180	
==>= eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and retur <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8178	8298	
==>XXX check dependencies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4229	4339	
==>ice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4229	4339	
==>ice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4229	4339	
==>ice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9787	9879	
==>ing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9787	9879	
==>ing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	13550	13646	
==>plementation
could be started).  This is most useful when writing modules and you
find there is s <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13608	13704	
==>plementation
could be started).  This is most useful when writing modules and you
find there is s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7694	7778	
==>t::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test:: <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7752	7836	
==>t::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6023	6113	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6023	6113	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6023	6113	
==>ingify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7908	8070	
==>ll')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7908	8070	
==>ll')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tm <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7908	8070	
==>ll')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tm <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14358	14495	
==>D($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5717	5966	
==>_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5717	5966	
==>_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5717	5966	
==>_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubT <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	55	149	
==>r Test::Harness::Straps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And so <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	613	775	
==>rl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $l <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	613	775	
==>rl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2474	2564	
==>nverts parsed Rules to Perl 5 code.

=item * L<Pugs::Emitter::Rule::Perl5::Ratchet> convert <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4532	4628	
==>special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4532	4628	
==>special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4532	4628	
==>special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12733	12872	
==>it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12733	12872	
==>it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2947	3055	
==>a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # n <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2947	3055	
==>a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3696	3964	
==>by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

mo <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3696	3964	
==>by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

mo <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4009	4188	
==>return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9265	9387	
==>500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14931	15058	
==>ap() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14931	15058	
==>ap() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14931	15058	
==>ap() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res-> <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1042	1153	
==>ure';

package method::params;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14654	14823	
==>>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14654	14823	
==>>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14654	14823	
==>>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7046	7205	
==>= shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $e->get('$lab <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	740	861	
==>il2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	740	861	
==>il2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	740	861	
==>il2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2658	2767	
==>title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implement <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2658	2767	
==>title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implement <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3005	3114	
==>title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implement <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28689	28792	
==>me/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/nonumbers.........ok
  t/ok......... <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	72	208	
==>&& $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	72	208	
==>&& $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7103	7204	
==>te) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Boo <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7161	7262	
==>te) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Boo <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22836	22990	
==>ant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23115	23269	
==>ant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleo <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	5295	5408	
==>$utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5295	5408	
==>$utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5989	6089	
==>t($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mul <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5119	5219	
==>t($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5989	6089	
==>t($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mul <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5119	5219	
==>t($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.superset($two);
}
mul <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35566	35723	
==>('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => ' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13491	13665	
==>1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1624	1722	
==>t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1624	1722	
==>t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1624	1722	
==>t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1754	1867	
==>de ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2016	2129	
==>de ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1754	1867	
==>de ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2016	2129	
==>de ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	893	1060	
==>$flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	893	1060	
==>$flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subn <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	893	1060	
==>$flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subn <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32763	32859	
==>itted from the tree because of the stacked nature of the
tree.  However, having them returned whi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3503	3587	
==>lessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3503	3587	
==>lessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3503	3587	
==>lessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3957	4065	
==>ods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3957	4065	
==>ods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3957	4065	
==>ods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $str <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7271	7359	
==>lper($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4732	4897	
==>ent_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4732	4897	
==>ent_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8761	8872	
==>iter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[ <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	234	343	
==>iter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23800	23952	
==>return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23800	23952	
==>return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23800	23952	
==>return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12695	12865	
==>2}{scalar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            r <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	663	779	
==>es so THAT's why we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Con <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1167	1269	
==>S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2332	2434	
==>S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11985	12078	
==>) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11985	12078	
==>) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_us <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11985	12078	
==>) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_us <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11768	11873	
==>IN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
sp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11762	11867	
==>IN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
sp <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5655	5744	
==>lize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5655	5744	
==>lize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1064	1158	
==>}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1064	1158	
==>}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !define <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1064	1158	
==>}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !define <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6879	6971	
==>e method');

ok($Role->has_method('does'), '... we now have the does() method');
ok($Role->do <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3304	3407	
==>el) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3304	3407	
==>el) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Rol <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3304	3407	
==>el) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Rol <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5155	5308	
==>r something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5155	5308	
==>r something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            na <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5155	5308	
==>r something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            na <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8395	8505	
==>?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1061	1181	
==>equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/mem <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1041	1161	
==>equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/mem <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1061	1181	
==>equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/mem <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1041	1161	
==>equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset
    * superset
    * includes/mem <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8642	8761	
==>::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8642	8761	
==>::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8642	8761	
==>::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1379	1467	
==>tBuilder::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::NullPlan <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7252	7351	
==>d;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => curr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7252	7351	
==>d;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => curr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7252	7351	
==>d;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => curr <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23770	23863	
==>ace,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- !, var(X).
repla <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5180	5307	
==>m',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCx <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5180	5307	
==>m',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCx <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2837	2953	
==>lex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2837	2953	
==>lex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut ma <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1237	1398	
==>w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head2 name <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2590	2708	
==>($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2590	2708	
==>($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "f <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2590	2708	
==>($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "f <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	221	368	
==>}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - optional, defaults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9782	9917	
==>, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depend <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6123	6258	
==>, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depend <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6972	7107	
==>, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depend <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	268	372	
==>y_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	268	372	
==>y_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	268	372	
==>y_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_-> <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1409	1511	
==>ph.
my $graph = GD::Graph::lines->new(500, 350);
$graph->set(
  title        => "Pugs development",
  x <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20679	20779	
==>ar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20679	20779	
==>ar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with t <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3682	3777	
==>> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on these me <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3682	3777	
==>> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on these me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4540	4645	
==>Glob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4540	4645	
==>Glob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4540	4645	
==>Glob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStm <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3454	3551	
==>d1 TODO

=over
=item Scoping

You should be able to do both lexically and dynamically scoped
overr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10204	10347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10204	10347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.r <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10204	10347	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4071	4170	
==>rk on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4071	4170	
==>rk on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $se <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4071	4170	
==>rk on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $se <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2455	2556	
==>program should be run as unpreviliged user, it will ask you to enter
      commands requiring root pri <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2349	2436	
==>class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2349	2436	
==>class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2349	2436	
==>class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_meth <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1785	1884	
==>u can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
compr <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1785	1884	
==>u can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
compr <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12489	12587	
==>and next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12489	12587	
==>and next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6942	7129	
==>mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6942	7129	
==>mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4531	4632	
==>Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4531	4632	
==>Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13274	13416	
==>ed($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13274	13416	
==>ed($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13274	13416	
==>ed($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2159	2301	
==>ed($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@list;
    my $size <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11250	11349	
==>:Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11250	11349	
==>:Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11250	11349	
==>:Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1227	1320	
==>$ENUM, 'Unmatched [';
use constant RPe_EQUANT => --$ENUM, 'Quantifier follows nothing';
use co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1322	1425	
==>act, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1322	1425	
==>act, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1322	1425	
==>act, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3885	3980	
==>bout @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that_should_be} = $cl <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16673	16779	
==>->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%results> returned from C< <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1702	1803	
==>b = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1702	1803	
==>b = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1938	2039	
==>b = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3518	3613	
==>%{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $na <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3518	3613	
==>%{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $na <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4108	4203	
==>%{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $na <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	9702	9790	
==>ternals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	535	645	
==>$s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemented {
    my ( $n, <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19633	19732	
==>r than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7541	7640	
==>lass->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@bloc <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24185	24284	
==>r than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7541	7640	
==>lass->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@bloc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12860	13013	
==>ss $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12860	13013	
==>ss $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $re <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12860	13013	
==>ss $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2949	3041	
==>$() } }
RULE
*{'assign'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5053	5178	
==>f->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16089	16214	
==>f->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17577	17702	
==>f->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $sel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22260	22385	
==>f->{data} }, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    push @$tree, $sel <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5187	5289	
==>e that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5187	5289	
==>e that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7468	7566	
==>$one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6598	6696	
==>$one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7468	7566	
==>$one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6598	6696	
==>$one, *@args) returns Set {
    $one.intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1447	1555	
==>k} };
}

sub count_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	728	854	
==>andard in that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m->{b <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6412	6514	
==>($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	302	403	
==>ub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *i <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	302	403	
==>ub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4982	5074	
==>KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4982	5074	
==>KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1006	1127	
==>ake pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
typ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7874	7992	
==>6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7874	7992	
==>6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7874	7992	
==>6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF- <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8295	8410	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8488	8603	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	568	662	
==>ipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor opt <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	568	662	
==>ipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor opt <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1749	1875	
==>erse?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.un <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1749	1875	
==>erse?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.un <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16223	16329	
==>and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cc <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12644	12750	
==>and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cc <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1147	1265	
==>t
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%p <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1147	1265	
==>t
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%p <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6820	6915	
==>die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_ <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6820	6915	
==>die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16265	16371	
==>ee} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp::Par <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	855	953	
==>ew();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	855	953	
==>ew();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	855	953	
==>ew();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %para <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1077	1186	
==>aque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1077	1186	
==>aque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1077	1186	
==>aque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6068	6158	
==>s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ws;})');
my $x2 = def_stmt_prim('bs_token_decl', <==
4	/Users/nnunley/pugs/util/package-osx.pl	550	665	
==>arrot
        /usr/local/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17893	18047	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18824	18978	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18172	18326	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19103	19257	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18348	18497	
==>->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('& <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21607	21756	
==>->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('& <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41613	41762	
==>->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('& <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44514	44663	
==>->new($e->get('$self:'), $e->get('%params')));                  
                    $e->set('$method' => $e->get('WALKMETH')->do(list->new($e->get('& <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	2605	2711	
==>n $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6082	6188	
==>n $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5012	5118	
==>n $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9960	10119	
==>"";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9960	10119	
==>"";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")= <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9960	10119	
==>"";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")= <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	541	644	
==>e logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($de <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29402	29514	
==>elf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29402	29514	
==>elf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29402	29514	
==>elf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	4526	4634	
==>vidual test which failed along with a summary report and
a how long it all took.

It returns true if everythi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3932	4146	
==>eturn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3932	4146	
==>eturn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8649	8781	
==>rator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            war <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8649	8781	
==>rator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            war <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3178	3332	
==>ent_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $dat <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3178	3332	
==>ent_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $dat <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	705	797	
==>tate.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	705	797	
==>tate.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	13706	13940	
==>> '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $tot{bad}++;
                $fail <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28466	28557	
==>ttributes are being combined/wrapped, with
its keys being the new tuple-valued attribute nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33018	33109	
==>ttributes are being combined/wrapped, with
its keys being the new tuple-valued attribute nam <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32146	32237	
==>ttributes are being combined/wrapped, with
its keys being the new tuple-valued attribute nam <==
4	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	493	633	
==>h($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop() err die "Stack un <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10837	10960	
==>" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile($filename <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8912	9013	
==>sts_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

E <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8970	9071	
==>sts_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

E <==
4	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	272	379	
==>= qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemake <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	173	280	
==>= qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemake <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26059	26154	
==>riable name is a machine-readable short
string; the allowed variable names you can have depend o <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26059	26154	
==>riable name is a machine-readable short
string; the allowed variable names you can have depend o <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	137	236	
==>re::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blesse <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17236	17333	
==>... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17236	17333	
==>... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Ob <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17236	17333	
==>... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Ob <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	4547	4673	
==>tart bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	5206	5332	
==>tart bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4547	4673	
==>tart bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5206	5332	
==>tart bigger than end yields an empty set";
            undefine $.span;
        }
        elsif $cmp == 0 && ( $.span.start_is_ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	154	251	
==>als to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	212	309	
==>als to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Te <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	584	676	
==>ode --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigge <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	584	676	
==>ode --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigge <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4118	4218	
==>r: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4118	4218	
==>r: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4118	4218	
==>r: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return " <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	153	251	
==>pe is Perl::Type::Regular | Perl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has St <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6406	6525	
==>e/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers:: <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6406	6525	
==>e/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers:: <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8442	8531	
==>lock of characters is interpolated for modifiers.

=item I<end_element ('line_interpolatio <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8442	8531	
==>lock of characters is interpolated for modifiers.

=item I<end_element ('line_interpolatio <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10185	10301	
==>.get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=hea <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10185	10301	
==>.get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=hea <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17093	17200	
==>ible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*le <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22193	22300	
==>ible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*le <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2519	2639	
==>$/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2519	2639	
==>$/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7599	7712	
==>pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $resu <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7599	7712	
==>pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $resu <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13720	13822	
==>ider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::I <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13720	13822	
==>ider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::I <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1819	1913	
==>ve dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Code (whic <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1748	1840	
==>ve dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Code (whic <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2589	2717	
==>L2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2589	2717	
==>L2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2589	2717	
==>L2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8313	8411	
==>ift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = Blondie::TypeSafe::Ty <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2437	2562	
==>ist in @nodes can NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2860	2982	
==>ist in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2355	2477	
==>ist in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    ret <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2860	2982	
==>ist in @nodes can NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    ret <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4077	4193	
==>e;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4077	4193	
==>e;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5534	5646	
==>$matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combi <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5534	5646	
==>$matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4417	4526	
==>tten.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a s <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4417	4526	
==>tten.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a s <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	957	1056	
==>cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pr <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	957	1056	
==>cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	368	477	
==>.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referenc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	368	477	
==>.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referenc <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	368	477	
==>.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referenc <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1095	1199	
==>ith custom
    # Module::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Inst <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	995	1097	
==>d {
  print "Content-Type: text/plain\n\n";

  limit_rate();
  validate_params();
  add_smoke();
  clea <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2114	2209	
==>_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2114	2209	
==>_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2114	2209	
==>_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $l <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5534	5659	
==>'package'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'im <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5317	5422	
==>ame, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5317	5422	
==>ame, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5317	5422	
==>ame, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	589	713	
==>if ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$sp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	164	266	
==>s are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	164	266	
==>s are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	164	266	
==>s are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSy <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7279	7388	
==>hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12963	13069	
==>lems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12963	13069	
==>lems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementat <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12963	13069	
==>lems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementat <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2971	3088	
==>d;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2971	3088	
==>d;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12854	12952	
==>ved is returned.

Note that if you pass in multiple field names then it is generally not
possible t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12854	12952	
==>ved is returned.

Note that if you pass in multiple field names then it is generally not
possible t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11050	11165	
==>DOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STDERR;
    $_;
};
# BEGIN { FILTER_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1071	1177	
==>, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1071	1177	
==>, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1071	1177	
==>, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9737	9888	
==>ey => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9737	9888	
==>ey => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'i <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9737	9888	
==>ey => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6170	6300	
==>XX clean up links from $unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alt <==
4	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	881	1001	
==>ush($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash <==
4	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	881	1001	
==>ush($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3913	4017	
==>es used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3913	4017	
==>es used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attri <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	6651	6777	
==>st which failed
    estat       Script's exit value
    wstat       Script's wait status
    max         Number of individual t <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	4216	4330	
==>turn Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7693	7807	
==>turn Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        ret <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1544	1649	
==>return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    m <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1544	1649	
==>return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10188	10335	
==>->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10188	10335	
==>->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slic <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10188	10335	
==>->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slic <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1983	2086	
==>::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::Ap <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4419	4544	
==>it_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4407	4532	
==>it_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2061	2173	
==>ASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2061	2173	
==>ASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2384	2504	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ele <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7478	7598	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ele <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2384	2504	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ele <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7478	7598	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    for @val -> $val_ele <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	402	510	
==>exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	402	510	
==>exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	402	510	
==>exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2440	2559	
==>emented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2624	2743	
==>emented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13516	13614	
==>inct names for the fields present in the
header.  The field names have case as suggested by HTTP sp <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13516	13614	
==>inct names for the fields present in the
header.  The field names have case as suggested by HTTP sp <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11566	11671	
==>::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  packag <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	878	976	
==>ackage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($wh <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	878	976	
==>ackage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($wh <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	878	976	
==>ackage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($wh <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3945	4048	
==>::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedTex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3945	4048	
==>::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedTex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3194	3280	
==>:Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional n <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3194	3280	
==>:Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional n <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25479	25575	
==>This uniquely identifies the type of message that the object
represents (or gives the name of a c <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25479	25575	
==>This uniquely identifies the type of message that the object
represents (or gives the name of a c <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7213	7304	
==>d(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin') <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7213	7304	
==>d(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin') <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4583	4693	
==>/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note that Cygwin support <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2578	2690	
==>y implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $la <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2578	2690	
==>y implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $la <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2578	2690	
==>y implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $la <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	5227	5337	
==>)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conver <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1762	1861	
==>teral).



App is divided to Multiple, Single and Primitive dispatch.

Lit is divided to various int <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12859	12957	
==>s returned.

Note that if you pass in multiple field names then it is generally not
possible to tel <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12859	12957	
==>s returned.

Note that if you pass in multiple field names then it is generally not
possible to tel <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1693	1789	
==>teral).

App is divided to Multiple, Single and Primitive dispatch.
Lit is divided to various int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4510	4623	
==>md\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4510	4623	
==>md\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4510	4623	
==>md\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$r <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12017	12125	
==>rn $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

su <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	841	971	
==>tart <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    } <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4080	4210	
==>tart <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	841	971	
==>tart <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    } <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4080	4210	
==>tart <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.start_is_open;
    } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1185	1287	
==>SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1185	1287	
==>SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1185	1287	
==>SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PI <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1106	1225	
==>ate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= &Num::truncate;

 # XXX - ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3303	3411	
==>class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3303	3411	
==>class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3303	3411	
==>class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	271	393	
==>mine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { pu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	620	714	
==>an-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	620	714	
==>an-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint:: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	620	714	
==>an-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6999	7120	
==>};
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

=pod
    
    my @list        = LoadFil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3404	3498	
==>keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3404	3498	
==>keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3404	3498	
==>keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($se <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2772	2867	
==>OPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorshi <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2929	3024	
==>OPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorshi <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2772	2867	
==>OPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorshi <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2929	3024	
==>OPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of authorshi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10481	10628	
==>exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "inf <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2582	2687	
==>quired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2582	2687	
==>quired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, ar <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2582	2687	
==>quired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, ar <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	967	1112	
==>end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4022	4167	
==>end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	967	1112	
==>end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4022	4167	
==>end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shi <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8602	8725	
==>g) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => ghc-pkg-6.5
            or $gh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	943	1040	
==>_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	943	1040	
==>_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	943	1040	
==>_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30967	31131	
==>::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30967	31131	
==>::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $l <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30967	31131	
==>::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $l <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1218	1322	
==>atchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12052	12152	
==>reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12052	12152	
==>reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12052	12152	
==>reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    p <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	401	499	
==>etails;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could not op <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12785	12894	
==>ib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$initrd_mnt/lib/" . basename $_ } @li <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1277	1383	
==>s );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1277	1383	
==>s );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1357	1463	
==>s );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2725	2830	
==>~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2725	2830	
==>~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2725	2830	
==>~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22429	22531	
==>sed to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (into_s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11915	12065	
==>w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11915	12065	
==>w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_ <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	518	611	
==>t, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	518	611	
==>t, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38400	38494	
==>_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42949	43043	
==>_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pe <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42599	42693	
==>_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7498	7651	
==>d - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7498	7651	
==>d - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7498	7651	
==>d - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4985	5119	
==>fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
    block => sub {...},   # XXX - the r <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19579	19717	
==>')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	540	677	
==>imitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	540	677	
==>imitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	540	677	
==>imitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	813	926	
==>_);
}

sub execute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__PAC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14792	14883	
==>xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14792	14883	
==>xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14792	14883	
==>xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14554	14672	
==>al { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14554	14672	
==>al { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14554	14672	
==>al { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	819	934	
==>(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce($ast);
}

s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1244	1363	
==>);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'htt <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1244	1363	
==>);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'htt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7935	8051	
==>return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Coul <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11931	12044	
==>return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Coul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11931	12044	
==>return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Coul <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8609	8708	
==>arn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8609	8708	
==>arn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8609	8708	
==>arn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	233	339	
==>/title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web serv <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	233	339	
==>/title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web serv <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	767	861	
==>returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=h <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	767	861	
==>returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=h <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2575	2851	
==>& 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= ch <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2575	2851	
==>& 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= ch <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1771	1890	
==>s?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "St <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1771	1890	
==>s?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "St <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4528	4686	
==>ks ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15884	16025	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15884	16025	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15884	16025	
==>$table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->a <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1554	1666	
==>should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1554	1666	
==>should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - d <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1554	1666	
==>should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - d <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17191	17299	
==>s a number
my $fifteen = comb(
	fun => $plus_ten,
	param => val(5),
);

# the pair function takes any param a <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1302	1408	
==>tring $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4170	4286	
==>\"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule code_assertion         { \<(!?)\( <code> \)\> }
rule <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2100	2191	
==>Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2100	2191	
==>Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2100	2191	
==>Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribu <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1651	1831	
==>f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% >> $meta_dir/$Fileslist] )   
                                                            an <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	251	355	
==>r things to init 
# in the correct order
use Perl6::Core::Bit;

# comparisons

# implement this and get t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20527	20622	
==>ly left alone by
compilers. After all the compilers have finished, the digest lines will
be expa <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20527	20622	
==>ly left alone by
compilers. After all the compilers have finished, the digest lines will
be expa <==
4	/Users/nnunley/pugs/misc/S29_round.pl	3994	4210	
==>ric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_round;
}

our Int <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16297	16404	
==>ue::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16297	16404	
==>ue::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16297	16404	
==>ue::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_ <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3734	3829	
==>'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to pa <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3734	3829	
==>'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to pa <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5340	5432	
==>st (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5398	5490	
==>st (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_plan <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1316	1422	
==>use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1316	1422	
==>use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1316	1422	
==>use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --i <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	518	614	
==>t)->fetch + 0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $ni <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7629	7776	
==>fined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7629	7776	
==>fined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1494	1608	
==>$proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chu <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1494	1608	
==>$proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chu <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6041	6139	
==>two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5171	5269	
==>two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6041	6139	
==>two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5171	5269	
==>two) returns Set {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) returns <==
4	/Users/nnunley/pugs/util/config_h.pl	982	1084	
==>|msys|cygwin/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_P <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5669	5769	
==>s a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_te <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5669	5769	
==>s a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_te <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7193	7293	
==>s a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10678	10799	
==>ethod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10678	10799	
==>ethod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_at <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10678	10799	
==>ethod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_at <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5	107	
==>r/bin/perl

# Generate .html from .t and test results 
# Generate cross-referenced html for p6 design d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18008	18105	
==>iltering a sane process, by
parsing up your module's source code into various blocks; so that by t <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18008	18105	
==>iltering a sane process, by
parsing up your module's source code into various blocks; so that by t <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	382	519	
==>{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readlin <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	382	519	
==>{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readlin <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	2904	3037	
==>})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my $n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15957	16077	
==>if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $results = ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2022	2202	
==>se

            {

                $state->[0]++;

                $state->[1] = 0;

                ### next alternation state - (node,state):@$state

                $state = unde <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2440	2615	
==>se
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = unde <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1956	2131	
==>se
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = unde <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2440	2615	
==>se
            {
                $state->[0]++;
                $state->[1] = 0;
                ### next alternation state - (node,state):@$state
                $state = unde <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	729	828	
==>ce of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	729	828	
==>ce of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4266	4417	
==>k $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4266	4417	
==>k $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4564	4680	
==>ct class_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2093	2207	
==>= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4715	4814	
==>ocale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBM <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4715	4814	
==>ocale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBM <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	229	326	
==>::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	229	326	
==>::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar: <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	9356	9531	
==>.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12833	13008	
==>.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

me <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12087	12262	
==>.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

me <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	6	116	
==>x
infix:«<»( $a, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
inf <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2732	2844	
==>{
     Math::Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16556	16722	
==>keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16556	16722	
==>keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16556	16722	
==>keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_n <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5720	5829	
==>uble'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <ReservedWord>> <Identi <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7356	7472	
==>nd say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7356	7472	
==>nd say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16413	16514	
==>her!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ) <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19890	19991	
==>her!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ) <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6320	6423	
==>ibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6320	6423	
==>ibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	2	96	
==>ackage Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::R <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	2	96	
==>ackage Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::R <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3570	3706	
==>s List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@values
			    --> List ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2470	2597	
==>{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2470	2597	
==>{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $n <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2470	2597	
==>{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $n <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4345	4454	
==>($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4345	4454	
==>($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./stringify
#} <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5218	5324	
==>($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
} <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5218	5324	
==>($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./stringify
} <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19372	19467	
==>u might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true v <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19372	19467	
==>u might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true v <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3423	3524	
==>st]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3423	3524	
==>st]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spli <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3423	3524	
==>st]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spli <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7191	7287	
==>!) returns Relation::Example {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8914	9026	
==>nt.
  no warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	670	781	
==>) {
      printf STDERR "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	271	368	
==>t_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File-> <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	271	368	
==>t_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File-> <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5721	5998	
==>$line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5721	5998	
==>$line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string  => -> ($str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3082	3358	
==>$line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3082	3358	
==>$line {
                if ($line eq '') {
                    $fh.print("\n");
                }
                else {
                    $fh.print(" $line\n");                                            
                }
            }
        },
        string => -> ($str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2753	2857	
==>dd_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7646	7749	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7646	7749	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7646	7749	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	879	1010	
==>ixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	879	1010	
==>ixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	879	1010	
==>ixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	423	544	
==>h (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	423	544	
==>h (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14341	14442	
==>encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entitie <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14341	14442	
==>encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entitie <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11102	11254	
==>" ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11102	11254	
==>" ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11102	11254	
==>" ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11730	11827	
==>y backslashed 'N'.  My
module parses them and handles them properly.  The nchar() method takes
a n <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5722	5858	
==>html$/
    and return {
      pugs_version  => $1,
      pugs_revision => $2,
      osname        => $3,
      runcore       => runcore2h <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2234	2346	
==>=> $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2234	2346	
==>=> $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        r <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12632	12746	
==>, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	497	593	
==>has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Hea <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	497	593	
==>has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Hea <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6705	6825	
==>=> chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6705	6825	
==>=> chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => ch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	748	850	
==>bers = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	748	850	
==>bers = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1579	1706	
==>represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1579	1706	
==>represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	13073	13195	
==>es->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index';
  $ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10599	10705	
==>we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USE <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10599	10705	
==>we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	830	934	
==>rcumfix:<" . $opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{nam <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5576	5676	
==>XX there has to be a better way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @Regexp::Parser:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6910	7005	
==>) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6910	7005	
==>) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6910	7005	
==>) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { re <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5252	5364	
==>nstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6520	6632	
==>nstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5252	5364	
==>nstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6508	6620	
==>nstant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	33	126	
==>|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	33	126	
==>|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	33	126	
==>|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5512	5720	
==>ock new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7274	7482	
==>ock new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7810	7901	
==>nt(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, su <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1635	1726	
==>nt(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, su <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	897	1064	
==>g = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	897	1064	
==>g = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	897	1064	
==>g = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24505	24595	
==>each Mapping value
is the corresponding attribute value.

Every Relation::Example attribute <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10067	10256	
==>_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8726	8891	
==>eturn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5086	5251	
==>eturn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5935	6100	
==>eturn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27970	28125	
==>ar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27970	28125	
==>ar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27970	28125	
==>ar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	564	673	
==>lf->check_nmake if $args{check_nmake};
        $self->makemaker_args( PL_FILES => {} )
            unless $sel <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12730	12853	
==>tr $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $serve <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12730	12853	
==>tr $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $serve <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2595	2708	
==>ted,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argumen <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2595	2708	
==>ted,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argumen <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1079	1224	
==>here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4872	4968	
==>his role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test p <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4872	4968	
==>his role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test p <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7069	7165	
==>his role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31288	31494	
==>ist') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31288	31494	
==>ist') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31288	31494	
==>ist') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10009	10130	
==>"$test{skipped}/$test{max} skipped: $test{skip_reason}")
                    if $test{skipped};
                push(@msg, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9557	9649	
==>($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9557	9649	
==>($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9557	9649	
==>($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ( <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14034	14143	
==>,
  using  => sub { mkdir $cdroot };

step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3111	3216	
==>type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3111	3216	
==>type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3111	3216	
==>type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5351	5491	
==>oxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5351	5491	
==>oxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5351	5491	
==>oxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the valu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22982	23079	
==>es
from octal escapes.  (The source code to Perl's regex compiler does the
same thing.)

=item npa <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8443	8546	
==>ptions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5981	6080	
==>ptions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	30062	30158	
==>on>

This method is a short-hand or alternative for the functionality provided
by the 5 generic r <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34614	34710	
==>on>

This method is a short-hand or alternative for the functionality provided
by the 5 generic r <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5035	5239	
==>d die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $sc <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4255	4439	
==>d die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $sc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7590	7713	
==>tail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mand <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7590	7713	
==>tail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mand <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19337	19432	
==>dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curn <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19337	19432	
==>dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curn <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21407	21500	
==>ommand. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick("n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21407	21500	
==>ommand. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick("n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	36	157	
==>rammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	36	157	
==>rammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syn <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	36	155	
==>rammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syn <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	36	155	
==>rammarFile.pm > GrammarFile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syn <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6561	6665	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators fo <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5691	5795	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators fo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6561	6665	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators fo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5691	5795	
==>» (Set $one, Set $two) returns Set {
    $one.proper_superset($two);
}

# several unicode operators fo <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	104	207	
==>t::Style;
        has $normalizer_role = ::Getopt::Argument::Normalizer::Null;
        has $coercer_role <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	837	929	
==>de::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	837	929	
==>de::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelud <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	837	929	
==>de::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelud <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8241	8349	
==>eturn $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::gre <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1167	1273	
==>bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
} <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1167	1273	
==>bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7957	8060	
==>eturn $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::gre <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5565	5697	
==>ction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5565	5697	
==>ction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5565	5697	
==>ction (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	682	803	
==>r error( "Could not create JIB::Installation object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $c <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1743	1856	
==>ieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, a <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1743	1856	
==>ieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, a <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12456	12556	
==>acement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12456	12556	
==>acement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h. <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2705	2838	
==>lf->sign ) {
        $args->{SIGN} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both k <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2708	2810	
==>- say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2708	2810	
==>- say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2708	2810	
==>- say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3417	3513	
==>osure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to & <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4099	4195	
==>osure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to & <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3820	3989	
==>esponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3820	3989	
==>esponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3933	4048	
==>rhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3933	4048	
==>rhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	10964	11097	
==>n.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	12435	12568	
==>n.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14441	14574	
==>n.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15912	16045	
==>n.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size() = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16209	16313	
==>) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16209	16313	
==>) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16209	16313	
==>) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log <==
4	/Users/nnunley/pugs/util/config_h.pl	895	988	
==>XME: we assume if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mingw|msys|c <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6447	6542	
==>(" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_i <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5520	5615	
==>(" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_i <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6447	6542	
==>(" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5520	5615	
==>(" ~ join(", ", @modifier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1840	1944	
==>quote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1840	1944	
==>quote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_j <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1840	1944	
==>quote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_j <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34155	34248	
==>of_range (C<X-Y>)

Data: array reference of lower and upper bounds, both I<anyof_char>

=head2 <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	294	404	
==>Loader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $inserted = 0;
BEGIN { our $regcompp = undef } <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1202	1324	
==>ename) or
            die "copy: $!";
        print <<".";
*** Default build config file created.
    You can edit some set <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	976	1091	
==>o.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	976	1091	
==>o.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	976	1091	
==>o.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6219	6326	
==>sed{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}:: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4001	4094	
==>der.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4001	4094	
==>der.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5525	5618	
==>der.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16205	16312	
==>rt of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12626	12733	
==>rt of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S- <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16360	16453	
==>t <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16418	16511	
==>t <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12425	12566	
==>METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12425	12566	
==>METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12425	12566	
==>METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19999	20094	
==>f it's just the first pass.  This means that force_object()
should be used to create stand-alone <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1035	1129	
==>y Str %TEXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $numb <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4671	4950	
==>e = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend = <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4671	4950	
==>e = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	148	399	
==>a-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	148	399	
==>a-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q <==
4	/Users/nnunley/pugs/util/claim_drift.pl	353	458	
==>gs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4252	4350	
==>"};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4252	4350	
==>"};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_c <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4252	4350	
==>"};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_c <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4603	4712	
==>tyName($V),$W);
        return;
    } # 6
    JSX::global_object.<[[Put]]>(GetPropertyName($V),$W);
    return <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	18810	19041	
==>);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after the header, when there is no regex
                # or if th <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8248	8354	
==>:Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8248	8354	
==>:Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8248	8354	
==>:Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4506	4626	
==>d;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4506	4626	
==>d;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::item <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4506	4626	
==>d;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::item <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	203	303	
==>ly ...
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show_tree ($self: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	932	1049	
==>->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $ke <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8911	9015	
==>nfix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8911	9015	
==>nfix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
met <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8911	9015	
==>nfix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
met <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2466	2588	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14994	15116	
==>ray => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub { $as_hash_complain->("code") },
      ref   => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2466	2588	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2466	2588	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15330	15428	
==>ystems.

If the program or any of its components are intended for widespread use
then it needs to a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15330	15428	
==>ystems.

If the program or any of its components are intended for widespread use
then it needs to a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7685	7781	
==>tch_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7424	7517	
==>tch_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2053	2175	
==>b autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2053	2175	
==>b autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2053	2175	
==>b autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	23791	23892	
==>am => $plus_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new(
		ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2120	2216	
==>rgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2120	2216	
==>rgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2120	2216	
==>rgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("P <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2977	3110	
==>nite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2977	3110	
==>nite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	321	422	
==>id of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXP <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	321	422	
==>id of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXP <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5230	5355	
==>am',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLVal <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5230	5355	
==>am',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLVal <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9248	9366	
==>(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9306	9424	
==>(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5774	5939	
==>_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1030	1125	
==>t.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1030	1125	
==>t.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    spr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1030	1125	
==>t.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    spr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2314	2595	
==>rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # T <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2314	2595	
==>rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # T <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2292	2390	
==>export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 < <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2292	2390	
==>export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 < <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24142	24244	
==>ding something
  in response to something it received.  This is typically used by automatons
  (clients <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22915	23017	
==>ding something
  in response to something it received.  This is typically used by automatons
  (clients <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24142	24244	
==>ding something
  in response to something it received.  This is typically used by automatons
  (clients <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22915	23017	
==>ding something
  in response to something it received.  This is typically used by automatons
  (clients <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6339	6448	
==>ubobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6339	6448	
==>ubobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    r <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6339	6448	
==>ubobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    r <==
4	/Users/nnunley/pugs/examples/hop6/Lexer.pm	307	403	
==>ion 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:a <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	493	638	
==>mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	493	638	
==>mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14849	14941	
==>es a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14849	14941	
==>es a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, en <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4676	4843	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4676	4843	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->n <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4676	4843	
==>sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->n <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13964	14086	
==>f 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta:: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13964	14086	
==>f 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	525	642	
==>}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	525	642	
==>}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	252	365	
==>g + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	252	365	
==>g + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	252	365	
==>g + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2 <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9335	9437	
==>>[1])" }
NODE VNum ($value) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan bi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3746	3862	
==>3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $ma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3746	3862	
==>3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $ma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18505	18680	
==>her'), symbol->new('BUILD'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$ <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1543	1677	
==>r = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't es <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1543	1677	
==>r = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't es <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4433	4533	
==>ype eq "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying para <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2409	2524	
==>> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2614	2729	
==>> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => su <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9042	9143	
==>ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9042	9143	
==>ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19720	19819	
==>s to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) i <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18701	18800	
==>s to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19720	19819	
==>s to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) i <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18701	18800	
==>s to use slight variations of the nickname in the
login phase (for example C<bot_>, C<_bot>, etc.) i <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	330	433	
==>rious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently d <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	330	433	
==>rious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently d <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22028	22119	
==>o the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22028	22119	
==>o the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11947	12078	
==>/ XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11947	12078	
==>/ XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:ce <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11947	12078	
==>/ XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:ce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2739	2831	
==>vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE_ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6191	6283	
==>vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2739	2831	
==>vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2739	2831	
==>vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE_ <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6013	6107	
==>shua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/o <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6013	6107	
==>shua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24606	24699	
==>oundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any l <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24606	24699	
==>oundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any l <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1340	1460	
==>y $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_l <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1340	1460	
==>y $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_l <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	16387	16486	
==>an be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16387	16486	
==>an be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Sp <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2383	2482	
==>es;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %enti <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2383	2482	
==>es;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %enti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18289	18382	
==>rce module is preprocessed to hide heredocs, since the content
inside heredocs can possibly co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18289	18382	
==>rce module is preprocessed to hide heredocs, since the content
inside heredocs can possibly co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10559	10694	
==>.$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10559	10694	
==>.$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",ma <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10559	10694	
==>.$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",ma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4623	4711	
==>'closure::params'));
    return bit->new(0) if $left->length->not_equal_to($right->length <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4669	4788	
==>word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3910	4010	
==>ub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3910	4010	
==>ub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3910	4010	
==>ub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21635	21808	
==>:p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21635	21808	
==>:p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->ne <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21635	21808	
==>:p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->ne <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1604	1697	
==>self = shift;
	my $node = shift;
	return $self->literal_value($node) unless Scalar::Util::bles <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27770	27926	
==>onstant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28049	28205	
==>onstant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15828	15927	
==>F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modul <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15828	15927	
==>F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modul <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2380	2513	
==>)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base an <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2380	2513	
==>)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base an <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2304	2419	
==>ce.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2304	2419	
==>ce.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1124	1241	
==>FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Ti <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1091	1208	
==>FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Ti <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	272	366	
==>cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @i <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	272	366	
==>cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @i <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8938	9031	
==>METHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end()` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8938	9031	
==>METHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end()` <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4343	4422	
==>777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/ <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4343	4422	
==>777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/ <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11513	11643	
==>nt = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method r <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11513	11643	
==>nt = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method r <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8447	8560	
==>ning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8447	8560	
==>ning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16881	17008	
==>z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13302	13429	
==>z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} = <==
4	/Users/nnunley/pugs/util/build_pugs.pl	2811	2928	
==>, $out or die "open: $out: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2814	2916	
==>add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2814	2916	
==>add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2814	2916	
==>add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cl <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1766	1859	
==>ode->struct_equiv->moniker)) {
		return $self->$meth($node);
	} else {
		return $self->generic <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27433	27574	
==>rge'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17837	17946	
==>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17837	17946	
==>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

S <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17837	17946	
==>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

S <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	8803	8916	
==>sts_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8861	8974	
==>sts_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	201	302	
==>sts_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_p <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	259	360	
==>sts_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_p <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1381	1476	
==>coding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | ' <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1381	1476	
==>coding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | ' <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	11150	11244	
==>rns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11150	11244	
==>rns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1107	1220	
==>subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	1087	1200	
==>subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1107	1220	
==>subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1087	1200	
==>subset
    * proper_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2722	2827	
==>ipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2722	2827	
==>ipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10036	10138	
==>ar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2728	2828	
==>~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2728	2828	
==>~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pug <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2728	2828	
==>~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pug <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4835	4944	
==>n we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4835	4944	
==>n we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) <==
4	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1140	1239	
==>ot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cw <==
4	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1140	1239	
==>ot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cw <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10117	10244	
==>e working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $str <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10117	10244	
==>e working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $str <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8831	8946	
==>ock') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $defau <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2791	2895	
==>method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2612	2716	
==>method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2791	2895	
==>method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2612	2716	
==>method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1770	1874	
==>lock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1770	1874	
==>lock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TO <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1770	1874	
==>lock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10932	11046	
==>method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10932	11046	
==>method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10932	11046	
==>method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40195	40297	
==>ges

It is probably easiest to follow my module when creating warning and
error messages for your sub-c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	312	435	
==>_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - ver <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	312	435	
==>_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - ver <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13612	13715	
==>, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.li <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13612	13715	
==>, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.li <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13104	13224	
==>$1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6579	6699	
==>$1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11117	11217	
==>ce defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document cl <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11117	11217	
==>ce defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document cl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7741	7842	
==>Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation" <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7479	7577	
==>Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation" <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	1950	2045	
==>d the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $D <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1950	2045	
==>d the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5881	5993	
==>num => 0);
  });

  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4581	4680	
==>:Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4581	4680	
==>:Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unl <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4581	4680	
==>:Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unl <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7989	8137	
==>f(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi;
    if(api == 13) {
      SV* pat;
      long nparens;
      SV* exec_callback_sub;
/*      fp <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3667	3776	
==>:Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->compi <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3557	3654	
==>head.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 w <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3557	3654	
==>head.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10087	10275	
==>:|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($kla <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10087	10275	
==>:|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($kla <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13066	13163	
==>ll the header fields used to describe the content of
a message.  All header field names prefixed w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13066	13163	
==>ll the header fields used to describe the content of
a message.  All header field names prefixed w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7841	7992	
==>ns' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7841	7992	
==>ns' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7841	7992	
==>ns' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	901	1010	
==>ng.)
</p>
<p>
To update this listing, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for th <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2293	2419	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9065	9191	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2293	2419	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9065	9191	
==>$_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = s <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	16388	16483	
==>s <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

T <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16446	16541	
==>s <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

T <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16375	16465	
==>level
programming language named "Rosetta D", which is computationally complete
(and indust <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16375	16465	
==>level
programming language named "Rosetta D", which is computationally complete
(and indust <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3670	3789	
==>IL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3670	3789	
==>IL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	520	639	
==>IL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  ' <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2219	2347	
==>e_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	934	1045	
==>r i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	934	1045	
==>r i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	934	1045	
==>r i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2J <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	590	759	
==>? \s*
        (?: (\d+) \s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s*
            (? <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24538	24634	
==>espond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29090	29186	
==>espond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method ret <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27966	28062	
==>espond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method ret <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	768	887	
==>portList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	768	887	
==>portList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportLi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	768	887	
==>portList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportLi <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15702	15795	
==>.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to m <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15702	15795	
==>.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22025	22117	
==>e to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "ni <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22025	22117	
==>e to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "ni <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4380	4473	
==>omorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The follow <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4380	4473	
==>omorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The follow <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20653	20744	
==>default process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPP <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20653	20744	
==>default process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPP <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4929	5024	
==>ence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4056	4151	
==>ence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4929	5024	
==>ence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4056	4151	
==>ence($two);
}

# comparison is subset/superset
multi sub *infix:<==> (Set $one, Set $two) return <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	270	376	
==>(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	270	376	
==>(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	270	376	
==>(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS: <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26196	26291	
==>aptures(E1,C1),
  ground_list(C1,'undef',O).

END
#============================================= <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7878	7985	
==>ntire match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7612	7716	
==>ntire match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11702	11789	
==>van@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" P <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11702	11789	
==>van@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" P <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14855	14979	
==>PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOI <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14855	14979	
==>PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOI <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1348	1464	
==>gs
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!chann <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1348	1464	
==>gs
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!chann <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3684	3803	
==>->{op1} eq $op;
    return { op1 => $op, list => [ @x, $y ], assoc => 'list' };
}

sub emit_yapp {
    my ($self) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16817	16915	
==>out parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16817	16915	
==>out parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16817	16915	
==>out parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11210	11322	
==>server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11210	11322	
==>server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5226	5334	
==>rray is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $pat <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5226	5334	
==>rray is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $pat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4414	4528	
==>}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4414	4528	
==>}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4414	4528	
==>}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pr <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	330	425	
==>my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::DuplicateFinder->ne <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4165	4283	
==>cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') if !((~$x & $x) eq 0);
    return ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9591	9703	
==>of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9591	9703	
==>of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Ru <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9591	9703	
==>of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13166	13270	
==>generic data interchange format between
Rosetta::Model and other Perl code such as persistence solutions. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18261	18365	
==>generic data interchange
format between Rosetta::Model and other Perl code such as persistence
solutions. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13166	13270	
==>generic data interchange format between
Rosetta::Model and other Perl code such as persistence solutions. <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18261	18365	
==>generic data interchange
format between Rosetta::Model and other Perl code such as persistence
solutions. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4817	4966	
==>cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4817	4966	
==>cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4817	4966	
==>cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @ <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4432	4527	
==>ndex(package => $pkg)

Adds a package to all necessary index files.

=cut

sub add_package_to_in <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4849	4994	
==>s && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15063	15178	
==>};
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15063	15178	
==>};
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x, <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15063	15178	
==>};
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x, <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21277	21370	
==>'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? < <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4697	4788	
==>xpand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4697	4788	
==>xpand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4697	4788	
==>xpand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1064	1197	
==>\$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVar <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1064	1197	
==>\$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVar <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3922	4024	
==>e{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_strin <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3922	4024	
==>e{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_strin <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10787	10931	
==>||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11434	11544	
==>tance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11434	11544	
==>tance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11434	11544	
==>tance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10297	10442	
==>},
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10297	10442	
==>},
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->par <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10297	10442	
==>},
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->par <==
4	/Users/nnunley/pugs/util/testgraph.pl	1317	1423	
==>te the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	18627	18756	
==>on}
              unless defined $totals->{skip_reason};
            $totals->{skip_reason} = 'various reasons'
              if $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3335	3436	
==>IX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3335	3436	
==>IX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3335	3436	
==>IX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array <==
4	/Users/nnunley/pugs/examples/algorithms/Newton.pm	387	512	
==>,
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1781	1887	
==>lf->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1781	1887	
==>lf->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSco <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1781	1887	
==>lf->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSco <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7747	7897	
==>>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7747	7897	
==>>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7747	7897	
==>>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($ <==
4	/Users/nnunley/pugs/util/svnlog2graph.pl	1927	2054	
==>gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  m <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2485	2616	
==>} = \%token;

  my $syncat = $nameSplit[0];
  if ( $syncat eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9600	9689	
==>xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9600	9689	
==>xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9600	9689	
==>xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1138	1297	
==>l_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1138	1297	
==>l_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1138	1297	
==>l_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11352	11443	
==>ton_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $iB <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7097	7254	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7097	7254	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7097	7254	
==>,
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SE <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6121	6263	
==>st      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\\n   List      pre     keys    safe   (rw!Ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1370	1529	
==>l_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1370	1529	
==>l_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1370	1529	
==>l_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SE <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	189	294	
==>oks_like_number', 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $v <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	200	397	
==>: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab ruleop::conc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10801	10928	
==>';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10801	10928	
==>';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10801	10928	
==>';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9532	9630	
==>tor with walker()Z<>:

  my $iter = $parser->walker;

This will produce an iterator that will trave <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5067	5159	
==>cription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnost <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5067	5159	
==>cription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnost <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7264	7356	
==>cription>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnost <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20706	20803	
==>urn "\$${ROOT}::Hash::META->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10296	10391	
==>revious => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary fun <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10296	10391	
==>revious => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary fun <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	601	689	
==>----------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ----------------------- <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	578	663	
==>---------------------------------------------
# Author: Yung-chung Lin (xern@cpan.org) <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8455	8571	
==>rn "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    }
    if($kind eq ' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3526	3627	
==>]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3526	3627	
==>]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3526	3627	
==>]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10330	10447	
==>= substr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "} <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6939	7043	
==>:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6939	7043	
==>:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6939	7043	
==>:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1744	1893	
==>d;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1744	1893	
==>d;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

M <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1744	1893	
==>d;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

M <==
4	/Users/nnunley/pugs/misc/Date/lib/Date.pm	641	738	
==>btract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$self.add( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6813	6941	
==>ch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $i <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7277	7405	
==>ch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $i <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2115	2229	
==>tching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{siz <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2093	2207	
==>tching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{siz <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3373	3504	
==>ript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3373	3504	
==>ript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3373	3504	
==>ript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1292	1384	
==>N_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1292	1384	
==>N_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1292	1384	
==>N_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1478	1578	
==>p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1478	1578	
==>p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1478	1578	
==>p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29258	29385	
==>n { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29537	29664	
==>n { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	267	373	
==>wo);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtract <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	267	373	
==>wo);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtract <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	885	994	
==>the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - weaken s <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1250	1356	
==>the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	849	955	
==>the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1250	1356	
==>the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - weaken s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8162	8305	
==>_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8162	8305	
==>_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8162	8305	
==>_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20543	20645	
==>_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    retu <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40287	40392	
==>ify and distribute must carry
prominent notices stating that you changed the files and the date of any
cha <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25811	25916	
==>ify and distribute must carry prominent
notices stating that you changed the files and the date of any cha <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40287	40392	
==>ify and distribute must carry
prominent notices stating that you changed the files and the date of any
cha <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25811	25916	
==>ify and distribute must carry prominent
notices stating that you changed the files and the date of any cha <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4030	4153	
==>$val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie::TypeSafe::Annotation->new(
			type => $sub->ty <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	246	363	
==>my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$src <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13352	13446	
==>ments, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to ot <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13352	13446	
==>ments, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to ot <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	884	995	
==>ib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	884	995	
==>ib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5517	5623	
==>header('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# numbe <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5517	5623	
==>header('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# numbe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	721	868	
==>class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	721	868	
==>class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struct <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	721	868	
==>class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque struct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1573	1706	
==>';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1573	1706	
==>';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1573	1706	
==>';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3629	3744	
==>})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    my $mm = ExtUt <==
4	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1068	1171	
==>}) unless +@config;
			@config[-1]{"Features"}{$0} = $1;
		} else {
			die "Invalid line in ini: $lineno <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2193	2294	
==>e;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3928	4026	
==>----------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($se <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3928	4026	
==>----------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19098	19194	
==>imP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19098	19194	
==>imP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19098	19194	
==>imP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	672	760	
==>die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	672	760	
==>die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	672	760	
==>die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?) <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25104	25251	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       rule <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25383	25530	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       rule <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	232	377	
==>$buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                w <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	232	377	
==>$buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                w <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	986	1109	
==>add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { return { stmt => '{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	853	975	
==>he opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	853	975	
==>he opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	853	975	
==>he opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        $ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6176	6283	
==>o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z';
    r <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5519	5614	
==>(one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips a <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5519	5614	
==>(one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7043	7138	
==>(one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips a <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13703	13848	
==>art = substr($string,$idx-1,1);
                my $end = substr($string,$idx+1,1);

                push @rv, $pre.split('');
                pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3828	3961	
==>art = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3828	3961	
==>art = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            pus <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3828	3961	
==>art = substr($string,$idx-1,1);
            my $end = substr($string,$idx+1,1);

            push @rv, $pre.split('');
            pus <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8420	8556	
==>it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8420	8556	
==>it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8420	8556	
==>it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1762	1878	
==>ark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1762	1878	
==>ark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11554	11645	
==>/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11554	11645	
==>/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @a <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	808	945	
==>is an array that is an
                     index into the multidimensional arrays of the match
                     object, telling captu <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	808	945	
==>is an array that is an
                     index into the multidimensional arrays of the match
                     object, telling captu <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1998	2105	
==>nd;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1998	2105	
==>nd;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17261	17397	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gr <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23227	23363	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17540	17676	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23506	23642	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_gr <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10396	10501	
==>ookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } } <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10396	10501	
==>ookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } } <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14886	14983	
==>Document - This stores a reference to the Document that
this Node and all of its relative Nodes li <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14886	14983	
==>Document - This stores a reference to the Document that
this Node and all of its relative Nodes li <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1333	1492	
==>lsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.en <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4572	4731	
==>lsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1333	1492	
==>lsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.en <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4572	4731	
==>lsif ($cmp < 0) {
        $i_end       = $.end;
        $open_end    = $.end_is_open;
    }
    else {
        $i_end       = $.end;
        $open_end    = $.en <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5755	5872	
==>> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5813	5930	
==>> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str <==
4	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2320	2430	
==>path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENS <==
4	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2320	2430	
==>path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENS <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2772	2896	
==>al_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_wit <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7866	7990	
==>al_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_wit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2772	2896	
==>al_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_wit <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7866	7990	
==>al_elem } )
            if !$val_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_wit <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	149	267	
==>attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAM <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	149	267	
==>attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAM <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1322	1417	
==>lf->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    op <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1322	1417	
==>lf->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    op <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1224	1328	
==>{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	518	614	
==>his class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	518	614	
==>his class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1074	1170	
==>his class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11902	12046	
==>$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8184	8328	
==>$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9018	9162	
==>$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5333	5465	
==>egex->compile( q(
            <Pugs::Grammar::Term.substitution>
            { return { 
                    substitution => $/{'Pugs <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2457	2563	
==>q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDecl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2457	2563	
==>q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDecl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13994	14092	
==>utine is called once for each value.  The field name passed to the
callback routine has case as sug <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13994	14092	
==>utine is called once for each value.  The field name passed to the
callback routine has case as sug <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19286	19381	
==>One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that da <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19286	19381	
==>One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that da <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12687	12805	
==>= length target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2702	2805	
==>Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2702	2805	
==>Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2702	2805	
==>Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6231	6328	
==>, for when you don't want to mess
with members belonging to 3rd party classes that your object mig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6231	6328	
==>, for when you don't want to mess
with members belonging to 3rd party classes that your object mig <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6231	6328	
==>, for when you don't want to mess
with members belonging to 3rd party classes that your object mig <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5069	5208	
==>PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5069	5208	
==>PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5069	5208	
==>PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3950	4085	
==>CKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PAC <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	917	1063	
==>rt;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_i <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4156	4302	
==>rt;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	917	1063	
==>rt;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4156	4302	
==>rt;
        $open_start    = $span.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_i <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2309	2405	
==>name>
for use in the total report.  Returns the C<%results> of the test.
See L<Results>.

C<@test <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17943	18037	
==>xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17943	18037	
==>xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17943	18037	
==>xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8796	8977	
==>predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1010	1127	
==>e { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1215	1332	
==>e { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; g <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1276	1393	
==>e { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; g <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1821	1944	
==>ments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # E <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1821	1944	
==>ments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # E <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1606	1722	
==>e.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new( <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1606	1722	
==>e.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18756	18850	
==>tive API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18756	18850	
==>tive API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	616	700	
==>------------------------------------------------------------------------
## private m <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	616	700	
==>------------------------------------------------------------------------
## private m <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1184	1331	
==>(&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1 <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1184	1331	
==>(&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1 <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7695	7827	
==>de', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7888	8020	
==>de', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2721	2817	
==>"infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2721	2817	
==>"infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2721	2817	
==>"infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Num <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24843	24935	
==>ssed only by their names, and all
Relation::Example tuples may be individually addressed only <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	852	1077	
==>= 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<star <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	852	1077	
==>= 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<star <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2856	2949	
==>ternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjun <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5929	6086	
==>s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5929	6086	
==>s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5929	6086	
==>s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            } <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1068	1196	
==>obj->{package}\n";       
    }
    
}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, pl <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14093	14197	
==>senting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14093	14197	
==>senting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1422	1518	
==>thin a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1422	1518	
==>thin a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2081	2192	
==>gles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n" <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	395	506	
==>gles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2081	2192	
==>gles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2081	2192	
==>gles verbose output\n";
    print ":5 <p5code>    run perl5 code\n";
    print " <p6code>      run perl6 code\n" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2068	2210	
==>.
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2068	2210	
==>.
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2467	2561	
==>ool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bo <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2467	2561	
==>ool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	659	763	
==>S::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	659	763	
==>S::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	659	763	
==>S::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeo <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2008	2114	
==>SA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2008	2114	
==>SA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "tr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2008	2114	
==>SA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "tr <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1137	1360	
==>$buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1137	1360	
==>$buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\ <==
4	/Users/nnunley/pugs/util/combine_tests.pl	1917	2033	
==>d anomalies
    # to each event.
    # Note that I use the test number for reference, which will
    # blow up in our <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6442	6546	
==>Array::as_num (@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# wh <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5017	5122	
==>) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4144	4249	
==>) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5017	5122	
==>) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4144	4249	
==>) returns Set {
    $one.equal($two);
}
multi sub *infix:<!=> (Set $one, Set $two) returns Set {
    $one. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17435	17658	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23401	23624	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17714	17937	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23680	23903	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21652	21851	
==>ray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21652	21851	
==>ray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21652	21851	
==>ray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3525	3645	
==>e either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10980	11127	
==>am) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefer <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10980	11127	
==>am) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefer <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10980	11127	
==>am) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefer <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17652	17786	
==>, the details.

  details           an array ref reporting the result of 
                    each test looks like this:

    $results{ <==
4	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	745	842	
==>esAdd($variable, $value) {
    %Cookies{$variable}=$value;
}

sub GetCookie($variable) {
    retur <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5748	5847	
==>is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5748	5847	
==>is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5748	5847	
==>is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5476	5570	
==>}

method not_equal (Relation::Example $other!) returns Bool {
    return !$?SELF.equal( $other <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8214	8339	
==>> chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8214	8339	
==>> chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764 <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1118	1229	
==>less ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $fil <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1118	1229	
==>less ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $fil <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4795	4926	
==>pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; p <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2855	2958	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value obj <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2855	2958	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value obj <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	689	814	
==>^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	689	814	
==>^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1634	1753	
==>$tmpl, \%args) or error(Params::Check->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj- <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	77	164	
==>ay::pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Arr <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	602	706	
==>($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	602	706	
==>($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration. <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3851	3949	
==>turn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher API <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3851	3949	
==>turn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher API <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13872	13984	
==>urn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $se <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1352	1464	
==>urn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $se <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6927	7030	
==>ntext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBegi <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6927	7030	
==>ntext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBegi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36688	36805	
==>turn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36688	36805	
==>turn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $ar <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36688	36805	
==>turn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $ar <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1909	2019	
==>SION;
@inc::Module::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self- <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9299	9400	
==>loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'g <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9299	9400	
==>loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'g <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4975	5073	
==>eness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michae <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	648	744	
==>\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2336	2432	
==>le->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	648	744	
==>\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = P <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2336	2432	
==>le->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	623	752	
==>unction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	623	752	
==>unction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	623	752	
==>unction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	25	127	
==>Blondie::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blon <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12649	12795	
==>tore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12649	12795	
==>tore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12649	12795	
==>tore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	3851	3954	
==>for L::AG, since it doesn't know about @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2950	3091	
==>closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3134	3275	
==>closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8124	8255	
==>(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8124	8255	
==>(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	127	229	
==>$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	127	229	
==>$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMod <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	127	229	
==>$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMod <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1456	1551	
==>ist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Config::C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18904	19029	
==>_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18904	19029	
==>_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18904	19029	
==>_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 ) <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12397	12511	
==>iveCommand($command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primiti <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9204	9311	
==>vocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9204	9311	
==>vocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9204	9311	
==>vocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3182	3305	
==>,
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3182	3305	
==>,
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3182	3305	
==>,
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5810	5915	
==>andles) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	516	623	
==>name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	516	623	
==>name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	516	623	
==>name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	265	372	
==>y ($class, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confess "You must store a native t <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	259	363	
==>lauses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in oth <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	259	363	
==>lauses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in oth <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	702	795	
==>"aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees ar <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	702	795	
==>"aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees ar <==
4	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	165	294	
==>= qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	461	567	
==>the node in a variable outside of this function
      // and refer to it via the closure, then things don\' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	461	567	
==>the node in a variable outside of this function
      // and refer to it via the closure, then things don\' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	461	567	
==>the node in a variable outside of this function
      // and refer to it via the closure, then things don\' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	724	840	
==>h elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	724	840	
==>h elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-R <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	724	840	
==>h elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-R <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	3067	3174	
==>= @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PERL6LIB} = 'blib6/lib';
    $self->{_buil <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2973	3092	
==>ture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_pl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2984	3103	
==>ture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_pl <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	13	108	
==>Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	13	108	
==>Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cip <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9754	9847	
==>or" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinit <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9754	9847	
==>or" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinit <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35721	35813	
==>i-method is a generic binary relational operator that takes
another Relation as its C<$other> <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40271	40363	
==>i-method is a generic binary relational operator that takes
another Relation as its C<$other> <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	680	797	
==>s we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    re <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	680	797	
==>s we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1986	2095	
==>e, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return va <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1986	2095	
==>e, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return va <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11742	11839	
==>o. So this means that all classes
and roles can be polymorphic to one another. 

Because instances <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11742	11839	
==>o. So this means that all classes
and roles can be polymorphic to one another. 

Because instances <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11742	11839	
==>o. So this means that all classes
and roles can be polymorphic to one another. 

Because instances <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6161	6258	
==>complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6161	6258	
==>complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	920	1013	
==>lied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter( <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	920	1013	
==>lied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter( <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4892	5025	
==>:isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_ent <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5356	5489	
==>:isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_ent <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	375	465	
==>($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub from {my($o)=@ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18781	18904	
==>tchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18781	18904	
==>tchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18781	18904	
==>tchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable:: <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2089	2175	
==>uring_group>|<quantified_construct> }
rule quantified_construct  {  <construct_but_not_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2398	2498	
==>ap { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2398	2498	
==>ap { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2398	2498	
==>ap { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([% <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	19532	19631	
==>n($comma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma) is builtin i <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19398	19494	
==>als::exit($status);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( Num $f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17196	17285	
==>$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17196	17285	
==>$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17196	17285	
==>$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5366	5476	
==>ct_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5366	5476	
==>ct_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    for <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5366	5476	
==>ct_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    for <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14815	14961	
==>y $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14815	14961	
==>y $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14815	14961	
==>y $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{p <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1477	1585	
==>um type";
    # replace the value with a nil type
    $self->[$index->to_native] = nil->new();
    return nil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16528	16641	
==>| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16528	16641	
==>| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_de <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16528	16641	
==>| $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_de <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3511	3619	
==>spv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($flags) <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	5349	5537	
==>pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8826	9014	
==>pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7846	8034	
==>pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of S <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4798	4892	
==>f->force_object(@_);
}


sub force_object {
  Carp::croak("class name passed where object requi <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5180	5313	
==>$match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &conti <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5180	5313	
==>$match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &conti <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1172	1269	
==>d implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 c <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1172	1269	
==>d implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 c <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9529	9626	
==>my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STDERR "hi\n";
  my $ret = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	356	445	
==>:Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	356	445	
==>:Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	356	445	
==>:Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run:: <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12747	12850	
==>("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $test_results->{res <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5297	5397	
==>nce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5297	5397	
==>nce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5297	5397	
==>nce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17336	17449	
==>pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11951	12063	
==>pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11951	12063	
==>pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11951	12063	
==>pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2135	2243	
==>Code        Base class for all executable objects
    Routine     Base class for all nameable executable obje <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2290	2393	
==>) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2290	2393	
==>) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_. <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2290	2393	
==>) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_. <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2840	2935	
==>currence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span = <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4709	4804	
==>currence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2840	2935	
==>currence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4709	4804	
==>currence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span = <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5028	5131	
==>}
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octald <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	538	640	
==>ing to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exten <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	538	640	
==>ing to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exten <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	538	640	
==>ing to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exten <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1694	1798	
==>$self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1834	1938	
==>$self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12494	12593	
==>unctions will eval a code snippet, and then pass the result to is or ok
on success, or report that t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12552	12651	
==>unctions will eval a code snippet, and then pass the result to is or ok
on success, or report that t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4340	4445	
==>};
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4340	4445	
==>};
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4340	4445	
==>};
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2905	3001	
==>"type")){
			return Blondie::TypeSafe::Annotation->new(
				type => $node->type,
				struct_equiv <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16201	16304	
==>o_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16201	16304	
==>o_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16201	16304	
==>o_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	850	942	
==>\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Token->compile(q( \: <rule_name> { return $<rule <==
4	/Users/nnunley/pugs/util/src_to_blib.pl	661	765	
==>l need root permission.
print "    (You may need to do that as the 'root' user.)\n"
    unless -w $Config <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1891	2139	
==>x:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_ <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1891	2139	
==>x:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	297	409	
==>t version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	297	409	
==>t version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $po <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9503	9703	
==>ng {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3670	3774	
==>ions immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3670	3774	
==>ions immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::in <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3670	3774	
==>ions immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::in <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9924	10121	
==>p.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $ski <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	492	679	
==>p.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $ski <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	492	679	
==>p.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $ski <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	538	632	
==>es($node)){
		$self->{dups}->insert($node);
	} else {
		$self->{seen}->insert($node);
		$self-> <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	938	1109	
==>>hash_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $self = shift;
                my $idx = shift;
                my $container = s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4079	4176	
==>jects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4079	4176	
==>jects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4079	4176	
==>jects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2535	2634	
==>ss_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2535	2634	
==>ss_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2535	2634	
==>ss_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30681	30776	
==>e-consumptive, which is why it must match the right parenthesis
itself.  The handler throws an e <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9967	10162	
==>ption,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::T <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	533	716	
==>ption,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::T <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	533	716	
==>ption,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::T <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	367	500	
==>sage is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	288	392	
==>: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	288	392	
==>: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	288	392	
==>: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12904	13017	
==>( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12904	13017	
==>( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12904	13017	
==>( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2135	2260	
==>= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2135	2260	
==>= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2135	2260	
==>= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1784	1891	
==>cal $/=undef; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run:: <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7633	7795	
==>d {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7633	7795	
==>d {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2558	2667	
==>l block with placeholder parameters
    Package     Perl 5 compatible namespace
    Module      Perl 6 standar <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	366	467	
==>$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   push( @{$_[0]->{levels}[$_[1]]}, $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	808	934	
==>, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (ble <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	808	934	
==>, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (ble <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	808	934	
==>, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (ble <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4988	5131	
==>gs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitt <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15290	15430	
==>d> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15284	15424	
==>d> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4815	4953	
==>gs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitt <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6324	6448	
==>ega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => ch <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6324	6448	
==>ega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => ch <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	122	240	
==>OPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # w <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	122	240	
==>OPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8631	8829	
==>$param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8631	8829	
==>$param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8631	8829	
==>$param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $t <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	10927	11039	
==>he opening delimiter (provided only one delimiter was specified)
      my $regex    = $7; 
      # captures delim <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27014	27121	
==>pe>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



grammar JavaScript::ECMAScript3::G <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5492	5586	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5492	5586	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5492	5586	
==>:= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23740	23838	
==>ww.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference b <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22513	22611	
==>ww.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23740	23838	
==>ww.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference b <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22513	22611	
==>ww.ietf.org/rfc/rfc1459.txt>:

  The NOTICE message is used similarly to PRIVMSG.  The difference b <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	555	662	
==>des' called on @_";
}

sub run {
	die "virtual method 'run' called on @_";
}

__PACKAGE__;

__END__

=pod

= <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1264	1359	
==>"string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1264	1359	
==>"string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1264	1359	
==>"string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6497	6596	
==>S

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of even <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6497	6596	
==>S

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of even <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	694	790	
==>an { $_[0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compar <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2711	2806	
==>tion, one ends up reverse engineering perl source.

We basically use the perl regcompp and regex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4213	4312	
==>deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4213	4312	
==>deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->a <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4213	4312	
==>deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->a <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2013	2103	
==>.cpan.org/~salva/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his "Perl Style Re <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1028	1143	
==>O_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1028	1143	
==>O_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7715	7807	
==>_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7715	7807	
==>_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10783	10897	
==>ecessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10783	10897	
==>ecessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creat <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10783	10897	
==>ecessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creat <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1239	1334	
==>DESCRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 port of the Perl 6 version of 
Test::Builder <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7978	8086	
==>um = $parser->errnum;
    # ...
  }

If you want to see if an error is a particular error, see
L</"ERROR HAND <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22432	22538	
==>>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22432	22538	
==>>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22432	22538	
==>>splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	499	597	
==>$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	499	597	
==>$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	499	597	
==>$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17459	17575	
==>args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() and like().
#

sub fresh_perl_like {
    my($prog, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4232	4324	
==>nt(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4232	4324	
==>nt(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4232	4324	
==>nt(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9317	9428	
==>sa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5' <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9375	9486	
==>sa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11701	11795	
==>es that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model: <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11701	11795	
==>es that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2497	2615	
==>::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2186	2280	
==>dd_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2186	2280	
==>dd_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.di <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2186	2280	
==>dd_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.di <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6191	6289	
==>infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5321	5419	
==>infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6191	6289	
==>infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5321	5419	
==>infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi sub *infi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1583	1736	
==>new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header()) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5995	6089	
==>def ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5995	6089	
==>def ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5995	6089	
==>def ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1410	1657	
==>lass Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages u <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1410	1657	
==>lass Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages u <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13139	13244	
==>t if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13139	13244	
==>t if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.l <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	4341	4447	
==>qual($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./strin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	4341	4447	
==>qual($two);
}

# what will be used for stringify?
#method prefix:<~> (Set $self) returns Str {
#    ./strin <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5214	5318	
==>qual($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./strin <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5214	5318	
==>qual($two);
}

# what will be used for stringify?
method prefix:<~> (Set $self) returns Str {
    ./strin <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23429	23546	
==>ethod
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["va <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26795	26921	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16731	16827	
==>t.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without paramet <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16731	16827	
==>t.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without paramet <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16731	16827	
==>t.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without paramet <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5702	5799	
==>UT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numb <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5702	5799	
==>UT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numb <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7226	7323	
==>UT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numb <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9410	9552	
==>f($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{ <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10401	10543	
==>f($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{ <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3100	3197	
==>end it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3100	3197	
==>end it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you s <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3093	3188	
==>londie::Backend::Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The co <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5032	5126	
==>rrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5032	5126	
==>rrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7229	7323	
==>rrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19383	19643	
==>the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19383	19643	
==>the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19383	19643	
==>the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11713	11870	
==>e a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11713	11870	
==>e a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            }, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11713	11870	
==>e a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            }, <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13421	13522	
==>oncerns.
  That said, the use of internals is rather limited, and in a rather
  stable are of the code <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1073	1192	
==>js_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1073	1192	
==>js_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1073	1192	
==>js_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	763	862	
==>min->new;
}

sub is_admin {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

package Module::Install::B <==
4	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1377	1500	
==>[0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) retur <==
4	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1377	1500	
==>[0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2677	2775	
==>return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Co <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2677	2775	
==>return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Co <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11376	11520	
==>_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $ <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11376	11520	
==>_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6765	6897	
==>eled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6765	6897	
==>eled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( <==
4	/Users/nnunley/pugs/util/p5_to_p6.pl	317	419	
==>it is only
# expected to serve as a tool to somewhat speed up
# the rewrite of existing p5 programs ins <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4339	4435	
==>@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4339	4435	
==>@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1] <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4339	4435	
==>@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1] <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	558	666	
==>eturns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	558	666	
==>eturns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	20908	21006	
==>t it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, ea <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25460	25558	
==>t it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, ea <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1849	1958	
==>ments> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tai <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1849	1958	
==>ments> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tai <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3377	3474	
==>nal packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Y <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3377	3474	
==>nal packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Y <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40337	40444	
==>ating that you changed the files and the date of any
changes, in addition to preserving this original copyri <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25861	25968	
==>ating that you changed the files and the date of any changes, in
addition to preserving this original copyri <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40337	40444	
==>ating that you changed the files and the date of any
changes, in addition to preserving this original copyri <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25861	25968	
==>ating that you changed the files and the date of any changes, in
addition to preserving this original copyri <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1301	1410	
==>nt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1301	1410	
==>nt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1301	1410	
==>nt - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22560	22661	
==>rst Release

Documentation not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29467	29584	
==>p {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29467	29584	
==>p {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $s <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29467	29584	
==>p {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $s <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	763	861	
==>iting this kind of application easy(er).

# Bootstrap to a new, simpler, ast.  Regexp::Parser's
# P <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2656	2816	
==>eop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constan <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2667	2827	
==>eop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constan <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5275	5374	
==>t identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument ca <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5275	5374	
==>t identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument ca <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9048	9195	
==>o => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9048	9195	
==>o => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9048	9195	
==>o => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12567	12673	
==>)
     (= ($self ($class: send (CREATE ($canidate %params)))))
     ($self send (BUILDALL %params))
     ($ <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	806	908	
==>$footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	806	908	
==>$footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	967	1061	
==>previous => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidirec <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	967	1061	
==>previous => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidirec <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4750	4918	
==>&& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4750	4918	
==>&& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4750	4918	
==>&& $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { re <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13369	13481	
==>\s?) (.*) )?     # optional skip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23885	24035	
==>q 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23885	24035	
==>q 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $met <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23885	24035	
==>q 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $met <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	307	420	
==>on)";
  $args{ensure} ||= sub { 1 };
  $args{using}  ||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.* <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8261	8350	
==>{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $e <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8261	8350	
==>{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $e <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9855	9968	
==>everse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type Comparator <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9756	9868	
==>return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9756	9868	
==>return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9756	9868	
==>return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  re <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	386	517	
==>ub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	535	666	
==>ub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	386	517	
==>ub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	535	666	
==>ub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	122	227	
==>$_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	122	227	
==>$_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return out <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	122	227	
==>$_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return out <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9255	9347	
==>_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_iFoo_singleton_method' 
});

i <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12766	12892	
==>);
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12766	12892	
==>);
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5579	5683	
==>s)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5579	5683	
==>s)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4608	4728	
==>>{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4620	4740	
==>>{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9964	10069	
==>gify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.ma <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9964	10069	
==>gify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.ma <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	687	807	
==>ve"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	687	807	
==>ve"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	342	441	
==>igests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses d <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	342	441	
==>igests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses d <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	190	303	
==>se Blondie::Backend::C::Builtins;

sub run {
	my $self = shift;
	my $prog = shift;

	my $c = $self->compile($prog) <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1916	2017	
==>f && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1916	2017	
==>f && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1916	2017	
==>f && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5235	5427	
==>ODO"}          = 1;
            $status->{"passed"}        = 1;
            $status->{"really_passed"} = _('$.passed');
            return $status;          
        }
    }
});

1;

__END__

= <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5469	5576	
==>t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        #}
        loop (;;) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	15699	15790	
==>RONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
appe <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15757	15848	
==>RONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
appe <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	637	759	
==>en Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    ' <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	637	759	
==>en Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    ' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1125	1240	
==>en Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.], <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1125	1240	
==>en Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.], <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	11989	12106	
==>end );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11989	12106	
==>end );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2. <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	13	112	
==>ile is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in n <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	13	112	
==>ile is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in n <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1743	1846	
==>( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1743	1846	
==>( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5572	5674	
==>(@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::P <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5572	5674	
==>(@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::P <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40060	40319	
==>sh')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19609	19859	
==>sh')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($ <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	717	843	
==>simple multiplication",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>' <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13268	13376	
==>sing  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1879	2005	
==>col?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    ) <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1879	2005	
==>col?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    ) <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6850	6949	
==>}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will be <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6850	6949	
==>}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will be <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1293	1393	
==>_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1293	1393	
==>_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1373	1473	
==>_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30088	30186	
==>when
inspecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this ob <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9374	9486	
==>_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9374	9486	
==>_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9374	9486	
==>_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4019	4106	
==>entTermTable->lkey($target, $whitespacePosition);
  my $token = $$currentTermTable{$key} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41107	41199	
==>ack

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<j <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	581	690	
==>le::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2259	2367	
==>Name'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2259	2367	
==>Name'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2259	2367	
==>Name'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2093	2227	
==>_" . $class->id . " [ dir = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4186	4300	
==>fer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4186	4300	
==>fer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4186	4300	
==>fer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10994	11085	
==>(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequence(char(C)) --> "\\t", {[C] = " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13214	13316	
==>$object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13214	13316	
==>$object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13214	13316	
==>$object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{ <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7008	7110	
==>{ defined $pugs_version },
  using  => sub { $pugs_version = get_version($pugs) };

step
  descr  => "C <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1902	2016	
==>n.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () i <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1902	2016	
==>n.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () i <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14267	14379	
==>= =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14267	14379	
==>= =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	545	644	
==>CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	545	644	
==>CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	545	644	
==>CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_) <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	162	259	
==>= qw{
    name module_name abstract author version license
    distribution_type perl_version test <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14881	15016	
==>SULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCR <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14881	15016	
==>SULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCR <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5721	5821	
==>self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5800	5900	
==>self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S- <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3859	4023	
==>t to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4323	4487	
==>t to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3923	4033	
==>ammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in pr <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4140	4250	
==>ammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in pr <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40862	40971	
==>that you are willing to distribute,
because that is a practical way of suggesting improvements to the standard <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26422	26531	
==>that you are willing to distribute, because that is a practical way of
suggesting improvements to the standard <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40862	40971	
==>that you are willing to distribute,
because that is a practical way of suggesting improvements to the standard <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26422	26531	
==>that you are willing to distribute, because that is a practical way of
suggesting improvements to the standard <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	33422	33518	
==>t the returned Relation contains only tuples that are in
all of the source Relations.  This metho <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37972	38068	
==>t the returned Relation contains only tuples that are in
all of the source Relations.  This metho <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18366	18461	
==>. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C< <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18366	18461	
==>. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C< <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	370	480	
==>$prog);
}

sub can_reduce { 1 }

sub generic_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reduc <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2066	2174	
==>0),
    }, $cls;
}
sub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($s <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	469	576	
==>e> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::T <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	469	576	
==>e> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::T <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	9182	9287	
==>'Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9240	9345	
==>'Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15205	15308	
==>o_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15205	15308	
==>o_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15205	15308	
==>o_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4858	4949	
==>s.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1730	1849	
==>m
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $k <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1730	1849	
==>m
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $k <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1730	1849	
==>m
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $k <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5959	6061	
==>};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_type = "${pkg_root}::$type";
	my $pkg_rep  = "${pkg_r <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	97	202	
==>) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [// <==
4	/Users/nnunley/pugs/util/func_refact.pl	2742	2854	
==>sort {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return lis <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2952	3049	
==>T

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you ca <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2952	3049	
==>T

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you ca <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3299	3396	
==>T

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you ca <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	13175	13333	
==>orce!
        my sub expand (Str $string is copy) {
            my @rv;

            my $add_dash;
            my $idx;

            if (substr($string,0,1) eq <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3360	3498	
==>orce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3360	3498	
==>orce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3360	3498	
==>orce!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $idx;

        if (substr($string,0,1) eq <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13910	14074	
==>p =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_tes <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1278	1437	
==>2>nul
goto endofperl
@rem ';
#!perl
#line 15
print "[$_]" for ($0, @ARGV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
c <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6438	6536	
==>mpile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated progra <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6450	6548	
==>mpile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated progra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2094	2196	
==>ity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2094	2196	
==>ity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2094	2196	
==>ity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2623	2832	
==>attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2623	2832	
==>attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2623	2832	
==>attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {} <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15661	15753	
==>omplain = sub { Carp::carp("p6_perl6_objects_from_whatever called on $_[0]"); undef };
my %as <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3007	3148	
==>es[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $matches[0]{state};

                @state = ( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3529	3667	
==>es[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2909	3047	
==>es[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3529	3667	
==>es[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $matches[0]{state};
                @state = ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4517	4620	
==>e string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4517	4620	
==>e string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15747	15848	
==>n of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thet <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15747	15848	
==>n of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thet <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2354	2507	
==>' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8913	9066	
==>' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2354	2507	
==>' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8909	9062	
==>' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'opt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13231	13362	
==>tainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13231	13362	
==>tainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buc <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13231	13362	
==>tainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buc <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2434	2527	
==>gram into a string of
(hopefully) perlish text.

=head1 SYNOPSIS

	use Blondie::Emitter::Prett <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	768	959	
==>given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	768	959	
==>given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1343	1467	
==>0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1343	1467	
==>0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1275	1368	
==>tion (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If th <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1275	1368	
==>tion (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If th <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	544	636	
==>Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

20 <==
4	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	544	636	
==>Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

20 <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	2665	2785	
==>s since they're copies
	foreach my $entry (@free) {
		my $assigned = $map{$entry->{orig}};
		unless ($assigned) {
			$ass <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	371	472	
==>s that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're curr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	371	472	
==>s that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're curr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	371	472	
==>s that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're curr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4212	4336	
==>def
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4212	4336	
==>def
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4212	4336	
==>def
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12692	12788	
==>Warnings and Errors

Here are the standard warning and error messages.  Their values are all
nega <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18062	18218	
==>thod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18062	18218	
==>thod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18062	18218	
==>thod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6253	6343	
==>ion has been added and moved around. See
L<Regexp::Parser::Objects> for documentation about <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2965	3054	
==>mbers.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) re <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2965	3054	
==>mbers.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) re <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	14218	14356	
==>@ks = $k.isa(Str) ?? expand($k) !! $k.values;
            my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4287	4417	
==>@ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4287	4417	
==>@ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4287	4417	
==>@ks = $k.isa(Str) ?? expand($k) !! $k.values;
        my @vs = $v.isa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	21342	21467	
==>ar @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $ <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6145	6263	
==>return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    retu <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6145	6263	
==>return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    retu <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	210	333	
==>,
    attributes => [ '$.output', '$.error_output' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15658	15754	
==>SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15658	15754	
==>SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {... <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15658	15754	
==>SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {... <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3629	3784	
==>eps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: f <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4093	4248	
==>eps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: f <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	2324	2431	
==>f;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2324	2431	
==>f;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1793	1953	
==>>($self, $_, $opt);
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub code { 
    warn "not implemented";
}

sub match {
    warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2695	2814	
==>efined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2695	2814	
==>efined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::f <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2695	2814	
==>efined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::f <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16897	17020	
==>sh @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13318	13441	
==>sh @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1252	1355	
==>xtracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	625	768	
==>ure => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'w <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	601	737	
==>ure => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'w <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	12737	12834	
==>nction takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$e <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12795	12892	
==>nction takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$e <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	518	628	
==>rgs;
}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    fo <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	21298	21394	
==>g key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25850	25946	
==>g key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Re <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24474	24570	
==>g key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8865	8997	
==>l create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(1 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8865	8997	
==>l create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(1 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13188	13285	
==>on't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.l <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13188	13285	
==>on't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.l <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3620	3832	
==>hes[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $suc <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3508	3713	
==>hes[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $suc <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18779	18875	
==>(1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid t <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18779	18875	
==>(1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3353	3462	
==>s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3353	3462	
==>s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # i <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3353	3462	
==>s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # i <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4429	4565	
==>e // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type conte <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4429	4565	
==>e // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type conte <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	236	343	
==>Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	236	343	
==>Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - re <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1947	2073	
==>h.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1947	2073	
==>h.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2J <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1947	2073	
==>h.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2J <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18468	18582	
==>d $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't d <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12737	12873	
==>_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLE <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12737	12873	
==>_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLE <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	75	190	
==>nt_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub imp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	75	190	
==>nt_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub imp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7984	8147	
==>LF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7984	8147	
==>LF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $ <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7984	8147	
==>LF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $ <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3701	3796	
==>scope.t test file.

=item Memory

One sees both segfaults and memory exhaustion when running aga <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19959	20052	
==>programs, including
the operating system itself, to have the user language data in separate
fi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19959	20052	
==>programs, including
the operating system itself, to have the user language data in separate
fi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9356	9447	
==>_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9356	9447	
==>_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	930	1038	
==>i sub exec(@args) returns Bool is builtin is primitive is unsafe {
        # say "e:args:" ~ @args.perl; # XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2276	2381	
==>t(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2276	2381	
==>t(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2276	2381	
==>t(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.C <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6106	6276	
==>pends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6570	6740	
==>pends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2133	2239	
==>eritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> co <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2133	2239	
==>eritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	143	247	
==>tion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	143	247	
==>tion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}( <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	143	247	
==>tion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}( <==
4	/Users/nnunley/pugs/inc/Module/Install/Include.pm	176	267	
==>Module::Install::Base);

sub include { +shift->admin->include(@_) };
sub include_deps { +shi <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18755	18852	
==>f it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17798	17895	
==>f it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18755	18852	
==>f it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17798	17895	
==>f it hasn't seen traffic for C<$autoping>
seconds, and it'll drop the connection if it hasn't seen <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11651	11772	
==>, $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11651	11772	
==>, $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if ex <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11651	11772	
==>, $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if ex <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34400	34493	
==>\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others are <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1155	1279	
==>= @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1155	1279	
==>= @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1155	1279	
==>= @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$P <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21245	21338	
==>ssertion;
  push @ISA, qw( Regexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9949	10146	
==>ription => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return :: <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	515	700	
==>ription => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return :: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	515	700	
==>ription => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return :: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12121	12230	
==>' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		pr <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	671	783	
==>"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = leng <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	671	783	
==>"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = leng <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18256	18349	
==>le::Compile uses.

First, the source module is preprocessed to hide heredocs, since the conten <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18256	18349	
==>le::Compile uses.

First, the source module is preprocessed to hide heredocs, since the conten <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2631	2788	
==>.description') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                description => _('$.des <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7608	7717	
==>(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7608	7717	
==>(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5606	5698	
==>rTable->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTable{$key};
  if ( $ <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	971	1105	
==>uage => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	971	1105	
==>uage => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7015	7130	
==>nment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7574	7689	
==>nment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1825	1939	
==>ature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1825	1939	
==>ature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@ <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2061	2175	
==>ature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	601	706	
==>_ => $_ } @nodes };
	$self->{names} = { $program => '$main' };

	$self->make_name($_) for @nodes;

	my $ou <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	36	138	
==>elude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9928	10026	
==>r the methods described below.
    # -----------------------------------------------
    # has %:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9928	10026	
==>r the methods described below.
    # -----------------------------------------------
    # has %:me <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9928	10026	
==>r the methods described below.
    # -----------------------------------------------
    # has %:me <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9454	9762	
==>nted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $sati <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10931	11239	
==>nted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $sati <==
4	/Users/nnunley/pugs/util/build_pugs.pl	3788	3903	
==>X - work around Cabal bug --
        # we have to locate "Syck_stub.o" and copy it into
        # dist/build/src/Dat <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21286	21380	
==>ment>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <';'> <Expr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	406	562	
==>[ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	406	562	
==>[ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SE <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	406	562	
==>[ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SE <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4035	4166	
==>ined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up yet for failing back into th <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	6167	6281	
==>set($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5297	5411	
==>set($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6167	6281	
==>set($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5297	5411	
==>set($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) returns Set {
    !$one.proper_superset($two);
}
multi s <==
4	/Users/nnunley/pugs/util/version_h.pl	2161	2271	
==>rint OUT "#define PUGS_SVN_REVISION $revision\n";
  close OUT;

  if ($revision != 0) {
    # rebuild Help.hs t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	32	132	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * rem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	32	132	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * rem <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	32	132	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * rem <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	712	822	
==>h;
};

sub cpan_bareword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pugs::Ru <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3892	3992	
==>he third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should b <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3892	3992	
==>he third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should b <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10487	10608	
==>f
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14205	14297	
==>sh->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14205	14297	
==>sh->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14205	14297	
==>sh->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10083	10181	
==>:PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10083	10181	
==>:PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10083	10181	
==>:PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34412	34532	
==>lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34412	34532	
==>lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $o <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34412	34532	
==>lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $o <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	24702	24802	
==>e::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α → β) → γ", "pretty print (a - <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	348	462	
==>ast_ML_Print
    $Strap
);

=head1 NAME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VER <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	265	377	
==>, cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	265	377	
==>, cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fe <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	265	377	
==>, cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2845	2936	
==>components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_except <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2845	2936	
==>components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_except <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2845	2936	
==>components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_except <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12303	12410	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6870	6977	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12303	12410	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6870	6977	
==>f !$val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $a <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5939	6170	
==>est->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XX <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2872	2978	
==>al {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2872	2978	
==>al {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2872	2978	
==>al {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    m <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	27678	27771	
==>ach value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32230	32323	
==>ach value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping a <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31322	31415	
==>ach value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping a <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3569	3671	
==>ore -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $c <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3569	3671	
==>ore -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22469	22561	
==><lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. N <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22469	22561	
==><lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. N <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6356	6460	
==>/ "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6356	6460	
==>/ "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	34643	34741	
==>et of the
heading of the invocant Relation, and returns a new Relation that has the
same heading as <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39193	39291	
==>et of the
heading of the invocant Relation, and returns a new Relation that has the
same heading as <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	917	1071	
==>m<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<afte <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	659	813	
==>m<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	917	1071	
==>m<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<afte <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	659	813	
==>m<start>; 
        %tmp<before> = %param<start> + $duration;
    }
    else
    { 
        %tmp<after> = %param<after>; 
        %tmp<before> = %param<afte <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	1480	1586	
==>Perl6-Bible

  Strategy:
    Iterate through all tests first.  Collect links and format as HTML
    as we g <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	202	300	
==>IL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	202	300	
==>IL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	202	300	
==>IL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34136	34245	
==>AL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34136	34245	
==>AL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34136	34245	
==>AL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bind1.pl	17	110	
==>rator
"sind gleich".say if $x == $y # Äquivalenz-Test

#=Identitäts-Operator
"sind identisch <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	550	743	
==>Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run the prog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5218	5325	
==>ts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5218	5325	
==>ts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5218	5325	
==>ts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2014	2124	
==>} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2014	2124	
==>} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2014	2124	
==>} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11938	12022	
==>se].
p6_oct_chars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2849	2951	
==>t work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or m <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	3006	3108	
==>t work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or m <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2849	2951	
==>t work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or m <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	3006	3108	
==>t work of authorship by the Pugs Contributors.

Pugs is free software; you can redistribute it and/or m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	273	380	
==>q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' ,} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7273	7373	
==>ersion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7273	7373	
==>ersion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7273	7373	
==>ersion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2692	2795	
==>ine('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2692	2795	
==>ine('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Ma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2692	2795	
==>ine('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Ma <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1110	1220	
==>le ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($self, $cond <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	817	924	
==>plement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	817	924	
==>plement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of m <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	817	924	
==>plement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of m <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13149	13246	
==>is suitable as a generic data interchange format between
Rosetta::Model and other Perl code such a <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18244	18341	
==>is suitable as a generic data interchange
format between Rosetta::Model and other Perl code such a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13149	13246	
==>is suitable as a generic data interchange format between
Rosetta::Model and other Perl code such a <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18244	18341	
==>is suitable as a generic data interchange
format between Rosetta::Model and other Perl code such a <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18224	18325	
==>ch results.

Our objective here is to see if it is possible to use the regexp
struct as a new api into <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4204	4302	
==>KE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4204	4302	
==>KE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4204	4302	
==>KE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4030	4137	
==>n program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4247	4354	
==>n program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error i <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1330	1427	
==>data and clear the cipher's state.

=back 4

The procedural interface does the same thing within a <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1330	1427	
==>data and clear the cipher's state.

=back 4

The procedural interface does the same thing within a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	9031	9134	
==>ew( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19364	19467	
==>before the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9031	9134	
==>ew( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19364	19467	
==>before the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x <==
4	/Users/nnunley/pugs/util/package-osx.pl	11324	11488	
==>em removing \$file\: \$_\\n";
            \}
            else \{
                print "Successfully removed \$file\\n";
            \}
        \}
    );
    @footer <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9773	9892	
==>----------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9773	9892	
==>----------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9773	9892	
==>----------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14899	15046	
==>::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       , <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15178	15325	
==>::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       , <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	301	415	
==>s export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub s <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	301	415	
==>s export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub s <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1331	1426	
==>h($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1331	1426	
==>h($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10239	10368	
==>dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10239	10368	
==>dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10239	10368	
==>dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $meth <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12966	13081	
==>rd_img;
      for(@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6777	6898	
==>q '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my($o)=@_;
    m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	986	1097	
==>hile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	986	1097	
==>hile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	986	1097	
==>hile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	813	941	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	813	941	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	813	941	
==>s' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2563	2657	
==>erl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5769	5881	
==>lse {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5769	5881	
==>lse {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0] <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6359	6471	
==>lse {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0] <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	16495	16591	
==>erator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($. <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31697	31817	
==>in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, reject it how you choose
  if (! $p- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	717	832	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	717	832	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	717	832	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2871	2966	
==>superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2871	2966	
==>superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2871	2966	
==>superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exi <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5144	5256	
==>TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16828	16921	
==>essed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16828	16921	
==>essed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16828	16921	
==>essed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2234	2333	
==>name.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STO <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	493	592	
==>ions for Blondie runtimes

=head1 SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2234	2333	
==>name.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STO <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2234	2333	
==>name.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STO <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3089	3191	
==>lf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3089	3191	
==>lf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3089	3191	
==>lf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	27224	27315	
==>runtests() was called.  Putting absolute path into 
C<HARNESS_FILELEAK_IN_DIR> may give more <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21207	21303	
==>ggested (but not required) that each Perl package which
uses this would come up with keys which a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21207	21303	
==>ggested (but not required) that each Perl package which
uses this would come up with keys which a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3047	3215	
==>tring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3047	3215	
==>tring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3047	3215	
==>tring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14114	14227	
==>g, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $s <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1697	1911	
==>uleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        retu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1463	1572	
==>, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1463	1572	
==>, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named = <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1672	1781	
==>, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named = <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2675	2795	
==>ript ( @{ $href->{$pkg}->{bin} || [] } ) {
            1 while unlink "$Bindir/$script";
            1 while unlink "$Alt <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6383	6481	
==>PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6383	6481	
==>PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitiv <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6383	6481	
==>PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitiv <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2071	2216	
==>lse
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2071	2216	
==>lse
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1809	1902	
==>"normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=h <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1809	1902	
==>"normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=h <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5895	6004	
==>r       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Prox <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5895	6004	
==>r       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Prox <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	35881	35973	
==>ation, such that all common attribute names
and corresponding common tuple values are aligned <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40431	40523	
==>ation, such that all common attribute names
and corresponding common tuple values are aligned <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3017	3148	
==>version = $Config::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::conf <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	54	151	
==>MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	54	151	
==>MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	54	151	
==>MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24606	24730	
==>f = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $clas <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4215	4324	
==>&PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4215	4324	
==>&PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      pr <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4215	4324	
==>&PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      pr <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	13660	13774	
==>n( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17137	17251	
==>n( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16499	16613	
==>n( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5561	5657	
==>ason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5561	5657	
==>ason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7085	7181	
==>ason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34044	34137	
==>Therefore it would be represented in Perl with a
look-ahead around the left-hand branch: C</(? <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9788	9912	
==>oxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9788	9912	
==>oxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9788	9912	
==>oxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METH <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4628	4730	
==>der::Test::TODO' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH(' <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	12489	12591	
==>a new type variable)
# this new env is passed down to the body, but is also reused in the 'type' attr
f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1964	2063	
==>ndef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1964	2063	
==>ndef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that c <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1964	2063	
==>ndef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7634	7740	
==>eadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7634	7740	
==>eadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7634	7740	
==>eadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34391	34484	
==>orting class for the F<Regexp::AndBranch::and> object it
creates!

A method call for a F<Regex <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8471	8695	
==>, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8471	8695	
==>, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10892	10996	
==>ay(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($n <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10892	10996	
==>ay(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13417	13521	
==>rce =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13417	13521	
==>rce =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33562	33659	
==>member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements w <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33562	33659	
==>member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements w <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	12447	12573	
==>id);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    met <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4717	4820	
==>two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  I <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4717	4820	
==>two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  I <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6241	6344	
==>two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  I <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2789	2907	
==>ter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array re <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2789	2907	
==>ter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	10196	10294	
==>TIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the nu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10254	10352	
==>TIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the nu <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6902	7046	
==>ed => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Par <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11457	11601	
==>ed => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Par <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12255	12399	
==>ed => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Par <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12982	13126	
==>ed => 1, store => \$inst_pkg, 
                        allow => ISA_JIB_PACKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Par <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	324	437	
==>til 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	529	642	
==>til 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referen <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	585	698	
==>til 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referen <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23192	23283	
==>s full generic implementations of all other necessary
operators (over said accessors), which <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3646	3781	
==>est_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_in <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3646	3781	
==>est_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_in <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4599	4719	
==>n $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4611	4731	
==>n $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	1756	1878	
==>?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $h <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1756	1878	
==>?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4954	5053	
==>nt( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variab <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4954	5053	
==>nt( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variab <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13955	14098	
==>= @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13955	14098	
==>= @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13955	14098	
==>= @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
4	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2663	2806	
==>= @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2648	2826	
==>e('@:slots')} = ($size - 1);
                }
            },

            'array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $siz <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2181	2293	
==>char => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a word boundary)
  $sel <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	376	480	
==>y>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remot <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	376	480	
==>y>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remot <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13326	13492	
==>end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    };
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13326	13492	
==>end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    };
} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	975	1124	
==>$expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	975	1124	
==>$expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5038	5149	
==>f->{'field_type'}{$fname};
    $ftype =~ s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not sure w <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2421	2512	
==>t 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2421	2512	
==>t 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $sub <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2421	2512	
==>t 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $sub <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16199	16452	
==>:p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16478	16731	
==>:p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1156	1289	
==>::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destinatio <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9077	9182	
==>appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUnde <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6827	6928	
==>ConnectorPunctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8539	8634	
==>pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8539	8634	
==>pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8539	8634	
==>pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_ <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5111	5234	
==>ry sneaky things -- linking other .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16370	16468	
==>};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16370	16468	
==>};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16370	16468	
==>};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::C <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8109	8211	
==>ting the Parsing

To intercept each node as it is parsed, use the next() method:

  while (my $node = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5201	5302	
==>SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB cho <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5201	5302	
==>SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB cho <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5201	5302	
==>SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB cho <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5108	5267	
==>t} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $as <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1820	1910	
==>d itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1820	1910	
==>d itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_met <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1820	1910	
==>d itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_met <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1466	1557	
==>ethod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1466	1557	
==>ethod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() } <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1466	1557	
==>ethod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() } <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11490	11578	
==>pecifc
code to the class that consumed it.

--------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11490	11578	
==>pecifc
code to the class that consumed it.

--------------------------------------------- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11490	11578	
==>pecifc
code to the class that consumed it.

--------------------------------------------- <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4313	4443	
==>anation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4313	4443	
==>anation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4313	4443	
==>anation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	3	93	
==>package Pugs::Grammar::StatementControl;
use strict;
use warnings;
use base qw(Pugs::Gramma <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10418	10530	
==>l .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5158	5266	
==>ke-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5158	5266	
==>ke-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5158	5266	
==>ke-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7767	7894	
==>"empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7767	7894	
==>"empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       = <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6554	6666	
==>n');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text w <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6554	6666	
==>n');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text w <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27826	27942	
==>}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4580	4691	
==>lone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4580	4691	
==>lone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4580	4691	
==>lone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10767	10881	
==>e, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:re <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10767	10881	
==>e, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:re <==
4	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	112	201	
==>'src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns <==
4	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	112	201	
==>'src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10977	11134	
==>$.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.numbe <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1463	1606	
==>$.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.numbe <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1463	1606	
==>$.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.numbe <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	460	582	
==>uct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t$_\n" <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13942	14052	
==>:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005 <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13942	14052	
==>:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005 <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19493	19594	
==>f this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a S <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24045	24146	
==>f this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a S <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24989	25087	
==>ands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23753	23851	
==>ands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24989	25087	
==>ands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=hea <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23753	23851	
==>ands immediately to the server, but creates a queue, which is then
slowly sent to the server.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1240	1331	
==>currence set.

These methods are disabled: complement(), difference($set)

  --------------- <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1240	1331	
==>currence set.

These methods are disabled: complement(), difference($set)

  --------------- <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5346	5468	
==>child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and a <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5346	5468	
==>child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and a <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7393	7490	
==>n')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) 
i <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7393	7490	
==>n')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) 
i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13817	13958	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13817	13958	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'M <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13817	13958	
==>=> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'M <==
4	/Users/nnunley/pugs/util/importgraph.pl	1877	1966	
==>ter('Pugs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr/^IMC\b/);
setup_cluster('RRegex <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	514	629	
==>osure closure::env closure::signature closure::params
        opaque method attribute C3
        /;
    
    sub new <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6421	6530	
==>ass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6421	6530	
==>ass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6421	6530	
==>ass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7252	7364	
==>[\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3856	3968	
==>[\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4705	4817	
==>[\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/ <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5946	6040	
==>sub infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (R <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12688	12822	
==>/$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r "$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5521	5619	
==>$xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5521	5619	
==>$xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s( <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5521	5619	
==>$xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5127	5240	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpD <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5127	5240	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpD <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2031	2144	
==>'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpD <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2313	2416	
==>cript::SpiderMonkey, whose
successful work got me thinking about trying a prolog plugin.

Fyi,
Yaswi app <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24906	25029	
==>eturn { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25185	25308	
==>eturn { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12002	12107	
==>?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\ <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12002	12107	
==>?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\ <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4335	4460	
==>okens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4389	4514	
==>okens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4335	4460	
==>okens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4389	4514	
==>okens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	580	686	
==>s >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	580	686	
==>s >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa(" <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	580	686	
==>s >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa(" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17064	17172	
==>Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17064	17172	
==>Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17064	17172	
==>Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = P <==
4	/Users/nnunley/pugs/util/run-smoke.pl	219	317	
==>AP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $fail <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2472	2580	
==>->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::Mak <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1201	1305	
==>);
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $c <==
4	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1201	1305	
==>);
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $c <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1629	1728	
==>->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::Mak <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2	99	
==>pX/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2	99	
==>pX/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	210	302	
==>OM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:nam <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	210	302	
==>OM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:nam <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	868	982	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	868	982	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	868	982	
==>7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Consta <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3868	3975	
==>nfo
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/$control -C $my_tmp <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3822	3925	
==>}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3822	3925	
==>}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents o <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3822	3925	
==>}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents o <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7916	8046	
==>r( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character cla <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13510	13640	
==>r( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character cla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7916	8046	
==>r( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character cla <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13504	13634	
==>r( $cmd, 1, -1 );
        warn "<\"...\"> not implemented";
        return;
    }
    if ( $prefix =~ /[-+[]/ ) {   # character cla <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2142	2272	
==>= $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2142	2272	
==>= $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I w <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2142	2272	
==>= $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I w <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28073	28167	
==>ATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     SV_CHECK_THINKFIRST_COW_DROP(r <==
4	/Users/nnunley/pugs/util/package-osx.pl	10108	10210	
==>hat will be removed. The last one passed in is the
# remover that will be installed on the target machi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	416	516	
==>$self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	416	516	
==>$self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	416	516	
==>$self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24670	24764	
==>(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set_modifiers(E0,[],E0).
set_ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	28989	29081	
==>s having new tuple-valued
attributes which wrap zero old attributes (they are effectively jus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33541	33633	
==>s having new tuple-valued
attributes which wrap zero old attributes (they are effectively jus <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32678	32770	
==>s having new tuple-valued
attributes which wrap zero old attributes (they are effectively jus <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15081	15179	
==>R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N), N1 is N + 1, RWx = rewr(N1),
  re_rewrite(R0,R1,R <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4301	4417	
==>\$.", $initchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar n <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1436	1537	
==>$PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1436	1537	
==>$PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1436	1537	
==>$PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $ <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1825	1941	
==>ate or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_config = $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17532	17626	
==>xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17532	17626	
==>xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17532	17626	
==>xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	532	656	
==>ement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  s <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	532	656	
==>ement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  s <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22856	22952	
==>on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22856	22952	
==>on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	245	353	
==>ocal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match} <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	208	316	
==>ocal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	296	404	
==>ocal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match} <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	4069	4170	
==>date object for the given values.  The month and day default
to 1 if not given.

The value for day can <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4069	4170	
==>date object for the given values.  The month and day default
to 1 if not given.

The value for day can <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	28676	28765	
==>t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/nonumbers <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1358	1459	
==>auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLE <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1343	1439	
==>auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLE <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	1668	1763	
==>C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1668	1763	
==>C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8778	8941	
==>ps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and c <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17449	17578	
==>=> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20926	21055	
==>=> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1comm <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20513	20642	
==>=> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1comm <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20442	20536	
==>ranslation.  There are some application where this is not
appropriate.  Prefixing field names w <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20442	20536	
==>ranslation.  There are some application where this is not
appropriate.  Prefixing field names w <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	537	625	
==>::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	537	625	
==>::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7422	7586	
==>);
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7422	7586	
==>);
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_meth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7422	7586	
==>);
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_meth <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4061	4159	
==>=~ s/^perl5:(?=\w)//s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2986	3078	
==>D({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2986	3078	
==>D({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$ <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	5848	5936	
==>------------------------------------------------
## sibling methods

method get_sibling ( <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5848	5936	
==>------------------------------------------------
## sibling methods

method get_sibling ( <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3943	4059	
==>]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fmap(sub { $self->reduce <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4485	4583	
==>tr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4485	4583	
==>tr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsna <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4485	4583	
==>tr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsna <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2053	2192	
==>ss $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2113	2252	
==>ss $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	824	919	
==>ns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is exp <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	824	919	
==>ns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is exp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17323	17531	
==>\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23289	23497	
==>\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17602	17810	
==>\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23568	23776	
==>\<" )
       ,
         ruleop::capture( 'id', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::cons <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3837	3936	
==>s.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3837	3936	
==>s.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refer <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3837	3936	
==>s.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the refer <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1472	1569	
==>ta($_[0], '$<value>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10517	10640	
==>ve with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	478	583	
==>d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>( <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	478	583	
==>d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>( <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	673	777	
==>se I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a 
# n <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	673	777	
==>se I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a 
# n <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20862	20979	
==>t

$::Class->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5495	5591	
==>fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5495	5591	
==>fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5495	5591	
==>fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	948	1085	
==>pan.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4187	4324	
==>pan.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	948	1085	
==>pan.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4187	4324	
==>pan.start_is_open;
    }
    elsif ($cmp > 0) {
        $i_start       = $.start;
        $open_start    = $.start_is_open;
    }
    else <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1125	1257	
==>aram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1125	1257	
==>aram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1125	1257	
==>aram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6900	7015	
==>ll( $attrs ) === any( $!heading ));

    return Relation::Example.new(
        heading => $attrs,
        body => se <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10611	10727	
==>ift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10611	10727	
==>ift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8842	8935	
==>rscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar:: <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2667	2760	
==>rscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar:: <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4152	4250	
==>ess defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$ch <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4152	4250	
==>ess defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$ch <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5495	5592	
==>ues of the
closure are collected into another list which is then returned from 
this function.

=b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4137	4228	
==>while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4137	4228	
==>while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4137	4228	
==>while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pac <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1809	1914	
==>sitional,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	887	984	
==>imP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	887	984	
==>imP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	887	984	
==>imP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	832	933	
==>s not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($outp <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	832	933	
==>s not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($outp <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6542	6638	
==>', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6542	6638	
==>', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3223	3339	
==>ge constants
use constant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2767	2859	
==>print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2767	2859	
==>print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $l <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2767	2859	
==>print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12579	12721	
==>ETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12579	12721	
==>ETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12579	12721	
==>ETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in t <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1491	1597	
==>"\n\tFailed to created '$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could not c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13667	13828	
==>e =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $m <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13667	13828	
==>e =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6865	6987	
==>emove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6865	6987	
==>emove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3714	3827	
==>code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

i <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5616	5729	
==>code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

i <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8677	8789	
==>y @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.sp <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8677	8789	
==>y @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.sp <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	554	652	
==>statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	760	858	
==>statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10043	10138	
==>erying 
set properties.

Note that all set functions may end up being calculated using iteration <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10043	10138	
==>erying 
set properties.

Note that all set functions may end up being calculated using iteration <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3919	4058	
==>ss defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3919	4058	
==>ss defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4449	4582	
==>ss defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4449	4582	
==>ss defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7341	7511	
==>ew( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7341	7511	
==>ew( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::V <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7341	7511	
==>ew( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::V <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	826	942	
==>s just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	826	942	
==>s just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	826	942	
==>s just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8940	9047	
==>return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8940	9047	
==>return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift <==
4	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	983	1078	
==>IONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<s <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	983	1078	
==>IONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<s <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	304	748	
==>36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	304	748	
==>36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1569	1687	
==>"Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # c <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1569	1687	
==>"Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19741	19838	
==>k. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAM <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19741	19838	
==>k. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAM <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26255	26351	
==>warranty for it.

While it is by no means required, the copyright holders of Rosetta would
apprec <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26255	26351	
==>warranty for it.

While it is by no means required, the copyright holders of Rosetta would
apprec <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18693	18810	
==>anch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifth <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20051	20168	
==>anch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifth <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10588	10703	
==>omain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.s <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10588	10703	
==>omain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.s <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13166	13265	
==>$set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	13340	13439	
==>$set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13166	13265	
==>$set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13340	13439	
==>$set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2607	2722	
==>al references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_captur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2595	2710	
==>al references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_captur <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24109	24203	
==>ram code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24109	24203	
==>ram code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1451	1581	
==>ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.qu <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1451	1581	
==>ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.qu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	608	698	
==>e { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Ty <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	608	698	
==>e { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Ty <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2748	2833	
==>n(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__. <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6200	6285	
==>n(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2748	2833	
==>n(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2748	2833	
==>n(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",map{'*{__PACKAGE__. <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	719	811	
==>x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	719	811	
==>x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	719	811	
==>x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7966	8068	
==>nction.
C<values> returns the value of the associated element; C<kv> returns 
a 2 element list in (inde <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14943	15043	
==>));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14943	15043	
==>));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14943	15043	
==>));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{ <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	574	687	
==>ously being
overhauled, cleaned up, and p6 added.  It's basically three days old,
and only now is changing from an <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1591	1697	
==>er->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1591	1697	
==>er->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exi <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1591	1697	
==>er->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2373	2615	
==>$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2373	2615	
==>$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "B <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2373	2615	
==>$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "B <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	770	864	
==>penNewWindows(); return false;">open each link in a
new window</a>.  (Useful with Firefox 1.5's <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24240	24337	
==>on::Example are of the same
degree, and the attribute names of each tuple are all the same as thos <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	38250	38346	
==>oup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42799	42895	
==>oup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I< <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42449	42545	
==>oup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I< <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20880	20979	
==>sers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are n <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19797	19896	
==>sers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20880	20979	
==>sers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are n <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19797	19896	
==>sers>, a hashref, which has the nicks who are on the channel as
keys.  Note that the nicknames are n <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18892	18987	
==>r a Perl class (like
C<\w> or C<\S>), the object's C<data> field points to the underlying
object <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5474	5568	
==>N'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5474	5568	
==>N'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5474	5568	
==>N'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4803	4924	
==>-> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4803	4924	
==>-> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9416	9523	
==>ub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9416	9523	
==>ub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d <==
4	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	423	544	
==>rgs ) {
            collect_arguments( self.create_arguments( @args ) );
        }

        my multi sub collect_arguments <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4784	4876	
==>"pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4784	4876	
==>"pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4784	4876	
==>"pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4112	4224	
==>defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4112	4224	
==>defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4112	4224	
==>defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5062	5159	
==>r directory to the target, recursively

Returns true on success, false on failure.

=cut

sub _cop <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33795	33930	
==>:Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33795	33930	
==>:Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{it <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33795	33930	
==>:Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{it <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6339	6472	
==>n]*)
    /ixms) {
        my $author = $1 || $2;
        $author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->auth <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1668	1777	
==>s}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1728	1837	
==>s}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10941	11043	
==>LY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11370	11472	
==>LY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S- <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1844	1970	
==>infix:<|>',
    #);

    __PACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser', <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	707	815	
==>de = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	707	815	
==>de = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cau <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	707	815	
==>de = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but cau <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3137	3268	
==>didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {f <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3137	3268	
==>didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {f <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2111	2235	
==>t.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%s <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2111	2235	
==>t.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%s <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9069	9218	
==>ext unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5429	5578	
==>ext unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6278	6427	
==>ext unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1219	1327	
==>OLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-k <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12869	13012	
==>get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12869	13012	
==>get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $ <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4529	4624	
==>you should never refer directly to "Rosetta" in your
code; instead refer to other above-named pa <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4529	4624	
==>you should never refer directly to "Rosetta" in your
code; instead refer to other above-named pa <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5277	5452	
==>r token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop( <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5277	5452	
==>r token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	945	1050	
==>);

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\ <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2547	2650	
==>)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\ <==
4	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2449	2577	
==>val "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version > <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3408	3534	
==>val "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version > <==
4	/Users/nnunley/pugs/util/func_refact.pl	1612	1738	
==>calar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f} <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2986	3088	
==>k 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The tes <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2986	3088	
==>k 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The tes <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3066	3168	
==>k 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The tes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4857	4955	
==>rom_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4857	4955	
==>rom_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hac <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4857	4955	
==>rom_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hac <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15368	15464	
==>h() method for all objects that determines the
minimum length of a string that would be matched b <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	982	1104	
==>urn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Tex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	982	1104	
==>urn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Tex <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	982	1104	
==>urn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Tex <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24471	24553	
==>amat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat(C0,G), <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2984	3126	
==>doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3168	3310	
==>doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7658	7744	
==>erl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1483	1569	
==>erl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2352	2694	
==>atement;
                        }
                        else {
                            #warn "our other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13977	14103	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13977	14103	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.re <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13977	14103	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4803	4958	
==>\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4803	4958	
==>\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Ha <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4803	4958	
==>\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Ha <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8090	8186	
==>stalled.  This caches its result,
any further calls to ghc_pkg This method expects to
be called w <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41957	42162	
==>s_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8949	9063	
==>o work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8949	9063	
==>o work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance me <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	1930	2026	
==>------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1049	1179	
==>> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1060	1190	
==>> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3480	3588	
==>MPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_ <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3480	3588	
==>MPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_ <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4574	4683	
==>base/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note that Cygw <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2832	2930	
==>fix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2832	2930	
==>fix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cm <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2832	2930	
==>fix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13077	13224	
==>ts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13077	13224	
==>ts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it w <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13077	13224	
==>ts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it w <==
4	/Users/nnunley/pugs/util/build_pugs.pl	4023	4161	
==>uild src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidates, $File <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13782	13902	
==>e a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13782	13902	
==>e a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7793	7886	
==>roize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors s <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7793	7886	
==>roize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13186	13317	
==>pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~) <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13186	13317	
==>pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~) <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15718	15817	
==>tract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web si <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15718	15817	
==>tract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web si <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36649	36765	
==>ay->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 spl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36649	36765	
==>ay->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 spl <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36649	36765	
==>ay->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 spl <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	292	407	
==>sub isa {
#     my $self = shift;
#     my $result = $self->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1772	1894	
==>. ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1772	1894	
==>. ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($cl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1772	1894	
==>. ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($cl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1933	2046	
==>ame)) . '.pm';
        $file =~ s{.*/}{} unless -e $file;
        die "all_from: cannot find $file from $name" unl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2176	2322	
==>s;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2176	2322	
==>s;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' u <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2176	2322	
==>s;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' u <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2570	2672	
==>};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dump <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2710	2812	
==>};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dump <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	722	820	
==>lti-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	722	820	
==>lti-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7505	7602	
==>intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetr <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6635	6732	
==>intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7505	7602	
==>intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetr <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6635	6732	
==>intersection(set(@args));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	551	646	
==>s = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	551	646	
==>s = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	551	646	
==>s = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	990	1081	
==>e::Backend::Foo->run($program);

=head1 DESCRIPTION

The runtime object is responsible for p <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1208	1360	
==>er if all goes well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### X <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	775	900	
==>-> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	775	900	
==>-> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            % <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	775	900	
==>-> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            % <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4235	4360	
==>atch => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4428	4553	
==>atch => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8648	8741	
==>e caught later.
    return ::($module_name).does(Package);
}

method load_template_module (Str <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8648	8741	
==>e caught later.
    return ::($module_name).does(Package);
}

method load_template_module (Str <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1465	1578	
==>ree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1499	1593	
==>($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1499	1593	
==>($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1499	1593	
==>($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3412	3518	
==>defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3412	3518	
==>defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3412	3518	
==>defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30647	30739	
==>tead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> inside the F<__object__> class <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6638	6763	
==>losure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6638	6763	
==>losure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	600	723	
==>b type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	600	723	
==>b type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13941	14058	
==>%params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13941	14058	
==>%params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class att <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13941	14058	
==>%params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class att <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2606	2757	
==>lass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2606	2757	
==>lass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "clas <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2606	2757	
==>lass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "clas <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2832	2936	
==>o_native, $arg);
    }
}

package closure::signature;

use strict;
use warnings;

use Carp 'confess';
use <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3236	3341	
==>n_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3236	3341	
==>n_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10419	10514	
==>reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10419	10514	
==>reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
4	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	46	144	
==>oo {...}", so it returns the Foo
# module object, see thread "What do use and require evaluate to?" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3387	3482	
==>store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3387	3482	
==>store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3387	3482	
==>store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2159	2282	
==>variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2159	2282	
==>variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2506	2629	
==>variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10703	10800	
==>my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)? <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	780	901	
==>f->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	622	725	
==>r::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	622	725	
==>r::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACR <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	622	725	
==>r::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACR <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4274	4436	
==>\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4274	4436	
==>\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4274	4436	
==>\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Per <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	679	776	
==>g from an experimental "let's see if something
like this can work" to "ok, this looks doable".  So <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6460	6598	
==>atch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6460	6598	
==>atch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patte <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6460	6598	
==>atch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patte <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23234	23333	
==>D_SEEN 
 ROPT_UTF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 Execution - <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18868	18958	
==>tion (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.n <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16326	16424	
==>ates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value r <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16326	16424	
==>ates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value r <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	1559	1665	
==>copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ? <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1559	1665	
==>copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ? <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2157	2258	
==>eric_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduction over " . $node->struct_e <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16024	16122	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16024	16122	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16024	16122	
==>>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9020	9166	
==>->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, i <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5380	5526	
==>->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, i <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6229	6375	
==>->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, i <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	201	317	
==>use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Gene <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2351	2449	
==>($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2351	2449	
==>($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2351	2449	
==>($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6651	6752	
==>@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6651	6752	
==>@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6651	6752	
==>@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_ <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	548	645	
==>tor_class->require || die $UNIVERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotat <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3036	3148	
==>nue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.p <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3036	3148	
==>nue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.p <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	655	751	
==>1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	713	809	
==>1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29094	29187	
==>elation::Example
which is the same as the invocant Relation::Example but that some of its attr <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31942	32035	
==>elation::Example
which is the same as the invocant Relation::Example but that some of its attr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1154	1296	
==>attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1154	1296	
==>attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1154	1296	
==>attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17583	17744	
==>STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_ty <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17583	17744	
==>STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_ty <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2433	2529	
==>when you're done, call the closure 
with no arguments to finish the ciphering and clear the ciphe <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2433	2529	
==>when you're done, call the closure 
with no arguments to finish the ciphering and clear the ciphe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3521	3638	
==>xtToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3521	3638	
==>xtToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3521	3638	
==>xtToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self- <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16420	16548	
==>, Code $corner) returns Int is primitive is safe {
        (int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	665	784	
==>(i = 0; i < ac; i++)
    printf("[%s]", av[i]);
    printf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxna <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	12328	12424	
==>set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2> <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12328	12424	
==>set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2> <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1943	2088	
==>: [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1943	2088	
==>: [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11701	11798	
==>es
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( $ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11701	11798	
==>es
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( $ <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	111	226	
==>/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8377	8485	
==>$name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8377	8485	
==>$name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>st <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8377	8485	
==>$name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>st <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2326	2465	
==>ut = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $us <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2326	2465	
==>ut = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $us <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3375	3469	
==>ack 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the p <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3375	3469	
==>ack 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14675	14847	
==>lass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14675	14847	
==>lass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14675	14847	
==>lass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19091	19237	
==>es and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19091	19237	
==>es and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19091	19237	
==>es and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1610	1705	
==>unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($t <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1610	1705	
==>unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($t <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4685	4779	
==>_FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*' <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4907	5001	
==>_FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*' <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7166	7334	
==>_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # D <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7166	7334	
==>_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # D <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24893	25000	
==>push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }x <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21314	21421	
==>push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }x <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1915	2045	
==>info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $A <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5010	5116	
==>turn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5010	5116	
==>turn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(u <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5010	5116	
==>turn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(u <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	798	901	
==>Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6477	6572	
==>ed by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6477	6572	
==>ed by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected re <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6477	6572	
==>ed by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected re <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1245	1356	
==>PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4395	4504	
==>PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValu <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4395	4504	
==>PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValu <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4741	4843	
==>eed all the lines including the ones before the `use`
    # statement, so we can parse Perl into packag <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4741	4843	
==>eed all the lines including the ones before the `use`
    # statement, so we can parse Perl into packag <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3500	3597	
==>rfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first cr <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3500	3597	
==>rfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first cr <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6878	7001	
==><=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6878	7001	
==><=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pref <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6878	7001	
==><=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pref <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	534	634	
==>-e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	534	634	
==>-e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	534	634	
==>-e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs P <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	317	447	
==>ntry ( @List ) {

        ### find the entry to install
        next unless $entry->{package} eq $package;

        ### and install <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6086	6174	
==>Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test:: <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6086	6174	
==>Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test:: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8283	8371	
==>Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test:: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27997	28109	
==>be called with a false one.

If the flag handler returns 0, the flag is removed from the resulting
object's visua <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2067	2165	
==>ositional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variabl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2067	2165	
==>ositional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variabl <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2414	2512	
==>ositional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variabl <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11528	11652	
==>er('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any';
    return $S->object(r <==
4	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	197	308	
==>ents : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succe <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	197	308	
==>ents : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succe <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1907	1999	
==>Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Steva <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6612	6749	
==>ories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | <Mc>
}
rule UnicodeDigit {  # see 7.6
      # any char <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13642	13738	
==>refix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13642	13738	
==>refix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13642	13738	
==>refix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	3384	3493	
==>ration.

>   Alive without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6	100	
==>s file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6	100	
==>s file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is prim <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6	100	
==>s file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is prim <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3698	3809	
==>hObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16766	16861	
==>d application in
Rosetta D and compile that into its own executable, in practice one would
norma <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16766	16861	
==>d application in
Rosetta D and compile that into its own executable, in practice one would
norma <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1582	1669	
==>[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$ex <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11580	11669	
==>---------------------------------

With this Role meta-model , any Class instances, themse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11580	11669	
==>---------------------------------

With this Role meta-model , any Class instances, themse <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11580	11669	
==>---------------------------------

With this Role meta-model , any Class instances, themse <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2499	2697	
==>efined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2499	2697	
==>efined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14531	14648	
==>$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class- <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14531	14648	
==>$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class- <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23103	23216	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19524	19637	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2887	2988	
==>text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "interna <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2887	2988	
==>text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "interna <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9987	10164	
==>str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9987	10164	
==>str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->pa <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9987	10164	
==>str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->pa <==
4	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	624	747	
==>urn "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex { <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14862	14982	
==>relen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 npare <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19030	19150	
==>relen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 npare <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15070	15167	
==>ram's operation, the program (or a package it uses)
will need to display a message to the user, or <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15070	15167	
==>ram's operation, the program (or a package it uses)
will need to display a message to the user, or <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	16442	16569	
==>return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	17412	17539	
==>return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19919	20046	
==>return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20889	21016	
==>return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18667	18765	
==>o access the same external resources.>

Rosetta does not use any dialect of SQL in its native API ( <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18667	18765	
==>o access the same external resources.>

Rosetta does not use any dialect of SQL in its native API ( <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	543	640	
==>::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do expo <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	543	640	
==>::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do expo <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8038	8188	
==>cal $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10817	10931	
==>w try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10817	10931	
==>w try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10817	10931	
==>w try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8412	8539	
==>on_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code ass <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13923	14050	
==>on_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code ass <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8412	8539	
==>on_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code ass <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13917	14044	
==>on_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code ass <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3221	3324	
==>other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3221	3324	
==>other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30264	30360	
==>substituted at run-time before the text
is shown to the user.

Each Template module ideally comes <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30264	30360	
==>substituted at run-time before the text
is shown to the user.

Each Template module ideally comes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11605	11718	
==>work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11605	11718	
==>work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pop <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11605	11718	
==>work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pop <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27562	27659	
==>.  If C<$body> is undefined or an empty Set,
the Relation::Example has zero tuples.  If a Relation <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32405	32595	
==>, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32405	32595	
==>, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32405	32595	
==>, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @t <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20418	20520	
==>ode($code);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19046	19221	
==>ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to c <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	902	1063	
==>ess @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) { <==
4	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	781	942	
==>ess @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) { <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	17252	17354	
==>al(5),
);

# the pair function takes any param and returns a function that takes any param
# that funct <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10345	10527	
==>art =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10345	10527	
==>art =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {} <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10345	10527	
==>art =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {} <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18310	18410	
==>s a new api into the guts of the perl core, to permit the use
of alternate regexp engines.  There bei <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5803	5908	
==>o and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5803	5908	
==>o and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # crea <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5803	5908	
==>o and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # crea <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4023	4113	
==>E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and oth <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12194	12306	
==>status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
  {
      method <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2592	2690	
==>status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2592	2690	
==>status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33051	33147	
==>ersions will have more complete
documentation.  For now, read the source (!).

=head2 bol

Family <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12885	12983	
==>s no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12885	12983	
==>s no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12885	12983	
==>s no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => <==
4	/Users/nnunley/pugs/docs/feather/~/gen.pl	455	549	
==>e users have something in their <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12215	12346	
==>ented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8569	8678	
==>backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8569	8678	
==>backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, * <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8569	8678	
==>backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, * <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1164	1264	
==>ike Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# " <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11796	11896	
==>y.  The nchar() method takes
a named character's name, and returns the actual character:

  my $R = $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1164	1264	
==>ike Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# " <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1164	1264	
==>ike Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# " <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5777	5906	
==>Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5777	5906	
==>Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shif <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5777	5906	
==>Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14195	14323	
==>@{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = $f_test->( <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6784	6911	
==>nless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6977	7104	
==>nless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7766	7862	
==>C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal struc <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7766	7862	
==>C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal struc <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12827	12959	
==>es = $test_results->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok} - $t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8877	8998	
==>ew( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPl <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1033	1146	
==>ew( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPl <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1033	1146	
==>ew( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPl <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7561	7688	
==>ift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7561	7688	
==>ift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7561	7688	
==>ift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7463	7582	
==>' ', grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ld <==
4	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1560	1658	
==>epresents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1322	1420	
==>epresents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1560	1658	
==>epresents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1322	1420	
==>epresents a single span.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11694	11806	
==>);
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11694	11806	
==>);
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11694	11806	
==>);
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	12797	12934	
==>am("tests", $output);
  my $tres = $test_results->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        o <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29342	29433	
==>but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33894	33985	
==>but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
at <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33058	33149	
==>but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
at <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	127	292	
==>s = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3181	3346	
==>s = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	127	292	
==>s = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3181	3346	
==>s = (
        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $s <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8109	8223	
==>_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3498	3597	
==>_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3498	3597	
==>_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3498	3597	
==>_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	976	1122	
==>>add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter',
        other => '*',
    );
    __ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	523	622	
==>m
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	523	622	
==>m
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbos <==
4	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	523	622	
==>m
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbos <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4676	4786	
==>lue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h ' <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4676	4786	
==>lue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h ' <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9637	9728	
==>variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

T <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9637	9728	
==>variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

T <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6651	6754	
==>".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~norma <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6651	6754	
==>".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~norma <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7355	7451	
==>n, concatenation.

- "plain" match operators: like 'literal'.



Higher order operators take a li <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7105	7198	
==>n, concatenation.
- "plain" match operators: like 'literal'.

Higher order operators take a li <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3500	3615	
==>ler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3500	3615	
==>ler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	584	690	
==>b     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	584	690	
==>b     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant { <==
4	/Users/nnunley/pugs/util/build_pugs.pl	5252	5390	
==>ame";
        mkdir $dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1851	1948	
==>IL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1851	1948	
==>IL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::d <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1851	1948	
==>IL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::d <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9031	9134	
==>`

Return the start or end value of the set.

These methods may return nothing if the set is empty.

- ` <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9031	9134	
==>`

Return the start or end value of the set.

These methods may return nothing if the set is empty.

- ` <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1827	1927	
==>xt version.  Most 
algorithms will have a key, which will be specified in the options; check your 
ci <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1827	1927	
==>xt version.  Most 
algorithms will have a key, which will be specified in the options; check your 
ci <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4556	4654	
==>ifference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithme <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4556	4654	
==>ifference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithme <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1056	1150	
==>1 DESCRIPTION

The blondie intermediate language is a language for machines and not for
humans. <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5080	5171	
==>ented
interface provided by the C<LWP::UserAgent> module.

The following functions are provi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5080	5171	
==>ented
interface provided by the C<LWP::UserAgent> module.

The following functions are provi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8770	8945	
==>l) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8770	8945	
==>l) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8770	8945	
==>l) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	29	130	
==>nt, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	29	130	
==>nt, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Pe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	29	130	
==>nt, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Pe <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23272	23372	
==>on

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEEN <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1534	1665	
==>ACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not wo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1534	1665	
==>ACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not wo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1534	1665	
==>ACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not wo <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2333	2431	
==>btract (x as num) returns num>

=item B<mulitply (x as num) returns num>

=item B<divide (x as num) <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10335	10466	
==>ite( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      ex <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2364	2481	
==>ite( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    ex <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2364	2481	
==>ite( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    ex <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14011	14112	
==>n to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14069	14170	
==>n to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	933	1021	
==>s(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldo <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	933	1021	
==>s(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldo <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33598	33696	
==>ay of Str - This stores an ordered list one or more elements where each
element is a Template modul <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33598	33696	
==>ay of Str - This stores an ordered list one or more elements where each
element is a Template modul <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	24874	24971	
==>em C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int. <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29426	29523	
==>em C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5559	5656	
==>) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5559	5656	
==>) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5559	5656	
==>) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16280	16377	
==>y00, $2 = 1

This means character classes should store a hash of what characters
they represent, a <==
4	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	446	550	
==>/= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method add <==
4	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	446	550	
==>/= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method add <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	9	105	
==>Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	9	105	
==>Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our <==
4	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	669	775	
==>e: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchma <==
4	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	669	775	
==>e: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchma <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10689	10784	
==>s, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitra <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10689	10784	
==>s, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitra <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10465	10587	
==>valX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = Fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10465	10587	
==>valX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = Fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10465	10587	
==>valX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = Fi <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1166	1302	
==>diate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1371	1507	
==>diate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        } <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2316	2427	
==>mp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Func <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2316	2427	
==>mp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Func <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3245	3348	
==>e better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\. <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3245	3348	
==>e better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\. <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	670	768	
==>print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	876	974	
==>print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19082	19195	
==>.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.g <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19082	19195	
==>.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.g <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8041	8137	
==>ay { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).diffe <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7171	7267	
==>ay { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8041	8137	
==>ay { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).diffe <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7171	7267	
==>ay { set(@a).union(set @b).members }
multi sub *infix:<-#> (@a, @b) returns Array { set(@a).diffe <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	7783	7912	
==>n modifier :$k will probably be ignored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2080	2197	
==>n modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2080	2197	
==>n modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2080	2197	
==>n modifier :$k will probably be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warn <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	552	717	
==>n is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        e <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	523	688	
==>n is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	552	717	
==>n is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        e <==
4	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	552	717	
==>n is not implemented.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        e <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	10199	10357	
==>header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FO <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10199	10357	
==>header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FO <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31834	31932	
==>s
language B.  Later on, if for example the first library generates an error
message and wants it s <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31834	31932	
==>s
language B.  Later on, if for example the first library generates an error
message and wants it s <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	2707	2820	
==>line\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th l <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	70	167	
==>B::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use Fi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	75	171	
==>B::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use Fi <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	73	169	
==>B::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use Fi <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	203	308	
==>egex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <c <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	203	308	
==>egex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <c <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5786	5885	
==>:Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPT <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5786	5885	
==>:Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPT <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1258	1367	
==>main = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https') <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1258	1367	
==>main = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https') <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5268	5373	
==>$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  % <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5268	5373	
==>$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  % <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9214	9328	
==>(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $retu <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9214	9328	
==>(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $retu <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	324	427	
==>) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @ <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	324	427	
==>) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2776	2895	
==>n_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2776	2895	
==>n_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      m <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2776	2895	
==>n_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      m <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21473	21569	
==>I SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21473	21569	
==>I SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21473	21569	
==>I SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...} <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5624	5716	
==>"        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$_[1], \$_[ <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	8307	8429	
==>~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8307	8429	
==>~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2288	2398	
==>elete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method re <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2288	2398	
==>elete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method re <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	6269	6423	
==>sts_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6327	6481	
==>sts_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6655	6774	
==>R_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6655	6774	
==>R_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27073	27229	
==>nstant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27352	27508	
==>nstant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2308	2421	
==>my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2308	2421	
==>my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'a <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10962	11073	
==>xp::Parser::open;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    my $idx = $o->{'nparen'} - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	126	229	
==>=> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	126	229	
==>=> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	126	229	
==>=> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13693	13819	
==>Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13693	13819	
==>Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13693	13819	
==>Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) <==
4	/Users/nnunley/pugs/util/PugsConfig.pm	1375	1494	
==>ath(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib     => $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28338	28436	
==>ject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ex <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35694	35792	
==>ject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28338	28436	
==>ject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ex <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35694	35792	
==>ject's contents look
good at a glance); no attribute values are escaped and you shouldn't try to
ex <==
4	/Users/nnunley/pugs/util/config_h.pl	1664	1812	
==>$temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $code;
        close TMP;
        system(
            $ghc, @ghc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	718	819	
==>'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	718	819	
==>'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2 <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	718	819	
==>'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2320	2445	
==>er_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        las <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2320	2445	
==>er_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        las <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10372	10481	
==>elf->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object( <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10001	10110	
==>elf->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12747	12884	
==>ists $n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4909	5023	
==>ft() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4909	5023	
==>ft() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4909	5023	
==>ft() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "a <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	29524	29628	
==>aking its core usage.

Figure a way to report test names in the failure summary.

Rework the test summary <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	417	518	
==>().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	417	518	
==>().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::i <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	417	518	
==>().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::i <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13262	13409	
==>eturn an object...
    return 1 unless -d $my_bindir;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1924	2024	
==>gnature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1924	2024	
==>gnature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1924	2024	
==>gnature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's metho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2446	2557	
==>'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2446	2557	
==>'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2446	2557	
==>'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7566	7664	
==>t>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1794	1892	
==>t>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9200	9298	
==>t>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2012	2110	
==>t>stevan@iinteractive.comE<gt>

Perl 6 code by chromatic E<lt>chromatic@wgz.orgE<gt>

documentation <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	119	244	
==>ns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	119	244	
==>ns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty <==
4	/Users/nnunley/pugs/blib6/lib/Date.pm	3966	4062	
==>:Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Retu <==
4	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3966	4062	
==>:Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Retu <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6277	6372	
==>(Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) return <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8345	8440	
==>(Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6277	6372	
==>(Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) return <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8345	8440	
==>(Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str $base?) return <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15211	15313	
==>rule ShiftExpression :words {  # see 11.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <Ad <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4376	4468	
==>');
is($p3d->prototype->class, \&Point, '... go the right superclass name for Point3D');
is($ <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15260	15453	
==>est->{number} = $num;
        $test->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10153	10251	
==>use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10153	10251	
==>use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PI <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10153	10251	
==>use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PI <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9511	9682	
==>ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= j <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2105	2274	
==>kies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2105	2274	
==>kies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1314	1465	
==>ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= j <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17974	18171	
==>_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17974	18171	
==>_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17974	18171	
==>_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  gr <==
4	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	59	142	
==>rl5/site_perl/5.8.7/Module/Install/WriteAll.pm"
package Module::Install::WriteAll;
u <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	23350	23448	
==>s false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27902	28000	
==>s false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3298	3388	
==>ll at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\0 <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3298	3388	
==>ll at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\0 <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1061	1172	
==>eems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... " if $Co <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3928	4032	
==>erl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3928	4032	
==>erl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3928	4032	
==>erl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glo <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30385	30486	
==>lly match.  The real closing parenthesis handler
is:

  $self->add_handler('c)' => sub {
    my ($S) = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3685	3867	
==>nboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3685	3867	
==>nboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3685	3867	
==>nboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6: <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16652	16743	
==>p-start to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements ch <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7525	7651	
==>gs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~ <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6655	6781	
==>gs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7525	7651	
==>gs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6655	6781	
==>gs));
}
multi sub *infix:<%> (Set $one, *@args) returns Set {
    $one.symmetric_difference(set(@args));
}
multi sub *infix:<~~ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4003	4131	
==>%mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4003	4131	
==>%mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4003	4131	
==>%mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	104	194	
==>unexpected on zero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	394	502	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	394	502	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	394	502	
==>tch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24254	24335	
==>h_captures(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captu <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10364	10518	
==>(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10364	10518	
==>(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10364	10518	
==>(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) { <==
4	/Users/nnunley/pugs/util/package-osx.pl	8462	8559	
==>l/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run.3
        /usr/local/man <==
4	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3720	3821	
==>( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( $ <==
4	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1820	1921	
==>( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18080	18180	
==>rious blocks; so that by the
time a compiler is called it only gets the source code that it should be <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18080	18180	
==>rious blocks; so that by the
time a compiler is called it only gets the source code that it should be <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3049	3163	
==>rename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3049	3163	
==>rename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3049	3163	
==>rename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36473	36570	
==>f objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifthen (C<(?(>)

Data: array refe <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1638	1747	
==>t, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.uni <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1638	1747	
==>t, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.uni <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1961	2057	
==>⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1961	2057	
==>⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7703	7804	
==>t_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7442	7539	
==>t_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4024	4116	
==>,
        complement_previous => $self._get_union( $self.complement_previous, $set.complement <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4024	4116	
==>,
        complement_previous => $self._get_union( $self.complement_previous, $set.complement <==
4	/Users/nnunley/pugs/examples/advocacy/Motd.pm	842	963	
==>nger @x;
       %terms{$phrase}++
    }
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string i <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1389	1508	
==>',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'Sub <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4514	4630	
==>',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'Sub <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4514	4630	
==>',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'Sub <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8057	8164	
==>hift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		return Blondie::Type <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1226	1321	
==>tures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:min <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1226	1321	
==>tures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:min <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10061	10176	
==>[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match failed

or t <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	18345	18472	
==>rnals::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($co <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13568	13666	
==>keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13568	13666	
==>keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13568	13666	
==>keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's de <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1272	1371	
==>];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = [ Pa <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	13	111	
==>rl

package Blondie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAG <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1926	2022	
==>uperset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
} <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1926	2022	
==>uperset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
} <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4730	4844	
==>rt_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!mem <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4730	4844	
==>rt_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!mem <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	2221	2327	
==>rt> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2221	2327	
==>rt> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	10205	10348	
==>$test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5	103	
==>r/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5	103	
==>r/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5	103	
==>r/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at t <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12071	12177	
==>ent) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_comm <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12071	12177	
==>ent) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_comm <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15046	15147	
==>) }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  me <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15046	15147	
==>) }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  me <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	11613	11708	
==>this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11613	11708	
==>this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2199	2284	
==>eepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2199	2284	
==>eepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10316	10431	
==>:str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6657	6772	
==>:str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7506	7621	
==>:str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24832	24931	
==>ne
simply returns, you can assume that it has succeeded, even if the return
value is undefined.

=he <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22446	22545	
==>ne simply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=he <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24832	24931	
==>ne
simply returns, you can assume that it has succeeded, even if the return
value is undefined.

=he <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22446	22545	
==>ne simply
returns, you can assume that it has succeeded, even if the return value is
undefined.

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	526	625	
==>an be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	526	625	
==>an be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roma <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	526	625	
==>an be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roma <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	310	401	
==>$type_annotated = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	1289	1419	
==>e zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dependin <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4767	4897	
==>e zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dependin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	367	461	
==>+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*re <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	367	461	
==>+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*re <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6005	6116	
==>ub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6005	6116	
==>ub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh e <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6005	6116	
==>ub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh e <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2373	2472	
==>2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2373	2472	
==>2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2 <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2373	2472	
==>2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2 <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6811	6906	
==>future versions.

This module is designed as a replacement (though not drop-in) for my old
F<YAP <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1678	1795	
==>"u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    b <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3078	3178	
==>$access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $acc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3078	3178	
==>$access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $acc <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3078	3178	
==>$access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $acc <==
4	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	426	541	
==>undamental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	154	265	
==>to".

It passes most (95%) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverage is much less.  Th <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1681	1778	
==>s

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1681	1778	
==>s

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!chi <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1555	1647	
==>d::e) ** $exponent) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e) <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	7809	7910	
==>k ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defi <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7867	7968	
==>k ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	19622	19719	
==>sions rather than one.  The Relation operators are somewhat of
a superset of the Set operators.

L <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24174	24271	
==>sions rather than one.  The Relation operators are somewhat of
a superset of the Set operators.

L <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5405	5503	
==>hink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5405	5503	
==>hink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt t <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5405	5503	
==>hink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5326	5466	
==>ss = shift;
    bless {
        env  => {},
        next => undef
    } => $class;
}

sub create {
    my ($self, $name, $value) = @_;
    (d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1797	1903	
==>"SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1797	1903	
==>"SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1797	1903	
==>"SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2029	2195	
==>=> $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { r <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2276	2442	
==>=> $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { r <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25396	25492	
==>ms of the GPL for Rosetta and the licenses
of the other components concerned, provided that you i <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25396	25492	
==>ms of the GPL for Rosetta and the licenses
of the other components concerned, provided that you i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7163	7276	
==>:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7163	7276	
==>:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    ret <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7163	7276	
==>:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    ret <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9491	9599	
==>y $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my $is_macos    = $^O eq 'MacOS';
my $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34277	34383	
==>$ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34277	34383	
==>$ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34277	34383	
==>$ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Per <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	5966	6069	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.s <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	5096	5199	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5966	6069	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.s <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	5096	5199	
==>ns Set {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) returns Set {
    $one.s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1358	1554	
==>: ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1358	1554	
==>: ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1358	1554	
==>: ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	859	950	
==>} = '.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(<<'R <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5403	5511	
==>sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5403	5511	
==>sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5403	5511	
==>sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self- <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	27663	27753	
==>gth_and_first), "∀α. list α → (α × int)", ":t length_and_first");
is(t($length_and_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1340	1430	
==>term:", "nows", "PGE::Exp::Group");
    $optable->addToken("circumfix:( )", "term:", "nows" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23692	23784	
==>CE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE m <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22465	22557	
==>CE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23692	23784	
==>CE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE m <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22465	22557	
==>CE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc1459.txt>:

  The NOTICE m <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1095	1208	
==>n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1095	1208	
==>n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_a <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14432	14533	
==>1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end = <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14432	14533	
==>1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end = <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5052	5273	
==><start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5052	5273	
==><start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	7013	7110	
==>n0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7013	7110	
==>n0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8369	8477	
==>lo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8369	8477	
==>lo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8369	8477	
==>lo from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little <==
4	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	383	480	
==>05.pod

=cut

grammar Perl6::Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustive  { <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	8466	8600	
==>at,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'};
    my $ov = %mods{'ov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3142	3245	
==>ach element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3142	3245	
==>ach element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2] <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3142	3245	
==>ach element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2] <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1367	1473	
==>verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11424	11525	
==>s) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11424	11525	
==>s) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{' <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11424	11525	
==>s) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{' <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3954	4069	
==>ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3954	4069	
==>ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2486	2588	
==>urn "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capt <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1098	1200	
==>urn "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	504	606	
==>class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	504	606	
==>class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::C <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	504	606	
==>class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::C <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17091	17209	
==>tta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_ <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17091	17209	
==>tta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3642	3745	
==>= $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3642	3745	
==>= $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8772	8876	
==>> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8772	8876	
==>> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8772	8876	
==>> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MUL <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	958	1089	
==>ecurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @li <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	906	1019	
==>t;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	906	1019	
==>t;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	906	1019	
==>t;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5737	5859	
==>mpile {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Grammar:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1279	1375	
==>ringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls ho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1279	1375	
==>ringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls ho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1279	1375	
==>ringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls ho <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5763	5869	
==>) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5763	5869	
==>) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5763	5869	
==>) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	355	458	
==>ct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$st <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3219	3327	
==>n32ified path as well.

    if ($Config{osname} eq q{cygwin}) {

        # The world's ugliest cygwin variabl <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	226	327	
==>nd can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	226	327	
==>nd can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = " <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	226	327	
==>nd can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = " <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	549	652	
==>(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	549	652	
==>(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => sub <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2532	2633	
==>module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2532	2633	
==>module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6979	7135	
==>us_w {
    my $self = shift;
    my %hash = @_;
    
    require File::stat;
    
    my $file;
    my $tmpl = {
        file    => { required => 1, allow => <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14689	14784	
==>6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14689	14784	
==>6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14689	14784	
==>6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5448	5601	
==>cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with pre <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5460	5613	
==>cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with pre <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2986	3089	
==>}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!part <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2986	3089	
==>}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!part <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5405	5515	
==>d_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5405	5515	
==>d_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4891	4995	
==>cks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache35 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4891	4995	
==>cks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache35 <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1921	2020	
==>on of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1921	2020	
==>on of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defin <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1921	2020	
==>on of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defin <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28799	28890	
==>ge, assertion, branch, close,
clump, digit, exact, flags, group, groupp, minmod, prop, open, <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6026	6120	
==>ending on when C<want> gets implemented. Currently, the headers
are returned as one long string <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6026	6120	
==>ending on when C<want> gets implemented. Currently, the headers
are returned as one long string <==
4	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3121	3254	
==>0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0 <==
4	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3121	3254	
==>0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0 <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10863	10987	
==>intext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decip <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10863	10987	
==>intext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decip <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5130	5226	
==>C<read> method reads a config file, and returns a boolean value
of success or failure

=item data <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5130	5226	
==>C<read> method reads a config file, and returns a boolean value
of success or failure

=item data <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10022	10134	
==>code_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	408	513	
==>w/Blondie::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my $self = shift;
		die "annotations are not f <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23865	23979	
==>'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23865	23979	
==>'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23865	23979	
==>'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems <==
4	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	876	976	
==>ens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address;
  $^H{ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	672	791	
==>b parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpParser->parse($source);
        #warn D <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30837	30948	
==>atcher_iterator (opaque $self: list @values) returns block {
    my $counter = 0;
    return sub {
        retur <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	8799	8897	
==>thod difference (Relation $other!) returns Relation {

    die "The heading of the relation in $oth <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12276	12374	
==>thod difference (Relation $other!) returns Relation {

    die "The heading of the relation in $oth <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3727	3884	
==>l{ $depends->{package} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here too
            system <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4192	4311	
==>ame' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4192	4311	
==>ame' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1042	1161	
==>ame' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5584	5712	
==>(ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5584	5712	
==>(ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5584	5712	
==>(ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11349	11439	
==>r><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=cat <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	227	358	
==>ort);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	231	362	
==>ort);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	227	358	
==>ort);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	231	362	
==>ort);
#   $bot<connect>();
#   $bot<login>();
#   $bot<join>("#channel");
#   $bot<run>();            # Enter main event loop
# Note <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2136	2308	
==>ter {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_te <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2383	2555	
==>ter {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_te <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17734	17830	
==>guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some po <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17734	17830	
==>guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some po <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6477	6591	
==>>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", - <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6477	6591	
==>>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", - <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5596	5692	
==>zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writin <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5596	5692	
==>zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writin <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1755	1851	
==>stribution
somewhere with test files, and do objective 1 above.

If anyone would like to help out <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35282	35376	
==>correspond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35282	35376	
==>correspond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns a <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	878	988	
==>- pass the string index around, 

# XXX   instead of copying the whole string to $tail every time



# XXX - we <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1243	1350	
==>- pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - we <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	842	949	
==>- pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - we <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1243	1350	
==>- pass the string index around, 
# XXX   instead of copying the whole string to $tail every time

# XXX - we <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6921	7040	
==>rns true on success, false on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    requi <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5489	5580	
==>$iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9087	9178	
==>$iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo- <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	18019	18213	
==>=== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21496	21690	
==>=== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take ma <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21083	21277	
==>=== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take ma <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1709	1810	
==><=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1709	1810	
==><=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix: <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1709	1810	
==><=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix: <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	5404	5499	
==>open( my $fh,'>',  $index_file) or die "Failed to open $index_file: $!";
my $template = HTML::Te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5092	5194	
==>dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option no <==
4	/Users/nnunley/pugs/examples/golf/tsanta.pl	919	1021	
==>tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfScore {
   my $script = shift <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5092	5194	
==>dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option no <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5092	5194	
==>dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option no <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9630	9803	
==>ist') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9630	9803	
==>ist') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cla <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9630	9803	
==>ist') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cla <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	7150	7252	
==>e with native multimetods this would be much more concise

# a free variable instantiates into whatever <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20323	20438	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20602	20717	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	4880	4987	
==>5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encod <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4880	4987	
==>5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encod <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8336	8481	
==>il = 1;
      }
    } else {
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5113	5238	
==>turn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.s <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5113	5238	
==>turn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.s <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7972	8117	
==>[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4356	4494	
==>=> '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para" <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4356	4494	
==>=> '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para" <==
4	/Users/nnunley/pugs/blib6/lib/lib.pm	811	920	
==>tuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths t <==
4	/Users/nnunley/pugs/ext/lib/lib/lib.pm	811	920	
==>tuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths t <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7931	8036	
==>ject that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7663	7765	
==>ject that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match <==
4	/Users/nnunley/pugs/util/catalog_tests.pl	8875	8975	
==>rel2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $f <==
4	/Users/nnunley/pugs/util/run-smoke.pl	1741	1827	
==>|"";

my @yaml_harness_args;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9030	9149	
==>ram'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9030	9149	
==>ram'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpP <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9030	9149	
==>ram'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpP <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7152	7303	
==>"; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potentia <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7152	7303	
==>"; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potentia <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	6386	6493	
==>) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_chi <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6386	6493	
==>) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_chi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16891	16985	
==>load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyMod <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16891	16985	
==>load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyMod <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	56	314	
==>kages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	56	314	
==>kages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	56	314	
==>kages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	56	314	
==>kages in this file, that don't export symbols:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29815	29975	
==>$sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29815	29975	
==>$sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$se <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29815	29975	
==>$sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$se <==
4	/Users/nnunley/pugs/misc/Blondie/example.pl	453	560	
==>s;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13159	13316	
==>ble'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21209	21366	
==>ble'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13438	13595	
==>ble'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21488	21645	
==>ble'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4462	4603	
==>b str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4462	4603	
==>b str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_ <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4462	4603	
==>b str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_ <==
4	/Users/nnunley/pugs/util/yaml_harness.pl	4453	4569	
==>mous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    push( <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	255	381	
==>, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.te <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	255	381	
==>, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.te <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11650	11763	
==>defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $ar <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11650	11763	
==>defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $ar <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11028	11138	
==>::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11028	11138	
==>::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOr <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11028	11138	
==>::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOr <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26287	26381	
==>==============================

use strict;
use warnings;
BEGIN {
    require Language::Prolog: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7746	7876	
==>table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'n <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7746	7876	
==>table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'n <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1548	1663	
==>$!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'mai <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1548	1663	
==>$!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'mai <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	628	727	
==>s "Keys must be strings, and values must be native types";
        $values{$key->to_str->to_native() <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	886	975	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	886	975	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	886	975	
==>]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18036	18153	
==>yze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return (self)
.end

.namespace [ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5888	5992	
==>ART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq no <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5888	5992	
==>ART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq no <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3225	3324	
==>@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetri <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3225	3324	
==>@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetri <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2098	2194	
==>dule> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Sinc <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2098	2194	
==>dule> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Sinc <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	877	971	
==>ilter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilte <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	877	971	
==>ilter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilte <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7298	7403	
==>ty || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7298	7403	
==>ty || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7298	7403	
==>ty || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1675	1788	
==>universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$! <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1675	1788	
==>universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$! <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4751	4863	
==>%cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # k <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4751	4863	
==>%cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, as
      # k <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	158	262	
==>tter - emitter base class - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPT <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	263	351	
==>rl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	263	351	
==>rl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL:: <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	263	351	
==>rl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL:: <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5268	5370	
==>undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5268	5370	
==>undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $c <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5268	5370	
==>undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1496	1593	
==>ame) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1496	1593	
==>ame) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1496	1593	
==>ame) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12233	12339	
==>2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12233	12339	
==>2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	476	574	
==>orization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submeth <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	476	574	
==>orization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submeth <==
4	/Users/nnunley/pugs/util/claim_drift.pl	947	1101	
==>$clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or d <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1287	1387	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1287	1387	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aP <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1287	1387	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aP <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	739	865	
==>l> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	762	878	
==>l> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $ <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30321	30419	
==>ser.

Each Template module ideally comes as part of a set, at least one member
large, with each set <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30321	30419	
==>ser.

Each Template module ideally comes as part of a set, at least one member
large, with each set <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2467	2555	
==>>addToken("infix:|", "<infix:&", "left,nows", "PGE::Exp::Alt");
    $optable->addToken("i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15558	15662	
==>{
    my($prog, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_args->{prog <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7154	7247	
==>).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7154	7247	
==>).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7154	7247	
==>).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36580	36822	
==>,                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:')
                  ->get_attr(symbol->new(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1669	1816	
==>o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1669	1816	
==>o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{" <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1669	1816	
==>o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{" <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25079	25168	
==>er.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> an <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23843	23932	
==>er.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25079	25168	
==>er.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> an <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23843	23932	
==>er.

=head1 EXAMPLES

See F<examples/network/seenbot.p6>, F<examples/network/logbot.p6> an <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	566	685	
==>rs, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	566	685	
==>rs, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19468	19563	
==>te

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.a <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19468	19563	
==>te

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.a <==
4	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2926	3023	
==>than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

F <==
4	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2926	3023	
==>than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

F <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18204	18298	
==>se a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18204	18298	
==>se a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7547	7671	
==>> chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(866 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7547	7671	
==>> chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(866 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9120	9239	
==>/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^befor <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9120	9239	
==>/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^befor <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9141	9245	
==>$.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given l <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9141	9245	
==>$.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given l <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	838	1016	
==>|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $ <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	838	1016	
==>|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4110	4208	
==>};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3294	3407	
==>$description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descript <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3294	3407	
==>$description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descript <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4818	4931	
==>$description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descript <==
4	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3742	3845	
==>ass Class::Events::Event {
    # pretty much an abstract baseclass
    # an empty implementation is usef <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1218	1314	
==>g", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, whi <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1218	1314	
==>g", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, whi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	11605	11693	
==>xpected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() thou <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11663	11751	
==>xpected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() thou <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5197	5479	
==>en $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5197	5479	
==>en $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	26871	26966	
==>ct_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but tha <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31423	31518	
==>ct_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but tha <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	22396	22502	
==>rst",
		is => $length_and_first,
		in => comb(
			fun => ide("length_and_first"),
			param => comb(
				fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	548	646	
==>rn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	548	646	
==>rn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	548	646	
==>rn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	706	813	
==>codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	706	813	
==>codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_s <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	706	813	
==>codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_s <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1940	2043	
==>tch => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSpl <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16991	17085	
==>ng mechanism has been applied to the resource.

=item $h.content_length

A decimal number indic <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12418	12512	
==>ument is undefined).  The new Document object's All Nodes
attribute starts out empty, but gains <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12418	12512	
==>ument is undefined).  The new Document object's All Nodes
attribute starts out empty, but gains <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16991	17085	
==>ng mechanism has been applied to the resource.

=item $h.content_length

A decimal number indic <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5017	5129	
==>nt( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5017	5129	
==>nt( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var na <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1485	1583	
==>)->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_na <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1485	1583	
==>)->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_na <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10057	10246	
==>er::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method s <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2112	2283	
==>er::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method s <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2112	2283	
==>er::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method s <==
4	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2598	2735	
==>an ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2598	2735	
==>an ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	735	855	
==>sponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else { <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	735	855	
==>sponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else { <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2454	2600	
==>ew        :
            JIB::Package::Binary->Object::Accessor::new;
    
        return unless $obj;

        ### create accessors
        my %acc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3842	3947	
==>y %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3842	3947	
==>y %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3842	3947	
==>y %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3684	3814	
==>alues
			    --> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29960	30134	
==>elf:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendant') # C3 is the canonical order
                    if $or <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14081	14190	
==>ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14081	14190	
==>ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14081	14190	
==>ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $ <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10768	10908	
==>turn $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$st <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10768	10908	
==>turn $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$st <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1744	1838	
==>resented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_da <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1744	1838	
==>resented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_da <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2027	2175	
==>m,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2027	2175	
==>m,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to> <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2027	2175	
==>m,$to)=($o->from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to> <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1839	1951	
==>m,$to)=($o->from,$o->to);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8382	8482	
==>= substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8382	8482	
==>= substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8382	8482	
==>= substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return { <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20967	21064	
==>y_not,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB, <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3266	3361	
==>. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3266	3361	
==>. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5506	5628	
==>:Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5506	5628	
==>:Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5506	5628	
==>:Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	70	195	
==>s HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    ha <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	70	195	
==>s HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    ha <==
4	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4104	4200	
==>_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://() <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4104	4200	
==>_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://() <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10058	10210	
==>,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $des <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	620	762	
==>,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $des <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	620	762	
==>,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $des <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1320	1423	
==>emented as one of three ADTs.

=over 4

=item Unit

A unit is an encapsulation of a single value and a t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	246	345	
==>$re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	246	345	
==>$re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(% <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	246	345	
==>$re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(% <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12275	12363	
==>fied, the array is sorted in place.

See L<http://www.nntp.perl.org/group/perl.perl6.lang <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	10661	10801	
==>tin {
        die "fancy open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mo <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1118	1215	
==>Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1118	1215	
==>Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Num <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1118	1215	
==>Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Num <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	750	863	
==>os.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.po <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	750	863	
==>os.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.po <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4836	4927	
==>g_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@c <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4836	4927	
==>g_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	431	555	
==>vocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	431	555	
==>vocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	431	555	
==>vocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurp <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	397	491	
==>IRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	11844	11973	
==>hers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15321	15450	
==>hers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14656	14785	
==>hers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	159	277	
==>s to a particular Type.

=over

=item *

A method's Code property usually has a single invocant typed to the
Role it is <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	529	624	
==>index files. jibs/ if
not specified.

=item index

Path to the index directory. default: $root/d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14642	14735	
==>dir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14642	14735	
==>dir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {. <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14642	14735	
==>dir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {. <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	620	718	
==>unty thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L: <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	620	718	
==>unty thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L: <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2950	3074	
==>] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = joi <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2950	3074	
==>] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = joi <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6108	6227	
==>=> chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(9 <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6108	6227	
==>=> chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(9 <==
4	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	814	964	
==>{
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $m <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1558	1669	
==>'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'p <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2446	2545	
==>_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2446	2545	
==>_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC <==
4	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2446	2545	
==>_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1567	1683	
==>r " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1567	1683	
==>r " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}), <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1567	1683	
==>r " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}), <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	699	829	
==>lf->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3117	3209	
==>dx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) ) <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40762	40854	
==>m $parser->warn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during the first pass over the <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3117	3209	
==>dx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) ) <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3117	3209	
==>dx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) ) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9710	9902	
==>return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9710	9902	
==>return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $sel <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9710	9902	
==>return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $sel <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	678	782	
==>my $p6 = Pugs::Compiler::Perl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{ <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1631	1770	
==>re, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if ( <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2212	2351	
==>re, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1631	1770	
==>re, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if ( <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2212	2351	
==>re, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if ( <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7198	7305	
==>_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7198	7305	
==>_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7198	7305	
==>_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefin <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14844	14958	
==>nstance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14844	14958	
==>nstance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14844	14958	
==>nstance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4652	4746	
==>re *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create(' <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4340	4430	
==>); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
} <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4383	4473	
==>thod PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method PutValue (JSX::Interna <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4340	4430	
==>); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
} <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4340	4430	
==>); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
} <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19847	19961	
==>ad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) } <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16268	16382	
==>ad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) } <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	142	237	
==>ay$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
u <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	142	237	
==>ay$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
u <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	349	480	
==>y $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	349	480	
==>y $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	349	480	
==>y $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	1852	1945	
==>stscripts named
as arguments and checks standard output for the expected strings
in TAP format <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10872	11007	
==>n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->exe <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12460	12570	
==>) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12460	12570	
==>) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $a <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12460	12570	
==>) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $a <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24682	24778	
==>ogged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23446	23542	
==>ogged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24682	24778	
==>ogged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23446	23542	
==>ogged in.

=head2 C<runloop>

The C<runloop> event is fired when an iteration of the main runloop <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	319	434	
==>y => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity = <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1724	1837	
==>pped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1724	1837	
==>pped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1724	1837	
==>pped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	10137	10248	
==>ot();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) & <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10137	10248	
==>ot();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) & <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10743	10850	
==>r'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1: <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11022	11129	
==>r'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1: <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8934	9027	
==>nt@brentdax.com>.

This code is free software, and may be used, distributed and/or modified un <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3863	3956	
==>nt@brentdax.com>.

This code is free software, and may be used, distributed and/or modified un <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8934	9027	
==>nt@brentdax.com>.

This code is free software, and may be used, distributed and/or modified un <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3863	3956	
==>nt@brentdax.com>.

This code is free software, and may be used, distributed and/or modified un <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9380	9520	
==>on =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $di <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	347	441	
==>ontext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	347	441	
==>ontext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_ret <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	347	441	
==>ontext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_ret <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1615	1707	
==>f all the L<Blondie::Nodes> and some
more objects.

They provide stringification, fmapping an <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1764	1862	
==>}
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cours <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1764	1862	
==>}
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cours <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1764	1862	
==>}
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cours <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31049	31146	
==>ndle_names)

This uninstalls the given handles.  You send the names (like '|' or
'atom').  Here is <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2028	2137	
==>r($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inherita <==
4	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2028	2137	
==>r($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inherita <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17403	17509	
==>"loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17403	17509	
==>"loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5526	5657	
==>[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6794	6925	
==>[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5526	5657	
==>[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6782	6913	
==>[0]->[$2] /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 \$_[0]->{$2} /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2599	2725	
==>->last_error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and returns a list of
    ### i <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7429	7515	
==>:Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7429	7515	
==>:Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fun <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7429	7515	
==>:Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fun <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16559	16673	
==>private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16559	16673	
==>private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($s <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16559	16673	
==>private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($s <==
4	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1396	1503	
==>my $fh, $filename or die "open: $filename: $!";
    { local $/; $stream = <$fh> }
    my $conf = $YAML->load <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3243	3356	
==>1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3243	3356	
==>1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Inf <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3243	3356	
==>1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Inf <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23044	23137	
==>MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	320	454	
==>to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	310	435	
==>to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    retur <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25379	25481	
==>the test if it usually matches.]
 *
 * [In fact, we now use regmust in many cases to locate where the s <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	19778	19918	
==>sg .= (" ($tot->{todo} subtest".($tot->{todo} > 1 ? 's' : '').
                   " TODO)")
            if $tot->{bonus};        

    if ($t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1200	1327	
==>tr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1200	1327	
==>tr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1200	1327	
==>tr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = :: <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13325	13518	
==>idate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => str->new('P <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	52	158	
==>d this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	52	158	
==>d this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

cl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	52	158	
==>d this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

cl <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1621	1721	
==>hod all_attributes($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).member <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2190	2312	
==>outine     Base class for all nameable executable objects
    Sub         Perl subroutine
    Method      Perl method
    S <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8697	8803	
==>x1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8697	8803	
==>x1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULT <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8697	8803	
==>x1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULT <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40534	40636	
==>e
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26048	26150	
==>e useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40534	40636	
==>e
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26048	26150	
==>e useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11032	11139	
==>rns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set. <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8436	8543	
==>rns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11032	11139	
==>rns the number of items
removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set. <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8436	8543	
==>rns the number of items removed.

It is not fatal to remove an item which is not in the set.

=head2 C<$set. <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3562	3665	
==>SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3562	3665	
==>SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3562	3665	
==>SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6 <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3777	3999	
==>kie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') - <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3777	3999	
==>kie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') - <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	14361	14474	
==>ero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1. <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14361	14474	
==>ero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1. <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23662	23761	
==>ot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc145 <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22435	22534	
==>ot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc145 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23662	23761	
==>ot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc145 <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22435	22534	
==>ot should I<always> use C<NOTICE> to send replies. Quoting L<RFC
1459|http://www.ietf.org/rfc/rfc145 <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5254	5367	
==>tant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $c <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6522	6635	
==>tant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5254	5367	
==>tant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $c <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6510	6623	
==>tant( \"\$m->[$num]\" )->(\@_);
    }";
    $code =~ s/^/$_[1]/mg;
    return "$code\n";
}
sub closure {
    my $c <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	8603	8716	
==>ct;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13) <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7572	7685	
==>ct;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8603	8716	
==>ct;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13) <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7572	7685	
==>ct;

  say "42 is in the set" if $set.includes(42);
  say "The set contains {$set.size} items";

  $set.insert(13) <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5931	6044	
==>!$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5931	6044	
==>!$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $bo <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5931	6044	
==>!$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $bo <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1394	1494	
==>=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Bl <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	107	351	
==>Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by pack <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	107	351	
==>Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by pack <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	795	935	
==>t $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  - <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	795	935	
==>t $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  - <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5067	5206	
==>{
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5067	5206	
==>{
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($se <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5067	5206	
==>{
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13784	13879	
==>fix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13784	13879	
==>fix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13784	13879	
==>fix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2824	2941	
==>eturn statement( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub asso <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9422	9532	
==>hod',
   '... got the right return value from $iFoo singleton method');
   
$iFoo->add_singleton_method('anothe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4421	4523	
==>ame');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4421	4523	
==>ame');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4421	4523	
==>ame');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (de <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3828	4018	
==>t'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $ <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3828	4018	
==>t'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $ <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	14830	14928	
==>tion.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test t <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14888	14986	
==>tion.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test t <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6440	6539	
==>) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6440	6539	
==>) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6440	6539	
==>) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9277	9372	
==>value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" }
NODE VNum ($value) {
    retu <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5289	5393	
==>ale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5289	5393	
==>ale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2883	2980	
==>f._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._g <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2883	2980	
==>f._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._g <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12146	12247	
==>odes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an o <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16726	16827	
==>odes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12146	12247	
==>odes (an array ref) is set, then each
element in it is used to initialize a new Node object (plus an o <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16726	16827	
==>odes (an array ref) is set, then each element in it is used to
initialize a new Node object (plus an o <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2107	2240	
==>...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2312	2445	
==>...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' = <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	11176	11274	
==>turns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11176	11274	
==>turns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10052	10158	
==>nless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} } <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10331	10437	
==>nless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8126	8221	
==>'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <Decimal <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11675	11770	
==>'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <Decimal <==
4	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	419	529	
==>t settings, and so is not intended for
"general" use.  It's more of a pugs bootstrap exercise.

This code is cu <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5938	6028	
==>ubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5938	6028	
==>ubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2837	2927	
==>ubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1736	1857	
==>0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1736	1857	
==>0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samp <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1736	1857	
==>0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samp <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1100	1201	
==>nt("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%requ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6613	6701	
==>);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6613	6701	
==>);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6613	6701	
==>);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() { <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2472	2599	
==>mainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #re <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2378	2499	
==>mainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #re <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5465	5571	
==>pe;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5465	5571	
==>pe;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words <==
4	/Users/nnunley/pugs/util/build_pugs.pl	7587	7730	
==>) {
        $depends .= ', readline -any';
    }

    my $unicode_c = '';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/ <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11177	11293	
==>nqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choo <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11177	11293	
==>nqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choo <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	426	532	
==>me
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	426	532	
==>me
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4871	5018	
==>bol->new('&dispatcher' => 'block')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7061	7159	
==>hod('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7061	7159	
==>hod('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# th <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7061	7159	
==>hod('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# th <==
4	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2082	2181	
==>fig{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, sta <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24278	24439	
==>infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24278	24439	
==>infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$metho <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24278	24439	
==>infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$metho <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6889	6994	
==>( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1";
  goto redu <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22030	22125	
==>umeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handle <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20911	21006	
==>umeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22030	22125	
==>umeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handle <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20911	21006	
==>umeric
handlers.

=item C<from_nick>

The nick part of C<from>. Not available for numeric handle <==
4	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8930	9054	
==>ng"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   = <==
4	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8930	9054	
==>ng"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   = <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25335	25431	
==>not
interact with the outside environment at all.

A Message object has two main attributes:

=ov <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25335	25431	
==>not
interact with the outside environment at all.

A Message object has two main attributes:

=ov <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	191	307	
==>[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	191	307	
==>[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	191	307	
==>[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} = <==
4	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	374	468	
==>b-type JuncType
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Ty <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2142	2249	
==>Present > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1528	1634	
==>"PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1528	1634	
==>"PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{C <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1528	1634	
==>"PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{C <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12377	12467	
==>JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12377	12467	
==>JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pri <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12377	12467	
==>JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pri <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	712	813	
==>tion($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one. <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	712	813	
==>tion($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one. <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22761	22859	
==>bute names that
define the heading of this Relation.  Each attribute name is a character
string.

= <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27313	27411	
==>bute names that
define the heading of this Relation.  Each attribute name is a character
string.

= <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6362	6467	
==>ption about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modi <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5435	5540	
==>ption about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modi <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6362	6467	
==>ption about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modi <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5435	5540	
==>ption about it.
    (!@modifier_stack) 
        || die "Unbalanced modifier(s) found (" ~ join(", ", @modi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4734	4834	
==>B ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB Fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4734	4834	
==>B ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB Fi <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4734	4834	
==>B ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB Fi <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22576	22673	
==>regexp;

=head2 Additional notes

Perl_re_dup() in sv.c is a useful source of information, as well <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3237	3339	
==>class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3237	3339	
==>class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3237	3339	
==>class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	25921	26017	
==>a");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow->new(
		type::oper <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7551	7687	
==>sg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successf <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7551	7687	
==>sg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1933	2031	
==>($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1933	2031	
==>($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi su <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32158	32257	
==>hen that is displayed; if not, it then checks
each set's member for language B and displays that; an <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32158	32257	
==>hen that is displayed; if not, it then checks
each set's member for language B and displays that; an <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	699	795	
==>odo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_te <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	757	853	
==>odo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_te <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1201	1296	
==>ine_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1201	1296	
==>ine_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine po <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1201	1296	
==>ine_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine po <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14232	14406	
==>, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14232	14406	
==>, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self- <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14232	14406	
==>, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self- <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26697	26793	
==>assRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # se <==
4	/Users/nnunley/pugs/util/build_pugs.pl	8728	8837	
==>_/$depends/;
        s/__UNICODE_C__/$unicode_c/;
        s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/ <==
4	/Users/nnunley/pugs/misc/Blondie/milner.pl	18134	18242	
==>ir,
);

# this makes sure that ':t id(10)' is the same as ':t 10'
my $app_id = let(
	ide => "id",
	is => $id, <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24518	24613	
==>er
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundatio <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24518	24613	
==>er
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundatio <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13261	13385	
==>dchar:
    inc pos
    if isrange goto addrange
    charlist .= $S0
    goto scan
  addrange:
    isrange = 0
    $I2 = ord c <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3969	4069	
==>d, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3969	4069	
==>d, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{sl <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3969	4069	
==>d, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{sl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13375	13491	
==>_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_str_handlers{$reftyp};
    die "bug $ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2018	2114	
==>s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2018	2114	
==>s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self-> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2018	2114	
==>s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self-> <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	443	552	
==>sif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	443	552	
==>sif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2629	2722	
==>\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2629	2722	
==>\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1403	1516	
==>ast_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last pi <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1403	1516	
==>ast_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last pi <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	920	1020	
==>sc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) retu <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	978	1078	
==>sc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) retu <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1539	1706	
==>span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1539	1706	
==>span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use <==
4	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1622	1728	
==>pan.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

me <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1622	1728	
==>pan.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

me <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4150	4313	
==>' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4150	4313	
==>' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxe <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4150	4313	
==>' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxe <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	348	461	
==>};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	348	461	
==>};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	348	461	
==>};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => <==
4	/Users/nnunley/pugs/util/package-osx.pl	8700	8810	
==>y $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3711	3851	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3711	3851	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MM <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3711	3851	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MM <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	996	1128	
==>')->write($footer) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	775	888	
==>g.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	1217	1327	
==>o, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1275	1385	
==>o, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	795	901	
==>g.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say <==
4	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2764	2861	
==>=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of aut <==
4	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2921	3018	
==>=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of aut <==
4	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2764	2861	
==>=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of aut <==
4	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2921	3018	
==>=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of aut <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11151	11332	
==>f ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11151	11332	
==>f ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                } <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11151	11332	
==>f ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                } <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	5210	5327	
==>lly
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is safe {
        my <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	178	291	
==>$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	178	291	
==>$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	178	291	
==>$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@ <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	26577	26674	
==>sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will print d <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1163	1259	
==>lose to the main namespace for your tastes, and
you want to rebless everything down to your proje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1163	1259	
==>lose to the main namespace for your tastes, and
you want to rebless everything down to your proje <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1163	1259	
==>lose to the main namespace for your tastes, and
you want to rebless everything down to your proje <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	953	1068	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	953	1068	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	953	1068	
==>air' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3365	3471	
==>gnature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <typ <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	791	897	
==>.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3365	3471	
==>gnature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <typ <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	791	897	
==>.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5044	5223	
==>>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::N <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6806	6985	
==>>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::N <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	709	806	
==>n bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note th <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	709	806	
==>n bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note th <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	4152	4256	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3279	3383	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4152	4256	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3279	3383	
==>e, Set $two) returns Set {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $o <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1449	1545	
==>O - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1449	1545	
==>O - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1449	1545	
==>O - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	291	415	
==>---
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node i <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	291	415	
==>---
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node i <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30267	30370	
==>--
    return;
  });

This handler un-consumes the ')' (via C<&RxPOS-->) and returns false, to
pretend i <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1195	1290	
==>'s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1195	1290	
==>'s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1195	1290	
==>'s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NE <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	10019	10130	
==>ular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<se <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7959	8070	
==>ular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10019	10130	
==>ular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<se <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7959	8070	
==>ular order)
  say ~([1,2,3] %# [1,2,6])    # 3 6      (in no particular order)

=head1 CONSTRUCTORS

=head2 C<se <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2126	2265	
==>$archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFil <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5943	6040	
==>", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5943	6040	
==>", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportu <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5943	6040	
==>", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4371	4490	
==>nitchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto term_literal;
  {
  }
  else
  {
    if (matches(/\d/, $targ <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6981	7087	
==>{ $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6981	7087	
==>{ $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6981	7087	
==>{ $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18729	18850	
==>code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") if -e "deleteme_code.pl";}
my $eval_log_file;
sub eval <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4441	4541	
==>age->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4441	4541	
==>age->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $l <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4441	4541	
==>age->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $l <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11325	11454	
==>@a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11325	11454	
==>@a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11325	11454	
==>@a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1136	1256	
==>find what dependencies we have 
    for my $depends ( @list ) {
        print "\n*** $entry->{package} depends on $depend <==
4	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3514	3612	
==>(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf <==
4	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6495	6593	
==>ix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6495	6593	
==>ix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix:<*> ( <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	7367	7463	
==>ix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> ( <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7367	7463	
==>ix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix:<*> ( <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7456	7569	
==>sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourt <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	448	548	
==>pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	448	548	
==>pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subn <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	448	548	
==>pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subn <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2675	2820	
==>:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        m <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2675	2820	
==>:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        m <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2238	2364	
==>"\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./t <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2238	2364	
==>"\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./t <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	19	120	
==>ls::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	19	120	
==>ls::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	19	120	
==>ls::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE <==
4	/Users/nnunley/pugs/util/build_pugs.pl	6013	6107	
==>hide-all-packages -package stm -package network -package mtl -package template-haskell -package <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7135	7254	
==>)            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header(" <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7135	7254	
==>)            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header(" <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1138	1233	
==>A common comprehensive test suite to run against all Engines

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1138	1233	
==>A common comprehensive test suite to run against all Engines

=head1 VERSION

This document desc <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5008	5116	
==>ary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5008	5116	
==>ary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5008	5116	
==>ary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item) <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3448	3549	
==>=item *

Ensuring that there is no crap in the AST - no calls to stubs and no inexistant symbols

=bac <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	3943	4039	
==>ount ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::el <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3943	4039	
==>ount ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::el <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25486	25581	
==>iquely identifies the type of message that the object
represents (or gives the name of a conditi <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25486	25581	
==>iquely identifies the type of message that the object
represents (or gives the name of a conditi <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3625	3731	
==>param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$para <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3625	3731	
==>param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$para <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4215	4321	
==>param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$para <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	327	430	
==>imiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &join.assuming:delimit <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11134	11248	
==>tiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11134	11248	
==>tiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11134	11248	
==>tiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	489	587	
==>ed to the tests", and thus is far from being a
# complete p5 compatible regex engine, that establis <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	602	712	
==>t;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	602	712	
==>t;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	476	570	
==>en

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Co <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	476	570	
==>en

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Co <==
4	/Users/nnunley/pugs/util/grokprims.pl	2341	2446	
==>>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table>";
  pr <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1730	1839	
==>" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1730	1839	
==>" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1730	1839	
==>" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13243	13350	
==>l "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $se <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31834	31960	
==>h, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31834	31960	
==>h, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31834	31960	
==>h, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7120	7221	
==>:foo' } }
);
ok($rFoo->does('Role'), '... rFoo now does Role');

my $rBar = $Role->new(
    '$:name' = <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3051	3138	
==>complement_next =>     $self._get_intersection( $self.complement_next, $self.complement_ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3051	3138	
==>complement_next =>     $self._get_intersection( $self.complement_next, $self.complement_ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1642	1754	
==>[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    retur <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1642	1754	
==>[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    retur <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	73	173	
==>ule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and gene <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	73	173	
==>ule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and gene <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2142	2257	
==>Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2142	2257	
==>Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compi <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1374	1484	
==>Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compi <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3235	3345	
==>Perl5 Modules

=head1 SYNOPSIS

  # The .pm file is in Perl 6 syntax
  # The .pmc file is in Perl 5 Pugs::Compi <==
4	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6553	6649	
==>----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $ <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6553	6649	
==>----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $ <==
4	/Users/nnunley/pugs/blib6/lib/fp.pm	619	714	
==>refix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:< <==
4	/Users/nnunley/pugs/ext/fp/lib/fp.pm	619	714	
==>refix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:< <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7165	7323	
==>" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        } <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25559	25665	
==>?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <Ch <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7511	7609	
==>uthenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($se <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7511	7609	
==>uthenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($se <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10297	10428	
==>in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10297	10428	
==>in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[id <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10297	10428	
==>in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[id <==
4	/Users/nnunley/pugs/misc/S29_round.pl	2800	2922	
==>p = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = si <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	149	259	
==>tures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs pars <==
4	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	149	259	
==>tures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs pars <==
4	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1293	1388	
==>b abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel <==
4	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1293	1388	
==>b abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22229	22346	
==>}, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_h <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18650	18767	
==>}, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_h <==
4	/Users/nnunley/pugs/blib6/lib/Set.pm	2641	2745	
==>set($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($oth <==
4	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2641	2745	
==>set($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($oth <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	327	457	
==>rint "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	327	457	
==>rint "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)= <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	327	457	
==>rint "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)= <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7190	7287	
==>ing methods:

=over 4

=item $parser = Regexp::Parser->new($regex)

You can send the regex to be p <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	366	504	
==>'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choi <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	366	504	
==>'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choi <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10941	11055	
==>c.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 're <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10941	11055	
==>c.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 're <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1302	1491	
==>n "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1302	1491	
==>n "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => su <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1302	1491	
==>n "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => su <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	3955	4060	
==>dren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3955	4060	
==>dren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || <==
4	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2956	3051	
==>iginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - detail <==
4	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2956	3051	
==>iginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - detail <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4860	4981	
==>ue) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4860	4981	
==>ue) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4860	4981	
==>ue) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26224	26320	
==>pping(Str) of Any - This contains zero or more member tuples of
the Relation::Example; each Set m <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18528	18653	
==>lf->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren com <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14949	15074	
==>lf->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren com <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3442	3560	
==>me;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3442	3560	
==>me;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{t <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3442	3560	
==>me;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{t <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	348	465	
==>'))
        || confess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || confess "body must be a cod <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36608	36729	
==>rn unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36608	36729	
==>rn unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this i <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36608	36729	
==>rn unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this i <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	131	258	
==>end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	131	258	
==>end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	131	258	
==>end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	131	258	
==>end_element',

    'start_modifier',
    'end_modifier',

    'verbatim',        
    'string',
    'newline'
);

sub parse (Str <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2951	3079	
==>b package_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[0] =~ $re; $3 }
        sub package_authority   { <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	242	339	
==>n if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	203	300	
==>n if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	203	300	
==>n if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if <==
4	/Users/nnunley/pugs/blib6/lib/Tree.pm	1750	1846	
==>is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method <==
4	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1750	1846	
==>is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13396	13490	
==>ocale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=he <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13396	13490	
==>ocale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12155	12262	
==>param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12155	12262	
==>param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $t <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12155	12262	
==>param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $t <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14684	14790	
==>and error( "Could not write alternatives file: $@" ), return;

    return 1;
}

# Local variables:
# c-inde <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2095	2220	
==>|| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_ <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2095	2220	
==>|| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2175	2300	
==>|| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_ <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	226	329	
==>, and the s-expr got quite messy
as well. Although that could be fixed with macros.

=cut

{
    package <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	63	180	
==>::Dumper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf-> <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2188	2294	
==>a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2188	2294	
==>a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2188	2294	
==>a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1418	1577	
==>hen rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %e <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1418	1577	
==>hen rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %e <==
4	/Users/nnunley/pugs/blib6/lib/CGI.pm	7848	7975	
==>ms($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running und <==
4	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7848	7975	
==>ms($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running und <==
4	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3110	3208	
==>e can be called with a string, and should be called at the 
end of enciphering with zero arguments. <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3110	3208	
==>e can be called with a string, and should be called at the 
end of enciphering with zero arguments. <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17108	17204	
==>subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or a <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17108	17204	
==>subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or a <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	108	197	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	108	197	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Cod <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	108	197	
==>(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Cod <==
4	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1129	1279	
==>y $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy yet
            system( qq[mv $my_tmp_dir/$Metafile <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7152	7248	
==>rity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7152	7248	
==>rity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($ <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7152	7248	
==>rity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($ <==
4	/Users/nnunley/pugs/util/gen_prelude.pl	1391	1493	
==>Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlin <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2344	2500	
==>\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9116	9272	
==>\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2344	2500	
==>\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9116	9272	
==>\n" },
        },
        \&variable
    )
=cut
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{ <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2795	2894	
==>::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2795	2894	
==>::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, p <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2795	2894	
==>::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, p <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18799	18892	
==>conds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. F <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17842	17935	
==>conds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18799	18892	
==>conds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. F <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17842	17935	
==>conds, and it'll drop the connection if it hasn't seen traffic for
C<$live_timeout> seconds. F <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6889	7007	
==>\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6889	7007	
==>\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6889	7007	
==>\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL <==
4	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16255	16364	
==>if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[ <==
4	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7232	7334	
==>te {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_C <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12957	13057	
==>thod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12957	13057	
==>thod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class- <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12957	13057	
==>thod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class- <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7534	7654	
==>unt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7534	7654	
==>unt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $co <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7534	7654	
==>unt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $co <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	17964	18069	
==>_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n" if $s <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7127	7247	
==>($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.h <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7127	7247	
==>($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.h <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1220	1316	
==>xtract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extrac <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1220	1316	
==>xtract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extrac <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	2087	2192	
==>ME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	2087	2192	
==>ME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fil <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1321	1420	
==>ME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3182	3281	
==>ME

compile_p6grammar.pl - Compile Perl6 Grammars to Perl5 Modules

=head1 SYNOPSIS

  # The .pm fil <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1225	1348	
==>the keys length() (TimToady on #perl6)



    # note: the list in @$nodes can be modified at runtime



    my $nodes = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1574	1693	
==>the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shif <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1181	1300	
==>the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shif <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1574	1693	
==>the keys length() (TimToady on #perl6)

    # note: the list in @$nodes can be modified at runtime

    my $nodes = shif <==
4	/Users/nnunley/pugs/inc/Test/Harness.pm	20806	20938	
==>ot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test->{max} + 1 and not @{$test->{failed}}) {
            print <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6792	6910	
==>, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6792	6910	
==>, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6792	6910	
==>, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	334	469	
==>%left   'infix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $ou <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	852	976	
==>efix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extractin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	852	976	
==>efix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extractin <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	852	976	
==>efix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extractin <==
4	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12021	12121	
==>eplacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $head <==
4	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12021	12121	
==>eplacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $head <==
4	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5563	5653	
==>Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.com <==
4	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5563	5653	
==>Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.com <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12404	12503	
==>_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12404	12503	
==>_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array { <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12404	12503	
==>_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array { <==
4	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4787	4882	
==>, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(off <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7797	7911	
==>ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7797	7911	
==>ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->re <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7797	7911	
==>ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->re <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21005	21117	
==>0["isarray"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray | <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	14	122	
==>::Util::SExpParser;

use strict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $s <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12161	12264	
==>sses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12161	12264	
==>sses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$ <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12161	12264	
==>sses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$ <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12923	13071	
==>my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \ <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12917	13065	
==>my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \ <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	22785	22881	
==>he heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Rel <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27337	27433	
==>he heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Rel <==
4	/Users/nnunley/pugs/src/perl6/Prelude.pm	16684	16801	
==>::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trun <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6343	6439	
==>rns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6343	6439	
==>rns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8540	8636	
==>rns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11335	11466	
==>(3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11335	11466	
==>(3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11335	11466	
==>(3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new P <==
4	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6202	6350	
==>oken);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to th <==
4	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5275	5423	
==>oken);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to th <==
4	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6202	6350	
==>oken);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to th <==
4	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5275	5423	
==>oken);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, then we have an error, so 
    # we need to th <==
4	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	705	821	
==>hift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[ <==
4	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	705	821	
==>hift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[ <==
4	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	548	653	
==>rint $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively ch <==
4	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	548	653	
==>rint $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively ch <==
4	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	637	737	
==>ed.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/< <==
4	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	637	737	
==>ed.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/< <==
4	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	478	582	
==>_class { "Blondie::Compiler" }

sub provides {
    die "virtual method 'provides' called on @_";
}

sub r <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	916	1011	
==>onstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	916	1011	
==>onstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline(' <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	916	1011	
==>onstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline(' <==
4	/Users/nnunley/pugs/blib6/lib/Test.pm	5169	5294	
==>*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reas <==
4	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5227	5352	
==>*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reas <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1623	1733	
==>l_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( doc <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1623	1733	
==>l_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( doc <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0 <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0 <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0 <==
4	/Users/nnunley/pugs/util/combine_tests.pl	2398	2545	
==>if( defined $sum{$fname}[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revision <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16028	16138	
==>:Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16028	16138	
==>:Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return P <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16028	16138	
==>:Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return P <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15095	15184	
==><AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> <'-'> <Mu <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7342	7459	
==>ush @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8694	8811	
==>ush @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19362	19479	
==>ush @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => <==
4	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10072	10167	
==>p { $prog->get($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(env => $env, <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11287	11412	
==>xs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11287	11412	
==>xs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return r <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11287	11412	
==>xs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return r <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2806	2904	
==>x, you may want to change that.

Note: A precompiled (but most of the time outdated) image is avail <==
4	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2243	2347	
==>my $libs = $self->get_pugs_config;
    $self->makemaker_args(
        INSTALLARCHLIB  => $libs->{archlib} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3556	3643	
==>)->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3556	3643	
==>)->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' = <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3556	3643	
==>)->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37912	38021	
==>th C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $self->{neg} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	245	353	
==>ake storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw <==
4	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	245	353	
==>ake storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw <==
4	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	245	353	
==>ake storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	900	1003	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message obj <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	900	1003	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message obj <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12062	12162	
==>ct that to be a
problem.

=head2 Using the Tree

If you want to work with the parse tree independentl <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7206	7305	
==>params,$body,$lvalue,$class) =
	@c{qw(name kind params body lvalue class)};
    # XXX - lvalue is ig <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1928	2079	
==>permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %chan <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1928	2079	
==>permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %chan <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4017	4124	
==>Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _qu <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4157	4264	
==>Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _qu <==
4	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7771	7909	
==>Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    == <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1607	1705	
==>ntiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1607	1705	
==>ntiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Val <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1607	1705	
==>ntiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Val <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	516	618	
==>right side
# note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = <==
4	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18021	18167	
==>e',
      nparen => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = sh <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8227	8333	
==>elf->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8227	8333	
==>elf->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6: <==
4	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8227	8333	
==>elf->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6: <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1925	2018	
==>rent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1888	1981	
==>rent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1925	2018	
==>rent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1888	1981	
==>rent distribution:
L<Rosetta-0.724.0|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
4	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	253	394	
==>n "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            if (@{$stack} <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1400	1497	
==>_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1400	1497	
==>_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal> <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1400	1497	
==>_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal> <==
4	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6765	6880	
==>ptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       , <==
4	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6765	6880	
==>ptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       , <==
4	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3664	3779	
==>ptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       , <==
4	/Users/nnunley/pugs/util/build_pugs.pl	1596	1706	
==>er', '--user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        system(". <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14042	14161	
==>rn $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test($line, \%test);

Checks if the $line is a test rep <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4741	4829	
==>lf => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4741	4829	
==>lf => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4741	4829	
==>lf => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1518	1658	
==>ast if $_[3] || ${$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	42	132	
==>The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	42	132	
==>The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	42	132	
==>The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type <==
4	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	396	517	
==>cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= <==
4	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	396	517	
==>cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	13751	13852	
==>atures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13751	13852	
==>atures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end <==
4	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2100	2220	
==>gs{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or <==
4	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2100	2220	
==>gs{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or <==
4	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2171	2270	
==>($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *inf <==
4	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2171	2270	
==>($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *inf <==
4	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6811	6953	
==>exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$file is not readable";
        return;
    }

    local $ENV <==
4	/Users/nnunley/pugs/blib6/lib/Relation.pm	29925	30019	
==>e-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34477	34571	
==>e-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $he <==
4	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33641	33735	
==>e-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $he <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1168	1266	
==>but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1168	1266	
==>but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-comp <==
4	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1168	1266	
==>but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-comp <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	409	612	
==>p { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' ST <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3879	4001	
==>LOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3879	4001	
==>LOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3879	4001	
==>LOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1141	1260	
==>tch for tokens (putter on #perl6)

    # update: <%var> does longest match based on the keys length() (TimToady on #perl <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1491	1609	
==>tch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl <==
4	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1098	1216	
==>tch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1491	1609	
==>tch for tokens (putter on #perl6)
    # update: <%var> does longest match based on the keys length() (TimToady on #perl <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3314	3430	
==>rn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
4	/Users/nnunley/pugs/blib6/lib/Span.pm	8082	8198	
==>rn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3314	3430	
==>rn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
4	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8082	8198	
==>rn $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3391	3533	
==>undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3391	3533	
==>undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # re <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3391	3533	
==>undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # re <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11969	12083	
==>debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11969	12083	
==>debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the ser <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11148	11258	
==>debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the ser <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11148	11258	
==>debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the ser <==
4	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1196	1337	
==>>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		ast => App <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14386	14483	
==>};
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14386	14483	
==>};
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {u <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14386	14483	
==>};
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {u <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3166	3270	
==>l-uri=$kernel_uri
    mklivecd.pl automatically fetches a kernel from the Internet.
  --kernel-local=$ker <==
4	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12281	12381	
==>(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12281	12381	
==>(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12281	12381	
==>(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
4	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28065	28159	
==>g).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of this <==
4	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28065	28159	
==>g).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of this <==
4	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4286	4380	
==>res the receivied and expected lines from the previously run tests,
passing if both the diagnos <==
4	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4286	4380	
==>res the receivied and expected lines from the previously run tests,
passing if both the diagnos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4366	4460	
==>res the receivied and expected lines from the previously run tests,
passing if both the diagnos <==
4	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18727	18817	
==>>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpression>
}
rule Assignm <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	920	1083	
==>lass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	920	1083	
==>lass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clos <==
4	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	920	1083	
==>lass);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clos <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1263	1353	
==>", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("circumfix:[ ]", "term:", "nows" <==
4	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4223	4355	
==>t;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q( <==
4	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4363	4495	
==>t;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q( <==
4	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7929	8029	
==>);

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is w <==
4	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7929	8029	
==>);

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is w <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23081	23176	
==>t> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can s <==
4	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21890	21985	
==>t> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23081	23176	
==>t> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can s <==
4	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21890	21985	
==>t> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. Note that you can s <==
4	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16026	16132	
==>rn @so;
}

# This is a kludge. But for now, as a simple script, it suffices.
# This script doesn't run as r <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4081	4174	
==>ROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4081	4174	
==>ROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6 <==
4	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4081	4174	
==>ROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6 <==
4	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9957	10061	
==>ulti *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value:: <==
4	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9957	10061	
==>ulti *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value:: <==
4	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4048	4184	
==>le')}; 

                            
1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
4	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2506	2651	
==>n 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2506	2651	
==>n 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Valu <==
4	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2506	2651	
==>n 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Valu <==
4	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11377	11489	
==>= "::" goto subrule_name_2
    pos += 2
    goto subrule_name_1
  subrule_name_2:
    $I1 = pos - $I0
    subname <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10064	10212	
==>returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10064	10212	
==>returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1522	1617	
==>ORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1522	1617	
==>ORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4064	4196	
==>ader('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc - <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4064	4196	
==>ader('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6972	7088	
==>G_s ? 'seol' :
      'eol';
    return $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6850	6966	
==>pe desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "no <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6908	7024	
==>pe desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "no <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4484	4598	
==>>> <SourceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3176	3300	
==>Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3176	3300	
==>Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3176	3300	
==>Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8833	8957	
==>),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "l <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8833	8957	
==>),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	470	562	
==>SWNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Sw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9099	9244	
==>w( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9099	9244	
==>w( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9099	9244	
==>w( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8632	8793	
==>ined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8632	8793	
==>ined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8632	8793	
==>ined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8592	8728	
==>sh key.
    $_ = "" . $_;
    next if (exists $suspect->{$_});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	798	897	
==>ome builtin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11241	11357	
==>.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11241	11357	
==>.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11241	11357	
==>.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1690	1787	
==>tUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14609	14704	
==>f ($tree->[-1]->{zerolen} and $self->{max} eq '') {
        $rx->awarn($rx->RPe_NULNUL, $tree->[ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1583	1668	
==>tUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1660	1811	
==>ve($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1660	1811	
==>ve($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13628	13718	
==>n went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13628	13718	
==>n went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13628	13718	
==>n went with this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17017	17112	
==>...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17017	17112	
==>...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17017	17112	
==>...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4679	4780	
==>dnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4679	4780	
==>dnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4679	4780	
==>dnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4208	4312	
==>tml .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4208	4312	
==>tml .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4208	4312	
==>tml .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	420	524	
==>]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	420	524	
==>]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28986	29080	
==>orts having new tuple-valued
attributes which wrap zero old attributes (they are effectively ju <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33538	33632	
==>orts having new tuple-valued
attributes which wrap zero old attributes (they are effectively ju <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32675	32769	
==>orts having new tuple-valued
attributes which wrap zero old attributes (they are effectively ju <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4854	4964	
==>L_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4854	4964	
==>L_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3475	3592	
==>method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3475	3592	
==>method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3475	3592	
==>method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = ' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3537	3641	
==>foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3537	3641	
==>foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	713	813	
==>$self->module_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11458	11553	
==>n because it isolates the Role specifc
code to the class that consumed it.

-------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11458	11553	
==>n because it isolates the Role specifc
code to the class that consumed it.

-------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11458	11553	
==>n because it isolates the Role specifc
code to the class that consumed it.

-------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2517	2657	
==>join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2517	2657	
==>join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2517	2657	
==>join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	765	872	
==>may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	765	872	
==>may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	945	1038	
==>t>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the automatic update.
</p>
</b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1254	1387	
==>ur $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1459	1592	
==>ur $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1520	1653	
==>ur $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12201	12325	
==>ref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12201	12325	
==>ref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12201	12325	
==>ref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39098	39237	
==>elems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39098	39237	
==>elems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39098	39237	
==>elems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array-> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5325	5447	
==>_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5325	5447	
==>_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.clo <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5947	6043	
==>hitespacePosition = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_match;
  bsr_t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1490	1593	
==>}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1490	1593	
==>}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1570	1673	
==>}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4213	4359	
==>> 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4213	4359	
==>> 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2075	2178	
==>, $cls;
}
sub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	283	384	
==>d by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	283	384	
==>d by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	283	384	
==>d by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1154	1255	
==>t Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1154	1255	
==>t Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1154	1255	
==>t Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - . <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16400	16496	
==>m2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16458	16554	
==>m2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program i <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	653	747	
==>trict 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1880	2011	
==>removed" if -e $_;
    }
    close $fh;


    ### XXX need status dir like dpkg
    my $postrm = $meta . '/' . $Postrm;
    if( -e $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17951	18045	
==>MENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17951	18045	
==>MENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	465	569	
==>t(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	465	569	
==>t(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	465	569	
==>t(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9698	9833	
==>_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9698	9833	
==>_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9698	9833	
==>_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7924	8035	
==>inty SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7924	8035	
==>inty SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7924	8035	
==>inty SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2009	2140	
==>atch} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2009	2140	
==>atch} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as h <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4285	4382	
==>s documentation for 
details.  The C<mode> value indicates the operation to be performed; the valu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4285	4382	
==>s documentation for 
details.  The C<mode> value indicates the operation to be performed; the valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3949	4070	
==>nents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3949	4070	
==>nents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3949	4070	
==>nents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8162	8364	
==>$end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8162	8364	
==>$end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8162	8364	
==>$end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	644	737	
==>ctively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	644	737	
==>ctively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13687	13882	
==>ay') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13687	13882	
==>ay') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13687	13882	
==>ay') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	212	325	
==>f($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	212	325	
==>f($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	212	325	
==>f($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1852	1955	
==>rror_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1852	1955	
==>rror_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1852	1955	
==>rror_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4417	4519	
==>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4417	4519	
==>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4417	4519	
==>type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14696	14824	
==>wever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14696	14824	
==>wever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14696	14824	
==>wever at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @su <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14934	15036	
==><UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression>
}
rule AdditiveExpression :w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5594	5696	
==>b/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5401	5499	
==>b/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10118	10242	
==>h { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10118	10242	
==>h { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10118	10242	
==>h { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5611	5713	
==>$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5611	5713	
==>$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5611	5713	
==>$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o f <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7091	7199	
==>nt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Resu <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	357	501	
==>= sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	357	501	
==>= sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13572	13695	
==>$S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7413	7513	
==>ll leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7413	7513	
==>ll leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @bas <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3018	3179	
==>$n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @list <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	697	856	
==>tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') {
            pu <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	513	624	
==><MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3525	3634	
==>thod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3525	3634	
==>thod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3525	3634	
==>thod_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9306	9453	
==>does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9306	9453	
==>does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9306	9453	
==>does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # wa <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1100	1256	
==>ss !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

me <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1100	1256	
==>ss !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

me <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14874	14981	
==>rd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40814	40959	
==>my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40814	40959	
==>my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40814	40959	
==>my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4830	4932	
==>= @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4830	4932	
==>= @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4975	5118	
==>_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4975	5118	
==>_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	431	529	
==>tem, similar to what is described
in here (note: same author as the first scheme code):

  http://o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	14	109	
==>ipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	14	109	
==>ipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1540	1664	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1540	1664	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1540	1664	
==>>get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29622	29724	
==>ibutes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34174	34276	
==>ibutes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33338	33440	
==>ibutes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as those of anot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4174	4275	
==>Syntactic categories
    For writing your own backslash and assertion rules or macros, you may
    use <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2310	2407	
==>ses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all ab <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2310	2407	
==>ses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all ab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3422	3510	
==>ass'} = $Object;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4116	4204	
==>ass'} = $Object;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5324	5412	
==>ass'} = $Object;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1768	1875	
==>012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1768	1875	
==>012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13861	13987	
==>ass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13861	13987	
==>ass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13861	13987	
==>ass => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2790	2908	
==>g of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2790	2908	
==>g of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2790	2908	
==>g of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29364	29515	
==>end('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # method body
        method->new(
            $::ENV,
            metho <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	18	104	
==>:Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	18	104	
==>:Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1143	1247	
==>) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34166	34256	
==>has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38716	38806	
==>has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9077	9204	
==>lurpy/ #XXX
	    || $op{'slurpy'};

	my $pname = $op{'paramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	362	476	
==>xport {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	362	476	
==>xport {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $di <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	586	728	
==>$return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	579	721	
==>$return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12179	12278	
==>)
method to get it.  From there, you're on your own.  You'll probably
want to make a recursive funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1576	1675	
==>if(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1576	1675	
==>if(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1576	1675	
==>if(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompile <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22822	22937	
==>ogical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19243	19358	
==>ogical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3469	3577	
==>se" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	223	363	
==>le(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	223	363	
==>le(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	223	363	
==>le(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5176	5305	
==>1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5176	5305	
==>1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5176	5305	
==>1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pS <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	778	894	
==>end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	778	894	
==>end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.un <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1466	1725	
==>urns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6857	6951	
==>('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6857	6951	
==>('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6857	6951	
==>('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35677	35775	
==>but the others we will make to be look-aheads.  To
make an object, we need to access C<< $self->{rx <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4518	4613	
==>tatements, you should never refer directly to "Rosetta" in your
code; instead refer to other abo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4518	4613	
==>tatements, you should never refer directly to "Rosetta" in your
code; instead refer to other abo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4765	4871	
==>f $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4765	4871	
==>f $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4765	4871	
==>f $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	746	883	
==>ng = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	746	883	
==>ng = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	746	883	
==>ng = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3027	3162	
==>sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3027	3162	
==>sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3027	3162	
==>sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdi <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	262	374	
==>sub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4150	4245	
==>2144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4150	4245	
==>2144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4276	4380	
==>ub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4276	4380	
==>ub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4276	4380	
==>ub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_conti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	553	679	
==>elf->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	553	679	
==>elf->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	553	679	
==>elf->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2412	2521	
==>.. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2412	2521	
==>.. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2412	2521	
==>.. but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2014	2106	
==>UTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2014	2106	
==>UTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2014	2106	
==>UTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-li <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7307	7507	
==>pan = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7307	7507	
==>pan = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	578	678	
==>acement = $r->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    return $self->SUP <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17154	17262	
==>E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17311	17419	
==>E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42854	42949	
==>east 6.0.0.

It also requires these Perl 6 classes that are in the current distribution:
L<Relat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3561	3708	
==>l\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3549	3696	
==>l\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$qu <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	713	815	
==>sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	119	237	
==>{
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one packa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	121	239	
==>{
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one packa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	763	863	
==>sting
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in developing t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17641	17839	
==>->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14062	14260	
==>->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17328	17430	
==>te large data
which Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	36	137	
==>f metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	36	137	
==>f metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	36	137	
==>f metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5625	5729	
==>, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5625	5729	
==>, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5625	5729	
==>, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9740	9855	
==>", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9740	9855	
==>", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9740	9855	
==>", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6199	6402	
==>=> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6199	6402	
==>=> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6199	6402	
==>=> ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	122	225	
==>5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	122	225	
==>5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	122	225	
==>5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2921	3031	
==>al $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2921	3031	
==>al $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2921	3031	
==>al $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+pl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2222	2423	
==>export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5699	5900	
==>export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4629	4830	
==>export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	228	329	
==>e all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be writ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	219	319	
==>e all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be writ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12426	12569	
==>ETHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12426	12569	
==>ETHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12426	12569	
==>ETHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36480	36594	
==>$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36480	36594	
==>$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36480	36594	
==>$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = sh <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16064	16161	
==><'<='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>='> <ShiftExpression>
    | <Relation <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1601	1697	
==>$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $nu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1601	1697	
==>$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $nu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	254	347	
==>----------------------------------------
## constructors

submethod BUILD ($node?) {
    $.dep <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	254	347	
==>----------------------------------------
## constructors

submethod BUILD ($node?) {
    $.dep <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6034	6126	
==>ubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6034	6126	
==>ubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2933	3025	
==>ubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3933	4030	
==>it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3933	4030	
==>it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3933	4030	
==>it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK! <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	800	935	
==>(@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26065	26161	
==>ach others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30617	30713	
==>ach others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gene <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1306	1406	
==>pc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1306	1406	
==>pc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1306	1406	
==>pc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	111	254	
==>od

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting c <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	313	418	
==>s an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The fol <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	313	418	
==>s an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The fol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4151	4262	
==>ray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4151	4262	
==>ray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4151	4262	
==>ray.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1741	1910	
==>t() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1741	1910	
==>t() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1741	1910	
==>t() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "& <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2252	2350	
==>@free will contain all the free type variables in the type at the end of the pass, and the original <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	604	692	
==>perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the fu <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	604	692	
==>perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the fu <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1981	2082	
==>y $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of t <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1981	2082	
==>y $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	248	343	
==>tors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	248	343	
==>tors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	248	343	
==>tors, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9322	9502	
==>, undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9322	9502	
==>, undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9271	9413	
==>sh;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _preprocess_hash( $hash{$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	324	434	
==>$!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	324	434	
==>$!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4096	4192	
==>dent}[0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18439	18533	
==>reverse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C func <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2729	2823	
==>reverse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C func <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13307	13431	
==>heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16784	16908	
==>heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16146	16270	
==>heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9682	9794	
==>ng of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13159	13271	
==>ng of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12431	12543	
==>ng of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for tri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2841	2946	
==>}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2841	2946	
==>}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2841	2946	
==>}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isO <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	386	488	
==>me,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	386	488	
==>me,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2004	2113	
==>return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2004	2113	
==>return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2004	2113	
==>return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	236	354	
==>al buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	236	354	
==>al buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	236	354	
==>al buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 200 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3500	3630	
==>0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # La <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3500	3630	
==>0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # La <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29915	30026	
==>)'
a fatal error is thrown.  However, the nature of 'atom' is to match a
character, see if there's a handler ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1526	1656	
==>ase});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1526	1656	
==>ase});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1526	1656	
==>ase});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1151	1250	
==>self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1151	1250	
==>self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1151	1250	
==>self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12653	12788	
==>ned $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12653	12788	
==>ned $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12653	12788	
==>ned $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7549	7651	
==>n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7549	7651	
==>n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7549	7651	
==>n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	445	577	
==>')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	445	577	
==>')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	445	577	
==>')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10279	10434	
==>. $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{si <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3356	3478	
==>ems = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $len <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3356	3478	
==>ems = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $len <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	978	1168	
==>eader|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	978	1168	
==>eader|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8320	8421	
==>/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2427	2523	
==>ept the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last elem <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2427	2523	
==>ept the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last elem <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22494	22582	
==>mber(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1559	1708	
==>rmdir( dir => $builddir )
#                 or error( "Could not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3537	3644	
==>"$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3537	3644	
==>"$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is expo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1282	1382	
==>stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.joi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1282	1382	
==>stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5144	5245	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5144	5245	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5144	5245	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4867	4977	
==>ps endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4867	4977	
==>ps endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4867	4977	
==>ps endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2346	2442	
==>lows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and thr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2346	2442	
==>lows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and thr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2159	2271	
==>", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2159	2271	
==>", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2159	2271	
==>", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1198	1324	
==>.concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1198	1324	
==>.concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1198	1324	
==>.concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_err <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35814	35961	
==>l until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $ta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35814	35961	
==>l until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $ta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35814	35961	
==>l until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	536	633	
==>onstant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	536	633	
==>onstant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	536	633	
==>onstant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9570	9733	
==>nd.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which could <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4236	4361	
==>}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6870	7147	
==>ub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6870	7147	
==>ub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6870	7147	
==>ub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7588	7690	
==>alize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7588	7690	
==>alize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3072	3187	
==>if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3072	3187	
==>if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3072	3187	
==>if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2143	2246	
==>ring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2143	2246	
==>ring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2143	2246	
==>ring(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2262	2468	
==>urn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5739	5945	
==>urn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4669	4875	
==>urn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	239	348	
==>~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	239	348	
==>~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	239	348	
==>~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4157	4264	
==>s);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_inf <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4157	4264	
==>s);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	445	582	
==>ss({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	445	582	
==>ss({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	445	582	
==>ss({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11173	11271	
==>e."' and associated metadata removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_al <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22677	22773	
==>ading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27229	27325	
==>ading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10694	10809	
==>"
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14171	14286	
==>"
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13470	13585	
==>"
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33282	33381	
==>h for that message is found.  Since a
program or library may wish to override the user text of anoth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33282	33381	
==>h for that message is found.  Since a
program or library may wish to override the user text of anoth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	906	1048	
==>refix:<++>',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26835	26928	
==>s (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provide <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26835	26928	
==>s (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provide <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3578	3694	
==>tive();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3578	3694	
==>tive();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3578	3694	
==>tive();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6205	6334	
==>) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6205	6334	
==>) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6205	6334	
==>) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6879	7008	
==>%PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6879	7008	
==>%PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2003	2120	
==>want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2003	2120	
==>want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	843	998	
==>apture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	836	991	
==>apture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $retur <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18766	18870	
==>r::nullary->new("str")),
			),
		),
	),
);

# this function cannot be typed, since it wants a function in <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1812	1934	
==>arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.comple <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1812	1934	
==>arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	126	228	
==>op";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	126	228	
==>op";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	126	228	
==>op";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2782	2890	
==>t::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::O <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2782	2890	
==>t::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4306	4414	
==>t::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::O <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10031	10230	
==>everse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            } <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2738	2880	
==>"\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $lo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2738	2880	
==>"\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12302	12485	
==>undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12302	12485	
==>undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12302	12485	
==>undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6338	6463	
==>r is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6338	6463	
==>r is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1372	1476	
==>";
    my $path = File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File:: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13895	14003	
==>aram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1375	1483	
==>aram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
} <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2192	2296	
==>ress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compress::Zlib::memGzip(shift) };
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2724	2886	
==>,
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        pre <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	515	612	
==>nce - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	515	612	
==>nce - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14176	14282	
==>n $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14176	14282	
==>n $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14176	14282	
==>n $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9469	9597	
==>-----------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9469	9597	
==>-----------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9469	9597	
==>-----------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	902	1014	
==>tra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	902	1014	
==>tra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	902	1014	
==>tra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4402	4567	
==>oken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4402	4567	
==>oken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4402	4567	
==>oken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2702	2823	
==>==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2702	2823	
==>==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2702	2823	
==>==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1635	1823	
==>b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1635	1823	
==>b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1635	1823	
==>b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	632	756	
==>- the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever



Continuations are <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10500	10624	
==>- the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	605	726	
==>- the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9864	9983	
==>p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9864	9983	
==>p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9864	9983	
==>p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6678	6782	
==>se qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use base qw <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38617	38713	
==>ce' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given varia <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38617	38713	
==>ce' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3620	3713	
==>We load the operator definitions lastly because they'll override *our*
# operators.
use Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3620	3713	
==>We load the operator definitions lastly because they'll override *our*
# operators.
use Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3620	3713	
==>We load the operator definitions lastly because they'll override *our*
# operators.
use Prelud <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1896	2041	
==>test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_number(),
                    ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3008	3106	
==>vious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3008	3106	
==>vious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	371	468	
==>erl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	371	468	
==>erl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	371	468	
==>erl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7258	7383	
==>ibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7258	7383	
==>ibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7258	7383	
==>ibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2431	2615	
==>le () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5908	6092	
==>le () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4838	5022	
==>le () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3173	3273	
==>"PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3173	3273	
==>"PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3173	3273	
==>"PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6725	6850	
==>@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6725	6850	
==>@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6725	6850	
==>@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8954	9119	
==>" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8954	9119	
==>" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8954	9119	
==>" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6595	6706	
==>attern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6595	6706	
==>attern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6595	6706	
==>attern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35658	35792	
==>ft_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35658	35792	
==>ft_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35658	35792	
==>ft_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2894	3009	
==>{
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2894	3009	
==>{
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2894	3009	
==>{
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$f <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5022	5132	
==>, 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5022	5132	
==>, 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1926	2036	
==>, 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1816	1962	
==>essed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1816	1962	
==>essed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1816	1962	
==>essed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{cla <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	545	683	
==>ig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($orig);
			return;
		} else {
			if (defined($orig) and not(Scalar::Util <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16022	16116	
==>last_modified

This header indicates the date and time at which the resource was last
modified. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16022	16116	
==>last_modified

This header indicates the date and time at which the resource was last
modified. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8641	8748	
==>,
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8641	8748	
==>,
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8641	8748	
==>,
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	941	1054	
==>start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	941	1054	
==>start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15172	15296	
==>"I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15172	15296	
==>"I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15172	15296	
==>"I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3903	4009	
==>" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3903	4009	
==>" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3903	4009	
==>" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1737	1891	
==>h \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1725	1879	
==>h \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	616	739	
==>f($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	616	739	
==>f($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20432	20539	
==>ding.difference( $!heading );

    return Relation::Example.new(
        heading => $!heading.union( $other! <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5628	5730	
==>eturns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp") <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5628	5730	
==>eturns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7740	7871	
==>, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7740	7871	
==>, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7740	7871	
==>, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret) <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1080	1215	
==>rds;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        sho <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1558	1653	
==>DF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. I <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1558	1653	
==>DF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. I <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2794	2893	
==>od vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2794	2893	
==>od vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Com <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7455	7548	
==>newest_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = - <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7982	8079	
==>em' directive is reached, the next event fired will be
any text which follows the item.

=item I<e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7982	8079	
==>em' directive is reached, the next event fired will be
any text which follows the item.

=item I<e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1766	1886	
==>ed->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1766	1886	
==>ed->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1766	1886	
==>ed->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else <==
3	/Users/nnunley/pugs/util/package-osx.pl	3816	3913	
==>Perl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A03.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13257	13350	
==>nce solutions.
Moreover, these data structures are in exactly the right input format for
Docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13257	13350	
==>nce solutions.
Moreover, these data structures are in exactly the right input format for
Docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2521	2616	
==>mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@vars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2521	2616	
==>mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@vars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2521	2616	
==>mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17195	17305	
==>->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17195	17305	
==>->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17195	17305	
==>->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreac <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9081	9203	
==>ckage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @li <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10558	10680	
==>ckage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @li <==
3	/Users/nnunley/pugs/util/package-osx.pl	3966	4063	
==>Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3059	3183	
==>n.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3059	3183	
==>n.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1120	1231	
==>turn (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1120	1231	
==>turn (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( <==
3	/Users/nnunley/pugs/util/version_h.pl	71	164	
==>shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6366	6623	
==>xtkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6366	6623	
==>xtkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6366	6623	
==>xtkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1639	1755	
==>) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1639	1755	
==>) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1639	1755	
==>) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl() <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9499	9800	
==>sts -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    me <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9499	9800	
==>sts -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    me <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23741	23851	
==>my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pretty printer
{
	my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7465	7579	
==>bers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7465	7579	
==>bers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	218	324	
==>tins;

sub run {
	my $self = shift;
	my $prog = shift;

	my $c = $self->compile($prog);
	my $type_annotated <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17924	18021	
==>re
essentially all isolated from each other, even if more than one uses the
same Engine class to i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17924	18021	
==>re
essentially all isolated from each other, even if more than one uses the
same Engine class to i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2896	2982	
==>code:"\x0a\x0b\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u180e\u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5088	5207	
==>( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2630	2749	
==>( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3411	3530	
==>( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5528	5652	
==>e existing content of the index
        push @$index_content, $meta;
        
        ### XXX do delayed writes, as an explic <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21096	21196	
==>nt in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21096	21196	
==>nt in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6266	6373	
==>eturn @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6266	6373	
==>eturn @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6266	6373	
==>eturn @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	800	905	
==>"Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type eq 'ARRAY' and @$typ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3097	3194	
==>st headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Le <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3097	3194	
==>st headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8130	8288	
==>ack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8130	8288	
==>ack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8130	8288	
==>ack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4478	4614	
==>ude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4478	4614	
==>ude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4478	4614	
==>ude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17835	18020	
==>ues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21312	21497	
==>ues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20899	21084	
==>ues -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m == <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3555	3665	
==>p => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4275	4381	
==>f ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4492	4598	
==>f ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7147	7243	
==>item (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7147	7243	
==>item (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9159	9242	
==>1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) --> p5_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36234	36389	
==>$body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36234	36389	
==>$body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36234	36389	
==>$body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1549	1647	
==>{ $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1549	1647	
==>{ $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1549	1647	
==>{ $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1303	1394	
==>a_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1303	1394	
==>a_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1303	1394	
==>a_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2271	2364	
==>ake_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2271	2364	
==>ake_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2271	2364	
==>ake_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4694	4817	
==>c P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[4], } }
        

    | M <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6327	6425	
==>od", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<P <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6327	6425	
==>od", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3550	3649	
==>not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3550	3649	
==>not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3550	3649	
==>not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23579	23692	
==>at6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23579	23692	
==>at6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23579	23692	
==>at6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22845	22964	
==>);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@args);
}


no strict 'vars';
package Perl6::Run::OnPerl5::X1::A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1264	1355	
==>quest_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representation <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1264	1355	
==>quest_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5384	5480	
==>YAML.pm  # configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5195	5290	
==>YAML.pm  # configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7576	7659	
==>t(lookahead_not(R))  --> p5_elemental(lookahead_not(R)).
p5_condition_test(lookbehin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17238	17366	
==>"{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17238	17366	
==>"{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4868	4971	
==>f the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviated to un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2266	2374	
==>ew PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2266	2374	
==>ew PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2266	2374	
==>ew PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15397	15511	
==>queue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "T <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15397	15511	
==>queue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8328	8436	
==>= @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # graph POSIX class
  $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1172	1276	
==>s) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1172	1276	
==>s) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52418	52517	
==>asses') => list->new($::Module));

$::Module->set_attr(symbol->new('@:subclasses') => list->new($::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1485	1610	
==>ethod('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1485	1610	
==>ethod('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1485	1610	
==>ethod('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9033	9149	
==>) {
        # we can't use +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10225	10328	
==>:List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created fr <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10225	10328	
==>:List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created fr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11543	11634	
==>ends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11601	11692	
==>ends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6511	6613	
==>printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementByI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6511	6613	
==>printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementByI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6511	6613	
==>printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementByI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1193	1305	
==>2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1193	1305	
==>2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1193	1305	
==>2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{test <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	993	1120	
==>ffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	993	1120	
==>ffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4383	4481	
==>.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4383	4481	
==>.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4383	4481	
==>.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5400	5520	
==>$method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5400	5520	
==>$method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5400	5520	
==>$method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5947	6097	
==>read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5947	6097	
==>read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4643	4734	
==>ax) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10116	10328	
==>->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10116	10328	
==>->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10116	10328	
==>->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27586	27681	
==>=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27586	27681	
==>=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method return <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12714	12859	
==>t2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12714	12859	
==>t2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23245	23336	
==>(it isn't what's important;
the interface/behaviour is), this Relation::Example data type is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	606	722	
==>f the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the fil <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1090	1206	
==>f the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the fil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9564	9657	
==>> sub { 
  '$iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10922	11108	
==>return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10922	11108	
==>return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10922	11108	
==>return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7407	7560	
==>al $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7407	7560	
==>al $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18876	19019	
==>0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12164	12290	
==>{
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7400	7511	
==>traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.pos <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7400	7511	
==>traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.pos <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11085	11238	
==>rg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_ty <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11085	11238	
==>rg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_ty <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	228	368	
==>a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and die $?;
    system( qq[ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14328	14429	
==>s()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ig <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14386	14487	
==>s()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3278	3385	
==>$new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3278	3385	
==>$new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3278	3385	
==>$new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$wha <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3046	3137	
==>t exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5248	5339	
==>t exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	879	969	
==>Pugs::Compiler::Token->compile(q( \: <rule_name> { return $<rule_name> . " => 0" } ))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7335	7475	
==>"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Erro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3939	4079	
==>"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Erro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4788	4928	
==>"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19233	19331	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19233	19331	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19233	19331	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3864	3979	
==>s;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3864	3979	
==>s;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3864	3979	
==>s;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$q <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23047	23155	
==>names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of ever <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27599	27707	
==>names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of ever <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26376	26484	
==>names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of ever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14112	14323	
==>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14112	14323	
==>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14112	14323	
==>{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9709	9843	
==>alX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9709	9843	
==>alX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9709	9843	
==>alX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1153	1265	
==>l($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1153	1265	
==>l($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1153	1265	
==>l($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3008	3124	
==>te"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3008	3124	
==>te"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò', <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19061	19166	
==>ue if $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10932	11097	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10932	11097	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10932	11097	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # A <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16662	16792	
==>plausible places to hide data.
Perl_re_dup just copies them.

  struct reg_data *data;  /* Additional data. */

        struct reg_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2285	2406	
==>ompatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2285	2406	
==>ompatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4795	4924	
==>ocal $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4795	4924	
==>ocal $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4795	4924	
==>ocal $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4669	4775	
==>with Test's &fail.
    sub __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Interna <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1450	1554	
==>$<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1450	1554	
==>$<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4569	4701	
==>plice' => sub { # $idx_from -> $idx_to -> @replace_list -> @list
                my $self = shift;
                my $idx_from = shi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	840	929	
==>a::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L::e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	840	929	
==>a::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L::e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24939	25040	
==>s are costly enough
 * that pregcomp() supplies a regmust only if the r.e. contains something
 * poten <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8677	8768	
==>API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8677	8768	
==>API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	165	261	
==>rograms using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	165	261	
==>rograms using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	165	261	
==>rograms using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "thro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5130	5235	
==>push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5130	5235	
==>push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5130	5235	
==>push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1503	1607	
==>me} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1503	1607	
==>me} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1712	1816	
==>me} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1062	1150	
==>'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/',' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1062	1150	
==>'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/',' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1062	1150	
==>'/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/',' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2470	2598	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2470	2598	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2470	2598	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX X <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1570	1680	
==>lsitelib     => $config); 

    $config->{perl5path} = $^X;
    $config->{pugspath}  =
      File::Spec->catfil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12364	12525	
==>n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8640	8801	
==>n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9475	9636	
==>n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1900	2007	
==>:X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3492	3615	
==>hod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3492	3615	
==>hod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3492	3615	
==>hod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31536	31631	
==>e original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36086	36181	
==>e original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35313	35408	
==>e original.  Trivial cases are
where C<$predicate> simply returns True or False regardless of it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3328	3448	
==>_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3328	3448	
==>_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3328	3448	
==>_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->ad <==
3	/Users/nnunley/pugs/util/config_h.pl	1742	1919	
==>nt TMP $code;
        close TMP;
        system(
            $ghc, @ghc_args,
            "--make", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3553	3681	
==>@!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)], <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3553	3681	
==>@!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)], <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9507	9627	
==>name    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9507	9627	
==>name    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4611	4704	
==>class>|<explicit_class>|<escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14527	14715	
==>rgs);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14527	14715	
==>rgs);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14527	14715	
==>rgs);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21079	21181	
==>x:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21079	21181	
==>x:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21079	21181	
==>x:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	68	187	
==>method BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method he <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	68	187	
==>method BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	225	318	
==>------------------------
## This is an extension of the Mini-MetaModel which adds explicit Eig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2236	2338	
==>me.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2236	2338	
==>me.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2236	2338	
==>me.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1785	1918	
==>_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            sig <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33949	34047	
==>g and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38499	38597	
==>g and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C< <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1708	1820	
==>verbose - a boolean which will turn on per iteration printing
    
If you omit the fprime, a second order centere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18326	18505	
==>urn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18326	18505	
==>urn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18326	18505	
==>urn $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2396	2541	
==>ass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2396	2541	
==>ass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2396	2541	
==>ass = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10034	10246	
==>) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10034	10246	
==>) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10034	10246	
==>) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3884	3984	
==>lf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3884	3984	
==>lf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4474	4574	
==>lf->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13964	14062	
==>$f_test = $o->data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8909	9006	
==>status;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.define <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8909	9006	
==>status;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.define <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	124	241	
==>n sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20005	20099	
==>e "Can't load perl5 modules via js when not running under PIL2JS!";
}
our &PIL2JS::Internals::u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7695	7793	
==>t, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7434	7529	
==>t, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to mat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12319	12543	
==>rson_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12319	12543	
==>rson_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	702	828	
==>els}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8611	8729	
==>i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8611	8729	
==>i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8611	8729	
==>i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do no <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6832	6929	
==>t to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6832	6929	
==>t to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_e <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20226	20318	
==>ment which is modified
# try to 'collapse' useless directory entries
sub collapse_isolated_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7642	7805	
==>celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7642	7805	
==>celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7642	7805	
==>celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1229	1352	
==>ist, in a sub call without parameters
    return ''
        unless defined $n;
    
    die "unknown node: ", Dumper( $n <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7995	8108	
==>\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&expression, *@values;
}

# si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19084	19194	
==>e first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19084	19194	
==>e first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4411	4516	
==>self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4411	4516	
==>self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4411	4516	
==>self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type-> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5076	5221	
==>> $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5076	5221	
==>> $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4687	4785	
==>AME 

Pugs::Grammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Gra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3143	3324	
==>xy>),
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree.new(:node <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2322	2418	
==>.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-da <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2322	2418	
==>.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4811	4918	
==>eturn "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4811	4918	
==>eturn "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4811	4918	
==>eturn "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	557	696	
==>eturns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NA <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	557	696	
==>eturns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NA <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3159	3494	
==>);
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interacti <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3159	3494	
==>);
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interacti <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	340	449	
==>, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9926	10025	
==>for the methods described below.
    # -----------------------------------------------
    # has %:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9926	10025	
==>for the methods described below.
    # -----------------------------------------------
    # has %:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9926	10025	
==>for the methods described below.
    # -----------------------------------------------
    # has %:m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6939	7053	
==>',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'pos <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6939	7053	
==>',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'pos <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3838	3952	
==>',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9755	9881	
==>bered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9755	9881	
==>bered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9755	9881	
==>bered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8895	9011	
==>xpand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8895	9011	
==>xpand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8895	9011	
==>xpand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9903	10016	
==>her_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9903	10016	
==>her_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9903	10016	
==>her_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19128	19321	
==>supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19128	19321	
==>supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19128	19321	
==>supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1498	1654	
==>es

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1447	1597	
==>es
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	646	758	
==>scription'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21794	21988	
==>$_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21794	21988	
==>$_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21794	21988	
==>$_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6845	6988	
==>$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$ke <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6845	6988	
==>$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$ke <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2486	2627	
==>ven floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_rou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6562	6673	
==>rp "parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse;
    #p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6616	6707	
==>%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6616	6707	
==>%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6616	6707	
==>%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    P <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3413	3550	
==>ule; # guess what to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15628	15750	
==>queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15628	15750	
==>queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9604	9708	
==>roles to be 'resolved'
    # -----------------------------------------------      
    method collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9604	9708	
==>roles to be 'resolved'
    # -----------------------------------------------      
    method collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9604	9708	
==>roles to be 'resolved'
    # -----------------------------------------------      
    method collect_all <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1845	1941	
==>urce of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apoca <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1845	1941	
==>urce of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6526	6619	
==>lessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6526	6619	
==>lessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6526	6619	
==>lessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2. <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	568	664	
==>od start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	568	664	
==>od start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3275	3383	
==>^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested featur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3459	3567	
==>^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested featur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1290	1387	
==>ndex'}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = [ Path::Class::file( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	708	827	
==>->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1265	1369	
==>user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HEL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1265	1369	
==>user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HEL <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1237	1332	
==>et has a memory footprint of constant size because the
algorithm is based on statistics. This wa <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1237	1332	
==>et has a memory footprint of constant size because the
algorithm is based on statistics. This wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21780	21873	
==>regexes.  This
documentation contains a sub-classing tutorial.

=head1 SUB-CLASSING

I will pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6274	6414	
==>as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6274	6414	
==>as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6274	6414	
==>as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !per <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4339	4437	
==>Name($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceEr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14278	14374	
==>ing braces on \%s{}

=item RPe_RBRACE (-20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	878	979	
==>er does NOT look like it's mature enough to bear
# our weight, to be a next step. And the current Rege <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1834	1928	
==>my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1834	1928	
==>my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

s <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	557	747	
==>turn FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty li <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	557	747	
==>turn FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8442	8553	
==>$a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8442	8553	
==>$a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8442	8553	
==>$a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3003	3100	
==>conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3003	3100	
==>conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3003	3100	
==>conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was requ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3812	3919	
==>fig{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $c <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3812	3919	
==>fig{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $c <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2401	2494	
==>rg/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>per <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2401	2494	
==>rg/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18172	18325	
==>ed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18172	18325	
==>ed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18172	18325	
==>ed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2012	2238	
==>$statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($stat <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4708	4803	
==>:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4708	4803	
==>:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	433	541	
==>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	433	541	
==>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	433	541	
==>{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16548	16656	
==>lsif (!$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22596	22688	
==>connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22596	22688	
==>connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15912	16017	
==>);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5661	5785	
==>rn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5661	5785	
==>rn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5661	5785	
==>rn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1436	1544	
==>rder;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_ord <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1436	1544	
==>rder;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_ord <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1929	2041	
==>{
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34830	34929	
==>['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34830	34929	
==>['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	799	897	
==>}
  Regexp::Parser->export_to_level($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	512	620	
==>' => $::CLASS->new('$.testplan' => $plan, '$.output'   => $output)) 
                unless defined __('$:sin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13848	13945	
==>llback routine
is called with two parameters; the name of the field and a single
value (a string). <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13848	13945	
==>llback routine
is called with two parameters; the name of the field and a single
value (a string). <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1047	1186	
==>z] )    and die $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3375	3467	
==>object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3375	3467	
==>object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3508	3626	
==>g.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6985	7103	
==>g.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5942	6060	
==>g.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3549	3647	
==>aram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3549	3647	
==>aram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4139	4237	
==>aram = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	888	1018	
==>array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self->get_value('@:s <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	152	260	
==>ath) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	152	260	
==>ath) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1592	1728	
==>/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Tra <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2880	2978	
==>is sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does no <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2880	2978	
==>is sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4724	4838	
==>])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4724	4838	
==>])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4724	4838	
==>])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17889	18008	
==>hods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@method <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	573	671	
==>SCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node typ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	573	671	
==>SCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34537	34641	
==>t ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34537	34641	
==>t ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34537	34641	
==>t ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $lengt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4290	4426	
==>{ \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4278	4414	
==>{ \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1737	1864	
==>.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1737	1864	
==>.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1737	1864	
==>.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3175	3293	
==>ternals::arc_units (Num $radians, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $ra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15457	15560	
==>?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15457	15560	
==>?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49570	49685	
==>->send('add_method' => (
    # method label
        symbol->new('authority'),
    # method body
        method->new( <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	261	367	
==>method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An ex <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	261	367	
==>method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1379	1506	
==>JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1379	1506	
==>JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1379	1506	
==>JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effec <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29305	29421	
==>FBMcf_TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1339	1434	
==>s(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New cl <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1339	1434	
==>s(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New cl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4234	4322	
==>ace::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4234	4322	
==>ace::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10269	10402	
==>y {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10269	10402	
==>y {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10269	10402	
==>y {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2669	2861	
==>graph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2669	2861	
==>graph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4370	4490	
==>y (and this message).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests {
    my($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6230	6342	
==>cro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6230	6342	
==>cro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6230	6342	
==>cro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subob <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	79	214	
==>port = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\d\d) | <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40698	40815	
==>al.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation::Example is identical to <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1363	1463	
==>RSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME} =~ s/-/::/g;

    # Onl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1221	1319	
==>operations.

=head1 CONSTRUCTS

=head2 Base ADTs

All nodes as well as a few other objects are impl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3936	4029	
==>ection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_diffe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3936	4029	
==>ection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_diffe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	630	738	
==>ch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	630	738	
==>ch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	630	738	
==>ch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	500	618	
==>rom Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	500	618	
==>rom Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33748	33847	
==>g: 1 if negated

=head2 digit

Family: digit

Types: digit (C<\d>), ndigit (C<\D>)

Neg: 1 if negate <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	203	299	
==>nerate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameG <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	203	299	
==>nerate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameG <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7895	8005	
==><'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9383	9480	
==>art` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9383	9480	
==>art` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4282	4387	
==>gs->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4499	4604	
==>gs->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4113	4226	
==>efined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4113	4226	
==>efined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4113	4226	
==>efined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38888	38994	
==>f there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38888	38994	
==>f there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38888	38994	
==>f there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18369	18463	
==>TI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18369	18463	
==>TI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18369	18463	
==>TI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1197	1293	
==>er, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1197	1293	
==>er, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1197	1293	
==>er, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15299	15419	
==>$r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18776	18896	
==>$r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18201	18321	
==>$r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3958	4088	
==>ds_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3958	4088	
==>ds_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3958	4088	
==>ds_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13048	13139	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13048	13139	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13048	13139	
==>ceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10146	10344	
==>:Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	700	886	
==>:Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	700	886	
==>:Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3581	3746	
==>ed)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3581	3746	
==>ed)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3581	3746	
==>ed)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOU <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4730	4881	
==>self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    return;
}    

=head2 $inst_pkg = $inst->register( package <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	932	1035	
==>ory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	932	1035	
==>ory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1385	1513	
==>ody->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1385	1513	
==>ody->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1385	1513	
==>ody->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20700	20833	
==>] = $I0
    
  setsubpats:
    cname = self["cname"]
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    i <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	777	885	
==>aker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	678	786	
==>aker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2847	2982	
==><c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2847	2982	
==><c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2847	2982	
==><c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2509	2599	
==>--------------------------------------
## getting children

method get_child ($self: Int $i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2509	2599	
==>--------------------------------------
## getting children

method get_child ($self: Int $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29924	30044	
==>sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29924	30044	
==>sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29924	30044	
==>sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5668	5792	
==>:*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5668	5792	
==>:*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5668	5792	
==>:*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	217	324	
==>Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $signature, $body) = @_;
    (ble <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5723	5820	
==>mentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule cons <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5526	5617	
==>mentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8980	9100	
==>'default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8980	9100	
==>'default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8980	9100	
==>'default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13226	13327	
==>el};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13226	13327	
==>el};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13226	13327	
==>el};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	854	951	
==>formation about the server your CGI is running on. It also 
attempts to provide some useful defaul <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	854	951	
==>formation about the server your CGI is running on. It also 
attempts to provide some useful defaul <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1031	1119	
==>-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $Config{"excl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	872	998	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	872	998	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	872	998	
==>ETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          st <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1467	1584	
==>s;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUIL <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1467	1584	
==>s;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37187	37277	
==>er::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8571	8695	
==>0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8571	8695	
==>0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8571	8695	
==>0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	480	604	
==>VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	480	604	
==>VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	480	604	
==>VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16633	16810	
==>= Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16633	16810	
==>= Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16633	16810	
==>= Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2334	2551	
==>f $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2334	2551	
==>f $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7990	8088	
==>');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# and our instances do the roles as well
my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8242	8469	
==>y, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8242	8469	
==>y, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8242	8469	
==>y, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6085	6226	
==>al/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or symlinks to minimize storage
                  #      re <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2878	3017	
==>moke has an invalid format!";
    exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{timestamp}       = time;
  $smoke{id}              = $i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3674	3770	
==>';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_func 'asinh';
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2199	2318	
==>uit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2199	2318	
==>uit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2199	2318	
==>uit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1019	1110	
==>x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1019	1110	
==>x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1019	1110	
==>x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8294	8420	
==>ck }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8294	8420	
==>ck }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9796	9917	
==>p};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3780	3906	
==>"Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3780	3906	
==>"Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3780	3906	
==>"Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{pre <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7016	7113	
==>isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_em <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7016	7113	
==>isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_em <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2759	2893	
==>.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2759	2893	
==>.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6742	6873	
==>{
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $lis <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6742	6873	
==>{
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $lis <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2474	2567	
==>ated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2592	2704	
==>substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2592	2704	
==>substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2592	2704	
==>substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	904	1001	
==>ight @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	904	1001	
==>ight @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	904	1001	
==>ight @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1077	1187	
==>$ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1077	1187	
==>$ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1077	1187	
==>$ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   fu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2715	2817	
==>erence( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2715	2817	
==>erence( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22990	23085	
==>third-party) classes, which at the very least
must determine the storage representation of the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2475	2577	
==>tr $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2475	2577	
==>tr $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2475	2577	
==>tr $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $? <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23754	23848	
==>ed at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alte <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23754	23848	
==>ed at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1465	1592	
==>>new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1465	1592	
==>>new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1465	1592	
==>>new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16636	16813	
==>rray->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16636	16813	
==>rray->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16636	16813	
==>rray->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1840	2031	
==>my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1840	2031	
==>my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1840	2031	
==>my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15135	15332	
==>heck for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15135	15332	
==>heck for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15135	15332	
==>heck for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5082	5207	
==>}
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5082	5207	
==>}
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5082	5207	
==>}
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	357	471	
==>e rest for free
# NOTE: 
# compare returns a native boolean though,
# so it should be considered a protected 
# met <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14270	14369	
==>?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14328	14427	
==>?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1119	1274	
==>class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1119	1274	
==>class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2529	2636	
==>el, %opts) || redo }       
}



(closure *WALKMETH ((block &dispatcher) (symbol $label) (hash ?%opts)) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3844	3961	
==>gging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3844	3961	
==>gging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3844	3961	
==>gging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2689	2796	
==>tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.va <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2689	2796	
==>tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6929	7089	
==>p . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6929	7089	
==>p . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6929	7089	
==>p . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' => ++$va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13114	13236	
==>mc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13114	13236	
==>mc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18552	18670	
==>e represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18552	18670	
==>e represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18552	18670	
==>e represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4704	4817	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4704	4817	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4704	4817	
==>.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39283	39408	
==>{
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39283	39408	
==>{
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39283	39408	
==>{
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $len <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10435	10588	
==>nt_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alterna <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10714	10867	
==>nt_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alterna <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4411	4522	
==>UNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $cl <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2666	2769	
==>all;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2666	2769	
==>all;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19121	19233	
==>new .Iterator, reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8779	8877	
==>->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8775	8873	
==>->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6308	6428	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6308	6428	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6308	6428	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6664	6773	
==>To:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6664	6773	
==>To:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6664	6773	
==>To:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8884	9033	
==>n' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex EN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8884	9033	
==>n' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex EN <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4983	5107	
==>{
            print "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4316	4432	
==>s ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4316	4432	
==>s ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4906	5022	
==>s ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4177	4324	
==>"uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4177	4324	
==>"uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12733	12840	
==>od next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where this is specc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3779	3883	
==>s);
    $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $sel <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2459	2556	
==>\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    pus <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2459	2556	
==>\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35907	36067	
==>m_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35907	36067	
==>m_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35907	36067	
==>m_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	281	393	
==>erant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { spl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	281	393	
==>erant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { spl <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	783	882	
==>'t determine a NAME for this distribution.
Please use the 'name' function in Makefile.PL.
END

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15315	15420	
==>0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15315	15420	
==>0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15315	15420	
==>0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1157	1280	
==>TCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1157	1280	
==>TCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1157	1280	
==>TCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8630	8815	
==>.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8630	8815	
==>.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8630	8815	
==>.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6019	6115	
==>urn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6019	6115	
==>urn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6019	6115	
==>urn sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22717	22819	
==>6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22717	22819	
==>6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22717	22819	
==>6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29770	29883	
==>nt's attributes.  This method
supports having the new attributes having the same names as old attributes
that were <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34322	34435	
==>nt's attributes.  This method
supports having the new attributes having the same names as old attributes
that were <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33486	33599	
==>nt's attributes.  This method
supports having the new attributes having the same names as old attributes
that were <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2704	2806	
==>$span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2704	2806	
==>$span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	55	167	
==>ompiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	55	167	
==>ompiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8739	8836	
==>Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8739	8836	
==>Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1748	1866	
==>{
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1748	1866	
==>{
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1748	1866	
==>{
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	467	593	
==>rule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $sub <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4276	4402	
==>ey eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whitespacePosition = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	467	593	
==>rule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $sub <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3401	3524	
==>unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('' <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3401	3524	
==>unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	476	589	
==>KGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	754	893	
==>= {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	754	893	
==>= {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	754	893	
==>= {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17796	17975	
==>stance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17796	17975	
==>stance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17796	17975	
==>stance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1836	1944	
==>invocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3737	3886	
==>0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3737	3886	
==>0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3737	3886	
==>0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1313	1407	
==>((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1313	1407	
==>((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1313	1407	
==>((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6445	6549	
==>s Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.diffe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6445	6549	
==>s Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.diffe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6468	6596	
==>[]
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLaz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6468	6596	
==>[]
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLaz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6468	6596	
==>[]
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLaz <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4184	4299	
==>he index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expect <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4184	4299	
==>he index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expect <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6189	6296	
==>rl5;

    # create a local variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38627	38741	
==>erl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38627	38741	
==>erl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38627	38741	
==>erl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4785	4880	
==>pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4785	4880	
==>pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4785	4880	
==>pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5743	5869	
==>sibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5743	5869	
==>sibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5743	5869	
==>sibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::B <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23726	23840	
==>* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REX <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28929	29027	
==>* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4656	4761	
==>ime)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4656	4761	
==>ime)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4656	4761	
==>ime)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4086	4187	
==>each my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4086	4187	
==>each my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4086	4187	
==>each my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_na <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1376	1488	
==>}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $file = slurp($fnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17144	17245	
==>up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=he <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17144	17245	
==>up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3871	3985	
==>ge PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3871	3985	
==>ge PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3871	3985	
==>ge PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	27	140	
==>sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	27	140	
==>sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	27	140	
==>sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8642	8759	
==>e::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8642	8759	
==>e::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8642	8759	
==>e::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	477	573	
==>rce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	477	573	
==>rce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	477	573	
==>rce);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14300	14403	
==>o_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14300	14403	
==>o_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14300	14403	
==>o_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1574	1682	
==>hift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1574	1682	
==>hift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1574	1682	
==>hift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5944	6093	
==>e =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5944	6093	
==>e =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0] <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1947	2050	
==>$match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19686	19895	
==>her = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19686	19895	
==>her = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19686	19895	
==>her = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	687	774	
==>ss->superclasses([ $::Class ]);

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	687	774	
==>ss->superclasses([ $::Class ]);

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	687	774	
==>ss->superclasses([ $::Class ]);

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10968	11121	
==>, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # X <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10968	11121	
==>, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # X <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17959	18060	
==>nd:
    .return (self)
.end

.namespace [ "PGE::Exp::Literal" ]

.sub "p6analyze" :method
    .param p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20693	20799	
==>v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20693	20799	
==>v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20693	20799	
==>v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	278	382	
==>ass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	278	382	
==>ass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	278	382	
==>ass method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	453	551	
==>H()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	453	551	
==>H()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	453	551	
==>H()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_contro <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13251	13359	
==>elow are some
example translations. This list is I<not> exhaustive.

 delete %hash{$key}                %hash <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8093	8190	
==>item')>

This event is fired once the last '=item' directive, followed by any text on the same lin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8093	8190	
==>item')>

This event is fired once the last '=item' directive, followed by any text on the same lin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6041	6141	
==>r_token_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1476	1569	
==>ondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are defined

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2506	2647	
==>p($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2506	2647	
==>p($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2506	2647	
==>p($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9442	9576	
==>f $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9442	9576	
==>f $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9442	9576	
==>f $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2063	2167	
==>, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2063	2167	
==>, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2063	2167	
==>, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	244	353	
==>Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	244	353	
==>Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1673	1774	
==>ass Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages used by the Re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3839	3971	
==>key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back the private accessors
sub ls <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6460	6556	
==>e.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6460	6556	
==>e.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(s <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1320	1430	
==>urn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=k <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1320	1430	
==>urn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=k <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16401	16509	
==>$_[0] }, # XXX - what's right?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_objects_from_whateve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14738	14850	
==>.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14738	14850	
==>.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14738	14850	
==>.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5466	5625	
==>->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5478	5637	
==>->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/< <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17147	17263	
==>$S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19446	19594	
==>"=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19446	19594	
==>"=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19446	19594	
==>"=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1244	1359	
==>_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1244	1359	
==>_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17665	17768	
==>code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $code .= "\$META = \$::${Kind}->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1593	1710	
==>ant() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1593	1710	
==>ant() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1593	1710	
==>ant() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1595	1760	
==>elf = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless $c;
                $c->scalar_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1521	1636	
==>$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1509	1624	
==>$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3957	4143	
==>hes[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3836	4015	
==>hes[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $ma <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	697	793	
==>--------------------

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper;

# --------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1701	1798	
==>nd @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1701	1798	
==>nd @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1701	1798	
==>nd @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14032	14134	
==>_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14032	14134	
==>_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14032	14134	
==>_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9309	9432	
==>expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$e <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	705	826	
==>expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$e <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	475	592	
==>ot -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    Current d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2572	2669	
==>nk {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21117	21207	
==>your
distribtution precompiled. This means that people who install your
module distribtutio <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21117	21207	
==>your
distribtution precompiled. This means that people who install your
module distribtutio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2163	2372	
==>ata[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2163	2372	
==>ata[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7125	7214	
==>\#\\").
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digits_i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26394	26488	
==>modified version of Rosetta
that you are willing to distribute, because that is a practical way <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26394	26488	
==>modified version of Rosetta
that you are willing to distribute, because that is a practical way <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10567	10698	
==>ed} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10567	10698	
==>ed} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10567	10698	
==>ed} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	735	845	
==>>isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	735	845	
==>>isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	735	845	
==>>isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3751	3861	
==>ce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3751	3861	
==>ce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3751	3861	
==>ce_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2796	2895	
==>2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2796	2895	
==>2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2796	2895	
==>2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10202	10301	
==>se PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10202	10301	
==>se PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10202	10301	
==>se PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5956	6050	
==>LASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5956	6050	
==>LASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8153	8247	
==>LASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<T <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3463	3586	
==>alues{license}           ||= 'unknown';
    $values{distribution_type} ||= 'module';
    $values{name}              ||= do { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2837	2954	
==>ocument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2837	2954	
==>ocument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	258	390	
==>$_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	258	390	
==>$_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	258	390	
==>$_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14045	14179	
==>de assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14039	14173	
==>de assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	299	397	
==>he perl5 regexp engine is unfortunately entangled with the rest of
# the p5 implementation.  So whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16872	16963	
==>will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16872	16963	
==>will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4371	4481	
==>b is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4371	4481	
==>b is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4371	4481	
==>b is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	640	770	
==>nt($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	640	770	
==>nt($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	640	770	
==>nt($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## privat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5405	5531	
==>'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21653	21745	
==>, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Data <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21653	21745	
==>, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Data <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2146	2273	
==>mbedded latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18680	18776	
==>same external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike many <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18680	18776	
==>same external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike many <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2706	2865	
==>y ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2706	2865	
==>y ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2706	2865	
==>y ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31334	31431	
==>ch the the
Bool-returning anonymous function in the argument C<$predicate> returns
True when given <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35884	35981	
==>ch the the
Bool-returning anonymous function in the argument C<$predicate> returns
True when given <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35102	35199	
==>ch the the
Bool-returning anonymous function in the argument C<$predicate> returns
True when given <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10067	10200	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10067	10200	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10067	10200	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2160	2258	
==>y $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2160	2258	
==>y $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2160	2258	
==>y $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "H <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2085	2178	
==>true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset complex of complex32  where { t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20654	20745	
==>ment) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20654	20745	
==>ment) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5009	5117	
==>y @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5009	5117	
==>y @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5009	5117	
==>y @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8028	8128	
==>%!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8028	8128	
==>%!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21764	21860	
==>message in
one of their own resource files.  At some appropriate place, usually in the
main progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21764	21860	
==>message in
one of their own resource files.  At some appropriate place, usually in the
main progr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1381	1477	
==>ng ease of installation and portability, we may have
  bought fairly simple code with tolerable p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8724	8819	
==>ce => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `univ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8724	8819	
==>ce => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `univ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	106	210	
==>e JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	111	214	
==>e JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	109	212	
==>e JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4671	4802	
==>direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4659	4790	
==>direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7628	7738	
==>->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3152	3257	
==>my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/build/libH <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13229	13322	
==>ll the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=h <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13229	13322	
==>ll the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9730	9877	
==>br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7192	7295	
==>e::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7204	7307	
==>e::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	297	418	
==>:Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	297	418	
==>:Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	297	418	
==>:Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1782	1915	
==>ngify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1782	1915	
==>ngify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	624	726	
==>current/
### value.. this allows subdirs to 'change' magically if a rootdir gets changed

### base dirs <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2000	2091	
==>unk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2000	2091	
==>unk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11830	11938	
==>handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $li <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11830	11938	
==>handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $li <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4197	4300	
==>me), "\\N{$name}") if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # np <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	203	329	
==>> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	203	329	
==>> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	203	329	
==>> 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4984	5088	
==>"${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5761	5859	
==>ed within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5761	5859	
==>ed within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4610	4749	
==>or thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition must be implemented <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5092	5182	
==>E
*{'_open'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6024	6122	
==>cal
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6024	6122	
==>cal
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2837	2973	
==>tmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2837	2973	
==>tmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	92	201	
==>e>;
use File::Copy      qw<copy>;
use File::Basename  qw<basename>;
use Term::ANSIColor qw<:constants>;

$ENV{ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10477	10573	
==>ike to force into being TODO tests
then you can pass them through this function. This is primaril <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10535	10631	
==>ike to force into being TODO tests
then you can pass them through this function. This is primaril <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15084	15185	
==>st->{name}, my $control) = $extra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{rea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8994	9093	
==>ed, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#en <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8994	9093	
==>ed, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6631	6756	
==>.p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6631	6756	
==>.p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6631	6756	
==>.p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12613	12707	
==>header fields with the specified names.

The header field names ($field) are not case sensitive <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12613	12707	
==>header fields with the specified names.

The header field names ($field) are not case sensitive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5027	5136	
==>(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5027	5136	
==>(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5027	5136	
==>(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1426	1541	
==>l = "vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15311	15409	
==>n $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

= <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15311	15409	
==>n $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3623	3720	
==>new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3623	3720	
==>new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3623	3720	
==>new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1023	1133	
==>le { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1023	1133	
==>le { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1795	1905	
==>LER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::Internals::log_ba <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6367	6496	
==>977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thins <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6367	6496	
==>977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thins <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	436	537	
==>die::Prelude->env, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virt <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1919	2033	
==>_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1919	2033	
==>_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    h <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	873	988	
==>tring;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) r <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	873	988	
==>tring;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3241	3351	
==>nct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alnum {
  my ( $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3659	3767	
==>array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3659	3767	
==>array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4249	4357	
==>array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10603	10717	
==>le(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10603	10717	
==>le(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10603	10717	
==>le(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3953	4084	
==>apturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<(!?)\' [ <-[\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5946	6045	
==>)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\"." <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5946	6045	
==>)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\"." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2373	2477	
==>o{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2373	2477	
==>o{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2373	2477	
==>o{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	797	908	
==>IL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	797	908	
==>IL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	797	908	
==>IL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXS <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9417	9551	
==>rypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9417	9551	
==>rypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1125	1243	
==>} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $increment;
      }
      els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11657	11779	
==>] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11657	11779	
==>] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11657	11779	
==>] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	226	352	
==>$n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	189	315	
==>$n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	277	403	
==>$n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	185	293	
==>_init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	185	293	
==>_init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	185	293	
==>_init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9083	9263	
==>y => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12560	12740	
==>y => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11796	11976	
==>y => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

meth <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6019	6135	
==>point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $b <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6019	6135	
==>point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1761	1855	
==>($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11379	11527	
==>ue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11379	11527	
==>ue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11379	11527	
==>ue::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1000	1124	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1000	1124	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1000	1124	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23530	23649	
==>ice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23530	23649	
==>ice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23530	23649	
==>ice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2970	3069	
==>ial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2970	3069	
==>ial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2970	3069	
==>ial magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7862	8029	
==>ng
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7862	8029	
==>ng
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7862	8029	
==>ng
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4896	5014	
==>o we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4896	5014	
==>o we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4896	5014	
==>o we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7182	7321	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7182	7321	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7182	7321	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2109	2223	
==>als::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5595	5696	
==>- &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._ge <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5595	5696	
==>- &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._ge <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4198	4336	
==>key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4198	4336	
==>key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @. <==
3	/Users/nnunley/pugs/util/addauthors.pl	354	449	
==>authors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4954	5052	
==>tover data and returns it as an array of bytes, 
then clears the object's internal state.  This sho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4954	5052	
==>tover data and returns it as an array of bytes, 
then clears the object's internal state.  This sho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2762	2962	
==>w( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2762	2962	
==>w( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	164	270	
==>();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $set = JIB::Installatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4742	4911	
==>$_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this err <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4742	4911	
==>$_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this err <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4742	4911	
==>$_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this err <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4012	4118	
==>ugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4152	4258	
==>ugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5839	5951	
==>);
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5839	5951	
==>);
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	933	1065	
==>.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1973	2094	
==>ut have distinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<== <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	810	918	
==>.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3648	3743	
==>id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3648	3743	
==>id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3648	3743	
==>id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2836	2960	
==>f, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2836	2960	
==>f, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2836	2960	
==>f, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5539	5639	
==>d is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5539	5639	
==>d is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_l <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	101	199	
==>d = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.ho <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	130	230	
==>ne, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= S <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	130	230	
==>ne, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2184	2311	
==>6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2184	2311	
==>6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2184	2311	
==>6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6279	6364	
==>----------------------------------------------------------------------
## Module

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6279	6364	
==>----------------------------------------------------------------------
## Module

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6279	6364	
==>----------------------------------------------------------------------
## Module

$::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5424	5561	
==>q '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5424	5561	
==>q '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5424	5561	
==>q '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join(': <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2423	2699	
==>);
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2423	2699	
==>);
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2423	2699	
==>);
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15066	15189	
==>::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15066	15189	
==>::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15066	15189	
==>::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7100	7216	
==>->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3662	3753	
==>ntersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrenc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3662	3753	
==>ntersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3336	3454	
==>de/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3336	3454	
==>de/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3336	3454	
==>de/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9668	9836	
==>, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9668	9836	
==>, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9668	9836	
==>, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27458	27554	
==>f C<$attrs> provide the names of the new attributes, and
the values provide values applied to eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32010	32106	
==>f C<$attrs> provide the names of the new attributes, and
the values provide values applied to eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31093	31189	
==>f C<$attrs> provide the names of the new attributes, and
the values provide values applied to eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31828	31949	
==>_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31828	31949	
==>_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31828	31949	
==>_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3297	3415	
==>.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3297	3415	
==>.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3297	3415	
==>.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a)) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1029	1152	
==>ame> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1429	1552	
==>ame> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1903	2026	
==>ame> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3594	3710	
==>'DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3594	3710	
==>'DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3594	3710	
==>'DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (key <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8416	8521	
==>\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20889	20993	
==>l::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your di <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20889	20993	
==>l::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30759	30958	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30759	30958	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30759	30958	
==>ength += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	697	973	
==>ings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	697	973	
==>ings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	697	973	
==>ings };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5946	6047	
==>>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5946	6047	
==>>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $ <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	59	153	
==>des;
use Blondie::Backend::C;
use Blondie::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	760	872	
==>feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	760	872	
==>feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	760	872	
==>feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that D <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1912	2034	
==>f as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1912	2034	
==>f as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9123	9242	
==>kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5970	6078	
==>self = shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6437	6546	
==>t(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_wo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6437	6546	
==>t(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4052	4158	
==>my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4052	4158	
==>my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4052	4158	
==>my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1522	1635	
==>rn( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1522	1635	
==>rn( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16091	16185	
==>nent may raise such a condition, and one
application may handle it internally, while another on <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16091	16185	
==>nent may raise such a condition, and one
application may handle it internally, while another on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1695	1819	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1695	1819	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1695	1819	
==>ibutes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        o <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13160	13258	
==>1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> wh <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13160	13258	
==>1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> wh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5244	5412	
==>vel]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33681	33776	
==>a Template module Member Name and usually corresponds to a
language like English or French.  The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33681	33776	
==>a Template module Member Name and usually corresponds to a
language like English or French.  The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1767	1896	
==>'::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1767	1896	
==>'::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1767	1896	
==>'::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5485	5647	
==>s) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5485	5647	
==>s) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5485	5647	
==>s) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2500	2613	
==>s) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2500	2613	
==>s) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2500	2613	
==>s) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1294	1405	
==>f->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1294	1405	
==>f->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1294	1405	
==>f->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4051	4160	
==>an = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4051	4160	
==>an = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

me <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1486	1580	
==>file($path, "lib");
    $self->makemaker_args->{INST_ARCHLIB} =
      File::Spec->catfile($path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4804	4944	
==>CESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4804	4944	
==>CESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4804	4944	
==>CESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  lo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17460	17552	
==>Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17460	17552	
==>Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	537	675	
==>env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really have a native form
sub to_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21471	21582	
==>$self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17892	18003	
==>$self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	567	686	
==>e}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "infix:<" . $opt{name} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7157	7266	
==>1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7145	7254	
==>1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30602	30705	
==>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consumptive, which is w <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	938	1034	
==>nted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	938	1034	
==>nted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18141	18251	
==>only appear at the beginning or end of tests\n"
      if $totals->{seen} && 
         $totals->{max}  < $totals <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36082	36179	
==>ember>".  All combinations having the same Member Name are adjacent
to each other in the output; f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36082	36179	
==>ember>".  All combinations having the same Member Name are adjacent
to each other in the output; f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1636	1753	
==>ule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1776	1893	
==>ule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6335	6459	
==>istered_alternative( package => $unlink_this )
            if $unlink_this;

        ### link the files
        return unless <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3750	3844	
==>hildren, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::inse <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3750	3844	
==>hildren, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::inse <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1049	1203	
==>se { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1049	1203	
==>se { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4300	4440	
==>eld_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep,
        type => $type,
        pairs => $pairs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14974	15107	
==>p::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15253	15386	
==>p::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32202	32324	
==>make_descendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16993	17097	
==>is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16993	17097	
==>is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1598	1700	
==>LER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1598	1700	
==>LER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1598	1700	
==>LER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3545	3650	
==>lt} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3545	3650	
==>lt} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3545	3650	
==>lt} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14657	14788	
==>f);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14657	14788	
==>f);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14657	14788	
==>f);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populated w <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1104	1227	
==>resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        print "\n*** $entry- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12415	12534	
==>ck,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12415	12534	
==>ck,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32273	32440	
==>Y') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32273	32440	
==>Y') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32273	32440	
==>Y') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13113	13292	
==>};
                } else {
                    print "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6277	6388	
==>'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6277	6388	
==>'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4351	4470	
==>{
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4351	4470	
==>{
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4351	4470	
==>{
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2829	2946	
==>!defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2829	2946	
==>!defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2829	2946	
==>!defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { e <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8425	8535	
==>ry limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrenc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8425	8535	
==>ry limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2263	2408	
==>new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2263	2408	
==>new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2263	2408	
==>new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17054	17217	
==>turn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17054	17217	
==>turn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17054	17217	
==>turn $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	478	643	
==>urn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	478	643	
==>urn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3295	3468	
==>) ) {
            error("No file associated with this object -- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11393	11534	
==>hod' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16756	16862	
==>esults> returned from C<analyze()> contain the following
information:

  passing           true if the whol <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5877	5975	
==>-------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5877	5975	
==>-------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16877	17008	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17156	17287	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18923	19022	
==>bug && !$eval_log_file) {
	open($eval_log_file,">>deleteme_code.pl") or die $!;
    }
    print $eva <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6697	6803	
==>'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6697	6803	
==>'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3596	3702	
==>'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39973	40073	
==>r (at your option) any later version.  You
should have received a copy of the LGPL as part of the Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39973	40073	
==>r (at your option) any later version.  You
should have received a copy of the LGPL as part of the Loc <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14126	14216	
==>ALL(&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1437	1554	
==>plementation for Perl 6 regexes that use the "Perl5" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17665	17756	
==>ead2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parame <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17665	17756	
==>ead2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17653	17745	
==>($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17653	17745	
==>($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17653	17745	
==>($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7744	7926	
==>:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7744	7926	
==>:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7744	7926	
==>:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14675	14877	
==>ith_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18152	18354	
==>ith_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17568	17770	
==>ith_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_sh <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	165	283	
==>ll::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6488	6618	
==>my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6488	6618	
==>my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6488	6618	
==>my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6350	6454	
==>,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToInteger(JSX:: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1869	1963	
==>new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly con <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1869	1963	
==>new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	135	248	
==>r $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	135	248	
==>r $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	281	382	
==>ble :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\% <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	281	382	
==>ble :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3541	3642	
==>pt a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3541	3642	
==>pt a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3541	3642	
==>pt a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38885	39033	
==>t('$self:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	351	459	
==>s Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and % <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	351	459	
==>s Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	586	695	
==>=> 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	586	695	
==>=> 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	586	695	
==>=> 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9747	9877	
==>with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9747	9877	
==>with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9747	9877	
==>with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13524	13627	
==>'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13524	13627	
==>'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13524	13627	
==>'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	301	401	
==>caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unle <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	301	401	
==>caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unle <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14321	14498	
==>get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetche <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14321	14498	
==>get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	160	286	
==>tegory);

sub add_rule {
    # print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11285	11402	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11285	11402	
==>EF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2155	2257	
==>nst->unregister( package => $self );
}

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1386	1507	
==>oved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1386	1507	
==>oved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1386	1507	
==>oved the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	243	369	
==>\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	243	369	
==>\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	243	369	
==>\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	403	510	
==>age and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	403	510	
==>age and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	403	510	
==>age and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	965	1080	
==>_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	965	1080	
==>_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	965	1080	
==>_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2464	2564	
==>e is a front-end to the experimental Perl6-to-Perl5 compiler.

The current state of this compiler imp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38053	38142	
==>izes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38053	38142	
==>izes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6505	6651	
==>e_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6505	6651	
==>e_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6505	6651	
==>e_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15788	15887	
==>g
# the body of the binding contains the env with the the symbols of our outer scope
let: new_env($$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14806	14901	
==>eds of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14864	14959	
==>eds of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2389	2518	
==>d{block}' if $inblock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22242	22337	
==>imilar to inheriting from multiple packages which
have the same method names as you or each othe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22242	22337	
==>imilar to inheriting from multiple packages which
have the same method names as you or each othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1287	1394	
==>$self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1287	1394	
==>$self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1287	1394	
==>$self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6393	6561	
==>ole->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6393	6561	
==>ole->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6393	6561	
==>ole->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	786	926	
==>ar => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	768	903	
==>ar => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	768	903	
==>ar => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1952	2047	
==>any tags, it will intuit one by extracting the 
last component of the calling function's package <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1952	2047	
==>any tags, it will intuit one by extracting the 
last component of the calling function's package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6896	7029	
==>rt, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6896	7029	
==>rt, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6896	7029	
==>rt, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2785	2879	
==>erl 5 interoperability.

Parrot Perl 6 is the best performing implementation by far.
The Parrot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2732	2876	
==>t;
    my $conf = $self->config;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $self->pool,
            $sel <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3516	3633	
==>$end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3516	3633	
==>$end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15689	15789	
==>:Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15689	15789	
==>:Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15689	15789	
==>:Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13380	13497	
==>mplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16857	16974	
==>mplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16219	16336	
==>mplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!headin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	208	330	
==>rser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	208	330	
==>rser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	208	330	
==>rser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	209	310	
==>Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	209	310	
==>Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	209	310	
==>Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTime <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27083	27182	
==>ory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory name is with respec <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6339	6494	
==>ew(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10592	10683	
==>self = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $se <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10592	10683	
==>self = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $se <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2619	2717	
==>abel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1244	1332	
==>Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1244	1332	
==>Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2100	2232	
==>@_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2100	2232	
==>@_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2100	2232	
==>@_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4596	4695	
==>::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4596	4695	
==>::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4596	4695	
==>::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5769	5878	
==>sub);
			}
		}
		$self->leave_scope;
		
		my $last_exp = pop @exps;
	
		$self->add_definition($node => "$retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7163	7257	
==>s share a common API, which permits the intercommunication 

of data about: backtracking, abort <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6918	7011	
==>s share a common API, which permits the intercommunication 
of data about: backtracking, abort <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33319	33418	
==>ated

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20610	20704	
==>/object attributes are private, so you must use accessor
methods.  Relation does not declare an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25162	25256	
==>/object attributes are private, so you must use accessor
methods.  Relation does not declare an <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12241	12362	
==>od in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12235	12356	
==>od in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2937	3042	
==>al(1),
    ),

And also place the value 1 on the parameter stack.

Inherits List.

=item Sym

Resolves a s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3389	3513	
==>]} } }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21126	21218	
==>ribtution precompiled. This means that people who install your
module distribtution do not ne <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21126	21218	
==>ribtution precompiled. This means that people who install your
module distribtution do not ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	391	496	
==>returncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	391	496	
==>returncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	391	496	
==>returncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4979	5077	
==>line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4979	5077	
==>line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4979	5077	
==>line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2123	2297	
==>, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2123	2297	
==>, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores t <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5162	5286	
==>g "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9084	9184	
==>o unify incompatible types:\n" . Dumper(@_);
};


# these are the type signatures of some builtins
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2989	3097	
==>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2989	3097	
==>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2989	3097	
==>new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3073	3177	
==>ntent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3073	3177	
==>ntent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like th <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1144	1257	
==>sub _read_script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or di <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6675	6775	
==>fer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6675	6775	
==>fer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7486	7591	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7486	7591	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7486	7591	
==>primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20337	20511	
==>Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20337	20511	
==>Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20337	20511	
==>Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17878	17984	
==>$re,$s)=@_;
  my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--test <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3767	3864	
==>just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## --- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3767	3864	
==>just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## --- <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	6	104	
==>e Test::Harness::Iterator;

use strict;
use vars qw($VERSION);
$VERSION = 0.02;

=head1 NAME

Test: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24517	24612	
==>der
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24517	24612	
==>der
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundati <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	560	654	
==>ink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descript <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	560	654	
==>ink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descript <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1758	1841	
==>rness_args;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config->lookup('smoke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1801	1946	
==>y again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for '$label'";
    }
}

# The 'Clas <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1959	2056	
==>s, it will intuit one by extracting the 
last component of the calling function's package name.  ( <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1959	2056	
==>s, it will intuit one by extracting the 
last component of the calling function's package name.  ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	954	1067	
==>$self->regex($rx) if defined $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    regex = <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4383	4481	
==>ed.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4383	4481	
==>ed.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4852	5016	
==>f = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4852	5016	
==>f = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4852	5016	
==>f = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	345	568	
==>return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($f <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	59	179	
==>%WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	59	179	
==>%WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1881	2013	
==>burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    bur <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1881	2013	
==>burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    bur <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14668	14779	
==>ams} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5285	5517	
==>ues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8762	8994	
==>ues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7782	8014	
==>ues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1145	1255	
==>itive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1145	1255	
==>itive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1145	1255	
==>itive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Co <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7609	7750	
==>f $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7609	7750	
==>f $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $ <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1380	1494	
==>te(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2891	2987	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalen <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	155	251	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	201	344	
==>my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	201	344	
==>my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	201	344	
==>my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36550	36669	
==>st( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36550	36669	
==>st( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36550	36669	
==>st( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array-> <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	241	685	
==>35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	241	685	
==>35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4262	4400	
==>age here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $self->package );
            sys <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3424	3518	
==>. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3424	3518	
==>. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5621	5715	
==>. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1703	1801	
==>ass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1703	1801	
==>ass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1703	1801	
==>ass($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	981	1164	
==>setta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a qu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	981	1164	
==>setta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	587	699	
==>ant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See threa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	587	699	
==>ant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See threa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	587	699	
==>ant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See threa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26411	26507	
==>corresponding projection of
each tuple), but that any duplicates following the projection have be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30963	31059	
==>corresponding projection of
each tuple), but that any duplicates following the projection have be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29965	30061	
==>corresponding projection of
each tuple), but that any duplicates following the projection have be <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10547	10655	
==>outine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10547	10655	
==>outine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16833	16934	
==>w add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16833	16934	
==>w add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16833	16934	
==>w add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4299	4398	
==>okens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4299	4398	
==>okens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3852	3989	
==>f $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3852	3989	
==>f $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3852	3989	
==>f $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12908	13002	
==>ges.

These are all constants in the F<Regexp::Parser> package, which means
you can access them <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2471	2646	
==>> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2471	2646	
==>> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3168	3281	
==>hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3168	3281	
==>hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3168	3281	
==>hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	783	910	
==>uired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Accepta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	783	910	
==>uired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Accepta <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1505	1600	
==>critical path is currently more oo than rules, my time
is limited, and there are other bootstrap <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3822	3955	
==>ests                 : @t_dirs\n";
} else {
    print "Tests                 : Processing tests from tests.yaml\n";
}
print "Output di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22812	22919	
==>->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19233	19340	
==>->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4445	4613	
==>ash      pre     hash    safe   (List)\
\\n   List      pre     pair    safe   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       saf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6403	6555	
==>o the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6403	6555	
==>o the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7321	7429	
==>xy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s* <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11309	11405	
==>tscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11309	11405	
==>tscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1029	1174	
==>pl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1029	1174	
==>pl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1029	1174	
==>pl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4180	4313	
==>key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4180	4313	
==>key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36192	36317	
==>ap($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16127	16217	
==>lf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16127	16217	
==>lf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16127	16217	
==>lf->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1558	1679	
==>e = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @fi <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1558	1679	
==>e = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	223	315	
==>ugs::Grammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3345	3525	
==>xed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3345	3525	
==>xed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3345	3525	
==>xed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1428	1528	
==>ap { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25784	25880	
==>e Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25784	25880	
==>e Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3332	3453	
==>set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3332	3453	
==>set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $uni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4084	4187	
==>s_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_prece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5986	6089	
==>s_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_prece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3821	3998	
==>e' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3821	3998	
==>e' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3821	3998	
==>e' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	198	305	
==>umber';

use base 'type';

our $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our $FALSE = bless \(my $f = 0) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1901	2064	
==>line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1901	2064	
==>line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1901	2064	
==>line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	178	282	
==>t einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer}s Lieblingsfarbe ist $liebli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12241	12337	
==>$h.init_header( $field, $value )

Set the specified header to the given value, but only if no pre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12241	12337	
==>$h.init_header( $field, $value )

Set the specified header to the given value, but only if no pre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	122	280	
==>0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	122	280	
==>0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            des <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22793	22902	
==>or: Application of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	221	325	
==>an);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	221	325	
==>an);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14531	14630	
==>ntation, which can help point you
  in the right direction.

  The regexp compiler hook generally ge <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5710	5849	
==>ot, expected and range must be numeric\n";
    } elsif ($range < 0) {
        # This is also a fail
        unshift @mess, "# range must not <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2465	2578	
==>$prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2682	2795	
==>$prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4015	4137	
==>>code();

    use <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'use '.$()->[2]{ident}[0]{ident};
		return { use_bareword = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	776	879	
==>in ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	834	937	
==>in ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5149	5248	
==>= Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5149	5248	
==>= Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5149	5248	
==>= Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1508	1648	
==>e\n";
    }

    # Ensure that the message is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @cal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9030	9132	
==>$program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9018	9120	
==>$program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20149	20232	
==>(X),C), !.
rm(class_neg(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_neg(X),C <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	339	498	
==>e File::Find;
    File::Find::find(sub { push @modules, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MO <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3524	3629	
==>han, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3524	3629	
==>han, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1402	1534	
==>0..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().unio <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1402	1534	
==>0..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().unio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	765	906	
==>other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	765	906	
==>other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	765	906	
==>other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instance <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	955	1119	
==>( $opt->{precedence} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{preced <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7088	7188	
==>expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7146	7246	
==>expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	789	914	
==>open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	789	914	
==>open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13557	13767	
==>ACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13557	13767	
==>ACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13557	13767	
==>ACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	578	705	
==>rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	594	721	
==>rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	570	697	
==>rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2607	2716	
==>de eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2607	2716	
==>de eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2607	2716	
==>de eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9631	9754	
==>%hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9631	9754	
==>%hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9127	9217	
==>ess::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteract <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2753	2872	
==>le( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2741	2860	
==>le( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #prin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	307	391	
==>ondie::Backend::C::Emitter::DuplicateFinder;
	use base qw/Blondie::Reducer::Duplicate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8104	8217	
==>lice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8104	8217	
==>lice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8104	8217	
==>lice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6362	6454	
==>(Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6362	6454	
==>(Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	546	648	
==>Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	546	648	
==>Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Ro <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4262	4401	
==>$end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@l <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4262	4401	
==>$end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1625	1736	
==>= $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3492	3598	
==>he Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3492	3598	
==>he Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5689	5795	
==>he Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13290	13407	
==>used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13290	13407	
==>used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13290	13407	
==>used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8283	8389	
==>urn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8283	8389	
==>urn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8283	8389	
==>urn "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	197	322	
==>. ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	197	322	
==>. ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub c <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	313	408	
==>d this modules source before using
* examine the proccesed source code by hand if getting strang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13679	13774	
==>dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13679	13774	
==>dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13679	13774	
==>dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6711	6816	
==>lly the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is th <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6711	6816	
==>lly the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2228	2330	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2228	2330	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2228	2330	
==>primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14291	14375	
==>n::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14291	14375	
==>n::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14291	14375	
==>n::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1662	1758	
==>) })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1662	1758	
==>) })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1662	1758	
==>) })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	335	432	
==>nal soul, really concreate and practical 
# things like Object, Package and Module. It was also cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	335	432	
==>nal soul, really concreate and practical 
# things like Object, Package and Module. It was also cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	335	432	
==>nal soul, really concreate and practical 
# things like Object, Package and Module. It was also cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6474	6592	
==>($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6474	6592	
==>($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6474	6592	
==>($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	649	757	
==>RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20834	20932	
==>can callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20834	20932	
==>can callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to th <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3227	3341	
==>int "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	486	597	
==>tributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	486	597	
==>tributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14536	14654	
==>um $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14536	14654	
==>um $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first p <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	81	178	
==>eichnet.
#=Kontextunabhängigkeit
Da die kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5143	5252	
==>\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5143	5252	
==>\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5143	5252	
==>\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	402	498	
==>h = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-T <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	402	498	
==>h = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-T <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2224	2354	
==>{
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2224	2354	
==>{
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1076	1193	
==>nstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1076	1193	
==>nstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1076	1193	
==>nstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
} <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2142	2239	
==>ags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, mo <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2142	2239	
==>ags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, mo <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	561	687	
==>my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	561	687	
==>my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6461	6558	
==>$Object class_precendence_list');

## test adding a class method (as a signleton method on the cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9222	9371	
==>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9222	9371	
==>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9222	9371	
==>elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20150	20244	
==>p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20150	20244	
==>p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20150	20244	
==>p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3326	3426	
==>warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3326	3426	
==>warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3326	3426	
==>warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6521	6619	
==>utNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6521	6619	
==>utNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6521	6619	
==>utNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2382	2526	
==>nt ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2382	2526	
==>nt ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2382	2526	
==>nt ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	408	589	
==>'$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	408	589	
==>'$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	408	589	
==>'$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21023	21123	
==>e result of doing so,
it that only the last of these fields will be present in the header
after the c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21023	21123	
==>e result of doing so,
it that only the last of these fields will be present in the header
after the c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25844	25928	
==>|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_ANCH_G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1533	1645	
==>f->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1533	1645	
==>f->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1533	1645	
==>f->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextTo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9589	9677	
==>ing_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9589	9677	
==>ing_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9589	9677	
==>ing_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7080	7393	
==>ss %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        u <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7080	7393	
==>ss %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4601	4696	
==>cher) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1716	1812	
==>r usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1716	1812	
==>r usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1716	1812	
==>r usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
** <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	142	265	
==>tring.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	142	265	
==>tring.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	142	265	
==>tring.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2846	3011	
==>ule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2846	3011	
==>ule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5591	5719	
==>rite to META.yml: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $fil <==
3	/Users/nnunley/pugs/util/addauthors.pl	731	855	
==>en_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20843	20940	
==>end which
I recommend above all others for production use.

Most of the other (near term) third pa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20843	20940	
==>end which
I recommend above all others for production use.

Most of the other (near term) third pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3670	3862	
==>ap { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3670	3862	
==>ap { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3670	3862	
==>ap { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15248	15350	
==>ss->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15248	15350	
==>ss->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15248	15350	
==>ss->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10839	10965	
==>re {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10839	10965	
==>re {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10839	10965	
==>re {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26586	26682	
==>Bool - This attribute is True if the Relation::Example is allowed to and/or has the
ability to mu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26096	26191	
==>ject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30648	30743	
==>ject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3726	3904	
==>y->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3726	3904	
==>y->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3726	3904	
==>y->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6340	6473	
==>]*)
    /ixms) {
        my $author = $1 || $2;
        $author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->autho <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2081	2199	
==>results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wa <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2081	2199	
==>results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9582	9699	
==>{

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13059	13176	
==>{

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant <==
3	/Users/nnunley/pugs/util/drift.pl	1882	2021	
==>/);
		print OUT;
	}
}

close IN;

shift(@program) until $program[0] =~ /Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11639	11732	
==>t is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audr <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11639	11732	
==>t is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7272	7423	
==>s($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Result4;
}

# 9.7
multi sub ToUint16(JSX::Value $v) {
    use Math <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13026	13125	
==>word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13026	13125	
==>word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12613	12714	
==>int $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12613	12714	
==>int $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12613	12714	
==>int $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15129	15257	
==>end('add_method' => (
    # method label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14160	14262	
==>of_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7580	7679	
==>e (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7580	7679	
==>e (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	605	700	
==>};
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	605	700	
==>};
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	605	700	
==>};
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	686	796	
==>::round_half_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7277	7376	
==>f byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers sh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7277	7376	
==>f byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11881	12009	
==>y $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11881	12009	
==>y $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11881	12009	
==>y $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26328	26425	
==>t;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::L <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17135	17227	
==>=item $h.content_language

The natural language(s) of the intended audience for the message
c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17135	17227	
==>=item $h.content_language

The natural language(s) of the intended audience for the message
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9099	9243	
==>lue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9099	9243	
==>lue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9099	9243	
==>lue::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7615	7773	
==>re_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7615	7773	
==>re_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7615	7773	
==>re_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16915	17027	
==>un => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and retur <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	327	420	
==>ms plausible, no?

Clutter::int_sizes 1,2,4... doesnt add much clarity, given the cruft
of wra <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	337	471	
==>x,$str,$iter);
        return $str;
      }else{
        $str ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4731	4845	
==>t_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!memb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4731	4845	
==>t_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1348	1444	
==>XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1348	1444	
==>XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1348	1444	
==>XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	128	242	
==>t;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0 <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	128	242	
==>t;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1476	1571	
==>clary.com/2004/11/07/ecma-262
#
#  The SPEC grammar SHOULD NOT BE CHANGED to accommodate the cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	974	1080	
==>ch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	974	1080	
==>ch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	974	1080	
==>ch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	622	726	
==>lass.

A class is a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19134	19238	
==>rtion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15555	15659	
==>rtion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3519	3617	
==>~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?) <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	532	633	
==>ers;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne ' <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	532	633	
==>ers;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1127	1243	
==>ass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1127	1243	
==>ass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1127	1243	
==>ass (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside t <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1457	1554	
==>me-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE AL <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1457	1554	
==>me-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE AL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7481	7607	
==>" ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7493	7619	
==>" ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2436	2545	
==>nyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  # bound (not a word boundar <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8844	8942	
==>ire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

This ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8844	8942	
==>ire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

This ev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10451	10571	
==>son" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2468	2576	
==>son" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2468	2576	
==>son" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4001	4109	
==>string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4001	4109	
==>string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!hea <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2162	2273	
==>%StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2162	2273	
==>%StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8451	8551	
==>te
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8451	8551	
==>te
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5969	6066	
==>- base class for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1051	1177	
==>n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1256	1382	
==>n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statem <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38660	38756	
==>6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMIT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2799	2901	
==>.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2799	2901	
==>.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2799	2901	
==>.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3298	3383	
==>opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3298	3383	
==>opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3298	3383	
==>opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5598	5755	
==>ep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5598	5755	
==>ep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1932	2075	
==>nt $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    pr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6793	6919	
==>der("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6793	6919	
==>der("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.heade <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6826	6924	
==>et to the end of the line and find no closing match, I should
ignore the opening one. However, this <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6826	6924	
==>et to the end of the line and find no closing match, I should
ignore the opening one. However, this <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7329	7429	
==>intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7329	7429	
==>intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	41	136	
==>b *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6488	6586	
==>::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6488	6586	
==>::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6488	6586	
==>::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6434	6564	
==>superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6434	6564	
==>superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6434	6564	
==>superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaq <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4588	4703	
==>nted"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4588	4703	
==>nted"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my <==
3	/Users/nnunley/pugs/util/importgraph.pl	1105	1211	
==>ed $module_name) {
    warn "couldn't find a module in $File::Find::name\n";
    return;
  }

  $modules{$m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15015	15116	
==>ience methods.  These methods can both be used to read
and to set the value of a header.  The header v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15015	15116	
==>ience methods.  These methods can both be used to read
and to set the value of a header.  The header v <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4086	4184	
==>nd setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4086	4184	
==>nd setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6283	6381	
==>nd setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5388	5535	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5610	5757	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	32	127	
==>tegory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use Pugs::Compiler::Regex;
use base <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1074	1180	
==>tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the fir <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1074	1180	
==>tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the fir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1154	1260	
==>tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the fir <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2078	2220	
==>ment as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$fe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3670	3808	
==>ment as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$fe <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14262	14368	
==>ML::TreeBuilder->new_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15056	15258	
==>s->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15056	15258	
==>s->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15056	15258	
==>s->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4617	4719	
==>lice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4617	4719	
==>lice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4617	4719	
==>lice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2175	2298	
==>s not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2175	2298	
==>s not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2175	2298	
==>s not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1528	1641	
==>earch    => $config); 
    add_path(installsitelib     => $config); 

    $config->{perl5path} = $^X;
    $config- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2482	2575	
==>t_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns B <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2482	2575	
==>t_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns B <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27676	27765	
==>: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COP <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24867	24992	
==>ch;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25146	25271	
==>ch;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	124	229	
==>er qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_rule'} = Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10680	10786	
==>] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if neces <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10680	10786	
==>] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if neces <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10680	10786	
==>] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if neces <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2426	2525	
==>referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2426	2525	
==>referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2426	2525	
==>referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13586	13696	
==>{$.v};

	die "no such identifier " . $.v unless defined $t;
	
	$t;
}

# values also pass the set of generics un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9438	9527	
==>erl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3263	3352	
==>erl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5407	5522	
==>cal scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5407	5522	
==>cal scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5407	5522	
==>cal scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2442	2603	
==>4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14638	14730	
==>tities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entna <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14638	14730	
==>tities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5015	5123	
==>/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5015	5123	
==>/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5015	5123	
==>/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8355	8453	
==>alse if called again.

=head2 Building the Tree

If you don't care to intercept the building of the <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1205	1299	
==>up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1205	1299	
==>up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3839	3982	
==>int $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3839	3982	
==>int $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3839	3982	
==>int $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17877	17987	
==>ror qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7427	7521	
==>?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Boo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7427	7521	
==>?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Boo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17137	17258	
==>r than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20614	20735	
==>r than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20192	20313	
==>r than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4708	4849	
==>}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4708	4849	
==>}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4708	4849	
==>}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5825	5924	
==>ur &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5825	5924	
==>ur &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5825	5924	
==>ur &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2813	2922	
==>as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2813	2922	
==>as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $even <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	495	601	
==>erl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6	116	
==>/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6	116	
==>/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6	116	
==>/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11561	11666	
==>ec.
  The hooks are not package-specific.

Design:

  The comp hook sub should return a subref, which gets <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3469	3561	
==>ne was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$othe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3469	3561	
==>ne was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$othe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4193	4411	
==>fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4193	4411	
==>fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5313	5418	
==>kens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5313	5418	
==>kens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5313	5418	
==>kens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11048	11189	
==>'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11048	11189	
==>'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11048	11189	
==>'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	755	844	
==>se Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	755	844	
==>se Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	755	844	
==>se Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4419	4557	
==>ut

### XXX package name?
sub is_installed {
    my $self = shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10144	10239	
==>l6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( star <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10144	10239	
==>l6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4334	4458	
==>attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4334	4458	
==>attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4334	4458	
==>attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('F <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34599	34695	
==>ent, where the heading of <$other> is a subset of the
heading of the invocant Relation, and retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39149	39245	
==>ent, where the heading of <$other> is a subset of the
heading of the invocant Relation, and retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	520	631	
==>(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	780	891	
==>(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1052	1163	
==>(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        ma <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1735	1833	
==>nt '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3102	3197	
==>Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3102	3197	
==>Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1575	1681	
==>PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1575	1681	
==>PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1575	1681	
==>PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4972	5086	
==>=~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27320	27415	
==>e original's attributes; the new Relation has as
many additional attributes as there are pairs i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31872	31967	
==>e original's attributes; the new Relation has as
many additional attributes as there are pairs i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	524	639	
==>[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	524	639	
==>[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	524	639	
==>[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13220	13330	
==>nitrd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6303	6408	
==>def if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6303	6408	
==>def if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6038	6140	
==>hod contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6038	6140	
==>hod contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	0	91	
==>﻿package Pugs::Grammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Ope <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	845	975	
==>ods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { pri <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6729	6828	
==>e is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6729	6828	
==>e is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11132	11267	
==>mber;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1604	1725	
==>mber;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1604	1725	
==>mber;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/util/version_h.pl	1297	1406	
==>ource_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11001	11100	
==>res data to be used or
displayed by your program.  It is analagous to a simplified version of the
"D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11001	11100	
==>res data to be used or
displayed by your program.  It is analagous to a simplified version of the
"D <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1892	2025	
==>Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1892	2025	
==>Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( star <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	998	1109	
==>-CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19167	19275	
==>>[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20525	20633	
==>>[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8571	8684	
==>ckup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8571	8684	
==>ckup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8571	8684	
==>ckup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4833	4973	
==>Param}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4833	4973	
==>Param}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4833	4973	
==>Param}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurp <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4654	4751	
==>ullterm") < 1);
    ($operator, my $stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23174	23269	
==>n supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>invit <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23174	23269	
==>n supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>invit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2195	2353	
==>[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2255	2413	
==>[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12373	12482	
==>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12373	12482	
==>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12373	12482	
==>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	254	358	
==>lf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	254	358	
==>lf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	254	358	
==>lf->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12268	12407	
==>" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8544	8683	
==>" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9379	9518	
==>" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tai <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27469	27576	
==>m<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my $ret = swi_find_on <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16135	16222	
==>ngy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobli <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16193	16280	
==>ngy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	726	862	
==>elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	726	862	
==>elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	726	862	
==>elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8836	8947	
==>will be false if a fatal error was raised in the inital scan
of the regex.

=head2 Getting the Tree

You can acc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9898	9993	
==>lar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string represe <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9898	9993	
==>lar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string represe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13419	13625	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13698	13904	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8145	8309	
==>rg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8145	8309	
==>rg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8145	8309	
==>rg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	989	1112	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	989	1112	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	989	1112	
==>rn $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6128	6266	
==>_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6321	6459	
==>_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { consta <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	644	756	
==>f="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'new'   {
        print template( "wiki.tmpl", <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24490	24583	
==>d is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24490	24583	
==>d is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	939	1052	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	939	1052	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	939	1052	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1199	1296	
==>$body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1199	1296	
==>$body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1199	1296	
==>$body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16578	16759	
==>> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20055	20236	
==>> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19615	19796	
==>> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	933	1065	
==>y sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonempt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1641	1772	
==>2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1585	1713	
==>2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1789	1890	
==>ODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1789	1890	
==>ODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1789	1890	
==>ODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23099	23196	
==>OPENs (capturing groups) in the regex.

=item captures

An array reference to the 'open' nodes.

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7205	7301	
==>tercommunication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6960	7053	
==>tercommunication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6980	7073	
==>e() constructor provides an interface between the 

low-level functional operators, and the hi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6741	6833	
==>e() constructor provides an interface between the 
low-level functional operators, and the hi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	553	709	
==>tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	839	983	
==>tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14860	14968	
==>g, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5025	5130	
==>__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5025	5130	
==>__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7234	7329	
==>1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	57	156	
==>erl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package list;

u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14961	15052	
==>Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Nati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14961	15052	
==>Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Nati <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9362	9513	
==>oto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        got <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10353	10504	
==>oto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        got <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1736	1847	
==>nc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4708	4842	
==>thod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4708	4842	
==>thod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4708	4842	
==>thod_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3766	3937	
==>fix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    for my $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3462	3571	
==>uplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6939	7048	
==>uplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5896	6005	
==>uplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1694	1824	
==>r @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1694	1824	
==>r @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1694	1824	
==>r @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1910	2007	
==>s; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1910	2007	
==>s; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1910	2007	
==>s; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module->nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6444	6550	
==>e).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test::More: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5313	5415	
==>e::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5128	5226	
==>e::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	736	841	
==>8-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	736	841	
==>8-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	736	841	
==>8-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31636	31742	
==>ass to
ensure that there is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7891	7980	
==>s rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7891	7980	
==>s rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1868	2006	
==>> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1868	2006	
==>> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1868	2006	
==>> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17915	18061	
==>ult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17915	18061	
==>ult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17915	18061	
==>ult = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3500	3608	
==>ns the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is wha <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3500	3608	
==>ns the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is wha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3580	3688	
==>ns the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3551	3675	
==>ul :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3551	3675	
==>ul :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3551	3675	
==>ul :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatch <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3669	3827	
==>k_this   = 1;
                my $unlink_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_name <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3417	3547	
==>his.
        # (registry lookup?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= join <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8640	8759	
==>cord seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8640	8759	
==>cord seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2110	2225	
==>m', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	738	847	
==>et member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4216	4325	
==>et member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14412	14520	
==>};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7112	7236	
==>e;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7112	7236	
==>e;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7614	7730	
==>atorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduce_args:
  goto reduce <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9172	9433	
==>an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runt <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1035	1261	
==>_children(
                                Tree.new(:node<Hash::Const>),
                                Tree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:no <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	424	523	
==>N{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7805	7923	
==>_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7805	7923	
==>_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1512	1615	
==>tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Vo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9391	9568	
==>class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13311	13430	
==>m to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13311	13430	
==>m to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_per <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3962	4102	
==>ip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3962	4102	
==>ip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5437	5542	
==>e_object(anyof_class => $S->force_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	434	552	
==>kenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	434	552	
==>kenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	434	552	
==>kenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	125	228	
==>est>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	125	228	
==>est>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2079	2176	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2079	2176	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2079	2176	
==>self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10192	10347	
==>om_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10192	10347	
==>om_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10192	10347	
==>om_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @ite <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	866	981	
==>turn $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $un <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	866	981	
==>turn $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $un <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2892	3010	
==>definitions#/$all_definitions/;

    print $template;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Confi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	683	792	
==>ments <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	683	792	
==>ments <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	715	817	
==>f the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	715	817	
==>f the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this clas <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1535	1636	
==>[[Put]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2146	2254	
==>er, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2146	2254	
==>er, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2146	2254	
==>er, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	831	955	
==>{ ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	831	955	
==>{ ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	831	955	
==>{ ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6200	6358	
==>+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6200	6358	
==>+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $typ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	931	1039	
==>$ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9090	9190	
==>' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9086	9186	
==>' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifie <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	734	872	
==>))) {
				$self->{seen}->insert($orig);
			}
			$self->Blondie::Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $clas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13091	13198	
==>nd create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13091	13198	
==>nd create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4258	4368	
==>er such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4258	4368	
==>er such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4258	4368	
==>er such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5995	6133	
==>) = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5995	6133	
==>) = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5995	6133	
==>) = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8665	8771	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8665	8771	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8665	8771	
==>bel =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22701	22799	
==>y useful details, so
that each Template can optionally use them; but often a template will
choose t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22701	22799	
==>y useful details, so
that each Template can optionally use them; but often a template will
choose t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	201	298	
==>ally 
pretty bad actually, and the s-expr got quite messy
as well. Although that could be fixed wi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1714	1841	
==>t Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1714	1841	
==>t Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2861	2965	
==>d}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2861	2965	
==>d}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11925	12044	
==>ther, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11925	12044	
==>ther, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11925	12044	
==>ther, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11140	11246	
==>mc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11140	11246	
==>mc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6304	6402	
==>$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13104	13205	
==>urn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13104	13205	
==>urn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13104	13205	
==>urn(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2654	2918	
==>d_children(
                                Tree.new(:node<Bare>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2731	2835	
==>0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

P <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2731	2835	
==>0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28375	28468	
==>mbined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32927	33020	
==>mbined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32055	32148	
==>mbined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10695	10788	
==>, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs do <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10753	10846	
==>, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4777	4899	
==>rl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4777	4899	
==>rl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4777	4899	
==>rl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	871	984	
==>args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	871	984	
==>args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	871	984	
==>args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21945	22074	
==>s => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21945	22074	
==>s => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21945	22074	
==>s => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	231	343	
==>ch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	231	343	
==>ch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	231	343	
==>ch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.er <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2207	2371	
==>er => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2454	2618	
==>er => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14134	14245	
==>ession :words {  # see 11.2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :words {  # se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15263	15495	
==>for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15263	15495	
==>for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15263	15495	
==>for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4318	4421	
==>thod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4318	4421	
==>thod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4318	4421	
==>thod('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $rol <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29835	29945	
==>having the same names as old attributes
that were wrapped, and it supports having old tuple-valued attributes w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34387	34497	
==>having the same names as old attributes
that were wrapped, and it supports having old tuple-valued attributes w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33551	33661	
==>having the same names as old attributes
that were wrapped, and it supports having old tuple-valued attributes w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7193	7298	
==>$backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7193	7298	
==>$backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7193	7298	
==>$backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12093	12214	
==>> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12093	12214	
==>> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12093	12214	
==>> 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current cl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27988	28088	
==>", ":t map");
is(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 + x)");

dies_ok { t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32693	32788	
==>external Template modules as a template.
The Translator class as a whole is not pure and determi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32693	32788	
==>external Template modules as a template.
The Translator class as a whole is not pure and determi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3476	3573	
==>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3476	3573	
==>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3476	3573	
==>{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19698	19815	
==>ext"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item cont <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6751	6925	
==>turn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6751	6925	
==>turn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $ <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	657	802	
==>push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13811	13942	
==>method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13811	13942	
==>method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13811	13942	
==>method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28920	29029	
==>equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation::Example>

T <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25429	25525	
==>equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29981	30077	
==>equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14499	14690	
==>else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17976	18167	
==>else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17392	17583	
==>else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9030	9169	
==>= $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9030	9169	
==>= $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9030	9169	
==>= $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17018	17112	
==>es'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17018	17112	
==>es'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17018	17112	
==>es'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1565	1672	
==>ure {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1565	1672	
==>ure {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23975	24069	
==>gify, "∀α. ∀β. α → β", "pretty print a -> b");

	$b->instantiate( type::operator::nul <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4449	4580	
==>ig;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $self->{_top}{base};
    "$base/bl <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	349	443	
==>r ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $fi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	349	443	
==>r ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3494	3602	
==>P6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3494	3602	
==>P6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3494	3602	
==>P6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13392	13526	
==>if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13392	13526	
==>if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13392	13526	
==>if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13128	13253	
==>ashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13128	13253	
==>ashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13128	13253	
==>ashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clon <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1849	1950	
==>der($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1849	1950	
==>der($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1469	1571	
==>d.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1469	1571	
==>d.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1469	1571	
==>d.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8830	8931	
==>pe::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "Can' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5911	6008	
==>turned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::Hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5911	6008	
==>turned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::Hea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31256	31357	
==>d it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returnin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35806	35907	
==>d it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returnin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35024	35125	
==>d it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returnin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2577	2731	
==>WP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2577	2731	
==>WP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1751	1866	
==>et, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Builtins - 

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22507	22603	
==>op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22507	22603	
==>op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22507	22603	
==>op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2237	2352	
==>ould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2237	2352	
==>ould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2237	2352	
==>ould use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6370	6528	
==>= $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6428	6586	
==>= $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20456	20566	
==>r, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (hash % <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4299	4395	
==>:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4299	4395	
==>:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5823	5919	
==>:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	67	202	
==>@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	67	202	
==>@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27037	27132	
==>CharacterEscape>
    | <CharacterClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar is J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9727	9848	
==>...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9727	9848	
==>...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9727	9848	
==>...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	639	746	
==>et_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	639	746	
==>et_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	639	746	
==>et_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2421	2516	
==>reduces a program into a string of
(hopefully) perlish text.

=head1 SYNOPSIS

	use Blondie::Emi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5020	5113	
==>urns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5020	5113	
==>urns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	541	645	
==>ams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	541	645	
==>ams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	541	645	
==>ams);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::make_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14030	14188	
==>lass => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14030	14188	
==>lass => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14030	14188	
==>lass => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5804	5949	
==>dir
        print "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site . <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3944	4038	
==>moving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_cou <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3944	4038	
==>moving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_cou <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1552	1711	
==>} )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(str <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1552	1711	
==>} )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	212	328	
==>throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_error <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	212	328	
==>throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_error <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	212	328	
==>throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_error <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6282	6381	
==>dary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ". <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32630	32726	
==>perator, and the order of its arguments is not significant to the result;
the new Relation contai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37180	37276	
==>perator, and the order of its arguments is not significant to the result;
the new Relation contai <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	381	560	
==>e {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	381	560	
==>e {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24658	24786	
==>ags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8956	9080	
==>( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8956	9080	
==>( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8956	9080	
==>( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9243	9368	
==>::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9243	9368	
==>::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9243	9368	
==>::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->ne <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15258	15411	
==>t" },
  using  => sub {
    system
      "mkisofs",
      "-R",                                # Generate Rock Ridge directory information
      "-b" => " <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5458	5560	
==>han = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5458	5560	
==>han = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2423	2532	
==>q "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2423	2532	
==>q "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2423	2532	
==>q "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6382	6530	
==>it($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3507	3655	
==>it($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4356	4504	
==>it($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1637	1732	
==>mmand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1477	1572	
==>mmand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3101	3204	
==>ver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    m <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3101	3204	
==>ver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4014	4133	
==>thod freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4014	4133	
==>thod freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Con <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2000	2105	
==>ew((shift)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num type


=head1 METHODS

=o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7278	7387	
==>arse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .local string target, value
    .local pmc m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3615	3708	
==>ath/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=hea <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3615	3708	
==>ath/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9253	9352	
==>rt` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9253	9352	
==>rt` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10008	10106	
==>WN($lhs),DOWN($rhs));
}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10331	10421	
==>$+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11066	11156	
==>$+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6161	6282	
==>fault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6161	6282	
==>fault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6161	6282	
==>fault ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	147	277	
==>rray {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_siz <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	147	277	
==>rray {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_siz <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6745	6841	
==>urn $S->force_object(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17770	17940	
==>1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21247	21417	
==>1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20834	21004	
==>1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3956	4057	
==>ner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3956	4057	
==>ner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5274	5368	
==>oo->new;
is($iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	807	983	
==>pe, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header| <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	807	983	
==>pe, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header| <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2247	2386	
==>ke the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	688	819	
==>e}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	688	819	
==>e}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	688	819	
==>e}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3470	3662	
==>ol = substr( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11797	11934	
==>y slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11797	11934	
==>y slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11797	11934	
==>y slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2109	2229	
==>ame.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is your C compiler <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9006	9105	
==>ge name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_F <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9006	9105	
==>ge name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_F <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9998	10136	
==>= split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9998	10136	
==>= split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15091	15200	
==>py $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $iso <= - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3784	3906	
==>}
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3784	3906	
==>}
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3784	3906	
==>}
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32650	32783	
==>if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32650	32783	
==>if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32650	32783	
==>if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3326	3434	
==>0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3326	3434	
==>0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3326	3434	
==>0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14090	14227	
==>} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14090	14227	
==>} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14090	14227	
==>} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11685	11793	
==>{ # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11685	11793	
==>{ # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11685	11793	
==>{ # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2309	2405	
==>rypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keys <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2309	2405	
==>rypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keys <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2903	3039	
==>ifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split(" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2903	3039	
==>ifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7772	7925	
==>ub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7772	7925	
==>ub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7772	7925	
==>ub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5636	5731	
==>returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5636	5731	
==>returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4841	4927	
==>{p6_new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6769	6903	
==>p;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6769	6903	
==>p;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6769	6903	
==>p;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6107	6193	
==>ent<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6107	6193	
==>ent<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($even <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3966	4067	
==>ule Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3966	4067	
==>ule Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4817	4911	
==>range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true}.

%# XXX - spac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22186	22291	
==>s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22186	22291	
==>s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22186	22291	
==>s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10378	10481	
==>.. )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10378	10481	
==>.. )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10005	10173	
==>{
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$fil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10005	10173	
==>{
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1023	1130	
==>ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1023	1130	
==>ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1023	1130	
==>ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref cal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2027	2164	
==>rn $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2087	2224	
==>rn $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #war <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1881	1974	
==>rator::binary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_layout($$) }

ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10222	10329	
==>L::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prelude::JS;

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10222	10329	
==>L::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prelude::JS;

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10222	10329	
==>L::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Prelude::JS;

1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18779	18878	
==>onal
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18779	18878	
==>onal
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	126	224	
==>xp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1099	1254	
==>.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1099	1254	
==>.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2319	2456	
==>tch->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NO <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2245	2374	
==>tch->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NO <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11825	11922	
==>ntly not implemented, so you will have to wait
a little while. Until then, you can just write your <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11883	11980	
==>ntly not implemented, so you will have to wait
a little while. Until then, you can just write your <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9729	9904	
==>y;
                $str .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	595	694	
==>" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	595	694	
==>" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3411	3530	
==>if none was available.

=cut

sub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	382	497	
==>tead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<O <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	382	497	
==>tead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22900	23076	
==>calar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22900	23076	
==>calar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22900	23076	
==>calar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35682	35805	
==>( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35682	35805	
==>( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35682	35805	
==>( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9752	9861	
==>cant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @part <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8217	8314	
==>ents to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8217	8314	
==>ents to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22224	22314	
==>- see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22224	22314	
==>- see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22224	22314	
==>- see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18952	19083	
==>his is the 
        # correct syntax for fetching
        # an attribute symbolically
        $.($key) = $value if $.($key);
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7155	7258	
==>ant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7155	7258	
==>ant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29118	29218	
==>tines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way of running tests q <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1523	1617	
==>::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1523	1617	
==>::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11391	11543	
==>w(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11391	11543	
==>w(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11391	11543	
==>w(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14742	14856	
==>tr $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $ta <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14742	14856	
==>tr $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $ta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17317	17416	
==>difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20794	20893	
==>difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20372	20471	
==>difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	349	472	
==>encee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	349	472	
==>encee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	349	472	
==>encee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3911	4039	
==>}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3911	4039	
==>}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14881	14992	
==>able file from the name of
	# the command.

	if ($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	191	286	
==>ethod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	191	286	
==>ethod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	191	286	
==>ethod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5918	6053	
==>add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5918	6053	
==>add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5918	6053	
==>add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3	99	
==>*- Mode: cperl; cperl-indent-level: 4 -*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

packa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2014	2109	
==>tch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2014	2109	
==>tch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically s <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2039	2259	
==>nd_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('l <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2039	2259	
==>nd_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('l <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28421	28520	
==>is,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Test <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35124	35218	
==>Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns a d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35124	35218	
==>Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns a d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7182	7282	
==>rn => $() ,} }
RULE
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2097	2190	
==>Arcfour is perfectly secure when used properly, it has several known 
problems and weaknesses. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2097	2190	
==>Arcfour is perfectly secure when used properly, it has several known 
problems and weaknesses. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1466	1581	
==>Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $numb <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2815	2919	
==>d = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2815	2919	
==>d = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	488	586	
==>tfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RUL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	488	586	
==>tfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RUL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	488	586	
==>tfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10183	10308	
==>_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10183	10308	
==>_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10183	10308	
==>_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4572	4680	
==>e PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4572	4680	
==>e PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4572	4680	
==>e PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	636	736	
==>rn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	636	736	
==>rn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	636	736	
==>rn sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6332	6484	
==>ecreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6332	6484	
==>ecreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17886	17983	
==>regexp and its abuse

=head1 Description

The perl5 regexp engine is entangled with the rest of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8294	8380	
==>pand();
}

#======================================================================

use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8294	8380	
==>pand();
}

#======================================================================

use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8294	8380	
==>pand();
}

#======================================================================

use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2437	2571	
==>o
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1978	2076	
==>hy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1978	2076	
==>hy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4014	4142	
==>curse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4014	4142	
==>curse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4014	4142	
==>curse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7789	7891	
==>my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7789	7891	
==>my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7789	7891	
==>my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8923	9058	
==>tance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8923	9058	
==>tance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8923	9058	
==>tance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11049	11143	
==>------------------------------------------------

What if Roles could provide their own BUILD s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11049	11143	
==>------------------------------------------------

What if Roles could provide their own BUILD s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11049	11143	
==>------------------------------------------------

What if Roles could provide their own BUILD s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5142	5281	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5343	5476	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5343	5476	
==>pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7544	7647	
==>api;

    nulpat = savepv(""); /*XXX - can be constant? */
    r = Perl_pregcomp(aTHX_ nulpat,nulpat,pm) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1340	1458	
==>eturn { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1340	1458	
==>eturn { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3202	3305	
==>rns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (shift) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9381	9523	
==>unt < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9381	9523	
==>unt < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9381	9523	
==>unt < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_singl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2569	2683	
==>>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2753	2867	
==>>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <s <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3688	3785	
==>loaded -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	802	912	
==>nt STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	802	912	
==>nt STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	802	912	
==>nt STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7189	7304	
==>urn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3793	3908	
==>urn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4642	4757	
==>urn emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3851	3981	
==>if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3851	3981	
==>if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7872	7973	
==>($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1215	1363	
==>or { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1215	1363	
==>or { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1215	1363	
==>or { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25419	25614	
==>culate it ..
                          $e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8335	8438	
==>d}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8323	8426	
==>d}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	990	1170	
==>->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	990	1170	
==>->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	990	1170	
==>->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15872	16012	
==>eader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = /\.(\w+)$/ ? $1 : '';
        my $len    = l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34253	34345	
==>new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34253	34345	
==>new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedTex <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13596	13728	
==>output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfile($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6490	6581	
==>'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11548	11639	
==>'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	559	674	
==>ethod any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	559	674	
==>ethod any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2806	2905	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2806	2905	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2806	2905	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	225	401	
==>'&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&rep <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22443	22535	
==>a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sen <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22443	22535	
==>a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13300	13439	
==>rnation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13300	13439	
==>rnation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	487	598	
==>Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	487	598	
==>Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	487	598	
==>Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36398	36499	
==>f: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36398	36499	
==>f: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36398	36499	
==>f: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1218	1325	
==>be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1218	1325	
==>be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1218	1325	
==>be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test// <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3361	3458	
==>ing of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3361	3458	
==>ing of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3361	3458	
==>ing of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17030	17241	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17030	17241	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17030	17241	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3370	3480	
==>":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3370	3480	
==>":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3370	3480	
==>":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, % <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10414	10587	
==>n( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13891	14064	
==>n( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1013	1101	
==>s>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	369	488	
==>hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	369	488	
==>hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	369	488	
==>hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11525	11650	
==>eak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11525	11650	
==>eak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11525	11650	
==>eak grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26729	26858	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27008	27137	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3826	3928	
==>( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3826	3928	
==>( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3906	4008	
==>( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21745	21935	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21745	21935	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21745	21935	
==>} = undef;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	820	916	
==>ject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	820	916	
==>ject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	820	916	
==>ject' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2678	2824	
==>) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2678	2824	
==>) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4829	4954	
==>ay::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length(1));

 multi Array::shift ( --> Scalar ) {
   Array::shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3439	3543	
==>.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3439	3543	
==>.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3439	3543	
==>.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	551	668	
==>te $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	551	668	
==>te $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	272	367	
==>n of the Mini-MetaModel which adds explicit Eigenclasses
## to all Classes created. See Method_D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3757	3871	
==>obj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3757	3871	
==>obj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3757	3871	
==>obj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9830	9967	
==>= ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9830	9967	
==>= ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23274	23377	
==>rs), which can be employed when objects of
multiple different Relation-implementing classes are used tog <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10491	10600	
==>$post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10485	10594	
==>$post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17035	17118	
==>ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_Re),F0,F0,B0,B0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14431	14522	
==>rl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14431	14522	
==>rl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14431	14522	
==>rl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8623	8760	
==>ed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8623	8760	
==>ed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8623	8760	
==>ed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	824	930	
==>) }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	824	930	
==>) }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	824	930	
==>) }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is prim <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	591	718	
==>Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	591	718	
==>Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Requ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4911	5003	
==>inbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3244	3379	
==>n");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3244	3379	
==>n");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4768	4903	
==>n");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4135	4264	
==>'{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4135	4264	
==>'{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4135	4264	
==>'{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6198	6310	
==>ng,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9675	9787	
==>ng,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8749	8861	
==>ng,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6719	6845	
==>d
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7234	7331	
==>rds(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7234	7331	
==>rds(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7414	7509	
==>lass->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7414	7509	
==>lass->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7414	7509	
==>lass->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14401	14598	
==>b ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14401	14598	
==>b ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14401	14598	
==>b ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17424	17521	
==>es.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17424	17521	
==>es.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17424	17521	
==>es.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19336	19439	
==>or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19336	19439	
==>or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31464	31563	
==>, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is deprecated, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	418	526	
==>'t open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	418	526	
==>'t open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	418	526	
==>'t open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1 <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2240	2376	
==>00 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

metho <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2240	2376	
==>00 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12744	12830	
==>iX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12744	12830	
==>iX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12744	12830	
==>iX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	116	216	
==>ional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=f <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	116	216	
==>ional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10355	10470	
==>";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're current <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10355	10470	
==>";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're current <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4624	4736	
==>6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4129	4290	
==>bel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4129	4290	
==>bel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4129	4290	
==>bel, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2890	2984	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1513	1616	
==>_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1513	1616	
==>_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1513	1616	
==>_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($ya <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9674	9781	
==>ilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9674	9781	
==>ilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9674	9781	
==>ilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9954	10111	
==>cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9954	10111	
==>cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9954	10111	
==>cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4496	4621	
==>t->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4496	4621	
==>t->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4496	4621	
==>t->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/util/addauthors.pl	1614	1721	
==>m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => $nick, whol <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18146	18241	
==>nvolved.
By contrast, if a program simply returned words for the user, such as
'error opening fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18146	18241	
==>nvolved.
By contrast, if a program simply returned words for the user, such as
'error opening fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8532	8638	
==>=> 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8532	8638	
==>=> 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8532	8638	
==>=> 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11649	11806	
==>ing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11649	11806	
==>ing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11649	11806	
==>ing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:ce <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9196	9371	
==>king 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*pu <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9196	9371	
==>king 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*pu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11086	11179	
==><@by> for
comparisions. C<@by> differs from C<$by> in that each criteria is
applied, in order, <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2325	2425	
==>acing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report an <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2325	2425	
==>acing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report an <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13945	14056	
==>rompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13945	14056	
==>rompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1 <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	577	681	
==>l = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34844	34967	
==>s, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34844	34967	
==>s, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34844	34967	
==>s, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4242	4354	
==>jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4242	4354	
==>jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4242	4354	
==>jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2827	2937	
==>);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2827	2937	
==>);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3399	3506	
==>b new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.nam <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	112	216	
==>l5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	112	216	
==>l5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl:: <==
3	/Users/nnunley/pugs/util/package-osx.pl	2954	3093	
==>ugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	496	600	
==>KGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offs <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1960	2053	
==>segfaults on C<split>, substitution, and/or other uses.

It is currently unsuitable for just a <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	497	600	
==>d members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	497	600	
==>d members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8880	8977	
==>SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8880	8977	
==>SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8880	8977	
==>SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	590	708	
==>etrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	590	708	
==>etrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	590	708	
==>etrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4448	4553	
==>s needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy) <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4448	4553	
==>s needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10119	10210	
==>DOWN($rhs));
}

NODE MkParam ($isInvocant, $isOptional, $isNamed, $isLValue, $isWritable, $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	103	209	
==>and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	103	209	
==>and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	103	209	
==>and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25405	25511	
==>rns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29957	30063	
==>rns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28896	29002	
==>rns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9329	9438	
==>n $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12806	12915	
==>n $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12060	12169	
==>n $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &sem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	329	424	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	329	424	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	329	424	
==>);

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	321	441	
==>rgs[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an install.
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7794	7898	
==>hat.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7794	7898	
==>hat.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2111	2233	
==>ode { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2251	2373	
==>ode { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named par <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11191	11295	
==>e, if a backend only ran three tests, which it
    passed, this page would report 100 % test passes.)
  < <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1101	1209	
==>self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8571	8662	
==>l6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2396	2487	
==>l6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4404	4499	
==>efaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4404	4499	
==>efaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6601	6696	
==>efaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10946	11051	
==>ITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10946	11051	
==>ITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10946	11051	
==>ITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4983	5095	
==>($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4983	5095	
==>($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4983	5095	
==>($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9118	9222	
==>w(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9118	9222	
==>w(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9118	9222	
==>w(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9279	9383	
==>, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  meth <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9279	9383	
==>, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5318	5418	
==>en giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5318	5418	
==>en giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5318	5418	
==>en giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS:: <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1141	1297	
==>iki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub show () {
    print te <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1905	2024	
==>y $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1905	2024	
==>y $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6390	6506	
==>e))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exporta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6390	6506	
==>e))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exporta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6390	6506	
==>e))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exporta <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2239	2407	
==>{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
} <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2239	2407	
==>{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3562	3658	
==>s';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_func 'asec';
tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2430	2526	
==>compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2430	2526	
==>compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2430	2526	
==>compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30579	30733	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30579	30733	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30579	30733	
==>if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16751	16851	
==>..};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16751	16851	
==>..};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16751	16851	
==>..};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7632	7731	
==>->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7632	7731	
==>->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7632	7731	
==>->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, functi <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7481	7578	
==>list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operat <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7481	7578	
==>list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17680	17775	
==>est_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_callback;
sub st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13918	14048	
==>ck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13918	14048	
==>ck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13918	14048	
==>ck the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else { <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6931	7068	
==>air)\
\\n   List      pre     Str::split   safe   (Str)\
\\n   List      pre     Str::split   safe   (Str: Str)\
\\n   List      pre     S <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4744	4843	
==>66.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4744	4843	
==>66.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	593	687	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12621	12729	
==>e;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12621	12729	
==>e;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12621	12729	
==>e;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3596	3713	
==>ESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3596	3713	
==>ESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3596	3713	
==>ESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1502	1615	
==>base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1502	1615	
==>base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1502	1615	
==>base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5393	5489	
==>ing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5393	5489	
==>ing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5393	5489	
==>ing the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	22	118	
==>rict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use int <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	22	118	
==>rict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use int <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52572	52656	
==>->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, $::Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1693	1820	
==>quired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1693	1820	
==>quired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1693	1820	
==>quired
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x' <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1919	2054	
==>se_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traverse;
        say '  ' x $depth, @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8706	8821	
==>Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8694	8809	
==>Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16057	16168	
==>_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16057	16168	
==>_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16057	16168	
==>_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8437	8679	
==>element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8437	8679	
==>element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8437	8679	
==>element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	749	861	
==>CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	749	861	
==>CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	749	861	
==>CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6056	6158	
==>);
	}
}

sub reduce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5776	5871	
==>nels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5776	5871	
==>nels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18046	18142	
==>ing a simple 'equals', and then the
application can "do the right thing".  No parsing or ambiguit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18046	18142	
==>ing a simple 'equals', and then the
application can "do the right thing".  No parsing or ambiguit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7151	7255	
==>\{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7151	7255	
==>\{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7151	7255	
==>\{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6286	6400	
==>{
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6286	6400	
==>{
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6286	6400	
==>{
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4451	4620	
==>{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    met <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4451	4620	
==>{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    met <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	394	490	
==>installed with non-default settings, and so is not intended for
"general" use.  It's more of a pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4928	5042	
==>}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4928	5042	
==>}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4928	5042	
==>}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	18	118	
==>se warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	18	118	
==>se warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	18	118	
==>se warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3425	3556	
==>> $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15107	15204	
==>my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15107	15204	
==>my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6642	6737	
==>bgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6642	6737	
==>bgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6642	6737	
==>bgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	149	400	
==>-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	149	400	
==>-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	7112	7223	
==>3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/local/man <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6963	7184	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6963	7184	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	633	729	
==>r.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOptions \our %Config, qw(--output-file|o=s -- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7195	7351	
==>,
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7195	7351	
==>,
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1614	1736	
==>.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1614	1736	
==>.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1614	1736	
==>.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.writ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3384	3489	
==>ot, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3384	3489	
==>ot, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4908	5013	
==>ot, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3389	3561	
==>y $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'unde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3529	3701	
==>y $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'unde <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1079	1170	
==>?? Perl6::Internals::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pugs_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	644	765	
==>>), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	644	765	
==>>), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	644	765	
==>>), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20446	20539	
==>6fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alone <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20446	20539	
==>6fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3287	3405	
==>{
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3287	3405	
==>{
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3287	3405	
==>{
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	764	880	
==>tance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	969	1085	
==>tance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1025	1141	
==>tance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4530	4635	
==>he /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4530	4635	
==>he /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4530	4635	
==>he /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10068	10177	
==>_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10068	10177	
==>_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10068	10177	
==>_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	46	154	
==>ddition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	46	154	
==>ddition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1963	2063	
==>y
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1963	2063	
==>y
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1963	2063	
==>y
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('O <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8564	8662	
==>::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8564	8662	
==>::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4262	4362	
==>m,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4262	4362	
==>m,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4262	4362	
==>m,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_un <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4656	4768	
==>s an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4656	4768	
==>s an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6180	6292	
==>s an exception if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2191	2323	
==>@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2191	2323	
==>@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2633	2752	
==>$x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14453	14578	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14453	14578	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14453	14578	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6368	6500	
==>$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6368	6500	
==>$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6368	6500	
==>$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ / <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15861	15994	
==>} }){
          # reverse is since we're splicing right after the h1
            my $target  = $link->{linkfile};
            my $head <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3480	3585	
==>mbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::Do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3480	3585	
==>mbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::Do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1232	1335	
==>) if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2397	2500	
==>) if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3379	3487	
==>nce_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3379	3487	
==>nce_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3379	3487	
==>nce_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1696	1802	
==>let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1696	1802	
==>let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1696	1802	
==>let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2637	2735	
==>XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of the la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	394	490	
==>XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the la <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	394	490	
==>XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1754	1856	
==>'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1754	1856	
==>'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1754	1856	
==>'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	121	224	
==>s $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	121	224	
==>s $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	121	224	
==>s $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2096	2179	
==>oublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2096	2179	
==>oublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2096	2179	
==>oublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15157	15264	
==>conds
    has Bool $.is_dst;
}

multi sub localtime(Num $when = time) returns Time::Local
        is primiti <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17104	17199	
==>was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17104	17199	
==>was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6530	6664	
==>unction  pre     one     safe   (List)\
\\n   Junction  pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Ar <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11261	11358	
==>t is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11261	11358	
==>t is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurr <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2282	2394	
==>---------------------
-- Do not modify this file; it is generated automatically by  --
--                  util/g <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18759	18859	
==>s $document and optional
$parent_node though; you can produce a direct clone like this:

    my $clon <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18759	18859	
==>s $document and optional
$parent_node though; you can produce a direct clone like this:

    my $clon <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4272	4397	
==>ate table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4272	4397	
==>ate table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	532	646	
==>-----

use Test::More tests => 46;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6554	6712	
==>EGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6554	6712	
==>EGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6554	6712	
==>EGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11489	11651	
==>" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           "$_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5839	5992	
==>" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5839	5992	
==>" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9532	9688	
==>mper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5873	6029	
==>mper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6722	6878	
==>mper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2715	2874	
==>tate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2625	2779	
==>tate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0 <==
3	/Users/nnunley/pugs/util/fixauthors.pl	494	599	
==>@a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$uid");
  my $t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5561	5653	
==>:WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
att <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5561	5653	
==>:WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7758	7850	
==>:WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8666	8763	
==>L::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8666	8763	
==>L::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8666	8763	
==>L::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2758	2861	
==>turn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2758	2861	
==>turn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2758	2861	
==>turn $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5640	5767	
==>\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5640	5767	
==>\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5640	5767	
==>\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2308	2440	
==>y!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2308	2440	
==>y!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2308	2440	
==>y!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	865	969	
==>($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	865	969	
==>($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	865	969	
==>($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5104	5300	
==>ar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5104	5300	
==>ar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5104	5300	
==>ar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12097	12220	
==>rivate')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12097	12220	
==>rivate')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12097	12220	
==>rivate')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9574	9674	
==>([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9574	9674	
==>([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12652	12735	
==>itle="<tmpl_var name=unexpect> unexpectedly succeeded"><tmpl_var name=unexpect></spa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7955	8181	
==>:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6347	6444	
==>, 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6347	6444	
==>, 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6150	6241	
==>B Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6150	6241	
==>B Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6150	6241	
==>B Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6189	6294	
==>)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6189	6294	
==>)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6189	6294	
==>)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3183	3283	
==>X::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3183	3283	
==>X::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3183	3283	
==>X::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5784	5885	
==>:Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5784	5885	
==>:Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5784	5885	
==>:Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbin <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	726	831	
==>nstallsitescript} || $Config{installscript},
        installbin     => $Config{installbin},
        instal <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10622	10715	
==>mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10622	10715	
==>mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enciph <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1495	1599	
==>1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing thi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11655	11752	
==>$header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11655	11752	
==>$header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get valu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4752	4869	
==>->{'$:name'}} = undef;
        foreach my $method_name ($role->get_method_list) {
            # if we already have the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10021	10121	
==>amed{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10015	10115	
==>amed{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19114	19266	
==>se strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19114	19266	
==>se strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19114	19266	
==>se strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7669	7855	
==>elf->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7669	7855	
==>elf->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7669	7855	
==>elf->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23007	23190	
==>with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23007	23190	
==>with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23007	23190	
==>with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4880	5000	
==>rce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4880	5000	
==>rce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4880	5000	
==>rce);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19910	20087	
==>OUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19910	20087	
==>OUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19910	20087	
==>OUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13124	13247	
==>";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13124	13247	
==>";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13124	13247	
==>";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	7	123	
==>bin/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	7	123	
==>bin/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1033	1146	
==><b>'));
	return $a.'.'.$b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "pa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	953	1088	
==>ll nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie interm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1844	1963	
==>urn;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1844	1963	
==>urn;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5984	6096	
==>is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5984	6096	
==>is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unle <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4103	4232	
==>}
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4103	4232	
==>}
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15828	15935	
==>UB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15828	15935	
==>UB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15828	15935	
==>UB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5091	5224	
==>_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5091	5224	
==>_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26958	27071	
==>>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5548	5724	
==>.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5548	5724	
==>.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5548	5724	
==>.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6706	6846	
==>r) = @_;
    return unless $groups && @$groups;

    my @index_files;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	845	935	
==>lidator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en vers <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	845	935	
==>lidator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en vers <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17149	17243	
==>nt_language

The natural language(s) of the intended audience for the message
content.  The val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17149	17243	
==>nt_language

The natural language(s) of the intended audience for the message
content.  The val <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1020	1123	
==>urns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1078	1181	
==>urns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2006	2193	
==>test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        } <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	104	206	
==>, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	104	206	
==>, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3116	3245	
==>rt;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3116	3245	
==>rt;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20425	20529	
==>e {
    my $cmd = %?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1824	1934	
==>t ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1824	1934	
==>t ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1824	1934	
==>t ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2502	2617	
==>a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2502	2617	
==>a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2502	2617	
==>a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4739	4844	
==>$name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4739	4844	
==>$name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4739	4844	
==>$name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1171	1332	
==>wn.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1171	1332	
==>wn.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1171	1332	
==>wn.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3400	3538	
==>->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3400	3538	
==>->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3400	3538	
==>->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	347	475	
==>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1650	1746	
==>s 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1650	1746	
==>s 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8434	8545	
==>exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An obj <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8434	8545	
==>exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17482	17625	
==>ay' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17482	17625	
==>ay' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17482	17625	
==>ay' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3015	3132	
==>= args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3015	3132	
==>= args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3015	3132	
==>= args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	116	229	
==>{
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %. <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	116	229	
==>{
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	299	388	
==>target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  $matchObj->positio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28454	28570	
==>bject.
This is used by the walk() method.  Typically, a capturing group's ender
is a C<close> node, any other asserti <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1776	1871	
==>nd C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
T <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1776	1871	
==>nd C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36769	36913	
==>s
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36769	36913	
==>s
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36769	36913	
==>s
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #wa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13201	13305	
==>y $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	611	715	
==>y $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5137	5279	
==>@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token) <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5137	5279	
==>@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17510	17600	
==>ion>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2603	2699	
==>n value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2603	2699	
==>n value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2603	2699	
==>n value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3875	3993	
==>eading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7352	7470	
==>eading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6318	6436	
==>eading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9666	9821	
==>->($fagain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	179	274	
==>er doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	179	274	
==>er doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	372	480	
==>)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	372	480	
==>)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	372	480	
==>)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8402	8533	
==>p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8402	8533	
==>p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8402	8533	
==>p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2433	2529	
==>_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($hos <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2433	2529	
==>_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($hos <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6847	6991	
==>ey"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6847	6991	
==>ey"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33764	33888	
==>returns Relation::Example>

This method is a short-hand or alternative for the functionality provided
by the 5 generic relati <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8348	8479	
==>cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8348	8479	
==>cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14755	14864	
==>ue
    ((= %attrs (hash new))
     (= &dispatcher ($class: send (dispatcher :descendent)))
     (= $c (WALKCLA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1778	1864	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3154	3240	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	11	126	
==>$n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	11	126	
==>$n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	11	126	
==>$n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6811	6913	
==>meout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6811	6913	
==>meout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6811	6913	
==>meout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5919	6039	
==>'$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5919	6039	
==>'$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5919	6039	
==>'$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19378	19555	
==>)
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19378	19555	
==>)
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19378	19555	
==>)
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3511	3712	
==>_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3511	3712	
==>_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5108	5220	
==>ly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5108	5220	
==>ly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5108	5220	
==>ly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3068	3219	
==>perclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3068	3219	
==>perclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3068	3219	
==>perclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10350	10445	
==>s a recurrence set.

The complementary functions are emulated using iterations.

See also the se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10350	10445	
==>s a recurrence set.

The complementary functions are emulated using iterations.

See also the se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3365	3502	
==>e JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3365	3502	
==>e JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3365	3502	
==>e JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1817	1916	
==>O - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1817	1916	
==>O - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1817	1916	
==>O - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12420	12600	
==>$spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12420	12600	
==>$spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12420	12600	
==>$spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $boun <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12064	12207	
==>$nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0]} },
      scalar_no <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5517	5629	
==>fined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5517	5629	
==>fined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20280	20373	
==>lation necessary.  This is something that end users could do,
although program package install <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20280	20373	
==>lation necessary.  This is something that end users could do,
although program package install <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5330	5419	
==>s %{$index->{_dirs}};
my $index_file = catfile($output_dir,"index.html");
open( my $fh,'>' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3143	3315	
==>@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3143	3315	
==>@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3143	3315	
==>@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5223	5335	
==>rs;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5223	5335	
==>rs;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5223	5335	
==>rs;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1192	1297	
==>ns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set $o <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1192	1297	
==>ns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set $o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25459	25563	
==>n> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5036	5148	
==>xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5036	5148	
==>xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5036	5148	
==>xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MU <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	525	636	
==>my $self = shift;
    exists $self->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28702	28797	
==>t will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can ha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28702	28797	
==>t will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	685	787	
==>ons
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	685	787	
==>ons
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	685	787	
==>ons
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40183	40309	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40183	40309	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40183	40309	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20151	20336	
==>arn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20151	20336	
==>arn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20151	20336	
==>arn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	129	234	
==>->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	129	234	
==>->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	129	234	
==>->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6897	7041	
==>abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6670	6805	
==>abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tai <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25599	25697	
==>on
which is the same as the invocant Relation but that some of its attributes
are renamed.  The arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30151	30249	
==>on
which is the same as the invocant Relation but that some of its attributes
are renamed.  The arg <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6815	6928	
==>sLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramCont <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6815	6928	
==>sLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramCont <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3714	3827	
==>sLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramCont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12429	12529	
==>do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12429	12529	
==>do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12429	12529	
==>do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6181	6315	
==>fault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6181	6315	
==>fault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6181	6315	
==>fault;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13943	14066	
==>$dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::AR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13943	14066	
==>$dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::AR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13943	14066	
==>$dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::AR <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13249	13354	
==>tes:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13249	13354	
==>tes:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11630	11778	
==>e=pugs_version></td>
            <td>
              <tmpl_if name=pugs_revision>
                r<tmpl_var name=pugs_revision>
              </tmpl_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4990	5126	
==>eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4990	5126	
==>eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4990	5126	
==>eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1403	1522	
==>ists $_table->{prototype}) {
                $_table = $_table->{prototype}->('message-map');
                goto TRY_A <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3758	3853	
==>set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_pr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3758	3853	
==>set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9389	9505	
==>6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9389	9505	
==>6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9389	9505	
==>6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	782	899	
==>);

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	782	899	
==>);

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	782	899	
==>);

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10063	10168	
==>".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10063	10168	
==>".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10063	10168	
==>".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8645	8795	
==>um::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8645	8795	
==>um::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8645	8795	
==>um::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	121	239	
==>ion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	121	239	
==>ion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	121	239	
==>ion (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1337	1458	
==>ft;\n" .
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0] = '' unless defin <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	648	763	
==>e);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchma <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	648	763	
==>e);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchma <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16890	16987	
==>contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16890	16987	
==>contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20404	20497	
==>ite-state machine (aka syntax charts or "railroad normal form" in
parsing technology).  Each n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3191	3318	
==>{ match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3191	3318	
==>{ match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14406	14531	
==>$reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $hand <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1084	1189	
==>C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1084	1189	
==>C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1640	1745	
==>C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4227	4351	
==>_index = $values{no_index} ) {
        push @{ $no_index->{'directory'} }, 'inc';
        require YAML;
        local $YAML:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25227	25316	
==>epository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25227	25316	
==>epository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	46	167	
==>rict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_00 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	46	167	
==>rict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_00 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	46	167	
==>rict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_00 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8822	8997	
==>d";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8822	8997	
==>d";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16787	16903	
==>OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16787	16903	
==>OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7485	7571	
==>->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::P <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	808	913	
==>{
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	808	913	
==>{
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	199	295	
==>maybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	98	216	
==>2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	98	216	
==>2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	98	216	
==>2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Nu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	43	130	
==>use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::M <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	43	130	
==>use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::M <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2835	3073	
==>{
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2835	3073	
==>{
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1645	1745	
==>\@$1/g;
    s/\$#(${re_symbol})/\@$1.last/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9229	9462	
==>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9229	9462	
==>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9229	9462	
==>unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25220	25318	
==>. (α × β)", "pretty print a x b");
}
{
	my $type = type::operator::arrow->new(
		type::variable: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3951	4048	
==>}
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3951	4048	
==>}
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19575	19674	
==>(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19575	19674	
==>(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19575	19674	
==>(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17908	18050	
==>my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17908	18050	
==>my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17908	18050	
==>my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2892	3021	
==>is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2892	3021	
==>is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2892	3021	
==>is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29825	29921	
==>ttributes having the same names as old attributes
that were wrapped, and it supports having old t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34377	34473	
==>ttributes having the same names as old attributes
that were wrapped, and it supports having old t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33541	33637	
==>ttributes having the same names as old attributes
that were wrapped, and it supports having old t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6836	6968	
==>py = grep { $copy{$_} } keys %copy; #all groups minus the current one
    for my $key (@copy) {
        my $path = dir($key)->subdir( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1384	1491	
==>turn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1384	1491	
==>turn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	563	694	
==>nd  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	563	694	
==>nd  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	563	694	
==>nd  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

su <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9573	9689	
==>⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $con <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9573	9689	
==>⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $con <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4852	4957	
==>later be the / of the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9625	9758	
==>r(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9625	9758	
==>r(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9625	9758	
==>r(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2573	2715	
==>::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2488	2625	
==>::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @st <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8860	8957	
==>acters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule DoubleStringCharacters {  # se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	748	849	
==>orce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	806	907	
==>orce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1796	1896	
==>sing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4879	5020	
==>- $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got)."\n",
                       "# expected $type "._q($expected)."\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1418	1522	
==>et($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1418	1522	
==>et($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5935	6040	
==>urn $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5935	6040	
==>urn $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set spa <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5396	5515	
==>safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int, List)\
\\n   Int       pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	501	596	
==>s believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	501	596	
==>s believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13568	13716	
==>ne; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13568	13716	
==>ne; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13568	13716	
==>ne; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	779	896	
==>he "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of the <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	779	896	
==>he "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	485	602	
==>gument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	485	602	
==>gument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[< <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	485	586	
==>\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6628	6738	
==>allchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6628	6738	
==>allchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6628	6738	
==>allchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13854	13981	
==>_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13854	13981	
==>_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13854	13981	
==>_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11017	11121	
==>afe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11017	11121	
==>afe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3119	3244	
==>all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3119	3244	
==>all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3119	3244	
==>all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15408	15501	
==>ngine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15408	15501	
==>ngine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
T <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1633	1738	
==>orting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is defined in Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14050	14172	
==>ro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10223	10345	
==>ro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11059	11181	
==>ro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	65	168	
==>qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loaded;
our @EX <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4965	5062	
==>ky.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4965	5062	
==>ky.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1076	1176	
==>st 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1076	1176	
==>st 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1076	1176	
==>st 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref wit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11104	11210	
==>emove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11104	11210	
==>emove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35437	35534	
==>m}>)

Data: one object

=head2 group

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: array <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14044	14167	
==>e: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10217	10340	
==>e: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11053	11176	
==>e: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7745	7850	
==>mar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $cap <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	685	788	
==>d:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no Smart::Comments;\n" . $orginal;
		}
	}egm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7483	7584	
==>mar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $cap <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1628	1736	
==>tr  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1628	1736	
==>tr  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	126	229	
==>ration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1508	1617	
==>l6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a nativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1508	1617	
==>l6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a nativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1508	1617	
==>l6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a nativ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17340	17442	
==>am
# that function will return a pair with the first param and the second param inside a pair
# hence p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	618	807	
==>_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6219	6313	
==>Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6219	6313	
==>Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4450	4549	
==>pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4450	4549	
==>pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2386	2510	
==>ute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2386	2510	
==>ute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2386	2510	
==>ute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3177	3331	
==>ient_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $da <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3177	3331	
==>ient_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $da <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27484	27585	
==>reganch |= ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SE <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	661	760	
==>ug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2113	2206	
==>e_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2113	2206	
==>e_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2113	2206	
==>e_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2020	2151	
==>e $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2020	2151	
==>e $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2020	2151	
==>e $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1884	1997	
==>lass Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1884	1997	
==>lass Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1884	1997	
==>lass Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3655	3791	
==>DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3655	3791	
==>DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3655	3791	
==>DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	331	450	
==>class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	331	450	
==>class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	331	450	
==>class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10354	10533	
==>&&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10354	10533	
==>&&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10354	10533	
==>&&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1945	2067	
==>patcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1945	2067	
==>patcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1945	2067	
==>patcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatche <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	300	415	
==>re; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	300	415	
==>re; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7790	7894	
==>tatement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2584	2738	
==>($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2789	2943	
==>($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3861	4015	
==>($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4173	4271	
==>();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4173	4271	
==>();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4173	4271	
==>();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subc <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3116	3235	
==>ulti sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3116	3235	
==>ulti sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4427	4551	
==>airs => $pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
}
sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41172	41266	
==>modules into the same files as
program code, rather than requiring separate files.

=item Steva <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41172	41266	
==>modules into the same files as
program code, rather than requiring separate files.

=item Steva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20342	20523	
==>r') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20342	20523	
==>r') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20342	20523	
==>r') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1057	1181	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1057	1181	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1057	1181	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34818	34924	
==>nt "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34818	34924	
==>nt "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34818	34924	
==>nt "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15182	15278	
==><MultiplicativeExpression>
}
rule ShiftExpression :words {  # see 11.7
      <AdditiveExpression> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1581	1698	
==>(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1581	1698	
==>(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1581	1698	
==>(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self- <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12517	12644	
==>self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support for = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22089	22186	
==>one it finds.  This also works for the multiple language
or permissions issue; simply order the fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22089	22186	
==>one it finds.  This also works for the multiple language
or permissions issue; simply order the fi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11898	12023	
==>rl = $self->_command;
    my @inc =`$perl -le "print join qq[\n], \@INC"`;
    chomp @inc;
    return @inc;
}


=head2 C<_rest <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4506	4622	
==>name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $a <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2247	2362	
==>name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $a <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20215	20353	
==>> comb(
							fun => ide("=="),
							param => ide("x"),
						),
						param => val(0),
					),
					then => ide("r"),
					else => comb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4824	4919	
==>$method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4824	4919	
==>$method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4824	4919	
==>$method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1471	1579	
==>valX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1471	1579	
==>valX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1471	1579	
==>valX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2526	2666	
==>', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2526	2666	
==>', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2526	2666	
==>', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5199	5352	
==>:null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5035	5184	
==>:null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : ( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15787	15882	
==>s a C<Str>, the returned C<Str>
will support the same levels as the input, unless specified othe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13414	13537	
==>ace::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13414	13537	
==>ace::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1334	1432	
==>ssed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-international.org/publi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9236	9344	
==>->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9236	9344	
==>->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9236	9344	
==>->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	968	1146	
==>(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*( <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	968	1146	
==>(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17073	17194	
==>^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other possibilities as well.

=back

=head1 HISTORY

= <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30592	30823	
==>her');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

meth <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2348	2567	
==>ldren(
                                    Tree.new(:node<Method>),
                                    Tree.new(:node<Submethod>),
                                ),
                                Tree.new(:node<Macro> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	545	639	
==>e)){
		$self->{dups}->insert($node);
	} else {
		$self->{seen}->insert($node);
		$self->SUPER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1142	1329	
==>ol( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1142	1329	
==>ol( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1142	1329	
==>ol( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6415	6512	
==>ies, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = spli <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6415	6512	
==>ies, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = spli <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	731	830	
==>^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	30	129	
==>is as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	30	129	
==>is as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	30	129	
==>is as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19022	19154	
==>chable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19022	19154	
==>chable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19022	19154	
==>chable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1538	1646	
==>b { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Para <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3549	3640	
==>128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for thi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3549	3640	
==>128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17337	17445	
==>eading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20814	20922	
==>eading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        headi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5593	5680	
==>my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12823	12928	
==>op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12823	12928	
==>op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12823	12928	
==>op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12844	13016	
==>urn 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12838	13010	
==>urn 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4675	4778	
==>&& $result{number} > $self->{max} ) {
            warn "Enormous test number seen [test $result{number}] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8451	8564	
==>? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str whe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8451	8564	
==>? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str whe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4838	4951	
==>an );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4838	4951	
==>an );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21302	21396	
==>rom the resulting object's visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5254	5366	
==>n;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5254	5366	
==>n;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5254	5366	
==>n;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4830	4928	
==>d_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4830	4928	
==>d_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4830	4928	
==>d_source = $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4410	4535	
==>s}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4410	4535	
==>s}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4410	4535	
==>s}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	745	855	
==>} }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matche <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	745	855	
==>} }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matche <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	745	855	
==>} }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matche <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	119	224	
==>s { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blond <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5729	5829	
==>d_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5808	5908	
==>d_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_o <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2494	2753	
==>ine)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2494	2753	
==>ine)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6190	6297	
==>tch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Metho <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6190	6297	
==>tch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Metho <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6190	6297	
==>tch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23944	24108	
==>Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23944	24108	
==>Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23944	24108	
==>Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4900	5033	
==>)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the rem <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4900	5033	
==>)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the rem <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21816	21915	
==>:words {  # see 12.9
      <'return'><no_LineTerminator_here><Expression>? <';'>
}
rule WithStatemen <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6404	6544	
==>($vl3)=($vl4);"
		 ."($varlist)$init; use strict;");
    }
    elsif($sn eq 'global') {
	warn "global PPad may not be doing the right thing\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	968	1106	
==>Pugs::Compiler::Regex->compile( 
        $rule, 
        { grammar => $class },
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23560	23663	
==>ceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElements> <SourceElement>
}
rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7713	7854	
==>or ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7725	7866	
==>or ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17694	17789	
==>oo", t => type::operator::nullary->new("str")),
);

# the polymorphic snd function takes any pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1304	1400	
==>lasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1304	1400	
==>lasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1304	1400	
==>lasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6209	6300	
==>ternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6209	6300	
==>ternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6209	6300	
==>ternals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1888	2008	
==>pe} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1888	2008	
==>pe} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1888	2008	
==>pe} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1159	1251	
==>-CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1159	1251	
==>-CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1159	1251	
==>-CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24182	24274	
==>ast, Locale::KeyedText does no compile time binding and
will support multiple languages or lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24182	24274	
==>ast, Locale::KeyedText does no compile time binding and
will support multiple languages or lo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3503	3603	
==>apping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6980	7080	
==>apping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5937	6037	
==>apping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5537	5704	
==>oken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5537	5704	
==>oken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5537	5704	
==>oken =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3428	3533	
==>)), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3428	3533	
==>)), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3428	3533	
==>)), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	617	721	
==>o, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, tex <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	617	721	
==>o, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, tex <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5264	5448	
==>ew( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.ci <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5264	5448	
==>ew( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.ci <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3532	3633	
==>v(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8475	8635	
==>xt unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for captura <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4835	4995	
==>xt unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for captura <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5684	5844	
==>xt unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for captura <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6109	6270	
==>s;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6109	6270	
==>s;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6109	6270	
==>s;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	801	917	
==>ocal $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	801	917	
==>ocal $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	801	917	
==>ocal $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	388	508	
==>nt $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Bench <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	485	605	
==>nt $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Bench <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1838	1936	
==>possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods which r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31153	31247	
==>generic relational operator that returns a new Relation
which has a subset of the original's tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35703	35797	
==>generic relational operator that returns a new Relation
which has a subset of the original's tu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10369	10489	
==>tch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10369	10489	
==>tch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state}, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2004	2108	
==>ackage Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blond <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1151	1258	
==>sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query stri <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1151	1258	
==>sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query stri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1878	1983	
==>error(0, "Missing brackets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2469	2572	
==>ool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2469	2572	
==>ool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
metho <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20764	20859	
==>is builtin is unsafe {
    #Pugs::Internals::use($module);
    Pugs::Internals::require_use_help <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1153	1268	
==>~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $delimiter) returns Str
 multi sub  Perl6::List::joi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3167	3280	
==>}
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3167	3280	
==>}
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2732	2847	
==>s expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2732	2847	
==>s expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3665	3772	
==>];
  #XXX
  my $operator;
  expect_term:
  goto null_term if $position >= $lastPosition;
 
  my $currentTerm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	926	1041	
==>EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	926	1041	
==>EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	926	1041	
==>EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE no <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10119	10255	
==>ach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	107	221	
==>rns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = ( <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	107	221	
==>rns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17369	17490	
==>perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17369	17490	
==>perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4197	4294	
==>8, 19 and
20 failed).

=back


=head2 Functions

Test::Harness currently only has one function, he <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	48	148	
==>use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2605	2711	
==>'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2605	2711	
==>'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2605	2711	
==>'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'p <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4882	5015	
==>se {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = <$f> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22040	22164	
==>handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18461	18585	
==>handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1898	2003	
==>»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1898	2003	
==>»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1898	2003	
==>»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Numb <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	525	634	
==>{
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	525	634	
==>{
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39858	39948	
==>This multi-method is a generic binary relational operator that takes
another Relation::Exam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3776	3874	
==>ata::Dumper::Dumper $self;
}));

## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3776	3874	
==>ata::Dumper::Dumper $self;
}));

## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3776	3874	
==>ata::Dumper::Dumper $self;
}));

## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3822	3920	
==>fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3822	3920	
==>fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3902	4000	
==>fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optional
d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5444	5546	
==>s feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5444	5546	
==>s feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5444	5546	
==>s feature is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9445	9591	
==>count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9445	9591	
==>count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9445	9591	
==>count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5722	5818	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5722	5818	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5722	5818	
==>"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15444	15561	
==>uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15444	15561	
==>uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15444	15561	
==>uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5142	5272	
==>laceholder")){
			my $new = $type->type;
			return $type if ref $new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub disp <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	775	870	
==>ne property - content.

The constructor for this class has a special shortcut syntax compared
to <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	775	870	
==>ne property - content.

The constructor for this class has a special shortcut syntax compared
to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4643	4745	
==>Stmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4643	4745	
==>Stmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4643	4745	
==>Stmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4550	4739	
==>es );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4550	4739	
==>es );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15011	15145	
==>Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36943	37062	
==>rray );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36943	37062	
==>rray );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36943	37062	
==>rray );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5316	5421	
==>$var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5316	5421	
==>$var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5906	6011	
==>$var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11768	11938	
==>pe} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11768	11938	
==>pe} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11768	11938	
==>pe} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6851	6954	
==>n the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6851	6954	
==>n the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9048	9151	
==>n the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4861	4964	
==>a::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4861	4964	
==>a::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1963	2107	
==>s $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1963	2107	
==>s $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1963	2107	
==>s $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tm <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7710	7830	
==>part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7710	7830	
==>part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin" <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	99	197	
==>perl5:HTML::Template;
#use perl5:Text::Textile qw(textile);

print header();
#my $template  = HTML: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5257	5367	
==>, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5257	5367	
==>, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5257	5367	
==>, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20273	20361	
==>(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20273	20361	
==>(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20273	20361	
==>(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22038	22292	
==>ut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document d <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1178	1291	
==>ho You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto en <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4292	4398	
==>}
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4982	5100	
==>g\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4982	5100	
==>g\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4982	5100	
==>g\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9305	9433	
==>h @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9305	9433	
==>h @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9305	9433	
==>h @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1449	1547	
==>b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1449	1547	
==>b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1449	1547	
==>b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) > <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13777	13877	
==>ests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pai <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10164	10261	
==>etimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10164	10261	
==>etimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	854	1009	
==>: () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	821	967	
==>: () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17018	17204	
==>cal');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17018	17204	
==>cal');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17018	17204	
==>cal');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4218	4330	
==>ef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4218	4330	
==>ef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4218	4330	
==>ef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9861	10028	
==>= $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9861	10028	
==>= $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9861	10028	
==>= $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2850	2975	
==>,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2850	2975	
==>,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2850	2975	
==>,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	745	850	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Ho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	745	850	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1677	1881	
==>s *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1677	1881	
==>s *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1677	1881	
==>s *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37265	37429	
==>1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37265	37429	
==>1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37265	37429	
==>1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6262	6383	
==>n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1402	1520	
==>die::Reducer::DynamicScoping/;

    ...

    $self->enter_scope; # opens a new scope

    $self->new_pad("name" => $val <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2681	2776	
==>_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previou <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2681	2776	
==>_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6158	6277	
==>>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6158	6277	
==>>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6158	6277	
==>>default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2771	2884	
==>sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2771	2884	
==>sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2771	2884	
==>sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	329	441	
==>e_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Env <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3473	3570	
==>=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistrib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3473	3570	
==>=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistrib <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10223	10371	
==>am()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10223	10371	
==>am()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE <==
3	/Users/nnunley/pugs/util/package-osx.pl	3972	4069	
==>:Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/Perl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3323	3482	
==>ime - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3323	3482	
==>ime - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	332	443	
==>) 
) {
    print "$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14438	14621	
==>es can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17915	18098	
==>es can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17331	17514	
==>es can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) = <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1904	2029	
==>coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1904	2029	
==>coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9062	9178	
==>o we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"",
    ensure => sub <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1165	1332	
==>h.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub show () {
    print template( "wiki.tmpl", topic => $topi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3777	3899	
==>escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3970	4092	
==>escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	644	799	
==>0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	620	767	
==>0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1660	1769	
==>ue;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
cla <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1660	1769	
==>ue;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
cla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5073	5165	
==>odified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5073	5165	
==>odified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodi <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1734	1838	
==><construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18788	18889	
==>es beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> se <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18788	18889	
==>es beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4355	4466	
==>define_val {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	return $body;
}

sub symbolic_represen <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3027	3125	
==>fault (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [- <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3027	3125	
==>fault (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	708	816	
==>e = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but caus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	708	816	
==>e = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but caus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	708	816	
==>e = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but caus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6667	6808	
==>ad
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6667	6808	
==>ad
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6667	6808	
==>ad
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell') <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4639	4831	
==>}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4639	4831	
==>}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_nam <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	424	548	
==>ion
    ### XXX this should be a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1191	1301	
==>ild_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdi <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	532	639	
==>ild_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1115	1238	
==>ance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	854	972	
==>ance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1059	1177	
==>ance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8773	8901	
==>nd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8761	8889	
==>nd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    m <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1233	1344	
==>link "blib6/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3337	3459	
==>, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3337	3459	
==>, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3337	3459	
==>, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "def <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2013	2149	
==>_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3386	3514	
==>_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1464	1566	
==>t_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3453	3582	
==>lurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3453	3582	
==>lurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3453	3582	
==>lurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12102	12222	
==>e')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12102	12222	
==>e')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12102	12222	
==>e')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2690	2802	
==>?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2690	2802	
==>?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2690	2802	
==>?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13281	13377	
==>atch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13281	13377	
==>atch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13281	13377	
==>atch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1834	1934	
==>$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1834	1934	
==>$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1834	1934	
==>$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1737	1890	
==>sses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1737	1890	
==>sses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1737	1890	
==>sses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	94	187	
==>r::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	94	187	
==>r::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9885	9982	
==>ect, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a str <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9885	9982	
==>ect, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30183	30280	
==>s object.  See the object's documentation for
possible values for its type.

=item my $v = $obj->v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9534	9643	
==>$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9522	9631	
==>$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, name <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9596	9680	
==>rset_item(setrange(A,B)) --> p5_charset_item(char(A)), "-", p5_charset_range_x(B).
p5 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41663	41765	
==>ry join()
operator, and the order of its arguments is not significant to the result;
the new Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37473	37573	
==>ry join()
operator, and the order of its arguments is not significant to the result;
the new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42022	42122	
==>ry join()
operator, and the order of its arguments is not significant to the result;
the new Relation <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6994	7103	
==>> 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6994	7103	
==>> 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
} <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3710	3807	
==>s#
    ,("pugs_versnum", Pugs.Version.versnum)
    ,("pugs_version", Pugs.Version.version)
    ,(" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31651	31751	
==>hat there is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::No <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21151	21245	
==>would use
associated keys internally.

It is strongly suggested (but not required) that each Pe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21151	21245	
==>would use
associated keys internally.

It is strongly suggested (but not required) that each Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28432	28727	
==>@end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28432	28727	
==>@end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28432	28727	
==>@end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15223	15349	
==>_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15502	15628	
==>_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7708	7811	
==>llLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressionL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32144	32257	
==>n "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32144	32257	
==>n "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32144	32257	
==>n "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1420	1577	
==>ft;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $self->get_value('@: <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1170	1266	
==>ine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of c <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1170	1266	
==>ine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8515	8625	
==>boxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8515	8625	
==>boxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8515	8625	
==>boxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1136	1248	
==>ap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1136	1248	
==>ap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1136	1248	
==>ap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6210	6317	
==>body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9687	9794	
==>body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8761	8868	
==>body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13194	13312	
==>die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9380	9498	
==>die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10216	10334	
==>die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16909	17007	
==>c>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 modu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16909	17007	
==>c>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 modu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22902	22996	
==>xample object is determined when it is constructed, and the object can
not be changed afterward <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	739	856	
==>rom S29draft.pod r8593.
# Prim.hs defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9561	9660	
==>mpile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a rec <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9561	9660	
==>mpile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a rec <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	489	589	
==>king.pdf

# please note that this is nothingmuch's first article that he read from cover
# to cover w <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12664	12759	
==>recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns nega <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12664	12759	
==>recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns nega <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4107	4216	
==>ternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4107	4216	
==>ternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4107	4216	
==>ternal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7497	7624	
==>96),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dA <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7497	7624	
==>96),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dA <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	96	191	
==>s", &parse_ws_lit);
    $optable->addToken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8342	8462	
==>> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8342	8462	
==>> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8342	8462	
==>> _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6314	6422	
==>t_equiv);
}

sub mangle_sym_name {
	my $self = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7075	7178	
==>g ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7075	7178	
==>g ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21857	21955	
==>so valid
for a Relation to have zero attributes, though such a Relation can have no
more than a sin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26409	26507	
==>so valid
for a Relation to have zero attributes, though such a Relation can have no
more than a sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7485	7625	
==>my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7485	7625	
==>my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7485	7625	
==>my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4447	4559	
==>b command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4447	4559	
==>b command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4447	4559	
==>b command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6682	6790	
==>s->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6682	6790	
==>s->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6682	6790	
==>s->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17526	17652	
==>attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoir <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17526	17652	
==>attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoir <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3386	3491	
==>l6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5300	5410	
==>ute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $al <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5300	5410	
==>ute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $al <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5300	5410	
==>ute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $al <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16998	17099	
==>}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn>
    | <BitwiseAND <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	719	810	
==>-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @resp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	719	810	
==>-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @resp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2230	2327	
==>aque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2230	2327	
==>aque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2230	2327	
==>aque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::ma <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6486	6587	
==>rc' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs-$version";
    push @libs, grep /^ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3632	3732	
==>new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3632	3732	
==>new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5743	5909	
==>tch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5743	5909	
==>tch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5743	5909	
==>tch.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	379	468	
==>ifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	379	468	
==>ifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	379	468	
==>ifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8841	8983	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8841	8983	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8841	8983	
==>Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4755	4884	
==>ame;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Fla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4755	4884	
==>ame;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Fla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4755	4884	
==>ame;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1346	1454	
==>b infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1346	1454	
==>b infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1346	1454	
==>b infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3429	3527	
==>6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3429	3527	
==>6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3429	3527	
==>6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2290	2412	
==>B::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or err <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1877	1987	
==>'> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1877	1987	
==>'> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4018	4122	
==>hile (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@i <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4018	4122	
==>hile (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15377	15481	
==>rectory information
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito boot image name
      "-no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	991	1101	
==>) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	991	1101	
==>) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	991	1101	
==>) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11121	11232	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11121	11232	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11121	11232	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn " <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10621	10716	
==>s a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUC <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10621	10716	
==>s a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6875	6993	
==>SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6875	6993	
==>SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6875	6993	
==>SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PI <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14458	14581	
==>) };
    $@ and error( "Could not write available file: $@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7566	7680	
==>rn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7566	7680	
==>rn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2331	2456	
==>:create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2536	2661	
==>:create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3327	3452	
==>:create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	841	957	
==>un - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	841	957	
==>un - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	841	957	
==>un - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3625	3732	
==>args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3625	3732	
==>args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3625	3732	
==>args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	384	487	
==>Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::EvalX;

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	384	487	
==>Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::EvalX;

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	384	487	
==>Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::EvalX;

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5694	5817	
==>(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5694	5817	
==>(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    " <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28400	28498	
==>ose> will override this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EX <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5457	5640	
==>"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5457	5640	
==>"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

met <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2662	2778	
==>) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) { <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3377	3474	
==>lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11278	11365	
==>instance calling metaclass method fails';
fails_ok { $iBar->another_singleton_test_on_ob <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25088	25172	
==>lag(E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5176	5303	
==>::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5176	5303	
==>::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5176	5303	
==>::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9924	10094	
==>he is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6265	6435	
==>he is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7114	7284	
==>he is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17334	17453	
==>ontent(abs2rel($source, $output_dir));
                $h->push_content($backlink);
                my $t = HTML::Elemen <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15197	15295	
==>.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15197	15295	
==>.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following metho <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2981	3082	
==>r, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2981	3082	
==>r, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	196	285	
==>te printable/;
use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	657	792	
==>r =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    B <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	754	889	
==>r =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    B <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1006	1128	
==>ze () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1006	1128	
==>ze () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    re <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	161	271	
==>rns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16713	16930	
==>e {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16713	16930	
==>e {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16713	16930	
==>e {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # ge <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4334	4508	
==>s the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4334	4508	
==>s the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3473	3607	
==>s) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3473	3607	
==>s) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3473	3607	
==>s) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11025	11110	
==>------------------------------------------------------------------------

What if Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11025	11110	
==>------------------------------------------------------------------------

What if Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11025	11110	
==>------------------------------------------------------------------------

What if Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4253	4354	
==>};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4253	4354	
==>};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4253	4354	
==>};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_creat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1107	1231	
==>d,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1107	1231	
==>d,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	6	137	
==>6;
module Motd;

sub finger (@arr) returns Str is export {
        my @default = (
            "boring",
            "missing exampl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19584	19680	
==>is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24136	24232	
==>is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4554	4659	
==>c P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[5], } } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20767	20861	
==>m/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recomme <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20767	20861	
==>m/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recomme <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2750	2843	
==>ver

=item B<source>

=item B<source($new_source)>

Returns the representation of this node in <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2750	2843	
==>ver

=item B<source>

=item B<source($new_source)>

Returns the representation of this node in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9354	9478	
==>) = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9354	9478	
==>) = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9354	9478	
==>) = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualificat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3985	4133	
==>d a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3985	4133	
==>d a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3985	4133	
==>d a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class me <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	234	349	
==>v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# tokenizer

sub tok <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22218	22332	
==>end
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .return (self)
.end

.namespace [ "PGE::Exp::W <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2180	2278	
==>s> <quantifier>  }

rule simple_term  {
    <metasyntactic_token> | <commit_something>
  | <match_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2025	2144	
==>undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2025	2144	
==>undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2025	2144	
==>undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9007	9151	
==>eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9007	9151	
==>eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is ha <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6862	6956	
==>nt $m->describe;
token whitespace:<basic_whitespace> { \s+ }

rule identifier { \w+ }
token lit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38118	38216	
==>ng the remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42667	42765	
==>ng the remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42317	42415	
==>ng the remaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17236	17338	
==>mmon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20713	20815	
==>mmon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20291	20393	
==>mmon_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5649	5763	
==>aram[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5468	5580	
==>aram[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34012	34117	
==>matched
at the same location".  Therefore it would be represented in Perl with a
look-ahead around the lef <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	1	84	
==>line 1 "inc/Module/Install/Compiler.pm - /usr/local/lib/perl5/site_perl/5.8.8/Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10814	10968	
==>},
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10814	10968	
==>},
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10814	10968	
==>},
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1876	2051	
==>f the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2081	2256	
==>f the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2144	2319	
==>f the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:method <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16199	16307	
==>$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1638	1746	
==>) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1638	1746	
==>) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1638	1746	
==>) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	399	511	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	399	511	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	399	511	
==>nction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == unde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3065	3159	
==>In addition, the following request headers are set on the HTTP::Headers object,
if they are pre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3065	3159	
==>In addition, the following request headers are set on the HTTP::Headers object,
if they are pre <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5010	5096	
==>chmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann\@as-netz.de> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1580	1691	
==>ion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1580	1691	
==>ion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1580	1691	
==>ion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->is <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	106	197	
==><REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	106	197	
==><REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3126	3262	
==>le
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3126	3262	
==>le
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13167	13268	
==>";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13167	13268	
==>";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13167	13268	
==>";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7090	7220	
==>nt\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7090	7220	
==>nt\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7090	7220	
==>nt\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2112	2236	
==>d this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2112	2236	
==>d this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2112	2236	
==>d this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7288	7464	
==>? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7288	7464	
==>? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7288	7464	
==>? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	159	258	
==>implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	159	258	
==>implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	159	258	
==>implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7337	7438	
==>hen hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21730	21828	
==>s(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_member(class_neg(xdigit)    ,C) :- !, \+(ch <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	406	495	
==>hod set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_functio <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	406	495	
==>hod set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_functio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5109	5208	
==>goto oper_shift if ( $tokenCat == PGE_OPTABLE_PREFIX );
  goto oper_shift if ( $tokenCat == PGE_OPTA <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3553	3644	
==>s document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3553	3644	
==>s document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7728	7840	
==>pan;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7728	7840	
==>pan;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10472	10579	
==>plate = HTML::Template->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl','code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1649	1772	
==>for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1649	1772	
==>for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1649	1772	
==>for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15172	15288	
==>ts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15172	15288	
==>ts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15172	15288	
==>ts ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	208	317	
==>}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	208	317	
==>}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	208	317	
==>}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4405	4547	
==>pe => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
} <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3794	3898	
==>. $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5154	5258	
==>. $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2326	2442	
==>key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2326	2442	
==>key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2326	2442	
==>key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9548	9638	
==>l_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9548	9638	
==>l_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9548	9638	
==>l_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11800	12039	
==>andidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11800	12039	
==>andidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11800	12039	
==>andidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7309	7459	
==>ent( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7309	7459	
==>ent( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7309	7459	
==>ent( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19017	19133	
==>end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19017	19133	
==>end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19017	19133	
==>end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1085	1257	
==>_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1883	1983	
==>EP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser {
  my($ws,$operators,$tokens)=@_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6638	6725	
==>p5_matchref(I).
p5_elemental(ws(C))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9745	9876	
==>ill not see PERL5LIB, tainted or not.
    if ( $taint || $self->{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12862	12961	
==>multi method Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar ) is de <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	872	964	
==>::Harness::Verbose  = 1;
$Config{"output-file"} ||= "tests.yml";
$Config{"recurse"} = 1 if no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1875	1982	
==>y.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1875	1982	
==>y.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1875	1982	
==>y.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24390	24506	
==>data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  push @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	397	498	
==>ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	397	498	
==>ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9636	9749	
==>$value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9636	9749	
==>$value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9636	9749	
==>$value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20094	20193	
==>SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20094	20193	
==>SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20094	20193	
==>SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0 <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4633	4774	
==>s ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5143	5282	
==>turns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("& <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6905	7044	
==>turns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6792	6897	
==>better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6792	6897	
==>better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6792	6897	
==>better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2473	2591	
==>2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2473	2591	
==>2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2473	2591	
==>2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16021	16121	
==>y => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19498	19598	
==>y => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Rel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1834	1931	
==>::Balanced::extract_delimited( "'" . $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13841	13956	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14120	14235	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' <==
3	/Users/nnunley/pugs/util/grokprims.pl	1117	1224	
==>e};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/) { <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	599	774	
==>p { $_->name => $_->code }
                               $class->methods->members
                             },

                  # Perl 6 has no concept of associative att <==
3	/Users/nnunley/pugs/util/package-osx.pl	618	733	
==>ge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9168	9250	
==>arset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) --> p5_charset_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	840	961	
==>param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	819	934	
==>param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy}, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	819	934	
==>param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2382	2502	
==>if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2382	2502	
==>if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2382	2502	
==>if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3792	3887	
==>,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3792	3887	
==>,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3792	3887	
==>,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$de <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4496	4596	
==>ble for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month f <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4496	4596	
==>ble for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month f <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26259	26352	
==>ine ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6046	6156	
==>like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1744	1854	
==>ame';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6058	6168	
==>like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2145	2252	
==>val($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14290	14390	
==>the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14290	14390	
==>the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5641	5736	
==>(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5641	5736	
==>(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3685	3785	
==>S::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3685	3785	
==>S::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3685	3785	
==>S::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Could <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6335	6476	
==>t unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3460	3601	
==>t unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4309	4450	
==>t unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2816	2925	
==>\"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2816	2925	
==>\"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15804	15897	
==>lor-codes the elements of the regex
according to a style-sheet (syntax highlighting).

=item R <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31080	31178	
==>y at petdance.com> >>.

This program is free software; you can redistribute it and/or 
modify it un <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	37	120	
==>-----------------------------------------------------------------------
## attribute <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	37	120	
==>-----------------------------------------------------------------------
## attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4471	4576	
==>ss); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PSt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4471	4576	
==>ss); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PSt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4471	4576	
==>ss); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	800	903	
==>:IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	800	903	
==>:IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	800	903	
==>:IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Pre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36365	36460	
==>ng
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40914	41009	
==>ng
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40528	40623	
==>ng
the remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  Th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5212	5317	
==>ed them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5212	5317	
==>ed them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<cha <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2248	2395	
==>sh @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersec <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2248	2395	
==>sh @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersec <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5304	5430	
==>'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5304	5430	
==>'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3548	3650	
==>rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
*{'rule'} = sub {
    ${'rule'}->match(@_);
} <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11866	11979	
==>my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	275	383	
==>my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be r <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1561	1657	
==>.

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F< <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1561	1657	
==>.

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14572	14675	
==>`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14572	14675	
==>`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14572	14675	
==>`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3770	3890	
==>, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3770	3890	
==>, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3770	3890	
==>, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2020	2130	
==>n/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin director <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2020	2130	
==>n/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin director <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2795	2889	
==>s-1)));
  push(@let_stack,[$vars,$tmpvars]);
  "(do{my \$__v__ ; my($tmpvars); { local($vars)=( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3588	3702	
==>ub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	547	648	
==>* set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( clos <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	547	648	
==>* set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20771	20922	
==>$tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20771	20922	
==>$tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20771	20922	
==>$tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCA <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23224	23324	
==>erl6::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24565	24655	
==>(GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24565	24655	
==>(GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16431	16538	
==>ss "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16431	16538	
==>ss "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16431	16538	
==>ss "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	409	548	
==>stics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:output;

        my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20593	20726	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20872	21005	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8175	8382	
==>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8175	8382	
==>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8175	8382	
==>decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	600	727	
==>put.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	600	727	
==>put.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	600	727	
==>put.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2322	2459	
==>= bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2869	3006	
==>= bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3416	3553	
==>= bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5534	5716	
==>of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9011	9193	
==>of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2502	2637	
==>turns Int { $.month - 1 }
method yy returns Int { die if $.year < 0; $.year % 100 }
method century returns Int { die if $.year < 0; int( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1283	1383	
==>ts along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proce <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1283	1383	
==>ts along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proce <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2487	2605	
==>rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: use a real temp file?
sub emit_chu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2366	2479	
==>ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2278	2386	
==>ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30215	30313	
==><wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34767	34865	
==><wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33940	34038	
==><wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7278	7390	
==>oles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# rest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7278	7390	
==>oles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# rest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7278	7390	
==>oles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# rest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28072	28266	
==>ingify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28072	28266	
==>ingify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28072	28266	
==>ingify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	59	165	
==>ess { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	59	165	
==>ess { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	59	165	
==>ess { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n% <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11352	11543	
==>bles;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11352	11543	
==>bles;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20087	20189	
==>pes.

While the implementation can be changed greatly (it isn't what's important;
the interface/behavio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24639	24741	
==>pes.

While the implementation can be changed greatly (it isn't what's important;
the interface/behavio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23191	23293	
==>pes.

While the implementation can be changed greatly (it isn't what's important;
the interface/behavio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7297	7424	
==>:Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7297	7424	
==>:Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7297	7424	
==>:Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5255	5367	
==>s ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5255	5367	
==>s ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5255	5367	
==>s ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10021	10138	
==>s %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10021	10138	
==>s %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10021	10138	
==>s %:methods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4917	5042	
==>::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4917	5042	
==>::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4917	5042	
==>::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18527	18638	
==>..};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18527	18638	
==>..};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18527	18638	
==>..};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5654	5749	
==>CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibly s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5654	5749	
==>CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibly s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5654	5749	
==>CREATE would take a fully qualified name, and create any missing packages 
nessecary, possibly s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2561	2659	
==>year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2561	2659	
==>year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32674	32771	
==>the method to access the attribute when I<outside>
the class, and it's a good idea to do so I<insi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6324	6429	
==>x/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # bloc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	445	548	
==>$class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	354	457	
==>$class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	217	316	
==>ass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	217	316	
==>ass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	217	316	
==>ass { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	522	680	
==>construct our header
    my $header;
    $header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Need to add support for -
    #    Expires:
    #    Pragma: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2725	2820	
==>and 'value' pairs.  This
method should be called before any other methods, as it initialises the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2725	2820	
==>and 'value' pairs.  This
method should be called before any other methods, as it initialises the <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2994	3102	
==>sub new {
    my ($class, %options) = @_;
    (exists $options{params} && blessed($options{params}) && $optio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	660	756	
==>arname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	660	756	
==>arname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	187	284	
==>', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	187	284	
==>', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	187	284	
==>', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	102	220	
==>$.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.te <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	102	220	
==>$.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.te <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1792	1905	
==>open temp prelude ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comment <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	301	404	
==>al_to($_[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::compar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2772	2873	
==>eturns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2772	2873	
==>eturns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17337	17433	
==>x1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17337	17433	
==>x1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17337	17433	
==>x1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4706	4865	
==>r>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and shou <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4706	4865	
==>r>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	83	209	
==>iginal MiniMetaModel here
# for reference purposes, as this is what 2.0 is based on
# this way the other mini-meta-model can be <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1698	1852	
==>urn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1698	1852	
==>urn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37759	37895	
==>ue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37759	37895	
==>ue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37759	37895	
==>ue::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10073	10285	
==>ng scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10073	10285	
==>ng scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10073	10285	
==>ng scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTO <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2283	2414	
==>"~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      " <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2283	2414	
==>"~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3641	3747	
==>$equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    *$equal = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5898	6025	
==>hod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5898	6025	
==>hod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5898	6025	
==>hod_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1824	1930	
==>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1824	1930	
==>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1824	1930	
==>[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1684	1797	
==>tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1684	1797	
==>tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1684	1797	
==>tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5215	5338	
==>1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 's <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5408	5531	
==>1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 's <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	826	937	
==>ecute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6176	6305	
==>an up links from $unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2001	2102	
==>= 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2001	2102	
==>= 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9894	10058	
==>> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9894	10058	
==>> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9894	10058	
==>> sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30048	30141	
==>bute of a Message object, and each
hash value contains the user-readable message text associat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30048	30141	
==>bute of a Message object, and each
hash value contains the user-readable message text associat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6879	7004	
==>( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6879	7004	
==>( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1140	1258	
==>tor '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14735	14834	
==>s reason the function needs to be cloned (so it will stay generic when we leave the body of the func <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30591	30685	
==>return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35142	35236	
==>return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	56	152	
==>ur $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	56	152	
==>ur $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2329	2436	
==>"Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2329	2436	
==>"Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2329	2436	
==>"Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5832	6118	
==>spatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7594	7880	
==>spatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8615	8735	
==>subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8615	8735	
==>subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10568	10693	
==>safe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$strin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10568	10693	
==>safe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$strin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5768	5856	
==>erse(Rx,R)}, ")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3477	3590	
==>s == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3477	3590	
==>s == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3477	3590	
==>s == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - T <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4515	4661	
==>nerate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4515	4661	
==>nerate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3205	3321	
==>e_instance_attrs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18906	19036	
==>UTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18906	19036	
==>UTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18906	19036	
==>UTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	453	562	
==>s can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	453	562	
==>s can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	453	562	
==>s can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	581	688	
==>n/lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pugs-C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15432	15535	
==>_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9629	9732	
==>_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $ne <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	456	574	
==>1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	450	568	
==>1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8749	8855	
==>), $index->{_dirs}->{$_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  return unless /\.t$/;
  m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1184	1279	
==>ntDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26563	26657	
==>tructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26563	26657	
==>tructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	737	839	
==>bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	737	839	
==>bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2233	2338	
==>_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2233	2338	
==>_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2233	2338	
==>_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1046	1166	
==>= (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1046	1166	
==>= (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1046	1166	
==>= (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15491	15608	
==>_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15491	15608	
==>_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15491	15608	
==>_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18193	18365	
==>arsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18472	18644	
==>arsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::o <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12790	12886	
==>dy
fun: generic_in($.body) = { generic_in($$) }

# possibly amend the list of generic variables i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11806	11969	
==>ss}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11806	11969	
==>ss}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11806	11969	
==>ss}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	581	820	
==>( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	582	821	
==>( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6502	6599	
==>ack

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6502	6599	
==>ack

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6502	6599	
==>ack

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1744	1848	
==>t...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1744	1848	
==>t...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1744	1848	
==>t...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1240	1345	
==>", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1233	1332	
==>", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30456	30549	
==>project_all_but (Set of Str $attrs!) returns Relation::Example>

This method is the same as C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8057	8168	
==>nt the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8057	8168	
==>nt the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8057	8168	
==>nt the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	7	108	
==>Perl::Type;

# from src/Pugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritanc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9893	9986	
==>s, which
are referred to as "immediate" and "deferred".  The immediate validations
are perform <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9893	9986	
==>s, which
are referred to as "immediate" and "deferred".  The immediate validations
are perform <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36003	36105	
==>. with C</i> on)

=head2 ifmatch

Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7685	7790	
==>array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $laz <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7685	7790	
==>array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $laz <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12274	12358	
==>class="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_var name=f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5437	5545	
==>properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5437	5545	
==>properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5437	5545	
==>properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    ou <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1397	1518	
==>$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi sub Array::map (@values,   Code $expression) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	559	659	
==>:Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	559	659	
==>:Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17638	17734	
==>=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to se <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17638	17734	
==>=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11982	12101	
==>d => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11982	12101	
==>d => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1976	2088	
==>$_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'Pugs::Gram <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1651	1850	
==>ash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method ge <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1651	1850	
==>ash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method ge <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2271	2388	
==>) offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch sli <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2271	2388	
==>) offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch sli <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5557	5823	
==>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_sta <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5557	5823	
==>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_sta <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27704	27796	
==>)

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1567	1667	
==>- for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1567	1667	
==>- for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1567	1667	
==>- for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20333	20448	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20612	20727	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13439	13588	
==>class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13439	13588	
==>class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13439	13588	
==>class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40846	40984	
==>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40846	40984	
==>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40846	40984	
==>{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19103	19212	
==>SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15524	15633	
==>SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xg <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3030	3136	
==>'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
sub r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3407	3495	
==>s)->{'$:superclass'} = $Object;

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4101	4189	
==>s)->{'$:superclass'} = $Object;

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5309	5397	
==>s)->{'$:superclass'} = $Object;

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8431	8533	
==>MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8431	8533	
==>MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8431	8533	
==>MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4898	5011	
==>st: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4898	5011	
==>st: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4898	5011	
==>st: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	131	240	
==>pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	131	240	
==>pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	131	240	
==>pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5502	5643	
==>rotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5502	5643	
==>rotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5502	5643	
==>rotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $name <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	501	763	
==>Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	501	763	
==>Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8379	8505	
==>eturn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8572	8698	
==>eturn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5392	5510	
==>s, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5392	5510	
==>s, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5392	5510	
==>s, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1056	1174	
==>:Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2911	3012	
==>:Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4054	4150	
==>$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $htt <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4054	4150	
==>$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $htt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3260	3365	
==>/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3260	3365	
==>/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3260	3365	
==>/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7918	8012	
==>>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7918	8012	
==>>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7918	8012	
==>>multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6572	6710	
==>ms =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6572	6710	
==>ms =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6572	6710	
==>ms =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12618	12729	
==>= ($self->min, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq '') { '+' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	721	817	
==>lan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	721	817	
==>lan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2434	2537	
==>%mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2434	2537	
==>%mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2434	2537	
==>%mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || % <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4532	4628	
==>s are
implemented as hash keys to code refs. The only function this module
exports is the constru <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4532	4628	
==>s are
implemented as hash keys to code refs. The only function this module
exports is the constru <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15996	16092	
==>ize` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15996	16092	
==>ize` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16646	16743	
==>ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16646	16743	
==>ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16646	16743	
==>ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2292	2395	
==>ole->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2292	2395	
==>ole->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2292	2395	
==>ole->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3585	3689	
==>ble, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3585	3689	
==>ble, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3585	3689	
==>ble, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieabl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5125	5382	
==>n";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5125	5382	
==>n";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27657	27751	
==>ge returns.  Some
consoles may not handle carriage returns properly (which results in a
somewha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7706	7849	
==>pe eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7706	7849	
==>pe eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7706	7849	
==>pe eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	384	499	
==>d(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	384	499	
==>d(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	384	499	
==>d(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12184	12319	
==>i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12184	12319	
==>i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12184	12319	
==>i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovificati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4191	4295	
==>al cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4191	4295	
==>al cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4191	4295	
==>al cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3963	4079	
==>one}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3963	4079	
==>one}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3963	4079	
==>one}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5183	5314	
==>=> 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5183	5314	
==>=> 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2642	2747	
==>"maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2642	2747	
==>"maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2642	2747	
==>"maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15874	15985	
==>ate('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7364	7496	
==>n \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1912	2025	
==>$prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2129	2242	
==>$prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2148	2262	
==>tements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2148	2262	
==>tements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2158	2258	
==>Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __P <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2245	2346	
==>line
8th line
9th line
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5757	5853	
==>nt::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a strai <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5757	5853	
==>nt::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a strai <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10161	10284	
==>f;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10161	10284	
==>f;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6494	6603	
==>'$name' not found in dynamic env";
}

sub next {
    my ($self, $env) = @_;
    $self->{next} = $env if define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	999	1111	
==>ams{'$.todo'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Skip')->new(
                '$.desc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14194	14297	
==>tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, be <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14194	14297	
==>tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, be <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4914	5009	
==>o_str () returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns ni <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19383	19474	
==>a definition statements are structured as
standard data manipulation statements but that the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19383	19474	
==>a definition statements are structured as
standard data manipulation statements but that the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8255	8400	
==>id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4615	4760	
==>id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5464	5609	
==>id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	374	472	
==>JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	374	472	
==>JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	374	472	
==>JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19026	19121	
==>e used with user text that is
associated with hard-coded program conditions.  In other words, th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19026	19121	
==>e used with user text that is
associated with hard-coded program conditions.  In other words, th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1733	1830	
==>ew class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed ' <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1733	1830	
==>ew class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5369	5525	
==>for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "** <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5591	5747	
==>for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "** <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	561	694	
==>]->{out}= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5635	5760	
==>_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5455	5577	
==>_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15822	15936	
==>the length of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    fore <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22591	22683	
==>tays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22591	22683	
==>tays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14124	14213	
==>er::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14124	14213	
==>er::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14124	14213	
==>er::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2254	2359	
==>eless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2254	2359	
==>eless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2254	2359	
==>eless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14406	14497	
==>$xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14406	14497	
==>$xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14406	14497	
==>$xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1316	1417	
==>atcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1316	1417	
==>atcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1316	1417	
==>atcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4848	5024	
==>ure new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6610	6786	
==>ure new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1864	1974	
==>mclass);
    $optable->addToken("term:{{", "term:", "nows", &parse_closure);
    $optable->addToken("postfix:*" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15395	15563	
==>array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15395	15563	
==>array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15395	15563	
==>array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2764	2874	
==>orkaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2764	2874	
==>orkaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2764	2874	
==>orkaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5862	5977	
==>po->index_files(package => $pkg)

Returns a list of all index_files that a given package belongs to.

=cut

sub inde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5344	5449	
==>{
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5344	5449	
==>{
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	229	335	
==>0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9807	9913	
==>ubstr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMER <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	229	335	
==>0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2638	2837	
==>ow_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2638	2837	
==>ow_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2632	2743	
==>{'values'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	993	1115	
==>$self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	993	1115	
==>$self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	993	1115	
==>$self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6148	6274	
==>Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6148	6274	
==>Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6148	6274	
==>Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1960	2090	
==>$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1948	2078	
==>$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1102	1225	
==>urpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1102	1225	
==>urpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1311	1434	
==>urpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11823	11974	
==>l);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11823	11974	
==>l);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11823	11974	
==>l);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	427	539	
==>y = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	427	539	
==>y = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	427	539	
==>y = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3758	3886	
==>) . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3758	3886	
==>) . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3758	3886	
==>) . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6264	6382	
==>.pairs };

    return Relation::Example.new(
        heading => set( %full_map.values ),
        body => set( $!body.va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19231	19329	
==>::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNOS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19231	19329	
==>::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNOS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31130	31276	
==>$length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31130	31276	
==>$length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31130	31276	
==>$length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl <==
3	/Users/nnunley/pugs/util/fixauthors.pl	290	415	
==>[$_, $x]} 
  @a;

foreach (@a) {
  next unless /\)$/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4704	4800	
==>the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4704	4800	
==>the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22830	22925	
==>0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22830	22925	
==>0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22830	22925	
==>0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14790	14901	
==>ueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14790	14901	
==>ueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $chann <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10941	11050	
==>n"}, !. %# XXX - not really
p5_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	239	363	
==>_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	239	363	
==>_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	239	363	
==>_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4970	5076	
==>CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4970	5076	
==>CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLA <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6848	6991	
==>ubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	572	672	
==>ide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to speci <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	572	672	
==>ide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to speci <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2	96	
==>ckage JIB::Constants;

use strict;

use Package::Constants;
use File::Spec;
use Log::Message::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8485	8612	
==>RE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8485	8612	
==>RE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8485	8612	
==>RE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5120	5263	
==>4, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5120	5263	
==>4, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14804	14906	
==>@{ $self->{param_stack} }, $self->{params};
    $self->{params} = \@params;
}

sub shift_param {
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	309	426	
==>e          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCES <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15538	15640	
==>originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the da <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15538	15640	
==>originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the da <==
3	/Users/nnunley/pugs/util/package-osx.pl	7834	7922	
==>usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/Perl6::Spec::Opera <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	350	445	
==>WP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	350	445	
==>WP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXP <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	377	472	
==>2 JIB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1261	1356	
==>"N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1261	1356	
==>"N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1261	1356	
==>"N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3010	3128	
==>e
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3010	3128	
==>e
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1533	1706	
==>ce
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                SortC <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	175	306	
==>ds>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	175	306	
==>ds>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3353	3470	
==>ess $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.uns <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3353	3470	
==>ess $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4217	4343	
==>quired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4217	4343	
==>quired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4217	4343	
==>quired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1628	1730	
==>preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1628	1730	
==>preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1628	1730	
==>preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5650	5762	
==>PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5650	5762	
==>PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5650	5762	
==>PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sig <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	579	705	
==>st_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	579	705	
==>st_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .pr <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7911	8025	
==>@_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9718	9806	
==>ispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9718	9806	
==>ispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9718	9806	
==>ispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5626	5756	
==>elayed writes, as an explicit ->write() call on the
        ### object, like in JIB::Installation
        # and write it to disk ag <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11142	11236	
==>Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11200	11294	
==>Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3801	3944	
==>ee}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3801	3944	
==>ee}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixi <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	298	399	
==>file) = @_;
    my ($prompt, $abstract, $default);

    foreach my $line ( $self->_read_script($script <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	471	587	
==>nts positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	471	587	
==>nts positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5548	5680	
==>ss->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5548	5680	
==>ss->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5548	5680	
==>ss->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1968	2082	
==>,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1968	2082	
==>,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1968	2082	
==>,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,100 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	686	802	
==>s = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	686	802	
==>s = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	686	802	
==>s = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	350	477	
==>H();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	350	477	
==>H();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	350	477	
==>H();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	953	1086	
==>xtNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	953	1086	
==>xtNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	953	1086	
==>xtNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].no <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1944	2065	
==>m';
        $file =~ s{.*/}{} unless -e $file;
        die "all_from: cannot find $file from $name" unless -e $file;
    } <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	647	762	
==>ng " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	647	762	
==>ng " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2699	2831	
==>mp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2699	2831	
==>mp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	303	427	
==>ts};
    }
    print STDOUT "1..$n\n" unless $noplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDIN <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1344	1426	
==>amed_scalar_alias>|<numbered_scalar_alias>|<array_alias>|<hash_alias>|<external_sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15265	15444	
==>= $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15265	15444	
==>= $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15265	15444	
==>= $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	636	755	
==>$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	406	525	
==>$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	406	525	
==>$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	315	425	
==>l);my($debug);
use vars qw($Perl6::Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Pe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41166	41260	
==>plate modules into the same files as
program code, rather than requiring separate files.

=item <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41166	41260	
==>plate modules into the same files as
program code, rather than requiring separate files.

=item <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	944	1081	
==>@_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	944	1081	
==>@_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30994	31084	
==>st start with "POSIX_".

=item $parser->del_handler(@handle_names)

This uninstalls the giv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5703	5837	
==>method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5703	5837	
==>method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5703	5837	
==>method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1800	1906	
==>ameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1800	1906	
==>ameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1800	1906	
==>ameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!") <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28456	28588	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28735	28867	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17986	18091	
==>air and returns it's first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2163	2275	
==>rror if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2163	2275	
==>rror if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2163	2275	
==>rror if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10317	10436	
==>str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6658	6777	
==>str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7507	7626	
==>str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3839	4061	
==>type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $args = '';
                forea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	517	613	
==>rs.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	517	613	
==>rs.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1190	1357	
==>??
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1190	1357	
==>??
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1190	1357	
==>??
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	953	1068	
==>_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	953	1068	
==>_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	953	1068	
==>_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finall <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4356	4573	
==>>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3709	3854	
==>is with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx// <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3709	3854	
==>is with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx// <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4811	4926	
==>n '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4811	4926	
==>n '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1140	1254	
==>nt "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	245	346	
==>Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	245	346	
==>Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurr <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	12	93	
==>/Module/Install/WriteAll.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4965	5115	
==>us =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $selec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4965	5115	
==>us =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $selec <==
3	/Users/nnunley/pugs/util/drift.pl	1648	1738	
==>ances ()
where
import $module
import Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.JSON
imp <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	305	404	
==>onstructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	305	404	
==>onstructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10281	10383	
==>e_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10281	10383	
==>e_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10281	10383	
==>e_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3613	3772	
==>{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3613	3772	
==>{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3613	3772	
==>{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1209	1306	
==>ef() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1209	1306	
==>ef() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1209	1306	
==>ef() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16829	16923	
==>e.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6905	6999	
==>ailed (as string).

C<$failed> should be empty if everything passed.

B<NOTE> Currently this fu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16829	16923	
==>e.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	712	802	
==>MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	712	802	
==>MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	712	802	
==>MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11377	11547	
==>to-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11377	11547	
==>to-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11377	11547	
==>to-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $meth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3085	3230	
==>r ( qw( print use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8417	8527	
==>"Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

R <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8417	8527	
==>"Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6968	7079	
==>lass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6968	7079	
==>lass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6968	7079	
==>lass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	391	514	
==>PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	391	514	
==>PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	391	514	
==>PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1506	1653	
==>")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1506	1653	
==>")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1506	1653	
==>")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7010	7106	
==>n\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7010	7106	
==>n\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7010	7106	
==>n\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2860	2983	
==>::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Num  $x             ; :$base --> Num )
 {
     Math::Trig <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15598	15694	
==>his contains zero or more attribute names and values
that help to define this Node.

=item C<@!ch <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15598	15694	
==>his contains zero or more attribute names and values
that help to define this Node.

=item C<@!ch <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17121	17217	
==>" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implemen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17121	17217	
==>" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7647	7737	
==>topping error>, $parser->errmsg will return
that error message, and $parser->errnum will re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1222	1336	
==>sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1222	1336	
==>sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2249	2418	
==>e}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2496	2665	
==>e}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2982	3080	
==>t_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2982	3080	
==>t_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	390	494	
==>ubBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3217	3320	
==>f !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (shift)->{params}  }
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7333	7433	
==>tem $parser->regex($regex)

Clears the parser's memory and sets $regex as the regex to be parsed.

=b <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2267	2366	
==>done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

subm <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2267	2366	
==>done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

subm <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9863	10002	
==>w the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2895	3034	
==>w the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        { <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12362	12469	
==>/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	103	205	
==>$code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	103	205	
==>$code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	684	791	
==>a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	684	791	
==>a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2019	2124	
==>elf->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1811	1948	
==>&& blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1811	1948	
==>&& blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1811	1948	
==>&& blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4662	4768	
==>> := (<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	208	311	
==>ompiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	193	292	
==>ompiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11277	11443	
==>ub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11277	11443	
==>ub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11277	11443	
==>ub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leav <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1747	1861	
==>eters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1747	1861	
==>eters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . " <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12780	12887	
==>mnt/lib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$initrd_mnt/lib/" . basename $ <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	528	630	
==>rn $class;
	}

	@.known_parsers = $class._parse_ini_file($fh);

	return $class;
}

method do_warn(Class <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	931	1023	
==>rtext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	931	1023	
==>rtext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12792	12898	
==>d_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12792	12898	
==>d_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12792	12898	
==>d_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3095	3203	
==>t!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3095	3203	
==>t!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3095	3203	
==>t!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6074	6188	
==>t info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6074	6188	
==>t info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6074	6188	
==>t info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1853	2020	
==>{
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1853	2020	
==>{
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1853	2020	
==>{
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2815	2912	
==>FORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs cur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2815	2912	
==>FORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4290	4396	
==>ap { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4290	4396	
==>ap { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4290	4396	
==>ap { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	56	257	
==>3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            5 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	56	257	
==>3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            5 <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2522	2621	
==>y good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional p <==
3	/Users/nnunley/pugs/util/importgraph.pl	596	706	
==>s;
find sub {
  return unless /\.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13606	13709	
==>s). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic > <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13606	13709	
==>s). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic > <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	855	947	
==>relude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	855	947	
==>relude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	855	947	
==>relude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28074	28171	
==>ant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32626	32723	
==>ant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2316	2465	
==>ifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2316	2465	
==>ifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	946	1059	
==>magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	946	1059	
==>magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	946	1059	
==>magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1236	1377	
==>=> @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1236	1377	
==>=> @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1236	1377	
==>=> @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3405	3522	
==>(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3405	3522	
==>(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3405	3522	
==>(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17197	17293	
==>p so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives yo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17197	17293	
==>p so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives yo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11685	11845	
==>heading of at least one given relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15162	15322	
==>heading of at least one given relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14497	14657	
==>heading of at least one given relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @othe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1192	1303	
==>ile);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1192	1303	
==>ile);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3422	3545	
==>types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3422	3545	
==>types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3422	3545	
==>types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequot <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	402	517	
==>ESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	402	517	
==>ESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6671	6770	
==>_object'
});

is($Object->singleton_test_on_object(), 
   '&Object::singleton_test_on_object',
   '. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15906	16063	
==>ttribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15906	16063	
==>ttribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15906	16063	
==>ttribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	779	900	
==>3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	779	900	
==>3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	779	900	
==>3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11415	11546	
==>f },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6910	7055	
==>start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6910	7055	
==>start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6910	7055	
==>start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4718	4860	
==>s):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4718	4860	
==>s):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4718	4860	
==>s):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15599	15709	
==>uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15599	15709	
==>uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15599	15709	
==>uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	619	748	
==>s
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	619	748	
==>s
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	619	748	
==>s
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11891	12034	
==>upported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11891	12034	
==>upported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11891	12034	
==>upported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

cl <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2282	2411	
==>name = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{num};
            if( defined $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4403	4499	
==>ember_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_ass <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4403	4499	
==>ember_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6770	6857	
==>:Role->add_method('resolve' => ::make_method($_resolve));

## -------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6770	6857	
==>:Role->add_method('resolve' => ::make_method($_resolve));

## -------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6770	6857	
==>:Role->add_method('resolve' => ::make_method($_resolve));

## -------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2681	2789	
==>);
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2681	2789	
==>);
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27857	27955	
==>g Perl.
However, you may want to have it run by a different executable, such as
a threading perl, o <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1411	1528	
==>me or die "open: $filename: $!";
    { local $/; $stream = <$fh> }
    my $conf = $YAML->load($stream);
    
    if (- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1538	1626	
==>match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1538	1626	
==>match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5467	5580	
==>rray) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5467	5580	
==>rray) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5467	5580	
==>rray) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	17	135	
==>package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	17	135	
==>package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	17	135	
==>package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2671	2945	
==>'      =>  $reason,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },        
        'skip' => sub { 
            my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'ski <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	396	501	
==>return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # T <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	396	501	
==>return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	437	531	
==>PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	437	531	
==>PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10195	10317	
==>IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10195	10317	
==>IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10195	10317	
==>IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	766	869	
==>debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	766	869	
==>debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3162	3269	
==>2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3162	3269	
==>2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1526	1647	
==>f' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1526	1647	
==>f' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1526	1647	
==>f' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1583	1727	
==>+;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1583	1727	
==>+;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30093	30207	
==>so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # there was an 'a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1461	1577	
==>PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1461	1577	
==>PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1461	1577	
==>PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1078	1187	
==>);
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1078	1187	
==>);
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2641	2739	
==>ribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22585	22776	
==>str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOUT =\n"
              . "@" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15966	16060	
==>d_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15966	16060	
==>d_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8077	8199	
==>$tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8077	8199	
==>$tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8077	8199	
==>$tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1424	1549	
==>stance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1424	1549	
==>stance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1424	1549	
==>stance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5089	5221	
==>is_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5089	5221	
==>is_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	332	432	
==>e(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	332	432	
==>e(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	332	432	
==>e(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8009	8193	
==>mentation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4369	4553	
==>mentation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5218	5402	
==>mentation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	214	460	
==>n this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	214	460	
==>n this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13484	13589	
==>e "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_array_complain = sub { Carp::carp("p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3158	3317	
==>) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3158	3317	
==>) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3158	3317	
==>) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1331	1570	
==>nt( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1458	1697	
==>nt( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2760	2858	
==>0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2760	2858	
==>0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2760	2858	
==>0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22545	22657	
==>.};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22545	22657	
==>.};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22545	22657	
==>.};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1693	1839	
==>for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1693	1839	
==>for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1693	1839	
==>for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7029	7143	
==>XX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7029	7143	
==>XX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n" <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25370	25455	
==>et_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6445	6544	
==>MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6445	6544	
==>MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6445	6544	
==>MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2128	2231	
==>testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2128	2231	
==>testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2128	2231	
==>testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4483	4645	
==>ethod_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4483	4645	
==>ethod_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4483	4645	
==>ethod_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5015	5198	
==>ives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and di <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4231	4406	
==>ives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and di <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4712	4821	
==>gory - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Category;

  # example definit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15555	15664	
==>ULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15555	15664	
==>ULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15555	15664	
==>ULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB val <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19676	19770	
==>rmat that will be much easier for a non-programmer to edit.
But the current Perl-based solution <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19676	19770	
==>rmat that will be much easier for a non-programmer to edit.
But the current Perl-based solution <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1298	1390	
==>BeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1298	1390	
==>BeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1298	1390	
==>BeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1635	1736	
==>ontains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1635	1736	
==>ontains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1142	1234	
==>e constant RPe_NESTED => --$ENUM, 'Nested quantifiers';
use constant RPe_LBRACK => --$ENUM, ' <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2023	2129	
==>gs.Prelude where

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
>   No stain yet <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	597	696	
==>ode generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec f <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	597	696	
==>ode generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec f <==
3	/Users/nnunley/pugs/util/func_refact.pl	1557	1682	
==>n even if $new is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	315	430	
==>G'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1843	1958	
==>G'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9430	9550	
==>kg =~ m{^(?:/cygdrive|[A-Za-z]:)/.*$Config{_exe}$}
            ) {

                # Smells like a Windows executable ca <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4908	5026	
==>16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $enco <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4908	5026	
==>16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $enco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5698	5850	
==>->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5698	5850	
==>->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5698	5850	
==>->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13438	13538	
==>ub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13438	13538	
==>ub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13438	13538	
==>ub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1393	1519	
==>de => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1404	1530	
==>de => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ru <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5083	5195	
==>ot);

Tells you if this test run is overall successful or not.

=cut

sub _all_ok {
    my($tot) = shift;

    re <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1792	1916	
==>_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, so <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1792	1916	
==>_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, so <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2437	2567	
==>nt(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2437	2567	
==>nt(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2437	2567	
==>nt(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of typ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13527	13640	
==>om pathdir, to altdir
        my $script = basename($_);
    
        my $alt = $self->alternatives_dir->file( $sc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4116	4215	
==>l resolve '&infix:<+>' into the thunk that does
addition, C<< Val(1) >> will reduce to 1, and C<< Sy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4844	4934	
==>articipate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5094	5184	
==>articipate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6256	6351	
==>=~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6256	6351	
==>=~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6256	6351	
==>=~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48332	48424	
==>---------------------------------------------
## add Module

$::Module = $::Class->send('new' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1778	1901	
==>he keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5255	5378	
==>he keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4185	4308	
==>he keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5636	5774	
==>e an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5636	5774	
==>e an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5636	5774	
==>e an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2113	2232	
==>:eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35857	35953	
==>, and returns a new Relation::Example that has the same heading
and whose body contains all of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37889	37985	
==>, and returns a new Relation::Example that has the same heading and
whose body contains all of th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26918	27012	
==><prove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harnes <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	309	421	
==>ode> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	309	421	
==>ode> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> < <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3738	3926	
==>},                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2484	2649	
==>},
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2689	2854	
==>},
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6782	6945	
==>change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessar <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5286	5449	
==>change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7369	7553	
==>ems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7369	7553	
==>ems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7369	7553	
==>ems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4679	4769	
==>n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4679	4769	
==>n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4679	4769	
==>n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	152	266	
==>K';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	152	266	
==>K';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	152	266	
==>K';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.typ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10640	10756	
==>! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10640	10756	
==>! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15145	15254	
==>}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25880	26101	
==>ify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25880	26101	
==>ify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25880	26101	
==>ify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11870	12037	
==>&except ::= &difference;

###########################################################################

method semidifference (Relation::Example $other!) returns Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25775	25870	
==>user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25775	25870	
==>user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5373	5502	
==>cron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5373	5502	
==>cron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11204	11319	
==>or::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::arrow->new(
		type::operator <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8653	8766	
==>hift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8846	8959	
==>hift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10704	10863	
==>ms } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10704	10863	
==>ms } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10704	10863	
==>ms } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11920	12097	
==>. \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8202	8379	
==>. \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9036	9213	
==>. \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	364	486	
==>ub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    exists $self->{vis} ? $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1302	1401	
==>l wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1302	1401	
==>l wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = P <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6938	7036	
==>TTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6938	7036	
==>TTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2741	2852	
==>)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4115	4228	
==>ption;
    has Class::Events::Event $.event;

    method dispatch {
        dispatch($?SELF, $.subscription.subscr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23347	23432	
==>e current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIB <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23347	23432	
==>e current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIB <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15203	15312	
==>to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.flo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15203	15312	
==>to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.flo <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	652	758	
==>GV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38400	38517	
==>, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38400	38517	
==>, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38400	38517	
==>, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40773	40897	
==>$this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40773	40897	
==>$this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40773	40897	
==>$this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	426	563	
==>)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	426	563	
==>)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	426	563	
==>)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2784	2879	
==>for perl6-style variable binding,
as well as subroutine call argument passing and binding, in Pe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2784	2879	
==>for perl6-style variable binding,
as well as subroutine call argument passing and binding, in Pe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3131	3226	
==>for perl6-style variable binding,
as well as subroutine call argument passing and binding, in Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1295	1399	
==>ts $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n" <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13741	13843	
==>inite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of th <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13741	13843	
==>inite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2494	2601	
==>}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2494	2601	
==>}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2494	2601	
==>}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",m <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1625	1725	
==>ne {
    print STDERR "Generating inlined source Prelude... " if $Config{verbose};

    gen_source($T <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10701	10793	
==>:$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does no <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10759	10851	
==>:$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2	105	
==>No MMD yet.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2	105	
==>No MMD yet.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2	105	
==>No MMD yet.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17302	17406	
==>6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17302	17406	
==>6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17302	17406	
==>6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2876	2988	
==>: "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2876	2988	
==>: "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2876	2988	
==>: "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6691	6824	
==>trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6691	6824	
==>trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6691	6824	
==>trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5615	5714	
==>{
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_clos <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5615	5714	
==>{
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2157	2258	
==>eded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2157	2258	
==>eded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2157	2258	
==>eded to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1086	1248	
==>, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1086	1248	
==>, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1086	1248	
==>, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6432	6545	
==>e eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6432	6545	
==>e eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6432	6545	
==>e eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13446	13567	
==>mmand} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13446	13567	
==>mmand} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    ha <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26208	26327	
==>t is not
set then it will default to C<COLUMNS>. If this is not set, it will
default to 80. Note that users of Bourne-sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33283	33496	
==>th";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33283	33496	
==>th";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33283	33496	
==>th";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    } <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4075	4216	
==>'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4075	4216	
==>'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:per <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14689	14798	
==>("undef"); [] },
      numeric     => sub { $as_hash_complain->("numeric") },
      non_numeric => sub { $as_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11960	12082	
==>under MPW at once;
	    # the test itself is one; we can't do two more, so
	    # write to temp file
	    my $stdin = qq{$^ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2230	2345	
==>2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2230	2345	
==>2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	748	886	
==>trs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	748	886	
==>trs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	748	886	
==>trs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5317	5422	
==>efixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5317	5422	
==>efixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5317	5422	
==>efixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2034	2173	
==>" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $receive <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2034	2173	
==>" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $receive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2114	2253	
==>" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $receive <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17491	17614	
==>type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_leng <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17491	17614	
==>type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_leng <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2614	2700	
==>e();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2612	2717	
==>str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1224	1329	
==>str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1925	2030	
==>str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9115	9237	
==>instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9115	9237	
==>instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9115	9237	
==>instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4334	4486	
==>et_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	339	454	
==>emote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	339	454	
==>emote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4861	4976	
==>\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11821	11918	
==>15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

= <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11821	11918	
==>15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7210	7322	
==>lone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7210	7322	
==>lone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7210	7322	
==>lone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7706	7792	
==>ammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->acc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1531	1617	
==>ammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->acc <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6826	6912	
==>-idist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @libs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3402	3510	
==>) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6879	6987	
==>) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5836	5944	
==>) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1820	1959	
==>y @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1820	1959	
==>y @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1820	1959	
==>y @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8513	8628	
==>$orig) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3340	3436	
==>omplete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3340	3436	
==>omplete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13570	13681	
==>$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering the follo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30981	31078	
==>odule from others in
its set. For maximum flexibility in their use, the full name of a module
cons <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30981	31078	
==>odule from others in
its set. For maximum flexibility in their use, the full name of a module
cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4157	4270	
==>nt $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4157	4270	
==>nt $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4157	4270	
==>nt $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ an <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3345	3493	
==>l};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3345	3493	
==>l};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20291	20385	
==>g.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20291	20385	
==>g.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5050	5228	
==>urns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  D <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5050	5228	
==>urns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1766	1858	
==>, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4392	4497	
==>aml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4392	4497	
==>aml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4392	4497	
==>aml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	698	813	
==>aram (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	698	813	
==>aram (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	716	831	
==>aram (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14876	15000	
==>m (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14876	15000	
==>m (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14876	15000	
==>m (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	61	163	
==>el::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	61	163	
==>el::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	61	163	
==>el::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	366	487	
==>(see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	366	487	
==>(see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the ma <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2829	2944	
==>_up_makefile();
}

sub fix_up_makefile {
    my $self = shift;
    my $top_class = ref($self->_top) || '';
    my $t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	239	348	
==>= [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	239	348	
==>= [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	205	297	
==>on Instanz-Variablen
Person $person = new Person;
name $person = "Jens";
$welt.hallo($person) <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1275	1365	
==>a-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Ka <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1275	1365	
==>a-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Ka <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2885	3024	
==>IL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2885	3024	
==>IL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2885	3024	
==>IL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2952	3063	
==>ther!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6429	6540	
==>ther!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5368	5479	
==>ther!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12630	12730	
==>ter class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clum <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6105	6205	
==>ter class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clum <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1293	1392	
==>:round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1975	2070	
==>ivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1975	2070	
==>ivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1364	1479	
==>compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an imp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1364	1479	
==>compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an imp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	70	163	
==>essor';

use JIB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	182	306	
==>e,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	182	306	
==>e,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	182	306	
==>e,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2125	2227	
==>fg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2125	2227	
==>fg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2125	2227	
==>fg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2300	2407	
==>(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2300	2407	
==>(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2300	2407	
==>(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4733	4826	
==>:X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18297	18387	
==>e);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_rea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18297	18387	
==>e);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	555	651	
==>fg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	555	651	
==>fg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	555	651	
==>fg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7621	7719	
==>the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_ar <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7621	7719	
==>the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	944	1042	
==>perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	944	1042	
==>perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	944	1042	
==>perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11058	11161	
==>t->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11058	11161	
==>t->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11058	11161	
==>t->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contig <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2354	2467	
==>th}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4614	4727	
==>th}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$ar <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	185	319	
==>th {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	185	319	
==>th {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4759	4884	
==>";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";go <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16913	17005	
==>Nodes attribute (that
attribute defaults to empty if the corresponding argument is undefined) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16913	17005	
==>Nodes attribute (that
attribute defaults to empty if the corresponding argument is undefined) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6133	6223	
==>ses both perform the Test::Builder::Test::WithReason role
and override some methods to prov <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6133	6223	
==>ses both perform the Test::Builder::Test::WithReason role
and override some methods to prov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8330	8420	
==>ses both perform the Test::Builder::Test::WithReason role
and override some methods to prov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6220	6315	
==>__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6220	6315	
==>__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6220	6315	
==>__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18669	18878	
==>Y STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18669	18878	
==>Y STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18669	18878	
==>Y STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8083	8197	
==>und Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8083	8197	
==>und Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8083	8197	
==>und Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13534	13653	
==>nge:
    if isrange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isran <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2626	2729	
==>ass Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2626	2729	
==>ass Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7920	8008	
==>orization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7920	8008	
==>orization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3547	3674	
==>escription");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descript <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3547	3674	
==>escription");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descript <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5071	5198	
==>escription");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1797	1902	
==>ad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1797	1902	
==>ad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1797	1902	
==>ad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2597	2696	
==>ach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2597	2696	
==>ach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2597	2696	
==>ach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4425	4528	
==>pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4425	4528	
==>pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4425	4528	
==>pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7624	7791	
==>") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7624	7791	
==>") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7624	7791	
==>") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3780	3874	
==>an.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3780	3874	
==>an.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16914	17064	
==>lass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16914	17064	
==>lass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16914	17064	
==>lass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10037	10211	
==>xp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6691	6793	
==>side a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6691	6793	
==>side a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	260	382	
==>ul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	260	382	
==>ul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	260	382	
==>ul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# thin <==
3	/Users/nnunley/pugs/util/package-osx.pl	9175	9311	
==>links);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	609	705	
==>nge ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	609	705	
==>nge ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29988	30084	
==>h).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34540	34636	
==>h).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16555	16661	
==>{...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16555	16661	
==>{...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16555	16661	
==>{...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1122	1236	
==>($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1122	1236	
==>($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1122	1236	
==>($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11354	11546	
==>es;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11354	11546	
==>es;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1760	1857	
==>erl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1900	1997	
==>erl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12348	12517	
==>ail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8624	8793	
==>ail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9459	9628	
==>ail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4784	4894	
==>gleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4784	4894	
==>gleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4784	4894	
==>gleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6731	6844	
==>\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6731	6844	
==>\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6731	6844	
==>\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	702	826	
==>\" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	702	826	
==>\" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_ch <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16579	16693	
==>hen), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that need to be typed

# th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9741	9897	
==>> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9741	9897	
==>> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9741	9897	
==>> $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => su <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28154	28249	
==>\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14609	14715	
==>= 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14609	14715	
==>= 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14609	14715	
==>= 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6355	6517	
==>);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6355	6517	
==>);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6355	6517	
==>);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1938	2045	
==>tf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1938	2045	
==>tf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1938	2045	
==>tf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s", <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3876	4089	
==>lt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}() } 
    ' );
    my $match = $rule->match( "xyzw" );
    is( "$match" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	789	887	
==>its.  Also note that the 
Cipher API operates at the byte level, not the character level, so differ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	789	887	
==>its.  Also note that the 
Cipher API operates at the byte level, not the character level, so differ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3823	3938	
==>= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3823	3938	
==>= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3823	3938	
==>= $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4304	4417	
==>.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4304	4417	
==>.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14017	14142	
==>$fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( pay <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14017	14142	
==>$fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( pay <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1967	2066	
==>:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1967	2066	
==>:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1967	2066	
==>:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25724	25854	
==>type => 'logical',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3055	3154	
==>new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3055	3154	
==>new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2462	2619	
==>storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2462	2619	
==>storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5770	5876	
==>t;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5770	5876	
==>t;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5770	5876	
==>t;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38563	38702	
==>w('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1336	1433	
==>unctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

class <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1336	1433	
==>unctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4084	4174	
==>----------------------------------------------------------------
## NOTE:
## code in this s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4084	4174	
==>----------------------------------------------------------------
## NOTE:
## code in this s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4084	4174	
==>----------------------------------------------------------------
## NOTE:
## code in this s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14795	14947	
==>$off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14795	14947	
==>$off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14795	14947	
==>$off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7846	7949	
==>tr->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7846	7949	
==>tr->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7846	7949	
==>tr->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3977	4113	
==>et = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3977	4113	
==>et = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3977	4113	
==>et = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5587	5698	
==>xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5587	5698	
==>xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5587	5698	
==>xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	258	355	
==>elf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	258	355	
==>elf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	258	355	
==>elf->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a ne <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	725	854	
==>nf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	871	974	
==>r->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	871	974	
==>r->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4336	4435	
==>_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	647	740	
==>//www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Sy <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	647	740	
==>//www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13743	13844	
==>self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13743	13844	
==>self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13743	13844	
==>self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13710	13833	
==>seudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    liv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13710	13833	
==>seudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    liv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15867	16024	
==>a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15867	16024	
==>a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15867	16024	
==>a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	184	316	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	184	316	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	184	316	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9565	9659	
==>ses insensitive.

Instances of this class are usually created as member variables of the
C<HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9565	9659	
==>ses insensitive.

Instances of this class are usually created as member variables of the
C<HTTP <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	425	538	
==>00 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$location
) returns Str {
    # construct our hea <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10662	10754	
==>`use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function curren <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10720	10812	
==>`use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function curren <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5341	5471	
==>"Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(9 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5341	5471	
==>"Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(9 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	417	539	
==>,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	15	112	
==>::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	15	112	
==>::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	15	112	
==>::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3301	3433	
==>.
        "    sub $id\n" . emit($block) . "    ;\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8138	8241	
==>_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknow <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8138	8241	
==>_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknow <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	862	992	
==>ew PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	862	992	
==>ew PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	862	992	
==>ew PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12951	13066	
==>b delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12951	13066	
==>b delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12951	13066	
==>b delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashr <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4535	4677	
==>r multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1 <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4535	4677	
==>r multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1	94	
==>~/usr/bin/perl

package P6RulesInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12418	12528	
==>_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12418	12528	
==>_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12418	12528	
==>_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12192	12314	
==>aram{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12192	12314	
==>aram{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12192	12314	
==>aram{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6823	6941	
==>ng line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6823	6941	
==>ng line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6823	6941	
==>ng line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<= <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11115	11230	
==>nt;
    #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

1;
__END__
#----------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2549	2650	
==>r ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2689	2790	
==>r ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5685	5796	
==>fied name, and create any missing packages 
nessecary, possibly storing a value in the last location.

  # creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5685	5796	
==>fied name, and create any missing packages 
nessecary, possibly storing a value in the last location.

  # creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5685	5796	
==>fied name, and create any missing packages 
nessecary, possibly storing a value in the last location.

  # creat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2737	2841	
==>byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in charac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3963	4089	
==>(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess) = @_;

    my $pass;
    {
        local <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	654	760	
==>sub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	654	760	
==>sub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1060	1189	
==>terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1060	1189	
==>terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1441	1569	
==>nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2412	2520	
==>hould have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2412	2520	
==>hould have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2412	2520	
==>hould have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2872	2973	
==>ler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2768	2865	
==>ler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all : <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36709	36870	
==>sub {
                my $e = shift; 
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->fetch($e->ge <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5563	5667	
==>mplement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5563	5667	
==>mplement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	54	151	
==>val "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	54	151	
==>val "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	54	151	
==>val "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22143	22255	
==>s COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 2 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17044	17155	
==>s COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10855	10957	
==>bute;
    method get_attribute_list;            
}

--------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10855	10957	
==>bute;
    method get_attribute_list;            
}

--------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10855	10957	
==>bute;
    method get_attribute_list;            
}

--------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6232	6387	
==>against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6232	6387	
==>against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6232	6387	
==>against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  matc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10252	10364	
==>headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13729	13841	
==>headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13010	13122	
==>headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4319	4411	
==>:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4319	4411	
==>:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4319	4411	
==>:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is prim <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8272	8392	
==>name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8272	8392	
==>name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commi <==
3	/Users/nnunley/pugs/util/munge_haddock.pl	59	157	
==>mbers are not maintained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3906	4041	
==>qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3906	4041	
==>qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24175	24316	
==>'superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25469	25565	
==>ned, provided that you include the source
code of the other components when and as the GPL requir <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25469	25565	
==>ned, provided that you include the source
code of the other components when and as the GPL requir <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	752	850	
==>doc
DOM tree.

It has one property - content.

The constructor for this class has a special shortcu <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	752	850	
==>doc
DOM tree.

It has one property - content.

The constructor for this class has a special shortcu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31418	31513	
==>rue when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35968	36063	
==>rue when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	899	988	
==>est::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	899	988	
==>est::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Bui <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2477	2714	
==>/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-ord <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2785	3009	
==>/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-ord <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2785	3009	
==>/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-ord <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28859	28956	
==>andler for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names that h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3811	3904	
==>Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '.. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5713	5806	
==>Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '.. <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	503	605	
==>et($variable) {
    return %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub Session <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23643	23738	
==>h Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23643	23738	
==>h Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine: <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	602	717	
==>le concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name => "s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	745	843	
==><ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as exp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	745	843	
==><ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as exp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7094	7307	
==>and comments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8684	8819	
==>l};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9519	9654	
==>l};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	234	339	
==>an
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular referen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	234	339	
==>an
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular referen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	861	965	
==>rl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extrac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	861	965	
==>rl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extrac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	861	965	
==>rl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extrac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2408	2503	
==>tring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2408	2503	
==>tring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2408	2503	
==>tring(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7711	7811	
==>= [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normaliz <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7711	7811	
==>= [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normaliz <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10966	11053	
==>ly
p5_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_seque <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26733	26855	
==>the near
future where "Relation::Example" is a Role rather than a Class, and some
implementations are immutable rather than <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8231	8352	
==>: ", $Strap->_command_line($tfile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) or
          do { w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1464	1558	
==>f $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1604	1698	
==>f $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6592	6701	
==>s' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6592	6701	
==>s' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6592	6701	
==>s' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($ro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28864	28968	
==>groupp, minmod, prop, open, quant, ref,
reg_any.

=item my $f = $obj->flags()

The flag value for this ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13465	13569	
==>V);
	local @ENV{@keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9512	9633	
==>XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9512	9633	
==>XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9512	9633	
==>XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6058	6185	
==>bute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6058	6185	
==>bute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6058	6185	
==>bute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19104	19211	
==>BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first col <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19104	19211	
==>BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first col <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	955	1053	
==>oerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	955	1053	
==>oerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	955	1053	
==>oerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21643	21847	
==>( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21643	21847	
==>( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21643	21847	
==>( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5286	5385	
==>$iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# tr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	801	893	
==>lidator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	801	893	
==>lidator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This documen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31500	31598	
==>has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36050	36148	
==>has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35277	35375	
==>has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply retur <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1243	1389	
==>/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

= <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1243	1389	
==>/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3815	3926	
==>w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3815	3926	
==>w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3815	3926	
==>w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12472	12598	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12472	12598	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12472	12598	
==>sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetch <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2712	2836	
==>pe) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12910	13020	
==>my method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F]) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12910	13020	
==>my method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3037	3187	
==>e =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3037	3187	
==>e =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3037	3187	
==>e =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	46	147	
==>62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	46	147	
==>62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13286	13388	
==>PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13286	13388	
==>PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13286	13388	
==>PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	749	868	
==>this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	749	868	
==>this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	749	868	
==>this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2974	3076	
==>_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2974	3076	
==>_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3054	3156	
==>_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1992	2127	
==>w( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2427	2562	
==>w( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2864	2999	
==>w( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracte <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10327	10502	
==>ity => 3,
        name => '&print',
        body => sub {
            my $self = shift;
            my $fh = shift->val;
            print $fh @_;
        }
    },
    map {{ a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2943	3055	
==>ule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3083	3195	
==>ule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6223	6322	
==>e custom, for when you don't want to mess
with members belonging to 3rd party classes that your obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6223	6322	
==>e custom, for when you don't want to mess
with members belonging to 3rd party classes that your obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6223	6322	
==>e custom, for when you don't want to mess
with members belonging to 3rd party classes that your obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	158	308	
==>=> {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	158	308	
==>=> {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	158	308	
==>=> {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	446	540	
==>SCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	446	540	
==>SCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7202	7330	
==>agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7202	7330	
==>agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.head <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	681	794	
==>non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard po <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	681	794	
==>non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard po <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5887	5986	
==>> $pkg)

Returns a list of all index_files that a given package belongs to.

=cut

sub index_files { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28815	28922	
==>TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28815	28922	
==>TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	186	285	
==>TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34261	34373	
==>= shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34261	34373	
==>= shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34261	34373	
==>= shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14777	14952	
==>>pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14777	14952	
==>>pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14777	14952	
==>>pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32195	32293	
==>n checks
each set's member for language B and displays that; and so on.

I<For the present, Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32195	32293	
==>n checks
each set's member for language B and displays that; and so on.

I<For the present, Locale: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	866	966	
==>essage to the normal output filehandle, adding leading C<#>
characters after all newlines if they are <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	866	966	
==>essage to the normal output filehandle, adding leading C<#>
characters after all newlines if they are <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1422	1522	
==>essage to the normal output filehandle, adding leading C<#>
characters after all newlines if they are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10780	10895	
==>functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10780	10895	
==>functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10780	10895	
==>functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7289	7433	
==>my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last S <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10107	10213	
==>{
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibli <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10107	10213	
==>{
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibli <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	402	487	
==>s_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	402	487	
==>s_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	402	487	
==>s_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_help <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13509	13857	
==>ame    => $tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED be <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1058	1192	
==>fined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1058	1192	
==>fined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6099	6210	
==>lf.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6099	6210	
==>lf.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22253	22361	
==>>object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18674	18782	
==>>object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	784	892	
==>boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	784	892	
==>boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	784	892	
==>boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11899	12045	
==>s->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11899	12045	
==>s->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11899	12045	
==>s->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8739	8829	
==>m>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8739	8829	
==>m>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1232	1343	
==>ent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1232	1343	
==>ent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1232	1343	
==>ent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	822	931	
==>{
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	822	931	
==>{
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	822	931	
==>{
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16761	16861	
==>value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16761	16861	
==>value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don' <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	565	664	
==>aintedness of %ENV, this could perturbate tests
$ENV{PERL_CORE} = 1 unless ${^TAINT};

$0 ~~ s/\. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	536	650	
==>f = shift;
    local $@;
    my $autoload = eval { $self->_top->autoload } or return;
    goto &$autoload;
}

#line <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1272	1378	
==>dth($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1272	1378	
==>dth($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39226	39348	
==>t @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39226	39348	
==>t @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39226	39348	
==>t @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1645	1756	
==>use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1645	1756	
==>use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1645	1756	
==>use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8010	8152	
==>Noop|TCxtVoid|VUndef|CxtVoid)$/;
	    }
	}
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	595	704	
==>s redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	431	555	
==>ual {
    my $self = shift;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16840	16935	
==>.content_encoding

The Content-Encoding header field is used as a modifier to the
media type.  W <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16840	16935	
==>.content_encoding

The Content-Encoding header field is used as a modifier to the
media type.  W <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15569	15662	
==>ty and the %entity_to_char hashes,
which contain the mapping from all characters to the corres <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15569	15662	
==>ty and the %entity_to_char hashes,
which contain the mapping from all characters to the corres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2399	2517	
==>";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2399	2517	
==>";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2399	2517	
==>";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1955	2082	
==>ach %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1955	2082	
==>ach %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1955	2082	
==>ach %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8249	8355	
==>Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8249	8355	
==>Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8249	8355	
==>Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_meth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2723	2868	
==>"\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2916	3061	
==>"\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	365	529	
==>plate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => % <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	365	529	
==>plate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => % <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31059	31181	
==>('_make_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5796	5936	
==>end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5796	5936	
==>end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5796	5936	
==>end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2224	2335	
==>s->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" . $role->id . " -- node_" . $class <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3594	3689	
==>= @_;

	my $type = $self->resolve_type($node);
	
	$self->add_definition($node, "const $type $sym <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27448	27542	
==> int", ":t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5779	5880	
==>ire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5779	5880	
==>ire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5779	5880	
==>ire PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7924	8045	
==>Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	154	271	
==>Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	154	271	
==>Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16811	16971	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16811	16971	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16811	16971	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	178	324	
==>> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	178	324	
==>> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	178	324	
==>> [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8758	8935	
==>ribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # vari <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8758	8935	
==>ribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # vari <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8758	8935	
==>ribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1023	1144	
==>rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1423	1544	
==>rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1897	2018	
==>rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	104	221	
==>ere so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	104	221	
==>ere so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	104	221	
==>ere so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	621	716	
==>IL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	621	716	
==>IL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	621	716	
==>IL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2025	2148	
==>"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2025	2148	
==>"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2025	2148	
==>"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrap <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1665	1780	
==>v;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1665	1780	
==>v;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4110	4234	
==>ys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4110	4234	
==>ys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4110	4234	
==>ys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17567	17739	
==>" . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17567	17739	
==>" . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17567	17739	
==>" . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	982	1112	
==>unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$wanted];

  return sub($input) {
    return
      unless defined <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3803	3909	
==>L_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3803	3909	
==>L_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1847	2005	
==>)
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1847	2005	
==>)
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1847	2005	
==>)
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1758	1867	
==>$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1758	1867	
==>$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1758	1867	
==>$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4316	4457	
==>}
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4316	4457	
==>}
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4316	4457	
==>}
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10069	10275	
==>(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Canno <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2124	2308	
==>(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Canno <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2124	2308	
==>(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Canno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6263	6418	
==>r ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6263	6418	
==>r ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6263	6418	
==>r ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9191	9317	
==>= %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9191	9317	
==>= %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3262	3362	
==>?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18709	18827	
==>sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15130	15248	
==>sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30468	30586	
==>sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2279	2409	
==>y harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2279	2409	
==>y harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2279	2409	
==>y harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5053	5186	
==>$self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5053	5186	
==>$self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5053	5186	
==>$self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4398	4519	
==>L::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4398	4519	
==>L::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4398	4519	
==>L::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4596	4699	
==>tPropertyName($V),$W);
        return;
    } # 6
    JSX::global_object.<[[Put]]>(GetPropertyName($V),$W <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1135	1229	
==>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
* <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1135	1229	
==>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1279	1387	
==>ce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1279	1387	
==>ce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1279	1387	
==>ce_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22078	22172	
==>hannel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22078	22172	
==>hannel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3828	3935	
==>est::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramet <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3828	3935	
==>est::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6025	6132	
==>est::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setting the passed paramet <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4412	4628	
==>LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n") <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4412	4628	
==>LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n") <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6463	6593	
==>a} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	395	502	
==>>{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	395	502	
==>>{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	395	502	
==>>{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17695	17792	
==>C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compila <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17695	17792	
==>C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compila <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14241	14343	
==>eturn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14241	14343	
==>eturn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14241	14343	
==>eturn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1895	2018	
==>ush @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1895	2018	
==>ush @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1975	2098	
==>ush @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8407	8528	
==>kg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cached, and called wi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2550	2653	
==>il 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2550	2653	
==>il 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4143	4238	
==>r a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4143	4238	
==>r a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4143	4238	
==>r a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(Stri <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3998	4129	
==>pens often on VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self->{saw_lone_not} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13334	13447	
==>_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13334	13447	
==>_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13334	13447	
==>_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2707	2839	
==>dy;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2707	2839	
==>dy;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2707	2839	
==>dy;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14731	14827	
==>specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14731	14827	
==>specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in hea <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11900	12000	
==>you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me' <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11958	12058	
==>you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	498	596	
==>herit_grammar { die "not implemented" };

sub add_op {
    # name=>'*', precedence=>'>', other=>'+' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3799	3900	
==>lns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3799	3900	
==>lns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3799	3900	
==>lns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4420	4531	
==>nd().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4420	4531	
==>nd().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4420	4531	
==>nd().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2850	2954	
==>ckage PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2850	2954	
==>ckage PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2850	2954	
==>ckage PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6989	7150	
==>efined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multide <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6989	7150	
==>efined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multide <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6876	6984	
==>ign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = $Result <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4802	4914	
==>n => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4802	4914	
==>n => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17067	17165	
==>red_attrs;
    my Relation::Example @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) { <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7142	7250	
==>l" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the D <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	190	286	
==>r::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	190	286	
==>r::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	584	710	
==>.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	584	710	
==>.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	584	710	
==>.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$se <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	585	686	
==>y a source code generator.
   Which also addresses the problem that macros are currently
   quite slow <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	585	686	
==>y a source code generator.
   Which also addresses the problem that macros are currently
   quite slow <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4806	4922	
==>return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4806	4922	
==>return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28289	28383	
==>=item $parser->add_handler($seq, $code)

This method creates a method of the parser named $seq, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	393	514	
==>s::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
        name => 'postcir <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22830	22927	
==>name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27382	27479	
==>name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9000	9106	
==>ared libraries (*.so) pugs
      requires. This is necessary so we can copy them on the CD later.
HELP

  s <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4797	4933	
==>ve 0, round floor below 0
    if $x < 0 {
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15119	15219	
==>ue is set if you pass
an argument to the method.  The old header value is always returned.
If the giv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15119	15219	
==>ue is set if you pass
an argument to the method.  The old header value is always returned.
If the giv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40150	40278	
==>e->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40150	40278	
==>e->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40150	40278	
==>e->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{a <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9318	9410	
==>ow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		), <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9513	9605	
==>ow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		), <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9708	9800	
==>ow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		), <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	940	1039	
==>ER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     return <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	940	1039	
==>ER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     return <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11028	11151	
==>$string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11028	11151	
==>$string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5327	5435	
==>->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5327	5435	
==>->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5327	5435	
==>->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	181	301	
==>{ require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	181	301	
==>{ require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	181	301	
==>{ require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4382	4493	
==>$cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4382	4493	
==>$cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4382	4493	
==>$cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8313	8436	
==>ngs( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8313	8436	
==>ngs( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8313	8436	
==>ngs( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48508	48614	
==>_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 'str')));
$::Module->send('add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4383	4512	
==>code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4383	4512	
==>code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4383	4512	
==>code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	766	874	
==>xe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	766	874	
==>xe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	766	874	
==>xe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5694	5811	
==>y -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5694	5811	
==>y -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5694	5811	
==>y -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14518	14705	
==>ub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14518	14705	
==>ub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14518	14705	
==>ub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15991	16146	
==>ATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15991	16146	
==>ATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15991	16146	
==>ATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10138	10242	
==>--------------------------------------  
    # collects all the roles, and applies them to the
    # invo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10138	10242	
==>--------------------------------------  
    # collects all the roles, and applies them to the
    # invo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10138	10242	
==>--------------------------------------  
    # collects all the roles, and applies them to the
    # invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	596	707	
==>order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	596	707	
==>order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	596	707	
==>order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23367	23507	
==>method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23367	23507	
==>method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23367	23507	
==>method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11815	11931	
==>) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1534	1640	
==>t $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi su <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1534	1640	
==>t $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33294	33391	
==>essage is found.  Since a
program or library may wish to override the user text of another library <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33294	33391	
==>essage is found.  Since a
program or library may wish to override the user text of another library <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8091	8205	
==>y using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8091	8205	
==>y using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8091	8205	
==>y using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7135	7232	
==>$self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7135	7232	
==>$self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7135	7232	
==>$self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	680	791	
==>) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	680	791	
==>) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	680	791	
==>) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4361	4483	
==>($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4361	4483	
==>($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4361	4483	
==>($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2480	2708	
==>e (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verb <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2480	2708	
==>e (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verb <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5166	5281	
==>l
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3058	3160	
==>', 'Bible'),catdir('..', 'perl6_doc', 'design' ))) {
        $syn_src_dir = $_ and last if -f catfile($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3776	3873	
==>methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redist <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3776	3873	
==>methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1272	1367	
==>t;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1272	1367	
==>t;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1272	1367	
==>t;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1608	1716	
==>:Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1608	1716	
==>:Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1608	1716	
==>:Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3656	3779	
==>n --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3656	3779	
==>n --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3656	3779	
==>n --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
E <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10285	10398	
==>-1][-1]->family eq $self->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13991	14087	
==>get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13991	14087	
==>get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4062	4193	
==>_emit( $n->{bare_block} ) . "\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6546	6631	
==>=> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6546	6631	
==>=> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6546	6631	
==>=> ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1728	1833	
==>PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1728	1833	
==>PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1728	1833	
==>PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	306	459	
==>rk($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	306	459	
==>rk($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2792	2933	
==>tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2792	2933	
==>tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2792	2933	
==>tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20663	20767	
==>ance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20663	20767	
==>ance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20663	20767	
==>ance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2150	2290	
==>urns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    els <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2150	2290	
==>urns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2771	2870	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2771	2870	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8017	8148	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8017	8148	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8017	8148	
==>' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16078	16180	
==>hod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19555	19657	
==>hod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!headi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35858	35951	
==>relation into a new Relation, such that all common attribute names
and corresponding common tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40408	40501	
==>relation into a new Relation, such that all common attribute names
and corresponding common tu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6810	6936	
==>ads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6810	6936	
==>ads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6810	6936	
==>ads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  }) <==
3	/Users/nnunley/pugs/util/grokprims.pl	2084	2188	
==>ple = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td>$op->{ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1366	1479	
==>@PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1366	1479	
==>@PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1366	1479	
==>@PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15188	15285	
==>e is always returned.
If the given header did not exist then C<undef> is returned.

Methods that d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15188	15285	
==>e is always returned.
If the given header did not exist then C<undef> is returned.

Methods that d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9226	9318	
==>------------------------------------------------------------------------

This is a rough ske <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9226	9318	
==>------------------------------------------------------------------------

This is a rough ske <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9226	9318	
==>------------------------------------------------------------------------

This is a rough ske <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2170	2265	
==>blems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basica <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2170	2265	
==>blems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1142	1248	
==>(my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1142	1248	
==>(my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1142	1248	
==>(my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6662	6776	
==>ses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6662	6776	
==>ses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6662	6776	
==>ses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1184	1290	
==>dy =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2058	2164	
==>dy =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	569	668	
==>dy =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6991	7116	
==>n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3595	3720	
==>n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4444	4569	
==>n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17474	17607	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20951	21084	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20538	20671	
==>r!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1579	1706	
==>e) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1579	1706	
==>e) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1579	1706	
==>e) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skip <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1340	1458	
==>$regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3625	3733	
==>p { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3625	3733	
==>p { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LV <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4919	5053	
==>nitchar < 2))
        {
          goto term_literal;
        }
        $matchObj->{value} = $initchar;
        $matchObj->{isnegated} = <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1348	1446	
==>y work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1348	1446	
==>y work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6411	6522	
==>- litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15152	15261	
==>r $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15152	15261	
==>r $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1223	1330	
==>fg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1223	1330	
==>fg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1223	1330	
==>fg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	462	562	
==>> v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	462	562	
==>> v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6795	6892	
==>ndom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6795	6892	
==>ndom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6795	6892	
==>ndom() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1046	1157	
==>plemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1046	1157	
==>plemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1046	1157	
==>plemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7143	7260	
==>^.*/(\D\d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4096	4184	
==>urn [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4096	4184	
==>urn [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13529	13705	
==>nal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9713	9889	
==>nal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10549	10725	
==>nal_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	166	263	
==>bject fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_field <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	166	263	
==>bject fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_field <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	258	350	
==>amusement, I've inserted unchanged
# my original first attempts, head.p6, tail.p6, rev.p6, mi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2882	3001	
==>uilder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation? <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2882	3001	
==>uilder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4406	4525	
==>uilder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4168	4275	
==>l;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4168	4275	
==>l;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4168	4275	
==>l;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9899	10018	
==>)
             (closure::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher" <block <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3165	3278	
==>: '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3153	3266	
==>: '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1288	1389	
==>lse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1288	1389	
==>lse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1288	1389	
==>lse;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13233	13379	
==>XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12663	12794	
==>r $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12663	12794	
==>r $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19233	19330	
==>ctions beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREB <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19233	19330	
==>ctions beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREB <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1647	1772	
==>" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1635	1760	
==>" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match po <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17760	17856	
==><E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains info <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17760	17856	
==><E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains info <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	960	1056	
==>}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Ty <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5626	5758	
==>name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5638	5770	
==>name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) { <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	220	339	
==>package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10966	11084	
==>:Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10966	11084	
==>:Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10966	11084	
==>:Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5822	5927	
==>my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5822	5927	
==>my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5822	5927	
==>my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5267	5360	
==>urn new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:undef),@_) if <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12125	12239	
==>oto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapture
    if iscapture = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21217	21311	
==>ins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21217	21311	
==>ins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a chan <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2558	2665	
==>ntersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2558	2665	
==>ntersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30693	30791	
==>e, which is why it must match the right parenthesis
itself.  The handler throws an error if it can' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	814	920	
==>epc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	814	920	
==>epc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	814	920	
==>epc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27441	27607	
==>self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27441	27607	
==>self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27441	27607	
==>self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' | <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4238	4339	
==>isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_tha <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17173	17270	
==>e and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl ap <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17173	17270	
==>e and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl ap <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1069	1177	
==>file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" un <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1069	1177	
==>file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	722	848	
==>x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	722	848	
==>x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	722	848	
==>x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1732	1864	
==>cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1732	1864	
==>cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1732	1864	
==>cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && ( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13596	13712	
==>name=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1173	1275	
==>s::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1173	1275	
==>s::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	339	459	
==>irs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	339	459	
==>irs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	339	459	
==>irs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	21	128	
==>:Type::Equivalence;

use Perl6::Core::Type;

package type::equivalence;

use strict;
use warnings;

use Scal <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	172	269	
==>up.  This is approximately the Match object that userland folks will
see, but it has some other cl <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	172	269	
==>up.  This is approximately the Match object that userland folks will
see, but it has some other cl <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	532	631	
==>sts) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $num <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	590	689	
==>sts) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $num <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1042	1141	
==>'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null string many times';
us <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2010	2106	
==>y $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2010	2106	
==>y $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36866	36961	
==>tion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: string with contents of <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9349	9521	
==>Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->new(''),
            ),
            App->new(
                Sym->new <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	62	179	
==>strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	62	179	
==>strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2459	2572	
==>bstr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2459	2572	
==>bstr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2459	2572	
==>bstr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11662	11793	
==>time::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3271	3369	
==>ethod add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3271	3369	
==>ethod add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13402	13525	
==>etta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13402	13525	
==>etta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7265	7387	
==>>file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural fu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25283	25376	
==>ing C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This progr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25283	25376	
==>ing C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This progr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19425	19506	
==><lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19425	19506	
==><lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2410	2619	
==>each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2410	2619	
==>each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22389	22555	
==>am );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22389	22555	
==>am );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22389	22555	
==>am );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6444	6564	
==>letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCombiningMark {  # see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7328	7432	
==>, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7328	7432	
==>, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21295	21393	
==>0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21295	21393	
==>0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21295	21393	
==>0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23316	23504	
==>urn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23316	23504	
==>urn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23316	23504	
==>urn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18487	18584	
==>) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18487	18584	
==>) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18487	18584	
==>) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15919	16034	
==>[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15919	16034	
==>[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15919	16034	
==>[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9820	10017	
==>atch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9820	10017	
==>atch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9820	10017	
==>atch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12543	12659	
==>Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12543	12659	
==>Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12543	12659	
==>Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	163	269	
==>rator;

# TODO - implement the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN {
    $op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7517	7613	
==>hift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list cont <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7517	7613	
==>hift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list cont <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	113	201	
==>>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	113	201	
==>>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	576	685	
==>AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	782	891	
==>AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1600	1736	
==>etafile" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14001	14133	
==>tabase.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14001	14133	
==>tabase.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1096	1187	
==>pe $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1096	1187	
==>pe $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6865	6978	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6865	6978	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6865	6978	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16495	16592	
==>ts_from_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	749	845	
==>utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	749	845	
==>utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8418	8530	
==>->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8418	8530	
==>->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8418	8530	
==>->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15725	15815	
==>onment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15783	15873	
==>onment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22280	22369	
==>nsitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

charset <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1114	1249	
==>?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11331	11428	
==>but given that they are still a
somewhat experimental feature in Pugs, it is suggested you don't t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11389	11486	
==>but given that they are still a
somewhat experimental feature in Pugs, it is suggested you don't t <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	883	1001	
==>nal Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x * <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21670	21760	
==>I's provided independence
is I<Database Driver Independence>, and not I<Database Language
I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21670	21760	
==>I's provided independence
is I<Database Driver Independence>, and not I<Database Language
I <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2162	2329	
==>e9;
    return int($nano);
    #int( ($.second - int($.second) ) * 1e9);
}
method microsecond returns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	762	911	
==>" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	762	911	
==>" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10942	11084	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8012	8148	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8012	8148	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1359	1462	
==>hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1359	1462	
==>hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1359	1462	
==>hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HA <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7262	7381	
==>(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(859 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7262	7381	
==>(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(859 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1507	1598	
==>1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@IN <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	49	161	
==>d

=head1 NAME

JIB - Perl6 Package Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6981	7078	
==>nd;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7039	7136	
==>nd;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5356	5477	
==>m->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5356	5477	
==>m->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5356	5477	
==>m->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11755	11883	
==>NOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Da <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11755	11883	
==>NOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3468	3611	
==>ubmethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3468	3611	
==>ubmethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3468	3611	
==>ubmethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13136	13333	
==>tem => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13136	13333	
==>tem => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13136	13333	
==>tem => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Per <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	138	543	
==>use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	138	543	
==>use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rose <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	926	1042	
==>Set::Object->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = shift;

	my $h = Devel::S <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4487	4601	
==>ub concat {
    my($o,$aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3485	3583	
==>t::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3485	3583	
==>t::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	769	870	
==>ns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	769	870	
==>ns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11108	11209	
==>of passed tests is calculated using the total number of
    tests run -- for example, if a backend onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2820	2924	
==>"Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2820	2924	
==>"Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2820	2924	
==>"Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3762	3858	
==>t if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3762	3858	
==>t if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3762	3858	
==>t if @_;
    Data::Dumper::Dumper $self;
}));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1328	1470	
==>push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            retu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1328	1470	
==>push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4652	4752	
==>reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv->val);
}

sub ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4704	4815	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4704	4815	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4704	4815	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	483	627	
==>ORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	483	627	
==>ORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	483	627	
==>ORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2354	2486	
==>up {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2601	2733	
==>up {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5963	6121	
==>->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5963	6121	
==>->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5963	6121	
==>->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2323	2421	
==>throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2323	2421	
==>throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2323	2421	
==>throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filena <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1086	1259	
==>entify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1086	1259	
==>entify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1086	1259	
==>entify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1926	2048	
==>) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1926	2048	
==>) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1926	2048	
==>) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15477	15627	
==>d = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15477	15627	
==>d = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15477	15627	
==>d = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7244	7426	
==>ess ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7244	7426	
==>ess ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7244	7426	
==>ess ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	145	265	
==>ainer::Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Contain <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1897	2024	
==>le in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5374	5501	
==>le in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4304	4431	
==>le in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	371	501	
==>";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17044	17144	
==>ispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3701	3821	
==>d $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3701	3821	
==>d $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3701	3821	
==>d $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2842	2978	
==>TDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2842	2978	
==>TDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2842	2978	
==>TDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a-> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13349	13446	
==>head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13349	13446	
==>head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	406	525	
==>l5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(50 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	503	622	
==>l5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(50 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4097	4189	
==>m('&infix:<+>') will resolve '&infix:<+>' into the thunk that does
addition, C<< Val(1) >> wi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17251	17371	
==>ind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my @cla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6098	6188	
==>r::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason rol <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6098	6188	
==>r::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8295	8385	
==>r::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason rol <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3621	3717	
==>ss instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3621	3717	
==>ss instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5818	5914	
==>ss instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

Thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3704	3838	
==>^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3897	4031	
==>^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21589	21691	
==>::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

This module holds the init() meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18888	19011	
==>lf->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15309	15432	
==>lf->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1" <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12129	12245	
==>e/parrot/include/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	527	646	
==>n be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	527	646	
==>n be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	527	646	
==>n be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1807	2102	
==>ot exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22002	22210	
==>nstant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22281	22489	
==>nstant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10535	10659	
==>if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10535	10659	
==>if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10535	10659	
==>if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6166	6288	
==>.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9643	9765	
==>.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8717	8839	
==>.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19759	19913	
==>= $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19759	19913	
==>= $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19759	19913	
==>= $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1624	1796	
==>e $prerm && -s _ ) {
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( <$fh> ) {
        chomp;
        -e $_ && system(qq[rm <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	68	160	
==>ff the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
met <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	68	160	
==>ff the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
met <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1300	1419	
==>t{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "D <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19081	19174	
==>applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19081	19174	
==>applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2926	3072	
==>ibutes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2926	3072	
==>ibutes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2926	3072	
==>ibutes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5070	5232	
==>erl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5070	5232	
==>erl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5070	5232	
==>erl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10746	10856	
==>);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	pus <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10746	10856	
==>);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	pus <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10746	10856	
==>);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7152	7244	
==>0)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7152	7244	
==>0)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7152	7244	
==>0)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5607	5731	
==>, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5829	5953	
==>, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6127	6240	
==>cat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $tokenCat = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1662	1763	
==>our precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1662	1763	
==>our precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1662	1763	
==>our precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Coul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3290	3398	
==>s an invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute C</usr/bin/pugs>.

* it te <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	261	368	
==>ke, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	212	310	
==>ke, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2240	2365	
==>->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2240	2365	
==>->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2240	2365	
==>->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3207	3301	
==>uch better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3094	3185	
==>uch better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2445	2603	
==>= show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2445	2603	
==>= show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2445	2603	
==>= show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4157	4283	
==>ift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4157	4283	
==>ift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4157	4283	
==>ift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	848	975	
==>e
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_CODE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4493	4603	
==>rn "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4493	4603	
==>rn "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2955	3075	
==>$op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3804	3924	
==>$op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10178	10265	
==>:arrow->new(
		type::operator::nary->new(list => type::variable::free->new),
		type::ope <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14259	14353	
==>o iterate through a continuous span, because the "separation" 
between values would be very clo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14259	14353	
==>o iterate through a continuous span, because the "separation" 
between values would be very clo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24119	24211	
==>::LoopControl('-text' => 'last'))";
}
sub p6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3960	4066	
==>e_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3960	4066	
==>e_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3960	4066	
==>e_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7141	7285	
==>\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7141	7285	
==>\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8975	9064	
==>ils';
fails_ok { $iFoo->singleton_test_on_object } '... instance calling metaclass singlet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9836	9939	
==>b {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9836	9939	
==>b {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9836	9939	
==>b {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14392	14489	
==>TI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14392	14489	
==>TI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14392	14489	
==>TI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1026	1130	
==>e_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  $self- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4513	4656	
==>e for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4635	4753	
==>ype !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4635	4753	
==>ype !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7305	7406	
==>kage Regexp::Parser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1443	1540	
==>ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expecte <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1443	1540	
==>ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expecte <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9848	9961	
==>ule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5374	5486	
==>rint",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5374	5486	
==>rint",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5374	5486	
==>rint",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9183	9312	
==>ode_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'cre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9183	9312	
==>ode_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'cre <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29373	29464	
==>pping> keys do not match invocant
Relation::Example attribute names, or any C<$mapping> valu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11203	11313	
==>ure = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, ta <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	943	1031	
==>:Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	943	1031	
==>:Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4279	4384	
==>( "Could not load meta file from archive: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_stru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2674	2768	
==>rint "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2674	2768	
==>rint "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15452	15547	
==>f needs between its different
users, such as their preferred language of communication, or their <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15452	15547	
==>f needs between its different
users, such as their preferred language of communication, or their <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	479	604	
==>XXX - hack or pugsbug?
        return '' unless +@:output;

        my $output = @:output.join( "\n" );
        @:output   = ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4718	4821	
==>);

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4718	4821	
==>);

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	730	868	
==>nodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blesse <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	730	868	
==>nodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blesse <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	730	868	
==>nodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blesse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2592	2726	
==>IL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2592	2726	
==>IL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2592	2726	
==>IL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1736	1855	
==>[ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8957	9062	
==>kage is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10434	10539	
==>kage is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2850	2995	
==>implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3034	3179	
==>implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18467	18550	
==>x,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1211	1314	
==>a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant(( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1211	1314	
==>a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant(( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1211	1314	
==>a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant(( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3820	3962	
==>: () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3820	3962	
==>: () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	473	586	
==>l"
#     5. The ./inc/ version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::In <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6087	6193	
==>or placeholder of " . Blondie::Emitter::Pretty->new->string(Blondie::TypeSafe::Flatten->new->reduce($node)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5132	5229	
==>c_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:D <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5132	5229	
==>c_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	924	1064	
==>ar ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	924	1064	
==>ar ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	924	1064	
==>ar ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10775	10879	
==>broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10775	10879	
==>broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10775	10879	
==>broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    } <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	477	607	
==>ep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        si <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1775	1871	
==>ate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $ra <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1775	1871	
==>ate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $ra <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1569	1674	
==>hod compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1569	1674	
==>hod compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	230	322	
==>ammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6609	6703	
==>return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identifie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6609	6703	
==>return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24089	24224	
==>y $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24089	24224	
==>y $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24089	24224	
==>y $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16776	16876	
==>e implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16776	16876	
==>e implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16776	16876	
==>e implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1934	2039	
==>, $value) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7329	7421	
==>$traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() e <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7329	7421	
==>$traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1309	1416	
==>P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17384	17485	
==>$iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17384	17485	
==>$iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	22106	22206	
==>mpile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $file > $file.yml");
    say "back.";
} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8530	8626	
==>ion')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8530	8626	
==>ion')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1672	1829	
==>class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1672	1829	
==>class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1672	1829	
==>class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7019	7198	
==>ub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $e->ge <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7858	7958	
==>- Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7858	7958	
==>- Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28204	28313	
==>CH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	449	557	
==>$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	449	557	
==>$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1950	2076	
==>ecedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13697	13799	
==>alues.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # it <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13697	13799	
==>alues.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1892	2015	
==>r requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1892	2015	
==>r requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1892	2015	
==>r requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1106	1217	
==>lice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1106	1217	
==>lice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1106	1217	
==>lice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2847	2972	
==>sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3040	3165	
==>sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2065	2188	
==>{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $cat = Pugs::Grammar::C <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10618	10799	
==>o reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print("        $test{todo}/$test{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	459	553	
==>EST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	459	553	
==>EST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8344	8479	
==>of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8344	8479	
==>of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8344	8479	
==>of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1895	1998	
==>' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1895	1998	
==>' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1895	1998	
==>' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	859	957	
==>:Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	859	957	
==>:Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	939	1037	
==>:Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35722	35815	
==>-method is a generic binary relational operator that takes
another Relation as its C<$other> a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40272	40365	
==>-method is a generic binary relational operator that takes
another Relation as its C<$other> a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1452	1545	
==>ccessor).

Run-time inheritance/method dispatch need not look at the meta
objects; each dispat <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15115	15277	
==>tag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $en <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	665	765	
==>orm
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1255	1355	
==>orm
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2619	2721	
==>)",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2619	2721	
==>)",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2619	2721	
==>)",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11182	11317	
==>xact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7599	7704	
==>face (named args) 

###    because the actual rule object will be full OO



:(Str $match_against, :$next_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7341	7443	
==>face (named args) 
###    because the actual rule object will be full OO

:(Str $match_against, :$next_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	151	257	
==>less { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	151	257	
==>less { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	151	257	
==>less { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pEx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	432	539	
==>>add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	324	424	
==>ams returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	324	424	
==>ams returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14121	14245	
==><= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14121	14245	
==><= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14121	14245	
==><= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/util/claim_drift.pl	921	1060	
==>->rel2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30729	30829	
==>odule has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30729	30829	
==>odule has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10829	11014	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10829	11014	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10829	11014	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10665	10811	
==>hod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10665	10811	
==>hod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10665	10811	
==>hod( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3821	3944	
==>( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = emit(@_);
}
sub node:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	7	109	
==>HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUI <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	7	109	
==>HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16969	17063	
==>ALL (opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1228	1319	
==>e

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1228	1319	
==>e

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2131	2282	
==>},
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the path absolute
        ### XXX <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27508	27608	
==>ehave as though STDOUT were
not a console.  You may need to set this if you don't want harness to
out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31698	31829	
==>t, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31698	31829	
==>t, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31698	31829	
==>t, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8269	8490	
==>ings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8269	8490	
==>ings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8269	8490	
==>ings};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3927	4049	
==>)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3939	4061	
==>)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	215	318	
==>s been changed to cc_files to reduce confusion and keep all compiler commands as cc_";
	shift()->cc_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2576	2707	
==>>new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2576	2707	
==>>new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2576	2707	
==>>new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6437	6543	
==>if($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6437	6543	
==>if($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6437	6543	
==>if($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3330	3484	
==>rtype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3330	3484	
==>rtype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3330	3484	
==>rtype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	66	198	
==>lass Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	66	198	
==>lass Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16161	16268	
==>)

  # any character

  # backslash

  # start of char class (and possible negation)
  $self->add_handler('[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5852	5952	
==>@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5852	5952	
==>@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5852	5952	
==>@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8048	8193	
==>n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8060	8205	
==>n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5508	5619	
==>::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2408	2506	
==>elf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2408	2506	
==>elf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2408	2506	
==>elf->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scop <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3437	3551	
==>all u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3437	3551	
==>all u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	479	586	
==>ndirect_object'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<var <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1803	1919	
==>ests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has thi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	980	1094	
==>ests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has thi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1453	1567	
==>ests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	795	919	
==>current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	795	919	
==>current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	795	919	
==>current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1336	1448	
==>, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1336	1448	
==>, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1336	1448	
==>, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1108	1216	
==>xt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1108	1216	
==>xt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1108	1216	
==>xt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7479	7575	
==>over the regex to make sure it
is well-formed -- any warnings or errors will be determined during <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17657	17749	
==>HODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17657	17749	
==>HODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8849	8997	
==>', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9042	9190	
==>', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1833	1949	
==>ie "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_config = $YAML->lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5377	5497	
==>b {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5377	5497	
==>b {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5377	5497	
==>b {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the super <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3504	3624	
==>accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3504	3624	
==>accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    " <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	978	1073	
==>.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>autrijus@au <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	58	170	
==>ule::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug and will be f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17870	17966	
==>create more than one DBMS object at a time, and they are
essentially all isolated from each other <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17870	17966	
==>create more than one DBMS object at a time, and they are
essentially all isolated from each other <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25629	25729	
==>n payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25629	25729	
==>n payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the k <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2146	2263	
==>TP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2146	2263	
==>TP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1479	1595	
==>n, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9610	9731	
==>idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9610	9731	
==>idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9610	9731	
==>idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10934	11062	
==>thod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10934	11062	
==>thod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10934	11062	
==>thod_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13596	13726	
==>>isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13596	13726	
==>>isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13596	13726	
==>>isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1237	1407	
==>2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1237	1407	
==>2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6485	6596	
==>ngify>;
        %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase s sigspace g global  stringify <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	290	414	
==>ch.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	290	414	
==>ch.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6029	6148	
==>hor_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10645	10756	
==>) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10645	10756	
==>) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10645	10756	
==>) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34010	34138	
==>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34010	34138	
==>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34010	34138	
==>is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1494	1653	
==>y($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1494	1653	
==>y($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1494	1653	
==>y($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7283	7409	
==>ram = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7271	7397	
==>ram = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16464	16579	
==>ub "p6rule"
    .param string pattern
    .param string grammar      :optional
    .param int has_gram        :opt_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1149	1255	
==>int, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1149	1255	
==>int, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1149	1255	
==>int, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write ou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	380	479	
==>filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
loc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	380	479	
==>filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6023	6134	
==>x {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6023	6134	
==>x {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6023	6134	
==>x {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $bod <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	778	906	
==>tainer_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	760	883	
==>tainer_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	760	883	
==>tainer_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	114	224	
==>=> "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	114	224	
==>=> "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	114	224	
==>=> "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1580	1692	
==>=> '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1580	1692	
==>=> '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1580	1692	
==>=> '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	646	773	
==>s stopped by a { return } or a fail(),

           and it should not backtrack or whatever



Continuations are used for backtra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10514	10641	
==>s stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	619	743	
==>s stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1567	1715	
==>s{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1567	1715	
==>s{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%head <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14688	14784	
==>yExpression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryExpression>
}
rule MultiplicativeExp <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2619	2720	
==>vial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2231	2327	
==>ame) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2231	2327	
==>ame) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	286	382	
==>RAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	286	382	
==>RAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	286	382	
==>RAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	163	266	
==>of modules that will be used
as the base for Perl6's CPAN, also known as sixpan.

Please refer the docum <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	582	678	
==>s both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code dire <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	582	678	
==>s both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code dire <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16025	16136	
==>ER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16025	16136	
==>ER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4614	4713	
==>the rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4614	4713	
==>the rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	74	170	
==>brule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@ISA=qw(Match);
use overload
    'bool' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3884	3987	
==>> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3884	3987	
==>> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3884	3987	
==>> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20531	20630	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20531	20630	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20531	20630	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ( <==
3	/Users/nnunley/pugs/util/func_refact.pl	1663	1822	
==>$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	225	329	
==>(<>) {
	if($_ =~ $signature) { $fn = $1; next }
	#if($_ =~ $signature) { $fn = $1; $g->add_node($fn); nex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6129	6227	
==>->{data}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp::Pars <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21872	21969	
==>:KeyedText can be given input that says what resource
files it should use and in what order they s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21872	21969	
==>:KeyedText can be given input that says what resource
files it should use and in what order they s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13132	13277	
==>cial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13132	13277	
==>cial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13132	13277	
==>cial case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3347	3473	
==>ts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2670	2788	
==>b );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2658	2776	
==>b );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	530	622	
==>ile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	530	622	
==>ile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6098	6205	
==>urn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6086	6193	
==>urn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11600	11701	
==>ammar;

{
	# please forgive me
	my $orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4804	4943	
==>2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4804	4943	
==>2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1770	1891	
==>"Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1770	1891	
==>"Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1770	1891	
==>"Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2183	2284	
==>if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    un <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2161	2262	
==>if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1319	1419	
==>{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6491	6605	
==>le_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6491	6605	
==>le_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1991	2112	
==>code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$tes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1991	2112	
==>code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$tes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1991	2112	
==>code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11331	11430	
==>ant that submethods are used
because they will not get inherited. This provides more predictable 
be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11331	11430	
==>ant that submethods are used
because they will not get inherited. This provides more predictable 
be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11331	11430	
==>ant that submethods are used
because they will not get inherited. This provides more predictable 
be <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23520	23646	
==>b new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23873	23999	
==>b new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12665	12771	
==>splay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3963	4065	
==>equired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3963	4065	
==>equired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3963	4065	
==>equired, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11130	11245	
==>_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11130	11245	
==>_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11130	11245	
==>_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5634	5772	
==>ide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5634	5772	
==>ide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5634	5772	
==>ide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18230	18344	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18230	18344	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18230	18344	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2845	2947	
==>argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2845	2947	
==>argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3192	3294	
==>argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5745	5850	
==>j;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5745	5850	
==>j;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5745	5850	
==>j;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter.)

=it <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13265	13375	
==>rompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13265	13375	
==>rompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3274	3379	
==>'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3274	3379	
==>'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3274	3379	
==>'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6402	6541	
==>ec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6402	6541	
==>ec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6402	6541	
==>ec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	871	1041	
==>, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	871	1041	
==>, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1288	1397	
==>ack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1288	1397	
==>ack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1288	1397	
==>ack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3289	3403	
==>c($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3289	3403	
==>c($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3289	3403	
==>c($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4771	4942	
==>k('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4993	5164	
==>k('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	828	946	
==>.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	828	946	
==>.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	828	946	
==>.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	810	939	
==>";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	810	939	
==>";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	810	939	
==>";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13975	14117	
==>ef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13975	14117	
==>ef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13975	14117	
==>ef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieab <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1829	1935	
==>t.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1829	1935	
==>t.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1829	1935	
==>t.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3750	3897	
==>elay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3750	3897	
==>elay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($r <==
3	/Users/nnunley/pugs/util/package-osx.pl	5544	5641	
==>an3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/man/man3/ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3537	3635	
==>elf.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    sa <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3537	3635	
==>elf.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    sa <==
3	/Users/nnunley/pugs/util/combine_tests.pl	172	262	
==>ine_tests(@data);
#
#print YAML::Dump($combined);
print Dump(combine_tests(map { LoadFile($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2762	2911	
==>bort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2762	2911	
==>bort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	301	429	
==>w than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	301	429	
==>w than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	301	429	
==>w than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4900	5015	
==>lf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4900	5015	
==>lf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5490	5605	
==>lf->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8635	8820	
==>system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status di <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1785	1947	
==>system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14459	14576	
==>) = @_;
    return $S->force_object(anyof_class => lower => $neg, \$how);
  });

  # print POSIX class
  $self->add_ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13347	13476	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13347	13476	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13347	13476	
==>plicable method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10485	10620	
==>ce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10485	10620	
==>ce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10485	10620	
==>ce_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method whic <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	21	281	
==>6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	21	281	
==>6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	90	215	
==>ire;

use Blondie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

sub compiler {
    my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3609	3720	
==>}
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3609	3720	
==>}
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8632	8806	
==>x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8632	8806	
==>x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5277	5382	
==>ers>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<3 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5277	5382	
==>ers>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	935	1031	
==>.. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	935	1031	
==>.. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	935	1031	
==>.. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	71	175	
==>here ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	71	175	
==>here ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	71	175	
==>here ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2433	2570	
==>s.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
} <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2433	2570	
==>s.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
} <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23849	23938	
==>, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_u <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1169	1300	
==>f($self->val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = shift;
        Digest->compute($ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	102	208	
==>s Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller na <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	102	208	
==>s Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6353	6486	
==>=> '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6353	6486	
==>=> '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6353	6486	
==>=> '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4497	4621	
==>__PACKAGE__->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => 'and' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6215	6328	
==>, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7213	7326	
==>, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16861	16965	
==>s

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16861	16965	
==>s

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16861	16965	
==>s

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9730	9847	
==>idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9730	9847	
==>idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9730	9847	
==>idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8258	8394	
==>)";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8258	8394	
==>)";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8258	8394	
==>)";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1531	1641	
==>elf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1531	1641	
==>elf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1531	1641	
==>elf->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->ne <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21402	21498	
==>attribute has a name that is distinct from the other
attributes, though several attributes may st <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25954	26050	
==>attribute has a name that is distinct from the other
attributes, though several attributes may st <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24587	24683	
==>attribute has a name that is distinct from the other
attributes, though several attributes may st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21468	21586	
==>t if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21468	21586	
==>t if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21468	21586	
==>t if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' ) <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1885	1986	
==>/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have distin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36384	36477	
==>uce the list of Template module
names that it will search.

=item C<translate_message( $messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36384	36477	
==>uce the list of Template module
names that it will search.

=item C<translate_message( $messag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3663	3867	
==>> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3910	4114	
==>> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5322	5433	
==>_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2864	2975	
==>_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3713	3824	
==>_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6313	6413	
==>ling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6313	6413	
==>ling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6313	6413	
==>ling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2729	2947	
==>ew(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $at <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1528	1635	
==>e::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.p <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1528	1635	
==>e::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9213	9301	
==>=pod

-------------------------------------------------------------------------------

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9213	9301	
==>=pod

-------------------------------------------------------------------------------

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9213	9301	
==>=pod

-------------------------------------------------------------------------------

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	160	272	
==>ict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	124	235	
==>ict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	212	323	
==>ict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1268	1364	
==>3.14159265358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is bu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2529	2621	
==>from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2529	2621	
==>from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4711	4810	
==>iqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4711	4810	
==>iqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4711	4810	
==>iqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16419	16516	
==>T

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16477	16574	
==>T

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4352	4458	
==>Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4736	4839	
==>an} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4736	4839	
==>an} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8619	8822	
==>2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12096	12299	
==>2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11305	11508	
==>2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2010	2122	
==>cope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2010	2122	
==>cope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2010	2122	
==>cope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14217	14345	
==>ool = $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	92	189	
==>use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	92	189	
==>use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	563	673	
==>nown.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	563	673	
==>nown.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	563	673	
==>nown.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20711	20805	
==>methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a modu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20711	20805	
==>methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a modu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5611	5713	
==>:Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also over <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5611	5713	
==>:Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also over <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7808	7910	
==>:Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also over <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9947	10079	
==>match_scalar) {
    }

    return $S->object(eol => eol => '$$');
  });


  ### '@'


  ### '%'


  ### '^'

  $self->add_handler('^' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1337	1463	
==>ew(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1337	1463	
==>ew(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4408	4533	
==>s defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4408	4533	
==>s defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4408	4533	
==>s defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10691	10821	
==>hod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10691	10821	
==>hod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10691	10821	
==>hod;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2535	2647	
==>$substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2535	2647	
==>$substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2535	2647	
==>$substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	51	162	
==>fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	51	162	
==>fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	51	162	
==>fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6589	6704	
==>lf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6589	6704	
==>lf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6589	6704	
==>lf->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2839	3054	
==>l6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2839	3054	
==>l6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2839	3054	
==>l6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTRO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5566	5681	
==>_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).define <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5566	5681	
==>_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).define <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1085	1197	
==>\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as_png unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3136	3226	
==>www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acce <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3136	3226	
==>www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acce <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3483	3573	
==>www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	498	619	
==>c = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      )) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	498	619	
==>c = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      )) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	498	619	
==>c = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      )) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13210	13367	
==>_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13210	13367	
==>_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13210	13367	
==>_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14209	14314	
==>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14209	14314	
==>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14209	14314	
==>new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4594	4697	
==>d refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4594	4697	
==>d refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6848	6963	
==>fix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6848	6963	
==>fix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6848	6963	
==>fix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15169	15276	
==>dy of the function, based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1858	1961	
==>t.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1858	1961	
==>t.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	842	957	
==>ght + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	842	957	
==>ght + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37163	37251	
==>:Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16292	16447	
==>->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16286	16441	
==>->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8193	8293	
==>(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22413	22526	
==>lumns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18803	18900	
==>the desired nick is already
used.

This module will C</WHO> itself after login, so it can give you <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18803	18900	
==>the desired nick is already
used.

This module will C</WHO> itself after login, so it can give you <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12265	12421	
==>{
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16022	16114	
==>jus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16080	16172	
==>jus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5691	5807	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3027	3143	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3876	3992	
==>get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23069	23275	
==>ram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23069	23275	
==>ram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23069	23275	
==>ram, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->b <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1270	1399	
==>y split?
        # my @args = $string.split(rx:Perl5/\s+/);
        # my @args = split(rx:Perl5/\s+/, $string);
        
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	490	607	
==>qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### BACKSLASHED THINGS

  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10355	10545	
==>b {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10355	10545	
==>b {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10355	10545	
==>b {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4636	4743	
==>n1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tm <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4636	4743	
==>n1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5473	5579	
==>rom_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5473	5579	
==>rom_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5473	5579	
==>rom_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36369	36464	
==>he remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40918	41013	
==>he remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40532	40627	
==>he remaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8477	8640	
==>aybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8477	8640	
==>aybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8477	8640	
==>aybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1428	1536	
==>SSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1428	1536	
==>SSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1428	1536	
==>SSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2386	2510	
==>V{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2386	2510	
==>V{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2386	2510	
==>V{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  prelud <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7285	7433	
==>d $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7285	7433	
==>d $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7285	7433	
==>d $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	181	290	
==>PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	181	290	
==>PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	181	290	
==>PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5777	5900	
==>isone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_ste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5777	5900	
==>isone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_ste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5777	5900	
==>isone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_ste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5749	5868	
==><= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5749	5868	
==><= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5749	5868	
==><= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shif <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6619	6779	
==>e_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $siz <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5123	5283	
==>e_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1058	1174	
==>b smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1058	1174	
==>b smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1058	1174	
==>b smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	946	1083	
==>s for all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2004	2102	
==>er_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2004	2102	
==>er_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	834	961	
==>re>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variabl <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	834	961	
==>re>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4541	4706	
==>b { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4541	4706	
==>b { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4541	4706	
==>b { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4315	4411	
==>) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4315	4411	
==>) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4315	4411	
==>) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	443	559	
==>e});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	443	559	
==>e});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	443	559	
==>e});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	230	326	
==>=> $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	230	326	
==>=> $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	230	326	
==>=> $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2639	2748	
==>err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2639	2748	
==>err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2639	2748	
==>err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6714	6843	
==>ble: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6714	6843	
==>ble: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6714	6843	
==>ble: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15401	15567	
==>= shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15401	15567	
==>= shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15401	15567	
==>= shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2521	2619	
==>($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2521	2619	
==>($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2521	2619	
==>($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2020	2115	
==>e::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2020	2115	
==>e::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2020	2115	
==>e::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7961	8065	
==>le a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7961	8065	
==>le a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	41	160	
==>L::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	41	160	
==>L::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	41	160	
==>L::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4126	4302	
==>system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, instead of
            ### just <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5108	5211	
==>ed - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5330	5433	
==>ed - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10996	11098	
==>gth $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10996	11098	
==>gth $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6374	6460	
==>name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_num (@arr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7402	7557	
==>r my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### w <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	703	858	
==>r my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19968	20109	
==>kipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) {
            $bonusmsg .= " and $tot <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8223	8330	
==>f;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" if $fun_name;
	return "p6 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	907	1154	
==>e Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	907	1154	
==>e Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	444	538	
==>rams->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $params->{fixi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5082	5194	
==>$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2624	2736	
==>$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3405	3517	
==>$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	282	389	
==>s.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jsp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	282	389	
==>s.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jsp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	282	389	
==>s.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jsp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11744	11869	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12023	12148	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	821	926	
==>zy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	821	926	
==>zy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	821	926	
==>zy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1298	1405	
==>b zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1298	1405	
==>b zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1298	1405	
==>b zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6742	6882	
==>re {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6742	6882	
==>re {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1652	1760	
==>a("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1652	1760	
==>a("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1652	1760	
==>a("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	454	598	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	659	803	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	715	859	
==>a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6995	7138	
==>elf = shift;
    my %hash = @_;
    
    require File::stat;
    
    my $file;
    my $tmpl = {
        file    => { required => 1, allow => IS <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3878	3989	
==>se {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok ( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3936	4047	
==>se {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5716	5842	
==>llation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    return 1;
}

=head2 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1294	1391	
==>git {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::ne <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1550	1647	
==>git {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::ne <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22870	22994	
==>. "^" . "<" x ($list_len - 1) . "\n"
              . '{ $Curtest->{name}, $Curtest->{estat},'
              . '  $Curtest->{w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6547	6665	
==>rds($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6547	6665	
==>rds($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	229	334	
==>egex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/regex/) ~~ any(@a, 'c', 'd') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1872	1976	
==>)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1872	1976	
==>)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1872	1976	
==>)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	727	830	
==>er(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	727	830	
==>er(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	727	830	
==>er(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $at <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	457	695	
==>"\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	458	696	
==>"\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5310	5432	
==>| <'export'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2634	2750	
==>ase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2634	2750	
==>ase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1514	1684	
==>> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1514	1684	
==>> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2260	2371	
==>undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2260	2371	
==>undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2260	2371	
==>undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31099	31198	
==>>>.

This program is free software; you can redistribute it and/or 
modify it under the same terms a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1864	1957	
==>od

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$na <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1864	1957	
==>od

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$na <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1408	1535	
==>rldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1408	1535	
==>rldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	144	253	
==>h:
say "%test{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]";

# Hash Re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19132	19239	
==>e );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19132	19239	
==>e );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8327	8447	
==>PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8327	8447	
==>PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8327	8447	
==>PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11945	12051	
==>nsity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11945	12051	
==>nsity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14338	14426	
==><'++'>
    | <LeftHandSideExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpressio <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	327	442	
==>lock of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submo <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	327	442	
==>lock of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14115	14209	
==>->registered_alternatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2597	2700	
==>se $self->_stages) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2384	2492	
==>lers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2384	2492	
==>lers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_h <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1004	1112	
==>elf = shift;
    my $name = shift;
    my $args = $self->makemaker_args;
    $args->{name} = defined $args->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1247	1385	
==>ames) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1247	1385	
==>ames) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1247	1385	
==>ames) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1670	1781	
==>ptures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1670	1781	
==>ptures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40290	40407	
==>]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40290	40407	
==>]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40290	40407	
==>]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10191	10313	
==>== 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10191	10313	
==>== 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16395	16506	
==>des($builtin->digest)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11782	11887	
==>if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11782	11887	
==>if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3517	3619	
==>tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3517	3619	
==>tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3597	3699	
==>tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	339	517	
==>int "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $() ,}
            }
    ) );
    __PACKAGE__->recompile <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2725	2839	
==>esis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2725	2839	
==>esis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12408	12534	
==>urn { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12687	12813	
==>urn { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1787	1892	
==>>{tree};
}


sub nparen {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{nparen};
} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4917	5019	
==>lid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4917	5019	
==>lid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6441	6543	
==>lid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22338	22439	
==>d deterministic, such that all of its class
and object methods will each return the same result when i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26890	26991	
==>d deterministic, such that all of its class
and object methods will each return the same result when i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25613	25714	
==>d deterministic, such that all of its class
and object methods will each return the same result when i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	602	717	
==>ce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	602	717	
==>ce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	602	717	
==>ce);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7065	7192	
==>ndex) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7065	7192	
==>ndex) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_t <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3051	3164	
==>{
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PERL6LIB} = 'blib6/lib';
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1523	1619	
==>is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

Dav <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1523	1619	
==>is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

Dav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2923	3036	
==>self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2923	3036	
==>self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2923	3036	
==>self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7169	7261	
==>Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7169	7261	
==>Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7169	7261	
==>Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4780	4908	
==>AS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4780	4908	
==>AS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4780	4908	
==>AS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1306	1394	
==>mespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1306	1394	
==>mespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1306	1394	
==>mespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $d <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19270	19397	
==>List::pop(@array) };
multi pop ($array) is builtin is primitive { die "Cannot 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3277	3385	
==>eturns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6754	6862	
==>eturns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	779	962	
==>ption for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub h <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	779	962	
==>ption for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub h <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1834	1934	
==>$node->struct_equiv } || "(not an object)");

		Scalar::Util::blessed($node) ? $self->SUPER::reduce($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	596	749	
==>STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	596	749	
==>STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33440	33537	
==>be encountered
with unshift().  The two code references are used to go deeper and
shallower in sco <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9558	9690	
==>];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9558	9690	
==>];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9558	9690	
==>];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1666	1771	
==>, "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1666	1771	
==>, "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1666	1771	
==>, "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3932	4022	
==>is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5834	5924	
==>is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->super <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28369	28457	
==>een combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32921	33009	
==>een combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32049	32137	
==>een combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16988	17090	
==>e.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16988	17090	
==>e.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15854	15954	
==>nalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpressionNoIn> <'<'> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12621	12736	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13629	13744	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15154	15269	
==>0 or $other!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Ex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21264	21361	
==>ses this would come up with keys which are unique across all Perl packages
(perhaps the key name c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21264	21361	
==>ses this would come up with keys which are unique across all Perl packages
(perhaps the key name c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7663	7753	
==>an free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4110	4214	
==>$closure->isa('closure') || $closure->isa('block')))
        || confess "argument to &apply must be eithe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14218	14314	
==>back routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the calle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14218	14314	
==>back routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the calle <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7452	7577	
==>next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_l <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7452	7577	
==>next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_l <==
3	/Users/nnunley/pugs/util/config_h.pl	238	368	
==>s of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pugs installation 
              (defau <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4736	4839	
==>ll methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4595	4698	
==>ll methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each % <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	589	835	
==>ator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	589	835	
==>ator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Ro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	704	819	
==>o => \\(0+$+[$_]),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Mat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2051	2158	
==>sy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2051	2158	
==>sy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	322	433	
==>c = join('', @a);
    my $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->() <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1851	1958	
==>EFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postambl <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1851	1958	
==>EFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postambl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2581	2683	
==>'1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1193	1295	
==>'1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1894	1996	
==>'1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7171	7306	
==>vate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7171	7306	
==>vate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7171	7306	
==>vate instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22000	22138	
==>sses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22000	22138	
==>sses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22000	22138	
==>sses) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=hea <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8931	9029	
==>t appear" }
NODE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10097	10182	
==>$& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10832	10917	
==>$& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	142	243	
==>::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	142	243	
==>::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6776	6873	
==>];  # keys: "pSubBody""pSubIsMulti""pSubLValue""pSubName""pSubParams""pSubType"
        dbg "# key <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6705	6829	
==>lyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self->{error} = "$file does not exist";
        ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16430	16548	
==>!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if su <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16430	16548	
==>!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if su <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	398	512	
==>make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think we have the same problem as with S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2632	2742	
==>/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $template =~ s/<op2>/\$<op2>:=(<'$op->{name2}'>)/s;
        push @ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16099	16191	
==>parameter $document, and
whose Node Type attribute is set from the named parameter $node_type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16099	16191	
==>parameter $document, and
whose Node Type attribute is set from the named parameter $node_type <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	442	562	
==>$*OS';  
    
    # special variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6839	6941	
==>$n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6839	6941	
==>$n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	22	113	
==>rnal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	22	113	
==>rnal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1868	2000	
==>)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1868	2000	
==>)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3359	3477	
==>erl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3359	3477	
==>erl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3359	3477	
==>erl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/pr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6660	6796	
==>== $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6660	6796	
==>== $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5184	5284	
==>=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5184	5284	
==>=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7381	7481	
==>=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	385	486	
==>BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	385	486	
==>BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	385	486	
==>BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3232	3341	
==>l;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4081	4190	
==>l;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8338	8436	
==>and will
return false if called again.

=head2 Building the Tree

If you don't care to intercept th <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	595	724	
==>t_makefile_macros {
    my $self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12624	12748	
==>is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7027	7137	
==>, see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5528	5638	
==>, see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10250	10339	
==>ript</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsui <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	810	912	
==>the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	810	912	
==>the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4189	4288	
==>rl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs hom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4154	4272	
==>oken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (joi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4154	4272	
==>oken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (joi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4154	4272	
==>oken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (joi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	991	1111	
==>);
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	991	1111	
==>);
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ( <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8894	9008	
==>ot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared libr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4514	4636	
==>my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4514	4636	
==>my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4514	4636	
==>my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7821	7968	
==>UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a rou <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7821	7968	
==>UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a rou <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	441	559	
==>od is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	441	559	
==>od is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.star <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5203	5309	
==>ck} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4559	4670	
==>')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4559	4670	
==>')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4559	4670	
==>')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	844	968	
==>ft, $right) = @_;
    return $left->to_native <=> $right->to_num->to_native;
}

# methods ...

sub add {
    my ($left, $righ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1860	1968	
==>::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1860	1968	
==>::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5891	6020	
==>) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $st <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5891	6020	
==>) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	80	182	
==>ype (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	80	182	
==>ype (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	80	182	
==>ype (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2617	2811	
==>= $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2822	3016	
==>= $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3894	4088	
==>= $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2191	2307	
==>st argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2191	2307	
==>st argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2191	2307	
==>st argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" bod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5178	5274	
==>od as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5178	5274	
==>od as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2277	2384	
==>tion () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2277	2384	
==>tion () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2277	2384	
==>tion () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4942	5048	
==>*@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4942	5048	
==>*@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4942	5048	
==>*@array) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1841	1936	
==>and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1841	1936	
==>and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1841	1936	
==>and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8076	8218	
==>rguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8076	8218	
==>rguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8076	8218	
==>rguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unbox <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5683	5786	
==>set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Ret <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5683	5786	
==>set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7207	7310	
==>set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Ret <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17762	17897	
==>d till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24126	24223	
==>so it then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile tim <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24126	24223	
==>so it then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8563	8710	
==>m};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8563	8710	
==>m};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8563	8710	
==>m};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9717	9820	
==>slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9717	9820	
==>slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9717	9820	
==>slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $po <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1886	2005	
==>sage ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1886	2005	
==>sage ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1776	1864	
==>/design
     perl util/catalog_tests.pl --test_dirs=t/builtins,t/macros --output_dir=t_te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	834	951	
==>s"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 666 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	834	951	
==>s"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 666 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14101	14241	
==>ss $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14101	14241	
==>ss $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14101	14241	
==>ss $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1058	1164	
==>_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1058	1164	
==>_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1058	1164	
==>_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2741	2848	
==>t;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2741	2848	
==>t;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2741	2848	
==>t;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	740	856	
==>2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	740	856	
==>2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	740	856	
==>2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4981	5100	
==>ion {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute nam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8458	8577	
==>ion {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute nam <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10337	10443	
==>suite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class="indent2">$ make smoke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8052	8175	
==>u {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8052	8175	
==>u {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8052	8175	
==>u {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2887	3015	
==>py ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2887	3015	
==>py ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14067	14190	
==>shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14067	14190	
==>shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14067	14190	
==>shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	462	563	
==>attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	462	563	
==>attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	462	563	
==>attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || conf <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23281	23408	
==>xs"),
			),
			then => ide("nil"),
			else => comb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17822	17984	
==>thod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17822	17984	
==>thod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17822	17984	
==>thod eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1639	1749	
==>f(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1639	1749	
==>f(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1639	1749	
==>f(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4109	4199	
==>ile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4109	4199	
==>ile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4109	4199	
==>ile> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14287	14388	
==>nd C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14287	14388	
==>nd C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14831	14925	
==>everal Unicode levels at once. Which level you
interact with typically depends on what your cur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8336	8459	
==>file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ign <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8336	8459	
==>file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ign <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13052	13161	
==>lues, their numeric value, and a format string for use with sprintf().

  # for when you have a zero-width chu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23832	23923	
==>olution
than alternatives, and doesn't know about language specific details like
encodings o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23832	23923	
==>olution
than alternatives, and doesn't know about language specific details like
encodings o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7547	7645	
==>)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7547	7645	
==>)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7547	7645	
==>)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8777	8920	
==>c(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8777	8920	
==>c(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8777	8920	
==>c(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22951	23058	
==>_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v => "foo", t => type::operat <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3923	4015	
==>---------------
## removing children

method remove_child_at ($self: Int $index) returns Tree <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3923	4015	
==>---------------
## removing children

method remove_child_at ($self: Int $index) returns Tree <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	182	288	
==>class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	182	288	
==>class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3073	3196	
==>tle</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3073	3196	
==>tle</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7564	7736	
==>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7564	7736	
==>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7564	7736	
==>does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13999	14137	
==>);
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13999	14137	
==>);
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13999	14137	
==>);
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	597	696	
==>=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	597	696	
==>=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1153	1252	
==>=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
des <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1034	1133	
==>] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional prog <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1034	1133	
==>] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional prog <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5813	5908	
==>filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5813	5908	
==>filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5813	5908	
==>filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15851	16010	
==>, $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15845	16004	
==>, $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3806	3962	
==>lock     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	558	698	
==>$instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	763	903	
==>$instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	819	959	
==>$instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1475	1600	
==>= 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1475	1600	
==>= 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	63	165	
==>e qw/Blondie::Backend::Perl/;

use strict;
use warnings;

use Term::ReadKey;

my %masked_ops = (
    ma <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	659	756	
==>etry flag
our Int multi Num::round_half_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12456	12575	
==>r @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12456	12575	
==>r @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12456	12575	
==>r @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11182	11340	
==>::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11182	11340	
==>::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11182	11340	
==>::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	671	801	
==>ew(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	671	801	
==>ew(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type' <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1408	1519	
==>le {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   print FF $data;
   cl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11824	11939	
==>it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11824	11939	
==>it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10400	10506	
==>::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8682	8812	
==>S->force_object(anyof_class => lower => $neg, $how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	152	253	
==>le.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	358	459	
==>le.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6056	6183	
==>ribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6056	6183	
==>ribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6056	6183	
==>ribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3389	3549	
==>quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3636	3796	
==>quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}() <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	917	1025	
==>= shift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5197	5299	
==>ed namespace ("MyName" in the code above).  This lets you to
do anything you like with each object, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5197	5299	
==>ed namespace ("MyName" in the code above).  This lets you to
do anything you like with each object, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5197	5299	
==>ed namespace ("MyName" in the code above).  This lets you to
do anything you like with each object, but <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5302	5424	
==>rator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Operat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10800	10915	
==>move( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, < <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10800	10915	
==>move( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	38	153	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	38	153	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	38	153	
==>strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31570	31781	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31570	31781	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31570	31781	
==>$length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1003	1107	
==>ct
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1003	1107	
==>ct
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1003	1107	
==>ct
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented he <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	295	419	
==>Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	295	419	
==>Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13664	13781	
==>> sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as_array_complain->("numeric") },
      non_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3254	3380	
==>t_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3254	3380	
==>t_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1767	1872	
==>umber(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1767	1872	
==>umber(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1767	1872	
==>umber(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4985	5093	
==>) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4985	5093	
==>) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5575	5683	
==>) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2530	2653	
==>ent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2530	2653	
==>ent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4922	5024	
==>e will be --iso.

Options may be abbreviated to uniqueness.

Author:         Ingo Blechschmidt <iblech\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	72	169	
==>se base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overlo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	72	169	
==>se base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overlo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	156	264	
==>se (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	156	264	
==>se (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	156	264	
==>se (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11911	12057	
==>.$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11911	12057	
==>.$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11911	12057	
==>.$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11987	12101	
==>{...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11987	12101	
==>{...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11987	12101	
==>{...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11421	11543	
==>p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11421	11543	
==>p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11421	11543	
==>p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	417	522	
==>r @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	417	522	
==>r @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	417	522	
==>r @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15689	15798	
==>};
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15689	15798	
==>};
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15689	15798	
==>};
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21509	21695	
==>ist' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21509	21695	
==>ist' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21509	21695	
==>ist' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4419	4520	
==>elf->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4419	4520	
==>elf->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4419	4520	
==>elf->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $ma <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1227	1402	
==>meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a he <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1227	1402	
==>meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	98	222	
==>e('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	98	222	
==>e('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	98	222	
==>e('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4184	4354	
==>for
            
        my $ast = $m->();

        {
            # XXX temporary hack - check if an alphanumeric-ending token is actually 
            #     a longer-toke <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10696	10810	
==>pan::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10696	10810	
==>pan::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13051	13164	
==>'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13051	13164	
==>'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13051	13164	
==>'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	614	715	
==>kg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	614	715	
==>kg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2383	2479	
==>sent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7671	7781	
==>est jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests in random order
    --recurs <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	832	926	
==>$code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( St <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	832	926	
==>$code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11230	11343	
==>n "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11230	11343	
==>n "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11230	11343	
==>n "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1917	2019	
==>ration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1917	2019	
==>ration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1917	2019	
==>ration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2941	3049	
==>en
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2941	3049	
==>en
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1654	1785	
==>curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1654	1785	
==>curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n" <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2622	2732	
==>p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Z <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8291	8433	
==>l
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8291	8433	
==>l
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8291	8433	
==>l
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5235	5388	
==>equired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5235	5388	
==>equired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5235	5388	
==>equired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	293	412	
==>pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	293	412	
==>pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	293	412	
==>pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3320	3442	
==>,
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3320	3442	
==>,
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3320	3442	
==>,
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28355	28448	
==>ributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32907	33000	
==>ributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32035	32128	
==>ributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7305	7414	
==>annels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7305	7414	
==>annels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36812	36911	
==>ill indicate a negative look-ahead.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  su <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6746	6856	
==>rence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6746	6856	
==>rence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8691	8790	
==>ser:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8691	8790	
==>ser:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21135	21217	
==>0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9070	9266	
==>xt unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5430	5626	
==>xt unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6279	6475	
==>xt unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5613	5748	
==>means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quote <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	456	563	
==>.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $he <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	456	563	
==>.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7849	8011	
==>on-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7849	8011	
==>on-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7849	8011	
==>on-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12286	12400	
==>e .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12286	12400	
==>e .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12286	12400	
==>e .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1260	1366	
==>re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1260	1366	
==>re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1260	1366	
==>re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2785	2952	
==>{
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$run";
      }
  }


= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	536	682	
==>{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	536	682	
==>{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

= <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2788	2933	
==>nk "$Alternatives/$script";
        }      
        
        ### see if there's any other package that's now the default
        ### for this modu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2840	2935	
==>t URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remot <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2840	2935	
==>t URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3360	3488	
==>t "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6484	6606	
==>no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6277	6392	
==>no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14426	14535	
==>'');
    }
}


sub Pugs::Internals::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14930	15029	
==>irst_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14930	15029	
==>irst_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3315	3463	
==>$_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3303	3451	
==>$_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TOD <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3649	3777	
==>_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $self->{'pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	811	1079	
==>erl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %ev <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	811	1079	
==>erl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %ev <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13509	13617	
==>elf->{rx};

    # quantifiers must follow something
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 or $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3814	3908	
==>ins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5716	5810	
==>ins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $C <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5238	5387	
==>r::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         nex <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5238	5387	
==>r::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         nex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4628	4769	
==>);
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'looser',
        other => 'or',
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1587	1687	
==>ook at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1587	1687	
==>ook at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10236	10332	
==>t work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10236	10332	
==>t work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10236	10332	
==>t work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1088	1263	
==>tify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1088	1263	
==>tify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1088	1263	
==>tify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17642	17735	
==>infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17642	17735	
==>infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17642	17735	
==>infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($x <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1743	1855	
==>$dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24137	24247	
==>an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20558	20668	
==>an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7458	7560	
==>ody";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7458	7560	
==>ody";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7458	7560	
==>ody";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14256	14469	
==>ss_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff dire <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14256	14469	
==>ss_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff dire <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14256	14469	
==>ss_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff dire <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	761	874	
==>DO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gener <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	761	874	
==>DO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gener <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	761	874	
==>DO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gener <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1963	2087	
==>tion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1963	2087	
==>tion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1963	2087	
==>tion (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5970	6064	
==>'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Su <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5970	6064	
==>'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2869	2963	
==>'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'Su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6702	6846	
==>::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\| <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6702	6846	
==>::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\| <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6702	6846	
==>::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\| <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5273	5379	
==>ix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibili <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5273	5379	
==>ix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibili <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1486	1601	
==>i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1486	1601	
==>i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1486	1601	
==>i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3322	3436	
==>butes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3322	3436	
==>butes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3322	3436	
==>butes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : und <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3757	3898	
==>ckage_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $pat <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	267	367	
==>rld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line): <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	267	367	
==>rld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line): <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	894	1004	
==>}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	894	1004	
==>}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	894	1004	
==>}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2406	2550	
==>eader returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10229	10326	
==>et.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

In <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10229	10326	
==>et.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	19	125	
==>ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Si <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	19	125	
==>ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Si <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	19	125	
==>ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14819	14914	
==>Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14819	14914	
==>Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14819	14914	
==>Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14884	15003	
==>ub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $sel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2342	2461	
==>ub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5862	5966	
==>ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6811	6928	
==>rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bu <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6811	6928	
==>rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17272	17371	
==>tcher :descendant)))
     (= $method (WALKMETH (&dispatcher (symbol new BUILD))))
     (while ($meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3949	4075	
==>ce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3949	4075	
==>ce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3949	4075	
==>ce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5341	5460	
==>!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11769	11874	
==>N {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
spa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11763	11868	
==>N {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	180	275	
==>}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	180	275	
==>}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	180	275	
==>}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4193	4365	
==>l, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4193	4365	
==>l, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4193	4365	
==>l, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1353	1452	
==>pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1353	1452	
==>pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1353	1452	
==>pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18218	18718	
==>g(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3847	3958	
==>tter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3710	3818	
==>tter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10944	11087	
==>t_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "d <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10944	11087	
==>t_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8686	8798	
==>ift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$current", $e->get("&dispatcher")->d <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1363	1502	
==>[29..35]);
            $duration.start = $start;
        } else {
            my $end = date($/[37..35]);
            $duration = Duration:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8673	8809	
==>nce.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all e <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8673	8809	
==>nce.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all e <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	965	1063	
==>hod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty mu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	965	1063	
==>hod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty mu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	518	662	
==>sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmp <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10026	10124	
==>e set, and for querying 
set properties.

Note that all set functions may end up being calculated u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10026	10124	
==>e set, and for querying 
set properties.

Note that all set functions may end up being calculated u <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	444	554	
==>string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	444	554	
==>string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	159	285	
==>ingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	159	285	
==>ingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	159	285	
==>ingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2160	2279	
==>);
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2160	2279	
==>);
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3259	3368	
==>ist_version => $self->{version},
        license      => $self->{license},
    );
    $self->provides(%{ $buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4147	4243	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visible <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4147	4243	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visible <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4147	4243	
==>a name to it so that you can refer to it
    #   > inside, but that name is not visible <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5070	5177	
==>che353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5070	5177	
==>che353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6322	6584	
==>nboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6322	6584	
==>nboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6322	6584	
==>nboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23815	23909	
==>e does not declare any subroutines or export such.

The usual way that Relation::Example indica <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39525	39618	
==>ght (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39525	39618	
==>ght (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23277	23368	
==>phy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41201	41292	
==>phy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37227	37318	
==>phy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1892	2005	
==>($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1892	2005	
==>($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1892	2005	
==>($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14369	14488	
==>any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14369	14488	
==>any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14369	14488	
==>any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11730	11835	
==>args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11730	11835	
==>args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11730	11835	
==>args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Applic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11942	12077	
==>nd() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11942	12077	
==>nd() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11942	12077	
==>nd() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16948	17039	
==>->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16948	17039	
==>->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16948	17039	
==>->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5442	5597	
==>$_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #dele <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5442	5597	
==>$_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #dele <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18154	18274	
==>aults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18154	18274	
==>aults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	20	115	
==>strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_DE.u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12872	13030	
==>_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12872	13030	
==>_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12494	12595	
==>$xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12494	12595	
==>$xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12494	12595	
==>$xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	228	382	
==>]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7830	7925	
==>thorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorizat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7830	7925	
==>thorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorizat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	655	764	
==>ol};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	861	970	
==>ol};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $progr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29946	30045	
==>r = $obj->raw()

The raw representation of this object.  It does not look at the
children of the obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9513	9708	
==>return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10828	10986	
==>->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7905	8054	
==>->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7905	8054	
==>->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13996	14107	
==>TCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13996	14107	
==>TCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13996	14107	
==>TCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1483	1618	
==>ed' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle quotes are a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5124	5222	
==>t ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7792	7890	
==>t ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	308	409	
==>\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	308	409	
==>\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8260	8355	
==>x->{_parent} || "../");
    $template->param(directory => $path);
    $template->param(directori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2104	2215	
==>jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2104	2215	
==>jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2104	2215	
==>jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2066	2167	
==>defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2066	2167	
==>defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2066	2167	
==>defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	489	582	
==>subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	489	582	
==>subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	489	582	
==>subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclas <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12183	12291	
==>) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12183	12291	
==>) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	164	269	
==>ymbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	164	269	
==>ymbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	753	850	
==>de in that
# language.
Has($?CLASS, "code", "Str");

# corresponding reverse attributes
#has Meta: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12348	12475	
==>$self = shift;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bless {
        map { $_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	336	438	
==>MOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	336	438	
==>MOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18126	18272	
==>>visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14547	14693	
==>>visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SI <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2197	2306	
==>ndBin::Bin);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSIO <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3717	3822	
==>$_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_se <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3717	3822	
==>$_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	754	856	
==>$_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11023	11123	
==>ks;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11023	11123	
==>ks;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2460	2552	
==>not have been written. - Mitchell N Charity
#


grammar JavaScript::ECMAScript3::Grammar::Spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9372	9484	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9372	9484	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9372	9484	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3940	4063	
==>omp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3940	4063	
==>omp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3940	4063	
==>omp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6178	6514	
==>(($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV creat <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14316	14422	
==>ion" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14316	14422	
==>ion" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20328	20446	
==>'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20328	20446	
==>'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20328	20446	
==>'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Cla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7606	7730	
==>group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7799	7923	
==>group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       , <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6014	6100	
==>-1]) }

my $x1 = def_stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2733	2844	
==>ss.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.item <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2733	2844	
==>ss.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2550	2659	
==>e {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is ti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2550	2659	
==>e {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is ti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2897	3006	
==>e {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8555	8656	
==>. $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8555	8656	
==>. $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8555	8656	
==>. $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13546	13740	
==>} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9730	9924	
==>} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10566	10760	
==>} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7719	7870	
==>Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&control_structure:<if>'),
                    App->new( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3027	3121	
==>rer closure, which can be called repeatedly to encipher data.
The encipherer closure can be cal <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3027	3121	
==>rer closure, which can be called repeatedly to encipher data.
The encipherer closure can be cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12353	12475	
==>push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12353	12475	
==>push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12353	12475	
==>push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scal <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11815	12006	
==>_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11815	12006	
==>_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	768	867	
==>FLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => --$ENUM, 'Sequen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5913	6138	
==>]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5913	6138	
==>]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5913	6138	
==>]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( def <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12704	12934	
==>,
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{failed} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24244	24381	
==>{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24523	24660	
==>{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23362	23452	
==>C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC oper <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23362	23452	
==>C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	134	226	
==>"lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	134	226	
==>"lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	134	226	
==>"lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::Rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3105	3207	
==>{
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3105	3207	
==>{
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3105	3207	
==>{
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	219	355	
==>r qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	105	234	
==>r qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	105	234	
==>r qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1957	2175	
==>ree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not fi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1957	2175	
==>ree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not fi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7485	7582	
==>ve) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is r <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7485	7582	
==>ve) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9683	9813	
==>,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18476	18575	
==>op
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18476	18575	
==>op
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14207	14455	
==>lf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14207	14455	
==>lf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14207	14455	
==>lf, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28886	28999	
==>open, quant, ref,
reg_any.

=item my $f = $obj->flags()

The flag value for this object.  This value is a number c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2452	2562	
==>k()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2510	2620	
==>k()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4240	4334	
==>g(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4240	4334	
==>g(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4240	4334	
==>g(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, S <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6960	7098	
==>it {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <'] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5139	5230	
==>$Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7807	7898	
==>$Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	942	1102	
==>'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	942	1102	
==>'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	515	610	
==>ed ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	515	610	
==>ed ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	515	610	
==>ed ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15497	15602	
==>f'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15497	15602	
==>f'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15497	15602	
==>f'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11089	11247	
==>ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1563	1705	
==>ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1563	1705	
==>ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	283	453	
==>nce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	283	453	
==>nce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	283	453	
==>nce of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	984	1096	
==>is is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	984	1096	
==>is is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	984	1096	
==>is is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6696	6796	
==>'subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6696	6796	
==>'subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6696	6796	
==>'subclasses' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4587	4733	
==>y => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4587	4733	
==>y => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	271	387	
==>ad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	271	387	
==>ad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6208	6303	
==>=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7272	7379	
==>s>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7272	7379	
==>s>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked fro <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2030	2127	
==>erl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "blib6/lib/Prelude.pm. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8924	9026	
==>= undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8982	9084	
==>= undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17689	17857	
==>ne';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17689	17857	
==>ne';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17689	17857	
==>ne';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13298	13401	
==>ULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13298	13401	
==>ULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13298	13401	
==>ULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5103	5226	
==>); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5103	5226	
==>); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5103	5226	
==>); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} ) <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	894	1090	
==>$y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUI <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	894	1090	
==>$y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5625	5737	
==>_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5625	5737	
==>_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6215	6327	
==>_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	767	870	
==>tion = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	825	928	
==>tion = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30098	30191	
==>ere C<$attrs> is either empty or equal to
the invocant Relation::Example's header, in which ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40412	40537	
==>hift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40412	40537	
==>hift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40412	40537	
==>hift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2471	2595	
==>s();
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (reve <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2337	2431	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2337	2431	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	554	652	
==>::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
docum <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	554	652	
==>::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
docum <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20823	20920	
==>F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csy <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	630	754	
==>ty
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB::Package::Source
    JI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	975	1075	
==>uld not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	975	1075	
==>uld not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2165	2288	
==>return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2165	2288	
==>return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2165	2288	
==>return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10434	10598	
==>M2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10434	10598	
==>M2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10434	10598	
==>M2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2396	2508	
==>q 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2396	2508	
==>q 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2396	2508	
==>q 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2219	2323	
==>returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2219	2323	
==>returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2219	2323	
==>returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5815	6018	
==>'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1262	1354	
==>1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Ch <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1262	1354	
==>1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Ch <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	147	251	
==>at', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' => Thunk(
		Seq(
			Param('$handle'),
			Param <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1018	1114	
==>de<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, n <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1018	1114	
==>de<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22582	22683	
==>tion not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	502	598	
==>ernate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	502	598	
==>ernate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3827	3928	
==>e:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3827	3928	
==>e:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10497	10593	
==>' as a replacement for '-' in header names.

The header() method accepts multiple ($field => $val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10497	10593	
==>' as a replacement for '-' in header names.

The header() method accepts multiple ($field => $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20427	20612	
==>y $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20427	20612	
==>y $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20427	20612	
==>y $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8661	8759	
==>], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8661	8759	
==>], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8661	8759	
==>], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7148	7312	
==>se split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $mayb <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7612	7776	
==>se split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $mayb <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13928	14035	
==>make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17405	17512	
==>make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16785	16892	
==>make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15159	15301	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC er <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15159	15301	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC er <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15159	15301	
==>like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC er <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12127	12255	
==>Reason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO do <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2529	2643	
==>Reason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO do <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2529	2643	
==>Reason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO do <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30582	30760	
==>nt_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                return $dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7595	7697	
==>horization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7595	7697	
==>horization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10356	10489	
==>th {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10356	10489	
==>th {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10356	10489	
==>th {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	472	592	
==>$self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	472	592	
==>$self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14078	14174	
==>has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Prac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14078	14174	
==>has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Prac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19854	19972	
==>ample {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are in common, a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4154	4249	
==>y Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vila <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4154	4249	
==>y Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vila <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9236	9345	
==>eturn $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9236	9345	
==>eturn $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9236	9345	
==>eturn $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6501	6627	
==>);

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $self- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30104	30198	
==>he user-readable message text associated with the
Message; this user string may also contain va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30104	30198	
==>he user-readable message text associated with the
Message; this user string may also contain va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3106	3230	
==>n my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "... <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3106	3230	
==>n my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4250	4381	
==>matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4120	4248	
==>matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            un <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17234	17351	
==>$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6229	6343	
==>t, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6229	6343	
==>t, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6229	6343	
==>t, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	9	103	
==>ment_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	9	103	
==>ment_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	9	103	
==>ment_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3181	3317	
==>]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3181	3317	
==>]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3181	3317	
==>]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "** <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	621	725	
==>d' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	621	725	
==>d' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	621	725	
==>d' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_stri <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	465	566	
==>ects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	465	566	
==>ects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19469	19561	
==>(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - excess c <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	732	853	
==>$Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binmode OUT;
}

# XXX: with yaml precompilation, this <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18876	18971	
==>a::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

O <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18876	18971	
==>a::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

O <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6673	6842	
==>gal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the sa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6730	6899	
==>gal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the sa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10060	10186	
==>atch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10339	10465	
==>atch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9790	9887	
==>,",map{DOWN($_)}@$value).")" } # XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2597	2790	
==>[ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2844	3037	
==>[ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9731	9834	
==>string index around, 
# XXX - weaken self-referential things

=pod

A "rule" function gets as argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6727	6832	
==>f != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6727	6832	
==>f != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6727	6832	
==>f != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14863	14967	
==>LTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14863	14967	
==>LTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14863	14967	
==>LTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3743	3996	
==>Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3743	3996	
==>Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	24	157	
==>rom src/Pugs/AST/Internals.hs (see data VCode)

has Bool $.isMulti;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBloc <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11054	11189	
==>space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= - <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2969	3082	
==>mar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasynt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2957	3070	
==>mar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasynt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4014	4120	
==>->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4014	4120	
==>->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4014	4120	
==>->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15570	15670	
==>e a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15570	15670	
==>e a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `en <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	27	123	
==>erldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub conten <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	27	123	
==>erldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3819	3932	
==>= (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Note <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3819	3932	
==>= (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Note <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3819	3932	
==>= (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Note <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8751	8858	
==>y;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8751	8858	
==>y;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8751	8858	
==>y;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3150	3295	
==>h, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3150	3295	
==>h, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3150	3295	
==>h, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            matc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7678	7818	
==>skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdir $Files_In_Dir if defined $Files <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7409	7512	
==>killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7409	7512	
==>killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2746	2864	
==>$_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2746	2864	
==>$_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2746	2864	
==>$_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTP <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	897	1012	
==>Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	897	1012	
==>Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14095	14233	
==>...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10268	10406	
==>...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'stateme <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11104	11242	
==>...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'stateme <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3432	3540	
==>: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3432	3540	
==>: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10332	10447	
==>r );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13809	13924	
==>r );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13090	13205	
==>r );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &sem <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1992	2128	
==>nly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototype]]>;
    return JSX::true if $proto ~~ JSX::null;
    return $proto.< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5490	5608	
==>abeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5315	5429	
==>abeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5888	6012	
==>prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5888	6012	
==>prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5888	6012	
==>prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+? <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25732	25832	
==>γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new(list => <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17752	17847	
==>ute Rosetta D statements and routines
within the virtual machine, input data to it, and output d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17752	17847	
==>ute Rosetta D statements and routines
within the virtual machine, input data to it, and output d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	110	216	
==>Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnosti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	110	216	
==>Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnosti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	110	216	
==>Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnosti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3489	3602	
==>1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3489	3602	
==>1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3489	3602	
==>1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15678	15784	
==>et: generic($$) = { generic($.in) }

# the env is augmented to contain the new symbol introduced by the bin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1345	1441	
==>SG>s. Each time people say something (in public), the current
time and the text they said is save <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1345	1441	
==>SG>s. Each time people say something (in public), the current
time and the text they said is save <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	450	565	
==>(($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	450	565	
==>(($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tre <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2591	2695	
==>character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z()not :z[]not <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1348	1498	
==>rt_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1348	1498	
==>rt_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item' <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5491	5656	
==>Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Bind( $to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3342	3455	
==>, name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3342	3455	
==>, name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3342	3455	
==>, name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13452	13589	
==>> {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(), <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13452	13589	
==>> {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(), <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	140	233	
==>e UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie::Backend::C::Builtins;

sub run { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23374	23526	
==>eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23374	23526	
==>eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23374	23526	
==>eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, ' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2943	3055	
==>_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'G <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2943	3055	
==>_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3023	3135	
==>_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'G <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1079	1176	
==>nce, $options, $match) = @_;
  #print "name: $name - rp: $relativePrecedence - options: $options - <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9290	9434	
==>oks like it's in windows
            # land, and it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	723	825	
==>w PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	723	825	
==>w PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	723	825	
==>w PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Ha <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2870	3003	
==>lternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scal <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3187	3299	
==>$.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3187	3299	
==>$.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	693	800	
==>$self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	693	800	
==>$self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	693	800	
==>$self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18467	18622	
==>( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18746	18901	
==>( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gramma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	469	572	
==>n value ] pair
### the default_value is the value of initalization, the return value is
### a subroutine <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1915	2111	
==>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1915	2111	
==>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2959	3090	
==>$ok    .= " - " . _('$.description') if _('$.description');
            return $ok;
        }
    }
});

$::TestBuilder->FETCH('::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	35	137	
==>t an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	35	137	
==>t an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	35	137	
==>t an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

pac <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9992	10120	
==>ading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13469	13597	
==>ading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12750	12878	
==>ading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2324	2418	
==>, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2324	2418	
==>, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2324	2418	
==>, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7413	7585	
==>ds ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	714	886	
==>ds ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3380	3472	
==>Duration::Gregorian;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2611	2712	
==>ore important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2515	2612	
==>ore important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12106	12202	
==>n::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12106	12202	
==>n::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12106	12202	
==>n::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	442	546	
==>T || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	442	546	
==>T || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	442	546	
==>T || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20132	20222	
==>(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20132	20222	
==>(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20132	20222	
==>(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6766	6891	
==>{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6766	6891	
==>{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6766	6891	
==>{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7231	7362	
==>ed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7231	7362	
==>ed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7231	7362	
==>ed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5240	5345	
==>tected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5240	5345	
==>tected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5240	5345	
==>tected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12188	12297	
==>e may also be called on an instance, but they are not tied to a
    # particular instance
    my method host ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12188	12297	
==>e may also be called on an instance, but they are not tied to a
    # particular instance
    my method host ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3773	3877	
==>pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3773	3877	
==>pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3773	3877	
==>pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	120	223	
==>ion with a more
# general p6 one after bootstrap).  Or spec code which doesnt actually
# run yet.  The i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7062	7167	
==>od('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7062	7167	
==>od('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7062	7167	
==>od('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3038	3143	
==>pParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3038	3143	
==>pParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3038	3143	
==>pParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5416	5510	
==>m_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5416	5510	
==>m_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5416	5510	
==>m_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8332	8543	
==>Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8332	8543	
==>Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8332	8543	
==>Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5692	5809	
==>age}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rul <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11518	11617	
==>=> "Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$initrd_mnt/lib6/$_" or return fo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24164	24303	
==>ymbol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8474	8566	
==>ed for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when inte <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8474	8566	
==>ed for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when inte <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	904	1021	
==>st if we have no more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a c <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1236	1350	
==>ove 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <= .5) && ($x >= 0) { $x_round = sign($x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2894	3032	
==>{
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2894	3032	
==>{
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2894	3032	
==>{
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	308	424	
==>FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	308	424	
==>FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	308	424	
==>FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	888	1001	
==>ircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	913	1026	
==>ircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3222	3313	
==>tat Wstat Total Fail  Failed  List of Failed
  --------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29618	29713	
==>attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34170	34265	
==>attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33334	33429	
==>attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same as th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7343	7485	
==>VERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7343	7485	
==>VERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7343	7485	
==>VERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14872	15046	
==>s_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) returns Relation::Examp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3904	4012	
==>atch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4121	4229	
==>atch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1843	1943	
==>/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1843	1943	
==>/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1843	1943	
==>/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9038	9159	
==>ew(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12515	12636	
==>ew(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11751	11872	
==>ew(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&ex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11204	11297	
==>le $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11262	11355	
==>le $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17219	17316	
==>s a virtual machine that is embedded in your Perl application and
in which the Rosetta D code runs <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17219	17316	
==>s a virtual machine that is embedded in your Perl application and
in which the Rosetta D code runs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28810	28901	
==>vocant.

=item C<not_equal (Relation::Example $other!) returns Bool>

This method returns th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1253	1354	
==>returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1253	1354	
==>returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1253	1354	
==>returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6119	6216	
==>rce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6119	6216	
==>rce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6119	6216	
==>rce =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash follo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1916	2045	
==>ss');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1916	2045	
==>ss');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1916	2045	
==>ss');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1511	1629	
==>$_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1511	1629	
==>$_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1511	1629	
==>$_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6096	6212	
==>pe, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2901	3001	
==>check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2901	3001	
==>check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11272	11394	
==>tkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11272	11394	
==>tkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11272	11394	
==>tkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7813	7946	
==>ew RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7813	7946	
==>ew RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7813	7946	
==>ew RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(fals <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13612	13709	
==>ocument.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13612	13709	
==>ocument.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	430	514	
==>]>|\\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name><? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	389	505	
==>ugh ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	389	505	
==>ugh ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	389	505	
==>ugh ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5375	5503	
==>->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5375	5503	
==>->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5375	5503	
==>->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4908	5017	
==>=> sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4908	5017	
==>=> sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4908	5017	
==>=> sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4795	4907	
==>temp2 = $whitespacePosition;
    push @termStack, $operator;
    goto expect_operator;
  }
  else
  {
    goto mi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1456	1559	
==>= _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1456	1559	
==>= _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5026	5129	
==>ta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and wher <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5026	5129	
==>ta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and wher <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7676	7778	
==>mp1 = pop @operatorStack;

  reduce_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termSta <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	751	849	
==>_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	644	734	
==>_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6201	6305	
==>".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6201	6305	
==>".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6201	6305	
==>".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->creat <==
3	/Users/nnunley/pugs/util/grokprims.pl	1897	2003	
==>= "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$name";
  } elsif (/spe <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14447	14569	
==>cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0
timeout 0
color light-blue/black black/light-gr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23230	23319	
==>get> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23230	23319	
==>get> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15398	15511	
==>_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15398	15511	
==>_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15398	15511	
==>_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub en <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5511	5614	
==>urnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<obje <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5511	5614	
==>urnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<obje <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	23	122	
==>om src/Pugs/Internals.hs, `data Exp'

# this one doesn't translate so trivially.

type Noop;

# hmm, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12603	12748	
==>"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8877	9022	
==>"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9712	9857	
==>"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12411	12510	
==>riginal Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory mana <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	766	862	
==>LNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method v <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	766	862	
==>LNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2389	2510	
==>d> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2389	2510	
==>d> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  de <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26282	26378	
==>ll
default to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> for th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24747	24856	
==>n if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21168	21277	
==>n if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	43	144	
==>s/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3175	3299	
==>nd $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3175	3299	
==>nd $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3175	3299	
==>nd $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a ref <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12642	12889	
==>dText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user message <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12642	12889	
==>dText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user message <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22009	22103	
==>were being misrepresented as C<{n,}>.
It's been corrected.  (Mike Lambert)

C<\b> was being tur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	641	770	
==>ILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->wri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14365	14489	
==>$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeou <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14365	14489	
==>$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeou <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4128	4275	
==>t} && 
            ($self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4466	4593	
==>ifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4466	4593	
==>ifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5268	5385	
==>> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8745	8862	
==>> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7765	7882	
==>> set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALL <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13328	13446	
==>%hash{$key}                %hash.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1328	1429	
==>class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1328	1429	
==>class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5935	6036	
==>// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5935	6036	
==>// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5935	6036	
==>// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End decl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5770	5917	
==>_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5770	5917	
==>_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5770	5917	
==>_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6533	6655	
==>CarpLevel = 2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2997	3096	
==>n($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep) <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2997	3096	
==>n($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13702	13820	
==>ndler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13702	13820	
==>ndler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1482	1658	
==>ues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1482	1658	
==>ues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1482	1658	
==>ues' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3119	3216	
==>ompiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3009	3103	
==>ompiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7311	7406	
==>stance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7311	7406	
==>stance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7311	7406	
==>stance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1247	1340	
==>to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1247	1340	
==>to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1247	1340	
==>to your project's base namespace.

Class::Rebless walks scalar, array, and hash references. It <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1219	1316	
==>he end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1219	1316	
==>he end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1219	1316	
==>he end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17288	17381	
==>>add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17288	17381	
==>>add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17288	17381	
==>>add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10274	10419	
==>rgs[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6615	6760	
==>rgs[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7464	7609	
==>rgs[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3954	4172	
==>ir/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18606	18706	
==>PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follows <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18606	18706	
==>PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follows <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36409	36509	
==>len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36409	36509	
==>len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36409	36509	
==>len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3526	3641	
==>0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3526	3641	
==>0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3526	3641	
==>0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	631	779	
==>create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	631	779	
==>create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	631	779	
==>create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2379	2472	
==>t.
See L<Results>.

C<@test_output> should be the raw output from the test, including
newlines <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10160	10303	
==>ft;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10160	10303	
==>ft;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10160	10303	
==>ft;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	565	661	
==>ss "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	565	661	
==>ss "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	565	661	
==>ss "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6378	6478	
==>(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6378	6478	
==>(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6378	6478	
==>(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16228	16329	
==>n $NO;
    }
}

=head2 C<_reset_file_state>

  $strap->_reset_file_state;

Resets things like C<< $str <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7986	8084	
==>f spans.

The problem this class solves is when you need do perform "set" operations on 
Span objec <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7986	8084	
==>f spans.

The problem this class solves is when you need do perform "set" operations on 
Span objec <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	891	1003	
==>ut filehandle, adding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	891	1003	
==>ut filehandle, adding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1447	1559	
==>ut filehandle, adding leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4609	4745	
==>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4609	4745	
==>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4609	4745	
==>elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	718	1126	
==>a::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	718	1126	
==>a::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22402	22516	
==>charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insensitive_char_eq(C,X), !.
charset_member(_E,C,[setrange(C1, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4360	4471	
==>uthor' : '.author');
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10665	10760	
==>ecified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, clos <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10665	10760	
==>ecified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, clos <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4895	5090	
==>arams new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6657	6852	
==>arams new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol ne <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19665	19771	
==>omma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@wha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	732	831	
==>NaN
    return str->new((shift)->to_native() . '');
}

# implement comparitor method

sub _compare { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2342	2439	
==>oning modules in 
Pugs, this port does it's best to work with those limitations and 
still produce <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2342	2439	
==>oning modules in 
Pugs, this port does it's best to work with those limitations and 
still produce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	310	415	
==>ackage isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	310	415	
==>ackage isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	310	415	
==>ackage isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8852	8990	
==>et, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8852	8990	
==>et, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27425	27511	
==>_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5173	5401	
==>_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5173	5401	
==>_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23259	23362	
==>rnals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23259	23362	
==>rnals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23259	23362	
==>rnals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13983	14100	
==>t\"",
  ensure => sub { -d $cdroot and -r $cdroot },
  using  => sub { mkdir $cdroot };

step
  descr  => "Unpacking G <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	770	915	
==>urce);
        #warn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3509	3607	
==>e layers on top of the object-oriented backend.

To use the Cipher API, you must first create an ob <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3509	3607	
==>e layers on top of the object-oriented backend.

To use the Cipher API, you must first create an ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	373	480	
==>("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (put <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	373	480	
==>("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (put <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	373	480	
==>("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (put <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11685	11810	
==>ine>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11685	11810	
==>ine>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19400	19508	
==>uiltin is primitive is safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is prim <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1698	1833	
==>if($all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1491	1586	
==>nterface

The Cipher API's procedural interface is good enough for many purposes.  
Although the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1491	1586	
==>nterface

The Cipher API's procedural interface is good enough for many purposes.  
Although the <==
3	/Users/nnunley/pugs/util/config_h.pl	720	820	
==>int OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUG <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9117	9210	
==>ering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9117	9210	
==>ering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23930	24024	
==>ality.

My understanding of alternate solutions like "gettext" suggests that they
use a compile <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23930	24024	
==>ality.

My understanding of alternate solutions like "gettext" suggests that they
use a compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1280	1412	
==>ss @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1280	1412	
==>ss @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1280	1412	
==>ss @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3760	3879	
==>a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3760	3879	
==>a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3760	3879	
==>a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2166	2284	
==>) {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2166	2284	
==>) {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	524	631	
==>r( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
print q(#if key:<val> {1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23160	23371	
==>=> 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42763	42973	
==>=> 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
) <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4265	4359	
==>h (Code & Class::Events::Subscriber $subscriber) {
        $subscriber.($.subscription, $.event <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1508	1615	
==>.pmc file: $^X $pmc \n";
  );
warn "compilation error: ", $@ if $@;
eval $p6->{perl5}  
    unless $filename <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10062	10159	
==>ies.

Note that all set functions may end up being calculated using iterations, 
which can be slow <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10062	10159	
==>ies.

Note that all set functions may end up being calculated using iterations, 
which can be slow <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1159	1261	
==>$self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1159	1261	
==>$self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12833	12931	
==>8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

Thi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12833	12931	
==>8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	67	163	
==>use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
u <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	804	911	
==>=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This module provides a Pe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3553	3656	
==>mber, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3553	3656	
==>mber, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1639	1755	
==>@_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2328	2428	
==>er reached.
# No lookbehind as been implemented at all, at all.
# A couple of others I don't remember <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1541	1636	
==>@_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	46	135	
==>:Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	46	135	
==>:Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	46	135	
==>:Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4924	5020	
==>ethods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$confi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4924	5020	
==>ethods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$confi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24250	24363	
==>|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20671	20784	
==>|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18937	19040	
==>rator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16247	16398	
==>count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16247	16398	
==>count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16247	16398	
==>count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8706	8829	
==>erl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8706	8829	
==>erl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8706	8829	
==>erl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3643	3747	
==>tch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3643	3747	
==>tch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3643	3747	
==>tch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - t <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	378	480	
==>c;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	378	480	
==>c;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14336	14437	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14336	14437	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14336	14437	
==>:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::ar <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4750	5049	
==>le( $conf->postinst );
            if( -e $postinst && -s _ ) {
                system( qq[ $^X $postinst ] )                   and die $?;
            }    

            ### clean up the builddir
            system( qq[rm -rf $src] )                           and die $?;

        }

        ### cle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14414	14601	
==>1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14693	14880	
==>1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1984	2082	
==>::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1984	2082	
==>::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1984	2082	
==>::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2342	2429	
==>|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2342	2429	
==>|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2342	2429	
==>|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1514	1649	
==>oto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } => 'Dispatchable';
}

{
    package Di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22880	22972	
==>t it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22880	22972	
==>t it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1131	1233	
==>r}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20117	20215	
==>bution to allow the core to be completely testable on its own.  It is
coded intentionally in a simp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20117	20215	
==>bution to allow the core to be completely testable on its own.  It is
coded intentionally in a simp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	490	634	
==>($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	490	634	
==>($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26428	26527	
==>es will be passed by reference, so you
may store references to other objects in them if you wish.

= <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26428	26527	
==>es will be passed by reference, so you
may store references to other objects in them if you wish.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38882	38975	
==>n the invocant Relation::Example and that match any tuples of C<$other> along
their common att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9938	10036	
==>::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9938	10036	
==>::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9938	10036	
==>::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1151	1273	
==>y;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!";
        print <<".";
*** Default b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	959	1060	
==>de::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1096	1197	
==>de::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11873	11964	
==>(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11873	11964	
==>(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11873	11964	
==>(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	177	276	
==>evel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	177	276	
==>evel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	177	276	
==>evel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	963	1067	
==>ef->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	963	1067	
==>ef->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	963	1067	
==>ef->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7217	7317	
==>ted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7217	7317	
==>ted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7217	7317	
==>ted dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_disp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	795	932	
==>ram->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	777	909	
==>ram->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	777	909	
==>ram->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6586	6675	
==>glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6586	6675	
==>glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6586	6675	
==>glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10073	10207	
==>lice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10073	10207	
==>lice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10073	10207	
==>lice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3313	3500	
==>isa(shift(), 'JIB::Package') }; 
use constant ISA_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Pac <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11669	11757	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@au <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11669	11757	
==>1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@au <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3075	3247	
==>ing;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3075	3247	
==>ing;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3075	3247	
==>ing;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3484	3599	
==>small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dier <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3484	3599	
==>small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dier <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1107	1195	
==>tter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11587	11778	
==>er( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    prin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7869	8060	
==>er( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8703	8894	
==>er( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	138	250	
==>_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	138	250	
==>_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	138	250	
==>_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	395	500	
==>tie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	395	500	
==>tie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	395	500	
==>tie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in o <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1544	1649	
==>$head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bette <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1544	1649	
==>$head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bette <==
3	/Users/nnunley/pugs/util/testgraph.pl	975	1080	
==>ML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header (for broken web <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1125	1237	
==>cted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1125	1237	
==>cted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1125	1237	
==>cted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19479	19582	
==>face and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24031	24134	
==>face and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22547	22650	
==>face and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16896	17011	
==>butes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.siz <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20373	20488	
==>butes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.siz <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19951	20066	
==>butes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6797	6895	
==>om() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6797	6895	
==>om() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6797	6895	
==>om() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9339	9467	
==>ar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	735	863	
==>ar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	50	300	
==>by packages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1518	1641	
==>( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9463	9564	
==>acterEscapeSequence>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7355	7449	
==>le ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7355	7449	
==>le ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7355	7449	
==>le ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2614	2736	
==>2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2614	2736	
==>2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2614	2736	
==>2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15228	15374	
==>p6_as_hash(${$_[0]}) },
      perl5_object => sub { \%{$_[0]} },
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3386	3482	
==>ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3386	3482	
==>ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	914	1055	
==>rict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	914	1055	
==>rict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39529	39622	
==>ng
the first pass.  To accomplish this, use force_object(), which creates
an object regardless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4513	4636	
==>": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4513	4636	
==>": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4513	4636	
==>": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14600	14703	
==>ndir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14600	14703	
==>ndir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14600	14703	
==>ndir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1318	1415	
==>hift;
    return $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'si <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2993	3085	
==>lds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2993	3085	
==>lds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	75	201	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	75	201	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	75	201	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4977	5114	
==>AGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        other => ';',
    );

    __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7762	7858	
==>>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7762	7858	
==>>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17114	17202	
==>ss->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17114	17202	
==>ss->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17114	17202	
==>ss->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14226	14343	
==>_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17703	17820	
==>_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17119	17236	
==>_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.pu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3828	4017	
==>length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method el <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3828	4017	
==>length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method el <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	315	435	
==>n {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil][$name][$space] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10070	10204	
==>ef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10070	10204	
==>ef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1516	1769	
==>INGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1516	1769	
==>INGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::M <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	106	218	
==>consolidate with Array
    map {
        my $c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6042	6405	
==>get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7804	8167	
==>get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5521	5633	
==>ob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5521	5633	
==>ob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5521	5633	
==>ob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3467	3619	
==>f  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3467	3619	
==>f  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3467	3619	
==>f  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2359	2459	
==>dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir'}        = [ Path::Class::dir( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1081	1183	
==>acks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1081	1183	
==>acks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1081	1183	
==>acks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5215	5318	
==>ts;
  push(@$aref,$r2);
  $r;
}

my @operators;
my $ops = mk_dynamic_alt(\@operators);

def_rule('expr', <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1257	1356	
==>ame as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $tit <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1257	1356	
==>ame as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $tit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1672	1814	
==>ity' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1672	1814	
==>ity' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1672	1814	
==>ity' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5415	5508	
==>of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5415	5508	
==>of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1379	1493	
==>k', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1379	1493	
==>k', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1459	1573	
==>k', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4834	4931	
==>riginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4834	4931	
==>riginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4834	4931	
==>riginal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	944	1046	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	944	1046	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	944	1046	
==>eturn bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19736	19868	
==>(pad)
    self[0] = $P0
    $P1 = self[1]
    $P1 = $P1.p6analyze(pad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4143	4263	
==>{
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4143	4263	
==>{
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13497	13717	
==>:DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13497	13717	
==>:DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13497	13717	
==>:DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5246	5380	
==>r the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5246	5380	
==>r the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5246	5380	
==>r the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8591	8688	
==>ew elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using exist <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8591	8688	
==>ew elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	825	940	
==>ccessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	825	940	
==>ccessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	825	940	
==>ccessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15594	15698	
==>dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15594	15698	
==>dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15594	15698	
==>dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	612	725	
==>'';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Arr <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	612	725	
==>'';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Arr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26460	26566	
==>es {  # see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1787	1892	
==>depc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can saf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1787	1892	
==>depc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can saf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1787	1892	
==>depc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can saf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1111	1240	
==>b_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1111	1240	
==>b_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1320	1449	
==>b_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4317	4425	
==>E >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4317	4425	
==>E >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4317	4425	
==>E >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1878	2007	
==>ustom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1878	2007	
==>ustom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1878	2007	
==>ustom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recurs <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	899	1016	
==>defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.va <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	899	1016	
==>defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2526	2624	
==>eates a new repository on the filesystem. Wipes out an existing one with the
same root path if it e <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4818	4928	
==>tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18784	18882	
==>$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Mode <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18784	18882	
==>$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Mode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1947	2057	
==>./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1947	2057	
==>./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1947	2057	
==>./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4465	4586	
==>e do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4465	4586	
==>e do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4465	4586	
==>e do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	664	844	
==>ategory = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            name => $name,
            assoc => 'left',
            precedence => 'equal',
            other = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6016	6136	
==>64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:p <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6016	6136	
==>64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17092	17204	
==>> /^\s+/
  /[\w]/             => /\w/

There are other possibilities as well.

=back

=head1 HISTORY

=head2 0.02 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2826	2919	
==>ata::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::cont <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2826	2919	
==>ata::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10403	10531	
==>tement_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "mac <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	424	525	
==>$match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %p <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	424	525	
==>$match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11683	11847	
==>rgument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11683	11847	
==>rgument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11683	11847	
==>rgument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                retur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16345	16469	
==>ub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->ne <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15637	15732	
==>ructures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment v <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15695	15790	
==>ructures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2404	2510	
==>function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2404	2510	
==>function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2404	2510	
==>function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	539	649	
==>he closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	539	649	
==>he closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	539	649	
==>he closure, then things don\'t work right
      // --the order of output can become all screwed up (see
      / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	226	328	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	226	328	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	226	328	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAss <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6262	6363	
==>\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6262	6363	
==>\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6262	6363	
==>\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	221	322	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	221	322	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	221	322	
==>turn bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12813	12963	
==>@x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12813	12963	
==>@x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12813	12963	
==>@x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'A <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5448	5550	
==>to an AST these are generated
# as the AST is left they are unified
# a free variable can be instantiat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7400	7500	
==>eave_scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq")){
			my @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36918	37020	
==>In any situation where a pair
of source relations have identical headings, for these their joining
dege <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41467	41569	
==>In any situation where a pair
of source relations have identical headings, for these their joining
dege <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41090	41192	
==>In any situation where a pair
of source relations have identical headings, for these their joining
dege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17106	17224	
==>OPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17106	17224	
==>OPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17106	17224	
==>OPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11424	11561	
==>ntity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '& <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11424	11561	
==>ntity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '& <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3106	3229	
==>0)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wsta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12078	12210	
==>od($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12078	12210	
==>od($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12078	12210	
==>od($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not found for curren <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	902	1006	
==>p => "postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33214	33313	
==>will be searched in the order
they appear in this array until a match for that message is found.  Si <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33214	33313	
==>will be searched in the order
they appear in this array until a match for that message is found.  Si <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3692	3805	
==>tter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3560	3669	
==>tter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Gramm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	946	1053	
==>ss);        
}

package method::signature;

use strict;
use warnings;

use base 'closure::signature';

packa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8832	8956	
==>";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8820	8944	
==>";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat} <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	128	232	
==>her order
# nature of the Cxt type.  The below is expressive enough to do the
# same thing, but the conve <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5128	5240	
==>port multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5186	5298	
==>port multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21222	21321	
==>g turned on or off.  Also, if the flag handler returns 0,
that flag is removed from the resulting ob <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	997	1094	
==>odel::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	997	1094	
==>odel::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7507	7625	
==>e,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7507	7625	
==>e,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7507	7625	
==>e,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36874	36994	
==>ch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1937	2027	
==>ct.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2026	2116	
==>ct.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2507	2601	
==>h Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2507	2601	
==>h Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2507	2601	
==>h Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	315	429	
==>eturn whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	301	407	
==>eturn whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    st <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1075	1170	
==>Perl5::X1::BB::pugs_args = join(" ",map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::On <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	115	220	
==>y depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	115	220	
==>y depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	115	220	
==>y depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5717	5914	
==>m_charlist                # \X[...], \000
    # goto term_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6539	6654	
==>erms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6732	6847	
==>erms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1999	2104	
==>air undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1999	2104	
==>air undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1999	2104	
==>air undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6550	6723	
==>> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6550	6723	
==>> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.po <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	482	582	
==>?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	482	582	
==>?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BU <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2337	2430	
==>UTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmo <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2337	2430	
==>UTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19176	19269	
==>die "FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33786	33929	
==>, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33786	33929	
==>, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33786	33929	
==>, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	800	918	
==>atchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	800	918	
==>atchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	800	918	
==>atchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3950	4060	
==>= ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3950	4060	
==>= ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3950	4060	
==>= ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	780	887	
==>s, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	780	887	
==>s, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	780	887	
==>s, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3086	3186	
==>parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 vers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3086	3186	
==>parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 vers <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4257	4431	
==>e Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4257	4431	
==>e Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1519	1637	
==>', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    ret <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1519	1637	
==>', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3786	3907	
==>ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3786	3907	
==>ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3786	3907	
==>ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3728	3826	
==>param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3728	3826	
==>param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4318	4416	
==>param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18960	19076	
==>r
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own lin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18960	19076	
==>r
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	547	663	
==>, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	547	663	
==>, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	547	663	
==>, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2443	2583	
==>rt.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2443	2583	
==>rt.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4902	5006	
==>al ISO9660 image name will be --iso.

Options may be abbreviated to uniqueness.

Author:         Ingo Ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19119	19273	
==>rict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19119	19273	
==>rict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19119	19273	
==>rict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8589	8748	
==>Code)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8589	8748	
==>Code)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8589	8748	
==>Code)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3632	3736	
==>ilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3632	3736	
==>ilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	482	586	
==>ilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48349	48445	
==>----------------------------
## add Module

$::Module = $::Class->send('new');
$::Module->send('s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14734	14847	
==>meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14734	14847	
==>meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14734	14847	
==>meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || conf <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4307	4423	
==>$initchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6590	6730	
==>om_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6590	6730	
==>om_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6590	6730	
==>om_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30846	30945	
==>ed, it's expected to match!  It pops the
flag stack, and returns an object.

Finally, if you want to <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12856	12954	
==>mpty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if th <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12856	12954	
==>mpty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if th <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15831	15936	
==>v with the the symbols of our outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig, <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1285	1380	
==>ft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http:// <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1125	1220	
==>ft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http:// <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22531	22646	
==>EC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18952	19067	
==>EC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my <==
3	/Users/nnunley/pugs/util/package-osx.pl	572	688	
==>al/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15499	15595	
==>e
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15499	15595	
==>e
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8777	8882	
==>x) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8777	8882	
==>x) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8777	8882	
==>x) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	629	763	
==>' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.pa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	629	763	
==>' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6394	6519	
==>>()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6394	6519	
==>>()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6394	6519	
==>>()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2654	2779	
==>l to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_k <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2654	2779	
==>l to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_k <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2654	2779	
==>l to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	492	590	
==>te the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	492	590	
==>te the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37319	37426	
==>n $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to the constructor.  The
a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4586	4691	
==>$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5071	5176	
==>$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_err <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9207	9331	
==>ng") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9207	9331	
==>ng") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30537	30652	
==>\) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no predecessor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3077	3177	
==>ll load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is ov <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2968	3064	
==>ll load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is ov <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3272	3371	
==>t good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initial <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3272	3371	
==>t good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initial <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1511	1651	
==>= 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1522	1662	
==>= 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1674	1771	
==>list>?)<?p6ws>?\)<?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6873	7006	
==>ION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6873	7006	
==>ION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6873	7006	
==>ION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PI <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5568	5671	
==>$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeSet0;
su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4853	4950	
==>nite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4853	4950	
==>nite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8790	8895	
==>tom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1747	1849	
==>, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1747	1849	
==>, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5032	5148	
==>//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5032	5148	
==>//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5032	5148	
==>//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13037	13145	
==>$opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13037	13145	
==>$opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13037	13145	
==>$opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $metho <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	992	1174	
==>PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_N <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	992	1174	
==>PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_N <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1386	1527	
==>d to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $F <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23243	23334	
==>r.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23243	23334	
==>r.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C< <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10065	10180	
==>get, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22581	22676	
==>nto the user strings; Locale::KeyedText would also handle
this.

A program generates a Message t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22581	22676	
==>nto the user strings; Locale::KeyedText would also handle
this.

A program generates a Message t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5702	5804	
==>move_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5702	5804	
==>move_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5702	5804	
==>move_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	301	403	
==>n_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	301	403	
==>n_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	301	403	
==>n_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1010	1113	
==>ext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1010	1113	
==>ext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1010	1113	
==>ext;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37928	38035	
==>hat has the same heading and
whose body contains all of the tuples that are in the invocant Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33926	34025	
==>hat has the same heading and
whose body contains all of the tuples that are in the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38476	38575	
==>hat has the same heading and
whose body contains all of the tuples that are in the invocant Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7632	7753	
==>f ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7632	7753	
==>f ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	909	1010	
==>re enough to bear
# our weight, to be a next step. And the current Regexp::Parser Object
# ast isnt re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2018	2214	
==>} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s( <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2018	2214	
==>} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s( <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1535	1643	
==>*@args) {
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexer = tokens($lexer, *@$_)
    for @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	55	148	
==>:Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	55	148	
==>:Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5054	5198	
==>} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param}{cpan_bareword <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15617	15731	
==>Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10473	10587	
==>Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2937	3049	
==>de   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2937	3049	
==>de   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2937	3049	
==>de   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript outpu <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1739	1858	
==>en number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16735	16844	
==>is place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16735	16844	
==>is place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3847	3963	
==>lf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3847	3963	
==>lf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3847	3963	
==>lf->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2633	2787	
==>,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2936	3079	
==>,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2936	3079	
==>,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11233	11339	
==>hod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11233	11339	
==>hod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11233	11339	
==>hod('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8109	8222	
==>as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8109	8222	
==>as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8109	8222	
==>as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3027	3155	
==>issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3027	3155	
==>issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3027	3155	
==>issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1002	1113	
==>b ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1002	1113	
==>b ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1002	1113	
==>b ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7778	7892	
==>Parser::anyof_char;
}
{
  package Regexp::Parser::anyof_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	250	359	
==>sts(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	250	359	
==>sts(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	250	359	
==>sts(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/util/package-osx.pl	4116	4217	
==>Perl6::Bible::A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2488	2588	
==>\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2488	2588	
==>\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	299	413	
==>CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	299	413	
==>CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	299	413	
==>CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	800	910	
==>, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	800	910	
==>, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	800	910	
==>, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14051	14148	
==>ispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14051	14148	
==>ispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14051	14148	
==>ispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4190	4311	
==>>{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4190	4311	
==>>{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4190	4311	
==>>{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13150	13273	
==>calar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13150	13273	
==>calar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13150	13273	
==>calar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8900	9108	
==>lf:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2565	2672	
==>tion( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2565	2672	
==>tion( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_uni <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10235	10334	
==>eturns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10293	10392	
==>eturns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3657	3754	
==>for p2');
is($p2->get_y, 200, '... still got the right y for p2');
is($p1->get_x, 15, '... still g <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	10	103	
==>::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	10	103	
==>::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6923	7036	
==>6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->incremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6923	7036	
==>6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->incremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6923	7036	
==>6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->incremen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7042	7140	
==>eton_test_on_object',
   '... got the right return value from another Object singleton/class method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8029	8127	
==>eton_test_on_object',
   '... got the right return value from another Object singleton/class method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10598	10696	
==>eton_test_on_object',
   '... got the right return value from another Object singleton/class method <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3125	3227	
==>test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that us <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3125	3227	
==>test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3205	3307	
==>test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that us <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1578	1703	
==>od BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1578	1703	
==>od BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6 <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	343	441	
==>%devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of "svn log" or save "svn log" output in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	236	398	
==>ub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1116	1243	
==>bug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1116	1243	
==>bug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	159	261	
==>=> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	159	261	
==>=> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	159	261	
==>=> $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	284	389	
==>ant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	284	389	
==>ant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	284	389	
==>ant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1879	1983	
==>=> time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( ep <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1879	1983	
==>=> time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( ep <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2374	2468	
==>out trying a prolog plugin.

Fyi,
Yaswi apparently requires swi prolog be built ./configure --e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20816	21038	
==>if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20816	21038	
==>if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20816	21038	
==>if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2365	2464	
==>_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2365	2464	
==>_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4996	5110	
==>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4996	5110	
==>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4996	5110	
==>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3048	3167	
==>while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		take shift @list;
	    }
	}
    }
}
## twea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8639	8732	
==>) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2464	2557	
==>) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Per <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10384	10512	
==>nt_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mo <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1551	1665	
==>ted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/li <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1551	1665	
==>ted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/li <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	172	297	
==>3';
use Carp;

sub WritePugs {
    my $self = shift;

    my $install_version = shift;
    die "Install version must be 5 or 6 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16083	16205	
==>sg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16083	16205	
==>sg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enque <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6673	6786	
==>gs;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Ea <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	941	1036	
==>ging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	941	1036	
==>ging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9380	9508	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9380	9508	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9380	9508	
==>.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1465	1593	
==>if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1465	1593	
==>if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1465	1593	
==>if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5085	5186	
==>t's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=ba <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5085	5186	
==>t's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7282	7383	
==>t's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=ba <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15826	15926	
==>ation used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field la <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20059	20159	
==>ation used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field la <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12414	12513	
==>=head2 Determining Error

Use the errmsg() and errnum() methods to get the error information.

To se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	248	371	
==>= @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
    );
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18153	18251	
==>('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41418	41516	
==>('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4384	4482	
==>her the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return th <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4384	4482	
==>her the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return th <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1697	1814	
==>f this program and exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# Nice debugg <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13192	13302	
==>ft;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	602	712	
==>ft;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8125	8257	
==>= unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8125	8257	
==>= unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8125	8257	
==>= unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	224	348	
==>warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	224	348	
==>warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	224	348	
==>warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Min <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37815	37945	
==>$item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37815	37945	
==>$item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37815	37945	
==>$item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3561	3668	
==>n pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3561	3668	
==>n pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3561	3668	
==>n pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20563	20780	
==>self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20563	20780	
==>self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20563	20780	
==>self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6926	7082	
==>$tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6926	7082	
==>$tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6926	7082	
==>$tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	350	450	
==>n() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	350	450	
==>n() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	350	450	
==>n() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	137	246	
==>= $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </he <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	137	246	
==>= $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1140	1349	
==>);
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1140	1349	
==>);
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1140	1349	
==>);
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3229	3332	
==>e} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3229	3332	
==>e} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3229	3332	
==>e} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2512	2640	
==>vent {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2512	2640	
==>vent {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19143	19254	
==>l 
    ((%params keys) apply 
        ($self: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

= <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1911	2020	
==>y @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - ex <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1911	2020	
==>y @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - ex <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8018	8127	
==>e Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->data};
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7420	7516	
==>efine key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7420	7516	
==>efine key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13516	13620	
==>source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13516	13620	
==>source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_block <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2427	2528	
==>ich
#  this grammar would likely not have been written. - Mitchell N Charity
#


grammar JavaScript::E <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6029	6143	
==>eturn "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $l <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	693	793	
==>ub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($s <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	693	793	
==>ub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16594	16765	
==>rray = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16594	16765	
==>rray = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16594	16765	
==>rray = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5419	5527	
==>lurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5419	5527	
==>lurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5419	5527	
==>lurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6658	6761	
==>t => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6658	6761	
==>t => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1662	1786	
==>LL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1662	1786	
==>LL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1662	1786	
==>LL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1114	1209	
==>oerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coer <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1114	1209	
==>oerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coer <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1114	1209	
==>oerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coer <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12764	12862	
==>rn value is the values of the fields removed.  In scalar
context the number of fields removed is re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12764	12862	
==>rn value is the values of the fields removed.  In scalar
context the number of fields removed is re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25836	25931	
==>--------------------------------

listify(X,L) :- atom(X), atom_codes(X,L), !.
listify(X,L) :- s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	402	513	
==>ion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	402	513	
==>ion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	402	513	
==>ion (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2897	3011	
==>nClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2897	3011	
==>nClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2897	3011	
==>nClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1029	1141	
==>s
method apply {
    ...
}

# hmm, what do we need to test to check for circular superclasses?
# I guess that we' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6573	6680	
==>ta::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6585	6692	
==>ta::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33069	33166	
==>more complete
documentation.  For now, read the source (!).

=head2 bol

Family: anchor

Types: bo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	659	747	
==>m Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	659	747	
==>m Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2805	2912	
==>eter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2805	2912	
==>eter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2805	2912	
==>eter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33963	34060	
==>lied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30238	30333	
==>lied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34790	34885	
==>lied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8755	8956	
==>e used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5115	5316	
==>e used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5964	6165	
==>e used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2862	3013	
==>my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	422	514	
==>PORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	422	514	
==>PORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1799	1901	
==>arn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1799	1901	
==>arn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1799	1901	
==>arn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignor <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1944	2040	
==>ulti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1944	2040	
==>ulti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4328	4483	
==>Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4328	4483	
==>Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4328	4483	
==>Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1796	1917	
==>"" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } qw(fla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1371	1470	
==>common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1371	1470	
==>common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Com <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13006	13121	
==>g ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16483	16598	
==>g ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15845	15960	
==>g ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2025	2232	
==>);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5502	5709	
==>);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4432	4639	
==>);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5952	6089	
==>te($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5952	6089	
==>te($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5952	6089	
==>te($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1318	1418	
==>ction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1318	1418	
==>ction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1318	1418	
==>ction (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5398	5530	
==>ss->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5398	5530	
==>ss->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5398	5530	
==>ss->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	323	419	
==>w PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	323	419	
==>w PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	323	419	
==>w PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. E <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2556	2742	
==>accessors( qw[available registered_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, the other m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2203	2320	
==>Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2420	2537	
==>Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20909	21022	
==>sabled::require ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::require($module);
    Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	229	326	
==>undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	229	326	
==>undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16479	16581	
==>nce_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16479	16581	
==>nce_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16479	16581	
==>nce_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10364	10501	
==>[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10358	10495	
==>[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2030	2141	
==>) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back, style = dashed, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3812	3940	
==>}

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3812	3940	
==>}

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3812	3940	
==>}

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6006	6117	
==>b unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6006	6117	
==>b unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6006	6117	
==>b unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh en <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20133	20234	
==>e is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a lang <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20133	20234	
==>e is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a lang <==
3	/Users/nnunley/pugs/util/package-osx.pl	11867	11957	
==>ge_files($dest, %change_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	428	541	
==>@_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	428	541	
==>@_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	226	339	
==>e;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mess <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16529	16625	
==>o stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16529	16625	
==>o stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12586	12692	
==>rser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 Standard W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5088	5222	
==>variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5088	5222	
==>variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5088	5222	
==>variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4350	4453	
==>ssed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4350	4453	
==>ssed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6547	6650	
==>ssed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11250	11351	
==>returns opaque
    (((?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	669	765	
==>as insufficiently tractable.
# By requiring far more effort than was hoped, it became uninteresti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	628	724	
==>t <after>.

- Captures need an internal 'counter', see the ratchet version for an implementatio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12100	12237	
==>f.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2502	2625	
==>f.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2502	2625	
==>f.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Buil <==
3	/Users/nnunley/pugs/util/package-osx.pl	2888	3017	
==>-multi-2level/CORE/pugs/pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @fil <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1226	1324	
==>ort {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1226	1324	
==>ort {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1328	1449	
==>a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1328	1449	
==>a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1328	1449	
==>a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9183	9275	
==>I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entir <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9183	9275	
==>I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1714	1860	
==>$.testplan')->header());            
        },
        'ok' => sub { 
            my ($self, $passed, $description) = @_;
            $description <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13190	13286	
==>gate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13190	13286	
==>gate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7032	7131	
==>ners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7032	7131	
==>ners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7032	7131	
==>ners (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	557	689	
==>_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	557	689	
==>_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	557	689	
==>_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque i <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1411	1589	
==>nt, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @args[0]!";
            }

            ...;
        }
    }
  }

  my $session = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3283	3379	
==>) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3283	3379	
==>) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5793	5933	
==>["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5793	5933	
==>["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5793	5933	
==>["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1105	1203	
==>his because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1105	1203	
==>his because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1105	1203	
==>his because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1284	1390	
==>=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1284	1390	
==>=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1284	1390	
==>=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3084	3215	
==>ame = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3084	3215	
==>ame = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3084	3215	
==>ame = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17649	17742	
==>+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17649	17742	
==>+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17649	17742	
==>+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12183	12306	
==>efined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12183	12306	
==>efined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12183	12306	
==>efined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	388	489	
==>:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	388	489	
==>:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16474	16570	
==>instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16474	16570	
==>instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16474	16570	
==>instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9526	9767	
==>ir' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9526	9767	
==>ir' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9526	9767	
==>ir' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    wa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21346	21440	
==>ubstrs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_mi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6631	6730	
==>s
not so much define a grammar as let each matched node state what it
expects to match next, but the <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4434	4549	
==>f ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4434	4549	
==>f ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13579	13693	
==>xpect"><tmpl_var name=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a hre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	779	883	
==>ASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	779	883	
==>ASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	779	883	
==>ASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8474	8588	
==>ed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8474	8588	
==>ed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8474	8588	
==>ed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3941	4071	
==>Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3941	4071	
==>Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3941	4071	
==>Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2892	2988	
==>ortion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2892	2988	
==>ortion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

= <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1319	1411	
==>ified by smokeserv
$ENV{HARNESS_PERL}  = "$^X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	666	785	
==>_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	666	785	
==>_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	666	785	
==>_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13877	13975	
==>m_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13877	13975	
==>m_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13877	13975	
==>m_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4	97	
==>id

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's ter <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4	97	
==>id

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2614	2717	
==>the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2614	2717	
==>the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2614	2717	
==>the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	191	343	
==>:ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	191	343	
==>:ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3337	3470	
==>ng> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class = shift;
    %hash = (
        ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1636	1759	
==>"after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "uni <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1636	1759	
==>"after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "uni <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8900	9026	
==>ang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8900	9026	
==>ang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22339	22439	
==>words {  # see 12.11
      <'case'> <Expression> <':'> <StatementList>?
}
rule DefaultClause :words { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8858	8973	
==>KAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=head1 SYNOPSIS

	use Blondie::TypeSafe;

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8629	8741	
==>1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should w <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8629	8741	
==>1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	157	254	
==>keys = qw{
    name module_name abstract author version license
    distribution_type perl_version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3419	3637	
==>);
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3419	3637	
==>);
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3419	3637	
==>);
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join( <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	688	795	
==>... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve faile <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	655	762	
==>... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve faile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6504	6596	
==>ES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6504	6596	
==>ES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6504	6596	
==>ES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	983	1094	
==>etval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	983	1094	
==>etval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	983	1094	
==>etval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8744	8851	
==>my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8744	8851	
==>my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8744	8851	
==>my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12982	13100	
==>is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12982	13100	
==>is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12982	13100	
==>is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7421	7556	
==>"sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7421	7556	
==>"sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7421	7556	
==>"sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11438	11562	
==>ol :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3844	3993	
==>d entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4308	4457	
==>d entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this de <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22922	23032	
==>y :words {  # see 12.14
      <'finally'> <Block>
}

# A.5 Functions and Programs

rule FunctionDeclaration :wo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29472	29558	
==>Mcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILI <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4827	4937	
==>pdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4827	4937	
==>pdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4211	4322	
==>an1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4211	4322	
==>an1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31797	31893	
==>t (for quantifiers).

=item neg

Whether this object is negated (like a look-ahead or a character <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4257	4371	
==>ased.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4257	4371	
==>ased.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4257	4371	
==>ased.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov') <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5341	5477	
==>{
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5341	5477	
==>{
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2205	2328	
==>s->{dir}) };

    if($@) {
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}': $@] );
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1963	2073	
==>RED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1963	2073	
==>RED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1963	2073	
==>RED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10111	10274	
==>de: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( g <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7004	7116	
==>::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7004	7116	
==>::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	388	498	
==>y if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	388	498	
==>y if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	388	498	
==>y if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9680	9793	
==>'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9680	9793	
==>'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1692	1798	
==>ut         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1692	1798	
==>ut         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1692	1798	
==>ut         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term-> <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3380	3496	
==>}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     sa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5834	5937	
==>ng

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 Fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5834	5937	
==>ng

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 Fil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	988	1116	
==>$.output')->write($footer) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14851	14950	
==>ns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<us <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14851	14950	
==>ns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<us <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	186	325	
==>ircuiting

    '&control_structure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25316	25411	
==>ophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25316	25411	
==>ophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3489	3620	
==>ft;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3489	3620	
==>ft;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3489	3620	
==>ft;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9622	9720	
==>',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9622	9720	
==>',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9622	9720	
==>',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5418	5521	
==>p to a response when it has been received.
method client_date ($self: )         is rw { $self!date_heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5418	5521	
==>p to a response when it has been received.
method client_date ($self: )         is rw { $self!date_heade <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2470	2565	
==>ue($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6880	7007	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6880	7007	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6880	7007	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1677	1782	
==>self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1817	1922	
==>self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13574	13675	
==>s exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13574	13675	
==>s exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5373	5475	
==>\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5373	5475	
==>\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5373	5475	
==>\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15585	15719	
==>compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (imp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15585	15719	
==>compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (imp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17043	17166	
==>[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other possibilities as wel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4556	4675	
==>re},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4339	4453	
==>re},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	90	189	
==>Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5781	5878	
==>o return a negative value for
# relative seconds and a positive value for epoch based time values. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5781	5878	
==>o return a negative value for
# relative seconds and a positive value for epoch based time values. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	114	226	
==>'new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	114	226	
==>'new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	114	226	
==>'new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9965	10061	
==>urns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9965	10061	
==>urns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7852	7961	
==>1.  In the List section.
# Prim.hs has a different return type.  List instead of Scalar.
# \\n   List      pre <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	987	1081	
==>mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	987	1081	
==>mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12926	13031	
==>le";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12926	13031	
==>le";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12926	13031	
==>le";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7111	7238	
==>@array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5612	5739	
==>@array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! und <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	700	804	
==>gets changed

### base dirs
### XXX touch the 'root' entry and the tests will run somewhere quite differe <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11068	11163	
==>ns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=it <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11068	11163	
==>ns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3970	4069	
==>956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3970	4069	
==>956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3970	4069	
==>956 for
## disucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	36	135	
==>e, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	36	135	
==>e, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	36	135	
==>e, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5482	5595	
==>S::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5482	5595	
==>S::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5482	5595	
==>S::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5601	5703	
==>uld
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and crea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5601	5703	
==>uld
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and crea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5601	5703	
==>uld
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and crea <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3372	3488	
==>y, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3372	3488	
==>y, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12751	12945	
==>pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12751	12945	
==>pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12751	12945	
==>pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	227	359	
==>ave special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	227	359	
==>ave special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25438	25534	
==>th the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29990	30086	
==>th the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2070	2353	
==>"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $bu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2070	2353	
==>"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $bu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2087	2184	
==>f $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasProperty]]> ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7420	7565	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7420	7565	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7420	7565	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19671	19800	
==>r (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16092	16221	
==>r (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2511	2629	
==>+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2511	2629	
==>+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->cod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	355	530	
==>ndef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34700	34803	
==>g', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Fo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34700	34803	
==>g', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	184	305	
==>s %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	184	305	
==>s %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	184	305	
==>s %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6119	6227	
==>e ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5909	6014	
==>e ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8593	8689	
==>holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or indivi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8593	8689	
==>holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or indivi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	875	996	
==>m->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	875	996	
==>m->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	324	464	
==>=> {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	324	464	
==>=> {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	324	464	
==>=> {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7152	7301	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7152	7301	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7152	7301	
==>$cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14388	14485	
==>NV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14388	14485	
==>NV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14388	14485	
==>NV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Containe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1381	1497	
==>xt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1381	1497	
==>xt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1381	1497	
==>xt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29374	29491	
==>readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29374	29491	
==>readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	202	307	
==>readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21225	21321	
==>equired) that each Perl package which
uses this would come up with keys which are unique across a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21225	21321	
==>equired) that each Perl package which
uses this would come up with keys which are unique across a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29	121	
==>ternal packages used by packages in this file, that don't export symbols:
use Relation-(0.1.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1571	1669	
==>r kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1571	1669	
==>r kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1571	1669	
==>r kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Va <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8296	8409	
==>M $pugs and
      -M $initrd_gz <= -M "$parrot_path/parrot" and
      -M $initrd_gz <= -M $linuxrc and
      -M $i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14768	14873	
==>7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14768	14873	
==>7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3019	3127	
==>x into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3019	3127	
==>x into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3019	3127	
==>x into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16641	16735	
==>e> documentation file that comes
with this "Rosetta" distribution.

While it is possible that o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16641	16735	
==>e> documentation file that comes
with this "Rosetta" distribution.

While it is possible that o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6717	6917	
==>.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6717	6917	
==>.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16113	16231	
==>us = $?;

    # Clean up the results into something a bit more predictable.
    $results =~ s/\n+$//;
    $results =~ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4559	4779	
==>}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4559	4779	
==>}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14240	14399	
==>val ' . _emit( $n->{exp1} ) . "; " . 
            _mangle_var( '$!' ) . " = \$@;";
    }
    if ( $n->{op1}{op} eq 'eval' ) {
        return 
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6092	6183	
==>ssary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6092	6183	
==>ssary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2634	2733	
==>n "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2634	2733	
==>n "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2634	2733	
==>n "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5535	5638	
==>GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5535	5638	
==>GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5535	5638	
==>GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9597	9722	
==>i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9597	9722	
==>i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9597	9722	
==>i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.le <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18824	18920	
==>nymous hash
definition.  While it is obvious that people who would be writing the text
would have <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18824	18920	
==>nymous hash
definition.  While it is obvious that people who would be writing the text
would have <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7800	7896	
==>wSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10722	10827	
==>ee 7.8.5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1349	1454	
==>"src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2120	2230	
==>ef($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2120	2230	
==>ef($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2120	2230	
==>ef($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}-> <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3224	3327	
==>what to put in %*INC. it's not perfect.
    # When module return values are specced, we can make this mu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3250	3340	
==>r::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3467	3557	
==>r::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5774	5882	
==>ay "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, St <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5832	5940	
==>ay "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	98	219	
==>%$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	98	219	
==>%$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	98	219	
==>%$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	336	433	
==>ini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	336	433	
==>ini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	336	433	
==>ini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	709	868	
==>' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $rege <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	709	868	
==>' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	30	151	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	30	151	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	30	151	
==>gs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7014	7127	
==>e( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7014	7127	
==>e( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7014	7127	
==>e( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2633	2740	
==>,
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10210	10310	
==>terpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10210	10310	
==>terpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9235	9348	
==>ocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9235	9348	
==>ocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9235	9348	
==>ocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17193	17313	
==>rms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17193	17313	
==>rms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29346	29438	
==>thod will fail if any C<$mapping> keys do not match invocant
Relation::Example attribute name <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6668	6826	
==>ew .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6668	6826	
==>ew .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1431	1569	
==>sub id    { (shift)->[0]        }
sub class { (shift)->[1]->fetch }

sub change_class {
    my ($self, $klass) = @_;
    return $self->[1]- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	768	860	
==>Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	768	860	
==>Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1873	1960	
==>{re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re_varname})/$1 = $2/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2560	2703	
==>ringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2560	2703	
==>ringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2560	2703	
==>ringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4547	4667	
==>, 
    '... $Object class_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10630	10725	
==>r 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10630	10725	
==>r 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4	129	
==>his is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4	129	
==>his is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4	129	
==>his is a Perl5 file

# ChangeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash el <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	488	599	
==>ults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# wi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	488	599	
==>ults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10527	10722	
==>e;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10527	10722	
==>e;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10527	10722	
==>e;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8007	8122	
==>e};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12002	12112	
==>e};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12002	12112	
==>e};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3341	3483	
==>>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HAS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4190	4332	
==>>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HAS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8153	8282	
==>>{type};
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub visual {
    my $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2921	3156	
==>s2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3168	3403	
==>s2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	176	274	
==>he job
* Some of this had not been specced yet (need S29 work).

When writing primitives, please do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43213	43308	
==>0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The Perl 6 package L<Relation::Ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3663	3758	
==>nterface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {fl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3880	3975	
==>nterface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6978	7092	
==>($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6978	7092	
==>($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6978	7092	
==>($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	557	675	
==>$file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	524	642	
==>$file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18490	18593	
==>scut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp::Concat" ]

.sub "p6ana <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	811	922	
==>->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
}

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	811	922	
==>->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
}

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	811	922	
==>->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth];
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	178	304	
==>s;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	178	304	
==>s;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	178	304	
==>s;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"} <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	638	738	
==>ctor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Meth <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	638	738	
==>ctor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	53	153	
==>ings;

use Perl6::MetaModel;

role 'IScalar' => {};

class 'PIL::Run::Container::Scalar' => {
    doe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4938	5036	
==>:NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20966	21059	
==>pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
will au <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20966	21059	
==>pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
will au <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15415	15549	
==>r        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15415	15549	
==>r        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15415	15549	
==>r        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3941	4034	
==>PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3941	4034	
==>PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3941	4034	
==>PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($l <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	407	631	
==>st' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'parag <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	407	631	
==>st' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'parag <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23943	24136	
==>n, "$min-$last";
                }
                $min = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @result, "FAILED tests @canon\n";
        $can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1883	2031	
==>ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1883	2031	
==>ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1883	2031	
==>ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6892	7020	
==>e current one
    for my $key (@copy) {
        my $path = dir($key)->subdir($pkg->meta->$key);
        
        # maybe use anot <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1068	1191	
==>@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1273	1396	
==>@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2512	2620	
==>y', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2512	2620	
==>y', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2859	2967	
==>y', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3924	4027	
==>the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3924	4027	
==>the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	327	428	
==>ts ($index ) returns Object;
multi method exists (*@index ) returns List of Bool;

multi sub keys   (@ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1441	1536	
==>e there.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1441	1536	
==>e there.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10134	10245	
==>OTE ###
    # this is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since that woul <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3588	3691	
==>object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= D <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3588	3691	
==>object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= D <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15602	15743	
==>}
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15596	15737	
==>}
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36594	36687	
==>irst: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 group <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1751	1859	
==>~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@s <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1751	1859	
==>~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2140	2329	
==>p ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2140	2329	
==>p ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2140	2329	
==>p ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4508	4762	
==>$_ eq 'list' 
                            ? $_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$a <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6510	6609	
==>m the network.  If the request fails, then the
status code and message are printed on STDERR.  The r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6510	6609	
==>m the network.  If the request fails, then the
status code and message are printed on STDERR.  The r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3059	3188	
==>rotoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Transla <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3523	3652	
==>rotoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Transla <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	589	684	
==>rn $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependency declaration from the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11947	12050	
==>};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11947	12050	
==>};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11947	12050	
==>};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15457	15576	
==>::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15457	15576	
==>::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely P <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	533	643	
==>lues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# remov <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	533	643	
==>lues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# remov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9015	9119	
==>thod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9015	9119	
==>thod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9015	9119	
==>thod postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	373	486	
==>ist = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	373	486	
==>ist = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	373	486	
==>ist = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual export <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2036	2162	
==>data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2036	2162	
==>data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7695	7798	
==>_('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7695	7798	
==>_('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7695	7798	
==>_('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6315	6422	
==>rgs[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6315	6422	
==>rgs[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6315	6422	
==>rgs[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29722	29833	
==>nother,
or are the same as the unaffected invocant's attributes.  This method
supports having the new attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34274	34385	
==>nother,
or are the same as the unaffected invocant's attributes.  This method
supports having the new attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33438	33549	
==>nother,
or are the same as the unaffected invocant's attributes.  This method
supports having the new attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1711	1814	
==>n $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1711	1814	
==>n $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1711	1814	
==>n $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6383	6477	
==>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6383	6477	
==>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6383	6477	
==>new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	186	300	
==>f = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3apre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	186	300	
==>f = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3apre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	186	300	
==>f = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3apre <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12273	12372	
==>acute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in pr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12273	12372	
==>acute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5639	5787	
==>n attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5639	5787	
==>n attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5639	5787	
==>n attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5094	5270	
==>nto a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5094	5270	
==>nto a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5094	5270	
==>nto a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8163	8272	
==>failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8163	8272	
==>failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8163	8272	
==>failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3487	3584	
==>return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3487	3584	
==>return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3487	3584	
==>return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchai <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8286	8381	
==>elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8344	8439	
==>elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	684	772	
==>Class->superclasses([ $::Class ]);

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	684	772	
==>Class->superclasses([ $::Class ]);

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	684	772	
==>Class->superclasses([ $::Class ]);

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5249	5503	
==>'$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5249	5503	
==>'$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8452	8595	
==>ly: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1026	1182	
==>{
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1026	1182	
==>{
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*E <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	561	700	
==>me( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $buildd <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1777	1888	
==>sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1777	1888	
==>sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1857	1968	
==>sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11903	12005	
==>eir own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11903	12005	
==>eir own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1923	2044	
==>are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1923	2044	
==>are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1923	2044	
==>are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	534	640	
==>"&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	534	640	
==>"&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	534	640	
==>"&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2057	2167	
==>ef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2057	2167	
==>ef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4274	4371	
==>rapp = $app->fmap(sub { $self->reduce($_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		my <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1892	2023	
==>}; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_travers <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	405	501	
==>(add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are cha <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	405	501	
==>(add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3079	3188	
==>nstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3079	3188	
==>nstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3079	3188	
==>nstant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	549	663	
==>_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	549	663	
==>_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	549	663	
==>_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26525	26753	
==>fy($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26525	26753	
==>fy($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26525	26753	
==>fy($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3225	3371	
==>my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3225	3371	
==>my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3225	3371	
==>my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10969	11124	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dere <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10969	11124	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dere <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10969	11124	
==>$self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24116	24258	
==>ions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24116	24258	
==>ions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24116	24258	
==>ions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13734	13954	
==>();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore req <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13734	13954	
==>();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore req <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13734	13954	
==>();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore req <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5072	5323	
==>ken);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($t <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5072	5323	
==>ken);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6661	6761	
==>`Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flav <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6661	6761	
==>`Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flav <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	961	1060	
==>into the Class.  This has the same effect as
them being defined in the Class, so this effect is call <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16003	16108	
==>.  But more nuanced treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	21	120	
==>r::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	21	120	
==>r::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12330	12455	
==>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12330	12455	
==>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12330	12455	
==>num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3127	3263	
==>t(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3127	3263	
==>t(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3127	3263	
==>t(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@componen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1032	1149	
==>e() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1032	1149	
==>e() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1032	1149	
==>e() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3489	3611	
==>er::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$' . $_[0]->() ,} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	682	786	
==>s> <ident> <p6ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::C <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2977	3089	
==>arser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2977	3089	
==>arser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17795	17901	
==>namespace [ "PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = defined self["value"]
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3137	3314	
==>{ $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3137	3314	
==>{ $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3137	3314	
==>{ $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	33	143	
==>Log
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	33	143	
==>Log
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	33	143	
==>Log
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	984	1144	
==>me($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	853	975	
==>me($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	3	105	
==>ass Method--Perl6;

has Code $.code;

=head1 NAME

Method - functions on classes

=head1 SYNOPSIS



=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12570	12665	
==>array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12570	12665	
==>array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12570	12665	
==>array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15279	15376	
==>o be a prompt or response message for interactive systems.

If the program or any of its component <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15279	15376	
==>o be a prompt or response message for interactive systems.

If the program or any of its component <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	95	186	
==>ompiler.pm"
package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use F <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1078	1212	
==>new();
    $local_env->next($env);
    bless {
        sig  => $signature,
        body => $body,
        env  => $local_env
    } => $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14320	14436	
==>ands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14320	14436	
==>ands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5646	5753	
==>$self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5646	5753	
==>$self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5646	5753	
==>$self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10424	10586	
==>calar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10424	10586	
==>calar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10424	10586	
==>calar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	902	1007	
==>f->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	902	1007	
==>f->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	902	1007	
==>f->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1852	2016	
==>rategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1852	2016	
==>rategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { <==
3	/Users/nnunley/pugs/util/fixauthors.pl	359	488	
==>\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24339	24445	
==>turn $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20760	20866	
==>turn $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	656	755	
==>ings 'numeric';
    return num->new((shift)->to_native() + 0);
}

# implement comparitor method

sub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5863	5972	
==>Temp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Su <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5863	5972	
==>Temp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2762	2871	
==>Temp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'Su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15081	15180	
==>($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15081	15180	
==>($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15384	15521	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15384	15521	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15384	15521	
==>of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1975	2076	
==>ytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1975	2076	
==>ytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1975	2076	
==>ytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11329	11504	
==>scard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11329	11504	
==>scard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1427	1540	
==>$target, $from, 1) =~ /[:digit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
} <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14335	14535	
==>wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8228	8350	
==>...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7952	8069	
==>...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16875	16971	
==>w Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16875	16971	
==>w Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the co <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16136	16242	
==>e final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : compile( <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7051	7148	
==>t export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7051	7148	
==>t export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=it <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25789	25884	
==>sage Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

H <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25789	25884	
==>sage Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

H <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18829	18915	
==>::substr($s,undef,$start,$length,undef,$replace) }
 multi substr(Str $s, StrLen $offset <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2709	2812	
==>.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2709	2812	
==>.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2709	2812	
==>.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7763	7897	
==>r($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7763	7897	
==>r($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $matc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5833	5922	
==>ss defined $self->simplify_type($expected_type);

		return $node if $self->types_eq($de_fa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15402	15510	
==>, if it was free it might be unified to a concrete value
	$ret;
}

# in a let block we thread the set of gene <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19232	19327	
==>enticate

This header must be included as part of a C<401 Unauthorized> response.
The field valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19232	19327	
==>enticate

This header must be included as part of a C<401 Unauthorized> response.
The field valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5444	5556	
==>IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5444	5556	
==>IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5444	5556	
==>IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $mai <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5218	5333	
==>return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5218	5333	
==>return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7785	7909	
==>);
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7785	7909	
==>);
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7785	7909	
==>);
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret-> <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3294	3410	
==>s are specced, we can make this much
    # less hacky :-)
    for my $file (@{ $Config{precompile} }) {
        my $m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7822	7925	
==>t );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7822	7925	
==>t );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6092	6196	
==>plies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6092	6196	
==>plies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16153	16253	
==>ck_for_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potential unsaf <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3175	3300	
==>d)(\d*)}{join('.', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4746	4854	
==>e who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4746	4854	
==>e who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$cha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4911	5037	
==>402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamm <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4911	5037	
==>402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4673	4777	
==>tch_hack - Match creation is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30224	30320	
==><unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34776	34872	
==><unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33949	34045	
==><unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1767	1900	
==>: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1767	1900	
==>: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1767	1900	
==>: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2942	3052	
==>irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2942	3052	
==>irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2257	2363	
==>);
    my $proto = $O.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36844	36940	
==>onsidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36844	36940	
==>onsidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19932	20027	
==>hat is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimens <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24484	24579	
==>hat is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimens <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23036	23131	
==>hat is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimens <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	774	920	
==>cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	774	920	
==>cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    metho <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45037	45143	
==>-------------------------------------------------------------
## now build Package & Module, so we can crea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10927	11085	
==>ed      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1415	1559	
==>ed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ? <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1415	1559	
==>ed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ? <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16694	16801	
==>$X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4867	4971	
==>ine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4867	4971	
==>ine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	391	521	
==>_'" 
        for keys %$param;
    my $self = { source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  po <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40756	40848	
==>le::KeyedText would appreciate being informed any time you create a
modified version of Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40756	40848	
==>le::KeyedText would appreciate being informed any time you create a
modified version of Local <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5873	5987	
==>}, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5873	5987	
==>}, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5873	5987	
==>}, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2647	2739	
==>e->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2647	2739	
==>e->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2647	2739	
==>e->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7054	7173	
==>(), @_);
}

sub curr_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't pa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5538	5650	
==>chy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinato <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5538	5650	
==>chy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinato <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8581	8725	
==>]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12490	12631	
==>]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12490	12631	
==>]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13641	13838	
==>>name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13641	13838	
==>>name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13641	13838	
==>>name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3958	4075	
==>on {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2192	2309	
==>on {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2973	3090	
==>on {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1002	1116	
==>+;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1002	1116	
==>+;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1002	1116	
==>+;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14653	14749	
==>s planned for this module.

- better error handling for cmp_ok

The error handling capabilities n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14711	14807	
==>s planned for this module.

- better error handling for cmp_ok

The error handling capabilities n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5633	5741	
==>*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5633	5741	
==>*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5633	5741	
==>*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2793	2929	
==>ce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2793	2929	
==>ce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2793	2929	
==>ce->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement cer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4538	4630	
==>l @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4538	4630	
==>l @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4538	4630	
==>l @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	628	827	
==>ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	629	828	
==>ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6263	6397	
==>] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for re <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3459	3624	
==>p5 code to p6 code

    -c            # Show conversion rules
    -e            # Convert one-liner
    -s            # List supported features
    -d            # Du <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1191	1297	
==>=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, * <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1191	1297	
==>=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, * <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1732	1833	
==>Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoper <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1732	1833	
==>Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoper <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5041	5170	
==>ch => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pus <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5234	5363	
==>ch => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4092	4188	
==>->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4092	4188	
==>->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4682	4778	
==>->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3361	3456	
==>ng this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3361	3456	
==>ng this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3441	3536	
==>ng this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22000	22096	
==>ero tuples or
one tuple respectively have a special meaning in relational algebra which
is analag <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26552	26648	
==>ero tuples or
one tuple respectively have a special meaning in relational algebra which
is analag <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25248	25344	
==>ero tuples or
one tuple respectively have a special meaning in relational algebra which
is analag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	596	706	
==>') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	366	476	
==>') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	366	476	
==>') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	968	1084	
==>ng      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	968	1084	
==>ng      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8745	8849	
==>_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8745	8849	
==>_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1783	1920	
==>s
        foreach my $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6010	6103	
==>urn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_deep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10267	10360	
==>urn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_deep <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3248	3374	
==>arser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3248	3374	
==>arser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	638	750	
==>bit->new(0) }

# methods

sub fetch { ${$_[0]} }
sub store { 
    my ($self, $value) = @_;
    (blessed($value) & <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4771	4874	
==>ins the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4771	4874	
==>ins the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6968	7071	
==>ins the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	536	646	
==>tructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	536	646	
==>tructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1595	1708	
==>O - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1595	1708	
==>O - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1595	1708	
==>O - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2658	2782	
==>ingify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2658	2782	
==>ingify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2658	2782	
==>ingify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{ce <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13681	13795	
==>$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7888	8002	
==>$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35164	35270	
==>nation, holding any number of objects

Branched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2017	2113	
==>raphy resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2017	2113	
==>raphy resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14505	14661	
==>{ $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14505	14661	
==>{ $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14505	14661	
==>{ $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14434	14612	
==>tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17911	18089	
==>tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17327	17505	
==>tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7440	7558	
==>t = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7452	7570	
==>t = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15493	15600	
==>paren;     /* last paren matched */

Other things the world messes with:

  I32 refcnt;

What invariants?  D <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15139	15237	
==>> $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, cre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15139	15237	
==>> $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, cre <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1930	2060	
==>ed to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1930	2060	
==>ed to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18434	18546	
==>} until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	524	627	
==>hods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	524	627	
==>hods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	524	627	
==>hods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7763	7863	
==>st::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	8	100	
==>st::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	8	100	
==>st::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2665	2781	
==>y methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2665	2781	
==>y methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2665	2781	
==>y methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1185	1312	
==>ispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1185	1312	
==>ispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1185	1312	
==>ispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5311	5429	
==>:numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5311	5429	
==>:numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5311	5429	
==>:numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3850	3956	
==>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3850	3956	
==>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4440	4546	
==>is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8013	8118	
==>ch pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8013	8118	
==>ch pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	125	215	
==>e base 'Object::Accessor';

=head2 $obj = JIB::Dependency->new_from_struct( struct => STRUC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7319	7427	
==>L::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7319	7427	
==>L::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7319	7427	
==>L::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4047	4134	
==>IN BOOTSTRAPPING AREA
## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4047	4134	
==>IN BOOTSTRAPPING AREA
## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4047	4134	
==>IN BOOTSTRAPPING AREA
## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21031	21129	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21031	21129	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21031	21129	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6096	6207	
==>P::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6096	6207	
==>P::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!par <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	99	196	
==>n';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1720	1848	
==>age();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1720	1848	
==>age();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1720	1848	
==>age();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30568	30745	
==>'_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                ret <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6612	6715	
==>just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.it <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6612	6715	
==>just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.it <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	931	1040	
==>lass;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7767	7869	
==>xt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  forea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7767	7869	
==>xt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  forea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7767	7869	
==>xt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  forea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2374	2477	
==>JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2374	2477	
==>JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2374	2477	
==>JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	88	223	
==>est::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @:out <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	8	139	
==>est::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	8	139	
==>est::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25542	25640	
==>gmust search is never
 * wasted effort.  The regback variable says how many characters back from
 * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1139	1266	
==>] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1139	1266	
==>] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1139	1266	
==>] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9064	9161	
==>of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9064	9161	
==>of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5181	5300	
==>>
}
rule FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boole <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1998	2099	
==>e::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1998	2099	
==>e::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12642	12747	
==>f_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12642	12747	
==>f_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12642	12747	
==>f_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1818	1963	
==>]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10167	10266	
==>ion of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10225	10324	
==>ion of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2428	2524	
==>(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2428	2524	
==>(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2428	2524	
==>(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19708	19804	
==>r a non-programmer to edit.
But the current Perl-based solution will also be kept due to its more <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19708	19804	
==>r a non-programmer to edit.
But the current Perl-based solution will also be kept due to its more <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4850	5045	
==>-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if mo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4850	5045	
==>-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if mo <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3580	3719	
==>) {
            $module ||= $1 if /^(?:package|module|class) \s+ ([^-;]+)/x;
            $program .= $_;
        }

        die "could not g <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23564	23674	
==>ndex $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $S1
    $S1 . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13951	14051	
==>redoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13951	14051	
==>redoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	747	861	
==>.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	747	861	
==>.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	747	861	
==>.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8314	8430	
==>p } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8314	8430	
==>p } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8314	8430	
==>p } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17068	17177	
==>endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offset <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22168	22277	
==>endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offset <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3324	3421	
==>equiv->moniker;
	my $method = "define_$kind";
	warn "defining a new $kind (@_)";
	return $self->$m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	140	257	
==>Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	140	257	
==>Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	140	257	
==>Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeniz <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	547	652	
==>eturn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	547	652	
==>eturn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	547	652	
==>eturn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	519	615	
==>.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	519	615	
==>.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	46	151	
==>TCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	46	151	
==>TCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	46	151	
==>TCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2612	2712	
==>q 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2612	2712	
==>q 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2612	2712	
==>q 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	66	178	
==>mitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	66	178	
==>mitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	66	178	
==>mitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3040	3151	
==>.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3040	3151	
==>.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	456	559	
==>paque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	456	559	
==>paque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	456	559	
==>paque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1100	1204	
==>meout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1100	1204	
==>meout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1100	1204	
==>meout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALR <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4038	4151	
==>pends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4096	4209	
==>pends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	806	908	
==>n $left->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3438	3568	
==>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3438	3568	
==>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3438	3568	
==>add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2698	2830	
==>RSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2698	2830	
==>RSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2698	2830	
==>RSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4985	5154	
==>f._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4985	5154	
==>f._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	437	549	
==>requires requires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1430	1558	
==>y $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/%/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1430	1558	
==>y $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/%/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3394	3519	
==>}
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] ) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	268	375	
==>version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($cl <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	268	375	
==>version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($cl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8312	8440	
==>last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2655	2748	
==>se_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2655	2748	
==>se_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4793	4921	
==>nything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbala <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4793	4921	
==>nything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbala <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	250	338	
==>if_unmodified_since last_modified
    content_type content_encoding content_length conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	250	338	
==>if_unmodified_since last_modified
    content_type content_encoding content_length conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	379	524	
==>a($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	379	524	
==>a($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	379	524	
==>a($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1351	1449	
==>tList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1351	1449	
==>tList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1351	1449	
==>tList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1295	1392	
==>her = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1295	1392	
==>her = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1295	1392	
==>her = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9284	9497	
==>$param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9284	9497	
==>$param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9284	9497	
==>$param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1673	1796	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1673	1796	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1673	1796	
==>sed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3041	3154	
==>);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3041	3154	
==>);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3041	3154	
==>);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4006	4123	
==>for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4006	4123	
==>for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4006	4123	
==>for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10925	11044	
==>egin Pugs addition
            # this addition prints out the differnt TODO types
            foreach my $todo_type (key <==
3	/Users/nnunley/pugs/util/build_pugs.pl	613	707	
==>om the file `config.yml` in
the build root. You may override these settings using the PUGS_BUIL <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	162	270	
==>code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	162	270	
==>code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1458	1550	
==>onal) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1458	1550	
==>onal) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2024	2123	
==>H().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2024	2123	
==>H().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2024	2123	
==>H().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ / <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12647	12756	
==>, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob["isnegated"] = 0
    pos = m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1243	1352	
==>"param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1236	1337	
==>"param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	72	172	
==>int $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	72	172	
==>int $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	72	172	
==>int $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10244	10357	
==>,
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10244	10357	
==>,
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3844	3956	
==>E";
    }

    @stack = @{ $self->{tree} }, return unless $next;
    $next->walk(\@stack, $d);
    return wantarr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	669	769	
==>sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1259	1359	
==>sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6181	6312	
==>'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6181	6312	
==>'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6181	6312	
==>'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5687	5788	
==>ete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've jo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5687	5788	
==>ete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9376	9480	
==>= $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9376	9480	
==>= $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9376	9480	
==>= $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14754	14845	
==>s::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_lea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14754	14845	
==>s::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_lea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14754	14845	
==>s::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_lea <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3206	3425	
==>&infix:<cmp>,
                                          Bit :$inplace
                             ) returns Array

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@value <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1413	1507	
==>I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1413	1507	
==>I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2350	2452	
==>tr $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2350	2452	
==>tr $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2350	2452	
==>tr $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	198	299	
==>";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	198	299	
==>";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	198	299	
==>";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5617	5780	
==>ew PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5617	5780	
==>ew PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5617	5780	
==>ew PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	474	590	
==>E_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	474	590	
==>E_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	474	590	
==>E_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7610	7764	
==>( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7610	7764	
==>( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7610	7764	
==>( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2498	2601	
==>p'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2498	2601	
==>p'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2498	2601	
==>p'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ign <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5488	5595	
==>6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5488	5595	
==>6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5488	5595	
==>6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	178	284	
==>e warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	180	286	
==>e warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	174	280	
==>e warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	882	971	
==>This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<Thi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	882	971	
==>This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<Thi <==
3	/Users/nnunley/pugs/util/package-osx.pl	11886	11975	
==>ange_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlinks($dest, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20545	20640	
==>, and then invoking methods on those objects.  All of
their class/object attributes are private, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25097	25192	
==>, and then invoking methods on those objects.  All of
their class/object attributes are private, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23667	23762	
==>, and then invoking methods on those objects.  All of
their class/object attributes are private, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37181	37325	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37181	37325	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37181	37325	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        els <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20687	20788	
==>...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17108	17209	
==>...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	325	476	
==>ess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	325	476	
==>ess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	325	476	
==>ess => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4075	4177	
==>y $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4075	4177	
==>y $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4665	4767	
==>y $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4185	4294	
==>, cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4185	4294	
==>, cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4185	4294	
==>, cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13782	13880	
==>_field )

Apply a subroutine to each header field in turn.  The callback routine
is called with two <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13782	13880	
==>_field )

Apply a subroutine to each header field in turn.  The callback routine
is called with two <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	657	751	
==>gE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This librar <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2559	2716	
==>$inst->files_list( $self->package );
        
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19054	19145	
==>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19054	19145	
==>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5264	5382	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8741	8859	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7761	7879	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9563	9675	
==>= eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9563	9675	
==>= eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9563	9675	
==>= eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6018	6144	
==>ecalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6018	6144	
==>ecalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6018	6144	
==>ecalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6791	6945	
==>s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6791	6945	
==>s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6791	6945	
==>s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3760	3931	
==>esult7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } else {
        die "bug - invalid hint $hint";
    }
}

# 8.7 The Reference Type
class JSX::In <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32456	32547	
==>xt files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object stores <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32456	32547	
==>xt files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object stores <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2165	2330	
==>);
    my $tmpl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPOSITORY_S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4013	4124	
==>s, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of thi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4013	4124	
==>s, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of thi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4605	4749	
==>n rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5 <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4605	4749	
==>n rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1704	1801	
==>ens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Cla <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26210	26306	
==>dy>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation::Examp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1278	1377	
==>is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1278	1377	
==>is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1278	1377	
==>is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9469	9572	
==>sh', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  sk <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9527	9630	
==>sh', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  sk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1236	1359	
==>(" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1236	1359	
==>(" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1236	1359	
==>(" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4611	4729	
==>")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4611	4729	
==>")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4611	4729	
==>")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2467	2591	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2467	2591	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2467	2591	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($lab <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1296	1450	
==>y(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1296	1450	
==>y(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	886	1029	
==>ft;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self->{omit};
  }

  sub insert {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11710	11884	
==>'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11710	11884	
==>'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17204	17311	
==>params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :descendant)))
     (= $method (WA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2800	2945	
==>ched.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3017	3162	
==>ched.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling s <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	679	767	
==>tem("pugs naive_bayesian.p6 add grapes grapes");
}
system("pugs naive_bayesian.p6 classif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1664	1765	
==>- does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1664	1765	
==>- does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1664	1765	
==>- does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5288	5412	
==>$n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HAS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5510	5634	
==>$n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HAS <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40001	40096	
==>he
invocant relation into a new Relation::Example, such that all common attribute names
and corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	70	177	
==>5-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	70	177	
==>5-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	70	177	
==>5-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14608	14810	
==>r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18085	18287	
==>r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17501	17703	
==>r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2563	2671	
==>l5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2563	2671	
==>l5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2563	2671	
==>l5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6270	6482	
==>value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6270	6482	
==>value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6270	6482	
==>value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    joi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2554	2684	
==>heck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12364	12477	
==>sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	692	795	
==>rns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

= <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	692	795	
==>rns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

= <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1061	1233	
==>-f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.que <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1061	1233	
==>-f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.que <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4124	4235	
==>y $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq "update.pl";
    process_file $file;
} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10576	10678	
==>eturn (mob)
  err_closure:
    parse_error(mob, pos, "Error in closure quantifier")
.end

.sub "parse_s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6263	6361	
==>tor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not techn <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6263	6361	
==>tor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not techn <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3852	3988	
==>\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_group        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11653	11775	
==>ueue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    }, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11653	11775	
==>ueue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    }, <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	111	204	
==>S, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attribute <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3520	3644	
==>ype',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11864	11975	
==>r(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(any <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4507	4618	
==>r(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29698	29877	
==>:isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29698	29877	
==>:isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29698	29877	
==>:isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1227	1326	
==>e vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BAC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1227	1326	
==>e vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BAC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1227	1326	
==>e vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BAC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	739	1147	
==>)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	739	1147	
==>)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15889	16030	
==>e = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15889	16030	
==>e = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15889	16030	
==>e = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3585	3700	
==>}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3585	3700	
==>}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3585	3700	
==>}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DEST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	305	421	
==>@{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	305	421	
==>@{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	305	421	
==>@{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4734	4883	
==>ithReason') ],
    methods => {
        'report' => sub {
            my $ok          = _('$.passed') ? 'ok' : 'not ok';
            my $description = <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	577	669	
==>ng out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm be <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	577	669	
==>ng out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm be <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8322	8429	
==>Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6019	6121	
==>ecific workaround is done since $message param can oft
    # be set from a caught exception (aliased to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6019	6121	
==>ecific workaround is done since $message param can oft
    # be set from a caught exception (aliased to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6977	7061	
==>->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5702	5823	
==>n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5702	5823	
==>n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5702	5823	
==>n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19878	19978	
==>anged afterwards.

If you want something similar but that is more mutable, you can accomplish
that ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24430	24530	
==>anged afterwards.

If you want something similar but that is more mutable, you can accomplish
that ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22982	23082	
==>anged afterwards.

If you want something similar but that is more mutable, you can accomplish
that ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5917	6051	
==>e($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5917	6051	
==>e($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5917	6051	
==>e($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            forea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12431	12540	
==>'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12431	12540	
==>'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12431	12540	
==>'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2405	2509	
==>eturns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2405	2509	
==>eturns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2718	2851	
==>lf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2718	2851	
==>lf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2718	2851	
==>lf->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1422	1525	
==>ue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1422	1525	
==>ue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1422	1525	
==>ue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2435	2572	
==>{$dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessors( qw[ava <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7361	7494	
==>self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7361	7494	
==>self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2456	2591	
==>$href->{$pkg};
        
        ### XXX this should probably be done in one go, so we don't
        ### have a situation where no 'scrip <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5957	6061	
==>rns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - thi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5957	6061	
==>rns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - thi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8807	8906	
==>ype." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLVa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	572	662	
==>rammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	572	662	
==>rammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $co <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21665	21785	
==>equire();
    }
    die "Can't find " ~ $file ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - sh <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13047	13151	
==>nally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13047	13151	
==>nally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_sp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	249	428	
==>ub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5579	5694	
==>d export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!at <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5579	5694	
==>d export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!at <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9710	9858	
==>n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3814	3910	
==>THODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule obje <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3998	4094	
==>THODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1951	2073	
==>('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1951	2073	
==>('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1951	2073	
==>('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3134	3236	
==>ount;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3134	3236	
==>ount;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3134	3236	
==>ount;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in P <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	10	104	
==>n;

# Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20819	20916	
==>ely, and be I<the> back-end which
I recommend above all others for production use.

Most of the ot <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20819	20916	
==>ely, and be I<the> back-end which
I recommend above all others for production use.

Most of the ot <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22487	22599	
==>=> comb(
				fun => ide("listify"),
				param => val(10),
			),
		),
	),
);

my $length_and_first_gen = let(
	ide <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9024	9112	
==>sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2849	2937	
==>sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23021	23125	
==>= exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15452	15543	
==>mplete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15452	15543	
==>mplete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11497	11627	
==>eturn unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11497	11627	
==>eturn unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11497	11627	
==>eturn unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3010	3136	
==>meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I end <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3010	3136	
==>meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I end <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3010	3136	
==>meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3123	3239	
==>r
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3123	3239	
==>r
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3123	3239	
==>r
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1360	1484	
==>e, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1360	1484	
==>e, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1360	1484	
==>e, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9104	9198	
==>:Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "e <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9104	9198	
==>:Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1602	1743	
==>self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1602	1743	
==>self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1602	1743	
==>self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24178	24287	
==>hase to run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch i <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1004	1100	
==>s (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1004	1100	
==>s (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	456	581	
==>gnore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	456	581	
==>gnore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	456	581	
==>gnore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3930	4046	
==>r_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3930	4046	
==>r_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3930	4046	
==>r_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19558	19656	
==>ck between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inn <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19558	19656	
==>ck between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inn <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3048	3137	
==>\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ })" <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5011	5167	
==>$initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	193	299	
==>e warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	170	276	
==>e warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3041	3145	
==>eave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3041	3145	
==>eave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3041	3145	
==>eave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	383	493	
==>h( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	383	493	
==>h( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @matc <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26502	26608	
==>ist α → list β → list (α × β)", "pretty print :t zip");
}




# tests for the type inferrencer
is( <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1228	1371	
==>ay ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = k <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1228	1371	
==>ay ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = k <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23650	23778	
==>tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1857	1985	
==>Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1857	1985	
==>Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1857	1985	
==>Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14625	14720	
==>le( $self->registered_alternatives_file, @alts ) };
    $@ and error( "Could not write alternati <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1900	1993	
==>uite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally t <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1900	1993	
==>uite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15226	15340	
==>p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from the function
	# since this return <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9337	9444	
==>my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9337	9444	
==>my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9597	9744	
==>dd_method' => (
    # method label
        symbol->new('remove_method'), 
    # method body
        method->new(
            $::ENV,
            met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	519	620	
==>ocale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	519	620	
==>ocale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4121	4268	
==>= @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4121	4268	
==>= @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4121	4268	
==>= @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4901	5036	
==>elf: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4901	5036	
==>elf: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7275	7377	
==>lf = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $thunk->fmap(sub { $self->reduce <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1980	2174	
==>h     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.pa <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1980	2174	
==>h     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14826	14966	
==>::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14826	14966	
==>::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14826	14966	
==>::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7428	7612	
==>$_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7428	7612	
==>$_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7428	7612	
==>$_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3378	3482	
==><signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subna <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3378	3482	
==><signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subna <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1640	1740	
==>$self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_attrib <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	978	1077	
==>s elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <AR <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	978	1077	
==>s elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <AR <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	31	129	
==>tp://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Enc <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	31	129	
==>tp://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Enc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1104	1223	
==>e_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1104	1223	
==>e_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1104	1223	
==>e_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32553	32654	
==>dth (like an anchor).

=back

If there is a method with the name of one of these attributes, it is
I<i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5570	5699	
==>->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5570	5699	
==>->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15958	16050	
==>,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9804	9957	
==>$reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	380	523	
==>$reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	380	523	
==>$reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14878	15003	
==>e constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14878	15003	
==>e constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14878	15003	
==>e constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3376	3480	
==>hing is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user di <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3257	3358	
==>hing is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user di <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5032	5128	
==>_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32789	32890	
==>the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  This method <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3043	3139	
==>r ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3043	3139	
==>r ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1256	1403	
==>ckage );
            open my $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	471	568	
==>Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	471	568	
==>Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1250	1355	
==>plit(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1250	1355	
==>plit(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1250	1355	
==>plit(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	843	947	
==>("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	843	947	
==>("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	843	947	
==>("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7865	7964	
==>of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7865	7964	
==>of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1366	1463	
==>L2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1366	1463	
==>L2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1366	1463	
==>L2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2570	2694	
==>class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2570	2694	
==>class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2570	2694	
==>class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12610	12732	
==>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12610	12732	
==>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12610	12732	
==>new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13922	14041	
==>);

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13922	14041	
==>);

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching templat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17778	17883	
==>}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17103	17224	
==>total tests which should have been run
  seen              total tests actually seen
  skip_all          if the whole test <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1602	1705	
==>`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrigh <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1602	1705	
==>`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrigh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7794	7906	
==>Inv, $pArgs) {
    my $has_inv = defined($pInv) ? 1 : 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1809	1910	
==>use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1809	1910	
==>use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gram <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14881	14974	
==>hod invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method ope <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14881	14974	
==>hod invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	300	393	
==>Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	300	393	
==>Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	300	393	
==>Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version) <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	329	451	
==>s = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	329	451	
==>s = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9088	9192	
==>NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4281	4452	
==>.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4281	4452	
==>.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26760	26869	
==>ssRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1272	1409	
==>e eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1272	1409	
==>e eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1272	1409	
==>e eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $def <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2143	2241	
==>);
}
# 8.6.2.4
method <[[HasProperty]]> ($O: JSX::String $P) {
    return JSX::true if $O.property_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14233	14330	
==>K $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $targe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14233	14330	
==>K $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $targe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20924	21186	
==>AR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20924	21186	
==>AR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20924	21186	
==>AR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	364	476	
==>= Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	364	476	
==>= Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	364	476	
==>= Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8637	8745	
==>xt_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $nex <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8637	8745	
==>xt_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $nex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21687	21779	
==>pendence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21687	21779	
==>pendence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19737	20000	
==>ft;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40197	40460	
==>ft;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          - <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12331	12446	
==>git {  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36350	36440	
==>ion (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37061	37151	
==>ion (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37511	37601	
==>ion (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1424	1517	
==>func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1424	1517	
==>func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1424	1517	
==>func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1667	1773	
==>-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $loa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1667	1773	
==>-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $loa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1667	1773	
==>-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $loa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	951	1048	
==>1;

__END__

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Outpu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1159	1254	
==>rticular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.) <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1159	1254	
==>rticular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6346	6478	
==>$self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6346	6478	
==>$self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6346	6478	
==>$self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::op <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6891	6999	
==>::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6891	6999	
==>::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4032	4129	
==>$self->parse if $self->{stack};
  my $vis = join "", map($_->visual, @{ $self->{tree} });
  return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	10	100	
==>::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	10	100	
==>::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	10	100	
==>::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	743	892	
==>$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$Perl6::Run::OnPerl5::X1::BB::pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19659	19755	
==>es).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19659	19755	
==>es).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majorit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	695	798	
==>SAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	695	798	
==>SAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	695	798	
==>SAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	322	442	
==>host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	322	442	
==>host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7225	7335	
==>$_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7225	7335	
==>$_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7225	7335	
==>$_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	299	452	
==>th macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str sy <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9698	9815	
==>::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9678	9795	
==>::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1	100	
==>=pod

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1	100	
==>=pod

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	285	381	
==>Grammar::Perl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2988	3095	
==>2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test faile <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2988	3095	
==>2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test faile <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3068	3175	
==>2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test faile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	493	620	
==>:: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	493	620	
==>:: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32803	32900	
==>ed nature of the
tree.  However, having them returned while I<walking> the tree is
helpful.

The w <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4297	4416	
==>cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4297	4416	
==>cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) { <==
3	/Users/nnunley/pugs/util/config_h.pl	1410	1511	
==>OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

*** Template Haskell compiler backends disabled.  If yo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4014	4157	
==>>nparens;i++) {
        r->startp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = r->lastcloseparen = 0;
    }

    newstr = (r-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2249	2353	
==>ATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2249	2353	
==>ATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if de <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5395	5507	
==>are ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cm <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5395	5507	
==>are ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3079	3204	
==>access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - ev <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3079	3204	
==>access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - ev <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3079	3204	
==>access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - ev <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2984	3138	
==>0,

                   details  => []
                  );

    # Set them up here so callbacks can have them.
    $self->{totals}{$name}         = \%total <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6436	6528	
==>($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new), <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6436	6528	
==>($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2574	2711	
==>:inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2574	2711	
==>:inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2574	2711	
==>:inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1260	1353	
==>:Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1260	1353	
==>:Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1260	1353	
==>:Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9376	9535	
==>nboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9376	9535	
==>nboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9376	9535	
==>nboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3092	3188	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `ca <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3092	3188	
==>splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `ca <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18752	18844	
==>substr(Str $s, StrPos $start,   StrLen $length  ; $replace)
{ Pugs::Internals::substr($s,unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	259	366	
==>pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	259	366	
==>pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	259	366	
==>pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	922	1086	
==>ss);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	922	1086	
==>ss);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	922	1086	
==>ss);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20720	20830	
==>$wstatus,$wstatus;
    print "\t\t(VMS status is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($te <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2433	2537	
==>mething else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2433	2537	
==>mething else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26504	26717	
==>Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26504	26717	
==>Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26504	26717	
==>Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	306	563	
==>n this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6997	7107	
==>Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6997	7107	
==>Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3402	3505	
==>ually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ve <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3402	3505	
==>ually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ve <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3402	3505	
==>ually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16512	16630	
==>| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16512	16630	
==>| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16512	16630	
==>| $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19284	19582	
==>L::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19284	19582	
==>L::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19284	19582	
==>L::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3199	3368	
==>l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3199	3368	
==>l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3199	3368	
==>l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6109	6206	
==>urrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6109	6206	
==>urrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
3	/Users/nnunley/pugs/util/drift.pl	86	172	
==>$setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2199	2328	
==>_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	261	362	
==>o ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	261	362	
==>o ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11254	11349	
==>ly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11254	11349	
==>ly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11254	11349	
==>ly ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19881	19993	
==>::Quant" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp
    .local int padarray
    padarray = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1230	1335	
==>er(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1230	1335	
==>er(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1230	1335	
==>er(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13208	13313	
==>otection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13208	13313	
==>otection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13208	13313	
==>otection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::L <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23823	23917	
==>etta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a comm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23823	23917	
==>etta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a comm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16631	16747	
==>ce methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16631	16747	
==>ce methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3227	3317	
==>k (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3285	3375	
==>k (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7950	8049	
==>:null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7680	7775	
==>:null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10289	10446	
==>age ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5829	5930	
==>andling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5829	5930	
==>andling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12350	12501	
==>a' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12350	12501	
==>a' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12350	12501	
==>a' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5507	5627	
==>($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5507	5627	
==>($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5507	5627	
==>($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You mus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5252	5354	
==>j.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter muc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5252	5354	
==>j.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter muc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5252	5354	
==>j.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter muc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2277	2390	
==>No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2277	2390	
==>No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2277	2390	
==>No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7804	7975	
==>) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7804	7975	
==>) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7804	7975	
==>) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junctio <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6886	7009	
==>::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6886	7009	
==>::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3536	3631	
==>ed 10 of 20 tests and
exited with non-zero status indicating something dubious happened.

The co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6500	6634	
==>t_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6500	6634	
==>t_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6500	6634	
==>t_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1886	1982	
==>ame =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1886	1982	
==>ame =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1886	1982	
==>ame =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPE <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1217	1335	
==>!= VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke g <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5034	5144	
==>$self->{'field_type'}{$fname};
    $ftype =~ s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9838	9945	
==>$module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9838	9945	
==>$module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9364	9511	
==>--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9364	9511	
==>--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9364	9511	
==>--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11346	11526	
==>$::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11346	11526	
==>$::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11346	11526	
==>$::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a h <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12739	12887	
==>l
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5837	5945	
==>) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5837	5945	
==>) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5837	5945	
==>) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4049	4175	
==>= Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4049	4175	
==>= Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4143	4262	
==>ned $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4143	4262	
==>ned $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7219	7334	
==>ode::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3823	3938	
==>ode::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4672	4787	
==>ode::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8119	8232	
==>ode_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'resu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8119	8232	
==>ode_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'resu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	157	257	
==>ammar::BaseCategory ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a line start <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	371	517	
==>to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        ma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	942	1081	
==>:Silly->new; # might or might not have some builtins
                                        # instead of prelude functions

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	360	495	
==>to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        ma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3377	3509	
==>lf->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5446	5556	
==>been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5446	5556	
==>been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6791	6930	
==>\z/) {
	return get_meta($cls)->new_from_single(@_);
    }
    my $meta = get_meta($cls);
    return $meta->new(@_) if defined $meta;
    Car <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	878	974	
==>ean   is JSX::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Valu <==
3	/Users/nnunley/pugs/util/version_h.pl	1554	1751	
==>|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision ||= 0;
print "Current version is $revision\n";

if ($revis <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3828	3926	
==>t " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3828	3926	
==>t " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusernam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2702	2817	
==>em to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2702	2817	
==>em to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2702	2817	
==>em to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4824	4942	
==>$fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4824	4942	
==>$fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4824	4942	
==>$fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10149	10274	
==>:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connecte <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10149	10274	
==>:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connecte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1288	1416	
==>if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1493	1621	
==>if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1554	1682	
==>if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	204	348	
==>method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	204	348	
==>method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4831	4957	
==>p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usage();
   $head = shift;
   $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19763	19860	
==>pe is immutable.  The value of
a Relation object is determined when it is constructed, and the obj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24315	24412	
==>pe is immutable.  The value of
a Relation object is determined when it is constructed, and the obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1625	1732	
==>in(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1625	1732	
==>in(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1625	1732	
==>in(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	573	694	
==>tems) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	573	694	
==>tems) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4388	4498	
==>goto term_ws;
  if (initchar ne "\\") goto term_literal;
  {
  }
  else
  {
    if (matches(/\d/, $target, $pos <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19627	19742	
==>s.  Fixed.
(Mike Lambert)

Non-grouping parentheses weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags we <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13728	13832	
==>{
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13728	13832	
==>{
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	684	803	
==>y $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	684	803	
==>y $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37974	38115	
==>$array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37974	38115	
==>$array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37974	38115	
==>$array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	730	831	
==>Y { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	730	831	
==>Y { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	730	831	
==>Y { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _cu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3387	3536	
==>c;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	355	452	
==>r($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable line <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	355	452	
==>r($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable line <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24997	25121	
==>p::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6078	6194	
==>thod previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6078	6194	
==>thod previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.star <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	40	142	
==>ing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	40	142	
==>ing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	40	142	
==>ing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4754	4869	
==>>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4754	4869	
==>>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4754	4869	
==>>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9805	9943	
==>alues;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Code(Any -- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8414	8514	
==>urn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method inte <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8414	8514	
==>urn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7881	8032	
==>tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7881	8032	
==>tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7881	8032	
==>tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	562	722	
==>aque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	562	722	
==>aque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	562	722	
==>aque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3750	3953	
==>ame}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3750	3953	
==>ame}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3750	3953	
==>ame}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}- <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	797	1038	
==>e ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']';
                    push $a, parse( << <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13772	13967	
==>_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13772	13967	
==>_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13772	13967	
==>_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1113	1218	
==>die "Must pass Perl version (5 or 6)";
    my $base = $self->{_top}{base};
    my $blib = ($perl_version = <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10317	10421	
==>t created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `rev <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10317	10421	
==>t created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3190	3339	
==>e =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3190	3339	
==>e =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3190	3339	
==>e =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1098	1260	
==>led => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1098	1260	
==>led => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1098	1260	
==>led => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19940	20170	
==>($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19940	20170	
==>($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19940	20170	
==>($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - cu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2475	2627	
==>m->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Param->new(' <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3741	3835	
==>s of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3741	3835	
==>s of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34340	34434	
==>yedText::Translator object.
The Set Names property of the new object is set from the named para <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34340	34434	
==>yedText::Translator object.
The Set Names property of the new object is set from the named para <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	250	365	
==>/;

multi sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$minute, Int|Real ?$seco <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	325	420	
==>otate($runtime, $prog)
	);
}

{
	package Blondie::TypeSafe::Annotation;
	use base qw/Blondie::No <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6653	6744	
==>ex->{_dirs}->{$_});
}


# Generating error.html
my $error_file = catfile($output_dir,"error. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11798	11912	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11798	11912	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11798	11912	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	32	131	
==>rict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

us <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	32	131	
==>rict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

us <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7616	7796	
==>skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdir $Files_In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	697	799	
==>");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	697	799	
==>");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	697	799	
==>");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5656	5844	
==>{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4152	4267	
==>{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4024	4137	
==>{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3382	3487	
==>nature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3382	3487	
==>nature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3581	3697	
==>s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4430	4546	
==>s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	961	1088	
==>d $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	972	1099	
==>d $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7774	7873	
==>->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3333	3470	
==>ile ) );
            
            my %avail = map { $_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_depen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18515	18714	
==>ram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18515	18714	
==>ram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18515	18714	
==>ram";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2884	2992	
==>try->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $pretty <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11336	11434	
==>:Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11336	11434	
==>:Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6303	6414	
==>, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6303	6414	
==>, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6303	6414	
==>, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19274	19372	
==>p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19274	19372	
==>p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19274	19372	
==>p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6558	6703	
==>e   (List)\
\\n   Junction  pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2406	2521	
==>' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2611	2726	
==>' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8440	8539	
==>:make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8440	8539	
==>:make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8440	8539	
==>:make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2105	2222	
==>ll_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2105	2222	
==>ll_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2105	2222	
==>ll_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_ro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	633	887	
==>s.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	633	887	
==>s.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	268	401	
==>de,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	268	401	
==>de,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $s <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3476	3599	
==>\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", map { quotemeta } @include );
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4115	4217	
==>nd day default
to 1 if not given.

The value for day can also be the string "last", in which case the
o <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4115	4217	
==>nd day default
to 1 if not given.

The value for day can also be the string "last", in which case the
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	541	641	
==>09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	541	641	
==>09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	541	641	
==>09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementati <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10660	10757	
==>ody'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = $code_va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13022	13107	
==>versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13022	13107	
==>versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8896	9015	
==>, ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8896	9015	
==>, ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8896	9015	
==>, ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite late <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3104	3207	
==>return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3104	3207	
==>return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3104	3207	
==>return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5858	5981	
==>$_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5858	5981	
==>$_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6067	6189	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6067	6189	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6067	6189	
==>:SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	92	197	
==>keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	92	197	
==>keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	92	197	
==>keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5302	5401	
==>n data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Return <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5302	5401	
==>n data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Return <==
3	/Users/nnunley/pugs/util/package-osx.pl	3957	4054	
==>man/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/loca <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	191	292	
==>= HTML::Template.new(filename => "wiki.html");

my $action    = param('action');
my %wiki      = evalf <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14326	14426	
==>ass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14384	14484	
==>ass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34359	34517	
==>create('$next' => $e->get('$dispatcher')->do());             
                block->new($e, sub {
                    $e->get('$next')
                      - <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	342	439	
==>en( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	342	439	
==>en( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	630	733	
==>some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	630	733	
==>some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	630	733	
==>some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14160	14399	
==>::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14160	14399	
==>::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14160	14399	
==>::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11591	11720	
==>n32} ) {
        # Lose any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2482	2599	
==>la
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2482	2599	
==>la
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	871	974	
==>el::STDERR::Indent;

package type;
use base qw/Clone/;

### the types of types we have are:
# type::oper <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5522	5626	
==>\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do < <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	131	233	
==>l 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause\visible<5 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34634	34732	
==>is a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39184	39282	
==>is a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2110	2227	
==>Path! This module should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if($@ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	439	538	
==>has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	439	538	
==>has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1154	1268	
==>not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLAS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1154	1268	
==>not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLAS <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26159	26268	
==>e::free->new;
	my $b = type::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4155	4278	
==>e}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4155	4278	
==>e}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4155	4278	
==>e}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3549	3670	
==>Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7026	7147	
==>Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5983	6104	
==>Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14006	14153	
==>rt => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14006	14153	
==>rt => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14006	14153	
==>rt => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7566	7699	
==>et escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got tem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7566	7699	
==>et escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got tem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3416	3525	
==>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3416	3525	
==>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3416	3525	
==>expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10104	10266	
==>t provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $ <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	306	445	
==>);
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	306	445	
==>);
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2203	2320	
==>msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2203	2320	
==>msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2203	2320	
==>msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1226	1370	
==>ss @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1226	1370	
==>ss @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3611	3734	
==>d);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Da <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3611	3734	
==>d);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Da <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3611	3734	
==>d);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Da <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23419	23517	
==>is a Role rather than a Class, and some
implementations are immutable rather than mutable, this pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27971	28069	
==>is a Role rather than a Class, and some
implementations are immutable rather than mutable, this pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26775	26873	
==>is a Role rather than a Class, and some
implementations are immutable rather than mutable, this pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7446	7583	
==>y ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7446	7583	
==>y ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7446	7583	
==>y ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1354	1459	
==>$self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8868	9135	
==>);  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8868	9135	
==>);  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8868	9135	
==>);  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self-> <==
3	/Users/nnunley/pugs/util/importgraph.pl	1614	1720	
==>eys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    print "Adding $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	905	1009	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	905	1009	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15153	15257	
==>etter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18630	18734	
==>etter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18046	18150	
==>etter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	33	143	
==>rl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	33	143	
==>rl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	33	143	
==>rl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1549	1641	
==>ce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1549	1641	
==>ce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1549	1641	
==>ce_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5310	5487	
==>, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5310	5487	
==>, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{ma <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2819	2952	
==>1]->op_cmp($op);
        if($cmp <= 0) {
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          local $Z: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1076	1184	
==>en start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TO <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1076	1184	
==>en start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8522	8630	
==>unk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8522	8630	
==>unk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8522	8630	
==>unk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = P <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2262	2361	
==>ists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2240	2339	
==>ists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $ar <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6233	6323	
==>array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2234	2328	
==>Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2323	2417	
==>Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4447	4543	
==>em into
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4447	4543	
==>em into
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4447	4543	
==>em into
New::Namespace. This completely overrides whatever blessing they had
before.

=item B<reb <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32425	32520	
==>header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36975	37070	
==>header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36265	36360	
==>header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6955	7063	
==>w, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6955	7063	
==>w, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6955	7063	
==>w, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24310	24422	
==>ax) {
        push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, "? <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4329	4420	
==>ens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4329	4420	
==>ens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19236	19345	
==>.

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2029	2136	
==>es Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  meth <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2029	2136	
==>es Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3599	3716	
==>my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3599	3716	
==>my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3599	3716	
==>my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1015	1113	
==>($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1015	1113	
==>($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1015	1113	
==>($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33610	33703	
==>on>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38160	38253	
==>on>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relati <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	127	378	
==>.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	127	378	
==>.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10526	10619	
==>thod decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10526	10619	
==>thod decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	50	145	
==>l6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	50	145	
==>l6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	50	145	
==>l6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7859	7968	
==>$A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::fal <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11002	11100	
==>lass: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11002	11100	
==>lass: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ci <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10823	10975	
==>= $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7900	8043	
==>= $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7900	8043	
==>= $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10182	10295	
==>@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code_b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14823	14916	
==>es:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a refere <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14823	14916	
==>es:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a refere <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9749	9844	
==>, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9749	9844	
==>, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12985	13112	
==>) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12985	13112	
==>) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12985	13112	
==>) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5016	5119	
==>oo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7684	7787	
==>oo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $O <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1836	1930	
==>_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1836	1930	
==>_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31761	31856	
==>nimum repetition count of this object (for quantifiers).

=item neg

Whether this object is nega <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1281	1383	
==>{
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wi <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1281	1383	
==>{
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1561	1662	
==>r(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5432	5552	
==>nf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5432	5552	
==>nf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2641	2754	
==>char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $self->add <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2489	2600	
==>cted: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2489	2600	
==>cted: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2569	2680	
==>cted: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7847	7958	
==>$name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7847	7958	
==>$name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7847	7958	
==>$name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	534	635	
==>PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	534	635	
==>PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	534	635	
==>PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8331	8452	
==>bject>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8331	8452	
==>bject>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	107	210	
==>s the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	107	210	
==>s the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	107	210	
==>s the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16760	16858	
==>TION

This module implements a "List" object.

new() without parameters is an empty list.

=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16760	16858	
==>TION

This module implements a "List" object.

new() without parameters is an empty list.

=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16760	16858	
==>TION

This module implements a "List" object.

new() without parameters is an empty list.

=head1 S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1727	1861	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1727	1861	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1727	1861	
==>ss "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14754	14886	
==>affic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14754	14886	
==>affic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4431	4527	
==>enerates a gzipped initrd suitable for GRUB.
  --initrd-img=$initrd_img
    --initrd-img is the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14022	14147	
==>arn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eva <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14022	14147	
==>arn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eva <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14022	14147	
==>arn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2779	2878	
==>ix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2779	2878	
==>ix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2779	2878	
==>ix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11414	11525	
==>ct( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        r <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13018	13129	
==>=> [] }, shift;
}

sub reduce_val { $_[1]->val }

sub reduce_stub {
    my $self = shift;
    die "trying to red <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14891	15002	
==>ct( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13756	13867	
==>y->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13756	13867	
==>y->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13756	13867	
==>y->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6388	6516	
==>var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6376	6504	
==>var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6444	6531	
==>ype(shift);

		Scalar::Util::blessed($type) and $type->isa("Blondie::TypeSafe::Type::Pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5447	5585	
==>s;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5447	5585	
==>s;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5447	5585	
==>s;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17616	17710	
==>.>

=item $h.user_agent

This header field is used in request messages and contains information <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17616	17710	
==>.>

=item $h.user_agent

This header field is used in request messages and contains information <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12474	12572	
==>1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12474	12572	
==>1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

= <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4355	4532	
==>Header = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    }
    else {
        $dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "gene <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9170	9273	
==>re => sub { -r $initrd_img and -s $initrd_img == 1024 * $initrd_size },
    using  => sub { system "dd", <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15250	15350	
==>.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpress <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9148	9313	
==>"get_method", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e->get("&dispatcher")->do()); 
            })- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1581	1722	
==>object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1581	1722	
==>object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4638	4740	
==>y, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4638	4740	
==>y, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4638	4740	
==>y, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2954	3050	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2954	3050	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2954	3050	
==>inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9239	9344	
==>implementation is always anchored at ^

### because it was specialized for subrules

### - needs to be gen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8935	9038	
==>implementation is always anchored at ^
### because it was specialized for subrules
### - needs to be gen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23871	23966	
==>usual way that Relation::Example indicates a failure is to throw an exception;
most often this i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9248	9355	
==>Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9248	9355	
==>Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9248	9355	
==>Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4511	4610	
==>t () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4511	4610	
==>t () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4511	4610	
==>t () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8673	8793	
==>oto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	46	148	
==>exs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level struc <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	46	148	
==>exs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level struc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1500	1670	
==>h( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1500	1670	
==>h( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1500	1670	
==>h( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3356	3467	
==>ram<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3356	3467	
==>ram<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4293	4398	
==>ms Irix long doubles can have 2147483648 and 2147483648
        # that stringify to the same thing but are <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6820	6935	
==>ue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6820	6935	
==>ue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3719	3834	
==>ue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13885	13976	
==>ted by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13885	13976	
==>ted by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_c <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1396	1536	
==>rs;

            # FIXME this is bullshit - i ought to read the details
            #for $class ($self.meta.superclasses){
            #    t <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1900	2011	
==>- translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1900	2011	
==>- translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10249	10348	
==>ue_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10249	10348	
==>ue_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10249	10348	
==>ue_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10559	10736	
==>urn $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10559	10736	
==>urn $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	145	255	
==>essed';

use base 'symbol';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name && $name =~ /^[\$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	743	934	
==>atement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	743	934	
==>atement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9873	9982	
==>1::NodeSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $c1 =~ s/PIL_Environment/PIL::Enviro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2304	2401	
==>::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2304	2401	
==>::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2304	2401	
==>::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'} <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11138	11228	
==>ader (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11138	11228	
==>ader (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	720	819	
==>ve types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1310	1409	
==>ve types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4604	4753	
==>)
                  : _emit( $n->{param}{sub} );
            my @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[ <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	420	521	
==>cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::import { }

sub node($h,$t) { ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6105	6231	
==>{
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6105	6231	
==>{
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2309	2424	
==>: $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15147	15313	
==>v' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->z <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15147	15313	
==>v' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->z <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15147	15313	
==>v' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->z <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7562	7654	
==>arams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7562	7654	
==>arams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7562	7654	
==>arams->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3120	3255	
==>Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3120	3255	
==>Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3120	3255	
==>Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1966	2093	
==>e_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2183	2310	
==>e_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1459	1565	
==>Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1459	1565	
==>Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1459	1565	
==>Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27013	27115	
==>my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27013	27115	
==>my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14422	14551	
==>OTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to av <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14422	14551	
==>OTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to av <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14422	14551	
==>OTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to av <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3623	3773	
==>$flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            stat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3874	4019	
==>$flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3874	4019	
==>$flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4581	4721	
==>substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4581	4721	
==>substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4581	4721	
==>substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20340	20436	
==>a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24892	24988	
==>a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	5	97	
==>en-Konvertierung ('coerce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	363	464	
==>other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although H <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	363	464	
==>other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although H <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7076	7177	
==>arser->new;

=head2 Setting a Regex

To have the parser work on a specific regex, you can do use any o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23378	23479	
==>n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23378	23479	
==>n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23378	23479	
==>n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15888	16042	
==>ss defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15888	16042	
==>ss defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15888	16042	
==>ss defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7780	7889	
==>f->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7780	7889	
==>f->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7780	7889	
==>f->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	532	652	
==>t if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	567	687	
==>t if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	532	652	
==>t if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2405	2512	
==>'throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2405	2512	
==>'throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2405	2512	
==>'throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15584	15717	
==>uoted} . '\' }';
    }

    return _not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = $_[0];
    # print "ternary <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19887	19980	
==>ares about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19887	19980	
==>ares about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	135	251	
==>ub grep (Any|Junction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33049	33148	
==>s an ordered list of one or more elements where
each element is a Template module Set Name.  When we <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33049	33148	
==>s an ordered list of one or more elements where
each element is a Template module Set Name.  When we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2421	2545	
==>e a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2421	2545	
==>e a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2421	2545	
==>e a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7436	7525	
==>ect_all_roles' => ::make_method($_collect_all_roles));

## ------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7436	7525	
==>ect_all_roles' => ::make_method($_collect_all_roles));

## ------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7436	7525	
==>ect_all_roles' => ::make_method($_collect_all_roles));

## ------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4776	4894	
==>angling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4776	4894	
==>angling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4776	4894	
==>angling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2733	2841	
==>s_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2733	2841	
==>s_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2733	2841	
==>s_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     }) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1941	2048	
==>ood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1941	2048	
==>ood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22542	22663	
==>ss, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'asse <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23044	23165	
==>ss, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'asse <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2775	2959	
==>)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9061	9171	
==>ym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sy <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9061	9171	
==>ym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18790	18942	
==>AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18790	18942	
==>AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18790	18942	
==>AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub A <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7907	8009	
==>[$bucket->state] => $fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $ <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1345	1441	
==>only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1345	1441	
==>only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5555	5728	
==>ing;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.map <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5555	5728	
==>ing;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.map <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35256	35360	
==>r that is identical
to C<join> except that this method will fail if any of its source Relations
have attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39806	39910	
==>r that is identical
to C<join> except that this method will fail if any of its source Relations
have attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39366	39470	
==>r that is identical
to C<join> except that this method will fail if any of its source Relations
have attr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5100	5217	
==>mes of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8577	8694	
==>mes of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5765	5918	
==>or the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5765	5918	
==>or the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5765	5918	
==>or the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7174	7286	
==>_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7174	7286	
==>_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7174	7286	
==>_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3567	3727	
==>} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3814	3974	
==>} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31258	31376	
==>ge Regexp::NoCode;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16450	16574	
==>m( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16450	16574	
==>m( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16450	16574	
==>m( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*) <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1477	1591	
==>r: open '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   Bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5069	5208	
==>use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5069	5208	
==>use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5069	5208	
==>use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $patter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4844	4947	
==>:cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4844	4947	
==>:cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4844	4947	
==>:cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4449	4570	
==>l space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4449	4570	
==>l space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @res <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4273	4446	
==>index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @fo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4737	4910	
==>index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @fo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1502	1596	
==>he Cipher API's procedural interface is good enough for many purposes.  
Although the interface <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1502	1596	
==>he Cipher API's procedural interface is good enough for many purposes.  
Although the interface <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	282	525	
==>) {
                $program = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "prog <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19051	19146	
==>as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19051	19146	
==>as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3218	3322	
==>=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3218	3322	
==>=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3218	3322	
==>=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5115	5234	
==>f  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5115	5234	
==>f  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5115	5234	
==>f  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27462	27573	
==>$attrs> provide the names of the new attributes, and
the values provide values applied to each tuple.  The new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32014	32125	
==>$attrs> provide the names of the new attributes, and
the values provide values applied to each tuple.  The new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31097	31208	
==>$attrs> provide the names of the new attributes, and
the values provide values applied to each tuple.  The new R <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1437	1703	
==>ne eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1437	1703	
==>ne eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3083	3202	
==>s_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3083	3202	
==>s_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3083	3202	
==>s_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6341	6443	
==>, [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6341	6443	
==>, [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6341	6443	
==>, [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3568	3675	
==>, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3568	3675	
==>, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3568	3675	
==>, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6746	6832	
==>opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6746	6832	
==>opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6746	6832	
==>opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subcla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	949	1078	
==>efix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	949	1078	
==>efix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12173	12284	
==>ame"] = subname
    mob["iscapture"] = iscapture
    if iscapture == 0 goto end
    $S0 = escape subname
    $S0 <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3694	3824	
==>ript appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19839	19936	
==>MS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviou <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19839	19936	
==>MS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	446	545	
==>ut

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	446	545	
==>ut

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1002	1101	
==>ut

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13579	13747	
==>rl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13579	13747	
==>rl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13579	13747	
==>rl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3659	3754	
==>gs::Compiler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10311	10399	
==>fy($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%opti <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10311	10399	
==>fy($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%opti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39087	39226	
==>bol->new('get_attributes'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4525	4628	
==>y $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.inte <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4525	4628	
==>y $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.inte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7207	7341	
==>l => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6966	7093	
==>l => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10409	10538	
==>_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: exp <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15120	15217	
==>pth and of
an arbitrary type. The function signatures will likely look something
like this:

  mul <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15178	15275	
==>pth and of
an arbitrary type. The function signatures will likely look something
like this:

  mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2244	2325	
==>y:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2244	2325	
==>y:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2244	2325	
==>y:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	844	958	
==>{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	844	958	
==>{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	844	958	
==>{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4033	4140	
==>m}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4033	4140	
==>m}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4033	4140	
==>m}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13071	13189	
==>tres->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1020	1131	
==>WP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	987	1098	
==>WP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	125	237	
==>l";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	125	237	
==>l";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	125	237	
==>l";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # correctly t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5877	6002	
==>) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5877	6002	
==>) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5877	6002	
==>) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $meth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8193	8345	
==>p { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4553	4705	
==>p { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5402	5554	
==>p { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33689	33818	
==>{
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33689	33818	
==>{
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33689	33818	
==>{
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10187	10334	
==>t->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10187	10334	
==>t->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10187	10334	
==>t->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $sli <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25915	26061	
==>1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1655	1749	
==>tory of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1655	1749	
==>tory of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	169	297	
==>.61';
	@ISA     = qw{Module::Install::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10962	11070	
==>ad a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10962	11070	
==>ad a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	845	1005	
==>odes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	845	1005	
==>odes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	845	1005	
==>odes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15674	15802	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15674	15802	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15674	15802	
==>? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8410	8617	
==>) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8410	8617	
==>) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8410	8617	
==>) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7644	7738	
==>tothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7644	7738	
==>tothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7644	7738	
==>tothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7883	8045	
==>p = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::wri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7883	8045	
==>p = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::wri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7883	8045	
==>p = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::wri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13811	13911	
==>to each header field in turn.  The callback routine
is called with two parameters; the name of the fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13811	13911	
==>to each header field in turn.  The callback routine
is called with two parameters; the name of the fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6065	6175	
==>F, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6065	6175	
==>F, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6065	6175	
==>F, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8806	8958	
==>o contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8806	8958	
==>o contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24560	24656	
==>e = type::operator::arrow->new(
		type::operator::arrow->new(
			type::variable::free->new,
			ty <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	969	1071	
==>turns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCR <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	969	1071	
==>turns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2371	2489	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2371	2489	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2371	2489	
==>$method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4784	4914	
==>TARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4784	4914	
==>TARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4784	4914	
==>TARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1384	1492	
==>$name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1384	1492	
==>$name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1384	1492	
==>$name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15472	15577	
==>0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15472	15577	
==>0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15472	15577	
==>0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7874	7975	
==>2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7874	7975	
==>2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7874	7975	
==>2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4432	4558	
==>$_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4420	4546	
==>$_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	982	1116	
==>E__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    _ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	57	144	
==>Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	188	275	
==>Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2234	2375	
==>);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2234	2375	
==>);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2234	2375	
==>);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $ou <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	535	641	
==>}

sub head($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8721	8810	
==>_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8721	8810	
==>_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	764	867	
==>ite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	764	867	
==>ite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1320	1423	
==>ite all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a mes <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1660	1762	
==>.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is cu <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1660	1762	
==>.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is cu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21460	21552	
==><Expression> <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationNoIn> <'in'> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1957	2127	
==>ort for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1957	2127	
==>ort for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1957	2127	
==>ort for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0 <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	837	986	
==>/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or die "Inva <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2300	2394	
==>ipt with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2300	2394	
==>ipt with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	372	482	
==>{
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_native;
    my @seqs = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	180	280	
==>=> ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generato <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	180	280	
==>=> ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4500	4625	
==>>unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4500	4625	
==>>unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4500	4625	
==>>unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::ite <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4841	4951	
==>g C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4841	4951	
==>g C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6365	6475	
==>g C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a pla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4612	4759	
==>i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4612	4759	
==>i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2288	2397	
==>> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2288	2397	
==>> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2288	2397	
==>> $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	666	769	
==>arser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Stor <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	634	730	
==>arser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Stor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2793	2907	
==>lf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2793	2907	
==>lf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2793	2907	
==>lf->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1925	2049	
==>tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1925	2049	
==>tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5426	5532	
==>" -> ", map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9348	9530	
==>( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12825	13007	
==>( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12079	12261	
==>( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10434	10546	
==>} )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18972	19072	
==>($s,$offset,undef,$length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


package Control::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6106	6207	
==>needs to do to signal
this is to return the string set in advance with the prune method.

This feature <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6106	6207	
==>needs to do to signal
this is to return the string set in advance with the prune method.

This feature <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6106	6207	
==>needs to do to signal
this is to return the string set in advance with the prune method.

This feature <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3966	4061	
==>rows ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4024	4119	
==>rows ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is e <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30399	30493	
==>n from the Perl source
directory.

Please use the CPAN bug ticketing system at L<http://rt.cpan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	628	725	
==>sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	628	725	
==>sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3605	3703	
==>');

is($p2->get_x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '... still got th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6362	6457	
==>dtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6362	6457	
==>dtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21494	21605	
==>xPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handler <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5571	5676	
==>CK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5571	5676	
==>CK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1799	1905	
==>ined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1799	1905	
==>ined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1799	1905	
==>ined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12976	13109	
==>ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12976	13109	
==>ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12976	13109	
==>ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8657	8840	
==>r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12134	12317	
==>r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3879	3999	
==><$description> 
parameter, and setting the passed parameter to a true value. 

If this parameter is false, the factory re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3879	3999	
==><$description> 
parameter, and setting the passed parameter to a true value. 

If this parameter is false, the factory re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6076	6196	
==><$description> 
parameter, and setting the passed parameter to a true value. 

If this parameter is false, the factory re <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	915	1076	
==>t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = ga <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	915	1076	
==>t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = ga <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6619	6749	
==>e "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6217	6325	
==>$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5464	5568	
==>e source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /(. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5464	5568	
==>e source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /(. <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1167	1276	
==>my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't open '$scr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15960	16052	
==>:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
li <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15960	16052	
==>:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3680	3768	
==>l PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3680	3768	
==>l PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3680	3768	
==>l PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2160	2268	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2160	2268	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2160	2268	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4958	5066	
==>.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4958	5066	
==>.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4958	5066	
==>.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if de <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	108	205	
==>What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	97	192	
==>What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	64	159	
==>What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5715	5817	
==>lf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5715	5817	
==>lf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5715	5817	
==>lf = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8764	8886	
==>len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  package Regexp::Parser::quant;

  # Needed for regexp_try.pl, bu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12849	12945	
==>.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12907	13003	
==>.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Co <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6950	7055	
==>Default' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6950	7055	
==>Default' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3849	3954	
==>Default' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2182	2284	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2182	2284	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2182	2284	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1200	1327	
==>ts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1200	1327	
==>ts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1200	1327	
==>ts {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28780	28874	
==>ot match invocant
Relation attribute names, or duplicate any other value set members.  This
met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33332	33426	
==>ot match invocant
Relation attribute names, or duplicate any other value set members.  This
met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3531	3625	
==>stant symbols

=back

The compiler inherits L<Blondie::Reducer> in order to traverse the node
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17878	18035	
==>y->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17878	18035	
==>y->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17878	18035	
==>y->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5529	5635	
==>osedir DIRH; 

    return @f;
}

=item B<_run_all_tests>

  my($total, $failed) = _run_all_tests(@test_file <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17544	17639	
==>ependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Moder <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17544	17639	
==>ependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Moder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10220	10384	
==>> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10220	10384	
==>> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10220	10384	
==>> $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28542	28630	
==>ne RX_MATCH_UTF8_on(prog)		((prog)->reganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_of <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8017	8134	
==>mmand_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switches = $se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5047	5152	
==>$x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.pr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5047	5152	
==>$x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3773	3897	
==>s' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3773	3897	
==>s' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3773	3897	
==>s' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4230	4354	
==>lar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4230	4354	
==>lar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4230	4354	
==>lar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1017	1144	
==>shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15542	15645	
==>inated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15542	15645	
==>inated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2696	2862	
==>urn 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@$grammar1::op <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1172	1283	
==>{ "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2429	2531	
==>= $nameSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSplit[0];
  i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3511	3602	
==>(r8593) from Prelude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
multi Array::spli <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7245	7362	
==>sure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submetho <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7245	7362	
==>sure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submetho <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1786	1893	
==>ashscreen.txt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11778	11878	
==>char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11772	11872	
==>char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
u <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1545	1669	
==>t>  }
rule array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <c <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6220	6318	
==>uments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6220	6318	
==>uments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2021	2142	
==>to ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    u <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2021	2142	
==>to ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    u <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7739	7830	
==>tiated value instead of itself
multi unify => ('type::variable::instantiated', 'type') => su <==
3	/Users/nnunley/pugs/util/package-osx.pl	11018	11138	
==>:readline|history\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12244	12341	
==>, returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the paramet <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12244	12341	
==>, returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1148	1295	
==>extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1148	1295	
==>extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1148	1295	
==>extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3942	4060	
==>ed_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{position <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3942	4060	
==>ed_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{position <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4532	4650	
==>ed_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{position <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15162	15292	
==>imization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18639	18769	
==>imization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18055	18185	
==>imization.

    # Now do the actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1078	1194	
==>he real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1078	1194	
==>he real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1078	1194	
==>he real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	576	680	
==>f (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	346	450	
==>f (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	346	450	
==>f (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2207	2313	
==>$.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2207	2313	
==>$.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26954	27048	
==>snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β)", ":t pair <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	171	264	
==>:Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2651	2743	
==>d::Perl::Interpreter;

=head1 DESCRIPTION

This is a subclass of L<Blondie::Reducere> that pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3353	3488	
==>dx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int -> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	499	597	
==>eadline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresul <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	499	597	
==>eadline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1140	1246	
==>/gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1140	1246	
==>/gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1140	1246	
==>/gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8999	9092	
==>open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2824	2917	
==>open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4672	4764	
==>eft->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i (map { num->new($ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	61	162	
==>$.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	61	162	
==>$.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	585	680	
==>head.p6, tail.p6, rev.p6, mid.p6, wc.p6 for correctness,
# simply run this program in the same d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2589	2682	
==>-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2589	2682	
==>-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2589	2682	
==>-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional para <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2063	2197	
==>urn;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2041	2175	
==>urn;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40399	40502	
==>=> 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access them v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	180	276	
==>for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal option <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	180	276	
==>for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal option <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	180	276	
==>for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal option <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11914	12018	
==>gine can continue working.

  Upon exec, the subref should return match information.  Match
  information <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10349	10446	
==>e specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you hav <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10407	10504	
==>e specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8959	9064	
==>is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8959	9064	
==>is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8959	9064	
==>is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32442	32590	
==>ck'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33097	33245	
==>ck'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5277	5383	
==>od_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5277	5383	
==>od_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5277	5383	
==>od_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3643	3762	
==>lass->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3643	3762	
==>lass->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3643	3762	
==>lass->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24106	24221	
==>Class->send('add_method' => (
    # method label
        symbol->new('superclasses'),
    # method body
        meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1169	1273	
==>ompile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1169	1273	
==>ompile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	630	732	
==>::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	630	732	
==>::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	630	732	
==>::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11810	11965	
==>ns"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SE <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15287	15442	
==>ns"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SE <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14622	14777	
==>ns"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1931	2034	
==>a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1931	2034	
==>a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1931	2034	
==>a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25713	25817	
==>le message; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25713	25817	
==>le message; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10237	10338	
==>onFlags>
}
rule RegularExpressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpres <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23394	23521	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19815	19942	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8882	8968	
==>$iFoo->another_singleton_test_on_object } '... instance calling metaclass singleton met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28549	28677	
==>ibute names and each of its values
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33101	33229	
==>ibute names and each of its values
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32229	32357	
==>ibute names and each of its values
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mappin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5626	5753	
==>y $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5626	5753	
==>y $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5626	5753	
==>y $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2091	2215	
==>ox.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2091	2215	
==>ox.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2091	2215	
==>ox.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2968	3112	
==>or $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2968	3112	
==>or $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2968	3112	
==>or $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	592	705	
==>(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	592	705	
==>(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	592	705	
==>(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7839	7939	
==>ow did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to red <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7839	7939	
==>ow did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to red <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	138	242	
==>the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	138	242	
==>the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	138	242	
==>the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4588	4711	
==>path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2329	2451	
==>path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7085	7285	
==>'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | <'!='>
    | <'==='>
    | <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16232	16327	
==>e_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20658	20753	
==>e_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	84	184	
==>sMulti;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
enum SubType « <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	164	266	
==>n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	164	266	
==>n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	164	266	
==>n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3558	3665	
==>ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3558	3665	
==>ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3558	3665	
==>ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@ar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1770	1935	
==>nf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1770	1935	
==>nf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5158	5267	
==>all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1131	1242	
==>>unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1131	1242	
==>>unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1131	1242	
==>>unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => su <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8764	8875	
==>r ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_] <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	237	346	
==>r ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	493	597	
==>lways use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $EN <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5198	5322	
==>reate ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 (( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6960	7084	
==>reate ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 (( <==
3	/Users/nnunley/pugs/util/importgraph.pl	789	907	
==>s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^import \s+ (qualified \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29813	29915	
==>ng the new attributes having the same names as old attributes
that were wrapped, and it supports having <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34365	34467	
==>ng the new attributes having the same names as old attributes
that were wrapped, and it supports having <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33529	33631	
==>ng the new attributes having the same names as old attributes
that were wrapped, and it supports having <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2519	2660	
==>on (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2519	2660	
==>on (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2519	2660	
==>on (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_i <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2115	2233	
==>faults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a dir <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2115	2233	
==>faults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3155	3254	
==>aramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3155	3254	
==>aramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3155	3254	
==>aramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3480	3628	
==>[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3480	3628	
==>[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3480	3628	
==>[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5433	5548	
==>:expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5433	5548	
==>:expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5433	5548	
==>:expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2310	2409	
==>s are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2310	2409	
==>s are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2310	2409	
==>s are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2427	2519	
==>ck(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2427	2519	
==>ck(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2427	2519	
==>ck(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2547	2697	
==>cklist    = $inst->files_list( $self->package );
        
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20195	20306	
==>object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16616	16727	
==>object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22067	22176	
==>,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22067	22176	
==>,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22067	22176	
==>,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2531	2735	
==>bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2837	3028	
==>bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2837	3028	
==>bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub opt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20056	20253	
==>->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::N <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40516	40713	
==>->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::N <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	152	251	
==>Module::Install::Base};
}

# determine if the user needs nmake, and download it if needed
sub check_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1370	1497	
==>ority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1370	1497	
==>ority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1370	1497	
==>ority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	701	793	
==>es([ $::Class ]);

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	701	793	
==>es([ $::Class ]);

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	701	793	
==>es([ $::Class ]);

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	260	363	
==>f->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	260	363	
==>f->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	260	363	
==>f->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50403	50540	
==>ity'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('identifier'),
    # me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19819	19916	
==>he
"Basic Authentication Scheme".  In array context it will return two
values; the user name and t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19819	19916	
==>he
"Basic Authentication Scheme".  In array context it will return two
values; the user name and t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16539	16648	
==>:Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16539	16648	
==>:Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16539	16648	
==>:Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1734	1871	
==>anchor',
      type => $type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $self;
  }
}


{
  # . \C
  package Regexp: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	171	267	
==>ing = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*V <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	171	267	
==>ing = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17865	18057	
==>for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17865	18057	
==>for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17865	18057	
==>for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14253	14388	
==>!= 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14247	14382	
==>!= 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1763	1901	
==>sh( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $* <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1763	1901	
==>sh( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12729	12881	
==>t->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12729	12881	
==>t->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12729	12881	
==>t->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3665	3871	
==>,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:aln <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3519	3718	
==>,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:aln <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12768	12887	
==>eturn $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12768	12887	
==>eturn $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	482	601	
==>mc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pmc; die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2263	2359	
==>ooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2263	2359	
==>ooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2263	2359	
==>ooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3404	3516	
==>->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3404	3516	
==>->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3404	3516	
==>->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37730	37845	
==>RSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37730	37845	
==>RSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37730	37845	
==>RSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2746	2867	
==>fined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2746	2867	
==>fined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2746	2867	
==>fined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6132	6234	
==>.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6132	6234	
==>.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2637	2741	
==>:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var jun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2637	2741	
==>:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var jun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2637	2741	
==>:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var jun <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3059	3170	
==>_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3059	3170	
==>_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	315	420	
==>iltered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	315	420	
==>iltered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	418	517	
==>n Perl and C";
	shift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed to c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25618	25758	
==>'@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $self:) returns list {
    @:subclasses <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1898	2031	
==>%param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1898	2031	
==>%param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14945	15038	
==>implement the Test::More function is_deeply.
The plan currently is to implement this as a mutu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15003	15096	
==>implement the Test::More function is_deeply.
The plan currently is to implement this as a mutu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4042	4175	
==>de_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRaw <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4042	4175	
==>de_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRaw <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	892	1025	
==>de_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRaw <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5365	5474	
==>, $rev, $mid, $wc);
CheckHead($head);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGol <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	29	126	
==>ldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content { <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	29	126	
==>ldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1424	1519	
==>:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1424	1519	
==>:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1424	1519	
==>:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1850	1964	
==>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { In <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1850	1964	
==>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13143	13283	
==>..
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13143	13283	
==>..
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13143	13283	
==>..
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12375	12471	
==>"span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class imp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12375	12471	
==>"span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class imp <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1098	1211	
==>s (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. using simpli <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1639	1731	
==>------------------
## informational methods

method is_root returns Bool { $!parent.defined ? <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1639	1731	
==>------------------
## informational methods

method is_root returns Bool { $!parent.defined ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	53	154	
==>or the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	53	154	
==>or the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	53	154	
==>or the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17260	17411	
==>n'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') chara <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17260	17411	
==>n'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') chara <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6503	6612	
==>k->last_error), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg, $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11595	11727	
==>Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object repre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11595	11727	
==>Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object repre <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3721	3823	
==>[0]  <=> $a->{timestamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37649	37758	
==>zed value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37649	37758	
==>zed value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37649	37758	
==>zed value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16142	16262	
==>str $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12702	12793	
==><$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12702	12793	
==><$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1664	1764	
==>l6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1664	1764	
==>l6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1664	1764	
==>l6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14606	14782	
==>} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14606	14782	
==>} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14606	14782	
==>} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2139	2309	
==>to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2139	2309	
==>to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2139	2309	
==>to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5340	5463	
==>PI:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5340	5463	
==>PI:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5340	5463	
==>PI:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would ta <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	592	694	
==>plice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::redu <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1319	1414	
==>d1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free sof <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1319	1414	
==>d1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free sof <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7195	7352	
==>ify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7195	7352	
==>ify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7195	7352	
==>ify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/util/addauthors.pl	532	660	
==>e = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$au <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13621	13719	
==>es and you
find there is some language feature missing, or core bug that needs to
be sorted out bef <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13679	13777	
==>es and you
find there is some language feature missing, or core bug that needs to
be sorted out bef <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3525	3667	
==>hc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9462	9560	
==>lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `in <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9462	9560	
==>lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	882	989	
==>q 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	882	989	
==>q 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	882	989	
==>q 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24416	24538	
==>h_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24416	24538	
==>h_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24416	24538	
==>h_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1193	1367	
==>$quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitby <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1193	1367	
==>$quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitby <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18659	18756	
==>$end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replace) }
 multi subst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10609	10757	
==>E(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10609	10757	
==>E(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10609	10757	
==>E(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	607	710	
==>08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	607	710	
==>08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	607	710	
==>08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7994	8114	
==>heck_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7994	8114	
==>heck_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7994	8114	
==>heck_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18930	19053	
==>then->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20288	20411	
==>then->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2422	2534	
==>->to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->isa('nil') && $param->to_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3882	3969	
==>--------------------------------------------------------
## removing children

method re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3882	3969	
==>--------------------------------------------------------
## removing children

method re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10359	10499	
==>t 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2386	2508	
==>t 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2386	2508	
==>t 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31081	31222	
==>rator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32100	32200	
==>em omit

Whether this object is omitted from the actual tree (like a CLOSE).

=item on

The flags spe <==
3	/Users/nnunley/pugs/util/grokprims.pl	2178	2267	
==>d>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	802	920	
==>t here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3990	4107	
==>s) = @_;

    # ignore the prefix on extension modules built from top level.
    my $base_path = Cwd::abs_path($FindBi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	761	873	
==>t here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1600	1708	
==>ams;

    # the body is a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1536	1632	
==>turn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1536	1632	
==>turn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3360	3471	
==>ef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3360	3471	
==>ef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3360	3471	
==>ef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a m <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	430	529	
==>Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup(" <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	430	529	
==>Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup(" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37878	37976	
==>a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace them with methods:

  sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36735	36831	
==>hich case the result does too.  Another trivial case is if any
source relation is the identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41284	41380	
==>hich case the result does too.  Another trivial case is if any
source relation is the identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40907	41003	
==>hich case the result does too.  Another trivial case is if any
source relation is the identity-on <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	643	893	
==>kage Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	643	893	
==>kage Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15878	15966	
==>r(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1715	1812	
==>_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worke <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1715	1812	
==>_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worke <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14307	14411	
==>rom"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "PG <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1016	1119	
==>ondition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1249	1352	
==>ondition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1022	1139	
==>nt
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Eum <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1022	1139	
==>nt
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Eum <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	946	1086	
==>ss = shift;
        my $value = shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub f <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3617	3741	
==>} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self->get_smoker;
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	358	477	
==>rn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	358	477	
==>rn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3450	3542	
==>query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3450	3542	
==>query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
t <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1814	1925	
==>}
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as ( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	991	1100	
==>}
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as ( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1464	1573	
==>}
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17804	17913	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17804	17913	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17804	17913	
==>ce_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=hea <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10933	11102	
==>p>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using criteria C<$by> or C<@by> for
compari <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	126	262	
==><@a;       # $x zu allen @a addieren
                     # und als @x speichern
#=andere Hyper-Operatoren
$a = @b + @c;
@a = @b + @c;
@a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2399	2493	
==>udes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.su <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2399	2493	
==>udes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7179	7315	
==>tance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7179	7315	
==>tance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7179	7315	
==>tance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19596	19724	
==>OTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16017	16145	
==>OTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20887	20985	
==>(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the right thing
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10757	10878	
==>]{data}[0] }) {
        last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tr <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6158	6255	
==>e returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6158	6255	
==>e returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returne <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7676	7781	
==>insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7676	7781	
==>insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23958	24049	
==>alternate solutions like "gettext" suggests that they
use a compile-time macro-based approac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23958	24049	
==>alternate solutions like "gettext" suggests that they
use a compile-time macro-based approac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2794	2894	
==>d_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2794	2894	
==>d_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2794	2894	
==>d_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22353	22462	
==>to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." warnings when used
in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21425	21519	
==>öt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserv <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21425	21519	
==>öt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	133	268	
==>nction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	133	268	
==>nction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	133	268	
==>nction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9722	9824	
==>_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9722	9824	
==>_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9722	9824	
==>_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2816	2937	
==>o? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2816	2937	
==>o? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2816	2937	
==>o? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16374	16499	
==>_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16374	16499	
==>_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	178	284	
==>}
my $src_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7971	8068	
==>wn the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7971	8068	
==>wn the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately. <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1897	2010	
==>$!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1897	2010	
==>$!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	705	800	
==>ode->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15658	15753	
==>or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15658	15753	
==>or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12540	12712	
==>ethods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anyw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12540	12712	
==>ethods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anyw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12540	12712	
==>ethods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anyw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15639	15735	
==>params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15639	15735	
==>params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15639	15735	
==>params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_me <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3008	3124	
==>rim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8343	8447	
==>ts>?
}
rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15983	16074	
==>Ex.: C</\s+$/> becomes
C</^\n?\s+/>, which perhaps gets optimized to C</^\s+/>.  The difficu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	887	994	
==>arch

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	887	994	
==>arch

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10999	11116	
==>g representation is built by calling the visual() method of
each node in the tree.

=head2 Using the Regex

You can us <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	194	302	
==>elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	194	302	
==>elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16392	16550	
==>_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20818	20976	
==>_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	891	1028	
==>q "~";
            die "sorry, only scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4114	4253	
==>rams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4114	4253	
==>rams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4114	4253	
==>rams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8476	8577	
==>pare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8476	8577	
==>pare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	277	393	
==>, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	277	393	
==>, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	277	393	
==>, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42322	42519	
==>w('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8495	8595	
==>u are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, y <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8495	8595	
==>u are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, y <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2115	2230	
==>type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11515	11615	
==>lination is to wait until objects are done for this, but maybe I will
figure out a good way to do thi <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11515	11615	
==>lination is to wait until objects are done for this, but maybe I will
figure out a good way to do thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8402	8492	
==>mmar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2227	2317	
==>mmar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @stateme <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10420	10508	
==>$3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"": <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11155	11243	
==>$3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"": <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32612	32704	
==>rt Message objects on demand into user-readable
message strings, using data from external Tem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32612	32704	
==>rt Message objects on demand into user-readable
message strings, using data from external Tem <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	103	191	
==>pm"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Module::Insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13060	13183	
==>') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13060	13183	
==>') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13060	13183	
==>') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3085	3198	
==>( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3073	3186	
==>( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7941	8107	
==>n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7941	8107	
==>n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7941	8107	
==>n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1135	1234	
==>Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1135	1234	
==>Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1135	1234	
==>Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed, re- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19343	19436	
==>To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19343	19436	
==>To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16082	16202	
==>ute mob, "PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_messa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7573	7677	
==>nticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7573	7677	
==>nticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method pr <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8358	8472	
==>marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8358	8472	
==>marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2631	2756	
==>\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2631	2756	
==>\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2631	2756	
==>\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24014	24160	
==>',
      type => 'ifthen',
      data => [],
      down => 1,
      ifthen => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	615	739	
==>80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You a <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	615	739	
==>80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7348	7493	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7348	7493	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7348	7493	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	982	1077	
==>ore details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> di <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	982	1077	
==>ore details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27649	27741	
==>ect__>, the global object base class.  All
user-defined F<MyRx::*> objects inherit from F<MyR <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4238	4340	
==>ilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4238	4340	
==>ilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6435	6537	
==>ilder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2394	2494	
==>nstance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2394	2494	
==>nstance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2394	2494	
==>nstance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => : <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1131	1300	
==>r {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +| <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1131	1300	
==>r {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +| <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	165	260	
==>verlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m;
say '(message "did <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14083	14192	
==>GS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14083	14192	
==>GS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14083	14192	
==>GS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8392	8556	
==>tr( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4752	4916	
==>tr( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5601	5765	
==>tr( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38165	38272	
==>ting any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42714	42821	
==>ting any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42364	42471	
==>ting any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3511	3646	
==>r => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precedence => 'equal',
        oth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28739	28827	
==>of: alnum, anchor,
anyof, anyof_char, anyof_class, anyof_range, assertion, branch, close, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17302	17474	
==>D ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17302	17474	
==>D ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17302	17474	
==>D ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23414	23520	
==>ined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23414	23520	
==>ined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23414	23520	
==>ined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30534	30630	
==>stinct "user
language" (or "user type") for each distinct Message; each file can be
shared by mul <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	304	400	
==>b");
my $wikiwords = rx:P5/\b([A-Z]\w+[A-Z]\w+)/;
my $topic     = join("\n", param('topic')) || ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30534	30630	
==>stinct "user
language" (or "user type") for each distinct Message; each file can be
shared by mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1760	1865	
==>a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1760	1865	
==>a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1760	1865	
==>a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	498	607	
==>q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	498	607	
==>q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15857	15953	
==>mes a program will raise a condition or error that,
while resembling a message that would be show <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15857	15953	
==>mes a program will raise a condition or error that,
while resembling a message that would be show <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14599	14693	
==>_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_size=$init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1857	1965	
==>q]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1857	1965	
==>q]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1857	1965	
==>q]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1709	1835	
==>CE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1709	1835	
==>CE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1709	1835	
==>CE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	348	464	
==>or my $line (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8141	8245	
==>r( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8141	8245	
==>r( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown wh <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	552	676	
==>er-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " o <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	552	676	
==>er-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2088	2181	
==>ype
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of Bool (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12239	12360	
==>t".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12239	12360	
==>t".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12239	12360	
==>t".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1159	1256	
==>use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::tim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1159	1256	
==>use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::tim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1159	1256	
==>use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::tim <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10365	10550	
==>r::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	907	1076	
==>r::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	907	1076	
==>r::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3536	3672	
==>ve the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3536	3672	
==>ve the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3536	3672	
==>ve the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13282	13402	
==>wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13282	13402	
==>wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13282	13402	
==>wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23099	23195	
==>F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmSomewhere( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7520	7615	
==>ment ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('fo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7520	7615	
==>ment ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1073	1195	
==>d);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1073	1195	
==>d);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1073	1195	
==>d);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6374	6474	
==>@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6374	6474	
==>@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6374	6474	
==>@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	760	864	
==>: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	760	864	
==>: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	760	864	
==>: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	429	521	
==>@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'vers <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	429	521	
==>@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'vers <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	429	521	
==>@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4855	4969	
==>. "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "Is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4855	4969	
==>. "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "Is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4855	4969	
==>. "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "Is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9482	9613	
==>pec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exis <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9482	9613	
==>pec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4907	5020	
==>hift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4907	5020	
==>hift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4907	5020	
==>hift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6777	6877	
==>($pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX - Exp?
}

NOD <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1310	1408	
==>s copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) } <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1310	1408	
==>s copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11692	11847	
==>lue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11692	11847	
==>lue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11692	11847	
==>lue::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1760	1872	
==>_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1760	1872	
==>_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $d <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6488	6584	
==>nel_local\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $kernel_local a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3514	3626	
==>$universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3514	3626	
==>$universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10905	11008	
==>to C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3916	4036	
==>d_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3916	4036	
==>d_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4506	4626	
==>d_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5058	5208	
==>hes[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5058	5208	
==>hes[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9227	9342	
==>md =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9227	9342	
==>md =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented" <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	133	228	
==>';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16390	16503	
==>+ $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16390	16503	
==>+ $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16390	16503	
==>+ $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4743	4877	
==>self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compositio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4743	4877	
==>self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compositio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4743	4877	
==>self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compositio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4977	5090	
==>ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Dat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4977	5090	
==>ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Dat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5567	5680	
==>ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8190	8390	
==>n ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8190	8390	
==>n ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8190	8390	
==>n ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15106	15222	
==>=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15106	15222	
==>=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15106	15222	
==>=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1325	1426	
==>&{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_us <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1325	1426	
==>&{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	162	269	
==>$self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	162	269	
==>$self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	162	269	
==>$self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4302	4407	
==>.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=perl6 : <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4302	4407	
==>.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=perl6 : <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4873	4969	
==>return Blondie::TypeSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_eq <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17357	17485	
==>"";
    while ($fi < $flen) {
        # optional non-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6167	6260	
==>setta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6167	6260	
==>setta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2879	2980	
==>('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2879	2980	
==>('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2879	2980	
==>('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5756	5880	
==>$jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5756	5880	
==>$jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5756	5880	
==>$jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30461	30560	
==>ent C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35012	35111	
==>ent C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34194	34293	
==>ent C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11030	11178	
==>eport returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1508	1648	
==>eport returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1508	1648	
==>eport returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4263	4359	
==>e, passing on the C<$description> and
C<$reason> parameters and a true value for the passed param <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4263	4359	
==>e, passing on the C<$description> and
C<$reason> parameters and a true value for the passed param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6460	6556	
==>e, passing on the C<$description> and
C<$reason> parameters and a true value for the passed param <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	32	141	
==>ock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	32	141	
==>ock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9402	9511	
==>'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9402	9511	
==>'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9402	9511	
==>'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWrit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10388	10509	
==>debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10388	10509	
==>debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6475	6579	
==>chr(hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$h] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1375	1570	
==>l( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1375	1570	
==>l( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1375	1570	
==>l( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5480	5724	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5480	5724	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5480	5724	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $k <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	253	453	
==>hen 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.sh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	253	453	
==>hen 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.sh <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	931	1037	
==>e, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	931	1037	
==>e, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18696	18808	
==>dler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15117	15229	
==>dler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30455	30567	
==>dler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37413	37507	
==>C<load_template_module( $module_name! )>

This method takes the name of a Perl package in its p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37413	37507	
==>C<load_template_module( $module_name! )>

This method takes the name of a Perl package in its p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7157	7279	
==>a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.dens <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7157	7279	
==>a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.dens <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1177	1268	
==>r not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what wil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3079	3177	
==>$what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3079	3177	
==>$what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3079	3177	
==>$what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16972	17066	
==>t additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16972	17066	
==>t additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22742	22854	
==>d($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB ri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22742	22854	
==>d($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB ri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22742	22854	
==>d($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB ri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	983	1105	
==>rue;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	983	1105	
==>rue;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	983	1105	
==>rue;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11321	11497	
==>n if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('dom <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11321	11497	
==>n if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('dom <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1157	1277	
==>push( @newtoks.shift );
        @tokens.push( $maketoken.(@newtoks.shift, $label) )
                if +@newtoks;
      } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17822	18003	
==>ther!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21299	21480	
==>ther!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20886	21067	
==>ther!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19600	19833	
==>w();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19600	19833	
==>w();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19600	19833	
==>w();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2821	2944	
==>fined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2961	3084	
==>fined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3836	3955	
==><ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { require_bareword => $() ,} 
	}
RU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5244	5349	
==>_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), which is also the role(Ro <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15600	15693	
==>es,
which contain the mapping from all characters to the corresponding entities
(and vice vers <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15600	15693	
==>es,
which contain the mapping from all characters to the corresponding entities
(and vice vers <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	905	997	
==>Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	905	997	
==>Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3878	3986	
==>=> '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ----------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3878	3986	
==>=> '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ----------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3878	3986	
==>=> '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ----------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12382	12507	
==>e );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12382	12507	
==>e );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12382	12507	
==>e );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1806	1919	
==>:MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1806	1919	
==>:MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1806	1919	
==>:MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6804	6931	
==>_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6804	6931	
==>_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6804	6931	
==>_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6953	7070	
==>};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6953	7070	
==>};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6953	7070	
==>};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    w <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8379	8514	
==>x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kw <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8379	8514	
==>x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kw <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14561	14666	
==>ade class supplying localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian date <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5795	5898	
==>--- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5795	5898	
==>--- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2535	2651	
==>input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2535	2651	
==>input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2535	2651	
==>input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading Jav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6345	6438	
==>sing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6345	6438	
==>sing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6345	6438	
==>sing the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5337	5465	
==>doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5337	5465	
==>doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5337	5465	
==>doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ], <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16824	16966	
==>or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3235	3347	
==>=
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curus <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3235	3347	
==>=
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3418	3537	
==>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3418	3537	
==>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3418	3537	
==>all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4267	4391	
==>erl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4267	4391	
==>erl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4267	4391	
==>erl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6526	6656	
==>from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licens <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6583	6713	
==>from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licens <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3522	3616	
==>tchObjPos) = Parser::Rule::Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8397	8510	
==>warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8397	8510	
==>warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8397	8510	
==>warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5373	5500	
==>ass->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' => {
        'resolve' => $_resolve,
        'a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2855	2976	
==>atches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2760	2879	
==>atches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[ <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	250	414	
==>}
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { u <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	250	414	
==>}
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { u <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1095	1194	
==>lean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("version") or $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14007	14126	
==>l => $neg, \$how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19066	19158	
==>ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> wi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19066	19158	
==>ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1078	1173	
==>. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1078	1173	
==>. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1078	1173	
==>. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2754	2852	
==>dule implements the semantics for perl6-style variable binding,
as well as subroutine call argument <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2754	2852	
==>dule implements the semantics for perl6-style variable binding,
as well as subroutine call argument <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3101	3199	
==>dule implements the semantics for perl6-style variable binding,
as well as subroutine call argument <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1122	1275	
==>st_left:  exp                 { $out= [ $_[1] ] }
        |   list_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1185	1283	
==>y emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1185	1283	
==>y emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1185	1283	
==>y emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2223	2329	
==>finite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2223	2329	
==>finite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3572	3688	
==>"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3572	3688	
==>"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3572	3688	
==>"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23646	23782	
==>y => 'assertion',
      type => 'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3923	4036	
==>rname, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3923	4036	
==>rname, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4514	4639	
==>00003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file2 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2429	2531	
==>code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2429	2531	
==>code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1217	1332	
==>method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1217	1332	
==>method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1217	1332	
==>method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5329	5459	
==>$mess, $i);
        $mess = "$e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mes <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	341	470	
==>ing   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	341	470	
==>ing   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9664	9885	
==>('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3532	3629	
==>delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3532	3629	
==>delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item <==
3	/Users/nnunley/pugs/util/combine_tests.pl	727	883	
==>to %sum
    #
    my %sum;
    my @revisions;
    for my $data (@_) {
        my $revision = $data->{revision};
        push @revisions, $revision;
        f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1368	1483	
==>headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1368	1483	
==>headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	756	868	
==>attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	756	868	
==>attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	756	868	
==>attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($fu <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2629	2744	
==>'a b'):i:4x 
# must be terminated by () [] :: as in :z()not :z[]not :z::not
rule metasyntactic_token { \:\w\S+ }

ru <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7495	7598	
==>axage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7495	7598	
==>axage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39437	39544	
==>( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39437	39544	
==>( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39437	39544	
==>( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11198	11313	
==>ush(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11198	11313	
==>ush(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11198	11313	
==>ush(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindB <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2412	2533	
==>0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@strin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2412	2533	
==>0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@strin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1020	1123	
==>URLY => --$ENUM, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null stri <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10587	10686	
==>ool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Boo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10645	10744	
==>ool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Boo <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	190	285	
==>articleID=175801189
# says, This may be considered as the superset of round_half_up and
# round_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11217	11341	
==>1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11217	11341	
==>1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11217	11341	
==>1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iter <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1549	1691	
==>> 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error), return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21552	21668	
==>< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17973	18089	
==>< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15305	15401	
==>s always convert their value to system
time (seconds since Jan 1, 1970) and they also expect this <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15305	15401	
==>s always convert their value to system
time (seconds since Jan 1, 1970) and they also expect this <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3323	3412	
==>turn undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6137	6227	
==>~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6137	6227	
==>~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25296	25376	
==>mat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1008	1128	
==>my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1008	1128	
==>my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1067	1162	
==>$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1067	1162	
==>$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1067	1162	
==>$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($t <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2089	2212	
==>s },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burs <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2089	2212	
==>s },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burs <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1652	1767	
==>n} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realclean->{FILES}, @_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4489	4586	
==>d1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4489	4586	
==>d1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $cont <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27897	27992	
==>n't define
a base class for your module's objects, or the object you create isn't
a modification <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3975	4075	
==>ontainer::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3975	4075	
==>ontainer::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3975	4075	
==>ontainer::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2893	2996	
==>sm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" aft <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2893	2996	
==>sm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" aft <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2893	2996	
==>sm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" aft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3856	3957	
==>NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3856	3957	
==>NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3856	3957	
==>NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  .. <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17645	17756	
==>presents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17645	17756	
==>presents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	1	105	
==>ackage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	1	105	
==>ackage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_pri <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2535	2640	
==>dd revisions which were added, not the target though
    #
    pop @revisions;
    $target->{more_revision <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	647	773	
==>se Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	647	773	
==>se Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Pa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9879	9978	
==>t

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::V <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9879	9978	
==>t

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::V <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29585	29679	
==>es to each others' names.

=item C<project (Set of Str $attrs!) returns Relation::Example>

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3856	3960	
==>hat the next test should fail.  C<$description> is the optional
description of the test.  This is the eas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3856	3960	
==>hat the next test should fail.  C<$description> is the optional
description of the test.  This is the eas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3936	4040	
==>hat the next test should fail.  C<$description> is the optional
description of the test.  This is the eas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	997	1095	
==>opes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	997	1095	
==>opes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	997	1095	
==>opes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5932	6123	
==>eading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9409	9600	
==>eading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8465	8656	
==>eading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2075	2200	
==>my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2135	2260	
==>my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1726	1821	
==>* L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes

=item * L<Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7827	8007	
==>else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7827	8007	
==>else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7827	8007	
==>else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	753	888	
==>HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $cod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	753	888	
==>HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $cod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5671	5776	
==>ub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1795	1881	
==>->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3171	3257	
==>->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1519	1630	
==>st, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This shoul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1519	1630	
==>st, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This shoul <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11442	11552	
==>r::Util::blessed($node));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->generic_red <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5707	5801	
==>t>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~ada <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5707	5801	
==>t>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~ada <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6564	6662	
==>I SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6564	6662	
==>I SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6564	6662	
==>I SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15057	15183	
==>alue::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15057	15183	
==>alue::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15057	15183	
==>alue::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2878	2980	
==>my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3423	3525	
==>my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7823	7925	
==>$span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7823	7925	
==>$span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1303	1393	
==>ttr_name_exists of Bool (Relation::AttrName $attr_name) {
    return %!attrs.exists($attr_n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	749	855	
==>os) to make writing this kind of application easy(er).

# Bootstrap to a new, simpler, ast.  Regexp::Parser <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1521	1613	
==>o_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1521	1613	
==>o_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1253	1382	
==>| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1253	1382	
==>| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1253	1382	
==>| 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14622	14760	
==>ined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14622	14760	
==>ined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14622	14760	
==>ined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	128	226	
==>e->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	128	226	
==>e->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"] <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	890	987	
==>self->prompt($prompt, ($default || 'n')) =~ /^[Yy]/;
    $self->install_script($script_file);
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3081	3214	
==>> 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3081	3214	
==>> 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3081	3214	
==>> 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	102	214	
==>EC]] \n";
}
my $str = shift;
if($str eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12951	13042	
==>s Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12951	13042	
==>s Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14324	14485	
==>eturn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14324	14485	
==>eturn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14324	14485	
==>eturn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2617	2719	
==>ation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2617	2719	
==>ation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2617	2719	
==>ation

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26703	26811	
==>ely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31255	31363	
==>ely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30284	30392	
==>ely.  This method will fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1909	2015	
==>le: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fin <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9836	9942	
==>each down into quant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1909	2015	
==>le: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4068	4214	
==>ext RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4532	4678	
==>ext RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5424	5515	
==>$iFoo->name } '... instance calling metaclass method fails';

is($iFoo->foo, 'Foo->foo', '.. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9504	9639	
==>o: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5845	5980	
==>o: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6694	6829	
==>o: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	897	1007	
==>e instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	897	1007	
==>e instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	897	1007	
==>e instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1188	1315	
==>nc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1188	1315	
==>nc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1188	1315	
==>nc => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1958	2089	
==>\\\/g;
    $q =~ s/'/\\'/g;
    return "'$q'";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . display ($x) . '"' : 'u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3428	3536	
==>---- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3645	3753	
==>---- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8365	8478	
==>k to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8365	8478	
==>k to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3466	3573	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3466	3573	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3466	3573	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::s <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	420	539	
==>005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export {
    my Num $guess  = $targ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6721	6829	
==>32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7093	7201	
==>32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7212	7335	
==>od, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7212	7335	
==>od, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7212	7335	
==>od, maybe there should be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4347	4451	
==>int $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4347	4451	
==>int $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4347	4451	
==>int $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub com <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1136	1268	
==>e => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1136	1268	
==>e => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1537	1631	
==>"Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce($node);
			return $self->const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5528	5646	
==>ant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5528	5646	
==>ant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5528	5646	
==>ant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4300	4421	
==>cher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4300	4421	
==>cher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4300	4421	
==>cher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_nam <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	586	697	
==>{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf{leaves}) {
    pri <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4743	4844	
==>tprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4743	4844	
==>tprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	588	689	
==>\@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	588	689	
==>\@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compa <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2349	2447	
==>rns the C<%results> of the test.
See L<Results>.

C<@test_output> should be the raw output from the <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14229	14373	
==>trs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17706	17850	
==>trs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17122	17266	
==>trs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20523	20634	
==>appropriate class name, and then invoking methods on those objects.  All of
their class/object attributes are pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25075	25186	
==>appropriate class name, and then invoking methods on those objects.  All of
their class/object attributes are pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23645	23756	
==>appropriate class name, and then invoking methods on those objects.  All of
their class/object attributes are pr <==
3	/Users/nnunley/pugs/util/combine_tests.pl	818	924	
==>= $data->{revision};
        push @revisions, $revision;
        for my $file (@{ $data->{meat}{test_files} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4243	4332	
==>e
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" pac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4243	4332	
==>e
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	287	394	
==>p();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	287	394	
==>p();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	287	394	
==>p();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8278	8381	
==>name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8278	8381	
==>name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8278	8381	
==>name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11459	11607	
==>tr $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1907	2043	
==>tr $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1907	2043	
==>tr $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11609	11748	
==>eck->last_error ), return;

    my $alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	730	826	
==>eturns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", neg <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	730	826	
==>eturns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", neg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1272	1380	
==>_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1272	1380	
==>_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1272	1380	
==>_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3198	3283	
==>$code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3198	3283	
==>$code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3989	4107	
==>- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3989	4107	
==>- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3989	4107	
==>- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6171	6310	
==>@array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4673	4812	
==>@array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3134	3231	
==>ion of the compiled re op tree the native
compiler creates, but which we obviously don't have).

W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16022	16156	
==>{ 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16022	16156	
==>{ 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16022	16156	
==>{ 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1908	2004	
==>ass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1908	2004	
==>ass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1908	2004	
==>ass; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	902	1017	
==>fg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	902	1017	
==>fg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	902	1017	
==>fg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1699	1819	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1699	1819	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1699	1819	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3126	3262	
==>list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart = <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3126	3262	
==>list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3872	3969	
==>mber of tests expected to run.

=item B<Fail>

Number which failed, either from "not ok" or becaus <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3959	4055	
==>f this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3959	4055	
==>f this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6156	6252	
==>f this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	466	590	
==>struct->{package};
    
    ### create a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### cop <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3780	3876	
==>ing )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow" <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3780	3876	
==>ing )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20844	21104	
==>$elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20844	21104	
==>$elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20844	21104	
==>$elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6424	6560	
==>p = Pugs::Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            c <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2064	2161	
==>t represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a roo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2064	2161	
==>t represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1477	1633	
==>> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1477	1633	
==>> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1477	1633	
==>> sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6687	6785	
==>self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6687	6785	
==>self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6687	6785	
==>self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_metho <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5948	6067	
==>e($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	776	876	
==>currently defined as subs, which we can get away with since
   this is currently simply a code genera <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	776	876	
==>currently defined as subs, which we can get away with since
   this is currently simply a code genera <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1126	1218	
==>estion/answer format, to explain the design and implementation of Pugs.

=head2 Quick referen <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1126	1218	
==>estion/answer format, to explain the design and implementation of Pugs.

=head2 Quick referen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14615	14722	
==>S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct POSI <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9309	9406	
==>entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
} <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9309	9406	
==>entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22268	22357	
==>bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22268	22357	
==>bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3568	3802	
==>>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3568	3802	
==>>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3568	3802	
==>>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3952	4062	
==>self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3952	4062	
==>self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3952	4062	
==>self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34471	34592	
==>ft;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34471	34592	
==>ft;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34471	34592	
==>ft;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	179	280	
==>Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	179	280	
==>Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	179	280	
==>Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2 <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1402	1502	
==>... };
   subset complex'~$n~' of ValueType where { $^n ~~ Num and ...XXXfill in... };'
}
Clutter::nu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18610	18703	
==>ily the names you specified in the constructor. For example,
this module automatically tries t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18610	18703	
==>ily the names you specified in the constructor. For example,
this module automatically tries t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14196	14399	
==>class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14196	14399	
==>class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14196	14399	
==>class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #} <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7641	7752	
==>{
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7641	7752	
==>{
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1111	1207	
==>($code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1544	1668	
==>eturns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1544	1668	
==>eturns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10386	10500	
==>stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1318	1423	
==>d {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1318	1423	
==>d {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1318	1423	
==>d {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3588	3693	
==>e{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3588	3693	
==>e{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3588	3693	
==>e{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13776	13886	
==>>add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13776	13886	
==>>add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13776	13886	
==>>add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5799	5897	
==>my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5799	5897	
==>my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5799	5897	
==>my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_per <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2546	2679	
==>:false if $attr && $attr.ReadOnly;
    delete $O.property_value{$P};
    delete $O.property_attribute{$P};
    return JSX::true;
}
# 8 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1965	2075	
==>pan.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1965	2075	
==>pan.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_star <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2430	2548	
==>line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2430	2548	
==>line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1531	1623	
==>->isa("Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce($node);
			return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4732	4918	
==>$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4732	4918	
==>$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4732	4918	
==>$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #car <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2337	2460	
==>Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2337	2460	
==>Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2337	2460	
==>Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6. <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4314	4442	
==>ng.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivecd.pl automatically generates a g <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17461	17566	
==>self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  retur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17461	17566	
==>self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  retur <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1834	1936	
==>art()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1834	1936	
==>art()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13341	13468	
==>st      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13341	13468	
==>st      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($ev <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24996	25090	
==>g(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29548	29642	
==>g(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28460	28554	
==>g(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argumen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	2	100	
==>b PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	2	100	
==>b PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	2	100	
==>b PIL2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	258	402	
==>ethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1346	1442	
==>esentations of @header_order.  This is used
# for sorting and case matching.
our %header_order;
o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1346	1442	
==>esentations of @header_order.  This is used
# for sorting and case matching.
our %header_order;
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4284	4414	
==>@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4284	4414	
==>@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4284	4414	
==>@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1152	1245	
==>=~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1152	1245	
==>=~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1152	1245	
==>=~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASS <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	461	637	
==>),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10865	10960	
==>at in this instance, the information about how many members
were actually new is discarded.

=he <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10865	10960	
==>at in this instance, the information about how many members
were actually new is discarded.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	107	228	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	107	228	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	107	228	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1218	1316	
==>ackup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1218	1316	
==>ackup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1218	1316	
==>ackup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @V <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9495	9579	
==>p5_charset_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5_simple_escape_seq <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16050	16141	
==>rman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16108	16199	
==>rman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4806	4949	
==>d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4818	4961	
==>d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HA <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3078	3194	
==>die "open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the inlined modules. <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4966	5118	
==>on ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($k <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4825	4977	
==>on ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($k <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4924	5048	
==>r Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1606	1719	
==>d be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1606	1719	
==>d be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1484	1611	
==>d generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1484	1611	
==>d generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1484	1611	
==>d generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3521	3629	
==>PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3521	3629	
==>PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3521	3629	
==>PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16484	16617	
==>heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19961	20094	
==>heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19521	19654	
==>heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7288	7453	
==>rammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7481	7646	
==>rammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::const <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	708	814	
==>e::Install loads
# }

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1846	1965	
==>$PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1846	1965	
==>$PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1846	1965	
==>$PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7117	7208	
==>var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7117	7208	
==>var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7117	7208	
==>var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1220	1314	
==>sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1220	1314	
==>sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1220	1314	
==>sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4190	4302	
==>($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4190	4302	
==>($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4780	4892	
==>($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	907	1022	
==>match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	907	1022	
==>match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	600	712	
==>_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_bit { shift }

# conversion to other nat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4055	4172	
==>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4055	4172	
==>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4055	4172	
==>{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_me <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5175	5293	
==>o it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20342	20439	
==>hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20342	20439	
==>hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1256	1366	
==>postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1256	1366	
==>postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1256	1366	
==>postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9796	10006	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'symbol')                
                          ),
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7890	8085	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8837	9032	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                retu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1211	1334	
==>_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1211	1334	
==>_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1842	1948	
==>t "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) };
    $run_setup-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4925	5060	
==>ot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4925	5060	
==>ot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4925	5060	
==>ot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1967	2082	
==>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1967	2082	
==>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1967	2082	
==>[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	2	115	
==>Perl 6 Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	2	115	
==>Perl 6 Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs: <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17609	17713	
==>, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t => type::oper <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9105	9220	
==>d_flag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13860	13973	
==>KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13860	13973	
==>KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1899	2012	
==>ate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1899	2012	
==>ate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1899	2012	
==>ate") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2660	2768	
==>name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2660	2768	
==>name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2660	2768	
==>name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2330	2447	
==>0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3111	3228	
==>0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14035	14143	
==>0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14035	14143	
==>0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14035	14143	
==>0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { requir <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	734	872	
==>::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	734	872	
==>::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24664	24758	
==>al attributes may store values of the same class;
every Relation::Example tuple must be distinc <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	221	344	
==>a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # ge <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	221	344	
==>a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # ge <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12329	12434	
==>p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1038	1168	
==>iagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1038	1168	
==>iagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1594	1724	
==>iagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3305	3410	
==>l) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3305	3410	
==>l) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3305	3410	
==>l) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2060	2159	
==>.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a r <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2060	2159	
==>.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a r <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2112	2206	
==>d regular expression may lead to execution of arbitrary code;
each alternate engine may introdu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3382	3505	
==>_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3382	3505	
==>_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3382	3505	
==>_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12361	12462	
==>h
# into a single line containing a digest of the original content.
#
# This makes further dividing of <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12361	12462	
==>h
# into a single line containing a digest of the original content.
#
# This makes further dividing of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3533	3639	
==>uld accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3533	3639	
==>uld accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3533	3639	
==>uld accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14631	14799	
==>ny'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14910	15078	
==>ny'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'u <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11206	11355	
==>har {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumeric <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1100	1193	
==>t>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1100	1193	
==>t>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23643	23731	
==>ace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Repla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	264	401	
==>e Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	264	401	
==>e Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	264	401	
==>e Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1345	1460	
==>5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1345	1460	
==>5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26643	26739	
==>included.  This method takes care of building the
proper inheritance for the node; it uses %Regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1409	1528	
==>of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1409	1528	
==>of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1409	1528	
==>of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2899	2994	
==>t;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2899	2994	
==>t;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2899	2994	
==>t;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1008	1104	
==>_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1008	1104	
==>_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1008	1104	
==>_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48777	48918	
==>rsion'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7321	7445	
==>$match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7321	7445	
==>$match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $hea <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	59	195	
==>e warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5214	5346	
==>ify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5214	5346	
==>ify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2627	2729	
==>w(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2627	2729	
==>w(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2627	2729	
==>w(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7291	7443	
==>ALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7291	7443	
==>ALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7291	7443	
==>ALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	187	285	
==>s is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	187	285	
==>s is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	187	285	
==>s is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{P <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	413	543	
==>ef } 
        qw/
        num bit str symbol nil type  
        list hash reference block 
        closure closure::env closure::si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3948	4047	
==>k($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	862	948	
==>was shamelessly swiped from:
# - http://mail.python.org/pipermail/python-list/2005-Marc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6078	6179	
==>recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6078	6179	
==>recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6078	6179	
==>recursion of $myobj. All it needs to do to signal
this is to return the string set in advance with the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5218	5328	
==>circumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5218	5328	
==>circumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #pri <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	398	503	
==>erator wrapper for arrays and filehandles.

=head2 new()

Create an iterator.

=head2 next()

Iterate thro <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8356	8462	
==>from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8356	8462	
==>from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all % <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2756	2853	
==>rime with the user supplied
f.  Such things are possible in Perl 5, but simply saying .assuming is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37831	37968	
==>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37831	37968	
==>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37831	37968	
==>new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scal <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5165	5262	
==>e provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5165	5262	
==>e provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20978	21077	
==>fix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20978	21077	
==>fix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20978	21077	
==>fix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2843	2977	
==>container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2843	2977	
==>container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2843	2977	
==>container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2598	2731	
==>r_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2598	2731	
==>r_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2598	2731	
==>r_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	178	306	
==>class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	178	306	
==>class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	178	306	
==>class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{ <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	43	143	
==>gher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsev <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	44	144	
==>gher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsev <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	44	144	
==>gher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsev <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	729	857	
==>ode => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	740	868	
==>ode => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	297	411	
==>e( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	50	156	
==>6
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * Ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	50	156	
==>6
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * Ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	50	156	
==>6
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * Ne <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17841	17933	
==>ld contains information about the software being
used by the originating server program handl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17841	17933	
==>ld contains information about the software being
used by the originating server program handl <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9358	9473	
==>f.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9358	9473	
==>f.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given ( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14407	14507	
==>/ $_ }, self.split('');
    }
}


sub Pugs::Internals::but_block ($obj, Code $code) is primitive is s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1630	1744	
==>++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1630	1744	
==>++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1630	1744	
==>++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2553	2662	
==>])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2553	2662	
==>])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2553	2662	
==>])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20056	20150	
==>to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20056	20150	
==>to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20056	20150	
==>to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11743	11848	
==>. So this means that all classes
and roles can be polymorphic to one another. 

Because instances of class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11743	11848	
==>. So this means that all classes
and roles can be polymorphic to one another. 

Because instances of class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11743	11848	
==>. So this means that all classes
and roles can be polymorphic to one another. 

Because instances of class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	12	112	
==>like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	12	112	
==>like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	12	112	
==>like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10131	10284	
==>m{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10131	10284	
==>m{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10131	10284	
==>m{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1006	1106	
==>fix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1006	1106	
==>fix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1006	1106	
==>fix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16490	16625	
==>g.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values - <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19967	20102	
==>g.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values - <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19527	19662	
==>g.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values - <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1891	2017	
==>nt <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ bu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1891	2017	
==>nt <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ bu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1912	2018	
==>gram);
    $program =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
modul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5545	5680	
==>pture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5369	5499	
==>pture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $par <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6043	6147	
==>eral_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2310	2410	
==>odule_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2310	2410	
==>odule_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2310	2410	
==>odule_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13200	13311	
==>atch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13200	13311	
==>atch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13200	13311	
==>atch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLA <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	624	750	
==>il_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export( <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	624	750	
==>il_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5975	6101	
==>self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25478	25571	
==>Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operato <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30030	30123	
==>Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operato <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2696	2789	
==>es... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($ne <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2696	2789	
==>es... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3643	3743	
==>ant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3643	3743	
==>ant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3643	3743	
==>ant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12415	12520	
==>fix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12415	12520	
==>fix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12415	12520	
==>fix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19896	20005	
==>to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19896	20005	
==>to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19896	20005	
==>to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2533	2628	
==>BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2533	2628	
==>BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2533	2628	
==>BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4084	4186	
==>method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4084	4186	
==>method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4084	4186	
==>method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10409	10528	
==>ries it needs to it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/par <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	173	276	
==>Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	173	276	
==>Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vt <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12844	12992	
==>oto scan
    mob["isnegated"] = 1
    inc pos
  scan:
    if pos >= lastpos goto err_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto end <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10750	10840	
==>equest_method returns Str>

=item B<content_type returns Str>

=item B<content_length retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10750	10840	
==>equest_method returns Str>

=item B<content_type returns Str>

=item B<content_length retur <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	461	557	
==>rldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM frag <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	461	557	
==>rldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM frag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3759	3872	
==>$self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3759	3872	
==>$self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3759	3872	
==>$self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5845	5952	
==>el
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5845	5952	
==>el
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5845	5952	
==>el
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top le <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	551	802	
==>}
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	551	802	
==>}
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7653	7758	
==>'$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7653	7758	
==>'$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7653	7758	
==>'$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	768	929	
==>_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $va <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	768	929	
==>_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2055	2178	
==>autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2055	2178	
==>autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2055	2178	
==>autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	808	910	
==>[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pugs::Compiler::Rule;\nus <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13323	13417	
==>return value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13323	13417	
==>return value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $h <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1594	1687	
==>INDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1434	1527	
==>INDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	140	285	
==>ammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (? <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4237	4348	
==>:Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4237	4348	
==>:Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1837	1980	
==>E__->add_rule(
        name => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2960	3057	
==>evious =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complem <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2960	3057	
==>evious =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9696	9810	
==>re_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9696	9810	
==>re_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9696	9810	
==>re_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6021	6146	
==>lculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6021	6146	
==>lculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6021	6146	
==>lculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRA <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1557	1662	
==>plate) {
        print <<".";
*** Build config file '$filename' is older than template
    '$config_templa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3258	3349	
==>::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3258	3349	
==>::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3258	3349	
==>::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub J <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7338	7497	
==>delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	639	798	
==>delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if th <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1243	1356	
==>elete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cw <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5530	5647	
==>term_bx1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1127	1233	
==>le baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[: <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1127	1233	
==>le baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13473	13596	
==>$key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13473	13596	
==>$key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13473	13596	
==>$key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18015	18107	
==>.

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18015	18107	
==>.

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	348	481	
==>ile::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	348	481	
==>ile::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18194	18408	
==>ed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18194	18408	
==>ed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18194	18408	
==>ed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1165	1325	
==>cut

{   my $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => { allow => ISA_JIB_META },
        config          => { allo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2594	2702	
==>rn $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2594	2702	
==>rn $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = " <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1857	1970	
==>_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $se <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1857	1970	
==>_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15925	16011	
==>,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0 <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7616	7765	
==>"pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app<"pArgs"> {
            push @args, trave <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1177	1265	
==>::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} an <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1388	1476	
==>::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	59	163	
==>ing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	59	163	
==>ing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	59	163	
==>ing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6289	6467	
==>';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3414	3592	
==>';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4263	4441	
==>';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	24	143	
==>tPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" u <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	24	143	
==>tPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" u <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15777	15872	
==>and returns a C<Str>, the returned C<Str>
will support the same levels as the input, unless spec <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23752	23846	
==>bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23752	23846	
==>bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2873	2981	
==>pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2873	2981	
==>pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2873	2981	
==>pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.i <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1249	1369	
==>%nodes), "\n";
}

sub comp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != keys %$cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18995	19132	
==>::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13298	13403	
==>def, $initrd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the fo <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4916	5030	
==>traverse_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5985	6085	
==>rn $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5985	6085	
==>rn $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	699	813	
==>++) {
    $pkg = $curr, last if $prev and $prev eq "base" and $curr ne "base";
    $prev = $curr;
  }
  Regexp::Par <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12743	12839	
==>$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12743	12839	
==>$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2413	2507	
==>$js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2413	2507	
==>$js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2413	2507	
==>$js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4139	4240	
==>t a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4139	4240	
==>t a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4139	4240	
==>t a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4214	4307	
==>ctory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4214	4307	
==>ctory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6411	6504	
==>ctory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5402	5518	
==>$new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5402	5518	
==>$new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5402	5518	
==>$new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7870	8036	
==>s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ignorecase> {      
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2037	2174	
==>r->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matchin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2097	2234	
==>r->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matchin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7898	8041	
==>s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7898	8041	
==>s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7898	8041	
==>s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5443	5554	
==>$num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5443	5554	
==>$num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6967	7078	
==>$num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1072	1188	
==>f8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esca <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1072	1188	
==>f8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esca <==
3	/Users/nnunley/pugs/t/packages/Test.pm	108	214	
==>t { "party island" }

sub get_our_pkg {
    Our::Package::pkg();
}

our package Our::Package {

    sub pkg <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	983	1079	
==>item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a lead <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	983	1079	
==>item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a lead <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1539	1635	
==>item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a lead <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3918	4037	
==>$!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3918	4037	
==>$!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3918	4037	
==>$!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4307	4424	
==>: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4307	4424	
==>: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=he <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15053	15165	
==>bcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	854	963	
==>/save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	854	963	
==>/save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9108	9207	
==>OMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'proc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9108	9207	
==>OMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'proc <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	480	575	
==>subclasses" });
Has($?CLASS, "subclasses", "Set", { companion => "superclasses" });

# every Met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1323	1453	
==>MMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::loo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1323	1453	
==>MMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::loo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1323	1453	
==>MMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::loo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18281	18394	
==>ram => val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6094	6185	
==>ctually roundtrip parses this document successfully. However, more complex POD 
documents ma <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6094	6185	
==>ctually roundtrip parses this document successfully. However, more complex POD 
documents ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1426	1536	
==>obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1426	1536	
==>obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1426	1536	
==>obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	794	940	
==>e( 
        name => '*',
        assoc => 'left',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        preceden <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2102	2215	
==>dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCR <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2102	2215	
==>dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCR <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	489	586	
==>ipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should p <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	489	586	
==>ipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13552	13762	
==>}
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13552	13762	
==>}
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13552	13762	
==>}
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11893	11993	
==>hod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11893	11993	
==>hod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11893	11993	
==>hod_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10845	10982	
==>$curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phas <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10845	10982	
==>$curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phas <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6777	6903	
==>if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return ( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	376	483	
==>$o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub from {my($o)=@_;$$o->{'from'}}
s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	452	544	
==>l_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Wa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	452	544	
==>l_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8814	8960	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8814	8960	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8814	8960	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	246	340	
==>AsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	246	340	
==>AsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	246	340	
==>AsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29238	29362	
==>$order) returns block {
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=cut

$::Class-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31597	31696	
==>ch uses both libraries
could have yet another set for itself.  When the program is run, it would
det <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31597	31696	
==>ch uses both libraries
could have yet another set for itself.  When the program is run, it would
det <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1354	1506	
==>E;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	978	1073	
==>mplement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	978	1073	
==>mplement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13703	13842	
==>A__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13703	13842	
==>A__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20816	20908	
==>ename rewinddir rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket socke <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11188	11354	
==>pecified)
      my $reopts   = $9;
      $rest        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $out <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1502	1606	
==>hod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1502	1606	
==>hod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8425	8528	
==>thod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8425	8528	
==>thod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8425	8528	
==>thod('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5804	5966	
==>middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5804	5966	
==>middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5804	5966	
==>middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24909	24999	
==>y C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immedi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24909	24999	
==>y C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immedi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19075	19223	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19075	19223	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19075	19223	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8497	8664	
==>$Result12;
            return;
        }
        # 5
        $A.property_value($P) = $V;
    } else { # 7
        $A.property_value($P) = $V;
    }
    # 8
    my sub n <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2506	2600	
==>er.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2506	2600	
==>er.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2085	2241	
==>xclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Config{recurse};
            } else {
                p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8696	8816	
==>sa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8696	8816	
==>sa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8696	8816	
==>sa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1774	1884	
==>cfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1774	1884	
==>cfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1774	1884	
==>cfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &gr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34307	34399	
==>ates and returns a new Locale::KeyedText::Translator object.
The Set Names property of the ne <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34307	34399	
==>ates and returns a new Locale::KeyedText::Translator object.
The Set Names property of the ne <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5106	5201	
==>g on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<tod <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5106	5201	
==>g on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<tod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6630	6725	
==>g on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<tod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	380	480	
==>$JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	380	480	
==>$JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	380	480	
==>$JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9803	9925	
==>e',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9803	9925	
==>e',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33580	33680	
==>any (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C<\w>), nalnum (C<\W>)

Neg: 1 if negated

=h <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	910	1184	
==>ent>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	910	1184	
==>ent>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3444	3535	
==>l(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(mi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17426	17518	
==>e document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17426	17518	
==>e document.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10841	10933	
==>lass undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($namest <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31552	31650	
==>vial cases are
where C<$predicate> simply returns True or False regardless of its
argument, in whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36102	36200	
==>vial cases are
where C<$predicate> simply returns True or False regardless of its
argument, in whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35329	35427	
==>vial cases are
where C<$predicate> simply returns True or False regardless of its
argument, in whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	424	614	
==>ormalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	424	614	
==>ormalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	424	614	
==>ormalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	172	270	
==>add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	172	270	
==>add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	172	270	
==>add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5298	5400	
==>, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15153	15245	
==>(usually provided by third
parties) implement.  This interface is rigorously defined, such th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15153	15245	
==>(usually provided by third
parties) implement.  This interface is rigorously defined, such th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3842	3934	
==>----------------------------------------------
## Package

## See http://article.gmane.org/gm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3842	3934	
==>----------------------------------------------
## Package

## See http://article.gmane.org/gm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3842	3934	
==>----------------------------------------------
## Package

## See http://article.gmane.org/gm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5860	5961	
==>>{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5860	5961	
==>>{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5860	5961	
==>>{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attrib <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9081	9194	
==>e for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9139	9252	
==>e for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	343	431	
==>ler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	343	431	
==>ler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	340	423	
==>ler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3357	3471	
==>}      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3357	3471	
==>}      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3357	3471	
==>}      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7146	7273	
==>data}->visual;
    }
    else {
      join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{h <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1027	1125	
==>ied-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1027	1125	
==>ied-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  g <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9911	10000	
==>tachar([C]))}.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1626	1733	
==>($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1626	1733	
==>($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1626	1733	
==>($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29306	29422	
==>n bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29306	29422	
==>n bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29306	29422	
==>n bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1979	2082	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1979	2082	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1979	2082	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5228	5330	
==>is doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5228	5330	
==>is doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5228	5330	
==>is doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currentl <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13174	13267	
==>ts are decoded in-place.

This routine is exported by default.

=item _decode_entities( $strin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13174	13267	
==>ts are decoded in-place.

This routine is exported by default.

=item _decode_entities( $strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4290	4403	
==>f.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self).pick;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4290	4403	
==>f.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self).pick;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4290	4403	
==>f.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self).pick;
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4408	4521	
==>hod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4408	4521	
==>hod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4408	4521	
==>hod () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5585	5693	
==>urther propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5585	5693	
==>urther propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5585	5693	
==>urther propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17277	17371	
==>infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17277	17371	
==>infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17277	17371	
==>infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	798	913	
==>ning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	798	913	
==>ning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2643	2746	
==>if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime cast of ($node)::$from to $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29274	29389	
==>"-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29274	29389	
==>"-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29274	29389	
==>"-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5321	5424	
==>return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5321	5424	
==>return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5321	5424	
==>return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::stor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7159	7343	
==>efore storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7159	7343	
==>efore storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7159	7343	
==>efore storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIV <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2376	2489	
==>LD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2376	2489	
==>LD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1428	1526	
==>.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2646	2793	
==>ll to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2646	2793	
==>ll to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2646	2793	
==>ll to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time. <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	117	210	
==>R> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	117	210	
==>R> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6221	6362	
==>n   List      pre     keys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13232	13340	
==>t very portable to broken (no compiler) microsoft systems.

  The implementation reaches into perlguts, which <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9463	9555	
==>et2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9463	9555	
==>et2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9656	9833	
==>li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9656	9833	
==>li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9656	9833	
==>li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   su <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4098	4249	
==>} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "]";
      }
    }
END
}

{
  package Hacks;

  #XXX - surely this is part of the Regexp::Parser ap <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1462	1563	
==>pends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1520	1621	
==>pends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14947	15099	
==>ned $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14947	15099	
==>ned $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	396	494	
==>3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	396	494	
==>3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	396	494	
==>3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17682	17774	
==>infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17682	17774	
==>infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17682	17774	
==>infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8075	8217	
==>ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2591	2699	
==>) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2591	2699	
==>) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	483	584	
==>c->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	483	584	
==>c->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	483	584	
==>c->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28893	28990	
==>ler for '&&' if it can consume an ampersand.
Handle names that have no "predecessor" (that is, a ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16274	16366	
==>$h.content_type

The Content-Type header field indicates the media type of the message
conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16274	16366	
==>$h.content_type

The Content-Type header field indicates the media type of the message
conten <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21522	21617	
==>m which uses yours may wish to
override some of your messages, showing other messages instead wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21522	21617	
==>m which uses yours may wish to
override some of your messages, showing other messages instead wh <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1118	1206	
==>->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->has_symbol($no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	658	827	
==>tory => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY,
        },
        ### XXX this won't work ove <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14019	14107	
==>Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14019	14107	
==>Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1230	1357	
==>erl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1230	1357	
==>erl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1230	1357	
==>erl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2856	2957	
==>ssing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Cop <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2856	2957	
==>ssing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Cop <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3203	3304	
==>ssing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Cop <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2337	2431	
==>se
successful work got me thinking about trying a prolog plugin.

Fyi,
Yaswi apparently require <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23258	23349	
==>otE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23258	23349	
==>otE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1973	2077	
==>"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1973	2077	
==>"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1973	2077	
==>"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4933	5043	
==>ve '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy( from => $file|$dir, to => $target ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34230	34326	
==>=a)(?=b)(?=c)d/> in Perl.  We will support this with the '&'
metacharacter.

We have added a hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	217	352	
==>irs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	217	352	
==>irs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	217	352	
==>irs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1820	1922	
==>om_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1820	1922	
==>om_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1820	1922	
==>om_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Nu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18271	18384	
==>id"),
		param => val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	954	1053	
==>Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	954	1053	
==>Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	305	416	
==>E => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	305	416	
==>E => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	305	416	
==>E => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	614	728	
==>les/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	614	728	
==>les/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	614	728	
==>les/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhaus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1234	1343	
==>\G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__object__ );
  push @Regexp::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25819	25987	
==>>fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25819	25987	
==>>fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25819	25987	
==>>fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17673	17808	
==>warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17673	17808	
==>warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17673	17808	
==>warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $labe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2329	2503	
==>,
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '<',
        assoc => 'left',
        prece <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13058	13158	
==>he code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is bro <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13116	13216	
==>he code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is bro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1990	2107	
==>L::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1990	2107	
==>L::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1990	2107	
==>L::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7472	7603	
==>)   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7472	7603	
==>)   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7472	7603	
==>)   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            return $me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1609	1719	
==>hod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $comp <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1609	1719	
==>hod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $comp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4965	5058	
==>List {p6_new('List',@_)}
sub p6_Scalar {p6_new('Scalar',@_)}

# XXX - Using field names here i <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	17	118	
==>nktionsaufruf in Perl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17195	17292	
==>tended audience for the message
content.  The value is one or more language tags as defined by RFC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17195	17292	
==>tended audience for the message
content.  The value is one or more language tags as defined by RFC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2860	2957	
==>ernals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2860	2957	
==>ernals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2860	2957	
==>ernals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3699	3828	
==>am";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3699	3828	
==>am";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3699	3828	
==>am";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6188	6302	
==>_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6176	6290	
==>_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48497	48585	
==>->send('add_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 's <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	53	148	
==>runk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Boo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	53	148	
==>runk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Boo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23371	23463	
==>, !; F1 = Fx, B1 = Bx, E1 = Ex).

%---------------------------------------------------------- <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2298	2416	
==>m::sign (  Num  $x             --> Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20465	20563	
==>ec15";

The rationale of this is that randoms strings are usally left alone by
compilers. After all <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20465	20563	
==>ec15";

The rationale of this is that randoms strings are usally left alone by
compilers. After all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24279	24494	
==>nfinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24279	24494	
==>nfinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24279	24494	
==>nfinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            st <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9709	9857	
==>}
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end cl <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9709	9857	
==>}
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end cl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	901	1016	
==>Emitter::Pretty->new->string($result); # works for all nodes


    # perl equivalent

    (sub {
        my $x = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1771	1891	
==>ocument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1771	1891	
==>ocument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1771	1891	
==>ocument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	614	733	
==>r::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::capture( $/ ) }
    ' <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3807	3895	
==>Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@ramble <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3807	3895	
==>Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@ramble <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1431	1530	
==>use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1431	1530	
==>use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1431	1530	
==>use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10995	11094	
==>is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10995	11094	
==>is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10995	11094	
==>is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => metho <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7644	7780	
==>define $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NA <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7644	7780	
==>define $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NA <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2912	3011	
==>ift;

	$self->{names}{$node->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1522	1667	
==>);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18186	18279	
==>ing at.

This section describes the rather complex algorithm that
Module::Compile uses.

First <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18186	18279	
==>ing at.

This section describes the rather complex algorithm that
Module::Compile uses.

First <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21279	21371	
==>:Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9599	9722	
==>ems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9599	9722	
==>ems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9599	9722	
==>ems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4140	4243	
==>tem C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4140	4243	
==>tem C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6337	6440	
==>tem C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5590	5697	
==>e =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5590	5697	
==>e =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5590	5697	
==>e =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_an <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4343	4451	
==>$hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - sim <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4343	4451	
==>$hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - sim <==
3	/Users/nnunley/pugs/util/config_h.pl	51	149	
==>d;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This file seems to dete <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	26	158	
==>a = 1..5;  # '12345'
say 0..@a;     # '012345'

say 0..@a-1;   # '01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4895	4994	
==>or _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4895	4994	
==>or _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	367	476	
==>S.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	367	476	
==>S.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	367	476	
==>S.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1840	1997	
==>cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1840	1997	
==>cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4589	4712	
==>2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub prefix {
        return $1 i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4760	4875	
==>is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws>? 
        \) <?p6ws>?
    <co <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3452	3559	
==>A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($cod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3452	3559	
==>A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($cod <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	634	794	
==>schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# this code is a hashref from $LANG to auxilliary code in that
# language.
Has($?CLASS, "code" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3131	3256	
==>passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3131	3256	
==>passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Bu <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	612	717	
==>is_promise($s.[1]);
  return $s.[1];
}


sub is_promise($a) {
  return $a.isa(Code);
}

## XXX - use sub(S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2222	2314	
==>>code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	714	804	
==>>code;"
    }))->code;
*grammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <grammar_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2823	2969	
==>// Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2823	2969	
==>// Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2823	2969	
==>// Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6642	6859	
==>at the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6642	6859	
==>at the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6777	6907	
==>rn " print '', $s" . ', "\n"';
        }
        if ( $n->{method}{bareword} eq 'perl' ) {
            return 'Pugs::Runtime::Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	2	108	
==>/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	2	108	
==>/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	2	108	
==>/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	528	641	
==>xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	298	411	
==>xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	298	411	
==>xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15332	15444	
==>shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr { <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	476	579	
==>n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @m <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	476	579	
==>n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23425	23548	
==>>$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19846	19969	
==>>$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    retu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7603	7709	
==>= pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduc <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	598	710	
==>w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eva <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	565	677	
==>w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eva <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16954	17057	
==>AILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, onc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9397	9505	
==>Named'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9397	9505	
==>Named'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9397	9505	
==>Named'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	388	521	
==>, 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	388	521	
==>, 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	388	521	
==>, 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2868	2988	
==>rint $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2868	2988	
==>rint $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2868	2988	
==>rint $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	229	333	
==>t Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	229	333	
==>t Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	229	333	
==>t Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4034	4177	
==>emory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4034	4177	
==>emory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4034	4177	
==>emory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1347	1468	
==>_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1347	1468	
==>_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1347	1468	
==>_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19694	19789	
==>statement for any compile sections in
that block. C<use> statements in a PREFACE apply to all th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19694	19789	
==>statement for any compile sections in
that block. C<use> statements in a PREFACE apply to all th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2899	2988	
==>zily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6083	6211	
==>perator-precedence
    my $g = $operator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a lo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7307	7411	
==>R::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POS <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7365	7469	
==>R::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4151	4258	
==>e_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4151	4258	
==>e_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3850	3990	
==>fault {
    my $n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19142	19237	
==>d, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19142	19237	
==>d, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3768	3879	
==>tmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSym <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3768	3879	
==>tmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSym <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	618	729	
==>tmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSym <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1494	1622	
==>" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_lis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1482	1610	
==>" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_lis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2900	3044	
==>name eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3117	3261	
==>name eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $fi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11293	11395	
==>}, !.
p6_simple_escape_sequence(char(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - connect to above
p5_co <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6477	6593	
==>mp $b->{name} } (values %{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10242	10341	
==>t, $paramDefault) {
    my $default; $default = DOWN($paramDefault) if defined($paramDefault);
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15060	15242	
==>ethod($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15060	15242	
==>ethod($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15060	15242	
==>ethod($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2574	2688	
==>(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2574	2688	
==>(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2574	2688	
==>(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	344	471	
==>(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	344	471	
==>(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	344	471	
==>(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1592	1687	
==>ly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1592	1687	
==>ly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1592	1687	
==>ly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10436	10546	
==>chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unle <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10436	10546	
==>chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3610	3711	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5269	5365	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5269	5365	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5269	5365	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3607	3733	
==>"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7084	7210	
==>"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6041	6167	
==>"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.differe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	502	625	
==>w Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	502	625	
==>w Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14165	14291	
==>boxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14165	14291	
==>boxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14165	14291	
==>boxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5969	6073	
==>rays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5969	6073	
==>rays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5969	6073	
==>rays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use contex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2034	2170	
==>lf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2034	2170	
==>lf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2034	2170	
==>lf);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11380	11473	
==>item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11380	11473	
==>item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26532	26618	
==>active :load :assert :context :run);
#$Language::Prolog::Yaswi::swi_converter->pass_as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15773	15875	
==>($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15773	15875	
==>($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15773	15875	
==>($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10413	10548	
==>@params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10413	10548	
==>@params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10413	10548	
==>@params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5412	5513	
==>' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5412	5513	
==>' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5412	5513	
==>' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1152	1272	
==>ction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1152	1272	
==>ction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1152	1272	
==>ction(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23403	23512	
==>= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23403	23512	
==>= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23403	23512	
==>= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle repl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3221	3339	
==>($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19018	19128	
==>sted) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level ( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19018	19128	
==>sted) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25015	25183	
==>'$_')->send('add_subclass' => $e->get('$self:'));
                              })
                          );
                          $e->get('$self:')->set_attr(sym <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21813	21905	
==>ome appropriate place, usually in the
main program, Locale::KeyedText can be given input that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21813	21905	
==>ome appropriate place, usually in the
main program, Locale::KeyedText can be given input that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2496	2611	
==>copes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2496	2611	
==>copes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2496	2611	
==>copes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0] <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3343	3478	
==>vent.name {
                    when '*' { take %.subscription.values».members };
                    default { take %.subscriptions<$_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	341	445	
==>1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	341	445	
==>1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2374	2481	
==>_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2374	2481	
==>_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2374	2481	
==>_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6538	6642	
==>pe->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6538	6642	
==>pe->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6538	6642	
==>pe->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    m <==
3	/Users/nnunley/pugs/util/testgraph.pl	1117	1212	
==>ation of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce the data <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9371	9463	
==>ubset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9371	9463	
==>ubset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($se <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1276	1412	
==>bug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "err <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3713	3809	
==>s represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3713	3809	
==>s represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27619	27715	
==><(?u:...)> or C<(?u)>.  The values 0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12637	12731	
==>throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12695	12789	
==>throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	88	205	
==>r(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	88	205	
==>r(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	88	205	
==>r(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	817	923	
==>on't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	817	923	
==>on't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3883	3989	
==>METH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3883	3989	
==>METH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3883	3989	
==>METH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatche <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	613	724	
==>$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	613	724	
==>$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $le <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12367	12472	
==>rams);
    $self.BUILDALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4304	4409	
==>_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4304	4409	
==>_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4894	4999	
==>_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->nam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9385	9492	
==>d reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9385	9492	
==>d reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2412	2502	
==>IVERSAL::isa(shift(), 'JIB::Meta') }; 
use constant ISA_JIB_CONFIG => sub { UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16536	16653	
==>B DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16536	16653	
==>B DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16536	16653	
==>B DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MUL <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3761	3906	
==>ntext
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $ent <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4225	4370	
==>ntext
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $ent <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4305	4392	
==>09369995957496696762772407663;
    # http://www.research.att.com/~njas/sequences/A001113 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5380	5482	
==>or {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $op = Op->new($name,$p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7811	7911	
==>', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defin <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7869	7969	
==>', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	356	475	
==>turn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	356	475	
==>turn (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2436	2532	
==>βγδεζηθικλμνξοπρστυφχψω"; # some identifiers for types. Let'shope we never <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1703	1841	
==>ends};
    
    print "Translating:\n";
    print Dump( $deps );
    print "\n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$dep <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22168	22289	
==>Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->er <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18589	18710	
==>Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->er <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3205	3302	
==>sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3205	3302	
==>sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3205	3302	
==>sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	953	1092	
==>{_('@:results')} );
            _('$.output')->write($footer) if $footer;            
        }
    },
    methods => {
        'get_test_nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8198	8325	
==>ional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7916	8036	
==>ional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleo <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1760	1858	
==>rs at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_b <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1760	1858	
==>rs at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_b <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	454	541	
==>SX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::Inte <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1309	1449	
==>defined $/[28] ) {
            $duration = duration($/[29..35]);
            $duration.start = $start;
        } else {
            my $end = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	464	551	
==>------------------------------------------------------
## accessors and mutators

method <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	464	551	
==>------------------------------------------------------
## accessors and mutators

method <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1167	1260	
==>irst. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1167	1260	
==>irst. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2975	3161	
==>ub {
                my $self = shift;
                my $idx = shift;
                my $size = $idx + 1;
                if ($self->array_fetchSize < $size){
                    $self <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6870	6968	
==>gs to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6870	6968	
==>gs to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3400	3575	
==>{
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3400	3575	
==>{
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2605	2714	
==>hift;
    my $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    re <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1538	1667	
==>or
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List {
   gather {
     whil <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	697	795	
==>te methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	697	795	
==>te methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13666	13835	
==>l5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9850	10019	
==>l5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10686	10855	
==>l5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10523	10677	
==>);
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.desc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1057	1193	
==>);
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1057	1193	
==>);
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.desc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10059	10212	
==>tch, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10895	11048	
==>tch, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # ex <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12101	12218	
==>, !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexidecimal_escape_sequence(X) --> "\\", ("x";"X"), !, p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1589	1742	
==>aque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1589	1742	
==>aque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1589	1742	
==>aque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2006	2131	
==>& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2006	2131	
==>& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2006	2131	
==>& $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2264	2380	
==>};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2264	2380	
==>};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2264	2380	
==>};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23037	23144	
==>attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27589	27696	
==>attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26366	26473	
==>attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the va <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1454	1555	
==>port_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1454	1555	
==>port_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1534	1635	
==>port_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $numbe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1983	2083	
==>gexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14841	14937	
==>ues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14841	14937	
==>ues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2549	2681	
==>> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <i <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2549	2681	
==>> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2944	3051	
==>isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2944	3051	
==>isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2944	3051	
==>isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramN <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11717	11904	
==>OT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7999	8186	
==>OT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8833	9020	
==>OT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4585	4720	
==>lphabetic names, so tr/a-z// is true)
        # This will also show numbers for some uneeded cases, but will
        # definately be hel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14910	15002	
==>$target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $passwo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14910	15002	
==>$target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $passwo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1792	1907	
==>)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1792	1907	
==>)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1792	1907	
==>)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/util/combine_tests.pl	891	1009	
==>file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{ev <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	674	765	
==>s to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.or <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	674	765	
==>s to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11477	11580	
==>next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11477	11580	
==>next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11477	11580	
==>next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eva <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7446	7550	
==>.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

I <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7446	7550	
==>.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9811	9906	
==>t_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the right retu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2174	2273	
==>elf.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2174	2273	
==>elf.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	347	448	
==>f yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	347	448	
==>f yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	347	448	
==>f yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4596	4710	
==>bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding th <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4596	4710	
==>bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding th <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4596	4710	
==>bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3905	4004	
==>e object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Spec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4089	4188	
==>e object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13670	13831	
==>~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $matc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13670	13831	
==>~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $matc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	60	157	
==>use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format', '$stri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4001	4092	
==>urns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and sett <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4001	4092	
==>urns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and sett <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6198	6289	
==>urns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and sett <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18426	18520	
==>plication
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the futu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18426	18520	
==>plication
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the futu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15365	15451	
==>[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	304	408	
==>t

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	304	408	
==>t

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	304	408	
==>t

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	332	459	
==>::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	332	459	
==>::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	332	459	
==>::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokeni <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	179	289	
==>ulti sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... }

# mmm, curry!
&l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7264	7380	
==>$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7276	7392	
==>$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23498	23645	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23498	23645	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23498	23645	
==>rl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14707	14822	
==>END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14707	14822	
==>END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14707	14822	
==>END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7890	7996	
==>ent()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if d <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7890	7996	
==>ent()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if d <==
3	/Users/nnunley/pugs/util/version_h.pl	173	278	
==>base/.svn/entries";

my $old_revision = -1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7805	7910	
==>l - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7805	7910	
==>l - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7805	7910	
==>l - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10162	10347	
==>Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	716	889	
==>Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	716	889	
==>Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	603	701	
==>$description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	603	701	
==>$description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	860	971	
==>etcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	860	971	
==>etcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	860	971	
==>etcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4009	4119	
==>($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4009	4119	
==>($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4009	4119	
==>($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9430	9529	
==>r  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_img | g <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5458	5551	
==>o examine the response code or response headers
(like 'Content-Type') when you are accessing t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5458	5551	
==>o examine the response code or response headers
(like 'Content-Type') when you are accessing t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	727	829	
==>L2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	727	829	
==>L2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	727	829	
==>L2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5281	5387	
==>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5281	5387	
==>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8909	9144	
==>_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8909	9144	
==>_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8909	9144	
==>_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27974	28164	
==>start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27974	28164	
==>start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27974	28164	
==>start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8674	8811	
==>$a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8674	8811	
==>$a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8674	8811	
==>$a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37160	37260	
==>to a
C<product>.  In any situation where the heading of one source relation is a
full subset of anoth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41709	41809	
==>to a
C<product>.  In any situation where the heading of one source relation is a
full subset of anoth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41332	41432	
==>to a
C<product>.  In any situation where the heading of one source relation is a
full subset of anoth <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12583	12675	
==>et1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12583	12675	
==>et1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2073	2180	
==>", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2073	2180	
==>", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2073	2180	
==>", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7503	7656	
==>start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7503	7656	
==>start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7503	7656	
==>start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15876	16024	
==>ile locking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3382	3483	
==>rray.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3382	3483	
==>rray.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3382	3483	
==>rray.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2008	2102	
==>,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2008	2102	
==>,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2008	2102	
==>,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1222	1329	
==>is import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1222	1329	
==>is import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1078	1203	
==>ck->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block->do();
        return $TRUE <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3729	3817	
==><stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darr <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3729	3817	
==><stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10464	10620	
==>ams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10464	10620	
==>ams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10464	10620	
==>ams : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @param <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29537	29637	
==>wrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34089	34189	
==>wrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33253	33353	
==>wrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, or if an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1483	1604	
==>attr
    #     { $_[0]->{out}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{ou <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8459	8562	
==>and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# wh <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8459	8562	
==>and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19105	19210	
==>ULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19105	19210	
==>ULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19105	19210	
==>ULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	583	831	
==>iven version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	583	831	
==>iven version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta:: <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	743	881	
==>ion<remove> .= new; # FIXME we need one at the class level too

    method notify (Class::Events::Event $event) {
        (.get_subscriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1573	1728	
==>sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1573	1728	
==>sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1573	1728	
==>sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4466	4578	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4466	4578	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4466	4578	
==>isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	518	621	
==>$item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	518	621	
==>$item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	518	621	
==>$item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6000	6105	
==>.. });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6000	6105	
==>.. });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6000	6105	
==>.. });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Wo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3979	4097	
==>$lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{invocant};
    }

    for my $param_n <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3896	3995	
==>= @_;

    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if define <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5256	5354	
==>= @_;
    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	250	349	
==>rs, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	250	349	
==>rs, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	250	349	
==>rs, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4147	4258	
==>ined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4147	4258	
==>ined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4147	4258	
==>ined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) { <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8529	8656	
==>ark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

me <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8529	8656	
==>ark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4787	4971	
==>mes'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () retu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4787	4971	
==>mes'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () retu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6120	6223	
==>n $o->mk_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29719	29813	
==>f another,
or are the same as the unaffected invocant's attributes.  This method
supports havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34271	34365	
==>f another,
or are the same as the unaffected invocant's attributes.  This method
supports havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33435	33529	
==>f another,
or are the same as the unaffected invocant's attributes.  This method
supports havin <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2338	2453	
==>s {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print subst <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2338	2453	
==>s {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print subst <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14458	14552	
==>value) order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as C<zip( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3985	4092	
==>ute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3985	4092	
==>ute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosett <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26043	26135	
==>y_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6221	6314	
==>) {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6221	6314	
==>) {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6221	6314	
==>) {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1173	1272	
==>>param("version") or $CGI->param("version") != VERSION) {
    print "Versions do not match!";
    ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	402	492	
==>r::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	402	492	
==>r::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6151	6258	
==>ted to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6151	6258	
==>ted to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6151	6258	
==>ted to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1765	1876	
==>ly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1765	1876	
==>ly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1765	1876	
==>ly qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21876	21973	
==>edText can be given input that says what resource
files it should use and in what order they shoul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21876	21973	
==>edText can be given input that says what resource
files it should use and in what order they shoul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21565	21660	
==>D__

=head1 NAME

Regexp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	932	1039	
==>LIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	932	1039	
==>LIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	932	1039	
==>LIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2916	3024	
==>cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2916	3024	
==>cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2916	3024	
==>cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4443	4571	
==>nce, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4443	4571	
==>nce, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $sp <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2760	2887	
==>uild* things here too
            print "Unpacking code...\n";
            system( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6488	6592	
==>ed> key to true, and adds a
C<really_passed> key which contains the boolean representing if the test trul <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6488	6592	
==>ed> key to true, and adds a
C<really_passed> key which contains the boolean representing if the test trul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8685	8789	
==>ed> key to true, and adds a
C<really_passed> key which contains the boolean representing if the test trul <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4735	4859	
==>s_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4735	4859	
==>s_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_sta <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	694	801	
==>sename::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $prompt . <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1510	1632	
==>ption,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1510	1632	
==>ption,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
} <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14062	14153	
==>mb: generic_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3173	3379	
==>umber(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill_all with a pla <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2174	2272	
==>rns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2174	2272	
==>rns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	921	1019	
==>}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	921	1019	
==>}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	436	522	
==>xplaination of this. 
## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1239	1340	
==>ng Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1239	1340	
==>ng Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1239	1340	
==>ng Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_ <==
3	/Users/nnunley/pugs/util/config_h.pl	1839	1987	
==>", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1643	1774	
==>ude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1850	1981	
==>ude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2682	2794	
==>keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2682	2794	
==>keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2682	2794	
==>keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1880	2002	
==>>($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1880	2002	
==>>($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1880	2002	
==>>($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1119	1236	
==>ORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1119	1236	
==>ORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1119	1236	
==>ORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	976	1118	
==>an($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	976	1118	
==>an($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	976	1118	
==>an($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	704	829	
==>?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	704	829	
==>?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	704	829	
==>?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2940	3054	
==>d,
        tail  => $remainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1705	1806	
==>ug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> li <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1705	1806	
==>ug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	594	728	
==>s),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	594	728	
==>s),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	594	728	
==>s),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2598	2707	
==>y $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1210	1319	
==>y $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1911	2020	
==>y $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	840	978	
==>her => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __PACK <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41298	41388	
==>.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, par <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41298	41388	
==>.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4474	4568	
==>IL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4474	4568	
==>IL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4474	4568	
==>IL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internal <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1366	1460	
==>an be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/ <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1366	1460	
==>an be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7289	7452	
==>ew(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7289	7452	
==>ew(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7289	7452	
==>ew(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($sel <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8322	8426	
==>> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8322	8426	
==>> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(p <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	251	346	
==>class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	376	524	
==>eturns Num { ... }

multi sub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20092	20207	
==>list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20371	20486	
==>list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4214	4327	
==>$undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4214	4327	
==>$undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4214	4327	
==>$undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1626	1734	
==>s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1626	1734	
==>s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1626	1734	
==>s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6933	7071	
==>map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6933	7071	
==>map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6933	7071	
==>map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16107	16210	
==>is script doesn't run as root, anyway.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Error <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5744	5836	
==>tUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstra <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5226	5318	
==>tUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstra <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	78	159	
==>rl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::Install::Makefile::Ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31013	31185	
==>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31013	31185	
==>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31013	31185	
==>elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7011	7141	
==>Cxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7011	7141	
==>Cxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7011	7141	
==>Cxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	642	775	
==>/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            name => $name,
            as <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6363	6477	
==>onpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6363	6477	
==>onpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7660	7795	
==>tr->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7660	7795	
==>tr->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7660	7795	
==>tr->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	90	200	
==>s correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	90	200	
==>s correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	90	200	
==>s correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5052	5165	
==>list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5052	5165	
==>list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5052	5165	
==>list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13800	13901	
==>lti Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest * <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	219	317	
==>&f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
mu <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	219	317	
==>&f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
mu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2187	2305	
==>nctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2187	2305	
==>nctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11597	11709	
==>l' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11597	11709	
==>l' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11597	11709	
==>l' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8488	8631	
==>'\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8488	8631	
==>'\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8488	8631	
==>'\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12709	12846	
==>name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12988	13125	
==>name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12788	12895	
==>unperl {
    die "test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9388	9488	
==>sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9388	9488	
==>sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9388	9488	
==>sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32571	32667	
==>is the N-ary version of the aforementioned binary union()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37121	37217	
==>is the N-ary version of the aforementioned binary union()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36429	36525	
==>is the N-ary version of the aforementioned binary union()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38081	38171	
==>ined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

Thi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38081	38171	
==>ined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4085	4192	
==>r.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4085	4192	
==>r.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9303	9429	
==>ush @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9303	9429	
==>ush @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9303	9429	
==>ush @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32971	33067	
==>e returned Relation contains only tuples that are in
exactly one of the source Relations.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37521	37617	
==>e returned Relation contains only tuples that are in
exactly one of the source Relations.  This m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5142	5238	
==>base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3974	4066	
==>bpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3974	4066	
==>bpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3974	4066	
==>bpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	102	202	
==>OS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	102	202	
==>OS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	102	202	
==>OS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warning <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4728	4931	
==>, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match fai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5024	5147	
==>de.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5024	5147	
==>de.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5024	5147	
==>de.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1470	1570	
==>estpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1470	1570	
==>estpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1470	1570	
==>estpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3575	3682	
==>" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3575	3682	
==>" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3575	3682	
==>" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8382	8512	
==>mplements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8382	8512	
==>mplements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8382	8512	
==>mplements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19980	20109	
==>el = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will wor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19980	20109	
==>el = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will wor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19980	20109	
==>el = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will wor <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	696	814	
==>= any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	696	814	
==>= any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

m <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7298	7419	
==>in)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', un <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26294	26394	
==>e value can be anything at
all.  Note that while the Hash itself is copied on input and output, any
v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26294	26394	
==>e value can be anything at
all.  Note that while the Hash itself is copied on input and output, any
v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36752	36851	
==>ult does too.  Another trivial case is if any
source relation is the identity-one relation (zero att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41301	41400	
==>ult does too.  Another trivial case is if any
source relation is the identity-one relation (zero att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40924	41023	
==>ult does too.  Another trivial case is if any
source relation is the identity-one relation (zero att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20439	20638	
==>l6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20439	20638	
==>l6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20439	20638	
==>l6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	258	355	
==>from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	258	355	
==>from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	258	355	
==>from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13092	13196	
==>ne, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13092	13196	
==>ne, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27804	27891	
==>og)	((prog)->reganch |= ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_off(prog)	((prog)->rega <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6436	6552	
==>val;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6436	6552	
==>val;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6436	6552	
==>val;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2133	2259	
==>er[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mod <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2133	2259	
==>er[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1079	1199	
==>ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1079	1199	
==>ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1079	1199	
==>ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.valu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2716	2817	
==>rms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFOR <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2716	2817	
==>rms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10243	10344	
==>::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10243	10344	
==>::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10243	10344	
==>::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	389	503	
==>@_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	389	503	
==>@_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}- <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5915	6019	
==>CODEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9435	9530	
==>};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9435	9530	
==>};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9435	9530	
==>};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	656	766	
==>s an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	656	766	
==>s an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5298	5392	
==>E')->code();
 
    $<op> := (print|say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9414	9533	
==>0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7462	7571	
==>traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7462	7571	
==>traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17548	17722	
==>bel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17548	17722	
==>bel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17548	17722	
==>bel) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1787	1902	
==>op::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1798	1913	
==>op::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ), <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22279	22385	
==>);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_abs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9518	9621	
==>ne $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and com <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9518	9621	
==>ne $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1079	1214	
==>=> 'looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10619	10727	
==>ogged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ir <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10619	10727	
==>ogged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ir <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8090	8350	
==>}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	658	756	
==>t "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	625	723	
==>t "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) } <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4723	4819	
==>returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully q <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4723	4819	
==>returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1378	1483	
==>ode} = eval 
        $self->{perl5};
    carp "Error in perl 5 evaluation: $@\nSource:\n$self->{perl5}\n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4419	4515	
==>s, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_prece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6321	6417	
==>s, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_prece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4380	4496	
==>iguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4380	4496	
==>iguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4380	4496	
==>iguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7085	7213	
==>= shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7085	7213	
==>= shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7085	7213	
==>= shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_met <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	78	198	
==>blished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Ch <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	79	199	
==>blished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Ch <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	79	199	
==>blished by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Ch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6184	6294	
==>ing => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restric <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9661	9771	
==>ing => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restric <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8735	8845	
==>ing => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restric <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3111	3287	
==>),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3111	3287	
==>),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3111	3287	
==>),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2793	2890	
==>ou might not be able to derive the 
plaintext from the result, but any cryptographer worth the nam <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2793	2890	
==>ou might not be able to derive the 
plaintext from the result, but any cryptographer worth the nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34623	34715	
==>HING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is the definition o <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1703	1805	
==>lf->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel... <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1703	1805	
==>lf->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel... <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18199	18292	
==>in the class I<outside> of embedded classes, so the class
C<[\w\d:4-65:]> will render as C<[\w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	992	1095	
==>tch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of wh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	992	1095	
==>tch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of wh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	992	1095	
==>tch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of wh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20584	20682	
==>jects.  All of
their class/object attributes are private, so you must use accessor
methods.  Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25136	25234	
==>jects.  All of
their class/object attributes are private, so you must use accessor
methods.  Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23706	23804	
==>jects.  All of
their class/object attributes are private, so you must use accessor
methods.  Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1493	1613	
==>UILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1493	1613	
==>UILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1493	1613	
==>UILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	339	456	
==>CH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	339	456	
==>CH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	339	456	
==>CH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4724	4862	
==>e, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4724	4862	
==>e, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4724	4862	
==>e, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32346	32444	
==>cific type of this object.

=item up

Whether this object goes into a shallower scope (like a CLOSE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6045	6140	
==>Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10302	10397	
==>Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	328	480	
==>sage;
    }

    method diag ( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3900	4017	
==>val { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4040	4157	
==>val { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::R <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1861	1986	
==>has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1861	1986	
==>has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2318	2425	
==>t 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2318	2425	
==>t 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2318	2425	
==>t 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3212	3320	
==>submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3212	3320	
==>submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype <==
3	/Users/nnunley/pugs/util/claim_drift.pl	134	235	
==>use a shared DrIFT,
# you need to point symlinks to the current one if you want to regenerate
# files. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19162	19267	
==>mber_the_lines($code)."\n");
}
sub eval_p5_code {
    my($code)=@_;
    eval_p5_log_code($code);    
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20878	20975	
==>ly
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25430	25527	
==>ly
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24658	24763	
==>branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21079	21184	
==>branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6326	6430	
==>Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2034	2137	
==>ldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2034	2137	
==>ldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2034	2137	
==>ldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13159	13329	
==>SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation::Example <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4207	4327	
==>}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4207	4327	
==>}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4207	4327	
==>}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alt <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4877	4975	
==>.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All ri <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4877	4975	
==>.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All ri <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	794	890	
==>easy(er).

# Bootstrap to a new, simpler, ast.  Regexp::Parser's
# Perl6::Rule::Parser does NOT l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1831	1984	
==>ame);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1831	1984	
==>ame);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permut <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12182	12306	
==>{$_[0]} },
      scalar_non_numeric => sub { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2661	2769	
==>)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2661	2769	
==>)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2661	2769	
==>)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4676	4777	
==>etta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual ma <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4676	4777	
==>etta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual ma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8336	8437	
==>f($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9957	10071	
==>hc_pkg} = $ghc_pkg;
}


sub fixpaths {
    my $self = shift;
    my $text = shift;
    my $sep = File::Spec->catdir <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28441	28537	
==>he C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Test::Harness tests i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8907	9122	
==>e( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8907	9122	
==>e( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8907	9122	
==>e( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7371	7465	
==>>($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7371	7465	
==>>($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7371	7465	
==>>($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22943	23113	
==>= @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22943	23113	
==>= @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22943	23113	
==>= @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14100	14245	
==>ass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14100	14245	
==>ass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14100	14245	
==>ass methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_nam <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2022	2144	
==>t.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2022	2144	
==>t.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2102	2224	
==>t.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_dia <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3807	3903	
==>x:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3807	3903	
==>x:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16079	16194	
==>my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16079	16194	
==>my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16079	16194	
==>my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	97	192	
==>that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxim <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	97	192	
==>that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxim <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	465	688	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	465	688	
==>y'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23451	23547	
==>eturn_CODE {
    my($code)=@_;
    '(try { '.$code.' } catch Perl6::Run::OnPerl5::X1::Api::Except <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11738	11872	
==>0]) })
        : $node
}

package DynamicScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2596	2728	
==>roperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # C <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2596	2728	
==>roperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # C <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6456	6572	
==>pkg =~ s!/!::!g;

        # If we have a mixed-case package name, assume case has been preserved
        # correctly. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9022	9116	
==>osetta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9022	9116	
==>osetta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11536	11713	
==>re->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12857	13024	
==>re->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new(' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15287	15452	
==>re->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3178	3320	
==>utovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3178	3320	
==>utovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3178	3320	
==>utovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8888	9089	
==>kage )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### rem <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1749	1877	
==>{
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1749	1877	
==>{
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-ur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5913	6040	
==>_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5913	6040	
==>_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5913	6040	
==>_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	116	261	
==>ate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	116	261	
==>ate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	116	261	
==>ate_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cla <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	654	774	
==>lass;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5279	5374	
==>enting the configuration data

=item write

The C<write> method the file for the properties, and <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5279	5374	
==>enting the configuration data

=item write

The C<write> method the file for the properties, and <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	539	635	
==>s. jibs/ if
not specified.

=item index

Path to the index directory. default: $root/dists

=item <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1193	1288	
==>y_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respons <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1193	1288	
==>y_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@respons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	473	584	
==>IL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	473	584	
==>IL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	473	584	
==>IL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	169	291	
==>ct;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	169	291	
==>ct;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	169	291	
==>ct;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1320	1438	
==>$self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1320	1438	
==>$self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1320	1438	
==>$self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @js <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38220	38321	
==>compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42769	42870	
==>compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42419	42520	
==>compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9285	9435	
==>sults{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason},
                    skip_all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14547	14703	
==>d => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14547	14703	
==>d => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14547	14703	
==>d => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @list <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4307	4410	
==>handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1433	1536	
==>handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	761	869	
==>tems);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	761	869	
==>tems);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2664	2757	
==>e C<$Test::Harness::switches> is exportable and can be
used to set perl command line options u <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8228	8336	
==>$x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x).']';
    } elsif <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11185	11275	
==>xt/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11185	11275	
==>xt/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11843	11934	
==>al_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11843	11934	
==>al_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11843	11934	
==>al_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2516	2620	
==>ink_info;
my $total_links;
my $total_files;
my $syn_indexs;
my @syn;

my $help;
my $no_designdocs;
GetOpt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18964	19056	
==>adonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18964	19056	
==>adonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	99	236	
==>only" 
method clear () {
    $.x = 0;  # accessible within the class
    $.y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1986	2101	
==>[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1986	2101	
==>[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18059	18200	
==>xt; }
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19114	19211	
==>ords, this user
text is *part of the program*, and not the program's users' own data; only
someone <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19114	19211	
==>ords, this user
text is *part of the program*, and not the program's users' own data; only
someone <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8806	8908	
==>tree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's dept <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8806	8908	
==>tree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's dept <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	259	342	
==>fe::Flatten->new->reduce(
		Blondie::TypeSafe::Annotator->new->annotate($runtime, $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5916	6060	
==>]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5916	6060	
==>]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5916	6060	
==>]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4747	4852	
==>::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4747	4852	
==>::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4747	4852	
==>::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	552	721	
==>onstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	552	721	
==>onstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1395	1495	
==>c = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1395	1495	
==>c = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1395	1495	
==>c = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    retu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	727	851	
==>rns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   } <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1647	1744	
==>eturn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersectio <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1647	1744	
==>eturn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersectio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	883	991	
==>X - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	883	991	
==>X - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	883	991	
==>X - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10092	10179	
==>nt ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef", <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10827	10914	
==>nt ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef", <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18412	18497	
==><AssignmentExpression> <':'> <AssignmentExpression>
}
rule ConditionalExpressionNoIn : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	96	204	
==>erl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	96	204	
==>erl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	96	204	
==>erl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5105	5212	
==>ional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains tw <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5105	5212	
==>ional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains tw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7302	7409	
==>ional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains tw <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3912	4073	
==>_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3912	4073	
==>_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_sp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3367	3496	
==>'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	942	1056	
==>d.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	942	1056	
==>d.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	942	1056	
==>d.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3657	3794	
==>turn $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3797	3934	
==>turn $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1797	1890	
==>r =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok !~ /[y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6358	6496	
==>:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6358	6496	
==>:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6358	6496	
==>:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22886	22977	
==>terface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22886	22977	
==>terface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	796	934	
==>l})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	796	934	
==>l})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	796	934	
==>l})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1282	1399	
==>:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1282	1399	
==>:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1282	1399	
==>:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3216	3323	
==>s copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3216	3323	
==>s copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	35	142	
==>end for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	35	142	
==>end for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	35	142	
==>end for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28384	28478	
==>apped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32936	33030	
==>apped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32064	32158	
==>apped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	25	118	
==>Blondie::Backend::Perl::Compiler;
use base qw/Blondie::Compiler/;

__PACKAGE__;

__END__

=pod <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1451	1594	
==>tall the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6263	6359	
==>not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<pars <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6263	6359	
==>not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4666	4786	
==>re ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4666	4786	
==>re ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4666	4786	
==>re ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1657	1753	
==>y($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1657	1753	
==>y($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1657	1753	
==>y($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5100	5212	
==>B take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5100	5212	
==>B take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5100	5212	
==>B take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3669	3798	
==>hey'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3669	3798	
==>hey'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3669	3798	
==>hey'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6444	6543	
==>be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30190	30286	
==>ith spaces in the filename work.

Keeping whittling away at _run_all_tests()

Clean up how the su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6237	6332	
==>be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	82	180	
==>sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return & <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	46	144	
==>sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	134	232	
==>sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5406	5504	
==>ink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5406	5504	
==>ink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5406	5504	
==>ink a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6295	6401	
==>ntent ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6295	6401	
==>ntent ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35551	35656	
==>od has aliases
named C<where> and C<grep>.

=item C<union (Relation::Example $other!) returns Relation::Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13330	13451	
==>ss) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13330	13451	
==>ss) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13330	13451	
==>ss) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1765	1859	
==>$one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1765	1859	
==>$one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3045	3185	
==>b new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3045	3185	
==>b new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3045	3185	
==>b new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1376	1479	
==>{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1376	1479	
==>{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1376	1479	
==>{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12073	12167	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12131	12225	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	64	171	
==>er::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	57	158	
==>er::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	57	158	
==>er::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38681	38775	
==>All
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" no <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38681	38775	
==>All
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9856	9964	
==>string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	292	397	
==>string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	292	397	
==>string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33392	33588	
==>p;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33392	33588	
==>p;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33392	33588	
==>p;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2618	2733	
==>ersion)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2618	2733	
==>ersion)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2618	2733	
==>ersion)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6319	6428	
==>_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rul <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6319	6428	
==>_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rul <==
3	/Users/nnunley/pugs/util/func_refact.pl	98	197	
==>qw(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	740	938	
==>" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38005	38129	
==>if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38005	38129	
==>if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38005	38129	
==>if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2512	2628	
==>ived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expect <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2512	2628	
==>ived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2592	2708	
==>ived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	998	1104	
==>e've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	998	1104	
==>e've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	998	1104	
==>e've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2618	2732	
==>m::is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	165	269	
==>her := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	165	269	
==>her := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18896	19021	
==>=> p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18896	19021	
==>=> p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18896	19021	
==>=> p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1816	1909	
==>o add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1816	1909	
==>o add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1816	1909	
==>o add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4054	4174	
==>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4054	4174	
==>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4054	4174	
==>($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	126	238	
==>IB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[chec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	131	242	
==>IB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[chec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	129	240	
==>IB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[chec <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	268	383	
==>%$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( ke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	268	383	
==>%$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( ke <==
3	/Users/nnunley/pugs/util/package-osx.pl	4464	4561	
==>3/Perl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	312	483	
==>($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	312	483	
==>($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	554	680	
==>trols.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	554	680	
==>trols.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matc <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1226	1336	
==>e "copy: $!";
        print <<".";
*** Default build config file created.
    You can edit some settings in $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3276	3398	
==>6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3276	3398	
==>6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3276	3398	
==>6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13679	13877	
==>ist,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13679	13877	
==>ist,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13679	13877	
==>ist,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9271	9388	
==>$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9271	9388	
==>$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9271	9388	
==>$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1488	1617	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1488	1617	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1488	1617	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1909	2011	
==>tf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1909	2011	
==>tf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1909	2011	
==>tf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	792	887	
==>tent.

The constructor for this class has a special shortcut syntax compared
to normal C<Perldoc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	792	887	
==>tent.

The constructor for this class has a special shortcut syntax compared
to normal C<Perldoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	993	1093	
==>me => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	993	1093	
==>me => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6634	6733	
==>$from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6634	6733	
==>$from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6634	6733	
==>$from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4097	4247	
==>, '\n');
  });

  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\n", '\N') if $cc;
    return <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	482	608	
==>e>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	482	608	
==>e>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5551	5648	
==>JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15803	15898	
==>equest conditional.  If the requested
resource has (or has not) been modified since the time spe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15803	15898	
==>equest conditional.  If the requested
resource has (or has not) been modified since the time spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14593	14690	
==>SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14593	14690	
==>SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14593	14690	
==>SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4238	4338	
==>n undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4238	4338	
==>n undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4238	4338	
==>n undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13906	14066	
==>get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13906	14066	
==>get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13906	14066	
==>get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	167	267	
==>atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	167	267	
==>atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	167	267	
==>atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14155	14245	
==>meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14155	14245	
==>meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14155	14245	
==>meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2105	2242	
==>bly be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2105	2242	
==>bly be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2105	2242	
==>bly be ignored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2644	2759	
==>ze([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2644	2759	
==>ze([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2991	3106	
==>ze([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4490	4587	
==>w Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( St <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4490	4587	
==>w Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( St <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6014	6111	
==>w Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	232	332	
==>NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1090	1190	
==>NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inv <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18429	18514	
==>used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhost <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18429	18514	
==>used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhost <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	972	1073	
==>LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	972	1073	
==>LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	972	1073	
==>LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	215	326	
==>omparable';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # default to empty s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1892	1995	
==>Thunk;
    use base 'Blondie::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10480	10651	
==>([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6821	6992	
==>([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7670	7841	
==>([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9606	9718	
==>y $br = $self->{rx}->object($self->type);
      $br->omit(1);
      for (reverse @{ $self->data }) {
        unsh <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5762	5870	
==>rns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5762	5870	
==>rns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13897	14025	
==>anonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13897	14025	
==>anonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13897	14025	
==>anonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	883	1015	
==>c,$val) = each %$args ) {
        $self->$acc( $val );
    }

    unless( $meta or $meta = $self->extract_meta_object ) {
        ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14487	14584	
==>lly uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14487	14584	
==>lly uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1215	1432	
==>ze);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=ite <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1215	1432	
==>ze);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=ite <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17529	17666	
==>(@classes,$ROOT);

    my $code = "";
    $code .= "package $ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15152	15268	
==>ap{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15152	15268	
==>ap{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15152	15268	
==>ap{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8431	8542	
==>t<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8431	8542	
==>t<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for % <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23442	23535	
==>g classes can
optionally override these operators with versions that are more specific to
thei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	269	369	
==>ss, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	269	369	
==>ss, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	269	369	
==>ss, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4295	4405	
==>MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4295	4405	
==>MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4295	4405	
==>MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XX <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3443	3551	
==>var {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3443	3551	
==>var {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2626	2728	
==>toboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2626	2728	
==>toboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2626	2728	
==>toboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22085	22186	
==>rom_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22085	22186	
==>rom_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22085	22186	
==>rom_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26567	26666	
==>* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3674	3767	
==>equire 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3891	3984	
==>equire 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1731	1837	
==>= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1731	1837	
==>= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1731	1837	
==>= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Num <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34383	34589	
==>t('$dispatcher')->do());             
                block->new($e, sub {
                    $e->get('$next')
                      ->id
                      ->equal_to(
                          $e->get( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	604	721	
==>intro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <s <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	604	721	
==>intro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26247	26346	
==>l's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30799	30898	
==>l's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29792	29891	
==>l's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2803	2992	
==>oxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2803	2992	
==>oxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2803	2992	
==>oxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3343	3472	
==>ss);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3343	3472	
==>ss);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3343	3472	
==>ss);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4808	4974	
==>] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4658	4820	
==>] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36947	37053	
==>$self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_handler('&' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14012	14121	
==>her;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14012	14121	
==>her;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14012	14121	
==>her;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-me <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	494	595	
==>pdf

# please note that this is nothingmuch's first article that he read from cover
# to cover with no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31393	31492	
==>e first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be di <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31393	31492	
==>e first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1278	1395	
==>ubname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1268	1376	
==>ubname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11803	11906	
==>:Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy construc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7192	7288	
==>me == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7192	7288	
==>me == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7192	7288	
==>me == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2043	2158	
==>y(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2043	2158	
==>y(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2043	2158	
==>y(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	887	1019	
==>hen we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	887	1019	
==>hen we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	887	1019	
==>hen we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11308	11426	
==>ys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11308	11426	
==>ys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11308	11426	
==>ys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2147	2297	
==>= show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2147	2297	
==>= show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2147	2297	
==>= show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludep <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16505	16659	
==>!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19982	20136	
==>!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19542	19696	
==>!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12970	13206	
==>) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12970	13206	
==>) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12970	13206	
==>) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	277	400	
==>->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	277	400	
==>->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	277	400	
==>->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33229	33329	
==>d in the order
they appear in this array until a match for that message is found.  Since a
program or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33229	33329	
==>d in the order
they appear in this array until a match for that message is found.  Since a
program or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35542	35634	
==>This method has aliases
named C<where> and C<grep>.

=item C<union (Relation::Example $other! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3610	3737	
==>te->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3861	3984	
==>te->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3861	3984	
==>te->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	167	307	
==>x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	167	307	
==>x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	167	307	
==>x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4458	4548	
==>valX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4458	4548	
==>valX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4458	4548	
==>valX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6305	6410	
==>}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insuff <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6305	6410	
==>}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insuff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21002	21097	
==>do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21002	21097	
==>do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21002	21097	
==>do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1399	1553	
==>$ccset;
        for my $f (keys %$ccset) {
#            $ccset->{$_} = 1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2489	2586	
==>ar();

=head1 DESCRIPTION

An object of this class represents the query string portion of a reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2489	2586	
==>ar();

=head1 DESCRIPTION

An object of this class represents the query string portion of a reques <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	437	555	
==>s Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe] <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	437	555	
==>s Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe] <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11184	11292	
==>new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31338	31526	
==>lems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31338	31526	
==>lems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31338	31526	
==>lems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12550	12674	
==>roak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12550	12674	
==>roak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12550	12674	
==>roak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
pa <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7085	7207	
==>.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7513	7606	
==>sechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchun <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7513	7606	
==>sechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	285	386	
==>le(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	285	386	
==>le(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	285	386	
==>le(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, . <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21867	21977	
==>tr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?( <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	670	769	
==>code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 s <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	670	769	
==>code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30918	31014	
==>y
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35468	35564	
==>y
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34659	34755	
==>y
tuple/Mapping or a tuple that is identical to the original, in which case
this method returns t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5128	5239	
==>s;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5128	5239	
==>s;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5128	5239	
==>s;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2756	2878	
==>my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2756	2878	
==>my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2756	2878	
==>my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	808	949	
==>ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	808	949	
==>ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1582	1679	
==>ule.  Any further efforts should likely take place there.

# Some raw development notes appear aft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2491	2629	
==>($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2491	2629	
==>($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2491	2629	
==>($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3027	3126	
==>{ $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3027	3126	
==>{ $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3027	3126	
==>{ $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1102	1197	
==>rn '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1102	1197	
==>rn '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2421	2555	
==>is will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2421	2555	
==>is will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2421	2555	
==>is will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2911	3017	
==>ue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2911	3017	
==>ue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2911	3017	
==>ue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	519	625	
==>epr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	519	625	
==>epr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	519	625	
==>epr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39429	39540	
==>->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39429	39540	
==>->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39429	39540	
==>->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1372	1468	
==><=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1372	1468	
==><=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1372	1468	
==><=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4068	4206	
==>=> '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4068	4206	
==>=> '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4166	4273	
==>0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4166	4273	
==>0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4166	4273	
==>0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	379	501	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	379	501	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	379	501	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5305	5411	
==>hift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5305	5411	
==>hift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5305	5411	
==>hift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10786	10905	
==>ssary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10786	10905	
==>ssary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10786	10905	
==>ssary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable arr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	571	689	
==>cal;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    subme <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	571	689	
==>cal;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    subme <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34925	35030	
==>ional operator that returns a new Relation::Example
which has a subset of the original's tuples, and it wo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9754	9898	
==>mplemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9754	9898	
==>mplemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	267	362	
==>s Perl::Type::Junctive isa Perl::Type;

# junctive types can only be disjunctions and conjunctio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8304	8464	
==>', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12253	12376	
==>', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12253	12376	
==>', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling su <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7383	7479	
==>rintf(stderr,"hook_regcompp punt.\n");
    return previous_comp_hook(aTHX_ exp,xend,pm);
  }

  { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	643	733	
==>ead2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	643	733	
==>ead2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciph <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	582	714	
==>ef()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	582	714	
==>ef()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16095	16304	
==>ar(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16374	16583	
==>ar(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8650	8834	
==>tion( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12127	12311	
==>tion( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15189	15297	
==>based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14999	15094	
==>ssword) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14999	15094	
==>ssword) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	144	265	
==>local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	144	265	
==>local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	144	265	
==>local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5105	5218	
==>oop = $o->noop;
    sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7212	7316	
==>ASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7212	7316	
==>ASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9235	9321	
==>---------------------------------------------------------------

This is a rough sketch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9235	9321	
==>---------------------------------------------------------------

This is a rough sketch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9235	9321	
==>---------------------------------------------------------------

This is a rough sketch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1292	1423	
==>=> \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We are the main <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4272	4372	
==>ion? )>

Compares the receivied and expected lines from the previously run tests,
passing if both the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4272	4372	
==>ion? )>

Compares the receivied and expected lines from the previously run tests,
passing if both the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4352	4452	
==>ion? )>

Compares the receivied and expected lines from the previously run tests,
passing if both the <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7452	7572	
==>gs .= join(' ', grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6841	6950	
==>ess. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "" <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6899	7008	
==>ess. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4763	4881	
==>unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4763	4881	
==>unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4763	4881	
==>unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7108	7240	
==>type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7108	7240	
==>type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2395	2527	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2395	2527	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2395	2527	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4711	4806	
==>:$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4711	4806	
==>:$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15135	15261	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15135	15261	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15135	15261	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15507	15618	
==>(anyof_class => xdigit => $neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14889	14992	
==>OSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9089	9192	
==>OSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	899	1004	
==>! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	899	1004	
==>! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37179	37276	
==>n any situation where the heading of one source relation is a
full subset of another, the result d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41728	41825	
==>n any situation where the heading of one source relation is a
full subset of another, the result d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41351	41448	
==>n any situation where the heading of one source relation is a
full subset of another, the result d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11385	11502	
==>ject ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11385	11502	
==>ject ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11385	11502	
==>ject ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_appl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10950	11059	
==>rn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10950	11059	
==>rn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10950	11059	
==>rn undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13185	13293	
==>s_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13185	13293	
==>s_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13185	13293	
==>s_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8175	8294	
==>if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8175	8294	
==>if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8175	8294	
==>if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	958	1079	
==>r(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	958	1079	
==>r(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	958	1079	
==>r(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8469	8564	
==>S, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8469	8564	
==>S, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8469	8564	
==>S, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14686	14885	
==>attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18163	18362	
==>attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17579	17778	
==>attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_att <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32812	32904	
==>tuples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a gener <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37362	37454	
==>tuples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a gener <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2844	2957	
==>,  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2844	2957	
==>,  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2844	2957	
==>,  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11653	11751	
==>ss

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11653	11751	
==>ss

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5414	5514	
==>3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5414	5514	
==>3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5414	5514	
==>3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	77	226	
==>s export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	77	226	
==>s export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($valu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5702	5798	
==>!! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumbe <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	854	967	
==>s %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_default    = 'config.yml';
    my $config_t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13307	13401	
==>r
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13307	13401	
==>r
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2780	2933	
==>an
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$ru <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	533	668	
==>an
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$ru <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	533	668	
==>an
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	552	666	
==>to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	552	666	
==>to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	552	666	
==>to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3205	3321	
==>JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3205	3321	
==>JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3205	3321	
==>JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2335	2530	
==>nted";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2335	2530	
==>nted";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2335	2530	
==>nted";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12333	12474	
==>{
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2715	2850	
==>{
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2715	2850	
==>{
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1726	1824	
==>L::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1726	1824	
==>L::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1726	1824	
==>L::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2859	2965	
==>::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2859	2965	
==>::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2859	2965	
==>::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8089	8212	
==>.$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8089	8212	
==>.$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8089	8212	
==>.$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10080	10195	
==>dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10080	10195	
==>dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10080	10195	
==>dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_c <==
3	/Users/nnunley/pugs/util/config_h.pl	1942	2046	
==>emp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi");
    unlink("$temp.o") <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	291	392	
==>nings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performance <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	302	403	
==>nings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2967	3093	
==>ttribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2967	3093	
==>ttribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2967	3093	
==>ttribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5143	5249	
==>rs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8620	8726	
==>rs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11006	11109	
==>lue from Foo singleton/class method called by Bar');   

## make instances of subclasses

my $iBar = $Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	84	209	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	84	209	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	84	209	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1330	1418	
==>.= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1330	1418	
==>.= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1330	1418	
==>.= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5957	6086	
==>:opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5957	6086	
==>:opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5957	6086	
==>:opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigencl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	155	292	
==>Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	155	292	
==>Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            p <==
3	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	17	116	
==>12
role returns {
  has ReturnType $.returns;
  multi sub trait_verb:<returns>($container; ReturnTyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4858	4961	
==>om_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4858	4961	
==>om_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4858	4961	
==>om_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MUL <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15756	15883	
==>ut file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14021	14119	
==>ch value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14021	14119	
==>ch value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2430	2547	
==>onal $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2430	2547	
==>onal $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3158	3278	
==>Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Type <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3704	3824	
==>Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise Type <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1154	1257	
==>our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporarily for the use of $RE{balanced <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6263	6380	
==>must supply a name to get";    
    my $current = $self;
    while ($current) {
        return $current->{env}->{$name <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	508	613	
==>ap:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	508	613	
==>ap:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27885	27978	
==>m C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) asso <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27885	27978	
==>m C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) asso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2911	3015	
==>ee if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2911	3015	
==>ee if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29175	29269	
==>ey have already matched what they are
named.

The handle 'atom' is pre-consumptive (because the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11885	12043	
==>r
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2303	2447	
==>r
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2303	2447	
==>r
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	555	664	
==>e lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	555	664	
==>e lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	555	664	
==>e lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	226	354	
==>for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	226	332	
==>= '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	226	332	
==>= '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12814	12935	
==>ass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12814	12935	
==>ass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12814	12935	
==>ass object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         define <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10030	10127	
==>input, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
v <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10030	10127	
==>input, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
v <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4810	4964	
==>@new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4810	4964	
==>@new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	357	614	
==>in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	357	614	
==>in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of th <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24005	24094	
==>1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,T,T1).
ground_list([],_,[]).
groun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10856	11018	
==>et->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10856	11018	
==>et->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10856	11018	
==>et->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3479	3586	
==>./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3479	3586	
==>./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_co <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4549	4651	
==>h, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse-YAML', $TEMP_PRELUDE);
    $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4556	4651	
==>&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4556	4651	
==>&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5551	5666	
==>ined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5551	5666	
==>ined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5190	5312	
==>.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8667	8789	
==>.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7687	7809	
==>.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mappin <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9529	9649	
==>is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::reverse <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6027	6139	
==>x:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6027	6139	
==>x:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28859	29023	
==>ify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28859	29023	
==>ify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28859	29023	
==>ify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	406	531	
==>y ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	406	531	
==>y ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	406	531	
==>y ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4210	4329	
==>@$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4210	4329	
==>@$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4210	4329	
==>@$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_alter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1383	1495	
==>fined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1588	1700	
==>fined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1649	1761	
==>fined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2484	2581	
==>q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2484	2581	
==>q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	699	808	
==>gs) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This wil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	699	808	
==>gs) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This wil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	699	808	
==>gs) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This wil <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2385	2513	
==>um $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_s <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2385	2513	
==>um $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19014	19137	
==>est output: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($se <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8796	8897	
==>->can_run($ghc_pkg) || $self->can_run('ghc-pkg');

        # This above fails under cygwin with a Win3 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22491	22587	
==>elf["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyz <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23249	23334	
==>C|B0],B1,E0,E1).

rmGlobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	483	588	
==>_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Valid <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	483	588	
==>_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Valid <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3673	3775	
==>= &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11476	11679	
==>y' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11476	11679	
==>y' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11476	11679	
==>y' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12615	12717	
==>t $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Er <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12615	12717	
==>t $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Er <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12615	12717	
==>t $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Er <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2413	2545	
==>lt { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2413	2545	
==>lt { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40480	40574	
==>n you can access them via C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28151	28288	
==>thods:

=over 4

=item my $d = $obj->data()

The object's data.  This might be an array reference (for a 'branch'
node), another object (f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5895	6002	
==>revious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5895	6002	
==>revious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	746	849	
==>tr}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	746	849	
==>tr}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3153	3251	
==>unk';
node_a 'Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	83	183	
==>kage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    ble <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	83	183	
==>kage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    ble <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	83	183	
==>kage PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2391	2512	
==>e {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2391	2512	
==>e {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2391	2512	
==>e {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	0	111	
==>for <any all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	0	111	
==>for <any all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	0	111	
==>for <any all none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4265	4423	
==>' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4265	4423	
==>' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4265	4423	
==>' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5365	5482	
==>ke_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5365	5482	
==>ke_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5365	5482	
==>ke_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7016	7189	
==>| /^=cut/);  # skip pod text
                next if /^\s*#/;               # and comments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2876	2976	
==>iableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2876	2976	
==>iableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	399	510	
==>ject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	399	510	
==>ject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	399	510	
==>ject     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## --------------------- <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	764	911	
==>while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3022	3131	
==>nt, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3022	3131	
==>nt, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_con <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	644	755	
==>ogram => '$main' };

	$self->make_name($_) for @nodes;

	my $out = join("\n\n", map {
		my $name = $self->{names <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	859	967	
==>fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('l <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	859	967	
==>fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	907	998	
==>W-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-L <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	907	998	
==>W-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-L <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9645	9734	
==>(A)), "-", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_charset_item(class_pos(_)), <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2978	3111	
==>ite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2978	3111	
==>ite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self. <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5496	5589	
==>acket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5331	5495	
==>} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5331	5495	
==>} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5331	5495	
==>} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1329	1447	
==>length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1329	1447	
==>length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1329	1447	
==>length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3097	3222	
==>x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7164	7263	
==>node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7176	7275	
==>node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1], <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3653	3765	
==>can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3653	3765	
==>can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9576	9667	
==>tor::nullary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1682	1790	
==>CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1682	1790	
==>CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1682	1790	
==>CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4066	4173	
==>t you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4066	4173	
==>t you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4066	4173	
==>t you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9119	9265	
==>";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9119	9265	
==>";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9119	9265	
==>";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13959	14072	
==>2 Numbers' in the first of the four
        # languages that has a matching template available.
        print $tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13959	14072	
==>2 Numbers' in the first of the four
        # languages that has a matching template available.
        print $tra <==
3	/Users/nnunley/pugs/util/package-osx.pl	1847	1936	
==>perl5/site_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs.pl
        /usr/local/lib <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15948	16049	
==>e shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user.  I <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15948	16049	
==>e shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user.  I <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12634	12730	
==>lications, could be a bear.

  A source filter approach, while likely flakier (modulo memory issu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8432	8544	
==>=> sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8432	8544	
==>=> sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	750	877	
==>zed',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	750	877	
==>zed',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9500	9600	
==>sub { `strings $initrd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14465	14564	
==>irs().
	# We could do File::Spec->abs2rel() but that does getcwd()s,
	# which is a bit heavyweight t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	825	969	
==>6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2147	2257	
==>. '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2928	3038	
==>. '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2936	3074	
==>taModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2936	3074	
==>taModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2936	3074	
==>taModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autob <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21501	21846	
==>}
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation::Example -
Si <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2983	3087	
==>a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2983	3087	
==>a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1819	1929	
==>};
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1819	1929	
==>};
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1819	1929	
==>};
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2331	2469	
==>, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2331	2469	
==>, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2331	2469	
==>, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6510	6648	
==>e($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6510	6648	
==>e($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6510	6648	
==>e($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2633	2734	
==>un = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2633	2734	
==>un = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2633	2734	
==>un = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16757	16880	
==>>family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11221	11331	
==>defined($^N)?"\"$^N\"":"undef","\n";
END




__END__

=pod
Objective:

  Permit swapping in an alternate regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18947	19124	
==>ied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet ful <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18947	19124	
==>ied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet ful <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18947	19124	
==>ied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet ful <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18920	19018	
==>ile this could seem to make sense for e.g. the 'id' function, this won't work if we pass in $plus_t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11138	11232	
==>do, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Boo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11196	11290	
==>do, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6883	7007	
==>Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6883	7007	
==>Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6883	7007	
==>Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	792	910	
==>}
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http://mail.pyth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38319	38435	
==>=> undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38319	38435	
==>=> undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38319	38435	
==>=> undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1974	2104	
==>ool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1974	2104	
==>ool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3734	3871	
==>{ 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3734	3871	
==>{ 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3734	3871	
==>{ 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$c <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3892	3984	
==>y" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHan <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3892	3984	
==>y" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHan <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9045	9160	
==>s such, we have
        # a very special cygwin work-around.  Ugh!


        if (not $ghc_exe and $Config{osname} eq <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	224	323	
==>ote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is expor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	224	323	
==>ote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is expor <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1841	1936	
==>, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtrac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1841	1936	
==>, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtrac <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1275	1366	
==>l_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->r <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1275	1366	
==>l_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15509	15592	
==>e).

%----------------------------------------------------------------------

rm(noo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1512	1652	
==>\$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1512	1652	
==>\$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	832	942	
==>ance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	832	942	
==>ance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	832	942	
==>ance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1237	1335	
==>xed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1237	1335	
==>xed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1237	1335	
==>xed binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	892	983	
==>opeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	892	983	
==>opeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	892	983	
==>opeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19315	19416	
==>UBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19315	19416	
==>UBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4410	4530	
==>rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = @_;

  {
    i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	488	578	
==>,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	488	578	
==>,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5958	6059	
==>ler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22533	22625	
==>rovide some variable values to be
interpolated into the user strings; Locale::KeyedText would <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22533	22625	
==>rovide some variable values to be
interpolated into the user strings; Locale::KeyedText would <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1092	1256	
==>e == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1092	1256	
==>e == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1092	1256	
==>e == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2095	2209	
==>ODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2095	2209	
==>ODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2095	2209	
==>ODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tiea <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3818	3910	
==>turns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3818	3910	
==>turns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6015	6107	
==>turns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1561	1651	
==>rammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1561	1651	
==>rammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14115	14239	
==>XX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10288	10412	
==>XX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11124	11248	
==>XX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1928	2057	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1928	2057	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1928	2057	
==>args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	833	934	
==>.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	833	934	
==>.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	833	934	
==>.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unw <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18790	18885	
==>roducts) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18790	18885	
==>roducts) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1044	1188	
==>rservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1044	1188	
==>rservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2425	2565	
==>s => {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5190	5323	
==>\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5190	5323	
==>\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5190	5323	
==>\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7121	7240	
==>:generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7121	7240	
==>:generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7121	7240	
==>:generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      s <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	262	364	
==>e File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src', 'blib6/arch/CORE/pugs');
    c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12343	12442	
==>ent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like th <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12343	12442	
==>ent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	111	233	
==>ant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	111	233	
==>ant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	111	233	
==>ant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8792	8947	
==>oes not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for sp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8792	8947	
==>oes not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for sp <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7776	7880	
==>e "Couldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	273	374	
==>ber est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1801	1902	
==>ber est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	22	114	
==>Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	573	689	
==>) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) {
      printf STD <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13214	13310	
==>er to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13272	13368	
==>er to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17014	17203	
==>= 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17014	17203	
==>= 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17014	17203	
==>= 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35611	35709	
==>en

Types: open1, open2 ... openN (C<(>)

Data: array reference of any number of objects

Ender: I< <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7224	7311	
==>--------------------------------------------------
## traversal

method traverse ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7224	7311	
==>--------------------------------------------------
## traversal

method traverse ($self: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5291	5393	
==>passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5291	5393	
==>passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6815	6917	
==>passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12567	12734	
==>tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12567	12734	
==>tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12567	12734	
==>tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8746	8850	
==>sts_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8804	8908	
==>sts_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6160	6275	
==>tch = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6160	6275	
==>tch = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1191	1293	
==>n body closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to obj <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1138	1237	
==>n body closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4076	4188	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4076	4188	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4076	4188	
==>ve {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5745	5873	
==>h2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialize <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5745	5873	
==>h2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialize <==
3	/Users/nnunley/pugs/util/run-smoke.pl	602	699	
==>ndbox location";
my $html_location   = $ARGV[1] or die "Need HTML output file location";
my $optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2452	2563	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2452	2563	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2452	2563	
==>ake_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3061	3242	
==>);
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3061	3242	
==>);
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18783	18915	
==>$@, $!);  # eval sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10523	10646	
==>h the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> $a->v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20488	20581	
==>botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20488	20581	
==>botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3806	3933	
==>}

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # Ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3806	3933	
==>}

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # Ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3806	3933	
==>}

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # Ne <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4427	4562	
==>neCommentChar {  # see 7.4
      <!before <LineTerminator>> <SourceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Iden <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11575	11666	
==>on will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11633	11724	
==>on will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Tes <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22852	22975	
==>("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15249	15364	
==>nd) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!buck <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15249	15364	
==>nd) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!buck <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10021	10127	
==>r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10021	10127	
==>r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10021	10127	
==>r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1027	1219	
==>t };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = ca <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1027	1219	
==>t };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = ca <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12822	12953	
==>y $tres = $test_results->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2945	3065	
==>n_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate usern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2945	3065	
==>n_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate usern <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9782	9889	
==>= $results{skip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	167	280	
==>EGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	167	280	
==>EGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	167	280	
==>EGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1059	1173	
==>et_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1059	1173	
==>et_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1059	1173	
==>et_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantia <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2746	2838	
==>ew(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2746	2838	
==>ew(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40300	40414	
==>sh {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40300	40414	
==>sh {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40300	40414	
==>sh {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5606	5722	
==>d { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5606	5722	
==>d { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5606	5722	
==>d { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1888	1991	
==>reason, directly returning this expression does not
    # yield the correct return value.

    say "Comp <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1888	1991	
==>reason, directly returning this expression does not
    # yield the correct return value.

    say "Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5565	5682	
==>->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5565	5682	
==>->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6155	6272	
==>->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21013	21104	
==>rE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21013	21104	
==>rE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<ch <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16263	16402	
==>+$//g;;
            $heading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$headi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5236	5356	
==>$dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5236	5356	
==>$dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num) <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1915	2032	
==>add anomalies
    # to each event.
    # Note that I use the test number for reference, which will
    # blow up in ou <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	773	874	
==>False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_clo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	773	874	
==>False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_clo <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1656	1809	
==>nd return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Faile <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1656	1809	
==>nd return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Faile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5735	5868	
==>. _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2063	2160	
==>eludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2063	2160	
==>eludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2063	2160	
==>eludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1026	1149	
==>{
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1026	1149	
==>{
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1026	1149	
==>{
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8255	8409	
==>= 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8255	8409	
==>= 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8255	8409	
==>= 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25854	25950	
==>vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25854	25950	
==>vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5504	5636	
==>-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, $class;
  }
}


{
  pac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7172	7289	
==>}

        # Try to fetch template text for the given message key from the
        # successfully loaded template modu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7172	7289	
==>}

        # Try to fetch template text for the given message key from the
        # successfully loaded template modu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1658	1786	
==>+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1658	1786	
==>+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9294	9413	
==>ub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9282	9401	
==>ub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32399	32594	
==>mp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32399	32594	
==>mp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32399	32594	
==>mp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14250	14383	
==>y Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $! <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14250	14383	
==>y Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $! <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11519	11644	
==>s unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::In <==
3	/Users/nnunley/pugs/util/drift.pl	396	553	
==>n.tmp" or die "Cannot open $out: $!";

open IN, $in or die $!;
while (<IN>) {
    if (/\{-!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:da <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1274	1367	
==>ers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1274	1367	
==>ers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @header <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22491	22738	
==>) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22491	22738	
==>) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22491	22738	
==>) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8309	8420	
==>ass.new( testplan => $plan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	963	1070	
==>l every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	926	1028	
==>l every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2866	2959	
==>ied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2866	2959	
==>ied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2866	2959	
==>ied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0 <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1954	2057	
==>oth kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$pr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2834	2937	
==>oth kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8563	8650	
==>) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x", p5_modifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2802	2911	
==>" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2802	2911	
==>" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2802	2911	
==>" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15015	15199	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15015	15199	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15015	15199	
==>nstance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14267	14388	
==>rn "test.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4904	5006	
==>" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4904	5006	
==>" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4904	5006	
==>" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33586	33712	
==>ength, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33586	33712	
==>ength, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33586	33712	
==>ength, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4089	4224	
==>$#rules ) {
        last unless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i != $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3421	3528	
==>s used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3421	3528	
==>s used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	219	341	
==>shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	219	341	
==>shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	219	341	
==>shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be n <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	210	347	
==>./lib';
# }
#
# t/TEST will use -MTestInit.  You may "use TestInit" in the test
# programs but it is not required.
#
# P.S. This doc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21343	21442	
==>ew(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44250	44349	
==>ew(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->ge <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7488	7592	
==>q")){
			my @children_of_seq = $child->values; # the children of the seq child of the thunk
			my $last = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16335	16430	
==>s defined mainly in terms of a new high-level
programming language named "Rosetta D", which is c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16335	16430	
==>s defined mainly in terms of a new high-level
programming language named "Rosetta D", which is c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2562	2675	
==>ge 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2562	2675	
==>ge 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2562	2675	
==>ge 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5772	5925	
==>class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5772	5925	
==>class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5772	5925	
==>class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17879	17978	
==>UB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17879	17978	
==>UB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17879	17978	
==>UB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0, <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4528	4653	
==>aramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNamed">,    %pad<"isOptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16838	16932	
==>le.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<u <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16838	16932	
==>le.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<u <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10095	10184	
==>ref="http://svn.openfoundry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	647	752	
==>+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	647	752	
==>+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	647	752	
==>+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9297	9429	
==>ple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10103	10235	
==>ple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11018	11150	
==>ple {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	844	949	
==>nt(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	844	949	
==>nt(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	844	949	
==>nt(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11444	11549	
==>eturn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11444	11549	
==>eturn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11444	11549	
==>eturn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	376	480	
==>i's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	376	480	
==>i's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	376	480	
==>i's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1	99	
==>ackage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSIO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1	99	
==>ackage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSIO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1	99	
==>ackage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2849	2947	
==>->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2849	2947	
==>->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2849	2947	
==>->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	500	592	
==>ER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	500	592	
==>ER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	500	592	
==>ER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15532	15708	
==>xed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15532	15708	
==>xed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15532	15708	
==>xed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7592	7719	
==>$class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7592	7719	
==>$class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7592	7719	
==>$class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	212	313	
==>ILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($iden <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	212	313	
==>ILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($iden <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6650	6744	
==>|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new(@args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11059	11207	
==>es6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11059	11207	
==>es6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11059	11207	
==>es6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1539	1664	
==>ms) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1539	1664	
==>ms) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10453	10562	
==>:constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1587	1715	
==>ure( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1598	1726	
==>ure( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_gr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3513	3621	
==>v;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($flags)?" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8235	8353	
==>_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4890	4984	
==>eturn $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5234	5328	
==>eturn $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2080	2183	
==>ority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2080	2183	
==>ority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2080	2183	
==>ority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $bo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9249	9368	
==>2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9307	9426	
==>2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16386	16481	
==>s the macros C<\w>, C<\d>, etc.  Then this
example would be reversed into something like C</(\w+ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	413	542	
==>put = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for r <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	413	542	
==>put = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	722	828	
==>effort than was hoped, it became uninteresting
# as a perl6 bootstrap path, which was the objective.

# Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5368	5459	
==>d->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5368	5459	
==>d->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5958	6049	
==>d->{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12563	12685	
==>ed variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12563	12685	
==>ed variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12563	12685	
==>ed variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6648	6777	
==>>{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6648	6777	
==>>{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6648	6777	
==>>{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	13	104	
==><http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	13	104	
==><http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	13	104	
==><http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2100	2208	
==>and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2100	2208	
==>and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2100	2208	
==>and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1269	1366	
==>kage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1269	1366	
==>kage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1269	1366	
==>kage VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4360	4464	
==>nal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4360	4464	
==>nal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4950	5054	
==>nal;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3483	3632	
==>y @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3483	3632	
==>y @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3483	3632	
==>y @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	225	333	
==>alse) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	225	333	
==>alse) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	225	333	
==>alse) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.C <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1271	1413	
==>ee as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1271	1413	
==>ee as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6590	6699	
==>$env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=head1 NAME

closure - the core closure type

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14230	14322	
==>::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'insta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14230	14322	
==>::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'insta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14230	14322	
==>::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'insta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3161	3255	
==>&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3354	3448	
==>&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1687	1768	
==>--------------------------------------------------------------------------
END_MES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5205	5310	
==>there has to be only one input file.
In linking mode, multiple input files may be specified. If a filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5205	5310	
==>there has to be only one input file.
In linking mode, multiple input files may be specified. If a filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5205	5310	
==>there has to be only one input file.
In linking mode, multiple input files may be specified. If a filename <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9241	9380	
==>st::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descriptio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1363	1496	
==>st::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1363	1496	
==>st::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descriptio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10822	10955	
==>tatement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11101	11234	
==>tatement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6989	7095	
==>$n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14074	14209	
==>{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14074	14209	
==>{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14074	14209	
==>{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5630	5717	
==>lete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5630	5717	
==>lete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3937	4041	
==>() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9255	9341	
==>ar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3080	3166	
==>ar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	263	400	
==>ant);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	263	400	
==>ant);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	263	400	
==>ant);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	266	395	
==>rt $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	266	395	
==>rt $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	266	395	
==>rt $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jscl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3748	3853	
==>>warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_object(anyof_char => 'G') if $c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5692	5790	
==>ng for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5692	5790	
==>ng for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20731	20825	
==>mkdir open opendir pipe print printf read readdir readline
# readlink readpipe recv rename rewi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	96	185	
==>it';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	227	316	
==>it';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11095	11253	
==>! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1569	1711	
==>! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1569	1711	
==>! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8198	8341	
==>universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8198	8341	
==>universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	730	840	
==>s export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	730	840	
==>s export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	124	259	
==>(args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	124	259	
==>(args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	124	259	
==>(args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1865	2064	
==>$flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1804	1996	
==>$flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state-> <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1132	1228	
==>non_alternation>+? }
rule non_conjunction { <repetition> | <alias> | <simple_term> }

rule repeti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7787	7888	
==>the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7787	7888	
==>the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7787	7888	
==>the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8000	8142	
==>ods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorec <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	809	905	
==>gs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m) <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	809	905	
==>gs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23748	23845	
==>library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22264	22361	
==>library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set o <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	328	419	
==>only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.junc_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24145	24274	
==>rn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24145	24274	
==>rn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24145	24274	
==>rn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1211	1361	
==>d not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub joi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1211	1361	
==>d not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	923	1036	
==>@vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	923	1036	
==>@vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	923	1036	
==>@vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29565	29663	
==>it; it has already been consumed.

If you created a handle for '&&' without a predecessor, you woul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	815	908	
==>rates on whole bytes, XORing elements of a constantly-transforming 
state table with each byte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	815	908	
==>rates on whole bytes, XORing elements of a constantly-transforming 
state table with each byte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18840	18964	
==>br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20198	20322	
==>br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} <==
3	/Users/nnunley/pugs/util/package-osx.pl	5608	5705	
==>iew.3
        /usr/local/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	957	1061	
==>lly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	957	1061	
==>lly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	957	1061	
==>lly load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1798	1905	
==>SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1798	1905	
==>SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1798	1905	
==>SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") { <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	470	565	
==>eturns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_MET <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	470	565	
==>eturns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_MET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1832	1930	
==>=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1832	1930	
==>=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1832	1930	
==>=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2715	2845	
==>od to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2715	2845	
==>od to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1709	1863	
==>URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1709	1863	
==>URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value i <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3358	3481	
==>-|
    Pugs System Configuration.

>   Alive without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	752	876	
==>param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	752	876	
==>param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14497	14621	
==>$@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->compile( ' . _emit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4069	4180	
==>e @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$k <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4069	4180	
==>e @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	842	949	
==>ited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	842	949	
==>ited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	849	977	
==>e zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4327	4455	
==>e zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3221	3349	
==>e zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	214	330	
==>t = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&x <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5987	6090	
==>el document in which we store some local
    # command definitions and fragments thereof.
    my Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5987	6090	
==>el document in which we store some local
    # command definitions and fragments thereof.
    my Rosetta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9312	9414	
==>ndler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9312	9414	
==>ndler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconne <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	130	225	
==>bhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Perl 6 nur noch vom <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27180	27274	
==>Str) of Code $attrs!) returns Relation>

This method is a generic relational operator that retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31732	31826	
==>Str) of Code $attrs!) returns Relation>

This method is a generic relational operator that retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12847	12952	
==>tcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12847	12952	
==>tcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12847	12952	
==>tcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1970	2088	
==>ilename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1970	2088	
==>ilename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1970	2088	
==>ilename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3253	3402	
==>_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3253	3402	
==>_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
} <==
3	/Users/nnunley/pugs/util/testgraph.pl	306	403	
==>);
usage() if $Config{help};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1604	1746	
==>acter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1604	1746	
==>acter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3702	3808	
==>l reduce all the children of the top level App into

    ( Thunk(...), 10 )

At which point the App will pu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5980	6094	
==>: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5980	6094	
==>: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" un <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13405	13504	
==>es maintenance concerns.
  That said, the use of internals is rather limited, and in a rather
  stab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13478	13693	
==>her;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13478	13693	
==>her;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13478	13693	
==>her;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-dept <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2913	3008	
==>ods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2913	3008	
==>ods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2913	3008	
==>ods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9602	9712	
==>erl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9602	9712	
==>erl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9602	9712	
==>erl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2826	2924	
==>ke_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2826	2924	
==>ke_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2826	2924	
==>ke_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:att <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25108	25230	
==>lags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    } <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3133	3235	
==>subscriptions (Class::Publisher::Event::Named $event) {
            # an optimizing lookup for named ev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3436	3528	
==>sible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3436	3528	
==>sible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods a <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	452	566	
==>torial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	452	566	
==>torial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	365	475	
==>ay(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5105	5223	
==>e () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5105	5223	
==>e () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5105	5223	
==>e () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8368	8503	
==>[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8368	8503	
==>[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	26	138	
==>::round_half_up_symmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, down below 0
    given abs($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	97	187	
==>--------------------------------------------------------
## now for some bootstrapping .... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	97	187	
==>--------------------------------------------------------
## now for some bootstrapping .... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	97	187	
==>--------------------------------------------------------
## now for some bootstrapping .... <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29915	30074	
==>hift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascend <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11105	11227	
==>ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11099	11221	
==>ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1157	1275	
==>ave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1157	1275	
==>ave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1157	1275	
==>ave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4983	5173	
==>) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4995	5185	
==>) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15660	15752	
==>complain = sub { Carp::carp("p6_perl6_objects_from_whatever called on $_[0]"); undef };
my %a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3784	3902	
==>d;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3784	3902	
==>d;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3784	3902	
==>d;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12945	13048	
==>urn value.  In that event, it may not
  be possible to get a plausibly scoped alternative working.

  Us <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3954	4059	
==>ldren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        | <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3954	4059	
==>ldren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        | <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5391	5495	
==>f(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exechook_insert ()
{
  if(previous_ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2503	2701	
==>ed $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2503	2701	
==>ed $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6031	6126	
==>s in L<"USAGE">.

=head1 WARNING

This is version B<0.022b>.  The documentation is (still) incom <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4841	4952	
==>od) or return;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub load {
    my ($self, $method <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25942	26035	
==>erving this original copyright notice and other credits.
Rosetta is distributed in the hope th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25942	26035	
==>erving this original copyright notice and other credits.
Rosetta is distributed in the hope th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5524	5657	
==>.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5524	5657	
==>.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5524	5657	
==>.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7281	7391	
==>$tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7281	7391	
==>$tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7281	7391	
==>$tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9262	9367	
==>);  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9262	9367	
==>);  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5290	5385	
==>}


package type::variable;
use base qw/type/;

package type::variable::free;
use base qw/type:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	823	933	
==>nfess "body must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = closur <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14113	14207	
==>hich
characters to consider unsafe (i.e., which to escape). The default set
of characters to en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14113	14207	
==>hich
characters to consider unsafe (i.e., which to escape). The default set
of characters to en <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2397	2506	
==>`$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2397	2506	
==>`$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1238	1336	
==>/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the do <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	389	489	
==>{ split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	389	489	
==>{ split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3614	3732	
==>xity => 'infix',
  );

    my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3590	3695	
==>($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3590	3695	
==>($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9446	9539	
==>$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.pr <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9446	9539	
==>$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11192	11280	
==>quence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\f", <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1303	1406	
==>{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	133	231	
==>ble parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that me <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	133	231	
==>ble parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	213	320	
==>e namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	213	320	
==>e namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	213	320	
==>e namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1864	1982	
==>not execute environments, they
contain ASTs that are compiled by the compiler into a single AST.

A mapping from symbol <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20120	20215	
==>$password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authoriza <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20120	20215	
==>$password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authoriza <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10180	10324	
==>ing: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6521	6665	
==>ing: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7370	7514	
==>ing: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( mat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	153	255	
==>t yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definitio <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	153	255	
==>t yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definitio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4823	4936	
==>d->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4823	4936	
==>d->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5413	5526	
==>d->{$self->container_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1676	1786	
==>::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1676	1786	
==>::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1676	1786	
==>::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9630	9760	
==>op::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	828	922	
==>tr is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	828	922	
==>tr is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17292	17387	
==>ements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, lo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17292	17387	
==>ements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, lo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17292	17387	
==>ements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, lo <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2078	2196	
==>to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2078	2196	
==>to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1200	1306	
==>:Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	43	149	
==>use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	43	149	
==>use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	43	149	
==>use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	584	732	
==>an_run {
    my ($self, $cmd) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1907	2006	
==>le even. Write methods which return the p6 version of the
#regexp.  We can then pour the re_test sui <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2142	2230	
==>'access_hash_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9802	9899	
==>ring;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PAR <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9802	9899	
==>ring;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PAR <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8429	8633	
==>::Example.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method r <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2382	2566	
==>$verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2382	2566	
==>$verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15691	15868	
==>ammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15970	16147	
==>ammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	413	505	
==>for more details.
## ------------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15638	15751	
==>k, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15638	15751	
==>k, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $m <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2630	2730	
==>==================

:- style_check(-discontiguous). % remove is plausible

p5_start(Z)    --> p5_conc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8531	8638	
==>rrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8531	8638	
==>rrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2266	2369	
==>CLOSE;
    $self->operatorTable()->{$spacePresent[1]} = %tokenClone;
    $self->whitespaceOperatorTable( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20035	20154	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optiona <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20314	20433	
==>{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optiona <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3480	3601	
==>x',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { tighter => ' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9297	9409	
==>unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9297	9409	
==>unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	192	314	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	192	314	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	192	314	
==>cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1202	1319	
==>y "e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @args = $string.split(rx:Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	400	507	
==>$self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	400	507	
==>$self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22448	22581	
==>le_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $fail <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10460	10584	
==>cted) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane stat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10460	10584	
==>cted) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane stat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8228	8370	
==>'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8228	8370	
==>'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ] <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1623	1718	
==>n $duration;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3135	3284	
==>t "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PAT <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10662	10760	
==>gle invocation.

The $value argument may be a plain string or a reference to an array
of strings fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10662	10760	
==>gle invocation.

The $value argument may be a plain string or a reference to an array
of strings fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	450	572	
==>Sub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	450	572	
==>Sub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	450	572	
==>Sub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8046	8149	
==>tegory.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 oper <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6465	6561	
==>put (normally STDOUT) as
data is received from the network.  If the request fails, then the
statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6465	6561	
==>put (normally STDOUT) as
data is received from the network.  If the request fails, then the
statu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	545	651	
==>ro],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2073	2179	
==>ro],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	534	625	
==>nt RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branches';
use constant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	200	316	
==>ber';

use base 'type';

our $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our $FALSE = bless \(my $f = 0) => __PACKAGE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3855	3955	
==>::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3855	3955	
==>::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17646	17739	
==>x:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17646	17739	
==>x:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17646	17739	
==>x:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1237	1343	
==>q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <before <Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	783	877	
==>r TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	783	877	
==>r TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticat <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7287	7531	
==>];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7287	7531	
==>];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5978	6101	
==>x_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	727	877	
==>apture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	727	877	
==>apture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3530	3691	
==>erclass subscriptions too
                }
            }
        }
    
        method notify (String $name, *@args) {
            $publisher.notify(Class::Event <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3759	3899	
==>oint    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3759	3899	
==>oint    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+( <==
3	/Users/nnunley/pugs/util/claim_drift.pl	1111	1246	
==>k: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	294	389	
==>ation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	294	389	
==>ation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21042	21137	
==>_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21042	21137	
==>_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21042	21137	
==>_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2479	2613	
==>[3],} }", 
);

sub new {
    my $class = shift;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_coun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16573	16689	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16852	16968	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19916	20041	
==>$bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16337	16462	
==>$bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7275	7384	
==>nshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }


# X <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	20	137	
==>use strict;
use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML                    q <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	282	388	
==>f strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	282	388	
==>f strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18940	19091	
==>unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21962	22073	
==>ata[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PE <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16864	16974	
==>ata[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4871	4976	
==>ULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4871	4976	
==>ULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4871	4976	
==>ULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (* <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12843	12964	
==>led on undef"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2473	2566	
==>ncryptions after this point will be using stronger portions of the keystream.
(Just remember t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2473	2566	
==>ncryptions after this point will be using stronger portions of the keystream.
(Just remember t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9334	9461	
==>s_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9334	9461	
==>s_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25007	25124	
==>that it is valid for a Relation::Example to have zero tuples.  It is also valid
for a Relation::Example to have zero a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1084	1204	
==>$self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1084	1204	
==>$self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1084	1204	
==>$self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1278	1460	
==>y.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1278	1460	
==>y.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1278	1460	
==>y.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	935	1064	
==>var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	935	1064	
==>var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	935	1064	
==>var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10577	10686	
==>my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10577	10686	
==>my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10577	10686	
==>my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1708	1849	
==>ktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Rea <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1708	1849	
==>ktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Rea <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	475	563	
==>JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::InternalValue;
class JSX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6360	6467	
==>everse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6360	6467	
==>everse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6360	6467	
==>everse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2020	2156	
==>re( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2020	2156	
==>re( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return e <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	227	328	
==>_};

.

use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install::I <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2719	2816	
==>he optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=perl <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2719	2816	
==>he optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=perl <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	683	886	
==>[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  su <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	549	646	
==>w, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	549	646	
==>w, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9378	9513	
==>toring
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9378	9513	
==>toring
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9378	9513	
==>toring
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4154	4337	
==>xed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4154	4337	
==>xed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4154	4337	
==>xed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elem <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23659	23763	
==>n default to True or
False, but once it has a value of False, it can not be further changed;
this class d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28211	28315	
==>n default to True or
False, but once it has a value of False, it can not be further changed;
this class d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27024	27128	
==>n default to True or
False, but once it has a value of False, it can not be further changed;
this class d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4202	4323	
==>substr $target, $from, 1) =~ />/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3209	3335	
==>ions in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-sta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15166	15261	
==>natures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expecte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15224	15319	
==>natures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expecte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6298	6399	
==>ar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11144	11245	
==>ar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	902	1004	
==>imFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	902	1004	
==>imFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	902	1004	
==>imFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    P <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2116	2221	
==>you begin a test with:

    #!perl -T

the test will be run with taint mode on.

=head2 Configuration vari <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8214	8319	
==>means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8214	8319	
==>means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   retu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2447	2554	
==>n( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $sel <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2447	2554	
==>n( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $sel <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1782	1940	
==>ame;
            push @.names, $arg.name;
        }
        
        method append_value ( $arg ) {
            $.string = $arg.value;
            push @.strin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8062	8173	
==>re (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7791	7897	
==>re (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3661	3779	
==>{
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    f <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3661	3779	
==>{
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1711	1808	
==>}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *inf <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1711	1808	
==>}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2793	2934	
==>" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2793	2934	
==>" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2793	2934	
==>" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7677	7788	
==>y needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7677	7788	
==>y needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7677	7788	
==>y needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29811	29906	
==>ving the new attributes having the same names as old attributes
that were wrapped, and it suppor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34363	34458	
==>ving the new attributes having the same names as old attributes
that were wrapped, and it suppor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33527	33622	
==>ving the new attributes having the same names as old attributes
that were wrapped, and it suppor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1674	1776	
==>led Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1674	1776	
==>led Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1674	1776	
==>led Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7807	7921	
==>e PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7807	7921	
==>e PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7807	7921	
==>e PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9158	9304	
==>uments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9158	9304	
==>uments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9158	9304	
==>uments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1419	1528	
==>s ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1419	1528	
==>s ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1419	1528	
==>s ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13386	13483	
==>xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13386	13483	
==>xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13386	13483	
==>xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6653	6759	
==>on () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6653	6759	
==>on () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6653	6759	
==>on () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4483	4676	
==>ny', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4483	4676	
==>ny', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4483	4676	
==>ny', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1534	1636	
==>declared within

that scope.



the Sig contains a simply structure of the signature; it does

not allo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1472	1570	
==>declared within
that scope.

the Sig contains a simply structure of the signature; it does
not allo <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4991	5080	
==>nce> | <hexidecimal_escape_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5110	5219	
==>$undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5110	5219	
==>$undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5110	5219	
==>$undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2905	3055	
==>config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2905	3055	
==>config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2905	3055	
==>config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4689	4821	
==>_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4689	4821	
==>_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modifi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6057	6161	
==>$c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o->mk_eater_for_re('\B') if $re eq '\B' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15029	15126	
==>he function's type,
	# this causes the type variables in the cloned function to be instantiated to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	862	967	
==>) = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	862	967	
==>) = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	862	967	
==>) = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2126	2205	
==>.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2126	2205	
==>.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2126	2205	
==>.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rul <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1034	1143	
==>ntf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2444	2533	
==>turn $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2444	2533	
==>turn $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_ <==
3	/Users/nnunley/pugs/util/func_refact.pl	450	545	
==>e, can iterate. -debug <fname> is a function to print more
information about as components are c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21877	21966	
==>osetta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFAC <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21877	21966	
==>osetta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFAC <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1846	1958	
==>apital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1846	1958	
==>apital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23938	24025	
==>undef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29568	29832	
==>:params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16338	16463	
==>ule::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and gi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16338	16463	
==>ule::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8903	9013	
==>...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8903	9013	
==>...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8903	9013	
==>...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9415	9571	
==>y $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         rul <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13585	13677	
==>onth_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13585	13677	
==>onth_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12286	12405	
==>_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12286	12405	
==>_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12286	12405	
==>_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4243	4342	
==>) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4243	4342	
==>) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4243	4342	
==>) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3624	3747	
==>ames\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | blo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7998	8096	
==>l 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootd <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7998	8096	
==>l 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootd <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2665	2774	
==>tchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2849	2958	
==>tchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16283	16389	
==>UB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16283	16389	
==>UB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16283	16389	
==>UB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4127	4236	
==>OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4127	4236	
==>OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4127	4236	
==>OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	947	1046	
==>status;
}

sub Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
    my $sub = sub <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18143	18264	
==>tional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18143	18264	
==>tional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14637	14743	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14637	14743	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14637	14743	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4967	5098	
==>ig;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16804	16899	
==>e result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<My <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16804	16899	
==>e result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<My <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8440	8543	
==>tantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supp <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8440	8543	
==>tantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7061	7154	
==>, $pParams, $pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6134	6290	
==>r, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6134	6290	
==>r, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6134	6290	
==>r, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2581	2699	
==>ut if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf( <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2581	2699	
==>ut if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4552	4641	
==>> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_bounds(Min, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6948	7068	
==>nt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bless $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7507	7627	
==>nt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bless $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	187	290	
==>Install::Base);

$VERSION = '0.04';

use strict 'vars';
use vars qw($VERSION);

sub Meta { shift }

my @ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3882	3994	
==>tion ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3882	3994	
==>tion ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	32	128	
==>::Backend::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Back <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19037	19131	
==>saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_sav <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19037	19131	
==>saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_sav <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1457	1550	
==>_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1377	1466	
==>_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3319	3471	
==>{ return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3319	3471	
==>{ return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3319	3471	
==>{ return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Jun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7468	7556	
==>unter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7468	7556	
==>unter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7468	7556	
==>unter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9880	9982	
==>I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10228	10330	
==>I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	688	788	
==>ft }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1278	1378	
==>ft }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4993	5093	
==>ocument!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4993	5093	
==>ocument!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7843	7943	
==>ect(exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3966	4065	
==>e "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3966	4065	
==>e "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3966	4065	
==>e "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5910	6047	
==>cts ... add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5910	6047	
==>cts ... add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5910	6047	
==>cts ... add method
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	87	192	
==>h::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	87	192	
==>h::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	87	192	
==>h::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19652	19747	
==>a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But the curr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19652	19747	
==>a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But the curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	283	387	
==>xception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	283	387	
==>xception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	283	387	
==>xception.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2J <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	218	326	
==>lar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $e <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2507	2610	
==>depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2565	2668	
==>depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20290	20399	
==>($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20290	20399	
==>($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20290	20399	
==>($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1645	1748	
==>nless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACK <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	916	1004	
==>thing that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filte <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	916	1004	
==>thing that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5606	5712	
==>x«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5606	5712	
==>x«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5606	5712	
==>x«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12976	13087	
==>t ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12976	13087	
==>t ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12976	13087	
==>t ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add lin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1569	1679	
==>C<$lang>. C<Perl6> is the
    # only required language, but supporting C<Perl5> is I<strongly>
    # recommende <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3047	3194	
==>}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3047	3194	
==>}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3047	3194	
==>}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	811	903	
==>= Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	811	903	
==>= Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	891	983	
==>= Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9418	9553	
==>turn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9418	9553	
==>turn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	658	782	
==>undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	399	493	
==>event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	399	493	
==>event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3603	3751	
==>ot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3603	3751	
==>ot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3603	3751	
==>ot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	524	642	
==>turn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	524	642	
==>turn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	524	642	
==>turn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return spri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	767	868	
==>ode: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	855	956	
==>ode: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_nam <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12941	13038	
==>ic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = generic($.body);

	if ($t_of_para <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6761	6893	
==>file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3002	3126	
==>_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3002	3126	
==>_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $modul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29825	30013	
==>rns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order') <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5113	5214	
==>ugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $deco <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5113	5214	
==>ugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $deco <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9483	9585	
==>ersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9483	9585	
==>ersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3701	3795	
==>::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3701	3795	
==>::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3701	3795	
==>::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5850	5952	
==>js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5850	5952	
==>js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5850	5952	
==>js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13344	13436	
==>lf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13344	13436	
==>lf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13344	13436	
==>lf->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	304	430	
==>en PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	304	430	
==>en PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	304	430	
==>en PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	280	407	
==>$self->{family};
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->vis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2432	2531	
==>n stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has the prob <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2339	2436	
==>n stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has the prob <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1143	1254	
==>(to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1143	1254	
==>(to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1143	1254	
==>(to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re implementing <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9657	9853	
==>ym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<** <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34344	34438	
==>ext::Translator object.
The Set Names property of the new object is set from the named paramete <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34344	34438	
==>ext::Translator object.
The Set Names property of the new object is set from the named paramete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1223	1323	
==>rebless everything down to your project's base namespace.

Class::Rebless walks scalar, array, and ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1223	1323	
==>rebless everything down to your project's base namespace.

Class::Rebless walks scalar, array, and ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1223	1323	
==>rebless everything down to your project's base namespace.

Class::Rebless walks scalar, array, and ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5646	5749	
==>ssibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5646	5749	
==>ssibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5646	5749	
==>ssibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i < <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1065	1202	
==>},
		{
			arity => 2,
			name => '&infix:<+>',
			body => '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub fi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32830	32923	
==>ternal files for reading, mainly in the
C<translate_message()> method, but it has no other sid <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32830	32923	
==>ternal files for reading, mainly in the
C<translate_message()> method, but it has no other sid <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1103	1216	
==>_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' example: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	961	1062	
==>/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s* <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	961	1062	
==>/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s* <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9505	9624	
==>d;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9493	9612	
==>d;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2020	2117	
==>FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2020	2117	
==>FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2020	2117	
==>FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7566	7691	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7566	7691	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7566	7691	
==>,
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1584	1693	
==>= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1584	1693	
==>= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1584	1693	
==>= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" fo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5985	6087	
==>False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it onl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5985	6087	
==>False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it onl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6562	6659	
==>-

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6562	6659	
==>-

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4859	4970	
==>ss_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4859	4970	
==>ss_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4859	4970	
==>ss_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1608	1710	
==>A Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1608	1710	
==>A Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7023	7129	
==>$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7035	7141	
==>$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19629	19798	
==>to $target does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new("> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11973	12070	
==>turns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Return <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11973	12070	
==>turns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	86	212	
==>arser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	86	212	
==>arser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	86	212	
==>arser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1930	2083	
==>s,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggle <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1930	2083	
==>s,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggle <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1930	2083	
==>s,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	222	321	
==>)
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	222	321	
==>)
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	222	321	
==>)
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9780	9897	
==>e::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9780	9897	
==>e::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9780	9897	
==>e::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13960	14108	
==>if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13960	14108	
==>if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13960	14108	
==>if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1769	1875	
==>eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1769	1875	
==>eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1769	1875	
==>eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2092	2213	
==>body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("An <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2092	2213	
==>body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("An <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2092	2213	
==>body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("An <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	124	228	
==>tainer/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8406	8502	
==>n')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<en <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8406	8502	
==>n')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<en <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3050	3177	
==>}
  return $matchObj;
}

sub punct {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::n <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1552	1672	
==>e back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5727	5821	
==>_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5209	5303	
==>_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1492	1653	
==>_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1492	1653	
==>_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12791	12914	
==>str target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  scan:
    if pos >= las <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2918	3015	
==>re less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item f <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2918	3015	
==>re less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10087	10232	
==>efined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10087	10232	
==>efined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10087	10232	
==>efined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value at <==
3	/Users/nnunley/pugs/util/func_refact.pl	1522	1633	
==>(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1504	1602	
==>ngth + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1504	1602	
==>ngth + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1504	1602	
==>ngth + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7898	8019	
==>ou)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7898	8019	
==>ou)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7898	8019	
==>ou)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4035	4220	
==>}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7256	7391	
==>ser-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7256	7391	
==>ser-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	629	767	
==>ed $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	629	767	
==>ed $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	629	767	
==>ed $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18133	18228	
==>setta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18133	18228	
==>setta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1174	1288	
==>ir(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1174	1288	
==>ir(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1174	1288	
==>ir(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Importa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1673	1779	
==>uff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store si <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1673	1779	
==>uff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store si <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1909	2015	
==>uff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store si <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	385	519	
==>);

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::Config{make} =~ /^nmak <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4209	4305	
==>he span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4209	4305	
==>he span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9180	9293	
==>cause it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9180	9293	
==>cause it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2018	2128	
==>ive - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num type


=head1 METHODS

=over 4

=item B<new (*na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12223	12357	
==>am }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12223	12357	
==>am }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12223	12357	
==>am }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $valu <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9940	10033	
==>pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically generated and show h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	57	167	
==>:Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

use File::chdir;
use File::Basename          qw[base <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13057	13162	
==>E)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13057	13162	
==>E)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_ni <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	648	767	
==>it     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5466	5566	
==>eason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $des <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5524	5624	
==>eason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $des <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2167	2281	
==>}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2948	3062	
==>}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5980	6098	
==>of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6038	6156	
==>of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2865	2973	
==>iguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2865	2973	
==>iguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2865	2973	
==>iguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1585	1742	
==>_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1585	1742	
==>_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15371	15480	
==>n  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15371	15480	
==>n  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12171	12269	
==>le_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12171	12269	
==>le_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3209	3306	
==>ntf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3209	3306	
==>ntf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3209	3306	
==>ntf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14147	14235	
==>tring::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14147	14235	
==>tring::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14147	14235	
==>tring::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	413	524	
==>os cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compat <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	413	524	
==>os cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2275	2403	
==>i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2275	2403	
==>i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2275	2403	
==>i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10583	10706	
==>ymbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signature->ne <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5027	5137	
==>son, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5085	5195	
==>son, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15168	15307	
==>s
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15168	15307	
==>s
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15168	15307	
==>s
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4272	4419	
==>sub}{bareword} eq 'class'  ||
             $n->{sub}{bareword} eq 'module' ) {
            # Moose: package xxx; use Moose;
            # class P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4941	5059	
==>ping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Som <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8418	8536	
==>ping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Som <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5471	5578	
==>on
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5471	5578	
==>on
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7668	7775	
==>on
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9385	9481	
==>rn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9385	9481	
==>rn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9385	9481	
==>rn sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6059	6157	
==>:Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6059	6157	
==>:Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6059	6157	
==>:Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4840	4956	
==>= shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4840	4956	
==>= shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4840	4956	
==>= shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15473	15587	
==>my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \'' . $n->{op1}{angle_quote <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7264	7372	
==>fully loaded template module; on a function call
        # death, assume module is damaged and say so; an und <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7264	7372	
==>fully loaded template module; on a function call
        # death, assume module is damaged and say so; an und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15571	15714	
==>}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15571	15714	
==>}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15571	15714	
==>}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37034	37166	
==>handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 1);
    });

    # X! <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	189	315	
==>opy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        pus <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	189	315	
==>opy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1194	1302	
==>s $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1194	1302	
==>s $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1403	1511	
==>s $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	279	376	
==>Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	279	376	
==>Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	279	376	
==>Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
requir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23363	23466	
==><japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistribute it and/or <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41287	41390	
==><japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistribute it and/or <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37313	37416	
==><japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistribute it and/or <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2125	2231	
==>t)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4689	4782	
==>atch object returns the stringified version
of the result object (usually the entire match str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4689	4782	
==>atch object returns the stringified version
of the result object (usually the entire match str <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1736	1835	
==>arameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1736	1835	
==>arameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    ha <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2026	2125	
==>base;
    return Pugs::Internals::log10($x) if $base == 10;
    return (Pugs::Internals::log($x) / P <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1011	1123	
==>s $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.p <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1011	1123	
==>s $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.p <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11412	11524	
==>HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3198	3364	
==>'';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3198	3364	
==>'';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3198	3364	
==>'';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1235	1332	
==>d, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1235	1332	
==>d, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1235	1332	
==>d, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	81	172	
==>has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	81	172	
==>has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1337	1426	
==>kage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1337	1426	
==>kage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1337	1426	
==>kage, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_o <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	223	327	
==>e $var }

sub chomp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but newline("\ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11369	11463	
==>tem ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set> <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11369	11463	
==>tem ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	776	876	
==>il2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	776	876	
==>il2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	776	876	
==>il2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4533	4680	
==>his depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy base <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4997	5144	
==>his depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy base <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18082	18173	
==>,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	269	379	
==>sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	269	379	
==>sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array i <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2978	3075	
==>ivlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	71	169	
==>ts;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative;

use YA <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11160	11256	
==>s
applied, in order, until a non-zero (tie) result is achieved.

Criterion can take a few differe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4757	4856	
==>cal scope to have any effect. It's possible the
    internal/external distinction is just a trait, a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	714	812	
==>r native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1304	1402	
==>r native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10973	11075	
==>{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Te <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10973	11075	
==>{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Te <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10973	11075	
==>{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Te <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10717	10823	
==>r!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14194	14300	
==>r!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13493	13599	
==>r!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do differe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	275	375	
==>c_is_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n";
if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33919	34017	
==>{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33919	34017	
==>{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33919	34017	
==>{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6401	6609	
==>[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6401	6609	
==>[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

su <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1996	2132	
==>s

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&i <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4363	4459	
==>lank lines are ignored.

When writing back to the config file, any comments are discarded.

=head <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4363	4459	
==>lank lines are ignored.

When writing back to the config file, any comments are discarded.

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	102	262	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	102	262	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	102	262	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1161	1275	
==>bmethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1161	1275	
==>bmethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILL <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6608	6713	
==>push @libs, grep /^-opt/, @_;
    push @libs, grep /^-[lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2813	2915	
==>k::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2813	2915	
==>k::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2813	2915	
==>k::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is cop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18466	18591	
==>locks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BARE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18466	18591	
==>locks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BARE <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20039	20148	
==>p = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .return (self)
.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12135	12239	
==>rrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12135	12239	
==>rrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12135	12239	
==>rrent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15715	15834	
==>tribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15715	15834	
==>tribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15715	15834	
==>tribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffici <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1109	1284	
==>per'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table = $table;  
    TRY_AGAIN:
        if (my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11825	11918	
==>arthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11825	11918	
==>arthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21486	21585	
==>($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unsh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21486	21585	
==>($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unsh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21486	21585	
==>($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unsh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4269	4382	
==>$self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4269	4382	
==>$self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4269	4382	
==>$self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3777	3884	
==>:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3777	3884	
==>:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3777	3884	
==>:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3069	3181	
==>the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3069	3181	
==>the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3069	3181	
==>the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2656	2764	
==>d: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2656	2764	
==>d: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2736	2844	
==>d: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1737	1833	
==>if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1737	1833	
==>if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1737	1833	
==>if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7557	7668	
==>L::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7557	7668	
==>L::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7557	7668	
==>L::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5204	5329	
==>tore($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5204	5329	
==>tore($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5794	5919	
==>tore($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18220	18312	
==>x:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18220	18312	
==>x:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18220	18312	
==>x:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14521	14700	
==>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14521	14700	
==>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14521	14700	
==>to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array-> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9264	9370	
==>ches, $ENV{HARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	593	691	
==>ode;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	593	691	
==>ode;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1320	1437	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1320	1437	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1320	1437	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(fun <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9037	9132	
==>same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipherin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9037	9132	
==>same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipherin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2891	2983	
==>nd $node->can("type")){
			return Blondie::TypeSafe::Annotation->new(
				type => $node->type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13779	13928	
==>}
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13779	13928	
==>}
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13779	13928	
==>}
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	27	178	
==>waway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	27	178	
==>waway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	27	178	
==>waway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    my($class,$s)=@_;
    bless {}, $class;
}

1;
__END_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	124	245	
==>the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	124	245	
==>the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	124	245	
==>the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = call <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2941	3050	
==>toload;
    $self->preload;

    # Unregister loader and worker packages so subdirs can use them again
    del <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2640	2742	
==>y @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2640	2742	
==>y @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	946	1048	
==>$class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	946	1048	
==>$class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	946	1048	
==>$class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6437	6567	
==>st of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6437	6567	
==>st of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6437	6567	
==>st of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3562	3681	
==>niverse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3562	3681	
==>niverse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3269	3368	
==>lf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3269	3368	
==>lf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3269	3368	
==>lf->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3640	3749	
==>ame =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3640	3749	
==>ame =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3640	3749	
==>ame =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18733	18858	
==>le::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18733	18858	
==>le::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18733	18858	
==>le::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5923	6045	
==>r, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5923	6045	
==>r, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5923	6045	
==>r, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11134	11263	
==>not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11134	11263	
==>not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11134	11263	
==>not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	208	353	
==>ject ],
    attributes => [ '$:expect' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15899	16040	
==>>_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15899	16040	
==>>_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15899	16040	
==>>_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3260	3373	
==>onents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3260	3373	
==>onents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3260	3373	
==>onents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	353	450	
==>apping
## implementation of Roles into the model. See below for more details.
## ----------------- <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2715	2811	
==>sert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$mo <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2715	2811	
==>sert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$mo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24591	24721	
==>st$ender: $good okay, ";
        if ($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21736	21836	
==>lues; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have ze <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26288	26388	
==>lues; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have ze <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5902	6034	
==>kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5902	6034	
==>kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25480	25579	
==>> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCh <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1232	1416	
==>ueue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1232	1416	
==>ueue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16235	16346	
==>{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7213	7337	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7213	7337	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7213	7337	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	967	1072	
==>romd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to cont <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37106	37199	
==>sage() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37106	37199	
==>sage() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2679	2779	
==>hat to happen.

Inherits Unit.

=item App

An App makes a Thunk reduce to it's value (and also prepar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48383	48471	
==>d Module

$::Module = $::Class->send('new');
$::Module->send('superclasses' => list->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36082	36234	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36082	36234	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36082	36234	
==>ive length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2042	2152	
==>ne, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2042	2152	
==>ne, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1802	1899	
==>$relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( name => $name, option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4447	4583	
==>>{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4447	4583	
==>>{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4447	4583	
==>>{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19999	20091	
==>xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19999	20091	
==>xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19999	20091	
==>xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	840	952	
==>LARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	840	952	
==>LARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	840	952	
==>LARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	195	295	
==>ecause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	195	295	
==>ecause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	195	295	
==>ecause *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	656	771	
==>}
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	656	771	
==>}
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	656	771	
==>}
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6507	6634	
==>ort_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6507	6634	
==>ort_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6507	6634	
==>ort_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2319	2425	
==>mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2319	2425	
==>mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2319	2425	
==>mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8753	8859	
==>am,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8753	8859	
==>am,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8753	8859	
==>am,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $def <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	499	609	
==>navailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	466	576	
==>navailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	60	158	
==>o, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->new();	# g <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3506	3622	
==>!defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3506	3622	
==>!defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6871	6958	
==>> 'util/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@unresolved);
print $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5163	5306	
==>rations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5163	5306	
==>rations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	742	849	
==>b",
        "$Bin/../../Pugs-Compiler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15654	15748	
==>t help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15654	15748	
==>t help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3829	3919	
==>s::Check->last_error), return;

    if (-e $self->pool->file(file($pkg->file)->basename) && <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1987	2094	
==>chObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34435	34528	
==>_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38985	39078	
==>_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1718	1819	
==>->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1718	1819	
==>->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1718	1819	
==>->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Ja <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1466	1565	
==>t_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1466	1565	
==>t_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1466	1565	
==>t_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17650	17786	
==>end,
                  char* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2021	2121	
==>rt {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2079	2179	
==>rt {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17235	17394	
==>ipt};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            die " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7482	7585	
==>False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7482	7585	
==>False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3594	3840	
==>rt) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3594	3840	
==>rt) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30992	31089	
==>ng attributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with whic <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4537	4680	
==>edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4759	4902	
==>edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11433	11577	
==>bol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6009	6114	
==>rint($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6009	6114	
==>rint($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	342	440	
==>{
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1070	1166	
==>{
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{ma <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	978	1073	
==>called C<Type>.  Perhaps this module should be called
something else like C<t>, or maybe they ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10280	10416	
==>hod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10280	10416	
==>hod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10280	10416	
==>hod from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1324	1451	
==>e 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1324	1451	
==>e 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1324	1451	
==>e 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TO <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	309	432	
==>ject & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1534	1657	
==>ject & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18863	18969	
==>ction in x, (a -> b), and a is both an int and a str
# while this could seem to make sense for e.g. the 'id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6907	7004	
==>her) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6907	7004	
==>her) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6907	7004	
==>her) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38654	38827	
==>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38654	38827	
==>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38654	38827	
==>reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XX <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6824	6932	
==>ercent     Percentage of tests which failed
    canon       List of tests which failed (as string).

C<$faile <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11665	11769	
==>t a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4308	4412	
==>t a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11765	11897	
==>ttributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15242	15374	
==>ttributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14577	14709	
==>ttributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14429	14523	
==>en my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0
t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2948	3041	
==>_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3006	3099	
==>_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2779	2902	
==>y are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2779	2902	
==>y are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2779	2902	
==>y are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($cl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3701	3800	
==>N

This class represents an ordered set of spans.

It is intended mostly for "internal" use by the S <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3701	3800	
==>N

This class represents an ordered set of spans.

It is intended mostly for "internal" use by the S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30064	30163	
==>>

This method is a short-hand or alternative for the functionality provided
by the 5 generic relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34616	34715	
==>>

This method is a short-hand or alternative for the functionality provided
by the 5 generic relati <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14273	14372	
==>Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print ea <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14331	14430	
==>Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print ea <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6911	7127	
==>lic license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6968	7184	
==>lic license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4358	4483	
==>}
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4358	4483	
==>}
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4358	4483	
==>}
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1114	1218	
==>bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1114	1218	
==>bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1114	1218	
==>bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	655	760	
==>te all normal output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	655	760	
==>te all normal output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1211	1316	
==>te all normal output (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	640	793	
==>);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	640	793	
==>);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7716	7811	
==>indextests --> Int|List )

Iterates the elements of C<@array>, in order. 

If C<@indextests> are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8999	9149	
==>go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8999	9149	
==>go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8999	9149	
==>go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4744	4938	
==>tch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4744	4938	
==>tch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4744	4938	
==>tch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many argument <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2697	2809	
==>lename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2697	2809	
==>lename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2697	2809	
==>lename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19138	19248	
==>d) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19138	19248	
==>d) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	325	426	
==>ME

Role - Entities in a program's model (M1)

=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4806	4929	
==>f->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4806	4929	
==>f->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4806	4929	
==>f->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	780	902	
==>6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	780	902	
==>6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	780	902	
==>6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1962	2065	
==>rol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1962	2065	
==>rol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1962	2065	
==>rol:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2162	2264	
==>ugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2756	2852	
==>stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean valu <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2756	2852	
==>stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5941	6044	
==>m the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5941	6044	
==>m the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5941	6044	
==>m the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child packag <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3284	3389	
==>d never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3284	3389	
==>d never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1031	1128	
==>.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1031	1128	
==>.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1031	1128	
==>.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1096	1205	
==>c(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1096	1205	
==>c(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1096	1205	
==>c(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	298	408	
==>e pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	298	408	
==>e pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	298	408	
==>e pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1783	1918	
==>{'int_width'} == 64,'subset int of int64 where { true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset num of num32  where { tr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1687	1817	
==>sts($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2838	2947	
==>{index}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= '_' . $opt->{assoc} if $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4760	4871	
==>${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4760	4871	
==>${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4760	4871	
==>${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_res <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	486	631	
==>, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15189	15285	
==>k something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns B <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15247	15343	
==>k something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1413	1513	
==>options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1413	1513	
==>options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1413	1513	
==>options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	10	113	
==>E::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Enc <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	10	113	
==>E::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Enc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6920	7013	
==>>new;
	$self->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	57	164	
==>s file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	57	164	
==>s file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	57	164	
==>s file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1299	1403	
==>oxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1299	1403	
==>oxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1299	1403	
==>oxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the l <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3065	3154	
==>our &Date::Gregorian::day_of_year ::= &Date::Gregorian::doy;
method week returns Int { int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4073	4207	
==>y} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4073	4207	
==>y} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4073	4207	
==>y} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7328	7458	
==>because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7328	7458	
==>because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7328	7458	
==>because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5702	5809	
==>thod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5702	5809	
==>thod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5702	5809	
==>thod type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4831	4922	
==>es an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4971	5062	
==>es an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10863	11076	
==>rns Hash
      {
          return
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1359	1550	
==>rns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1359	1550	
==>rns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	299	399	
==>odule isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	299	399	
==>odule isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	299	399	
==>odule isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Packa <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4842	4940	
==>rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

rule escape_sequenc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16452	16545	
==>:TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16452	16545	
==>:TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1624	1725	
==>re is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter ( <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1624	1725	
==>re is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	266	372	
==>ative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	266	372	
==>ative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	266	372	
==>ative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4782	4875	
==>n "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4782	4875	
==>n "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4782	4875	
==>n "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	728	841	
==>nt_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	601	714	
==>e')))
            || confess "Keys must be strings, and values must be native types";
        $values{$key->to_str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	728	841	
==>nt_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	543	660	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	543	660	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	543	660	
==>(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4424	4587	
==>$next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4424	4587	
==>$next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4424	4587	
==>$next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19987	20096	
==>array = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2660	2759	
==>$self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.e <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2660	2759	
==>$self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	438	541	
==>ote: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefix <==
3	/Users/nnunley/pugs/util/package-osx.pl	9103	9206	
==>("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	530	631	
==>ote: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8831	9016	
==>> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8831	9016	
==>> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8831	9016	
==>> -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4444	4576	
==>";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4444	4576	
==>";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4444	4576	
==>";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	825	954	
==>ed_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	807	927	
==>ed_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	807	927	
==>ed_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2797	2925	
==>keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2797	2925	
==>keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2797	2925	
==>keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2399	2520	
==>' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2399	2520	
==>' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2746	2867	
==>' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5103	5197	
==>ding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5103	5197	
==>ding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6627	6721	
==>ding on the value of C<$passed>,
recording C<$description> as an optional explanation.

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6199	6303	
==>a(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6199	6303	
==>a(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6199	6303	
==>a(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	12	109	
==>Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	12	109	
==>Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	12	109	
==>Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4251	4354	
==>meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4251	4354	
==>meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4251	4354	
==>meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	532	662	
==>@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	532	662	
==>@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	532	662	
==>@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2949	3087	
==>bols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    has Set of Str $!heading;
        # Set of Str
        # Ea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5242	5342	
==>of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its intern <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5242	5342	
==>of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8706	8871	
==>for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8706	8871	
==>for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8706	8871	
==>for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # clas <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	290	385	
==>formation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	290	385	
==>formation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15546	15681	
==>-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15546	15681	
==>-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15546	15681	
==>-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	76	178	
==>se strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8250	8341	
==>ELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11727	11818	
==>ELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1259	1389	
==>- ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1259	1389	
==>- ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1259	1389	
==>- ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Cod <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	877	1014	
==>sional arrays of the match
                     object, telling captures where in the deep structure
                     to store what th <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	877	1014	
==>sional arrays of the match
                     object, telling captures where in the deep structure
                     to store what th <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9069	9171	
==>($file);

Formats and returns the switches necessary to run the test.

=cut

sub _switches {
    my($se <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5759	5855	
==>::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straigh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5759	5855	
==>::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straigh <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9923	10012	
==>href="http://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1091	1203	
==>rtList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].conca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1091	1203	
==>rtList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].conca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1091	1203	
==>rtList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].conca <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3706	3797	
==>= $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3706	3797	
==>= $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11805	12050	
==>ate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11805	12050	
==>ate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11805	12050	
==>ate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4108	4200	
==>::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4108	4200	
==>::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33867	33959	
==>mily: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I<a <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	64	167	
==>le;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce th <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	64	167	
==>le;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14997	15163	
==>lf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14997	15163	
==>lf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14997	15163	
==>lf->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16810	16959	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17089	17238	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5624	5723	
==>o <-<metacharacter>> yet.
rule simple_character  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\]> }
rule metach <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10213	10330	
==>cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10213	10330	
==>cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        } <==
3	/Users/nnunley/pugs/util/func_refact.pl	1506	1617	
==>y $size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scalar( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1586	1688	
==>} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1586	1688	
==>} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5007	5139	
==>int $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5007	5139	
==>int $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5007	5139	
==>int $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js(" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7520	7608	
==>ub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1345	1433	
==>ub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1490	1594	
==>>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8148	8247	
==>ly one wants to have the 
# depth available for various reasons
# of convience. Sometimes that depth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8148	8247	
==>ly one wants to have the 
# depth available for various reasons
# of convience. Sometimes that depth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1013	1121	
==>IL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1013	1121	
==>IL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1013	1121	
==>IL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7757	7851	
==>ist')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list') <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7757	7851	
==>ist')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4188	4290	
==>s $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4188	4290	
==>s $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4188	4290	
==>s $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockre <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4037	4152	
==>oadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD";
Smoker info not <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	45	140	
==>n of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_la <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	45	140	
==>n of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1812	1913	
==>ubstr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1812	1913	
==>ubstr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1812	1913	
==>ubstr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2303	2423	
==>amodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2303	2423	
==>amodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2303	2423	
==>amodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5197	5326	
==>side a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2525	2646	
==>$self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elem <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2525	2646	
==>$self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1286	1389	
==>RE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1286	1389	
==>RE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1286	1389	
==>RE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11170	11316	
==>dxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11170	11316	
==>dxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11170	11316	
==>dxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Nee <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33678	33774	
==>is a Template module Member Name and usually corresponds to a
language like English or French.  T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33678	33774	
==>is a Template module Member Name and usually corresponds to a
language like English or French.  T <==
3	/Users/nnunley/pugs/util/build_pugs.pl	302	392	
==>nfig;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV)) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7477	7725	
==>enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7941	8189	
==>enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	307	442	
==>" ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	951	1053	
==>s->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	951	1053	
==>s->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	951	1053	
==>s->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3488	3624	
==>return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3681	3817	
==>return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2558	2681	
==>]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4385	4516	
==>@{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4373	4504	
==>@{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1140	1237	
==>peop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporarily for the <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1881	2026	
==>der ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $heade <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1881	2026	
==>der ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18616	18826	
==>Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18616	18826	
==>Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18616	18826	
==>Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4771	4898	
==>ax = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4771	4898	
==>ax = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4771	4898	
==>ax = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7801	7916	
==>aram.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7801	7916	
==>aram.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7801	7916	
==>aram.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = % <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	650	773	
==>ta, allow => ISA_JIB_META },
    };
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_err <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7236	7355	
==>( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7236	7355	
==>( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8746	8870	
==>),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8746	8870	
==>),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11243	11337	
==>,
	# int -> int -> bool
	'==' => type::operator::arrow->new(
		type::operator::nullary->new("in <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1273	1372	
==>/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - l <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1273	1372	
==>/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - l <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20240	20339	
==>tion, elsewhere.


  regnode program[1];     /* Unwarranted chumminess with compiler. */

regcomp.h: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5646	5745	
==>if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj[" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5646	5745	
==>if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj[" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5646	5745	
==>if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj[" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11714	11826	
==>CH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11714	11826	
==>CH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11714	11826	
==>CH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!") <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3916	4039	
==>) && !$force) {
        error($pkg->package . " already exists in this repository");
        return;
    }

    my $inst = J <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15129	15226	
==>t argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded str <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15129	15226	
==>t argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17194	17308	
==>num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17194	17308	
==>num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17194	17308	
==>num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3803	3916	
==>n;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3803	3916	
==>n;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3803	3916	
==>n;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	103	353	
==>use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1850	1966	
==>RY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1850	1966	
==>RY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10812	10942	
==>w( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10812	10942	
==>w( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        retu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29659	29753	
==>uncated as badly.
(Partially done with new skip test styles)

Add option for coverage analysis. <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2069	2218	
==>$_ == 1 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_half_odd ( Num <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1951	2053	
==>sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1951	2053	
==>sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16863	16979	
==>ive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@othe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18960	19051	
==>oined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18960	19051	
==>oined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	643	760	
==>lan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	643	760	
==>lan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	643	760	
==>lan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3585	3686	
==>PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3585	3686	
==>PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	435	536	
==>PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1037	1141	
==>LaxAttrList () {
    return %!attrs;
}

method export_attr_names of List of Relation::AttrName () {
    r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10398	10496	
==>`shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10398	10496	
==>`shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7393	7506	
==>L::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7393	7506	
==>L::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7393	7506	
==>L::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2169	2274	
==>lobal subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2169	2274	
==>lobal subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2169	2274	
==>lobal subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1701	1800	
==>ck> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1701	1800	
==>ck> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11951	12034	
==>hars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars_more(Rc0,co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9972	10101	
==>new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9972	10101	
==>new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9972	10101	
==>new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10988	11073	
==>andom Thoughts on Role state:
-------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10988	11073	
==>andom Thoughts on Role state:
-------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10988	11073	
==>andom Thoughts on Role state:
-------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6366	6464	
==>');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11212	11310	
==>');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass method <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1941	2044	
==>and_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1941	2044	
==>and_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2169	2314	
==>f->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2169	2314	
==>f->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2169	2314	
==>f->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6372	6471	
==>re overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6372	6471	
==>re overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6372	6471	
==>re overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3347	3458	
==>usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3347	3458	
==>usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3347	3458	
==>usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6pr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	4	120	
==>strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Roo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4405	4520	
==>val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4405	4520	
==>val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15370	15476	
==>b pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15370	15476	
==>b pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15370	15476	
==>b pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15447	15565	
==>use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (mo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15447	15565	
==>use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (mo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19964	20133	
==>'$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40424	40593	
==>'$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	113	209	
==>e;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Message: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2716	2816	
==>JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2716	2816	
==>JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2716	2816	
==>JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	773	900	
==>{$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	773	900	
==>{$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	773	900	
==>{$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3220	3361	
==>? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3220	3361	
==>? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3220	3361	
==>? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9618	9711	
==>use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9618	9711	
==>use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9618	9711	
==>use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	391	503	
==>s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	391	503	
==>s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	391	503	
==>s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	196	298	
==>n a p6
# parser, for p5.

# It's a backtracking, recursive-decent engine, generated from the
# regexp a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5597	5694	
==>nnel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5597	5694	
==>nnel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5046	5157	
==>ue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5046	5157	
==>ue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1950	2061	
==>ue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1043	1187	
==>ring ) {
            return $?CLASS.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argument::Norm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1297	1405	
==>ch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1297	1405	
==>ch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2331	2449	
==>e_helper = sub {
        print STDERR "reduce\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37715	37807	
==>method is a generic relational operator that takes a single Relation::Example
in its C<$other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38555	38647	
==>method is a generic relational operator that takes a single Relation::Example
in its C<$other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9897	10051	
==>ist[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9897	10051	
==>ist[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9897	10051	
==>ist[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50625	50770	
==>w(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            s <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4750	4890	
==>'t guaranteed sorted; and sorting
            # helps diffing raw YAML results.
            @tests = sort @tests;
        }
        if ( $Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1447	1546	
==>@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1447	1546	
==>@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1447	1546	
==>@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22187	22280	
==>t> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22187	22280	
==>t> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(t <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1942	2060	
==>AKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        exte <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1942	2060	
==>AKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        exte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7785	7884	
==>defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	418	562	
==>3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	418	562	
==>3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	418	562	
==>3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seve <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	0	92	
==>module HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	0	92	
==>module HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_ent <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4749	4961	
==>ype f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4013	4185	
==>ype f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basename($_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13429	13580	
==>ype f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basename($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6647	6896	
==>urn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6647	6896	
==>urn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6647	6896	
==>urn Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37238	37332	
==>name of a Perl package in its positional parameter
$module_name (a string) and checks whether o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37238	37332	
==>name of a Perl package in its positional parameter
$module_name (a string) and checks whether o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	724	832	
==>= ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	724	832	
==>= ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4426	4523	
==>actic_sub      { \<(!?)<[&]> <ident> [ \( <argument_list> \) ]? \> }
rule symbolic_indirect_rule { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13237	13333	
==>to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for al <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13295	13391	
==>to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for al <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24019	24135	
==>fthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20440	20556	
==>fthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27141	27256	
==>data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7461	7561	
==>>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7461	7561	
==>>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7461	7561	
==>>store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2794	2892	
==>ass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2794	2892	
==>ass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2794	2892	
==>ass: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3271	3386	
==>class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This nee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3271	3386	
==>class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This nee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3271	3386	
==>class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This nee <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7419	7525	
==>ent_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7419	7525	
==>ent_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6257	6352	
==>est_filehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4556	4653	
==>o->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4556	4653	
==>o->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4556	4653	
==>o->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2283	2396	
==>od start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.en <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2283	2396	
==>od start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.en <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10994	11089	
==>= $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtere <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6628	6736	
==>\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6640	6748	
==>\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17085	17188	
==>ymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied to int) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13360	13497	
==>final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9546	9683	
==>final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10382	10519	
==>final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_fin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7350	7466	
==>aged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7350	7466	
==>aged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	163	259	
==>::Type::Regular | Perl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2508	2622	
==>$str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2648	2762	
==>$str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	680	779	
==><density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize dur <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	680	779	
==><density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize dur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3264	3408	
==>{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3728	3872	
==>{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2145	2239	
==>eractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1537	1700	
==>=>                        1,
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3380	3484	
==>ignature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3380	3484	
==>ignature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	787	873	
==>=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	787	873	
==>=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21367	21514	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21646	21793	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7776	7895	
==>Stack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6392	6509	
==>P output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6392	6509	
==>P output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8589	8706	
==>P output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9182	9317	
==>Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10659	10794	
==>Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2106	2286	
==>date for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3698	3874	
==>date for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25325	25426	
==><'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disjunction> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3227	3330	
==>se Test::Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runni <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3227	3330	
==>se Test::Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3307	3410	
==>se Test::Builder.  It
does this by you setting the expected output and diagnostic output of tests,
runni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9522	9655	
==>gle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9522	9655	
==>gle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9522	9655	
==>gle {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3534	3623	
==>self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3534	3623	
==>self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3534	3623	
==>self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25052	25149	
==>s a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29604	29701	
==>s a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25701	25797	
==>subclasses (opaque $self:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5238	5340	
==>on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5238	5340	
==>on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @ni <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1585	1677	
==>:operator::nary: level($.param) = { level($$) }

ROOT: level($$) = { 0 }
type::operator::bina <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1241	1350	
==>e implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1241	1350	
==>e implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1241	1350	
==>e implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function () <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	983	1113	
==>rn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	983	1113	
==>rn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	983	1113	
==>rn;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14150	14255	
==>ples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17627	17732	
==>ples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17089	17190	
==>tion::Example @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.siz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2748	2874	
==>}->{abort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23222	23314	
==>ambiguous results or associations.  Or alternately, the other
packages require your text data <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23222	23314	
==>ambiguous results or associations.  Or alternately, the other
packages require your text data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7970	8129	
==>unction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7970	8129	
==>unction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7970	8129	
==>unction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6766	6879	
==>s); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6766	6879	
==>s); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6766	6879	
==>s); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	585	695	
==>w<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	585	695	
==>w<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	585	695	
==>w<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16872	16972	
==>->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16872	16972	
==>->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16872	16972	
==>->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superc <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	635	806	
==>is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	635	806	
==>is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	131	228	
==>nything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	131	228	
==>nything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	131	228	
==>nything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	843	956	
==>* set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	843	956	
==>* set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a st <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43393	43491	
==>n class.

These other Perl 6 packages also work in the problem domain of managing
data or data defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	465	583	
==>es = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	500	618	
==>es = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	465	583	
==>es = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1983	2090	
==>('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1665	1768	
==>('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2313	2416	
==>('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	944	1060	
==>',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	944	1060	
==>',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1399	1502	
==>LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1399	1502	
==>LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1399	1502	
==>LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17130	17237	
==>mlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17130	17237	
==>mlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17130	17237	
==>mlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1535	1638	
==>r keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1535	1638	
==>r keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1535	1638	
==>r keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!") <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3180	3278	
==>txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use ba <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1670	1755	
==>_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1670	1755	
==>_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11811	11926	
==>my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	220	330	
==>my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12761	12862	
==>ler->($x);
}

my %as_str_handlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1238	1345	
==>JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1238	1345	
==>JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1238	1345	
==>JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($se <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16943	17050	
==>GE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = fi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11498	11603	
==>$0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\")." <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11498	11603	
==>$0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\")." <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17479	17631	
==>ding ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20956	21108	
==>ding ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20543	20695	
==>ding ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3803	3917	
==>:CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3803	3917	
==>:CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3803	3917	
==>:CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1695	1853	
==>and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->license_from($file);
}

sub feature {
    my $self     = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3907	4001	
==>eturns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Arr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3907	4001	
==>eturns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	694	811	
==>_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18227	18323	
==>the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from whi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18227	18323	
==>the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from whi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11244	11336	
==>($self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

= <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11244	11336	
==>($self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

= <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	704	804	
==>pe (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Z <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	704	804	
==>pe (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Z <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	528	622	
==>tuff/pugs-smokes/",
  BASEHTTPDIR => "/iblech/stuff/pugs-smokes/",
  BUCKET      => "bucket.dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12123	12224	
==>ELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12123	12224	
==>ELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12123	12224	
==>ELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3292	3393	
==>e[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3292	3393	
==>e[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17000	17128	
==>her!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteratio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20477	20605	
==>her!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteratio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20055	20183	
==>her!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iteratio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10405	10513	
==>stant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10563	10671	
==>stant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6787	6932	
==>current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6787	6932	
==>current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21640	21732	
==>head1 DESCRIPTION

This module holds the init() method for the F<Regexp::Parser> class,
which <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1310	1423	
==>n edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "op <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2647	2742	
==>omise both encryptions.

If two different data streams are enciphered with the same key, the enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2647	2742	
==>omise both encryptions.

If two different data streams are enciphered with the same key, the enc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9186	9297	
==>rint "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13036	13145	
==>rint "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13036	13145	
==>rint "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	49	154	
==>ateFinder;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	328	428	
==>_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	328	428	
==>_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5672	5796	
==>ence->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2553	2661	
==>c =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2553	2661	
==>c =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2553	2661	
==>c =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	80	206	
==>ERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	80	206	
==>ERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	80	206	
==>ERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	193	319	
==>ub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	193	319	
==>ub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	193	319	
==>ub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49402	49539	
==>sion'), $e->get('?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:version'));
            } <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6831	6957	
==>hc_version).
*** Please install a newer version from http://haskell.org/ghc/.
.
    }

    my $ghc_flags = "-H0 ";
    $ghc_fla <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	421	546	
==>build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2316	2409	
==>iner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2316	2409	
==>iner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2316	2409	
==>iner::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Containe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3179	3278	
==>gs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3179	3278	
==>gs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3179	3278	
==>gs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	767	862	
==>n to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	767	862	
==>n to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	767	862	
==>n to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39160	39295	
==>lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39160	39295	
==>lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39160	39295	
==>lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $arr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1913	2056	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2106	2249	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_d <==
3	/Users/nnunley/pugs/util/config_h.pl	1493	1596	
==>ds disabled.  If you want
    Template Haskell support, please compile your GHC with the
    GHCi option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6064	6168	
==>};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6064	6168	
==>};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6064	6168	
==>};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50167	50299	
==>, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:authority'), $e->get('? <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2537	2628	
==>rldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=back <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2537	2628	
==>rldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=back <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3918	4018	
==>the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3918	4018	
==>the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6115	6215	
==>the passed parameter to a true value. 

If this parameter is false, the factory returns a Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1755	1862	
==>ould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1755	1862	
==>ould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1755	1862	
==>ould be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1674	1780	
==>$self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1674	1780	
==>$self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1674	1780	
==>$self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified var <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13743	13865	
==>age prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set lis <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13743	13865	
==>age prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set lis <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13041	13151	
==>le PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpression>
    | <Pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6458	6574	
==>eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6458	6574	
==>eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6458	6574	
==>eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7032	7138	
==>urn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3636	3742	
==>urn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4485	4591	
==>urn $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10581	10748	
==>state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hd <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10581	10748	
==>state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hd <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6936	7082	
==>set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.p <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6936	7082	
==>set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.p <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20949	21047	
==>read sysseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15524	15648	
==>, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16939	17063	
==>, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21695	21819	
==>, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6358	6517	
==>$scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6358	6517	
==>$scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6358	6517	
==>$scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5938	6043	
==>ious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5938	6043	
==>ious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50672	50837	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$id <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4530	4626	
==>ods are
implemented as hash keys to code refs. The only function this module
exports is the const <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4530	4626	
==>ods are
implemented as hash keys to code refs. The only function this module
exports is the const <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25089	25184	
==>ent C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29641	29736	
==>ent C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) return <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	758	853	
==>_name or die <<"END";
Can't determine a NAME for this distribution.
Please use the 'name' functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	165	292	
==>{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	165	292	
==>{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	165	292	
==>{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7177	7271	
==>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7177	7271	
==>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7177	7271	
==>add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15801	15933	
==>lass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15801	15933	
==>lass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15801	15933	
==>lass";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32294	32473	
==>f ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32294	32473	
==>f ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32294	32473	
==>f ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1987	2086	
==>rp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1987	2086	
==>rp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0 <==
3	/Users/nnunley/pugs/util/addauthors.pl	260	356	
==>comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1935	2024	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1935	2024	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1935	2024	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31349	31452	
==>en of this object.

=item dir

The direction of this object (for look-ahead/behind assertions).  If
less <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7160	7261	
==>now node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7172	7273	
==>now node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	712	817	
==>t::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	712	817	
==>t::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	712	817	
==>t::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3891	3993	
==>tituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3891	3993	
==>tituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3891	3993	
==>tituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1834	1964	
==>ssage is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1834	1964	
==>ssage is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := s <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1512	1626	
==>$key,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matche <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10469	10643	
==>s[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6810	6984	
==>s[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7659	7833	
==>s[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10106	10330	
==>rams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10106	10330	
==>rams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10106	10330	
==>rams }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11380	11596	
==>'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'que <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11380	11596	
==>'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'que <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17151	17270	
==>us_ten(15) (int -> int applied to int) is a number
my $fifteen = comb(
	fun => $plus_ten,
	param => val(5),
);

# the pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3564	3659	
==>) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3564	3659	
==>) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3564	3659	
==>) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11718	11889	
==>rray"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11718	11889	
==>rray"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11718	11889	
==>rray"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4849	5004	
==>se()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are w <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4849	5004	
==>se()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are w <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9220	9325	
==>hook;
  previous_comp_hook = NULL;
}


END

#------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5856	5961	
==>">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5856	5961	
==>">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5856	5961	
==>">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6642	6736	
==>siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6642	6736	
==>siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	916	1016	
==>ding C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	916	1016	
==>ding C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1472	1572	
==>ding C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20760	20926	
==>leop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21039	21205	
==>leop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ru <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1133	1230	
==>r finding roots, like square roots or
cube roots (as in the example above).  Read a Calculus textb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4491	4615	
==>rn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4491	4615	
==>rn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4491	4615	
==>rn $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3803	3914	
==>shift;
                          $e->set('$method' => $e->get('$current')->send('get_method' => $e->get('$label' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2583	2687	
==>");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $gh <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2583	2687	
==>");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $gh <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1283	1388	
==>ions = "left" if not $options;
  if ( $relativePrecedence and $relativePrecedence ne "" )
  {
    if ( sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20989	21084	
==>nctionality to Perl packages
or programs.  Your package or program can be distributed with one o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20989	21084	
==>nctionality to Perl packages
or programs.  Your package or program can be distributed with one o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12045	12147	
==>C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7483	7579	
==>tive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7483	7579	
==>tive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1995	2111	
==>$expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expec <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1995	2111	
==>$expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2075	2191	
==>$expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7217	7314	
==>lass => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7217	7314	
==>lass => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7217	7314	
==>lass => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instan <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	428	550	
==>( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14481	14579	
==>s->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14481	14579	
==>s->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4727	4857	
==>= 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4727	4857	
==>= 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4727	4857	
==>= 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	46	161	
==>];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[L <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	46	161	
==>];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[L <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3338	3434	
==>);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4032	4128	
==>);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5240	5336	
==>);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14089	14195	
==>ibute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14089	14195	
==>ibute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14089	14195	
==>ibute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4816	4928	
==>, 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4816	4928	
==>, 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1722	1834	
==>, 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1197	1332	
==>left, $right) = @_;
    (blessed($right) && $right->isa('opaque'))
        || confess "You can only compare opaque types with other opaq <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3353	3446	
==>>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Del <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3353	3446	
==>>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14832	14931	
==>ts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14832	14931	
==>ts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14832	14931	
==>ts by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17350	17507	
==>p->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17350	17507	
==>p->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17350	17507	
==>p->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6446	6668	
==>else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6446	6668	
==>else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	223	322	
==>y usually has a single invocant typed to the
Role it is attached to (however, this is a trend and no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4889	5083	
==>ure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (sy <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6651	6845	
==>ure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1007	1178	
==>@_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1007	1178	
==>@_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1007	1178	
==>@_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4747	4851	
==>fy($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4747	4851	
==>fy($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4747	4851	
==>fy($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12471	12568	
==>ibute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12471	12568	
==>ibute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12471	12568	
==>ibute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5452	5573	
==>rgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5452	5573	
==>rgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5452	5573	
==>rgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15341	15469	
==>s';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15341	15469	
==>s';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15341	15469	
==>s';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7621	7719	
==>---------------------------------------------------------

## NOTE:
## we want to prevent the defau <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7621	7719	
==>---------------------------------------------------------

## NOTE:
## we want to prevent the defau <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7621	7719	
==>---------------------------------------------------------

## NOTE:
## we want to prevent the defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4587	4684	
==>ew::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4587	4684	
==>ew::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4587	4684	
==>ew::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34456	34571	
==><\S>), upper, word, xdigit; others are
possible (Unicode properties and user-defined POSIX classes)

Data: 'POSIX' i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	80	179	
==>r is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	80	179	
==>r is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This ciphe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	468	562	
==>lar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the stand <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	468	562	
==>lar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the stand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7500	7616	
==>my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7500	7616	
==>my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7500	7616	
==>my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	39	136	
==>Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	39	136	
==>Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	39	136	
==>Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12946	13073	
==>_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12946	13073	
==>_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24017	24126	
==>bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopCo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	100	196	
==>ME

Blondie - Blondie is a dumb intermediate language and a compiler collection for
the purpose o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4766	4873	
==>new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4766	4873	
==>new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4766	4873	
==>new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5222	5327	
==>__object__" if $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5852	6003	
==>stem( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        print -d  $final_dir
            ? <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5201	5301	
==>th 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5201	5301	
==>th 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2576	2691	
==>_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2576	2691	
==>_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2576	2691	
==>_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return und <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3665	3771	
==>e $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3665	3771	
==>e $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	630	733	
==>{10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14777	14897	
==>1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14777	14897	
==>1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14777	14897	
==>1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3333	3466	
==>=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = jo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3333	3466	
==>=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = jo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	723	844	
==>nonstandard in that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3591	3708	
==>od('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3591	3708	
==>od('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3591	3708	
==>od('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (k <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7135	7252	
==>pre     Str::split   safe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36663	36757	
==>ate corresponding to the Message could be
found using the Translator object's Set and Member pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36663	36757	
==>ate corresponding to the Message could be
found using the Translator object's Set and Member pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28482	28734	
==>else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28482	28734	
==>else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28482	28734	
==>else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17803	17979	
==>) ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17803	17979	
==>) ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17803	17979	
==>) ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5956	6078	
==>method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5956	6078	
==>method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5956	6078	
==>method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7459	7682	
==>else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7459	7682	
==>else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7459	7682	
==>else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            } <==
3	/Users/nnunley/pugs/util/version_h.pl	829	972	
==>on_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-rev=.(\d+)./ or next;
        $revision = $1;
        las <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	390	500	
==>}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	390	500	
==>}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7099	7212	
==>X this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7099	7212	
==>X this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7099	7212	
==>X this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4757	4962	
==>rs
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4757	4962	
==>rs
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7467	7578	
==>m, mpos) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfrom
    lastpos = length target
    value = "1"
    inc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3169	3321	
==>n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3169	3321	
==>n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	691	817	
==>$match );
            # <ws> is nonstandard in that it returns a hashref instead of a Match
            # print "match is ",Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2274	2428	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2274	2428	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2274	2428	
==>{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	884	984	
==>this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	884	984	
==>this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	884	984	
==>this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inh <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5958	6076	
==>"# Symbols:    @symbols[]";

        dbg "# Statements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25929	26025	
==>unctions can only work if called with ampersands, and only if
the parser object is the first valu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	413	499	
==>uthorization proxy_authorization authorization_basic proxy_authorization_basic
»;

has <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	413	499	
==>uthorization proxy_authorization authorization_basic proxy_authorization_basic
»;

has <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20981	21218	
==>=> fun(
                param => "n",
                body => cond(
                    if => comb(
                        fun => ide("is_nil?"),
                        param => ide("xs"),
                    ),
                    then <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8981	9104	
==>} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8981	9104	
==>} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $! <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	606	741	
==>ls:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4084	4219	
==>ls:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8165	8268	
==>, use the next() method:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4023	4208	
==>]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'n <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2669	2774	
==>my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPY <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2669	2774	
==>my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPY <==
3	/Users/nnunley/pugs/util/version_h.pl	642	749	
==>N anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- do nothing!
}
e <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2484	2575	
==>stall = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2484	2575	
==>stall = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	434	544	
==>e => $type || 'type',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this her <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1218	1318	
==>rint($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1218	1318	
==>rint($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8815	8914	
==>}
}
{
  package Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for developmen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	255	380	
==>tches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	255	380	
==>tches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	255	380	
==>tches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14132	14256	
==>6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14132	14256	
==>6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14123	14242	
==>s is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_contro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10296	10415	
==>s is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_contro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11132	11251	
==>s is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_contro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1691	1807	
==>t($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2471	2587	
==>t($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	11	100	
==>Pugs::Grammar::Operator;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9574	9697	
==>key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SEL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9574	9697	
==>key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SEL <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6514	6633	
==>1 = ToNumber($v);
    return +0 if $Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12296	12410	
==>PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12296	12410	
==>PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12296	12410	
==>PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	341	481	
==>n = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	341	481	
==>n = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	341	481	
==>n = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5718	5846	
==>irs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5718	5846	
==>irs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5718	5846	
==>irs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8447	8574	
==>e sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8447	8574	
==>e sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8447	8574	
==>e sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20314	20462	
==>l6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20314	20462	
==>l6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20314	20462	
==>l6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1161	1261	
==>e Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1161	1261	
==>e Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1161	1261	
==>e Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2934	3086	
==>2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2934	3086	
==>2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2934	3086	
==>2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	921	1017	
==>o not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	921	1017	
==>o not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5440	5528	
==>open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2514	2652	
==>ex';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse package names easily
    {   my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10018	10181	
==>e all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10018	10181	
==>e all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10018	10181	
==>e all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2860	2957	
==>_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2860	2957	
==>_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2860	2957	
==>_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	431	525	
==>Run::OnPerl5::X1::BB::pugs_args);
BEGIN{
GetOptions(
    'version'   => sub{ print "--version i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16268	16361	
==>ive mechanism for
applications and packages that empowers single binaries to support N
locales <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16268	16361	
==>ive mechanism for
applications and packages that empowers single binaries to support N
locales <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15396	15501	
==>IX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9593	9698	
==>IX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1026	1121	
==>?=\s*(.*)$/) {
			@config.push({Name => ''}) unless +@config;
			@config[-1]{"Features"}{$0} = $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2045	2153	
==>r::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$da <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2045	2153	
==>r::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$da <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6417	6628	
==>{
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6417	6628	
==>{
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15036	15128	
==>ecause we don't go into "language" mode unless there's
a specific language declaration saying <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1782	1904	
==>_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1782	1904	
==>_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1782	1904	
==>_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2823	2966	
==>");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2823	2966	
==>");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2823	2966	
==>");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1681	1798	
==>x             ; Num :$base --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = CALLER: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9678	9792	
==>t2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9678	9792	
==>t2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	976	1082	
==>ray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	976	1082	
==>ray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	976	1082	
==>ray)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (S <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7724	7842	
==>uffle, -s           Run tests in random order
    --recurse, -r           Recurse into directories on test include list <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	966	1069	
==>ify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_ar <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	966	1069	
==>ify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	480	601	
==>hich all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	480	601	
==>hich all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	480	601	
==>hich all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14161	14279	
==>>data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7848	7934	
==>Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1673	1759	
==>Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8218	8350	
==>die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8218	8350	
==>die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8218	8350	
==>die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14177	14272	
==>reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14177	14272	
==>reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2188	2360	
==>( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2188	2360	
==>( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2188	2360	
==>( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ( <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1161	1329	
==>}
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7587	7698	
==>ooBar::foo_bar' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the rig <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11770	11894	
==>IL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11770	11894	
==>IL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11770	11894	
==>IL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28533	28665	
==>, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28812	28944	
==>, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       , <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2640	2759	
==>output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	258	371	
==>m ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	258	371	
==>m ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2960	3069	
==>te::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows wha <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2960	3069	
==>te::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7416	7525	
==>{; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7416	7525	
==>{; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7416	7525	
==>{; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6915	7030	
==>e (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6915	7030	
==>e (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6915	7030	
==>e (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1332	1441	
==>} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprint <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1056	1156	
==>= $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_dee <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1114	1214	
==>= $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_dee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1647	1753	
==>ve types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1647	1753	
==>ve types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1647	1753	
==>ve types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1210	1384	
==>ny, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1210	1384	
==>ny, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1017	1128	
==>ft;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie intermediate language is a language for machin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	312	449	
==>ile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::V <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15969	16083	
==>ation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19446	19560	
==>ation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _s <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1447	1563	
==>f $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast p <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1447	1563	
==>f $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1926	2031	
==>$module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1926	2031	
==>$module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6138	6246	
==>_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31885	31981	
==>ibrary generates an error
message and wants it shown to the user, the main program would check ea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31885	31981	
==>ibrary generates an error
message and wants it shown to the user, the main program would check ea <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8750	8896	
==>ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: impl <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8750	8896	
==>ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2018	2132	
==>efined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2018	2132	
==>efined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2018	2132	
==>efined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1400	1502	
==>ainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1400	1502	
==>ainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1400	1502	
==>ainst reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12271	12369	
==>&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12271	12369	
==>&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1121	1244	
==>KAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7620	7709	
==>rs{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7620	7709	
==>rs{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4643	4785	
==>r("Could not register package"), return;
            
            
            my $postinst = $meta_dir->file( $conf->postinst );
            i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18394	18489	
==>tures are in exactly the right input
format for Node.new(), by which you can create an identical <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18394	18489	
==>tures are in exactly the right input
format for Node.new(), by which you can create an identical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14102	14290	
==>et->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14102	14290	
==>et->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14102	14290	
==>et->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2551	2669	
==>erl version on success and false on failure.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9830	9925	
==>ap: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9830	9925	
==>ap: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is r <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	222	317	
==>$.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=he <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	222	317	
==>$.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=he <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26300	26399	
==>e can be anything at
all.  Note that while the Hash itself is copied on input and output, any
variab <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26300	26399	
==>e can be anything at
all.  Note that while the Hash itself is copied on input and output, any
variab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3090	3272	
==>y $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3090	3272	
==>y $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3090	3272	
==>y $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	93	208	
==>erl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->ari <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	93	208	
==>erl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->ari <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	93	208	
==>erl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->ari <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	4	108	
==>ss Date;

# it's actually a role; after all, it defines no properties.

# return floating point seconds r <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	670	771	
==>pace, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) retu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1254	1491	
==>uffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1254	1491	
==>uffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                } <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12891	13009	
==>.1.4
      <','>
    | <Elision> <','>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <Prope <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8682	8800	
==>0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8678	8796	
==>0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6295	6415	
==>5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6295	6415	
==>5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6520	6668	
==>rams =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $bo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6169	6285	
==>art_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= N <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6169	6285	
==>art_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4171	4299	
==>/;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4171	4299	
==>/;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4171	4299	
==>/;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4369	4470	
==>less $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4369	4470	
==>less $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4369	4470	
==>less $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13894	14049	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13894	14049	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13894	14049	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7349	7453	
==>d        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7349	7453	
==>d        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7349	7453	
==>d        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3224	3353	
==>ray {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3224	3353	
==>ray {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  } <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	4027	4146	
==>pm";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d $p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16328	16444	
==>able
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.name <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	165	267	
==>n authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses wo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	165	267	
==>n authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1524	1626	
==>@_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1524	1626	
==>@_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1524	1626	
==>@_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $meth <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10912	11023	
==>,
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4780	4876	
==>erl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4920	5016	
==>erl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	579	701	
==>return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	579	701	
==>return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	579	701	
==>return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1570	1677	
==>il2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1570	1677	
==>il2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1570	1677	
==>il2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25120	25247	
==>>{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	219	344	
==>,
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	219	344	
==>,
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1554	1695	
==>ment.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1554	1695	
==>ment.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1554	1695	
==>ment.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1099	1216	
==>);

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1099	1216	
==>);

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1099	1216	
==>);

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16180	16289	
==>r

  # backslash

  # start of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2665	2766	
==>le defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal paramete <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2665	2766	
==>le defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal paramete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8201	8399	
==>method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8201	8399	
==>method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8201	8399	
==>method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2379	2505	
==>ookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2379	2505	
==>ookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12560	12770	
==>est{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2908	3002	
==>quest URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.remo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2908	3002	
==>quest URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.remo <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	77	218	
==>default = (
            "boring",
            "missing examples",
        );
      pick @arr || @default
}

sub report (@x) returns Str is exp <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2324	2436	
==>, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Thi <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2324	2436	
==>, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3112	3218	
==>ype { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]? <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3112	3218	
==>ype { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]? <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5337	5436	
==>(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',(shift()?1:0),@_) if $cls eq 'Bit' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31591	31788	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31591	31788	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31591	31788	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2284	2379	
==>on
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2284	2379	
==>on
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6575	6727	
==>all'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	317	435	
==>lf->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespac <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	317	435	
==>lf->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9841	10011	
==>main}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method cle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9841	10011	
==>main}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method cle <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15621	15709	
==>->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_from <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1079	1176	
==>g    = $ENV{HARNESS_DEBUG} || 0;
$Switches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUM <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4193	4282	
==>ses that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPA <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4193	4282	
==>ses that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1914	2022	
==>leop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1925	2033	
==>leop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	896	998	
==>e $value = { $^v.[1] }, ?$u) is exported(:all) {
  ## XXX - orig: $wanted = [$wanted] unless ref $wante <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7496	7587	
==>a.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7496	7587	
==>a.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7496	7587	
==>a.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7617	7744	
==>NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pVarName) {
    return "is macrop5 $pVarName" if p6_macrop5($pVarName);
    p6_v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14279	14391	
==>n for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14279	14391	
==>n for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	140	273	
==>G{__WARN__} = sub { $w };
}

### This is the ONLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3297	3388	
==>constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3297	3388	
==>constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14729	14840	
==>it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14729	14840	
==>it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::Keye <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1306	1412	
==>e('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1306	1412	
==>e('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1306	1412	
==>e('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3746	3876	
==>w_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3746	3876	
==>w_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3746	3876	
==>w_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5033	5199	
==>) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5033	5199	
==>) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5033	5199	
==>) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	347	446	
==>turn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	347	446	
==>turn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	347	446	
==>turn() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2449	2551	
==>);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2449	2551	
==>);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2449	2551	
==>);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	14	113	
==>un::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	14	113	
==>un::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	14	113	
==>un::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19446	19545	
==>e as a table.

The intended interface and use of this class in Perl programs is similar to
the inten <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23998	24097	
==>e as a table.

The intended interface and use of this class in Perl programs is similar to
the inten <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22514	22613	
==>e as a table.

The intended interface and use of this class in Perl programs is similar to
the inten <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1936	2040	
==>morrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1936	2040	
==>morrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23072	23204	
==>REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOS <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8591	8715	
==>e(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8591	8715	
==>e(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	316	441	
==>Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	316	441	
==>Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	316	441	
==>Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7612	7752	
==>elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7612	7752	
==>elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7612	7752	
==>elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16896	16992	
==>hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16896	16992	
==>hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16896	16992	
==>hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27268	27392	
==>1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18503	18597	
==>ng a human being write out
that text themselves.

What Locale::KeyedText does is associate each <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18503	18597	
==>ng a human being write out
that text themselves.

What Locale::KeyedText does is associate each <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3458	3565	
==>g! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6935	7042	
==>g! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5892	5999	
==>g! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26444	26546	
==>$a, $b )),
		),
	);
	is($type->stringify, "∀α. ∀β. list α → list β → list (α × β)", "pre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	838	935	
==>If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you' <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	838	935	
==>If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3031	3162	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3031	3162	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3031	3162	
==>es}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4788	4927	
==>@!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4788	4927	
==>@!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	457	546	
==>e = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4035	4164	
==>, installation => $obj) }
                map { JIB::Meta->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2722	2821	
==>mmar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2722	2821	
==>mmar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1904	2020	
==>])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1904	2020	
==>])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1904	2020	
==>])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])= <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	938	1062	
==>fies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	938	1062	
==>fies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9079	9178	
==>tting the OPEN Count

You can access the number capture groups with the nparen() method:

  my $capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3368	3499	
==>ing { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2834	2936	
==>("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2834	2936	
==>("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4264	4378	
==>e}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4264	4378	
==>e}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4264	4378	
==>e}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1019	1153	
==>$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1019	1153	
==>$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1019	1153	
==>$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4090	4190	
==>name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4090	4190	
==>name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4090	4190	
==>name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer  <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7782	7911	
==>(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11783	11908	
==>(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11783	11908	
==>(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	611	772	
==>perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	611	772	
==>perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10116	10213	
==>oop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10116	10213	
==>oop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10116	10213	
==>oop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1331	1466	
==>k->isa('block'))
        || confess "OR takes a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3201	3288	
==>Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3201	3288	
==>Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7260	7454	
==>d->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7260	7454	
==>d->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7260	7454	
==>d->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                retur <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22708	22823	
==>in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					par <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3738	3829	
==>lection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtri <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3738	3829	
==>lection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11682	11780	
==>le since they
are just instances of Class which does Role too. So this means that all classes
and r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11682	11780	
==>le since they
are just instances of Class which does Role too. So this means that all classes
and r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11682	11780	
==>le since they
are just instances of Class which does Role too. So this means that all classes
and r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4181	4279	
==>CH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4181	4279	
==>CH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4181	4279	
==>CH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13966	14111	
==>ex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13966	14111	
==>ex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13966	14111	
==>ex == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2123	2224	
==>$code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2123	2224	
==>$code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2123	2224	
==>$code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9920	10082	
==>xt time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.cur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9920	10082	
==>xt time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8873	8981	
==>lass => print => $neg, $how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15364	15568	
==>r @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18841	19045	
==>r @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18266	18470	
==>r @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	453	546	
==>hange an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	453	546	
==>hange an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	453	546	
==>hange an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7408	7517	
==>TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7408	7517	
==>TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7408	7517	
==>TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TC <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17281	17374	
==>g that it subscribes to the
localization methodology that is described here, and hence provide <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17281	17374	
==>g that it subscribes to the
localization methodology that is described here, and hence provide <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7057	7148	
==>mpiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1212	1322	
==>nv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1212	1322	
==>nv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1212	1322	
==>nv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2521	2667	
==>=> [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2426	2564	
==>=> [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        matc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21372	21482	
==>g);
#    print STDERR $mn,"\n";
    no strict 'refs';
    $$mn = p6_meta('Scalar')->new();
    $$mn->ASSIGN($v) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4388	4484	
==>s all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4388	4484	
==>s all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4388	4484	
==>s all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This completel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7467	7575	
==>rators, and return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7214	7317	
==>rators, and return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	783	894	
==>, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	783	894	
==>, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	783	894	
==>, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25773	25872	
==>ing the old names and its values the new names.
This method will fail if any C<$mapping> keys do not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30325	30424	
==>ing the old names and its values the new names.
This method will fail if any C<$mapping> keys do not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29291	29390	
==>ing the old names and its values the new names.
This method will fail if any C<$mapping> keys do not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3720	3845	
==>Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3720	3845	
==>Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3720	3845	
==>Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10930	11041	
==>{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10930	11041	
==>{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10930	11041	
==>{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2269	2400	
==>hile $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2269	2400	
==>hile $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2269	2400	
==>hile $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35325	35426	
==>o have &'s in our I<real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp: <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	571	669	
==>$a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	571	669	
==>$a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	703	802	
==>d the new module functionality will not need it. Althoug this may be a 
# naive understanding of wha <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	703	802	
==>d the new module functionality will not need it. Althoug this may be a 
# naive understanding of wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19205	19311	
==>tually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19205	19311	
==>tually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19205	19311	
==>tually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8852	8973	
==>y);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8852	8973	
==>y);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8852	8973	
==>y);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3572	3681	
==>], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14175	14269	
==>:$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $targ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14175	14269	
==>:$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $targ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13731	13829	
==>-e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13731	13829	
==>-e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13731	13829	
==>-e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12410	12515	
==>ircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12410	12515	
==>ircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12410	12515	
==>ircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24458	24573	
==>r('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24458	24573	
==>r('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24458	24573	
==>r('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2661	2783	
==>> $_[5], exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2016	2115	
==>:Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2016	2115	
==>:Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5731	5989	
==>pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5731	5989	
==>pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5731	5989	
==>pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1320	1448	
==>elf = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1320	1448	
==>elf = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1320	1448	
==>elf = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21134	21228	
==>n precompiled. This means that people who install your
module distribtution do not need to have <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21134	21228	
==>n precompiled. This means that people who install your
module distribtution do not need to have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15925	16077	
==>f $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15925	16077	
==>f $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15925	16077	
==>f $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2118	2317	
==>>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2118	2317	
==>>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15866	15995	
==>' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp3} ) ;
    }

    return _not_implemented( $n, "ternary" );
}
1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3919	4120	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3919	4120	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3919	4120	
==>=> {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	315	437	
==>find root-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print "Cop <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9950	10048	
==>e.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares t <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9950	10048	
==>e.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9169	9298	
==>tch = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9157	9286	
==>tch = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	95	190	
==>quiv 
#  infix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13296	13522	
==>me } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13296	13522	
==>me } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13296	13522	
==>me } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1188	1302	
==>::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1188	1302	
==>::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1188	1302	
==>::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5740	5838	
==>ver 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5740	5838	
==>ver 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7937	8035	
==>ver 4

=item B<status returns Hash>

This method calls the superclass C<status> method and adds the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3417	3522	
==>s[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3417	3522	
==>s[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3417	3522	
==>s[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5113	5205	
==>e value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5113	5205	
==>e value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6637	6729	
==>e value of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2753	2857	
==>&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3573	3661	
==>[non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3757	3845	
==>[non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9451	9610	
==>m_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9451	9610	
==>m_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9451	9610	
==>m_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1734	1859	
==>"PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1734	1859	
==>"PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1734	1859	
==>"PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1115	1243	
==>t_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1115	1243	
==>t_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1115	1243	
==>t_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	26	136	
==>X pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	26	136	
==>X pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	26	136	
==>X pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1311	1412	
==>Tangram doesn't have a real type system :-P
# there are more types ... but this will do for now
our %t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7053	7153	
==>by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7053	7153	
==>by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1253	1360	
==>rencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1253	1360	
==>rencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1253	1360	
==>rencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub cir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6920	7027	
==>a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6920	7027	
==>a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6920	7027	
==>a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15959	16088	
==>urn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15959	16088	
==>urn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15959	16088	
==>urn $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5094	5229	
==>->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5094	5229	
==>->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5094	5229	
==>->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7008	7125	
==>) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cours <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7008	7125	
==>) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cours <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7008	7125	
==>) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of cours <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3430	3623	
==>ncat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3677	3870	
==>ncat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1422	1511	
==>ol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_sy <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1927	2046	
==>n macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1927	2046	
==>n macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $c <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	207	313	
==>0.02';

use strict;

# determine if the user needs nmake, and download it if needed
sub check_nmake {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2260	2363	
==>ini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2260	2363	
==>ini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2260	2363	
==>ini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9911	10073	
==>( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creatin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9911	10073	
==>( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creatin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9911	10073	
==>( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creatin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5130	5238	
==>s YAML; don't compile anything.

When compiling (--link option not given), there has to be only one input fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5130	5238	
==>s YAML; don't compile anything.

When compiling (--link option not given), there has to be only one input fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5130	5238	
==>s YAML; don't compile anything.

When compiling (--link option not given), there has to be only one input fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2332	2440	
==>rl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2332	2440	
==>rl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2332	2440	
==>rl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10122	10289	
==>mber => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all wit <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2173	2322	
==>mber => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all wit <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2173	2322	
==>mber => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all wit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	968	1138	
==>ams  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        sig  = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16529	16638	
==>$S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12950	13059	
==>$S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7321	7428	
==>_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7321	7428	
==>_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7321	7428	
==>_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12764	12902	
==>rray} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20207	20307	
==>in a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20207	20307	
==>in a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11920	12120	
==>$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11920	12120	
==>$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	893	983	
==>aluePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10251	10351	
==>_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10251	10351	
==>_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10251	10351	
==>_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6142	6298	
==>null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6142	6298	
==>null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6142	6298	
==>null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15412	15538	
==>w_pad($param->val => undef);

    return $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15435	15544	
==>.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15435	15544	
==>.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9694	9793	
==>args) {
	# In VMS protect with doublequotes because otherwise
	# DCL will lowercase -- unless alread <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1185	1303	
==>ethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1185	1303	
==>ethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1185	1303	
==>ethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4940	5082	
==>(' ', $ok, _('$.number'), $description);            
        },
        'status' => sub {
            my $status_sub  = $::TestBuilder->FETCH(' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6673	6771	
==>t == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4093	4193	
==>ing the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. I <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4093	4193	
==>ing the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6290	6390	
==>ing the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4622	4737	
==>->error(RPe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10189	10276	
==>nt ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10924	11011	
==>nt ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]" <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7749	7876	
==>y < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16777	16874	
==>he Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 wil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16777	16874	
==>he Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 wil <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8315	8420	
==>-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree y <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8315	8420	
==>-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3885	3978	
==>->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5787	5880	
==>->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5255	5367	
==>ory>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., precedence => .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2232	2335	
==>? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2232	2335	
==>? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2232	2335	
==>? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3435	3567	
==>f eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3435	3567	
==>f eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23019	23236	
==>im fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23019	23236	
==>im fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23019	23236	
==>im fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2387	2496	
==>primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2387	2496	
==>primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2387	2496	
==>primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17267	17364	
==>:Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17267	17364	
==>:Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source f <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13263	13358	
==>), and the type of the body
fun: type($$) = {
	type::operator::arrow->new(
		new_env($$)->{ $.pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3534	3628	
==>| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3534	3628	
==>| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4124	4218	
==>| {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4600	4708	
==>tant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4600	4708	
==>tant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4600	4708	
==>tant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2262	2378	
==>eates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2273	2389	
==>eates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            rul <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6052	6156	
==>ch_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	901	1021	
==>$src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	901	1021	
==>$src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $blo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3009	3122	
==>its List.

=item Sym

Resolves a symbol into a value. Could be a global or a dynamic symbol:

    App(
        Sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7468	7597	
==>>[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7468	7597	
==>>[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7468	7597	
==>>[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30080	30173	
==>s a short-hand or alternative for the functionality provided
by the 5 generic relational opera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34632	34725	
==>s a short-hand or alternative for the functionality provided
by the 5 generic relational opera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33805	33898	
==>s a short-hand or alternative for the functionality provided
by the 5 generic relational opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7058	7157	
==>ro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7058	7157	
==>ro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7058	7157	
==>ro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9725	9827	
==>zy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9725	9827	
==>zy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9725	9827	
==>zy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12987	13205	
==>ey = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12987	13205	
==>ey = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12987	13205	
==>ey = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20304	20393	
==>))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20304	20393	
==>))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20304	20393	
==>))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5069	5165	
==>iption>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5069	5165	
==>iption>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7266	7362	
==>iption>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2626	2783	
==>s         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2626	2783	
==>s         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2626	2783	
==>s         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1847	1954	
==>t $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1847	1954	
==>t $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5694	5790	
==>::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1717	1875	
==>.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1717	1875	
==>.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1717	1875	
==>.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4212	4325	
==>_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4429	4542	
==>_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	719	829	
==>ells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	719	829	
==>ells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	719	829	
==>ells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1341	1436	
==>ebug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1341	1436	
==>ebug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1341	1436	
==>ebug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	370	509	
==>ERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

loca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	370	509	
==>ERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

loca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	370	509	
==>ERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

loca <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1851	2006	
==>t,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1851	2006	
==>t,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4567	4662	
==>efined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4567	4662	
==>efined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4567	4662	
==>efined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1265	1378	
==>uld be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1265	1378	
==>uld be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1265	1378	
==>uld be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35051	35179	
==>) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=rema <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35051	35179	
==>) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=rema <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35051	35179	
==>) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=rema <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1954	2071	
==>tamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1954	2071	
==>tamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11138	11282	
==>found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11138	11282	
==>found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11138	11282	
==>found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6246	6343	
==>o_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6246	6343	
==>o_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6246	6343	
==>o_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18575	18666	
==>_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18575	18666	
==>_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18575	18666	
==>_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21505	21632	
==>eturn { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21784	21911	
==>eturn { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	288	384	
==>Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	288	384	
==>Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	288	384	
==>Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17898	18145	
==>d $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next MET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17898	18145	
==>d $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next MET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17898	18145	
==>d $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next MET <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3330	3431	
==>s { (shift)->{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($left->params->equal_to($ri <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1956	2053	
==>rker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSI <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1956	2053	
==>rker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1539	1650	
==>ut[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1539	1650	
==>ut[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1539	1650	
==>ut[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4232	4381	
==>w( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7709	7858	
==>w( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6693	6842	
==>w( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3410	3514	
==>ans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3410	3514	
==>ans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3410	3514	
==>ans store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# T <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1277	1416	
==>_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ' <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1277	1416	
==>_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26394	26491	
==>efine ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7536	7646	
==>dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7536	7646	
==>dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7536	7646	
==>dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4251	4358	
==>ng(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4251	4358	
==>ng(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4251	4358	
==>ng(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2308	2396	
==>tor:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_ope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2308	2396	
==>tor:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_ope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2308	2396	
==>tor:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2734	2835	
==>UG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2734	2835	
==>UG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2734	2835	
==>UG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToke <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5156	5299	
==>ail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            w <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5156	5299	
==>ail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7064	7170	
==>012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    got <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36540	36667	
==>s->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36540	36667	
==>s->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36540	36667	
==>s->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5543	5642	
==>d perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5543	5642	
==>d perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5543	5642	
==>d perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	124	219	
==>cipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    prin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	124	219	
==>cipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    prin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24841	24933	
==>ressed only by their names, and all
Relation::Example tuples may be individually addressed on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1016	1165	
==>bject";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1016	1165	
==>bject";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1016	1165	
==>bject";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($meth <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1145	1255	
==>$self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1145	1255	
==>$self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5331	5434	
==>ckage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5331	5434	
==>ckage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5331	5434	
==>ckage's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8349	8480	
==>statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) {
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14476	14583	
==>if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14476	14583	
==>if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channe <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4677	4812	
==>pen 'file';
    open our $f, 'file';  -->  our $f = open 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19364	19456	
==>tes the
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19364	19456	
==>tes the
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2432	2544	
==>mpile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2432	2544	
==>mpile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2432	2544	
==>mpile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*IN <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	114	210	
==>o use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	103	197	
==>o use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	70	164	
==>o use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3483	3595	
==>am{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3483	3595	
==>am{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3483	3595	
==>am{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	172	290	
==>} => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	172	290	
==>} => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	172	290	
==>} => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37105	37227	
==>< atom >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	639	738	
==>mory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	639	738	
==>mory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	639	738	
==>mory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5909	6033	
==>attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5909	6033	
==>attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5909	6033	
==>attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2077	2182	
==>och => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2077	2182	
==>och => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	811	910	
==>t "C code:\n$res\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Type safe: " . $pret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2907	3031	
==>r pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2907	3031	
==>r pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2907	3031	
==>r pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2639	2780	
==>doesn't work without this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<toke <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8023	8148	
==>rint header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8023	8148	
==>rint header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4617	4771	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4617	4771	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4617	4771	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	974	1103	
==>e base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	366	461	
==>_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	424	519	
==>_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::tes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8122	8235	
==>_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8122	8235	
==>_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1500	1586	
==>apture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_nam <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1500	1586	
==>apture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_nam <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1155	1270	
==>t );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1155	1270	
==>t );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

metho <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6097	6203	
==>tals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<anal <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3470	3590	
==>nd_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        eval { requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11877	11966	
==>to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11877	11966	
==>to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11877	11966	
==>to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1202	1335	
==>} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1202	1335	
==>} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1202	1335	
==>} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #ev <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7716	7854	
==>de'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7909	8047	
==>de'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4616	4707	
==>initrd-size specifies the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1945	2093	
==>ension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$P <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5252	5356	
==>names.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || % <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5252	5356	
==>names.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24257	24375	
==>cs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20678	20796	
==>cs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2392	2492	
==>&& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2392	2492	
==>&& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2392	2492	
==>&& thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12798	12932	
==>_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12798	12932	
==>_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12798	12932	
==>_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	449	567	
==>t_arguments( self.create_arguments( @args ) );
        }

        my multi sub collect_arguments ([]) {}
        my mul <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8345	8450	
==>ne(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8345	8450	
==>ne(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29351	29443	
==>will fail if any C<$mapping> keys do not match invocant
Relation::Example attribute names, or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12927	13056	
==>his->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12927	13056	
==>his->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12927	13056	
==>his->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13262	13396	
==>\"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9448	9582	
==>\"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10284	10418	
==>\"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1173	1295	
==>= 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1378	1500	
==>= 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1439	1561	
==>= 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $labe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2461	2634	
==>=> -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2461	2634	
==>=> -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6392	6514	
==>path.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3	127	
==>kage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3	127	
==>kage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3	127	
==>kage PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18870	18967	
==>hat people who would be writing the text
would have to know how to edit Perl files, this shouldn't <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18870	18967	
==>hat people who would be writing the text
would have to know how to edit Perl files, this shouldn't <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3335	3432	
==>lnum {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::n <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	959	1140	
==>e($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0.. <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	959	1140	
==>e($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0.. <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2123	2260	
==>s (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi method as (--> Array) { @.strings }
        multi metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18788	18911	
==>::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18788	18911	
==>::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18788	18911	
==>::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	538	665	
==>,
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	538	665	
==>,
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	538	665	
==>,
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2779	2874	
==>q "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2779	2874	
==>q "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2779	2874	
==>q "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_pe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11015	11114	
==>\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #pri <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2441	2538	
==>hild);
    }
    $self;
}

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2441	2538	
==>hild);
    }
    $self;
}

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	387	494	
==>q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	387	494	
==>q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; ret <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23004	23101	
==>PT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12820	12928	
==>nding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12820	12928	
==>nding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3153	3247	
==>are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3153	3247	
==>are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3153	3247	
==>are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5942	6047	
==>ned $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5930	6035	
==>ned $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4398	4500	
==>arget );

Moves a file or directory to the target.

Returns true on success, false on failure.

=cut

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	580	691	
==>cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	580	691	
==>cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	580	691	
==>cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1681	1791	
==>p($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1681	1791	
==>p($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1681	1791	
==>p($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6443	6561	
==>ix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6443	6561	
==>ix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6443	6561	
==>ix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1333	1442	
==>ub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1333	1442	
==>ub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1333	1442	
==>ub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $co <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	331	450	
==>$.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	331	450	
==>$.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26878	26971	
==>gs and handlers.  F<Regexp::Parser> does
this automatically, but if you are sub-classing it, y <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1294	1406	
==>_show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1294	1406	
==>_show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = R <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1550	1665	
==>Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1550	1665	
==>Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	616	708	
==>& ($signature->isa('closure::params') || $signature->isa('closure::signature')))
        || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13170	13288	
==>(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13170	13288	
==>(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13170	13288	
==>(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3072	3213	
==>s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4325	4463	
==>{$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bon <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2954	3087	
==>s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37668	37798	
==>umeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37668	37798	
==>umeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37668	37798	
==>umeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8797	8910	
==>)\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8797	8910	
==>)\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8797	8910	
==>)\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16952	17103	
==>re_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${& <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13373	13524	
==>re_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${& <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20333	20447	
==>~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $cmd = %?CON <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35351	35450	
==>regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13119	13213	
==>$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13119	13213	
==>$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11846	11981	
==>urn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11846	11981	
==>urn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11846	11981	
==>urn $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1561	1665	
==>=> $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1561	1665	
==>=> $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1561	1665	
==>=> $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2197	2316	
==>perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	194	301	
==>perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	194	301	
==>perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4589	4693	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4589	4693	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4589	4693	
==>:to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16805	16896	
==>ll ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16805	16896	
==>ll ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16805	16896	
==>ll ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1264	1387	
==>else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1264	1387	
==>else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1473	1596	
==>else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25749	25852	
==>enamed, with its keys being the old names and its values the new names.
This method will fail if any C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30301	30404	
==>enamed, with its keys being the old names and its values the new names.
This method will fail if any C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29267	29370	
==>enamed, with its keys being the old names and its values the new names.
This method will fail if any C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	43	146	
==>rl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	43	146	
==>rl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	43	146	
==>rl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/" <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	824	945	
==>with yaml precompilation, this may be bogus.
sub touch {
    # XXX: *ugly* hack! ghc doesn't spot that the include file wa <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	324	443	
==>UILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	324	443	
==>UILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1856	1948	
==>unjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1856	1948	
==>unjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1856	1948	
==>unjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2022	2131	
==>s = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1008	1117	
==>s = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12014	12196	
==>roduct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15491	15673	
==>roduct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $ot <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1498	1607	
==>Obj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21393	21485	
==>should easily port
to alternative relational database engines with minimal effort.

This migh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21393	21485	
==>should easily port
to alternative relational database engines with minimal effort.

This migh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2472	2570	
==>)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2472	2570	
==>)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2472	2570	
==>)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3466	3699	
==>%events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3466	3699	
==>%events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	221	374	
==>fter each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ } <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3271	3369	
==>is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AU <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3271	3369	
==>is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2463	2567	
==>ot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2463	2567	
==>ot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2463	2567	
==>ot::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15361	15473	
==>self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3546	3639	
==>use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3546	3639	
==>use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8640	8771	
==>>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexInte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16583	16698	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16862	16977	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4428	4565	
==>=>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4428	4565	
==>=>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4428	4565	
==>=>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe th <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5123	5296	
==>> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5123	5296	
==>> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7646	7743	
==>, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::map (@values <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7848	7947	
==>ec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DES <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7848	7947	
==>ec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7787	7923	
==>Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7787	7923	
==>Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7787	7923	
==>Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11997	12192	
==>xpression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11997	12192	
==>xpression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	421	542	
==>strm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_prefix  package_authori <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26588	26681	
==>e invocant Relation's header, in which case it returns the identity-one
Relation or the invoca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31140	31233	
==>e invocant Relation's header, in which case it returns the identity-one
Relation or the invoca <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9010	9120	
==>}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  req <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9068	9178	
==>}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  req <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1169	1257	
==>ct_equiv);

	if ($self->has_symbol($node)){
		return $self->symbolic_representation($node <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3291	3383	
==>(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3291	3383	
==>(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3291	3383	
==>(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitive {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	522	701	
==>'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	522	701	
==>'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	522	701	
==>'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16827	16915	
==>SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16827	16915	
==>SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16827	16915	
==>SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {... <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8914	9020	
==>ing
    # because we need the bareword semantics, where 'require'
    # will munge the package name into fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8914	9020	
==>ing
    # because we need the bareword semantics, where 'require'
    # will munge the package name into fi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10105	10243	
==>g CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for p <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10105	10243	
==>g CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10458	10563	
==>st a -> list a
	tail => do {
		my $a = type::variable::free->new;
		my $l = type::operator::nary->new(list <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10489	10582	
==>er be performed at all.  They validate everything except
well-formedness, such as that Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10489	10582	
==>er be performed at all.  They validate everything except
well-formedness, such as that Rosetta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12720	12876	
==>ush'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12999	13155	
==>ush'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38926	39045	
==>?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are creating a new escape sequence, like '\y', your handler <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8496	8598	
==>ns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few eleme <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8496	8598	
==>ns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1324	1429	
==>t, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - onl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1324	1429	
==>t, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - onl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1324	1429	
==>t, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - onl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	978	1081	
==>5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	978	1081	
==>5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1525	1628	
==>5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	633	750	
==>t $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	633	750	
==>t $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Te <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	91	202	
==>s, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1539	1633	
==>patcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1539	1633	
==>patcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1539	1633	
==>patcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7766	7938	
==>tart + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7766	7938	
==>tart + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7766	7938	
==>tart + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2511	2620	
==>n $testdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14760	14844	
==>_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14760	14844	
==>_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4456	4546	
==>ew::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4456	4546	
==>ew::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4456	4546	
==>ew::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10667	10779	
==>ICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10667	10779	
==>ICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3593	3712	
==>( $op, $x, $y ) = @_;
    my @x = ($x);
    @x = @{$x->{list}} if exists $x->{list} && $x->{op1} eq $op;
    return { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7565	7663	
==>"splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a refe <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7565	7663	
==>"splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1720	1871	
==>b { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1720	1871	
==>b { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1720	1871	
==>b { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	243	341	
==>operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	243	341	
==>operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	243	341	
==>operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-time) wo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4780	4919	
==>at 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4780	4919	
==>at 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1990	2108	
==>$n->{double_quoted};
            
    return '\'' . $n->{single_quoted} . '\'' 
        if exists $n->{single_quoted <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19955	20094	
==>TROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19955	20094	
==>TROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19955	20094	
==>TROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5300	5410	
==>e type::variable;
use base qw/type/;

package type::variable::free;
use base qw/type::variable/;

# a free vari <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2390	2485	
==>l::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2390	2485	
==>l::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11319	11449	
==>progfile}");
    } else {
	# You probaby didn't want to be sucking in from the upstream stdin
	die "test.pl:runperl(): none of prog <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	721	850	
==>h => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	732	861	
==>h => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	569	679	
==>eturn $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	569	679	
==>eturn $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	569	679	
==>eturn $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js > <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	756	854	
==>(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	649	739	
==>(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10376	10491	
==>thod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10376	10491	
==>thod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10376	10491	
==>thod resolve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1746	1855	
==>->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1746	1855	
==>->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1746	1855	
==>->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11075	11229	
==>DTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11075	11229	
==>DTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11075	11229	
==>DTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19889	20006	
==>RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16310	16427	
==>RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4406	4504	
==>ef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_pil_tree_yaml {
    my $pil_tree = $_[0]-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1000	1106	
==>de) is builtin is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14322	14422	
==>of pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, thi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14380	14480	
==>of pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, thi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12665	12771	
==>>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	351	452	
==>{ %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	351	452	
==>{ %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4093	4195	
==>you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4093	4195	
==>you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4173	4275	
==>you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected dia <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1268	1360	
==>are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's avai <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1108	1200	
==>are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's avai <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15690	15780	
==>idered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15690	15780	
==>idered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header field <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4221	4341	
==>s_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4221	4341	
==>s_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4811	4931	
==>s_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1862	1979	
==>thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1862	1979	
==>thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1862	1979	
==>thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5080	5276	
==>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5080	5276	
==>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5080	5276	
==>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3095	3213	
==>rd};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], bl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22778	22871	
==>icE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tri <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22778	22871	
==>icE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22507	22673	
==>od::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42296	42461	
==>od::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1090	1237	
==>uct( $struct );
}

sub _pp_from_struct {
    my $self    = shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5289	5398	
==>Class); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5289	5398	
==>Class); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5289	5398	
==>Class); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15466	15572	
==>_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15466	15572	
==>_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15466	15572	
==>_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2662	2800	
==>dent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2662	2800	
==>dent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2662	2800	
==>dent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3785	3899	
==>/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3785	3899	
==>/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3230	3317	
==>H('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE('::Fail' => class 'TestBuilde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	302	413	
==>}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	302	413	
==>}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	302	413	
==>}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2221	2348	
==>run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2221	2348	
==>run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2221	2348	
==>run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2019	2110	
==>://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might al <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2019	2110	
==>://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might al <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	252	337	
==>mar_name = Pugs::Compiler::Rule->compile(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	77	166	
==>se Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM:: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	77	166	
==>se Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7507	7616	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7507	7616	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7507	7616	
==>ine('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14316	14413	
==>ly eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18941	19035	
==>e
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18941	19035	
==>e
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14962	15107	
==>at is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14962	15107	
==>at is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14962	15107	
==>at is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38310	38417	
==>_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38310	38417	
==>_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38310	38417	
==>_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2412	2708	
==>lse {
                            #warn "our other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	676	794	
==>n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	676	794	
==>n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7385	7494	
==>ckage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7385	7494	
==>ckage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7385	7494	
==>ckage PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2545	2675	
==>cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to acces <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2545	2675	
==>cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to acces <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2545	2675	
==>cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to acces <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16315	16434	
==>ts) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all_ok($tot)) {
        print "All tests successfu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11818	11934	
==>ocess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11818	11934	
==>ocess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	337	453	
==>'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	323	431	
==>'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3235	3324	
==>rn $self->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10613	10766	
==>uperclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10613	10766	
==>uperclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10613	10766	
==>uperclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14664	14792	
==>e 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14664	14792	
==>e 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14664	14792	
==>e 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8419	8524	
==>testplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DE <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	619	714	
==>testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DE <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	619	714	
==>testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30630	30727	
==>utes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rathe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35181	35278	
==>utes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rathe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	737	824	
==>:Compiler::Token->compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compile(q( \ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	124	255	
==>Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { ' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	124	255	
==>Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5832	6008	
==>h="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.def <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5832	6008	
==>h="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.def <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	313	418	
==>s not required.
#
# P.S. This documentation is not in POD format in order to avoid
# problems when ther <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14709	14798	
==>B IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14709	14798	
==>B IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14709	14798	
==>B IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5947	6053	
==>rce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5947	6053	
==>rce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5947	6053	
==>rce =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2182	2318	
==>e $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2182	2318	
==>e $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15338	15462	
==>from(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_close
  name_1:
    $I1 = $I0 - p <==
3	/Users/nnunley/pugs/util/package-osx.pl	9025	9126	
==>= @_;
    make_dir("${dest}/usr/bin") unless (-d "${dest}/usr/bin");
    chdir("${dest}/usr/local/bin" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37475	37571	
==>e name of a Perl package in its positional parameter
$module_name (a string) and tries to load it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37475	37571	
==>e name of a Perl package in its positional parameter
$module_name (a string) and tries to load it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12535	12641	
==>utovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12535	12641	
==>utovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12535	12641	
==>utovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_unde <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	408	510	
==>efined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Arr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	408	510	
==>efined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5864	6075	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5864	6075	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5864	6075	
==>>fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13957	14092	
==>name' => ( $attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trai <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1101	1198	
==>, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1159	1256	
==>, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19274	19436	
==>( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19274	19436	
==>( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19274	19436	
==>( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $o <==
3	/Users/nnunley/pugs/util/package-osx.pl	5010	5108	
==>/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6::Bible::S22.3pm
        /usr/local/ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20848	20945	
==>but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20848	20945	
==>but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13456	13615	
==>'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13456	13615	
==>'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13456	13615	
==>'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21513	21652	
==>failed, 
             percent => $percent,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8275	8393	
==>n );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8275	8393	
==>n );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	183	271	
==>/www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::RequireAndUse1 <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	150	237	
==>/www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::RequireAndUse <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	196	283	
==>/www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::RequireAndUse <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	196	292	
==>match can be
implemented using some is_subtype? (QQQ what's it called?) test.  But
maybe not.  Ei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7798	7894	
==>le.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7798	7894	
==>le.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7798	7894	
==>le.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3620	3767	
==>> $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3867	4014	
==>> $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17186	17327	
==>tests) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5734	5849	
==>split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $des <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5792	5907	
==>split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $des <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	291	391	
==>tor:
my $option = %para{'x'} // "wert";

#!\pause
# er kann auch sehr einfach verkettet werden:
my $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	720	881	
==>rn { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	691	846	
==>rn { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2974	3075	
==>tions<$subscrption.name>.remove($subscription);
            $subscription.subscriber.remove_subscripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7772	7869	
==>er-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	17	106	
==>er-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	17	106	
==>er-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9732	9859	
==>self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9732	9859	
==>self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9732	9859	
==>self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4852	4946	
==>);
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', '... $Foo got t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2042	2144	
==>rl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2042	2144	
==>rl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2042	2144	
==>rl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1729	1846	
==>ION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1729	1846	
==>ION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1729	1846	
==>ION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3940	4147	
==>lues.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7417	7624	
==>lues.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6383	6590	
==>lues.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1680	1844	
==>te
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1680	1844	
==>te
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	787	881	
==>include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test::Harness: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3550	3646	
==>nction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3550	3646	
==>nction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3550	3646	
==>nction (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23461	23558	
==>plementations are immutable rather than mutable, this property and/or
same-named accessor method c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28013	28110	
==>plementations are immutable rather than mutable, this property and/or
same-named accessor method c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26817	26914	
==>plementations are immutable rather than mutable, this property and/or
same-named accessor method c <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	252	353	
==>PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { % <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	252	353	
==>PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14403	14498	
==>roup

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13218	13331	
==>gs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16695	16808	
==>gs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16057	16170	
==>gs.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subse <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10742	10841	
==>tor::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair->new( $a, $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2067	2163	
==>times.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1991	2082	
==>times.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	952	1134	
==>dx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	952	1134	
==>dx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	952	1134	
==>dx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF- <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4314	4527	
==>nt("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4314	4527	
==>nt("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1558	1660	
==>new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some hig <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1558	1660	
==>new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some hig <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3815	3944	
==>lt;
    
        my $my_bindir = "$Site/$new_alt->{package}/bin";
    
        my @bins;
        print "\nRelinking scripts/manpag <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2549	2655	
==>= $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $univers <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2549	2655	
==>= $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $univers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6878	6996	
==>COROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6878	6996	
==>COROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6878	6996	
==>COROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20303	20424	
==>);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatcher = $self.dispatcher(:descendan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14060	14157	
==>s_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container whi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14060	14157	
==>s_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container whi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11625	11736	
==>p::Parser::tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3521	3627	
==>need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2564	2666	
==>need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	441	543	
==>self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	441	543	
==>self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	441	543	
==>self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11699	11816	
==>PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11699	11816	
==>PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11699	11816	
==>PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	113	216	
==>A = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	113	216	
==>A = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	113	216	
==>A = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10144	10247	
==>ram ($isInvocant, $isOptional, $isNamed, $isLValue, $isWritable, $isLazy, $paramName, $paramContext, $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1625	1730	
==>a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1625	1730	
==>a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1625	1730	
==>a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) < <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	616	729	
==>ger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Keyed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	616	729	
==>ger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Keyed <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	576	710	
==>sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	576	710	
==>sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	803	924	
==>er::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => [],
		defined_nodes => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15699	15808	
==>es a human-readable explanation of the execution of a regex.  Will
be able to produce HTML output that color-c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	163	269	
==>eturns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	163	269	
==>eturns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2879	3008	
==>ts $n->{op1}{stmt};

    return default( $n );
}

sub assoc_list {
    my $n = $_[0];
    # print "list emit_rule: ", Dumpe <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1773	1875	
==>1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1773	1875	
==>1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1279	1395	
==>f: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1279	1395	
==>f: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1279	1395	
==>f: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2171	2310	
==>turn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should aut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2171	2310	
==>turn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should aut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2171	2310	
==>turn n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4290	4404	
==>lf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4290	4404	
==>lf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4290	4404	
==>lf->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	369	497	
==>t returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	369	497	
==>t returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24053	24164	
==>ect(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20474	20585	
==>ect(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	632	732	
==>eys must be strings, and values must be native types";
        $values{$key->to_str->to_native()} = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	958	1096	
==>{
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter',
        o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3515	3618	
==>elized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3515	3618	
==>elized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2479	2578	
==>s the name of the subscription
        method add_subscription (String $name, $subscriber = $?CALLER <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9061	9154	
==>the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> e <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9061	9154	
==>the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	327	440	
==>gs->isa('list'))
        || confess "You must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	771	874	
==>_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $usern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	771	874	
==>_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $usern <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1915	2009	
==>ef && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1915	2009	
==>ef && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1915	2009	
==>ef && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	783	914	
==>'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	783	914	
==>'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	783	914	
==>'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10323	10470	
==>atch::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6664	6811	
==>atch::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7513	7660	
==>atch::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7961	8069	
==>t =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( %app<"pInv"> ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10492	10595	
==>face::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and comp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10492	10595	
==>face::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and comp <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5464	5583	
==>oreach my $piece (qw(name type reason)) {
                $details->{$piece} = defined $result{$piece} ? $result{$piece} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	306	406	
==>infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *infi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	306	406	
==>infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	350	471	
==>rong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	350	471	
==>rong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	350	471	
==>rong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3130	3238	
==>::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3130	3238	
==>::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3130	3238	
==>::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14647	14821	
==>}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14647	14821	
==>}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14647	14821	
==>}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4767	4919	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4767	4919	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4767	4919	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10022	10171	
==>ems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10022	10171	
==>ems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10022	10171	
==>ems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Pe <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8740	8841	
==>kg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pkg) || $self->can_run('ghc-pkg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	553	659	
==>ide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	553	659	
==>ide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	553	659	
==>ide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4459	4582	
==>d my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4459	4582	
==>d my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4459	4582	
==>d my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	62	160	
==>END__
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use File::Basename;
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2617	2711	
==>Functions module than the base File::Spec. Also the
/hack/ to make it work automagically for pl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2617	2711	
==>Functions module than the base File::Spec. Also the
/hack/ to make it work automagically for pl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12214	12316	
==>nd, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12214	12316	
==>nd, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37020	37134	
==>ss defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37020	37134	
==>ss defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37020	37134	
==>ss defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$r <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3855	3958	
==>u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3855	3958	
==>u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	186	289	
==>up } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	186	289	
==>up } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	186	289	
==>up } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20386	20504	
==>b {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16807	16925	
==>b {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5243	5330	
==>d_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5243	5330	
==>d_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5243	5330	
==>d_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29229	29320	
==>e->refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL_DOLLA <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2243	2348	
==>nostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2243	2348	
==>nostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2323	2428	
==>nostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4714	4810	
==>Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it pres <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4714	4810	
==>Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it pres <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4714	4810	
==>Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it pres <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	239	370	
==>diagnostics;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method diag ( Str $message <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14225	14319	
==>0:00.0]

It would not make sense to iterate through a continuous span, because the "separation" <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14225	14319	
==>0:00.0]

It would not make sense to iterate through a continuous span, because the "separation" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1584	1712	
==>sents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1584	1712	
==>sents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1808	1906	
==>ib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBunz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15453	15553	
==>0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15453	15553	
==>0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15453	15553	
==>0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2842	2984	
==>&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2842	2984	
==>&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2842	2984	
==>&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	364	473	
==>l $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	364	473	
==>l $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	364	473	
==>l $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22313	22523	
==>lf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22313	22523	
==>lf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22313	22523	
==>lf;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #wa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2345	2444	
==>ng modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a wo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2345	2444	
==>ng modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a wo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21870	21960	
==>bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21870	21960	
==>bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8525	8687	
==>ar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8525	8687	
==>ar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8525	8687	
==>ar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11031	11202	
==>t(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $self->add_handler('.' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34918	35016	
==>y must all be set when the object is constructed.  If you want to
conceptually change an existing T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34918	35016	
==>y must all be set when the object is constructed.  If you want to
conceptually change an existing T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	731	851	
==>ch )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exist <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	731	851	
==>ch )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7467	7580	
==>Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth id');
is( <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1260	1399	
==>har eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1260	1399	
==>har eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        e <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6897	7013	
==>y.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2JS Operators.pm r8593.
# Prim.hs says \\n   Scalar    left    .[ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1228	1368	
==>ng;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1228	1368	
==>ng;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7344	7443	
==>.local string target, value
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9550	9655	
==>uctHook::make_qr_regexp_pair("a",1,sub{
  print STDERR "hi\n";
  my $ret = shift(@returns);
  return rever <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1931	2034	
==>hich return the p6 version of the
#regexp.  We can then pour the re_test suite through it, yielding a
#m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9492	9575	
==>2],[1,undef,undef,3,4,3,3],[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13153	13345	
==>nt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13153	13345	
==>nt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13153	13345	
==>nt => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32785	32986	
==>op;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32785	32986	
==>op;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32785	32986	
==>op;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7927	8045	
==>e;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7927	8045	
==>e;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7927	8045	
==>e;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12364	12465	
==>check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this package fro <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15515	15610	
==>ric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15515	15610	
==>ric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7265	7368	
==>$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->generic_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5109	5236	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5109	5236	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5109	5236	
==>LF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	123	237	
==>calar::Util 'blessed';

$::TestBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ], <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2400	2523	
==>oin(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $cod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2400	2523	
==>oin(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1199	1307	
==>s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1199	1307	
==>s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1199	1307	
==>s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (* <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5769	5865	
==>values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5769	5865	
==>values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16813	16914	
==>without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16813	16914	
==>without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16813	16914	
==>without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2344	2455	
==>fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()" <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2402	2513	
==>fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()" <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31715	31808	
==>vocant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11098	11258	
==>rray and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11098	11258	
==>rray and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11098	11258	
==>rray and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1191	1293	
==>ting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1191	1293	
==>ting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1191	1293	
==>ting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3265	3359	
==>(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3265	3359	
==>(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind { <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	317	434	
==>t(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) retu <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	317	434	
==>t(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3319	3411	
==>}
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unsh <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20511	20627	
==>tem 

# want

# caller


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fcntl
# f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9300	9396	
==>= _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9300	9396	
==>= _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15445	15613	
==>ype =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " an <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10032	10127	
==>to Pugs, new test functions will be defined to facilitate the
testing of those features. For mor <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10090	10185	
==>to Pugs, new test functions will be defined to facilitate the
testing of those features. For mor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5325	5450	
==>m{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, ste <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5325	5450	
==>m{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, ste <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5325	5450	
==>m{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $end, ste <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9360	9501	
==>lternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9553	9694	
==>lternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         r <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp2.pl	2	98	
==>interp2.pl - Interpolation in Perl 5
sub hallo {
	"Hallo, $_[0]!"
}

print "Otto sagt: @{[hallo(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4680	4802	
==>ub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4680	4802	
==>ub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45467	45586	
==>')));


$::Package->send('add_method' => (
    # method label
        symbol->new('name'),
    # method body
        met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1669	1776	
==>", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1669	1776	
==>", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1669	1776	
==>", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4663	4763	
==>}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 Rule categories

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	55	148	
==>nal;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	55	148	
==>nal;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2084	2206	
==>tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2084	2206	
==>tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9199	9316	
==>ct(anyof_class => space => $neg, $how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	887	1002	
==>ck;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	887	1002	
==>ck;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  ha <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11217	11332	
==>non_numeric => sub { $_[0] ? 1 : undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13896	14018	
==>le_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13896	14018	
==>le_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13896	14018	
==>le_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8989	9144	
==>er::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1137	1272	
==>er::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok ret <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1137	1272	
==>er::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4173	4304	
==>hods => {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.reason') },
        'status' => sub {
            m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10523	10613	
==>date everything except
well-formedness, such as that Rosetta::Model Nodes are arranged corr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10523	10613	
==>date everything except
well-formedness, such as that Rosetta::Model Nodes are arranged corr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6534	6631	
==>ey which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6534	6631	
==>ey which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8731	8828	
==>ey which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7176	7322	
==>warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7176	7322	
==>warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7176	7322	
==>warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2574	2689	
==>if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authority($authority) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2574	2689	
==>if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authority($authority) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2574	2689	
==>if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->authority($authority) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13095	13208	
==>-----------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13095	13208	
==>-----------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13095	13208	
==>-----------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	899	1022	
==>sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	899	1022	
==>sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	899	1022	
==>sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3593	3695	
==>s->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2634	2735	
==>s->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	216	329	
==>cify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	216	329	
==>cify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3012	3124	
==>ub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3012	3124	
==>ub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3012	3124	
==>ub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11660	11764	
==>p (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EM <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4303	4407	
==>p (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EM <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6471	6564	
==>->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2902	3131	
==>ule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3149	3378	
==>ule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := ( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1631	1732	
==>ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	0	113	
==>use warnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	0	113	
==>use warnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	0	113	
==>use warnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	212	333	
==>fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\paus <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1636	1731	
==>odule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugi <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1636	1731	
==>odule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10878	10985	
==>tribute_list;            
}

------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10878	10985	
==>tribute_list;            
}

------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10878	10985	
==>tribute_list;            
}

------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7594	7709	
==>n_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7787	7902	
==>n_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1667	1760	
==>DPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX synt <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2567	2675	
==>>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. hardcode sp <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2062	2160	
==>rn Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool { <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2062	2160	
==>rn Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21462	21632	
==>x => $test->{max} || '??',
             failed => $failed, 
             percent => $percent,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _cre <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	642	742	
==>you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

C <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	642	742	
==>you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

C <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2398	2521	
==>~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2398	2521	
==>~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1038	1149	
==>uct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	817	949	
==>n_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	817	949	
==>n_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $spa <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13016	13135	
==></a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="11" cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5346	5459	
==>= get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2888	3001	
==>= get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3737	3850	
==>= get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1810	1928	
==>turn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1810	1928	
==>turn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1810	1928	
==>turn $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1416	1539	
==>type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1416	1539	
==>type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1416	1539	
==>type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3428	3532	
==>D__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
print &Test::a.$/;
print $Te <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4883	4980	
==>hat is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4883	4980	
==>hat is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5504	5614	
==>turn $S->object(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->for <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6187	6289	
==>e($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6187	6289	
==>e($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %h <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	15	122	
==>üpfungen
$a != $b;
$a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24081	24219	
==>nts, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24360	24498	
==>nts, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             rule <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22843	22926	
==>class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1820	1974	
==>alled --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6882	6979	
==>r, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired onc <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6882	6979	
==>r, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired onc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2742	2862	
==>_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2742	2862	
==>_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1181	1270	
==>term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", "nows <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1320	1424	
==>d_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1320	1424	
==>d_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1320	1424	
==>d_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3751	3877	
==>bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3944	4070	
==>bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12740	12861	
==>=> @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12740	12861	
==>=> @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our conn <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8621	8713	
==>g([-x|L]) --> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {true}.

p5_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	580	692	
==>$attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	580	692	
==>$attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	580	692	
==>$attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::o <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6413	6521	
==>th ov overlap ex exhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_supported_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14581	14681	
==>$f->right;
	
	my $generic_vars = generic($.fun);

	# if the function is generic we'll be instantiatin <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3493	3590	
==>h as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 20 <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3493	3590	
==>h as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 20 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15243	15344	
==>tp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg,
en <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	189	287	
==>sed nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	189	287	
==>sed nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3902	4017	
==>ify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3902	4017	
==>ify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3902	4017	
==>ify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Roo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15865	15972	
==>ric => sub { p6_Str($_[0]) },
      scalar_numeric     => sub { p6_Num(${$_[0]}) },
      scalar_non_numeric <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11941	12039	
==>AR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the paramet <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11941	12039	
==>AR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3231	3340	
==>s
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3231	3340	
==>s
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3231	3340	
==>s
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14290	14478	
==>->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14290	14478	
==>->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14290	14478	
==>->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1758	1927	
==>def $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4477	4573	
==>the current version of Pugs does not support OO, methods are
implemented as hash keys to code ref <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4477	4573	
==>the current version of Pugs does not support OO, methods are
implemented as hash keys to code ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	108	216	
==>can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	108	216	
==>can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	108	216	
==>can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Adde <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2659	2762	
==>ts

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal para <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2659	2762	
==>ts

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal para <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	347	448	
==>tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	347	448	
==>tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16283	16381	
==>~ s/of\s+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax er <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5692	5805	
==>') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5692	5805	
==>') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6282	6395	
==>') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    retur <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10540	10764	
==>ray::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )

 multi  List::sort( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2614	2725	
==>,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2807	2918	
==>,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6347	6453	
==>--
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6347	6453	
==>--
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6347	6453	
==>--
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17626	17723	
==>) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17626	17723	
==>) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17626	17723	
==>) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10245	10358	
==>}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10245	10358	
==>}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	978	1091	
==>_counter};
}

sub layout {
	my $self = shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15830	15983	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16109	16262	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5597	5688	
==>if $cls eq 'Rat';
    return get_meta('Complex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4283	4392	
==>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4283	4392	
==>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36712	36809	
==>: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: assertion

T <==
3	/Users/nnunley/pugs/util/config_h.pl	221	332	
==>Location and flags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pug <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9615	9712	
==>alue. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9615	9712	
==>alue. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	787	890	
==>ompiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <ident> <p6ws>? \;
        { return { gram <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19670	19763	
==>hema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statements <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19670	19763	
==>hema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3832	3943	
==>'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3832	3943	
==>'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3832	3943	
==>'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @pa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3228	3350	
==>ED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3228	3350	
==>ED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4752	4874	
==>ED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5790	5883	
==>ile.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD par <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5790	5883	
==>ile.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD par <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10966	11065	
==>_f".
		 "= $code_val; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3885	4008	
==>turn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Pro <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3885	4008	
==>turn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3770	3890	
==>c(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3770	3890	
==>c(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3770	3890	
==>c(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14507	14647	
==>mp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14507	14647	
==>mp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14507	14647	
==>mp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5512	5612	
==>{
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5512	5612	
==>{
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	86	194	
==>$set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	86	194	
==>$set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1572	1674	
==>_native * $right->to_num->to_native());
}

sub divide {
    my ($left, $right) = @_;
    (blessed($righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	276	396	
==>function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	276	396	
==>function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	276	396	
==>function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we'r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2104	2237	
==>ap{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2104	2237	
==>ap{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2104	2237	
==>ap{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1374	1472	
==>:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1374	1472	
==>:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1374	1472	
==>:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5302	5509	
==>)
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7064	7271	
==>)
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	264	379	
==>essage::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13284	13464	
==>ams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13284	13464	
==>ams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13284	13464	
==>ams}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4613	4715	
==>s is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the nee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4613	4715	
==>s is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the nee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4613	4715	
==>s is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the nee <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8067	8208	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8260	8401	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12892	12989	
==>ons of the messages.

These are all constants in the F<Regexp::Parser> package, which means
you ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3791	3910	
==>ule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3791	3910	
==>ule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4501	4614	
==>type,
    };
    bless $self,$cls;
    $self;
}
sub rep_type  { $_[0]{'rep'} } # string array1 array2 hash
sub fie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5709	5811	
==>TA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_ad <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5709	5811	
==>TA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	801	902	
==>neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	801	902	
==>neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	801	902	
==>neater, but causes buffering problems when
          // mixed with document.write. See tests/buffer.ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1839	1961	
==>Inv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1839	1961	
==>Inv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1839	1961	
==>Inv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support f <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5681	5830	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4181	4330	
==>len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6520	6616	
==>a test script, each value is another hash representing
how that script failed.  Its keys are thes <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10073	10235	
==>"-").
p5_charset_item(char(C)) --> [C], {[C] = "-"}.

charset_identifier(A) --> alnums(L), { atom_codes(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3300	3431	
==>first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3300	3431	
==>first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3300	3431	
==>first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15272	15411	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15272	15411	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15272	15411	
==>to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1585	1729	
==>::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1585	1729	
==>::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1585	1729	
==>::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confes <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1504	1647	
==>$script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $scr <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1504	1647	
==>$script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $scr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4558	4666	
==>ad2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9830	9935	
==>indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9830	9935	
==>indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9830	9935	
==>indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2123	2229	
==>lass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2123	2229	
==>lass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2123	2229	
==>lass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7124	7219	
==>ot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7124	7219	
==>ot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7124	7219	
==>ot::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2310	2459	
==>};
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2630	2767	
==>}
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2630	2767	
==>}
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7122	7258	
==>rams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7122	7258	
==>rams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7122	7258	
==>rams( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6346	6468	
==>er backtracking, less stack usage
    return sub {
        my $state = $_[1] || $node;
        my $st = $state->( $_[0], <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8786	8897	
==>n.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8786	8897	
==>n.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3348	3457	
==>multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3348	3457	
==>multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        < <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27863	27958	
==>e of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27863	27958	
==>e of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6190	6292	
==>->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6190	6292	
==>->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6190	6292	
==>->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2572	2696	
==>a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2572	2696	
==>a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2572	2696	
==>a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11729	11930	
==>_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11729	11930	
==>_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11729	11930	
==>_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8650	8786	
==>efined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8650	8786	
==>efined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8650	8786	
==>efined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4923	5051	
==>ovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4923	5051	
==>ovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4923	5051	
==>ovide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Cla <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12603	12708	
==>.4
      <'['> <Elision>? <']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1238	1332	
==>mply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argum <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1238	1332	
==>mply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argum <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2334	2504	
==>&infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2JS Array.pm and S29draft.pod's Li <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7116	7245	
==>y;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7116	7245	
==>y;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4837	4947	
==>Name';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4837	4947	
==>Name';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	592	735	
==>new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19127	19224	
==>er
text is *part of the program*, and not the program's users' own data; only
someone already invo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19127	19224	
==>er
text is *part of the program*, and not the program's users' own data; only
someone already invo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1399	1544	
==>curse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv;
}    

__END__





    ### XXX can be custom file & nicer object & erro <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1565	1670	
==>ugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p. <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1565	1670	
==>ugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2535	2647	
==>e {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maxim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2535	2647	
==>e {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maxim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2535	2647	
==>e {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maxim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1988	2156	
==>n $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1766	1924	
==>n $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1766	1924	
==>n $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4714	4844	
==>pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4702	4832	
==>pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14349	14471	
==>->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15899	15994	
==>es a system for writing modules that I<compile> other
Perl modules.

Modules that use these comp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15899	15994	
==>es a system for writing modules that I<compile> other
Perl modules.

Modules that use these comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	112	231	
==>ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	112	231	
==>ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	112	231	
==>ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10189	10332	
==>patch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # che <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10189	10332	
==>patch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # che <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10189	10332	
==>patch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5224	5385	
==>ie 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5224	5385	
==>ie 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5224	5385	
==>ie 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5081	5225	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5081	5225	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5081	5225	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21470	21602	
==>= "$path.yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5063	5166	
==>ly(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7731	7834	
==>ly(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2246	2346	
==>o it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2246	2346	
==>o it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2246	2346	
==>o it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4821	4941	
==>sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4821	4941	
==>sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4821	4941	
==>sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8158	8303	
==>rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4518	4663	
==>rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5367	5512	
==>rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13768	13889	
==>},
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar_numeric     => sub { $as_array_complain- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2879	2987	
==>inite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2879	2987	
==>inite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $spa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	540	652	
==>pl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1392	1491	
==>eters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span tha <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1392	1491	
==>eters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span tha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2400	2516	
==>ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2400	2516	
==>ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7315	7437	
==>ngth( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7315	7437	
==>ngth( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19540	19657	
==>time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11341	11488	
==>$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11341	11488	
==>$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11341	11488	
==>$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	276	395	
==>ists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	276	395	
==>ists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	276	395	
==>ists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3898	4002	
==>x { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3898	4002	
==>x { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3898	4002	
==>x { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub ari <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4463	4575	
==>if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4463	4575	
==>if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2954	3088	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2954	3088	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2954	3088	
==>s 
        # for $::Class as that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11650	11750	
==>n't try to put literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2452	2543	
==>re always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brent <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2452	2543	
==>re always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6575	6682	
==>(*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6575	6682	
==>(*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6575	6682	
==>(*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11134	11313	
==>$#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11134	11313	
==>$#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11134	11313	
==>$#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2014	2138	
==>---------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Obj <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2279	2395	
==>_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2279	2395	
==>_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compil <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3541	3639	
==>e main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use stric <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	719	811	
==>infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<: <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	719	811	
==>infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4632	4740	
==>post_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4632	4740	
==>post_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27413	27514	
==>child processes when defined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to behave a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32209	32311	
==>ated tuples appear only once in
the result.  With any 2 relations, the result is the same regardless of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36759	36861	
==>ated tuples appear only once in
the result.  With any 2 relations, the result is the same regardless of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36049	36151	
==>ated tuples appear only once in
the result.  With any 2 relations, the result is the same regardless of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	977	1090	
==>g thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	977	1090	
==>g thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	977	1090	
==>g thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possibl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3198	3324	
==>al {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  push @ISA, qw <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10806	10925	
==>tor.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10806	10925	
==>tor.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1317	1423	
==>arp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1317	1423	
==>arp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1526	1632	
==>arp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	582	677	
==>cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	582	677	
==>cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	582	677	
==>cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6042	6186	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6042	6186	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6042	6186	
==>xed');
                $::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5785	5943	
==>< $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4285	4443	
==>< $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13633	13776	
==>ile( $script );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5339	5450	
==>result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5339	5450	
==>result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28326	28535	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28326	28535	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28326	28535	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @st <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5149	5250	
==>'s diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5149	5250	
==>'s diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7346	7447	
==>'s diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4392	4512	
==>turn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4392	4512	
==>turn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4392	4512	
==>turn undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3206	3316	
==>N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3206	3316	
==>N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3206	3316	
==>N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21989	22120	
==>everse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21989	22120	
==>everse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21989	22120	
==>everse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2029	2145	
==>);\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2029	2145	
==>);\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2029	2145	
==>);\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->ne <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3756	3856	
==>f.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3756	3856	
==>f.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_d <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17985	18076	
==>x,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37782	37915	
==>my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37782	37915	
==>my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37782	37915	
==>my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9425	9515	
==>($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9425	9515	
==>($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9425	9515	
==>($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3223	3320	
==>or block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3223	3320	
==>or block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3223	3320	
==>or block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/util/claim_drift.pl	540	650	
==>") {
    warn <<".";
*** No DrIFT directory found. Make sure you are in the top level of a pugs
    working dir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8489	8574	
==>h[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8477	8562	
==>h[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ra <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5905	6023	
==>mber of individual tests ran
    ok              Number of individual tests passed
    sub_skipped     Number of indivi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2588	2678	
==>self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Array <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2588	2678	
==>self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6436	6534	
==>OLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6436	6534	
==>OLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6436	6534	
==>OLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5614	5720	
==>tep($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5614	5720	
==>tep($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5614	5720	
==>tep($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no war <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21938	22050	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18359	18471	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1824	1932	
==>'t just make it a singleton
### due to stacked installations
{   my $config  = JIB::Config->new;

    my %cac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8230	8423	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8230	8423	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8230	8423	
==>$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	541	651	
==>'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefix =>          '<op> < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	485	579	
==>ot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IR <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	485	579	
==>ot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28524	28621	
==>the new tuple-valued attribute names and each of its values
the set of old attribute names that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33076	33173	
==>the new tuple-valued attribute names and each of its values
the set of old attribute names that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32204	32301	
==>the new tuple-valued attribute names and each of its values
the set of old attribute names that ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23609	23715	
==>utate.  Depending on the implementing class, it can default to True or
False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28161	28267	
==>utate.  Depending on the implementing class, it can default to True or
False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26974	27080	
==>utate.  Depending on the implementing class, it can default to True or
False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1181	1287	
==>st test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1181	1287	
==>st test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1261	1367	
==>st test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20733	20833	
==>y the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous no <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20733	20833	
==>y the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8899	9020	
==>block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8899	9020	
==>block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3683	3789	
==>JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	506	611	
==>ixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	506	611	
==>ixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	506	611	
==>ixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4574	4685	
==>me not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub spe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4574	4685	
==>me not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub spe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7158	7258	
==>);
    return $o->mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eater_for_re('\S') if $re e <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4552	4667	
==>long with a summary report and
a how long it all took.

It returns true if everything was ok.  Otherwise it will C<d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1454	1547	
==>ile-time-bound values for them.

It includes the parameters as well as anything declared withi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1393	1485	
==>ile-time-bound values for them.
It includes the parameters as well as anything declared withi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13278	13408	
==>@keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13278	13408	
==>@keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11315	11426	
==>my ($S) = @_;
    return $S->object(branch =>);
  });


  return;

  # control character
  $self->add_handler('\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11834	12000	
==>od eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role E <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11834	12000	
==>od eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role E <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11834	12000	
==>od eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7543	7647	
==>}
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7543	7647	
==>}
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7543	7647	
==>}
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1151	1259	
==>";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1139	1247	
==>";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2232	2334	
==>thod send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socke <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2232	2334	
==>thod send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socke <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7621	7734	
==>basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7621	7734	
==>basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33341	33440	
==>Elements are taken from the I<front> of the
walking stack, so we add them in the order they are to b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20774	20926	
==>p->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20774	20926	
==>p->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20774	20926	
==>p->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19983	20073	
==>ngine::Example> is the self-contained and pure-Perl reference
implementation of an Engine a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19983	20073	
==>ngine::Example> is the self-contained and pure-Perl reference
implementation of an Engine a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9595	9708	
==>ext = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9595	9708	
==>ext = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	73	167	
==>.006;
use strict;
use warnings;
use Module::Compile-base;
use File::Basename;
use Pugs::Runtime <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6879	6989	
==>Placeholder")) {
				return $self->types_eq($x->type, $y->type);
			} else {
				return undef;
			}
		} elsif ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1602	1709	
==>ror in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1602	1709	
==>ror in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1930	2046	
==>|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1930	2046	
==>|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1930	2046	
==>|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	575	668	
==>= <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	575	668	
==>= <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	503	623	
==>ew (*native*) returns nil>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1836	1941	
==>s ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1836	1941	
==>s ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23736	23840	
==>"";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23736	23840	
==>"";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23736	23840	
==>"";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8109	8286	
==>ew( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8109	8286	
==>ew( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8109	8286	
==>ew( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2561	2698	
==>c
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and log <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2561	2698	
==>c
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and log <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	427	527	
==>gexP5 = Pugs::Compiler::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10733	10897	
==>$w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XX <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3058	3176	
==>erl_version} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^(\d+)\.(\d\d\d) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3229	3341	
==>base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2* <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33165	33258	
==>usion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37715	37808	
==>usion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9849	9970	
==>kage that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that ou <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2881	3002	
==>kage that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	126	226	
==>e Pugs::Utils::Interface;
my $dumper;

# which modules do diffrent formats use
my %format = (
	yaml = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13793	13889	
==>pply a subroutine to each header field in turn.  The callback routine
is called with two paramete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13793	13889	
==>pply a subroutine to each header field in turn.  The callback routine
is called with two paramete <==
3	/Users/nnunley/pugs/util/package-osx.pl	11943	12033	
==>t, @files);
&make_symlinks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($dest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1650	1834	
==>$method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1650	1834	
==>$method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1650	1834	
==>$method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2778	2884	
==>at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2778	2884	
==>at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2778	2884	
==>at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3964	4098	
==>eturn {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4157	4291	
==>eturn {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	917	1025	
==>/Clone/;

### the types of types we have are:
# type::operator
#	::binary - takes 2 params (e.g. ->, x)
#	::n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7132	7271	
==>sure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        } <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7132	7271	
==>sure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        } <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19857	19957	
==>2JS::Internals::use_jsan_module_noimp := &PIL2JS::Internals::use_jsan_module_imp;

sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8304	8428	
==>would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4110	4214	
==>nt<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4110	4214	
==>nt<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8334	8556	
==>classes})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8334	8556	
==>classes})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8334	8556	
==>classes})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14455	14549	
==>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14455	14549	
==>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14455	14549	
==>new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::ma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11302	11441	
==>g )

=cut

sub remove_registered_alternative {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        pack <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	538	640	
==>ne found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	538	640	
==>ne found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8024	8141	
==>ine {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switches = $self->_sw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15831	15931	
==>ar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15831	15931	
==>ar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8243	8373	
==>$?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, : <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8243	8373	
==>$?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, : <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13819	13922	
==>_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img > $in <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25656	25755	
==>me of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30208	30307	
==>me of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29174	29273	
==>me of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5681	5862	
==>tes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5681	5862	
==>tes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	180	281	
==>Prelude fallback, or a real
# precompiled AST of Prelude.pm.

our %Config;
our $TEMP_PRELUDE = "Prelud <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3491	3589	
==>icode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3675	3773	
==>icode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35723	35996	
==>'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(symbol- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6500	6687	
==>nt '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	222	328	
==>one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled from the arc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2809	2906	
==>= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2809	2906	
==>= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6151	6290	
==>slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6151	6290	
==>slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6151	6290	
==>slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10918	11017	
==>class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10918	11017	
==>class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10918	11017	
==>class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1424	1574	
==>$_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3] || ${$_[3]}->{abort};
        }
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6099	6217	
==>xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      ab <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5905	6017	
==>xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      ab <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1238	1346	
==>export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1238	1346	
==>export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1318	1426	
==>export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14257	14375	
==>less defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14257	14375	
==>less defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14257	14375	
==>less defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14690	14853	
==>5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1481	1577	
==>} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Cate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1481	1577	
==>} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Cate <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	329	434	
==>q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYIN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1857	1962	
==>q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYIN <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20622	20733	
==>s $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2738	2842	
==>(./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2738	2842	
==>(./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7024	7188	
==>@spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curren <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7024	7188	
==>@spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curren <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21792	21936	
==>ace_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $sigil = substr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4095	4229	
==>turn $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4095	4229	
==>turn $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4285	4410	
==>ASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4285	4410	
==>ASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4285	4410	
==>ASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2563	2665	
==>s->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2563	2665	
==>s->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2563	2665	
==>s->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	678	932	
==>ush @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	678	932	
==>ush @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	678	932	
==>ush @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2985	3105	
==>-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2985	3105	
==>-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2985	3105	
==>-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6328	6449	
==>$self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6328	6449	
==>$self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6328	6449	
==>$self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13342	13444	
==>time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13342	13444	
==>time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7	96	
==>l6::Run::OnPerl5::X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict;
use Fin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39102	39218	
==>t's inside a character
class.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # cha <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	952	1053	
==>l::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	952	1053	
==>l::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4681	4817	
==>);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4681	4817	
==>);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4681	4817	
==>);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	816	947	
==>\$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	816	947	
==>\$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	816	947	
==>\$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14685	14795	
==>Pe_FRANGE (-27)

False [] range "%s-%s"

=item RPe_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	142	239	
==>DERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field name <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	142	239	
==>DERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field name <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	355	455	
==>ze() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SE <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	355	455	
==>ze() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3572	3667	
==>the Perl 6 compiler
from bootstrapping. 

If that is the case, running C<Makefile.PL> and C<make <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	912	1024	
==>rver::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	912	1024	
==>rver::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3301	3471	
==>rg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.r <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3301	3471	
==>rg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3583	3702	
==>b p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4010	4133	
==>mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4010	4133	
==>mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4010	4133	
==>mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4757	4878	
==>ends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4815	4936	
==>ends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3734	3855	
==>,
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Cxt',
  'paramDefault <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2012	2110	
==>1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2012	2110	
==>1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2012	2110	
==>1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17822	18000	
==>ook_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24937	25029	
==>he Locale::KeyedText::Message Class

A Message object is a simple container which stores data <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24937	25029	
==>he Locale::KeyedText::Message Class

A Message object is a simple container which stores data <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1413	1514	
==>{
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}", 'configure', '--user <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35714	35807	
==>is multi-method is a generic binary relational operator that takes
another Relation as its C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40264	40357	
==>is multi-method is a generic binary relational operator that takes
another Relation as its C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4688	4827	
==>-------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                l <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4688	4827	
==>-------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3968	4098	
==>exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5257	5427	
==>l} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5257	5427	
==>l} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3831	3930	
==>us of the test.

=item B<Total>

Total number of tests expected to run.

=item B<Fail>

Number which <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40012	40107	
==>You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40012	40107	
==>You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in th <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	302	396	
==>inal first attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	21	129	
==>s is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage inform <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	21	129	
==>s is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage inform <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	21	129	
==>s is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage inform <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1066	1224	
==>$value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1066	1224	
==>$value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$k <==
3	/Users/nnunley/pugs/util/importgraph.pl	710	848	
==>e "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5027	5167	
==>$method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5027	5167	
==>$method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5027	5167	
==>$method_type, ::make_method($method));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8227	8332	
==>nstead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8227	8332	
==>nstead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1234	1364	
==>=> [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1234	1364	
==>=> [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1234	1364	
==>=> [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	593	701	
==>ss = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	593	701	
==>ss = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	593	701	
==>ss = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17120	17209	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17120	17209	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17120	17209	
==>d_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9730	9848	
==>_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9710	9828	
==>_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	847	938	
==>rulename.'\'} = '.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3762	3959	
==>l')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3762	3959	
==>l')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3762	3959	
==>l')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1338	1451	
==>) for keys %$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $obj->can('depe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	114	205	
==>:Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	114	205	
==>:Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1606	1730	
==>document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1606	1730	
==>document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1606	1730	
==>document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      documen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14363	14477	
==>l") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awarn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24389	24480	
==>sit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24389	24480	
==>sit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5072	5176	
==>_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	453	550	
==>NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::D <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	453	550	
==>NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	504	598	
==>_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	504	598	
==>_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	504	598	
==>_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos(+$self) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8643	8763	
==>:Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8643	8763	
==>:Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8643	8763	
==>:Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4064	4172	
==>m.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4064	4172	
==>m.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14212	14319	
==>al "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1279	1382	
==>). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1279	1382	
==>). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1279	1382	
==>). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6233	6354	
==><?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1846	1961	
==>aders;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1846	1961	
==>aders;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1247	1361	
==>e on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $dens <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1247	1361	
==>e on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $dens <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6172	6267	
==>lemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". %"
p5_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	216	338	
==>ct;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	216	338	
==>ct;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	216	338	
==>ct;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	905	1003	
==>ed C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = I <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	905	1003	
==>ed C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = I <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9722	9817	
==>map{defined($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__
=cut
$foo = sub{
    print STDERR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2385	2487	
==>~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2385	2487	
==>~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2385	2487	
==>~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10911	11039	
==>'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10911	11039	
==>'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10911	11039	
==>'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new <==
3	/Users/nnunley/pugs/util/package-osx.pl	11427	11558	
==>moved \$file\\n";
            \}
        \}
    );
    @footer = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $footer[0];

    prin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	522	619	
==>to the index files. jibs/ if
not specified.

=item index

Path to the index directory. default: $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24207	24360	
==>y($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24207	24360	
==>y($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24207	24360	
==>y($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24312	24421	
==>],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24312	24421	
==>],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24312	24421	
==>],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51894	52178	
==>')
                            )                          
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8447	8543	
==>n bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensit <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8447	8543	
==>n bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4938	5162	
==>etch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4938	5162	
==>etch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4938	5162	
==>etch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	520	641	
==>tem,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	520	641	
==>tem,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	520	641	
==>tem,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite su <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12021	12133	
==>ing  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13314	13410	
==>s>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only.

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13314	13410	
==>s>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2408	2510	
==>E('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenCla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2408	2510	
==>E('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenCla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2408	2510	
==>E('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenCla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	696	949	
==>ibutes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	696	949	
==>ibutes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3418	3538	
==>wn'\n"
      unless $values{license};

    $values{license}           ||= 'unknown';
    $values{distribution_type} ||= ' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2836	2943	
==>e_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.ir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2836	2943	
==>e_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.ir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15767	15864	
==>e header fields are used to make a request conditional.  If the requested
resource has (or has not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15767	15864	
==>e header fields are used to make a request conditional.  If the requested
resource has (or has not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1378	1504	
==>r ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1378	1504	
==>r ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1378	1504	
==>r ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.len <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	121	232	
==>();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src' <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1598	1696	
==>e (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi enc <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1598	1696	
==>e (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi enc <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	685	799	
==>standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	685	799	
==>standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR <==
3	/Users/nnunley/pugs/util/grokprims.pl	578	689	
==>lit /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	706	801	
==>only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Cr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	706	801	
==>only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4492	4592	
==>ides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4492	4592	
==>ides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4492	4592	
==>ides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Na <==
3	/Users/nnunley/pugs/util/func_refact.pl	2064	2169	
==>oldsize, leaving with $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $size - $olds <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6300	6401	
==>T> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq nor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6300	6401	
==>T> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq nor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18084	18192	
==>actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15191	15297	
==>actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18668	18774	
==>actual combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	33	128	
==>is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {.. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	33	128	
==>is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {.. <==
3	/Users/nnunley/pugs/util/grokprims.pl	2254	2349	
==>name}</tt></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13879	13985	
==>return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13879	13985	
==>return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13879	13985	
==>return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14304	14470	
==>($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14304	14470	
==>($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14304	14470	
==>($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5155	5270	
==>gnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5155	5270	
==>gnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7352	7467	
==>gnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	333	492	
==>nc::Module::Install
#     3. The installed version of inc::Module::Install loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5848	6002	
==>_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5848	6002	
==>_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5848	6002	
==>_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1804	1914	
==>$class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ") <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1804	1914	
==>$class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ") <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1804	1914	
==>$class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2086	2193	
==>ility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2086	2193	
==>ility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2086	2193	
==>ility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12660	12791	
==>thod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12660	12791	
==>thod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12660	12791	
==>thod) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOL <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1462	1547	
==>ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manuall <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1302	1387	
==>ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manuall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5686	5870	
==>xed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5686	5870	
==>xed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5686	5870	
==>xed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1042	1168	
==>string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1046	1166	
==>string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	198	293	
==>) not implemented';
use constant RPe_NOTERM => --$ENUM, 'Sequence (?#... not terminated';
use co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	704	796	
==>>{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	704	796	
==>>{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	704	796	
==>>{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2073	2166	
==>store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2073	2166	
==>store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2073	2166	
==>store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only ce <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2372	2468	
==>>{$spacePresent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->toke <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2364	2457	
==>ns => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2364	2457	
==>ns => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Inf <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1200	1329	
==>L_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pPara <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4350	4478	
==>L_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pPara <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4350	4478	
==>L_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pPara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5768	5868	
==>stic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5768	5868	
==>stic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5768	5868	
==>stic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    C <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3153	3261	
==>$!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12731	12936	
==>ms[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12731	12936	
==>ms[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12731	12936	
==>ms[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1223	1320	
==>\A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__object_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31186	31277	
==>mes in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31186	31277	
==>mes in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16403	16645	
==>et;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16403	16645	
==>et;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16403	16645	
==>et;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9114	9236	
==>alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12967	13085	
==>alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12967	13085	
==>alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2713	2836	
==>thod to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatte <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2713	2836	
==>thod to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatte <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	966	1074	
==>ess;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2779	2880	
==>$_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2779	2880	
==>$_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2779	2880	
==>$_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9526	9629	
==>st passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but m <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9584	9687	
==>st passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8072	8159	
==>TYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10401	10516	
==>amed_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10680	10795	
==>amed_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19291	19393	
==>on>
}
rule ExpressionNoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7164	7279	
==><--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7164	7279	
==><--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7164	7279	
==><--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15401	15531	
==>nt;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15401	15531	
==>nt;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15401	15531	
==>nt;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2401	2490	
==>:Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2401	2490	
==>:Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2401	2490	
==>:Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	280	377	
==>' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	280	377	
==>' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20089	20182	
==>ULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20089	20182	
==>ULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20089	20182	
==>ULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20900	21015	
==>t} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17321	17436	
==>t} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3468	3571	
==>s saved as --grub-local.
  --pugs=$pugs
    mklivecd.pl takes --pugs as the binary to put on the CD.
  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7118	7262	
==>ent' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7118	7262	
==>ent' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7118	7262	
==>ent' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2381	2469	
==>$optable->addToken("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $optable->ad <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	19	124	
==>$a.infix:«<»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9997	10093	
==>rns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9997	10093	
==>rns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1. <==
3	/Users/nnunley/pugs/util/claim_drift.pl	1098	1234	
==>or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == syml <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12729	12826	
==>2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12729	12826	
==>2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4839	4945	
==>= $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4839	4945	
==>= $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4839	4945	
==>= $self->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	48	167	
==>sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	48	167	
==>sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	48	167	
==>sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6896	6998	
==>JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6896	6998	
==>JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6896	6998	
==>JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (ru <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7882	8003	
==>lags in Perl5 embedding.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18241	18337	
==>me external resources, such as a repository file
on disk, it is expected that the Engines will em <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18241	18337	
==>me external resources, such as a repository file
on disk, it is expected that the Engines will em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12401	12528	
==>s (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12401	12528	
==>s (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12401	12528	
==>s (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38822	38916	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43636	43730	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43170	43264	
==>R. Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12925	13030	
==>$this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12925	13030	
==>$this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12925	13030	
==>$this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1956	2061	
==>Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduced;
}

sub reduce_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2661	2892	
==>ractor, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4848	5042	
==>st-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4848	5042	
==>st-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19418	19510	
==>red as
standard data manipulation statements but that the target relation
variables are syste <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19418	19510	
==>red as
standard data manipulation statements but that the target relation
variables are syste <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	63	152	
==>e base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs::Grammar::Var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1175	1272	
==>!($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1175	1272	
==>!($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1175	1272	
==>!($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	159	265	
==>ould not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @test <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	792	891	
==>pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($wo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	792	891	
==>pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1055	1151	
==>d $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1055	1151	
==>d $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1055	1151	
==>d $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4812	4952	
==>eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4812	4952	
==>eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4812	4952	
==>eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2094	2216	
==>dy) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2094	2216	
==>dy) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2094	2216	
==>dy) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5526	5626	
==>r _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5526	5626	
==>r _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5526	5626	
==>r _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9758	9925	
==>est_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1841	1990	
==>est_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1841	1990	
==>est_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3462	3631	
==>'$current' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19478	19576	
==>e bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19478	19576	
==>e bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7599	7701	
==>zation ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7599	7701	
==>zation ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2024	2146	
==>y $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2024	2146	
==>y $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2024	2146	
==>y $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLAS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3064	3170	
==>%env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3064	3170	
==>%env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1406	1523	
==>'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubP <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4530	4645	
==>'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubP <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4530	4645	
==>'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubP <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26895	26989	
==>attrs!) returns Relation>

This method is the same as C<project> but that the returned Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31447	31541	
==>attrs!) returns Relation>

This method is the same as C<project> but that the returned Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1733	1872	
==>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1733	1872	
==>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1733	1872	
==>str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3920	4054	
==>re>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3920	4054	
==>re>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3920	4054	
==>re>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	619	748	
==>NV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Le <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	619	748	
==>NV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Le <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6149	6237	
==>ken_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	148	248	
==>ft;
    my $node = shift;

	return $node unless $self->can_reduce($node);

	if (Scalar::Util::blessed <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1170	1320	
==>e_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # loa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1375	1525	
==>e_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # loa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	21	121	
==>e::Perl6;

use strict;
use warnings;

use Data::Dumper;

# TODO - see Pugs::Runtime::Grammar for meta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4430	4539	
==>. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4430	4539	
==>. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4769	4875	
==>ROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4769	4875	
==>ROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4769	4875	
==>ROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $C <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9242	9364	
==>d
        
        s/^__(.*)__$/PugsBuild::Config->lookup($1)/e;
        
        die "don't know where this option belongs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	933	1026	
==>ersion 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	933	1026	
==>ersion 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6546	6647	
==>kg_root}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5988	6133	
==>{
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5988	6133	
==>{
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5988	6133	
==>{
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1925	2051	
==>,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1925	2051	
==>,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	354	456	
==>ut the complexity is the same.

TODO

- The structure generated by concat() still looks like a tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	526	635	
==>alue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	526	635	
==>alue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	526	635	
==>alue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19201	19343	
==>,       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19201	19343	
==>,       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19201	19343	
==>,       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	925	1029	
==>ESTROY {}

1;

# Restore warning handler
BEGIN { $SIG{__WARN__} = $SIG{__WARN__}->() };

__END__

#line 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16239	16334	
==>ibutes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the par <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16239	16334	
==>ibutes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4061	4180	
==>rn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4061	4180	
==>rn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4061	4180	
==>rn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1047	1144	
==>de::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1047	1144	
==>de::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1047	1144	
==>de::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13843	13964	
==>ists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13843	13964	
==>ists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13843	13964	
==>ists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            retur <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	626	737	
==>nd m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Example: $date is now " <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9351	9457	
==>uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9351	9457	
==>uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6800	6930	
==>l/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6800	6930	
==>l/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6800	6930	
==>l/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8251	8461	
==>rl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8251	8461	
==>rl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8251	8461	
==>rl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2041	2147	
==>$js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2041	2147	
==>$js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2041	2147	
==>$js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4630	4767	
==>!! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4630	4767	
==>!! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4630	4767	
==>!! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2142	2262	
==>e} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remain <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	555	674	
==>);
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2059	2173	
==>e} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remain <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1745	1869	
==>e_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return $config;
}

sub add_p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3070	3175	
==>cat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3070	3175	
==>cat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3630	3735	
==>fying the compiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3500	3601	
==>fying the compiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming: <==
3	/Users/nnunley/pugs/util/addauthors.pl	275	375	
==>=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = readauthors( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2032	2145	
==>ift;
    return defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, values ar <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14573	14674	
==>rt` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14573	14674	
==>rt` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4944	5056	
==>ve a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

R <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4944	5056	
==>ve a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6468	6580	
==>ve a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2122	2222	
==>s}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2122	2222	
==>s}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2122	2222	
==>s}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PV <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1238	1335	
==>irs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@array ; Match <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23417	23510	
==>head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are includ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23417	23510	
==>head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are includ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12820	12920	
==>ee op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12820	12920	
==>ee op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12820	12920	
==>ee op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17278	17376	
==>Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17278	17376	
==>Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21369	21462	
==>becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specifically, making sure <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7210	7319	
==>\})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7210	7319	
==>\})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7210	7319	
==>\})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6576	6726	
==>}
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $self-> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2177	2298	
==>objects
    Routine     Base class for all nameable executable objects
    Sub         Perl subroutine
    Method      Per <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	302	410	
==>use
that messes up PIR generation.  To return a value, arrange for
it to be the last evaluated expression.

A <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5750	5847	
==>s implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be impl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5750	5847	
==>s implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22761	22862	
==>ed $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22761	22862	
==>ed $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22761	22862	
==>ed $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	75	225	
==>is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	75	225	
==>is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	75	225	
==>is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2493	2606	
==>c(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2493	2606	
==>c(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2493	2606	
==>c(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3666	3761	
==>rface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3883	3978	
==>rface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag= <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1709	1802	
==>move_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Class::Events <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2204	2316	
==>TORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2204	2316	
==>TORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2204	2316	
==>TORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $ve <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32550	32645	
==>>

This multi-method is the N-ary version of the aforementioned binary union()
operator, and the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37100	37195	
==>>

This multi-method is the N-ary version of the aforementioned binary union()
operator, and the <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	403	499	
==>g the notifications to dispatch themselves

# the code tries to provide reusable code for driving <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1217	1308	
==>ates a bidirectional recurrence set.

These methods are disabled: complement(), difference($ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1217	1308	
==>ates a bidirectional recurrence set.

These methods are disabled: complement(), difference($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	808	901	
==>our operates on whole bytes, XORing elements of a constantly-transforming 
state table with ea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	808	901	
==>our operates on whole bytes, XORing elements of a constantly-transforming 
state table with ea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8398	8518	
==>:Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submet <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	598	708	
==>:Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submet <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	598	708	
==>:Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5095	5200	
==>sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5095	5200	
==>sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5095	5200	
==>sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2737	2840	
==>r junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2737	2840	
==>r junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2737	2840	
==>r junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7499	7625	
==>"\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7511	7637	
==>"\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22424	22594	
==>r;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22424	22594	
==>r;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22424	22594	
==>r;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6839	6954	
==>ve is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6839	6954	
==>ve is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6839	6954	
==>ve is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6772	6888	
==>$re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my($o) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39981	40079	
==>ur option) any later version.  You
should have received a copy of the LGPL as part of the Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39981	40079	
==>ur option) any later version.  You
should have received a copy of the LGPL as part of the Locale::K <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4353	4467	
==>e =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4353	4467	
==>e =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2022	2117	
==>serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1946	2037	
==>serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5739	5842	
==>ame_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5739	5842	
==>ame_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5739	5842	
==>ame_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	645	820	
==>($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	645	820	
==>($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4458	4558	
==>a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4458	4558	
==>a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6655	6755	
==>a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1028	1132	
==>dy, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1028	1132	
==>dy, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1028	1132	
==>dy, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1981	2076	
==>a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1981	2076	
==>a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1981	2076	
==>a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2J <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6303	6401	
==>anguage-like syntax, contained in a package

### rule must ever use Rule::rule form - never Rule->r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6088	6185	
==>anguage-like syntax, contained in a package
### rule must ever use Rule::rule form - never Rule->r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	959	1062	
==>i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/',' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	959	1062	
==>i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/',' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	959	1062	
==>i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/',' <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5305	5422	
==>nto the executable, to be
"eval"ed when pugs starts.  After the executable is ready, the Standard
Prelude is precompil <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16369	16470	
==>l $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16369	16470	
==>l $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2971	3103	
==>rn $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3518	3650	
==>rn $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = s <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7513	7635	
==>ttern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ / <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7570	7692	
==>ttern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ / <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11452	11559	
==>S->object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10336	10482	
==>_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6677	6823	
==>_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7526	7672	
==>_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2896	3005	
==>char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control character
  $self->ad <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4719	4821	
==>_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4719	4821	
==>_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38236	38335	
==>.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42785	42884	
==>.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42435	42534	
==>.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<subs <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19802	19919	
==>I32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum possible length of $& */

Must be ze <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19685	19778	
==>ple,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login pha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19685	19778	
==>ple,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login pha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	836	991	
==>sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	836	991	
==>sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	836	991	
==>sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2203	2344	
==>s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2203	2344	
==>s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2203	2344	
==>s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9274	9410	
==>tart =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9274	9410	
==>tart =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9274	9410	
==>tart =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21100	21216	
==>< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17521	17637	
==>< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26911	27010	
==>air(10)('foo') )");
is(t($snd), "str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11412	11568	
==>ub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11412	11568	
==>ub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11412	11568	
==>ub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1671	1773	
==>"/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

mul <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1671	1773	
==>"/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

mul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5371	5587	
==>$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name}' exp   %prec $pre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15458	15553	
==>item $h.date

This header represents the date and time at which the message was
originated. I<E. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15458	15553	
==>item $h.date

This header represents the date and time at which the message was
originated. I<E. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1926	2048	
==>ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1926	2048	
==>ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1926	2048	
==>ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail(" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12808	12948	
==>$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	209	313	
==>y = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	209	313	
==>y = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1880	1975	
==>ray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1880	1975	
==>ray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1880	1975	
==>ray $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1033	1143	
==>n\n";

  limit_rate();
  validate_params();
  add_smoke();
  clean_obsolete_smokes();

  print "ok";
}

sub val <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11815	11911	
==>11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11815	11911	
==>11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML enti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17224	17357	
==>D');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17224	17357	
==>D');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17224	17357	
==>D');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6305	6408	
==>ue_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6305	6408	
==>ue_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6305	6408	
==>ue_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4349	4588	
==>ft;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7434	7604	
==>s( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	735	905	
==>s( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisf <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7441	7670	
==>%seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7441	7670	
==>%seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	807	915	
==>- TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	807	915	
==>- TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14525	14623	
==>> returns the same as C<zip(keys %hash; values %hash)>

In Scalar context, they all return the coun <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3605	3729	
==>$expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3605	3729	
==>$expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5129	5253	
==>$expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test modu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2343	2456	
==>time = shift;
		my $prog = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21187	21276	
==>te that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21187	21276	
==>te that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13512	13658	
==>>new('P6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$class:')->se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1254	1372	
==>nored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1254	1372	
==>nored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2493	2687	
==>{
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2493	2687	
==>{
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if <==
3	/Users/nnunley/pugs/util/package-osx.pl	6990	7126	
==>Differences.3pm
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3pm
        /us <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7437	7570	
==>my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7425	7558	
==>my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my <==
3	/Users/nnunley/pugs/util/func_refact.pl	1439	1548	
==>ew eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scalar(keys %$set) - 1; # to forc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37628	37723	
==>_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37628	37723	
==>_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	464	601	
==>, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	464	601	
==>, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	464	601	
==>, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4236	4324	
==>Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters an <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4236	4324	
==>Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6433	6521	
==>Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	268	368	
==>JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	268	368	
==>JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	268	368	
==>JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4258	4359	
==>ound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4258	4359	
==>ound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4848	4949	
==>ound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12701	12870	
==>hift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12701	12870	
==>hift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12701	12870	
==>hift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	399	499	
==>f)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	399	499	
==>f)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	399	499	
==>f)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALL <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8287	8413	
==>backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8287	8413	
==>backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	179	262	
==>::Match;
*{'immediate_statement_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	933	1049	
==>f as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	933	1049	
==>f as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<C <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3223	3338	
==>5; # ugly.
    #Control::Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @call <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1967	2077	
==>n.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1967	2077	
==>n.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8265	8384	
==>self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.unio <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8265	8384	
==>self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.unio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7453	7567	
==>=> sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fou <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10968	11065	
==>ODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10968	11065	
==>ODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1500	1595	
==>l_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1500	1595	
==>l_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1500	1595	
==>l_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(prel <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	880	979	
==>.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	880	979	
==>.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3329	3453	
==>// [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3329	3453	
==>// [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3329	3453	
==>// [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5458	5581	
==>kg->file)->basename )->stringify();
        
        # append it to the existing content of the index
        push @$index_c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5968	6068	
==>ge', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param can <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5968	6068	
==>ge', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param can <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	237	360	
==>do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8317	8418	
==>ed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8317	8418	
==>ed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3384	3497	
==>n (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3384	3497	
==>n (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3384	3497	
==>n (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&ev <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7793	8025	
==>> coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7793	8025	
==>> coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19376	19478	
==>} ),
    );
}

my method _product (Relation::Example $other!) returns Relation::Example {
    return Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12224	12331	
==>e PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12224	12331	
==>e PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12224	12331	
==>e PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14116	14258	
==>::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14116	14258	
==>::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14116	14258	
==>::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8591	8735	
==>, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8591	8735	
==>, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	127	229	
==>t::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	127	229	
==>t::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	127	229	
==>t::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6522	6640	
==>rom; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6522	6640	
==>rom; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6522	6640	
==>rom; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4814	4927	
==>mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4814	4927	
==>mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4814	4927	
==>mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	291	392	
==>f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	291	392	
==>f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2415	2510	
==>from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2415	2510	
==>from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2415	2510	
==>from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_def <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10502	10684	
==>r_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10502	10684	
==>r_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_k <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3366	3460	
==>ookahead>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24073	24221	
==>t;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24073	24221	
==>t;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24073	24221	
==>t;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1265	1357	
==>eturn %!attrs{$attr_name};
}

method attr_name_exists of Bool (Relation::AttrName $attr_name) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32429	32520	
==>L or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32429	32520	
==>L or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2353	2458	
==>x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2353	2458	
==>x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2353	2458	
==>x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7152	7271	
==>= select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\*STDOU <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13603	13698	
==>then we also unterminated named
entities will also be expanded.  The longest matching name in
%e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13603	13698	
==>then we also unterminated named
entities will also be expanded.  The longest matching name in
%e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5022	5125	
==>(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5022	5125	
==>(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5022	5125	
==>(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/i <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2508	2627	
==>($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherw <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2508	2627	
==>($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherw <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20662	20769	
==>et|set][host|net|proto|serv|sock].*/ glob ioctl link listen 
# lstat mkdir open opendir pipe print printf re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1857	1952	
==>s intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is ei <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1785	1878	
==>s intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is ei <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13024	13110	
==>,"/"). brackets("!","!"). brackets("=","=").
brackets("?","?"). brackets("#","#").
brac <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	630	733	
==>names} = { $program => '$main' };

	$self->make_name($_) for @nodes;

	my $out = join("\n\n", map {
		my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9698	9795	
==>es, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9698	9795	
==>es, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Head <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3626	3800	
==>),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of the top level App into

    ( Thunk(...), 10 )

At which point the App <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12977	13073	
==>ent value to get the next value.
The unit specifier is also used internally when joining two span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12977	13073	
==>ent value to get the next value.
The unit specifier is also used internally when joining two span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13575	13671	
==>ix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13575	13671	
==>ix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13575	13671	
==>ix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8151	8330	
==>tch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8151	8330	
==>tch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8151	8330	
==>tch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	228	331	
==>.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	228	331	
==>.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	228	331	
==>.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	719	815	
==>.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	719	815	
==>.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1275	1371	
==>.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16460	16556	
==>ly and without a recompile (such as by simply
copying files), often even while the program is exe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16460	16556	
==>ly and without a recompile (such as by simply
copying files), often even while the program is exe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2185	2299	
==>n::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2185	2299	
==>n::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2185	2299	
==>n::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1375	1521	
==>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1375	1521	
==>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1375	1521	
==>();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1892	1992	
==>f(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1892	1992	
==>f(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1892	1992	
==>f(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6115	6245	
==>( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'war <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3282	3412	
==>( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4131	4261	
==>( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2730	2831	
==>cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2730	2831	
==>cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2730	2831	
==>cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3409	3520	
==>e 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3409	3520	
==>e 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3409	3520	
==>e 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27786	27896	
==>d-only argument, returns a
value that is optionally a calculation using original attribute values as
inputs.  A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32338	32448	
==>d-only argument, returns a
value that is optionally a calculation using original attribute values as
inputs.  A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31430	31540	
==>d-only argument, returns a
value that is optionally a calculation using original attribute values as
inputs.  A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2215	2319	
==>my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2215	2319	
==>my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2215	2319	
==>my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	332	432	
==>t $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	332	432	
==>t $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6409	6514	
==>ass_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## test adding a cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4316	4408	
==>');
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6218	6310	
==>');
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	56	158	
==>r $.content;

# this should really be an acccessor - all it's doing is making the
# "source" property o <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	56	158	
==>r $.content;

# this should really be an acccessor - all it's doing is making the
# "source" property o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1344	1436	
==>n.

This file contains both the TestBuilder::TestPlan object and 
a subclass, TestBuilder::Nu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	499	594	
==>null();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	499	594	
==>null();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	173	285	
==>tch = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	173	285	
==>tch = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6260	6350	
==>p5_elemental(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7142	7302	
==>hould be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7142	7302	
==>hould be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7142	7302	
==>hould be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3200	3286	
==>ode ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3200	3286	
==>ode ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2670	2790	
==>> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2670	2790	
==>> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2670	2790	
==>> ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2783	2886	
==>=> class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2783	2886	
==>=> class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2783	2886	
==>=> class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8703	8815	
==>s_type => $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self = sh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11018	11128	
==>n;
    
    ### unisntall metadata
    system( qq[rm -rf ] . $self->control_dir( $inst_pkg->package ) ) and die <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12295	12394	
==>ader to the given value, but only if no previous
value for that field is set.

The header field name <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12295	12394	
==>ader to the given value, but only if no previous
value for that field is set.

The header field name <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4400	4517	
==>$j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method gener <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4400	4517	
==>$j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method gener <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21658	21766	
==>scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => 'type');
%sigil_from_space = map {$space_fr <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1619	1742	
==>d format those as HTML, linking to 
    the links, and inserting a names where needed.

   Example:
     perl util/catalog_t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	937	1038	
==>nds);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	995	1096	
==>nds);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	566	669	
==>ncee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	566	669	
==>ncee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	566	669	
==>ncee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is pri <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2844	2958	
==>elf->{path}", $self);
    }

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	194	301	
==><html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your brow <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	194	301	
==><html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your brow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2390	2498	
==>b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2390	2498	
==>b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2390	2498	
==>b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N" <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2670	2796	
==>January February March     April   May      June
               July    August   September October November December>;
method m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6561	6670	
==>ly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6561	6670	
==>ly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5919	6032	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5919	6032	
==>take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    retu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	616	714	
==>safe`.

For functions exported to the global `*` namespace, please use
the `is builtin` trait.

=cu <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2142	2240	
==>lob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian R <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2142	2240	
==>lob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6332	6476	
==>nstance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6332	6476	
==>nstance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6332	6476	
==>nstance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	28	159	
==>use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	28	159	
==>use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	28	159	
==>use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	847	958	
==>length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	847	958	
==>length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	847	958	
==>length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35028	35126	
==>rates into an C<intersection> if the two source headings are
identical.  This method has an alias n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39578	39676	
==>rates into an C<intersection> if the two source headings are
identical.  This method has an alias n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39120	39218	
==>rates into an C<intersection> if the two source headings are
identical.  This method has an alias n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1136	1272	
==>er returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string cont <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1136	1272	
==>er returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1683	1819	
==>er returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3597	3714	
==>f;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3597	3714	
==>f;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3597	3714	
==>f;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38839	38952	
==>optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38839	38952	
==>optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38839	38952	
==>optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	329	438	
==>($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	329	438	
==>($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	329	438	
==>($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = ev <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24758	24856	
==>as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24758	24856	
==>as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Fo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3983	4081	
==>Line'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3111	3251	
==>Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3111	3251	
==>Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3111	3251	
==>Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1445	1540	
==>enchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1445	1540	
==>enchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	861	974	
==>NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	861	974	
==>NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	861	974	
==>NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4439	4544	
==>L::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4439	4544	
==>L::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4439	4544	
==>L::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7057	7170	
==>]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7057	7170	
==>]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7057	7170	
==>]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s }) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4504	4605	
==>arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4504	4605	
==>arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_nam <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17975	18066	
==>F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2269	2384	
==>)->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2269	2384	
==>)->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2269	2384	
==>)->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists : <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1568	1721	
==>e {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1568	1721	
==>e {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	117	240	
==>o Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	117	240	
==>o Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	117	240	
==>o Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13887	13992	
==>s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13887	13992	
==>s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13887	13992	
==>s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35095	35219	
==>( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35095	35219	
==>( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35095	35219	
==>( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2734	2845	
==>ass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2734	2845	
==>ass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2734	2845	
==>ass;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13546	13670	
==>loop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13546	13670	
==>loop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	26	122	
==>me::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($filename);

print <<P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7951	8089	
==>flags => $rx->{flags}[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2017	2115	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2017	2115	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1088	1194	
==>to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1088	1194	
==>to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1088	1194	
==>to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # su <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1570	1690	
==>xts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1570	1690	
==>xts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	853	963	
==>-d

Into:

 p5-a AND (p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the depend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13636	13790	
==>' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( U <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13636	13790	
==>' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( U <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13636	13790	
==>' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( U <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	304	408	
==>}
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	304	408	
==>}
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	791	917	
==>}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	791	917	
==>}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	791	917	
==>}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6719	6942	
==>ch.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6719	6942	
==>ch.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23135	23232	
==>CIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14688	14823	
==>n => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14688	14823	
==>n => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14688	14823	
==>n => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4677	4844	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4677	4844	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4677	4844	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17872	17967	
==>->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->vi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14293	14388	
==>->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->vi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16779	16868	
==>onalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
ru <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2989	3091	
==>|| die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2989	3091	
==>|| die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3544	3640	
==>:Rule> module would prevent the Perl 6 compiler
from bootstrapping. 

If that is the case, runnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10302	10420	
==>me = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10302	10420	
==>me = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10302	10420	
==>me = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	701	812	
==>ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	701	812	
==>ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	701	812	
==>ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6627	6761	
==>emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6627	6761	
==>emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1799	1936	
==>ok");
END { Test::test_ends() }
1;
=kwid
=cut
say;
return if 1;

PERL6

    print Dumper $match->();
    print "tail: ", substr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1109	1232	
==>irectory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1109	1232	
==>irectory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1084	1204	
==>ubnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1084	1204	
==>ubnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1084	1204	
==>ubnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40517	40643	
==>e;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40517	40643	
==>e;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40517	40643	
==>e;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shif <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	200	313	
==>$ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	200	313	
==>$ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2041	2152	
==>apped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2041	2152	
==>apped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2041	2152	
==>apped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2814	2941	
==>ODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2814	2941	
==>ODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3486	3594	
==>};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3486	3594	
==>};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4076	4184	
==>}

    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2155	2260	
==>_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2155	2260	
==>_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10774	10873	
==>boxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10774	10873	
==>boxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10774	10873	
==>boxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16769	16893	
==>s_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16769	16893	
==>s_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16769	16893	
==>s_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	356	463	
==>08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	356	463	
==>08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	356	463	
==>08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	152	252	
==>tring, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	152	252	
==>tring, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	845	944	
==>ad1 NAME

Blondie::Reducer - generic reducing base class for fmapping nodes.

=head1 SYNOPSIS

    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1778	1898	
==>ass->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1778	1898	
==>ass->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1778	1898	
==>ass->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11225	11418	
==>sa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11225	11418	
==>sa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11225	11418	
==>sa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1946	2042	
==>ti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1946	2042	
==>ti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2691	2802	
==>ngpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2691	2802	
==>ngpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2691	2802	
==>ngpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Intern <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15560	15681	
==>-------------------------

rm(noop,F0,F0,B0,B0,E0,E0).

rm(standalone(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1 <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1633	1731	
==>facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair). <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1633	1731	
==>facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5164	5340	
==>ng
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5164	5340	
==>ng
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5164	5340	
==>ng
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4939	5068	
==>6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4939	5068	
==>6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4939	5068	
==>6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1656	1783	
==>'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1656	1783	
==>'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1656	1783	
==>'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3378	3545	
==>RCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11651	11760	
==>q '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11645	11754	
==>q '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14225	14319	
==>($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14225	14319	
==>($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14225	14319	
==>($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	29	135	
==>die::Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub reduce {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33884	33979	
==>what
language they prefer to communicate in, and what their backup choices are,
in order, if pre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33884	33979	
==>what
language they prefer to communicate in, and what their backup choices are,
in order, if pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2297	2398	
==>-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2297	2398	
==>-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2297	2398	
==>-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3199	3297	
==>{
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3199	3297	
==>{
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3199	3297	
==>{
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	518	617	
==>System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	518	617	
==>System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	518	617	
==>System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2890	3017	
==>r(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2890	3017	
==>r(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2890	3017	
==>r(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9443	9571	
==>' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9443	9571	
==>' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	741	841	
==>d $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1922	2060	
==>"not ok \# Unexpected successful match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		print "not ok \# Match failed. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13349	13453	
==>/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13349	13453	
==>/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2761	2892	
==>H(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2761	2892	
==>H(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2761	2892	
==>H(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	780	882	
==>l.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	780	882	
==>l.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	780	882	
==>l.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1770	1885	
==>= qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('St <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1770	1885	
==>= qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('St <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1770	1885	
==>= qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('St <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4018	4137	
==>bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4018	4137	
==>bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6620	6729	
==>r' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6620	6729	
==>r' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6620	6729	
==>r' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34278	34395	
==>ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34278	34395	
==>ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34278	34395	
==>ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5867	5958	
==>-----------------------------
## sibling methods

method get_sibling ($self: Int $index) ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5867	5958	
==>-----------------------------
## sibling methods

method get_sibling ($self: Int $index) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10234	10326	
==>snt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10234	10326	
==>snt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10234	10326	
==>snt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',* <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37067	37163	
==>n where a pair of source
relations have zero attributes in common, their joining degenerates to a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41616	41712	
==>n where a pair of source
relations have zero attributes in common, their joining degenerates to a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41239	41335	
==>n where a pair of source
relations have zero attributes in common, their joining degenerates to a <==
3	/Users/nnunley/pugs/util/package-osx.pl	5179	5278	
==>:S27.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::Bible: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2961	3057	
==>query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2961	3057	
==>query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5247	5378	
==>s ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8724	8855	
==>s ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7744	7875	
==>s ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4594	4686	
==>st';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4594	4686	
==>st';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5184	5276	
==>st';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2	95	
==>b circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2	95	
==>b circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2	95	
==>b circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3943	4046	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3943	4046	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3943	4046	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38959	39107	
==>sures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38959	39107	
==>sures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38959	39107	
==>sures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9714	9813	
==>-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9714	9813	
==>-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9714	9813	
==>-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23287	23418	
==>d_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19708	19839	
==>d_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	387	485	
==>n_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	387	485	
==>n_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	387	485	
==>n_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	481	598	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	481	598	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	481	598	
==>3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1100	1220	
==>essed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1100	1220	
==>essed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1100	1220	
==>essed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3920	4024	
==>(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3920	4024	
==>(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3920	4024	
==>(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7605	7735	
==>range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7605	7735	
==>range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7605	7735	
==>range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35664	35801	
==>Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35664	35801	
==>Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35664	35801	
==>Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> bo <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	458	570	
==>age TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the tainted <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36217	36305	
==>Lib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36217	36305	
==>Lib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1133	1229	
==>infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1133	1229	
==>infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1133	1229	
==>infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Numb <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14927	15031	
==>f ($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15287	15383	
==>ng to invoke or implement it, and so an
application written to it should behave identically no ma <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15287	15383	
==>ng to invoke or implement it, and so an
application written to it should behave identically no ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30390	30485	
==>ot resemble those of the original. 
The anonymous function in the argument C<$transformer> is in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34942	35036	
==>ot resemble those of the original.
The anonymous function in the argument C<$transformer> is in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34124	34218	
==>ot resemble those of the original.
The anonymous function in the argument C<$transformer> is in <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9706	9809	
==>span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clon <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9706	9809	
==>span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clon <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21225	21316	
==>ed_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offse <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32275	32368	
==>he present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32275	32368	
==>he present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23943	24031	
==>(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, repl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3624	3745	
==>> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpar <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3624	3745	
==>> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4940	5070	
==>e_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4940	5070	
==>e_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6282	6404	
==>g dirs from the target so we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $targe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1032	1129	
==>tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove heade <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1032	1129	
==>tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove heade <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1112	1209	
==>tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove heade <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10189	10345	
==>" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6530	6686	
==>" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7379	7535	
==>" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$< <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5779	5879	
==>s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sc <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5779	5879	
==>s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2678	2778	
==>s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Sc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23375	23502	
==>.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19796	19923	
==>.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7268	7407	
==>($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7268	7407	
==>($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7268	7407	
==>($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3890	4028	
==>is is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3890	4028	
==>is is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    h <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2569	2680	
==>t;
    my $obj = $self->load($method) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)};
}

sub l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16808	16942	
==>ue       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16808	16942	
==>ue       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16808	16942	
==>ue       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3756	3856	
==>= shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3756	3856	
==>= shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3756	3856	
==>= shift if @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5167	5270	
==>rmal }
}
# empty is represented by undef.

# 9. Type Conversion

# 9.1
multi sub ToPrimitive(JSX::Value: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	128	231	
==>based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ide <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	128	231	
==>based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ide <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	694	792	
==>te::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxe <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	694	792	
==>te::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7496	7628	
==>ce_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7496	7628	
==>ce_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1095	1188	
==>args = join(" ",map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3133	3266	
==>my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3133	3266	
==>my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3133	3266	
==>my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name => <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12667	12762	
==>when the objects represent "chunks" of data, such as date objects without the time part.

Discre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12667	12762	
==>when the objects represent "chunks" of data, such as date objects without the time part.

Discre <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6584	6690	
==>aracter in the Unicode categories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <M <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1258	1353	
==>thing there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1258	1353	
==>thing there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	838	993	
==>class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	838	993	
==>class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	838	993	
==>class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6808	6915	
==>bpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6808	6915	
==>bpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6808	6915	
==>bpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	345	465	
==>Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	345	465	
==>Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	345	465	
==>Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8647	8872	
==>ch
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a stri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7431	7540	
==>lusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10908	11017	
==>lusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1538	1658	
==>taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1538	1658	
==>taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1538	1658	
==>taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2258	2375	
==>urn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2258	2375	
==>urn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2258	2375	
==>urn $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1714	1823	
==>tive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1714	1823	
==>tive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1714	1823	
==>tive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7545	7646	
==>support junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7603	7704	
==>support junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5075	5207	
==>$_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5075	5207	
==>$_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5075	5207	
==>$_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10290	10393	
==>l"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free->new;
		type::operator::arrow->new( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11174	11268	
==>" recurrence object.

- `complement()`

Returns everything (from the universal set) that is not <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11174	11268	
==>" recurrence object.

- `complement()`

Returns everything (from the universal set) that is not <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3322	3523	
==>er a Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1689	1794	
==>s, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1689	1794	
==>s, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9001	9113	
==>e => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero intege <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9001	9113	
==>e => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero intege <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	987	1097	
==>th->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type') <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12102	12238	
==>> $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5318	5418	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5318	5418	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5318	5418	
==>in_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9522	9661	
==>",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = shift; " . 
                _emit_parameter_bindin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2954	3072	
==>{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2954	3072	
==>{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6460	6582	
==>($X::str)) || substr($X::str,$X::pos,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '$';
    die "d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21261	21359	
==>.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blec <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21261	21359	
==>.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blec <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2914	3079	
==>ay {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2914	3079	
==>ay {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5516	5614	
==>\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5279	5430	
==>my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5279	5430	
==>my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25984	26079	
==>executing the individual tests.  This allows
the tests to determine if they are being executed t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13464	13573	
==>pression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_required> <MemberExpression> <A <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1046	1145	
==>N

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It i <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1046	1145	
==>N

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4122	4230	
==>int $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4122	4230	
==>int $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4122	4230	
==>int $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	705	798	
==>::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	705	798	
==>::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15103	15197	
==>xt) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOT <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15103	15197	
==>xt) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3828	3944	
==>d] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3828	3944	
==>d] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3828	3944	
==>d] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8582	8721	
==>ngth; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8582	8721	
==>ngth; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8582	8721	
==>ngth; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2399	2501	
==>p { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2399	2501	
==>p { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2399	2501	
==>p { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14268	14391	
==>:make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14268	14391	
==>:make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14268	14391	
==>:make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2217	2347	
==>( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2217	2347	
==>( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _b <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	476	595	
==>.out";
    if (compare("$file.out", "$dir/$file.expected")) {
        print "$dir/$file.p6 has some difference\n";
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	664	788	
==>bject:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4142	4266	
==>bject:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29236	29331	
==>m' is pre-consumptive (because there is no 'ato' handle,
basically).  In order for the 'atom' ha <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1992	2148	
==>{
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1992	2148	
==>{
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	839	940	
==>insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4193	4291	
==>r end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4193	4291	
==>r end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22831	22926	
==>identical to
C<nparen>, but it is incremented during the initial pass, so that on
the second pas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7377	7483	
==>or(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char_comp => chr(he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5291	5382	
==>y $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5291	5382	
==>y $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pm <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1794	1914	
==>.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.cel <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1794	1914	
==>.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.cel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18964	19120	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19243	19399	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2207	2348	
==>ag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7881	7988	
==>re match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_wo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7615	7719	
==>re match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1097	1194	
==>rrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1097	1194	
==>rrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1097	1194	
==>rrently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7352	7486	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8704	8838	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19372	19506	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16007	16110	
==>LTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16007	16110	
==>LTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16007	16110	
==>LTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9932	10030	
==>export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9932	10030	
==>export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19122	19217	
==>de,$err)=@_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_code {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21170	21261	
==>oined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21170	21261	
==>oined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<g <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	763	862	
==>erl6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2483	2605	
==>ft;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        require "$s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16319	16416	
==>d indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16319	16416	
==>d indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13966	14087	
==>3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13966	14087	
==>3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::I <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3143	3270	
==>ax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delet <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3143	3270	
==>ax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delet <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	150	249	
==>o ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2390	2492	
==>eta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2390	2492	
==>eta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2390	2492	
==>eta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13010	13146	
==>um = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $nu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6485	6621	
==>um = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5309	5422	
==>=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5309	5422	
==>=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5309	5422	
==>=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1738	1854	
==>od clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1738	1854	
==>od clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

met <==
3	/Users/nnunley/pugs/util/func_refact.pl	2778	2894	
==>(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return list of newly selected functions
}

sub pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2965	3085	
==>.';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3814	3934	
==>.';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21268	21370	
==>Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresponding at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25820	25922	
==>Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresponding at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24444	24546	
==>Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresponding at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2803	2896	
==>erl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2803	2896	
==>erl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2803	2896	
==>erl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12092	12198	
==>lasses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12092	12198	
==>lasses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12092	12198	
==>lasses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10033	10137	
==>),
			),
		);
	},
	# list a
	nil => type::operator::nary->new(list => type::variable::free->new),
	# list <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6114	6278	
==>an't find template for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ s/$_/$op->{$_}/g for qw( name2 <==
3	/Users/nnunley/pugs/util/drift.pl	1966	2071	
==>n't Touch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
close OUT;

unlink <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6500	6606	
==>t';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6500	6606	
==>t';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6500	6606	
==>t';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	142	265	
==>tr  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	142	265	
==>tr  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	142	265	
==>tr  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5663	5762	
==>efined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5663	5762	
==>efined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5663	5762	
==>efined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1345	1469	
==>lace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1345	1469	
==>lace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1683	1787	
==>__END__.

package Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2028	2129	
==>pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2028	2129	
==>pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2028	2129	
==>pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6101	6235	
==>lse {
        my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($go <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8197	8282	
==>ers{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(nor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8197	8282	
==>ers{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(nor <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4485	4776	
==>h' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_mod <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4485	4776	
==>h' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_mod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9066	9171	
==>k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[0];
	next if defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35352	35459	
==>il=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35352	35459	
==>il=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35352	35459	
==>il=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4410	4540	
==>te substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4410	4540	
==>te substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4410	4540	
==>te substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4723	4855	
==>h_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shif <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4723	4855	
==>h_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shif <==
3	/Users/nnunley/pugs/util/func_refact.pl	648	763	
==>s data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring: $_\n" for (@{$Conf{except}});
                
i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3154	3252	
==>ead1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3154	3252	
==>ead1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3234	3332	
==>ead1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3677	3786	
==>l"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3. <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3677	3786	
==>l"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18946	19052	
==>de.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18946	19052	
==>de.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	210	311	
==>Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	210	311	
==>Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	210	311	
==>Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/inf <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2733	2842	
==>ead1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2733	2842	
==>ead1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2813	2922	
==>ead1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	653	753	
==>turns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	653	753	
==>turns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	653	753	
==>turns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	918	1015	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	918	1015	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	918	1015	
==>} @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5081	5224	
==>NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5545	5688	
==>NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34327	34417	
==>NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6008	6235	
==>sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6008	6235	
==>sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6008	6235	
==>sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35652	35790	
==>->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=rema <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35652	35790	
==>->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=rema <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35652	35790	
==>->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=rema <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1442	1536	
==>ke15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1282	1376	
==>ke15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the f <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	667	763	
==>$Config{installscript},
        sitescript     => $Config{installsitescript} || $Config{installsc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3056	3150	
==>led repeatedly to encipher data.
The encipherer closure can be called with a string, and should <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3056	3150	
==>led repeatedly to encipher data.
The encipherer closure can be called with a string, and should <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2574	2717	
==>kup('precompile_modules') }),
                '-p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    requ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2468	2561	
==>ay.
Encryptions after this point will be using stronger portions of the keystream.
(Just remem <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2468	2561	
==>ay.
Encryptions after this point will be using stronger portions of the keystream.
(Just remem <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5069	5185	
==>_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1370	1466	
==>e, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those module <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1370	1466	
==>e, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those module <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	607	721	
==>b {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5822	5929	
==>ta::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5822	5929	
==>ta::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6412	6519	
==>ta::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5616	5744	
==>ess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5616	5744	
==>ess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5616	5744	
==>ess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7135	7300	
==>rn 
                " \@_ = (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6814	6930	
==>late module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6814	6930	
==>late module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36065	36173	
==>dings. 
The body of the new relation is the result of first pairwise-matching every
tuple of the invocant rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40615	40722	
==>dings.
The body of the new relation is the result of first pairwise-matching every
tuple of the invocant rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40229	40336	
==>dings.
The body of the new relation is the result of first pairwise-matching every
tuple of the invocant rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7080	7186	
==>ng increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7080	7186	
==>ng increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7080	7186	
==>ng increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13163	13281	
==>ute().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13163	13281	
==>ute().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for de <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4518	4618	
==>onfig{_exe}";
    my $base = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	540	653	
==>reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19663	19758	
==>server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19663	19758	
==>server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26405	26623	
==>art ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26405	26623	
==>art ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26405	26623	
==>art ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6206	6311	
==>() returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6206	6311	
==>() returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1723	1828	
==>mitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1723	1828	
==>mitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1723	1828	
==>mitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8140	8356	
==>) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8140	8356	
==>) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8140	8356	
==>) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4516	4613	
==>scription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4516	4613	
==>scription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6713	6810	
==>scription>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25743	25844	
==>eing
renamed, with its keys being the old names and its values the new names.
This method will fail if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30295	30396	
==>eing
renamed, with its keys being the old names and its values the new names.
This method will fail if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29261	29362	
==>eing
renamed, with its keys being the old names and its values the new names.
This method will fail if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2122	2227	
==>d1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variab <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2122	2227	
==>d1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variab <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2469	2574	
==>d1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variab <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5345	5474	
==>s.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5345	5474	
==>s.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1901	2009	
==>str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		return "$node" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2851	2943	
==>ents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2851	2943	
==>ents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2851	2943	
==>ents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(fu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7883	8081	
==>d $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7883	8081	
==>d $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11990	12089	
==>e>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><spa <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3943	4041	
==>t_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        compleme <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3943	4041	
==>t_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        compleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	160	292	
==>f a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	160	292	
==>f a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	160	292	
==>f a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2261	2396	
==>her => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '!=',
        assoc => 'left',
        precedence => 'equal',
        ot <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14270	14382	
==>$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14270	14382	
==>$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18298	18391	
==>fix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18298	18391	
==>fix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18298	18391	
==>fix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1259	1481	
==>dentify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1259	1481	
==>dentify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1259	1481	
==>dentify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5692	5861	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5692	5861	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5692	5861	
==>' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16750	16940	
==>pts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16750	16940	
==>pts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16750	16940	
==>pts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the disp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16527	16671	
==>dy => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20004	20148	
==>dy => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19564	19708	
==>dy => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	815	944	
==>ative == 0 ? num->new(0) : num->new(1) }

# methods 

sub not {
    my $self = shift;
    if ($self == $TRUE) {
        return $FA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20072	20171	
==>les I think) from the main program binary.  Each user
language is in a separate file, and adding a l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20072	20171	
==>les I think) from the main program binary.  Each user
language is in a separate file, and adding a l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2840	2935	
==>ush @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2840	2935	
==>ush @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2840	2935	
==>ush @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_excep <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1421	1540	
==>ode_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4545	4661	
==>ode_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4545	4661	
==>ode_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8310	8443	
==>r_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_st <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8310	8443	
==>r_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_st <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7278	7393	
==>)};
    # XXX - lvalue is ignored - use proxy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$params = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	174	271	
==>o generate p5 code, it's really 
pretty bad actually, and the s-expr got quite messy
as well. Alth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2100	2197	
==>igenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2100	2197	
==>igenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2100	2197	
==>igenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	864	970	
==>s not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	864	970	
==>s not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	864	970	
==>s not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32288	32392	
==>s the same regardless of
which is the invocant and which is the argument.  This method will fail if
C<$ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36838	36942	
==>s the same regardless of
which is the invocant and which is the argument.  This method will fail if
C<$ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36128	36232	
==>s the same regardless of
which is the invocant and which is the argument.  This method will fail if
C<$ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4667	4754	
==>CE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4667	4754	
==>CE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4667	4754	
==>CE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21442	21597	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21442	21597	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21442	21597	
==>ined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2331	2432	
==>1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2331	2432	
==>1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2331	2432	
==>1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	903	1026	
==>def)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	903	1026	
==>def)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	903	1026	
==>def)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "un <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1560	1872	
==>"'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22191	22284	
==>...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22191	22284	
==>...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16873	17022	
==>lass = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16873	17022	
==>lass = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16873	17022	
==>lass = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4879	4974	
==>e contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4879	4974	
==>e contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7076	7171	
==>e contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14054	14165	
==>('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14054	14165	
==>('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14054	14165	
==>('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8006	8122	
==>e\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8006	8122	
==>e\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8006	8122	
==>e\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6221	6340	
==>p::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	674	792	
==>ound, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://down <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	573	677	
==>ound, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://down <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10560	10661	
==>'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10560	10661	
==>'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10560	10661	
==>'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2650	2758	
==>O - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2650	2758	
==>O - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2650	2758	
==>O - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5883	6011	
==>while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $stat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5883	6011	
==>while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $stat <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3943	4060	
==>:Named {
    has $.name;

    method new ($.name, *@args) {
        super *@args;
    }
}

class Class::Events::Notifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6368	6500	
==>ses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6368	6500	
==>ses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6368	6500	
==>ses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::o <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5677	5786	
==>return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5677	5786	
==>return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	896	1002	
==>n't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness::Iterator::FH;
sub next <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8263	8446	
==>rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4623	4806	
==>rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5472	5655	
==>rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1496	1600	
==>w internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1496	1600	
==>w internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1496	1600	
==>w internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2488	2592	
==>1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2488	2592	
==>1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2488	2592	
==>1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Arra <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9862	9958	
==>bject, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `st <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9862	9958	
==>bject, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `st <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35280	35376	
==><join> except that this method will fail if any of its source Relations
have attributes in common <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39830	39926	
==><join> except that this method will fail if any of its source Relations
have attributes in common <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39390	39486	
==><join> except that this method will fail if any of its source Relations
have attributes in common <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13320	13513	
==>'$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => str->n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4636	4735	
==>g was ok.  Otherwise it will C<die()> with
one of the messages in the DIAGNOSTICS section.

=cut

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	375	493	
==>ment, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	375	493	
==>ment, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	375	493	
==>ment, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6889	7011	
==>s;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6889	7011	
==>s;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6889	7011	
==>s;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3240	3415	
==>bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3240	3415	
==>bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3240	3415	
==>bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	17	124	
==>M::C3;

use Perl6::Core::List;
use Perl6::Core::Bit;

package C3;

use strict;
use warnings;

use Carp 'conf <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13118	13216	
==>ngs are returned.

If called in void context the arguments are decoded in-place.

This routine is e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13118	13216	
==>ngs are returned.

If called in void context the arguments are decoded in-place.

This routine is e <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16266	16383	
==>.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_versio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16984	17080	
==>tyExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4462	4555	
==>x), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "? <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2025	2144	
==>h {
    my $self = shift;
    return num->new(scalar(@{$self}));
}

sub elems {
    my $self = shift;
    return num->ne <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	61	157	
==>holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	61	157	
==>holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38795	38909	
==>my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38795	38909	
==>my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38795	38909	
==>my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2200	2309	
==>st their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2200	2309	
==>st their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2200	2309	
==>st their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5174	5283	
==>al explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5174	5283	
==>al explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6698	6807	
==>al explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a te <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12486	12589	
==>th a new type variable)
# this new env is passed down to the body, but is also reused in the 'type' attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3414	3533	
==>f($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3414	3533	
==>f($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3414	3533	
==>f($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10027	10191	
==>est(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2084	2240	
==>est(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2084	2240	
==>est(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3010	3139	
==>se; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3010	3139	
==>se; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3010	3139	
==>se; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4494	4595	
==>ra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4494	4595	
==>ra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5084	5185	
==>ra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6673	6820	
==>[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6673	6820	
==>[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24783	24905	
==>e Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <' <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1821	1927	
==>@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	998	1102	
==>@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1471	1575	
==>@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3571	3679	
==>er.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a new Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3444	3547	
==>er.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a new Gra <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12057	12156	
==>PERL5LIB;

This restores the original value of the C<PERL5LIB> environment variable.
Necessary on VM <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	959	1056	
==>lan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	959	1056	
==>lan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1506	1603	
==>lan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23043	23127	
==>::Return;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5739	5850	
==>s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5739	5850	
==>s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5739	5850	
==>s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1652	1760	
==>* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1652	1760	
==>* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1652	1760	
==>* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15199	15307	
==>p{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15199	15307	
==>p{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15199	15307	
==>p{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6607	6832	
==>s totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6607	6832	
==>s totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21819	21917	
==>t I'd chosen an awful name
for the field.  There will still be a class() method in F<__object__>,
b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14840	14957	
==>ue_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we kno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14840	14957	
==>ue_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we kno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14840	14957	
==>ue_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we kno <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2446	2542	
==>$symmetrical? = 1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9684	9775	
==>another_test_iFoo_singleton_method',
  '... got the right return value from another $iFoo si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4769	4882	
==>_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4769	4882	
==>_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4769	4882	
==>_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6668	6807	
==>ar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6668	6807	
==>ar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $matc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9492	9600	
==>ulti Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3736	3829	
==>n( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3736	3829	
==>n( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	567	671	
==>with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	567	671	
==>with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	567	671	
==>with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9787	9961	
==>to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9787	9961	
==>to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9787	9961	
==>to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4353	4445	
==>-
Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Loca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4353	4445	
==>-
Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17197	17288	
==>::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17197	17288	
==>::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17197	17288	
==>::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4981	5189	
==>= $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4981	5189	
==>= $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4981	5189	
==>= $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3213	3308	
==>not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3213	3308	
==>not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3213	3308	
==>not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pai <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1492	1581	
==>FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrow <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1492	1581	
==>FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrow <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	873	995	
==>a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        a <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	873	995	
==>a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7185	7293	
==>t messages since we try to
# be compatible with Test::More::skip().
sub skip {
    my $why = shift;
    my $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3802	3919	
==>:= $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3802	3919	
==>:= $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3802	3919	
==>:= $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'g <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	672	820	
==>at this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	672	820	
==>at this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13415	13533	
==>if @{$n->{attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15886	15988	
==>s_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;)
Z <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1333	1462	
==>de} eq $node) {
			$self->{current_node} = '';
		} else {
			return $self->{names}{$node};
		}
	}

	our $indent ||= 0;
	local $ind <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1226	1317	
==>f the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuatio <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1226	1317	
==>f the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11038	11209	
==>arams;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11038	11209	
==>arams;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11038	11209	
==>arams;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6818	6931	
==>.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6818	6931	
==>.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6818	6931	
==>.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	99	213	
==>_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	99	213	
==>_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	99	213	
==>_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8136	8340	
==>nless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8136	8340	
==>nless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8136	8340	
==>nless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1496	1614	
==>l>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1496	1614	
==>l>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1496	1614	
==>l>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6752	6841	
==>urn { sub_application => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	506	673	
==>($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	711	878	
==>($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	767	934	
==>($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	960	1069	
==>S.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	960	1069	
==>S.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	960	1069	
==>S.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29018	29111	
==>ed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29018	29111	
==>ed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29018	29111	
==>ed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25935	26029	
==>alues duplicate each other,
or duplicate attribute names that aren't being renamed.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30487	30581	
==>alues duplicate each other,
or duplicate attribute names that aren't being renamed.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29462	29556	
==>alues duplicate each other,
or duplicate attribute names that aren't being renamed.  This metho <==
3	/Users/nnunley/pugs/util/run-smoke.pl	917	1019	
==>ould change directory: $!";

# '.' needs to be at the front of the path for everything to find the corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1210	1301	
==>imple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1210	1301	
==>imple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4211	4306	
==>tribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4211	4306	
==>tribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4211	4306	
==>tribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	802	906	
==>ge, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the righ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	802	906	
==>ge, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the righ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	802	906	
==>ge, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the righ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4041	4207	
==>il) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4505	4671	
==>il) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6623	6766	
==>Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe   (rw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	373	494	
==>bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	373	494	
==>bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	373	494	
==>bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6862	6953	
==>nction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6862	6953	
==>nction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6862	6953	
==>nction (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::match <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6619	6719	
==>Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6619	6719	
==>Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2612	2711	
==>ly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2612	2711	
==>ly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2612	2711	
==>ly;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unkno <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1757	1869	
==>rray", iarray => "Array", #  └── "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5901	6010	
==>ngs (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5697	5802	
==>ngs (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3854	3955	
==>de.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3854	3955	
==>de.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3854	3955	
==>de.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15744	15844	
==>tain the new symbol introduced by the binding
# the body of the binding contains the env with the the <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1645	1736	
==>methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new c <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1645	1736	
==>methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15868	15966	
==>an ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15868	15966	
==>an ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14076	14193	
==>y Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14076	14193	
==>y Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4119	4234	
==>);
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self->{tree};
  no w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22714	22817	
==>= p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22714	22817	
==>= p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22714	22817	
==>= p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9936	10055	
==>ith_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9936	10055	
==>ith_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9936	10055	
==>ith_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4467	4556	
==>eClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4467	4556	
==>eClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4467	4556	
==>eClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22603	22697	
==>x2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22603	22697	
==>x2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22603	22697	
==>x2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3816	3925	
==>ision", Pugs.Version.revnum)
    ]

getConfig :: String -> String
getConfig key = Map.findWithDefault "" key c <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4880	4976	
==>o) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4880	4976	
==>o) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6856	6973	
==>(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6856	6973	
==>(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1354	1492	
==>$.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1354	1492	
==>$.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7169	7284	
==>d" }
sub match { die "not implemented" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30281	30380	
==>n-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30281	30380	
==>n-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11891	12014	
==>package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11891	12014	
==>package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11891	12014	
==>package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	549	640	
==>print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	549	640	
==>print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4193	4301	
==>ply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4193	4301	
==>ply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4193	4301	
==>ply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2902	3005	
==>efined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2902	3005	
==>efined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2902	3005	
==>efined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23385	23489	
==>[ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lan <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1743	1840	
==>d but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1743	1840	
==>d but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10614	10732	
==>:/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10614	10732	
==>:/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10614	10732	
==>:/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1135	1256	
==>L2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1135	1256	
==>L2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1135	1256	
==>L2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1050	1159	
==>0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1050	1159	
==>0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1050	1159	
==>0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5321	5524	
==>irs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8798	9001	
==>irs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7818	8021	
==>irs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	295	416	
==>() \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	295	416	
==>() \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	295	416	
==>() \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2620	2746	
==>print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2620	2746	
==>print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2620	2746	
==>print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1747	1855	
==>xp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1747	1855	
==>xp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1747	1855	
==>xp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6169	6307	
==>n);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6169	6307	
==>n);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6169	6307	
==>n);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    packag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9392	9513	
==>> $neg, $how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4225	4319	
==>methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4225	4319	
==>methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	713	811	
==>string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	713	811	
==>string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	343	444	
==>g? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	343	444	
==>g? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	343	444	
==>g? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	540	660	
==>ement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	540	660	
==>ement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	540	660	
==>ement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2605	2736	
==>ame for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2605	2736	
==>ame for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2605	2736	
==>ame for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4086	4267	
==>-e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21146	21241	
==>d. This means that people who install your
module distribtution do not need to have the compiler <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21146	21241	
==>d. This means that people who install your
module distribtution do not need to have the compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4473	4585	
==>~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not imple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4473	4585	
==>~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14318	14418	
==>_object(anyof_class => graph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_handler('POSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2559	2682	
==>my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2559	2682	
==>my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2559	2682	
==>my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5870	5985	
==>(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes/piln_object_repr_types.pod r8593.
# while (@arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36345	36449	
==>f look-ahead

Ender: tail

=head2 suspend

Family: assertion

Types: suspend (C<< (?> >>)

Data: array re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8728	8864	
==>anation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	896	1020	
==>anation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	896	1020	
==>anation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17437	17534	
==>ods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17437	17534	
==>ods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17437	17534	
==>ods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14224	14340	
==>nt_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17701	17817	
==>nt_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17117	17233	
==>nt_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11043	11192	
==>ort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8109	8253	
==>ort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8109	8253	
==>ort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5783	5998	
==>0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5783	5998	
==>0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5783	5998	
==>0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2607	2708	
==>kily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2607	2708	
==>kily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2607	2708	
==>kily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11418	11595	
==>t->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11418	11595	
==>t->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11418	11595	
==>t->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'pe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13153	13255	
==>ction is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13153	13255	
==>ction is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2698	2854	
==>or ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2698	2854	
==>or ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2698	2854	
==>or ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5252	5363	
==>:subclasses;
    has @:superclasses;
    has %:private_methods;
    has %:attributes;
    has %:methods;
}

(cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3174	3268	
==>s overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3061	3153	
==>s overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3547	3697	
==>t->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) = @_;
    my @x = ($x);
    @x = @{$x->{list}} if exists $x->{list} && $x->{op1} eq $op <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1958	2060	
==>kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prere <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2838	2940	
==>kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prere <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6387	6493	
==>ist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; use strict;");
    }
    elsif($sn eq 'global') {
	w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	834	930	
==>head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	834	930	
==>head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	299	396	
==>et);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	299	396	
==>et);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	299	396	
==>et);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1870	1994	
==>_PACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2837	2947	
==>e,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2837	2947	
==>e,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8469	8565	
==>ls he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq norm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8469	8565	
==>ls he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq norm <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15238	15336	
==>ates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15238	15336	
==>ates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `st <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23371	23457	
==>::Api::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20108	20204	
==>blocks get compiled first, then outer blocks.

A compiler may choose to declare that its result n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20108	20204	
==>blocks get compiled first, then outer blocks.

A compiler may choose to declare that its result n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10376	10464	
==>rgs.$code_body.'}');
    my $code_params = '[map{Perl6::Param->new(@$_)}('.$code_param_in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	849	963	
==>as Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curir <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	849	963	
==>as Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curir <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2611	2718	
==>_script $html_location") == 0
        or die "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1425	1535	
==>use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Ha <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1425	1535	
==>use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Ha <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7192	7280	
==>a

## ----------------------------------------------------------------------------
## tra <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7192	7280	
==>a

## ----------------------------------------------------------------------------
## tra <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13719	13846	
==>$_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23672	23789	
==>ing. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28891	28987	
==>ing. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8584	8685	
==>TI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8584	8685	
==>TI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8584	8685	
==>TI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10012	10180	
==>) {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10012	10180	
==>) {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10012	10180	
==>) {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8524	8619	
==>rom_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8524	8619	
==>rom_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8524	8619	
==>rom_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1346	1445	
==>nfinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1346	1445	
==>nfinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1346	1445	
==>nfinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite A <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13695	13794	
==>n
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13695	13794	
==>n
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18235	18377	
==>$self = shift;
    $self->{nparen};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25387	25483	
==>g the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25387	25483	
==>g the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1033	1139	
==>loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1033	1139	
==>loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1033	1139	
==>loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2155	2267	
==>= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2155	2267	
==>= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2155	2267	
==>= $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# No <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4139	4232	
==>undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4139	4232	
==>undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4139	4232	
==>undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9842	9991	
==>description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1921	2052	
==>description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1921	2052	
==>description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7663	7771	
==>es_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7663	7771	
==>es_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7663	7771	
==>es_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5335	5471	
==>_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5335	5471	
==>_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33503	33598	
==>reg_any

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1506	1621	
==>modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1506	1621	
==>modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1506	1621	
==>modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2074	2188	
==>, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex acce <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2074	2188	
==>, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex acce <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	294	410	
==>lass->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACK <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	746	842	
==>P, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	746	842	
==>P, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2723	2904	
==>>new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2723	2904	
==>>new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2723	2904	
==>>new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8832	8981	
==>rintf(stderr,"api UNKNOWN violation\n"); exit(0);
    }
    fprintf(stderr,"hook_regcompp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4351	4461	
==>* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ < <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14217	14361	
==>nd parse it into a tree
        my $sobj = HTML::TreeBuilder->new_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7470	7584	
==>) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7470	7584	
==>) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8153	8279	
==>ULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8153	8279	
==>ULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8153	8279	
==>ULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8999	9118	
==>source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8999	9118	
==>source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8089	8186	
==>NG">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use the next() metho <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	755	885	
==>y $self = shift;
	Blondie::Backend::Perl::Builtins->cast(@_);
}

sub execute {
    my $self = shift;
    my $prog = shift;

    $se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7153	7257	
==>e $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $ki <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7153	7257	
==>e $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $ki <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24722	24822	
==>xt indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24722	24822	
==>xt indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4565	4660	
==>+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4565	4660	
==>+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1905	2108	
==>=> -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1905	2108	
==>=> -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3023	3189	
==>ry::Set') };
use constant ISA_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6016	6138	
==>s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6016	6138	
==>s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6016	6138	
==>s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6113	6237	
==>tr( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3280	3404	
==>tr( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4129	4253	
==>tr( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	429	532	
==>|| confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	429	532	
==>|| confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	429	532	
==>|| confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13292	13577	
==>failedtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             perce <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	614	712	
==>f Any where {
    .does(Package) or (.does(Str) and $^n ne $EMPTY_STR)
};

subtype Relation::LaxPai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9440	9597	
==>=> sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9440	9597	
==>=> sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9440	9597	
==>=> sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27863	28018	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28142	28297	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	775	912	
==>= shift;
        my $f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    package Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39181	39305	
==>b unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39181	39305	
==>b unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39181	39305	
==>b unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25135	25263	
==>tr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{len} }

  # access to the flag stac <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5521	5623	
==>ed %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5521	5623	
==>ed %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3170	3271	
==>rk on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3170	3271	
==>rk on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3170	3271	
==>rk on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash" <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7719	7816	
==>t(lookbehind_not(R)) --> p5_elemental(lookbehind_not(R)).
p5_condition_test(condi(I))          --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2630	2743	
==>$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2630	2743	
==>$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2630	2743	
==>$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1801	1899	
==>dhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1801	1899	
==>dhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1801	1899	
==>dhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9615	9733	
==>i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9615	9733	
==>i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9615	9733	
==>i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2651	2774	
==>amed.new(:name($name), :subscriber($subscriber), :publisher($?SELF));
            ( %.subscriptions<$name> ||= Set.new ).ins <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	46	145	
==>",
    # "$Bin/../../../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs-Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35399	35495	
==>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head2 group

Family: group

Types: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18560	18655	
==>$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18560	18655	
==>$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18560	18655	
==>$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	665	780	
==>value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	665	780	
==>value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	665	780	
==>value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29139	29255	
==>tant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29139	29255	
==>tant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29139	29255	
==>tant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{it <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	253	369	
==>= 0;
my @tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	649	761	
==>ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): arg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	649	761	
==>ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	283	381	
==>...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	283	381	
==>...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	283	381	
==>...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should wo <==
3	/Users/nnunley/pugs/util/grokprims.pl	1628	1729	
==>"(\$$a0 $name \$$a1) $name \$$a1";
  } elsif (/left-associative/ and $arity==2) {
    $example = "HUH: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10086	10184	
==>t be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essenti <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10086	10184	
==>t be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essenti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2093	2222	
==>anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2298	2427	
==>anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class', <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6306	6427	
==>ive
        $self->remove_registered_alternative( package => $unlink_this )
            if $unlink_this;

        ### link <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	446	565	
==>S support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	446	565	
==>S support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1924	2018	
==>sub Pugs::Internals::log_base(Num $x, Num $base) {
    return Pugs::Internals::log($x)   if !de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16200	16313	
==>t_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16200	16313	
==>t_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	29	134	
==>use v6;

sub greeting(Str $name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Mod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	77	173	
==>pi;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5::X1::Prelude;

sub init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3635	3758	
==>op_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3635	3758	
==>op_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3635	3758	
==>op_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1664	1776	
==>= back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't have sub <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7680	7764	
==>::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7738	7822	
==>::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2345	2467	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2345	2467	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2345	2467	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14148	14347	
==>d" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14148	14347	
==>d" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14148	14347	
==>d" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5465	5565	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5465	5565	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5465	5565	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14706	14820	
==>e case of m'pattern'.
  Which might come in hand when doing p6 regex.



Notes on struct regex:

  typedef struct r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	868	966	
==>de generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogener <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	868	966	
==>de generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogener <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	477	613	
==>cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	477	613	
==>cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	477	613	
==>cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1770	1862	
==>odel::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document descr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1770	1862	
==>odel::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document descr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5026	5118	
==>_tree;
    use Data::Dumper;
    PIL::PIL1CPerl5::Util::rebless_with_prefix_and_cleanup($pil_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14700	14819	
==>rn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14700	14819	
==>rn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14700	14819	
==>rn 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16555	16670	
==>method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16555	16670	
==>method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16555	16670	
==>method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1350	1532	
==>_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1350	1532	
==>_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1350	1532	
==>_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6849	6989	
==>}
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6849	6989	
==>}
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2843	2945	
==>(do{my \$__v__ ; my($tmpvars); { local($vars)=($vars); \$__v__ = do{ ";
}
sub let_end {
  my $e = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9486	9610	
==>[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9486	9610	
==>[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9486	9610	
==>[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1470	1583	
==>Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20527	20629	
==>plemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16948	17050	
==>plemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	886	1055	
==>$::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	886	1055	
==>$::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	886	1055	
==>$::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2923	3018	
==>ctor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2 <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2923	3018	
==>ctor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16455	16569	
==>itive is safe {
        (int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2612	2706	
==>sentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... thoug <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2612	2706	
==>sentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... thoug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8124	8354	
==>hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12114	12270	
==>hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12114	12270	
==>hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] } <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1987	2176	
==>> $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1987	2176	
==>> $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3645	3753	
==>hod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3645	3753	
==>hod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3645	3753	
==>hod('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdept <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6123	6223	
==>undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6123	6223	
==>undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6123	6223	
==>undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
E <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12166	12276	
==>ise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return unless $self->{_is_vms};

    if <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2966	3060	
==>w(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($d <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2966	3060	
==>w(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5907	6026	
==>d_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5907	6026	
==>d_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5907	6026	
==>d_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	254	370	
==>+ "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	254	370	
==>+ "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	254	370	
==>+ "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5962	6093	
==>al $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5962	6093	
==>al $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5962	6093	
==>al $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6486	6585	
==>stance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6486	6585	
==>stance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6486	6585	
==>stance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1785	1918	
==>mple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1785	1918	
==>mple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1785	1918	
==>mple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6976	7142	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6976	7142	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6976	7142	
==>('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2362	2465	
==>_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2362	2465	
==>_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2362	2465	
==>_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8745	8879	
==>ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9580	9714	
==>ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9939	10054	
==>f $S->can($c);
    return $S->object(exact => $c);
  });

  $self->add_handler('*' => sub {
    my ($S) = @_;
    pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2471	2598	
==>emainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2377	2498	
==>emainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17761	17865	
==>tem length

This word is banned in Perl 6.  You must specify units.

=item index 

Needs to be in terms o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8938	9029	
==>Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8938	9029	
==>Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5499	5640	
==>.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $re <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5499	5640	
==>.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2772	2896	
==>'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lcons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5375	5469	
==>stead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5375	5469	
==>stead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5375	5469	
==>stead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3423	3539	
==>bject(digit => 1);
  });

  # digit (a digit)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2436	2544	
==>n't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if bot <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2436	2544	
==>n't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if bot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6733	6870	
==>f ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursiv <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7197	7334	
==>f ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursiv <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3185	3295	
==>TDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4048	4154	
==>m{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4048	4154	
==>m{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4048	4154	
==>m{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11404	11588	
==>thReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submethod BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - Thi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1856	2024	
==>thReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1856	2024	
==>thReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - Thi <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	456	568	
==>ation ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $du <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	456	568	
==>ation ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $du <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	322	418	
==>6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub

    { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	105	217	
==>File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	105	217	
==>File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	105	217	
==>File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_stan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2740	2892	
==>passed'),
                description => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12543	12655	
==>.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / tal <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12543	12655	
==>.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / tal <==
3	/Users/nnunley/pugs/util/package-osx.pl	3637	3760	
==>Perl6::API.3
        /usr/local/man/man3/Perl6::API.3pm
        /usr/local/man/man3/Perl6::Bible.3pm
        /usr/local/man/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18873	18971	
==>d this misspelling in your programs and still send the right
thing on the wire.

When setting the r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18873	18971	
==>d this misspelling in your programs and still send the right
thing on the wire.

When setting the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6657	6774	
==>=> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6657	6774	
==>=> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6657	6774	
==>=> @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ / <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	603	748	
==>e ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	603	748	
==>e ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	508	624	
==>all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_rom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	508	624	
==>all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_rom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	508	624	
==>all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_rom <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3287	3400	
==>{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10127	10216	
==>ef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])? <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10862	10951	
==>ef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])? <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4468	4566	
==>S

Since the current version of Pugs does not support OO, methods are
implemented as hash keys to c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4468	4566	
==>S

Since the current version of Pugs does not support OO, methods are
implemented as hash keys to c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3455	3557	
==>hod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3455	3557	
==>hod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3455	3557	
==>hod(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1162	1255	
==>est suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Validat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1162	1255	
==>est suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Validat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22499	22596	
==>t - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22499	22596	
==>t - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22499	22596	
==>t - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1201	1311	
==>(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1201	1311	
==>(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9320	9410	
==>---------------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	306	607	
==>pod start
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comme <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	847	944	
==>nal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	847	944	
==>nal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25459	25625	
==>e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:super <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16190	16288	
==>fore
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16190	16288	
==>fore
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5106	5271	
==>ing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5106	5271	
==>ing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5106	5271	
==>ing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4985	5092	
==>ests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fai <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4985	5092	
==>ests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6509	6616	
==>ests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or fai <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	961	1231	
==>= 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	961	1231	
==>= 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	171	298	
==>'( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	171	298	
==>'( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12886	13015	
==>lessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12886	13015	
==>lessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12886	13015	
==>lessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || co <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18786	18900	
==>")),
			),
		),
	),
);

# this function cannot be typed, since it wants a function in x, (a -> b), and a is both an <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10399	10498	
==>e performed
on demand at some time after the input has been set, and could potentially
never be perf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10399	10498	
==>e performed
on demand at some time after the input has been set, and could potentially
never be perf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2540	2644	
==>b formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formaliz <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2540	2644	
==>b formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formaliz <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2887	2991	
==>b formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formaliz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4374	4487	
==>s_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4374	4487	
==>s_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4374	4487	
==>s_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5339	5441	
==>rn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => $() ,} } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	232	331	
==>r %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	232	331	
==>r %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CL <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6003	6100	
==>m the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6003	6100	
==>m the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8200	8297	
==>m the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28752	28955	
==>= shift;
                          $e->get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send(' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7745	7843	
==>interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7745	7843	
==>interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_templa <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3396	3512	
==>$file =~ s/\\/\\textbackslash\{\}/g;
#    # segils
##    $file =~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6916	7025	
==>l_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6916	7025	
==>l_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9465	9634	
==>oxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9465	9634	
==>oxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9465	9634	
==>oxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	669	783	
==>str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	669	783	
==>str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	669	783	
==>str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6934	7036	
==>USAGE

=head2 Creating an Instance

To use this module as is, load it, and create an instance:

  use R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9770	9866	
==>r 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass some <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9770	9866	
==>r 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass some <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4940	5058	
==>fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no lo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4940	5058	
==>fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no lo <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1591	1698	
==>plit //, $file;

    open STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $in <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10168	10289	
==>>{_is_vms}) && !/^".*"$/ );
    }
    return join( " ", @existing_switches, @derived_switches );
}

=head2 C<_cleaned_swit <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5658	5756	
==>pan.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5658	5756	
==>pan.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8018	8141	
==>r($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1799	1918	
==>r {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1799	1918	
==>r {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16698	16829	
==>'$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16977	17108	
==>'$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28140	28257	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('MRO'),
    # method body
        method-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2810	2929	
==>ome data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2810	2929	
==>ome data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encip <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3754	3892	
==>dence => 'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '=~',
        assoc => 'right',
        preceden <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7944	8042	
==>us ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7944	8042	
==>us ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_un <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1781	2073	
==>{
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1781	2073	
==>{
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6969	7111	
==>sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6969	7111	
==>sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6969	7111	
==>sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1191	1308	
==>= @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10716	10810	
==>) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10716	10810	
==>) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	868	991	
==>ne!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	868	991	
==>ne!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	868	991	
==>ne!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7538	7668	
==>$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7538	7668	
==>$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single qu <==
3	/Users/nnunley/pugs/util/addauthors.pl	1453	1558	
==>File->new("AUTHORS", "<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5516	5702	
==>/\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5516	5702	
==>/\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5516	5702	
==>/\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11030	11200	
==>alar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11030	11200	
==>alar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11030	11200	
==>alar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25773	25953	
==>alar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25773	25953	
==>alar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25773	25953	
==>alar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9198	9384	
==>idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9198	9384	
==>idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9198	9384	
==>idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3299	3404	
==>name>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3299	3404	
==>name>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<us <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2971	3084	
==>BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3111	3224	
==>BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2389	2502	
==>OF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2389	2502	
==>OF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2389	2502	
==>OF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1046	1166	
==>xpect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a stri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1046	1166	
==>xpect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a stri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1593	1713	
==>xpect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a stri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16657	16784	
==>>{tests} test $blurb could be run, ".
            "alas--no output ever seen\n";
    } else {
        $pct = sprintf("%.2f", $to <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5605	5721	
==>reblesses itself

sub new {
	my $class = shift;
	bless {
		instance => undef,
	}, $class;
}

sub instantiate {
	my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8953	9055	
==>he root of the tree with the root() method:

  my $root = $parser->root;

It will be an array reference <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5461	5559	
==>_role->version($version)     if defined $version;
    $new_role->authority($authority) if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5461	5559	
==>_role->version($version)     if defined $version;
    $new_role->authority($authority) if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5461	5559	
==>_role->version($version)     if defined $version;
    $new_role->authority($authority) if defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3501	3598	
==>:Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::PO <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3501	3598	
==>:Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::PO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33778	33918	
==>:isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33778	33918	
==>:isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33778	33918	
==>:isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3122	3234	
==>er the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3122	3234	
==>er the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3122	3234	
==>er the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12455	12568	
==>rt (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12455	12568	
==>rt (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	102	193	
==>::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6::Core::L <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4680	4871	
==>ches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4680	4871	
==>ches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	931	1047	
==>ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	931	1047	
==>ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13412	13512	
==>tenance concerns.
  That said, the use of internals is rather limited, and in a rather
  stable are o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36980	37077	
==>al headings, for these their joining
degenerates to a C<intersection>.  In any situation where a p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41529	41626	
==>al headings, for these their joining
degenerates to a C<intersection>.  In any situation where a p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41152	41249	
==>al headings, for these their joining
degenerates to a C<intersection>.  In any situation where a p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5099	5274	
==>tch.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5099	5274	
==>tch.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1446	1542	
==>oup");
    $optable->addToken("<commit>", "term:", "nows", "PGE::Exp::Commit");
    $optable->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21165	21258	
==>people who install your
module distribtution do not need to have the compilers installed
thems <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21165	21258	
==>people who install your
module distribtution do not need to have the compilers installed
thems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4255	4348	
==>other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4255	4348	
==>other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4255	4348	
==>other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method(su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23980	24121	
==>s}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      down => 1,
      ifthen => 1,
    }, $class;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25214	25305	
==>er free software
components, as defined by the Free Software Foundation at
L<http://www.gnu. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25214	25305	
==>er free software
components, as defined by the Free Software Foundation at
L<http://www.gnu. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3205	3393	
==>=> ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3205	3393	
==>=> ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3205	3393	
==>=> ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1774	1926	
==>s;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1774	1926	
==>s;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25858	25956	
==>re it returns a
I<reference> to a scalar, makes it work (!).

B<These functions can only work if ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28212	28328	
==>y $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28491	28607	
==>y $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1671	1781	
==>unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5136	5236	
==>));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5136	5236	
==>));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5136	5236	
==>));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2299	2428	
==>map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2299	2428	
==>map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2299	2428	
==>map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26301	26399	
==>bute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30853	30951	
==>bute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2117	2212	
==>g($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4907	5022	
==>Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4907	5022	
==>Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4907	5022	
==>Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	225	372	
==>lue ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quot <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	225	372	
==>lue ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9155	9278	
==>ages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: {   
        my $alt = $self->remove_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14053	14152	
==>ss attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14053	14152	
==>ss attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14053	14152	
==>ss attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	82	211	
==>is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        give <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	82	211	
==>is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        give <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4617	4715	
==>aque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14182	14303	
==>perl sources:
    ./regexp.h ./regcomp.c ./regexec.c
    ./ext/re/re.xs ./ext/re/re.pm
    http://cvs.perl.org/viewcvs/per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3796	3901	
==>.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7273	7378	
==>.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14526	14618	
==>%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14526	14618	
==>%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14526	14618	
==>%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1110	1224	
==>_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1110	1224	
==>_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1110	1224	
==>_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4348	4445	
==>rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4348	4445	
==>rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4348	4445	
==>rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses t <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3830	3952	
==>have to locate "Syck_stub.o" and copy it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $targ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9755	9861	
==>() {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.clo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9755	9861	
==>() {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.clo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4360	4465	
==>-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modif <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4360	4465	
==>-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modif <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4478	4594	
==>s(/\d/, $target, $pos))
    {
      goto err_backslash_digit;
    }
    $initchar = substr $target, $pos, 1;
    $isn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18704	18801	
==>t strings to show human users.  This association would normally be
stored in a Perl file that defi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18704	18801	
==>t strings to show human users.  This association would normally be
stored in a Perl file that defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11725	11830	
==>urn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11725	11830	
==>urn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11725	11830	
==>urn $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: A <==
3	/Users/nnunley/pugs/util/version_h.pl	736	832	
==>o nothing!
}
elsif (-r $svn_entries) {
    print "Writing version from $svn_entries to $version_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6756	6863	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6756	6863	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6756	6863	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27956	28054	
==>]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6013	6105	
==>Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually roun <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6013	6105	
==>Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually roun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16633	16729	
==>ispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16633	16729	
==>ispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16633	16729	
==>ispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1247	1361	
==>L_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  , <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4397	4508	
==>L_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4397	4508	
==>L_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33332	33538	
==>th;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33332	33538	
==>th;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33332	33538	
==>th;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5838	5940	
==>tribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5838	5940	
==>tribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5838	5940	
==>tribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	140	242	
==>ON = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	140	242	
==>ON = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	140	242	
==>ON = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6 <==
3	/Users/nnunley/pugs/util/grokprims.pl	1237	1344	
==>rity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19979	20077	
==>rd"> as a single string value.

When used to set the header value, it expects two arguments.  I<E.g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19979	20077	
==>rd"> as a single string value.

When used to set the header value, it expects two arguments.  I<E.g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11372	11525	
==>l6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may bre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11372	11525	
==>l6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may bre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11372	11525	
==>l6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may bre <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4324	4445	
==>_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4324	4445	
==>_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6261	6361	
==>eturn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8364	8464	
==>e $replacements!) returns Relation::Example {
    return Relation::Example.new(
        heading => $h <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6261	6361	
==>eturn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functio <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6436	6583	
==>> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6436	6583	
==>> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19257	19366	
==>->{bailout_reason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1041	1160	
==>d ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1041	1160	
==>d ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1041	1160	
==>d ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13335	13427	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13335	13427	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13335	13427	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7220	7344	
==>rning "Modifier :$k is not yet supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7100	7209	
==>f $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7112	7221	
==>f $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5921	6035	
==>/$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5921	6035	
==>/$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5921	6035	
==>/$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4410	4612	
==>e;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4277	4472	
==>e;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9255	9353	
==>est_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_results->{events}} ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17061	17156	
==>h

A decimal number indicating the size in bytes of the message content.

=item $h.content_langu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17061	17156	
==>h

A decimal number indicating the size in bytes of the message content.

=item $h.content_langu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4979	5073	
==>0 --inline src/perl6/Prelude.pm [options]
       $0 --precompile src/perl6/Prelude.pm --pugs ./ <==
3	/Users/nnunley/pugs/util/package-osx.pl	4867	4964	
==>erl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	52	143	
==>gs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	52	143	
==>gs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5713	5811	
==>f, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_versio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5195	5293	
==>f, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_versio <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2872	2966	
==>(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alterna <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8543	8683	
==>ion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8543	8683	
==>ion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	650	753	
==>else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	650	753	
==>else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	650	753	
==>else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2745	3050	
==>>{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5937	6034	
==>sg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5937	6034	
==>sg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7255	7355	
==>}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7255	7355	
==>}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7255	7355	
==>}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currentl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14510	14683	
==>turn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14510	14683	
==>turn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14510	14683	
==>turn $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4113	4232	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4113	4232	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4113	4232	
==>O') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasse <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	386	514	
==>r $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	386	514	
==>r $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9134	9242	
==>ny',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9134	9242	
==>ny',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9134	9242	
==>ny',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3054	3202	
==>e->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSourc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3194	3342	
==>e->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSourc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23433	23550	
==>d
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3818	3932	
==>u must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3818	3932	
==>u must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3818	3932	
==>u must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4902	4998	
==>>

=item B<to_str () returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3930	4023	
==>es. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of you <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3930	4023	
==>es. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of you <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10107	10202	
==>.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
described <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10107	10202	
==>.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
described <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2301	2405	
==>l5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2301	2405	
==>l5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2301	2405	
==>l5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1922	2061	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1702	1833	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1702	1833	
==>borting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3606	3746	
==>~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3606	3746	
==>~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3606	3746	
==>~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1127	1281	
==>ft:  exp                 { $out= [ $_[1] ] }
        |   list_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	464	560	
==>sity> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %p <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	464	560	
==>sity> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3674	3830	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3674	3830	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3674	3830	
==>'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34321	34416	
==>eturns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38871	38966	
==>eturns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38350	38445	
==>eturns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	220	332	
==>OURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	220	332	
==>OURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	220	332	
==>OURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7728	7856	
==>ic.

=head1 Perl 6 Code

  class Test::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12309	12405	
==>well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is ( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12367	12463	
==>well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is ( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	536	727	
==>' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	536	727	
==>' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	481	587	
==>E_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	183	300	
==>compiled {
    my $class = shift;
    my $code = shift;
    my ($grammar) = caller;
    bless { code => $code, grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18941	19074	
==>} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20299	20432	
==>} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2432	2526	
==>?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { return { assign_hash_to_scalar => $( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5224	5328	
==>_quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19675	19773	
==>mewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24227	24325	
==>mewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5528	5641	
==>tr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5528	5641	
==>tr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5528	5641	
==>tr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1391	1521	
==>le or not;
        # depending on the implementing class, it can default to True or 
        # False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4869	4998	
==>le or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3799	3928	
==>le or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a value of Fa <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4422	4546	
==>on    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4422	4546	
==>on    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5157	5260	
==>my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5157	5260	
==>my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5157	5260	
==>my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3936	4060	
==>f ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5357	5456	
==>P extension.  The Client-Date header is
# added as a timestamp to a response when it has been receiv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5357	5456	
==>P extension.  The Client-Date header is
# added as a timestamp to a response when it has been receiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13833	13953	
==>self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13833	13953	
==>self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13833	13953	
==>self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8701	8811	
==>tch::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8689	8799	
==>tch::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2651	2750	
==>if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2651	2750	
==>if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2651	2750	
==>if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1355	1452	
==>1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1355	1452	
==>1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1355	1452	
==>1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3315	3418	
==>{ my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <sigl <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3315	3418	
==>{ my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <sigl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6413	6510	
==>environment is set up (also helps scare off perl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7152	7264	
==>lf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7152	7264	
==>lf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7152	7264	
==>lf->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	394	498	
==>it('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = ' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	394	498	
==>it('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9619	9712	
==>\@match, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1121	1231	
==>ove header from output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1121	1231	
==>ove header from output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1201	1311	
==>ove header from output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2948	3054	
==>>can($method);
    }

    my $admin = $self->{admin} or die << "END";
The '$method' method does not exist i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	235	327	
==>:Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	268	360	
==>:Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1437	1566	
==>self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1437	1566	
==>self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1437	1566	
==>self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMetho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14128	14225	
==>Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14128	14225	
==>Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14128	14225	
==>Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12596	12739	
==>print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expande <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8870	9013	
==>print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expande <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9705	9848	
==>print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expande <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13234	13338	
==>ep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37679	37772	
==>!) returns Relation::Example>

This method is a generic relational operator that takes a singl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38519	38612	
==>!) returns Relation::Example>

This method is a generic relational operator that takes a singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19280	19440	
==>ERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19280	19440	
==>ERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19280	19440	
==>ERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arrays
                                $other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18426	18575	
==>'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18426	18575	
==>'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18426	18575	
==>'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2604	2708	
==>->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_control'}  = [ 'con <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12102	12199	
==>ct.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12102	12199	
==>ct.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7407	7496	
==>ly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## -- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7407	7496	
==>ly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## -- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7407	7496	
==>ly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2131	2236	
==>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2131	2236	
==>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2131	2236	
==>unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8572	8732	
==>want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8572	8732	
==>want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8572	8732	
==>want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1008	1117	
==>ub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out the "no <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1206	1300	
==>l supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elem <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1206	1300	
==>l supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elem <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33251	33351	
==>pear in this array until a match for that message is found.  Since a
program or library may wish to o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33251	33351	
==>pear in this array until a match for that message is found.  Since a
program or library may wish to o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15719	15814	
==>_width>

  my($width) = _leader_width(@test_files);

Calculates how wide the leader should be ba <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1872	2000	
==>eyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub get_array {
  my ( $self ) =  @_;
  return $self->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8991	9104	
==>RO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8991	9104	
==>RO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8991	9104	
==>RO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7736	7889	
==>ires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7736	7889	
==>ires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12899	13059	
==>opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12899	13059	
==>opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12899	13059	
==>opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9186	9366	
==>lculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9186	9366	
==>lculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9186	9366	
==>lculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	143	245	
==>r';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig ta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	143	245	
==>r';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig ta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	143	245	
==>r';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig ta <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8140	8253	
==>ap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10738	10835	
==>ptions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext? <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10738	10835	
==>ptions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2418	2574	
==>on
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2418	2574	
==>on
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2418	2574	
==>on
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = di <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3369	3455	
==>?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3369	3455	
==>?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*? <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5040	5153	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5040	5153	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1944	2057	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1599	1705	
==>t = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1803	1909	
==>t = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1010	1094	
==>p6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2792	2886	
==>::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2792	2886	
==>::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2792	2886	
==>::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	665	801	
==>b {
            my ($self, $run) = @_;
            return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1006	1139	
==>"not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1014	1139	
==>"not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3058	3173	
==>ndlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3058	3173	
==>ndlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3058	3173	
==>ndlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4559	4656	
==>] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4559	4656	
==>] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4559	4656	
==>] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11353	11482	
==>=~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16139	16256	
==>n Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19616	19733	
==>n Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13649	13751	
==>s b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13649	13751	
==>s b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1001	1105	
==>h' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1001	1105	
==>h' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1001	1105	
==>h' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' us <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2518	2602	
==>erl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2518	2602	
==>erl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	743	859	
==>t(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	743	859	
==>t(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	743	859	
==>t(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	261	386	
==>IL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	261	386	
==>IL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	261	386	
==>IL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4442	4546	
==>" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4442	4546	
==>" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4442	4546	
==>" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1914	2070	
==>V}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1914	2070	
==>V}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1914	2070	
==>V}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3666	3772	
==>stroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3666	3772	
==>stroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3666	3772	
==>stroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1440	1561	
==>$count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1440	1561	
==>$count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1440	1561	
==>$count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1635	1773	
==>xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tryin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1635	1773	
==>xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tryin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	964	1065	
==>Blondie::Backend::Perl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3226	3362	
==>] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3419	3555	
==>] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4020	4136	
==>e or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	174	287	
==>eturns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	174	287	
==>eturns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15778	15904	
==>ly +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20011	20137	
==>ly +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35032	35128	
==>(C<\X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array reference of array refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	466	566	
==>$self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	466	566	
==>$self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	466	566	
==>$self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11112	11236	
==>!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11112	11236	
==>!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11112	11236	
==>!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46260	46392	
==>symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32535	32627	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned binary union() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37085	37177	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned binary union() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2464	2595	
==>'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quanti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2464	2595	
==>'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quanti <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15015	15144	
==>s Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variation fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	787	899	
==>rload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	787	899	
==>rload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	787	899	
==>rload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31209	31303	
==>which has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35759	35853	
==>which has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1447	1652	
==>, it can default to True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4925	5129	
==>, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3855	4059	
==>, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of S <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	629	837	
==>ent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	629	837	
==>ent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3376	3464	
==>tenation(noop) --> {true}.
p5_concatenation_more(W, Z) --> p5_quantified(X), p5_concatena <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	91	196	
==>eblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	91	196	
==>eblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	91	196	
==>eblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	278	411	
==>tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) {
	chop($line);
	print "        \# $line\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9347	9446	
==>ompile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9347	9446	
==>ompile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4604	4756	
==>Literal>
    | <StringLiteral>
}
rule ReservedWord {  # see 7.5.1
      <Keyword>
    | <FutureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10656	10769	
==>{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[0] }) <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4978	5126	
==>%$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4837	4985	
==>%$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	758	899	
==>elf->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift | <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22448	22559	
==>n the
same object with the same arguments; they do not interact with the outside
environment at all.

A Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27000	27111	
==>n the
same object with the same arguments; they do not interact with the outside
environment at all.

A Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25723	25834	
==>n the
same object with the same arguments; they do not interact with the outside
environment at all.

A Relation <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	914	1024	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Y <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	914	1024	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2462	2567	
==>e'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2462	2567	
==>e'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2462	2567	
==>e'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	320	421	
==>2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	320	421	
==>2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	320	421	
==>2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resou <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3571	3774	
==>ined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.r <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3571	3774	
==>ined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6427	6513	
==>]*}(?{ &::hlp_stmt;})');
my $x5 = def_stmt_prim('bs_infix_decl','\s*multi\s+(infix:<(.+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	311	403	
==>pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	311	403	
==>pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	311	403	
==>pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1331	1441	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1331	1441	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1331	1441	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9016	9119	
==>event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=hea <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9016	9119	
==>event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=hea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5159	5257	
==><op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{'_print_with_fh' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7703	7811	
==>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7703	7811	
==>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7703	7811	
==>[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23587	23803	
==>etch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23587	23803	
==>etch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23587	23803	
==>etch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15121	15239	
==>t_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18598	18716	
==>t_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18014	18132	
==>t_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	47	159	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	47	159	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	47	159	
==>sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4282	4433	
==>y $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4823	4974	
==>y $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	535	657	
==>= {
        file    => { required => 1, allow => FILE_EXISTS, store => \$file },
        meta    => { store => \$meta, allo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15962	16076	
==>urn Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19439	19553	
==>urn Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	151	259	
==>e Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $value <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2244	2353	
==>r $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2244	2353	
==>r $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  m <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	290	396	
==>* not tested much
* read this modules source before using
* examine the proccesed source code by hand if ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1371	1477	
==>"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1371	1477	
==>"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1371	1477	
==>"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4774	4876	
==>copy files to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the / of the CD. <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1084	1181	
==>);

(also, the latter form is slightly more efficient, though this is
marginal in string COW envir <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1084	1181	
==>);

(also, the latter form is slightly more efficient, though this is
marginal in string COW envir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8159	8270	
==>ons failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8159	8270	
==>ons failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8159	8270	
==>ons failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15389	15489	
==>o expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header repres <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15389	15489	
==>o expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header repres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6009	6124	
==>nslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6009	6124	
==>nslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6009	6124	
==>nslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29733	29954	
==>{
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29733	29954	
==>{
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29733	29954	
==>{
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4840	4961	
==>zer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4674	4790	
==>zer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compile <==
3	/Users/nnunley/pugs/util/importgraph.pl	1296	1403	
==>r my $mod (values %modules) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3092	3212	
==>);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmul <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3092	3212	
==>);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmul <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7970	8058	
==>], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::instanti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10887	10985	
==>($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10887	10985	
==>($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10887	10985	
==>($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3047	3163	
==>ldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3047	3163	
==>ldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3047	3163	
==>ldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3469	3605	
==>rint $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3469	3605	
==>rint $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3469	3605	
==>rint $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
} <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	526	631	
==>contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  --------- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	526	631	
==>contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  --------- <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	181	279	
==>w incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../pugs";

foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	771	871	
==>turn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	771	871	
==>turn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	771	871	
==>turn sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11124	11256	
==>q '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '//' ) {
        re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17212	17310	
==>of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexibl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22312	22410	
==>of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexibl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10665	10856	
==>) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$fagain);
      };
      goto &$fmin;
    };        
  }
}
{
  # ( non-capturing
  package Regexp::Parser::group;
  sub emit { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5069	5217	
==>v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29041	29138	
==>is a generic relational operator that returns a new Relation::Example
which is the same as the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31889	31986	
==>is a generic relational operator that returns a new Relation::Example
which is the same as the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32936	33033	
==>is a generic relational operator that returns a new Relation::Example
which is the same as the inv <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	855	964	
==>'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	822	931	
==>'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or retur <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10206	10300	
==>emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10206	10300	
==>emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13872	13981	
==>that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17349	17458	
==>that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16729	16838	
==>that source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	322	440	
==>pport (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	322	440	
==>pport (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1671	1763	
==>r =~ s/\$\+\[([0-9]+)\]/'".$m->['.($1-1).']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9108	9253	
==>);
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9108	9253	
==>);
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9108	9253	
==>);
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

----------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1164	1292	
==>submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Pa <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1164	1292	
==>submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15311	15395	
==>_rewrite_list([],[],RW0,RW0).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7966	8114	
==>ame =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11962	12104	
==>ame =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11962	12104	
==>ame =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	568	698	
==>nt },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	568	698	
==>nt },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	568	698	
==>nt },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	191	324	
==>.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	191	324	
==>.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	191	324	
==>.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3405	3555	
==>t += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3405	3555	
==>t += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3405	3555	
==>t += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } els <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	527	618	
==>ng)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6> <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	527	618	
==>ng)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	780	882	
==>efully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	780	882	
==>efully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	780	882	
==>efully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	475	580	
==>2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	475	580	
==>2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	475	580	
==>2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3459	3555	
==>ctory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3459	3555	
==>ctory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5656	5752	
==>ctory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1942	2047	
==>package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1942	2047	
==>package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1942	2047	
==>package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28613	28709	
==>s that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33165	33261	
==>s that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32293	32389	
==>s that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5148	5262	
==>->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5148	5262	
==>->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<* <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2473	2580	
==>ameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl block with placeholde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16207	16312	
==>x)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16207	16312	
==>x)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16207	16312	
==>x)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	986	1082	
==>b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	986	1082	
==>b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	986	1082	
==>b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15902	16039	
==>s_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15902	16039	
==>s_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15902	16039	
==>s_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6093	6222	
==>$self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6093	6222	
==>$self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17159	17310	
==>y ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17159	17310	
==>y ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17159	17310	
==>y ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3214	3315	
==>0, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

my $p2 = n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4448	4539	
==>'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4448	4539	
==>'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6227	6336	
==>ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6227	6336	
==>ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6227	6336	
==>ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	18	128	
==>sen in Perl 6
use v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $var = new MeineKlasse;
$v <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2694	2789	
==>ing, seperating it into 'name' and 'value' pairs.  This
method should be called before any other <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2694	2789	
==>ing, seperating it into 'name' and 'value' pairs.  This
method should be called before any other <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19948	20044	
==>r Mac OS X programs, including
the operating system itself, to have the user language data in sep <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19948	20044	
==>r Mac OS X programs, including
the operating system itself, to have the user language data in sep <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2313	2405	
==>an be executed by a
runtime. An example runtime is L<Blondie::Backend::Perl>, which happens t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1933	2038	
==>have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1933	2038	
==>have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1933	2038	
==>have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14573	14713	
==>issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some earl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14573	14713	
==>issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some earl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14573	14713	
==>issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some earl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1101	1206	
==>($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($value) && $va <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1569	1773	
==>ader', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_elemen <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1569	1773	
==>ader', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_elemen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3291	3473	
==>e );
            
            my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3405	3528	
==>s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3405	3528	
==>s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3405	3528	
==>s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$wha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3164	3289	
==>o($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3164	3289	
==>o($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4688	4813	
==>o($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($pass <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3893	4001	
==>c 'acosech';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5099	5197	
==>.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but retur <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5099	5197	
==>.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2904	3034	
==>ts $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2904	3034	
==>ts $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2904	3034	
==>ts $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) <==
3	/Users/nnunley/pugs/util/importgraph.pl	468	590	
==>mmand line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rankdir => 1,
  overlap => $overlap,
);

my %m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10451	10572	
==>if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10451	10572	
==>if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1147	1258	
==>>{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	886	992	
==>>{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1091	1197	
==>>{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4598	4708	
==>"isLazy">,
            %pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pad<"paramConte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9201	9288	
==>ammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3026	3113	
==>ammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	713	821	
==>raphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	713	821	
==>raphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	713	821	
==>raphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	930	1067	
==>Child(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	930	1067	
==>Child(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	930	1067	
==>Child(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (no <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5636	5748	
==>tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5636	5748	
==>tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7759	7877	
==>sure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcula <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7759	7877	
==>sure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcula <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9438	9546	
==>l program ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	355	496	
==>');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1862	1978	
==>real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1862	1978	
==>real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	19	122	
==>ION = '0.01';

1;

__END__
=pod

=head1 NAME

JIB - Perl6 Package Manager

=head1 DESCRIPTION

JIB stand <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1593	1695	
==>"\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1593	1695	
==>"\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5456	5563	
==>ostfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression insid <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5456	5563	
==>ostfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression insid <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1785	1888	
==>thods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1785	1888	
==>thods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7656	7748	
==>ehind(R))     --> p5_elemental(lookbehind(R)).
p5_condition_test(lookbehind_not(R)) --> p5_el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	62	191	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	62	191	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	62	191	
==>y $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2122	2229	
==>:File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2122	2229	
==>:File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2122	2229	
==>:File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3670	3823	
==>>( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3919	4068	
==>>( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3919	4068	
==>>( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14938	15057	
==>SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14938	15057	
==>SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times d <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	816	934	
==>are not used in parsing JavaScript,
#     but rather in implementing it (eg, by ToNumber).
#   * Character sets are som <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19258	19376	
==>on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15679	15797	
==>on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8501	8598	
==>l got the right return value from Foo singleton/class method');  
  
fails_ok { $Object->singleton <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1591	1728	
==>eue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comman <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1591	1728	
==>eue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comman <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8108	8222	
==>ance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. int == int, str == str, int != str)
multi un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1626	1763	
==>Height);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scroll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1626	1763	
==>Height);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scroll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1626	1763	
==>Height);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scroll <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12318	12508	
==>tent($rest);
      my $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10078	10197	
==>I - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10078	10197	
==>I - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19727	19817	
==>rom_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19727	19817	
==>rom_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19727	19817	
==>rom_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2900	2999	
==>decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2900	2999	
==>decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2900	2999	
==>decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterw <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2364	2516	
==>ize' => sub { # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1193	1297	
==>param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1181	1285	
==>param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Ru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31543	31637	
==>nal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36093	36187	
==>nal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35320	35414	
==>nal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	745	859	
==>Carp::carp("ender() ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33638	33732	
==>one or more elements where each
element is a Template module Member Name and usually correspond <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33638	33732	
==>one or more elements where each
element is a Template module Member Name and usually correspond <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12937	13042	
==>});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12937	13042	
==>});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12937	13042	
==>});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2176	2283	
==>(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2176	2283	
==>(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2176	2283	
==>(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14298	14387	
==>bute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14298	14387	
==>bute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14298	14387	
==>bute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8899	9022	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8899	9022	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8899	9022	
==>uperclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19112	19238	
==>tr $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARSER>)
{
    Pugs::Internals::eval($code,$lang);
}


 multi Control::Bas <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7312	7408	
==>finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7312	7408	
==>finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until the <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4788	4949	
==>fine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4788	4949	
==>fine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Objec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4069	4228	
==>nd error($?), return;
        system( qq[tar -f $control --exclude .svn -C $path/$jibdir -cz .] )
                                                        and er <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28827	29008	
==>$str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28827	29008	
==>$str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28827	29008	
==>$str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# -- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	233	363	
==>oadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	468	576	
==>ASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	468	576	
==>ASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_A <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	367	560	
==>option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { u <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	367	560	
==>option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { u <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	265	364	
==>gth - $duration.length);
}

#method infix:<->($self: Duration $duration) returns Duration {
    #$se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	98	197	
==>CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	156	255	
==>CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1937	2036	
==>nings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1937	2036	
==>nings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1937	2036	
==>nings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8166	8397	
==>h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12154	12310	
==>h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12154	12310	
==>h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2473	2574	
==>ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2531	2632	
==>ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1360	1494	
==>bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1371	1505	
==>bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

* <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1803	1898	
==>"flattenning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::ble <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23449	23564	
==>ee clause 13
      <SourceElements>
}
rule Program :words {  # see clause 14
      <SourceElements>
}
rule SourceEle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26724	26847	
==>Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      f <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7707	7810	
==>ush( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7707	7810	
==>ush( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3584	3701	
==>state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3835	3949	
==>state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3835	3949	
==>state->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3669	3776	
==>oy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3669	3776	
==>oy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3669	3776	
==>oy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1140	1238	
==>ft;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1140	1238	
==>ft;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12362	12446	
==>brackets(Open,Close), p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int(C), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7306	7480	
==>rt->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7306	7480	
==>rt->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7306	7480	
==>rt->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1383	1509	
==>ked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19702	19797	
==>ng these headers.

=item $h.authorization_basic

This method is used to get or set an authorizat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19702	19797	
==>ng these headers.

=item $h.authorization_basic

This method is used to get or set an authorizat <==
3	/Users/nnunley/pugs/util/func_refact.pl	890	1031	
==>e {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8910	9019	
==>interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8910	9019	
==>interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1963	2074	
==>0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1963	2074	
==>0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1963	2074	
==>0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5336	5451	
==>method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5336	5451	
==>method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5336	5451	
==>method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	471	594	
==>eaddir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	506	629	
==>eaddir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	471	594	
==>eaddir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6445	6546	
==>>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which cont <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6445	6546	
==>>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8642	8743	
==>>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	602	703	
==>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	602	703	
==>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	602	703	
==>{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSy <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7063	7169	
==>ume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7063	7169	
==>ume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across vol <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12332	12427	
==>of them) and does something to them (and their children).

=head1 ERROR HANDLING

=head2 Determi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9737	9912	
==>want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }


=item sort

 typ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	616	733	
==>ccent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	616	733	
==>ccent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2493	2596	
==>turns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2493	2596	
==>turns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2493	2596	
==>turns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatche <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	937	1079	
==>> 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'),
							Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3463	3576	
==>JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3463	3576	
==>JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3463	3576	
==>JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	405	580	
==>> sub {
            my $self = shift;
            $self->set_value('%:slots', {});
        },
        methods => {
            hash_fetch => sub {
                my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2121	2249	
==>F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @o <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2121	2249	
==>F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7136	7246	
==>::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7136	7246	
==>::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7136	7246	
==>::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	958	1060	
==>fined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	958	1060	
==>fined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	958	1060	
==>fined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7031	7147	
==>t;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7031	7147	
==>t;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7031	7147	
==>t;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1496	1607	
==>xt;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

subme <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1496	1607	
==>xt;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

subme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36543	36646	
==>";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4824	4918	
==>t::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4824	4918	
==>t::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4824	4918	
==>t::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8495	8606	
==>->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8495	8606	
==>->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8495	8606	
==>->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6036	6129	
==>ule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5827	5919	
==>ule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9024	9137	
==>:test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  pla <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9082	9195	
==>:test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  pla <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8927	9040	
==>date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8927	9040	
==>date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3006	3141	
==>se {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3223	3358	
==>se {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $file <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9293	9395	
==>export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-125 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9293	9395	
==>export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-125 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6455	6564	
==>s to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6455	6564	
==>s to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6455	6564	
==>s to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6588	6720	
==>unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6588	6720	
==>unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6588	6720	
==>unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13597	13699	
==>)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalen <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13597	13699	
==>)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalen <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	151	252	
==>tion;

our @EXPORT = qw/smoke_runtime/;

my @progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13622	13807	
==>\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9806	9991	
==>\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10642	10827	
==>\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9584	9685	
==>\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	29	127	
==>:Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	29	127	
==>:Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
u <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3803	3921	
==>nf->archive_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1640	1734	
==>II
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Cod <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1640	1734	
==>II
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Cod <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4800	4918	
==>t {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir in <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4800	4918	
==>t {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir in <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8641	8735	
==>art_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8641	8735	
==>art_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	594	700	
==>f..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	594	700	
==>f..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	594	700	
==>f..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * d <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	237	333	
==>failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	295	391	
==>failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2382	2491	
==>tribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2382	2491	
==>tribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2382	2491	
==>tribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9037	9135	
==>in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9037	9135	
==>in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8728	8905	
==>param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8728	8905	
==>param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8728	8905	
==>param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->sto <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1537	1632	
==>for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<Th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1537	1632	
==>for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6436	6534	
==>the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6436	6534	
==>the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6436	6534	
==>the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23193	23283	
==>kname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23193	23283	
==>kname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	185	295	
==>EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first pla <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	185	295	
==>EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first pla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	772	881	
==>'<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <equal>', 
    infix_right =>     '<equal> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1286	1398	
==>pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1286	1398	
==>pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1286	1398	
==>pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1476	1613	
==>pan.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1476	1613	
==>pan.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $spa <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	870	992	
==>fined($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  ret <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	698	796	
==>:Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	698	796	
==>:Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	997	1106	
==>JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %Foo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	997	1106	
==>JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %Foo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	997	1106	
==>JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %Foo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6517	6628	
==>rted_p6 = map {;($_ => 1)},
        <i ignorecase s sigspace g global  stringify>;
        %modifiers_supported_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7491	7587	
==>s reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reache <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7491	7587	
==>s reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reache <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12529	12856	
==>:Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12529	12856	
==>:Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4135	4231	
==>=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder sin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4135	4231	
==>=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5659	5755	
==>=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder sin <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1010	1124	
==>ntent-Type: text/plain\n\n";

  limit_rate();
  validate_params();
  add_smoke();
  clean_obsolete_smokes();

  pri <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3677	3779	
==>l_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3677	3779	
==>l_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7058	7197	
==>,
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7058	7197	
==>,
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7058	7197	
==>,
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27327	27426	
==>t a Message object does not permit changes to its attributes; they
must all be set when the object i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27327	27426	
==>t a Message object does not permit changes to its attributes; they
must all be set when the object i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22240	22335	
==>ion for the L<Relation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4047	4137	
==>.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4047	4137	
==>.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Roset <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3109	3270	
==>y @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - shoul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3109	3270	
==>y @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - shoul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3109	3270	
==>y @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - shoul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10601	10696	
==>rs, which
means that you can update several fields with a single invocation.

The $value argumen <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10601	10696	
==>rs, which
means that you can update several fields with a single invocation.

The $value argumen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3499	3599	
==>param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3499	3599	
==>param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3499	3599	
==>param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1349	1448	
==>alar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZAT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1349	1448	
==>alar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZAT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1349	1448	
==>alar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZAT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5845	5946	
==>ems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5845	5946	
==>ems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5845	5946	
==>ems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original arr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1376	1467	
==>t_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars? <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1376	1467	
==>t_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9339	9451	
==>}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9339	9451	
==>}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3959	4122	
==>e( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognized token '",substr($match,0,10 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8031	8143	
==>te loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8031	8143	
==>te loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	12	121	
==>oot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	12	121	
==>oot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	12	121	
==>oot::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14123	14224	
==>) = { generic($.fun) + generic($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.pa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4308	4407	
==>@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4308	4407	
==>@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1624	1740	
==>uperclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1624	1740	
==>uperclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1624	1740	
==>uperclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12	112	
==>quire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12	112	
==>quire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	658	750	
==>f = shift;
	$self->annotator->annotate($self, @_);
}

sub emitter_class { "Blondie::Backend:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3232	3341	
==>, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3232	3341	
==>, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3232	3341	
==>, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_clas <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	29	143	
==>mp
my $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log "test1";
beispiel;
lo <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3004	3116	
==>tch, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3004	3116	
==>tch, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11960	12079	
==>le Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11960	12079	
==>le Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11960	12079	
==>le Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1542	1673	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1542	1673	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1542	1673	
==>et('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5891	5985	
==>__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5891	5985	
==>__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5891	5985	
==>__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2196	2336	
==>>type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2196	2336	
==>>type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2196	2336	
==>>type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_f <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6650	6750	
==>r pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6650	6750	
==>r pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandl <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	48	151	
==>use Getopt::Long;
use Config ();

# helper code to inline the Standard Prelude in pugs.

# Sets up eithe <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13775	13871	
==>force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $re <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13833	13929	
==>force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1711	1809	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1711	1809	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1711	1809	
==>e, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2901	3008	
==>y(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2901	3008	
==>y(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2901	3008	
==>y(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11657	11759	
==>return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11657	11759	
==>return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11657	11759	
==>return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5380	5490	
==>to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5380	5490	
==>to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5380	5490	
==>to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2799	2979	
==>.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2799	2979	
==>.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2799	2979	
==>.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	139	268	
==>Pugs::Grammar::BaseCategory);

sub add_rule {
    # print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13885	13986	
==>6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13885	13986	
==>6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13885	13986	
==>6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26842	26935	
==>med C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31394	31487	
==>med C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2325	2413	
==>assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18640	18745	
==>0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18640	18745	
==>0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18640	18745	
==>0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4734	4846	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4734	4846	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4734	4846	
==>'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2441	2538	
==>::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2441	2538	
==>::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2441	2538	
==>::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2479	2575	
==>0000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2479	2575	
==>0000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2479	2575	
==>0000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15674	15801	
==>do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15674	15801	
==>do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15674	15801	
==>do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5381	5491	
==>1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base goto term_bx2
    $I0 *= base <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4035	4131	
==>_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complemen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4035	4131	
==>_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11848	11943	
==>s all conform to the Role interface/API they are 
interchangable with one another, classes and R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11848	11943	
==>s all conform to the Role interface/API they are 
interchangable with one another, classes and R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11848	11943	
==>s all conform to the Role interface/API they are 
interchangable with one another, classes and R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1561	1652	
==>tance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1561	1652	
==>tance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1561	1652	
==>tance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5048	5156	
==>s") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anyth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5048	5156	
==>s") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anyth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5048	5156	
==>s") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anyth <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1872	1996	
==>\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1872	1996	
==>\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4172	4270	
==>(JSX::InternalValue::Reference $V) {
    my $Result2 = GetBase($V);
    raise ReferenceError if $Re <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	376	472	
==>\n", param('topic')) || 'FrontPage';
my $entry      = join("\n", param('entry') || %wiki{$topic}) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14597	14691	
==>ll follow
recommended "Good Practice" of ordering the header fields.  Long header
values are no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14597	14691	
==>ll follow
recommended "Good Practice" of ordering the header fields.  Long header
values are no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1438	1562	
==>finite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1438	1562	
==>finite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1438	1562	
==>finite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2654	2759	
==>$v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2654	2759	
==>$v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2654	2759	
==>$v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5170	5333	
==>f ( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3922	4032	
==>.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3922	4032	
==>.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16251	16412	
==>t = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16251	16412	
==>t = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16251	16412	
==>t = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1084	1203	
==>rpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1084	1203	
==>rpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1293	1412	
==>rpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3491	3586	
==>$read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3491	3586	
==>$read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3491	3586	
==>$read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13930	14098	
==>te methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13930	14098	
==>te methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13930	14098	
==>te methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12295	12437	
==>int "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( ! exists $n->{e <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4940	5036	
==>lled with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instan <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4940	5036	
==>lled with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instan <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7451	7559	
==>.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_orde <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7451	7559	
==>.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_orde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1730	1835	
==>XX - 'hard' replace $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5446	5565	
==>ngs getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5446	5565	
==>ngs getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5446	5565	
==>ngs getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = func <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4525	4622	
==>t to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4525	4622	
==>t to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	630	744	
==>o other native types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift) + 0) }

# methods

sub name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	374	480	
==>at are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extendi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	374	480	
==>at are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extendi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5041	5179	
==>{ lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_,
      categor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5223	5316	
==>library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5223	5316	
==>library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1825	1959	
==>ine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1825	1959	
==>ine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1825	1959	
==>ine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14317	14475	
==>x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14317	14475	
==>x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14317	14475	
==>x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3962	4091	
==>something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependenc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4426	4555	
==>something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependenc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32094	32195	
==>, looking for a match to said error
message.  If it finds one, then that is displayed; if not, it then <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32094	32195	
==>, looking for a match to said error
message.  If it finds one, then that is displayed; if not, it then <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6934	7022	
==>r_singleton_test_on_object'
});

is($Object->another_singleton_test_on_object(), 
   '&Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4438	4540	
==>my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4438	4540	
==>my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4438	4540	
==>my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19412	19503	
==>om_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19412	19503	
==>om_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19412	19503	
==>om_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2229	2326	
==>ur meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2229	2326	
==>ur meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2229	2326	
==>ur meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Modul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	945	1064	
==>ny
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4423	4542	
==>ny
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each ke <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	195	288	
==>xt type(s) for dispatchable lookup (inheritance)
has Type @.supers;

multi method isa($self: C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3930	4088	
==>m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unreco <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7546	7684	
==>)
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7739	7877	
==>)
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10219	10395	
==>, '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$sr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6560	6736	
==>, '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$sr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7409	7585	
==>, '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$sr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2424	2516	
==>_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2424	2516	
==>_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2424	2516	
==>_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8987	9122	
==>t',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8987	9122	
==>t',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8987	9122	
==>t',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15296	15405	
==>ame,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	996	1098	
==>:SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	996	1098	
==>:SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3880	3995	
==>>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid com <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3880	3995	
==>>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid com <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3880	3995	
==>>do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid com <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8350	8442	
==>atim section.

=item I<start_element ('line_interpolation')>

This event is begun when any bl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8350	8442	
==>atim section.

=item I<start_element ('line_interpolation')>

This event is begun when any bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6368	6457	
==>le = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6368	6457	
==>le = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6368	6457	
==>le = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15451	15550	
==>_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15451	15550	
==>_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15451	15550	
==>_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24616	24718	
==>h =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21037	21139	
==>h =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub { <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1997	2097	
==>/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5357	5466	
==>stant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5357	5466	
==>stant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5357	5466	
==>stant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14541	14668	
==>ss $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14541	14668	
==>ss $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14541	14668	
==>ss $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'un <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22760	22857	
==>them; but often a template will
choose to show less than all of the available details depending on <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22760	22857	
==>them; but often a template will
choose to show less than all of the available details depending on <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15480	15575	
==>block we thread the set of generic type variables, so the body has the generic variables created <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4617	4722	
==>lf->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4617	4722	
==>lf->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4617	4722	
==>lf->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12876	13009	
==>to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12876	13009	
==>to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	5	101	
==>r/bin/perl

package P6RulesInP5::Match;
use base qw/Class::Accessor/;
use overload
    'bool'  => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13623	13718	
==>the
names are returned in the recommended "Good Practice" order.

In scalar context return the n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13623	13718	
==>the
names are returned in the recommended "Good Practice" order.

In scalar context return the n <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5615	5709	
==>8+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 671 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5615	5709	
==>8+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 671 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	719	821	
==>* 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	719	821	
==>* 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	719	821	
==>* 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-laz <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	385	507	
==>rt() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	385	507	
==>rt() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6196	6313	
==>s;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2367	2466	
==>p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2367	2466	
==>p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2367	2466	
==>p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_de <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21078	21169	
==>e, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21078	21169	
==>e, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6014	6141	
==>nd recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6014	6141	
==>nd recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6014	6141	
==>nd recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1490	1605	
==>ub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1490	1605	
==>ub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1490	1605	
==>ub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4992	5147	
==>e' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4992	5147	
==>e' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4992	5147	
==>e' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4299	4432	
==>n't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_ca <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4299	4432	
==>n't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_ca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26657	26789	
==>od label
        symbol->new('add_subclass'),
    # method body
        method->new(
            $::ENV,
            method::signatur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	207	328	
==>$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3398	3512	
==>:Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3398	3512	
==>:Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurren <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	587	701	
==>,
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest => V <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2327	2436	
==>ub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n" <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2327	2436	
==>ub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14817	14988	
==>$x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14817	14988	
==>$x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14817	14988	
==>$x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9201	9294	
==>\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9201	9294	
==>\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9201	9294	
==>\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2250	2347	
==>graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2250	2347	
==>graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2250	2347	
==>graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28788	28962	
==>e->get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send('_merge' <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1118	1221	
==>TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object r <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1118	1221	
==>TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	623	760	
==>{
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15223	15317	
==>header did not exist then C<undef> is returned.

Methods that deal with dates/times always conv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15223	15317	
==>header did not exist then C<undef> is returned.

Methods that deal with dates/times always conv <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17215	17324	
==>osix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13636	13745	
==>osix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9827	9926	
==>NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typename <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8697	8789	
==>phers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8697	8789	
==>phers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I< <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17346	17468	
==>fmap")){
            my @gut =  $node->fmap(sub { $self->generic_reduce($_[0]) })->str;

            return (ref $node) . " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7986	8084	
==>t of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7986	8084	
==>t of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	334	441	
==>o) {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $o <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	334	441	
==>o) {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12773	12881	
==>lass->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12773	12881	
==>lass->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12773	12881	
==>lass->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1770	1866	
==>PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1770	1866	
==>PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1770	1866	
==>PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precom <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	44	150	
==>trings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
}



__PACKAG <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3472	3558	
==>cre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3472	3558	
==>cre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4674	4792	
==>nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4674	4792	
==>nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1318	1433	
==>il}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pm <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6557	6653	
==>ctual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6557	6653	
==>ctual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data> <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1980	2067	
==>ct  { <construct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11172	11283	
==>l6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11172	11283	
==>l6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11172	11283	
==>l6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2942	3078	
==>l} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2942	3078	
==>l} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2942	3078	
==>l} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_m <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1577	1716	
==>$file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open( <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1577	1716	
==>$file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1018	1142	
==>wd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1018	1142	
==>wd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1018	1142	
==>wd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2874	2981	
==>nt cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2874	2981	
==>nt cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9885	9981	
==>op- through third-level

The iterator returned is a function reference.  When called in scalar
co <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8903	9017	
==>($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared libraries (*. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	527	621	
==>_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a coun <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	527	621	
==>_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a coun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6999	7091	
==>st_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7986	8078	
==>st_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10555	10647	
==>st_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1028	1152	
==>elf, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0, <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1780	1885	
==>t.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for som <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1780	1885	
==>t.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for som <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	128	248	
==>= $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	128	248	
==>= $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7573	7666	
==>mk_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pV <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	441	537	
==>:Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles al <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	441	537	
==>:Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	997	1093	
==>:Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles al <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1806	1896	
==>a::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1806	1896	
==>a::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2082	2186	
==>RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8973	9066	
==>statements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8973	9066	
==>statements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1226	1322	
==>atement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1226	1322	
==>atement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1226	1322	
==>atement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	138	253	
==>URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	138	253	
==>URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1198	1323	
==>urn sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtime::Match::Rat <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3279	3378	
==>ded mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3279	3378	
==>ded mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1796	1912	
==>abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

Find <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1796	1912	
==>abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

Find <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2165	2262	
==>ill be run with taint mode on.

=head2 Configuration variables.

These variables can be used to co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	270	361	
==>ntainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	270	361	
==>ntainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	270	361	
==>ntainer::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24267	24372	
==>o attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28819	28924	
==>o attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27677	27782	
==>o attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relatio <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1321	1434	
==>$x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9030	9139	
==>r(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9030	9139	
==>r(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10716	10841	
==>@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10716	10841	
==>@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10716	10841	
==>@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8189	8369	
==>nboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->jun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8189	8369	
==>nboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->jun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8189	8369	
==>nboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->jun <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4490	4613	
==>my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKA <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4055	4147	
==>hod GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue (JSX::PsuedoValue $V) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	641	745	
==>(non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	641	745	
==>(non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	641	745	
==>(non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26292	26426	
==>(due to the C</c>
modifier).  Remember to use I<scalar> context.  If you need to access
capture groups, use the digit variables, but on <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	273	379	
==>r::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd,"\n";
    my $out = `$cmd`;
    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1989	2094	
==>ures}[--$n] if $n;
  return $self->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26884	26986	
==>[qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use B <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1108	1208	
==>own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1108	1208	
==>own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1359	1463	
==>nt(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1::Root";

=pod
ht <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13268	13360	
==>ns.
Moreover, these data structures are in exactly the right input format for
Document.new(), <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13268	13360	
==>ns.
Moreover, these data structures are in exactly the right input format for
Document.new(), <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12237	12329	
==>eturns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12237	12329	
==>eturns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$se <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1062	1181	
==>*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitear <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1062	1181	
==>*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitear <==
3	/Users/nnunley/pugs/util/package-osx.pl	5706	5803	
==>:Control.3
        /usr/local/man/man3/Perl6::Overview::Control.3pm
        /usr/local/man/man3/Pe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2339	2460	
==>at single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2339	2460	
==>at single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6760	6863	
==>kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6760	6863	
==>kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channe <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2713	2802	
==>asyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_alternation> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2957	3069	
==>d empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method con <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2957	3069	
==>d empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16679	16784	
==>::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16679	16784	
==>::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16679	16784	
==>::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13101	13278	
==>$key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13101	13278	
==>$key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13101	13278	
==>$key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31903	32037	
==>@values')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descendant_dispatcher (op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1203	1312	
==>ode // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1203	1312	
==>ode // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7217	7340	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7217	7340	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7217	7340	
==>>new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	936	1039	
==>ON

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	936	1039	
==>ON

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	936	1039	
==>ON

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, reblessing objects th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	489	613	
==>alX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	489	613	
==>alX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	489	613	
==>alX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    'V'         => sub{ pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6214	6305	
==>ls::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6214	6305	
==>ls::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6214	6305	
==>ls::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1072	1178	
==>g a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=he <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1072	1178	
==>g a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1628	1734	
==>g a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=he <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	752	864	
==>> [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  return bless \\{
    s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9257	9362	
==>peHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.cha <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9257	9362	
==>peHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.cha <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11925	12043	
==>ading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15402	15520	
==>ading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14737	14855	
==>ading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	542	638	
==>s export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	542	638	
==>s export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7754	7844	
==>stead of itself
multi unify => ('type::variable::instantiated', 'type') => sub { unify($_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7453	7563	
==>rint "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7465	7575	
==>rint "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4453	4552	
==>hunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter types with thu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17967	18058	
==>ssionNoIn> <'&&'> <BitwiseORExpressionNoIn>
}
rule LogicalORExpression :words {  # see 11.11 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7253	7385	
==>ure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7253	7385	
==>ure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7253	7385	
==>ure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19652	19745	
==>oin or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19652	19745	
==>oin or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	575	687	
==>pth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	575	687	
==>pth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	575	687	
==>pth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	961	1062	
==>n')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	961	1062	
==>n')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1508	1609	
==>n')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The numbe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30877	30975	
==>re C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35427	35525	
==>re C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34618	34716	
==>re C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the origin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3153	3260	
==>e continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3153	3260	
==>e continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3153	3260	
==>e continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3258	3417	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3258	3417	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	204	304	
==>ative { undef }

# conversion to other native types
sub to_num { num->new(0)  }
sub to_bit { bit->new <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6660	6789	
==>failed
    estat       Script's exit value
    wstat       Script's wait status
    max         Number of individual tests
    fai <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6604	6700	
==>ers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HT <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6604	6700	
==>ers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14598	14726	
==>ompatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14598	14726	
==>ompatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14598	14726	
==>ompatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ], <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	168	264	
==>ed_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_fi <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	168	264	
==>ed_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_fi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3423	3552	
==>y $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6277	6387	
==>gal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7275	7385	
==>gal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4299	4458	
==>nding token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $name = $ast->{op};
            if (   de <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1200	1299	
==>ss $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	303	401	
==>ss $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2739	2918	
==>'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12475	12570	
==>both previous and next elements are at the same distance, returns the previous one.

- `is_empty <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12475	12570	
==>both previous and next elements are at the same distance, returns the previous one.

- `is_empty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15385	15496	
==>..
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15385	15496	
==>..
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15385	15496	
==>..
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $metho <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	734	843	
==>$param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	734	843	
==>$param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	760	859	
==>eAdmin->new;
}

sub is_admin {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

package Module::Install <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6488	6607	
==>erl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6488	6607	
==>erl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6488	6607	
==>erl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@P <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18076	18195	
==>(if any)
            };

Element 0 of the details is test #1.  I tried it with element 1 being
#1 and 0 being empty, thi <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	854	964	
==>s to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	854	964	
==>s to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36992	37109	
==>meric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36992	37109	
==>meric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36992	37109	
==>meric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17506	17621	
==>s->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14300	14401	
==>haracters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14300	14401	
==>haracters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2819	2916	
==>e_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2819	2916	
==>e_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2819	2916	
==>e_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13761	13867	
==>want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13761	13867	
==>want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5538	5664	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_chang <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4038	4164	
==>ze + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_chang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2514	2638	
==>$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub { _('$.descrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7103	7204	
==>de');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7103	7204	
==>de');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7103	7204	
==>de');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2073	2167	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2073	2167	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2073	2167	
==>(Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method codes  (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1770	1897	
==>1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1770	1897	
==>1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1770	1897	
==>1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26511	26719	
==>Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26511	26719	
==>Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26511	26719	
==>Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3998	4191	
==>_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7475	7668	
==>_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7901	8019	
==>'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6516	6612	
==>pe' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6516	6612	
==>pe' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3171	3283	
==>ter>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3171	3283	
==>ter>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_ope <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16677	16761	
==>1,E0,E1) :- rm(Re1,F0,F1,B0,B1,E0,E1).
rm(union(_Re1,Re2),F0,F1,B0,B1,E0,E1) :- rm(Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3351	3465	
==>== Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3351	3465	
==>== Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3351	3465	
==>== Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10600	10730	
==>d
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10600	10730	
==>d
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10600	10730	
==>d
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	311	416	
==>ed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args->is_empty == $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4861	4958	
==>er.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4861	4958	
==>er.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1468	1560	
==>hod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1468	1560	
==>hod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1468	1560	
==>hod uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5276	5386	
==>w(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5276	5386	
==>w(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5276	5386	
==>w(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1446	1551	
==>sh @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1446	1551	
==>sh @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1655	1760	
==>sh @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	339	437	
==>d is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	339	437	
==>d is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	166	266	
==>@EXPORT = qw( Rx RxPOS RxCUR RxLEN Rf SIZE_ONLY LATEST );

sub Rx :lvalue		{ $_[0]{regex} }
sub RxPOS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11035	11172	
==>defined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11035	11172	
==>defined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11035	11172	
==>defined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6105	6197	
==><<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6105	6197	
==><<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6105	6197	
==><<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21767	21870	
==>by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26319	26422	
==>by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22267	22360	
==>wed by C<?>, which doesn't warrant the warning.

Added "Unrecognized escape" warnings to I<all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5450	5551	
==>l. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5450	5551	
==>l. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5450	5551	
==>l. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3030	3135	
==>_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3030	3135	
==>_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3030	3135	
==>_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	396	540	
==>$self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            'array_fetch' => sub { # evaluate <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13745	13839	
==>mes.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13745	13839	
==>mes.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10097	10257	
==>meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-in <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2185	2279	
==>od

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like thi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2185	2279	
==>od

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4451	4560	
==>bname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4451	4560	
==>bname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4451	4560	
==>bname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $macro->as <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3998	4100	
==>$regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matchObj->target();
  $p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	268	368	
==>as Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stri <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	268	368	
==>as Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	306	426	
==>) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	306	426	
==>) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	306	426	
==>) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6238	6369	
==>lsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6238	6369	
==>lsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2962	3090	
==>emainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( q(
        \!      # $!
    |   \?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4433	4559	
==>I SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4433	4559	
==>I SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4433	4559	
==>I SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	558	661	
==>) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	558	661	
==>) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	558	661	
==>) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	393	505	
==>re must be a more efficient way to do this,
      // but if I store the node in a variable outside of this functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	393	505	
==>re must be a more efficient way to do this,
      // but if I store the node in a variable outside of this functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	393	505	
==>re must be a more efficient way to do this,
      // but if I store the node in a variable outside of this functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4144	4249	
==>ere is no instance
constructor, and when calling these methods you should take care not
to call them in fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4144	4249	
==>ere is no instance
constructor, and when calling these methods you should take care not
to call them in fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4144	4249	
==>ere is no instance
constructor, and when calling these methods you should take care not
to call them in fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1340	1429	
==>n_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1340	1429	
==>n_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1340	1429	
==>n_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	519	618	
==>$!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	519	618	
==>$!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	519	618	
==>$!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "** <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	659	762	
==>:IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	659	762	
==>:IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	659	762	
==>:IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10656	10906	
==>klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10656	10906	
==>klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2334	2437	
==>cmp_deeply(
			$result,
			$prog->{result},
			"correct results for $prog->{name}",
		);
	}
}

__PACKAGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21179	21427	
==>scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21179	21427	
==>scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21179	21427	
==>scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1379	1498	
==>ion is mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4857	4975	
==>ion is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but on <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	450	546	
==>-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	411	507	
==>-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"fo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	411	507	
==>-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	269	380	
==>eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	269	380	
==>eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	269	380	
==>eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1407	1579	
==>PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1407	1579	
==>PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1407	1579	
==>PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    box <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3388	3565	
==>line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3388	3565	
==>line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7132	7238	
==>w => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->last_error) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10891	10985	
==>d party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple cont <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10891	10985	
==>d party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11927	12078	
==>r #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2341	2480	
==>r #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2341	2480	
==>r #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8954	9132	
==>x( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8954	9132	
==>x( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2771	2867	
==>urrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2771	2867	
==>urrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2771	2867	
==>urrently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4434	4534	
==>pe eq "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5959	6094	
==>ribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5959	6094	
==>ribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5959	6094	
==>ribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1183	1289	
==>i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1183	1289	
==>i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1183	1289	
==>i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9563	9663	
==>{...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9563	9663	
==>{...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9563	9663	
==>{...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_req <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4616	4735	
==>} elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4616	4735	
==>} elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	924	1014	
==>dump_verbose();
  $strap->dump_verbose_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1611	1723	
==>'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1611	1723	
==>'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1611	1723	
==>'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2997	3090	
==>rmal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2997	3090	
==>rmal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2997	3090	
==>rmal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6944	7035	
==>@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6944	7035	
==>@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6944	7035	
==>@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	614	734	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	614	734	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	614	734	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5319	5530	
==>$name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5319	5530	
==>$name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5319	5530	
==>$name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2393	2535	
==>";       
    } 
    
    $SEEN{$class} = 1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_no <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	119	241	
==>{
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6973	7076	
==>nd return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17076	17245	
==>> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17076	17245	
==>> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17076	17245	
==>> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5096	5198	
==>tion (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This ro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5096	5198	
==>tion (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7293	7395	
==>tion (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This ro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	437	541	
==>($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8488	8590	
==>span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8488	8590	
==>span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.spa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	945	1072	
==>($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	945	1072	
==>($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	297	409	
==>Emitter::Rule::Perl5::Ratchet;
use Pugs::Compiler::RegexPerl5;

use Data::Dumper;

sub new { $_[0] }

sub compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	495	620	
==>ars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	495	620	
==>ars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	495	620	
==>ars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3173	3276	
==>rrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3173	3276	
==>rrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3173	3276	
==>rrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35947	36045	
==>on tuple values are aligned and merged.  The heading
of the new relation is the union of the invoca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40497	40595	
==>on tuple values are aligned and merged.  The heading
of the new relation is the union of the invoca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40111	40209	
==>on tuple values are aligned and merged.  The heading
of the new relation is the union of the invoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2177	2318	
==>SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2177	2318	
==>SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2524	2665	
==>SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1068	1168	
==>$js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1068	1168	
==>$js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1068	1168	
==>$js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2242	2345	
==>il recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2242	2345	
==>il recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2242	2345	
==>il recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6446	6591	
==>turn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6446	6591	
==>turn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6446	6591	
==>turn $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5047	5139	
==>ou should use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5047	5139	
==>ou should use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

T <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8003	8122	
==>$thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	36	136	
==>$.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empt <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	36	136	
==>$.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6515	6618	
==>_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6515	6618	
==>_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6515	6618	
==>_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1411	1525	
==>1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1411	1525	
==>1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1411	1525	
==>1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15618	15738	
==>.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19095	19215	
==>.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18547	18667	
==>.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26337	26433	
==>.  The new Relation has all
of the tuples of the original (or rather, the corresponding projectio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30889	30985	
==>.  The new Relation has all
of the tuples of the original (or rather, the corresponding projectio <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6665	6754	
==>l(ws(C))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1751	1875	
==>Utils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($fil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1632	1723	
==>Utils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4386	4490	
==>nstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4386	4490	
==>nstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4386	4490	
==>nstant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3712	3802	
==>Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3712	3802	
==>Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3712	3802	
==>Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns= <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12583	12682	
==>such as beats per minute, 
wags per second, or holidays per month.

It is also used when the objects <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12583	12682	
==>such as beats per minute, 
wags per second, or holidays per month.

It is also used when the objects <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	421	557	
==>ee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	421	557	
==>ee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	421	557	
==>ee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2341	2444	
==>rgs.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2341	2444	
==>rgs.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2341	2444	
==>rgs.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1212	1310	
==>* Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1212	1310	
==>* Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1212	1310	
==>* Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations su <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6657	6753	
==>o overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6657	6753	
==>o overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8854	8950	
==>o overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific details <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16915	17006	
==>ake_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16915	17006	
==>ake_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16915	17006	
==>ake_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6913	7062	
==>.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_pa <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6913	7062	
==>.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_pa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3403	3537	
==>eral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18756	18861	
==>e> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18756	18861	
==>e> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21431	21517	
==>e float_min_offset substrs->data[1].min_offset
 #define float_max_offset substrs->data[ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	474	611	
==>}
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the keys in the meta info
    value is a regex, compiled wit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10997	11095	
==>ss $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(St <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10997	11095	
==>ss $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(St <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4815	4944	
==>( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4674	4803	
==>( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	84	181	
==>piler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our @EXPORT_OK = qw(rule);

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5802	5935	
==>:filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Ca <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5802	5935	
==>:filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Ca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4589	4677	
==>ations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_) <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6702	6854	
==>(=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms| <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6759	6911	
==>(=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms| <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1674	1792	
==>turn;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error("Package '". $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20197	20288	
==>x1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20197	20288	
==>x1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20197	20288	
==>x1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3880	3989	
==>tion - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3880	3989	
==>tion - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3880	3989	
==>tion - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9493	9609	
==>"Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9493	9609	
==>"Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _ci <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1622	1718	
==>a.. their public equivalents live in Installation.pm
$config{'_meta_dir'}        = [ Path::Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2570	2660	
==>ce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2570	2660	
==>ce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2570	2660	
==>ce_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9666	9836	
==>1 while unlink $conf->bin_dir->file( $script );
            1 while unlink $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	141	278	
==>'$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	202	299	
==>..}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	202	299	
==>..}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4345	4445	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4345	4445	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4345	4445	
==>) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3119	3236	
==>0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3119	3236	
==>0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3119	3236	
==>0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @cla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5329	5479	
==>hild_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5329	5479	
==>hild_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	800	935	
==>fferent!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20340	20454	
==>: 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20340	20454	
==>: 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20340	20454	
==>: 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2805	2905	
==>ber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2805	2905	
==>ber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2805	2905	
==>ber(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2159	2282	
==>i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2159	2282	
==>i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2159	2282	
==>i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1355	1449	
==>upers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers->is_empty == $bit:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6204	6297	
==>oint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6204	6297	
==>oint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6204	6297	
==>oint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9311	9457	
==>> $inst_pkg );

        ### this package didn't provide any alternatives
        last LINKING unless $alt;
        
        ### XXX this should pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14274	14408	
==>1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14268	14402	
==>1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1774	1897	
==>od)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1774	1897	
==>od)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1774	1897	
==>od)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7527	7654	
==>op::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7720	7847	
==>op::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9184	9300	
==>e) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} else {
	    push(@names5,'$'.p6_mangl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	63	170	
==>head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	63	170	
==>head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1020	1132	
==>her)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1020	1132	
==>her)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1020	1132	
==>her)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21065	21228	
==>rams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43989	44135	
==>rams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13425	13560	
==>attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12157	12309	
==>ngth; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array au <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12157	12309	
==>ngth; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array au <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12157	12309	
==>ngth; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array au <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5153	5267	
==>ny( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8630	8744	
==>ny( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body = <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	123	220	
==>al interest, I've left this program pretty much
# unchanged from the original p5 Santa golf game o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1002	1101	
==>In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1002	1101	
==>In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1002	1101	
==>In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	972	1074	
==>etch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	972	1074	
==>etch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	972	1074	
==>etch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4424	4579	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4424	4579	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4424	4579	
==>ed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36587	36707	
==>ray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36587	36707	
==>ray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36587	36707	
==>ray = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6301	6445	
==>get so we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3462	3558	
==>-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3646	3742	
==>-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7764	7897	
==>my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7764	7897	
==>my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7764	7897	
==>my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35175	35298	
==>=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35175	35298	
==>=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35175	35298	
==>=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1102	1213	
==>und => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13666	13767	
==>disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13666	13767	
==>disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1057	1155	
==>, $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1057	1155	
==>, $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1057	1155	
==>, $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	131	268	
==>d)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	131	268	
==>d)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	131	268	
==>d)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	146	282	
==>= args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	146	282	
==>= args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	146	282	
==>= args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4143	4245	
==>|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4143	4245	
==>|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4143	4245	
==>|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1319	1425	
==>e access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1319	1425	
==>e access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1319	1425	
==>e access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1152	1263	
==>---
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1152	1263	
==>---
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1152	1263	
==>---
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4358	4504	
==>result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ if $result{ok}
        }
        el <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	680	798	
==>gesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule ano <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	680	798	
==>gesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule ano <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2863	3104	
==>ect';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2863	3104	
==>ect';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2863	3104	
==>ect';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5934	6062	
==>f $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5934	6062	
==>f $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16168	16266	
==>it more predictable.
    $results =~ s/\n+$//;
    $results =~ s/at\s+misctmp\d+\s+line/at - line/g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	8	117	
==>ay   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	8	117	
==>ay   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	8	117	
==>ay   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	639	753	
==>eturn if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struct;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	639	753	
==>eturn if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struct;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	639	753	
==>eturn if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $struct;
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3387	3480	
==>ds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3387	3480	
==>ds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3387	3480	
==>ds to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8801	8909	
==>"\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10546	10638	
==>$class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10546	10638	
==>$class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2571	2690	
==>i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2571	2690	
==>i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2571	2690	
==>i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6124	6371	
==>], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6588	6835	
==>], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18820	18919	
==>Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	583	769	
==>L2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	583	769	
==>L2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	583	769	
==>L2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15438	15643	
==>q 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
    my $blank = (' ' x 77);
    my $leader = "$te" . '.' x ($width - length($te));
    my $ml = "";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HAR <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8216	8330	
==>1]->type,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6879	7036	
==>rd => $/{'Pugs::Grammar::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Grammar::Term.bareword> 
            #    { retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1783	1894	
==>::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1783	1894	
==>::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13446	13580	
==>";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13446	13580	
==>";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13446	13580	
==>";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1336	1436	
==>LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1336	1436	
==>LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1336	1436	
==>LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  u <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7583	7686	
==>sechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basec <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7583	7686	
==>sechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5311	5416	
==>tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5311	5416	
==>tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5311	5416	
==>tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39831	39929	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39831	39929	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39831	39929	
==>UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	271	368	
==>options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	271	368	
==>options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	271	368	
==>options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4448	4559	
==>$sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4670	4781	
==>$sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	511	618	
==>re Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    Current directory is @{[Cwd::abs_pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3949	4052	
==>anslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3949	4052	
==>anslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::T <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	498	594	
==>iteral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	498	594	
==>iteral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9884	10000	
==>5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9884	10000	
==>5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9884	10000	
==>5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4262	4369	
==>f.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4262	4369	
==>f.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4262	4369	
==>f.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3531	3655	
==>$_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3531	3655	
==>$_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3531	3655	
==>$_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13762	13860	
==>_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13762	13860	
==>_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13762	13860	
==>_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2887	2987	
==>month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2887	2987	
==>month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10304	10416	
==>> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10304	10416	
==>> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1949	2055	
==>$self}[$start_index->to_native .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3835	3934	
==>2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3835	3934	
==>2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3835	3934	
==>2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1557	1662	
==>atch arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1545	1650	
==>atch arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	189	325	
==>ta::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1912	2042	
==>w(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1912	2042	
==>w(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6170	6279	
==>pt: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6170	6279	
==>pt: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6170	6279	
==>pt: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1823	2097	
==>bols:
    # (None Yet)

    # Attributes of every Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2590	2713	
==>nd ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && def <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2590	2713	
==>nd ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && def <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	82	216	
==>= URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	82	216	
==>= URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1287	1380	
==>\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<numbered_scalar_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8211	8361	
==>x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8211	8361	
==>x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8211	8361	
==>x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31031	31128	
==>< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

This program is free soft <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40071	40166	
==>Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Fou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40071	40166	
==>Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Fou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5010	5152	
==>sa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5010	5152	
==>sa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5010	5152	
==>sa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	668	773	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	668	773	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	668	773	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6152	6257	
==>eturn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9629	9734	
==>eturn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19521	19624	
==>>, etc.) were being returned as I<exact>
nodes instead of I<anyof_char> nodes when inside character clas <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4876	4981	
==>iff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4876	4981	
==>iff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
} <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	298	396	
==>.known_parsers = ();

	$dir //= catfile((splitpath(%*INC<XML/SAX.pm>))[1], 'SAX');
	$file //= $pars <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4407	4505	
==>Seq will finish, the Thunk will
finish, the stacks will be popped once more, and the whole AST is n <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1579	1674	
==>on composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< inf <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1579	1674	
==>on composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2098	2192	
==>pe=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2098	2192	
==>pe=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2098	2192	
==>pe=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && define <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3793	3912	
==>>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3793	3912	
==>>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5635	5732	
==>x:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5635	5732	
==>x:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5635	5732	
==>x:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infi <==
3	/Users/nnunley/pugs/util/func_refact.pl	1761	1865	
==>ext if $set->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Co <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1870	1968	
==>ame> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1870	1968	
==>ame> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3437	3566	
==>ller[0],
        file    => @caller[1],
        line    => @caller[2],
        subname => @caller[3],
        subtype => @caller[4 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	703	826	
==>n: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	703	826	
==>n: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4655	4770	
==>">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4655	4770	
==>">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4655	4770	
==>">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16440	16559	
==>ay to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyMod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16440	16559	
==>ay to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyMod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3423	3528	
==>anitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3423	3528	
==>anitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3423	3528	
==>anitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7214	7314	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7214	7314	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7214	7314	
==>ported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5820	5924	
==>eded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5820	5924	
==>eded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5820	5924	
==>eded from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1128	1226	
==>s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1128	1226	
==>s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1128	1226	
==>s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9784	9928	
==>do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6125	6269	
==>do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6974	7118	
==>do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6388	6515	
==>ly => 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{data} = $type;
    }
    else {
      $self->{type} = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2300	2420	
==>var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2300	2420	
==>var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2300	2420	
==>var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_2 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1369	1557	
==>constant IS_DIR         => sub { return 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7112	7204	
==>hod _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'L <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7112	7204	
==>hod _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5355	5471	
==>->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5355	5471	
==>->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5355	5471	
==>->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4317	4423	
==>pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4317	4423	
==>pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1167	1273	
==>pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1113	1263	
==>/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1113	1263	
==>/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1113	1263	
==>/) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7981	8121	
==>y $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7981	8121	
==>y $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7981	8121	
==>y $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3198	3321	
==>l::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3198	3321	
==>l::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if define <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	396	493	
==>ue to confusion between Perl and C";
	shift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_pat <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	111	202	
==>age Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename () <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	12	103	
==>age Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename () <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1763	1892	
==>Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1763	1892	
==>Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3929	4086	
==>for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq package_name <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6115	6218	
==>ethod  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6115	6218	
==>ethod  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1415	1532	
==>..
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1415	1532	
==>..
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1415	1532	
==>..
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31698	31793	
==>uples of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36248	36343	
==>uples of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35484	35579	
==>uples of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4529	4662	
==>',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac3 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4529	4662	
==>',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac3 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25586	25674	
==>,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11665	11781	
==>";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11665	11781	
==>";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11665	11781	
==>";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9244	9371	
==>rly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $sat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10721	10848	
==>rly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $sat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3156	3265	
==>c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9973	10066	
==>urns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=hea <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9973	10066	
==>urns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5909	6024	
==>lass, $Class, '... $Bar refs to metaclass');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14345	14455	
==>exe = $Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware of f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8545	8652	
==>ton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Object cannot call singleton met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1132	1262	
==>: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1132	1262	
==>: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6865	6988	
==>title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6865	6988	
==>title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	106	222	
==>ann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 3

## X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5159	5264	
==>efix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5159	5264	
==>efix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5159	5264	
==>efix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clo <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8443	8577	
==>font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10960	11071	
==>] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $progra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10954	11065	
==>] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $progra <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14926	15042	
==>c pos
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	839	932	
==>Ring elements of a constantly-transforming 
state table with each byte of plaintext or ciphert <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	839	932	
==>Ring elements of a constantly-transforming 
state table with each byte of plaintext or ciphert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12537	12651	
==>::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12537	12651	
==>::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12537	12651	
==>::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11177	11315	
==>.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.curr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11177	11315	
==>.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	749	873	
==>p,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	749	873	
==>p,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	749	873	
==>p,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXIC <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17187	17288	
==>Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(pl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31863	31957	
==>is multi-method is a generic binary relational operator that takes a single
Relation in its C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36413	36507	
==>is multi-method is a generic binary relational operator that takes a single
Relation in its C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3825	3938	
==>ts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESC <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3825	3938	
==>ts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5349	5462	
==>ts<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7015	7126	
==>eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3619	3730	
==>eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4468	4579	
==>eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5887	6029	
==>y $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5887	6029	
==>y $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5887	6029	
==>y $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3522	3638	
==>{
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can pr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3522	3638	
==>{
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4399	4513	
==>assertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # define a new metacha <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	935	1041	
==>^[Yy]/;
    $self->install_script($script_file);
}

sub install_script {
    my $self = shift;
    my $args <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	169	269	
==>ctored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	169	269	
==>ctored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1783	1910	
==>sion) returns Scalar
 multi sub  Perl6::List::reduce (Code $expression ; *@values) returns Scalar {
   my $res;
   for @values - <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7230	7351	
==>ct_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7230	7351	
==>ct_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	425	530	
==>ing
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	425	530	
==>ing
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	425	530	
==>ing
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods sh <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18438	18535	
==>ilure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18438	18535	
==>ilure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	652	774	
==>kemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->mak <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	553	675	
==>kemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->mak <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	470	566	
==>make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	683	799	
==>sa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	683	799	
==>sa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	683	799	
==>sa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1561	1670	
==>confess "could not find message ($message)";
    } => 'Dispatchable';
}

{
    package Dispatchable;
    sub i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10459	10552	
==>ng>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10459	10552	
==>ng>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4575	4688	
==>version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub pref <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9656	9752	
==>te, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9656	9752	
==>te, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39930	40060	
==>Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39930	40060	
==>Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39930	40060	
==>Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2490	2733	
==>ss->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessors( qw[available registered_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20620	20714	
==>xpanded again.

Every bit of the default process described above is overridable by
various meth <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20620	20714	
==>xpanded again.

Every bit of the default process described above is overridable by
various meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6354	6485	
==>turncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6354	6485	
==>turncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6354	6485	
==>turncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loc <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7786	7930	
==>][1] );
        }
        dbg "# Arguments: ", @args.elems;
        dbg "# Function:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        d <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5675	5785	
==>f;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUt <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5157	5267	
==>f;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7307	7443	
==>m, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7295	7431	
==>m, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6629	6737	
==>write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst->unregister( package => $inst_pkg );

=c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2828	2960	
==>am{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2828	2960	
==>am{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2828	2960	
==>am{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2614	2720	
==>ath if it exists.

Returns a true value on success, otherwise something false.

=cut

sub create {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22569	22660	
==>t the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22569	22660	
==>t the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2704	2828	
==>p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2704	2828	
==>p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2704	2828	
==>p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29445	29557	
==>@{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29445	29557	
==>@{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29445	29557	
==>@{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$se <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24502	24612	
==>as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !def <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7960	8050	
==>ls{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normaliz <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7960	8050	
==>ls{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normaliz <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	14	116	
==>s

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	14	116	
==>s

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15361	15459	
==>m as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15361	15459	
==>m as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entitie <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	754	863	
==>er('\a' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	33	134	
==>P::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANS <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	33	134	
==>P::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2894	3003	
==>er('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	925	1034	
==>er('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    retu <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2138	2245	
==>|= 'inc/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2737	2830	
==>sts, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2737	2830	
==>sts, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2303	2411	
==>my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2303	2411	
==>my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2303	2411	
==>my ($name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	154	268	
==>dBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	154	268	
==>dBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	154	268	
==>dBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Reble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20847	21115	
==>em, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20847	21115	
==>em, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20847	21115	
==>em, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9917	10033	
==>DENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9917	10033	
==>DENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9917	10033	
==>DENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4595	4716	
==>l || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4595	4716	
==>l || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4595	4716	
==>l || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    :: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6348	6442	
==>Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6348	6442	
==>Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26999	27108	
==>e usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26999	27108	
==>e usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Lo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20589	20696	
==>t) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat %d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18621	18794	
==>mar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18900	19073	
==>mar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1194	1294	
==>sitory dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_index' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4261	4363	
==>y(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4261	4363	
==>y(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4261	4363	
==>y(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19095	19203	
==>ror(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15516	15624	
==>ror(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4450	4546	
==>JECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4450	4546	
==>JECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1074	1180	
==>alue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ident <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1074	1180	
==>alue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ident <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1074	1180	
==>alue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ident <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7553	7738	
==>'  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3441	3535	
==>ll methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Withou <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3441	3535	
==>ll methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Withou <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	321	530	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	321	530	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1345	1462	
==>) {
                _('$.testplan' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests ));
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	663	762	
==>Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	663	762	
==>Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	663	762	
==>Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1732	1915	
==>vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1732	1915	
==>vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_ms <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14191	14293	
==>> $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14191	14293	
==>> $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	998	1101	
==>XPORT_OK = qw($verbose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEB <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15493	15574	
==>re_rewrite(Re0,Re).

%------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3050	3168	
==>(*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3050	3168	
==>(*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3050	3168	
==>(*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2616	2764	
==>eturn ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2616	2764	
==>eturn ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2616	2764	
==>eturn ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1683	1809	
==>ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1683	1809	
==>ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1683	1809	
==>ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1333	1477	
==>point");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1333	1477	
==>point");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1333	1477	
==>point");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13657	13820	
==>urn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{ta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9841	10004	
==>urn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10677	10840	
==>urn \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{ta <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15679	15774	
==>e.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an orde <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15679	15774	
==>e.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an orde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24528	24633	
==>which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29080	29185	
==>which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27956	28061	
==>which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5883	5992	
==>s3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5883	5992	
==>s3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5883	5992	
==>s3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4225	4332	
==>und_ceiling ( Num $x ) {
    my $x_round = ceil($x);

    return $x_round;
}

our Int multi Num::round_floor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	636	737	
==>r_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	636	737	
==>r_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4050	4144	
==>Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 MET <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4050	4144	
==>Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 MET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5574	5668	
==>Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 MET <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	632	724	
==>utoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	632	724	
==>utoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	632	724	
==>utoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5865	5969	
==>ributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5865	5969	
==>ributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5865	5969	
==>ributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2815	2925	
==>urn 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    lo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2815	2925	
==>urn 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    lo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6702	6807	
==>mb;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2002	2104	
==>@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2002	2104	
==>@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2002	2104	
==>@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10473	10584	
==>}
  }

If passed any other argument, it will warn that it is ignoring it.

The iterator will return undef when i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12502	12636	
==>ab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12502	12636	
==>ab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12502	12636	
==>ab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($cod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	933	1120	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	933	1120	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUIL <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	521	640	
==>econd #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year($year), : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1562	1692	
==>>elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1562	1692	
==>>elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1562	1692	
==>>elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5340	5456	
==>y $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2882	2998	
==>y $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3731	3847	
==>y $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2588	2690	
==>'t compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2588	2690	
==>'t compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2588	2690	
==>'t compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	341	460	
==>->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	341	460	
==>->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	341	460	
==>->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11276	11368	
==>e>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11276	11368	
==>e>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3259	3391	
==>f Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3259	3391	
==>f Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3259	3391	
==>f Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2334	2429	
==>t->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2334	2429	
==>t->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2334	2429	
==>t->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	488	610	
==>fix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{nam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1388	1505	
==>(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1388	1505	
==>(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	683	777	
==>ile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ ))->code <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2469	2592	
==>ig = get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "config_$ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2575	2696	
==>&& !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2575	2696	
==>&& !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9232	9341	
==>self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9232	9341	
==>self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9232	9341	
==>self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signatu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4149	4261	
==>dds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4149	4261	
==>dds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4229	4341	
==>dds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1158	1273	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1158	1273	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1158	1273	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10440	10559	
==>_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10440	10559	
==>_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        f <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7954	8042	
==>":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L).
p5_modifie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8468	8631	
==>le\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12380	12538	
==>le\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12380	12538	
==>le\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16953	17049	
==>able ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16953	17049	
==>able ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16953	17049	
==>able ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	264	366	
==>ate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlificatio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	264	366	
==>ate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlificatio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	264	366	
==>ate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlificatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5880	5997	
==>:unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5880	5997	
==>:unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5880	5997	
==>:unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3559	3739	
==>ew(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3559	3739	
==>ew(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                ret <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2749	2862	
==>xp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12874	12982	
==>ill alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12874	12982	
==>ill alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13626	13731	
==>) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13626	13731	
==>) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13626	13731	
==>) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { - <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8763	8860	
==>ethod is called automatically when 
# a subtree is added to a child array
method fix_depth ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8763	8860	
==>ethod is called automatically when 
# a subtree is added to a child array
method fix_depth ($self: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2385	2478	
==>erl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the version of a certain <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18197	18321	
==>plit (      Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $d <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4475	4605	
==>round floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15969	16063	
==>odules that use these compilation modules get compiled into some
altered form the first time th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15969	16063	
==>odules that use these compilation modules get compiled into some
altered form the first time th <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5859	5975	
==>ax};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_reason}) ) {
        $type = 'bailout';
        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	117	230	
==>RE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => su <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5665	5757	
==>racter  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\]> }
rule metacharacter { <[\{\}\[\]\(\)\^\$\.\|\* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1503	1628	
==>ned) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1503	1628	
==>ned) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1503	1628	
==>ned) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5021	5145	
==>> $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5214	5338	
==>> $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2439	2542	
==>$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1417	1516	
==>O - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1417	1516	
==>O - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1417	1516	
==>O - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	583	708	
==>pace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	583	708	
==>pace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	583	708	
==>pace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . ": <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7589	7745	
==>lse {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7589	7745	
==>lse {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15627	15716	
==>tionalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> <ShiftExpre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28876	28999	
==>me to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28876	28999	
==>me to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	243	354	
==>me to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3244	3357	
==>l(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3244	3357	
==>l(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3244	3357	
==>l(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1412	1511	
==>test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1470	1569	
==>test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16376	16472	
==>ling chars that match C</\n/>. In
either case, it returns the number of chars removed.

Note: Mos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7945	8072	
==>is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7945	8072	
==>is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7945	8072	
==>is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2277	2368	
==>ntrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2277	2368	
==>ntrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2277	2368	
==>ntrol:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5789	5911	
==>eturn unless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5605	5724	
==>eturn unless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9197	9396	
==>. $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12731	12829	
==>his function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12789	12887	
==>his function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2904	3020	
==>dd tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2904	3020	
==>dd tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4537	4626	
==>n { block => $<list> ,} }
RULE
*{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24010	24106	
==>are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28562	28658	
==>are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27393	27489	
==>are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2813	2924	
==>st::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2813	2924	
==>st::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2893	3004	
==>st::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12527	12638	
==>mmand} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12527	12638	
==>mmand} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1958	2086	
==>ar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	292	433	
==>{pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	292	433	
==>{pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	292	433	
==>{pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12385	12478	
==>rce_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5028	5121	
==>rce_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8382	8587	
==>nf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            chomp;
            msg( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7227	7344	
==>=> chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7227	7344	
==>=> chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4126	4214	
==>:Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4126	4214	
==>:Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4126	4214	
==>:Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	561	664	
==>aram );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<den <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	561	664	
==>aram );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<den <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9487	9589	
==>r elem     = document.getElementById("details_"  + id),
          expander = document.getElementById("e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6830	6961	
==>);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 | <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6830	6961	
==>);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 | <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6830	6961	
==>);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3217	3327	
==>ub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3217	3327	
==>ub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3217	3327	
==>ub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11315	11433	
==>my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11315	11433	
==>my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11315	11433	
==>my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22743	22882	
==>{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23022	23161	
==>{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19593	19739	
==>t => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1234	1329	
==>mble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1234	1329	
==>mble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36091	36187	
==>w relation is the result of first pairwise-matching every
tuple of the invocant relation with eve <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40640	40736	
==>w relation is the result of first pairwise-matching every
tuple of the invocant relation with eve <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40254	40350	
==>w relation is the result of first pairwise-matching every
tuple of the invocant relation with eve <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1621	1710	
==>------------------------------------
## informational methods

method is_root returns Bool <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1621	1710	
==>------------------------------------
## informational methods

method is_root returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1120	1227	
==>t.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1120	1227	
==>t.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1120	1227	
==>t.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1620	1729	
==>Pos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1620	1729	
==>Pos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1620	1729	
==>Pos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3743	3859	
==>O - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3743	3859	
==>O - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3743	3859	
==>O - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3908	4008	
==>dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3908	4008	
==>dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3908	4008	
==>dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use stri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1298	1427	
==>$self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{code} = eval 
        $self->{perl5};
    carp "E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12845	12977	
==>non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12845	12977	
==>non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12845	12977	
==>non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1792	1934	
==>s not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1792	1934	
==>s not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1792	1934	
==>s not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10084	10199	
==>atch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10084	10199	
==>atch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10084	10199	
==>atch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	875	991	
==>uch {
    # XXX: *ugly* hack! ghc doesn't spot that the include file was changed,
    #      so we need to mark as st <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	233	337	
==>erride
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buff <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	233	337	
==>erride
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buff <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15890	15989	
==>"open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15890	15989	
==>"open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4568	4658	
==>*{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1943	2071	
==>s_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1943	2071	
==>s_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1943	2071	
==>s_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3546	3659	
==>sion";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self- <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2589	2699	
==>sion";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3141	3249	
==>ple's attributes.
        # Note that it is valid for a Relation::Example to have zero attributes.
    has Se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10015	10194	
==>,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              des <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	579	746	
==>,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	579	746	
==>,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7992	8184	
==>t?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7992	8184	
==>t?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7992	8184	
==>t?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4413	4515	
==>(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4413	4515	
==>(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4413	4515	
==>(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1083	1180	
==>h/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3000 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1083	1180	
==>h/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3000 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1083	1180	
==>h/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40379	40494	
==>xed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40379	40494	
==>xed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40379	40494	
==>xed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unb <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1831	1950	
==>is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1831	1950	
==>is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4063	4164	
==>ion);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_token_mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3768	3873	
==>$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3768	3873	
==>$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3768	3873	
==>$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15147	15286	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15147	15286	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15147	15286	
==>eal with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	189	283	
==>onverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	189	283	
==>onverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	189	283	
==>onverted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlEx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	646	754	
==>gs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://ww <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	646	754	
==>gs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://ww <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	646	754	
==>gs[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://ww <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8440	8550	
==>ust the dependency line based on Cabal version
        if ($has_new_cabal) {
            s/hs-source-dir/hs-sou <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	972	1065	
==>::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved fr <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	972	1065	
==>::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1309	1406	
==>sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1309	1406	
==>sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1309	1406	
==>sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4046	4157	
==>{block}{$desc}\\texttt
#{$file
#}
#\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1787	1893	
==>t($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1787	1893	
==>t($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4288	4394	
==>d max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4288	4394	
==>d max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4288	4394	
==>d max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5717	5825	
==>DIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5717	5825	
==>DIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable fil <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8701	8801	
==>to end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11373	11488	
==>shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "exact";
  }

  sub data {
    my $self = shift;
    jo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2227	2330	
==>, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2227	2330	
==>, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7313	7408	
==>ance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7313	7408	
==>ance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7313	7408	
==>ance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	494	934	
==>9 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            4 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	494	934	
==>9 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            4 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	293	399	
==>nv/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub set { ${ $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1998	2115	
==>unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1998	2115	
==>unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1998	2115	
==>unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_pa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2988	3148	
==>'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4252	4412	
==>'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10068	10162	
==>ture( '$_[0]', \\&{'$name'} )\n";
}
sub node::non_capturing_subrule {
    return "$_[1] \\&{'$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	11	115	
==>t.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	11	115	
==>t.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	11	115	
==>t.
method exists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	135	236	
==>TORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.ou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33667	33761	
==>entioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38217	38311	
==>entioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36207	36295	
==>MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36207	36295	
==>MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3836	3954	
==>} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3836	3954	
==>} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3836	3954	
==>} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12338	12444	
==>_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12338	12444	
==>_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12338	12444	
==>_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1148	1273	
==>ivlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $fu <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1148	1273	
==>ivlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $fu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4415	4521	
==>$type) = @_;
	return $body;
}

sub symbolic_representation {
	my $self = shift;
	my $node = shift;

	$self- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6718	6819	
==>nd should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _hea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6718	6819	
==>nd should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _hea <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2245	2481	
==>=> [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3833	4069	
==>=> [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features <==
3	/Users/nnunley/pugs/t/packages/Test.pm	259	375	
==>turn My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my package My::Package { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21496	21594	
==>) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21496	21594	
==>) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21496	21594	
==>) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4873	4988	
==>rameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4873	4988	
==>rameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4873	4988	
==>rameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1300	1410	
==>scard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1300	1410	
==>scard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1300	1410	
==>scard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2808	2915	
==>o JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2808	2915	
==>o JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2808	2915	
==>o JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2259	2373	
==>mantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2259	2373	
==>mantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2259	2373	
==>mantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1472	1575	
==>w PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1472	1575	
==>w PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1472	1575	
==>w PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18741	18867	
==>LOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18741	18867	
==>LOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18741	18867	
==>LOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'clas <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3188	3296	
==>oad($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5394	5502	
==>oad($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16674	16867	
==>>new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2186	2279	
==>Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2186	2279	
==>Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9589	9735	
==>tr $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              numb <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1682	1818	
==>tr $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            numb <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1682	1818	
==>tr $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4723	4850	
==>ody = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4723	4850	
==>ody = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4723	4850	
==>ody = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4370	4491	
==>ole_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4370	4491	
==>ole_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4370	4491	
==>ole_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the s <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2972	3070	
==>Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2972	3070	
==>Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37062	37179	
==>array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37062	37179	
==>array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37062	37179	
==>array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2067	2200	
==>::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2067	2200	
==>::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2067	2200	
==>::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5326	5437	
==>iption>, from the
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5326	5437	
==>iption>, from the
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7523	7634	
==>iption>, from the
test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3103	3223	
==>%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_elem <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3103	3223	
==>%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_elem <==
3	/Users/nnunley/pugs/util/run-smoke.pl	683	781	
==>ation";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->lookup('sm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20248	20343	
==>the program package.  No
recompilation necessary.  This is something that end users could do,
al <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20248	20343	
==>the program package.  No
recompilation necessary.  This is something that end users could do,
al <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1986	2079	
==>eal implementation
consult a book, like Numerical Recipies.)  In particular, it suffers from
c <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1465	1617	
==>n 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for(m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38231	38345	
==>array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38231	38345	
==>array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38231	38345	
==>array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6159	6256	
==>{ return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6159	6256	
==>{ return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6159	6256	
==>{ return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17093	17231	
==>t;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9296	9398	
==>pe');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9296	9398	
==>pe');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12946	13080	
==>nit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Gra <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9909	10006	
==>ies(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); } <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9909	10006	
==>ies(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); } <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13065	13166	
==>ist :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpression>
    | <PropertyNameAndVal <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30740	30840	
==>wo parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30740	30840	
==>wo parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3968	4071	
==>pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3968	4071	
==>pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3968	4071	
==>pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11268	11392	
==>firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11268	11392	
==>firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11268	11392	
==>firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless def <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	653	763	
==>of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.004;
use strict 'vars';

use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2007	2110	
==>']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2007	2110	
==>']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	631	733	
==>ed = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	631	733	
==>ed = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	631	733	
==>ed = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2208	2338	
==>or my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2208	2338	
==>or my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my % <==
3	/Users/nnunley/pugs/util/package-osx.pl	4067	4164	
==>erl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1011	1109	
==>t is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These metho <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1011	1109	
==>t is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These metho <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	589	685	
==>uire::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotator <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16763	16860	
==>N

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16763	16860	
==>N

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16763	16860	
==>N

This module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	269	400	
==>$_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	269	400	
==>$_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	269	400	
==>$_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	712	884	
==>butes of every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29970	30105	
==>= %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29970	30105	
==>= %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29970	30105	
==>= %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9031	9199	
==>, \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fina <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9866	10034	
==>, \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fina <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11195	11292	
==>tadata removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_alternative( package => <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	217	312	
==>Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(templa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	217	312	
==>Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(templa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2328	2449	
==>hority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2328	2449	
==>hority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2328	2449	
==>hority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	443	575	
==>ef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	443	575	
==>ef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	443	575	
==>ef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9362	9497	
==>ch = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9350	9485	
==>ch = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20501	20592	
==>my $val = $dir_index->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1129	1225	
==>our $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# tempora <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1710	1802	
==>$module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1710	1802	
==>$module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7526	7635	
==>- any warnings or errors will be determined during this
initial pass.

=head3 Fatal Errors

B<If there is a co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22650	22739	
==>::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Comma <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22650	22739	
==>::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4450	4602	
==>ef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4450	4602	
==>ef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4450	4602	
==>ef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12011	12131	
==>cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12011	12131	
==>cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or m <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	247	339	
==>porter 'import';
our @EXPORT=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --cflag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3028	3132	
==>.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3028	3132	
==>.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3028	3132	
==>.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20631	20746	
==>}dubious\n\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    prin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37938	38030	
==>t_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
strin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37938	38030	
==>t_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	411	516	
==>Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	411	516	
==>Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	411	516	
==>Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15418	15589	
==>$::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15418	15589	
==>$::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15418	15589	
==>$::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	897	1014	
==>> 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	897	1014	
==>> 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1399	1519	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1399	1519	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1399	1519	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14323	14454	
==>r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discard <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17800	17931	
==>r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discard <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17216	17347	
==>r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discard <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12343	12550	
==>ate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12343	12550	
==>ate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12343	12550	
==>ate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13902	14067	
==>ays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13902	14067	
==>ays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13902	14067	
==>ays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6489	6584	
==>base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_dire <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6489	6584	
==>base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_dire <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	681	784	
==>odel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	681	784	
==>odel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	681	784	
==>odel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine glo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2029	2117	
==>->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2029	2117	
==>->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2029	2117	
==>->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('E <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9287	9387	
==>e_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_asser <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9287	9387	
==>e_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_asser <==
3	/Users/nnunley/pugs/util/package-osx.pl	6138	6235	
==>verview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local/man/m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23513	23666	
==>_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23513	23666	
==>_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23513	23666	
==>_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7788	7890	
==>se Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	29	123	
==>se Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	29	123	
==>se Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16393	16486	
==>optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16393	16486	
==>optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attri <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5075	5203	
==>my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TO <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5075	5203	
==>my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1523	1679	
==>>{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1523	1679	
==>>{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1523	1679	
==>>{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1090	1228	
==>1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp 'name'         \n" .
        "\t{ \$_[0]->{out} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6896	6996	
==>st like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6660	6757	
==>st like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15631	15744	
==>tr $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15631	15744	
==>tr $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10314	10445	
==>ading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	112	227	
==>m'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	112	227	
==>m'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1551	1647	
==>on or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to des <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1551	1647	
==>on or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to des <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10232	10325	
==>\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char_class(class_pos(space <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2876	2993	
==>/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2876	2993	
==>/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2876	2993	
==>/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1733	1833	
==>self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1733	1833	
==>self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1733	1833	
==>self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7071	7168	
==>ed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7071	7168	
==>ed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7071	7168	
==>ed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2305	2410	
==>ld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2305	2410	
==>ld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2305	2410	
==>ld autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2369	2516	
==>ot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2369	2516	
==>ot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2369	2516	
==>ot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	454	559	
==>::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	454	559	
==>::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	454	559	
==>::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTAN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9901	10004	
==>subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $na <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1834	1931	
==>her good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=h <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1834	1931	
==>her good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2017	2121	
==>ORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2017	2121	
==>ORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2017	2121	
==>ORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1757	1865	
==>iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1757	1865	
==>iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1757	1865	
==>iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11494	11619	
==>root, the install location
        @inc = grep !/perl_root/i, @inc;

    } elsif ( $self->{_is_win32} ) {
        # Lose any t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	533	639	
==>_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	533	639	
==>_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1080	1178	
==>es the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search p <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1080	1178	
==>es the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	534	628	
==>E')->code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8061	8223	
==>re AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4421	4583	
==>re AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5270	5432	
==>re AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	717	844	
==>e the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	717	844	
==>e the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	717	844	
==>e the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9800	9938	
==>= $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9800	9938	
==>= $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9800	9938	
==>= $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4219	4381	
==>ired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4219	4381	
==>ired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4219	4381	
==>ired : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9844	9966	
==>e,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9844	9966	
==>e,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	983	1103	
==>e is unsafe {
        # say "e:args:" ~ @args.perl; # XXX delme
        Pugs::Internals::exec(@args[0], Bool::True, @args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5271	5454	
==>{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' 
                || $ast->{stmt} eq 'method') {
                $t = [ 'SUB' => $ast ]
            }
            elsif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31923	32021	
==>wants it shown to the user, the main program would check each
of the 3 Template module sets in turn <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31923	32021	
==>wants it shown to the user, the main program would check each
of the 3 Template module sets in turn <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4223	4323	
==>o 
parameters for block size and so on; see the cipher module's documentation for 
details.  The C<mo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4223	4323	
==>o 
parameters for block size and so on; see the cipher module's documentation for 
details.  The C<mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2376	2517	
==>'t print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        j <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2376	2517	
==>'t print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        j <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2376	2517	
==>'t print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	100	205	
==>ay(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	100	205	
==>ay(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	100	205	
==>ay(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17255	17347	
==>n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17255	17347	
==>n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17255	17347	
==>n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6468	6608	
==>se, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6468	6608	
==>se, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6468	6608	
==>se, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4284	4403	
==>bj->available( \@avail );

        }
  
        return $obj;
    }
}

=head2 $inst_pkg = $inst->is_installed( package => <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	84	194	
==>$Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	84	194	
==>$Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1401	1534	
==>> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1401	1534	
==>> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1401	1534	
==>> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8472	8639	
==>";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12384	12546	
==>";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12384	12546	
==>";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37923	38021	
==>ple that has the same heading and
whose body contains all of the tuples that are in the invocant Re <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	792	887	
==>..} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	792	887	
==>..} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6493	6606	
==>nst_pkg );

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $inst_pkg ] ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	428	528	
==>ompiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do give <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	428	528	
==>ompiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do give <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7338	7450	
==>$n2_32;
    return $Result4;
}

# 9.7
multi sub ToUint16(JSX::Value $v) {
    use Math qw(sign floor abs);
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3151	3257	
==>sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3151	3257	
==>sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3151	3257	
==>sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	613	797	
==>ndency_satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # meta dir
$Root           = $Cwd . ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8506	8609	
==>y span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `ne <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8506	8609	
==>y span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1538	1641	
==>tring(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1538	1641	
==>tring(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1538	1641	
==>tring(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S" <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13809	13962	
==>do;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $skip =~ /^Skip/i;
            }

            $self->{ski <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14751	14850	
==>ed to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

O <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14809	14908	
==>ed to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14010	14158	
==>> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14010	14158	
==>> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14010	14158	
==>> sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	447	659	
==>@s ) . 
                            "$tab )\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17620	17716	
==>ules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17620	17716	
==>ules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3977	4101	
==>aram{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3977	4101	
==>aram{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3977	4101	
==>aram{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	994	1091	
==>relude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	994	1091	
==>relude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	994	1091	
==>relude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1386	1490	
==>code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1386	1490	
==>code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->c <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	420	512	
==>ss" });
Has($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has($?CLASS, "sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4704	4797	
==>Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8181	8274	
==>Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9843	9931	
==>se(1,undef,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pai <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13920	14026	
==>(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15515	15611	
==>rns Bool;

Because these functions will be mutually recursive, they will easily be
able handle ar <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15573	15669	
==>rns Bool;

Because these functions will be mutually recursive, they will easily be
able handle ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11637	11727	
==>oin(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11637	11727	
==>oin(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11637	11727	
==>oin(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6501	6621	
==>{ $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6501	6621	
==>{ $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6501	6621	
==>{ $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4312	4435	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4312	4435	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4312	4435	
==> Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1714	1818	
==>en_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP_PR <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2680	2777	
==>ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2680	2777	
==>ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13764	13886	
==>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13764	13886	
==>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13764	13886	
==>unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7306	7422	
==>_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7306	7422	
==>_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7306	7422	
==>_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1820	1944	
==>be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1820	1944	
==>be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1820	1944	
==>be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	175	287	
==>led into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	175	287	
==>led into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	175	287	
==>led into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2629	2743	
==>ispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    op <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1292	1394	
==>returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1292	1394	
==>returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!membe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2882	2976	
==>ludes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep:{ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2882	2976	
==>ludes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep:{ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2074	2166	
==>Cameron for his "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1353	1473	
==>>nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1353	1473	
==>>nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1353	1473	
==>>nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        el <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10283	10470	
==>->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12897	12990	
==>nder perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12897	12990	
==>nder perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
enti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1394	1487	
==>_RBRACE => --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => --$ENUM, 'Refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17212	17353	
==>__('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17212	17353	
==>__('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17212	17353	
==>__('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14183	14289	
==>{
	my $f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11304	11407	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_E <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11304	11407	
==>'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13264	13376	
==>m object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13264	13376	
==>m object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13264	13376	
==>m object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1969	2098	
==>args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1969	2098	
==>args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1969	2098	
==>args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2968	3089	
==>al');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2968	3089	
==>al');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2968	3089	
==>al');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11291	11386	
==>- `union( $recurrence )`

Returns all elements both from this recurrence and from the given recu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11291	11386	
==>- `union( $recurrence )`

Returns all elements both from this recurrence and from the given recu <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	120	215	
==>mk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	120	215	
==>mk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1649	1755	
==>sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1649	1755	
==>sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1649	1755	
==>sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not impleme <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1572	1759	
==>eop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2195	2311	
==>r - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2335	2451	
==>r - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7887	8133	
==>if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7887	8133	
==>if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7887	8133	
==>if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2675	2787	
==>+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2675	2787	
==>+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2675	2787	
==>+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>» <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8362	8464	
==>ractical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8362	8464	
==>ractical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()` <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1795	1894	
==>{
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub literal_v <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	69	170	
==>strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/stu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8126	8226	
==>!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: I <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8126	8226	
==>!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: I <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1120	1229	
==>= \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1120	1229	
==>= \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26201	26301	
==>xample Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1739	1904	
==>i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1739	1904	
==>i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1739	1904	
==>i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4000	4126	
==>incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4000	4126	
==>incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4590	4716	
==>incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3343	3438	
==>r ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenam <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3343	3438	
==>r ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17014	17104	
==>lasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17014	17104	
==>lasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17014	17104	
==>lasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9259	9415	
==>o ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9259	9415	
==>o ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9259	9415	
==>o ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15641	15768	
==>_MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15641	15768	
==>_MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15641	15768	
==>_MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %s <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	236	354	
==>rs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $. <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	236	354	
==>rs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15604	15720	
==>t know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50492	50644	
==>label
        symbol->new('identifier'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16927	17056	
==>) if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    no strict;
    $$meta;
}
sub set_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17307	17402	
==>ue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17307	17402	
==>ue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17307	17402	
==>ue" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4992	5101	
==>e => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ch <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38796	38892	
==>ble name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38796	38892	
==>ble name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1486	1624	
==>,
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for now
        set => "Se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5313	5428	
==>$tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5313	5428	
==>$tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	520	679	
==>+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unles <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9820	9923	
==>od finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @ta <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9820	9923	
==>od finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3751	3854	
==>!!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3751	3854	
==>!!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3751	3854	
==>!!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9428	9603	
==>ng ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12905	13080	
==>ng ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The headin <==
3	/Users/nnunley/pugs/util/importgraph.pl	34	128	
==>importgraph.pl [--layout=neato]
# produces importgraph.ps in the current directory
# it expects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1047	1151	
==>inds along the way into new
namespaces. This is typically useful when your object belongs to a
package th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1047	1151	
==>inds along the way into new
namespaces. This is typically useful when your object belongs to a
package th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1047	1151	
==>inds along the way into new
namespaces. This is typically useful when your object belongs to a
package th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	216	331	
==>? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	216	331	
==>? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	216	331	
==>? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	942	1034	
==>IL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	942	1034	
==>IL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5953	6050	
==>r => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5953	6050	
==>r => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5953	6050	
==>r => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8096	8279	
==>arn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8096	8279	
==>arn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8096	8279	
==>arn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48433	48518	
==>dule->send('superclasses' => list->new($::Package));


$::Module->send('add_attribute' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4273	4352	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4273	4352	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:1 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2150	2315	
==>>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2150	2315	
==>>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2217	2337	
==>namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2217	2337	
==>namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2217	2337	
==>namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12362	12531	
==>t')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12362	12531	
==>t')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25372	25469	
==>ment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25372	25469	
==>ment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key <==
3	/Users/nnunley/pugs/util/package-osx.pl	6874	6971	
==>iew::Variable.3pm
        /usr/local/man/man3/Perl6::Perl5::Differences.3
        /usr/local/man/m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13013	13125	
==>[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13013	13125	
==>[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13013	13125	
==>[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1233	1345	
==>elf->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1233	1345	
==>elf->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39408	39517	
==>ngth, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39408	39517	
==>ngth, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39408	39517	
==>ngth, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4419	4528	
==>print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4641	4750	
==>print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20166	20258	
==>ss_neg(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_neg(X),C), !.
rm(eos,         [],[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5275	5412	
==>es;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5275	5412	
==>es;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3876	3986	
==>ad>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3876	3986	
==>ad>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3876	3986	
==>ad>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11344	11442	
==>>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11344	11442	
==>>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MI <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	519	615	
==>s;
use Test::TAP::Model;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	269	387	
==>_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	269	387	
==>_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	269	387	
==>_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10174	10307	
==>ze =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10174	10307	
==>ze =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10174	10307	
==>ze =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13585	13753	
==>"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9769	9937	
==>"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10605	10773	
==>"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	819	911	
==>DTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	819	911	
==>DTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	819	911	
==>DTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	686	800	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	686	800	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	686	800	
==>$v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6493	6596	
==>less.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6493	6596	
==>less.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6493	6596	
==>less.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3426	3557	
==>my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1784	1915	
==>my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2564	2695	
==>my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15898	15999	
==>class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15898	15999	
==>class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15898	15999	
==>class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7752	7858	
==>_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$hav <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7752	7858	
==>_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$hav <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7752	7858	
==>_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1520	1665	
==>) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1520	1665	
==>) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1520	1665	
==>) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	441	552	
==>UMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTable 
    white <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1948	2053	
==>ta);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callbac <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1948	2053	
==>ta);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callbac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12777	12895	
==>th;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12777	12895	
==>th;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	90	216	
==>urns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_d <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	90	216	
==>urns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	167	335	
==>r(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	167	335	
==>r(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	167	335	
==>r(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3067	3237	
==>size = $idx + 1;
                if ($self->array_fetchSize < $size){
                    $self->array_storeSize($size);
                }
            },

            'arr <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	877	971	
==>l C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	877	971	
==>l C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11174	11304	
==>ly => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3559	3678	
==>'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3559	3678	
==>'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3559	3678	
==>'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'meth <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	383	489	
==>DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
} <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	383	489	
==>DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15472	15573	
==>wever, attempting to stuff something into
the string at a higher level that doesn't map to the lower l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2329	2451	
==>dn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2329	2451	
==>dn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2329	2451	
==>dn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  retur <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16405	16576	
==>];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            S <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20831	21002	
==>];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            S <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20787	20914	
==>> ide("x"),
			),
			param => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "length' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1513	1634	
==>calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1513	1634	
==>calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1513	1634	
==>calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify la <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10273	10380	
==>vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $E <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10273	10380	
==>vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $E <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20211	20307	
==>bleDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12.2
      <VariableDeclaratio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	141	238	
==>der';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	141	238	
==>der';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	141	238	
==>der';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	14	107	
==>s::Grammar::Circumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10015	10104	
==>$self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns In <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10015	10104	
==>$self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3848	3948	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &redu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3848	3948	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &redu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3848	3948	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &redu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1173	1287	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1173	1287	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1173	1287	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4603	4851	
==>name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" . <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9800	10027	
==>App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	105	223	
==>-- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	105	223	
==>-- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	105	223	
==>-- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16355	16472	
==>SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB ga <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16355	16472	
==>SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB ga <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16355	16472	
==>SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB ga <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2575	2676	
==>f.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2575	2676	
==>f.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2575	2676	
==>f.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	996	1112	
==>rs = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	996	1112	
==>rs = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	300	400	
==>stPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	300	400	
==>stPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	300	400	
==>stPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pu <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16390	16547	
==>tr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20816	20973	
==>tr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22276	22392	
==>m 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('id'),
    # metho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10008	10114	
==>an0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10008	10114	
==>an0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2486	2776	
==>k(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                S <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	189	283	
==>parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#inclu <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	342	436	
==>parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#inclu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13288	13407	
==>{
	    warn "test.pl had problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_sep};
	}

	my <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1661	1776	
==>et1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1661	1776	
==>et1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7623	7722	
==>index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile($output_dir, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38107	38195	
==>C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38107	38195	
==>C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1606	1709	
==>ent variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a n <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1606	1709	
==>ent variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	705	828	
==>hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->incre <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9366	9488	
==>s, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2830	2941	
==>est::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_erro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2830	2941	
==>est::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_erro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4354	4465	
==>est::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1598	1696	
==>> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1598	1696	
==>> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1598	1696	
==>> '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16481	16601	
==>class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16481	16601	
==>class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16481	16601	
==>class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLAS <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4310	4404	
==>pected lines from the previously run tests,
passing if both the diagnostics and output match ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4310	4404	
==>pected lines from the previously run tests,
passing if both the diagnostics and output match ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4390	4484	
==>pected lines from the previously run tests,
passing if both the diagnostics and output match ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11091	11258	
==>scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11091	11258	
==>scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11091	11258	
==>scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5982	6085	
==>ick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5982	6085	
==>ick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2824	2928	
==>$i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2824	2928	
==>$i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2824	2928	
==>$i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5089	5186	
==>=item B<length () returns num>

=item B<elem () returns num>

=item B<join (?str) returns str>

=i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17226	17320	
==>it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localization <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17226	17320	
==>it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localization <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8816	8938	
==>ests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	976	1090	
==>ests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	976	1090	
==>ests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	303	411	
==>ssible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	303	411	
==>ssible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28094	28187	
==>tten_polymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31253	31348	
==>] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mult <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31253	31348	
==>] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mult <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37491	37590	
==>, and the order of its arguments is not significant to the result;
the new Relation is the result of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42040	42139	
==>, and the order of its arguments is not significant to the result;
the new Relation is the result of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17847	17942	
==>peared in the character class.  The
character class C<[A-CB-E]> would have a character map of C< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	414	552	
==>eturn '$^O'       if $s eq '$*OS';  
    
    # special variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-z <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	761	868	
==>eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	761	868	
==>eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match} <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1367	1479	
==>et;
    for @array.keys -> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	204	308	
==>- a string to match

1 - an optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	193	294	
==>- a string to match
1 - an optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9057	9174	
==>b {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9057	9174	
==>b {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9057	9174	
==>b {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22619	22726	
==>EE = pop STACK;
  }

After the tree has been created, this key is deleted; this gives the
code a way to be s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15464	15570	
==>et.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15464	15570	
==>et.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4313	4448	
==>em );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimiz <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6168	6262	
==>str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6168	6262	
==>str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6168	6262	
==>str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14851	14956	
==>x) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14851	14956	
==>x) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14851	14956	
==>x) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4367	4498	
==>ithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status->{"skip"} = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6173	6303	
==>e);
}

sub get {
    my ($self, $name) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	656	863	
==>",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	656	863	
==>",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	656	863	
==>",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1780	1903	
==>X
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1780	1903	
==>X
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1780	1903	
==>X
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1013	1115	
==>rchy, reblessing objects that it finds along the way into new
namespaces. This is typically useful when <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1013	1115	
==>rchy, reblessing objects that it finds along the way into new
namespaces. This is typically useful when <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1013	1115	
==>rchy, reblessing objects that it finds along the way into new
namespaces. This is typically useful when <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14206	14299	
==>h->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14206	14299	
==>h->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14206	14299	
==>h->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root:: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2494	2646	
==>turn -1    };
   if $x > 0       { return  1    };
   if $x == 0      { return  0    };
   undef;
 }


 multi Math::Basic::srand ( Num $seed)
 {
     Pug <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	853	969	
==>ey eq 'Tuple'|'Relation'
            and .value.does(Relation::Heading|Relation::LaxAttrList))
    )
};

subtype Rela <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3853	3963	
==>o $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protoc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3716	3823	
==>o $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2412	2567	
==>ed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2412	2567	
==>ed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2412	2567	
==>ed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7156	7294	
==>thod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7156	7294	
==>thod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7156	7294	
==>thod or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8245	8381	
==>al to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8245	8381	
==>al to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8245	8381	
==>al to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i]        = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	259	347	
==>mmar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	259	347	
==>mmar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3277	3385	
==>f = shift;
    list->new(CORE::reverse(@{$self}));
}

## list iterators

sub each : method {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33119	33207	
==>n>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37669	37757	
==>n>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19369	19548	
==>[0]->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the top?
                # this is <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2017	2111	
==>pression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2017	2111	
==>pression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5218	5325	
==>lX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5218	5325	
==>lX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5218	5325	
==>lX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10127	10282	
==>param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10127	10282	
==>param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10127	10282	
==>param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	461	560	
==>}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	461	560	
==>}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	461	560	
==>}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	235	347	
==>nel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sen <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	235	347	
==>nel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sen <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3093	3198	
==>pen = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3093	3198	
==>pen = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9053	9176	
==>ding => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12530	12653	
==>ding => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11766	11889	
==>ding => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2611	2750	
==>},   
        class => sub { \&Point },        
    };
}

my $p = new Point(5, 6);
is($p->class, \&Point, '... got the right class name');
i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4142	4241	
==>e match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4142	4241	
==>e match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array re <==
3	/Users/nnunley/pugs/util/testgraph.pl	88	181	
==>mp Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2473	2581	
==>];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2473	2581	
==>];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2473	2581	
==>];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline! <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3515	3613	
==>ibutes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3515	3613	
==>ibutes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6618	6745	
==>here is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6618	6745	
==>here is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6618	6745	
==>here is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5469	5577	
==>sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5469	5577	
==>sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5469	5577	
==>sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3201	3321	
==>- everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3201	3321	
==>- everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3201	3321	
==>- everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9220	9316	
==>a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open" <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9220	9316	
==>a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1126	1284	
==>ll_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1126	1284	
==>ll_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1126	1284	
==>ll_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13012	13097	
==>me-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Tr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13012	13097	
==>me-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18635	18755	
==>lass invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18635	18755	
==>lass invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18635	18755	
==>lass invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38341	38494	
==>pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38341	38494	
==>pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38341	38494	
==>pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5638	5738	
==>">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5638	5738	
==>">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5638	5738	
==>">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1612	1714	
==>s qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1612	1714	
==>s qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	514	620	
==>----
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	514	620	
==>----
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --------- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9127	9227	
==>h = dirname($relative_file);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirnam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1038	1152	
==>->match($str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->match($str)   for 1..40},
        P6_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2714	2813	
==>ever)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2714	2813	
==>ever)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13612	13817	
==>m => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13612	13817	
==>m => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13612	13817	
==>m => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2881	3007	
==>COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2881	3007	
==>COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2881	3007	
==>COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9631	9728	
==>urns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns A <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9631	9728	
==>urns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns A <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16398	16485	
==>_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3002	3109	
==>hift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3002	3109	
==>hift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3002	3109	
==>hift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6048	6208	
==>_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lcon <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6048	6208	
==>_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lcon <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16178	16298	
==>tly.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1696	1805	
==>nctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1696	1805	
==>nctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6447	6556	
==>cat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	997	1092	
==>)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	997	1092	
==>)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6877	6971	
==>f = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::nullary->new("int");
	$self;
}


pac <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	49	142	
==>d from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	67	160	
==>d from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15402	15588	
==>join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18879	19065	
==>join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns R <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4666	4777	
==>(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unuse <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10312	10420	
==>_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13789	13897	
==>_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13070	13178	
==>_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1071	1163	
==>ef;

## ----------------------------------------------------------------------------
## Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1071	1163	
==>ef;

## ----------------------------------------------------------------------------
## Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1071	1163	
==>ef;

## ----------------------------------------------------------------------------
## Roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10046	10188	
==>e $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10046	10188	
==>e $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10046	10188	
==>e $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4537	4644	
==>xmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define yo <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	718	814	
==>odule.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
P <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	718	814	
==>odule.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8038	8216	
==>, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8038	8216	
==>, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8038	8216	
==>, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	636	782	
==>{ return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	636	782	
==>{ return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28331	28423	
==>but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32883	32975	
==>but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32011	32103	
==>but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12842	12994	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12842	12994	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12842	12994	
==>:WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	747	881	
==>e,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	747	881	
==>e,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	747	881	
==>e,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5631	5736	
==>=> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5631	5736	
==>=> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5631	5736	
==>=> Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	425	521	
==>s than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be comp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	425	521	
==>s than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36824	36962	
==>y $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36824	36962	
==>y $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36824	36962	
==>y $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15944	16066	
==>g _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15944	16066	
==>g _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15944	16066	
==>g _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18368	18474	
==>"loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18368	18474	
==>"loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	388	530	
==>sh    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$file },
    };
    
    check <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7080	7189	
==>son\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7080	7189	
==>son\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3714	3809	
==>multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:< <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3714	3809	
==>multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3347	3456	
==>elation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6824	6933	
==>elation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5781	5890	
==>elation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mappi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	46	146	
==>ental implementation of a p6 compiler
# 

# ***************
# This version of lrep only compiles Gram <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15706	15804	
==>ely).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15706	15804	
==>ely).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	985	1086	
==>lf = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest->add($c_code);
	my $sha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1659	1755	
==>e Body is just a structure with three node forms: Var

(variable lookup), App (application) and L <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1591	1686	
==>e Body is just a structure with three node forms: Var
(variable lookup), App (application) and L <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	812	926	
==>nd_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	812	926	
==>nd_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Op <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2276	2390	
==>) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimzed` which doesn't crea <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	865	971	
==>and($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = Fi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	798	895	
==>and($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = Fi <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9099	9222	
==>est,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
}

my $x = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10263	10376	
==>x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10263	10376	
==>x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11455	11550	
==>tion because it isolates the Role specifc
code to the class that consumed it.

----------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11455	11550	
==>tion because it isolates the Role specifc
code to the class that consumed it.

----------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11455	11550	
==>tion because it isolates the Role specifc
code to the class that consumed it.

----------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	23	141	
==>d($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	23	141	
==>d($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	23	141	
==>d($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7820	7938	
==>f ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7820	7938	
==>f ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7820	7938	
==>f ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	169	262	
==>w PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	169	262	
==>w PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	169	262	
==>w PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1332	1455	
==>s ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1332	1455	
==>s ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1332	1455	
==>s ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5693	5813	
==>ub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5751	5871	
==>ub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	127	230	
==>d.  A "look at what I'm up to".

It passes most (95%) of a perl 5.9 re test file (re_tests), but it's
re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6732	6830	
==>os:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confus <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6790	6888	
==>os:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4873	4970	
==>lessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4873	4970	
==>lessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4873	4970	
==>lessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29531	29630	
==>lit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34083	34182	
==>lit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33247	33346	
==>lit/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attributes, o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7977	8121	
==>_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7977	8121	
==>_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7977	8121	
==>_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	529	723	
==>required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3748	3852	
==>val { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5650	5754	
==>val { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	118	240	
==>= @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	118	240	
==>= @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	118	240	
==>= @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4797	4922	
==>e => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4797	4922	
==>e => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4797	4922	
==>e => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9605	9789	
==>!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $othe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3571	3680	
==>onpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args h <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3571	3680	
==>onpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29554	29684	
==>{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29554	29684	
==>{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29554	29684	
==>{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	46	145	
==>has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	46	145	
==>has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $ev <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5959	6054	
==>p::Parser - base class for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	905	1020	
==>\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1086	1201	
==>\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8979	9078	
==>, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8979	9078	
==>, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Ci <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	564	661	
==>US>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@debian.orgE<gt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1353	1450	
==>ions of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %stan <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1353	1450	
==>ions of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %stan <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11264	11360	
==>s:

=over 8

=item Comparator

A closure with arity of 2, which returns negative/zero/positive,
s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2762	2912	
==>g;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $self->pool,
            $self->index,
    );

    for my $dir (@ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	994	1094	
==>elf.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	994	1094	
==>elf.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4100	4199	
==>die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4100	4199	
==>die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4100	4199	
==>die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_S <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1361	1462	
==>: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1361	1462	
==>: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6130	6220	
==>ex: $!";
    $template = HTML::Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3161	3273	
==>ould be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3161	3273	
==>ould be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3161	3273	
==>ould be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	437	533	
==>s);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	437	533	
==>s);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	437	533	
==>s);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => su <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5575	5681	
==>ype object
# at this point it reblesses itself

sub new {
	my $class = shift;
	bless {
		instance => undef, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6226	6359	
==>warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6739	6872	
==>warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	135	236	
==>t 'vars';

my @scalar_keys = qw{
    name module_name abstract author version license
    distribution <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	605	740	
==>( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	605	740	
==>( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25406	25506	
==>item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit status, both C<$? E<g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4056	4176	
==>--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4056	4176	
==>--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4056	4176	
==>--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1495	1656	
==>RING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.qu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1495	1656	
==>RING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.qu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6668	6810	
==>opy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10919	11030	
==>mpted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10919	11030	
==>mpted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10919	11030	
==>mpted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1937	2099	
==>les ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1937	2099	
==>les ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1937	2099	
==>les ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13132	13302	
==>x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13132	13302	
==>x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13132	13302	
==>x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18885	19008	
==>$self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15306	15429	
==>$self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	305	400	
==>, and a type inferrencer

# the algorithm implemented is Hindley-Milner type inferrencing, as ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	788	910	
==>O_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	788	910	
==>O_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	788	910	
==>O_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_cla <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5924	6040	
==>nfinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5924	6040	
==>nfinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    me <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10975	11077	
==>sions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNumer <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4723	4999	
==>art =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4723	4999	
==>art =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17895	18010	
==>]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1059	1170	
==>ar ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1059	1170	
==>ar ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1059	1170	
==>ar ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9984	10104	
==>.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is ident <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13461	13581	
==>.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is ident <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12742	12862	
==>.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is ident <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1891	2035	
==>H();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1891	2035	
==>H();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1891	2035	
==>H();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12500	12626	
==>$key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12500	12626	
==>$key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12500	12626	
==>$key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9164	9343	
==>ength,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9164	9343	
==>ength,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9164	9343	
==>ength,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cst <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3999	4110	
==>Chars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #Sourc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4896	5032	
==>snegated and (length $initchar < 2))
        {
          goto term_literal;
        }
        $matchObj->{value} = $initchar;
        $ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1057	1153	
==>t("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1057	1153	
==>t("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7822	7923	
==>::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7880	7981	
==>::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36029	36125	
==>fmatch

Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	330	467	
==>'
%left   'infix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8344	8464	
==>block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8344	8464	
==>block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLA <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6084	6191	
==>k if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for re <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6142	6249	
==>k if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10423	10529	
==>ass_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W", !.

p6_char_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3373	3469	
==>s')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3373	3469	
==>s')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3373	3469	
==>s')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1224	1320	
==>d. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1224	1320	
==>d. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1224	1320	
==>d. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	346	453	
==>limit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	346	453	
==>limit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	346	453	
==>limit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3597	3804	
==>type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3597	3804	
==>type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3597	3804	
==>type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15203	15299	
==>isted in their Document's Root Nodes property; in a
manner of speaking, the Document itself is th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15203	15299	
==>isted in their Document's Root Nodes property; in a
manner of speaking, the Document itself is th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7899	8051	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7899	8051	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7899	8051	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	578	694	
==>property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	578	694	
==>property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	578	694	
==>property .FETCH() holding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2303	2417	
==>when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2303	2417	
==>when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1706	1819	
==>$cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1706	1819	
==>$cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1706	1819	
==>$cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2838	2954	
==>$name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2838	2954	
==>$name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2838	2954	
==>$name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	626	744	
==>abort - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever



Conti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10494	10612	
==>abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Conti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	599	714	
==>abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

Conti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25175	25317	
==>_attr(symbol->new('@:superclasses') => $e->get('?@superclasses')); 
                          # clear the MRO now
                          $e- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7036	7183	
==>y $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6800	6943	
==>y $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1002	1105	
==>[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1002	1105	
==>[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1047	1154	
==>t () {
    return %!attrs;
}

method export_attr_names of List of Relation::AttrName () {
    return %!attrs <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2906	3003	
==>ce => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2906	3003	
==>ce => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5713	5910	
==>e $?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	278	375	
==>efh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	278	375	
==>efh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2162	2295	
==>ds: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3527	3652	
==>ds: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency '$depends->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1264	1369	
==>tf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1264	1369	
==>tf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1264	1369	
==>tf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	250	349	
==>return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	250	349	
==>return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	250	349	
==>return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Cont <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35004	35097	
==>ion.  This method
degenerates into an C<intersection> if the two source headings are
identical <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39554	39647	
==>ion.  This method
degenerates into an C<intersection> if the two source headings are
identical <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18151	18556	
==>h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21628	22033	
==>h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21215	21620	
==>h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	256	350	
==>aram('action');
my %wiki      = evalfile("wiki.db");
my $wikiwords = rx:P5/\b([A-Z]\w+[A-Z]\w+) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3339	3425	
==>TTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3339	3425	
==>TTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HT <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	427	546	
==>te) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "( <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	427	546	
==>te) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	270	363	
==>OnPerl5::X1::Api::p6_initialize_package("main",'package');
    Perl6::Run::OnPerl5::X1::Prelud <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	971	1081	
==>undef
    return nil->new() unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8751	8852	
==>aram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8751	8852	
==>aram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8751	8852	
==>aram,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1819	1915	
==>itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1819	1915	
==>itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13869	13960	
==>]="0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4330	4454	
==>fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4330	4454	
==>fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4330	4454	
==>fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3594	3692	
==>s: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3594	3692	
==>s: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3594	3692	
==>s: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13766	13878	
==>Arguments>
    | <CallExpression> <Arguments>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpressi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11719	11835	
==>eason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2151	2257	
==>eason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2151	2257	
==>eason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2682	2781	
==>V{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2682	2781	
==>V{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2682	2781	
==>V{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5808	5947	
==>@params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5808	5947	
==>@params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5808	5947	
==>@params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2183	2295	
==>IL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.At <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2183	2295	
==>IL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.At <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2183	2295	
==>IL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.At <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9358	9481	
==>_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9551	9674	
==>_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" ) <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3355	3458	
==>re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ } @{ $Config{in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1295	1419	
==>> '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	462	565	
==>rt {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	462	565	
==>rt {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12960	13053	
==>are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argum <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12960	13053	
==>are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5263	5505	
==>key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5263	5505	
==>key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5263	5505	
==>key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	319	427	
==>$v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	319	427	
==>$v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	319	427	
==>$v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2063	2158	
==>Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2063	2158	
==>Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2063	2158	
==>Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6458	6580	
==>asses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6458	6580	
==>asses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6458	6580	
==>asses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1153	1249	
==>str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1153	1249	
==>str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1153	1249	
==>str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	189	323	
==>ol'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	189	323	
==>ol'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($clas <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1327	1456	
==>Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7850	7953	
==>ep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7850	7953	
==>ep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7850	7953	
==>ep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_ne <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6553	6671	
==>ontent_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6553	6671	
==>ontent_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	834	934	
==>ckage($cc->as_p5,'main');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n",numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1235	1331	
==>erning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1235	1331	
==>erning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1235	1331	
==>erning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::R <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	704	803	
==>></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	704	803	
==>></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3472	3566	
==>force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1959	2116	
==>elude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompili <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17290	17398	
==>(Scalar::Util::blessed($node)){
        if ($node->can("fmap")){
            my @gut =  $node->fmap(sub { $se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4552	4684	
==>ame eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # X <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4564	4696	
==>ame eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # X <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1825	1930	
==>l.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15543	15650	
==>_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15543	15650	
==>_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15543	15650	
==>_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9936	10085	
==>lice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9936	10085	
==>lice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9936	10085	
==>lice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4227	4341	
==>or a block";    
    my $list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10307	10420	
==>"<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>" <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10307	10420	
==>"<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2094	2255	
==>q 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2094	2255	
==>q 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2094	2255	
==>q 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1326	1439	
==>~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	346	459	
==>~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8802	8915	
==>~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5488	5602	
==>int encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5488	5602	
==>int encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5488	5602	
==>int encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5854	6050	
==>sh( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->fir <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5854	6050	
==>sh( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->fir <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5854	6050	
==>sh( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->fir <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7823	7933	
==>DDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21185	21280	
==>tc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acce <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21185	21280	
==>tc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14986	15086	
==>q "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14986	15086	
==>q "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14986	15086	
==>q "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12347	12496	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12347	12496	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12347	12496	
==>'isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'un <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8335	8434	
==>::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8335	8434	
==>::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	441	536	
==>aightforward, a more robust solution would be far more difficult.
# One basically has to reverse <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6752	6865	
==>alue::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clon <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6752	6865	
==>alue::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clon <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2210	2317	
==>.
#   * Perhaps define a macro gram ($name) { "rule $name :words" },
#     rather than having the clutter of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13978	14111	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13978	14111	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13978	14111	
==>cription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_val <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	2	111	
==>temp1.pl - Anwendung von temp
my $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	58	155	
==>h will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	58	155	
==>h will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7035	7133	
==>s (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7035	7133	
==>s (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7035	7133	
==>s (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array wil <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17246	17374	
==>gs) is primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2023	2132	
==>filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inh <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2023	2132	
==>filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6928	7079	
==>)->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6928	7079	
==>)->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6928	7079	
==>)->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7136	7262	
==>take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7136	7262	
==>take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7136	7262	
==>take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5044	5185	
==>e_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5044	5185	
==>e_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1092	1300	
==>($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1092	1300	
==>($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1092	1300	
==>($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	605	708	
==>:Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	605	708	
==>:Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	605	708	
==>:Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2320	2427	
==>:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Div <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2320	2427	
==>:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Div <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2320	2427	
==>:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Div <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16636	16752	
==>str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16636	16752	
==>str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16636	16752	
==>str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unbox <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11962	12057	
==>:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok = substr($X::str,$X::pos) =~ /\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33254	33344	
==>e aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37804	37894	
==>e aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-me <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3970	4161	
==>_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3692	3798	
==>tta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3692	3798	
==>tta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	486	675	
==>atch
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	401	590	
==>atch
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	489	678	
==>atch
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12575	12715	
==>ALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12575	12715	
==>ALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12575	12715	
==>ALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1654	1769	
==>. " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't h <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6314	6416	
==>epresenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6314	6416	
==>epresenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4106	4219	
==>Script contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4106	4219	
==>Script contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4106	4219	
==>Script contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF <==
3	/Users/nnunley/pugs/util/claim_drift.pl	363	466	
==>il/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep" <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7675	7777	
==>shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7675	7777	
==>shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17833	18014	
==>->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17833	18014	
==>->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17833	18014	
==>->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1314	1409	
==>ay, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1314	1409	
==>ay, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1314	1409	
==>ay, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1645	1780	
==>[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rule_name = "parse" if $_ == $#{$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17310	17401	
==>ocalization methodology that is described here, and hence provides these
benefits to develop <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17310	17401	
==>ocalization methodology that is described here, and hence provides these
benefits to develop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2168	2272	
==>. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2168	2272	
==>. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2168	2272	
==>. 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12868	13024	
==>->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12868	13024	
==>->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12868	13024	
==>->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	549	654	
==>urn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	549	654	
==>urn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	549	654	
==>urn sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1257	1365	
==>::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1257	1365	
==>::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<pa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15166	15271	
==>shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { Digest->compute($_) => $_ } $env <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16375	16482	
==>$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .pa <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2003	2095	
==>d2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2003	2095	
==>d2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14729	14911	
==>last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18206	18388	
==>last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17622	17804	
==>last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10808	10972	
==>O test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs addition
            # this addition p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5901	6031	
==>mar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5901	6031	
==>mar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3232	3332	
==>elf->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1082	1182	
==>elf->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4250	4340	
==>an use the
skeleton in util/smoker-example. Alternatively, say "--anonymous"
on the command <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	438	556	
==>ugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere wi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31002	31099	
==>its set. For maximum flexibility in their use, the full name of a module
consists of the two parts <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31002	31099	
==>its set. For maximum flexibility in their use, the full name of a module
consists of the two parts <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6438	6646	
==>$_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6438	6646	
==>$_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	94	205	
==>se Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pad;
    use base qw/Blondie::Map/;
}

sub find_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2135	2237	
==>ay is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2135	2237	
==>ay is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2135	2237	
==>ay is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $a <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	308	408	
==>s;
my @commits;
my @developers;
my %devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of "svn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9892	9998	
==>ontinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	327	429	
==>ontinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	327	429	
==>ontinuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16031	16170	
==>my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16031	16170	
==>my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16031	16170	
==>my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am l <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6689	6806	
==>plit(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = u <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6689	6806	
==>plit(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = u <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8180	8301	
==>@_;
    my $s;
    return '(undef)' if !defined $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19797	19892	
==>tion header that use the
"Basic Authentication Scheme".  In array context it will return two
val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19797	19892	
==>tion header that use the
"Basic Authentication Scheme".  In array context it will return two
val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4514	4611	
==>il{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - th <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4514	4611	
==>il{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - th <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4514	4611	
==>il{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13377	13508	
==>{
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13377	13508	
==>{
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13377	13508	
==>{
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5162	5268	
==>arts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5162	5268	
==>arts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5162	5268	
==>arts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2184	2331	
==>t',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' , <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26757	26853	
==>> do not match attribute names of the invocant
Relation.  This method has an alias named C<select <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31309	31405	
==>> do not match attribute names of the invocant
Relation.  This method has an alias named C<select <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4424	4526	
==>file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4424	4526	
==>file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9257	9382	
==>gify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9257	9382	
==>gify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9257	9382	
==>gify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6370	6490	
==>ub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6370	6490	
==>ub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23111	23208	
==>atile or persistent) and provide accessors to them.  The Relation
library provides full generic im <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10340	10436	
==>iner type (eg, hash vs array).  The deferred validations are performed
on demand at some time aft <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10340	10436	
==>iner type (eg, hash vs array).  The deferred validations are performed
on demand at some time aft <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11687	11779	
==>t_of_line([C|T]) --> [C], rest_of_line(T).
rest_of_line([]).


p6_octidecimal_escape_sequence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19815	19907	
==>_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19815	19907	
==>_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19815	19907	
==>_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24459	24553	
==>mmand to the server. The command is not modified by C<Net::IRC>,
aside from appending the corre <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24459	24553	
==>mmand to the server. The command is not modified by C<Net::IRC>,
aside from appending the corre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6482	6571	
==>eturn { sub_application_term => $() ,} }
RULE
*{'sub_application'} = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1208	1320	
==>REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1208	1320	
==>REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	33	139	
==>e strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	33	139	
==>e strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	33	139	
==>e strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	121	221	
==>Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	121	221	
==>Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	121	221	
==>Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4804	4959	
==>%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4804	4959	
==>%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4804	4959	
==>%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5461	5581	
==>a") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5461	5581	
==>a") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5461	5581	
==>a") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2103	2208	
==>pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2091	2196	
==>pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1536	1636	
==>lerance (how accurate the answer must be)
    fprime  - an exact first derivative of f (which Newton' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7674	7831	
==>boxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7674	7831	
==>boxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7674	7831	
==>boxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9431	9528	
==>re_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree, create an it <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5943	6042	
==>ec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5943	6042	
==>ec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22516	22612	
==>.return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	59	151	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1489	1618	
==>1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1477	1606	
==>1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5723	5840	
==>e'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6540	6647	
==>arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6540	6647	
==>arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6540	6647	
==>arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5912	6035	
==>0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolut <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16288	16400	
==>es it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum da <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20714	20826	
==>es it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum da <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	123	223	
==>cted set of results
# later it can be modifed to be somehow incorporated in the test suit

use File:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2039	2170	
==>elf;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2039	2170	
==>elf;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2039	2170	
==>elf;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	293	440	
==>};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	293	440	
==>};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2675	2770	
==>perl core.  There being no
documentation, one ends up reverse engineering perl source.

We basic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22480	22720	
==>, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22480	22720	
==>, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22480	22720	
==>, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NO <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3628	3745	
==>ion, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3628	3745	
==>ion, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8515	8609	
==>ract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8515	8609	
==>ract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta::M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3240	3358	
==>$/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3424	3542	
==>$/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimple <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	938	1045	
==>e reference type

=head1 METHODS

=over 4

=item B<new (~type) returns reference>

=item B<to_native () retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15271	15371	
==>join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15271	15371	
==>join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15271	15371	
==>join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1589	1721	
==>stant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1589	1721	
==>stant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1589	1721	
==>stant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	717	822	
==>)->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	717	822	
==>)->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	717	822	
==>)->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20423	20542	
==>lf["cutnum"] = $I0

    if self != "(" goto init
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5910	6024	
==>ally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5706	5815	
==>ally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23262	23363	
==>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identif <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	192	289	
==>d next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	192	289	
==>d next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32204	32301	
==>ically turned on for this object (for flag assertions
and C<(?:...)>).

=item raw

The raw represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2900	3009	
==>aram = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2900	3009	
==>aram = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2900	3009	
==>aram = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FE <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3785	3917	
==>$program);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/#g;
        p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32981	33080	
==>over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32981	33080	
==>over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9152	9293	
==>( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9152	9293	
==>( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9152	9293	
==>( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1023	1206	
==>ers,
                             # 2-way associations won't work without
                             # MM support (or proxy accessors)
                             # $self->rev_assoc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10195	10300	
==>);

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIP <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10195	10300	
==>);

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	351	451	
==>.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	351	451	
==>.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	351	451	
==>.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STD <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5898	6046	
==>); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5898	6046	
==>); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($con <==
3	/Users/nnunley/pugs/util/importgraph.pl	2031	2116	
==>k('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Progra <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4409	4578	
==>:$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4409	4578	
==>:$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24155	24243	
==>t(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

initialE(amat([],flgs(-,-,-,-,-,-,-,-,-, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	454	667	
==>rammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	454	667	
==>rammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       , <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1182	1287	
==>base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longme <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2752	2841	
==>set($self.members, $other.members);
}
method intersection($self: Set $other) returns Set { <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2752	2841	
==>set($self.members, $other.members);
}
method intersection($self: Set $other) returns Set { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2104	2257	
==>pen => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2104	2257	
==>pen => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18589	18717	
==>a {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($code);
    } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5872	6008	
==>tr { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5872	6008	
==>tr { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5872	6008	
==>tr { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29035	29129	
==>p zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33587	33681	
==>p zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32724	32818	
==>p zero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1226	1345	
==>LDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for W <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1226	1345	
==>LDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for W <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1226	1345	
==>LDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2052	2153	
==>IL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "META <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2052	2153	
==>IL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "META <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2052	2153	
==>IL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "META <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5538	5638	
==>om_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5538	5638	
==>om_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5538	5638	
==>om_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26006	26118	
==>ing renamed.  This method
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30558	30670	
==>ing renamed.  This method
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29533	29645	
==>ing renamed.  This method
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15151	15246	
==>he function signatures will likely look something
like this:

  multi sub is_deeply (Array @got, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15209	15304	
==>he function signatures will likely look something
like this:

  multi sub is_deeply (Array @got, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	962	1063	
==>d($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	962	1063	
==>d($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	962	1063	
==>d($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1092	1212	
==>r($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1924	2039	
==>r($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2064	2179	
==>r($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	838	956	
==>nction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	838	956	
==>nction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	838	956	
==>nction (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1946	2055	
==>expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1946	2055	
==>expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1946	2055	
==>expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	355	617	
==>f -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7029	7146	
==>r(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7029	7146	
==>r(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1255	1362	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1255	1362	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1255	1362	
==>ode $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$fi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1556	1667	
==>r = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1556	1667	
==>r = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1636	1747	
==>r = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9798	9898	
==>plement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9798	9898	
==>plement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3062	3174	
==>_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3062	3174	
==>_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3062	3174	
==>_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1585	1725	
==>_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1585	1725	
==>_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5402	5503	
==>,(shift()?1:0),@_) if $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return new_box <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1515	1616	
==>t :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1515	1616	
==>t :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4241	4333	
==>terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3290	3479	
==>,
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3290	3479	
==>,
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3290	3479	
==>,
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1109	1219	
==>draft.pod 8651.
type KeyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9262	9362	
==>andler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9262	9362	
==>andler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1284	1387	
==>sBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, colum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1284	1387	
==>sBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, colum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1284	1387	
==>sBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, colum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4649	4745	
==>).";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alread <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4649	4745	
==>).";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alread <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4649	4745	
==>).";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alread <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1249	1475	
==>$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1249	1475	
==>$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2792	2921	
==>_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2792	2921	
==>_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2792	2921	
==>_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retur <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15935	16041	
==>pile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2328	2434	
==>pile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3487	3603	
==>nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # / <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3487	3603	
==>nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # / <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24193	24289	
==>set of named attributes; all tuples in a Relation::Example are of the same
degree, and the attrib <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3148	3259	
==>{syncat} = PGE_OPTABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20726	20821	
==>:foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20726	20821	
==>:foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4756	4856	
==>a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4756	4856	
==>a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6280	6380	
==>a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	956	1076	
==>$grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^([\$|\@|\%]\*(?:(?:\:\:)?[_[:alnum:]]+ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	770	865	
==>an;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subcl <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	770	865	
==>an;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subcl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	513	678	
==>s

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	513	678	
==>s

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2242	2342	
==>ing with m and s.
# Match objects arent being created for capture groups which are never reached.
# N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9278	9395	
==>n_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9266	9383	
==>n_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5867	5973	
==>self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - bas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8476	8625	
==>d, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8476	8625	
==>d, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2668	2785	
==>to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2668	2785	
==>to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2668	2785	
==>to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1035	1129	
==>ression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1035	1129	
==>ression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	761	875	
==>{
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $stri <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	761	875	
==>{
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $stri <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1646	1765	
==>,
    ),
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirect_t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	351	446	
==>ame = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	351	446	
==>ame = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableNa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6479	6606	
==>ttr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6479	6606	
==>ttr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6479	6606	
==>ttr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_me <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14378	14581	
==>push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           type => "text/css", 
                                           href => "http://d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7497	7590	
==>t(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gram <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1322	1415	
==>t(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gram <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1605	1695	
==>oken>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nus <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1605	1695	
==>oken>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2966	3066	
==>Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2966	3066	
==>Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2966	3066	
==>Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12277	12385	
==>sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12277	12385	
==>sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12277	12385	
==>sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11355	11449	
==> $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11355	11449	
==> $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13296	13389	
==>ed on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1300	1413	
==>ED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1300	1413	
==>ED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1300	1413	
==>ED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

su <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14211	14305	
==>ements whose keys evaluate
C<$key ~~ any(@keytests)> as true are iterated.

What is returned at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9522	9612	
==>I SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9522	9612	
==>I SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9522	9612	
==>I SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_req <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36643	36736	
==>assumes that a Template corresponding to the Message could be
found using the Translator objec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36643	36736	
==>assumes that a Template corresponding to the Message could be
found using the Translator objec <==
3	/Users/nnunley/pugs/util/importgraph.pl	1917	2002	
==>_cluster('IMC', qr/^IMC\b/);
setup_cluster('RRegex', qr/^RRegex\b/);
setup_cluster('Em <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14419	14565	
==>ly_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14419	14565	
==>ly_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2922	3063	
==>st hook
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7587	7738	
==>efined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7587	7738	
==>efined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7587	7738	
==>efined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5962	6086	
==>(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_elemental(cap(X))              --> "(", !, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10633	10730	
==>ce set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10633	10730	
==>ce set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4963	5114	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = loca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4963	5114	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = loca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4963	5114	
==>SS
            local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2200	2307	
==>name;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2200	2307	
==>name;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2200	2307	
==>name;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20945	21042	
==>ur
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile base <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20945	21042	
==>ur
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile base <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19190	19282	
==>rnals::eval($code,$lang);
}


 multi Control::Basic::evalfile (Str $filename ; Grammar :$lang <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	375	483	
==>n is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	375	483	
==>n is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	375	483	
==>n is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { A <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1197	1320	
==>ively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1197	1320	
==>ively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chan <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1265	1364	
==>on is meant to show the power of Perl 6 defaults and
Currying in a real context.

The newton functio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4420	4511	
==>(or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string tha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4670	4761	
==>(or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2652	2795	
==>) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2652	2795	
==>) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2652	2795	
==>) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3343	3461	
==>y} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3343	3461	
==>y} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3343	3461	
==>y} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27922	28019	
==>ttrs> is empty, the output relation is
identical to the invocant.  This method will fail if any ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32474	32571	
==>ttrs> is empty, the output relation is
identical to the invocant.  This method will fail if any ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31566	31663	
==>ttrs> is empty, the output relation is
identical to the invocant.  This method will fail if any ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14902	15027	
==>n MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14902	15027	
==>n MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14902	15027	
==>n MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8127	8243	
==>, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8320	8436	
==>, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'gra <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3890	3994	
==>ew (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    method new ($.name, *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	81	194	
==>0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eventually be imp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	81	194	
==>0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eventually be imp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	81	194	
==>0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will eventually be imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36726	36854	
==>is is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36726	36854	
==>is is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36726	36854	
==>is is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6250	6397	
==>hc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn " <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	268	364	
==>o, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	268	364	
==>o, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18880	19087	
==>lf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18880	19087	
==>lf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18880	19087	
==>lf->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22273	22376	
==>"nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		id <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22465	22561	
==>you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22465	22561	
==>you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35214	35313	
==>hod is a generic binary relational operator that is identical
to C<join> except that this method wil <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39764	39863	
==>hod is a generic binary relational operator that is identical
to C<join> except that this method wil <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39324	39423	
==>hod is a generic binary relational operator that is identical
to C<join> except that this method wil <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25366	25464	
==>uch a system following the terms of the GPL for Rosetta and the licenses
of the other components co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25366	25464	
==>uch a system following the terms of the GPL for Rosetta and the licenses
of the other components co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20489	20607	
==>re"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	11	106	
==>kage Module::Install::Base;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16516	16626	
==>$xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16516	16626	
==>$xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16516	16626	
==>$xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16048	16199	
==>apture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16327	16478	
==>apture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1:: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16896	17000	
==>:Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2727	2821	
==>=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2727	2821	
==>=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3074	3168	
==>=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9173	9286	
==>ule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9173	9286	
==>ule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2056	2171	
==>le_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2056	2171	
==>le_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2056	2171	
==>le_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2530	2635	
==>)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2530	2635	
==>)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2530	2635	
==>)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32941	33118	
==>p_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32941	33118	
==>p_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32941	33118	
==>p_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8052	8180	
==>ub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8052	8180	
==>ub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8052	8180	
==>ub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	725	819	
==>output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	725	819	
==>output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2121	2303	
==>y $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1890	2067	
==>y $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1890	2067	
==>y $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	17	137	
==>SPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	17	137	
==>SPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	17	137	
==>SPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3603	3733	
==>e =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3603	3733	
==>e =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3603	3733	
==>e =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11480	11644	
==>s \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7762	7926	
==>s \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8596	8760	
==>s \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11182	11315	
==>ngify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11182	11315	
==>ngify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11182	11315	
==>ngify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6544	6657	
==>RO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6544	6657	
==>RO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6544	6657	
==>RO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':asc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3775	3905	
==>$path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(? <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3775	3905	
==>$path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(? <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7018	7123	
==>isy.  I'm working on it.

=cut

# Turns on autoflush for the handle passed
sub _autoflush {
    my $flushy <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8300	8416	
==>string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTM <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8300	8416	
==>string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTM <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23897	23996	
==>xample indicates a failure is to throw an exception;
most often this is due to invalid input.  If an <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14967	15078	
==>ize()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18444	18555	
==>ize()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17860	17971	
==>ize()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2838	3089	
==>n     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2747	2865	
==>elf->{dispatch}"->new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        go <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	923	1039	
==>elf->{dispatch}"->new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        go <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10007	10151	
==>e' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10007	10151	
==>e' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1615	1720	
==>rv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program and exits <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	962	1068	
==>oad it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	962	1068	
==>oad it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	962	1068	
==>oad it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2960	3084	
==>eturns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6437	6561	
==>eturns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5376	5500	
==>eturns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Rela <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2091	2181	
==>eturn (Pugs::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.ass <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	808	947	
==>:Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3532	3647	
==>eturn $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3532	3647	
==>eturn $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	625	761	
==>$code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	625	761	
==>$code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	797	903	
==>e not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	797	903	
==>e not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	797	903	
==>e not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18703	18823	
==>->{skip_reason} = 'various reasons'
              if $totals->{skip_reason} ne $detail->{reason};
        }
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12528	12623	
==>a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12528	12623	
==>a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fiel <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12318	12417	
==>NV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying what sort of line <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3903	3999	
==>item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3903	3999	
==>item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8218	8400	
==>{
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8218	8400	
==>{
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8218	8400	
==>{
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 10 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1076	1219	
==>,
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0,
    nparen => 0,
    captures => [],
    flags => [0],
    next => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	288	389	
==>warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	299	400	
==>warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24211	24304	
==>o compile time binding and
will support multiple languages or locales simultaneously at run ti <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24211	24304	
==>o compile time binding and
will support multiple languages or locales simultaneously at run ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14414	14527	
==>}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14414	14527	
==>}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14414	14527	
==>}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confes <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1044	1163	
==>t_blib {
    my $self = shift;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $base <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15111	15209	
==>it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15111	15209	
==>it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed i <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	405	514	
==>A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    req <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	405	514	
==>A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    req <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28286	28393	
==>p with uneq types";

# a helper that returns the stringified type of an AST
sub t {
	my $ast = shift;
	$i->a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10197	10320	
==>me = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	311	420	
==>t;

# comparisons

# implement this and get the rest for free
# NOTE: 
# compare returns a native boolean thou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	208	324	
==>s_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	208	324	
==>s_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	208	324	
==>s_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2384	2485	
==>xit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2384	2485	
==>xit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2384	2485	
==>xit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7120	7267	
==>t' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7120	7267	
==>t' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7120	7267	
==>t' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16530	16651	
==>$_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16530	16651	
==>$_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16530	16651	
==>$_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . ' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1905	2014	
==>print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %ar <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1905	2014	
==>print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %ar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2714	2808	
==>rs = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7501	7612	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7501	7612	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7501	7612	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4952	5044	
==>PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4952	5044	
==>PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4952	5044	
==>PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2702	2804	
==>it from TestPlan because of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method heade <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9154	9245	
==>Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2979	3070	
==>Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4419	4522	
==>Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns S <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4419	4522	
==>Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	515	609	
==>---------------------------------------------------
## Eigenclass

$::EigenClass = $::Class->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	515	609	
==>---------------------------------------------------
## Eigenclass

$::EigenClass = $::Class->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	515	609	
==>---------------------------------------------------
## Eigenclass

$::EigenClass = $::Class->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1888	1987	
==>e =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1888	1987	
==>e =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1888	1987	
==>e =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	418	534	
==>ARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: c <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	418	534	
==>ARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1407	1553	
==>?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1407	1553	
==>?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5063	5158	
==>ken{syncat};
  $position = $operator->to();
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_PREF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12236	12380	
==>ilder::Test::TODO does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          my $ok          = $.passed ?? 'ok' ! <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2624	2760	
==>ilder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' ! <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2624	2760	
==>ilder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9293	9443	
==>my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9293	9443	
==>my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9293	9443	
==>my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9827	9945	
==>::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9821	9939	
==>::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	920	1058	
==>, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	920	1058	
==>, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5467	5594	
==>mp out alternatives again
                DumpFile( $Altfile, $href );

                my $postinst = $meta_dir . '/'. $Postins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24166	24265	
==>utes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has ze <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28718	28817	
==>utes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has ze <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2565	2841	
==>{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verb <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2565	2841	
==>{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verb <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16584	16758	
==>t->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1862	1976	
==>PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype ( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1862	1976	
==>PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28409	28515	
==>valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32961	33067	
==>valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32089	32195	
==>valued attributes.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its key <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23604	23696	
==>variables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23604	23696	
==>variables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	335	440	
==>ion"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	335	440	
==>ion"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TO <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	186	303	
==>::Map/;
}

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2617	2729	
==>hile (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2617	2729	
==>hile (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2617	2729	
==>hile (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4314	4413	
==>ames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4314	4413	
==>ames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10037	10184	
==>rray[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10037	10184	
==>rray[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10037	10184	
==>rray[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1335	1493	
==>ent.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1335	1493	
==>ent.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1335	1493	
==>ent.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(docu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	365	485	
==>ould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	570	690	
==>ould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	626	746	
==>ould have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8611	8799	
==>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8611	8799	
==>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8611	8799	
==>store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3632	3849	
==>found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3632	3849	
==>found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24315	24406	
==>::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2198	2308	
==>e doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2198	2308	
==>e doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2198	2308	
==>e doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5949	6075	
==>PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5949	6075	
==>PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5949	6075	
==>PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4303	4434	
==>ing.
            # warn "*** Found more than one '$basename' -- using the first one. \n";
        }
        elsif (@candidates == 0) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4117	4233	
==>eld is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embed <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4117	4233	
==>eld is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12469	12628	
==>$::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12469	12628	
==>$::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12469	12628	
==>$::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6629	6748	
==>$self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6629	6748	
==>$self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6629	6748	
==>$self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$sel <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6722	6825	
==>insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "I <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6722	6825	
==>insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "I <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15167	15265	
==>ression> <'-'> <MultiplicativeExpression>
}
rule ShiftExpression :words {  # see 11.7
      <Additi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27473	27572	
==>ange an existing Message object, you must create a new
object that is a clone of the first but for t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27473	27572	
==>ange an existing Message object, you must create a new
object that is a clone of the first but for t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17810	17905	
==>Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($class <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7779	7902	
==>_,$prefix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4398	4491	
==>terday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are av <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4398	4491	
==>terday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are av <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	203	320	
==>ss };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	203	320	
==>ss };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	203	320	
==>ss };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3375	3487	
==>6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3375	3487	
==>6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3375	3487	
==>6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13865	14016	
==>TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13865	14016	
==>TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13865	14016	
==>TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3351	3520	
==>ject -- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16214	16310	
==>ata.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_su <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20640	20736	
==>ata.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	766	886	
==>exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	766	886	
==>exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	766	886	
==>exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportL <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3249	3380	
==>t Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3713	3844	
==>t Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	937	1029	
==>er singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	937	1029	
==>er singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1017	1109	
==>er singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	408	533	
==>r() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	408	533	
==>r() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $f <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5640	5719	
==>+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9078	9221	
==>method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9078	9221	
==>method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9078	9221	
==>method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12840	12973	
==>() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12840	12973	
==>() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12840	12973	
==>() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # dele <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	729	826	
==>, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on who <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	729	826	
==>, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on who <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21955	22050	
==>at order they should be consulted.  When
Locale::KeyedText is told to fetch the user message for <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21955	22050	
==>at order they should be consulted.  When
Locale::KeyedText is told to fetch the user message for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35530	35663	
==>array reference of any number of objects

Ender: I<tail>

=head2 open

Family: open

Types: open1, open2 ... openN (C<(>)

Data: array <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12436	12564	
==>] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12436	12564	
==>] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24425	24539	
==>erl {
    my($x)=@_;
    return 'undef' if !defined $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	271	373	
==>ber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1129	1231	
==>ber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16608	16708	
==>eeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16608	16708	
==>eeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16608	16708	
==>eeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7609	7711	
==>s} or exists $index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile($ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11412	11506	
==>ested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11470	11564	
==>ested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1181	1315	
==>ifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1181	1315	
==>ifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1181	1315	
==>ifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_i <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2379	2525	
==>}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3625	3750	
==>().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3683	3808	
==>().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	19	111	
==>rl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	19	111	
==>rl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	19	111	
==>rl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2987	3117	
==>ed : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2987	3117	
==>ed : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2987	3117	
==>ed : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	251	386	
==>YNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	251	386	
==>YNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	251	386	
==>YNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17013	17164	
==>anonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17013	17164	
==>anonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17013	17164	
==>anonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1267	1384	
==>cture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1267	1384	
==>cture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1267	1384	
==>cture (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    : <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	475	582	
==>multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expressi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5250	5356	
==>ator;

  expect_oper:
  goto end if ( $position >= $lastPosition );
  my $currentOperatorTable = $self->whi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	184	298	
==>ar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1497	1592	
==>ng.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=hea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1497	1592	
==>ng.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	820	925	
==>eep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	820	925	
==>eep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	820	925	
==>eep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Add <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14138	14270	
==>my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14132	14264	
==>my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    " <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22572	22747	
==>}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format ST <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6648	6751	
==>eth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6648	6751	
==>eth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1055	1146	
==>s
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1055	1146	
==>s
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1055	1146	
==>s
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4812	4934	
==>e)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4812	4934	
==>e)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4812	4934	
==>e)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3525	3675	
==>tpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3525	3675	
==>tpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3525	3675	
==>tpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --co <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13363	13475	
==>lete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{@keys}         %hash<key1>. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18009	18099	
==>Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18320	18410	
==>Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	833	942	
==>quivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	833	942	
==>quivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	833	942	
==>quivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13810	13957	
==>iption => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13810	13957	
==>iption => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13810	13957	
==>iption => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1351	1460	
==>ed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1351	1460	
==>ed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1560	1669	
==>ed ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positiona <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1097	1207	
==>.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1097	1207	
==>.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1097	1207	
==>.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(im <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3070	3167	
==>$.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (withou <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3070	3167	
==>$.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (withou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24836	24933	
==>hod returns this Relation's body.

=item C<size () returns Int>

This method returns a count of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29388	29485	
==>hod returns this Relation's body.

=item C<size () returns Int>

This method returns a count of th <==
3	/Users/nnunley/pugs/util/package-osx.pl	4571	4668	
==>::Bible::S03.3pm
        /usr/local/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Per <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29943	30041	
==>e() not taint clean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11769	11871	
==>lasses
and roles can be polymorphic to one another. 

Because instances of class all conform to the Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11769	11871	
==>lasses
and roles can be polymorphic to one another. 

Because instances of class all conform to the Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11769	11871	
==>lasses
and roles can be polymorphic to one another. 

Because instances of class all conform to the Rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37987	38120	
==>( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37987	38120	
==>( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37987	38120	
==>( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1305	1404	
==>s); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1305	1404	
==>s); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1305	1404	
==>s); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2783	2896	
==>module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2783	2896	
==>module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2783	2896	
==>module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eva <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7614	7728	
==>eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7614	7728	
==>eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36050	36148	
==>tion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4208	4300	
==>_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4208	4300	
==>_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4208	4300	
==>_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3824	3924	
==>which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3824	3924	
==>which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3824	3924	
==>which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9766	9893	
==>t find anything).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	985	1110	
==>est Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	985	1110	
==>est Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	386	493	
==>ve?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	386	493	
==>ve?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	386	493	
==>ve?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2528	2713	
==>[
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2539	2724	
==>[
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2887	3041	
==>)}, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1507	1621	
==>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1507	1621	
==>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1507	1621	
==>{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3483	3598	
==>@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
use Data::Dumper;
use Match;
B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8531	8644	
==>], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8519	8632	
==>], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$ma <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	402	627	
==>n 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	402	627	
==>n 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4780	4886	
==>ffect. It's possible the
    internal/external distinction is just a trait, and that some of those
    thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1643	1750	
==>plit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1643	1750	
==>plit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1643	1750	
==>plit '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4280	4508	
==>t';
                $s .= "%$a ";
                for ( @{ $assoc{$_} } ) {
                    next if $seen{$_->{name}};
                    $seen{$_->{name}} = 1;
                    $s .= ' ' .
                        $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1398	1529	
==>e point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1398	1529	
==>e point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27047	27212	
==>l'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'))->push <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5430	5530	
==>nse when it has been received.
method client_date ($self: )         is rw { $self!date_header('Client <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5430	5530	
==>nse when it has been received.
method client_date ($self: )         is rw { $self!date_header('Client <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15177	15273	
==>or what environmental parameter to pay attention to
to select our language.  so I suspect the def <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27808	27903	
==>sg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27808	27903	
==>sg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8776	8946	
==>b {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8776	8946	
==>b {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8776	8946	
==>b {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2642	2856	
==>l' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2642	2856	
==>l' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2642	2856	
==>l' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3146	3256	
==>};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3146	3256	
==>};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3146	3256	
==>};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => :: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	483	605	
==>0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	483	605	
==>0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	342	461	
==>e::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6829	6933	
==>, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6829	6933	
==>, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6829	6933	
==>, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27644	27741	
==>.  If a Relation::Example has zero attributes, then
C<$body> may be an Set with a single member th <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17366	17460	
==>e provides these
benefits to developers and users alike.

For some practical examples of Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17366	17460	
==>e provides these
benefits to developers and users alike.

For some practical examples of Locale <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	541	683	
==>elf, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	541	683	
==>elf, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	541	683	
==>elf, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15243	15367	
==>': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 while -f ++$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_pe <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6711	6820	
==>\Q$Config{so}\E)$/, @_;
    push @libs, grep /^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pkgs <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1552	1644	
==>terface for pluggable regular expression
engines.  It affects all regular expressions I<defin <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25397	25499	
==>ally matches.]
 *
 * [In fact, we now use regmust in many cases to locate where the search
 * starts in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20811	20900	
==>stribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20811	20900	
==>stribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3819	3911	
==>utovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3819	3911	
==>utovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3819	3911	
==>utovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::has <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3133	3259	
==>::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3133	3259	
==>::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3133	3259	
==>::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS:: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6762	6865	
==>Dumper $m;
print $m->describe,"\n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7974	8071	
==>rdered set of spans.

The problem this class solves is when you need do perform "set" operations o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7974	8071	
==>rdered set of spans.

The problem this class solves is when you need do perform "set" operations o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7515	7635	
==>opy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7515	7635	
==>opy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7515	7635	
==>opy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3619	3740	
==>param> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada tra <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3619	3740	
==>param> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada tra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2200	2317	
==>ach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way to display scalars <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5534	5635	
==>es

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5343	5442	
==>es
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4873	5116	
==>'$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4873	5116	
==>'$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4873	5116	
==>'$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8549	8649	
==>V{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8549	8649	
==>V{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8549	8649	
==>V{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6 <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5812	5929	
==>pe";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms"> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6297	6395	
==>cates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a UR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6297	6395	
==>cates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a UR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1345	1474	
==>ss($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1345	1474	
==>ss($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1345	1474	
==>ss($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7446	7561	
==>l emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::vargl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4050	4163	
==>l emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4899	5012	
==>l emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2715	2836	
==>s2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2715	2836	
==>s2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2715	2836	
==>s2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2345	2477	
==>:capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2356	2488	
==>:capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	268	359	
==>use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while ($tail =~ m/rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14372	14469	
==>::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14372	14469	
==>::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14372	14469	
==>::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13404	13506	
==>e::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13404	13506	
==>e::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13404	13506	
==>e::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1327	1429	
==>q "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1327	1429	
==>q "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1327	1429	
==>q "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $ver <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3588	3723	
==>en[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is rea <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3588	3723	
==>en[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is rea <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7519	7634	
==>Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o->visua <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	118	214	
==>Makefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefil <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	118	214	
==>Makefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8144	8275	
==>} = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8132	8263	
==>} = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12364	12477	
==>.fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier>
    | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	366	523	
==>h' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	366	523	
==>h' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	366	523	
==>h' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34790	34885	
==>or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31040	31132	
==>or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35590	35682	
==>or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17118	17213	
==>MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17118	17213	
==>MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17118	17213	
==>MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	145	260	
==>';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    return $self;
} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	305	406	
==>ol::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	305	406	
==>ol::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( sta <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5569	5697	
==>h.   Let's hunt around for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23246	23363	
==>::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(",",@args);
    "(throw Perl6::Run::OnPe <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4577	4672	
==>3)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4577	4672	
==>3)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	451	553	
==>ash of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	451	553	
==>ash of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4471	4582	
==>achar:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8940	9069	
==>gin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .nu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20812	20909	
==>X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as well <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20812	20909	
==>X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as well <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1333	1446	
==>= File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 i <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1333	1446	
==>= File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1262	1409	
==>le( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1262	1409	
==>le( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7678	7791	
==>) } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( map { $_->accepts_type } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2710	2868	
==>s),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2710	2868	
==>s),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2710	2868	
==>s),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3698	3864	
==>\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 l <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3698	3864	
==>\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1193	1300	
==>e Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3012	3168	
==>_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3012	3168	
==>_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @mat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17842	17953	
==>::X1::Api;\n";
    $code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7225	7334	
==>MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7225	7334	
==>MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7225	7334	
==>MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5174	5272	
==>ing (--link option not given), there has to be only one input file.
In linking mode, multiple input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5174	5272	
==>ing (--link option not given), there has to be only one input file.
In linking mode, multiple input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5174	5272	
==>ing (--link option not given), there has to be only one input file.
In linking mode, multiple input <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2420	2668	
==>pe');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2420	2668	
==>pe');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2420	2668	
==>pe');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'a <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	639	769	
==>ce}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1123	1220	
==>a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fas <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1123	1220	
==>a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fas <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	569	785	
==>nt = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_ele <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	569	785	
==>nt = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_ele <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19964	20054	
==>tstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1360	1462	
==>age VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1360	1462	
==>age VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1360	1462	
==>age VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @IS <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	581	701	
==>eadlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2231	2348	
==>hthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atild <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2231	2348	
==>hthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atild <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27867	28022	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28146	28301	
==>mmar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2317	2419	
==>erl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2317	2419	
==>erl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2317	2419	
==>erl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(file <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3132	3241	
==>th diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3132	3241	
==>th diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3212	3321	
==>th diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4592	4695	
==>l");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4592	4695	
==>l");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $h <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13445	13548	
==>e use of internals is rather limited, and in a rather
  stable are of the code, so this may not be a rea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2515	2646	
==>ames -> $attr_name {
        if (!$?SELF.attr_name_exists( $attr_name )) {
            return Bool::false;
        }
    }
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1720	1828	
==>uoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2155	2263	
==>uoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2589	2697	
==>uoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2012	2125	
==>erl {
        multi method as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method as ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6284	6392	
==>y method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6284	6392	
==>y method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5858	6007	
==>by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5858	6007	
==>by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5858	6007	
==>by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1681	1785	
==><?p6ws>?\)<?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22861	22954	
==>opic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "... <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22861	22954	
==>opic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "... <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34699	34796	
==>a new Relation that has the
same heading as the invocant and whose body contains all of the tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39249	39346	
==>a new Relation that has the
same heading as the invocant and whose body contains all of the tuples <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11044	11152	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11044	11152	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11044	11152	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28780	28906	
==>e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28780	28906	
==>e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28780	28906	
==>e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1518	1624	
==>].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1518	1624	
==>].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1518	1624	
==>].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcirc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	114	227	
==>> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	114	227	
==>> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	114	227	
==>> "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2normal can
  # c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1428	1545	
==>d BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1428	1545	
==>d BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4644	4755	
==>e_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4644	4755	
==>e_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4644	4755	
==>e_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->na <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8290	8390	
==>$event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8290	8390	
==>$event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2716	2815	
==>",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2716	2815	
==>",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2716	2815	
==>",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1683	1786	
==>lass -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1888	1991	
==>lass -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1951	2054	
==>lass -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4283	4376	
==>$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4283	4376	
==>$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6480	6573	
==>$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	207	455	
==>kages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	207	455	
==>kages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15962	16076	
==>eturn Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15962	16076	
==>eturn Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15962	16076	
==>eturn Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3494	3609	
==>nfess "argument to &each must be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5926	6029	
==>t_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5926	6029	
==>t_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15682	15773	
==>ionalExpression> <'>='> <ShiftExpression>
    | <RelationalExpression> <'instanceof'> <Shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	94	196	
==>usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	94	196	
==>usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	94	196	
==>usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1355	1485	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1300	1424	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10408	10498	
==>e_params = '[map{Perl6::Param->new(@$_)}('.$code_param_info.')]';
    my $namestr = $string <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30430	30530	
==>anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34981	35081	
==>anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34163	34263	
==>anonymous function in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4361	4469	
==>hift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4361	4469	
==>hift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4361	4469	
==>hift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50675	50840	
==>ymbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$ident <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5975	6093	
==>ith 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5975	6093	
==>ith 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6510	6604	
==>B sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6510	6604	
==>B sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6510	6604	
==>B sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7558	7711	
==>$tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7558	7711	
==>$tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7558	7711	
==>$tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22006	22155	
==>{
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22006	22155	
==>{
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22006	22155	
==>{
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	688	786	
==>ilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.description' => $params{'$.descrip <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1449	1554	
==>bstr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        bo <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11248	11342	
==>ncludes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=hea <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11248	11342	
==>ncludes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1626	1742	
==>$qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1626	1742	
==>$qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1626	1742	
==>$qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_o <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1963	2070	
==>on( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1963	2070	
==>on( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9656	9752	
==>but not all, ciphers will need to override these
method _head() returns Array { return }
method _ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9656	9752	
==>but not all, ciphers will need to override these
method _head() returns Array { return }
method _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7199	7307	
==>atch.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7199	7307	
==>atch.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7199	7307	
==>atch.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5157	5256	
==>:Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5157	5256	
==>:Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5157	5256	
==>:Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17249	17399	
==>um_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17249	17399	
==>um_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13274	13376	
==>";
  eval $loc;
  warn "*** Unfortunately $path will not be available in the index (eval $loc failed: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2717	2840	
==>ack, style = solid, color = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, ">", $ARGV[0];
print OUTF <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14201	14303	
==>Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17678	17780	
==>Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5041	5185	
==>e => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5041	5185	
==>e => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4263	4373	
==>ed by --splashscreen will be displayed before booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14057	14156	
==>ttributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14057	14156	
==>ttributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14057	14156	
==>ttributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	827	938	
==>l.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	827	938	
==>l.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	827	938	
==>l.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4311	4407	
==>n; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4311	4407	
==>n; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4311	4407	
==>n; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5866	5988	
==>span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5866	5988	
==>span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20255	20357	
==>to 'collapse' useless directory entries
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # F <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12355	12466	
==>->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the paramet <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9847	9941	
==>nput validation is performed over 2 main phases, which
are referred to as "immediate" and "defe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9847	9941	
==>nput validation is performed over 2 main phases, which
are referred to as "immediate" and "defe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7271	7379	
==>.sub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .local string target, value
    .loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1001	1104	
==>e block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# catego <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1001	1104	
==>e block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# catego <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5189	5302	
==>which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5189	5302	
==>which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5189	5302	
==>which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = Jav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13254	13419	
==>e { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13254	13419	
==>e { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13254	13419	
==>e { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4168	4299	
==>grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4168	4299	
==>grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4168	4299	
==>grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10395	10502	
==>rl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10395	10502	
==>rl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10395	10502	
==>rl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26608	26819	
==>->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sam <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26608	26819	
==>->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sam <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26608	26819	
==>->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $sam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13871	14037	
==>n index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13871	14037	
==>n index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13871	14037	
==>n index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == arr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3644	3767	
==>IL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pS <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3644	3767	
==>IL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pS <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	494	617	
==>IL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4721	4815	
==>L::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4721	4815	
==>L::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4721	4815	
==>L::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1084	1199	
==>ing is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (St <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1084	1199	
==>ing is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (St <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28114	28208	
==>ag set, so C<(?ig-o)> becomes C<(?i)>.

=item $parser->del_flag(@flags)

Deletes the handlers f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2216	2315	
==>is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2216	2315	
==>is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1892	2020	
==>a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5369	5497	
==>a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4299	4427	
==>a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20974	21072	
==>5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20974	21072	
==>5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20974	21072	
==>5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2490	2601	
==>report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2490	2601	
==>report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2490	2601	
==>report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	322	587	
==>Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used by the Relation class, th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	433	536	
==>and calling members before any values are
    # set results in a error
    %!members ?? %!members.values <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	433	536	
==>and calling members before any values are
    # set results in a error
    %!members ?? %!members.values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14658	14772	
==>e( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14658	14772	
==>e( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14658	14772	
==>e( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7462	7592	
==>LASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7462	7592	
==>LASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7462	7592	
==>LASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4151	4290	
==>->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4151	4290	
==>->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4151	4290	
==>->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2031	2255	
==>{
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2031	2255	
==>{
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2031	2255	
==>{
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11318	11410	
==>n) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_childr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11318	11410	
==>n) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_childr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	900	989	
==>erbose_output = $strap->dump_verbose();
  $strap->dump_verbose_fh($output_filehandle);


= <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	633	731	
==>be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	633	731	
==>be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns S <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7823	7919	
==>') => sub { unify($_[0]{instance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type::variable::i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2376	2473	
==>tages) {
	my $result = $self->{$stage};
	next if !defined $result;
	my $warn = $result->warnings() <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1027	1121	
==>arser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parame <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1027	1121	
==>arser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parame <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	660	802	
==>.uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	660	802	
==>.uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi me <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	565	670	
==>_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self->mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11313	11459	
==>+ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11313	11459	
==>+ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11313	11459	
==>+ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14354	14442	
==>vate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14354	14442	
==>vate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14354	14442	
==>vate_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3397	3494	
==>n \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers fo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3397	3494	
==>n \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25530	25624	
==>mn, but a Relation::Example is not a table.

The Relation::Example class is pure and determinis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3336	3477	
==><list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4185	4326	
==><list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9911	10014	
==>[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	786	917	
==>ct") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	786	917	
==>ct") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	786	917	
==>ct") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18496	18608	
==>g paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14917	15029	
==>g paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPO <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15339	15437	
==>rn value is a type variable that is present inside the function, if it was free it might be unified <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15864	15983	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15864	15983	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15864	15983	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10595	10763	
==>lf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10595	10763	
==>lf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10595	10763	
==>lf->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3359	3483	
==>lass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3359	3483	
==>lass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3359	3483	
==>lass($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2069	2175	
==>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2069	2175	
==>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2069	2175	
==>class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13465	13599	
==>}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13465	13599	
==>}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13465	13599	
==>}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	9	110	
==>ackage Module::Install::Deprecated;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	17	113	
==>Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	17	109	
==>Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2154	2272	
==>= map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2154	2272	
==>= map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2154	2272	
==>= map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	296	396	
==>r bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	296	396	
==>r bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11383	11476	
==>recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence tha <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11383	11476	
==>recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence tha <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4062	4193	
==>preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Pos <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3013	3130	
==>preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Pos <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5543	5648	
==>sed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native type";
    $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5445	5560	
==>, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $va <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5730	5845	
==>, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $va <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8067	8175	
==>e "bug"}
    bless $o,$ref;
    return $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5;
sub recurse {
    my( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6008	6121	
==>'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6201	6314	
==>'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14633	14736	
==>eric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anc <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	49	194	
==>Str is export {
        my @default = (
            "boring",
            "missing examples",
        );
      pick @arr || @default
}

sub report <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32657	32750	
==>le
message strings, using data from external Template modules as a template.
The Translator cl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32657	32750	
==>le
message strings, using data from external Template modules as a template.
The Translator cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	511	611	
==>ative types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # event <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	644	740	
==>e XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node repr <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	644	740	
==>e XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node repr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5169	5270	
==>n the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5169	5270	
==>n the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5169	5270	
==>n the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything y <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4799	4923	
==>339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "ci <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4799	4923	
==>339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "ci <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3059	3161	
==>onst";
		join("_", $type, ++$self->{counters}{$type});
	}
}

sub define {
	my $self = shift;
	my ($node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2766	2863	
==>nts the semantics for perl6-style variable binding,
as well as subroutine call argument passing an <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2766	2863	
==>nts the semantics for perl6-style variable binding,
as well as subroutine call argument passing an <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3113	3210	
==>nts the semantics for perl6-style variable binding,
as well as subroutine call argument passing an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	390	503	
==>IOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	390	503	
==>IOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	390	503	
==>IOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    re <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3253	3342	
==>:Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure decip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3253	3342	
==>:Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure decip <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1707	1833	
==>ill do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1707	1833	
==>ill do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1707	1833	
==>ill do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12805	12892	
==>ckage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12805	12892	
==>ckage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12805	12892	
==>ckage PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5539	5709	
==>en =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5539	5709	
==>en =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5539	5709	
==>en =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5136	5265	
==>ame;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5136	5265	
==>ame;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5136	5265	
==>ame;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3136	3290	
==>1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3136	3290	
==>1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $sta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	804	918	
==>bj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	770	881	
==>string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	790	894	
==>string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4449	4563	
==>), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4449	4563	
==>), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4449	4563	
==>), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7975	8093	
==>_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7975	8093	
==>_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7975	8093	
==>_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4001	4121	
==>rint $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4001	4121	
==>rint $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35654	35757	
==>ff
and keep it normal, but the others we will make to be look-aheads.  To
make an object, we need to acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2819	2932	
==>er::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2819	2932	
==>er::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2819	2932	
==>er::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6637	6757	
==>ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6637	6757	
==>ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1814	1917	
==>turn_value;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1497	1593	
==>odel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1497	1593	
==>odel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1497	1593	
==>odel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4065	4191	
==>"' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4065	4191	
==>"' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4065	4191	
==>"' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4967	5087	
==>IS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4967	5087	
==>IS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # D <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16787	16902	
==>}
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1793	1897	
==>,    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1793	1897	
==>,    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1793	1897	
==>,    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19916	20025	
==>ng similar but that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dime <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24468	24577	
==>ng similar but that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dime <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23020	23129	
==>ng similar but that is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dime <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1480	1585	
==>esses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Number <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1480	1585	
==>esses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Number <==
3	/Users/nnunley/pugs/util/package-osx.pl	4470	4567	
==>6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/man3/Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7658	7760	
==>ubnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7658	7760	
==>ubnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7658	7760	
==>ubnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14267	14466	
==>);
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14267	14466	
==>);
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14267	14466	
==>);
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	482	595	
==>Bin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	482	595	
==>Bin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	482	595	
==>Bin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29716	29811	
==>e of another,
or are the same as the unaffected invocant's attributes.  This method
supports hav <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34268	34363	
==>e of another,
or are the same as the unaffected invocant's attributes.  This method
supports hav <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33432	33527	
==>e of another,
or are the same as the unaffected invocant's attributes.  This method
supports hav <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6178	6279	
==>hReason role
and override some methods to provide additional features.

=item B<Test::Builder::Test::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6178	6279	
==>hReason role
and override some methods to provide additional features.

=item B<Test::Builder::Test::T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8375	8476	
==>hReason role
and override some methods to provide additional features.

=item B<Test::Builder::Test::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4780	4881	
==>Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4780	4881	
==>Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6304	6405	
==>Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7698	7797	
==>andler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($kille <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7698	7797	
==>andler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($kille <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13114	13239	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13114	13239	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13114	13239	
==>de a label";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9258	9360	
==>lar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9258	9360	
==>lar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9258	9360	
==>lar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4788	4891	
==>if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4788	4891	
==>if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4788	4891	
==>if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::double <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3895	3992	
==>s rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

Yo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3895	3992	
==>s rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

Yo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	454	553	
==>" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	415	514	
==>" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	415	514	
==>" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7934	8033	
==>d, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7934	8033	
==>d, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in th <==
3	/Users/nnunley/pugs/util/package-osx.pl	6800	6888	
==>/man3/Perl6::Overview::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2800	2967	
==>tives/$script";
        }      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sure we dont s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2931	3039	
==>ler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [St <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2931	3039	
==>ler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [St <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1311	1426	
==>dition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) {
        $self->do();
    }
}

1;

__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	509	691	
==>pe = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	509	691	
==>pe = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	509	691	
==>pe = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	263	363	
==>h calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	263	363	
==>h calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	263	363	
==>h calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3708	3812	
==>) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3708	3812	
==>) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3708	3812	
==>) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	326	438	
==>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	326	438	
==>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	326	438	
==>sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => { <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14380	14492	
==>->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1860	1972	
==>->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6470	6568	
==>ialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6470	6568	
==>ialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6470	6568	
==>ialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_inden <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	623	752	
==>ule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	616	745	
==>ule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2945	3053	
==>E_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10726	10820	
==>ew( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10726	10820	
==>ew( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4814	4905	
==>valX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4814	4905	
==>valX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4814	4905	
==>valX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17372	17516	
==>p["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ \""
    $P0 .= grammar
    $P0 .= "\" ]\n\n"
    code = exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6207	6317	
==>uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6195	6305	
==>uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variab <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5487	5751	
==>nd end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push th <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5487	5751	
==>nd end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1717	1832	
==>is called TAP, the Test Anything
Protocol.  It is defined in L<Test::Harness::TAP>.

C<Test::Harness::runtests(@test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6398	6488	
==>le->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6398	6488	
==>le->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6398	6488	
==>le->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9524	9685	
==>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9524	9685	
==>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9524	9685	
==>body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Re <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	341	463	
==>N);
    };
}

our $inserted = 0;
BEGIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shi <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	674	781	
==>le' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	641	748	
==>le' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6169	6267	
==>Test::WithReason role
and override some methods to provide additional features.

=item B<Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6169	6267	
==>Test::WithReason role
and override some methods to provide additional features.

=item B<Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8366	8464	
==>Test::WithReason role
and override some methods to provide additional features.

=item B<Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3750	3947	
==>})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3750	3947	
==>})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3750	3947	
==>})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4792	4955	
==>t > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4792	4955	
==>t > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4792	4955	
==>t > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4611	4704	
==>ipt.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4611	4704	
==>ipt.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4611	4704	
==>ipt.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37189	37349	
==>( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37189	37349	
==>( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37189	37349	
==>( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15552	15645	
==>vileges regarding access to information details, or their technical
skills.  For example, a na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15552	15645	
==>vileges regarding access to information details, or their technical
skills.  For example, a na <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10450	10567	
==>goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7647	7758	
==>l;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7647	7758	
==>l;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7647	7758	
==>l;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2681	2775	
==>quest::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2681	2775	
==>quest::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The reques <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	848	958	
==>$_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1871	1981	
==>$_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	848	958	
==>$_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19339	19488	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19618	19767	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_d <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19485	19593	
==>nd applies it to a string
# thiss tests that the inferrence of higher order functions is correct
my $app_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2937	3030	
==>$jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2937	3030	
==>$jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2937	3030	
==>$jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13674	13773	
==>ngest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13674	13773	
==>ngest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entitie <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3385	3474	
==>e_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4079	4168	
==>e_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5287	5376	
==>e_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1885	2008	
==>) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1945	2068	
==>) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8281	8390	
==>xt, they all return the count of elements that would have
been iterated.

=back



=head2 List

=over

=item g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21433	21577	
==>am ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21433	21577	
==>am ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21433	21577	
==>am ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3705	3803	
==>e $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3705	3803	
==>e $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3705	3803	
==>e $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "& <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4188	4294	
==>t, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4188	4294	
==>t, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4188	4294	
==>t, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5037	5214	
==>s->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4881	5049	
==>s->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9264	9410	
==>$self->remove_registered_alternative( package => $inst_pkg );

        ### this package didn't provide any alternatives
        last LINKING unless <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4789	4903	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4982	5096	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5276	5370	
==>ox('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:undef),@_) if $cls eq ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17646	17762	
==>sh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? $expected : /$expected/) :
		          $expected },
		$run <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3162	3258	
==>e << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell. <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3162	3258	
==>e << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1311	1405	
==>nt((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1311	1405	
==>nt((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1311	1405	
==>nt((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9559	9651	
==>xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9559	9651	
==>xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9559	9651	
==>xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($x <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1009	1103	
==>ter::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1009	1103	
==>ter::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1089	1183	
==>ter::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10681	10793	
==>~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14158	14270	
==>~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13457	13569	
==>~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	546	670	
==>ub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	546	670	
==>ub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	546	670	
==>ub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11184	11396	
==>'' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4768	4942	
==>KMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((sym <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6530	6704	
==>KMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	262	401	
==>erl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlific <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	262	401	
==>erl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlific <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	262	401	
==>erl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlific <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	1023	1133	
==>ion 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[0]);
  r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4372	4460	
==>thod.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4622	4710	
==>thod.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21151	21247	
==>I SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21151	21247	
==>I SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21151	21247	
==>I SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2791	2903	
==>o_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2791	2903	
==>o_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2791	2903	
==>o_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15818	15954	
==>t;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15812	15948	
==>t;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident <==
3	/Users/nnunley/pugs/util/package-osx.pl	2077	2183	
==>less.pm
        /usr/local/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2869	2983	
==>:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2869	2983	
==>:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2869	2983	
==>:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	498	651	
==>ex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $c <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	498	651	
==>ex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29354	29453	
==>r> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types don't merge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9262	9371	
==>~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9262	9371	
==>~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9262	9371	
==>~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19834	19925	
==>o_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19834	19925	
==>o_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19834	19925	
==>o_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2839	2962	
==>an 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2839	2962	
==>an 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2919	3042	
==>an 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8003	8141	
==>$.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleto <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1362	1460	
==>ment it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able th <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1362	1460	
==>ment it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able th <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1979	2077	
==>ped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This giv <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1979	2077	
==>ped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This giv <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2302	2414	
==>rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $template = $rule_templ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2120	2226	
==>tr *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2120	2226	
==>tr *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $fiel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34413	34535	
==>azy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34413	34535	
==>azy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34413	34535	
==>azy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offs <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4172	4286	
==>}
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

su <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4230	4344	
==>}
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

su <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15263	15369	
==>r %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	192	308	
==>0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	192	308	
==>0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	192	308	
==>0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4832	4929	
==>the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4832	4929	
==>the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6356	6453	
==>the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3534	3628	
==>out any parameters, this returns an object representing the
current /local/ date.

- `new( epoc <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3534	3628	
==>out any parameters, this returns an object representing the
current /local/ date.

- `new( epoc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36472	36568	
==>in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41021	41117	
==>in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40635	40731	
==>in which any two source relations are
combined is inconsequential.  A trivial case is where C<@ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	447	575	
==>mark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	544	672	
==>mark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (sub <==
3	/Users/nnunley/pugs/util/addauthors.pl	460	588	
==>keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8647	8752	
==>\"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8647	8752	
==>\"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	589	690	
==>= [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	589	690	
==>= [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	589	690	
==>= [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2062	2153	
==>$self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2062	2153	
==>$self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2062	2153	
==>$self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DES <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22529	22718	
==>->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42318	42506	
==>->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        ) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4979	5083	
==>jives with $failedtests});

    return $ok;
}

=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	397	520	
==>ead1 METHODS

=head2 $src = JIB::Source->new( dir => /path/to/source )

=cut

sub new { 
    my $class   = shift;
    my %ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10944	11064	
==>::exact;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8588	8700	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8781	8893	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2219	2326	
==>oot::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2219	2326	
==>oot::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2219	2326	
==>oot::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) thro <==
3	/Users/nnunley/pugs/util/package-osx.pl	957	1083	
==>/usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot
        /usr/local/info/readline.info
        /usr/local <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15971	16096	
==>ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16250	16375	
==>ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	909	1021	
==>ric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	909	1021	
==>ric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	909	1021	
==>ric classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20919	21014	
==>ent list to the constructor or header() method, the same
field name should not occur multiple ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20919	21014	
==>ent list to the constructor or header() method, the same
field name should not occur multiple ti <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	510	604	
==>tup_output();

inline(), exit 0 if $Config{inline};
precomp(), exit 0 if $Config{precompile};
u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5250	5359	
==>%!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5250	5359	
==>%!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	960	1065	
==>ded from '$filename'\n";
    open FILE, "<", $filename
        or die "can't open $filename for compilatio <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35211	35310	
==>urns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named par <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35211	35310	
==>urns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named par <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	251	341	
==>.new($self.length - $duration.length);
}

#method infix:<->($self: Duration $duration) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7382	7512	
==>ef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7382	7512	
==>ef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7382	7512	
==>ef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4103	4267	
==>_by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $mayb <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4567	4731	
==>_by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $mayb <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2930	3038	
==>ie::TypeSafe::Annotation->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else {
			my $ty <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3467	3568	
==>*infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3467	3568	
==>*infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1179	1279	
==>et = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1179	1279	
==>et = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1179	1279	
==>et = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2928	3104	
==>ual',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '&&',
        assoc => 'right',
        precedence => 'looser',
        other => 'eq',
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2111	2212	
==>upport for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error messag <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2111	2212	
==>upport for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error messag <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	605	826	
==>,
                                   Int ?$length,
                                       *@values
                                ) returns List is rw
 multi sub Array::unshift (@array is rw ; *@values) returns Int {
   A <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3051	3146	
==>e called repeatedly to encipher data.
The encipherer closure can be called with a string, and sh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3051	3146	
==>e called repeatedly to encipher data.
The encipherer closure can be called with a string, and sh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3745	3845	
==>of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3745	3845	
==>of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3825	3925	
==>of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2549	2660	
==>s->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2549	2660	
==>s->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2549	2660	
==>s->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2732	2832	
==>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2732	2832	
==>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2732	2832	
==>class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	887	1026	
==>"\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escapin <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	887	1026	
==>"\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escapin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8603	8776	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8603	8776	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8603	8776	
==>if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	405	508	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	405	508	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	405	508	
==>equire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2871	2975	
==>ass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2871	2975	
==>ass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2871	2975	
==>ass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5225	5325	
==>{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especial <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5225	5325	
==>{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especial <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	782	932	
==>$code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	782	932	
==>$code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	782	932	
==>$code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3915	4025	
==>($curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3915	4025	
==>($curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3024	3125	
==>lse {
			my $type = $self->guess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1249	1351	
==>LS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1249	1351	
==>LS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1249	1351	
==>LS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6998	7137	
==>rl_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    tr <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6998	7137	
==>rl_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    tr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	267	361	
==>t) }
sub not_equal_to { $_[0]->equal_to($_[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4256	4352	
==>instance, passing on the C<$description> and
C<$reason> parameters and a true value for the passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4256	4352	
==>instance, passing on the C<$description> and
C<$reason> parameters and a true value for the passe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6453	6549	
==>instance, passing on the C<$description> and
C<$reason> parameters and a true value for the passe <==
3	/Users/nnunley/pugs/util/fixauthors.pl	674	772	
==>ok_down(class=>"t1");

  return "" unless $realname;
  return $realname->as_text;

  return $realna <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11175	11268	
==>f returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) retu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11175	11268	
==>f returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	113	213	
==>ie unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	113	213	
==>ie unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	113	213	
==>ie unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24057	24205	
==>)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24057	24205	
==>)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24057	24205	
==>)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7302	7399	
==>s::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7302	7399	
==>s::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7302	7399	
==>s::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1990	2180	
==>match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
} <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1990	2180	
==>match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20246	20344	
==>t
class.

The walker() method is also now abstracted -- each node it comes across
will have its wal <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	636	736	
==>mance is quite plausible.

# Next steps:

# Create a clean backtracking library (basically a set of s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24646	24740	
==>>new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25618	25712	
==>>new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31396	31489	
==><$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35946	36039	
==><$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35164	35257	
==><$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16287	16468	
==>::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16566	16747	
==>::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5376	5470	
==>ble is ready, the Standard
Prelude is precompiled and stored in YAML format in a (conjecturally <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3373	3497	
==>f, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3373	3497	
==>f, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for m <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4371	4474	
==>quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{", !, p5_range_bounds(Min,Max), "}", p5_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	833	949	
==>$attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	833	949	
==>$attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	833	949	
==>$attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($bod <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1641	1754	
==>type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$targe <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1641	1754	
==>type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$targe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	257	345	
==>auto_version);

my (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Per <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15500	15601	
==>)`

Change the start or end value of the span.

These methods may raise a warning if the new value wou <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15500	15601	
==>)`

Change the start or end value of the span.

These methods may raise a warning if the new value wou <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3309	3481	
==>, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3309	3481	
==>, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2416	2525	
==>ut this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2416	2525	
==>ut this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2416	2525	
==>ut this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if (::opaq <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6389	6497	
==>er {
		my $self = shift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::blessed($type) and $type- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9375	9479	
==>1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9375	9479	
==>1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1991	2130	
==>tructure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1991	2130	
==>tructure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1991	2130	
==>tructure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	403	601	
==>pect' => 0);
            }
            elsif (!defined $params{'$:expect'}) {
                confess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5691	5815	
==>A=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $noop = $o- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13802	13924	
==>syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'syn', "$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8290	8412	
==>$curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8290	8412	
==>$curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	799	914	
==>if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - performs one dimensional Newton's method

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14238	14458	
==>able_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14238	14458	
==>able_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14238	14458	
==>able_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14975	15073	
==>..};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14975	15073	
==>..};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14975	15073	
==>..};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	807	914	
==>ift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	807	914	
==>ift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	807	914	
==>ift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$dept <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1547	1710	
==>->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1547	1710	
==>->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1547	1710	
==>->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3077	3229	
==>s} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3077	3229	
==>s} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3077	3229	
==>s} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22829	22919	
==>I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22829	22919	
==>I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2226	2369	
==>erl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2226	2369	
==>erl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2226	2369	
==>erl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        prin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3051	3181	
==><defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [ <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3051	3181	
==><defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	108	208	
==>y $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$a[0]";
Pe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16408	16502	
==>my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_si <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16408	16502	
==>my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_si <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38549	38646	
==>' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38549	38646	
==>' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16951	17037	
==>twiseANDExpression> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words { <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	741	879	
==>kenizer, are not actually used.
#   * Some rules, eg StringNumericLiteral, are not used in parsing JavaScript,
#     but rather in implemen <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4345	4441	
==>re comments, and blank lines are ignored.

When writing back to the config file, any comments are <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4345	4441	
==>re comments, and blank lines are ignored.

When writing back to the config file, any comments are <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13967	14108	
==>l} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19847	19942	
==>dy
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19847	19942	
==>dy
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28526	28649	
==>);

    $self->add_handler('&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      pus <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3698	3789	
==>_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3698	3789	
==>_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4696	4818	
==>space');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4696	4818	
==>space');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4696	4818	
==>space');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1565	1718	
==>_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1565	1718	
==>_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1565	1718	
==>_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27374	27468	
==>additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31926	32020	
==>additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31009	31103	
==>additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11082	11178	
==>---------------

What if Roles could provide their own BUILD submethods? This would 
mean that BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11082	11178	
==>---------------

What if Roles could provide their own BUILD submethods? This would 
mean that BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11082	11178	
==>---------------

What if Roles could provide their own BUILD submethods? This would 
mean that BU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2271	2379	
==>face
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2271	2379	
==>face
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2271	2379	
==>face
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\unde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23062	23172	
==>s.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27614	27724	
==>s.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26391	26501	
==>s.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	91	192	
==>s keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	91	192	
==>s keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	91	192	
==>s keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2424	2536	
==>alues ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    ::= Code(Any, A <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	950	1055	
==>}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variabl <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	950	1055	
==>}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8050	8146	
==>*{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8050	8146	
==>*{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8050	8146	
==>*{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default co <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7829	8023	
==>.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7829	8023	
==>.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16489	16596	
==>self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16489	16596	
==>self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16489	16596	
==>self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6575	6673	
==>This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6575	6673	
==>This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10185	10352	
==>, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatcher", q<block>)
            ), 
            returns => q<meth <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3276	3370	
==>*infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3276	3370	
==>*infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> ( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4605	4722	
==>$length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "item <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4605	4722	
==>$length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "item <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7780	7889	
==>x.html");
    eval { mkpath( $output_path ) };
    die "Failed to create directory $output_path" if $@;
    op <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3421	3518	
==>e' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	394	490	
==>sar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all by <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	394	490	
==>sar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6673	6803	
==>e eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6673	6803	
==>e eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6673	6803	
==>e eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2528	2625	
==>of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the re <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2528	2625	
==>of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7398	7506	
==>kage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7398	7506	
==>kage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7398	7506	
==>kage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2111	2238	
==>de_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2111	2238	
==>de_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2111	2238	
==>de_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1529	1636	
==>PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1529	1636	
==>PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1529	1636	
==>PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35216	35314	
==>a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named paramet <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35216	35314	
==>a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named paramet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22502	22597	
==>.>

=head1 DESCRIPTION

This library provides a partial implementation, in the form of several
r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	345	435	
==>r::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	345	435	
==>r::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	342	426	
==>r::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block>|< <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15419	15535	
==>s goto err_close
  name_1:
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = escape cname
    cname <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7191	7305	
==>$kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7191	7305	
==>$kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38650	38777	
==>$_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38650	38777	
==>$_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38650	38777	
==>$_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list {
    my $ar <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	211	320	
==>thod time_t($self:) returns Int {
    ...
}

method add($self: Duration $duration) returns Date {
    ...
}

m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34670	34772	
==>,
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34670	34772	
==>,
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3216	3320	
==>tus;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3216	3320	
==>tus;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5548	5647	
==>&infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5548	5647	
==>&infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5548	5647	
==>&infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11796	11899	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11796	11899	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11796	11899	
==>::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3351	3468	
==>nless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3351	3468	
==>nless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3535	3634	
==>ew(0)
}

package closure::params;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11443	11598	
==>[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $co <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5638	5733	
==>hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5638	5733	
==>hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	126	241	
==>($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	126	241	
==>($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37011	37121	
==>@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2875	2992	
==>warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2875	2992	
==>warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2875	2992	
==>warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3062	3182	
==>:X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6703	6799	
==>y internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_head <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6703	6799	
==>y internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_head <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6116	6227	
==>oto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20707	20805	
==>his:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20707	20805	
==>his:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->head <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	177	279	
==>$y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	177	279	
==>$y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	177	279	
==>$y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3035	3182	
==>$cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3035	3182	
==>$cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3035	3182	
==>$cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Per <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28620	28948	
==>))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	120	227	
==>es

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ---------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	120	227	
==>es

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ---------- <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2861	2971	
==>hift;
    my $package = ref( $self->_top );
    my $version = $self->_top->VERSION;
    my %values  = %{ $self- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6906	7015	
==>rson = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6906	7015	
==>rson = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12091	12212	
==>class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12091	12212	
==>class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12091	12212	
==>class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8578	8731	
==>tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8578	8731	
==>tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unle <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4228	4325	
==>w(.*?)^=cut$}{"\n" x ($1 =~ y/\n//)}mesg;
}

sub precomp {
    print STDERR "Generating precompile <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4780	4934	
==>current_pragma_value($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14335	14461	
==>\$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14329	14455	
==>\$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	737	843	
==>gName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	737	843	
==>gName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	737	843	
==>gName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1567	1691	
==>Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        5 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1567	1691	
==>Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        5 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1778	1876	
==>g to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1778	1876	
==>g to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C< <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5126	5270	
==>_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5126	5270	
==>_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string <==
3	/Users/nnunley/pugs/util/func_refact.pl	2185	2307	
==>er count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	90	198	
==>gs;
use Pugs::Runtime::Match;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unles <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6820	6922	
==>ler::Rule->compile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6398	6495	
==>sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6398	6495	
==>sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6398	6495	
==>sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15351	15467	
==>( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15351	15467	
==>( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15351	15467	
==>( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6772	6894	
==>dual tests
    failed      Number which failed
    percent     Percentage of tests which failed
    canon       List of tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1833	1970	
==>e_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1833	1970	
==>e_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1833	1970	
==>e_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	110	238	
==>rnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	436	533	
==>sses don't
# accidentally override things they didn't intend to.

# Determine which stack frame po <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	436	533	
==>sses don't
# accidentally override things they didn't intend to.

# Determine which stack frame po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1697	1826	
==>utes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1697	1826	
==>utes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1697	1826	
==>utes. It will do nothing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_i <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1291	1414	
==>{
        when ($_ <= .5) && ($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x >= 0) { $x_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12077	12180	
==>> $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12077	12180	
==>> $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29578	29674	
==>e
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34130	34226	
==>e
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33294	33390	
==>e
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tu <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3659	3759	
==>an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'ye <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3659	3759	
==>an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'ye <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4747	4889	
==><0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4759	4901	
==><0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1291	1399	
==>ct
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1291	1399	
==>ct
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1291	1399	
==>ct
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7241	7341	
==>into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7241	7341	
==>into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	302	395	
==>b "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'in <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3454	3583	
==>end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3454	3583	
==>end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_ope <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5238	5340	
==>'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->co <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1959	2077	
==>m { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:] <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1959	2077	
==>m { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14181	14277	
==>7)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Miss <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12505	12663	
==>> sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy " <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8715	8814	
==>dpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8773	8872	
==>dpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8794	8951	
==>rl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8794	8951	
==>rl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8794	8951	
==>rl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2875	2987	
==>b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2875	2987	
==>b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2875	2987	
==>b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6472	6571	
==>tNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6472	6571	
==>tNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6472	6571	
==>tNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	79	176	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	79	176	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	79	176	
==>b File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4541	4692	
==>lob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4541	4692	
==>lob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4541	4692	
==>lob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "AR <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	455	566	
==>l eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	455	566	
==>l eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15228	15401	
==>ay->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15228	15401	
==>ay->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15228	15401	
==>ay->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22433	22546	
==>0
    .return ($P0)
  ws:
    self["subname"] = "ws"
    self["iscapture"] = 0
    .return (self)
.end

.namespace <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41134	41229	
==>, that supports embedding of Template modules into the same files as
program code, rather than r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41134	41229	
==>, that supports embedding of Template modules into the same files as
program code, rather than r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4566	4697	
==>:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8043	8174	
==>:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7036	7167	
==>:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1001	1152	
==>.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1001	1152	
==>.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1001	1152	
==>.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6119	6214	
==>d, 4, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10900	11003	
==>$S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11329	11432	
==>$S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27347	27452	
==>$tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects f <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	81	168	
==>pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Array:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6586	6703	
==>use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6717	6815	
==>, Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6729	6827	
==>, Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6776	6903	
==>return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6969	7096	
==>return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19279	19383	
==>ullary->new("str")),
		),
	),
);

# if we don't know what symbol it is we can't type it
my $no_such_sym = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1607	1727	
==>t class") if $class =~ /::anchor$/;

    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1224	1332	
==>_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6804	6932	
==>text switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7268	7396	
==>text switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	165	274	
==>y',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    target <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3366	3469	
==>:opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3366	3469	
==>:opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3366	3469	
==>:opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3779	3886	
==>map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7256	7363	
==>map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7631	7724	
==>e::variable::free') => sub { $_[1]->instantiate($_[0]) };

# an instantiated variable will uni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23375	23477	
==>to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23375	23477	
==>to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23375	23477	
==>to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4077	4184	
==>ach other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4077	4184	
==>ach other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16176	16282	
==>Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16176	16282	
==>Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16176	16282	
==>Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4542	4706	
==>->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1728	1839	
==><'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1739	1850	
==><'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'cons <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17788	17891	
==>');\n" if $kind;
    $code .= "use Perl6::Run::OnPerl5::X1::Api;\n";
    $code .= "use Error qw(:try);\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13015	13103	
==>dd_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13015	13103	
==>dd_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13015	13103	
==>dd_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_priv <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19076	19174	
==>the string "POSIX".  POSIX classes don't exist in a
regex outside of a character class, so I'm a li <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12591	12686	
==>er_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12591	12686	
==>er_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3859	3976	
==>= $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3859	3976	
==>= $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3859	3976	
==>= $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2236	2354	
==>and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2236	2354	
==>and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2236	2354	
==>and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14079	14239	
==>'@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14079	14239	
==>'@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14079	14239	
==>'@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	222	371	
==>reate_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	222	371	
==>reate_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	222	371	
==>reate_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6351	6470	
==>h});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1859	1992	
==>of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if ! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5336	5469	
==>of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if ! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4266	4399	
==>of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	856	994	
==>el)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	856	994	
==>el)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	856	994	
==>el)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8755	8860	
==>IL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8755	8860	
==>IL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8755	8860	
==>IL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1421	1520	
==>, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1421	1520	
==>, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1421	1520	
==>, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	935	1084	
==>pand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	935	1084	
==>pand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	935	1084	
==>pand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	664	797	
==>Tree.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree.new(: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3029	3162	
==>::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3040	3173	
==>::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8339	8458	
==>rray of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8339	8458	
==>rray of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8339	8458	
==>rray of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4166	4302	
==>0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4359	4495	
==>0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6658	6750	
==>rce = `cat parser_spike_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	669	780	
==>)=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	669	780	
==>)=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	669	780	
==>)=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1078	1187	
==>espaces. This is typically useful when your object belongs to a
package that is too close to the main namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1078	1187	
==>espaces. This is typically useful when your object belongs to a
package that is too close to the main namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1078	1187	
==>espaces. This is typically useful when your object belongs to a
package that is too close to the main namespac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10205	10348	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10205	10348	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10205	10348	
==>iption => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.re <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10234	10427	
==>>',
        body => sub {
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity => 3,
        name => '&print',
        body => sub {
            my $self = shift;
            m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	253	380	
==>t?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	253	380	
==>t?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.t <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2175	2321	
==>% 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        ret <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2175	2321	
==>% 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1151	1263	
==>ve());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || con <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7799	7898	
==>push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7799	7898	
==>push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1919	2033	
==>ild {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1919	2033	
==>ild {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4368	4483	
==>et;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4368	4483	
==>et;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
meth <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8222	8324	
==>IntegerLiteral> <ExponentPart>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroD <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4648	4755	
==>show numbers for some uneeded cases, but will
        # definately be helpful for things such as == and <= t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3554	3659	
==>l put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by settin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3554	3659	
==>l put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by settin <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	138	247	
==>t.
# (And some stuff stolen from prove, too.)

# Please improve me!
#
# TODO:
# 1. Modularize this.
# 2. Get t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11861	11964	
==>bjects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the mai <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11861	11964	
==>bjects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4703	4817	
==>hods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4703	4817	
==>hods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4703	4817	
==>hods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13145	13241	
==>d in void context the arguments are decoded in-place.

This routine is exported by default.

=ite <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13145	13241	
==>d in void context the arguments are decoded in-place.

This routine is exported by default.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2356	2454	
==>return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2356	2454	
==>return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2356	2454	
==>return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34786	34886	
==>len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34786	34886	
==>len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34786	34886	
==>len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5400	5507	
==>tation of the identity function, or

    sub { my $x = shift; $x }

applied to the value 10 (ultimately redu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17169	17265	
==>Hereafter, if any other package or application says that it uses
Locale::KeyedText, that is a ter <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17169	17265	
==>Hereafter, if any other package or application says that it uses
Locale::KeyedText, that is a ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10184	10285	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10184	10285	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10184	10285	
==>die("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12119	12211	
==>$::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12119	12211	
==>$::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12119	12211	
==>$::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2902	3041	
==>s[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2902	3041	
==>s[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2902	3041	
==>s[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2119	2225	
==>(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2119	2225	
==>(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2119	2225	
==>(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4055	4156	
==>sh!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4055	4156	
==>sh!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4055	4156	
==>sh!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcir <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8542	8636	
==>setta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8542	8636	
==>setta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16809	16907	
==>e object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the C <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16809	16907	
==>e object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the C <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2171	2268	
==>Token("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addToken("postfix:::", "po <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5069	5182	
==>xpr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5069	5182	
==>xpr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1973	2086	
==>xpr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam', <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51664	51888	
==>new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51053	51274	
==>new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3358	3450	
==>t of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3358	3450	
==>t of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16761	16899	
==>$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$class:')), $e->get( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3170	3282	
==>turn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3170	3282	
==>turn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3170	3282	
==>turn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operati <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	413	517	
==>tements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	619	723	
==>tements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2008	2129	
==>urn $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2008	2129	
==>urn $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	525	622	
==>ch + 0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4363	4486	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4363	4486	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4363	4486	
==>dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5404	5512	
==>ub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5404	5512	
==>ub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5404	5512	
==>ub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9052	9145	
==>@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2877	2970	
==>@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { G <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1062	1198	
==>IL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1062	1198	
==>IL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1062	1198	
==>IL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10152	10286	
==>lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10152	10286	
==>lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10152	10286	
==>lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2362	2456	
==>_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $symmetrica <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15550	15642	
==>t the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all char <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15550	15642	
==>t the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all char <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27436	27547	
==>em)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6757	6855	
==>h> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6757	6855	
==>h> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3783	3899	
==>t',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3783	3899	
==>t',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	633	749	
==>t',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3190	3302	
==>ree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3190	3302	
==>ree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3190	3302	
==>ree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1519	1632	
==>args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1519	1632	
==>args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1519	1632	
==>args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1959	2071	
==>sed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1641	1749	
==>sed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2289	2397	
==>sed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	952	1078	
==>l_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	952	1078	
==>l_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	952	1078	
==>l_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4462	4558	
==>ead2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4712	4808	
==>ead2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2359	2472	
==>); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2359	2472	
==>); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2359	2472	
==>); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9854	9984	
==>that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2886	3016	
==>that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1479	1605	
==>d();
    unless( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] );
        return;
    }

    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1942	2058	
==>pen( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2159	2275	
==>pen( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9625	9730	
==>($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9625	9730	
==>($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11850	11950	
==>::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	(my $cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	613	735	
==>2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bareword <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	114	363	
==>:KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	114	363	
==>:KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11834	12060	
==>=> 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11834	12060	
==>=> 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11352	11481	
==>output .= "$text <a href='$linkfile'>$whole</a>";
        $links++;
        next;
      }
      
      $linkhead = $1 if ($linkhea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5869	5975	
==>ash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	224	320	
==>@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	224	320	
==>@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4497	4598	
==>assing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4497	4598	
==>assing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6694	6795	
==>assing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20619	20713	
==>ass) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY) <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6450	6598	
==>],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASE <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8616	8727	
==>ntity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8616	8727	
==>ntity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1361	1506	
==>erm '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signature_term attr
    #     { $_[0]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7085	7192	
==>gram); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7097	7204	
==>gram); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	937	1056	
==>f ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	937	1056	
==>f ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1839	1943	
==>ative;
    list->new(values %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($self <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	350	470	
==>umber
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2201	2320	
==>{
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $use <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2201	2320	
==>{
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	453	556	
==>f the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	453	556	
==>f the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	453	556	
==>f the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1069	1169	
==>:PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod B <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1069	1169	
==>:PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35489	35576	
==>cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40039	40126	
==>cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11665	11763	
==>eys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11665	11763	
==>eys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11665	11763	
==>eys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7144	7239	
==>ole
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7144	7239	
==>ole
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7144	7239	
==>ole
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11568	11691	
==>%params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11568	11691	
==>%params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11568	11691	
==>%params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	330	420	
==>= $config->root->subdir( 'repo' );

system( qw[rm -rf], $config->root, $config->build_dir . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16778	16901	
==>false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16778	16901	
==>false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16778	16901	
==>false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	620	741	
==>ten first";
	}

	sub type {
		my $self = shift;
		my $type = $self->SUPER::type;

		# this method always returns the shall <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7951	8049	
==>PTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7951	8049	
==>PTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	111	284	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	111	284	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	111	284	
==>ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10688	10838	
==>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10688	10838	
==>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10688	10838	
==>store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7005	7104	
==>We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7005	7104	
==>We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7005	7104	
==>We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4504	4603	
==>return $meta;
}

=head2 package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=c <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1600	1696	
==>x:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @Mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1600	1696	
==>x:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @Mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	322	426	
==>bject thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	322	426	
==>bject thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	322	426	
==>bject thing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2973	3091	
==>y $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2973	3091	
==>y $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2973	3091	
==>y $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1259	1373	
==>$count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1259	1373	
==>$count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1259	1373	
==>$count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1805	1911	
==>if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1805	1911	
==>if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1805	1911	
==>if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	404	520	
==>stant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	383	480	
==>$code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	383	480	
==>$code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2626	2810	
==>r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2626	2810	
==>r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19270	19374	
==>@res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_th <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4770	4893	
==>(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4770	4893	
==>(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23748	23835	
==>e_at_n_if_undef(0,Replace,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	280	396	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	280	396	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	280	396	
==>suous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	709	817	
==>],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	709	817	
==>],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	709	817	
==>],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8787	8890	
==>_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8787	8890	
==>_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8787	8890	
==>_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defaul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	576	670	
==>S.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	576	670	
==>S.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	576	670	
==>S.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	928	1043	
==>pe("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_cat',
			type => type( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11163	11262	
==>al eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11163	11262	
==>al eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1795	1915	
==>ot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1795	1915	
==>ot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2031	2151	
==>ot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33996	34093	
==>'t supported by a program or its libraries.
When translating a message, a match in found in the mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33996	34093	
==>'t supported by a program or its libraries.
When translating a message, a match in found in the mo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16706	16852	
==>t>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16985	17131	
==>t>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2281	2378	
==>return $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1416	1596	
==>') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = () <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	579	709	
==>d inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	579	709	
==>d inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2893	3016	
==>ngle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2893	3016	
==>ngle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2893	3016	
==>ngle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3719	3864	
==>ss $avail{ $depends->{package} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	130	219	
==>push_header init_header remove_header remove_content_headers header_field_names scan
    d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	130	219	
==>push_header init_header remove_header remove_content_headers header_field_names scan
    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4513	4617	
==>nal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4513	4617	
==>nal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5103	5207	
==>nal args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17014	17142	
==>ses
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10024	10129	
==>(my $node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it returns the ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1982	2085	
==>e::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10718	10848	
==>@param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10718	10848	
==>@param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10718	10848	
==>@param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3181	3329	
==>=> 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3056	3199	
==>=> 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^ <==
3	/Users/nnunley/pugs/util/addauthors.pl	664	777	
==>r) {
    # Time for some hurestics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13139	13285	
==>f->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13139	13285	
==>f->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13139	13285	
==>f->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1204	1300	
==>er) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1204	1300	
==>er) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1204	1300	
==>er) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1367	1488	
==>'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $self->version_from($file <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	58	158	
==>a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.revers <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	58	158	
==>a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.revers <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33588	33862	
==>:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3344	3537	
==>s};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'unde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3484	3677	
==>s};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'unde <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9627	9743	
==>c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    re <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9627	9743	
==>c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    re <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5905	6018	
==>pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can stop this program by hitting ^C (<Ctrl>+<C> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1659	1763	
==>VarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1659	1763	
==>VarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1659	1763	
==>VarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14297	14411	
==>0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $refty <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3557	3660	
==>rray --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3925	4028	
==>rray --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15081	15190	
==>> sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3105	3207	
==>mple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3105	3207	
==>mple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $e <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	522	655	
==>->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3948	4044	
==>' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3948	4044	
==>' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	784	912	
==>) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if defined $tok;
        @tokens.p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	346	452	
==>rammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	346	452	
==>rammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9450	9580	
==>Ops::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20741	20850	
==>_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1837	1950	
==>fix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1837	1950	
==>fix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1837	1950	
==>fix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Er <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2235	2346	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2235	2346	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2235	2346	
==>fely ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_fi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13483	13628	
==>_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13483	13628	
==>_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	920	1063	
==>die "$?";
        chdir $builddir or die "Could not chdir to $builddir: $!";
    }

    ### build an archive file
    my $archive = $path . $Ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14693	14854	
==>$array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14693	14854	
==>$array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14693	14854	
==>$array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12645	12869	
==>y;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12645	12869	
==>y;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12645	12869	
==>y;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7478	7658	
==>ch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7478	7658	
==>ch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7478	7658	
==>ch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	830	925	
==>s
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	830	925	
==>s
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	830	925	
==>s
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3665	3767	
==>($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3665	3767	
==>($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3665	3767	
==>($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10384	10508	
==>OUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2405	2517	
==>OUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2405	2517	
==>OUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30558	30663	
==>S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no predecessor 'c', so th <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5561	5665	
==>the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5561	5665	
==>the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4309	4406	
==>}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4309	4406	
==>}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4309	4406	
==>}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contig <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4613	4712	
==>ciphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not n <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4613	4712	
==>ciphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	344	429	
==>LSO

L<JIB::Config>, L<JIB::Installation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	259	376	
==>base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough e <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3892	3997	
==>File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    } <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3892	3997	
==>File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1617	1714	
==>paque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1617	1714	
==>paque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1617	1714	
==>paque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3330	3486	
==>tch: $matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3224	3376	
==>tch: $matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10467	10599	
==>erolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6328	6466	
==>ass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6328	6466	
==>ass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6328	6466	
==>ass' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8053	8196	
==>q 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8065	8208	
==>q 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1087	1220	
==>on =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($versi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	966	1099	
==>on =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	110	237	
==>kage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	110	237	
==>kage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	110	237	
==>kage PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	119	237	
==>load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	119	237	
==>load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	119	237	
==>load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5518	5624	
==>.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5518	5624	
==>.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5518	5624	
==>.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9216	9327	
==>users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # R <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9216	9327	
==>users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # R <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6412	6506	
==>ethod ((opaque $self:) (symbol $label) (method $method)) returns nil
    ((($self: get_attr (sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2809	2943	
==>: sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2809	2943	
==>: sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2809	2943	
==>: sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$dec <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	172	268	
==>$person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
name $person = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4783	4874	
==>, ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attrib <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4783	4874	
==>, ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attrib <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2922	3029	
==>e( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a messa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2922	3029	
==>e( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a messa <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5197	5291	
==>local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5042	5170	
==>->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5042	5170	
==>->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5632	5760	
==>->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8106	8247	
==>de = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7828	7963	
==>de = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3523	3620	
==>f every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3523	3620	
==>f every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::M <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17506	17597	
==>es(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1328	1476	
==>!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1328	1476	
==>!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_un <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13549	13674	
==>p, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13549	13674	
==>p, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1716	1816	
==>p);

    my $received = $self->leave_scope;

	die "Thunk is accepting $received parameters, while App <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4209	4299	
==>he factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4209	4299	
==>he factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6406	6496	
==>he factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> and <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8884	9006	
==>_path/parrot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	857	956	
==>install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	857	956	
==>install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22306	22405	
==>uch.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is du <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22306	22405	
==>uch.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is du <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	5	98	
==>r/bin/perl

package Blondie::Runtime::Nada;
use base qw/Blondie::Runtime/;

use strict;
use wa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	91	184	
==>te_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	91	184	
==>te_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	121	230	
==>::Dumper::Indent = 1;

sub _mangle_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1). <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6194	6286	
==>od::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6194	6286	
==>od::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	640	769	
==>NESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Some experimental versions of OS/2 build have broken <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10844	10942	
==>ield will remain unchanged.

The old value (or values) of the last of the header fields is returned <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10844	10942	
==>ield will remain unchanged.

The old value (or values) of the last of the header fields is returned <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6803	6905	
==>5"} || %mods{"P5"};
    #my sub warning($e){warn(Carp::longmess($e))};# XXX doesnt work yet.
    my sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18177	18270	
==>d be
looking at.

This section describes the rather complex algorithm that
Module::Compile use <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18177	18270	
==>d be
looking at.

This section describes the rather complex algorithm that
Module::Compile use <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2659	2811	
==>is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when :: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2659	2811	
==>is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	693	825	
==>ance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	693	825	
==>ance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	693	825	
==>ance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3627	3812	
==>'prefered' package
                my $link_this   = 1;
                my $unlink_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1661	1759	
==>t $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1661	1759	
==>t $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11435	11617	
==>atch = $op->( @_ );
        return if $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19942	20037	
==>ontext it will
return I<"uname:password"> as a single string value.

When used to set the header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19942	20037	
==>ontext it will
return I<"uname:password"> as a single string value.

When used to set the header <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1320	1440	
==>> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1320	1440	
==>> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $sp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5144	5294	
==>],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $mat <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8482	8619	
==>804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8482	8619	
==>804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	444	551	
==>ict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	438	545	
==>ict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12877	12975	
==>C], p6_named_character_tail(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
br <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8664	8782	
==>0 < pos goto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16234	16343	
==>me - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16234	16343	
==>me - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media typ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19600	19695	
==>you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19600	19695	
==>you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	804	897	
==>1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23005	23116	
==>p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23005	23116	
==>p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23005	23116	
==>p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7795	7958	
==>$maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $ma <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7795	7958	
==>$maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	184	303	
==>_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_array { }


sub match_hash { }


sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	577	680	
==>e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	577	680	
==>e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	577	680	
==>e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5058	5166	
==>defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5058	5166	
==>defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	772	878	
==>", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	860	966	
==>", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6167	6264	
==>tate(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11407	11577	
==>:Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11407	11577	
==>:Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11407	11577	
==>:Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	338	454	
==>nlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	338	454	
==>nlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	338	454	
==>nlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3480	3624	
==>atures = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->fea <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9308	9410	
==>%!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9308	9410	
==>%!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6424	6537	
==>ple in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6208	6318	
==>ple in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $mat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1270	1368	
==>PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/bl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3230	3327	
==>e the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3230	3327	
==>e the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $cont <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1255	1360	
==>NOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTOR <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1255	1360	
==>NOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10721	10855	
==>ram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10721	10855	
==>ram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10721	10855	
==>ram );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1570	1688	
==>elf;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1570	1688	
==>elf;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1570	1688	
==>elf;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3416	3541	
==>name ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = spl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3416	3541	
==>name ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = spl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8331	8440	
==>/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unexpec <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	244	350	
==>wo) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	244	350	
==>wo) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.uni <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7635	7740	
==>w (%:methods))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18837	18973	
==>$Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18837	18973	
==>$Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18837	18973	
==>$Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2656	2742	
==>"--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2656	2742	
==>"--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2656	2742	
==>"--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15258	15434	
==>values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15258	15434	
==>values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15258	15434	
==>values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2587	2700	
==>and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2587	2700	
==>and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2587	2700	
==>and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2463	2586	
==>th);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2463	2586	
==>th);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2646	2750	
==>e{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') {
    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	766	884	
==>Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, tur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	727	838	
==>Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, tur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6278	6382	
==>];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special case Does
# to avoid endles <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9984	10082	
==>s a work in progress. As new features are
added to Pugs, new test functions will be defined to faci <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10042	10140	
==>s a work in progress. As new features are
added to Pugs, new test functions will be defined to faci <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	757	876	
==>$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	757	876	
==>$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	757	876	
==>$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	308	423	
==>ackage Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6868	6981	
==>PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6868	6981	
==>PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6868	6981	
==>PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = ar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1543	1660	
==>ift;

    $self->enter_scope;
    my @params = $self->params;

    # the body is a code ref
    my $v = $prim->body->( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32672	32767	
==>ngs, using data from external Template modules as a template.
The Translator class as a whole is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32672	32767	
==>ngs, using data from external Template modules as a template.
The Translator class as a whole is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	760	867	
==>INUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a corouti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	760	867	
==>INUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a corouti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	760	867	
==>INUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a corouti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13158	13277	
==>{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13158	13277	
==>{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13515	13632	
==>ng \"$initrd_img\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Pl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12928	13069	
==>n.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16405	16546	
==>n.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15767	15908	
==>n.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2594	2706	
==>ods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2594	2706	
==>ods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2594	2706	
==>ods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1052	1301	
==>}
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Lo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1052	1301	
==>}
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Lo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	612	786	
==>ed value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	612	786	
==>ed value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13587	13682	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13587	13682	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13587	13682	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4085	4240	
==>CE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4085	4240	
==>CE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4085	4240	
==>CE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21953	22047	
==>single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a spec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26505	26599	
==>single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a spec <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25982	26067	
==>([X|Xs],[L|Ls]) :- listify(X,L), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6577	6730	
==>");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6577	6730	
==>");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6577	6730	
==>");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
packa <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8586	8691	
==>f trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8586	8691	
==>f trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will r <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5311	5412	
==>exdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_clo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	546	661	
==>0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	524	637	
==>0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5393	5488	
==>ll the Class method
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

is( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	143	256	
==>pan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	143	256	
==>pan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	143	256	
==>pan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5933	6104	
==>match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5933	6104	
==>match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5933	6104	
==>match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2186	2290	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2186	2290	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2186	2290	
==>erl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14840	14970	
==>array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14840	14970	
==>array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14840	14970	
==>array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11589	11847	
==>w(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17192	17312	
==>aults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler(" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17192	17312	
==>aults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler(" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3633	3740	
==>MPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3633	3740	
==>MPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	440	546	
==>upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why yo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	440	546	
==>upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why yo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5456	5573	
==>atically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5456	5573	
==>atically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5456	5573	
==>atically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11242	11342	
==>LDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11242	11342	
==>LDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11242	11342	
==>LDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2149	2261	
==>to_native . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	555	804	
==>: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	555	804	
==>: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4423	4523	
==>to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4423	4523	
==>to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19892	19983	
==>(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19892	19983	
==>(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19892	19983	
==>(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4985	5249	
==>ray::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $le <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	609	750	
==>},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	706	847	
==>},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1288	1394	
==>param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1288	1394	
==>param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1497	1603	
==>param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8393	8577	
==>lf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8393	8577	
==>lf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8393	8577	
==>lf->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	559	665	
==>bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must deal with Inf and NaN
    no warnings 'nume <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3853	3947	
==>ence(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3853	3947	
==>ence(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7169	7275	
==>"Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7169	7275	
==>"Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1376	1494	
==>ttrList :%attrs? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.map:{ ( .key => 
            (.valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14858	14971	
==>_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14858	14971	
==>_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3378	3500	
==>new {
	my $class = shift;
	bless {}, $class;
}

package type::operator::nullary;
use base qw/type::operator/;

sub new {
	m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	821	914	
==>r';
use constant RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27550	27658	
==>$s);
	my $ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $res = eva <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24353	24451	
==>g.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28905	29003	
==>g.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3171	3317	
==>if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3171	3317	
==>if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3171	3317	
==>if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	888	1041	
==>ept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	888	1041	
==>ept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6548	6687	
==>X';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26997	27093	
==>e complement subset of the original's attributes to what C<project> would
return given the same C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31549	31645	
==>e complement subset of the original's attributes to what C<project> would
return given the same C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30605	30701	
==>e complement subset of the original's attributes to what C<project> would
return given the same C <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18470	18587	
==>_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun => i <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2869	2975	
==>dl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make thi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2869	2975	
==>dl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	454	558	
==>igrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	454	558	
==>igrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	454	558	
==>igrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11192	11292	
==>ould need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11192	11292	
==>ould need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11192	11292	
==>ould need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but a <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	690	789	
==>le::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13196	13302	
==>dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13196	13302	
==>dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13196	13302	
==>dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32205	32303	
==>plicated tuples appear only once in
the result.  With any 2 relations, the result is the same regar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36755	36853	
==>plicated tuples appear only once in
the result.  With any 2 relations, the result is the same regar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36045	36143	
==>plicated tuples appear only once in
the result.  With any 2 relations, the result is the same regar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13868	13999	
==>{},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13868	13999	
==>{},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13868	13999	
==>{},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	83	178	
==>er';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Dev <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	83	178	
==>er';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Dev <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	83	178	
==>er';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Dev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4528	4700	
==>) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4528	4700	
==>) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4528	4700	
==>) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9174	9284	
==>bmethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipherin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9174	9284	
==>bmethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipherin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13914	14011	
==>.) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatched )

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13667	13789	
==>}        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13667	13789	
==>}        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13667	13789	
==>}        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5303	5406	
==>f we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5303	5406	
==>f we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5303	5406	
==>f we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9098	9276	
==>ference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12575	12753	
==>ference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11811	11989	
==>ference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiffer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	150	244	
==>the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	150	244	
==>the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	150	244	
==>the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8482	8613	
==>),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8187	8310	
==>),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1962	2071	
==>e subclasses
        foreach my $superclass (@{$class->superclasses}) {
           $output .= "node_" . $super <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2328	2461	
==>racted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        ta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2238	2367	
==>racted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        ta <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4325	4518	
==>setta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     : <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4325	4518	
==>setta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     : <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2213	2319	
==>itional security or memory problems.

Tainting information is discarded.

The perl5 regexp engine is entang <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9458	9594	
==>";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9458	9594	
==>";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5836	5966	
==>r of individual todo tests unexpectedly passed
    max             Number of individual tests ran
    ok              Number of ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20142	20306	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20142	20306	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20142	20306	
==>eturn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6499	6606	
==>ibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "I <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6499	6606	
==>ibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "I <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	803	953	
==>root';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	478	585	
==>}
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	478	585	
==>}
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
s <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	443	544	
==>a file and
specify this file as parameter.
Output will go to STDOUT in PNG format.
INFO

# Read the lo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1719	1828	
==>urn;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1661	1759	
==>self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1661	1759	
==>self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39378	39490	
==>y $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39378	39490	
==>y $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39378	39490	
==>y $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UN <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	763	884	
==>multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	763	884	
==>multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1298	1419	
==>s undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} = $@, return if $@;

  # reset things <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1289	1411	
==>: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1289	1411	
==>: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	387	482	
==>JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	387	482	
==>JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	387	482	
==>JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1281	1390	
==>lf: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_clos <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1281	1390	
==>lf: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_clos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	275	384	
==>shift;
    my $src = shift;
    my ( $ast, $tail ) = Pugs::Grammar::Expression::ast( $src );
    return Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1302	1396	
==>ew PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1302	1396	
==>ew PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1302	1396	
==>ew PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	911	1043	
==>unction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	911	1043	
==>unction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	911	1043	
==>unction (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done w <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	641	755	
==>=    $max > $try ?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $sizeof_crowd, Array @x?) retur <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4269	4365	
==>ified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym fo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4269	4365	
==>ified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym fo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	399	494	
==>h.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	399	494	
==>h.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pil <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	380	495	
==>nstead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not " <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	380	495	
==>nstead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not " <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3380	3477	
==>_[0]->{$_} } qw<pugs_version osname runcore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "de <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15684	15835	
==>ge with info table
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1201	1297	
==>evel of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optio <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1201	1297	
==>evel of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5742	5843	
==>$obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5742	5843	
==>$obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5742	5843	
==>$obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion filter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11688	11805	
==>ce they
are just instances of Class which does Role too. So this means that all classes
and roles can be polymorphic t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11688	11805	
==>ce they
are just instances of Class which does Role too. So this means that all classes
and roles can be polymorphic t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11688	11805	
==>ce they
are just instances of Class which does Role too. So this means that all classes
and roles can be polymorphic t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	504	633	
==>e => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4032	4128	
==>get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.comple <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4032	4128	
==>get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13118	13216	
==>$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13118	13216	
==>$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13118	13216	
==>$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1554	1659	
==>{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1554	1659	
==>{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21041	21135	
==>F,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1319	1418	
==>S_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1319	1418	
==>S_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1319	1418	
==>S_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7319	7422	
==>ttr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7319	7422	
==>ttr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7319	7422	
==>ttr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8451	8616	
==>t ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4811	4976	
==>t ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5660	5825	
==>t ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1564	1668	
==>g_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1552	1656	
==>g_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38780	38881	
==>Example that has the
same heading as the invocant and whose body contains all of the tuples that
are i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2905	3003	
==>as a list.  The order in which they were
present in the query string is preserved.

=item C<$q.para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2905	3003	
==>as a list.  The order in which they were
present in the query string is preserved.

=item C<$q.para <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1421	1600	
==>3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode ( <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1421	1600	
==>3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14583	14685	
==>| <'++'> <UnaryExpression>
    | <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'-'> <Un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1044	1156	
==>("SHA-1");
	$digest->add($c_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} ||= $self->generate_inline_c($c_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14090	14224	
==>= $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14090	14224	
==>= $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14090	14224	
==>= $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2782	2892	
==>om() + 1);
  }
  return $matchObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8042	8167	
==>aseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions faile <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8042	8167	
==>aseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions faile <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8042	8167	
==>aseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions faile <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1010	1101	
==>nt-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1010	1101	
==>nt-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_he <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	752	842	
==>xp::Common;
use Data::Dumper;

# --------------------------------------------------
# Regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	277	371	
==>}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	277	371	
==>}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	277	371	
==>}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PV <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11723	11837	
==>n"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2155	2259	
==>n"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2155	2259	
==>n"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3488	3605	
==>solved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3952	4069	
==>solved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32472	32566	
==>ocant
Relation::Example attribute names, or duplicate any other value set members.  This
method <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40800	40895	
==>d any time you create a
modified version of Locale::KeyedText that you are willing to distribute <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40800	40895	
==>d any time you create a
modified version of Locale::KeyedText that you are willing to distribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26037	26128	
==>re Relation::Example attribute names that
define the heading of this Relation::Example.  Eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	46	142	
==>e FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	46	142	
==>e FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	46	142	
==>e FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1229	1338	
==>],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1229	1338	
==>],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1229	1338	
==>],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5353	5485	
==>ash,
  "linuxrc=s"      => \$linuxrc,
  "welcome-p6=s"   => \$welcome_p6,
  "initrd-gz=s"    => \$initrd_gz,
  "initrd-img=s"   => \$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	352	460	
==>sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	352	460	
==>sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6781	6902	
==>';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my($o)=@_;
    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11105	11199	
==>$parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B< <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11105	11199	
==>$parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	133	234	
==>sed
# XXX - see Pugs::Grammar::BaseCategory ws()

# placeholder for the Pod grammar

# XXX Pod can onl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13746	13846	
==>emperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13746	13846	
==>emperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6035	6126	
==>F, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6035	6126	
==>F, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6035	6126	
==>F, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == unde <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3164	3264	
==>rl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3357	3457	
==>rl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19697	19792	
==>t,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3727	3825	
==>@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3727	3825	
==>@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3727	3825	
==>@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4147	4275	
==>= args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4147	4275	
==>= args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4147	4275	
==>= args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6728	6867	
==>unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6728	6867	
==>unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6728	6867	
==>unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7475	7646	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7475	7646	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7475	7646	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13924	14045	
==>cted {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13924	14045	
==>cted {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel" <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4054	4152	
==>!.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	833	954	
==>en Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	833	954	
==>en Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	833	954	
==>en Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9417	9517	
==>:

  my $capture_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree, c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14699	14798	
==>ed later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but el <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14699	14798	
==>ed later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but el <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1707	1825	
==>turing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop:: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7574	7692	
==>er::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1718	1836	
==>turing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9933	10050	
==>I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'tex <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9933	10050	
==>I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'tex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23653	23746	
==>'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23653	23746	
==>'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2717	2872	
==>gs};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2857	3012	
==>gs};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2594	2696	
==>ar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4412	4553	
==>"S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4412	4553	
==>"S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4412	4553	
==>"S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "met <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2523	2646	
==>= @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2523	2646	
==>= @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10807	10903	
==>2PERL5LIB;

Takes the current value of C<@INC> and turns it into something suitable
for putting o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11086	11184	
==>rsion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11086	11184	
==>rsion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which No <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8913	9010	
==>Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression --> Laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7571	7791	
==>ody->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7571	7791	
==>ody->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7571	7791	
==>ody->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Pe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3943	4051	
==>sa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Dispatchable <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6595	6696	
==>path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_b <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6595	6696	
==>path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30337	30436	
==>ose attributes
(provided in C<$heading>) may or may not resemble those of the original. 
The anonymo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34889	34987	
==>ose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34071	34169	
==>ose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3996	4127	
==>nknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3996	4127	
==>nknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Co <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7219	7318	
==>1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36529	36622	
==>ge object as its positional
parameter $message and returns an equivalent human readable text m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36529	36622	
==>ge object as its positional
parameter $message and returns an equivalent human readable text m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25795	25881	
==>pe = type::operator::nary->new(list => type::variable::free->new);
	is($type->stringify <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7853	7947	
==>tch
C<$index ~~ any(@indextests)> are iterated.

What is returned at each element of the iterat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1611	1719	
==>ind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile_to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3889	3989	
==>atches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3889	3989	
==>atches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16029	16156	
==>.};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16029	16156	
==>.};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16029	16156	
==>.};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14279	14416	
==>return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14279	14416	
==>return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14279	14416	
==>return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4193	4302	
==>]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4193	4302	
==>]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4193	4302	
==>]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      // <==
3	/Users/nnunley/pugs/util/package-osx.pl	6323	6420	
==>pm
        /usr/local/man/man3/Perl6::Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overvi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15793	15889	
==>o make a request conditional.  If the requested
resource has (or has not) been modified since the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15793	15889	
==>o make a request conditional.  If the requested
resource has (or has not) been modified since the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	314	419	
==>8-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	314	419	
==>8-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	314	419	
==>8-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5225	5320	
==>uiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->declare($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37855	37947	
==>dule by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37855	37947	
==>dule by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18015	18220	
==>lf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18015	18220	
==>lf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18015	18220	
==>lf->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13751	13893	
==>ub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13751	13893	
==>ub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13751	13893	
==>ub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending sh <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3177	3278	
==>new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is inten <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3177	3278	
==>new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is inten <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6568	6663	
==>4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3547	3693	
==>ined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3547	3693	
==>ined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3547	3693	
==>ined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scal <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8434	8549	
==>join("",$o->data);
    my $len = length($s);
    if($o->{'flags'} & $o->flag_val_i) {
      my $pat = $s;
      $pat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1892	1984	
==>ass Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1892	1984	
==>ass Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler: <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2905	3041	
==>ructure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
}

sub set_bu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8785	8891	
==>tr( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8785	8891	
==>tr( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	917	1027	
==>Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	917	1027	
==>Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	917	1027	
==>Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6118	6218	
==>s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6118	6218	
==>s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6118	6218	
==>s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	96	200	
==>PED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	96	200	
==>PED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	96	200	
==>PED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (demiu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3968	4105	
==>n {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4161	4298	
==>n {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1646	1778	
==>ken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1646	1778	
==>ken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1646	1778	
==>ken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5567	5666	
==>acter  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule simple_chara <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20069	20164	
==>ine and is included in the "Rosetta" core
distribution to allow the core to be completely testab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20069	20164	
==>ine and is included in the "Rosetta" core
distribution to allow the core to be completely testab <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16739	16857	
==>($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is sa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36420	36518	
==>init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->errmsg;
  print "VISUAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6126	6253	
==>efined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6126	6253	
==>efined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6126	6253	
==>efined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5185	5293	
==>rs {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5185	5293	
==>rs {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5185	5293	
==>rs {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4468	4562	
==>ersion 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4468	4562	
==>ersion 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8968	9109	
==>$method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8968	9109	
==>$method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8968	9109	
==>$method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefin <==
3	/Users/nnunley/pugs/util/package-osx.pl	165	269	
==>er make install'ing pugs and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	729	823	
==>0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	ev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	729	823	
==>0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	ev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6756	6905	
==>/;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6756	6905	
==>/;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3348	3521	
==>ge
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3348	3521	
==>ge
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corr <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1178	1340	
==>val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = shift;
        Digest->compute($self);
    }

    package Env;
    use b <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	403	583	
==>$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflow\n";
        my $y = pop @stack;
        defin <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1683	1780	
==>ope).
If no $num or $name is given, a new scope is introduced but the resulting object
is discarde <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1683	1780	
==>ope).
If no $num or $name is given, a new scope is introduced but the resulting object
is discarde <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	528	644	
==>d any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	528	644	
==>d any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3556	3662	
==>nyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos (las <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7433	7590	
==>| <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2338	2435	
==>.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2338	2435	
==>.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22148	22268	
==>SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22148	22268	
==>SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22148	22268	
==>SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5433	5537	
==>pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pSyms, $pStmts) {
    my(@vars);
    for <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	313	416	
==>to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# pus <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	313	416	
==>to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# pus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18848	18976	
==>a} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20206	20334	
==>a} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38728	38823	
==><Set>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3613	3735	
==>_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3613	3735	
==>_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3613	3735	
==>_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$baren <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2285	2459	
==>d 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signatu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13800	13917	
==>umbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13800	13917	
==>umbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6015	6147	
==>{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6015	6147	
==>{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6015	6147	
==>{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22016	22111	
==>e tuple respectively have a special meaning in relational algebra which
is analagous to what the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26568	26663	
==>e tuple respectively have a special meaning in relational algebra which
is analagous to what the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25264	25359	
==>e tuple respectively have a special meaning in relational algebra which
is analagous to what the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1473	1577	
==>d($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1473	1577	
==>d($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1473	1577	
==>d($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1075	1184	
==>p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1075	1184	
==>p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1075	1184	
==>p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	591	697	
==>umber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	591	697	
==>umber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	591	697	
==>umber.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24045	24194	
==>xists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24045	24194	
==>xists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24045	24194	
==>xists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31203	31298	
==>ation
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> ope <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35753	35848	
==>ation
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3384	3511	
==>a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3384	3511	
==>a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3384	3511	
==>a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5530	5623	
==>k

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5530	5623	
==>k

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7727	7820	
==>k

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16595	16692	
==>application the maximum amount of control as
to what the user sees; it never outputs anything by i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16595	16692	
==>application the maximum amount of control as
to what the user sees; it never outputs anything by i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8184	8274	
==>WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8184	8274	
==>WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8184	8274	
==>WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	491	579	
==>---------------------------------------------------------------------------
## Eigenclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	491	579	
==>---------------------------------------------------------------------------
## Eigenclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	491	579	
==>---------------------------------------------------------------------------
## Eigenclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1680	1784	
==>>unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1680	1784	
==>>unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1680	1784	
==>>unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2804	2920	
==>-1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2804	2920	
==>-1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2804	2920	
==>-1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2465	2594	
==>ew( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2605	2734	
==>ew( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: gra <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	782	901	
==>my $self = shift;

    $self->runtime(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({} <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1685	1842	
==>)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2a <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1685	1842	
==>)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33923	34015	
==>of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I<anyof_close>

= <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1931	2043	
==>\synstr{';
	    while (scalar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2538	2632	
==>don't yet have object support, this module is more like the
Perl 5 File::Spec::Functions module <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2538	2632	
==>don't yet have object support, this module is more like the
Perl 5 File::Spec::Functions module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3168	3275	
==>function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3168	3275	
==>function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3168	3275	
==>function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2249	2456	
==>ash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5726	5933	
==>ash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4656	4863	
==>ash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	6	123	
==>rnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	6	123	
==>rnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	6	123	
==>rnings;
use strict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9070	9189	
==>urn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12926	13039	
==>urn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12926	13039	
==>urn sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7844	7949	
==>ld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7844	7949	
==>ld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7844	7949	
==>ld not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1405	1540	
==>e($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1405	1540	
==>e($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1405	1540	
==>e($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	163	266	
==>emp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	163	266	
==>emp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	163	266	
==>emp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	168	291	
==>>{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	168	291	
==>>{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	168	291	
==>>{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	389	495	
==>'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	389	495	
==>'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5582	5681	
==>bug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5582	5681	
==>bug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3459	3574	
==>name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3459	3574	
==>name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3459	3574	
==>name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1277	1417	
==>ut= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    [' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2828	2917	
==>module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2828	2917	
==>module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3079	3209	
==>value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3079	3209	
==>value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3079	3209	
==>value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13696	13815	
==>"<tmpl_var name=link>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	392	503	
==>e place where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	392	503	
==>e place where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5735	5844	
==>t_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_da <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3071	3180	
==>t_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3920	4029	
==>t_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21528	21636	
==>, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21528	21636	
==>, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21528	21636	
==>, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4973	5083	
==>_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4973	5083	
==>_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1877	1987	
==>_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31538	31632	
==>specific
to it, another library likewise, and a program which uses both libraries
could have ye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31538	31632	
==>specific
to it, another library likewise, and a program which uses both libraries
could have ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2231	2353	
==>= 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2231	2353	
==>= 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2231	2353	
==>= 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20311	20455	
==>Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20311	20455	
==>Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20311	20455	
==>Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Ar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12269	12365	
==>new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12269	12365	
==>new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35550	35661	
==>lse {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35550	35661	
==>lse {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35550	35661	
==>lse {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9994	10160	
==>$sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$list <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9994	10160	
==>$sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$list <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9994	10160	
==>$sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6360	6497	
==>ce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6360	6497	
==>ce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6360	6497	
==>ce => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2002	2159	
==>if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2002	2159	
==>if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2002	2159	
==>if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34357	34472	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34357	34472	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34357	34472	
==>if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4302	4415	
==>or 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4302	4415	
==>or 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12219	12311	
==>ame=ok> ok"><tmpl_var name=ok></span>,</td>
	      <td class="num tests_failed"><span title=" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2761	2860	
==>s->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2761	2860	
==>s->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2761	2860	
==>s->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11090	11276	
==>tch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8154	8330	
==>tch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8154	8330	
==>tch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6546	6694	
==>} else {
        %from = ( $from => $to );
    }
   
    while( my($orig,$target) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3551	3651	
==>ontext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3551	3651	
==>ontext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3551	3651	
==>ontext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2859	2989	
==>assoc => 'left',
        precedence => 'looser',
        other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dump <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4243	4356	
==>submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4243	4356	
==>submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13911	14022	
==>piX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13911	14022	
==>piX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13911	14022	
==>piX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1088	1187	
==>imeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$rep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1088	1187	
==>imeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$rep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1088	1187	
==>imeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$rep <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5163	5298	
==>nf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $resu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5163	5298	
==>nf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $resu <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1843	1942	
==>us\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n" <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	286	399	
==>---

my %Cookies;

sub CookiesInit() {
    %Cookies=();
    if (%*ENV{'HTTP_COOKIE'} ne '') {
        for (split(r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5088	5195	
==>n.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5088	5195	
==>n.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10877	11081	
==>ed > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10877	11081	
==>ed > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10877	11081	
==>ed > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4655	4759	
==>checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4655	4759	
==>checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4655	4759	
==>checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	837	950	
==>head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	837	950	
==>head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10477	10623	
==>n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4811	4912	
==>f bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4811	4912	
==>f bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2429	2528	
==>erencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2429	2528	
==>erencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2429	2528	
==>erencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3094	3222	
==>self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %ex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3094	3222	
==>self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %ex <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2851	2947	
==>anced}{-parens=>'()'})\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3) <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2406	2569	
==>LOG>) {
         print "# ",$_;
          }
         }
        else {
      warn "Cannot open log (in $testdir):$!";
        }
    }
}
copy("$plxname.bat", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17148	17248	
==>o date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17148	17248	
==>o date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7205	7367	
==>n
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7205	7367	
==>n
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7205	7367	
==>n
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16765	16953	
==>instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16765	16953	
==>instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16765	16953	
==>instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11698	11865	
==>$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6015	6173	
==>$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6015	6173	
==>$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29613	29726	
==>elf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29613	29726	
==>elf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29613	29726	
==>elf = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15349	15448	
==>(seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15349	15448	
==>(seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

= <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25802	25898	
==>e subtest decides that further testing will not make sense,
the script dies with this message.

= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19206	19299	
==>t_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only ex <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19206	19299	
==>t_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only ex <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1490	1598	
==>e}", 'configure', '--user', '--prefix', "$pwd/dist");
        system("../../Setup$Config{_exe}", 'unregister' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3506	3612	
==>erl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3506	3612	
==>erl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	24	131	
==>nings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	24	131	
==>nings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	24	131	
==>nings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	59	191	
==>sin acos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cot <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	949	1057	
==>re lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	949	1057	
==>re lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4739	4842	
==>entrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4739	4842	
==>entrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4739	4842	
==>entrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6524	6621	
==>ewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6524	6621	
==>ewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6524	6621	
==>ewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: funct <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	626	724	
==>are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).). <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	626	724	
==>are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).). <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	463	586	
==>S.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	463	586	
==>S.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	463	586	
==>S.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STOR <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1979	2077	
==>e by extracting the 
last component of the calling function's package name.  (For example, if 
a fu <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1979	2077	
==>e by extracting the 
last component of the calling function's package name.  (For example, if 
a fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5482	5596	
==>on)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5482	5596	
==>on)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5482	5596	
==>on)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8169	8272	
==>rol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8169	8272	
==>rol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8169	8272	
==>rol)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2201	2316	
==>uld just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2341	2456	
==>uld just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2941	3047	
==>ate;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26378	26602	
==>:Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26378	26602	
==>:Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26378	26602	
==>:Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	691	797	
==>onut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	691	797	
==>onut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4369	4553	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4369	4553	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4369	4553	
==>attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1872	2001	
==>ndefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1872	2001	
==>ndefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1872	2001	
==>ndefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6297	6394	
==>----------------------------------------------------
## Module

$::Module = $::Class->new();

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6297	6394	
==>----------------------------------------------------
## Module

$::Module = $::Class->new();

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6297	6394	
==>----------------------------------------------------
## Module

$::Module = $::Class->new();

$::M <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15779	15939	
==>t.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15779	15939	
==>t.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3171	3260	
==>nstance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3171	3260	
==>nstance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3171	3260	
==>nstance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24427	24541	
==>t_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24427	24541	
==>t_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24427	24541	
==>t_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	805	905	
==>r = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' )."}";
    s/\$_\[4\]/\$grammar/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22528	22626	
==>L ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB ind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22528	22626	
==>L ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB ind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22528	22626	
==>L ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB ind <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	838	950	
==>uiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => [],
		defined_nodes => Set::Object->new,
		names <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13689	13784	
==>= Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13689	13784	
==>= Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2312	2432	
==>($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2312	2432	
==>($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2312	2432	
==>($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7983	8085	
==>tch_word( 'abc123', :capture );



  # returns a Match object that has no capture (but the 'bool' field <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7714	7814	
==>tch_word( 'abc123', :capture );

  # returns a Match object that has no capture (but the 'bool' field <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14259	14355	
==>ts)> as true are iterated.

What is returned at each element of the iteration varies with functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8948	9063	
==>sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8948	9063	
==>sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8948	9063	
==>sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31810	31907	
==>fiers).

=item neg

Whether this object is negated (like a look-ahead or a character class).

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1033	1143	
==>" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1033	1143	
==>" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1033	1143	
==>" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # remo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24800	24898	
==>e file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24800	24898	
==>e file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9570	9701	
==>(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10406	10537	
==>(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1821	1924	
==>Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1821	1924	
==>Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one. <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1142	1227	
==>$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	307	427	
==>y/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	307	427	
==>y/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	307	427	
==>y/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17236	17334	
==>y $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17236	17334	
==>y $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17236	17334	
==>y $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1819	1933	
==>_template or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16868	17000	
==>hod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16868	17000	
==>hod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16868	17000	
==>hod'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7442	7603	
==>$result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7442	7603	
==>$result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7442	7603	
==>$result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	145	245	
==>m - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	145	245	
==>m - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	145	245	
==>m - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10708	10805	
==>plain string or a reference to an array
of strings for a multi-valued field. If the $value is unde <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10708	10805	
==>plain string or a reference to an array
of strings for a multi-valued field. If the $value is unde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7349	7479	
==>g message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7101	7228	
==>g message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4331	4423	
==>class_that_should_be}->is_arrow;
}

sub splat { # recursive splatting happens in parametrized <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1735	1844	
==>js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1735	1844	
==>js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1735	1844	
==>js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	465	569	
==>r () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest :: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3146	3247	
==>ode_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3146	3247	
==>ode_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7464	7609	
==>>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^=' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4217	4337	
==>$self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4217	4337	
==>$self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2689	2825	
==>i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2689	2825	
==>i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2689	2825	
==>i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11106	11230	
==>my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11106	11230	
==>my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11106	11230	
==>my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17180	17291	
==>name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13601	13712	
==>name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4055	4153	
==>>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; you <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25390	25486	
==>his method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29942	30038	
==>his method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28881	28977	
==>his method returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15425	15543	
==>{ $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15425	15543	
==>{ $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15425	15543	
==>{ $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	797	927	
==>ut=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	797	927	
==>ut=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	797	927	
==>ut=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9857	9971	
==>al $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9857	9971	
==>al $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9857	9971	
==>al $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5647	5774	
==>ce) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5647	5774	
==>ce) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5647	5774	
==>ce) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6090	6234	
==>ist) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6090	6234	
==>ist) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6090	6234	
==>ist) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2512	2609	
==>ON

An object of this class represents the query string portion of a requested URI.
It provides th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2512	2609	
==>ON

An object of this class represents the query string portion of a requested URI.
It provides th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	128	240	
==>and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was abl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	128	240	
==>and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was abl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	128	240	
==>and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was abl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7420	7534	
==>ew_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7420	7534	
==>ew_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Du <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26289	26383	
==>============================

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Y <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	145	246	
==>mar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	145	246	
==>mar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Mat <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1045	1142	
==>serv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36927	37054	
==>-- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36927	37054	
==>-- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36927	37054	
==>-- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2704	2815	
==>e = canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = spl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2704	2815	
==>e = canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = spl <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	74	169	
==>ob $prim prim ist
}

sub search_prim_within( $count ) {
	my @numbers := $prim...$prim+$count :by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3945	4052	
==>is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3945	4052	
==>is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3945	4052	
==>is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1479	1579	
==>depc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1479	1579	
==>depc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1479	1579	
==>depc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4404	4544	
==>type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4404	4544	
==>type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4404	4544	
==>type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25754	25879	
==>doesn't work quite right with a regex that's supposed to
update its target's C<pos()>.  This method, where it returns a
I<refe <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13340	13444	
==>ty($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span obje <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13340	13444	
==>ty($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span obje <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5254	5399	
==>\) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5266	5411	
==>\) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            i <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	156	267	
==>GE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1404	1508	
==>sparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1404	1508	
==>sparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1404	1508	
==>sparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11758	11920	
==>fts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11758	11920	
==>fts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11758	11920	
==>fts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret-> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3669	3769	
==>y if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3669	3769	
==>y if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8092	8202	
==>ill true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data, b <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13988	14094	
==>tfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($syn_src <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7821	7926	
==>ill true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data, b <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	69	174	
==>TDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
use File::Spec;

my <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12911	13005	
==>nds) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12969	13063	
==>nds) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3821	3933	
==>:tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3821	3933	
==>:tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5345	5457	
==>:tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1969	2167	
==>('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1969	2167	
==>('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1969	2167	
==>('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.thin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33333	33474	
==>add_method' => (
    # method label
        symbol->new('is_a'),
    # method body
        method->new(
            $::ENV,
            method <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9793	9888	
==>urns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9793	9888	
==>urns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3916	4021	
==>d{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3916	4021	
==>d{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3916	4021	
==>d{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3525	3698	
==>ed_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3525	3698	
==>ed_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2151	2257	
==>xpr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9272	9389	
==>les->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_results->{events}} ) {
      next unless defined $test-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22618	22709	
==>>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22618	22709	
==>>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15609	15704	
==>data and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15609	15704	
==>data and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4956	5073	
==>) if $cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2722	2824	
==>return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _norma <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2722	2824	
==>return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _norma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1762	1861	
==>nd
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1762	1861	
==>nd
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1762	1861	
==>nd
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11599	11781	
==>_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ], <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11599	11781	
==>_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ], <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21568	21665	
==>'> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10772	10870	
==>[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_[0];my($vars)=\ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14820	14916	
==>_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy w <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14878	14974	
==>_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	568	685	
==>$count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	568	685	
==>$count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	568	685	
==>$count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3564	3676	
==>ipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3564	3676	
==>ipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3564	3676	
==>ipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8462	8562	
==>@_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8462	8562	
==>@_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8462	8562	
==>@_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTA <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6404	6506	
==>rs {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit from th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1930	2048	
==>mitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1930	2048	
==>mitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1930	2048	
==>mitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use( <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4904	5038	
==>= $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (q <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	857	953	
==>mation about the server your CGI is running on. It also 
attempts to provide some useful defaults <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	857	953	
==>mation about the server your CGI is running on. It also 
attempts to provide some useful defaults <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2337	2459	
==>hat context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2337	2459	
==>hat context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	341	455	
==>sub atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi sub pi is readonly () returns Num
    { 3.14 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1343	1437	
==>tribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1343	1437	
==>tribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1343	1437	
==>tribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1478	1612	
==>scape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1478	1612	
==>scape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3756	3880	
==>t = traverse_ast ( $tree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	635	725	
==>askell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as detai <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	635	725	
==>askell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as detai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2895	3021	
==>.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2895	3021	
==>.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2895	3021	
==>.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4752	4861	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4752	4861	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4752	4861	
==>t->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2653	2763	
==>str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2653	2763	
==>str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2653	2763	
==>str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10148	10367	
==>ec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10148	10367	
==>ec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10148	10367	
==>ec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2860	2985	
==>irect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%ex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2860	2985	
==>irect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%ex <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23925	24013	
==>lace_at_n_if_undef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1952	2062	
==>IL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1952	2062	
==>IL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1952	2062	
==>IL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8767	8865	
==>d is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8767	8865	
==>d is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) ret <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1075	1167	
==>onality.

The complementary functions are emulated using iterations.

- `new( closure_next => <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1075	1167	
==>onality.

The complementary functions are emulated using iterations.

- `new( closure_next => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2584	2825	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2584	2825	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2584	2825	
==>=> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = b <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25148	25252	
==>nFiles=%d,  Tests=%d, %s>

If all tests are successful some statistics about the performance are
printed. <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	504	599	
==>unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_duratio <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	504	599	
==>unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_duratio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13983	14084	
==>ocal $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13983	14084	
==>ocal $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13983	14084	
==>ocal $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	17	118	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	17	118	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	17	118	
==>use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7429	7557	
==>= $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5936	6045	
==>_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5936	6045	
==>_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6453	6626	
==>elf;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6453	6626	
==>elf;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6453	6626	
==>elf;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	16	133	
==>:JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	16	133	
==>:JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	16	133	
==>:JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14059	14161	
==>) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14059	14161	
==>) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14059	14161	
==>) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5725	5906	
==>]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5725	5906	
==>]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5725	5906	
==>]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1654	1793	
==>AME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_ke <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1654	1793	
==>AME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_ke <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	121	225	
==>l;
use Perl6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::U <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9173	9277	
==>nction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9173	9277	
==>nction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9173	9277	
==>nction
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\% <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4648	4747	
==>ToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9781	9878	
==>ject )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurren <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9781	9878	
==>ject )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurren <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7867	7967	
==>x $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxP <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2530	2625	
==>et($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2530	2625	
==>et($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2815	2919	
==>y want to change that.

Note: A precompiled (but most of the time outdated) image is available at
      h <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3583	3686	
==>mpare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3583	3686	
==>mpare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7300	7396	
==>it exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7300	7396	
==>it exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10326	10434	
==>r next match (end+1)
    match - positional submatches
    named - named submatches
    capture - return'e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19727	19822	
==>$h.authorization_basic

This method is used to get or set an authorization header that use the
" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19727	19822	
==>$h.authorization_basic

This method is used to get or set an authorization header that use the
" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	928	1041	
==>ndChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	928	1041	
==>ndChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	928	1041	
==>ndChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	889	1005	
==>atchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	889	1005	
==>atchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	889	1005	
==>atchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	756	884	
==>);
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	756	884	
==>);
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	836	964	
==>);
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2770	2936	
==>ERSAL::isa(shift(), 
                                                'JIB::Installation') };
use constant ISA_JIB_REPOSITORY_SET
                            => sub { U <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	238	345	
==>ck of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# sub <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	238	345	
==>ck of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5953	6078	
==>y $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5953	6078	
==>y $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5953	6078	
==>y $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	262	362	
==>rt appearing, and
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
c <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5591	5680	
==>he same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt> <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5591	5680	
==>he same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2734	2854	
==>turn { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2981	3101	
==>turn { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	296	397	
==>rl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler::Rule->compile(<<' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15126	15269	
==>N;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15126	15269	
==>N;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15126	15269	
==>N;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2591	2684	
==>oxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2591	2684	
==>oxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2591	2684	
==>oxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parame <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6285	6380	
==>method add_method (opaque $self: symbol $label, method $method) returns nil {
    %:methods{$lab <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2419	2552	
==>= @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar || <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2559	2692	
==>= @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar || <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9986	10084	
==>hs);
    p6_type_or(DOWN($lhs),DOWN($rhs));
}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16522	16631	
==>Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16522	16631	
==>Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16522	16631	
==>Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	755	919	
==>ext.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, sec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	755	919	
==>ext.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, sec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	755	919	
==>ext.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, sec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19295	19391	
==>his information is in separate resource files used by the
program, so that if you wanted to upgra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19295	19391	
==>his information is in separate resource files used by the
program, so that if you wanted to upgra <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10544	10680	
==>de<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10544	10680	
==>de<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13056	13261	
==>stat   => '',
                                           };
                } else {
                    print "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1099	1194	
==>ent or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1099	1194	
==>ent or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	267	380	
==>cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	267	380	
==>cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	267	380	
==>cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8496	8625	
==>f ($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5074	5187	
==>html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5074	5187	
==>html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5074	5187	
==>html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2228	2373	
==>/\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2228	2373	
==>/\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2228	2373	
==>/\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.Met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1910	2095	
==>&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1910	2095	
==>&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1910	2095	
==>&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6202	6417	
==>::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6202	6417	
==>::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6202	6417	
==>::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1836	1943	
==>") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1836	1943	
==>") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1836	1943	
==>") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4599	4704	
==>elf->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4599	4704	
==>elf->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4599	4704	
==>elf->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	991	1109	
==>install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4648	4752	
==>ams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4648	4752	
==>ams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10409	10549	
==>$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6750	6890	
==>$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7599	7739	
==>$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	86	185	
==>ter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	86	185	
==>ter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	86	185	
==>ter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2578	2683	
==>sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5516	5641	
==>span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5516	5641	
==>span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7478	7584	
==>tokenStack;
  my $temp2 = $$temp1{syncat};
  if ( $temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @token <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41054	41154	
==>l extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41054	41154	
==>l extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41054	41154	
==>l extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	692	793	
==>2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	692	793	
==>2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	692	793	
==>2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	162	260	
==>he object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fi <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	162	260	
==>he object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2569	2665	
==>ote: The only option you'll have to specify is probably --initrd-mnt.

Note: I only tested this p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12530	12629	
==>t (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12530	12629	
==>t (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12530	12629	
==>t (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8645	8754	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8641	8750	
==>ing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4433	4528	
==>nceError; }
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20121	20387	
==>%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15093	15183	
==>nvoke and which
multiple interchangeable "Engine" back-ends (usually provided by third
part <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15093	15183	
==>nvoke and which
multiple interchangeable "Engine" back-ends (usually provided by third
part <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13138	13269	
==>oduct( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16615	16746	
==>oduct( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15977	16108	
==>oduct( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!headin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7981	8125	
==>_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7981	8125	
==>_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7981	8125	
==>_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8374	8525	
==>n "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8374	8525	
==>n "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8374	8525	
==>n "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1656	1770	
==>previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TOD <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1656	1770	
==>previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TOD <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	149	243	
==>se Blondie::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	622	783	
==>as no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	622	783	
==>as no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	622	783	
==>as no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14026	14129	
==>nup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14026	14129	
==>nup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14026	14129	
==>nup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Ha <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12204	12299	
==>is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12204	12299	
==>is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1438	1532	
==>t>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2387	2490	
==>nt(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2387	2490	
==>nt(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2387	2490	
==>nt(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2846	2940	
==>omponents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2846	2940	
==>omponents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2846	2940	
==>omponents, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4845	4946	
==>XX This implementation is, of course, incorrect. There is *no* attention
# paid to the associativity o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4845	4946	
==>XX This implementation is, of course, incorrect. There is *no* attention
# paid to the associativity o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4845	4946	
==>XX This implementation is, of course, incorrect. There is *no* attention
# paid to the associativity o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3487	3603	
==>l_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3487	3603	
==>l_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6056	6166	
==>_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                error( "Could not create subdir to copy t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4642	4753	
==>ude_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explici <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4501	4612	
==>ude_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explici <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14552	14646	
==>p->{saw_lone_not} >> and the line in C<< $strap->{lone_not_line} >>.

=cut

my $Report_Re = <<' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23948	24075	
==>f (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v) { &Rf |= $v }  # turn the fla <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7641	7739	
==><channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7641	7739	
==><channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18022	18229	
==>ss->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18022	18229	
==>ss->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18022	18229	
==>ss->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	133	247	
==>tallation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use L <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	138	251	
==>tallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use L <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	136	249	
==>tallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13308	13429	
==>ems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13308	13429	
==>ems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13308	13429	
==>ems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Contain <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20316	20422	
==>compiler. */

regcomp.h: This is essentially a linear encoding of a nondeterministic
finite-state machine ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23152	23247	
==>ed to pass in english text and they translate it, which could
produce ambiguous results or assoc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23152	23247	
==>ed to pass in english text and they translate it, which could
produce ambiguous results or assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2234	2338	
==>name, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2234	2338	
==>name, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2234	2338	
==>name, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5600	5704	
==>all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5600	5704	
==>all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7124	7228	
==>all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6272	6370	
==>aders. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6272	6370	
==>aders. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11702	11797	
==>rets the '\N' as a needlessly backslashed 'N'.  My
module parses them and handles them properly. <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8222	8351	
==>45),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8222	8351	
==>45),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5127	5224	
==>->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1284	1418	
==>ination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We are the <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2164	2292	
==>{
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2164	2292	
==>{
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18201	18298	
==>s for the user, such as
'error opening file', programs would have a harder time figuring out the
b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18201	18298	
==>s for the user, such as
'error opening file', programs would have a harder time figuring out the
b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5113	5276	
==>)->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2310	2429	
==>message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_output.say( $message );
  }

= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	295	408	
==>message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	295	408	
==>message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15848	16001	
==>/null#NL:#;

        # VMS file locking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $pr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1676	1779	
==>or} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1676	1779	
==>or} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5116	5238	
==>->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5116	5238	
==>->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5116	5238	
==>->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2588	2700	
==>ted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2588	2700	
==>ted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2588	2700	
==>ted";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3178	3359	
==>e($size);
                }
            },

            'array_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = sh <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	388	505	
==>my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	388	505	
==>my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9256	9399	
==>st.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1378	1515	
==>st.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1378	1515	
==>st.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1992	2104	
==>request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || ' <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1992	2104	
==>request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || ' <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2727	2835	
==>!(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::sign (Num $x <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1089	1198	
==>.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1089	1198	
==>.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1636	1745	
==>.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1450	1552	
==>'');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1450	1552	
==>'');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1450	1552	
==>'');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1839	1969	
==>this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4115	4282	
==>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4115	4282	
==>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4115	4282	
==>has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALK <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3337	3491	
==>> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertyp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3337	3491	
==>> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertyp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3337	3491	
==>> $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertyp <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7397	7516	
==>ist section.
multi Array::grep (@values ;  MatchTest $test   --> Lazy )
{
    List::grep $test, *@values;
}

# signature <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8728	8832	
==>f $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8786	8890	
==>f $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11999	12111	
==>->flag_val_i);
      my $ok = substr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += lengt <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11901	12000	
==>ities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the rec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11901	12000	
==>ities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the rec <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17370	17493	
==>cks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start (0..$len) {
    local $X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15489	15611	
==>mpile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        ret <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15489	15611	
==>mpile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8970	9070	
==>rimitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8970	9070	
==>rimitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8970	9070	
==>rimitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	443	616	
==>_PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1933	2032	
==>val(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1933	2032	
==>val(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1933	2032	
==>val(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	54	170	
==>- tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	54	170	
==>- tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	54	170	
==>- tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	845	945	
==>res names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	845	945	
==>res names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	845	945	
==>res names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - mu <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1333	1460	
==>fScore($s) }
   print "You shot a round of $tot strokes.\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fna <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6264	6374	
==>warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7262	7372	
==>warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6056	6157	
==>6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6056	6157	
==>6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6056	6157	
==>6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10643	10750	
==>rns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10643	10750	
==>rns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6104	6245	
==>>new('$string'),
                Val->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2992	3092	
==>heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6469	6569	
==>heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $ot <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2185	2305	
==>);
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset complex of complex64  where { true }');
Helpers::macif(%?CONFIG{'n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1260	1368	
==>r->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1260	1368	
==>r->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15032	15138	
==>ijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18509	18615	
==>ijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17925	18031	
==>ijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2214	2319	
==>ODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are chec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2214	2319	
==>ODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are chec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2214	2319	
==>ODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are chec <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11481	11638	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12802	12959	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15232	15389	
==>d->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4476	4577	
==>X:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB boo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4476	4577	
==>X:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB boo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4476	4577	
==>X:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5316	5415	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5316	5415	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5316	5415	
==>main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8840	8951	
==>odule_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8840	8951	
==>odule_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2730	2834	
==>'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefix' unless defined $opt->{fixity};
    $op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3425	3532	
==>as a Mapping; each key of that Mapping is the name
        # of one of this Relation::Example's attributes a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4483	4619	
==>0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4483	4619	
==>0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4483	4619	
==>0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13174	13290	
==>y($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13174	13290	
==>y($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13174	13290	
==>y($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL:: <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3588	3738	
==>orted features
    -d            # Dump debugging information
    p5_source.pl  # Convert the file. The script appends
                  # '.p6' to the <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	735	839	
==>}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	735	839	
==>}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	942	1056	
==>ned($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	942	1056	
==>ned($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	942	1056	
==>ned($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1773	1869	
==>ctions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1773	1869	
==>ctions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8364	8484	
==>j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::conf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8364	8484	
==>j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::conf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8364	8484	
==>j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	798	893	
==>_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	798	893	
==>_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	798	893	
==>_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2041	2145	
==>b)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die <<".";
Can't generate the cor <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	393	489	
==>%*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about th <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	393	489	
==>%*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	781	963	
==>push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	781	963	
==>push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	647	754	
==>mpile( $rule_source, $param )
        if exists $param->{P5} || exists $param->{Perl5};

    my $self = { so <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1122	1230	
==>hift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2013	2120	
==>hift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35459	35604	
==>length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35459	35604	
==>length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35459	35604	
==>length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5826	5946	
==>primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5826	5946	
==>primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5826	5946	
==>primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5922	6067	
==>};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5934	6079	
==>};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dump <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15430	15555	
==>^Item/ {
    #    $res = Pugs::Internals::localtime(Bool::True, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	860	985	
==>g;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness::Itera <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1103	1207	
==>:Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1103	1207	
==>:Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7566	7719	
==>) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7578	7731	
==>) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2949	3050	
==>( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3366	3501	
==>n( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3366	3501	
==>n( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	87	189	
==>s;

use Memoize;
memoize('env');

use Module::Pluggable (
    sub_name => "submodules",
    search_path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6091	6199	
==>s now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6091	6199	
==>s now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6091	6199	
==>s now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8014	8141	
==>}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8014	8141	
==>}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8014	8141	
==>}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/defau <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43539	43702	
==>H')
                  ->do(list->new(
                      $e->get('$self:')->class->send('dispatcher' => symbol->new(':canonical')), 
                      $e->ge <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1839	1932	
==>meters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Thi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1839	1932	
==>meters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2212	2322	
==>show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2212	2322	
==>show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20576	20675	
==>returns nil
    ((= &dispatcher (($self: class) send (dispatcher :ascendant)))
     (= $method (WALK <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1391	1511	
==>+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '' <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1391	1511	
==>+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13487	13593	
==>SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13487	13593	
==>SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13487	13593	
==>SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUT <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15058	15204	
==>'div');
              $beg->attr('class', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until (!$end->rig <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	200	307	
==>\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	200	307	
==>\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join a <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	26	107	
==>l/Makefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32193	32293	
==>e no ending node, and most don't need to to do
anything to the walking stack.

When an object does ha <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	32	122	
==>PS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse: <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	32	122	
==>PS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10422	10638	
==>erion  @by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infi <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	142	241	
==>0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*? <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	142	241	
==>0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*? <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1906	2007	
==>t $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1906	2007	
==>t $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11330	11467	
==>l6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11330	11467	
==>l6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11330	11467	
==>l6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14494	14695	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14494	14695	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14494	14695	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1237	1484	
==>>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1237	1484	
==>>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	746	848	
==>sses which are of its type.

=item *

It serves as the basis for a method dispatch scope.  Note that me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35731	35824	
==>es a single
Relation::Example in its C<$other> argument, where <$other> has the same heading a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37763	37856	
==>es a single Relation::Example
in its C<$other> argument, where <$other> has the same heading a <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1257	1348	
==>=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 20 <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1257	1348	
==>=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 20 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2575	2691	
==>,
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2575	2691	
==>,
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7176	7287	
==>) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7176	7287	
==>) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7176	7287	
==>) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6442	6566	
==>sses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6442	6566	
==>sses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6442	6566	
==>sses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11153	11263	
==>@INC> by removing redundant and unnecessary entries.
Necessary for OSes with limited command line lengths, like <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4286	4387	
==>ll be displayed before booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10117	10216	
==>es. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10175	10274	
==>es. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20532	20626	
==>DESTROYALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: class) sen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12829	12920	
==>ception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12829	12920	
==>ception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12829	12920	
==>ception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	299	400	
==>ndow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	299	400	
==>ndow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	299	400	
==>ndow.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	790	895	
==>:AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	790	895	
==>:AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	790	895	
==>:AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6583	6674	
==>ead1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6583	6674	
==>ead1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6583	6674	
==>ead1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8112	8297	
==>_preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12102	12246	
==>_preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12102	12246	
==>_preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24097	24206	
==>ive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24097	24206	
==>ive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24097	24206	
==>ive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numif <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	304	452	
==>s not supported\n" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	217	317	
==>$VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	217	317	
==>$VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8069	8210	
==>>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8262	8403	
==>>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         rul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3816	3931	
==>:Annotation->new(
			type => $type,
			struct_equiv => $sym->fmap(sub { Blondie::TypeSafe::Annotation->new(struct_eq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36951	37042	
==>source relations have identical headings, for these their joining
degenerates to a C<interse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41500	41591	
==>source relations have identical headings, for these their joining
degenerates to a C<interse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41123	41214	
==>source relations have identical headings, for these their joining
degenerates to a C<interse <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28866	28966	
==>ts=24, 2 wallclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F<prove> u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3600	3695	
==>-------------------------

# Utility to test that "No method found" error is raised

sub fails_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5502	5597	
==>-------------------------

# Utility to test that "No method found" error is raised

sub fails_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7679	7835	
==>' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7679	7835	
==>' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7679	7835	
==>' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_ju <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21627	21719	
==>se Independence".  However, the level of DBI's provided independence
is I<Database Driver Ind <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21627	21719	
==>se Independence".  However, the level of DBI's provided independence
is I<Database Driver Ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10098	10211	
==>:PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10098	10211	
==>:PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10098	10211	
==>:PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PV <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2434	2542	
==>, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename <==
3	/Users/nnunley/pugs/util/testgraph.pl	71	163	
==>yck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Mode <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	136	243	
==>%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10026	10117	
==>" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10761	10852	
==>" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26445	26543	
==>uple), but that any duplicates following the projection have been
eliminated.  Trivial cases are wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30997	31095	
==>uple), but that any duplicates following the projection have been
eliminated.  Trivial cases are wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29999	30097	
==>uple), but that any duplicates following the projection have been
eliminated.  Trivial cases are wh <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4258	4390	
==>ium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infini <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4258	4390	
==>ium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infini <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	801	920	
==>tialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4550	4652	
==>html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4550	4652	
==>html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4550	4652	
==>html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9109	9222	
==>$dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9109	9222	
==>$dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9109	9222	
==>$dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2453	2576	
==>dir" ), return;
# 
#         ### copy these sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc, to => $buil <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21238	21332	
==>ally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.q <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21238	21332	
==>ally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.q <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8448	8551	
==>use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied nea <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8448	8551	
==>use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied nea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13463	13596	
==>ps}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13463	13596	
==>ps}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13463	13596	
==>ps}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	499	610	
==>ntime::Perl6::Scalar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4453	4550	
==>en used as a code reference, the match object returns the I<result>
object; this is normally the e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4453	4550	
==>en used as a code reference, the match object returns the I<result>
object; this is normally the e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7354	7458	
==>ing target, value
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, targ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34950	35047	
==>>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39500	39597	
==>>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inte <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4382	4481	
==>plement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4382	4481	
==>plement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	92	207	
==>r i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	92	207	
==>r i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	92	207	
==>r i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9625	9776	
==>\n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5966	6117	
==>\n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6815	6966	
==>\n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39860	39966	
==>:Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39860	39966	
==>:Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39860	39966	
==>:Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8338	8437	
==>======================================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8338	8437	
==>======================================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8338	8437	
==>======================================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3273	3372	
==>l_local
    Locally, the kernel is saved as --kernel-local.
  --grub-uri=$grub_uri
    mklivecd.pl a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6931	7035	
==>ub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6931	7035	
==>ub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6931	7035	
==>ub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	139	236	
==>oader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Ma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	139	236	
==>oader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Ma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	139	236	
==>oader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8568	8696	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8568	8696	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8568	8696	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11487	11589	
==>e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11487	11589	
==>e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11487	11589	
==>e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8647	8781	
==>my %todos;
        foreach my $detail (@{$results{details}}) {
            if ($detail->{type} eq 'todo') {
                if ($detail <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25684	25776	
==>rywhere, it's because an lvalued subroutine returning a
normal scalar doesn't work quite righ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	624	713	
==>ngmess unless $node->can("digest");
    Blondie::Backend::Perl::Builtins->find($node->dige <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5194	5344	
==>> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5194	5344	
==>> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5194	5344	
==>> sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type => <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6234	6412	
==>_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5742	5920	
==>_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14495	14611	
==>ttributes().map:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = WALKCL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	155	285	
==>sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	155	285	
==>sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	155	285	
==>sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35075	35214	
==>ffset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @bod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35075	35214	
==>ffset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @bod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35075	35214	
==>ffset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11590	11745	
==>edoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Hered <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11590	11745	
==>edoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Hered <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3806	3983	
==>-+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decod <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3806	3983	
==>-+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decod <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2950	3029	
==>icode:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38892	39040	
==>f:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8878	8975	
==>_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8936	9033	
==>_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	266	370	
==>al {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	266	370	
==>al {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16081	16178	
==>ng>, and returns it. Called with a
list, it chops each item in turn, and returns the last characte <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3981	4088	
==>tribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3981	4088	
==>tribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4175	4283	
==>sa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4175	4283	
==>sa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4175	4283	
==>sa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6155	6253	
==>g set in advance with the prune method.

This feature is useful, like custom, for when you don't wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6155	6253	
==>g set in advance with the prune method.

This feature is useful, like custom, for when you don't wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6155	6253	
==>g set in advance with the prune method.

This feature is useful, like custom, for when you don't wa <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1935	2180	
==>~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            gi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1935	2180	
==>~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            gi <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1156	1280	
==>";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]])/) {
#	    pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17320	17422	
==>ference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20797	20899	
==>ference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20375	20477	
==>ference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1690	1850	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1690	1850	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1690	1850	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1709	1808	
==>arn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1709	1808	
==>arn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1709	1808	
==>arn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16283	16390	
==>urn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16283	16390	
==>urn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16283	16390	
==>urn Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3257	3367	
==>omponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3257	3367	
==>omponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3257	3367	
==>omponents) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone J <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	724	888	
==>dir ]),
          $INSTALLATION_DIR  
    ) {
        print "Creating dir: $_\n";
        system( qw[mkdir -p], $_ )                              and die $?;
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21161	21254	
==>ck> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21161	21254	
==>ck> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15222	15336	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15222	15336	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15222	15336	
==>f : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15719	15846	
==>b to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15719	15846	
==>b to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15719	15846	
==>b to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5171	5297	
==>type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5171	5297	
==>type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5761	5887	
==>type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	133	248	
==>update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	133	248	
==>update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	133	248	
==>update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8209	8325	
==>lc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#==================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8209	8325	
==>lc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#==================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8209	8325	
==>lc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#==================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6656	6758	
==>erclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6656	6758	
==>erclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6656	6758	
==>erclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17932	18028	
==>tially all isolated from each other, even if more than one uses the
same Engine class to implemen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17932	18028	
==>tially all isolated from each other, even if more than one uses the
same Engine class to implemen <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18920	19010	
==>g(_Re,_,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	258	365	
==>ing parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	258	365	
==>ing parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	258	365	
==>ing parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Per <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5381	5514	
==>MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5899	6011	
==>MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3804	3904	
==>tem B<Wstat>

The wait status of the test.

=item B<Total>

Total number of tests expected to run.

= <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13085	13177	
==>f C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=hea <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13085	13177	
==>f C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2676	2776	
==>n example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    pr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2676	2776	
==>n example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6783	6873	
==>--> "\\", [C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar(" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25872	25987	
==>::Class->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # method body
        meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	989	1100	
==>ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	989	1100	
==>ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7763	7936	
==>maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7763	7936	
==>maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	121	214	
==>ebug'}
* adds use Smart::Comments (if it matches the supplied regex) or
no Smart::Comments bef <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11779	11921	
==>/$_";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot inclu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1711	1823	
==>ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<F <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1711	1823	
==>ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<F <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	649	777	
==>= $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	649	777	
==>= $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13667	13767	
==>TE' => ($e->get('$canidate'), $e->get('%params'))));
                $e->get('$self')->send('BUILDALL <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3126	3253	
==>> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3126	3253	
==>> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1581	1688	
==>',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1581	1688	
==>',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1581	1688	
==>',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Va <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	831	919	
==>ilder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	831	919	
==>ilder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPla <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	931	1019	
==>Token("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1296	1398	
==>end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1296	1398	
==>end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1605	1746	
==>f->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1605	1746	
==>f->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1605	1746	
==>f->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2380	2484	
==>rict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2380	2484	
==>rict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2380	2484	
==>rict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3745	3861	
==>ic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3745	3861	
==>ic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $e <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1108	1223	
==>y).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. using simplified one.
#m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7130	7322	
==>[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newn <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7130	7322	
==>[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newn <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	194	295	
==>::Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1121	1217	
==>s($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1121	1217	
==>s($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1121	1217	
==>s($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5083	5200	
==>>from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5083	5200	
==>>from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5083	5200	
==>>from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5769	5962	
==>beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5769	5962	
==>beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5769	5962	
==>beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24104	24204	
==>ingify, "∀α. α → int", "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free- <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7257	7351	
==>as been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directiv <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7257	7351	
==>as been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14651	14775	
==>empting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14651	14775	
==>empting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14651	14775	
==>empting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	112	213	
==>ngs "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	112	213	
==>ngs "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	112	213	
==>ngs "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15679	15806	
==>: 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15679	15806	
==>: 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15679	15806	
==>: 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub t <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9279	9398	
==>sts_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <s <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	607	717	
==>match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $mat <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	607	717	
==>match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	338	435	
==>:pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	338	435	
==>:pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	338	435	
==>:pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	143	245	
==>Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19687	19782	
==>ich in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Eng <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19687	19782	
==>ich in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Eng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2221	2344	
==>- tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2221	2344	
==>- tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2221	2344	
==>- tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4927	5058	
==>er

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['Y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4758	4883	
==>er
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['Y <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	747	862	
==>l {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11219	11409	
==>tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11219	11409	
==>tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11219	11409	
==>tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8441	8541	
==>ASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8441	8541	
==>ASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10180	10320	
==>class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10180	10320	
==>class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10180	10320	
==>class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	912	1096	
==>ROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                } <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	912	1096	
==>ROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	365	482	
==>new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7947	8050	
==>::Parser::prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8080	8179	
==>od should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but lo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8080	8179	
==>od should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but lo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28425	28532	
==>s.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32977	33084	
==>s.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32105	32212	
==>s.  The
argument C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38859	39025	
==>ft;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2255	2400	
==>irst!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2255	2400	
==>irst!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1529	1651	
==>$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1529	1651	
==>$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1529	1651	
==>$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2760	2883	
==>e (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2760	2883	
==>e (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2760	2883	
==>e (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5315	5447	
==>) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5537	5669	
==>) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3651	3747	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2611	2732	
==>e expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2611	2732	
==>e expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2611	2732	
==>e expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file an <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	701	803	
==>first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	701	803	
==>first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	329	436	
==>place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Me <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	329	436	
==>place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1211	1302	
==>sociated with this package

=head2 $pkg->install( installation => INSTALLATION_OBJECT )

=cu <==
3	/Users/nnunley/pugs/util/importgraph.pl	398	496	
==>verlap=s" => \$overlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = GraphVi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1147	1238	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1147	1238	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8466	8604	
==>[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8466	8604	
==>[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8466	8604	
==>[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5176	5310	
==>=> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5176	5310	
==>=> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5176	5310	
==>=> $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9264	9384	
==>e   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9264	9384	
==>e   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9264	9384	
==>e   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9449	9567	
==>'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	618	727	
==>() returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	618	727	
==>() returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method star <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4787	4895	
==>els{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4787	4895	
==>els{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /N <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5075	5174	
==>".

Inherits List.

=item Param

Shifts a parameter from the parameter stack and binds it to a symbo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6435	6567	
==>Junction  pre     any     safe   (List)\
\\n   Junction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5915	6002	
==>an.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5915	6002	
==>an.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1029	1115	
==>ss Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
cla <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1029	1115	
==>ss Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
cla <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	8	89	
==>"inc/Module/Install/Makefile.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Inst <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2439	2596	
==>st_set,
            allow       => ISA_JIB_INSTALLATION_SET, 
        },
    };                             

    check( $tmpl, \%hash ) or error( Params::Che <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23378	23473	
==>ward to the near
future where "Relation" is a Role rather than a Class, and some
implementations <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27930	28025	
==>ward to the near
future where "Relation" is a Role rather than a Class, and some
implementations <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4527	4647	
==>->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4527	4647	
==>->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4527	4647	
==>->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	822	927	
==>nctions currently take 8 arguments.

=cut

use strict;
use warnings;
#use Smart::Comments; #for debu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3213	3315	
==>method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3213	3315	
==>method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($mat <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7455	7580	
==>t;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7455	7580	
==>t;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7706	7814	
==>lpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5001	5138	
==>user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5001	5138	
==>user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5001	5138	
==>user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7662	7767	
==>r => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9590	9695	
==>r => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7650	7755	
==>r => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4282	4422	
==>t',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => 'lef <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	553	676	
==>type MatchTest ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10429	10528	
==>unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.define <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10429	10528	
==>unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3928	4026	
==>an't locate object method "compile" via package "Pugs::Compiler::Perl6"

Please see L<http://rt.cpa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1355	1461	
==>Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1355	1461	
==>Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1355	1461	
==>Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3335	3431	
==>rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3335	3431	
==>rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3335	3431	
==>rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), Per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14917	15033	
==>{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semij <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18394	18510	
==>{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semij <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17810	17926	
==>{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semij <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2523	2642	
==>atch = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2523	2642	
==>atch = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13887	13993	
==>can't plausibly be reached to
  change.

  There may be no place to put the flag value?  And then prove
  i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	803	902	
==>path( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg):: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	803	902	
==>path( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg):: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15766	15863	
==>s a C<Str> and returns a C<Str>, the returned C<Str>
will support the same levels as the input, un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9665	9762	
==>y @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9665	9762	
==>y @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9665	9762	
==>y @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5923	6052	
==>y) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5923	6052	
==>y) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5923	6052	
==>y) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7789	7894	
==>o_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7789	7894	
==>o_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7789	7894	
==>o_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	271	384	
==>tr = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1063	1170	
==>slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1063	1170	
==>slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1063	1170	
==>slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10559	10712	
==>(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10559	10712	
==>(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10559	10712	
==>(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : arra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2207	2339	
==>e($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2207	2339	
==>e($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./ <==
3	/Users/nnunley/pugs/util/package-osx.pl	10622	10734	
==>files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2970	3074	
==>test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2970	3074	
==>test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3050	3154	
==>test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	155	268	
==>,
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dump <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	155	268	
==>,
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dump <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	155	268	
==>,
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dump <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16163	16424	
==>(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16442	16703	
==>(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	437	554	
==>'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5246	5402	
==>tiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5246	5402	
==>tiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5246	5402	
==>tiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16859	16975	
==>pensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24496	24594	
==>on as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29048	29146	
==>on as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8677	8811	
==>.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8677	8811	
==>.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8677	8811	
==>.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attrib <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7909	8008	
==>d.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7909	8008	
==>d.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3791	3903	
==>st store a symbol type in a param list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub stor <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4000	4109	
==>, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4000	4109	
==>, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7786	7928	
==>rn $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### ab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7786	7928	
==>rn $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### ab <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3240	3336	
==>ode_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', 'Cx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2666	2791	
==>::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2666	2791	
==>::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2666	2791	
==>::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15744	15837	
==>T_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$desc` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15802	15895	
==>T_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$desc` <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2154	2257	
==>ine
GROK

my $file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2097	2193	
==>f lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2097	2193	
==>f lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17115	17236	
==>which should have been run
  seen              total tests actually seen
  skip_all          if the whole test was skipped <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3167	3264	
==>attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
functio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3167	3264	
==>attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	825	927	
==>c;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	825	927	
==>c;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	825	927	
==>c;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13398	13528	
==>_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13398	13528	
==>_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7386	7500	
==>y $exit = close FILE;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5090	5221	
==>role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5090	5221	
==>role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5090	5221	
==>role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	16	108	
==>::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	16	108	
==>::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10182	10303	
==>ass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10182	10303	
==>ass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10182	10303	
==>ass_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4507	4654	
==>t.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4507	4654	
==>t.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) { <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2916	3040	
==>[0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    el <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1682	1788	
==>educed = $self->generic_reduce($app);

    my $received = $self->leave_scope;

	die "Thunk is accepting $re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1471	1566	
==>rable performance.

However, pugs critical path is currently more oo than rules, my time
is limi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7949	8070	
==>ubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7949	8070	
==>ubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7949	8070	
==>ubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1615	1738	
==>f;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1615	1738	
==>f;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1615	1738	
==>f;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3740	3840	
==>rs :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3740	3840	
==>rs :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3740	3840	
==>rs :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6019	6162	
==>LD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if define <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6019	6162	
==>LD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if define <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12554	12659	
==>cos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    if ($args{verbose}) {
	my $runp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2322	2429	
==>kage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2322	2429	
==>kage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2322	2429	
==>kage PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1017	1268	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1017	1268	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3344	3484	
==>rn 1;
    }
    else {
        warn "$mod - missing dependency\n";
        warn "($@)\n" if $@ and $@ !~ /Can't locate \Q$file\E/;
        re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24011	24107	
==>etty print a -> b");

	$b->instantiate( type::operator::nullary->new("int") );
	is($type->stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4309	4393	
==>tatus_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5047	5129	
==>tatus_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18888	19013	
==>ed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18888	19013	
==>ed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18888	19013	
==>ed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3224	3364	
==>file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq->{$file};
        }
    }

    if ( my $perl_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2418	2528	
==>'$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2418	2528	
==>'$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2765	2875	
==>'$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	118	218	
==>s Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	118	218	
==>s Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4079	4179	
==>h();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4079	4179	
==>h();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4079	4179	
==>h();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8308	8408	
==>sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16022	16120	
==>d into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Per <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16022	16120	
==>d into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1572	1670	
==>eta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1572	1670	
==>eta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1572	1670	
==>eta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:autho <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32079	32178	
==>s to language A, looking for a match to said error
message.  If it finds one, then that is displayed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32079	32178	
==>s to language A, looking for a match to said error
message.  If it finds one, then that is displayed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	86	205	
==>of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	86	205	
==>of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	86	205	
==>of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5550	5680	
==>";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5550	5680	
==>";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5550	5680	
==>";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var ob <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2396	2513	
==>n Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Compar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23698	23792	
==>the constructor, this module won't simply
send all commands immediately to the server, but crea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23698	23792	
==>the constructor, this module won't simply
send all commands immediately to the server, but crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	477	579	
==>Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	477	579	
==>Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	477	579	
==>Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	274	378	
==>e info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	274	378	
==>e info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	274	378	
==>e info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2883	2986	
==>ngs;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2883	2986	
==>ngs;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2883	2986	
==>ngs;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1937	2035	
==>) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1937	2035	
==>) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9034	9126	
==>tance calling metaclass singleton method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11515	11708	
==>n (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11515	11708	
==>n (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11515	11708	
==>n (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1183	1287	
==>> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1183	1287	
==>> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1183	1287	
==>> $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => " <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8921	9022	
==>{_is_vms};
    return Win32::GetShortPathName($^X) if $self->{_is_win32};
    return $^X;
}


=head2 C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8469	8562	
==>_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gram <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2294	2387	
==>_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gram <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5002	5108	
==>turns nil>

=item B<remove (num) returns nil>

=item B<slice (num, num) returns list>

=item B<length () re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14190	14284	
==>t pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14248	14342	
==>t pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5051	5225	
==>?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5051	5225	
==>?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5051	5225	
==>?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2081	2224	
==>_index)
        ));
        $obj->index_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->fil <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2704	2824	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2704	2824	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15065	15203	
==>scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont act <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15065	15203	
==>scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont act <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15065	15203	
==>scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont act <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3444	3542	
==>b", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3444	3542	
==>b", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3444	3542	
==>b", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	265	369	
==>ly with 'make test'
# 3. 'make smoke' make target that uploads the results of this
#    to a server somew <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5369	5471	
==>>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5369	5471	
==>>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5369	5471	
==>>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSIT <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3995	4132	
==>ction 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brv <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3995	4132	
==>ction 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brv <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18198	18292	
==>1
      <LogicalANDExpressionNoIn>
    | <LogicalORExpressionNoIn> <'||'> <LogicalANDExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9481	9578	
==>val("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9481	9578	
==>val("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9481	9578	
==>val("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5794	5920	
==>';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not im <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5560	5665	
==>num (not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	17	121	
==>allation;

use strict;
use warnings;

use JIB::Constants;
use JIB::Package;
use JIB::Config;
use JIB::Uti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4994	5142	
==>tmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3715	3825	
==>)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3773	3883	
==>)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5591	5701	
==>hift @INC, $self->{prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31492	31588	
==>istributed with a Template module set that is specific
to it, another library likewise, and a pro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31492	31588	
==>istributed with a Template module set that is specific
to it, another library likewise, and a pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16672	16853	
==>ush(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16672	16853	
==>ush(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16672	16853	
==>ush(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8546	8663	
==>.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8546	8663	
==>.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3925	4029	
==>e. First Param will
introduce a new symbol, $x, taking the 10 off the parameter stack and binding
it to $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2099	2217	
==>ems {
    my $self = shift;
    return num->new($#{$self});
}

sub is_empty {
    my $self = shift;
    @{$self} ? bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14398	14487	
==>e_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14398	14487	
==>e_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14398	14487	
==>e_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2315	2425	
==>$tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2315	2425	
==>$tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	379	481	
==>h a very early version of Pugs (6.0.10)
# and with very little knowledge of Perl 6. These five examples <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17314	17413	
==>some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17314	17413	
==>some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	458	560	
==>pan objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

C <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	458	560	
==>pan objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

C <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6714	6806	
==>il::blessed($y)) {
			die "baaah! expected type cannot be placeholder" if $y->isa("Blondie::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1697	1825	
==>warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1697	1825	
==>warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1697	1825	
==>warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	434	525	
==>h = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpk <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	434	525	
==>h = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	889	996	
==>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	889	996	
==>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	889	996	
==>{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9026	9114	
==>b { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2851	2939	
==>b { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	500	615	
==>eate a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### copy all the stuff over to a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15766	15874	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19243	19351	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other! <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2690	2800	
==>r,
       'p6design_dir=s' => \$syn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34736	34833	
==>ing as the invocant and whose body contains all of the tuples that
are in the invocant Relation an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39286	39383	
==>ing as the invocant and whose body contains all of the tuples that
are in the invocant Relation an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21282	21382	
==>B reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21282	21382	
==>B reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21282	21382	
==>B reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6296	6426	
==>) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6296	6426	
==>) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(pars <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1807	1904	
==>,
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2623	2731	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2623	2731	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2623	2731	
==>_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	783	892	
==>s defined $k;
	return emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	retu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14747	14843	
==>ne ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14747	14843	
==>ne ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2124	2253	
==>ar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2124	2253	
==>ar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2124	2253	
==>ar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13115	13219	
==>so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curse <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13115	13219	
==>so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curse <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15611	15705	
==>x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6490	6580	
==>e('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6490	6580	
==>e('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6490	6580	
==>e('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority')) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3323	3429	
==>e the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3323	3429	
==>e the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25282	25429	
==>RO now
                          $e->get('$self:')->set_attr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it . <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1622	1751	
==>d, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2284	2413	
==>d, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	109	226	
==>r

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> becau <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	107	217	
==>r
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> becau <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4047	4150	
==>= shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, $symbol, $body, $self->res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8992	9110	
==>ece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8992	9110	
==>ece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2827	2943	
==>f $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19862	19992	
==>this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19862	19992	
==>this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19862	19992	
==>this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROY <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	85	222	
==>:Escape ();
use Term::ReadKey;

{
    package Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUT <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7805	7906	
==>sa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7863	7964	
==>sa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7914	8027	
==>lock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7914	8027	
==>lock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7914	8027	
==>lock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	492	626	
==>ox.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	492	626	
==>ox.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	492	626	
==>ox.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7372	7544	
==>e::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7372	7544	
==>e::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7372	7544	
==>e::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3266	3400	
==>q '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $tree[1][0][1] );
    }
    elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3259	3425	
==>n IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3259	3425	
==>n IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3259	3425	
==>n IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $ev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5165	5298	
==>ed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5165	5298	
==>ed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_conten <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8491	8597	
==>gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5195	5296	
==>MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5195	5296	
==>MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5195	5296	
==>MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1809	1970	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2014	2175	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2077	2238	
==>create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4130	4238	
==>T METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4130	4238	
==>T METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5462	5569	
==>tWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5462	5569	
==>tWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5462	5569	
==>tWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3422	3526	
==>usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3422	3526	
==>usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3422	3526	
==>usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3603	3770	
==>:isa(shift(), 
                                                'JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { U <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1921	2043	
==>able;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1921	2043	
==>able;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6819	6924	
==>";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6819	6924	
==>";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6819	6924	
==>";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	153	274	
==>t_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	153	274	
==>t_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5852	6013	
==>ine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5852	6013	
==>ine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5852	6013	
==>ine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3617	3740	
==>- see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3617	3740	
==>- see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3617	3740	
==>- see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2367	2501	
==>eturn on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2367	2501	
==>eturn on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1057	1162	
==>b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	315	427	
==>:PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	315	427	
==>:PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	315	427	
==>:PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17517	17613	
==>B infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17517	17613	
==>B infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17517	17613	
==>B infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6049	6189	
==>$name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6049	6189	
==>$name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6049	6189	
==>$name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7983	8099	
==>~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $go <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8041	8157	
==>~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $go <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2143	2252	
==>es in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	273	381	
==>'make test'
# 3. 'make smoke' make target that uploads the results of this
#    to a server somewhere.


pack <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5844	5942	
==>implemented is the 
one that actually enciphers the data.  They may choose, however, to override 
a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5844	5942	
==>implemented is the 
one that actually enciphers the data.  They may choose, however, to override 
a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	608	744	
==>before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7362	7456	
==>m $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::Fal <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7362	7456	
==>m $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::Fal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	262	364	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	262	364	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	262	364	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8025	8215	
==>ex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8025	8215	
==>ex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8025	8215	
==>ex;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5792	5892	
==>- Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

Th <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5792	5892	
==>- Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1311	1410	
==>[ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1311	1410	
==>[ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1311	1410	
==>[ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2299	2445	
==>k 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4077	4194	
==>"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4294	4411	
==>"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2674	2810	
==>y);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2674	2810	
==>y);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2674	2810	
==>y);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15352	15453	
==>?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15410	15511	
==>?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7972	8143	
==>ction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7972	8143	
==>ction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7972	8143	
==>ction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12014	12100	
==>};
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12014	12100	
==>};
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12014	12100	
==>};
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	54	160	
==>e Perl 6 OOP goodness

# something which does publisher can send events
# something which does subscriber c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34048	34147	
==>nslating a message, a match in found in the most preferred language
is used.  Each Set Name can be a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34048	34147	
==>nslating a message, a match in found in the most preferred language
is used.  Each Set Name can be a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7308	7409	
==>ks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7308	7409	
==>ks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7308	7409	
==>ks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@id <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8449	8549	
==>date
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8449	8549	
==>date
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19416	19507	
==>(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19416	19507	
==>(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19416	19507	
==>(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	313	417	
==>k($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16176	16270	
==>meter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"At <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16176	16270	
==>meter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"At <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13552	13674	
==>}
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o-> <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2735	2853	
==>:round_alternate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding .5 up and down
    gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	347	451	
==>>is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	347	451	
==>>is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	347	451	
==>>is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8368	8493	
==>unction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8368	8493	
==>unction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8368	8493	
==>unction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unkn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	307	419	
==>_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	307	419	
==>_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	307	419	
==>_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2894	3016	
==>ingle array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <t <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2894	3016	
==>ingle array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10222	10325	
==>header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10222	10325	
==>header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more head <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6375	6491	
==>e);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6375	6491	
==>e);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21332	21425	
==>=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21332	21425	
==>=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy d <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25510	25590	
==>flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I,J)),X,amat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1977	2112	
==>if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1977	2112	
==>if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1977	2112	
==>if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2388	2522	
==>{
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2388	2522	
==>{
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2388	2522	
==>{
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2487	2604	
==>lsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2487	2604	
==>lsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2487	2604	
==>lsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2206	2320	
==>nf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2206	2320	
==>nf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2206	2320	
==>nf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	273	379	
==>POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a given $callback to @:events <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14077	14185	
==>{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14077	14185	
==>{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14077	14185	
==>{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	940	1041	
==>er all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagn <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	940	1041	
==>er all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1496	1597	
==>er all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1678	1800	
==>_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1678	1800	
==>_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1678	1800	
==>_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19631	19726	
==>ompiler. The end of an inner block
effectively acts as a C<no> statement for any compile section <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19631	19726	
==>ompiler. The end of an inner block
effectively acts as a C<no> statement for any compile section <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1033	1175	
==>[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1033	1175	
==>[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1033	1175	
==>[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3341	3449	
==>n

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read a <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3341	3449	
==>n

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7982	8085	
==>"refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7982	8085	
==>"refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7982	8085	
==>"refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13791	13933	
==>}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13791	13933	
==>}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13791	13933	
==>}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13966	14077	
==>rl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13966	14077	
==>rl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13966	14077	
==>rl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2833	2941	
==>ix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2833	2941	
==>ix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2833	2941	
==>ix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1766	1889	
==>roxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1766	1889	
==>roxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1766	1889	
==>roxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3329	3423	
==>ispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3329	3423	
==>ispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3329	3423	
==>ispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	49	150	
==>indBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	49	150	
==>indBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	49	150	
==>indBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib F <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2132	2244	
==>elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6477	6571	
==>.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (! <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6477	6571	
==>.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	41	142	
==>perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	41	142	
==>perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	41	142	
==>perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3109	3237	
==>PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3109	3237	
==>PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3109	3237	
==>PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2813	2934	
==>ject required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3277	3398	
==>ject required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1357	1474	
==>ession is POE::Session {
    method dispatch (Str $event, *@args) {
        given $event {
            when "say_hello <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5934	6039	
==>"\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->re <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3750	3842	
==>se perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3750	3842	
==>se perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5318	5417	
==>ame == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5318	5417	
==>ame == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5318	5417	
==>ame == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4190	4289	
==>me sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's doc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4190	4289	
==>me sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38559	38700	
==>'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38559	38700	
==>'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38559	38700	
==>'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14255	14486	
==>t_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14255	14486	
==>t_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22706	22809	
==>splice(@args,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Application o <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3468	3702	
==>vents);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                inte <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3468	3702	
==>vents);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13153	13300	
==>patcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13153	13300	
==>patcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13153	13300	
==>patcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1900	2015	
==>kets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11839	11946	
==>Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter lin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11839	11946	
==>Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter lin <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1569	1674	
==>{ $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_even <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4480	4578	
==>ng>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @outp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4480	4578	
==>ng>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @outp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29631	29731	
==>r if any attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34183	34283	
==>r if any attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33347	33447	
==>r if any attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3391	3496	
==>Node {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (Non <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3391	3496	
==>Node {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (Non <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	565	661	
==>";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	warn "lib_links has been changed to cc_lib_lin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4046	4179	
==>+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4046	4179	
==>+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1031	1138	
==>«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1031	1138	
==>«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1031	1138	
==>«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17285	17378	
==>at it subscribes to the
localization methodology that is described here, and hence provides th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17285	17378	
==>at it subscribes to the
localization methodology that is described here, and hence provides th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	819	920	
==>::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	819	920	
==>::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	819	920	
==>::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::Eig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7089	7197	
==>0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7089	7197	
==>0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7089	7197	
==>0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21334	21433	
==>symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44241	44340	
==>symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7140	7344	
==>'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$method')
                  );
            }
        );

    # and use it to add itself to the $::Cla <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4931	5085	
==>e modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4931	5085	
==>e modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2774	2898	
==>Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2774	2898	
==>Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	828	946	
==>copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{h <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15237	15332	
==>urned (without changing the input string).

If you prefer not to import these routines into your <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15237	15332	
==>urned (without changing the input string).

If you prefer not to import these routines into your <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3442	3557	
==>ass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3442	3557	
==>ass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3442	3557	
==>ass->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	693	825	
==>p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	693	825	
==>p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	693	825	
==>p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5370	5539	
==>} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, wit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15149	15249	
==>age to the user, or generate a message to be
shown to the user.  Sometimes this is an error message o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15149	15249	
==>age to the user, or generate a message to be
shown to the user.  Sometimes this is an error message o <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	236	339	
==>e(@_) };
sub include_deps { +shift->admin->include_deps(@_) };
sub auto_include { +shift->admin->auto_in <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37626	37721	
==>ed_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its posi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37626	37721	
==>ed_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its posi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1227	1337	
==>reludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1227	1337	
==>reludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1227	1337	
==>reludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4789	4928	
==>Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4789	4928	
==>Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4789	4928	
==>Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3507	3636	
==>P>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiLineComm <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	34	133	
==>EA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	34	133	
==>EA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15128	15231	
==>SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15128	15231	
==>SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4522	4627	
==>[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4522	4627	
==>[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4522	4627	
==>[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23275	23488	
==>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23275	23488	
==>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23275	23488	
==>bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6395	6509	
==>elf = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6395	6509	
==>elf = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6395	6509	
==>elf = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	956	1075	
==>call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	965	1084	
==>call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	460	570	
==>);

    $self->set_makefile_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	440	545	
==>e knowledge of Perl 6. These five examples
# can be improved in many ways, and have been in the Perl Monks <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13995	14092	
==>);
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13995	14092	
==>);
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18319	18411	
==>hide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18319	18411	
==>hide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1283	1402	
==>{
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1283	1402	
==>{
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1283	1402	
==>{
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3352	3444	
==>::Test class represents a single test within the
Test::Builder framework. The class itself is <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3352	3444	
==>::Test class represents a single test within the
Test::Builder framework. The class itself is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5549	5641	
==>::Test class represents a single test within the
Test::Builder framework. The class itself is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	416	520	
==>([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	416	520	
==>([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8476	8572	
==>tf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSIO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8476	8572	
==>tf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24428	24641	
==>$tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24428	24641	
==>$tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24428	24641	
==>$tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $par <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	611	715	
==>natives
    if( my $aref = $alts->{ $struct->{package} }->{bin} ) {
        print "\t*** Primary alternat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15727	15821	
==>Or, when viewing an error message, the
application's developer should see more details than joe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15727	15821	
==>Or, when viewing an error message, the
application's developer should see more details than joe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40551	40665	
==>@_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40551	40665	
==>@_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40551	40665	
==>@_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3766	3873	
==>ifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3766	3873	
==>ifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3766	3873	
==>ifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4637	4729	
==>pe is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4637	4729	
==>pe is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5227	5319	
==>pe is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5489	5596	
==>etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5489	5596	
==>etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6079	6186	
==>etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7489	7616	
==>\$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7489	7616	
==>\$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21325	21421	
==>t's visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

Mo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24031	24122	
==>macro-based approach to substitute the user's preferred
language into the program code itsel <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24031	24122	
==>macro-based approach to substitute the user's preferred
language into the program code itsel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25759	25923	
==>s ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25759	25923	
==>s ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25759	25923	
==>s ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10233	10338	
==>turn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10233	10338	
==>turn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10233	10338	
==>turn 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4307	4424	
==>ass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4307	4424	
==>ass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4307	4424	
==>ass::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5305	5439	
==>l  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5498	5632	
==>l  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
3	/Users/nnunley/pugs/util/importgraph.pl	2367	2470	
==>dges) = (0, 0);
while (my ($name, $module) = each %modules) {
  my $cluster = $module->[2];
  my $rank = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	334	468	
==>ift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	334	468	
==>ift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	334	468	
==>ift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6031	6136	
==>efine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6031	6136	
==>efine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6031	6136	
==>efine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4275	4389	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4275	4389	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4275	4389	
==>e_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23698	23898	
==>ar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23698	23898	
==>ar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23698	23898	
==>ar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3123	3211	
==>See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use ba <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3123	3211	
==>See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use ba <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3470	3558	
==>See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11828	11923	
==>se instances of class all conform to the Role interface/API they are 
interchangable with one an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11828	11923	
==>se instances of class all conform to the Role interface/API they are 
interchangable with one an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11828	11923	
==>se instances of class all conform to the Role interface/API they are 
interchangable with one an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6561	6653	
==>nexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6561	6653	
==>nexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6561	6653	
==>nexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11419	11537	
==>ndler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3010	3128	
==>ndler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14077	14180	
==>= catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file($syn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	284	391	
==>thod: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	284	391	
==>thod: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	284	391	
==>thod: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	246	359	
==>a (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	246	359	
==>a (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	246	359	
==>a (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, really concreat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8227	8376	
==>d;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8227	8376	
==>d;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8227	8376	
==>d;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11886	12002	
==>I they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11886	12002	
==>I they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11886	12002	
==>I they are 
interchangable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3520	3687	
==>lter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3520	3687	
==>lter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40412	40518	
==>oke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $parser-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4857	4947	
==>ributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4857	4947	
==>ributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	486	602	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	486	602	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	486	602	
==>fix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9259	9435	
==>new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1381	1543	
==>new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1381	1543	
==>new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3204	3367	
==>d' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3204	3367	
==>d' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3204	3367	
==>d' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{ty <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15690	15811	
==>t;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2087	2208	
==>t;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4116	4237	
==>}xgc;

    my $name = $1;
    return $S->force_object(anyof_char => $S->nchar($name), "\\N{$name}") if $cc;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	828	1008	
==>|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugi <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	828	1008	
==>|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18779	18918	
==>ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3502	3615	
==>_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3502	3615	
==>_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3502	3615	
==>_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Per <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6055	6148	
==>node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'V <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6055	6148	
==>node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'V <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2954	3047	
==>node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4627	4733	
==>bel eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4627	4733	
==>bel eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4627	4733	
==>bel eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1726	1823	
==>_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1726	1823	
==>_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1109	1253	
==>n_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1109	1253	
==>n_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1109	1253	
==>n_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3356	3477	
==>)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3356	3477	
==>)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	919	1026	
==>$S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1788	1921	
==>his to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1788	1921	
==>his to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1788	1921	
==>his to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	523	741	
==>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run the pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7214	7331	
==>r the given message key from the
        # successfully loaded template module; on a function call
        # death, as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7214	7331	
==>r the given message key from the
        # successfully loaded template module; on a function call
        # death, as <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7168	7386	
==>(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7361	7579	
==>(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18788	18928	
==>l->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output counter m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5601	5730	
==>nd match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5601	5730	
==>nd match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22807	22941	
==>first"),
					param => comb(
						fun => ide("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => id <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5856	5979	
==>=> chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5856	5979	
==>=> chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956), <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7451	7555	
==>t_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7451	7555	
==>t_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7451	7555	
==>t_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5327	5437	
==>h a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of cours <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5327	5437	
==>h a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of cours <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5327	5437	
==>h a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of cours <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6466	6578	
==>::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6466	6578	
==>::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6466	6578	
==>::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7841	7971	
==>");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7841	7971	
==>");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7841	7971	
==>");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2141	2259	
==>[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2141	2259	
==>[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2141	2259	
==>[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7254	7431	
==>mp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7254	7431	
==>mp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7254	7431	
==>mp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sca <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7068	7184	
==>{
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_MET <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7068	7184	
==>{
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_MET <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11236	11342	
==>) method of each node in the tree,
which may be different from the visual() method; specifically, in the ca <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16794	16958	
==>conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16794	16958	
==>conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14953	15105	
==>nless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14953	15105	
==>nless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14953	15105	
==>nless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3804	3980	
==>ps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that sati <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4268	4444	
==>ps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that sati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1643	1740	
==>ribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1643	1740	
==>ribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1643	1740	
==>ribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1846	1951	
==>nfinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1846	1951	
==>nfinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1846	1951	
==>nfinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5646	5836	
==>stmt} eq '{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	504	624	
==>nst.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	504	624	
==>nst.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos <==
3	/Users/nnunley/pugs/util/drift.pl	1867	1970	
==>next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $program[0] =~ /Look, but Don't T <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9623	9720	
==>ata) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9623	9720	
==>ata) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() r <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4784	4905	
==>et some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4643	4764	
==>et some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	94	213	
==>ool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	526	623	
==>urn %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionCode(@variables) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15649	15744	
==>e French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15649	15744	
==>e French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1818	1966	
==>l!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1603	1745	
==>l!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1603	1745	
==>l!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5512	5637	
==>to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5512	5637	
==>to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5512	5637	
==>to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4045	4258	
==>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5923	6080	
==>"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5923	6080	
==>"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37460	37555	
==>entioned binary join()
operator, and the order of its arguments is not significant to the result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42009	42104	
==>entioned binary join()
operator, and the order of its arguments is not significant to the result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41650	41745	
==>entioned binary join()
operator, and the order of its arguments is not significant to the result <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8154	8248	
==>->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the righ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10723	10817	
==>->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23347	23446	
==>$s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23347	23446	
==>$s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23347	23446	
==>$s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11067	11240	
==>y $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  clas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1541	1698	
==>y $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

clas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1541	1698	
==>y $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1030	1156	
==>value { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1030	1156	
==>value { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1030	1156	
==>value { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8498	8622	
==>ackup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8498	8622	
==>ackup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8498	8622	
==>ackup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13218	13361	
==>ge Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13218	13361	
==>ge Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13218	13361	
==>ge Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1190	1305	
==>e). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1190	1305	
==>e). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1190	1305	
==>e). This is
# needed because we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3585	3683	
==>ot yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3585	3683	
==>ot yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3585	3683	
==>ot yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4054	4166	
==>s to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4054	4166	
==>s to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4054	4166	
==>s to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16012	16148	
==>khead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a representation t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	785	881	
==>y - content.

The constructor for this class has a special shortcut syntax compared
to normal C<P <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	785	881	
==>y - content.

The constructor for this class has a special shortcut syntax compared
to normal C<P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8053	8150	
==>ted immediately.  This method should be as thorough as 
possible; for example, it should not merel <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8053	8150	
==>ted immediately.  This method should be as thorough as 
possible; for example, it should not merel <==
3	/Users/nnunley/pugs/util/drift.pl	1746	1840	
==>FT.Perl5
import Control.Monad
import qualified Data.ByteString as Buf

.

while (<IN>) {
	if(/< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12593	12712	
==>de .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12593	12712	
==>de .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12593	12712	
==>de .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA= <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	72	176	
==>ot of the prolog regex engine I
started over the weekend.  A "look at what I'm up to".

It passes most (9 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	937	1039	
==>how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMeta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	937	1039	
==>how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMeta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	937	1039	
==>how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMeta <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2447	2540	
==>_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_na <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2447	2540	
==>_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_na <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	79	173	
==>ding-"x" field names are used in nameless (array-based) nodes
where I don't yet know an authori <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	79	173	
==>ding-"x" field names are used in nameless (array-based) nodes
where I don't yet know an authori <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7046	7147	
==>ose:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $key ne $$top{token2};

  oper <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24587	24679	
==>o you must use accessor methods.
Locale::KeyedText does not declare any subroutines or export <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24587	24679	
==>o you must use accessor methods.
Locale::KeyedText does not declare any subroutines or export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14156	14338	
==>his safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14156	14338	
==>his safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14156	14338	
==>his safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5808	5920	
==>($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($fla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5808	5920	
==>($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($fla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5808	5920	
==>($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($fla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1548	1646	
==>nough for many purposes.  
Although the interface is said to be procedural, it is invoked via two c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1548	1646	
==>nough for many purposes.  
Although the interface is said to be procedural, it is invoked via two c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8827	8925	
==>QUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10929	11041	
==>}
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Fi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10929	11041	
==>}
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Fi <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	629	740	
==>my(@coded);
    for(@variables) {
        push(@coded,$_ ~ "=" ~ url_encode(%Session{$_}));
    }
    return @co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	705	819	
==>e {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	705	819	
==>e {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	705	819	
==>e {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2225	2356	
==>arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2225	2356	
==>arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2225	2356	
==>arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11718	11856	
==>HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11718	11856	
==>HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5556	5673	
==>ETA, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self->_dump;
    close META;

    return $se <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5081	5210	
==>sult = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - si <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5081	5210	
==>sult = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - si <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2239	2368	
==>{
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missing plan" unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	423	527	
==>ements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	423	527	
==>ements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	423	527	
==>ements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), bucke <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20003	20099	
==>ppings, or a multi-dimensional object Hash,
or various combinations of other data types.

While t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24555	24651	
==>ppings, or a multi-dimensional object Hash,
or various combinations of other data types.

While t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23107	23203	
==>ppings, or a multi-dimensional object Hash,
or various combinations of other data types.

While t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7266	7361	
==>ix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7266	7361	
==>ix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7266	7361	
==>ix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently capt <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2060	2157	
==>stem("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print "# Could not <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11198	11290	
==>B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11198	11290	
==>B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	212	307	
==>put_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	212	307	
==>put_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing ar <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2380	2473	
==>s->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the version of a ce <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20088	20182	
==>>authorization_basic = ($uname, $password);

The method will croak if the $uname contains a col <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20088	20182	
==>>authorization_basic = ($uname, $password);

The method will croak if the $uname contains a col <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2955	3034	
==>:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5058	5190	
==>s$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5058	5190	
==>s$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5058	5190	
==>s$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2160	2276	
==>,  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2160	2276	
==>,  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	862	977	
==>int $fh @mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36158	36270	
==>dren:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3117	3213	
==>XX does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3117	3213	
==>XX does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12647	12777	
==>ckwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    l <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	586	701	
==>nt>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # becau <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	586	701	
==>nt>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # becau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8321	8435	
==>"PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8321	8435	
==>"PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8321	8435	
==>"PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1933	2057	
==>my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1933	2057	
==>my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1933	2057	
==>my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	153	283	
==>$!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	153	283	
==>$!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $reques <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2566	2687	
==>{sitelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9842	9964	
==>ame,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.buil <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9842	9964	
==>ame,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.buil <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9048	9153	
==>is necessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6119	6247	
==>' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6119	6247	
==>' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6119	6247	
==>' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1062	1184	
==>match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1073	1195	
==>match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2883	3047	
==>urn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2883	3047	
==>urn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2883	3047	
==>urn [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	339	467	
==>struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $st <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6801	6911	
==>[ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6801	6911	
==>[ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16565	16758	
==>sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16565	16758	
==>sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16565	16758	
==>sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3529	3668	
==>d_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3529	3668	
==>d_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12566	12668	
==>, it will place it into
C<$comment> (sans #).

=cut

sub _is_comment {
    my($self, $line, $comment) = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7688	7820	
==>"$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = shift;

	$prim->struct_equiv->body;
} <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6882	6977	
==>nce>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6882	6977	
==>nce>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6071	6162	
==>uote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parame <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6071	6162	
==>uote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parame <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6071	6162	
==>uote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parame <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17743	17841	
==>g the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17743	17841	
==>g the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header fiel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9825	9946	
==>if there's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselve <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2857	2978	
==>if there's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselve <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	134	240	
==>R::_, Num :$base )
    returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16731	16872	
==>DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $trave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16731	16872	
==>DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $trave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16731	16872	
==>DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $trave <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25181	25291	
==>en is
 * supplied because the test in pregexec() needs it and pregcomp() is computing
 * it anyway.
 * [regmust <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14418	14522	
==>ets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14418	14522	
==>ets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4619	4713	
==>ssors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::L <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4619	4713	
==>ssors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::L <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5209	5303	
==>ssors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::L <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8087	8196	
==>Pos = $whitespacePosition;
  my $match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	712	806	
==>t was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	712	806	
==>t was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13078	13236	
==>s array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13078	13236	
==>s array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13078	13236	
==>s array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4686	4788	
==>tch creation is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18693	18791	
==>or more
text strings to show human users.  This association would normally be
stored in a Perl file <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18693	18791	
==>or more
text strings to show human users.  This association would normally be
stored in a Perl file <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19326	19443	
==>ne can look like a table, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23878	23995	
==>ne can look like a table, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22394	22511	
==>ne can look like a table, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4239	4337	
==>r block size and so on; see the cipher module's documentation for 
details.  The C<mode> value indi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4239	4337	
==>r block size and so on; see the cipher module's documentation for 
details.  The C<mode> value indi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	738	833	
==>a subclass of the perl backend that
conditionally excludes some builtin operators to demonstrate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2191	2296	
==>ge->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2191	2296	
==>ge->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2191	2296	
==>ge->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Pack <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3042	3189	
==>{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3042	3189	
==>{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31507	31704	
==>ow length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31507	31704	
==>ow length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31507	31704	
==>ow length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9476	9630	
==>);
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5817	5971	
==>);
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6666	6820	
==>);
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2529	2628	
==>0])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2529	2628	
==>0])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2529	2628	
==>0])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TOD <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	568	664	
==>ct
multi sub pairs  (@array ; Any|Junction *@indextests) returns List of Pair
multi sub values (@ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9450	9538	
==>odule_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9450	9538	
==>odule_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	504	612	
==>standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	504	612	
==>standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	504	612	
==>standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4171	4296	
==>ric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4171	4296	
==>ric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4171	4296	
==>ric reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	497	635	
==>t
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	497	635	
==>t
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	497	635	
==>t
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1225	1328	
==>005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1225	1328	
==>005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1225	1328	
==>005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3279	3386	
==>oreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3279	3386	
==>oreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3279	3386	
==>oreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1362	1470	
==>ity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param< <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1362	1470	
==>ity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param< <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	366	458	
==>tem("perl naive_bayesian.p5 classify $test_file");

print(('-' x 80), "\n");
print "Testing p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	907	1004	
==>XSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	907	1004	
==>XSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	907	1004	
==>XSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9077	9246	
==>hifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9077	9246	
==>hifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9077	9246	
==>hifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $sh <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3823	3920	
==>the parameter stack and reduce the
Thunk.

Inside the Thunk the Seq will reduce its children one b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17442	17530	
==>libwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17442	17530	
==>libwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TI <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	549	645	
==>little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	549	645	
==>little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2148	2265	
==>statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2148	2265	
==>statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2148	2265	
==>statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8947	9050	
==>a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8947	9050	
==>a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8947	9050	
==>a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	600	726	
==>= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	600	726	
==>= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	600	726	
==>= undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8419	8532	
==>esn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8419	8532	
==>esn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8419	8532	
==>esn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5495	5679	
==>m}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14092	14208	
==>face::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14092	14208	
==>face::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2359	2629	
==>~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => - <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2359	2629	
==>~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => - <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19390	19488	
==>oIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4926	5060	
==>de a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4926	5060	
==>de a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4926	5060	
==>de a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attrib <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14509	14664	
==>Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delet <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	246	363	
==>sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    mult <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	246	363	
==>sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	7	115	
==>y likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	7	115	
==>y likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	7	115	
==>y likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num <==
3	/Users/nnunley/pugs/util/version_h.pl	1257	1371	
==>rged) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $sou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	78	172	
==>MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	78	172	
==>MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whet <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32216	32316	
==>ples appear only once in
the result.  With any 2 relations, the result is the same regardless of
whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36766	36866	
==>ples appear only once in
the result.  With any 2 relations, the result is the same regardless of
whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36056	36156	
==>ples appear only once in
the result.  With any 2 relations, the result is the same regardless of
whic <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2746	2853	
==>st::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2746	2853	
==>st::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2826	2933	
==>st::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3185	3356	
==>b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3185	3356	
==>b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3185	3356	
==>b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2942	3060	
==>m{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2942	3060	
==>m{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2942	3060	
==>m{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3963	4060	
==>typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3963	4060	
==>typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3963	4060	
==>typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	169	282	
==>);
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	169	282	
==>);
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	169	282	
==>);
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference! <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38204	38302	
==>thers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42753	42851	
==>thers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42403	42501	
==>thers.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5387	5496	
==>l_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5387	5496	
==>l_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5387	5496	
==>l_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31189	31291	
==>s not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base 'Reg <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4146	4241	
==>anized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4146	4241	
==>anized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	293	408	
==>proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	293	408	
==>proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	293	408	
==>proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	522	621	
==>em
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	522	621	
==>em
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	522	621	
==>em
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3237	3356	
==>elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3237	3356	
==>elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3237	3356	
==>elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	428	537	
==>{} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	428	537	
==>{} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class: <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	912	1011	
==>lternation> | <non_alternation> }

rule comment { \# \N* }

rule alternation     { <non_alternation> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10756	10857	
==>self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10756	10857	
==>self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2838	2937	
==>e call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

= <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2838	2937	
==>e call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

= <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3185	3284	
==>e call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9722	9842	
==>ength + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9722	9842	
==>ength + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9722	9842	
==>ength + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	81	205	
==>IL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	81	205	
==>IL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	81	205	
==>IL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22534	22630	
==>0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22534	22630	
==>0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22534	22630	
==>0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8640	8743	
==>t (Code $predicate!) returns Relation::Example {
    return Relation::Example.new(
        heading => $! <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17300	17395	
==>setta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual mach <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17300	17395	
==>setta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual mach <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6242	6343	
==>t channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6242	6343	
==>t channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_ni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6214	6312	
==>e documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6001	6097	
==>e documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-li <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	59	146	
==>tities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	59	146	
==>tities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_enti <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6335	6442	
==>infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6335	6442	
==>infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7828	7991	
==>( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7828	7991	
==>( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7828	7991	
==>( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	228	478	
==>y Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	228	478	
==>y Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17766	17862	
==>lding character values (eg. 65 for 'A') and
the number of times that character appeared in the ch <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4574	4675	
==>m C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4574	4675	
==>m C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6771	6872	
==>m C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2350	2495	
==>rt and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2350	2495	
==>rt and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2350	2495	
==>rt and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3106	3237	
==>efined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3106	3237	
==>efined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3106	3237	
==>efined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : su <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15533	15628	
==>sion> <'<'> <ShiftExpression>
    | <RelationalExpression> <'>'> <ShiftExpression>
    | <Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1186	1286	
==>"infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1186	1286	
==>"infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1186	1286	
==>"infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2813	2908	
==>store;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2813	2908	
==>store;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2813	2908	
==>store;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	761	875	
==>= shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	761	875	
==>= shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	761	875	
==>= shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2454	2556	
==>method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_yea <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2454	2556	
==>method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_yea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13508	13614	
==>us take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3636	3749	
==>ic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3636	3749	
==>ic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3636	3749	
==>ic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9357	9485	
==>xt, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9357	9485	
==>xt, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22426	22529	
==>, used to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (into <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6551	6665	
==>d
        # correctly.  Otherwise, root through the file to locate the case-preserved
        # version of the pack <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9343	9461	
==>ren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9343	9461	
==>ren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15158	15249	
==>,
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2144	2246	
==>, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2132	2234	
==>, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	468	557	
==>rule->($grammar)->( $_[0], undef, $tree, $tree )) if $ENV{DEBUG_lrep};
	Pugs::Runtime::Rul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9668	9893	
==>uilder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1755	1964	
==>uilder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1755	1964	
==>uilder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29557	29712	
==>elf->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29557	29712	
==>elf->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29557	29712	
==>elf->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6125	6219	
==>,$pat0,$qo,$qc) is builtin is safe {
    state(%modifiers_known, %modifiers_supported_p6, %modi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4017	4129	
==>- an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3875	3984	
==>- an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29011	29109	
==>- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29011	29109	
==>- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29011	29109	
==>- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5075	5200	
==>to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5075	5200	
==>to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18378	18473	
==>e included in an embedded
class, set the I<anyof> object's C<strict> attribute to 1; the charact <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4056	4160	
==>fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4056	4160	
==>fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4056	4160	
==>fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->def <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15951	16133	
==>dent => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15945	16127	
==>dent => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7555	7688	
==>jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9955	10054	
==>l.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test funct <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10013	10112	
==>l.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3858	3959	
==>sa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3858	3959	
==>sa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3858	3959	
==>sa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $ar <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3804	3910	
==>}
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6R <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7821	7921	
==>);
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprintf(stderr,"call <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	127	220	
==>pe?  hmm..
# type Perl::Type is Perl::Type::Regular | Perl::Type::Junctive;

class Perl::Type: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1059	1160	
==>we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will stil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1059	1160	
==>we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will stil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1059	1160	
==>we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will stil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33397	33493	
==>chor

Types: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26739	26833	
==>bject is set from the named parameter
$msg_key (a string); the optional named parameter %msg_va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26739	26833	
==>bject is set from the named parameter
$msg_key (a string); the optional named parameter %msg_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16148	16252	
==>) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16148	16252	
==>) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16148	16252	
==>) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11949	12089	
==>XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11949	12089	
==>XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11949	12089	
==>XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tiea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4918	5038	
==>sage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4918	5038	
==>sage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4918	5038	
==>sage
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->ele <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	286	406	
==>pt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	286	406	
==>pt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	949	1042	
==>IB::Package->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3459	3560	
==>n calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3459	3560	
==>n calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3459	3560	
==>n calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4320	4474	
==>tainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4320	4474	
==>tainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4320	4474	
==>tainer::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1793	1898	
==>plice (@a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $le <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13748	13851	
==>er_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some opti <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17225	17328	
==>er_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some opti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	260	358	
==>}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	260	358	
==>}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	260	358	
==>}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8432	8591	
==>elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstar <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8432	8591	
==>elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4899	4992	
==>taclass');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->super <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12507	12603	
==>((($canidate to_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: send (CREAT <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11671	11765	
==>o be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11671	11765	
==>o be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	636	766	
==>->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	636	766	
==>->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	636	766	
==>->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2742	2863	
==>atrix saved as '$html_location'.
    You may want to submit the report to the public smokeserver:

        $^X $smoke_uplo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7664	7778	
==>le quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7664	7778	
==>le quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10430	10541	
==>t("&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" => $i->parse($sou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11655	11758	
==>secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11655	11758	
==>secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6426	6547	
==>block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14515	14612	
==>As Pugs grows, so will it's
testing needs. This module will be the code support for those needs. T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14573	14670	
==>As Pugs grows, so will it's
testing needs. This module will be the code support for those needs. T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5365	5466	
==>item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5365	5466	
==>item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7562	7663	
==>item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test descr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	233	338	
==>a::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	233	338	
==>a::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7208	7325	
==>t section.
multi Array::grep (@values ;      Code *&test   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9261	9362	
==>self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9261	9362	
==>self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6710	6860	
==>urrent = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6710	6860	
==>urrent = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2743	2862	
==>al $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::Mk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2743	2862	
==>al $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::Mk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2743	2862	
==>al $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::Mk <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12171	12272	
==>ore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12171	12272	
==>ore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( sta <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2335	2456	
==>e;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

met <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2335	2456	
==>e;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

met <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1554	1699	
==>put) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@values, $input;
  };
}

## Chapt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9186	9292	
==>iled matche's .end is undefined

=cut



### current implementation is always anchored at ^

### because it <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8885	8987	
==>iled matche's .end is undefined
=cut

### current implementation is always anchored at ^
### because it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13216	13316	
==>};
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13216	13316	
==>};
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13216	13316	
==>};
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1688	1782	
==>azy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junct <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1688	1782	
==>azy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junct <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	344	472	
==>!! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	344	472	
==>!! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	344	472	
==>!! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3524	3651	
==>ch my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3524	3651	
==>ch my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3524	3651	
==>ch my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9109	9217	
==>se v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Oth <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9167	9275	
==>se v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Oth <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	487	597	
==>urceCharacter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> is r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1164	1268	
==>$dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1164	1268	
==>$dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $di <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6519	6640	
==>mic env";
}

sub next {
    my ($self, $env) = @_;
    $self->{next} = $env if defined $env;
    $self->{next};
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7641	7740	
==>ual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7382	7478	
==>ual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2906	3015	
==>ed $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2906	3015	
==>ed $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2906	3015	
==>ed $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5420	5552	
==>$1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5613	5745	
==>$1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1074	1192	
==>ing and robust, it would make sense to continue for a while on
# Regexp::Parser.  But it's not worth working to finish. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	722	884	
==>")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	650	748	
==>ncreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	650	748	
==>ncreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12483	12599	
==>> $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->war <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12163	12257	
==>.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12163	12257	
==>.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1264	1367	
==>_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ . <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1264	1367	
==>_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15001	15106	
==>lue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15001	15106	
==>lue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15001	15106	
==>lue::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Pe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4632	4735	
==>rrent test plan or throws an exception if there's already a plan in
place.  You have two options for the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4632	4735	
==>rrent test plan or throws an exception if there's already a plan in
place.  You have two options for the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6156	6259	
==>rrent test plan or throws an exception if there's already a plan in
place.  You have two options for the <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	853	952	
==>Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub D <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	827	924	
==>Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1005	1138	
==>ngs;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1005	1138	
==>ngs;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1005	1138	
==>ngs;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1548	1652	
==>ed with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1548	1652	
==>ed with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1548	1652	
==>ed with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14934	15049	
==>y $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14934	15049	
==>y $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14934	15049	
==>y $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1415	1531	
==>ign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5227	5334	
==>-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5227	5334	
==>-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	869	977	
==>ruct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- subclass/inherit
=head2 $struct = $alt->to_struc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	282	385	
==>file,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	282	385	
==>file,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19266	19386	
==>ff) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split // <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15687	15807	
==>ff) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split // <==
3	/Users/nnunley/pugs/util/drift.pl	1836	1938	
==>if(/<DrIFT>/../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	63	181	
==>b fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	63	181	
==>b fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	63	181	
==>b fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled int <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9353	9473	
==>r2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9353	9473	
==>r2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20669	20775	
==>re
documentation on writing handlers goes.

The documentation on sub-classing includes an ordered list of w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	360	459	
==>s::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	360	459	
==>s::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1369	1448	
==>*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol}) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18634	18727	
==>C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18634	18727	
==>C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13624	13730	
==>); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *% <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13624	13730	
==>); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *% <==
3	/Users/nnunley/pugs/util/package-osx.pl	8151	8239	
==>usr/local/man/man3/Perl6::Spec::Structure.3pm
        /usr/local/man/man3/Perl6::Spec::Su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2712	2812	
==>.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2712	2812	
==>.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2712	2812	
==>.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FE <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5082	5212	
==>),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5082	5212	
==>),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     = <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2073	2168	
==>immediately -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main run <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20658	20774	
==>dir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1	105	
==>ackage Pugs::Grammar::Category;
use warnings;
use strict;

# TODO 
#  ok - is tighter/looser/equiv 
#  in <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2554	2674	
==>ub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3256	3371	
==>2-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; ope <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3256	3371	
==>2-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1568	1669	
==>ill break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1568	1669	
==>ill break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1568	1669	
==>ill break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	99	202	
==>her::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    prin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	99	202	
==>her::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    prin <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2207	2344	
==>$temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Ta <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2207	2344	
==>$temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Ta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1306	1402	
==>ark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b](b)');
my $rpcr2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5220	5348	
==>m'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5220	5348	
==>m'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'T <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	509	609	
==>ways, and have been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, tail.p6, rev.p6, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10894	11016	
==>plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10894	11016	
==>plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18398	18484	
==>ession> <'?'> <AssignmentExpression> <':'> <AssignmentExpression>
}
rule ConditionalExp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8072	8338	
==>ple {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method map ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4549	4657	
==>efix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	99	191	
==>rnings;

use Blondie::Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compiler_class { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3507	3615	
==>flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($fl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1145	1248	
==>ps using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by t <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1145	1248	
==>ps using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4558	4664	
==>hen use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop() <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4558	4664	
==>hen use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25999	26097	
==>en't being renamed.  This method
supports renaming attributes to each others' names.

=item C<proje <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30551	30649	
==>en't being renamed.  This method
supports renaming attributes to each others' names.

=item C<proje <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29526	29624	
==>en't being renamed.  This method
supports renaming attributes to each others' names.

=item C<proje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14480	14641	
==>}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14480	14641	
==>}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14480	14641	
==>}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	17	143	
==>s Point;

has $.x is rw;  # instance attributes
has $.y;        # default "is readonly" 
method clear () {
    $.x = 0;  # ac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6476	6594	
==>TCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip frag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6476	6594	
==>TCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip frag <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3847	3950	
==>d', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3847	3950	
==>d', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	697	800	
==>d', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stm <==
3	/Users/nnunley/pugs/util/fixauthors.pl	133	244	
==>,  ":utf8");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7381	7482	
==>memory and sets $regex as the regex to be parsed.

=back

These two approaches do an initial pass over <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	857	1007	
==>t;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $vers <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4977	5089	
==>s $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4977	5089	
==>s $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6822	6928	
==>tion (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6822	6928	
==>tion (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6822	6928	
==>tion (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20296	20405	
==>, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20296	20405	
==>, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20296	20405	
==>, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15904	16194	
==>ifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15904	16194	
==>ifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15904	16194	
==>ifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49514	49659	
==>:version'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('authority'),
    # method <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3116	3217	
==>tains the directories the resulting relative path
    # must ascend out of before it can descend to $p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3116	3217	
==>tains the directories the resulting relative path
    # must ascend out of before it can descend to $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9906	10024	
==>h(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9906	10024	
==>h(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9906	10024	
==>h(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2776	2869	
==>self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2776	2869	
==>self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2776	2869	
==>self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3327	3484	
==>}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3327	3484	
==>}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3327	3484	
==>}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12883	13004	
==>identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16360	16481	
==>identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15722	15843	
==>identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!headi <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1307	1463	
==>nd " ~
        pick (
            "$x",
            "is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns A <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3092	3204	
==>ion> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<sec <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3092	3204	
==>ion> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<sec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	897	1008	
==>ort
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	897	1008	
==>ort
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	897	1008	
==>ort
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11602	11711	
==>th, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11602	11711	
==>th, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_S <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5446	5538	
==>ssentially read-only, however, all the return values of the
closure are collected into anothe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1995	2138	
==>if ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1995	2138	
==>if ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2016	2119	
==>gth()->less_than_or_equal_to($params->length) == $bit::TRUE)
        || confess "too many arguments pass <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3853	4021	
==>n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3853	4021	
==>n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	460	589	
==>add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
        name => 'prefix:<' . $opt{name} . '>',
    );
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16493	16590	
==>s set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16493	16590	
==>s set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10863	10976	
==>$vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13022	13114	
==>h.remove_content_headers

This will remove all the header fields used to describe the content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13022	13114	
==>h.remove_content_headers

This will remove all the header fields used to describe the content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	466	557	
==>name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	466	557	
==>name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	466	557	
==>name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1888	1983	
==>ineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1888	1983	
==>ineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1888	1983	
==>ineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2435	2540	
==>y zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2435	2540	
==>y zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2435	2540	
==>y zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5126	5243	
==>sh {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2668	2785	
==>sh {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3449	3566	
==>sh {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9921	10017	
==>:Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9921	10017	
==>:Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2197	2337	
==>ngle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exist <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20658	20748	
==>) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<htt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20658	20748	
==>) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<htt <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	987	1084	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	987	1084	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1534	1631	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5735	5949	
==>n that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6199	6413	
==>n that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3198	3364	
==>nd = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_random ( Num $x ) {
    m <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4693	4803	
==>round;
}

our Int multi Num::round_away_from_zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1163	1266	
==>k";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1162	1257	
==>k";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
su <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	467	580	
==>);
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Fin <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	467	580	
==>);
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Fin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	957	1040	
==>le->compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6966	7067	
==>rimitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6966	7067	
==>rimitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6966	7067	
==>rimitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	93	206	
==>XX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	93	206	
==>XX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	93	206	
==>XX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5548	5646	
==>6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capita <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5548	5646	
==>6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capita <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5548	5646	
==>6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capita <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2298	2385	
==>meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2298	2385	
==>meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2298	2385	
==>meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	165	274	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	165	274	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	165	274	
==>ay = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3157	3296	
==>name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3157	3296	
==>name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3157	3296	
==>name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	238	354	
==>n bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	238	354	
==>n bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	238	354	
==>n bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9249	9381	
==>ion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9249	9381	
==>ion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9249	9381	
==>ion $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2086	2194	
==>l_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2086	2194	
==>l_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2086	2194	
==>l_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4586	4720	
==>->{$label} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::create_class(
    '$:name'       => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20815	20928	
==>look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17236	17349	
==>look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	895	992	
==>re_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	895	992	
==>re_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, uni <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15865	15966	
==>onNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpre <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11668	11763	
==>true if this recurrence intersects (has any element in common) with the given recurrence.

- `eq <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11668	11763	
==>true if this recurrence intersects (has any element in common) with the given recurrence.

- `eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6501	6634	
==>res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6501	6634	
==>res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6501	6634	
==>res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5357	5462	
==>d($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5357	5462	
==>d($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5357	5462	
==>d($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	958	1084	
==>ined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	969	1095	
==>ined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $cod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3514	3747	
==>%events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interp <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3514	3747	
==>%events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interp <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5616	5719	
==>sh = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	223	321	
==>= args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	223	321	
==>= args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	223	321	
==>= args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16178	16405	
==>ew($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')- <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5324	5430	
==>kipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2081	2183	
==>\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $director <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2081	2183	
==>\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $director <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17289	17403	
==>STROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17289	17403	
==>STROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17289	17403	
==>STROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1379	1545	
==>@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1379	1545	
==>@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1401	1683	
==>) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1401	1683	
==>) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	125	256	
==>he text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method calls

    @b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26951	27175	
==>'$subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1349	1440	
==>"metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1349	1440	
==>"metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1349	1440	
==>"metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

comman <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2193	2293	
==>equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2193	2293	
==>equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8047	8191	
==>tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8047	8191	
==>tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8047	8191	
==>tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2496	2611	
==>) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2496	2611	
==>) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2496	2611	
==>) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8606	8767	
==>. "\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7533	7669	
==>re actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7545	7681	
==>re actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	522	635	
==>"recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last stateme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	522	635	
==>"recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last stateme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	522	635	
==>"recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last stateme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7569	7693	
==>ems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7569	7693	
==>ems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7569	7693	
==>ems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => unde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3431	3522	
==>accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3431	3522	
==>accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3270	3438	
==>name or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3270	3438	
==>name or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3270	3438	
==>name or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14872	15006	
==>'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=h <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14872	15006	
==>'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=h <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4826	4913	
==>Array::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length(1));

 multi Arr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4446	4571	
==>t.

Returns true on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3442	3559	
==>ed( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3442	3559	
==>ed( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_ope <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1037	1156	
==>cted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1037	1156	
==>cted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14080	14217	
==>->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14080	14217	
==>->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14080	14217	
==>->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16151	16302	
==>param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16145	16296	
==>param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$b <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	224	347	
==>ng some is_subtype? (QQQ what's it called?) test.  But
maybe not.  Either way, the current approach seems plausible, no?

Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	842	950	
==>e descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	842	950	
==>e descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	842	950	
==>e descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7758	7861	
==>nboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7758	7861	
==>nboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7758	7861	
==>nboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18117	18216	
==>- see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18117	18216	
==>- see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18117	18216	
==>- see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3508	3628	
==>rcumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3508	3628	
==>rcumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3508	3628	
==>rcumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6 <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	336	477	
==>$code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	336	477	
==>$code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9521	9645	
==>cal variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9521	9645	
==>cal variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9521	9645	
==>cal variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      subst <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	358	460	
==>MS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	358	460	
==>MS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1872	1988	
==>"Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1872	1988	
==>"Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1872	1988	
==>"Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2419	2550	
==>last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2419	2550	
==>last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText:: <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2820	2931	
==>}
rule commit_rule        { \:\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12564	12676	
==>is->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12564	12676	
==>is->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12564	12676	
==>is->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4706	4808	
==>to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4706	4808	
==>to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4706	4808	
==>to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40724	40841	
==>Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40724	40841	
==>Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40724	40841	
==>Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6624	6730	
==>thod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6624	6730	
==>thod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6624	6730	
==>thod_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3785	3884	
==>x> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4] <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3785	3884	
==>x> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4] <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5258	5356	
==>or::binary/;

sub symbol { "×" }


package type::variable;
use base qw/type/;

package type::varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1284	1401	
==>ry invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1284	1401	
==>ry invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1284	1401	
==>ry invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6499	6689	
==>. 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'post <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6499	6689	
==>. 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'post <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6499	6689	
==>. 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'post <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2617	2750	
==>n( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{ci <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2617	2750	
==>n( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{ci <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2617	2750	
==>n( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{ci <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	353	480	
==>lf = { source => $rule_source };

    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Gramma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3369	3472	
==>n empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3369	3472	
==>n empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3553	3646	
==>src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3553	3646	
==>src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1406	1531	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Vo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1406	1531	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Vo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1406	1531	
==>method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Vo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3717	3827	
==>our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3717	3827	
==>our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5241	5351	
==>our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4637	4728	
==>refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4637	4728	
==>refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4637	4728	
==>refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2001	2105	
==>ferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2001	2105	
==>ferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2001	2105	
==>ferencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6803	6916	
==>:Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6803	6916	
==>:Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6803	6916	
==>:Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8062	8196	
==>$xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8062	8196	
==>$xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8062	8196	
==>$xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ". <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4178	4286	
==>"Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4178	4286	
==>"Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4178	4286	
==>"Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	332	432	
==>6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	332	432	
==>6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	332	432	
==>6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7133	7298	
==>not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7133	7298	
==>not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7133	7298	
==>not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7303	7412	
==>MBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/perl5 ";
        $ghc_fla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	762	858	
==>ell as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	762	858	
==>ell as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	828	970	
==>ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = dele <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3145	3254	
==>code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #pri <==
3	/Users/nnunley/pugs/util/version_h.pl	1193	1300	
==>=~ / (\d+)$/;
    } elsif (my ($source_line) = grep /^(Copied|Merged) From/, @info) {
        if (my ($sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14615	14750	
==>s ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14615	14750	
==>s ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14615	14750	
==>s ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	227	396	
==>bles
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	227	396	
==>bles
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1208	1322	
==>l_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Per <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	614	713	
==>nd thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standa <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	614	713	
==>nd thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3171	3258	
==>unctions(W, Z) --> "&", p6_concatenation(X), p6_conjunctions(intersect(W,X), Z), !.
p6_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18009	18111	
==>flect ranges and embedded
classes (such as C<[:cntrl:]> or C<\p{Print}>.

=item Character Class Renderi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23721	23818	
==>n be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generall <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23721	23818	
==>n be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generall <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10045	10140	
==>ying 
set properties.

Note that all set functions may end up being calculated using iterations, <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10045	10140	
==>ying 
set properties.

Note that all set functions may end up being calculated using iterations, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8052	8183	
==>or my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8052	8183	
==>or my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8052	8183	
==>or my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2809	2921	
==>"# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2809	2921	
==>"# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2809	2921	
==>"# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  loca <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	864	970	
==>his into a cpan module for
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1914	2013	
==>{
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1914	2013	
==>{
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3149	3271	
==>PSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    u <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3149	3271	
==>PSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4423	4542	
==>$class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4423	4542	
==>$class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4423	4542	
==>$class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1389	1515	
==>index')  ];
$config{'repo_index_groups'}= [ [map {Path::Class::dir($_)} 
                                    qw(author name pre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21133	21225	
==>e, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prom <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21133	21225	
==>e, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prom <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1185	1281	
==>$length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1185	1281	
==>$length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7289	7414	
==>emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7277	7402	
==>emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$ha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52777	52876	
==>age, $::Module) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symb <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32772	32864	
==>cluding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37322	37414	
==>cluding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14394	14579	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14394	14579	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14394	14579	
==>ic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	658	760	
==>gs 'numeric';
    return num->new((shift)->to_native() + 0);
}

# implement comparitor method

sub _com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21041	21133	
==>sed modules
will automatically be compiled into .pmc files and shipped with your
distribtutio <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21041	21133	
==>sed modules
will automatically be compiled into .pmc files and shipped with your
distribtutio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	531	647	
==>cope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	531	647	
==>cope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	531	647	
==>cope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10307	10401	
==>sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions are <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10307	10401	
==>sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions are <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6016	6124	
==>tr) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6016	6124	
==>tr) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML even <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4365	4466	
==>) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4365	4466	
==>) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4365	4466	
==>) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4713	4817	
==>n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4713	4817	
==>n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4713	4817	
==>n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1609	1724	
==>< arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1609	1724	
==>< arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1609	1724	
==>< arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5379	5502	
==>}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5379	5502	
==>}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5379	5502	
==>}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2851	2967	
==>ent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CON <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2851	2967	
==>ent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CON <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3069	3176	
==><item>',
    } );
}



__END__

use Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	289	395	
==>is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	289	395	
==>is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	289	395	
==>is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1074	1274	
==>:constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	113	211	
==>to a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is exp <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	113	211	
==>to a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is exp <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3313	3433	
==>---------------------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14145	14262	
==>op = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14145	14262	
==>op = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9971	10089	
==>rmal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9971	10089	
==>rmal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9971	10089	
==>rmal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3357	3463	
==>urn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3357	3463	
==>urn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3357	3463	
==>urn JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13141	13290	
==>keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13141	13290	
==>keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    re <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4104	4227	
==>$max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\
\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1463	1562	
==>tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1463	1562	
==>tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1463	1562	
==>tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (t <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17358	17464	
==>Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17358	17464	
==>Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7272	7370	
==>he regex to be parsed as the argument to the constructor.

=item $parser->regex($regex)

Clears the <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3866	3974	
==>,
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3866	3974	
==>,
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _s <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2483	2590	
==>---------------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35407	35500	
==>hat would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39957	40050	
==>hat would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39517	39610	
==>hat would result in
a cross-product when joined.  This method has aliases named
C<cartesian_pr <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12245	12358	
==>sub enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shi <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	7	111	
==>.pl - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %liebling <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	7	111	
==>.pl - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %liebling <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	463	600	
==>bably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	463	600	
==>bably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	463	600	
==>bably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11378	11489	
==>. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11378	11489	
==>. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11378	11489	
==>. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	686	799	
==>opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5246	5340	
==>Text is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5246	5340	
==>Text is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	461	616	
==>c => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{nam <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2242	2347	
==>ake sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2242	2347	
==>ake sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	157	264	
==>{
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub v <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	157	264	
==>{
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub v <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	766	867	
==>t.
  # The session's event handler won't be executed until @:events[0] =:= the
  # callback we enqueue <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1161	1287	
==>t_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Tex <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1161	1287	
==>t_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Tex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22954	23069	
==>= value
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	13	122	
==>gs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	13	122	
==>gs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24620	24719	
==>del correctly.

=item next

An array reference of what handles (or "rules") to try to match next.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5877	5990	
==>b as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5877	5990	
==>b as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5877	5990	
==>b as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17054	17149	
==>bclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17054	17149	
==>bclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17054	17149	
==>bclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	82	179	
==>pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2881	2977	
==>ry string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if av <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2881	2977	
==>ry string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if av <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7220	7322	
==>n 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- hi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12054	12152	
==>head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_available {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6975	7072	
==>n 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- hi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13928	14089	
==>te($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13928	14089	
==>te($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13928	14089	
==>te($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6161	6294	
==>meter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6161	6294	
==>meter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6161	6294	
==>meter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	991	1108	
==>en FILE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8087	8176	
==>};
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1912	2001	
==>};
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3912	4032	
==>c}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3912	4032	
==>c}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3912	4032	
==>c}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2321	2434	
==>tine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', opti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2321	2434	
==>tine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', opti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2668	2781	
==>tine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', opti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1674	1819	
==>E = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1674	1819	
==>E = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1674	1819	
==>E = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7595	7762	
==>^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7595	7762	
==>^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7404	7538	
==>> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7404	7538	
==>> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7404	7538	
==>> $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	569	674	
==>Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	569	674	
==>Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	569	674	
==>Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = sh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13671	13774	
==>nnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13671	13774	
==>nnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	338	431	
==>g->root->subdir( 'repo' );

system( qw[rm -rf], $config->root, $config->build_dir .'*' )   and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2488	2599	
==>", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2488	2599	
==>", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2488	2599	
==>", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1257	1388	
==>E_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1257	1388	
==>E_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43259	43355	
==>the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

See the LICENCE AND COP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3841	3935	
==>$rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exceptio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4025	4119	
==>$rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exceptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2351	2452	
==>args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2351	2452	
==>args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2351	2452	
==>args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1815	1968	
==>t;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $args = check( $tmpl, \%hash ) 
        or e <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	437	549	
==>e_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($c <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	437	549	
==>e_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8094	8195	
==>$self->_command();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ / <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	735	843	
==>atorTable({});
  $object->whitespaceTermTable({});
  $object->whitespaceOperatorTable({}); 
  $object;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34607	34705	
==>re the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39157	39255	
==>re the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new R <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	467	581	
==>@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} if defined wantarr <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2631	2742	
==>uote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    ret <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2631	2742	
==>uote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3843	3955	
==>foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $index, $value) = @_;
    (blesse <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	343	438	
==>fh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	343	438	
==>fh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	420	532	
==>rorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	420	532	
==>rorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	420	532	
==>rorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1449	1569	
==>) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1449	1569	
==>) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1449	1569	
==>) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is no <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1697	1804	
==>ement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit" <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1697	1804	
==>ement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	423	513	
==>dule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) return <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	423	513	
==>dule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1420	1532	
==>3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1420	1532	
==>3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1420	1532	
==>3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	354	464	
==>new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	354	464	
==>new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	354	464	
==>new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2344	2438	
==>l {
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2344	2438	
==>l {
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2974	3080	
==>magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2974	3080	
==>magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2974	3080	
==>magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13419	13519	
==>rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13419	13519	
==>rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13419	13519	
==>rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1886	2000	
==>we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index->to_nat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1630	1726	
==>. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13088	13174	
==>brackets("#","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2540	2634	
==>tate of this compiler implementation only provides a small sample of
Perl 6 syntax and semantic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14673	14846	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14673	14846	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14673	14846	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	191	310	
==>ss = shift;
    my $self = $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (bless <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	408	522	
==>N_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ par <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1936	2050	
==>N_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3942	4093	
==>from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD IN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3942	4093	
==>from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD IN <==
3	/Users/nnunley/pugs/util/importgraph.pl	1543	1651	
==>xp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod = <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5732	5875	
==>::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child (1 .. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuris <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5680	5818	
==>here are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) } <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6144	6282	
==>here are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	204	346	
==>eturn res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	204	346	
==>eturn res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	204	346	
==>eturn res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25715	25816	
==>∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1953	2054	
==>negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1964	2065	
==>negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2312	2439	
==>_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	763	878	
==>rgs) returns Bool is builtin is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	402	553	
==>";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { ke <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2818	2924	
==>lush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easil <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2818	2924	
==>lush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11048	11220	
==>exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11048	11220	
==>exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11048	11220	
==>exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoize <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1887	1990	
==>e() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1887	1990	
==>e() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6558	6704	
==>} eq 'say' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR ' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1093	1226	
==>n {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1093	1226	
==>n {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11147	11258	
==>calar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11147	11258	
==>calar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11147	11258	
==>calar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2373	2479	
==>Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2373	2479	
==>Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2373	2479	
==>Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3114	3229	
==>am ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3114	3229	
==>am ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3114	3229	
==>am ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	527	627	
==>re for a consistent interface
sub to_num { shift }

# conversion to other native types
sub to_bit { ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19103	19200	
==>tructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19103	19200	
==>tructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	482	582	
==>e is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	482	582	
==>e is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	482	582	
==>e is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1036	1156	
==>side of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1036	1156	
==>side of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1036	1156	
==>side of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	225	326	
==>, buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	225	326	
==>, buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	225	326	
==>, buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5350	5548	
==>airs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8827	9025	
==>airs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7847	8045	
==>airs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4529	4675	
==>$prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4529	4675	
==>$prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4529	4675	
==>$prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - shou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17675	17829	
==>"\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17954	18108	
==>"\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2587	2727	
==>lf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2587	2727	
==>lf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2587	2727	
==>lf->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12378	12475	
==>S::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12378	12475	
==>S::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12378	12475	
==>S::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1901	2003	
==>e
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1901	2003	
==>e
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1901	2003	
==>e
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2464	2561	
==>b compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2464	2561	
==>b compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2464	2561	
==>b compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6650	6783	
==>is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6650	6783	
==>is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6650	6783	
==>is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tiea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14432	14533	
==>d_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14432	14533	
==>d_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14432	14533	
==>d_method('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	220	316	
==>? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	220	316	
==>? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	220	316	
==>? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4038	4161	
==>simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4038	4161	
==>simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4038	4161	
==>simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	561	672	
==>s don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	561	672	
==>s don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	561	672	
==>s don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15155	15301	
==>n 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15155	15301	
==>n 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15155	15301	
==>n 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	542	684	
==>res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	542	684	
==>res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	542	684	
==>res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6069	6168	
==>open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6069	6168	
==>open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6069	6168	
==>open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2109	2208	
==>ub make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up" <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	80	175	
==>*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	80	175	
==>*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2095	2288	
==>$value);
            },

            'array_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scala <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1806	1908	
==>);
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1806	1908	
==>);
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1659	1803	
==>ILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1659	1803	
==>ILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1659	1803	
==>ILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	562	679	
==>access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	562	679	
==>access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	562	679	
==>access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3002	3104	
==>ut one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3002	3104	
==>ut one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6892	6980	
==>ok($Role->has_method('does'), '... we now have the does() method');
ok($Role->does('Role' <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3998	4080	
==>pedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http:/ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3998	4080	
==>pedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13232	13339	
==>t ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13232	13339	
==>t ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13232	13339	
==>t ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5469	5597	
==>r(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5469	5597	
==>r(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6311	6418	
==>at(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6311	6418	
==>at(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6311	6418	
==>at(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	432	532	
==>NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	432	532	
==>NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11492	11607	
==>"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">P <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3143	3244	
==>.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complemen <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3143	3244	
==>.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complemen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2642	2824	
==>e (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2847	3029	
==>e (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3919	4101	
==>e (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3737	3846	
==>e_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3737	3846	
==>e_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3737	3846	
==>e_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	119	225	
==>y => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	119	225	
==>y => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	119	225	
==>y => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	125	231	
==>equire evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	114	218	
==>equire evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	81	185	
==>equire evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11045	11168	
==>});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11045	11168	
==>});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11045	11168	
==>});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11894	12037	
==>orted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11894	12037	
==>orted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11894	12037	
==>orted ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3559	3664	
==>);
is($p->get_y, 0, '... got the right y for p');

is($p2->get_x, 100, '... still got the right x for p2') <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	989	1079	
==>as functional, procedural, and object-oriented interfaces.  The 
functional and object-orie <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	989	1079	
==>as functional, procedural, and object-oriented interfaces.  The 
functional and object-orie <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32383	32507	
==>ject() that will produce
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	719	832	
==>urn { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5586	5684	
==>tart_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5586	5684	
==>tart_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2746	2922	
==>) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2746	2922	
==>) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2746	2922	
==>) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6510	6645	
==>_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6510	6645	
==>_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6510	6645	
==>_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	376	479	
==>.tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	376	479	
==>.tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	376	479	
==>.tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4143	4334	
==>es, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4143	4334	
==>es, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Mod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	999	1134	
==>reate directory '$args->{dir}': $@"] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31955	32052	
==>main program would check each
of the 3 Template module sets in turn, looking at just the set membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31955	32052	
==>main program would check each
of the 3 Template module sets in turn, looking at just the set membe <==
3	/Users/nnunley/pugs/util/importgraph.pl	1856	1941	
==>.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr/^IMC\b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4415	4539	
==>ributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7892	8016	
==>ributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6870	6973	
==>Ldist/build/src -o pugs src/Main.hs), @libs);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6045	6148	
==>"Checking for Linux",
  help   => "This program needs Linux to run correctly.",
  ensure => sub { $^O eq <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1118	1216	
==>asic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1118	1216	
==>asic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5575	5718	
==>$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<? <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19197	19288	
==>mple C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19197	19288	
==>mple C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2858	2952	
==>inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2858	2952	
==>inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2858	2952	
==>inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2294	2406	
==>aker_args(
        INSTALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INST <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5904	6014	
==>( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5904	6014	
==>( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4432	4531	
==>k will
finish, the stacks will be popped once more, and the whole AST is now reduced
to 11.

Inherit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13007	13093	
==>he same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13007	13093	
==>he same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6852	7017	
==>\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6852	7017	
==>\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6852	7017	
==>\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	758	874	
==>n $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lval <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	963	1079	
==>n $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lval <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1019	1135	
==>n $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lval <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	662	1000	
==>uffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	662	1000	
==>uffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	532	639	
==>keep this here for a consistent interface
sub to_str { str->new((shift)->{name}) }

# conversion to other na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11581	11694	
==>};
=cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4052	4155	
==>return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Ru <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	97	249	
==>g of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& cro <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	97	249	
==>g of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& cro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30914	31011	
==>object.

Finally, if you want to add a new POSIX character class, its handler
must start with "POS <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4536	4624	
==>( <code> \)\> }

rule character  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<explic <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6091	6177	
==>ct>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6091	6177	
==>ct>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13215	13311	
==>able->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13215	13311	
==>able->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13215	13311	
==>able->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $labe <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1507	1628	
==>$x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3372	3465	
==>turns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

method <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3372	3465	
==>turns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

method <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	256	370	
==>malize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	256	370	
==>malize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35591	35680	
==>>.

=item C<union (Relation::Example $other!) returns Relation::Example>

This multi-metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	746	855	
==>pt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $opt{name} . " " . $opt{name} . " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14713	14815	
==>ts '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14713	14815	
==>ts '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1594	1702	
==>ing(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1594	1702	
==>ing(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1594	1702	
==>ing(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2651	2764	
==>We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2651	2764	
==>We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2651	2764	
==>We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].c <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7529	7649	
==>f $tree[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	464	567	
==>kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=he <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	464	567	
==>kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=he <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	709	819	
==>e($script_file);
        $prompt = "Do you want to install '$script_name'";
        $prompt .= " ($abstract)" i <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	499	593	
==>elpers::join_map ns, { "...$^n..." }, which might tilt
the balance.

Clutter:: is a package for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3060	3200	
==>nce => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right',
        prece <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11072	11167	
==>nt>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11072	11167	
==>nt>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	360	463	
==>RUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span ob <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	360	463	
==>RUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span ob <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1219	1321	
==>* $entry->{package} depends on $depends->{package}...\n";
    
        system(qq[$^X bin/install.pl $Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7808	7940	
==>p = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7808	7940	
==>p = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7808	7940	
==>p = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2647	2766	
==>@res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2647	2766	
==>@res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2647	2766	
==>@res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2113	2215	
==>s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2113	2215	
==>s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2113	2215	
==>s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	60	163	
==>tation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	60	163	
==>tation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	60	163	
==>tation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2482	2584	
==>wd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2482	2584	
==>wd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2482	2584	
==>wd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
prin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8072	8170	
==>iles}} : ());
    my $template = HTML::Template->new(filename => 'util/catalog_tmpl/directory.tmpl' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3151	3291	
==>nction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3151	3291	
==>nction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3151	3291	
==>nction () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $cont <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9078	9174	
==>ipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

sub <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9078	9174	
==>ipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

sub <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1276	1368	
==>g Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1116	1208	
==>g Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2826	2937	
==>if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2826	2937	
==>if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2826	2937	
==>if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12359	12472	
==>->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12359	12472	
==>->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12359	12472	
==>->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1940	2047	
==>everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1940	2047	
==>everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1940	2047	
==>everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::Class->name('Class');
$: <==
3	/Users/nnunley/pugs/util/drift.pl	1954	2057	
==>Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
clos <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30317	30415	
==>he user.

Each Template module ideally comes as part of a set, at least one member
large, with each <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30317	30415	
==>he user.

Each Template module ideally comes as part of a set, at least one member
large, with each <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2821	2925	
==>ew PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2821	2925	
==>ew PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2821	2925	
==>ew PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	376	497	
==>class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	376	497	
==>class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	376	497	
==>class "Perl6::Container::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3818	3930	
==>[ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3818	3930	
==>[ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3818	3930	
==>[ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2133	2259	
==>->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2133	2259	
==>->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2133	2259	
==>->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1937	2052	
==>S, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1937	2052	
==>S, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1937	2052	
==>S, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	743	845	
==>) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	743	845	
==>) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_b <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21613	21709	
==>, X),_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4679	4783	
==>($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4679	4783	
==>($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4679	4783	
==>($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Pa <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	339	446	
==>}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	339	446	
==>}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6025	6124	
==>d('resolve'), '... we do not have the resolve method');

# Bootstrap -> Class does Role 
::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5260	5374	
==>ef(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5260	5374	
==>ef(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5260	5374	
==>ef(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3298	3406	
==>, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3298	3406	
==>, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3298	3406	
==>, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5442	5546	
==>= $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5442	5546	
==>= $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5442	5546	
==>= $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->ge <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3425	3524	
==>@inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3425	3524	
==>@inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	650	798	
==>my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	650	798	
==>my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	650	798	
==>my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11146	11298	
==>ent {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11146	11298	
==>ent {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	180	335	
==>sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1846	1965	
==>$self->generic_reduce($node);
	}
}

sub literal_value {
	my $self = shift;
	my $node = shift;
	
	my $t = $self->t($node) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	677	785	
==>ates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	645	744	
==>ates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1211	1322	
==>pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1211	1322	
==>pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print D <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1842	2062	
==>ks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@bod <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	747	839	
==>ING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	747	839	
==>ING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6319	6422	
==>type($node, $de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $typ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9652	9748	
==>finite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersect <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9652	9748	
==>finite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	403	527	
==>IL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	403	527	
==>IL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	403	527	
==>IL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lval <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11840	11950	
==>ar name=timestamp></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            <td class <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1002	1104	
==>file( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1002	1104	
==>file( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3061	3179	
==>ir") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3061	3179	
==>ir") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3061	3179	
==>ir") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16280	16461	
==>( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16280	16461	
==>( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16280	16461	
==>( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	988	1111	
==>eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	988	1111	
==>eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	988	1111	
==>eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9748	9903	
==>e)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9748	9903	
==>e)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9748	9903	
==>e)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { :: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2690	2801	
==>:Utils->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX per <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9447	9541	
==>jects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9447	9541	
==>jects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36873	36976	
==>the result is as if it wasn't there at all.  In any situation where a pair
of source relations have iden <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41422	41525	
==>the result is as if it wasn't there at all.  In any situation where a pair
of source relations have iden <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41045	41148	
==>the result is as if it wasn't there at all.  In any situation where a pair
of source relations have iden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2253	2357	
==>hod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2253	2357	
==>hod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2253	2357	
==>hod('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1510	1619	
==>allchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1510	1619	
==>allchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1510	1619	
==>allchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3386	3562	
==>($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_lin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3386	3562	
==>($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_lin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4461	4586	
==>e on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10729	10884	
==>ue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10729	10884	
==>ue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10729	10884	
==>ue::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	827	943	
==>pes { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	827	943	
==>pes { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	827	943	
==>pes { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_stri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	297	545	
==>used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation::Example::He <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2542	2688	
==>lf = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = '000';
sub add_op {
    my ($self, $opt) = @_;
    #print "adding $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7778	7952	
==>{
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7778	7952	
==>{
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9247	9357	
==>ams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $er <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9247	9357	
==>ams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $er <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9247	9357	
==>ams(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $er <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1865	2004	
==>$arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1865	2004	
==>$arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1865	2004	
==>$arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	357	455	
==>Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	357	455	
==>Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	357	455	
==>Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11037	11149	
==>n $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11037	11149	
==>n $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11037	11149	
==>n $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2035	2148	
==>st - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2035	2148	
==>st - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2035	2148	
==>st - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test % <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4985	5099	
==>system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$sc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4201	4311	
==>system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$sc <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	126	233	
==>ng)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18363	18471	
==>{
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14784	14892	
==>{
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8225	8370	
==>( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8225	8370	
==>( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1754	1875	
==>tance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1754	1875	
==>tance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1754	1875	
==>tance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1369	1505	
==>ault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1369	1505	
==>ault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1369	1505	
==>ault->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10299	10413	
==>y eq $self->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[- <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1176	1277	
==>}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime: <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1176	1277	
==>}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3960	4132	
==>::isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables:
# c-indentation-style: b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14314	14419	
==>ation" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterato <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14314	14419	
==>ation" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	108	211	
==>ss {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	108	211	
==>ss {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	108	211	
==>ss {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	76	177	
==>kage`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	76	177	
==>kage`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11335	11433	
==>l does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1791	1885	
==>l does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1791	1885	
==>l does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	835	934	
==>$two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, S <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	835	934	
==>$two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7200	7302	
==>do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7200	7302	
==>do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7200	7302	
==>do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16292	16403	
==>"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Could <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2036	2132	
==>$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2036	2132	
==>$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12829	12942	
==>g to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12829	12942	
==>g to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12829	12942	
==>g to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2494	2700	
==>lf, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&Point },        
    };
}

my $p = new Point(5, 6);
is($p-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7031	7148	
==>8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(82 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7031	7148	
==>8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(82 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35801	35899	
==>em.  This method is also defined as the implicit handler when
coercing this object to a string.

=i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35801	35899	
==>em.  This method is also defined as the implicit handler when
coercing this object to a string.

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32399	32491	
==>en't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation::Exam <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2758	2911	
==>it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if the metadir doesn't exist yet, this is a 'clean' di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16676	16796	
==>of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<con <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16676	16796	
==>of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7611	7738	
==>name = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7611	7738	
==>name = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7611	7738	
==>name = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5828	5928	
==>ach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5828	5928	
==>ach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5828	5928	
==>ach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	383	494	
==>s "env must be a closure::env";
    # params is a hash whose keys are the names
    # of variables, and whose va <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5287	5383	
==>.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
This <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5287	5383	
==>.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	335	440	
==>lass 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	335	440	
==>lass 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	335	440	
==>lass 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	471	573	
==>js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	471	573	
==>js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	471	573	
==>js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21128	21221	
==>ropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21128	21221	
==>ropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4317	4477	
==>ion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4317	4477	
==>ion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4317	4477	
==>ion.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2327	2608	
==>,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5804	6085	
==>,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4734	5015	
==>,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3844	3939	
==>D__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3844	3939	
==>D__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3844	3939	
==>D__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value: <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1685	1783	
==>nd ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($f <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2136	2234	
==>te the correct Perl6 equivalent for:

    $path

field name: $name
osname: $config->{osname}

Pleas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1578	1664	
==>nd ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16741	16866	
==>ms)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16741	16866	
==>ms)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16741	16866	
==>ms)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19458	19554	
==>SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19458	19554	
==>SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19458	19554	
==>SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7174	7310	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7174	7310	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7174	7310	
==>e instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($method_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	635	750	
==>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	635	750	
==>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	635	750	
==>import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	60	159	
==>.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	60	159	
==>.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	60	159	
==>.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17233	17326	
==>$common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20710	20803	
==>$common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20288	20381	
==>$common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2320	2412	
==>gs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2320	2412	
==>gs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->co <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7888	7976	
==>y => ('type', 'type::variable::instantiated') => sub { unify($_[1]{instance}, $_[0], @_[2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2349	2470	
==>precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2349	2470	
==>precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2349	2470	
==>precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	160	276	
==>ement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	160	276	
==>ement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	160	276	
==>ement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2norm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24030	24150	
==>>;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20451	20571	
==>>;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $s <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1445	1550	
==>iable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how ac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	325	424	
==>e_terms );

# ----- the following were included only for performance reasons,
# because they are too <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	336	435	
==>e_terms );

# ----- the following were included only for performance reasons,
# because they are too <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6092	6182	
==>= shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1566	1681	
==>, {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1566	1681	
==>, {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1566	1681	
==>, {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        bu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1162	1293	
==>in is primitive is unsafe {
        # say "e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14889	14982	
==>te(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14889	14982	
==>te(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $u <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	617	726	
==>>makemaker_args( PL_FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($args{i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17303	17395	
==>_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17303	17395	
==>_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7794	7897	
==>t->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7794	7897	
==>t->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7794	7897	
==>t->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRout <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3325	3417	
==>)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3325	3417	
==>)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3325	3417	
==>)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaq <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3874	3970	
==>xt::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3874	3970	
==>xt::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2435	2575	
==>pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2435	2575	
==>pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&c <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5001	5089	
==>xidecimal_escape_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13112	13290	
==>e ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13112	13290	
==>e ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13112	13290	
==>e ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5088	5192	
==>=~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5088	5192	
==>=~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5088	5192	
==>=~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $pa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8983	9094	
==>!($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12460	12571	
==>!($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2229	2331	
==>it->new(1);
}

sub join {
    my ($self, $delimiter) = @_;
    (blessed($delimiter) && $delimiter->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2212	2318	
==>turn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2212	2318	
==>turn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2212	2318	
==>turn str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	539	661	
==>ire CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	539	661	
==>ire CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13563	13664	
==>LTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13563	13664	
==>LTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13563	13664	
==>LTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2072	2249	
==>sg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2072	2249	
==>sg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9144	9250	
==>tive_file);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  m <==
3	/Users/nnunley/pugs/util/package-osx.pl	8395	8501	
==>3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        / <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2610	2710	
==>est;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2610	2710	
==>est;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2548	2648	
==>fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2548	2648	
==>fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	277	377	
==>new(...);

Required arguments:

=over 4

=item root

The root directory of the repository

=item pool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3442	3548	
==>args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3442	3548	
==>args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3442	3548	
==>args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarNa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	887	1009	
==>icateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1572	1675	
==>t that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6782	6975	
==>=> 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol->new('$method' => 'method')
                          ),
                re <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1097	1211	
==>Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1097	1211	
==>Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15351	15451	
==>n
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML: <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15351	15451	
==>n
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4880	5014	
==>hen
            # ignore it and go to the next one
            next if $self->has_method($method_name);
            # otherwise ... add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3549	3671	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3742	3864	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7515	7630	
==>e::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {... <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7515	7630	
==>e::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {... <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7515	7630	
==>e::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {... <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1045	1147	
==>n Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1045	1147	
==>n Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5602	5687	
==>= shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6104	6216	
==>:[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6104	6216	
==>:[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6104	6216	
==>:[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2887	3010	
==>nnect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler i <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2887	3010	
==>nnect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3488	3594	
==>dler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($top <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3488	3594	
==>dler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($top <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2239	2341	
==>o gram ($name) { "rule $name :words" },
#     rather than having the clutter of lots of explicit :words <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6770	6874	
==>or Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=bac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6770	6874	
==>or Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=bac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8967	9071	
==>or Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11040	11150	
==>(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11040	11150	
==>(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11040	11150	
==>(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4418	4533	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4418	4533	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4418	4533	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7666	7776	
==>)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_method'), 
    # method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8	103	
==>acks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8	103	
==>acks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8	103	
==>acks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9686	9797	
==>f the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13163	13274	
==>f the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12435	12546	
==>f the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11264	11400	
==>do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14240	14338	
==>ed.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14240	14338	
==>ed.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	827	955	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	827	955	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	827	955	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4450	4551	
==>IL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4450	4551	
==>IL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4450	4551	
==>IL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9042	9172	
==>imP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9042	9172	
==>imP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9042	9172	
==>imP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	554	671	
==>unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	554	671	
==>unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	554	671	
==>unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2445	2597	
==>Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2445	2597	
==>Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2445	2597	
==>Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($ce <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11567	11698	
==>\n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11561	11692	
==>\n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7115	7205	
==>lper("", $pType, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19120	19352	
==>egex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $heading, 
                                     source  => $source } if $regex;
                  ($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	645	760	
==>>SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accesso <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1129	1244	
==>>SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accesso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2974	3070	
==>b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2974	3070	
==>b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2974	3070	
==>b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1816	1972	
==>, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1816	1972	
==>, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1816	1972	
==>, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,unde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37793	37892	
==>gs of the source relations.  The body of the new relation is
the result of first pairwise-matching e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42342	42441	
==>gs of the source relations.  The body of the new relation is
the result of first pairwise-matching e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41992	42091	
==>gs of the source relations.  The body of the new relation is
the result of first pairwise-matching e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2292	2401	
==>{
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2292	2401	
==>{
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2292	2401	
==>{
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	28	117	
==>equire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitive <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	28	117	
==>equire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitive <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9909	10017	
==>why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9909	10017	
==>why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30924	31022	
==>inally, if you want to add a new POSIX character class, its handler
must start with "POSIX_".

=ite <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23699	23819	
==>@{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20120	20240	
==>@{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4023	4131	
==>\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4023	4131	
==>\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4023	4131	
==>\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3792	3896	
==>(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3792	3896	
==>(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3792	3896	
==>(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3101	3217	
==>($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3101	3217	
==>($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3101	3217	
==>($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4543	4662	
==>SAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Ava <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4543	4662	
==>SAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Ava <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4543	4662	
==>SAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Ava <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7589	7722	
==>eys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1384	1485	
==>ass) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1384	1485	
==>ass) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	363	450	
==>qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	363	450	
==>qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	363	450	
==>qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2480	2594	
==>stant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2480	2594	
==>stant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2480	2594	
==>stant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

met <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1855	2001	
==>tore the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1855	2001	
==>tore the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7140	7367	
==>e\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5910	6035	
==>) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5910	6035	
==>) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1055	1157	
==>ed Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1055	1157	
==>ed Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1055	1157	
==>ed Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Sc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	420	567	
==>::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	241	353	
==>ker ();

# check if we can load some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13608	13714	
==>_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_)[2]&0020)) }
		    split quotemeta ($sep), $1;

	$runpe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4483	4586	
==>hod difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4483	4586	
==>hod difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	699	838	
==>_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	699	838	
==>_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	699	838	
==>_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump" <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13709	13810	
==>har will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13709	13810	
==>har will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	6	93	
==>e Runtime::RuleCompiler;
use Pugs::Emitter::Rule::Perl5;
use base qw(Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28870	28967	
==>s
method supports having the new attributes having the same names as old
attributes that become wr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33422	33519	
==>s
method supports having the new attributes having the same names as old
attributes that become wr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32559	32656	
==>s
method supports having the new attributes having the same names as old
attributes that become wr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7424	7529	
==>sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a generic recursive function will be reunifie <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19810	19909	
==>t is determined when it is constructed, and the object can
not be changed afterwards.

If you want s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24362	24461	
==>t is determined when it is constructed, and the object can
not be changed afterwards.

If you want s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22914	23013	
==>t is determined when it is constructed, and the object can
not be changed afterwards.

If you want s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	69	178	
==>n2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	69	178	
==>n2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	69	178	
==>n2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	538	653	
==>$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19035	19121	
==><$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19035	19121	
==><$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3220	3320	
==>$eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3220	3320	
==>$eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3220	3320	
==>$eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5298	5400	
==>ce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5298	5400	
==>ce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5298	5400	
==>ce_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($sel <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9686	9798	
==>ub { `mount` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_img\" into <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	121	226	
==>has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.call <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	121	226	
==>has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13920	14073	
==>== 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13920	14073	
==>== 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13920	14073	
==>== 5
                #   ignore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Arra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3012	3153	
==>ode }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3196	3337	
==>ode }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- captur <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2564	2657	
==>::Iterator->new($test_output);
    return $self->_analyze_iterator($name, $it);
}


sub _analy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9790	9943	
==>ed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9790	9943	
==>ed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9790	9943	
==>ed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5297	5407	
==>@js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5297	5407	
==>@js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5297	5407	
==>@js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15417	15513	
==>t needs to account for a variance of needs between its different
users, such as their preferred l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15417	15513	
==>t needs to account for a variance of needs between its different
users, such as their preferred l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21338	21434	
==>ag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests adde <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	176	266	
==>rias
package Inline::Parrot::PMC;
print "Inline::Parrot::PMC\n";
use Exporter 'import';
our <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14722	14811	
==><&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<es <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14722	14811	
==><&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<es <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	177	314	
==>>compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	177	314	
==>>compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4883	5000	
==>TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4883	5000	
==>TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4883	5000	
==>TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11979	12091	
==>a IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11979	12091	
==>a IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11979	12091	
==>a IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	921	1033	
==>k()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitial <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	921	1033	
==>k()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitial <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	921	1033	
==>k()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitial <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8565	8666	
==>malize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\"." <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8565	8666	
==>malize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\"." <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26031	26131	
==>]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5596	5726	
==>&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5596	5726	
==>&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5596	5726	
==>&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespac <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3964	4122	
==>lude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $contr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3134	3237	
==>elf, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3134	3237	
==>elf, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3134	3237	
==>elf, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3279	3374	
==>NOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3279	3374	
==>NOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5476	5571	
==>NOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17071	17161	
==>> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17071	17161	
==>> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17071	17161	
==>> ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7840	7933	
==>object's internal structures.

Cipher authors should assume that if this method is being calle <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7840	7933	
==>object's internal structures.

Cipher authors should assume that if this method is being calle <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8620	8719	
==>}
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8678	8777	
==>}
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24518	24658	
==>tch_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24518	24658	
==>tch_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24518	24658	
==>tch_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_arr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12063	12191	
==>s();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2467	2589	
==>s();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2467	2589	
==>s();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2401	2571	
==>urn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2711	2876	
==>urn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2711	2876	
==>urn sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9690	9785	
==>fined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9690	9785	
==>fined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4950	5055	
==>he original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4950	5055	
==>he original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4950	5055	
==>he original operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	613	721	
==>use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB| <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	613	721	
==>use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB| <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	613	721	
==>use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB| <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1807	1906	
==>%s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18525	18617	
==>s (C functions
which get called on regular expression compilation and execution) to
parasitiz <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2815	2907	
==>s (C functions
which get called on regular expression compilation and execution) to
parasitiz <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2104	2254	
==>s(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2104	2254	
==>s(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	812	902	
==>link in a
new window</a>.  (Useful with Firefox 1.5's Preferences/Tabs/Force/NewTab
setting <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4102	4303	
==>lock->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3273	3365	
==>duce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3273	3365	
==>duce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17577	17776	
==>->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17577	17776	
==>->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17577	17776	
==>->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3662	3829	
==>CKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7478	7589	
==>}
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applicati <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7478	7589	
==>}
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applicati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2368	2476	
==>but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2368	2476	
==>but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2368	2476	
==>but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4649	4756	
==>rom_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4649	4756	
==>rom_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4649	4756	
==>rom_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5827	5932	
==>om the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5827	5932	
==>om the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5827	5932	
==>om the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14033	14195	
==>}
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14033	14195	
==>}
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14033	14195	
==>}
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1978	2082	
==>ew( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1978	2082	
==>ew( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6057	6150	
==>e the resolve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Class)->{'@: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11202	11295	
==>Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11260	11353	
==>Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6596	6681	
==>-------------------------------------------------------
## BOOTSTRAPPING Roles COMPLET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2323	2430	
==>eturn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2323	2430	
==>eturn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2323	2430	
==>eturn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
su <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12785	13136	
==>,
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{failed}})/$test{max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } els <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6308	6445	
==>{
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6308	6445	
==>{
                    # Try with a more general domain, alternately stripping
                    # leading name components and leading do <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	800	905	
==>pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	800	905	
==>pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	182	287	
==>use we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	182	287	
==>use we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	182	287	
==>use we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	565	687	
==>->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	565	687	
==>->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	565	687	
==>->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3152	3346	
==>hods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3152	3346	
==>hods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3152	3346	
==>hods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7601	7693	
==>d3 Fatal Errors

B<If there is a compilation-stopping error>, $parser->errmsg will return
tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12045	12204	
==>) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12045	12204	
==>) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12045	12204	
==>) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2160	2265	
==>y ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2160	2265	
==>y ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	72	176	
==>nguage Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * RegularEx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2877	2997	
==>@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2877	2997	
==>@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2877	2997	
==>@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7229	7578	
==>new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ), <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	953	1161	
==>t.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	953	1161	
==>t.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	423	523	
==>taining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	423	523	
==>taining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	423	523	
==>taining only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1516	1623	
==>metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1516	1623	
==>metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1516	1623	
==>metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2601	2820	
==>O_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2601	2820	
==>O_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3506	3611	
==>not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3506	3611	
==>not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3506	3611	
==>not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10388	10520	
==>{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10388	10520	
==>{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10388	10520	
==>{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2354	2459	
==>ameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2354	2459	
==>ameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2354	2459	
==>ameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2213	2339	
==>d simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2213	2339	
==>d simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2560	2686	
==>d simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18411	18509	
==>s to getting the most accurate program text
for users, we still get the best results by having a hu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18411	18509	
==>s to getting the most accurate program text
for users, we still get the best results by having a hu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1851	1954	
==>composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1851	1954	
==>composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1851	1954	
==>composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9664	9773	
==>e',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9664	9773	
==>e',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9664	9773	
==>e',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8616	8802	
==>( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8616	8802	
==>( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8616	8802	
==>( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	120	242	
==>Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	120	242	
==>Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	120	242	
==>Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1772	1903	
==>. ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1772	1903	
==>. ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1772	1903	
==>. ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	401	524	
==>lass;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	401	524	
==>lass;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	401	524	
==>lass;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9613	9749	
==>starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9613	9749	
==>starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9613	9749	
==>starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5860	5974	
==>ax map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5860	5974	
==>ax map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5860	5974	
==>ax map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.e <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	362	504	
==>line_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23110	23208	
==>s seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("..." <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23110	23208	
==>s seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("..." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10685	10849	
==>alar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10685	10849	
==>alar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10685	10849	
==>alar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15460	15560	
==>opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15460	15560	
==>opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15460	15560	
==>opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}->($sel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	306	403	
==>Annotator->new->annotate($runtime, $prog)
	);
}

{
	package Blondie::TypeSafe::Annotation;
	use ba <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21545	21635	
==>lso see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21545	21635	
==>lso see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21787	21953	
==>es => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21787	21953	
==>es => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21787	21953	
==>es => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1089	1214	
==>rsion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1089	1214	
==>rsion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1089	1214	
==>rsion, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35445	35585	
==>ay->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35445	35585	
==>ay->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35445	35585	
==>ay->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1007	1156	
==>rogram);
        print "Error in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # pr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3122	3227	
==>_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3122	3227	
==>_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14589	14695	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14589	14695	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14589	14695	
==>{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9210	9310	
==>value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9210	9310	
==>value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing en <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21074	21171	
==>fset would be plausible places to hide data.
Perl_re_dup just copies them.

Aliases:

 #define anc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	556	671	
==>'<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	556	671	
==>'<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ b <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18625	18721	
==>signmentExpressionNoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3535	3659	
==>"FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAI <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3535	3659	
==>"FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5059	5183	
==>"FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAI <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4956	5052	
==>Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4956	5052	
==>Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	744	906	
==>PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	744	906	
==>PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	744	906	
==>PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	168	286	
==>sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2066	2180	
==>apital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumf <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2066	2180	
==>apital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10190	10326	
==>cts all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10190	10326	
==>cts all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10190	10326	
==>cts all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # --------- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19596	19711	
==>y $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19310	19400	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19310	19400	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19310	19400	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$x <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	330	454	
==>sa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Smoke <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	933	1034	
==>depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	991	1092	
==>depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3177	3294	
==>l) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5187	5287	
==>&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5380	5480	
==>&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	297	412	
==>cation
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	297	412	
==>cation
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	297	412	
==>cation
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors impleme <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8997	9159	
==>s$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6389	6495	
==>eturn Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6389	6495	
==>eturn Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6389	6495	
==>eturn Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2495	2611	
==>mitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2495	2611	
==>mitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2495	2611	
==>mitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	290	385	
==>eferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	290	385	
==>eferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	290	385	
==>eferencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2765	2902	
==>$m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2765	2902	
==>$m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @ <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	408	502	
==>_file");

print(('-' x 80), "\n");
print "Testing perl6 naive bayesian script with $test_file\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20226	20337	
==>};
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20226	20337	
==>};
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20226	20337	
==>};
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1897	2005	
==>}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1897	2005	
==>}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1897	2005	
==>}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} & <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8141	8288	
==>ix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4501	4648	
==>ix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5350	5497	
==>ix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5165	5261	
==>'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5165	5261	
==>'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5165	5261	
==>'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7867	7973	
==>hen calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7867	7973	
==>hen calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.c <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1606	1735	
==>unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1606	1735	
==>unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8438	8553	
==>pected.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2033	2138	
==>};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1748	1864	
==>:$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1748	1864	
==>:$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1809	1924	
==>s;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2689	2823	
==>gs} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2829	2963	
==>gs} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5155	5376	
==>modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print( <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5155	5376	
==>modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1477	1577	
==>|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1477	1577	
==>|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1477	1577	
==>|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13103	13210	
==>ispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13103	13210	
==>ispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13103	13210	
==>ispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1492	1604	
==>b_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1492	1604	
==>b_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1701	1813	
==>b_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	89	206	
==>strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    tighter => sub {
        splice( @{$_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4835	4926	
==>rg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4835	4926	
==>rg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	538	635	
==>bject { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	538	635	
==>bject { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method en <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23839	23936	
==>send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3469	3571	
==>a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3469	3571	
==>a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3469	3571	
==>a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10319	10421	
==>Char> <RegularExpressionChars>
}
rule RegularExpressionChars {  # see 7.8.5
      <null>
    | <Regular <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38494	38590	
==>f its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <pla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38494	38590	
==>f its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <pla <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19869	19968	
==>not be changed afterwards.

If you want something similar but that is more mutable, you can accompli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24421	24520	
==>not be changed afterwards.

If you want something similar but that is more mutable, you can accompli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22973	23072	
==>not be changed afterwards.

If you want something similar but that is more mutable, you can accompli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	640	771	
==>ams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	640	771	
==>ams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	640	771	
==>ams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	539	639	
==>pare { confess 'You must override _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3692	3789	
==>od($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3692	3789	
==>od($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3167	3312	
==>mycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3167	3312	
==>mycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3167	3312	
==>mycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3519	3701	
==>($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3519	3701	
==>($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3519	3701	
==>($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10474	10612	
==>calar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10474	10612	
==>calar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10474	10612	
==>calar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10507	10620	
==>& $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compil <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10507	10620	
==>& $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compil <==
3	/Users/nnunley/pugs/util/package-osx.pl	4165	4262	
==>/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man/ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24166	24258	
==>guage.  By contrast, Locale::KeyedText does no compile time binding and
will support multiple <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24166	24258	
==>guage.  By contrast, Locale::KeyedText does no compile time binding and
will support multiple <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6418	6510	
==>terator->new($fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_file> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2932	3038	
==>rn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2932	3038	
==>rn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2932	3038	
==>rn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25007	25113	
==>y, "∀α. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = type::operator::pa <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	599	702	
==>erver_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>" <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	599	702	
==>erver_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7883	7988	
==>wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($go <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7941	8046	
==>wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8667	8795	
==>g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8667	8795	
==>g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8667	8795	
==>g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7459	7554	
==>e_method($_collect_all_roles));

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7459	7554	
==>e_method($_collect_all_roles));

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7459	7554	
==>e_method($_collect_all_roles));

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5187	5342	
==>return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5175	5330	
==>return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18653	18768	
==>le AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <Assignme <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2873	2981	
==>l {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2873	2981	
==>l {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2873	2981	
==>l {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2007	2212	
==>], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7] );
            $state[0] = $st unless $state[1];
            
            
        } while !   $_[3]->{match}[1] && <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	44	148	
==>------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	44	148	
==>------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11733	11921	
==>} # flag toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1251	1359	
==>at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1251	1359	
==>at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	517	642	
==>encee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	517	642	
==>encee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	517	642	
==>encee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18870	19003	
==>art => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18870	19003	
==>art => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18870	19003	
==>art => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	433	544	
==>= shift;
	my $tree;
	print Dumper($rule->($grammar)->( $_[0], undef, $tree, $tree )) if $ENV{DEBUG_lrep};
	Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15943	16049	
==>queue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!que <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15943	16049	
==>queue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!que <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	384	507	
==>: "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $pl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1883	1987	
==>some reason, directly returning this expression does not
    # yield the correct return value.

    say " <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1883	1987	
==>some reason, directly returning this expression does not
    # yield the correct return value.

    say " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21321	21417	
==>es a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21321	21417	
==>es a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8564	8670	
==>$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8564	8670	
==>$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8564	8670	
==>$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3510	3605	
==>es = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5900	6009	
==>($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5900	6009	
==>($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5900	6009	
==>($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	533	652	
==>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	533	652	
==>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	533	652	
==>as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	520	626	
==>s to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	520	626	
==>s to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	520	626	
==>s to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15775	15909	
==>$label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15775	15909	
==>$label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15775	15909	
==>$label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2021	2187	
==>META  ];
$config{'_registered_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3710	3816	
==>0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3710	3816	
==>0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3710	3816	
==>0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5658	5817	
==>antiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5658	5817	
==>antiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5658	5817	
==>antiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6021	6174	
==>$s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6021	6174	
==>$s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6021	6174	
==>$s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1782	1908	
==>= (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1782	1908	
==>= (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1782	1908	
==>= (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1195	1309	
==>ods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1195	1309	
==>ods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1195	1309	
==>ods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36072	36179	
==>set, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36072	36179	
==>set, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36072	36179	
==>set, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	356	459	
==>e with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter ho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	356	459	
==>e with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter ho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	356	459	
==>e with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3704	3793	
==>TML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3704	3793	
==>TML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3704	3793	
==>TML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16147	16250	
==>lue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16147	16250	
==>lue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16147	16250	
==>lue::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-& <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5694	5799	
==>, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5694	5799	
==>, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5694	5799	
==>, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2190	2284	
==>Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2190	2284	
==>Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.membe <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5464	5551	
==>x_file: $!";
my $template = HTML::Template->new(filename => 'util/catalog_tmpl/index.tmp <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2894	2989	
==>$self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2894	2989	
==>$self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	746	849	
==>l., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	746	849	
==>l., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	746	849	
==>l., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2506	2614	
==>varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2506	2614	
==>varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2506	2614	
==>varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	68	175	
==>.05';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27114	27231	
==>:KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27114	27231	
==>:KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVE <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	507	616	
==>ent from @:events and call it.
  my method step () {
    return unless @:events;

    my $callback = shift @:e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5825	5929	
==>$sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5825	5929	
==>$sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5825	5929	
==>$sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3902	4005	
==>{
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3902	4005	
==>{
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4492	4595	
==>{
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incomi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1880	2000	
==>, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1880	2000	
==>, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1880	2000	
==>, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7512	7632	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7512	7632	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7512	7632	
==>(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5942	6076	
==>)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5942	6076	
==>)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5942	6076	
==>)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	508	614	
==>\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	508	614	
==>\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	508	614	
==>\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2418	2553	
==>Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2418	2553	
==>Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2418	2553	
==>Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1651	1742	
==>meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1651	1742	
==>meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1651	1742	
==>meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2174	2273	
==>.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2174	2273	
==>.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2174	2273	
==>.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	370	489	
==>);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    gre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	370	489	
==>);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    gre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	370	489	
==>);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    gre <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1207	1342	
==>coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1632	1747	
==>it> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <n <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1632	1747	
==>it> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21113	21210	
==>UB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21113	21210	
==>UB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21113	21210	
==>UB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9193	9336	
==>= '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1321	1454	
==>= '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1321	1454	
==>= '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passe <==
3	/Users/nnunley/pugs/util/package-osx.pl	774	888	
==>/lib/libhistory.5.1.dylib
        /usr/local/lib/libparrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	74	169	
==>ort MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	74	169	
==>ort MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	97	211	
==>urp($filename);

print <<PRELUDE;
package Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'G <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7949	8054	
==>y > 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (pop @bsrSta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3691	3807	
==>substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3691	3807	
==>substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3691	3807	
==>substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	574	677	
==>s". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	574	677	
==>s". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	574	677	
==>s". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6659	6780	
==>AR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6659	6780	
==>AR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => ' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4120	4210	
==>W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_op(W, star_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	289	399	
==>er internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	271	377	
==>er internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	271	372	
==>e->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backend::C::Pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15454	15578	
==>Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15454	15578	
==>Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $chan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6604	6751	
==>RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6604	6751	
==>RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2970	3073	
==>croak "no regex defined" unless &RxLEN;

  while (my $try = pop @{ $self->{next} }) {
    if (defined(my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1844	1956	
==>store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1844	1956	
==>store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1844	1956	
==>store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14023	14138	
==>);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8228	8343	
==>);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4399	4508	
==>on (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4399	4508	
==>on (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4399	4508	
==>on (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7895	8072	
==>@_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7895	8072	
==>@_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7895	8072	
==>@_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5955	6069	
==>[$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5955	6069	
==>[$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5955	6069	
==>[$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1757	1874	
==>t_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1757	1874	
==>t_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1993	2110	
==>t_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4683	4809	
==>didates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	929	1037	
==>= $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === no <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	929	1037	
==>= $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	0	116	
==>sub infix:«~~» (Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	0	116	
==>sub infix:«~~» (Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	0	116	
==>sub infix:«~~» (Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1674	1864	
==>b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1674	1864	
==>b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1674	1864	
==>b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19925	20057	
==>ue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global dest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19925	20057	
==>ue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global dest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19925	20057	
==>ue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global dest <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1375	1466	
==>d contains My/State/Temp markers for container

allocation, as well as the compile-time-boun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1315	1405	
==>d contains My/State/Temp markers for container
allocation, as well as the compile-time-boun <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3377	3466	
==>my $termEmpty = $self->termTable()->{""};
  my $operatorEmpty = $self->operatorTable()->{" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15217	15324	
==>_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15217	15324	
==>_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15217	15324	
==>_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27266	27362	
==>that returns a new Relation
which has a superset of the original's attributes; the new Relation h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31818	31914	
==>that returns a new Relation
which has a superset of the original's attributes; the new Relation h <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2470	2579	
==>_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ... <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2470	2579	
==>_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ... <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3383	3491	
==>ct(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a digit)
  $self->add_handler('\ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6998	7097	
==>r 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6998	7097	
==>r 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) T <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1643	1776	
==>describe}@$v))."\n]";
        } else {
            $vs = $v->describe;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	966	1081	
==>{ (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12395	12507	
==>} . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runperl .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	436	556	
==>urn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	436	556	
==>urn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	436	556	
==>urn bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2629	2722	
==>of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following public <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2629	2722	
==>of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following public <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4134	4307	
==>%opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4134	4307	
==>%opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4134	4307	
==>%opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11714	11835	
==>> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4357	4478	
==>> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	852	984	
==>) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1901	2026	
==>y $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1961	2086	
==>y $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3544	3652	
==>$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3544	3652	
==>$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3544	3652	
==>$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { preco <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1485	1588	
==>documented,
# audreyt forked, creating re-override, intending to provide just such
# a usable module.  A <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20339	20433	
==>nd reliably, it also performs quite slowly; you should only use Example
for testing, developmen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20339	20433	
==>nd reliably, it also performs quite slowly; you should only use Example
for testing, developmen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2220	2409	
==>)"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2220	2409	
==>)"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2220	2409	
==>)"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10855	10968	
==>foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10855	10968	
==>foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10855	10968	
==>foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15603	15723	
==>_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10459	10579	
==>_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min un <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25749	25846	
==> γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new(list => type::variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2109	2235	
==>$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2109	2235	
==>$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2109	2235	
==>$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3243	3342	
==>s_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3243	3342	
==>s_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3243	3342	
==>s_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20183	20274	
==>:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20183	20274	
==>:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20183	20274	
==>:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(! <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6535	6719	
==>ent_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6535	6719	
==>ent_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1089	1222	
==>e in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1089	1222	
==>e in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        u <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1598	1695	
==>equivalence = $self->tokenTable()->{$relativePrecedence}{equiv};
    }
  }

  my $noWhitespace = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	849	951	
==>e => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	849	951	
==>e => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	849	951	
==>e => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16483	16617	
==>od('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16483	16617	
==>od('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16483	16617	
==>od('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	770	901	
==>++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	770	901	
==>++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	770	901	
==>++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_key <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	263	359	
==>t = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B<FOR IN <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20724	20814	
==><Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20724	20814	
==><Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3112	3206	
==>returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3112	3206	
==>returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6693	6821	
==>Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6693	6821	
==>Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6693	6821	
==>Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	281	432	
==>from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	281	432	
==>from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	281	432	
==>from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27679	27772	
==>ch value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32231	32324	
==>ch value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31323	31416	
==>ch value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7643	7739	
==>ock> class takes care of much of this.)

A default implementation of this method is provided whic <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7643	7739	
==>ock> class takes care of much of this.)

A default implementation of this method is provided whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15545	15675	
==>>{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15545	15675	
==>>{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15545	15675	
==>>{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14781	14880	
==>eCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14781	14880	
==>eCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14781	14880	
==>eCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1389	1503	
==>$class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1594	1708	
==>$class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1655	1769	
==>$class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$metho <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16611	16722	
==>eturn $val;
}

sub reduce_val {
    my $self = shift;
    my $node = shift;

    return Val->new($self->reduce($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9562	9703	
==>n;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14927	15046	
==>> $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14927	15046	
==>> $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14665	14765	
==>'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14665	14765	
==>'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14665	14765	
==>'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => metho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10563	10729	
==>rgs[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time process <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6904	7070	
==>rgs[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time process <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7753	7919	
==>rgs[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time process <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12268	12415	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12547	12694	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { gr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	332	465	
==>ift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    exi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2934	3047	
==>not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3783	3896	
==>not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3797	3896	
==>us.

=item B<Wstat>

The wait status of the test.

=item B<Total>

Total number of tests expected to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	433	633	
==>exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4982	5127	
==>L = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4809	4949	
==>L = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6084	6257	
==>->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6084	6257	
==>->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6084	6257	
==>->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22644	22742	
==>a attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27196	27294	
==>a attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	964	1087	
==>IN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3345	3458	
==>end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3345	3458	
==>end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5637	5739	
==>->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5637	5739	
==>->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5637	5739	
==>->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39675	39781	
==>gth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39675	39781	
==>gth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39675	39781	
==>gth, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3313	3467	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3313	3467	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3313	3467	
==>ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16356	16523	
==>a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16356	16523	
==>a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16356	16523	
==>a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2344	2475	
==>turing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2591	2722	
==>turing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_te <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1134	1227	
==>6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	476	586	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	476	586	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	476	586	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5564	5675	
==>$fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5564	5675	
==>$fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5564	5675	
==>$fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      spr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6302	6408	
==>$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6302	6408	
==>$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6302	6408	
==>$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4622	4730	
==>,@rules),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16304	16398	
==>it defaults to empty if the parameter's
corresponding argument is not provided).  If the option <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16304	16398	
==>it defaults to empty if the parameter's
corresponding argument is not provided).  If the option <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4512	4608	
==><$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4512	4608	
==><$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6709	6805	
==><$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19741	19843	
==>n matched */

=head2 Other things the world messes with:


  I32 refcnt;

What invariants?  Don'T know. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3058	3153	
==>d repeatedly to encipher data.
The encipherer closure can be called with a string, and should be <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3058	3153	
==>d repeatedly to encipher data.
The encipherer closure can be called with a string, and should be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2685	2794	
==>LOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2685	2794	
==>LOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2685	2794	
==>LOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1616	1724	
==>)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1616	1724	
==>)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1616	1724	
==>)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6844	6957	
==>tance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6844	6957	
==>tance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6844	6957	
==>tance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$:: <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5482	5587	
==>ft;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $self->get_tests;
    $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2518	2632	
==>e methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2518	2632	
==>e methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2518	2632	
==>e methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18512	18638	
==>class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2572	2687	
==>& @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2572	2687	
==>& @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1787	1892	
==>lock}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $chr =~ /([\'\"] <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17143	17239	
==>the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17143	17239	
==>the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1038	1156	
==>i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1038	1156	
==>i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1038	1156	
==>i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	319	443	
==>SAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HAS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	319	443	
==>SAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HAS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	319	443	
==>SAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HAS <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1470	1596	
==>1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5916	6026	
==>s Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5916	6026	
==>s Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14617	14727	
==>undef };
my %as_hash_handlers =
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numeric     => s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1298	1405	
==>persand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encodi <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1298	1405	
==>persand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encodi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16748	16881	
==>rimitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1475	1566	
==>strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
sha <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1475	1566	
==>strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
sha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16558	16726	
==>ys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16558	16726	
==>ys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16558	16726	
==>ys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	345	461	
==>eating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	345	461	
==>eating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	345	461	
==>eating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compilin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16737	16977	
==>h @unresolved, { target   => $target, 
                                        heading  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # crea <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3979	4069	
==>r> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAste <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	693	781	
==>able->addToken("term:.", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6269	6365	
==>ed by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6269	6365	
==>ed by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6269	6365	
==>ed by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1386	1527	
==>. "(" . $node->id . ")\" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output;
    if (not exists $SEEN{$cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18000	18097	
==>source filtering a sane process, by
parsing up your module's source code into various blocks; so t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18000	18097	
==>source filtering a sane process, by
parsing up your module's source code into various blocks; so t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19110	19204	
==>to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19110	19204	
==>to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programm <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4378	4487	
==>nostics and output match exactly.  If you pass
C<$description>, this will use it as the test description.

=ba <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4378	4487	
==>nostics and output match exactly.  If you pass
C<$description>, this will use it as the test description.

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4458	4567	
==>nostics and output match exactly.  If you pass
C<$description>, this will use it as the test description.

=ba <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15076	15169	
==>eExpression>
    | <AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpres <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2852	2944	
==>::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2852	2944	
==>::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11871	11968	
==>able = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11871	11968	
==>able = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11871	11968	
==>able = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9267	9383	
==>others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10073	10189	
==>others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10988	11104	
==>others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7711	7830	
==>_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1987	2088	
==>! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1987	2088	
==>! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4375	4479	
==>L2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4375	4479	
==>L2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4375	4479	
==>L2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3902	4044	
==>abel) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3902	4044	
==>abel) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3902	4044	
==>abel) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11389	11530	
==>_method' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	619	718	
==>en.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	619	718	
==>en.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9446	9553	
==>----------------------------------------      
    # this collects a unique list of roles 
    # gather recu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9446	9553	
==>----------------------------------------      
    # this collects a unique list of roles 
    # gather recu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9446	9553	
==>----------------------------------------      
    # this collects a unique list of roles 
    # gather recu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20650	20753	
==>ACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20650	20753	
==>ACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20650	20753	
==>ACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11706	11870	
==>modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd_mnt/lib6/$_";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      } <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2368	2459	
==>omepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subs <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2368	2459	
==>omepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2583	2701	
==>' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1195	1313	
==>' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1896	2014	
==>' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41013	41115	
==>head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41013	41115	
==>head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41013	41115	
==>head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	398	538	
==>t of Bool;

multi sub keys   (@array ; Any|Junction *@indextests) returns List of Object
multi sub kv     (@array ; Any|Junction *@indextests <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	667	767	
==>rently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	667	767	
==>rently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7939	8130	
==>ram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7939	8130	
==>ram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7939	8130	
==>ram ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tm <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8916	9018	
==>l($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6051	6146	
==>ts implemented. Currently, the headers
are returned as one long string.

=item List Context

All <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6051	6146	
==>ts implemented. Currently, the headers
are returned as one long string.

=item List Context

All <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1155	1291	
==>my @files = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, $f <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5635	5745	
==>next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5635	5745	
==>next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12245	12365	
==>tore {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12245	12365	
==>tore {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12245	12365	
==>tore {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unbox <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16151	16271	
==>s more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16151	16271	
==>s more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=ite <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1889	1986	
==>$graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	514	609	
==>ined %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	514	609	
==>ined %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	448	543	
==>->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $params->{fixity} | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5932	6048	
==>bel => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _on <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5745	5855	
==>bel => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _on <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3560	3688	
==>1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4409	4537	
==>1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless r <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	365	468	
==>x:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14564	14682	
==>= $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14564	14682	
==>= $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14564	14682	
==>= $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a numb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5165	5311	
==>ugs::Runtime::Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3000	3104	
==>plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7379	7482	
==>plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38395	38515	
==>$fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38395	38515	
==>$fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38395	38515	
==>$fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @r <==
3	/Users/nnunley/pugs/util/build_pugs.pl	971	1073	
==>s passed in _+GEN_PRELUDE segment";
    
    print "Build configuration:\n" . PugsBuild::Config->pretty <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3543	3640	
==>traction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3543	3640	
==>traction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11752	11862	
==>urn $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2182	2280	
==>urn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2182	2280	
==>urn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    me <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8204	8327	
==>sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local string target
    .local pmc mfrom, mpos
    .local <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6743	6840	
==>he
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document id <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6743	6840	
==>he
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document id <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14424	14549	
==>:pos"
    pos = $P0
    lastpos = length target
    inc pos
    $S0 = substr target, pos, 1
    if $S0 == '<' goto name
    $I <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4424	4544	
==>rrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4424	4544	
==>rrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17675	17817	
==>rnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17675	17817	
==>rnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17675	17817	
==>rnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3623	3717	
==>load the operator definitions lastly because they'll override *our*
# operators.
use Prelude::J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3623	3717	
==>load the operator definitions lastly because they'll override *our*
# operators.
use Prelude::J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3623	3717	
==>load the operator definitions lastly because they'll override *our*
# operators.
use Prelude::J <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15941	16047	
==>lf->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10797	10903	
==>lf->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if $ <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1455	1597	
==>($/[37..35]);
            $duration = Duration::Gregorian.new
                ( :start($start), :end($end) );
        }
    } else {
        !! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7763	7878	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7956	8071	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7884	8092	
==>nump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7884	8092	
==>nump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	230	343	
==>e::TypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	}, $class;
}

sub string {
	my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1400	1499	
==>urrent
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1400	1499	
==>urrent
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8488	8581	
==>afe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeSafe::Type::Bottom-> <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1319	1436	
==>$str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join< <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	339	456	
==>$str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join< <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8795	8912	
==>$str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1819	1914	
==>\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1819	1914	
==>\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1819	1914	
==>\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8541	8641	
==>y', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2208	2306	
==>mmand {

    # External packages used by the Rosetta::Interface::Command class, that do export symb <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2208	2306	
==>mmand {

    # External packages used by the Rosetta::Interface::Command class, that do export symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7573	7667	
==>,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7573	7667	
==>,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7573	7667	
==>,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_ma <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	811	917	
==>ine 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implici <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	811	917	
==>ine 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implici <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5976	6076	
==>s($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5976	6076	
==>s($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5976	6076	
==>s($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36212	36352	
==>length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36212	36352	
==>length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36212	36352	
==>length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	491	592	
==>=> $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	491	592	
==>=> $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	491	592	
==>=> $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	186	320	
==>'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	186	320	
==>'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8331	8460	
==>ule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15978	16075	
==>ulti Str::chop ( Str *@strings = (CALLER::<$_>) is rw --> Char )

Trims the last character from C< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13857	13966	
==>g of the order that source relations are
    # combined, so to try and make the least expensive kinds of combi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17334	17443	
==>g of the order that source relations are
    # combined, so to try and make the least expensive kinds of combi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16714	16823	
==>g of the order that source relations are
    # combined, so to try and make the least expensive kinds of combi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8037	8208	
==>ts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8037	8208	
==>ts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8037	8208	
==>ts ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7253	7455	
==>>int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7253	7455	
==>>int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7253	7455	
==>>int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2698	2809	
==>@_) if @_;
    return $provides;
}

sub auto_provides {
    my $self = shift;
    return $self unless $self->is_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6469	6565	
==>et(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6469	6565	
==>et(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2519	2621	
==>= $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2519	2621	
==>= $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2519	2621	
==>= $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16646	16823	
==>);
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16646	16823	
==>);
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16646	16823	
==>);
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9338	9448	
==>l ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9338	9448	
==>l ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9338	9448	
==>l ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1928	2048	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1928	2048	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1928	2048	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	296	437	
==>opy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return ' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	296	437	
==>opy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	96	195	
==>use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings;

use Ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5378	5491	
==>));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5378	5491	
==>));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5378	5491	
==>));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17983	18077	
==>ld contain an Internet e-mail address for the human
user who controls the requesting user agent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17983	18077	
==>ld contain an Internet e-mail address for the human
user who controls the requesting user agent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1368	1487	
==>n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1368	1487	
==>n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1368	1487	
==>n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3063	3161	
==>h 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3063	3161	
==>h 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1624	1716	
==>&& ($return_value->isa($self->{sig}->returns) || $return_value->isa('nil')))
        || confe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13950	14081	
==>ey {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13950	14081	
==>ey {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(S <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	615	742	
==>"$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1 <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	615	742	
==>"$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4072	4175	
==>k on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4072	4175	
==>k on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4072	4175	
==>k on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6175	6299	
==>l( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Exam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3741	3859	
==>l( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7218	7336	
==>l( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7133	7243	
==>PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7133	7243	
==>PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7133	7243	
==>PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      spri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10976	11174	
==>'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %params) returns opaque {
    $class.bless(un <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	401	542	
==>$is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unles <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	401	542	
==>$is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1197	1287	
==>(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1197	1287	
==>(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1197	1287	
==>(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5367	5473	
==>t (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5367	5473	
==>t (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5367	5473	
==>t (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5848	5954	
==>ars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5848	5954	
==>ars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5848	5954	
==>ars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12416	12555	
==>on = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2794	2925	
==>on = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2794	2925	
==>on = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8048	8188	
==>), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7774	7906	
==>), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ru <==
3	/Users/nnunley/pugs/util/build_pugs.pl	43	139	
==>s;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Find qw( <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5311	5439	
==>m($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '..';
        chdir ' <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1511	1610	
==>ind;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Plugga <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1511	1610	
==>ind;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Plugga <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10415	10561	
==>[@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10415	10561	
==>[@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22745	22887	
==>own => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23247	23389	
==>own => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my <==
3	/Users/nnunley/pugs/util/build_pugs.pl	432	528	
==>$0 - build a pugs executable

This script calls GHC to build a pugs exectuable, optionally inlini <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7067	7155	
==>val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7067	7155	
==>val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3916	4021	
==>stcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3916	4021	
==>stcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3916	4021	
==>stcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$has <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3494	3632	
==>> @caller[2],
        subname => @caller[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3239	3360	
==>t = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3239	3360	
==>t = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.star <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1290	1395	
==>| confess "Key must be a str type";
    (blessed($value) && $value->isa('type'))
        || confess "Index <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3352	3447	
==>E__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*', <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3352	3447	
==>E__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13350	13444	
==>equence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequence (?#... not terminated

=ite <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4918	5062	
==>shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15105	15199	
==>) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTIC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15105	15199	
==>) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTIC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	238	488	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_ke <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	238	488	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2410	2509	
==>f->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2410	2509	
==>f->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2410	2509	
==>f->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2729	2853	
==>->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2729	2853	
==>->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2729	2853	
==>->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9118	9230	
==>';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9118	9230	
==>';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9118	9230	
==>';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6894	7010	
==>p /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6894	7010	
==>p /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6894	7010	
==>p /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2512	2647	
==>PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2512	2647	
==>PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2512	2647	
==>PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2730	2908	
==>::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2730	2908	
==>::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15680	15794	
==>, "Missing close '>' in scalar")
  end:
    mpos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .param pm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2994	3122	
==>g {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3541	3669	
==>g {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	6	105	
==>/bin/perl

package Blondie::Prelude::Math;

use strict;
use warnings;

use Blondie::Nodes;

sub symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4112	4226	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4112	4226	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4112	4226	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12738	12868	
==>e can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12738	12868	
==>e can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12738	12868	
==>e can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1731	1847	
==>t.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1731	1847	
==>t.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1731	1847	
==>t.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1235	1352	
==>_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1235	1352	
==>_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1235	1352	
==>_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	27	137	
==>or continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	27	137	
==>or continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	27	137	
==>or continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2530	2624	
==>ince we don't yet have object support, this module is more like the
Perl 5 File::Spec::Function <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2530	2624	
==>ince we don't yet have object support, this module is more like the
Perl 5 File::Spec::Function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1911	2016	
==>!~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1911	2016	
==>!~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1911	2016	
==>!~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10947	11055	
==>, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some sour <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10947	11055	
==>, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some sour <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	242	342	
==>ict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'Module:: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16615	16735	
==>$n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub trunc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5048	5139	
==>he match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGH <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5048	5139	
==>he match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17832	17994	
==>everse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17832	17994	
==>everse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17832	17994	
==>everse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1997	2119	
==>( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5474	5596	
==>( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4404	4526	
==>( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12942	13197	
==>ms] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12942	13197	
==>ms] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12942	13197	
==>ms] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	417	520	
==>ame}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	417	520	
==>ame}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	417	520	
==>ame}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1822	1936	
==>mber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1822	1936	
==>mber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1822	1936	
==>mber(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1601	1736	
==>g_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1612	1747	
==>g_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	143	302	
==>ot::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	143	302	
==>ot::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	143	302	
==>ot::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2522	2627	
==>}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2522	2627	
==>}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2522	2627	
==>}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4504	4629	
==>t

sub add_package_to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4367	4462	
==>144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4367	4462	
==>144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%( <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6713	6935	
==>> $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnam <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6713	6935	
==>> $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnam <==
3	/Users/nnunley/pugs/util/combine_tests.pl	356	460	
==>ied reference.
# Note: no copy is made!
#
# Adds a more_events[] with events to each event for which
# th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35827	35966	
==>== length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35827	35966	
==>== length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35827	35966	
==>== length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	159	289	
==>ent
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Ha <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3401	3517	
==>o, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some hea <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3401	3517	
==>o, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27457	27556	
==>});

This makes 'u' a valid flag for your regex, and creates the method
C<FLAG_u>.  This doesn't mea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11135	11274	
==>r;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1607	1732	
==>r;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1607	1732	
==>r;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does T <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3320	3406	
==>uffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($bu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3320	3406	
==>uffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($bu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3027	3137	
==>ntime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $compiled = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	763	861	
==>tion between them.)  The C<:shift(N)> option can be used to 
select a different number of letters t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	763	861	
==>tion between them.)  The C<:shift(N)> option can be used to 
select a different number of letters t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37723	37833	
==>( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37723	37833	
==>( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37723	37833	
==>( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	520	629	
==>e's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	520	629	
==>e's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	520	629	
==>e's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1617	1779	
==>pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1617	1779	
==>pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1617	1779	
==>pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27519	27725	
==>erl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27519	27725	
==>erl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27519	27725	
==>erl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	639	769	
==>shift;
        return $self;
    };
}

sub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15870	15967	
==>odules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15928	16025	
==>odules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2555	2669	
==>tches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2555	2669	
==>tches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2635	2749	
==>tches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7365	7467	
==>/add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7365	7467	
==>/add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize( <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	613	713	
==>/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50855	50971	
==>get('$self:')->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7992	8091	
==>he Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- ` <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7992	8091	
==>he Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6612	6719	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6612	6719	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6612	6719	
==>}
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5776	6003	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5776	6003	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5776	6003	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1647	1773	
==>gex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

r <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1647	1773	
==>gex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9585	9669	
==>other_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singleton_method( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1248	1414	
==>j->meta(   $meta     );
        $obj->dir(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	150	244	
==>e or parenthesized
group.  This is approximately the Match object that userland folks will
see, <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	150	244	
==>e or parenthesized
group.  This is approximately the Match object that userland folks will
see, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	463	581	
==>ll was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	463	581	
==>ll was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	463	581	
==>ll was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New m <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1567	1693	
==>ey }  
        if $cap && +@matches == $cap { return @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1994	2107	
==>exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1994	2107	
==>exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1034	1132	
==>he diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=bac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1034	1132	
==>he diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=bac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1590	1688	
==>he diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

=bac <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4533	4632	
==>( File::Spec->canonpath($candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8181	8276	
==>e same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8181	8276	
==>e same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5063	5158	
==>.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5063	5158	
==>.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7260	7355	
==>.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	121	224	
==>e vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub Make <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3143	3238	
==>ceptible to related-key attacks.

This means that you should strive to use only truly random key <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3143	3238	
==>ceptible to related-key attacks.

This means that you should strive to use only truly random key <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	978	1161	
==>};
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # X <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	978	1161	
==>};
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # X <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9613	9729	
==>thod skips whitespace and comments


  ### '$'

  $self->add_handler('$' => sub {
    my ($S) = @_;

    if (${&Rx} = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8698	8805	
==>new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, & <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8698	8805	
==>new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	409	495	
==>low for more details.
## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12968	13074	
==>ub new {
    bless { params => undef, param_stack => [] }, shift;
}

sub reduce_val { $_[1]->val }

sub red <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5756	5858	
==>r ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5756	5858	
==>r ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13126	13239	
==>n $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16603	16716	
==>n $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15965	16078	
==>n $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10076	10210	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10076	10210	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10076	10210	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-cr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4918	5019	
==>=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4918	5019	
==>=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7115	7216	
==>=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the te <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	742	851	
==>ember is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have z <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4220	4329	
==>ember is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have z <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27872	27968	
==>s method returns a deep copy of this Relation::Example as a Hash ref of 2
elements, which corresp <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1163	1258	
==>to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footpr <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1163	1258	
==>to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footpr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1858	1969	
==>ered alternative

=cut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    msg("Pack <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1134	1242	
==>( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	997	1100	
==>( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21449	21549	
==>6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exis <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21449	21549	
==>6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exis <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21449	21549	
==>6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2046	2150	
==>var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2046	2150	
==>var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2046	2150	
==>var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1401	1528	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $coun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1401	1528	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $coun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1401	1528	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $coun <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22689	22802	
==>ength_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	183	283	
==>_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	183	283	
==>_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16121	16213	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16121	16213	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16121	16213	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1137	1248	
==>------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1137	1248	
==>------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1137	1248	
==>------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27739	27836	
==>ven each original tuple/Mapping as its sole read-only argument, returns a
value that is optionally <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32291	32388	
==>ven each original tuple/Mapping as its sole read-only argument, returns a
value that is optionally <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31383	31480	
==>ven each original tuple/Mapping as its sole read-only argument, returns a
value that is optionally <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17312	17491	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17312	17491	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17312	17491	
==>ss->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3872	3969	
==>en that your perl was compiled without PMC support.

  Can't locate object method "compile" via pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14388	14477	
==>('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14388	14477	
==>('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14388	14477	
==>('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4038	4142	
==>fix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4038	4142	
==>fix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4038	4142	
==>fix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	672	809	
==>{
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	672	809	
==>{
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	672	809	
==>{
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9692	9786	
==>ethod collect_all_roles () { "<implemented>" }  

    # --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9692	9786	
==>ethod collect_all_roles () { "<implemented>" }  

    # --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9692	9786	
==>ethod collect_all_roles () { "<implemented>" }  

    # --------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1112	1224	
==>diately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1112	1224	
==>diately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1112	1224	
==>diately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # F <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10903	11003	
==>`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (St <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10961	11061	
==>`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (St <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	293	392	
==>,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv-client <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10434	10548	
==>dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" => $i->parse($source), ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	327	434	
==>re unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	327	434	
==>re unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39122	39268	
==>ms },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39122	39268	
==>ms },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39122	39268	
==>ms },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	880	991	
==>$.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_tr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	880	991	
==>$.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_tr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10072	10241	
==>'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10072	10241	
==>'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8546	8656	
==>ooter = $.testplan.footer( +@:results );
      $.output.write( $footer ) if $footer;
  }
  
  method get_test_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11789	11944	
==>spatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11789	11944	
==>spatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11789	11944	
==>spatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3708	3871	
==>}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3708	3871	
==>}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3708	3871	
==>}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - defa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6884	7017	
==>nts'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6884	7017	
==>nts'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12911	13015	
==>" attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12911	13015	
==>" attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12911	13015	
==>" attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4543	4687	
==>mpression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	270	377	
==>!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/u <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	270	377	
==>!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3885	4037	
==>onstant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3885	4037	
==>onstant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\", <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2103	2247	
==>})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3456	3565	
==>h $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3456	3565	
==>h $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3456	3565	
==>h $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1483	1630	
==>s on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1432	1574	
==>s on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7378	7541	
==>thods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7378	7541	
==>thods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7378	7541	
==>thods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_metho <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3907	4004	
==>!defined $args->{invocant};

	$self->invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23472	23559	
==>2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23472	23559	
==>2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3379	3502	
==>), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3379	3502	
==>), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3379	3502	
==>), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4089	4202	
==>_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4938	5051	
==>_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10651	10753	
==>onTerminator>
    | <BackslashSequence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <NonTermin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9100	9231	
==>t implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9100	9231	
==>t implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9100	9231	
==>t implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11939	12107	
==>n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8221	8389	
==>n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9055	9223	
==>n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12232	12357	
==>urn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12232	12357	
==>urn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12232	12357	
==>urn this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2837	2952	
==>ackup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2837	2952	
==>ackup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2837	2952	
==>ackup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3977	4082	
==>ds.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3977	4082	
==>ds.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3977	4082	
==>ds.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	499	618	
==>f Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	499	618	
==>f Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	499	618	
==>f Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7197	7318	
==>kup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7197	7318	
==>kup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7197	7318	
==>kup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4093	4192	
==>tracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4277	4376	
==>tracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5155	5309	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->next <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5155	5309	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->next <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5155	5309	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->next <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	108	218	
==>essage::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Installation;

use base <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12709	12816	
==>return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6184	6291	
==>return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17471	17559	
==>be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML document <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17471	17559	
==>be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML document <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2302	2408	
==>ackup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2302	2408	
==>ackup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2302	2408	
==>ackup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12491	12607	
==>( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12491	12607	
==>( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12491	12607	
==>( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13085	13191	
==>strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header.  Will be run with /x
my $Ext <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21234	21328	
==>tionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21234	21328	
==>tionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5685	5811	
==>ement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5685	5811	
==>ement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25487	25585	
==>ples is
a row, and each attribute is a column, but a Relation::Example is not a table.

The Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1608	1715	
==>gs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1608	1715	
==>gs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1608	1715	
==>gs);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	215	329	
==>@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	215	329	
==>@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	215	329	
==>@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use G <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1032	1125	
==>ted interfaces.  The 
functional and object-oriented interfaces both follow the same basic ste <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1032	1125	
==>ted interfaces.  The 
functional and object-oriented interfaces both follow the same basic ste <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	925	1171	
==>ass Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	925	1171	
==>ass Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4344	4438	
==>k = runtests(@test_files);

This runs all the given I<@test_files> and divines whether they pas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3888	3996	
==>xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unles <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3888	3996	
==>xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unles <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3888	3996	
==>xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unles <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	907	1007	
==>xport { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is expor <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	907	1007	
==>xport { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5309	5503	
==>me =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5309	5503	
==>me =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5309	5503	
==>me =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4639	4755	
==>ns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4639	4755	
==>ns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4639	4755	
==>ns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3874	4005	
==>atch or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4014	4145	
==>atch or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26575	26669	
==>n sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will pr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9414	9597	
==>s $deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8993	9095	
==>rn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9186	9288	
==>rn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6356	6481	
==>ym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(81 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6356	6481	
==>ym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(81 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	508	606	
==>atdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use En <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	508	606	
==>atdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use En <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	508	606	
==>atdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use En <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22896	22987	
==>$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22896	22987	
==>$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	22	171	
==>ge PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	22	171	
==>ge PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	22	171	
==>ge PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5865	5973	
==>Glob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5865	5973	
==>Glob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5865	5973	
==>Glob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3346	3448	
==>,p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3346	3448	
==>,p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3346	3448	
==>,p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4145	4249	
==>efined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4145	4249	
==>efined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4145	4249	
==>efined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13723	13862	
==>rn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13723	13862	
==>rn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13723	13862	
==>rn %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1750	1877	
==>a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division by zero error";
    return num->new(int($lef <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4329	4422	
==>'today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `D <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4329	4422	
==>'today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5501	5608	
==>ditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5501	5608	
==>ditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6091	6198	
==>ditional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8241	8363	
==>ss keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8241	8363	
==>ss keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8241	8363	
==>ss keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	88	198	
==>s;
use Blondie::Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3472	3567	
==>cedural and functional 
interfaces are layers on top of the object-oriented backend.

To use the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3472	3567	
==>cedural and functional 
interfaces are layers on top of the object-oriented backend.

To use the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11518	11622	
==>d('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11518	11622	
==>d('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11518	11622	
==>d('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6629	6756	
==>st>' );
    my $fh   = get_str( $_[0], '$<indirect_object>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'w <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1624	1720	
==>ples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1624	1720	
==>ples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3278	3393	
==>32
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3278	3393	
==>32
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3278	3393	
==>32
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $stri <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16084	16178	
==>m component may raise such a condition, and one
application may handle it internally, while ano <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16084	16178	
==>m component may raise such a condition, and one
application may handle it internally, while ano <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9934	10108	
==>ed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no si <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6275	6449	
==>ed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no si <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7124	7298	
==>ed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no si <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	393	489	
==>of 
a more practical closure based system, similar to what is described
in here (note: same autho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1532	1645	
==>d, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1532	1645	
==>d, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3756	3848	
==>::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4543	4647	
==>d C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and sho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4543	4647	
==>d C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and sho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6740	6844	
==>d C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and sho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4005	4132	
==>quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3993	4120	
==>quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2616	2736	
==>Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2616	2736	
==>Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2616	2736	
==>Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq " <==
3	/Users/nnunley/pugs/util/addauthors.pl	1071	1213	
==>foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    wa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	253	355	
==>e_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Arra <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	253	355	
==>e_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2696	2797	
==>nless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2696	2797	
==>nless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2696	2797	
==>nless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Obje <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10040	10267	
==>lit /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10645	10773	
==>n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	851	957	
==>piler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.va <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	851	957	
==>piler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.va <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21487	21593	
==>float_max_offset substrs->data[1].max_offset
 #define check_substr     substrs->data[2].substr
 #define che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	303	441	
==>erl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	303	441	
==>erl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	303	441	
==>erl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $j <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3047	3161	
==>n($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3047	3161	
==>n($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4571	4685	
==>n($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35803	35939	
==>y=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35803	35939	
==>y=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35803	35939	
==>y=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	544	661	
==>successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	544	661	
==>successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	826	936	
==>method create_arguments ( @strings )  {
            $.argument_class.string_to_arguments( @strings );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3428	3543	
==>if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3428	3543	
==>if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3428	3543	
==>if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3605	3710	
==>ie ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3605	3710	
==>ie ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3605	3710	
==>ie ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32509	32694	
==>st if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32509	32694	
==>st if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32509	32694	
==>st if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11601	11760	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11601	11760	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11601	11760	
==>nd' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->ce <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4719	4845	
==>"";
    my $code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $co <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	273	395	
==>er because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The pl <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	273	395	
==>er because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The pl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9524	9631	
==>tive form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESC <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9524	9631	
==>tive form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	661	759	
==>face
sub to_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9533	9689	
==>self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9533	9689	
==>self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9533	9689	
==>self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29180	29306	
==>new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29180	29306	
==>new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29180	29306	
==>new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6414	6629	
==>ulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6414	6629	
==>ulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6414	6629	
==>ulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2760	2870	
==>ang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2760	2870	
==>ang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2760	2870	
==>ang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eva <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2495	2606	
==>r $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2495	2606	
==>r $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21240	21332	
==>(E0,C,Set).

class_member(class_pos(space_perl),C) :- !,   (char_type(C,space) ; C = 11). %\v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3495	3606	
==>, "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3495	3606	
==>, "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3495	3606	
==>, "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we gen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1189	1309	
==>UTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1394	1514	
==>UTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1455	1575	
==>UTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16141	16282	
==>/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_state>

  $strap-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1235	1361	
==>"Error in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11762	11894	
==>" attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15239	15371	
==>" attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14574	14706	
==>" attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4933	5028	
==>ssociativity of the original operator and auto-metaed versions
# of user-defined ops are not gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4933	5028	
==>ssociativity of the original operator and auto-metaed versions
# of user-defined ops are not gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4933	5028	
==>ssociativity of the original operator and auto-metaed versions
# of user-defined ops are not gen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5596	5709	
==>kip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DAT <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5596	5709	
==>kip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DAT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45338	45448	
==>'$:name'      => 'str')));
$::Package->send('add_attribute', (symbol->new('%:namespace') => attribute->new('%:n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1965	2089	
==>D_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1965	2089	
==>D_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1965	2089	
==>D_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($js <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	665	773	
==>ust be native types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3269	3372	
==>udo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($cur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3269	3372	
==>udo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($cur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3724	3892	
==>(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get('$current')->send('get_metho <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1002	1099	
==>g> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1002	1099	
==>g> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23774	23879	
==>efined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23774	23879	
==>efined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23774	23879	
==>efined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11289	11387	
==>File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11289	11387	
==>File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11289	11387	
==>File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1063	1179	
==>ut}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	254	358	
==>I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simpl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	254	358	
==>I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16878	17063	
==>},
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16878	17063	
==>},
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16878	17063	
==>},
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20290	20380	
==>atch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20290	20380	
==>atch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20290	20380	
==>atch($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5336	5445	
==>b} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5336	5445	
==>b} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5336	5445	
==>b} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1928	2028	
==>::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1928	2028	
==>::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1928	2028	
==>::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "V <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1145	1242	
==>ots, like square roots or
cube roots (as in the example above).  Read a Calculus textbook for deta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3551	3659	
==>uldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3551	3659	
==>uldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3551	3659	
==>uldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5808	5904	
==>JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5808	5904	
==>JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5808	5904	
==>JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	186	289	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of string <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	186	289	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of string <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2506	2653	
==>,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, U32 flags)
{
  if(!CONTAINS_RECOGNITION_FL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17565	17706	
==>->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40834	40975	
==>->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1359	1480	
==>only'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1359	1480	
==>only'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1359	1480	
==>only'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

us <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4474	4595	
==>ill in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # W <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4474	4595	
==>ill in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # W <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25403	25483	
==>F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1521	1641	
==>rted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1521	1641	
==>rted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1521	1641	
==>rted_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	953	1047	
==>airs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remainin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	953	1047	
==>airs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remainin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	953	1047	
==>airs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remainin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4951	5082	
==>NDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4951	5082	
==>NDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4951	5082	
==>NDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5959	6056	
==>&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5959	6056	
==>&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5959	6056	
==>&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1637	1781	
==>uilddir'" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( "Could not create clean <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14626	14728	
==>re => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14626	14728	
==>re => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2293	2406	
==>bject(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", ' <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2232	2326	
==>bastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This l <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2232	2326	
==>bastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This l <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4007	4139	
==>iting";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\texttt
#{$file
#}
#\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1327	1432	
==>ept the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1327	1432	
==>ept the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8637	8773	
==>ETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8637	8773	
==>ETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8637	8773	
==>ETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34505	34614	
==>t = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34505	34614	
==>t = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34505	34614	
==>t = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11616	11722	
==>iable>'
    ) );
    return "$_[1] ruleop::alternation( \\$code )\n";
}
sub node::named_capture {
    my $n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11191	11286	
==>ct.

- `complement()`

Returns everything (from the universal set) that is not in this recurrenc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11191	11286	
==>ct.

- `complement()`

Returns everything (from the universal set) that is not in this recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6142	6237	
==>MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6142	6237	
==>MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6142	6237	
==>MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2053	2180	
==>_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2053	2180	
==>_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2625	2737	
==>$self->{'values'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	411	526	
==>stant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	411	526	
==>stant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	411	526	
==>stant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    retur <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6906	7003	
==>e "can't parse chunk ($file)";
        push @{ $self->{meat}{test_files} }, @{$chunk->{test_files} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7349	7439	
==>in("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7349	7439	
==>in("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7811	7941	
==>x );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7811	7941	
==>x );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7811	7941	
==>x );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28284	28430	
==>iteral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28563	28709	
==>iteral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2004	2115	
==>y $attr = shift;

    # $attr may be a T2::Attribute or a T2::Association, but as they
    # both respond to ->t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34877	34994	
==>their common attributes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39427	39544	
==>their common attributes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38960	39077	
==>their common attributes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9267	9388	
==>s

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9267	9388	
==>s

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9267	9388	
==>s

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	392	501	
==>hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	392	501	
==>hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	699	807	
==>$self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    package Pugs::Runtime::Rule;
    my $grammar = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11787	11946	
==>e->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11787	11946	
==>e->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11787	11946	
==>e->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5311	5438	
==>id';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5311	5438	
==>id';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10264	10363	
==>ody)=@_;

    my $info = $PIL::PIL1CPerl5::NodesInfo::node_named{$name};
    die "bug $name" if !$in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17299	17391	
==>.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17299	17391	
==>.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3509	3640	
==>ds( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3973	4104	
==>ds( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5145	5266	
==>does() method, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10410	10518	
==>hildren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2> <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10410	10518	
==>hildren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	250	345	
==>->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	283	378	
==>->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pug <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26620	26711	
==>paque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method/4 will be availa <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3620	3724	
==>import; };
use strict;

if($Regexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5650	5747	
==>/pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5650	5747	
==>/pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5650	5747	
==>/pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	76	169	
==>= '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	76	169	
==>= '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	76	169	
==>= '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Par <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39739	39831	
==>thod is the N-ary version of the aforementioned.

=item C<join (Relation::Example $other!) re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3527	3611	
==>STRAPPING COMPLETE
## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5429	5513	
==>STRAPPING COMPLETE
## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	934	1039	
==>ecompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	934	1039	
==>ecompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	934	1039	
==>ecompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	830	946	
==>oxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	830	946	
==>oxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	830	946	
==>oxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22674	22769	
==>!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27226	27321	
==>!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18860	18976	
==>e kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15281	15397	
==>e kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5308	5423	
==>::NodesList::get_name_rep_type_pairs_list();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pair <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24710	24808	
==>turns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29262	29360	
==>turns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26402	26620	
==>@start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26402	26620	
==>@start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26402	26620	
==>@start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2735	2841	
==>->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _se <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	911	1015	
==>->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7164	7260	
==>n do use any of the
following methods:

=over 4

=item $parser = Regexp::Parser->new($regex)

You <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	108	218	
==>ass 'PIL::Run::Container::Scalar' => {
    does => [ 'IScalar' ],
    instance => {
        attrs => [ '$:value <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7971	8062	
==>s>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7971	8062	
==>s>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	482	588	
==>*$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	482	588	
==>*$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	482	588	
==>*$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40136	40254	
==>f}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40136	40254	
==>f}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40136	40254	
==>f}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9827	9945	
==>name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9827	9945	
==>name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9827	9945	
==>name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2359	2462	
==>use v6-pugs;
    "hello, world".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> modu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31396	31494	
==>irst example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be dist <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31396	31494	
==>irst example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be dist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2350	2437	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2350	2437	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2350	2437	
==>lass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6265	6389	
==>tant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6265	6389	
==>tant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6265	6389	
==>tant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10934	11100	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10934	11100	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10934	11100	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Arra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11743	11849	
==>rs qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11737	11843	
==>rs qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
gr <==
3	/Users/nnunley/pugs/util/grokprims.pl	794	885	
==><?xml version="1.1" encoding="UTF-8" ?><html><body><table border="1">';



foreach my $op (s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21241	21360	
==>g}::p6__lookup";
    no strict 'refs';
    &$look($mn,$name);
}
sub p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_ma <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15230	15340	
==>is_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	557	667	
==>lues {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3866	4044	
==>ass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3866	4044	
==>ass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3866	4044	
==>ass->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ));
                }
            }
        }
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8454	8611	
==>ed} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8454	8611	
==>ed} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8454	8611	
==>ed} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	748	861	
==>ew((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub env <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1447	1543	
==>chmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1447	1543	
==>chmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1942	2035	
==>code levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1942	2035	
==>code levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1942	2035	
==>code levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27923	28019	
==>");
is(t($map), "∀α. ∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	754	848	
==>xy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ET <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	754	848	
==>xy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ET <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3662	3770	
==>declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3662	3770	
==>declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3662	3770	
==>declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	492	613	
==>mpare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	492	613	
==>mpare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_star <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1851	2009	
==>nd}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { I <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1851	2009	
==>nd}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { I <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4641	4738	
==>)
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7427	7561	
==>eturn previous_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 api;

    nulpat = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2281	2393	
==>Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2281	2393	
==>Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2281	2393	
==>Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) <==
3	/Users/nnunley/pugs/util/version_h.pl	1966	2066	
==>lehandle STDIN reopened...", because
  # our handle for $version_h got slot #0, like STDIN.
  no warn <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4101	4200	
==>ndle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4101	4200	
==>ndle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4997	5106	
==>>

The number of the test in the current test file.

=item B<Str $.description>

The test's description (optio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4997	5106	
==>>

The number of the test in the current test file.

=item B<Str $.description>

The test's description (optio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7194	7303	
==>>

The number of the test in the current test file.

=item B<Str $.description>

The test's description (optio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1095	1227	
==>fix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        othe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6399	6526	
==>, $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6387	6514	
==>, $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	790	908	
==>'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	790	908	
==>'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14408	14503	
==>x) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14408	14503	
==>x) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14408	14503	
==>x) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0)) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19625	19716	
==>ssarily the names you specified in the constructor. For example,
C<Net::IRC> automatically t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19625	19716	
==>ssarily the names you specified in the constructor. For example,
C<Net::IRC> automatically t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6268	6372	
==>empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6268	6372	
==>empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	704	805	
==>my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16786	16908	
==>(@{$X::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	127	226	
==>uleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	127	226	
==>uleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1586	1694	
==>mpile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1586	1694	
==>mpile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5108	5241	
==>sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5108	5241	
==>sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5108	5241	
==>sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4378	4488	
==>f->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4378	4488	
==>f->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4378	4488	
==>f->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6158	6305	
==>>items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6158	6305	
==>>items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6158	6305	
==>>items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7771	7866	
==>uthorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7771	7866	
==>uthorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9343	9457	
==>!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9343	9457	
==>!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9343	9457	
==>!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12273	12420	
==>( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12552	12699	
==>( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	151	250	
==>e objects to a particular Type.

=over

=item *

A method's Code property usually has a single invoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2434	2529	
==>eed_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2434	2529	
==>eed_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2434	2529	
==>eed_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10161	10273	
==>! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10155	10267	
==>! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6166	6252	
==>en\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	725	834	
==>lementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering probl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	725	834	
==>lementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering probl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	725	834	
==>lementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering probl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17286	17397	
==>($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17286	17397	
==>($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17286	17397	
==>($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7354	7470	
==>SS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7354	7470	
==>SS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7354	7470	
==>SS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	889	992	
==>returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	889	992	
==>returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	889	992	
==>returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the ref <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11542	11631	
==>pt") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11542	11631	
==>pt") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5774	5911	
==>all;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5774	5911	
==>all;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26635	26730	
==>L');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method/4 will be available

do{open F,">de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	733	857	
==>scendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	733	857	
==>scendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	733	857	
==>scendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1448	1562	
==>pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1448	1562	
==>pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1448	1562	
==>pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6274	6376	
==>) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6274	6376	
==>) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6274	6376	
==>) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19779	19874	
==>r set an authorization header that use the
"Basic Authentication Scheme".  In array context it w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19779	19874	
==>r set an authorization header that use the
"Basic Authentication Scheme".  In array context it w <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2007	2100	
==>nsult a book, like Numerical Recipies.)  In particular, it suffers from
convergence problems f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29398	29513	
==>y $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29398	29513	
==>y $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29398	29513	
==>y $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1199	1302	
==>'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input t <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1199	1302	
==>'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34650	34781	
==>ngth = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34650	34781	
==>ngth = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34650	34781	
==>ngth = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_hea <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27806	27899	
==>_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27806	27899	
==>_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8406	8522	
==>ign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DO <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3490	3585	
==>on;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1632	1727	
==>on;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3520	3628	
==>cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1573	1673	
==>B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->nchar($n), " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1925	2069	
==>else {
            $s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24064	24174	
==>=> $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20485	20595	
==>=> $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	6	105	
==>rated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	6	105	
==>rated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18698	18791	
==>repeat_max(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	983	1107	
==>f->{omit};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	151	274	
==>ar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	151	274	
==>ar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11256	11405	
==>dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11256	11405	
==>dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11256	11405	
==>dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent som <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5625	5729	
==>oxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5625	5729	
==>oxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5625	5729	
==>oxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2241	2337	
==>}
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2241	2337	
==>}
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2241	2337	
==>}
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	858	968	
==>thod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	858	968	
==>thod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	858	968	
==>thod names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	0	107	
==>method say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	0	107	
==>method say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	0	107	
==>method say   (Str $text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str * <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1349	1470	
==>";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1790	1876	
==>:Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3166	3252	
==>:Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5318	5460	
==>y $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5318	5460	
==>y $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5318	5460	
==>y $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting box <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2074	2171	
==>structure you've built up in Perl5

=head1 NAME

Meta::Class - Entities in the Perl 6 language mod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11652	11748	
==>lection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11652	11748	
==>lection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23400	23533	
==>shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23400	23533	
==>shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23400	23533	
==>shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4990	5142	
==>ch my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4990	5142	
==>ch my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4990	5142	
==>ch my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1320	1440	
==>ion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1320	1440	
==>ion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1320	1440	
==>ion (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18550	18646	
==>mp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18550	18646	
==>mp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18550	18646	
==>mp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15292	15390	
==>er not to import these routines into your namespace, you can
call them as:

  use HTML::Entities () <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15292	15390	
==>er not to import these routines into your namespace, you can
call them as:

  use HTML::Entities () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5080	5181	
==>ced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5080	5181	
==>ced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5080	5181	
==>ced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the recursi <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3037	3163	
==>lude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	344	450	
==>eturn $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method creat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	344	450	
==>eturn $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2648	2788	
==>},        
    };
}

my $p = new Point(5, 6);
is($p->class, \&Point, '... got the right class name');
is($p->prototype->class, \&Object, '... <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21921	22035	
==>param => "xs",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("head"),
				p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	429	539	
==>use YAML;
    #print Dump $match->();
    print Dumper $match->();
    print "tail: ", substr( ${$match}->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13740	13850	
==>method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13740	13850	
==>method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13740	13850	
==>method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16092	16299	
==>_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16371	16578	
==>_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39964	40057	
==>ther> argument and combines it with the
invocant relation into a new Relation::Example, such t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2167	2319	
==>from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2167	2319	
==>from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2167	2319	
==>from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2026	2205	
==>IL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2026	2205	
==>IL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2026	2205	
==>IL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17641	17825	
==>::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17641	17825	
==>::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17641	17825	
==>::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17617	17720	
==>($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17617	17720	
==>($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17617	17720	
==>($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	827	938	
==>kell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	827	938	
==>kell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	827	938	
==>kell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8206	8409	
==>d( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8206	8409	
==>d( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8206	8409	
==>d( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::C <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11295	11410	
==>whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe. Uses the shell.

    multi sub open (Str $co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19054	19150	
==>of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
troub <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19054	19150	
==>of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
troub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8494	8637	
==>ef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8494	8637	
==>ef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8494	8637	
==>ef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1899	2028	
==>($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ": <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1899	2028	
==>($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ": <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1899	2028	
==>($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ": <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29830	30002	
==>->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29830	30002	
==>->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29830	30002	
==>->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x - <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	363	484	
==>} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%args <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7819	7921	
==>list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7819	7921	
==>list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6715	6817	
==>o - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6715	6817	
==>o - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6715	6817	
==>o - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	966	1098	
==>2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6773	6879	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a RO <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6773	6879	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a RO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6311	6431	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6311	6431	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6311	6431	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2375	2465	
==>e Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2375	2465	
==>e Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2375	2465	
==>e Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35741	35834	
==>e
Relation::Example in its C<$other> argument, where <$other> has the same heading as
the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37773	37866	
==>e Relation::Example
in its C<$other> argument, where <$other> has the same heading as the
invo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6796	6909	
==>stfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $gram <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	440	553	
==>superclasses')->to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are lineari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6796	6909	
==>stfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $gram <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1701	1813	
==>e so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1906	2018	
==>e so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1969	2081	
==>e so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::creat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1713	1813	
==>ject(exact => join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3515	3608	
==>xploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication alg <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3515	3608	
==>xploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication alg <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	964	1067	
==>t last
@commits    = reverse @commits;
@developers = reverse @developers;

# Collect commits in days
# E <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15605	15698	
==>hich contain the mapping from all characters to the corresponding entities
(and vice versa, re <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15605	15698	
==>hich contain the mapping from all characters to the corresponding entities
(and vice versa, re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1440	1541	
==>tpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1440	1541	
==>tpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1440	1541	
==>tpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2441	2584	
==>::Accessor::new        :
            JIB::Package::Binary->Object::Accessor::new;
    
        return unless $obj;

        ### create accessors <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1480	1583	
==>ail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1620	1723	
==>ail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13810	13925	
==>ans [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13804	13919	
==>ans [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	810	904	
==>one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#mult <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	810	904	
==>one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#mult <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7020	7135	
==>ay';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3624	3739	
==>ay';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4473	4588	
==>ay';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9566	9677	
==>', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9566	9677	
==>', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31445	31541	
==>pping as its sole read-only argument. The new
Relation has all of the same attributes as the orig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35995	36091	
==>pping as its sole read-only argument. The new
Relation has all of the same attributes as the orig <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16574	16696	
==>ethod () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16574	16696	
==>ethod () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16574	16696	
==>ethod () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11317	11412	
==>. It is important that submethods are used
because they will not get inherited. This provides mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11317	11412	
==>. It is important that submethods are used
because they will not get inherited. This provides mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11317	11412	
==>. It is important that submethods are used
because they will not get inherited. This provides mo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1791	1894	
==>:Tuple class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Tup <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1277	1368	
==>t :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1277	1368	
==>t :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1110	1229	
==>efined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1110	1229	
==>efined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1110	1229	
==>efined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2060	2190	
==>eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2060	2190	
==>eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2060	2190	
==>eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	135	231	
==>ts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	135	231	
==>ts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	135	231	
==>ts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	698	851	
==>= @_;
            return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " but ran $run";            
        }
    }
});

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1030	1146	
==>if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1030	1146	
==>if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6057	6187	
==>}
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6057	6187	
==>}
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6057	6187	
==>}
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19928	20023	
==>MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19928	20023	
==>MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19928	20023	
==>MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	211	316	
==>ck { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[} <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	211	316	
==>ck { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20875	20972	
==>ockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4607	4712	
==>er is for the skip and TODO tests and should contain
a string describing why the test is a skip or TODO te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4607	4712	
==>er is for the skip and TODO tests and should contain
a string describing why the test is a skip or TODO te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6804	6909	
==>er is for the skip and TODO tests and should contain
a string describing why the test is a skip or TODO te <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	905	1013	
==>te a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	905	1013	
==>te a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3302	3401	
==>);

my $p2 = new $p1->class->(100, 200);
is($p2->class, \&Point, '... got the right class name');

i <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2437	2534	
==>litate recovering all the roots of a
function (not that Newton's method is ever really good at tha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12915	13007	
==>earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left alo <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12915	13007	
==>earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left alo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1200	1325	
==>nce => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '~',
        assoc => 'left', <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3897	4004	
==>tring is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  g <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3897	4004	
==>tring is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  g <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1587	1696	
==>hy rw?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@indextes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2908	2999	
==>ference($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) } <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2908	2999	
==>ference($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11916	12061	
==>\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8198	8343	
==>\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9032	9177	
==>\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13945	14063	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13945	14063	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13945	14063	
==>ams)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attribut <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12917	13036	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16394	16513	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15756	15875	
==>intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14560	14678	
==>nd;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14560	14678	
==>nd;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1784	1899	
==>inal_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1784	1899	
==>inal_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	350	469	
==>r::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	350	469	
==>r::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	350	469	
==>r::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2582	2831	
==>a::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2582	2831	
==>a::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Ros <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12172	12277	
==>nitrd_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15197	15334	
==>f $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15197	15334	
==>f $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15197	15334	
==>f $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19940	20090	
==>($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19940	20090	
==>($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19940	20090	
==>($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 10 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1162	1265	
==>db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	el <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1162	1265	
==>db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	el <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1371	1474	
==>db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8410	8504	
==>b path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8410	8504	
==>b path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8410	8504	
==>b path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3171	3298	
==>kage Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenien <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3171	3298	
==>kage Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenien <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3171	3298	
==>kage Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenien <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1884	1979	
==>)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scop <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1884	1979	
==>)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scop <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	269	399	
==>eader>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	269	399	
==>eader>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the s <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	936	1032	
==>so8601_duration_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 duration <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1165	1278	
==>to-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1165	1278	
==>to-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1165	1278	
==>to-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1870	1978	
==>r($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1870	1978	
==>r($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1870	1978	
==>r($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10278	10391	
==>art of this match
    to    - string pointer for next match (end+1)
    match - positional submatches
    named <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8545	8648	
==>sers{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8545	8648	
==>sers{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8193	8309	
==>cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8193	8309	
==>cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8193	8309	
==>cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	283	382	
==>p of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	283	382	
==>p of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	283	382	
==>p of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33386	33555	
==>op @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33386	33555	
==>op @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33386	33555	
==>op @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3297	3438	
==>r $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3297	3438	
==>r $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3297	3438	
==>r $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $ad <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5445	5548	
==>{ my $x = shift; $x }

applied to the value 10 (ultimately reducing to 10).

Inherits Unit.

=back

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3646	3781	
==>ix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3646	3781	
==>ix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3646	3781	
==>ix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3323	3433	
==>'t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3323	3433	
==>'t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3323	3433	
==>'t link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $conte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	591	699	
==>$true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	591	699	
==>$true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	591	699	
==>$true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	840	971	
==>d $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	840	971	
==>d $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	840	971	
==>d $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	638	744	
==>arams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	638	744	
==>arams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	638	744	
==>arams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5417	5550	
==>nstance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5417	5550	
==>nstance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5417	5550	
==>nstance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6222	6322	
==>_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6222	6322	
==>_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xV <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3413	3551	
==>ild');
    die "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $f <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5145	5273	
==>se or error($!), return;
        }
        
        # load the existing index file
        my $index_content = YAML::LoadFile($in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6893	7049	
==>::Grammar::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Grammar::Term.bareword> 
            #    { return $/{'Pugs::G <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	800	894	
==>crosoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	685	771	
==>crosoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7073	7239	
==>ile (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have so <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7537	7703	
==>ile (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have so <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7517	7607	
==>v; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->fixity || "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1350	1454	
==>e PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1350	1454	
==>e PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1350	1454	
==>e PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  pa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2383	2492	
==>$Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2383	2492	
==>$Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2463	2572	
==>$Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	998	1106	
==>ect and "builds" it into a class
method apply {
    ...
}

# hmm, what do we need to test to check for circul <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3083	3170	
==>ence($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3083	3170	
==>ence($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26294	26401	
==>o 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> for this module to use that v <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2315	2414	
==>use all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known. <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2315	2414	
==>use all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1776	1901	
==>ion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1776	1901	
==>ion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1776	1901	
==>ion. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14159	14329	
==>ub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14159	14329	
==>ub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14159	14329	
==>ub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23658	23785	
==>to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23658	23785	
==>to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23658	23785	
==>to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3909	4016	
==>hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3909	4016	
==>hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3909	4016	
==>hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22545	22745	
==>> 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method cla <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15006	15096	
==>C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15006	15096	
==>C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3061	3248	
==>ub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3061	3248	
==>ub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3061	3248	
==>ub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2477	2594	
==>Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2477	2594	
==>Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2477	2594	
==>Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1042	1186	
==>($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1042	1186	
==>($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1042	1186	
==>($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3152	3266	
==>t of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3152	3266	
==>t of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3152	3266	
==>t of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2106	2210	
==>::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2106	2210	
==>::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2106	2210	
==>::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31177	31280	
==>pplied to each tuple.  The new Relation::Example has all
of the tuples of the original (or rather, the c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20397	20492	
==>wed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20397	20492	
==>wed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of thi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	113	358	
==>::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	113	358	
==>::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	176	300	
==>st
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6851	6968	
==>:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6851	6968	
==>:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6851	6968	
==>:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is prim <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4710	4836	
==>ailed") is primitive is builtin is safe {
        if Pugs::Internals::current_pragma_value($?CLASS) //
                $fatal:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	736	855	
==>t::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	703	822	
==>t::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7833	7931	
==>odel

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7833	7931	
==>odel

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7833	7931	
==>odel

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4184	4281	
==>as
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns positi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4184	4281	
==>as
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns positi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6117	6235	
==>f->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6117	6235	
==>f->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6117	6235	
==>f->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10511	10689	
==>pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10511	10689	
==>pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10511	10689	
==>pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23715	23830	
==>) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxba <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23715	23830	
==>) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxba <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23715	23830	
==>) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20313	20422	
==>autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20313	20422	
==>autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20313	20422	
==>autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compositi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10360	10499	
==>n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6701	6840	
==>n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7550	7689	
==>n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13038	13151	
==>::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        -> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12383	12476	
==>f the parameter's
corresponding argument is undefined).  The new Document object's All Nodes
a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12383	12476	
==>f the parameter's
corresponding argument is undefined).  The new Document object's All Nodes
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4570	4703	
==>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4570	4703	
==>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4570	4703	
==>elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1833	1986	
==>e);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1833	1986	
==>e);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2849	2947	
==>mp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2849	2947	
==>mp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2849	2947	
==>mp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	429	532	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	429	532	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	429	532	
==>$subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be effic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1792	1906	
==>>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1792	1906	
==>>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1792	1906	
==>>isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pIn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	305	402	
==>$PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	305	402	
==>$PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	305	402	
==>$PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3998	4145	
==>while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3998	4145	
==>while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3998	4145	
==>while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3089	3190	
==>L2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3089	3190	
==>L2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3089	3190	
==>L2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1513	1647	
==>$v, @values);
    for @p {
      ($v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8327	8440	
==>nt<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8327	8440	
==>nt<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nic <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8956	9057	
==>ewlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8956	9057	
==>ewlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6458	6547	
==>'$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6458	6547	
==>'$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6458	6547	
==>'$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2054	2170	
==>s> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2054	2170	
==>s> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  r <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3213	3323	
==>aders
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3213	3323	
==>aders
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12310	12455	
==>ntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8586	8731	
==>ntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9421	9566	
==>ntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	616	713	
==>"*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	616	713	
==>"*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	616	713	
==>"*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5223	5331	
==>)}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('B <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6454	6548	
==>a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6454	6548	
==>a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21779	21876	
==>plitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21779	21876	
==>plitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21779	21876	
==>plitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	197	313	
==>not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	197	313	
==>not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "ca <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	675	768	
==>ire "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3188	3294	
==>and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3188	3294	
==>and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3188	3294	
==>and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	533	677	
==>p '}'        
        { $_[0]->{out}= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17825	17917	
==>erver header field contains information about the software being
used by the originating serv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17825	17917	
==>erver header field contains information about the software being
used by the originating serv <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	803	905	
==>aritor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native <=> $right->to_n <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10638	10731	
==>em B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10638	10731	
==>em B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	292	399	
==>ady been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subrouti <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	292	399	
==>ady been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subrouti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16221	16341	
==>erms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16221	16341	
==>erms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22265	22380	
==>11
      <CaseClause>
    | <CaseClauses> <CaseClause>
}
rule CaseClause :words {  # see 12.11
      <'case'> <Expre <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20405	20506	
==>ispatcher(:descendant);
    for WALKMETH($dispatcher, 'DESTROYALL') -> $method {
        $method.($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4762	4858	
==>x - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4902	4998	
==>x - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1392	1495	
==>ish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1392	1495	
==>ish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1392	1495	
==>ish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	362	475	
==>+;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	362	475	
==>+;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	362	475	
==>+;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1741	1860	
==>$sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1741	1860	
==>$sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1977	2096	
==>$sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2687	2784	
==>tches> is exportable and can be
used to set perl command line options used for running the test
sc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38706	38800	
==>en variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38706	38800	
==>en variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7396	7503	
==>rappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7396	7503	
==>rappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7396	7503	
==>rappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6360	6459	
==>o $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11206	11305	
==>o $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2319	2416	
==>) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3724	3850	
==>tcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3724	3850	
==>tcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3724	3850	
==>tcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7145	7292	
==>us call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7145	7292	
==>us call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7145	7292	
==>us call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CAL <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14110	14220	
==>ours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14110	14220	
==>ours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0, <==
3	/Users/nnunley/pugs/util/package-osx.pl	5035	5132	
==>pm
        /usr/local/man/man3/Perl6::Bible::S22.3pm
        /usr/local/man/man3/Perl6::Bible::S26 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1263	1357	
==>erl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of co <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1263	1357	
==>erl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2706	2815	
==>to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2706	2815	
==>to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2885	2987	
==>s/#all_definitions#/$all_definitions/;

    print $template;
}

sub __test__ {
    $Config{privlib} = ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4468	4581	
==>ame =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4468	4581	
==>ame =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7884	7997	
==>w<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7884	7997	
==>w<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7884	7997	
==>w<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5563	5702	
==>hority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5563	5702	
==>hority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5563	5702	
==>hority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') { <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	891	990	
==>lib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($ou <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	891	990	
==>lib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($ou <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	50	145	
==>Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use D <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	324	453	
==>ss @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	324	453	
==>ss @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3446	3613	
==>turn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3446	3613	
==>turn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3446	3613	
==>turn 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4258	4354	
==>pply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4258	4354	
==>pply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4258	4354	
==>pply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3175	3342	
==>end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3175	3342	
==>end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3175	3342	
==>end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7631	7757	
==>_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile($output_dir, $path);
    my $index_file =  catf <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3064	3168	
==>od concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3064	3168	
==>od concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1078	1178	
==>ain.  A Module object mixes in both Package

and Code -- because it is both a namespace of symbols an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1027	1126	
==>ain.  A Module object mixes in both Package
and Code -- because it is both a namespace of symbols an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25468	25594	
==>alk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    my ($clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	204	309	
==>ub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	204	309	
==>ub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9746	9882	
==>ke: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9746	9882	
==>ke: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8342	8443	
==>y->{name}
		or die "can't unify $x->{name} with $y->{name} in " . Dumper(@_);
};

# binary operators m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5329	5449	
==>ent {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2871	2991	
==>ent {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3720	3840	
==>ent {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n" <==
3	/Users/nnunley/pugs/util/drift.pl	1507	1615	
==>OUT @scary_header;
my $module;
while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
prin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9580	9687	
==>_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9580	9687	
==>_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	793	893	
==>------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	793	893	
==>------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	793	893	
==>------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6581	6690	
==>er::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6593	6702	
==>er::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1621	1714	
==>:<?", "term:", "nows", &parse_subrule);
    $optable->addToken("term:<[", "term:", "nows", &pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3288	3461	
==>)',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3288	3461	
==>)',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3288	3461	
==>)',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1788	1914	
==>ity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1788	1914	
==>ity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1788	1914	
==>ity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@arr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9759	9903	
==>s_dir->file( $script ); 
        }      
        
        ### see if there's any other package that's now the default
        ### for this module <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	421	522	
==>); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	421	522	
==>); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3229	3334	
==>g[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3229	3334	
==>g[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3229	3334	
==>g[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3191	3327	
==>e::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3191	3327	
==>e::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3191	3327	
==>e::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3553	3637	
==>------------------------------------------------------------------------

# Utility t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5455	5539	
==>------------------------------------------------------------------------

# Utility t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3788	3896	
==>tch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3788	3896	
==>tch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3868	3976	
==>tch a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descri <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3117	3216	
==>an::doy;
method week returns Int { int (./doy / 7) }

method day_of_month returns Int { $.day }
meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31769	31867	
==>nt user is fluent in (and prefers) language A but also understands
language B.  Later on, if for ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31769	31867	
==>nt user is fluent in (and prefers) language A but also understands
language B.  Later on, if for ex <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2418	2515	
==>or deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2418	2515	
==>or deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2311	2399	
==>dToken("infix:", "<postfix:*", "right,nows", "PGE::Exp::Concat");
    $optable->addToken( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10249	10386	
==>pt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10249	10386	
==>pt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10249	10386	
==>pt " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13360	13454	
==>:depends("string")` parameter to most of the functions is a way
to provide a comment that refer <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13418	13512	
==>:depends("string")` parameter to most of the functions is a way
to provide a comment that refer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14511	14617	
==>t that does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15759	15861	
==>s stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15759	15861	
==>s stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7132	7234	
==>Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

.. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7132	7234	
==>Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

.. <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	86	184	
==>ng which does publisher can send events
# something which does subscriber can recieve them
# two ki <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5486	5654	
==>rce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5486	5654	
==>rce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	606	703	
==>, in order to implement <after>.

- Captures need an internal 'counter', see the ratchet version <==
3	/Users/nnunley/pugs/util/package-osx.pl	10477	10622	
==>er = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\n
        my \@f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15086	15192	
==>ss, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15086	15192	
==>ss, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    re <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6912	7015	
==>ng',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'Stri <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6912	7015	
==>ng',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'Stri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4346	4498	
==>::Regex->compile( q(
            { 
                return { die => "not implemented" } 
            }
        ) ),
        Inf => Pugs::Compiler::Regex- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11519	11616	
==>ite more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11519	11616	
==>ite more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	696	805	
==>t looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	696	805	
==>t looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	696	805	
==>t looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18188	18394	
==>>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18188	18394	
==>>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18188	18394	
==>>unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1140	1246	
==>removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1140	1246	
==>removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1140	1246	
==>removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1732	1830	
==>EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1732	1830	
==>EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1732	1830	
==>EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5493	5714	
==>al ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5493	5714	
==>al ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8398	8502	
==>d.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5938	6038	
==>d.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23945	24094	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_dec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24224	24373	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_dec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9522	9666	
==>le( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12213	12322	
==>mplemented).  The C hooks call for the
  sub hooks in the caller package, and thus get CORE if none are define <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7393	7492	
==>clusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10870	10969	
==>clusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3990	4211	
==>refix     eq package_prefix(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15369	15507	
==>ass{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15363	15501	
==>ass{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7834	7991	
==>junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7834	7991	
==>junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7834	7991	
==>junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg lis <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	28	121	
==>ndie::Backend::Perl::Silly;
use base qw/Blondie::Backend::Perl/;

use strict;
use warnings;

u <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6937	7040	
==>context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6995	7098	
==>context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	434	533	
==>s with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2438	2537	
==>for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2438	2537	
==>for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2438	2537	
==>for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9385	9479	
==>l ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9385	9479	
==>l ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9385	9479	
==>l ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1547	1705	
==>,
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1547	1705	
==>,
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1547	1705	
==>,
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25758	25853	
==>are components.

Any versions of Rosetta that you modify and distribute must carry prominent
not <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25758	25853	
==>are components.

Any versions of Rosetta that you modify and distribute must carry prominent
not <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13318	13407	
==>=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	538	651	
==>less {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	538	651	
==>less {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	538	651	
==>less {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	732	1145	
==>mple object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	732	1145	
==>mple object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1052	1159	
==>>{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12228	12366	
==>ne
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12228	12366	
==>ne
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# in <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1812	1949	
==>hift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $args = check( $tmpl, \%h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3264	3401	
==>s ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3264	3401	
==>s ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3264	3401	
==>s ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	322	424	
==>(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    pus <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	322	424	
==>(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    pus <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25497	25595	
==>h C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the above.

=item C<Failed 1 tes <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20569	20664	
==>C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20569	20664	
==>C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28160	28254	
==>$parser->del_flag(@flags)

Deletes the handlers for the flags -- you need only pass the flag na <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1187	1314	
==>tring = shift;
                print $fh $string;
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	177	276	
==>oesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () retu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	177	276	
==>oesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () retu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8418	8528	
==>ser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8418	8528	
==>ser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No m <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6138	6239	
==>sif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue""pParams""p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8664	8774	
==>) if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25825	25919	
==>empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zer <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25825	25919	
==>empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zer <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2696	2803	
==>$op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2696	2803	
==>$op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20631	20839	
==>ore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20631	20839	
==>ore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20631	20839	
==>ore' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1132	1325	
==>_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1132	1325	
==>_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$ms <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2961	3082	
==>,
    my ($self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8413	8631	
==>\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### sto <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8877	9095	
==>\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### sto <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23843	24094	
==>t) {
                    push @canon, $last;
                } else {
                    push @canon, "$min-$last";
                }
                $min = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @res <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	960	1070	
==>ch Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4438	4548	
==>ch Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	235	360	
==>s) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exception <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	235	360	
==>s) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exception <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	235	360	
==>s) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exception <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2792	2925	
==>{ ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this erro <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2792	2925	
==>{ ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22730	22904	
==>CALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22730	22904	
==>CALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22730	22904	
==>CALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8826	9032	
==>y $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8826	9032	
==>y $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8826	9032	
==>y $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17795	17951	
==>patcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17795	17951	
==>patcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17795	17951	
==>patcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1206	1339	
==>::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            => $config); 
    add_path(sitearc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9765	9859	
==>n and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "In <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9765	9859	
==>n and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9829	10031	
==>t );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9829	10031	
==>t );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9829	10031	
==>t );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14364	14501	
==>am,
	);

	# first of all the type of the thing we're appling must be a function
	die "Can't apply non function type (" . $.fun . " has typ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8269	8369	
==>$other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r2 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11746	11846	
==>$other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2314	2414	
==>"infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2314	2414	
==>"infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2314	2414	
==>"infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8245	8339	
==>s;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8245	8339	
==>s;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30322	30415	
==>bers of C<$attrs> do not match attribute names of the invocant
Relation::Example.  This method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3882	4004	
==>o(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3882	4004	
==>o(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3882	4004	
==>o(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20487	20586	
==>or
might have, and lets you arrange the list in order of preference.  When you
open a program, it wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20487	20586	
==>or
might have, and lets you arrange the list in order of preference.  When you
open a program, it wi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1531	1621	
==>=~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3001	3113	
==>cant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3001	3113	
==>cant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3001	3113	
==>cant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5041	5182	
==>hers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5041	5182	
==>hers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5041	5182	
==>hers
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method . <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	255	369	
==>r;
# @EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23311	23405	
==>tion::Example data type is proposed to be
generally useful, and very basic, and worthy of inclu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11103	11226	
==>de;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeri <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3419	3518	
==>'t flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3419	3518	
==>'t flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	72	173	
==>ine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	72	173	
==>ine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	72	173	
==>ine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10304	10406	
==>le too.
    # -----------------------------------------------    
    method resolve () { "<implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10304	10406	
==>le too.
    # -----------------------------------------------    
    method resolve () { "<implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10304	10406	
==>le too.
    # -----------------------------------------------    
    method resolve () { "<implemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1093	1241	
==>}
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1093	1241	
==>}
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1093	1241	
==>}
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6728	6862	
==>> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6728	6862	
==>> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6728	6862	
==>> sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1692	1796	
==>$!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1692	1796	
==>$!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9934	10036	
==>turn "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$gramma <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12501	12600	
==>$line, \$comment);

Checks if the given line is a comment.  If so, it will place it into
C<$comment> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	12	110	
==>ss Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.den <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	12	110	
==>ss Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.den <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7078	7191	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3682	3795	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4531	4644	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3905	4004	
==>ub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3905	4004	
==>ub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3905	4004	
==>ub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascenda <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37072	37186	
==>re a pair of source
relations have zero attributes in common, their joining degenerates to a
C<product>.  In any si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41621	41735	
==>re a pair of source
relations have zero attributes in common, their joining degenerates to a
C<product>.  In any si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41244	41358	
==>re a pair of source
relations have zero attributes in common, their joining degenerates to a
C<product>.  In any si <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1187	1315	
==>ey {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1187	1315	
==>ey {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1187	1315	
==>ey {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1542	1673	
==>yntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1542	1673	
==>yntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1542	1673	
==>yntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4419	4533	
==>b usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4419	4533	
==>b usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4419	4533	
==>b usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2558	2672	
==>e($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2558	2672	
==>e($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2791	2913	
==>the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3699	3805	
==>ile
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3699	3805	
==>ile
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6914	7018	
==>ete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1270	1372	
==>ete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	372	471	
==>ete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { die " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23652	23794	
==>'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23931	24073	
==>'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	137	238	
==>echs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause\visible<5>{
my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	220	329	
==>bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	220	329	
==>bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	220	329	
==>bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringificati <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	684	802	
==>b { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	684	802	
==>b { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3817	3925	
==>e you're currently in.

=cut

sub _whoami { my $name = (caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2959	3084	
==>e,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$locat <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2959	3084	
==>e,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$locat <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1094	1204	
==>he pugs
    #      executable.
    print STDERR "Triggering rebuild... " if $Config{verbose};
    unlink "blib6 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5280	5380	
==>s_params)
		my $symbol = $self->declare($node);

		my $return_type = $node->type->[-1]->type;
		
		my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5411	5506	
==>)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5411	5506	
==>)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9237	9418	
==>: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $de <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6583	6687	
==>$_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are applied 
package fun;
use base qw/node <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2476	2576	
==>sed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5650	5820	
==>a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5650	5820	
==>a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5650	5820	
==>a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9767	9895	
==>{
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9767	9895	
==>{
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9767	9895	
==>{
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4576	4748	
==>=> $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matchi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4437	4599	
==>=> $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matchi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3779	3866	
==>, p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quant <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2219	2321	
==>.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2219	2321	
==>.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2219	2321	
==>.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %ha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13816	13956	
==>rn $e->get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $repr, hash %params) returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15964	16055	
==>atches backwards.  Ex.: C</\s+$/> becomes
C</^\n?\s+/>, which perhaps gets optimized to C</^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11385	11505	
==>::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submethod BUILD ( $.reaso <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1837	1949	
==>::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reaso <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1837	1949	
==>::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reaso <==
3	/Users/nnunley/pugs/util/build_pugs.pl	739	901	
==>urrent settings:
.
    print PugsBuild::Config->pretty_print;

    exit 0;
}

my $run_setup;

sub build {
    my($opts) = @_;
    my $thispugs = { @{ $opts->{GEN_P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6020	6118	
==>ctual semantics.

Please note that most of the time, it will not be necessary to write these 
metho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6020	6118	
==>ctual semantics.

Please note that most of the time, it will not be necessary to write these 
metho <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25323	25465	
==>'$self:')->set_attr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12214	12311	
==>, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the given <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12214	12311	
==>, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the given <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4596	4718	
==>rs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8073	8195	
==>rs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7066	7188	
==>rs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $att <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4656	4779	
==>et ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XX <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4656	4779	
==>et ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XX <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6576	6694	
==>pan1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6576	6694	
==>pan1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12461	12564	
==>turn $S->object(prop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub { <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	682	803	
==>sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2639	2731	
==>ipts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attribut <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2639	2731	
==>ipts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21778	21951	
==>sh @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21778	21951	
==>sh @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21778	21951	
==>sh @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11491	11627	
==>ame * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11491	11627	
==>ame * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4094	4182	
==>32384626433832795028841971693993751058209749445923078164062;
     # http://www.research.a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5517	5634	
==>ew_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5517	5634	
==>ew_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5517	5634	
==>ew_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8222	8329	
==>::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8222	8329	
==>::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8222	8329	
==>::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15151	15256	
==>f->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { Digest->compute($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16059	16153	
==>umentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16059	16153	
==>umentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13968	14068	
==>};
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13968	14068	
==>};
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13968	14068	
==>};
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5710	5825	
==>_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5710	5825	
==>_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6300	6415	
==>_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3295	3429	
==>ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3283	3417	
==>ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1493	1605	
==>tch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34898	35011	
==>rint 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34898	35011	
==>rint 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34898	35011	
==>rint 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9591	9699	
==>ther all the roles to be 'resolved'
    # -----------------------------------------------      
    method co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9591	9699	
==>ther all the roles to be 'resolved'
    # -----------------------------------------------      
    method co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9591	9699	
==>ther all the roles to be 'resolved'
    # -----------------------------------------------      
    method co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6146	6301	
==>);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6146	6301	
==>);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6146	6301	
==>);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7171	7261	
==>o strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7171	7261	
==>o strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7171	7261	
==>o strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5715	5836	
==>s_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5715	5836	
==>s_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6305	6426	
==>s_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4192	4339	
==>¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4192	4339	
==>¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°', <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	676	806	
==>as Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # N <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4154	4284	
==>as Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37294	37409	
==>, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to the co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12892	12989	
==>. $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12892	12989	
==>. $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12892	12989	
==>. $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17950	18100	
==>);
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't interfere with caller's $@
                        # ev <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9522	9624	
==>prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compil <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9522	9624	
==>prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	774	879	
==>-------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	774	879	
==>-------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	774	879	
==>-------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11808	11899	
==>x))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11808	11899	
==>x))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11808	11899	
==>x))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	437	542	
==>$false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&stateme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	437	542	
==>$false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&stateme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	437	542	
==>$false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&stateme <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2934	3086	
==>unk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structur <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	37	141	
==>erl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top leve <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	37	141	
==>erl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top leve <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	974	1074	
==>{
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILEx <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	974	1074	
==>{
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILEx <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26290	26390	
==>^'>> <ClassRanges> <']'> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13275	13370	
==>e these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13275	13370	
==>e these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40436	40551	
==>value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40436	40551	
==>value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40436	40551	
==>value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8010	8150	
==>\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8010	8150	
==>\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8010	8150	
==>\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwra <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4556	4656	
==>nts as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4556	4656	
==>nts as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6080	6180	
==>nts as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2048	2222	
==>ed_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5563	5667	
==>pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler proces <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5371	5472	
==>pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler proces <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	711	800	
==>to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	711	800	
==>to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	548	645	
==>args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	548	645	
==>args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	548	645	
==>args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	444	592	
==>ir => /path/to/source )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $dir;
    my $tmpl = {
        dir     => { requ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2207	2305	
==>ral {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2120	2216	
==>ral {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2166	2286	
==>copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $messag <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	167	275	
==>copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $messag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	167	275	
==>copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $messag <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1022	1128	
==>ub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
} <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1022	1128	
==>ub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	525	653	
==>>{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5}, "\n";
    exit;
}

warn "no code";
__END__

#use Test::More 'no_plan';
p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12576	12676	
==>unted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12576	12676	
==>unted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20819	20924	
==>1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20819	20924	
==>1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20819	20924	
==>1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8701	8811	
==>. Dumper(@_);
	
	unify($x->left, $y->left, @_);
	unify($x->right, $y->right, @_);
};

multi unify => ('type::op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	87	183	
==>e64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	87	183	
==>e64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13823	13926	
==>and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img > $initrd <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6683	6783	
==>alue must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@g <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6683	6783	
==>alue must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1067	1171	
==>ssed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    return $self->{$key->to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15029	15157	
==>eue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $rea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15029	15157	
==>eue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $rea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13277	13396	
==>os
    if isrange goto addrange
    charlist .= $S0
    goto scan
  addrange:
    isrange = 0
    $I2 = ord charlist, -1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3877	4001	
==>STROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':asce <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3877	4001	
==>STROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':asce <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3877	4001	
==>STROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':asce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4879	4987	
==>e $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4879	4987	
==>e $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4879	4987	
==>e $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1877	1989	
==>g.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1877	1989	
==>g.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1877	1989	
==>g.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15426	15551	
==>e not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15420	15545	
==>e not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6992	7091	
==>rog) );

	my $main = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3052	3160	
==>{
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create referen <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3052	3160	
==>{
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create referen <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7775	7872	
==>urn $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7775	7872	
==>urn $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1672	1767	
==>c->catfile($config->{bin}, "pugs$config->{exe_ext}");

    ($config->{file_sep}) =
      ($Confi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3933	4031	
==>-----
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3933	4031	
==>-----
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1080	1189	
==>\\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1080	1189	
==>\\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ), <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5629	5723	
==>st_files);

Runs all the given C<@test_files> (as C<runtests()>) but does it
quietly (no report <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2864	2963	
==>return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2864	2963	
==>return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3139	3232	
==>$r->compile($program);

=head1 DESCRIPTION

The compiler reduces an AST into an executable pro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1871	1975	
==>line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1871	1975	
==>line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1951	2055	
==>line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	367	482	
==>' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	367	482	
==>' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	367	482	
==>' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1728	1839	
==>alue!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1728	1839	
==>alue!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1728	1839	
==>alue!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1183	1284	
==>constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1183	1284	
==>constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1183	1284	
==>constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5530	5673	
==>and load quickly.

Additional options:
    --verbose, -v     print progress to stderr
    --touch,   -t     mark Run.hi and Run.o stale, trigger <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20421	20533	
==>" skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $es <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5333	5437	
==>\n";
PrintGolfScore($head, $tail, $rev, $mid, $wc);
CheckHead($head);
CheckTail($tail);
CheckRev($rev);
C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	793	904	
==>http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	793	904	
==>http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	793	904	
==>http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1994	2097	
==>ss ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1994	2097	
==>ss ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr( <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15676	15824	
==>boot image with info table
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7576	7662	
==>ND BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7576	7662	
==>ND BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7576	7662	
==>ND BOOTSTRAPPING ROLES
## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9083	9218	
==>dows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9083	9218	
==>dows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9083	9218	
==>dows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12236	12364	
==>re == 0 goto end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    . <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2208	2313	
==>d( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<aft <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2208	2313	
==>d( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<aft <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4445	4567	
==>$version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-sty <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4445	4567	
==>$version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-sty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2346	2447	
==>rn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2346	2447	
==>rn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2346	2447	
==>rn sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3001	3134	
==>'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAG <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8553	8662	
==>p::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8253	8359	
==>p::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10129	10245	
==>"Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.auto <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10129	10245	
==>"Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.auto <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7728	7832	
==>0-9]+ ) }xgc) {
      return $S->force_object(anyof_char_comp => chr(hex $1), "\\X$1") if $cc;
      retu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6678	6767	
==>parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6678	6767	
==>parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	6	120	
==>tion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	6	120	
==>tion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	6	120	
==>tion.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	388	489	
==>AVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	388	489	
==>AVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	388	489	
==>AVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8351	8484	
==>$A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A.property_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1282	1413	
==>DDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1282	1413	
==>DDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7354	7448	
==>$match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7354	7448	
==>$match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7354	7448	
==>$match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3809	3916	
==>dler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return un <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3809	3916	
==>dler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return un <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15673	15761	
==>,B1,E0,E1), !. % this cut is semantic.

rm(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) : <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	804	957	
==>( $opt->{precedence} eq 'tighter' ) {
                splice( @{$self->{levels}}, $_-1, 0, [ $opt ] );                
            }
            elsif ( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	426	564	
==>07 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	426	564	
==>07 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	349	520	
==>node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = oran <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11921	12058	
==>.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2335	2462	
==>.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2335	2462	
==>.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	249	348	
==>IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is expor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	249	348	
==>IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4981	5123	
==>al $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4981	5123	
==>al $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4981	5123	
==>al $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACK <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	853	953	
==>g this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to m <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	853	953	
==>g this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26010	26109	
==>ests.  This allows
the tests to determine if they are being executed through the harness
or by any o <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7164	7261	
==>multimetods this would be much more concise

# a free variable instantiates into whatever it is co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8567	8675	
==>edInteger {  # see 7.8.3
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3087	3189	
==>le span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3087	3189	
==>le span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2036	2141	
==>_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $fi <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2036	2141	
==>_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	60	161	
==>e;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warnings;

use Carp 'con <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11023	11146	
==>rator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.curre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11023	11146	
==>rator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.curre <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4561	4670	
==>hat makes the runtime throw a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&infix <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9154	9266	
==>ool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        wh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9154	9266	
==>ool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        wh <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2650	2757	
==>pace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTermina <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	489	588	
==>vision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	489	588	
==>vision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1380	1476	
==>s_till_day;

# Create the graph.
my $graph = GD::Graph::lines->new(500, 350);
$graph->set(
  titl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4301	4402	
==>$overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('ove <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4301	4402	
==>$overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('ove <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4301	4402	
==>$overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('ove <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	199	307	
==>m';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	405	513	
==>m';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37361	37503	
==>s+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37361	37503	
==>s+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37361	37503	
==>s+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15188	15358	
==>not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exist <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15182	15352	
==>not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10097	10211	
==>{ 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	11	109	
==>Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	11	109	
==>Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	11	109	
==>Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3104	3226	
==>lass, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3104	3226	
==>lass, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3104	3226	
==>lass, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	122	233	
==>= shift;
if($str eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8991	9091	
==>munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8991	9091	
==>munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	189	285	
==>s the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	189	285	
==>s the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	189	285	
==>s the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16823	16983	
==>ket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enq <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16823	16983	
==>ket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3339	3435	
==>0);
is($p2->class, \&Point, '... got the right class name');

is($p2->get_x, 100, '... got the ri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21229	21330	
==>lass' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25781	25882	
==>lass' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24405	24506	
==>lass' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and ea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4942	5046	
==>@child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4942	5046	
==>@child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3255	3371	
==>rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

sub _quote <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4951	5060	
==>print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4951	5060	
==>print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subs <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8662	8758	
==>fy $x->{symbol} with $y->{symbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @_);
	unify($x- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20861	20956	
==>le installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20861	20956	
==>le installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8609	8716	
==>object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8609	8716	
==>object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2630	2763	
==>p::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2823	2956	
==>p::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2050	2142	
==>bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17672	17885	
==>ms : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17672	17885	
==>ms : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17672	17885	
==>ms : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4094	4206	
==>keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4094	4206	
==>keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4094	4206	
==>keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9179	9308	
==>lurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9179	9308	
==>lurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9179	9308	
==>lurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	27	128	
==>006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	27	128	
==>006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15158	15323	
==>{ 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15158	15323	
==>{ 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15158	15323	
==>{ 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $value <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35034	35135	
==>into an C<intersection> if the two source headings are
identical.  This method has an alias named C<ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39584	39685	
==>into an C<intersection> if the two source headings are
identical.  This method has an alias named C<ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39126	39227	
==>into an C<intersection> if the two source headings are
identical.  This method has an alias named C<ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8946	9054	
==>location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8946	9054	
==>location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Hea <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2911	3017	
==>::emit($pil_tree);
	    my $failed = !defined $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $war <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2152	2251	
==>l_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2210	2309	
==>l_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3009	3163	
==>l = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3009	3163	
==>l = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3009	3163	
==>l = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4748	4845	
==>sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4748	4845	
==>sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4748	4845	
==>sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXS <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2150	2276	
==>]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2150	2276	
==>]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	662	763	
==>e it is always an optional match.
#   * Parts of the grammar, intended for a tokenizer, are not actual <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4312	4434	
==>ding) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7789	7911	
==>ding) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6773	6895	
==>ding) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20185	20282	
==>s
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for develope <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20185	20282	
==>s
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for develope <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10606	10697	
==>d">pugs::hack</a>
    manpage and <a
    href="http://svn.openfoundry.org/pugs/util/smokeser <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	128	241	
==>ction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	128	241	
==>ction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	128	241	
==>ction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16300	16432	
==>:Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16300	16432	
==>:Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16300	16432	
==>:Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::N <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3126	3227	
==>Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3672	3773	
==>Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	210	302	
==>Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attribute;
use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2895	3005	
==>val { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2895	3005	
==>val { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2895	3005	
==>val { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	819	920	
==>{ ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule term { <comment> | <alternatio <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10164	10264	
==>_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10164	10264	
==>_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1488	1601	
==>ital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1488	1601	
==>ital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18056	18194	
==>raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	618	722	
==>t syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	587	687	
==>t syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28804	28899	
==>on attribute names, or duplicate any other value set members.  This
method supports having the n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33356	33451	
==>on attribute names, or duplicate any other value set members.  This
method supports having the n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5071	5308	
==>( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4283	4484	
==>( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1924	2022	
==>il: ", substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END__

use YAML;
prin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2504	2635	
==>| <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <si <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2504	2635	
==>| <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <si <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	673	789	
==>651.
multi  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4356	4461	
==>ite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4356	4461	
==>ite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4356	4461	
==>ite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4859	4954	
==>ad an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4859	4954	
==>ad an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4859	4954	
==>ad an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass" <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1293	1396	
==>ed
March 12, 2006.

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2100	2195	
==>= "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2100	2195	
==>= "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6338	6440	
==>rom_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6338	6440	
==>rom_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16631	16720	
==>n> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16957	17047	
==>ribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16957	17047	
==>ribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16957	17047	
==>ribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7758	7871	
==>s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7758	7871	
==>s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7758	7871	
==>s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6723	6845	
==>le' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6723	6845	
==>le' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6723	6845	
==>le' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15516	15634	
==>ULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15516	15634	
==>ULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15516	15634	
==>ULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3240	3349	
==>JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3240	3349	
==>JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3240	3349	
==>JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt u <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5962	6068	
==>:Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5962	6068	
==>:Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5998	6135	
==>]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5998	6135	
==>]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5998	6135	
==>]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3159	3265	
==>ntf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3159	3265	
==>ntf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3159	3265	
==>ntf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	827	934	
==>ned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	827	934	
==>ned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	827	934	
==>ned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added suppor <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2227	2333	
==>Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sour <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2227	2333	
==>Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sour <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	143	238	
==>::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 {
    my($p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	995	1125	
==>rgs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	995	1125	
==>rgs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	995	1125	
==>rgs, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3565	3669	
==>ile(<<'RULE')->code();
 
    \=[pod|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23375	23463	
==>setta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23375	23463	
==>setta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10032	10143	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10032	10143	
==>msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	48	146	
==>:Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite st <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	48	146	
==>:Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40766	40858	
==>arser->warn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during the first pass over the reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13870	13985	
==>die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold othe <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13870	13985	
==>die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold othe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7672	7778	
==>@ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(file => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	528	697	
==>{
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5516	5649	
==>n"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5516	5649	
==>n"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	510	613	
==>s)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10574	10673	
==>y a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10632	10731	
==>y a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6787	6874	
==>('resolve' => ::make_method($_resolve));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6787	6874	
==>('resolve' => ::make_method($_resolve));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6787	6874	
==>('resolve' => ::make_method($_resolve));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2543	2659	
==>l_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$config;
    $template =~ s/#all_fields#/$all_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27956	28071	
==>n is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32508	32623	
==>n is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31600	31715	
==>n is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the inv <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22548	22656	
==>),
		),
	),
);

my $length_and_first_gen = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12783	12880	
==>ues of the fields removed.  In scalar
context the number of fields removed is returned.

Note that <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12783	12880	
==>ues of the fields removed.  In scalar
context the number of fields removed is returned.

Note that <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4891	5066	
==>g
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4891	5066	
==>g
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14721	14824	
==>_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14721	14824	
==>_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14721	14824	
==>_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::Pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19396	19510	
==>tuple attribute is a column, but it is not the same as a table.

The intended interface and use of this class in Pe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23948	24062	
==>tuple attribute is a column, but it is not the same as a table.

The intended interface and use of this class in Pe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22464	22578	
==>tuple attribute is a column, but it is not the same as a table.

The intended interface and use of this class in Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8174	8322	
==>m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8174	8322	
==>m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8174	8322	
==>m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9561	9665	
==>nt F $_[1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    syste <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	978	1076	
==>$self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    retur <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	978	1076	
==>$self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12029	12159	
==>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12029	12159	
==>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12029	12159	
==>{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4328	4455	
==>= -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @li <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4328	4455	
==>= -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @li <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	908	1025	
==>intf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_cat' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2893	3030	
==>ue_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2893	3030	
==>ue_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2893	3030	
==>ue_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::ma <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8159	8372	
==>:List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count+ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8159	8372	
==>:List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2893	2993	
==>he right y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	419	523	
==>se JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	419	523	
==>se JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	419	523	
==>se JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21751	21850	
==>xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21751	21850	
==>xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21751	21850	
==>xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8481	8621	
==>Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8481	8621	
==>Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8481	8621	
==>Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2643	2771	
==>er.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2643	2771	
==>er.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2643	2771	
==>er.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6441	6561	
==>die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6441	6561	
==>die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6441	6561	
==>die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3305	3409	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3305	3409	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3305	3409	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1420	1552	
==>, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1420	1552	
==>, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1420	1552	
==>, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1906	2031	
==>urrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1906	2031	
==>urrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1906	2031	
==>urrent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4668	4771	
==>on if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4668	4771	
==>on if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6192	6295	
==>on if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15203	15373	
==>";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15197	15367	
==>";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3564	3698	
==>ree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10379	10482	
==>shift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10658	10761	
==>shift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20232	20445	
==>d cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20232	20445	
==>d cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20232	20445	
==>d cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4532	4651	
==>ch->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4544	4663	
==>ch->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #prin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	664	759	
==>}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DuplicateFinder - find duplicat <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6739	6835	
==>ecking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6739	6835	
==>ecking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16463	16556	
==>s::unify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::uni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16780	16890	
==>plements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16780	16890	
==>plements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16780	16890	
==>plements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4352	4460	
==>IB::Utils->_move( from => $file|$dir, to => $target );

Moves a file or directory to the target.

Returns tru <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19105	19203	
==>n other words, this user
text is *part of the program*, and not the program's users' own data; only <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19105	19203	
==>n other words, this user
text is *part of the program*, and not the program's users' own data; only <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20326	20418	
==>1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized inc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20326	20418	
==>1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9537	9650	
==>my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9537	9650	
==>my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9537	9650	
==>my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	185	298	
==>lass = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19590	19686	
==>le
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19590	19686	
==>le
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that w <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	121	251	
==>ns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	121	251	
==>ns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	514	612	
==>.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created when you
declar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11748	11899	
==>self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11748	11899	
==>self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11748	11899	
==>self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1751	1855	
==>_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1751	1855	
==>_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1751	1855	
==>_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39282	39382	
==>returns Relation::Example>

This multi-method is a generic binary relational operator that is identic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36734	36826	
==>returns Relation::Example>

This multi-method is a generic binary relational operator that is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37234	37326	
==>returns Relation::Example>

This multi-method is a generic binary relational operator that is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3280	3381	
==>$mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3280	3381	
==>$mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3280	3381	
==>$mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2195	2315	
==>h
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2195	2315	
==>h
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2195	2315	
==>h
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3867	3976	
==>'®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities lis <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3867	3976	
==>'®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities lis <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	983	1082	
==>t be a core type";
    return str->new($left->to_native . $right->to_str->to_native);
}

1;

__END__ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4141	4240	
==>.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4141	4240	
==>.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19381	19473	
==>ide F<MyClass::__object__>.

=item Bug Fixes

Character classes weren't closing properly in t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1110	1213	
==>qual($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1110	1213	
==>qual($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1543	1636	
==>defined

=head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Blondie::N <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3703	3888	
==>em( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $contr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8170	8333	
==>{
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8170	8333	
==>{
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2773	2882	
==>ub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") if $cc;
    return $S->force_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1680	1777	
==>1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is const <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1680	1777	
==>1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is const <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3713	3822	
==>ub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3407	3508	
==>rser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3287	3384	
==>rser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5045	5191	
==>S   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5045	5191	
==>S   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5045	5191	
==>S   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9827	9942	
==>ty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say ' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9827	9942	
==>ty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say ' <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2701	2819	
==>(Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi N <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4162	4256	
==>rn ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4162	4256	
==>rn ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4082	4177	
==>]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4082	4177	
==>]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4082	4177	
==>]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_att <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22106	22210	
==>k :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <Case <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5655	5758	
==>ode_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5655	5758	
==>ode_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9282	9439	
==>er      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1402	1547	
==>er      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1402	1547	
==>er      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11162	11267	
==>uld 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11162	11267	
==>uld 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11162	11267	
==>uld 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	943	1145	
==>_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11396	11507	
==>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11396	11507	
==>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11396	11507	
==>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::Eval <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	383	510	
==>@_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9801	9928	
==>@_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    retur <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1973	2081	
==>GS_RUNTIME} and ($ENV{PUGS_RUNTIME} eq 'JS' or
                   $ENV{PUGS_RUNTIME} eq 'PERL5' or $ENV{PUGS_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11700	11786	
==>tevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11700	11786	
==>tevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2830	2939	
==>open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2830	2939	
==>open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2830	2939	
==>open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  clo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18827	18925	
==>ous hash
definition.  While it is obvious that people who would be writing the text
would have to k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18827	18925	
==>ous hash
definition.  While it is obvious that people who would be writing the text
would have to k <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1708	1840	
==>ribe;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10338	10438	
==>my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_valu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10338	10438	
==>my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1688	1787	
==>{ PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1688	1787	
==>{ PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1688	1787	
==>{ PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2495	2615	
==>e sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc, to => $builddir )
#             or error( "Could n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18988	19090	
==>e the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18988	19090	
==>e the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9308	9425	
==>y $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9308	9425	
==>y $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9308	9425	
==>y $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1687	1824	
==>e($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1687	1824	
==>e($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        retu <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	478	586	
==>plicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	478	586	
==>plicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	705	811	
==>?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs defines this as List::kv.  And with rw! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2910	3003	
==>ks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2910	3003	
==>ks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2910	3003	
==>ks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() {
    PI <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6850	6942	
==>by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6850	6942	
==>by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4817	4953	
==>n       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4817	4953	
==>n       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4817	4953	
==>n       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24840	24962	
==>?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${& <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21261	21383	
==>?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${& <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1063	1171	
==>ct to continue the previous match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6417	6518	
==>);
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABL <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13233	13327	
==>elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13233	13327	
==>elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	111	203	
==>::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	111	203	
==>::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5247	5347	
==>N_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5247	5347	
==>N_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5247	5347	
==>N_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11085	11194	
==>------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods woul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11085	11194	
==>------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods woul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11085	11194	
==>------------

What if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods woul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12803	12887	
==>package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12803	12887	
==>package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12803	12887	
==>package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27815	27937	
==>) }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	152	249	
==>t;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSIO <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	53	150	
==>t;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3620	3724	
==>utovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3620	3724	
==>utovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3620	3724	
==>utovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8274	8407	
==>el =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8274	8407	
==>el =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8274	8407	
==>el =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5914	6018	
==>Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5914	6018	
==>Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5914	6018	
==>Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parent <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10167	10278	
==>ned \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10161	10272	
==>ned \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	215	323	
==>ment.getElementsByTagName('A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	845	952	
==>::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	845	952	
==>::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	845	952	
==>::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6005	6113	
==>$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	502	605	
==>r $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	502	605	
==>r $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	502	605	
==>r $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36900	37025	
==>umper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36900	37025	
==>umper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36900	37025	
==>umper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40766	40883	
==>delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40766	40883	
==>delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40766	40883	
==>delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2145	2245	
==>isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2145	2245	
==>isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2145	2245	
==>isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	217	315	
==>his file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	217	315	
==>his file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!] <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	593	688	
==>ay ; Any|Junction *@indextests) returns List of Pair
multi sub values (@array ; Any|Junction *@i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6583	6690	
==>{ p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6583	6690	
==>{ p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6583	6690	
==>{ p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	626	729	
==>elation::Example::Heading class, that do export symbols:
    # (None Yet)

    # Attributes of every Rel <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	785	877	
==>oncatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) } <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	785	877	
==>oncatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1874	1995	
==>name = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1874	1995	
==>name = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1874	1995	
==>name = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2425	2539	
==>tle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2425	2539	
==>tle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2772	2886	
==>tle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	475	592	
==>ab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub em <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	475	592	
==>ab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub em <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2822	2925	
==>b cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4287	4392	
==>= map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4287	4392	
==>= map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4287	4392	
==>= map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $c <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3173	3283	
==>Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** NOTE ***
    DO NOT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1820	1925	
==>lank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1880	1985	
==>lank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6926	7064	
==>);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &uni <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10403	10541	
==>);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &uni <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15296	15395	
==>s,
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the cap <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1429	1524	
==>extarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1429	1524	
==>extarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20532	20633	
==>{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) &&  ! exists $val->{_fi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8229	8326	
==>ing);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11706	11803	
==>ing);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7077	7261	
==>);
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7077	7261	
==>);
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	662	772	
==>>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This library is free software; y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	677	818	
==>output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	677	818	
==>output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	677	818	
==>output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9691	9796	
==>channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9691	9796	
==>channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel) <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	94	199	
==>t passed in, and add "--copy-prefix" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1025	1123	
==>sing objects that it finds along the way into new
namespaces. This is typically useful when your ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1025	1123	
==>sing objects that it finds along the way into new
namespaces. This is typically useful when your ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1025	1123	
==>sing objects that it finds along the way into new
namespaces. This is typically useful when your ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7769	7879	
==>ld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7769	7879	
==>ld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7769	7879	
==>ld make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method(' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	889	1018	
==>thod new($class: Str $name) returns Meta::Class {

    $.name = $name;
    return $?SELF;

}

# takes the object and "builds" it i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2737	2864	
==>prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2954	3081	
==>prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1151	1251	
==>::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1151	1251	
==>::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1151	1251	
==>::Package, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3005	3103	
==>previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3005	3103	
==>previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1703	1817	
==>l => $^b },
		);
	my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand() * 100)) % @l.elems;

	@l[$sele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6954	7173	
==>Params'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6954	7173	
==>Params'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6954	7173	
==>Params'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6486	6637	
==>.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1563	1663	
==>({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1563	1663	
==>({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3164	3293	
==>system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6175	6270	
==>xt = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6233	6328	
==>xt = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_test <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7231	7333	
==>ate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	124	217	
==>e it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-C <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	124	217	
==>e it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19835	19931	
==>s constructed, and the object can
not be changed afterwards.

If you want something similar but t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24387	24483	
==>s constructed, and the object can
not be changed afterwards.

If you want something similar but t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22939	23035	
==>s constructed, and the object can
not be changed afterwards.

If you want something similar but t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11453	11574	
==>file($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11453	11574	
==>file($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11453	11574	
==>file($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7279	7524	
==>newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7279	7524	
==>newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5495	5596	
==>eft they are unified
# a free variable can be instantiated to point to another type object
# at this p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2549	2689	
==>::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2549	2689	
==>::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2549	2689	
==>::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6897	7026	
==>match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6897	7026	
==>match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14759	14869	
==>e::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14759	14869	
==>e::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14759	14869	
==>e::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100* <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2117	2215	
==>cted, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2175	2273	
==>cted, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	874	972	
==>ld html test catalog and synopses with hyperlinks to corresponding tests

  Options:
    --p6design <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1632	1726	
==>str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1632	1726	
==>str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1632	1726	
==>str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10320	10427	
==>shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $code_params = '[map{Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7333	7435	
==>cks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7333	7435	
==>cks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	385	510	
==>w;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix ep <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	385	510	
==>w;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix ep <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12426	12536	
==>defined $args{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $args{s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8927	9063	
==>nation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1079	1203	
==>nation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1079	1203	
==>nation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3798	3898	
==>, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3798	3898	
==>, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3798	3898	
==>, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13710	13886	
==>prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13710	13886	
==>prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_a <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5632	5743	
==>p => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2246	2381	
==>t(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2246	2381	
==>t(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2246	2381	
==>t(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3596	3707	
==>ly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3596	3707	
==>ly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3596	3707	
==>ly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6507	6599	
==>$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6507	6599	
==>$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6507	6599	
==>$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7909	8034	
==>r    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7909	8034	
==>r    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7909	8034	
==>r    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].S <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	460	558	
==>$role.apply;

=head1 DESCRIPTION

This object represents a Role.

A Role is a composable unit of be <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5486	5581	
==>en)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5486	5581	
==>en)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3108	3211	
==>ss' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FET <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7353	7442	
==>l6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1178	1267	
==>l6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2361	2479	
==>types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2361	2479	
==>types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2361	2479	
==>types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21942	22191	
==>method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # specu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7903	8069	
==>'$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7903	8069	
==>'$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7903	8069	
==>'$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11332	11476	
==>1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11326	11470	
==>1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9784	9892	
==>e'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split(/::/,$name); pop(@par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35087	35275	
==>e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1553	1655	
==>rns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not matc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1611	1713	
==>rns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11042	11155	
==>ap{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11042	11155	
==>ap{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11042	11155	
==>ap{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30808	31004	
==>>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30808	31004	
==>>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30808	31004	
==>>= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1988	2101	
==>r: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1988	2101	
==>r: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1988	2101	
==>r: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11960	12141	
==>1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11960	12141	
==>1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11960	12141	
==>1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1738	1829	
==>d"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1738	1829	
==>d"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1738	1829	
==>d"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25416	25511	
==>attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25416	25511	
==>attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11606	11728	
==>, undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11606	11728	
==>, undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date: <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1426	1536	
==>chval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv->$key,$value{
        if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	167	261	
==>Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	167	261	
==>Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	167	261	
==>Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (sep <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19823	19919	
==>he desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19823	19919	
==>he desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1486	1591	
==>ibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1486	1591	
==>ibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1486	1591	
==>ibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8917	9054	
==>-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $stri <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8917	9054	
==>-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $stri <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	629	725	
==>e.  Useful short-term. Eventually not needed,
# once macro rxmodinternal:<x> etc works.

#rule na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1635	1914	
==>value
                        !! $?CLASS.new( :attrs<.value.value> )
                    )
                )
                !! ( 'Scalar' => .value )
            )
        ) } }
    );
}

###########################################################################

proto method e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	486	649	
==>ent => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.par <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	486	649	
==>ent => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8298	8462	
==>t( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8298	8462	
==>t( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14720	14862	
==>g easier
        $sobj->objectify_text;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          wh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3643	3739	
==>r $description )>

Marks that the next test should pass.  C<$description> is the optional
descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3643	3739	
==>r $description )>

Marks that the next test should pass.  C<$description> is the optional
descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3723	3819	
==>r $description )>

Marks that the next test should pass.  C<$description> is the optional
descrip <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	828	943	
==>localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	828	943	
==>localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25061	25146	
==>t_flag_x(E0,x,E1), !.
set_flag(E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2681	2796	
==>if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2681	2796	
==>if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2681	2796	
==>if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11003	11109	
==>egex    = $7; 
      # captures delimited portion of the string (provided only one delimiter was specified) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4755	4858	
==>://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4755	4858	
==>://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8310	8420	
==>ed)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8310	8420	
==>ed)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8310	8420	
==>ed)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	539	645	
==>ng to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	539	645	
==>ng to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	539	645	
==>ng to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7168	7297	
==>ed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7168	7297	
==>ed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7168	7297	
==>ed')->num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29033	29126	
==>ackage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29033	29126	
==>ackage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29033	29126	
==>ackage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Car <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	732	837	
==>t}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	732	837	
==>t}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	732	837	
==>t}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7398	7638	
==>s %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems() <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7398	7638	
==>s %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems() <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	488	610	
==>$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4128	4256	
==>thods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4128	4256	
==>thods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4128	4256	
==>thods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2397	2502	
==>elf: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method interse <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2397	2502	
==>elf: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method interse <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34303	34392	
==>:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1606	1738	
==>_[3], exp1 => \$_[1], } }", 
    infix_left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	96	216	
==>e strict;
use warnings;

use Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Us <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3912	4008	
==>base = File::Spec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canon <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4080	4191	
==>int "ok $num\n";
        if( $self->{saw_lone_not} && 
            ($self->{lone_not_line} == $self->{line} - 1) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7213	7316	
==>e?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7271	7374	
==>e?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33711	33861	
==>IVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33711	33861	
==>IVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33711	33861	
==>IVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1557	1659	
==>cope.



the Sig contains a simply structure of the signature; it does

not allocate containers.



the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1494	1591	
==>cope.

the Sig contains a simply structure of the signature; it does
not allocate containers.

the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	78	181	
==>1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	78	181	
==>1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	78	181	
==>1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6153	6260	
==>ile::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3830	3936	
==>ile::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	136	254	
==>( [^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7801	7899	
==>s rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7801	7899	
==>s rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20786	20904	
==>me<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	74	174	
==>of the original MiniMetaModel here
# for reference purposes, as this is what 2.0 is based on
# this w <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6915	7014	
==>ever, this means I should defer events until I get to the
end of the line. I could probably do that, <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6915	7014	
==>ever, this means I should defer events until I get to the
end of the line. I could probably do that, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5082	5193	
==>ta( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5304	5415	
==>ta( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of st <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9442	9561	
==>d) = $test->{pos} =~ /line (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @li <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1532	1629	
==>arent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1532	1629	
==>arent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35716	35822	
==>egative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35716	35822	
==>egative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35716	35822	
==>egative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7087	7195	
==>($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3691	3799	
==>($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4540	4648	
==>($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6508	6602	
==>SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6508	6602	
==>SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6508	6602	
==>SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4881	5026	
==>',
    #    precedence => 'equal',
    #    other => ';',
    #);

    # experimental
    __PACKAGE__->add_rule( 
        name => 'IF',
        as <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4941	5078	
==>do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5405	5542	
==>do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31337	31611	
==>ew('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => nu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12497	12592	
==>empty, but gains one element for each Node in the Node
hierarchies created from a defined @root_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12497	12592	
==>empty, but gains one element for each Node in the Node
hierarchies created from a defined @root_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17035	17138	
==>Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17035	17138	
==>Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	674	768	
==>piler::Rule->compile(q(" .
	$body . "))->code;"
    }))->code;
*grammar = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2236	2374	
==>de.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2236	2374	
==>de.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2236	2374	
==>de.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	12	134	
==>l6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	12	134	
==>l6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	12	134	
==>l6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-mo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12702	12855	
==>d
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path : <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12702	12855	
==>d
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path : <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2482	2620	
==>--------------------------

sub CheckHead {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1765	1893	
==>y {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1765	1893	
==>y {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1765	1893	
==>y {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7238	7345	
==>def;
    @result;
}


 multi Array::unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2967	3062	
==>string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2967	3062	
==>string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.pa <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5188	5327	
==>};

            assert( defined( $details->{ok} ) && defined( $details->{actual_ok} ) );

            # We don't want these to be undef beca <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1763	1858	
==>yntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1763	1858	
==>yntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=he <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3916	4020	
==>used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attribut <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3916	4020	
==>used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4156	4437	
==>rg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "ou <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2746	2846	
==>uce to it's value (and also prepares a dynamic scope
for it).

If we have a Thunk inside '&func' in t <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1433	1540	
==>>{NAME} =~ s/-/::/g;

    # Only call $self->tests if we haven't been given explicit
    # tests from makema <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	370	465	
==>o_test_junction;

# for running the test suite multiple times in the same process
$Test::testing <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	428	523	
==>o_test_junction;

# for running the test suite multiple times in the same process
$Test::testing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1409	1510	
==>ame"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1409	1510	
==>ame"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1409	1510	
==>ame"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2702	2805	
==>JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2702	2805	
==>JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2702	2805	
==>JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  wa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	322	491	
==>%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&print'),
                S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9063	9166	
==>_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9063	9166	
==>_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1416	1534	
==>nstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1416	1534	
==>nstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1416	1534	
==>nstant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18337	18527	
==>() { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18337	18527	
==>() { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18337	18527	
==>() { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1699	1806	
==>};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1699	1806	
==>};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1699	1806	
==>};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1812	1922	
==>, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1812	1922	
==>, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1812	1922	
==>, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6143	6242	
==>rn the string set in advance with the prune method.

This feature is useful, like custom, for when y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6143	6242	
==>rn the string set in advance with the prune method.

This feature is useful, like custom, for when y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6143	6242	
==>rn the string set in advance with the prune method.

This feature is useful, like custom, for when y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16646	16764	
==>s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16646	16764	
==>s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16646	16764	
==>s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22903	23010	
==>oles (Relation, Tuple, Heading) are intended to be composed
into separate (and usually third-party) classes, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35116	35211	
==>back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method retu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35116	35211	
==>back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method retu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21504	21620	
==>m"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1448	1541	
==>t Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered v <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1448	1541	
==>t Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered v <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8902	9027	
==>859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8902	9027	
==>859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3784	3877	
==>lf->whitespaceTermTable();
  (substr $target, $position, $lastPosition) =~ m/[^\s]/;
  my $whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	952	1059	
==>atically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	952	1059	
==>atically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	952	1059	
==>atically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2062	2163	
==>$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_element'} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4553	4650	
==>ire match string, but may be arbitrary
objects returned from the rule using a C<return> clause.

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4553	4650	
==>ire match string, but may be arbitrary
objects returned from the rule using a C<return> clause.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	860	971	
==>[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	860	971	
==>[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	860	971	
==>[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5830	5931	
==>en = SvLEN(pat);
    if(r->prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	7	117	
==>pl - Anwendung von let
my $prim = 17;

sub is_prim { 
	... # teste ob $prim prim ist
}

sub search_prim_within( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5108	5208	
==>ed %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've regis <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5108	5208	
==>ed %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've regis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6012	6121	
==>lemented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6024	6133	
==>lemented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $mat <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9048	9152	
==>e can't use +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2037	2144	
==>:Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2037	2144	
==>:Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3300	3451	
==>w( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter',
            oth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1520	1611	
==>tatement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warning <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1520	1611	
==>tatement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2942	3051	
==>ecl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2942	3051	
==>ecl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2942	3051	
==>ecl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2642	2744	
==>_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2642	2744	
==>_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2642	2744	
==>_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	74	305	
==>alue Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	74	305	
==>alue Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19550	19715	
==>type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8963	9068	
==>header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8963	9068	
==>header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	512	696	
==>attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	512	696	
==>attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	512	696	
==>attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::creat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7456	7573	
==>elation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicat <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	595	692	
==>rammer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher AP <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	595	692	
==>rammer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher AP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4511	4648	
==>elf->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4651	4788	
==>elf->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7894	7989	
==>nclude -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/includ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25374	25601	
==>ew()); 
                          # and recalculate it ..
                          $e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3209	3309	
==>d );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use b <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3209	3309	
==>d );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4653	4758	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4653	4758	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4653	4758	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6101	6214	
==>quest;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6101	6214	
==>quest;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HT <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2658	2760	
==>child of an App for that to happen.

Inherits Unit.

=item App

An App makes a Thunk reduce to it's val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9367	9463	
==>SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9367	9463	
==>SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9367	9463	
==>SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17205	17311	
==>);
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17205	17311	
==>);
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17205	17311	
==>);
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4019	4118	
==>name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4019	4118	
==>name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4019	4118	
==>name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6448	6559	
==>ubclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normali <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6448	6559	
==>ubclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normali <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7197	7300	
==>Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'rBar::bar' } }
);
ok($rBar->does(' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5958	6078	
==>= nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if(r->off <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26080	26180	
==>ld make sure in yours.

Matching against the regex is done in scalar context, globally, like so:

  i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4697	4797	
==>? 1 : 0;
}
sub field_is_optional {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /May <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14090	14241	
==>turn;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14084	14235	
==>turn;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1192	1300	
==>my $blib = ($perl_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'b <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6014	6107	
==>bRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'Sub <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6014	6107	
==>bRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'Sub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2913	3006	
==>bRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'Sub <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8957	9063	
==>st_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9015	9121	
==>st_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	146	252	
==>"\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	146	252	
==>"\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	146	252	
==>"\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest co <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15089	15238	
==>ng pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 * <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19264	19413	
==>ng pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 * <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8568	8664	
==>eq 'Method') {
	$code_body = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $class <==
3	/Users/nnunley/pugs/util/drift.pl	1093	1193	
==>- WARNING WARNING WARNING --

This is an autogenerated file from $in.

Do not edit this file.

All ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17509	17601	
==>E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17509	17601	
==>E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9756	9849	
==>" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9756	9849	
==>" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6431	6520	
==>sh @pkgs, -package => 'plugins', -package => 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2730	2842	
==>$who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2730	2842	
==>$who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2730	2842	
==>$who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7266	7380	
==>[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7266	7380	
==>[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7266	7380	
==>[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1676	1854	
==>g );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        meth <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3381	3490	
==>Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3381	3490	
==>Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	47	155	
==>e 5.006;
use Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %lo <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1165	1261	
==>->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $se <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1165	1261	
==>->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	293	408	
==>ub isa {
#     my $self = shift;
#     my $result = $self->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3484	3585	
==>one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3484	3585	
==>one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	473	571	
==>$source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	473	571	
==>$source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	473	571	
==>$source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}-> <==
3	/Users/nnunley/pugs/util/package-osx.pl	4322	4419	
==>:Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/man/man3/Perl <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1721	1816	
==>l create the
'nmake.exe' file needed by this module.

You may then resume the installation proce <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1561	1656	
==>l create the
'nmake.exe' file needed by this module.

You may then resume the installation proce <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1752	1868	
==>rget?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $head <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1752	1868	
==>rget?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10228	10333	
==>s $_[0] =~ /->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9423	9527	
==>delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9423	9527	
==>delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9423	9527	
==>delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical var <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20892	20989	
==>tion use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigoro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20892	20989	
==>tion use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigoro <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10202	10324	
==>input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outfile = IO::Fi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4960	5055	
==>l nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4960	5055	
==>l nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1002	1100	
==>h its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1002	1100	
==>h its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1002	1100	
==>h its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is typica <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1090	1193	
==>re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1090	1193	
==>re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1090	1193	
==>re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1574	1686	
==>,
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1574	1686	
==>,
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1574	1686	
==>,
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3719	3825	
==>ler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('l <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3719	3825	
==>ler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('l <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	541	669	
==>List {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2136	2242	
==>tance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> comma <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2136	2242	
==>tance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> comma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2846	2945	
==>class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5385	5483	
==>ther data structures used by the Rosetta framework, as used by
    # the current process/applicatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5385	5483	
==>ther data structures used by the Rosetta framework, as used by
    # the current process/applicatio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1002	1104	
==>xt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1002	1104	
==>xt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10555	10672	
==>:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10555	10672	
==>:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10555	10672	
==>:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7922	8081	
==>DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7922	8081	
==>DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7922	8081	
==>DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $argumen <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2927	3042	
==>Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2927	3042	
==>Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3007	3122	
==>Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $T <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20677	20771	
==>Relation does not declare any subroutines or export such.

The usual way that Relation indicate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25229	25323	
==>Relation does not declare any subroutines or export such.

The usual way that Relation indicate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	270	374	
==>erator = Pugs::Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operator',
        header  = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	497	592	
==>evnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolera <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	497	592	
==>evnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolera <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1727	1900	
==>e);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1727	1900	
==>e);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20675	20779	
==>efs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10608	10832	
==>lasses, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10608	10832	
==>lasses, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	402	503	
==>ss = Class.new("SomeClass");
 my $type = Type.new(Class.new("SomeClass"));

 $class.apply;

 $type =:= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	303	424	
==>s.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	303	424	
==>s.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	303	424	
==>s.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1500	1604	
==>ternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1500	1604	
==>ternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1500	1604	
==>ternal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22376	22549	
==>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22376	22549	
==>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22376	22549	
==>$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4183	4283	
==>unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4183	4283	
==>unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4183	4283	
==>unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7671	7848	
==>t->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7671	7848	
==>t->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7671	7848	
==>t->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7158	7265	
==>stfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7158	7265	
==>stfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7158	7265	
==>stfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8811	8921	
==>is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8811	8921	
==>is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is u <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7062	7179	
==>arams {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUES <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7062	7179	
==>arams {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUES <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1631	1732	
==>esInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	602	722	
==>E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	602	722	
==>E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6032	6147	
==>hash,
    );
    $class->SUPER::recompile;

    # operator-precedence
    my $g = $operator->emit_yapp;
    #print $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1984	2073	
==>ackage');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1984	2073	
==>ackage');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1984	2073	
==>ackage');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	709	806	
==>leName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	709	806	
==>leName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8895	9017	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8895	9017	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8895	9017	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8829	8942	
==>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8829	8942	
==>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8829	8942	
==>{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $cod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25823	25918	
==>ew(list => type::variable::free->new);
	is($type->stringify, "∀α. list α", "pretty print lis <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10984	11075	
==>ecipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10984	11075	
==>ecipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4242	4353	
==>body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4242	4353	
==>body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4242	4353	
==>body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3476	3591	
==>A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3476	3591	
==>A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1967	2065	
==>stfix:*", "<term:", "left", $parse_quant);
    $optable->addToken("postfix:+", "postfix:*", "left", <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9885	10003	
==>, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9885	10003	
==>, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	391	494	
==>e "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, alw <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3828	3936	
==>is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = &infix:«<=>», *@array --> Sca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	326	430	
==>param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	326	430	
==>param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8684	8850	
==>ok into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5044	5210	
==>ok into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5893	6059	
==>ok into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2967	3095	
==>.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2967	3095	
==>.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2967	3095	
==>.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5723	5877	
==>) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5723	5877	
==>) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5723	5877	
==>) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            el <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17633	17796	
==>.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21110	21273	
==>.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20697	20860	
==>.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	727	837	
==>it_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	815	925	
==>it_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24167	24273	
==>error if the flag isn't supported
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2214	2320	
==>JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2214	2320	
==>JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2214	2320	
==>JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	578	678	
==>p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  I <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	578	678	
==>p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4684	4785	
==>e ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4684	4785	
==>e ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4684	4785	
==>e ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6920	7129	
==>method')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18933	19026	
==>nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, usi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18933	19026	
==>nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6955	7085	
==>== -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6955	7085	
==>== -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6955	7085	
==>== -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1964	2074	
==>(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1964	2074	
==>(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1964	2074	
==>(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6522	6621	
==>w('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6522	6621	
==>w('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6522	6621	
==>w('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	923	1032	
==>Class->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	923	1032	
==>Class->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	923	1032	
==>Class->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various so <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27498	27589	
==>odule contains the object definitions for F<Regexp::Parser>.

=head2 Inheritance

All F<Rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3071	3173	
==>e->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3071	3173	
==>e->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3071	3173	
==>e->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2342	2444	
==>_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2342	2444	
==>_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2342	2444	
==>_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'glob <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7059	7185	
==>dary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7059	7185	
==>dary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $co <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2414	2536	
==>-> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied fro <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7225	7326	
==>Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7283	7384	
==>Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5223	5377	
==>x] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5211	5365	
==>x] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1037	1163	
==>) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3338	3434	
==>h, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3338	3434	
==>h, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@fil <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1642	1743	
==>elf:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_attribute <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1410	1505	
==>of I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1410	1505	
==>of I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6916	7065	
==>sh(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_param <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6916	7065	
==>sh(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_param <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8795	8901	
==>,
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$parrot_path/parrot"), ld <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16842	16933	
==>nals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16842	16933	
==>nals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16842	16933	
==>nals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2451	2584	
==>_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: use a real te <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2588	2685	
==>imensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

m <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2588	2685	
==>imensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

m <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9990	10081	
==>XXX - should permit \misc, no?
set_metachar("\\").
set_metachar("]").
set_metachar("-").
p5_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7676	7761	
==>Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7734	7819	
==>Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3675	3768	
==>_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3675	3768	
==>_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1078	1180	
==>+@config;
			@config[-1]{"Features"}{$0} = $1;
		} else {
			die "Invalid line in ini: $lineno\n>>> $li <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6150	6242	
==>ipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6150	6242	
==>ipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1974	2106	
==>+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probabl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1974	2106	
==>+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probabl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1974	2106	
==>+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10206	10413	
==>$spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10206	10413	
==>$spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10206	10413	
==>$spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4147	4256	
==>>{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4147	4256	
==>>{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4147	4256	
==>>{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12840	12953	
==>(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12840	12953	
==>(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12840	12953	
==>(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15521	15629	
==>0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15521	15629	
==>0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15521	15629	
==>0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just exa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4667	4772	
==>(<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4312	4404	
==>8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=he <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4312	4404	
==>8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=he <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	968	1073	
==>elf->dir or return;

    return $dir->subdir( $self->config->_alternatives );
}

=head2 $file = $inst->reg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19413	19504	
==>ructured as
standard data manipulation statements but that the target relation
variables are <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19413	19504	
==>ructured as
standard data manipulation statements but that the target relation
variables are <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	551	654	
==>s export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say " <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	609	712	
==>s export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2158	2277	
==>w();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for bac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2158	2277	
==>w();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for bac <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13901	14004	
==>o end
  err_hyphen:
    parse_error(mob, pos, "Unescaped '-' in charlist (use '..' or '\-')")
    goto e <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3632	3730	
==>on($iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $self: In <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19580	19675	
==>tem $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19580	19675	
==>tem $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	802	931	
==>enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	802	931	
==>enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1016	1115	
==>bose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Swi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7398	7524	
==>s, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # X <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15059	15148	
==>erface (RNI), which applications invoke and which
multiple interchangeable "Engine" back-e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15059	15148	
==>erface (RNI), which applications invoke and which
multiple interchangeable "Engine" back-e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50257	50378	
==>attr(symbol->new('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$self:')->get_at <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11043	11147	
==>dline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11043	11147	
==>dline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $. <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7386	7550	
==>indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub build_indexes {
    my $path     = shift;
    my $ind <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8474	8632	
==>my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8474	8632	
==>my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2586	2686	
==>($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2586	2686	
==>($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2586	2686	
==>($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1484	1595	
==>nt {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1484	1595	
==>nt {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5837	5969	
==>1),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5837	5969	
==>1),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3038	3141	
==>%param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3038	3141	
==>%param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4010	4106	
==>hich namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4194	4290	
==>hich namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Matc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1732	1840	
==>end_index) && $end_index->isa('num')))    
        || confess "Indecies must be a num type";
    return list- <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5492	5591	
==>ast error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by th <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5492	5591	
==>ast error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2535	2631	
==>) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2535	2631	
==>) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2535	2631	
==>) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	248	339	
==>st copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	248	339	
==>st copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	248	339	
==>st copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builde <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9223	9339	
==>( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9223	9339	
==>( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implement <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	403	524	
==>);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1025	1133	
==>ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate lon <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	984	1090	
==>ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate lon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5566	5670	
==>nfix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5566	5670	
==>nfix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5566	5670	
==>nfix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2104	2211	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2104	2211	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    } <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	692	790	
==>e Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm h <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	692	790	
==>e Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34782	34881	
==>d, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34782	34881	
==>d, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34782	34881	
==>d, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @lis <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7101	7230	
==>?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7101	7230	
==>?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$n <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	460	585	
==>odules == 1) {
        eval {
            $self->version(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        pr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5917	6167	
==>$domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                tak <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5917	6167	
==>$domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                tak <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36818	36914	
==>he identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41367	41463	
==>he identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40990	41086	
==>he identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16991	17082	
==>ake_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16991	17082	
==>ake_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16991	17082	
==>ake_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_att <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	322	426	
==>n;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pip <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	322	426	
==>n;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pip <==
3	/Users/nnunley/pugs/util/func_refact.pl	306	409	
==>l functions
by default, or use -initial <fname>, possibly many times, to
specify the initial set. -excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16710	16830	
==>D {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16710	16830	
==>D {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16710	16830	
==>D {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2887	2989	
==>' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2887	2989	
==>' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2887	2989	
==>' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10171	10297	
==>ithin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10171	10297	
==>ithin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10171	10297	
==>ithin
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1929	2050	
==>};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1929	2050	
==>};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1980	2079	
==>um of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num of num128 whe <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11330	11422	
==>ree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns A <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11330	11422	
==>ree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1209	1319	
==>perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1209	1319	
==>perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1744	1845	
==>tf(target, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19188	19285	
==>hods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19188	19285	
==>hods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1625	1738	
==>test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1625	1738	
==>test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1625	1738	
==>test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1962	2064	
==>IL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1962	2064	
==>IL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1962	2064	
==>IL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3011	3121	
==>age { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3011	3121	
==>age { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3011	3121	
==>age { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5829	5935	
==>il,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5829	5935	
==>il,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5829	5935	
==>il,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10752	10884	
==>pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10746	10878	
==>pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17877	17996	
==>unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6180	6278	
==>ormalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accord <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6180	6278	
==>ormalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accord <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1166	1260	
==>combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprin <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1166	1260	
==>combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	285	379	
==>\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	285	379	
==>\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	285	379	
==>\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	133	261	
==>rict;
use warnings;
no warnings 'recursion';

sub new {
    my $class = shift;
    bless {
        params => undef,
        param <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	774	899	
==>s;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.tex <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	774	899	
==>s;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4981	5092	
==>self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4981	5092	
==>self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4981	5092	
==>self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self <==
3	/Users/nnunley/pugs/util/package-osx.pl	4516	4613	
==>Perl6::Bible::S02.3pm
        /usr/local/man/man3/Perl6::Bible::S03.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1417	1510	
==>ks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/ <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1417	1510	
==>ks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2467	2591	
==>$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2467	2591	
==>$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9467	9583	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # x <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14586	14678	
==>safe_chars )

This routine works just like encode_entities, except that the replacement
entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14586	14678	
==>safe_chars )

This routine works just like encode_entities, except that the replacement
entit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	486	585	
==>onal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	486	585	
==>onal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	486	585	
==>onal parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3294	3392	
==>aN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3294	3392	
==>aN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3294	3392	
==>aN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35204	35356	
==>_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35204	35356	
==>_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35204	35356	
==>_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2610	2771	
==>) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2525	2680	
==>) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flag <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1695	1790	
==>ckage Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_inse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23713	23825	
==>c6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23713	23825	
==>c6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23713	23825	
==>c6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8529	8659	
==>>= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3880	3982	
==>>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3880	3982	
==>>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3613	3713	
==>arn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3613	3713	
==>arn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3613	3713	
==>arn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	522	627	
==>ne "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	522	627	
==>ne "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24563	24661	
==>to parse flags, but if
you do, remember to follow this model correctly.

=item next

An array refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8625	8723	
==>.. ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8625	8723	
==>.. ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8625	8723	
==>.. ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3531	3636	
==>ormal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3531	3636	
==>ormal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3531	3636	
==>ormal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10711	10818	
==>for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10711	10818	
==>for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10711	10818	
==>for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2081	2186	
==>ossibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2081	2186	
==>ossibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2081	2186	
==>ossibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs will al <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37863	37973	
==>t of first pairwise-matching every tuple of each source relation
with every tuple of each other source relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42412	42522	
==>t of first pairwise-matching every tuple of each source relation
with every tuple of each other source relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42062	42172	
==>t of first pairwise-matching every tuple of each source relation
with every tuple of each other source relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12123	12237	
==>\%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12123	12237	
==>\%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12123	12237	
==>\%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	598	700	
==>}

warn "no code";
__END__

#use Test::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18114	18209	
==>ing".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18114	18209	
==>ing".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13432	13566	
==>_flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13432	13566	
==>_flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13432	13566	
==>_flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	727	818	
==>ied-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	727	818	
==>ied-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_hea <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4576	4664	
==>(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_bounds(Min,Max) --> digits_int(Min <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	604	728	
==>load } or return;
    goto &$autoload;
}

#line 76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9013	9133	
==>);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12490	12610	
==>);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3316	3421	
==>ze($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3316	3421	
==>ze($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16696	16795	
==>rn Val->new($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3934	4057	
==>fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3934	4057	
==>fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3934	4057	
==>fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9868	9979	
==>_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9868	9979	
==>_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1970	2081	
==>f substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Compress::Bzip2; debug "Bzip2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6957	7176	
==>ams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6957	7176	
==>ams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6957	7176	
==>ams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no stri <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1851	1960	
==>g;
	$expr = "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match. <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	437	536	
==>)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quan <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	437	536	
==>)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quan <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	382	589	
==>(
        Seq(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym(' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2	103	
==>e v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2	103	
==>e v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6909	7016	
==>:Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To use this module as is, load it, and create a <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5176	5273	
==>(and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the docume <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5176	5273	
==>(and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1496	1664	
==>_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0")." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1496	1664	
==>_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0")." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1496	1664	
==>_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0")." <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4667	4789	
==>""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4667	4789	
==>""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4667	4789	
==>""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15505	15627	
==>name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15505	15627	
==>name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15505	15627	
==>name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2432	2525	
==>$need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2432	2525	
==>$need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2432	2525	
==>$need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3623	3754	
==>s
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3623	3754	
==>s
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3623	3754	
==>s
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6281	6375	
==>entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6281	6375	
==>entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6281	6375	
==>entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6503	6693	
==>ng
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6503	6693	
==>ng
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6503	6693	
==>ng
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5816	5961	
==>else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5816	5961	
==>else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5816	5961	
==>else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been suppl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7937	8069	
==>ORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7937	8069	
==>ORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7937	8069	
==>ORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8907	9012	
==>val string
    # because we need the bareword semantics, where 'require'
    # will munge the package name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8907	9012	
==>val string
    # because we need the bareword semantics, where 'require'
    # will munge the package name <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5106	5206	
==>$files) { handle_t_file( catdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5294	5411	
==>I SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5294	5411	
==>I SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5294	5411	
==>I SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6580	6704	
==>t( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6580	6704	
==>t( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6580	6704	
==>t( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	125	218	
==>o be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	125	218	
==>o be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	125	218	
==>o be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Clas <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	990	1104	
==>$dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
    }

    return;
}

sub can <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8340	8438	
==>umptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and ma <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8340	8438	
==>umptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and ma <==
3	/Users/nnunley/pugs/util/grokprims.pl	180	282	
==>=>  'left-associative infix',
    right => 'right-associative infix',
    non   =>   'non-associative i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9605	9702	
==>d _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override thes <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9605	9702	
==>d _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override thes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1774	1899	
==>")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1774	1899	
==>")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1774	1899	
==>")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($class | <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14669	14789	
==>roy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14669	14789	
==>roy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14669	14789	
==>roy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.de <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17543	17634	
==>Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17543	17634	
==>Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7868	7990	
==>{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7868	7990	
==>{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7868	7990	
==>{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1470	1574	
==>&?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1470	1574	
==>&?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1470	1574	
==>&?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14809	14907	
==>leave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5481	5585	
==>Class); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5481	5585	
==>Class); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5481	5585	
==>Class); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block fu <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	861	964	
==>e;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning handler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36650	36767	
==>y->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36650	36767	
==>y->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36650	36767	
==>y->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splic <==
3	/Users/nnunley/pugs/util/combine_tests.pl	910	1047	
==>at}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $ev <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2248	2373	
==>at}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $ev <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	401	513	
==>stall_version eq '6';

    $self->set_blib($install_version);

    $self->set_makefile_macros
      if $install_v <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21639	21732	
==>ber(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(x <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1002	1091	
==>rkaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1002	1091	
==>rkaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15920	16074	
==>urn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15920	16074	
==>urn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15920	16074	
==>urn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	480	589	
==>But <SourceCharacter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * < <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8413	8519	
==>s_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $* <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8471	8577	
==>s_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $* <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2045	2148	
==>s Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2045	2148	
==>s Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3734	3826	
==>ttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3734	3826	
==>ttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3734	3826	
==>ttp://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7217	7333	
==>d = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary becaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7217	7333	
==>d = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary becaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7217	7333	
==>d = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary becaus <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	599	764	
==>tack underflow\n";
        if ($tok eq '+') {
            push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10233	10366	
==>toping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10233	10366	
==>toping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15335	15452	
==>_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitial <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15335	15452	
==>_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitial <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15335	15452	
==>_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitial <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	470	703	
==>t'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Val("\n"),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__E <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	552	667	
==>s_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	552	667	
==>s_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3769	3868	
==>parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3769	3868	
==>parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5966	6065	
==>parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3781	3971	
==>nshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3781	3971	
==>nshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11253	11353	
==>emove_registered_alternative( package => $inst_pkg )

=cut

sub remove_registered_alternative {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10300	10401	
==>call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10300	10401	
==>call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10300	10401	
==>call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7941	8178	
==>->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7941	8178	
==>->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7941	8178	
==>->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16587	16758	
==>ethod = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16587	16758	
==>ethod = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16587	16758	
==>ethod = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	41	151	
==>mp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	41	151	
==>mp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	41	151	
==>mp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8314	8410	
==>pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21361	21454	
==>?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specifically, mak <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19318	19418	
==>words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpress <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21143	21241	
==>ght to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21143	21241	
==>ght to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8029	8146	
==>f
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12024	12135	
==>f
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12024	12135	
==>f
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13130	13260	
==>rint "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13130	13260	
==>rint "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ), <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8273	8394	
==>an?, $output? )
  {
      return $Class.new( testplan => $plan, output => $output );
  }
  
  submethod BUILD
  (
      Te <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14901	15006	
==>> "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$des <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2224	2318	
==>vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2224	2318	
==>vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5423	5545	
==>TION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5423	5545	
==>TION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5423	5545	
==>TION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17295	17406	
==>parser->root };
  die "$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13537	13645	
==>g:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10562	10655	
==>accepts multiple ($field => $value) pairs, which
means that you can update several fields with <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10562	10655	
==>accepts multiple ($field => $value) pairs, which
means that you can update several fields with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1615	1731	
==>instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1615	1731	
==>instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1615	1731	
==>instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9261	9390	
==>( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9261	9390	
==>( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9261	9390	
==>( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2830	2939	
==>xtToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2830	2939	
==>xtToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2830	2939	
==>xtToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	344	450	
==>ive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	344	450	
==>ive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	344	450	
==>ive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5523	5632	
==>$node_named{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&in <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5555	5662	
==>nt( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iter <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5555	5662	
==>nt( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iter <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5960	6078	
==>t {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule IdentifierPart <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19525	19629	
==>I,E0,M), nonvar(M), %# XXX - excess caution
  M = [Str|_], %# XXX - need api
  re_parse(Str,Re), %# XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	754	879	
==>e
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	754	879	
==>e
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	754	879	
==>e
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g gl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4138	4235	
==>ewline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4138	4235	
==>ewline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	379	546	
==>.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        ) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	379	546	
==>.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        ) <==
3	/Users/nnunley/pugs/util/func_refact.pl	38	132	
==>orable;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial=s@ debu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7654	7771	
==>) = @_;
    return $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_han <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1398	1487	
==>t.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/So <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1238	1327	
==>t.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/So <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	421	540	
==>lf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	421	540	
==>lf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	421	540	
==>lf;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1414	1525	
==>e the main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8287	8395	
==>e
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8287	8395	
==>e
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9386	9493	
==>urn $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9386	9493	
==>urn $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2670	2776	
==>am on Linux, but it should work on other *nix
      systems, too. For now, I made the script stop if you ar <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11058	11183	
==>$.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11058	11183	
==>$.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4687	4783	
==>g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	400	503	
==>sub can_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node);
	r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19404	19502	
==>_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=hea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19404	19502	
==>_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5228	5368	
==>on( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8705	8845	
==>on( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7725	7865	
==>on( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5583	5680	
==>e extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5583	5680	
==>e extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7780	7877	
==>e extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	947	1055	
==>eric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	947	1055	
==>eric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	947	1055	
==>eric_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1248	1359	
==>ay "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1248	1359	
==>ay "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1248	1359	
==>ay "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36124	36222	
==>number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: tail

=head2 unlessm

Family: as <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11230	11325	
==>e semantic of a header field, but
in practice there are cases like old-style Netscape cookies (s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11230	11325	
==>e semantic of a header field, but
in practice there are cases like old-style Netscape cookies (s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	795	924	
==>op2>', 
    infix_left =>      '<tight> <op> <equal>', 
    infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<ti <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4484	4599	
==>ry index files.

=cut

sub add_package_to_index { #TODO: compression of index files.
    my $self = shift;
    my %a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2418	2518	
==>l index is file, second level is an array ref of hash refs.
# FIXME: Document next level. ??
my $link <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9174	9347	
==>e have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9174	9347	
==>e have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9174	9347	
==>e have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (! <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19277	19418	
==>dd_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39729	39870	
==>dd_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4731	4839	
==>equiv->val);
}

sub add_definition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	781	1077	
==>B_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E is readonly = (
    ' <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5062	5163	
==>$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file ' <==
3	/Users/nnunley/pugs/util/build_pugs.pl	128	224	
==>le::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
use Config;
use FindBin;
BEG <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5834	5982	
==>...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        print -d  $fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	407	510	
==>cause they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	418	521	
==>cause they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15588	15700	
==>_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15588	15700	
==>_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15588	15700	
==>_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7805	7937	
==>gexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7805	7937	
==>gexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7805	7937	
==>gexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1635	1755	
==>-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1635	1755	
==>-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1635	1755	
==>-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5219	5328	
==>->can($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skippi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10245	10345	
==>d`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This shoul <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10303	10403	
==>d`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This shoul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19649	19773	
==>pkg eq '';
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3331	3429	
==>ub alnum {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13117	13239	
==>a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13117	13239	
==>a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	39	147	
==>prefix:<Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9626	9730	
==>) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9626	9730	
==>) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9626	9730	
==>) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2345	2492	
==>e( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2345	2492	
==>e( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2345	2492	
==>e( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16567	16687	
==>LKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7350	7439	
==>Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1175	1264	
==>Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7506	7630	
==>(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7506	7630	
==>(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7506	7630	
==>(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11417	11516	
==>redictable 
behavior to class consturction because it isolates the Role specifc
code to the class th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11417	11516	
==>redictable 
behavior to class consturction because it isolates the Role specifc
code to the class th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11417	11516	
==>redictable 
behavior to class consturction because it isolates the Role specifc
code to the class th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10039	10154	
==>$S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });

  $self->add_handler <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2717	2829	
==>esc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2775	2887	
==>esc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1225	1329	
==>, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace fo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1225	1329	
==>, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace fo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9658	9750	
==>is builtin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5619	5735	
==>XX do delayed writes, as an explicit ->write() call on the
        ### object, like in JIB::Installation
        # an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16955	17054	
==>ther hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
bo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16955	17054	
==>ther hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1311	1433	
==>not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5512	5617	
==>upply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5797	5902	
==>upply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13266	13424	
==>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13266	13424	
==>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13266	13424	
==>{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17522	17618	
==>ix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17522	17618	
==>ix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17522	17618	
==>ix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	443	567	
==>rs) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	443	567	
==>rs) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	443	567	
==>rs) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2248	2373	
==>r(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2248	2373	
==>r(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2248	2373	
==>r(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10212	10336	
==>rn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__EN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10212	10336	
==>rn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__EN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10212	10336	
==>rn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__EN <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7069	7192	
==>is copy, *@rest is copy) {
  while @rest {
    $head = $head[shift @rest];
  }
  $head;
}


# signature from S29draft.pod 86 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	331	440	
==>filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_mean <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	331	440	
==>filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_mean <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	342	447	
==>n =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $self->set_blib($ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1618	1722	
==>n $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1618	1722	
==>n $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	43	156	
==>ngs;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	43	156	
==>ngs;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	43	156	
==>ngs;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    requir <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16278	16393	
==>how_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all_ok($t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5357	5471	
==>open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5357	5471	
==>open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1770	1890	
==>method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1770	1890	
==>method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1770	1890	
==>method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4787	4911	
==>"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(4 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4787	4911	
==>"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(4 <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1479	1616	
==>> "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for now
        se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18051	18152	
==>ss->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41316	41417	
==>ss->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	780	877	
==>ntf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	780	877	
==>ntf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	780	877	
==>ntf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4065	4168	
==>s a date object for the given values.  The month and day default
to 1 if not given.

The value for day c <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4065	4168	
==>s a date object for the given values.  The month and day default
to 1 if not given.

The value for day c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34970	35071	
==>xample
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5444	5681	
==>_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7206	7443	
==>_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	673	772	
==>ps:

# Create a clean backtracking library (basically a set of simple
# macros) to make writing this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	981	1087	
==>RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	981	1087	
==>RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	981	1087	
==>RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XX <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5715	5844	
==>content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5715	5844	
==>content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r? <==
3	/Users/nnunley/pugs/util/testgraph.pl	1330	1440	
==>process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24498	24617	
==>turn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24498	24617	
==>turn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24498	24617	
==>turn $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1215	1327	
==>}
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1215	1327	
==>}
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1215	1327	
==>}
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3761	3858	
==>is is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3761	3858	
==>is is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3841	3938	
==>is is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15617	15725	
==>ess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15617	15725	
==>ess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15617	15725	
==>ess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5394	5486	
==>'.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5394	5486	
==>'.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5394	5486	
==>'.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4710	4823	
==>val ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4710	4823	
==>val ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4710	4823	
==>val ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11915	12017	
==>IN CAPITAL LETTER R");

This means you must have the F<charnames> pragma installed, but since
this modu <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1178	1275	
==>'<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1178	1275	
==>'<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25011	25142	
==>b RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { substr ${&Rx <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11214	11306	
==>turns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11214	11306	
==>turns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	906	1024	
==>se(500, {
        P6_Rule    => sub{ $match = $rpc_rule->match($str)    for 1..40},
        P6_Token   => sub{ $match <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3080	3177	
==>e following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3080	3177	
==>e following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10787	10905	
==>om server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:liveche <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10787	10905	
==>om server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:liveche <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42888	42979	
==>e Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0)|Relation>.

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10356	10449	
==>currence set.

The complementary functions are emulated using iterations.

See also the sectio <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10356	10449	
==>currence set.

The complementary functions are emulated using iterations.

See also the sectio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2409	2525	
==>x\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'inf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2409	2525	
==>x\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'inf <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6490	6588	
==><< '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC (6.4.1 or above) from ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6634	6750	
==>mitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6634	6750	
==>mitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6634	6750	
==>mitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9288	9501	
==>am[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9288	9501	
==>am[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9288	9501	
==>am[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34396	34602	
==>r')->do());             
                block->new($e, sub {
                    $e->get('$next')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7991	8115	
==>2),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7991	8115	
==>2),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1225	1357	
==>hat tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4703	4835	
==>hat tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Sa <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7152	7271	
==>\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9905	10024	
==>ndency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar gr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11382	11501	
==>ndency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar gr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4662	4768	
==>er} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number seen [test $resul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8486	8620	
==>=> chr(oct $o), "\\0[$o]");
      }

      return $S->object(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1049	1160	
==>O: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1049	1160	
==>O: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7493	7584	
==>meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7493	7584	
==>meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7493	7584	
==>meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @stack = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	265	362	
==>ub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	265	362	
==>ub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	265	362	
==>ub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	270	387	
==>s module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	270	387	
==>s module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	270	387	
==>s module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1011	1180	
==>footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAME

TestBuilder::TestPl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1233	1362	
==>:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1233	1362	
==>:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3243	3343	
==>params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37655	37750	
==>g_key! )>

This method takes the name of a Perl package in its positional parameter
$module_name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37655	37750	
==>g_key! )>

This method takes the name of a Perl package in its positional parameter
$module_name <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	74	181	
==>ngs;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
}



__PACKAGE__;

__END__

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1396	1489	
==>DESCRIPTION

This is an experimental module which eases the use of functional programming
tech <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1396	1489	
==>DESCRIPTION

This is an experimental module which eases the use of functional programming
tech <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23511	23648	
==>-> $super {
            $super.add_subclass($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16854	16969	
==>atural join,
    # where some source attributes are in common, and each
    # source has attributes not in the other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20331	20446	
==>atural join,
    # where some source attributes are in common, and each
    # source has attributes not in the other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19909	20024	
==>atural join,
    # where some source attributes are in common, and each
    # source has attributes not in the other <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5334	5479	
==>d"} = _('$.passed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1071	1182	
==>self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1071	1182	
==>self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1662	1780	
==>_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error("Package <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	894	989	
==>e );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	894	989	
==>e );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8906	9109	
==>)
                  ->send("has_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21516	21610	
==>program which uses yours may wish to
override some of your messages, showing other messages ins <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21516	21610	
==>program which uses yours may wish to
override some of your messages, showing other messages ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35333	35431	
==>s source Relations
have attributes in common; it will only accept inputs that would result in
a cro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39883	39981	
==>s source Relations
have attributes in common; it will only accept inputs that would result in
a cro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39443	39541	
==>s source Relations
have attributes in common; it will only accept inputs that would result in
a cro <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23996	24112	
==>ew)))          
          ($self: send (MRO))))
     ($self: get_attr (symbol new @:superclasses)))

=cut

$::Class-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6025	6138	
==>{
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6025	6138	
==>{
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1221	1319	
==>difficult for anything but a human.  To
make it easier for programs to work with test results, we p <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3820	3913	
==>mpts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropri <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3820	3913	
==>mpts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12629	12742	
==>firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12629	12742	
==>firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12629	12742	
==>firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	362	475	
==>he last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	362	475	
==>he last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	362	475	
==>he last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5905	6100	
==>.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9382	9577	
==>.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2524	2682	
==>to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/s;
            return $gram <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5114	5210	
==>$filename)

The C<read> method reads a config file, and returns a boolean value
of success or fai <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5114	5210	
==>$filename)

The C<read> method reads a config file, and returns a boolean value
of success or fai <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24848	24937	
==>arrow->new(
		type::variable::free->new,
		type::operator::arrow->new(
			type::variable:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7712	7813	
==>_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7712	7813	
==>_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7712	7813	
==>_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3862	3974	
==>Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3862	3974	
==>Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3862	3974	
==>Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15924	16104	
==>>get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	798	911	
==>{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	798	911	
==>{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1379	1478	
==>"*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1379	1478	
==>"*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1379	1478	
==>"*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	646	751	
==>> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	646	751	
==>> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	646	751	
==>> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
mult <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24018	24118	
==>respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefine <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28570	28670	
==>respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefine <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27401	27501	
==>respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5688	5785	
==>+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5688	5785	
==>+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5688	5785	
==>+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1135	1241	
==>+$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1135	1241	
==>+$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1135	1241	
==>+$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2737	2827	
==>);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10303	10391	
==>',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11038	11126	
==>',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3905	4023	
==>ss, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3905	4023	
==>ss, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3905	4023	
==>ss, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2653	2745	
==>_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2653	2745	
==>_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2653	2745	
==>_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8781	8905	
==>:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8781	8905	
==>:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43250	43350	
==>ported.

=head1 SEE ALSO

The Perl 6 package L<Relation::Example> is bundled with Relation and
provid <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12710	12803	
==>roper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12710	12803	
==>roper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1767	1855	
==>p{\$_->from}\@\$m).\"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2908	3021	
==>$str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3048	3161	
==>$str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ? <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2703	2808	
==>DefaultValue]]> ($O: ?$hint = 'Number') {
    if $hint eq 'String' {
        my $Result1 = $O.<[[Get]]>('t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	203	301	
==>L::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	203	301	
==>L::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	203	301	
==>L::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	764	868	
==>irstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	764	868	
==>irstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	764	868	
==>irstly, we create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17722	17879	
==>before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14143	14300	
==>before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28946	29039	
==>e included F<prove> utility for running test scripts from the command line,
L<Test> and L<Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2409	2519	
==>t ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2409	2519	
==>t ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2409	2519	
==>t ... but this will do
            if ::opaque_instance_class($self)->find_attribute_spec($key);
    }
    if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9442	9538	
==>ser->captures(2);

=head2 Walking the Tree

To walk over the created tree, create an iterator wit <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1202	1297	
==>uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1202	1297	
==>uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31290	31387	
==>grep> operator; that subset is those for which the the
Bool-returning anonymous function in the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35840	35937	
==>grep> operator; that subset is those for which the the
Bool-returning anonymous function in the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35058	35155	
==>grep> operator; that subset is those for which the the
Bool-returning anonymous function in the ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2940	3045	
==>ram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2940	3045	
==>ram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2940	3045	
==>ram{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_laz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	306	421	
==>= @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2691	2875	
==>tected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2691	2875	
==>tected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21098	21208	
==>rray"]
    isarray |= padarray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3266	3383	
==>od(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3266	3383	
==>od(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3266	3383	
==>od(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15073	15273	
==>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15073	15273	
==>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15073	15273	
==>map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7940	8057	
==>ubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7940	8057	
==>ubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7940	8057	
==>ubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10821	10931	
==>> $new_alt );
    }

    ### remove this package from the available list
    $self->remove_available( package = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25291	25380	
==>http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25291	25380	
==>http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system fo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11276	11389	
==>rams is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%params)))))

=cut

$::Class->send('add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1230	1334	
==>de;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1230	1334	
==>de;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1230	1334	
==>de;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new(' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1533	1649	
==>l, $result);
	} else {
		return $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = shift;
	return $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1985	2112	
==>0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1985	2112	
==>0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1985	2112	
==>0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will probably be i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4798	5001	
==>eatedly_apply_and_accum'),
                            Sym->new('&f'),
                            App->new(
                                Sym->new('&f'),
                                Sym->new('$accu <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3847	3939	
==>ngs "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other strin <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3847	3939	
==>ngs "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2666	2775	
==>_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2666	2775	
==>_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2666	2775	
==>_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6601	6727	
==>ake_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6601	6727	
==>ake_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6601	6727	
==>ake_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1072	1181	
==>eate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1072	1181	
==>eate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1072	1181	
==>eate" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1861	2015	
==>ess @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1861	2015	
==>ess @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	249	369	
==>ed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7044	7138	
==>e tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7044	7138	
==>e tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10363	10536	
==>.
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6704	6877	
==>.
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7553	7726	
==>.
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4069	4172	
==>ms) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4069	4172	
==>ms) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4069	4172	
==>ms) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11552	11666	
==>ts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11552	11666	
==>ts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11552	11666	
==>ts {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6363	6494	
==>e {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6363	6494	
==>e {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6363	6494	
==>e {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	511	628	
==>tructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	511	628	
==>tructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	511	628	
==>tructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	393	494	
==>sn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	393	494	
==>sn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	393	494	
==>sn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5101	5231	
==>rm2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2643	2773	
==>rm2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3424	3554	
==>rm2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $cod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	482	729	
==>ffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 've <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	482	729	
==>ffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 've <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1945	2122	
==>X HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1945	2122	
==>X HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1945	2122	
==>X HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1146	1231	
==>{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	526	626	
==>L2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	526	626	
==>L2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	526	626	
==>L2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	101	218	
==>eck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	101	218	
==>eck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( S <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	927	1042	
==>sa('symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10745	10890	
==>(
           $n->{op1}{stmt} eq 'if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1372	1508	
==>capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1317	1446	
==>capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30555	30723	
==>ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30555	30723	
==>ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30555	30723	
==>ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	131	237	
==>class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	131	237	
==>class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	131	237	
==>class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->func <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1745	1866	
==>: "$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1686	1805	
==>: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5096	5202	
==>ft->fetch($i)->equal_to($right->fetch($i)) != bit->new(1);
    }
    return bit->new(1);
}

package closure <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	60	155	
==>as @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	60	155	
==>as @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	82	170	
==>::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14117	14217	
==>I SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14117	14217	
==>I SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14117	14217	
==>I SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length( <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	423	535	
==>tting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	423	535	
==>tting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    r <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1249	1362	
==>ion};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unles <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1249	1362	
==>ion};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unles <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1887	1980	
==>$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$ENUM, 'Invalid [] range "%s-%s" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	688	806	
==>IL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	688	806	
==>IL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	688	806	
==>IL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	956	1065	
==>spatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	956	1065	
==>spatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	956	1065	
==>spatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12165	12371	
==>6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12165	12371	
==>6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12165	12371	
==>6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32459	32553	
==>This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37009	37103	
==>This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

T <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4109	4240	
==>st look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4109	4240	
==>st look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24856	24983	
==>s:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the position <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3603	3697	
==>on algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3603	3697	
==>on algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7293	7393	
==>:Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7293	7393	
==>:Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7293	7393	
==>:Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4949	5073	
==>-link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file (" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4949	5073	
==>-link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file (" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4949	5073	
==>-link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file (" <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2006	2102	
==>e the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2006	2102	
==>e the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3174	3311	
==>rings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3174	3311	
==>rings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3174	3311	
==>rings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	512	628	
==>{
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	512	628	
==>{
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	512	628	
==>{
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1360	1461	
==>method(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1360	1461	
==>method(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1360	1461	
==>method(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6048	6177	
==>->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6048	6177	
==>->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6048	6177	
==>->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            :: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	397	506	
==>(0) }

1;

__END__

=pod

=head1 NAME 

nil - the base native nil type

=head1 METHODS

=over 4

=item B<new ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4982	5082	
==>ition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4982	5082	
==>ition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19446	19545	
==>)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19446	19545	
==>)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19446	19545	
==>)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8009	8150	
==>}
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8009	8150	
==>}
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8009	8150	
==>}
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6529	6627	
==>ed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6529	6627	
==>ed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8726	8824	
==>ed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26991	27084	
==>has
the complement subset of the original's attributes to what C<project> would
return given t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31543	31636	
==>has
the complement subset of the original's attributes to what C<project> would
return given t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4419	4534	
==>}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4419	4534	
==>}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4419	4534	
==>}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3421	3621	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3421	3621	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3421	3621	
==>ll);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18698	18902	
==>nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %params) returns nil {
    for %pa <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	224	348	
==>SION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15398	15497	
==>this kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15398	15497	
==>this kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	173	275	
==>piled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	173	275	
==>piled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	173	275	
==>piled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4709	4817	
==>UB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4709	4817	
==>UB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4709	4817	
==>UB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1687	1816	
==>t;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

1;

# Local variables:
# c-indentation- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2	105	
==>od

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gramm <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2	105	
==>od

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13274	13412	
==>.
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9460	9598	
==>.
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10296	10434	
==>.
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12855	12977	
==>=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12855	12977	
==>=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12855	12977	
==>=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2174	2302	
==>$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2174	2302	
==>$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2174	2302	
==>$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i] <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5581	5713	
==>ift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5581	5713	
==>ift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1134	1232	
==>}
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1134	1232	
==>}
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1134	1232	
==>}
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

mu <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	1015	1123	
==>r 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18566	18674	
==>and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19924	20032	
==>and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8222	8319	
==>to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's no <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8222	8319	
==>to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10416	10541	
==>a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10416	10541	
==>a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10416	10541	
==>a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5138	5265	
==>n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5138	5265	
==>n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5138	5265	
==>n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4336	4511	
==>um::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4336	4511	
==>um::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4336	4511	
==>um::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2413	2571	
==>(\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2413	2571	
==>(\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statemen <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	238	338	
==>SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9412	9526	
==>l_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9412	9526	
==>l_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9412	9526	
==>l_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6414	6529	
==>from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6414	6529	
==>from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6414	6529	
==>from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_fr <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2092	2289	
==>$size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.pri <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2092	2289	
==>$size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.pri <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9117	9236	
==>Dumper(@_);
};


# these are the type signatures of some builtins
our %prelude = (
	# int -> int -> int
	add => type::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1251	1357	
==>,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1251	1357	
==>,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1251	1357	
==>,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13539	13656	
==>if the runtime has a hash for this
    # in the future the compiler might allow adding globals
    # right now this is <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3646	3741	
==>g the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constru <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3646	3741	
==>g the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4371	4478	
==>ss $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4371	4478	
==>ss $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4371	4478	
==>ss $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1628	1745	
==>lf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1628	1745	
==>lf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1628	1745	
==>lf, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18506	18662	
==>.

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18506	18662	
==>.

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18506	18662	
==>.

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	338	432	
==>tureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	338	432	
==>tureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	142	243	
==>s {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	142	243	
==>s {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	142	243	
==>s {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unw <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12083	12187	
==>_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexidecimal_escape_sequence <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40742	40834	
==>olders of
Locale::KeyedText would appreciate being informed any time you create a
modified ve <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40742	40834	
==>olders of
Locale::KeyedText would appreciate being informed any time you create a
modified ve <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	483	629	
==>{^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	483	629	
==>{^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot' <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4384	4477	
==>ugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{$category->($_)} }, $_ f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	864	970	
==>ames:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	864	970	
==>ames:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	864	970	
==>ames:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->refe <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	109	223	
==>de_DE.utf8");

sub slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11153	11249	
==>xists as a container
in which Node objects live.  The Document class is pure and deterministic,
s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11153	11249	
==>xists as a container
in which Node objects live.  The Document class is pure and deterministic,
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40876	41014	
==>{
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40876	41014	
==>{
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40876	41014	
==>{
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=he <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19672	19781	
==>ent>
    | <ReturnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <Th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10370	10458	
==>ed($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11105	11193	
==>ed($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4066	4179	
==>y $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4066	4179	
==>y $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4066	4179	
==>y $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub co <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1741	1836	
==>}
method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1741	1836	
==>}
method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1984	2121	
==>tation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1984	2121	
==>tation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48612	48696	
==>dd_attribute', (symbol->new('$:authority') => attribute->new('$:authority' => 'str')) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1183	1305	
==>ddir first, THEN copy later if all goes well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2454	2592	
==>:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expected <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3552	3650	
==>end.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3552	3650	
==>end.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34137	34254	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34137	34254	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34137	34254	
==>L::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	136	264	
==>$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	136	264	
==>$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	136	264	
==>$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16539	16672	
==>hod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16539	16672	
==>hod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16539	16672	
==>hod($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7603	7712	
==>(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7603	7712	
==>(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9948	10068	
==>bed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9948	10068	
==>bed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9948	10068	
==>bed below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attributes;
    # ----- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8370	8479	
==>o from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8370	8479	
==>o from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8370	8479	
==>o from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1502	1694	
==>it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4979	5171	
==>it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3909	4101	
==>it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8958	9160	
==>capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definiti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5318	5520	
==>capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definiti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6167	6369	
==>capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definiti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9765	9936	
==>ber(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1848	2001	
==>ber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1848	2001	
==>ber(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1025	1114	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1025	1114	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1025	1114	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5343	5462	
==>my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5343	5462	
==>my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5343	5462	
==>my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19665	19775	
==>0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19665	19775	
==>0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19665	19775	
==>0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6422	6589	
==>ell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6422	6589	
==>ell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6422	6589	
==>ell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8196	8314	
==>output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $Class.ne <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	411	516	
==>output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	411	516	
==>output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	520	634	
==>cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	520	634	
==>cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	520	634	
==>cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5702	5818	
==>::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5702	5818	
==>::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6292	6408	
==>::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14850	14943	
==>ent> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14850	14943	
==>ent> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	510	616	
==>at=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	510	616	
==>at=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3639	3766	
==>/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels u <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3639	3766	
==>/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels u <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	585	708	
==>int "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fres <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	585	708	
==>int "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fres <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28539	28636	
==>ther the argument C<$tuple> exists
in / is a member of this Relation::Example.

=item C<equal (Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15517	15700	
==>ay->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15517	15700	
==>ay->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15517	15700	
==>ay->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18144	18242	
==>~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18144	18242	
==>~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18144	18242	
==>~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2187	2323	
==>$tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2187	2323	
==>$tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2187	2323	
==>$tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' un <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1537	1670	
==>y_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keyw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1537	1670	
==>y_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keyw <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22300	22394	
==>t the warning.

Added "Unrecognized escape" warnings to I<all> escape sequence handlers.

The ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1418	1528	
==>tributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1418	1528	
==>tributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1418	1528	
==>tributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	406	513	
==>ethod tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	406	513	
==>ethod tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	406	513	
==>ethod tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12217	12337	
==>{ %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12217	12337	
==>{ %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12217	12337	
==>{ %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15670	15771	
==>$xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15670	15771	
==>$xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15670	15771	
==>$xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	990	1120	
==>ce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1195	1325	
==>ce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1256	1386	
==>ce_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12450	12572	
==>->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12450	12572	
==>->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12450	12572	
==>->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7502	7629	
==>'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7695	7822	
==>'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2988	3121	
==>presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2988	3121	
==>presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2988	3121	
==>presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	808	915	
==>l line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Impli <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	808	915	
==>l line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Impli <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3622	3727	
==>alize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3622	3727	
==>alize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $e <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1065	1166	
==>e they are one and the same as what
you get when you use the C<type> keyword.  Or maybe the full packa <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	659	775	
==>[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%p <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	659	775	
==>[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3777	3882	
==>t way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3777	3882	
==>t way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3857	3962	
==>t way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test should fa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2810	2912	
==>ubmethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2810	2912	
==>ubmethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14235	14336	
==>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14235	14336	
==>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14235	14336	
==>add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2028	2161	
==>hod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2028	2161	
==>hod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2028	2161	
==>hod ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1931	2105	
==>ache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, allow => DI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10517	10670	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10796	10949	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9868	9973	
==>($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9868	9973	
==>($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9868	9973	
==>($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17166	17337	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17166	17337	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17166	17337	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @para <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7812	7913	
==>es;
}

# signature from S29draft.pod 8651.  In the List section.
# Prim.hs has a different return type <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25418	25513	
==>ement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29970	30065	
==>ement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28909	29004	
==>ement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2307	2419	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2307	2419	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2307	2419	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4216	4392	
==>> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4216	4392	
==>> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4216	4392	
==>> sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14425	14514	
==>in::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14425	14514	
==>in::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14425	14514	
==>in::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20981	21083	
==>nordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25533	25635	
==>nordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24139	24241	
==>nordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	28	121	
==>se v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	28	121	
==>se v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%ent <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1480	1601	
==>b prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4683	4804	
==>b prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5173	5285	
==>Pseudo-code for usage inside a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2472	2636	
==>', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2472	2636	
==>', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2472	2636	
==>', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9785	9925	
==>id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mode <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9785	9925	
==>id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mode <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	477	575	
==>ad1 DESCRIPTION

This object represents a Role.

A Role is a composable unit of behaviour; which in <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12896	13006	
==>amter type of the function is free
fun: generic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	370	467	
==>t };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	370	467	
==>t };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10795	10945	
==>= undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10795	10945	
==>= undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	558	680	
==>fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	558	680	
==>fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	537	671	
==>name => 'prefix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{nam <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	718	812	
==>tr $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	718	812	
==>tr $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4542	4641	
==>rts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4542	4641	
==>rts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4542	4641	
==>rts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11864	11991	
==>s a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11864	11991	
==>s a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11864	11991	
==>s a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2977	3075	
==>e right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... go <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9684	9780	
==>et, defined with closures. 

A recurrence set is defined by a "successor" function and a "predece <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9684	9780	
==>et, defined with closures. 

A recurrence set is defined by a "successor" function and a "predece <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1227	1386	
==>ess $struct;

    for my $entry ( @$struct ) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10821	10920	
==>eturn value from first Object singleton/class method called by Bar');      
  
is($Bar->singleton_te <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10319	10417	
==>near finalized; it should
    # support asynch/exclusive/other stuff. For lots of discussion but no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5997	6150	
==>nt->{env}->{$name}) {
            $current->{env}->{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $sel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34941	35035	
==>the object is constructed.  If you want to
conceptually change an existing Translator object, y <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34941	35035	
==>the object is constructed.  If you want to
conceptually change an existing Translator object, y <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3508	3658	
==>$age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3508	3658	
==>$age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1609	1730	
==>ub zip (Array *@lists) returns List {
   gather {
     while any(@lists) {
       for @lists -> @list {
         take shif <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	28	152	
==>l 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	28	152	
==>l 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9826	9942	
==>g the following
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5225	5377	
==>ust provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5225	5377	
==>ust provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5225	5377	
==>ust provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12374	12517	
==>}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12374	12517	
==>}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12374	12517	
==>}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9062	9159	
==>. bless())

you can return the same failure object always

then there's absolutely no overhead

I' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8764	8858	
==>. bless())
you can return the same failure object always
then there's absolutely no overhead
I' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3591	3685	
==>----------------------------------

# Utility to test that "No method found" error is raised

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5493	5587	
==>----------------------------------

# Utility to test that "No method found" error is raised

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9504	9631	
==>{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9504	9631	
==>{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9504	9631	
==>{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3421	3512	
==>1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3605	3696	
==>1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10563	10667	
==>) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10563	10667	
==>) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10563	10667	
==>) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	547	742	
==>ub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1711	1848	
==>pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1699	1836	
==>pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" . <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1232	1353	
==>t->files_list( $meta->package );
            open my $fh, $file or die "Could not open '$file': $!";
            map { cho <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5677	5787	
==>ned;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::U <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5677	5787	
==>ned;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::U <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1325	1454	
==>t; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1325	1454	
==>t; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1325	1454	
==>t; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	147	254	
==>my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	147	254	
==>my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTE <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9553	9688	
==>lt;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::reverse (   @values --> Lazy|Str) {
 multi  Li <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4669	4761	
==>ew>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4669	4761	
==>ew>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	873	976	
==>blequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	873	976	
==>blequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	873	976	
==>blequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  pack <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5980	6097	
==>cl = "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	warn "our PPad not implemented\n"; # use MM?
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7610	7723	
==>lf: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7610	7723	
==>lf: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	829	953	
==>$right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (blessed($right))
        || con <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	341	443	
==>iteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch}, <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	341	443	
==>iteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch}, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35231	35326	
==>binary relational operator that is identical
to C<join> except that this method will fail if any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39781	39876	
==>binary relational operator that is identical
to C<join> except that this method will fail if any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39341	39436	
==>binary relational operator that is identical
to C<join> except that this method will fail if any <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	439	572	
==>:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	439	572	
==>:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { retu <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2694	2792	
==>ber), :publisher($?SELF));
            ( %.subscriptions<$name> ||= Set.new ).insert($subscription) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4554	4662	
==>> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4554	4662	
==>> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6751	6859	
==>> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9558	9662	
==>failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  di <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9616	9720	
==>failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  di <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8057	8151	
==>tiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nullary operators muc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38717	38840	
==>tainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - op <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38717	38840	
==>tainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - op <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38717	38840	
==>tainer::Array->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4726	4827	
==>MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4726	4827	
==>MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4726	4827	
==>MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3954	4142	
==>lass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3954	4142	
==>lass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3954	4142	
==>lass => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6814	6919	
==>ut: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6814	6919	
==>ut: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6814	6919	
==>ut: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8487	8607	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8487	8607	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8487	8607	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3937	4047	
==>r to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3937	4047	
==>r to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6134	6244	
==>r to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test::Fail
instance, pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11239	11360	
==>ng " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11239	11360	
==>ng " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11239	11360	
==>ng " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	764	883	
==>f(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	764	883	
==>f(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	764	883	
==>f(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = expo <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8148	8281	
==>continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8148	8281	
==>continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	296	411	
==>\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B<FOR INTERNAL USE ONLY!>

This is a simple iterator wrapper <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3040	3136	
==>ffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3040	3136	
==>ffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1657	1762	
==>:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1657	1762	
==>:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1657	1762	
==>:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6009	6135	
==>b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6009	6135	
==>b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6009	6135	
==>b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11623	11747	
==>(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11623	11747	
==>(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11623	11747	
==>(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15613	15728	
==>label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15613	15728	
==>label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15613	15728	
==>label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8457	8620	
==>if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8457	8620	
==>if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8457	8620	
==>if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3430	3536	
==>, cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3430	3536	
==>, cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3430	3536	
==>, cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3547	3659	
==>ed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3547	3659	
==>ed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3547	3659	
==>ed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9042	9146	
==>lf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9042	9146	
==>lf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9042	9146	
==>lf: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1570	1659	
==>s> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1570	1659	
==>s> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4107	4208	
==>(keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4107	4208	
==>(keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4107	4208	
==>(keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submetho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17354	17538	
==>method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17354	17538	
==>method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17354	17538	
==>method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1092	1206	
==>t('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Du <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1092	1206	
==>t('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Du <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1092	1206	
==>t('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	809	916	
==>t)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	809	916	
==>t)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	809	916	
==>t)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$depth] <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6044	6132	
==>('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ws;})');
my $x2 = def_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5892	5978	
==>dt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5892	5978	
==>dt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2067	2157	
==>->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2067	2157	
==>->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2067	2157	
==>->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3184	3293	
==>urpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3184	3293	
==>urpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3184	3293	
==>urpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10013	10116	
==>e PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10013	10116	
==>e PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10013	10116	
==>e PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3570	3686	
==>KMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3570	3686	
==>KMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3570	3686	
==>KMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'COD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	560	667	
==>bname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	560	667	
==>bname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	560	667	
==>bname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1440	1557	
==>e_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1645	1762	
==>e_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1706	1823	
==>e_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13180	13310	
==>lass->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13180	13310	
==>lass->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	812	919	
==>fh>;

  unless($smoke =~ /^<!DOCTYPE html/) {
    debug "doesn't look like a smoke; aborting.\n";
    exit 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12726	12878	
==>tus{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed;
          return $status;
      }
  }

= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3088	3230	
==>tus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3088	3230	
==>tus{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3657	3790	
==>FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3657	3790	
==>FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5181	5314	
==>FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14819	14928	
==>::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->data) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15204	15300	
==>rned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15204	15300	
==>rned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2222	2355	
==>last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2222	2355	
==>last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2222	2355	
==>last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6920	7033	
==>d can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6920	7033	
==>d can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6920	7033	
==>d can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL: <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	294	398	
==>_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV< <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	294	398	
==>_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30112	30205	
==>r the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34664	34757	
==>r the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33837	33930	
==>r the functionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<r <==
3	/Users/nnunley/pugs/util/run-smoke.pl	376	473	
==>.
Please install it from the CPAN and try again.

A bundle is available to install at Bundle::Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2615	2710	
==>e exact same key twice can compromise both encryptions.

If two different data streams are encip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2615	2710	
==>e exact same key twice can compromise both encryptions.

If two different data streams are encip <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6652	6769	
==>f_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6652	6769	
==>f_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4772	4911	
==>PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4772	4911	
==>PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4772	4911	
==>PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1603	1701	
==>0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1603	1701	
==>0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1603	1701	
==>0.0');
    ::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	178	283	
==>>{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	178	283	
==>>{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	178	283	
==>>{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1053	1158	
==>mber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1053	1158	
==>mber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1053	1158	
==>mber(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7879	8005	
==>ses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7879	8005	
==>ses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7879	8005	
==>ses;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1302	1405	
==>);

my $s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	397	492	
==>efh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	397	492	
==>efh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6681	6784	
==>Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6681	6784	
==>Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6681	6784	
==>Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21789	21924	
==>\&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22068	22203	
==>\&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14358	14472	
==>nt "macro: expanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2041	2151	
==>handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") if $cc;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15299	15396	
==>he parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what k <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15299	15396	
==>he parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what k <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1125	1232	
==>hod accept ( $arg ) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role Getopt::Argument:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4382	4473	
==>return value');
is($Object->superclass, undef, '... $Object got the right method return valu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6284	6375	
==>return value');
is($Object->superclass, undef, '... $Object got the right method return valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	436	578	
==>PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	436	578	
==>PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	436	578	
==>PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2741	2860	
==>ocal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2741	2860	
==>ocal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2741	2860	
==>ocal $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11001	11113	
==>name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11151	11263	
==>name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1746	1850	
==>e_name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6103	6203	
==>it needs to do to signal
this is to return the string set in advance with the prune method.

This fea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6103	6203	
==>it needs to do to signal
this is to return the string set in advance with the prune method.

This fea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6103	6203	
==>it needs to do to signal
this is to return the string set in advance with the prune method.

This fea <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4579	4717	
==>)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initia <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4579	4717	
==>)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initia <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5740	5845	
==>et0' if !$pkg_root;
    my $code = "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2607	2714	
==>'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pSco <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2607	2714	
==>'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pSco <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2607	2714	
==>'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pSco <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9247	9371	
==>ck};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9247	9371	
==>ck};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $cu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3294	3407	
==>bj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $self->termTabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	824	939	
==>emAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	824	939	
==>emAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	824	939	
==>emAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15505	15603	
==>ed scalar) if given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2141	2240	
==>:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2141	2240	
==>:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2141	2240	
==>:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Numb <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	411	515	
==>> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	411	515	
==>> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<ca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6464	6562	
==>E_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13092	13251	
==>::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9278	9437	
==>::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10114	10273	
==>::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast- <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9987	10101	
==>xpaths {
    my $self = shift;
    my $text = shift;
    my $sep = File::Spec->catdir('');
    $text =~ s{\b/}{$sep <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9880	9987	
==>_tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9880	9987	
==>_tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	528	662	
==>( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	528	662	
==>( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11731	11854	
==>pl_var name=pugs_revision>
              </tmpl_if>
            </td>
            <td class="leftsep"><tmpl_var name=timesta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2668	2792	
==>cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2668	2792	
==>cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2668	2792	
==>cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14161	14341	
==>afely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14161	14341	
==>afely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14161	14341	
==>afely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2895	3004	
==>my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2895	3004	
==>my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2895	3004	
==>my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13692	13783	
==>scalar context return the number of distinct field names.

=item $h.scan( \&process_header_f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13692	13783	
==>scalar context return the number of distinct field names.

=item $h.scan( \&process_header_f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4244	4333	
==>[0]{'p5'}->value }
sub as_pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_code { $_[0]{'p <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	942	1052	
==>($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4341	4448	
==>> ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.ya <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4191	4295	
==>> ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.ya <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2009	2106	
==>omplement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_univer <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2009	2106	
==>omplement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_univer <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3180	3276	
==>y_of_month returns Int { $.day }
method day_of_month_0 returns Int { $.day - 1 }
method day_0 ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34819	34913	
==>ant Relation and that match any tuples of C<$other> along
their common attributes.  This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39369	39463	
==>ant Relation and that match any tuples of C<$other> along
their common attributes.  This method <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8722	8811	
==>ef([char(45)|L]) --> "-", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 45 is -
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8044	8169	
==>y $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8044	8169	
==>y $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8044	8169	
==>y $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10177	10289	
==>$S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 1, '');
  });

  $self->add_hand <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1528	1622	
==>oad the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1368	1462	
==>oad the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9739	9897	
==>eturns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9739	9897	
==>eturns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9739	9897	
==>eturns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9332	9501	
==>'$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9332	9501	
==>'$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9332	9501	
==>'$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1529	1682	
==>).union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1529	1682	
==>).union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3739	3868	
==>my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2235	2335	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2235	2335	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2144	2244	
==>r the hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter kludge. not even trying <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1153	1278	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1153	1278	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1153	1278	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38632	38756	
==>:Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38632	38756	
==>:Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38632	38756	
==>:Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42369	42559	
==>ns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$::Object->send('add_method' => (
    # me <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	608	705	
==>rs
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi * <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	608	705	
==>rs
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3085	3275	
==>ckage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3085	3275	
==>ckage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3085	3275	
==>ckage ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	341	446	
==>";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	341	446	
==>";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	341	446	
==>";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23466	23578	
==>substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23466	23578	
==>substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23466	23578	
==>substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8745	8861	
==>ed strap.

=cut

sub _command {
    my $self = shift;

    return $ENV{HARNESS_PERL}           if defined $ENV{HARNES <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28154	28269	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::ge <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28433	28548	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::ge <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2193	2297	
==>UGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8352	8452	
==>ent<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8352	8452	
==>ent<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	936	1059	
==>dy, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	936	1059	
==>dy, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	936	1059	
==>dy, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18720	18819	
==>not use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18720	18819	
==>not use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	343	440	
==>lar::Util 'blessed';

# create our basic variables/functions for 
# the metamodel that the runtime <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4083	4178	
==>:Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4666	4761	
==>:Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3780	3911	
==>:make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3780	3911	
==>:make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3780	3911	
==>:make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17171	17268	
==>it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17171	17268	
==>it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::C <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7624	7761	
==>$self = shift;
#     my @ret;
#     
#     push @ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo- <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7226	7338	
==>closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersecti <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7226	7338	
==>closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersecti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	599	711	
==>= args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	599	711	
==>= args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	599	711	
==>= args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	396	503	
==>fined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pugs::Runtime <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	887	985	
==>on as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $lo <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	887	985	
==>on as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12174	12284	
==>n::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12174	12284	
==>n::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12174	12284	
==>n::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $co <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	376	487	
==>>Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /B <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	407	506	
==>>Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /B <==
3	/Users/nnunley/pugs/util/grokprims.pl	2430	2527	
==>r></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1544	1670	
==>ss}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1544	1670	
==>ss}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1544	1670	
==>ss}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9769	9931	
==>ammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       , <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7391	7526	
==>] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7379	7514	
==>] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29640	29735	
==>attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34192	34287	
==>attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33356	33451	
==>attribute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	842	951	
==>[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	842	951	
==>[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	842	951	
==>[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magica <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7058	7226	
==>| <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | <'!='>
    | <'==='> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1259	1364	
==>s => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1259	1364	
==>s => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2586	2719	
==>nboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2586	2719	
==>nboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2586	2719	
==>nboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4623	4737	
==>. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4623	4737	
==>. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4623	4737	
==>. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # h <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1246	1348	
==>$self.all_superclasses;
    die "Uh-oh, there's a super in my duper!"
        if $supers.includes($self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15883	15971	
==>over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15883	15971	
==>over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5368	5471	
==>lob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7812	7912	
==>epresenting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7812	7912	
==>epresenting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4992	5118	
==>6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4992	5118	
==>6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4992	5118	
==>6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5650	5788	
==>or.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5650	5788	
==>or.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12366	12492	
==>tch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12645	12771	
==>tch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	539	641	
==>al method 'provides' called on @_";
}

sub run {
	die "virtual method 'run' called on @_";
}

__PACKAGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15895	16058	
==>ned $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15895	16058	
==>ned $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15895	16058	
==>ned $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $cod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2179	2273	
==>set($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2179	2273	
==>set($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20984	21073	
==>require($module);
    Pugs::Internals::require_use_helper(Bool::False,$module);
}
sub Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2459	2571	
==>=> '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2459	2571	
==>=> '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2806	2918	
==>=> '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1566	1673	
==>nfix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1566	1673	
==>nfix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1566	1673	
==>nfix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14654	14748	
==>..};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14654	14748	
==>..};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14654	14748	
==>..};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2105	2224	
==>1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2105	2224	
==>1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2452	2571	
==>1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple var <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	13	114	
==>e::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=pe <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	13	114	
==>e::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	0	115	
==>package PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	0	115	
==>package PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	0	115	
==>package PIL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2276	2435	
==>est executable\n";
    exit(0);
    }
    unless (-f "$exename.exe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3550	3666	
==>ve accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3550	3666	
==>ve accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accen <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4254	4378	
==>V'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4254	4378	
==>V'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1104	1228	
==>V'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1507	1620	
==>hing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1507	1620	
==>hing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1507	1620	
==>hing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	813	919	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	813	919	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	813	919	
==>ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3136	3251	
==>lue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3136	3251	
==>lue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3136	3251	
==>lue::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	153	252	
==>SION = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - si <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	24	122	
==>Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	24	122	
==>Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	595	697	
==>ns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	595	697	
==>ns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method in <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	893	995	
==>< 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub pretty_print { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33013	33109	
==>falls.

This is very sparse.  Future versions will have more complete
documentation.  For now, re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21564	21658	
==>s->data[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_ <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	962	1095	
==>nt << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

sub is_root {
    local $@;
    eval('$> == 0') || $@; # System wi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9767	9863	
==>sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9767	9863	
==>sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_en <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8865	9001	
==>t = '';
        for my $attr ( @{$n->{attribute}} ) {
            if ( $attr->[0]{bareword} eq 'is' &&
                 $attr->[1]{bar <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2218	2327	
==>t {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2218	2327	
==>t {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2014	2144	
==>lude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2231	2361	
==>lude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17667	17785	
==>ry for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17667	17785	
==>ry for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4137	4232	
==>ds>. There is no instance
constructor, and when calling these methods you should take care not
t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4137	4232	
==>ds>. There is no instance
constructor, and when calling these methods you should take care not
t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4137	4232	
==>ds>. There is no instance
constructor, and when calling these methods you should take care not
t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5276	5377	
==>::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	774	911	
==>LOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	774	911	
==>LOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	774	911	
==>LOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1905	1997	
==>{ return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1905	1997	
==>{ return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1905	1997	
==>{ return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6650	6759	
==>ing)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITIO <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6708	6817	
==>ing)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6849	6938	
==>add_singleton_method('another_singleton_test_on_object' => sub { 
   '&Object::another_sin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1850	1954	
==>r is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1850	1954	
==>r is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	353	452	
==>$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3855	3969	
==>] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3855	3969	
==>] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3855	3969	
==>] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6474	6588	
==>'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6474	6588	
==>'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6474	6588	
==>'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6129	6323	
==>@ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6129	6323	
==>@ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6129	6323	
==>@ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't wo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4412	4538	
==>mp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4400	4526	
==>mp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1 <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1146	1269	
==>} || $Config{installman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2528	2626	
==>our Int multi Num::truncation (Num $x) {
	...
}

# Other math functions.
our bool multi Num::is_odd <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1892	1985	
==>rsion 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1892	1985	
==>rsion 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14753	14904	
==>s/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14753	14904	
==>s/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14753	14904	
==>s/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	674	815	
==>+»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8148	8255	
==>s, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normaliz <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8148	8255	
==>s, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normaliz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9301	9411	
==>tion => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9301	9411	
==>tion => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9301	9411	
==>tion => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8689	8885	
==>to:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5049	5245	
==>to:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5898	6094	
==>to:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2936	3059	
==>t);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2936	3059	
==>t);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2936	3059	
==>t);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2087	2199	
==>... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2087	2199	
==>... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2087	2199	
==>... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	50	162	
==>gs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	50	162	
==>gs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	50	162	
==>gs;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1774	1877	
==>xt unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1774	1877	
==>xt unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1774	1877	
==>xt unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	963	1065	
==>nfix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	963	1065	
==>nfix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	963	1065	
==>nfix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7180	7291	
==>(match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7180	7291	
==>(match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7180	7291	
==>(match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28736	28830	
==>d, or any C<$mapping> value set members do not match invocant
Relation attribute names, or dupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33288	33382	
==>d, or any C<$mapping> value set members do not match invocant
Relation attribute names, or dupl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	209	297	
==>aModel2.0/lib");
use Getopt::Long qw(:config no_auto_version);

my (@eval,$repl,@inc_dirs <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	76	195	
==>bols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	76	195	
==>bols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	251	354	
==>permit a piln backend to
# pass most of the tests the current backend does.


role rArray {}


class Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16602	16800	
==>hift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16602	16800	
==>hift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16602	16800	
==>hift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end => <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6849	6948	
==>rn(Carp::longmess($e))};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    fo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16215	16312	
==>s a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it conta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16215	16312	
==>s a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it conta <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12175	12272	
==>set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12175	12272	
==>set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7844	8038	
==>t' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7844	8038	
==>t' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7844	8038	
==>t' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1519	1625	
==>match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1519	1621	
==>match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2513	2621	
==>. Let'shope we never need to print more than these ;-)
	
	my %map;
	my @forall;

	# allocate letters for type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13530	13637	
==>`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13530	13637	
==>`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3351	3450	
==>), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3351	3450	
==>), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3351	3450	
==>), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10042	10142	
==>e => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arg <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10042	10142	
==>e => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11784	11902	
==>} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4427	4545	
==>} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ( <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	793	894	
==>, $t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Type <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5958	6064	
==>od content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5958	6064	
==>od content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7460	7550	
==>on_alternative(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookah <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8178	8304	
==>PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8178	8304	
==>PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8178	8304	
==>PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	405	497	
==>)}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	405	497	
==>)}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1643	1802	
==>fess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my ($s <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	629	744	
==>rn;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	596	711	
==>rn;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1186	1280	
==>(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1186	1280	
==>(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1186	1280	
==>(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7517	7670	
==>de);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7517	7670	
==>de);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7517	7670	
==>de);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14493	14590	
==>to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14493	14590	
==>to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14493	14590	
==>to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	185	298	
==>g instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	185	298	
==>g instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	185	298	
==>g instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    / <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	506	620	
==>n Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	506	620	
==>n Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8392	8491	
==>hod get_method (opaque $self: symbol $label) returns method { 
    %:methods{$label};
}


(method ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	203	324	
==>Scope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	203	324	
==>Scope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	203	324	
==>Scope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2207	2311	
==>E, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2207	2311	
==>E, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2207	2311	
==>E, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($:: <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3926	4034	
==>de Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 a <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3926	4034	
==>de Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5370	5510	
==>);
            return ... ;
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provide <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14181	14289	
==>hared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17658	17766	
==>hared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9769	9905	
==>},
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9769	9905	
==>},
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9769	9905	
==>},
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	737	868	
==>cant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	737	868	
==>cant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	737	868	
==>cant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18498	18615	
==>obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37286	37381	
==>s to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41835	41930	
==>s to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24371	24470	
==>return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20792	20891	
==>return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('if <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3679	3818	
==>= $_;
        }

        die "could not guess module name: $file" unless $module;

        strip_comments($program);
        print $ofh $pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	102	208	
==>es ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	102	208	
==>es ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	102	208	
==>es ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	410	520	
==>match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	410	520	
==>match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bo <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1119	1226	
==>autoload;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{"$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	905	1036	
==>ces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	905	1036	
==>ces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	905	1036	
==>ces.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	724	847	
==>) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => $param->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	706	826	
==>) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	706	826	
==>) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	601	734	
==>header' => sub { '1..' . _('$:expect') },
        'footer' => sub {
            my ($self, $run) = @_;
            return '' if $run = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8263	8356	
==>(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2088	2181	
==>(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2543	2655	
==>hen ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2543	2655	
==>hen ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6330	6434	
==>.

=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = Test::Harness::Iterator->new($fh) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18849	18970	
==>);

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15270	15391	
==>);

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} = <==
3	/Users/nnunley/pugs/util/package-osx.pl	6711	6808	
==>tine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Per <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19599	19718	
==>.
A -1 in both indicates the capture didn't happen.

  U32 lastparen;          /* last paren matched */
  U32 lastclosep <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8544	8660	
==>ck.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8544	8660	
==>ck.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2756	2862	
==>O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2756	2862	
==>O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2756	2862	
==>O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	343	443	
==>$one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	343	443	
==>$one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6469	6566	
==>6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6469	6566	
==>6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6469	6566	
==>6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15808	15958	
==>t().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15808	15958	
==>t().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2222	2340	
==>od {
    while (my $current = &dispatcher.()) {
        return $current.get_method($label, %opts)
            if $curre <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12461	12555	
==>parameter.
If both previous and next elements are at the same distance, returns the previous on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12461	12555	
==>parameter.
If both previous and next elements are at the same distance, returns the previous on <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9597	9710	
==>t = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9597	9710	
==>t = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	42	144	
==>ings;
use Cwd;
use Config;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12117	12244	
==>Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2519	2632	
==>Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2519	2632	
==>Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Te <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1884	2025	
==>ft;
    return 'undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g;
    $q =~ s/'/\\'/g;
    return "'$q'";
}

sub _qq {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10366	10473	
==>ee;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.n <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10366	10473	
==>ee;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.n <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4512	4620	
==>dex is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4512	4620	
==>dex is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5384	5569	
==>ch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5384	5569	
==>ch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5384	5569	
==>ch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27556	27691	
==>an you can use them on C<qr//>, but rather
that you can write C<(?u:...)> or C<(?u)>.  The values 0x01, 0x02, 0x04,
and 0x08 are used fo <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1118	1208	
==>_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1118	1208	
==>_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9926	10040	
==>pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9926	10040	
==>pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9926	10040	
==>pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	833	961	
==>ule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_exp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	833	961	
==>ule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_exp <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	583	678	
==>section 3.1

sub nothing($input) {
  return(undef, $input);
}

sub End_of_Input($input) is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11615	11727	
==>ined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11615	11727	
==>ined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11615	11727	
==>ined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7985	8154	
==>ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7985	8154	
==>ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7985	8154	
==>ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MUL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7836	7966	
==>t
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11836	11962	
==>t
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11836	11962	
==>t
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3651	3799	
==>>{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} };
            }
        }

=cut

        ### extr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9052	9149	
==>erl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
h <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9052	9149	
==>erl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2208	2304	
==>:try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2208	2304	
==>:try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2208	2304	
==>:try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25025	25123	
==>ed on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a specia <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25025	25123	
==>ed on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a specia <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1598	1701	
==>elf, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1598	1701	
==>elf, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1598	1701	
==>elf, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@thin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30984	31096	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_dispatcher_iterator'),
    # m <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1099	1193	
==>latter form is slightly more efficient, though this is
marginal in string COW environments)

=c <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1099	1193	
==>latter form is slightly more efficient, though this is
marginal in string COW environments)

=c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6900	7033	
==>| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6900	7033	
==>| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6900	7033	
==>| $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12865	12958	
==>responding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12865	12958	
==>responding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40341	40444	
==>ush @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40341	40444	
==>ush @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40341	40444	
==>ush @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16358	16462	
==>r' instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	310	402	
==>sar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	310	402	
==>sar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar ciphe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13620	13737	
==>ext::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13620	13737	
==>ext::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10269	10378	
==>er for start of this match
    to    - string pointer for next match (end+1)
    match - positional submatch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1363	1491	
==><param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Functi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1363	1491	
==><param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Functi <==
3	/Users/nnunley/pugs/util/grokprims.pl	2447	2545	
==>int "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\n";
}

print "</tabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	944	1045	
==>remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	944	1045	
==>remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	944	1045	
==>remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1003	1122	
==>nings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1003	1122	
==>nings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1003	1122	
==>nings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3937	4056	
==>ence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3937	4056	
==>ence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3937	4056	
==>ence will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3856	3956	
==>e_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3856	3956	
==>e_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3856	3956	
==>e_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6062	6195	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6062	6195	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6062	6195	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1223	1321	
==>rt, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1223	1321	
==>rt, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1223	1321	
==>rt, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11796	11939	
==>'  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8078	8221	
==>'  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8912	9055	
==>'  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1123	1250	
==>b,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1123	1250	
==>b,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fi <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2110	2225	
==>ulti method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi method as (--> Array <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6962	7097	
==>turn undef;
			}
		} elsif (ref($x) and ref($y)) {
			return unless @$x == @$y;
			my @x = @$x;
			my @y = @$y;

			while (@x) {
				ret <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12997	13092	
==>re left alone.

If multiple strings are provided as argument they are each decoded
separately an <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12997	13092	
==>re left alone.

If multiple strings are provided as argument they are each decoded
separately an <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	868	976	
==>singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single eleme <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	868	976	
==>singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4840	4969	
==>..      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4840	4969	
==>..      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4840	4969	
==>..      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3385	3498	
==>rs_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3385	3498	
==>rs_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3385	3498	
==>rs_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1453	1565	
==>EM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1453	1565	
==>EM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29715	29809	
==>les)

Add option for coverage analysis.

Trap STDERR.

Implement Straps total_results()

Rememb <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6658	6777	
==>ng() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6658	6777	
==>ng() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1030	1161	
==>ype     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$s <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1030	1161	
==>ype     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2165	2271	
==>self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2165	2271	
==>self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $chi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	366	532	
==>fix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	366	532	
==>fix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23002	23101	
==>gexes>, not Perl.  If you send a single-quoted
string as a regex with a variable in it, that '$' wil <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	359	551	
==>ognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1. <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	359	551	
==>ognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	904	1007	
==>ocument class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	904	1007	
==>ocument class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Docum <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	149	249	
==>og; util/svnlog2graph /tmp/log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1736	1837	
==>e capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1736	1837	
==>e capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10652	10767	
==>.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10652	10767	
==>.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24440	24543	
==>scussed elsewhere.

 * regmust      string (pointer into program) that match must include, or NULL
 *  [ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4590	4693	
==>month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4590	4693	
==>month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1389	1536	
==>TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Buil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9971	10088	
==>_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9965	10082	
==>_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4843	5037	
==>ce last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warni <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4843	5037	
==>ce last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warni <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6210	6310	
==>\"",
  help   => "Remove \"$grub_local\" if you want mklivecd.pl to refetch GRUB.",
  ensure => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1127	1242	
==>ed and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1127	1242	
==>ed and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1127	1242	
==>ed and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13491	13621	
==>return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13491	13621	
==>return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13491	13621	
==>return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7769	7866	
==>F to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7769	7866	
==>F to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7769	7866	
==>F to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3786	4029	
==>$type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5033	5143	
==>$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5091	5201	
==>$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	831	943	
==>1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	836	948	
==>" " . $opt{name} . ">",
        '{ return { op => "circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	840	952	
==>1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3139	3244	
==>->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3139	3244	
==>->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3139	3244	
==>->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8278	8391	
==>>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8278	8391	
==>>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8278	8391	
==>>{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9290	9444	
==>=> $self.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1410	1552	
==>=> $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1410	1552	
==>=> $self.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9776	9905	
==>$s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9776	9905	
==>$s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9776	9905	
==>$s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    war <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37734	37827	
==>eter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a string <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37734	37827	
==>eter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5219	5327	
==>s[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5219	5327	
==>s[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5219	5327	
==>s[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6425	6531	
==>if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6425	6531	
==>if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6425	6531	
==>if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14297	14400	
==>t::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14297	14400	
==>t::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14297	14400	
==>t::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3776	3901	
==>=> ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3776	3901	
==>=> ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3776	3901	
==>=> ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5663	5776	
==>:Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5669	5769	
==>open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5669	5769	
==>open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1938	2050	
==>md =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1938	2050	
==>md =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1938	2050	
==>md =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

s <==
3	/Users/nnunley/pugs/util/func_refact.pl	2295	2404	
==>print "trying: $cand\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9356	9454	
==>e if $op{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16471	16579	
==>ss->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16471	16579	
==>ss->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16471	16579	
==>ss->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11850	11937	
==>5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11850	11937	
==>5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11850	11937	
==>5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14324	14437	
==>$table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14324	14437	
==>$table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14324	14437	
==>$table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_meth <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8855	8959	
==>rset_items_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_charset <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	504	594	
==>pecialised processing instructions may sub-class this module or
provide special behaviour w <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	504	594	
==>pecialised processing instructions may sub-class this module or
provide special behaviour w <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1454	1562	
==>ucfirst (Str $str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34793	34888	
==>ples that
are in the invocant Relation and that match any tuples of C<$other> along
their common <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39343	39438	
==>ples that
are in the invocant Relation and that match any tuples of C<$other> along
their common <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1403	1534	
==>nt
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1403	1534	
==>nt
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20522	20629	
==>t, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5060	5162	
==>}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5060	5162	
==>}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5060	5162	
==>}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3231	3368	
==>rn;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir] )                and error( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3345	3442	
==>rep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3345	3442	
==>rep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	225	350	
==>$.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	225	350	
==>$.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	217	335	
==>a::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	305	423	
==>a::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1878	1992	
==>mpile(q(<'regex'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5681	5786	
==>andled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5681	5786	
==>andled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becaus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5681	5786	
==>andled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # becaus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16261	16394	
==>rams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16261	16394	
==>rams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16261	16394	
==>rams) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17281	17390	
==>ng );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.differenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20758	20867	
==>ng );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.differenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20336	20445	
==>ng );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.differenc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6964	7119	
==>=== $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6964	7119	
==>=== $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5335	5439	
==>e's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be help <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5335	5439	
==>e's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be help <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5335	5439	
==>e's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method would 
be help <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1303	1427	
==>ray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1303	1427	
==>ray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1303	1427	
==>ray = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1465	1554	
==>ue_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1465	1554	
==>ue_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1465	1554	
==>ue_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	527	654	
==>can($c);
    return $S->object(exact => $c);
  });

  ### BACKSLASHED THINGS

  $self->add_handler('\\' => sub {
    my ($S, $cc <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2953	3058	
==>tr {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    retu <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2953	3058	
==>tr {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2400	2498	
==>e('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2400	2498	
==>e('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2400	2498	
==>e('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11153	11268	
==>->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11153	11268	
==>->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11153	11268	
==>->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9213	9362	
==>aram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9213	9362	
==>aram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9213	9362	
==>aram[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13018	13125	
==>oped alternative working.

  Using $/ might be non-trivial, as only some forms of redefinition
  make its ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17817	17914	
==>s
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17817	17914	
==>s
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11798	11967	
==>ent>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12156	12325	
==>ent>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2146	2262	
==>($#{$self});
}

sub is_empty {
    my $self = shift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub join {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3594	3693	
==>ne_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3594	3693	
==>ne_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3212	3334	
==>cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3212	3334	
==>cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3212	3334	
==>cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1637	1762	
==>Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1637	1762	
==>Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server w <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2644	2743	
==>to destroy the objects since they're copies
	foreach my $entry (@free) {
		my $assigned = $map{$entr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	284	420	
==>[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8631	8725	
==>Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8689	8783	
==>Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6282	6377	
==>-------------------------------------------------------------------
## Module

$::Module = $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6282	6377	
==>-------------------------------------------------------------------
## Module

$::Module = $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6282	6377	
==>-------------------------------------------------------------------
## Module

$::Module = $::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	65	180	
==>use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	65	180	
==>use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	65	180	
==>use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12837	12944	
==>aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12837	12944	
==>aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12837	12944	
==>aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1934	2052	
==>rn $str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6209	6321	
==>delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6209	6321	
==>delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17886	18069	
==>nless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17886	18069	
==>nless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17886	18069	
==>nless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5425	5520	
==>+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5425	5520	
==>+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6690	6779	
==>error.html
my $error_file = catfile($output_dir,"error.html");
open( my $error, '>', $erro <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16069	16159	
==>Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vinc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16127	16217	
==>Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vinc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4508	4608	
==>want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4508	4608	
==>want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4508	4608	
==>want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8580	8684	
==>ypes of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8580	8684	
==>ypes of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6093	6195	
==>The documentation is (still) incomplete.  It
may be a little jumbled or hard to understand.  If you fin <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5006	5257	
==>array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len = $len <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7375	7472	
==>l::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7375	7472	
==>l::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3267	3405	
==>$matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3162	3297	
==>$matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3126	3238	
==>e valid perl5 I<and> perl6 code.

This is a valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes pe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1985	2113	
==>inct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4049	4148	
==>ue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4049	4148	
==>ue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15	112	
==>Make preface part of parsed code, since it might contain `package`
#   statements or other scoping <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15	112	
==>Make preface part of parsed code, since it might contain `package`
#   statements or other scoping <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4026	4164	
==>ented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4014	4152	
==>ented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2885	2980	
==>epresentation of it that "honours the spirit of the
dialect", if the original form is not availa <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2885	2980	
==>epresentation of it that "honours the spirit of the
dialect", if the original form is not availa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11041	11134	
==>--------------------------------------------------------

What if Roles could provide their ow <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11041	11134	
==>--------------------------------------------------------

What if Roles could provide their ow <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11041	11134	
==>--------------------------------------------------------

What if Roles could provide their ow <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10948	11042	
==>al set".
Otherwise the program will emit warnings during the execution of some methods, 
becaus <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10948	11042	
==>al set".
Otherwise the program will emit warnings during the execution of some methods, 
becaus <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9305	9441	
==>ent_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        univ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9305	9441	
==>ent_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        univ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24160	24257	
==>s, each of which is an
unordered set of named attributes; all tuples in a Relation::Example are of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35235	35378	
==>_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35235	35378	
==>_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35235	35378	
==>_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6952	7133	
==>'$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6952	7133	
==>'$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6952	7133	
==>'$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { N <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4231	4365	
==>lf} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= ($^O eq 'VMS' ? '_author' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	711	814	
==>er, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	711	814	
==>er, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1623	1736	
==>t = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1611	1724	
==>t = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29185	29284	
==>g merged with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node with t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	513	619	
==>but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	513	619	
==>but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	513	619	
==>but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 20 <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3045	3147	
==>Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3045	3147	
==>Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18119	18215	
==>->FETCH("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21367	21557	
==>turn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21367	21557	
==>turn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21367	21557	
==>turn $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::V <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12116	12224	
==>ic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12116	12224	
==>ic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14300	14404	
==>, "newfrom"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16075	16227	
==>eturn $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16075	16227	
==>eturn $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16075	16227	
==>eturn $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $arra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4850	4986	
==>::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=p <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	407	513	
==>ss.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normal <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	407	513	
==>ss.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11819	11920	
==>. 

Because instances of class all conform to the Role interface/API they are 
interchangable with one <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11819	11920	
==>. 

Because instances of class all conform to the Role interface/API they are 
interchangable with one <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11819	11920	
==>. 

Because instances of class all conform to the Role interface/API they are 
interchangable with one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5414	5525	
==>>is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5414	5525	
==>>is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5414	5525	
==>>is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16787	16940	
==>{
        _diag "# PROG: \n$prog\n";
        _diag "# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GOT:\n$results\n";
        _diag "# STATUS: $stat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35150	35245	
==>e methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translator <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35150	35245	
==>e methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translator <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1325	1436	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1325	1436	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1325	1436	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18045	18139	
==>uch as C<[:cntrl:]> or C<\p{Print}>.

=item Character Class Rendering

The visual() method of I <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4082	4161	
==>{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4082	4161	
==>{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29675	29788	
==>ple-valued attribute are the same as those of another,
or are the same as the unaffected invocant's attributes.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34227	34340	
==>ple-valued attribute are the same as those of another,
or are the same as the unaffected invocant's attributes.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33391	33504	
==>ple-valued attribute are the same as those of another,
or are the same as the unaffected invocant's attributes.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5426	5533	
==>_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5426	5533	
==>_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5426	5533	
==>_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1520	1623	
==>fix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operat <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1520	1623	
==>fix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6398	6495	
==>arnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4475	4593	
==>compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4475	4593	
==>compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4475	4593	
==>compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4267	4371	
==>stake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4267	4371	
==>stake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4267	4371	
==>stake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15195	15394	
==>$1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15195	15394	
==>$1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15195	15394	
==>$1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4583	4703	
==>throw a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2807	2901	
==>on($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
meth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2807	2901	
==>on($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6566	6715	
==>>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6566	6715	
==>>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6566	6715	
==>>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17323	17414	
==>) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17323	17414	
==>) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17323	17414	
==>) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($x <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6555	6675	
==>= "no strict; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$dec <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1154	1253	
==>nterfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1154	1253	
==>nterfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9604	9728	
==>lements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9604	9728	
==>lements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9604	9728	
==>lements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	797	888	
==>::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	797	888	
==>::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5265	5369	
==>=> '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5265	5369	
==>=> '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5265	5369	
==>=> '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1252	1369	
==>perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argument <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1252	1369	
==>perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argument <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1252	1369	
==>perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argument <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10626	10755	
==>e} {";

    my $rep = $info->rep_type;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= <==
3	/Users/nnunley/pugs/util/package-osx.pl	1456	1559	
==>bin/p6doc ../../bin/p6doc
    );

    %change_files = qw(
        /usr/local/lib/perl5/site_perl/jspugs. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	389	491	
==>ance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	400	502	
==>ance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPD <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12723	12818	
==>he standard warning and error messages.  Their values are all
negative; positive values are left <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8494	8665	
==>q 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4854	5025	
==>q 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5703	5874	
==>q 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5281	5388	
==>st::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is expo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5339	5446	
==>st::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is expo <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15115	15219	
==>ra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6689	6785	
==>ists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6689	6785	
==>ists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39796	39893	
==>fy
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free Sof <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39796	39893	
==>fy
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free Sof <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1058	1236	
==>=
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %p <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1058	1236	
==>=
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %p <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2767	2865	
==>he user supplied
f.  Such things are possible in Perl 5, but simply saying .assuming is
nicer.

=cu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9969	10102	
==>sure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto qu <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5180	5276	
==>boolean value
of success or failure

=item data

The C<data> method returns a hash reference repr <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5180	5276	
==>boolean value
of success or failure

=item data

The C<data> method returns a hash reference repr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	869	959	
==>ad1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	869	959	
==>ad1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7829	8033	
==>$x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elem <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7829	8033	
==>$x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	839	960	
==>:Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	839	960	
==>:Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<Arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6009	6123	
==>urn ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1088	1190	
==>ostcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1088	1190	
==>ostcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1088	1190	
==>ostcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2183	2287	
==>DAGs, so we have to recursively make shallow copies of the nodes
	# \@free will contain all the free type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3172	3265	
==>ect ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3358	3451	
==>ect ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder-> <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5648	5824	
==>d = $tree[1];  # keys: "pScope", "pSyms", "pStmts"
        dbg "# keys: ",%pad.keys;

        my $scope =      %pad<"pScope">[0][0];
        dbg "# Scope:      $scope";  # "SMy" <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1862	1964	
==>5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Te <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1862	1964	
==>5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7501	7594	
==>) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1326	1419	
==>) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2292	2398	
==>- Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2292	2398	
==>- Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2292	2398	
==>- Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17025	17153	
==>p::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17304	17432	
==>p::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17704	17823	
==>creamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22722	22832	
==>f (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19143	19253	
==>f (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1172	1278	
==>,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1172	1278	
==>,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1172	1278	
==>,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5789	5904	
==>calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5789	5904	
==>calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7986	8101	
==>calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11557	11678	
==>eue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11557	11678	
==>eue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20647	20746	
==>dant)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_not_n <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8662	8764	
==>od comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This met <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8662	8764	
==>od comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This met <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2613	2716	
==>hod union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2613	2716	
==>hod union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1242	1335	
==>se Language::AttributeGrammar;

# this attribute grammer pretty prints bare types (no foralll) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2445	2558	
==>`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the quer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2445	2558	
==>`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the quer <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35302	35406	
==>s method will fail if any of its source Relations
have attributes in common; it will only accept inputs t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39852	39956	
==>s method will fail if any of its source Relations
have attributes in common; it will only accept inputs t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39412	39516	
==>s method will fail if any of its source Relations
have attributes in common; it will only accept inputs t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	214	329	
==>ss ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	214	329	
==>ss ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1508	1604	
==>kes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number between <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1508	1604	
==>kes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number between <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1882	1999	
==>>{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21152	21247	
==>s means that people who install your
module distribtution do not need to have the compilers inst <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21152	21247	
==>s means that people who install your
module distribtution do not need to have the compilers inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1451	1554	
==>e ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1451	1554	
==>e ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1451	1554	
==>e ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3970	4067	
==>\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3970	4067	
==>\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3970	4067	
==>\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16090	16193	
==>};
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16090	16193	
==>};
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16090	16193	
==>};
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2035	2168	
==>t;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_eq <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	518	631	
==>Elig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	518	631	
==>Elig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	423	545	
==>tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	907	1029	
==>tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params: <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	188	300	
==>our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smoke_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8969	9075	
==>lable/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Want <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10446	10552	
==>lable/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Want <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26870	26971	
==>)('foo')");
is(t($fst), "int", ":t fst( pair(10)('foo') )");
is(t($snd), "str", ":t snd( pair(10)('foo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1897	2032	
==>hift;
    
    my $str = '';
    return $str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5046	5152	
==>sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5268	5374	
==>sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, w <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3925	4052	
==>_should_be->symbol;
	$self->{class_that_should_be} = $class_that_should_be;

	$self;
}

sub left { $_[0]{left} }
sub right { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9290	9388	
==>, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9290	9388	
==>, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1773	1897	
==>ument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1773	1897	
==>ument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1773	1897	
==>ument.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::R <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6225	6332	
==>tart_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a singl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6225	6332	
==>tart_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a singl <==
3	/Users/nnunley/pugs/util/grokprims.pl	1734	1832	
==>t-associative with arity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1128	1259	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1128	1259	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1128	1259	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13483	13615	
==>);
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13483	13615	
==>);
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13483	13615	
==>);
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4632	4732	
==>DO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4632	4732	
==>DO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6829	6929	
==>DO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$descr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3856	3971	
==>IL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3856	3971	
==>IL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3856	3971	
==>IL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13719	13835	
==>~ /(.*)/s;
	$runperl = $1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	948	1056	
==>il(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contains <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	948	1056	
==>il(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contains <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16051	16155	
==>self->{cache}{$symbol};
    my $val = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18225	18317	
==>her complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18225	18317	
==>her complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1715	1812	
==>onstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "nor <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1715	1812	
==>onstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "nor <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1836	1961	
==>constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1847	1972	
==>constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13868	13971	
==>env to eval their children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$) }

# combs comb <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5857	5943	
==>6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tin <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5857	5943	
==>6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3216	3330	
==>$native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3216	3330	
==>$native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3216	3330	
==>$native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4845	4953	
==>f->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4845	4953	
==>f->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4845	4953	
==>f->_post_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8456	8596	
==>),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8456	8596	
==>),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr( <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1069	1204	
==>$doc->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't parse li <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12647	12818	
==>lf, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_header <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17622	17716	
==>f
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot obj <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17622	17716	
==>f
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7434	7562	
==>py?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7434	7562	
==>py?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7434	7562	
==>py?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($sel <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6266	6392	
==>goto oper_shift;
  }

  shift_reduce_1:
  my $top = $tokenStack[-1];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5855	5954	
==>essage (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'tr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5855	5954	
==>essage (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1105	1262	
==>sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1105	1262	
==>sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1105	1262	
==>sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->va <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	352	512	
==>('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4315	4432	
==>}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps u <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4315	4432	
==>}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15275	15377	
==>my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Comp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15275	15377	
==>my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Comp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7164	7257	
==>_all_but (Set of Str $attrs!) returns Relation::Example {
    return $?SELF.project( $!heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19506	19600	
==>xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19506	19600	
==>xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19506	19600	
==>xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6190	6298	
==>sys|cygwin)/) {
        push @pkgs, -package => 'Win32' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1113	1216	
==>$self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2004	2107	
==>$self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13706	13809	
==>my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12884	12976	
==>essages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText versio <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12884	12976	
==>essages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText versio <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	841	937	
==>E(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually wor <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	841	937	
==>E(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	494	594	
==>ON") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	494	594	
==>ON") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	494	594	
==>ON") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35371	35514	
==>ttribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36296	36439	
==>ttribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37831	37974	
==>ttribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3275	3530	
==>al->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16129	16227	
==>->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16129	16227	
==>->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16129	16227	
==>->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1947	2058	
==>line('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1947	2058	
==>line('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1947	2058	
==>line('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17218	17333	
==>=> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invit <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17218	17333	
==>=> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invit <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	159	270	
==>:Check               qw[check];
use Log::Message::Simple        qw[:STD];
use Module::Load::Conditional   qw[can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1084	1185	
==>ache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1084	1185	
==>ache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1084	1185	
==>ache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my % <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3724	3837	
==>Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3724	3837	
==>Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRL <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6036	6127	
==>age stm -package network -package mtl -package template-haskell -package base -package pugs- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6383	6497	
==>d be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you ge <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6383	6497	
==>d be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you ge <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3277	3370	
==>---------------------------------------------------------------
  t/waterloo.t    3   768    2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3859	3982	
==>al;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3859	3982	
==>al;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4449	4572	
==>al;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# X <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	932	1055	
==>" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %* <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5172	5269	
==>turns a boolean value
of success or failure

=item data

The C<data> method returns a hash referen <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5172	5269	
==>turns a boolean value
of success or failure

=item data

The C<data> method returns a hash referen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1716	1819	
==>eturn unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1909	2012	
==>eturn unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8839	8940	
==>Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no warnings "recursio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1421	1552	
==>m is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1421	1552	
==>m is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1421	1552	
==>m is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3836	3933	
==>cription )>

Marks that the next test should fail.  C<$description> is the optional
description of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3836	3933	
==>cription )>

Marks that the next test should fail.  C<$description> is the optional
description of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3916	4013	
==>cription )>

Marks that the next test should fail.  C<$description> is the optional
description of <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28257	28359	
==>} "can't do a higher order app with uneq types";

# a helper that returns the stringified type of an AS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3460	3574	
==>add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3460	3574	
==>add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3460	3574	
==>add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6360	6455	
==>espace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6360	6455	
==>espace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6360	6455	
==>espace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4782	4948	
==>e stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modif <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4782	4948	
==>e stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modif <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3943	4052	
==>::Reference {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	518	613	
==>etters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	518	613	
==>etters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4232	4360	
==>, @{ $self->{data} }), "]";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23349	23447	
==>is false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27901	27999	
==>is false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7022	7174	
==>args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7022	7174	
==>args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7022	7174	
==>args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	515	641	
==>js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	515	641	
==>js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	515	641	
==>js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_functi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1233	1337	
==>pe of working soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expressed <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3818	3906	
==>t, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3818	3906	
==>t, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2717	2970	
==>>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.new( <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	741	861	
==>et_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	708	828	
==>et_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13110	13215	
==>ONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13110	13215	
==>ONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.c <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	166	255	
==>Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	499	654	
==>nfess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1..' . _('$:expect') },
        'foo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1976	2083	
==>turns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1976	2083	
==>turns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1831	1921	
==>f(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stric <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1831	1921	
==>f(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stric <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1831	1921	
==>f(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no stric <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1778	1882	
==>rn $e;
}

sub splice (@a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$of <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3452	3547	
==>f8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3452	3547	
==>f8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4667	4769	
==>f($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4667	4769	
==>f($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4667	4769	
==>f($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PR <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7876	7986	
==>= _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each test prints at <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1628	1731	
==>losure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1628	1731	
==>losure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33512	33648	
==>>{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33512	33648	
==>>{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33512	33648	
==>>{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15321	15441	
==>l;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15321	15441	
==>l;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30300	30405	
==>tr->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descendant_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16219	16362	
==>ef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16219	16362	
==>ef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16219	16362	
==>ef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2822	2924	
==>->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2822	2924	
==>->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2822	2924	
==>->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recu <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	372	475	
==>y @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthD <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	372	475	
==>y @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthD <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	262	363	
==>d as return values from our methods.  Just for internal 
# clarification.
my $TRUE  = (1==1);
my $FALS <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4467	4603	
==>ers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4467	4603	
==>ers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            wh <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1535	1647	
==>);

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1535	1647	
==>);

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4976	5092	
==>mpiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4976	5092	
==>mpiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4976	5092	
==>mpiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-d <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1266	1402	
==>])/) {
#	    print "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15697	15796	
==>can be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15697	15796	
==>can be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12980	13106	
==>()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12980	13106	
==>()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5247	5363	
==>[ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_rule {
    # print "add operator\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15499	15601	
==>{ $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15499	15601	
==>{ $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15499	15601	
==>{ $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3088	3194	
==>passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3088	3194	
==>passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4612	4718	
==>passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1749	1866	
==>array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1749	1866	
==>array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1749	1866	
==>array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30344	30467	
==>tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30344	30467	
==>tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30344	30467	
==>tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2258	2388	
==>y <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2258	2388	
==>y <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2258	2388	
==>y <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9197	9315	
==>AME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9197	9315	
==>AME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9197	9315	
==>AME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5246	5377	
==>rpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5246	5377	
==>rpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5246	5377	
==>rpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30899	30996	
==>urns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35449	35546	
==>urns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34640	34737	
==>urns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
thi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3219	3320	
==>s that use Test::Builder.  It
does this by you setting the expected output and diagnostic output of te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3219	3320	
==>s that use Test::Builder.  It
does this by you setting the expected output and diagnostic output of te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3299	3400	
==>s that use Test::Builder.  It
does this by you setting the expected output and diagnostic output of te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7429	7539	
==>CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7429	7539	
==>CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7429	7539	
==>CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2561	2885	
==>y_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            A <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1774	1866	
==>erl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1774	1866	
==>erl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14392	14485	
==>private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14392	14485	
==>private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14392	14485	
==>private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19018	19140	
==>spatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19018	19140	
==>spatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19018	19140	
==>spatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15991	16101	
==>::cap = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($v);
  unshift(@{$m0->{$name}},$m1);# sigh,
  #  twice: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1987	2087	
==>IL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1987	2087	
==>IL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7888	7985	
==>ould assume that if this method is being called, the Secret 
Police are breaking down the door and <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7888	7985	
==>ould assume that if this method is being called, the Secret 
Police are breaking down the door and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	502	600	
==>2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	502	600	
==>2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	502	600	
==>2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5729	5835	
==>. '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5729	5835	
==>. '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5729	5835	
==>. '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37581	37702	
==>Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37581	37702	
==>Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37581	37702	
==>Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless def <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20572	20683	
==>r :words {  # see 12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'=' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6657	6752	
==>ver be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6657	6752	
==>ver be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1515	1730	
==>r eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $reg <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1515	1730	
==>r eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $reg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3163	3333	
==>Compiler::Rule' );

=for pod
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tig <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2578	2693	
==>..
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.get <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2578	2693	
==>..
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2402	2503	
==>:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2402	2503	
==>:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2402	2503	
==>:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10925	11082	
==>ssed      => $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1413	1556	
==>ssed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1413	1556	
==>ssed      => $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6590	6689	
==>ype', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6590	6689	
==>ype', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	505	633	
==>:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	521	649	
==>:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	497	625	
==>:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10056	10154	
==>s immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the mi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10056	10154	
==>s immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the mi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	14	120	
==>s::Grammar::Precedence;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4684	4780	
==>the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may be <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4684	4780	
==>the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5769	5859	
==>s
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5769	5859	
==>s
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5769	5859	
==>s
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	820	918	
==>to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	820	918	
==>to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2013	2131	
==>not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2013	2131	
==>not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (s <==
3	/Users/nnunley/pugs/util/package-osx.pl	8832	8937	
==>qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	974	1088	
==>y $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $directi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	983	1097	
==>y $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $directi <==
3	/Users/nnunley/pugs/util/grokprims.pl	1215	1328	
==>prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9231	9392	
==>g $ghc_pkg\n";

            # If the file exists, and it looks like it's in windows
            # land, and it has an executable extension...

            if ( -f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9566	9668	
==>solve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9566	9668	
==>solve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9566	9668	
==>solve uses it
    # to gather all the roles to be 'resolved'
    # ------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22322	22444	
==>e ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22322	22444	
==>e ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22322	22444	
==>e ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6467	6657	
==>ol  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6467	6657	
==>ol  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2291	2466	
==>thod size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all_names_exist of Bool (Re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4873	5017	
==>f multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4873	5017	
==>f multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	3	104	
==>rbsenzähler? Nee nur Kartoffeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		prin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10295	10408	
==>t {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] ruleop::constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8265	8389	
==>ingify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8265	8389	
==>ingify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8265	8389	
==>ingify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5400	5526	
==>>{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5400	5526	
==>>{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5400	5526	
==>>{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2868	3012	
==>ce($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2868	3012	
==>ce($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2868	3012	
==>ce($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4390	4493	
==>k whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4390	4493	
==>k whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5487	5579	
==>atorTable = $self->operatorTable() if ( $whitespacePosition <= $position );

  expect_oper_1: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12769	12860	
==>SA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12769	12860	
==>SA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12769	12860	
==>SA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1920	2071	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2113	2264	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1834	1987	
==>turn if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3376	3497	
==>_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3376	3497	
==>_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1	103	
==>=pod

This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1	103	
==>=pod

This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1	103	
==>=pod

This is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7322	7428	
==>ssary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7322	7428	
==>ssary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7322	7428	
==>ssary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1601	1716	
==>try, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'H <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7367	7469	
==>dd_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($k <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7367	7469	
==>dd_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($k <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19994	20094	
==>set of mappings, or a multi-dimensional object Hash,
or various combinations of other data types.

Wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24546	24646	
==>set of mappings, or a multi-dimensional object Hash,
or various combinations of other data types.

Wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23098	23198	
==>set of mappings, or a multi-dimensional object Hash,
or various combinations of other data types.

Wh <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34066	34267	
==>>new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e->create('$dispatcher' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5664	5759	
==>2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5664	5759	
==>2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4336	4434	
==>last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4336	4434	
==>last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4926	5024	
==>last if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34311	34410	
==>$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34311	34410	
==>$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34311	34410	
==>$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	229	344	
==>is here in 
# order for things to init 
# in the correct order
use Perl6::Core::Bit;

# comparisons

# implement thi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9017	9120	
==>erence doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9017	9120	
==>erence doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19176	19275	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19176	19275	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19176	19275	
==>..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13450	13549	
==>refers to another file or test which must be
made to pass before this test can pass (or before an im <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13508	13607	
==>refers to another file or test which must be
made to pass before this test can pass (or before an im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12539	12649	
==>{p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12539	12649	
==>{p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12539	12649	
==>{p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7391	7502	
==>PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7391	7502	
==>PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7391	7502	
==>PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13692	13796	
==>he standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17169	17273	
==>he standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16531	16635	
==>he standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1444	1544	
==>bly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1444	1544	
==>bly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1444	1544	
==>bly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13781	13878	
==>prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13781	13878	
==>prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13781	13878	
==>prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	628	778	
==>>($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	628	778	
==>>($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	628	778	
==>>($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9298	9460	
==>.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1418	1562	
==>.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

metho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1418	1562	
==>.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	158	276	
==>ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle_va <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1530	1622	
==>ctive::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  Th <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1530	1622	
==>ctive::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  Th <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7650	7751	
==>=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_elemen <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7650	7751	
==>=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_elemen <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11043	11139	
==>>?
    | <StrWhiteSpace>? <StrNumericLiteral> <StrWhiteSpace>?
}
rule StrWhiteSpace {  # see 9.3. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2085	2199	
==>code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2085	2199	
==>code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2085	2199	
==>code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argume <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8148	8293	
==>, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4508	4653	
==>, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5357	5502	
==>, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14920	15024	
==>$o->data);
    my $code = 'sub{my $__c__ = $_[0]; '.$embedded_code.'; @_=$noop; goto &$__c__}';
    eval( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6919	7022	
==>urn $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7478	7581	
==>urn $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7217	7374	
==>$end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7217	7374	
==>$end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7217	7374	
==>$end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            els <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	254	440	
==>tart

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3941	4081	
==>name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3941	4081	
==>name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3941	4081	
==>name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\& <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6190	6288	
==>t do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6190	6288	
==>t do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about w <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6793	6888	
==>C 6.4.1 or above from path (we have $ghc_version).
*** Please install a newer version from http: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1738	1856	
==>ugs.Prim.hs
    # (maybe :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36600	36696	
==>h case the returned Relation is identical to the
invocant.  Another trivial case is where any any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41149	41245	
==>h case the returned Relation is identical to the
invocant.  Another trivial case is where any any <==
3	/Users/nnunley/pugs/util/package-osx.pl	9270	9423	
==>) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub rem <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4995	5145	
==>k ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4995	5145	
==>k ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3678	3789	
==>g
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3678	3789	
==>g
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3678	3789	
==>g
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negativ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2052	2170	
==>o.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free softwar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2052	2170	
==>o.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free softwar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2052	2170	
==>o.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free softwar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8938	9126	
==>s exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5298	5486	
==>s exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6147	6335	
==>s exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XX <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8965	9061	
==>ods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end valu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8965	9061	
==>ods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end valu <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	529	635	
==>n {
    #$self.difference($other);
#}

#method infix:<->($self: Duration $duration) returns Date {
    #$se <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1130	1225	
==>used to add extra directories to Pugs's 
search path so that later `use` or `require` statements <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1130	1225	
==>used to add extra directories to Pugs's 
search path so that later `use` or `require` statements <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2365	2531	
==>, exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4263	4356	
==>see the cipher module's documentation for 
details.  The C<mode> value indicates the operation <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4263	4356	
==>see the cipher module's documentation for 
details.  The C<mode> value indicates the operation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20115	20219	
==>$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20115	20219	
==>$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20115	20219	
==>$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2265	2419	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2265	2419	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2265	2419	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10971	11085	
==>ll to Installation.pm
    $self->write or return;
    
    ### unisntall metadata
    system( qq[rm -rf ] . $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3438	3541	
==>etta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3438	3541	
==>etta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9106	9199	
==>ing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9106	9199	
==>ing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_i <==
3	/Users/nnunley/pugs/util/importgraph.pl	1884	1970	
==>gs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr/^IMC\b/);
setup_cluster('RRegex', q <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8398	8493	
==>een reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your ow <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8398	8493	
==>een reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your ow <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	456	631	
==>cond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11239	11331	
==><redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=it <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11239	11331	
==><redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1660	1780	
==>ame_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1660	1780	
==>ame_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1660	1780	
==>ame_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	808	909	
==>return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<id <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	896	997	
==>return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6262	6373	
==>cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6262	6373	
==>cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6262	6373	
==>cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	682	794	
==>ed unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	682	794	
==>ed unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	682	794	
==>ed unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1284	1381	
==>S::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1284	1381	
==>S::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1284	1381	
==>S::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{prelu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5302	5517	
==>0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5302	5517	
==>0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5302	5517	
==>0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12701	12883	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12701	12883	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12701	12883	
==>>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1546	1679	
==>SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1546	1679	
==>SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1546	1679	
==>SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is * <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6657	6778	
==>mts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4102	4220	
==>class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_v <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3052	3157	
==>class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40038	40259	
==>->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19587	19799	
==>->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	12	125	
==>l6::Core::Hash;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1899	2005	
==>urn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1899	2005	
==>urn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1899	2005	
==>urn sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	712	832	
==>ule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name} . '>" ,} }' );
}


BEGIN { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1637	1729	
==>e_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_nam <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1637	1729	
==>e_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12258	12379	
==>name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4901	5022	
==>name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1613	1730	
==>);
   my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   p <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18857	19068	
==>rg);
            }
            when '%' {
                $str ~= '%';
            }
            default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $st <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	147	249	
==>eGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	147	249	
==>eGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) { <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23197	23282	
==>e,[C|Fx],F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,Fx,F1,[C|B0],B1,E0,E1).

rmGlobal(Re,F0,F <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11816	11959	
==>to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1891	2003	
==>ool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:regist <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1891	2003	
==>ool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:regist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2572	2672	
==>args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2572	2672	
==>args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2572	2672	
==>args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5211	5323	
==>confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5211	5323	
==>confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5211	5323	
==>confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5800	5921	
==>.delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5800	5921	
==>.delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5800	5921	
==>.delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	931	1052	
==>pport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	931	1052	
==>pport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	931	1052	
==>pport for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements fr <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3314	3464	
==>er {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    default { take %.su <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15518	15620	
==>rt or end value of the span.

These methods may raise a warning if the new value would put the span 
in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15518	15620	
==>rt or end value of the span.

These methods may raise a warning if the new value would put the span 
in <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17029	17137	
==>ce: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub co <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1599	1779	
==>. '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( <$fh> ) {
        chomp;
        -e $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31789	31882	
==>here> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36339	36432	
==>here> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5836	5936	
==>the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5836	5936	
==>the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8033	8133	
==>the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=b <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1010	1112	
==>:PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1010	1112	
==>:PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2307	2400	
==>p_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2307	2400	
==>p_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2307	2400	
==>p_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49271	49403	
==>>and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8310	8423	
==>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8310	8423	
==>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8310	8423	
==>things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1998	2112	
==>urn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1998	2112	
==>urn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1998	2112	
==>urn join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3759	3886	
==>ft;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3759	3886	
==>ft;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3759	3886	
==>ft;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17788	17966	
==>r => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17788	17966	
==>r => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17788	17966	
==>r => 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	210	337	
==>SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	210	337	
==>SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	210	337	
==>SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike <==
3	/Users/nnunley/pugs/util/config_h.pl	700	803	
==>)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13112	13203	
==>nslator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13112	13203	
==>nslator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8387	8492	
==>str $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8387	8492	
==>str $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8387	8492	
==>str $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3234	3366	
==>|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3234	3366	
==>|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3234	3366	
==>|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7237	7345	
==>t];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7237	7345	
==>t];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7237	7345	
==>t];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1931	2039	
==>e compiler into a single AST.

A mapping from symbols to values:

    Blondie::Env->new(
        '&func' => T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18037	18135	
==>arsing up your module's source code into various blocks; so that by the
time a compiler is called i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18037	18135	
==>arsing up your module's source code into various blocks; so that by the
time a compiler is called i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4195	4299	
==>f ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4412	4516	
==>f ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	18	115	
==>iler::Perl6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation in the __END__
use 5.0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11571	11745	
==>matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7853	8027	
==>matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8687	8861	
==>matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3779	3915	
==>method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3779	3915	
==>method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3779	3915	
==>method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_descripti <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9030	9135	
==>odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Rec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9030	9135	
==>odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Rec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	297	426	
==>}


sub init {
  my ($self) = @_;

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10067	10168	
==>3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10067	10168	
==>3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	268	382	
==>eeded by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	268	382	
==>eeded by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	268	382	
==>eeded by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->n <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	613	733	
==>tch, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	613	733	
==>tch, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	422	568	
==>) {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	422	568	
==>) {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	422	568	
==>) {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21572	21669	
==>MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21572	21669	
==>MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21572	21669	
==>MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13030	13119	
==>t::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13030	13119	
==>t::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13030	13119	
==>t::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2857	2998	
==>tinue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2857	2998	
==>tinue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8245	8340	
==>Regexp::Parser::* object
  }

When the regex is finished being parsed, next() returns false, and <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10908	11004	
==>l::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10908	11004	
==>l::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2469	2602	
==>e '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

sub angle_quoted {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5600	5697	
==>l \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5600	5697	
==>l \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	49	164	
==>mitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	49	164	
==>mitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	49	164	
==>mitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11978	12097	
==>ub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11978	12097	
==>ub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11978	12097	
==>ub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14170	14265	
==>QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14170	14265	
==>QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $ <==
3	/Users/nnunley/pugs/util/addauthors.pl	418	508	
==>(sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	362	560	
==>two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	362	560	
==>two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	362	560	
==>two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15633	15728	
==>a structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environme <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15691	15786	
==>a structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3929	4034	
==>mous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3929	4034	
==>mous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3929	4034	
==>mous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12734	12908	
==>ems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12734	12908	
==>ems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12734	12908	
==>ems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @re <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7774	7870	
==>turn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7774	7870	
==>turn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Per <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29888	29984	
==>ple, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29888	29984	
==>ple, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by ke <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3296	3386	
==>s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3904	3998	
==>lti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3904	3998	
==>lti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3904	3998	
==>lti-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12285	12437	
==>eason
  {
      method report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.descrip <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2673	2815	
==>eason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2673	2815	
==>eason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.descrip <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23333	23428	
==>.p6analyze(pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6114	6208	
==>rses this document successfully. However, more complex POD 
documents may not do as well. Error <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6114	6208	
==>rses this document successfully. However, more complex POD 
documents may not do as well. Error <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20514	20610	
==>Prefixing field names with ':' allow you to force a
specific spelling.  For example if you really <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20514	20610	
==>Prefixing field names with ':' allow you to force a
specific spelling.  For example if you really <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15337	15454	
==>$n->{op1}{op} eq '--' ) {
        return _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'AN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	466	562	
==>Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	466	562	
==>Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L< <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6843	6989	
==>me (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser pub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6900	7046	
==>me (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser pub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	479	575	
==>uctions don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6996	7154	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6996	7154	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6996	7154	
==>,

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12820	12918	
==>e where this is specced, but when I migrated &prefix:<=> from
# meaning the same as &readline to $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5102	5193	
==>rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5102	5193	
==>rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6760	6877	
==>nt );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6760	6877	
==>nt );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6760	6877	
==>nt );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16550	16682	
==>ram int has_gram        :opt_flag
    .param string name         :optional
    .param int has_name        :opt_flag
    .local pmc ex <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	203	329	
==>_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%a <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	203	329	
==>_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5586	5697	
==>24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5586	5697	
==>24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5586	5697	
==>24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17068	17226	
==>etch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17068	17226	
==>etch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17068	17226	
==>etch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10927	11028	
==>ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10927	11028	
==>ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10927	11028	
==>ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	126	229	
==>t for the final implementation

use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13710	13809	
==>f a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17187	17286	
==>f a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3250	3383	
==>{
        # undef only matches undef
        $pass = !defined $got && !defined $expected;
    }
    else {
        $pass = $got eq $ex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1640	1752	
==>export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars} <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1640	1752	
==>export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1243	1368	
==>b { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1243	1368	
==>b { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1243	1368	
==>b { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	92	195	
==>{
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	92	195	
==>{
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	92	195	
==>{
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	277	383	
==>oup of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	277	383	
==>oup of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1027	1133	
==>t;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	134	270	
==>Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	134	270	
==>Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	134	270	
==>Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value on <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14182	14287	
==>- $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {ti <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14182	14287	
==>- $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13870	14007	
==>,
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13870	14007	
==>,
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13870	14007	
==>,
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20555	20704	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20834	20983	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1671	1773	
==>s like a hash - it has keys and values.

C<Env> is a map - it contains symbol to value mappings.

=back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21051	21147	
==>$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21051	21147	
==>$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21051	21147	
==>$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1507	1668	
==>/header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # alr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1507	1668	
==>/header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # alr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	272	382	
==>->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub compile {
    my $self = shift;
    my $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4989	5104	
==>( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4989	5104	
==>( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4989	5104	
==>( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	496	654	
==>,
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	496	654	
==>,
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	496	654	
==>,
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3238	3357	
==>lass->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3238	3357	
==>lass->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3238	3357	
==>lass->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6879	7009	
==>Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6879	7009	
==>Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6879	7009	
==>Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We do <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	794	935	
==>@stack, $y * $x;
        } elsif ($tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$tok <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5265	5375	
==>353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joine <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5265	5375	
==>353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joine <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19860	19958	
==>ver it likes; all Rosetta cares about is that the user
interface and behaviour conform to its preco <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19860	19958	
==>ver it likes; all Rosetta cares about is that the user
interface and behaviour conform to its preco <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5113	5211	
==>- the return block could be generated automatically ?
  );

Pseudo-code for usage inside a grammar: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6217	6320	
==>ng other than 
a helper to other functions.  

=cut

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6217	6320	
==>ng other than 
a helper to other functions.  

=cut

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6217	6320	
==>ng other than 
a helper to other functions.  

=cut

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16583	16684	
==>y $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16583	16684	
==>y $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16583	16684	
==>y $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$arg <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4792	4946	
==><'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | <'return'>
    | <'void'>
    | <'catch'>
    | <'for'>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1109	1204	
==>es two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> objec <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1109	1204	
==>es two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> objec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	242	362	
==>my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19007	19114	
==>then->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20365	20472	
==>then->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifth <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7566	7678	
==>xit'} = _wait2exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    ret <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2014	2107	
==>gex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library. <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2014	2107	
==>gex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	91	191	
==>$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	91	191	
==>$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	91	191	
==>$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29679	29814	
==>],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29679	29814	
==>],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	483	602	
==>],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5812	5922	
==>n($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abst <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5294	5404	
==>n($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abst <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	526	635	
==>).add_children(
            Tree.new(:node<Void>).add_children(
                Tree.new(:node<Object>).add_ch <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23821	23915	
==>osetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23821	23915	
==>osetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	431	530	
==>inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	431	530	
==>inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	431	530	
==>inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13533	13637	
==>um POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7741	7845	
==>um POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8234	8335	
==>lues;
}


# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4136	4233	
==>re "lib/TestBuilder/Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for buildin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3345	3476	
==>y);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3345	3476	
==>y);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3701	3832	
==>y);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $arg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3187	3303	
==>lating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3651	3767	
==>lating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8648	8781	
==>ndefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(bac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8648	8781	
==>ndefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(bac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8648	8781	
==>ndefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1310	1529	
==>d";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1310	1529	
==>d";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1310	1529	
==>d";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8791	8919	
==>ol;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8779	8907	
==>ol;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0] <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19459	19558	
==>on that takes a function and applies it to a string
# thiss tests that the inferrence of higher orde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4547	4662	
==>Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4392	4502	
==>Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6973	7076	
==>reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $top <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6257	6437	
==>) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6257	6437	
==>) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6257	6437	
==>) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7226	7348	
==>teral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3830	3952	
==>teral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4679	4801	
==>teral {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3958	4047	
==>que_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3958	4047	
==>que_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3958	4047	
==>que_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6498	6627	
==>) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  packa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3680	3769	
==>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, publis <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3680	3769	
==>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, publis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8284	8400	
==>d! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8284	8400	
==>d! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1860	1965	
==>lems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1860	1965	
==>lems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1860	1965	
==>lems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3143	3249	
==>ch element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3143	3249	
==>ch element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3143	3249	
==>ch element of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13338	13447	
==>$prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( paylo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13338	13447	
==>$prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( paylo <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	93	190	
==>';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use Fi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	93	190	
==>';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use Fi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3193	3282	
==>, p6_concatenation(X), p6_conjunctions(intersect(W,X), Z), !.
p6_conjunctions(W, W) --> {t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	767	905	
==>"# $_\n" }
               map { split /\n/ } @_;
    my $fh = $TODO ? *STDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1592	1683	
==>* L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1592	1683	
==>* L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2798	2922	
==>self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2798	2922	
==>self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.st <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	64	248	
==>er,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	64	248	
==>er,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3370	3500	
==>();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # othe <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3370	3500	
==>();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # othe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	199	300	
==>thor mode ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2303	2426	
==>dir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Could not <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10164	10259	
==>text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10164	10259	
==>text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14706	14848	
==>) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14706	14848	
==>) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14706	14848	
==>) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	564	660	
==>, in that keys should produce the same keystream and thus text 
should be enciphered and decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	564	660	
==>, in that keys should produce the same keystream and thus text 
should be enciphered and decipher <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16557	16649	
==>ies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16557	16649	
==>ies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> docume <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4899	5050	
==>Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified_app,
		);
	}

	sub simplify_type {
		my $self = shift;
		my $type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21447	21544	
==>>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21447	21544	
==>>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21828	21982	
==>versal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21828	21982	
==>versal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21828	21982	
==>versal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $cl <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14284	14392	
==>educe_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1764	1872	
==>educe_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	186	281	
==>way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options her <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	186	281	
==>way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options her <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	186	281	
==>way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options her <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7281	7391	
==>xadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A;B] <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	10	108	
==>::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	10	108	
==>::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2528	2626	
==>e ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2528	2626	
==>e ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2528	2626	
==>e ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5571	5697	
==>body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@lis <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5571	5697	
==>body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@lis <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5857	5953	
==>Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes/piln_object_rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3885	3989	
==>delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3885	3989	
==>delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3885	3989	
==>delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9162	9425	
==>ns, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5522	5785	
==>ns, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6371	6634	
==>ns, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	388	499	
==>Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	388	499	
==>Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	388	499	
==>Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9200	9316	
==>ge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9200	9316	
==>ge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9200	9316	
==>ge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1262	1364	
==>_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1262	1364	
==>_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1262	1364	
==>_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1981	2101	
==>ocal $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1981	2101	
==>ocal $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1981	2101	
==>ocal $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2312	2436	
==>=> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2312	2436	
==>=> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2312	2436	
==>=> $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1251	1347	
==>thod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1251	1347	
==>thod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1251	1347	
==>thod postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7926	8013	
==>ns = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7926	8013	
==>ns = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17312	17410	
==>lasses - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17312	17410	
==>lasses - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17312	17410	
==>lasses - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	482	589	
==>rray.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	482	589	
==>rray.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	482	589	
==>rray.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5198	5373	
==>alue";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5198	5373	
==>alue";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5198	5373	
==>alue";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14	107	
==>::Run::OnPerl5::X1::Api;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1208	1300	
==>n of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example versi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1208	1300	
==>n of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example versi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	875	982	
==>of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersect <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	875	982	
==>of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersect <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6307	6414	
==>return if lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1550	1664	
==>[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1550	1664	
==>[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1550	1664	
==>[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12882	12990	
==>();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12882	12990	
==>();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12882	12990	
==>();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5369	5476	
==>l of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/app <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5369	5476	
==>l of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/app <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	892	992	
==>we dont really have a native type
sub to_native { shift }

# conversion to other native types
sub to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	966	1071	
==>,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	966	1071	
==>,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	966	1071	
==>,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9071	9192	
==>"Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10548	10669	
==>"Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7374	7488	
==>)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') if $re eq '\d';
    return $o->mk_eater_for_re(' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	889	1010	
==>"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	889	1010	
==>"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2132	2238	
==>d {
    my($self)=@_;
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	return 1 if defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4548	4707	
==>me =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4548	4707	
==>me =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4548	4707	
==>me =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7469	7599	
==>from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7457	7587	
==>from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12393	12477	
==>ss="num tests_todo"><span title="<tmpl_var name=todo> todo"><tmpl_var name=todo></spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8437	8590	
==>{
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8437	8590	
==>{
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3197	3305	
==>go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600 <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3197	3305	
==>go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1687	1788	
==>fication, fmapping and value encapsulation features.

They are discussed in the main L<Blondie> docume <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	19	129	
==>e nur Kartoffeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	LAST {
		p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	653	759	
==>al, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	653	759	
==>al, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4904	5022	
==>. $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4904	5022	
==>. $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4904	5022	
==>. $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	107	220	
==>n;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object but <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	107	220	
==>n;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object but <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2096	2205	
==>e Scalar::Util ();
	use B ();
	use B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11588	11706	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11588	11706	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11588	11706	
==>y $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2560	2674	
==>my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2560	2674	
==>my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2560	2674	
==>my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ne <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6340	6445	
==>$sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sib <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6340	6445	
==>$sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sib <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6420	6508	
==>type = $self->simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa("Blond <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	837	940	
==>ort { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a co <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	837	940	
==>ort { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a co <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2710	2810	
==>int <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to submit the repor <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5081	5221	
==>hrow'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typeof'>
}
rule FutureReservedWord {  # see 7.5. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1779	1871	
==>nt = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1779	1871	
==>nt = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1426	1533	
==>erencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH())) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1426	1533	
==>erencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH())) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1426	1533	
==>erencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH())) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5963	6114	
==>e_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5963	6114	
==>e_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5963	6114	
==>e_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7543	7674	
==>. " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7543	7674	
==>. " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7543	7674	
==>. " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13837	13941	
==>ing.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # Wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13837	13941	
==>ing.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # Wh <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3552	3675	
==>ixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.!/! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8676	8785	
==>n::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19118	19227	
==>n::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.value <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39323	39469	
==>t'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))->values <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7666	7762	
==>f much of this.)

A default implementation of this method is provided which returns nothing.

=it <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7666	7762	
==>f much of this.)

A default implementation of this method is provided which returns nothing.

=it <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9950	10055	
==>al <<'END'; print $@ if $@;
my $m = "asdf" =~ $qr;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',de <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2192	2291	
==>... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2192	2291	
==>... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23523	23700	
==>m, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23523	23700	
==>m, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23523	23700	
==>m, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2288	2375	
==>::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2288	2375	
==>::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2288	2375	
==>::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1503	1639	
==>ta .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if ! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1503	1639	
==>ta .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if ! <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1539	1635	
==>ected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13984	14124	
==>a( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13984	14124	
==>a( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13984	14124	
==>a( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	449	558	
==>, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	481	590	
==>, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1004	1108	
==>.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare su <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1004	1108	
==>.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare su <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13838	13965	
==>ackage Regexp::Parser::ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::Dumper $o;

    my $f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12755	12865	
==>ex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6230	6340	
==>ex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxg <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	414	546	
==>rule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinkin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	414	546	
==>rule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinkin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1565	1673	
==>0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1565	1673	
==>0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1565	1673	
==>0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YA <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1950	2062	
==>ption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1950	2062	
==>ption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2030	2142	
==>ption = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_dia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11625	11715	
==>n \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11625	11715	
==>n \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11625	11715	
==>n \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1326	1429	
==>tional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opt <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1326	1429	
==>tional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opt <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1535	1638	
==>tional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5290	5379	
==>e_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5290	5379	
==>e_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5290	5379	
==>e_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	365	496	
==>sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	365	496	
==>sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	365	496	
==>sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this fu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6250	6363	
==>ta_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6250	6363	
==>ta_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdt <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3967	4065	
==>or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\text <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2690	2797	
==>('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2874	2981	
==>('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	910	1018	
==>ar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	910	1018	
==>ar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17775	17879	
==>n takes any pair and returns it's second thingy
# (a x b) -> b
# applied to $pair (int x str) this should <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5623	5726	
==>l -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    MET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5623	5726	
==>l -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    MET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5623	5726	
==>l -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    MET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	680	803	
==>ests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	680	803	
==>ests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	680	803	
==>ests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1123	1262	
==>lass Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1123	1262	
==>lass Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1123	1262	
==>lass Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::V <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21139	21236	
==>ies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_utf8    s <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2777	2884	
==>the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproper <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2777	2884	
==>the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproper <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7833	7934	
==>method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got the right method list (resolved)' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2200	2347	
==>del_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.Multi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2200	2347	
==>del_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.Multi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2200	2347	
==>del_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.Multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	933	1071	
==>_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	933	1071	
==>_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	933	1071	
==>_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	118	216	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	118	216	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	118	216	
==>n bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7245	7334	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7245	7334	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7245	7334	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	180	262	
==>p://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requi <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	147	229	
==>p://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requi <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	193	275	
==>p://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7722	7841	
==>s
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7722	7841	
==>s
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7722	7841	
==>s
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      fu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3710	3862	
==>bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};

    if ($self->in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3354	3486	
==>bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3354	3486	
==>bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6336	6438	
==>pan, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6336	6438	
==>pan, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7276	7454	
==>efined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7276	7454	
==>efined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7276	7454	
==>efined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	571	723	
==>s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	659	811	
==>s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	656	803	
==>s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6599	6699	
==>um $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6599	6699	
==>um $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6599	6699	
==>um $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37728	37836	
==>VERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37728	37836	
==>VERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37728	37836	
==>VERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3123	3239	
==>a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3123	3239	
==>a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3123	3239	
==>a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4204	4322	
==>, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($cur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4204	4322	
==>, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($cur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4794	4912	
==>, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1795	1916	
==>_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1795	1916	
==>_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1795	1916	
==>_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	727	847	
==>sdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	727	847	
==>sdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	727	847	
==>sdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	223	341	
==>rsion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	223	341	
==>rsion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	223	341	
==>rsion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6903	7028	
==>ush @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7367	7492	
==>ush @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/util/version_h.pl	1346	1466	
==>. \d+/) {
            $source_depot = '/'.$source_depot; # convert /svk/trunk to //svk/trunk
            if (my @info = q <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1787	1888	
==>ile to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp syntax conver <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1386	1476	
==>ype;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1386	1476	
==>ype;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9315	9495	
==>e_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9315	9495	
==>e_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Ros <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14677	14787	
==>if ($@) {
		warn "test.pl had problems loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Perl = Fi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1958	2126	
==>by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  Lis <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4755	4869	
==>rn $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4755	4869	
==>rn $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
me <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7725	7823	
==>s provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Cl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7725	7823	
==>s provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	11	107	
==>s::Grammar::Expression;

use strict;
use warnings;

#use Pugs::Compiler::Rule;
use Pugs::Grammar: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1680	1792	
==>t(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1680	1792	
==>t(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1680	1792	
==>t(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	179	284	
==>ternals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	179	284	
==>ternals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	89	187	
==>e Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	89	187	
==>e Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6294	6462	
==>...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6294	6462	
==>...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6294	6462	
==>...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	867	1002	
==>multidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	867	1002	
==>multidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25286	25397	
==>egmust is now supplied always.  The tests that use regmust have a
 * heuristic that disables the test if it usua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8329	8426	
==>erl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8329	8426	
==>erl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8329	8426	
==>erl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39356	39476	
==>ay;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39356	39476	
==>ay;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39356	39476	
==>ay;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1492	1590	
==>ll_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1492	1590	
==>ll_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1492	1590	
==>ll_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1436	1533	
==>non-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1436	1533	
==>non-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1436	1533	
==>non-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4614	4734	
==>== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8091	8211	
==>== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7084	7204	
==>== any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Rel <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23317	23437	
==>val $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2786	2907	
==>ass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2786	2907	
==>ass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2786	2907	
==>ass;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13442	13658	
==>dle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13442	13658	
==>dle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13442	13658	
==>dle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candida <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	443	587	
==>6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	443	587	
==>6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	443	587	
==>6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4943	5048	
==>= \$_[0]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print $code;
    eval($code) || die "$@";
  } <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11261	11354	
==>on) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $t <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11261	11354	
==>on) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16228	16338	
==>d < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the medi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16228	16338	
==>d < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the medi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3623	3732	
==>object(digit => 0);
  });

  # gpos (last global match end)
  $self->add_handler('\G' => sub {
    my ($S, $cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7965	8105	
==>t all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $assoc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7965	8105	
==>t all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $assoc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7965	8105	
==>t all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $assoc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9160	9273	
==>ight ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9160	9273	
==>ight ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16452	16563	
==>($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $self->{line}       = 0;
    $self->{saw_heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4873	4993	
==>'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4873	4993	
==>'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4873	4993	
==>'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36856	36952	
==>s of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: string with co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33145	33240	
==>n we have to translate a
message, the corresponding Template modules will be searched in the ord <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33145	33240	
==>n we have to translate a
message, the corresponding Template modules will be searched in the ord <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	813	918	
==>r
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code $value = { $^v.[1] }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5082	5178	
==>n or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5082	5178	
==>n or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3640	3754	
==>ren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7117	7231	
==>ren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6074	6188	
==>ren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5120	5215	
==>The editor routine is passed the current object in the recursion and
the wanted namespace ("MyNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5120	5215	
==>The editor routine is passed the current object in the recursion and
the wanted namespace ("MyNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5120	5215	
==>The editor routine is passed the current object in the recursion and
the wanted namespace ("MyNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5526	5653	
==>>{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5526	5653	
==>>{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23714	23808	
==>e implementation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is esse <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	705	809	
==>X - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6834	6937	
==>1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    retu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6834	6937	
==>1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	248	373	
==>to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	248	373	
==>to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10455	10576	
==>cause of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "test.pl:runperl(): 'switches' must be an ARRAYRE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1479	1642	
==>TTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1479	1642	
==>TTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13141	13246	
==>]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13141	13246	
==>]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13141	13246	
==>]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13085	13179	
==>ists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13085	13179	
==>ists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5017	5232	
==>($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5017	5232	
==>($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5017	5232	
==>($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7686	7801	
==>ublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7686	7801	
==>ublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7686	7801	
==>ublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2683	2790	
==>HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $hea <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2683	2790	
==>HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $hea <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2156	2279	
==>m_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our I <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26417	26531	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26696	26810	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3912	4013	
==>tered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3912	4013	
==>tered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3912	4013	
==>tered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8476	8578	
==>hy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hierar <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8476	8578	
==>hy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hierar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3491	3620	
==>indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3491	3620	
==>indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3491	3620	
==>indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10134	10292	
==>ents";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10134	10292	
==>ents";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10134	10292	
==>ents";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #wa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	694	795	
==>/notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normali <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	694	795	
==>/notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normali <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34682	34774	
==>ject__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	76	167	
==>lock cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _ze <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	76	167	
==>lock cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _ze <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4736	4844	
==>new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4573	4678	
==>new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31666	31818	
==>{ 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' => $e->get(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23358	23456	
==>if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and som <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27910	28008	
==>if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and som <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1124	1248	
==>\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1124	1248	
==>\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1124	1248	
==>\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || % <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3097	3198	
==>!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3097	3198	
==>!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3177	3278	
==>!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3058	3264	
==>e;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elem <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3058	3264	
==>e;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elem <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	883	983	
==>$devs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4995	5116	
==>, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4995	5116	
==>, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrac <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3186	3287	
==>$matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2456	2555	
==>l ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2456	2555	
==>l ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2268	2366	
==>resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@o <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2268	2366	
==>resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10856	10954	
==>al "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    po <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1291	1441	
==>x:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1291	1441	
==>x:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5595	5696	
==>skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5595	5696	
==>skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7119	7220	
==>skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5264	5365	
==>one ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5264	5365	
==>one ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5264	5365	
==>one ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::spl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2905	3018	
==>}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3045	3158	
==>}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8823	8929	
==>dent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	202	304	
==>tUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::I <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	96	198	
==>tUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21851	21940	
==>SUB-CLASSING

I will present two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::And <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11020	11190	
==>$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11020	11190	
==>$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11020	11190	
==>$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2854	3000	
==>", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2854	3000	
==>", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2854	3000	
==>", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3579	3685	
==>ctory method used to create a specific class instances which
perform the Test::Builder::Test::Base role.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3579	3685	
==>ctory method used to create a specific class instances which
perform the Test::Builder::Test::Base role.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5776	5882	
==>ctory method used to create a specific class instances which
perform the Test::Builder::Test::Base role.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3820	3953	
==>1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3820	3953	
==>1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3820	3953	
==>1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38861	38971	
==>the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38861	38971	
==>the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38861	38971	
==>the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8789	8896	
==>m'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8785	8892	
==>m'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3232	3355	
==>,          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3232	3355	
==>,          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3232	3355	
==>,          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == In <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5818	5958	
==>test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Pe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5818	5958	
==>test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7342	7482	
==>test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1913	2041	
==>nce => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__->add_ru <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	739	831	
==>Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	739	831	
==>Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13202	13331	
==>n though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13202	13331	
==>n though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13202	13331	
==>n though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	225	324	
==>l5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[1]-1, 0, [ $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4213	4303	
==>%handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4213	4303	
==>%handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30394	30489	
==>esemble those of the original. 
The anonymous function in the argument C<$transformer> is invoke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34946	35040	
==>esemble those of the original.
The anonymous function in the argument C<$transformer> is invoke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34128	34222	
==>esemble those of the original.
The anonymous function in the argument C<$transformer> is invoke <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3650	3782	
==>/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	955	1049	
==>::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	955	1049	
==>::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12304	12403	
==>_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=sh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12304	12403	
==>_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=sh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12304	12403	
==>_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	883	996	
==>object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6905	7004	
==>ate %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = sp <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6905	7004	
==>ate %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13602	13723	
==>ub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13602	13723	
==>ub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20730	20827	
==>nals::Disabled::use ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::use($module);
    P <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8097	8231	
==>=> chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8097	8231	
==>=> chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    " <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13471	13588	
==>_;

    if( my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/ ) {
        $self->{max}  = $max;
        assert( $self->{ma <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	753	856	
==>oter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@! <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	753	856	
==>oter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@! <==
3	/Users/nnunley/pugs/util/package-osx.pl	7369	7466	
==>::Spec::CPAN.3pm
        /usr/local/man/man3/Perl6::Spec::Concurrency.3
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9802	9907	
==>elf.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9802	9907	
==>elf.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12997	13094	
==>s them as though they were methods.  They return two
values, their numeric value, and a format str <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19335	19449	
==>ze(pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9743	9840	
==>ersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9743	9840	
==>ersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26819	26917	
==>g::Types::overload;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25419	25513	
==>ta and the licenses
of the other components concerned, provided that you include the source
cod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25419	25513	
==>ta and the licenses
of the other components concerned, provided that you include the source
cod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13508	13618	
==>ned $handler;
    $handler->($x);
}

my $as_array_complain = sub { Carp::carp("p6_as_array called on $_[0]"); u <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	791	892	
==>::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILN <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	791	892	
==>::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILN <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2338	2509	
==>ix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2JS Array.pm and S29draft.pod's List::z <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20687	20809	
==>AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule ExpressionStatement :words {  # see <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1335	1507	
==>:Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BU <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1335	1507	
==>:Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BU <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2827	2926	
==>tins - table of prelude replacement relevant to the perl backend

=head1 SYNOPSIS

    use Blondie:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5105	5216	
==>$code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5105	5216	
==>$code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5105	5216	
==>$code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2000	2132	
==>tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5477	5609	
==>tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4407	4539	
==>tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2144	2252	
==>cher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2144	2252	
==>cher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2144	2252	
==>cher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	388	485	
==>b: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	388	485	
==>b: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	388	485	
==>b: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13774	13902	
==>}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13774	13902	
==>}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13774	13902	
==>}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonic <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5074	5197	
==>can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5074	5197	
==>can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7289	7392	
==>reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->generic_reduce($app);

	my ($thunk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24324	24437	
==>@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24324	24437	
==>@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24324	24437	
==>@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1990	2087	
==>ile> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1990	2087	
==>ile> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4128	4238	
==>oesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4128	4238	
==>oesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4128	4238	
==>oesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19408	19497	
==>6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19408	19497	
==>6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19408	19497	
==>6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	351	455	
==>s, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	351	455	
==>s, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	351	455	
==>s, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2238	2336	
==>umber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2238	2336	
==>umber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2238	2336	
==>umber(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6160	6312	
==>{
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6160	6312	
==>{
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there i <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1565	1679	
==>ng Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" })) <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1565	1679	
==>ng Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" })) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7187	7325	
==>D>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7187	7325	
==>D>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1130	1240	
==>nd;
}

our Int multi Num::round_half_down_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1005	1117	
==>>name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1005	1117	
==>>name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1005	1117	
==>>name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3911	4011	
==>b name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3911	4011	
==>b name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3911	4011	
==>b name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7620	7786	
==>t it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7632	7798	
==>t it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $t <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	738	829	
==>:All;
use Regexp::Common;
use Data::Dumper;

# --------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2467	2588	
==>comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2651	2772	
==>comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2118	2225	
==>es
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8019	8161	
==>o from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8019	8161	
==>o from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8019	8161	
==>o from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3551	3668	
==>f($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3551	3668	
==>f($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3551	3668	
==>f($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	493	619	
==>que_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	698	824	
==>que_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	754	880	
==>que_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	85	176	
==>--------------------------------------
## Mini Meta-Model with explicit EigenClasses
## ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	108	199	
==>---------------
## Mini Meta-Model with explicit EigenClasses
## --------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18381	18597	
==>..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18381	18597	
==>..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18381	18597	
==>..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1022	1131	
==>ub ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	981	1088	
==>ub ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	889	1010	
==>) }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	889	1010	
==>) }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	889	1010	
==>) }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:< <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5566	5691	
==>es collection
        my @alts = @{ $self->registered_alternatives };
        
        ### check if we're the 'prefered' packa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17611	17722	
==>" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$MET <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	72	172	
==>p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

require 'p6rule.pl';
require 'emit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1606	1726	
==>"Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1606	1726	
==>"Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1606	1726	
==>"Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4147	4248	
==>n1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4147	4248	
==>n1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2290	2435	
==>n->{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2380	2474	
==>y calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
Enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2380	2474	
==>y calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
Enc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3063	3175	
==>'code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3063	3175	
==>'code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16783	16889	
==>lyze()> contain the following
information:

  passing           true if the whole test is considered a pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1964	2066	
==>ion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1964	2066	
==>ion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1964	2066	
==>ion by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9569	9785	
==>ear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9569	9785	
==>ear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9569	9785	
==>ear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	497	601	
==>ctorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	497	601	
==>ctorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4322	4418	
==>p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_ran <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	366	502	
==>this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	355	481	
==>this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7336	7449	
==>D) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7336	7449	
==>D) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8024	8134	
==>ss \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$inde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8012	8122	
==>ss \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$inde <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10071	10170	
==>lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($isInvocant, $isOption <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	5	100	
==>e Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	5	100	
==>e Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	85	180	
==>e Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1821	1960	
==>"Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1821	1960	
==>"Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1821	1960	
==>"Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2362	2453	
==>s[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1086	1176	
==>6::Internals::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14720	14821	
==>'add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14720	14821	
==>'add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14720	14821	
==>'add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12362	12504	
==>ub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12362	12504	
==>ub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12362	12504	
==>ub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13776	13910	
==>\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /x <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13776	13910	
==>\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /x <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4560	4705	
==>'left',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'lis <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4229	4337	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4229	4337	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23080	23194	
==>ey of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27632	27746	
==>ey of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26409	26523	
==>ey of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17495	17625	
==>ined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17495	17625	
==>ined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17495	17625	
==>ined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dis <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7620	7764	
==>&{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7620	7764	
==>&{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3178	3282	
==>:CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3178	3282	
==>:CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3178	3282	
==>:CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11138	11245	
==>=> $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) { <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11138	11245	
==>=> $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36646	36737	
==>(?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	269	362	
==>->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	269	362	
==>->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	269	362	
==>->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3441	3541	
==>)/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4577	4676	
==>)/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28468	28563	
==>t have $2 as an unsuccessful match.
//x isnt being handled (re_rewrite step?)
lots of stuff with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	10	104	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	10	104	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	10	104	
==>/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5569	5703	
==>n (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5569	5703	
==>n (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5569	5703	
==>n (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = funct <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4593	4691	
==>j.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4593	4691	
==>j.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	796	938	
==>CE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	796	938	
==>CE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	796	938	
==>CE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_ca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19460	19572	
==>sub p6_eval {
    my($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$RO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9795	9903	
==>wanted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dep <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11272	11380	
==>wanted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3639	3827	
==>1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3639	3827	
==>1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3639	3827	
==>1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12496	12619	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12496	12619	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12496	12619	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6227	6334	
==>ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method st <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6227	6334	
==>ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method st <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	136	232	
==>PORT];
use base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub constants { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18023	18129	
==>a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param => <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15627	15720	
==>ng from all characters to the corresponding entities
(and vice versa, respectively).

=head1 A <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15627	15720	
==>ng from all characters to the corresponding entities
(and vice versa, respectively).

=head1 A <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3335	3431	
==>ore complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3335	3431	
==>ore complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	814	924	
==>er become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	814	924	
==>er become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	814	924	
==>er become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    va <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2458	2553	
==>let C<runtests()> display the standard output of the script
without altering the behavior otherw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1061	1159	
==>er->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;

	#export the funtions
	P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32570	32662	
==>onfiguration, its
main purpose is to convert Message objects on demand into user-readable
mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32570	32662	
==>onfiguration, its
main purpose is to convert Message objects on demand into user-readable
mes <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7842	7943	
==>ft.pod 8651.  In the List section.
# Prim.hs has a different return type.  List instead of Scalar.
# \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33440	33537	
==>ation contains only tuples that are in
all of the source Relations.  This method has an alias name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37990	38087	
==>ation contains only tuples that are in
all of the source Relations.  This method has an alias name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17527	17620	
==>x> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17527	17620	
==>x> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17527	17620	
==>x> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17943	18079	
==>)->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($resul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17943	18079	
==>)->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($resul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17943	18079	
==>)->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6557	6671	
==>ive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6557	6671	
==>ive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6557	6671	
==>ive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<-- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4872	4974	
==>umber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4872	4974	
==>umber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6396	6498	
==>umber of tests to run.

Those are the only valid arguments.

You must have a plan set before you can re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24928	25053	
==>n_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25207	25332	
==>n_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	462	563	
==>6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1327	1424	
==>getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1327	1424	
==>getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1327	1424	
==>getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2539	2691	
==>rs } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($pat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2539	2691	
==>rs } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($pat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12	132	
==>::Emitter::Perl6::Perl5;

# p6-ast to perl5 emitter

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::In <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	52	160	
==>n cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	52	160	
==>n cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3460	3572	
==>ath);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3460	3572	
==>ath);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3460	3572	
==>ath);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3240	3351	
==>_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3240	3351	
==>_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3240	3351	
==>_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30587	30755	
==>tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30587	30755	
==>tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30587	30755	
==>tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10827	10937	
==>ribute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10827	10937	
==>ribute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10827	10937	
==>ribute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7004	7142	
==>elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7004	7142	
==>elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7004	7142	
==>elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1207	1317	
==>s)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1207	1317	
==>s)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1207	1317	
==>s)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2317	2462	
==>rity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2317	2462	
==>rity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2317	2462	
==>rity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Sli <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16661	16799	
==>pping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20138	20276	
==>pping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6205	6331	
==>Body""pIsMulti""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     trave <==
3	/Users/nnunley/pugs/util/config_h.pl	943	1039	
==>sing ghc-msys
if ($^O =~ /MSWin32|mingw|msys|cygwin/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n" <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1032	1128	
==>od

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinato <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1032	1128	
==>od

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinato <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	383	470	
==>$Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs_args);
BEGIN{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	301	481	
==>lass >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	301	481	
==>lass >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	301	481	
==>lass >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10979	11075	
==>ill be returned.

A multi-valued field will be returned as separate values in list
context and wi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24395	24491	
==>:Example class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attrib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10979	11075	
==>ill be returned.

A multi-valued field will be returned as separate values in list
context and wi <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	840	936	
==>le provides information about the server your CGI is running on. It also 
attempts to provide som <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	840	936	
==>le provides information about the server your CGI is running on. It also 
attempts to provide som <==
3	/Users/nnunley/pugs/t/packages/Test.pm	226	345	
==>E }

}

sub cant_see_pkg {
    return My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19123	19216	
==>tically if using the header(),
push_header() or init_header() methods to set the referrer.

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19123	19216	
==>tically if using the header(),
push_header() or init_header() methods to set the referrer.

=i <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3123	3256	
==>.9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0.. <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3123	3256	
==>.9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0.. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1443	1541	
==>::X1::Root";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3290	3400	
==>Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3290	3400	
==>Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3290	3400	
==>Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2910	3015	
==>=> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2910	3015	
==>=> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2910	3015	
==>=> $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14623	14746	
==>n::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14623	14746	
==>n::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14623	14746	
==>n::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_ini <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4907	5012	
==>\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4907	5012	
==>\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] co <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	519	618	
==>s", "Set", { companion => "superclasses" });

# every Meta::Class is a part of an object model objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2608	2828	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2608	2828	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2608	2828	
==>e => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bles <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9311	9410	
==>tities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mu <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9311	9410	
==>tities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mu <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2040	2132	
==>ENV{PUGS_RUNTIME} eq 'PERL5' or $ENV{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	281	380	
==>on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	281	380	
==>on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	281	380	
==>on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3862	3971	
==>nce in @args, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3862	3971	
==>nce in @args, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3862	3971	
==>nce in @args, it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	839	978	
==>wo hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely t <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	839	978	
==>wo hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11379	11490	
==>ift;
    my $node = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed($node));
    
    $self->can($ty <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2293	2572	
==>ading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5770	6049	
==>ading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4700	4979	
==>ading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	912	1009	
==>ox.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	912	1009	
==>ox.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	912	1009	
==>ox.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	262	366	
==>&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	262	366	
==>&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	25	120	
==>ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2180	2319	
==>x:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            Ap <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16190	16285	
==>tclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else tou <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20616	20711	
==>tclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else tou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5005	5110	
==>print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5005	5110	
==>print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5005	5110	
==>print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(com <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12063	12178	
==>start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12063	12178	
==>start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1324	1435	
==>_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7375	7535	
==>_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7375	7535	
==>_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7375	7535	
==>_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4632	4787	
==>_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs po <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4632	4787	
==>_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs po <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10182	10297	
==>= $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	642	881	
==>nt( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	643	882	
==>nt( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15332	15512	
==>rams->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('$repr'   => 'str'), 
                              symbol->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3059	3161	
==>"&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3059	3161	
==>"&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3059	3161	
==>"&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1208	1308	
==>blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1208	1308	
==>blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1208	1308	
==>blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1113	1269	
==>bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1113	1269	
==>bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14415	14521	
==>aryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <UnaryExpression>
    | <'voi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20957	21055	
==>PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
wil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20957	21055	
==>PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
wil <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	640	737	
==>ublisher {
    use Set;
    has Set $.subscriptions handles :add_subscription<insert> :remove_subs <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2673	2825	
==>end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2673	2825	
==>end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($en <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	75	162	
==>rray::pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5477	5595	
==>rimitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n² <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5477	5595	
==>rimitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n² <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5477	5595	
==>rimitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n² <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1997	2147	
==>2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1997	2147	
==>2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1997	2147	
==>2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1465	1559	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1465	1559	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1465	1559	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9324	9439	
==>t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9324	9439	
==>t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9324	9439	
==>t remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1557	1650	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1557	1650	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1557	1650	
==>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4829	4968	
==>op{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4829	4968	
==>op{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	282	390	
==>lf = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12453	12556	
==>alar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12453	12556	
==>alar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12453	12556	
==>alar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6332	6430	
==>be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6332	6430	
==>be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6332	6430	
==>be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anyt <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	894	1016	
==>* $builddir/$path ] ) and die "$?";
        chdir $builddir or die "Could not chdir to $builddir: $!";
    }

    ### build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5525	5630	
==>ntent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5525	5630	
==>ntent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	124	228	
==>rl6::Core::Nil;

package list;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed' <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	123	223	
==>e => "blau",
	Drink => "Martini"
);

say "$wer hat einen $haustier";
say "$wer mag @obst[0] und @obst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13386	13494	
==>} }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13386	13494	
==>} }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13386	13494	
==>} }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	82	186	
==>ent {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	82	186	
==>ent {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join ch <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10025	10121	
==>nt().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10025	10121	
==>nt().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22275	22379	
==>,$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23577	23672	
==>igration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23577	23672	
==>igration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4061	4190	
==>>{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4061	4190	
==>>{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4061	4190	
==>>{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5649	5778	
==>ndler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19729	19824	
==>.authorization_basic

This method is used to get or set an authorization header that use the
"Ba <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19729	19824	
==>.authorization_basic

This method is used to get or set an authorization header that use the
"Ba <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3784	3979	
==>= Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3784	3979	
==>= Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25067	25161	
==>ported upon request.

=head1 DIAGNOSTICS

=over 4

=item C<All tests successful.\nFiles=%d,  Te <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	364	530	
==>umfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	364	530	
==>umfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26492	26580	
==>Language::Prolog::Yaswi qw(:query :interactive :load :assert :context :run);
#$Language:: <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	272	368	
==>y to be an example Perl6 module that will
run and install and have all the distribution component <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4322	4417	
==>et]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4330	4421	
==>d2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4580	4671	
==>d2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40844	40938	
==>Locale::KeyedText that you are willing to distribute,
because that is a practical way of sugges <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40844	40938	
==>Locale::KeyedText that you are willing to distribute,
because that is a practical way of sugges <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	917	1008	
==>eading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13515	13604	
==>haracter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=hea <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13515	13604	
==>haracter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1792	1889	
==>ested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1792	1889	
==>ested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21693	21801	
==>rule BreakStatement :words {  # see 12.8
      <'break'><no_LineTerminator_here><Identifier>? <';'>
}
rule Re <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5018	5113	
==>nfig> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read ( <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5018	5113	
==>nfig> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15151	15274	
==>eturn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15151	15274	
==>eturn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15151	15274	
==>eturn 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35068	35202	
==>t_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35068	35202	
==>t_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35068	35202	
==>t_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9391	9520	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9391	9520	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9391	9520	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14169	14321	
==>d };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14169	14321	
==>d };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14169	14321	
==>d };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	466	579	
==>eturn $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7698	7801	
==>elf: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7698	7801	
==>elf: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3406	3532	
==>if ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3406	3532	
==>if ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3406	3532	
==>if ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9973	10117	
==>: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::st <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18929	19024	
==>s fully capable of modelling anything in the real world accurately, and it
can support a complet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18929	19024	
==>s fully capable of modelling anything in the real world accurately, and it
can support a complet <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29697	29794	
==>re the same as those of another,
or are the same as the unaffected invocant's attributes.  This me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34249	34346	
==>re the same as those of another,
or are the same as the unaffected invocant's attributes.  This me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33413	33510	
==>re the same as those of another,
or are the same as the unaffected invocant's attributes.  This me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8799	8936	
==>name = _mangle_ident( $n->{name}{bareword} );

        my $export = '';
        for my $attr ( @{$n->{attribute}} ) {
            if ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7489	7587	
==>rmalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~norm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7489	7587	
==>rmalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~norm <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2699	2809	
==>atches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2699	2809	
==>atches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2779	2889	
==>atches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2587	2703	
==>of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6064	6180	
==>of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4994	5110	
==>of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method si <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4305	4604	
==>llo there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1369	1470	
==>/>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1369	1470	
==>/>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	1911	2011	
==>.pl
        /usr/local/lib/perl5/site_perl/runjs.pl /Library/Perl/5.8.6/runjs.pl
        /usr/local/l <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3316	3413	
==>Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3316	3413	
==>Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1879	1985	
==>r(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1879	1985	
==>r(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1879	1985	
==>r(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4635	4741	
==>inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4635	4741	
==>inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4635	4741	
==>inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5548	5648	
==>h     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5548	5648	
==>h     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8615	8742	
==>rrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8615	8742	
==>rrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33990	34081	
==>works like Perl's
standard C<map> operator. It returns a new Relation::Example whose attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2826	2932	
==>->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2826	2932	
==>->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2826	2932	
==>->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1417	1520	
==>te($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1417	1520	
==>te($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1417	1520	
==>te($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8815	8911	
==>>

This event handles the entire verbatim string.

=item I<string>

This event processes raw stri <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8815	8911	
==>>

This event handles the entire verbatim string.

=item I<string>

This event processes raw stri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6709	6837	
==>tat       Script's wait status
    max         Number of individual tests
    failed      Number which failed
    percent     Per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13560	13658	
==>der.  The field names have case as suggested by HTTP spec, and the
names are returned in the recomm <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13560	13658	
==>der.  The field names have case as suggested by HTTP spec, and the
names are returned in the recomm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1151	1324	
==>= $TRUE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }
}

sub or : method {
    my ($self, $block) = @_;
    (blessed($block) && <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	569	691	
==>hift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <af <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	569	691	
==>hift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <af <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16127	16265	
==>il out!\s*(.*)/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_s <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	861	992	
==>rsty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have process <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	861	992	
==>rsty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have process <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5649	5753	
==>=> $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5649	5753	
==>=> $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .e <==
3	/Users/nnunley/pugs/util/package-osx.pl	809	906	
==>usr/local/lib/libparrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        /usr/local/lib/libp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10058	10188	
==>data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10058	10188	
==>data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1 <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1160	1255	
==>l package
name (C<Type--Perl6>) disambiguates this case.

Types have a dispatch table; this is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1890	2003	
==>|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1890	2003	
==>|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1890	2003	
==>|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    comman <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	623	720	
==>however, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1080	1175	
==>he capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1080	1175	
==>he capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19818	19943	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19818	19943	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19818	19943	
==>IVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($ot <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	719	834	
==>$x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard f <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	719	834	
==>$x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6439	6534	
==>out sub-classing this module.

=head1 DESCRIPTION

This module parses regular expressions (regex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4780	4962	
==>difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8257	8439	
==>difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7259	7441	
==>difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5057	5170	
==>ethod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5057	5170	
==>ethod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5057	5170	
==>ethod));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2802	2941	
==>e eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2802	2941	
==>e eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2802	2941	
==>e eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37191	37296	
==>ion where the heading of one source relation is a
full subset of another, the result degenerates to a C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41740	41845	
==>ion where the heading of one source relation is a
full subset of another, the result degenerates to a C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41363	41468	
==>ion where the heading of one source relation is a
full subset of another, the result degenerates to a C<se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	315	466	
==>from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	315	466	
==>from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	315	466	
==>from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_mac <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5656	5758	
==>ls if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5656	5758	
==>ls if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7180	7282	
==>ls if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19009	19131	
==>( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19009	19131	
==>( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19009	19131	
==>( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8782	8909	
==>less \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8770	8897	
==>less \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $progr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	113	236	
==>per;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4704	4820	
==>tput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4704	4820	
==>tput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4704	4820	
==>tput}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14491	14627	
==>p;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14491	14627	
==>p;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14491	14627	
==>p;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1129	1231	
==>>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1129	1231	
==>>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1129	1231	
==>>fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9025	9140	
==>pture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9218	9333	
==>pture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	839	937	
==>.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	839	937	
==>.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	839	937	
==>.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3451	3586	
==>elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3451	3586	
==>elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3451	3586	
==>elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3221	3323	
==>make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3221	3323	
==>make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3221	3323	
==>make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2347	2472	
==>ym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

sub import {
    my $c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2316	2420	
==>t { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_open <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2316	2420	
==>t { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_open <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4165	4280	
==>$content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4165	4280	
==>$content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Pro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3167	3275	
==>{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3167	3275	
==>{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	29	123	
==>lesInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use warnings;
use constant PGE_OPT <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14283	14384	
==>>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14283	14384	
==>>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5128	5272	
==>od = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>( <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5128	5272	
==>od = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4944	5060	
==>ext if $self->has_method($method_name);
            # otherwise ... add the method in 
            $self->add_method( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1197	1312	
==>0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6439	6535	
==>rser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buff <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6439	6535	
==>rser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buff <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15946	16055	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19423	19532	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2861	2958	
==><?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11383	11599	
==>to' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11383	11599	
==>to' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3029	3163	
==>onfig::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	731	832	
==>_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	731	832	
==>_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1438	1533	
==>aded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this mo <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1438	1533	
==>aded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this mo <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	53	153	
==>rithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::To <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	53	153	
==>rithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::To <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2837	2953	
==>assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (ma <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	407	507	
==>ODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHO <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	407	507	
==>ODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5943	6061	
==>ontent_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5943	6061	
==>ontent_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTT <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28654	28752	
==>to make modules having a specific simple API that will serve their role.

For example, inside the t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28654	28752	
==>to make modules having a specific simple API that will serve their role.

For example, inside the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	684	794	
==>Value}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	684	794	
==>Value}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	684	794	
==>Value}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8226	8449	
==>$tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8226	8449	
==>$tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8226	8449	
==>$tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5423	5542	
==>ore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5423	5542	
==>ore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5423	5542	
==>ore {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	978	1093	
==>ge PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	978	1093	
==>ge PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	978	1093	
==>ge PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4460	4628	
==>ount++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4460	4628	
==>ount++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4460	4628	
==>ount++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22053	22148	
==>.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22053	22148	
==>.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#ch <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24162	24249	
==>6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9899	10047	
==>re( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10178	10326	
==>re( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7411	7523	
==>urn $o->mk_eater_for_re('\d') if $re eq '\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24134	24279	
==>{
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24134	24279	
==>{
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24134	24279	
==>{
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13113	13283	
==>:Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13113	13283	
==>:Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13113	13283	
==>:Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3728	3920	
==>le' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3728	3920	
==>le' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3728	3920	
==>le' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1034	1152	
==>410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1034	1152	
==>410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity T <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1317	1420	
==>.h>
#include <gc.h>

typedef int IV;
typedef FILE * GV;
typedef char * PV;

int prel_printf (GV f, const <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2521	2628	
==>uilder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2521	2628	
==>uilder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1302	1407	
==>eturn $S->object(bound => nbound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1017	1122	
==>thod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1017	1122	
==>thod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12276	12370	
==>), !.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], brackets( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5082	5230	
==>] }\n";
    }
    $prec = "P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6015	6121	
==>nting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6015	6121	
==>nting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	239	344	
==>a' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	239	344	
==>a' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5331	5429	
==>ned && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5331	5429	
==>ned && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5331	5429	
==>ned && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12887	13063	
==>"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1726	1823	
==>ype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compile <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1726	1823	
==>ype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1347	1445	
==>xportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1347	1445	
==>xportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1347	1445	
==>xportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2041	2149	
==>ents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2041	2149	
==>ents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2041	2149	
==>ents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	49	160	
==>nt $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

meth <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	49	160	
==>nt $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9017	9125	
==>...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9017	9125	
==>...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9017	9125	
==>...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2638	2737	
==>** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2638	2737	
==>** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2638	2737	
==>** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3420	3539	
==>l_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3420	3539	
==>l_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3420	3539	
==>l_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1452	1575	
==>installation => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Ins <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1328	1444	
==>capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1328	1444	
==>capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	959	1064	
==>$retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	959	1064	
==>$retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	959	1064	
==>$retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4259	4354	
==>on; see the cipher module's documentation for 
details.  The C<mode> value indicates the operati <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4259	4354	
==>on; see the cipher module's documentation for 
details.  The C<mode> value indicates the operati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	423	535	
==>rom and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	423	535	
==>rom and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7518	7626	
==>hars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internals_m:perl5/\A(\d+)(?:th| <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11042	11210	
==>s}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1673	1765	
==>set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1673	1765	
==>set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28309	28419	
==>). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12533	12633	
==>h Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12533	12633	
==>h Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosett <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16405	16497	
==>ver annotation went with this attribute when it's declared"
$::Class->add_method('find_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16405	16497	
==>ver annotation went with this attribute when it's declared"
$::Class->add_method('find_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16405	16497	
==>ver annotation went with this attribute when it's declared"
$::Class->add_method('find_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1386	1509	
==>B circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1386	1509	
==>B circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1386	1509	
==>B circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4843	4950	
==>_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4843	4950	
==>_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5433	5540	
==>_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2768	2891	
==>niverse );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2768	2891	
==>niverse );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_un <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2786	2886	
==>aker::WriteMakefile(%args);

    $self->fix_up_makefile();
}

sub fix_up_makefile {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1960	2085	
==>unction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1960	2085	
==>unction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1960	2085	
==>unction (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19986	20081	
==>rating system itself, to have the user language data in separate
files (usually XML files I thin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19986	20081	
==>rating system itself, to have the user language data in separate
files (usually XML files I thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2215	2314	
==>hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autoviv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2215	2314	
==>hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autoviv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2215	2314	
==>hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autoviv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8937	9035	
==>b circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8937	9035	
==>b circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8937	9035	
==>b circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2196	2304	
==>ete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2196	2304	
==>ete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2196	2304	
==>ete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1200	1338	
==>e !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub liv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1200	1338	
==>e !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub liv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1200	1338	
==>e !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub liv <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1484	1585	
==>ic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number() <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1484	1585	
==>ic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1564	1665	
==>ic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2711	2805	
==>%{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2711	2805	
==>%{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2711	2805	
==>%{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('ad <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24596	24680	
==>0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	889	981	
==>lPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	889	981	
==>lPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1065	1181	
==>PES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1065	1181	
==>PES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1065	1181	
==>PES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9531	9619	
==>s::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9531	9619	
==>s::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9531	9619	
==>s::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_us <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	385	504	
==>um::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	385	504	
==>um::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	280	377	
==>.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	280	377	
==>.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	280	377	
==>.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5797	5914	
==>attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5797	5914	
==>attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5797	5914	
==>attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attrib <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10186	10314	
==>} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10180	10308	
==>} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5861	5973	
==>.o );
    #push @o, 'src/UnicodeC.o' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1188	1318	
==>rrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Righ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1188	1318	
==>rrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Righ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1188	1318	
==>rrently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Righ <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	928	1058	
==>@stack.push(int($y / $x)) }
            default  { die "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5468	5574	
==>e' flag and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5293	5397	
==>e' flag and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13095	13222	
==>> sub { "". %{$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_[0] },
      glob  => sub { "". ${$_[0]} }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11776	11872	
==>=item $h.push_header( $field, $value )

Add a new field value for the specified header field.  Pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11776	11872	
==>=item $h.push_header( $field, $value )

Add a new field value for the specified header field.  Pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4790	4898	
==>{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAME <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4790	4898	
==>{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7084	7190	
==>'%:methods' => { foo => sub { 'rFoo::foo' } }
);
ok($rFoo->does('Role'), '... rFoo now does Role');

my $rB <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17406	17519	
==>match {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start (0..$len) {
    local $X::str = $s;
    local $X:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9280	9372	
==>e (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12757	12849	
==>e (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2056	2175	
==>my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

met <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2056	2175	
==>my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

met <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4326	4426	
==>d Prelude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to precompile t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2922	3051	
==>.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2922	3051	
==>.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2922	3051	
==>.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6350	6464	
==>h )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6362	6476	
==>h )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2654	2774	
==>ping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6131	6251	
==>ping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5061	5181	
==>ping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11833	11947	
==>lication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11833	11947	
==>lication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11833	11947	
==>lication of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3285	3381	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3285	3381	
==>ectory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	262	357	
==>*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	262	357	
==>*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14767	14876	
==>to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14767	14876	
==>to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14767	14876	
==>to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
u <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6078	6205	
==>G {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' { <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6078	6205	
==>G {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' { <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6875	7046	
==>wnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = def <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6875	7046	
==>wnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = def <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8864	8972	
==>$pugs), ldd("$parrot_path/parrot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	308	444	
==>one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	308	444	
==>one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	308	444	
==>one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9903	10032	
==>f->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9903	10032	
==>f->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9903	10032	
==>f->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9909	10018	
==>w(
			$a,
			type::operator::arrow->new(
				type::operator::nary->new(list => $a),
				type::operator::nary-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	930	1028	
==>tfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub cat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	930	1028	
==>tfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3159	3303	
==>' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3159	3303	
==>' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3159	3303	
==>' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3935	4069	
==>lock for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3935	4069	
==>lock for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3935	4069	
==>lock for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17085	17204	
==>y Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17085	17204	
==>y Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5706	5955	
==>ub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5706	5955	
==>ub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5706	5955	
==>ub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12231	12342	
==>Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12231	12342	
==>Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12231	12342	
==>Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29043	29144	
==>l6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29043	29144	
==>l6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29043	29144	
==>l6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16436	16539	
==>SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16436	16539	
==>SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16436	16539	
==>SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	654	788	
==>ict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	654	788	
==>ict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	165	252	
==>some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	165	252	
==>some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	165	252	
==>some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.lang <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1089	1309	
==>without
                             # MM support (or proxy accessors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	168	264	
==>operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	168	264	
==>operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1009	1135	
==>sion.dispatch($event, *@args);
      $result;
    });
    
    # And enter the runloop again.
    ./:step(); #/#--vim
  }
}

cl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9081	9191	
==>F!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9081	9191	
==>F!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8745	8903	
==>self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8745	8903	
==>self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8745	8903	
==>self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just pac <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2806	2926	
==>pt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<en <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2806	2926	
==>pt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<en <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3710	3809	
==>$cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S29draft.po <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10101	10215	
==>r ( @derived_switches ) {
        $_ = qq["$_"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
    }
    return joi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18481	18578	
==>$bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18481	18578	
==>$bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6961	7078	
==>var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: " + msg) };
EOF
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6961	7078	
==>var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: " + msg) };
EOF
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6961	7078	
==>var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert: " + msg) };
EOF
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5029	5136	
==>LHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LVal <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5029	5136	
==>LHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LVal <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1933	2040	
==>LHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LVal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1766	1892	
==>le; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1766	1892	
==>le; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1766	1892	
==>le; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10048	10152	
==>rn unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10327	10431	
==>rn unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' ) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12201	12297	
==>n the same relative order they had in C<@values>.

If C<$inplace> is specified, the array is sort <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1373	1516	
==>rds(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1373	1516	
==>rds(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	530	633	
==>f;
$::Package = undef;

# for sending messages to an opaque object 
# (very primitive at the moment)
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3064	3187	
==>t needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3064	3187	
==>t needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3064	3187	
==>t needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	272	398	
==>",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	360	486	
==>",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1566	1682	
==>er must be)
    fprime  - an exact first derivative of f (which Newton's method
              uses to update its gues <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14633	14750	
==>_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $self->add_handler <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17576	17680	
==>,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17760	17864	
==>,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9676	9781	
==>$is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9676	9781	
==>$is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9676	9781	
==>$is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7158	7254	
==>this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7158	7254	
==>this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7158	7254	
==>this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4084	4186	
==>(@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4084	4186	
==>(@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4674	4776	
==>(@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3493	3608	
==>"332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3493	3608	
==>"332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %! <==
3	/Users/nnunley/pugs/util/version_h.pl	1988	2094	
==>d...", because
  # our handle for $version_h got slot #0, like STDIN.
  no warnings "io";
  open OUT, "> $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17361	17456	
==>ments platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17361	17456	
==>ments platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17361	17456	
==>ments platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21524	21620	
==>many branches" error wasn't being raised
until the second pass.  Figured out how to improve the g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	251	341	
==>.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	251	341	
==>.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15652	15892	
==>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15652	15892	
==>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15652	15892	
==>push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.ke <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	171	287	
==>= shift(@a);
      my $kludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = $c;
      m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10619	10713	
==>, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10619	10713	
==>, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2483	2632	
==>L
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2483	2632	
==>L
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2483	2632	
==>L
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1796	1890	
==>m->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1796	1890	
==>m->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1796	1890	
==>m->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	422	537	
==>_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	422	537	
==>_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	422	537	
==>_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23871	23966	
==>undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23871	23966	
==>undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23871	23966	
==>undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1143	1245	
==>f); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1143	1245	
==>f); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1143	1245	
==>f); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed bindi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2605	2720	
==>real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2593	2708	
==>real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capt <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17964	18063	
==>& $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pkg_re_tests::test(sub{my($mods,$re)=@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3337	3439	
==>^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"lite <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3521	3623	
==>^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"lite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10673	10788	
==>);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10673	10788	
==>);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10673	10788	
==>);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1233	1354	
==>= <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1233	1354	
==>= <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1233	1354	
==>= <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2886	2988	
==>dd_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	917	1019	
==>dd_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') i <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	347	446	
==>hes a given $callback to @:events.
  my method enqueue (Code $callback) {
    push @:events, $callba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1866	2017	
==>ort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_[3]->{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7402	7494	
==>ert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7402	7494	
==>ert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2016	2125	
==>eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2016	2125	
==>eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2016	2125	
==>eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9976	10091	
==>},

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disco <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9976	10091	
==>},

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disco <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1301	1409	
==>m("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16044	16139	
==>er.  In some
situations, a shared program component may raise such a condition, and one
applicat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16044	16139	
==>er.  In some
situations, a shared program component may raise such a condition, and one
applicat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7702	7797	
==>rhash = *node::variable;
sub node::empty_list {
    return "()";
}
sub node::immediate_statement <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14762	14847	
==>ntities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> re <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14762	14847	
==>ntities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5647	5770	
==>! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5647	5770	
==>! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5647	5770	
==>! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22187	22288	
==>can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26739	26840	
==>can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25444	25545	
==>can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11251	11359	
==>Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11251	11359	
==>Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11251	11359	
==>Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3542	3654	
==>_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2585	2694	
==>_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6518	6618	
==>EEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_AL <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10953	11072	
==>filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $laye <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19794	19889	
==>a Relation object is determined when it is constructed, and the object can
not be changed afterw <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24346	24441	
==>a Relation object is determined when it is constructed, and the object can
not be changed afterw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6765	6869	
==>ed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6765	6869	
==>ed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6765	6869	
==>ed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1629	1741	
==>rn if $Result1 ~~ JSX::false;
    if $O.property_value.exists($P) {
        $O.property_value($P) = $V;
        r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4147	4230	
==>face::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Int <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4147	4230	
==>face::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Int <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2134	2231	
==>{ Compress::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2395	2489	
==>ction ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2395	2489	
==>ction ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3722	3853	
==>{
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3722	3853	
==>{
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3722	3853	
==>{
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1744	1847	
==>t = JIB::Installation->new;

=cut

### XXX do some smart caching here -- but can't just make it a single <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1666	1793	
==>") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1666	1793	
==>") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1666	1793	
==>") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3601	3712	
==>we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3601	3712	
==>we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3601	3712	
==>we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4835	4988	
==>from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4835	4988	
==>from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4835	4988	
==>from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($patt <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1565	1685	
==>list equiv...\n";
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -t <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2175	2293	
==>}
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN CO <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2175	2293	
==>}
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12983	13200	
==>y $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12983	13200	
==>y $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12983	13200	
==>y $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1939	2053	
==>aces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1939	2053	
==>aces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1939	2053	
==>aces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	714	818	
==>e::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	714	818	
==>e::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Dat <==
3	/Users/nnunley/pugs/util/package-osx.pl	8438	8535	
==>Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run. <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	716	831	
==>te that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	716	831	
==>te that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1671	1785	
==>to_native . ")";
        if ($methods->exists($label) == $bit::TRUE) {
            #warn "calling method (" . $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	297	407	
==>> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	297	407	
==>> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	297	407	
==>> method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7902	8056	
==>.. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7902	8056	
==>.. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7902	8056	
==>.. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	319	432	
==>e];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1;

### only called from JIB::Packa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1707	1805	
==>s last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1707	1805	
==>s last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4244	4348	
==>turn $S->object(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2827	2930	
==>ze_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2827	2930	
==>ze_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5725	5832	
==>! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5725	5832	
==>! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5725	5832	
==>! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1681	1842	
==>perclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1681	1842	
==>perclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1681	1842	
==>perclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4169	4269	
==>uctor, and when calling these methods you should take care not
to call them in function form by mista <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4169	4269	
==>uctor, and when calling these methods you should take care not
to call them in function form by mista <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4169	4269	
==>uctor, and when calling these methods you should take care not
to call them in function form by mista <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1874	1997	
==>named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1874	1997	
==>named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1204	1309	
==>param;

    return $param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_count_stack} }, <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8383	8502	
==>gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8383	8502	
==>gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1918	2061	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2111	2254	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32628	32724	
==>atching 'close' node into the
walking stack.

The purpose of adding an ending node to the walking <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6332	6435	
==>mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6332	6435	
==>mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6332	6435	
==>mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1815	1929	
==>ds{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1815	1929	
==>ds{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1815	1929	
==>ds{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3013	3136	
==>shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3560	3683	
==>shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : ' <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	189	280	
==>btract($self: Duration $duration) returns Duration {
    $self.new($self.length - $duration. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2910	3029	
==>"${who}::AUTOLOAD"} = $self->autoload;
    $self->preload;

    # Unregister loader and worker packages so subdirs can u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	309	432	
==>elf->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	309	432	
==>elf->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	309	432	
==>elf->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3051	3172	
==>]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3051	3172	
==>]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3051	3172	
==>]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13849	13966	
==>::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13849	13966	
==>::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13849	13966	
==>::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22575	22671	
==>ernals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22575	22671	
==>ernals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22575	22671	
==>ernals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8165	8311	
==>block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4525	4671	
==>block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5374	5520	
==>block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15324	15430	
==>ms}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15324	15430	
==>ms}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15324	15430	
==>ms}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : und <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	297	411	
==>dd_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operato <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9574	9674	
==>p('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some mis <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9632	9732	
==>p('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some mis <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7496	7624	
==>this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	797	925	
==>this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13455	13574	
==>$I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange goto addrange
    $S1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5442	5544	
==>ned $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5442	5544	
==>ned $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5442	5544	
==>ned $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authorit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16586	16696	
==>eturn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16586	16696	
==>eturn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16586	16696	
==>eturn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33555	33684	
==>ray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33555	33684	
==>ray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33555	33684	
==>ray @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	524	652	
==>> 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	524	652	
==>> 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Pro <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5015	5113	
==>_statement  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10053	10153	
==>PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10053	10153	
==>PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10053	10153	
==>PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7334	7438	
==>XX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7334	7438	
==>XX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7334	7438	
==>XX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34148	34242	
==>ion.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38698	38792	
==>ion.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38159	38251	
==>ion.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15441	15552	
==>s 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15441	15552	
==>s 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15441	15552	
==>s 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3166	3288	
==>be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3166	3288	
==>be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3166	3288	
==>be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5555	5662	
==>\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5555	5662	
==>\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5555	5662	
==>\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5543	5662	
==>]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5543	5662	
==>]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5543	5662	
==>]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3086	3197	
==>t argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3086	3197	
==>t argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3086	3197	
==>t argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6502	6618	
==>{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating directory indices
for (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1151	1291	
==>b can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1356	1496	
==>b can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1417	1557	
==>b can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4294	4395	
==>n> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4294	4395	
==>n> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6491	6592	
==>n> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8362	8484	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8362	8484	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8362	8484	
==>) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            ' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9326	9438	
==>arset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9326	9438	
==>arset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2768	2870	
==>b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2768	2870	
==>b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2768	2870	
==>b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4396	4505	
==>te('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4396	4505	
==>te('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4396	4505	
==>te('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5523	5705	
==>{
                return " # use v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1347	1478	
==>T) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1347	1478	
==>T) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4850	4982	
==>e to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4850	4982	
==>e to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4850	4982	
==>e to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5516	5611	
==>ts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5516	5611	
==>ts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skip <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7040	7135	
==>ts (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skip <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2919	3018	
==>cription::Named $subscription) {
            %.subscriptions<$subscrption.name>.remove($subscription <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1556	1644	
==>arent.depth() + 1;
}

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1556	1644	
==>arent.depth() + 1;
}

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6950	7074	
==>args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6950	7074	
==>args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6950	7074	
==>args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20004	20142	
==>' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16425	16563	
==>' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      & <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	892	996	
==>=~ /is looser\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5143	5321	
==>ier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5143	5321	
==>ier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if w <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7907	8003	
==>0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newe <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1154	1272	
==>,  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1154	1272	
==>,  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17638	17727	
==>eXORExpressionNoIn>
    | <BitwiseORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
rul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5775	5882	
==>object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5775	5882	
==>object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26634	26731	
==>ents are included.  This method takes care of building the
proper inheritance for the node; it use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	91	208	
==>0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	91	208	
==>0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	91	208	
==>0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1163	1289	
==>mmediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1368	1494	
==>mmediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21636	21841	
==>p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21636	21841	
==>p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21636	21841	
==>p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7265	7403	
==>") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7265	7403	
==>") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2913	3148	
==>(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7153	7305	
==>op::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7346	7498	
==>op::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifie <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25879	25976	
==>es>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25879	25976	
==>es>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated w <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	339	430	
==>qw($Perl6::Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1186	1288	
==>structor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1186	1288	
==>structor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1186	1288	
==>structor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11467	11558	
==>lspan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20979	21068	
==>normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20979	21068	
==>normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	395	496	
==>il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1923	2024	
==>il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9849	9983	
==>ef' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9849	9983	
==>ef' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9849	9983	
==>ef' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3459	3563	
==>pand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3459	3563	
==>pand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3459	3563	
==>pand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12815	12936	
==>_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12815	12936	
==>_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12815	12936	
==>_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2391	2514	
==>$$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2391	2514	
==>$$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2391	2514	
==>$$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || con <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	679	929	
==>o quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	679	929	
==>o quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosett <==
3	/Users/nnunley/pugs/util/package-osx.pl	3712	3820	
==>man/man3/Perl6::Bible.3pm
        /usr/local/man/man3/Perl6::Bible::A01.3pm
        /usr/local/man/man3/Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4140	4257	
==>[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4140	4257	
==>[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4140	4257	
==>[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	974	1080	
==>ant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	974	1080	
==>ant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	974	1080	
==>ant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	273	360	
==>ttp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	273	360	
==>ttp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	273	360	
==>ttp://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --ib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19082	19187	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19082	19187	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19082	19187	
==>) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3923	4047	
==>red_alternatives( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( meta => $_, installatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4443	4539	
==>tch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4693	4789	
==>tch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9508	9612	
==>=~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1021	1125	
==>methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1021	1125	
==>methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26316	26416	
==>=

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5872	6002	
==>,
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5685	5779	
==>url)

Get document headers. Depending on the context, C<head> returns
the following values:

=o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5685	5779	
==>url)

Get document headers. Depending on the context, C<head> returns
the following values:

=o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	253	408	
==>name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	253	408	
==>name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1958	2091	
==>content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1958	2091	
==>content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	280	405	
==>) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	280	405	
==>) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	280	405	
==>) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1501	1592	
==>to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_L <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1501	1592	
==>to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_L <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8253	8390	
==>}

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $self->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16511	16607	
==>span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `dif <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16511	16607	
==>span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `dif <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2416	2537	
==>map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2416	2537	
==>map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5414	5586	
==>>{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5426	5598	
==>>{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-comp <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2783	2899	
==>traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = travers <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21423	21517	
==>ive relational database engines with minimal effort.

This might seem strange to somebody who h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21423	21517	
==>ive relational database engines with minimal effort.

This might seem strange to somebody who h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23517	23610	
==>::Example is entirely object-oriented; you use it by
creating objects from its member classes, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3436	3539	
==>osetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3436	3539	
==>osetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1762	1884	
==>gify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1762	1884	
==>gify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1762	1884	
==>gify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	893	991	
==>nsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	893	991	
==>nsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11195	11368	
==>tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11195	11368	
==>tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11195	11368	
==>tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17786	17893	
==>= shift;

    use Data::Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest::SHA1::sha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15355	15452	
==>r any of its components are intended for widespread use
then it needs to account for a variance of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15355	15452	
==>r any of its components are intended for widespread use
then it needs to account for a variance of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13305	13529	
==>@params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = () <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13305	13529	
==>@params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = () <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13305	13529	
==>@params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2241	2354	
==>"$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2241	2354	
==>"$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2241	2354	
==>"$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3745	3839	
==>::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3745	3839	
==>::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3745	3839	
==>::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argumen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6673	6829	
==>direct_object>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4311	4431	
==>patcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4311	4431	
==>patcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4311	4431	
==>patcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2686	2778	
==>rn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2686	2778	
==>rn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2686	2778	
==>rn undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7908	8052	
==>tch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7908	8052	
==>tch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7908	8052	
==>tch) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3561	3662	
==>pDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3561	3662	
==>pDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3561	3662	
==>pDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_va <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1207	1303	
==>> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm is <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1207	1303	
==>> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm is <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14190	14340	
==>rts the
result back in C<%test> which will contain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12715	12839	
==>numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12715	12839	
==>numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2080	2175	
==>e),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2080	2175	
==>e),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2080	2175	
==>e),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:| <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1836	1942	
==>{
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1836	1942	
==>{
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Exp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24796	24900	
==>,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5777	5876	
==>location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5777	5876	
==>location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5777	5876	
==>location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6405	6568	
==>s', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6405	6568	
==>s', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6405	6568	
==>s', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @ar <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	660	800	
==>( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $ <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	660	800	
==>( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5586	5698	
==>not write to META.yml: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_from { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3576	3689	
==>}
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3576	3689	
==>}
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3662	3763	
==>cause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3662	3763	
==>cause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3662	3763	
==>cause they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stri <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	765	889	
==>n ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($clas <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10398	10493	
==>rce_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10456	10551	
==>rce_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1062	1154	
==>->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1062	1154	
==>->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1062	1154	
==>->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	514	620	
==>arams{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = '' un <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	620	720	
==>y $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	620	720	
==>y $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14098	14236	
==>class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14098	14236	
==>class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14098	14236	
==>class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6312	6418	
==>mental(word_boundary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_elemental(R)         --> p56_ch <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9533	9628	
==>::Model does not declare any subroutines or export such.

The usual way that Rosetta::Model indi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9533	9628	
==>::Model does not declare any subroutines or export such.

The usual way that Rosetta::Model indi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31224	31315	
==>Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy use <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31224	31315	
==>Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	653	769	
==>w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw kee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	653	769	
==>w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw kee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	653	769	
==>w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw kee <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1717	1828	
==>| [ \[ <rule> \] { return { rule => $_[0]{rule}(), } } ]
        | [ <metasyntax> { return { rule => $_[0]{metas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12378	12478	
==>header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12378	12478	
==>header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17574	17698	
==>mpreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2767	2877	
==>cat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing insta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2767	2877	
==>cat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing insta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2767	2877	
==>cat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing insta <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9811	9910	
==>rt
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9811	9910	
==>rt
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entitie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	812	909	
==>s class supports PMC compilation.
#
# The hope is that this will allow interoperability with modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	812	909	
==>s class supports PMC compilation.
#
# The hope is that this will allow interoperability with modul <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1853	1944	
==>\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re_va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6515	6620	
==>rmine if requested template module is already loaded.
        # It may have been embedded in a core progra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6515	6620	
==>rmine if requested template module is already loaded.
        # It may have been embedded in a core progra <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	13	129	
==>.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	14	130	
==>.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	14	130	
==>.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1462	1569	
==>.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1462	1569	
==>.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compil <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5928	6033	
==>alar') {
	my $o = get_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4249	4345	
==>est_test( Str $description? )>

Compares the receivied and expected lines from the previously run <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4249	4345	
==>est_test( Str $description? )>

Compares the receivied and expected lines from the previously run <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4329	4425	
==>est_test( Str $description? )>

Compares the receivied and expected lines from the previously run <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2109	2264	
==>ude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2326	2481	
==>ude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1636	1780	
==>er',
        other => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19544	19641	
==>in a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. Th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19544	19641	
==>in a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22657	22752	
==>ple is like a Set that exists
over N dimensions rather than one.  The Relation::Example operator <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	74	179	
==>imP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	74	179	
==>imP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	74	179	
==>imP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Most will ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	713	828	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	713	828	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	713	828	
==>my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3062	3219	
==>kage_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	832	929	
==>{ FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	832	929	
==>{ FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	832	929	
==>{ FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15311	15416	
==>hois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15311	15416	
==>hois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1083	1187	
==>:Value::Object;

class JSX::PropertyAttributes {
    has $.ReadOnly;
    has $.DontEnum;
    has $.DontDe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2318	2411	
==>er::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2318	2411	
==>er::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2318	2411	
==>er::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	213	311	
==>ormal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	213	311	
==>ormal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	213	311	
==>ormal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	491	628	
==>each my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	526	663	
==>each my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	491	628	
==>each my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13165	13291	
==>$n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5959	6073	
==>turn;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5971	6085	
==>turn;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1199	1321	
==>pha:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3098	3187	
==>ion($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Ha <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3098	3187	
==>ion($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	208	308	
==>DO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our %hash;

sub rec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18335	18433	
==>splaying to users, easy messages are
better.

I have found that when it comes to getting the most a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18335	18433	
==>splaying to users, easy messages are
better.

I have found that when it comes to getting the most a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1247	1363	
==>ed "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1247	1363	
==>ed "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1247	1363	
==>ed "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1128	1254	
==>'s attributes and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4606	4732	
==>'s attributes and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3518	3644	
==>'s attributes and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	809	956	
==>rn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	809	956	
==>rn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	809	956	
==>rn undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub st <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1442	1570	
==>ath;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1442	1570	
==>ath;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21426	21563	
==>ND {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21426	21563	
==>ND {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21426	21563	
==>ND {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4737	4867	
==>ot sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4737	4867	
==>ot sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4737	4867	
==>ot sure
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1794	1915	
==>sa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1794	1915	
==>sa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1794	1915	
==>sa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2640	2745	
==>t_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2640	2745	
==>t_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2720	2825	
==>t_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	832	983	
==>$key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	832	983	
==>$key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	832	983	
==>$key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	957	1091	
==>return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	957	1091	
==>return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	957	1091	
==>return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8859	8975	
==>4x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8859	8975	
==>4x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8859	8975	
==>4x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6449	6566	
==>' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6449	6566	
==>' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6449	6566	
==>' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8156	8317	
==>[],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8156	8317	
==>[],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8156	8317	
==>[],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7253	7417	
==>mplemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7253	7417	
==>mplemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7253	7417	
==>mplemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	955	1065	
==>)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	955	1065	
==>)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	955	1065	
==>)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25922	26025	
==>1 extra attribute:

=over

=item C<$!heading> - B<Relation::Example Heading>

Set of Str - This contains <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2580	2670	
==>child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children retur <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2580	2670	
==>child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1228	1328	
==>line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1228	1328	
==>line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1228	1328	
==>line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndCo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19221	19378	
==>$other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19221	19378	
==>$other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19221	19378	
==>$other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5365	5503	
==>ed...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5365	5503	
==>ed...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5365	5503	
==>ed...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3292	3396	
==>acro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

r <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3292	3396	
==>acro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25956	26049	
==>ree->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a),
		$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	355	485	
==>f = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	355	485	
==>f = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	355	485	
==>f = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	267	385	
==>t     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Mediu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	267	385	
==>t     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Mediu <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	40	131	
==>ess written over Test::Harness::Straps.
# Hacked up from mini_harness.plx in the Test::Harne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10038	10190	
==>lems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10038	10190	
==>lems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10038	10190	
==>lems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11350	11442	
==>ilder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test::Base <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1806	1894	
==>ilder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1806	1894	
==>ilder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14187	14290	
==>ain::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14187	14290	
==>ain::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14187	14290	
==>ain::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8313	8439	
==>e us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12844	12948	
==>postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12844	12948	
==>postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12844	12948	
==>postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $l <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1659	1823	
==>tring $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    whe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1659	1823	
==>tring $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    whe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4535	4626	
==>ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_ra <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	396	509	
==>CodePoint    is Char;
class Byte         is Char, Number;

macro LChar () { "LanguageChar" }
macro Grf   () { "Gra <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7940	8037	
==>'item')>

This event is fired when an '=item' directive is reached, the next event fired will be
a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7940	8037	
==>'item')>

This event is fired when an '=item' directive is reached, the next event fired will be
a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4983	5104	
==>et_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4983	5104	
==>et_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	870	978	
==>lass = shift;
	bless {
		defs => [],
		defined_nodes => Set::Object->new,
		names => {},
	}, $class;
}

sub r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5765	5865	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5844	5944	
==>$cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    retur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1019	1111	
==>->config->_alternatives );
}

=head2 $file = $inst->registered_alternatives_file

=cut

sub r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3066	3409	
==>_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Exter <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3066	3409	
==>_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Exter <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10207	10310	
==>pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char_class( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2390	2567	
==>";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2701	2872	
==>";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2701	2872	
==>";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1803	1980	
==>n for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1803	1980	
==>n for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7012	7113	
==>ate an instance:

  use Regexp::Parser;
  my $parser = Regexp::Parser->new;

=head2 Setting a Regex

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	937	1041	
==>PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	937	1041	
==>PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	937	1041	
==>PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8192	8371	
==>xed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8192	8371	
==>xed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8192	8371	
==>xed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junct <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6046	6165	
==>_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6046	6165	
==>_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3040	3159	
==>il   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3504	3623	
==>il   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	564	663	
==>ecomp(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setup_output {
    if ($Config{output} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1005	1104	
==>IL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1005	1104	
==>IL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1005	1104	
==>IL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1354	1535	
==>ht);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          windo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1354	1535	
==>ht);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          windo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1354	1535	
==>ht);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          windo <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1562	1695	
==>t in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1562	1695	
==>t in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        f <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16443	16533	
==>tionalExpression>
    | <EqualityExpression> <'!=='> <RelationalExpression>
}
rule Equality <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5063	5232	
==>ed;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index " <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	417	519	
==>s on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	417	519	
==>s on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3160	3276	
==>nless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $ele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3160	3276	
==>nless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $ele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3160	3276	
==>nless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5039	5173	
==>others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5039	5173	
==>others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5039	5173	
==>others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9692	9812	
==>5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9692	9812	
==>5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9692	9812	
==>5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5527	5626	
==>l is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Boo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5585	5684	
==>l is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Boo <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4326	4424	
==>* }
rule metasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub> }
rule metasyn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4094	4204	
==>tion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4094	4204	
==>tion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4094	4204	
==>tion ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	134	257	
==>se File::Basename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8330	8432	
==>continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse = <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8330	8432	
==>continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25087	25228	
==>t position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	269	371	
==>block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_bloc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	269	371	
==>block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13888	14005	
==>tcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13888	14005	
==>tcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13888	14005	
==>tcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $d <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9075	9198	
==>(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	380	479	
==>(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	456	555	
==>(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1325	1440	
==>$k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1325	1440	
==>$k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1325	1440	
==>$k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27673	27769	
==>).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32225	32321	
==>).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31317	31413	
==>).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2326	2427	
==>bjects in the Perl 6 class system.

These objects are changed when you define new traits of Classes,
R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8120	8253	
==>ar m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8120	8253	
==>ar m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8120	8253	
==>ar m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7104	7200	
==>dule only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=ba <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7104	7200	
==>dule only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=ba <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1141	1341	
==>e($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1141	1341	
==>e($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %even <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	978	1137	
==>al wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );
}

{
my $r = 
    concat( 
        alternation( constant('a'), constant('b') ),
        ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1691	1805	
==>ls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1691	1805	
==>ls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1691	1805	
==>ls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7392	7490	
==>ut data until they have an entire block, then cipher 
the block and return the new ciphertext (or p <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	95	193	
==>Der berüchtigte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7392	7490	
==>ut data until they have an entire block, then cipher 
the block and return the new ciphertext (or p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23717	23816	
==>h can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is genera <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23717	23816	
==>h can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is genera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9271	9368	
==>oo_singleton_method' => sub { 
   '$iFoo::test_iFoo_singleton_method' 
});

is($iFoo->test_iFoo_si <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1084	1203	
==>rection= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5680	5781	
==>il, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_li <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5680	5781	
==>il, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2505	2605	
==>TestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2505	2605	
==>TestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2505	2605	
==>TestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2652	2784	
==>IL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2652	2784	
==>IL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2652	2784	
==>IL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_requi <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4152	4256	
==>line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11t <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	307	420	
==>r internal 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=hea <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4393	4488	
==>6($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4393	4488	
==>6($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	487	598	
==>s on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	487	598	
==>s on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	487	598	
==>s on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	394	511	
==>defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	394	511	
==>defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	394	511	
==>defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5258	5399	
==>a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5258	5399	
==>a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5258	5399	
==>a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12509	12618	
==>die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12509	12618	
==>die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12509	12618	
==>die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5878	6008	
==>rrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5878	6008	
==>rrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5878	6008	
==>rrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1260	1402	
==>TRY_AGAIN:
        if (my $method = $_table->{$message}) {
            return $method->($self, @_);
        }
        else {
            if (ex <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2458	2561	
==>ignature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2458	2561	
==>ignature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8736	8838	
==>es6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8736	8838	
==>es6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8736	8838	
==>es6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefaul <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8722	8852	
==>str target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose:
    parse_error(mob, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18025	18122	
==>ement it; that is, multiple DBMS objects will not
have references to each other at a level visible <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18025	18122	
==>ement it; that is, multiple DBMS objects will not
have references to each other at a level visible <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8403	8510	
==>ro is not implemented.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Corou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10318	10414	
==>e of the correct
container type (eg, hash vs array).  The deferred validations are performed
on d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10318	10414	
==>e of the correct
container type (eg, hash vs array).  The deferred validations are performed
on d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7423	7519	
==>turn sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7423	7519	
==>turn sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7423	7519	
==>turn sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3903	4078	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3903	4078	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3903	4078	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5685	5790	
==>lice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5685	5790	
==>lice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5685	5790	
==>lice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10089	10219	
==>e for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10089	10219	
==>e for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	217	333	
==>strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2811	3081	
==>> 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks ca <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	382	486	
==>te: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@m <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	382	486	
==>te: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15450	15566	
==>ialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15450	15566	
==>ialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15450	15566	
==>ialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2712	2826	
==>p) {
        $args{dist} = $self->admin->preop;
    }

    ExtUtils::MakeMaker::WriteMakefile(%args);

    $self->f <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2502	2599	
==>e, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2502	2599	
==>e, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4422	4522	
==>->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4422	4522	
==>->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4422	4522	
==>->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	516	633	
==>s
#       to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	516	633	
==>s
#       to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25755	25865	
==>, with its keys being the old names and its values the new names.
This method will fail if any C<$mapping> keys <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30307	30417	
==>, with its keys being the old names and its values the new names.
This method will fail if any C<$mapping> keys <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29273	29383	
==>, with its keys being the old names and its values the new names.
This method will fail if any C<$mapping> keys <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2177	2292	
==>Bool) { true }
        multi method as (--> Array) { @.strings }
        multi method as (--> Named) { $.name => sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11506	11619	
==>e::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11872	11985	
==>e::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4526	4634	
==>print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($fl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4309	4412	
==>print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($fl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20607	20697	
==>connect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3534	3672	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3534	3672	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3534	3672	
==>hod_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	712	832	
==>::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	712	832	
==>::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4020	4156	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4020	4156	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4020	4156	
==>'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1820	1915	
==>ary.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softwa <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1820	1915	
==>ary.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softwa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32926	33023	
==>odify the walking stack before the node
is returned.  Here is the walk() method for all the quanti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40902	41013	
==>..)

Unconditionally throws a warning.  Primarily useful when you need to
throw a warning that can only be figur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3040	3143	
==>tle</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3040	3143	
==>tle</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1431	1588	
==>fined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1431	1588	
==>fined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	500	597	
==>eturn VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all those stuff liv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6085	6180	
==>lf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6085	6180	
==>lf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6085	6180	
==>lf->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2639	2755	
==>urns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6116	6232	
==>urns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5046	5162	
==>urns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

met <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4807	4938	
==>le ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4666	4797	
==>le ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            w <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4529	4621	
==>eft => $self->left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $self);
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36840	36941	
==>on (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41389	41490	
==>on (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41012	41113	
==>on (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29414	29538	
==>Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29414	29538	
==>Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	238	350	
==>Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2536	2635	
==>sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2536	2635	
==>sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2536	2635	
==>sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1550	1668	
==>:IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1550	1668	
==>:IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1550	1668	
==>:IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5683	5795	
==>ype eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5683	5795	
==>ype eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6273	6385	
==>ype eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    } <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	576	673	
==>= $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	576	673	
==>= $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16157	16240	
==>not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re),F0,F0,B0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6992	7118	
==>},
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

=pod
    
    my @list        = LoadF <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3526	3632	
==>n, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3526	3632	
==>n, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24928	25021	
==>)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24928	25021	
==>)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4621	4725	
==>skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4621	4725	
==>skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6818	6922	
==>skip and TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2082	2225	
==>_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2082	2225	
==>_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	374	500	
==>(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/( <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	558	654	
==>ngerson. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3882	3977	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:< <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3882	3977	
==>ub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2126	2305	
==>if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2126	2305	
==>if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2126	2305	
==>if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _in <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8564	8659	
==>of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8622	8717	
==>of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	874	975	
==>ub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	874	975	
==>ub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	874	975	
==>ub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all posi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1103	1204	
==>obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1103	1204	
==>obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1103	1204	
==>obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_ob <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	83	247	
==>~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	83	247	
==>~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1144	1351	
==>s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1144	1351	
==>s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	22	121	
==>from src/Pugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritance or a juncti <==
3	/Users/nnunley/pugs/util/package-osx.pl	1209	1317	
==>history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle =~ /p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7504	7596	
==>self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) return <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7504	7596	
==>self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	581	681	
==>method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	581	681	
==>method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while p <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12161	12288	
==>/a>";
      push @{$link_info->{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = encode_entities($ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6512	6623	
==>t() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6512	6623	
==>t() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14182	14289	
==>classes'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14182	14289	
==>classes'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14182	14289	
==>classes'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8844	8955	
==>e_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword sem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8844	8955	
==>e_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword sem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11298	11411	
==>tch::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    #print "Code <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	181	277	
==>c::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perld <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	181	277	
==>c::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perld <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2962	3124	
==>tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2962	3124	
==>tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2962	3124	
==>tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10770	10932	
==>pander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7111	7273	
==>pander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7960	8122	
==>pander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	106	213	
==>ft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	106	213	
==>ft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	106	213	
==>ft);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	497	610	
==>rl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	497	610	
==>rl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	497	610	
==>rl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11130	11259	
==>1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11130	11259	
==>1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11130	11259	
==>1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4756	4935	
==>0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4756	4935	
==>0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4756	4935	
==>0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1251	1369	
==>_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1251	1369	
==>_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1251	1369	
==>_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy o <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6043	6146	
==>ontains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6043	6146	
==>ontains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3855	4008	
==>";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1004	1137	
==>pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1004	1137	
==>pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30016	30117	
==>handler installed, and call it if there is.
I don't want atom to handle ')', so the handler is:

  $se <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3664	3785	
==>n' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3664	3785	
==>n' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	514	635	
==>n' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7188	7307	
==>ve {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7188	7307	
==>ve {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7188	7307	
==>ve {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16628	16727	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16628	16727	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16628	16727	
==>e
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOB <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7054	7228	
==>um
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7054	7228	
==>um
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5784	5886	
==>d character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4702	4877	
==>Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if mul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4702	4877	
==>Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if mul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24109	24204	
==>lation::Example object is an unordered set of tuples, each of which is an
unordered set of named <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4649	4771	
==>@!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4649	4771	
==>@!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6401	6498	
==>lti sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6401	6498	
==>lti sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:< <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	910	1006	
==>y bad to have both a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14214	14327	
==>unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14214	14327	
==>unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14214	14327	
==>unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num: <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	284	391	
==>er;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_of_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3534	3630	
==>ad time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide func <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3534	3630	
==>ad time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide func <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	549	748	
==>> 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            al <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7617	7707	
==>IL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7675	7765	
==>IL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4468	4601	
==>urn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4468	4601	
==>urn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4468	4601	
==>urn 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # in <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6031	6148	
==>d_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6031	6148	
==>d_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8839	8936	
==>($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type) { "should not appe <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12236	12351	
==>of open3.

    multi sub open3 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10568	10660	
==>as that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10568	10660	
==>as that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30145	30237	
==>he 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], app <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34697	34789	
==>he 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], app <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33870	33962	
==>he 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], app <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7296	7395	
==>E_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	916	1041	
==>y $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	916	1041	
==>y $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	916	1041	
==>y $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declara <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26011	26103	
==>olated into the
human-readable version.  Each variable name is a machine-readable short
strin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26011	26103	
==>olated into the
human-readable version.  Each variable name is a machine-readable short
strin <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	249	337	
==>${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Lieblingsdrink ist $lie <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41089	41182	
==>ure, and provided sample usage and patch
code, that supports embedding of Template modules int <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41089	41182	
==>ure, and provided sample usage and patch
code, that supports embedding of Template modules int <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45183	45269	
==>s->send('new');
$::Package->send('superclasses' => list->new($::Object));

$::Package-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4156	4242	
==>);
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4156	4242	
==>);
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4156	4242	
==>);
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	787	891	
==>------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	787	891	
==>------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	787	891	
==>------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15562	15688	
==>00); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15562	15688	
==>00); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4639	4751	
==>complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4639	4751	
==>complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5926	6035	
==>&$c,$noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2640	2735	
==>he base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2640	2735	
==>he base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18363	18452	
==>lORExpression>
    | <LogicalORExpression> <'?'> <AssignmentExpression> <':'> <AssignmentE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8318	8476	
==>n Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8318	8476	
==>n Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8318	8476	
==>n Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1602	1711	
==>Name}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1602	1711	
==>Name}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1602	1711	
==>Name}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1609	1726	
==>isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1609	1726	
==>isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1609	1726	
==>isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrappe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22115	22337	
==>)
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22394	22616	
==>)
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $mat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9563	9662	
==>> '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16856	16947	
==>aid in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
inter <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16856	16947	
==>aid in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
inter <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7970	8062	
==>elf: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7970	8062	
==>elf: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2293	2388	
==>backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2293	2388	
==>backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13531	13693	
==>ned $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13531	13693	
==>ned $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13531	13693	
==>ned $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13228	13372	
==>ro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9414	9558	
==>ro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10250	10394	
==>ro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22692	22800	
==>$xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22692	22800	
==>$xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22692	22800	
==>$xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9874	9966	
==>return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9874	9966	
==>return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9874	9966	
==>return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1578	1695	
==>]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1566	1683	
==>]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 un <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	71	172	
==>has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:methods;

method new(Str $name) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	603	707	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	603	707	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	603	707	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6831	6936	
==>le()



### internals - move to module documentation



Rules, just like other Perl 6 values, exists in 'b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6599	6700	
==>le()

### internals - move to module documentation

Rules, just like other Perl 6 values, exists in 'b <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1349	1442	
==>uri     = "http://m19s28.vlinux.de/iblech/pugs/grub.tar.bz2";
my $kernel_local = "vmlinuz";
my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	858	976	
==>);

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	858	976	
==>);

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	858	976	
==>);

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1090	1207	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1090	1207	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1090	1207	
==>",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21529	21639	
==>rror(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handlers - handlers for Perl 5 regexes

= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11067	11169	
==>iphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11067	11169	
==>iphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ci <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47365	47513	
==>));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new(' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8265	8380	
==>s;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,exec_callba <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	87	184	
==>use Blondie::Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19941	20031	
==>ix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19941	20031	
==>ix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19941	20031	
==>ix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($x <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	455	723	
==>ft;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	455	723	
==>ft;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                wh <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4021	4112	
==>, Z) --> p56_quantified_op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantif <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2302	2489	
==>it(0);
    }
    unless (-f "$exename.exe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$_;
          }
         }
        else {
      war <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13244	13339	
==>Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13244	13339	
==>Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1768	1881	
==>pt_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1611	1702	
==>b =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/E <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1611	1702	
==>b =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	612	711	
==>n-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	612	711	
==>n-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28141	28234	
==>)->describe,"\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Lan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9889	10024	
==>y->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9889	10024	
==>y->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9889	10024	
==>y->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6374	6493	
==>sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6374	6493	
==>sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6374	6493	
==>sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3755	3858	
==>ed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3755	3858	
==>ed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5952	6055	
==>ed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2416	2532	
==>efined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2416	2532	
==>efined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2416	2532	
==>efined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	546	646	
==>False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	546	646	
==>False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start <==
3	/Users/nnunley/pugs/util/package-osx.pl	8051	8139	
==>/local/man/man3/Perl6::Spec::Package.3pm
        /usr/local/man/man3/Perl6::Spec::Rule.3p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2311	2455	
==>ce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2311	2455	
==>ce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2311	2455	
==>ce structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21403	21518	
==>CONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11208	11306	
==>e in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Opera <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11208	11306	
==>e in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Opera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8408	8517	
==>{
    return Relation::Example.new(
        heading => $heading,
        body => set( $!body.values.map:{ $rep <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5867	5965	
==><JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.in <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5867	5965	
==><JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.in <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	302	430	
==>ute {
    my $self = shift;
    my $prog = shift;
    $self->reduce($prog);
}

sub can_reduce { 1 }

sub generic_reduce {
	my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7199	7302	
==>e constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Par <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7199	7302	
==>e constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Par <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3321	3436	
==>pping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6798	6913	
==>pping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5755	5870	
==>pping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7750	7970	
==>( $n );
            return " " . _emit( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7678	7822	
==>me' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7678	7822	
==>me' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	570	702	
==>{ ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	570	702	
==>{ ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	570	702	
==>{ ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	469	577	
==>{
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	469	577	
==>{
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator( <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1827	1926	
==>irect port, the api got cleaned up a bit. :)
Some features are still missing but will be added in th <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1827	1926	
==>irect port, the api got cleaned up a bit. :)
Some features are still missing but will be added in th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7629	7748	
==>,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    reb <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7070	7184	
==>,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { reb <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2975	3079	
==>all),
		   $pretty->apply($tree)->layout,
	   );
	} || die "$@\n" . Data::Dumper::Dumper($dag);
}

sub sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1036	1128	
==>of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1036	1128	
==>of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1036	1128	
==>of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10384	10579	
==>t->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10384	10579	
==>t->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10384	10579	
==>t->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13402	13499	
==>all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13402	13499	
==>all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1203	1313	
==>f,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1203	1313	
==>f,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1203	1313	
==>f,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
}

1;
__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7892	8011	
==>rn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7892	8011	
==>rn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7892	8011	
==>rn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	527	651	
==>ed as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	527	651	
==>ed as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs de <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	240	349	
==>e is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	240	349	
==>e is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10268	10396	
==>l "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2301	2417	
==>l "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2301	2417	
==>l "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1691	1836	
==>/;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    re <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1691	1836	
==>/;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    re <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1969	2092	
==>ng but have distinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2480	2581	
==>self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2480	2581	
==>self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2480	2581	
==>self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self e <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	275	398	
==>ib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be d <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	275	398	
==>ib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24498	24594	
==>me and each Mapping value
is the corresponding attribute value.

Every Relation::Example attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14128	14226	
==>or $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14128	14226	
==>or $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14128	14226	
==>or $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7347	7510	
==>eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20701	20811	
==>ser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8295	8407	
==>nished being parsed, next() returns false, and will
return false if called again.

=head2 Building the Tree

If y <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5934	6034	
==>event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remov <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5934	6034	
==>event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remov <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8503	8643	
==>{ return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8219	8355	
==>{ return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1588	1696	
==>::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1588	1696	
==>::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1588	1696	
==>::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22741	22941	
==>m [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22741	22941	
==>m [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22741	22941	
==>m [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15770	15894	
==>hod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15770	15894	
==>hod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15770	15894	
==>hod ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2009	2109	
==>ir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0 <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2009	2109	
==>ir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2492	2592	
==>th_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2492	2592	
==>th_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2492	2592	
==>th_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2010	2107	
==>ew('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2010	2107	
==>ew('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2010	2107	
==>ew('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3833	3947	
==>ps}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3833	3947	
==>ps}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3833	3947	
==>ps}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless de <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1531	1704	
==>lace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                Sor <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	0	102	
==>module HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submet <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	0	102	
==>module HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	670	773	
==>ontainer = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/gro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	670	773	
==>ontainer = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/gro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	670	773	
==>ontainer = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/gro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6089	6205	
==>ook in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be useful to have this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6089	6205	
==>ook in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be useful to have this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6089	6205	
==>ook in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be useful to have this i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9411	9751	
==>d if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10888	11228	
==>d if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1430	1557	
==>ity

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	724	819	
==>t()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	724	819	
==>t()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6683	6809	
==>et, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	750	852	
==>ne is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	750	852	
==>ne is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18664	18758	
==>ample,
this module automatically tries to use slight variations of the nickname in the
login ph <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18664	18758	
==>ample,
this module automatically tries to use slight variations of the nickname in the
login ph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1698	1798	
==>to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1698	1798	
==>to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1698	1798	
==>to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21155	21267	
==>ray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subpats = pad["subpats"]
    pad["subp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5405	5536	
==>m_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5405	5536	
==>m_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5405	5536	
==>m_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1387	1523	
==>my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1387	1523	
==>my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4240	4386	
==>wlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4240	4386	
==>wlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18984	19077	
==>,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1,Ex,E1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	839	945	
==>.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	839	945	
==>.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	839	945	
==>.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  } <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	96	193	
==>();

rmtree($testdir);
mkdir($testdir);
die "Could not create '$testdir':$!" unless -d $testdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1205	1320	
==>e picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1205	1320	
==>e picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1205	1320	
==>e picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5441	5678	
==>has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$curr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7203	7440	
==>has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$curr <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3022	3118	
==>= 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\lib';
    $Config{sitelib} = 'C:\usr\site\li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	565	698	
==>());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	565	698	
==>());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	565	698	
==>());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14071	14183	
==>ranslator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14071	14183	
==>ranslator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	28	152	
==>rser;

use strict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13071	13162	
==>the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1  <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13071	13162	
==>the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15006	15124	
==>_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15006	15124	
==>_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15006	15124	
==>_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to se <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1130	1229	
==>ts::Notification.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method get_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9404	9497	
==>ers.
The headers consist of attribute-value pairs also called fields, which
may be repeated, a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9404	9497	
==>ers.
The headers consist of attribute-value pairs also called fields, which
may be repeated, a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3948	4060	
==>ional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pou <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3948	4060	
==>ional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pou <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28772	28866	
==>...ok
  t/ok................ok
  t/test-harness......ok
  All tests successful.
  Files=4, Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	838	997	
==>t(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	838	997	
==>t(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	838	997	
==>t(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7017	7158	
==>ss = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7017	7158	
==>ss = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7017	7158	
==>ss = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10918	11044	
==>ams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10918	11044	
==>ams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10918	11044	
==>ams' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13339	13432	
==>m
'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; inste <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13339	13432	
==>m
'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; inste <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	984	1077	
==>ray;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	984	1077	
==>ray;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	984	1077	
==>ray;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	383	557	
==>g End_of_Input lookfor
#                 alternate concatenate star list_of 
#                 operator T 
#                 error action test);
# %EXPORT_TAGS = ('all' => \@E <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13082	13177	
==>elds used to describe the content of
a message.  All header field names prefixed with C<Content- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13082	13177	
==>elds used to describe the content of
a message.  All header field names prefixed with C<Content- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	531	647	
==>n";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	531	647	
==>n";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	531	647	
==>n";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2640	2838	
==>ined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2640	2838	
==>ined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5208	5305	
==>e."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5208	5305	
==>e."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5208	5305	
==>e."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_na <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1060	1159	
==>:Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) returns Bool is bui <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1008	1256	
==>:AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Head <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1618	1782	
==>PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1618	1782	
==>PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4977	5088	
==>to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4977	5088	
==>to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4977	5088	
==>to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2130	2241	
==>$x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2130	2241	
==>$x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2130	2241	
==>$x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2754	2965	
==>tch->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => "ANGLE", angle_quoted <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	258	362	
==>rsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like st <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	258	362	
==>rsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11355	11462	
==>::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1811	1910	
==>::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1811	1910	
==>::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3073	3183	
==>ass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3073	3183	
==>ass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3073	3183	
==>ass {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5798	5941	
==>\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5798	5941	
==>\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	95	225	
==>tainers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2237	2343	
==>ie "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2237	2343	
==>ie "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2237	2343	
==>ie "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2434	2548	
==>mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2434	2548	
==>mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2434	2548	
==>mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b") <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15820	15921	
==>->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2217	2314	
==>->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1010	1112	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1010	1112	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1010	1112	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10540	10660	
==>(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10540	10660	
==>(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7459	7567	
==>."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	370	505	
==>e          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	370	505	
==>e          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12715	12922	
==>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12715	12922	
==>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12715	12922	
==>name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2630	2745	
==>body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2630	2745	
==>body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2630	2745	
==>body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = j <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	443	589	
==>elf);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        map { "$_ => $_[0]{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	251	352	
==>der   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	251	352	
==>der   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2798	2921	
==>ng("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2798	2921	
==>ng("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2798	2921	
==>ng("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1264	1381	
==>ests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1264	1381	
==>ests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1344	1461	
==>ests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4989	5151	
==>s =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # - <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4989	5151	
==>s =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # - <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2066	2163	
==>suffers from
convergence problems for some functions, which all Newton methods do.  All
it does in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3092	3261	
==>s defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2992	3156	
==>s defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	259	380	
==>mper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4527	4632	
==>ore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4527	4632	
==>ore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4527	4632	
==>ore.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed obje <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12166	12275	
==>ass methods
    # these may also be called on an instance, but they are not tied to a
    # particular instanc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12166	12275	
==>ass methods
    # these may also be called on an instance, but they are not tied to a
    # particular instanc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21974	22072	
==>ss_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(class_neg(print)     ,C) :- !, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	385	594	
==>de->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "la <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1294	1445	
==>uad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1294	1445	
==>uad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20356	20450	
==>S

The header field name spelling is normally canonicalized including the
'_' to '-' translatio <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20356	20450	
==>S

The header field name spelling is normally canonicalized including the
'_' to '-' translatio <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14674	14759	
==>ric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re_revers <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6656	6775	
==>11),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6656	6775	
==>11),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33725	33869	
==>$_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33725	33869	
==>$_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33725	33869	
==>$_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7798	7901	
==>'$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7798	7901	
==>'$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7798	7901	
==>'$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5327	5443	
==>me_rep_type_pairs_list();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pairs)=@$_;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7554	7670	
==>xinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usage insid <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	959	1070	
==>t_dependencies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t$obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24108	24222	
==>r dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24108	24222	
==>r dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24108	24222	
==>r dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	635	741	
==>hell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	635	741	
==>hell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell mod <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1993	2095	
==>he re_test suite through it, yielding a
#more complete version of t/rules/rules.t.  This could either b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14366	14472	
==>n $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14366	14472	
==>n $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14366	14472	
==>n $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6037	6150	
==>_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6037	6150	
==>_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6037	6150	
==>_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Could <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15756	15923	
==>(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new cal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15756	15923	
==>(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new cal <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1922	2031	
==>*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		return "$node" if Blondie::TypeSafe::An <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6267	6374	
==>);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{ins <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10437	10529	
==>tions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10437	10529	
==>tions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1270	1392	
==>The right hand side must be a core type";    
    return num->new($left->to_native - $right->to_num->to_native());
}

sub m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3240	3330	
==>erl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3457	3547	
==>erl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3366	3553	
==>$class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3366	3553	
==>$class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3366	3553	
==>$class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2576	2686	
==>atchet Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 lite <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3273	3372	
==>n.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Nu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3273	3372	
==>n.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16422	16562	
==>ay->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16422	16562	
==>ay->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16422	16562	
==>ay->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3837	3941	
==>thod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3837	3941	
==>thod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3837	3941	
==>thod label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATC <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4914	5071	
==>dir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4146	4283	
==>dir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8331	8520	
==>$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorte <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8795	8984	
==>$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorte <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26357	26489	
==>>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClassRanges>
}
rule NonemptyClassRanges {  # see 15.10.1
      <Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	720	860	
==>tmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	720	860	
==>tmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	720	860	
==>tmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3506	3651	
==>ly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3506	3651	
==>ly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3506	3651	
==>ly created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only availab <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2215	2353	
==>Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor::new           : <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2099	2198	
==>d of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2099	2198	
==>d of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional i <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12615	12900	
==>= { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             perc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	679	791	
==>rhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)? <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25208	25295	
==>L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IR <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25208	25295	
==>L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15406	15506	
==>ULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15406	15506	
==>ULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15406	15506	
==>ULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33742	33837	
==>nguage like English or French.  The order of these items corresponds to
an individual user's (or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33742	33837	
==>nguage like English or French.  The order of these items corresponds to
an individual user's (or <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24063	24151	
==>DE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'last')) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17364	17469	
==>return a pair with the first param and the second param inside a pair
# hence pair is a -> b -> (a x b). S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5585	5683	
==>thods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=hea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5585	5683	
==>thods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14091	14195	
==>resenting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $te <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14091	14195	
==>resenting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $te <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	264	347	
==>ugs::Compiler::Rule->compile(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4781	4878	
==>d().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protect <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4781	4878	
==>d().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protect <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4781	4878	
==>d().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17038	17127	
==>_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17038	17127	
==>_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17038	17127	
==>_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1473	1588	
==>do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1473	1588	
==>do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2927	3041	
==>do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6524	6663	
==>ell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6524	6663	
==>ell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6524	6663	
==>ell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38638	38761	
==>::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38638	38761	
==>::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38638	38761	
==>::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2096	2221	
==>type => $type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1294	1392	
==>unction, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The s <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1294	1392	
==>unction, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10214	10350	
==>ne => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10214	10350	
==>ne => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10214	10350	
==>ne => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3392	3485	
==>open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Fi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3392	3485	
==>open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1906	2024	
==>sh @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1906	2024	
==>sh @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18241	18334	
==>amples/mini_harness.plx> for an example of use.

=head1 AUTHOR

Michael G Schwern C<< <schwern <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12249	12345	
==>e will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12307	12403	
==>e will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3892	4006	
==>:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3892	4006	
==>:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3892	4006	
==>:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.m <==
3	/Users/nnunley/pugs/util/fixauthors.pl	419	537	
==>2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	268	360	
==>'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	268	360	
==>'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4794	4994	
==>d $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4794	4994	
==>d $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4794	4994	
==>d $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextk <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8270	8377	
==>nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8270	8377	
==>nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curn <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4728	4860	
==>s, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4728	4860	
==>s, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@pa <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16609	16712	
==>ray'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::po <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12772	12873	
==>() }
}

# Support for ="some_file"
# I'm not sure where this is specced, but when I migrated &prefix:< <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15657	15756	
==>ray'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11607	11701	
==>"Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11607	11701	
==>"Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11607	11701	
==>"Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1521	1628	
==>ond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1521	1628	
==>ond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1521	1628	
==>ond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	279	386	
==>~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	279	386	
==>~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	279	386	
==>~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	211	362	
==>f !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	211	362	
==>f !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	211	362	
==>f !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29426	29522	
==>other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33978	34074	
==>other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33142	33238	
==>other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9957	10115	
==>ETHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsuppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9957	10115	
==>ETHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsuppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9957	10115	
==>ETHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsuppor <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10015	10197	
==>. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6356	6538	
==>. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7205	7387	
==>. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7041	7164	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7234	7357	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	265	373	
==>ence point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every instance should have <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	184	295	
==>> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub serve <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	184	295	
==>> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub serve <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16429	16524	
==>example would be reversed into something like C</(\w+(?<!\d))(\d+)/>.
The other difficulty is co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2100	2199	
==>(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2100	2199	
==>(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2100	2199	
==>(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(functio <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3942	4047	
==>p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16133	16230	
==>inly on how Rosetta itself works, and will
not spend much time in providing rationales; you can re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16133	16230	
==>inly on how Rosetta itself works, and will
not spend much time in providing rationales; you can re <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	251	368	
==>ri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	251	368	
==>ri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8969	9084	
==>nce_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8969	9084	
==>nce_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8969	9084	
==>nce_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2905	3026	
==>var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2905	3026	
==>var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2905	3026	
==>var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10478	10660	
==>$text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10478	10660	
==>$text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2174	2269	
==>server (which can be specified below).
Then, it creates a initrd and copies your pugs binary and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3207	3320	
==>metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3207	3320	
==>metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3207	3320	
==>metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1522	1639	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1522	1639	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1522	1639	
==>i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	222	338	
==>:add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	222	338	
==>:add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	222	338	
==>:add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1302	1412	
==>ard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1302	1412	
==>ard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1302	1412	
==>ard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3008	3116	
==>e>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3008	3116	
==>e>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10925	11026	
==>rminfo description, linuxrc, and welcome.p6 to the initrd",
    help   => "Note: You might want to str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3316	3428	
==>=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3316	3428	
==>=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3316	3428	
==>=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16659	16759	
==>odule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), an <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16659	16759	
==>odule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), an <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3948	4053	
==>cant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	122	215	
==>::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::N <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	122	215	
==>::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::N <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1586	1751	
==>] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub bu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1554	1676	
==>bxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1554	1676	
==>bxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5616	5710	
==>s, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5616	5710	
==>s, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5616	5710	
==>s, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2031	2136	
==>my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2031	2136	
==>my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2031	2136	
==>my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1415	1535	
==>opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1415	1535	
==>opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1415	1535	
==>opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19559	19654	
==>xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19559	19654	
==>xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19559	19654	
==>xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1704	1810	
==>= shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's g <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1704	1810	
==>= shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's g <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1940	2046	
==>= shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	528	623	
==>s 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers sim <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	528	623	
==>s 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers sim <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4052	4141	
==>It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4052	4141	
==>It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1495	1598	
==>b report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $lin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1495	1598	
==>b report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $lin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1575	1678	
==>b report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $lin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4471	4572	
==>_type;
		my $return_type = pop @context;

		warn "Unifying paramter types with thunk prototype in $app <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5847	5943	
==>a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5847	5943	
==>a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1113	1312	
==>.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1113	1312	
==>.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BU <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	649	785	
==>r => $dir )
            or error( "Could not create JIB::Repository object from '$dir'" );
        push @inst, $inst;
    }
    
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4909	5034	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4909	5034	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4909	5034	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2688	2788	
==>retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2688	2788	
==>retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2688	2788	
==>retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	226	330	
==>port Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	226	330	
==>port Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	226	330	
==>port Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5027	5140	
==>IL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5027	5140	
==>IL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5027	5140	
==>IL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7869	8022	
==>et)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7869	8022	
==>et)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7869	8022	
==>et)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9557	9667	
==>$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9557	9667	
==>$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3883	3979	
==>->file(file($pkg->file)->basename) && !$force) {
        error($pkg->package . " already exists i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4570	4710	
==>@s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4558	4698	
==>@s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1571	1702	
==>[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1571	1702	
==>[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1571	1702	
==>[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	91	235	
==>Category);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
     <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9924	10063	
==>, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	645	756	
==>SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name} . ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1736	1849	
==>args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1736	1849	
==>args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1736	1849	
==>args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14252	14346	
==>sense to iterate through a continuous span, because the "separation" 
between values would be v <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14252	14346	
==>sense to iterate through a continuous span, because the "separation" 
between values would be v <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5403	5502	
==>optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5403	5502	
==>optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6927	7026	
==>optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	955	1075	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	955	1075	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	955	1075	
==>r' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	553	650	
==>= [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	553	650	
==>= [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	553	650	
==>= [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8225	8344	
==>t;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8225	8344	
==>t;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8225	8344	
==>t;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3987	4085	
==>_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{meta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3987	4085	
==>_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{meta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3987	4085	
==>_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{meta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10687	10817	
==>]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10681	10811	
==>]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23684	23797	
==>e 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:... <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6619	6738	
==>le.
sub gather_results {
    my($self) = @_;
    my $kid;
    for my $pid (@{ $self->{_children} }) {
        my $file = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6483	6577	
==>t().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6483	6577	
==>t().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1245	1361	
==>ns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1245	1361	
==>ns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'i <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8449	8543	
==>ally this is C<$^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4997	5108	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4997	5108	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4997	5108	
==>0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12661	12832	
==>>new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12661	12832	
==>>new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12661	12832	
==>>new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5067	5205	
==>SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5067	5205	
==>SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5067	5205	
==>SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8491	8603	
==>ot $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8491	8603	
==>ot $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	404	507	
==>ic value ($value)";
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1129	1220	
==>er::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1129	1220	
==>er::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3299	3412	
==>ram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3299	3412	
==>ram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3299	3412	
==>ram{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52567	52651	
==>Class->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, $: <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	142	245	
==>* /

use strict;
use warnings;

# Input a string containing a rpn expression.
# Return the evaluated int <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7537	7630	
==>e_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7537	7630	
==>e_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	910	1012	
==><block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget( <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	910	1012	
==><block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37604	37693	
==>ersion of the aforementioned.

=item C<difference (Relation::Example $other!) returns Rela <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8706	8883	
==>ntersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12183	12360	
==>ntersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1467	1564	
==>et_data($_[0], '$<value>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1036	1133	
==>ODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1036	1133	
==>ODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1036	1133	
==>ODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2381	2514	
==>) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2381	2514	
==>) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20206	20306	
==>class_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7207	7324	
==>n),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7207	7324	
==>n),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7207	7324	
==>n),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ packa <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4361	4492	
==>e' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$basename', a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17921	18015	
==>program handling the request.

=item $h.from

This header should contain an Internet e-mail add <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17921	18015	
==>program handling the request.

=item $h.from

This header should contain an Internet e-mail add <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6256	6364	
==>_this;

        ### remove the registered alternative
        $self->remove_registered_alternative( package = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8249	8353	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8249	8353	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3973	4073	
==>match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3973	4073	
==>match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4053	4153	
==>match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1012	1130	
==>TRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1012	1130	
==>TRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1559	1677	
==>TRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5881	5983	
==>> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5881	5983	
==>> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8078	8180	
==>> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18654	18757	
==>ing from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15075	15178	
==>ing from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5683	5774	
==>arlist = join(",",map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1959	2085	
==>0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $to <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1959	2085	
==>0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23695	23810	
==>d $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23695	23810	
==>d $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23695	23810	
==>d $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3258	3398	
==>[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3505	3645	
==>[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	367	476	
==>ype);
}

sub instantiate_container {
    my $self = shift;
    return $self->{type}->new();
}

1;

__END__

=p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2348	2497	
==>qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2660	2804	
==>qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2660	2804	
==>qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2670	2795	
==>_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2670	2795	
==>_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2670	2795	
==>_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9738	9901	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10017	10180	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/util/claim_drift.pl	75	178	
==>c;

# If you have several working directories and they all use a shared DrIFT,
# you need to point symli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32898	33083	
==>ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32898	33083	
==>ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32898	33083	
==>ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20409	20504	
==>icolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that ra <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20409	20504	
==>icolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that ra <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2452	2543	
==>----------------------------------------------

preludeStr :: String
.
    print OUT qq<prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1652	1778	
==>nstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1652	1778	
==>nstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1652	1778	
==>nstant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7606	7795	
==>_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7606	7795	
==>_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7606	7795	
==>_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 ) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	432	534	
==>od from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	432	534	
==>od from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1137	1233	
==>ss is limited to printing out its results.  This makes
analysis of the test results difficult for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2307	2426	
==>'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2307	2426	
==>'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2307	2426	
==>'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2912	3006	
==>confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2912	3006	
==>confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2912	3006	
==>confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14219	14389	
==>lf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14219	14389	
==>lf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14219	14389	
==>lf->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5200	5313	
==>ule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5393	5506	
==>ule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bo <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	224	321	
==>lish
# script, ignoring deeper context, needs lots of
# improvement. Due to regexp's limits, it is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10619	10747	
==>{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24744	24840	
==>urns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29296	29392	
==>urns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4247	4345	
==>ues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4247	4345	
==>ues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4247	4345	
==>ues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2395	2500	
==>_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2395	2500	
==>_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2395	2500	
==>_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7471	7624	
==>_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7471	7624	
==>_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $. <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	171	299	
==>| @default
}

sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2689	2798	
==>d next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2689	2798	
==>d next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	8	112	
==>n-Kontext: '?' liefert true oder false
my $var = 0;
say "ist 0" if $var == 0;
say "ist wahr" if ?$var;
sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	945	1046	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	945	1046	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	945	1046	
==>>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	696	813	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	696	813	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	696	813	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = Strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6734	6838	
==>PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6734	6838	
==>PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6734	6838	
==>PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3708	3814	
==>== 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3708	3814	
==>== 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3708	3814	
==>== 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2409	2533	
==>al];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2409	2533	
==>al];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2409	2533	
==>al];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11823	11920	
==>:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=he <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11823	11920	
==>:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=he <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	115	206	
==>Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1876	1981	
==>$self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1876	1981	
==>$self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1876	1981	
==>$self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1416	1516	
==>ions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1416	1516	
==>ions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1416	1516	
==>ions ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{me <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1475	1631	
==>$input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did no <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1475	1631	
==>$input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2872	2969	
==>g, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2872	2969	
==>g, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3219	3316	
==>g, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1933	2058	
==>ss:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1993	2118	
==>ss:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2230	2337	
==>e
6th line
7th line
8th line
9th line
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8733	8911	
==>[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8733	8911	
==>[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8733	8911	
==>[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21975	22111	
==>h my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21975	22111	
==>h my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21975	22111	
==>h my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3431	3569	
==>,        
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5489	5619	
==>,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4445	4575	
==>,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12178	12297	
==>oot');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12178	12297	
==>oot');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12178	12297	
==>oot');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PI <==
3	/Users/nnunley/pugs/util/grokprims.pl	85	202	
==>my %assoc = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	408	503	
==>er_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	408	503	
==>er_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1052	1184	
==>2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1052	1184	
==>2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1052	1184	
==>2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21756	21858	
==>.  I was getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the field <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	831	921	
==>of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	831	921	
==>of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20724	20826	
==>));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20724	20826	
==>));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20724	20826	
==>));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	765	873	
==>ile($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering the behavior of the st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40247	40338	
==>rsions of Locale::KeyedText that you modify and distribute must carry
prominent notices stat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40247	40338	
==>rsions of Locale::KeyedText that you modify and distribute must carry
prominent notices stat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5785	5889	
==>eturn '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5785	5889	
==>eturn '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16378	16468	
==>,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39389	39507	
==>shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39389	39507	
==>shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39389	39507	
==>shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4670	4790	
==>perclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7393	7513	
==>perclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10138	10284	
==>.= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6479	6625	
==>.= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7328	7474	
==>.= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5293	5390	
==>figuration data

=item write

The C<write> method the file for the properties, and writes it
to di <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5293	5390	
==>figuration data

=item write

The C<write> method the file for the properties, and writes it
to di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20219	20330	
==>r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16640	16751	
==>r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2389	2480	
==>//pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2389	2480	
==>//pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4988	5263	
==>ym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1775	2039	
==>chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # toke <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1775	2039	
==>chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # toke <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5706	5825	
==>ent_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions ---------- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5706	5825	
==>ent_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions ---------- <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	953	1051	
==>rocess_list();
}

exit;

sub process_upload {
  print "Content-Type: text/plain\n\n";

  limit_rate <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	704	811	
==>ash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	704	811	
==>ash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	704	811	
==>ash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1680	1784	
==>>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variabl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1680	1784	
==>>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variabl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1680	1784	
==>>{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	844	953	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	844	953	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	844	953	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4436	4552	
==>$_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4436	4552	
==>$_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4436	4552	
==>$_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $htm <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3160	3440	
==><<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	235	344	
==>er_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	235	344	
==>er_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	235	344	
==>er_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13717	13816	
==>easurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13717	13816	
==>easurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10996	11093	
==>s  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), "\n";
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	177	289	
==>*@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	177	289	
==>*@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	177	289	
==>*@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2007	2143	
==>ft;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2067	2203	
==>ft;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32993	33086	
==>ion::Example
which is the same as the invocant Relation::Example but that some of its
tuple/Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18920	19028	
==>xample {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.intersection( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2548	2645	
==>ts the query string portion of a requested URI.
It provides the following methods:

=over 8

=item <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2548	2645	
==>ts the query string portion of a requested URI.
It provides the following methods:

=over 8

=item <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29548	29663	
==>ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" es <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29548	29663	
==>ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" es <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	360	467	
==>ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" es <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5506	5601	
==>(like 'Content-Type') when you are accessing the web using this
function.  If you need that info <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5506	5601	
==>(like 'Content-Type') when you are accessing the web using this
function.  If you need that info <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4566	4667	
==>. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4566	4667	
==>. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6763	6864	
==>. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	828	935	
==>st) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	618	723	
==>st) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	618	723	
==>st) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3076	3218	
==>*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2958	3092	
==>*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1759	1861	
==>references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_rule_decl { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2577	2721	
==>e(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2577	2721	
==>e(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2577	2721	
==>e(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1111	1259	
==>} } ));
    __PACKAGE__->add_rule(
        '}' => q( { return { stmt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36846	36943	
==>sidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36846	36943	
==>sidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5542	5660	
==>$2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5542	5660	
==>$2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5542	5660	
==>$2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5120	5243	
==>, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5120	5243	
==>, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5710	5833	
==>, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36772	36882	
==>er trivial case is if any
source relation is the identity-one relation (zero attributes, one tuple),
the result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41321	41431	
==>er trivial case is if any
source relation is the identity-one relation (zero attributes, one tuple),
the result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40944	41054	
==>er trivial case is if any
source relation is the identity-one relation (zero attributes, one tuple),
the result <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8343	8584	
==>ram(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(file <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	309	422	
==>t a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	309	422	
==>t a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4992	5112	
==>_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4992	5112	
==>_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4992	5112	
==>_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4470	4604	
==>ess, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	171	270	
==>xed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	171	270	
==>xed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	171	270	
==>xed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed metho <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15493	15615	
==>->new('div', class=>$tag, name=>$name);
            
            my @kids = $beg->parent->splice_content($beg_n, $end_n-$be <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16442	16541	
==>alue.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16442	16541	
==>alue.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23954	24058	
==>LTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23954	24058	
==>LTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23954	24058	
==>LTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	201	301	
==>PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	201	301	
==>PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	201	301	
==>PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	421	575	
==>ed $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	336	490	
==>ed $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	424	578	
==>ed $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	215	325	
==>gs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	215	325	
==>gs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	215	325	
==>gs "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4234	4374	
==>ule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16375	16473	
==>.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and pote <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16375	16473	
==>.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and pote <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11741	11871	
==>gle span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11741	11871	
==>gle span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1500	1628	
==>f ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1500	1628	
==>f ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1500	1628	
==>f ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4744	4854	
==>atching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4595	4703	
==>atching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	96	199	
==>placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	96	199	
==>placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	96	199	
==>placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3064	3235	
==>nClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3064	3235	
==>nClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3064	3235	
==>nClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4048	4145	
==>r $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4048	4145	
==>r $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4048	4145	
==>r $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	311	415	
==>get that uploads the results of this
#    to a server somewhere.


package Test::Harness::YAML;
use stric <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4168	4258	
==>equires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4168	4258	
==>equires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3472	3626	
==>fined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3472	3626	
==>fined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3472	3626	
==>fined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11496	11704	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11496	11704	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11496	11704	
==>f); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3123	3237	
==>igenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3123	3237	
==>igenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3123	3237	
==>igenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23541	23661	
==>s, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23894	24014	
==>s, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6656	6751	
==>uce_2 if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE_OPTABLE_TE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2542	2640	
==>not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2542	2640	
==>not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2542	2640	
==>not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	459	574	
==>dn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	459	574	
==>dn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	459	574	
==>dn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3209	3351	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3209	3351	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3209	3351	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13936	14054	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13936	14054	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13936	14054	
==>bel, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7766	7896	
==>' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7766	7896	
==>' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7766	7896	
==>' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10016	10137	
==>r('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });

  $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2125	2230	
==>ble{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26] <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2125	2230	
==>ble{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	954	1055	
==>lude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	954	1055	
==>lude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	954	1055	
==>lude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack? <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	989	1088	
==>widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', s <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	989	1088	
==>widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	94	184	
==>Makefile.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2026	2253	
==>) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2797	2895	
==>vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2797	2895	
==>vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1825	1927	
==>ument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1825	1927	
==>ument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1825	1927	
==>ument.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5540	5649	
==>_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5540	5649	
==>_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5540	5649	
==>_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $ <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	989	1130	
==>has $value;

        method ^string_to_arguments ( $string ) {
            return $?CLASS.new( $string );
        }
        
        method ac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17191	17316	
==>, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13612	13737	
==>, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11725	11844	
==>} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2157	2266	
==>} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2157	2266	
==>} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3519	3615	
==>{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3519	3615	
==>{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4109	4205	
==>{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5947	6049	
==>rays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5947	6049	
==>rays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5947	6049	
==>rays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2582	2724	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2582	2724	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2582	2724	
==>s "You must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	117	219	
==>6;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Grammar::Perl6;
use Pug <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7875	7975	
==>Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very pri <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7875	7975	
==>Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2368	2488	
==>ormalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2368	2488	
==>ormalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2715	2835	
==>ormalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 }, <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3728	4079	
==>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            give <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3728	4079	
==>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            give <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7777	7937	
==>me => $match<name>, 
            fixity => ..., 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22919	23031	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22919	23031	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22919	23031	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	943	1133	
==>ss->attributes->members,
                             $class->associations->members,
                             # 2-way associations won't work without
                             # MM sup <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	878	983	
==>t + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	878	983	
==>t + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12889	12988	
==>ings. 
For example, when iterating through the span range, the unit is added to the current value to <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12889	12988	
==>ings. 
For example, when iterating through the span range, the unit is added to the current value to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1732	1881	
==>PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1732	1881	
==>PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	96	194	
==>ndie::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17893	18078	
==>efined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17893	18078	
==>efined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17893	18078	
==>efined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6444	6614	
==>STROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6444	6614	
==>STROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6444	6614	
==>STROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2156	2273	
==>DEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2156	2273	
==>DEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2156	2273	
==>DEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaMo <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6100	6231	
==>ash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq/${ghc_dir}${ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6895	6992	
==>at the beginning, before the 
ciphertext.  This will be prepended to the return value of the first <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6895	6992	
==>at the beginning, before the 
ciphertext.  This will be prepended to the return value of the first <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11506	11626	
==>ter
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1065	1179	
==>s;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8056	8198	
==>HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8068	8210	
==>HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5402	5513	
==>elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5402	5513	
==>elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5402	5513	
==>elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PI <==
3	/Users/nnunley/pugs/util/func_refact.pl	2068	2177	
==>ize, leaving with $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $size - $oldsize; # n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15591	15717	
==>if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15591	15717	
==>if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15591	15717	
==>if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12051	12200	
==>) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  package Regexp::Parser::assertion;
}
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8766	8885	
==>y $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        pu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8766	8885	
==>y $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8814	8921	
==>($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8814	8921	
==>($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8814	8921	
==>($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6952	7045	
==>-----------------------------------------------------------

# stub this for the moment ...
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6952	7045	
==>-----------------------------------------------------------

# stub this for the moment ...
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6952	7045	
==>-----------------------------------------------------------

# stub this for the moment ...
$: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8538	8643	
==>x:«<=>» --> Scalar) {
    List::max $cmp, *@self;
}


# XXX - TODO
# postcircumfix:<[ ]>  circumfix:<[ ] <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22003	22102	
==>here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16905	17003	
==>here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5541	5659	
==>term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != $S2 goto er <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16451	16548	
==>`complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contai <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16451	16548	
==>`complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2098	2230	
==>elude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2315	2447	
==>elude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prel <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7286	7406	
==>> sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	452	564	
==>w_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	452	564	
==>w_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	452	564	
==>w_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1128	1226	
==>calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1128	1226	
==>calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1128	1226	
==>calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35376	35518	
==>ute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36301	36443	
==>ute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37836	37978	
==>ute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2272	2408	
==>w {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2819	2955	
==>w {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3366	3502	
==>w {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6509	6653	
==>cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6509	6653	
==>cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6509	6653	
==>cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is T <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	456	592	
==>rns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	456	592	
==>rns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1839	1944	
==>ad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1839	1944	
==>ad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1839	1944	
==>ad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1876	2081	
==>llations
{   my $config  = JIB::Config->new;

    my %cache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4569	4690	
==>od splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4569	4690	
==>od splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13158	13268	
==>ject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13158	13268	
==>ject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13158	13268	
==>ject = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from obj <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12549	12684	
==>class = 'non_test';
      if (exists $lines->{$.}) {
        $class = $test_class->{$lines->{$.}};
      }
      $output .= "<span class <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7000	7097	
==>span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7000	7097	
==>span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6521	6617	
==>html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6521	6617	
==>html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10155	10255	
==>on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4896	4988	
==>$S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5240	5332	
==>$S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13081	13209	
==>ort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13081	13209	
==>ort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constan <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12259	12355	
==>td>
	      <td class="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_var nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20061	20157	
==>$xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20061	20157	
==>$xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20061	20157	
==>$xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	634	747	
==>=> 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	634	747	
==>=> 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	634	747	
==>=> 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	244	347	
==>erl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	244	347	
==>erl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	244	347	
==>erl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1843	1998	
==>}
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4801	4892	
==>ESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4941	5032	
==>ESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14276	14372	
==>ession>
    | <LeftHandSideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSideExpressio <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3937	4031	
==>1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3937	4031	
==>1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosett <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4245	4347	
==>Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4245	4347	
==>Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4245	4347	
==>Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12918	13068	
==>}            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12918	13068	
==>}            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12918	13068	
==>}            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7274	7381	
==>rsion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7274	7381	
==>rsion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7274	7381	
==>rsion, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9057	9154	
==>tself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9057	9154	
==>tself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7505	7606	
==>b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(ran <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7505	7606	
==>b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(ran <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2542	2637	
==>Perl5::Ratchet> converts parsed :ratchet Rules to Perl 5 code.

=back

=head2 Implemented Featur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1506	1606	
==>ant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1506	1606	
==>ant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1506	1606	
==>ant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2672	2774	
==>' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2672	2774	
==>' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9913	10063	
==>epends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6254	6404	
==>epends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7103	7253	
==>epends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5701	5884	
==>tr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5701	5884	
==>tr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5701	5884	
==>tr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	868	985	
==>d Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	868	985	
==>d Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Reque <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7013	7130	
==>e eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    my($o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1645	1741	
==>rs - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1645	1741	
==>rs - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2514	2655	
==>ator    ::= Code(Any, Any) returns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(K <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8263	8362	
==>tion( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11740	11839	
==>tion( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	198	300	
==>%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	198	300	
==>%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	198	300	
==>%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => me <==
3	/Users/nnunley/pugs/util/drift.pl	1973	2078	
==>ch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
close OUT;

unlink "$in.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15858	15953	
==>m

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other
P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15858	15953	
==>m

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other
P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3448	3547	
==>::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3448	3547	
==>::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3448	3547	
==>::fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9227	9334	
==>- Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9227	9334	
==>- Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9227	9334	
==>- Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	991	1103	
==>$right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1218	1330	
==>$right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1445	1557	
==>$right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num- <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	141	242	
==>estPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $backend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15955	16049	
==>rl modules.

Modules that use these compilation modules get compiled into some
altered form the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15955	16049	
==>rl modules.

Modules that use these compilation modules get compiled into some
altered form the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	458	592	
==>n () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	458	592	
==>n () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	458	592	
==>n () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1786	1890	
==>tring(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1786	1890	
==>tring(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1786	1890	
==>tring(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10501	10634	
==>y
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10501	10634	
==>y
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10501	10634	
==>y
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3339	3520	
==>$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3339	3520	
==>$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3339	3520	
==>$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10308	10431	
==>f->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        la <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3161	3255	
==>t::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi su <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3161	3255	
==>t::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32745	32844	
==>of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37295	37394	
==>of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36612	36711	
==>of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9350	9495	
==>min; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10341	10486	
==>min; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1565	1674	
==>est.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1565	1674	
==>est.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1645	1754	
==>est.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2367	2481	
==>_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2367	2481	
==>_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2367	2481	
==>_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable decl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16786	16884	
==>};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16786	16884	
==>};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16786	16884	
==>};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36673	36804	
==>h( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36673	36804	
==>h( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36673	36804	
==>h( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $a <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11616	11723	
==>y $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35940	36035	
==>is method returns an array ref having all combinations of this object's
Set Names and Member Nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35940	36035	
==>is method returns an array ref having all combinations of this object's
Set Names and Member Nam <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20951	21100	
==>l the subtests completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5092	5234	
==>-- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5556	5698	
==>-- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9421	9528	
==>code_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9421	9528	
==>code_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15447	15604	
==>defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15447	15604	
==>defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15447	15604	
==>defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	661	793	
==>rd 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	661	793	
==>rd 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1898	1999	
==>ced)
			if $received != $sent and $reduced->isa("Blondie::Thunk"); # FIXME - enforce param checking on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	823	948	
==>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::mag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	823	948	
==>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::mag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	823	948	
==>name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::mag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1602	1718	
==>keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1602	1718	
==>keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1602	1718	
==>keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3198	3400	
==>ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            whe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3198	3400	
==>ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            whe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19224	19356	
==>ms fetch ($_)))))
    (nil))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	77	178	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	77	178	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	77	178	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2362	2461	
==>CH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2362	2461	
==>CH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2362	2461	
==>CH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17424	17536	
==>y);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DES <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17424	17536	
==>y);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DES <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3939	4036	
==>eness

\G, pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>perl6-com <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9655	9745	
==><HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9655	9745	
==><HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	959	1085	
==>);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	959	1085	
==>);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	959	1085	
==>);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4502	4647	
==>c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4502	4647	
==>c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4502	4647	
==>c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12158	12256	
==>(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12158	12256	
==>(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12158	12256	
==>(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3756	3882	
==>@_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref($next) eq "CODE";
    }

    @stack = @{ $self->{tree <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10677	10787	
==>a(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10677	10787	
==>a(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4153	4274	
==>key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4153	4274	
==>key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8157	8285	
==>array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8157	8285	
==>array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	413	510	
==>le as a starting point to base
a new module distribution on.

= AUTHORS

Brian Ingerson <ingy@cpan <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34194	34285	
==>is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34194	34285	
==>is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1274	1371	
==>Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n")) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1274	1371	
==>Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n")) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1274	1371	
==>Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n")) <==
3	/Users/nnunley/pugs/util/run-smoke.pl	53	146	
==>qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, ". <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	94	186	
==>= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant C <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	94	186	
==>= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6490	6599	
==>ype eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6490	6599	
==>ype eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6490	6599	
==>ype eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	263	404	
==>[
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results',
    ],
    class_method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6431	6562	
==>ACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    return
        map { $self->ind <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27680	27835	
==>ub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque $self: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	342	438	
==>ub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	342	438	
==>ub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6083	6189	
==>turn value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10340	10446	
==>turn value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2027	2124	
==>($t eq "PV") {
		return quote(printable($node->struct_equiv));
	} else { die "don't know to make a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3335	3502	
==>kage') }; 
use constant ISA_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Packa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	230	355	
==>uest   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	230	355	
==>uest   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3828	3939	
==>html">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3828	3939	
==>html">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3828	3939	
==>html">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreac <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2222	2316	
==>ir work, I almost certainly would have punted.
Also to iblech, and Michael Schilli of JavaScrip <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22202	22295	
==>).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22202	22295	
==>).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3042	3147	
==>ass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3042	3147	
==>ass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3042	3147	
==>ass;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1536	1711	
==>},
            hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                re <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	138	241	
==>andles operators: + - * /

# Pugs note: change "die" to "fail" when "fail" is implemented.

# Input a st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1062	1175	
==>_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1062	1175	
==>_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	186	279	
==>$failed = 0;
for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3859	3981	
==>^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can not <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4500	4620	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4693	4813	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1171	1277	
==>ncludes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1171	1277	
==>ncludes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	65	161	
==>e::Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2801	2923	
==>Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2801	2923	
==>Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2801	2923	
==>Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9595	9749	
==>scription?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1688	1832	
==>scription?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $se <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1688	1832	
==>scription?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3009	3119	
==>->object(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8586	8682	
==>yright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8586	8682	
==>yright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4155	4269	
==>elf:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4155	4269	
==>elf:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4155	4269	
==>elf:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("H <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	609	737	
==>4 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	609	737	
==>4 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 = <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15801	15914	
==>RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # reverse is since we're splicing righ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4154	4247	
==>6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2555	2640	
==>tp://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://n <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2555	2640	
==>tp://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://n <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3983	4147	
==>MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter_with_default(
            trav <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1672	1771	
==>cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->mayb <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1565	1652	
==>cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->mayb <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7206	7320	
==>span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7206	7320	
==>span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3030	3127	
==>VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'V <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6553	6666	
==>ark {  # see 7.6
      # any character in the Unicode categories "Non-spacing mark (Mn)"
      # or "Combining spa <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2219	2316	
==>) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2219	2316	
==>) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6698	6873	
==>yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $ar <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6698	6873	
==>yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $ar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2593	2687	
==>s class (without the prefix) is
exported. This is very convenient for constructing trees and he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	798	906	
==>return emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub no <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16775	16871	
==>tion in
Rosetta D and compile that into its own executable, in practice one would
normally just w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16775	16871	
==>tion in
Rosetta D and compile that into its own executable, in practice one would
normally just w <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2017	2210	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'li <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2017	2210	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'li <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1896	1988	
==>evelopment environment.

Recognition is due
  Salvador Fandino Garcia  for Language::Prolog:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9585	9716	
==>tr = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9585	9716	
==>tr = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9585	9716	
==>tr = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2807	2904	
==>::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2807	2904	
==>::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2807	2904	
==>::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27480	27579	
==>e names of the new attributes, and
the values provide values applied to each tuple.  The new Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32032	32131	
==>e names of the new attributes, and
the values provide values applied to each tuple.  The new Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31115	31214	
==>e names of the new attributes, and
the values provide values applied to each tuple.  The new Relatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	623	795	
==>_->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __PACKAGE__-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8408	8511	
==>IL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8408	8511	
==>IL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8408	8511	
==>IL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14236	14332	
==>from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14236	14332	
==>from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14236	14332	
==>from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1782	1888	
==>an is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1782	1888	
==>an is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5879	5976	
==>that will parse operands.

=head2 add_op ()

Instance method.  Adds a new operator to the category <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1924	2033	
==>"";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1924	2033	
==>"";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1924	2033	
==>"";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	184	284	
==>the purpose of demonstrating an approach to compilation.

=head1 SYNOPSIS

    # a program that reduc <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11539	11630	
==>$depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11597	11688	
==>$depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	918	1032	
==>es here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	918	1032	
==>es here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	918	1032	
==>es here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5248	5350	
==>tance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5248	5350	
==>tance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5248	5350	
==>tance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2521	2619	
==>ef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    whil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2521	2619	
==>ef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    whil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2521	2619	
==>ef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    whil <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3982	4192	
==>nd_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	418	538	
==>, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Ob <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	418	538	
==>, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4970	5101	
==>e->to_native . ' => ' . $right->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18196	18325	
==>my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26906	27009	
==>ch)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all);
requ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8198	8295	
==>al, the values returned will be array references to the sub
array.

In Scalar context, they all re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	257	352	
==>-------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	257	352	
==>-------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5006	5178	
==>et_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5006	5178	
==>et_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

metho <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5022	5166	
==>ep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky things -- linking other .a with us!
        my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13691	13790	
==>have an overly friendly
  relationship.  There may end up being a gotcha, where one needs
  somethin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1239	1378	
==>tch,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1444	1583	
==>tch,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8276	8389	
==>bject singleton/class method called by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7795	7928	
==>y(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7795	7928	
==>y(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7795	7928	
==>y(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12058	12178	
==>Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12058	12178	
==>Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12058	12178	
==>Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2998	3126	
==>elf;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2998	3126	
==>elf;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2998	3126	
==>elf;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	84	182	
==>orter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	84	182	
==>orter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	84	182	
==>orter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1021	1112	
==>JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1021	1112	
==>JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1021	1112	
==>JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16771	16871	
==>module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16771	16871	
==>module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16771	16871	
==>module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1639	1781	
==>m} 
        if exists $n->{num};
        
    return _mangle_var( $n->{scalar} )
        if exists $n->{scalar};
        
    return _man <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11775	11870	
==>two strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11833	11928	
==>two strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	543	666	
==>,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	543	666	
==>,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	543	666	
==>,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5066	5181	
==>f-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5066	5181	
==>f-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5066	5181	
==>f-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1453	1566	
==>Sub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4577	4686	
==>Sub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4577	4686	
==>Sub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3191	3305	
==>t} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3191	3305	
==>t} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3191	3305	
==>t} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2774	2870	
==>- implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2774	2870	
==>- implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2774	2870	
==>- implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10574	10759	
==>_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$kla <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10574	10759	
==>_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$kla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9415	9560	
==>d' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	50	147	
==>Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will wo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	50	147	
==>Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	239	374	
==>apStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	239	374	
==>apStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	239	374	
==>apStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11577	11700	
==>ule_text
    $S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    inc pos
    mpos = pos
    $P0 = find_global <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12916	13008	
==>ad1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12916	13008	
==>ad1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2478	2603	
==>while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		nex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18188	18282	
==>ations where multiple DBMS
objects want to use the same external resources, such as a repositor <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18188	18282	
==>ations where multiple DBMS
objects want to use the same external resources, such as a repositor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40089	40196	
==>in character class"; otherwise, pass an
empty string.

=head1 ERROR HANDLING

=head2 Creating Custom Message <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15016	15113	
==>eue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:en <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15016	15113	
==>eue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:en <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	629	769	
==>),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO related builtin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37343	37435	
==>ural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41892	41984	
==>ural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15250	15455	
==>t_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15250	15455	
==>t_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15250	15455	
==>t_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the name <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5302	5396	
==>ailed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5302	5396	
==>ailed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6826	6920	
==>ailed, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12240	12361	
==>sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12240	12361	
==>sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12240	12361	
==>sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4349	4462	
==>' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4199	4308	
==>' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9755	9852	
==>>{'bool'}};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41578	41677	
==>Relation::Example>

This multi-method is the N-ary version of the aforementioned binary join()
opera <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4267	4361	
==>ecified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synony <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4267	4361	
==>ecified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synony <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14505	14621	
==>or $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals < <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14505	14621	
==>or $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals < <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27094	27191	
==>ot be further changed;
this class defaults it to False.

=back

This is the main Relation::Example <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8511	8613	
==>r, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operato <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6047	6146	
==>r, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operato <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12475	12590	
==>ilable list
    ### XXX temp file, then mv
    my @prev  = @{ $self->available };
    my @avail = grep { $_->package <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	255	343	
==>modified_since last_modified
    content_type content_encoding content_length content_lan <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	255	343	
==>modified_since last_modified
    content_type content_encoding content_length content_lan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2086	2188	
==>f->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2086	2188	
==>f->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2086	2188	
==>f->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1040	1153	
==>'""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1040	1153	
==>'""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1040	1153	
==>'""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::M <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13161	13273	
==>reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $ap <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	571	683	
==>reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1474	1587	
==>is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1474	1587	
==>is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1474	1587	
==>is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4055	4222	
==>evel = 2;
            carp "unrecognized token '",substr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23610	23735	
==>define REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_su <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28840	28938	
==>define REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5440	5647	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5440	5647	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5440	5647	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                ret <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19185	19289	
==>,
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::nullary->new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5559	5663	
==>AML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5367	5468	
==>AML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6758	6864	
==>$_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6758	6864	
==>$_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19055	19152	
==>the C<data> field is the string "POSIX".  POSIX classes don't exist in a
regex outside of a charac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3872	3977	
==>_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3872	3977	
==>_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3872	3977	
==>_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3304	3420	
==>expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is sp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3304	3420	
==>expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1569	1684	
==>undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1569	1684	
==>undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1569	1684	
==>undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9611	9708	
==>,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9611	9708	
==>,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9611	9708	
==>,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7237	7363	
==>" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7237	7363	
==>" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7237	7363	
==>" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4669	4792	
==>ection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringif <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4669	4792	
==>ection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5895	6011	
==>UNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5895	6011	
==>UNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5895	6011	
==>UNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a cus <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1759	1886	
==>le {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the heade <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5236	5363	
==>le {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the heade <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4166	4293	
==>le {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the heade <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17617	17729	
==>}
    } else {
        return defined $node ? String::Escape::qprintable($node) : "undef";
    }
}


package Dige <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7952	8053	
==>ull() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7682	7779	
==>ull() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3317	3461	
==>offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3317	3461	
==>offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3317	3461	
==>offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5656	5830	
==>s bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5656	5830	
==>s bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5656	5830	
==>s bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5559	5665	
==>p := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implement <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5559	5665	
==>p := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implement <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5559	5665	
==>p := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implement <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5872	5975	
==>nnection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5872	5975	
==>nnection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1885	2006	
==>&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1896	2017	
==>&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&su <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16346	16448	
==>$bonusmsg = _bonusmsg($tot);

    if (_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37429	37567	
==>pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37429	37567	
==>pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37429	37567	
==>pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25915	26012	
==>OL|ROPT_ANCH_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8505	8617	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8505	8617	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8505	8617	
==>new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	849	945	
==>)`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	849	945	
==>)`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	133	223	
==>::Source;
use JIB::Package::Binary;
use JIB::Package::Installed;
use JIB::Package::Installa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14423	14511	
==>main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14423	14511	
==>main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14423	14511	
==>main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18027	18136	
==>b "p6analyze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return (self)
. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1736	1827	
==>ted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1736	1827	
==>ted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1736	1827	
==>ted"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3427	3532	
==>ize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3427	3532	
==>ize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3427	3532	
==>ize $subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16795	16927	
==>p},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f->($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	726	825	
==>ode;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	726	825	
==>ode;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8331	8572	
==>template->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5599	5779	
==>template->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23276	23390	
==>Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = B <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27073	27176	
==>ey => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27073	27176	
==>ey => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11764	11850	
==>_escape_sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	891	1002	
==>y splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	891	1002	
==>y splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	891	1002	
==>y splicing and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19955	20064	
==>$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19955	20064	
==>$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19955	20064	
==>$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4258	4358	
==>method start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4258	4358	
==>method start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3813	3931	
==>ir.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3813	3931	
==>ir.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3813	3931	
==>ir.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6541	6647	
==>\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6541	6647	
==>\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6541	6647	
==>\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2606	2713	
==>bol $label) (hash ?%opts)) returns method 
    ((= $method NIL)
     (= $current (&dispatcher do))
     (whi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2134	2231	
==>also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $na <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2134	2231	
==>also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3775	3916	
==>q '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { whil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3763	3904	
==>q '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { whil <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4308	4406	
==>h a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.gr <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4308	4406	
==>h a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2813	2926	
==>ontainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2813	2926	
==>ontainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2813	2926	
==>ontainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	647	745	
==>"new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	647	745	
==>"new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	647	745	
==>"new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6337	6438	
==>t returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6337	6438	
==>t returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8534	8635	
==>t returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	207	299	
==>perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	207	299	
==>perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	207	299	
==>perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	627	727	
==>d CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	627	727	
==>d CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	627	727	
==>d CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1071	1182	
==>b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1071	1182	
==>b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1071	1182	
==>b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)", <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3296	3388	
==>t::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3296	3388	
==>t::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5493	5585	
==>t::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9013	9188	
==>eturn;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9013	9188	
==>eturn;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9013	9188	
==>eturn;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3560	3668	
==>ts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3560	3668	
==>ts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3560	3668	
==>ts $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23137	23241	
==>LTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23137	23241	
==>LTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23137	23241	
==>LTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11728	11845	
==>elete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11728	11845	
==>elete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11728	11845	
==>elete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	508	610	
==>Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	508	610	
==>Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	508	610	
==>Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11737	11955	
==>andidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11737	11955	
==>andidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11737	11955	
==>andidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2270	2394	
==>iag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	259	375	
==>iag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	259	375	
==>iag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.e <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1355	1484	
==>$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1355	1484	
==>$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2081	2183	
==>ng(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2081	2183	
==>ng(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2081	2183	
==>ng(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "Strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33525	33662	
==>tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33525	33662	
==>tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33525	33662	
==>tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2437	2558	
==>:constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2630	2751	
==>:constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19842	19951	
==>Relation::Example {
    # This form takes the form of an ordinary natural join,
    # where some source attrib <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4231	4325	
==>s may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4231	4325	
==>s may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	411	521	
==>ndef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	411	521	
==>ndef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	411	521	
==>ndef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	259	387	
==>::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13853	13968	
==>f($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the serve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13853	13968	
==>f($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the serve <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11348	11472	
==>nc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the on <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10921	11033	
==>get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10921	11033	
==>get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7456	7584	
==>.
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7456	7584	
==>.
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7456	7584	
==>.
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4087	4185	
==>m B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4087	4185	
==>m B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5611	5709	
==>m B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12166	12252	
==>tcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12166	12252	
==>tcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12166	12252	
==>tcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1739	1844	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1739	1844	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1739	1844	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9388	9483	
==>$xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9388	9483	
==>$xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9388	9483	
==>$xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4272	4391	
==>ss 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4272	4391	
==>ss 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4272	4391	
==>ss 

## introspective methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3667	3784	
==>JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4288	4383	
==>figE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignore <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4288	4383	
==>figE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5079	5188	
==>e;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5079	5188	
==>e;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5079	5188	
==>e;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	446	559	
==>des!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	446	559	
==>des!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that c <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2720	2829	
==>e Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or die "open <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	939	1052	
==>$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	948	1061	
==>$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3883	3980	
==>the Seq will reduce its children one by one. First Param will
introduce a new symbol, $x, taking t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3677	3791	
==>{ 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3677	3791	
==>{ 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3677	3791	
==>{ 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dum <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2868	3026	
==>x;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_version     { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1455	1547	
==>those modules for details.

The C<new> constructor takes only one option, C<:key>, containing <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1455	1547	
==>those modules for details.

The C<new> constructor takes only one option, C<:key>, containing <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4050	4169	
==>!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	542	711	
==>m> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Gramma <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	263	402	
==>nt_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	263	402	
==>nt_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2718	2817	
==>rsions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2618	2714	
==>rsions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3195	3301	
==>e|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $des <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3195	3301	
==>e|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $des <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3195	3301	
==>e|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $des <==
3	/Users/nnunley/pugs/util/package-osx.pl	10241	10360	
==>create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) u <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	132	242	
==>eck.
# Hopefully it will develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a backtracking <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3130	3224	
==>sgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Pleas <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3130	3224	
==>sgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Pleas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3369	3509	
==>->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3369	3509	
==>->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3369	3509	
==>->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1409	1595	
==>al_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1409	1595	
==>al_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1409	1595	
==>al_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1989	2085	
==>s and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1989	2085	
==>s and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1989	2085	
==>s and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3826	3934	
==>/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3826	3934	
==>/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3826	3934	
==>/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7270	7371	
==>ass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7270	7371	
==>ass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7270	7371	
==>ass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	263	376	
==>(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	263	376	
==>(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	263	376	
==>(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3762	3902	
==>t    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3762	3902	
==>t    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6656	6784	
==>) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6656	6784	
==>) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6656	6784	
==>) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	826	944	
==>d2 package

Set the name of the full package package. For example:

    p5-foo-1-cpan+kane

=head1 METHODS

=head2 $pkg <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1262	1365	
==>uest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1262	1365	
==>uest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20212	20313	
==>ch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20212	20313	
==>ch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20212	20313	
==>ch($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1752	1846	
==>e>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1752	1846	
==>e>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
a <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6989	7284	
==>=> coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6989	7284	
==>=> coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	204	293	
==>erl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6057	6164	
==>e "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6057	6164	
==>e "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6057	6164	
==>e "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	521	629	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	521	629	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	521	629	
==>ine('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4714	4868	
==>m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4714	4868	
==>m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4714	4868	
==>m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	770	909	
==>) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $Perl6::Run::OnPerl5::X1::BB <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3545	3641	
==>id

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPS <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3545	3641	
==>id

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	407	517	
==>le, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	407	517	
==>le, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $sub <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3700	3800	
==>ray.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S2 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7362	7455	
==>diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7420	7513	
==>diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	856	974	
==>ching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1062	1180	
==>ching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	386	491	
==>ms{'$.output'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_output'} || \*STDERR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2816	2929	
==>ainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2816	2929	
==>ainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2816	2929	
==>ainer::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2221	2372	
==>dx = shift;
                my $value = shift;
                scalar @{$self->get_value('@:slots')};
            },

            'array_storeSize' => s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8548	8674	
==>e' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8548	8674	
==>e' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6957	7065	
==>ators.pm r8593.
# Prim.hs says \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[.[]]> (*$he <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2133	2232	
==>:negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is expo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2191	2290	
==>:negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is expo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2864	2958	
==>most of the time outdated) image is available at
      http://m19s28.vlinux.de/iblech/pugs/live <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3989	4082	
==>ad1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-numb <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3989	4082	
==>ad1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-numb <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3042	3168	
==>"\\ \\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    prin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4017	4116	
==>tring C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> whic <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4017	4116	
==>tring C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6349	6488	
==>S.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of globa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6349	6488	
==>S.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of globa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6349	6488	
==>S.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of globa <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	400	506	
==>rn $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	400	506	
==>rn $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - <==
3	/Users/nnunley/pugs/util/claim_drift.pl	392	491	
==>= ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7705	7811	
==>event the default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7705	7811	
==>event the default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7705	7811	
==>event the default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3585	3698	
==>",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3585	3698	
==>",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3585	3698	
==>",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediately?
#   Because <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	381	478	
==>1 NAME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2901	3000	
==>y pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2901	3000	
==>y pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2901	3000	
==>y pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	891	1007	
==>ray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	891	1007	
==>ray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	891	1007	
==>ray = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1998	2097	
==>f($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1998	2097	
==>f($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1998	2097	
==>f($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub- <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	421	529	
==>"\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module was automatically generated by util/file <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7741	7838	
==>ert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7741	7838	
==>ert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16825	16946	
==>b taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16825	16946	
==>b taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16825	16946	
==>b taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6847	7005	
==>);
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6847	7005	
==>);
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6847	7005	
==>);
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ] <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	806	908	
==>nstallbin},
        installsitebin => $Config{installsitebin} || $Config{installsbin},

        install <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4438	4528	
==>bes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4438	4528	
==>bes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3109	3224	
==>is is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3109	3224	
==>is is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3109	3224	
==>is is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17040	17135	
==>item $h.content_length

A decimal number indicating the size in bytes of the message content.

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17040	17135	
==>item $h.content_length

A decimal number indicating the size in bytes of the message content.

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18742	18849	
==>rror(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  }) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15163	15270	
==>rror(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  }) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30501	30608	
==>rror(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  }) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36047	36159	
==>t and <$other> headings. 
The body of the new relation is the result of first pairwise-matching every
tuple of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40597	40708	
==>t and <$other> headings.
The body of the new relation is the result of first pairwise-matching every
tuple of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40211	40322	
==>t and <$other> headings.
The body of the new relation is the result of first pairwise-matching every
tuple of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15010	15114	
==>:Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15010	15114	
==>:Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15010	15114	
==>:Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9722	9824	
==>ugh the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unles <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9722	9824	
==>ugh the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unles <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17952	18082	
==>visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14373	14503	
==>visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3838	3933	
==>mentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13298	13404	
==>iX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13298	13404	
==>iX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13298	13404	
==>iX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__flag eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37950	38084	
==>g 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37950	38084	
==>g 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37950	38084	
==>g 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6735	6860	
==>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6735	6860	
==>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6735	6860	
==>as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4792	4964	
==>$h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4792	4964	
==>$h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5910	6038	
==>($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub author_from { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	149	246	
==>shing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_inf <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	149	246	
==>shing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_inf <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4938	5034	
==>les
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{file}} = $_ for @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	957	1063	
==>str($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	957	1063	
==>str($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	3	96	
==>usr/bin/perl

package Blondie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1159	1246	
==>ctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1159	1246	
==>ctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	934	1030	
==>S::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	934	1030	
==>S::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	934	1030	
==>S::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7920	8031	
==>ubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7920	8031	
==>ubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7920	8031	
==>ubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3528	3628	
==>if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3528	3628	
==>if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3528	3628	
==>if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33249	33448	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33249	33448	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33249	33448	
==>. $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unsh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	511	638	
==>@nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	546	673	
==>@nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$nod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	511	638	
==>@nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5040	5177	
==><term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2582	2719	
==><term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3363	3500	
==><term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7119	7275	
==>unt = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7119	7275	
==>unt = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7119	7275	
==>unt = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == In <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1399	1529	
==>for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1485	1593	
==>pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1485	1593	
==>pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11425	11536	
==>) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11425	11536	
==>) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11425	11536	
==>) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25063	25162	
==>ples.  It is also valid
for a Relation::Example to have zero attributes, though such a Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1765	1861	
==>of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<» <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1765	1861	
==>of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<» <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3712	3812	
==>t map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-MExtUtils::Command::M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6412	6507	
==>ore returning.

- this can also be used to do fail() and assert(), and 'no-backtracking checkpoi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6206	6300	
==>ore returning.
- this can also be used to do fail() and assert(), and 'no-backtracking checkpoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6267	6367	
==>or ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6267	6367	
==>or ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6267	6367	
==>or ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14939	15069	
==>t be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14939	15069	
==>t be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14939	15069	
==>t be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4523	4620	
==>MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB tim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4523	4620	
==>MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB tim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4523	4620	
==>MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB tim <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	749	844	
==>t(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True) <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	749	844	
==>t(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33083	33197	
==>ub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data} <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2414	2510	
==>nd Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/ <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2414	2510	
==>nd Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6685	6820	
==>sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $di <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6685	6820	
==>sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	684	803	
==>$plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => sub {
    my ($S, $cc) = @_;
    return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	848	951	
==>age )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after all newli <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	848	951	
==>age )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after all newli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1404	1507	
==>age )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after all newli <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4259	4399	
==>,
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7258	7351	
==>r("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7258	7351	
==>r("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6106	6244	
==>e ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6106	6244	
==>e ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6106	6244	
==>e ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2423	2543	
==>back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2607	2727	
==>back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subr <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1182	1274	
==>ort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_inclu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8274	8388	
==>bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8274	8388	
==>bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8274	8388	
==>bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8502	8676	
==>mt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9897	10018	
==>0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $sel <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9897	10018	
==>0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3542	3660	
==>:opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3542	3660	
==>:opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3542	3660	
==>:opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32678	32846	
==>], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32678	32846	
==>], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32678	32846	
==>], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3801	3922	
==>{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3801	3922	
==>{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3801	3922	
==>{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29952	30050	
==>aint clean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO fai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3951	4048	
==>le syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4135	4232	
==>le syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10551	10642	
==>formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10551	10642	
==>formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their type <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1393	1491	
==>g(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1393	1491	
==>g(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1393	1491	
==>g(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1402	1508	
==>t for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1402	1508	
==>t for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1402	1508	
==>t for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7322	7435	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10799	10912	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9936	10049	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17392	17578	
==>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17392	17578	
==>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17392	17578	
==>STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{fo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30187	30283	
==>s with spaces in the filename work.

Keeping whittling away at _run_all_tests()

Clean up how the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7936	8022	
==>thod proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7936	8022	
==>thod proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1667	1764	
==>)(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1667	1764	
==>)(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1667	1764	
==>)(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3345	3613	
==>new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->ne <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5013	5143	
==>1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pL <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5337	5467	
==>1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23096	23215	
==>split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23096	23215	
==>split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23096	23215	
==>split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3372	3483	
==>ib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3372	3483	
==>ib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3372	3483	
==>ib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	846	960	
==>sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	846	960	
==>sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	846	960	
==>sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] } <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	996	1191	
==>ph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buff <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	996	1191	
==>ph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buff <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6418	6559	
==>else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23316	23417	
==>str ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23316	23417	
==>str ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23316	23417	
==>str ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20557	20775	
==>turn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20557	20775	
==>turn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20557	20775	
==>turn $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7212	7411	
==>mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7212	7411	
==>mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3972	4112	
==>ptures */
      int i;
      for(i=0;i<=r->nparens;i++) {
        r->startp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = r- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9745	9850	
==>*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9745	9850	
==>*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3075	3161	
==>p6_conjunction(X), p6_alternatives(union(W,X), Z), !.
p6_alternatives(W, W) --> {true}. <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	843	1065	
==>)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Ha <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	843	1065	
==>)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Ha <==
3	/Users/nnunley/pugs/util/package-osx.pl	4930	5027	
==>S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/local/man/man3/Perl6::Bible <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12874	13033	
==>anded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::P <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3133	3237	
==>llow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3133	3237	
==>llow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10184	10358	
==>$reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2233	2385	
==>$reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2233	2385	
==>$reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17332	17456	
==>e_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17332	17456	
==>e_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17332	17456	
==>e_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13692	13811	
==>ng::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13692	13811	
==>ng::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5723	5838	
==>ngs "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5723	5838	
==>ngs "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5723	5838	
==>ngs "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1076	1184	
==>ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1076	1184	
==>ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler: <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	640	745	
==>(defined $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = "D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2626	2776	
==>turn { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2525	2670	
==>turn { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2296	2421	
==>instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_fr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6235	6506	
==>) . "&nbsp;min",
      summary       => [{
        total       => $7,
        ok          => $8,
        failed      => $9,
        todo        => $10,
        skipped     => $11,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11613	11738	
==>n $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11613	11738	
==>n $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16448	16559	
==>n it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16448	16559	
==>n it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16448	16559	
==>n it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14688	14826	
==>ndings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14688	14826	
==>ndings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14688	14826	
==>ndings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8359	8532	
==>);
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4719	4892	
==>);
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5568	5741	
==>);
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	164	274	
==>use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	164	274	
==>use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	164	274	
==>use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import B <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5751	5834	
==>erl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Ti <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5751	5834	
==>erl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Ti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4192	4327	
==>ther => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        oth <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	80	195	
==>of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	80	195	
==>of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1963	2061	
==>undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1963	2061	
==>undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1963	2061	
==>undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1434	1549	
==>as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub p <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15497	15588	
==>ities::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15497	15588	
==>ities::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_t <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	841	961	
==>inger @x;
       %terms{$phrase}++
    }
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	499	603	
==>pen $file in $dir\n");
		return $class;
	}

	@.known_parsers = $class._parse_ini_file($fh);

	return $cla <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14529	14632	
==>t 0
color light-blue/black black/light-gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10647	10794	
==>1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10647	10794	
==>1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10647	10794	
==>1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_r <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4151	4253	
==>ounts
sub strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ s{^=\w(.*?)^=cut$}{"\n" x ($1 = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1760	1859	
==>_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

met <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1760	1859	
==>_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

met <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26052	26155	
==>ape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1187	1297	
==>self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1187	1297	
==>self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1187	1297	
==>self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3162	3326	
==>]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3162	3326	
==>]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3162	3326	
==>]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1429	1529	
==>de},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1429	1529	
==>de},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1429	1529	
==>de},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21137	21372	
==>: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21137	21372	
==>: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21137	21372	
==>: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8332	8445	
==>lan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	542	643	
==>lan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	542	643	
==>lan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3789	3888	
==>>
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3789	3888	
==>>
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3789	3888	
==>>
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5051	5159	
==>ode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5051	5159	
==>ode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5051	5159	
==>ode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" in <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9699	9787	
==>) --> p5_charset_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charset_item <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10567	10665	
==>rimarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10625	10723	
==>rimarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26608	26694	
==>r->pass_as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1479	1588	
==>q '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33244	33343	
==>they appear in this array until a match for that message is found.  Since a
program or library may w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33244	33343	
==>they appear in this array until a match for that message is found.  Since a
program or library may w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2779	2917	
==>keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2779	2917	
==>keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2779	2917	
==>keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	851	965	
==>atches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	851	965	
==>atches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	851	965	
==>atches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_string { $_[0]->[0] }
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	14	147	
==>l -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Contain <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	14	147	
==>l -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Contain <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	14	147	
==>l -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2876	2977	
==>ebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2876	2977	
==>ebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2876	2977	
==>ebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blesse <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	957	1058	
==>f they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output file <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	957	1058	
==>f they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output file <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1513	1614	
==>f they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3293	3402	
==>lurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv | <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3293	3402	
==>lurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv | <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3649	3758	
==>lurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv | <==
3	/Users/nnunley/pugs/util/drift.pl	488	610	
==>s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	923	1018	
==>cified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	876	968	
==>cified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2482	2580	
==>L2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2482	2580	
==>L2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2482	2580	
==>L2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18725	18931	
==>ray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18725	18931	
==>ray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18725	18931	
==>ray is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	824	955	
==>"PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	824	955	
==>"PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	824	955	
==>"PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2093	2218	
==>, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2233	2358	
==>, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8495	8667	
==>op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2449	2572	
==>eturn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4037	4160	
==>eturn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4715	4813	
==>.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4715	4813	
==>.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6912	7010	
==>.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2674	2793	
==>tor>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 White Space

rul <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2236	2339	
==>eturns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start } <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2236	2339	
==>eturns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2842	2943	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2842	2943	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2842	2943	
==>",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10391	10505	
==>ew(
			type::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::var <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4706	4801	
==>t of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8183	8278	
==>t of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7090	7201	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3694	3805	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4543	4654	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9311	9439	
==>=>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9311	9439	
==>=>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9311	9439	
==>=>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3167	3285	
==>$defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3167	3285	
==>$defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3167	3285	
==>$defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	990	1122	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	990	1122	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	990	1122	
==>njs_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2296	2432	
==>hift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2543	2679	
==>hift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17108	17206	
==>onNoIn> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpression :words {  # see 11.10
      <Bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4111	4239	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4111	4239	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4111	4239	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6642	6743	
==>atch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6654	6755	
==>atch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	541	640	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	541	640	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	541	640	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3203	3312	
==>0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempot <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3203	3312	
==>0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempot <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3203	3312	
==>0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8122	8238	
==>l($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8122	8238	
==>l($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8122	8238	
==>l($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3054	3167	
==>fault for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone() <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3054	3167	
==>fault for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3088	3221	
==>levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    rule $eq <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2597	2704	
==>$c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2597	2704	
==>$c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13643	13771	
==>-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13643	13771	
==>-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13643	13771	
==>-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2064	2235	
==>od get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2064	2235	
==>od get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8343	8460	
==>sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8343	8460	
==>sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8343	8460	
==>sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14489	14617	
==>tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14489	14617	
==>tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14489	14617	
==>tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3989	4124	
==>,
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '¥' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1172	1265	
==>tent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1172	1265	
==>tent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2108	2203	
==>$self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2108	2203	
==>$self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2108	2203	
==>$self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12717	12811	
==>uperset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12717	12811	
==>uperset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7220	7343	
==>w( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7220	7343	
==>w( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7220	7343	
==>w( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2515	2628	
==>e('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2515	2628	
==>e('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2515	2628	
==>e('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4782	4906	
==>piler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	90	210	
==>Category);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" dispatc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4618	4737	
==>piler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9137	9282	
==>xpand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9137	9282	
==>xpand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9137	9282	
==>xpand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3931	4028	
==>rameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3931	4028	
==>rameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6128	6225	
==>rameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	607	739	
==>if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	607	739	
==>if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	607	739	
==>if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	660	783	
==>args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	561	684	
==>args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14312	14430	
==>== 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sour <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	899	1058	
==>unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	778	937	
==>unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1912	2006	
==>the expected strings
in TAP format.

The F<prove> utility is a thin wrapper around Test::Harnes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14082	14249	
==>subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14082	14249	
==>subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14082	14249	
==>subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	252	379	
==>..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	252	379	
==>..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	252	379	
==>..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1982	2087	
==>ckage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1982	2087	
==>ckage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1982	2087	
==>ckage PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1547	1686	
==>)';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1450	1589	
==>hile 
        sub multi method submethod
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12996	13083	
==>describes the same-number versions of Locale::KeyedText::Message
("Message") and Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12996	13083	
==>describes the same-number versions of Locale::KeyedText::Message
("Message") and Locale: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9578	9677	
==>'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9578	9677	
==>'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9578	9677	
==>'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	398	493	
==>ved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	398	493	
==>ved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	398	493	
==>ved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1901	2008	
==>.99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1901	2008	
==>.99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1901	2008	
==>.99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19488	19622	
==>.= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15909	16043	
==>.= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad) <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3771	3899	
==>!!;

        # XXX - work around Cabal bug --
        # we have to locate "Syck_stub.o" and copy it into
        # dist/build/src <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2682	2810	
==>genClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2682	2810	
==>genClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2682	2810	
==>genClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6884	7061	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6884	7061	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6884	7061	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4530	4678	
==>m(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4530	4678	
==>m(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1316	1432	
==>=> 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1316	1432	
==>=> 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11008	11116	
==>my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5729	5856	
==>params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5729	5856	
==>params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5729	5856	
==>params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	29	160	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	29	160	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	29	160	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1806	1912	
==>..} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1806	1912	
==>..} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1806	1912	
==>..} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3057	3163	
==>ate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3057	3163	
==>ate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11883	11984	
==>g $reftyp" if !defined $handler;
    $handler->($x);
}

my $nan = 100**100**100 / 100**100**100;
my %a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7295	7426	
==>ile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_depe <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	596	727	
==>ile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_depe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5154	5259	
==>ow begin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3739	3924	
==>{ 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3739	3924	
==>{ 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3739	3924	
==>{ 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8423	8515	
==>};
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2248	2340	
==>};
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4898	5002	
==>lf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4898	5002	
==>lf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4898	5002	
==>lf == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4364	4460	
==>em C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4364	4460	
==>em C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5888	5984	
==>em C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	252	377	
==>arp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    my $self = { source => $rule_so <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16570	16686	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16849	16965	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::g <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2367	2483	
==>eturns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2367	2483	
==>eturns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3982	4094	
==>= 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3982	4094	
==>= 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3982	4094	
==>= 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	935	1047	
==>ad();
} else {
  process_list();
}

exit;

sub process_upload {
  print "Content-Type: text/plain\n\n";

  limit_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	609	700	
==>thods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Ar <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	609	700	
==>thods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	930	1034	
==>}->($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) && $condi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24905	24999	
==>rn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24905	24999	
==>rn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7161	7338	
==>Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7161	7338	
==>Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7161	7338	
==>Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15284	15389	
==>le = "misctmp000";
1 while -f ++$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve mu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4298	4595	
==>arn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2221	2337	
==>f $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>() <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2221	2337	
==>f $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7147	7268	
==>l/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7147	7268	
==>l/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7147	7268	
==>l/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1872	2100	
==>\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	215	312	
==>Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	215	312	
==>Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4652	4774	
==>hildren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$ind <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4652	4774	
==>hildren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$ind <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1754	1849	
==>cope;

	die "Thunk is accepting $received parameters, while App is providing $sent parameters: " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9349	9486	
==>::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_han <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4185	4294	
==>= $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4185	4294	
==>= $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
me <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1468	1756	
==>P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            gi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1468	1756	
==>P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            gi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39997	40102	
==>nexpectedly escaped, and a string.  If the warning is called
from a character class, pass " in character c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12919	13048	
==>&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12919	13048	
==>&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12919	13048	
==>&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7901	8138	
==>rt ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7901	8138	
==>rt ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7901	8138	
==>rt ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1828	1930	
==>1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1828	1930	
==>1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1828	1930	
==>1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13507	13672	
==>$array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13507	13672	
==>$array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13507	13672	
==>$array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1312	1464	
==>t open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files list: $@" ), return;
        $self->file <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12258	12378	
==>emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13068	13188	
==>emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4308	4400	
==>:opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4308	4400	
==>:opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4308	4400	
==>:opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1215	1321	
==>Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1215	1321	
==>Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1215	1321	
==>Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11731	11844	
==>[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	731	837	
==>.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equiva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	731	837	
==>.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equiva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	731	837	
==>.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equiva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17844	17942	
==>fix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17844	17942	
==>fix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17844	17942	
==>fix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16829	16920	
==>B Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16829	16920	
==>B Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16829	16920	
==>B Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18472	18570	
==>ta should be thread safe and/or saavy
in the future, but for now it officially is not and you shoul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18472	18570	
==>ta should be thread safe and/or saavy
in the future, but for now it officially is not and you shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4724	4892	
==>ift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4724	4892	
==>ift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4724	4892	
==>ift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12780	12946	
==>n lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12774	12940	
==>n lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime:: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17649	17754	
==>fined $node ? String::Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub compute {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9960	10066	
==>code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9960	10066	
==>code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnec <==
3	/Users/nnunley/pugs/util/addauthors.pl	75	180	
==>|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	971	1076	
==>ray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	971	1076	
==>ray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	971	1076	
==>ray
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3160	3270	
==>)) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3160	3270	
==>)) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3160	3270	
==>)) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7484	7604	
==>{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $results{'exit'} = _wait2exit($?);
    }
    $resu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20719	20833	
==>=> sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17140	17254	
==>=> sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8356	8601	
==>$_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8356	8601	
==>$_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8356	8601	
==>$_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6575	6688	
==>thod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6575	6688	
==>thod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6575	6688	
==>thod('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1943	2066	
==>e) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1943	2066	
==>e) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1943	2066	
==>e) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14268	14434	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14268	14434	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14268	14434	
==>ding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesn <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2110	2209	
==>=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=b <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2110	2209	
==>=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	473	576	
==>f the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	473	576	
==>f the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	473	576	
==>f the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2139	2238	
==>$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2139	2238	
==>$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2139	2238	
==>$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5523	5634	
==>{
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5523	5634	
==>{
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5523	5634	
==>{
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15677	15786	
==>$xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15677	15786	
==>$xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15677	15786	
==>$xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
M <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9956	10099	
==>pe Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pa <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1170	1310	
==>pe Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7157	7253	
==>ct->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the righ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2664	2780	
==>self = shift;
    $self->{neg} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp::Parser::space;
  push @ISA, qw( R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6447	6561	
==>e' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6447	6561	
==>e' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	221	349	
==>function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	221	349	
==>function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	221	349	
==>function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	908	1043	
==>reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	908	1043	
==>reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	908	1043	
==>reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	187	284	
==>?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	187	284	
==>?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	187	284	
==>?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	347	454	
==>ve been expressed as
#     complemented character sets.  <-[...]>  They are all tagged with
#     #SourceCha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	63	164	
==>Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	63	164	
==>Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4499	4611	
==>s for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4499	4611	
==>s for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4499	4611	
==>s for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1047	1141	
==>out hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1047	1141	
==>out hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1047	1141	
==>out hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4058	4221	
==>> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4058	4221	
==>> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4058	4221	
==>> {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2100	2219	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2100	2219	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2100	2219	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15823	15940	
==>and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10679	10796	
==>and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $se <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2669	2759	
==>me})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${re_comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3857	3963	
==>O - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3857	3963	
==>O - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3857	3963	
==>O - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in t <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9731	9858	
==>uld be
        # undef, if we didn't find anything).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; ple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1185	1281	
==>ammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1185	1281	
==>ammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14350	14526	
==>t( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "fo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14629	14805	
==>t( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2471	2593	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2471	2593	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2471	2593	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	456	567	
==>s.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	456	567	
==>s.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	456	567	
==>s.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	327	430	
==>urpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	327	430	
==>urpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	327	430	
==>urpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1140	1269	
==>{
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1140	1269	
==>{
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1140	1269	
==>{
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7352	7484	
==>);
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7340	7472	
==>);
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	120	248	
==>primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	120	248	
==>primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	120	248	
==>primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3282	3398	
==>ode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3282	3398	
==>ode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3282	3398	
==>ode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10380	10491	
==>nts' if $prefix eq 'statement_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5047	5148	
==>ot one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($mo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5047	5148	
==>ot one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	67	169	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	67	169	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	67	169	
==>ORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaSc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23496	23610	
==>< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19917	20031	
==>< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28767	28864	
==>tf8 = 1)) \
			 : (RX_MATCH_UTF8_off(prog), (PL_reg_match_utf8 = 0)))

 #define REXEC_COPY_STR	0x0 <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1170	1277	
==>Config{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1109	1210	
==>Config{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1660	1759	
==>he links, and inserting a names where needed.

   Example:
     perl util/catalog_tests.pl --p6desig <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6765	6869	
==>ngs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6765	6869	
==>ngs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblin <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3902	3998	
==>problems tracked down.

=item Completeness

\G, pos(), etc, are not yet supported.

=back

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5246	5364	
==>[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5246	5364	
==>[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5246	5364	
==>[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	72	179	
==>lass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	72	179	
==>lass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	72	179	
==>lass, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!! <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1304	1403	
==>$chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?: <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1304	1403	
==>$chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26709	26818	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = ble <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	756	857	
==><p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing thi <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	756	857	
==><p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17169	17266	
==>ute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17169	17266	
==>ute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17169	17266	
==>ute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3965	4100	
==>le( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8473	8573	
==>erator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6009	6107	
==>erator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the na <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10900	11054	
==>ge: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10900	11054	
==>ge: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16098	16198	
==>it. Called with a
list, it chops each item in turn, and returns the last character
chopped.


=item c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23116	23232	
==>member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27668	27784	
==>member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26445	26561	
==>member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14116	14222	
==>ext-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14116	14222	
==>ext-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14116	14222	
==>ext-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4522	4720	
==>bug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4522	4720	
==>bug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	970	1125	
==>[ $Config{bin}            => SUBDIR_OF_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                sub { shift()->te <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8340	8448	
==>sually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a si <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8340	8448	
==>sually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a si <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6468	6555	
==>til::blessed($type) and $type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7192	7343	
==>c';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7192	7343	
==>c';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7192	7343	
==>c';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1711	1843	
==>ive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1711	1843	
==>ive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1711	1843	
==>ive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8708	8860	
==>: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12614	12760	
==>: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12614	12760	
==>: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3335	3525	
==>ags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3475	3665	
==>ags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	249	358	
==>on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	249	358	
==>on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4284	4384	
==>unction, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5635	5752	
==>ew_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5635	5752	
==>ew_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5635	5752	
==>ew_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	908	1003	
==>t currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug work <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	908	1003	
==>t currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug work <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20313	20408	
==>ing that end users could do,
although program package installers usually do it.  An os-level pre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20313	20408	
==>ing that end users could do,
although program package installers usually do it.  An os-level pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7818	7919	
==>6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7818	7919	
==>6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7818	7919	
==>6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	402	513	
==>t     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	402	513	
==>t     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	402	513	
==>t     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	62	178	
==>tion of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	62	178	
==>tion of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	62	178	
==>tion of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4213	4338	
==>e, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Lu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4213	4338	
==>e, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Lu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4213	4338	
==>e, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Lu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	182	286	
==>uild Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	182	286	
==>uild Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	182	286	
==>uild Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7932	8087	
==>e> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1171	1273	
==>olume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1171	1273	
==>olume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20988	21092	
==>elf = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') . $self->nparen;
  }

  sub npar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1189	1284	
==>e the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1189	1284	
==>e the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	699	786	
==>sses([ $::Class ]);

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	699	786	
==>sses([ $::Class ]);

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	699	786	
==>sses([ $::Class ]);

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1124	1222	
==>=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1124	1222	
==>=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1671	1769	
==>=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<foo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14150	14365	
==>xy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14150	14365	
==>xy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14150	14365	
==>xy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5367	5467	
==>ody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5367	5467	
==>ody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15802	15952	
==>sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15802	15952	
==>sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15802	15952	
==>sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1578	1694	
==>ant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1578	1694	
==>ant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1578	1694	
==>ant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37694	37806	
==>uple values
are aligned and merged.  The heading of the new relation is the union of
all the headings of the sour <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42243	42355	
==>uple values
are aligned and merged.  The heading of the new relation is the union of
all the headings of the sour <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41893	42005	
==>uple values
are aligned and merged.  The heading of the new relation is the union of
all the headings of the sour <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14074	14180	
==>ub { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("ref") },
      glob  => sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12140	12238	
==>root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12140	12238	
==>root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6802	6917	
==>eturns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder an <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6802	6917	
==>eturns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8999	9114	
==>eturns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder an <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5969	6062	
==>e long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implement <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5969	6062	
==>e long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implement <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1081	1185	
==>ut );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1081	1185	
==>ut );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1161	1265	
==>ut );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first te <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	713	817	
==>, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	713	817	
==>, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18264	18356	
==>^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18264	18356	
==>^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18264	18356	
==>^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7998	8102	
==>IL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7998	8102	
==>IL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7998	8102	
==>IL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4472	4632	
==>er = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4472	4632	
==>er = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4472	4632	
==>er = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23867	23962	
==>def,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23867	23962	
==>def,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23867	23962	
==>def,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2781	2884	
==>er
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2781	2884	
==>er
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_reque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2378	2588	
==>self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6915	7012	
==>header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encodin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6915	7012	
==>header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encodin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	549	678	
==>defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_do <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	549	678	
==>defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_do <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3488	3588	
==>if($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = Perl6::Run::OnPerl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	591	693	
==>y $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	591	693	
==>y $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	591	693	
==>y $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2679	2793	
==>}

sub emit {
    my($self) = @_;
    $self->{_timing}{end} = time;
    $self->{_timing}{duration} =
        $self- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17327	17433	
==>are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $ite <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17327	17433	
==>are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $ite <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2015	2120	
==>_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1001	1106	
==>_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29457	29583	
==>ems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29457	29583	
==>ems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29457	29583	
==>ems}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4193	4316	
==>! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4193	4316	
==>! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6788	6886	
==>mper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	165	269	
==>cks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	165	269	
==>cks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	165	269	
==>cks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4252	4367	
==>list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            $list->push <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2377	2480	
==>s_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}( <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2377	2480	
==>s_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	771	885	
==>er) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	771	885	
==>er) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	771	885	
==>er) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	196	357	
==>tar,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	196	357	
==>tar,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10093	10235	
==>t{skipped};
                push(@msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{bonus};
                p <==
3	/Users/nnunley/pugs/util/munge_haddock.pl	146	248	
==>CK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  print "\n\n-- #ignore-exports\n" if /^module/;
  prin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4760	4857	
==>r2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4760	4857	
==>r2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11485	11596	
==>an($type)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	91	188	
==>butes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
m <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	91	188	
==>butes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15313	15411	
==>_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15313	15411	
==>_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15313	15411	
==>_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7753	7896	
==>_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8700	8843	
==>_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4275	4394	
==>mit(get_data($_[0], '$<value>'));
   return $var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13685	13782	
==>ing name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13685	13782	
==>ing name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3684	3838	
==>pen;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3684	3838	
==>pen;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1248	1346	
==>fs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Regex-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1072	1174	
==>y of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mode <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1072	1174	
==>y of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mode <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12271	12370	
==>caller package, and thus get CORE if none are defined.

  The C hooks (except for comp, obviously) l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31608	31705	
==>r False regardless of its
argument, in which case the new Relation has either all of the tuples of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36158	36255	
==>r False regardless of its
argument, in which case the new Relation has either all of the tuples of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1202	1297	
==>ne_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1202	1297	
==>ne_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1202	1297	
==>ne_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3989	4084	
==>$restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3989	4084	
==>$restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3989	4084	
==>$restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1703	1846	
==>t: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1703	1846	
==>t: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1703	1846	
==>t: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3451	3554	
==>that Mapping is the name
        # of one of this Relation::Example's attributes and the value correspon <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21872	21963	
==>t.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comman <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21872	21963	
==>t.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> comman <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5678	5784	
==>E handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # beca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5678	5784	
==>E handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # beca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5678	5784	
==>E handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # beca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3596	3701	
==>rrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3596	3701	
==>rrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4186	4291	
==>rrent = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, <==
3	/Users/nnunley/pugs/util/version_h.pl	1312	1417	
==>$source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # convert /svk/ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9375	9506	
==>ss $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and di <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3031	3128	
==>ile ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = sp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3031	3128	
==>ile ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1228	1369	
==>in ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1228	1369	
==>in ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1228	1369	
==>in ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $auth <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3000	3118	
==>args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $o <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3000	3118	
==>args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $o <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	11	107	
==>lude::PIR-0.0.1;
# XXX -- for some reason, compilation doesn't work if the above line is uncommen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	695	839	
==>.
It will turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2321	2451	
==>elf<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $toke <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2321	2451	
==>elf<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $toke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	558	678	
==>ss" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	558	678	
==>ss" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	558	678	
==>ss" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15237	15353	
==>mob["cname"] = cname
    pos = $I0
    goto end
  name:
    inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PG <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5513	5626	
==>f
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5513	5626	
==>f
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	456	579	
==>};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1182	1302	
==>};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	749	863	
==>ass = shift;
    return $class->no_match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bool  => 1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7587	7688	
==>($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7587	7688	
==>($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7587	7688	
==>($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1614	1717	
==>::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1614	1717	
==>::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2292	2402	
==>$y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2292	2402	
==>$y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2639	2749	
==>$y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' }, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	49	146	
==>se warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	47	144	
==>se warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	44	141	
==>se warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15357	15458	
==>flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15357	15458	
==>flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15357	15458	
==>flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21714	21819	
==>($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21714	21819	
==>($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21714	21819	
==>($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14183	14302	
==>();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $self;
}

method CREATE (opaque $class: str $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16328	16436	
==>=== any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19805	19913	
==>=== any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3699	3837	
==>INDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3699	3837	
==>INDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3699	3837	
==>INDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Nee <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26214	26310	
==>which has a subset of the original's attributes; that subset is the same as
those attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30766	30862	
==>which has a subset of the original's attributes; that subset is the same as
those attribute names <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4946	5084	
==>pt = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $A <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4170	4296	
==>pt = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $A <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8909	9011	
==>ook_regcompp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook != NULL) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	174	274	
==>, keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	174	274	
==>, keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	174	274	
==>, keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4630	4816	
==>ist
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_->scal <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2759	2906	
==>ookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target? <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2759	2906	
==>ookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4862	4957	
==>::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4862	4957	
==>::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7059	7154	
==>::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9975	10095	
==>e) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9975	10095	
==>e) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9975	10095	
==>e) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDER <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	692	798	
==>Basename::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $promp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1714	1818	
==>@a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shif <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1714	1818	
==>@a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	727	847	
==>tr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	727	847	
==>tr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	727	847	
==>tr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7626	7737	
==>package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7626	7737	
==>package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7626	7737	
==>package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8715	8846	
==>n ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testpl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	883	1002	
==>n ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testpl <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	883	1002	
==>n ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testpl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13426	13649	
==>)
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13705	13928	
==>)
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19686	19789	
==>od($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19686	19789	
==>od($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19686	19789	
==>od($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1366	1496	
==>();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1366	1496	
==>();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1366	1496	
==>();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1686	1819	
==>n $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( defined($file) ) {
        my $name = $self->name
            o <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2473	2573	
==>d <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_emp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2473	2573	
==>d <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_emp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38172	38265	
==>s method takes a defined (but possibly empty) Template text string in
its positional parameter <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38172	38265	
==>s method takes a defined (but possibly empty) Template text string in
its positional parameter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2487	2589	
==>rn "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1099	1201	
==>rn "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' captu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5644	5744	
==>gexp::Parser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	793	885	
==>ement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	793	885	
==>ement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	793	885	
==>ement)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3423	3597	
==>ile available_file]) {
                    system( qw[touch], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts firs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12091	12198	
==>$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12091	12198	
==>$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1124	1221	
==>nt.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1124	1221	
==>nt.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	850	964	
==>ther_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	850	964	
==>ther_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	850	964	
==>ther_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19526	19665	
==>amily => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12863	12960	
==>ier is used for several things. 
For example, when iterating through the span range, the unit is a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12863	12960	
==>ier is used for several things. 
For example, when iterating through the span range, the unit is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	79	191	
==>st' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	79	191	
==>st' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	79	191	
==>st' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13899	13994	
==>t *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests --> Int| <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9088	9177	
==>ar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2913	3002	
==>ar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
pus <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5561	5670	
==><object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<obje <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5561	5670	
==><object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<obje <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8321	8416	
==>and = $self->_command();

Returns the command that runs the test.  Combine this with _switches() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7038	7136	
==>new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7038	7136	
==>new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7038	7136	
==>new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will t <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	558	659	
==>lush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(1 <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	558	659	
==>lush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2408	2511	
==>g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2408	2511	
==>g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2408	2511	
==>g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35385	35481	
==>l only accept inputs that would result in
a cross-product when joined.  This method has aliases n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39935	40031	
==>l only accept inputs that would result in
a cross-product when joined.  This method has aliases n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39495	39591	
==>l only accept inputs that would result in
a cross-product when joined.  This method has aliases n <==
3	/Users/nnunley/pugs/util/grokprims.pl	1142	1260	
==>}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$// <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17386	17489	
==>map(sub { $self->generic_reduce($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2826	2923	
==>verrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

When tests fail, analyze the summary report <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13873	13971	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13873	13971	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13873	13971	
==>cceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8739	8860	
==>AIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN vio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2681	2789	
==>l is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2681	2789	
==>l is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	960	1062	
==>- Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	960	1062	
==>- Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	960	1062	
==>- Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10682	10837	
==>}             
            
            # This was our old TODO handler
            #print("        $test{todo}/$test{max} TODO test" . ($test{todo} > 1 ? " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10643	10759	
==>efined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10643	10759	
==>efined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21803	21996	
==>ar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21803	21996	
==>ar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21803	21996	
==>ar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	45	145	
==>ir, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	45	145	
==>ir, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	45	145	
==>ir, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6337	6451	
==>values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6349	6463	
==>values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2299	2386	
==>->{$spacePresent[1]} = %tokenClone;
    $self->whitespaceOperatorTable()->{$spacePresent <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1427	1541	
==>>isa('num'))
        || confess "Index must be a num type";
    # replace the value with a nil type
    $self->[$in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6978	7190	
==>5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6978	7190	
==>5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        retur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1839	1946	
==>,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	443	543	
==>u cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	443	543	
==>u cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	443	543	
==>u cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($at <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8245	8379	
==>T;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4325	4433	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->objec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1451	1559	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	338	466	
==>::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	338	466	
==>::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	338	466	
==>::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attri <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4658	4790	
==>n.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!c <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4658	4790	
==>n.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	462	616	
==>r_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	462	616	
==>r_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	462	616	
==>r_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5497	5625	
==>container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5497	5625	
==>container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5497	5625	
==>container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12892	13019	
==>($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12892	13019	
==>($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12892	13019	
==>($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confes <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8420	8526	
==>nted.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not impleme <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10388	10483	
==>idations are performed
on demand at some time after the input has been set, and could potentiall <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10388	10483	
==>idations are performed
on demand at some time after the input has been set, and could potentiall <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12501	12612	
==>y {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12501	12612	
==>y {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12501	12612	
==>y {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2652	2762	
==>mented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2836	2946	
==>mented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9474	9561	
==>ntifier(X), ":]", !.
p5_charset_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13316	13448	
==>>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9502	9634	
==>>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10338	10470	
==>>{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$fin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33404	33501	
==>es, the Template module for the program or first library should
appear first in the array.  Each S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33404	33501	
==>es, the Template module for the program or first library should
appear first in the array.  Each S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2281	2427	
==>stic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $descrip <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2477	2586	
==>~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatev <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2477	2586	
==>~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2329	2437	
==>ls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2329	2437	
==>ls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2676	2784	
==>ls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optiona <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8531	8642	
==>apture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8527	8638	
==>apture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capt <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	971	1066	
==>y ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*site <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	971	1066	
==>y ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*site <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	200	331	
==>r $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n// <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	200	331	
==>r $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3347	3472	
==>etch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3347	3472	
==>etch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3347	3472	
==>etch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1037	1142	
==>s
# and we need to now create these attributes in all the currently live instances
# of Class (which are : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1037	1142	
==>s
# and we need to now create these attributes in all the currently live instances
# of Class (which are : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1037	1142	
==>s
# and we need to now create these attributes in all the currently live instances
# of Class (which are : <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2444	2698	
==>[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# -- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2753	2993	
==>[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# -- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2753	2993	
==>[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# -- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6799	6912	
==>age like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6857	6970	
==>age like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9124	9241	
==>{  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9124	9241	
==>{  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1749	1931	
==>[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            tak <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1749	1931	
==>[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            tak <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	926	1065	
==>afe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	392	572	
==>dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6280	6408	
==>1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaining whi <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1546	1659	
==>f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1546	1659	
==>f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5929	6059	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6122	6252	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13466	13570	
==>>
                <span class="tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20537	20633	
==>f the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20537	20633	
==>f the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	4	97	
==>ackage Pugs::Grammar::Str;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8048	8144	
==>. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8048	8144	
==>. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8048	8144	
==>. implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3056	3180	
==>= 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3056	3180	
==>= 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3056	3180	
==>= 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3563	3723	
==>ods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3563	3723	
==>ods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3563	3723	
==>ods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36128	36251	
==>ead=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36128	36251	
==>ead=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36128	36251	
==>ead=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->fr <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3378	3487	
==>n '*' { take %.subscription.values».members };
                    default { take %.subscriptions<$_>.members <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7446	7546	
==>$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7446	7546	
==>$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7446	7546	
==>$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1589	1704	
==>if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1589	1704	
==>if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1589	1704	
==>if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12554	12652	
==>he error_is() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quan <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19304	19406	
==>slurp($filename),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5641	5739	
==>bject has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, mo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5641	5739	
==>bject has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	776	912	
==>> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	776	912	
==>> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	776	912	
==>> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2661	2794	
==>Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2661	2794	
==>Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	244	347	
==>ion.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the previous vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1100	1200	
==>infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1100	1200	
==>infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1100	1200	
==>infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b here <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1754	1870	
==>et?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1754	1870	
==>et?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8256	8349	
==>n value from first Object singleton/class method called by Foo');  

$Foo->add_singleton_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9541	9658	
==>pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9541	9658	
==>pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9541	9658	
==>pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12630	12723	
==>s::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12630	12723	
==>s::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12630	12723	
==>s::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	669	775	
==>AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	669	775	
==>AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	669	775	
==>AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	761	875	
==>= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	761	875	
==>= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	37	133	
==>->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	37	133	
==>->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	37	133	
==>->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24485	24578	
==>ommand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

= <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24485	24578	
==>ommand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

= <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28619	28706	
==>ATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14723	14825	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14723	14825	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14723	14825	
==>d_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && def <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18036	18194	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18315	18473	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "par <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11376	11465	
==>nnect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment( <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	898	1006	
==>echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4528	4623	
==>etprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4528	4623	
==>etprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13491	13606	
==>mmand};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13491	13606	
==>mmand};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1595	1689	
==>Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1595	1689	
==>Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1595	1689	
==>Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1181	1277	
==>=> \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1181	1277	
==>=> \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1181	1277	
==>=> \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20668	20759	
==>se-strength and Perl implemented
database server named L<Genezzo> (see also L<http://www.gen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20668	20759	
==>se-strength and Perl implemented
database server named L<Genezzo> (see also L<http://www.gen <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10471	10572	
==>mand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10471	10572	
==>mand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4162	4279	
==>) {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4162	4279	
==>) {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4752	4869	
==>) {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11215	11358	
==>dest == -s $src
          or do { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, und <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1168	1274	
==>{ levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	271	376	
==>{ levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_o <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	728	907	
==>-> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	728	907	
==>-> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4745	4884	
==>ult">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2080	2183	
==>ew PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2080	2183	
==>ew PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2080	2183	
==>ew PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } els <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14927	15017	
==>ways
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML:: <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14927	15017	
==>ways
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6572	6666	
==>ting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also override <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6572	6666	
==>ting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also override <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8769	8863	
==>ting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also override <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4107	4222	
==>less defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4107	4222	
==>less defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4107	4222	
==>less defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1597	1726	
==>me}>>"} @{$self->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22511	22602	
==>the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22511	22602	
==>the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5125	5222	
==><$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5125	5222	
==><$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6649	6746	
==><$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	31	138	
==>geLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	31	138	
==>geLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	31	138	
==>geLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed s <==
3	/Users/nnunley/pugs/util/claim_drift.pl	491	592	
==>, qw(--verbose|v --no|n);

if (! -d "..${FS}DrIFT") {
    warn <<".";
*** No DrIFT directory found. Ma <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	59	158	
==>:TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBu <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	59	158	
==>:TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4707	4808	
==>el and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4707	4808	
==>el and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interfac <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	707	804	
==>ME

Blondie::Reducer::DuplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS

    u <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5709	5824	
==>_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave_scope;
		
		my $last_exp = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	150	251	
==>iler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	150	251	
==>iler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	736	927	
==>bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	736	927	
==>bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1013	1125	
==>es = eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1285	1392	
==>i-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1285	1392	
==>i-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11028	11138	
==>) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11178	11288	
==>) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14224	14331	
==>thod product (Relation::Example *@others) returns Relation::Example {

    if (+@others == 0) {
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	723	843	
==>jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	723	843	
==>jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	723	843	
==>jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1968	2077	
==>_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1968	2077	
==>_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1968	2077	
==>_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1457	1576	
==>m; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1457	1576	
==>m; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1457	1576	
==>m; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3916	4011	
==>=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3916	4011	
==>=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5	99	
==>is file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5	99	
==>is file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5	99	
==>is file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5269	5383	
==>^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5269	5383	
==>^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5269	5383	
==>^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6553	6751	
==>end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            } <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6553	6751	
==>end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	567	690	
==>(map { $_->send('MRO') } @supers ), # the MRO of all the superclasses
        list->new(@supers)                  # a list o <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2051	2155	
==>led before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pa <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2051	2155	
==>led before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10003	10204	
==>Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10003	10204	
==>Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10003	10204	
==>Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5069	5239	
==>e} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = leng <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5069	5239	
==>e} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = leng <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11969	12100	
==>ld not be resolved by $self";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    push @{ $s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1990	2114	
==>ex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4057	4158	
==>appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=he <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4057	4158	
==>appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8011	8190	
==>Mapping(Str) of Set of Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( Set o <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13896	14010	
==>) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13896	14010	
==>) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3068	3239	
==>ss[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3068	3239	
==>ss[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3068	3239	
==>ss[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3276	3409	
==>b {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3276	3409	
==>b {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3276	3409	
==>b {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1598	1706	
==>] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1598	1706	
==>] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1598	1706	
==>] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1238	1354	
==>ock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I'v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1238	1354	
==>ock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I'v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1238	1354	
==>ock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I'v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4901	5096	
==>new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?% <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6663	6858	
==>new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3707	3797	
==>t;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3707	3797	
==>t;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3707	3797	
==>t;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24405	24511	
==>y popular.  Used all over perl.  Discussed elsewhere.

 * regmust      string (pointer into program) that m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14419	14515	
==>turn the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14419	14515	
==>turn the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17999	18185	
==>rlier matches.
                    @stuff = sort {$b->depth   <=> $a->depth    or
                                   $a->address cmp $b->address
                                  } @stuff <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1500	1614	
==>$first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1500	1614	
==>$first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1500	1614	
==>$first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_cont <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13899	13998	
==>handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8105	8204	
==>handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1087	1178	
==>ter::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11965	12091	
==>his = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11965	12091	
==>his = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11965	12091	
==>his = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	397	505	
==>, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	397	505	
==>, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	397	505	
==>, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2281	2405	
==>s|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2281	2405	
==>s|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2281	2405	
==>s|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1276	1382	
==>utput#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1276	1382	
==>utput#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1276	1382	
==>utput#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1319	1422	
==><name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A0 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1319	1422	
==><name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A0 <==
3	/Users/nnunley/pugs/util/grokprims.pl	1339	1442	
==>_"} @{$op->{args}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1495	1584	
==>'%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1495	1584	
==>'%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1495	1584	
==>'%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3074	3233	
==>nt eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3074	3233	
==>nt eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3074	3233	
==>nt eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filen <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4014	4117	
==>$request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4014	4117	
==>$request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2693	2804	
==>ne('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2693	2804	
==>ne('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2693	2804	
==>ne('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2423	2553	
==>le};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/< <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1621	1718	
==>m>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1621	1718	
==>m>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free sof <==
3	/Users/nnunley/pugs/util/addauthors.pl	959	1061	
==>ss first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$las <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11406	11499	
==>alue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11406	11499	
==>alue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2643	2765	
==>>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2643	2765	
==>>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2643	2765	
==>>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3966	4072	
==>my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3966	4072	
==>my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3966	4072	
==>my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11342	11479	
==>uleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11621	11758	
==>uleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rul <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14918	15004	
==>----------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(plu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	252	358	
==>options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	213	319	
==>options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	213	319	
==>options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13897	14002	
==>file($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32971	33070	
==>ibutes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32971	33070	
==>ibutes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	981	1099	
==>ue_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1186	1304	
==>ue_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1247	1365	
==>ue_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17300	17404	
==>ly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20777	20881	
==>ly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20355	20459	
==>ly_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7161	7275	
==>ix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7161	7275	
==>ix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7161	7275	
==>ix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15746	15896	
==>rray = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15746	15896	
==>rray = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15746	15896	
==>rray = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless define <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7417	7526	
==>to be parsed.

=back

These two approaches do an initial pass over the regex to make sure it
is well-formed -- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1930	2034	
==>dd lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1930	2034	
==>dd lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1569	1678	
==>::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1569	1678	
==>::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1569	1678	
==>::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1263	1390	
==>my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1263	1390	
==>my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servern <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	117	207	
==>le::Install::Include;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6077	6221	
==>t_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6077	6221	
==>t_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6077	6221	
==>t_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2447	2552	
==>s Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$la <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21829	21922	
==>place, usually in the
main program, Locale::KeyedText can be given input that says what resour <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21829	21922	
==>place, usually in the
main program, Locale::KeyedText can be given input that says what resour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2986	3087	
==>$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2986	3087	
==>$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2986	3087	
==>$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11463	11563	
==>ause it isolates the Role specifc
code to the class that consumed it.

------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11463	11563	
==>ause it isolates the Role specifc
code to the class that consumed it.

------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11463	11563	
==>ause it isolates the Role specifc
code to the class that consumed it.

------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13945	14036	
==>ode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string w <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13945	14036	
==>ode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	407	508	
==>t = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	407	508	
==>t = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	407	508	
==>t = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5846	5949	
==>name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5846	5949	
==>name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5846	5949	
==>name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2444	2561	
==>rint Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2444	2561	
==>rint Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2444	2561	
==>rint Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19188	19300	
==>A-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15609	15721	
==>A-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_o <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6300	6382	
==>y $x4 = def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_control:<(\w+)>\s+\([^\) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5892	6036	
==>IKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5892	6036	
==>IKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5892	6036	
==>IKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17847	18020	
==>s "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17847	18020	
==>s "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17847	18020	
==>s "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11760	11917	
==>ell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11760	11917	
==>ell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11760	11917	
==>ell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1975	2132	
==>, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1975	2132	
==>, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3308	3419	
==>e keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6785	6896	
==>e keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5742	5853	
==>e keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!headi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2547	2678	
==>p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2547	2678	
==>p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2547	2678	
==>p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        pr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23503	23624	
==>efine REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_CO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12373	12468	
==>eturn $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5016	5111	
==>eturn $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1763	1903	
==>e'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-] <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1763	1903	
==>e'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-] <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7109	7233	
==>::VRule)\
\\n   List      pre     Str::split   safe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3925	4039	
==>ruct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fmap <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36759	36855	
==>Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative look-ahead.

  packa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21094	21195	
==>e same
degree, and the attribute names of each tuple are all the same as those of
all the other tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25646	25747	
==>e same
degree, and the attribute names of each tuple are all the same as those of
all the other tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24261	24362	
==>e same
degree, and the attribute names of each tuple are all the same as those of
all the other tuples <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	131	248	
==>rt { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	131	248	
==>rt { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26461	26560	
==>800 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5630	5775	
==>>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5642	5787	
==>>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	18	123	
==>re::Nil;

use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $NIL = bl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2223	2324	
==>e = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Boo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2223	2324	
==>e = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Boo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	131	237	
==>use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($klas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3334	3426	
==>meter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3334	3426	
==>meter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10326	10456	
==>output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" ) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2355	2473	
==>output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2355	2473	
==>output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3204	3336	
==>);
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3204	3336	
==>);
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	751	872	
==>num'))
        || confess "Index must be a num type";
    my $val = $self->[$index->to_native];
    # NOTE:
    # if you a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4397	4506	
==>tance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4397	4506	
==>tance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4397	4506	
==>tance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $lab <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2524	2677	
==>{
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2960	3113	
==>{
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3946	4099	
==>{
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9036	9172	
==>' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9036	9172	
==>' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9036	9172	
==>' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	43	148	
==>05-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	43	148	
==>05-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	43	148	
==>05-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2940	3045	
==>est_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2940	3045	
==>est_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3020	3125	
==>est_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2290	2490	
==>x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            my ( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	371	485	
==>ck(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    ga <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	371	485	
==>ck(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    ga <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1520	1613	
==>ime_t( Int $time_t ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1063	1157	
==>e:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1063	1157	
==>e:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1063	1157	
==>e:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	374	506	
==>('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::Config{ma <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	968	1062	
==>ted file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	968	1062	
==>ted file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1240	1344	
==>Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1240	1344	
==>Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1787	1891	
==>Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Tes <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11822	11942	
==>end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( : <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11822	11942	
==>end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( : <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2761	2857	
==>\$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28675	28789	
==>ping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33227	33341	
==>ping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32355	32469	
==>ping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value set members do not match i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16353	16481	
==>ase;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back .. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16353	16481	
==>ase;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back .. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4404	4498	
==>files> and divines whether they passed
or failed based on their output to STDOUT (details above <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5400	5508	
==>n);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5400	5508	
==>n);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5400	5508	
==>n);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1921	2022	
==>to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1921	2022	
==>to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1921	2022	
==>to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	16	132	
==>p;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	16	132	
==>p;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	16	132	
==>p;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1906	2048	
==>xcept_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1906	2048	
==>xcept_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1906	2048	
==>xcept_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->t <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4111	4218	
==>ne\n" ],
      [ 'file4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23724	23821	
==>e used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23724	23821	
==>e used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2841	2954	
==>$self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::I <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2841	2954	
==>$self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4820	4923	
==>if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4820	4923	
==>if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4820	4923	
==>if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5295	5404	
==>::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5295	5404	
==>::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5295	5404	
==>::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	490	600	
==>_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	490	600	
==>_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	490	600	
==>_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3605	3700	
==>as written to provide functionality
while Perl 6 was still being developed.

This module is prim <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3605	3700	
==>as written to provide functionality
while Perl 6 was still being developed.

This module is prim <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	213	329	
==>Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	213	329	
==>Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $out <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1571	1656	
==>::Zlib::memGunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33044	33154	
==>des:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11547	11636	
==>= "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain imag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11547	11636	
==>= "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain imag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6181	6316	
==>= Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6181	6316	
==>= Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6181	6316	
==>= Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11437	11613	
==>,
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11437	11613	
==>,
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11437	11613	
==>,
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1895	2011	
==>e archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $conf->tem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8013	8125	
==>nd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8001	8113	
==>nd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1198	1405	
==>es = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1198	1405	
==>es = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1198	1405	
==>es = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4440	4586	
==>er || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4440	4586	
==>er || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4440	4586	
==>er || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	510	611	
==>_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	510	611	
==>_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	510	611	
==>_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10826	10966	
==>s.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10826	10966	
==>s.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10826	10966	
==>s.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3208	3311	
==>ubstr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	770	873	
==>qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronised versions.
    # T <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3359	3450	
==>tem C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3359	3450	
==>tem C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1175	1292	
==>~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repodir/$me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2024	2137	
==>is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2024	2137	
==>is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7512	7611	
==>t_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    fo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7512	7611	
==>t_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    fo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18402	18499	
==>g:delimiter(' ');

String delimiters must not be treated as rules but as constants.  The
default i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1375	1473	
==>arn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1375	1473	
==>arn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1375	1473	
==>arn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5690	5834	
==>". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5690	5834	
==>". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5690	5834	
==>". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15317	15417	
==>t  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expecte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15375	15475	
==>t  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expecte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4011	4140	
==>ms to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4011	4140	
==>ms to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4011	4140	
==>ms to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	506	616	
==>)=split(/\t/,$line);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14090	14184	
==>suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" orde <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14090	14184	
==>suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" orde <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15648	15764	
==>um possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* In <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19881	19997	
==>um possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* In <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5990	6082	
==>--> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@array: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4004	4119	
==>s.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4004	4119	
==>s.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4004	4119	
==>s.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1833	1945	
==>se { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1833	1945	
==>se { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1833	1945	
==>se { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2469	2587	
==>stem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2469	2587	
==>stem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2469	2587	
==>stem(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1362	1510	
==>plitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1362	1510	
==>plitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	996	1100	
==>- bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	996	1100	
==>- bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# ca <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22890	22973	
==>(E0,C,[_|T]) :- charset_member(E0,C,T).

%------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	783	884	
==>.. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	783	884	
==>.. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	783	884	
==>.. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14397	14516	
==>fy {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14397	14516	
==>fy {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14397	14516	
==>fy {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1315	1452	
==>que_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1315	1452	
==>que_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1315	1452	
==>que_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4790	4900	
==>$args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4790	4900	
==>$args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4790	4900	
==>$args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2201	2340	
==>v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2201	2340	
==>v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2201	2340	
==>v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3779	3885	
==>defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3779	3885	
==>defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5976	6082	
==>defaults to true, and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$descr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3036	3150	
==>) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12386	12500	
==>f = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3024	3138	
==>) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	330	432	
==>e *$input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurpy magic <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3072	3169	
==>phertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key att <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3072	3169	
==>phertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8470	8603	
==>[ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8470	8603	
==>[ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8470	8603	
==>[ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9039	9208	
==>5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9874	10043	
==>5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8268	8404	
==>\n";
        }
        my %results = $Strap->analyze_file($tfile) or
          do { warn $Strap->{error}, "\n";  next };

        # state <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32848	32942	
==>eading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Trans <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32848	32942	
==>eading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Trans <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4828	4954	
==>52),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4828	4954	
==>52),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	872	987	
==>s Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.las <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	872	987	
==>s Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.las <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2253	2362	
==>r->name;

    if ( my $perl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	152	323	
==>Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5771	5919	
==>f ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5771	5919	
==>f ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	587	696	
==>pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	587	696	
==>pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	587	696	
==>pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1849	1939	
==>$_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1849	1939	
==>$_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1849	1939	
==>$_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11434	11545	
==>ms);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11434	11545	
==>ms);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11434	11545	
==>ms);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9460	9590	
==>$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9448	9578	
==>$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12706	12789	
==>p6_named_character_tail(Name,Close), !, uncode_charname_to_char(Name,C), !.
p6_named <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7712	7846	
==>$xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7712	7846	
==>$xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7712	7846	
==>$xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6489	6626	
==>> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6489	6626	
==>> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6489	6626	
==>> $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3681	3783	
==>IL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3681	3783	
==>IL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3681	3783	
==>IL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Cou <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	688	795	
==>GTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	688	795	
==>GTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32104	32200	
==>ost objects inherit their ender() and walk() methods from the base
object class; most have no end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1062	1160	
==>0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1062	1160	
==>0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1062	1160	
==>0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15201	15381	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15201	15381	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15201	15381	
==>ere since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10670	10775	
==>map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10670	10775	
==>map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10670	10775	
==>map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6:: <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1274	1404	
==>uild config file created.
    You can edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4997	5120	
==>3),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zet <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4997	5120	
==>3),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4269	4391	
==>ubclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4269	4391	
==>ubclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4269	4391	
==>ubclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	296	415	
==>ode for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	296	415	
==>ode for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	296	415	
==>ode for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an ar <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9431	9547	
==>eturn $code;
    }
    # Use of Rul awaits working infix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	817	927	
==>my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specifie <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	774	880	
==>my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2113	2224	
==>me('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2113	2224	
==>me('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2113	2224	
==>me('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11105	11200	
==>as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11105	11200	
==>as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3985	4082	
==>un_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3985	4082	
==>un_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3985	4082	
==>un_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1509	1737	
==>)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1].push(token)
            end
        }
        return subexp[0]
    end <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16873	16995	
==>atch = $m1;
      local $X::cap = [];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	777	895	
==>lf;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$ke <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2597	2703	
==>type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2597	2703	
==>type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18479	18579	
==>nalExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <LogicalORExpressionNoI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3043	3148	
==>m}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3043	3148	
==>m}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3043	3148	
==>m}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1923	2035	
==>are some.
#
#  Possible Bugs:
#   * We are not using some of the tokenizer rules.
#     So it isnt entirely clear <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14607	14703	
==>eds. The
following is a list of future features planned for this module.

- better error handling <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14665	14761	
==>eds. The
following is a list of future features planned for this module.

- better error handling <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4465	4595	
==>ty == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4465	4595	
==>ty == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4465	4595	
==>ty == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	10	111	
==>/perl

package Blondie::Nodes;
use base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Cla <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10094	10185	
==>symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10094	10185	
==>symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	705	795	
==>elude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	705	795	
==>elude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	705	795	
==>elude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5202	5319	
==>_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5202	5319	
==>_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5792	5909	
==>_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2340	2452	
==>Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2340	2452	
==>Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8325	8439	
==>::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8325	8439	
==>::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8325	8439	
==>::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1621	1724	
==><Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1621	1724	
==><Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11869	12007	
==>rivate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11869	12007	
==>rivate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11869	12007	
==>rivate method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11083	11239	
==>r);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11083	11239	
==>r);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11083	11239	
==>r);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	596	701	
==>Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	596	701	
==>Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	596	701	
==>Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32267	32363	
==>ck.

When an object does have an ending node, its ender() method should
return an array reference <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18576	18728	
==>isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::isa b <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4308	4419	
==>zy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4308	4419	
==>zy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2980	3089	
==>stant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2980	3089	
==>stant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2980	3089	
==>stant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12161	12267	
==>_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12161	12267	
==>_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12161	12267	
==>_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1236	1344	
==>,
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1236	1344	
==>,
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1236	1344	
==>,
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33009	33104	
==>es that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37559	37654	
==>es that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36903	36998	
==>es that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9871	9993	
==>ame =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9871	9993	
==>ame =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9871	9993	
==>ame =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1608	1750	
==>r class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1608	1750	
==>r class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	884	1021	
==>exp '/' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_[1], $_[2] ] }
        |   exp '^' exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4310	4444	
==>s:

         rule rxbackslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6011	6132	
==>> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28309	28416	
==>andler($seq, $code)

This method creates a method of the parser named $seq, and set it to
the code reference <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6916	7040	
==>parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7380	7504	
==>parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10202	10301	
==>to quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	653	754	
==>($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	653	754	
==>($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	653	754	
==>($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3031	3134	
==>ke_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3031	3134	
==>ke_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3031	3134	
==>ke_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	904	1034	
==>the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	904	1034	
==>the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	904	1034	
==>the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    / <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2134	2230	
==>f = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2134	2230	
==>f = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1419	1572	
==>ess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1419	1572	
==>ess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3473	3582	
==>ock')))
        || confess "argument to &each must be either a closure or a block";
    foreach my $val (@{$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1978	2082	
==>ameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1978	2082	
==>ameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1978	2082	
==>ameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2102	2199	
==>lf: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $other <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2102	2199	
==>lf: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2909	3018	
==>o strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2909	3018	
==>o strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2909	3018	
==>o strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	704	850	
==>t a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	704	850	
==>t a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	704	850	
==>t a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2198	2310	
==>rse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2198	2310	
==>rse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2198	2310	
==>rse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1989	2097	
==>OYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1989	2097	
==>OYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1989	2097	
==>OYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	590	730	
==>s/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5	109	
==>6;

#require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5	109	
==>6;

#require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6478	6603	
==>uthor); 
    }
    else {
        warn "Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12335	12432	
==>previous
value for that field is set.

The header field name ($field) is not case sensitive and '_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12335	12432	
==>previous
value for that field is set.

The header field name ($field) is not case sensitive and '_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7255	7383	
==>->{type}, $self->{how}, "]";
    }
  }
}


{
  package Regexp::Parser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2357	2446	
==>n ($self.size < $other.size && $other.includes($self.members));
}
method superset($self: S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2357	2446	
==>n ($self.size < $other.size && $other.includes($self.members));
}
method superset($self: S <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18339	18543	
==>reach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_co <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1720	1836	
==>}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ ' <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1720	1836	
==>}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2589	2686	
==>{ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2589	2686	
==>{ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2589	2686	
==>{ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4337	4432	
==>ously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4337	4432	
==>ously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4417	4512	
==>ously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$descr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1598	1711	
==>:make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1598	1711	
==>:make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1598	1711	
==>:make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	618	730	
==>erbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	618	730	
==>erbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	618	730	
==>erbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3383	3506	
==>y $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1741	1864	
==>y $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2521	2644	
==>y $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16028	16128	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16028	16128	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16028	16128	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3636	3746	
==>re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self->get_smoker;
    $self->get_r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3891	3998	
==>ormalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3891	3998	
==>ormalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2681	2790	
==>S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4310	4411	
==>.

Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4310	4411	
==>.

Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5598	5695	
==>roed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing f <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5598	5695	
==>roed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing f <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23716	23809	
==>ement> <FunctionDeclaration>
}

# A.6 Universal Resource Identifier Character Classes

rule ur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2292	2400	
==>t.get_method($label, %opts)
            if $current.has_method($label, %opts);
    }
}

# alternate p6 versio <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3166	3273	
==>urn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3166	3273	
==>urn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1407	1508	
==>new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1407	1508	
==>new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1407	1508	
==>new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13771	13867	
==>cess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is ca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13771	13867	
==>cess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	608	721	
==>ode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	608	721	
==>ode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	608	721	
==>ode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7979	8164	
==>$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4339	4524	
==>$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5188	5373	
==>$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14133	14272	
==>rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10306	10445	
==>rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11142	11281	
==>rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12337	12460	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12337	12460	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12337	12460	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.u <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	931	1067	
==>sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suff <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	931	1067	
==>sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suff <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14385	14607	
==>eading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17862	18084	
==>eading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17278	17500	
==>eading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17699	17798	
==>$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17699	17798	
==>$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17699	17798	
==>$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	112	262	
==>01 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	112	262	
==>01 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22958	23054	
==>_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14121	14209	
==>make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14121	14209	
==>make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14121	14209	
==>make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3092	3201	
==>retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3092	3201	
==>retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3092	3201	
==>retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6321	6493	
==>a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6321	6493	
==>a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6321	6493	
==>a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14567	14684	
==>s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14567	14684	
==>s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14567	14684	
==>s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	255	371	
==>2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	255	371	
==>2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	255	371	
==>2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16383	16532	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16383	16532	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16383	16532	
==>ift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16991	17107	
==>e() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have few <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20468	20584	
==>e() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have few <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20046	20162	
==>e() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have few <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22817	22909	
==>om_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22817	22909	
==>om_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22817	22909	
==>om_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($x <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2391	2484	
==>set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2391	2484	
==>set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11896	12041	
==>ng map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11896	12041	
==>ng map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11896	12041	
==>ng map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5374	5473	
==>ned. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normali <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5374	5473	
==>ned. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normali <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	405	487	
==>B::Package>,
L<JIB::Package::Binary>, L<JIB::Package::Installed>, L<JIB::Package::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4987	5097	
==>ew_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4987	5097	
==>ew_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4987	5097	
==>ew_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3787	3981	
==>pan::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3787	3981	
==>pan::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_op <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2079	2184	
==>Todo:
#   * Create a second grammar which actually runs, is efficient,
#     and has captures for easy use <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6112	6233	
==>eturn $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6112	6233	
==>eturn $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7863	7979	
==>>[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_;
  m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5702	5808	
==>{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5702	5808	
==>{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6764	6862	
==>t(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4632	4783	
==>x or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4632	4783	
==>x or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4632	4783	
==>x or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23639	23757	
==>menting class, it can default to True or
False, but once it has a value of False, it can not be further changed;
this c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28191	28309	
==>menting class, it can default to True or
False, but once it has a value of False, it can not be further changed;
this c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27004	27122	
==>menting class, it can default to True or
False, but once it has a value of False, it can not be further changed;
this c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13053	13157	
==>----- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13053	13157	
==>----- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13053	13157	
==>----- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $ob <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	129	257	
==>t 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exp <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5381	5504	
==>= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5381	5504	
==>= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4167	4287	
==>& $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4374	4494	
==>& $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7008	7120	
==>if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3612	3724	
==>if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4461	4573	
==>if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6224	6406	
==>ub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6224	6406	
==>ub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6224	6406	
==>ub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3336	3454	
==>stSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3336	3454	
==>stSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3336	3454	
==>stSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9531	9666	
==>oles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9531	9666	
==>oles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9531	9666	
==>oles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # ---------------------------------- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12564	12775	
==>ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5716	5836	
==>superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10027	10147	
==>superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2521	2618	
==>:opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2521	2618	
==>:opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2521	2618	
==>:opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::Ei <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17421	17527	
==>ExpressionNoIn>
}
rule BitwiseORExpression :words {  # see 11.10
      <BitwiseXORExpression>
    | <Bitwis <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	368	466	
==>int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebyte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	368	466	
==>int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebyte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2718	2812	
==>} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2718	2812	
==>} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2718	2812	
==>} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(", <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4231	4344	
==>airs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17086	17183	
==>The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17086	17183	
==>The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	338	452	
==>Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Ope <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	856	987	
==>url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	856	987	
==>url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7393	7478	
==>match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7393	7478	
==>match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7393	7478	
==>match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3554	3667	
==>ame),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3554	3667	
==>ame),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3554	3667	
==>ame),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11407	11516	
==>f->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11407	11516	
==>f->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11407	11516	
==>f->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10344	10458	
==>hars>
}
rule RegularExpressionChars {  # see 7.8.5
      <null>
    | <RegularExpressionChars> <RegularExpressionCh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4009	4115	
==>turn $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return if $ref eq $cls;
	return <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2992	3087	
==>>{admin} or die << "END";
The '$method' method does not exist in the '$self->{prefix}' path!
Ple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1422	1517	
==>gs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1422	1517	
==>gs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1422	1517	
==>gs = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	259	397	
==>ub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	143	270	
==>ub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	143	270	
==>ub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21419	21513	
==>ame that is distinct from the other
attributes, though several attributes may store values of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25971	26065	
==>ame that is distinct from the other
attributes, though several attributes may store values of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24604	24698	
==>ame that is distinct from the other
attributes, though several attributes may store values of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7537	7674	
==>all private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7537	7674	
==>all private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7537	7674	
==>all private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3849	3969	
==>$Site/$new_alt->{package}/bin";
    
        my @bins;
        print "\nRelinking scripts/manpages to $new_alt->{package} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15711	15802	
==>ting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the calle <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15769	15860	
==>ting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the calle <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	894	1010	
==>}

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	894	1010	
==>}

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25125	25219	
==>ttributes, though such a Relation::Example can have no
more than a single tuple.  A zero-attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13654	13842	
==>ndidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13654	13842	
==>ndidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13654	13842	
==>ndidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	500	598	
==>:Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	500	598	
==>:Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	500	598	
==>:Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5312	5412	
==>n't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5312	5412	
==>n't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5312	5412	
==>n't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10382	10490	
==>f `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $it <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10382	10490	
==>f `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	913	1035	
==>_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	913	1035	
==>_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	913	1035	
==>_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9339	9477	
==>}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9339	9477	
==>}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9339	9477	
==>}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2601	2767	
==>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2601	2767	
==>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2601	2767	
==>unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2160	2264	
==>t'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41296	41386	
==>ve.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41296	41386	
==>ve.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12668	12794	
==>'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12668	12794	
==>'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12668	12794	
==>'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6059	6160	
==>lder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6059	6160	
==>lder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8256	8357	
==>lder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::B <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11111	11244	
==>y %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => sub { $_[0] ? <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	721	833	
==>s Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	721	833	
==>s Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16126	16263	
==>!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16126	16263	
==>!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10075	10167	
==>set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2666	2776	
==>ml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2666	2776	
==>ml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2666	2776	
==>ml", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub pr <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1153	1299	
==>g ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterda <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1153	1299	
==>g ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterda <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	76	178	
==>Junc'

has Perl::JuncType $.juncType;

has Set of Val $.juncDup;
has Set of Val $.juncSet;

does Eq;
do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2123	2224	
==>:cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2123	2224	
==>:cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2123	2224	
==>:cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1250	1347	
==>que instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1250	1347	
==>que instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1250	1347	
==>que instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Mo <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2362	2509	
==>dly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32932	33030	
==>s.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32932	33030	
==>s.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array o <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	268	386	
==>tring is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	268	386	
==>tring is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3940	4058	
==>ut}= $_[1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWO <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6239	6347	
==>junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6297	6405	
==>junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1752	1888	
==>{
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if ! <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22212	22308	
==>search
list.  The analogy is similar to inheriting from multiple packages which
have the same met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22212	22308	
==>search
list.  The analogy is similar to inheriting from multiple packages which
have the same met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2548	2683	
==>> BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2548	2683	
==>> BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2548	2683	
==>> BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::Eige <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10121	10268	
==>air method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10121	10268	
==>air method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10121	10268	
==>air method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1073	1189	
==>t Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4551	4667	
==>t Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5679	5780	
==>[1]) if $cls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'Str';
    return get_meta('Ref')-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12780	12923	
==>$self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12780	12923	
==>$self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12780	12923	
==>$self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3574	3708	
==>al (@{$self}) {
        if ($closure->isa('closure')) {
            my $ref = reference->new($val);            
            $closure->d <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	957	1051	
==>r debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_softw <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	957	1051	
==>r debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_softw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16922	17072	
==>$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16922	17072	
==>$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16922	17072	
==>$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7690	7799	
==>c));
}

sub has_ghc_package {
    my ($self, $package) = @_;
    my $ghc_pkg = $self->assert_ghc_pkg;
    `$gh <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	112	203	
==>epos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	112	203	
==>epos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5141	5281	
==>se {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $le <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5141	5281	
==>se {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $le <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12143	12260	
==>de/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parrot/include/$_" = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1245	1358	
==>perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ and pri <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	834	929	
==>y 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please rea <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	834	929	
==>y 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please rea <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1844	1968	
==>is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1844	1968	
==>is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $. <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20681	20791	
==>irs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	951	1060	
==>iq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	951	1060	
==>iq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19364	19469	
==>uple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The inten <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23916	24021	
==>uple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The inten <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22432	22537	
==>uple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The inten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3074	3176	
==>me (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3074	3176	
==>me (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3074	3176	
==>me (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attri <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	177	289	
==>Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = h <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	177	289	
==>Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	331	420	
==>use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5428	5531	
==>q(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5428	5531	
==>q(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5428	5531	
==>q(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3294	3434	
==>or ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6116	6248	
==>};\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6116	6248	
==>};\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16921	17019	
==>tribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16921	17019	
==>tribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16921	17019	
==>tribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	602	695	
==>ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Inde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	602	695	
==>ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Inde <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6790	6880	
==>", [C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar("\|").
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4117	4218	
==>thod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4117	4218	
==>thod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4117	4218	
==>thod pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	818	941	
==>lement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	818	941	
==>lement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	818	941	
==>lement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21143	21252	
==>ray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subpats = pad["subpats" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17507	17652	
==>)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17507	17652	
==>)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17507	17652	
==>)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4204	4308	
==>in it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4204	4308	
==>in it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4204	4308	
==>in it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Rol <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1965	2069	
==>xt::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Per <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1965	2069	
==>xt::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31248	31345	
==>ples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
B <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35798	35895	
==>ples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
B <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35016	35113	
==>ples, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3024	3122	
==>$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3024	3122	
==>$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3024	3122	
==>$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	980	1101	
==>not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok  \# Expected compi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	993	1096	
==></body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.p <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	993	1096	
==></body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1887	2035	
==>=> " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1887	2035	
==>=> " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1887	2035	
==>=> " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23533	23628	
==>me-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28085	28180	
==>me-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	276	385	
==>MACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	276	385	
==>MACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	276	385	
==>MACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1890	1986	
==>6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1890	1986	
==>6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1890	1986	
==>6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3715	3836	
==>lues{name} =~ /::/ ) {
        my $name = $values{name};
        $name =~ s/::/-/g;
        die "Error in name(): '$values <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4231	4320	
==>on:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4231	4320	
==>on:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1850	1975	
==>@a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1850	1975	
==>@a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7396	7519	
==>nup {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	407	510	
==>x:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the dif <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	407	510	
==>x:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the dif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	447	563	
==>er::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	14	116	
==>s
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	14	116	
==>s
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30312	30451	
==>} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30312	30451	
==>} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30312	30451	
==>} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15505	15606	
==>v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15505	15606	
==>v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15505	15606	
==>v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6256	6352	
==>nts[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6256	6352	
==>nts[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6256	6352	
==>nts[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26506	26605	
==>been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31058	31157	
==>been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30060	30159	
==>been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1885	2000	
==>mp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1885	2000	
==>mp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1885	2000	
==>mp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10817	10960	
==>match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7894	8029	
==>match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7894	8029	
==>match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6389	6504	
==>) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6389	6504	
==>) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6389	6504	
==>) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1773	1916	
==>uest;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1773	1916	
==>uest;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.requ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	362	475	
==>=> 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12905	13016	
==>sult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === non <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16382	16493	
==>sult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === non <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15744	15855	
==>sult is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === non <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6886	6996	
==>tionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6886	6996	
==>tionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1549	1659	
==>ls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35113	35206	
==>has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39663	39756	
==>has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This mu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2287	2389	
==>$one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2287	2389	
==>$one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3233	3352	
==>.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3233	3352	
==>.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3233	3352	
==>.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	203	297	
==>overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	203	297	
==>overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	203	297	
==>overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1758	1888	
==>$class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1758	1888	
==>$class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1758	1888	
==>$class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reble <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1483	1595	
==>);
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1483	1595	
==>);
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1483	1595	
==>);
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	842	1000	
==>ubnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	842	1000	
==>ubnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	842	1000	
==>ubnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1609	1712	
==>relude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1609	1712	
==>relude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1609	1712	
==>relude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7250	7351	
==>$::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7250	7351	
==>$::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7250	7351	
==>$::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14711	14829	
==>age interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14711	14829	
==>age interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14711	14829	
==>age interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3193	3325	
==>name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3193	3325	
==>name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3193	3325	
==>name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2790	2915	
==>xy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2790	2915	
==>xy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2790	2915	
==>xy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7400	7534	
==>y' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7400	7534	
==>y' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7400	7534	
==>y' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1498	1634	
==>= args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1498	1634	
==>= args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1498	1634	
==>= args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7642	7764	
==>d' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7642	7764	
==>d' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7642	7764	
==>d' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36931	37026	
==>ion where a pair
of source relations have identical headings, for these their joining
degenerate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41480	41575	
==>ion where a pair
of source relations have identical headings, for these their joining
degenerate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41103	41198	
==>ion where a pair
of source relations have identical headings, for these their joining
degenerate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1486	1609	
==>w<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1486	1609	
==>w<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1486	1609	
==>w<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33213	33330	
==>_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$::Class->send <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21166	21265	
==>g a value of C<undef> to header() or any of the convenience
methods, does not delete that field.  It <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21166	21265	
==>g a value of C<undef> to header() or any of the convenience
methods, does not delete that field.  It <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1753	1869	
==>s ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without settin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1525	1631	
==>o absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args her <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1525	1631	
==>o absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args her <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9819	9958	
==>y @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9819	9958	
==>y @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9977	10087	
==>%args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
    #- this allows, for example, to set PERL_RUNP <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7603	7756	
==>ld not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7615	7768	
==>ld not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1046	1167	
==>ch my $seq (@nonemptyseqs) {
            $cand = $seq->fetch(num->new(0)); # get the head of the list
            my $noth <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	925	1038	
==>inite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	925	1038	
==>inite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4006	4114	
==>g ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4006	4114	
==>g ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	521	618	
==>ib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4357	4467	
==>($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4357	4467	
==>($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4357	4467	
==>($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6047	6247	
==>>firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6047	6247	
==>>firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6047	6247	
==>>firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.ke <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	674	760	
==>h If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Auth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	674	760	
==>h If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Auth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1120	1241	
==>ss, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1120	1241	
==>ss, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1120	1241	
==>ss, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1312	1497	
==>$params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Pass')->new(
                '$.description' => $params{'$.descript <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6156	6248	
==>:Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6156	6248	
==>:Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2970	3096	
==>an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2970	3096	
==>an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); } <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	64	164	
==>e"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3237	3344	
==>uilder.  It
does this by you setting the expected output and diagnostic output of tests,
running those tests <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3237	3344	
==>uilder.  It
does this by you setting the expected output and diagnostic output of tests,
running those tests <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3317	3424	
==>uilder.  It
does this by you setting the expected output and diagnostic output of tests,
running those tests <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1635	1746	
==>od BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5112	5223	
==>od BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4042	4153	
==>od BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	783	907	
==>ub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	783	907	
==>ub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	783	907	
==>ub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36375	36478	
==>aining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40924	41027	
==>aining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in whic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40538	40641	
==>aining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequence in whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2250	2353	
==>les are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2250	2353	
==>les are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2250	2353	
==>les are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	97	200	
==>CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	97	200	
==>CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	97	200	
==>CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12080	12239	
==>arams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12080	12239	
==>arams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12080	12239	
==>arams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	586	690	
==>t true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	u <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	586	690	
==>t true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	366	464	
==>_Dispatch_w_EigenClasses.jpg in this 
## same directory for a visual explaination of this. 
## ---- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24573	24665	
==>are private, so you must use accessor methods.
Locale::KeyedText does not declare any subrout <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24573	24665	
==>are private, so you must use accessor methods.
Locale::KeyedText does not declare any subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12012	12111	
==>n::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12012	12111	
==>n::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12012	12111	
==>n::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Int <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	403	502	
==>iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::import { }

su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8425	8518	
==>expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis befor <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8425	8518	
==>expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis befor <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20411	20523	
==>words {  # see 12.2
      <Identifier> <Initialiser>?
}
rule VariableDeclarationNoIn :words {  # see 12.2
      < <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	644	742	
==>f $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	644	742	
==>f $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	852	1000	
==>>_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	852	1000	
==>>_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	852	1000	
==>>_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1180	1283	
==>eturn $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1180	1283	
==>eturn $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1180	1283	
==>eturn $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatch <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	28	125	
==>r-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	28	125	
==>r-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3294	3458	
==>t; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3294	3458	
==>t; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3294	3458	
==>t; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12280	12380	
==>)(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12280	12380	
==>)(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12280	12380	
==>)(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7042	7163	
==><ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7042	7163	
==><ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7042	7163	
==><ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8005	8118	
==>rams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8005	8118	
==>rams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8005	8118	
==>rams;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	137	239	
==>mpt at a primitive 
s-expr compiler to generate p5 code, it's really 
pretty bad actually, and the s-ex <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2594	2693	
==>eturn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeou <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2594	2693	
==>eturn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35277	35373	
==>o C<join> except that this method will fail if any of its source Relations
have attributes in com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39827	39923	
==>o C<join> except that this method will fail if any of its source Relations
have attributes in com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39387	39483	
==>o C<join> except that this method will fail if any of its source Relations
have attributes in com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1726	1839	
==>cument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1726	1839	
==>cument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1726	1839	
==>cument.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7454	7539	
==>::make_method($_collect_all_roles));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7454	7539	
==>::make_method($_collect_all_roles));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7454	7539	
==>::make_method($_collect_all_roles));

## --------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15189	15357	
==>ethod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15189	15357	
==>ethod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15189	15357	
==>ethod($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2	120	
==>ckage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2	120	
==>ckage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2	120	
==>ckage PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20029	20116	
==>) :- flag_i(E0), case_insensitive_char_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0], <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	674	784	
==>if (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump data as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12170	12272	
==>i method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15647	15749	
==>i method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8648	8764	
==>0, pos
    if $I0 < pos goto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5616	5725	
==>eding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5616	5725	
==>eding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5616	5725	
==>eding .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($el <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2242	2335	
==>result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10229	10410	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10229	10410	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10229	10410	
==>$::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referre <==
3	/Users/nnunley/pugs/util/config_h.pl	2	100	
==>/usr/bin/perl -w
use strict;
use warnings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9716	9810	
==>ecurrence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9716	9810	
==>ecurrence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	533	646	
==>uct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	533	646	
==>uct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	533	646	
==>uct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	475	579	
==>ile::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	475	579	
==>ile::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	475	579	
==>ile::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISA <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	394	504	
==>ck since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	394	504	
==>ck since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dir <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15553	15658	
==>er {
    my($x)=@_;
    return $x if !p6_is_perl6_object($x);
    $x->as_perl5_whatever();
}

my $as_p6obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4117	4253	
==>= [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4117	4253	
==>= [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4117	4253	
==>= [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7542	7640	
==>urn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7542	7640	
==>urn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7542	7640	
==>urn;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1207	1319	
==>:Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1207	1319	
==>:Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1207	1319	
==>:Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new(" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2524	2711	
==>st')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	897	1010	
==>l { File::Path::mkpath($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create direct <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	216	314	
==>FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi met <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	216	314	
==>FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi met <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5978	6096	
==>r.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5978	6096	
==>r.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2327	2432	
==>AGE__;

__END__

=pod

=head1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::No <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4164	4286	
==>ndef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4164	4286	
==>ndef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4164	4286	
==>ndef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	41	152	
==>rict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	41	152	
==>rict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	41	152	
==>rict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return ble <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10707	10859	
==>ro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::D <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7048	7200	
==>ro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7897	8049	
==>ro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21599	21716	
==>xa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21599	21716	
==>xa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21599	21716	
==>xa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1101	1199	
==>ay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1101	1199	
==>ay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1101	1199	
==>ay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3764	3859	
==>osure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3764	3859	
==>osure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	380	483	
==>/html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.p <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	380	483	
==>/html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21781	21868	
==>lass_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3503	3610	
==>ostcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3503	3610	
==>ostcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3503	3610	
==>ostcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1441	1552	
==>value

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1441	1552	
==>value

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1441	1552	
==>value

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	133	229	
==>ucts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	133	229	
==>ucts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	133	229	
==>ucts the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method('n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12207	12313	
==>rns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15684	15790	
==>rns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1729	1842	
==>line('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1729	1842	
==>line('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1729	1842	
==>line('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3937	4047	
==>hange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3937	4047	
==>hange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3937	4047	
==>hange as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	440	541	
==>D::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	440	541	
==>D::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	440	541	
==>D::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2089	2188	
==>S::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2089	2188	
==>S::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2089	2188	
==>S::inline('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inlin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4367	4478	
==>$_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3788	3886	
==>tedly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3788	3886	
==>tedly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1504	1629	
==>eTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1504	1629	
==>eTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1504	1629	
==>eTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeig <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16069	16196	
==>ass Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16069	16196	
==>ass Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	218	345	
==>$self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $self = shift;
    $self <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27921	28019	
==>ample as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11480	11577	
==>ith the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!al <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11480	11577	
==>ith the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	76	176	
==>shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	76	176	
==>shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	76	176	
==>shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20060	20166	
==>h = abs2rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, $output_dir);
    $outpath    =~ s/\ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15521	15615	
==>);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which contai <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15521	15615	
==>);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which contai <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2197	2440	
==>count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3785	4028	
==>count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    ) <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2066	2191	
==>rrfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Confi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11487	11650	
==>ch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7769	7932	
==>ch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8603	8766	
==>ch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = < <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2880	2980	
==>pen<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RULE
*{'assign'} = Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1133	1228	
==>terations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidir <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1133	1228	
==>terations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1215	1341	
==>->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1215	1341	
==>->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1215	1341	
==>->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11627	11724	
==>le meta-model , any Class instances, themselves does Role since they
are just instances of Class w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11627	11724	
==>le meta-model , any Class instances, themselves does Role since they
are just instances of Class w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11627	11724	
==>le meta-model , any Class instances, themselves does Role since they
are just instances of Class w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5976	6133	
==>s' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5976	6133	
==>s' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5976	6133	
==>s' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7810	7927	
==>1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11287	11404	
==>1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10451	10568	
==>1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2839	2967	
==>!! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is ex <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2839	2967	
==>!! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is ex <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5527	5629	
==>Num';
    return get_meta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23991	24107	
==>common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23991	24107	
==>common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23991	24107	
==>common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6041	6170	
==>b}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "metho <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1019	1126	
==>cript_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to se <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1019	1126	
==>cript_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to se <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1224	1333	
==>ies containing the tests (Default: take tests from ./tests.yaml)
    --help          Show this help

  Perl6 D <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7381	7476	
==>$span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7381	7476	
==>$span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.de <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	217	332	
==>ferences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_ <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	217	332	
==>ferences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2829	2947	
==>start};
    DumpFile($Config{"output-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1240	1346	
==>^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1251	1357	
==>^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1285	1396	
==>ortant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1285	1396	
==>ortant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1285	1396	
==>ortant: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9918	10059	
==>kip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1983	2114	
==>kip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1983	2114	
==>kip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7601	7706	
==>ce (named args) 

###    because the actual rule object will be full OO



:(Str $match_against, :$next_st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7343	7445	
==>ce (named args) 
###    because the actual rule object will be full OO

:(Str $match_against, :$next_st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	835	927	
==>nt RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_LPAREN => -- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2772	2913	
==>lags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    IV matched;
    U32 start;
    int newstr;

    if(str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28633	28766	
==>op::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::altern <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28912	29045	
==>op::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::altern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14014	14175	
==>b {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14014	14175	
==>b {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14014	14175	
==>b {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15067	15169	
==>s
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9266	9368	
==>s
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2507	2606	
==>d is ever really good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	508	634	
==>dules[0] or die $!;
        while (<MODULE>) {
            next if /^\s*(?:#|$)/;
            $self->module_name($1) if /^\s*pa <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	251	363	
==>attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	251	363	
==>attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3242	3347	
==>val(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3242	3347	
==>val(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3242	3347	
==>val(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9688	9804	
==>rn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9688	9804	
==>rn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9688	9804	
==>rn type does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10141	10245	
==>-----------------------------------  
    # collects all the roles, and applies them to the
    # invocan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10141	10245	
==>-----------------------------------  
    # collects all the roles, and applies them to the
    # invocan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10141	10245	
==>-----------------------------------  
    # collects all the roles, and applies them to the
    # invocan <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30924	31028	
==>e/Mapping or a tuple that is identical to the original, in which case
this method returns the identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35474	35578	
==>e/Mapping or a tuple that is identical to the original, in which case
this method returns the identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34665	34769	
==>e/Mapping or a tuple that is identical to the original, in which case
this method returns the identity-on <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11228	11371	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11507	11650	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2119	2243	
==>x_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_ind <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20448	20556	
==>error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16869	16977	
==>error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38452	38553	
==>, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->ne <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16217	16308	
==>ad.

Locale::KeyedText provides a simple but effective mechanism for
applications and packag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16217	16308	
==>ad.

Locale::KeyedText provides a simple but effective mechanism for
applications and packag <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48566	48652	
==>('$:version'   => 'str')));
$::Module->send('add_attribute', (symbol->new('$:authority' <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1522	1668	
==>.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.append_val <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	848	943	
==>ents of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	848	943	
==>ents of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It d <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1957	2180	
==>ned $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cst <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1957	2180	
==>ned $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cst <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18847	18959	
==>D (opaque $self: hash %params) returns nil {
    for %params.kv -> $key, $value {
        # not sure if this is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4186	4301	
==>uired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4186	4301	
==>uired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4186	4301	
==>uired = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1741	1847	
==>rd
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1741	1847	
==>rd
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $s <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	978	1069	
==>nfig{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	888	983	
==>::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	888	983	
==>::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	888	983	
==>::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Ar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2225	2331	
==>nite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2225	2331	
==>nite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22164	22254	
==>DESCRIPTION

Relation::Example provides a minimal in-RAM
storage implementation for the L<R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19237	19354	
==>($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15658	15775	
==>($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11122	11223	
==>and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata removed");

    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20005	20277	
==>ther );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20005	20277	
==>ther );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20005	20277	
==>ther );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10250	10370	
==>$_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  . <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	677	762	
==>f-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Author <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	677	762	
==>f-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	446	547	
==>>{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	446	547	
==>>{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	446	547	
==>>{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1427	1546	
==>tion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1427	1546	
==>tion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1427	1546	
==>tion (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1920	2041	
==>turn $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1920	2041	
==>turn $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1920	2041	
==>turn $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9481	9587	
==>r "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9481	9587	
==>r "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17982	18085	
==>.end

.namespace [ "PGE::Exp::Literal" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":i" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3351	3467	
==>ive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3351	3467	
==>ive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3351	3467	
==>ive = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10569	10704	
==>} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10569	10704	
==>} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10569	10704	
==>} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	291	381	
==>IPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
ro <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	291	381	
==>IPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
ro <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4513	4781	
==>.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4513	4781	
==>.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	40	138	
==>s;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	40	138	
==>s;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	40	138	
==>s;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4537	4702	
==>fined $$m->{tail}
                && $$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Gra <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17086	17183	
==>e spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17086	17183	
==>e spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1844	1951	
==>urns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1844	1951	
==>urns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30723	30820	
==>the right parenthesis
itself.  The handler throws an error if it can't match the ')', because
if t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	754	853	
==>gs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	754	853	
==>gs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	754	853	
==>gs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	750	842	
==>ns;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	750	842	
==>ns;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	750	842	
==>ns;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	529	648	
==>, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	529	648	
==>, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	529	648	
==>, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9808	9955	
==>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9808	9955	
==>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9808	9955	
==>new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12717	12803	
==>rror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12717	12803	
==>rror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12717	12803	
==>rror);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17235	17356	
==>e chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17235	17356	
==>e chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17235	17356	
==>e chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1112	1248	
==>key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1112	1248	
==>key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1112	1248	
==>key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5015	5152	
==>ript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5015	5152	
==>ript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5015	5152	
==>ript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6669	6764	
==>});
}


# Generating error.html
my $error_file = catfile($output_dir,"error.html");
open( my $er <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	242	330	
==>time::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;

us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	242	329	
==>time::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
us <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2630	2754	
==>me, $lang);
    }
}


class Control::Caller {
    has Str $.package;
    has Str $.file;
    has Int $.line;
    has Str $.su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22182	22283	
==>tion can look like a table, where each of its tuples is
a row, and each attribute is a column, but a R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26734	26835	
==>tion can look like a table, where each of its tuples is
a row, and each attribute is a column, but a R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39183	39317	
==>cc) = @_;
    if ($cc) {
      # character class specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28392	28495	
==>to tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are being combined/w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32944	33047	
==>to tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are being combined/w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32072	32175	
==>to tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attributes are being combined/w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9165	9275	
==>ntext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9165	9275	
==>ntext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9165	9275	
==>ntext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15549	15654	
==>esh_perl {
    my($prog, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_arg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1119	1219	
==>Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1119	1219	
==>Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13101	13218	
==>-----

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13101	13218	
==>-----

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13101	13218	
==>-----

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8507	8622	
==>_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8507	8622	
==>_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8507	8622	
==>_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1620	1719	
==>f->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1620	1719	
==>f->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1620	1719	
==>f->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5429	5532	
==>'t work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5429	5532	
==>'t work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5429	5532	
==>'t work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4182	4306	
==>{ $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4182	4306	
==>{ $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4182	4306	
==>{ $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34050	34147	
==>ther>.  This method will fail if C<$other> does not have
an identical header to the invocant relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38600	38697	
==>ther>.  This method will fail if C<$other> does not have
an identical header to the invocant relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38061	38158	
==>ther>.  This method will fail if C<$other> does not have
an identical header to the invocant relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3476	3618	
==>{
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3476	3618	
==>{
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3476	3618	
==>{
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1221	1397	
==>.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1221	1397	
==>.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2929	3040	
==>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2929	3040	
==>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2929	3040	
==>_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $c <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2064	2214	
==>>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2064	2214	
==>>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1374	1496	
==>tring(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1374	1496	
==>tring(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1374	1496	
==>tring(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23694	23803	
==>eeded, in $body.
    '{ my $__flag;
       try { '.$body.' }
       catch Perl6::Run::OnPerl5::X1::Api::Except <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	58	150	
==>scape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	58	150	
==>scape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = U <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1979	2110	
==>else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1957	2088	
==>else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2391	2496	
==>DEFAULTS;
}

sub lookup {
    my($class, $what) = @_;
    die "unknown option: $what" unless exists $Conf- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	100	220	
==>fig;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	109	229	
==>fig;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6524	6657	
==>ar m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6524	6657	
==>ar m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6524	6657	
==>ar m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - shou <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	94	206	
==>use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7571	7675	
==>de([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7571	7675	
==>de([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8021	8124	
==>ject(anyof_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14405	14503	
==>ng( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<sc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14405	14503	
==>ng( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<sc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5130	5287	
==>tmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9448	9556	
==>]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13677	13772	
==>. contains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7043	7178	
==>= @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7043	7178	
==>= @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7043	7178	
==>= @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no war <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2875	2969	
==>her.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2875	2969	
==>her.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5799	5934	
==>er', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5799	5934	
==>er', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $ma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	985	1081	
==>Safe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use base qw <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1526	1779	
==>key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1526	1779	
==>key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6875	6973	
==>NODE PRawName ($pRawName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7693	7842	
==>}
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7693	7842	
==>}
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7693	7842	
==>}
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9949	10070	
==>od('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9949	10070	
==>od('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9949	10070	
==>od('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30073	30170	
==>ethod is a short-hand or alternative for the functionality provided
by the 5 generic relational op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34625	34722	
==>ethod is a short-hand or alternative for the functionality provided
by the 5 generic relational op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33798	33895	
==>ethod is a short-hand or alternative for the functionality provided
by the 5 generic relational op <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2372	2477	
==>eturn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mis <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2372	2477	
==>eturn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2452	2557	
==>eturn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mis <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1732	1877	
==>x ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=h <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1732	1877	
==>x ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=h <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4202	4338	
==>anted, "dist";

        if (@candidates > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Found m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3571	3696	
==>$from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3571	3696	
==>$from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3571	3696	
==>$from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13779	13871	
==>ion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13779	13871	
==>ion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13779	13871	
==>ion::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2029	2128	
==>)(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2029	2128	
==>)(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2029	2128	
==>)(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $code, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16613	16703	
==>ly in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distributi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16613	16703	
==>ly in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distributi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	543	695	
==>r ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	543	695	
==>r ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	543	695	
==>r ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26mai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19390	19536	
==>on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15811	15957	
==>on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      } <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6233	6358	
==>e => 'Win32' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3156	3303	
==>hods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3884	4005	
==>hods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	980	1082	
==>d 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	980	1082	
==>d 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	980	1082	
==>d 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1953	2056	
==>construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1953	2056	
==>construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1953	2056	
==>construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Ste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15312	15508	
==>>zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $poppe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15312	15508	
==>>zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $poppe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15312	15508	
==>>zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $poppe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12558	12657	
==>ore(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_named_character(char(C)) --> " <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15082	15176	
==>vmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $tex <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15082	15176	
==>vmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $tex <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	140	238	
==>ts
# later it can be modifed to be somehow incorporated in the test suit

use File::Compare qw(comp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	851	996	
==>lse {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	851	996	
==>lse {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $p <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1719	1818	
==>f Perl 5's POE to Perl 6. It is only an experiment, it's not
API compatible to the original POE, and <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2312	2411	
==>hod is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2312	2411	
==>hod is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14381	14521	
==>r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWIT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17858	17998	
==>r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWIT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17274	17414	
==>r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else {
            SWIT <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7806	7905	
==>lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRI <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7806	7905	
==>lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	188	302	
==>primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	188	302	
==>primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	188	302	
==>primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4733	4854	
==>);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Car <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4733	4854	
==>);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Car <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5323	5444	
==>);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Car <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9284	9388	
==>e $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9284	9388	
==>e $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	191	372	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	191	372	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	191	372	
==>on => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of o <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14435	14526	
==>_entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_nume <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14435	14526	
==>_entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_nume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	193	302	
==>ubs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	193	302	
==>ubs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	193	302	
==>ubs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5518	5661	
==>ch my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5518	5661	
==>ch my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5518	5661	
==>ch my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5618	5780	
==>r target, pos, 1
    if $S0 != $S2 goto err_close
    inc pos
  term_bx3:
    if isnegated goto term_charlist                # \X[...], \000
    # goto term_litera <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37584	37672	
==>ire'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37584	37672	
==>ire'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2041	2146	
==>} unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak referen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2041	2146	
==>} unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak referen <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11817	11909	
==>oct_spec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23790	23896	
==>a (?:...), copy-and-push
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6441	6540	
==>so be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6234	6329	
==>so be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
su <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7858	8006	
==>ou meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ign <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6780	6904	
==>A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6780	6904	
==>A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6780	6904	
==>A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19758	20003	
==>e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40218	40463	
==>e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19523	19641	
==>$Last_ML_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6527	6657	
==>x:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6527	6657	
==>x:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6527	6657	
==>x:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5126	5224	
==>IL as YAML; don't compile anything.

When compiling (--link option not given), there has to be only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5126	5224	
==>IL as YAML; don't compile anything.

When compiling (--link option not given), there has to be only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5126	5224	
==>IL as YAML; don't compile anything.

When compiling (--link option not given), there has to be only <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	628	766	
==>ut;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics;

        my $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2855	2971	
==>:Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Res <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3400	3516	
==>:Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Res <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17453	17584	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20930	21061	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20517	20648	
==>!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2767	2875	
==>ulti Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8337	8442	
==>rs }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substan <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8337	8442	
==>rs }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2334	2466	
==>t;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2334	2466	
==>t;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2334	2466	
==>t;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	435	535	
==>oc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link" <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	435	535	
==>oc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13395	13533	
==>ch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13395	13533	
==>ch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13395	13533	
==>ch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2387	2492	
==>oin ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2387	2492	
==>oin ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2387	2492	
==>oin ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6164	6262	
==>et, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6164	6262	
==>et, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6164	6262	
==>et, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	557	667	
==>support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	557	667	
==>support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	557	667	
==>support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2705	2843	
==>o_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 White Space

rule TAB  { \x0009 }
rule VT   { \x000B }
rule FF   { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	837	935	
==>::Document {

    # External packages used by the Rosetta::Model::Document class, that do export sy <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	837	935	
==>::Document {

    # External packages used by the Rosetta::Model::Document class, that do export sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11352	11448	
==>re used
because they will not get inherited. This provides more predictable 
behavior to class co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11352	11448	
==>re used
because they will not get inherited. This provides more predictable 
behavior to class co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11352	11448	
==>re used
because they will not get inherited. This provides more predictable 
behavior to class co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1907	2059	
==>f') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1907	2059	
==>f') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1907	2059	
==>f') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $insta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15850	15960	
==>ue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15850	15960	
==>ue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7407	7493	
==>r::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_state <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1232	1318	
==>r::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_state <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2389	2528	
==>its;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32951	33051	
==>ject has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32951	33051	
==>ject has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	989	1093	
==>lder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	989	1093	
==>lder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1536	1640	
==>lder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=b <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2657	2767	
==>ld not build $exename.exe\n"
     ."1..0 # skipped: can't build test executable\n";
    exit(0);
}

return <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3553	3656	
==>s difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# uni <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3553	3656	
==>s difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# uni <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8824	8934	
==>e, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Loc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8824	8934	
==>e, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2123	2253	
==>%attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2328	2458	
==>%attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1276	1377	
==>acted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$remainder) = Text::Bal <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10491	10588	
==>.html</pre>

  <p>
    should suffice. See the <a
    href="http://search.cpan.org/dist/Perl6-Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1848	1940	
==>onstant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUI <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1848	1940	
==>onstant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUI <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3161	3274	
==>{
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3625	3738	
==>{
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	561	666	
==>heck_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1540	1661	
==>description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1540	1661	
==>description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1540	1661	
==>description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   ( <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13519	13635	
==>"$initrd_img\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Pleas <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	414	522	
==>ule to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	414	522	
==>ule to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35502	35634	
==>= $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35502	35634	
==>= $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35502	35634	
==>= $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13041	13137	
==>on_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13041	13137	
==>on_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13041	13137	
==>on_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2196	2333	
==>elf->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2196	2333	
==>elf->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2196	2333	
==>elf->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @star <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3454	3583	
==>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4857	4960	
==>w( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.com <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4857	4960	
==>w( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5859	5963	
==>'$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5859	5963	
==>'$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5859	5963	
==>'$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16478	16597	
==>nt class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16478	16597	
==>nt class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16478	16597	
==>nt class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5802	5918	
==>butes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5802	5918	
==>butes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5802	5918	
==>butes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23539	23687	
==>@failed;
    my $failed = @failed;
    my @result = ();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5253	5384	
==>@a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -I <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5253	5384	
==>@a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5711	5924	
==>FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5711	5924	
==>FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5711	5924	
==>FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2811	2910	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2811	2910	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2811	2910	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12882	13104	
==>h->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12882	13104	
==>h->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12882	13104	
==>h->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8829	9040	
==>/^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12730	12897	
==>/^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12730	12897	
==>/^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9896	10097	
==>=> sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9896	10097	
==>=> sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9896	10097	
==>=> sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7168	7297	
==>boxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7168	7297	
==>boxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7168	7297	
==>boxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	542	644	
==>module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1400	1502	
==>module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1134	1257	
==>d;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1134	1257	
==>d;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1530	1621	
==>yout($$) = { join(" ", $.name, layout($.param)) }
type::operator::nary: level($.param) = { l <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14209	14321	
==>ar(Name,C) :- cached_uncode_charname_to_char(Name,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Na <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6766	6873	
==>d I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing ma <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6766	6873	
==>d I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1987	2093	
==>{
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_e <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1987	2093	
==>{
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_e <==
3	/Users/nnunley/pugs/util/package-osx.pl	2293	2382	
==>2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3851	3951	
==>$code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3851	3951	
==>$code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3851	3951	
==>$code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2003	2107	
==>undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2003	2107	
==>undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2003	2107	
==>undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23074	23178	
==>ping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27626	27730	
==>ping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26403	26507	
==>ping key of a Body tuple must match a
Set member of Heading, and the value of every tuple in Body must be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	330	440	
==>me));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	330	440	
==>me));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	330	440	
==>me));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	859	997	
==>ributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4337	4475	
==>ributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3231	3369	
==>ributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1506	1611	
==>rk:\n";
Benchmark::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5441	5542	
==>IN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.inser <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5441	5542	
==>IN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.inser <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19985	20101	
==>e VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationList> <';'>
}
rule Variable <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5536	5633	
==>ect would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5536	5633	
==>ect would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7869	8008	
==>regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7869	8008	
==>regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7869	8008	
==>regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11250	11411	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11529	11690	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleo <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2255	2348	
==>------------------------------------------------
-- Do not modify this file; it is generated a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1681	1789	
==>/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12465	12572	
==>bject    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$comm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12465	12572	
==>bject    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	613	771	
==>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	613	771	
==>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	613	771	
==>function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1648	1751	
==>ie "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1648	1751	
==>ie "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1648	1751	
==>ie "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* W <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	491	635	
==>:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	497	641	
==>:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	552	696	
==>:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1226	1341	
==>od concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1226	1341	
==>od concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1226	1341	
==>od concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28067	28165	
==>_> Base Class

All nodes inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17648	17742	
==>head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17648	17742	
==>head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2556	2782	
==>| 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2803	3029	
==>| 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @ru <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1722	1832	
==>The right hand side must be a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1431	1541	
==>here was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1431	1541	
==>here was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1431	1541	
==>here was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4471	4559	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4471	4559	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4471	4559	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	451	557	
==>p the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( qw[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21881	21978	
==>to have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26433	26530	
==>to have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8759	8861	
==>mes5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defau <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8759	8861	
==>mes5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defau <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8759	8861	
==>mes5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3525	3656	
==>() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3525	3656	
==>() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3525	3656	
==>() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14656	14747	
==>e.new(\$class, %attrs)
}

(method CREATE ((opaque $class:) (str $repr) (hash %params)) retur <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3871	3970	
==>, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XX <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3871	3970	
==>, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XX <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2186	2285	
==>: JSX::String $P) {
    return JSX::true if $O.property_value.exists($P);
    my $proto = $O.<[[Prot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6393	6536	
==>regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6393	6536	
==>regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6393	6536	
==>regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	388	503	
==>,
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	388	503	
==>,
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINA <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20642	20740	
==>aliserNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2713	2805	
==>fault
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Retu <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2713	2805	
==>fault
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1002	1085	
==>nless)<?p6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16239	16336	
==>$v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16239	16336	
==>$v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16239	16336	
==>$v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value <==
3	/Users/nnunley/pugs/util/version_h.pl	1437	1562	
==>k
            if (my @info = qx/svk info $source_depot/ and $? == 0) {
                if (my ($line) = grep /(?:file|svn|http <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17288	17388	
==>y RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17288	17388	
==>y RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1539	1630	
==>que_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1539	1630	
==>que_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1539	1630	
==>que_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	219	334	
==>IL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	219	334	
==>IL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	219	334	
==>IL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3697	3854	
==>vail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4161	4318	
==>vail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1228	1326	
==>t {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base? <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1228	1326	
==>t {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base? <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11065	11172	
==>ot be comparable.<br />
    The percentage of passed tests is calculated using the total number of
    tests <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2210	2301	
==>|| $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1316	1406	
==>|| $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13386	13525	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13665	13804	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greed <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	865	971	
==>d2 $dir = $inst->alternatives_dir

=cut

sub alternatives_dir {
    my $self = shift;
    my $dir  = $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21611	21740	
==>rove the grammar to get
it to work properly.  Also added tests for the new captures() method.

I changed the field 'class' to 'fam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16429	16540	
==>lation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19906	20017	
==>lation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10101	10197	
==>ent can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty() <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10101	10197	
==>ent can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1680	1789	
==>control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1680	1789	
==>control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1680	1789	
==>control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5586	5708	
==>rec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$_[ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2133	2247	
==>lit rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2133	2247	
==>lit rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	67	164	
==>ime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	67	164	
==>ime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	67	164	
==>ime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	751	853	
==>"< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	751	853	
==>"< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  St <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	200	306	
==>for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	200	306	
==>for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3560	3661	
==>TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	596	692	
==>ult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	596	692	
==>ult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27061	27156	
==>ct> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31613	31708	
==>ct> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30669	30764	
==>ct> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

= <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1433	1557	
==>directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1433	1557	
==>directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	153	257	
==>re::List;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3435	3541	
==>version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3435	3541	
==>version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3435	3541	
==>version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accep <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	225	348	
==>tPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	225	348	
==>tPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	661	790	
==>ir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	661	790	
==>ir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3301	3400	
==>sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	376	559	
==>capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	376	559	
==>capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11335	11437	
==>n the case
of a sub-class that adds a handler, the qr() method is used to produce
the Perl regex implem <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	560	676	
==>L>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but ra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	560	676	
==>L>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but ra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2806	2942	
==>] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1428	1564	
==>] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	879	976	
==>r mm args that take multiple space-seperated args,
# append an argument to the current list.
sub m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11795	11932	
==>ray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11795	11932	
==>ray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11795	11932	
==>ray slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7103	7215	
==>@_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messages since we try to
# be <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4404	4497	
==>()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are availabl <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4404	4497	
==>()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are availabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2815	2912	
==>fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2815	2912	
==>fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2815	2912	
==>fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2022	2140	
==>1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2022	2140	
==>1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2022	2140	
==>1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1645	1742	
==>6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you wa <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1645	1742	
==>6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you wa <==
3	/Users/nnunley/pugs/util/package-osx.pl	11700	11808	
==>755, "$dest$files[-1]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    syste <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5001	5105	
==>[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decodin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5001	5105	
==>[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decodin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5495	5597	
==>cription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5495	5597	
==>cription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7692	7794	
==>cription
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	806	958	
==>s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__EN <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5000	5099	
==>n [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
} <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5000	5099	
==>n [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
} <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17529	17631	
==>E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10793	10874	
==>ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11072	11153	
==>ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4497	4586	
==>), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4761	4879	
==>>isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4761	4879	
==>>isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4761	4879	
==>>isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->typ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	538	641	
==>ubrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	538	641	
==>ubrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4355	4595	
==>v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4355	4595	
==>v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4355	4595	
==>v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8974	9114	
==>d eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8974	9114	
==>d eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8974	9114	
==>d eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Sc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23551	23647	
==>method can be used to see if a Relation-doing object
can mutate.  Depending on the implementing c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28103	28199	
==>method can be used to see if a Relation-doing object
can mutate.  Depending on the implementing c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	68	179	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	68	179	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	68	179	
==>less keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7963	8083	
==>ess $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7963	8083	
==>ess $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7963	8083	
==>ess $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1659	1766	
==>only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1659	1766	
==>only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1659	1766	
==>only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16617	16794	
==>label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16617	16794	
==>label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16617	16794	
==>label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1546	1786	
==>nts);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1546	1786	
==>nts);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5992	6097	
==>en-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5992	6097	
==>en-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5992	6097	
==>en-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4695	4798	
==>n in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4695	4798	
==>n in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6219	6322	
==>n in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2232	2402	
==>h => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2748	2843	
==>ink Pugs::Compiler could work as the

basic interface, and if you'd like to offer more, subclass <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2646	2740	
==>ink Pugs::Compiler could work as the
basic interface, and if you'd like to offer more, subclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15347	15450	
==>MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15347	15450	
==>MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15347	15450	
==>MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7735	7841	
==>=> sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7735	7841	
==>=> sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7735	7841	
==>=> sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	343	447	
==>nty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	343	447	
==>nty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14650	14758	
==>_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14650	14758	
==>_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14650	14758	
==>_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11677	11797	
==>ent;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11677	11797	
==>ent;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25154	25235	
==>e->get('$self:')->set_attr(symbol->new('@:superclasses') => $e->get('?@superclasse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10384	10542	
==>');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10384	10542	
==>');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10384	10542	
==>');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28968	29075	
==>apped, and it supports having new tuple-valued
attributes which wrap zero old attributes (they are effective <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33520	33627	
==>apped, and it supports having new tuple-valued
attributes which wrap zero old attributes (they are effective <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32657	32764	
==>apped, and it supports having new tuple-valued
attributes which wrap zero old attributes (they are effective <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3524	3617	
==>ference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.differen <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3524	3617	
==>ference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.differen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21760	21873	
==>p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21760	21873	
==>p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21760	21873	
==>p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10409	10568	
==>R::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10409	10568	
==>R::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10409	10568	
==>R::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21126	21305	
==>ET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21126	21305	
==>ET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21126	21305	
==>ET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	713	848	
==>ss(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	713	848	
==>ss(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	713	848	
==>ss(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	510	630	
==>Usage: 
$0  key:value 

    key is one of the keys in the meta info
    value is a regex, compiled with qr//
    
    \n] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5971	6085	
==>constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5959	6073	
==>constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5262	5381	
==>longmess (; $e = '') returns Str is primitive is safe {
        my($mess, $i);
        $mess = "$e at $?CALLER::POSITION <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8066	8160	
==>em.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, follow <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8066	8160	
==>em.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, follow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13903	14000	
==>::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13903	14000	
==>::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13903	14000	
==>::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21911	22032	
==>>($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21911	22032	
==>>($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21911	22032	
==>>($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	96	211	
==>= 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	96	211	
==>= 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	96	211	
==>= 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2160	2263	
==>oc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2160	2263	
==>oc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumf <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6625	6721	
==>the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and sto <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6625	6721	
==>the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16241	16345	
==>benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Com <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16241	16345	
==>benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Com <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7644	7730	
==>n_test(lookbehind(R))     --> p5_elemental(lookbehind(R)).
p5_condition_test(lookbehind <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14805	14899	
==>system, which makes
it easy to create and use relational databases in a very reliable,
portable <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14805	14899	
==>system, which makes
it easy to create and use relational databases in a very reliable,
portable <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5584	5724	
==>, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pStmts"
        dbg "# keys: ",%pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18636	18727	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18636	18727	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18636	18727	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2858	2964	
==>int "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4583	4687	
==>lse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4583	4687	
==>lse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4583	4687	
==>lse () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_fr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5898	6007	
==>ious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5898	6007	
==>ious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.cl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4221	4531	
==>_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	881	975	
==>ion 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	881	975	
==>ion 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This do <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5349	5476	
==>CxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCx <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5349	5476	
==>CxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11487	11646	
==>\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5837	5987	
==>\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5837	5987	
==>\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        " <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	450	560	
==>args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $fil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	417	527	
==>args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $fil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22657	22752	
==>ormation, as well as (I
suspect) an important constraint on what fields can contain.

=head1 reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3732	3900	
==>slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3732	3900	
==>slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3732	3900	
==>slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11692	11793	
==>rmal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11692	11793	
==>rmal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11692	11793	
==>rmal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	628	731	
==>apped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	628	731	
==>apped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	628	731	
==>apped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2894	3021	
==>with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2894	3021	
==>with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1929	2023	
==>e_closure);
    $optable->addToken("postfix:*", "<term:", "left", $parse_quant);
    $optable-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3992	4099	
==>ake 'use fatal' not try to load a module. XXX: add a real inc class to
    # interface %*INC, instead of thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	162	265	
==>nts.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	162	265	
==>nts.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3513	3612	
==>keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3513	3612	
==>keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4103	4202	
==>keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $n <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2110	2208	
==>coped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2110	2208	
==>coped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2347	2582	
==>l  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1479	1650	
==>l  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1479	1650	
==>l  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4253	4361	
==>s_revision} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpa <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2096	2193	
==>ob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2096	2193	
==>ob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4565	4696	
==>m"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4565	4696	
==>m"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => ' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1651	1745	
==>subrule);
    $optable->addToken("term:<[", "term:", "nows", &parse_enumclass);
    $optable->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1159	1261	
==>Fun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1159	1261	
==>Fun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1159	1261	
==>Fun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $s <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	912	1015	
==>: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfScore {
   my $script = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11830	11924	
==>recurrences are exactly the same.

This method tests the closures identities using the '===' op <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11830	11924	
==>recurrences are exactly the same.

This method tests the closures identities using the '===' op <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51674	51925	
==>b {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51063	51311	
==>b {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            ) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16597	16832	
==>d$/,
                                          name  => $heading_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        heading  => $head <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11308	11406	
==>utines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
} <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11308	11406	
==>utines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16060	16166	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16060	16166	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16060	16166	
==>e_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3200	3323	
==>ilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # sm <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3200	3323	
==>ilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # sm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3661	3787	
==>EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3661	3787	
==>EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3661	3787	
==>EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1914	2101	
==>lems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %para <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1914	2101	
==>lems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %para <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4699	4828	
==>lf->{max} ) {
            warn "Enormous test number seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	757	852	
==>support enciphering individual bits.  Also note that the 
Cipher API operates at the byte level, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	757	852	
==>support enciphering individual bits.  Also note that the 
Cipher API operates at the byte level, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	415	585	
==>=> $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method injec <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	415	585	
==>=> $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method injec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	253	353	
==>d -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	253	353	
==>d -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	253	353	
==>d -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<prec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10459	10586	
==>Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10459	10586	
==>Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10459	10586	
==>Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14578	14692	
==>od {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $dige <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14578	14692	
==>od {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $dige <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20611	20703	
==>,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx],[],[] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8292	8443	
==>);
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1449	1543	
==>the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is go <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1449	1543	
==>the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is go <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22377	22496	
==>.
This is perhaps the most flexible place to allocate large data
which Perl_re_dup() will copy for us.

    New(0, ret-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1578	1678	
==>:PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1578	1678	
==>:PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4014	4140	
==>, 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4014	4140	
==>, 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	864	990	
==>, 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

n <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	970	1074	
==>exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{ur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	937	1041	
==>exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{ur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5912	6010	
==>= $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_token_matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2718	2843	
==>ds
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2718	2843	
==>ds
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2718	2843	
==>ds
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2074	2174	
==>return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4010	4135	
==>/xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4010	4135	
==>/xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4448	4557	
==>e2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ 'file4',  $file4,  "0000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1772	1868	
==>L2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1772	1868	
==>L2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1772	1868	
==>L2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18422	18517	
==>nyof> object's C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If you <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	68	159	
==>../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs-Compiler-Precede <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27637	27734	
==>orresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32189	32286	
==>orresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31281	31378	
==>orresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	619	713	
==>ean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	619	713	
==>ean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	619	713	
==>ean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3970	4088	
==>, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3970	4088	
==>, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3970	4088	
==>, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3347	3438	
==>rn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3347	3438	
==>rn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3347	3438	
==>rn "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11899	12000	
==>f their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=ove <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11899	12000	
==>f their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=ove <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	534	674	
==>t_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=he <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6212	6308	
==>tion of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple att <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6212	6308	
==>tion of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple att <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	865	966	
==>Foo of Str where { rx/^Foo/ };

It is probably bad to have both a MetaClass called C<Type> and a
langu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11911	12011	
==>t write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11969	12069	
==>t write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... test <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2017	2119	
==>ngth - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2017	2119	
==>ngth - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2017	2119	
==>ngth - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1584	1692	
==>erl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1584	1692	
==>erl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1584	1692	
==>erl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6264	6362	
==>'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6264	6362	
==>'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	156	258	
==>LV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	156	258	
==>LV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	156	258	
==>LV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2950	3070	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2950	3070	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2950	3070	
==>itive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	88	216	
==>se JIB::Source;

use Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::C <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1727	1847	
==>previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1727	1847	
==>previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3026	3129	
==>@a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3026	3129	
==>@a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3026	3129	
==>@a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3556	3674	
==>e),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3556	3674	
==>e),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3556	3674	
==>e),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	361	476	
==>aiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	361	476	
==>aiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	361	476	
==>aiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7187	7346	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7187	7346	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7187	7346	
==>y $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' => <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2658	2761	
==>returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2658	2761	
==>returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6857	6950	
==>the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $si <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6857	6950	
==>the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32202	32302	
==>ng node, and most don't need to to do
anything to the walking stack.

When an object does have an end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11801	11965	
==>) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11801	11965	
==>) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11801	11965	
==>) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1103	1238	
==>er => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	952	1086	
==>er => '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7755	7877	
==>old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7755	7877	
==>old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7755	7877	
==>old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1553	1680	
==>ethods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1553	1680	
==>ethods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1553	1680	
==>ethods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	638	764	
==>my ( $n, $what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2404	2512	
==>eturn { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2651	2759	
==>eturn { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6783	6964	
==>@args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6783	6964	
==>@args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6783	6964	
==>@args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4725	4862	
==>$!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4725	4862	
==>$!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4725	4862	
==>$!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9443	9559	
==>rse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9443	9559	
==>rse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1113	1217	
==>%h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1113	1217	
==>%h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1113	1217	
==>%h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13532	13676	
==>dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13532	13676	
==>dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13532	13676	
==>dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3494	3594	
==>two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3494	3594	
==>two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6533	6622	
==>$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6533	6622	
==>$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6533	6622	
==>$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::ma <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	484	647	
==>ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	484	647	
==>ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7104	7197	
==>l>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ($a,$b) is looser(infix:<*>) {...}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3101	3205	
==>less $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3101	3205	
==>less $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3101	3205	
==>less $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9325	9423	
==>return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9325	9423	
==>return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3248	3339	
==>age P6RulesInP5::P6Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use wa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16889	17000	
==>ion :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <EqualityExpression>
}
r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20710	20807	
==>routines or export such.

The usual way that Relation indicates a failure is to throw an exception <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25262	25359	
==>routines or export such.

The usual way that Relation indicates a failure is to throw an exception <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1063	1170	
==>maker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no argume <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1954	2061	
==>maker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no argume <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	26	119	
==>ure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14355	14525	
==>= '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14355	14525	
==>= '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14355	14525	
==>= '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5092	5219	
==>gn to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad< <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5416	5543	
==>gn to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23063	23161	
==>hing.)

=item nparen

The number of OPENs (capturing groups) in the regex.

=item captures

An arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11596	11751	
==>erminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc con <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11596	11751	
==>erminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6733	6843	
==>yof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # eol, seo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1998	2124	
==>s->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1998	2124	
==>s->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1998	2124	
==>s->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2475	2569	
==>brule($code)> executes $code, passing the match object as a parameter, and
it should return a I <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2475	2569	
==>brule($code)> executes $code, passing the match object as a parameter, and
it should return a I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10089	10179	
==>RL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{PERL_RUNPE <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1030	1141	
==>ee, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1030	1141	
==>ee, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	288	398	
==>lf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	288	398	
==>lf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	288	398	
==>lf->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14685	14816	
==>";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14685	14816	
==>";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14685	14816	
==>";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10212	10441	
==>>str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10212	10441	
==>>str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10212	10441	
==>>str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9567	9679	
==>al($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9567	9679	
==>al($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9567	9679	
==>al($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4472	4598	
==>le, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4472	4598	
==>le, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4472	4598	
==>le, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1214	1309	
==>_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1214	1309	
==>_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1214	1309	
==>_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6302	6489	
==>));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6302	6489	
==>));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6302	6489	
==>));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2390	2627	
==>) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        cla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2753	2849	
==><$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2753	2849	
==><$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13357	13463	
==>rt => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13357	13463	
==>rt => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7949	8038	
==>oBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4386	4563	
==>'&status');            
            my $status        = $::SELF->$status_sub();
            $status->{"skip"} = 1;
            return $status;            
        }
    }
});

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4923	5040	
==>esult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4923	5040	
==>esult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4923	5040	
==>esult to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17053	17148	
==>nt_length

A decimal number indicating the size in bytes of the message content.

=item $h.conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17053	17148	
==>nt_length

A decimal number indicating the size in bytes of the message content.

=item $h.conte <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1807	1906	
==>$.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1807	1906	
==>$.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1794	1894	
==>s '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument < <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1794	1894	
==>s '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2920	3027	
==>emit_grammar_perl6 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2688	2786	
==>method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Sta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2688	2786	
==>method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Sta <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1269	1377	
==>er must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1269	1377	
==>er must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26056	26155	
==>his in
my code; you should make sure in yours.

Matching against the regex is done in scalar context <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17603	17700	
==>unt => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17603	17700	
==>unt => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17603	17700	
==>unt => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	53	170	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	53	170	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	53	170	
==>SION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13289	13404	
==>.

  The implementation reaches into perlguts, which limits the range of
  perl versions it will work with, and rais <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	656	784	
==>to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and qua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	656	784	
==>to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and qua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	656	784	
==>to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and qua <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7508	7642	
==>} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    return ($ghc, $ghc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34894	35066	
==>$dispatcher')->do());
                })->do_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$return') <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22776	22872	
==>a template will
choose to show less than all of the available details depending on the
intended v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22776	22872	
==>a template will
choose to show less than all of the available details depending on the
intended v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35637	35728	
==>of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40187	40278	
==>of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4102	4204	
==>:Rebless defines B<only class methods>. There is no instance
constructor, and when calling these method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4102	4204	
==>:Rebless defines B<only class methods>. There is no instance
constructor, and when calling these method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4102	4204	
==>:Rebless defines B<only class methods>. There is no instance
constructor, and when calling these method <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22950	23130	
==>::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23229	23409	
==>::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1738	1879	
==>rule( 
    #    name => '&',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'infix:<|>',
    #);

    __PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	522	614	
==>:EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	522	614	
==>:EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	522	614	
==>:EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2558	2655	
==>=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2558	2655	
==>=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2558	2655	
==>=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5810	5908	
==>_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5810	5908	
==>_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5810	5908	
==>_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3190	3306	
==>n "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3190	3306	
==>n "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3190	3306	
==>n "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11687	11807	
==>ONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11687	11807	
==>ONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> <==
3	/Users/nnunley/pugs/util/grokprims.pl	2278	2372	
==>t "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  foreach my $arg (@{$op->{a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1217	1351	
==>eed
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	777	911	
==>eed
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7307	7413	
==>}
  }  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_regcompp pun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1264	1446	
==>, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1264	1446	
==>, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1264	1446	
==>, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	164	272	
==>s too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	164	272	
==>s too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	164	272	
==>s too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12772	12889	
==>y ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12772	12889	
==>y ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12772	12889	
==>y ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::V <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9990	10103	
==>, "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creating dir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	846	944	
==>e seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need t <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	846	944	
==>e seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6307	6412	
==>SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6307	6412	
==>SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6307	6412	
==>SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4608	4704	
==>__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4608	4704	
==>__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5198	5294	
==>__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var named_only));
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1065	1177	
==>Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1065	1177	
==>Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1065	1177	
==>Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	42	155	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	42	155	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	42	155	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17726	17842	
==>start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return MatchX->new()->se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22867	22963	
==>$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27419	27515	
==>$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2882	2994	
==>ict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2882	2994	
==>ict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2882	2994	
==>ict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16998	17107	
==>hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16998	17107	
==>hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16998	17107	
==>hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19585	19681	
==>o> statement
are marked to be passed to that compiler. The end of an inner block
effectively acts <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19585	19681	
==>o> statement
are marked to be passed to that compiler. The end of an inner block
effectively acts <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8919	9012	
==>%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8844	8962	
==>le a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8844	8962	
==>le a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT N <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	703	810	
==>t( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct => $struct );

=cut

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8029	8137	
==>Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8029	8137	
==>Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8029	8137	
==>Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9541	9638	
==>ote: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9541	9638	
==>ote: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27360	27451	
==>ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3949	4060	
==>se",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3949	4060	
==>se",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ( <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2036	2146	
==>d1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where scr <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2036	2146	
==>d1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where scr <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13473	13573	
==>1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23551	23657	
==>rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23551	23657	
==>rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23551	23657	
==>rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11121	11251	
==>thod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_nor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11121	11251	
==>thod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_nor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11121	11251	
==>thod ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_nor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5674	5850	
==>) returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method transla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5674	5850	
==>) returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method transla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3629	3758	
==>e: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3629	3758	
==>e: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3629	3758	
==>e: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6598	6738	
==>,  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6598	6738	
==>,  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6598	6738	
==>,  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3913	4013	
==>sional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3913	4013	
==>sional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3913	4013	
==>sional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
u <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5473	5565	
==>se }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Num <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8575	8673	
==>n is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fire <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8575	8673	
==>n is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fire <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7763	7860	
==>defined $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1878	1991	
==>rted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1878	1991	
==>rted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1878	1991	
==>rted yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a s <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	47	162	
==>local/lib/perl5/site_perl/5.8.7/Module/Install/Metadata.pm"
package Module::Install::Metadata;
use Module::Install:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1978	2089	
==>? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1978	2089	
==>? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14048	14200	
==>{
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14048	14200	
==>{
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14048	14200	
==>{
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21863	21972	
==>I SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21863	21972	
==>I SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21863	21972	
==>I SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29005	29104	
==>le-valued
attributes which wrap zero old attributes (they are effectively just an
extension of the r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33557	33656	
==>le-valued
attributes which wrap zero old attributes (they are effectively just an
extension of the r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32694	32793	
==>le-valued
attributes which wrap zero old attributes (they are effectively just an
extension of the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4059	4166	
==>'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4059	4166	
==>'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4059	4166	
==>'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	795	930	
==>tart;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	795	930	
==>tart;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10969	11071	
==>Conversions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <St <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47290	47452	
==>symbol->new('%:namespace'))->fetch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5290	5393	
==>'\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5667	5776	
==>emove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5667	5776	
==>emove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21627	21737	
==>b _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Ws <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5407	5508	
==>sed by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5407	5508	
==>sed by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interf <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6425	6531	
==>tter (Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3828	3925	
==>more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3828	3925	
==>more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	571	689	
==>ch[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %para <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	571	689	
==>ch[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %para <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2737	2845	
==>ype and @$type == 1;
	$type;
}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{names <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8083	8179	
==>[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. i <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1033	1267	
==>al => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTH <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1033	1267	
==>al => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9282	9403	
==>k || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9282	9403	
==>k || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9282	9403	
==>k || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SE <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14605	14701	
==>needs. The
following is a list of future features planned for this module.

- better error handli <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14663	14759	
==>needs. The
following is a list of future features planned for this module.

- better error handli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32975	33141	
==>ift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32975	33141	
==>ift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32975	33141	
==>ift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3200	3396	
==>py, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3200	3396	
==>py, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1161	1273	
==>et
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1161	1273	
==>et
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<obj <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2941	3042	
==>shift(@let_stack) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FA <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2506	2610	
==>ub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13713	13814	
==>will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13713	13814	
==>will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3296	3458	
==>y
            gather {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    default { tak <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10061	10244	
==>d eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local vari <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8903	9023	
==>ss s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8903	9023	
==>ss s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1430	1536	
==>h) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1430	1536	
==>h) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1430	1536	
==>h) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10289	10400	
==>ce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10289	10400	
==>ce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10289	10400	
==>ce_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2907	2992	
==>locks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2907	2992	
==>locks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2907	2992	
==>locks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	261	371	
==>args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	261	371	
==>args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	261	371	
==>args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1511	1610	
==>(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1511	1610	
==>(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1511	1610	
==>(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11347	11444	
==>ods are used
because they will not get inherited. This provides more predictable 
behavior to clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11347	11444	
==>ods are used
because they will not get inherited. This provides more predictable 
behavior to clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11347	11444	
==>ods are used
because they will not get inherited. This provides more predictable 
behavior to clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1492	1614	
==>-compile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37650	37746	
==>, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37650	37746	
==>, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6801	6918	
==>20),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6801	6918	
==>20),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3425	3541	
==>) {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3425	3541	
==>) {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3425	3541	
==>) {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only o <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	885	1048	
==>equire;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	885	1048	
==>equire;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2	100	
==>ckage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2	100	
==>ckage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2	100	
==>ckage PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	126	229	
==>n the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	126	229	
==>n the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	126	229	
==>n the
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6582	6700	
==>w('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6582	6700	
==>w('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6582	6700	
==>w('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13969	14081	
==>p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13969	14081	
==>p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13969	14081	
==>p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27651	27748	
==>xtension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32203	32300	
==>xtension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31295	31392	
==>xtension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11759	11846	
==>e ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11759	11846	
==>e ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11759	11846	
==>e ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2459	2584	
==>: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2459	2584	
==>: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	317	425	
==>urtest
    $Columns 
    $ML $Last_ML_Print
    $Strap
);

=head1 NAME

Test::Harness - Run Perl standard tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16629	16797	
==>> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16629	16797	
==>> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16629	16797	
==>> 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2013	2160	
==>{
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shif <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2013	2160	
==>{
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shif <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29427	29528	
==>tially done in Test::Harness::Straps)

Document the format.

Fix HARNESS_COMPILE_TEST without breaking <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	175	276	
==>Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	175	276	
==>Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	175	276	
==>Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2769	2896	
==>ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2769	2896	
==>ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2769	2896	
==>ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2377	2498	
==>lues>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2377	2498	
==>lues>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14786	14950	
==>> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14786	14950	
==>> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14786	14950	
==>> sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1790	1930	
==>)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1790	1930	
==>)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1790	1930	
==>)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15954	16199	
==>' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15954	16199	
==>' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15954	16199	
==>' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3887	3997	
==>" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3887	3997	
==>" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3887	3997	
==>" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4920	5037	
==>repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also l <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4920	5037	
==>repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also l <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1261	1363	
==>*** Default build config file created.
    You can edit some settings in $filename (then rerun Makefile <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17713	17856	
==>e result of 
                    each test looks like this:

    $results{details}[$test_num - 1] = 
            { ok        => is the test cons <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	118	214	
==>ion

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=he <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	118	214	
==>ion

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5411	5524	
==>= sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5411	5524	
==>= sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5411	5524	
==>= sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flag <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1183	1317	
==>outine();
  if ( $self->coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	31	127	
==>eginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array- <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	31	127	
==>eginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11257	11382	
==>f);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11257	11382	
==>f);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11257	11382	
==>f);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19282	19385	
==>$xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19282	19385	
==>$xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19282	19385	
==>$xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2215	2317	
==>de.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2215	2317	
==>de.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2215	2317	
==>de.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11746	11847	
==>$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_netware || $is_vms) {
	    $runperl = qq{$^X -e "pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32654	32752	
==>f its arguments is not significant to the result;
the new Relation contains all the tuples of the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37204	37302	
==>f its arguments is not significant to the result;
the new Relation contains all the tuples of the s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1945	2120	
==>};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1945	2120	
==>};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2981	3085	
==>--> Int ) {
    Array::splice(@array, @array.elems, 0, @values);
    @array.elems;
}

# copied from S29dr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6677	6769	
==>pike_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2827	2930	
==>uctor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@f <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2827	2930	
==>uctor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13193	13329	
==>his->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13193	13329	
==>his->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13193	13329	
==>his->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38411	38578	
==>);                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38942	39109	
==>);                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36150	36306	
==>);                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribute'), <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8675	8796	
==>riable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8868	8989	
==>riable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	862	963	
==>\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13501	13606	
==>oop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13501	13606	
==>oop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13501	13606	
==>oop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11945	12053	
==>les are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11945	12053	
==>les are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11945	12053	
==>les are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	763	873	
==>pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Ful <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	763	873	
==>pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Ful <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	763	873	
==>pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Ful <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	159	276	
==>RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21067	21163	
==>operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.joi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21067	21163	
==>operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.joi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27156	27249	
==>=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31708	31801	
==>=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic rela <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8031	8131	
==>sers.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8031	8131	
==>sers.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/he <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8327	8423	
==>sers.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8327	8423	
==>sers.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22939	23032	
==>intended to be composed
into separate (and usually third-party) classes, which at the very lea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7340	7470	
==>f( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7328	7458	
==>f( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$fr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27846	27958	
==>undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' +|([0-9]+| <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6646	6743	
==>_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvoca <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6646	6743	
==>_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvoca <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1584	1738	
==>return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some/dir' );

Removes a directory completely, even if it is non-empty.

Return <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2806	2909	
==>}

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2806	2909	
==>}

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30426	30538	
==>_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30426	30538	
==>_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30426	30538	
==>_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4250	4342	
==>:Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4250	4342	
==>:Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6447	6539	
==>:Skip instance, passing on the C<$description> and
C<$reason> parameters and a true value for <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	551	668	
==>unt, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$nam <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	551	668	
==>unt, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1217	1356	
==>dData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1217	1356	
==>dData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1217	1356	
==>dData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9153	9256	
==>odo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9211	9314	
==>odo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	997	1092	
==>our Int multi Num::round_alternate (Num $x) {
# XXX I don't understand what round-alternate mean <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4471	4583	
==>This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4471	4583	
==>This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4471	4583	
==>This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	655	760	
==>ay JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	655	760	
==>ay JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	655	760	
==>ay JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (ty <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5428	5539	
==>(attribute new (@:subclasses))      (list)
     (attribute new (@:superclasses))    (list)
     (attribute new ( <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1001	1094	
==>s Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remote <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1001	1094	
==>s Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remote <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1916	2050	
==>check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    token <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1916	2050	
==>check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6313	6411	
==>olve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Class->add_metho <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14573	14679	
==>hash)>

In Scalar context, they all return the count of elements that would have
been iterated.

The lvalue <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3185	3277	
==>t_previous ),
        complement_previous => $self._get_intersection( $self.complement_previo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3185	3277	
==>t_previous ),
        complement_previous => $self._get_intersection( $self.complement_previo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4685	4809	
==>::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pu <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	224	323	
==>:Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method final <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	224	323	
==>:Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method final <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2882	2997	
==>self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2882	2997	
==>self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2882	2997	
==>self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1913	2004	
==>eclaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1913	2004	
==>eclaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1913	2004	
==>eclaration of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3022	3140	
==>tem Sym

Resolves a symbol into a value. Could be a global or a dynamic symbol:

    App(
        Sym('&func'), # Sym i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	669	773	
==>t supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	669	773	
==>t supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_i <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2758	2879	
==>ist.
sub gen_source {
    my($target) = @_;
    open my $ofh, ">", $target or die "open: $target: $!";

    {
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2963	3076	
==>poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <s <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2963	3076	
==>poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7843	7968	
==>ction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7843	7968	
==>ction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7843	7968	
==>ction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11939	12044	
==>>{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11939	12044	
==>>{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11939	12044	
==>>{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11944	12046	
==>his:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12002	12104	
==>his:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10261	10357	
==>xpressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
rule R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3099	3215	
==>:Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Res <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3645	3761	
==>:Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Res <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	186	281	
==>lass { __PACKAGE__ . "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4406	4607	
==>pture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4273	4467	
==>pture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                captu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1151	1254	
==>>new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be the <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1151	1254	
==>>new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2792	2906	
==>m re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2792	2906	
==>m re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2792	2906	
==>m re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3438	3613	
==>ile]) {
                    system( qw[touch], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package;:inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2117	2227	
==>){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2117	2227	
==>){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1086	1189	
==>>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1086	1189	
==>>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1086	1189	
==>>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4389	4498	
==>name = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4389	4498	
==>name = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4389	4498	
==>name = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EOF, 0, - <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12360	12484	
==>led on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_nu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	178	275	
==>.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn") <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	178	275	
==>.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39369	39486	
==>p {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39369	39486	
==>p {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39369	39486	
==>p {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11120	11255	
==>| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11120	11255	
==>| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11120	11255	
==>| $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5365	5478	
==>? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5365	5478	
==>? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	435	542	
==>elf, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	435	542	
==>elf, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	435	542	
==>elf, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4898	4994	
==>de, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4898	4994	
==>de, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4898	4994	
==>de, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6785	6920	
==>my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1213	1348	
==>[ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12870	13000	
==>my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	990	1149	
==>rn $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::concat(\n" . 
               ( join '', @s ) . 
               "$tab )\n";
} <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	591	699	
==>th no hand holding, and actually understood. Everybody cheer!
# (i did not understand (or try very hard to un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	787	904	
==>[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	796	913	
==>[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1073	1172	
==>e need to test to check for circular superclasses?
# I guess that we're not the superclass of any su <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2678	2789	
==>ool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4485	4583	
==>=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4485	4583	
==>=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5233	5335	
==>esn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5233	5335	
==>esn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5233	5335	
==>esn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1613	1737	
==>) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1613	1737	
==>) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1613	1737	
==>) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2604	2705	
==>ef($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2604	2705	
==>ef($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2604	2705	
==>ef($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8265	8368	
==>sts_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8323	8426	
==>sts_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15873	15963	
==>), var(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17344	17437	
==>r.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17344	17437	
==>r.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17344	17437	
==>r.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16797	16894	
==>B IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16797	16894	
==>B IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16797	16894	
==>B IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12006	12149	
==>=> {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12006	12149	
==>=> {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12006	12149	
==>=> {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	28	141	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	28	141	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	28	141	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6278	6374	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6278	6374	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6278	6374	
==>:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5380	5596	
==>nt    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5380	5596	
==>nt    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1714	1837	
==>_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1714	1837	
==>_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1714	1837	
==>_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7358	7497	
==>CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7358	7497	
==>CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7358	7497	
==>CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8278	8437	
==>l { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8278	8437	
==>l { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53095	53185	
==>e'   => str->new('Class'));
$::Object->send('name'  => str->new('Object'));
$::Package->sen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27070	27216	
==>:constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27349	27495	
==>:constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	7	111	
==>ung1.pl - Perl 5 Version
use utf8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub PoundToEur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2835	2933	
==>roductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2835	2933	
==>roductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return> <==
3	/Users/nnunley/pugs/util/grokprims.pl	922	1054	
==>} cmp $b->{name} or
             $a->{assoc} cmp $b->{assoc} or
               @{$a->{args}} <=> @{$b->{args}}} @ops
        ) {

  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9020	9145	
==>call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9020	9145	
==>call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5349	5458	
==>ke_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5349	5458	
==>ke_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5349	5458	
==>ke_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6960	7077	
==>'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6960	7077	
==>'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3859	3976	
==>'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5169	5274	
==>$xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5169	5274	
==>$xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5169	5274	
==>$xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3879	4019	
==>a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3879	4019	
==>a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3879	4019	
==>a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7434	7607	
==>r';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7434	7607	
==>r';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7434	7607	
==>r';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1273	1458	
==>t.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1273	1458	
==>t.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1273	1458	
==>t.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	456	578	
==>String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	456	578	
==>String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	456	578	
==>String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1902	2012	
==>nd $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1902	2012	
==>nd $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1902	2012	
==>nd $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1891	1993	
==>Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1891	1993	
==>Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1891	1993	
==>Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1414	1526	
==>ing to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1414	1526	
==>ing to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1414	1526	
==>ing to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    fo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1139	1251	
==>bol}; # find the symbol
    }

    # and then

    my $reduced = My::ASTWalker->new->reduce($program);

=head1 DE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2936	3045	
==>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2936	3045	
==>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1345	1443	
==>::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1345	1443	
==>::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1345	1443	
==>::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($cl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18095	18200	
==>comb(
	fun => ide("fst"),
	param => $pair,
);

# this makes sure that ':t id(10)' is the same as ':t 10'
m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12213	12309	
==>thod bless (opaque $class: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6opa <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	416	510	
==>ole");

 $role.addMethod(Method.new(...))

 $role.apply;

=head1 DESCRIPTION

This object repre <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3506	3640	
==>s = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3506	3640	
==>s = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2499	2594	
==>$bool = $repo->create()

Creates a new repository on the filesystem. Wipes out an existing one w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11890	12122	
==>n', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11890	12122	
==>n', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	103	223	
==>::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Repository;

use base 'Object: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2182	2277	
==>C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different proper <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2182	2277	
==>C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different proper <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40491	40585	
==>ccess them via C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There are <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6818	6915	
==>xp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX - Exp?
}

NODE PRawName ($pRawName) { "$pRawName" } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25941	26036	
==>duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
suppo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30493	30588	
==>duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
suppo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29468	29563	
==>duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2274	2408	
==>>type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2274	2408	
==>>type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2274	2408	
==>>type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->js <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8513	8603	
==>Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2338	2428	
==>Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	236	321	
==>s::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Rat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	236	321	
==>s::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Rat <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	939	1034	
==>useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=it <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	939	1034	
==>useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=it <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12501	12593	
==>emory management, via reverse
  engineering (almost completely undocumented source), in the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	226	324	
==>}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	226	324	
==>}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	226	324	
==>}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38546	38678	
==>AL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38546	38678	
==>AL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38546	38678	
==>AL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2415	2527	
==>everse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    ::= Co <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14862	14959	
==>le".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML::E <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14862	14959	
==>le".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML::E <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8781	8883	
==>$P);
    return if $uint < $A.property_value{'length'};
    $A.property_value{'length'} = $uint + 1; #X <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14037	14134	
==>$desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14095	14192	
==>$desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	28	149	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	28	149	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	28	149	
==>ings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # Th <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1661	1808	
==>);
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flatt <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3469	3565	
==>procedural and functional 
interfaces are layers on top of the object-oriented backend.

To use t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3469	3565	
==>procedural and functional 
interfaces are layers on top of the object-oriented backend.

To use t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	767	892	
==>ike a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	767	892	
==>ike a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	767	892	
==>ike a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man w <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	797	907	
==>.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    fo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1659	1757	
==>r $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1659	1757	
==>r $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7580	7682	
==>wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7580	7682	
==>wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7580	7682	
==>wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8673	8808	
==>\$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6G <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9508	9643	
==>\$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6G <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23656	23744	
==>eplace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
rep <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7678	7796	
==>0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14031	14148	
==>rs == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17508	17625	
==>rs == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2329	2445	
==>autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	462	557	
==>sic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!part <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	462	557	
==>sic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!part <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2949	3043	
==>lf.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2949	3043	
==>lf.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5636	5749	
==>'$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5636	5749	
==>'$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5636	5749	
==>'$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3408	3577	
==>{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3408	3577	
==>{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3408	3577	
==>{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1483	1578	
==>passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1483	1578	
==>passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4382	4480	
==>y $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4567	4665	
==>y $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4891	4984	
==>} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1789	1904	
==>V}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1789	1904	
==>V}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1789	1904	
==>V}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8789	8969	
==>key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8789	8969	
==>key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8789	8969	
==>key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10595	10713	
==>item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10595	10713	
==>item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	6	119	
==>x
$a < $b		# $a.infix:«<»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2005	2141	
==>ALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2005	2141	
==>ALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2005	2141	
==>ALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	839	951	
==>when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	839	951	
==>when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	839	951	
==>when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document.createT <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6496	6817	
==>'$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	47	149	
==>regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	47	149	
==>regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	47	149	
==>regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1482	1581	
==>mentation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1482	1581	
==>mentation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2903	3011	
==>n_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2903	3011	
==>n_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2903	3011	
==>n_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4511	4619	
==>too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4511	4619	
==>too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4511	4619	
==>too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2745	2931	
==>e();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6222	6408	
==>e();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5152	5338	
==>e();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	750	979	
==>>id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	889	1018	
==>b { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	889	1018	
==>b { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29959	30094	
==>ture of 'atom' is to match a
character, see if there's a handler installed, and call it if there is.
I don't want atom to handle ')', so <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2400	2507	
==>thods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2400	2507	
==>thods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1264	1372	
==>limiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST param <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1264	1372	
==>limiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST param <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1075	1190	
==>->keys );
	}

	sub values { values %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8900	8996	
==>ses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializati <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8900	8996	
==>ses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1521	1626	
==>CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1521	1626	
==>CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1521	1626	
==>CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	730	836	
==>uplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14841	14940	
==>e")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14841	14940	
==>e")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	589	692	
==>return value based on the objects /current/
### value.. this allows subdirs to 'change' magically if a r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27520	27622	
==>e a new
object that is a clone of the first but for the changes.

=back

A Message object has these met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27520	27622	
==>e a new
object that is a clone of the first but for the changes.

=back

A Message object has these met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	507	618	
==>riable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	507	618	
==>riable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	507	618	
==>riable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1870	2005	
==>hift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2117	2252	
==>hift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	536	647	
==>s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemented {
    my ( $n, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	11	121	
==>le Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	11	121	
==>le Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	403	509	
==>other) {
    ...
}

method &infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe something like  thi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	580	685	
==>:Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	580	685	
==>:Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23666	23770	
==>lt to True or
False, but once it has a value of False, it can not be further changed;
this class defaults <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28218	28322	
==>lt to True or
False, but once it has a value of False, it can not be further changed;
this class defaults <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27031	27135	
==>lt to True or
False, but once it has a value of False, it can not be further changed;
this class defaults <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11678	11793	
==>n unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9363	9473	
==>n unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @{ $pre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9218	9331	
==>$ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9218	9331	
==>$ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESC <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16646	16759	
==>ne_not_line} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4347	4459	
==>= $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4347	4459	
==>= $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4347	4459	
==>= $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($writ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2666	2817	
==>c)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2666	2817	
==>c)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3871	3971	
==>$self->{tree} }, return unless $next;
    $next->walk(\@stack, $d);
    return wantarray ? ($next, $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2958	3076	
==>unt) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2958	3076	
==>unt) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2958	3076	
==>unt) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my I <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5475	5648	
==>";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5475	5648	
==>";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18010	18148	
==>r 'todo' (if any)
              reason    => reason for the above (if any)
            };

Element 0 of the details is test #1.  I tried it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1716	1828	
==>er(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1716	1828	
==>er(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1716	1828	
==>er(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6476	6602	
==>($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6476	6602	
==>($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6476	6602	
==>($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::mak <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1690	1813	
==>ACKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	379	490	
==>kg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	379	490	
==>kg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3002	3124	
==>th; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3002	3124	
==>th; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3002	3124	
==>th; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5642	5804	
==>ppens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5642	5804	
==>ppens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5642	5804	
==>ppens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].dele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2479	2598	
==>fined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2479	2598	
==>fined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2479	2598	
==>fined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11223	11370	
==>opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11223	11370	
==>opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11223	11370	
==>opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	669	787	
==>have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	669	787	
==>have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	669	787	
==>have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1588	1802	
==>element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1588	1802	
==>element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9520	9615	
==>){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros canno <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	819	921	
==>6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :- <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	819	921	
==>6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1242	1339	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1242	1339	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1242	1339	
==>nline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10248	10422	
==>aram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10248	10422	
==>aram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10248	10422	
==>aram;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add suppor <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10249	10397	
==>{ 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'stateme <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10249	10397	
==>{ 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29648	29746	
==>not need to appear in the tree, but are needed when inspecting
the parsing, or walking the tree.

Y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4160	4264	
==>::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4160	4264	
==>::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4160	4264	
==>::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1222	1401	
==>rarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system( qq <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5687	5787	
==>ist: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @b <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5687	5787	
==>ist: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @b <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1027	1121	
==>dir => $Config{installsiteman1dir} || $Config{installman1dir},
        installsiteman3dir => $C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16279	16372	
==>ntent_type

The Content-Type header field indicates the media type of the message
content. I<E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16279	16372	
==>ntent_type

The Content-Type header field indicates the media type of the message
content. I<E <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4357	4479	
==>pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto term_literal;
  {
  }
  else
  {
    if (matches( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7963	8061	
==>esents an ordered set of spans.

The problem this class solves is when you need do perform "set" op <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7963	8061	
==>esents an ordered set of spans.

The problem this class solves is when you need do perform "set" op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	939	1047	
==>. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	939	1047	
==>. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	939	1047	
==>. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35115	35208	
==>n F<Regexp::Parser::branch>,
which is used when two of the same node are matched in succession <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17482	17572	
==>zed automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17482	17572	
==>zed automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4924	5024	
==>lse {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4924	5024	
==>lse {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4924	5024	
==>lse {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	983	1107	
==>tract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1685	1799	
==>{ $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1685	1799	
==>{ $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %even <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14231	14359	
==>l contain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any)
  nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7254	7368	
==>ublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7254	7368	
==>ublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7254	7368	
==>ublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2627	2727	
==>lified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2627	2727	
==>lified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2627	2727	
==>lified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7368	7495	
==>er::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8720	8847	
==>er::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19388	19515	
==>er::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	317	421	
==>lf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	317	421	
==>lf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	317	421	
==>lf->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1200	1304	
==>");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1200	1304	
==>");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11798	11892	
==>p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11798	11892	
==>p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11798	11892	
==>p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2572	2679	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2572	2679	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2572	2679	
==>q 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_c <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2187	2288	
==>1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
1 <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2327	2428	
==>1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	440	556	
==>efault' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	440	556	
==>efault' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	440	556	
==>efault' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2648	2754	
==>ts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2648	2754	
==>ts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2648	2754	
==>ts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34759	34871	
==>il );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34759	34871	
==>il );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34759	34871	
==>il );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $lengt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6799	6903	
==>);
    return $p->Output( classname => $self->{grammar} );
}

sub exists_op { die "not implemented" } <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2349	2447	
==>odules in 
Pugs, this port does it's best to work with those limitations and 
still produce a worki <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2349	2447	
==>odules in 
Pugs, this port does it's best to work with those limitations and 
still produce a worki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4738	4859	
==>rn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4738	4859	
==>rn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4738	4859	
==>rn bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Ty <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4488	4627	
==>ure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4481	4674	
==>'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4481	4674	
==>'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4481	4674	
==>'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5707	5874	
==>rn [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5707	5874	
==>rn [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::Keye <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4440	4541	
==>$_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWORD '(' e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1245	1365	
==>ored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1245	1365	
==>ored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1245	1365	
==>ored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using mul <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1442	1547	
==>- 1;
}

sub ucfirst (Str $str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35184	35282	
==>as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35184	35282	
==>as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	785	891	
==>m.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	785	891	
==>m.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5706	5851	
==>h2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5706	5851	
==>h2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no war <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20272	20394	
==>skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5235	5347	
==>tring of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.j <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5235	5347	
==>tring of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.j <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26917	27013	
==>s
this automatically, but if you are sub-classing it, you'll probably want
to call it in your own <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7032	7153	
==>DARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7032	7153	
==>DARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8744	8853	
==>ich shared libraries pugs, parrot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my % <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1578	1689	
==>lar expression
engines.  It affects all regular expressions I<defined> within its scope;
when those regular expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2519	2616	
==>ndef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2519	2616	
==>ndef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2519	2616	
==>ndef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7826	7937	
==>peed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7826	7937	
==>peed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7826	7937	
==>peed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1878	1995	
==>elf->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1878	1995	
==>elf->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1878	1995	
==>elf->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } el <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	298	399	
==>(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	298	399	
==>(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ciph <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	488	583	
==>hor as the first scheme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	892	995	
==>to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	892	995	
==>to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	892	995	
==>to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7062	7171	
==>ther = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7062	7171	
==>ther = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7062	7171	
==>ther = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6485	6581	
==>ass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6485	6581	
==>ass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6485	6581	
==>ass::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected results.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13851	13951	
==>patcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13851	13951	
==>patcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13851	13951	
==>patcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16476	16674	
==>ray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16476	16674	
==>ray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16476	16674	
==>ray = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4101	4312	
==>, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4101	4312	
==>, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4101	4312	
==>, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4128	4239	
==>rn $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self->{tree};
  no warnin <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27784	27884	
==>length_and_first [1]");
is(t($length_and_first_gen), "((int × int) × (str × int))", ":t (length_an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19151	19253	
==>rimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19151	19253	
==>rimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19151	19253	
==>rimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5063	5195	
==>]

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compi <==
3	/Users/nnunley/pugs/util/version_h.pl	260	388	
==>IN>) {
    /#define PUGS_SVN_REVISION (\d+)/ or next;
    $old_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN ke <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4888	5015	
==>]
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3355	3537	
==>ng->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3355	3537	
==>ng->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3355	3537	
==>ng->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16760	16903	
==>ned $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16760	16903	
==>ned $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16760	16903	
==>ned $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2974	3115	
==>e ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2974	3115	
==>e ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2974	3115	
==>e ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1277	1380	
==>ub conv_foreach {
    $_ = shift;
    my $foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16257	16346	
==>nDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ing <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16315	16404	
==>nDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ing <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12795	12930	
==>'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12795	12930	
==>'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Documen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1328	1499	
==>osetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

subm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1328	1499	
==>osetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

subm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6290	6402	
==>al digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in chara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13342	13486	
==>s => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13342	13486	
==>s => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13342	13486	
==>s => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17105	17196	
==>);
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17105	17196	
==>);
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17105	17196	
==>);
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	198	301	
==>ord if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	198	301	
==>ord if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7836	7943	
==>es_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7836	7943	
==>es_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7836	7943	
==>es_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1218	1323	
==>x,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1218	1323	
==>x,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1218	1323	
==>x,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Arra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9775	9885	
==>ss $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9775	9885	
==>ss $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to ha <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1197	1287	
==>Meta object associated with this package

=head2 $pkg->install( installation => INSTALLATIO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2211	2374	
==>> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2458	2621	
==>> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4216	4322	
==>ex < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4216	4322	
==>ex < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6952	7051	
==>erm expected")
    goto end
  err_backslash_digit:
    parse_error(mob, pos, "\\1 and \\012 illegal, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4841	4968	
==>ile::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23235	23361	
==>y $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19656	19782	
==>y $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3780	3901	
==>0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3792	3913	
==>0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2883	2986	
==>shift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2883	2986	
==>shift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	270	366	
==>se do *not* use `return()`, because
that messes up PIR generation.  To return a value, arrange fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3574	3662	
==>JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3574	3662	
==>JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3574	3662	
==>JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14510	14621	
==>ue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14510	14621	
==>ue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6962	7076	
==>le->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6962	7076	
==>le->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6962	7076	
==>le->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:auth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9844	9968	
==>) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9844	9968	
==>) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9844	9968	
==>) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8436	8536	
==>=> ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8436	8536	
==>=> ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8436	8536	
==>=> ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9133	9249	
==>ethod ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1261	1371	
==>ethod ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1261	1371	
==>ethod ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Build <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6424	6549	
==>h = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6424	6549	
==>h = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator l <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17679	17772	
==>1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4604	4721	
==>ef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4604	4721	
==>ef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4604	4721	
==>ef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3653	3775	
==>e in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3653	3775	
==>e in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3653	3775	
==>e in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --he <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18459	18598	
==>[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $curr/$max");

        if( $detail->{type} eq 'skip' ) {
            $totals->{s <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	136	237	
==>) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(& <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	136	237	
==>) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8133	8257	
==>ero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8133	8257	
==>ero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8133	8257	
==>ero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7284	7427	
==>urn 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7284	7427	
==>urn 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        retur <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26527	26641	
==>assRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRanges>
}
rule NonemptyClassRangesNoDash {  # see 15.10. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41024	41115	
==>on Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41024	41115	
==>on Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4029	4183	
==>e readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4029	4183	
==>e readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4029	4183	
==>e readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1875	2022	
==>fined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1875	2022	
==>fined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1875	2022	
==>fined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1272	1372	
==>r(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1272	1372	
==>r(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1272	1372	
==>r(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	288	405	
==>ift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	288	405	
==>ift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	288	405	
==>ift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2043	2168	
==>ts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2043	2168	
==>ts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2043	2168	
==>ts;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5231	5345	
==>mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5231	5345	
==>mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5231	5345	
==>mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3917	4006	
==>ue_instance_attr($self => '@:roles');
}));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3917	4006	
==>ue_instance_attr($self => '@:roles');
}));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3917	4006	
==>ue_instance_attr($self => '@:roles');
}));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2507	2622	
==>rgs[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2507	2622	
==>rgs[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2507	2622	
==>rgs[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8338	8461	
==>=> sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8338	8461	
==>=> sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8338	8461	
==>=> sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	839	943	
==>less');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	839	943	
==>less');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	839	943	
==>less');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Clas <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20078	20210	
==>y => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => cond(
					if => comb(
						f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15041	15147	
==>fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15041	15147	
==>fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17745	17899	
==>p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18024	18178	
==>p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gramm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	363	480	
==>symbol could not be resolved by $self";
}

sub find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	fore <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6129	6213	
==>find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)->val;
}

sub reduce_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3606	3758	
==>:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_value('@:slots')} = ( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10725	10819	
==>g returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10725	10819	
==>g returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3213	3363	
==>nt => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3460	3610	
==>nt => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1140	1234	
==>t");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27301	27458	
==>gth($str);
    MatchX->new()->set(1,$str,$cap,{},$from,$to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #pri <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6403	6514	
==>am, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6403	6514	
==>am, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	733	880	
==>val=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	733	880	
==>val=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	733	880	
==>val=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       = <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	520	627	
==>te) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_h <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	520	627	
==>te) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10273	10441	
==>mented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10273	10441	
==>mented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10273	10441	
==>mented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5838	5944	
==>ce}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5838	5944	
==>ce}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5838	5944	
==>ce}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7804	7993	
==>= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7804	7993	
==>= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3257	3371	
==>r>
}
rule InputElementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	511	635	
==>ars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	511	635	
==>ars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	511	635	
==>ars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5501	5603	
==>dy have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5501	5603	
==>dy have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3663	3763	
==>if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3663	3763	
==>if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3663	3763	
==>if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3464	3599	
==>',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'rig <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13809	13925	
==>n is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autop <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13809	13925	
==>n is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autop <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12047	12162	
==>pan = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtst <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12047	12162	
==>pan = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtst <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3166	3272	
==>%idx = <package file line subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	866	981	
==>shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{env});
} 

sub do_while {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2400	2511	
==>e value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2400	2511	
==>e value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_A <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1541	1662	
==>e eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @matches
} 

sub parse <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1475	1566	
==>::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1475	1566	
==>::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is expor <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	882	987	
==>d insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	882	987	
==>d insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$s <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	559	650	
==>);
}
my $entry_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?top <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	97	263	
==>e = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	98	264	
==>e = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1331	1426	
==>urn $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4842	4972	
==>HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4842	4972	
==>HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1284	1393	
==>();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1284	1393	
==>();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1284	1393	
==>();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11227	11361	
==>i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11227	11361	
==>i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11227	11361	
==>i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4260	4398	
==>d.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4260	4398	
==>d.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4260	4398	
==>d.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1486	1729	
==>ass Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2083	2251	
==>s;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2083	2251	
==>s;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized( <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	951	1230	
==>3 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	951	1230	
==>3 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6648	6757	
==>DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4081	4182	
==>ner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4081	4182	
==>ner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4081	4182	
==>ner::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6333	6447	
==>c = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6333	6447	
==>c = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6333	6447	
==>c = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8949	9090	
==>> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8949	9090	
==>> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8949	9090	
==>> [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10034	10132	
==>:PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10034	10132	
==>:PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10034	10132	
==>:PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3760	3867	
==>stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3760	3867	
==>stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3760	3867	
==>stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair ( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5258	5385	
==>->{actual_ok} ) );

            # We don't want these to be undef because they are often
            # checked and don't want th <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2615	2706	
==>ble via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2615	2706	
==>ble via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	823	917	
==><^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	823	917	
==><^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	823	917	
==><^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10257	10398	
==>f (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cook <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10257	10398	
==>f (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cook <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3380	3480	
==>SE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4516	4616	
==>SE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23045	23148	
==>_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23045	23148	
==>_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23045	23148	
==>_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7324	7427	
==>($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading comp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7324	7427	
==>($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading comp <==
3	/Users/nnunley/pugs/util/package-osx.pl	7574	7662	
==>man/man3/Perl6::Spec::Documentation.3pm
        /usr/local/man/man3/Perl6::Spec::Function <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2913	3014	
==>xity .= '_' . $opt->{assoc} if $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	151	257	
==>ach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	151	257	
==>ach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	151	257	
==>ach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27091	27188	
==>ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #define RE <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6896	6990	
==>elf.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# ins <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6896	6990	
==>elf.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2788	2886	
==>= $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2788	2886	
==>= $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2788	2886	
==>= $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5178	5279	
==>e_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5178	5279	
==>e_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5178	5279	
==>e_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1850	1952	
==>the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fla <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1850	1952	
==>the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20689	20796	
==>space')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20689	20796	
==>space')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20689	20796	
==>space')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22292	22412	
==>_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22292	22412	
==>_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22292	22412	
==>_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	795	894	
==>e/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	795	894	
==>e/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	795	894	
==>e/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4689	4777	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4689	4777	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4689	4777	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	477	599	
==>OUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	477	599	
==>OUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	477	599	
==>OUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10871	11021	
==>me' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10871	11021	
==>me' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10871	11021	
==>me' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19254	19365	
==>ists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19254	19365	
==>ists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19254	19365	
==>ists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33021	33117	
==>me as the invocant Relation::Example but that some of its
tuple/Mapping-valued attributes have be <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	30	120	
==>:CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	30	120	
==>:CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	226	335	
==>y $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	226	335	
==>y $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	226	335	
==>y $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6092	6301	
==>';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6092	6301	
==>';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6092	6301	
==>';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12445	12553	
==>"] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12445	12553	
==>"] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12445	12553	
==>"] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1231	1330	
==>multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1231	1330	
==>multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1231	1330	
==>multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31796	31924	
==>'$counter' => $e->get('$counter')->increment);                        
                    return $e->get('@values')->fetch($e->g <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3587	3703	
==>small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3587	3703	
==>small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1404	1520	
==>IL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expre <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1404	1520	
==>IL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expre <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2314	2413	
==>lse if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1927	2027	
==>_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$opts->{SETUP}});

    my $pm = "src <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17599	17697	
==>s and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error con <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17599	17697	
==>s and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error con <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27424	27538	
==>gument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the values provide value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31976	32090	
==>gument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the values provide value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31059	31173	
==>gument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
the values provide value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17085	17270	
==>ss;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahah <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17085	17270	
==>ss;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahah <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17085	17270	
==>ss;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahah <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15417	15539	
==>>{off}, ":";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6529	6628	
==>);
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6529	6628	
==>);
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6135	6225	
==>s both perform the Test::Builder::Test::WithReason role
and override some methods to provid <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6135	6225	
==>s both perform the Test::Builder::Test::WithReason role
and override some methods to provid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8332	8422	
==>s both perform the Test::Builder::Test::WithReason role
and override some methods to provid <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5798	5919	
==>ed);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $n->{'name'};
        my $rep = ucfirst $n->r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9944	10036	
==>$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the element <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9944	10036	
==>$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the element <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8238	8423	
==>nd--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8238	8423	
==>nd--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8238	8423	
==>nd--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1272	1406	
==>dd_rule(
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7400	7494	
==>ath, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7400	7494	
==>ath, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	552	661	
==>ft;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	322	431	
==>ft;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	322	431	
==>ft;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	269	426	
==>$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>' <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	52	147	
==>event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instru <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	52	147	
==>event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41037	41151	
==>iner::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41037	41151	
==>iner::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41037	41151	
==>iner::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9232	9336	
==>urrent implementation is always anchored at ^

### because it was specialized for subrules

### - needs t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8928	9030	
==>urrent implementation is always anchored at ^
### because it was specialized for subrules
### - needs t <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1655	1820	
==><< ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13072	13188	
==>x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as(' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13072	13188	
==>x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13784	13928	
==>GS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13784	13928	
==>GS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13784	13928	
==>GS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	110	208	
==>ext)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	110	208	
==>ext)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	110	208	
==>ext)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4258	4362	
==>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4258	4362	
==>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4258	4362	
==>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8450	8550	
==>] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8438	8538	
==>] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1193	1324	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1193	1324	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1193	1324	
==>ner($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5409	5572	
==>m_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5409	5572	
==>m_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5409	5572	
==>m_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10640	10733	
==>ypes, that their attributes have reasonable values, and
that attributes or Nodes are not missi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10640	10733	
==>ypes, that their attributes have reasonable values, and
that attributes or Nodes are not missi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3	108	
==>This is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3	108	
==>This is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3	108	
==>This is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2046	2140	
==>*$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2046	2140	
==>*$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	741	876	
==>d' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	741	876	
==>d' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	741	876	
==>d' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5359	5501	
==>et))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5359	5501	
==>et))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5359	5501	
==>et))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6391	6513	
==>chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6391	6513	
==>chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201) <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6666	6770	
==>ocal $_ = shift;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17408	17510	
==>n+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20349	20444	
==>y, it also performs quite slowly; you should only use Example
for testing, development, and stud <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20349	20444	
==>y, it also performs quite slowly; you should only use Example
for testing, development, and stud <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27371	27465	
==>ny additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31923	32017	
==>ny additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31006	31100	
==>ny additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5832	5976	
==>sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5832	5976	
==>sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5832	5976	
==>sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15265	15359	
==>speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15265	15359	
==>speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27348	27435	
==>_NOML|REINT_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SE <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	735	831	
==>ext($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where o <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	735	831	
==>ext($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8972	9055	
==>p5_charset_def_x(L0,L).
p5_charset_def_x(L0,L1) --> "-", {append(L0,[char(45)],L1)}, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	995	1110	
==>first pass in the code emission process, in order to compile all
reused nodes into their own emitter specific symbol <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6385	6494	
==>f, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ? <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6385	6494	
==>f, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28361	28455	
==>s
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32913	33007	
==>s
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32041	32135	
==>s
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> sa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27885	27991	
==>t to have it run by a different executable, such as
a threading perl, or a different version.

If you're us <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10005	10108	
==>994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10005	10108	
==>994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1772	1864	
==>self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1772	1864	
==>self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1772	1864	
==>self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2283	2382	
==>s implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2283	2382	
==>s implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2283	2382	
==>s implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	69	200	
==>tan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	388	488	
==>pans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	388	488	
==>pans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == In <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36884	37003	
==>is as if it wasn't there at all.  In any situation where a pair
of source relations have identical headings, for these t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41433	41552	
==>is as if it wasn't there at all.  In any situation where a pair
of source relations have identical headings, for these t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41056	41175	
==>is as if it wasn't there at all.  In any situation where a pair
of source relations have identical headings, for these t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9522	9633	
==>hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9522	9633	
==>hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %ha <==
3	/Users/nnunley/pugs/util/package-osx.pl	914	1020	
==>ylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9204	9331	
==>ests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1682	1850	
==>plemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1682	1850	
==>plemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1682	1850	
==>plemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9532	9652	
==>en we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise .. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9532	9652	
==>en we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise .. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27110	27203	
==>method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31662	31755	
==>method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30718	30811	
==>method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5164	5273	
==>thod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5164	5273	
==>thod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5164	5273	
==>thod_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $m <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2382	2517	
==>turn @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10345	10467	
==>, undef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10345	10467	
==>, undef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            sta <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16342	16439	
==>rences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scalar <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16342	16439	
==>rences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scalar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5391	5494	
==>ata structures used by the Rosetta framework, as used by
    # the current process/application.
    my R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5391	5494	
==>ata structures used by the Rosetta framework, as used by
    # the current process/application.
    my R <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1825	1920	
==>fference is provided
as a curried default.

All of the optional parameters should be supplied by <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11708	11874	
==>{max};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $overrun ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1699	1793	
==>\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1699	1793	
==>\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2831	2935	
==>ss);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2831	2935	
==>ss);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2831	2935	
==>ss);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24452	24550	
==>tta is free software; you can redistribute it and/or modify it under
the terms of the GNU General P <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24452	24550	
==>tta is free software; you can redistribute it and/or modify it under
the terms of the GNU General P <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28467	28559	
==>f

 #define RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29661	29757	
==>e unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34213	34309	
==>e unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33377	33473	
==>e unwrapped tuple-valued attribute are the same as those of another,
or are the same as the unaff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18869	18975	
==>ackage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__EN <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18869	18975	
==>ackage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2962	3072	
==>"Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2962	3072	
==>"Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2962	3072	
==>"Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  retur <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	317	433	
==>00 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	317	433	
==>00 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	30	132	
==>tml from .t and test results 
# Generate cross-referenced html for p6 design docs (optional)
# FIXOTHER <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7877	7989	
==>(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_mod <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3516	3611	
==>S

- `new()`

Without any parameters, this returns an object representing the
current /local/ da <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3516	3611	
==>S

- `new()`

Without any parameters, this returns an object representing the
current /local/ da <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14108	14211	
==>*@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17585	17688	
==>*@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10981	11066	
==>\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1194	1319	
==>mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = ol <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1194	1319	
==>mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = ol <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1194	1319	
==>mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = ol <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	682	784	
==>spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	682	784	
==>spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16764	16849	
==>F0,F1,B0,B1,E0,E1).

rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20917	21012	
==>g them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl pack <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20917	21012	
==>g them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl pack <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4879	5074	
==>t("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4879	5074	
==>t("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	56	159	
==>nfess';
use Test::More tests => 30;

=pod

Mini-Prototype-Model

This is a very basic prototype based ob <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37105	37211	
==>e zero attributes in common, their joining degenerates to a
C<product>.  In any situation where the heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41654	41760	
==>e zero attributes in common, their joining degenerates to a
C<product>.  In any situation where the heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41277	41383	
==>e zero attributes in common, their joining degenerates to a
C<product>.  In any situation where the heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	908	1030	
==>s},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	908	1030	
==>s},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	908	1030	
==>s},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1046	1172	
==>2 => ')',
        assoc => 'non',
        precedence => 'equal',
        other => 'circumfix:<( )>',
    );
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	822	918	
==>c_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:< <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	822	918	
==>c_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7740	7880	
==>bol->new('has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	125	224	
==>es Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	125	224	
==>es Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	254	371	
==>ult.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1059	1162	
==>finitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1059	1162	
==>finitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3525	3653	
==>}));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3525	3653	
==>}));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3525	3653	
==>}));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7889	8091	
==>warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1190	1392	
==>warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to de <==
3	/Users/nnunley/pugs/util/func_refact.pl	3139	3244	
==>l;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { require Carp; C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35297	35441	
==>ft_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35297	35441	
==>ft_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35297	35441	
==>ft_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	792	955	
==>);
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.pus <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	792	955	
==>);
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.pus <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3537	3635	
==>lib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_harn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13418	13513	
==>.clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of di <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13418	13513	
==>.clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3843	3956	
==>t;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3843	3956	
==>t;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3843	3956	
==>t;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1232	1329	
==>r fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1232	1329	
==>r fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1232	1329	
==>r fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6444	6568	
==>es}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6444	6568	
==>es}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6444	6568	
==>es}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26274	26411	
==>}[-1],
      family => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1045	1157	
==>t 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1045	1157	
==>t 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2745	2853	
==>Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encry <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2745	2853	
==>Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encry <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	87	192	
==>ay "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4;

#=Zahl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11336	11518	
==>stance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11336	11518	
==>stance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11336	11518	
==>stance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	487	596	
==>$CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	487	596	
==>$CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	487	596	
==>$CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4463	4582	
==>d);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4463	4582	
==>d);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5053	5172	
==>d);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::A <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2717	2854	
==>onfig
        $obj->config( JIB::Config->new );
        
        ### call the objects new method and return it
        return $obj->new( % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8744	8856	
==>nshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8732	8844	
==>nshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_ca <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3439	3570	
==>rl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3439	3570	
==>rl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	889	1002	
==>int "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1095	1208	
==>int "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eva <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	902	1040	
==>);
    }
    when 'update' { 
        say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1774	1896	
==>ages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, irc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1774	1896	
==>ages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, irc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3369	3536	
==>d $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'na <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1235	1364	
==>deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be instal <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	795	924	
==>deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be instal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18299	18495	
==>t);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18299	18495	
==>t);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18299	18495	
==>t);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4327	4464	
==>urly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4327	4464	
==>urly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4327	4464	
==>urly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count+ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	548	681	
==>n($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6873	6971	
==>e cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6873	6971	
==>e cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the retu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4700	4826	
==>n the DIAGNOSTICS section.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4367	4470	
==>_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1042	1152	
==>ning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1042	1152	
==>ning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1042	1152	
==>ning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3023	3145	
==>elf->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3023	3145	
==>elf->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3023	3145	
==>elf->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $nat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3281	3388	
==>ass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3281	3388	
==>ass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3281	3388	
==>ass => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9853	9975	
==>nstant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10132	10254	
==>nstant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1179	1284	
==>($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3040	3145	
==>($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6563	6657	
==>0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, last <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	232	337	
==>ort { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	232	337	
==>ort { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	333	447	
==>turn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	294	408	
==>turn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	294	408	
==>turn if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4530	4638	
==>'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4530	4638	
==>'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4530	4638	
==>'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16048	16164	
==>$v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16048	16164	
==>$v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16048	16164	
==>$v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6095	6193	
==>= sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6095	6193	
==>= sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6095	6193	
==>= sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2149	2244	
==>"METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2149	2244	
==>"METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2149	2244	
==>"METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub com <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16044	16229	
==>c     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2887	2993	
==>mper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2875	2981	
==>mper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty qua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10056	10175	
==>nd;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10056	10175	
==>nd;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10056	10175	
==>nd;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5938	6038	
==>t<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5938	6038	
==>t<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(no <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2187	2297	
==>:base(10);


 multi Math::Basic::rand ( Num $x = 1 --> Num )
 {
     Pugs::Internals::rand($x);
 }


 multi  Nu <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3899	4000	
==>_;

    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $te <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5259	5359	
==>_;
    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $te <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	886	1088	
==>3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod B <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	886	1088	
==>3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod B <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4861	4968	
==>m yml file
my $tests = LoadFile("tests.yml");

# Reading and processing .t files
my $files = {}; # mapping f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	272	386	
==>ixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	272	386	
==>ixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	272	386	
==>ixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1505	1648	
==>pdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Buildd <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1469	1575	
==>9-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1469	1575	
==>9-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	832	956	
==>x->to_native];
    # NOTE:
    # if you ask for something which is 
    # not there, then you need to get back
    # a nil va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30053	30146	
==>of a Message object, and each
hash value contains the user-readable message text associated wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30053	30146	
==>of a Message object, and each
hash value contains the user-readable message text associated wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4602	4698	
==>0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4602	4698	
==>0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4602	4698	
==>0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23649	23766	
==>/* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #de <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	58	162	
==>rip the DESTDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
use Fil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28868	28967	
==>/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13395	13513	
==>:Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13395	13513	
==>:Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13395	13513	
==>:Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17003	17098	
==>e('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17003	17098	
==>e('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17003	17098	
==>e('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subcla <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4165	4267	
==>->feature( $name, @$mods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{fe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	396	491	
==>ss Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	396	491	
==>ss Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	110	357	
==>ale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	110	357	
==>ale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15456	15638	
==>:= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18933	19115	
==>:= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4685	4787	
==>_>;
 }


 multi Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	662	782	
==>l).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	662	782	
==>l).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	662	782	
==>l).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5333	5456	
==>s defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5333	5456	
==>s defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5333	5456	
==>s defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4566	4686	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4566	4686	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4566	4686	
==>ey are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_i <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3742	3894	
==>e" unless $module;

        strip_comments($program);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13334	13438	
==>en for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13334	13438	
==>en for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5450	5587	
==>ds' => {
        'resolve' => $_resolve,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::o <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	942	1040	
==>ifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You ca <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	942	1040	
==>ifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	502	675	
==>o) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	502	675	
==>o) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	502	675	
==>o) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw e <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2198	2299	
==>c etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we cur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2198	2299	
==>c etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we cur <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	14	113	
==>to comment out things which end up defined in PILn
# (though one may wish to overwrite a limited pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2169	2278	
==>f $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2169	2278	
==>f $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2169	2278	
==>f $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Ce <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9040	9175	
==>,'F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9040	9175	
==>,'F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	794	910	
==>t();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	332	428	
==>litting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	332	428	
==>litting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13898	14007	
==>erl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13898	14007	
==>erl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13898	14007	
==>erl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7021	7162	
==>l5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7021	7162	
==>l5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7021	7162	
==>l5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1289	1404	
==>say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1289	1404	
==>say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1289	1404	
==>say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14199	14296	
==>V = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14199	14296	
==>V = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14199	14296	
==>V = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1612	1743	
==>ash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1612	1743	
==>ash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1612	1743	
==>ash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error messa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16700	16800	
==>locks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16700	16800	
==>locks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17985	18137	
==>each my $method (@methods) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5050	5155	
==>s, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5050	5155	
==>s, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since <==
3	/Users/nnunley/pugs/util/importgraph.pl	613	718	
==>eturn unless /\.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7600	7744	
==>atisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	901	1045	
==>atisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15825	15924	
==>l->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list->new($e-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19230	19328	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19230	19328	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19230	19328	
==>=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2287	2402	
==>tart ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2287	2402	
==>tart ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
me <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9034	9149	
==>t pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15094	15209	
==>ing, eg, JDT
    has Int  $.tz;      # variation from UTC in seconds
    has Bool $.is_dst;
}

multi sub localtime(N <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6211	6311	
==>}];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6211	6311	
==>}];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	868	976	
==>),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	868	976	
==>),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	868	976	
==>),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamo <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11272	11396	
==>= $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$linkfile'>$whole</ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6533	6649	
==>plit_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6533	6649	
==>plit_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1073	1190	
==>1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1073	1190	
==>1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1073	1190	
==>1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a refere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34162	34286	
==>::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34162	34286	
==>::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34162	34286	
==>::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1273	1376	
==>rl6-MetaModel 2.0 port of the Perl 6 version of 
Test::Builder::TestPlan.

This file contains both the T <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	124	221	
==>b set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	124	221	
==>b set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6016	6108	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6016	6108	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6016	6108	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4878	4988	
==>of tests to run.

Those are the only valid arguments.

You must have a plan set before you can record any tests <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4878	4988	
==>of tests to run.

Those are the only valid arguments.

You must have a plan set before you can record any tests <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6402	6512	
==>of tests to run.

Those are the only valid arguments.

You must have a plan set before you can record any tests <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13656	13787	
==>ods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13656	13787	
==>ods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13656	13787	
==>ods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6292	6411	
==>erl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6292	6411	
==>erl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12842	12932	
==>l_var name=id>')" id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	302	416	
==>le( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::ad <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	897	995	
==>ce", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	897	995	
==>ce", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3394	3537	
==>ef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3394	3537	
==>ef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3394	3537	
==>ef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4148	4246	
==>h object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array referen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4148	4246	
==>h object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array referen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1765	1904	
==>ore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB ci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1765	1904	
==>ore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB ci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1765	1904	
==>ore( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB ci <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20594	20689	
==>,E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5885	5999	
==>real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0]->{real}};
}

1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5885	5999	
==>real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0]->{real}};
}

1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6475	6589	
==>real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0]->{real}};
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10565	10750	
==>use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $conte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10565	10750	
==>use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $conte <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3348	3493	
==>$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        package => @caller[0],
        file    => @caller[1],
        line    = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	828	964	
==>an
                     index into the multidimensional arrays of the match
                     object, telling captures where in the de <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	828	964	
==>an
                     index into the multidimensional arrays of the match
                     object, telling captures where in the de <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14728	14817	
==>tname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14728	14817	
==>tname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5658	5759	
==>= undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5658	5759	
==>= undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5658	5759	
==>= undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsn <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1081	1244	
==>f year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16431	16536	
==>:current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15491	15590	
==>:current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3473	3792	
==>d");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute wa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3473	3792	
==>d");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5863	5981	
==>t;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5863	5981	
==>t;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5863	5981	
==>t;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	126	220	
==>27950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	126	220	
==>27950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	126	220	
==>27950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22271	22377	
==>_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22271	22377	
==>_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22271	22377	
==>_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1671	1788	
==>$_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1671	1788	
==>$_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1671	1788	
==>$_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pSc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8485	8626	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8485	8626	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8485	8626	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6338	6440	
==>subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6338	6440	
==>subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6338	6440	
==>subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3300	3410	
==>=> class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3300	3410	
==>=> class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3300	3410	
==>=> class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3654	3775	
==>ntifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3642	3763	
==>ntifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7407	7525	
==>ub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4011	4129	
==>ub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4860	4978	
==>ub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	382	576	
==>p(
                    Sym('&ternary:<?? !!>'),
                    Sym('$cond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32308	32404	
==>ects its Template modules to come
from Perl modules, but in the future they may alternately be so <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32308	32404	
==>ects its Template modules to come
from Perl modules, but in the future they may alternately be so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21211	21307	
==>o not need to have the compilers installed
themselves. So you don't need to make the compiler mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21211	21307	
==>o not need to have the compilers installed
themselves. So you don't need to make the compiler mod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	2	92	
==>package Pugs::Grammar::StatementControl;
use strict;
use warnings;
use base qw(Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	313	419	
==>in_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	313	419	
==>in_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	313	419	
==>in_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10176	10273	
==>:PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10176	10273	
==>:PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10176	10273	
==>:PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Con <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1264	1379	
==>uldn't remove \"$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20915	21022	
==>n','$name')})";
}
sub p6_var { # XXX - not quite the right thing
    my($name)=@_;
    my $mn = p6_mangle($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3831	3944	
==>ont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3831	3944	
==>ont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3831	3944	
==>ont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7088	7180	
==>Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7088	7180	
==>Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7088	7180	
==>Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3886	3991	
==>ode.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3886	3991	
==>ode.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3886	3991	
==>ode.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shi <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1951	2059	
==>g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude boot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8211	8321	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8211	8321	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8211	8321	
==>ue::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	222	342	
==>@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	222	342	
==>@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	222	342	
==>@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7968	8098	
==>k_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7968	8098	
==>k_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7968	8098	
==>k_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2807	2925	
==>matically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2807	2925	
==>matically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2807	2925	
==>matically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4368	4473	
==>item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4368	4473	
==>item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6565	6670	
==>item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	797	921	
==>um { (shift)->to_native == 0 ? num->new(0) : num->new(1) }

# methods 

sub not {
    my $self = shift;
    if ($self == $TRU <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1980	2090	
==>s Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method no <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1980	2090	
==>s Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2356	2468	
==>lf: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2356	2468	
==>lf: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2356	2468	
==>lf: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28696	28809	
==>Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28696	28809	
==>Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28696	28809	
==>Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)). <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9325	9530	
==>tisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10802	11007	
==>tisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2277	2374	
==>scarded.

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the interac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3013	3115	
==>(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3013	3115	
==>(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3013	3115	
==>(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4018	4137	
==>> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4018	4137	
==>> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4018	4137	
==>> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	624	735	
==>'CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	624	735	
==>'CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	624	735	
==>'CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14239	14340	
==>m_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14239	14340	
==>m_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14239	14340	
==>m_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB c <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1261	1370	
==>elf->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $se <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1261	1370	
==>elf->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9387	9499	
==>s is rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9387	9499	
==>s is rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9387	9499	
==>s is rw;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3284	3402	
==>($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3284	3402	
==>($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4808	4926	
==>($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $des <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3820	3933	
==>e := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3820	3933	
==>e := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3820	3933	
==>e := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2415	2524	
==>Scope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2415	2524	
==>Scope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2415	2524	
==>Scope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9246	9343	
==>----------------------------------------------------

This is a rough sketch of that role(Role) mi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9246	9343	
==>----------------------------------------------------

This is a rough sketch of that role(Role) mi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9246	9343	
==>----------------------------------------------------

This is a rough sketch of that role(Role) mi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15546	15657	
==>]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15546	15657	
==>]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15546	15657	
==>]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1103	1227	
==>06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1103	1227	
==>06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1103	1227	
==>06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_l <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7569	7669	
==>kip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cm <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7627	7727	
==>kip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6112	6273	
==>tch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6112	6273	
==>tch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6112	6273	
==>tch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4268	4375	
==>"Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4268	4375	
==>"Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4268	4375	
==>"Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19794	19896	
==>,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19794	19896	
==>,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19794	19896	
==>,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11365	11487	
==>$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11365	11487	
==>$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11365	11487	
==>$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	649	767	
==>1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	649	767	
==>1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	649	767	
==>1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	399	498	
==>st,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $pa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	475	574	
==>st,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17926	18009	
==>_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,M <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	613	797	
==>),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run the program
    
    my $result = Blondie::Backend::Perl->new- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1094	1203	
==>Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x)) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1094	1203	
==>Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13707	13820	
==>tribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13707	13820	
==>tribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13707	13820	
==>tribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3060	3210	
==>$n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _no <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6113	6210	
==>g string.

=item List Context

All headers are returned split into the respective
lines.

=item Ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6113	6210	
==>g string.

=item List Context

All headers are returned split into the respective
lines.

=item Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11702	11830	
==>ending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11702	11830	
==>ending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11702	11830	
==>ending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5621	5769	
==>xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5621	5769	
==>xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5621	5769	
==>xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	432	535	
==>le '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	432	535	
==>le '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	410	535	
==>values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	410	535	
==>values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	410	535	
==>values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29044	29214	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29323	29493	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2170	2274	
==>key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2170	2274	
==>key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2170	2274	
==>key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11116	11257	
==>src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28408	28518	
==>reference in $code.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $self->SUPER <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	643	746	
==>s;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	701	804	
==>s;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14926	15044	
==>{ 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14926	15044	
==>{ 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14926	15044	
==>{ 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4725	4873	
==>ch my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4725	4873	
==>ch my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4725	4873	
==>ch my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## compos <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4527	4680	
==>shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3269	3391	
==>ub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3983	4085	
==>ub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_insta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	379	462	
==>ation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB::Package::Inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	339	438	
==>re {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1067	1164	
==>re {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	2546	2636	
==>mano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc /u <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11352	11480	
==>ef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2672	2770	
==>de;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@field <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2672	2770	
==>de;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@field <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3806	3921	
==>mts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3806	3921	
==>mts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	656	771	
==>mts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' , <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3982	4061	
==>5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3982	4061	
==>5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3681	3795	
==>ed

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5583	5697	
==>ed

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	260	367	
==>e;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	260	367	
==>e;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	260	367	
==>e;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8159	8354	
==>unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8159	8354	
==>unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8159	8354	
==>unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $me <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	140	238	
==>l qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	191	288	
==>=> [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	191	288	
==>=> [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6790	6927	
==>ject(exact => chr hex $num, $rep);
  });

  # eol, seol, meol
  $self->add_handler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12834	12929	
==>und in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12834	12929	
==>und in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5566	5733	
==>vocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5566	5733	
==>vocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5566	5733	
==>vocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => param <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	974	1087	
==>)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $key->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6790	6918	
==>->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6790	6918	
==>->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6790	6918	
==>->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18229	18437	
==>Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18229	18437	
==>Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18229	18437	
==>Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	608	710	
==>t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	608	710	
==>t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	608	710	
==>t want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4221	4338	
==>_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5070	5187	
==>_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17531	17639	
==>d, %s\n",
           $tot->{files}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    hea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18694	18838	
==>yze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    u <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10141	10241	
==>t, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10141	10241	
==>t, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4357	4468	
==>t with newstr==1*/
      r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX_MA <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1069	1162	
==>file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1069	1162	
==>file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41039	41131	
==>martin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41039	41131	
==>martin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
co <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1947	2041	
==>maker_args->{MAN1PODS} = {} if $perl_version == 6;
    $self->makemaker_args->{MAN3PODS} = {} i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	477	570	
==>common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interch <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	477	570	
==>common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interch <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3960	4100	
==>skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3960	4100	
==>skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1917	2035	
==>ialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1895	2013	
==>ialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2225	2323	
==>dge. not even trying with m and s.
# Match objects arent being created for capture groups which are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11144	11296	
==>>new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11144	11296	
==>>new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11144	11296	
==>>new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4722	4927	
==>s a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4722	4927	
==>s a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4685	4777	
==>s_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", digits_int(Max).
p5_range_bounds_RHS(_Mi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3212	3463	
==>nt

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3212	3463	
==>nt

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8466	8580	
==>oken{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4545	4725	
==>{
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4545	4725	
==>{
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4545	4725	
==>{
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1564	1655	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1564	1655	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1564	1655	
==>) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1895	1994	
==>ed in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintex <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1895	1994	
==>ed in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	26	125	
==>t;
use warnings;

use lib '../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scal <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31250	31350	
==>es, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35800	35900	
==>es, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35018	35118	
==>es, and it works like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	268	435	
==>ect is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	268	435	
==>ect is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	268	435	
==>ect is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7632	7739	
==>' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7632	7739	
==>' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7632	7739	
==>' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => su <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3042	3140	
==>Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagno <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3042	3140	
==>Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3122	3220	
==>Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4398	4501	
==>r output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4398	4501	
==>r output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14088	14199	
==>nnection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14088	14199	
==>nnection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	719	828	
==>]),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	18	116	
==>time::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	18	116	
==>time::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2312	2424	
==>foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'arra <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2312	2424	
==>foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'arra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1539	1649	
==>lasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attributes($self:) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4003	4106	
==>: $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4003	4106	
==>: $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4003	4106	
==>: $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	652	772	
==>}
	}

    return $self->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20185	20281	
==>haviour is), this Relation data type is proposed to be
generally useful, and very basic, and wort <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24737	24833	
==>haviour is), this Relation data type is proposed to be
generally useful, and very basic, and wort <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5484	5604	
==>e {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) impleme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5484	5604	
==>e {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) impleme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5484	5604	
==>e {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) impleme <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	349	465	
==>_with:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	729	831	
==>lect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I' <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	729	831	
==>lect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8297	8405	
==>tersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at le <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11774	11882	
==>tersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at le <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	993	1088	
==>ents::Event.new(*@args));
    }

    method mk_notifications (*@subscriptions of Class::Events:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3801	3908	
==>keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3801	3908	
==>keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3801	3908	
==>keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5026	5132	
==>')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40192	40287	
==>n St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40192	40287	
==>n St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7692	7847	
==>}                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7692	7847	
==>}                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SY <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7692	7847	
==>}                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SY <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5706	5807	
==>Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5706	5807	
==>Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7230	7331	
==>Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4260	4363	
==>elf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4260	4363	
==>elf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4260	4363	
==>elf.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.is <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24306	24405	
==>tty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new, <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2740	2835	
==>@intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2740	2835	
==>@intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16613	16717	
==>?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16613	16717	
==>?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16613	16717	
==>?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {... <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	85	181	
==>-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	85	181	
==>-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4638	4737	
==>HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4638	4737	
==>HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4638	4737	
==>HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13476	13590	
==>"redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13476	13590	
==>"redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13476	13590	
==>"redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2080	2176	
==>l5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2080	2176	
==>l5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2080	2176	
==>l5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(file <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	157	257	
==>s internals to do the job
* Some of this had not been specced yet (need S29 work).

When writing prim <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3362	3459	
==>ss\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4498	4595	
==>ss\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	465	559	
==>imilar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the st <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	465	559	
==>imilar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the st <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6828	6920	
==>dist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @libs);
    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	673	790	
==>reate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_CO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	673	790	
==>reate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_CO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	673	790	
==>reate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6644	6789	
==>fter implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6644	6789	
==>fter implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6644	6789	
==>fter implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10683	10805	
==>scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10683	10805	
==>scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10683	10805	
==>scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required - g <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11320	11437	
==>duce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" . lc(S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20739	20829	
==>channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20739	20829	
==>channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10203	10375	
==>s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10203	10375	
==>s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10203	10375	
==>s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13960	14112	
==>=~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13960	14112	
==>=~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13960	14112	
==>=~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2452	2569	
==>ller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature ch <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2452	2569	
==>ller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature ch <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2452	2569	
==>ller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	501	628	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	501	628	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	501	628	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (functio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1553	1661	
==>atement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1553	1661	
==>atement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6402	6508	
==>::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6402	6508	
==>::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6402	6508	
==>::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2649	2755	
==>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2649	2755	
==>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2649	2755	
==>bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - p <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2584	2712	
==>le
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2584	2712	
==>le
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	418	510	
==>ne C=><<'C';
#include "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABL <==
3	/Users/nnunley/pugs/util/func_refact.pl	683	806	
==>ring{$_} = 1 && print "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39620	39738	
==>et;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39620	39738	
==>et;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39620	39738	
==>et;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3129	3250	
==>_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3129	3250	
==>_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3129	3250	
==>_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6694	6794	
==>' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6694	6794	
==>' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3593	3693	
==>' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4043	4145	
==>$param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4043	4145	
==>$param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4043	4145	
==>$param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	721	821	
==>rror_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	721	821	
==>rror_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1277	1377	
==>rror_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5847	5946	
==>) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5847	5946	
==>) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3413	3529	
==>efined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3413	3529	
==>efined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3413	3529	
==>efined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4210	4374	
==>ed} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4210	4374	
==>ed} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4210	4374	
==>ed} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            } <==
3	/Users/nnunley/pugs/util/build_pugs.pl	470	564	
==>ipt calls GHC to build a pugs exectuable, optionally inlining
precompiled modules in a second p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11174	11265	
==>_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11174	11265	
==>_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30907	31009	
==>rent maintainer is Andy Lester C<< <andy at petdance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3919	4002	
==>E ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3919	4002	
==>E ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22539	22659	
==>ubstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18960	19080	
==>ubstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1910	2014	
==>e 'Blondie::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2161	2266	
==>y element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2161	2266	
==>y element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2161	2266	
==>y element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	448	563	
==>unctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Ar <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	448	563	
==>unctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Ar <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1167	1322	
==>IS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1167	1322	
==>IS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5993	6114	
==>} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6873	6986	
==>$ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7432	7545	
==>$ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	916	1011	
==>to have both a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this modu <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1826	1927	
==>e prefix on extension modules built from top level.
    delete $args{prefix}
      unless Cwd::abs_pat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21293	21387	
==>databases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21293	21387	
==>databases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3108	3228	
==>?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3108	3228	
==>?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4632	4752	
==>?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2712	2812	
==>r(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2712	2812	
==>r(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2712	2812	
==>r(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) > <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4580	4678	
==>e arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4580	4678	
==>e arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13987	14108	
==>};
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10774	10869	
==>ued field. If the $value is undefined or not
given, then that header field will remain unchanged <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10774	10869	
==>ued field. If the $value is undefined or not
given, then that header field will remain unchanged <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	988	1093	
==>3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	988	1093	
==>3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	988	1093	
==>3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	642	754	
==>\@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	642	754	
==>\@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $cons <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18775	18864	
==>start,   StrLen $length  ; $replace)
{ Pugs::Internals::substr($s,undef,$start,$length,und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1022	1141	
==>attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1022	1141	
==>attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1022	1141	
==>attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6269	6354	
==>PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6269	6354	
==>PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6269	6354	
==>PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__ret <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	2	99	
==>ole NameSpace--Perl6;

has Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12928	13021	
==>less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12928	13021	
==>less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5164	5264	
==>ect in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5164	5264	
==>ect in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5164	5264	
==>ect in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anyt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8943	9043	
==>les a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8943	9043	
==>les a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8943	9043	
==>les a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2173	2280	
==>nt(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2173	2280	
==>nt(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2173	2280	
==>nt(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3346	3505	
==>'
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6041	6146	
==>n 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6041	6146	
==>n 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	850	1016	
==>(1) }

# methods 

sub not {
    my $self = shift;
    if ($self == $TRUE) {
        return $FALSE;
    }
    else {
        return $TRUE;
    }    
}

sub and : metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4625	4762	
==>[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    el <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4613	4750	
==>[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    el <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	785	882	
==>s.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on IR <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	785	882	
==>s.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on IR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16509	16615	
==>yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16509	16615	
==>yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16509	16615	
==>yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
M <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	816	950	
==>le or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	816	950	
==>le or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38403	38540	
==>item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38403	38540	
==>item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38403	38540	
==>item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UN <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1861	1952	
==>cribes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pend <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1861	1952	
==>cribes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pend <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8669	8793	
==>lus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8669	8793	
==>lus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5581	5675	
==>sts>

  my($total, $failed) = _run_all_tests(@test_files);

Runs all the given C<@test_files> ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	533	658	
==>_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	793	918	
==>_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1065	1190	
==>_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2315	2440	
==>version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2315	2440	
==>version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2315	2440	
==>version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3118	3311	
==>p::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#-- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3129	3322	
==>p::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#-- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	256	351	
==>ulti method delete (*@index ) returns List of Object;
multi method exists ($index ) returns Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40791	40917	
==>$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40791	40917	
==>$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40791	40917	
==>$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$thi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7333	7428	
==>a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7333	7428	
==>a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=e <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2031	2135	
==>nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 = <<'GROK';
1st line
2nd l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	702	799	
==>sion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1292	1389	
==>sion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4898	5016	
==>ect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4898	5016	
==>ect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4898	5016	
==>ect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2682	2902	
==>=> 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2682	2902	
==>=> 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2682	2902	
==>=> 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13549	13706	
==>PATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13549	13706	
==>PATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13549	13706	
==>PATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Class
    sub _cl <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2688	2781	
==>subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2688	2781	
==>subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<so <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26444	26534	
==>ses.push($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13777	13898	
==>hod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13777	13898	
==>hod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13777	13898	
==>hod) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12537	12690	
==>e methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12537	12690	
==>e methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12537	12690	
==>e methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4023	4122	
==>$y,$x);
 }


 multi Math::Trig::pi ( --> Num )
 {
     3.1415926535897932384626433832795028841971693 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4973	5071	
==>itial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4973	5071	
==>itial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHOR <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	501	600	
==>);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created whe <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9513	9607	
==>l5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9513	9607	
==>l5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1028	1149	
==>se overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1028	1149	
==>se overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1028	1149	
==>se overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	289	429	
==>)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	289	429	
==>)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	289	429	
==>)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = jo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2586	2694	
==>->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2586	2694	
==>->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	568	678	
==>tup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	568	678	
==>tup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9183	9273	
==>', '... $iFoo got the right method return value');

$iFoo->add_singleton_method('test_iFoo_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3509	3603	
==>turncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3509	3603	
==>turncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3509	3603	
==>turncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1419	1562	
==>\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1407	1550	
==>\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	846	964	
==>n ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	846	964	
==>n ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	846	964	
==>n ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	876	1011	
==>{
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpected compilation <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2050	2158	
==>L::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}" <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2050	2158	
==>L::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2089	2224	
==>";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3275	3370	
==>structor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3275	3370	
==>structor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5421	5550	
==>ess(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8016	8121	
==>'), '... FooBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
o <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5939	6042	
==>ess( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3729	3849	
==>PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3729	3849	
==>PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	579	699	
==>PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1454	1650	
==>~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my su <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1454	1650	
==>~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8643	8796	
==>_method' => (
    # method label
        symbol->new('get_method'), 
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	969	1127	
==>if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $las <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	969	1127	
==>if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $las <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	969	1127	
==>if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $las <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14144	14240	
==>);
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14144	14240	
==>);
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14144	14240	
==>);
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2964	3077	
==>y for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2964	3077	
==>y for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2964	3077	
==>y for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invoc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	660	818	
==>ttribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20551	20652	
==>f->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16972	17073	
==>f->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33207	33302	
==>>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37757	37852	
==>>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12842	12942	
==>rrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12842	12942	
==>rrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive in <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2438	2536	
==>st )
{...}


# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	596	692	
==>DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the F <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	596	692	
==>DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the F <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2826	2935	
==>ld;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2826	2935	
==>ld;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19988	20235	
==>d->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19988	20235	
==>d->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19988	20235	
==>d->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	505	619	
==>lass->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	505	619	
==>lass->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	505	619	
==>lass->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8303	8422	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8303	8422	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8303	8422	
==>'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1590	1728	
==>_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1590	1728	
==>_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1590	1728	
==>_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14236	14394	
==>:concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14515	14673	
==>:concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6137	6269	
==>all' ) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4355	4454	
==>ered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4355	4454	
==>ered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4355	4454	
==>ered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo <==
3	/Users/nnunley/pugs/util/package-osx.pl	8689	8808	
==>{
        my $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$des <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2942	3055	
==>f (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$mes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2942	3055	
==>f (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$mes <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7353	7454	
==>BLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TERNARY );
  goto expect_oper;

  redu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11640	11735	
==>>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11640	11735	
==>>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	164	281	
==>p {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	164	281	
==>p {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	164	281	
==>p {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11693	11819	
==>us();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2127	2241	
==>us();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2127	2241	
==>us();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3454	3564	
==>.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3454	3564	
==>.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3454	3564	
==>.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $sup <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8127	8234	
==>ns ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8127	8234	
==>ns ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $sp <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2261	2367	
==>bundles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	295	426	
==>( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	779	910	
==>( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15018	15126	
==>pace => $neg, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14506	14618	
==>er
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'npa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12053	12145	
==>s and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12053	12145	
==>s and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2548	2653	
==>)",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2548	2653	
==>)",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2548	2653	
==>)",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4852	4963	
==>'[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$cha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4852	4963	
==>'[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$cha <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1219	1312	
==>ule repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\??) | <[\? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10033	10136	
==>ammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5022	5121	
==>tpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5022	5121	
==>tpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15392	15500	
==>ms}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15392	15500	
==>ms}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15392	15500	
==>ms}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : und <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1053	1173	
==>s,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::ove <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4398	4500	
==>on($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4398	4500	
==>on($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $o <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5820	5959	
==>o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/UnicodeC.o' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6344	6451	
==>($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6344	6451	
==>($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self <==
3	/Users/nnunley/pugs/util/package-osx.pl	9121	9234	
==>l/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2633	2740	
==>.>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2817	2924	
==>.>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 < <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6817	6922	
==>+0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7189	7294	
==>+0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7488	7593	
==>+0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2008	2121	
==>p { $_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3381	3490	
==>p { $_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) { <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	562	779	
==>y $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	562	779	
==>y $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        e <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8060	8170	
==>file = shift;

    my $command =  $self->_command();
    my $switches = $self->_switches($file);

    $file = q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6866	6999	
==>ethod infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6866	6999	
==>ethod infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6866	6999	
==>ethod infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8740	8930	
==>hen it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    nex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5100	5290	
==>hen it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    nex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5949	6139	
==>hen it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8653	8759	
==>_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8653	8759	
==>_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8653	8759	
==>_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12435	12558	
==>t.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment($line, \$comment);

Checks if the given line is a comment. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	775	867	
==>ace::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	775	867	
==>ace::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $du <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4198	4293	
==>erty is outside of a section, it will be assigned to the root
section, available at C<$configE<l <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4198	4293	
==>erty is outside of a section, it will be assigned to the root
section, available at C<$configE<l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19279	19385	
==>ngs, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23831	23937	
==>ngs, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22347	22453	
==>ngs, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1309	1422	
==>y $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1309	1422	
==>y $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1309	1422	
==>y $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to in <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1407	1505	
==>() returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Fu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1407	1505	
==>() returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	918	1028	
==>e $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	918	1028	
==>e $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	918	1028	
==>e $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3040	3155	
==>is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3040	3155	
==>is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3040	3155	
==>is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2034	2138	
==>Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2034	2138	
==>Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2034	2138	
==>Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3191	3290	
==>imitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3191	3290	
==>imitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3191	3290	
==>imitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2258	2383	
==>{
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_leve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2258	2383	
==>{
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_leve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2258	2383	
==>{
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_leve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12994	13122	
==>AY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12994	13122	
==>AY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12994	13122	
==>AY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3576	3685	
==>f->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3576	3685	
==>f->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3576	3685	
==>f->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4840	5059	
==>r->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4840	5059	
==>r->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4840	5059	
==>r->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13620	13806	
==>${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13620	13806	
==>${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13620	13806	
==>${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_de <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	172	300	
==>:)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace nod <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	172	300	
==>:)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace nod <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	749	893	
==>concept of associative attributes,
                  # so we represent them all as attributes
                  attrs => [ map { $self->generate_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	685	796	
==>eturn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	685	796	
==>eturn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6993	7105	
==>IL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6993	7105	
==>IL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6993	7105	
==>IL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1066	1190	
==>PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1066	1190	
==>PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1066	1190	
==>PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12793	12917	
==>!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12793	12917	
==>!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20216	20324	
==>:Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11265	11382	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11265	11382	
==>th_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_wi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3246	3361	
==>ct at all times
        unless( $self->can('file') ) {
            error("No file associated with this object -- " . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8614	8717	
==>IL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8614	8717	
==>IL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8614	8717	
==>IL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8943	9102	
==>an'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1095	1236	
==>an'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1095	1236	
==>an'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7181	7283	
==>ject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from first Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8176	8278	
==>ject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from first Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10745	10847	
==>ject(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value from first Obje <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10246	10342	
==>>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specif <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10246	10342	
==>>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specif <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6102	6241	
==>Renew(r->offsets, 2*len+1, U32);
      r->offsets[0] = len;
    }

    r->offsets[1] = RECOGNITION_FLAG;

    /*XXX should SvREFCNT_dec curr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9502	9598	
==>hich are printed in a particular order.  The
field names are cases insensitive.

Instances of thi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9502	9598	
==>hich are printed in a particular order.  The
field names are cases insensitive.

Instances of thi <==
3	/Users/nnunley/pugs/util/func_refact.pl	2425	2553	
==>nds{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2693	2789	
==>mmar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2693	2789	
==>mmar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnin <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3768	4111	
==><->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1507	1604	
==>th );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_up <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1507	1604	
==>th );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5695	5863	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5695	5863	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5695	5863	
==>> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9428	9536	
==>bel);
}

(method remove_method ((opaque $self:) (symbol $label)) returns nil
    ((($self: get_attr (symbol n <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3245	3343	
==>ill all succeed or not is an open question.  But the
perl5 team has expressed interest, and a poten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1521	1648	
==>t ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1521	1648	
==>t ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1521	1648	
==>t ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_m <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1102	1199	
==>a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in a <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1102	1199	
==>a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	55	150	
==>lts 
# Generate cross-referenced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3778	3939	
==>f this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3778	3939	
==>f this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribut <==
3	/Users/nnunley/pugs/util/build_pugs.pl	485	579	
==>o build a pugs exectuable, optionally inlining
precompiled modules in a second pass.

Primary c <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2657	2748	
==>children returns Array of Tree { @!children }

## ------------------------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2657	2748	
==>children returns Array of Tree { @!children }

## ------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	424	522	
==>6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	424	522	
==>6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	424	522	
==>6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	102	208	
==>ect::Accessor';

my %config;
my $Cwd = Path::Class::dir(cwd());

use constant SUBDIR_OF_ROOT     => sub { s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3058	3158	
==>g with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to rela <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3058	3158	
==>g with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to rela <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	663	796	
==>e_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scalar @met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29331	29422	
==>t Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33883	33974	
==>t Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6073	6169	
==>fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6073	6169	
==>fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6073	6169	
==>fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $P <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10317	10405	
==>"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef", <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11052	11140	
==>"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef", <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1973	2089	
==>hile ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1973	2089	
==>hile ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4971	5069	
==>ned(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4971	5069	
==>ned(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4971	5069	
==>ned(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1306	1514	
==>D $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1306	1514	
==>D $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1306	1514	
==>D $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	424	635	
==>rgs, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.ch <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	424	635	
==>rgs, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.ch <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5071	5175	
==>)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16865	16964	
==>.};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16865	16964	
==>.};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16865	16964	
==>.};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9807	9928	
==>to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9807	9928	
==>to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9807	9928	
==>to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4929	5049	
==>self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4929	5049	
==>self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4929	5049	
==>self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5407	5521	
==>her = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5407	5521	
==>her = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5407	5521	
==>her = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1679	1837	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1679	1837	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1679	1837	
==>->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2913	3039	
==>am=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2913	3039	
==>am=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2913	3039	
==>am=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1067	1208	
==>'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    uns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1067	1208	
==>'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3894	4002	
==>slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3894	4002	
==>slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4484	4592	
==>slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4027	4176	
==>pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4027	4176	
==>pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4027	4176	
==>pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5204	5314	
==>heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8681	8791	
==>heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7701	7811	
==>heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	305	403	
==>(which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	305	403	
==>(which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	305	403	
==>(which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3600	3827	
==>{
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<P <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3600	3827	
==>{
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<P <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2819	2914	
==>sions("$self->{prefix}/$self->{path}", $self);
    }

    foreach my $obj (@{$self->{extensions} <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17956	18060	
==>b header_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	758	860	
==>rt of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	758	860	
==>rt of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9117	9296	
==>y ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12594	12773	
==>y ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $othe <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3164	3295	
==>se_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNil"' {
        $ret = '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12375	12474	
==>gle line containing a digest of the original content.
#
# This makes further dividing of Perl code l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12375	12474	
==>gle line containing a digest of the original content.
#
# This makes further dividing of Perl code l <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3892	4009	
==>escription> is the optional
description of the test.  This is the easiest way to match a failing test.

=item B<test_o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3892	4009	
==>escription> is the optional
description of the test.  This is the easiest way to match a failing test.

=item B<test_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3972	4089	
==>escription> is the optional
description of the test.  This is the easiest way to match a failing test.

=item B<test_o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2222	2336	
==>iag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2222	2336	
==>iag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2302	2416	
==>iag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $ex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21099	21200	
==>e
degree, and the attribute names of each tuple are all the same as those of
all the other tuples.

Fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25651	25752	
==>e
degree, and the attribute names of each tuple are all the same as those of
all the other tuples.

Fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24266	24367	
==>e
degree, and the attribute names of each tuple are all the same as those of
all the other tuples.

Fo <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5040	5145	
==>}
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME: <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5040	5145	
==>}
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1015	1119	
==>$target, $from, $position)
}

#Tell a Match object to continue the previous match from where it left off. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3903	4027	
==>g will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3903	4027	
==>g will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk f <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5063	5157	
==>ann <michael.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40130	40247	
==>rrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40130	40247	
==>rrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40130	40247	
==>rrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1262	1373	
==>etopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $str <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2259	2357	
==>>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You c <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2259	2357	
==>>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2227	2318	
==>to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	129	313	
==>t "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	129	313	
==>t "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13471	13689	
==>dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13471	13689	
==>dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13471	13689	
==>dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther- <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1189	1328	
==>nfix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	576	701	
==>ists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	576	701	
==>ists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	576	701	
==>ists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3441	3658	
==>e ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        tail  => substr( $match, 1 ),
                        captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	876	987	
==>e {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	887	998	
==>e {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	798	910	
==>lude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	798	910	
==>lude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	798	910	
==>lude the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31283	31380	
==>:FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk direc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31283	31380	
==>:FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk direc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8070	8273	
==>) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8070	8273	
==>) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8070	8273	
==>) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1134	1248	
==>p,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1134	1248	
==>p,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1134	1248	
==>p,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6897	7042	
==>pected /$expected/\n");
    }
    local $Level = 2;
    _ok($pass, _where(), $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _o <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	716	829	
==>ecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	716	829	
==>ecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	617	723	
==>do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	617	723	
==>do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	617	723	
==>do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4825	4915	
==>g equal_to on " . $left->fetch($i)->name->to_native . ' => ' . $left->fetch($i)->type->to_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	51	140	
==>rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	51	140	
==>rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	545	667	
==>e_quoted};
        my $name     = $_[0]{pair}{value}{single_quoted};
        $category =~ s/^(\w)/uc($1)/e; 
        $categ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18515	18626	
==>"ok $curr/$max");

        if( $detail->{type} eq 'skip' ) {
            $totals->{skip_reason} = $detail->{reas <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1874	1971	
==>o nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_addres <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	870	967	
==>o nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_addres <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11728	11838	
==>@_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cnt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11722	11832	
==>@_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cnt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	330	426	
==>ich adds a self-bootstrapping
## implementation of Roles into the model. See below for more detai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6786	6886	
==>asses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6786	6886	
==>asses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6786	6886	
==>asses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subcl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7607	7730	
==>t',
    fixity => 'infix',
  );

Pseudo-code for usage inside a grammar:

    sub new_proto( $match ) {
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2658	2764	
==>ode;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2716	2822	
==>ode;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7563	7718	
==>$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7563	7718	
==>$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7563	7718	
==>$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6528	6643	
==>v);
    return +0 if $Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($R <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3672	3768	
==>/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for u <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3672	3768	
==>/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2302	2434	
==>referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2302	2434	
==>referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2302	2434	
==>referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10318	10539	
==>list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alternative with the highest ver <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1146	1268	
==>privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    m <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1146	1268	
==>privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1423	1530	
==>ent, $base);
 }
 multi Math::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13365	13460	
==>which you can create an identical Document (with member
Nodes) to the one you first invoked expo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13365	13460	
==>which you can create an identical Document (with member
Nodes) to the one you first invoked expo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1070	1182	
==>se Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1275	1387	
==>se Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1336	1448	
==>se Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35575	35695	
==>, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35575	35695	
==>, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35575	35695	
==>, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18048	18132	
==>. Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18048	18132	
==>. Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18048	18132	
==>. Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	663	859	
==>T, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	663	859	
==>T, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	663	859	
==>T, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7124	7217	
==>manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7124	7217	
==>manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7124	7217	
==>manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Cl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30906	31003	
==>e current one.  The
Member Name comes next and is what distinguishes each module from others in
it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30906	31003	
==>e current one.  The
Member Name comes next and is what distinguishes each module from others in
it <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8156	8243	
==>s(L), !.
p5_modifier_spec_pos([s|L])  --> "s", p5_modifier_spec_pos(L), !.
p5_modifier_s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3914	4015	
==>], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3914	4015	
==>], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6508	6604	
==>le>

  my %results = $strap->analyze_file($test_file);

Like C<analyze>, but it runs the given C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4327	4436	
==>s' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4327	4436	
==>s' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4327	4436	
==>s' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1934	2024	
==>e set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1934	2024	
==>e set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1934	2024	
==>e set everyone's name properly
$::Package->name('Package');
$::Module->name('Module');
$::C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6613	6719	
==>Inf);
    my $Result4 = sign($Result1) * floor(abs($Result1));
    return $Result4;
}

# 9.5
multi sub ToIn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2854	2958	
==>e{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2854	2958	
==>e{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8188	8306	
==>k;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8188	8306	
==>k;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8188	8306	
==>k;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0] => (%$self)[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4279	4380	
==>f }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4279	4380	
==>f }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4279	4380	
==>f }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = & <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1677	1822	
==>Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1677	1822	
==>Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gramm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4190	4288	
==>block {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add_definition($node, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10374	10473	
==>n::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10374	10473	
==>n::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10374	10473	
==>n::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	170	286	
==>ser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	170	286	
==>ser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	170	286	
==>ser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1289	1386	
==>g{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1289	1386	
==>g{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1289	1386	
==>g{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc} <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2807	2906	
==>method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2807	2906	
==>method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our chi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4345	4446	
==>print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4345	4446	
==>print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4345	4446	
==>print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	539	696	
==>) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	744	901	
==>) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	800	957	
==>) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14678	14794	
==>example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14678	14794	
==>example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15897	15985	
==>new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This me <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15897	15985	
==>new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1363	1459	
==>\$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1363	1459	
==>\$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1363	1459	
==>\$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2811	2912	
==>arrot Perl 6 is the best performing implementation by far.
The Parrot implementation is currently at a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32175	32271	
==>Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36725	36821	
==>Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relatio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27846	28002	
==>ture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28125	28281	
==>ture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	111	248	
==>hod clear () {
    $.x = 0;  # accessible within the class
    $.y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	439	590	
==>6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_m <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	96	194	
==>rch_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arg <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	96	194	
==>rch_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19865	19994	
==>s, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19865	19994	
==>s, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19865	19994	
==>s, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1667	1776	
==>e plan as of this moment is to
continue cleaning and adding p6, tuck it into the pugs distribution
somewhere w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19093	19193	
==>in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19093	19193	
==>in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19093	19193	
==>in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2386	2511	
==>corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2386	2511	
==>corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1797	1904	
==>self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1797	1904	
==>self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26027	26120	
==>thod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30579	30672	
==>thod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29554	29647	
==>thod
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1628	1737	
==>k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1628	1737	
==>k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1628	1737	
==>k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3604	3701	
==>in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3604	3701	
==>in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3604	3701	
==>in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3909	4026	
==>ng CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3909	4026	
==>ng CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3909	4026	
==>ng CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck u <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6078	6214	
==>signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::V <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6078	6214	
==>signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::V <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	857	953	
==>vide an environment in which p6 rules can be run against strings,
  sufficient to permit recommen <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1580	1695	
==>mber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $l <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1580	1695	
==>mber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1660	1775	
==>mber();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1025	1154	
==>ldNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1025	1154	
==>ldNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1025	1154	
==>ldNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	813	934	
==>OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_na <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6062	6159	
==>'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6062	6159	
==>'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2961	3058	
==>'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27962	28057	
==>fferent version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3341	3448	
==>e = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = B::class($obj);

		re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10368	10456	
==>ined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11103	11191	
==>ined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1527	1629	
==>?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::procla <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1585	1687	
==>?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::procla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4124	4214	
==>use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1492	1598	
==>d, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1699	1805	
==>d, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$pr <==
3	/Users/nnunley/pugs/util/combine_tests.pl	159	249	
==>mbined = combine_tests(@data);
#
#print YAML::Dump($combined);
print Dump(combine_tests(map <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	243	356	
==>ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	243	356	
==>ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->S <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12671	12770	
==>e=unexpect> unexpectedly succeeded"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td> <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8469	8894	
==>ew('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7564	7686	
==>)
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7757	7879	
==>)
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1102	1207	
==>s are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1102	1207	
==>s are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1102	1207	
==>s are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12861	13020	
==>s $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12861	13020	
==>s $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12861	13020	
==>s $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Arr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1370	1506	
==>nical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->hexd <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8128	8222	
==>he last '=item' directive, followed by any text on the same line.

=item I<start_element ('verb <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8128	8222	
==>he last '=item' directive, followed by any text on the same line.

=item I<start_element ('verb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16519	16720	
==>->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16519	16720	
==>->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16519	16720	
==>->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16405	16500	
==>ed parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16405	16500	
==>ed parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	351	489	
==>s = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	351	489	
==>s = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	351	489	
==>s = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1036	1161	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1036	1161	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1036	1161	
==>k $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1793	1909	
==>ny(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	970	1084	
==>ny(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1443	1557	
==>ny(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4954	5140	
==>dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6716	6902	
==>dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  ( <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2710	2817	
==>$self = shift;
    my $base = $self->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2108	2204	
==>l);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2108	2204	
==>l);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2108	2204	
==>l);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6625	6736	
==>_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6625	6736	
==>_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6625	6736	
==>_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7129	7276	
==>@values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


 multi Array::uns <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13773	13876	
==>o demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13773	13876	
==>o demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_do <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1422	1522	
==>c, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1480	1580	
==>c, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20249	20346	
==>lass.

The walker() method is also now abstracted -- each node it comes across
will have its walk( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8022	8121	
==>ntersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11499	11598	
==>ntersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2333	2452	
==>rs twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - cal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2333	2452	
==>rs twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - cal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2333	2452	
==>rs twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - cal <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11039	11162	
==>g;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STDERR;
    $_;
};
# BEGIN { FILT <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26178	26297	
==>tegerLiteral> <!before <DecimalDigit>> #lookahead
}
rule CharacterClass {  # see 15.10.1
      <'['> <!before <'^'>> <Cl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6216	6326	
==>.9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $R <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	136	250	
==>(Match);
use overload
    'bool' => 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1955	2048	
==>4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the l <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1955	2048	
==>4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	5	93	
==>IL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	5	93	
==>IL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	5	93	
==>IL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2780	2891	
==>= @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2780	2891	
==>= @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2780	2891	
==>= @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12977	13116	
==>{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6452	6591	
==>{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6578	6786	
==>ibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    An <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6578	6786	
==>ibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    An <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1464	1567	
==>, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1464	1567	
==>, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1464	1567	
==>, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4917	5034	
==>index_files(package => $pkg) ) {
        unless (-e $index) {
            # create the directory an index file lives i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17171	17275	
==>,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex, <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17328	17432	
==>,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27029	27124	
==>nal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31581	31676	
==>nal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30637	30732	
==>nal's attributes to what C<project> would
return given the same C<$attrs>.  This method has an a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	447	545	
==>i sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	447	545	
==>i sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	447	545	
==>i sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
mu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3812	3935	
==>copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking spa <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3812	3935	
==>copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4698	4834	
==>ss($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4698	4834	
==>ss($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4698	4834	
==>ss($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circula <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2258	2369	
==>ller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2258	2369	
==>ller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2258	2369	
==>ller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10145	10270	
==>host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10145	10270	
==>host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $conn <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13716	13836	
==>_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe_SEQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14070	14167	
==>LNUL (-15)

%s matches null string many times

=item RPe_NESTED (-16)

Nested quantifiers

=item R <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1997	2093	
==>ft with nothing but questions about what this object represents.

It represents a node in the Per <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1997	2093	
==>ft with nothing but questions about what this object represents.

It represents a node in the Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4150	4260	
==>on $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4150	4260	
==>on $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4150	4260	
==>on $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15397	15500	
==>oreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15397	15500	
==>oreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15397	15500	
==>oreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16202	16305	
==>_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16202	16305	
==>_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16202	16305	
==>_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	258	360	
==>sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4658	4771	
==>p = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mut <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4658	4771	
==>p = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mut <==
3	/Users/nnunley/pugs/util/version_h.pl	1163	1291	
==>{
        ($revision) = $line =~ / (\d+)$/;
    } elsif (my ($source_line) = grep /^(Copied|Merged) From/, @info) {
        if (m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	270	367	
==>',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	270	367	
==>',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1611	1811	
==>L1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1611	1811	
==>L1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1611	1811	
==>L1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18912	19018	
==>DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nes <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18912	19018	
==>DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nes <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	223	322	
==>immediate goal is simply to permit a piln backend to
# pass most of the tests the current backend do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1455	1553	
==>Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1455	1553	
==>Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1455	1553	
==>Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4704	4879	
==>t;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4704	4879	
==>t;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $ma <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	358	461	
==>$s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14575	14748	
==>s ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14575	14748	
==>s ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14575	14748	
==>s ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1037	1161	
==>0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos(' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1037	1161	
==>0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos(' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5917	6049	
==>r(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5917	6049	
==>r(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	66	192	
==>se qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15726	15834	
==>ss $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10582	10690	
==>ss $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7029	7314	
==>= $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7029	7314	
==>= $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1835	2017	
==>gz';                    # part with metadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2773	2932	
==>tion => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'ok ' : 'not ok ';
            $ok    .= _ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2309	2429	
==>h = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    els <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2309	2429	
==>h = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2815	2917	
==>dd_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2815	2917	
==>dd_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2815	2917	
==>dd_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5175	5313	
==>@params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5175	5313	
==>@params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5175	5313	
==>@params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3939	4050	
==>nge as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3939	4050	
==>nge as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3939	4050	
==>nge as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3701	3801	
==>$other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $on <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3701	3801	
==>$other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $on <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36486	36582	
==>der: tail

=head2 ifthen

Family: assertion

Types: ifthen (C<(?(>)

Data: array reference of two <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	271	372	
==>, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	271	372	
==>, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	271	372	
==>, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10545	10706	
==>nd: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of mac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6886	7047	
==>nd: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of mac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7735	7896	
==>nd: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of mac <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2721	2829	
==>\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26415	26509	
==>osetta
that you are willing to distribute, because that is a practical way of
suggesting improv <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26415	26509	
==>osetta
that you are willing to distribute, because that is a practical way of
suggesting improv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1979	2095	
==>ng(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1979	2095	
==>ng(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1979	2095	
==>ng(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8260	8364	
==>sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8260	8364	
==>sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8260	8364	
==>sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor h <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3180	3277	
==>e implementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.splice(0,1) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1365	1462	
==>le say something (in public), the current
time and the text they said is saved.

If the (optional) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1365	1462	
==>le say something (in public), the current
time and the text they said is saved.

If the (optional) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8081	8178	
==>xpression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Array::rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39562	39735	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39562	39735	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39562	39735	
==>NIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $lengt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10421	10561	
==>$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6762	6902	
==>$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7611	7751	
==>$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15743	15881	
==>t, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15743	15881	
==>t, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29764	29862	
==>invocant's attributes.  This method
supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34316	34414	
==>invocant's attributes.  This method
supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33480	33578	
==>invocant's attributes.  This method
supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1027	1127	
==>UGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1027	1127	
==>UGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1027	1127	
==>UGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4745	4879	
==>h->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4745	4879	
==>h->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3761	3933	
==>) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3761	3933	
==>) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	304	406	
==>LER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	304	406	
==>LER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	304	406	
==>LER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1658	1771	
==>(" . $label->to_native . ")";
        if ($methods->exists($label) == $bit::TRUE) {
            #warn "calling met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8679	8772	
==>module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8679	8772	
==>module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7683	7816	
==>capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7876	8009	
==>capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7651	7767	
==>ing );

    return Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	941	1086	
==>eturn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	902	1042	
==>eturn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	275	371	
==>lves:
# creating an *event*
# getting the *subscriptions* for it, and converting them to *notific <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	636	741	
==>le => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	636	741	
==>le => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	636	741	
==>le => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8973	9075	
==>itive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8973	9075	
==>itive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8973	9075	
==>itive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1160	1456	
==>";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $bu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1160	1456	
==>";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $bu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1258	1362	
==>ed = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$remaind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3816	3937	
==>1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3816	3937	
==>1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3816	3937	
==>1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3503	3625	
==>todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3503	3625	
==>todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5027	5149	
==>todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descripti <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1047	1160	
==>LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1014	1127	
==>LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1048	1156	
==>%s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GRE <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10976	11068	
==>method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<decip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10976	11068	
==>method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<decip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3707	3825	
==>name;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3707	3825	
==>name;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3707	3825	
==>name;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2031	2153	
==>: lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2031	2153	
==>: lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2031	2153	
==>: lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            | <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6399	6618	
==>rent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6399	6618	
==>rent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3481	3583	
==>defined" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2798	2927	
==>y++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2798	2927	
==>y++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2798	2927	
==>y++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	143	276	
==>?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	143	276	
==>?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	143	276	
==>?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5634	5743	
==>pe";
    $self->{env}->{$name} = reference->new($value);      
}

sub set {
    my ($self, $name, $value) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	406	539	
==>ption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	406	539	
==>ption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	406	539	
==>ption(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30977	31070	
==>w Relation::Example has as
many additional attributes as there are pairs in the argument C<$at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	374	489	
==>ction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	374	489	
==>ction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	374	489	
==>ction (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8048	8156	
==>nt(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8048	8156	
==>nt(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8048	8156	
==>nt(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28472	28568	
==>tes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33024	33120	
==>tes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32152	32248	
==>tes are being combined/wrapped, with
its keys being the new tuple-valued attribute names and each <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2799	2891	
==>ub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2799	2891	
==>ub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2799	2891	
==>ub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4385	4494	
==>ntime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4385	4494	
==>ntime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26565	26668	
==>'> <ClassAtom> <ClassRanges>
}
rule NonemptyClassRangesNoDash {  # see 15.10.1
      <ClassAtom>
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32124	32251	
==>mp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32124	32251	
==>mp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32124	32251	
==>mp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1405	1519	
==>ault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1405	1519	
==>ault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1405	1519	
==>ault, hash can autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>und <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1653	1802	
==>r => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc => 'left',
    #    p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13636	13756	
==>$translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13636	13756	
==>$translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes f <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9838	9953	
==>ot();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_wi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9838	9953	
==>ot();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_wi <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	267	419	
==>2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2625	2728	
==>$flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2765	2868	
==>$flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1637	1832	
==>>unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1637	1832	
==>>unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1637	1832	
==>>unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	98	194	
==>gs;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5892	5971	
==>1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5892	5971	
==>1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3445	3560	
==>$key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph = <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3445	3560	
==>$key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph = <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8805	8924	
==>5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1344	1441	
==>export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1344	1441	
==>export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11586	11689	
==>e($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11586	11689	
==>e($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11586	11689	
==>e($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6123	6222	
==>nce_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6123	6222	
==>nce_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6123	6222	
==>nce_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4172	4283	
==>s $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4389	4500	
==>s $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	699	1109	
==>setta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	699	1109	
==>setta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16703	16838	
==>p just copies them.

  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	740	848	
==>)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	740	848	
==>)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	740	848	
==>)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1480	1607	
==>nds( 
            JIB::Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $obj;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	696	792	
==>nt = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	696	792	
==>nt = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5691	5801	
==>ap->[-2],"(?x)".$::X::cap->[-1]) }
sub hlp_stmt { def_statement($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13534	13631	
==>s "say" and
database queries, may occur much later than expected.

It may enter an infinite loop i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13534	13631	
==>s "say" and
database queries, may occur much later than expected.

It may enter an infinite loop i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46919	47080	
==>->get('$label')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  ->and(block->new($e, sub {
                      $e->set <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16557	16680	
==>st = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->se <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15609	15724	
==>st = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10787	10912	
==>S id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10787	10912	
==>S id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::No <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1681	1777	
==>ng a names where needed.

   Example:
     perl util/catalog_tests.pl --p6design_dir=../p6/docs/d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	824	913	
==>ew PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	824	913	
==>ew PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	824	913	
==>ew PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35268	35396	
==>_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35268	35396	
==>_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35268	35396	
==>_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8924	9031	
==>x:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8924	9031	
==>x:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8924	9031	
==>x:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5876	6004	
==>else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5876	6004	
==>else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5876	6004	
==>else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method($method_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12194	12295	
==>$other!) returns Relation {

    # First look for trivial cases that are more efficient to do differen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15671	15772	
==>$other!) returns Relation {

    # First look for trivial cases that are more efficient to do differen <==
3	/Users/nnunley/pugs/util/importgraph.pl	2261	2349	
==>rank('codegens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	54	164	
==>__END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	54	164	
==>__END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30471	30564	
==>tem at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and enhancements to 
C<< <bug-tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12983	13138	
==>lice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12983	13138	
==>lice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12983	13138	
==>lice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7556	7662	
==>o is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->supercl <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1570	1669	
==>trip away everything except status and headers
  # This should all be done better so the response do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1570	1669	
==>trip away everything except status and headers
  # This should all be done better so the response do <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1714	1836	
==>pture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1714	1836	
==>pture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4975	5092	
==>, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
    block => <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3223	3322	
==>h - Math related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::Math;

=head1 DESCRIPTION

=cu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3799	3888	
==>, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z) --> p5_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10309	10410	
==>o.
    # -----------------------------------------------    
    method resolve () { "<implemented>" } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10309	10410	
==>o.
    # -----------------------------------------------    
    method resolve () { "<implemented>" } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10309	10410	
==>o.
    # -----------------------------------------------    
    method resolve () { "<implemented>" } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33293	33396	
==>ck and the current
depth in the walking stack.  Elements are taken from the I<front> of the
walking stac <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15737	15831	
==>ble TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's ` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15795	15889	
==>ble TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10895	11070	
==>\(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10895	11070	
==>\(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10895	11070	
==>\(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.refe <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4679	4769	
==>onstructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4679	4769	
==>onstructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14823	14921	
==>e and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14823	14921	
==>e and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14823	14921	
==>e and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4449	4556	
==>set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4449	4556	
==>set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1196	1294	
==>her contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1196	1294	
==>her contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	340	455	
==>method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	340	455	
==>method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	340	455	
==>method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1666	1796	
==>le;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1666	1796	
==>le;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2675	2825	
==>x( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1255	1344	
==>ument describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1255	1344	
==>ument describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24625	24733	
==>from the other
attributes, though several attributes may store values of the same class;
every Relation::Exam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21440	21542	
==>from the other
attributes, though several attributes may store values of the same class;
every Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25992	26094	
==>from the other
attributes, though several attributes may store values of the same class;
every Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23227	23328	
==>xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23227	23328	
==>xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23227	23328	
==>xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	453	560	
==>I store the node in a variable outside of this function
      // and refer to it via the closure, then thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	453	560	
==>I store the node in a variable outside of this function
      // and refer to it via the closure, then thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	453	560	
==>I store the node in a variable outside of this function
      // and refer to it via the closure, then thing <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8242	8339	
==>ost calls will be for 
pedestrian events like object destruction, but let's not make too many 
ass <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8242	8339	
==>ost calls will be for 
pedestrian events like object destruction, but let's not make too many 
ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	91	200	
==>le::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	91	200	
==>le::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	91	200	
==>le::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  comp <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	558	684	
==>.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	558	684	
==>.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non- <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	198	334	
==>x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = append_last <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16328	16456	
==>{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16328	16456	
==>{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10017	10208	
==>calar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11494	11685	
==>calar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10562	10663	
==>ile_hook = sub{
  my($re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2386	2547	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2579	2740	
==>)
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'gra <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26622	26721	
==>Y_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROP <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	312	412	
==>ion         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	312	412	
==>ion         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16945	17068	
==>ements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17224	17347	
==>ements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	423	525	
==>urpy magic doesn't work too well presently ...
  $maketoken := { [ $^tok_label, $^tok ] }
    if !defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22475	22583	
==>d and then exited.  The general concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE = CURRENT->DA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18080	18176	
==>e
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a prog <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18080	18176	
==>e
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a prog <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2299	2403	
==>d_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2299	2403	
==>d_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2299	2403	
==>d_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11644	11754	
==>~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\"." <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11644	11754	
==>~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\"." <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2	97	
==>/usr/bin/perl

use Runtime::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16335	16439	
==>of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ? <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16335	16439	
==>of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ? <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1768	1872	
==>ew($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %nativ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5288	5417	
==>(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5288	5417	
==>(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8102	8222	
==>e hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print STDO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5254	5367	
==>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5254	5367	
==>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5254	5367	
==>{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $ne <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3579	3674	
==>ugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being devel <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3579	3674	
==>ugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being devel <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1665	1772	
==>s (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @ar <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3424	3528	
==>::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left')) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3424	3528	
==>::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left')) <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9390	9514	
==>ght = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9390	9514	
==>ght = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there <==
3	/Users/nnunley/pugs/util/importgraph.pl	2584	2697	
==>r => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = eac <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11530	11683	
==>+;
        }
        else {
            # List unrun tests as failures.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1351	1481	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1351	1481	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	455	587	
==>/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	455	587	
==>/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	455	587	
==>/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6742	6860	
==>_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6742	6860	
==>_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22309	22402	
==>ning.

Added "Unrecognized escape" warnings to I<all> escape sequence handlers.

The 'g', 'c', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18774	19011	
==>,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18774	19011	
==>,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18774	19011	
==>,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1761	1878	
==>{
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1761	1878	
==>{
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1761	1878	
==>{
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14617	14812	
==>g ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18094	18289	
==>g ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17510	17705	
==>g ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24235	24371	
==>/, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # tu <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7319	7432	
==>lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_par <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7319	7432	
==>lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1489	1633	
==>);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1489	1633	
==>);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14416	14544	
==>ift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14416	14544	
==>ift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14416	14544	
==>ift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1360	1495	
==>%attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1360	1495	
==>%attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1360	1495	
==>%attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	522	646	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	522	646	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	522	646	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not o <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	951	1066	
==>urns Bool is builtin is primitive is unsafe {
        # say "e:args:" ~ @args.perl; # XXX delme
        Pugs::Intern <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	917	1025	
==>:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	917	1025	
==>:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10943	11103	
==>sed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1431	1577	
==>sed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1431	1577	
==>sed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6722	6812	
==>elf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6722	6812	
==>elf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6722	6812	
==>elf->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1680	1807	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1680	1807	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1680	1807	
==>stance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $cla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1932	2043	
==>'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1943	2054	
==>'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15472	15585	
==>? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15472	15585	
==>? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15472	15585	
==>? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3366	3470	
==>p { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3366	3470	
==>p { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3366	3470	
==>p { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addme <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	217	323	
==>mber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	217	323	
==>mber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	217	323	
==>mber(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2956	3072	
==>$Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        i <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2412	2502	
==>mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compi <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2412	2502	
==>mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compi <==
3	/Users/nnunley/pugs/util/importgraph.pl	968	1080	
==>1), defined($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  clo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	577	679	
==>%*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	577	679	
==>%*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub g <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3905	4002	
==>$set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3905	4002	
==>$set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	502	616	
==>$self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	502	616	
==>$self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	502	616	
==>$self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4423	4542	
==>ed";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4423	4542	
==>ed";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5013	5132	
==>ed";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

packa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10587	10671	
==>s(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(vertical_space) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3466	3671	
==>wn Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3466	3671	
==>wn Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3466	3671	
==>wn Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	723	848	
==>tring() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	723	848	
==>tring() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	723	848	
==>tring() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12569	12714	
==>t  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12569	12714	
==>t  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12569	12714	
==>t  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shif <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3808	3919	
==>uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$V <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3808	3919	
==>uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$V <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3257	3367	
==>}
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16684	16803	
==>e. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16684	16803	
==>e. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12021	12138	
==>{ Carp::carp("p6_as_num called on undef"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13516	13642	
==>he first source's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16993	17119	
==>he first source's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16355	16481	
==>he first source's heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16642	16820	
==>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16642	16820	
==>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16642	16820	
==>new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->un <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2324	2485	
==>ITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            store       => \$inst_set,
            allow       => ISA_JIB_INST <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6060	6167	
==>given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6060	6167	
==>given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	892	993	
==>erface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	892	993	
==>erface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($t <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	409	510	
==>bles) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $matc <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	409	510	
==>bles) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5227	5333	
==>?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5227	5333	
==>?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21389	21481	
==>tem Diagnostics and Bug Fixes

More tests added (specifically, making sure C<(?(N)T|F)> works <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17614	17724	
==>{ return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Creat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17614	17724	
==>{ return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Creat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11715	11823	
==>ject => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5218	5333	
==>my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilG <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5218	5333	
==>my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilG <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5218	5333	
==>my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17830	17982	
==>elf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17830	17982	
==>elf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17830	17982	
==>elf->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3499	3668	
==>ort(; SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             ) returns List
 multi sub Perl6::Lists::zip ( <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1677	1782	
==>id  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what fu <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1677	1782	
==>id  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what fu <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	321	439	
==>EFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns S <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	321	439	
==>EFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns S <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	602	697	
==>~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $actio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1833	1935	
==>$val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1833	1935	
==>$val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($se <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	775	871	
==>tem *

unbound private attributes, which are actually just accessor methods
as well.

=back

Note <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13778	13905	
==>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13778	13905	
==>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13778	13905	
==>{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1454	1562	
==>ad2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13358	13459	
==>aram },
		type($.body),
	),
}

# identifiers pass the generic variables unchanged
ide: generic($$) = { <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3101	3190	
==>&Array::shift := &Array::splice.assuming(:offset(0) :length(1));
## an alternate implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13609	13789	
==>nd_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13609	13789	
==>nd_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13609	13789	
==>nd_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5342	5471	
==>ail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5342	5471	
==>ail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5342	5471	
==>ail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &in <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3887	4002	
==>::Dumper::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$noop; goto &$c;
      m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3529	3632	
==>two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.dif <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3529	3632	
==>two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.dif <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4092	4225	
==>Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4092	4225	
==>Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	942	1075	
==>Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	365	469	
==>rl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	365	469	
==>rl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	365	469	
==>rl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Add <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4391	4497	
==>atch this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7868	7974	
==>atch this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12146	12232	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12146	12232	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12146	12232	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_asc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4203	4304	
==>ods you should take care not
to call them in function form by mistake; that would not do at all.

=ove <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4203	4304	
==>ods you should take care not
to call them in function form by mistake; that would not do at all.

=ove <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4203	4304	
==>ods you should take care not
to call them in function form by mistake; that would not do at all.

=ove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8287	8409	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8287	8409	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8287	8409	
==>lf)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4491	4619	
==>r
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4491	4619	
==>r
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	580	693	
==>BLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	580	693	
==>BLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	580	693	
==>BLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15855	15972	
==>w
    $X::cap = $cap;
    $X::current_match = $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local $X::current_match = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22987	23085	
==>om octal escapes.  (The source code to Perl's regex compiler does the
same thing.)

=item nparen

T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	775	865	
==>:Runtime::Perl6

=head1 DESCRIPTION

Provides runtime routines for the Perl6-in-Perl5 compi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16775	16947	
==>il;
                    })
                );
                return opaque->new(reference->new($e->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	678	775	
==>kwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	678	775	
==>kwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2519	2660	
==>c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2519	2660	
==>c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2519	2660	
==>c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'num <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9766	9875	
==>{ self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value:: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9766	9875	
==>{ self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value:: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12519	12613	
==>via reverse
  engineering (almost completely undocumented source), in the presence
  of copy-on <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7257	7362	
==>Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7315	7420	
==>Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9689	9785	
==>S->force_object(anyof_class => xdigit => $neg, $how);
  });

  $self->add_handler('atom' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11911	12028	
==>);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11911	12028	
==>);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11911	12028	
==>);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5213	5322	
==>ue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5213	5322	
==>ue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5213	5322	
==>ue, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8358	8481	
==>)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8358	8481	
==>)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8358	8481	
==>)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$othe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38880	38978	
==>OPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dun <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43694	43792	
==>OPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dun <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43228	43326	
==>OPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Dun <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27642	27737	
==>ponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32194	32289	
==>ponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31286	31381	
==>ponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9327	9443	
==>emove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9327	9443	
==>emove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9327	9443	
==>emove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8769	9048	
==>on->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8769	9048	
==>on->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8769	9048	
==>on->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6186	6285	
==>'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6186	6285	
==>'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal <==
3	/Users/nnunley/pugs/util/config_h.pl	1083	1176	
==>_POSIX 1\n";
}

my $has_readline = try_compile(<< '.');
import System.Console.Readline
main :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	92	181	
==>ve { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	92	181	
==>ve { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	92	181	
==>ve { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, N <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7427	7542	
==>e_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
} <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7427	7542	
==>e_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	552	685	
==>ffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we h <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	552	685	
==>ffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we h <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	37	133	
==>:Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13758	13887	
==>9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $dige <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13758	13887	
==>9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $dige <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3071	3182	
==>Utils::Manifest;
    local *ExtUtils::Manifest::manicheck = sub { return };

    require Module::Build;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	929	1035	
==>one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equa <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	929	1035	
==>one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30801	30894	
==>ant to go along
the I<object>'s inheritance tree.  Use Damian Conway's F<NEXT> module
instead. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10487	10600	
==>lasses = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10487	10600	
==>lasses = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10487	10600	
==>lasses = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6595	6709	
==>{},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6595	6709	
==>{},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6595	6709	
==>{},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5150	5249	
==>j.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
byte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5150	5249	
==>j.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
byte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26229	26325	
==>(Str) of Any - This contains zero or more member tuples of
the Relation::Example; each Set member <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3908	4043	
==>(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3908	4043	
==>(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fi <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	601	718	
==>, *@args ]) {
            my $normalizer = $arg but $.normalizer_role;
            return $normalizer but $.coercer_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4362	4455	
==>---------------------------------------------------
## BOOTSTRAPPING Roles
## ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4385	4478	
==>----------------------------
## BOOTSTRAPPING Roles
## --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4408	4501	
==>-----
## BOOTSTRAPPING Roles
## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4881	5007	
==>r(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Be <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4881	5007	
==>r(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Be <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2317	2418	
==>f lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who created the HTML-ified ecma-262, wi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2339	2592	
==>ributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2339	2592	
==>ributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interfac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4527	4668	
==>an_bareword} 
                  ? _mangle_ident( $n->{param}{cpan_bareword} )
                  : _emit( $n->{param}{sub} );
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6560	6655	
==>MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6560	6655	
==>MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6560	6655	
==>MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4868	4986	
==>composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4868	4986	
==>composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4868	4986	
==>composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9574	9693	
==>);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9574	9693	
==>);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9574	9693	
==>);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10063	10283	
==>rn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10063	10283	
==>rn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10063	10283	
==>rn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AU <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2285	2425	
==>KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2285	2425	
==>KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %! <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	463	585	
==>$key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key->isa('type')) && 
         (blessed($value) && $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13371	13581	
==>t => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13371	13581	
==>t => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13371	13581	
==>t => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3457	3555	
==>defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3457	3555	
==>defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3457	3555	
==>defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' obj <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3065	3233	
==>kage_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5487	5623	
==>::{$caller.subname}() at {$caller.file} line {$caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::ca <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9420	9509	
==>hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,undef, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10303	10442	
==>1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10303	10442	
==>1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9 <==
3	/Users/nnunley/pugs/misc/S29_round.pl	42	160	
==>symmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, down below 0
    given abs($x) - floor( abs($x) ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16977	17138	
==>->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16977	17138	
==>->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16977	17138	
==>->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6269	6369	
==>l operators

  # Domain-specific-language-like syntax, contained in a package

### rule must ever use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6055	6153	
==>l operators
  # Domain-specific-language-like syntax, contained in a package
### rule must ever use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	785	882	
==>ckage::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3571	3696	
==>l5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3571	3696	
==>l5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11063	11156	
==>ng criteria C<$by> or C<@by> for
comparisions. C<@by> differs from C<$by> in that each criteri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17112	17240	
==>ew_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17112	17240	
==>ew_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15667	15761	
==>n>
    | <RelationalExpression> <'>='> <ShiftExpression>
    | <RelationalExpression> <'instanc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4963	5097	
==>vIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2121	2245	
==>ection]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$secti <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2121	2245	
==>ection]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$secti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3598	3695	
==>this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3598	3695	
==>this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3678	3775	
==>this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4890	5064	
==>= shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4890	5064	
==>= shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4890	5064	
==>= shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11970	12148	
==>t \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8252	8430	
==>t \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9086	9264	
==>t \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    pri <==
3	/Users/nnunley/pugs/util/package-osx.pl	10332	10460	
==>/]+$##;
    make_dir($dirs) unless (-d $dirs);
    
    open  REMOVER, '>', "$dest$files[-1]" or die "Can't open $dest$files[-1]! <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	304	410	
==>~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=po <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	304	410	
==>~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=po <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	968	1057	
==>efined $Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4334	4482	
==>unt = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4334	4482	
==>unt = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4334	4482	
==>unt = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4785	4887	
==>kage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4785	4887	
==>kage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4785	4887	
==>kage->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1458	1549	
==>x:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1458	1549	
==>x:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1458	1549	
==>x:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35062	35198	
==>>_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35062	35198	
==>>_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35062	35198	
==>>_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1916	2039	
==>unction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1916	2039	
==>unction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1916	2039	
==>unction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Read <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1216	1306	
==>This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1216	1306	
==>This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This docume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18348	18515	
==>ral_join ::= &join;

###########################################################################

my method _union (Relation::Example $other!) returns Relation::Example <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1000	1101	
==>ever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1000	1101	
==>ever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17838	17947	
==>$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

St <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17838	17947	
==>$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

St <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17838	17947	
==>$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

St <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7287	7423	
==>elf: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7287	7423	
==>elf: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
met <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	64	172	
==>hat is?

The definition of these in terms of smartmatch seem like the kind of
thing which an implementation w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2228	2323	
==>nctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2228	2323	
==>nctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4189	4379	
==>= $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4189	4379	
==>= $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4189	4379	
==>= $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3036	3199	
==>ails
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24003	24096	
==>of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24003	24096	
==>of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14851	14952	
==>DE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14851	14952	
==>DE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $cha <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27631	27731	
==>t) \
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1203	1352	
==>is should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mult <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1203	1352	
==>is should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mult <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	954	1061	
==>g to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	917	1019	
==>g to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternat <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1429	1723	
==>h' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1429	1723	
==>h' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	600	693	
==>ny branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch condition (?(%.2s';
use cons <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6376	6508	
==>re       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->las <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	566	691	
==>CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	566	691	
==>CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3515	3610	
==>urn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jsc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3515	3610	
==>urn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jsc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3515	3610	
==>urn PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4316	4439	
==>instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4316	4439	
==>instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4316	4439	
==>instance_attr($::SELF => '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12438	12547	
==>@pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12438	12547	
==>@pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12438	12547	
==>@pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	682	783	
==>Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	682	783	
==>Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	682	783	
==>Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9808	9964	
==>son,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $desc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	384	530	
==>son,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	384	530	
==>son,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3301	3418	
==>m{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3301	3418	
==>m{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3301	3418	
==>m{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19684	19852	
==>other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19684	19852	
==>other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19684	19852	
==>other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6:: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9093	9288	
==>{ok},
                    'next'      => $Strap->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $result <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1040	1150	
==>ted as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4518	4628	
==>ted as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20785	20877	
==>asy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20785	20877	
==>asy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5201	5396	
==>$key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5201	5396	
==>$key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5201	5396	
==>$key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1737	1888	
==>)<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # esc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1737	1888	
==>)<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # esc <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	475	577	
==>y -> $func\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func i <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1242	1411	
==>next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
} <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13409	13512	
==>the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13409	13512	
==>the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35771	35863	
==>other> argument, where <$other> has the same heading as
the invocant Relation::Example, and r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37803	37895	
==>other> argument, where <$other> has the same heading as the
invocant Relation::Example, and r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7478	7564	
==>ues)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backen <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2241	2482	
==>nts<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while ( <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2241	2482	
==>nts<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while ( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18608	18723	
==>n} = $detail->{reason}
              unless defined $totals->{skip_reason};
            $totals->{skip_reason} = 'va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6613	6709	
==>forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6613	6709	
==>forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6613	6709	
==>forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2 <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1165	1292	
==>perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $to <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3983	4086	
==>te.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3983	4086	
==>te.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3550	3649	
==>4

=item B<new>

This is a Factory method used to create a specific class instances which
perform th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3550	3649	
==>4

=item B<new>

This is a Factory method used to create a specific class instances which
perform th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5747	5846	
==>4

=item B<new>

This is a Factory method used to create a specific class instances which
perform th <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23413	23586	
==>f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6107	6232	
==>> sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7105	7230	
==>> sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12165	12278	
==>s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_app <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12165	12278	
==>s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_app <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12165	12278	
==>s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_app <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12397	12496	
==>y $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12397	12496	
==>y $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12397	12496	
==>y $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1047	1164	
==>ARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $Config{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15847	15946	
==>lues belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15847	15946	
==>lues belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2185	2290	
==>mbol $label, hash %opts) returns method {
    while (my $current = &dispatcher.()) {
        return $curre <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1872	1971	
==>e> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will in <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1872	1971	
==>e> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11684	11835	
==>.
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6004	6146	
==>.
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6004	6146	
==>.
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2191	2300	
==>)",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2191	2300	
==>)",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2191	2300	
==>)",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3777	3897	
==>efined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3777	3897	
==>efined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3777	3897	
==>efined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3893	4010	
==>1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3893	4010	
==>1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3893	4010	
==>1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4482	4587	
==>)  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4482	4587	
==>)  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	227	324	
==>ize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("main",'package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15151	15319	
==>> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15151	15319	
==>> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15151	15319	
==>> sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2066	2207	
==>t".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are alw <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2066	2207	
==>t".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are alw <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7322	7491	
==>);

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	623	792	
==>);

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1418	1548	
==>turn &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {

    my($v, @values);
    for @p {
      ($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5036	5236	
==>urn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5036	5236	
==>urn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5036	5236	
==>urn $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5314	5417	
==>) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5314	5417	
==>) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5314	5417	
==>) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14327	14433	
==>t prettier
        $sobj->look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	320	421	
==>ded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Sign <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	320	421	
==>ded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Sign <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	320	421	
==>ded 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Sign <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2153	2248	
==>x:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCT <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2153	2248	
==>x:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCT <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	197	299	
==><id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (< <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	197	299	
==><id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (< <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	846	934	
==>ble->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13437	13569	
==>ts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13437	13569	
==>ts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13437	13569	
==>ts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13013	13145	
==>!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13013	13145	
==>!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1040	1136	
==>e on a jib file, and a JIB::Package::Installed
on a META_OBJ.

XXX needs verification
XXX needs b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12741	12853	
==>I SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12741	12853	
==>I SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12741	12853	
==>I SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	688	789	
==>ut.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.writ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	688	789	
==>ut.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.writ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1679	1797	
==>$deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    print "\n\nTo:\n";
    pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5973	6079	
==>turn $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5785	5886	
==>turn $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capt <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36921	37018	
==>xample usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36921	37018	
==>xample usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

T <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37934	38033	
==>very tuple of each other source relation, then where each member of a
tuple pair has attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42483	42582	
==>very tuple of each other source relation, then where each member of a
tuple pair has attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42133	42232	
==>very tuple of each other source relation, then where each member of a
tuple pair has attribute names <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1418	1543	
==>LF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1418	1543	
==>LF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1418	1543	
==>LF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19216	19333	
==>]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    exp0 = exp0.p6anal <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10495	10591	
==>text) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10495	10591	
==>text) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19370	19461	
==>e
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_auth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19370	19461	
==>e
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_auth <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2684	2977	
==>); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2684	2977	
==>); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5460	5575	
==>->last_error), return;

    ### build a from => to mapping
    ### note we have to create the directories first if i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	588	749	
==>if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	588	749	
==>if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	588	749	
==>if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1179	1277	
==>ay, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1179	1277	
==>ay, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1179	1277	
==>ay, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2241	2353	
==>ur sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2241	2353	
==>ur sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2241	2353	
==>ur sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5076	5248	
==>e id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5076	5248	
==>e id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5076	5248	
==>e id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1582	1734	
==>P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1582	1734	
==>P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10524	10620	
==>re <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule RegularExpressionChar {  # see 7.8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2697	2823	
==>to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        las <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2697	2823	
==>to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        las <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2697	2823	
==>to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        las <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29287	29416	
==>tems --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29287	29416	
==>tems --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29287	29416	
==>tems --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { % <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6391	6503	
==>azy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "ca <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6391	6503	
==>azy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1695	1787	
==>p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1695	1787	
==>p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1695	1787	
==>p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5856	5965	
==>sthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5856	5965	
==>sthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5856	5965	
==>sthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6608	6723	
==>ersion' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6608	6723	
==>ersion' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6608	6723	
==>ersion' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	477	588	
==>e core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	477	588	
==>e core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	477	588	
==>e core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Ro <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	153	264	
==>s

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing p <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	153	264	
==>s

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing p <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4539	4644	
==>4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	200	317	
==>cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	200	317	
==>cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	200	317	
==>cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1676	1775	
==>ot, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1734	1833	
==>ot, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$tod <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7838	7938	
==>n "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7838	7938	
==>n "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2787	2908	
==>$new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2787	2908	
==>$new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2787	2908	
==>$new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1249	1374	
==>mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1249	1374	
==>mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1249	1374	
==>mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14334	14430	
==>I SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14334	14430	
==>I SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14334	14430	
==>I SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	670	774	
==>d stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	670	774	
==>d stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	670	774	
==>d stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4808	4921	
==>ata($_[0], '$<value>'));
   return $var.' = '.$lit.";\n";
}
sub node::sub_application_term {
    my $term1 = emit( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21203	21291	
==>nel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...}) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21203	21291	
==>nel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...}) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2730	2849	
==>eate a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Rea <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2730	2849	
==>eate a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Rea <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3127	3260	
==>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3127	3260	
==>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1485	1589	
==>Ts;

	# Blondie::Map, Blondie::Unit and Blondie::List are defined

=head1 DESCRIPTION

These ADTs are the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2501	2723	
==>n $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleop <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2808	3018	
==>n $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2808	3018	
==>n $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23651	23768	
==>o ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23651	23768	
==>o ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23651	23768	
==>o ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18173	18289	
==>ug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18173	18289	
==>ug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5763	5857	
==>JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1669	1778	
==>b JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1669	1778	
==>b JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1669	1778	
==>b JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	317	407	
==>at() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	317	407	
==>at() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14566	14680	
==>b pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14566	14680	
==>b pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2507	2607	
==>!! $x.round_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other math functions.
our boo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3434	3525	
==>s itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3434	3525	
==>s itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5631	5722	
==>s itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3424	3556	
==>am{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3424	3556	
==>am{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3424	3556	
==>am{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $para <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1998	2101	
==>add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( d <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1998	2101	
==>add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7049	7152	
==>al, use $1, \\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	232	360	
==>t(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	232	360	
==>t(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	232	360	
==>t(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2977	3092	
==>"the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2977	3092	
==>"the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2977	3092	
==>"the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4452	4568	
==>h @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4440	4556	
==>h @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16658	16751	
==>sionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <EqualityExpr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	352	479	
==>ee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	352	479	
==>ee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	352	479	
==>ee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11101	11221	
==>ng paren)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1127	1223	
==>alidator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1127	1223	
==>alidator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	370	488	
==>ile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	467	585	
==>ile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13631	13732	
==>e rest of perl.]

  The regexp engine and the perl compiler have an overly friendly
  relationship.  T <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3540	3659	
==>);
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the ac <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3540	3659	
==>);
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the ac <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1286	1374	
==>tp://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s28.v <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2525	2612	
==>E<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and avai <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2525	2612	
==>E<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and avai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2720	2898	
==>p { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                map { "$_" } @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pu <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5418	5515	
==>of success or failure;

=item err_str

The C<err_str> method returns the last error message

=back <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5418	5515	
==>of success or failure;

=item err_str

The C<err_str> method returns the last error message

=back <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4461	4569	
==>e[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4461	4569	
==>e[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gat <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	186	289	
==>:Base);

$VERSION = '0.02';

use strict;

# determine if the user needs nmake, and download it if needed <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3021	3147	
==>.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3021	3147	
==>.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3021	3147	
==>.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	417	544	
==>%vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	417	544	
==>%vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	417	544	
==>%vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18264	18356	
==>d_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<ad <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18264	18356	
==>d_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<ad <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19802	19913	
==>pad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :met <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3420	3518	
==>ot merely appended to it; appending can create precisely the sort of weak 
keying that can be explo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3420	3518	
==>ot merely appended to it; appending can create precisely the sort of weak 
keying that can be explo <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3119	3230	
==>e}         = \%totals;
    while( defined(my $line = $it->next) ) {
        $self->_analyze_line($line, \%totals <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24879	24972	
==>nklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24879	24972	
==>nklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6206	6300	
==>nt = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6206	6300	
==>nt = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6206	6300	
==>nt = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	488	579	
==>ESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	488	579	
==>ESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1072	1168	
==>), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1072	1168	
==>), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1072	1168	
==>), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2937	3044	
==>lems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2937	3044	
==>lems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2937	3044	
==>lems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4223	4336	
==>l6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4223	4336	
==>l6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4223	4336	
==>l6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1357	1458	
==>lessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1357	1458	
==>lessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1357	1458	
==>lessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3904	4004	
==>%mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3904	4004	
==>%mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3904	4004	
==>%mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1520	1635	
==>) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1520	1635	
==>) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1520	1635	
==>) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8482	8582	
==>ass','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all type <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8482	8582	
==>ass','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2971	3085	
==>cant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2971	3085	
==>cant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2971	3085	
==>cant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1245	1346	
==>th (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1245	1346	
==>th (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	927	1047	
==>o-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9240	9355	
==>eck_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9240	9355	
==>eck_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9240	9355	
==>eck_params(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2196	2354	
==>mpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7414	7518	
==>om>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7414	7518	
==>om>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11665	11764	
==>hemselves does Role since they
are just instances of Class which does Role too. So this means that a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11665	11764	
==>hemselves does Role since they
are just instances of Class which does Role too. So this means that a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11665	11764	
==>hemselves does Role since they
are just instances of Class which does Role too. So this means that a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	586	690	
==>igenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	586	690	
==>igenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	586	690	
==>igenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15469	15575	
==>tched */
  U32 lastcloseparen;     /* last paren matched */

Other things the world messes with:

  I32 ref <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13399	13498	
==>f the functions is a way
to provide a comment that refers to another file or test which must be
made <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13457	13556	
==>f the functions is a way
to provide a comment that refers to another file or test which must be
made <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	286	386	
==>e Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	286	386	
==>e Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	286	386	
==>e Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	341	458	
==>on't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	341	458	
==>on't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	341	458	
==>on't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11862	11974	
==>ach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	271	378	
==>ach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4290	4396	
==>nts = do { local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file|$dir, to => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6126	6263	
==>ed_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6319	6456	
==>ed_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	698	814	
==>'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	625	725	
==>=> [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	625	725	
==>=> [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	625	725	
==>=> [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4633	4729	
==>return> clause.

=head2 ""

When used as a string, the match object returns the stringified versi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4633	4729	
==>return> clause.

=head2 ""

When used as a string, the match object returns the stringified versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8229	8381	
==>se {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8229	8381	
==>se {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8229	8381	
==>se {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7027	7146	
==>E
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7027	7146	
==>E
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7027	7146	
==>E
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2145	2278	
==>);
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if($@) {
        chomp($@);
        error(qq[Could not d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1607	1703	
==>headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1607	1703	
==>headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	165	271	
==>eck           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 METHOD <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	697	799	
==>return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	697	799	
==>return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6463	6592	
==>emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6463	6592	
==>emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4419	4511	
==>6_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3340	3439	
==>:canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3340	3439	
==>:canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3340	3439	
==>:canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17379	17537	
==>flen) {
        # optional non-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            l <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7654	7773	
==>= _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7654	7773	
==>= _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10341	10436	
==>$sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STD <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10341	10436	
==>$sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STD <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10341	10436	
==>$sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1298	1528	
==>LF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1298	1528	
==>LF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1298	1528	
==>LF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1560	1676	
==>)};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1700	1816	
==>)};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15598	15697	
==>ample, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1411	1544	
==>_[0];\n" .
        "    \$_[0] = '' unless defined \$_[0];\n" .
        #"    print 'GRAMMAR: \$grammar', \"\\n\";\n" .
        "    p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1073	1177	
==>eturn if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_w <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1073	1177	
==>eturn if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36520	36620	
==>s inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41069	41169	
==>s inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40683	40783	
==>s inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned R <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	698	850	
==>{
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catf <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	698	850	
==>{
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catf <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5479	5596	
==>tribute new (@:superclasses))    (list)
     (attribute new (%:private_methods)) (hash)
     (attribute new (%:attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12407	12538	
==>->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12407	12538	
==>->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12407	12538	
==>->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$. <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2773	2895	
==>x_round;
    state $round_up = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        w <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1580	1678	
==>=~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1580	1678	
==>=~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22628	22723	
==>lso handle
this.

A program generates a Message that contains all possibly useful details, so
th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22628	22723	
==>lso handle
this.

A program generates a Message that contains all possibly useful details, so
th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1985	2101	
==>r hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1985	2101	
==>r hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1985	2101	
==>r hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5464	5587	
==><"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Bind( $to, $f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6619	6713	
==>O

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Fu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6619	6713	
==>O

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Fu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8260	8379	
==>er( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8260	8379	
==>er( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1496	1595	
==>exes

=head1 DESCRIPTION

This module provides a Perl interface for pluggable regular expression
eng <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1526	1637	
==>rt, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1526	1637	
==>rt, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all b <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19901	20002	
==>utfile->print($sobj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
sub in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16889	16985	
==>rnals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16889	16985	
==>rnals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16889	16985	
==>rnals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4354	4506	
==>)->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1911	2015	
==>ndBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1911	2015	
==>ndBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	369	501	
==>on () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	369	501	
==>on () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	369	501	
==>on () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40048	40309	
==>rams' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    bl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19597	19849	
==>rams' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4446	4549	
==>.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4293	4394	
==>.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5227	5338	
==>::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5227	5338	
==>::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5227	5338	
==>::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2518	2758	
==>n {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2765	3005	
==>n {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1731	1831	
==>ch will turn on per iteration printing
    
If you omit the fprime, a second order centered differenc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16536	16632	
==>e list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16536	16632	
==>e list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Return <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20897	20988	
==>nternals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::requi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8289	8452	
==>turn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8289	8452	
==>turn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3232	3349	
==>");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	233	374	
==>,
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	233	374	
==>,
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	233	374	
==>,
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	315	414	
==>->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	315	414	
==>->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	315	414	
==>->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1065	1189	
==>f $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1270	1394	
==>f $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13877	13985	
==>source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17354	17462	
==>source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16734	16842	
==>source relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2490	2625	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2490	2625	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2490	2625	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	308	399	
==>d run_bytecode(Parrot_Interp i,char *bcfile) {
    Parrot_PackFile pf = Parrot_readbc(i,bcfi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7291	7380	
==>::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1116	1205	
==>::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3097	3220	
==>cent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3097	3220	
==>cent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1541	1664	
==>l_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1541	1664	
==>l_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1541	1664	
==>l_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34694	34792	
==>urns a new Relation that has the
same heading as the invocant and whose body contains all of the tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39244	39342	
==>urns a new Relation that has the
same heading as the invocant and whose body contains all of the tu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13101	13200	
==>Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13101	13200	
==>Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13101	13200	
==>Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PS <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7752	7850	
==>thing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's in <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7752	7850	
==>thing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7943	8100	
==>LASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7943	8100	
==>LASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7943	8100	
==>LASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2152	2280	
==>er;

{
    my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op( {
        name => '+', <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4428	4523	
==>ew('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `ye <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4428	4523	
==>ew('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `ye <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20212	20343	
==>data type is proposed to be
generally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24764	24895	
==>data type is proposed to be
generally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	425	538	
==>eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	425	538	
==>eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	425	538	
==>eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17169	17311	
==>$method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17169	17311	
==>$method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17169	17311	
==>$method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2264	2388	
==>rl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2264	2388	
==>rl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2264	2388	
==>rl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4766	4874	
==>my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4766	4874	
==>my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4766	4874	
==>my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3238	3340	
==>L2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3238	3340	
==>L2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3238	3340	
==>L2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3230	3346	
==>=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3230	3346	
==>=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5427	5543	
==>=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Bu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5665	5771	
==>or {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $sel <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5665	5771	
==>or {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18344	18439	
==>nges from being display if they are included in an embedded
class, set the I<anyof> object's C<s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18650	18785	
==>hich 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18650	18785	
==>hich 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18650	18785	
==>hich 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchab <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11752	11837	
==>_octidecimal_escape_sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5344	5451	
==>IL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unkno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5344	5451	
==>IL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unkno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5344	5451	
==>IL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unkno <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21726	21820	
==>ee 12.8
      <'break'><no_LineTerminator_here><Identifier>? <';'>
}
rule ReturnStatement :word <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20278	20385	
==>::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20278	20385	
==>::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20278	20385	
==>::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimetho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2484	2599	
==>"infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2484	2599	
==>"infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2484	2599	
==>"infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1813	1931	
==>ckage Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub- <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4080	4162	
==>//linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodCont <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4080	4162	
==>//linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodCont <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14554	14643	
==>e_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14554	14643	
==>e_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1846	1935	
==>current') || 1);
push(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    if $ENV{PUGS_S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3365	3482	
==>::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1723	1840	
==>::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = ge <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2503	2620	
==>::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = ge <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1984	2168	
==>e::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1984	2168	
==>e::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10024	10143	
==>$max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down into quant below <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6980	7078	
==>thority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6980	7078	
==>thority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6980	7078	
==>thority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:author <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3665	3851	
==>e archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### ex <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7962	8055	
==>nnels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delet <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7962	8055	
==>nnels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4570	4672	
==>age PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4570	4672	
==>age PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4570	4672	
==>age PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4252	4346	
==>0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4252	4346	
==>0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3604	3723	
==>hese are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3604	3723	
==>hese are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3604	3723	
==>hese are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13133	13292	
==>] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13133	13292	
==>] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13133	13292	
==>] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'ne <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36468	36565	
==>nce in which any two source relations are
combined is inconsequential.  A trivial case is where C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41017	41114	
==>nce in which any two source relations are
combined is inconsequential.  A trivial case is where C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40631	40728	
==>nce in which any two source relations are
combined is inconsequential.  A trivial case is where C< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2180	2370	
==>];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2180	2370	
==>];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10603	10718	
==>>param("file" => $file);
  my $output = ""; 
  
  while (my $rest = <$infile>) {
    chomp $rest;
    $output .= "<a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8455	8559	
==>::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXEC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8455	8559	
==>::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXEC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8455	8559	
==>::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXEC <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4608	4789	
==>ktracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4608	4789	
==>ktracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2526	2637	
==>er types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2526	2637	
==>er types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2526	2637	
==>er types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2027	2112	
==>ss->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2027	2112	
==>ss->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2027	2112	
==>ss->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23491	23604	
==>}, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) conditi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19912	20025	
==>}, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) conditi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15547	15639	
==>port the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15547	15639	
==>port the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1471	1580	
==>@header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_cas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1471	1580	
==>@header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_cas <==
3	/Users/nnunley/pugs/util/testgraph.pl	1849	1965	
==>= shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec->catdir( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	697	820	
==>version for an implementation
and tests.

- Quantified matches could use less stack space.

- Simplify arg list - the f <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4929	5032	
==>pan, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.rec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4929	5032	
==>pan, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1286	1389	
==>(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1286	1389	
==>(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1286	1389	
==>(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < St <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	473	570	
==><$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	473	570	
==><$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20083	20178	
==>) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20083	20178	
==>) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20083	20178	
==>) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5896	6015	
==>ew_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5896	6015	
==>ew_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5896	6015	
==>ew_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	74	184	
==>ss, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	74	184	
==>ss, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	74	184	
==>ss, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13109	13208	
==>text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13109	13208	
==>text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13109	13208	
==>text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4189	4300	
==>_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4189	4300	
==>_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4189	4300	
==>_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	121	235	
==>perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	121	235	
==>perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	121	235	
==>perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3805	3933	
==>)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3805	3933	
==>)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking s <==
3	/Users/nnunley/pugs/util/func_refact.pl	208	301	
==>me containing nodes data produced by --nodes
of graphfuncs.pl. Will print initial set sizes fo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22733	22851	
==>b(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3427	3535	
==>keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3427	3535	
==>keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4105	4246	
==>ruct( struct => $_ ) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( "Could not load availabl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3173	3283	
==>ly_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3173	3283	
==>ly_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33128	33217	
==><symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37678	37767	
==><symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3990	4079	
==>r::Perl6"

Please see L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6602	6717	
==>e(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6602	6717	
==>e(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2684	2813	
==>ame),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2684	2813	
==>ame),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2684	2813	
==>ame),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : spr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38844	38940	
==>enDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43658	43754	
==>enDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43192	43288	
==>enDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8858	9122	
==>ings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8858	9122	
==>ings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8858	9122	
==>ings( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14999	15170	
==>->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14999	15170	
==>->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14999	15170	
==>->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @li <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2641	2740	
==>)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	232	348	
==>s5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	232	348	
==>s5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	232	348	
==>s5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	915	1038	
==>it {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self->{omit};
  }

  sub insert {
    my ($self, $tree) = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8169	8258	
==>atements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1994	2083	
==>atements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4385	4491	
==>pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4385	4491	
==>pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4385	4491	
==>pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr <<EO <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7651	7796	
==>alar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20498	20597	
==>ve, and lets you arrange the list in order of preference.  When you
open a program, it will search f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20498	20597	
==>ve, and lets you arrange the list in order of preference.  When you
open a program, it will search f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14713	14932	
==>y++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14713	14932	
==>y++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14713	14932	
==>y++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16598	16707	
==>0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} = '';
    $self- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22345	22437	
==>ins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22345	22437	
==>ins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	752	906	
==>];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	752	906	
==>];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9022	9148	
==>ame});
    my $digest = $stub->digest;

    Prim->new(
        equals => $digest,
        body => $params->{body},
        arit <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	0	104	
==>module FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $Rea <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	0	104	
==>module FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $Rea <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8514	8635	
==>e} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8514	8635	
==>e} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$n <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21909	22013	
==>als::compile_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enable this when Parse-YAML support <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3727	3812	
==>N"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://ww <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3727	3812	
==>N"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://ww <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3727	3812	
==>N"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://ww <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6107	6215	
==>BNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6107	6215	
==>BNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6107	6215	
==>BNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	230	377	
==>g -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$base)
            returns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6937	7031	
==>('header', $size)>

This event is fired once the '=head(n)' directive is reached. This does not <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6937	7031	
==>('header', $size)>

This event is fired once the '=head(n)' directive is reached. This does not <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22031	22255	
==>NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # speculative syntax here :)
    unbox($self).id
}

(method id ((opaque <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	636	789	
==>bstr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	612	757	
==>bstr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27685	27785	
==>H_TAINTED_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1889	1982	
==>inary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_layout($$) }

type::oper <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20880	20965	
==>ject__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=item Cleaner Grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2219	2311	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2219	2311	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2219	2311	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	891	1001	
==>%modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	891	1001	
==>%modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	891	1001	
==>%modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3970	4075	
==>current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DIS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3970	4075	
==>current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DIS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3970	4075	
==>current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10028	10178	
==>$slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10028	10178	
==>$slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10028	10178	
==>$slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26805	26938	
==>my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '? <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3022	3113	
==>'$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{pr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5224	5315	
==>'$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{pr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8687	8801	
==>esult = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17645	17741	
==>l
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17645	17741	
==>l
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or i <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7077	7182	
==>print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under taint, but open -| is unportabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17128	17227	
==>yModule.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17128	17227	
==>yModule.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14947	15074	
==>ode" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14947	15074	
==>ode" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14947	15074	
==>ode" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18082	18181	
==>od returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18082	18181	
==>od returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5917	6011	
==>SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5917	6011	
==>SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2816	2910	
==>SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5642	5754	
==>->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3023	3123	
==>Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3023	3123	
==>Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2152	2270	
==>ery.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2152	2270	
==>ery.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` ( <==
3	/Users/nnunley/pugs/util/config_h.pl	1313	1423	
==>([| return () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24616	24709	
==>(L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later versi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24616	24709	
==>(L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later versi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3678	3791	
==>hift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ( <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3678	3791	
==>hift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	1	113	
==>=Hyper-Operatoren
@x = @a >>+<< @b;    # elementweise Addition
@a>>--;              # alle Elemente decrementiere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5773	5959	
==>Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5773	5959	
==>Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5773	5959	
==>Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8503	8682	
==>$method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8503	8682	
==>$method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8503	8682	
==>$method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4816	4913	
==>something
of the original name. So if you had an object blessed into "MyClass",
it will now be ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4816	4913	
==>something
of the original name. So if you had an object blessed into "MyClass",
it will now be ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4816	4913	
==>something
of the original name. So if you had an object blessed into "MyClass",
it will now be ble <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4582	4703	
==>pass = 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	117	215	
==>ue, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<e <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	117	215	
==>ue, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4073	4235	
==>rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4073	4235	
==>rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4073	4235	
==>rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4439	4571	
==>{ $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4439	4571	
==>{ $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4439	4571	
==>{ $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->el <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1629	1755	
==>ne     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1629	1755	
==>ne     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1709	1835	
==>ne     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2112	2255	
==>Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2112	2255	
==>Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2112	2255	
==>Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10761	10976	
==>s};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@class <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10761	10976	
==>s};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@class <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17774	17929	
==>t,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23026	23129	
==>values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27578	27681	
==>values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26355	26458	
==>values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5741	5835	
==>d2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5542	5632	
==>d2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8900	9117	
==>f->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8900	9117	
==>f->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8900	9117	
==>f->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5943	6056	
==>+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5943	6056	
==>+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5943	6056	
==>+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6439	6551	
==>" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6439	6551	
==>" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6439	6551	
==>" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7749	7878	
==>le_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7749	7878	
==>le_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'nam <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15944	16044	
==>se only" is one of the most widely used. ;)
Zero seems safe.  But more nuanced treatment will be need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	701	813	
==>pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	701	813	
==>pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	701	813	
==>pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1772	1889	
==>(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1772	1889	
==>(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1772	1889	
==>(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3371	3510	
==>) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3371	3510	
==>) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3371	3510	
==>) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28467	28647	
==>{
                my $e = shift;
                # if it is empty ... 
                $e->get('$self:')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_em <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	204	306	
==>sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [< <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	204	306	
==>sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [< <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	81	207	
==>conf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### X <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9291	9382	
==>ual($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9291	9382	
==>ual($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1160	1258	
==>o close to the main namespace for your tastes, and
you want to rebless everything down to your proj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1160	1258	
==>o close to the main namespace for your tastes, and
you want to rebless everything down to your proj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1160	1258	
==>o close to the main namespace for your tastes, and
you want to rebless everything down to your proj <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2222	2388	
==>{
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<en <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2222	2388	
==>{
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20667	20773	
==>_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20667	20773	
==>_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20667	20773	
==>_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8774	8878	
==>($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8774	8878	
==>($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8774	8878	
==>($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13060	13202	
==>el and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13060	13202	
==>el and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13060	13202	
==>el and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	535	636	
==>SE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	191	292	
==>se method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	183	282	
==>se method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1620	1725	
==>name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2268	2373	
==>name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4286	4423	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4286	4423	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4286	4423	
==>eturn $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	939	1037	
==>pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	939	1037	
==>pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	939	1037	
==>pick remove the element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3683	3795	
==>ass]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3867	3979	
==>ass]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match var <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12791	12889	
==>or ="some_file"
# I'm not sure where this is specced, but when I migrated &prefix:<=> from
# meanin <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20340	20452	
==>umber (Int $radix, Str $string --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15442	15542	
==>n is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15442	15542	
==>n is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3696	3824	
==>r($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3696	3824	
==>r($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3696	3824	
==>r($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	866	981	
==>.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	866	981	
==>.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	946	1061	
==>.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4481	4595	
==>iff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4481	4595	
==>iff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 ) <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	916	1016	
==>eturn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @arra <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	916	1016	
==>eturn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8382	8486	
==>t' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8382	8486	
==>t' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8382	8486	
==>t' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6622	6737	
==>ion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6622	6737	
==>ion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6622	6737	
==>ion (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9750	9868	
==>se|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9750	9868	
==>se|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15997	16101	
==>v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15997	16101	
==>v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15997	16101	
==>v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6139	6340	
==>{ return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14825	14919	
==>header field
values will be substituted with this line ending sequence.

=back

=head1 CONVENIE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14825	14919	
==>header field
values will be substituted with this line ending sequence.

=back

=head1 CONVENIE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9621	9802	
==>:Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9621	9802	
==>:Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9621	9802	
==>:Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $cl <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10185	10274	
==>tp://svn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1107	1200	
==>------------------------------------------------
## Roles

# Questions on Role methods sent to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1107	1200	
==>------------------------------------------------
## Roles

# Questions on Role methods sent to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1107	1200	
==>------------------------------------------------
## Roles

# Questions on Role methods sent to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9223	9375	
==>test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1347	1491	
==>test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1347	1491	
==>test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11864	12005	
==>ecl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12143	12284	
==>ecl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         rule <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8484	8618	
==>");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'};
    my $ov = %mods{'ov'} || %mods{'overl <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1372	1475	
==>TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object represent <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1372	1475	
==>TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object represent <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7771	7880	
==>zy ) 
{
    List::map $expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
# Pr <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	713	812	
==>iption );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilre <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	713	812	
==>iption );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4969	5087	
==>k precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4969	5087	
==>k precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4969	5087	
==>k precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1388	1495	
==>>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1388	1495	
==>>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1388	1495	
==>>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVa <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	222	337	
==>AM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Real <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	222	337	
==>AM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Real <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1244	1352	
==>> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1244	1352	
==>> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1244	1352	
==>> \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6prelud <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1863	2013	
==>{
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1863	2013	
==>{
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is n <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2941	3085	
==>if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22471	22713	
==>sa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22471	22713	
==>sa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22471	22713	
==>sa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CEL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4215	4324	
==>{ compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4215	4324	
==>{ compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4215	4324	
==>{ compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30619	30800	
==>diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30619	30800	
==>diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30619	30800	
==>diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4206	4309	
==>har_comp => "\n", '\N') if $cc;
    return $S->object(exact_comp => "\n", '\N');
  });

  $self->add_han <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	982	1075	
==>OT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	982	1075	
==>OT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4411	4513	
==>S'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLH <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4411	4513	
==>S'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLH <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4411	4513	
==>S'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLH <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	350	469	
==>5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	350	469	
==>5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	8	103	
==>in/perl

use Runtime::RuleCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4683	4794	
==>ons may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4683	4794	
==>ons may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4683	4794	
==>ons may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-bas <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5411	5676	
==>,
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8888	9153	
==>,
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23799	23925	
==>urn { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24078	24204	
==>urn { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2007	2101	
==>$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@{$_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34027	34135	
==>but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38577	38685	
==>but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38038	38146	
==>but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an identical header to the in <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11793	11887	
==>tities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11793	11887	
==>tities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	438	537	
==>am,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	399	498	
==>am,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	399	498	
==>am,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3314	3423	
==>gs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3314	3423	
==>gs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3314	3423	
==>gs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3169	3499	
==>urn;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3169	3499	
==>urn;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5213	5312	
==>ref . "::__object__" if $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_ <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1438	1539	
==>hdir($testdir);
END {
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (ope <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2896	2992	
==>on of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2896	2992	
==>on of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	159	252	
==>c->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	159	252	
==>c->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	159	252	
==>c->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10576	10706	
==>$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10576	10706	
==>$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10576	10706	
==>$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8011	8154	
==>f(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8011	8154	
==>f(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8011	8154	
==>f(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = othe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18917	19012	
==>have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is on <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18917	19012	
==>have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is on <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5984	6078	
==>rray: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12663	12763	
==>t 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12663	12763	
==>t 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12663	12763	
==>t 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6054	6177	
==>d;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6054	6177	
==>d;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_op <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2704	2804	
==>ethod { CORE::shift(@{(shift)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	252	360	
==>grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following we <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	263	371	
==>grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5371	5470	
==>o $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metaclass m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13101	13204	
==>_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13101	13204	
==>_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13101	13204	
==>_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8391	8501	
==>\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::Nod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2935	3028	
==>returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2935	3028	
==>returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33035	33246	
==>6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33035	33246	
==>6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33035	33246	
==>6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3932	4042	
==>= $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method int <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3932	4042	
==>= $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method int <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2328	2431	
==>ve heuristic. So die if incorrect.
    $path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	548	692	
==>(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	583	727	
==>(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	548	692	
==>(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2314	2418	
==>ect { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_op <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2314	2418	
==>ect { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_op <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2753	2851	
==>ocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13690	13911	
==>) ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13690	13911	
==>) ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13690	13911	
==>) ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14278	14427	
==>etched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14278	14427	
==>etched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3313	3424	
==>og(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3313	3424	
==>og(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3313	3424	
==>og(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9522	9644	
==>t) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9522	9644	
==>t) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1584	1690	
==>oward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a.round_down <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	373	470	
==>$input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	373	470	
==>$input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	914	1034	
==>my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	914	1034	
==>my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	914	1034	
==>my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = P <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13008	13109	
==>`

These functions both take blocks of code, run the code, and test whether they live or die.

=== A N <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13066	13167	
==>`

These functions both take blocks of code, run the code, and test whether they live or die.

=== A N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5574	5694	
==>rFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5574	5694	
==>rFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5574	5694	
==>rFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5320	5409	
==>PYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5320	5409	
==>PYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENT <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4518	4637	
==>kage_to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1740	1837	
==>et $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1740	1837	
==>et $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $tw <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20428	20535	
==>d no files, collapse
    for my $subdir (keys %{$dir_index->{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1556	1652	
==>new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1556	1652	
==>new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1556	1652	
==>new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11771	11887	
==>'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4414	4530	
==>'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17239	17367	
==>t, *@args) is primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    whi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12204	12313	
==>dle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12204	12313	
==>dle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	104	349	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packag <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	104	349	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17497	17628	
==>ed $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17497	17628	
==>ed $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17497	17628	
==>ed $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispat <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2211	2357	
==>ue;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2211	2357	
==>ue;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bo <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3160	3262	
==>ata::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    ** <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1098	1191	
==>timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1098	1191	
==>timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1098	1191	
==>timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6014	6147	
==>ms == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6014	6147	
==>ms == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6014	6147	
==>ms == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32427	32522	
==>ader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36977	37072	
==>ader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36267	36362	
==>ader to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	558	671	
==>itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$Fin <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	558	671	
==>itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$Fin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3803	3904	
==>pl, \%args) or error(Params::Check->last_error), return;

    if (-e $self->pool->file(file($pkg->file <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2688	2795	
==>le('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2872	2979	
==>le('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6341	6455	
==>es %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $sourc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6353	6467	
==>es %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $sourc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12402	12511	
==>les.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shor <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7009	7158	
==>value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7009	7158	
==>value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9351	9488	
==>' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2855	2986	
==>b { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2855	2986	
==>b { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2855	2986	
==>b { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9007	9104	
==>opy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9007	9104	
==>opy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9007	9104	
==>opy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30247	30345	
==>r its type.

=item my $v = $obj->visual()

The visual representation of this object.  It includes t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14007	14097	
==>loned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14007	14097	
==>loned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	213	328	
==>);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	213	328	
==>);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	213	328	
==>);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + impo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14841	14949	
==>ass => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	743	848	
==>dy . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	743	848	
==>dy . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7021	7128	
==>cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2299	2399	
==>:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2299	2399	
==>:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3521	3680	
==>turn;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3383	3533	
==>turn;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4110	4224	
==>:Bin);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
        delete $args{prefix};
    }

    return $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1531	1638	
==>le => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    rule named_captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1531	1634	
==>le => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_captur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6163	6254	
==>elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4022	4135	
==>c?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $ma <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4080	4193	
==>c?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15454	15552	
==>eturns the definition of success (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4690	4831	
==>{
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4678	4819	
==>{
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5933	6035	
==>'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $<fix> := (infix|prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5621	5723	
==>ings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5621	5723	
==>ings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5621	5723	
==>ings, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3082	3186	
==>(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3082	3186	
==>(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3082	3186	
==>(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5539	5669	
==>role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5539	5669	
==>role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5539	5669	
==>role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15071	15205	
==>);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15071	15205	
==>);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15071	15205	
==>);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == - <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7290	7395	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10767	10872	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9904	10009	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4496	4590	
==>p {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4496	4590	
==>p {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4496	4590	
==>p {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo' <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1017	1111	
==>y[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1017	1111	
==>y[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32406	32498	
==>ing
wrapped, or any C<$mapping> value set members do not match invocant
Relation::Example att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2348	2435	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2348	2435	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2348	2435	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_met <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8123	8254	
==>w(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       mark <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8123	8254	
==>w(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       mark <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3223	3340	
==>uild_exclude_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	285	407	
==>.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	285	407	
==>.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	974	1119	
==>ocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name          => substr($param->{var}, 1) });

	if <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2403	2529	
==>(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2403	2529	
==>(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	107	211	
==>s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	107	211	
==>s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	107	211	
==>s were needed to emulate Perl's
# "the return value of a sub is the value of the last expression evaluate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3115	3226	
==>hem all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3115	3226	
==>hem all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3115	3226	
==>hem all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied array @b <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3986	4123	
==>L_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3986	4123	
==>L_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	836	973	
==>L_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1259	1361	
==>mpared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1259	1361	
==>mpared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48321	48409	
==>--------------------------------------------------------
## add Module

$::Module = $::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	513	631	
==>eferencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	513	631	
==>eferencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	513	631	
==>eferencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8122	8246	
==>}++;

        $Strap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_co <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1389	1478	
==>.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microso <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1229	1318	
==>.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microso <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1541	1681	
==>tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}(\s+)(.*)$/s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	411	544	
==>se Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	395	522	
==>se Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16471	16567	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16471	16567	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16471	16567	
==>ue_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32221	32319	
==>appear only once in
the result.  With any 2 relations, the result is the same regardless of
which i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36771	36869	
==>appear only once in
the result.  With any 2 relations, the result is the same regardless of
which i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36061	36159	
==>appear only once in
the result.  With any 2 relations, the result is the same regardless of
which i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6437	6546	
==>( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6437	6546	
==>( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6437	6546	
==>( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1040	1142	
==>rnation { <conjunction> | <non_conjunction> }

rule conjunction     { <non_conjunction> \& <non_alterna <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11322	11416	
==>ns all elements both from this recurrence and from the given recurrence.

- `intersection( $rec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11322	11416	
==>ns all elements both from this recurrence and from the given recurrence.

- `intersection( $rec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4754	4895	
==><1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4766	4907	
==><1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39303	39409	
==>aracter Classes

Character classes are not returned all at once, but piece by piece.
Because range checking <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	319	414	
==>M tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	319	414	
==>M tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5381	5567	
==>dy, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*pus <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5381	5567	
==>dy, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*pus <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	628	739	
==>$str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1333	1433	
==>ame, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1333	1433	
==>ame, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1333	1433	
==>ame, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3089	3185	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3089	3185	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3436	3532	
==>r the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

packa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17202	17301	
==>.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17202	17301	
==>.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the star <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6254	6401	
==>$cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6767	6914	
==>$cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s . <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1965	2063	
==>arams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulati <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1965	2063	
==>arams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulati <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13570	13665	
==>ponds exactly to the named parameters of
Document.new(); you can produce a direct clone like thi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13570	13665	
==>ponds exactly to the named parameters of
Document.new(); you can produce a direct clone like thi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	100	190	
==>se JIB::Config;

use JIB::Package::Source;
use JIB::Package::Binary;
use JIB::Package::Inst <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8565	8771	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8565	8771	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        ) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10734	10831	
==>e::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16139	16279	
==>] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16139	16279	
==>] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16139	16279	
==>] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28407	28497	
==>g-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32959	33049	
==>g-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32087	32177	
==>g-valued attributes.  The
argument C<$mapping> says which attributes are being combined/wra <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1107	1209	
==>se to continue for a while on
# Regexp::Parser.  But it's not worth working to finish.  So, we
# bootst <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1083	1173	
==>iler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1083	1173	
==>iler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9688	9783	
==>$str);
print STDERR "(",join(", ",map{defined($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3042	3130	
==>echook_hook\n");
    fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4137	4230	
==>ou give a name to it so that you can refer to it
    #   > inside, but that name i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4137	4230	
==>ou give a name to it so that you can refer to it
    #   > inside, but that name i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4137	4230	
==>ou give a name to it so that you can refer to it
    #   > inside, but that name i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1363	1557	
==>last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1363	1557	
==>last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1363	1557	
==>last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4331	4437	
==>is = join "", map $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = j <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2019	2118	
==>);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2019	2118	
==>);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31183	31333	
==>hift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31183	31333	
==>hift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31183	31333	
==>hift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1204	1333	
==>bj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1204	1333	
==>bj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1204	1333	
==>bj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	470	568	
==>ulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	470	568	
==>ulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	470	568	
==>ulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	421	554	
==>($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	421	554	
==>($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	421	554	
==>($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1067	1246	
==>mp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1067	1246	
==>mp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1067	1246	
==>mp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Per <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24860	24954	
==>oo many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<Ne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24860	24954	
==>oo many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<Ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11968	12161	
==>@{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11968	12161	
==>@{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11968	12161	
==>@{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13891	14033	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13891	14033	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13891	14033	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15335	15466	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15335	15466	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15335	15466	
==>methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6924	7065	
==>n we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6924	7065	
==>n we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6924	7065	
==>n we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1724	1824	
==>rly
# phase development.  There's a "return" halfway down the file to cut
# off construction.  Oh wel <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14517	14607	
==>ities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This rou <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14517	14607	
==>ities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This rou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10229	10399	
==>nt>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6570	6740	
==>nt>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7419	7589	
==>nt>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8444	8561	
==>.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    }
    if( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	471	579	
==>ted = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	529	637	
==>ted = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8610	8729	
==>call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8610	8729	
==>call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4116	4233	
==>ned $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4116	4233	
==>ned $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4116	4233	
==>ned $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11535	11668	
==>_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11529	11662	
==>_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2057	2224	
==>s
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tm <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2057	2224	
==>s
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tm <==
3	/Users/nnunley/pugs/util/package-osx.pl	8365	8467	
==>ocal/man/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9655	9754	
==>);

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facilit <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9713	9812	
==>);

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facilit <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5125	5222	
==>l-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5095	5212	
==>( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5095	5212	
==>( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5095	5212	
==>( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31994	32090	
==>ognized").  If
you want to throw your own error, see L</"ERROR HANDLING">.

=back

=head2 Walking <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10790	10882	
==>ent_type returns Str>

=item B<content_length returns Str>

=back

B<The following informatio <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10790	10882	
==>ent_type returns Str>

=item B<content_length returns Str>

=back

B<The following informatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1731	1833	
==>ined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1731	1833	
==>ined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1731	1833	
==>ined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3063	3161	
==>$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date ( <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3063	3161	
==>$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	741	856	
==>b __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	741	856	
==>b __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	741	856	
==>b __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class { <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8459	8552	
==>s is interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event is f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8459	8552	
==>s is interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	805	925	
==>die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	805	925	
==>die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	805	925	
==>die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2948	3054	
==>$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2948	3054	
==>$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2948	3054	
==>$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methnam <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1799	1893	
==>nfinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1799	1893	
==>nfinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) retur <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	181	292	
==>sionLiteral has been added to Literal.
#     Since we dont have a separate tokenizer.
#   * <SourceCharacter> re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3524	3627	
==>t load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3524	3627	
==>t load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3494	3622	
==>rs;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3494	3622	
==>rs;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3494	3622	
==>rs;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	779	886	
==>Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case the result is an AST
    
    p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32662	32755	
==>ssage strings, using data from external Template modules as a template.
The Translator class a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32662	32755	
==>ssage strings, using data from external Template modules as a template.
The Translator class a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	263	365	
==>ed this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Ar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1234	1332	
==>tanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
con <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1234	1332	
==>tanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8659	8768	
==>>new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8659	8768	
==>>new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8659	8768	
==>>new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21405	21512	
==>xp
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray
    pad["cutnum"] = cut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19833	19931	
==>entication Scheme".  In array context it will return two
values; the user name and the password.  I <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19833	19931	
==>entication Scheme".  In array context it will return two
values; the user name and the password.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7328	7427	
==>le  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7328	7427	
==>le  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7328	7427	
==>le  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13998	14124	
==>store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13998	14124	
==>store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13998	14124	
==>store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2990	3106	
==>oadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3454	3570	
==>oadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25513	25613	
==>ernCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEsc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33867	33962	
==>h that each says what
language they prefer to communicate in, and what their backup choices are, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33867	33962	
==>h that each says what
language they prefer to communicate in, and what their backup choices are, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14007	14150	
==>ch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $prox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14007	14150	
==>ch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $prox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14007	14150	
==>ch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $prox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1849	2018	
==>reVal' => sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_exten <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12405	12524	
==>> $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12405	12524	
==>> $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	86	198	
==>unction (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	86	198	
==>unction (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	86	198	
==>unction (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1296	1425	
==>l eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1501	1630	
==>l eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1562	1691	
==>l eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9463	9581	
==>ems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9463	9581	
==>ems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9463	9581	
==>ems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3563	3662	
==>bel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3563	3662	
==>bel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3563	3662	
==>bel}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	294	398	
==>s $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	294	398	
==>s $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	294	398	
==>s $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9970	10155	
==>ted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{pro <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11447	11632	
==>ted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{pro <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13959	14056	
==>hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent orde <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	850	982	
==>@args);
    
    my $class = $inv->class;
    
    # gather all the classes to look through
    my @classes = ($class);
    
    #war <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2621	2719	
==>.

=back

=head1 API METHODS

These methods must be implemented by subclasses... though a default
i <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2621	2719	
==>.

=back

=head1 API METHODS

These methods must be implemented by subclasses... though a default
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	11	112	
==>rl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	11	112	
==>rl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	11	112	
==>rl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7504	7628	
==>sh(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7504	7628	
==>sh(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7504	7628	
==>sh(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8796	8900	
==>t' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5867	5968	
==>e::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Cre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5867	5968	
==>e::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13921	14087	
==>the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13921	14087	
==>the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13921	14087	
==>the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4925	5042	
==>dren one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10),
        Val("mo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5034	5131	
==>$description = '' )>

Records that a test has passed or failed, depending on the value of C<$passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5034	5131	
==>$description = '' )>

Records that a test has passed or failed, depending on the value of C<$passe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6558	6655	
==>$description = '' )>

Records that a test has passed or failed, depending on the value of C<$passe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7115	7252	
==>finite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7115	7252	
==>finite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7115	7252	
==>finite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	851	958	
==>e ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our loca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	851	958	
==>e ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our loca <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1892	1998	
==>standard output for the expected strings
in TAP format.

The F<prove> utility is a thin wrapper around Test <==
3	/Users/nnunley/pugs/util/package-osx.pl	7836	7928	
==>r/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/Perl6::Spec::Operator.3p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	718	845	
==>atch => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	729	856	
==>atch => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1017	1136	
==>fn 2> $pilfn.err";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3628	3728	
==>n objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3628	3728	
==>n objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3628	3728	
==>n objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6204	6316	
==>turn $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object repr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6204	6316	
==>turn $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object repr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	419	509	
==>ut

class JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::Intern <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1698	1822	
==>$str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Docume <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1698	1822	
==>$str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Docume <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8566	8675	
==>initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    ) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22885	23005	
==>$list_len - 1) . "\n"
              . '{ $Curtest->{name}, $Curtest->{estat},'
              . '  $Curtest->{wstat}, $Cur <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5573	5664	
==>Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stev <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5573	5664	
==>Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1601	1734	
==>s[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1601	1734	
==>s[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1601	1734	
==>s[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12649	12742	
==>@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12649	12742	
==>@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12649	12742	
==>@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1549	1722	
==>v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1549	1722	
==>v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m: <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	958	1054	
==>nstallman3dir     => $Config{installman3dir},
        installsiteman1dir => $Config{installsitema <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	696	812	
==>", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	696	812	
==>", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	696	812	
==>", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	884	1038	
==>, $_-1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23404	23498	
==>ere "Relation" is a Role rather than a Class, and some
implementations are immutable rather tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27956	28050	
==>ere "Relation" is a Role rather than a Class, and some
implementations are immutable rather tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9853	10015	
==>,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1932	2072	
==>,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $se <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1932	2072	
==>,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1973	2111	
==>self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1973	2111	
==>self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1973	2111	
==>self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3087	3216	
==>osure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3271	3400	
==>osure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be us <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13308	13413	
==>rd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the following co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7712	7832	
==>h really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7712	7832	
==>h really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7712	7832	
==>h really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3364	3462	
==>t, '... got the right class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1146	1243	
==>t and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succe <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1146	1243	
==>t and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succe <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	146	254	
==>ODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhea <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	146	254	
==>ODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7739	7844	
==>me;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7739	7844	
==>me;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7739	7844	
==>me;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} an <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2270	2382	
==>k_accessors(qw/runtime/) }

	sub annotate {
		my $self = shift;
		my $runtime = shift;
		my $prog = shift;
		
		$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13268	13363	
==>o knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:dep <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13326	13421	
==>o knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:dep <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	285	388	
==>e,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do that <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	285	388	
==>e,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do that <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1961	2054	
==>confusing synopsis, you should
be left with nothing but questions about what this object repre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1961	2054	
==>confusing synopsis, you should
be left with nothing but questions about what this object repre <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2298	2403	
==>s}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { & <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2298	2403	
==>s}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29471	29570	
==>f
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(V <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10116	10211	
==>t::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `tr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10116	10211	
==>t::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `tr <==
3	/Users/nnunley/pugs/util/package-osx.pl	7326	7449	
==>c::CPAN.3
        /usr/local/man/man3/Perl6::Spec::CPAN.3pm
        /usr/local/man/man3/Perl6::Spec::Concurrency.3
        / <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2906	3009	
==>translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2906	3009	
==>translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19843	19940	
==>nd Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19843	19940	
==>nd Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38853	38941	
==>(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1351	1498	
==>');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1351	1498	
==>');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->fro <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11046	11161	
==>);
	},
	# (a x b) -> b
	snd => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3749	3886	
==>"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3737	3874	
==>"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10077	10269	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10077	10269	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10077	10269	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16382	16494	
==>eturn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16382	16494	
==>eturn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16382	16494	
==>eturn 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16577	16676	
==>ass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16577	16676	
==>ass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16577	16676	
==>ass

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6586	6685	
==>($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10063	10162	
==>($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9155	9254	
==>($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32581	32675	
==>ry version of the aforementioned binary union()
operator, and the order of its arguments is not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37131	37225	
==>ry version of the aforementioned binary union()
operator, and the order of its arguments is not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36439	36533	
==>ry version of the aforementioned binary union()
operator, and the order of its arguments is not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	50	182	
==>t;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	50	182	
==>t;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	50	182	
==>t;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1052	1160	
==>t care if there are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tid <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	825	930	
==>~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $direc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	825	930	
==>~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $direc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1891	2007	
==>f & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # sbol (beginning of line i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14963	15058	
==>rs can also be accessed through the
following convenience methods.  These methods can both be us <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14963	15058	
==>rs can also be accessed through the
following convenience methods.  These methods can both be us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16218	16324	
==>ass (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12639	12745	
==>ass (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, q <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5779	5879	
==>->new('$.referred',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], '$.value' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1288	1388	
==>source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{sour <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1428	1528	
==>source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7384	7502	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7384	7502	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7384	7502	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	60	161	
==>cro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	60	161	
==>cro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	60	161	
==>cro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3464	3646	
==>ar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' => 1,      :$v
    #    'type' => {             Str $v
    #      'bareword' => 'Str',
    #    } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2706	2882	
==>) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($densit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2706	2882	
==>) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($densit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9634	9739	
==>TI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9634	9739	
==>TI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9634	9739	
==>TI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	51	149	
==>::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	51	149	
==>::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	51	149	
==>::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1670	1820	
==>num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1670	1820	
==>num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1670	1820	
==>num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2022	2128	
==>", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2022	2128	
==>", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2022	2128	
==>", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9690	9828	
==>s[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9690	9828	
==>s[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9690	9828	
==>s[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5622	5737	
==>s);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  dia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5622	5737	
==>s);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  dia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5622	5737	
==>s);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  dia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37358	37498	
==>$pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37358	37498	
==>$pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37358	37498	
==>$pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	785	884	
==>al bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so dif <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	785	884	
==>al bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so dif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34782	34880	
==>close

Types: anyof_close (C<]> when in C<[...>)

Omitted

=head2 prop

Family: prop

Types: name o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2027	2123	
==>urces written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2027	2123	
==>urces written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13306	13520	
==>te( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13306	13520	
==>te( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13306	13520	
==>te( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4093	4346	
==>y};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4093	4346	
==>y};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7681	7781	
==>e_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7605	7705	
==>xa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB rev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7605	7705	
==>xa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB rev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7605	7705	
==>xa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB rev <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	703	815	
==>return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump data as p5
sub p5 {
	local $Data::Dump <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8418	8511	
==>curity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8418	8511	
==>curity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	260	378	
==>que'))
        || confess "C3 only accepts classes";
    bless { class  => $klass } => $class;
}

sub linearize {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3635	3737	
==>span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3635	3737	
==>span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $sp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4719	4836	
==>o options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4719	4836	
==>o options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6243	6360	
==>o options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	734	874	
==>ce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	734	874	
==>ce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	734	874	
==>ce = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11682	11788	
==>eturn $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11682	11788	
==>eturn $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11682	11788	
==>eturn $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_di <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	240	366	
==>> undef,
        param_stack => [],
    }, $class;
}

sub execute {
    my $self = shift;
    my $prog = shift;
    $self->redu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1416	1526	
==>ter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" term <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1416	1526	
==>ter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	797	923	
==>rrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	797	923	
==>rrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	797	923	
==>rrent_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9578	9711	
==>) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "fa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9578	9711	
==>) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "fa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20264	20381	
==>t->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3310	3422	
==>h.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3310	3422	
==>h.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3310	3422	
==>h.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37601	37774	
==>%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_me <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	529	647	
==>};
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	529	647	
==>};
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10631	10775	
==>method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10631	10775	
==>method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10631	10775	
==>method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unbo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1518	1624	
==>1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1518	1624	
==>1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15616	15783	
==>>{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15616	15783	
==>>{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15616	15783	
==>>{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	92	246	
==>JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	92	246	
==>JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	92	246	
==>JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	361	502	
==>src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $src,
        tail  =>   $tail,
        capture => $a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	521	634	
==>ash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1005	1118	
==>ash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2172	2282	
==>re.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	440	542	
==>exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	440	542	
==>exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10341	10498	
==>e::variable::free->new;
		type::operator::arrow->new(
			type::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18916	19033	
==>= shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20274	20391	
==>= shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	312	404	
==>Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl()) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	312	404	
==>Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl()) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	312	404	
==>Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl()) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2811	2917	
==>pts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2811	2917	
==>pts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2811	2917	
==>pts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skippi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25380	25482	
==>s Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29932	30034	
==>s Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28871	28973	
==>s Bool>

This method returns the complement of C<equal> with the same argument.

=item C<rename ( Mappi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9843	9959	
==>le_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9843	9959	
==>le_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20565	20654	
==>Regexp::Parser> installs its handlers
in F<Regexp/Parser/Handlers.pm>.  That file might en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12830	12933	
==>ks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12830	12933	
==>ks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12830	12933	
==>ks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25401	25498	
==>returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29953	30050	
==>returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28892	28989	
==>returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	516	619	
==>p_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	516	619	
==>p_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Comp <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1596	1699	
==>p://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	884	985	
==>Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Fil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	884	985	
==>Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Fil <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3245	3441	
==>0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3245	3441	
==>0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6601	6732	
==>my $Perl_prog = def_rule('prog','<statement>*');

my $source = `cat parser_spike_target.p6`;
my $m = match($Perl_prog,$source);

$Da <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7182	7273	
==>{ b_main(); return 0; }";

	join("\n\n", Blondie::Backend::C::Builtins->prelude, @{$self->{d <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17018	17102	
==>,E0,E0).
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3602	3699	
==>";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3602	3699	
==>";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3602	3699	
==>";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	97	212	
==>arp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @pa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14780	14880	
==>that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semanti <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14780	14880	
==>that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semanti <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2113	2283	
==>ete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2113	2283	
==>ete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14444	14551	
==>ler = $as_array_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4093	4197	
==>ment_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4093	4197	
==>ment_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4093	4197	
==>ment_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1085	1192	
==>ensity => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1085	1192	
==>ensity => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4290	4428	
==>) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4290	4428	
==>) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4290	4428	
==>) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5158	5262	
==>egin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasses <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3612	3705	
==>C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Pl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3612	3705	
==>C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10930	11075	
==>AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10930	11075	
==>AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10930	11075	
==>AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16795	16976	
==>end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16795	16976	
==>end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16795	16976	
==>end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3332	3436	
==>N

The Test::Builder::Test class represents a single test within the
Test::Builder framework. The class i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3332	3436	
==>N

The Test::Builder::Test class represents a single test within the
Test::Builder framework. The class i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5529	5633	
==>N

The Test::Builder::Test class represents a single test within the
Test::Builder framework. The class i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	962	1066	
==>matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alpha {
  my ( $matchObj ) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26586	26679	
==>the invocant Relation's header, in which case it returns the identity-one
Relation or the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31138	31231	
==>the invocant Relation's header, in which case it returns the identity-one
Relation or the invo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19374	19500	
==>he_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}


sub p6_eval {
    my($p6,$pkg)=@_;
    $p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13717	13822	
==>e_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13717	13822	
==>e_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4089	4233	
==>l $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $ty <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8024	8135	
==>_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } ) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8024	8135	
==>_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } ) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12346	12457	
==>up/perl.perl6.language/16578> for more
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2651	2758	
==>r (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2651	2758	
==>r (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36343	36436	
==>internally by translate_message() to produce the list of Template module
names that it will se <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36343	36436	
==>internally by translate_message() to produce the list of Template module
names that it will se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4793	4904	
==>rn $S->object(space => 0);
  });

  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12509	12607	
==>ete span

This is used to represent ranges of things that can be counted, such as beats per minute, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12509	12607	
==>ete span

This is used to represent ranges of things that can be counted, such as beats per minute, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3734	3988	
==>eyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3734	3988	
==>eyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25760	25864	
==>trolEscape>
    | <'c'> <ControlLetter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <Id <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1828	1932	
==>today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1828	1932	
==>today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2752	2874	
==>)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2752	2874	
==>)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8391	8498	
==>Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fmap(sub {
			Blondie::TypeSafe::Annota <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14045	14155	
==>I SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14045	14155	
==>I SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14045	14155	
==>I SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Mu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5662	5777	
==>etval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5662	5777	
==>etval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is expor <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24219	24318	
==>xception::LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5212	5336	
==>f, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5212	5336	
==>f, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5802	5926	
==>f, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5522	5623	
==>iX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5522	5623	
==>iX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5522	5623	
==>iX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	705	826	
==>rrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	705	826	
==>rrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	705	826	
==>rrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34641	34743	
==>es => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34641	34743	
==>es => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedTex <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3752	3851	
==>t exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	288	419	
==>bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($b <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	288	419	
==>bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($b <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21602	21727	
==>tus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1475	1636	
==>word};
        
    return $n->{code} 
        if exists $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1265	1359	
==>l 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of cont <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1265	1359	
==>l 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1252	1360	
==>nk;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1252	1360	
==>nk;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1252	1360	
==>nk;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6646	6764	
==>IL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6646	6764	
==>IL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6646	6764	
==>IL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	159	269	
==>::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	159	269	
==>::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	159	269	
==>::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      / <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38248	38341	
==>sitional parameter $text (a string), and a Message Variables hash ref
in its positional parame <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38248	38341	
==>sitional parameter $text (a string), and a Message Variables hash ref
in its positional parame <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5908	6005	
==>bType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTy <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5908	6005	
==>bType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTy <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2807	2904	
==>bType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubTy <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2458	2548	
==>rt_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2458	2548	
==>rt_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5339	5454	
==>}];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5339	5454	
==>}];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5339	5454	
==>}];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL+ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2069	2276	
==>!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        ' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5546	5753	
==>!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        ' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4476	4683	
==>!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        ' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	838	966	
==>$f->($mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9633	9739	
==>n;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method differen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9633	9739	
==>n;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method differen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13439	13644	
==>handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13439	13644	
==>handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13439	13644	
==>handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3436	3531	
==>PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3436	3531	
==>PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3436	3531	
==>PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1707	1822	
==>'::Test')->FETCH('::Fail')->new(
                '$.description' => $params{'$.description'},
                '$.pas <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	717	820	
==>and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	717	820	
==>and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4209	4341	
==>ture
    my $label = shift;
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1739	1853	
==>d = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1739	1853	
==>d = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2858	2980	
==>{
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead'} = unde <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7325	7426	
==>L' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7325	7426	
==>L' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4393	4506	
==>as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4393	4506	
==>as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	592	689	
==>t::TAP::Model);
our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOptio <==
3	/Users/nnunley/pugs/util/build_pugs.pl	435	537	
==>- build a pugs executable

This script calls GHC to build a pugs exectuable, optionally inlining
precom <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31011	31111	
==>ssible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with which it was created.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13986	14122	
==>$label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13986	14122	
==>$label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13986	14122	
==>$label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7907	8004	
==>singleton;
  has Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	139	232	
==>singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	139	232	
==>singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9744	9889	
==>cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9744	9889	
==>cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $par <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	808	913	
==>asses to a Class, all of the methods that are
included via roles will be able to access the Class' private <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2463	2588	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2463	2588	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2463	2588	
==>sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29140	29240	
==>ith a
'&') are post-consumption: they have already matched what they are
named.

The handle 'atom' is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	265	376	
==>>[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	265	376	
==>>[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	265	376	
==>>[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1446	1649	
==>res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1446	1649	
==>res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1446	1649	
==>res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2049	2164	
==>al_perl5($code) };
            when 'haskell' { Pugs::Internals::eval_haskell($code) };
            when 'parrot'  { <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3370	3459	
==>pression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3370	3459	
==>pression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7714	7850	
==>x) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7714	7850	
==>x) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7714	7850	
==>x) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reve <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7065	7188	
==>all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	609	717	
==>($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <bod <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	609	717	
==>($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <bod <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9745	9899	
==>p   => <<HELP;
      Please mount \"$initrd_img\" into \"$initrd_mnt\" by entering the following
      command as root:
      # mount -o loop -t ext2 $init <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	818	944	
==>ta::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	818	944	
==>ta::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27169	27285	
==>->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $parser->add_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15759	15866	
==>t} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(qua <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10615	10722	
==>t} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(qua <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	325	438	
==>= "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	325	438	
==>= "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	325	438	
==>= "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6033	6123	
==>e role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6033	6123	
==>e role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8230	8320	
==>e role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11315	11447	
==>se Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11315	11447	
==>se Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11315	11447	
==>se Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3300	3400	
==>ving compile time resolvable symbols into values

=item *

Replacing all values which the runtime pro <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2549	2644	
==>PI>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API MET <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2549	2644	
==>PI>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API MET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3131	3244	
==>s->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3131	3244	
==>s->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3131	3244	
==>s->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	583	677	
==>./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	583	677	
==>./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6264	6380	
==>s,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6264	6380	
==>s,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6264	6380	
==>s,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9272	9424	
==>y $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9272	9424	
==>y $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9272	9424	
==>y $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1287	1398	
==>m<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..1 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1287	1398	
==>m<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12723	12827	
==>urn 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages yet
s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8685	8826	
==>e;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8878	9019	
==>e;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6593	6701	
==>t;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14250	14463	
==>'%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14250	14463	
==>'%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14250	14463	
==>'%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5470	5580	
==>Newline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5470	5580	
==>Newline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5470	5580	
==>Newline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4441	4563	
==>if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4441	4563	
==>if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4971	5079	
==>ir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4971	5079	
==>ir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4309	4405	
==>ub as_pil_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : und <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3371	3471	
==>re patch if one proves necessary to go the last mile.

=head1 BUGS

Numerous.

=head1 TODO

=over
=it <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9645	9743	
==>.}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return } <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9645	9743	
==>.}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11409	11509	
==>s more predictable 
behavior to class consturction because it isolates the Role specifc
code to the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11409	11509	
==>s more predictable 
behavior to class consturction because it isolates the Role specifc
code to the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11409	11509	
==>s more predictable 
behavior to class consturction because it isolates the Role specifc
code to the c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22413	22512	
==>turn the same result when invoked on the
same object with the same arguments; they do not interact w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26965	27064	
==>turn the same result when invoked on the
same object with the same arguments; they do not interact w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25688	25787	
==>turn the same result when invoked on the
same object with the same arguments; they do not interact w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4423	4578	
==>t;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cpan_bareword} 
                  ? _mangle_ident( $n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19627	19719	
==>le::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19627	19719	
==>le::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE AL <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9179	9273	
==>}
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9179	9273	
==>}
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8310	8437	
==>unt,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8310	8437	
==>unt,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8310	8437	
==>unt,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29906	30001	
==>rts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34458	34553	
==>rts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33622	33717	
==>rts having old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	452	571	
==>y $path    = $struct->{package};
    
    ### create a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7476	7576	
==>plate_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7476	7576	
==>plate_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6960	7065	
==>I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL hand <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6960	7065	
==>I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL hand <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7528	7622	
==>everse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing th <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7528	7622	
==>everse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing th <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7188	7288	
==>:
    parse_error(mob, pos, "Missing close bracket for \\x...")
    goto end
.end

.sub "parse_modifi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27257	27353	
==>operator that returns a new Relation
which has a superset of the original's attributes; the new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31809	31905	
==>operator that returns a new Relation
which has a superset of the original's attributes; the new R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4087	4192	
==>ur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4087	4192	
==>ur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4087	4192	
==>ur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PI <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23461	23581	
==>failed) = @_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7767	7862	
==>is event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7767	7862	
==>is event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This eve <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1386	1489	
==>Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date spa <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1386	1489	
==>Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date spa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5772	5913	
==>self)->{'%:methods'}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @_;
            ke <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13014	13111	
==>recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For most <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13014	13111	
==>recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For most <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1750	1924	
==>mplemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1750	1924	
==>mplemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1750	1924	
==>mplemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3364	3462	
==>\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $mak <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4500	4598	
==>\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	337	443	
==>t})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	337	443	
==>t})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	337	443	
==>t})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5271	5374	
==>('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %* <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5271	5374	
==>('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %* <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23114	23215	
==>>? <')'. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2178	2297	
==>n perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2178	2297	
==>n perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2178	2297	
==>n perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9978	10131	
==>0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9978	10131	
==>0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24803	24926	
==>family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub visual {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3506	3630	
==>build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3506	3630	
==>build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3506	3630	
==>build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			sh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9754	9870	
==>( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13231	13347	
==>( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12503	12619	
==>( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3598	3726	
==>nt',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3598	3726	
==>nt',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	448	576	
==>nt',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2806	2911	
==>l packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # At <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2806	2911	
==>l packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # At <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9066	9161	
==>n method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5396	5513	
==>, $expected, $range, $name, @mess) = @_;
    my $pass;
    if (!defined $got or !defined $expected or !defined $range) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17558	17655	
==>{files}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	336	430	
==>eprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2594	2701	
==>[ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $va <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2594	2701	
==>[ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	757	857	
==>head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTION

Provides runtime routines for the Perl6-in-Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1186	1305	
==>currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1186	1305	
==>currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1186	1305	
==>currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	206	317	
==>DO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	206	317	
==>DO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13139	13262	
==>o_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13139	13262	
==>o_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13139	13262	
==>o_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5039	5148	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1622	1731	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9825	9932	
==>head>

<body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18042	18167	
==>een more than once!\n" if $self->{_seen_header};

    $self->{_seen_header}++;

    warn "1..M can only appear at the beginnin <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	646	765	
==>f ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	646	765	
==>f ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5281	5394	
==>)->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic level <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5281	5394	
==>)->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic level <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5281	5394	
==>)->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic level <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4506	4598	
==>blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4506	4598	
==>blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4506	4598	
==>blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4325	4433	
==>ative;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4325	4433	
==>ative;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4325	4433	
==>ative;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2116	2212	
==>tub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2116	2212	
==>tub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2116	2212	
==>tub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1514	1733	
==>h @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_str <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14134	14228	
==>nsider unsafe (i.e., which to escape). The default set
of characters to encode are control char <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14134	14228	
==>nsider unsafe (i.e., which to escape). The default set
of characters to encode are control char <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1871	2262	
==>"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    }
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1871	2262	
==>"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39601	39715	
==>s
an object regardless of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12160	12265	
==>onfess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12160	12265	
==>onfess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12160	12265	
==>onfess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2312	2430	
==>niverse, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2312	2430	
==>niverse, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8798	8915	
==>nty') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	367	494	
==>.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	367	494	
==>.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> <==
3	/Users/nnunley/pugs/util/func_refact.pl	337	428	
==>-initial <fname>, possibly many times, to
specify the initial set. -except <fname> introduce <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1479	1632	
==>ument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3864	3955	
==>first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5766	5857	
==>first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5649	5761	
==>derMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5649	5761	
==>derMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5649	5761	
==>derMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require J <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	816	963	
==>lf;
    $self = bless sub {
        my $message = shift;
        return $table  if $message eq 'message-map';        
        
        # alias proto <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16693	16819	
==>return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18119	18245	
==>return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24738	24864	
==>return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6519	6615	
==>houtNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6519	6615	
==>houtNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6519	6615	
==>houtNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6317	6446	
==>$_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6317	6446	
==>$_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20455	20556	
==>r my $subdir (keys %{$dir_index->{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$subdir};
	while( ( exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34689	34806	
==>my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34689	34806	
==>my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34689	34806	
==>my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail ) <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3224	3338	
==>bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "b <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3224	3338	
==>bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10137	10331	
==>et_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2188	2360	
==>et_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2188	2360	
==>et_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	476	596	
==>IL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	476	596	
==>IL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	476	596	
==>IL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29430	29532	
==>r
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to spli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33982	34084	
==>r
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to spli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33146	33248	
==>r
attributes.  The members of the argument C<$attrs> are the names of the
invocant's attributes to spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	261	379	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	261	379	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	261	379	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3070	3414	
==>m.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3070	3414	
==>m.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27082	27174	
==>INT_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x800000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2774	2878	
==>>>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2774	2878	
==>>>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2774	2878	
==>>>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12415	12594	
==>n) = _canonfailed($test{max},$test{skipped},
                                                    @{$test{failed}});
                    print "$test{ml}$txt";
                    $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4057	4180	
==>( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infin <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4057	4180	
==>( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4955	5064	
==>ttern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4955	5064	
==>ttern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4955	5064	
==>ttern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1108	1223	
==>tempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1108	1223	
==>tempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1108	1223	
==>tempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3471	3595	
==>ot eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3471	3595	
==>ot eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4995	5119	
==>ot eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15152	15266	
==>e {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15152	15266	
==>e {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15152	15266	
==>e {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_ge <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	43	143	
==>eiter und so fort"-Operator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein te <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21485	21580	
==>ssages, but another package or program which uses yours may wish to
override some of your messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21485	21580	
==>ssages, but another package or program which uses yours may wish to
override some of your messag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	222	314	
==>OO system written in Scheme, which can
be seen here:

  http://okmij.org/ftp/Scheme/pure-oo-s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6145	6285	
==>e attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6145	6285	
==>e attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6145	6285	
==>e attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2729	2840	
==>.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2729	2840	
==>.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2729	2840	
==>.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8511	8617	
==>intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8511	8617	
==>intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14992	15087	
==>Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14992	15087	
==>Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(S <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2441	2529	
==>log be built ./configure --enable-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19744	19873	
==>atched */

=head2 Other things the world messes with:


  I32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4745	4847	
==>all the lines including the ones before the `use`
    # statement, so we can parse Perl into packages a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4745	4847	
==>all the lines including the ones before the `use`
    # statement, so we can parse Perl into packages a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4455	4602	
==>y} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4455	4602	
==>y} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4455	4602	
==>y} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	631	762	
==>izer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	631	762	
==>izer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	631	762	
==>izer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'clas <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29397	29513	
==>YAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29397	29513	
==>YAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	221	325	
==>YAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10099	10246	
==>\n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10935	11082	
==>\n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6253	6384	
==>"";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6253	6384	
==>"";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6253	6384	
==>"";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warni <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2345	2474	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2345	2474	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2345	2474	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	535	641	
==>nt.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	535	641	
==>nt.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	535	641	
==>nt.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1461	1563	
==>them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1461	1563	
==>them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	64	158	
==>se qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pugs::Compiler::Token;

# TOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	186	288	
==>to generate the same data structure as
the 'ratchet' version.

- It currently passes all it's tests. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17049	17145	
==>.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17049	17145	
==>.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14724	14838	
==>itialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14724	14838	
==>itialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14724	14838	
==>itialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16332	16511	
==>rint !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16326	16505	
==>rint !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1] <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2683	2798	
==>t = emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2458	2558	
==>) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2458	2558	
==>) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    retur <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14325	14421	
==>enu.lst\"",
  ensure => sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4133	4246	
==>ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4133	4246	
==>ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4133	4246	
==>ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } els <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34520	34612	
==>ies and user-defined POSIX classes)

Data: 'POSIX' if C<[:NAME:]>, C<[^:NAME:]> (or other POS <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	996	1086	
==>bug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	996	1086	
==>bug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	474	592	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	474	592	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	474	592	
==>v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6797	6901	
==>r way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6797	6901	
==>r way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6797	6901	
==>r way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29626	29735	
==>ULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29626	29735	
==>ULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	430	527	
==>ULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_tex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1229	1347	
==>ed Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1229	1347	
==>ed Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5446	5559	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5446	5559	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5446	5559	
==>ift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	117	221	
==>X_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	117	221	
==>X_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	117	221	
==>X_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20978	21077	
==>ement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rule IterationStatement :words {  # see 1 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1749	1897	
==>n () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool:: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1749	1897	
==>n () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool:: <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	509	615	
==>$res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	961	1062	
==>_

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DES <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2772	2867	
==>::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2772	2867	
==>::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; retu <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3471	3615	
==>alar    pre     min     safe   (List)\
multi List::min(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1259	1400	
==>'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuild <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29509	29601	
==>Mcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
pp_regcomp
pp_substcont
Perl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5982	6082	
==>st two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5982	6082	
==>st two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8179	8279	
==>st two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1260	1365	
==>{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1260	1365	
==>{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1260	1365	
==>{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_ <==
3	/Users/nnunley/pugs/util/package-osx.pl	9140	9285	
==>-s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $cur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25061	25158	
==>r program.  The Message class is pure and deterministic,
such that all of its class and object met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25061	25158	
==>r program.  The Message class is pure and deterministic,
such that all of its class and object met <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2479	2593	
==>sts($P);
    my $attr = $O.property_attributes{$P};
    return JSX::false if $attr && $attr.ReadOnly;
    delete $O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	30	139	
==>gs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	30	139	
==>gs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	30	139	
==>gs;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5323	5461	
==>e => $<name>, fixity => ..., precedence => ... );
            return ... ;
        }
    }

    rule statement {
        <category.parse> . <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2576	2670	
==>dule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/h <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2576	2670	
==>dule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5783	5906	
==>s;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5783	5906	
==>s;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5783	5906	
==>s;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10078	10222	
==>OLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10078	10222	
==>OLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10078	10222	
==>OLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1382	1492	
==>or your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1382	1492	
==>or your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	968	1078	
==>rep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmet <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	968	1078	
==>rep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16949	17042	
==>Readable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16949	17042	
==>Readable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16949	17042	
==>Readable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	804	905	
==>ter, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	804	905	
==>ter, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	804	905	
==>ter, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13686	13787	
==>iler have an overly friendly
  relationship.  There may end up being a gotcha, where one needs
  somet <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12338	12436	
==>ameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12338	12436	
==>ameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15337	15450	
==>_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15337	15450	
==>_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15337	15450	
==>_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5738	5860	
==>pile {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Grammar::P <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15995	16088	
==>Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Littl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16053	16146	
==>Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Littl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29791	29892	
==>s method
supports having the new attributes having the same names as old attributes
that were wrapped, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34343	34444	
==>s method
supports having the new attributes having the same names as old attributes
that were wrapped, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33507	33608	
==>s method
supports having the new attributes having the same names as old attributes
that were wrapped, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24098	24206	
==>WUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20519	20627	
==>WUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35022	35119	
==>es: clump (C<\X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array reference of a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16017	16119	
==>anced treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted ch <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28424	28529	
==>ATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2590	2684	
==>ce_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3545	3639	
==>ce_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	667	790	
==>od end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

metho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	667	790	
==>od end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

metho <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25538	25639	
==>d in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1909	2037	
==>cedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	265	357	
==>oot ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Per <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	265	357	
==>oot ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13942	14060	
==>params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13942	14060	
==>params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13942	14060	
==>params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7481	7611	
==>$rx->{flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => 1,
    }, $c <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8527	8634	
==>Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8527	8634	
==>Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1232	1331	
==>w PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1232	1331	
==>w PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1232	1331	
==>w PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4601	4730	
==>list->push($closure->do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=head1 NAME

list - the core list ty <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3530	3649	
==>ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # sma <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3530	3649	
==>ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # sma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16703	16791	
==>=item Regexp::CharClassOps

Implements character class operations like union, intersectio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2350	2459	
==>n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2350	2459	
==>n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2350	2459	
==>n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2113	2224	
==>hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2113	2224	
==>hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2113	2224	
==>hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - clea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1426	1550	
==>th; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1426	1550	
==>th; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1426	1550	
==>th; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38726	38845	
==>rray->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38726	38845	
==>rray->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38726	38845	
==>rray->from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimiz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	76	194	
==>xt
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	76	194	
==>xt
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	76	194	
==>xt
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1279	1389	
==>}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1279	1389	
==>}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8755	8906	
==>attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8755	8906	
==>attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8755	8906	
==>attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just packag <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17129	17230	
==>method.($self, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    (( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2799	2889	
==>ugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2799	2889	
==>ugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17431	17537	
==>B infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17431	17537	
==>B infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17431	17537	
==>B infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18062	18184	
==>::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18062	18184	
==>::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18062	18184	
==>::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7964	8079	
==>$name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surroun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11960	12072	
==>$name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surroun <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11960	12072	
==>$name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surroun <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4425	4545	
==>fault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3266	3370	
==>-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3266	3370	
==>-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3266	3370	
==>-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5268	5378	
==>($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5268	5378	
==>($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5268	5378	
==>($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3228	3353	
==>ndef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3228	3353	
==>ndef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3228	3353	
==>ndef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1718	1839	
==>ss uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore the prefix on ex <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4350	4449	
==>self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm -rf $my_tmp_d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2166	2268	
==>ume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2166	2268	
==>ume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6131	6217	
==>notes/piln_object_repr_types.pod r8593.
multi method Array::as_map (@array:) returns Ha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1085	1200	
==>"Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Ia <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1085	1200	
==>"Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Ia <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21762	21863	
==>as getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the field.  Th <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6704	6809	
==>urn "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	996	1098	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2596	2698	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23358	23449	
==>ad2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23358	23449	
==>ad2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18735	18819	
==><LeftHandSideExpression> <AssignmentOperator> <AssignmentExpression>
}
rule Assignmen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2041	2165	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2041	2165	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2041	2165	
==>e spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3636	3729	
==>oints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3636	3729	
==>oints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3636	3729	
==>oints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	797	922	
==>elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	797	922	
==>elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	797	922	
==>elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3388	3489	
==>tore(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3388	3489	
==>tore(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3388	3489	
==>tore(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2241	2331	
==>ce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2241	2331	
==>ce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2241	2331	
==>ce_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7010	7107	
==>reached. This does not include 
the text of the header, that will be processed as a interpolated s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7010	7107	
==>reached. This does not include 
the text of the header, that will be processed as a interpolated s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7713	7877	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              :: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11190	11354	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              :: <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	434	544	
==>ape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	434	544	
==>ape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22843	22937	
==>which anything in the world can be modelled.

The provided roles (Relation, Tuple, Heading) are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15374	15480	
==>p   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15374	15480	
==>p   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15374	15480	
==>p   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19398	19495	
==>,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19398	19495	
==>,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19398	19495	
==>,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2782	2998	
==>->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2782	2998	
==>->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2782	2998	
==>->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4539	4669	
==>s }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4539	4669	
==>s }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4539	4669	
==>s }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	280	392	
==>export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly h <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	280	392	
==>export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly h <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6980	7081	
==>E> Currently this function is still noisy.  I'm working on it.

=cut

# Turns on autoflush for the han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10586	10712	
==>File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10586	10712	
==>File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10586	10712	
==>File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    fo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8997	9105	
==>ession --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23427	23520	
==>)>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23427	23520	
==>)>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2054	2150	
==>esents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2054	2150	
==>esents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tre <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1095	1187	
==>junction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <repetition> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2132	2258	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2132	2258	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2132	2258	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11566	11790	
==>params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11566	11790	
==>params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11566	11790	
==>params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mis <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	77	184	
==>'t translate so trivially.

type Noop;

# hmm, there's a lot.  And we probably don't need it all for the
# m <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2076	2170	
==>l AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hoste <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2076	2170	
==>l AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hoste <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3496	3595	
==>art)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTB <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21338	21433	
==>L or pseudo-SQL dialect.  An application written to it should easily port
to alternative relatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21338	21433	
==>L or pseudo-SQL dialect.  An application written to it should easily port
to alternative relatio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2925	3047	
==>Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3470	3592	
==>Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4979	5089	
==>$_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	655	752	
==>2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	655	752	
==>2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	655	752	
==>2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4205	4304	
==>E;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4205	4304	
==>E;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4205	4304	
==>E;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19923	20018	
==>sword.  In scalar context it will
return I<"uname:password"> as a single string value.

When use <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19923	20018	
==>sword.  In scalar context it will
return I<"uname:password"> as a single string value.

When use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	894	1006	
==>IL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	894	1006	
==>IL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	894	1006	
==>IL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8543	8651	
==>plied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8543	8651	
==>plied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2174	2302	
==>aptures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2174	2302	
==>aptures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15297	15398	
==>inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14249	14351	
==>nd the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<ju <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14249	14351	
==>nd the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6580	6718	
==>('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6580	6718	
==>('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6580	6718	
==>('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1636	1750	
==>_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12778	12894	
==>ift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $self->execute($self->compile( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	976	1086	
==>= 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	976	1086	
==>= 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop conn <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2001	2202	
==>t tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fal <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2001	2202	
==>t tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	116	218	
==>qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2607	2758	
==>ass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2607	2758	
==>ass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2607	2758	
==>ass != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27654	27751	
==>nsion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each orig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32206	32303	
==>nsion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each orig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31298	31395	
==>nsion of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each orig <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2483	2607	
==>reviliged user, it will ask you to enter
      commands requiring root privilegies.

Note: The only option you'll have to spe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4059	4161	
==>};
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4059	4161	
==>};
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2746	2839	
==>');
is($p->prototype->class, \&Object, '... got the right class name');

is($p->get_x, 5, '... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6886	6980	
==>n new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6886	6980	
==>n new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6886	6980	
==>n new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2688	2804	
==>om_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2688	2804	
==>om_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2688	2804	
==>om_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1792	1897	
==>) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1792	1897	
==>) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1792	1897	
==>) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3032	3137	
==>a( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.ne <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3032	3137	
==>a( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	287	385	
==>6main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	287	385	
==>6main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	287	385	
==>6main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	541	663	
==>ubstr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	638	760	
==>ubstr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6842	6959	
==>$pass) {
	unshift(@mess, "#      got '$got'\n",
		"# expected /$expected/\n");
    }
    local $Level = 2;
    _ok($pa <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3932	4012	
==>p://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3932	4012	
==>p://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	262	393	
==>export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	262	393	
==>export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	262	393	
==>export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5651	5794	
==>oin("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5651	5794	
==>oin("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5651	5794	
==>oin("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECL <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	265	421	
==>am('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1043	1180	
==>/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1043	1180	
==>/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3032	3128	
==>EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3032	3128	
==>EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3032	3128	
==>EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_opt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1346	1483	
==>rn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1357	1494	
==>rn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ], <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2137	2240	
==>_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $en <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18569	18662	
==>uld not share
Rosetta objects between multiple threads, nor have objects in separate
threads t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18569	18662	
==>uld not share
Rosetta objects between multiple threads, nor have objects in separate
threads t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3537	3636	
==>unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3537	3636	
==>unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3537	3636	
==>unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	97	202	
==>ee thread "What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nn <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	86	189	
==>ee thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nn <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	53	156	
==>ee thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	294	394	
==>e, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	294	394	
==>e, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	294	394	
==>e, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2148	2238	
==>r::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2237	2327	
==>r::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1607	1707	
==>e signature; it does

not allocate containers.



the Body is just a structure with three node forms: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1542	1639	
==>e signature; it does
not allocate containers.

the Body is just a structure with three node forms: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17124	17288	
==>ubclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17124	17288	
==>ubclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17124	17288	
==>ubclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	238	346	
==>be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	238	346	
==>be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	238	346	
==>be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2675	2792	
==>..\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2675	2792	
==>..\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2675	2792	
==>..\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2880	3012	
==>ses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2880	3012	
==>ses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2880	3012	
==>ses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1425	1562	
==>, \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1425	1562	
==>, \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	156	259	
==>erl Hacker'; # $x ist nun auch 'Perl Hacker'
	
#=Bindung (statisch)
my $y ::= $x # Bindung zur Compile-Z <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	76	181	
==>warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pad;
    use base qw/Blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5991	6092	
==>ing the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $matcher = P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5783	5882	
==>ing the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $matcher = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7634	7759	
==>:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7634	7759	
==>:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7634	7759	
==>:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@array <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11720	11894	
==>rce_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11720	11894	
==>rce_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1965	2053	
==>ef_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1280	1378	
==>ingification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1280	1378	
==>ingification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1280	1378	
==>ingification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2625	2737	
==>d $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2625	2737	
==>d $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2625	2737	
==>d $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4792	4898	
==>. $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4792	4898	
==>. $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4792	4898	
==>. $method_source if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21506	21650	
==>::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21506	21650	
==>::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21506	21650	
==>::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'A <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5073	5171	
==>st has passed or failed, depending on the value of C<$passed>,
recording C<$description> as an opti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5073	5171	
==>st has passed or failed, depending on the value of C<$passed>,
recording C<$description> as an opti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6597	6695	
==>st has passed or failed, depending on the value of C<$passed>,
recording C<$description> as an opti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5358	5455	
==>y $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to sk <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5358	5455	
==>y $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to sk <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21385	21477	
==>on>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')'> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11445	11586	
==>t;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11445	11586	
==>t;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11445	11586	
==>t;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code-> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5280	5410	
==>...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5280	5410	
==>...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_ne <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12726	12835	
==>mentList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <ElementList> <','> <Elision>? < <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2131	2229	
==>sed properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Ar <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2131	2229	
==>sed properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4051	4168	
==>equired}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4051	4168	
==>equired}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4051	4168	
==>equired}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22315	22433	
==>B splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22315	22433	
==>B splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22315	22433	
==>B splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4263	4364	
==>nterpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<| <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4263	4364	
==>nterpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7018	7130	
==>my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7018	7130	
==>my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7018	7130	
==>my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6485	6597	
==>'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6485	6597	
==>'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.is <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	963	1060	
==>r');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($verbose $switches);

$Verbose  = $ENV{HARNESS_VE <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12839	12933	
==>n the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
charac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12839	12933	
==>n the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
charac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	473	578	
==>F;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	473	578	
==>F;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	473	578	
==>F;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1448	1578	
==>e $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1448	1578	
==>e $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2902	3031	
==>e $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	333	444	
==>Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	333	444	
==>Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	333	444	
==>Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38920	39032	
==>- optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38920	39032	
==>- optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38920	39032	
==>- optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1801	1906	
==>"N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1801	1906	
==>"N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1801	1906	
==>"N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5852	5944	
==>64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5852	5944	
==>64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3635	3740	
==>$js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3635	3740	
==>$js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3635	3740	
==>$js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29336	29488	
==>$class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29336	29488	
==>$class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29336	29488	
==>$class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVER <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	907	1030	
==>nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen tr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	907	1030	
==>nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen tr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	766	860	
==>ptable->addToken("term:\\d", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken(" <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	988	1149	
==>^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	857	980	
==>^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6908	7006	
==>space> { \s+ }

rule identifier { \w+ }
token literal_int { \d+ }

rule simple_call { <identifier>< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10388	10581	
==>);
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10388	10581	
==>);
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10388	10581	
==>);
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	488	616	
==>.$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	488	616	
==>.$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	488	616	
==>.$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	648	775	
==>lts;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	648	775	
==>lts;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18685	18770	
==>s::Internals::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrP <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1578	1690	
==>rray).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1356	1464	
==>.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1356	1464	
==>.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1356	1464	
==>.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13237	13386	
==>warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13237	13386	
==>warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13237	13386	
==>warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	85	185	
==>riment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	85	185	
==>riment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	85	185	
==>riment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2147	2250	
==>went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2147	2250	
==>went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2147	2250	
==>went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6990	7127	
==>"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the glob <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6990	7127	
==>"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the glob <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2144	2244	
==>@free); # Attribute grammars can't eat DAGs, so we have to recursively make shallow copies of the nod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4044	4142	
==>/ } __PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c-indentation-style: bsd
# c-basic-o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5842	5936	
==>s accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5842	5936	
==>s accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10303	10501	
==>kg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### fin <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2908	3011	
==>ep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

met <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2908	3011	
==>ep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4559	4716	
==>ew } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4559	4716	
==>ew } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4559	4716	
==>ew } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7851	7979	
==>$input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under C <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7851	7979	
==>$input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under C <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	601	702	
==>rbate tests
$ENV{PERL_CORE} = 1 unless ${^TAINT};

$0 ~~ s/\.dp$//; # for the test.deparse make tar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2129	2245	
==>my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2129	2245	
==>my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2129	2245	
==>my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1151	1264	
==>le( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->packa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	981	1094	
==>le( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->packa <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1394	1497	
==>s/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "d <==
3	/Users/nnunley/pugs/util/func_refact.pl	2952	3059	
==>w) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

sub score {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15946	16045	
==>target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $passwor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15946	16045	
==>target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $passwor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4157	4258	
==>ation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4157	4258	
==>ation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4157	4258	
==>ation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9961	10179	
==>)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bind <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6302	6520	
==>)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bind <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7151	7369	
==>)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bind <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5304	5477	
==>ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5304	5477	
==>ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	933	1065	
==>OPSIS

    package My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1034	1139	
==>// Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1034	1139	
==>// Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1034	1139	
==>// Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4283	4406	
==>" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4423	4546	
==>" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        " <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3969	4073	
==>se_object;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6667	6796	
==>eturn Relation::Example.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4077	4174	
==>ntent;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content ! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4077	4174	
==>ntent;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content ! <==
3	/Users/nnunley/pugs/util/importgraph.pl	92	192	
==>in the current directory
# it expects to run from the top pugs directory with src present
# arrows po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1880	1976	
==>s, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (le <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1808	1902	
==>s, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14125	14298	
==>o
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14125	14298	
==>o
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14125	14298	
==>o
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #} <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	485	708	
==>$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	485	708	
==>$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	74	170	
==>l6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1244	1379	
==>m_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1244	1379	
==>m_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1244	1379	
==>m_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16466	16595	
==>nd for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16466	16595	
==>nd for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16466	16595	
==>nd for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2167	2261	
==>lf.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2167	2261	
==>lf.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2167	2261	
==>lf.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6433	6518	
==>$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6433	6518	
==>$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6433	6518	
==>$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5353	5552	
==>rn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5353	5552	
==>rn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5353	5552	
==>rn $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2147	2260	
==>e_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2147	2260	
==>e_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2147	2260	
==>e_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5692	5788	
==>@a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5692	5788	
==>@a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5692	5788	
==>@a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10	115	
==>e classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10	115	
==>e classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10	115	
==>e classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4140	4334	
==>->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4140	4334	
==>->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4140	4334	
==>->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::e <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5419	5514	
==>ex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5419	5514	
==>ex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64) <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2730	2823	
==>n (\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11875	11988	
==>E, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4518	4631	
==>E, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4669	4765	
==>initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1668	1829	
==>'/_builddir';             # buildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'cont <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2024	2140	
==>$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2024	2140	
==>$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3088	3222	
==>ss
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4788	4917	
==>ss
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3816	3941	
==>ss
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5217	5340	
==>nsUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5217	5340	
==>nsUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5217	5340	
==>nsUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($toke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6244	6398	
==>ormed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6244	6398	
==>ormed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6244	6398	
==>ormed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14151	14245	
==>ntifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	649	774	
==>very Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4127	4252	
==>very Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Re <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15008	15115	
==>_c__}';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  pack <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2307	2437	
==>as failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do somethi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2307	2437	
==>as failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do somethi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	22	113	
==>heory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	22	113	
==>heory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	22	113	
==>heory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3572	3678	
==>tus
if($no_designdocs) {
    print "P6 design documents   : Won't generate cross-referenced P6 design docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2829	2949	
==>stantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2829	2949	
==>stantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2829	2949	
==>stantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10845	11025	
==>ses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10845	11025	
==>ses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10845	11025	
==>ses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dis <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3573	3670	
==>unctional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Func <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3573	3670	
==>unctional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Func <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	178	274	
==>obleme bereitet, wird sie in Perl 6 nur noch vom Datentyp
und nicht mehr vom Kontext abhängig se <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11543	11643	
==>regexp comp and exec.
  The hooks are not package-specific.

Design:

  The comp hook sub should retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11807	11907	
==>qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11801	11901	
==>qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub me <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3587	3774	
==>il(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9039	9150	
==>);
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9027	9138	
==>);
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20726	20902	
==>t @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20726	20902	
==>t @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20726	20902	
==>t @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1504	1646	
==>d if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1709	1851	
==>d if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1770	1912	
==>d if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4986	5105	
==>ecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # corre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4986	5105	
==>ecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # corre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4986	5105	
==>ecial case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # corre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2351	2476	
==>er simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2351	2476	
==>er simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19838	19935	
==>spired to have this organization partly by how Mac OS X manages its
resources.  It is the standard <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19838	19935	
==>spired to have this organization partly by how Mac OS X manages its
resources.  It is the standard <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1429	1521	
==>ugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1362	1458	
==>_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1362	1458	
==>_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1362	1458	
==>_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14130	14223	
==>method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enq <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14130	14223	
==>method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enq <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11075	11170	
==>Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11133	11228	
==>Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18267	18361	
==>($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18267	18361	
==>($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18267	18361	
==>($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/util/package-osx.pl	1043	1140	
==>cal/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info <==
3	/Users/nnunley/pugs/util/package-osx.pl	3353	3450	
==>cal/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15131	15233	
==>^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	105	217	
==>turns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	105	217	
==>turns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20768	20865	
==>ist of what
packages a method is looked up in for a given object of type 'OBJ':
F<YourMod::OBJ>, F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10505	10628	
==>he alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3580	3703	
==>he alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23129	23210	
==>5::X1::Api::Exception::LoopControl;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exceptio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3724	3851	
==>able;
        # Bool
        # Says whether this Relation::Example is mutable or not;
        # depending on the implementing cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1165	1264	
==>nator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1165	1264	
==>nator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2511	2608	
==>pad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2511	2608	
==>pad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2511	2608	
==>pad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16197	16297	
==>d('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16197	16297	
==>d('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16197	16297	
==>d('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2301	2412	
==>gs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2301	2412	
==>gs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2301	2412	
==>gs) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2021	2134	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2021	2134	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2021	2134	
==>e "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10218	10353	
==>es{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SEL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10218	10353	
==>es{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SEL <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	175	274	
==>B::Package::Installed;
use JIB::Package::Installable;

use File::Spec;
use File::Basename          q <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4029	4152	
==>PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_E <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4029	4152	
==>PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_E <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	879	1002	
==>PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_E <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	234	353	
==>trings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	234	353	
==>trings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9943	10107	
==>sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9943	10107	
==>sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9943	10107	
==>sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	769	910	
==>NGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_A <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	769	910	
==>NGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16602	16729	
==>s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16602	16729	
==>s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16602	16729	
==>s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3274	3376	
==>thod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3274	3376	
==>thod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3274	3376	
==>thod(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15181	15277	
==>er value is always returned.
If the given header did not exist then C<undef> is returned.

Method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15181	15277	
==>er value is always returned.
If the given header did not exist then C<undef> is returned.

Method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25887	25981	
==>on details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8141	8332	
==>unction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8141	8332	
==>unction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8141	8332	
==>unction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2776	2883	
==>$_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2776	2883	
==>$_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2776	2883	
==>$_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11206	11328	
==>rl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progfile}" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13439	13583	
==>er );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16916	17060	
==>er );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16278	16422	
==>er );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13832	13966	
==>[ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13832	13966	
==>[ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13832	13966	
==>[ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub' <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	102	239	
==>skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '- <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	102	239	
==>skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '- <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1187	1283	
==>> | <alias> | <simple_term> }

rule repetition  { <simple_term> <quantifier> }
rule quantifier  { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4414	4544	
==>f you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowle <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4414	4544	
==>f you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4494	4624	
==>f you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6126	6256	
==>};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6126	6256	
==>};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6126	6256	
==>};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1639	1746	
==>) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1639	1746	
==>) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1639	1746	
==>) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7450	7553	
==>main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7450	7553	
==>main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7450	7553	
==>main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4113	4205	
==>> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4113	4205	
==>> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4113	4205	
==>> Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Sli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4122	4292	
==>turn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4122	4292	
==>turn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4122	4292	
==>turn $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2826	3049	
==>less {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2826	3049	
==>less {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2826	3049	
==>less {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        D <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6847	6956	
==>not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4386	4494	
==>not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7863	7971	
==>not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	233	350	
==>@_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	233	350	
==>@_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	233	350	
==>@_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3587	3686	
==>pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3587	3686	
==>pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3587	3686	
==>pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11784	11890	
==>tch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = del <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11784	11890	
==>tch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = del <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11784	11890	
==>tch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2637	2754	
==>return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2637	2754	
==>return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2637	2754	
==>return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2090	2224	
==>ode_" . $class->id . " [ dir = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	100	203	
==>{
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	100	203	
==>{
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	100	203	
==>{
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2810	2948	
==>f we have a Thunk inside '&func' in the Env, executing this tree will invoke
'&func':

    App(
        Sym('&func'),
        Val(1),
    ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3367	3489	
==>lation::Example, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of o <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	949	1055	
==>on_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 duration formats";

=pod

    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2943	3122	
==>cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc work <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2943	3122	
==>cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc work <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2943	3122	
==>cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc work <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21543	21650	
==>PACKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1467	1558	
==>s in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PD <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1467	1558	
==>s in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PD <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28888	29008	
==>],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pres <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28888	29008	
==>],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pres <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	255	363	
==>],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or pres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38503	38636	
==>ems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38503	38636	
==>ems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38503	38636	
==>ems}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5047	5152	
==>value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_pre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7715	7820	
==>value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_pre <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3456	3555	
==>',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12503	12603	
==>will eval a code snippet, and then pass the result to is or ok
on success, or report that the eval wa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12561	12661	
==>will eval a code snippet, and then pass the result to is or ok
on success, or report that the eval wa <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3933	4049	
==>tern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule liter <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4138	4246	
==>f = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4345	4453	
==>f = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a para <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10941	11036	
==>passed it, but it will not operate
differently.

The string representation is built by calling t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1666	1771	
==><meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
}
sub <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11809	11908	
==>nially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primitive is u <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5935	6022	
==>cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) }

m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	149	252	
==>k soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	149	252	
==>k soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36892	36991	
==>ly: assertion

Types: logical (C<(??{>)

Data: string with contents of assertion

=head2 flags

Fami <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10390	10547	
==>nstance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10390	10547	
==>nstance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10390	10547	
==>nstance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8188	8298	
==>."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11665	11775	
==>."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10847	10957	
==>."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method inte <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1313	1467	
==>n(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1313	1467	
==>n(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5066	5179	
==>rfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><octaldigit><octaldigit>
      | <bracket_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2426	2550	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2426	2550	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2426	2550	
==>$self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13405	13528	
==>a::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13405	13528	
==>a::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/junkt1.pl	2	97	
==>Alle alt genug für...?
my @alter = @anwesende».alter();

"Na zum Glück ist das hier jugendfre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28080	28304	
==>$tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28080	28304	
==>$tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28080	28304	
==>$tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( P <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8243	8354	
==>p /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6287	6387	
==>ME

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  us <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6287	6387	
==>ME

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4263	4434	
==>m_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4263	4434	
==>m_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4263	4434	
==>m_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14304	14437	
==>ffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14304	14437	
==>ffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5566	5667	
==>> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1)) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4628	4725	
==>API is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4878	4975	
==>API is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9662	9753	
==>_method(), 
  '$iFoo::another_test_iFoo_singleton_method',
  '... got the right return value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19072	19220	
==>magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '"" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19072	19220	
==>magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '"" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19072	19220	
==>magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '"" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3909	4052	
==>$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3909	4052	
==>$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3909	4052	
==>$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1802	1932	
==>{
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) { <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1802	1932	
==>{
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base)) { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	360	489	
==>ode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1142	1249	
==>SCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1142	1249	
==>SCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1142	1249	
==>SCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3432	3556	
==>?
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3420	3544	
==>?
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	912	1035	
==>ault {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9619	9716	
==>ant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9619	9716	
==>ant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9619	9716	
==>ant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	25	133	
==>etaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	25	133	
==>etaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	25	133	
==>etaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1580	1727	
==>s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1580	1727	
==>s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4313	4424	
==>, $self->raw, map($_->visual, @{ $self->{data} }), "]";
  }

  sub raw {
    my $self = shift;
    join "", "[", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11329	11438	
==>,
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11329	11438	
==>,
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11329	11438	
==>,
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2945	3062	
==>ainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2945	3062	
==>ainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2945	3062	
==>ainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4042	4197	
==>me)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidates, $File::Find::name;
        };
        fin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17594	17691	
==>t of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17594	17691	
==>t of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4881	4996	
==>r_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4881	4996	
==>r_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5471	5586	
==>r_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9562	9732	
==>l  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass the st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10533	10652	
==>sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $prog <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10527	10646	
==>sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $prog <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13924	14028	
==>and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17401	17505	
==>and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16781	16885	
==>and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1197	1303	
==>\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2071	2177	
==>\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	582	681	
==>\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1151	1277	
==>alid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1151	1277	
==>alid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1151	1277	
==>alid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { un <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7358	7463	
==>tories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7358	7463	
==>tories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17185	17274	
==>>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8200	8344	
==>", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8200	8344	
==>", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8200	8344	
==>", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1121	1222	
==>s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1121	1222	
==>s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1121	1222	
==>s only output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18880	18977	
==>ative
compiler creates, but which we obviously don't have).


=head1 struct regexp

  typedef stru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19432	19524	
==>d data manipulation statements but that the target relation
variables are system catalog rela <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19432	19524	
==>d data manipulation statements but that the target relation
variables are system catalog rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2291	2388	
==>ented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2291	2388	
==>ented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2291	2388	
==>ented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14244	14476	
==>ined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14244	14476	
==>ined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19885	19970	
==>::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval($cc->as_p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6415	6522	
==>.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<reall <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6415	6522	
==>.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<reall <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8612	8719	
==>.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<reall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1626	1749	
==>class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1626	1749	
==>class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1626	1749	
==>class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1076	1180	
==>e type";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub subtract {
    m <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1411	1512	
==>) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 're <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1411	1512	
==>) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 're <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4458	4597	
==>',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4458	4597	
==>',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27887	27989	
==>inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32439	32541	
==>inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31531	31633	
==>inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  T <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1788	1897	
==>ecimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

reg <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1788	1897	
==>ecimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1102	1210	
==>r $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1102	1210	
==>r $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1102	1210	
==>r $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2242	2342	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2242	2342	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2242	2342	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = arg <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1729	1853	
==>─┘
        array => "Array", iarray => "Array", #  └── "" ──┘
      );

our %sigils
    = ( (map { $_ => '% <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5418	5517	
==>Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5418	5517	
==>Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5749	5889	
==>:Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5749	5889	
==>:Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5749	5889	
==>:Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $value = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9281	9394	
==>am'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9281	9394	
==>am'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9281	9394	
==>am'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8262	8382	
==>%$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

me <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8262	8382	
==>%$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

me <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	709	808	
==>see if something
like this can work" to "ok, this looks doable".  So yes, the code is
an utter mess. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	346	464	
==>ass             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25219	25317	
==>l indicating whether the immutable identity of the
argument C<$other> equals the immutable identity <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29771	29869	
==>l indicating whether the immutable identity of the
argument C<$other> equals the immutable identity <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28701	28799	
==>l indicating whether the immutable identity of the
argument C<$other> equals the immutable identity <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4031	4140	
==>cant'
	    if defined $args->{invocant};
    }

    for my $param_name (keys %{$self->named || {}}) {
	my $par <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6682	6781	
==>s a document identified by a URL and stores it in the file. The
return value is the HTTP response co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6682	6781	
==>s a document identified by a URL and stores it in the file. The
return value is the HTTP response co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15234	15358	
==>m1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::gre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15513	15637	
==>m1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::gre <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19468	19579	
==>ds {  # see clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatement>
    | <ExpressionStatement> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15928	16050	
==>arn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15928	16050	
==>arn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15928	16050	
==>arn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3065	3175	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_dec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3258	3368	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_dec <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	179	266	
==>ng::Escape qw/quote printable/;
use Blondie::Reducer::DuplicateFinder;
use Blondie::Type <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1758	1861	
==>= Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4542	4644	
==>my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.comple <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4542	4644	
==>my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2359	2474	
==>oblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2359	2474	
==>oblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2359	2474	
==>oblem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11693	11797	
==>f->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4336	4440	
==>f->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4881	4977	
==>Min) --> {true}.

%# XXX - spaces permitted around **
p6_range(W, Z) --> "**{", !, p6_range_bound <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3287	3390	
==>y $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3287	3390	
==>y $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3287	3390	
==>y $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13109	13239	
==>l with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13109	13239	
==>l with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13109	13239	
==>l with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	282	378	
==>njsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	282	378	
==>njsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	282	378	
==>njsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	559	670	
==>rs_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	559	670	
==>rs_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	559	670	
==>rs_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	687	854	
==>e, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4045	4135	
==>24.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4045	4135	
==>24.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14378	14480	
==>($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14378	14480	
==>($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14378	14480	
==>($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1066	1227	
==>r   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1066	1227	
==>r   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$po <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1131	1219	
==>CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut") <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8127	8259	
==>12 != ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            loop(;$k < $length; $k++) <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1062	1153	
==>Clutter::int_size 2;
Clutter::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5492	5593	
==>robber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5492	5593	
==>robber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5492	5593	
==>robber = Frotz->new({ source => $fh });
    Class::Rebless->custom($frobber, "SuperFrotz", { editor => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1069	1217	
==>air(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1069	1217	
==>air(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1069	1217	
==>air(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11072	11227	
==>(0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11072	11227	
==>(0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11072	11227	
==>(0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15446	15548	
==>UB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15446	15548	
==>UB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15446	15548	
==>UB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2776	2910	
==>($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2776	2910	
==>($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2776	2910	
==>($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18601	18733	
==>. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchabl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18601	18733	
==>. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchabl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18601	18733	
==>. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchabl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15977	16068	
==>35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15977	16068	
==>35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3970	4093	
==>ies listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3970	4093	
==>ies listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9885	10001	
==>d_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we're V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4328	4438	
==>tance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4328	4438	
==>tance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4328	4438	
==>tance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1078	1174	
==>lper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1078	1174	
==>lper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1078	1174	
==>lper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	673	789	
==>ethods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	673	789	
==>ethods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	673	789	
==>ethods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	163	283	
==>ches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	163	283	
==>ches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	163	283	
==>ches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    retur <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20477	20597	
==>oin("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1238	1351	
==>$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1378	1491	
==>$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9835	9960	
==>. ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9835	9960	
==>. ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26878	26971	
==>y and/or
same-named accessor method can be used to see if a Relation::Example-doing object
can <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5922	6040	
==>"pSyms">.map:{ $_[0] };
        dbg "# Symbols:    @symbols[]";

        dbg "# Statements: "; my $statements = travers <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3307	3400	
==>ssigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3307	3400	
==>ssigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	390	502	
==>n)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	390	502	
==>n)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	390	502	
==>n)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	832	951	
==>eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	832	951	
==>eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	832	951	
==>eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { sh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10085	10227	
==>dent =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$id <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6426	6568	
==>dent =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$id <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7275	7417	
==>dent =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19819	19917	
==>s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19819	19917	
==>s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19819	19917	
==>s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8651	8766	
==>});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
} <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1555	1650	
==>SO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1555	1650	
==>SO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1327	1437	
==>as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1327	1437	
==>as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1327	1437	
==>as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6879	6984	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6879	6984	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6879	6984	
==>, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3149	3245	
==>ram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3149	3245	
==>ram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3149	3245	
==>ram}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2701	2810	
==>ers

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2701	2810	
==>ers

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	947	1046	
==>$compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$smokese <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4157	4282	
==>,             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4157	4282	
==>,             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1007	1132	
==>,             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2266	2393	
==>lly relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2266	2393	
==>lly relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2266	2393	
==>lly relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37927	38017	
==>ule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37927	38017	
==>ule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Templa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6392	6496	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6392	6496	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6392	6496	
==>ods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1374	1475	
==>erl5" regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 regexes that us <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37138	37231	
==>rts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method take <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37138	37231	
==>rts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method take <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10532	10651	
==>$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10532	10651	
==>$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10532	10651	
==>$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9764	9890	
==>]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9764	9890	
==>]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9764	9890	
==>]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9327	9426	
==>LTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9327	9426	
==>LTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9327	9426	
==>LTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	430	536	
==>atch themselves

# the code tries to provide reusable code for driving events, and implements a
# "named ev <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11587	11676	
==>are `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-st <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11645	11734	
==>are `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5509	5630	
==>) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5509	5630	
==>) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5509	5630	
==>) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13923	14030	
==>o_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13923	14030	
==>o_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12250	12421	
==>[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12250	12421	
==>[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12250	12421	
==>[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1126	1243	
==>P; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Time <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1093	1210	
==>P; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Time <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	804	912	
==>kend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->compile($program);
    my $resu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	246	374	
==>essage;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	246	374	
==>essage;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13221	13315	
==>= $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unexpected on zero-length ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	316	422	
==>containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	316	422	
==>containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	316	422	
==>containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1501	1616	
==>extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1501	1616	
==>extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made a <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	400	507	
==>one ?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.defined and !$tz.isa("Tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1460	1602	
==>s')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1460	1602	
==>s')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1460	1602	
==>s')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	715	828	
==>ile      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	715	828	
==>ile      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns St <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9309	9409	
==>8.4
      <!before <LineTerminator>> <-[\'\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSeque <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3238	3357	
==>e constant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constant <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20888	20993	
==>ment :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Statement> <'else'> <Statement>
    | <'i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4915	5005	
==>fined $PIL::PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5603	5703	
==>rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5603	5703	
==>rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5603	5703	
==>rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1201	1304	
==>JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1201	1304	
==>JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1201	1304	
==>JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	69	164	
==>b register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	69	164	
==>b register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	69	164	
==>b register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19949	20044	
==>it will
return I<"uname:password"> as a single string value.

When used to set the header value, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19949	20044	
==>it will
return I<"uname:password"> as a single string value.

When used to set the header value, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	129	223	
==>fig  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Class::dir( cwd() )->subdir( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10911	11063	
==>turn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7985	8128	
==>turn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7985	8128	
==>turn $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #pri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4254	4356	
==>est( Str $description? )>

Compares the receivied and expected lines from the previously run tests,
pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4254	4356	
==>est( Str $description? )>

Compares the receivied and expected lines from the previously run tests,
pas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4334	4436	
==>est( Str $description? )>

Compares the receivied and expected lines from the previously run tests,
pas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16334	16604	
==>1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16334	16604	
==>1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16334	16604	
==>1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19850	19947	
==>ve this organization partly by how Mac OS X manages its
resources.  It is the standard practice fo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19850	19947	
==>ve this organization partly by how Mac OS X manages its
resources.  It is the standard practice fo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27570	27665	
==>ew Relation has all
of the tuples of the original (or rather, the corresponding extension of
eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32122	32217	
==>ew Relation has all
of the tuples of the original (or rather, the corresponding extension of
eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8608	8715	
==>->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8608	8715	
==>->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8608	8715	
==>->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1653	1762	
==>ule provides an implementation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8679	8851	
==>n $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12156	12328	
==>n $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36752	36845	
==>rite F<Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative look-ahead <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19979	20072	
==>s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19979	20072	
==>s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19979	20072	
==>s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2455	2551	
==>eturn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2455	2551	
==>eturn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2455	2551	
==>eturn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3219	3333	
==>ge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3219	3333	
==>ge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3219	3333	
==>ge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4163	4268	
==>ine\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" ], <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16153	16250	
==>itself works, and will
not spend much time in providing rationales; you can read TTM itself and
va <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16153	16250	
==>itself works, and will
not spend much time in providing rationales; you can read TTM itself and
va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15987	16164	
==>e => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15981	16158	
==>e => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6410	6512	
==>(is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	199	302	
==>(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) work <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	199	302	
==>(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) work <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	199	302	
==>(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) work <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4267	4410	
==>ub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4808	4951	
==>ub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->boo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15410	15516	
==>>>>'> <AdditiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1069	1172	
==>oxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1069	1172	
==>oxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1069	1172	
==>oxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7641	7757	
==>($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7641	7757	
==>($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7641	7757	
==>($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5015	5114	
==>he test in the current test file.

=item B<Str $.description>

The test's description (optional).

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5015	5114	
==>he test in the current test file.

=item B<Str $.description>

The test's description (optional).

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7212	7311	
==>he test in the current test file.

=item B<Str $.description>

The test's description (optional).

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	357	468	
==>return { num => 'Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { num => 'NaN' ,} } ) );
    __PACK <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	880	985	
==>ting it (eg, by ToNumber).
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	341	451	
==>d $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38454	38548	
==>value is
substituted for any occurance of its corresponding variable name that is
bounded by '< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38454	38548	
==>value is
substituted for any occurance of its corresponding variable name that is
bounded by '< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	439	544	
==>p{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	439	544	
==>p{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	439	544	
==>p{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1376	1474	
==>=> &infix:<cmp>);

 type KeyExtractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, A <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18029	18120	
==>ot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
speci <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18029	18120	
==>ot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
speci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	650	748	
==>* Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	650	748	
==>* Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	650	748	
==>* Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1588	1681	
==>m http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

= <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1588	1681	
==>m http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

= <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1081	1173	
==>an1dir},
        installsiteman3dir => $Config{installsiteman3dir} || $Config{installman3dir} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2463	2572	
==>or all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl block with pl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	511	609	
==>lass.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	511	609	
==>lass.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3723	3833	
==>ing.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7200	7310	
==>ing.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6157	6267	
==>ing.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pai <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5184	5348	
==>od reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5184	5348	
==>od reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	869	973	
==>in implementing it (eg, by ToNumber).
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1 <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2409	2536	
==>k;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7523	7623	
==>verse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7523	7623	
==>verse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25854	25965	
==>lasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # me <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11876	11977	
==>ode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re nor <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11876	11977	
==>ode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5616	5722	
==>y = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5616	5722	
==>y = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5616	5722	
==>y = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10940	11034	
==>th_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<d <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10940	11034	
==>th_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7366	7473	
==>r {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams = ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35408	35502	
==>bject as an array ref.

=item C<get_member_names()>

This method returns all Member Names eleme <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35408	35502	
==>bject as an array ref.

=item C<get_member_names()>

This method returns all Member Names eleme <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13492	13620	
==>heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16969	17097	
==>heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16331	16459	
==>heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4010	4149	
==>es[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4010	4149	
==>es[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1984	2099	
==>hift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scalar_store($valu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1030	1162	
==>>{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2185	2303	
==>FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2185	2303	
==>FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4402	4521	
==>die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4402	4521	
==>die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4402	4521	
==>die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9945	10076	
==>should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9945	10076	
==>should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9945	10076	
==>should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating s <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3716	3816	
==>:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:< <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1816	1916	
==>:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:< <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	688	788	
==>~ s/ [+-]\d+ \(.*$//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2536	2651	
==>$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2536	2651	
==>$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2536	2651	
==>$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3681	3795	
==>$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\textascii <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	383	481	
==>n($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	383	481	
==>n($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen: <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6520	6618	
==>ve ordering anyway and it's probably okay to keep a few
# zombies around for a relatively short whi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	42	169	
==>uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	42	169	
==>uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4933	5045	
==>);
	 return { macro => $() ,}
	}
RULE
*{'empty_list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \(\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14851	15006	
==>: 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14851	15006	
==>: 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14851	15006	
==>: 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shift <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4236	4333	
==>| $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4236	4333	
==>| $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	871	987	
==>(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	871	987	
==>(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	871	987	
==>(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5624	5759	
==>f( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5846	5981	
==>f( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5968	6076	
==>rn sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	560	655	
==>:rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	614	747	
==>amples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	614	747	
==>amples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7715	7854	
==>ks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get her <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7715	7854	
==>ks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get her <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2590	2684	
==>print STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. hardcode special tre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29754	29854	
==>naffected invocant's attributes.  This method
supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34306	34406	
==>naffected invocant's attributes.  This method
supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33470	33570	
==>naffected invocant's attributes.  This method
supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6824	6918	
==>"Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6824	6918	
==>"Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_chi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35101	35194	
==>thod defined in F<Regexp::Parser::branch>,
which is used when two of the same node are matched <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9455	9566	
==>port
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9455	9566	
==>port
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11089	11239	
==>eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11089	11239	
==>eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11089	11239	
==>eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9910	10052	
==>method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1975	2107	
==>method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1975	2107	
==>method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7346	7473	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8698	8825	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19366	19493	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3928	4031	
==>aracter)
  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${& <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8301	8402	
==>_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8301	8402	
==>_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1153	1272	
==>0,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1153	1272	
==>0,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1153	1272	
==>0,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4045	4153	
==>. $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4045	4153	
==>. $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4045	4153	
==>. $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', abor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11118	11279	
==>if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11118	11279	
==>if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11118	11279	
==>if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_decl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2823	2941	
==>Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2823	2941	
==>Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2823	2941	
==>Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11356	11460	
==>he standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14833	14937	
==>he standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14141	14245	
==>he standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18479	18635	
==>on,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Internals::sprintf($conversion,1.0*$arg);
            }
            w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2968	3057	
==>rs.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2968	3057	
==>rs.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18606	18759	
==>rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18885	19038	
==>rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2450	2560	
==>run($^X, qw<util/gen_prelude.pl -v -i src/perl6/Prelude.pm>,
                (map { ('-i' => $_) } @{ PugsBuild <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	388	488	
==>=~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	388	488	
==>=~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	388	488	
==>=~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3481	3584	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3481	3584	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3481	3584	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	994	1103	
==>rred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	994	1103	
==>rred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	994	1103	
==>rred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemente <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5583	5706	
==>compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5595	5718	
==>compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1 <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5332	5430	
==>t_cmd]}`;
    $self->{_revision} ||= "unknown";
    print "$rev_get_cmd returns revision '@{[$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4655	4748	
==>*WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create('WA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1838	1947	
==>rollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1838	1947	
==>rollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1838	1947	
==>rollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7858	8042	
==>nion              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11335	11519	
==>nion              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10499	10683	
==>nion              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1272	1367	
==>nt size because the
algorithm is based on statistics. This was my main motivation to
implement i <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1272	1367	
==>nt size because the
algorithm is based on statistics. This was my main motivation to
implement i <==
3	/Users/nnunley/pugs/util/grokprims.pl	115	230	
==>ecial',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-a <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4181	4288	
==>ite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::Fal <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4181	4288	
==>ite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::Fal <==
3	/Users/nnunley/pugs/util/func_refact.pl	1016	1139	
==>}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1789	1883	
==>o Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1718	1811	
==>o Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, i <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6070	6212	
==>of individual todo tests

    files           Number of test files ran
    good            Number of test files passed
    bad             Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16213	16315	
==>ile.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16213	16315	
==>ile.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	303	412	
==>turn $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub fin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5495	5611	
==>ld a from => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### move. Which <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	679	770	
==>ME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	679	770	
==>ME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5793	5903	
==>my $dir ( File::Find::Rule->directory->in( $from ) ) {
            ### strip the leading dirs from the target s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20810	20904	
==>ield_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20810	20904	
==>ield_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21551	21642	
==>bases before, especially given that the Perl DBI purports to provide
"Database Independence" <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21551	21642	
==>bases before, especially given that the Perl DBI purports to provide
"Database Independence" <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6675	6797	
==>s_multi, $lvalue, @params, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pSubBody" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2836	2940	
==>less %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2836	2940	
==>less %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2470	2574	
==>nes.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1721	1819	
==>le lookup), App (application) and Lit (literal).



App is divided to Multiple, Single and Primitiv <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1652	1748	
==>le lookup), App (application) and Lit (literal).

App is divided to Multiple, Single and Primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	172	277	
==>"lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	172	277	
==>"lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	172	277	
==>"lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5768	5862	
==>test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5768	5862	
==>test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7292	7386	
==>test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6668	6788	
==>buted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6668	6788	
==>buted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6668	6788	
==>buted many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can re <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2024	2194	
==>art => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2024	2194	
==>art => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7254	7347	
==>eader("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.j <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7254	7347	
==>eader("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21543	21656	
==>UB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21543	21656	
==>UB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21543	21656	
==>UB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8260	8355	
==>" if !defined $pilc;
    $pilc->expand();
}

#================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8260	8355	
==>" if !defined $pilc;
    $pilc->expand();
}

#================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8260	8355	
==>" if !defined $pilc;
    $pilc->expand();
}

#================================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11917	12098	
==>et->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11917	12098	
==>et->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11917	12098	
==>et->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3612	3709	
==>n array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3612	3709	
==>n array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	251	363	
==>ype';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16526	16621	
==>also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16526	16621	
==>also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	649	762	
==>taphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   fee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	649	762	
==>taphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   fee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	649	762	
==>taphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   fee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4819	4913	
==>:PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4819	4913	
==>:PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4819	4913	
==>:PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3613	3717	
==>does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3613	3717	
==>does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3613	3717	
==>does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1897	2025	
==>a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't fin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1897	2025	
==>a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't fin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31740	31838	
==>).

=item min

The minimum repetition count of this object (for quantifiers).

=item neg

Whether t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12702	12806	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12702	12806	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12702	12806	
==>nstance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16234	16359	
==>od(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16234	16359	
==>od(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16234	16359	
==>od(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return key <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6238	6361	
==>$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_typ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	30	129	
==>--------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it a <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	30	129	
==>--------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it a <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3516	3617	
==>module Pugs.Config (
    config,
    getConfig
) where

import qualified Data.Map as Map
import qualif <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1328	1425	
==>gs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFI <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1328	1425	
==>gs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10444	10622	
==>y $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10444	10622	
==>y $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10444	10622	
==>y $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5168	5395	
==>.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5168	5395	
==>.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1356	1509	
==>l',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '..',
        assoc => 'left',
        precedence => 'looser',
        o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12655	12801	
==>,
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12934	13080	
==>,
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7857	7957	
==>.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modify(M,R)) --> ":", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1830	1953	
==>me . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1830	1953	
==>me . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1830	1953	
==>me . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17525	17623	
==>he span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17525	17623	
==>he span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the in <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13904	14031	
==>reference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matchi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13904	14031	
==>reference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matchi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34337	34428	
==>tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation::Example has al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8132	8244	
==>f = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8132	8244	
==>f = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8132	8244	
==>f = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1445	1555	
==>DO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1445	1555	
==>DO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1445	1555	
==>DO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1940	2069	
==>body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { nam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	886	980	
==>st or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	886	980	
==>st or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14151	14288	
==>n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14145	14282	
==>n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5730	5853	
==>ub recompile {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1465	1579	
==>st>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1465	1579	
==>st>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1465	1579	
==>st>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	116	205	
==>cfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($k <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	116	205	
==>cfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($k <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1325	1436	
==>tings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filename <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37839	37936	
==>ew relation is
the result of first pairwise-matching every tuple of each source relation
with ever <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42388	42485	
==>ew relation is
the result of first pairwise-matching every tuple of each source relation
with ever <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42038	42135	
==>ew relation is
the result of first pairwise-matching every tuple of each source relation
with ever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	970	1066	
==>ough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	970	1066	
==>ough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	970	1066	
==>ough Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2178	2273	
==>d product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2178	2273	
==>d product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7580	7671	
==>e($_[1]);
};
multi unify => ('type::operator', 'type::variable::free') => sub { $_[1]->insta <==
3	/Users/nnunley/pugs/util/grokprims.pl	106	224	
==>e  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'r <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1262	1360	
==>s the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title-> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1262	1360	
==>s the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3720	3827	
==>ix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3720	3827	
==>ix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3720	3827	
==>ix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $va <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12057	12149	
==>-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résum <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12057	12149	
==>-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5317	5424	
==>$body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5317	5424	
==>$body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5317	5424	
==>$body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	496	599	
==>0, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this shou <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	496	599	
==>0, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this shou <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1763	1868	
==>th returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1763	1868	
==>th returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	314	408	
==>n",'package');
    Perl6::Run::OnPerl5::X1::Prelude::initialize();
#    END { p6_apply(p6_var(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	694	823	
==>t next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	694	823	
==>t next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	694	823	
==>t next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6138	6234	
==>may be a little jumbled or hard to understand.  If you find a problem,
please let L<me|/"AUTHOR"> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	459	554	
==>e Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	459	554	
==>e Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2175	2292	
==>ernals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'ya <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33648	33740	
==>rsion of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38198	38290	
==>rsion of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33236	33435	
==>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33236	33435	
==>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33236	33435	
==>start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1182	1283	
==>{
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1182	1283	
==>{
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1182	1283	
==>{
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2894	3009	
==>die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2894	3009	
==>die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2894	3009	
==>die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub u <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9451	9776	
==>ed any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.star <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9451	9776	
==>ed any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7731	7840	
==>,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7731	7840	
==>,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7731	7840	
==>,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5850	5958	
==>s,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5850	5958	
==>s,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5850	5958	
==>s,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2027	2150	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2027	2150	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2027	2150	
==>e if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_sp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26398	26493	
==>able values which are references will be passed by reference, so you
may store references to oth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26398	26493	
==>able values which are references will be passed by reference, so you
may store references to oth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8970	9060	
==>od fails';
fails_ok { $iFoo->singleton_test_on_object } '... instance calling metaclass sin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8196	8321	
==>{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8184	8309	
==>{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$matc <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8565	8668	
==>ary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify $x-> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4694	4807	
==>ages in the DIAGNOSTICS section.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\, $,);

    my($tot, $fa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27839	27931	
==>ONE)
 #define RX_MATCH_COPIED_off(prog)	((prog)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3249	3382	
==>_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3249	3382	
==>_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3249	3382	
==>_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5743	5892	
==>re     sum     safe   (List)\
\\n   Scalar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     un <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	226	338	
==>e {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	190	302	
==>e {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6175	6293	
==>arse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6175	6293	
==>arse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3000	3108	
==>n (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3000	3108	
==>n (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3000	3108	
==>n (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  P <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	912	1040	
==>YNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1518	1634	
==>:Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1518	1634	
==>:Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1518	1634	
==>:Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1048	1157	
==>->to_native;
    # we take the MRO first, however at some early
    # stages of the bootstrap, this is not yet <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3000	3101	
==>om number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to sen <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3000	3101	
==>om number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to sen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	594	793	
==>ss, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	594	793	
==>ss, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	594	793	
==>ss, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6220	6408	
==>t( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9697	9885	
==>t( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8771	8959	
==>t( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16773	16957	
==>');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16773	16957	
==>');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16773	16957	
==>');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14700	14885	
==>>zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14700	14885	
==>>zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14700	14885	
==>>zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $cod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24290	24390	
==>α → α", "pretty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::varia <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2498	2592	
==>d_smoke($html_location);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14948	15060	
==>ms} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler;
use base qw/Reducer M <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15918	16007	
==>arent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and retur <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15918	16007	
==>arent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4812	4944	
==>latten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4812	4944	
==>latten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4812	4944	
==>latten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't inst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1630	1741	
==>1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}(\s+)(.*)$/s <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1549	1645	
==>tion or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to d <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1549	1645	
==>tion or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4950	5064	
==>> $app,
			struct_equiv => $unified_app,
		);
	}

	sub simplify_type {
		my $self = shift;
		my $type = shift;
		wh <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1030	1126	
==>> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1030	1126	
==>> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9872	10032	
==>todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	444	594	
==>todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	444	594	
==>todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1310	1466	
==>xpectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Fai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1310	1466	
==>xpectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Fai <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22484	22584	
==>mentList>?
}
rule LabelledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
rule <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8192	8310	
==>an, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $Clas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	407	513	
==>an, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Clas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	407	513	
==>an, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Clas <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1866	1961	
==>>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair con <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1866	1961	
==>>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4523	4642	
==>rray->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4523	4642	
==>rray->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4523	4642	
==>rray->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8640	8775	
==>H() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8640	8775	
==>H() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8640	8775	
==>H() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BIND <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33137	33226	
==>c_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37687	37776	
==>c_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	118	233	
==>ort ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	118	233	
==>ort ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21193	21288	
==>t>
    | <'for'> <'('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression>? <')'> <Statemen <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4087	4205	
==>./../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refact <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4087	4205	
==>./../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refact <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	559	656	
==>cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	559	656	
==>cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	559	656	
==>cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4666	4788	
==>me\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4678	4800	
==>me\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4239	4343	
==>char = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    goto err_no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5707	5828	
==>IB::Installation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7461	7556	
==>text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7461	7556	
==>text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2882	3026	
==>ovides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warnings as we are not checking manifest here.

    loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	475	576	
==>gs they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	475	576	
==>gs they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1471	1585	
==>amic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2920	3032	
==>bject;

=cut

sub extract_meta_object {
    my $self = shift;
    my $conf = $self->config;
    my $meta = $self- <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	649	759	
==>'&infix:<*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name => "simple multiplication",
	},
	{
		ast => App <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3594	3722	
==>igenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3594	3722	
==>igenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3594	3722	
==>igenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16759	16942	
==>r => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16759	16942	
==>r => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16759	16942	
==>r => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5798	5908	
==>+];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5798	5908	
==>+];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5798	5908	
==>+];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1153	1255	
==>lf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1153	1255	
==>lf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1153	1255	
==>lf->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26040	26135	
==>e version.  Each variable name is a machine-readable short
string; the allowed variable names yo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26040	26135	
==>e version.  Each variable name is a machine-readable short
string; the allowed variable names yo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1904	2006	
==>t($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1904	2006	
==>t($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15846	15941	
==>ely, sometimes a program will raise a condition or error that,
while resembling a message that w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15846	15941	
==>ely, sometimes a program will raise a condition or error that,
while resembling a message that w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1209	1328	
==>er(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1209	1328	
==>er(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1209	1328	
==>er(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23080	23317	
==>r );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23080	23317	
==>r );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23080	23317	
==>r );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5892	6005	
==>or_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5892	6005	
==>or_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5892	6005	
==>or_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11679	11786	
==>s 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
} <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	94	191	
==>ethods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object repr <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	94	191	
==>ethods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object repr <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1854	1994	
==>E;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1854	1994	
==>E;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbu <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1095	1194	
==>mbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4136	4246	
==>r $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4136	4246	
==>r $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4216	4326	
==>r $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to run.

=item B <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16109	16246	
==>rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16109	16246	
==>rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig", <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7091	7187	
==>i, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pS <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7402	7655	
==>een{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7402	7655	
==>een{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    } <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2677	2798	
==>$all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10350	10455	
==>vious( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10350	10455	
==>vious( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1807	1919	
==>ation, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1807	1919	
==>ation, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1807	1919	
==>ation, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7855	7971	
==>$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7855	7971	
==>$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7855	7971	
==>$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $h <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19482	19621	
==>s L<S02> etc should just link to the top?
                # this is what you get at the moment
                push @bad_heading, "link in $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	557	653	
==>QUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	557	653	
==>QUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6528	6709	
==>=> $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6528	6709	
==>=> $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4153	4268	
==>y.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4153	4268	
==>y.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4153	4268	
==>y.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	906	1021	
==>ed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	906	1021	
==>ed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	906	1021	
==>ed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6110	6213	
==>s to do to signal
this is to return the string set in advance with the prune method.

This feature is us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6110	6213	
==>s to do to signal
this is to return the string set in advance with the prune method.

This feature is us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6110	6213	
==>s to do to signal
this is to return the string set in advance with the prune method.

This feature is us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10224	10351	
==>/^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compile <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10224	10351	
==>/^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compile <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8981	9099	
==>es this,
        # but we can't rely upon everyone having it.  As such, we have
        # a very special cygwin work-ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15178	15317	
==>symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1468	1574	
==>Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1468	1574	
==>Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1631	1955	
==>.new(:node<Int>).add_children(
                                        Tree.new(:node<Bit>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Bool>),
                        Tree.n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12505	12605	
==>ble)
# this new env is passed down to the body, but is also reused in the 'type' attr
fun: env($.body <==
3	/Users/nnunley/pugs/util/claim_drift.pl	307	405	
==>, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sit <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18861	18954	
==>d_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.export <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18861	18954	
==>d_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2902	2990	
==>END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2902	2990	
==>END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2902	2990	
==>END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	134	236	
==>exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	134	236	
==>exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	134	236	
==>exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MM <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4126	4248	
==>"{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2856	2958	
==>use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2856	2958	
==>use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1869	1971	
==>aml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1869	1971	
==>aml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1869	1971	
==>aml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cm <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3029	3123	
==>r closure, which can be called repeatedly to encipher data.
The encipherer closure can be calle <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3029	3123	
==>r closure, which can be called repeatedly to encipher data.
The encipherer closure can be calle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8877	9035	
==>)
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9070	9228	
==>)
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4628	4738	
==>s),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11622	11769	
==>{
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11622	11769	
==>{
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11622	11769	
==>{
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4588	4700	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(un <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4646	4758	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(un <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9355	9447	
==>p::StructHook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "a <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2573	2697	
==>es};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cook <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2573	2697	
==>es};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cook <==
3	/Users/nnunley/pugs/util/package-osx.pl	7491	7588	
==>cy.3pm
        /usr/local/man/man3/Perl6::Spec::Documentation.3
        /usr/local/man/man3/Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	185	280	
==>ags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#in <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	338	433	
==>ags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10206	10317	
==>IL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10206	10317	
==>IL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10206	10317	
==>IL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PIL::P5Macro;
use Pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	435	566	
==>a($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	435	566	
==>a($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	435	566	
==>a($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package E <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12660	12777	
==>nv($$);
	my %new = (
		%$orig,
		$.param => type::variable::free->new()
	);
	\%new;
}

# inherit the set of generic va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	547	644	
==>ode we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	547	644	
==>ode we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20578	20677	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20578	20677	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20578	20677	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1760	1873	
==>Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1760	1873	
==>Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1760	1873	
==>Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1627	1726	
==>ance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1627	1726	
==>ance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1627	1726	
==>ance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4212	4348	
==>";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4212	4348	
==>";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4212	4348	
==>";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4244	4379	
==>ndef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4244	4379	
==>ndef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4244	4379	
==>ndef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	429	562	
==>:)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	429	562	
==>:)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	429	562	
==>:)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7102	7234	
==>arn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7102	7234	
==>arn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7102	7234	
==>arn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4833	5026	
==>od(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4833	5026	
==>od(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4833	5026	
==>od(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2288	2394	
==>a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2288	2394	
==>a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2288	2394	
==>a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1316	1421	
==>d";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1316	1421	
==>d";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1316	1421	
==>d";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2193	2325	
==>== shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinit <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2193	2325	
==>== shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	258	372	
==>$self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6536	6631	
==>pplication'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8072	8162	
==>s_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8072	8162	
==>s_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8022	8167	
==>}
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8022	8167	
==>}
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8022	8167	
==>}
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1419	1526	
==>ox.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1419	1526	
==>ox.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1419	1526	
==>ox.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	82	183	
==>on (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	82	183	
==>on (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	82	183	
==>on (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3706	3817	
==>G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11324	11458	
==>:Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11324	11458	
==>:Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11324	11458	
==>:Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	369	461	
==>stant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
use const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1935	2075	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1935	2075	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1935	2075	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5721	5887	
==>ames.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5721	5887	
==>ames.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	592	779	
==>rolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	592	779	
==>rolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	592	779	
==>rolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	117	215	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	117	215	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	117	215	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2636	2761	
==>ap { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2636	2761	
==>ap { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2636	2761	
==>ap { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3796	3904	
==>' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3796	3904	
==>' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	646	754	
==>' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4263	4399	
==>L_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_E <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4263	4399	
==>L_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_E <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1113	1249	
==>L_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_E <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3179	3279	
==>st module allows you to test test modules that use Test::Builder.  It
does this by you setting the ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3179	3279	
==>st module allows you to test test modules that use Test::Builder.  It
does this by you setting the ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3259	3359	
==>st module allows you to test test modules that use Test::Builder.  It
does this by you setting the ex <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1556	1679	
==>element in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1556	1679	
==>element in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10516	10604	
==>ould suffice. See the <a
    href="http://search.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10500	10599	
==>me = quotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node::va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11071	11168	
==>a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a conta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11071	11168	
==>a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13890	14008	
==>her(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13890	14008	
==>her(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13890	14008	
==>her(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5032	5180	
==>less (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5032	5180	
==>less (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5032	5180	
==>less (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $r <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	644	749	
==>s of whether we'll need root permission.
print "    (You may need to do that as the 'root' user.)\n"
    u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5831	5933	
==>Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9308	9410	
==>Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	328	450	
==>'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	533	655	
==>'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	589	711	
==>'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1882	1992	
==>y $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Ca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1882	1992	
==>y $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Ca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2118	2228	
==>y $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::Ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35942	36083	
==>_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35942	36083	
==>_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35942	36083	
==>_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negativ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9145	9289	
==>elete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9145	9289	
==>elete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1796	1896	
==>:Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper($node);
		cho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	109	228	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	109	228	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	109	228	
==>w PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12745	12912	
==>ro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9019	9186	
==>ro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9854	10021	
==>ro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1294	1401	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1294	1401	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1294	1401	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9579	9711	
==>ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10415	10547	
==>ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1907	2040	
==>{   my $info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1611	1736	
==>elude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      wa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1406	1529	
==>elude',
        'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      wa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	498	616	
==>it>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subna <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	498	616	
==>it>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subna <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10949	11062	
==>provided only one delimiter was specified)
      my $regex    = $7; 
      # captures delimited portion of the str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	625	731	
==>t were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	625	731	
==>t were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	625	731	
==>t were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:d <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	42	138	
==>methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are kno <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	42	138	
==>methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are kno <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	252	334	
==>:TypeSafe::Flatten->new->reduce(
		Blondie::TypeSafe::Annotator->new->annotate($run <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2885	2991	
==>ject(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control charact <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1506	1596	
==>e unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1506	1596	
==>e unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4654	4766	
==>AML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case u <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4513	4625	
==>AML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10141	10300	
==>urn ::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $nu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	695	848	
==>urn ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $nu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	695	848	
==>urn ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1247	1350	
==>::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1247	1350	
==>::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1247	1350	
==>::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11006	11108	
==>arn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11006	11108	
==>arn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11006	11108	
==>arn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2831	2924	
==>turns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2831	2924	
==>turns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29276	29398	
==>- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29276	29398	
==>- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29276	29398	
==>- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13474	13609	
==>::ifmatch::_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13822	13922	
==>der field in turn.  The callback routine
is called with two parameters; the name of the field and a s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13822	13922	
==>der field in turn.  The callback routine
is called with two parameters; the name of the field and a s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	380	614	
==>"$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	920	1025	
==>::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./g <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	920	1025	
==>::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	132	259	
==>$env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	132	259	
==>$env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	132	259	
==>$env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub ent <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	123	244	
==>$_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	87	207	
==>$_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	175	295	
==>$_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6851	6957	
==>6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6851	6957	
==>6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6851	6957	
==>6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MU <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1799	1947	
==>e');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!pars <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1799	1947	
==>e');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5615	5717	
==>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5615	5717	
==>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5615	5717	
==>eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  m <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14322	14425	
==>my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1802	1905	
==>my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30104	30200	
==>ative for the functionality provided
by the 5 generic relational operators [C<extend>, C<project> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34656	34752	
==>ative for the functionality provided
by the 5 generic relational operators [C<extend>, C<project> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33829	33925	
==>ative for the functionality provided
by the 5 generic relational operators [C<extend>, C<project> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13279	13378	
==>y $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13279	13378	
==>y $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13279	13378	
==>y $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19509	19598	
==>C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19509	19598	
==>C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2615	2722	
==>nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2615	2722	
==>nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2615	2722	
==>nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2788	2891	
==>-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2788	2891	
==>-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2788	2891	
==>-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	999	1117	
==>self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx -> $container # autovivifica <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3750	3847	
==>row' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The strin <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3750	3847	
==>row' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17577	17684	
==>->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17577	17684	
==>->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17577	17684	
==>->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30823	30916	
==>formation have been eliminated. 
Trivial cases are where C<$transformer> returns either an emp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35374	35466	
==>formation have been eliminated.
Trivial cases are where C<$transformer> returns either an emp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34565	34657	
==>formation have been eliminated.
Trivial cases are where C<$transformer> returns either an emp <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1130	1304	
==>_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao. <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1130	1304	
==>_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	323	435	
==>o 
# be used in bootstrapping
our $NULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    has <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2753	2852	
==>an be removed by XORing them together; you might not be able to derive the 
plaintext from the resul <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2753	2852	
==>an be removed by XORing them together; you might not be able to derive the 
plaintext from the resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1296	1408	
==>od () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1296	1408	
==>od () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1296	1408	
==>od () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26206	26374	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26206	26374	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26206	26374	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1317	1435	
==>$i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1317	1435	
==>$i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1317	1435	
==>$i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9693	9813	
==>nvocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13170	13290	
==>nvocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12442	12562	
==>nvocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1448	1542	
==>R::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1448	1542	
==>R::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1448	1542	
==>R::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7580	7706	
==>ROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7580	7706	
==>ROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7580	7706	
==>ROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	424	532	
==>od BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
} <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	424	532	
==>od BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
} <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	599	705	
==>^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = File::Basename::base <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	217	326	
==>hat userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - Th <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	217	326	
==>hat userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - Th <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1512	1606	
==>xp::Commit");
    $optable->addToken("term:<", "term:", "nows", &parse_subrule);
    $optable-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3580	3689	
==>->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    methods => {
        'reason' => sub { _('$.reason' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10528	10621	
==>vious => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10528	10621	
==>vious => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2134	2240	
==>@expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2134	2240	
==>@expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2214	2320	
==>@expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.di <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5766	5874	
==>rns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C<skip> and C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5766	5874	
==>rns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C<skip> and C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7963	8071	
==>rns Hash>

This method calls the superclass C<status> method and adds the values of the
test's C<skip> and C< <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	335	434	
==>c_paths {
	warn "inc_paths has been changed to cc_inc_paths due to confusion between Perl and C";
	s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16259	16350	
==>ut effective mechanism for
applications and packages that empowers single binaries to suppor <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16259	16350	
==>ut effective mechanism for
applications and packages that empowers single binaries to suppor <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	392	561	
==>s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	392	561	
==>s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31341	31436	
==>r children of this object.

=item dir

The direction of this object (for look-ahead/behind asser <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24772	24894	
==>xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21193	21315	
==>xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    pu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2759	2860	
==>nless ($assigned) {
			$assigned = shift @letters;
			$map{$entry->{orig}} = $assigned;
			push @foral <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	949	1063	
==>bless takes a Perl data structure and recurses through its
hierarchy, reblessing objects that it finds along the wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	949	1063	
==>bless takes a Perl data structure and recurses through its
hierarchy, reblessing objects that it finds along the wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	949	1063	
==>bless takes a Perl data structure and recurses through its
hierarchy, reblessing objects that it finds along the wa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	233	387	
==>ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	233	387	
==>ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'ex <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8869	8995	
==>st ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $a <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8869	8995	
==>st ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15234	15328	
==>Test::Harness doesn't think you're
on TTY.

The C<$width> is the width of the "yada/blah.." str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1384	1489	
==>t_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1384	1489	
==>t_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1384	1489	
==>t_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3051	3218	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3051	3218	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3051	3218	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4990	5115	
==>if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4990	5115	
==>if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4990	5115	
==>if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1590	1742	
==>/;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method cl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1590	1742	
==>/;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21413	21507	
==>Fixes

More tests added (specifically, making sure C<(?(N)T|F)> works right).
In doing so, foun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	114	218	
==>class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	114	218	
==>class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	114	218	
==>class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6020	6149	
==>ings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6020	6149	
==>ings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6020	6149	
==>ings is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(functi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11373	11585	
==>" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}++;
        }
        else {
            # List unrun tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	556	655	
==>n $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	556	655	
==>n $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1017	1126	
==>r_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1017	1126	
==>r_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8095	8215	
==>mp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8095	8215	
==>mp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8095	8215	
==>mp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4874	5004	
==>};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast->{pos} = $la <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11156	11283	
==>elf.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11156	11283	
==>elf.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13245	13355	
==>t(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13245	13355	
==>t(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13245	13355	
==>t(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3775	3871	
==>tion (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3775	3871	
==>tion (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3775	3871	
==>tion (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returnc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5753	5873	
==>le);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5753	5873	
==>le);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6343	6463	
==>le);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12116	12294	
==>0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12116	12294	
==>0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12116	12294	
==>0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24500	24598	
==>s a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29052	29150	
==>s a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27928	28026	
==>s a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutab <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2633	2734	
==>).  This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal inter <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2633	2734	
==>).  This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal inter <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6667	6833	
==>ght|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'und <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6724	6890	
==>ght|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'und <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30727	30821	
==>ject__> class,
because F<__object__> doesn't inherit from anywhere.  You want to go along
the I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4368	4483	
==>$role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4368	4483	
==>$role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4368	4483	
==>$role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	375	472	
==>ing 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	375	472	
==>ing 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	368	473	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	368	473	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	368	473	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12308	12405	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12308	12405	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12308	12405	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5078	5173	
==>enced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5078	5173	
==>enced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5078	5173	
==>enced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in the <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6886	7022	
==>ys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pS <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1076	1180	
==>an
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that T <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1076	1180	
==>an
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that T <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	910	1066	
==>ore metadata
$Metactrl       = $Meta . '/control';               # dir to store control MD
$Available      = $Meta . '/available';             # available pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	773	895	
==>$class->no_match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        ta <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3564	3672	
==>, '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10040	10153	
==>);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10040	10153	
==>);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10040	10153	
==>);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22332	22472	
==>> (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42121	42261	
==>> (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13400	13540	
==>ag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13400	13540	
==>ag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13400	13540	
==>ag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8371	8504	
==>params => closure::params->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new("$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10912	11027	
==>ue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10912	11027	
==>ue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10912	11027	
==>ue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15345	15455	
==>start}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15345	15455	
==>start}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15345	15455	
==>start}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7112	7241	
==>b->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7112	7241	
==>b->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7112	7241	
==>b->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8255	8392	
==>. ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8255	8392	
==>. ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8255	8392	
==>. ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4357	4455	
==>rameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4357	4455	
==>rameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6554	6652	
==>rameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6357	6513	
==>ASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3482	3638	
==>ASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4331	4487	
==>ASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6200	6298	
==>.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplica <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6200	6298	
==>.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplica <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	352	456	
==>_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	352	456	
==>_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15858	15962	
==>ur outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1540	1655	
==>rement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1540	1655	
==>rement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1540	1655	
==>rement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4253	4355	
==>if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4253	4355	
==>if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4843	4945	
==>if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3780	3900	
==>r (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3780	3900	
==>r (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3780	3900	
==>r (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bu <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1565	1698	
==>e;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1532	1665	
==>e;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn " <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4861	4981	
==>CKAGE__,'emit');
}
use strict;
use Perl6::Run::OnPerl5::X1::Api;

sub emit {
    my($pil_tree)=@_;
    return (undef,"emi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10398	10496	
==>ke the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10398	10496	
==>ke the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22333	22462	
==>xa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22333	22462	
==>xa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22333	22462	
==>xa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1722	1848	
==>rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1722	1848	
==>rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1722	1848	
==>rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1201	1350	
==>This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1201	1350	
==>This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mu <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1869	1968	
==>plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4497	4589	
==>=> '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4497	4589	
==>=> '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4497	4589	
==>=> '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	330	433	
==>ool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub Fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	330	433	
==>ool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub Fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	330	433	
==>ool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub Fals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10427	10582	
==>ndings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10427	10582	
==>ndings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10427	10582	
==>ndings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6206	6318	
==>@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6206	6318	
==>@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6206	6318	
==>@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	491	603	
==>i parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2019	2131	
==>i parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1558	1683	
==>vateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1558	1683	
==>vateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1558	1683	
==>vateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34868	34997	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      type => 'and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8627	8724	
==>fail()

shouldn't matchfail still be returning something?

maybe just overload bool to false ;)

( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8340	8434	
==>fail()
shouldn't matchfail still be returning something?
maybe just overload bool to false ;)
( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25683	25791	
==>named.  The argument C<$mapping> says which attributes are being
renamed, with its keys being the old names a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30235	30343	
==>named.  The argument C<$mapping> says which attributes are being
renamed, with its keys being the old names a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29201	29309	
==>named.  The argument C<$mapping> says which attributes are being
renamed, with its keys being the old names a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	952	1066	
==>ess( $meta or $meta = $self->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->pa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4642	4749	
==>turns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $o <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4642	4749	
==>turns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4464	4565	
==>e test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4464	4565	
==>e test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4544	4645	
==>e test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3416	3519	
==>aque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3416	3519	
==>aque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3416	3519	
==>aque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6911	7000	
==>::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6911	7000	
==>::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6911	7000	
==>::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5572	5713	
==>ree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5572	5713	
==>ree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5572	5713	
==>ree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9690	9806	
==>_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9690	9806	
==>_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9690	9806	
==>_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	901	1014	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	901	1014	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_A <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4231	4339	
==>no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = join <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2908	3037	
==>TML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2908	3037	
==>TML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26215	26313	
==>t. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21486	21646	
==>a( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21486	21646	
==>a( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21486	21646	
==>a( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	88	208	
==>ule;
use Pugs::Compiler::Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unles <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	329	432	
==>currence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	329	432	
==>currence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2250	2424	
==>l',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	991	1120	
==>.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	991	1120	
==>.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5306	5424	
==>ks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5306	5424	
==>ks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{ <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1393	1549	
==>dispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @args[0]!";
            }

            . <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1406	1534	
==>, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Mod <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1406	1534	
==>, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3422	3557	
==>$self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3422	3557	
==>$self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3422	3557	
==>$self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12522	12630	
==>r{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, logged <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12522	12630	
==>r{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, logged <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5239	5344	
==>les{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), which is also the ro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3177	3303	
==>tensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	953	1055	
==>n(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	953	1055	
==>n(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2096	2211	
==>ift;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $self );
}

1;


# Local vari <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3360	3451	
==>l $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complemen <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3360	3451	
==>l $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	625	745	
==>CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	625	745	
==>CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	625	745	
==>CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13735	13845	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13735	13845	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13735	13845	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $E <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	434	548	
==>),
		),
		result => 10,
		name => "nested addition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo'),
			V <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	427	529	
==>ple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	427	529	
==>ple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9662	9801	
==>ingify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9662	9801	
==>ingify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9662	9801	
==>ingify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15740	15854	
==>(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15740	15854	
==>(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15740	15854	
==>(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1916	2017	
==>his expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1916	2017	
==>his expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2201	2302	
==>/* for the struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	130	231	
==>ement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	130	231	
==>ement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	130	231	
==>ement
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bucke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36431	36545	
==>ad body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36431	36545	
==>ad body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36431	36545	
==>ad body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35202	35318	
==>en_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35202	35318	
==>en_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35202	35318	
==>en_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40082	40189	
==>$s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40082	40189	
==>$s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40082	40189	
==>$s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fet <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4548	4767	
==>es[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4548	4767	
==>es[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4002	4100	
==>er stack and binding
it to $x. Then the app is reduced. First its children will be reduced -
Sym('& <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14185	14324	
==>] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14179	14318	
==>] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12227	12327	
==>(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2259	2359	
==>ly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2259	2359	
==>ly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2259	2359	
==>ly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7598	7765	
==>,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $max <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7598	7765	
==>,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $max <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14433	14550	
==>CLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().map:{
            %attrs{$_.meta.name()} = $ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3169	3281	
==>than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = ne <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3169	3281	
==>than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = ne <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2360	2477	
==>pan ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2360	2477	
==>pan ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21407	21573	
==>txt;
        }
    }

    return { canon => $canon,  max => $test->{max} || '??',
             failed => $failed, 
             percent => $percent,
             estat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1222	1362	
==>> FILE_EXISTS },
        meta            => { allow => ISA_JIB_META },
        config          => { allow => ISA_JIB_CONFIG },
        packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1905	2018	
==>e PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1905	2018	
==>e PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1905	2018	
==>e PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pV <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	407	575	
==>ine = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	407	575	
==>ine = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	0	100	
==>﻿package Pugs::Grammar::Precedence;

# Documentation in the __END__
use 5.006;
use strict;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5103	5224	
==>sm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5103	5224	
==>sm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5103	5224	
==>sm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4059	4175	
==>methods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4059	4175	
==>methods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4059	4175	
==>methods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11869	12000	
==>>do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11869	12000	
==>>do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11869	12000	
==>>do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30420	30513	
==>e
directory.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org/>.
You can also <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2799	2919	
==>(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2799	2919	
==>(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2799	2919	
==>(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_alt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	51	162	
==>he __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	51	162	
==>he __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    ' <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1450	1580	
==>readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir( <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1450	1580	
==>readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9128	9230	
==>ie "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion arise?
	my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3228	3373	
==>$filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3228	3373	
==>$filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3228	3373	
==>$filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	856	951	
==>pe is that this will allow interoperability with modules that
# do not inherit from Module::Comp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	856	951	
==>pe is that this will allow interoperability with modules that
# do not inherit from Module::Comp <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1752	1846	
==>ue }');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Help <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9015	9159	
==>ethod for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9015	9159	
==>ethod for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9015	9159	
==>ethod for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2518	2609	
==>my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2518	2609	
==>my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2518	2609	
==>my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3967	4066	
==>Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3967	4066	
==>Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3967	4066	
==>Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5476	5577	
==>) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blondie::Param")) {
				push @params <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23985	24074	
==>sion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUT <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23985	24074	
==>sion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3808	3899	
==>factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
param <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3808	3899	
==>factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6005	6096	
==>factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
param <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	526	647	
==>n(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parame <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	526	647	
==>n(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8655	8772	
==>$i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8655	8772	
==>$i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8655	8772	
==>$i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34513	34625	
==>6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34513	34625	
==>6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34513	34625	
==>6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	565	684	
==>wn.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	565	684	
==>wn.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	565	684	
==>wn.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6009	6106	
==>custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6009	6106	
==>custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6009	6106	
==>custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	175	279	
==>fix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one from prelu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3185	3283	
==>ns that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enoug <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3185	3283	
==>ns that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enoug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	896	1004	
==><...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	896	1004	
==><...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	896	1004	
==><...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6992	7150	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6992	7150	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6992	7150	
==>d} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5184	5299	
==>l, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasses;
    has @:superclasses;
    has %:p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16684	16785	
==>compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16684	16785	
==>compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6870	6983	
==>)};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    for %mods.keys -> $k {
        if %mo <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1509	1604	
==>=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of H <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1509	1604	
==>=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20794	20887	
==>SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20794	20887	
==>SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20794	20887	
==>SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5391	5497	
==>'>', "${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $src;
}
else <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20801	20894	
==>Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others for productio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20801	20894	
==>Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others for productio <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17835	18032	
==>'%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41103	41297	
==>'%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2282	2380	
==>a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	49	166	
==>b fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	49	166	
==>b fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	49	166	
==>b fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hack <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13144	13296	
==>ata );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21303	21400	
==>are unique across all Perl packages
(perhaps the key name can start with the package name?).  An a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21303	21400	
==>are unique across all Perl packages
(perhaps the key name can start with the package name?).  An a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6708	6827	
==>ns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, mayb <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6708	6827	
==>ns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, mayb <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3742	3843	
==>hipped with Pugs.
  --bash=$bash
    linuxrc needs a bash-compatible shell.
  --inputrc=$inputrc
    T <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12239	12358	
==>},
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num ca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33952	34047	
==>hoices are,
in order, if preferred ones aren't supported by a program or its libraries.
When tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33952	34047	
==>hoices are,
in order, if preferred ones aren't supported by a program or its libraries.
When tra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7237	7365	
==>(@values ;      Code *&test   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8762	8884	
==>[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8750	8872	
==>[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4616	4733	
==>B time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4616	4733	
==>B time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4616	4733	
==>B time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2808	2906	
==>to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2808	2906	
==>to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2808	2906	
==>to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10150	10282	
==>t{max} unexpectedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)." <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3290	3397	
==>::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3992	4091	
==>::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10210	10317	
==>EGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10210	10317	
==>EGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10210	10317	
==>EGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp} <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2112	2228	
==>ar which actually runs, is efficient,
#     and has captures for easy use of the resulting matches.
#   * Perhaps def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1353	1459	
==>:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is ass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1353	1459	
==>:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is ass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1353	1459	
==>:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is ass <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	525	694	
==>ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'H <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	440	609	
==>ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	528	697	
==>ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12202	12327	
==>nboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12202	12327	
==>nboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12202	12327	
==>nboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5693	5793	
==>han) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5693	5793	
==>han) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	475	592	
==>ctual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	475	592	
==>ctual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	475	592	
==>ctual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Num <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2311	2429	
==>e{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6793	6888	
==>t, an event is fired, the first argument to all these events is
the C<$event_type> (header, list <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6793	6888	
==>t, an event is fired, the first argument to all these events is
the C<$event_type> (header, list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2860	2996	
==>@$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2860	2996	
==>@$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2860	2996	
==>@$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	293	414	
==>gexp ast nodes created by Regexp::Parser.

# It looks like the ("A feasibility and performance reality check")
# spike has <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4687	4801	
==>atch = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 inf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4687	4801	
==>atch = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10036	10182	
==>ize ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10036	10182	
==>ize ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10036	10182	
==>ize ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13353	13452	
==>range of
  perl versions it will work with, and raises maintenance concerns.
  That said, the use of <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30042	30135	
==>mer!) returns Relation>

This method is a short-hand or alternative for the functionality prov <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34594	34687	
==>mer!) returns Relation>

This method is a short-hand or alternative for the functionality prov <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2618	2715	
==>$_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2758	2855	
==>$_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9857	10075	
==>$ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9857	10075	
==>$ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9857	10075	
==>$ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23380	23483	
==>$xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23380	23483	
==>$xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23380	23483	
==>$xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4943	5095	
==>$self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{out}= \$_[1] }\n";
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2026	2156	
==>er;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19727	19822	
==>to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabilit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19727	19822	
==>to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabilit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	162	278	
==>n::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

cla <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2193	2297	
==>ht($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2193	2297	
==>ht($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6639	6766	
==>tart + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6639	6766	
==>tart + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6639	6766	
==>tart + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	826	957	
==>= map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	826	957	
==>= map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	826	957	
==>= map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9884	9990	
==>l();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stri <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9884	9990	
==>l();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stri <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	479	570	
==>st::Util 'first';
use Regexp::Common qw/balanced delimited/;
use Pod::Simple::HTML;
use Pod: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6185	6291	
==>) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6185	6291	
==>) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8092	8191	
==>*@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Array::reverse (   @val <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7777	7902	
==>sion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11254	11379	
==>sion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10418	10543	
==>sion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3099	3263	
==>TML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3099	3263	
==>TML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10704	10801	
==>y $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1268	1366	
==>e namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftyp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1268	1366	
==>e namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftyp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1268	1366	
==>e namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12741	12842	
==>id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12741	12842	
==>id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12741	12842	
==>id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6798	6901	
==>er($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7170	7273	
==>er($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7469	7572	
==>er($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12701	12931	
==>ax},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{fail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17255	17352	
==>ITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17255	17352	
==>ITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4994	5130	
==>lf: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4994	5130	
==>lf: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20094	20193	
==>VariableDeclarationList :words {  # see 12.2
      <VariableDeclaration>
    | <VariableDeclarationL <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	107	211	
==>VERSION = '0.61';

use strict 'vars';

my @scalar_keys = qw{
    name module_name abstract author version <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1299	1391	
==>ckref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quic <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1299	1391	
==>ckref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	465	565	
==>e resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	465	565	
==>e resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	465	565	
==>e resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23016	23123	
==>index($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23016	23123	
==>index($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23016	23123	
==>index($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12956	13076	
==>tersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16433	16553	
==>tersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15795	15915	
==>tersection( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2483	2646	
==>@end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2483	2646	
==>@end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2483	2646	
==>@end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2235	2336	
==>/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2235	2336	
==>/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2235	2336	
==>/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hac <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	154	250	
==>h + $duration.length);
}

method subtract($self: Duration $duration) returns Duration {
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	11	109	
==>ss::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	11	109	
==>ss::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	11	109	
==>ss::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10743	10891	
==>('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10743	10891	
==>('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10743	10891	
==>('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18529	18644	
==>uld be interpreted as a constant.

# sprintf # XXX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $st <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8646	8752	
==>x'} || %mods{'exhaustive'};
    my $adverbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1082	1179	
==>adonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1082	1179	
==>adonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1082	1179	
==>adonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	100	205	
==>p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	100	205	
==>p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	100	205	
==>p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2160	2284	
==>ariables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op(' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2160	2284	
==>ariables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op(' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2507	2631	
==>ariables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	17	120	
==>etaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	17	120	
==>etaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	17	120	
==>etaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7352	7443	
==>:Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7352	7443	
==>:Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7352	7443	
==>:Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1227	1328	
==>() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1227	1328	
==>() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1227	1328	
==>() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14662	14767	
==>->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2143	2248	
==>->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25772	25867	
==>o not interact with the outside
environment at all.

A Relation::Example object has 2 main attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2010	2153	
==>";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20105	20204	
==>m binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20105	20204	
==>m binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8367	8471	
==>submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	571	669	
==>submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	571	669	
==>submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20003	20103	
==>) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20003	20103	
==>) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20003	20103	
==>) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1759	1859	
==>od contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1759	1859	
==>od contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3401	3494	
==>ermTable()->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($matchObj, my $targe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22369	22487	
==>$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22369	22487	
==>$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22369	22487	
==>$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1231	1334	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1231	1334	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1231	1334	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = ar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4867	4993	
==>cks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4867	4993	
==>cks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21460	21557	
==>ome with a set of user
messages, but another package or program which uses yours may wish to
overr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21460	21557	
==>ome with a set of user
messages, but another package or program which uses yours may wish to
overr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7875	8055	
==>f = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            store       => \$file,
            allow       => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	969	1111	
==>//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	969	1111	
==>//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12503	12633	
==>in == 1 and $max eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7409	7513	
==>nt<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7409	7513	
==>nt<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3321	3434	
==>l's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3321	3434	
==>l's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3321	3434	
==>l's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2359	2481	
==>"delimiter must be a string type";    
    return str->new(
        CORE::join $delimiter->to_native => 
        map { $_-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16556	16653	
==>Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16556	16653	
==>Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Docu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	107	215	
==>add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	107	215	
==>add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	107	215	
==>add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41756	41880	
==>Relation::Example is the result of combining all of the source Relations,
such that all common attribute names and correspond <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9858	9973	
==>d_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whitespac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2502	2594	
==>erl6-to-Perl5 compiler.

The current state of this compiler implementation only provides a sm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1753	1884	
==>obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1753	1884	
==>obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1753	1884	
==>obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7130	7236	
==>);
ok($rFoo->does('Role'), '... rFoo now does Role');

my $rBar = $Role->new(
    '$:name' => 'rBar',
    ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14976	15068	
==>rk and defines a common programmatic interface (API), called
the Rosetta Native Interface (RN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14976	15068	
==>rk and defines a common programmatic interface (API), called
the Rosetta Native Interface (RN <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6129	6221	
==>classes both perform the Test::Builder::Test::WithReason role
and override some methods to pr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6129	6221	
==>classes both perform the Test::Builder::Test::WithReason role
and override some methods to pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8326	8418	
==>classes both perform the Test::Builder::Test::WithReason role
and override some methods to pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36835	36936	
==>elation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41384	41485	
==>elation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41007	41108	
==>elation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation wh <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1688	1819	
==>[ 0..@commits_till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	651	769	
==>text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	651	769	
==>text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21393	21496	
==>) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21393	21496	
==>) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21393	21496	
==>) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19864	19962	
==>ontext it will return two
values; the user name and the password.  In scalar context it will
return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19864	19962	
==>ontext it will return two
values; the user name and the password.  In scalar context it will
return <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	975	1144	
==>year.chars == 2 ) {
        $year = 2000 + $year;  # XXX - fixme ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36858	36954	
==>mplement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_te <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36858	36954	
==>mplement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10530	10617	
==>Bar->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2814	3084	
==>,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can h <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3984	4078	
==>omments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3984	4078	
==>omments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16975	17130	
==>ay->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16975	17130	
==>ay->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16975	17130	
==>ay->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5159	5268	
==>alue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5159	5268	
==>alue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5159	5268	
==>alue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31511	31707	
==>ength=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31511	31707	
==>ength=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31511	31707	
==>ength=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2634	2741	
==>rray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2634	2741	
==>rray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2634	2741	
==>rray) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	714	843	
==>p PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	714	843	
==>p PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	714	843	
==>p PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3364	3489	
==>tname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3364	3489	
==>tname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6146	6259	
==>gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6146	6259	
==>gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6146	6259	
==>gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1595	1707	
==>> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1595	1707	
==>> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1595	1707	
==>> ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9326	9440	
==>eg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $sel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25810	25904	
==>efined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25810	25904	
==>efined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1142	1267	
==>axpar => 0,
    nparen => 0,
    captures => [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan (popula <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3551	3651	
==>r $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3551	3651	
==>r $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3334	3433	
==>PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3334	3433	
==>PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3334	3433	
==>PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1983	2142	
==>{
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1983	2142	
==>{
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1983	2142	
==>{
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6607	6735	
==>EMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6607	6735	
==>EMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6607	6735	
==>EMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	167	290	
==>function openNewWindows() {
    var links = document.getElementsByTagName('A');
    for (var i = 0; i < links.length; i++) { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12437	12535	
==>a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used to r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12437	12535	
==>a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used to r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2957	3065	
==>inite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2957	3065	
==>inite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	445	544	
==>us' "cls"
sub clear returns Void is export{
    system(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! 'cl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15744	15844	
==>del::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15744	15844	
==>del::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16597	16682	
==>F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1379	1538	
==>block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=pod

= <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7741	7860	
==>$x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exce <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7741	7860	
==>$x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exce <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3942	4066	
==>g eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1908	2007	
==>turn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1831	1928	
==>turn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11359	11553	
==>todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}++;
        }
        els <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34746	34847	
==>:Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34746	34847	
==>:Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	281	390	
==>source;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	281	390	
==>source;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	281	390	
==>source;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	125	230	
==>Model::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	125	230	
==>Model::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	125	230	
==>Model::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	875	1006	
==>iurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	875	1006	
==>iurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	875	1006	
==>iurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implem <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2175	2272	
==>rse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done l <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2175	2272	
==>rse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done l <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	165	259	
==>on.length);
}

method subtract($self: Duration $duration) returns Duration {
    $self.new($sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4013	4120	
==>f: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4013	4120	
==>f: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	333	457	
==>, 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3549	3664	
==>tart_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3549	3664	
==>tart_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3252	3346	
==>{ PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3252	3346	
==>{ PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3252	3346	
==>{ PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} } <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1084	1195	
==>hod end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

Da <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1084	1195	
==>hod end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

Da <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1289	1385	
==>gle function, C<note>, which is called with zero or 
more strings, followed by zero or more tags. <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1289	1385	
==>gle function, C<note>, which is called with zero or 
more strings, followed by zero or more tags. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3482	3630	
==>]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3482	3630	
==>]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3482	3630	
==>]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	290	405	
==>tch anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	290	405	
==>tch anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14710	14840	
==>early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14710	14840	
==>early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14710	14840	
==>early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7183	7292	
==>h") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: ) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7183	7292	
==>h") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: ) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1407	1505	
==>ractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4274	4423	
==>s :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4274	4423	
==>s :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4274	4423	
==>s :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1676	1793	
==>d Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1676	1793	
==>d Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1676	1793	
==>d Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2477	2576	
==>(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2477	2576	
==>(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2477	2576	
==>(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7695	7799	
==>);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7695	7799	
==>);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	840	964	
==>string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	854	972	
==>string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36879	36979	
==>sult is as if it wasn't there at all.  In any situation where a pair
of source relations have identic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41428	41528	
==>sult is as if it wasn't there at all.  In any situation where a pair
of source relations have identic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41051	41151	
==>sult is as if it wasn't there at all.  In any situation where a pair
of source relations have identic <==
3	/Users/nnunley/pugs/util/run-smoke.pl	999	1158	
==>hing to find the correct
# pugs executable.
$ENV{PATH} = "." . $Config{path_sep} . $ENV{PATH};

$ENV{HARNESS_PERL}  = "./pugs $optional_args";
$ENV{HARNESS_PERL <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7742	7851	
==>};
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14227	14322	
==>xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14227	14322	
==>xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14227	14322	
==>xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4031	4146	
==>nk the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4031	4146	
==>nk the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4031	4146	
==>nk the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5920	6073	
==>attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5920	6073	
==>attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5920	6073	
==>attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4960	5084	
==>self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4960	5084	
==>self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4960	5084	
==>self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	747	856	
==>e "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	747	856	
==>e "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	745	903	
==>my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	745	903	
==>my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	745	903	
==>my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3538	3645	
==>ined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3538	3645	
==>ined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3538	3645	
==>ined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18004	18101	
==>($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18004	18101	
==>($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18004	18101	
==>($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($x <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3586	3695	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3779	3888	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4479	4583	
==>hift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $self->ri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2919	3034	
==>refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2919	3034	
==>refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2919	3034	
==>refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2333	2460	
==>reate_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2538	2665	
==>reate_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3329	3456	
==>reate_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	838	966	
==>ist.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	838	966	
==>ist.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	838	966	
==>ist.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9816	9930	
==>IL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9816	9930	
==>IL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9816	9930	
==>IL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var prox <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6478	6678	
==>rent_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.cur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6478	6678	
==>rent_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.cur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6334	6429	
==>\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($var <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9517	9626	
==>rs available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membershi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9517	9626	
==>rs available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membershi <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4580	4668	
==>logical_grapheme>|<abbreviated_class>|<explicit_class>|<escape_sequence>|<named_character <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	935	1038	
==>d(:all) {
  ## XXX - orig: $wanted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	531	630	
==>\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = u <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	531	630	
==>\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1758	1884	
==>w them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1758	1884	
==>w them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1758	1884	
==>w them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1464	1561	
==>:cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1464	1561	
==>:cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1464	1561	
==>:cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	740	871	
==>last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	740	871	
==>last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	740	871	
==>last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8741	8892	
==>->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8741	8892	
==>->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7361	7458	
==>Clears the parser's memory and sets $regex as the regex to be parsed.

=back

These two approaches <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3736	3871	
==>("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3736	3871	
==>("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3736	3871	
==>("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13487	13604	
==>ther!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16964	17081	
==>ther!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16326	16443	
==>ther!heading )) {
        # The first source's heading is a proper subset of the
        # second source's heading, so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2838	2961	
==>file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2838	2961	
==>file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2838	2961	
==>file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	568	722	
==>= bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	773	927	
==>= bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	829	983	
==>= bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        loc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5650	5797	
==>doesn't do it for
    ## us :(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11450	11550	
==>elf: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert mor <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11450	11550	
==>elf: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert mor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3093	3193	
==>:Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3093	3193	
==>:Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3093	3193	
==>:Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	682	957	
==>@res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	682	957	
==>@res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	682	957	
==>@res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3434	3549	
==>, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19418	19514	
==>he user
sees, you only have to update said separate resource files, and not change
your main prog <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19418	19514	
==>he user
sees, you only have to update said separate resource files, and not change
your main prog <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3245	3397	
==>this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-start
                #print "checking { ... [$whitespace_before] <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2309	2413	
==>tor is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2309	2413	
==>tor is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5395	5493	
==>g the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5395	5493	
==>g the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5395	5493	
==>g the HTML tag "<script src=...>". Of course, this feature is not available
when linking to a stand <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9719	9821	
==>hrough the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() un <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9719	9821	
==>hrough the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() un <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1271	1369	
==>ntaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harn <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1271	1369	
==>ntaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1818	1916	
==>ntaining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2001	2114	
==>make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2001	2114	
==>make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2001	2114	
==>make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14496	14586	
==>Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14496	14586	
==>Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14496	14586	
==>Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5784	6005	
==>pends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6248	6469	
==>pends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22025	22145	
==>ad"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my $one_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2296	2418	
==>to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2296	2418	
==>to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2296	2418	
==>to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16341	16469	
==>eck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16341	16469	
==>eck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16341	16469	
==>eck if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24367	24454	
==>rrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24367	24454	
==>rrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2099	2368	
==>::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # External packages used by the Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1408	1499	
==>acktrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Resul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1408	1499	
==>acktrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2405	2525	
==>s(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2405	2525	
==>s(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2405	2525	
==>s(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5215	5319	
==>nil>

The closure here will be passed a reference to the current value, 
this allows r/w access to the va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3257	3346	
==>ccessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3257	3346	
==>ccessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5458	5566	
==>'$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5458	5566	
==>'$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6048	6156	
==>'$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30344	30441	
==>ributes
(provided in C<$heading>) may or may not resemble those of the original. 
The anonymous fu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34896	34992	
==>ributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous fu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34078	34174	
==>ributes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4990	5111	
==>"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4990	5111	
==>"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4990	5111	
==>"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11259	11398	
==>xt( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if def <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11259	11398	
==>xt( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if def <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6955	7055	
==>everything passed.

B<NOTE> Currently this function is still noisy.  I'm working on it.

=cut

# Turn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2048	2144	
==>cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - B <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2048	2144	
==>cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4084	4199	
==>tamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4084	4199	
==>tamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4084	4199	
==>tamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35264	35393	
==>$len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35264	35393	
==>$len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35264	35393	
==>$len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3681	3791	
==>e.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3681	3791	
==>e.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5878	5988	
==>e.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to t <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1799	1911	
==>rgs) = @_;

    # ignore the prefix on extension modules built from top level.
    delete $args{prefix}
      unl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7350	7446	
==>}
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.comple <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7350	7446	
==>}
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2616	2720	
==>l5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@command)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2616	2720	
==>l5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@command)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2616	2720	
==>l5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@command)
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2442	2577	
==>ub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5787	5885	
==>lass itself; in fact, the only method that truly must be implemented is the 
one that actually enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5787	5885	
==>lass itself; in fact, the only method that truly must be implemented is the 
one that actually enci <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2355	2624	
==>fer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2355	2624	
==>fer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	328	427	
==>Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), V <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2142	2284	
==>file
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1864	1983	
==>\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n";
	    } else {
		pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4093	4197	
==>} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyof_char => $S->nchar($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5855	5982	
==>($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5855	5982	
==>($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5855	5982	
==>($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15341	15445	
==>...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15341	15445	
==>...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15341	15445	
==>...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1245	1343	
==>x:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1245	1343	
==>x:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1245	1343	
==>x:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	304	413	
==>tainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	304	413	
==>tainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	304	413	
==>tainer::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11598	11720	
==>th_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11598	11720	
==>th_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTT <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1221	1318	
==>- referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1574	1671	
==>eak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1574	1671	
==>eak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1574	1671	
==>eak some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1241	1351	
==>do the initial scan (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7923	8009	
==>ccess_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1748	1834	
==>ccess_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10035	10134	
==>ent_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constru <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10035	10134	
==>ent_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20267	20374	
==>basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFA <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24819	24926	
==>basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFA <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23380	23487	
==>basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15569	15698	
==>o { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15563	15692	
==>o { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	74	177	
==>e supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	74	177	
==>e supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	74	177	
==>e supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11331	11529	
==>:Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7613	7811	
==>:Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8447	8645	
==>:Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4853	4971	
==>rn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4853	4971	
==>rn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4853	4971	
==>rn 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6907	7034	
==>- $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6907	7034	
==>- $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6907	7034	
==>- $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $sli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1082	1184	
==>we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1082	1184	
==>we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1082	1184	
==>we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	353	511	
==>tplan',
        '@:results',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $plan, $output) = @_;
            __('$:singleton <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20154	20271	
==>o_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20154	20271	
==>o_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20154	20271	
==>o_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17774	17903	
==>hod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17774	17903	
==>hod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17774	17903	
==>hod = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" unless defined $met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1001	1109	
==>elf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1001	1109	
==>elf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1001	1109	
==>elf->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7447	7552	
==>er if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7447	7552	
==>er if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7447	7552	
==>er if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_privat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4194	4336	
==>};
            $@ and error( "Could not load available file: $@" ), return;
            $obj->available( \@avail );

        }
  
        retur <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	725	821	
==>py) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()" <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	725	821	
==>py) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6012	6155	
==>?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6012	6155	
==>?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6012	6155	
==>?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13103	13242	
==>gth $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13103	13242	
==>gth $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11613	11764	
==>ub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11613	11764	
==>ub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11613	11764	
==>ub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell-> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8884	9014	
==>t_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_charset_items(L0), p5_charset_def_x(L0,L).
p5_charset_def_x(L0 <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4820	4913	
==>ualified function name.

=back

The following are the (pseudo) methods for Config::Tiny object <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4820	4913	
==>ualified function name.

=back

The following are the (pseudo) methods for Config::Tiny object <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1902	2029	
==>$/; <$tpl> };
        my $tpl_config = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_ov <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2627	2747	
==>{
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH| <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2627	2747	
==>{
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH| <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4201	4302	
==>_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4201	4302	
==>_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5822	5947	
==>elete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5822	5947	
==>elete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5822	5947	
==>elete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1406	1510	
==>nknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1406	1510	
==>nknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1406	1510	
==>nknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1732	1900	
==>->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_ind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1732	1900	
==>->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_ind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1732	1900	
==>->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_ind <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6445	6700	
==>while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yie <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6445	6700	
==>while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3847	3939	
==>-----------------------------------------
## Package

## See http://article.gmane.org/gmane.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3847	3939	
==>-----------------------------------------
## Package

## See http://article.gmane.org/gmane.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3847	3939	
==>-----------------------------------------
## Package

## See http://article.gmane.org/gmane.c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	459	567	
==>chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	459	567	
==>chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7935	8023	
==>singleton methods ..

is($Foo->another_singleton_test_on_object(), 
   '&Object::another_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13202	13318	
==>ied to the type of the parameter (as allocated in the new env), and the type of the body
fun: type($$) = {
	type::ope <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8341	8456	
==>_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1166	1271	
==>ixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1166	1271	
==>ixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1166	1271	
==>ixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArg <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	560	688	
==>> 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	560	688	
==>> 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redir <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7255	7360	
==>f $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_fl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	733	832	
==>ver



Continuations are used for backtracking.



A "ruleop" function gets some arguments and retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10601	10700	
==>ver

Continuations are used for backtracking.

A "ruleop" function gets some arguments and retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	705	800	
==>ver

Continuations are used for backtracking.

A "ruleop" function gets some arguments and retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	587	684	
==>TRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test res <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	587	684	
==>TRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test res <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1143	1240	
==>TRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test res <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18073	18172	
==>t
have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18073	18172	
==>t
have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3517	3667	
==>rovides} || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based! <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1089	1207	
==>quely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1089	1207	
==>quely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2730	2824	
==>er) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $oth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2730	2824	
==>er) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11732	11889	
==>!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11732	11889	
==>!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11732	11889	
==>!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9414	9517	
==>ect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9414	9517	
==>ect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9670	9775	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9670	9775	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9670	9775	
==>O = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	50	155	
==>imitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	50	155	
==>imitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	50	155	
==>imitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2067	2181	
==>efault) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self->{operand};
    my $equal = "r$lev <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	404	517	
==>tr $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	404	517	
==>tr $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	227	334	
==>d can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	227	334	
==>d can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	227	334	
==>d can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10790	10886	
==>s_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10790	10886	
==>s_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set. <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14224	14349	
==>ich will contain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	300	407	
==>has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	300	407	
==>has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15560	15746	
==>$ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15560	15746	
==>$ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15560	15746	
==>$ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1255	1368	
==>checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1255	1368	
==>checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1255	1368	
==>checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1399	1505	
==>?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1399	1505	
==>?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1399	1505	
==>?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14179	14267	
==>perclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14179	14267	
==>perclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14179	14267	
==>perclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@:sub <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2581	2677	
==>program is Free Software, and may be used, distributed and modified under 
the same terms as Perl <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2581	2677	
==>program is Free Software, and may be used, distributed and modified under 
the same terms as Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1435	1531	
==>xtracted2 = substr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Runtime::Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	594	698	
==>self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	594	698	
==>self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	594	698	
==>self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	831	988	
==>' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SEL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	831	988	
==>' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SEL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	831	988	
==>' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SEL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2057	2159	
==>[ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2057	2159	
==>[ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2057	2159	
==>[ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9155	9297	
==>arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Si <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9155	9297	
==>arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Si <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9155	9297	
==>arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Si <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2802	2941	
==>([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2802	2941	
==>([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37773	37875	
==>on of
all the headings of the source relations.  The body of the new relation is
the result of first pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42322	42424	
==>on of
all the headings of the source relations.  The body of the new relation is
the result of first pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41972	42074	
==>on of
all the headings of the source relations.  The body of the new relation is
the result of first pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6703	6811	
==>str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6703	6811	
==>str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] cons <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2194	2287	
==>e: $name
osname: $config->{osname}

Please notify the maintainer of this code. (Brian Ingerson <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	55	157	
==>Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Co <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	55	157	
==>Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15985	16082	
==>o be interpreted by the machine itself and not any human user.  In some
situations, a shared progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15985	16082	
==>o be interpreted by the machine itself and not any human user.  In some
situations, a shared progr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4258	4354	
==>$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6575	6701	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6575	6701	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6575	6701	
==>to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2080	2184	
==>nd =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2080	2184	
==>nd =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	714	816	
==>n("\n\n", map {
		my $name = $self->{names}{$_};

		$self->{current_node} = $_;
		"$name = " . $self->r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16781	16898	
==>t char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13202	13319	
==>t char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17471	17602	
==>new<=$node>" . layout(@gut);
        } else {
            warn "weird - $node doesn't fmap but is an object";
            return "$n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4287	4406	
==>h @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$cap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4156	4273	
==>h @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$cap <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17894	18001	
==>=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14315	14422	
==>=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	938	1033	
==>d2 $pkg = JIB::Package->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2425	2513	
==>for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscri <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2425	2513	
==>for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9273	9378	
==>UB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9273	9378	
==>UB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9273	9378	
==>UB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24339	24448	
==>}
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24339	24448	
==>}
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24339	24448	
==>}
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2187	2282	
==>f HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2187	2282	
==>f HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Req <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34406	34499	
==><\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others are
possi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15618	15713	
==>database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15618	15713	
==>database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	146	244	
==>gified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	146	244	
==>gified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	146	244	
==>gified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2672	2779	
==>closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns O <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2672	2779	
==>closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns O <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20768	20870	
==>C|Bx],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB| <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	174	275	
==>pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	174	275	
==>pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	174	275	
==>pop()(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only wo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18271	18369	
==>rder time figuring out the
best way to deal with it.  But for displaying to users, easy messages ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18271	18369	
==>rder time figuring out the
best way to deal with it.  But for displaying to users, easy messages ar <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1379	1468	
==>Resources:
#   http://www.ecma-international.org/publications/standards/Ecma-262.htm
#   h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16054	16152	
==>unshift(@{$m0->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2676	2770	
==>P::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2676	2770	
==>P::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	216	343	
==>>add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	216	343	
==>>add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	216	343	
==>>add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	498	591	
==>"Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	498	591	
==>"Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	498	591	
==>"Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't set <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19739	19885	
==>_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->err <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16160	16306	
==>_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->err <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3930	4052	
==>etimes the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   print "not " u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3708	3823	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3708	3823	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3708	3823	
==>nfess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3853	3958	
==>$name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3853	3958	
==>$name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3853	3958	
==>$name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2533	2634	
==>odule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2533	2634	
==>odule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3491	3587	
==>in';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
trig_func 'atan';
trig <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5658	5852	
==>remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5658	5852	
==>remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_s <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1876	1982	
==>e base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have di <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22807	22927	
==>n of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@args);
}


no strict 'vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1614	1716	
==>le::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1614	1716	
==>le::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10148	10283	
==>S", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new(" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4408	4523	
==>state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4408	4523	
==>state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_ke <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8612	8737	
==>he reason for the TODO    
        my %todos;
        foreach my $detail (@{$results{details}}) {
            if ($detail->{ty <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3630	3738	
==>s, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $deco <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3630	3738	
==>s, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $deco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23855	23977	
==>method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23855	23977	
==>method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23855	23977	
==>method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1695	1800	
==>exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1695	1800	
==>exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1695	1800	
==>exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1330	1453	
==>t => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1330	1453	
==>t => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1330	1453	
==>t => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1542	1649	
==>:Node::Atomic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13437	13541	
==>efer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13437	13541	
==>efer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2504	2629	
==>ure} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2409	2528	
==>ure} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18074	18171	
==>truct, which gets attached to the op tree.  The struct is used
variously to return the compiled re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5792	5903	
==>mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5792	5903	
==>mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5792	5903	
==>mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2576	2673	
==>ub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2576	2673	
==>ub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2576	2673	
==>ub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_mac <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4449	4581	
==>{
    my $x_round;

    # round floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    el <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15364	15474	
==>ket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15364	15474	
==>ket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19197	19300	
==>s ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('add_method' => (
    # me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15433	15532	
==>returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15491	15590	
==>returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1756	1858	
==>mber  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_ali <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	12	113	
==>'s grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	12	113	
==>'s grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18579	18669	
==>6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18579	18669	
==>6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18579	18669	
==>6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4436	4532	
==>(package => $pkg)

Adds a package to all necessary index files.

=cut

sub add_package_to_index { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16398	16492	
==>nal named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16398	16492	
==>nal named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1961	2077	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1961	2077	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1961	2077	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return P <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11089	11321	
==>$todos{$todo_type};
                if ($todo_type eq '__') {
                    $todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20364	20458	
==>the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20364	20458	
==>the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4406	4510	
==>diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4406	4510	
==>diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4406	4510	
==>diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1453	1547	
==>is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1453	1547	
==>is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1453	1547	
==>is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	590	694	
==>e => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	590	694	
==>e => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	590	694	
==>e => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5501	5604	
==>rmalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5501	5604	
==>rmalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	32	132	
==>::Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3745	3863	
==>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3745	3863	
==>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3745	3863	
==>{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	679	783	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	679	783	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*to <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3870	3978	
==>',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities liste <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3870	3978	
==>',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities liste <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16884	16989	
==>source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20361	20466	
==>source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19939	20044	
==>source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1557	1676	
==>LIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1557	1676	
==>LIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1557	1676	
==>LIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2751	2868	
==>3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2751	2868	
==>3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2751	2868	
==>3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.S <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2923	3046	
==>$r->[1], $r->[2]) }
}

sub CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	654	743	
==>t From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	654	743	
==>t From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Fo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22239	22343	
==>lauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <CaseClause>
}
rule CaseClause :words <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	68	163	
==>onstant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	68	163	
==>onstant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1556	1713	
==>($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1556	1713	
==>($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1556	1713	
==>($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2928	3050	
==>]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3473	3595	
==>]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27734	27830	
==>sults in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests will be run by C<$^ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	406	501	
==>(:offset(0) :length(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER::_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21262	21349	
==>t>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21262	21349	
==>t>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $even <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4733	4829	
==>elation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8210	8306	
==>elation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22385	22471	
==>har(C)|_]) :- !.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insensitive_char_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2128	2212	
==>_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2128	2212	
==>_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2128	2212	
==>_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17625	17740	
==>0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subclass $P0 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4033	4139	
==>chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4033	4139	
==>chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	835	944	
==>(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	835	944	
==>(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	835	944	
==>(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13568	13711	
==>=> ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13568	13711	
==>=> ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	699	829	
==>}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	699	829	
==>}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	699	829	
==>}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19726	19965	
==>my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40186	40425	
==>my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	495	630	
==>is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str, -1, 1;
        $str = substr $st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3701	3819	
==>) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5603	5721	
==>) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4986	5136	
==>tchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4986	5136	
==>tchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4986	5136	
==>tchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	776	877	
==>::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	776	877	
==>::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	776	877	
==>::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	21	132	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1897	2044	
==>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1897	2044	
==>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1897	2044	
==>_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13779	13889	
==>_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13779	13889	
==>_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	171	281	
==>use Pugs::Grammar::Infix;

# TODO - generate AST
# TODO - prefix:{'+'}
# TODO - ~ ? 

sub add_rule {
    my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8946	9046	
==>ix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8946	9046	
==>ix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8946	9046	
==>ix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1035	1142	
==>$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1035	1142	
==>$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1035	1142	
==>$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6752	6879	
==>a_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6752	6879	
==>a_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Ros <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	396	513	
==>mar::Perl6->parse( $src );
    #use YAML;
    #print Dump $match->();
    print Dumper $match->();
    print "tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1740	1840	
==>}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1740	1840	
==>}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1740	1840	
==>}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3001	3115	
==>t(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now con <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3001	3115	
==>t(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9292	9419	
==>lue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9292	9419	
==>lue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9292	9419	
==>lue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5994	6150	
==>t: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5994	6150	
==>t: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2753	2880	
==>bort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1239	1356	
==>::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1239	1356	
==>::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1239	1356	
==>::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	107	201	
==>file contains p5 runtime primitives which are written in p6.
Most will eventually be implemente <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	107	201	
==>file contains p5 runtime primitives which are written in p6.
Most will eventually be implemente <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	107	201	
==>file contains p5 runtime primitives which are written in p6.
Most will eventually be implemente <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	846	948	
==>}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	934	1036	
==>}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	932	1044	
==>s ...

sub add {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16718	16829	
==>har => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13139	13250	
==>har => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3789	3907	
==>odule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering wil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3789	3907	
==>odule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering wil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7859	7960	
==>nyof_class => alnum => $neg, $how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2436	2560	
==>$arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2436	2560	
==>$arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2436	2560	
==>$arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	536	639	
==>f $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the last scope by $self. It m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3530	3638	
==>var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3530	3638	
==>var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3530	3638	
==>var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	929	1064	
==>ackend::Perl::Silly->new; # might or might not have some builtins
                                        # instead of prelude functions <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7483	7581	
==>xt (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the rema <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7483	7581	
==>xt (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the rema <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3856	3945	
==>--------------------------------
## Package

## See http://article.gmane.org/gmane.comp.la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3856	3945	
==>--------------------------------
## Package

## See http://article.gmane.org/gmane.comp.la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3856	3945	
==>--------------------------------
## Package

## See http://article.gmane.org/gmane.comp.la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4495	4593	
==>t::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4495	4593	
==>t::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6019	6117	
==>t::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $exp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3461	3597	
==>_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3654	3790	
==>_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7479	7608	
==>";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7479	7608	
==>";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7479	7608	
==>";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7075	7212	
==>@array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@re <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5576	5713	
==>@array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	702	791	
==>doValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::Undefined is JSX::Valu <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	516	628	
==>return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	483	595	
==>return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6671	6765	
==>instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6671	6765	
==>instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6671	6765	
==>instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4284	4385	
==>x:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  })')();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4284	4385	
==>x:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  })')();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4284	4385	
==>x:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  })')();
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1655	1765	
==>_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1655	1765	
==>_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1655	1765	
==>_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1773	1912	
==>:Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unles <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1773	1912	
==>:Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unles <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3691	3790	
==>Test>

The test file which failed.

=item B<Stat>

If the test exited with non-zero, this is its exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2749	2856	
==>ss = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_disca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2749	2856	
==>ss = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_disca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2749	2856	
==>ss = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_disca <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5982	6074	
==>SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5982	6074	
==>SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2881	2973	
==>SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1111	1266	
==>lback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_ <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1111	1266	
==>lback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10287	10422	
==>okies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10287	10422	
==>okies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3749	3867	
==>nfix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3749	3867	
==>nfix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3749	3867	
==>nfix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5339	5443	
==>kens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5339	5443	
==>kens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5339	5443	
==>kens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @to <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24195	24292	
==>ed or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28747	28844	
==>ed or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8265	8366	
==>leop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7978	8077	
==>leop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1391	1553	
==>r {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            tak <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1391	1553	
==>r {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            tak <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3555	3876	
==>f %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3555	3876	
==>f %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2243	2355	
==>ring($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2243	2355	
==>ring($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5483	5588	
==>ate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5483	5588	
==>ate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5483	5588	
==>ate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20100	20197	
==>etta" core
distribution to allow the core to be completely testable on its own.  It is
coded inten <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20100	20197	
==>etta" core
distribution to allow the core to be completely testable on its own.  It is
coded inten <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7890	7994	
==>rn false.

  if (! $parser->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parser->err <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9175	9275	
==>use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9233	9333	
==>use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21271	21366	
==>t to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmid <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21271	21366	
==>t to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6583	6721	
==>:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6583	6721	
==>:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6583	6721	
==>:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tiea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17215	17323	
==>);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20692	20800	
==>);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20270	20378	
==>);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.differe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	903	1005	
==>mart::Comments; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	104	203	
==>mart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	104	203	
==>mart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5319	5446	
==>ct_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAM <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15854	15972	
==>->{$syn} }){
          # reverse is since we're splicing right after the h1
            my $target  = $link->{linkfile} <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5837	5952	
==>ct_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7518	7634	
==>=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7518	7634	
==>=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7518	7634	
==>=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3513	3629	
==>e => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => 'infix', <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2112	2226	
==>"Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2090	2204	
==>"Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	784	910	
==>y parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	784	910	
==>y parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	784	910	
==>y parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11960	12084	
==>nt_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11960	12084	
==>nt_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11960	12084	
==>nt_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10103	10265	
==>{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-indentatio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12176	12282	
==>?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12176	12282	
==>?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1032	1168	
==>?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1032	1168	
==>?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5109	5222	
==>S.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5109	5222	
==>S.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5109	5222	
==>S.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # X <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	592	701	
==>ay {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	592	701	
==>ay {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16194	16302	
==>s between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	976	1105	
==>print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	987	1116	
==>print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6913	7016	
==>" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThunk ($pThunk) {
    "(do <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3948	4044	
==>PI users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<val <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3948	4044	
==>PI users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<val <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22951	23050	
==>is approach over similar packages is that
text is always looked up by a key which is not meant to be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22951	23050	
==>is approach over similar packages is that
text is always looked up by a key which is not meant to be <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11612	11731	
==>] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11606	11725	
==>] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16505	16612	
==>atever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < 1;
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7533	7691	
==>copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == I <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7533	7691	
==>copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == I <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	551	681	
==>:Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2945	3056	
==>::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
cla <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2945	3056	
==>::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
cla <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1899	2001	
==>one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1899	2001	
==>one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1705	1801	
==>e cleaning and adding p6, tuck it into the pugs distribution
somewhere with test files, and do ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9844	9981	
==>->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9844	9981	
==>->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9844	9981	
==>->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4471	4575	
==>UB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4471	4575	
==>UB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4471	4575	
==>UB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3726	3904	
==>defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3726	3904	
==>defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16153	16251	
==>'t know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	712	830	
==>document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	712	830	
==>document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	712	830	
==>document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6854	6971	
==>esc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " u <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6912	7029	
==>esc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " u <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7324	7425	
==>scope;
		my $rthunk = $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21558	21704	
==>al = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21558	21704	
==>al = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21558	21704	
==>al = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6081	6263	
==>_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6081	6263	
==>_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6081	6263	
==>_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3883	4000	
==>ts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3883	4000	
==>ts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3883	4000	
==>ts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { un <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	969	1124	
==>= "";
        last;
      }

      $buf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while +@newtoks > 2 
         || +@newtoks && <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	617	728	
==>}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1> <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	617	728	
==>}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3668	3814	
==>x->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15833	15939	
==>m($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2230	2332	
==>m($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28405	28711	
==>str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($on <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28405	28711	
==>str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($on <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28405	28711	
==>str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($on <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3710	3848	
==>struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Coul <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	151	261	
==>res

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsin <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	151	261	
==>res

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3499	3609	
==>) = @_;

	return $body;
}

sub define_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13632	13728	
==>f the formula cannot be satisfied within a 
reasonable range of values.

You should consider usin <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13632	13728	
==>f the formula cannot be satisfied within a 
reasonable range of values.

You should consider usin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4130	4229	
==>ack

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4130	4229	
==>ack

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5654	5753	
==>ack

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	464	567	
==>.  While
# the spike "coded to the tests", and thus is far from being a
# complete p5 compatible regex e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15020	15112	
==>ce (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
mult <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15020	15112	
==>ce (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
mult <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8647	8801	
==>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is nu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12554	12703	
==>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12554	12703	
==>match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is nu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9166	9259	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9166	9259	
==>ad1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	63	166	
==>ase 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	68	170	
==>ase 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	66	168	
==>ase 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use F <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7402	7512	
==>$other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10879	10989	
==>$other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28399	28492	
==>n::Example's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	662	764	
==>o auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	662	764	
==>o auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	662	764	
==>o auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	175	279	
==>end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	175	279	
==>end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	175	279	
==>end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	387	519	
==>::Indent = 1;

### only called from JIB::Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; my $meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7259	7356	
==>urn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7259	7356	
==>urn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7259	7356	
==>urn $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3437	3546	
==>]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3437	3546	
==>]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3437	3546	
==>]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{ti <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8350	8565	
==>eys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8814	9029	
==>eys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6705	6809	
==>t;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$Da <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38329	38422	
==>tional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38329	38422	
==>tional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_var <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5346	5491	
==>ist();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pairs)=@$_;
        my $o = PIL::PIL1CPerl5::NodesInfo::Object->new($nam <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5869	5967	
==>::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5869	5967	
==>::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_messa <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2415	2523	
==>{
    my($class, $what) = @_;
    die "unknown option: $what" unless exists $Conf->{$what};
    my $value = $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36597	36691	
==>lent human readable text message
string; this assumes that a Template corresponding to the Mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36597	36691	
==>lent human readable text message
string; this assumes that a Template corresponding to the Mess <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11112	11256	
==>ext () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11112	11256	
==>ext () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1442	1569	
==>op) = @_;
    print "emitting grammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2890	3006	
==>rint_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2890	3006	
==>rint_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2890	3006	
==>rint_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6749	6861	
==>ch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6749	6861	
==>ch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6749	6861	
==>ch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3024	3152	
==>n perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "par <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	663	761	
==>iphers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not suppo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	663	761	
==>iphers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3238	3342	
==>oro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3238	3342	
==>oro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3238	3342	
==>oro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2981	3088	
==>];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2981	3088	
==>];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2981	3088	
==>];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2768	2869	
==>_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2768	2869	
==>_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2768	2869	
==>_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21186	21430	
==>= Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21186	21430	
==>= Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21186	21430	
==>= Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @p <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11741	11891	
==>") {
          mkdir "$initrd_mnt/lib6/$_";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step
    d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11486	11600	
==>_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11765	11879	
==>_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3195	3314	
==>y $pass;
    if( !defined $got || !defined $expected ) {
        # undef only matches undef
        $pass = !defined $go <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5241	5353	
==>of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5241	5353	
==>of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	178	277	
==>Int::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	178	277	
==>Int::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	178	277	
==>Int::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4027	4141	
==>ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4027	4141	
==>ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, th <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8147	8242	
==>c_pkg This method expects to
be called with a path (relative, absolute, or a command in
C<$ENV{P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2244	2366	
==>oto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9555	9645	
==>t2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superse <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9555	9645	
==>t2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superse <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1995	2088	
==>C<@args> as arguments.
Note that possibly, the event handler is I<not> called immediately -- o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33640	33730	
==>N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38190	38280	
==>N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14036	14163	
==>pare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14036	14163	
==>pare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5845	5951	
==>} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_reason}) ) {
        $type <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12777	12944	
==>d in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12771	12938	
==>d in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25590	25685	
==>back variable says how many characters back from
 * where regmust matched is the earliest possib <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	600	729	
==>me}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	616	745	
==>me}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	592	721	
==>me}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	474	591	
==>t || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	474	591	
==>t || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	474	591	
==>t || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4683	4787	
==>ail.
    sub __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Internals::current_ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1141	1241	
==>t find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd( <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1141	1241	
==>t find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14	115	
==>:Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14	115	
==>:Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14	115	
==>:Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1217	1342	
==>} else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1217	1342	
==>} else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1217	1342	
==>} else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30743	30834	
==>nding transformation of each tuple), but
that any duplicates following the transformation ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35294	35385	
==>nding transformation of each tuple), but
that any duplicates following the transformation ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34485	34576	
==>nding transformation of each tuple), but
that any duplicates following the transformation ha <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4837	4946	
==>we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4837	4946	
==>we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7198	7331	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7198	7331	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7198	7331	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8930	9193	
==>+
                }   
            }
        }
        ## XXX - End Pugs addition        
        
        my %test = (
                    ok          => $results{ok},
                    'next'      => $Strap->{'next'},
                    max         => $result <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3694	3807	
==>g :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=he <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3878	3991	
==>g :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=he <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19174	19287	
==>='>
}
rule Expression :words {  # see 11.14
      <AssignmentExpression>
    | <Expression> <','> <AssignmentExpre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9341	9430	
==>The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9341	9430	
==>The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2798	2936	
==>rl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2798	2936	
==>rl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17283	17395	
==>sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4669	4767	
==>es them into
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4669	4767	
==>es them into
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4669	4767	
==>es them into
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1241	1357	
==>: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1241	1357	
==>: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1241	1357	
==>: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1935	2039	
==>< String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1935	2039	
==>< String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1935	2039	
==>< String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3061	3232	
==>igenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3061	3232	
==>igenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3061	3232	
==>igenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27185	27279	
==>of Code $attrs!) returns Relation>

This method is a generic relational operator that returns a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31737	31831	
==>of Code $attrs!) returns Relation>

This method is a generic relational operator that returns a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1101	1219	
==>aque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1101	1219	
==>aque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1101	1219	
==>aque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8726	8895	
==>$detail->{type} eq 'todo') {
                if ($detail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                else { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19585	19679	
==>h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
proxy <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19585	19679	
==>h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
proxy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4062	4179	
==>STROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4062	4179	
==>STROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4062	4179	
==>STROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	422	562	
==>$samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	422	562	
==>$samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8789	8906	
==>str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_','$_re_','$_m_','$_m0_',
         '$_a_','$_s_','$_at <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19430	19554	
==>ch ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19709	19833	
==>ch ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	857	953	
==>luded via roles will be able to access the Class' private
attributes.  This is "early" method bin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23169	23263	
==>lish text and they translate it, which could
produce ambiguous results or associations.  Or alt <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23169	23263	
==>lish text and they translate it, which could
produce ambiguous results or associations.  Or alt <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6367	6464	
==>he specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TOD <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6367	6464	
==>he specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8564	8661	
==>he specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	951	1082	
==>ode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	951	1082	
==>ode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	951	1082	
==>ode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9190	9292	
==>shift;
    # ...
}));

=pod

-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9190	9292	
==>shift;
    # ...
}));

=pod

-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9190	9292	
==>shift;
    # ...
}));

=pod

-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5662	5768	
==>there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5662	5768	
==>there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7186	7292	
==>there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24542	24685	
==>a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24542	24685	
==>a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24542	24685	
==>a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12115	12221	
==>als::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12115	12221	
==>als::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12115	12221	
==>als::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15193	15300	
==>("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15193	15300	
==>("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    ha <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17185	17293	
==>ELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20662	20770	
==>ELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20240	20348	
==>ELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26985	27078	
==>ation has
the complement subset of the original's attributes to what C<project> would
return g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31537	31630	
==>ation has
the complement subset of the original's attributes to what C<project> would
return g <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16358	16450	
==>eneric_in($.else) = { generic($.then) }
cond: generic($$) = { generic($.else) }

cond: type($ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4582	4695	
==>Value">,   %pad<"isLazy">,
            %pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14436	14582	
==>mpiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2234	2334	
==>\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2234	2334	
==>\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	738	891	
==>de', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	738	891	
==>de', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3447	3554	
==>::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3447	3554	
==>::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3447	3554	
==>::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4277	4391	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4277	4391	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4277	4391	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6353	6510	
==>q 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3478	3635	
==>q 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4327	4484	
==>q 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3065	3172	
==>ribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3065	3172	
==>ribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3065	3172	
==>ribute_name (@{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1285	1374	
==>val;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11267	11385	
==>}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11267	11385	
==>}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11267	11385	
==>}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Obj <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	776	876	
==>x:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compari <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	776	876	
==>x:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compari <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5383	5482	
==>ll be passed the current value itself, which means 
you it is essentially read-only, however, all th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1465	1562	
==>.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1465	1562	
==>.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1465	1562	
==>.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $inpu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	262	389	
==>> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	262	389	
==>> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	474	571	
==>lain' Match.

- There are no tests yet for <before>, hashes, end_of_string, and the rule wrapper <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	710	869	
==>ol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	710	869	
==>ol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	210	319	
==>rogram's model (M1)

=head1 SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20242	20338	
==>le to the program package.  No
recompilation necessary.  This is something that end users could d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20242	20338	
==>le to the program package.  No
recompilation necessary.  This is something that end users could d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2809	2944	
==>er => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        oth <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6046	6168	
==>{
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5554	5676	
==>{
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17199	17314	
==>::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((rever <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17199	17314	
==>::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((rever <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17199	17314	
==>::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((rever <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10249	10348	
==>All tests need a plan. A plan is simply the number of tests which are
expected to run. This should b <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10307	10406	
==>All tests need a plan. A plan is simply the number of tests which are
expected to run. This should b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	223	353	
==>hod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	223	353	
==>hod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	223	353	
==>hod value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9713	9846	
==>es () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9713	9846	
==>es () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9713	9846	
==>es () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11733	11841	
==>($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11733	11841	
==>($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11733	11841	
==>($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14615	14757	
==>o look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14615	14757	
==>o look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14615	14757	
==>o look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5156	5293	
==>($!), return;
        }
        
        # load the existing index file
        my $index_content = YAML::LoadFile($index);
        my $me <==
3	/Users/nnunley/pugs/util/package-osx.pl	11566	11681	
==>ER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    print REMOVER "$_\n" for @footer;

    close RE <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1103	1218	
==>d1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1103	1218	
==>d1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1650	1765	
==>d1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1864	1967	
==>ult: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1864	1967	
==>ult: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1864	1967	
==>ult: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	194	313	
==>m/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	194	313	
==>m/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	194	313	
==>m/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	186	341	
==>ription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	186	341	
==>ription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	186	341	
==>ription => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2613	2717	
==>ification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2613	2717	
==>ification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2613	2717	
==>ification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7048	7204	
==>= sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7048	7204	
==>= sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7048	7204	
==>= sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31858	31951	
==>een implemented.>

This method is a generic relational operator that returns a new Relation::E <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32905	32998	
==>een implemented.>

This method is a generic relational operator that returns a new Relation::E <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1565	1658	
==>lse value to dynamic_config, skipping\n";
		return $self;
	}
	$self->{'values'}{'dynamic_confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14028	14209	
==>i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14028	14209	
==>i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14028	14209	
==>i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6047	6161	
==>check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a releas <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6105	6219	
==>check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a releas <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	462	552	
==>s/luca/Papers/BasicTypechecking.pdf

# please note that this is nothingmuch's first article <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6582	6684	
==>lurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	next if $created{$pkg};
	$cod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39853	39944	
==>cense (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39853	39944	
==>cense (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10737	10863	
==>g);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10737	10863	
==>g);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10737	10863	
==>g);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4542	4664	
==>:opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },               
    },
);

# The 'EigenClass' c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	608	706	
==>be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to det <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	608	706	
==>be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to det <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3009	3130	
==>ef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3009	3130	
==>ef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3009	3130	
==>ef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1129	1267	
==>{
    my $self    = shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$struc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3634	3735	
==>= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3634	3735	
==>= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4653	4773	
==>ir_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4653	4773	
==>ir_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4653	4773	
==>ir_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we'r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2275	2376	
==>tub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Nodes <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6105	6203	
==>SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6105	6203	
==>SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38763	38926	
==>,
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39290	39453	
==>,
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attri <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6521	6646	
==>not determine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2442	2556	
==>e $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2442	2556	
==>e $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2442	2556	
==>e $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2238	2358	
==>(ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2238	2358	
==>(ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => ' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43314	43409	
==>> is bundled with Relation and
provides a reference implementation of a Relation class.

These o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29404	29521	
==>LLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fourn <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29404	29521	
==>LLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fourn <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	228	333	
==>LLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fourn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4934	5050	
==>nd => 'rxatom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	227	340	
==>{ 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2708	2804	
==>ntly the most complete implementation. 
Pugs currently has some issues with Perl 5 interoperabili <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3641	3752	
==>ompiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your targ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3511	3617	
==>ompiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your targ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7830	7932	
==>for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($v,$prefix) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38896	39013	
==>is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38896	39013	
==>is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38896	39013	
==>is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6761	6890	
==>se) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # tra <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6761	6890	
==>se) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # tra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2329	2469	
==>l5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2642	2777	
==>l5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2642	2777	
==>l5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7247	7411	
==>"not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7247	7411	
==>"not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7247	7411	
==>"not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	924	1068	
==>e = closure::signature->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3403	3491	
==>($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3403	3491	
==>($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3710	3806	
==>defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_auto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3710	3806	
==>defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_auto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3710	3806	
==>defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_auto <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3667	3781	
==>ave a new Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3535	3645	
==>ave a new Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - y <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3475	3604	
==>erclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3475	3604	
==>erclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3475	3604	
==>erclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5174	5315	
==>};

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5174	5315	
==>};

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5174	5315	
==>};

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these cons <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28794	28908	
==>n have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOO <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28794	28908	
==>n have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1836	1930	
==>$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2360	2501	
==>ss defined $:expect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9074	9167	
==>above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9074	9167	
==>above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13582	13671	
==>I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	102	210	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	102	210	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	102	210	
==>'0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($cl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12570	12700	
==>@list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip function n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2166	2277	
==>tusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_succes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2166	2277	
==>tusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_succes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3688	3788	
==>ject

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3688	3788	
==>ject

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14759	14875	
==>> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14759	14875	
==>> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14759	14875	
==>> method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1501	1611	
==>nfinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1501	1611	
==>nfinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1501	1611	
==>nfinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23776	23870	
==>un::OnPerl5::X1::Api::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
       if($__fl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1803	1889	
==>e(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3179	3265	
==>e(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26067	26163	
==>h others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30619	30715	
==>h others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2171	2273	
==>)(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2171	2273	
==>)(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2171	2273	
==>)(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25699	25812	
==>ment C<$mapping> says which attributes are being
renamed, with its keys being the old names and its values the new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30251	30364	
==>ment C<$mapping> says which attributes are being
renamed, with its keys being the old names and its values the new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29217	29330	
==>ment C<$mapping> says which attributes are being
renamed, with its keys being the old names and its values the new <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12937	13032	
==>y not
possible to tell which of the returned values belonged to which field.

=item $h.remove_co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12937	13032	
==>y not
possible to tell which of the returned values belonged to which field.

=item $h.remove_co <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21618	21713	
==>_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2066	2175	
==>depc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2066	2175	
==>depc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2066	2175	
==>depc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6004	6102	
==>l}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6004	6102	
==>l}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6004	6102	
==>l}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1147	1271	
==>o the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1147	1271	
==>o the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1147	1271	
==>o the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	122	213	
==>t to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	122	213	
==>t to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	122	213	
==>t to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4698	4805	
==>l_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4698	4805	
==>l_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4698	4805	
==>l_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4177	4291	
==>ar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//'> <Sing <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	96	187	
==>de;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	96	187	
==>de;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7000	7114	
==>e'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7000	7114	
==>e'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3899	4013	
==>e'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4515	4691	
==>=> sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4515	4691	
==>=> sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4515	4691	
==>=> sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6553	6668	
==>imitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6553	6668	
==>imitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6553	6668	
==>imitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	458	563	
==>re the node in a variable outside of this function
      // and refer to it via the closure, then things d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	458	563	
==>re the node in a variable outside of this function
      // and refer to it via the closure, then things d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	458	563	
==>re the node in a variable outside of this function
      // and refer to it via the closure, then things d <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19852	19954	
==>0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14129	14225	
==>to consider unsafe (i.e., which to escape). The default set
of characters to encode are control c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14129	14225	
==>to consider unsafe (i.e., which to escape). The default set
of characters to encode are control c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3098	3448	
==>ll stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3098	3448	
==>ll stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22801	22931	
==>$self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23303	23433	
==>$self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52557	52641	
==>ursion
$::Class->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3071	3244	
==>rs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    sys <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	626	735	
==>= pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_rever <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	626	735	
==>= pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	806	977	
==>() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	806	977	
==>() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	806	977	
==>() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11643	11836	
==>$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7925	8118	
==>$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8759	8952	
==>$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5466	5595	
==>h my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5466	5595	
==>h my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5466	5595	
==>h my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @param <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9063	9159	
==>k = PL_regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_hook_off() { /* aka "abandon regex <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6509	6603	
==>splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_dire <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6509	6603	
==>splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_dire <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	533	632	
==>is a composable unit of behaviour; which includes;

=over

=item *

unbound public and private metho <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38331	38425	
==>onal parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38331	38425	
==>onal parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5761	5907	
==>e   (List)\
\\n   Scalar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (L <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	888	986	
==>($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	888	986	
==>($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1016	1132	
==>LT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(: <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1016	1132	
==>LT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2028	2113	
==>l_env();

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5875	6011	
==>per (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5875	6011	
==>per (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5875	6011	
==>per (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6686	6807	
==>IL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6686	6807	
==>IL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6686	6807	
==>IL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2010	2208	
==>nf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    met <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2010	2208	
==>nf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    met <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7655	7788	
==>astpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8959	9055	
==>g methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or en <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8959	9055	
==>g methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or en <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12478	12611	
==>for @pge; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19747	19840	
==>alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19747	19840	
==>alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6998	7108	
==>function is still noisy.  I'm working on it.

=cut

# Turns on autoflush for the handle passed
sub _autoflush { <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6535	6630	
==>------ internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6535	6630	
==>------ internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    re <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	171	272	
==>oritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would b <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	171	272	
==>oritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1223	1320	
==>h this package

=head2 $pkg->install( installation => INSTALLATION_OBJECT )

=cut

### XXX perl-if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5874	5986	
==>&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5874	5986	
==>&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5874	5986	
==>&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&ba <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4332	4430	
==>fied_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4374	4470	
==>alue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4374	4470	
==>alue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size( <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2512	2635	
==>b CheckHead {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17956	18052	
==>D YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17956	18052	
==>D YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2694	2834	
==>ance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2694	2834	
==>ance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2694	2834	
==>ance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13198	13294	
==>" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6673	6769	
==>" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8756	8994	
==>y $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8756	8994	
==>y $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8756	8994	
==>y $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                } <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1273	1409	
==>\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # wo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1929	2026	
==>rset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mul <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1929	2026	
==>rset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7440	7573	
==>\$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7428	7561	
==>\$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11934	12040	
==>rking.

  Upon exec, the subref should return match information.  Match
  information gets inserted in $1 e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6501	6602	
==>ue, and adds a
C<really_passed> key which contains the boolean representing if the test truly
did pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6501	6602	
==>ue, and adds a
C<really_passed> key which contains the boolean representing if the test truly
did pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8698	8799	
==>ue, and adds a
C<really_passed> key which contains the boolean representing if the test truly
did pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6391	6502	
==>ox.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6391	6502	
==>ox.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6391	6502	
==>ox.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3765	3904	
==>is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3765	3904	
==>is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3765	3904	
==>is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9511	9631	
==>my ($S) = @_;
  });


  ### '#'

  # I don't think I need to handle this because the
  # nextchar() method skips whitespa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	745	851	
==>);
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	951	1057	
==>);
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1747	1857	
==>ti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1747	1857	
==>ti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1747	1857	
==>ti sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2879	3019	
==>config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate a list of methods
### s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4405	4507	
==>ens in parametrized type operators, since they have children
	my $self = shift;
	my $accum = shift;

	b <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	885	1083	
==>nts<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_elem <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	885	1083	
==>nts<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	320	440	
==>re we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	320	440	
==>re we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	320	440	
==>re we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What' <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2276	2374	
==>};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2254	2352	
==>};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7742	7901	
==>'$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7742	7901	
==>'$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7742	7901	
==>'$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23309	23405	
==>SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23309	23405	
==>SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23309	23405	
==>SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	166	279	
==>um { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... }

# mmm, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	462	560	
==>$name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	462	560	
==>$name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14620	14813	
==>} @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14620	14813	
==>} @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14620	14813	
==>} @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21040	21135	
==>kage or program can be distributed with one or more
resource files containing text for users, an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21040	21135	
==>kage or program can be distributed with one or more
resource files containing text for users, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6150	6268	
==>D_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6150	6268	
==>D_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6150	6268	
==>D_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from supercl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6244	6330	
==>Code|Routine|Sub|Method|Submethod|Macro|Rule|Block|Bare|Parametric)\z/) {
	my($name,$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2394	2508	
==>piX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2394	2508	
==>piX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2394	2508	
==>piX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16041	16188	
==>= ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16041	16188	
==>= ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16041	16188	
==>= ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	859	959	
==>de::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	859	959	
==>de::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	859	959	
==>de::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::H <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4611	4706	
==>n( $set.complement );
}

# --------- arithmetic and list operations ----------------

method gre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4611	4706	
==>n( $set.complement );
}

# --------- arithmetic and list operations ----------------

method gre <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31130	31223	
==>new attributes, and
the values provide values applied to each tuple.  The new Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18942	19048	
==>line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' mu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18942	19048	
==>line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' mu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1155	1256	
==>y, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1155	1256	
==>y, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11087	11183	
==>"\n";
printf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10214	10357	
==>$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6555	6698	
==>$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7404	7547	
==>$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2275	2428	
==>0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2275	2428	
==>0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2275	2428	
==>0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29416	29533	
==>%{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29416	29533	
==>%{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29416	29533	
==>%{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6676	6827	
==>reword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::More
                <Pugs::Gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	382	489	
==>ple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	382	489	
==>ple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	382	489	
==>ple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2109	2235	
==>pect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2109	2235	
==>pect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2189	2315	
==>pect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6249	6429	
==>$body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6249	6429	
==>$body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6249	6429	
==>$body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14606	14728	
==>n pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14606	14728	
==>n pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14606	14728	
==>n pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	882	1012	
==>) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	882	1012	
==>) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12409	12524	
==>$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7775	7889	
==>r @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7775	7889	
==>r @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3103	3197	
==>&Date::Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_of_month returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6451	6565	
==>";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test::More::like().

sub l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2832	2930	
==>routine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2832	2930	
==>routine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3179	3277	
==>routine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao. <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	350	466	
==>fig{prefix},
        archname  => $Config{archname},
        exe_ext   => $Config{exe_ext},
        path_sep  => $Con <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6535	6632	
==>quest fails, then the
status code and message are printed on STDERR.  The return value is
the HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6535	6632	
==>quest fails, then the
status code and message are printed on STDERR.  The return value is
the HTTP <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5204	5306	
==>returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5204	5306	
==>returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6728	6830	
==>returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24349	24456	
==>c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20770	20877	
==>c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->a <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17200	17300	
==>lowercase. This is not a Unicode "titlecase" operation, but a
full "uppercase".


=item ucfirst

 mul <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6256	6351	
==>OT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6256	6351	
==>OT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13917	14018	
==>$class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatche <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	235	335	
==>ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1093	1193	
==>ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46674	46918	
==>' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2453	2590	
==>num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2453	2590	
==>num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1067	1183	
==>cat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
print "P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35533	35625	
==>s_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N-a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40083	40175	
==>s_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N-a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17827	18006	
==>own(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earlier ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3671	3771	
==>js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3671	3771	
==>js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3671	3771	
==>js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4940	5066	
==>. ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4940	5066	
==>. ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4940	5066	
==>. ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	558	654	
==>g.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	558	654	
==>g.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	558	654	
==>g.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3551	3665	
==>thname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3551	3665	
==>thname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3551	3665	
==>thname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7955	8133	
==>null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7955	8133	
==>null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7955	8133	
==>null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15779	15891	
==>hen it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2176	2284	
==>hen it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	329	423	
==>sub inc_paths {
	warn "inc_paths has been changed to cc_inc_paths due to confusion between Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4560	4658	
==>s_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4560	4658	
==>s_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4560	4658	
==>s_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11431	11583	
==>y $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11431	11583	
==>y $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11431	11583	
==>y $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8570	8733	
==>e whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8570	8733	
==>e whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8570	8733	
==>e whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12666	12786	
==>{    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12666	12786	
==>{    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12666	12786	
==>{    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Clas <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2987	3090	
==>do test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2987	3090	
==>do test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$C <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2722	2825	
==>syncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2456	2551	
==>) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	111	206	
==>Template;
#use perl5:Text::Textile qw(textile);

print header();
#my $template  = HTML::Template <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2456	2551	
==>) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1751	1913	
==>relude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $p <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	729	841	
==>1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard function <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	729	841	
==>1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard function <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1431	1537	
==>ion of one variable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tole <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6296	6387	
==>ls{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6296	6387	
==>ls{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30182	30324	
==>ext} };  # there was an 'atom' there
    &RxPOS--;             # this does pos(regex)--
    return;
  });

This handler un-consumes the ')' (vi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5414	5517	
==>stamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5414	5517	
==>stamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3390	3558	
==>' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3390	3558	
==>' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3370	3477	
==>que_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3370	3477	
==>que_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3370	3477	
==>que_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	387	482	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	387	482	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	387	482	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1844	1960	
==>if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1844	1960	
==>if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11516	11697	
==>SS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11516	11697	
==>SS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11516	11697	
==>SS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7594	7716	
==>-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($conte <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7594	7716	
==>-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($conte <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3835	3935	
==>E|REF|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->ref();
}
s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	375	480	
==>w[rm -rf], $config->root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11052	11147	
==>source code into something else. This is almost
# always overridden in a subclass.
sub pmc_compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11052	11147	
==>source code into something else. This is almost
# always overridden in a subclass.
sub pmc_compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2026	2141	
==>def, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2026	2141	
==>def, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2026	2141	
==>def, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7281	7416	
==>=> Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7281	7416	
==>=> Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7281	7416	
==>=> Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5556	5691	
==>ed $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5556	5691	
==>ed $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5556	5691	
==>ed $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5739	5843	
==>ntire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5739	5843	
==>ntire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7263	7367	
==>ntire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3869	3958	
==>-------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3869	3958	
==>-------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3869	3958	
==>-------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4767	4872	
==>pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4767	4872	
==>pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4767	4872	
==>pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6929	7044	
==>ot implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1285	1397	
==>ot implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	387	496	
==>ot implemented" };
sub get_op { die "not implemented" };
sub inherit_category { die "not implemented" };
sub i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4114	4207	
==>ines B<only class methods>. There is no instance
constructor, and when calling these methods y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4114	4207	
==>ines B<only class methods>. There is no instance
constructor, and when calling these methods y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4114	4207	
==>ines B<only class methods>. There is no instance
constructor, and when calling these methods y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3978	4088	
==>5, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3978	4088	
==>5, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3978	4088	
==>5, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	136	239	
==>nt(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	136	239	
==>nt(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	136	239	
==>nt(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	915	1056	
==>});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	915	1056	
==>});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	915	1056	
==>});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3264	3393	
==>rgs;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3404	3533	
==>rgs;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6507	6594	
==>erm => $() ,} }
RULE
*{'sub_application'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38838	38939	
==>e body contains all of the tuples that
are in the invocant Relation::Example and that match any tuples <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15339	15437	
==>ed, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15397	15495	
==>ed, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) retur <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2056	2167	
==>fined($.string) ?? Num $.string !! $.count }
        multi method as (--> Str) { $.string }
        multi method <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20503	20602	
==>nd lets you arrange the list in order of preference.  When you
open a program, it will search for la <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20503	20602	
==>nd lets you arrange the list in order of preference.  When you
open a program, it will search for la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3868	3982	
==>s;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3868	3982	
==>s;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3868	3982	
==>s;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_w <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9395	9516	
==>sh @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11767	11872	
==>GIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11761	11866	
==>GIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9939	10083	
==>-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9939	10083	
==>-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9939	10083	
==>-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	793	898	
==>"> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	793	898	
==>"> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircn <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1910	2027	
==>make it ready for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1462	1563	
==>an, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1462	1563	
==>an, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2032	2140	
==>$name -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} = sub {" . '
    my $grammar = sh <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10231	10320	
==>","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10966	11055	
==>","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8729	8820	
==>:Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sak <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8729	8820	
==>:Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sak <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7812	7928	
==>et, pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7333	7436	
==>t may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "La <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7333	7436	
==>t may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "La <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	127	234	
==>dy, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	127	234	
==>dy, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	127	234	
==>dy, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2104	2362	
==>", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2104	2362	
==>", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2104	2362	
==>", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	845	957	
==>und, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( li <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2747	2848	
==>@PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-" <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2747	2848	
==>@PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9483	9667	
==>assed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6967	7096	
==>->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6967	7096	
==>->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1028	1126	
==>of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1028	1126	
==>of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1028	1126	
==>of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2824	2950	
==>) {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2824	2950	
==>) {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2824	2950	
==>) {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	138	243	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	138	243	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	138	243	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	831	953	
==>t gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	831	953	
==>t gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	831	953	
==>t gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	282	429	
==>' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	282	429	
==>' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	282	429	
==>' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11678	11790	
==>f($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11678	11790	
==>f($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11678	11790	
==>f($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2350	2473	
==>x.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp varia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2350	2473	
==>x.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp varia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2350	2473	
==>x.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp varia <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	120	217	
==>e: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	84	180	
==>e: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	172	268	
==>e: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit { <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	757	942	
==>n(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::Const>),
                                Tree.new(:node<Array::S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7344	7439	
==>hod set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7344	7439	
==>hod set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	194	295	
==>s used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	194	295	
==>s used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20316	20411	
==>%]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eval_p5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21966	22062	
==>) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21966	22062	
==>) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21966	22062	
==>) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	676	778	
==>)",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	676	778	
==>)",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	676	778	
==>)",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2573	2674	
==>diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2573	2674	
==>diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2653	2754	
==>diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2982	3127	
==>LE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3199	3344	
==>LE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't op <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4587	4688	
==>my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = shift;
	my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1882	1993	
==>xport
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1882	1993	
==>xport
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1962	2073	
==>xport
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	340	593	
==>ackages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	340	593	
==>ackages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used <==
3	/Users/nnunley/pugs/util/testgraph.pl	470	570	
==>fh, ":utf8" or die "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5079	5203	
==>CH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4343	4458	
==>CH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1075	1224	
==>uffer;
        
        my @x = @{$sexpr};
        foreach my $i (reverse(0 .. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1457	1564	
==>Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1457	1564	
==>Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4293	4452	
==>@{$self}) {
        if ($closure->isa('closure')) {
            $list->push(
                $closure->do(
                    list->new($val)
                ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	384	496	
==>e($node);
	}
}

sub can_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1271	1400	
==>var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1271	1400	
==>var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1271	1400	
==>var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30135	30226	
==>vided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34687	34778	
==>vided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33860	33951	
==>vided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	229	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	229	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	229	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32543	32668	
==>')->send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO')->reverse);
            }
        )
    )
);

=pod

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1634	1727	
==>ey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it an <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1634	1727	
==>ey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8567	8697	
==>ody,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8567	8697	
==>ody,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8567	8697	
==>ody,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3372	3477	
==>0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3372	3477	
==>0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3372	3477	
==>0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1448	1541	
==>fg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1448	1541	
==>fg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1448	1541	
==>fg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludep <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	249	350	
==>p extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using ' <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	249	350	
==>p extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26578	26672	
==>e C<TYPE> and sends the constructor whatever
other arguments are included.  This method takes c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8500	8600	
==>our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8500	8600	
==>our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8500	8600	
==>our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3597	3703	
==>cument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3597	3703	
==>cument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25489	25579	
==>,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23208	23316	
==>altime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23208	23316	
==>altime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23208	23316	
==>altime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB subs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12914	13046	
==>t),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. J <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12914	13046	
==>t),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. J <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1554	1668	
==>y of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content = <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1554	1668	
==>y of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content = <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4767	4897	
==>, @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4767	4897	
==>, @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7384	7474	
==>ive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7384	7474	
==>ive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7384	7474	
==>ive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23605	23865	
==>urn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23605	23865	
==>urn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23605	23865	
==>urn Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3886	4021	
==>who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args) = @_;

    # ignore the prefi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17805	17929	
==>$ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14226	14350	
==>$ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3050	3170	
==>'t compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3050	3170	
==>'t compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3050	3170	
==>'t compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 does <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2831	2939	
==>e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
        return $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13707	13810	
==>SIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7914	8017	
==>SIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3689	3798	
==>wd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3689	3798	
==>wd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3689	3798	
==>wd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2976	3089	
==>ingify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2976	3089	
==>ingify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2976	3089	
==>ingify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3116	3266	
==>iable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2994	3138	
==>iable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20304	20397	
==>$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currentl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20304	20397	
==>$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currentl <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1466	1637	
==>SWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not supported on your platform\n";
        $Config{"concurrent"} = 1;
        return;
    }
    re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9453	9549	
==>contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $obje <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9453	9549	
==>contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $obje <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6724	6825	
==>uld return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6724	6825	
==>uld return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11148	11242	
==>turns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11148	11242	
==>turns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19592	19699	
==>d


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Contex <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4568	4657	
==>dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5::/ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21237	21325	
==>ubstrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offset
 #defin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	815	930	
==>closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	815	930	
==>closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15702	15795	
==>semantic.

rm(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20799	20892	
==>nfix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20799	20892	
==>nfix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20799	20892	
==>nfix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11069	11225	
==>ferred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11069	11225	
==>ferred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11069	11225	
==>ferred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1125	1238	
==>elf.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1125	1238	
==>elf.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $sel <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	180	267	
==>ttp://www.nntp.perl.org/group/perl.perl6.language/20985
  docs/quickref/rules
  http://s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4091	4189	
==>tting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fals <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4091	4189	
==>tting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fals <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6288	6386	
==>tting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to fals <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	889	1001	
==>m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($li <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23489	23577	
==>ation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Mi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23489	23577	
==>ation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Mi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8437	8576	
==>ment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8437	8576	
==>ment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXI <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1584	1717	
==>ow => ISA_JIB_INSTALLATION },
        repository      => { allow => ISA_JIB_REPOSITORY },
    };

    sub new {
        my $class = sh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19520	19611	
==>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse ar <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19520	19611	
==>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse ar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3127	3270	
==>kage_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2102	2220	
==>en_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size i <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2102	2220	
==>en_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8670	8767	
==>awJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8670	8767	
==>awJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8670	8767	
==>awJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4377	4477	
==>ce");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4377	4477	
==>ce");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4377	4477	
==>ce");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11780	11896	
==>{&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4423	4539	
==>{&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2266	2356	
==>e { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of complex128 whe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5148	5375	
==>ack and binds it to a symbol.

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

T <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1983	2145	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=h <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1983	2145	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=h <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	47	147	
==>ds Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - p <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	47	147	
==>ds Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - p <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4905	5004	
==>e.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18605	18701	
==>.union( $other!body ),
    );
}

my method _exclusion (Relation::Example $other!) returns Relatio <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	154	247	
==>tall::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use strict;
use File::Basenam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	22	127	
==>l the Grammar::Perl6 package
package Grammar::Perl6Init;

use warnings;
use Pugs::Runtime::Match;
no warni <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6143	6243	
==>me data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'sca <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6143	6243	
==>me data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'sca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24625	24728	
==>});

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21046	21149	
==>});

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5567	5740	
==>ift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5567	5740	
==>ift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5567	5740	
==>ift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4658	4800	
==>{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # hel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41316	41404	
==>.21, provided feedback towards improving this module's
documentation, particularly toward <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41316	41404	
==>.21, provided feedback towards improving this module's
documentation, particularly toward <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2930	3031	
==>l6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2930	3031	
==>l6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2930	3031	
==>l6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3477	3643	
==>v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3477	3643	
==>v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7114	7219	
==>n () {\n\treturn $main;\n}";
	push @{ $self->{defs} }, "int main () { b_main(); return 0; }";

	join("\n\n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13950	14055	
==>_array_complain->("scalar_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] } <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	937	1030	
==>ebugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	937	1030	
==>ebugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	763	908	
==>s') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	763	908	
==>s') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	763	908	
==>s') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17745	17838	
==>*

Zero additional runtime penalty after compilation, because C<perl> has
already been doing t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17745	17838	
==>*

Zero additional runtime penalty after compilation, because C<perl> has
already been doing t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	619	716	
==>Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Instal <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	466	554	
==>----------------------------------------------------
## accessors and mutators

method pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	466	554	
==>----------------------------------------------------
## accessors and mutators

method pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	49	147	
==>se warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	49	147	
==>se warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	49	147	
==>se warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13147	13297	
==>, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13147	13297	
==>, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13147	13297	
==>, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next ME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	339	444	
==>e nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	339	444	
==>e nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	339	444	
==>e nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2146	2251	
==>»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2146	2251	
==>»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2146	2251	
==>»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4319	4497	
==>re}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4188	4360	
==>re}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	460	589	
==>oc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16532	16646	
==>ue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16532	16646	
==>ue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16532	16646	
==>ue::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4616	4717	
==>-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Loca <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4616	4717	
==>-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Loca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24010	24151	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24289	24430	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3648	3755	
==>ross-referenced P6 design documents\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 design <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	524	722	
==>}
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	524	722	
==>}
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	524	722	
==>}
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8715	8805	
==>EE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptogr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8715	8805	
==>EE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptogr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1606	1692	
==>expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4648	4765	
==>print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4660	4777	
==>print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27544	27640	
==>s doesn't mean you can use them on C<qr//>, but rather
that you can write C<(?u:...)> or C<(?u)>. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1899	2051	
==>me, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1899	2051	
==>me, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26303	26398	
==>OKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x00400
 #define ROPT_CANY_SEEN		0x00800
 #define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6758	6912	
==>'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6758	6912	
==>'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6758	6912	
==>'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	429	545	
==>ub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	429	545	
==>ub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	429	545	
==>ub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($s <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	612	720	
==>->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12864	12979	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12864	12979	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12864	12979	
==>= @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $k <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2458	2867	
==>n::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example

###########################################################################
###########################################################################
=x

class Relation::Example-0.1.0 { <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	415	509	
==>ode_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX Thi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	415	509	
==>ode_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX Thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2678	2779	
==>eturn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6155	6256	
==>eturn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5085	5186	
==>eturn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2402	2502	
==>utoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2402	2502	
==>utoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2402	2502	
==>utoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	761	890	
==>->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	743	867	
==>->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	743	867	
==>->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11055	11161	
==>tch::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11205	11311	
==>tch::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6081	6235	
==>:_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3250	3402	
==>:_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4099	4251	
==>:_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11798	11926	
==>n->{exp2} );
    }

    return _emit( $n->{exp1} ) . ' ' . 
        $n->{op1}{op} . ' ' . _emit( $n->{exp2} );
}

sub circ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8016	8127	
==>zation") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8016	8127	
==>zation") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23443	23599	
==>tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23443	23599	
==>tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23443	23599	
==>tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	82	177	
==>xperiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	82	177	
==>xperiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	82	177	
==>xperiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9084	9248	
==>= ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9084	9248	
==>= ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9084	9248	
==>= ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3409	3516	
==>$idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3409	3516	
==>$idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3409	3516	
==>$idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:< <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	96	207	
==>w{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub c_files {
	warn "c_f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5240	5334	
==>:KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5240	5334	
==>:KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Lo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1255	1348	
==>N

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1255	1348	
==>N

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19682	19798	
==>aram pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = self[1]
    $P1 = $P1.p6analy <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2729	2844	
==>\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %sta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2729	2844	
==>\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12451	12587	
==>ef' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12451	12587	
==>ef' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12451	12587	
==>ef' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14069	14236	
==>ttrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14069	14236	
==>ttrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14069	14236	
==>ttrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2408	2497	
==>ner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2408	2497	
==>ner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2408	2497	
==>ner::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descript <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5342	5532	
==>$attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8819	9009	
==>$attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7839	8029	
==>$attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	390	507	
==>d({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	390	507	
==>d({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	390	507	
==>d({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1293	1392	
==>ch my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1293	1392	
==>ch my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1293	1392	
==>ch my $meta_obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9071	9166	
==>set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9071	9166	
==>set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open( <==
3	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	3	98	
==>erbatim from S12
role returns {
  has ReturnType $.returns;
  multi sub trait_verb:<returns>($co <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3426	3547	
==>up or down
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        w <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7300	7401	
==>directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # No <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7300	7401	
==>directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2707	2809	
==>IL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2707	2809	
==>IL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2707	2809	
==>IL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6724	6894	
==>> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6724	6894	
==>> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @par <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19868	19958	
==>R::<$_> --> Num )
{ Pugs::Internals::string_as_number(16,$hexstr) }
 multi prefix:<:8> ( St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1361	1465	
==>e $ident;\n";
}
sub node::slurp {
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12782	12958	
==>my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12782	12958	
==>my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12782	12958	
==>my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	773	878	
==>nf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	773	878	
==>nf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	773	878	
==>nf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	235	347	
==>EGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3185	3290	
==>s, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3185	3290	
==>s, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3185	3290	
==>s, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12214	12360	
==>tch::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capture( '$name', \n" . $prog <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	920	1014	
==>enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	920	1014	
==>enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6622	6723	
==>method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6622	6723	
==>method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6622	6723	
==>method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15105	15202	
==>tring passed as the first argument, if
called in a void context.  In scalar and array contexts, th <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15105	15202	
==>tring passed as the first argument, if
called in a void context.  In scalar and array contexts, th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26110	26206	
==>_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Check-string always <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3792	4010	
==>atchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17942	18068	
==>> { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17942	18068	
==>> { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6492	6588	
==>Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method sh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6492	6588	
==>Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method sh <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17486	17628	
==>f the string.


=item capitalize

 multi Str::capitalize (  Str $string              --> Str )
 multi Str::capitalize ( Str $string = CALLER::< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19390	19486	
==>rade or localize what text the user
sees, you only have to update said separate resource files, a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19390	19486	
==>rade or localize what text the user
sees, you only have to update said separate resource files, a <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	87	199	
==>mport (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	87	199	
==>mport (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23464	23609	
==>);
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23464	23609	
==>);
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23464	23609	
==>);
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3806	3920	
==>ile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	424	521	
==>lues from all letters), and an 
unnamed similar cipher where all bytes are changed, not just lette <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	424	521	
==>lues from all letters), and an 
unnamed similar cipher where all bytes are changed, not just lette <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1694	1807	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1694	1807	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1694	1807	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14713	14803	
==>::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14713	14803	
==>::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14713	14803	
==>::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8613	8717	
==>"write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8613	8717	
==>"write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8613	8717	
==>"write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	510	681	
==>start, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6397	6489	
==>ent handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 F <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6397	6489	
==>ent handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 F <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1789	1880	
==>ceived parameters, while App is providing $sent parameters: "
		. Blondie::Emitter::Pretty-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17465	17586	
==>_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17465	17586	
==>_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR' <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1151	1246	
==>ll_day = dayify(@commits);
my @devs_till_day    = dayify(@developers);
# @devs_till_day should h <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13114	13209	
==>strings are returned.

If called in void context the arguments are decoded in-place.

This routi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13114	13209	
==>strings are returned.

If called in void context the arguments are decoded in-place.

This routi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8415	8507	
==>h_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8415	8507	
==>h_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8415	8507	
==>h_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33775	33905	
==>AL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33775	33905	
==>AL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33775	33905	
==>AL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5933	6034	
==>j, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5933	6034	
==>j, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5933	6034	
==>j, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the o <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16195	16294	
==>on( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. O <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16195	16294	
==>on( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. O <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3326	3430	
==>st.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3326	3430	
==>st.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4850	4954	
==>st.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1351	1449	
==>te = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1351	1449	
==>te = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1351	1449	
==>te = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36577	36675	
==>, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22628	22718	
==>The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22628	22718	
==>The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8757	8864	
==>2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8757	8864	
==>2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8757	8864	
==>2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6319	6427	
==>.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6319	6427	
==>.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6319	6427	
==>.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6599	6695	
==>| die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6599	6695	
==>| die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17145	17251	
==>thods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17145	17251	
==>thods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17145	17251	
==>thods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	178	278	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	178	278	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	178	278	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	811	904	
==>al { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) becau <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	811	904	
==>al { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) becau <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18170	18283	
==>debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18170	18283	
==>debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE", <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22564	22674	
==>b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in Eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7456	7541	
==>make_method($_collect_all_roles));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7456	7541	
==>make_method($_collect_all_roles));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7456	7541	
==>make_method($_collect_all_roles));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38951	39075	
==>op_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38951	39075	
==>op_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38951	39075	
==>op_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6922	7019	
==>her);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6922	7019	
==>her);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6922	7019	
==>her);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15957	16104	
==>{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15957	16104	
==>{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15957	16104	
==>{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12663	12804	
==>d) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12663	12804	
==>d) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12663	12804	
==>d) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7038	7155	
==>');
  });

  # seol (end of line, in single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	46	153	
==>unt, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: han <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	46	153	
==>unt, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: han <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	667	773	
==>ut) is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## X <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	975	1084	
==>keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	975	1084	
==>keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	975	1084	
==>keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35228	35370	
==>>_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35228	35370	
==>>_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35228	35370	
==>>_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5918	6016	
==>rt of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5918	6016	
==>rt of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7129	7292	
==>_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7129	7292	
==>_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7129	7292	
==>_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	260	368	
==>N';

use ExtUtils::MakeMaker ();

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMa <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	286	386	
==>en( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	286	386	
==>en( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	274	385	
==>t loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	274	385	
==>t loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	274	385	
==>t loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19656	19749	
==>information schema" records, which in SQL are read-only,
not by using special 'create' or 'alt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19656	19749	
==>information schema" records, which in SQL are read-only,
not by using special 'create' or 'alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	650	751	
==>[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	650	751	
==>[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	650	751	
==>[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	27	121	
==>et-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYN <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	27	121	
==>et-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYN <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27822	27916	
==>, and finally
from F<Regexp::Parser::__object__>.  Don't worry -- if you don't define
a base cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	870	970	
==>t Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles thro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	870	970	
==>t Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles thro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	870	970	
==>t Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles thro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2819	2941	
==>defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2959	3081	
==>defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9004	9090	
==>et_def_x(L0,L1) --> "-", {append(L0,[char(45)],L1)}, !.
p5_charset_def_x(L0,L0) --> {tr <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	549	675	
==>:DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	549	675	
==>:DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2703	2800	
==>[@{$Z::oop{$id}{'ops'}}]; local $Z::oop{$id}{'ops'} = $ops;
        my $cmp = (!defined($ops->[-1] <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4563	4665	
==>C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an excep <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4563	4665	
==>C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an excep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6087	6189	
==>C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an excep <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15304	15412	
==>s)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8705	8813	
==>er', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6236	6340	
==>er', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29814	29924	
==>ey};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuf <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29814	29924	
==>ey};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuf <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5208	5308	
==>ABLE_CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto end if ( $position >= $lastPos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1449	1549	
==>ould be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1449	1549	
==>ould be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1449	1549	
==>ould be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27038	27143	
==>pl";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new()->set_as_failed() if !defined $a;
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4018	4109	
==>ackage = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4018	4109	
==>ackage = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4018	4109	
==>ackage = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1246	1352	
==>tatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1246	1352	
==>tatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1246	1352	
==>tatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22755	22867	
==>space" goto words
    if mname == ":ignorecase" goto ignorecase
    goto setpad
  words:
    mname = ":s"
    got <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13465	13568	
==>,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,}) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13465	13568	
==>,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,}) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3148	3267	
==>start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3148	3267	
==>start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span. <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	190	322	
==>:load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKA <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	185	317	
==>:load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKA <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	595	699	
==>'opaque')))
        || confess "Class must be an instance of reference";
    (blessed($attrs) && $attrs-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2036	2140	
==>hods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2036	2140	
==>hods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2036	2140	
==>hods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6397	6531	
==>stant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6397	6531	
==>stant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6397	6531	
==>stant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2077	2196	
==>nd line
3rd line
GROK

my $file4 = <<'GROK';
1st line
2nd line
3rd line
4th line
GROK

my $file12 = <<'GROK';
1st line
2 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9073	9188	
==>rt module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9131	9246	
==>rt module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18598	18688	
==>_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18598	18688	
==>_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18598	18688	
==>_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13080	13175	
==>le exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_pay <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13080	13175	
==>le exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_pay <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2332	2419	
==>ect->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2332	2419	
==>ect->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2332	2419	
==>ect->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8081	8203	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8081	8203	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8081	8203	
==>| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHO <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	811	943	
==>ad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6824	6915	
==>ore a document identified by a URL, using
I<If-modified-since>, and checking the I<Content-L <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6824	6915	
==>ore a document identified by a URL, using
I<If-modified-since>, and checking the I<Content-L <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1675	1805	
==>) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1675	1805	
==>) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1675	1805	
==>) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18156	18294	
==>od) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$cl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2500	2621	
==>rt ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2500	2621	
==>rt ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1815	1914	
==>$self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1955	2054	
==>$self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dump <==
3	/Users/nnunley/pugs/util/grokprims.pl	2418	2515	
==>nt "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6548	6649	
==>$type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6548	6649	
==>$type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6548	6649	
==>$type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3174	3271	
==>nf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3174	3271	
==>nf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3174	3271	
==>nf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7520	7671	
==>nt && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7520	7671	
==>nt && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7520	7671	
==>nt && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7765	8013	
==>ew(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $r <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7765	8013	
==>ew(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $r <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3120	3223	
==>here just because of an icky pugsbug.
    #my %idx = <package file line subname subtype params> Y 0 .. 5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2691	2796	
==>);

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3266	3369	
==>)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2888	2983	
==>bscription (Class::Events::Subscription::Named $subscription) {
            %.subscriptions<$sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3739	3843	
==>++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3739	3843	
==>++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4329	4433	
==>++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3671	3776	
==>ons immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3671	3776	
==>ons immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3671	3776	
==>ons immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inli <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7682	7840	
==>ass->send('add_method' => (
    # method label
        symbol->new('has_method'), 
    # method body
        method->new(
            $::ENV,
            metho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	985	1092	
==>n::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	985	1092	
==>n::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14017	14115	
==>r each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14017	14115	
==>r each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, an <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	187	284	
==>:Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION { <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10891	10982	
==>nformation about how many members
were actually new is discarded.

=head2 C<$set.remove(...) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10891	10982	
==>nformation about how many members
were actually new is discarded.

=head2 C<$set.remove(...) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7606	7758	
==>not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting arra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7618	7770	
==>not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting arra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	315	451	
==>};
    delete $param->{Perl5};
    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;
    my $self = { source => $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3964	4149	
==>apping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7441	7626	
==>apping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6407	6592	
==>apping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $at <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1947	2094	
==>code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1947	2094	
==>code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14222	14322	
==>.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::variable::free->new,
			type::v <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1090	1214	
==>st = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        print " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5714	5819	
==>);

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	141	233	
==>aclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	141	233	
==>aclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	453	567	
==>elf)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	453	567	
==>elf)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	453	567	
==>elf)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    di <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10986	11101	
==>o p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11136	11251	
==>o p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<na <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23164	23268	
==>captures(Ex,C1,E1).
rmSomewhere(Re,[C|Fx],F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,Fx,F1,[C|B0],B1,E0,E1).

rm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14135	14244	
==>attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8024	8127	
==>span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contain <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8024	8127	
==>span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contain <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35380	35476	
==>t will only accept inputs that would result in
a cross-product when joined.  This method has alia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39930	40026	
==>t will only accept inputs that would result in
a cross-product when joined.  This method has alia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39490	39586	
==>t will only accept inputs that would result in
a cross-product when joined.  This method has alia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17992	18108	
==>( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17992	18108	
==>( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17992	18108	
==>( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2566	2669	
==>»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2566	2669	
==>»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2566	2669	
==>»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12971	13088	
==>> sub { "". ${$_[0]} },
      scalar_non_numeric => sub { "". ${$_[0]} },
      array => sub { "". @{$_[0]} },
      h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2133	2248	
==>( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2144	2259	
==>( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7372	7474	
==>et($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7372	7474	
==>et($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7372	7474	
==>et($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4875	4983	
==>ode> 
        {
	 eval Emitter::Perl5::emit({macro => $()});
	 return { macro => $() ,}
	}
RULE
*{'empty_list <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2835	2939	
==>y @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2835	2939	
==>y @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15129	15240	
==>o_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15129	15240	
==>o_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15129	15240	
==>o_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	57	168	
==>use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	57	168	
==>use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	57	168	
==>use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Export <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	266	393	
==>e ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	266	393	
==>e ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	87	191	
==>ndie::Reducer::DynamicScoping/;

use strict;
use warnings;

use UNIVERSAL::moniker;
use String::Escape qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	752	865	
==>my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	752	865	
==>my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	752	865	
==>my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1548	1644	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
eq <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1548	1644	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	507	641	
==>nce to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	507	641	
==>nce to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	507	641	
==>nce to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6306	6388	
==>rintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6306	6388	
==>rintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6306	6388	
==>rintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	376	493	
==>s, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	376	493	
==>s, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9845	9948	
==>el
  my $iter = $parser->walker(2);  # top- through third-level

The iterator returned is a function ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4998	5112	
==>urpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4998	5112	
==>urpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4998	5112	
==>urpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $un <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8344	8463	
==>t }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating comp <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8344	8463	
==>t }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating comp <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6329	6471	
==>\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version inf <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5837	5979	
==>\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version inf <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9820	9926	
==>=> -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9820	9926	
==>=> -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10932	11065	
==>ey, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10932	11065	
==>ey, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10932	11065	
==>ey, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13484	13597	
==>ler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13484	13597	
==>ler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9821	9937	
==>m not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9821	9937	
==>m not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9821	9937	
==>m not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5358	5490	
==>"} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5358	5490	
==>"} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8967	9099	
==>k
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10018	10124	
==>GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10018	10124	
==>GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1226	1330	
==>ut\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1226	1330	
==>ut\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1226	1330	
==>ut\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1985	2088	
==>class Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.out <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	0	93	
==>class Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	0	93	
==>class Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.out <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31350	31466	
==>f->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	110	208	
==>t is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	110	208	
==>t is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=p <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	480	578	
==>tz.defined and !$tz.isa("Time::Zone");
    return
        Date::Gregorian.new( :year($year), :month <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45452	45556	
==>space' => 'hash')));


$::Package->send('add_method' => (
    # method label
        symbol->new('name'), <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9442	9541	
==>span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9442	9541	
==>span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7140	7251	
==>rm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3744	3855	
==>rm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4593	4704	
==>rm2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18600	18696	
==>nt (that is, I<every>
character in that embedded class is already found in the class), set the
C< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35177	35270	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that is ident <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39727	39820	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that is ident <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	949	1068	
==>ical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	949	1068	
==>ical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	949	1068	
==>ical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35443	35577	
==>rray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35443	35577	
==>rray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35443	35577	
==>rray->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11841	11940	
==>of class all conform to the Role interface/API they are 
interchangable with one another, classes an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11841	11940	
==>of class all conform to the Role interface/API they are 
interchangable with one another, classes an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11841	11940	
==>of class all conform to the Role interface/API they are 
interchangable with one another, classes an <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30173	30278	
==>ators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Per <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34725	34830	
==>ators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Per <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33898	34003	
==>ators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15141	15248	
==>O: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18618	18725	
==>O: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18034	18141	
==>O: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one rel <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8556	8712	
==>olor: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding-top:  30px; bord <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1464	1549	
==>p://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1304	1389	
==>p://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1069	1198	
==>dy = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1469	1598	
==>dy = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1943	2072	
==>dy = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7847	7954	
==>YNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7847	7954	
==>YNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7847	7954	
==>YNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10298	10396	
==>he set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10298	10396	
==>he set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16226	16319	
==>s =~ s/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misctmp\d+\s+aborted/of - ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1961	2107	
==>ubs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1961	2107	
==>ubs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1961	2107	
==>ubs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2635	2745	
==>se = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2635	2745	
==>se = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6548	6645	
==>may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6548	6645	
==>may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6548	6645	
==>may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1385	1491	
==>n an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## unt <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1385	1491	
==>n an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## unt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8943	9052	
==>= $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8943	9052	
==>= $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::H <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32852	32952	
==>rned while I<walking> the tree is
helpful.

The walk() method is used to modify the walking stack bef <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23696	23821	
==>),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16581	16682	
==>no such header field, then the empty
string is returned.  This makes it safe to do the following:

  i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16581	16682	
==>no such header field, then the empty
string is returned.  This makes it safe to do the following:

  i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3110	3203	
==>de(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3110	3203	
==>de(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3110	3203	
==>de(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16760	16856	
==>I SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16760	16856	
==>I SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16760	16856	
==>I SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39014	39152	
==>start => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39014	39152	
==>start => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39014	39152	
==>start => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4242	4338	
==>y issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4242	4338	
==>y issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4242	4338	
==>y issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	364	617	
==>e:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	364	617	
==>e:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosett <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	380	525	
==>my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symbol nil type  
        list hash reference block 
        closure closur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1133	1252	
==>f($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1133	1252	
==>f($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1133	1252	
==>f($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3406	3500	
==>{
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3406	3500	
==>{
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4745	4838	
==>g " . $self->display_type($expected) . " with " . Data::Dumper::Dumper($node);
			$self->unify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7830	7938	
==>@classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    forea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7830	7938	
==>@classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    forea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7830	7938	
==>@classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    forea <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9294	9396	
==>Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style messa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9294	9396	
==>Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style messa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4532	4632	
==>node->orig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9676	9792	
==>spatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9676	9792	
==>spatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9676	9792	
==>spatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	255	374	
==>ey)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	255	374	
==>ey)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	255	374	
==>ey)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9732	9857	
==>xs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9732	9857	
==>xs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9732	9857	
==>xs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	623	724	
==>d {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	623	724	
==>d {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	623	724	
==>d {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1908	1999	
==>eturn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1908	1999	
==>eturn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1908	1999	
==>eturn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	956	1056	
==>eid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	956	1056	
==>eid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	956	1056	
==>eid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16944	17038	
==>::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16944	17038	
==>::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16944	17038	
==>::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	166	298	
==>oader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'Dyna <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	161	293	
==>oader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'Dyna <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	986	1111	
==>nemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->fetch(num-> <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2039	2131	
==>----------------------------
## adding children 

method add_child ($self: Tree $child) retur <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2039	2131	
==>----------------------------
## adding children 

method add_child ($self: Tree $child) retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	874	992	
==>ST
    
    print Blondie::Emitter::Pretty->new->string($result); # works for all nodes


    # perl equivalent

    (s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	327	426	
==>it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	327	426	
==>it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2810	2921	
==>qual( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2810	2921	
==>qual( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1647	1774	
==>"<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1647	1774	
==>"<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1647	1774	
==>"<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	636	747	
==>value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	636	747	
==>value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	636	747	
==>value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // ht <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5918	6030	
==>}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - base class for parsing regexes

=head1 SYNOPSIS

See example <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5536	5646	
==>my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5536	5646	
==>my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11025	11135	
==>^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11175	11285	
==>^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6663	6767	
==>age fun;
use base qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/node/;

package l <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1752	1869	
==>ift;

    my $self = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Init <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1300	1441	
==>new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13621	13718	
==>nite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should con <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13621	13718	
==>nite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1866	1967	
==>\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1866	1967	
==>\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1866	1967	
==>\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8668	8793	
==>key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8668	8793	
==>key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8668	8793	
==>key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	917	1036	
==>IL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	917	1036	
==>IL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	917	1036	
==>IL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8245	8353	
==>n $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7961	8064	
==>n $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	638	725	
==>till_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	638	725	
==>till_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	638	725	
==>till_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsa <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	723	884	
==>g if/elsif/else chains
        given $tok {
            when '+' { @stack.push($y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21310	21404	
==>es be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21310	21404	
==>es be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10304	10475	
==>om_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10304	10475	
==>om_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10304	10475	
==>om_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4228	4335	
==>h and assertion rules or macros, you may
    use the following syntactic categories:

         rule rxbacksl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4000	4110	
==>.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4000	4110	
==>.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4000	4110	
==>.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	397	496	
==>for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure functi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	397	496	
==>for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8850	9102	
==>h( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8850	9102	
==>h( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8850	9102	
==>h( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10085	10211	
==>$elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10085	10211	
==>$elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10085	10211	
==>$elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3363	3466	
==>b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3363	3466	
==>b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3363	3466	
==>b) = (1,2,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3306	3429	
==>es{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	752	848	
==>8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	752	848	
==>8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docume <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15558	15688	
==>'{ \'' . $n->{op1}{angle_quoted} . '\' }';
    }

    return _not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2261	2356	
==>item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2350	2445	
==>item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14469	14563	
==>unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14469	14563	
==>unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14469	14563	
==>unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1292	1390	
==>lti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1292	1390	
==>lti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1292	1390	
==>lti sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1237	1348	
==>Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1237	1348	
==>Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1237	1348	
==>Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1625	1735	
==>compile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1625	1735	
==>compile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1625	1735	
==>compile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	212	318	
==>yche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	212	318	
==>yche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	212	318	
==>yche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6813	6984	
==>');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6813	6984	
==>');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6813	6984	
==>');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4895	5009	
==>ests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4895	5009	
==>ests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4895	5009	
==>ests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9835	9946	
==>ent a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	273	379	
==>ent a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	273	379	
==>ent a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11340	11451	
==>$S->object(branch =>);
  });


  return;

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9363	9452	
==>lass encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9363	9452	
==>lass encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16727	16827	
==>rns its results for calling code to output as it sees fit.  It
also does not make direct use of envir <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16727	16827	
==>rns its results for calling code to output as it sees fit.  It
also does not make direct use of envir <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11616	11711	
==>s without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinter <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11616	11711	
==>s without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinter <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3590	3707	
==>\$version },
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    return $version if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21920	22036	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18341	18457	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18169	18266	
==>ong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer

U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18169	18266	
==>ong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer

U <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5954	6049	
==>x:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3924	4033	
==>riz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6927	7035	
==>4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6927	7035	
==>4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9071	9176	
==>...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9071	9176	
==>...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9071	9176	
==>...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9559	9713	
==>= self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9559	9713	
==>= self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9559	9713	
==>= self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4330	4432	
==>Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4330	4432	
==>Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5854	5956	
==>Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3785	3900	
==>label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3785	3900	
==>label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3785	3900	
==>label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8676	8866	
==>turn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8676	8866	
==>turn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8676	8866	
==>turn $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	659	755	
==>Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	659	755	
==>Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	659	755	
==>Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1900	2061	
==>(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_number(),
                    '$.passed'      =>  $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1194	1326	
==>ODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	312	428	
==>> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	312	428	
==>> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	312	428	
==>> "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3595	3731	
==>thod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3595	3731	
==>thod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3595	3731	
==>thod_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_private_method(
                        $body->{me <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2493	2590	
==>eturns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2493	2590	
==>eturns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1450	1571	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOUR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1450	1571	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOUR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1450	1571	
==>VIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOUR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1119	1228	
==>ed class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1119	1228	
==>ed class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1119	1228	
==>ed class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5924	6068	
==>thod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5924	6068	
==>thod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5924	6068	
==>thod
                $self->add_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9849	9958	
==>_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9849	9958	
==>_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9849	9958	
==>_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6580	6734	
==>(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>|<term2>) <p6ws>? <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	419	522	
==>one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference -  <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	419	522	
==>one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference -  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23696	23893	
==>alar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23696	23893	
==>alar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23696	23893	
==>alar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2109	2224	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2109	2224	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2109	2224	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5009	5154	
==>rams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5009	5154	
==>rams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5009	5154	
==>rams->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4839	4951	
==>array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4839	4951	
==>array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4839	4951	
==>array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3742	3833	
==>ion of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrippin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3742	3833	
==>ion of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrippin <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6450	6545	
==>ehandle for output (normally STDOUT) as
data is received from the network.  If the request fails <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6450	6545	
==>ehandle for output (normally STDOUT) as
data is received from the network.  If the request fails <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1414	1505	
==>KAGE__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3103	3217	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3103	3217	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10286	10440	
==>methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10286	10440	
==>methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10286	10440	
==>methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	26	144	
==>rnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	26	144	
==>rnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	26	144	
==>rnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9524	9657	
==>oNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9524	9657	
==>oNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9524	9657	
==>oNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10869	10981	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10869	10981	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10869	10981	
==>ie("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10950	11084	
==>ode_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10950	11084	
==>ode_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7231	7373	
==>apture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7231	7373	
==>apture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?sub <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	503	607	
==>OS eq any <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	807	895	
==>::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 V <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	807	895	
==>::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 V <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13810	13908	
==>al: type($$) = { $.t }

# combs (applications) pass their env to eval their children
comb: env($.fu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8092	8189	
==>e_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8092	8189	
==>e_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2465	2587	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2465	2587	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2465	2587	
==>d($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6666	6778	
==>esult1));
    return $Result4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8781	8890	
==>et?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8781	8890	
==>et?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21970	22102	
==>oreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21970	22102	
==>oreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21970	22102	
==>oreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2290	2415	
==>tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2290	2415	
==>tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2290	2415	
==>tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1549	1701	
==>.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) ) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1549	1701	
==>.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) ) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12274	12362	
==>ified, the array is sorted in place.

See L<http://www.nntp.perl.org/group/perl.perl6.lan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4362	4477	
==></body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4362	4477	
==></body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4362	4477	
==></body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 -- <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3418	3620	
==>bers };
                    default { take %.subscriptions<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method not <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1578	1697	
==>ygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1489	1590	
==>ygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils:: <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1483	1572	
==>.. };'
}
Clutter::num_size 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128'} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3741	3881	
==>::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3741	3881	
==>::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14657	14752	
==>. need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12252	12375	
==>->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2613	2716	
==>ctor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2613	2716	
==>ctor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1468	1567	
==>>can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1468	1567	
==>>can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1468	1567	
==>>can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	101	210	
==>mports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	101	210	
==>mports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	101	210	
==>mports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sy <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4528	4676	
==>eam(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 2 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4528	4676	
==>eam(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 2 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	665	794	
==>LASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	665	794	
==>LASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Conten <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3394	3495	
==>ind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = shift;
	my ($node, $symbol, $b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4147	4246	
==>is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4147	4246	
==>is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13019	13115	
==>y);

	if ($t_of_param->free_vars) {
		return $prev_generic + Set::Object->new($t_of_param);
	} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3653	3842	
==>ot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3653	3842	
==>ot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3653	3842	
==>ot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	965	1086	
==>control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	965	1086	
==>control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	965	1086	
==>control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19133	19291	
==>warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19133	19291	
==>warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19133	19291	
==>warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6289	6469	
==>xp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6289	6469	
==>xp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6289	6469	
==>xp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	799	894	
==>]->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9635	9729	
==>::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9635	9729	
==>::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1254	1396	
==>e {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1254	1396	
==>e {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2676	2890	
==>d = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2676	2890	
==>d = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1245	1344	
==>stwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1245	1344	
==>stwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1245	1344	
==>stwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2354	2570	
==>r";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2354	2570	
==>r";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3970	4166	
==>t(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6611	6723	
==>ById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6611	6723	
==>ById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6611	6723	
==>ById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11668	11803	
==>xed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11668	11803	
==>xed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11668	11803	
==>xed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8814	8920	
==>my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-125 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8814	8920	
==>my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-125 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30479	30584	
==>o(str->new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12209	12318	
==>o_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12209	12318	
==>o_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12209	12318	
==>o_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9402	9537	
==>t = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Pe <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9402	9537	
==>t = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Pe <==
3	/Users/nnunley/pugs/util/build_pugs.pl	917	1035	
==>--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segment";
    
    print "Build configu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3424	3567	
==>s what to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        w <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14780	14870	
==>> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

Thi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14780	14870	
==>> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

Thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	703	812	
==>s defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	791	900	
==>s defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1802	1913	
==>lf.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1802	1913	
==>lf.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7868	7972	
==>ar PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7868	7972	
==>ar PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7868	7972	
==>ar PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6850	6963	
==>ferer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6850	6963	
==>ferer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14320	14413	
==>rub/menu.lst\"",
  ensure => sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12022	12117	
==>ls::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12022	12117	
==>ls::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12022	12117	
==>ls::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13826	13936	
==>lone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13826	13936	
==>lone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13826	13936	
==>lone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13638	13758	
==>return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17115	17235	
==>return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16477	16597	
==>return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16888	16992	
==>'@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16888	16992	
==>'@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16888	16992	
==>'@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5875	6001	
==>HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5875	6001	
==>HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3366	3483	
==>$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3366	3483	
==>$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3366	3483	
==>$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11554	11676	
==>,@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11554	11676	
==>,@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11554	11676	
==>,@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	852	963	
==>ive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	852	963	
==>ive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	852	963	
==>ive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2033	2146	
==>pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2033	2146	
==>pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2033	2146	
==>pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11642	11752	
==>ts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11642	11752	
==>ts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11642	11752	
==>ts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6440	6560	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6440	6560	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6440	6560	
==>paque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13442	13549	
==>erl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13442	13549	
==>erl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13442	13549	
==>erl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29077	29190	
==>INAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29077	29190	
==>INAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	428	529	
==>INAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2435	2596	
==>et('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2435	2596	
==>et('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2435	2596	
==>et('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5343	5454	
==>lt if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.prev <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5343	5454	
==>lt if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.prev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2871	2975	
==>es

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2871	2975	
==>es

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2871	2975	
==>es

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_de <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8015	8140	
==>t_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8015	8140	
==>t_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4044	4143	
==>ow}, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1251	1396	
==>);
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1251	1396	
==>);
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1251	1396	
==>);
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	934	1100	
==>t require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $clas <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	934	1100	
==>t require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $clas <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4868	4992	
==>[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4868	4992	
==>[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	807	930	
==>emitter_class->require || die $UNIVERSAL::require::ERROR;
	$self->emitter_class->new;
}

sub emit {
	my $self = shift;
	$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7117	7214	
==>));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7117	7214	
==>));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7117	7214	
==>));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2427	2566	
==>.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2427	2566	
==>.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2427	2566	
==>.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10344	10466	
==>@items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10344	10466	
==>@items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10344	10466	
==>@items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13228	13335	
==>f (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16705	16812	
==>f (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16067	16174	
==>f (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3555	3648	
==>(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3555	3648	
==>(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3555	3648	
==>(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defin <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1958	2052	
==>We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets calle <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1958	2052	
==>We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets calle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18941	19035	
==>s C<data> field points to the underlying
object type (I<prop>, I<alnum>, etc.).  If the element <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11201	11301	
==>e;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11201	11301	
==>e;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1540	1638	
==>:immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1540	1638	
==>:immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24259	24340	
==>tures(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures_n <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	522	629	
==>) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi( <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	522	629	
==>) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3110	3214	
==>le - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method hand <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3110	3214	
==>le - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method hand <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2307	2408	
==>$file21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12896	13026	
==>> strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12896	13026	
==>> strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle w <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5098	5186	
==>ed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6857	6971	
==>nfinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6857	6971	
==>nfinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6857	6971	
==>nfinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step == <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1422	1531	
==>arams::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir $args->{dir} ) {
        error <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16965	17062	
==>ject, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16965	17062	
==>ject, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16123	16211	
==>'>='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'instanceof'> <ShiftExpression> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1439	1540	
==>L::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1439	1540	
==>L::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1439	1540	
==>L::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $dec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12684	12850	
==>rl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8958	9124	
==>rl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9793	9959	
==>rl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11788	11926	
==>bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11788	11926	
==>bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11788	11926	
==>bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16745	16844	
==>xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16745	16844	
==>xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16745	16844	
==>xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	53	169	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even progra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	53	169	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even progra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	53	169	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even progra <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6889	7028	
==>rait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = can <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6889	7028	
==>rait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = can <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6431	6525	
==>f:) (symbol $label) (method $method)) returns nil
    ((($self: get_attr (symbol new (%:methods <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2772	3002	
==>le (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= " <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2772	3002	
==>le (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= " <==
3	/Users/nnunley/pugs/util/version_h.pl	2364	2463	
==>ase/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $versio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11408	11507	
==>_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14885	14984	
==>_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others <==
3	/Users/nnunley/pugs/util/testgraph.pl	129	220	
==>AP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, qw(i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3136	3238	
==>hallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$self}, (ref $self);
}

sub is_arrow { <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1844	1942	
==>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provi <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1844	1942	
==>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provi <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1737	1864	
==>e( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealB <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1737	1864	
==>e( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealB <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30393	30489	
==>member
large, with each set member being an an exclusive alternative for the rest
of the set. The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30393	30489	
==>member
large, with each set member being an an exclusive alternative for the rest
of the set. The <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28216	28312	
==>This might be an array reference (for a 'branch'
node), another object (for a 'quant' node), or i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4709	4886	
==>ch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4709	4886	
==>ch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4709	4886	
==>ch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $val <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10057	10168	
==>_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10057	10168	
==>_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24693	24790	
==>s of the same class;
every Relation::Example tuple must be distinct from the other tuples.  All Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4080	4182	
==>ects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4080	4182	
==>ects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4080	4182	
==>ects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2602	2708	
==>r system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2602	2708	
==>r system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2602	2708	
==>r system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )') <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13176	13287	
==>rces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16653	16764	
==>rces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16015	16126	
==>rces have overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5415	5524	
==>f->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5415	5524	
==>f->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6005	6114	
==>f->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6651	6798	
==>'$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{param} ) . ', "\n"';
            }
            return " print '', $s" . ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6485	6580	
==>ode_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6485	6580	
==>ode_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8113	8280	
==>:Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8113	8280	
==>:Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8113	8280	
==>:Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        met <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7202	7311	
==>]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7190	7299	
==>]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2435	2530	
==>| confess "Attribute (" . $name->to_str->to_native . ") already exists";
    return $self->[2]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3452	3554	
==>method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3452	3554	
==>method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3452	3554	
==>method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1251	1375	
==>{
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/% <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1251	1375	
==>{
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/% <==
3	/Users/nnunley/pugs/util/grokprims.pl	1997	2114	
==>f (/special/ and $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  pri <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	212	314	
==>e ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Modu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2891	2981	
==><lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contr <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2891	2981	
==><lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3350	3441	
==>ame>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3350	3441	
==>ame>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2427	2580	
==>$tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2427	2580	
==>$tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2427	2580	
==>$tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2081	2213	
==>.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2081	2213	
==>.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2161	2293	
==>.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3335	3430	
==>},
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4029	4124	
==>},
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5237	5332	
==>},
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1980	2134	
==>.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1980	2134	
==>.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1980	2134	
==>.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.g <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1878	2023	
==>970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15133	15237	
==>:sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into or <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15133	15237	
==>:sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3856	3970	
==>]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3856	3970	
==>]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3856	3970	
==>]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1644	1763	
==>value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1644	1763	
==>value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1644	1763	
==>value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = functi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	768	860	
==>iteral("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	768	860	
==>iteral("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19936	20167	
==>gify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19936	20167	
==>gify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19936	20167	
==>gify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4505	4617	
==>{ $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4505	4617	
==>{ $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4505	4617	
==>{ $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4549	4687	
==>t           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4549	4687	
==>t           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4549	4687	
==>t           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	840	943	
==>d the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	840	943	
==>d the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	840	943	
==>d the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	960	1090	
==>msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	960	1090	
==>msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	960	1090	
==>msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeTy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2573	2687	
==>/ ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2573	2687	
==>/ ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2573	2687	
==>/ ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $ver <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11675	11833	
==>bort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5995	6144	
==>bort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5995	6144	
==>bort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2702	2828	
==>e }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2702	2828	
==>e }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2702	2828	
==>e }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	926	1052	
==>ase=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	926	1052	
==>ase=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	926	1052	
==>ase=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage " <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3158	3281	
==>, $2);
    $c =~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newcon <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	99	190	
==>text = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	99	190	
==>text = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.enc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5175	5285	
==>TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5175	5285	
==>TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13622	13715	
==>cognized

=item RPe_SWBRAN (-7)

Switch (?(condition)... contains too many branches

=item RPe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7284	7415	
==>mper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7296	7427	
==>mper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    lo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5056	5142	
==>ift;
		while (Scalar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Pl <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	321	422	
==>okens(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - sl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2779	2877	
==>vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2779	2877	
==>vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedTe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	754	957	
==>s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	754	957	
==>s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4337	4456	
==>o_index( package => $inst ) or return;

    return 1;
}

=head2 $bool = $repo->add_package_to_index(package => $pkg)

Ad <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1217	1320	
==>fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whit <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1217	1320	
==>fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whit <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1485	1605	
==>@path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1485	1605	
==>@path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11762	11864	
==>rses them and handles them properly.  The nchar() method takes
a named character's name, and returns th <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34155	34252	
==>ned and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34155	34252	
==>ned and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	83	178	
==>rl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6::Core::List;

package closure;

use strict;
u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7340	7439	
==>$other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10817	10916	
==>$other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9954	10053	
==>$other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1495	1626	
==>LD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1495	1626	
==>LD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1495	1626	
==>LD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1817	1926	
==>$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1817	1926	
==>$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1817	1926	
==>$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	854	953	
==>ly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say " <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	854	953	
==>ly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3248	3344	
==>unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3248	3344	
==>unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3248	3344	
==>unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3515	3624	
==>, map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3515	3624	
==>, map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3515	3624	
==>, map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4909	5041	
==>t.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4909	5041	
==>t.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4909	5041	
==>t.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1222	1318	
==>'BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1222	1318	
==>'BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1222	1318	
==>'BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15847	15970	
==>ch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15847	15970	
==>ch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15847	15970	
==>ch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	34	159	
==>use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	34	159	
==>use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	34	159	
==>use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1608	1725	
==>es );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1608	1725	
==>es );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13762	13872	
==>to know their own type (see package val above)
val: type($$) = { $.t }

# combs (applications) pass their env t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	673	809	
==>>( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	666	802	
==>>( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"cap <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9156	9280	
==>P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = su <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1791	1893	
==>eturns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1849	1951	
==>eturns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	521	613	
==>orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6555	6657	
==>$method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6555	6657	
==>$method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6555	6657	
==>$method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHO <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	95	221	
==>l $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $isLValue;    # not is copy
has Bool $isWritable;  # is rw
has <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	794	913	
==>,  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	794	913	
==>,  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	359	491	
==>{
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	359	491	
==>{
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	359	491	
==>{
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2633	2733	
==>«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2633	2733	
==>«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2633	2733	
==>«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2108	2236	
==>local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2108	2236	
==>local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2108	2236	
==>local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17403	17582	
==>OLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17403	17582	
==>OLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17403	17582	
==>OLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2046	2167	
==>EBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2046	2167	
==>EBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16306	16406	
==>,F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15233	15369	
==>$v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15233	15369	
==>$v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15233	15369	
==>$v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7054	7212	
==>d_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7054	7212	
==>d_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30618	30712	
==>.

=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> ins <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	480	574	
==>-client v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my %request <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23267	23360	
==>fied by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVENT <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23267	23360	
==>fied by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVENT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	545	646	
==>subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	545	646	
==>subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	545	646	
==>subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pAr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5366	5467	
==>TORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5366	5467	
==>TORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5366	5467	
==>TORE work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5498	5621	
==>$jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5498	5621	
==>$jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5498	5621	
==>$jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1044	1197	
==>) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1044	1197	
==>) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1044	1197	
==>) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2050	2181	
==>keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2050	2181	
==>keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2050	2181	
==>keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9460	9616	
==>rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5801	5957	
==>rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6650	6806	
==>rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1478	1612	
==>un::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1478	1612	
==>un::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1478	1612	
==>un::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11536	11718	
==>n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7818	8000	
==>n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8652	8834	
==>n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6525	6637	
==>fix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6525	6637	
==>fix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6525	6637	
==>fix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37753	37877	
==>6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37753	37877	
==>6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37753	37877	
==>6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2925	3062	
==>oop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2925	3062	
==>oop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1009	1122	
==>y @res = eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_he <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1701	1796	
==>/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/( <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1701	1796	
==>/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9976	10092	
==>in it, or if
    # we're VMS, since VMS requires all parms quoted.  Also, don't quote
    # it if it's already quoted <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	31	134	
==>as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# T <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	31	134	
==>as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# T <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21995	22134	
==>am => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17770	17865	
==>ion, and this is
mapped to a user-readable message at some point.  For example, Oracle
databases <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17770	17865	
==>ion, and this is
mapped to a user-readable message at some point.  For example, Oracle
databases <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2703	2838	
==>{
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2703	2838	
==>{
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2703	2838	
==>{
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3004	3110	
==>etval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3004	3110	
==>etval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3004	3110	
==>etval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1814	1904	
==>* L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1903	1993	
==>* L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5839	5957	
==>rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5839	5957	
==>rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5839	5957	
==>rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16569	16673	
==>List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16569	16673	
==>List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16569	16673	
==>List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( st <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	918	1030	
==>the root of the path
        # then we have failed already and so return
        return unless $func($current_tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	918	1030	
==>the root of the path
        # then we have failed already and so return
        return unless $func($current_tre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16656	16782	
==>b { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16935	17061	
==>b { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3772	3871	
==>haustion when running against
some of the perl5 t/op/ test files.  Use of the perl api has to be
che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20464	20684	
==>m_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20464	20684	
==>m_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20464	20684	
==>m_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8580	8696	
==>};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => g <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6627	6730	
==>k_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pair <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6627	6730	
==>k_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pair <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9618	9733	
==>max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the pare <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9618	9733	
==>max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the pare <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27383	27495	
==>,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	241	329	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	241	329	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	241	329	
==>nstant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1750	1959	
==>sn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1750	1959	
==>sn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1750	1959	
==>sn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "ou <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1718	1827	
==>od clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

met <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1718	1827	
==>od clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

met <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8546	8648	
==>= %mods{'g'} || %mods{'global'};
    my $ov = %mods{'ov'} || %mods{'overlap'};
    my $ex = %mods{'ex'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	161	278	
==>vel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	161	278	
==>vel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	161	278	
==>vel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3258	3384	
==>ptures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quanti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3258	3384	
==>ptures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quanti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14945	15067	
==>s, $rx, $on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'g <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2697	2808	
==>, $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2697	2808	
==>, $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7966	8109	
==>unning under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exi <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7966	8109	
==>unning under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4838	4931	
==>ms::Check->last_error), return;

    for my $index ( $self->index_file, $self->index_files(pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4253	4362	
==>_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4253	4362	
==>_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4253	4362	
==>_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21790	21975	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21790	21975	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21790	21975	
==>=> $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	111	201	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	111	201	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	111	201	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2811	2918	
==>e or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2811	2918	
==>e or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2811	2918	
==>e or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35065	35166	
==>two source headings are
identical.  This method has an alias named C<matching>.

=item C<product (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39615	39716	
==>two source headings are
identical.  This method has an alias named C<matching>.

=item C<product (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39157	39258	
==>two source headings are
identical.  This method has an alias named C<matching>.

=item C<product (Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26251	26493	
==>($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26251	26493	
==>($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26251	26493	
==>($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9420	9509	
==>, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eva <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3245	3334	
==>, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eva <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11609	11732	
==>r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15086	15209	
==>r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14421	14544	
==>r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @other <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11132	11268	
==>xs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11132	11268	
==>xs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11132	11268	
==>xs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	920	1033	
==>',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

----------------- <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	590	702	
==>=~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	557	669	
==>=~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31540	31635	
==>iginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36090	36185	
==>iginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35317	35412	
==>iginal.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
ar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10018	10122	
==>ulti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_h <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10018	10122	
==>ulti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_h <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1187	1291	
==>hc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Building dependencies.  Please wait...\n\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3590	3699	
==>t implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3590	3699	
==>t implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3590	3699	
==>t implemented in PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operato <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27004	27098	
==>ement subset of the original's attributes to what C<project> would
return given the same C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31556	31650	
==>ement subset of the original's attributes to what C<project> would
return given the same C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30612	30706	
==>ement subset of the original's attributes to what C<project> would
return given the same C<$att <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	190	279	
==>parent;
has @!children;

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	190	279	
==>parent;
has @!children;

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6293	6382	
==>--------------------------------------------------------
## Module

$::Module = $::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6293	6382	
==>--------------------------------------------------------
## Module

$::Module = $::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6293	6382	
==>--------------------------------------------------------
## Module

$::Module = $::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4738	4908	
==>spatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4738	4908	
==>spatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4738	4908	
==>spatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8154	8296	
==>return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8154	8296	
==>return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8154	8296	
==>return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2001	2102	
==>nline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2001	2102	
==>nline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2001	2102	
==>nline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	767	884	
==>start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	767	884	
==>start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	901	1017	
==>make15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	404	509	
==>s sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	404	509	
==>s sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is an <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	142	245	
==>END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	935	1069	
==>lue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	935	1069	
==>lue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	935	1069	
==>lue.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::I <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39874	39966	
==>shed by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the Lice <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39874	39966	
==>shed by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the Lice <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6058	6201	
==>on($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1547	1652	
==>ble> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1547	1652	
==>ble> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13893	13996	
==>sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13893	13996	
==>sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13893	13996	
==>sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scala <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2851	2973	
==>-> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2851	2973	
==>-> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4271	4392	
==>optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4271	4392	
==>optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5795	5916	
==>optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder:: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3648	3753	
==>Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	499	599	
==>ue  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	499	599	
==>ue  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1821	1936	
==>fig{'_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ alternatives    = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9611	9724	
==>o test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11  <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9611	9724	
==>o test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11  <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5870	5979	
==>nd C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5870	5979	
==>nd C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8067	8176	
==>nd C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1256	1370	
==>tr $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1256	1370	
==>tr $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1256	1370	
==>tr $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).spli <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2651	2812	
==>vailable, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Unpacking co <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14285	14384	
==>uous span, because the "separation" 
between values would be very close to zero:

    $iterator.next <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14285	14384	
==>uous span, because the "separation" 
between values would be very close to zero:

    $iterator.next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2571	2697	
==>", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2571	2697	
==>", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2571	2697	
==>", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	769	873	
==>remove all empty seqences
        my @nonemptyseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4281	4373	
==>ariable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
represe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4281	4373	
==>ariable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3624	3735	
==>lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3624	3735	
==>lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3624	3735	
==>lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4582	4678	
==>Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4582	4678	
==>Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5172	5268	
==>Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy conta <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5774	5892	
==>type = 'header';

        $self->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2442	2549	
==>n $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2442	2549	
==>n $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1324	1448	
==>,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_AR <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1324	1448	
==>,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_AR <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1046	1155	
==>rn $a.'.'.$b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2759	2865	
==>)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2759	2865	
==>)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2759	2865	
==>)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19006	19122	
==>t => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19006	19122	
==>t => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19006	19122	
==>t => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38087	38257	
==>calar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store af <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38087	38257	
==>calar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store af <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38087	38257	
==>calar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store af <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2432	2539	
==>label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2432	2539	
==>label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2432	2539	
==>label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1825	1950	
==>start}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart | <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1825	1950	
==>start}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart | <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1528	1651	
==>| Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List {
   ga <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4747	4860	
==>_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4747	4860	
==>_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5337	5450	
==>_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::con <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1747	1851	
==>($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1747	1851	
==>($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.is <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	828	922	
==>$cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	886	980	
==>$cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, <==
3	/Users/nnunley/pugs/util/testgraph.pl	633	715	
==>Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v->has_inline_css($Config{inlinecss <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1487	1600	
==>q 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1487	1600	
==>q 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1487	1600	
==>q 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11499	11605	
==>Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11499	11605	
==>Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11499	11605	
==>Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	199	295	
==>}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	199	295	
==>}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3516	3627	
==>e1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3rd line\n <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	199	307	
==>alBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	199	307	
==>alBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11490	11583	
==>ecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDecimalLiteral> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8616	8705	
==>rammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2441	2530	
==>rammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24742	24837	
==>eturns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29294	29389	
==>eturns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This metho <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	565	660	
==>sub type { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12052	12175	
==>, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/parrot/include/$_") {
          mkdir "$initr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9787	9905	
==>n;
    }

    if ($S->match_scalar) {
    }

    return $S->object(eol => eos => '$');
  });

  $self->add_handler('$$' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20267	20361	
==>tamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20267	20361	
==>tamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bo <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	376	478	
==>eed.

= WHY

You should use this module as a starting point to base
a new module distribution on.

= AU <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16821	17030	
==>ng  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9070	9180	
==>ence = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_differe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9070	9180	
==>ence = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_differe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	694	805	
==>in "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	694	805	
==>in "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	694	805	
==>in "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8797	8903	
==>fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8797	8903	
==>fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	87	183	
==>'regex matching subs you want to debug'}
* adds use Smart::Comments (if it matches the supplied r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22136	22256	
==>);
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22136	22256	
==>);
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22136	22256	
==>);
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4138	4255	
==>t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4138	4255	
==>t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4138	4255	
==>t use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2828	2928	
==>ass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2828	2928	
==>ass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2828	2928	
==>ass, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10904	11025	
==>m'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10904	11025	
==>m'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10904	11025	
==>m'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	284	394	
==>rl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	97	192	
==>rl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	471	566	
==>rl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1302	1404	
==>nctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1302	1404	
==>nctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1302	1404	
==>nctions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3326	3486	
==>PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter',
            other => '=',
        );
    }

    __ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21496	21604	
==>r(class_neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) :- catch(   cha <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	403	494	
==>emap';
use Inline C=><<'C';
#include "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1954	2063	
==>ox(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1954	2063	
==>ox(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1954	2063	
==>ox(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	9	117	
==>n/perl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4018	4125	
==>ntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: sy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4235	4342	
==>ntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2641	2751	
==>TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2641	2751	
==>TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2641	2751	
==>TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21086	21191	
==>re of the same
degree, and the attribute names of each tuple are all the same as those of
all the other tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25638	25743	
==>re of the same
degree, and the attribute names of each tuple are all the same as those of
all the other tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24253	24358	
==>re of the same
degree, and the attribute names of each tuple are all the same as those of
all the other tu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5812	5909	
==>status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5812	5909	
==>status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8009	8106	
==>status> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash befo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10175	10328	
==>aram)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10175	10328	
==>aram)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10175	10328	
==>aram)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3520	3611	
==>gs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3520	3611	
==>gs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3520	3611	
==>gs.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13772	13901	
==>=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$matc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13772	13901	
==>=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$matc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6360	6580	
==>urrent_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6360	6580	
==>urrent_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1738	1842	
==>r(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1738	1842	
==>r(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1738	1842	
==>r(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4772	4869	
==>ders{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time)) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4772	4869	
==>ders{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time)) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	972	1064	
==>ormat{$Pugs::Utils::Interface::format};

	# load the required module
	eval "require $dumper-> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9714	9852	
==>ines->{$line}) {
              $lines->{$line} = 0 if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not carry t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28189	28291	
==>nless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28468	28570	
==>nless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	316	431	
==>VERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	316	431	
==>VERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	316	431	
==>VERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6599	6712	
==>edded in a core program file and hence
        # should never be loaded by translate_message().
        my $module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6599	6712	
==>edded in a core program file and hence
        # should never be loaded by translate_message().
        my $module <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4409	4510	
==>:Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matchObj->position( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33567	33659	
==>rsection (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38117	38209	
==>rsection (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1936	2109	
==>odes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_ke <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1936	2109	
==>odes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_ke <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21675	21767	
==>h(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    char_type(C, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6036	6132	
==>rclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precend <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10293	10389	
==>rclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2717	2814	
==>aque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2717	2814	
==>aque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2717	2814	
==>aque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39465	39618	
==>alues();                                 
            }
        )
    )
);

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11347	11495	
==>=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $strin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11347	11495	
==>=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $strin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1179	1314	
==>L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1179	1314	
==>L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27850	27958	
==>ing to be turned on, and false if
it's going to be turned off.  For C<(?i-s)>, C<FLAG_i> would be called
with <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5513	5613	
==>ack

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Ga <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5513	5613	
==>ack

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Ga <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5805	5911	
==>p(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5805	5911	
==>p(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5805	5911	
==>p(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6410	6548	
==>g);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6410	6548	
==>g);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6410	6548	
==>g);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16295	16402	
==>,
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16295	16402	
==>,
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3173	3274	
==>his test module allows you to test test modules that use Test::Builder.  It
does this by you setting t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3173	3274	
==>his test module allows you to test test modules that use Test::Builder.  It
does this by you setting t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3253	3354	
==>his test module allows you to test test modules that use Test::Builder.  It
does this by you setting t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13352	13458	
==>''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13352	13458	
==>''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3894	4002	
==>y;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3894	4002	
==>y;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3894	4002	
==>y;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	360	483	
==>fined $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.'c';
        my $pmc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26316	26414	
==>g at
all.  Note that while the Hash itself is copied on input and output, any
variable values which <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26316	26414	
==>g at
all.  Note that while the Hash itself is copied on input and output, any
variable values which <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	516	632	
==>en ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	516	632	
==>en ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1705	1808	
==>equire_compression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zli <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10295	10402	
==>d

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0> <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10295	10402	
==>d

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	53	145	
==>X;
package MatchX::Subrule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@ISA=qw(Match);
u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10267	10381	
==>t is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13744	13858	
==>t is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13025	13139	
==>t is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36074	36203	
==>t, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36074	36203	
==>t, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36074	36203	
==>t, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == length
            # make $#t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10262	10390	
==>alue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10262	10390	
==>alue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10262	10390	
==>alue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6012	6137	
==>$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub find_extensions {
    my ($self, $path) = @_;

    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9663	9756	
==>equest> and C<HTTP::Response> classes, internal to the
library.

The following methods are ava <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9663	9756	
==>equest> and C<HTTP::Response> classes, internal to the
library.

The following methods are ava <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3047	3143	
==>-- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3047	3143	
==>-- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3047	3143	
==>-- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15080	15310	
==>ode ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15080	15310	
==>ode ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15080	15310	
==>ode ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1061	1186	
==>: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1893	2013	
==>: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2033	2153	
==>: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5386	5502	
==>bute new (@:MRO))             (list)
     (attribute new (@:subclasses))      (list)
     (attribute new (@:superclas <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8853	8967	
==>array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elem <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8853	8967	
==>array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elem <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1236	1338	
==>hod handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    def <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1236	1338	
==>hod handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    def <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8576	8942	
==>ym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20371	20483	
==>ler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16792	16904	
==>ler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	810	958	
==>e);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2771	2903	
==>flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2911	3043	
==>flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{gramma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16378	16468	
==>el
programming language named "Rosetta D", which is computationally complete
(and industria <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16378	16468	
==>el
programming language named "Rosetta D", which is computationally complete
(and industria <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6724	6885	
==>tch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6724	6885	
==>tch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6724	6885	
==>tch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12895	13015	
==>$num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6370	6490	
==>$num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11316	11432	
==>s;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11316	11432	
==>s;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11316	11432	
==>s;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextk <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23948	24039	
==>anding of alternate solutions like "gettext" suggests that they
use a compile-time macro-bas <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23948	24039	
==>anding of alternate solutions like "gettext" suggests that they
use a compile-time macro-bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	108	209	
==>o;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	108	209	
==>o;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	108	209	
==>o;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	142	254	
==>at        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	142	254	
==>at        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32399	32496	
==>oes not have an identical header to the invocant relation.  This
method has an alias named C<plus> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36949	37046	
==>oes not have an identical header to the invocant relation.  This
method has an alias named C<plus> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36239	36336	
==>oes not have an identical header to the invocant relation.  This
method has an alias named C<plus> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3136	3240	
==>nt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3136	3240	
==>nt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3136	3240	
==>nt;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2J <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	914	1026	
==>kpath($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8561	8661	
==>name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6095	6194	
==>name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14381	14499	
==>$translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14381	14499	
==>$translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8270	8375	
==>ckage->new( file => $file );

    return $self->add_package(package => $pkg, force => $force);
}

1;

# Lo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	424	516	
==>RT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	424	516	
==>RT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40984	41076	
==>warning that can only be figured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2798	2907	
==>omponents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2798	2907	
==>omponents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2798	2907	
==>omponents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11656	11753	
==>)";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11656	11753	
==>)";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11656	11753	
==>)";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB ev <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12496	12593	
==>t elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if th <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12496	12593	
==>t elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26653	26748	
==>copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000000 /* <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2666	2772	
==>ved_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2666	2772	
==>ved_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2746	2852	
==>ved_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2879	2993	
==>ore qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2879	2993	
==>ore qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3479	3580	
==>s>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1512	1623	
==>ep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $sel <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5907	5987	
==>c2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5907	5987	
==>c2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24359	24455	
==>lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24359	24455	
==>lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6511	6605	
==>gular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set.  Grammar is quot <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9340	9438	
==>the "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9340	9438	
==>the "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22820	22918	
==>s should email me.  Messages should include the
code you ran that contains the bug, and your opinio <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	340	463	
==>ime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2634	2804	
==>";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2634	2804	
==>";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2634	2804	
==>";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5743	5822	
==>16)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5743	5822	
==>16)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6874	7266	
==>w(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11175	11309	
==>ext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subrout <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11175	11309	
==>ext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	267	366	
==>ms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	267	366	
==>ms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	267	366	
==>ms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17816	17954	
==>for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21293	21431	
==>for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20880	21018	
==>for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	605	711	
==>r, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	605	711	
==>r, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%heade <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6187	6283	
==>'IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Submethod|Macro| <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15028	15154	
==>he match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or orig <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19203	19329	
==>he match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or orig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24453	24570	
==>p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24453	24570	
==>p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24453	24570	
==>p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	51	167	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	51	167	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	51	167	
==>fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self- <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2968	3234	
==>);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2968	3234	
==>);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13568	13698	
==>ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13568	13698	
==>ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13568	13698	
==>ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1539	1687	
==>crollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1539	1687	
==>crollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1539	1687	
==>crollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13852	13984	
==>],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13852	13984	
==>],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13852	13984	
==>],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4105	4232	
==>}, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named capture
    my $label = sh <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8279	8405	
==>oencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX ch <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8279	8405	
==>oencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5588	5720	
==>t-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5588	5720	
==>t-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.conten <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3070	3184	
==>ile}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9859	10012	
==>= shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9859	10012	
==>= shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9859	10012	
==>= shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5659	5780	
==>name} = reference->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || con <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2735	2837	
==>od assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2735	2837	
==>od assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7076	7198	
==>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7076	7198	
==>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7076	7198	
==>{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == u <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7691	7797	
==>atorStack;

  reduce_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 ) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	384	487	
==>ram ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	384	487	
==>ram ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1012	1119	
==>defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1012	1119	
==>defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1012	1119	
==>defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	542	663	
==>bs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1541	1646	
==><Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1541	1646	
==><Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <Arr <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	778	890	
==>0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));

    for my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4500	4596	
==>Aside from
'use' statements, you should never refer directly to "Rosetta" in your
code; instead r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4500	4596	
==>Aside from
'use' statements, you should never refer directly to "Rosetta" in your
code; instead r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5323	5457	
==>->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	590	693	
==>lize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      . <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	590	693	
==>lize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14193	14306	
==>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14193	14306	
==>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14193	14306	
==>{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10530	10637	
==>('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10530	10637	
==>('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10530	10637	
==>('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1680	1777	
==>qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 p <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1680	1777	
==>qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9606	9804	
==><" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $strin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9606	9804	
==><" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $strin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10680	10809	
==>- this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     ||
           $n->{op1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	408	508	
==>s Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	408	508	
==>s Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	408	508	
==>s Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24376	24489	
==>},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24376	24489	
==>},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24376	24489	
==>},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2788	2894	
==>rd_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2788	2894	
==>rd_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2788	2894	
==>rd_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAhe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	694	840	
==>$increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	140	238	
==>ts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it' <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	140	238	
==>ts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it' <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1210	1330	
==>if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8989	9082	
==>should never refer directly to "Rosetta::Model" in
your code; instead refer to other above-nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8989	9082	
==>should never refer directly to "Rosetta::Model" in
your code; instead refer to other above-nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2717	2807	
==>= &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2717	2807	
==>= &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2717	2807	
==>= &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	165	314	
==>ng',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Informa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	165	314	
==>ng',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Informa <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	459	572	
==>- creates an Array [of Array]* of Str

sub parse (@start, $token, @end, @_ is rw) {
    state %tok = (
        has <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3463	3566	
==>ase" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18556	18673	
==>presents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18556	18673	
==>presents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18556	18673	
==>presents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1627	1756	
==>le,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1638	1767	
==>le,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4911	5017	
==>u want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4911	5017	
==>u want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4911	5017	
==>u want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1009	1104	
==>urrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1009	1104	
==>urrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1009	1104	
==>urrently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and F <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2837	2936	
==>y we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no V <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2837	2936	
==>y we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3420	3537	
==>GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3420	3537	
==>GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3420	3537	
==>GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15219	15394	
==>ys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15219	15394	
==>ys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15219	15394	
==>ys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6282	6381	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6282	6381	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6282	6381	
==>que_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	222	326	
==>rn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	222	326	
==>rn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	222	326	
==>rn outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1652	1777	
==>defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1640	1765	
==>defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8218	8320	
==>imalIntegerLiteral> <ExponentPart>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8645	8779	
==>= undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8645	8779	
==>= undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8645	8779	
==>= undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	191	285	
==>ame(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	191	285	
==>ame(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	191	285	
==>ame(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	226	346	
==>IArray' => {};

class 'PIL::Run::Container::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2216	2316	
==>universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2216	2316	
==>universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) ret <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2395	2509	
==>ns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?S <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2395	2509	
==>ns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5456	5566	
==>obj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4743	4900	
==>mp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisntall metadata
    system(qq[rm -rf $meta])                                    and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1282	1438	
==>if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keyword <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1282	1438	
==>if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keyword <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1621	1736	
==>ce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1621	1736	
==>ce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1621	1736	
==>ce, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confess "Bad in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14814	14909	
==>ugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14814	14909	
==>ugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14814	14909	
==>ugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	985	1095	
==>while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	985	1095	
==>while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	985	1095	
==>while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7994	8115	
==>f $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 = substr target, $I0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3530	3639	
==>>fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3530	3639	
==>>fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3530	3639	
==>>fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	666	761	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	666	761	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	666	761	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTIN <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10916	11013	
==>free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11108	11205	
==>free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25099	25189	
==>e::operator::pair->new(
		type::variable::free->new,
		type::variable::free->new,
	);
	is($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39458	39554	
==>P $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39458	39554	
==>P $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39458	39554	
==>P $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	910	1021	
==>se array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	910	1021	
==>se array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	910	1021	
==>se array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	149	271	
==>ckage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	149	271	
==>ckage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	149	271	
==>ckage PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10593	10722	
==>>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10593	10722	
==>>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10593	10722	
==>>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14754	14890	
==>text;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8284	8386	
==>f you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eithe <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8284	8386	
==>f you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eithe <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1104	1250	
==>{%$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_sam <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5480	5574	
==>children)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) retu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5480	5574	
==>children)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6574	6691	
==>::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6574	6691	
==>::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6574	6691	
==>::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::Fa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4227	4372	
==>aquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4227	4372	
==>aquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	55	147	
==>more detail: http://www.perlmonks.org/?node_id=438876
# For historical interest, I've left th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11837	12027	
==>eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11837	12027	
==>eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11837	12027	
==>eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2077	2189	
==>DO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2077	2189	
==>DO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2077	2189	
==>DO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13437	13542	
==>h - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13437	13542	
==>h - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13437	13542	
==>h - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4222	4354	
==>mar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16299	16393	
==>ent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16299	16393	
==>ent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5071	5260	
==>ing to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5071	5260	
==>ing to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5071	5260	
==>ing to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10595	10737	
==>rray[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10595	10737	
==>rray[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10595	10737	
==>rray[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5054	5184	
==>0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5054	5184	
==>0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5644	5774	
==>0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3991	4084	
==>1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3991	4084	
==>1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1592	1723	
==>s, 'match_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { retu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11060	11162	
==>ode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11060	11162	
==>ode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15542	15660	
==>o about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multim <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15542	15660	
==>o about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multim <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15542	15660	
==>o about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multim <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4431	4556	
==>pvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1346	1443	
==>m> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1346	1443	
==>m> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2358	2450	
==>l6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2358	2450	
==>l6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2358	2450	
==>l6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5326	5424	
==>g @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5326	5424	
==>g @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5326	5424	
==>g @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17561	17654	
==>dules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17561	17654	
==>dules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3380	3490	
==>ction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3380	3490	
==>ction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3380	3490	
==>ction (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4520	4642	
==>Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    ret <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4520	4642	
==>Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9499	9596	
==>efore <DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
}
rule Ch <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1444	1639	
==>$meta_dir -xz] )
                                                            and die $?;
            print "Writing .packlist equiv...\n";
            ### write a .packlist equiv
            syste <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2825	2923	
==>t of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The ord <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2825	2923	
==>t of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The ord <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	516	619	
==>stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * cle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	516	619	
==>stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * cle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	516	619	
==>stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * cle <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22863	22994	
==>,
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1836	1937	
==>ixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1836	1937	
==>ixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$state <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4698	4798	
==>der) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4698	4798	
==>der) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6461	6604	
==>tch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6461	6604	
==>tch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6461	6604	
==>tch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11785	11981	
==>ined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11785	11981	
==>ined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11785	11981	
==>ined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7408	7535	
==>class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19428	19555	
==>class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4498	4622	
==>@path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4498	4622	
==>@path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ( <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1031	1129	
==>:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4241	4404	
==>bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4241	4404	
==>bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4241	4404	
==>bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ': <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1220	1335	
==>_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1220	1335	
==>_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1220	1335	
==>_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_2 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25624	25730	
==>ters back from
 * where regmust matched is the earliest possible start of the match.
 * For instance, /[a-z <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1332	1431	
==>sists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocatio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1274	1370	
==>sists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocatio <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3549	3676	
==>}	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15695	15787	
==>ommunicate in those languages.  Or, when viewing an error message, the
application's develope <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15695	15787	
==>ommunicate in those languages.  Or, when viewing an error message, the
application's develope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	108	219	
==>og
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	108	219	
==>og
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	108	219	
==>og
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * list <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	258	373	
==>, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1695	1789	
==>E\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1695	1789	
==>E\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4977	5092	
==>\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4977	5092	
==>\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4977	5092	
==>\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      retur <==
3	/Users/nnunley/pugs/util/build_pugs.pl	566	689	
==>ss.

Primary configuration settings are read from the file `config.yml` in
the build root. You may override these settings u <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5539	5636	
==>mpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$template->param(directories => [ map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	558	691	
==>ub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	558	691	
==>ub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	558	691	
==>ub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj = <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	576	678	
==>my @users = keys %{ { map { (split m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/"> <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7470	7568	
==>p = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1487	1609	
==>x {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4690	4812	
==>x {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2453	2570	
==>}, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2453	2570	
==>}, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	346	452	
==>self->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit->new(0);
# }

1;

__END__

=pod

=head1 NAME <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	264	365	
==>$time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	264	365	
==>$time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22268	22471	
==>rray fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22268	22471	
==>rray fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22268	22471	
==>rray fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3989	4098	
==>{
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3989	4098	
==>{
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3989	4098	
==>{
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	276	385	
==>c = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	276	385	
==>c = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	276	385	
==>c = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17628	17806	
==>tcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17628	17806	
==>tcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17628	17806	
==>tcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $la <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	33	133	
==>Base;

$VERSION = '0.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	413	510	
==>aders
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	413	510	
==>aders
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	947	1047	
==>() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	947	1047	
==>() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	947	1047	
==>() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4128	4251	
==>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4128	4251	
==>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4718	4841	
==>is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6670	6817	
==>ans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            und <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6670	6817	
==>ans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            und <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3087	3229	
==>edy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3098	3240	
==>edy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifie <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23420	23540	
==>=> [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$code.' } catch Perl6::Run::OnPerl5::X1::Api: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26987	27080	
==>ion has
the complement subset of the original's attributes to what C<project> would
return giv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31539	31632	
==>ion has
the complement subset of the original's attributes to what C<project> would
return giv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5242	5438	
==>$key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5242	5438	
==>$key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5242	5438	
==>$key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23183	23301	
==>fun(
		param => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2360	2457	
==>tatus_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2360	2457	
==>tatus_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3352	3454	
==>ve a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and wr <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3352	3454	
==>ve a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and wr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	85	201	
==>s in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	85	201	
==>s in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	84	196	
==>s in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	493	605	
==>)), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	493	605	
==>)), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	493	605	
==>)), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5098	5230	
==>l $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5098	5230	
==>l $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5098	5230	
==>l $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => bless <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2277	2403	
==>Dumper::Dumper $Z::oop{$id} if $debug;
      my $reduce_helper = sub {
        print STDERR "reduce\n" if $debug;
        my($v <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5337	5434	
==>ethod the file for the properties, and writes it
to disk.  Returns boolean value of success or fai <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5337	5434	
==>ethod the file for the properties, and writes it
to disk.  Returns boolean value of success or fai <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8180	8332	
==>st::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1602	1723	
==>lete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1602	1723	
==>lete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3123	3227	
==>_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1225	1316	
==>-------------------------------

Since you are using Microsoft Windows, you will need the 'n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1065	1156	
==>-------------------------------

Since you are using Microsoft Windows, you will need the 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2713	2835	
==>nction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2713	2835	
==>nction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2713	2835	
==>nction (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6730	6846	
==>ementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6730	6846	
==>ementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6730	6846	
==>ementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	987	1082	
==>rlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	987	1082	
==>rlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	987	1082	
==>rlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2973	3087	
==>_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2973	3087	
==>_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2973	3087	
==>_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hoo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1142	1249	
==>rimitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1142	1249	
==>rimitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1142	1249	
==>rimitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2305	2421	
==>h $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2305	2421	
==>h $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2305	2421	
==>h $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6355	6457	
==>oio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6355	6457	
==>oio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6355	6457	
==>oio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12691	12836	
==>ithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3055	3194	
==>ithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3055	3194	
==>ithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8104	8236	
==>st.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8104	8236	
==>st.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9080	9181	
==>h   = inpath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = basename($rel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	336	439	
==>=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot do <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	336	439	
==>=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11369	11516	
==>s not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11369	11516	
==>s not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11369	11516	
==>s not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLAS <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	409	542	
==>kipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2072	2168	
==>dding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2072	2168	
==>dding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14700	14790	
==>::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14700	14790	
==>::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14700	14790	
==>::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribut <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26277	26372	
==>e it is by no means required, the copyright holders of Rosetta would
appreciate being informed a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26277	26372	
==>e it is by no means required, the copyright holders of Rosetta would
appreciate being informed a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13697	13794	
==>ast_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} second <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13697	13794	
==>ast_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} second <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4268	4388	
==>m->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4268	4388	
==>m->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4858	4978	
==>m->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4608	4704	
==>nless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4608	4704	
==>nless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4608	4704	
==>nless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3229	3342	
==>ss->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3229	3342	
==>ss->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3229	3342	
==>ss->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        :: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12317	12445	
==>$o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        { local($X::pos)=( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1325	1417	
==>::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1325	1417	
==>::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8186	8304	
==>ch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8174	8292	
==>ch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2094	2206	
==>>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13910	14012	
==>opaque $class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $class.dis <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	290	388	
==><concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	290	388	
==><concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3228	3333	
==>ock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3228	3333	
==>ock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3228	3333	
==>ock for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	871	972	
==>i]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	871	972	
==>i]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	871	972	
==>i]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3789	3891	
==>ame;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3789	3891	
==>ame;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3789	3891	
==>ame;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8136	8253	
==>"Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8136	8253	
==>"Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8136	8253	
==>"Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3061	3182	
==>essly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3061	3182	
==>essly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3061	3182	
==>essly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1142	1247	
==>ft;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter_scop <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24138	24234	
==>the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28690	28786	
==>the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	386	521	
==>shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	386	521	
==>shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	386	521	
==>shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25793	25890	
==>d its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30345	30442	
==>d its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29311	29408	
==>d its values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Re <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1725	1838	
==>',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1725	1838	
==>',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	459	551	
==>Installed>, L<JIB::Package::Source>,
L<JIB::Repository>, L<JIB::Source>, L<JIB::Utils>, L<CPA <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7037	7133	
==>y of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7037	7133	
==>y of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	82	178	
==>6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package list;

use strict;
use warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4001	4117	
==>ll.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4001	4117	
==>ll.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4001	4117	
==>ll.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	895	1009	
==>2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	895	1009	
==>2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	895	1009	
==>2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4342	4446	
==>urn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4342	4446	
==>urn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4342	4446	
==>urn "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bles <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8327	8438	
==>it> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4236	4338	
==>eption thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4294	4396	
==>eption thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	429	539	
==>my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	429	539	
==>my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	429	539	
==>my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6	106	
==>/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6	106	
==>/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time ti <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5660	5813	
==>r_close
    inc pos
  term_bx3:
    if isnegated goto term_charlist                # \X[...], \000
    # goto term_literal                            # \x <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1101	1199	
==>s>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"pr <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1101	1199	
==>s>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4102	4214	
==>_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4951	5063	
==>_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16671	16779	
==>n::Example {

    # First do some optimizing of the order that source relations are
    # combined, so to try <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19436	19531	
==>only have to update said separate resource files, and not change
your main program.

I<Note that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19436	19531	
==>only have to update said separate resource files, and not change
your main program.

I<Note that <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1040	1132	
==>(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3526	3651	
==>que_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6392	6501	
==>ld_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6392	6501	
==>ld_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12223	12359	
==>er line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, ea <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12223	12359	
==>er line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, ea <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4660	4798	
==>t
            copy($candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        sy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22063	22156	
==>C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22063	22156	
==>C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=h <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	664	807	
==>eed root permission.
print "    (You may need to do that as the 'root' user.)\n"
    unless -w $Config{sitelib};

sub copy_all {
    my ($src, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1006	1096	
==>e::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGH <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1006	1096	
==>e::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	93	193	
==>del;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::TestBuilder = class <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2206	2303	
==>s.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the s <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2206	2303	
==>s.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9644	9803	
==>_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1733	1884	
==>_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1733	1884	
==>_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11996	12101	
==>' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11996	12101	
==>' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11996	12101	
==>' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && ble <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3969	4077	
==>g = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @in <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3969	4077	
==>g = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @in <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	625	738	
==>e = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

= <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	625	738	
==>e = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40200	40321	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40200	40321	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40200	40321	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1094	1248	
==>ta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1094	1248	
==>ta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	905	1010	
==>{ my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	905	1010	
==>{ my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	905	1010	
==>{ my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're cur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11501	11598	
==>onment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11501	11598	
==>onment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1900	2053	
==>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1681	1825	
==>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1681	1825	
==>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13200	13391	
==>ot $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => $te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	43	195	
==>my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	43	195	
==>my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3426	3553	
==>od);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3426	3553	
==>od);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3426	3553	
==>od);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9677	9789	
==>entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9677	9789	
==>entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7014	7128	
==>::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7014	7128	
==>::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7014	7128	
==>::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16639	16756	
==>xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16639	16756	
==>xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16639	16756	
==>xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	991	1109	
==>a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	991	1109	
==>a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	991	1109	
==>a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12833	12970	
==>s are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12833	12970	
==>s are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12833	12970	
==>s are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19237	19339	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19237	19339	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19237	19339	
==>nstance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	578	745	
==>exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	578	745	
==>exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	578	745	
==>exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4618	4710	
==>JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4618	4710	
==>JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4618	4710	
==>JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	334	420	
==>gs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	334	420	
==>gs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	331	414	
==>gs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5226	5328	
==>'t forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5226	5328	
==>'t forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5226	5328	
==>'t forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	854	1011	
==>epl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self->get_val <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7141	7244	
==>ay

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7141	7244	
==>ay

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	63	152	
==>::Psyche;

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	63	152	
==>::Psyche;

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	63	152	
==>::Psyche;

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2535	2667	
==>iscard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2535	2667	
==>iscard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2535	2667	
==>iscard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15775	15910	
==>xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15775	15910	
==>xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15775	15910	
==>xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1673	1773	
==>s

A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently unu <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1673	1773	
==>s

A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently unu <==
3	/Users/nnunley/pugs/util/package-osx.pl	4604	4701	
==>al/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6158	6253	
==>m_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6158	6253	
==>m_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7780	7879	
==>condition_test(condi(I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modifier_scope(M, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3251	3346	
==>tion(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3251	3346	
==>tion(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4988	5118	
==>ators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4988	5118	
==>ators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2744	2837	
==>me');
is($p->prototype->class, \&Object, '... got the right class name');

is($p->get_x, 5, '. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10762	10880	
==>warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10762	10880	
==>warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10762	10880	
==>warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4347	4455	
==>smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4347	4455	
==>smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4347	4455	
==>smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14110	14251	
==>s in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14110	14251	
==>s in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14110	14251	
==>s in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '% <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	618	714	
==>ti submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$e <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	618	714	
==>ti submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3512	3639	
==>angle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3512	3639	
==>angle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3512	3639	
==>angle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2292	2396	
==>e-0.1.0 {
    does Relation;

    # External packages used by the Relation::Example class, that do export <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8506	8608	
==>s{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8506	8608	
==>s{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25543	25639	
==>resents (or gives the name of a condition being reported, if it is used
as an exception payload). <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25543	25639	
==>resents (or gives the name of a condition being reported, if it is used
as an exception payload). <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1051	1154	
==>de $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1051	1154	
==>de $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1051	1154	
==>de $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10928	11026	
==>lds is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will be r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10928	11026	
==>lds is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will be r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	290	402	
==>);
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	290	402	
==>);
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	290	402	
==>);
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub token <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2737	2833	
==>actional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It ret <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2737	2833	
==>actional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It ret <==
3	/Users/nnunley/pugs/util/importgraph.pl	50	146	
==>--layout=neato]
# produces importgraph.ps in the current directory
# it expects to run from the t <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3459	3552	
==>med parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3459	3552	
==>med parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14362	14451	
==>hods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14362	14451	
==>hods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14362	14451	
==>hods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1641	1741	
==>rns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infinit <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1641	1741	
==>rns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5606	5713	
==>efined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5606	5713	
==>efined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5606	5713	
==>efined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5643	5810	
==>to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5643	5810	
==>to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5643	5810	
==>to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15366	15472	
==>}
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15366	15472	
==>}
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15366	15472	
==>}
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6289	6397	
==>nts[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6289	6397	
==>nts[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6289	6397	
==>nts[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4102	4287	
==>ath if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \.. <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4102	4287	
==>ath if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \.. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	139	240	
==>arnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Grammar::Perl6;
use Pugs::Emitter::Perl6::Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5784	5883	
==>n.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5784	5883	
==>n.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5784	5883	
==>n.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	668	773	
==>'change' magically if a rootdir gets changed

### base dirs
### XXX touch the 'root' entry and the tests w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	240	334	
==>apeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
* <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	240	334	
==>apeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2671	2797	
==>eded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2671	2797	
==>eded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2671	2797	
==>eded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2675	2805	
==>y_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i])) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2675	2805	
==>y_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i])) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2675	2805	
==>y_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i])) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21708	21807	
==>y addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26260	26359	
==>y addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24920	25019	
==>y addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17209	17319	
==>an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17209	17319	
==>an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17209	17319	
==>an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2032	2125	
==>andard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2032	2125	
==>andard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7179	7271	
==>f Str $attrs!) returns Relation::Example {
    return $?SELF.project( $!heading.difference( $ <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	495	595	
==>@*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	495	595	
==>@*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5909	6103	
==>(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method rest <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9386	9580	
==>(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method rest <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8442	8636	
==>(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method rest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1999	2142	
==>bel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1999	2142	
==>bel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1999	2142	
==>bel} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7875	7995	
==>::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7875	7995	
==>::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7875	7995	
==>::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2753	2868	
==>- pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2753	2868	
==>- pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2753	2868	
==>- pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14349	14461	
==>od_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14349	14461	
==>od_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14349	14461	
==>od_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => :: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2481	2621	
==>xp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13677	13770	
==>s span is used to represent continuous measurements, such as times, temperatures, or price ran <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13677	13770	
==>s span is used to represent continuous measurements, such as times, temperatures, or price ran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13722	13918	
==>= Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13722	13918	
==>= Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13722	13918	
==>= Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12969	13082	
==>t_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12969	13082	
==>t_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12969	13082	
==>t_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Insuffi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	420	531	
==>params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	420	531	
==>params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	420	531	
==>params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canid <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1613	1715	
==>",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1613	1715	
==>",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1613	1715	
==>",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Numb <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	360	463	
==>DO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	172	271	
==>DO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9140	9258	
==>.expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { co <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11295	11389	
==>ons should work with most reg-exps, but given that they are still a
somewhat experimental featu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11353	11447	
==>ons should work with most reg-exps, but given that they are still a
somewhat experimental featu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20646	20828	
==>r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun => comb(
				fun => ide("fac'"),
				param => ide("x"),
			),
			param => val(1),
		), <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5763	5863	
==>P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5763	5863	
==>P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15631	15796	
==>"-boot-info-table",                  # Patch boot image with info table
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3315	3439	
==>word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3508	3632	
==>word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20834	20931	
==>dir seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair stat symlink
# sy <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19092	19182	
==>moval does I<not> happen automatically if using the header(),
push_header() or init_header( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19092	19182	
==>moval does I<not> happen automatically if using the header(),
push_header() or init_header( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1181	1287	
==>0]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringifica <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1181	1287	
==>0]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringifica <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1181	1287	
==>0]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringifica <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15620	15736	
==>minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19853	19969	
==>minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	945	1041	
==>o C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	945	1041	
==>o C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1492	1588	
==>o C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21237	21483	
==>r->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21237	21483	
==>r->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21237	21483	
==>r->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20874	21008	
==>OP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20874	21008	
==>OP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20874	21008	
==>OP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6978	7178	
==>hers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10455	10655	
==>hers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9574	9774	
==>hers -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8004	8096	
==>ersal_order);
    };
}

## ------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8004	8096	
==>ersal_order);
    };
}

## ------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3812	3925	
==>ture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3824	3937	
==>ture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.* <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3944	4055	
==>r($pkg->package . " already exists in this repository");
        return;
    }

    my $inst = JIB::Package->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7577	7732	
==>JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7577	7732	
==>JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7577	7732	
==>JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	674	784	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	674	784	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	674	784	
==>Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27197	27336	
==>classes'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11518	11645	
==>lternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11884	12011	
==>lternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1183	1278	
==>b}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path) <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1183	1278	
==>b}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4259	4427	
==>_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4259	4427	
==>_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4259	4427	
==>_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9837	9942	
==>$self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finish <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9837	9942	
==>$self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finish <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2793	3034	
==>ic>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Junction>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2753	2877	
==>0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3000	3124	
==>0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := ( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14836	14931	
==>> 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $fir <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14836	14931	
==>> 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $fir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16222	16311	
==>behind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0,F0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	807	936	
==>, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	807	936	
==>, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	807	936	
==>, but causes buffering problems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	153	272	
==>undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	153	272	
==>undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	153	272	
==>undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3533	3656	
==>'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3673	3796	
==>'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16386	16483	
==>c($.then) }
cond: generic($$) = { generic($.else) }

cond: type($$) = {
	types::unify(
		type($.if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9823	9918	
==>ned.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred to a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9823	9918	
==>ned.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred to a <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2870	3029	
==>"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
} <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9221	9339	
==>ub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9221	9339	
==>ub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!ch <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3143	3275	
==>}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "Th <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3143	3275	
==>}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3184	3304	
==>n undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3184	3304	
==>n undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3184	3304	
==>n undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4326	4428	
==>:SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4326	4428	
==>:SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4326	4428	
==>:SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4304	4409	
==>e $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4304	4409	
==>e $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4304	4409	
==>e $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is pr <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2768	2968	
==>art($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :den <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2768	2968	
==>art($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :den <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	671	796	
==>elf->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5500	5610	
==>{
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5500	5610	
==>{
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5500	5610	
==>{
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8036	8125	
==>rsion="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http:/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18351	18448	
==>s, easy messages are
better.

I have found that when it comes to getting the most accurate program <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18351	18448	
==>s, easy messages are
better.

I have found that when it comes to getting the most accurate program <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22025	22224	
==>$nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # speculative syntax here :)
    unbox($ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	663	770	
==>refix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doe <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	663	770	
==>refix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15691	15802	
==>body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19168	19279	
==>body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        he <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11337	11425	
==>egative/zero/positive,
signaling the first arguement should be before/tied with/after the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15833	15956	
==>_normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15833	15956	
==>_normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15833	15956	
==>_normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14153	14372	
==>= Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14153	14372	
==>= Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14153	14372	
==>= Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2016	2123	
==>s->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# S <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2016	2123	
==>s->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# S <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15000	15096	
==>urrently is to implement this as a mutually recursive multi-
sub which will be able to handle str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15058	15154	
==>urrently is to implement this as a mutually recursive multi-
sub which will be able to handle str <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	934	1047	
==>bol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $left-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19945	20035	
==>m to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19945	20035	
==>m to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2846	2949	
==>') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2846	2949	
==>') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2846	2949	
==>') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($bod <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6394	6493	
==>lues %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{name} cmp $b->{name} } ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19647	19743	
==>e itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19647	19743	
==>e itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11002	11166	
==>est);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11002	11166	
==>est);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = ( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1180	1273	
==>ature doesnt parse. using simplified one.
#multi Array::pairs  (@array ; MatchTest *@indextest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1434	1567	
==>0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1434	1567	
==>0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1434	1567	
==>0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14305	14394	
==>:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14305	14394	
==>:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14305	14394	
==>:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:pri <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2033	2132	
==>S} = {} if $perl_version == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1004	1100	
==>on
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1004	1100	
==>on
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($ur <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2280	2399	
==>name: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17415	17509	
==>title of the document.  In libwww-perl this header will be
initialized automatically from the E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17415	17509	
==>title of the document.  In libwww-perl this header will be
initialized automatically from the E <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	823	1029	
==>(
                                Tree.new(:node<Array::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	727	858	
==>scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	727	858	
==>scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15759	16031	
==>st->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15759	16031	
==>st->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15759	16031	
==>st->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2339	2446	
==>}
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2339	2446	
==>}
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { retur <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	114	218	
==>EST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	172	276	
==>EST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9593	9690	
==>ll produce an iterator that will traverse the entire parse tree,
to any depth.  To restrict the de <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7566	7710	
==>!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf || <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7566	7710	
==>!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf || <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3723	3840	
==>->new( _top => $top_obj );
    }
}

sub find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find:: <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1122	1279	
==>ss);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( St <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1122	1279	
==>ss);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( St <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10915	11005	
==>ularExpressionFlags> <IdentifierPart>
}

# A.2 Number Conversions

rule StringNumericLitera <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2093	2196	
==>turn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2093	2196	
==>turn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1720	1808	
==>c = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$filename)->get_p6_file;
	    $eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9056	9196	
==>ods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9056	9196	
==>ods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9056	9196	
==>ods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15029	15126	
==>Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15029	15126	
==>Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15029	15126	
==>Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	989	1097	
==>ow that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	989	1097	
==>ow that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	989	1097	
==>ow that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11430	11603	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11430	11603	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11430	11603	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19916	20094	
==>.Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19916	20094	
==>.Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19916	20094	
==>.Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1979	2132	
==>> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1979	2132	
==>> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1979	2132	
==>> '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27453	27550	
==>eys of C<$attrs> provide the names of the new attributes, and
the values provide values applied to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32005	32102	
==>eys of C<$attrs> provide the names of the new attributes, and
the values provide values applied to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31088	31185	
==>eys of C<$attrs> provide the names of the new attributes, and
the values provide values applied to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17314	17432	
==>rse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17314	17432	
==>rse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17314	17432	
==>rse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1661	1803	
==>(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1661	1803	
==>(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1661	1803	
==>(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4003	4149	
==>name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4003	4149	
==>name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4003	4149	
==>name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == und <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2826	2935	
==>ation summary runcore>) {
    print "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{pugs <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1306	1411	
==>ing {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1306	1411	
==>ing {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11378	11475	
==>mental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11436	11533	
==>mental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10675	10765	
==>singleton/class method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28841	28937	
==>other value set members.  This
method supports having the new attributes having the same names as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33393	33489	
==>other value set members.  This
method supports having the new attributes having the same names as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32530	32626	
==>other value set members.  This
method supports having the new attributes having the same names as <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	403	507	
==>he test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	461	565	
==>he test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2013	2102	
==>f it's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	770	895	
==>end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	770	895	
==>end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_st <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27301	27392	
==>(λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac), "in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8730	8866	
==>lt) {
    #my $type = defined $tpDefault ? DOWN($tpDefault)." " : "";
    #$type." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5740	5838	
==>st of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly mus <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5740	5838	
==>st of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly mus <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6170	6433	
==>$p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6170	6433	
==>$p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components an <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2607	2743	
==>_perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { required => 1, store => \$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	91	192	
==>w($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	91	192	
==>w($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	91	192	
==>w($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Cl <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2952	3071	
==>::gzerrno";
    while (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	730	835	
==>tion;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descri <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	730	835	
==>tion;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3050	3190	
==>,          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3050	3190	
==>,          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3050	3190	
==>,          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp" <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1525	1615	
==>:Selective::select> function or by including them 
in the C<SELECT_LOGS> environment variab <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1525	1615	
==>:Selective::select> function or by including them 
in the C<SELECT_LOGS> environment variab <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4695	4795	
==>gTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosition, "PGE::Match");
    my $t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3102	3196	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3102	3196	
==>l::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2593	2703	
==>/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2593	2703	
==>/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2593	2703	
==>/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	7	96	
==>2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	7	96	
==>2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	7	96	
==>2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3386	3523	
==>ef = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3386	3523	
==>ef = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14973	15103	
==>t  $.wday;    # 1 to 7, Sunday == 1
    has Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # string, eg, J <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23427	23634	
==>,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23706	23913	
==>,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1893	1987	
==>rt for match flags; regexes constructed with this module may cause
segfaults on C<split>, subst <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1007	1137	
==>ke pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
type KeyExtra <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	707	829	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertio <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	707	829	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13325	13421	
==>er for all these  functions.

The `:depends("string")` parameter to most of the functions is a wa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13383	13479	
==>er for all these  functions.

The `:depends("string")` parameter to most of the functions is a wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10924	11040	
==>_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10924	11040	
==>_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10924	11040	
==>_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $v <==
3	/Users/nnunley/pugs/util/package-osx.pl	7212	7309	
==>sr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/man <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5205	5306	
==>'$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9636	9747	
==>pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9636	9747	
==>pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9636	9747	
==>pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub w <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	502	603	
==>ub node($h,$t) { return [$h, $t] }

sub head($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].() <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	615	715	
==>ntually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	615	715	
==>ntually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ( <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	613	731	
==>$self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = shift;
    $self->{'values'} <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1550	1652	
==>:Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable: <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1550	1652	
==>:Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2412	2541	
==>mplates{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5753	5849	
==>s
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5753	5849	
==>s
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2039	2244	
==>$!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5516	5721	
==>$!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4446	4651	
==>$!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () retur <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	863	979	
==>g is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => ' <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	863	979	
==>g is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	930	1030	
==>ch = $rpc_token->match($str) for 1..40},
        P6_Regex_x1   => sub{ $match = $rpc_regex->match($s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1596	1702	
==>\\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@array ; MatchTest *@indextests --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1719	1815	
==>turn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1719	1815	
==>turn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1955	2051	
==>turn B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1969	2073	
==>her) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1969	2073	
==>her) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5008	5118	
==>$expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

# Check that $got is within $range of $expec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3285	3410	
==>RD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB B <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22921	23016	
==>of the main distinctions of this approach over similar packages is that
text is always looked up <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22921	23016	
==>of the main distinctions of this approach over similar packages is that
text is always looked up <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22983	23124	
==>>new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42586	42727	
==>>new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4106	4185	
==>1824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4106	4185	
==>1824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23131	23223	
==>op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23131	23223	
==>op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23131	23223	
==>op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2425	2542	
==>py Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2425	2542	
==>py Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2425	2542	
==>py Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4183	4290	
==>ts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4183	4290	
==>ts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4183	4290	
==>ts =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	927	1091	
==>Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	927	1091	
==>Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	229	369	
==>urn { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# thing <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	229	369	
==>urn { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# thing <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16939	17024	
==>,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0,E0,E0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	894	1008	
==>$self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	894	1008	
==>$self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	894	1008	
==>$self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10921	11032	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10921	11032	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10921	11032	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5819	5920	
==>$S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15496	15606	
==>($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16911	17021	
==>($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21667	21777	
==>($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->v <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13996	14095	
==>se this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14054	14153	
==>se this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3972	4090	
==>if exists $values{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4970	5089	
==>TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Def <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4970	5089	
==>TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Def <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4942	5052	
==>tions may be abbreviated to uniqueness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Mic <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7573	7710	
==>iles;

my @pfiles;
step
  descr  => "Searching for Parrot include files",
  ensure => sub { @pfiles > 0 },
  using  => sub {
    @pfiles = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1637	1727	
==>e " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1637	1727	
==>e " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7134	7229	
==>o the output.

A default implementation of this method is provided which returns nothing.

=item <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7134	7229	
==>o the output.

A default implementation of this method is provided which returns nothing.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9395	9546	
==>tion,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  metho <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1087	1192	
==>hen ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1087	1192	
==>hen ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3409	3559	
==>'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4258	4408	
==>'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8903	9009	
==>an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8903	9009	
==>an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2975	3087	
==>e>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2975	3087	
==>e>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	17	116	
==>cement for the old BEGIN preamble which heads (or
# should head) up every core test program to prep <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6193	6288	
==>_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	210	299	
==>en;

## ----------------------------------------------------------------------------
## co <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	210	299	
==>en;

## ----------------------------------------------------------------------------
## co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1058	1162	
==>ew PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1058	1162	
==>ew PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1058	1162	
==>ew PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH()) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1820	1933	
==>$_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1820	1933	
==>$_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1820	1933	
==>$_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	915	1028	
==>ETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	915	1028	
==>ETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	915	1028	
==>ETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2817	2923	
==>al { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2817	2923	
==>al { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2817	2923	
==>al { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	234	355	
==>my($key,$val) = split ':', $arg;
    die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadF <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	318	430	
==>sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	318	430	
==>sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1394	1487	
==>@imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1394	1487	
==>@imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1394	1487	
==>@imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4949	5054	
==>thod) = @_;

    $self->load_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1332	1432	
==>ef($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1332	1432	
==>ef($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9428	9551	
==>.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9428	9551	
==>.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9428	9551	
==>.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2362	2465	
==>t = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2362	2465	
==>t = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2362	2465	
==>t = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3055	3213	
==>reduce\n" if $debug;
          my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
          &$reduce_helper($var,$ops);
          return &$s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13618	13715	
==>t.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13618	13715	
==>t.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1578	1685	
==>Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1578	1685	
==>Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1578	1685	
==>Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1072	1176	
==>d.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1072	1176	
==>d.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1072	1176	
==>d.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_typ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9144	9254	
==> ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, super <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9144	9254	
==> ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, super <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7537	7637	
==>::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest *@i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10798	10896	
==>se(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10798	10896	
==>se(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_uni <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37919	38022	
==>relation
with every tuple of each other source relation, then where each member of a
tuple pair has attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42468	42571	
==>relation
with every tuple of each other source relation, then where each member of a
tuple pair has attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42118	42221	
==>relation
with every tuple of each other source relation, then where each member of a
tuple pair has attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8234	8364	
==>'$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8234	8364	
==>'$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8234	8364	
==>'$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) } <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	308	419	
==>mbers() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized pr <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	308	419	
==>mbers() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized pr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5755	5869	
==>lic'>
}
rule Identifier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rule IdentifierName {  # see <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3215	3316	
==>E>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3432	3533	
==>E>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1281	1626	
==>e;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Excepti <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1281	1626	
==>e;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Excepti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36025	36123	
==>e
array reference as the contents of the look-ahead, and we're done.  Now
we just need to return th <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2128	2233	
==>th'} == 32, 'subset complex of complex32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	69	169	
==>in `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	69	169	
==>in `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4954	5077	
==>',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4954	5077	
==>',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1858	1981	
==>',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
nod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5831	5940	
==>_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5831	5940	
==>_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4139	4233	
==>$position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ />/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	52	156	
==>ngs;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	57	160	
==>ngs;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	55	158	
==>ngs;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1694	1817	
==>.FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1694	1817	
==>.FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1694	1817	
==>.FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1418	1566	
==>as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto.de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1418	1566	
==>as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2308	2418	
==>nd for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2308	2418	
==>nd for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2655	2765	
==>nd for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39508	39601	
==>yedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39508	39601	
==>yedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13127	13276	
==>{ $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13127	13276	
==>{ $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13127	13276	
==>{ $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	742	847	
==>s: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	742	847	
==>s: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	742	847	
==>s: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is clo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	508	651	
==>t( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	508	651	
==>t( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4127	4241	
==>n->new(
			type => $sub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	98	205	
==>lf:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	98	205	
==>lf:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	115	218	
==>or metaclass stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    return join( ', ', Data::Dumper:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3347	3440	
==>ilder::Test class represents a single test within the
Test::Builder framework. The class itsel <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3347	3440	
==>ilder::Test class represents a single test within the
Test::Builder framework. The class itsel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5544	5637	
==>ilder::Test class represents a single test within the
Test::Builder framework. The class itsel <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	669	786	
==>() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the sta <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	669	786	
==>() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the sta <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	95	202	
==>::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Te <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6694	6837	
==>@tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tm <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6694	6837	
==>@tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10417	10529	
==>rl .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5144	5256	
==>rn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5144	5256	
==>rn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5734	5846	
==>rn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8949	9058	
==>CxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tc <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	13	117	
==>Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Inf <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	13	117	
==>Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Inf <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4279	4414	
==>a::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4279	4414	
==>a::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	893	1009	
==>my ($k,$v) = each %$hash ) {
    print "$desc: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	573	728	
==>as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	573	728	
==>as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16411	16551	
==>return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16411	16551	
==>return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16411	16551	
==>return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl exte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1096	1213	
==>te_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1096	1213	
==>te_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1096	1213	
==>te_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15380	15508	
==>00% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15380	15508	
==>00% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15380	15508	
==>00% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYAL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5296	5440	
==>:tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5296	5440	
==>:tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2344	2471	
==>b {
        print STDERR "reduce\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	257	354	
==>s for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked again <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	257	354	
==>s for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked again <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1261	1373	
==>ves );
}

=head2 $file = $inst->available_file

=cut

sub available_file {
    my $self = shift;
    my $dir  = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6330	6437	
==>ype = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6330	6437	
==>ype = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5324	5424	
==>od stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5324	5424	
==>od stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7229	7399	
==>{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7229	7399	
==>{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7229	7399	
==>{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4664	4801	
==>instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4664	4801	
==>instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4664	4801	
==>instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($met <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	441	585	
==>y $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	441	585	
==>y $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16167	16264	
==>($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16167	16264	
==>($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16167	16264	
==>($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $x <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6557	6703	
==>=cut

{
    # add the first method
    my $_add_method = method->new(
            $::ENV,
            method::signature->new(
                param <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	333	434	
==>.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	333	434	
==>.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6922	7049	
==>%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6922	7049	
==>%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6922	7049	
==>%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13947	14067	
==>=> 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13947	14067	
==>=> 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13947	14067	
==>=> 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3284	3435	
==>$date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Ag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3284	3435	
==>$date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Ag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6435	6570	
==>1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_fh {
    my $op   =   get_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5038	5223	
==>ame =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5038	5223	
==>ame =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5038	5223	
==>ame =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	409	521	
==>ing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	409	521	
==>ing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	409	521	
==>ing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	460	575	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	460	575	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	460	575	
==>dir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1796	1916	
==>b expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1796	1916	
==>b expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1796	1916	
==>b expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	905	1005	
==>SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	905	1005	
==>SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	905	1005	
==>SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5713	5877	
==>ndef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Ther <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5713	5877	
==>ndef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Ther <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5713	5877	
==>ndef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # Ther <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1157	1248	
==>= "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{locat <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1157	1248	
==>= "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{locat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2861	2982	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2861	2982	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2861	2982	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2454	2689	
==>: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle-quote
                    unless ( $whit <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4440	4521	
==>coded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4440	4521	
==>coded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13289	13389	
==>_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging server <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13289	13389	
==>_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging server <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5228	5324	
==>e input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5228	5324	
==>e input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5228	5324	
==>e input file.
In linking mode, multiple input files may be specified. If a filename is
prefixed w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2962	3076	
==>think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2962	3076	
==>think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2962	3076	
==>think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5124	5244	
==>nt $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5124	5244	
==>nt $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty se <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1385	1490	
==>l_day;

# Create the graph.
my $graph = GD::Graph::lines->new(500, 350);
$graph->set(
  title        => "P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15017	15118	
==>ther!) returns Relation::Example {

    # First look for trivial cases that are more efficient to do d <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3888	3973	
==>a@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3888	3973	
==>a@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	900	1095	
==>1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (S <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	900	1095	
==>1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13797	13951	
==>bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $tot{bad}++;
                $failedtests{$tf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3663	3763	
==>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3663	3763	
==>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMP <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	224	318	
==>need S29 work).

When writing primitives, please do *not* use `return()`, because
that messes u <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3495	3611	
==>= _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depend <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3959	4075	
==>= _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depend <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4517	4622	
==>OMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13468	13588	
==>ash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13468	13588	
==>ash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13468	13588	
==>ash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30785	30877	
==>hat any duplicates following the transformation have been eliminated. 
Trivial cases are wher <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35336	35427	
==>hat any duplicates following the transformation have been eliminated.
Trivial cases are wher <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34527	34618	
==>hat any duplicates following the transformation have been eliminated.
Trivial cases are wher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1827	1982	
==>ance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2032	2187	
==>ance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2095	2250	
==>ance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	895	1010	
==>ifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	895	1010	
==>ifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	895	1010	
==>ifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4906	5003	
==>ods rather than rules or macros. (The numeric
    rxmods are recognized by fallback macros defined <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2898	2994	
==>inish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2898	2994	
==>inish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	945	1052	
==>l newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic outpu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	945	1052	
==>l newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic outpu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1501	1608	
==>l newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic outpu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27669	27765	
==>uple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32221	32317	
==>uple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31313	31409	
==>uple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple/Map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1937	2050	
==>rfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1937	2050	
==>rfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1937	2050	
==>rfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19321	19597	
==>) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19321	19597	
==>) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19321	19597	
==>) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11406	11499	
==>ides more predictable 
behavior to class consturction because it isolates the Role specifc
cod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11406	11499	
==>ides more predictable 
behavior to class consturction because it isolates the Role specifc
cod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11406	11499	
==>ides more predictable 
behavior to class consturction because it isolates the Role specifc
cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4555	4673	
==>x( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4555	4673	
==>x( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
} <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2255	2361	
==>f used)
my $output_dir;  # The root directory of the output tree.
my $start_dir = cwd;

# ref to hash of in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2077	2171	
==>esents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2166	2260	
==>esents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rule <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8531	8618	
==>, !.
p5_modifier_spec_neg([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35485	35608	
==>en_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35485	35608	
==>en_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35485	35608	
==>en_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18993	19110	
==>m_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18993	19110	
==>m_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18993	19110	
==>m_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21272	21368	
==>$test->{skipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test->{failed}})/$tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19078	19171	
==>te that
the removal does I<not> happen automatically if using the header(),
push_header() or i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19078	19171	
==>te that
the removal does I<not> happen automatically if using the header(),
push_header() or i <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12866	13005	
==>ta = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	485	591	
==>r
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	496	602	
==>r
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	400	522	
==>r::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7402	7513	
==>aversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7402	7513	
==>aversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	88	187	
==>::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1597	1723	
==>ss {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1597	1723	
==>ss {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1597	1723	
==>ss {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11460	11594	
==>");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and pr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11460	11594	
==>");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and pr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3774	3870	
==>ious ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3774	3870	
==>ious ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.clo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3806	3893	
==>5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z) --> p5_range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6170	6298	
==>};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6170	6298	
==>};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6170	6298	
==>};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	418	561	
==>hness check ourselves
        my $pmc = $file.'c';
        my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptoda <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5045	5157	
==>d_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5045	5157	
==>d_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless define <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2147	2252	
==>Base class for all executable objects
    Routine     Base class for all nameable executable objects
    S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	828	923	
==>erates at the byte level, not the character level, so different 
character encodings may be enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	828	923	
==>erates at the byte level, not the character level, so different 
character encodings may be enci <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3508	3611	
==>$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3508	3611	
==>$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13020	13243	
==>new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11879	12052	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11879	12052	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11879	12052	
==>class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13574	13717	
==>ey) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13574	13717	
==>ey) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13574	13717	
==>ey) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14400	14495	
==>);
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14400	14495	
==>);
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14400	14495	
==>);
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	476	569	
==>trol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	476	569	
==>trol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_hea <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1649	1800	
==>name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1649	1800	
==>name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	0	124	
==>package PIL::PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	0	124	
==>package PIL::PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	0	124	
==>package PIL::PStmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4208	4315	
==>oin(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4208	4315	
==>oin(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4208	4315	
==>oin(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2413	2538	
==>p() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2413	2538	
==>p() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2413	2538	
==>p() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3521	3616	
==>for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3521	3616	
==>for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3521	3616	
==>for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1206	1302	
==>ely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1206	1302	
==>ely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6698	6829	
==>| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6698	6829	
==>| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6698	6829	
==>| $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5000	5116	
==>rs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8477	8593	
==>rs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7488	7604	
==>rs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4373	4481	
==>ta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4373	4481	
==>ta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4373	4481	
==>ta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1211	1319	
==>() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1211	1319	
==>() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1211	1319	
==>() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2477	2584	
==>l6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2477	2584	
==>l6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2477	2584	
==>l6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	263	373	
==>PORT_OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_stre <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1594	1701	
==>_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1594	1701	
==>_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26848	26957	
==>lassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18446	18531	
==>bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18446	18531	
==>bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4816	4909	
==>lX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4816	4909	
==>lX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4816	4909	
==>lX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8490	8634	
==>symbol->new("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<method <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2403	2521	
==>&{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2403	2521	
==>&{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25472	25574	
==>here the search
 * starts in the string, so if regback is >= 0, the regmust search is never
 * wasted e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5433	5541	
==>subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5433	5541	
==>subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5433	5541	
==>subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7196	7317	
==>= undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7196	7317	
==>= undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7196	7317	
==>= undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4801	4900	
==>plicit_class  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7146	7240	
==>tr $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7146	7240	
==>tr $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12590	12751	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12590	12751	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12590	12751	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4419	4537	
==>pe = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4419	4537	
==>pe = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4419	4537	
==>pe = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14221	14411	
==>my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14221	14411	
==>my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14221	14411	
==>my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2305	2448	
==>odel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2305	2448	
==>odel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2305	2448	
==>odel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5274	5367	
==>E && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<ano <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5274	5367	
==>E && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<ano <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5274	5367	
==>E && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<ano <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	265	421	
==>ype', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	265	421	
==>ype', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	265	421	
==>ype', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5545	5688	
==>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5545	5688	
==>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5545	5688	
==>get_method_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4991	5128	
==>i,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4991	5128	
==>i,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4991	5128	
==>i,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2980	3081	
==>o_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2980	3081	
==>o_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2980	3081	
==>o_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not def <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	100	207	
==>'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document di <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	100	207	
==>'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document di <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11473	11581	
==>es that involve perl_root, the install location
        @inc = grep !/perl_root/i, @inc;

    } elsif ( $self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2394	2492	
==>diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2452	2550	
==>diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $de <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4159	4277	
==>epends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## di <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4217	4335	
==>epends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## di <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18421	18519	
==>String delimiters must not be treated as rules but as constants.  The
default is no longer ' ' sinc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4019	4140	
==>s being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4019	4140	
==>s being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4019	4140	
==>s being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21984	22118	
==>ss (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21984	22118	
==>ss (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21984	22118	
==>ss (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4338	4447	
==>e_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4338	4447	
==>e_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4338	4447	
==>e_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4051	4147	
==>=head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4051	4147	
==>=head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2819	2941	
==>is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2819	2941	
==>is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2819	2941	
==>is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	514	605	
==>version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	514	605	
==>version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5562	5710	
==>&& $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5562	5710	
==>&& $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5562	5710	
==>&& $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2439	2545	
==>tion = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2439	2545	
==>tion = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2439	2545	
==>tion = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	835	961	
==>ly},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	835	961	
==>ly},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12858	12974	
==>_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${^TAINT};
    m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18460	18550	
==>on (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18656	18746	
==>on (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18870	18960	
==>on (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.new <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3717	3843	
==>));
        }
    }
}

class Class::Events::Event {
    # pretty much an abstract baseclass
    # an empty implementation is us <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10032	10121	
==>o","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10767	10856	
==>o","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1806	1923	
==>s outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1806	1923	
==>s outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1806	1923	
==>s outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29184	29309	
==>{
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29184	29309	
==>{
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29184	29309	
==>{
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	562	674	
==>g = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	562	674	
==>g = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	562	674	
==>g = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1620	1735	
==>y $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1620	1735	
==>y $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1620	1735	
==>y $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supercl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	943	1124	
==>one Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	943	1124	
==>one Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2389	2510	
==>1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_de <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18869	19009	
==>->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20227	20367	
==>->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthe <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5715	5831	
==>no report).  $total is a hash ref summary of all the tests
run.  Its keys and values are this:

    bonus           N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2318	2427	
==>C

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2318	2427	
==>C

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2318	2427	
==>C

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1185	1298	
==>rint \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1185	1298	
==>rint \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15582	15687	
==>END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15582	15687	
==>END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15582	15687	
==>END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12911	13093	
==>a( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12911	13093	
==>a( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12911	13093	
==>a( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28885	29006	
==>pp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28885	29006	
==>pp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	252	361	
==>pp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4460	4573	
==>n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4460	4573	
==>n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14236	14336	
==>, %attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2598	2696	
==>ew_class->version($version)     if defined $version;
    $new_class->authority($authority) if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2598	2696	
==>ew_class->version($version)     if defined $version;
    $new_class->authority($authority) if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2598	2696	
==>ew_class->version($version)     if defined $version;
    $new_class->authority($authority) if defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5888	5998	
==>n sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5888	5998	
==>n sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $c <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1926	2021	
==>----------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2817	2933	
==>}
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2817	2933	
==>}
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3561	3657	
==>the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --parrot-path as the root of an Parrot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5715	5873	
==>s   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $pkg->prefix <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5345	5446	
==>gain to load it.
END_DIE

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25706	25802	
==>an lvalued subroutine returning a
normal scalar doesn't work quite right with a regex that's supp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11972	12082	
==>red_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15486	15588	
==>presents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set curr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15486	15588	
==>presents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set curr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38228	38323	
==>ext string in
its positional parameter $text (a string), and a Message Variables hash ref
in its <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38228	38323	
==>ext string in
its positional parameter $text (a string), and a Message Variables hash ref
in its <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35219	35362	
==>= $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35219	35362	
==>= $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35219	35362	
==>= $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8286	8421	
==>}
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8286	8421	
==>}
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8286	8421	
==>}
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2588	2690	
==>b$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2588	2690	
==>b$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2588	2690	
==>b$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RU <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1542	1643	
==>new(type => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use base qw/Blondie::Reducer/;
	
	u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21167	21260	
==>Base, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21167	21260	
==>Base, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15076	15215	
==>ers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15076	15215	
==>ers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15076	15215	
==>ers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3594	3692	
==>PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3594	3692	
==>PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3594	3692	
==>PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw functio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6152	6244	
==>e Test::Builder::Test::WithReason role
and override some methods to provide additional featur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6152	6244	
==>e Test::Builder::Test::WithReason role
and override some methods to provide additional featur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8349	8441	
==>e Test::Builder::Test::WithReason role
and override some methods to provide additional featur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	390	502	
==>}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	390	502	
==>}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	390	502	
==>}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22972	23082	
==>d($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22972	23082	
==>d($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22972	23082	
==>d($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8370	8479	
==>"p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pL <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16161	16291	
==>son = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_reset_file_state>

  $strap->_reset_fi <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2422	2518	
==>l except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2422	2518	
==>l except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3312	3422	
==>ie "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3312	3422	
==>ie "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3312	3422	
==>ie "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2043	2161	
==>IL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2043	2161	
==>IL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2043	2161	
==>IL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1369	1475	
==>lit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1369	1475	
==>lit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1369	1475	
==>lit(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2506	2669	
==>not ref $x) {
            my $y = '';
            foreach my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8924	9023	
==>ect_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8629	8726	
==>ect_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2067	2188	
==>ubmethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $messa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	72	185	
==>ubmethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $messa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	72	185	
==>ubmethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $messa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4799	4979	
==>@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Arra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4799	4979	
==>@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13432	13556	
==>goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13432	13556	
==>goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13432	13556	
==>goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18833	18932	
==>ion 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1997	2093	
==>t
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impressio <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1997	2093	
==>t
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impressio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7463	7656	
==>,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8297	8490	
==>,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4022	4166	
==>ents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$file }
    };

    ch <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4282	4403	
==>PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4282	4403	
==>PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1132	1253	
==>PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4094	4200	
==>isual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2815	2921	
==>Pe_BADESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5337	5430	
==>hod equal (Relation::Example $other!) returns Bool {
    return $other!heading === $?SELF!head <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9339	9454	
==>');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9397	9512	
==>');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	814	920	
==>ess->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	814	920	
==>ess->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	814	920	
==>ess->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	386	477	
==>iler::Regex->compile( $rul );
my $rpc_regexP5 = Pugs::Compiler::RegexPerl5->compile( $rul ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3391	3510	
==>e or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3391	3510	
==>e or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3391	3510	
==>e or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19350	19455	
==>we can't type it
my $no_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order fun <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9038	9142	
==>gers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9038	9142	
==>gers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40083	40178	
==>dText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40083	40178	
==>dText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9645	9735	
==>"named=>1") if $op{'isNamed'};
	push(@args,"writable=>1") if $op{'isWritable'};

	if(!$clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6754	6881	
==>ble} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6754	6881	
==>ble} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6754	6881	
==>ble} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2427	2544	
==>];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2427	2544	
==>];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2427	2544	
==>];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5271	5374	
==>Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dolla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5271	5374	
==>Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dolla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5271	5374	
==>Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dolla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	394	503	
==>er  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the packa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	394	503	
==>er  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the packa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9202	9329	
==>ilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9202	9329	
==>ilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8365	8573	
==>) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8365	8573	
==>) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8365	8573	
==>) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_M <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1612	1742	
==>$name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1612	1742	
==>$name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!par <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	65	184	
==>ngs;

use UNIVERSAL::require;

use Blondie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30960	31054	
==>al to the original, in which case
this method returns the identity-one Relation or the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35510	35604	
==>al to the original, in which case
this method returns the identity-one Relation or the invocant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5480	5582	
==>lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5480	5582	
==>lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5480	5582	
==>lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15957	16064	
==>UB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15957	16064	
==>UB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15957	16064	
==>UB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24260	24385	
==>1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24260	24385	
==>1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24260	24385	
==>1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1056	1158	
==>at we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1056	1158	
==>at we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1056	1158	
==>at we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will st <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27419	27516	
==>he argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31971	32068	
==>he argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31054	31151	
==>he argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, and
th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11969	12065	
==>::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see he <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11969	12065	
==>::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see he <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11969	12065	
==>::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1184	1307	
==>ulti sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1184	1307	
==>ulti sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1184	1307	
==>ulti sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8898	9023	
==>nd(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8898	9023	
==>nd(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8898	9023	
==>nd(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18795	18891	
==>we are not prepared to
support (such as modification of the compiled re op tree the native
compil <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3085	3181	
==>we are not prepared to
support (such as modification of the compiled re op tree the native
compil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24990	25085	
==>egmust only if the r.e. contains something
 * potentially expensive (at present, the only such t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	854	994	
==>w err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	854	994	
==>w err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	854	994	
==>w err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9605	9719	
==>5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9605	9719	
==>5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9605	9719	
==>5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4480	4770	
==>agraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        sta <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4480	4770	
==>agraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38690	38791	
==>ES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1363	1466	
==>ub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1363	1466	
==>ub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1363	1466	
==>ub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4543	4762	
==>matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4543	4762	
==>matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7214	7327	
==>.'.index');
        push @index_files, map { $path->file($_) }
                $self->_index_files($pkg, \@copy, $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	681	770	
==>pport the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/per <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	681	770	
==>pport the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	657	766	
==>line('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	657	766	
==>line('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	657	766	
==>line('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17915	18028	
==>n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17915	18028	
==>n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17915	18028	
==>n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	521	631	
==>_cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	521	631	
==>_cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	521	631	
==>_cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2296	2444	
==>allow       => ISA_JIB_REPOSITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            store       => \$inst_set <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6267	6379	
==>arts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6267	6379	
==>arts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4388	4512	
==>argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4388	4512	
==>argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4978	5102	
==>argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13780	13916	
==>hift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13780	13916	
==>hift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13780	13916	
==>hift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2014	2128	
==>"perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} = sub {" . '
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2655	2749	
==>th encryptions.

If two different data streams are enciphered with the same key, the encryption <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2655	2749	
==>th encryptions.

If two different data streams are enciphered with the same key, the encryption <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31766	31896	
==>= @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31766	31896	
==>= @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31766	31896	
==>= @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36655	36790	
==>p;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36655	36790	
==>p;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36655	36790	
==>p;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: spli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	564	713	
==>sh @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	564	713	
==>sh @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2741	2852	
==>rules, $template;
    }
    push @rules, "<$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unle <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31215	31311	
==>has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35765	35861	
==>has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34983	35079	
==>has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13437	13569	
==>' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13437	13569	
==>' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13437	13569	
==>' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return ke <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10229	10338	
==>",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6764	6870	
==>uld I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6764	6870	
==>uld I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5723	5848	
==>)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_an <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5723	5848	
==>)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_an <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5723	5848	
==>)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3594	3759	
==>e = shift;
                $e->get('$current')
                  ->send('has_method' => $e->get('$label'))
                  ->and(
                      block->new($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12919	13097	
==>->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12919	13097	
==>->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12919	13097	
==>->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13416	13539	
==>e::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13416	13539	
==>e::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	166	260	
==>e Params::Check qw(check);
use Log::Message::Simple qw(:STD);

=head1 METHODS

=head2 $repo = J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3981	4066	
==>-----------------------------------------------------------
## BEGIN BOOTSTRAPPING ARE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3981	4066	
==>-----------------------------------------------------------
## BEGIN BOOTSTRAPPING ARE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3981	4066	
==>-----------------------------------------------------------
## BEGIN BOOTSTRAPPING ARE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9960	10120	
==>eturn Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9960	10120	
==>eturn Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9960	10120	
==>eturn Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1	104	
==>se warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1	104	
==>se warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1	104	
==>se warnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13434	13564	
==>hifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13434	13564	
==>hifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13434	13564	
==>hifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10372	10558	
==>y $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10372	10558	
==>y $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10372	10558	
==>y $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	691	832	
==>ery.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	691	832	
==>ery.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_para <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1231	1331	
==>turns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $str = ~@valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6252	6346	
==>rce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash fol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6252	6346	
==>rce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash fol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6252	6346	
==>rce =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash fol <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3441	3566	
==>== 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3441	3566	
==>== 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6517	6622	
==>ame, assume case has been preserved
        # correctly.  Otherwise, root through the file to locate the c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26226	26409	
==>{ Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26226	26409	
==>{ Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26226	26409	
==>{ Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12102	12208	
==>)
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12102	12208	
==>)
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?S <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6794	6889	
==>prof/, @_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build -idist/build/src -Ldist/build/src -o p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1438	1556	
==>l6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1438	1556	
==>l6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13642	13746	
==>pression>
    | <'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1836	1930	
==>_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1836	1930	
==>_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1084	1176	
==>_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15252	15465	
==>method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15252	15465	
==>method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15252	15465	
==>method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9593	9699	
==>ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9593	9699	
==>ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9593	9699	
==>ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3599	3725	
==>lass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3599	3725	
==>lass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3599	3725	
==>lass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14627	14822	
==>y( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18104	18299	
==>y( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17520	17715	
==>y( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7627	7722	
==>ecause the actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7368	7461	
==>ecause the actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capt <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	47	128	
==>ocal/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Install: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	720	813	
==>nment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	720	813	
==>nment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	720	813	
==>nment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5438	5560	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5438	5560	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5438	5560	
==>ould be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4178	4321	
==>et\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4178	4321	
==>et\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4178	4321	
==>et\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2222	2321	
==>e) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2222	2321	
==>e) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2222	2321	
==>e) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], cod <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9218	9354	
==>,
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    In <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9218	9354	
==>,
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    In <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4084	4196	
==>et_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20191	20329	
==>Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20191	20329	
==>Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20191	20329	
==>Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4969	5085	
==>rce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parame <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4969	5085	
==>rce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parame <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4969	5085	
==>rce;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub _parse_parame <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3342	3451	
==>his relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6819	6928	
==>his relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5776	5885	
==>his relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11254	11426	
==>[
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11254	11426	
==>[
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ ' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3844	3939	
==>a hack for L::AG, since it doesn't know about @ISA
	$self->{symbol} = $class_that_should_be->sym <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1329	1438	
==>dirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	667	775	
==>dirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13822	13925	
==>n_numeric") },
      scalar_numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12712	12857	
==>ent2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12712	12857	
==>ent2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3122	3212	
==>Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10565	10707	
==>st::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      submethod BU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1091	1219	
==>st::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1091	1219	
==>st::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5262	5383	
==>);
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2804	2925	
==>);
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1450	1544	
==>circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1450	1544	
==>circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1450	1544	
==>circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4595	4717	
==>eturn $S->object(exact_comp => "\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4230	4328	
==>meters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> v <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4230	4328	
==>meters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> v <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4761	4886	
==>!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4761	4886	
==>!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4076	4187	
==>t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4076	4187	
==>t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4076	4187	
==>t bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4391	4504	
==>"PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4391	4504	
==>"PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4391	4504	
==>"PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	120	223	
==>09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	120	223	
==>09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	120	223	
==>09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8428	8534	
==>alue::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8428	8534	
==>alue::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8428	8534	
==>alue::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1854	1967	
==>ig;
}

sub add_path {
    my ($name, $config) = @_;
    my $path = $Config{$name} || '';
    $path =~ s/([\/\\])[^ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21834	21925	
==>ing a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21834	21925	
==>ing a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2751	2877	
==>urn 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2751	2877	
==>urn 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16861	16961	
==>m goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfro <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	94	198	
==>rivially.

type Noop;

# hmm, there's a lot.  And we probably don't need it all for the
# meta-model, exc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	857	946	
==>English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	857	946	
==>English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2826	2935	
==>pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2826	2935	
==>pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2826	2935	
==>pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6979	7086	
==>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7966	8073	
==>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10535	10642	
==>another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17778	17890	
==>} 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17778	17890	
==>} 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17778	17890	
==>} 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39532	39650	
==>);
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39532	39650	
==>);
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39532	39650	
==>);
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13797	13952	
==>AL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13797	13952	
==>AL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13797	13952	
==>AL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2892	2989	
==>e strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2892	2989	
==>e strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2892	2989	
==>e strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpPa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1922	2030	
==>n of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1922	2030	
==>n of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1922	2030	
==>n of Roles/Interfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6156	6268	
==>ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6156	6268	
==>ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6156	6268	
==>ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3657	3821	
==>s
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3657	3821	
==>s
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3657	3821	
==>s
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2388	2484	
==>e;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2388	2484	
==>e;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2388	2484	
==>e;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3724	3837	
==>...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3908	4021	
==>...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8605	8700	
==>urn Blondie::TypeSafe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12896	13053	
==>( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12896	13053	
==>( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12896	13053	
==>( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1714	1867	
==>=>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1714	1867	
==>=>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1714	1867	
==>=>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22560	22736	
==>{max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10253	10339	
==>',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"u <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10988	11074	
==>',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4055	4244	
==>b {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4055	4244	
==>b {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4055	4244	
==>b {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13007	13119	
==>od ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13007	13119	
==>od ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13007	13119	
==>od ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$cl <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3487	3607	
==>ssert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1649	1745	
==>ackages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1649	1745	
==>ackages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3146	3246	
==>&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3146	3246	
==>&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3146	3246	
==>&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1097	1204	
==>} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1097	1204	
==>} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1097	1204	
==>} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4249	4386	
==>script">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4249	4386	
==>script">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4249	4386	
==>script">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21899	22074	
==>$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21899	22074	
==>$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21899	22074	
==>$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	480	579	
==>erp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5948	6086	
==>annot determine perl version info from $file\n";
        return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6560	6689	
==>_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6753	6882	
==>_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2261	2430	
==>$self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = shift;
                my $idx = shift;
                exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	329	437	
==>est>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	329	437	
==>est>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12290	12382	
==>ad2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12290	12382	
==>ad2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4839	4948	
==>s are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4839	4948	
==>s are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4839	4948	
==>s are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1378	1511	
==>lar>).add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).ad <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1583	1684	
==>ame"); # returns $value

    $self->leave_scope; # deletes pads since last enter_scope

=head1 DESCRIP <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4170	4259	
==>) --> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10553	10652	
==>terator will return undef when it has reached the end of the tree;
it will then reset itself, and wi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3740	3849	
==>(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16923	17022	
==>e says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16923	17022	
==>e says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5910	6009	
==>l use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chroma <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5910	6009	
==>l use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chroma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25766	25861	
==>they do not interact with the outside
environment at all.

A Relation::Example object has 2 main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22819	22912	
==>_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22819	22912	
==>_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22819	22912	
==>_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5730	5847	
==>m the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5730	5847	
==>m the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5730	5847	
==>m the list of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1865	1976	
==>substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1865	1976	
==>substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1865	1976	
==>substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	160	274	
==>use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	49	158	
==>use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	49	158	
==>use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2626	2748	
==>urces to '$builddir'" ), return;
#     }
# 
#     my $cwd = JIB::Utils->_chdir( dir => $builddir ) 
#         or error( "Co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39754	39851	
==>tware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39754	39851	
==>tware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public L <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35313	35411	
==>ll fail if any of its source Relations
have attributes in common; it will only accept inputs that w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39863	39961	
==>ll fail if any of its source Relations
have attributes in common; it will only accept inputs that w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39423	39521	
==>ll fail if any of its source Relations
have attributes in common; it will only accept inputs that w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32555	32648	
==>is multi-method is the N-ary version of the aforementioned binary union()
operator, and the or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37105	37198	
==>is multi-method is the N-ary version of the aforementioned binary union()
operator, and the or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36413	36506	
==>is multi-method is the N-ary version of the aforementioned binary union()
operator, and the or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14026	14129	
==>y $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14026	14129	
==>y $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14026	14129	
==>y $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2122	2255	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2122	2255	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2122	2255	
==>eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2138	2243	
==>le;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, mak <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2138	2243	
==>le;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, mak <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16138	16241	
==>anyway.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains pot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12325	12460	
==>$key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12325	12460	
==>$key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12325	12460	
==>$key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3910	4036	
==>param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3910	4036	
==>param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3910	4036	
==>param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3032	3197	
==>tcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3032	3197	
==>tcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3032	3197	
==>tcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1680	1789	
==>n "at $caller[1] line $caller[2]";
}

# DON'T use this for matches. Use like() instead.
sub ok ($@) {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9394	9499	
==>(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9452	9557	
==>(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3324	3439	
==>end}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3324	3439	
==>end}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3324	3439	
==>end}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13185	13358	
==>n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13179	13352	
==>n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16549	16651	
==>elf->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4664	4760	
==>< 1);
    ($operator, my $stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13106	13238	
==>0];
    # print "prefix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24903	25008	
==>);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported by Test::Harness b <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3836	3939	
==>le
=cut

sub matches {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $length = 1 if not def <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4456	4581	
==>any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7933	8058	
==>any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	330	440	
==>e];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1094	1211	
==>named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{require <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1094	1211	
==>named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{require <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1303	1420	
==>named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $param->{require <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5154	5330	
==>2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4995	5162	
==>2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1877	1980	
==>he optional parameters should be supplied by name.

Note that the above code is not robust.  (If you nee <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1333	1433	
==>wever)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1333	1433	
==>wever)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15180	15295	
==>Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15180	15295	
==>Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15180	15295	
==>Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6872	6968	
==>pe> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6872	6968	
==>pe> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5532	5640	
==>re_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) }, <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5532	5640	
==>re_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) }, <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1983	2075	
==>mpiling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\n";
    if (system("$Config{cc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4778	4917	
==>'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegated and (length $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4349	4462	
==>@key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4349	4462	
==>@key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6751	6910	
==>c() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6751	6910	
==>c() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14448	14636	
==>so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14448	14636	
==>so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14448	14636	
==>so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The . <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1789	1904	
==>arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self does <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1789	1904	
==>arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3749	3845	
==>sif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3749	3845	
==>sif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4339	4435	
==>sif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	863	978	
==>) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	863	978	
==>) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	863	978	
==>) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can( <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1591	1703	
==>* ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_even ( Num $x ) {
    my $x_round <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8327	8423	
==>st::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8385	8481	
==>st::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2460	2563	
==>rlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2460	2563	
==>rlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2460	2563	
==>rlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1090	1212	
==>atement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1090	1212	
==>atement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1090	1212	
==>atement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1701	1802	
==>lf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1701	1802	
==>lf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1701	1802	
==>lf, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2003	2123	
==>--------------------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34883	34976	
==>property (C<\p{NAME}>, C<\P{NAME}>); any Unicode property
defined by Perl or elsewhere

Neg: 1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16220	16307	
==>bling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16278	16365	
==>bling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1354	1439	
==>l::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1354	1439	
==>l::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1469	1572	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1469	1572	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1469	1572	
==>ALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6975	7094	
==>tup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6975	7094	
==>tup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6975	7094	
==>tup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VAR <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	274	420	
==>0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7625	7767	
==>using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new( <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7625	7767	
==>using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3824	3930	
==>as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nulla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3824	3930	
==>as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nulla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3824	3930	
==>as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nulla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2246	2357	
==>tics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $receive <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2246	2357	
==>tics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $receive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2326	2437	
==>tics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $receive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6669	6797	
==>ptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6669	6797	
==>ptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6669	6797	
==>ptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2476	2632	
==>::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2476	2632	
==>::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2476	2632	
==>::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6023	6162	
==>{
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6023	6162	
==>{
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6023	6162	
==>{
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	433	551	
==>this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	433	551	
==>this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	433	551	
==>this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	723	830	
==>ue/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	723	830	
==>ue/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3053	3242	
==>ROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3053	3242	
==>ROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3053	3242	
==>ROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2119	2236	
==>$*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	124	231	
==>$*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	124	231	
==>$*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	580	692	
==>LUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	580	692	
==>LUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	580	692	
==>LUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1605	1735	
==>Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1605	1735	
==>Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1605	1735	
==>Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num',' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5054	5208	
==>o    => \( $match->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime::Match::Ratchet';
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	572	664	
==>rator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varnam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	572	664	
==>rator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varnam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7521	7618	
==>`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containin <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7521	7618	
==>`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3805	3913	
==>oro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3805	3913	
==>oro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3805	3913	
==>oro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	124	218	
==>Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	124	218	
==>Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	124	218	
==>Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3385	3480	
==>- store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3385	3480	
==>- store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3385	3480	
==>- store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9686	9785	
==>each (@$args) {
	# In VMS protect with doublequotes because otherwise
	# DCL will lowercase -- unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	338	440	
==>structive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * function <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	338	440	
==>structive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * function <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	338	440	
==>structive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * function <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4513	4692	
==>$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4513	4692	
==>$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4513	4692	
==>$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19190	19302	
==>Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15611	15723	
==>Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1751	1852	
==>', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2141	2261	
==>warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2141	2261	
==>warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2141	2261	
==>warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless us <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3596	3730	
==>file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1954	2053	
==>npath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2] <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1954	2053	
==>npath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8376	8499	
==>normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8376	8499	
==>normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8376	8499	
==>normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown cl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2239	2358	
==>d}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2239	2358	
==>d}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2154	2250	
==>>analyze( $name, \@output_lines )

  my %results = $strap->analyze($name, \@test_output);

Analyz <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3837	4022	
==>equest_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method fres <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3837	4022	
==>equest_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method fres <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	995	1130	
==>KAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'looser',
        other => '*',
    );
    __PACK <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	119	260	
==>P::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submetho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	119	260	
==>P::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submetho <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14757	14852	
==>erse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more...
re_reverse(R,R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4799	4905	
==>($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4799	4905	
==>($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4799	4905	
==>($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8671	8796	
==>';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '... $iFoo is the fourth id');

# try to call the Class method <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21459	21553	
==>ibutes, though several attributes may store values of the same class;
every Relation tuple must <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26011	26105	
==>ibutes, though several attributes may store values of the same class;
every Relation tuple must <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1612	1727	
==>tomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw/Blondie::Unit Blondie::Node/;

    package Blondie <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5008	5118	
==>es.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5008	5118	
==>es.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1613	1722	
==>ethods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods->exists($label <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1472	1574	
==>space => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1472	1574	
==>space => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	760	865	
==>thods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	760	865	
==>thods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	760	865	
==>thods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6454	6652	
==>ub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6454	6652	
==>ub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6454	6652	
==>ub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Co <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5647	5756	
==>_object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Par <==
3	/Users/nnunley/pugs/util/addauthors.pl	1599	1706	
==>my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4933	5028	
==>None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=he <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4933	5028	
==>None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2996	3151	
==>%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2996	3151	
==>%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2996	3151	
==>%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2315	2451	
==>assoc => 'left',
        precedence => 'looser',
        other => '*',
        fixity => 'infix',
    } );
    $cat->add_op( {
        na <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12704	12797	
==>set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12704	12797	
==>set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	711	801	
==>air assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	711	801	
==>air assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	711	801	
==>air assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19068	19215	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19347	19494	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	86	183	
==>ct;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	86	183	
==>ct;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	86	183	
==>ct;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	502	628	
==>def,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	502	628	
==>def,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	502	628	
==>def,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	150	554	
==>0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator- <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	150	554	
==>0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22586	22683	
==>ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10198	10346	
==>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10198	10346	
==>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10198	10346	
==>new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1453	1562	
==>tegory   { die "not implemented" };

sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20604	20695	
==>ir connect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1862	1985	
==>rite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1862	1985	
==>rite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1862	1985	
==>rite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Pac <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	324	422	
==>nd_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	324	422	
==>nd_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7595	7684	
==>LES
## ----------------------------------------------------------------------------

## NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7595	7684	
==>LES
## ----------------------------------------------------------------------------

## NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7595	7684	
==>LES
## ----------------------------------------------------------------------------

## NO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	294	392	
==>) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	294	392	
==>) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	294	392	
==>) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2799	2904	
==>tval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2799	2904	
==>tval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2799	2904	
==>tval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19485	19607	
==>pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end:
    .return (se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2488	2590	
==>ined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2488	2590	
==>ined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2488	2590	
==>ined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3250	3370	
==>_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3250	3370	
==>_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3250	3370	
==>_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38773	38891	
==>y $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38773	38891	
==>y $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38773	38891	
==>y $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7280	7386	
==>expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7280	7386	
==>expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7280	7386	
==>expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6484	6574	
==>L2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWitho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6484	6574	
==>L2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWitho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6484	6574	
==>L2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWitho <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5255	5379	
==>eyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5255	5379	
==>eyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1566	1691	
==>i sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1566	1691	
==>i sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1566	1691	
==>i sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $arra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	404	569	
==>t_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	404	569	
==>t_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1075	1199	
==>:EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1075	1199	
==>:EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1075	1199	
==>:EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2107	2209	
==>P-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2107	2209	
==>P-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	17	107	
==>n::OnPerl5::X1::Repl;
use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Pe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4296	4393	
==>ceivied and expected lines from the previously run tests,
passing if both the diagnostics and outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4296	4393	
==>ceivied and expected lines from the previously run tests,
passing if both the diagnostics and outp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4376	4473	
==>ceivied and expected lines from the previously run tests,
passing if both the diagnostics and outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20334	20433	
==>ing the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20334	20433	
==>ing the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1468	1588	
==>ne_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1468	1588	
==>ne_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1004	1118	
==>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1004	1118	
==>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1004	1118	
==>fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4148	4261	
==>ject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4148	4261	
==>ject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4148	4261	
==>ject Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10755	10849	
==>, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10755	10849	
==>, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20829	20920	
==>ect of type 'OBJ':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6608	6718	
==>callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6608	6718	
==>callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6608	6718	
==>callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	134	235	
==>de  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@di <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	134	235	
==>de  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@di <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1359	1460	
==>E::Exp::Group");
    $optable->addToken("circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3182	3324	
==>if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3182	3324	
==>if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3182	3324	
==>if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	203	343	
==>r
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	203	343	
==>r
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5243	5372	
==>s %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5243	5372	
==>s %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5833	5962	
==>s %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	428	547	
==>cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$po <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2425	2524	
==>$tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2425	2524	
==>$tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) ret <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5908	6029	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5908	6029	
==>rt {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6948	7054	
==>to destroy all possible bindings
            # user code has to @array[$off+$i], see t/operators/binding/ar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5615	5718	
==>end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5615	5718	
==>end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21608	21705	
==>instead which are
more appropriate to the context in which they are using your package.  One
can o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21608	21705	
==>instead which are
more appropriate to the context in which they are using your package.  One
can o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5128	5215	
==>ax)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17819	17945	
==>ser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bles <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	293	384	
==>compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	293	384	
==>compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*bloc <==
3	/Users/nnunley/pugs/util/package-osx.pl	3784	3881	
==>3pm
        /usr/local/man/man3/Perl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9488	9581	
==>te, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or expor <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9488	9581	
==>te, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	684	962	
==>es, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	684	962	
==>es, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	684	962	
==>es, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4521	4610	
==>>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4521	4610	
==>>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4521	4610	
==>>expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26998	27152	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27277	27431	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5653	5755	
==>ser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $lhs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	606	714	
==>t think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	606	714	
==>t think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	606	714	
==>t think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13899	14054	
==>arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13899	14054	
==>arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13899	14054	
==>arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15051	15177	
==>($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15051	15177	
==>($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15051	15177	
==>($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3493	3601	
==>)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1614	1711	
==>ode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1614	1711	
==>ode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	852	953	
==>atch = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->match($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13634	13729	
==>re returned in the recommended "Good Practice" order.

In scalar context return the number of di <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13634	13729	
==>re returned in the recommended "Good Practice" order.

In scalar context return the number of di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4712	4867	
==>}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4712	4867	
==>}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4712	4867	
==>}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9770	9911	
==>_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9770	9911	
==>_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9770	9911	
==>_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splic <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5935	6055	
==>s from highest to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_ver <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35148	35243	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35148	35243	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22989	23130	
==>class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26694	26835	
==>class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42592	42733	
==>class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31494	31701	
==>$i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31494	31701	
==>$i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31494	31701	
==>$i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, s <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	338	448	
==>wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    f <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	338	448	
==>wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23629	23727	
==>e.

See also the bundled L<Relation::Example>, which provides a minimal in-RAM
storage implementati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9543	9670	
==>if(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fina <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9543	9670	
==>if(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fina <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9543	9670	
==>if(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fina <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2247	2339	
==>od graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2247	2339	
==>od graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2247	2339	
==>od graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1739	1843	
==>Script...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1739	1843	
==>Script...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1739	1843	
==>Script...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Err <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1031	1164	
==>le
    my $archive = $path . $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( q <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6120	6231	
==>$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6510	6621	
==>$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6971	7079	
==>um";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6971	7079	
==>um";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	146	238	
==>Comments (if it matches the supplied regex) or
no Smart::Comments before every fully qualifie <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1875	2068	
==>azy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1875	2068	
==>azy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	201	304	
==>6
# parser, for p5.

# It's a backtracking, recursive-decent engine, generated from the
# regexp ast nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2141	2269	
==>erhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supporte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2141	2269	
==>erhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supporte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2141	2269	
==>erhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supporte <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4588	4745	
==>{
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when r <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4588	4745	
==>{
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1853	1981	
==>s);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g;
    $q =~ s/'/\\' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18688	18807	
==>x1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18688	18807	
==>x1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18688	18807	
==>x1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1262	1388	
==>e => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1467	1593	
==>e => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4689	4777	
==>t {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_R <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12271	12390	
==>0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $nan },
      re <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11598	11697	
==>good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11598	11697	
==>good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2144	2274	
==>r) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fals <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2144	2274	
==>r) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::Fals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2292	2414	
==>s &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2292	2414	
==>s &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2292	2414	
==>s &b should
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7335	7441	
==>xtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7335	7441	
==>xtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7335	7441	
==>xtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	4	118	
==>nction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	4	118	
==>nction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	4	118	
==>nction.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2315	2409	
==>nks resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Ba <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2315	2409	
==>nks resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Ba <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4948	5087	
==>i = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4114	4219	
==>load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      la <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3969	4072	
==>load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      la <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8060	8154	
==>setta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8060	8154	
==>setta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'n <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	531	623	
==>dextests) returns List of Object|Object
multi sub pairs  (@array ; Any|Junction *@indextests) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18109	18204	
==>you've
specified in the constructor. If the nickname is already used, this module
will try to us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18109	18204	
==>you've
specified in the constructor. If the nickname is already used, this module
will try to us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4003	4152	
==>) },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4003	4152	
==>) },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4003	4152	
==>) },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7341	7466	
==>ighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7341	7466	
==>ighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7341	7466	
==>ighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3450	3567	
==>'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
print &Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31605	31702	
==>e or False regardless of its
argument, in which case the new Relation has either all of the tuples <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36155	36252	
==>e or False regardless of its
argument, in which case the new Relation has either all of the tuples <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	210	314	
==>rl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline: <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	210	314	
==>rl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10802	10905	
==>or to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information abou <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10802	10905	
==>or to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information abou <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3262	3360	
==>ts Unit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a number or a string <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9998	10095	
==>self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gathe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9998	10095	
==>self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gathe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3452	3584	
==>e {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3452	3584	
==>e {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3452	3584	
==>e {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11363	11529	
==>'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11363	11529	
==>'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18809	18911	
==>e AssignmentExpressionNoIn :words {  # see 11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15611	15713	
==>) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15611	15713	
==>) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15611	15713	
==>) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3734	3848	
==>m, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $mat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1123	1221	
==>essed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

20 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1123	1221	
==>essed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

20 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34336	34429	
==>::KeyedText::Translator object.
The Set Names property of the new object is set from the named <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34336	34429	
==>::KeyedText::Translator object.
The Set Names property of the new object is set from the named <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1120	1258	
==>le take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10582	10680	
==>! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (S <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10582	10680	
==>! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3146	3296	
==>0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3146	3296	
==>0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9086	9207	
==>P6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9086	9207	
==>P6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9086	9207	
==>P6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
M <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	838	956	
==>LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPT <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	739	857	
==>LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPT <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1219	1315	
==>CK => --$ENUM, 'Unmatched [';
use constant RPe_EQUANT => --$ENUM, 'Quantifier follows nothing';
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18425	18521	
==>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18425	18521	
==>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18425	18521	
==>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4531	4700	
==>)->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4531	4700	
==>)->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4531	4700	
==>)->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3017	3119	
==>e /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3017	3119	
==>e /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	69	177	
==>s;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	69	177	
==>s;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	69	177	
==>s;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13093	13198	
==>$_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13093	13198	
==>$_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13093	13198	
==>$_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29235	29350	
==>ey};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29235	29350	
==>ey};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32051	32143	
==>returns block {
    $self._make_dispatcher_iterator(@:MRO.reverse);
}

=cut

$::Class->send(' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2151	2254	
==>}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( */

#define <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12912	13010	
==>n iterating through the span range, the unit is added to the current value to get the next value.
T <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12912	13010	
==>n iterating through the span range, the unit is added to the current value to get the next value.
T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4673	4780	
==>ions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4673	4780	
==>ions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4673	4780	
==>ions (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  - <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6805	6916	
==>ke "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $cont <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6863	6974	
==>ke "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $cont <==
3	/Users/nnunley/pugs/util/package-osx.pl	2628	2739	
==>/p6doc /usr/local/bin/p6doc
        /usr/local/usr/bin/pugs /usr/local/bin/pugs
        /usr/local/usr/bin/pugsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	214	314	
==>dded roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These func <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	214	314	
==>dded roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These func <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	214	314	
==>dded roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These func <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4417	4516	
==>elong to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4417	4516	
==>elong to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1008	1099	
==>ETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1008	1099	
==>ETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1008	1099	
==>ETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	998	1104	
==>turns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns Ob <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	998	1104	
==>turns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8881	8989	
==>rintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8881	8989	
==>rintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8881	8989	
==>rintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4	112	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4	112	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4	112	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7512	7642	
==>*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4328	4418	
==>ct->name, 'Object', '... $Object got the right method return value');
is($Object->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6230	6320	
==>ct->name, 'Object', '... $Object got the right method return value');
is($Object->superclas <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25912	26005	
==>ENVIRONMENT

=over 4

=item C<HARNESS_ACTIVE>

Harness sets this before executing the individu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5931	6064	
==>, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5931	6064	
==>, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5931	6064	
==>, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5800	5923	
==>ontent);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_files(package => $pkg)

Returns a list of all index_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3842	3943	
==>2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3842	3943	
==>2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14479	14581	
==>0000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14479	14581	
==>0000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5833	5929	
==>t_meta('Pair')->new('$.key' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	89	226	
==>Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	89	226	
==>Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	89	226	
==>Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19455	19554	
==>ble.

The intended interface and use of this class in Perl programs is similar to
the intended use o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24007	24106	
==>ble.

The intended interface and use of this class in Perl programs is similar to
the intended use o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22523	22622	
==>ble.

The intended interface and use of this class in Perl programs is similar to
the intended use o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	25	118	
==>unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	25	118	
==>unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	25	118	
==>unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1571	1692	
==>t_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1571	1692	
==>t_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1651	1772	
==>t_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2576	2932	
==>um'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2612	2739	
==>t need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2612	2739	
==>t need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3863	3992	
==>F->$status_sub();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuilder <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1052	1156	
==>age MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1052	1156	
==>age MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6047	6149	
==>set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6047	6149	
==>set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6047	6149	
==>set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1590	1731	
==>as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1590	1731	
==>as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1590	1731	
==>as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= << <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	260	391	
==>sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$minute, Int|Real ?$second,
                   Str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7088	7189	
==>Overload 

runtime. 



- internal rule operators



Internal rule operators share a common API, which <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6848	6944	
==>Overload 
runtime. 

- internal rule operators

Internal rule operators share a common API, which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5204	5326	
==>ny(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5204	5326	
==>ny(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5204	5326	
==>ny(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7781	7928	
==>>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7781	7928	
==>>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7781	7928	
==>>new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arg <==
3	/Users/nnunley/pugs/util/func_refact.pl	2374	2528	
==>and};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5740	5855	
==>hash ref summary of all the tests
run.  Its keys and values are this:

    bonus           Number of individual todo <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2614	2718	
==>e to use the regexp
struct as a new api into the guts of the perl core.  There being no
documentation, on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2033	2139	
==>Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2033	2139	
==>Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2033	2139	
==>Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8550	8656	
==>->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8550	8656	
==>->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8550	8656	
==>->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1688	1804	
==><for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1688	1804	
==><for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1688	1804	
==><for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5468	5574	
==>Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5468	5574	
==>Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5468	5574	
==>Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6122	6254	
==>rray};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6122	6254	
==>rray};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6122	6254	
==>rray};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	864	986	
==>perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	864	986	
==>perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	864	986	
==>perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6020	6175	
==>t be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6020	6175	
==>t be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6020	6175	
==>t be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SE <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	189	282	
==>rns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	189	282	
==>rns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1465	1573	
==>perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not ye <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1465	1573	
==>perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not ye <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1465	1573	
==>perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	58	173	
==>v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	58	173	
==>v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	58	173	
==>v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3421	3523	
==>List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3421	3523	
==>List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3421	3523	
==>List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - spl <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12319	12444	
==>t $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	945	1050	
==>llback);
  my $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$npar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7962	8048	
==>oo->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_object' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1314	1413	
==>eturn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1314	1413	
==>eturn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

metho <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18739	18966	
==>ntent is inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a norma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8515	8616	
==>- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8515	8616	
==>- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( span <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4209	4317	
==>elf.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4209	4317	
==>elf.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4209	4317	
==>elf.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7831	8068	
==>t =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7831	8068	
==>t =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7831	8068	
==>t =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2553	2696	
==>p>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2553	2696	
==>p>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2553	2696	
==>p>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1138	1245	
==>is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1138	1245	
==>is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1138	1245	
==>is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<pos <==
3	/Users/nnunley/pugs/util/addauthors.pl	1151	1303	
==>= $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcoun <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3109	3215	
==>x type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3109	3215	
==>x type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1935	2028	
==>rintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1935	2028	
==>rintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1935	2028	
==>rintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15312	15415	
==>..};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15312	15415	
==>..};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15312	15415	
==>..};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	556	666	
==>ge PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	556	666	
==>ge PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	556	666	
==>ge PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4227	4356	
==>h embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4227	4356	
==>h embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16918	17062	
==>w< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13339	13483	
==>w< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	177	275	
==>implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16176	16272	
==>not spend much time in providing rationales; you can read TTM itself and
various other external d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16176	16272	
==>not spend much time in providing rationales; you can read TTM itself and
various other external d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25006	25100	
==>he r.e. contains something
 * potentially expensive (at present, the only such thing detected i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21835	21926	
==>nect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21835	21926	
==>nect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21835	21926	
==>nect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18192	18286	
==>o_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18192	18286	
==>o_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18192	18286	
==>o_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17849	17960	
==>pi;\n";
    $code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	295	403	
==>check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	246	343	
==>check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Con <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2691	2896	
==>on$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2691	2896	
==>on$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2761	2856	
==>main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2761	2856	
==>main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sor <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8138	8237	
==>1.  In the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6053	6150	
==>gs to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6053	6150	
==>gs to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) ret <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2218	2312	
==>rtions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2218	2312	
==>rtions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypt <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1760	2014	
==>ist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_- <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	341	448	
==>defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $strin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	341	448	
==>defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40091	40193	
==>6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40091	40193	
==>6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40091	40193	
==>6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5377	5514	
==>ail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5208	5338	
==>ail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16631	16733	
==>offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies them.

  struct r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13976	14067	
==>ed = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13976	14067	
==>ed = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7114	7210	
==>supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7114	7210	
==>supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1198	1303	
==>,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1198	1303	
==>,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1198	1303	
==>,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14016	14165	
==>ry' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1857	1960	
==>_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  m <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	853	956	
==>_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4123	4218	
==>g($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4123	4218	
==>g($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7239	7371	
==>but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7239	7371	
==>but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7239	7371	
==>but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17333	17452	
==>bject);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17333	17452	
==>bject);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17333	17452	
==>bject);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6722	6842	
==>for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6722	6842	
==>for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2868	2991	
==>put => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2868	2991	
==>put => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4392	4515	
==>put => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $ex <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3868	3977	
==>s @.args;
    method new (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    metho <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18681	18812	
==>uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc Pug <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14995	15095	
==>);
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14995	15095	
==>);
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the progr <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2105	2227	
==>ent everywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4303	4410	
==>is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fal <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4303	4410	
==>is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fal <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	6	120	
==>6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	6	120	
==>6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6405	6521	
==>aque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6405	6521	
==>aque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6405	6521	
==>aque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1397	1513	
==>ports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1397	1513	
==>ports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1397	1513	
==>ports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12551	12658	
==>n array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12551	12658	
==>n array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12551	12658	
==>n array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15500	15616	
==>ift;
    my $thunk = shift;

    $self->enter_scope;
    my $node = Thunk->new($self->reduce($thunk->val));
    $self <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	397	501	
==>use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TA <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	397	501	
==>use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TA <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4078	4218	
==>to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4078	4218	
==>to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2274	2379	
==>ethod fails, they fall back
on something more likely to work.

Further, the above method always uses a sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2137	2274	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2137	2274	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2137	2274	
==>e')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3680	3779	
==>2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3680	3779	
==>2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2957	3063	
==>ar block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2957	3063	
==>ar block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2957	3063	
==>ar block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24387	24503	
==>0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24387	24503	
==>0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24387	24503	
==>0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2529	2620	
==>$<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2529	2620	
==>$<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	137	252	
==>r::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	137	252	
==>r::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	137	252	
==>r::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6504	6644	
==>kpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6297	6429	
==>kpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17171	17283	
==>=back

=head1 HISTORY

=head2 0.022b -- July 6, 2004

=over 4

=item Hierarchy Changes

There are now abstract cl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20387	20495	
==>: avoided $file";
    undef;
  }
  else {
    my $cmd = %?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41700	41795	
==>its arguments is not significant to the result;
the new Relation::Example is the result of combi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7826	7941	
==>ch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7826	7941	
==>ch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7826	7941	
==>ch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2822	2915	
==>ion> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2822	2915	
==>ion> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	514	620	
==>t pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	514	620	
==>t pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	514	620	
==>t pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	324	421	
==>fication ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	324	421	
==>fication ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	324	421	
==>fication ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4336	4443	
==>$self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4336	4443	
==>$self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	687	798	
==>->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	687	798	
==>->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	687	798	
==>->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->v <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5355	5468	
==>= "$e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2910	3005	
==>"honours the spirit of the
dialect", if the original form is not available or has been discarded <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2910	3005	
==>"honours the spirit of the
dialect", if the original form is not available or has been discarded <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8076	8214	
==>733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8076	8214	
==>733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => <==
3	/Users/nnunley/pugs/misc/S29_round.pl	577	689	
==>&& ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = sign($x) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	213	358	
==>license
    distribution_type perl_version tests
};

my @tuple_keys = qw{
    build_requires requires recommends bundles
};

sub Meta            { <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1452	1545	
==>s::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_com <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1372	1461	
==>s::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5598	5723	
==>iable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5820	5945	
==>iable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ", <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3050	3141	
==>>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9231	9399	
==>1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9231	9399	
==>1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9231	9399	
==>1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5176	5275	
==>onal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5176	5275	
==>onal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7373	7472	
==>onal).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	868	985	
==>} generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	868	985	
==>} generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	868	985	
==>} generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TO <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2809	2913	
==>duce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base compiler for B <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	362	463	
==>k.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	362	463	
==>k.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1741	1864	
==>OAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13749	13868	
==> ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13749	13868	
==> ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2282	2391	
==>ders.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2282	2391	
==>ders.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

me <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	906	1008	
==>f ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($line ~~ r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1378	1481	
==>oncatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Cod <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1378	1481	
==>oncatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	398	497	
==>pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	398	497	
==>pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	398	497	
==>pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is prim <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1247	1340	
==>SCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1247	1340	
==>SCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12905	13015	
==>from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12905	13015	
==>from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12905	13015	
==>from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->ad <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16630	16752	
==>param int has_name        :opt_flag
    .local pmc exp
    .local pmc newfrom
    .local pmc code
    .local pmc sub
    .l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33230	33389	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33230	33389	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33230	33389	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2080	2176	
==>match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_contro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2080	2176	
==>match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_contro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2513	2649	
==>capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2418	2547	
==>capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21912	22005	
==>lass_member(class_neg(ascii)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print)     , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5018	5127	
==>ture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5240	5349	
==>ture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37292	37381	
==>lasses'      => 'list')));
$::Class->send('add_attribute', (symbol->new('%:private_methods <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2848	3180	
==>m('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1115	1257	
==>e {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1115	1257	
==>e {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5860	6055	
==>[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5860	6055	
==>[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5860	6055	
==>[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17164	17290	
==>}
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17164	17290	
==>}
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17164	17290	
==>}
        };
        $traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DEST <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6304	6426	
==>return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method ref <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6304	6426	
==>return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method ref <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2049	2155	
==>s -e $file;
    }

    $self->version_from($file)      unless $self->version;
    $self->perl_version_from( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10293	10427	
==>rt (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10293	10427	
==>rt (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10293	10427	
==>rt (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19207	19325	
==>{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # ) for non-captures <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1232	1330	
==>yptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1232	1330	
==>yptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4124	4301	
==>) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( "Could not load available file: $@" ), return;
            $obj->available( \@a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22987	23077	
==>somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22987	23077	
==>somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31473	31652	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31473	31652	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31473	31652	
==>. $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2065	2174	
==>ntains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2065	2174	
==>ntains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2065	2174	
==>ntains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9250	9404	
==>$z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9250	9404	
==>$z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9250	9404	
==>$z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17490	17610	
==>= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	954	1180	
==>d    => 1,
                store       => \$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                store => \$po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	239	408	
==>::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	239	408	
==>::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6268	6406	
==>|
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() } <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	911	1018	
==>unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_a <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	911	1018	
==>unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15649	15743	
==>'> <ShiftExpression>
    | <RelationalExpression> <'>='> <ShiftExpression>
    | <RelationalExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7920	8070	
==>umify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7920	8070	
==>umify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7920	8070	
==>umify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	218	346	
==>Y    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	218	346	
==>Y    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	218	346	
==>Y    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1050	1188	
==>ubstr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1050	1188	
==>ubstr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1050	1188	
==>ubstr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10148	10266	
==>" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10148	10266	
==>" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10148	10266	
==>" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34349	34463	
==>atten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34349	34463	
==>atten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34349	34463	
==>atten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28486	28592	
==>combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its values
the set o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33038	33144	
==>combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its values
the set o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32166	32272	
==>combined/wrapped, with
its keys being the new tuple-valued attribute names and each of its values
the set o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10770	10889	
==>ECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10770	10889	
==>ECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10770	10889	
==>ECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2280	2381	
==>ispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2280	2381	
==>ispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2280	2381	
==>ispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3327	3465	
==>th ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3327	3465	
==>th ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $pat <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2555	2650	
==>rivilegies.

Note: The only option you'll have to specify is probably --initrd-mnt.

Note: I onl <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1204	1317	
==>$perl_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1013	1110	
==>y method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count() <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1013	1110	
==>y method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count() <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	371	475	
==></body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	371	475	
==></body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26066	26168	
==>->stringify, "∀α. list α → α", "pretty print list a -> a");
}
{
	my $a = type::variable::free->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9850	10013	
==>ion,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1929	2070	
==>ion,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1929	2070	
==>ion,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24965	25064	
==>e Class

A Message object is a simple container which stores data to be used or
displayed by your pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24965	25064	
==>e Class

A Message object is a simple container which stores data to be used or
displayed by your pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6069	6191	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6069	6191	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6069	6191	
==>ELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$clas <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1136	1245	
==>ol $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1136	1245	
==>ol $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38912	39008	
==>le and that match any tuples of C<$other> along
their common attributes.  This method will fail i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3286	3387	
==>_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3286	3387	
==>_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3286	3387	
==>_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2310	2425	
==>nc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2310	2425	
==>nc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10499	10613	
==>efined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10499	10613	
==>efined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9452	9553	
==>e($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9452	9553	
==>e($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9452	9553	
==>e($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3629	3773	
==>ance_class(shift) if $_[0] == $Class;
            return ::opaque_instance_class(shift)->superclass;
        },                       
        'c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6030	6130	
==>match;
  bsr_token_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat} <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12761	12854	
==>r to create, and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It ma <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12463	12559	
==>ies|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests tha <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12463	12559	
==>ies|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests tha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16629	16720	
==>retical
exercise, a jump-start to built-in reversing capability in Perl.

=item Regexp::Char <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5532	5628	
==>lt), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5532	5628	
==>lt), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7056	7152	
==>lt), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5581	5686	
==>hem.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5581	5686	
==>hem.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7105	7210	
==>hem.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1699	1807	
==>ere so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1904	2012	
==>ere so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1967	2075	
==>ere so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return : <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7569	7693	
==>ath !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7569	7693	
==>ath !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	915	1088	
==>T',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	915	1088	
==>T',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6870	6968	
==>ta($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2407	2516	
==>(can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2407	2516	
==>(can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2407	2516	
==>(can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5434	5608	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5434	5608	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5434	5608	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	789	936	
==>)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	789	936	
==>)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	789	936	
==>)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2642	2752	
==>.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2642	2752	
==>.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2642	2752	
==>.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13057	13191	
==>= $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13057	13191	
==>= $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13057	13191	
==>= $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6784	6881	
==>+ 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6784	6881	
==>+ 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6784	6881	
==>+ 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2375	2482	
==>hod quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () retu <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2375	2482	
==>hod quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5973	6076	
==>nt<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5973	6076	
==>nt<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for % <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5427	5641	
==>$?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5427	5641	
==>$?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13316	13432	
==>the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_perso <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13316	13432	
==>the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_perso <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6302	6406	
==>e::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6113	6282	
==>ub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6113	6282	
==>ub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6113	6282	
==>ub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4002	4094	
==>throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4002	4094	
==>throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4002	4094	
==>throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14540	14658	
==>sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14540	14658	
==>sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possi <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3587	3703	
==>.*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE "$preamble$makefile$postamble";
    cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3328	3429	
==>rn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3328	3429	
==>rn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3328	3429	
==>rn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4259	4368	
==>is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4259	4368	
==>is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3315	3452	
==>ereq->{$file};
        }
    }

    if ( my $perl_version = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17615	17712	
==>head2 How It Works

Modern programs or database systems often refer to an error condition by an
in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17615	17712	
==>head2 How It Works

Modern programs or database systems often refer to an error condition by an
in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5626	5748	
==>}
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5626	5748	
==>}
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5626	5748	
==>}
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_ <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	273	381	
==>_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$cou <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	273	381	
==>_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$cou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24417	24514	
==>export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28969	29066	
==>export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14968	15063	
==>e names are merely the author's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3873	3973	
==>NSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing ze <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3873	3973	
==>NSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing ze <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1408	1507	
==>t();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1408	1507	
==>t();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1408	1507	
==>t();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	670	786	
==>}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	670	786	
==>}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	670	786	
==>}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8691	8812	
==>AL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8691	8812	
==>AL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8691	8812	
==>AL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15981	16102	
==>}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15981	16102	
==>}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15981	16102	
==>}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2157	2292	
==>sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2157	2292	
==>sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2157	2292	
==>sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	256	370	
==>Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	256	370	
==>Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	256	370	
==>Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7942	8101	
==>s>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5078	5170	
==>ed_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5078	5170	
==>ed_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	494	597	
==>-- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	494	597	
==>-- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	494	597	
==>-- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5182	5271	
==>lete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5182	5271	
==>lete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$ch <==
3	/Users/nnunley/pugs/util/grokprims.pl	744	832	
==>assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF-8" ?> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1369	1467	
==>f.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1369	1467	
==>f.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1369	1467	
==>f.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	986	1119	
==>ap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    conca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	986	1119	
==>ap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    conca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5155	5259	
==>e (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8121	8228	
==>re form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8121	8228	
==>re form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8121	8228	
==>re form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2324	2454	
==>eturn ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2529	2659	
==>eturn ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3320	3450	
==>eturn ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	667	782	
==>lue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	667	782	
==>lue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	667	782	
==>lue);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4779	4888	
==>jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4779	4888	
==>jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4779	4888	
==>jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7286	7392	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10763	10869	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9900	10006	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1890	2001	
==>precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2107	2218	
==>precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "ca <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4932	5021	
==>thing(\@tokens,1,@_) }
sub def_whitespace { def_thing(\@whitespaces,1,@_) }
sub def_statem <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10361	10476	
==>$S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc po <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2121	2231	
==>my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2121	2231	
==>my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1246	1370	
==>// HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1246	1370	
==>// HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./he <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13662	13760	
==>w'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExpressi <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	783	948	
==>r, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.resu <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	783	948	
==>r, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.resu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21306	21414	
==>CONFIG<file_sep>,split("::",$module)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9132	9287	
==>$tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_undef()" }
NODE VBool ($value) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
N <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13252	13357	
==>:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13252	13357	
==>:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), star <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9780	9916	
==>ad, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6121	6257	
==>ad, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6970	7106	
==>ad, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9790	9913	
==>-----    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9790	9913	
==>-----    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9790	9913	
==>-----    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation de <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5207	5381	
==>urns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation::Example $other!) returns <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3180	3301	
==>P::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MySer <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3180	3301	
==>P::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MySer <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8150	8260	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_inters <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11627	11737	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_inters <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10809	10919	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_inters <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5950	6062	
==>_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5950	6062	
==>_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21922	22012	
==>cument describes Relation::Example version 0.1.0.

It also describes the same-number versio <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5683	5777	
==>evan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<htt <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5683	5777	
==>evan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<htt <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	196	298	
==>to do the
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11420	11511	
==>s:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Clien <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11420	11511	
==>s:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Clien <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6780	6904	
==>'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6780	6904	
==>'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16630	16741	
==>eturn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# buil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16630	16741	
==>eturn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# buil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16630	16741	
==>eturn str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5235	5340	
==>ND)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folde <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5235	5340	
==>ND)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folde <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4012	4104	
==>::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4012	4104	
==>::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6209	6301	
==>::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting the pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6196	6341	
==>tub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6196	6341	
==>tub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6196	6341	
==>tub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2670	2781	
==>];
$config{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$confi <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3415	3507	
==>~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4551	4643	
==>~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	726	827	
==>(compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a Blondi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31478	31575	
==>ent. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36028	36125	
==>ent. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1103	1212	
==>Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1103	1212	
==>Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19908	20001	
==>ing_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	630	722	
==>ormation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 enciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	630	722	
==>ormation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 enciph <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	915	1005	
==>et the format specified on the command line
	$dumper = $format{$Pugs::Utils::Interface::for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2573	2728	
==>ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2573	2728	
==>ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2573	2728	
==>ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	364	475	
==>keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returni <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	364	475	
==>keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returni <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	364	475	
==>keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1294	1405	
==>ion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1294	1405	
==>ion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1294	1405	
==>ion.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (tempo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2859	3026	
==>el}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{labe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2859	3026	
==>el}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{labe <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9992	10106	
==>are
    automatically generated and show how much a given backend (normal
    Haskell runcore, <a
    href="http:// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	366	457	
==>ect;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	366	457	
==>ect;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	366	457	
==>ect;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
requir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39256	39346	
==>ine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39256	39346	
==>ine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pen <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9189	9326	
==>ile);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	632	895	
==>_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	632	895	
==>_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	632	895	
==>_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove dupl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2695	2840	
==>rt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35712	35805	
==>l operator that takes a single
Relation::Example in its C<$other> argument, where <$other> has <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37744	37837	
==>l operator that takes a single Relation::Example
in its C<$other> argument, where <$other> has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4684	4799	
==>e_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4684	4799	
==>e_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4684	4799	
==>e_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3704	3810	
==>class, @values) = @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You must store a symbol ty <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	488	588	
==>atch = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	694	794	
==>atch = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7735	7873	
==>.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7735	7873	
==>.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7735	7873	
==>.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1849	1951	
==>$full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1849	1951	
==>$full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1849	1951	
==>$full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6677	6802	
==>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6677	6802	
==>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6677	6802	
==>new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11296	11427	
==>my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_crea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11296	11427	
==>my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_crea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11296	11427	
==>my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_crea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4718	4845	
==>x'; { $base = 16; goto term_bx0; }
    elsif ( $initchar eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4472	4594	
==>s => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4472	4594	
==>s => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4472	4594	
==>s => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8358	8491	
==>re' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8358	8491	
==>re' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8358	8491	
==>re' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	697	799	
==>08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x L <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	697	799	
==>08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x L <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	697	799	
==>08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x L <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5524	5673	
==>s for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5988	6137	
==>s for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2888	3002	
==>mport"};
    }

    *{"${who}::AUTOLOAD"} = $self->autoload;
    $self->preload;

    # Unregister loader and worke <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	189	300	
==>hat day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

m <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	189	300	
==>hat day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21994	22092	
==>with zero tuples or
one tuple respectively have a special meaning in relational algebra which
is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26546	26644	
==>with zero tuples or
one tuple respectively have a special meaning in relational algebra which
is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25242	25340	
==>with zero tuples or
one tuple respectively have a special meaning in relational algebra which
is an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1142	1252	
==>Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1142	1252	
==>Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1142	1252	
==>Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2223	2349	
==>||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "tru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2223	2349	
==>||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "tru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2223	2349	
==>||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "tru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7933	8061	
==>me) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7933	8061	
==>me) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7933	8061	
==>me) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12513	12622	
==>t' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12513	12622	
==>t' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12513	12622	
==>t' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11069	11171	
==>hering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11069	11171	
==>hering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciph <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14197	14296	
==>e($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::varia <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	20	119	
==>nInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	20	119	
==>nInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1184	1269	
==>r::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1184	1269	
==>r::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6973	7085	
==>e is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6973	7085	
==>e is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6973	7085	
==>e is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	739	860	
==>pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	739	860	
==>pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	739	860	
==>pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7790	7927	
==>h( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7790	7927	
==>h( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7790	7927	
==>h( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17748	17902	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18027	18181	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	602	696	
==>m the entire perl5 source.

# The exploratory effort was abandoned as insufficiently tractable. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2652	2748	
==>oesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2652	2748	
==>oesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2652	2748	
==>oesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19171	19289	
==>se {
                die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19904	19999	
==>er name and the password.  In scalar context it will
return I<"uname:password"> as a single stri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19904	19999	
==>er name and the password.  In scalar context it will
return I<"uname:password"> as a single stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1110	1210	
==>r(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1110	1210	
==>r(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1110	1210	
==>r(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24926	25049	
==>2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21347	21470	
==>2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n i <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	2	111	
==>der x Operator
# x Wiederholt in Perl weiterhin Strings:
$a = "a" x 3  # "aaa"

#=der xx Operator
# neu in Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12831	12941	
==>ods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12831	12941	
==>ods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12831	12941	
==>ods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitives <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2166	2289	
==>es not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (bless <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1243	1356	
==>.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1243	1356	
==>.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	152	253	
==>p to".

It passes most (95%) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverage is mu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30780	30882	
==>me.  The Set Name comes first and makes up most of the module name; it
must be the same for every modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30780	30882	
==>me.  The Set Name comes first and makes up most of the module name; it
must be the same for every modul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3104	3205	
==>sif($stage eq 'pil_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16701	16847	
==>)<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16980	17126	
==>)<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	250	378	
==>ght / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left   'infix:<times>' '/'
%left   NEG
%ri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1739	1889	
==>)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, userna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1739	1889	
==>)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, userna <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1272	1361	
==>@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6588	6693	
==>);

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually contain getters for $() and <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6369	6469	
==>);
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually contain getters for $() and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9023	9136	
==>$xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9023	9136	
==>$xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9023	9136	
==>$xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6147	6266	
==>PPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6147	6266	
==>PPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6147	6266	
==>PPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from super <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	895	999	
==>decode($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Path/$SID", :w) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2563	2681	
==>his sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_reg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1175	1293	
==>his sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_reg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1876	1994	
==>his sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_reg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15096	15221	
==>{
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub po <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15934	16040	
==>method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15934	16040	
==>method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8425	8542	
==>mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" got <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9005	9112	
==>ned;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SY <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9005	9112	
==>ned;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SY <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13960	14062	
==>n a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Som <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14018	14120	
==>n a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Som <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2614	2713	
==>n-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	301	441	
==>le"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	301	441	
==>le"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	301	441	
==>le"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'Y <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1829	1929	
==>= $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1887	1987	
==>= $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4838	4961	
==>'ok' : 'not ok';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _('$.number <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6598	6697	
==>ypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6598	6697	
==>ypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1657	1760	
==>UILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1657	1760	
==>UILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1657	1760	
==>UILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22409	22507	
==>h return the same result when invoked on the
same object with the same arguments; they do not inter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26961	27059	
==>h return the same result when invoked on the
same object with the same arguments; they do not inter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25684	25782	
==>h return the same result when invoked on the
same object with the same arguments; they do not inter <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1886	2046	
==>h = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_eleme <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1886	2046	
==>h = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_eleme <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	734	875	
==>node<Lazy>).add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1483	1592	
==>ne = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1483	1592	
==>ne = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1483	1592	
==>ne = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo() correctl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7139	7233	
==>e ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7139	7233	
==>e ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7139	7233	
==>e ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	343	442	
==>, really concreate and practical 
# things like Object, Package and Module. It was also created
# by <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	343	442	
==>, really concreate and practical 
# things like Object, Package and Module. It was also created
# by <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	343	442	
==>, really concreate and practical 
# things like Object, Package and Module. It was also created
# by <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1456	1568	
==>al => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    $self->enter_sco <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12082	12175	
==>Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12082	12175	
==>Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2544	2644	
==>rammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2684	2784	
==>rammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #prin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6071	6168	
==>Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6071	6168	
==>Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8268	8365	
==>Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	28	127	
==>od map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	28	127	
==>od map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	28	127	
==>od map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3976	4124	
==>@_=$noop; goto &$c;
      my $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19182	19291	
==>} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20540	20649	
==>} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3925	4028	
==>fined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3925	4028	
==>fined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3925	4028	
==>fined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1855	1948	
==>ot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1855	1948	
==>ot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1855	1948	
==>ot::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method J <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4745	4956	
==>r -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basena <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4009	4180	
==>r -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basena <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13425	13575	
==>r -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basena <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6367	6492	
==>rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     safe   (List)\
\\n   Junction  p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12649	12754	
==>,

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12649	12754	
==>,

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5379	5491	
==>"m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5379	5491	
==>"m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5379	5491	
==>"m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17531	17622	
==>ance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17531	17622	
==>ance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4588	4692	
==>ype->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4588	4692	
==>ype->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4588	4692	
==>ype->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	466	601	
==>Four'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	466	601	
==>Four'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	466	601	
==>Four'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	589	703	
==>t(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	589	703	
==>t(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	589	703	
==>t(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4033	4128	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4033	4128	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4033	4128	
==>::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	333	433	
==>-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	333	433	
==>-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	333	433	
==>-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5945	6048	
==>e top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5945	6048	
==>e top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5945	6048	
==>e top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package kn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	353	468	
==>005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	353	468	
==>005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	353	468	
==>005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6141	6244	
==>f OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6141	6244	
==>f OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6141	6244	
==>f OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to o <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17986	18084	
==>perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, whic <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2345	2443	
==>perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, whic <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5989	6092	
==>96)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        whe <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5989	6092	
==>96)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35554	35680	
==>{
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35554	35680	
==>{
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35554	35680	
==>{
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17548	17723	
==>> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21025	21200	
==>> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20612	20787	
==>> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3892	3994	
==>se the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3892	3994	
==>se the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3892	3994	
==>se the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14461	14585	
==>nd!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14461	14585	
==>nd!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	477	586	
==>t;
    my $node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if (my $replacement = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1974	2119	
==>"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1583	1721	
==>atch->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unkn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1583	1721	
==>atch->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unkn <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9668	9763	
==>ite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" functi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9668	9763	
==>ite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" functi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1878	1996	
==>c"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1878	1996	
==>c"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	191	294	
==>EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### FOR IN <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	683	812	
==>of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4161	4290	
==>of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note th <==
3	/Users/nnunley/pugs/util/package-osx.pl	8074	8183	
==>Spec::Package.3pm
        /usr/local/man/man3/Perl6::Spec::Rule.3pm
        /usr/local/man/man3/Perl6::Spec::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10116	10241	
==>y $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10116	10241	
==>y $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10116	10241	
==>y $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5916	6175	
==>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5916	6175	
==>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5916	6175	
==>nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37153	37248	
==>:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a P <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37153	37248	
==>:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a P <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1171	1265	
==>9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_n <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	46	148	
==>s ripped straight out of S29.  I think most of these
# actually belong on "Map"

 multi sub grep (Any|J <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13388	13482	
==>emoved headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13388	13482	
==>emoved headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_fiel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17817	17970	
==>, \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18096	18249	
==>, \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1526	1635	
==>ean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $self->makemaker <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13934	14037	
==>ram = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1414	1517	
==>ram = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3612	3709	
==>/WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3612	3709	
==>/WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %han <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2425	2517	
==>ub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2425	2517	
==>ub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7401	7522	
==>-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7401	7522	
==>-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7401	7522	
==>-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9099	9213	
==>t_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9099	9213	
==>t_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9099	9213	
==>t_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1086	1191	
==>Varname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1086	1191	
==>Varname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1086	1191	
==>Varname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEX <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4669	4770	
==>eld_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub field_is_optional {
    my($self,$fname)=@_;
    $self->{'f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	347	439	
==>nput_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	347	439	
==>nput_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2533	2628	
==>ni = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2533	2628	
==>ni = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2533	2628	
==>ni = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $min <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1461	1573	
==>(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1461	1573	
==>(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1461	1573	
==>(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6697	6812	
==>oups, $cur) = @_;
    return unless $groups && @$groups;

    my @index_files;
    my %copy = map { $_ => $_ ne $cur <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	17	112	
==>erldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc:: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	17	112	
==>erldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	108	268	
==>d zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	108	268	
==>d zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	853	962	
==>) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    method notify (*@arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	167	273	
==>my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	167	273	
==>my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$matc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4636	4735	
==>6, '... got the right y for p3d');
is($p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6705	6830	
==>b') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_non <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6705	6830	
==>b') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_non <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6705	6830	
==>b') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8163	8366	
==>ch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8163	8366	
==>ch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8163	8366	
==>ch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5607	5733	
==>irst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5607	5733	
==>irst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5607	5733	
==>irst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ ( <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	175	258	
==><"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::R <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	142	225	
==><"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::R <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	188	271	
==><"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9432	9536	
==>$p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9432	9536	
==>$p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9432	9536	
==>$p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7468	7648	
==>$self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7468	7648	
==>$self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7468	7648	
==>$self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->f <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13864	13991	
==>| <CallExpression> <'.'> <Identifier>
}
rule Arguments :words {  # see 11.2
      <'('> <')'>
    | <'('> <ArgumentList> <')'>
} <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7793	7904	
==>S_HAVE_PERL5$/, @_) {
        $perl5_c = 'src/perl5/p5embed.c';
    }

    # Remove -Wl flags in Perl5 embedding <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	977	1076	
==>values,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $test ;   *@value <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7288	7390	
==>);

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7288	7390	
==>);

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6549	6650	
==>$Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	724	868	
==>::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	724	868	
==>::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $matc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	599	698	
==>fe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { native( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1362	1474	
==>MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1362	1474	
==>MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1362	1474	
==>MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7765	7884	
==>n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7765	7884	
==>n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	787	893	
==>t entity to the objects that are
created when you use;

  type Bar;
  subtype Foo of Str where { rx/^Foo/ } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3860	3984	
==>($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3860	3984	
==>($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3860	3984	
==>($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1923	2030	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1923	2030	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1923	2030	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = arg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33446	33564	
==>contains only tuples that are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37996	38114	
==>contains only tuples that are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37385	37503	
==>contains only tuples that are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15565	15689	
==>rl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15565	15689	
==>rl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15565	15689	
==>rl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15981	16136	
==>[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15981	16136	
==>[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15981	16136	
==>[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9853	9987	
==>=> sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9853	9987	
==>=> sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9853	9987	
==>=> sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	80	182	
==>on is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	80	182	
==>on is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	80	182	
==>on is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7580	7686	
==>$_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variable {
    return $_[0];
}
*node::varsca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3051	3146	
==>able.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3051	3146	
==>able.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1661	1775	
==>rName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1661	1775	
==>rName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1661	1775	
==>rName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3712	3857	
==>arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3712	3857	
==>arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3712	3857	
==>arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2233	2352	
==>my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2233	2352	
==>my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2233	2352	
==>my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	355	454	
==>use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::Jo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	355	454	
==>use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::Jo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24053	24142	
==>pe::operator::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2189	2313	
==>e\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2189	2313	
==>e\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2189	2313	
==>e\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11348	11457	
==>ec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11348	11457	
==>ec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11348	11457	
==>ec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	491	603	
==>parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finish <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	491	603	
==>parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finish <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	491	603	
==>parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finish <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3911	4008	
==><Fail>

Number which failed, either from "not ok" or because they never ran.

=item B<Failed>

Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19868	20015	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19868	20015	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19868	20015	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3498	3605	
==>pParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3498	3605	
==>pParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3498	3605	
==>pParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14593	14699	
==>cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14593	14699	
==>cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14593	14699	
==>cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	172	275	
==>l 'blessed', 'looks_like_number';

use base 'type';

our $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5190	5279	
==>ache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.keys <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5190	5279	
==>ache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.keys <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39373	39469	
==>iece by piece.
Because range checking (C<[a-z]>) requires knowledge of the characters
on the lowe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18345	18438	
==>ontent
inside heredocs can possibly confuse further parsing.

Next, the source module is divid <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18345	18438	
==>ontent
inside heredocs can possibly confuse further parsing.

Next, the source module is divid <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	69	171	
==>)

has Bool $.isMulti;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
en <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	117	208	
==>Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3341	3460	
==>ngth $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3341	3460	
==>ngth $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3341	3460	
==>ngth $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32568	32667	
==>chor).

=back

If there is a method with the name of one of these attributes, it is
I<imperative> yo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7047	7142	
==>ext of the header, that will be processed as a interpolated string (to allow for
any modifiers). <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7047	7142	
==>ext of the header, that will be processed as a interpolated string (to allow for
any modifiers). <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15150	15340	
==>method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15150	15340	
==>method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15150	15340	
==>method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all els <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12797	12933	
==>ata_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12797	12933	
==>ata_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	6009	6110	
==>tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to install '$archive' into '$fina <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11734	11824	
==>y Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@b <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11734	11824	
==>y Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1853	1967	
==>}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1993	2107	
==>}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7400	7515	
==>:EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7400	7515	
==>:EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7400	7515	
==>:EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9848	9941	
==>test_iFoo_singleton_method',
 '... still got the right return value from $iFoo singleton metho <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	18	109	
==>TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	18	109	
==>TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	467	572	
==>ousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.lo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	467	572	
==>ousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.lo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15680	15768	
==>p::carp("p6_perl6_objects_from_whatever called on $_[0]"); undef };
my %as_p6obj_handlers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21740	21834	
==>ls all the handlers for standard Perl 5 regexes.  This
documentation contains a sub-classing tu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25524	25622	
==>that the object
represents (or gives the name of a condition being reported, if it is used
as an ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25524	25622	
==>that the object
represents (or gives the name of a condition being reported, if it is used
as an ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10775	10901	
==>object(quant => 0, 1);
  });


  ### '('

  $self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17076	17173	
==>ompares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17076	17173	
==>ompares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurren <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1595	1694	
==>umper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1595	1694	
==>umper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6422	6525	
==>g) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6422	6525	
==>g) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6422	6525	
==>g) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32519	32697	
==>_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32519	32697	
==>_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32519	32697	
==>_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	810	924	
==>5 = p6_wrap_code_with_package($cc->as_p5,'main');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2280	2378	
==>es,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2280	2378	
==>es,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3611	3721	
==>ite_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3611	3721	
==>ite_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3611	3721	
==>ite_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13660	13796	
==>( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13660	13796	
==>( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13660	13796	
==>( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	626	757	
==>tion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	626	757	
==>tion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	626	757	
==>tion () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10442	10541	
==>u have some tests which you would like to force into being TODO tests
then you can pass them through <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10500	10599	
==>u have some tests which you would like to force into being TODO tests
then you can pass them through <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23444	23551	
==>} @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23444	23551	
==>} @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23444	23551	
==>} @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34383	34517	
==>rl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34383	34517	
==>rl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34383	34517	
==>rl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15017	15121	
==>UB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15017	15121	
==>UB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15017	15121	
==>UB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1753	1879	
==>Compile->new(p6_file=>$filename)->get_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($lin <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1092	1187	
==>aim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1150	1245	
==>aim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3990	4093	
==>:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3990	4093	
==>:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3990	4093	
==>:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10505	10650	
==>number,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagno <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1041	1168	
==>number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagno <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1041	1168	
==>number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15905	15999	
==>ystem for writing modules that I<compile> other
Perl modules.

Modules that use these compilati <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15905	15999	
==>ystem for writing modules that I<compile> other
Perl modules.

Modules that use these compilati <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	788	886	
==>);
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.* <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	788	886	
==>);
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.* <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1599	1703	
==>applies its first child to the rest of its
children.

=item Map

A map is like a hash - it has keys and v <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6042	6136	
==><want> gets implemented. Currently, the headers
are returned as one long string.

=item List Co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6042	6136	
==><want> gets implemented. Currently, the headers
are returned as one long string.

=item List Co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	768	871	
==>bug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	768	871	
==>bug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $us <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13964	14063	
==>mbs combine the generic values from their children
comb: generic_in($.fun) = { generic_in($$) }
comb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9905	10057	
==>},
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9905	10057	
==>},
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9905	10057	
==>},
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	402	508	
==>lass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	402	508	
==>lass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	402	508	
==>lass, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2759	2885	
==>ib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'POSTINST.pl'   ];
$config{ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1990	2110	
==>fig, %$conf };
    }

    $class->env_override($conf);
    $class->defaults($conf);
    return $conf;
}

sub env_override <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8419	8519	
==>if ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8407	8507	
==>if ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7269	7395	
==>match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7269	7395	
==>match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$ <==
3	/Users/nnunley/pugs/util/config_h.pl	1063	1157	
==>T "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try_compile(<< '.');
import System.Conso <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22553	22651	
==>item First Release

Documentation not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4336	4429	
==>my $allok = runtests(@test_files);

This runs all the given I<@test_files> and divines whether <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	758	921	
==>ar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => '
                <Pugs::Grammar::Var.ident>
                { return { array => "\@" . <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3400	3504	
==>r minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3400	3504	
==>r minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5822	5929	
==>ed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5822	5929	
==>ed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5822	5929	
==>ed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	982	1240	
==>my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TO <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	982	1240	
==>my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TO <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2086	2214	
==>dy submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1658	1767	
==>n $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  # bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5075	5175	
==>n $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  }) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3205	3322	
==>version='(.*)'/);
    }
    
    return $perl_version if defined $perl_version;
    return;
}

=pod

=head2 JIB::Utils <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1155	1251	
==>n particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1155	1251	
==>n particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11270	11448	
==>])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11270	11448	
==>])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11270	11448	
==>])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1141	1266	
==>pend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1141	1266	
==>pend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1141	1266	
==>pend to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, d <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3775	3881	
==>'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3775	3881	
==>'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	625	731	
==>'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3323	3431	
==>to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3323	3431	
==>to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3323	3431	
==>to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7358	7448	
==>rammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1183	1273	
==>rammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @stat <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	805	921	
==>_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1 <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	805	921	
==>_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33283	33382	
==><\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

=head2 e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9991	10138	
==>y(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9991	10138	
==>y(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9991	10138	
==>y(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2108	2286	
==>om the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2108	2286	
==>om the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2108	2286	
==>om the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5737	5846	
==>str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3073	3182	
==>str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3922	4031	
==>str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1811	1937	
==>ss (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasse <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6471	6572	
==>r_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6471	6572	
==>r_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4893	4998	
==>s $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4893	4998	
==>s $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4893	4998	
==>s $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20427	20538	
==>0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E0,E0) :- flag_m(E0), !.
rm(eol,         [],[ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12580	12674	
==>ent the
current working features.

This module deals with encoding and decoding of strings with <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12580	12674	
==>ent the
current working features.

This module deals with encoding and decoding of strings with <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1441	1579	
==>turns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1441	1579	
==>turns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1842	1947	
==>package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1842	1947	
==>package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1842	1947	
==>package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5412	5538	
==>hr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "P <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5412	5538	
==>hr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "P <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16447	16537	
==>B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1851	1976	
==>multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1629	1743	
==>delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1629	1743	
==>delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1629	1743	
==>delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	175	306	
==>}

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	699	819	
==>$.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule o <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	699	819	
==>$.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2545	2641	
==>e "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2545	2641	
==>e "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2545	2641	
==>e "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11590	11749	
==>$S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    inc pos
    mpos = pos
    $P0 = find_global "PGE::Rule", "p6rule"
    $P1 = $P0(mob)
    unl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	577	682	
==>ll-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	577	682	
==>ll-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13615	13757	
==>_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13615	13757	
==>_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3864	3994	
==>st instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@:results')} => $test;
            _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9708	9819	
==>ch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9708	9819	
==>ch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9708	9819	
==>ch - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7582	7800	
==>_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7582	7800	
==>_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7582	7800	
==>_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Meta <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14028	14147	
==>my $self = shift;
    my $prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self->pa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1933	2045	
==>erl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sig <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1933	2045	
==>erl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1722	1877	
==>lass) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1722	1877	
==>lass) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1722	1877	
==>lass) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1550	1700	
==>f.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1550	1700	
==>f.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3856	3965	
==>SA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg, @data) = @_;
    my $self = bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9895	10030	
==>ssed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1966	2087	
==>ssed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1966	2087	
==>ssed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11797	11935	
==>h ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12076	12214	
==>h ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12264	12379	
==>n3 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2335	2447	
==>) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by < <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10354	10447	
==>recurrence set.

The complementary functions are emulated using iterations.

See also the sect <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10354	10447	
==>recurrence set.

The complementary functions are emulated using iterations.

See also the sect <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2070	2172	
==>$!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.en <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2070	2172	
==>$!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.en <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4708	4797	
==>}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13213	13335	
==>package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13213	13335	
==>package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13213	13335	
==>package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10224	10393	
==>iff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10224	10393	
==>iff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10224	10393	
==>iff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6142	6252	
==>tringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6142	6252	
==>tringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6142	6252	
==>tringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1624	1745	
==>},
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1624	1745	
==>},
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1624	1745	
==>},
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24127	24235	
==>om inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20548	20656	
==>om inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22804	22890	
==>set_member(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	232	345	
==>turns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	232	345	
==>turns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	461	558	
==>hen you declare a Method on a Class, it is bound to that
Class' C<Type> object immediately; howeve <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14567	14691	
==>tched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14567	14691	
==>tched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be <==
3	/Users/nnunley/pugs/util/testgraph.pl	522	614	
==>y $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->new_with_struct(delete $data- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30457	30552	
==>rgument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35008	35103	
==>rgument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34190	34285	
==>rgument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	296	393	
==>3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	296	393	
==>3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	296	393	
==>3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2862	2981	
==>'type'))
        || confess "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self} => @_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13044	13161	
==>fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13044	13161	
==>fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2838	2930	
==>l6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2838	2930	
==>l6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2838	2930	
==>l6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # retu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9011	9113	
==>ing' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9011	9113	
==>ing' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4765	4859	
==>eck( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    if( File::Copy::move( $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	864	986	
==>tructure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	864	986	
==>tructure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	864	986	
==>tructure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31049	31218	
==>i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31049	31218	
==>i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31049	31218	
==>i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21769	21944	
==>, symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44676	44851	
==>, symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$met <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	60	160	
==>hod subclass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	582	729	
==>f = shift;
    return bless $var_ref, $class;
}
sub FETCH {
    my $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1024	1145	
==>tr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1024	1145	
==>tr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1024	1145	
==>tr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27401	27500	
==>t", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is(t($fac_5), "int", ":t fac 5 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13001	13099	
==>thod returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data st <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13001	13099	
==>thod returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10225	10320	
==>- *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10225	10320	
==>- *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10225	10320	
==>- *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	390	518	
==>oxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	390	518	
==>oxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	390	518	
==>oxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7196	7292	
==>dd_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7196	7292	
==>dd_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7196	7292	
==>dd_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12433	12539	
==>ot recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12433	12539	
==>ot recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12433	12539	
==>ot recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3104	3232	
==>($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('cod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3104	3232	
==>($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('cod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22753	22873	
==>air"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						par <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21611	21737	
==>file_to_yml($path);
        }
      }
      return opRequire();
    }
    die "Can't find " ~ $file ~ ' in @*INC (@*INC contain <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3816	3918	
==>$named_arg = $args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !defined $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9182	9283	
==>rn $S->force_object(anyof_class => space => $neg, $how);
  });

  # upper POSIX class
  $self->add_han <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7412	7503	
==>];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7412	7503	
==>];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7412	7503	
==>];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7387	7553	
==>> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7387	7553	
==>> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7387	7553	
==>> sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if de <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6571	6673	
==>n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @arg <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	587	673	
==>erl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aim <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	587	673	
==>erl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aim <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1478	1593	
==>gs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1478	1593	
==>gs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1478	1593	
==>gs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2725	2870	
==>}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2918	3063	
==>}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5216	5321	
==>o be only one input file.
In linking mode, multiple input files may be specified. If a filename is
prefixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5216	5321	
==>o be only one input file.
In linking mode, multiple input files may be specified. If a filename is
prefixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5216	5321	
==>o be only one input file.
In linking mode, multiple input files may be specified. If a filename is
prefixe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3758	3903	
==>age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($respons <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3758	3903	
==>age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($respons <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1648	1749	
==>) = { 0 }
type::operator::binary: level($.left) = { level($$) + 1 }
type::operator::binary: level($.ri <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	792	903	
==>ild.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubbl <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	792	903	
==>ild.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubbl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2634	2729	
==>ype = shift;

	$type = $type->type while Scalar::Util::blessed($type);
	$type = $type->[0] while <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4564	4747	
==>et_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () retu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4564	4747	
==>et_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () retu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1856	2033	
==>ies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1856	2033	
==>ies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4154	4243	
==>E
*{'term1'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <@Grammar::Perl6::ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3916	4015	
==>l 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3916	4015	
==>l 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3916	4015	
==>l 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3680	3783	
==>paque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3680	3783	
==>paque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3680	3783	
==>paque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::mak <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14758	14897	
==>a} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25832	25927	
==>tring.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or mor <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25832	25927	
==>tring.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or mor <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7674	7818	
==>lf->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7731	7875	
==>lf->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2554	2663	
==>f->abstract;
}

sub provides {
    my $self     = shift;
    my $provides = ( $self->{values}{provides} ||= {} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2254	2415	
==>) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $pass <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11115	11208	
==>returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_cou <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11115	11208	
==>returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11241	11482	
==>>new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11241	11482	
==>>new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11241	11482	
==>>new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37686	37785	
==>common tuple values
are aligned and merged.  The heading of the new relation is the union of
all the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42235	42334	
==>common tuple values
are aligned and merged.  The heading of the new relation is the union of
all the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41885	41984	
==>common tuple values
are aligned and merged.  The heading of the new relation is the union of
all the <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	214	320	
==>bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $positi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	731	861	
==>000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	731	861	
==>000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	731	861	
==>000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	100	236	
==>t used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to creat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	100	236	
==>t used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to creat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	100	236	
==>t used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	967	1071	
==>t.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	967	1071	
==>t.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	967	1071	
==>t.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1674	1773	
==>gdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6415	6508	
==>=~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1567	1654	
==>gdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29645	29747	
==>bute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34197	34299	
==>bute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33361	33463	
==>bute names
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7857	7957	
==>e }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCorouti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7857	7957	
==>e }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCorouti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7857	7957	
==>e }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCorouti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12302	12395	
==>Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12302	12395	
==>Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12302	12395	
==>Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22247	22337	
==>od ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22247	22337	
==>od ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22247	22337	
==>od ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3202	3326	
==>rue };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %p <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3202	3326	
==>rue };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %p <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7246	7367	
==>n/*>);
    $syn_indexs = {}; # Table for design documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	90	202	
==>) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed beca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	90	202	
==>) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed beca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	90	202	
==>) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed beca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19096	19242	
==>bj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on your obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2863	2957	
==>gs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2759	2850	
==>gs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2393	2506	
==>grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2533	2646	
==>grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	108	208	
==>ultimethods)

# first part is a type pretty printer and the type object model
# it emits greek letter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	95	202	
==>s creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	95	202	
==>s creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	95	202	
==>s creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6864	6977	
==>KE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6864	6977	
==>KE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6864	6977	
==>KE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4306	4408	
==>Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4306	4408	
==>Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4306	4408	
==>Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17184	17285	
==>B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17341	17442	
==>B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1272	1372	
==>o_num () returns num>

=item B<to_str () returns str>

=item B<concat (str) returns str>

=back

=cut <==
3	/Users/nnunley/pugs/util/package-osx.pl	1014	1120	
==>re/doc/parrot
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6534	6624	
==>);
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11592	11682	
==>);
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9972	10157	
==>d & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11449	11634	
==>d & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1067	1174	
==>t match (not longest). 
# note: the list in @$nodes can be modified at runtime
sub alternation {
    my $ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	19	119	
==>rait
sub storage is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is reado <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28279	28375	
==>Relation
which is the same as the invocant Relation but that some of its attributes
have been com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32831	32927	
==>Relation
which is the same as the invocant Relation but that some of its attributes
have been com <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1867	2000	
==>$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5344	5477	
==>$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4274	4407	
==>$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9987	10191	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9987	10191	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9987	10191	
==>AD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3421	3571	
==>ox_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3421	3571	
==>ox_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submat <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1506	1622	
==>the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n//;
    my @file = split //, $file;

    open STDOUT <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5215	5344	
==>chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5215	5344	
==>chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2884	2979	
==>lementation is currently at a comparable state as v6.pm.

Although running C<v6-pugs> requires t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2830	2949	
==>error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2830	2949	
==>error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	766	866	
==>6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4216	4328	
==>$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4216	4328	
==>$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4216	4328	
==>$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1434	1551	
==>s',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1641	1758	
==>s',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22076	22183	
==>'> <CaseBlock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClau <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2500	2616	
==>n );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2500	2616	
==>n );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $spa <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1029	1149	
==>WARE> in that the interface is subject to change
in incompatible ways.  It is otherwise stable.

Test::Harness is limited <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3066	3171	
==>t = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3066	3171	
==>t = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5152	5254	
==>erl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5152	5254	
==>erl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5152	5254	
==>erl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Per <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1051	1163	
==>.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1051	1163	
==>.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8108	8202	
==>x, value)>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensional, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7357	7502	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7357	7502	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7357	7502	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	871	980	
==>: $_[3]
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	367	476	
==>my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	367	476	
==>my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4471	4561	
==>er::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parame <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4471	4561	
==>er::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parame <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6668	6758	
==>er::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parame <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2392	2486	
==>an for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2392	2486	
==>an for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15723	15849	
==>}
        
        $sobj->deobjectify_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $i <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	162	252	
==>com/howto/showArticle.jhtml?articleID=175801189
# says, This may be considered as the super <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12230	12484	
==>'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12230	12484	
==>'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	716	819	
==>$$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTION

Provides <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2902	3034	
==>}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9755	9876	
==>rn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11232	11353	
==>rn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6210	6342	
==>$_ eq '/' }   @expect;

        # print "token: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        r <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	392	514	
==>le_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	392	514	
==>le_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1803	1904	
==>is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1861	1962	
==>is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1467	1563	
==>sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Avai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	25	112	
==>internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	25	112	
==>internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	25	112	
==>internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5917	6031	
==>%{::opaque_instance_attrs($self)->{'%:methods'}};
        },                
    }
);

ok(!$Class->has_method('reso <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2818	2904	
==>g/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@p <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2818	2904	
==>g/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40242	40352	
==>:Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40242	40352	
==>:Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40242	40352	
==>:Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10651	10778	
==>ith the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14128	14255	
==>ith the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13427	13554	
==>ith the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4588	4712	
==>m           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4588	4712	
==>m           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4588	4712	
==>m           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1751	1877	
==>pture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1944	2070	
==>pture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1336	1456	
==>er;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	661	790	
==>hod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	661	790	
==>hod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	661	790	
==>hod = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9865	9970	
==>if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9865	9970	
==>if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9865	9970	
==>if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4894	5013	
==>term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2436	2555	
==>term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3217	3336	
==>term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $term2 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11859	11988	
==>his is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11859	11988	
==>his is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11859	11988	
==>his is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18597	18729	
==>ayer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18597	18729	
==>ayer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18597	18729	
==>ayer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatc <==
3	/Users/nnunley/pugs/util/testgraph.pl	687	791	
==>_inline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
els <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13255	13349	
==>those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13313	13407	
==>those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20310	20432	
==>darray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18404	18498	
==>ource corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18404	18498	
==>ource corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe an <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7632	7741	
==>(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->coun <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	373	474	
==>_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	373	474	
==>_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3908	4017	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7385	7494	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6351	6460	
==>,
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11815	11921	
==>lavor($x);
    my $handler = $as_bool_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8509	8599	
==>ar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2334	2424	
==>ar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @sta <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3031	3133	
==>bers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3031	3133	
==>bers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3426	3525	
==>} = $Object;

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4120	4219	
==>} = $Object;

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5328	5427	
==>} = $Object;

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4462	4576	
==>n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4462	4576	
==>n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4462	4576	
==>n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1703	1804	
==>}

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1703	1804	
==>}

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1703	1804	
==>}

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35272	35372	
==>o define our own qr() method, because we don't want
to have &'s in our I<real> regex.  We need to con <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	157	255	
==>d1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	157	255	
==>d1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect ciph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3804	3932	
==>me;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3804	3932	
==>me;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3804	3932	
==>me;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18226	18415	
==>a::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18226	18415	
==>a::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18226	18415	
==>a::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1643	1760	
==>lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous // <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1643	1760	
==>lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	102	195	
==>---------------------------------------------------
## now for some bootstrapping ....

## See <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	102	195	
==>---------------------------------------------------
## now for some bootstrapping ....

## See <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	102	195	
==>---------------------------------------------------
## now for some bootstrapping ....

## See <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38867	38990	
==>ternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38867	38990	
==>ternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38867	38990	
==>ternal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::L <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6573	6695	
==>pace g global  stringify>;
        %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g globa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7592	7711	
==>rings
	my @p = map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'slurpy' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6763	6853	
==>_elemental(char(C)) --> "\\", [C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2099	2200	
==>$_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2099	2200	
==>$_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2446	2547	
==>$_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3705	3866	
==>ft;
                @{$self->get_value('@:slots')} = (); # just ref = []?
            },

            'array_push' => sub { # @values -> ()
                my $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9990	10114	
==>rocedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9990	10114	
==>rocedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	426	524	
==>nlink "$file.out";
    system "$pugs $f.p6 > $file.out";
    if (compare("$file.out", "$dir/$file.e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36957	37050	
==>_string = $translator.translate_message( $message );

=back

The Translator class also has the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36957	37050	
==>_string = $translator.translate_message( $message );

=back

The Translator class also has the <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	426	552	
==>pen($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" an <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	426	552	
==>pen($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" an <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	467	573	
==>ot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2466	2567	
==>&Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2524	2625	
==>&Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $e <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	433	577	
==>)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        map { " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22991	23092	
==>t
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22991	23092	
==>t
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2402	2500	
==>ice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# Th <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2402	2500	
==>ice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	183	293	
==>ell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	183	293	
==>ell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	183	293	
==>ell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .ac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5905	6123	
==>domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $por <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5905	6123	
==>domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $por <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2081	2206	
==>ie::App;
    use base 'Blondie::Node::List';

    package Blondie::Val;
    use base 'Blondie::Node::Unit';

    package Blond <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	150	254	
==>r used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s| <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	150	254	
==>r used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s| <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	35	116	
==>e/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Versio <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	678	777	
==>one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	678	777	
==>one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1192	1293	
==>ringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1192	1293	
==>ringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14014	14137	
==>r.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17491	17614	
==>r.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_ <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	164	266	
==>ed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use Config;
use Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19175	19298	
==>0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19175	19298	
==>0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19175	19298	
==>0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ? <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7222	7350	
==>-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	781	894	
==>msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	781	894	
==>msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13529	13674	
==>al_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13529	13674	
==>al_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13529	13674	
==>al_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2834	2938	
==>, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point(15, 16 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	796	894	
==>output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib: <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	796	894	
==>output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2937	3047	
==>path() or error($!), return;
    }

    return 1;
}

### these plural functions seem more confusion than helpfu <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4613	4720	
==>self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.y <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4472	4579	
==>self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2206	2313	
==>ir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2206	2313	
==>ir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2206	2313	
==>ir lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3576	3672	
==>g Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being dev <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3576	3672	
==>g Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being dev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1576	1735	
==>')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Juncti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1576	1735	
==>')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Juncti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1576	1735	
==>')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2316	2445	
==>)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2316	2445	
==>)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2316	2445	
==>)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        pri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24624	24729	
==>mlen      length of regmust string
 *  [regmlen not used currently]

Confined to regcomp/regexec.

 *
 * R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19922	20012	
==>ce and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19922	20012	
==>ce and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	405	513	
==>ox.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	405	513	
==>ox.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	405	513	
==>ox.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	896	1031	
==>ce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	896	1031	
==>ce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	896	1031	
==>ce_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40346	40456	
==>{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40346	40456	
==>{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40346	40456	
==>{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	444	556	
==>lass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	444	556	
==>lass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	444	556	
==>lass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12929	13038	
==>$.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12929	13038	
==>$.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. I <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3998	4097	
==>_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName ($O:) { $.property_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5091	5257	
==>s {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5091	5257	
==>s {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5091	5257	
==>s {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2230	2369	
==>$key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2230	2369	
==>$key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWin <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2080	2171	
==>ncode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2080	2171	
==>ncode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8345	8471	
==>ingify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8345	8471	
==>ingify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8345	8471	
==>ingify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice}."\n";
    #warn "               FRO <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6691	6819	
==>global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5" <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5963	6090	
==>pan;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify th <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5963	6090	
==>pan;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3489	3579	
==>y installed.

An improperly installed C<Pugs::Compiler::Rule> module would prevent the Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7005	7194	
==>);
        
        # "autobox"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto;
            return 
                " \@_ = (" . _emit( $n->{param}, '  ' ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	626	731	
==>: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $repl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	626	731	
==>: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $repl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6724	6893	
==>_('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6724	6893	
==>_('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6724	6893	
==>_('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5209	5360	
==>n = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $igno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5209	5360	
==>n = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $igno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5209	5360	
==>n = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $igno <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9364	9473	
==>irect stderr to stdout
#   args     => [ command-line arguments to the perl program ]
#   verbose  => print th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3290	3383	
==>ad2 Parameters

The parameters of the request are accessible through the HTTP::Query object th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3290	3383	
==>ad2 Parameters

The parameters of the request are accessible through the HTTP::Query object th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	742	897	
==>ss {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	742	897	
==>ss {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	742	897	
==>ss {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1545	1649	
==>s
### These are dependant on the installation, so they are 
### marked privata.. their public equivalents <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20243	20340	
==>sy to maintain and
and easy for developers to study.  As a result, while it performs correctly
and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20243	20340	
==>sy to maintain and
and easy for developers to study.  As a result, while it performs correctly
and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1627	1748	
==>= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1627	1748	
==>= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1627	1748	
==>= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4708	4829	
==>e there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4708	4829	
==>e there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4708	4829	
==>e there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::make_private_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15309	15503	
==>ys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15309	15503	
==>ys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15309	15503	
==>ys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6952	7054	
==>cher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6952	7054	
==>cher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6952	7054	
==>cher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1145	1242	
==>at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1145	1242	
==>at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1145	1242	
==>at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	223	348	
==>t;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	223	348	
==>t;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	223	348	
==>t;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	880	987	
==>();
}

1;

__END__

=pod

=head1 NAME

reference - the core reference type

=head1 METHODS

=over 4

=item B <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16307	16398	
==>g>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@for <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16365	16456	
==>g>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@for <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	67	168	
==>g;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wante <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	67	168	
==>g;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wante <==
3	/Users/nnunley/pugs/util/importgraph.pl	1970	2076	
==>qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_ra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	877	977	
==>d from S29draft.pod 8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4438	4606	
==>{
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4438	4606	
==>{
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4438	4606	
==>{
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7536	7666	
==>[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1676	1792	
==>_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1676	1792	
==>_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2699	2834	
==>lse {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2699	2834	
==>lse {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2699	2834	
==>lse {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9577	9665	
==>UB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9577	9665	
==>UB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9577	9665	
==>UB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12420	12533	
==>m_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12420	12533	
==>m_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12420	12533	
==>m_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13539	13637	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13539	13637	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13539	13637	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10621	10743	
==>terator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10621	10743	
==>terator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	53	153	
==>y of Perl::Roles @.super_roles;

has Hash of Str, Perl::Meta::Property %.properties;
has Hash of Str, <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3251	3364	
==>st_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the l <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3251	3364	
==>st_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	717	823	
==>to_native()} = $value;
    }
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shift) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20138	20236	
==>ore to be completely testable on its own.  It is
coded intentionally in a simple fashion so that it <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20138	20236	
==>ore to be completely testable on its own.  It is
coded intentionally in a simple fashion so that it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	577	693	
==>h (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	577	693	
==>h (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	577	693	
==>h (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	815	914	
==>st::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# po <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	815	914	
==>st::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	895	994	
==>st::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2176	2277	
==>xicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2176	2277	
==>xicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2176	2277	
==>xicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	462	575	
==>);
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	462	575	
==>);
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	462	575	
==>);
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	772	922	
==>);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	772	922	
==>);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	772	922	
==>);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21134	21228	
==>t copies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1314	1404	
==>f Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1314	1404	
==>f Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2000	2092	
==>=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2000	2092	
==>=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2000	2092	
==>=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15176	15273	
==>sing an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHOD <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15176	15273	
==>sing an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHOD <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	339	448	
==>t looks like the ("A feasibility and performance reality check")
# spike has succeeded.  The most of the re_te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19473	19558	
==>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the curren <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19473	19558	
==>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	123	223	
==>ss { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	123	223	
==>ss { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	123	223	
==>ss { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1414	1532	
==>ts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  , <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4538	4653	
==>ts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4538	4653	
==>ts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' , <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45420	45516	
==>pace') => attribute->new('%:namespace' => 'hash')));


$::Package->send('add_method' => (
    # m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17564	17656	
==>ace.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine; i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17564	17656	
==>ace.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine; i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9509	9610	
==>ce::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Def <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9509	9610	
==>ce::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Def <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	913	1022	
==>dir     => $Config{installman1dir},
        installman3dir     => $Config{installman3dir},
        installsite <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	338	440	
==>>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_i <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	338	440	
==>>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12274	12392	
==>$value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12274	12392	
==>$value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12274	12392	
==>$value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9905	10021	
==>I$_" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we're VMS, since VMS requir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4449	4540	
==>:KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4449	4540	
==>:KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4122	4254	
==>$_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     sort <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1262	1387	
==>e_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between a <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1262	1387	
==>e_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between a <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6170	6267	
==>plit into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6170	6267	
==>plit into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7049	7207	
==>hift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $e->get('$label <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3021	3147	
==>arity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3021	3147	
==>arity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3021	3147	
==>arity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	401	509	
==>e we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	401	509	
==>e we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3006	3130	
==>"bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3006	3130	
==>"bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3006	3130	
==>"bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	689	844	
==>");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	689	844	
==>");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	689	844	
==>");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27255	27350	
==>pp_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", " <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13384	13478	
==>replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities n <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13384	13478	
==>replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3815	3924	
==>es([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3815	3924	
==>es([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3815	3924	
==>es([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2954	3123	
==>n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    pri <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	37	131	
==>b remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhos <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	37	131	
==>b remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1062	1158	
==>eate these attributes in all the currently live instances
# of Class (which are ::Class, ::Packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1062	1158	
==>eate these attributes in all the currently live instances
# of Class (which are ::Class, ::Packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1062	1158	
==>eate these attributes in all the currently live instances
# of Class (which are ::Class, ::Packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4825	4926	
==>uce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4825	4926	
==>uce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4825	4926	
==>uce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3866	3964	
==>sing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3866	3964	
==>sing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6063	6161	
==>sing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24093	24189	
==>If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28645	28741	
==>If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is un <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	210	299	
==>d() )->subdir( 'fakeroot' ) );

$INSTALLATION_DIR = $config->root->subdir( $Config{install <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7940	8066	
==>n ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11936	12059	
==>n ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11936	12059	
==>n ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3340	3434	
==>stance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3340	3434	
==>stance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3340	3434	
==>stance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	18	119	
==>by v6.pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4466	4588	
==>methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4466	4588	
==>methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4466	4588	
==>methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4047	4147	
==>$whitespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStac <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1921	2070	
==>en $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8452	8572	
==>ion( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8158	8272	
==>ion( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	221	314	
==>pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	221	314	
==>pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	221	314	
==>pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1939	2059	
==>/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1939	2059	
==>/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1939	2059	
==>/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7608	7752	
==>_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	909	1053	
==>_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2346	2445	
==>node)->new(%$node, struct_equiv => $reduced_struct);
}

sub can_reduce {
	my $self = shift;
	my $nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17129	17241	
==>ue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17129	17241	
==>ue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17129	17241	
==>ue;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1955	2103	
==>er of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5432	5580	
==>er of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4362	4510	
==>er of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutab <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12518	12627	
==>ew env is passed down to the body, but is also reused in the 'type' attr
fun: env($.body) = { new_env($$) }
fu <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	13	109	
==>ss Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

subme <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	13	109	
==>ss Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

subme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1079	1206	
==>>isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1079	1206	
==>>isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1079	1206	
==>>isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4773	4889	
==>> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4773	4889	
==>> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4773	4889	
==>> Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15631	15731	
==>in a Byte uplifted to an LChar).

Attempting to use a string at a level lower than what it supports i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6252	6347	
==>a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6252	6347	
==>a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	957	1071	
==>$string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_ut <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	957	1071	
==>$string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_ut <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13112	13213	
==>if you're running under -T, you really mean to
	# run a fresh perl, so we'll brute force launder every <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19390	19481	
==>ition statements are structured as
standard data manipulation statements but that the target <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19390	19481	
==>ition statements are structured as
standard data manipulation statements but that the target <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14246	14434	
==>t, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14246	14434	
==>t, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14246	14434	
==>t, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	377	500	
==>p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = ble <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	377	500	
==>p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = ble <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2504	2606	
==>n notes:
 Why not call "TAILCALL" "GOTO"?  So you can easily search on both.
 Why LET but not TEMP?  LE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6166	6350	
==>.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if de <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6166	6350	
==>.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if de <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	804	907	
==>,$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_decode($value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1805	1905	
==>nd use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1805	1905	
==>nd use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1805	1905	
==>nd use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_ad <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6500	6661	
==>arse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6500	6661	
==>arse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1726	1814	
==>as_failed { $_[0]{'has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use stri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1694	1972	
==>p::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16479	16575	
==>e" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16479	16575	
==>e" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2973	3080	
==>Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2973	3080	
==>Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2973	3080	
==>Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3737	3889	
==>id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::D <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3309	3408	
==>IPTION

This class represents a date /without a time/.

Because it is just a date, it does not handl <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3309	3408	
==>IPTION

This class represents a date /without a time/.

Because it is just a date, it does not handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2892	2996	
==>udepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2892	2996	
==>udepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2892	2996	
==>udepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5011	5224	
==>_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5011	5224	
==>_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $reques <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37120	37211	
==>ol->new('@:superclasses')    => attribute->new('@:superclasses'    => 'list')));
$::Class->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33649	33777	
==>unt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33649	33777	
==>unt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33649	33777	
==>unt = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	290	398	
==>Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	290	398	
==>Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	290	398	
==>Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8113	8315	
==>'$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8113	8315	
==>'$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8113	8315	
==>'$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    ret <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	433	563	
==>y $args = ($self->{makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

sub build_subdirs {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7377	7481	
==>("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7377	7481	
==>("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1875	2060	
==>e
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3736	3873	
==>my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1976	2073	
==>aphy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1976	2073	
==>aphy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8577	8680	
==>ew PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8577	8680	
==>ew PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8577	8680	
==>ew PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an in <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5832	5927	
==>$totals->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2580	2715	
==>name )) {
            return Bool::false;
        }
    }
    return Bool::true;
}

method any_names_exist of Bool (Relation::AttrName * <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1365	1475	
==>t_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1365	1475	
==>t_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1365	1475	
==>t_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1881	1988	
==>te --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1881	1988	
==>te --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1881	1988	
==>te --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5954	6065	
==>> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5954	6065	
==>> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5954	6065	
==>> 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNew <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4016	4128	
==>ommand_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4016	4128	
==>ommand_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4016	4128	
==>ommand_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12182	12414	
==>( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # pri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12182	12414	
==>( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # pri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12182	12414	
==>( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9724	9840	
==>fty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9724	9840	
==>fty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9724	9840	
==>fty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7836	7965	
==>put;
  use Test::Builder::TestPlan;
  
  my  Test::Builder           $:singleton;
  has Test::Builder::Output   $.output handles ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3079	3184	
==>? how is this useful?
# =head2 @bools = $repo->add_packages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Pa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2112	2213	
==>);
	use B ();
	use B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6521	6622	
==>ode);
	Carp::confess("p6_new($cls,$name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26520	26615	
==>d.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31072	31167	
==>d.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3408	3519	
==>0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3408	3519	
==>0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3408	3519	
==>0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8203	8301	
==>($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method interse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11680	11778	
==>($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method interse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10862	10960	
==>($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method interse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2607	2713	
==>tem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2607	2713	
==>tem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2607	2713	
==>tem = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6486	6607	
==>pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6486	6607	
==>pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6486	6607	
==>pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	997	1095	
==>Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	997	1095	
==>Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1077	1175	
==>Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1303	1407	
==>'%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1303	1407	
==>'%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1303	1407	
==>'%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1105	1214	
==>pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1105	1214	
==>pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1105	1214	
==>pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	92	195	
==>ode :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	92	195	
==>ode :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	92	195	
==>ode :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5253	5361	
==>u to
do anything you like with each object, but is (at least nominally)
intended to allow filtering out objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5253	5361	
==>u to
do anything you like with each object, but is (at least nominally)
intended to allow filtering out objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5253	5361	
==>u to
do anything you like with each object, but is (at least nominally)
intended to allow filtering out objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8280	8463	
==>Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8280	8463	
==>Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8280	8463	
==>Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4188	4292	
==>ling these methods you should take care not
to call them in function form by mistake; that would not do a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4188	4292	
==>ling these methods you should take care not
to call them in function form by mistake; that would not do a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4188	4292	
==>ling these methods you should take care not
to call them in function form by mistake; that would not do a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7118	7214	
==>JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7118	7214	
==>JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7118	7214	
==>JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})') <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16408	16597	
==>nstantiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e->get <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4491	4587	
==>nce, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4491	4587	
==>nce, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6688	6784	
==>nce, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21481	21595	
==>padarray
    pad["cutnum"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    sel <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6522	6653	
==>nse_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|lic <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6579	6710	
==>nse_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|lic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15820	15970	
==>{ 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15820	15970	
==>{ 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15820	15970	
==>{ 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3801	3910	
==>Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3665	3771	
==>Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35645	35737	
==>Relation::Example>

This multi-method is a generic binary relational operator that takes a si <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13183	13292	
==>nt/dev\"",
    ensure => sub { -c "$initrd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime unde <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	249	344	
==>l5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	249	344	
==>l5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1092	1330	
==><Hash::Const>),
                                Tree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3674	3773	
==>can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3674	3773	
==>can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8723	8893	
==>"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12629	12792	
==>"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12629	12792	
==>"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1411	1534	
==>\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1411	1534	
==>\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = gram <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5632	5736	
==>efore running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5632	5736	
==>efore running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7156	7260	
==>efore running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11167	11286	
==>>add_handler('.' => sub {
    my ($S) = @_;
    return $S->object(reg_any => sany => '.');
  });


  ### '|'

  $self->a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1343	1452	
==>ructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1343	1452	
==>ructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.clo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1031	1152	
==>tr) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1200	1321	
==>tr) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3438	3548	
==>::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3438	3548	
==>::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3438	3548	
==>::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	20	134	
==>ined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	20	134	
==>ined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	20	134	
==>ined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

metho <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	659	756	
==>'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3627	3915	
==>ine)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3627	3915	
==>ine)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %even <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1053	1178	
==>path . $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15035	15161	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15035	15161	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15035	15161	
==>f $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13425	13529	
==>y'}
 delete %hash<key1>{@keys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method H <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16439	16534	
==>?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::Token <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16439	16534	
==>?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::Token <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9970	10074	
==>dth();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9970	10074	
==>dth();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	993	1209	
==>=> \$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                store => \$pool,
                #XXX allo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10651	10745	
==>nctions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This functi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10709	10803	
==>nctions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12607	12776	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12607	12776	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12607	12776	
==>s);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3749	3845	
==>h, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3749	3845	
==>h, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3749	3845	
==>h, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3653	3759	
==>p' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3653	3759	
==>p' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3653	3759	
==>p' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = sh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10654	10765	
==>>rep_type;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6444	6551	
==>($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6444	6551	
==>($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4654	4817	
==>ge => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTALLABLE,
        }
    };

    check($tmpl, \ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	642	753	
==>eturn '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	642	753	
==>eturn '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1293	1413	
==>>position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

sub as_bool {
  my ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14697	14792	
==>andling for cmp_ok

The error handling capabilities need to be expanded more to handle the
error <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14755	14850	
==>andling for cmp_ok

The error handling capabilities need to be expanded more to handle the
error <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	217	351	
==>n ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	217	351	
==>n ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	217	351	
==>n ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1197	1314	
==>_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1197	1314	
==>_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1197	1314	
==>_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2298	2476	
==>ore uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # remote repo ro <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16432	16531	
==>a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, the <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16432	16531	
==>a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1771	1885	
==>ock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1771	1885	
==>ock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1771	1885	
==>ock' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6766	6884	
==>new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6766	6884	
==>new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6766	6884	
==>new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16340	16449	
==>0) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16340	16449	
==>0) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16340	16449	
==>0) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3241	3357	
==>from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3241	3357	
==>from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3241	3357	
==>from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1733	1840	
==>is is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1733	1840	
==>is is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	959	1066	
==>sion to other native types
sub to_num { (shift)->[0]           } # return the id
sub to_str { str->new((shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	594	688	
==>)($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	594	688	
==>)($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	594	688	
==>)($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3294	3446	
==>'';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $tree[1][0][1] );
    }
    elsif $tree[0] eq '"VInt"' {
        $ret = emit_In <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19671	19766	
==>ls.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19671	19766	
==>ls.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9147	9260	
==>ap join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6994	7088	
==>Siblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6994	7088	
==>Siblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36451	36546	
==>thers.  The sequence in which any two source relations are
combined is inconsequential.  A trivi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41000	41095	
==>thers.  The sequence in which any two source relations are
combined is inconsequential.  A trivi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40614	40709	
==>thers.  The sequence in which any two source relations are
combined is inconsequential.  A trivi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	674	804	
==>ackage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	674	804	
==>ackage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	674	804	
==>ackage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3820	4010	
==>ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3820	4010	
==>ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1676	1819	
==>}
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my ($self, $passed, $de <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	209	312	
==>me recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represent <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	209	312	
==>me recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represent <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2968	3073	
==>L2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2968	3073	
==>L2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2968	3073	
==>L2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3592	3720	
==>nt, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6704	6806	
==>y $module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external Pe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6704	6806	
==>y $module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external Pe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	120	224	
==>something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. Mak <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	259	357	
==>ests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTS <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	259	357	
==>ests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2556	2659	
==>ini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2556	2659	
==>ini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2556	2659	
==>ini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9835	9965	
==>/^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9835	9965	
==>/^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9835	9965	
==>/^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7736	7837	
==>ugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continua <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7474	7572	
==>ugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continua <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2474	2583	
==>s{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2474	2583	
==>s{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2474	2583	
==>s{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4184	4293	
==>d_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4184	4293	
==>d_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4184	4293	
==>d_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $y <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8625	8730	
==>t of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# dept <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8625	8730	
==>t of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# dept <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	201	305	
==>le DumpFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1797	1912	
==>ods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1797	1912	
==>ods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1797	1912	
==>ods are then required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8367	8658	
==>s ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8367	8658	
==>s ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8367	8658	
==>s ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13124	13234	
==>->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13124	13234	
==>->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13124	13234	
==>->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14240	14368	
==>ut

sub write {
    my $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3247	3338	
==>am($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3247	3338	
==>am($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21094	21186	
==>files and shipped with your
distribtution precompiled. This means that people who install you <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21094	21186	
==>files and shipped with your
distribtution precompiled. This means that people who install you <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8298	8548	
==>::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8298	8548	
==>::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3551	3645	
==>g_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_fu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4793	4974	
==>um or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $progra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5015	5196	
==>um or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $progra <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2032	2143	
==>e default Event/Subscriber pair really means that all notifications are sent everywhere
        1;
    }

    me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3871	4043	
==>ch, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31975	32073	
==>heck each
of the 3 Template module sets in turn, looking at just the set member for
each that corre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31975	32073	
==>heck each
of the 3 Template module sets in turn, looking at just the set member for
each that corre <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	86	201	
==>t";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Referenz <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13337	13430	
==>har, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13337	13430	
==>har, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3578	3705	
==>local $Z::oop{$id}{'op_ahead'} = $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanup\n" if $d <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	772	870	
==>e can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is jus <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	772	870	
==>e can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is jus <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1572	1703	
==>ath
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $curr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1572	1703	
==>ath
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $curr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1815	1921	
==>al,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9384	9573	
==>=> "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9384	9573	
==>=> "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9384	9573	
==>=> "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1403	1523	
==>\"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1403	1523	
==>\"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1403	1523	
==>\"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3934	4057	
==>$DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3934	4057	
==>$DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3934	4057	
==>$DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6432	6556	
==>mmar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6432	6556	
==>mmar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long nam <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	51	150	
==>as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $böse = $wolf a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2693	2818	
==>erm1>)<?p6ws>?\;
        { return { slurp => $() } }
RULE
*{'assign_open_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	235	335	
==>rammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	226	325	
==>rammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written li <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	155	254	
==>a suite of modules that will be used
as the base for Perl6's CPAN, also known as sixpan.

Please ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	290	384	
==>_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	290	384	
==>_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	761	875	
==>ift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	761	875	
==>ift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	463	571	
==>t.pod 8651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    tak <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11388	11604	
==>> 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_sourc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11388	11604	
==>> 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_sourc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	336	452	
==>e::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18640	18775	
==>invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18640	18775	
==>invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18640	18775	
==>invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1212	1352	
==>| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1212	1352	
==>| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1212	1352	
==>| confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1800	1893	
==>thread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1800	1893	
==>thread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	826	934	
==>($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	826	934	
==>($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	826	934	
==>($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8422	8557	
==>tplan?,
      Test::Builder::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	622	743	
==>tplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	622	743	
==>tplan?,
    Test::Builder::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15202	15336	
==>== -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15202	15336	
==>== -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15202	15336	
==>== -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5884	5986	
==>he fifth id');
is($Bar->class, $Class, '... $Bar refs to metaclass');
is($Bar->name, 'Bar', '... $Bar g <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2066	2158	
==>ad2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2066	2158	
==>ad2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1325	1430	
==>.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1325	1430	
==>.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1325	1430	
==>.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	777	896	
==>ods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	777	896	
==>ods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	777	896	
==>ods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11373	11478	
==>will not get inherited. This provides more predictable 
behavior to class consturction because it isolates <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11373	11478	
==>will not get inherited. This provides more predictable 
behavior to class consturction because it isolates <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11373	11478	
==>will not get inherited. This provides more predictable 
behavior to class consturction because it isolates <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1791	1886	
==>ese will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1791	1886	
==>ese will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4079	4191	
==>ject(exact => "\n", '\n');
  });

  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    return $S->force_ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2013	2123	
==>Bin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin d <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2013	2123	
==>Bin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin d <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5811	5905	
==>ubs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5869	5963	
==>ubs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4688	4794	
==>mespaces relative to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4688	4794	
==>mespaces relative to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4688	4794	
==>mespaces relative to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21167	21270	
==>xpression> <')'> <Statement>
    | <'for'> <'('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13580	13745	
==>int \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9764	9929	
==>int \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10600	10765	
==>int \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2590	2708	
==>ine";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2590	2708	
==>ine";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2590	2708	
==>ine";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12760	12858	
==>tem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12760	12858	
==>tem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12760	12858	
==>tem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1723	1823	
==>rgument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1723	1823	
==>rgument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1723	1823	
==>rgument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - cre <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	692	795	
==>::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10173	10314	
==>6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10173	10314	
==>6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10173	10314	
==>6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12499	12615	
==>ymtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12499	12615	
==>ymtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12499	12615	
==>ymtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4533	4655	
==>ode::access_hashref_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1311	1420	
==>~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$tod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1311	1420	
==>~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$tod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1311	1420	
==>~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$tod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4762	4900	
==>oles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4762	4900	
==>oles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4762	4900	
==>oles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8775	8960	
==>le ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8775	8960	
==>le ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8775	8960	
==>le ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	18	117	
==>r;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	18	117	
==>r;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	18	117	
==>r;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39346	39474	
==>eturn $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39346	39474	
==>eturn $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39346	39474	
==>eturn $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4844	4965	
==>ift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4844	4965	
==>ift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4844	4965	
==>ift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1340	1435	
==>PRIVMSG>s. Each time people say something (in public), the current
time and the text they said i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1340	1435	
==>PRIVMSG>s. Each time people say something (in public), the current
time and the text they said i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25741	25823	
==>_,_,_,_))).
flag_x(amat(_,flgs(_,_,_,x,_,_,_,_,_,_))).

%-------------------------- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	70	189	
==>:Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	68	187	
==>:Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7529	7627	
==>-> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_elemental(lookahead_not( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32383	32487	
==>l if
C<$other> does not have an identical header to the invocant relation.  This
method has an alias name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36933	37037	
==>l if
C<$other> does not have an identical header to the invocant relation.  This
method has an alias name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36223	36327	
==>l if
C<$other> does not have an identical header to the invocant relation.  This
method has an alias name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9947	10151	
==>}
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9947	10151	
==>}
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9947	10151	
==>}
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2629	2739	
==>map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.densi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2629	2739	
==>map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.densi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4047	4160	
==>turns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$dep <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4105	4218	
==>turns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$dep <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	548	638	
==>PTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haske <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	548	638	
==>PTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haske <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12903	13019	
==>::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12903	13019	
==>::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12903	13019	
==>::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2003	2106	
==>ber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2003	2106	
==>ber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2003	2106	
==>ber(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25311	25441	
==>elf->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25870	26000	
==>elf->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10422	10528	
==>$Object ], 
    '... $Bar class_precendence_list');
    
## does Bar get Object's singleton methods ..

is( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19997	20109	
==>,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20276	20388	
==>,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12422	12514	
==>'re looking at.

=head2 C<_is_comment>

  my $is_comment = $strap->_is_comment($line, \$comme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13844	13953	
==>-1]->family eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $tree->[-1]->{data} };
      m <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1038	1144	
==>o DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1038	1144	
==>o DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15173	15271	
==>$text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($comma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15173	15271	
==>$text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($comma <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9787	9877	
==>safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mods,$pat,$qo,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8187	8287	
==>object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1635	1733	
==>locate containers.



the Body is just a structure with three node forms: Var

(variable lookup), A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1569	1664	
==>locate containers.

the Body is just a structure with three node forms: Var
(variable lookup), A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1414	1511	
==>cy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1414	1511	
==>cy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1414	1511	
==>cy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14242	14394	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14242	14394	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14242	14394	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8165	8294	
==>n variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8165	8294	
==>n variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8165	8294	
==>n variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6058	6161	
==>ourse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6058	6161	
==>ourse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6058	6161	
==>ourse use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29289	29397	
==>e the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29289	29397	
==>e the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	458	564	
==>ort deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	458	564	
==>ort deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	458	564	
==>ort deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13868	13992	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13868	13992	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13868	13992	
==>a[$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8537	8648	
==>::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8537	8648	
==>::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8537	8648	
==>::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3804	3920	
==>e the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3804	3920	
==>e the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3804	3920	
==>e the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	88	199	
==>equire "lib/TestBuilder.pm";

$::TestBuilder->STORE('::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9137	9229	
==>, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2962	3054	
==>, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	364	455	
==>elf.subtract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Duration { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	88	196	
==>ut;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	88	196	
==>ut;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2537	2630	
==>e behavior otherwise.  The F<prove> utility's C<-v>
flag will set this.

=item C<$Test::Harnes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3937	4057	
==>at might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    loca <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3937	4057	
==>at might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    loca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1566	1656	
==>, "nows", &parse_subrule);
    $optable->addToken("term:<?", "term:", "nows", &parse_subrul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1274	1370	
==>_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1274	1370	
==>_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1274	1370	
==>_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1935	2102	
==>: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1715	1872	
==>: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1715	1872	
==>: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14497	14595	
==>($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14497	14595	
==>($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14497	14595	
==>($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3303	3432	
==>nce? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3303	3432	
==>nce? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3303	3432	
==>nce? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1218	1317	
==>r is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1218	1317	
==>r is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, St <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	155	242	
==>ERSAL::moniker;
use String::Escape qw/quote printable/;
use Blondie::Reducer::DuplicateF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	510	642	
==>ain
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_insta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	510	642	
==>ain
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_insta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	510	642	
==>ain
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17295	17399	
==>= ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17295	17399	
==>= ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17295	17399	
==>= ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	251	366	
==>ASS, "associations", "Set", { companion => "class" });
Has($?CLASS, "reverse_assocs", "Set", { companion => "dest" } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2614	2714	
==>).pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2614	2714	
==>).pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2614	2714	
==>).pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1019	1143	
==>me           ||= $ENV{PUGS_BUILD_CONFIG} || $config_default;
    my $stream;
    
    if (!-e $filename) {
        require Fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3425	3518	
==>@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library i <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3425	3518	
==>@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2866	2980	
==>nfig;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $build <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1850	1943	
==>e runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1939	2032	
==>e runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3484	3640	
==>supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3484	3640	
==>supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3484	3640	
==>supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3144	3251	
==>s per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burs <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3144	3251	
==>s per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burs <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1779	1875	
==>-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{'name <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3540	3638	
==>6;
	    my($pil_code,$warn) = Perl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !de <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13519	13609	
==>cter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13519	13609	
==>cter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C< <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15538	15649	
==>$width - length($te));
    my $ml = "";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_N <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3562	3662	
==>eturns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3562	3662	
==>eturns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	2	97	
==>b PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	2	97	
==>b PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	2	97	
==>b PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4321	4518	
==>$match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4862	5059	
==>$match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5326	5523	
==>$match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    = <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1653	1779	
==>t {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex R <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1653	1779	
==>t {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex R <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3019	3128	
==>y want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.config.

Avai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2453	2567	
==>rn $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my $su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	72	166	
==>e
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symb <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	72	166	
==>e
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5752	5867	
==>backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5752	5867	
==>backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5752	5867	
==>backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITI <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13342	13440	
==>limits the range of
  perl versions it will work with, and raises maintenance concerns.
  That said <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20847	20943	
==>which
I recommend above all others for production use.

Most of the other (near term) third party <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20847	20943	
==>which
I recommend above all others for production use.

Most of the other (near term) third party <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4442	4576	
==>own problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx: <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4442	4576	
==>own problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6445	6556	
==>rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6445	6556	
==>rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4175	4276	
==>b!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4175	4276	
==>b!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4175	4276	
==>b!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5963	6122	
==>te_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5963	6122	
==>te_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5963	6122	
==>te_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17130	17268	
==>ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17409	17547	
==>ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2980	3089	
==>[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2980	3089	
==>[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2980	3089	
==>[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8863	9109	
==>tch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8863	9109	
==>tch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8863	9109	
==>tch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3170	3289	
==>lf->{extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4582	4681	
==>ew', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_ass <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4582	4681	
==>ew', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8779	8908	
==>^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8779	8908	
==>^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8779	8908	
==>^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6063	6161	
==>ue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6063	6161	
==>ue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6063	6161	
==>ue::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->ite <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2095	2195	
==>t up in Perl5

=head1 NAME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1063	1156	
==>:DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
mar <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1063	1156	
==>:DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
mar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	162	275	
==>del::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	162	275	
==>del::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	162	275	
==>del::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaM <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	157	282	
==>ass = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36855	36952	
==>o implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36855	36952	
==>o implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8378	8562	
==>t_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8378	8562	
==>t_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8378	8562	
==>t_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3327	3452	
==>ink to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3327	3452	
==>ink to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3327	3452	
==>ink to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11057	11251	
==>=> sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11057	11251	
==>=> sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11057	11251	
==>=> sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7260	7419	
==>gth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s neede <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7260	7419	
==>gth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s neede <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7260	7419	
==>gth; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s neede <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1181	1368	
==>tring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1181	1368	
==>tring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1181	1368	
==>tring( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5691	5804	
==>, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safefree <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	801	896	
==>STROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	827	922	
==>STROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	514	639	
==>eadline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_pa <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	514	639	
==>eadline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_pa <==
3	/Users/nnunley/pugs/util/package-osx.pl	8517	8625	
==>an3/Pugs::Doc::Run.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($de <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2031	2116	
==>nv();

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	30	132	
==>se warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purposes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15873	15973	
==>ll raise a condition or error that,
while resembling a message that would be shown to a user, is in f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15873	15973	
==>ll raise a condition or error that,
while resembling a message that would be shown to a user, is in f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8999	9098	
==>@xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8999	9098	
==>@xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8999	9098	
==>@xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4257	4360	
==>od('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4257	4360	
==>od('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4257	4360	
==>od('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2181	2302	
==>ty 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2181	2302	
==>ty 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17187	17300	
==>ash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8705	8856	
==>>from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8705	8856	
==>>from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8705	8856	
==>>from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7007	7096	
==>ws><expr>; }
macro statement_control:<a_call> (Match $m --> Match) is parsed(rx:perl5/<sim <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3204	3362	
==>pture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3215	3373	
==>pture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1869	2000	
==>op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_nam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6046	6172	
==>d end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - thi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6046	6172	
==>d end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - thi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	261	376	
==>::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	478	590	
==>iable outside of this function
      // and refer to it via the closure, then things don\'t work right
      // - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	478	590	
==>iable outside of this function
      // and refer to it via the closure, then things don\'t work right
      // - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	478	590	
==>iable outside of this function
      // and refer to it via the closure, then things don\'t work right
      // - <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23819	23917	
==>constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28371	28469	
==>constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27193	27291	
==>constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11729	11849	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11729	11849	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11729	11849	
==>if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array object!");
        }

        va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21634	21782	
==>@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21634	21782	
==>@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21634	21782	
==>@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11551	11682	
==>erl6::Scalar::Alias', " .
            "\\" . _emit( $n->{exp2} );
    }

    if ( exists $n->{exp2}{bare_block} ) {
        # $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4732	4837	
==>}

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for peopl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4732	4837	
==>}

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for peopl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	441	552	
==>se keys are the names
    # of variables, and whose values are the 
    # expected types of those objects (or po <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15200	15304	
==>mbination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18677	18781	
==>mbination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	97	206	
==>ing algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a strea <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	97	206	
==>ing algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a strea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40314	40432	
==>$this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40314	40432	
==>$this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40314	40432	
==>$this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	693	812	
==>$2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n| <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23760	23857	
==>TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22276	22373	
==>TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tu <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3840	3959	
==>me}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $valu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	326	421	
==>length content_language
    title user_agent server from referer
    www_authenticate authorizat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	326	421	
==>length content_language
    title user_agent server from referer
    www_authenticate authorizat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10520	10670	
==>->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10520	10670	
==>->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10520	10670	
==>->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	381	491	
==>, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	381	491	
==>, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	381	491	
==>, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13481	13623	
==>_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13481	13623	
==>_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13481	13623	
==>_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annot <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21865	21960	
==>Locale::KeyedText can be given input that says what resource
files it should use and in what ord <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21865	21960	
==>Locale::KeyedText can be given input that says what resource
files it should use and in what ord <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5579	5712	
==>m, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5579	5712	
==>m, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5579	5712	
==>m, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6653	6799	
==>Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6653	6799	
==>Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6653	6799	
==>Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5905	6025	
==>ift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5905	6025	
==>ift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5905	6025	
==>ift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return spr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	629	746	
==>lass->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	629	746	
==>lass->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	629	746	
==>lass->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	702	812	
==>ol::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	702	812	
==>ol::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	702	812	
==>ol::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1749	1874	
==>lass->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1749	1874	
==>lass->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1749	1874	
==>lass->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) {                      
        $me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34408	34497	
==>amed
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38958	39047	
==>amed
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1509	1629	
==>ady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1509	1629	
==>ady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1509	1629	
==>ady_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1312	1435	
==>bug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1312	1435	
==>bug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	397	492	
==>dump data as xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4308	4401	
==>s $Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6210	6303	
==>s $Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18348	18552	
==>s "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18348	18552	
==>s "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18348	18552	
==>s "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24949	25044	
==>ember tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29501	29596	
==>ember tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28413	28508	
==>ember tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5450	5572	
==>ist::splice  safe   (rw!Array, Int, Int, List)\
\\n   Int       pre     push    safe   (rw!Array, List)\
\\n   Int       pr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9620	9717	
==>ils, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPT <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9678	9775	
==>ils, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPT <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6483	6624	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6676	6817	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	971	1076	
==>rent Regexp::Parser Object
# ast isnt really what we want long-term.  If Perl6::Rule::Parser was
# working <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8687	8793	
==>[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oc <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6367	6462	
==>a document identified by a URL. The document is printed
to the selected default filehandle for o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6367	6462	
==>a document identified by a URL. The document is printed
to the selected default filehandle for o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9104	9221	
==>.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9104	9221	
==>.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9104	9221	
==>.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35284	35383	
==>n> except that this method will fail if any of its source Relations
have attributes in common; it wi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39834	39933	
==>n> except that this method will fail if any of its source Relations
have attributes in common; it wi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39394	39493	
==>n> except that this method will fail if any of its source Relations
have attributes in common; it wi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11390	11495	
==>0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11390	11495	
==>0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1228	1324	
==>o our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1228	1324	
==>o our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1228	1324	
==>o our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGN <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31788	31887	
==>n (and prefers) language A but also understands
language B.  Later on, if for example the first libr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31788	31887	
==>n (and prefers) language A but also understands
language B.  Later on, if for example the first libr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	296	391	
==>tallsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

system( qw[rm -rf], $confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16523	16635	
==>d(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16523	16635	
==>d(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16523	16635	
==>d(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14685	14862	
==>- GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.mi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7457	7567	
==>S_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell-src -any';
    }

    if (grep /^-DPUGS_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5001	5102	
==>PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator->to <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4076	4192	
==>te;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    els <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4076	4192	
==>te;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    els <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19038	19133	
==>X - obsolete?


package Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3382	3534	
==>$attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3382	3534	
==>$attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3382	3534	
==>$attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $meth <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16414	16537	
==>s.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16414	16537	
==>s.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5308	5405	
==>our class(Role), which is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5860	5980	
==><<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5860	5980	
==><<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5860	5980	
==><<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7315	7454	
==>.'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7303	7442	
==>.'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1554	1660	
==>build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1554	1660	
==>build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1554	1660	
==>build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8163	8287	
==>ew(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? ) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	380	494	
==>ew(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	380	494	
==>ew(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	1	100	
==>package Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	1	100	
==>package Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	1	100	
==>package Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15453	15554	
==>le = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15453	15554	
==>le = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15453	15554	
==>le = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$label}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6706	6842	
==>= Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6706	6842	
==>= Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6706	6842	
==>= Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4849	4944	
==>on for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4989	5084	
==>on for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1408	1527	
==>t_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1408	1527	
==>t_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1488	1607	
==>t_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4321	4423	
==>e::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4321	4423	
==>e::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4321	4423	
==>e::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17111	17258	
==>el, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17111	17258	
==>el, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17111	17258	
==>el, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8876	8982	
==>$code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8876	8982	
==>$code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8876	8982	
==>$code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['de <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1025	1133	
==>name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "opti <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1025	1133	
==>name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "opti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7767	7873	
==>ift;
	my $prim = shift;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5943	6070	
==>d;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5943	6070	
==>d;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5943	6070	
==>d;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14117	14328	
==>ble} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14117	14328	
==>ble} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14117	14328	
==>ble} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5433	5600	
==>' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5433	5600	
==>' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5433	5600	
==>' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1316	1434	
==>erator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did not understa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1050	1166	
==>it";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1050	1166	
==>it";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1050	1166	
==>it";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1830	1950	
==>an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1830	1950	
==>an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1830	1950	
==>an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Per <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3208	3317	
==>pan ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3208	3317	
==>pan ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	272	382	
==>Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	272	382	
==>Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	272	382	
==>Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifie <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13711	13823	
==>ression :words {  # see 11.2
      <MemberExpression> <Arguments>
    | <CallExpression> <Arguments>
    | <CallE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15744	15844	
==>sign of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15744	15844	
==>sign of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6417	6531	
==>f @hex > 1;
        return $S->force_object(anyof_char => chr(hex $h), "\\x[$h]");
      }

      return $S->object <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	183	285	
==>fficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) { <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	183	285	
==>fficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7524	7661	
==>ify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7524	7661	
==>ify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7524	7661	
==>ify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9292	9418	
==>perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => [ command-line a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3520	3626	
==>Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3395	3496	
==>Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4876	5039	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4876	5039	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4876	5039	
==>ethods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8076	8188	
==>eturn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8076	8188	
==>eturn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8460	8630	
==>k>), 
                        symbol->new("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	395	499	
==>|
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	395	499	
==>|
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12335	12434	
==>the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12335	12434	
==>the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite <==
3	/Users/nnunley/pugs/util/package-osx.pl	2544	2633	
==>romano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3923	4048	
==>tch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $matchObj->position( $matchObj->from() + 1);
  } <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2045	2189	
==>as well
        my $archive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1308	1434	
==>lf!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1308	1434	
==>lf!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6401	6523	
==>ource =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6401	6523	
==>ource =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6401	6523	
==>ource =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source = <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2399	2512	
==>nt {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2399	2512	
==>nt {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	32	136	
==>lass Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26417	26512	
==>ponding projection of
each tuple), but that any duplicates following the projection have been
el <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30969	31064	
==>ponding projection of
each tuple), but that any duplicates following the projection have been
el <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29971	30066	
==>ponding projection of
each tuple), but that any duplicates following the projection have been
el <==
3	/Users/nnunley/pugs/util/config_h.pl	1213	1318	
==>()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => m ()
main = $([| re <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12589	12680	
==>ped></span>,</td>
	      <td class="num tests_unexpect"><span title="<tmpl_var name=unexpect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2245	2339	
==>ttr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2245	2339	
==>ttr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2245	2339	
==>ttr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10983	11118	
==>patch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10983	11118	
==>patch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10983	11118	
==>patch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1969	2152	
==>_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1969	2152	
==>_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5953	6069	
==>ject(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9421	9518	
==>m_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9421	9518	
==>m_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_templa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1883	2006	
==>a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1883	2006	
==>a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3492	3609	
==>{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3492	3609	
==>{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3492	3609	
==>{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7824	7943	
==>d slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7824	7943	
==>d slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reve <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7824	7943	
==>d slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5528	5633	
==>many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5528	5633	
==>many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5528	5633	
==>many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7881	8036	
==>@arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7881	8036	
==>@arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7881	8036	
==>@arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#argumen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11091	11241	
==>al($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11091	11241	
==>al($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11091	11241	
==>al($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5243	5393	
==>astcloseparen = SvOK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(s <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1725	1832	
==>lf->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack fo <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1725	1832	
==>lf->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	130	273	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	130	273	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	130	273	
==>se warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9890	10005	
==>V{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9890	10005	
==>V{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9890	10005	
==>V{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4439	4540	
==>osed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4439	4540	
==>osed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9490	9668	
==>erl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9490	9668	
==>erl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9490	9668	
==>erl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9368	9484	
==>fter};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9368	9484	
==>fter};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2824	2928	
==>, "C", " in character class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12270	12370	
==>e )

Set the specified header to the given value, but only if no previous
value for that field is set <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12270	12370	
==>e )

Set the specified header to the given value, but only if no previous
value for that field is set <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16296	16419	
==>multi sub round_gen(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi sub round_gen(Num $n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	824	937	
==>better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	824	937	
==>better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3607	3710	
==>PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3607	3710	
==>PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3607	3710	
==>PIL2JS" }

# We load the operator definitions lastly because they'll override *our*
# operators.
use Pre <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1435	1584	
==>r .= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14181	14280	
==>on") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14181	14280	
==>on") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./: <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	358	456	
==>HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	358	456	
==>HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4973	5115	
==>1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9288	9380	
==>};
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3113	3205	
==>};
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3056	3266	
==>less \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                named => {},
                m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14167	14274	
==>ame and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14167	14274	
==>ame and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5232	5357	
==>= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5232	5357	
==>= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5232	5357	
==>= +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4332	4448	
==>ckslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuff <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	162	272	
==>t getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	162	272	
==>t getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11351	11480	
==>my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11351	11480	
==>my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11351	11480	
==>my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = ea <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9712	9854	
==>LED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15791	15915	
==>' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15785	15909	
==>' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        re <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2291	2471	
==>ype_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw",
                          } ];
    }
    else {
        retu <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	23	129	
==>use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
o <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	23	129	
==>use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5675	5798	
==>y @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5675	5798	
==>y @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5675	5798	
==>y @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8520	8636	
==>arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8520	8636	
==>arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8520	8636	
==>arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].F <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2129	2233	
==>ool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2117	2221	
==>ool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pug <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3405	3497	
==>\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $1 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15310	15448	
==>sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a better want
    #if want ~~ rx:P5/^Item/ {
    #    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12777	12872	
==>. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &cod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12835	12930	
==>. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2959	3157	
==>Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2959	3157	
==>Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2959	3157	
==>Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	961	1062	
==>er::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	961	1062	
==>er::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27051	27152	
==>atch {
    my($len,$a)=@_;
    return MatchX->new()->set_as_failed() if !defined $a;
    my($strA,$npo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7279	7410	
==>L::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7279	7410	
==>L::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7279	7410	
==>L::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1510	1643	
==>:PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type i <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1510	1643	
==>:PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3772	3859	
==>ntal(W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	338	452	
==>cumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'pos <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	41	147	
==>ct;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Cl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	39	145	
==>ct;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17220	17328	
==>"Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17220	17328	
==>"Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17220	17328	
==>"Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	315	424	
==>iving (Show, Eq, Ord)
method Show {
    ...
}

method &infix:«==»($self, Perl::Param $other) {
    ...
}

me <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1231	1332	
==>}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id' <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1231	1332	
==>}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6116	6242	
==>y $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17103	17222	
==>Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17103	17222	
==>Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	812	917	
==>ing $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10122	10217	
==>d using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warning <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10122	10217	
==>d using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23807	23911	
==>$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23807	23911	
==>$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23807	23911	
==>$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4435	4551	
==>$0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line en <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4435	4551	
==>$0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line en <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10030	10129	
==>etc", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creating directories " . join(", ", ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2396	2493	
==>nline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2396	2493	
==>nline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2396	2493	
==>nline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11643	11729	
==>",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11643	11729	
==>",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11643	11729	
==>",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8417	8518	
==>UNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8417	8518	
==>UNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8417	8518	
==>UNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = " <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	726	825	
==>slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this cl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	726	825	
==>slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11730	11883	
==>lf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11730	11883	
==>lf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11730	11883	
==>lf->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3558	3673	
==>es of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7035	7150	
==>es of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5992	6107	
==>es of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12237	12452	
==>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12237	12452	
==>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12237	12452	
==>items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", sc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4692	4827	
==>tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps diffing raw YAML results <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9026	9128	
==>ack

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9026	9128	
==>ack

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1542	1643	
==>$Config::Config{_exe}";
    print STDERR "done.\n" if $Config{verbose};
}

sub inline {
    print STDE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	12	135	
==>l6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	12	135	
==>l6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	12	135	
==>l6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16693	16801	
==>ftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_CODE {
    my($pkg)=@_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22712	22802	
==>he Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22712	22802	
==>he Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3628	3727	
==>ch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'n <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3628	3727	
==>ch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4443	4622	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4443	4622	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4443	4622	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2048	2154	
==>rror_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	57	155	
==>rror_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	57	155	
==>rror_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	401	516	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	401	516	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	401	516	
==>$msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	542	641	
==>s";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	542	641	
==>s";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34020	34114	
==>2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1247	1357	
==>= $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1247	1357	
==>= $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1456	1566	
==>= $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument after named ones <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16741	16838	
==>> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> fil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16741	16838	
==>> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1941	2039	
==>d;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1941	2039	
==>d;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1941	2039	
==>d;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18176	18331	
==>".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18176	18331	
==>".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18176	18331	
==>".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9500	9617	
==>%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9488	9605	
==>%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1288	1378	
==>clare($node) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is duplicated, an <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2021	2166	
==>S.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2021	2166	
==>S.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Reque <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3383	3494	
==>/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
  );
  $cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12619	12746	
==>'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12619	12746	
==>'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12619	12746	
==>'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns de <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1269	1420	
==>yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parse <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1269	1420	
==>yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parse <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19607	19707	
==>ram => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2485	2582	
==>s to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2485	2582	
==>s to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15277	15474	
==>lues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15277	15474	
==>lues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15277	15474	
==>lues;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shif <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7614	7770	
==>') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7614	7770	
==>') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9548	9691	
==>ush @s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10406	10644	
==>ion => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	946	1162	
==>ion => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	946	1162	
==>ion => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6537	6650	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10014	10127	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9106	9219	
==>e heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7333	7485	
==>| <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1934	2031	
==>me!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1934	2031	
==>me!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4132	4252	
==>ed $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4132	4252	
==>ed $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4132	4252	
==>ed $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3689	3802	
==>idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3689	3802	
==>idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3689	3802	
==>idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2141	2233	
==>postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2141	2233	
==>postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2141	2233	
==>postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	42	161	
==>method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	42	161	
==>method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	42	161	
==>method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24055	24152	
==>: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # method labe <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14446	14538	
==>input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $string <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14446	14538	
==>input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $string <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7862	7960	
==>rder ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7595	7690	
==>rder ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] ) <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	78	169	
==>ackend::C;
use Blondie::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Backend::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5581	5698	
==>ault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5581	5698	
==>ault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5581	5698	
==>ault}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8160	8269	
==>CH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8160	8269	
==>CH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8160	8269	
==>CH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!") <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	170	334	
==>->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&say'),
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3368	3487	
==>rse =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3368	3487	
==>rse =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    re <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	318	436	
==>g support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	318	436	
==>g support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12646	12740	
==>f $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12646	12740	
==>f $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12646	12740	
==>f $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	991	1110	
==>s Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4469	4588	
==>s Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	279	431	
==>%hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or erro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	379	528	
==>%hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	863	1012	
==>%hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1785	1900	
==>*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1785	1900	
==>*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19865	19986	
==>, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16286	16407	
==>, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25401	25481	
==>E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3758	3885	
==>dd_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3758	3885	
==>dd_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3758	3885	
==>dd_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3779	3890	
==>@args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3779	3890	
==>@args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3779	3890	
==>@args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be subs <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	465	565	
==>e the
`is primitive` trait.

Please also declare whether the function can be used in a safe
context ( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1316	1414	
==>Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1316	1414	
==>Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13515	13641	
==>j_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13515	13641	
==>j_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13515	13641	
==>j_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) || <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8019	8168	
==>@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8031	8180	
==>@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless def <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	499	591	
==>IB::Repository>, L<JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Bou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1046	1135	
==>,'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1046	1135	
==>,'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1046	1135	
==>,'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21301	21425	
==>) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21301	21425	
==>) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21301	21425	
==>) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	507	682	
==>"";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_lin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	507	682	
==>"";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_lin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11124	11212	
==>pe_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_escape_sequence(char(C)) --> " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25741	25841	
==>s not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25741	25841	
==>s not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6669	6753	
==>Roles COMPLETE
## ------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2417	2515	
==>rs () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2417	2515	
==>rs () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	871	967	
==>e that methods are bound into the compiled Class (the Type object)
when they are included into th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1782	1892	
==>y(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1782	1892	
==>y(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1782	1892	
==>y(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	534	657	
==>_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	534	657	
==>_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	534	657	
==>_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10182	10368	
==>ds'))
                  ->remove($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opaque $self:) retur <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3752	3855	
==>nce );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3752	3855	
==>nce );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1639	1746	
==>unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1639	1746	
==>unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1639	1746	
==>unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15659	15795	
==>};
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15659	15795	
==>};
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15659	15795	
==>};
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	11	114	
==>l none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	11	114	
==>l none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	11	114	
==>l none one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24653	24754	
==>'s "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29205	29306	
==>'s "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	166	260	
==>'new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	166	260	
==>'new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	166	260	
==>'new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5508	5604	
==>pt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5508	5604	
==>pt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5508	5604	
==>pt file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3547	3727	
==>$ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3547	3727	
==>$ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7310	7412	
==>eturns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7310	7412	
==>eturns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4484	4666	
==>match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4347	4520	
==>match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5540	5644	
==>n|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17221	17322	
==>ow destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17221	17322	
==>ow destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17221	17322	
==>ow destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	862	982	
==>] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	862	982	
==>] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19269	19381	
==>eason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, we save l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7477	7576	
==>`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" oper <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7477	7576	
==>`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" oper <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2987	3179	
==>ure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2987	3179	
==>ure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37487	37575	
==>ect>.

=item C<intersection (Relation::Example *@others) returns Relation::Example>

This <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15340	15446	
==>ueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15340	15446	
==>ueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3712	3833	
==>ub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3712	3833	
==>ub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3712	3833	
==>ub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11060	11167	
==>>{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous}, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11060	11167	
==>>{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous}, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11060	11167	
==>>{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8125	8264	
==>(other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8125	8264	
==>(other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8125	8264	
==>(other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array obje <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8411	8529	
==>e current test.
        my @failed = grep { !$results{details}[$_-1]{ok} }
                     1..@{$results{details}} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	540	650	
==>arams::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1024	1134	
==>arams::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6039	6129	
==>self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6039	6129	
==>self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6039	6129	
==>self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13406	13515	
==>:obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13406	13515	
==>:obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13406	13515	
==>:obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9842	9949	
==>sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9842	9949	
==>sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9842	9949	
==>sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5452	5559	
==>= .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5452	5559	
==>= .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30157	30248	
==>tion::Example's header, in which case it returns the identity-one
Relation::Example or the i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6003	6121	
==>thod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6003	6121	
==>thod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6003	6121	
==>thod reverse(*@things is copy:) {
  # Hack, should of course use context info, but that's not here yet.
  if @things == <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1083	1205	
==>ess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1288	1410	
==>ess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1349	1471	
==>ess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15351	15487	
==>'text')} 
                $beg->look_down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::El <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	43	160	
==>e strict;
use warnings;
use Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $clas <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9543	9654	
==>=> $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9543	9654	
==>=> $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $sp <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2578	2701	
==>( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.ele <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2578	2701	
==>( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.ele <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2806	2922	
==>R::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5496	5615	
==>de "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5496	5615	
==>de "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5496	5615	
==>de "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13217	13317	
==>le->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13217	13317	
==>le->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13217	13317	
==>le->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3136	3297	
==>e : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3136	3297	
==>e : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3136	3297	
==>e : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	836	960	
==>iso8601_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1149	1259	
==>=> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2314	2424	
==>=> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6799	6898	
==>() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6799	6898	
==>() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6799	6898	
==>() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $ <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	22	110	
==>simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	40	128	
==>simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6993	7138	
==>on
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7457	7602	
==>on
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7063	7197	
==>uildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32450	32542	
==>ain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32450	32542	
==>ain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1271	1370	
==>, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1271	1370	
==>, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1271	1370	
==>, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @I <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4693	4813	
==>@.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 ];
        }
    }
} <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4693	4813	
==>@.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 ];
        }
    }
} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	478	591	
==>6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12112	12239	
==>der::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2514	2627	
==>der::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2514	2627	
==>der::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31490	31680	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31490	31680	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31490	31680	
==>" . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1046	1151	
==>tching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1046	1151	
==>tching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1960	2075	
==>ame) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1960	2075	
==>ame) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1960	2075	
==>ame) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9601	9725	
==>escription = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $description, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	189	305	
==>escription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	189	305	
==>escription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28872	29035	
==>lems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28872	29035	
==>lems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28872	29035	
==>lems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pack <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	515	627	
==>if ( $matchObj not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar) <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1448	1555	
==>::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1448	1555	
==>::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6054	6163	
==>s.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6054	6163	
==>s.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6054	6163	
==>s.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9401	9540	
==>rgs) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9401	9540	
==>rgs) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9401	9540	
==>rgs) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    v <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8595	8691	
==>lements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8595	8691	
==>lements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3082	3210	
==>|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3082	3210	
==>|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3082	3210	
==>|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9454	9602	
==>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9454	9602	
==>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9454	9602	
==>new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4624	4726	
==>ssed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4624	4726	
==>ssed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4624	4726	
==>ssed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Ro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9716	9812	
==>e
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Construc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9716	9812	
==>e
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Construc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	865	964	
==>s that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	865	964	
==>s that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	865	964	
==>s that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7256	7368	
==>.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7256	7368	
==>.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7256	7368	
==>.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to determine <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1989	2115	
==>ies{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1989	2115	
==>ies{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9391	9493	
==>$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11494	11683	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11494	11683	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11494	11683	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "ar <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14593	14745	
==>/css/perl.css"
                                   ));
        if (exists $index->{$syn}) {
        # This makes later processing easier
        $sobj->ob <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5161	5294	
==>/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5161	5294	
==>/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12438	12605	
==>xp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better writte <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2896	3026	
==>d error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2896	3026	
==>d error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12138	12313	
==>ms }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12138	12313	
==>ms }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12138	12313	
==>ms }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec-> <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11440	11541	
==>$data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until o <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11440	11541	
==>$data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6790	6891	
==>m B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6790	6891	
==>m B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8987	9088	
==>m B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALS <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	651	743	
==>M::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content i <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	651	743	
==>M::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1042	1166	
==>ail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.* <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	999	1120	
==>ail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.* <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5738	5836	
==>most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5738	5836	
==>most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2291	2397	
==>y
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2291	2397	
==>y
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2291	2397	
==>y
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2753	2857	
==>to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2753	2857	
==>to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2753	2857	
==>to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5200	5327	
==>rvedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boolean'>
    | <'export'>
    | <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	723	843	
==>ariables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	723	843	
==>ariables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15034	15228	
==>w;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15034	15228	
==>w;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15034	15228	
==>w;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $arra <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4708	4867	
==>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4708	4867	
==>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17909	18017	
==>oto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Litera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6455	6551	
==>IL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6455	6551	
==>IL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6455	6551	
==>IL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27050	27151	
==>hat C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31602	31703	
==>hat C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30658	30759	
==>hat C<project> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	628	743	
==>X: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|co <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	730	837	
==>$lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10951	11051	
==>f.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%opt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10951	11051	
==>f.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9872	10022	
==>m;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9872	10022	
==>m;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9872	10022	
==>m;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	95	205	
==>_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	95	205	
==>_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	95	205	
==>_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6090	6205	
==>})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6090	6205	
==>})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6090	6205	
==>})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1756	1879	
==>nce || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1756	1879	
==>nce || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1756	1879	
==>nce || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4673	4770	
==>e_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4673	4770	
==>e_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4673	4770	
==>e_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36896	37002	
==>a::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric conte <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36896	37002	
==>a::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric conte <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36896	37002	
==>a::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric conte <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2262	2361	
==>og->{ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	355	469	
==>LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	355	469	
==>LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has <==
3	/Users/nnunley/pugs/util/package-osx.pl	7475	7584	
==>:Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Spec::Documentation.3
        /usr/local/man/man3/Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3805	3906	
==>:opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3805	3906	
==>:opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3805	3906	
==>:opaque_instance_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3915	4089	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3915	4089	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3915	4089	
==>ion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3357	3468	
==>attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6834	6945	
==>attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5791	5902	
==>attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicat <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	505	619	
==>return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * univers <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	505	619	
==>return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * univers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15160	15268	
==>.  C<< /</ >> is equivalent to
C</(?!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
tha <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4628	4725	
==>t );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $sele <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4628	4725	
==>t );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $sele <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6257	6433	
==>elf->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5765	5941	
==>elf->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30656	30755	
==>e don't know. What we know for
sure is, that it was inspired by Larry Wall's TEST script that came
w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2231	2332	
==>he s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2231	2332	
==>he s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2231	2332	
==>he s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11838	12037	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11838	12037	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11838	12037	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2793	2917	
==>hing namespace
    List        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non-lazily evaluated Perl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3719	3818	
==>s really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3719	3818	
==>s really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7155	7273	
==>>lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7155	7273	
==>>lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7155	7273	
==>>lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3221	3348	
==>kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3221	3348	
==>kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3221	3348	
==>kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14057	14168	
==>g ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local string ta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	853	957	
==>ckages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	853	957	
==>ckages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19007	19103	
==>> $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation::Example $other!) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8074	8248	
==>_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8074	8248	
==>_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8074	8248	
==>_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14733	14822	
==>>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entiti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14733	14822	
==>>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entiti <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2363	2482	
==>n arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varle <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2363	2482	
==>n arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varle <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1087	1183	
==>, 'Disabled' if not $Config{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV) {
    @ARGV = sor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3557	3684	
==>m{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3557	3684	
==>m{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3557	3684	
==>m{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless def <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	58	190	
==>ict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      m <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1582	1673	
==>n the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookboo <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1582	1673	
==>n the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookboo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11906	12045	
==>my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11906	12045	
==>my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!hand <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16663	16766	
==>ring = CALLER::<$_> --> Str )

Returns the input string after converting each character to it's lowercas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9721	9867	
==>unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9721	9867	
==>unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9721	9867	
==>unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3509	3619	
==>0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3509	3619	
==>0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3509	3619	
==>0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the cod <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6040	6144	
==>.
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\\A".
p5_eleme <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1079	1173	
==>ity.

The complementary functions are emulated using iterations.

- `new( closure_next => sub { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1079	1173	
==>ity.

The complementary functions are emulated using iterations.

- `new( closure_next => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8855	9098	
==>>things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8855	9098	
==>>things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8855	9098	
==>>things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1298	1401	
==>cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1298	1401	
==>cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1298	1401	
==>cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or war <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17230	17351	
==>intf ($fmt, *@args) is primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6110	6195	
==><from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6110	6195	
==><from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3214	3330	
==>treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3214	3330	
==>treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3214	3330	
==>treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9033	9199	
==>count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9033	9199	
==>count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9033	9199	
==>count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2584	2708	
==>"Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	349	463	
==>"Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	349	463	
==>"Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12201	12347	
==>$estatus, $wstatus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	419	531	
==>ts OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported by p5 b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	397	505	
==>ts OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported by p5 b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6323	6434	
==>\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6323	6434	
==>\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6323	6434	
==>\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3885	4002	
==>}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3885	4002	
==>}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3885	4002	
==>}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1288	1401	
==>ontext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL give <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1288	1401	
==>ontext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL give <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1288	1401	
==>ontext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL give <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1944	2077	
==>editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1944	2077	
==>editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1944	2077	
==>editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5679	5805	
==>es;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5679	5805	
==>es;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5679	5805	
==>es;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	609	715	
==>w( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	609	715	
==>w( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	609	715	
==>w( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13222	13343	
==>eptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13222	13343	
==>eptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13222	13343	
==>eptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5841	5949	
==>thod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5841	5949	
==>thod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5841	5949	
==>thod {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	675	810	
==>ate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	675	810	
==>ate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	675	810	
==>ate an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12728	12829	
==>que_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12728	12829	
==>que_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12728	12829	
==>que_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1249	1369	
==>s do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompres <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4517	4614	
==>quivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4517	4614	
==>quivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15648	15775	
==>o_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15648	15775	
==>o_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15648	15775	
==>o_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	931	1105	
==>lock->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::concat(\n" . 
               ( j <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12640	12803	
==>} else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX ho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12640	12803	
==>} else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX ho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36953	37060	
==>urce relations have identical headings, for these their joining
degenerates to a C<intersection>.  In any si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41502	41609	
==>urce relations have identical headings, for these their joining
degenerates to a C<intersection>.  In any si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41125	41232	
==>urce relations have identical headings, for these their joining
degenerates to a C<intersection>.  In any si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	448	555	
==>is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * severa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	448	555	
==>is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * severa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	448	555	
==>is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * severa <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1152	1297	
==>aram('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "hig <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12034	12131	
==>arameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the para <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12034	12131	
==>arameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the para <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3022	3132	
==>t => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	233	343	
==>T:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	439	549	
==>T:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	778	878	
==>PSIS

    use Blondie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Fo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11163	11255	
==>, :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $l <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11163	11255	
==>, :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1405	1505	
==>zy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1405	1505	
==>zy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1405	1505	
==>zy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8885	9000	
==>ail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8574	8686	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unle <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	502	603	
==>Usage: use re::override-flavor" unless $flavor;

    unless ($inserted++) {
        regexp_exechook_in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4651	4796	
==>ch::Ratchet';
        return;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = sh <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2637	2847	
==>s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2637	2847	
==>s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5391	5480	
==>ead($head);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGolfScore <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	11	113	
==>doc::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abstra <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	11	113	
==>doc::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abstra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36975	37071	
==>head2 flags

Family: flags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1990	2082	
==>f:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1990	2082	
==>f:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1990	2082	
==>f:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	406	509	
==>jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	406	509	
==>jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	406	509	
==>jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7595	7700	
==>dbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7595	7700	
==>dbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7595	7700	
==>dbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1145	1254	
==>t->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	884	988	
==>t->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1089	1193	
==>t->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3313	3445	
==>t = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4162	4294	
==>t = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13746	13861	
==>_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  err_bracket:
    parse_error(mob, po <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4689	4804	
==>my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".(($?& <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36464	36557	
==>ssage( $message! )>

This method takes a (machine-readable) Message object as its positional
p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36464	36557	
==>ssage( $message! )>

This method takes a (machine-readable) Message object as its positional
p <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3241	3358	
==>j;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top_obj) = @_;
    $path = "$self->{base}/$path";

    u <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10104	10208	
==>s in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10104	10208	
==>s in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	749	845	
==>d string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	749	845	
==>d string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	749	845	
==>d string comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6857	6980	
==>rgs;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6857	6980	
==>rgs;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6857	6980	
==>rgs;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10405	10529	
==>ed>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the following interface <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10405	10529	
==>ed>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the following interface <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10405	10529	
==>ed>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the following interface <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3812	3964	
==>n array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3812	3964	
==>n array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3812	3964	
==>n array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2210	2322	
==>::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2210	2322	
==>::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2210	2322	
==>::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8869	8992	
==>s Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_de <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8869	8992	
==>s Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4581	4684	
==>t}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5962	6128	
==>ry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6426	6592	
==>ry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	302	405	
==>ks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	302	405	
==>ks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	302	405	
==>ks
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3058	3161	
==>dbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DES <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3058	3161	
==>dbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3138	3241	
==>dbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	590	701	
==>}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	590	701	
==>}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	590	701	
==>}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1460	1558	
==>ix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1460	1558	
==>ix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1460	1558	
==>ix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3932	4067	
==>self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5156	5291	
==>self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2403	2497	
==>inecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testgraph: $!";
uploa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7059	7198	
==>plice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7059	7198	
==>plice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7059	7198	
==>plice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1241	1340	
==>ge PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1241	1340	
==>ge PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1241	1340	
==>ge PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int',' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	258	377	
==>y->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	258	377	
==>y->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	258	377	
==>y->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $js <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	628	728	
==>= "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	628	728	
==>= "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, ' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	147	236	
==>rl::Type is Perl::Type::Regular | Perl::Type::Junctive;

class Perl::Type::Regular isa Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	274	377	
==>se File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	274	377	
==>se File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4991	5087	
==>> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4991	5087	
==>> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43049	43145	
==>> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24074	24224	
==>,
      ifthen => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10468	10566	
==>);
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10468	10566	
==>);
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25299	25471	
==>erl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25299	25471	
==>erl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25299	25471	
==>erl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15316	15525	
==>( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15316	15525	
==>( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15316	15525	
==>( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1540	1648	
==>uoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Void is export {
    say "1..$numb <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17274	17374	
==>)`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterat <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17274	17374	
==>)`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterat <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2916	3019	
==>odo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2974	3077	
==>odo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1246	1367	
==>:Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1246	1367	
==>:Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5526	5622	
==>$v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::tr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	387	489	
==>rmance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# U <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	398	500	
==>rmance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# U <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13201	13300	
==>ly Inline::C),
  and is thus not very portable to broken (no compiler) microsoft systems.

  The imp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16714	16880	
==>y $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	549	642	
==>g
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authoriz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	549	642	
==>g
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authoriz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	298	403	
==>he given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	298	403	
==>he given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	298	403	
==>he given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15070	15201	
==>I SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15070	15201	
==>I SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15070	15201	
==>I SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3282	3412	
==>ame;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/\\t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16578	16691	
==>n = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(subst <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15628	15735	
==>n = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(subst <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16852	16948	
==>spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16852	16948	
==>spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17596	17706	
==>egexec (pTHX_ regexp* prog, char* stringarg, char* strend,
                  char* strbeg, I32 minend, SV* scre <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6908	7004	
==>.insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, y <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6908	7004	
==>.insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, y <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4621	4744	
==>->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4463	4581	
==>->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2433	2556	
==>ef($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2433	2556	
==>ef($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2433	2556	
==>ef($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	11	116	
==>lude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	11	116	
==>lude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	11	116	
==>lude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6188	6294	
==>e().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6188	6294	
==>e().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6188	6294	
==>e().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	889	1007	
==>ust supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	889	1007	
==>ust supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	889	1007	
==>ust supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11234	11397	
==>ance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11234	11397	
==>ance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11234	11397	
==>ance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8206	8316	
==>ther!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11683	11793	
==>ther!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10865	10975	
==>ther!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3066	3175	
==>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3066	3175	
==>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3066	3175	
==>name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple stri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2602	2718	
==>se real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2590	2706	
==>se real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_ca <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8787	8900	
==>/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	143	250	
==>return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	143	250	
==>return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	143	250	
==>return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3701	3813	
==>iz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	332	431	
==>r_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	332	431	
==>r_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2986	3097	
==>) if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20104	20202	
==>asic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20104	20202	
==>asic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.pr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1464	1585	
==>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native * $rig <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1010	1124	
==>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1237	1351	
==>isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6660	6779	
==>@arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6660	6779	
==>@arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6660	6779	
==>@arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7720	7826	
==>lt version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7720	7826	
==>lt version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7720	7826	
==>lt version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1019	1145	
==>lict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1019	1145	
==>lict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request E <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4887	4986	
==>UGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13664	13822	
==>erl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9848	10006	
==>erl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10684	10842	
==>erl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	74	180	
==>bst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

say "$wer hat einen $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1697	1786	
==>l at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\01 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1697	1786	
==>l at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\01 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2624	2733	
==>'$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1236	1345	
==>'$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1937	2046	
==>'$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3434	3541	
==>ead1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3434	3541	
==>ead1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3514	3621	
==>ead1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3494	3595	
==>ock/Compiler.pm

lib/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3370	3467	
==>ock/Compiler.pm
lib/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like us <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11772	11859	
==>sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_int(C), ! <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	232	330	
==>azy;
has Str $paramName;
has Perl::Cxt $paramContext;
has Any $paramDefault;

# deriving (Show, Eq, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13929	14021	
==>ing )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characte <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13929	14021	
==>ing )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characte <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1846	1949	
==>pan.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1846	1949	
==>pan.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6794	6896	
==>eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9088	9192	
==>t of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9088	9192	
==>t of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9088	9192	
==>t of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12539	12685	
==>unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12539	12685	
==>unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12539	12685	
==>unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $: <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	801	933	
==>\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\\n/g; s/ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	687	791	
==>arameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %vari <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	687	791	
==>arameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %vari <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6624	6735	
==>pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tree[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2490	2589	
==>ub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2490	2589	
==>ub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($co <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	182	292	
==>ntity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampe <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	182	292	
==>ntity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24123	24244	
==>value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

  for (map "FLAG_$_", split //, $off) { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1673	1784	
==>my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1673	1784	
==>my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9108	9215	
==>nal',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9104	9211	
==>nal',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13834	13935	
==>(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13834	13935	
==>(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13834	13935	
==>(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10	105	
==>ks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10	105	
==>ks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10	105	
==>ks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::in <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25431	25513	
==>,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1866	1986	
==>g->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1866	1986	
==>g->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1866	1986	
==>g->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal err <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6241	6347	
==>atures.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6241	6347	
==>atures.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8438	8544	
==>atures.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4445	4586	
==>SELF->$status_sub();
            $status->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH(':: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12158	12251	
==>nt encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12158	12251	
==>nt encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2972	3227	
==>] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### dependencies sa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22835	22989	
==>tant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23114	23268	
==>tant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   rule <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13705	13939	
==>=> '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $tot{bad}++;
                $fai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1772	1883	
==>sts ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1772	1883	
==>sts ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3984	4085	
==>ext::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3984	4085	
==>ext::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3976	4075	
==>ION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3976	4075	
==>ION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3976	4075	
==>ION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	174	288	
==>$Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $Rea <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	174	288	
==>$Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $Rea <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5711	5869	
==>_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $pkg->pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9798	9906	
==>ted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depend <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11275	11383	
==>ted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depend <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9316	9427	
==>isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9374	9485	
==>isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1601	1739	
==>_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @n <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1601	1739	
==>_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @n <==
3	/Users/nnunley/pugs/util/run-smoke.pl	218	314	
==>TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12418	12515	
==>f;
}

(method bless ((opaque $class:) (str $canidate) (hash %params)) returns opaque
    ((($canid <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2085	2181	
==>hod not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2085	2181	
==>hod not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16462	16568	
==>ULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16462	16568	
==>ULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16462	16568	
==>ULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16416	16539	
==>shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16416	16539	
==>shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str <==
3	/Users/nnunley/pugs/util/package-osx.pl	7717	7814	
==>.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4608	4760	
==>t;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4608	4760	
==>t;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4608	4760	
==>t;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.f <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	770	935	
==>tfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX - <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	770	935	
==>tfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2498	2635	
==>ubname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2498	2635	
==>ubname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2498	2635	
==>ubname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34599	34712	
==>ift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34599	34712	
==>ift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34599	34712	
==>ift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11391	11563	
==>$_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11391	11563	
==>$_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11391	11563	
==>$_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3517	3656	
==>$$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3517	3656	
==>$$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!conten <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9784	9902	
==>aquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recent <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10077	10207	
==>ture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10077	10207	
==>ture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6524	6696	
==>' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6524	6696	
==>' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6524	6696	
==>' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21135	21245	
==>xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21135	21245	
==>xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21135	21245	
==>xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4658	4771	
==>arams and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4658	4771	
==>arams and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4658	4771	
==>arams and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13559	13677	
==>t of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17036	17154	
==>t of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16398	16516	
==>t of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1122	1260	
==>, $config->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta(   $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21973	22092	
==>f;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18394	18513	
==>f;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1327	1472	
==>( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1327	1472	
==>( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1407	1552	
==>( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok' <==
3	/Users/nnunley/pugs/util/func_refact.pl	734	858	
==>{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doU <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	75	173	
==>rray $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_fil <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	75	173	
==>rray $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10867	11018	
==>$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10867	11018	
==>$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10867	11018	
==>$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5172	5267	
==>onal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

R <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5172	5267	
==>onal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6696	6791	
==>onal explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4402	4623	
==>ame =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4402	4623	
==>ame =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4402	4623	
==>ame =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8713	8829	
==>UB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8713	8829	
==>UB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8713	8829	
==>UB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3676	3777	
==>I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3676	3777	
==>I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3676	3777	
==>I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7323	7436	
==>($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7323	7436	
==>($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7323	7436	
==>($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	540	661	
==>IL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	540	661	
==>IL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	540	661	
==>IL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ / <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2243	2355	
==>(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2243	2355	
==>(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6769	6854	
==>$tree[1];  # keys: "pSubBody""pSubIsMulti""pSubLValue""pSubName""pSubParams""pSubType" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42909	43056	
==>'$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('can'), <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37329	37436	
==>ct(and => 0);
    });
  }

We've added a handler, and added an argument to the constructor.  The
argument is <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3517	3620	
==>akefile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	642	772	
==>my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = c <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	642	772	
==>my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8948	9048	
==>em map 

 multi Array::map (@values,   Code $expression --> Lazy ) 
 multi  List::map (Code $expressi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6788	6892	
==>ses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6788	6892	
==>ses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6788	6892	
==>ses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4580	4722	
==>erl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4580	4722	
==>erl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4580	4722	
==>erl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11107	11294	
==>Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11107	11294	
==>Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11107	11294	
==>Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5971	6086	
==>unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6164	6279	
==>unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::captu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7651	7764	
==>{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  pac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30147	30242	
==>th the
Message; this user string may also contain variable names that correspond
to Message Vari <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30147	30242	
==>th the
Message; this user string may also contain variable names that correspond
to Message Vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2477	2598	
==>$sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2477	2598	
==>$sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2477	2598	
==>$sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12807	12913	
==>ingleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12807	12913	
==>ingleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12807	12913	
==>ingleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLA <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7267	7407	
==>nds
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	568	708	
==>nds
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4460	4564	
==>Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4460	4564	
==>Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4460	4564	
==>Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    Class::Rebl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1023	1164	
==>e($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.pu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1023	1164	
==>e($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3824	3940	
==>}
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3824	3940	
==>}
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3824	3940	
==>}
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19633	19729	
==>piler. The end of an inner block
effectively acts as a C<no> statement for any compile sections i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19633	19729	
==>piler. The end of an inner block
effectively acts as a C<no> statement for any compile sections i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27282	27376	
==>add_flag($flag, $code)

This method creates a method of the parser C<FLAG_$flag>, and sets it t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8537	8648	
==>( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8533	8644	
==>( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5454	5547	
==>lling metaclass method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3199	3330	
==>ndency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dum <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3663	3794	
==>ndency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dum <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3617	3713	
==>ay
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures shoul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3617	3713	
==>ay
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures shoul <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5446	5574	
==>ntinue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another d <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5446	5574	
==>ntinue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21822	22131	
==>ntil(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44729	45015	
==>ntil(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41826	42087	
==>ntil(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3515	3628	
==>charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3515	3628	
==>charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3515	3628	
==>charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4960	5091	
==>lf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4960	5091	
==>lf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4960	5091	
==>lf->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12295	12440	
==>e \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8571	8716	
==>e \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9406	9551	
==>e \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20401	20495	
==>ion is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24953	25047	
==>ion is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15523	15627	
==>n no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, $name) = @_;

    $runperl_ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10615	10712	
==>s that you can update several fields with a single invocation.

The $value argument may be a plain <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10615	10712	
==>s that you can update several fields with a single invocation.

The $value argument may be a plain <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6730	6859	
==>sure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submeth <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6730	6859	
==>sure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5718	5841	
==>w( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5718	5841	
==>w( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5718	5841	
==>w( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1177	1291	
==>mt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	783	896	
==>e => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	794	907	
==>e => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1270	1376	
==>method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chun <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1270	1376	
==>method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10334	10450	
==>k the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10334	10450	
==>k the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10334	10450	
==>k the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the c <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	763	881	
==>if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	763	881	
==>if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14409	14548	
==>}
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14409	14548	
==>}
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14409	14548	
==>}
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7405	7487	
==>ctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7405	7487	
==>ctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7405	7487	
==>ctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5016	5170	
==>s}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5016	5170	
==>s}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5016	5170	
==>s}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3755	3851	
==>ou call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to ret <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3755	3851	
==>ou call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to ret <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	709	802	
==>his issue to <perl6-compiler\@perl.org>.
.
        require "$self->{path}/$self->{dispatch}.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5058	5170	
==>code("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5058	5170	
==>code("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5058	5170	
==>code("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	740	833	
==>e_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	740	833	
==>e_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	740	833	
==>e_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5165	5307	
==>f._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @ta <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5165	5307	
==>f._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	223	329	
==>hash;

#our @subroutine_names;

BEGIN {
    $operator = Pugs::Grammar::Precedence->new( 
        grammar => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3054	3161	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3054	3161	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3054	3161	
==>.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6321	6444	
==>"omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6321	6444	
==>"omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6186	6279	
==>var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6186	6279	
==>var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6186	6279	
==>var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2819	2934	
==>";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2819	2934	
==>";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2819	2934	
==>";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1056	1159	
==>$self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subcla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6974	7103	
==>@params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6974	7103	
==>@params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6974	7103	
==>@params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7854	8023	
==>zy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7854	8023	
==>zy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7854	8023	
==>zy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6938	7038	
==>${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\x[0]") if $cc;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11237	11331	
==>ias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.include <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11237	11331	
==>ias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.include <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18643	18725	
==>B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max(Re,N,F0,F1,B0,B1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7440	7568	
==>t_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7440	7568	
==>t_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7440	7568	
==>t_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1176	1278	
==>pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1176	1278	
==>pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1176	1278	
==>pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ], <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2533	2658	
==>de->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2533	2658	
==>de->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3341	3514	
==>upertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3341	3514	
==>upertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3341	3514	
==>upertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11500	11644	
==>rker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11500	11644	
==>rker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3659	3809	
==>equest.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3659	3809	
==>equest.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5327	5429	
==>ich is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	107	216	
==>The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	107	216	
==>The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	105	211	
==>The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1002	1118	
==>ift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { bit->ne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17047	17143	
==>ce.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17047	17143	
==>ce.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
t <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4230	4310	
==>~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4230	4310	
==>~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19224	19324	
==>ht, even if it would create a better sense of
uniformity.

=item Documentation

Fixed some poor wordi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16460	16553	
==>cket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16460	16553	
==>cket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	526	658	
==>rc = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	526	658	
==>rc = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	526	658	
==>rc = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3459	3604	
==>elf.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3459	3604	
==>elf.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3459	3604	
==>elf.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    d <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4695	4823	
==>> $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_file, $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1987	2091	
==>Generates an HTML summary of a YAML test run
     util/run-smome.pl     - automate the smoke process

__H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	621	741	
==>ose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	621	741	
==>ose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	621	741	
==>ose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	660	764	
==>by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	660	764	
==>by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	660	764	
==>by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23665	23775	
==>:Example>, which provides a minimal in-RAM
storage implementation for the Relation library.

I<TODO: REWRITE TH <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	995	1084	
==>A-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	995	1084	
==>A-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $vol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	237	358	
==>ess keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	237	358	
==>ess keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	237	358	
==>ess keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36679	36778	
==>=head2 Extending the Extension

Here's a final example.  I'm going to rewrite F<Regexp::AndBranch> t <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5686	5780	
==>n@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http:/ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5686	5780	
==>n@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3110	3203	
==>y $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3110	3203	
==>y $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3110	3203	
==>y $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->super <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	558	724	
==>$str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	558	724	
==>$str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12200	12316	
==>ERL5LIB {
    my($self) = shift;

    return unless $self->{_is_vms};

    if (defined $self->{_old5lib}) {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	337	443	
==>til::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	337	443	
==>til::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21562	21680	
==>ed
until the second pass.  Figured out how to improve the grammar to get
it to work properly.  Also added tests for the <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1098	1196	
==>ing a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters i <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1098	1196	
==>ing a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13687	13889	
==>r @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pendin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13687	13889	
==>r @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pendin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13687	13889	
==>r @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pendin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	419	520	
==>1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	419	520	
==>1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	975	1076	
==>1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12670	12790	
==>ax eq '') { '*' }
    elsif ($min == 1 and $max eq '') { '+' }
    elsif ($min == 0 and $max == 1) { '?' }
    elsif ($ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3909	4006	
==>ject, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4093	4190	
==>ject, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16871	17002	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17150	17281	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31494	31592	
==>head.

=item down

Whether this object creates a deeper scope (like an OPEN).

=item ifthen

Whethe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7418	7596	
==>y->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7418	7596	
==>y->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7418	7596	
==>y->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6199	6353	
==>y );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6199	6353	
==>y );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6199	6353	
==>y );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3617	3729	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3810	3922	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1044	1149	
==>r => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15116	15276	
==>ing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15116	15276	
==>ing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15116	15276	
==>ing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	561	661	
==>set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	561	661	
==>set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3156	3250	
==>f(stderr," flags=%lu\n",flags);
    fprintf(stderr," start=%lu\n",start);
/*
    fprintf(stderr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3716	3885	
==>>new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->isa('block')) {
            my $ref = reference->new($val);  
            $clo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	336	441	
==>vert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_I <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1864	1969	
==>vert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1022	1118	
==>Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1022	1118	
==>Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1022	1118	
==>Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	409	513	
==>seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	409	513	
==>seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5410	5518	
==>elf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5410	5518	
==>elf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5410	5518	
==>elf->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7603	7715	
==>js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7603	7715	
==>js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7603	7715	
==>js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1128	1240	
==>non
    # issue since even higher order functions get prims instead of thunks when
    # possible

    my $body = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4424	4528	
==>@_;
	return $body;
}

sub symbolic_representation {
	my $self = shift;
	my $node = shift;

	$self->{names <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13660	13760	
==>non issue since even higher order functions get prims instead of thunks when possible

    my $body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5317	5451	
==>ld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5317	5451	
==>ld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5317	5451	
==>ld fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2267	2376	
==>arp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2267	2376	
==>arp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2267	2376	
==>arp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3388	3485	
==>t is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3446	3543	
==>t is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2942	3058	
==>ontainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2942	3058	
==>ontainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2942	3058	
==>ontainers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1839	1956	
==>($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barena <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1839	1956	
==>($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barena <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1839	1956	
==>($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barena <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	97	200	
==>) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	97	200	
==>) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	97	200	
==>) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.glob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1178	1306	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1178	1306	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1178	1306	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	735	832	
==>and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole byt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	735	832	
==>and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole byt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4303	4435	
==>UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4303	4435	
==>UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4303	4435	
==>UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2942	3044	
==>= args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2942	3044	
==>= args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2942	3044	
==>= args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9302	9466	
==>_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1422	1568	
==>_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1422	1568	
==>_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	259	360	
==>separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	259	360	
==>separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	259	360	
==>separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	221	338	
==>,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $self->{seen} = Set::Obj <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1308	1411	
==>.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool:: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1308	1411	
==>.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool:: <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	81	178	
==>Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
} <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	81	178	
==>Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	576	688	
==>ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contain <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	576	688	
==>ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contain <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8922	9053	
==>ule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8910	9041	
==>ule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2081	2242	
==>{
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1852	2008	
==>{
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1852	2008	
==>{
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15125	15222	
==>nd of
an arbitrary type. The function signatures will likely look something
like this:

  multi su <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15183	15280	
==>nd of
an arbitrary type. The function signatures will likely look something
like this:

  multi su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	124	222	
==>warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	124	222	
==>warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	92	189	
==>warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	501	613	
==>unction
      // and refer to it via the closure, then things don\'t work right
      // --the order of output ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	501	613	
==>unction
      // and refer to it via the closure, then things don\'t work right
      // --the order of output ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	501	613	
==>unction
      // and refer to it via the closure, then things don\'t work right
      // --the order of output ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	179	284	
==>his sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	179	284	
==>his sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	822	937	
==>ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	822	937	
==>ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	822	937	
==>ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2803	2949	
==>B BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[4], %{$_[3]} } }
    | SUB BAREWORD '(' signa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11410	11541	
==>MS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11410	11541	
==>MS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3352	3466	
==>ned $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3352	3466	
==>ned $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3352	3466	
==>ned $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6556	6696	
==>->available( [ @{ $self->available }, $inst_pkg ] );
        
    $self->write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7826	7921	
==>y-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Author <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7826	7921	
==>y-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Author <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	41	141	
==>it PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	41	141	
==>it PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	41	141	
==>it PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code late <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19820	19919	
==>mple $other!) returns Relation::Example {
    # This form takes the form of an ordinary natural join <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3204	3301	
==>}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3262	3359	
==>}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7477	7660	
==>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7477	7660	
==>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7477	7660	
==>fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3270	3402	
==>art_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3270	3402	
==>art_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $sp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3252	3350	
==>),

Inherits Unit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a number o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20266	20359	
==>dd_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot rece <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20266	20359	
==>dd_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot rece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8403	8551	
==>rn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8403	8551	
==>rn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8403	8551	
==>rn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	28	120	
==>ess $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	28	120	
==>ess $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	28	120	
==>ess $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::P <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	187	282	
==>.*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path );
my $fullname = join '.', @pa <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3130	3221	
==>mplement_previous, $set.complement_next, $set.complement_previous ),
        complement_prev <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3130	3221	
==>mplement_previous, $set.complement_next, $set.complement_previous ),
        complement_prev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18722	18854	
==>$Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18722	18854	
==>$Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18722	18854	
==>$Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUT <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32065	32173	
==>hat has the same heading
and whose body contains all of the tuples that are in either or both of the
invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36615	36723	
==>hat has the same heading
and whose body contains all of the tuples that are in either or both of the
invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35896	36004	
==>hat has the same heading
and whose body contains all of the tuples that are in either or both of the
invocant <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16058	16180	
==>}
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./rese <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16058	16180	
==>}
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./rese <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2707	2807	
==>l;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2707	2807	
==>l;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2707	2807	
==>l;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2965	3076	
==>eue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2965	3076	
==>eue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8627	8782	
==>r capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4987	5142	
==>r capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5836	5991	
==>r capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3689	3812	
==>$self->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13025	13122	
==>is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13025	13122	
==>is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15189	15368	
==>shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15189	15368	
==>shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15189	15368	
==>shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	306	485	
==>>
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	306	485	
==>>
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	306	485	
==>>
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11951	12057	
==>e unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11951	12057	
==>e unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11951	12057	
==>e unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3615	3715	
==>ic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3615	3715	
==>ic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5812	5912	
==>ic class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6339	6459	
==>gs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6339	6459	
==>gs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6339	6459	
==>gs.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5273	5380	
==>mespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5273	5380	
==>mespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5273	5380	
==>mespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on ve <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1754	1949	
==>$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1754	1949	
==>$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!ro <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	18	115	
==>re::Bit;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;

package bit;

use st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41211	41301	
==>code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41211	41301	
==>code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4202	4376	
==>e ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4202	4376	
==>e ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matche <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	166	286	
==>y::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15693	15792	
==>ss->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15693	15792	
==>ss->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15693	15792	
==>ss->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19342	19504	
==>->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19342	19504	
==>->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19342	19504	
==>->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2787	2971	
==>-xz] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz | <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	826	1005	
==>ue, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	826	1005	
==>ue, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14178	14316	
==>y++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14178	14316	
==>y++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14178	14316	
==>y++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	19	128	
==>ne> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	19	128	
==>ne> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	19	128	
==>ne> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	560	670	
==>from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	560	670	
==>from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	560	670	
==>from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor to encompass al <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11472	11575	
==>ns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11472	11575	
==>ns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9660	9856	
==>>new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>') <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1018	1159	
==>],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = " <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1018	1159	
==>],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34345	34455	
==>->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34345	34455	
==>->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34345	34455	
==>->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1385	1499	
==>eading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1385	1499	
==>eading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1385	1499	
==>eading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3814	3935	
==>shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3814	3935	
==>shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3814	3935	
==>shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2178	2280	
==>{
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2178	2280	
==>{
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2178	2280	
==>{
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess " <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	249	354	
==>{
		my $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		ca <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	25	115	
==>:Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Funct <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	25	115	
==>:Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Funct <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9544	9659	
==>cted     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autop <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9544	9659	
==>cted     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	425	577	
==>\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	425	577	
==>\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8494	8609	
==>Stack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bsr_reduce_2: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1838	1988	
==>d =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1838	1988	
==>d =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == - <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	133	238	
==>= 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7795	7972	
==>$_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7795	7972	
==>$_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7795	7972	
==>$_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Juncti <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5400	5536	
==>r.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5400	5536	
==>r.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27090	27205	
==>d report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory name is with respect to the current direct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9774	9897	
==>---------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9774	9897	
==>---------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9774	9897	
==>---------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	48	149	
==>-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	48	149	
==>-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	48	149	
==>-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5341	5451	
==>w filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5341	5451	
==>w filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5341	5451	
==>w filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8201	8418	
==>THOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8201	8418	
==>THOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8201	8418	
==>THOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3363	3478	
==>_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3580	3695	
==>_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15768	15917	
==>?' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	798	931	
==>::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	960	1093	
==>::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7331	7465	
==>leop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star,\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1864	1968	
==>', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1864	1968	
==>', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2581	2692	
==>mplemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lang <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2581	2692	
==>mplemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lang <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2581	2692	
==>mplemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $lang <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5206	5340	
==>ample',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5206	5340	
==>ample',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14924	15023	
==>store_PERL5LIB;

    return(\%tot, \%failedtests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2914	3022	
==>ict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2914	3022	
==>ict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2914	3022	
==>ict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6484	6582	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6484	6582	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6484	6582	
==>ocal @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3994	4086	
==>t::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=ite <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3994	4086	
==>t::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5518	5610	
==>t::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24784	24880	
==>ody () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29336	29432	
==>ody () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<si <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6937	7042	
==>tx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'I <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6937	7042	
==>tx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'I <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1357	1455	
==>erion>.assuming(by => &infix:<cmp>);

 type KeyExtractor ::= Code(Any) returns Any;
 type Comparato <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	449	592	
==>t' => $params{'$.error_output'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $mess <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4035	4114	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4035	4114	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2227	2369	
==>bel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2227	2369	
==>bel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2227	2369	
==>bel = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14231	14355	
==>y);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $sel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1711	1835	
==>y);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2354	2467	
==>uest method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2354	2467	
==>uest method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	117	223	
==>$secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	117	223	
==>$secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	117	223	
==>$secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21249	21343	
==>tion;
  push @ISA, qw( Regexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __P <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6027	6119	
==>functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6027	6119	
==>functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	896	1056	
==>y} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'pe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	775	935	
==>y} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'pe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6432	6518	
==>->simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa("Blondie::TypeSa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12265	12378	
==>pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_look <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12265	12378	
==>pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_look <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12265	12378	
==>pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_look <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4226	4338	
==>) =~ />/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9911	10005	
==>red to as "immediate" and "deferred".  The immediate validations
are performed at the moment th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9911	10005	
==>red to as "immediate" and "deferred".  The immediate validations
are performed at the moment th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4660	4757	
==>paque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4660	4757	
==>paque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4660	4757	
==>paque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11686	11840	
==>l6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11686	11840	
==>l6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11686	11840	
==>l6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq ' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	606	702	
==>et a test
  my %results = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2248	2360	
==>elf->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2248	2360	
==>elf->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2248	2360	
==>elf->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1828	1927	
==>($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1828	1927	
==>($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1828	1927	
==>($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5250	5368	
==>eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5250	5368	
==>eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5250	5368	
==>eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('cu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4901	4995	
==>0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4901	4995	
==>0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1911	2095	
==>,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override any <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2116	2300	
==>,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override any <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2179	2363	
==>,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	698	806	
==>_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	698	806	
==>_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	698	806	
==>_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15431	15533	
==>sion>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpress <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1988	2083	
==>val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1988	2083	
==>val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4024	4138	
==>do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ wh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4024	4138	
==>do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ wh <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4024	4138	
==>do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38432	38556	
==>ub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38432	38556	
==>ub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38432	38556	
==>ub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1274	1381	
==>unction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1274	1381	
==>unction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1274	1381	
==>unction (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17143	17234	
==>.content_language

The natural language(s) of the intended audience for the message
content. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17143	17234	
==>.content_language

The natural language(s) of the intended audience for the message
content. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2172	2291	
==>p { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2172	2291	
==>p { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2172	2291	
==>p { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16942	17033	
==>ls::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16942	17033	
==>ls::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16942	17033	
==>ls::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2264	2360	
==>tch objects arent being created for capture groups which are never reached.
# No lookbehind as be <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8781	8875	
==>an existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span ( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8781	8875	
==>an existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20941	21082	
==>TROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43865	44006	
==>TROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	283	374	
==>s simply to
permit refactoring with confidence.

It uses Language::Prolog::Yaswi, which requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3865	3981	
==>f->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3865	3981	
==>f->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3865	3981	
==>f->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8531	8673	
==>ll next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8531	8673	
==>ll next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8531	8673	
==>ll next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	970	1124	
==>r_CODE
       p6_var
       p6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_apply
       p6_applym
       p6_return_CODE
       p6_catch <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3119	3241	
==>ufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3119	3241	
==>ufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	903	1007	
==>constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	498	633	
==>me level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]->{out}= {fixity => ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	520	648	
==>bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	520	648	
==>bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@da <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	29	150	
==>6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
} <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	29	150	
==>6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
} <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3635	3749	
==>ls include get_sv, eval_pv, and %^H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1211	1346	
==>ce => 'equal',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        name => '~',
        assoc => 'left',
        precedence <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8920	9050	
==>{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8908	9038	
==>{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TOD <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	828	927	
==>plicateFinder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3902	3999	
==>rnal packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3902	3999	
==>rnal packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29790	29974	
==>ef( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29790	29974	
==>ef( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29790	29974	
==>ef( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	757	861	
==>.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	757	861	
==>.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary se <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2393	2497	
==>ults for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - 

= <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18615	18742	
==>mb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "f <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5645	5751	
==>$child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5645	5751	
==>$child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11002	11124	
==>{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i < <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11002	11124	
==>{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i < <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11002	11124	
==>{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2225	2324	
==>s(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2225	2324	
==>s(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2225	2324	
==>s(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10935	11095	
==>=> $.passed,
              description => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1423	1569	
==>=> $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1423	1569	
==>=> $.passed,
            description => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14301	14482	
==>xy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14301	14482	
==>xy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14301	14482	
==>xy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3000	3095	
==>param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3000	3095	
==>param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9889	10002	
==>main an implementation detail 
    # for the methods described below.
    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9889	10002	
==>main an implementation detail 
    # for the methods described below.
    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9889	10002	
==>main an implementation detail 
    # for the methods described below.
    # -------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13935	14051	
==>) while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13935	14051	
==>) while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13935	14051	
==>) while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1657	1760	
==>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1657	1760	
==>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1657	1760	
==>{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11297	11438	
==>,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19616	19704	
==>.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19616	19704	
==>.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	990	1090	
==>s undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	990	1090	
==>s undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9519	9605	
==>method('another_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16145	16292	
==>code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16145	16292	
==>code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16145	16292	
==>code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        su <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4633	4768	
==>ave a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition must be implemented as a runtime primi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	725	823	
==>creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLA <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	725	823	
==>creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23804	23899	
==>pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23804	23899	
==>pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23804	23899	
==>pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9659	9758	
==>lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9659	9758	
==>lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9659	9758	
==>lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4782	4952	
==>b { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4782	4952	
==>b { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4782	4952	
==>b { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7084	7221	
==>ad = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7084	7221	
==>ad = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7084	7221	
==>ad = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4615	4726	
==>ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4615	4726	
==>ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4615	4726	
==>ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12035	12159	
==>kage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12035	12159	
==>kage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12035	12159	
==>kage Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4349	4461	
==>'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4542	4654	
==>'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7113	7220	
==>6 on Parrot)";
  $_ eq "normal" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6744	6846	
==>m $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6744	6846	
==>m $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6744	6846	
==>m $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3737	3836	
==>p('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = (" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3737	3836	
==>p('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = (" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3737	3836	
==>p('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = (" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2783	2908	
==>ush(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2783	2908	
==>ush(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2783	2908	
==>ush(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4992	5095	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding a <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4992	5095	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4078	4181	
==>en = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_token_match_1";
    goto t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27353	27446	
==>Relation has as
many additional attributes as there are pairs in the argument C<$attrs>,
where <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31905	31998	
==>Relation has as
many additional attributes as there are pairs in the argument C<$attrs>,
where <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7491	7641	
==>s::VRule, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     ..      s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7561	7657	
==>le (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7561	7657	
==>le (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@path <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2043	2170	
==>Source:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2183	2310	
==>Source:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inc <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1778	1900	
==>ETA} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4355	4473	
==>EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4355	4473	
==>EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4355	4473	
==>EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1186	1296	
==>r $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1186	1296	
==>r $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1186	1296	
==>r $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" v <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	148	278	
==>Junction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 mult <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1856	1947	
==>oc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1856	1947	
==>oc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6004	6128	
==>);   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Would it be a package lev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6004	6128	
==>);   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Would it be a package lev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6004	6128	
==>);   

- parentage

Should a child package know it's parent package? How would this look in Perl 6?
Would it be a package lev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12696	12809	
==>force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12696	12809	
==>force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12696	12809	
==>force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1680	1785	
==>+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1680	1785	
==>+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1680	1785	
==>+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14189	14300	
==>le->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14189	14300	
==>le->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14189	14300	
==>le->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2386	2502	
==>y $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2386	2502	
==>y $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2386	2502	
==>y $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12703	12834	
==>OLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12703	12834	
==>OLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12703	12834	
==>OLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23701	23814	
==>erclasses ((opaque $self) (list ?@superclasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclass <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8311	8413	
==>c_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8311	8413	
==>c_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2501	2612	
==>[PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2501	2612	
==>[PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2501	2612	
==>[PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2956	3066	
==>]');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2956	3066	
==>]');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2956	3066	
==>]');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2624	2735	
==>warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2624	2735	
==>warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2624	2735	
==>warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5231	5366	
==>oles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5231	5366	
==>oles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5231	5366	
==>oles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collec <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3251	3372	
==>}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3251	3372	
==>}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3073	3166	
==>alue>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Compiler:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13003	13163	
==>1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12997	13157	
==>1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$po <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8902	9002	
==>> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1330	1436	
==>k so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1330	1436	
==>k so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1330	1436	
==>k so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4865	4965	
==>f->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defined <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13421	13514	
==>e %entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13421	13514	
==>e %entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3418	3513	
==>mework. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3418	3513	
==>mework. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5615	5710	
==>mework. The class itself is actually a factory for
classes which C<does> the Test::Builder::Test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33408	33517	
==>: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>)

=head2 reg_any

Family <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2484	2581	
==>de)> executes $code, passing the match object as a parameter, and
it should return a I<compiled> r <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2484	2581	
==>de)> executes $code, passing the match object as a parameter, and
it should return a I<compiled> r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4082	4193	
==>metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4082	4193	
==>metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4082	4193	
==>metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1234	1342	
==>/ we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1234	1342	
==>/ we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1234	1342	
==>/ we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1173	1289	
==>\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1173	1289	
==>\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1173	1289	
==>\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = fals <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4009	4109	
==>'),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : '' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31335	31432	
==>ules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31335	31432	
==>ules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2370	2480	
==>nd {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2370	2480	
==>nd {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2370	2480	
==>nd {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31301	31404	
==>tor; that subset is those for which the the
Bool-returning anonymous function in the argument C<$predica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35851	35954	
==>tor; that subset is those for which the the
Bool-returning anonymous function in the argument C<$predica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35069	35172	
==>tor; that subset is those for which the the
Bool-returning anonymous function in the argument C<$predica <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	371	475	
==>e, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	371	475	
==>e, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3747	3837	
==>org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3747	3837	
==>org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3747	3837	
==>org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  < <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1686	1873	
==>($idx);
                return undef unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self = shift;
                my $id <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16532	16631	
==>kenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instanc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16532	16631	
==>kenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instanc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	835	939	
==>e_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1041	1145	
==>e_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	818	919	
==>bution.
Please use the 'name' function in Makefile.PL.
END

    $name =~ s/-/::/g;
    $self->module_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2989	3116	
==>e} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3129	3256	
==>e} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5052	5167	
==>EFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{prea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2697	2802	
==>ned1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2697	2802	
==>ned1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2697	2802	
==>ned1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __expo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4269	4348	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4269	4348	
==>])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11604	11764	
==>r
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<! <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11604	11764	
==>r
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<! <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9886	10009	
==>string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11363	11486	
==>string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1879	1987	
==>::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $vis) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5428	5527	
==>amework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root . <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5428	5527	
==>amework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root . <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6007	6176	
==>>new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string'),
                Val->new("\n"),
            ),
        ) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	244	360	
==>e::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	244	360	
==>e::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2054	2150	
==>$one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2054	2150	
==>$one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1898	1993	
==>e !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file p6 pil_code pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6490	6589	
==>ce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6490	6589	
==>ce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6490	6589	
==>ce_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6350	6456	
==>b p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6350	6456	
==>b p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6350	6456	
==>b p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return In <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1375	1483	
==>id->to_native <=> $right->id->to_native;
}

## methods

sub id    { (shift)->[0]        }
sub class { (shift) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1346	1443	
==>-> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Va <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1346	1443	
==>-> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3620	3745	
==>}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3871	3992	
==>}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3871	3992	
==>}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1521	1673	
==>pan.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1521	1673	
==>pan.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1337	1436	
==>[TParam]',
  'pLValue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23543	23663	
==>e REG_SEEN_SANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_COPY_STR  0x01            /* Need to copy <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37389	37483	
==>nd false if not.

=item C<load_template_module( $module_name! )>

This method takes the name of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37389	37483	
==>nd false if not.

=item C<load_template_module( $module_name! )>

This method takes the name of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11023	11124	
==>t by calling the visual() method of
each node in the tree.

=head2 Using the Regex

You can use the qr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10141	10234	
==>kept to the minimum possible, and is essentially just
concerned with the well-formedness of th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10141	10234	
==>kept to the minimum possible, and is essentially just
concerned with the well-formedness of th <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	505	636	
==>e @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	505	636	
==>e @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.ciph <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30357	30453	
==>, to
pretend it didn't actually match.  The real closing parenthesis handler
is:

  $self->add_ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14312	14428	
==>the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14312	14428	
==>the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10812	10910	
==>X - not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p5_simple_escape_sequence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10774	10890	
==>---- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10774	10890	
==>---- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10774	10890	
==>---- end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1264	1378	
==>isher $publisher, Class::Publisher::Event $event) {
        grep { .match($event) }, gather {
            take $.su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19043	19149	
==>" if $eval_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17298	17393	
==>Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual ma <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17298	17393	
==>Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2049	2237	
==>,
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2049	2237	
==>,
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2049	2237	
==>,
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3474	3605	
==>on
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub can <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3474	3605	
==>on
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub can <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2064	2190	
==>ef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2064	2190	
==>ef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Statu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1554	1655	
==>>{name}\n";
    $opt->{assoc} = 'left' unless defined $opt->{assoc};
    for ( 0 .. $#{$self->{levels} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1383	1479	
==>y() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1383	1479	
==>y() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1383	1479	
==>y() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1261	1354	
==>e structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1261	1354	
==>e structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1261	1354	
==>e structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Package, $::Module, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2037	2162	
==>_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2037	2162	
==>_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2037	2162	
==>_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15787	15880	
==>ML output that color-codes the elements of the regex
according to a style-sheet (syntax highli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1521	1622	
==>del_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1521	1622	
==>del_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1521	1622	
==>del_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8456	8551	
==>L::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8456	8551	
==>L::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8456	8551	
==>L::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2378	2499	
==>ne;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2378	2499	
==>ne;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2378	2499	
==>ne;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	777	891	
==>isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	797	904	
==>isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "o <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1832	1935	
==>RSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_adm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9415	9506	
==>re_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9415	9506	
==>re_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9415	9506	
==>re_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	891	1059	
==>y $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	891	1059	
==>y $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	891	1059	
==>y $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	554	660	
==>ub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	554	660	
==>ub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	554	660	
==>ub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16939	17052	
==>am => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and returns it
# x stays free, and <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7084	7193	
==>h, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path un <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7084	7193	
==>h, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21057	21160	
==>) }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21057	21160	
==>) }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21057	21160	
==>) }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5005	5141	
==>$end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5005	5141	
==>$end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4394	4515	
==>self = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1058	1194	
==>+ b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1058	1194	
==>+ b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1058	1194	
==>+ b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	756	876	
==>= @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	756	876	
==>= @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	756	876	
==>= @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3990	4095	
==>l2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3990	4095	
==>l2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3990	4095	
==>l2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7256	7363	
==>_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7256	7363	
==>_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7256	7363	
==>_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6588	6677	
==>ob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6588	6677	
==>ob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6588	6677	
==>ob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2669	2766	
==>my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2669	2766	
==>my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2669	2766	
==>my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32724	32824	
==>tains all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37274	37374	
==>tains all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36591	36691	
==>tains all the tuples of the source Relations, including
one copy each of any duplicated tuples.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1247	1354	
==>an

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONST <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1247	1354	
==>an

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONST <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1253	1354	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1253	1354	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1253	1354	
==>",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4161	4314	
==>eturn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4161	4314	
==>eturn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4161	4314	
==>eturn $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	633	740	
==>orks.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	633	740	
==>orks.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	633	740	
==>orks.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportLi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2064	2232	
==>ad'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2064	2232	
==>ad'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3805	3916	
==>ift;
                          $e->set('$method' => $e->get('$current')->send('get_method' => $e->get('$label')) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12338	12562	
==>y $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1320	1420	
==>rn '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1320	1420	
==>rn '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Obj <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23476	23573	
==>re immutable rather than mutable, this property and/or
same-named accessor method can be used to s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28028	28125	
==>re immutable rather than mutable, this property and/or
same-named accessor method can be used to s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26832	26929	
==>re immutable rather than mutable, this property and/or
same-named accessor method can be used to s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1486	1603	
==>l->new();    
}

sub remove {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6590	6689	
==>ly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value mu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6590	6689	
==>ly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4394	4506	
==>, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4394	4506	
==>, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4394	4506	
==>, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1472	1610	
==>} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1472	1610	
==>} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1472	1610	
==>} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10096	10248	
==>);
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10096	10248	
==>);
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10096	10248	
==>);
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3294	3406	
==>ment_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3294	3406	
==>ment_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

m <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6200	6302	
==>$ghc_candidate = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	856	960	
==>e times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net:: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	856	960	
==>e times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1286	1389	
==>ll as a few other objects are implemented as one of three ADTs.

=over 4

=item Unit

A unit is an encap <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3728	3830	
==>code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') { <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3145	3254	
==>riting: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5800	5905	
==>an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5800	5905	
==>an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5800	5905	
==>an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5752	5880	
==>nfix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5752	5880	
==>nfix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5752	5880	
==>nfix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	832	945	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	832	945	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	832	945	
==>=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29062	29179	
==>verse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29062	29179	
==>verse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	413	518	
==>verse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18832	18947	
==>Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18832	18947	
==>Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18832	18947	
==>Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3840	3949	
==>debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3840	3949	
==>debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3840	3949	
==>debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1649	1772	
==>push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1649	1772	
==>push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1649	1772	
==>push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11119	11308	
==>o-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11119	11308	
==>o-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11119	11308	
==>o-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @pa <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	874	974	
==>'t active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Select <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	874	974	
==>'t active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Select <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2437	2554	
==>E_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_head <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2437	2554	
==>E_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4027	4129	
==>=> class 'TestBuilder::Test::Skip' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4139	4253	
==>! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) & <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4139	4253	
==>! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) & <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8151	8264	
==>header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4741	4948	
==>{
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8218	8425	
==>{
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7220	7427	
==>{
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1177	1284	
==>tional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1177	1284	
==>tional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1386	1493	
==>tional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3493	3596	
==>)>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3493	3596	
==>)>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3573	3676	
==>)>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1085	1192	
==>.$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o & <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1085	1192	
==>.$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o & <==
3	/Users/nnunley/pugs/util/testgraph.pl	79	170	
==>/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6602	6730	
==>n "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6602	6730	
==>n "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6602	6730	
==>n "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2164	2290	
==>bles

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2164	2290	
==>bles

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2511	2637	
==>bles

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5700	5807	
==>,map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $dec <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15356	15457	
==>eturns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15414	15515	
==>eturns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	415	525	
==>EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module was automatically generated by util/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11986	12094	
==>> $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a uni <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4629	4737	
==>> $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a uni <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	532	657	
==>fy {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	302	427	
==>fy {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	302	427	
==>fy {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3394	3504	
==>se=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3394	3504	
==>se=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3394	3504	
==>se=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1171	1371	
==>D @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1171	1371	
==>D @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1171	1371	
==>D @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12080	12172	
==>::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12080	12172	
==>::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	202	294	
==>rldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element. <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	202	294	
==>rldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1263	1406	
==>/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3163	3258	
==>:Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub * <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3163	3258	
==>:Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub * <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1128	1243	
==>uperset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1128	1243	
==>uperset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32694	32792	
==>g an ending node to the walking stack is that ending
nodes are all omitted from the tree because of <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	678	773	
==>ed
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	678	773	
==>ed
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3949	4055	
==>s is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of l <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3949	4055	
==>s is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4029	4135	
==>s is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of l <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3922	4014	
==>:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the ord <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3922	4014	
==>:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the ord <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16469	16636	
==>se {
        if ($builtin->isa("Thunk")) {
            $builtin = $self->reduce($builtin);
        }
        $val->set($builtin);
    }

    return $val;
}

sub reduce_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10084	10182	
==>ur($package_name,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	122	217	
==>'new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	122	217	
==>'new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	122	217	
==>'new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1524	1647	
==>d_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1524	1647	
==>d_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1524	1647	
==>d_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22711	22826	
==>* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logica <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19132	19247	
==>* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10052	10163	
==>= "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10052	10163	
==>= "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10052	10163	
==>= "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22790	22889	
==>eady
found. Those who find bugs should email me.  Messages should include the
code you ran that cont <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33865	33960	
==>uch that each says what
language they prefer to communicate in, and what their backup choices ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33865	33960	
==>uch that each says what
language they prefer to communicate in, and what their backup choices ar <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20486	20586	
==>gy).  Each node is an opcode plus a "next" pointer,
possibly plus an operand.

We don't care.


=head <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	429	525	
==>* Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infinit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	429	525	
==>* Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7162	7347	
==>{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7162	7347	
==>{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7162	7347	
==>{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1555	1683	
==>relude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1555	1683	
==>relude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1555	1683	
==>relude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9563	9658	
==>is code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9563	9658	
==>is code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2669	2777	
==>y {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(St <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6146	6254	
==>y {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(St <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5076	5184	
==>y {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(St <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17151	17248	
==>Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17151	17248	
==>Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11540	11640	
==>of_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3131	3231	
==>of_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	365	463	
==>ie "Compile failed";
my $m;
if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6312	6438	
==>qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6312	6438	
==>qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7331	7429	
==>_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7331	7429	
==>_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7331	7429	
==>_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use stric <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16481	16577	
==>.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10287	10382	
==>closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The compleme <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10287	10382	
==>closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The compleme <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11612	11766	
==>/;
        
    return
           "$_[1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6357	6459	
==>nctional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6357	6459	
==>nctional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2759	2870	
==>};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2759	2870	
==>};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2759	2870	
==>};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5647	5759	
==>s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5647	5759	
==>s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5647	5759	
==>s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1109	1221	
==>bs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1109	1221	
==>bs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2071	2178	
==>ed $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2071	2178	
==>ed $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2071	2178	
==>ed $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	394	572	
==>s => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	394	572	
==>s => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	394	572	
==>s => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	451	579	
==>:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	548	676	
==>:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5718	5838	
==>perclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10029	10149	
==>perclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	508	610	
==>ariable) {
    return %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionCode( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	702	820	
==>s like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	702	820	
==>s like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	702	820	
==>s like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4386	4501	
==>unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4386	4501	
==>unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4386	4501	
==>unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage informa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4223	4338	
==>!! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4223	4338	
==>!! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4223	4338	
==>!! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	727	856	
==>ch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	727	856	
==>ch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	727	856	
==>ch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9775	9870	
==>de_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9775	9870	
==>de_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	404	536	
==>dd_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7223	7335	
==>{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating interse <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7223	7335	
==>{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating interse <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1364	1483	
==>ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1364	1483	
==>ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6203	6323	
==>pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6203	6323	
==>pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6203	6323	
==>pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4830	4932	
==>ldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4830	4932	
==>ldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4830	4932	
==>ldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11034	11167	
==>e($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    multi method seek (Int $position, Int $whence = $F <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	178	272	
==>=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	178	272	
==>=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3150	3298	
==>$matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3049	3193	
==>$matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $f <==
3	/Users/nnunley/pugs/util/testgraph.pl	494	592	
==>ode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->new_wit <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3694	3812	
==>" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3694	3812	
==>" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($star <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6609	6698	
==>------------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## ------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6632	6721	
==>-------------------
## BOOTSTRAPPING Roles COMPLETE
## ----------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1226	1360	
==>\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1226	1360	
==>\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless def <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11981	12090	
==>y %as_num_handlers =
    ( undef => sub { Carp::carp("p6_as_num called on undef"); $nan },
      numeric     = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29671	29771	
==>ple>

This method is a generic relational operator that returns a new Relation::Example
which has a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30832	30932	
==>ple>

This method is a generic relational operator that returns a new Relation::Example
which has a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34889	34989	
==>ple>

This method is a generic relational operator that returns a new Relation::Example
which has a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	945	1062	
==>{
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	945	1062	
==>{
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	945	1062	
==>{
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2958	3065	
==>arn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2958	3065	
==>arn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2958	3065	
==>arn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	665	807	
==>$code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	676	818	
==>$code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4728	4854	
==>away_from_zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, round floor below 0
    if $x < 0 {
        $x_round <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18519	18618	
==>[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19877	19976	
==>[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19334	19483	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19613	19762	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7081	7173	
==>ight return value from another Object singleton/class method');
   
is($Object->singleton_tes <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2326	2460	
==>}

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] eq '"PIL_Environment"' {
        my %pad = $tree[1];  # keys <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3120	3224	
==>dd_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3120	3224	
==>dd_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8968	9086	
==>xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8968	9086	
==>xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8968	9086	
==>xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28858	28981	
==>_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a num <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28858	28981	
==>_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a num <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	225	336	
==>_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a num <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20926	21054	
==>,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12596	12697	
==>es.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12596	12697	
==>es.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4194	4329	
==>ams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4194	4329	
==>ams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4194	4329	
==>ams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1137	1324	
==>"$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $string;
        "$string and " ~
        pic <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1826	1946	
==>base is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1826	1946	
==>base is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $H <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	857	971	
==>results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	857	971	
==>results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3353	3479	
==>e, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    . <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3353	3479	
==>e, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    . <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	212	319	
==>nth & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLen <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	212	319	
==>nth & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLen <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6465	6561	
==>, 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTyp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6465	6561	
==>, 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTyp <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6053	6186	
==>rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7301	7410	
==>}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7301	7410	
==>}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2173	2272	
==>table/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13380	13474	
==>ace replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entiti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13380	13474	
==>ace replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1427	1602	
==>{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1427	1602	
==>{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1427	1602	
==>{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29711	29896	
==>rl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29711	29896	
==>rl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29711	29896	
==>rl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3889	3998	
==>.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3889	3998	
==>.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3889	3998	
==>.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  w <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2629	2724	
==>= $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2629	2724	
==>= $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	701	795	
==>[0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compare($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	613	719	
==>(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	613	719	
==>(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	613	719	
==>(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	663	782	
==>ator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, 'Test::Harness: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38903	38999	
==>part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is fre <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43717	43813	
==>part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is fre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8949	9052	
==>ord semantics, where 'require'
    # will munge the package name into file system paths.
    eval "requi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8949	9052	
==>ord semantics, where 'require'
    # will munge the package name into file system paths.
    eval "requi <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1381	1461	
==>p}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3507	3643	
==>{
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4891	5019	
==>{
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            return ::opaque_instance_class(shif <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5236	5342	
==>n` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7803	7907	
==>del - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7803	7907	
==>del - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7803	7907	
==>del - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  clas <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5529	5637	
==>te we have to create the directories first if it's a dir -> dir
    ### move. Which means a bit more work, as <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2539	2634	
==>oy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2539	2634	
==>oy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26620	26836	
==>boxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26620	26836	
==>boxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26620	26836	
==>boxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14842	14950	
==>_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14842	14950	
==>_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14842	14950	
==>_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1873	1971	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1873	1971	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1873	1971	
==>Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1603	1689	
==>------------------------------------------------------
## informational methods

method <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1603	1689	
==>------------------------------------------------------
## informational methods

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1717	1817	
==>rsion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1717	1817	
==>rsion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1717	1817	
==>rsion, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12768	12882	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12768	12882	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12768	12882	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18854	19006	
==>>isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($objec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14799	14911	
==>ranslate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14799	14911	
==>ranslate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8405	8502	
==>= PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8405	8502	
==>= PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8405	8502	
==>= PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4703	4820	
==>";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4703	4820	
==>";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4703	4820	
==>";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	102	222	
==>Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	102	222	
==>Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	102	222	
==>Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16452	16551	
==>) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16452	16551	
==>) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16452	16551	
==>) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15719	15872	
==>ODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15719	15872	
==>ODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15719	15872	
==>ODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	666	758	
==>macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	666	758	
==>macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	666	758	
==>macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11855	11972	
==>onform to the Role interface/API they are 
interchangable with one another, classes and Roles are unified. THis is lik <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11855	11972	
==>onform to the Role interface/API they are 
interchangable with one another, classes and Roles are unified. THis is lik <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11855	11972	
==>onform to the Role interface/API they are 
interchangable with one another, classes and Roles are unified. THis is lik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2199	2297	
==>$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2199	2297	
==>$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2199	2297	
==>$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7231	7368	
==>uld be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7231	7368	
==>uld be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7231	7368	
==>uld be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7745	7907	
==>h( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7745	7907	
==>h( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7745	7907	
==>h( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Per <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1255	1355	
==>swer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1255	1355	
==>swer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3807	3930	
==>SS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3807	3930	
==>SS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3807	3930	
==>SS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2953	3097	
==>losure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8296	8438	
==>losure->new(
        $::ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4762	4879	
==>losure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2102	2271	
==>cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2102	2271	
==>cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	432	528	
==>arity => $params->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	259	374	
==>ode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	259	374	
==>ode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	259	374	
==>ode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::Rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3156	3279	
==>en $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3156	3279	
==>en $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21864	21982	
==>}
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	897	1007	
==>h>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	897	1007	
==>h>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	897	1007	
==>h>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1133	1242	
==>ody) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1133	1242	
==>ody) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1133	1242	
==>ody) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2011	2119	
==>= qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2011	2119	
==>= qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2011	2119	
==>= qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4464	4553	
==>BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4464	4553	
==>BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4464	4553	
==>BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15611	15832	
==>tant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15890	16111	
==>tant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4500	4598	
==>mg
    --initrd-img is the temporary image of the initrd, which will be mounted.
  --initrd-size=$i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	175	273	
==>conversion to native
sub to_native { undef }

# conversion to other native types
sub to_num { num-> <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2554	2646	
==>ting children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
metho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2554	2646	
==>ting children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2181	2291	
==>y and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2181	2291	
==>y and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2181	2291	
==>y and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	687	803	
==>his is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is nea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	687	803	
==>his is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is nea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	687	803	
==>his is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is nea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11427	11572	
==>}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11706	11851	
==>}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26103	26201	
==>ng; the allowed variable names you can have depend on the Message Key
it is being used with (others <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26103	26201	
==>ng; the allowed variable names you can have depend on the Message Key
it is being used with (others <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2703	2806	
==>TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2703	2806	
==>TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2703	2806	
==>TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38494	38621	
==>rray->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38494	38621	
==>rray->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38494	38621	
==>rray->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7549	7652	
==>s);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7549	7652	
==>s);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11431	11533	
==>:nullary->new("bool"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4370	4514	
==>her) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4370	4514	
==>her) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4370	4514	
==>her) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3610	3703	
==>ct of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3610	3703	
==>ct of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1075	1173	
==>xed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[50 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1075	1173	
==>xed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[50 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1075	1173	
==>xed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[50 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6208	6307	
==>ould be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-langua <==
3	/Users/nnunley/pugs/util/config_h.pl	1124	1223	
==>mpile(<< '.');
import System.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5995	6092	
==>ould be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-langua <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3772	3893	
==>e as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3784	3905	
==>e as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5671	5782	
==>();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1916	2028	
==>hash_alias    {  \%<name>      \:\=  <construct>  }
rule construct  { <construct_but_not_alias>|<alias> }
rule co <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2745	2846	
==>n qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a jo <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2745	2846	
==>n qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6174	6280	
==>t might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6174	6280	
==>t might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6174	6280	
==>t might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## -------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2346	2444	
==>);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2346	2444	
==>);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2346	2444	
==>);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2038	2135	
==>>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may al <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2038	2135	
==>>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11226	11322	
==>way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11226	11322	
==>way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11226	11322	
==>way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3161	3249	
==>-js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3161	3249	
==>-js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3161	3249	
==>-js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	329	435	
==>Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	309	413	
==>Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macro <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1336	1437	
==>1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, consider
using Test::Simple.  Te <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7208	7407	
==>!! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $na <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7208	7407	
==>!! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4978	5110	
==>$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4978	5110	
==>$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4978	5110	
==>$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1662	1751	
==>see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1662	1751	
==>see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14842	14958	
==>ire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14842	14958	
==>ire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14842	14958	
==>ire PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_initialize_late();



1;
__END_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2215	2316	
==>ne = %token;
    $tokenClone{syncat} = PGE_OPTABLE_CLOSE;
    $self->operatorTable()->{$spacePresent[1 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1336	1430	
==>heat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're v <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1336	1430	
==>heat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	92	195	
==>keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	92	195	
==>keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	92	195	
==>keys %$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PEx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10815	10999	
==>s => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  -> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7687	7781	
==>urn
that error message, and $parser->errnum will return the numerical value
of the message.  If <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5898	6021	
==>_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5898	6021	
==>_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5898	6021	
==>_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2519	2620	
==>ethod($label, %opts) || redo }       
}



(closure *WALKMETH ((block &dispatcher) (symbol $label) (ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12817	12915	
==>d

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=he <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12817	12915	
==>d

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	140	246	
==>l 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	140	246	
==>l 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1970	2064	
==>hod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1970	2064	
==>hod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1970	2064	
==>hod bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10336	10483	
==>tput_path, ">:utf8")
                         or die "Can't open output test file $output_path: $!";
                         
  my $template = HTML <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9904	10006	
==>d
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9904	10006	
==>d
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28535	28712	
==>. 
                $e->get('$self:')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4461	4540	
==>%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*2 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4461	4540	
==>%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	858	967	
==>e has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	858	967	
==>e has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	858	967	
==>e has *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2281	2484	
==>b { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2281	2484	
==>b { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2281	2484	
==>b { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13173	13303	
==>) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13173	13303	
==>) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13173	13303	
==>) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	28	140	
==>roxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	28	140	
==>roxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	28	140	
==>roxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3782	3961	
==>@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3782	3961	
==>@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3782	3961	
==>@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18163	18258	
==>ast, if a program simply returned words for the user, such as
'error opening file', programs wou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18163	18258	
==>ast, if a program simply returned words for the user, such as
'error opening file', programs wou <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9619	9708	
==>op{'isLazy'};
	push(@args,"named=>1") if $op{'isNamed'};
	push(@args,"writable=>1") if $op <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1434	1535	
==>{ $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $paren <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1434	1535	
==>{ $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $paren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4793	4957	
==>name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4793	4957	
==>name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4793	4957	
==>name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'H <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5730	5829	
==>event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Upd <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5730	5829	
==>event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Upd <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6626	6725	
==>thod Array::as_str (@array:) returns Str {
    join(" ",@array.values);
}

# speculative?
# behavior <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6001	6131	
==>r(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6001	6131	
==>r(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32888	32984	
==>for brevity.  The headings are object I<classes>.  The field
"family" represents the general cate <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7141	7266	
==>care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7141	7266	
==>care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7141	7266	
==>care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i+ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23321	23426	
==>st :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule Func <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5471	5576	
==>t or !defined $expected or !defined $range) {
        # This is a fail, but doesn't need extra diagnostics <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4107	4195	
==>2795028841971693993751058209749445923078164062;
     # http://www.research.att.com/~njas/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	280	406	
==>nit();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	280	406	
==>nit();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	280	406	
==>nit();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1216	1322	
==>$method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1216	1322	
==>$method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1216	1322	
==>$method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3826	3940	
==>mts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3826	3940	
==>mts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	676	790	
==>mts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10154	10292	
==>eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10154	10292	
==>eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1877	1986	
==>..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1877	1986	
==>..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14432	14524	
==>, !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%--------- <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13786	13919	
==>t /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $skip =~ /^Ski <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7931	8029	
==>ec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7931	8029	
==>ec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	245	389	
==>cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	245	389	
==>cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17023	17135	
==>$dispatcher = $self.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> $method {
        $method. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11312	11434	
==>/ Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11312	11434	
==>/ Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11312	11434	
==>/ Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5151	5306	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5151	5306	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5151	5306	
==>ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	302	426	
==>ir {
    my $class = shift;
    return $class->no_match unless $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runti <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5770	5867	
==>AME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5770	5867	
==>AME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16429	16529	
==>or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16429	16529	
==>or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34864	34965	
==>other> along
their common attributes.  This method will fail if the heading of <$other>
is not a subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39414	39515	
==>other> along
their common attributes.  This method will fail if the heading of <$other>
is not a subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38947	39048	
==>other> along
their common attributes.  This method will fail if the heading of <$other>
is not a subse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	419	543	
==>if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	419	543	
==>if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	419	543	
==>if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6297	6402	
==>tr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6297	6402	
==>tr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6297	6402	
==>tr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_sou <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27406	27554	
==>el
        symbol->new('_merge'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12917	13044	
==>od normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12917	13044	
==>od normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3306	3406	
==>idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3306	3406	
==>idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3306	3406	
==>idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13735	13903	
==>)                    and die $?;
        system( qq[ln -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Alternative-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1389	1489	
==>( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1389	1489	
==>( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10800	10933	
==>sed." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HAR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10800	10933	
==>sed." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HAR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10800	10933	
==>sed." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HAR <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19307	19455	
==>abel
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39759	39907	
==>abel
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22736	22877	
==>ment;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23015	23156	
==>ment;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2707	2853	
==>}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2707	2853	
==>}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2707	2853	
==>}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2299	2476	
==>kage}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package} };
                }

                ### write the data into the available list <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7811	7938	
==>my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8004	8131	
==>my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1119	1223	
==>rintf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOLD . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16274	16365	
==>butes" attribute if provided (it defaults to empty if the parameter's
corresponding argument <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16274	16365	
==>butes" attribute if provided (it defaults to empty if the parameter's
corresponding argument <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	464	619	
==>o' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	464	619	
==>o' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	464	619	
==>o' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1683	1804	
==>= Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1683	1804	
==>= Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        : <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1490	1599	
==>( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $ta <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	448	553	
==>uote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diph <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	448	553	
==>uote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2935	3041	
==>"elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2935	3041	
==>"elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2935	3041	
==>"elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2765	2872	
==>POS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $err, @args) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34185	34276	
==><minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38735	38826	
==><minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This me <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9207	9306	
==>y{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9207	9306	
==>y{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1422	1520	
==>mbol;

	my $result = $self->inner_reduce($node);
	
	if (defined $symbol) {
		return $self->define($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1266	1365	
==>::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1266	1365	
==>::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1266	1365	
==>::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39659	39769	
==>t;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39659	39769	
==>t;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39659	39769	
==>t;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	87	195	
==>s in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	87	195	
==>s in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	87	195	
==>s in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	334	451	
==>Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	352	443	
==>thods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	352	443	
==>thods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7185	7295	
==>itive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7185	7295	
==>itive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7185	7295	
==>itive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	338	455	
==>f->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9756	9873	
==>f->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2694	2804	
==>se {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2911	3021	
==>se {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached. <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5907	6044	
==>"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5907	6044	
==>"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16583	16695	
==>=> 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16583	16695	
==>=> 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16439	16557	
==>sh($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16439	16557	
==>sh($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	284	403	
==>lf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	284	403	
==>lf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	284	403	
==>lf->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	765	872	
==>es:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	765	872	
==>es:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	765	872	
==>es:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9490	9622	
==>$self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3148	3258	
==>' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3136	3246	
==>' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1809	2054	
==>'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12888	13084	
==>( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13167	13363	
==>( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1386	1501	
==>ap { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1386	1501	
==>ap { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1386	1501	
==>ap { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3201	3342	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3201	3342	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3201	3342	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	549	652	
==>* Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	549	652	
==>* Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	549	652	
==>* Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	759	885	
==>6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'D <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	759	885	
==>6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'D <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	759	885	
==>6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5081	5244	
==>>new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5081	5244	
==>>new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5081	5244	
==>>new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1673	1819	
==>ith Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1673	1819	
==>ith Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6208	6302	
==>fh>

  my %results = $strap->analyze_fh($name, $test_filehandle);

Like C<analyze>, but it read <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1472	1575	
==>ength; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1472	1575	
==>ength; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1472	1575	
==>ength; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6052	6161	
==>rintWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6052	6161	
==>rintWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6052	6161	
==>rintWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18976	19145	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19255	19424	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8894	8992	
==>relative_file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	240	354	
==>, store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	240	354	
==>, store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	240	354	
==>, store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        retu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5822	5970	
==>rray[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_cha <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4322	4470	
==>rray[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_cha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	958	1047	
==>" } ))->code;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3280	3385	
==>named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3280	3385	
==>named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13250	13394	
==>t->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_as <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9436	9580	
==>t->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_as <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10272	10416	
==>t->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20920	21021	
==>do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20920	21021	
==>do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6250	6367	
==>n "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6250	6367	
==>n "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6250	6367	
==>n "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: in <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3515	3614	
==>93) from Prelude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
multi Array::splice (       @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	345	517	
==>y ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	566	668	
==>a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are no <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	566	668	
==>a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4516	4619	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4516	4619	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4516	4619	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1188	1285	
==>yntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=head2 Base ADTs

All nodes as we <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3065	3155	
==>t =>     $self._get_intersection( $self.complement_next, $self.complement_previous, $set.co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3065	3155	
==>t =>     $self._get_intersection( $self.complement_next, $self.complement_previous, $set.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5822	6039	
==>ength -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5822	6039	
==>ength -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5822	6039	
==>ength -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2069	2162	
==>ll::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read onl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2069	2162	
==>ll::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read onl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2069	2162	
==>ll::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read onl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5461	5635	
==>t->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2766	2859	
==>rce>

=item B<source($new_source)>

Returns the representation of this node in the original te <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2766	2859	
==>rce>

=item B<source($new_source)>

Returns the representation of this node in the original te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7193	7306	
==>emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3797	3910	
==>emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4646	4759	
==>emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8805	8947	
==>\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8805	8947	
==>\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8805	8947	
==>\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4768	4946	
==>ay') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4768	4946	
==>ay') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4768	4946	
==>ay') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2708	2827	
==>ing test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2708	2827	
==>ing test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4232	4351	
==>ing test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2530	2656	
==>NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2530	2656	
==>NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2530	2656	
==>NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2871	3024	
==>my $package = ref( $self->_top );
    my $version = $self->_top->VERSION;
    my %values  = %{ $self->{'values'} };

    delete $values{sign};
    if ( my <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1492	1592	
==>as Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a * <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1492	1592	
==>as Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a * <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18097	18195	
==>ld be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18097	18195	
==>ld be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6692	6783	
==>ect->singleton_test_on_object(), 
   '&Object::singleton_test_on_object',
   '... got the ri <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3746	3889	
==>ait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3746	3889	
==>ait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6993	7107	
==>test_files}};
        unlink $file or die "unlink: $!";
    }
    warn "all chunks completed.\n";
}

sub run_test { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4788	4919	
==>ackage ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bareword} eq <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16784	16884	
==>( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16784	16884	
==>( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise <==
3	/Users/nnunley/pugs/util/run-smoke.pl	552	651	
==>y $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22652	22750	
==>ute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27204	27302	
==>ute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Rela <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3668	3809	
==>hift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4132	4273	
==>hift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16187	16439	
==>' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16187	16439	
==>' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16187	16439	
==>' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'value <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	794	889	
==>ompiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	794	889	
==>ompiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($r <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1093	1217	
==>op again.
    ./:step(); #/#--vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please overri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1184	1272	
==>E')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1404	1492	
==>E')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)< <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10140	10289	
==>w( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!>',
        body => sub {
            $_[1] ? $_[2] : $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6864	6979	
==>"$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6864	6979	
==>"$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8923	9035	
==>not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12400	12512	
==>not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11627	11739	
==>not match the heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	755	863	
==>gal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	755	863	
==>gal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	755	863	
==>gal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2859	2972	
==>ubname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2859	2972	
==>ubname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2859	2972	
==>ubname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1000	1106	
==>perators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1000	1106	
==>perators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1000	1106	
==>perators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Nu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3	105	
==>usr/bin/perl

package Blondie;

use strict;
use warnings;

__PACKAGE__;

__END__

=pod

=head1 NAME

Bl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	332	425	
==>nput file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the sou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	332	425	
==>nput file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the sou <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11858	11968	
==>e = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11858	11968	
==>e = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17936	18041	
==>ex 

Needs to be in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6188	6279	
==>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6188	6279	
==>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6188	6279	
==>{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	984	1091	
==>ified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	984	1091	
==>ified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	984	1091	
==>ified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3853	3949	
==>s that the next test should fail.  C<$description> is the optional
description of the test.  This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3853	3949	
==>s that the next test should fail.  C<$description> is the optional
description of the test.  This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3933	4029	
==>s that the next test should fail.  C<$description> is the optional
description of the test.  This <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6499	6593	
==>le parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set.  Gra <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7390	7487	
==>nput data until they have an entire block, then cipher 
the block and return the new ciphertext (o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7390	7487	
==>nput data until they have an entire block, then cipher 
the block and return the new ciphertext (o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2346	2441	
==>f : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[1][0], named <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	675	791	
==>void_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	675	791	
==>void_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	675	791	
==>void_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13338	13431	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13338	13431	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13338	13431	
==>rn $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	709	862	
==>ey[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	709	862	
==>ey[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	268	373	
==>y $self = shift;
    my $program = shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9789	9896	
==>able',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9789	9896	
==>able',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9789	9896	
==>able',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a <==
3	/Users/nnunley/pugs/util/package-osx.pl	5202	5299	
==>ocal/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3768	3860	
==>n <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3768	3860	
==>n <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1801	1923	
==>the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1801	1923	
==>the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2037	2159	
==>the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = D <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1312	1423	
==>r THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	872	983	
==>r THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22081	22178	
==>t)

C<\b> was being turned into "b" inside a character class, instead of
a backspace.  (Mike Lambe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6009	6154	
==>));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6009	6154	
==>));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6009	6154	
==>));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6010	6169	
==>access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6010	6169	
==>access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6010	6169	
==>access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	513	659	
==>output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	513	659	
==>output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	593	739	
==>output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5678	5782	
==>->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'no <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5678	5782	
==>->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'no <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6268	6372	
==>->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2259	2358	
==><VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2259	2358	
==><VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	269	423	
==>ss::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	269	423	
==>ss::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	269	423	
==>ss::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4976	5074	
==>*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4976	5074	
==>*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4976	5074	
==>*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	74	181	
==>eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	74	181	
==>eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	74	181	
==>eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	955	1088	
==>_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::ident <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	955	1088	
==>_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::ident <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	955	1088	
==>_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::ident <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3187	3443	
==>Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thun <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4128	4221	
==>77216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4128	4221	
==>77216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5302	5449	
==>s. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor w <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5766	5913	
==>s. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor w <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	49	152	
==>=Bindung (dynamisch)
my $x = 'Just Another';
# $x wird nun zur Laufzeit an $y gebunden
my $y := $x;
$y = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	586	708	
==>),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	563	680	
==>),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3356	3471	
==>@{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak " <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8329	8457	
==>=utf-8" />

  <style type="text/css">
    body {
      background-color: white;
      margin:           0;

      font-family: sa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12925	13020	
==>ool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These func <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12983	13078	
==>ool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3711	3822	
==>::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3711	3822	
==>::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3711	3822	
==>::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2408	2534	
==>ted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2316	2439	
==>ted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	488	608	
==>$key = sub {
        my $self = shift;
        return $self->{values}{$key} if defined wantarray and !@_;
        $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1200	1315	
==>eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1200	1315	
==>eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1200	1315	
==>eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7850	8031	
==>b {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7850	8031	
==>b {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7850	8031	
==>b {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1061	1170	
==>}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1061	1170	
==>}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1061	1170	
==>}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1444	1545	
==>aram<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param< <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1444	1545	
==>aram<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15274	15384	
==>n($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15274	15384	
==>n($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15274	15384	
==>n($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	279	396	
==>:<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	279	396	
==>:<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	279	396	
==>:<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4571	4691	
==>optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4571	4691	
==>optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	684	789	
==>ctory containing
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

use strict;

# XXX: should make th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5298	5418	
==>d_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5298	5418	
==>d_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5298	5418	
==>d_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2123	2222	
==>ao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2123	2222	
==>ao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2123	2222	
==>ao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4787	4954	
==>sure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6549	6716	
==>sure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	714	876	
==>TCH('::TODO')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>      $params{'$.passed'},
                '$.re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24198	24307	
==>ter on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Conf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1535	1629	
==>eral other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1535	1629	
==>eral other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Per <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	936	1045	
==>bject ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	936	1045	
==>bject ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11313	11411	
==>an alternate regexp engine,
  using calls to p5 subs,
  which can be defined differently in differe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6314	6440	
==>(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6314	6440	
==>(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3015	3125	
==>);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchabl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9828	9928	
==>if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is expor <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9828	9928	
==>if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is expor <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	82	177	
==>enced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3579	3720	
==>eturn { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3436	3573	
==>eturn { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	73	191	
==>use File::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5472	5568	
==>alX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5472	5568	
==>alX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5472	5568	
==>alX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16068	16224	
==>self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16068	16224	
==>self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16068	16224	
==>self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5686	5797	
==>d in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5686	5797	
==>d in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5686	5797	
==>d in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4404	4523	
==>lap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4404	4523	
==>lap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4404	4523	
==>lap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = [] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29507	29606	
==>ocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34059	34158	
==>ocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33223	33322	
==>ocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are not tu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6645	6766	
==>$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6645	6766	
==>$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6645	6766	
==>$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12654	12831	
==>.
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12648	12825	
==>.
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	308	409	
==>can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14723	14855	
==>t ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14723	14855	
==>t ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14723	14855	
==>t ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4536	4695	
==>rity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4536	4695	
==>rity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4536	4695	
==>rity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	139	263	
==>r str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	139	263	
==>r str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	139	263	
==>r str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3189	3334	
==>? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3189	3334	
==>? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3189	3334	
==>? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7303	7468	
==>'$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7303	7468	
==>'$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7303	7468	
==>'$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11074	11237	
==>1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11074	11237	
==>1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11074	11237	
==>1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8139	8229	
==>en_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statement <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1964	2054	
==>en_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statement <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1958	2065	
==>t implemented";
}

sub perl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1668	1757	
==>/SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes which <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1668	1757	
==>/SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes which <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16497	16655	
==>( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    ta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19974	20132	
==>( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    ta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19534	19692	
==>( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    ta <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11716	11843	
==>o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14564	14691	
==>o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26760	26872	
==>g;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Types::overload;
use Language::Prolog::Sugar
	    f <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8134	8241	
==>king if we have to rebuild the initrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1678	1782	
==>sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1678	1782	
==>sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1914	2018	
==>sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12851	12954	
==>cumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12851	12954	
==>cumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12851	12954	
==>cumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2987	3112	
==>- @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2987	3112	
==>- @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2987	3112	
==>- @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2190	2321	
==>se Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrout <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2190	2321	
==>se Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrout <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2537	2668	
==>se Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5776	5874	
==>mple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5776	5874	
==>mple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5776	5874	
==>mple might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	684	812	
==>aque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	684	812	
==>aque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	684	812	
==>aque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4951	5126	
==>ferent versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4951	5126	
==>ferent versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2128	2222	
==>se B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1005	1123	
==>< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1005	1123	
==>< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1005	1123	
==>< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14354	14502	
==>own here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14354	14502	
==>own here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14354	14502	
==>own here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2577	2681	
==>", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2577	2681	
==>", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2577	2681	
==>", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»", <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7792	7905	
==>child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $tra <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7792	7905	
==>child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2353	2459	
==>name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2353	2459	
==>name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2353	2459	
==>name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	274	376	
==>.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	274	376	
==>.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	274	376	
==>.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	274	386	
==>ta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	274	386	
==>ta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	274	386	
==>ta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	447	546	
==>le     = undef;
$::EigenClass = undef;

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	447	546	
==>le     = undef;
$::EigenClass = undef;

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	447	546	
==>le     = undef;
$::EigenClass = undef;

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2426	2565	
==>ass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2426	2565	
==>ass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2426	2565	
==>ass Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file = <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3135	3240	
==>ow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3135	3240	
==>ow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	664	811	
==>\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bareword {
    my $class = shift;
    return $class->no_match unless $_[0];
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1325	1456	
==>/gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1325	1456	
==>/gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1325	1456	
==>/gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6597	6723	
==>tr },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6597	6723	
==>tr },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6597	6723	
==>tr },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	397	503	
==>X - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	397	503	
==>X - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9266	9412	
==>meter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'met <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1092	1200	
==>y();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $ans <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1092	1200	
==>y();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $ans <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1128	1247	
==>rs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1128	1247	
==>rs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1128	1247	
==>rs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%par <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16210	16345	
==>dy.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19687	19822	
==>dy.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19220	19355	
==>dy.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1630	1730	
==>y is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1630	1730	
==>y is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1630	1730	
==>y is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5495	5619	
==>attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5495	5619	
==>attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5495	5619	
==>attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	988	1133	
==>);
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	988	1133	
==>);
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	988	1133	
==>);
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2136	2243	
==>xpect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagn <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2136	2243	
==>xpect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2216	2323	
==>xpect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagn <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5998	6106	
==>sr_token_match_3";
  goto token_match;
  bsr_token_match_3:
  goto end unless $operator;

  found_oper:
  $to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6705	6812	
==>getters need to know what you want (str, bool, hash, array, match)



- compile()



### obvious - not docum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6480	6583	
==>getters need to know what you want (str, bool, hash, array, match)

- compile()

### obvious - not docum <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2164	2255	
==>quest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2164	2255	
==>quest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1549	1694	
==>ail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1495	1636	
==>ail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $stat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29985	30090	
==>be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a test for verbose.

Change i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5035	5155	
==>RECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5035	5155	
==>RECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5035	5155	
==>RECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1563	1663	
==>his will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1563	1663	
==>his will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1563	1663	
==>his will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4700	4848	
==>ight->length) == bit->new(1);
    foreach my $i (map { num->new($_)  } 0 .. $left->elems->to_native) {
        # warn "calling equal_to on " . $left- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6371	6475	
==>Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse() <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6371	6475	
==>Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27629	27726	
==>r, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32181	32278	
==>r, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31273	31370	
==>r, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13369	13474	
==>{ mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13369	13474	
==>{ mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13369	13474	
==>{ mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	778	873	
==>rintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	778	873	
==>rintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	778	873	
==>rintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	212	306	
==>an
    date expires if_modified_since if_unmodified_since last_modified
    content_type conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	212	306	
==>an
    date expires if_modified_since if_unmodified_since last_modified
    content_type conten <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3161	3317	
==>f->array_storeSize($size);
                }
            },

            'array_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4576	4706	
==>º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4576	4706	
==>º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29721	29918	
==>::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29721	29918	
==>::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29721	29918	
==>::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2327	2425	
==>S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2327	2425	
==>S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2327	2425	
==>S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = Stri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5999	6341	
==>($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5999	6341	
==>($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1	97	
==>module Prelude::PIR-0.0.1;
# XXX -- for some reason, compilation doesn't work if the above line i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7539	7785	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7539	7785	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7539	7785	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	558	682	
==>$::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	558	682	
==>$::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	558	682	
==>$::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	934	1088	
==>dices
                my $self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	92	194	
==>----------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!paren <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	92	194	
==>----------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!paren <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4248	4342	
==>nfix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4248	4342	
==>nfix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4248	4342	
==>nfix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	185	280	
==>thod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	185	280	
==>thod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	185	280	
==>thod name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20711	20867	
==>my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20990	21146	
==>my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1720	1821	
==>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1720	1821	
==>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1720	1821	
==>{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but Java <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4035	4156	
==>_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of ou <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4035	4156	
==>_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1494	1611	
==>t {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Mo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1494	1611	
==>t {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Mo <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1383	1493	
==>ndofperl
EOT

close $F;

# build the executable
chdir($testdir);
END {
    #chdir($cwd) && rmtree("$cwd <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2732	2835	
==>d1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2732	2835	
==>d1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4256	4359	
==>d1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::B <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7990	8104	
==>st I<$file>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_com <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2462	2554	
==>s_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end_i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2462	2554	
==>s_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end_i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3330	3465	
==>iag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3330	3465	
==>iag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4854	4989	
==>iag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3325	3475	
==>rn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3325	3475	
==>rn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3325	3475	
==>rn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junctio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1187	1321	
==>"js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1187	1321	
==>"js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1187	1321	
==>"js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	678	799	
==>e ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	678	799	
==>e ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	678	799	
==>e ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5202	5317	
==>::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5202	5317	
==>::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5202	5317	
==>::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5301	5413	
==>")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5301	5413	
==>")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5301	5413	
==>")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6443	6559	
==>0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6443	6559	
==>0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6443	6559	
==>0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14455	14559	
==>rray_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_hash_co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24547	24637	
==>al Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24547	24637	
==>al Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23571	23712	
==>d;
    my @result = ();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for (@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9103	9217	
==>ves and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2138	2252	
==>ves and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15400	15499	
==>ot, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15458	15557	
==>ot, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, S <==
3	/Users/nnunley/pugs/util/package-osx.pl	6431	6528	
==>.3pm
        /usr/local/man/man3/Perl6::Overview::Rule.3
        /usr/local/man/man3/Perl6::Overvi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25074	25170	
==>he Message class is pure and deterministic,
such that all of its class and object methods will ea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25074	25170	
==>he Message class is pure and deterministic,
such that all of its class and object methods will ea <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1887	1995	
==>w;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1887	1995	
==>w;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    ret <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2016	2118	
==>n 'perl5'   { Pugs::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::Internals::eval_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6833	6957	
==>urpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6833	6957	
==>urpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6833	6957	
==>urpy = grep /^[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6986	7120	
==>texts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6986	7120	
==>texts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6986	7120	
==>texts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2841	2954	
==>p_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2841	2954	
==>p_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2841	2954	
==>p_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9919	10067	
==>ed_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11396	11544	
==>ed_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5276	5378	
==>$self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5276	5378	
==>$self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5276	5378	
==>$self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3212	3340	
==>e tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3212	3340	
==>e tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3212	3340	
==>e tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	856	954	
==>w();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	856	954	
==>w();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	856	954	
==>w();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5179	5298	
==>t::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5179	5298	
==>t::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5179	5298	
==>t::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return und <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24102	24198	
==>ding> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28654	28750	
==>ding> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26570	26663	
==>f package C<TYPE> and sends the constructor whatever
other arguments are included.  This metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	340	438	
==>nline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	340	438	
==>nline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	340	438	
==>nline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6226	6361	
==>( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6226	6361	
==>( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6226	6361	
==>( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implement <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3249	3371	
==>World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::S <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3249	3371	
==>World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	885	1124	
==>:EigenClass ? 
                            "color = grey60, " .
                            "fontcolor = grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, <==
3	/Users/nnunley/pugs/util/package-osx.pl	7450	7538	
==>usr/local/man/man3/Perl6::Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Spec:: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	50	149	
==>VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This docume <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	50	149	
==>VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This docume <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4571	4671	
==>item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4571	4671	
==>item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6768	6868	
==>item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17188	17284	
==>ods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17188	17284	
==>ods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17188	17284	
==>ods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Cla <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7775	7889	
==>>accepts_type } @params ) => $last->type, ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		} else {
			r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3930	4030	
==>ns => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be or <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3930	4030	
==>ns => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be or <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	379	516	
==>Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	379	516	
==>Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!outp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19770	19904	
==>(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxP <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16191	16325	
==>(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxP <==
3	/Users/nnunley/pugs/util/drift.pl	930	1028	
==>rh> };
waitpid($pid, 0);
exit unless @program;

# Rearrange the DrIFT header
@program[0..2] = @prog <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19599	19691	
==>($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19599	19691	
==>($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19599	19691	
==>($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7319	7533	
==>newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.cap <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7319	7533	
==>newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	801	909	
==>($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	801	909	
==>($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	801	909	
==>($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5329	5441	
==>s->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5329	5441	
==>s->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5329	5441	
==>s->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6465	6561	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6465	6561	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6465	6561	
==>>as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    lo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4183	4279	
==>to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4183	4279	
==>to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6380	6476	
==>to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17821	17915	
==>x1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17821	17915	
==>x1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17821	17915	
==>x1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2047	2145	
==>'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2047	2145	
==>'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6589	6701	
==>->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6589	6701	
==>->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6589	6701	
==>->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_method('subcl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7197	7311	
==>start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7197	7311	
==>start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5529	5626	
==>n = emit(get_data($_[0],'$<condition>'));
    my $then = emit(get_data($_[0],'$<then>'));
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16366	16489	
==>'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16366	16489	
==>'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16366	16489	
==>'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1118	1217	
==>remove header from output object; it gets in the way of the first test
$tb_output.output();

sub pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1118	1217	
==>remove header from output object; it gets in the way of the first test
$tb_output.output();

sub pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1198	1297	
==>remove header from output object; it gets in the way of the first test
$tb_output.output();

sub pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3349	3469	
==>ting a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3349	3469	
==>ting a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3349	3469	
==>ting a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4099	4234	
==>atch, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4099	4234	
==>atch, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26084	26179	
==>e the heading of this Relation::Example.  Each attribute name is a character
string.

=item C<$! <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28840	28966	
==>= (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28840	28966	
==>= (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	211	321	
==>= (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	181	294	
==>xt) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	181	294	
==>xt) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	181	294	
==>xt) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	129	231	
==>b File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	129	231	
==>b File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	129	231	
==>b File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<M <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10437	10553	
==>f $S0 != "}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4123	4224	
==>ts to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4307	4408	
==>ts to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	809	909	
==>:Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	809	909	
==>:Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	809	909	
==>:Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # B <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7460	7568	
==>r_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_travers <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7460	7568	
==>r_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_travers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20492	20594	
==>1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20492	20594	
==>1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20492	20594	
==>1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1637	1736	
==>{ return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1637	1736	
==>{ return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1637	1736	
==>{ return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	933	1047	
==>lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	933	1047	
==>lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	933	1047	
==>lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6630	6753	
==>s
results.  It will also use that name for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unles <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37173	37266	
==>mplate_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37173	37266	
==>mplate_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4956	5046	
==>JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4956	5046	
==>JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4956	5046	
==>JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n]) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22929	23022	
==>on is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION A <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22929	23022	
==>on is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	525	634	
==>:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	785	894	
==>:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1057	1166	
==>:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	42	161	
==>gexp::Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14912	15011	
==>_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9112	9211	
==>_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1078	1189	
==>que_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1078	1189	
==>que_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1078	1189	
==>que_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	738	845	
==>cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	738	845	
==>cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	738	845	
==>cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5306	5466	
==>ed' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5306	5466	
==>ed' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5306	5466	
==>ed' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7027	7136	
==>lrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13426	13530	
==>^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(` <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13426	13530	
==>^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(` <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9825	9967	
==>description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1904	2032	
==>description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1904	2032	
==>description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7372	7488	
==>";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7372	7488	
==>";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7372	7488	
==>";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5230	5330	
==>e above).  This lets you to
do anything you like with each object, but is (at least nominally)
intend <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5230	5330	
==>e above).  This lets you to
do anything you like with each object, but is (at least nominally)
intend <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5230	5330	
==>e above).  This lets you to
do anything you like with each object, but is (at least nominally)
intend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14593	14759	
==>2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14593	14759	
==>2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14593	14759	
==>2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9737	9832	
==>ned by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9737	9832	
==>ned by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "n <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23500	23601	
==>,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1] <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	962	1061	
==>_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43503	43594	
==>connections to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documenta <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	623	725	
==>ss to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten() <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	623	725	
==>ss to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten() <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3080	3179	
==>v =~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($1, $2);
    $c =~ s/^\{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4978	5122	
==>iled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4978	5122	
==>iled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4978	5122	
==>iled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the inpu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6925	7033	
==>);
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	575	680	
==>file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	548	648	
==>file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2649	2788	
==>,
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2649	2788	
==>,
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2649	2788	
==>,
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24179	24326	
==>>elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24179	24326	
==>>elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24179	24326	
==>>elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16933	17054	
==>t(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16933	17054	
==>t(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13761	13867	
==>quant";

    # on /abc+/, we extract the 'c' from the 'exact' node
    if ($tree->[-1]->family eq "exact" a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6639	6745	
==>turn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6639	6745	
==>turn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5396	5502	
==>ub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5396	5502	
==>ub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5396	5502	
==>ub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8449	8584	
==>eturn $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8449	8584	
==>eturn $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8449	8584	
==>eturn $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3361	3476	
==>m{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3361	3476	
==>m{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3361	3476	
==>m{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15225	15397	
==>array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15225	15397	
==>array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15225	15397	
==>array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	385	556	
==>rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	385	556	
==>rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	385	556	
==>rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	94	196	
==>nfix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14258	14349	
==>ute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14258	14349	
==>ute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14258	14349	
==>ute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('% <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6325	6474	
==>*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6325	6474	
==>*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	992	1088	
==>ta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::Package::Installed
on <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	161	316	
==>= shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8639	8733	
==>start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

Th <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8639	8733	
==>start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

Th <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16164	16283	
==>e last character
chopped.


=item chomp

 multi Str::chomp (  Str  $string is rw                 --> Int )
 multi Str::c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2020	2115	
==>der ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2020	2115	
==>der ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11012	11240	
==>cess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11012	11240	
==>cess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11012	11240	
==>cess => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2847	2993	
==>rs implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't wo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3031	3177	
==>rs implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7404	7500	
==>s[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7404	7500	
==>s[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7404	7500	
==>s[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3330	3446	
==>$self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3330	3446	
==>$self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3330	3446	
==>$self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6585	6708	
==>'$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6585	6708	
==>'$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6585	6708	
==>'$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5855	5959	
==>st.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5855	5959	
==>st.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5855	5959	
==>st.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3442	3568	
==>ue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3442	3568	
==>ue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3442	3568	
==>ue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$ <==
3	/Users/nnunley/pugs/util/func_refact.pl	1483	1592	
==>$ignoring{$new};

    my $size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1457	1550	
==>l complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enou <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1457	1550	
==>l complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3151	3294	
==>elf->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3151	3294	
==>elf->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3151	3294	
==>elf->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $class => self: $ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	587	738	
==>$status ~ "\n";
    # TODO:
    # Need to add support for -
    #    Expires:
    #    Pragma: (caching)
    #    Set-Cookie: (multiple cookies)
    pri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17519	17613	
==>>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
standa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17519	17613	
==>>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
standa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22425	22523	
==>e result when invoked on the
same object with the same arguments; they do not interact with the out <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26977	27075	
==>e result when invoked on the
same object with the same arguments; they do not interact with the out <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25700	25798	
==>e result when invoked on the
same object with the same arguments; they do not interact with the out <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	185	288	
==>[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3666	3780	
==>s that the next test should pass.  C<$description> is the optional
description of the test.  This is the easiest wa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3666	3780	
==>s that the next test should pass.  C<$description> is the optional
description of the test.  This is the easiest wa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3746	3860	
==>s that the next test should pass.  C<$description> is the optional
description of the test.  This is the easiest wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12023	12115	
==>AME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12023	12115	
==>AME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12023	12115	
==>AME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1087	1187	
==>3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1087	1187	
==>3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1087	1187	
==>3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6307	6405	
==>', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6307	6405	
==>', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1636	1765	
==>$i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1636	1765	
==>$i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1636	1765	
==>$i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3478	3577	
==>hich C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a F <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3478	3577	
==>hich C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5675	5774	
==>hich C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a F <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1759	1874	
==>fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1759	1874	
==>fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	816	926	
==>s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	816	926	
==>s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4594	4741	
==>l} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::create_class(
    '$:name'       => 'EigenClass',
    '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4038	4158	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4038	4158	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4038	4158	
==>aModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9868	10016	
==>param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9868	10016	
==>param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9868	10016	
==>param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2468	2581	
==>my $class = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8535	8635	
==>lize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Chang <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8535	8635	
==>lize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Chang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3030	3169	
==>od")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simpl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3030	3169	
==>od")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simpl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3030	3169	
==>od")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simpl <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9696	9809	
==>er executable we've found (which could be
        # undef, if we didn't find anything).

        $ghc_pkg = $ghc_e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7418	7510	
==>Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $di <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7418	7510	
==>Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $di <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	894	1046	
==>h => $1,
        tail  => $2
    });
}
sub varglobal {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^([\$|\@| <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37307	37400	
==>This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41856	41949	
==>This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19918	20010	
==>$xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19918	20010	
==>$xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19918	20010	
==>$xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39829	39920	
==>Lesser General Public License (LGPL) as
published by the Free Software Foundation (L<http:// <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39829	39920	
==>Lesser General Public License (LGPL) as
published by the Free Software Foundation (L<http:// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5667	5799	
==>codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5667	5799	
==>codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5667	5799	
==>codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1048	1149	
==>test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1048	1149	
==>test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1048	1149	
==>test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	557	682	
==>t_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1041	1166	
==>t_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3701	3806	
==><$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3701	3806	
==><$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5898	6003	
==><$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13023	13136	
==>return _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", Du <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12644	12741	
==>Returns true if the recurrence is infinite.

- `start()`

Returns the start element in the recurre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12644	12741	
==>Returns true if the recurrence is infinite.

- `start()`

Returns the start element in the recurre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	645	747	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	645	747	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	645	747	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), cc = args. <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1589	1702	
==>ile
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2251	2364	
==>ile
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	571	668	
==>m index

Path to the index directory. default: $root/dists

=item index_file

Path to the main ind <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	479	626	
==>:P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	479	626	
==>:P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'd <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52517	52614	
==>Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => list->ne <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	262	389	
==>_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $w <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	262	389	
==>_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $w <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	166	262	
==>nted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	166	262	
==>nted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2407	2500	
==>Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_toward_z <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	0	102	
==>module CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my % <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	0	102	
==>module CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my % <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9479	9574	
==>mbol $label)) returns nil
    ((($self: get_attr (symbol new (%:methods))) delete ($label))))

= <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30174	30330	
==>r->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to(str->new(':descendant')) == $bit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	58	164	
==>r the experimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	56	157	
==>r the experimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system gramm <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	132	259	
==>examples",
        );
      pick @arr || @default
}

sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1106	1199	
==>ments, written
in question/answer format, to explain the design and implementation of Pugs.

= <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1106	1199	
==>ments, written
in question/answer format, to explain the design and implementation of Pugs.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	621	726	
==>e { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	621	726	
==>e { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	621	726	
==>e { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1217	1343	
==>ef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1217	1343	
==>ef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1217	1343	
==>ef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8244	8353	
==>ess ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8244	8353	
==>ess ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	449	544	
==>otator_class { "Blondie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->ann <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1766	1868	
==>N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1766	1868	
==>N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1766	1868	
==>N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2077	2188	
==>nc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd::abs_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14714	14811	
==>l $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14714	14811	
==>l $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" c <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1294	1395	
==>erl Object Environment for Perl 6

=head1 SYNOPSIS

  class MySession is POE::Session {
    method dis <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7755	7854	
==>e array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AU <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7755	7854	
==>e array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3533	3639	
==>$_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3533	3639	
==>$_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3533	3639	
==>$_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5306	5413	
==>_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5306	5413	
==>_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5306	5413	
==>_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15193	15328	
==>f' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15193	15328	
==>f' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15193	15328	
==>f' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13134	13243	
==>!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16611	16720	
==>!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15973	16082	
==>!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (all( $other!h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2748	2849	
==>warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2748	2849	
==>warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2748	2849	
==>warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $ei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6955	7101	
==>slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6955	7101	
==>slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6955	7101	
==>slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9428	9614	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9428	9614	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9428	9614	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12358	12517	
==>'Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12358	12517	
==>'Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	733	847	
==>mmar = classname of mod;
    }
    $target = $matchObj->target();
    $from = $matchObj->position();
  }

  $me = n <==
3	/Users/nnunley/pugs/util/testgraph.pl	1257	1366	
==>oduce cross-linkable tests
   util/run-smome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    pac <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	431	532	
==>e($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could not open $file in $dir\n");
		return $c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14915	15009	
==>VENIENCE METHODS

The most frequently used headers can also be accessed through the
following c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14915	15009	
==>VENIENCE METHODS

The most frequently used headers can also be accessed through the
following c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	393	501	
==>n the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - uni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	393	501	
==>n the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - uni <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	491	637	
==>onfig::Config{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self->can_run('nmake')
    );

    print "T <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	445	555	
==>304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has Date <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	445	555	
==>304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has Date <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50881	51041	
==>mbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  -> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11648	11737	
==>ies;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11648	11737	
==>ies;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entitie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10240	10381	
==>ispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10240	10381	
==>ispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10240	10381	
==>ispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12847	12945	
==>ol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12847	12945	
==>ol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12847	12945	
==>ol;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6024	6129	
==>\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6024	6129	
==>\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6024	6129	
==>\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22640	22773	
==>],
      family => 'assertion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2086	2188	
==>less substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2086	2188	
==>less substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, St <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	194	301	
==>(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3313	3417	
==>alize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3313	3417	
==>alize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostna <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2778	2902	
==>turn new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2778	2902	
==>turn new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2778	2902	
==>turn new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33462	33560	
==>hould
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33462	33560	
==>hould
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1886	2010	
==>res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1886	2010	
==>res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1886	2010	
==>res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	123	248	
==>State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	123	248	
==>State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	123	248	
==>State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2369	2473	
==>method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstri <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2369	2473	
==>method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstri <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	221	325	
==>NOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding suppor <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	221	325	
==>NOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding suppor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2983	3110	
==>on = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2983	3110	
==>on = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2983	3110	
==>on = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, % <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4471	4753	
==>when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4471	4753	
==>when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2703	2799	
==>n("close:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix::", "nows");

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	747	885	
==>" . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \% <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	740	878	
==>" . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \% <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11409	11541	
==>method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signature->ne <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	811	922	
==>DS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	811	922	
==>DS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1367	1478	
==>DS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1749	1858	
==>")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1749	1858	
==>")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1749	1858	
==>")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarNa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	102	207	
==>rn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	102	207	
==>rn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	102	207	
==>rn bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2067	2200	
==>ms([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2067	2200	
==>ms([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Reques <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	870	976	
==>to a cpan module for
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And perl5 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3487	3584	
==>est::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3487	3584	
==>est::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	194	350	
==>nt.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	194	350	
==>nt.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	194	350	
==>nt.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitiv <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	81	186	
==>r::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method wri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	81	186	
==>r::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10662	10822	
==>>fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10662	10822	
==>>fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10662	10822	
==>>fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11339	11479	
==>? $_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if ( $n->{op1}{op} eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        re <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8772	8874	
==>an.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns L <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8772	8874	
==>an.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns L <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2495	2638	
==>ed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thunk won't be run - it <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	252	347	
==>{
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Repre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	252	347	
==>{
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Repre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3520	3644	
==>ch inside the closure
    $/()  
        just the capture - what''s returned in { return ... }
    $/0
        the first subm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30253	30350	
==>ch will be substituted at run-time before the text
is shown to the user.

Each Template module ide <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30253	30350	
==>ch will be substituted at run-time before the text
is shown to the user.

Each Template module ide <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24703	24838	
==>ren => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3449	3543	
==>hod does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
} <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3449	3543	
==>hod does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4356	4461	
==>ndent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4356	4461	
==>ndent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4356	4461	
==>ndent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3172	3296	
==>d $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3172	3296	
==>d $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3172	3296	
==>d $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7512	7651	
==>s,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7512	7651	
==>s,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7512	7651	
==>s,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2920	3037	
==>.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2920	3037	
==>.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	926	1035	
==>bugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ??? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	126	233	
==>bugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ??? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	126	233	
==>bugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ??? <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13858	13952	
==>bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13858	13952	
==>bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_enti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5549	5712	
==>" # use v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16268	16362	
==>t contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield thre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16268	16362	
==>t contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield thre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4763	4909	
==>);
            return 'package ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5700	5826	
==>$statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5700	5826	
==>$statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	944	1079	
==>(str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	944	1079	
==>(str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	944	1079	
==>(str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4329	4447	
==>eturn $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7806	7924	
==>eturn $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6790	6908	
==>eturn $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14280	14376	
==>n exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14280	14376	
==>n exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19847	19941	
==>e {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	489	594	
==>method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	489	594	
==>method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	489	594	
==>method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20696	20817	
==>->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20696	20817	
==>->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20696	20817	
==>->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Lit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8155	8301	
==>, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4515	4661	
==>, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5364	5510	
==>, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3067	3170	
==>:Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3067	3170	
==>:Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3067	3170	
==>:Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1983	2100	
==>IL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1983	2100	
==>IL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1983	2100	
==>IL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . gue <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2679	2809	
==>->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4464	4575	
==>from, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub ws {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21796	21890	
==>urce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be g <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21796	21890	
==>urce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6228	6326	
==>};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6228	6326	
==>};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6228	6326	
==>};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2J <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	161	266	
==>File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	161	266	
==>File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6838	6937	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6838	6937	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6838	6937	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	783	911	
==>) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	783	911	
==>) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	783	911	
==>) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1439	1534	
==>ess(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1439	1534	
==>ess(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1439	1534	
==>ess(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3198	3305	
==>ar = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3198	3305	
==>ar = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3198	3305	
==>ar = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5157	5280	
==>y $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$aref,$r2);
  $r;
}

my @operators;
my $ops = mk_dynam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1314	1412	
==>y slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenatio <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1314	1412	
==>y slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7973	8103	
==>l' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7973	8103	
==>l' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7973	8103	
==>l' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1525	1617	
==>rminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1525	1617	
==>rminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3020	3152	
==>-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3020	3152	
==>-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3020	3152	
==>-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17729	17888	
==>range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14150	14309	
==>range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?: <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1249	1363	
==>s;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1249	1363	
==>s;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29886	29976	
==>backs.  (experimentally implemented)

Straps->analyze_file() not taint clean, don't know if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7304	7404	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7304	7404	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7304	7404	
==>_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	160	277	
==>:MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	160	277	
==>:MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	160	277	
==>:MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	361	469	
==>ction
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_fil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	361	469	
==>ction
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13759	13897	
==>:ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13759	13897	
==>:ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13759	13897	
==>:ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':ca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22368	22462	
==>irectories in your path that packages could be installed in.

Generally, when a program package <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22368	22462	
==>irectories in your path that packages could be installed in.

Generally, when a program package <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19263	19357	
==>rd error.
This should never happen.  Please contact the author immediately.
Here's the error.
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3611	3702	
==>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3611	3702	
==>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3611	3702	
==>add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	751	866	
==>}

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	751	866	
==>}

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	751	866	
==>}

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7648	7757	
==>h(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7648	7757	
==>h(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7648	7757	
==>h(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_class <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	389	565	
==>stack}) {
                push @{$stack->[-1]} => $new_arr;
            }
            else {
                push @{$subexp} => $new_arr;
            }
            push @{$stack <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22762	22853	
==>entation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22762	22853	
==>entation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is p <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	63	155	
==>e_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install::Win32;
use Module::Install::Ba <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22575	22664	
==>socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22575	22664	
==>socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14225	14321	
==>asses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14225	14321	
==>asses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14225	14321	
==>asses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5025	5134	
==>ler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1608	1717	
==>ler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	433	530	
==>t;
    my $class = $self->interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7718	7828	
==>hans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7718	7828	
==>hans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %ch <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2750	2860	
==>::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3818	3936	
==>js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3818	3936	
==>js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3818	3936	
==>js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2296	2414	
==>_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2296	2414	
==>_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2296	2414	
==>_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4653	4779	
==>&Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  return if &SIZE_ONLY;
  my $se <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2328	2498	
==>gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns An <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	514	610	
==>t_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	514	610	
==>t_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4866	4962	
==>=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover dat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4866	4962	
==>=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover dat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23026	23118	
==>ery least
must determine the storage representation of the roles' attributes (eg,
volatile or <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	392	489	
==>}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whites <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	392	489	
==>}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whites <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13835	13928	
==>Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s...) not recogniz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	682	797	
==>Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	682	797	
==>Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	682	797	
==>Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7010	7114	
==>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7010	7114	
==>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7010	7114	
==>store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5406	5558	
==>::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bindir;

        ### load in the alt <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1184	1283	
==>tion of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1184	1283	
==>tion of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1442	1572	
==>^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1442	1572	
==>^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fie <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27520	27618	
==>e method
C<FLAG_u>.  This doesn't mean you can use them on C<qr//>, but rather
that you can write C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7662	7800	
==>->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7662	7800	
==>->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7662	7800	
==>->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8981	9090	
==>Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8981	9090	
==>Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8981	9090	
==>Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	542	643	
==>JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	542	643	
==>JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	542	643	
==>JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	183	293	
==>est::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

# Al <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13660	13754	
==>span

This type os span is used to represent continuous measurements, such as times, temperatur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13660	13754	
==>span

This type os span is used to represent continuous measurements, such as times, temperatur <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1770	1887	
==>rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  < <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6494	6604	
==>| <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCombiningMark {  # see 7.6
      # any character in the Unicod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37119	37229	
==>tes in common, their joining degenerates to a
C<product>.  In any situation where the heading of one source rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41668	41778	
==>tes in common, their joining degenerates to a
C<product>.  In any situation where the heading of one source rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41291	41401	
==>tes in common, their joining degenerates to a
C<product>.  In any situation where the heading of one source rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15167	15270	
==>fess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15167	15270	
==>fess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15167	15270	
==>fess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method('_get_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2089	2188	
==>{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2089	2188	
==>{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2089	2188	
==>{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11587	11677	
==>--------------------------

With this Role meta-model , any Class instances, themselves doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11587	11677	
==>--------------------------

With this Role meta-model , any Class instances, themselves doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11587	11677	
==>--------------------------

With this Role meta-model , any Class instances, themselves doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3247	3375	
==>= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3247	3375	
==>= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3247	3375	
==>= $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14857	15008	
==>rn ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15821	15916	
==>e public would.

Alternately, sometimes a program will raise a condition or error that,
while re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15821	15916	
==>e public would.

Alternately, sometimes a program will raise a condition or error that,
while re <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2701	2797	
==>, the
example goes on step further and Curries approxfprime with the user supplied
f.  Such thing <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8699	8791	
==>};
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2524	2616	
==>};
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5821	5944	
==>) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5821	5944	
==>) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5821	5944	
==>) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1704	1810	
==>]->from;
    my $to = $args[-1]->to;
    my $str = substr($X::str,$from,$to-$from);
    my $m = MatchX->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6613	6738	
==>ring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6613	6738	
==>ring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6613	6738	
==>ring);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	904	1002	
==>:LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	904	1002	
==>:LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	904	1002	
==>:LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4544	4697	
==>sh = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12104	12191	
==>f
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12104	12191	
==>f
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1372	1490	
==>d;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1372	1490	
==>d;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1581	1699	
==>d;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13230	13350	
==>dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Pleas <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	185	296	
==>urn _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	185	296	
==>urn _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	261	367	
==>undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the las <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	261	367	
==>undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the las <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	261	367	
==>undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the las <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12657	12752	
==>also used when the objects represent "chunks" of data, such as date objects without the time par <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12657	12752	
==>also used when the objects represent "chunks" of data, such as date objects without the time par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9497	9615	
==>y \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9485	9603	
==>y \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$fr <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	257	390	
==>($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $gl <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	257	390	
==>($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $gl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2646	2773	
==>my $self = shift;
                # FIXME context should be propagated to methods
                scalar(() = $self->hash_fetchK <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	249	348	
==>from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	249	348	
==>from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	249	348	
==>from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1925	2082	
==>~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1925	2082	
==>~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1925	2082	
==>~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29059	29161	
==>ional operator that returns a new Relation::Example
which is the same as the invocant Relation::Example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31907	32009	
==>ional operator that returns a new Relation::Example
which is the same as the invocant Relation::Example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32954	33056	
==>ional operator that returns a new Relation::Example
which is the same as the invocant Relation::Example <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6105	6260	
==>efined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        wh <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6105	6260	
==>efined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2969	3089	
==>);

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5808	5910	
==>osed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5808	5910	
==>osed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36509	36622	
==>list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36509	36622	
==>list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36509	36622	
==>list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5365	5518	
==>('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5365	5518	
==>('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5365	5518	
==>('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	839	933	
==>$desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	897	991	
==>$desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$d <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3521	3643	
==>mit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0], <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12534	12634	
==>hen pass the result to is or ok
on success, or report that the eval was not successful on failure.

- <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12592	12692	
==>hen pass the result to is or ok
on success, or report that the eval was not successful on failure.

- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1605	1813	
==>ss;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1605	1813	
==>ss;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1605	1813	
==>ss;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8359	8471	
==>= open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8359	8471	
==>= open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	195	298	
==>S (smoke): skipped tests have pos point to the test library

use warnings;
use strict;

use Cwd;
use Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10234	10351	
==>d = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10234	10351	
==>d = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10234	10351	
==>d = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16057	16169	
==>nf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16057	16169	
==>nf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16057	16169	
==>nf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2948	3099	
==>n ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { . <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2948	3099	
==>n ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { . <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4483	4592	
==>eference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	959	1092	
==>sif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	959	1092	
==>sif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	959	1092	
==>sif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35805	35947	
==>shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35805	35947	
==>shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35805	35947	
==>shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	271	395	
==>$self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.ha <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	271	395	
==>$self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19998	20093	
==>if it's just the first pass.  This means that force_object()
should be used to create stand-alon <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28591	28704	
==>of this Relation::Example.

=item C<equal (Relation::Example $other!) returns Bool>

This method returns a Bool in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3464	3573	
==>| 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3464	3573	
==>| 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4130	4229	
==>s methods>. There is no instance
constructor, and when calling these methods you should take care no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4130	4229	
==>s methods>. There is no instance
constructor, and when calling these methods you should take care no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4130	4229	
==>s methods>. There is no instance
constructor, and when calling these methods you should take care no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5776	5970	
==>parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$en <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6240	6434	
==>parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$en <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2501	2602	
==>level. ??
my $link_info;
my $total_links;
my $total_files;
my $syn_indexs;
my @syn;

my $help;
my $no_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1085	1195	
==>undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1085	1195	
==>undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25051	25147	
==>"pretty print a -> b -> c");
}
{
	my $type = type::operator::pair->new(
		type::variable::free->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14219	14314	
==>6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14219	14314	
==>6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14219	14314	
==>6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3479	3587	
==>TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3479	3587	
==>TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3569	3675	
==>ush @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} <=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	52	148	
==>of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	52	148	
==>of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	52	148	
==>of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	401	498	
==>t(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	401	498	
==>t(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	401	498	
==>t(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	659	767	
==>r' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	659	767	
==>r' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	116	211	
==>846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	116	211	
==>846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	116	211	
==>846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defin <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1265	1362	
==>n', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1265	1362	
==>n', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17540	17639	
==>) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17540	17639	
==>) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17540	17639	
==>) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	559	668	
==>zy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	559	668	
==>zy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	559	668	
==>zy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fix <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3414	3501	
==>'} = Perl6::Run::OnPerl5::X1::Result->new($pil_tree,$warn,$failed);
	} elsif($stage eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5422	5539	
==>e)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5422	5539	
==>e)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5422	5539	
==>e)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->authority($aut <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19015	19108	
==>f logic and mathematics and philosophy ("a predicate ranging
over more than one argument"), wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22665	22758	
==>f logic
and mathematics and philosophy ("a predicate ranging over more than one
argument"), wh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8968	9089	
==>n."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12445	12566	
==>n."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $! <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24575	24685	
==>ee 15.10.1
      <Disjunction>
}
rule Disjunction {  # see 15.10.1
      <Alternative>
    | <Alternative> <'|' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12732	12844	
==>n::Example.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Seco <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21249	21341	
==>the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reas <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21249	21341	
==>the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reas <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1164	1304	
==>ke_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inne <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1164	1304	
==>ke_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inne <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2218	2315	
==>SX::true if $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::fals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1073	1205	
==>self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1073	1205	
==>self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1073	1205	
==>self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9952	10112	
==>ext_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9952	10112	
==>ext_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9952	10112	
==>ext_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4604	4720	
==>);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4604	4720	
==>);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4604	4720	
==>);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19992	20120	
==>YALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19992	20120	
==>YALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19992	20120	
==>YALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5834	5932	
==>s;
	
		$self->add_definition($node => "$return_type $symbol (" . join(", ", @params) . ") {" . join <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24850	24940	
==>!.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10127	10224	
==>V{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	600	696	
==>be accessed using
the C<.ref> method, which is available on any type, boxed or unboxed.

These ob <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3192	3285	
==>-- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3079	3170	
==>-- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1491	1660	
==>->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1491	1660	
==>->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1491	1660	
==>->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3544	3644	
==>ath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, alt <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3544	3644	
==>ath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, alt <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4241	4355	
==>b import {
        Pugs::Internals::install_pragma_value($?CLASS, 1);
    }

    sub unimport {
        Pugs::Inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32897	33008	
==>he walk() method is used to modify the walking stack before the node
is returned.  Here is the walk() method for <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3459	3549	
==>(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3649	3771	
==>&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3649	3771	
==>&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3649	3771	
==>&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2984	3121	
==>perclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2984	3121	
==>perclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2984	3121	
==>perclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14208	14309	
==>EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5908	6004	
==>_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in whi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5908	6004	
==>_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4691	4847	
==>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4691	4847	
==>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4691	4847	
==>{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7565	7655	
==>sh @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1390	1480	
==>sh @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29421	29517	
==>into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33973	34069	
==>into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33137	33233	
==>into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's att <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6421	6533	
==>rt ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# -- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6421	6533	
==>rt ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# -- <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7844	7945	
==>r die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Cou <==
3	/Users/nnunley/pugs/util/version_h.pl	609	715	
==>tory.  Since we don't need a STDIN anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # Th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9071	9165	
==>er above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9071	9165	
==>er above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4974	5078	
==>(Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-h <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4974	5078	
==>(Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-h <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15328	15431	
==>pos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_cl <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2275	2388	
==>q $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2275	2388	
==>q $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my in <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4290	4395	
==>itory snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } glob "pugs-smoke-*. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24588	24682	
==>he Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at y <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24588	24682	
==>he Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at y <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1208	1307	
==>ta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1208	1307	
==>ta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1208	1307	
==>ta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1976	2071	
==>er($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1976	2071	
==>er($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3600	3695	
==>_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3600	3695	
==>_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3600	3695	
==>_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4920	5097	
==>> 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3802	3907	
==>>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4019	4124	
==>>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13878	13974	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13878	13974	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13878	13974	
==>able = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_ini <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10785	10968	
==>que')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38757	38921	
==>que')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39284	39448	
==>que')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2202	2317	
==>ack} };
}

sub prepare_scope {
    my $self = shift;
    push @{ $self->{param_stack} }, $self->{params};
    $self- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	577	690	
==>n class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4055	4168	
==>n class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1510	1629	
==>arName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1510	1629	
==>arName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1510	1629	
==>arName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarNa <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	546	736	
==>ing" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments a <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	546	736	
==>ing" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1830	1939	
==>sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7038	7149	
==>uage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7038	7149	
==>uage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10214	10309	
==>>new(list => type::variable::free->new),
		type::operator::nullary->new("bool"),
	),
	# list a - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12481	12642	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12481	12642	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12481	12642	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6429	6540	
==>>{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6429	6540	
==>>{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6429	6540	
==>>{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  return sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9403	9502	
==>TI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9403	9502	
==>TI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9403	9502	
==>TI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6921	7030	
==>}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6921	7030	
==>}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20466	20581	
==>.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20466	20581	
==>.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20466	20581	
==>.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6497	6661	
==>t_attr (symbol new (%:methods))) store ($label $method))))

=cut

{
    # add the first method
    my $_add_method = method->new(
            $::ENV,
            met <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	753	882	
==>ever conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket< <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	753	882	
==>ever conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket< <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2110	2217	
==>" if $debug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4204	4291	
==>e in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4204	4291	
==>e in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2269	2378	
==>PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2269	2378	
==>PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2269	2378	
==>PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2877	2987	
==>ap{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 're <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2877	2987	
==>ap{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 're <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2877	2987	
==>ap{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 're <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1745	1862	
==>e?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1745	1862	
==>e?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1745	1862	
==>e?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8323	8583	
==>&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6769	6889	
==>h)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6544	6653	
==>h)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8528	8699	
==>ol};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8528	8699	
==>ol};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6666	6783	
==>me for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1444	1602	
==>LIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1444	1602	
==>LIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1444	1602	
==>LIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32774	32944	
==>$tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32774	32944	
==>$tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32774	32944	
==>$tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6567	6675	
==>PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6567	6675	
==>PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6567	6675	
==>PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	45	138	
==>$self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	45	138	
==>$self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	45	138	
==>$self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1237	1329	
==>es Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

= <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1237	1329	
==>es Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12632	12771	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12911	13050	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12318	12436	
==>ntify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12318	12436	
==>ntify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12318	12436	
==>ntify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	744	845	
==>tr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	744	845	
==>tr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	744	845	
==>tr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32025	32180	
==>{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32025	32180	
==>{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32025	32180	
==>{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3537	3715	
==>/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3537	3715	
==>/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3537	3715	
==>/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2706	2894	
==>nclass = $EigenClass->new(
                    '$:name' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3926	4026	
==>.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3926	4026	
==>.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4931	5032	
==>macros. (The numeric
    rxmods are recognized by fallback macros defined with an empty operator
    n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13733	13834	
==>dler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7940	8041	
==>dler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2388	2481	
==>cee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2388	2481	
==>cee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2388	2481	
==>cee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2242	2509	
==>ffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2242	2509	
==>ffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2352	2482	
==>('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1652	1763	
==>al($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1652	1763	
==>al($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1652	1763	
==>al($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3825	3919	
==>---------------------------------------------------------------
## Package

## See http://artic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3825	3919	
==>---------------------------------------------------------------
## Package

## See http://artic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3825	3919	
==>---------------------------------------------------------------
## Package

## See http://artic <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19556	19677	
==>if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6216	6334	
==>{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6216	6334	
==>{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33092	33179	
==>C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37642	37729	
==>C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36986	37073	
==>C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31949	32046	
==>is object (like for OPEN and back
references).

=item off

The flags specifically turned off for t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	698	790	
==>ate variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $transl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	698	790	
==>ate variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $transl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16271	16440	
==>fined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16271	16440	
==>fined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16271	16440	
==>fined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Privat <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4029	4133	
==>ng>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4029	4133	
==>ng>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1301	1400	
==>classes
    # because we know that is there ...
    $supers = $class->get_attr(symbol->new('@:superc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2307	2418	
==>$name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2307	2418	
==>$name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2307	2418	
==>$name, $version, $authority, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2974	3076	
==>n't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2974	3076	
==>n't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2974	3076	
==>n't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	761	902	
==>nk=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	761	902	
==>nk=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	761	902	
==>nk=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4553	4681	
==>);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4553	4681	
==>);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2710	2828	
==>le_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16226	16379	
==>g);
            $heading =~ s/^\s+|\s+$//g;;
            $heading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $he <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11744	11869	
==>eudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11744	11869	
==>eudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4665	4748	
==>LICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4665	4748	
==>LICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4665	4748	
==>LICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4410	4523	
==>}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4422	4535	
==>}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1677	1782	
==>ot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1677	1782	
==>ot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1677	1782	
==>ot::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	760	885	
==>x.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	760	885	
==>x.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	760	885	
==>x.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	0	116	
==>package PIL2JS::JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	0	116	
==>package PIL2JS::JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	0	116	
==>package PIL2JS::JSPM;
use strict;
use warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9248	9362	
==>} elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9248	9362	
==>} elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9248	9362	
==>} elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16992	17110	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16992	17110	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16992	17110	
==>class->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $lab <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	1023	1140	
==>\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6415	6517	
==>---- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6427	6529	
==>---- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5551	5653	
==>PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5551	5653	
==>PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5551	5653	
==>PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10401	10545	
==>s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"boun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6742	6886	
==>s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"boun <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7591	7735	
==>s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14056	14159	
==>cher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14056	14159	
==>cher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14056	14159	
==>cher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3616	3712	
==>ethod('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3616	3712	
==>ethod('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3616	3712	
==>ethod('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '% <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2358	2456	
==>et.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2358	2456	
==>et.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self ) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16243	16382	
==>ing( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19720	19859	
==>ing( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19253	19392	
==>ing( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12005	12103	
==>__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12005	12103	
==>__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12005	12103	
==>__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12369	12466	
==>sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12369	12466	
==>sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12369	12466	
==>sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1025	1124	
==>ontext.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1025	1124	
==>ontext.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1025	1124	
==>ontext.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sp <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	920	1034	
==>e root of the path
        # then we have failed already and so return
        return unless $func($current_tree, @ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	920	1034	
==>e root of the path
        # then we have failed already and so return
        return unless $func($current_tree, @ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26081	26178	
==>before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalInt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15648	15767	
==>} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10504	10623	
==>} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2281	2376	
==>ndie Abstract Syntax Tree, and can be executed by a
runtime. An example runtime is L<Blondie::Ba <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1820	2063	
==>er ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1820	2063	
==>er ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mo <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	681	785	
==>irectory containing
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

use strict;

# XXX: should mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4178	4292	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4178	4292	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4178	4292	
==>can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13876	13978	
==>val their children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$) }

# combs combine the <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6023	6115	
==>ing functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip pars <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6023	6115	
==>ing functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip pars <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13229	13325	
==>> in all it's forms. Below are some
example translations. This list is I<not> exhaustive.

 delet <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1432	1524	
==>/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please do <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1272	1364	
==>/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	833	971	
==>lue('@:slots')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6072	6198	
==>l => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6072	6198	
==>l => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	98	206	
==>$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	98	206	
==>$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	98	206	
==>$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3054	3151	
==>iles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3054	3151	
==>iles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3054	3151	
==>iles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6709	6812	
==>);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6709	6812	
==>);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6709	6812	
==>);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_metho <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11491	11585	
==>c, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will com <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11549	11643	
==>c, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7165	7289	
==>.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7165	7289	
==>.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7165	7289	
==>.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/t/packages/LoadCounter.pm	19	130	
==>::LoadCounter;

$main::loaded++;

sub import {
    $main::imported++;
}

sub unimport {
    $main::imported--;
} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12823	12917	
==>entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and ear <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12823	12917	
==>entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and ear <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11111	11208	
==>s could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11111	11208	
==>s could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11111	11208	
==>s could provide their own BUILD submethods? This would 
mean that BUILD methods would need to be c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1390	1509	
==>tr $relativePrecedence, 0, 1 =~ m/[\=\<\>]/ )
    {
      my $tokenTableKey = substr $relativePrecedence, -1, 0;
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22318	22433	
==>logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18739	18854	
==>logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1297	1438	
==>> '~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => ' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8472	8574	
==>rarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8472	8574	
==>rarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13530	13734	
==>eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ', ', 
                map { 
                    join( ' => ', ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38988	39086	
==>ation is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43802	43900	
==>ation is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 its <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1864	1983	
==>ush(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7741	7835	
==>uthenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authoriz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7741	7835	
==>uthenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authoriz <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1247	1370	
==>ementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!alread <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1247	1370	
==>ementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!alread <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1247	1370	
==>ementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!alread <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6509	6605	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6509	6605	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6509	6605	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14900	14993	
==>ty($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semanti <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14900	14993	
==>ty($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semanti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2604	2713	
==>** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2604	2713	
==>** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2604	2713	
==>** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18434	18534	
==>xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18434	18534	
==>xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18434	18534	
==>xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6721	6818	
==>t<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6721	6818	
==>t<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %use <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1101	1191	
==>4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3864	3973	
==>o 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3864	3973	
==>o 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5388	5497	
==>o 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5004	5122	
==>opy( from => $file|$dir, to => $target );

Copies a file or directory to the target, recursively

Returns true on succe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17778	17875	
==>nd routines
within the virtual machine, input data to it, and output data from it.

You can create <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17778	17875	
==>nd routines
within the virtual machine, input data to it, and output data from it.

You can create <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1156	1288	
==>e and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHei <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1156	1288	
==>e and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHei <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1156	1288	
==>e and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	283	447	
==>om_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	283	447	
==>om_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	283	447	
==>om_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23017	23118	
==>keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set mem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27569	27670	
==>keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set mem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26346	26447	
==>keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set mem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3390	3479	
==>tance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4084	4173	
==>tance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5292	5381	
==>tance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------------------- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9436	9573	
==>heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10242	10379	
==>heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11157	11294	
==>heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @ot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6369	6609	
==>dency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6833	7073	
==>dency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23240	23325	
==>e,Fx,F1,[C|B0],B1,E0,E1).

rmGlobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	236	370	
==>cally

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	236	370	
==>cally

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	236	370	
==>cally

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bl <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1813	1941	
==>eature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{'values'}{'features'} ||= [] );

    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	228	332	
==>uest</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this w <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	228	332	
==>uest</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1902	2036	
==>})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1902	2036	
==>})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1902	2036	
==>})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4742	4857	
==>me = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4742	4857	
==>me = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4742	4857	
==>me = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13162	13281	
==>acro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13162	13281	
==>acro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13162	13281	
==>acro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     ca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9290	9390	
==>ext_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9290	9390	
==>ext_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33974	34073	
==>&y/> means "match I<y> if I<x> can be matched
at the same location".  Therefore it would be represen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14499	14602	
==>xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14499	14602	
==>xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14499	14602	
==>xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5708	5965	
==>_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5708	5965	
==>_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5708	5965	
==>_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5197	5303	
==>L1CPerl5::NodesInfo;
our %node_named;
our @nodes;
our %nodes_of_type;
sub init {
    my $list = PIL::PIL1CP <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3468	3570	
==>}
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
trig_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2460	2565	
==>a' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2460	2565	
==>a' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2460	2565	
==>a' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17248	17340	
==>ke_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17248	17340	
==>ke_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17248	17340	
==>ke_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5254	5427	
==>/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X::str;
      pos($s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11148	11256	
==>le {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod secti <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11148	11256	
==>le {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod secti <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6306	6418	
==>turn $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6306	6418	
==>turn $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self. <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1006	1107	
==>r smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7310	7519	
==>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7310	7519	
==>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7310	7519	
==>unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unle <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4151	4340	
==>here are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4151	4340	
==>here are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::No <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3894	4041	
==>: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4337	4510	
==>he same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4337	4510	
==>he same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1460	1557	
==>methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1460	1557	
==>methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1460	1557	
==>methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## method <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12199	12315	
==>hange the fully
    # qualified name of open3.

    multi sub open3 (Str $command) returns List is primitive is unsaf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19192	19295	
==>ine in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19192	19295	
==>ine in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9222	9331	
==>.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9222	9331	
==>.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9222	9331	
==>.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2863	3002	
==>\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2863	3002	
==>\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2863	3002	
==>\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1814	1902	
==>TUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1814	1902	
==>TUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	362	459	
==>} = Set::Object->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_reduc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1216	1312	
==>in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1216	1312	
==>in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7197	7328	
==>( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3801	3932	
==>( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4650	4781	
==>( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6079	6187	
==>elf->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6079	6187	
==>elf->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6079	6187	
==>elf->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9529	9616	
==>ugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9529	9616	
==>ugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9529	9616	
==>ugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4404	4501	
==>ject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4404	4501	
==>ject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5928	6025	
==>ject.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	685	807	
==>2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	685	807	
==>2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	685	807	
==>2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	496	607	
==>sclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	496	607	
==>sclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	496	607	
==>sclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15691	15827	
==>_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15691	15827	
==>_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15691	15827	
==>_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    r <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2812	2898	
==>ane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugs <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2812	2898	
==>ane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugs <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28373	28484	
==>D(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MAT <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	28	138	
==>1;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	28	138	
==>1;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2589	2718	
==>cumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'pos <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2505	2623	
==>ake "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(ind <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2505	2623	
==>ake "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10840	11015	
==>=>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10840	11015	
==>=>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10840	11015	
==>=>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	689	808	
==>hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	689	808	
==>hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	689	808	
==>hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1445	1552	
==>= undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1445	1552	
==>= undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	98	199	
==>Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	415	514	
==>unctions (but not macros) in this file need to have the
`is primitive` trait.

Please also declare w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20043	20138	
==>e
implementation of an Engine and is included in the "Rosetta" core
distribution to allow the co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20043	20138	
==>e
implementation of an Engine and is included in the "Rosetta" core
distribution to allow the co <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3308	3452	
==>x  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3308	3452	
==>x  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{ <==
3	/Users/nnunley/pugs/util/grokprims.pl	2045	2158	
==>$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2372	2483	
==>y $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2372	2483	
==>y $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2372	2483	
==>y $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6548	6647	
==>, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6548	6647	
==>, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6548	6647	
==>, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	974	1087	
==>dy and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	974	1087	
==>dy and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6184	6281	
==>. $Bar class_precendence_list');

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19261	19372	
==>$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19261	19372	
==>$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19261	19372	
==>$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1696	1796	
==>urn;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1696	1796	
==>urn;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filte <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	914	1113	
==>aders
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	914	1113	
==>aders
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	336	429	
==>::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	336	429	
==>::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<blo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	333	421	
==>::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<blo <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	184	285	
==>Install::Base);

sub include { +shift->admin->include(@_) };
sub include_deps { +shift->admin->include <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3592	3691	
==>r) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the inde <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3592	3691	
==>r) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3125	3229	
==>use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3125	3229	
==>use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3125	3229	
==>use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::Eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	57	169	
==>ew class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	57	169	
==>ew class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	57	169	
==>ew class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13506	13610	
==>l6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13506	13610	
==>l6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13506	13610	
==>l6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7709	7811	
==>ave_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7709	7811	
==>ave_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7709	7811	
==>ave_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1937	2067	
==>name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1937	2067	
==>name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1937	2067	
==>name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $obj, $na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	203	353	
==><body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	203	353	
==><body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) ) <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3152	3256	
==>s::Publisher::Event::Named $event) {
            # an optimizing lookup for named events stores things in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7943	8034	
==>_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1768	1859	
==>_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4045	4143	
==>$args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4045	4143	
==>$args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4635	4733	
==>$args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	657	773	
==>rds g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	657	773	
==>rds g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	657	773	
==>rds g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9643	9737	
==>rxbare_ ($pat) is builtin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6317	6444	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6317	6444	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6317	6444	
==>[],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DES <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	706	808	
==>).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 MET <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	706	808	
==>).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 MET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1262	1364	
==>).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 MET <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	555	676	
==>is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } el <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	555	676	
==>is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3716	3838	
==>ad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3716	3838	
==>ad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3716	3838	
==>ad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a meth <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20259	20365	
==>is primitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2024	2176	
==>$tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2024	2176	
==>$tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2024	2176	
==>$tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50363	50475	
==>$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10490	10624	
==>($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10490	10624	
==>($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10490	10624	
==>($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15929	16092	
==>een{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15929	16092	
==>een{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15929	16092	
==>een{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2393	2492	
==>efined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2393	2492	
==>efined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2393	2492	
==>efined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2551	2655	
==>_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2551	2655	
==>_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2551	2655	
==>_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6189	6299	
==>> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9666	9776	
==>> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8740	8850	
==>> $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1579	1680	
==>mplementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1579	1680	
==>mplementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1579	1680	
==>mplementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1103	1207	
==>> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1103	1207	
==>> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1103	1207	
==>> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2773	2892	
==>be they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2773	2892	
==>be they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2773	2892	
==>be they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11798	11915	
==>{
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11798	11915	
==>{
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11798	11915	
==>{
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pk <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1412	1509	
==>e_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Vo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1412	1509	
==>e_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Vo <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	248	370	
==>, Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>' <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2465	2560	
==>head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replica <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2465	2560	
==>head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replica <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16054	16148	
==>es in the Document object given in the named parameter $document, and
whose Node Type attribute <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16054	16148	
==>es in the Document object given in the named parameter $document, and
whose Node Type attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	610	724	
==>ink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	610	724	
==>ink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	610	724	
==>ink of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1525	1648	
==>my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4544	4642	
==>s Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).m <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4544	4642	
==>s Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31329	31427	
==>nt modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"F <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31329	31427	
==>nt modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"F <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5235	5338	
==>s that contains only a quoted
version of the Prelude code is inlined into the executable, to be
"eval"ed <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8544	8641	
==>vent is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<sta <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8544	8641	
==>vent is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4468	4605	
==>$self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4468	4605	
==>$self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4468	4605	
==>$self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
s <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3081	3249	
==>ound = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $roun <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3543	3639	
==>kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNO <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3543	3639	
==>kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNO <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	727	829	
==>M_Unix->parse_version($file)) if -f $file;
    }

    $self->version or die << "END";
Can't determine a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20159	20250	
==>he $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20159	20250	
==>he $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2736	2871	
==>e: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2736	2871	
==>e: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2736	2871	
==>e: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5201	5302	
==>f = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5201	5302	
==>f = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5201	5302	
==>f = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub") <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1435	1572	
==>s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1378	1508	
==>s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	121	223	
==>nt PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	121	223	
==>nt PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	121	223	
==>nt PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2131	2259	
==>sg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2131	2259	
==>sg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2131	2259	
==>sg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are no <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2830	2945	
==>circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or u <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2830	2945	
==>circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3495	3585	
==>le 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1517	1641	
==>r' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1517	1641	
==>r' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1517	1641	
==>r' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6795	6904	
==>}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6795	6904	
==>}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6795	6904	
==>}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11836	11937	
==>ll this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11836	11937	
==>ll this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23079	23173	
==>f the roles' attributes (eg,
volatile or persistent) and provide accessors to them.  The Relati <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13112	13216	
==>command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#- <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13112	13216	
==>command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16174	16264	
==>.&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16174	16264	
==>.&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16174	16264	
==>.&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6548	6697	
==>sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = shift;

		warn "comparing $x and $y";

		if (Scalar::Util::blessed($x <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	453	556	
==>e;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	453	556	
==>e;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6993	7093	
==>on (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6993	7093	
==>on (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6993	7093	
==>on (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26616	26726	
==>atever
other arguments are included.  This method takes care of building the
proper inheritance for the node; i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16615	16718	
==>= $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15663	15762	
==>= $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5325	5461	
==>> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5325	5461	
==>> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1735	1856	
==>push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1735	1856	
==>push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1735	1856	
==>push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25199	25336	
==>b RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1534	1645	
==>ms;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_laz <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1534	1645	
==>ms;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_laz <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	984	1103	
==>>init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3423	3514	
==>1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3423	3514	
==>1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5274	5397	
==>e   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  sa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10662	10767	
==>r>
    | <BackslashSequence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <NonTerminator>
}
rule N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15617	15709	
==>of
other objects themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4059	4186	
==>tents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4059	4186	
==>tents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4059	4186	
==>tents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4911	5041	
==>$LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4911	5041	
==>$LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4911	5041	
==>$LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8587	8702	
==>t->singleton_test_on_Foo() } '... Object cannot call singleton method defined in Foo';  

## make instances

my $iFo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24049	24144	
==>g this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24049	24144	
==>g this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10080	10215	
==>d ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10080	10215	
==>d ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10080	10215	
==>d ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37531	37655	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37531	37655	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37531	37655	
==>ray = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6140	6257	
==>OOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6140	6257	
==>OOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6140	6257	
==>OOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2969	3088	
==>:capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2980	3099	
==>:capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greed <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	551	642	
==>me::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9647	9762	
==>e ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Fin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9647	9762	
==>e ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Fin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9647	9762	
==>e ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use Fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8263	8438	
==>rg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8263	8438	
==>rg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8263	8438	
==>rg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11624	11743	
==>::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11624	11743	
==>::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11624	11743	
==>::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	246	333	
==>{^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	246	333	
==>{^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5746	5876	
==>args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5746	5876	
==>args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5746	5876	
==>args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	81	183	
==>$_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	81	183	
==>$_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	81	183	
==>$_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8062	8157	
==>error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4964	5062	
==>B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4964	5062	
==>B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4964	5062	
==>B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1192	1310	
==>nodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1192	1310	
==>nodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1192	1310	
==>nodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	994	1107	
==>ght) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1221	1334	
==>ght) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1448	1561	
==>ght) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15825	15920	
==>s of the regex
according to a style-sheet (syntax highlighting).

=item Regexp::Reverse (difficu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20579	20673	
==>available over time.  One plan which I favor is that
the new (under development) enterprise-str <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20579	20673	
==>available over time.  One plan which I favor is that
the new (under development) enterprise-str <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26038	26137	
==>ts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30590	30689	
==>ts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29565	29664	
==>ts renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13323	13433	
==>per subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16800	16910	
==>per subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16162	16272	
==>per subset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2643	2822	
==>rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifier <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2643	2822	
==>rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifier <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23487	23594	
==>rule Program :words {  # see clause 14
      <SourceElements>
}
rule SourceElements :words {  # see clause 1 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14497	14602	
==>TRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- ` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14497	14602	
==>TRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- ` <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	360	457	
==>AX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5701	5878	
==>returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9178	9355	
==>returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Rela <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1322	1420	
==>r('dists')   ];
$config{'repo_index_file'}  = [ Path::Class::file('index')  ];
$config{'repo_index_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2965	3075	
==>_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2965	3075	
==>_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2965	3075	
==>_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	197	314	
==>od, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	197	314	
==>od, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	197	314	
==>od, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5113	5213	
==>Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1208	1307	
==>te ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) -- <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1208	1307	
==>te ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17948	18182	
==>elf, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17948	18182	
==>elf, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17948	18182	
==>elf, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2868	2968	
==>ue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_lea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2868	2968	
==>ue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_lea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2868	2968	
==>ue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_lea <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9528	9627	
==>e::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	mul => type::ope <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39860	39950	
==>LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39860	39950	
==>LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10456	10606	
==>nt "skipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "skipped\n        all <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3637	3739	
==>an is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3637	3739	
==>an is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23866	24027	
==>elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23866	24027	
==>elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23866	24027	
==>elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                i <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9717	9833	
==>or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  sa <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9717	9833	
==>or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  sa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5668	5781	
==>( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5656	5769	
==>( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name <==
3	/Users/nnunley/pugs/util/combine_tests.pl	460	562	
==>here are variations among the tests.
# A revision is added to each member of the more_events[].
#
# mor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3312	3413	
==>match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3312	3413	
==>match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3312	3413	
==>match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, functio <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5661	5766	
==>erator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5661	5766	
==>erator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = <==
3	/Users/nnunley/pugs/util/importgraph.pl	1958	2044	
==>r('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3358	3530	
==>Criterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; SortCriterion  $by = &infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2613	2739	
==>turn $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2613	2739	
==>turn $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12400	12524	
==>boxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12400	12524	
==>boxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12400	12524	
==>boxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5069	5191	
==>tory to the target, recursively

Returns true on success, false on failure.

=cut

sub _copy {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	973	1072	
==>name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	973	1072	
==>name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2427	2612	
==>utable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5904	6089	
==>utable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4834	5019	
==>utable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!head <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	275	377	
==>= 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	236	338	
==>= 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	236	338	
==>= 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	179	293	
==>name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	179	293	
==>name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	179	293	
==>name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6796	6906	
==>vious - not document ?

...



- rule()



### internals - move to module documentation



Rules, just like oth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6567	6670	
==>vious - not document ?
...

- rule()

### internals - move to module documentation

Rules, just like oth <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5939	6036	
==>::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5939	6036	
==>::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retur <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	617	734	
==>.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Sock <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	584	701	
==>.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Sock <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	40	135	
==>r::Pretty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quot <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1306	1405	
==>ass::Tangram doesn't have a real type system :-P
# there are more types ... but this will do for now <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13305	13398	
==>do(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13363	13456	
==>do(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most o <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1079	1229	
==>new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role Getopt::Argumen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4506	4607	
==>g_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4506	4607	
==>g_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names <==
3	/Users/nnunley/pugs/util/package-osx.pl	9426	9545	
==>e_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $dir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1011	1125	
==>ler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1011	1125	
==>ler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9112	9225	
==>eader() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1246	1349	
==>eader() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1246	1349	
==>eader() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5974	6128	
==>ess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5974	6128	
==>ess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5974	6128	
==>ess' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1393	1493	
==>unc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1393	1493	
==>unc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1393	1493	
==>unc = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2583	2698	
==>g.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2583	2698	
==>g.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2583	2698	
==>g.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2904	3023	
==>ef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2904	3023	
==>ef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2904	3023	
==>ef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1543	1697	
==>TTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1543	1697	
==>TTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4113	4223	
==>stBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub { "not ok " . _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1133	1254	
==>.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1133	1254	
==>.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1133	1254	
==>.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.refere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14620	14724	
==>:Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14620	14724	
==>:Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14620	14724	
==>:Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ini <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23824	23934	
==>(?(n)t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8643	8739	
==>t_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8643	8739	
==>t_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1401	1509	
==>ow return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1401	1509	
==>ow return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1401	1509	
==>ow return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	898	991	
==>se Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	898	991	
==>se Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	898	991	
==>se Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7243	7370	
==>up {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = ra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7231	7358	
==>up {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = ra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4828	4921	
==>error(Params::Check->last_error), return;

    for my $index ( $self->index_file, $self->index <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16504	16597	
==>d database functionality;
this language, which satisfies TTM's definition of a "D" language, i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16504	16597	
==>d database functionality;
this language, which satisfies TTM's definition of a "D" language, i <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8463	8556	
==><$^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're runni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1137	1264	
==>] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1091	1212	
==>] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5175	5321	
==>b { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5175	5321	
==>b { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5175	5321	
==>b { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10335	10474	
==>s->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10335	10474	
==>s->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @cl <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	355	458	
==>ion is not in POD format in order to avoid
# problems when there are fundamental bugs in perl.

packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4	114	
==>kage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4	114	
==>kage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4	114	
==>kage Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36743	36840	
==>t and Member properties; if none
could be matched, this method returns undef.  This method could b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36743	36840	
==>t and Member properties; if none
could be matched, this method returns undef.  This method could b <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1000	1103	
==>>add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for y <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1000	1103	
==>>add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for y <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	50	146	
==>nt future.
# So this is all throw-away code.
use strict;
package PIL::PIL1CPerl5::NodesList;
my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1555	1663	
==>ement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1555	1663	
==>ement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{ta <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13435	13537	
==>e %hash<key1>{@keys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2899	3018	
==>for my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    return 1;
}

### these plural functions se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6867	6958	
==>::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wri <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6867	6958	
==>::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12576	12704	
==>}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force res <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12576	12704	
==>}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force res <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12576	12704	
==>}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force res <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1105	1256	
==>r = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2605	2738	
==>es -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= " <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2605	2738	
==>es -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= " <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	680	781	
==>n} or Module::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2973	3070	
==>, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3031	3128	
==>, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5856	5969	
==>() {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5856	5969	
==>() {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35364	35467	
==>ed to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	965	1072	
==>am->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	965	1072	
==>am->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	61	186	
==>'_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17113	17214	
==>s -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_empt <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17113	17214	
==>s -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_empt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6676	6822	
==>e( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6676	6822	
==>e( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    pr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12649	12748	
==>f_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" if !defined $handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19653	19754	
==>(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19653	19754	
==>(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19653	19754	
==>(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1019	1119	
==>ld be called
something else like C<t>, or maybe they are one and the same as what
you get when you us <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12461	12559	
==>s class implements both types of spans.

- Discrete span

This is used to represent ranges of thing <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12461	12559	
==>s class implements both types of spans.

- Discrete span

This is used to represent ranges of thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6193	6311	
==>o have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6193	6311	
==>o have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6193	6311	
==>o have this if for nothing other than 
a helper to other functions.  

=cut

## --------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2705	2843	
==>ority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2705	2843	
==>ority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2705	2843	
==>ority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HA <==
3	/Users/nnunley/pugs/util/addauthors.pl	796	939	
==>e = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12547	12657	
==>dler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6022	6132	
==>dler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3699	3794	
==>no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3699	3794	
==>no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3699	3794	
==>no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1602	1742	
==>urn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1602	1742	
==>urn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1602	1742	
==>urn $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5469	5642	
==>rammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the lexer
        #q(< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5193	5312	
==>tring
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5415	5534	
==>tring
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20275	20419	
==>pped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35159	35251	
==>ct (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39709	39801	
==>ct (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1557	1661	
==>) }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1557	1661	
==>) }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1557	1661	
==>) }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitiv <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8448	8548	
==>ingle tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8448	8548	
==>ingle tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might f <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	79	173	
==>nf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11677	11803	
==>exp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12350	12453	
==>eturn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12629	12732	
==>eturn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$() <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8182	8282	
==>s, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8182	8282	
==>s, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11299	11433	
==>$num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11299	11433	
==>$num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11299	11433	
==>$num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37622	37738	
==>ift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37622	37738	
==>ift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37622	37738	
==>ift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34943	35070	
==>"\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34943	35070	
==>"\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34943	35070	
==>"\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4433	4544	
==>path($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4433	4544	
==>path($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	784	886	
==>ame.bat")
    or die "Can't create $testdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4997	5124	
==>ubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4997	5124	
==>ubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4997	5124	
==>ubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4478	4570	
==>il_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4478	4570	
==>il_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4478	4570	
==>il_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9144	9278	
==>new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9144	9278	
==>new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18886	18989	
==>nd a is both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1975	2080	
==>S

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1975	2080	
==>S

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4070	4168	
==>rl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4070	4168	
==>rl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4070	4168	
==>rl6::Container::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24184	24320	
==>i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24184	24320	
==>i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24184	24320	
==>i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3051	3162	
==>tive()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3051	3162	
==>tive()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3051	3162	
==>tive()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7550	7705	
==>ined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7550	7705	
==>ined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7550	7705	
==>ined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5454	5556	
==>lect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5454	5556	
==>lect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5454	5556	
==>lect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1022	1137	
==>should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1022	1137	
==>should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1022	1137	
==>should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7789	7967	
==>.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7789	7967	
==>.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7789	7967	
==>.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6757	6886	
==>defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6757	6886	
==>defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6757	6886	
==>defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4347	4448	
==>)." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4347	4448	
==>)." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4347	4448	
==>)." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16872	17021	
==>{ 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16872	17021	
==>{ 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16872	17021	
==>{ 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	958	1069	
==>>= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	958	1069	
==>>= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	958	1069	
==>>= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.len <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3605	3711	
==>}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3605	3711	
==>}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7003	7097	
==>y $main = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{defs} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	150	245	
==>Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::B <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	150	245	
==>Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	148	239	
==>Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13139	13279	
==>se ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13139	13279	
==>se ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13139	13279	
==>se ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1683	1808	
==>umber(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1683	1808	
==>umber(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1683	1808	
==>umber(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31701	31800	
==>es of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36251	36350	
==>es of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35487	35586	
==>es of
the original, or has zero tuples, respectively.  This method has aliases
named C<where> and C< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9323	9433	
==>f unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11638	11748	
==>f unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2628	2721	
==>ni;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2628	2721	
==>ni;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2628	2721	
==>ni;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludep <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11658	11756	
==>ader.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11658	11756	
==>ader.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	583	684	
==>turn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	583	684	
==>turn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	583	684	
==>turn $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	949	1073	
==>>{is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10380	10493	
==>NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pug <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10380	10493	
==>NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7857	8077	
==>y $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7857	8077	
==>y $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7857	8077	
==>y $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36912	37007	
==>.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $message ) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36912	37007	
==>.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $message ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24433	24559	
==>ailed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24433	24559	
==>ailed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24433	24559	
==>ailed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	760	856	
==>p.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	760	856	
==>p.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	760	856	
==>p.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { ret <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	751	924	
==>gs.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	751	924	
==>gs.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21358	21453	
==>[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_min_offset subs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1740	1869	
==>ge( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1740	1869	
==>ge( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8277	8396	
==>::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            params => closure::params- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2474	2575	
==>my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2474	2575	
==>my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2474	2575	
==>my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8452	8555	
==>$sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8452	8555	
==>$sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8452	8555	
==>$sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3828	3928	
==>uns pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3828	3928	
==>uns pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3828	3928	
==>uns pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	672	785	
==>(blessed($attrs) && $attrs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	831	920	
==>as a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	831	920	
==>as a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3609	3731	
==>_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3609	3731	
==>_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if define <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1092	1184	
==>term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", "term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14808	14911	
==>uire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14808	14911	
==>uire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14808	14911	
==>uire PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1789	1916	
==>tHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1789	1916	
==>tHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1789	1916	
==>tHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $fil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10650	10749	
==>s with a single invocation.

The $value argument may be a plain string or a reference to an array
of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10650	10749	
==>s with a single invocation.

The $value argument may be a plain string or a reference to an array
of <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30353	30458	
==>provided in C<$heading>) may or may not resemble those of the original. 
The anonymous function in the arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34905	35009	
==>provided in C<$heading>) may or may not resemble those of the original.
The anonymous function in the arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34087	34191	
==>provided in C<$heading>) may or may not resemble those of the original.
The anonymous function in the arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4099	4202	
==>_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4099	4202	
==>_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4099	4202	
==>_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4281	4394	
==>ttps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4281	4394	
==>ttps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4281	4394	
==>ttps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	454	550	
==>ally, when you declare a Method on a Class, it is bound to that
Class' C<Type> object immediately <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31050	31141	
==>ocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35600	35691	
==>ocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5382	5560	
==>etch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5382	5560	
==>etch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5382	5560	
==>etch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $sel <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28216	28330	
==>)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_COPY_F <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8540	8638	
==>is event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I< <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8540	8638	
==>is event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I< <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2582	2723	
==>e on failure.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { require <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27113	27250	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'litera <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27392	27529	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'litera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18622	18713	
==>B infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18622	18713	
==>B infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18622	18713	
==>B infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18635	18745	
==>al pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyz <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7292	7387	
==>hod traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7292	7387	
==>hod traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2191	2280	
==>L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2280	2369	
==>L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	595	716	
==>air") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	595	716	
==>air") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	595	716	
==>air") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10132	10279	
==>nding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6473	6620	
==>nding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7322	7469	
==>nding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	479	590	
==>utter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	479	590	
==>utter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	479	590	
==>utter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	897	994	
==>d synopses with hyperlinks to corresponding tests

  Options:
    --p6design_dir  Directory contai <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7296	7389	
==>traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.de <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7296	7389	
==>traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	120	216	
==>64338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	120	216	
==>64338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	120	216	
==>64338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	380	490	
==>f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	380	490	
==>f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	380	490	
==>f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7375	7544	
==>atisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ve <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7839	8008	
==>atisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ve <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9699	9791	
==>=~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join("," <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15804	15914	
==>hould be based on the length of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5150	5262	
==>:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5150	5262	
==>:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5150	5262	
==>:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $su <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8869	8985	
==>in = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8869	8985	
==>in = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5588	5689	
==>))        --> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_not(R))    --> "(?!",  !, p5_start(R <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1993	2132	
==>bug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1993	2132	
==>bug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5872	5981	
==>.6
      <IdentifierStart>
    | <IdentifierName> <IdentifierPart>
}
rule IdentifierStart {  # see 7.6
      < <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2787	2923	
==>et ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return B <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2787	2923	
==>et ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return B <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	152	271	
==>%PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15341	15463	
==>eue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Buck <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15341	15463	
==>eue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Buck <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8219	8331	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8219	8331	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8219	8331	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11650	11799	
==>rces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in common with either oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15127	15276	
==>rces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in common with either oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14462	14611	
==>rces -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in common with either oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3682	3881	
==>e tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3682	3881	
==>e tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3682	3881	
==>e tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')- <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3162	3263	
==>expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20274	20369	
==>sult of the compilation
is replaced by a single line containing the hexadecimal digest of the
re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20274	20369	
==>sult of the compilation
is replaced by a single line containing the hexadecimal digest of the
re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15343	15468	
==>ub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15343	15468	
==>ub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15343	15468	
==>ub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	566	708	
==>ain program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	566	708	
==>ain program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5713	5822	
==>ssing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5713	5822	
==>ssing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5713	5822	
==>ssing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as neede <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1858	2000	
==>ing("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             sho <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1858	2000	
==>ing("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             sho <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1858	2000	
==>ing("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	803	902	
==>Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	803	902	
==>Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	803	902	
==>Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to packag <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2476	2584	
==>BSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMak <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1633	1732	
==>BSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMak <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	941	1051	
==>or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	941	1051	
==>or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that con <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	12	121	
==>le::Install;
$VERSION = '0.36';
use FindBin;

die << "." unless $INC{join('/', inc => split(/::/, __PACKAGE__) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13977	14137	
==>ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13977	14137	
==>ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13977	14137	
==>ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2498	2624	
==>pect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2498	2624	
==>pect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2578	2704	
==>pect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "ex <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4261	4383	
==>,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r->subbeg);*/ /* fails split.t with newstr==1*/
      r- <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13531	13628	
==>h as "say" and
database queries, may occur much later than expected.

It may enter an infinite loo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13531	13628	
==>h as "say" and
database queries, may occur much later than expected.

It may enter an infinite loo <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	347	448	
==>w {
    ...
}

method &infix:«==»($self, Perl::Param $other) {
    ...
}

method &infix:«<»($self, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3106	3204	
==>s are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3106	3204	
==>s are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27407	27504	
==>e pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31959	32056	
==>e pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31042	31139	
==>e pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3241	3348	
==>_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3241	3348	
==>_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3241	3348	
==>_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", name_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	448	592	
==>= -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = I <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	448	592	
==>= -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	243	345	
==>xical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of diges <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	243	345	
==>xical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of diges <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27644	27744	
==>nding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32196	32296	
==>nding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31288	31388	
==>nding extension of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given ea <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12228	12338	
==>ed name of open3.

    multi sub open3 (Str $command) returns List is primitive is unsafe {
        my ($in, $o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	511	632	
==>ins
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	511	632	
==>ins
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32659	32751	
==>=pod

method _make_ascendant_dispatcher (opaque $self:) returns block {
    $self._make_dispa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13089	13201	
==>esult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16566	16678	
==>esult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15928	16040	
==>esult is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6479	6622	
==>, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	833	932	
==>RC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	833	932	
==>RC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13139	13232	
==>er field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13139	13232	
==>er field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2481	2569	
==>.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl-5.5.27/lib/x86_64-linux
my $prolog = << <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24407	24521	
==>$m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24407	24521	
==>$m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24407	24521	
==>$m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3491	3609	
==>h/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/da <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3491	3609	
==>h/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/da <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3491	3609	
==>h/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/da <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29587	29679	
==>ttributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34139	34231	
==>ttributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33303	33395	
==>ttributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-v <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	66	160	
==>ss in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $su <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	66	160	
==>ss in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $su <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1242	1366	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1242	1366	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1522	1622	
==>press_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smoke")) ||
    Compr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1012	1147	
==>else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1012	1147	
==>else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1012	1147	
==>else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11204	11296	
==>d_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11204	11296	
==>d_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2465	2572	
==>for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2465	2572	
==>for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2465	2572	
==>for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6605	6723	
==>if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6605	6723	
==>if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6605	6723	
==>if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14301	14401	
==>This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' characte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14359	14459	
==>This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' characte <==
3	/Users/nnunley/pugs/util/package-osx.pl	6349	6448	
==>man3/Perl6::Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17660	17780	
==>an.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17660	17780	
==>an.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	13	116	
==>6::Core::Nil;

use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $N <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5931	6051	
==>sions from highest to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9304	9405	
==>ormalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9304	9405	
==>ormalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	446	559	
==>_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	446	559	
==>_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VA <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	467	573	
==>6 > $file.out";
    if (compare("$file.out", "$dir/$file.expected")) {
        print "$dir/$file.p6 has som <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11399	11515	
==>pen (Str $command, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::ope <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1591	1692	
==>_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1591	1692	
==>_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2113	2256	
==>|= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2113	2256	
==>|= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2113	2256	
==>|= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32774	32890	
==>the tree because of the stacked nature of the
tree.  However, having them returned while I<walking> the tree is
helpf <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8009	8105	
==>his class solves is when you need do perform "set" operations on 
Span objects, that return lists <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8009	8105	
==>his class solves is when you need do perform "set" operations on 
Span objects, that return lists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3769	3925	
==>->isa('TestBuilder::Test'))
                || confess "test argument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	498	622	
==>se {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &cont <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	498	622	
==>se {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12327	12417	
==>SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12327	12417	
==>SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12327	12417	
==>SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5653	5781	
==>undary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5653	5781	
==>undary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4644	4741	
==>ch_hack,$name,$re)=@_;
  #$match_hack - Match creation is one thing which is very cruft in this sp <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1341	1442	
==>ter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unl <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1341	1442	
==>ter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unl <==
3	/Users/nnunley/pugs/util/config_h.pl	61	157	
==>e::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This file seems to determine so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3512	3648	
==>') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3512	3648	
==>') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3512	3648	
==>') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3501	3639	
==>= $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3501	3639	
==>= $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3501	3639	
==>= $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7753	7874	
==>( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7753	7874	
==>( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # in <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1791	1903	
==>urns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_methods }
       );
}

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11244	11367	
==>. $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11244	11367	
==>. $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11244	11367	
==>. $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4193	4316	
==>me' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4193	4316	
==>me' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1043	1166	
==>me' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  ' <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2402	2498	
==>rray) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2402	2498	
==>rray) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6593	6706	
==>en embedded in a core program file and hence
        # should never be loaded by translate_message().
        my $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6593	6706	
==>en embedded in a core program file and hence
        # should never be loaded by translate_message().
        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36405	36511	
==>foo' somewhere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->errmsg;
  print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1088	1214	
==>= args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1088	1214	
==>= args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1088	1214	
==>= args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	783	906	
==>lly *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	783	906	
==>lly *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	783	906	
==>lly *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15854	15945	
==>n Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, : <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15854	15945	
==>n Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2096	2229	
==>his will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Voi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2096	2229	
==>his will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Voi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2096	2229	
==>his will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Voi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4093	4187	
==>-------------------------------------------------------
## NOTE:
## code in this section has sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4093	4187	
==>-------------------------------------------------------
## NOTE:
## code in this section has sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4093	4187	
==>-------------------------------------------------------
## NOTE:
## code in this section has sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16399	16540	
==>ub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16399	16540	
==>ub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16399	16540	
==>ub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18706	18897	
==>XX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18706	18897	
==>XX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} | <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18706	18897	
==>XX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} | <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6898	7002	
==>-r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5919	6018	
==>n
{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4730	4827	
==>n {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2382	2492	
==>2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2382	2492	
==>2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2382	2492	
==>2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20 <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1314	1451	
==>ndefine $buf
        if !defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6006	6144	
==>ie "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6006	6144	
==>ie "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6006	6144	
==>ie "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29186	29306	
==>rns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29186	29306	
==>rns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Templat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8357	8470	
==>d(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8357	8470	
==>d(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8357	8470	
==>d(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4461	4557	
==>push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4461	4557	
==>push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4461	4557	
==>push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2132	2241	
==>> 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2132	2241	
==>> 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2132	2241	
==>> 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11241	11347	
==>rt?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_disc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11241	11347	
==>rt?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_disc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4473	4566	
==>0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0])?$_[0]:die "bug"} # XXX - name conflict. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5809	5938	
==>ray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5809	5938	
==>ray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5809	5938	
==>ray *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6586	6684	
==>_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6586	6684	
==>_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	285	373	
==>($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o->{'val_string'}}
sub as_array  {m <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	191	342	
==>{ ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => \&$_ }
                   qw( generate_p6mm ge <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2870	3015	
==>{
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2870	3015	
==>{
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1181	1282	
==>D;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1181	1282	
==>D;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1181	1282	
==>D;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	860	952	
==>.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	860	952	
==>.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::T <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2914	3034	
==>Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3459	3579	
==>Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	254	341	
==>ieblingsfarbe ist %lieblings{'Farbe'}\n";
print "{$wer}s Lieblingsdrink ist %lieblings{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30282	30441	
==>ems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30282	30441	
==>ems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30282	30441	
==>ems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2495	2610	
==>$new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2495	2610	
==>$new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2495	2610	
==>$new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9094	9207	
==>hes => [ command-line switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2057	2155	
==>pected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2115	2213	
==>pected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1788	1940	
==>) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1788	1940	
==>) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1788	1940	
==>) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1833	1976	
==>e->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1772	1912	
==>e->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8906	8997	
==>_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $iFoo- <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1865	1971	
==>in;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNO <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1865	1971	
==>in;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15184	15277	
==>ent to
C</(?!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	502	667	
==>self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	502	667	
==>self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	502	667	
==>self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	643	798	
==>h => do{ my \@match; $_[1]; \\\@match },
        } }";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	170	290	
==>(rule);

sub compiled {
    my $class = shift;
    my $code = shift;
    my ($grammar) = caller;
    bless { code => $cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	842	936	
==>ackage " . "$<grammar_name>" .
	    ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8742	8926	
==>nt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8742	8926	
==>nt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8742	8926	
==>nt ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8911	9068	
==>E TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMAR <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8911	9068	
==>E TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMAR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3073	3182	
==>$self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3073	3182	
==>$self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3073	3182	
==>$self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1442	1541	
==>ams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1442	1541	
==>ams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1442	1541	
==>ams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") and no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6819	6948	
==>pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6819	6948	
==>pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6819	6948	
==>pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3075	3176	
==>n my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1111	1202	
==>d

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implemen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1111	1202	
==>d

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5574	5683	
==>d['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME hand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5574	5683	
==>d['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME hand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5574	5683	
==>d['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	118	221	
==>lete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	118	221	
==>lete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	118	221	
==>lete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	336	570	
==>IL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	336	570	
==>IL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	336	570	
==>IL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14582	14674	
==>:Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14582	14674	
==>:Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14582	14674	
==>:Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2567	2673	
==>ub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2567	2673	
==>ub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2567	2673	
==>ub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11614	11732	
==>ocal $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11614	11732	
==>ocal $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11614	11732	
==>ocal $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	47	163	
==>globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem { <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	47	163	
==>globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	234	326	
==>[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Lieblingsdri <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14018	14112	
==>acters in $string with their entity
representation. A second argument can be given to specify w <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14018	14112	
==>acters in $string with their entity
representation. A second argument can be given to specify w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4718	4821	
==>is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my $r = compile($re) | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	485	589	
==>ngs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	485	589	
==>ngs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	485	589	
==>ngs on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new h <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15497	15614	
==>c, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False, $sec, $pico);

        # FIXME: this <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	762	860	
==>t;
    $self->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fak <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5156	5251	
==>rams::Check->last_error ), return;

    my $inst_pkg = JIB::Package->new(meta => $pkg->meta, ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	940	1042	
==>ns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - excep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	940	1042	
==>ns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - excep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	940	1042	
==>ns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - excep <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8645	8740	
==>ty caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8645	8740	
==>ty caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	534	649	
==>iler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4830	4921	
==>ert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4830	4921	
==>ert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1286	1421	
==>/ "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1286	1421	
==>/ "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13955	14058	
==>ns opaque {
    my %attrs;
    my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2805	2946	
==>le|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax insi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2989	3130	
==>le|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax insi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4214	4315	
==>est you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4214	4315	
==>est you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4294	4395	
==>est you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1477	1581	
==>$span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1477	1581	
==>$span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1032	1134	
==>| confess "The right hand side must be a core type";    
    return num->new($left->to_native + $right- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3520	3632	
==>nd_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3520	3632	
==>nd_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3520	3632	
==>nd_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Obj <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5903	6006	
==>sh before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5903	6006	
==>sh before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8100	8203	
==>sh before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	114	233	
==>EGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	116	235	
==>EGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2369	2498	
==>t to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2369	2498	
==>t to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $c <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	329	437	
==>role rArray {}


class Array is List does rArray;

# signature from S29draft.pod r8593.
# XXX Prim.hs has thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29937	30048	
==>ributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34489	34600	
==>ributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33653	33764	
==>ributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	448	574	
==>::$method"};
    }

    bless( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autolo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8989	9091	
==>return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9182	9284	
==>return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5047	5143	
==>UT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5047	5143	
==>UT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5047	5143	
==>UT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	854	969	
==>val($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	854	969	
==>val($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	854	969	
==>val($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	187	299	
==>ilder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is copy )
    { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5466	5568	
==>rmalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5466	5568	
==>rmalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = % <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10093	10240	
==>ackages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9457	9599	
==>[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] rul <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	787	886	
==>ndard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your C <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	787	886	
==>ndard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2760	2956	
==>' => 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5866	6005	
==>ne = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5866	6005	
==>ne = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7555	7782	
==>y( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7555	7782	
==>y( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7555	7782	
==>y( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1331	1472	
==>rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "ab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1331	1472	
==>rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "ab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6146	6280	
==>$_ eq 'NUM' } @expect;
        #print "expect '/' \n" if grep { $_ eq '/' }   @expect;

        # print "token: $$t[0] ", Dumper( $$t[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28554	28674	
==>&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2668	2781	
==>module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2668	2781	
==>module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3450	3707	
==>(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14848	14953	
==>($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14848	14953	
==>($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14848	14953	
==>($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8951	9071	
==>{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8951	9071	
==>{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8951	9071	
==>{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12441	12536	
==>?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12499	12594	
==>?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1780	1883	
==>ng methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1780	1883	
==>ng methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7	107	
==>file was an experiment in using the perl5 implementation's
# "regcomp hooks" (C functions called when <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25402	25540	
==>{
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  packa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3265	3369	
==>h $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necess <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3265	3369	
==>h $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1265	1367	
==>ue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1265	1367	
==>ue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1265	1367	
==>ue::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4713	4832	
==>r my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    return;
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6494	6593	
==>0, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6494	6593	
==>0, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10079	10217	
==>pile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3261	3364	
==>ndle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3261	3364	
==>ndle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	591	703	
==>itches = *Switches;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7241	7390	
==>$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7241	7390	
==>$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7241	7390	
==>$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	440	613	
==>sses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	440	613	
==>sses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	440	613	
==>sses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1241	1359	
==>" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::RegexPerl5 - Compiler for P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4849	4981	
==>ate::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4849	4981	
==>ate::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45946	46133	
==>shift;
                $e->get('?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1960	2073	
==>);

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1960	2073	
==>);

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7621	7767	
==>!= -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
} <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7621	7767	
==>!= -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
} <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	889	985	
==>---------



our $re_sigil = '[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_condition = '(?:if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14459	14648	
==>:Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14459	14648	
==>:Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14459	14648	
==>:Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3486	3620	
==>ata( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1844	1978	
==>ata( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2624	2758	
==>ata( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	875	1019	
==>meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # dir to store control MD
$Available      = $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7534	7671	
==>plice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7591	7728	
==>plice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6371	6475	
==>_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6371	6475	
==>_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6371	6475	
==>_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1762	1890	
==>ss . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1762	1890	
==>ss . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1762	1890	
==>ss . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom rebless <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2032	2140	
==>esigned to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2032	2140	
==>esigned to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3668	3773	
==>ations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3668	3773	
==>ations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3668	3773	
==>ations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3863	3965	
==>__returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3863	3965	
==>__returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3863	3965	
==>__returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17503	17601	
==>ent loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17503	17601	
==>ent loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38013	38106	
==>vocant Relation::Example but
that aren't in C<$other>.  This method will fail if C<$other> doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8295	8415	
==>) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8295	8415	
==>) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8295	8415	
==>) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=he <==
3	/Users/nnunley/pugs/util/package-osx.pl	223	323	
==>exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/bin/rem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13242	13399	
==>n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13236	13393	
==>n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return ca <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2012	2140	
==>= shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ ) {
	    # special commen <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4051	4158	
==>le MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10734	10831	
==>'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10734	10831	
==>'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2436	2540	
==>')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2436	2540	
==>')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2436	2540	
==>')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (argumen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4741	4867	
==>on_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4934	5060	
==>on_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21546	21643	
==>ym)).
class_member(class_pos(X)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_member(c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	793	939	
==>map { split /\n/ } @_;
    my $fh = $TODO ? *STDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	15	112	
==>Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/re <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	15	112	
==>Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5602	5713	
==>sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5602	5713	
==>sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5602	5713	
==>sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4797	4892	
==>9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4797	4892	
==>9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7905	8025	
==>r arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7905	8025	
==>r arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7905	8025	
==>r arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1164	1260	
==>ose to the main namespace for your tastes, and
you want to rebless everything down to your projec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1164	1260	
==>ose to the main namespace for your tastes, and
you want to rebless everything down to your projec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1164	1260	
==>ose to the main namespace for your tastes, and
you want to rebless everything down to your projec <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	572	676	
==>oload = eval { $self->_top->autoload } or return;
    goto &$autoload;
}

#line 76

sub _top { $_[0]->{_t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39150	39235	
==>main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Valida <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39150	39235	
==>main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Valida <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7296	7399	
==>RUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- ` <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7296	7399	
==>RUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3031	3145	
==>r(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3031	3145	
==>r(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3031	3145	
==>r(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1501	1625	
==>turn $self->define($node, $symbol, $result);
	} else {
		return $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $nod <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1356	1479	
==>ub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1356	1479	
==>ub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3596	3714	
==>) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3596	3714	
==>) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3596	3714	
==>) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= spri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3373	3522	
==>name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fore <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3373	3522	
==>name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fore <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3373	3522	
==>name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            fore <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3678	3803	
==>");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3678	3803	
==>");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5202	5327	
==>");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5593	5706	
==>o_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5593	5706	
==>o_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1461	1583	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1461	1583	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1461	1583	
==>see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4465	4631	
==>+; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4465	4631	
==>+; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4465	4631	
==>+; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6586	6711	
==>trip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6586	6711	
==>trip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	93	218	
==>ef)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      my $kludge_retval; ($f,$kludg <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3765	3907	
==>s   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : Process <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3030	3145	
==>eaders{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3030	3145	
==>eaders{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2133	2314	
==>op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1902	2076	
==>op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1902	2076	
==>op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12962	13078	
==>hod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12962	13078	
==>hod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12962	13078	
==>hod('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "Ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1885	2010	
==>"th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1885	2010	
==>"th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1885	2010	
==>"th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1043	1148	
==>y we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1043	1148	
==>y we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1043	1148	
==>y we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4027	4160	
==>tly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4027	4160	
==>tly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4027	4160	
==>tly looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2752	2860	
==>e {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2752	2860	
==>e {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2752	2860	
==>e {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8868	8982	
==>$1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8868	8982	
==>$1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8868	8982	
==>$1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4400	4543	
==>eta)) or return;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 package_re

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14565	14688	
==>fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14565	14688	
==>fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12263	12383	
==>{
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13073	13193	
==>{
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	489	595	
==>put? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	489	595	
==>put? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Tes <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8093	8207	
==>, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8093	8207	
==>, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2036	2149	
==>XXX create an object::accessor object, blessed in the right class
        my $obj = 
            $args->{repositor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4288	4392	
==>nt = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argum <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4288	4392	
==>nt = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argum <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4878	4982	
==>nt = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argum <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2598	2713	
==>/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2598	2713	
==>/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	425	532	
==>ew;

	my @nodes = grep { blessed($_) } $dup_finder->duplicate_nodes($program);

	$self->{seen} = {};

	retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4101	4229	
==>elf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4101	4229	
==>elf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4101	4229	
==>elf => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:supercla <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5426	5517	
==>add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5426	5517	
==>add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4626	4825	
==>')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4626	4825	
==>')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4626	4825	
==>')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	998	1146	
==>fined $self->{p};
                        # default = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $par <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20450	20548	
==>f all the languages your programs do or
might have, and lets you arrange the list in order of prefe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20450	20548	
==>f all the languages your programs do or
might have, and lets you arrange the list in order of prefe <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1176	1271	
==>veral
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of consta <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1176	1271	
==>veral
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of consta <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16651	16745	
==>lExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <Equali <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4975	5180	
==>es
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4975	5180	
==>es
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20502	20626	
==>- flag_m(E0), !.
rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16102	16213	
==>tion branch

  # opening parenthesis (maybe capturing paren)

  # any character

  # backslash

  # start of cha <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4456	4536	
==>:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4456	4536	
==>:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1987	2099	
==>ful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1987	2099	
==>ful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1987	2099	
==>ful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1588	1710	
==>=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1588	1710	
==>=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1588	1710	
==>=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28866	28990	
==>=> q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28866	28990	
==>=> q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	233	345	
==>=> q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5114	5223	
==>rd($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5114	5223	
==>rd($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5114	5223	
==>rd($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1266	1378	
==>- $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1266	1378	
==>- $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1266	1378	
==>- $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16260	16371	
==>suflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10680	10787	
==>ield matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10680	10787	
==>ield matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2665	2794	
==>r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2665	2794	
==>r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2665	2794	
==>r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	702	827	
==>edo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	702	827	
==>edo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	702	827	
==>edo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "ne <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16384	16530	
==>g_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20810	20956	
==>g_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6660	6773	
==>b emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21206	21314	
==>xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21206	21314	
==>xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21206	21314	
==>xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1201	1307	
==>};
	    $invocant = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7815	7919	
==>""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  u <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7815	7919	
==>""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3389	3555	
==>sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3389	3555	
==>sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3389	3555	
==>sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40828	40921	
==>fied version of Locale::KeyedText that you are willing to distribute,
because that is a practi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40828	40921	
==>fied version of Locale::KeyedText that you are willing to distribute,
because that is a practi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2217	2343	
==>o parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	217	320	
==>($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	217	320	
==>($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5620	5745	
==>{
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5620	5745	
==>{
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5620	5745	
==>{
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1751	1854	
==>{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1751	1854	
==>{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1751	1854	
==>{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1428	1538	
==>_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1428	1538	
==>_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14582	14726	
==>shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14582	14726	
==>shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14582	14726	
==>shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10910	11020	
==>alue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10910	11020	
==>alue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10910	11020	
==>alue attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1538	1637	
==>_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1538	1637	
==>_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1538	1637	
==>_to_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5558	5782	
==>( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5558	5782	
==>( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5558	5782	
==>( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2316	2413	
==>gth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2316	2413	
==>gth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2316	2413	
==>gth })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36162	36313	
==>ntil tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36162	36313	
==>ntil tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36162	36313	
==>ntil tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	701	800	
==>1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to fl <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	701	800	
==>1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to fl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19488	19584	
==>B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - excess caution
  M = [Str|_], % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	278	371	
==>tr.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	278	371	
==>tr.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	278	371	
==>tr.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3139	3275	
==>*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3139	3275	
==>*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3139	3275	
==>*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2608	2717	
==>ue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2608	2717	
==>ue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2608	2717	
==>ue checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3619	3795	
==>ef $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3619	3795	
==>ef $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1095	1198	
==>lessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4807	4961	
==>? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4807	4961	
==>? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4807	4961	
==>? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5307	5408	
==>self->{prefix}' directory and run $0 again to load it.
END_DIE

    my $obj = $admin->load($method, 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	410	523	
==>anidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	410	523	
==>anidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	410	523	
==>anidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	909	1007	
==>OROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	909	1007	
==>OROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	909	1007	
==>OROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4202	4333	
==>Name';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Lite <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4202	4333	
==>Name';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Lite <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1052	1183	
==>Name';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Lite <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	22	124	
==>v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_M <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	22	124	
==>v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35293	35434	
==>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35293	35434	
==>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35293	35434	
==>_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5697	5815	
==>}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3532	3634	
==>nion = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3532	3634	
==>nion = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1427	1527	
==>only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1427	1527	
==>only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1427	1527	
==>only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30309	30444	
==>ms}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30309	30444	
==>ms}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30309	30444	
==>ms}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4859	4992	
==>,
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4859	4992	
==>,
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3286	3417	
==>name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1121	1225	
==>----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1121	1225	
==>----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1121	1225	
==>----------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7218	7320	
==>sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7218	7320	
==>sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7218	7320	
==>sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4433	4542	
==>new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4433	4542	
==>new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38486	38576	
==>emijoin (Relation::Example $other!) returns Relation::Example>

This method is a generic re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9862	10005	
==>se }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9862	10005	
==>se }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28004	28100	
==>ard object, no warnings will be issued.

=head2 The F<__object__> Base Class

All nodes inherit f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7634	7751	
==>PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7634	7751	
==>PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7634	7751	
==>PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2981	3086	
==>\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2981	3086	
==>\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2981	3086	
==>\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $u <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10471	10602	
==>e.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10471	10602	
==>e.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	806	905	
==>%total = $strap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTED
  my $verbose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20670	20787	
==>tr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20670	20787	
==>tr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20670	20787	
==>tr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3831	3937	
==>"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3831	3937	
==>"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4421	4527	
==>"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17904	18004	
==>th->($self, $line, $type, $totals) if $meth;
};


sub header_handler {
    my($self, $line, $type, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12793	12906	
==>the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12793	12906	
==>the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12793	12906	
==>the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7288	7420	
==>(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7300	7432	
==>(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1201	1305	
==>y $ident = get_str( $_[0], '$<ident>' );
    return "require $ident;\n";
}
sub node::use_bareword {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	604	705	
==>-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	604	705	
==>-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	604	705	
==>-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	627	780	
==>script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	627	780	
==>script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18368	18461	
==>< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max_ng(Re,L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19133	19233	
==>xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19133	19233	
==>xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19133	19233	
==>xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	31	157	
==>use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	31	157	
==>use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	31	157	
==>use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	488	591	
==>l)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	488	591	
==>l)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	488	591	
==>l)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5536	5653	
==>-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5536	5653	
==>-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5536	5653	
==>-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2726	2824	
==>y $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$cons <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2726	2824	
==>y $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$cons <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18542	18635	
==>Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1230	1353	
==><ident>' );
    return "require $ident;\n";
}
sub node::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5199	5311	
==>->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator tabl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	673	788	
==>'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	673	788	
==>'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	38	137	
==>::Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT];

my $config  = JI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14701	14829	
==>e->[-1]->visual . $self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6559	6653	
==>_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6559	6653	
==>_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6311	6413	
==>{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_vars {
	my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1628	1724	
==>UILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1628	1724	
==>UILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3029	3134	
==>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_confi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3029	3134	
==>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_confi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3029	3134	
==>add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_confi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11567	11717	
==>ias', " .
            "\\" . _emit( $n->{exp2} );
    }

    if ( exists $n->{exp2}{bare_block} ) {
        # $a = { 42 } 
        return " " . _ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9980	10086	
==>Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpol <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9980	10086	
==>Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpol <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19934	20048	
==>ad
    .local pmc exp
    .local int padarray
    padarray = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8954	9062	
==>y $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8954	9062	
==>y $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2311	2404	
==>ss Getopt::Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12263	12422	
==>ache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12263	12422	
==>ache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12263	12422	
==>ache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	18	131	
==>se warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	18	131	
==>se warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	18	131	
==>se warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
use Encode;

ou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4117	4246	
==>b => $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3391	3477	
==>}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3391	3477	
==>}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	859	954	
==>tes a message to the normal output filehandle, adding leading C<#>
characters after all newlines <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	859	954	
==>tes a message to the normal output filehandle, adding leading C<#>
characters after all newlines <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1415	1510	
==>tes a message to the normal output filehandle, adding leading C<#>
characters after all newlines <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12485	12582	
==>argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12485	12582	
==>argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12314	12431	
==>afe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4426	4535	
==>AMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4426	4535	
==>AMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20560	20777	
==>n $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20560	20777	
==>n $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20560	20777	
==>n $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7341	7458	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8693	8810	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19361	19478	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2127	2233	
==>( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2908	3014	
==>( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0] <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1766	1861	
==>s ; Code *&expression) returns Scalar
 multi sub  Perl6::List::reduce (Code $expression ; *@valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5136	5276	
==>ld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5136	5276	
==>ld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5136	5276	
==>ld be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2372	2515	
==>:expect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4662	4769	
==>S

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / vi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4662	4769	
==>S

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / vi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15483	15576	
==>ed = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity and t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15483	15576	
==>ed = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity and t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23731	23823	
==>s/object attributes are private, so you must use accessor
methods.  Relation::Example does no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1483	1585	
==>)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1483	1585	
==>)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1483	1585	
==>)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1674	1782	
==>r engine cannot handle left recursive rules, you should
#  create a new grammar, inherit from this one, and r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2521	2619	
==>}
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2579	2677	
==>}
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	759	875	
==>> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	759	875	
==>> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	759	875	
==>> "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8209	8325	
==>sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8209	8325	
==>sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8209	8325	
==>sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6052	6157	
==>ses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6052	6157	
==>ses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6052	6157	
==>ses.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	937	1049	
==>'~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6219	6331	
==>);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7217	7329	
==>);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7161	7264	
==>ary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7161	7264	
==>ary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Cont <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12047	12146	
==>ngine
my $i = Language::AttributeGrammar->new(<<'#\'EOG');
#\

# at the root we initialize the prede <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7483	7630	
==>igenClass methods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7483	7630	
==>igenClass methods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7483	7630	
==>igenClass methods
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	55	159	
==>Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	55	159	
==>Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	55	159	
==>Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6771	6883	
==>eturn $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6771	6883	
==>eturn $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6771	6883	
==>eturn $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10878	11041	
==>rt =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10878	11041	
==>rt =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10878	11041	
==>rt =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1102	1208	
==>ly useful when your object belongs to a
package that is too close to the main namespace for your tastes, an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1102	1208	
==>ly useful when your object belongs to a
package that is too close to the main namespace for your tastes, an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1102	1208	
==>ly useful when your object belongs to a
package that is too close to the main namespace for your tastes, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10479	10664	
==>== undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10479	10664	
==>== undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10479	10664	
==>== undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4295	4440	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4295	4440	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4295	4440	
==>ass->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8254	8351	
==>on( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8254	8351	
==>on( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13762	13956	
==>t->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reque <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13762	13956	
==>t->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reque <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13762	13956	
==>t->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore reque <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8319	8413	
==>insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified it <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8319	8413	
==>insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified it <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	459	574	
==>bj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8725	8835	
==>.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # va <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8725	8835	
==>.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6441	6550	
==>$matcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6224	6331	
==>$matcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22873	22957	
==>!.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T).

%-------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3223	3353	
==>o +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3223	3353	
==>o +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3223	3353	
==>o +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, b <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3577	3732	
==>:splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@values
			    --> List ) is rw
{
    my $off = +$o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5891	5991	
==>msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Loca <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5891	5991	
==>msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Loca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3675	3806	
==>name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' bl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2856	2950	
==>$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The ho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2856	2950	
==>$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19636	19836	
==>p->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19636	19836	
==>p->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19636	19836	
==>p->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2908	3034	
==>e),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2908	3034	
==>e),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2908	3034	
==>e),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	722	839	
==>ash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	722	839	
==>ash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	722	839	
==>ash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	406	523	
==>_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20328	20422	
==>correctly
and reliably, it also performs quite slowly; you should only use Example
for testing, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20328	20422	
==>correctly
and reliably, it also performs quite slowly; you should only use Example
for testing, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	842	963	
==>tmp dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3137	3233	
==>, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any| <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3195	3291	
==>, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1629	1806	
==>ethods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1629	1806	
==>ethods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1629	1806	
==>ethods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19832	19932	
==>a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19832	19932	
==>a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23314	23490	
==>eturn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23314	23490	
==>eturn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23314	23490	
==>eturn $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2822	2927	
==>lass($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2822	2927	
==>lass($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2822	2927	
==>lass($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1224	1332	
==>BLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIAB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1224	1332	
==>BLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIAB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1224	1332	
==>BLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIAB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4665	4764	
==>_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4665	4764	
==>_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4665	4764	
==>_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1761	1859	
==>SCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned u <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1761	1859	
==>SCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2957	3086	
==>ss);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2957	3086	
==>ss);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2957	3086	
==>ss);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6052	6151	
==>ne
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6052	6151	
==>ne
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6052	6151	
==>ne
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6486	6633	
==>l, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6486	6633	
==>l, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6486	6633	
==>l, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3135	3257	
==>o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3135	3257	
==>o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö', <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	11	106	
==>world needs a Perl6 regex pattern reference grammar.
Here is a place to accumulate one.

Resourc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5800	5910	
==>e_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubTy <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5800	5910	
==>e_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubTy <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2699	2809	
==>e_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubTy <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3539	3640	
==>KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3539	3640	
==>KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9035	9253	
==>st.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list wo <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9035	9253	
==>st.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list wo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2641	2798	
==>s %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4559	4690	
==>ms );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4559	4690	
==>ms );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4559	4690	
==>ms );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2791	2896	
==>en my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2791	2896	
==>en my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2791	2896	
==>en my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38029	38182	
==>sa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38029	38182	
==>sa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38029	38182	
==>sa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->spli <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6066	6178	
==>$path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6066	6178	
==>$path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8876	8984	
==>rule 
 #  (is parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2372	2494	
==>s'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2372	2494	
==>s'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2372	2494	
==>s'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1536	1677	
==>g"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1536	1677	
==>g"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1536	1677	
==>g"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	195	315	
==>tion (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	195	315	
==>tion (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	195	315	
==>tion (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	759	868	
==>ck
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	759	868	
==>ck
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (de <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3729	3895	
==>LED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installed')}; 
use constant ISA_JIB_PA <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4979	5094	
==>les! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4979	5094	
==>les! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        % <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3660	3782	
==>ee[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse_ast ( $tree[1] <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	562	662	
==>Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs ba <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	562	662	
==>Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs ba <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25684	25799	
==>ible start of the match.
 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #def <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35106	35197	
==>method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39656	39747	
==>method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1024	1150	
==>tured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1024	1150	
==>tured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mu <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1612	1712	
==>away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a.round_down: symmetrical => $^b } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5585	5729	
==>ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5585	5729	
==>ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5585	5729	
==>ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30939	31038	
==>tuple that is identical to the original, in which case
this method returns the identity-one Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35489	35588	
==>tuple that is identical to the original, in which case
this method returns the identity-one Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34680	34779	
==>tuple that is identical to the original, in which case
this method returns the identity-one Relation <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12699	12844	
==>cument $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12699	12844	
==>cument $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7449	7545	
==>YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store results in FILE [default: $Config{"ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1801	1936	
==>r('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37160	37254	
==>r

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl pa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37160	37254	
==>r

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1753	1862	
==>0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1753	1862	
==>0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1753	1862	
==>0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handle <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13815	13929	
==>\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13809	13923	
==>\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capt <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3903	4012	
==>ch my $key (@scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreac <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3830	3936	
==>, # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3830	3936	
==>, # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4451	4537	
==>-----------------------------------------------------------------

my $Role;

my $_reso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6229	6323	
==>n 
a helper to other functions.  

=cut

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6229	6323	
==>n 
a helper to other functions.  

=cut

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6229	6323	
==>n 
a helper to other functions.  

=cut

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2682	2808	
==>don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2682	2808	
==>don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2682	2808	
==>don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19132	19235	
==>sertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15553	15656	
==>sertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1657	1778	
==>);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1657	1778	
==>);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1657	1778	
==>);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13026	13154	
==>brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $goo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6501	6629	
==>brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $goo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19315	19412	
==>name),$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit($stat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8284	8396	
==>le => $file );

    return $self->add_package(package => $pkg, force => $force);
}

1;

# Local variables:
# c-in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8606	8695	
==>s, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2431	2520	
==>s, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8047	8175	
==>ge = 1;
    }

    my $stringify = sub {
	my($s)=@_;
	$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" i <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1980	2076	
==>nt to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1980	2076	
==>nt to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5972	6071	
==>tring);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5972	6071	
==>tring);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5972	6071	
==>tring);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULT <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1333	1432	
==>ected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1391	1490	
==>ected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3322	3443	
==>ce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3322	3443	
==>ce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3322	3443	
==>ce_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4941	5042	
==>en
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4941	5042	
==>en
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5531	5632	
==>en
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10628	10733	
==>-------------------------------------------

    method add_method;
    method get_method;
    method has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10628	10733	
==>-------------------------------------------

    method add_method;
    method get_method;
    method has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10628	10733	
==>-------------------------------------------

    method add_method;
    method get_method;
    method has_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2417	2519	
==>om_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2417	2519	
==>om_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2417	2519	
==>om_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8158	8398	
==>alar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8158	8398	
==>alar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8158	8398	
==>alar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1279	1391	
==>13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1279	1391	
==>13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1279	1391	
==>13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8513	8606	
==>6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8513	8606	
==>6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8513	8606	
==>6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1759	1901	
==>e 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne ' <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1759	1901	
==>e 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	29	146	
==>in '$Bin';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20507	20722	
==>self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20507	20722	
==>self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20507	20722	
==>self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1087	1325	
==>^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   ruleop: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12303	12417	
==>{
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12303	12417	
==>{
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1269	1383	
==>List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1269	1383	
==>List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1269	1383	
==>List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2587	2691	
==>inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2587	2691	
==>inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2587	2691	
==>inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	56	177	
==>Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	56	177	
==>Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	56	177	
==>Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3715	3839	
==>ntf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3715	3839	
==>ntf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3715	3839	
==>ntf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4827	4926	
==>f the original name. So if you had an object blessed into "MyClass",
it will now be blessed into "Ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4827	4926	
==>f the original name. So if you had an object blessed into "MyClass",
it will now be blessed into "Ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4827	4926	
==>f the original name. So if you had an object blessed into "MyClass",
it will now be blessed into "Ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	558	655	
==>(shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new(0) }

# m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	700	831	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	700	831	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	700	831	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4759	4887	
==>le'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4952	5080	
==>le'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3439	3543	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->objec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30408	30518	
==>of the original. 
The anonymous function in the argument C<$transformer> is invoked for each
original tuple/Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34960	35069	
==>of the original.
The anonymous function in the argument C<$transformer> is invoked for each
original tuple/Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34142	34251	
==>of the original.
The anonymous function in the argument C<$transformer> is invoked for each
original tuple/Map <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	613	739	
==>s{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	613	739	
==>s{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28999	29090	
==>from the command line,
L<Test> and L<Test::Simple> for writing test scripts, L<Benchmark> fo <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13160	13268	
==>);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18964	19058	
==>tion data type that corresponds to the
"relation" of logic and mathematics and philosophy ("a p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22614	22708	
==>tion data type that corresponds to the "relation" of logic
and mathematics and philosophy ("a p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5611	5743	
==>_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5611	5743	
==>_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5611	5743	
==>_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14999	15115	
==>o narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18476	18592	
==>o narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17892	18008	
==>o narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_di <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3165	3268	
==>q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3165	3268	
==>q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13677	13774	
==>e set of generics unchanged
val: generic($$) = { generic_in($$) }
# vals are assumed to know their <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	989	1099	
==>try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	989	1099	
==>try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	989	1099	
==>try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5956	6082	
==>gs to.

=cut

sub index_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7071	7170	
==>$context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7129	7228	
==>$context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $tod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1218	1354	
==>class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1218	1354	
==>class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1218	1354	
==>class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17462	17558	
==>lass conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17462	17558	
==>lass conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17462	17558	
==>lass conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10	111	
==>::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot an <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10	111	
==>::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8103	8263	
==>Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8103	8263	
==>Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8103	8263	
==>Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	987	1107	
==>ile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	987	1107	
==>ile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	987	1107	
==>ile (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5718	5824	
==>warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5718	5824	
==>warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5718	5824	
==>warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1631	1737	
==>_ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3047	3141	
==>vailable.

=back

In addition, the following request headers are set on the HTTP::Headers objec <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3047	3141	
==>vailable.

=back

In addition, the following request headers are set on the HTTP::Headers objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3546	3632	
==>ttributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3546	3632	
==>ttributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3546	3632	
==>ttributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23721	23832	
==>';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23721	23832	
==>';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23721	23832	
==>';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3865	4040	
==>);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36753	36846	
==>xample>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37253	37346	
==>xample>

This multi-method is a generic binary relational operator that is like
C<union> excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10181	10315	
==>Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10181	10315	
==>Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10181	10315	
==>Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8478	8589	
==>ot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8478	8589	
==>ot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8478	8589	
==>ot = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13050	13150	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13050	13150	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13050	13150	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3091	3267	
==>ffset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3091	3267	
==>ffset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3091	3267	
==>ffset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6944	7088	
==>self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6944	7088	
==>self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6944	7088	
==>self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1079	1222	
==>ps?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = . <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1079	1222	
==>ps?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = . <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2799	2907	
==>tage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5,$warn) = Perl6::Run::OnPerl5::X1::PilToPe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21814	21907	
==>ead1 NAME

Relation::Example -
Simple in-memory implementation of the Relation role

=head1 VE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2168	2259	
==>t::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2168	2259	
==>t::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	834	940	
==>5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	834	940	
==>5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17194	17300	
==>$n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primitive is builtin is safe {
    my $flen = $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4229	4366	
==>s) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4229	4366	
==>s) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4229	4366	
==>s) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextTo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4535	4660	
==>$item [ " . join( ' | ', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n";
    }
    return @rules <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11331	11423	
==>ements both from this recurrence and from the given recurrence.

- `intersection( $recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11331	11423	
==>ements both from this recurrence and from the given recurrence.

- `intersection( $recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11495	11637	
==>losure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11495	11637	
==>losure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11495	11637	
==>losure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13521	13658	
==>o &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13521	13658	
==>o &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13521	13658	
==>o &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all disp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3256	3377	
==>0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3244	3365	
==>0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1562	1673	
==>return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1562	1673	
==>return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1562	1673	
==>return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9249	9386	
==>s(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9249	9386	
==>s(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9249	9386	
==>s(@arguments);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4449	4556	
==>ll use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4449	4556	
==>ll use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4529	4636	
==>ll use it as the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3412	3530	
==>+cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3412	3530	
==>+cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3412	3530	
==>+cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6520	6651	
==>"zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6520	6651	
==>"zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => ch <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15228	15314	
==>[P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewrite(X,X,RW0,RW0).
re_rew <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5693	5800	
==>L::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5693	5800	
==>L::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5693	5800	
==>L::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can' <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3823	3912	
==>lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=he <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3823	3912	
==>lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11669	11777	
==>n( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12027	12135	
==>n( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4232	4348	
==>$map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as f <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4232	4348	
==>$map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8447	8551	
==>$_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'capturing_group' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1848	1944	
==>e of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalyp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1848	1944	
==>e of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2522	2642	
==>ay.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2522	2642	
==>ay.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2522	2642	
==>ay.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	775	899	
==>trs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	775	899	
==>trs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	775	899	
==>trs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	320	462	
==>({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	320	462	
==>({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	320	462	
==>({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	886	992	
==>ispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	886	992	
==>ispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	886	992	
==>ispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36363	36485	
==>s;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36363	36485	
==>s;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36363	36485	
==>s;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	812	910	
==>udepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	812	910	
==>udepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	812	910	
==>udepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Pr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4693	4798	
==>($V),$W);
    return;
}

# 8.8 The List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8081	8269	
==>nts[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8081	8269	
==>nts[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8081	8269	
==>nts[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4467	4598	
==>other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser', <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14002	14095	
==>aces unsafe characters in $string with their entity
representation. A second argument can be g <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14002	14095	
==>aces unsafe characters in $string with their entity
representation. A second argument can be g <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2862	2973	
==>load_script $html_location

    Or add
        smoke_upload: 1 
    to your config.yml file if you want the repo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	18	119	
==>mmar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gram <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	18	119	
==>mmar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gram <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	936	1035	
==>so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	936	1035	
==>so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	480	579	
==>hift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}->insert($node) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2960	3076	
==>e;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2960	3076	
==>e;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2960	3076	
==>e;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	400	495	
==>d classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	400	495	
==>d classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	400	495	
==>d classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional param <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10622	10727	
==>elect a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # arg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10622	10727	
==>elect a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7713	7873	
==>Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7713	7873	
==>Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7713	7873	
==>Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	724	839	
==>t, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	724	839	
==>t, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	724	839	
==>t, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15480	15581	
==>uccess (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4323	4420	
==>{}

When used as a hash reference, the match object returns named captures
as match objects, keyed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4323	4420	
==>{}

When used as a hash reference, the match object returns named captures
as match objects, keyed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2487	2594	
==>lass_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2487	2594	
==>lass_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2487	2594	
==>lass_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1709	1819	
==>reate_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1914	2024	
==>reate_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1977	2087	
==>reate_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9714	9909	
==>rn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9714	9909	
==>rn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9714	9909	
==>rn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7789	7897	
==>o match

  $next_state    - an optional "continuation"

  $capture       - capture then entire match. For exa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7525	7631	
==>o match
  $next_state    - an optional "continuation"
  $capture       - capture then entire match. For exa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13667	13763	
==>clared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13667	13763	
==>clared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13667	13763	
==>clared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2709	2807	
==>mber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2709	2807	
==>mber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2709	2807	
==>mber(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6693	6812	
==>primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6693	6812	
==>primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6693	6812	
==>primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15383	15561	
==>$type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YE <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	669	785	
==>tart;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method compl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	669	785	
==>tart;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13541	13643	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13541	13643	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13541	13643	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB pre <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2991	3092	
==>y if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stri <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2991	3092	
==>y if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stri <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12115	12207	
==>otal> total"><tmpl_var name=total></span>:</td>
	      <td class="num tests_ok"><span title=" <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2216	2309	
==>head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2216	2309	
==>head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1088	1196	
==>arily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1088	1196	
==>arily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1088	1196	
==>arily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1568	1667	
==>{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1568	1667	
==>{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1568	1667	
==>{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prel <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	340	449	
==>...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is expo <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	340	449	
==>...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7368	7496	
==>defined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7368	7496	
==>defined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7368	7496	
==>defined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1600	1734	
==>ined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1600	1734	
==>ined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1600	1734	
==>ined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1003	1111	
==>f->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1003	1111	
==>f->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1003	1111	
==>f->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad[ <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2242	2364	
==>t->{meat}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4551	4670	
==>capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4334	4448	
==>capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14193	14392	
==>thod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14193	14392	
==>thod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14193	14392	
==>thod->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher ma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	218	346	
==>ub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9546	9651	
==>\$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9534	9639	
==>\$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2193	2300	
==>tring(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2193	2300	
==>tring(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2193	2300	
==>tring(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5013	5130	
==>'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5013	5130	
==>'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PI <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1917	2034	
==>'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PI <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6983	7118	
==>S{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6983	7118	
==>S{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5368	5470	
==>.html",
    (map { $smoke{$_}          } qw<pugs_version pugs_revision osname runcore timestamp duratio <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9121	9265	
==>= 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $f <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2353	2472	
==>:Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2353	2472	
==>:Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	199	316	
==>.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	199	316	
==>.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	199	316	
==>.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6946	7136	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = B <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6946	7136	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = B <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10095	10235	
==>->data->data->emit; # reach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1003	1112	
==>$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1003	1112	
==>$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9184	9291	
==>elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9184	9291	
==>elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9184	9291	
==>elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1060	1168	
==>(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1060	1168	
==>(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1060	1168	
==>(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2905	3002	
==>ll if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful va <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2905	3002	
==>ll if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14902	15042	
==>$key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14902	15042	
==>$key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $cha <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1076	1183	
==>e the previous match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10368	10553	
==>Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	910	1079	
==>Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	910	1079	
==>Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	700	821	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	700	821	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	700	821	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	601	708	
==>Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	601	708	
==>Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	601	708	
==>Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2428	2534	
==>ith PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2428	2534	
==>ith PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2428	2534	
==>ith PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3501	3612	
==>tenation_more(W, W) --> {true}.

p6_concatenation(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1851	1948	
==>ion are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1851	1948	
==>ion are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4469	4591	
==>hods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4469	4591	
==>hods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4469	4591	
==>hods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	195	298	
==>nces should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	195	298	
==>nces should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12896	13037	
==>0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12896	13037	
==>0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12896	13037	
==>0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3303	3419	
==>se Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bou <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3303	3419	
==>se Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bou <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3659	3775	
==>se Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3581	3688	
==>$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3581	3688	
==>$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3581	3688	
==>$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24572	24654	
==>lace_at_n_if_undef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5631	5731	
==>sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5631	5731	
==>sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5631	5731	
==>sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14248	14341	
==>ake sense to iterate through a continuous span, because the "separation" 
between values would <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14248	14341	
==>ake sense to iterate through a continuous span, because the "separation" 
between values would <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2003	2091	
==>p://search.cpan.org/~salva/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his "P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1342	1471	
==>instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1342	1471	
==>instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1342	1471	
==>instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33012	33111	
==>that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37562	37661	
==>that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36906	37005	
==>that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	841	966	
==>ion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	841	966	
==>ion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	841	966	
==>ion (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8709	8839	
==>bstr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  package Regexp::P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3576	3668	
==>raphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3576	3668	
==>raphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1411	1511	
==>ttribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1411	1511	
==>ttribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1411	1511	
==>ttribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22527	22635	
==>NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18948	19056	
==>NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7402	7494	
==>add_method'), $_add_method));
}

=pod

method has_method (opaque $self: symbol $label) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1594	1709	
==>>parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1594	1709	
==>>parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1594	1709	
==>>parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10705	10828	
==>mp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10705	10828	
==>mp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10705	10828	
==>mp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3980	4123	
==>->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        }
        return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1088	1188	
==>bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1088	1188	
==>bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4607	4745	
==>mpile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Compiler::Regex->compile( q(
            { r <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	97	207	
==>dir($Path) unless -e $Path;

sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~~ s:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4172	4288	
==>d the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4172	4288	
==>d the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4172	4288	
==>d the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6081	6193	
==>match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6093	6205	
==>match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1335	1432	
==>trx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # work around two uninteres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21845	22006	
==>s);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21845	22006	
==>s);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21845	22006	
==>s);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4683	4832	
==>aught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4683	4832	
==>aught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4683	4832	
==>aught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6413	6559	
==>n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9577	9677	
==>-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9577	9677	
==>-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%e <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4298	4567	
==>nk_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26088	26181	
==>out even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26088	26181	
==>out even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	80	238	
==>s export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	80	238	
==>s export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5975	6102	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5975	6102	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5975	6102	
==>e Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9731	9831	
==>ator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9731	9831	
==>ator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9731	9831	
==>ator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2501	2611	
==>kies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2501	2611	
==>kies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36826	36920	
==>s like
C<union> except that the returned Relation::Example contains only tuples that are in
exa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5669	5762	
==>if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5669	5762	
==>if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6259	6352	
==>if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6246	6345	
==>l' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6246	6345	
==>l' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7802	7899	
==>ruct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1107	1272	
==>b {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1107	1272	
==>b {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1107	1272	
==>b {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1920	2043	
==>on to the metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other found data to the metadata <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1389	1509	
==>{ code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1400	1520	
==>{ code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	520	619	
==>stem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	520	619	
==>stem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ver <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	520	619	
==>stem
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4671	4789	
==>} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4671	4789	
==>} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4671	4789	
==>} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4435	4548	
==>js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4435	4548	
==>js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4435	4548	
==>js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	203	348	
==>utput
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    meth <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4251	4330	
==>B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4251	4330	
==>B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	867	971	
==>ackages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	867	971	
==>ackages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10535	10632	
==>l:runperl(): 'switches' must be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	383	525	
==>b ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to o <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	383	525	
==>b ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1626	1731	
==>e = shift;
	return $self->literal_value($node) unless Scalar::Util::blessed($node->struct_equiv);

	if (my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4725	4824	
==>ache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4725	4824	
==>ache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9147	9269	
==>h {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12999	13118	
==>h {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12999	13118	
==>h {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3070	3202	
==>, do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3070	3202	
==>, do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4949	5079	
==>($got)."\n",
                       "# expected $type "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

# Che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7485	7581	
==>lf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7485	7581	
==>lf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7485	7581	
==>lf->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4926	5039	
==>) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4926	5039	
==>) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4926	5039	
==>) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $nam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18948	19041	
==>els it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18948	19041	
==>els it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickna <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20455	20563	
==>Pe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16876	16984	
==>Pe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	203	305	
==>{
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	203	305	
==>{
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	203	305	
==>{
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	182	332	
==>)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	182	332	
==>)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	182	332	
==>)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5031	5150	
==>y == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5031	5150	
==>y == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5031	5150	
==>y == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9816	9943	
==>cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9816	9943	
==>cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9816	9943	
==>cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5891	6070	
==>'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5891	6070	
==>'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5891	6070	
==>'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12500	12821	
==>!$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12500	12821	
==>!$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=e <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	639	759	
==>ount > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $fpri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4990	5102	
==>DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to ta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4990	5102	
==>DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to ta <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5491	5601	
==>_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there has to be a bette <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3269	3383	
==>_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40576	40671	
==>t even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40576	40671	
==>t even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGP <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1806	1922	
==>s);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	983	1097	
==>s);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1456	1570	
==>s);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5609	5705	
==>jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5609	5705	
==>jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5609	5705	
==>jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	288	395	
==>God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	288	395	
==>God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	288	395	
==>God.

# Naming Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Objec <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5287	5503	
==>eturn 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5287	5503	
==>eturn 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4057	4187	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4057	4187	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4057	4187	
==>he MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    : <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4351	4461	
==>e lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_config;
}

sub pu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6399	6495	
==>ain C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6399	6495	
==>ain C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1865	1992	
==>aw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3378	3496	
==>if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3378	3496	
==>if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	689	866	
==>sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	689	866	
==>sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	689	866	
==>sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	56	192	
==>se Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	56	192	
==>se Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	56	192	
==>se Carp 'confess';

our $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8819	8982	
==>nted";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8819	8982	
==>nted";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	391	539	
==>value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category = $_[0]{pair}{key}{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	531	641	
==>?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	791	901	
==>?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1063	1173	
==>?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	495	619	
==>pes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	495	619	
==>pes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	495	619	
==>pes } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3915	4046	
==>{ return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1196	1308	
==>alue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4674	4786	
==>alue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    h <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3777	3873	
==>string )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorr <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3777	3873	
==>string )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3657	3786	
==>> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3657	3786	
==>> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3657	3786	
==>> ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10981	11163	
==>scription,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1467	1633	
==>scription,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1467	1633	
==>scription,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15866	16013	
==>str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15866	16013	
==>str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15866	16013	
==>str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	43	157	
==>e - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * docum <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	43	157	
==>e - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * docum <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3439	3606	
==>(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE_BINARY
                            => sub { UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36288	36435	
==>w('get_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25788	25881	
==>ith the outside
environment at all.

A Relation::Example object has 2 main attributes (impleme <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1474	1618	
==>s );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $inst->registered_alternatives };
        $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24494	24607	
==>($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20915	21028	
==>($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->obje <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19976	20080	
==>us_ten_to_str = comb(
	fun => $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	body = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10398	10511	
==>@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19854	19949	
==>.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ir <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19854	19949	
==>.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5651	5751	
==>return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5651	5751	
==>return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6241	6341	
==>return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15271	15380	
==>rces to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18748	18857	
==>rces to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33811	33913	
==>d>), ndigit (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6100	6217	
==>('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, - <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13433	13528	
==>_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alon <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13433	13528	
==>_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12953	13070	
==>a.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12953	13070	
==>a.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12953	13070	
==>a.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11114	11241	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11114	11241	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11114	11241	
==>_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3325	3437	
==>/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3325	3437	
==>/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3325	3437	
==>/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	244	382	
==>bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result = $self->SUPER::isa(@_);
#     return $r <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	100	197	
==>:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	100	197	
==>:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	134	298	
==>PORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	134	298	
==>PORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	134	298	
==>PORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::R <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19060	19175	
==>Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,Re),F0,F1,B0,B1,E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24159	24252	
==>hat
language.  By contrast, Locale::KeyedText does no compile time binding and
will support mu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24159	24252	
==>hat
language.  By contrast, Locale::KeyedText does no compile time binding and
will support mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3235	3383	
==>me = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3235	3383	
==>me = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3235	3383	
==>me = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11752	11851	
==>ecode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NA <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11752	11851	
==>ecode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NA <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16694	16817	
==>l pmc newfrom
    .local pmc code
    .local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18585	18680	
==>of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". Se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18585	18680	
==>of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". Se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13857	13970	
==>RT/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13857	13970	
==>RT/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5710	5822	
==>pm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5710	5822	
==>pm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5710	5822	
==>pm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Run <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11433	11539	
==>^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11433	11539	
==>^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20200	20298	
==>ix:<-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsafe {
  if not -e $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3236	3340	
==>$coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3236	3340	
==>$coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3236	3340	
==>$coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	345	446	
==>();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	345	446	
==>();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5282	5435	
==>d';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $class;
}

sub create {
    my ($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2027	2128	
==>,
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2027	2128	
==>,
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1882	1983	
==>,
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1882	1983	
==>,
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8435	8531	
==>L2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9601	9704	
==>nes that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9601	9704	
==>nes that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	118	215	
==>dukt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6638	6766	
==>{;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2513	2621	
==>()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2697	2805	
==>()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...> <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1223	1388	
==>well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	603	693	
==>t;
}

## ----------------------------------------------------------------------------
## pr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	603	693	
==>t;
}

## ----------------------------------------------------------------------------
## pr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	723	844	
==>arams);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	222	354	
==>> [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20509	20604	
==>>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20509	20604	
==>>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2477	2571	
==>ule($code)> executes $code, passing the match object as a parameter, and
it should return a I<c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2477	2571	
==>ule($code)> executes $code, passing the match object as a parameter, and
it should return a I<c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4314	4481	
==>,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4855	5022	
==>,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5319	5486	
==>,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13721	13815	
==>ber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to ea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13721	13815	
==>ber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30563	30654	
==>that the returned Relation::Example has
the complement subset of the original's attributes t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	801	924	
==>does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'Relation'
            and .value.does(Relation::Heading|R <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23296	23395	
==>uire your text data to be stored in a format other than Perl
files.  Or alternately they have a comp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23296	23395	
==>uire your text data to be stored in a format other than Perl
files.  Or alternately they have a comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1377	1485	
==>'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autode <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1377	1485	
==>'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autode <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1377	1485	
==>'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1456	1563	
==>args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1456	1563	
==>args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1456	1563	
==>args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" f <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2990	3103	
==>er config revision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1862	1961	
==>o);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1862	1961	
==>o);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11120	11287	
==>$runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14162	14257	
==>o escape). The default set
of characters to encode are control chars, high-bit chars, and the
C< <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14162	14257	
==>o escape). The default set
of characters to encode are control chars, high-bit chars, and the
C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2610	2717	
==>_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2610	2717	
==>_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2610	2717	
==>_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1470	1570	
==>thod union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # T <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1470	1570	
==>thod union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # T <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1347	1443	
==>it;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15438	15598	
==>TION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15438	15598	
==>TION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15438	15598	
==>TION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29018	29127	
==>o quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29018	29127	
==>o quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	373	470	
==>o quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1739	1875	
==>0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1739	1875	
==>0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1739	1875	
==>0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    " <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15293	15417	
==>my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a better want
    #if wa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17152	17248	
==>ns 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22252	22348	
==>ns 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3752	3964	
==>e}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3752	3964	
==>e}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3752	3964	
==>e}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	740	859	
==><<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3389	3484	
==>:Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3389	3484	
==>:Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9817	9914	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `co <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9817	9914	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7827	7920	
==>POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $command_line = $self->_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14251	14407	
==>e t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $siz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14251	14407	
==>e t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $siz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14251	14407	
==>e t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1337	1431	
==>{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1337	1431	
==>{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1337	1431	
==>{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2519	2660	
==>ew;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $acc->{$_}->{allow} } keys %$acc;
        $ob <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9123	9219	
==>@union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns Lis <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9123	9219	
==>@union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns Lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	362	465	
==>ing command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	323	426	
==>ing command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	323	426	
==>ing command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16546	16647	
==>In :words {  # see 11.9
      <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'=='> <Relati <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1668	1768	
==>+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
} <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1668	1768	
==>+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15177	15292	
==>ags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2937	3036	
==>resh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2937	3036	
==>resh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2106	2260	
==>relude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2323	2477	
==>relude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # pri <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20546	20641	
==>ile( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) &&  ! exists $val->{_files} ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	535	642	
==>@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	535	642	
==>@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	535	642	
==>@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	254	364	
==>nt, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	254	364	
==>nt, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	254	364	
==>nt, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15359	15469	
==>$!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15359	15469	
==>$!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5602	5719	
==>ementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5602	5719	
==>ementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5602	5719	
==>ementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34118	34236	
==>eturn 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34118	34236	
==>eturn 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34118	34236	
==>eturn 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1352	1470	
==>_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1352	1470	
==>_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1352	1470	
==>_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9257	9368	
==>s_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9257	9368	
==>s_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9257	9368	
==>s_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9545	9663	
==>^O eq 'NetWare';
my $is_macos    = $^O eq 'MacOS';
my $is_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35726	35819	
==>t takes a single
Relation::Example in its C<$other> argument, where <$other> has the same head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37758	37851	
==>t takes a single Relation::Example
in its C<$other> argument, where <$other> has the same head <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	666	769	
==>t(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	666	769	
==>t(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	116	209	
==>a die kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Per <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1305	1496	
==>n|
            if token == '('
                new_arr = Array.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp. <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2492	2601	
==>set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2492	2601	
==>set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1663	1769	
==>gory->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1663	1769	
==>gory->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15801	15902	
==>d('dispatcher' => (symbol->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1407	1511	
==>lue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1407	1511	
==>lue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1407	1511	
==>lue)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34394	34495	
==>.  The new Relation::Example has all of the tuples of the
original (or rather, the corresponding trans <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29882	29977	
==>.  The new Relation::Example has all
of the tuples of the original (or rather, the corresponding <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7366	7464	
==>ation.

- "plain" match operators: like 'literal'.



Higher order operators take a list of match o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7116	7211	
==>ation.
- "plain" match operators: like 'literal'.

Higher order operators take a list of match o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8044	8148	
==>ie "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12037	12137	
==>ie "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12037	12137	
==>ie "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5269	5403	
==>but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5269	5403	
==>but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5269	5403	
==>but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11262	11377	
==>r('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11262	11377	
==>r('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11262	11377	
==>r('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< . <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1328	1484	
==>xs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1328	1484	
==>xs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1328	1484	
==>xs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2413	2508	
==>=> '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2413	2508	
==>=> '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2413	2508	
==>=> '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	384	492	
==>, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	384	492	
==>, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	384	492	
==>, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4403	4518	
==>unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4403	4518	
==>unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4403	4518	
==>unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2162	2291	
==>s' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2367	2496	
==>s' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2492	2621	
==>s' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($cl <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3597	3703	
==>t1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3597	3703	
==>t1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14757	14862	
==>mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11286	11423	
==>ass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11286	11423	
==>ass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11286	11423	
==>ass {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18646	18747	
==>ains the link that the user followed to the current
     page.  Most browsers pass this information as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18646	18747	
==>ains the link that the user followed to the current
     page.  Most browsers pass this information as <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	252	387	
==>{
    my $self = shift;
    $self->{family};
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	528	639	
==>rs.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	528	639	
==>rs.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2730	2851	
==>ependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3194	3315	
==>ependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3762	3869	
==>/g;
#    $file =~ s/\~/\\textasciitilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\ <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	55	153	
==>>;

our @.known_parsers;
my $parser_details = 'ParserDetails.ini';
# use 
# my constant $:parser_de <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12091	12194	
==>han Match objects.

  A set of hooks should be defined in CORE which just call back to the
  original co <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1206	1303	
==>et::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@exa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1173	1270	
==>et::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@exa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1505	1660	
==>his
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle quotes are always tried even if it were expecting a si <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17798	17897	
==>he virtual machine, input data to it, and output data from it.

You can create more than one DBMS ob <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17798	17897	
==>he virtual machine, input data to it, and output data from it.

You can create more than one DBMS ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12604	12713	
==>cro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12604	12713	
==>cro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12604	12713	
==>cro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	906	1010	
==>lter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	906	1010	
==>lter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	906	1010	
==>lter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8207	8326	
==>his is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "asserti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7931	8046	
==>his is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "asserti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3643	3751	
==>ass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3643	3751	
==>ass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3643	3751	
==>ass->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2984	3136	
==>tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2984	3136	
==>tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2984	3136	
==>tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16462	16587	
==>s safe {
        (int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9888	9981	
==>phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9888	9981	
==>phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are pe <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4948	5074	
==>carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub assert_ghc {
    my $self = shift;
    my $ghc = $self->can_run($ENV{G <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8898	9010	
==>ase, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8898	9010	
==>ase, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4950	5082	
==>umify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4950	5082	
==>umify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4950	5082	
==>umify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4471	4575	
==>->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4471	4575	
==>->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4471	4575	
==>->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_j <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2269	2402	
==>.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2269	2402	
==>.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10921	11007	
==>-----------------------------------------------------------------
Random Thoughts on Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10921	11007	
==>-----------------------------------------------------------------
Random Thoughts on Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10921	11007	
==>-----------------------------------------------------------------
Random Thoughts on Ro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1177	1310	
==>des = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtim <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	930	1049	
==>h you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	930	1049	
==>h you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1897	2000	
==>bj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1897	2000	
==>bj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1897	2000	
==>bj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Modu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8174	8305	
==>$v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8186	8317	
==>$v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7661	7767	
==>SA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7661	7767	
==>SA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7661	7767	
==>SA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cx <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1424	1531	
==>6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tes <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3871	3973	
==>ta 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3871	3973	
==>ta 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1845	1945	
==>Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1845	1945	
==>Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1845	1945	
==>Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2454	2553	
==>ached to the op tree.  The struct is used
both to return a compiled regexp, and to provide match res <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	522	656	
==>ates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'prefix', op1 => \$_[1], <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10327	10446	
==>kgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Ind <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10327	10446	
==>kgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1152	1272	
==>ue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1152	1272	
==>ue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1152	1272	
==>ue.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	764	893	
==>ew
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	746	870	
==>ew
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	746	870	
==>ew
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3545	3690	
==>efined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3545	3690	
==>efined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3545	3690	
==>efined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8320	8450	
==>im"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8320	8450	
==>im"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2182	2294	
==>ed, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2170	2282	
==>ed, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unles <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31531	31630	
==>Using the 'p' form is deprecated, but is
still allowed, so I delete its handler too.  You can use th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2735	2827	
==>lf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2735	2827	
==>lf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2735	2827	
==>lf->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6964	7085	
==>oundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6964	7085	
==>oundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$b <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3683	3787	
==>e=$pge
    mklivecd.pl takes --pge as the path of the PGE shipped with Pugs.
  --bash=$bash
    linuxrc n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9728	9837	
==>rintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9728	9837	
==>rintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9728	9837	
==>rintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	344	444	
==>s C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	344	444	
==>s C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	267	353	
==>ig->root->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	254	374	
==>tmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	254	374	
==>tmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	254	374	
==>tmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11896	12018	
==>$r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15373	15495	
==>$r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14708	14830	
==>$r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &produc <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	955	1151	
==>y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $stri <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	955	1151	
==>y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $stri <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7772	7872	
==>R)).
p5_condition_test(condi(I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modifier_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1523	1611	
==>eref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1523	1611	
==>eref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1523	1611	
==>eref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11943	12124	
==>k->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->get('$class:')->send('bles <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13835	13933	
==>turn.  The callback routine
is called with two parameters; the name of the field and a single
value <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13835	13933	
==>turn.  The callback routine
is called with two parameters; the name of the field and a single
value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7715	7818	
==>t_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7715	7818	
==>t_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7715	7818	
==>t_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	298	464	
==>from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	298	464	
==>from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	298	464	
==>from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10716	10813	
==>erer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10716	10813	
==>erer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2213	2307	
==>p->new(
			$class->build_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arit <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7526	7652	
==>?};
    }
    else {
        $results{'exit'} = _wait2exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2350	2471	
==>rray ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zo <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2350	2471	
==>rray ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3391	3565	
==>b name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertyp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3391	3565	
==>b name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertyp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3391	3565	
==>b name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7464	7573	
==>args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7464	7573	
==>args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7464	7573	
==>args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7299	7414	
==>nf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7299	7414	
==>nf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29945	30041	
==>owever, the nature of 'atom' is to match a
character, see if there's a handler installed, and cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1615	1713	
==>eref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1615	1713	
==>eref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1615	1713	
==>eref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2178	2318	
==>gname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2178	2318	
==>gname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2178	2318	
==>gname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2148	2249	
==>::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj->p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7868	7968	
==>Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a v <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7868	7968	
==>Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	678	782	
==>4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	678	782	
==>4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	678	782	
==>4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1093	1201	
==>rcumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1093	1201	
==>rcumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1093	1201	
==>rcumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	465	559	
==>t_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	426	520	
==>t_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	426	520	
==>t_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10138	10255	
==>ng to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10138	10255	
==>ng to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) } <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8744	8886	
==>/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.ch <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8744	8886	
==>/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.ch <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	239	349	
==>ead2 $set = JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	221	333	
==>6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scrip <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	221	333	
==>6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scrip <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	221	333	
==>6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21739	21838	
==>_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21739	21838	
==>_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21739	21838	
==>_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1216	1340	
==>cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1216	1340	
==>cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1216	1340	
==>cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10143	10274	
==>p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { loca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10143	10274	
==>p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { loca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10143	10274	
==>p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { loca <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2372	2503	
==>te($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effectiv <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2372	2503	
==>te($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effectiv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10667	10767	
==>section (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	211	306	
==>e sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	211	306	
==>e sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7625	7719	
==>sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7625	7719	
==>sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7625	7719	
==>sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	283	382	
==>rgs = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $l <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	283	382	
==>rgs = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $l <==
3	/Users/nnunley/pugs/util/config_h.pl	39	138	
==>ings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This file se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25858	26061	
==>= Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25858	26061	
==>= Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25858	26061	
==>= Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1160	1258	
==>($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1160	1258	
==>($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1160	1258	
==>($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4335	4432	
==>d as a hash reference, the match object returns named captures
as match objects, keyed by their na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4335	4432	
==>d as a hash reference, the match object returns named captures
as match objects, keyed by their na <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	88	181	
==>ay> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Array::pop () return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1103	1211	
==>($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1103	1211	
==>($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1103	1211	
==>($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9311	9478	
==>ber(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diag <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1431	1580	
==>ber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1431	1580	
==>ber(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2082	2196	
==>ity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2082	2196	
==>ity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2082	2196	
==>ity) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	679	792	
==>in/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    m <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	679	792	
==>in/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25374	25472	
==>s like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1282	1418	
==>e) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1282	1418	
==>e) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10457	10576	
==>ate - a "continuation" or undef
    abort - the match was stopped by a { return } or a fail(),
           and it shoul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1191	1279	
==>de();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1411	1499	
==>de();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>? <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	998	1095	
==>0 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imp <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	998	1095	
==>0 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24681	24770	
==>],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set_modifiers(E0,[],E0).
set_flag(E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1801	1905	
==>Blondie::Node::Map;
    use base qw/Blondie::Map Blondie::Node/;
}

{
    package Blondie::Thunk;
    use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3589	3688	
==>ted by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterato <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3806	3905	
==>ted by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterato <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1506	1596	
==>>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http:// <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1506	1596	
==>>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http:// <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11958	12059	
==>('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12016	12117	
==>('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5667	5766	
==>Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5667	5766	
==>Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4320	4427	
==>mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4320	4427	
==>mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4320	4427	
==>mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27920	28015	
==>cutable, such as
a threading perl, or a different version.

If you're using the F<prove> utility <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15457	15562	
==>xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15457	15562	
==>xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15457	15562	
==>xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3158	3262	
==>t $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3158	3262	
==>t $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	249	351	
==>s-smokeserv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4656	4827	
==>und
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4656	4827	
==>und
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4656	4827	
==>und
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8241	8352	
==>y @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8241	8352	
==>y @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8241	8352	
==>y @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2180	2308	
==>::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2385	2513	
==>::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2510	2638	
==>::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6487	6618	
==>se {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	98	199	
==>rammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	98	199	
==>rammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1691	1806	
==>IL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1691	1806	
==>IL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1691	1806	
==>IL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {.. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1227	1351	
==>'# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1828	1942	
==>ionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1828	1942	
==>ionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5444	5540	
==>d the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object w <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5444	5540	
==>d the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7401	7531	
==>nce methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7401	7531	
==>nce methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7401	7531	
==>nce methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3439	3551	
==>" " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3439	3551	
==>" " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3439	3551	
==>" " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	534	630	
==>limit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	534	630	
==>limit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	534	630	
==>limit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4074	4258	
==>f' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4074	4258	
==>f' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4074	4258	
==>f' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell' <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	808	939	
==>0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	808	939	
==>0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14834	14931	
==>ction)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4162	4291	
==>\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4302	4431	
==>\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1388	1501	
==>ase},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1388	1501	
==>ase},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1388	1501	
==>ase},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	380	552	
==>if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	380	552	
==>if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3998	4155	
==>data $path] )
                                                        and error($?), return;
        system( qq[tar -f $control --exclude .svn -C $path/$jibdi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5777	5899	
==>ODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	wa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2774	2874	
==>as $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2774	2874	
==>as $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1473	1727	
==>fer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1473	1727	
==>fer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%eve <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3755	3866	
==>erived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9475	9613	
==>one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        fo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2528	2666	
==>one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        fo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1360	1455	
==>course not help people running existent versions of perl5.  Perhaps
# because the challenges bei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17467	17620	
==>v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17467	17620	
==>v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17467	17620	
==>v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVER <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7754	7863	
==>in random order
    --recurse, -r           Recurse into directories on test include list
    --incude=I1,[I2, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3785	3887	
==>ntent needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3785	3887	
==>ntent needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10214	10420	
==>($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opaque $self:) returns list { 
    %:methods.keys;
}

(method get_method <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6944	7041	
==>sponse code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simpl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6944	7041	
==>sponse code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	109	244	
==>.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	109	244	
==>.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	109	244	
==>.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	131	244	
==>nstallation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
us <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	136	248	
==>nstallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
us <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	134	246	
==>nstallation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
us <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13496	13611	
==>unk = shift;

    # FIXME - ought to check if the runtime has a hash for this
    # in the future the compiler might <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	845	950	
==>PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	845	950	
==>PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2325	2467	
==>less {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2872	3014	
==>less {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3419	3561	
==>less {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2301	2403	
==>.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children - <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2301	2403	
==>.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children - <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6892	6988	
==>meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n");
}

sub p6_code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8114	8265	
==>{
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8114	8265	
==>{
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8114	8265	
==>{
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6643	6755	
==>y $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6643	6755	
==>y $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6643	6755	
==>y $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15318	15450	
==>um        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uniniti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15318	15450	
==>um        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uniniti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15318	15450	
==>um        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uniniti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2502	2653	
==>precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2707	2858	
==>precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3779	3930	
==>precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36400	36499	
==>then eliminating any result tuples that
duplicate others.  The sequence in which any two source rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40949	41048	
==>then eliminating any result tuples that
duplicate others.  The sequence in which any two source rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40563	40662	
==>then eliminating any result tuples that
duplicate others.  The sequence in which any two source rela <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49982	50203	
==>'
            ),            
            sub {
                my $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16361	16459	
==>ree spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `compleme <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16361	16459	
==>ree spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `compleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	157	276	
==>ub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	157	276	
==>ub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	157	276	
==>ub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2022	2117	
==>e if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2022	2117	
==>e if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2022	2117	
==>e if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4186	4301	
==>atch = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4186	4301	
==>atch = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	668	776	
==>$param )
        if exists $param->{P5} || exists $param->{Perl5};

    my $self = { source => $rule_source } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9778	9871	
==>succeeded, even if the return
value is undefined.

Rosetta::Model's input validation is perfor <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9778	9871	
==>succeeded, even if the return
value is undefined.

Rosetta::Model's input validation is perfor <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8625	8724	
==>ty for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8625	8724	
==>ty for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24122	24219	
==>-
  (var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

initialE(amat([] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5928	6050	
==>ame, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5928	6050	
==>ame, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5928	6050	
==>ame, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) { <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5727	5823	
==>he context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5727	5823	
==>he context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP statu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	571	664	
==>DESCRIPTION

The prelude is essentially a reference implementation of all the things the
langu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	855	983	
==>> \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10998	11093	
==>de?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10998	11093	
==>de?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1370	1509	
==>eader('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1370	1509	
==>eader('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./he <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2619	2737	
==>000';
sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc}  = 'non'    unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	568	732	
==>nted.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	568	732	
==>nted.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	568	732	
==>nted.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|e <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3557	3653	
==>Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3557	3653	
==>Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36180	36327	
==>h
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36180	36327	
==>h
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36180	36327	
==>h
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1905	2023	
==>w(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1905	2023	
==>w(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1905	2023	
==>w(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2504	2637	
==>s = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2504	2637	
==>s = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2504	2637	
==>s = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defin <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2171	2284	
==>ipt      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Rea <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2171	2284	
==>ipt      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Rea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25044	25140	
==>ple to have zero tuples.  It is also valid
for a Relation::Example to have zero attributes, thoug <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3973	4226	
==>tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my_tmp_dir,
                                    $conf->m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	334	445	
==>ssage headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	334	445	
==>ssage headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1021	1128	
==>PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1021	1128	
==>PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1021	1128	
==>PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	684	798	
==>nt(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	684	798	
==>nt(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	684	798	
==>nt(function (args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	419	518	
==>lti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	419	518	
==>lti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	419	518	
==>lti sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	84	204	
==>self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $self->add_flag('i' => sub { 0x4 });
  $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	43	144	
==>er::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $single <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	43	144	
==>er::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $single <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9208	9306	
==>()`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or n <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9208	9306	
==>()`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24520	24621	
==>ements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29072	29173	
==>ements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27948	28049	
==>ements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

Th <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11816	11928	
==>dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primitive is unsafe {
        my ( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3955	4061	
==>ath ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3955	4061	
==>ath ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/} <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2694	2872	
==>ned( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :densi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2694	2872	
==>ned( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :densi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2249	2375	
==>3 => $_[5] } }
    | IF exp block 'elsif' exp block 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1365	1454	
==>ix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1365	1454	
==>ix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1365	1454	
==>ix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20483	20639	
==>aram => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19387	19482	
==>upgrade or localize what text the user
sees, you only have to update said separate resource file <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19387	19482	
==>upgrade or localize what text the user
sees, you only have to update said separate resource file <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1144	1265	
==>le::Copy;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!";
        print <<".";
*** D <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8700	8807	
==>w(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8700	8807	
==>w(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	913	1019	
==>mport};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	913	1019	
==>mport};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	913	1019	
==>mport};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	267	379	
==>... }

# mmm, curry!
&log10<> := &log<>.assuming:base(10);

multi sub rand (; Num ?$x = 1, Num :$seed )
    retur <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1771	1866	
==>ap> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...« <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1771	1866	
==>ap> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...« <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7031	7130	
==>other_singleton_test_on_object',
   '... got the right return value from another Object singleton/cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8018	8117	
==>other_singleton_test_on_object',
   '... got the right return value from another Object singleton/cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10587	10686	
==>other_singleton_test_on_object',
   '... got the right return value from another Object singleton/cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	541	643	
==>ocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	541	643	
==>ocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	645	733	
==>er();
$Inline::Parrot::PMC::interpreter=$i;
run_bytecode($i,"loadlib.pbc");
print $msg;
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2932	3063	
==>rse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2932	3063	
==>rse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2932	3063	
==>rse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3215	3396	
==>t == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3215	3396	
==>t == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3215	3396	
==>t == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40798	40925	
==>sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40798	40925	
==>sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40798	40925	
==>sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{$this->{arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4623	4727	
==>items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4623	4727	
==>items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4623	4727	
==>items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13859	13974	
==>call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13853	13968	
==>call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1015	1107	
==>ss)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re_symbol;
our $re <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7719	7855	
==>r)\
\\n   List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	813	914	
==>n ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	901	1002	
==>n ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1227	1329	
==>returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1227	1329	
==>returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1774	1876	
==>returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1540	1656	
==>in.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1540	1656	
==>in.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1540	1656	
==>in.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1167	1280	
==>tar -f $Control -C $path/$Pms -cz .] )   and die $?;
        system( qq[tar -czf $archive $Control $Data] )      a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9456	9548	
==>rset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subs <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9456	9548	
==>rset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subs <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1959	2116	
==><start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %par <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1959	2116	
==><start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	435	567	
==>nt) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	435	567	
==>nt) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	435	567	
==>nt) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6781	6891	
==>y %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus th <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	523	619	
==>method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONT <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	523	619	
==>method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	792	917	
==>urrently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	792	917	
==>urrently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	792	917	
==>urrently supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5584	5698	
==>ssuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5584	5698	
==>ssuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5584	5698	
==>ssuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11937	12070	
==>line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11937	12070	
==>line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($ev <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10636	10740	
==>)
	pair => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::oper <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5878	6025	
==>> 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5878	6025	
==>> 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	487	598	
==>name => 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5846	5939	
==>cordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5846	5939	
==>cordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3863	3964	
==>nce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3863	3964	
==>nce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3863	3964	
==>nce_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## - <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1506	1606	
==>pport) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class L <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1506	1606	
==>pport) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class L <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28174	28262	
==>+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::swi_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3381	3486	
==>, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3381	3486	
==>, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3381	3486	
==>, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) })";
    };
  }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10195	10319	
==>]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10189	10313	
==>]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$name <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1114	1206	
==>() } }
RULE
*{'meth_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2997	3120	
==>) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2997	3120	
==>) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2997	3120	
==>) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4348	4458	
==>lag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3049	3149	
==>n::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3049	3149	
==>n::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11246	11334	
==>t::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fai <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1704	1790	
==>t::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fai <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1704	1790	
==>t::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1785	1910	
==>- (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1785	1910	
==>- (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1785	1910	
==>- (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10483	10605	
==>uant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2601	2712	
==>MonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2601	2712	
==>MonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8238	8404	
==>sfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8702	8868	
==>sfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8446	8609	
==>@$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4806	4969	
==>@$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5655	5818	
==>@$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters? look <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4560	4680	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4560	4680	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4560	4680	
==>ybe they are asking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	237	359	
==>be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	237	359	
==>be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	237	359	
==>be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3140	3265	
==>r die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Chec <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3140	3265	
==>r die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Chec <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	53	150	
==>e);

open my $fh, '>index.html';
print { $fh } <<'END';
<html>
<head>
<title>Public HTML</title>
< <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4622	4735	
==>pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pad<"paramContext">,   
            %pad<" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	808	905	
==>t the 
Cipher API operates at the byte level, not the character level, so different 
character enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	808	905	
==>t the 
Cipher API operates at the byte level, not the character level, so different 
character enc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2214	2331	
==>,  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2214	2331	
==>,  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	61	158	
==>- functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code object <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1945	2053	
==>print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1945	2053	
==>print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getl <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	770	866	
==>= Time::Piece->strptime($date, "%Y-%m-%d %H:%M:%S");
  push @commits,    $time;
  push @developer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1240	1336	
==>sic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1240	1336	
==>sic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1240	1336	
==>sic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6247	6343	
==>s returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getprin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6247	6343	
==>s returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2045	2149	
==>ed

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list wen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2045	2149	
==>ed

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list wen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2045	2149	
==>ed

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list wen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1588	1704	
==>onf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1588	1704	
==>onf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1588	1704	
==>onf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8018	8121	
==>$killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8018	8121	
==>$killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15617	15747	
==>$self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21788	21918	
==>$self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	128	236	
==>{
    my $self = shift;
    my $node = shift;

	return $node unless $self->can_reduce($node);

	if (Scalar::U <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7608	7761	
==>t happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7620	7773	
==>t happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23140	23235	
==>u
are supposed to pass in english text and they translate it, which could
produce ambiguous resu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23140	23235	
==>u
are supposed to pass in english text and they translate it, which could
produce ambiguous resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4808	4938	
==>rl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4808	4938	
==>rl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4808	4938	
==>rl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	373	475	
==>f ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	373	475	
==>f ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	373	475	
==>f ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2073	2181	
==>, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2073	2181	
==>, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2073	2181	
==>, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1566	1658	
==>lf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1566	1658	
==>lf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1566	1658	
==>lf) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCa <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2559	2668	
==>ubscriber = $?CALLER::?SELF) {
            my $subscription = Class::Events::Subscription::Named.new(:name($na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20840	20936	
==>ck-end which
I recommend above all others for production use.

Most of the other (near term) thir <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20840	20936	
==>ck-end which
I recommend above all others for production use.

Most of the other (near term) thir <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11645	11811	
==>) {
                push @{$test{failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $det <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11493	11590	
==>de environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11493	11590	
==>de environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B< <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	787	886	
==>MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	5	102	
==>1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	5	102	
==>1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing th <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3864	3974	
==>onfig{verbose};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	996	1093	
==>* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::L <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	996	1093	
==>* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1931	2026	
==>= sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1931	2026	
==>= sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1931	2026	
==>= sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH() <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6966	7072	
==>/;
    system $ghc, @_;

    die "Build failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3726	3823	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3726	3823	
==>nfix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4963	5078	
==>x( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4963	5078	
==>x( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14627	14726	
==>cter classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] range "%s-%s"

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3080	3215	
==>)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3080	3215	
==>)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3080	3215	
==>)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8453	8578	
==>se arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8453	8578	
==>se arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8453	8578	
==>se arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $coun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9868	9982	
==>eturn $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9868	9982	
==>eturn $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9868	9982	
==>eturn $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23865	23956	
==>undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23865	23956	
==>undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23865	23956	
==>undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1613	1710	
==>inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1613	1710	
==>inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1613	1710	
==>inline('(function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1862	1963	
==>fault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1862	1963	
==>fault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1862	1963	
==>fault: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7134	7237	
==>rs>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7134	7237	
==>rs>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	939	1058	
==>=> $param->{is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25241	25329	
==>, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25241	25329	
==>, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.h <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	256	364	
==>s nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	207	306	
==>s nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10532	10693	
==>s(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10532	10693	
==>s(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10532	10693	
==>s(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5617	5742	
==>local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5617	5742	
==>local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5617	5742	
==>local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16738	16844	
==>built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16738	16844	
==>built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16738	16844	
==>built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12255	12382	
==>lf->{_is_vms};

    if (defined $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1111	1250	
==>ODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1111	1250	
==>ODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1111	1250	
==>ODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	450	545	
==>ines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	450	545	
==>ines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14520	14648	
==>) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14520	14648	
==>) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3410	3504	
==>lder framework. The class itself is actually a factory for
classes which C<does> the Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3410	3504	
==>lder framework. The class itself is actually a factory for
classes which C<does> the Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5607	5701	
==>lder framework. The class itself is actually a factory for
classes which C<does> the Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19730	19865	
==>ethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19730	19865	
==>ethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19730	19865	
==>ethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21145	21236	
==>r, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant featu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21145	21236	
==>r, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant featu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34238	34329	
==>ar>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33797	33933	
==>alue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33797	33933	
==>alue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33797	33933	
==>alue::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20090	20320	
==>n $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20090	20320	
==>n $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20090	20320	
==>n $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18428	18541	
==>le is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18428	18541	
==>le is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PA <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4471	4583	
==>) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub ws {
  my ( $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1000	1127	
==>~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1000	1127	
==>~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1000	1127	
==>~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	569	678	
==>submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	569	678	
==>submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1051	1152	
==>ernation is first match (not longest). 
# note: the list in @$nodes can be modified at runtime
sub a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13303	13395	
==>todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to mos <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13361	13453	
==>todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to mos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18054	18167	
==>6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18054	18167	
==>6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18054	18167	
==>6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15258	15355	
==>ind, but it
could also be a prompt or response message for interactive systems.

If the program or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15258	15355	
==>ind, but it
could also be a prompt or response message for interactive systems.

If the program or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10167	10277	
==>y $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10167	10277	
==>y $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10167	10277	
==>y $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1152	1275	
==>b,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1152	1275	
==>b,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2182	2290	
==>XT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self->ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12001	12192	
==>roduct ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15478	15669	
==>roduct ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14813	15004	
==>roduct ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3744	3875	
==>rn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3744	3875	
==>rn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3744	3875	
==>rn this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done without hac <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1084	1238	
==>.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plu <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1084	1238	
==>.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29213	29333	
==>my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29213	29333	
==>my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29213	29333	
==>my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3533	3624	
==>(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3533	3624	
==>(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3533	3624	
==>(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5429	5538	
==>leop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to: set_fl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5255	5362	
==>leop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to: set_fl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25820	25917	
==>$self: get_attr (symbol new @:subclasses)))

=cut

$::Class->send('add_method' => (
    # method l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2839	2946	
==>q 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2839	2946	
==>q 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2839	2946	
==>q 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3572	3698	
==>e}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3572	3698	
==>e}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	311	437	
==>ormation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	311	437	
==>ormation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	176	281	
==>Package::Constants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2952	3057	
==>ined $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPe <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	686	790	
==>0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	686	790	
==>0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16025	16125	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16025	16125	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16025	16125	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8710	8807	
==>foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8710	8807	
==>foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8710	8807	
==>foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3575	3721	
==>uplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7052	7198	
==>uplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6009	6155	
==>uplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2732	2824	
==>1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2732	2824	
==>1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3079	3171	
==>1 DESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33664	33789	
==>r ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33664	33789	
==>r ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33664	33789	
==>r ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4125	4270	
==>um' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Par <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3	118	
==>ss Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has I <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3	118	
==>ss Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	141	238	
==>6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	141	238	
==>6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	141	238	
==>6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1154	1273	
==>>leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1154	1273	
==>>leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1154	1273	
==>>leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25929	26025	
==>ing> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30481	30577	
==>ing> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29456	29552	
==>ing> values duplicate each other,
or duplicate attribute names that aren't being renamed.  This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6995	7128	
==>om_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6995	7128	
==>om_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6995	7128	
==>om_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	496	610	
==>lf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	496	610	
==>lf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	496	610	
==>lf = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &ret <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4549	4685	
==>to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4941	5077	
==>to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5452	5588	
==>to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	523	657	
==>ument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	523	657	
==>ument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	523	657	
==>ument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1450	1638	
==>>val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1450	1638	
==>>val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1450	1638	
==>>val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2172	2320	
==>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2172	2320	
==>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2172	2320	
==>elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9121	9254	
==>$post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9109	9242	
==>$post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $progr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4934	5061	
==>by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will <==
3	/Users/nnunley/pugs/util/func_refact.pl	1259	1377	
==>\%ccset);
	#while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	143	239	
==>entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special m <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	143	239	
==>entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9056	9179	
==>ntime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9249	9372	
==>ntime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6278	6424	
==>word} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print ST <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7679	7790	
==>{
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	861	962	
==>utput.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a contro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	861	962	
==>utput.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a contro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	941	1042	
==>utput.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with a contro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1884	1980	
==>>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1884	1980	
==>>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1884	1980	
==>>name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SU <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6975	7082	
==>'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEn <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6975	7082	
==>'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEn <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3874	3981	
==>'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4243	4389	
==>nes with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empt <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4243	4389	
==>nes with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empt <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9647	9767	
==>o end
    islazy = 1
    pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7706	7899	
==>warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7706	7899	
==>warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7706	7899	
==>warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7475	7588	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7475	7588	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7475	7588	
==>thod () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcir <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30681	30794	
==>has all of the tuples of the
original (or rather, the corresponding transformation of each tuple), but
that any du <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35232	35345	
==>has all of the tuples of the
original (or rather, the corresponding transformation of each tuple), but
that any du <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34423	34536	
==>has all of the tuples of the
original (or rather, the corresponding transformation of each tuple), but
that any du <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1783	1915	
==>". $self->package ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my $ins <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26242	26339	
==>e any
defined and non-empty string, and each variable value can be anything at
all.  Note that whi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26242	26339	
==>e any
defined and non-empty string, and each variable value can be anything at
all.  Note that whi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4050	4151	
==>itespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, " <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22462	22561	
==>will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	75	183	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	43	151	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	75	183	
==>tation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2244	2366	
==>size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the c <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2244	2366	
==>size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3840	3952	
==>->{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	719	899	
==>apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21032	21130	
==>ed set of named attributes; all tuples in a Relation are of the same
degree, and the attribute name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25584	25682	
==>ed set of named attributes; all tuples in a Relation are of the same
degree, and the attribute name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35	143	
==>er::__object__;  

  sub class {
    my $self = shift;
    Carp::carp("class() deprecated; use family() inste <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2112	2219	
==>re} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2112	2219	
==>re} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6802	6959	
==>>config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        all <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12887	13039	
==>>config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        all <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	260	393	
==>lob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob. <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	260	393	
==>lob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11050	11152	
==>ethod of
each node in the tree.

=head2 Using the Regex

You can use the qr() method to get back a F<Re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7888	8010	
==>$pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1084	1187	
==>et $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1084	1187	
==>et $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	576	777	
==>stant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	577	778	
==>stant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17212	17329	
==>package {
    my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7161	7325	
==>/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7625	7789	
==>/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13382	13518	
==>{
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13382	13518	
==>{
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'nam <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16660	16765	
==>ift;
    my $node = shift;

    return Val->new($self->reduce($node->val));
}

package Dumper;
use base qw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5774	5918	
==>rn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5774	5918	
==>rn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8281	8426	
==>n Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this cre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8281	8426	
==>n Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this cre <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1318	1411	
==>5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5283	5416	
==>t";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5283	5416	
==>t";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5873	6006	
==>t";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7403	7541	
==>'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7596	7734	
==>'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10551	10660	
==>e, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO is primitive is unsafe is buil <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1661	1844	
==>ping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debu <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1661	1844	
==>ping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10995	11137	
==>"ARRAY";
        foreach my $prog (@{$args{progs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( - <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7507	7659	
==>nt)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     ..      safe   (Scalar, Sca <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	286	374	
==>DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	286	374	
==>DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1312	1438	
==>oad_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1312	1438	
==>oad_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	369	469	
==>entation of Roles into the model. See below for more details.
## ------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1085	1195	
==>a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1085	1195	
==>a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1085	1195	
==>a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't need to call $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1364	1456	
==>PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1364	1456	
==>PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1364	1456	
==>PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13059	13185	
==>($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13059	13185	
==>($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13059	13185	
==>($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fai <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3041	3148	
==>.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3041	3148	
==>.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16155	16258	
==>, I<can> match differently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" =~ /(\w+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13523	13647	
==>able(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13523	13647	
==>able(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13523	13647	
==>able(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	619	734	
==>le
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	619	734	
==>le
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	619	734	
==>le
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5843	5947	
==>relude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5843	5947	
==>relude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5843	5947	
==>relude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3236	3337	
==>PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3236	3337	
==>PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3236	3337	
==>PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: I <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2035	2141	
==>Content-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %ext <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2035	2141	
==>Content-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %ext <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21435	21527	
==>ndSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for'> <'('> <'var'> <Variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3446	3570	
==>};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3446	3570	
==>};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3446	3570	
==>};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3797	3899	
==>PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3797	3899	
==>PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3797	3899	
==>PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1664	1789	
==>"x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1664	1789	
==>"x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1664	1789	
==>"x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1069	1184	
==>) }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1069	1184	
==>) }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1069	1184	
==>) }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1379	1485	
==>PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1379	1485	
==>PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1379	1485	
==>PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = q <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4333	4459	
==>t go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4333	4459	
==>t go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2645	2748	
==>ed, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2645	2748	
==>ed, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2645	2748	
==>ed, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4995	5155	
==>sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- l <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4995	5155	
==>sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- l <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4697	4801	
==>n is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5891	6009	
==>)
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5891	6009	
==>)
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5891	6009	
==>)
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2163	2271	
==>_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2174	2282	
==>_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a te <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2418	2521	
==>rpreter.

=over 4

=item Thunk

Something you thunk of but haven't yet executed.

For example:

    Val( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11417	11597	
==>::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11417	11597	
==>::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11417	11597	
==>::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10248	10385	
==>() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME=' <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10248	10385	
==>() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME=' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10409	10589	
==>t "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10409	10589	
==>t "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10409	10589	
==>t "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39039	39167	
==>'add_method' => (
    # method label
        symbol->new('get_attributes'),
    # method body
        method->new(
            $: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6610	6706	
==>= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6610	6706	
==>= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2689	2796	
==>ss $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2689	2796	
==>ss $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2769	2876	
==>ss $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	601	701	
==>shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	601	701	
==>shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	601	701	
==>shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{C <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1501	1613	
==>T) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{AP <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1501	1613	
==>T) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{AP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5696	5825	
==>ASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5696	5825	
==>ASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5696	5825	
==>ASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16355	16509	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	554	654	
==>iler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	554	654	
==>iler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::C <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7979	8095	
==>( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( %app<"pInv"> );
        $ret = emit_App( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1994	2085	
==>o the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1994	2085	
==>o the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9963	10060	
==>ify()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets nume <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9963	10060	
==>ify()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets nume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6135	6254	
==>1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6135	6254	
==>1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6135	6254	
==>1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $!\n" <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7543	7666	
==>}

    if (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $depends .= ', readline -any';
    }

    my $unicode_c = '';
    if <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2441	2541	
==>a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2441	2541	
==>a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1914	2014	
==>::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1914	2014	
==>::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1914	2014	
==>::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaMod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20164	20258	
==>ant;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24716	24810	
==>ant;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23836	23955	
==>e REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is anothe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29023	29121	
==>e REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is anothe <==
3	/Users/nnunley/pugs/util/package-osx.pl	5853	5966	
==>/Perl6::Overview::Data.3pm
        /usr/local/man/man3/Perl6::Overview::File.3
        /usr/local/man/man3/Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24000	24094	
==>ty of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24000	24094	
==>ty of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25677	25774	
==>are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys bein <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30229	30326	
==>are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys bein <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29195	29292	
==>are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its keys bein <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13046	13164	
==>LTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13046	13164	
==>LTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13046	13164	
==>LTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9082	9202	
==>$n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9082	9202	
==>$n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9082	9202	
==>$n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6149	6255	
==>ject {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify;
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6149	6255	
==>ject {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21491	21590	
==>,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21491	21590	
==>,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21491	21590	
==>,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	69	169	
==>TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	69	169	
==>TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	69	169	
==>TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6118	6222	
==>ass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6118	6222	
==>ass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6118	6222	
==>ass =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	125	231	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	125	231	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	125	231	
==>iption = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15606	15723	
==>hift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15606	15723	
==>hift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15606	15723	
==>hift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use C <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6351	6444	
==>em B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$fil <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6351	6444	
==>em B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$fil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2235	2328	
==>bstrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5052	5179	
==>gated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5245	5372	
==>gated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3398	3509	
==>n;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregorian::duration;
#}

# operations <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	260	385	
==>arent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.templa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	260	385	
==>arent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.templa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1385	1485	
==>perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1443	1543	
==>perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14049	14140	
==>c_in($$) }
comb: generic_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1535	1645	
==>ash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1535	1645	
==>ash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1535	1645	
==>ash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3026	3143	
==>ributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3026	3143	
==>ributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3026	3143	
==>ributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8040	8177	
==>:CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8040	8177	
==>:CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8040	8177	
==>:CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3028	3135	
==>text.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3028	3135	
==>text.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3028	3135	
==>text.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5987	6118	
==>) {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5987	6118	
==>) {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5987	6118	
==>) {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3522	3613	
==>.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3522	3613	
==>.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3522	3613	
==>.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24468	24574	
==>!defined $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1273	1369	
==>nExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people sa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1273	1369	
==>nExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people sa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3700	3830	
==>bj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3652	3767	
==>n[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are j <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3652	3767	
==>n[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3205	3320	
==>lasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3205	3320	
==>lasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3205	3320	
==>lasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6620	6727	
==>DO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6620	6727	
==>DO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6620	6727	
==>DO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6870	7035	
==>6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< perl5 \> <p6ws>? 
    \) <p6ws>? \;
        { return { eval_perl5 => $<literal> } }
RULE
*{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	41	190	
==>rammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	41	189	
==>rammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2296	2422	
==>tribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2296	2422	
==>tribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2296	2422	
==>tribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14881	15006	
==>onstant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14881	15006	
==>onstant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14881	15006	
==>onstant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6805	6895	
==>ke_method($_resolve));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6805	6895	
==>ke_method($_resolve));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6805	6895	
==>ke_method($_resolve));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	797	921	
==>tly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	797	921	
==>tly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	797	921	
==>tly supported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8250	8355	
==>t>?
}
rule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule D <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7479	7575	
==>dir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7479	7575	
==>dir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21133	21247	
==>iled}}, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed}};
            (my $txt, $canon) = _c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2168	2267	
==>set($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2168	2267	
==>set($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub * <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	962	1063	
==>:rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1099	1200	
==>:rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	428	555	
==>s a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	428	555	
==>s a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	428	555	
==>s a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2495	2609	
==>CH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2495	2609	
==>CH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2495	2609	
==>CH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	198	312	
==>r_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	198	312	
==>r_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	198	312	
==>r_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19446	19768	
==>ther->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19446	19768	
==>ther->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19446	19768	
==>ther->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4145	4241	
==>op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(get_data($_[0] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	517	611	
==>cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3404	3511	
==>ice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3404	3511	
==>ice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3404	3511	
==>ice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8393	8488	
==>Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builder::Out <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	593	686	
==>Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	593	686	
==>Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder::Out <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4802	4905	
==>o(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4860	4963	
==>o(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6252	6351	
==>nals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6252	6351	
==>nals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6252	6351	
==>nals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1581	1704	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1581	1704	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1581	1704	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4751	4855	
==>tch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4751	4855	
==>tch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4751	4855	
==>tch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2177	2303	
==>);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4798	4890	
==>1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4938	5030	
==>1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2006	2159	
==>f->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the tem <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3536	3684	
==>f->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the tem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5564	5690	
==>{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2436	2534	
==>COPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2436	2534	
==>COPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2436	2534	
==>COPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_-> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5391	5516	
==>tibility on systems where C<glob()> doesn't work right.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir D <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2158	2256	
==>other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2158	2256	
==>other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20186	20320	
==>d($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20186	20320	
==>d($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20186	20320	
==>d($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	368	487	
==>xy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	368	487	
==>xy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	368	487	
==>xy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2819	2922	
==>ame = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2819	2922	
==>ame = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2819	2922	
==>ame = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13771	13901	
==>$self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13771	13901	
==>$self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13771	13901	
==>$self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pop <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31323	31417	
==>ose for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35873	35967	
==>ose for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35091	35185	
==>ose for which the the
Bool-returning anonymous function in the argument C<$predicate> returns
T <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	192	300	
==>Int $.hour;
has Int $.minute;
has $.second;

# do subs that get declared first "win" the MMD war?
multi sub d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18362	18457	
==>ons.  Moreover, these data structures are in exactly the right input
format for Node.new(), by w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18362	18457	
==>ons.  Moreover, these data structures are in exactly the right input
format for Node.new(), by w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12848	12982	
==>-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12848	12982	
==>-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12848	12982	
==>-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	445	567	
==>', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::ad <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1047	1156	
==>a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4525	4634	
==>a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3691	3813	
==>oken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3691	3813	
==>oken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3691	3813	
==>oken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6035	6157	
==>infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6035	6157	
==>infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14533	14646	
==>pic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reas <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14533	14646	
==>pic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7806	7915	
==>ast->type, ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8051	8187	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8051	8187	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8051	8187	
==>thod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            ret <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9945	10127	
==>t{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skipped: $test{skip_reason}")
                    if $test{skipped};
                push(@m <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2467	2600	
==>sion; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl_version";
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3426	3557	
==>sion; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl_version";
    } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2236	2363	
==>{ "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2236	2363	
==>{ "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1193	1301	
==>} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DynamicScoping - a base class (probably a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6124	6230	
==>.*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5914	6017	
==>.*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	142	546	
==>Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	142	546	
==>Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22911	23028	
==>cut

$::Class->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1552	1643	
==>pile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1552	1643	
==>pile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3243	3353	
==>es([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3243	3353	
==>es([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3243	3353	
==>es([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15441	15568	
==>tr $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "T <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15441	15568	
==>tr $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3897	4050	
==>m'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3897	4050	
==>m'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3897	4050	
==>m'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3400	3570	
==>$rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3540	3710	
==>$rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4274	4391	
==>) {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4274	4391	
==>) {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4274	4391	
==>) {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self.isa("Array") {
    any(@$self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7150	7261	
==>self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7150	7261	
==>self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7150	7261	
==>self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9838	9970	
==>given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9838	9970	
==>given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9838	9970	
==>given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7235	7344	
==>x->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7235	7344	
==>x->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7235	7344	
==>x->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use cl <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2763	2915	
==>e
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2763	2915	
==>e
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3346	3449	
==>{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ } @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9426	9513	
==>{ Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3251	3338	
==>{ Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11477	11603	
==>= each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11477	11603	
==>= each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11477	11603	
==>= each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7668	7787	
==>(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(870 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7668	7787	
==>(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(870 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11149	11249	
==>F<Regexp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() method of ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8579	8690	
==>.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8579	8690	
==>.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8579	8690	
==>.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10579	10678	
==>when it has reached the end of the tree;
it will then reset itself, and will start from the beginnin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5413	5619	
==>arent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5413	5619	
==>arent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14905	15062	
==>'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15184	15341	
==>'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9523	9615	
==>[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STDERR "hi\n";
  m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19372	19482	
==>a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intended interface <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23924	24034	
==>a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intended interface <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22440	22550	
==>a row and each
relation/tuple attribute is a column, but it is not the same as a table.

The intended interface <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	571	683	
==>'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	571	683	
==>'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5056	5153	
==>e is a major abstraction violation.
# Need to figure out positional constructors.  At least it's i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11504	11623	
==>hers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14981	15100	
==>hers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35207	35301	
==>lti-method is a generic binary relational operator that is identical
to C<join> except that thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39757	39851	
==>lti-method is a generic binary relational operator that is identical
to C<join> except that thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39317	39411	
==>lti-method is a generic binary relational operator that is identical
to C<join> except that thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	870	975	
==>:Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now act <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	870	975	
==>:Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now act <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	870	975	
==>:Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now act <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6112	6237	
==>ame as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6112	6237	
==>ame as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6112	6237	
==>ame as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4927	5148	
==>=> $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4927	5148	
==>=> $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4927	5148	
==>=> $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	690	800	
==>ctable.
# By requiring far more effort than was hoped, it became uninteresting
# as a perl6 bootstrap path, whi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3095	3201	
==>path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3095	3201	
==>path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3272	3397	
==>10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3272	3397	
==>10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3272	3397	
==>10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5149	5302	
==>e;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5149	5302	
==>e;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5149	5302	
==>e;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13157	13272	
==>xpanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9343	9458	
==>xpanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10179	10294	
==>xpanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	730	1125	
==>6 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	730	1125	
==>6 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	798	915	
==>iso duration
multi method duration( Str $iso8601 ) returns Duration::Gregorian is export {

    # FIXME - missing XXXX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9076	9194	
==>urn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9076	9194	
==>urn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requir <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	603	698	
==>bound public and private methods, including the signatures of these
methods

=item *

unbound pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3320	3422	
==>eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3320	3422	
==>eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3320	3422	
==>eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1911	2038	
==>es {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2583	2668	
==>/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.comp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2583	2668	
==>/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6465	6577	
==>ix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6465	6577	
==>ix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6465	6577	
==>ix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8397	8559	
==>block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4757	4919	
==>block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5606	5768	
==>block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2937	3051	
==>_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2937	3051	
==>_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4461	4575	
==>_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7339	7507	
==>does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7339	7507	
==>does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7339	7507	
==>does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5010	5199	
==>ef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5022	5211	
==>ef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/() <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10271	10428	
==>AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21793	22027	
==>)));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $ni <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41797	42031	
==>)));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $ni <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44700	44934	
==>)));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $ni <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1155	1261	
==>my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1155	1261	
==>my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1155	1261	
==>my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15885	15981	
==>e the time specified in this field,
then the server will return a C<304 Not Modified> response in <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15885	15981	
==>e the time specified in this field,
then the server will return a C<304 Not Modified> response in <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2086	2214	
==>g !! $.count }
        multi method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi method as <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17019	17115	
==>d to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17019	17115	
==>d to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16195	16471	
==>ray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16195	16471	
==>ray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16195	16471	
==>ray->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7350	7484	
==>hod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7350	7484	
==>hod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	247	362	
==>ass->isa('opaque'))
        || confess "C3 only accepts classes";
    bless { class  => $klass } => $class;
}

sub l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1203	1324	
==>n Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1203	1324	
==>n Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1203	1324	
==>n Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11245	11446	
==>paque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11245	11446	
==>paque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11245	11446	
==>paque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16189	16428	
==>'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16468	16707	
==>'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	454	554	
==>nless ($fh) {
		XML::SAX.do_warn("could not open $file in $dir\n");
		return $class;
	}

	@.known_par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7713	7818	
==>amed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9641	9746	
==>amed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7701	7806	
==>amed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5862	5966	
==>$.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5862	5966	
==>$.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	123	232	
==>ct yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_optio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	123	232	
==>ct yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_optio <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6260	6342	
==>|Method|Submethod|Macro|Rule|Block|Bare|Parametric)\z/) {
	my($name,$argl,$f,$lval) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16736	16833	
==>no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16736	16833	
==>no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8465	8557	
==>S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» --> Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	907	1009	
==>, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implement <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	907	1009	
==>, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implement <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	907	1009	
==>, this
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2136	2238	
==>) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2136	2238	
==>) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2136	2238	
==>) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11472	11673	
==>nterface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'pers <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11472	11673	
==>nterface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'pers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12368	12477	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12368	12477	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12368	12477	
==>Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1319	1438	
==>th;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        re <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1319	1438	
==>th;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8032	8147	
==>) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $key = "" . $key;
    if (exis <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1146	1250	
==>recedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Mat <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12408	12504	
==>the element in the recurrence that is closest to the parameter.
If both previous and next element <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12408	12504	
==>the element in the recurrence that is closest to the parameter.
If both previous and next element <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	992	1108	
==>'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	992	1108	
==>'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7229	7350	
==>]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7229	7350	
==>]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7229	7350	
==>]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @I <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14539	14658	
==>.name()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.n <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	199	310	
==>ts : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	199	310	
==>ts : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	985	1123	
==>n_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	996	1134	
==>n_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        ca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	731	834	
==>se 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9672	9783	
==>($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9672	9783	
==>($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9672	9783	
==>($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21235	21478	
==>lar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21235	21478	
==>lar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21235	21478	
==>lar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVER <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6260	6362	
==>n we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6260	6362	
==>n we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	964	1058	
==>rray::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34132	34225	
==>e invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38682	38775	
==>e invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38143	38236	
==>e invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidiffe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4803	4916	
==>>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handle <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4803	4916	
==>>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4353	4448	
==>------------------------------------------------------------
## BOOTSTRAPPING Roles
## --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4376	4471	
==>-------------------------------------
## BOOTSTRAPPING Roles
## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4399	4494	
==>--------------
## BOOTSTRAPPING Roles
## ------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4993	5099	
==>);
	}

	sub simplify_type {
		my $self = shift;
		my $type = shift;
		while (Scalar::Util::blessed($type) a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1182	1278	
==>:Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1182	1278	
==>:Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1700	1817	
==>stance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1700	1817	
==>stance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1700	1817	
==>stance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	440	567	
==>x benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	537	664	
==>x benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $matc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22743	22936	
==>at STDOUT =\n"
              . "@" . "<" x ($max_namelen - 1)
              . "  @>> @>>>> @>>>> @>>> ^##.##%  "
              . "^" . "<" x ($list_len - 1) . "\n"
              . '{ $Curtest->{ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5187	5284	
==>ed) by this module:

=over 3

=item get($url)

The get() function will fetch the document identifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5187	5284	
==>ed) by this module:

=over 3

=item get($url)

The get() function will fetch the document identifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8382	8520	
==>else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8382	8520	
==>else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8382	8520	
==>else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8088	8250	
==>lock is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4448	4610	
==>lock is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5297	5459	
==>lock is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( pre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1203	1295	
==>ad1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1203	1295	
==>ad1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	512	632	
==>tr $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	512	632	
==>tr $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	512	632	
==>tr $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9167	9345	
==>th,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9167	9345	
==>th,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9167	9345	
==>th,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	307	406	
==>urpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	307	406	
==>urpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	307	406	
==>urpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11219	11322	
==>s.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11219	11322	
==>s.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11219	11322	
==>s.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1980	2130	
==>= File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3510	3655	
==>= File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### e <==
3	/Users/nnunley/pugs/util/importgraph.pl	2562	2677	
==>ned $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1475	1586	
==>xps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1475	1586	
==>xps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1475	1586	
==>xps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5352	5459	
==>$jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5352	5459	
==>$jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5352	5459	
==>$jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set("pr <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3739	3843	
==>f->get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_timing}{star <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	68	162	
==>l6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	68	162	
==>l6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

* <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5322	5425	
==>$pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	855	945	
==>op-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Sim <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	855	945	
==>op-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Sim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1721	1831	
==>n, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1721	1831	
==>n, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1721	1831	
==>n, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11852	12030	
==>elf;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11852	12030	
==>elf;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11852	12030	
==>elf;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1889	2008	
==>e ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1889	2008	
==>e ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4120	4228	
==>lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2362	2474	
==>\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2579	2691	
==>\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5737	5880	
==>ys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6586	6729	
==>ys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($li <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29402	29493	
==>cant
Relation::Example attribute names, or any C<$mapping> values duplicate each other,
or d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1581	1719	
==>:Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1581	1719	
==>:Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "un <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1413	1512	
==>ta.  You can also configure how the tests are to
be run.

The interface is currently incomplete.  I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22364	22531	
==>lem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22364	22531	
==>lem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22364	22531	
==>lem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19716	19816	
==>.

Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is de <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24268	24368	
==>.

Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6534	6768	
==>b {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6534	6768	
==>b {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6534	6768	
==>b {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20937	21039	
==>_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20937	21039	
==>_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20937	21039	
==>_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4623	4727	
==>ts the current test plan or throws an exception if there's already a plan in
place.  You have two options <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4623	4727	
==>ts the current test plan or throws an exception if there's already a plan in
place.  You have two options <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6147	6251	
==>ts the current test plan or throws an exception if there's already a plan in
place.  You have two options <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12251	12386	
==>ub min {
    my $self = shift;
    $self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2872	2972	
==>>get_y, 6, '... got the right y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10964	11081	
==>ody' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10964	11081	
==>ody' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10964	11081	
==>ody' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9266	9356	
==>_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3091	3181	
==>_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3918	4044	
==>slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simples <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3918	4044	
==>slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simples <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3918	4044	
==>slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simples <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	603	704	
==>( Perl::Type );

type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy;

# in fact, maybe the following synt <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12824	12922	
==>oding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12824	12922	
==>oding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	740	869	
==>ts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	740	869	
==>ts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	740	869	
==>ts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1095	1199	
==>med args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1095	1199	
==>med args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1095	1199	
==>med args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional ar <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13113	13234	
==>ate a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Creat <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13113	13234	
==>ate a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16815	17011	
==>ms->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16815	17011	
==>ms->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16815	17011	
==>ms->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	540	638	
==>O - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	540	638	
==>O - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	540	638	
==>O - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	341	446	
==>{ "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	341	446	
==>{ "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	341	446	
==>{ "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4186	4290	
==>ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4186	4290	
==>ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4186	4290	
==>ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1639	1750	
==>UILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5116	5227	
==>UILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4046	4157	
==>UILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3242	3390	
==>$tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3242	3390	
==>$tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	321	440	
==>urns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4140	4309	
==>) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4140	4309	
==>) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4140	4309	
==>) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6456	6557	
==>// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6456	6557	
==>// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6456	6557	
==>// End of initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	49	151	
==>gex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	49	151	
==>gex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	49	151	
==>gex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13986	14107	
==>x:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13986	14107	
==>x:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13986	14107	
==>x:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34930	35049	
==>f for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34930	35049	
==>f for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34930	35049	
==>f for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	654	791	
==>in an upper scope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2802	2907	
==>$term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2790	2895	
==>$term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $qua <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2137	2244	
==>>perl_version_from($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4092	4189	
==>ew( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4092	4189	
==>ew( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	799	902	
==>er::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	799	902	
==>er::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stm <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	216	311	
==>'Object::Accessor';

=head2 $set = JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

sub new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	814	943	
==>' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	814	943	
==>' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	814	943	
==>' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12283	12428	
==>ate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12283	12428	
==>ate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12283	12428	
==>ate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1511	1618	
==>infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1511	1618	
==>infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1511	1618	
==>infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6507	6602	
==>tion of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6507	6602	
==>tion of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6507	6602	
==>tion of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2373	2467	
==>se v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2373	2467	
==>se v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'re <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	276	397	
==>because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The plac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	276	397	
==>because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The plac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	643	751	
==>the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	643	751	
==>the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	643	751	
==>the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	793	909	
==>!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	793	909	
==>!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	793	909	
==>!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6113	6230	
==>$s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6113	6230	
==>$s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6113	6230	
==>$s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2422	2522	
==>s), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rece <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2422	2522	
==>s), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2502	2602	
==>s), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $rece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13173	13272	
==>MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13173	13272	
==>MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13173	13272	
==>MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10763	10858	
==>a multi-valued field. If the $value is undefined or not
given, then that header field will remai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10763	10858	
==>a multi-valued field. If the $value is undefined or not
given, then that header field will remai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5391	5519	
==>olve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5391	5519	
==>olve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5391	5519	
==>olve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15577	15715	
==>Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15577	15715	
==>Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15577	15715	
==>Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3255	3387	
==>t; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3255	3387	
==>t; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3255	3387	
==>t; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11413	11504	
==>Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-We <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11413	11504	
==>Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-We <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9021	9176	
==>>{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5381	5536	
==>>{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6230	6385	
==>>{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10130	10274	
==>binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6471	6615	
==>binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7320	7464	
==>binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ar <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3889	4019	
==>t(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i=0;i<=r->npare <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12877	12971	
==>nicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12877	12971	
==>nicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	199	326	
==>odel can be experimented
# on without loosing this code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23768	23862	
==>etta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23768	23862	
==>etta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosett <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10493	10621	
==>e $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10493	10621	
==>e $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7128	7224	
==>sigh* this breaks under taint, but open -| is unportable.
    my $line = $self->_command_line($fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17377	17475	
==>pecific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17377	17475	
==>pecific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17377	17475	
==>pecific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3625	3721	
==>coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3625	3721	
==>coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3625	3721	
==>coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10943	11085	
==>domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Boo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10943	11085	
==>domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1440	1534	
==>NV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1420	1511	
==>NV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <an <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6467	6547	
==>mt_prim('bs_infix_decl','\s*multi\s+(infix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:loos <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4727	4846	
==>'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4727	4846	
==>'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1633	1752	
==>'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	106	219	
==>w(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	442	548	
==>are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * ov <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	442	548	
==>are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * ov <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5500	5608	
==>)) if $cc;
    return $S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler(' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4149	4232	
==>ce::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Inter <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4149	4232	
==>ce::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9781	9882	
==>o,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9781	9882	
==>o,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9781	9882	
==>o,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10319	10466	
==>nner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10319	10466	
==>nner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10319	10466	
==>nner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25932	26029	
==>tions can only work if called with ampersands, and only if
the parser object is the first value in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7124	7218	
==>ule operators



Internal rule operators share a common API, which permits the intercommunicati <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6881	6973	
==>ule operators

Internal rule operators share a common API, which permits the intercommunicati <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	346	462	
==>'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP suppor <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	381	495	
==>'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP suppor <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16455	16553	
==>ub { $_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (map{p6_perl6_objects_from_wh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3248	3335	
==>augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3133	3218	
==>augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2299	2418	
==>|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2299	2418	
==>|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2299	2418	
==>|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expressio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3799	3904	
==>lues.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7276	7381	
==>lues.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.value <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37388	37483	
==>attribute->new('%:private_methods' => 'hash')));
$::Class->send('add_attribute', (symbol->new('% <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15610	15706	
==>sion>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> < <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3329	3422	
==>head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <s <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3329	3422	
==>head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8235	8345	
==>rclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8235	8345	
==>rclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8235	8345	
==>rclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15624	15746	
==>of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucke <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15624	15746	
==>of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucke <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2472	2589	
==>, "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1254	1399	
==>_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optio <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1526	1653	
==>ale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1526	1653	
==>ale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	802	922	
==>ft) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	802	922	
==>ft) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	802	922	
==>ft) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28999	29098	
==>}
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28999	29098	
==>}
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28999	29098	
==>}
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12	116	
==>xp::Parser;

$VERSION = '0.21';

use 5.006;
use Carp qw( carp croak );
use base 'Exporter';
use strict;
u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7535	7633	
==>at there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7535	7633	
==>at there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	175	301	
==>', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descript <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	175	301	
==>', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descript <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8502	8595	
==>(opaque $self:) (symbol $label)) returns method
    ((($self: get_attr (symbol new (%:methods) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3585	3690	
==>o.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3585	3690	
==>o.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3665	3770	
==>o.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test shou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1181	1286	
==>& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - cre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1181	1286	
==>& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - cre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1181	1286	
==>& !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1404	1498	
==>d_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1404	1498	
==>d_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1404	1498	
==>d_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4935	5056	
==>or'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with'>
    | <'default' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	898	1010	
==>diate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1104	1216	
==>diate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8056	8232	
==>:Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$pref <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5474	5614	
==>e;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5667	5807	
==>e;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $mat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5188	5285	
==>.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5188	5285	
==>.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6712	6809	
==>.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21950	22079	
==>$::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21950	22079	
==>$::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21950	22079	
==>$::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5257	5361	
==>info) unless $no_designdocs;

# Generating index.html
my @dirs = sort keys %{$index->{_dirs}};
my $index_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2894	2991	
==>ew( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2894	2991	
==>ew( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14424	14535	
==>$c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().map:{
            %attrs{$_.m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7845	7948	
==>$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7833	7936	
==>$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13912	14062	
==>elf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13912	14062	
==>elf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13912	14062	
==>elf->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5439	5637	
==>ub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # wha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5439	5637	
==>ub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # wha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5439	5637	
==>ub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # wha <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5823	5920	
==>d1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
par <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5823	5920	
==>d1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
par <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10712	10817	
==>eserv's
    README</a> for details.
  </p>

  <p>
    Note that old smoke reports are automatically delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40563	40690	
==>rn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40563	40690	
==>rn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40563	40690	
==>rn pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1580	1706	
==>nt(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<=== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1580	1706	
==>nt(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<=== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1580	1706	
==>nt(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<=== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2389	2531	
==>->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2389	2531	
==>->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2389	2531	
==>->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11926	12055	
==>line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11926	12055	
==>line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	715	811	
==>die::Reducer::DuplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS

    use Blon <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3570	3682	
==>lags =~ "POK";

		die "what type is $node ($flags)?";
	}

	sub reduce_sym {
		my $self = shift;
		my $sym = shift <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7282	7380	
==>e {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7282	7380	
==>e {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4709	4848	
==>($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4709	4848	
==>($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.clo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19805	19908	
==>s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2214	2347	
==>->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2143	2273	
==>->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort <==
3	/Users/nnunley/pugs/util/testgraph.pl	1509	1628	
==>TAP::Model::File::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17554	17675	
==>, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	761	866	
==>ere", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, t <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	761	866	
==>ere", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	456	585	
==>rams<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	456	585	
==>rams<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ( <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4768	4874	
==>length $lines;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with error code ".($?>>8) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	560	666	
==>.0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Ye <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	560	666	
==>.0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Ye <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23969	24063	
==>bject, whose Heading and
Body attributes are set respectively from the optional named parameter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28521	28615	
==>bject, whose Heading and
Body attributes are set respectively from the optional named parameter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27352	27446	
==>bject, whose Heading and
Body attributes are set respectively from the optional named parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	499	628	
==>tant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	499	628	
==>tant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	499	628	
==>tant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1829	1938	
==>ion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1829	1938	
==>ion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1829	1938	
==>ion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5661	5780	
==>@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5661	5780	
==>@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5661	5780	
==>@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  requir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3328	3449	
==>ss);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3328	3449	
==>ss);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3328	3449	
==>ss);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    e <==
3	/Users/nnunley/pugs/util/build_pugs.pl	186	287	
==>uildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'inc';
use <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1048	1138	
==>h full bidirectional functionality.

The complementary functions are emulated using iterati <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1048	1138	
==>h full bidirectional functionality.

The complementary functions are emulated using iterati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2334	2431	
==>ge

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2334	2431	
==>ge

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2334	2431	
==>ge

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	751	887	
==>$code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	744	880	
==>$code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	55	153	
==>b (*@args) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitung
	r <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	56	137	
==>l/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm"
package Module::Insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5382	5482	
==>ody ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5382	5482	
==>ody ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5382	5482	
==>ody ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4273	4381	
==>return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4273	4381	
==>return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4273	4381	
==>return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	158	264	
==>pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	158	264	
==>pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	158	264	
==>pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	642	742	
==>, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	642	742	
==>, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	281	390	
==>d or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	281	390	
==>d or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	281	390	
==>d or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3110	3225	
==>b expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3110	3225	
==>b expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3110	3225	
==>b expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run: <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2227	2343	
==>== 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2, <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2227	2343	
==>== 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	183	284	
==>(1,2,3); print "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2877	2979	
==>_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2877	2979	
==>_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2877	2979	
==>_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10192	10355	
==>ity => 3,
        name => '&ternary:<?? !!>',
        body => sub {
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity => 3,
        name => '&p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11751	11868	
==>ntent
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xs <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11751	11868	
==>ntent
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4550	4648	
==>x:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4550	4648	
==>x:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4550	4648	
==>x:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18350	18443	
==>x0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18350	18443	
==>x0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18350	18443	
==>x0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1532	1638	
==>supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1532	1638	
==>supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1532	1638	
==>supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means store([Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	96	289	
==>inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	96	289	
==>inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	96	289	
==>inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2121	2236	
==>continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subnam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2121	2236	
==>continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subnam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2121	2236	
==>continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subnam <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10521	10637	
==>aversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do somet <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10521	10637	
==>aversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do somet <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7477	7579	
==>ter_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::an <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15819	15915	
==>le Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modif <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15819	15915	
==>le Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modif <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13552	13673	
==>e goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14014	14113	
==>d );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14014	14113	
==>d );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6525	6638	
==>$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6525	6638	
==>$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6525	6638	
==>$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3327	3444	
==>ype>).add_children(
                Tree.new(:node<Package>).add_children(
                    Tree.new(:node<Module>) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	422	532	
==>s"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	422	532	
==>s"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6268	6446	
==>($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5776	5954	
==>($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10336	10455	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10615	10734	
==>k->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3248	3342	
==>ine_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_equiv->moniker;
	my <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	345	472	
==>pace) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $segi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9605	9701	
==>that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inval <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9605	9701	
==>that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inval <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	264	382	
==>b (; Num ?$x = $CALLER::_, :$base)
            returns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	560	657	
==>t }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	560	657	
==>t }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () retur <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23974	24103	
==>served>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32936	33033	
==>A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32936	33033	
==>A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14509	14647	
==>method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14509	14647	
==>method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14509	14647	
==>method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	492	595	
==>::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	492	595	
==>::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	492	595	
==>::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2884	2995	
==>est_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Good <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2884	2995	
==>est_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Good <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2964	3075	
==>est_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Good <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3550	3793	
==>");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3550	3793	
==>");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6238	6341	
==>&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6238	6341	
==>&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6238	6341	
==>&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4423	4526	
==>e');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4423	4526	
==>e');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4423	4526	
==>e');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17301	17442	
==>_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17301	17442	
==>_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<re <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3781	3879	
==>w $I0
    store_global "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpres <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2310	2414	
==>push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2310	2414	
==>push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5783	5919	
==>cause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5783	5919	
==>cause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5783	5919	
==>cause else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13356	13478	
==>d = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13350	13472	
==>d = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	338	464	
==>H { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugi <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	338	464	
==>H { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5699	5812	
==>ata::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5699	5812	
==>ata::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6289	6402	
==>ata::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	834	957	
==>start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	834	957	
==>start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20184	20278	
==>= CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6196	6326	
==>ar regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6196	6326	
==>ar regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6196	6326	
==>ar regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2685	2781	
==>"~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2685	2781	
==>"~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2685	2781	
==>"~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1988	2098	
==>bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1988	2098	
==>bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2395	2484	
==>l5::emit('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Grammar::Rule::rule>' ));
    re <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1557	1658	
==>into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1557	1658	
==>into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::C <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45272	45368	
==>nd('add_attribute', (symbol->new('$:name')      => attribute->new('$:name'      => 'str')));
$::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	230	349	
==>elf = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	230	349	
==>elf = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	230	349	
==>elf = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	584	687	
==>g{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	584	687	
==>g{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	584	687	
==>g{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $a <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20695	20798	
==>.*/ glob ioctl link listen 
# lstat mkdir open opendir pipe print printf read readdir readline
# readlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2522	2680	
==>ression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2522	2680	
==>ression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2522	2680	
==>ression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6093	6224	
==>_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6093	6224	
==>_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6093	6224	
==>_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

cla <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35631	35723	
==>rsion of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40181	40273	
==>rsion of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1504	1630	
==>erclasses,
                $:superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_at <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4900	4994	
==>g::Tiny objects. These
methods can be called with the following syntax:

  $config<read>('confi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4900	4994	
==>g::Tiny objects. These
methods can be called with the following syntax:

  $config<read>('confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11249	11485	
==>ems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11249	11485	
==>ems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11249	11485	
==>ems => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1297	1394	
==>pying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternatio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1297	1394	
==>pying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternatio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3498	3588	
==>my $matchObjFrom, my $matchObjPos) = Parser::Rule::Match::newfrom($matchObj, 0);
  my $posi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13376	13492	
==>pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13376	13492	
==>pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1347	1449	
==>head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulation tools.. this is too muc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	754	858	
==>alues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	754	858	
==>alues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	754	858	
==>alues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 200 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	709	899	
==>t> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	709	899	
==>t> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15221	15322	
==>Expression :words {  # see 11.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8215	8316	
==>span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8215	8316	
==>span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19255	19350	
==>some weird error.
This should never happen.  Please contact the author immediately.
Here's the e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4816	4929	
==>d1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4816	4929	
==>d1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7013	7126	
==>d1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=it <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1757	1871	
==>pect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $l <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1757	1871	
==>pect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1837	1951	
==>pect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3176	3268	
==>ce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3176	3268	
==>ce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3176	3268	
==>ce_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32504	32597	
==>ator Class

While a Translator object stores some attributes for configuration, its
main purpo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32504	32597	
==>ator Class

While a Translator object stores some attributes for configuration, its
main purpo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30131	30225	
==>xt associated with the
Message; this user string may also contain variable names that correspon <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30131	30225	
==>xt associated with the
Message; this user string may also contain variable names that correspon <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29385	29510	
==>_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3991	4101	
==>top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2944	3051	
==>top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19305	19397	
==>ix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19305	19397	
==>ix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19305	19397	
==>ix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	802	898	
==>eclare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper suppor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	802	898	
==>eclare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper suppor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	802	898	
==>eclare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper suppor <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	454	569	
==>itory metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check if it is already install <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4955	5054	
==>()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4955	5054	
==>()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1457	1562	
==>bly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1457	1562	
==>bly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1457	1562	
==>bly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25593	25705	
==>ot ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <CharacterEscape>
    | <CharacterClassEsca <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13592	13689	
==>pected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable ran <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13592	13689	
==>pected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable ran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1068	1169	
==>g($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1068	1169	
==>g($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1068	1169	
==>g($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3286	3411	
==>ching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3286	3411	
==>ching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3286	3411	
==>ching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5001	5138	
==>ect $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5001	5138	
==>ect $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.spa <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3797	3971	
==>-3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3797	3971	
==>-3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	989	1092	
==>ting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	989	1092	
==>ting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	989	1092	
==>ting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2134	2261	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2134	2261	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2134	2261	
==>able')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $labe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6260	6387	
==>hen List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6260	6387	
==>hen List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Conte <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	84	187	
==>ike Bags, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	702	834	
==>ss();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	702	834	
==>ss();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	702	834	
==>ss();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1076	1171	
==>_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1076	1171	
==>_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1076	1171	
==>_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14273	14407	
==>_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14273	14407	
==>_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14273	14407	
==>_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8417	8544	
==>node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8124	8244	
==>node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	304	398	
==>ken->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_tok <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3568	3699	
==>>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | retu <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3568	3699	
==>>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	463	567	
==>idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	463	567	
==>idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	463	567	
==>idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6082	6189	
==>unc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6082	6189	
==>unc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6082	6189	
==>unc => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4712	4830	
==>e available list
    ### XXX temp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisntall metada <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2718	2832	
==>niverse );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    retu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2718	2832	
==>niverse );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11348	11571	
==>lock ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7630	7853	
==>lock ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8464	8687	
==>lock ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1268	1376	
==>aque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1268	1376	
==>aque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1268	1376	
==>aque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq ' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7235	7352	
==>465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(850 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7235	7352	
==>465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(850 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1544	1645	
==>=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26766	26876	
==>es>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36779	36874	
==>ld be matched, this method returns undef.  This method could be
considered to implement the 'mai <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36779	36874	
==>ld be matched, this method returns undef.  This method could be
considered to implement the 'mai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	377	506	
==>$S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9795	9924	
==>$S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1179	1274	
==>core team expressed some interest in perhaps
# maintaining the capability if created, and in per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1076	1186	
==>ue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1076	1186	
==>ue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1076	1186	
==>ue::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2002	2155	
==>air(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2002	2155	
==>air(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2002	2155	
==>air(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14373	14465	
==>d ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14373	14465	
==>d ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13073	13210	
==>r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13067	13204	
==>r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1 <==
3	/Users/nnunley/pugs/util/testgraph.pl	1298	1414	
==>ome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	721	834	
==>g $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	721	834	
==>g $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7445	7543	
==>he same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_direc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7445	7543	
==>he same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_direc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28921	29017	
==>me an ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are pre- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	957	1062	
==>ore for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	957	1062	
==>ore for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1228	1334	
==>ement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1228	1334	
==>ement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1228	1334	
==>ement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40478	40592	
==>ef}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40478	40592	
==>ef}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40478	40592	
==>ef}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
} <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1909	2018	
==>t MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1909	2018	
==>t MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27287	27380	
==>ody?)>

This method creates and returns a new Relation::Example object, whose Heading and
Body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3115	3212	
==>gular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3115	3212	
==>gular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3115	3212	
==>gular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  - <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	964	1076	
==>are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a l <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	964	1076	
==>are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1520	1632	
==>are not present.

=item B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	556	676	
==>ms;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	556	676	
==>ms;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*E <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8882	9035	
==>unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5242	5395	
==>unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6091	6244	
==>unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19205	19362	
==>Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19205	19362	
==>Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19205	19362	
==>Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	894	985	
==>d;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	894	985	
==>d;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	894	985	
==>d;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Arra <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	327	449	
==>t ?$hour, Int ?$minute, Int|Real ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregorian is export <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23301	23392	
==>target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23301	23392	
==>target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8781	8884	
==>}
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpas <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8839	8942	
==>}
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpas <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5795	5887	
==>syck_st.o src/syck/token.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8255	8362	
==>Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8255	8362	
==>Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8255	8362	
==>Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5724	5821	
==>)       --> "(?<=", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(lookbehind_not(R))   -- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3691	3784	
==>ex where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multide <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3691	3784	
==>ex where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multide <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25242	25341	
==>e immutable identity of the
argument C<$other> equals the immutable identity of the invocant.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29794	29893	
==>e immutable identity of the
argument C<$other> equals the immutable identity of the invocant.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28724	28823	
==>e immutable identity of the
argument C<$other> equals the immutable identity of the invocant.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	137	245	
==>T = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	137	245	
==>T = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	137	245	
==>T = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15339	15436	
==>If the program or any of its components are intended for widespread use
then it needs to account f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15339	15436	
==>If the program or any of its components are intended for widespread use
then it needs to account f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9705	9847	
==>not FAILED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15994	16087	
==>ates and returns a new Rosetta::Model::Node object, that
lives in the Document object given in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15994	16087	
==>ates and returns a new Rosetta::Model::Node object, that
lives in the Document object given in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23596	23708	
==>) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20017	20129	
==>) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{ne <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	51	156	
==>y to strip the DESTDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7099	7201	
==>b as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7099	7201	
==>b as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7099	7201	
==>b as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2364	2481	
==>) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2364	2481	
==>) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4125	4226	
==>k (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4125	4226	
==>k (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4125	4226	
==>k (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	651	765	
==>ount - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	651	765	
==>ount - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	651	765	
==>ount - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3195	3281	
==>:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3195	3281	
==>:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3195	3281	
==>:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	751	854	
==>footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return + <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	751	854	
==>footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return + <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	43	179	
==>f.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	43	179	
==>f.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1356	1485	
==>ith 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1356	1485	
==>ith 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2801	2914	
==>ee[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2929	3027	
==>n I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2929	3027	
==>n I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	591	682	
==>uff live in Inline::Parrot::PMC
our $interpreter;
use overload '0+' => sub {Inline::Parrot:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	405	523	
==>L;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1194	1312	
==>L;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4314	4419	
==>h> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file|$dir, to => $target );

Moves a file <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1182	1276	
==>ap:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1182	1276	
==>ap:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2886	3017	
==>rn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-cir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2886	3017	
==>rn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-cir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2886	3017	
==>rn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-cir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	284	383	
==>og
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	284	383	
==>og
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	284	383	
==>og
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4197	4355	
==>$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4197	4355	
==>$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4197	4355	
==>$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2481	2579	
==>00]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specific <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2481	2579	
==>00]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specific <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2481	2579	
==>00]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specific <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5310	5416	
==>."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5310	5416	
==>."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5310	5416	
==>."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Sli <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4691	4848	
==>s<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not b <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4691	4848	
==>s<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1850	1943	
==>stant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1850	1943	
==>stant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14298	14390	
==>_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14298	14390	
==>_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14298	14390	
==>_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MU <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	247	375	
==>Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1201	1298	
==>"param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.meth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1195	1287	
==>"param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16967	17066	
==>?SELF, *@others);
    my Relation::Example @r_with_zero_tuples;
    my Relation::Example @r_with_sha <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	363	453	
==>r_agent server from referer
    www_authenticate authorization proxy_authorization authoriz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	363	453	
==>r_agent server from referer
    www_authenticate authorization proxy_authorization authoriz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3144	3292	
==>t->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3144	3292	
==>t->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3144	3292	
==>t->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1584	1720	
==>");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1584	1720	
==>");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1584	1720	
==>");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	392	514	
==>ist;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	392	514	
==>ist;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	392	514	
==>ist;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2034	2145	
==>put;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method writ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	45	146	
==>put;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method writ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	45	146	
==>put;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method writ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1173	1387	
==>e);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1173	1387	
==>e);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	109	241	
==>t[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10609	10730	
==>urns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn " <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10609	10730	
==>urns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13859	13968	
==>es sometimes double these
    return $result;
}

*run_perl = \&runperl; # Nice alias.

sub DIE {
    print STD <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10064	10222	
==>];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6405	6563	
==>];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7254	7412	
==>];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1218	1338	
==>ere with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2392	2500	
==>e" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2392	2500	
==>e" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29158	29276	
==>_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::En <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29158	29276	
==>_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::En <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	497	603	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::En <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5225	5344	
==>oc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_rule {
    # pri <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2863	2954	
==>se submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyrigh <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2863	2954	
==>se submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyrigh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2641	2740	
==>-perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARG <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2641	2740	
==>-perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARG <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2641	2740	
==>-perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARG <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9793	9957	
==>y, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9793	9957	
==>y, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2018	2144	
==>-----------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29737	29856	
==>_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29737	29856	
==>_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	529	636	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Fre <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	409	547	
==>* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.* <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20751	20842	
==>head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20751	20842	
==>head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	23	128	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	23	128	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	23	128	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run:: <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	61	161	
==>ht (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------- <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	61	161	
==>ht (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5281	5391	
==>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5281	5391	
==>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5281	5391	
==>clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5834	5995	
==>name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5834	5995	
==>name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5834	5995	
==>name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role->get_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16381	16515	
==>e {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # M <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16381	16515	
==>e {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2769	2881	
==>ts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2769	2881	
==>ts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2769	2881	
==>ts, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $cont <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1705	1845	
==>my($t)=shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3656	3746	
==>ead1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3656	3746	
==>ead1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4881	5006	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4881	5006	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4881	5006	
==>d $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	477	593	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	477	593	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	477	593	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10987	11118	
==>y );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10987	11118	
==>y );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10987	11118	
==>y );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2238	2341	
==>b/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2238	2341	
==>b/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2238	2341	
==>b/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21859	21948	
==>MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21859	21948	
==>MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21859	21948	
==>MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	57	152	
==>use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	57	152	
==>use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	57	152	
==>use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib Fil <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	653	791	
==>he enhancement that is it I<typable>.

This means;

=over

=item *

You can construct new classes which are of its type.

=item *

It serve <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12356	12462	
==>unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12635	12741	
==>unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1717	1879	
==>>FETCH('::Fail')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4299	4396	
==>n for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypti <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4299	4396	
==>n for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5344	5478	
==>l isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5344	5478	
==>l isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5344	5478	
==>l isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8211	8312	
==>handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8211	8312	
==>handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5668	5781	
==>{
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5668	5781	
==>{
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5668	5781	
==>{
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14136	14230	
==>equire Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14136	14230	
==>equire Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14136	14230	
==>equire Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	190	336	
==>{ $_[0] } }

	sub str { "${ $_[0] }" }

	sub fmap {
		my $self = shift;
		my $f = shift;
		my $res = (ref $self)->new($f->($self->val));
	}
}

{
	p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19145	19242	
==>hen restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19145	19242	
==>hen restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1955	2092	
==>oor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_round = sig <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	250	349	
==>lo, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> i <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	250	349	
==>lo, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	421	530	
==>ode);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4553	4661	
==>nels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4553	4661	
==>nels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$ch <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15452	15619	
==>/^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16360	16456	
==>es or user types simultaneously, and that allows any end users to add
support for new languages e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16360	16456	
==>es or user types simultaneously, and that allows any end users to add
support for new languages e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3961	4061	
==>pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--meta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3961	4061	
==>pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--meta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3961	4061	
==>pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5173	5323	
==>rn,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5173	5323	
==>rn,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5173	5323	
==>rn,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4530	4632	
==>nt STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4530	4632	
==>nt STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4530	4632	
==>nt STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8445	8545	
==>S]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]}) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8445	8545	
==>S]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2978	3091	
==>O - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2978	3091	
==>O - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2978	3091	
==>O - test - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8076	8213	
==>dd_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8076	8213	
==>dd_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8076	8213	
==>dd_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2332	2458	
==>$h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2332	2458	
==>$h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2332	2458	
==>$h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17916	18071	
==>'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for the ab <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	299	420	
==>ds.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self. <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	299	420	
==>ds.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1761	1853	
==>IL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1761	1853	
==>IL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1761	1853	
==>IL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13682	13807	
==>key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13682	13807	
==>key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13682	13807	
==>key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5167	5271	
==>@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5167	5271	
==>@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5167	5271	
==>@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2691	2800	
==>thod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2691	2800	
==>thod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2691	2800	
==>thod(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1395	1494	
==>.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_ST <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1395	1494	
==>.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1008	1128	
==>Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1008	1128	
==>Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1008	1128	
==>Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3311	3411	
==>tBuilder::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36640	36734	
==>is assumes that a Template corresponding to the Message could be
found using the Translator obj <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36640	36734	
==>is assumes that a Template corresponding to the Message could be
found using the Translator obj <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5409	5563	
==>'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5631	5785	
==>'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	537	638	
==>nion => "superclasses" });

# every Meta::Class is a part of an object model object called the
# schem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	704	852	
==>$_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	676	819	
==>$_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8202	8332	
==>_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8214	8344	
==>_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5065	5181	
==>a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5065	5181	
==>a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5065	5181	
==>a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	31	130	
==>Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa(Rol <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1621	1716	
==>ch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1461	1556	
==>ch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3229	3334	
==>ray is rw : --> Scalar) {
#    @array.splice(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesn <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16928	17026	
==>can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string rep <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16928	17026	
==>can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string rep <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29918	30013	
==>ld tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34470	34565	
==>ld tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33634	33729	
==>ld tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16597	16688	
==>is
described fully in the L<Rosetta::Language> documentation file that comes
with this "Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16597	16688	
==>is
described fully in the L<Rosetta::Language> documentation file that comes
with this "Rose <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15597	15698	
==>generic_in($.is) = { generic_in($$) }
let: generic_in($.in) = { generic($.is) }
let: generic($$) = { g <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21076	21176	
==>fields will be present in the header
after the call.  All values ought to be kept.

Passing a value o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21076	21176	
==>fields will be present in the header
after the call.  All values ought to be kept.

Passing a value o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1741	1909	
==>e())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1741	1909	
==>e())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1741	1909	
==>e())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_excep <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16470	16565	
==>bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (100 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16470	16565	
==>bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (100 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18284	18372	
==>1,Bx,B1,Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5788	5884	
==>n $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5788	5884	
==>n $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2517	2619	
==>t just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2517	2619	
==>t just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $vol <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	803	930	
==>$cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  List::reverse ( *@val <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9357	9446	
==>ements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3182	3271	
==>ements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1457	1559	
==>ading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelud <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1664	1766	
==>ading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelud <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	652	750	
==>d_of_Input($input) is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13978	14089	
==>tribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13978	14089	
==>tribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13978	14089	
==>tribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10279	10404	
==>kip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = ' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2312	2425	
==>kip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = ' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2312	2425	
==>kip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11346	11499	
==>egate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        r <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11097	11192	
==>back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html' <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11097	11192	
==>back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7761	7858	
==>Test::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	6	95	
==>Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	6	95	
==>Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26217	26316	
==>ch has a subset of the original's attributes; that subset is the same as
those attribute names in th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30769	30868	
==>ch has a subset of the original's attributes; that subset is the same as
those attribute names in th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29762	29861	
==>ch has a subset of the original's attributes; that subset is the same as
those attribute names in th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7871	8058	
==>' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7871	8058	
==>' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7871	8058	
==>' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5401	5508	
==>)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5401	5508	
==>)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5401	5508	
==>)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MU <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4321	4440	
==>'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4321	4440	
==>'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1171	1290	
==>'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	262	377	
==>($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	262	377	
==>($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37097	37235	
==>urns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relation::Example $other!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37547	37658	
==>urns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39701	39796	
==>urns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=item C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5303	5419	
==>_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_doll <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5303	5419	
==>_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_doll <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5303	5419	
==>_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_doll <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1622	1758	
==>[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rule_name = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3402	3504	
==>w( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3282	3380	
==>w( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9159	9272	
==>aramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9159	9272	
==>aramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9159	9272	
==>aramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p- <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1593	1698	
==>my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1593	1698	
==>my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11105	11203	
==>new (opaque $class: hash %params) returns opaque {
    $class.bless(undef, %params // hash());
}

( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2931	3040	
==>arlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2931	3040	
==>arlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2931	3040	
==>arlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2592	2758	
==>> sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1263	1392	
==>s ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	823	952	
==>s ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @r <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1	115	
==>lass Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

ha <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1	115	
==>lass Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

ha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1912	2025	
==>th }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key mus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1237	1338	
==>ackage PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1237	1338	
==>ackage PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1237	1338	
==>ackage PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3035	3162	
==>s;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3035	3162	
==>s;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3035	3162	
==>s;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24454	24565	
==>->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20875	20986	
==>->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3997	4101	
==>bol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	$self->def <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3356	3450	
==>telling this module to compare the received
output to the expected output.

=head1 EXPORTED FUN <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3356	3450	
==>telling this module to compare the received
output to the expected output.

=head1 EXPORTED FUN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3436	3530	
==>telling this module to compare the received
output to the expected output.

=head1 EXPORTED FUN <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6319	6419	
==>er of test files skipped

If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've
got a suc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3042	3137	
==>ich can be called repeatedly to encipher data.
The encipherer closure can be called with a strin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3042	3137	
==>ich can be called repeatedly to encipher data.
The encipherer closure can be called with a strin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17850	17987	
==>gexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20730	20867	
==>gexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24518	24655	
==>gexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22309	22428	
==>LTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22309	22428	
==>LTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22309	22428	
==>LTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1128	1235	
==>p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1128	1235	
==>p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1128	1235	
==>p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23456	23548	
==>ndencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23456	23548	
==>ndencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11093	11244	
==>($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11093	11244	
==>($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11093	11244	
==>($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.bod <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13322	13424	
==>cLiteral>
}
rule MemberExpression :words {  # see 11.2
      <PrimaryExpression>
    | <FunctionExpress <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2884	2981	
==>KT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2884	2981	
==>KT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4570	4680	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4570	4680	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4570	4680	
==>nnot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3164	3272	
==>orks on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3164	3272	
==>orks on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3164	3272	
==>orks on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16523	16618	
==>is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16523	16618	
==>is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	602	743	
==>attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	602	743	
==>attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	602	743	
==>attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4978	5129	
==>have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4978	5129	
==>have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	518	639	
==>r( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Repository <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7070	7182	
==>);
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7070	7182	
==>);
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1302	1429	
==>%params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1302	1429	
==>%params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1302	1429	
==>%params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # sup <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	539	659	
==>y $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # giv <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	200	294	
==><Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::W <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	200	294	
==><Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2271	2405	
==>aModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2271	2405	
==>aModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2271	2405	
==>aModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2552	2643	
==>$self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2552	2643	
==>$self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2552	2643	
==>$self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	530	650	
==>b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	530	650	
==>b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	530	650	
==>b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6111	6201	
==>_($hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    state(%modifiers_known, %modifiers_s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25217	25304	
==>bversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=hea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25217	25304	
==>bversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=hea <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	321	446	
==>and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	321	446	
==>and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	538	700	
==>e name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4806	4927	
==>$time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4806	4927	
==>$time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	736	859	
==>os;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	736	859	
==>os;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10345	10464	
==>[-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12545	12659	
==>fy( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12545	12659	
==>fy( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12545	12659	
==>fy( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	445	633	
==>$n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	533	721	
==>$n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	530	713	
==>$n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1002	1098	
==>JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1002	1098	
==>JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1002	1098	
==>JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4855	4968	
==>l $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4855	4968	
==>l $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4855	4968	
==>l $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3172	3272	
==>:Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3172	3272	
==>:Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27285	27374	
==>_FILELEAK_IN_DIR> may give more predictable results.

=item C<HARNESS_IGNORE_EXITCODE>

Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	244	342	
==>$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	244	342	
==>$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	244	342	
==>$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	613	711	
==>ists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2101	2196	
==>xically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2101	2196	
==>xically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3580	3746	
==>= ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add respons <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3580	3746	
==>= ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add respons <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5268	5402	
==>ist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5268	5402	
==>ist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.d <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30268	30365	
==>Clean up how the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COMPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14334	14450	
==>r( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14334	14450	
==>r( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14334	14450	
==>r( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::V <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33472	33568	
==>C</m> on), eos (C<\z>)

=head2 reg_any

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12520	12615	
==>ement for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12520	12615	
==>ement for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usa <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5476	5668	
==>perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5476	5668	
==>perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	355	461	
==>round the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	355	461	
==>round the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	355	461	
==>round the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6914	7072	
==>erl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exists $n- <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	527	649	
==>->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	428	550	
==>->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5741	6003	
==>,
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5741	6003	
==>,
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5741	6003	
==>,
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7697	7800	
==>PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7697	7800	
==>PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7697	7800	
==>PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1011	1125	
==>($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1011	1125	
==>($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1011	1125	
==>($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3806	3938	
==>int $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*IN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2932	3041	
==>ned $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2920	3029	
==>ned $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6576	6675	
==>'s regex set.  Grammar is quoted because the module does
not so much define a grammar as let each ma <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	666	759	
==>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.p <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	666	759	
==>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	130	244	
==>ation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	130	244	
==>ation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	130	244	
==>ation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1651	1764	
==>(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1651	1764	
==>(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1651	1764	
==>(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	563	685	
==>f{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	563	685	
==>f{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	563	685	
==>f{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13353	13533	
==>om_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13353	13533	
==>om_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13353	13533	
==>om_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are b <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4983	5128	
==>le $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_hash conv_reference
              conv_foreach <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8573	8668	
==>thors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8573	8668	
==>thors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4978	5109	
==>lute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4978	5109	
==>lute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4978	5109	
==>lute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1977	2072	
==>tr( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1977	2072	
==>tr( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10055	10211	
==>alar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10055	10211	
==>alar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10055	10211	
==>alar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5728	5845	
==>, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5728	5845	
==>, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6318	6435	
==>, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	260	369	
==>sh
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	260	369	
==>sh
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	260	369	
==>sh
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2276	2392	
==>TP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2276	2392	
==>TP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Re <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1474	1587	
==>'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $retu <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1474	1587	
==>'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $retu <==
3	/Users/nnunley/pugs/util/run-smoke.pl	754	853	
==>ugsBuild::Config->lookup('smoke_upload');
my $smoke_upload_script = File::Spec->canonpath('./util/sm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6932	7058	
==>to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_mod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6932	7058	
==>to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_mod <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	111	226	
==>or @values -> $x {
	    take $x if $x ~~ $test;
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::join (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4886	5027	
==>bel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4886	5027	
==>bel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4886	5027	
==>bel && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	601	714	
==>e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	601	714	
==>e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3248	3346	
==>ess has three
main aspects:

=over 4

=item *

Resolving compile time resolvable symbols into value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2616	2740	
==>| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2616	2740	
==>| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2616	2740	
==>| $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2658	2775	
==>w_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2658	2775	
==>w_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2658	2775	
==>w_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30665	30761	
==>t means it is
pre-consumptive, which is why it must match the right parenthesis
itself.  The hand <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5855	5980	
==>d a GHC directory.  Find the latest
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2252	2363	
==>PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PAT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2252	2363	
==>PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PAT <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36637	36741	
==>ical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in which ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41186	41290	
==>ical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in which ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40809	40913	
==>ical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, in which ca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15083	15191	
==>$I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I1 = $I0 - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1432	1541	
==>" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1432	1541	
==>" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1432	1541	
==>" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38539	38638	
==>nded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in % <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38539	38638	
==>nded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in % <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1768	1897	
==>te $exename.exe: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Confi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15016	15122	
==>y($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3959	4089	
==>en my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3959	4089	
==>en my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31283	31384	
==>The general family of this object.

=item data

The data or children of this object.

=item dir

The d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	435	547	
==>Stmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	435	547	
==>Stmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	435	547	
==>Stmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2884	2995	
==>repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ver <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2884	2995	
==>repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ver <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2884	2995	
==>repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1047	1156	
==>$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1047	1156	
==>$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1047	1156	
==>$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6012	6113	
==>rl-6 specific workaround is done since $message param can oft
    # be set from a caught exception (al <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6012	6113	
==>rl-6 specific workaround is done since $message param can oft
    # be set from a caught exception (al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7415	7536	
==>ld
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7415	7536	
==>ld
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7415	7536	
==>ld
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1150	1269	
==>stant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1150	1269	
==>stant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1150	1269	
==>stant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VSt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1663	1803	
==>engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1663	1803	
==>engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1246	1380	
==>ndex must be a native type";            
    $self->[$index->to_native] = $value;
    return nil->new();
}

sub remove {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1806	1968	
==>elation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1806	1968	
==>elation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1806	1968	
==>elation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4663	4768	
==>tring describing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and con <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4663	4768	
==>tring describing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6860	6965	
==>tring describing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and con <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2110	2306	
==>1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2110	2306	
==>1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32923	33016	
==>ct I<classes>.  The field
"family" represents the general category into which that object fall <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11294	11407	
==>{$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7422	7512	
==>tion_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1247	1337	
==>tion_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4364	4531	
==>ir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	511	603	
==>sed processing instructions may sub-class this module or
provide special behaviour when a pro <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	511	603	
==>sed processing instructions may sub-class this module or
provide special behaviour when a pro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	916	1015	
==>om meta.pm -- subclass/inherit
=head2 $struct = $alt->to_struct;

=cut

sub to_struct {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8402	8497	
==>ation')>

This event is begun when any block of characters is interpolated for modifiers.

=item <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8402	8497	
==>ation')>

This event is begun when any block of characters is interpolated for modifiers.

=item <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10022	10145	
==>ax = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13130	13227	
==>ests

Sometimes a test is broken because something is not implemented yet. So
in order to still al <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13188	13285	
==>ests

Sometimes a test is broken because something is not implemented yet. So
in order to still al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5598	5696	
==>unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5598	5696	
==>unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5598	5696	
==>unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_inf <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16853	17006	
==>ift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16853	17006	
==>ift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1256	1387	
==>ammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argument is undef <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7249	7358	
==>alize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7249	7358	
==>alize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20627	20750	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20627	20750	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20627	20750	
==>f);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	567	689	
==>) }
sub to_num { (shift)->length             }
sub to_bit { (shift)->length->to_bit     }

# methods ...

sub fetch {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6901	7006	
==>" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_cate <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1258	1360	
==>" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_cate <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	360	459	
==>" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_cate <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11223	11335	
==>se {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11223	11335	
==>se {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19557	19662	
==>end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6anal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	265	369	
==>(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	265	369	
==>(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7239	7381	
==>tore( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7239	7381	
==>tore( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7239	7381	
==>tore( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18457	18564	
==>own};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4107	4208	
==>= $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4107	4208	
==>= $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6925	7039	
==>e($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6925	7039	
==>e($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from chann <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1232	1327	
==>er = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Mak <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1232	1327	
==>er = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Mak <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	35	129	
==>6RulesInP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse_ws_lit);
    $optable-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1895	2011	
==>r);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1895	2011	
==>r);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1895	2011	
==>r);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $outpu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1258	1380	
==>gh it will
# likely lack R:P's nice error messages.


# Test suite:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2495	2589	
==>size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2495	2589	
==>size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13273	13396	
==>now this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13273	13396	
==>now this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13273	13396	
==>now this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	724	853	
==>H()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	724	853	
==>H()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	724	853	
==>H()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9403	9520	
==>ry_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9403	9520	
==>ry_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9403	9520	
==>ry_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22738	22934	
==>elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22738	22934	
==>elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22738	22934	
==>elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3350	3453	
==>to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3350	3453	
==>to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3350	3453	
==>to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5090	5197	
==>@res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5090	5197	
==>@res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5090	5197	
==>@res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18483	18662	
==>warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18483	18662	
==>warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18483	18662	
==>warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	238	486	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	238	486	
==>T_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20464	20571	
==>{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3054	3156	
==>e} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3054	3156	
==>e} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3054	3156	
==>e} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{par <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	371	474	
==>ty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	371	474	
==>ty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3875	3964	
==>n't know about @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	485	589	
==>( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	485	589	
==>( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4654	4793	
==>e private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4654	4793	
==>e private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4654	4793	
==>e private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4943	5069	
==>local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4943	5069	
==>local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4943	5069	
==>local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11923	12041	
==>0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I0
    mob["arg"] = $S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32537	32629	
==>ject stores some attributes for configuration, its
main purpose is to convert Message objects <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32537	32629	
==>ject stores some attributes for configuration, its
main purpose is to convert Message objects <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	322	419	
==>put = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	322	419	
==>put = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	458	578	
==>) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	458	578	
==>) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	458	578	
==>) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10288	10388	
==>e end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10288	10388	
==>e end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25186	25279	
==>han a single tuple.  A zero-attribute Relation::Example with zero tuples or
one tuple respecti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7031	7145	
==>e moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7031	7145	
==>e moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7031	7145	
==>e moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Rol <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	911	1038	
==>!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	911	1038	
==>!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11165	11303	
==>s},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11165	11303	
==>s},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11165	11303	
==>s},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5069	5252	
==>umper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5081	5264	
==>umper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	628	744	
==>) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1766	1864	
==>ng<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = 'Perl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	885	976	
==>s JSX::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3021	3188	
==>c);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3021	3188	
==>c);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3021	3188	
==>c);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9607	9798	
==>= $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9607	9798	
==>= $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9607	9798	
==>= $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @pa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20148	20242	
==>'t what's important;
the interface/behaviour is), this Relation data type is proposed to be
gen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24700	24794	
==>'t what's important;
the interface/behaviour is), this Relation data type is proposed to be
gen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3453	3565	
==>turn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3453	3565	
==>turn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3453	3565	
==>turn bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefa <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12974	13081	
==>e=link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="detail <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3192	3303	
==>can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3192	3303	
==>can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3192	3303	
==>can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5500	5622	
==>print "Writing META.yml\n";

    local *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	118	210	
==>arse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $tex <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	118	210	
==>arse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9752	9863	
==>value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9752	9863	
==>value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9752	9863	
==>value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4291	4401	
==>= shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4291	4401	
==>= shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4881	4991	
==>= shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$pa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	979	1091	
==>Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	979	1091	
==>Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6227	6325	
==>REFCNT_dec current value */
    r->substrs->data[0].substr = SvREFCNT_inc(callback);

    /* Try to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5879	6048	
==>i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5879	6048	
==>i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5879	6048	
==>i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15488	15591	
==>airs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15488	15591	
==>airs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15488	15591	
==>airs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	823	941	
==>, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	823	941	
==>, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	823	941	
==>, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	561	655	
==>onfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	561	655	
==>onfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	561	655	
==>onfess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4174	4268	
==>@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4174	4268	
==>@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5698	5792	
==>@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20686	20793	
==>amespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20686	20793	
==>amespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20686	20793	
==>amespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2946	3148	
==>if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2946	3148	
==>if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2946	3148	
==>if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	751	858	
==>sible scalar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		whil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8710	8799	
==>rms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2535	2624	
==>rms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2110	2212	
==>und this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2110	2212	
==>und this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2110	2212	
==>und this; by the time the
  # source is compiled to PIL1, global subs will already have lost their lexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18060	18163	
==>x1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18060	18163	
==>x1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18060	18163	
==>x1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8158	8275	
==>ER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	375	482	
==>ER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan? <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	375	482	
==>ER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan? <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2661	2765	
==>y @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14894	15012	
==>p::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off, @data) = @_;
    my $self = bless {
      rx => $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2374	2474	
==>with a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with n <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2374	2474	
==>with a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with n <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20607	20716	
==>1 ) &&  ! exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argume <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	243	343	
==>Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	243	343	
==>Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15347	15444	
==>rogram or any of its components are intended for widespread use
then it needs to account for a var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15347	15444	
==>rogram or any of its components are intended for widespread use
then it needs to account for a var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8456	8572	
==>return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8456	8572	
==>return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8456	8572	
==>return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1053	1167	
==>e structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1053	1167	
==>e structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1053	1167	
==>e structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1138	1240	
==>_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1138	1240	
==>_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1138	1240	
==>_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5415	5517	
==>JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5415	5517	
==>JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5415	5517	
==>JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1792	1889	
==>rd compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By conv <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1792	1889	
==>rd compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By conv <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1005	1099	
==>:Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1005	1099	
==>:Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1085	1179	
==>:Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2160	2311	
==>s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2160	2311	
==>s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2160	2311	
==>s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5628	5734	
==>to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5628	5734	
==>to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7825	7931	
==>to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2271	2407	
==>ate} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::conc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2198	2327	
==>ate} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::conc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18741	18831	
==>Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re,N1,Fx,F1,Bx,B1,Ex,E1).
rm_repeat_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5636	5755	
==>e_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    requi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5636	5755	
==>e_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    requi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14077	14173	
==>15)

%s matches null string many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11685	11810	
==>se::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2119	2232	
==>se::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2119	2232	
==>se::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	183	283	
==>est::Harness::Iterator;
  my $it = Test::Harness::Iterator->new(\*TEST);
  my $it = Test::Harness::It <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7447	7542	
==>:init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7447	7542	
==>:init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7447	7542	
==>:init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addme <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9370	9551	
==>her ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12847	13028	
==>her ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12101	12282	
==>her ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8376	8490	
==>($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7006	7118	
==>Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _as <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7006	7118	
==>Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6525	6613	
==>ribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6525	6613	
==>ribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6525	6613	
==>ribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1696	1812	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1696	1812	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1696	1812	
==>_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaMo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19146	19259	
==>al
data model proposed by Edgar. F. Codd, upon which anything in the world can
be modelled.

A relation is essenti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28046	28141	
==>attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32598	32693	
==>attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11971	12083	
==>"";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11971	12083	
==>"";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11971	12083	
==>"";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	207	307	
==>..
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show_tree ($self:) re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	643	743	
==>ta structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	611	706	
==>ta structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18674	18882	
==>RE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18674	18882	
==>RE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18674	18882	
==>RE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20352	20465	
==>["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0

    if self != "(" goto <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1484	1586	
==>just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Ste <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1484	1586	
==>just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Ste <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2130	2300	
==>}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2130	2300	
==>}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39998	40232	
==>), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19547	19772	
==>), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20226	20341	
==>ulti prefix_M ($file) is builtin is primitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16506	16636	
==>:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16506	16636	
==>:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27505	27596	
==>is(t($one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_elem <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	894	995	
==>rl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfSco <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19639	19735	
==>t> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19639	19735	
==>t> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4916	5039	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4916	5039	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4916	5039	
==>must provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECAT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18361	18454	
==>..};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18361	18454	
==>..};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18361	18454	
==>..};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$. <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2154	2338	
==>the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $target->{meat}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9366	9483	
==>ub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9354	9471	
==>ub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7285	7396	
==>e->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7285	7396	
==>e->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7285	7396	
==>e->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$method_na <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13796	13918	
==>ir, "$syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'sy <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	146	251	
==>get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	146	251	
==>get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4277	4387	
==>rn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4277	4387	
==>rn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4277	4387	
==>rn if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9830	9980	
==>AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6171	6321	
==>AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7020	7170	
==>AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13184	13286	
==>ail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13184	13286	
==>ail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13184	13286	
==>ail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1708	1841	
==>if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1708	1841	
==>if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1708	1841	
==>if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $l <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2708	2810	
==>.

=item App

An App makes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30616	30712	
==>e
shared by multiple Messages but the whole module must represent a single
language.

The name of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30616	30712	
==>e
shared by multiple Messages but the whole module must represent a single
language.

The name of <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2034	2132	
==>recedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2034	2132	
==>recedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', nam <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8240	8337	
==>rences to the sub
array.

In Scalar context, they all return the count of elements that would have <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5911	6043	
==>);
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5911	6043	
==>);
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31589	31696	
==>ether this object has a true/false branch (like the C<(?(...)T|F)>
assertion).

=item max

The maximum repet <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36413	36517	
==>ing any result tuples that
duplicate others.  The sequence in which any two source relations are
combined <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40962	41066	
==>ing any result tuples that
duplicate others.  The sequence in which any two source relations are
combined <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40576	40680	
==>ing any result tuples that
duplicate others.  The sequence in which any two source relations are
combined <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	513	640	
==>x or die "Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6288	6383	
==>main-specific-language-like syntax, contained in a package

### rule must ever use Rule::rule fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6073	6167	
==>main-specific-language-like syntax, contained in a package
### rule must ever use Rule::rule fo <==
3	/Users/nnunley/pugs/util/drift.pl	452	579	
==>ie $!;
while (<IN>) {
    if (/\{-!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2253	2366	
==>rammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2393	2506	
==>rammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8294	8418	
==>nick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = nor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8294	8418	
==>nick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14279	14394	
==>o warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14279	14394	
==>o warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14279	14394	
==>o warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8614	8784	
==>:Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8614	8784	
==>:Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8614	8784	
==>:Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7192	7297	
==>eturn match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7192	7297	
==>eturn match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7192	7297	
==>eturn match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8724	8891	
==>bute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are rea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8724	8891	
==>bute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are rea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8724	8891	
==>bute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	805	923	
==>_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	805	923	
==>_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	805	923	
==>_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40167	40286	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40167	40286	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40167	40286	
==>eturn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	14	128	
==>Stmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	14	128	
==>Stmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	14	128	
==>Stmt;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	786	888	
==>put.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	786	888	
==>put.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1342	1444	
==>put.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal ou <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1058	1158	
==>moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'sp <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1058	1158	
==>moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'sp <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1370	1508	
==>parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1370	1508	
==>parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	602	726	
==>$self->{values}{$key} = shift;
        return $self;
    };
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	521	615	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	521	615	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	521	615	
==>ew PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($self is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	820	943	
==>ed_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	820	943	
==>ed_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	820	943	
==>ed_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	247	353	
==>een{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	247	353	
==>een{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1306	1425	
==>t
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1306	1425	
==>t
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1386	1505	
==>t
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test_fail ( Str $diag <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1603	1733	
==>st unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! cat <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1603	1733	
==>st unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! cat <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3055	3145	
==>s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	695	796	
==>builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is pr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1336	1428	
==>text {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Sl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1336	1428	
==>text {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8445	8553	
==>_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8445	8553	
==>_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8445	8553	
==>_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3199	3306	
==>rm, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3187	3294	
==>rm, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8169	8267	
==>ll %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8169	8267	
==>ll %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4165	4334	
==>n $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4165	4334	
==>n $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4165	4334	
==>n $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1128	1276	
==>m - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1128	1276	
==>m - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1128	1276	
==>m - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1473	1583	
==>m;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1473	1583	
==>m;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1682	1792	
==>m;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2454	2552	
==>y $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2454	2552	
==>y $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2454	2552	
==>y $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustiv <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3434	3526	
==>fundamentally object-oriented; the procedural and functional 
interfaces are layers on top of <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3434	3526	
==>fundamentally object-oriented; the procedural and functional 
interfaces are layers on top of <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25023	25122	
==>something
 * potentially expensive (at present, the only such thing detected is * or +
 * at the sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8833	8925	
==>Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2658	2750	
==>Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1790	1911	
==>ess "Indecies must be a num type";
    return list->new(
        # make sure to create any nils we need
        map { defi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13394	13513	
==>urn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13388	13507	
==>urn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9871	9993	
==>) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9871	9993	
==>) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	477	587	
==>ompile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13146	13247	
==>a zero-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=ov <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20324	20419	
==>d users could do,
although program package installers usually do it.  An os-level preference
/ c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20324	20419	
==>d users could do,
although program package installers usually do it.  An os-level preference
/ c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4081	4198	
==>_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4081	4198	
==>_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4081	4198	
==>_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label, %op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6320	6420	
==>bject might be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6320	6420	
==>bject might be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6320	6420	
==>bject might be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	76	192	
==>y $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	76	192	
==>y $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	76	192	
==>y $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18145	18245	
==>d it with element 1 being
#1 and 0 being empty, this is less awkward.

=head1 EXAMPLES

See F<example <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9829	9926	
==>dule written for Pugs.

It provides a simple set of common test utility functions, and is
an imple <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9887	9984	
==>dule written for Pugs.

It provides a simple set of common test utility functions, and is
an imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1942	2089	
==>}
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1942	2089	
==>}
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1942	2089	
==>}
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5268	5365	
==>g you like with each object, but is (at least nominally)
intended to allow filtering out objects y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5268	5365	
==>g you like with each object, but is (at least nominally)
intended to allow filtering out objects y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5268	5365	
==>g you like with each object, but is (at least nominally)
intended to allow filtering out objects y <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4659	4786	
==>rac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4659	4786	
==>rac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1530	1707	
==>ner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1530	1707	
==>ner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7481	7587	
==>for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6064	6182	
==>sed in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6064	6182	
==>sed in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6064	6182	
==>sed in PIL-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16936	17060	
==>$_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16936	17060	
==>$_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16936	17060	
==>$_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17136	17220	
==>rivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17136	17220	
==>rivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17136	17220	
==>rivate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2858	2949	
==>=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2858	2949	
==>=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2858	2949	
==>=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14218	14436	
==>:ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14218	14436	
==>:ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14218	14436	
==>:ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7085	7187	
==>E_OPTABLE_TERNARY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  pu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24866	24963	
==>dy.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29418	29515	
==>dy.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples as <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1273	1390	
==>ile_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catd <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1273	1390	
==>ile_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catd <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14157	14263	
==>aram) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::ope <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2124	2230	
==>eta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2905	3011	
==>eta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2040	2174	
==>ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	895	998	
==>:Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	895	998	
==>:Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mod <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2890	2991	
==>y, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7406	7502	
==>event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kicke <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7406	7502	
==>event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kicke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	249	344	
==>oaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	249	344	
==>oaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	249	344	
==>oaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2458	2593	
==>'*',
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix', <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13067	13164	
==>l the header fields used to describe the content of
a message.  All header field names prefixed wi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13067	13164	
==>l the header fields used to describe the content of
a message.  All header field names prefixed wi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1989	2179	
==>yedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1989	2179	
==>yedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	867	972	
==>ucer - generic reducing base class for fmapping nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4233	4359	
==>:new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4233	4359	
==>:new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4233	4359	
==>:new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5797	5920	
==>cope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2317	2430	
==>f, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2375	2488	
==>f, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	308	448	
==>struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	792	932	
==>struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16871	16983	
==>($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2571	2672	
==>s may not return all (or any) of the data you 
passed in, and that the finishing step may return data. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2571	2672	
==>s may not return all (or any) of the data you 
passed in, and that the finishing step may return data. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5154	5355	
==>};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5154	5355	
==>};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5154	5355	
==>};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8186	8276	
==>rammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2011	2101	
==>rammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1353	1451	
==>00)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1353	1451	
==>00)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1353	1451	
==>00)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12766	12885	
==>op' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12766	12885	
==>op' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12766	12885	
==>op' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8195	8436	
==>ore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8195	8436	
==>ore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8195	8436	
==>ore( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5720	5840	
==>$js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5720	5840	
==>$js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5720	5840	
==>$js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5028	5188	
==>r' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5028	5188	
==>r' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5028	5188	
==>r' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3593	3687	
==>ion 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3593	3687	
==>ion 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	811	971	
==>atus_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            . <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	811	971	
==>atus_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            . <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36623	36714	
==>oo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	626	748	
==>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	626	748	
==>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	626	748	
==>tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6378	6504	
==>trs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6378	6504	
==>trs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6378	6504	
==>trs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10732	10860	
==>es6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10732	10860	
==>es6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10732	10860	
==>es6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2478	2584	
==>$class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2478	2584	
==>$class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2478	2584	
==>$class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.me <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2724	2838	
==>?$hint = 'Number') {
    if $hint eq 'String' {
        my $Result1 = $O.<[[Get]]>('toString');
        if $Result1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15224	15321	
==>nt's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15224	15321	
==>nt's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5196	5343	
==>l_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5196	5343	
==>l_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5196	5343	
==>l_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2135	2260	
==>_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2135	2260	
==>_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2135	2260	
==>_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11082	11206	
==>5/:raw\b/;

        $fh;
    }

    multi method seek (Int $position, Int $whence = $File::SEEK_START)
            returns Bo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3099	3201	
==>h a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3099	3201	
==>h a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2306	2451	
==>quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2306	2451	
==>quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	61	166	
==>le
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	61	166	
==>le
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	61	166	
==>le
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ju <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9037	9132	
==>}
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8667	8801	
==>l =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8667	8801	
==>l =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8667	8801	
==>l =~ /^.(\.|\:).*$/) {
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29504	29599	
==>invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34056	34151	
==>invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33220	33315	
==>invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes are <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	714	842	
==>t with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two h <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	714	842	
==>t with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two h <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	123	216	
==><title>Public HTML</title>
</head>
<script>
function openNewWindows() {
    var links = docume <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4855	4953	
==>r::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4855	4953	
==>r::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7052	7150	
==>r::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	959	1061	
==>whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	959	1061	
==>whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	959	1061	
==>whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18848	18983	
==>le::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18848	18983	
==>le::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18848	18983	
==>le::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	110	207	
==>rimitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	110	207	
==>rimitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2342	2434	
==>metrical ?? $x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	367	480	
==>f
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	367	480	
==>f
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	367	480	
==>f
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (wh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2888	3011	
==>::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2888	3011	
==>::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4412	4535	
==>::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3490	3610	
==>ethod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3490	3610	
==>ethod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3490	3610	
==>ethod () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10762	10877	
==>ncludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10762	10877	
==>ncludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23799	23898	
==>lus_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new(
		type::va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2871	2988	
==>) {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2871	2988	
==>) {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2871	2988	
==>) {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1006	1123	
==>xup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1006	1123	
==>xup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1006	1123	
==>xup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6120	6243	
==>" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6120	6243	
==>" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6120	6243	
==>" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10428	10612	
==>dx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10428	10612	
==>dx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10428	10612	
==>dx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13411	13511	
==>($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13411	13511	
==>($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13411	13511	
==>($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16684	16789	
==>GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16684	16789	
==>GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16684	16789	
==>GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	730	834	
==>:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	730	834	
==>:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	730	834	
==>:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4618	4721	
==>lit(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec pla <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4618	4721	
==>lit(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec pla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5400	5502	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 0)) if $cc;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	945	1041	
==>O - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	945	1041	
==>O - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	945	1041	
==>O - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# T <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9503	9600	
==>to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9503	9600	
==>to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods retu <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1716	1823	
==>ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeM <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2568	2675	
==>ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeM <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	313	416	
==>ult to empty string
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3830	3937	
==>de a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DIS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3830	3937	
==>de a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DIS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3830	3937	
==>de a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3826	3932	
==>$::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3826	3932	
==>$::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3826	3932	
==>$::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11066	11179	
==>ms},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11066	11179	
==>ms},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11066	11179	
==>ms},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2976	3080	
==>self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2976	3080	
==>self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2976	3080	
==>self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6437	6530	
==>start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6437	6530	
==>start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2780	3050	
==>buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2780	3050	
==>buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2619	2729	
==>$html_location") == 0
        or die "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All d <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4346	4483	
==>) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4346	4483	
==>) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6659	6758	
==>ar as let each matched node state what it
expects to match next, but there is not currently a way of <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2865	2967	
==>IL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has St <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2865	2967	
==>IL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has St <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8294	8384	
==>!.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_spec_pos([ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2758	2879	
==>ext if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2758	2879	
==>ext if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) { <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6087	6187	
==>turns List {
    *@array
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2138	2256	
==>>isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2138	2256	
==>>isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2138	2256	
==>>isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pAr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18940	19114	
==>ell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18940	19114	
==>ell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18940	19114	
==>ell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1190	1304	
==>eeds optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1190	1304	
==>eeds optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1190	1304	
==>eeds optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed v <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5297	5413	
==>sult = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5297	5413	
==>sult = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9920	10080	
==>=>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9920	10080	
==>=>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9920	10080	
==>=>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5087	5191	
==>ock => sub {...},   # XXX - the return block could be generated automatically ?
  );

Pseudo-code for usa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3429	3522	
==>if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3429	3522	
==>if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9022	9148	
==>->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9022	9148	
==>->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9022	9148	
==>->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9968	10129	
==>/clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9968	10129	
==>/clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	326	433	
==>es
## to all Classes created. See Method_Dispatch_w_EigenClasses.jpg in this 
## same directory for a visual <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1249	1350	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1249	1350	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1249	1350	
==>==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "in <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16770	16885	
==>orm, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7076	7176	
==>ext, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, St <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7134	7234	
==>ext, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2897	3030	
==>(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2897	3030	
==>(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2897	3030	
==>(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13057	13169	
==>- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13057	13169	
==>- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13057	13169	
==>- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2071	2174	
==>on, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2071	2174	
==>on, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2071	2174	
==>on, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $autho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17101	17196	
==>xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17101	17196	
==>xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17101	17196	
==>xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3138	3273	
==>rclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3138	3273	
==>rclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3138	3273	
==>rclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "cla <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	491	619	
==>rt { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  package_prefix( $_->[1]->{packag <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12311	12412	
==>)`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the e <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12311	12412	
==>)`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6127	6246	
==>-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6127	6246	
==>-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6127	6246	
==>-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3768	3863	
==>de, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3768	3863	
==>de, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3768	3863	
==>de, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa("Co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21245	21343	
==>at it provides a
common API for access to those databases, each of which takes a different
SQL or p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21245	21343	
==>at it provides a
common API for access to those databases, each of which takes a different
SQL or p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2756	2853	
==>join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars,$tmpvars]);
  "(do{my \$__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6769	6880	
==>s primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6769	6880	
==>s primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6769	6880	
==>s primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5138	5235	
==>cording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5138	5235	
==>cording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6662	6759	
==>cording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1603	1726	
==>|| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1603	1726	
==>|| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1603	1726	
==>|| document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10403	10566	
==>:CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10403	10566	
==>:CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10403	10566	
==>:CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::Private <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4539	4665	
==>y => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8016	8142	
==>y => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7009	7135	
==>y => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select : <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5835	5936	
==>() returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5835	5936	
==>() returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4514	4615	
==>) {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4514	4615	
==>) {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4514	4615	
==>) {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	503	616	
==>dn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	503	616	
==>dn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	503	616	
==>dn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn " <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	824	973	
==>if ($tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	335	462	
==>) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	335	462	
==>) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1962	2061	
==>ision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1962	2061	
==>ision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1962	2061	
==>ision by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7447	7563	
==>> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7447	7563	
==>> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7447	7563	
==>> $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6646	6743	
==>-----
## BOOTSTRAPPING Roles COMPLETE
## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6600	6694	
==>---------------------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## -------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6623	6717	
==>----------------------------
## BOOTSTRAPPING Roles COMPLETE
## ------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11258	11355	
==>an the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11258	11355	
==>an the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11258	11355	
==>an the Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4136	4243	
==>r|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4136	4243	
==>r|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4136	4243	
==>r|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @val <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	573	823	
==>e: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	573	823	
==>e: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta:: <==
3	/Users/nnunley/pugs/util/package-osx.pl	1780	1869	
==>erl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5/site_perl/pugs-sm <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4175	4298	
==>strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3929	4032	
==>rint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3929	4032	
==>rint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3360	3510	
==>rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3607	3757	
==>rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17530	17625	
==>s, I<quantifier>.  You pass it the min and max,
and the object's C<type> is determined dynamical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33279	33487	
==>length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33279	33487	
==>length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33279	33487	
==>length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8998	9098	
==>he package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8998	9098	
==>he package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2137	2262	
==>"  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2137	2262	
==>"  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2137	2262	
==>"  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	125	236	
==>y $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3370	3480	
==>exact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1310	1409	
==>s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4347	4499	
==>lots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_v <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	713	807	
==>th (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	713	807	
==>th (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19317	19420	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19317	19420	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19317	19420	
==>0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7443	7537	
==>(which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

Thi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7443	7537	
==>(which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5471	5643	
==>$token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5471	5643	
==>$token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5471	5643	
==>$token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            pu <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2592	2694	
==>et $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2592	2694	
==>et $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7168	7284	
==>s ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3772	3888	
==>s ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4621	4737	
==>s ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10951	11093	
==>$port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10951	11093	
==>$port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	703	832	
==>b new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runtime(shift);
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6994	7192	
==>ded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6994	7192	
==>ded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	319	469	
==>value');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:value' => $val <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17997	18095	
==>Some of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets atta <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2356	2454	
==>Some of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets atta <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1336	1463	
==>ey
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    ret <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1290	1384	
==>ndows, you will need the 'nmake' utility
before installation. It's available at:

  http://down <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1130	1224	
==>ndows, you will need the 'nmake' utility
before installation. It's available at:

  http://down <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10192	10312	
==>ile->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18420	18530	
==>~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14841	14951	
==>~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7929	8039	
==>SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7929	8039	
==>SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7929	8039	
==>SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubTy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1996	2111	
==>)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1996	2111	
==>)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1996	2111	
==>)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15483	15600	
==>tart}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15483	15600	
==>tart}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15483	15600	
==>tart}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15172	15309	
==>d we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors dur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15172	15309	
==>d we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors dur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15172	15309	
==>d we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors dur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9865	9957	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9865	9957	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9865	9957	
==>O();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11552	11648	
==>-------------------------------------------------------------

With this Role meta-model , any Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11552	11648	
==>-------------------------------------------------------------

With this Role meta-model , any Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11552	11648	
==>-------------------------------------------------------------

With this Role meta-model , any Cl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4435	4544	
==>ally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4435	4544	
==>ally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ fo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	144	239	
==>ackend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Compiler;

=head1 DE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25356	25450	
==>Relation $other!) returns Bool>

This method returns the complement of C<equal> with the same a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29908	30002	
==>Relation $other!) returns Bool>

This method returns the complement of C<equal> with the same a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16661	16763	
==>Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16661	16763	
==>Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16661	16763	
==>Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9330	9443	
==>shift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9523	9636	
==>shift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::con <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	215	325	
==>s, This may be considered as the superset of round_half_up and
# round_half_down

}

our Int multi Num::round_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	219	314	
==>can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	219	314	
==>can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	219	314	
==>can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_S <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1438	1541	
==>o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2849	2941	
==>item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2849	2941	
==>item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2597	2706	
==>Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2597	2706	
==>Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2597	2706	
==>Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $labe <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4329	4438	
==>mport {
        Pugs::Internals::install_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Prelu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	12	108	
==>::Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	12	108	
==>::Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2464	2565	
==>et = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2464	2565	
==>et = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2464	2565	
==>et = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _2 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3143	3259	
==>print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $me <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3607	3723	
==>print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $me <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9370	9483	
==>curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9370	9483	
==>curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $cu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2614	2723	
==>. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    # f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	682	769	
==>enClass->superclasses([ $::Class ]);

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	682	769	
==>enClass->superclasses([ $::Class ]);

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	682	769	
==>enClass->superclasses([ $::Class ]);

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	972	1073	
==>:Backend::Perl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Backend:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11254	11346	
==>ee $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11254	11346	
==>ee $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1719	1828	
==>"elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 vers <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1719	1828	
==>"elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 vers <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1719	1828	
==>"elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 vers <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9100	9290	
==>rence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12577	12767	
==>rence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11813	12003	
==>rence( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1713	1846	
==>n "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1713	1846	
==>n "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1713	1846	
==>n "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10495	10624	
==>_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10495	10624	
==>_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$do <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4837	4935	
==>eturn $var.' = '.$lit.";\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9409	9549	
==>ms = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9409	9549	
==>ms = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9409	9549	
==>ms = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3468	3586	
==>od('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3468	3586	
==>od('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3468	3586	
==>od('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6507	6606	
==>{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6507	6606	
==>{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6507	6606	
==>{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7420	7532	
==>our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7420	7532	
==>our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7420	7532	
==>our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24039	24187	
==>) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24318	24466	
==>) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3412	3504	
==>params->equal_to($right->params) == bit->new(1) && 
     $left->returns eq $right->returns) ? <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	828	967	
==>hesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submet <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	828	967	
==>hesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submet <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	373	491	
==>$plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3171	3297	
==>"}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $de <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2674	2781	
==>multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2674	2781	
==>multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10428	10589	
==>_all}) {
                print "skipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "ski <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	207	314	
==>d>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a re <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	207	314	
==>d>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	108	210	
==>ro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	108	210	
==>ro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	108	210	
==>ro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2845	2948	
==>nks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2845	2948	
==>nks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2185	2302	
==>$rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2185	2302	
==>$rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3410	3505	
==>rpy' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	803	932	
==>me} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'ti <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35452	35549	
==>ames()>

This method returns all Member Names elements in this object as an array
ref.

=item C<as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35452	35549	
==>ames()>

This method returns all Member Names elements in this object as an array
ref.

=item C<as <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8183	8301	
==>tr is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $st <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8183	8301	
==>tr is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $st <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6	116	
==>/bin/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      q <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	488	591	
==>->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	488	591	
==>->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27292	27386	
==>α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5573	5716	
==>('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2896	3006	
==>]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2884	2994	
==>]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29310	29447	
==>ess { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29310	29447	
==>ess { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29310	29447	
==>ess { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1661	1755	
==>f Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1661	1755	
==>f Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1817	1933	
==>an be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1817	1933	
==>an be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1817	1933	
==>an be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7447	7551	
==>ule.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7447	7551	
==>ule.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3006	3122	
==>val) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3006	3122	
==>val) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3006	3122	
==>val) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchai <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4026	4222	
==>) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_v <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7019	7140	
==>"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7019	7140	
==>"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4506	4625	
==>$o,$aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4013	4118	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4013	4118	
==>t_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Local <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	562	665	
==>uf = "";   # set to undef to when input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3298	3448	
==>$tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3298	3448	
==>$tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5673	5786	
==>mpile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2410	2530	
==>ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2410	2530	
==>ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9745	9908	
==>ce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6086	6249	
==>ce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6935	7098	
==>ce filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	291	413	
==>ear design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this sub <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	291	413	
==>ear design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this sub <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	609	726	
==>= \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29623	29732	
==>RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29623	29732	
==>RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	427	524	
==>RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	17	107	
==>package P6RulesInP5::Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1150	1247	
==>be the full package
name (C<Type--Perl6>) disambiguates this case.

Types have a dispatch table; t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18632	18754	
==>de("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "foo", t => ty <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16347	16440	
==>responding argument is not provided).  If the optional named parameter
$parent_node (a Node) i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16347	16440	
==>responding argument is not provided).  If the optional named parameter
$parent_node (a Node) i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2868	2985	
==>ignature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2868	2985	
==>ignature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7336	7434	
==>$rthunk = $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthun <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15231	15328	
==>efined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
ap <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15231	15328	
==>efined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12896	13006	
==>arams->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12896	13006	
==>arams->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12896	13006	
==>arams->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35426	35537	
==>ich case the new Relation::Example has either all of the tuples of
the original, or has zero tuples, respectivel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5326	5423	
==>d_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Cal <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5326	5423	
==>d_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1514	1653	
==>params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1514	1653	
==>params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1514	1653	
==>params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2185	2292	
==>already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2185	2292	
==>already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2185	2292	
==>already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	18	116	
==>d::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	18	116	
==>d::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	36	130	
==>l: 4 -*-

package Test::Harness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1230	1377	
==>ue'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1230	1377	
==>ue'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(* <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2098	2205	
==>\d\b/
      or die <<".";
Can't generate the correct Perl6 equivalent for:

    $path

field name: $name
osn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	684	788	
==>ass->new_from_struct( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1287	1401	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1287	1401	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1287	1401	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17265	17452	
==>oxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17265	17452	
==>oxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17265	17452	
==>oxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Pe <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5613	5716	
==>{concurrent}, \@tests);
}

sub run_children {
    my ($self, $child_count, $all_tests) = @_;
    my $chu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1893	2080	
==>returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my meth <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1893	2080	
==>returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my meth <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2689	2777	
==>table->addToken("close:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9286	9410	
==>=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9286	9410	
==>=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9286	9410	
==>=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1365	1463	
==>%self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1365	1463	
==>%self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1365	1463	
==>%self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2873	2973	
==>perclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2873	2973	
==>perclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2873	2973	
==>perclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3208	3319	
==>nd headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3208	3319	
==>nd headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22766	22868	
==>2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22766	22868	
==>2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22766	22868	
==>2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3624	3728	
==>instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3624	3728	
==>instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5821	5925	
==>instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17652	17745	
==>1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for acce <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17652	17745	
==>1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for acce <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26389	26482	
==>:Low;
    @Language::Prolog::Yaswi::Low::args = ($Language::Prolog::Yaswi::Low::args[0], @ARGV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	56	161	
==>n = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	56	161	
==>n = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	56	161	
==>n = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2886	3022	
==>*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2886	3022	
==>*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2886	3022	
==>*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1472	1559	
==>$num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1472	1559	
==>$num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6469	6561	
==>houtNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6469	6561	
==>houtNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6469	6561	
==>houtNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12266	12381	
==>ape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19350	19448	
==>EFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19350	19448	
==>EFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19136	19236	
==>rray) };
multi shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

multi pop (@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4544	4707	
==>dency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorte <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5008	5171	
==>dency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorte <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	304	413	
==>r ; *@values) returns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12345	12449	
==>cher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12345	12449	
==>cher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12345	12449	
==>cher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	357	472	
==>new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	357	472	
==>new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{fr <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1399	1494	
==>ADME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look in <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1399	1494	
==>ADME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13051	13195	
==>te $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13051	13195	
==>te $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13051	13195	
==>te $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3724	3829	
==>t module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3724	3829	
==>t module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5248	5353	
==>t module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10765	10887	
==>ist;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10765	10887	
==>ist;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10765	10887	
==>ist;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4679	4804	
==>b shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4679	4804	
==>b shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4679	4804	
==>b shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1792	1895	
==>sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1792	1895	
==>sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1792	1895	
==>sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3486	3586	
==>lter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; }) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3486	3586	
==>lter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; }) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3708	3849	
==>=> \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub de <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1606	1716	
==>nd headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1606	1716	
==>nd headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1325	1447	
==>igspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1313	1435	
==>igspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7454	7557	
==>\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7454	7557	
==>\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7454	7557	
==>\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	389	495	
==>e Object, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	389	495	
==>e Object, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	389	495	
==>e Object, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2256	2370	
==>class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict ' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2256	2370	
==>class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6212	6372	
==>ind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6212	6372	
==>ind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6212	6372	
==>ind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6631	6751	
==>et_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6631	6751	
==>et_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6631	6751	
==>et_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1586	1710	
==>ubs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1586	1710	
==>ubs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1586	1710	
==>ubs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4097	4216	
==>re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4097	4216	
==>re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4177	4296	
==>re going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	728	835	
==>'root' user.)\n"
    unless -w $Config{sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21870	21968	
==>a Relation to have zero attributes, though such a Relation can have no
more than a single tuple.  A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26422	26520	
==>a Relation to have zero attributes, though such a Relation can have no
more than a single tuple.  A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14479	14573	
==>('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14479	14573	
==>('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14479	14573	
==>('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7025	7150	
==>ef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7025	7150	
==>ef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7025	7150	
==>ef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3603	3697	
==>>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3603	3697	
==>>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

= <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25092	25177	
==>E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em,E1) : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27607	27764	
==>)
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27886	28043	
==>)
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         rule <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2179	2276	
==>die with a complaint.  Real solvers usually do
a bit of algorithm switching.  When their fast meth <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11382	11527	
==>for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copyin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7688	7820	
==>atch}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7688	7820	
==>atch}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7948	8059	
==>n );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7948	8059	
==>n );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	126	223	
==>:Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4946	5041	
==>of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4946	5041	
==>of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4946	5041	
==>of the original operator and auto-metaed versions
# of user-defined ops are not generated.
for  <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18176	18269	
==>ition of any
character in the class I<outside> of embedded classes, so the class
C<[\w\d:4-65: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8672	8818	
==>\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8672	8818	
==>\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8672	8818	
==>\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18275	18385	
==>space" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'("Un <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1348	1441	
==>able of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talk <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1348	1441	
==>able of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talk <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9040	9160	
==>$expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	498	605	
==>$expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1387	1484	
==>@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1387	1484	
==>@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1387	1484	
==>@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12129	12253	
==>> (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canidate, <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4748	4851	
==>t("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4748	4851	
==>t("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10697	10842	
==>not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12599	12697	
==>r minute, 
wags per second, or holidays per month.

It is also used when the objects represent "chu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12599	12697	
==>r minute, 
wags per second, or holidays per month.

It is also used when the objects represent "chu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7310	7426	
==>X;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7310	7426	
==>X;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7310	7426	
==>X;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use st <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4892	5013	
==>t.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4892	5013	
==>t.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.conten <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	467	576	
==>rel

The path to the pool directory that will be put into the index files. jibs/ if
not specified.

=item inde <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5607	5700	
==>}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Ite <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5607	5700	
==>}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1719	1834	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1719	1834	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1719	1834	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5741	5869	
==>\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5741	5869	
==>\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5741	5869	
==>\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	427	538	
==>tch->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1216	1327	
==>tch->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3593	3709	
==>p}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unles <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3844	3957	
==>p}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3844	3957	
==>p}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4131	4297	
==>ss->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4131	4297	
==>ss->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4131	4297	
==>ss->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14154	14303	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14154	14303	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14154	14303	
==>r ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; d <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5896	6021	
==>open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5896	6021	
==>open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3178	3279	
==><WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token> <DivPunctuator>
}
rule InputElementR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31368	31465	
==>s function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole rea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35918	36015	
==>s function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole rea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35136	35233	
==>s function in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole rea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19392	19490	
==>ion/tuple attribute is a column, but it is not the same as a table.

The intended interface and use <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23944	24042	
==>ion/tuple attribute is a column, but it is not the same as a table.

The intended interface and use <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22460	22558	
==>ion/tuple attribute is a column, but it is not the same as a table.

The intended interface and use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	34	156	
==>TP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	34	156	
==>TP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => ' <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29681	29777	
==>tially done with new skip test styles)

Add option for coverage analysis.

Trap STDERR.

Implemen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	519	651	
==>EN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $numbe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	519	651	
==>EN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26437	26526	
==>subclasses.push($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2289	2578	
==>1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3917	4026	
==>r1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax erro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4134	4243	
==>r1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax erro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	28	137	
==>nline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	28	137	
==>nline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ? <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	880	985	
==>et);
  $me->from($from);
  my $position = -1;
  $me->position($position);

  $from = $fromd if ( $fromd an <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1954	2050	
==>y tags, it will intuit one by extracting the 
last component of the calling function's package na <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1954	2050	
==>y tags, it will intuit one by extracting the 
last component of the calling function's package na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4795	4908	
==>_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4795	4908	
==>_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4795	4908	
==>_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4049	4177	
==>open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4049	4177	
==>open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_star <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11613	11765	
==>} );
    }

    if ( exists $n->{exp2}{bare_block} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1200	1295	
==>r{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1200	1295	
==>r{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_heade <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15704	15828	
==>print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _em <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3974	4066	
==>ix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3974	4066	
==>ix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4594	4705	
==>airs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8071	8182	
==>airs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7064	7175	
==>airs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Se <==
3	/Users/nnunley/pugs/util/package-osx.pl	194	300	
==>parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remove <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	16	107	
==>::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	16	107	
==>::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1160	1342	
==>f Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1160	1342	
==>f Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16825	16930	
==>);

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16825	16930	
==>);

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16825	16930	
==>);

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1216	1331	
==>with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1216	1331	
==>with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1216	1331	
==>with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3736	3901	
==>}

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NU <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40241	40332	
==>Any versions of Locale::KeyedText that you modify and distribute must carry
prominent notice <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40241	40332	
==>Any versions of Locale::KeyedText that you modify and distribute must carry
prominent notice <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8181	8300	
==>plan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	396	503	
==>plan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	396	503	
==>plan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24505	24623	
==>et;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_strin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24505	24623	
==>et;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_strin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24505	24623	
==>et;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_strin <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4670	4884	
==>events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4670	4884	
==>events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3428	3587	
==>ew(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>). <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1602	1741	
==>);\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1602	1741	
==>);\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9120	9242	
==>isplay: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tes <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6610	6834	
==>otally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6610	6834	
==>otally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $mat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	163	253	
==>akeroot dir
$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) );

$INSTALLATIO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2137	2309	
==>er {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2384	2556	
==>er {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_ter <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17358	17476	
==>g.\n" if $bonusmsg;
            die "Failed $tot->{bad}/$tot->{tests} test scripts, $pct% okay.".
                "$sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39116	39242	
==>t->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39116	39242	
==>t->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39116	39242	
==>t->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{item <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	934	1028	
==>e Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	934	1028	
==>e Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7673	7781	
==>::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7673	7781	
==>::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7673	7781	
==>::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11512	11622	
==>>push_content(HTML::Element->new('pre')->push_content($text));
      
      my $link = {};
      $link->{linkfi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24593	24693	
==>return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21014	21114	
==>return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	210	334	
==>class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	210	334	
==>class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	210	334	
==>class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8277	8411	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8277	8411	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8277	8411	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$:: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1006	1132	
==>tem( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2638	2761	
==>ew prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2855	2978	
==>ew prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17562	17702	
==>bol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40831	40971	
==>bol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4132	4235	
==>ue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4132	4235	
==>ue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6329	6432	
==>ue. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10684	10826	
==>ry->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10684	10826	
==>ry->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10684	10826	
==>ry->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9435	9542	
==>>{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9435	9542	
==>>{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9435	9542	
==>>{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15411	15528	
==>ss (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15411	15528	
==>ss (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15411	15528	
==>ss (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            retur <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1726	1829	
==>istics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no dire <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1726	1829	
==>istics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no dire <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21426	21519	
==>ests added (specifically, making sure C<(?(N)T|F)> works right).
In doing so, found that the " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8861	8976	
==>ult) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8861	8976	
==>ult) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8861	8976	
==>ult) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5827	5930	
==>->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5827	5930	
==>->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5827	5930	
==>->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24239	24355	
==>~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20660	20776	
==>~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6561	6674	
==>f,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are applied 
package fun;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7324	7431	
==>RS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7324	7431	
==>RS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7324	7431	
==>RS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5883	6000	
==>] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*pu <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5883	6000	
==>] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*pu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5643	5738	
==>ns all the given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3025	3114	
==>fference($self: Set $other) returns Set {
    $self.difference($other).union($other.differ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3025	3114	
==>fference($self: Set $other) returns Set {
    $self.difference($other).union($other.differ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16730	16974	
==>e( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16730	16974	
==>e( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16730	16974	
==>e( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $arr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26600	26686	
==>converter->pass_as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2333	2455	
==>ts::Publisher is extended {
        use Set;
        has %.subscriptions of Set;

        # when you say add_subscription(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1700	1807	
==>me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1700	1807	
==>me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1700	1807	
==>me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12094	12224	
==>= $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  cla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2496	2612	
==>= $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

cla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2496	2612	
==>= $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23765	23856	
==>or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23765	23856	
==>or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6147	6248	
==>little jumbled or hard to understand.  If you find a problem,
please let L<me|/"AUTHOR"> know.

Docume <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23196	23287	
==>me and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23196	23287	
==>me and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E< <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3563	3682	
==>an> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3563	3682	
==>an> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3643	3762	
==>an> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6102	6219	
==>current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6102	6219	
==>current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	412	515	
==>D__

=pod

=head1 NAME 

nil - the base native nil type

=head1 METHODS

=over 4

=item B<new (*native*) <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	180	286	
==>::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10618	10710	
==>y
depending on their types, that their attributes have reasonable values, and
that attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10618	10710	
==>y
depending on their types, that their attributes have reasonable values, and
that attributes <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	885	986	
==>ec($prog, Bool::False, @args);
    }
    multi sub exec(@args) returns Bool is builtin is primitive is <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2697	2791	
==>er := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($tex <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2697	2791	
==>er := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($tex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5926	6054	
==>block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6119	6247	
==>block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	64	167	
==>0 2004-12-20 04:51:42Z andy $

package Test::Harness::Straps;

use strict;
use vars qw($VERSION);
use Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1029	1119	
==>in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1029	1119	
==>in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1029	1119	
==>in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------- <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	840	949	
==>rgs"; # XXX delme
        Pugs::Internals::exec($prog, Bool::False, @args);
    }
    multi sub exec(@args) re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2801	2908	
==>bel)) and (= $method ($current send (get_method $label)))
         (= $current (&dispatcher do))))
     ($me <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	474	570	
==>uct = $node->struct_equiv;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen}->inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13327	13446	
==>Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13327	13446	
==>Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13327	13446	
==>Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18787	18907	
==>ed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18787	18907	
==>ed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18787	18907	
==>ed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1504	1602	
==>stant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1504	1602	
==>stant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1504	1602	
==>stant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10858	11013	
==>() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10858	11013	
==>() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10858	11013	
==>() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17076	17200	
==>aster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20553	20677	
==>aster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20131	20255	
==>aster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3521	3626	
==>{ " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3521	3626	
==>{ " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3521	3626	
==>{ " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4727	4873	
==>[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4727	4873	
==>[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4727	4873	
==>[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4587	4742	
==>ype->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4587	4742	
==>ype->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4587	4742	
==>ype->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16987	17092	
==>ument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16987	17092	
==>ument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosett <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7436	7559	
==>x:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7436	7559	
==>x:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7436	7559	
==>x:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MU <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2292	2448	
==>clude_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13129	13224	
==>rsection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13129	13224	
==>rsection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2287	2430	
==>s[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2287	2430	
==>s[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2287	2430	
==>s[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1468	1603	
==>.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1468	1603	
==>.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1468	1603	
==>.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15613	15725	
==>hese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15613	15725	
==>hese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15613	15725	
==>hese are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7842	8015	
==>s' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7842	8015	
==>s' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7842	8015	
==>s' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8146	8294	
==>");
#           warning "PGE doesn't actually do :ignorecase yet.";
        }
        if %mods<s> || %mods<sigspace> {      
            $pre ~= ":s" <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4193	4293	
==>rt:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4193	4293	
==>rt:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	470	591	
==>ormal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	470	591	
==>ormal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	470	591	
==>ormal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH, $STORE);
} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	468	574	
==>epoindex  $Repodir    $Metaext

            package_prefix  package_authority   package_name  package_versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5836	5981	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5836	5981	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5836	5981	
==>tches our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2195	2311	
==>ode .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2195	2311	
==>ode .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2195	2311	
==>ode .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11829	12019	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11829	12019	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11829	12019	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
})) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32738	32835	
==>tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37288	37385	
==>tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36605	36702	
==>tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<exclusi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8004	8099	
==>ed, the next event fired will be
any text which follows the item.

=item I<end_element ('item')> <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8004	8099	
==>ed, the next event fired will be
any text which follows the item.

=item I<end_element ('item')> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2474	2560	
==>-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl-5.5.27/lib/x86_64-linux
my $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40145	40260	
==>$value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40145	40260	
==>$value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40145	40260	
==>$value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1580	1691	
==>->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1580	1691	
==>->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1580	1691	
==>->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6495	6628	
==>ans that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want to <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6495	6628	
==>ans that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4886	4984	
==>doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4886	4984	
==>doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4886	4984	
==>doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8454	8594	
==>01),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8454	8594	
==>01),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2007	2145	
==>compile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3080	3191	
==>wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3080	3191	
==>wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3080	3191	
==>wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy fo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1481	1603	
==>i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1481	1603	
==>i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_pa <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	313	431	
==>ude <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
main(int ac, char **av)
{
    int i;
#ifdef _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11265	11387	
==>ub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11265	11387	
==>ub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11265	11387	
==>ub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14688	14889	
==>trs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18165	18366	
==>trs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17581	17782	
==>trs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1461	1581	
==>p = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1428	1548	
==>p = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1864	1995	
==>ge .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1864	1995	
==>ge .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	331	439	
==>g
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7056	7214	
==>person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7056	7214	
==>person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	763	887	
==>) ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2189	2337	
==>is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            w <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2189	2337	
==>is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            w <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7861	7953	
==>1], @_[2, 3]) };
multi unify => ('type', 'type::variable::instantiated') => sub { unify($_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8299	8412	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # gra <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	608	716	
==>>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	608	716	
==>>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3887	3988	
==>f._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3887	3988	
==>f._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21412	21510	
==>has a name that is distinct from the other
attributes, though several attributes may store values o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25964	26062	
==>has a name that is distinct from the other
attributes, though several attributes may store values o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24597	24695	
==>has a name that is distinct from the other
attributes, though several attributes may store values o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2210	2315	
==>onnected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\1 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2210	2315	
==>onnected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7227	7366	
==>do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless depe <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7691	7830	
==>do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless depe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6862	6985	
==>); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6862	6985	
==>); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6862	6985	
==>); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12318	12472	
==>I $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12318	12472	
==>I $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	345	444	
==>ue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	345	444	
==>ue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	345	444	
==>ue") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() wo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	356	458	
==>s:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	356	458	
==>s:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	315	415	
==>def, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	315	415	
==>def, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	315	415	
==>def, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3146	3280	
==>([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3146	3280	
==>([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3146	3280	
==>([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $cl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9349	9473	
==>ge didn't provide any alternatives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3606	3701	
==>algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

B <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3606	3701	
==>algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

B <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1554	1653	
==>ode written in C<$lang>. C<Perl6> is the
    # only required language, but supporting C<Perl5> is I< <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9646	9741	
==>class handles an infinite recurrence set, defined with closures. 

A recurrence set is defined b <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9646	9741	
==>class handles an infinite recurrence set, defined with closures. 

A recurrence set is defined b <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	778	1041	
==>e {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_pa <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	778	1041	
==>e {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_pa <==
3	/Users/nnunley/pugs/util/claim_drift.pl	729	827	
==>y $orig (glob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${F <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	947	1156	
==>ork yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current s <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	947	1156	
==>ork yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2735	2830	
==>> that performs the actions denoted by
the AST, ultimately flattenning the tree down to a single <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	713	822	
==>e { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	713	822	
==>e { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	713	822	
==>e { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1344	1465	
==>tr) returns Str is builtin is primitive {
    lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1669	1766	
==>S

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at l <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1669	1766	
==>S

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	982	1103	
==>IL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	982	1103	
==>IL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	982	1103	
==>IL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	427	534	
==>::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = calle <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	427	534	
==>::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = calle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4123	4223	
==>orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/perl6>.

- the Perl 6 Synops <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2266	2374	
==>f $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2266	2374	
==>f $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6765	6875	
==>an => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6765	6875	
==>an => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1. <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6520	6612	
==>able 'ghc' from path.
*** Please install GHC (6.4.1 or above) from http://haskell.org/ghc/.
. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6057	6150	
==>{ PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6057	6150	
==>{ PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6057	6150	
==>{ PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Req <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9306	9406	
==>ns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12783	12883	
==>ns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14457	14553	
==>ure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%-------------------------

re_reverse( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9382	9575	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9382	9575	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9382	9575	
==>uperclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	677	790	
==>= &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	677	790	
==>= &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	677	790	
==>= &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	321	429	
==>" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	321	429	
==>" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	321	429	
==>" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4201	4371	
==>se $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4201	4371	
==>se $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7446	7554	
==>s' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want these roles
    '%:methods' => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13000	13108	
==>heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16477	16585	
==>heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15839	15947	
==>heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-produ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3602	3719	
==>e3',  $file3,  "3rd line\n2nd line\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	424	523	
==>lit(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	424	523	
==>lit(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7652	7826	
==>$count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7652	7826	
==>$count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7652	7826	
==>$count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	203	319	
==>has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	203	319	
==>has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4477	4572	
==>alt(\@tokens));
# tokens should be longest-match-first, but that's simple too, and the
# differe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2713	2809	
==>cope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2713	2809	
==>cope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2713	2809	
==>cope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38135	38258	
==>said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42684	42807	
==>said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42334	42457	
==>said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	349	454	
==>anidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	349	454	
==>anidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	349	454	
==>anidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6874	6967	
==>her) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6874	6967	
==>her) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6874	6967	
==>her) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2985	3107	
==>case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2985	3107	
==>case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2403	2501	
==>_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* r, char* stringarg, char* st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1907	2011	
==>)
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1907	2011	
==>)
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1907	2011	
==>)
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12183	12318	
==>${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12183	12318	
==>${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12183	12318	
==>${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1805	1961	
==>y \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1793	1949	
==>y \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$c <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	41	130	
==>Module/Install/Can.pm"
package Module::Install::Can;
use Module::Install::Base; @ISA = qw( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10048	10160	
==>tributes;
    # -----------------------------------------------    
      
    # -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10048	10160	
==>tributes;
    # -----------------------------------------------    
      
    # -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10048	10160	
==>tributes;
    # -----------------------------------------------    
      
    # -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9647	9828	
==>st(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      =>  $reason,
              desc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1736	1907	
==>st(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1736	1907	
==>st(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      =>  $reason,
            desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6208	6308	
==>jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6208	6308	
==>jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6208	6308	
==>jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	105	204	
==>se warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	105	204	
==>se warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
su <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	999	1095	
==>s existence.  Normally this
# kind of reverse-engineered implicit abstraction kludge would be
# u <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1367	1597	
==>e_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1367	1597	
==>e_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4289	4408	
==>](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (i <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	127	247	
==>pec;
use File::Basename;
use IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $self = shift;

    my $install_versio <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	370	489	
==>$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3046	3198	
==>ename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3263	3415	
==>ename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	251	349	
==>M, 'Sequence (?#... not terminated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13191	13326	
==>ss here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13191	13326	
==>ss here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13191	13326	
==>ss here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	513	627	
==>assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	513	627	
==>assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	513	627	
==>assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5508	5629	
==>nt::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5508	5629	
==>nt::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5508	5629	
==>nt::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1076	1174	
==>ls::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1076	1174	
==>ls::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1076	1174	
==>ls::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23626	23748	
==>er('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20047	20169	
==>er('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1156	1284	
==>ig{installman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_pat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	802	889	
==>setta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	802	889	
==>setta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1963	2080	
==>nce_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1963	2080	
==>nce_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1963	2080	
==>nce_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($method, $self) <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	617	747	
==>lon) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $targe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3264	3380	
==>ecksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3264	3380	
==>ecksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5759	5895	
==>name = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5759	5895	
==>name = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5759	5895	
==>name = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	829	964	
==>soc => 'left',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8302	8404	
==>tion, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been rev <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8302	8404	
==>tion, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7597	7742	
==>" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7597	7742	
==>" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7597	7742	
==>" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6659	6773	
==>d really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6659	6773	
==>d really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6659	6773	
==>d really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Matc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4287	4425	
==>trol $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up th <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11062	11190	
==>l5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11062	11190	
==>l5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_ent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5563	5675	
==>fault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5563	5675	
==>fault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5563	5675	
==>fault  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11248	11372	
==>h; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11248	11372	
==>h; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11248	11372	
==>h; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1279	1411	
==>yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1279	1411	
==>yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1279	1411	
==>yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $defau <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9018	9126	
==>s>?
}
rule SingleStringCharacters {  # see 7.8.4
      <SingleStringCharacter> <SingleStringCharacters>?
}
ru <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18791	18888	
==>ich we are not prepared to
support (such as modification of the compiled re op tree the native
com <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3081	3178	
==>ich we are not prepared to
support (such as modification of the compiled re op tree the native
com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	721	835	
==>ift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	721	835	
==>ift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	721	835	
==>ift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11484	11627	
==>code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11484	11627	
==>code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11484	11627	
==>code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1157	1264	
==>hift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1157	1264	
==>hift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1157	1264	
==>hift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4922	5120	
==>lue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4922	5120	
==>lue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4922	5120	
==>lue' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	11	129	
==>::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	11	129	
==>::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	11	129	
==>::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	527	725	
==>t
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	527	725	
==>t
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	527	725	
==>t
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4325	4468	
==>nt.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4325	4468	
==>nt.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($c <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	126	222	
==>r($testdir);
die "Could not create '$testdir':$!" unless -d $testdir;

open(my $F, ">$testdir/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1017	1169	
==>t_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Ke <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1017	1169	
==>t_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4353	4483	
==>$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4353	4483	
==>$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4353	4483	
==>$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4883	5004	
==>var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4883	5004	
==>var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5473	5594	
==>var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Da <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11595	11794	
==>0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7877	8076	
==>0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8711	8910	
==>0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2035	2157	
==>\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2023	2145	
==>\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4330	4441	
==>turn;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm -rf $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5100	5325	
==>ethod_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5100	5325	
==>ethod_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5100	5325	
==>ethod_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $ver <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3643	3736	
==>y dirty part is C<reduce_sym> which must handle recursive calls.

The compiler inherits L<Blon <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	139	230	
==>t
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!W <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	139	230	
==>t
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!W <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3316	3413	
==>head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3316	3413	
==>head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5513	5610	
==>head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3608	3717	
==>cript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3608	3717	
==>cript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3608	3717	
==>cript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21663	21785	
==>0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21663	21785	
==>0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21663	21785	
==>0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21459	21620	
==>defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21459	21620	
==>defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21459	21620	
==>defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1634	1758	
==>e array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1634	1758	
==>e array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1634	1758	
==>e array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	634	722	
==>------------------------------------------------------
## private methods

my method set_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	634	722	
==>------------------------------------------------------
## private methods

my method set_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1813	1904	
==>")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::Rule->compile(q(<'regex'> <rule_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	793	884	
==>4main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	793	884	
==>4main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	793	884	
==>4main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1165	1281	
==>->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1165	1281	
==>->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1165	1281	
==>->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6857	6962	
==>self.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6857	6962	
==>self.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5789	5891	
==>ment'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\.\.) \;
        { retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	983	1068	
==>6main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	983	1068	
==>6main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	983	1068	
==>6main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{ke <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5424	5542	
==>se => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5424	5542	
==>se => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11160	11292	
==>roxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11160	11292	
==>roxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11160	11292	
==>roxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33003	33102	
==>y tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37553	37652	
==>y tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36897	36996	
==>y tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disjoint_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13875	14028	
==>see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_chang <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13875	14028	
==>see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_chang <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13875	14028	
==>see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_chang <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21283	21379	
==>.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Pe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21283	21379	
==>.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	631	725	
==>'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	631	725	
==>'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $o <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	77	167	
==>w.perlmonks.org/?node_id=438876
# For historical interest, I've left this program pretty mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	700	797	
==>nfix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	700	797	
==>nfix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	700	797	
==>nfix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10544	10635	
==>t
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10544	10635	
==>t
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4047	4168	
==>oot::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4047	4168	
==>oot::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4047	4168	
==>oot::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19296	19393	
==>,
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures(Ex,Cx),
  % append <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3204	3297	
==>t shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3204	3297	
==>t shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5202	5325	
==>tive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been givin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5202	5325	
==>tive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been givin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5202	5325	
==>tive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been givin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8671	8765	
==>urn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8671	8765	
==>urn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4610	4790	
==>ckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4610	4790	
==>ckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4610	4790	
==>ckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4255	4353	
==>lass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4255	4353	
==>lass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4255	4353	
==>lass_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	298	423	
==>e for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	298	423	
==>e for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	298	423	
==>e for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1315	1420	
==>can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1315	1420	
==>can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1315	1420	
==>can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub prelu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5945	6050	
==>, !.
p5_elemental(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_elemen <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9807	9906	
==>export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9807	9906	
==>export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_ent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9447	9561	
==>_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9447	9561	
==>_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9447	9561	
==>_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1316	1420	
==>ie "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part of spec.  ee <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3015	3108	
==>hen /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")} <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3015	3108	
==>hen /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16836	16932	
==>hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (tha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16836	16932	
==>hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (tha <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24952	25047	
==>type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → β → γ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3955	4048	
==>}));

## ----------------------------------------------------------------------------
## BEGIN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3955	4048	
==>}));

## ----------------------------------------------------------------------------
## BEGIN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3955	4048	
==>}));

## ----------------------------------------------------------------------------
## BEGIN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	950	1049	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	950	1049	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	950	1049	
==>${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	333	465	
==>_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $inpu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	333	465	
==>_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $inpu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10509	10636	
==>lternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	199	311	
==>w( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3276	3380	
==>thod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <si <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3276	3380	
==>thod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <si <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7470	7573	
==>ix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7470	7573	
==>ix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7470	7573	
==>ix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38589	38697	
==>rator that takes a single Relation::Example
in its C<$other> argument, where the heading of <$other> is a sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	902	1005	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message objec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	902	1005	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message objec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11972	12091	
==>lass, \nnn might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9880	9987	
==>f $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9880	9987	
==>f $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %msg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19182	19327	
==>sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19182	19327	
==>sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19182	19327	
==>sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1951	2067	
==>$message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1951	2067	
==>$message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25169	25264	
==>an have no
more than a single tuple.  A zero-attribute Relation::Example with zero tuples or
one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8442	8551	
==>ake_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8442	8551	
==>ake_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8442	8551	
==>ake_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5397	5511	
==>body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5397	5511	
==>body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5397	5511	
==>body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PI <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22303	22409	
==>es> <CaseClause>
}
rule CaseClause :words {  # see 12.11
      <'case'> <Expression> <':'> <StatementList>? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3094	3191	
==>quest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3094	3191	
==>quest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1123	1233	
==>$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1123	1233	
==>$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\" <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2612	2699	
==>tem C<$Test::Harness::switches>

The package variable C<$Test::Harness::switches> is exp <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	658	783	
==>_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	658	783	
==>_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2511	2634	
==>haustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2511	2634	
==>haustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2511	2634	
==>haustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4383	4500	
==>lo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4383	4500	
==>lo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4383	4500	
==>lo there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->na <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10246	10359	
==>tical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13723	13836	
==>tical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13004	13117	
==>tical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	21	122	
==>::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	21	122	
==>::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	21	122	
==>::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	43	141	
==>head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role does NameSpace;

=head1 DE <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12198	12294	
==>e
object support. Once object support is created, we will add it here, and
maintain backwards com <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12256	12352	
==>e
object support. Once object support is created, we will add it here, and
maintain backwards com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2973	3072	
==>@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2973	3072	
==>@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2973	3072	
==>@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4586	4689	
==>::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4586	4689	
==>::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4586	4689	
==>::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11771	11866	
==>::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11771	11866	
==>::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11771	11866	
==>::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22275	22380	
==>n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22275	22380	
==>n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22275	22380	
==>n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6424	6536	
==>($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6424	6536	
==>($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6424	6536	
==>($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MR <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5698	5833	
==>p  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->param <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13747	13854	
==>object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13747	13854	
==>object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3063	3178	
==>itive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3063	3178	
==>itive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3063	3178	
==>itive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9690	9800	
==>e invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13167	13277	
==>e invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12439	12549	
==>e invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23122	23322	
==>p->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23122	23322	
==>p->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23122	23322	
==>p->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1008	1124	
==>f    = shift;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from_str <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3800	3910	
==>f->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5160	5269	
==>f->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7543	7681	
==>y used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7555	7693	
==>y used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRA <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25650	25747	
==>gmust matched is the earliest possible start of the match.
 * For instance, /[a-z].foo/ has a regm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8187	8306	
==>arn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8187	8306	
==>arn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8187	8306	
==>arn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12684	12777	
==>racter entities.  The module provides the following functions:

=over 4

=item decode_entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12684	12777	
==>racter entities.  The module provides the following functions:

=over 4

=item decode_entities <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	33	141	
==>05-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	33	141	
==>05-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	33	141	
==>05-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5170	5289	
==>@_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5170	5289	
==>@_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5170	5289	
==>@_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10060	10185	
==>ds'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3211	3332	
==>ple to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Eac <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1358	1468	
==>'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9215	9354	
==>rn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9215	9354	
==>rn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9215	9354	
==>rn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items sh <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5708	5859	
==>$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->param(files => $total_files);
$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5922	6016	
==>wever, to override 
any method for speed--although they should be careful to avoid changing the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5922	6016	
==>wever, to override 
any method for speed--although they should be careful to avoid changing the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16564	16675	
==>MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16564	16675	
==>MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16564	16675	
==>MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2992	3119	
==>" . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2992	3119	
==>" . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2992	3119	
==>" . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2045	2169	
==>ed ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ $extract <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1965	2086	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ $extract <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	147	257	
==>lass             ();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $set = JIB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19596	19689	
==>o_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19596	19689	
==>o_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19596	19689	
==>o_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18622	18751	
==>e can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18622	18751	
==>e can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18622	18751	
==>e can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	66	173	
==>_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	66	173	
==>_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	66	173	
==>_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4719	4820	
==>item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 RO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4719	4820	
==>item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 RO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6916	7017	
==>item C<?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 RO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4113	4213	
==>f.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4113	4213	
==>f.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1707	1794	
==>st/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_harness_args,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2261	2363	
==>'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2261	2363	
==>'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2261	2363	
==>'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9324	9435	
==>charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9324	9435	
==>charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14391	14495	
==>1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CON <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14391	14495	
==>1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CON <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4688	4789	
==>test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4688	4789	
==>test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6885	6986	
==>test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4913	5018	
==>essed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4913	5018	
==>essed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4913	5018	
==>essed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23988	24100	
==>rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23988	24100	
==>rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23988	24100	
==>rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5478	5584	
==>tantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5478	5584	
==>tantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5478	5584	
==>tantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9025	9159	
==>se
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $sel <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1169	1287	
==>se
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $sel <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1169	1287	
==>se
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8279	8394	
==>ral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <Deci <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8485	8574	
==>@statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2310	2399	
==>@statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3192	3313	
==>her) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3192	3313	
==>her) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3192	3313	
==>her) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slic <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2019	2126	
==>ibute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1701	1804	
==>ibute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7000	7107	
==>$real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7000	7107	
==>$real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3405	3516	
==>->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3405	3516	
==>->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3405	3516	
==>->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24263	24395	
==>S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # turn the flag off
      el <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	105	220	
==>w;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	105	220	
==>w;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12318	12493	
==>rammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12312	12487	
==>rammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2182	2313	
==>)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    % <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2182	2313	
==>)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1457	1569	
==>assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1457	1569	
==>assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1457	1569	
==>assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9045	9171	
==>ift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9045	9171	
==>ift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $ <==
3	/Users/nnunley/pugs/util/grokprims.pl	2053	2170	
==>a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3061	3178	
==>y $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3562	3679	
==>y $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self- <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	122	229	
==>h;

sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~~ s:perl5:g/[^A-Z]//;
    if !( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	47	149	
==>!\pause
#=Perl 5: sechs mal würfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: sechs mal wür <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7525	7623	
==>alize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7525	7623	
==>alize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4903	5031	
==>ll_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4903	5031	
==>ll_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4903	5031	
==>ll_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9935	10066	
==>.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9935	10066	
==>.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9935	10066	
==>.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3112	3301	
==>2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3112	3301	
==>2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3112	3301	
==>2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	350	454	
==>ngy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	350	454	
==>ngy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9785	9889	
==>evel
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	18	161	
==>ixes the config for us
BEGIN { require 'conf.pl' }

use JIB::Config;
use JIB::Source;

use Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

f <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2203	2298	
==>face

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2203	2298	
==>face

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4107	4197	
==>6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/pe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	754	854	
==>ars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronise <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20393	20487	
==>of Relation is entirely object-oriented; you use it by
creating objects from its member classes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24945	25039	
==>of Relation is entirely object-oriented; you use it by
creating objects from its member classes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7066	7201	
==>ugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7066	7201	
==>ugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ / <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2178	2275	
==>ondie::App->new(
			Blondie::TypeSafe::Annotation->new(
				type => [$from => $to],
				struct_equ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1736	1843	
==>f $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1736	1843	
==>f $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1736	1843	
==>f $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5459	5554	
==>t available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5459	5554	
==>t available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5459	5554	
==>t available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14434	14524	
==>::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@IN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14434	14524	
==>::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@IN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14434	14524	
==>::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@IN <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14909	15027	
==>ar *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses */

T <==
3	/Users/nnunley/pugs/util/package-osx.pl	1116	1213	
==>r/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/histo <==
3	/Users/nnunley/pugs/util/package-osx.pl	3426	3523	
==>r/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/histo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15196	15291	
==>nt.  This interface is rigorously defined, such that there
should be no ambiguity when trying to <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15196	15291	
==>nt.  This interface is rigorously defined, such that there
should be no ambiguity when trying to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7693	7802	
==>normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7693	7802	
==>normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20183	20315	
==>ined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20183	20315	
==>ined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20183	20315	
==>ined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10664	10776	
==>('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still br <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10664	10776	
==>('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still br <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10664	10776	
==>('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still br <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	412	513	
==>BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	412	513	
==>BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	412	513	
==>BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8308	8511	
==>k for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8308	8511	
==>k for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8308	8511	
==>k for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10037	10195	
==>@_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10037	10195	
==>@_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10037	10195	
==>@_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3397	3545	
==>) )->code;

sub recompile {
    my $class = shift;
    %hash = (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::T <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4152	4259	
==>do, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4210	4317	
==>do, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depend <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8570	8695	
==>pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_noclose
    $I1 <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	668	766	
==>because I am hoping that perl6
# and the new module functionality will not need it. Althoug this ma <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	668	766	
==>because I am hoping that perl6
# and the new module functionality will not need it. Althoug this ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2960	3120	
==>]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2960	3120	
==>]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2960	3120	
==>]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1390	1497	
==>& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1390	1497	
==>& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1390	1497	
==>& array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1358	1454	
==>unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1358	1454	
==>unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1358	1454	
==>unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9738	9866	
==>$xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9738	9866	
==>$xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9738	9866	
==>$xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	492	602	
==>ro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Item | Junction;

package Math: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5228	5326	
==>ode above).  This lets you to
do anything you like with each object, but is (at least nominally)
in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5228	5326	
==>ode above).  This lets you to
do anything you like with each object, but is (at least nominally)
in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5228	5326	
==>ode above).  This lets you to
do anything you like with each object, but is (at least nominally)
in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52293	52413	
==>---------------
## finishing up the boostrapping

# < Class is subclass of Object >
$::Class->set_attr(symbol->new('@:sup <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1204	1317	
==>param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1204	1317	
==>param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2586	2696	
==>ver separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2586	2696	
==>ver separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20999	21174	
==>nstant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21278	21453	
==>nstant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::captur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	880	981	
==>Strap = Test::Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = q <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16761	16916	
==>al data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21859	22014	
==>al data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10633	10755	
==>uant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1246	1358	
==>t => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1213	1325	
==>t => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->bin <==
3	/Users/nnunley/pugs/util/package-osx.pl	7462	7550	
==>n/man3/Perl6::Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Spec::Documentatio <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2809	2924	
==>$node = shift;

	exists $self->{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = shift;

	$self- <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1806	1915	
==>y   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Dat <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1806	1915	
==>y   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2416	2664	
==>$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2416	2664	
==>$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2416	2664	
==>$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3275	3364	
==>where else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fgloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3160	3245	
==>where else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fgloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2868	2964	
==>s->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2868	2964	
==>s->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2868	2964	
==>s->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1716	1847	
==>shift;
        my %hash  = @_;
        
        ### might get params for underlying classes
        local $Params::Check::ALLOW_UNKN <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12581	12682	
==>) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6056	6157	
==>) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3909	4003	
==>lass refs to itself');
is($Class->name, 'Class', '... $Class got the right method return value' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5811	5905	
==>lass refs to itself');
is($Class->name, 'Class', '... $Class got the right method return value' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17627	17814	
==>sa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17627	17814	
==>sa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17627	17814	
==>sa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2934	3088	
==>>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Junction>),
                        Tree.new(:node<Scalar::Const <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3819	3919	
==>. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3819	3919	
==>. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1523	1648	
==>{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @matches <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7875	7975	
==>the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This rout <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7875	7975	
==>the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This rout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14919	15057	
==>rgument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14919	15057	
==>rgument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14919	15057	
==>rgument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	172	288	
==>Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH(). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	172	288	
==>Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH(). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	172	288	
==>Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH(). <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1074	1182	
==>);
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1074	1182	
==>);
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1074	1182	
==>);
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8375	8567	
==>le( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            cho <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18874	18965	
==>tta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18874	18965	
==>tta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12283	12391	
==>+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERR <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12283	12391	
==>+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERR <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	518	610	
==>e->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16380	16476	
==>ed).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16380	16476	
==>ed).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent N <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	515	769	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	515	769	
==>return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29597	29728	
==>ummary.

Rework the test summary so long test names are not truncated as badly.
(Partially done with new skip test styles)

Add opti <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26792	26904	
==>see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #Source <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10365	10472	
==>UT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the comma <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10365	10472	
==>UT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	666	759	
==>}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	666	759	
==>}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	666	759	
==>}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8520	8640	
==>{
    # Force a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (exists $su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6612	6711	
==>of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy interna <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6612	6711	
==>of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	352	466	
==>irst_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	352	466	
==>irst_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	352	466	
==>irst_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8347	8457	
==>lass_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8347	8457	
==>lass_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8347	8457	
==>lass_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	658	762	
==>ances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	658	762	
==>ances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	658	762	
==>ances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11038	11196	
==>', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11038	11196	
==>', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2516	2615	
==>ndef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2516	2615	
==>ndef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2516	2615	
==>ndef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14276	14370	
==>NV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14276	14370	
==>NV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14276	14370	
==>NV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1656	1767	
==>encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1656	1767	
==>encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1656	1767	
==>encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13886	14022	
==>> {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13886	14022	
==>> {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13886	14022	
==>> {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6496	6648	
==>d ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends wor <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6554	6706	
==>d ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends wor <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18297	18399	
==>>
}
rule ConditionalExpression :words {  # see 11.12
      <LogicalORExpression>
    | <LogicalORExpres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1466	1565	
==>fg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1466	1565	
==>fg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1466	1565	
==>fg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1213	1430	
==>size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1213	1430	
==>size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6072	6230	
==>new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimplemented";
    }
    if($cls eq 'IO') {
	die "unimplemented";
    }
    if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5125	5260	
==>g - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5125	5260	
==>g - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5125	5260	
==>g - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	140	247	
==>has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31568	31665	
==>y likewise, and a program which uses both libraries
could have yet another set for itself.  When t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31568	31665	
==>y likewise, and a program which uses both libraries
could have yet another set for itself.  When t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	466	602	
==>tmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	466	602	
==>tmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	466	602	
==>tmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Ad <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2241	2338	
==>imative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully fun <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2241	2338	
==>imative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully fun <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1916	2011	
==>ed != $sent and $reduced->isa("Blondie::Thunk"); # FIXME - enforce param checking on stubs or pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15294	15434	
==>ot implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15288	15428	
==>ot implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	181	282	
==>mplement the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16917	17015	
==>e argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16917	17015	
==>e argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2765	2943	
==>s (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6242	6420	
==>s (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5172	5350	
==>s (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Rel <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11995	12117	
==>n for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parrot_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9436	9530	
==>ibute-value pairs also called fields, which
may be repeated, and which are printed in a particu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9436	9530	
==>ibute-value pairs also called fields, which
may be repeated, and which are printed in a particu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2893	2991	
==>EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2893	2991	
==>EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2893	2991	
==>EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->superclass <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1136	1329	
==>s;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1136	1329	
==>s;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7726	7849	
==>sion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7726	7849	
==>sion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7726	7849	
==>sion 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2867	2967	
==>turns the names of all the parameters as a list.  The order in which they were
present in the query s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2867	2967	
==>turns the names of all the parameters as a list.  The order in which they were
present in the query s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20839	20937	
==>}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_parent} || "../")  . " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	914	1016	
==>org/pipermail/python-list/2005-March/270531.html
# and converted to Ruby, ...
# and then converted to p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13137	13251	
==>ss="indent3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1197	1300	
==>r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my S <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1197	1300	
==>r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	906	1000	
==>th 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	906	1000	
==>th 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	906	1000	
==>th 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30338	30463	
==>len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30338	30463	
==>len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30338	30463	
==>len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $le <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8227	8315	
==>k>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8227	8315	
==>k>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1361	1529	
==>n { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub multi method submethod
        my our has
    ) ) {
        __ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7510	7638	
==>rr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7510	7638	
==>rr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1482	1600	
==>@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1482	1600	
==>@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return <==
3	/Users/nnunley/pugs/util/package-osx.pl	7610	7707	
==>3pm
        /usr/local/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/Perl6::Spec:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3188	3321	
==>ush(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3188	3321	
==>ush(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3188	3321	
==>ush(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9504	9615	
==>$p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fail <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9504	9615	
==>$p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fail <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9504	9615	
==>$p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code fail <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1843	1937	
==>rs" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This pro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1843	1937	
==>rs" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7733	7838	
==>ool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9661	9766	
==>ool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7721	7826	
==>ool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	429	528	
==>ARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	429	528	
==>ARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3054	3156	
==>Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is ni <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3054	3156	
==>Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is ni <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25162	25258	
==>riable::free->new,
	);
	is($type->stringify, "∀α. ∀β. (α × β)", "pretty print a x b");
} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23577	23681	
==>value"}} })'
}
sub p6_loop_CODE {
    my($body)=@_;
    # the caller is responsible for providing any val <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3237	3320	
==>get_intersection( $self.complement_previous, $self.complement_next, $set.complement_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3237	3320	
==>get_intersection( $self.complement_previous, $self.complement_next, $set.complement_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19088	19184	
==>an one argument"), which is also the basis of the relational
data model proposed by Edgar. F. Cod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22738	22834	
==>an one
argument"), which is also the basis of the relational data model proposed
by Edgar. F. Cod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7477	7591	
==>d1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7477	7591	
==>d1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1236	1348	
==>ine =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1750	1880	
==>s -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5227	5357	
==>s -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4157	4287	
==>s -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	507	660	
==>str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input - <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	507	660	
==>str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1701	1824	
==>'NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1701	1824	
==>'NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1701	1824	
==>'NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	253	372	
==>S::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	253	372	
==>S::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	253	372	
==>S::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4356	4562	
==>_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF! <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4356	4562	
==>_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF! <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5339	5446	
==>t () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5339	5446	
==>t () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4182	4288	
==>ash ) or error(Params::Check->last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    my $cont <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1334	1509	
==>'
                new_arr = Array.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr) <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	870	986	
==>mark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	870	986	
==>mark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1289	1401	
==>Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1289	1401	
==>Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1289	1401	
==>Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1494	1603	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1494	1603	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE> <==
3	/Users/nnunley/pugs/util/drift.pl	972	1072	
==>ram;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header = split /^/m, < <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9020	9114	
==>"Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=hea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9020	9114	
==>"Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=hea <==
3	/Users/nnunley/pugs/util/package-osx.pl	2268	2358	
==>S /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3109	3985	
==>ing

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13197	13295	
==>ed yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provide <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13255	13353	
==>ed yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provide <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6665	6799	
==>= @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6665	6799	
==>= @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1118	1230	
==>s $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1118	1230	
==>s $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1118	1230	
==>s $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2952	3181	
==>}
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2952	3181	
==>}
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2952	3181	
==>}
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4019	4139	
==>-> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4019	4139	
==>-> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unl <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	129	267	
==>al $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaL <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	124	262	
==>al $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1673	1779	
==>)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$file <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12720	12863	
==>t \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8994	9137	
==>t \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9829	9972	
==>t \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14436	14529	
==>te('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14436	14529	
==>te('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14436	14529	
==>te('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6778	6876	
==>$from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6778	6876	
==>$from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6778	6876	
==>$from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6290	6387	
==>values %{ $syn_indexs->{S} }) ] ); 
    $template->param("exe", [ sort { $a->{name} cmp $b->{name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6104	6234	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6104	6234	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6104	6234	
==>lue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2361	2452	
==>:MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2361	2452	
==>:MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2361	2452	
==>:MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28510	28617	
==>ts keys being the new tuple-valued attribute names and each of its values
the set of old attribute names tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33062	33169	
==>ts keys being the new tuple-valued attribute names and each of its values
the set of old attribute names tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32190	32297	
==>ts keys being the new tuple-valued attribute names and each of its values
the set of old attribute names tha <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3826	3913	
==>ild ::= &Tree::insert_children;

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3826	3913	
==>ild ::= &Tree::insert_children;

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1306	1438	
==>ams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1306	1438	
==>ams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1306	1438	
==>ams = @_;
            return _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3195	3345	
==>> 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4055	4148	
==>> $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4055	4148	
==>> $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4207	4313	
==>tr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4207	4313	
==>tr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4207	4313	
==>tr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	442	554	
==>G_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	442	554	
==>G_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12102	12201	
==>f the C<PERL5LIB> environment variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PER <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	359	494	
==>ta::Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symbol nil type  
        list hash referenc <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3634	3736	
==>ne\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11th line\n10th lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1245	1344	
==>?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1245	1344	
==>?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1245	1344	
==>?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28874	29038	
==>ms ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28874	29038	
==>ms ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28874	29038	
==>ms ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7392	7539	
==>est++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) {
        prin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4357	4448	
==>calization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4357	4448	
==>calization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale: <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2280	2399	
==>:Subscription;

    has $.name;

    role Class::Events::Publisher is extended {
        use Set;
        has %.subscrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24335	24573	
==>oxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24335	24573	
==>oxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24335	24573	
==>oxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2532	2654	
==>m, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq " <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4457	4560	
==>,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0. <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4457	4560	
==>,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2712	2840	
==>ar ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2712	2840	
==>ar ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2712	2840	
==>ar ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11669	11784	
==>t => sub { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2975	3074	
==>~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning un <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2975	3074	
==>~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8745	8936	
==>t should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5105	5296	
==>t should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5954	6145	
==>t should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unle <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7513	7635	
==>ard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7513	7635	
==>ard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	749	845	
==>new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	749	845	
==>new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7909	8055	
==>}
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expire <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7909	8055	
==>}
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expire <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8455	8567	
==>sult;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 violation\n"); ex <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14074	14178	
==>Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14074	14178	
==>Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2018	2113	
==>ect-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1942	2033	
==>ect-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1371	1500	
==>);
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1371	1500	
==>);
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1371	1500	
==>);
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3138	3234	
==>th (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3138	3234	
==>th (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_pat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32026	32115	
==>spatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO.reverse <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12340	12437	
==>$set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12340	12437	
==>$set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1442	1539	
==>ymbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1268	1366	
==>w_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1268	1366	
==>w_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1268	1366	
==>w_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	145	247	
==>rted by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t:: <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	112	214	
==>rted by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t:: <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	158	260	
==>rted by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t:: <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2096	2200	
==>ect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.ind <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2096	2200	
==>ect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.ind <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34719	34816	
==>, in which case
this method returns the identity-one Relation::Example or the invocant relation,
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8196	8320	
==>n:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8196	8320	
==>n:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8196	8320	
==>n:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10964	11068	
==>ined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10964	11068	
==>ined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10964	11068	
==>ined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working no <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	659	769	
==>ny(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18818	19010	
==>ternals::sprintf(lc($conversion),1.0*$arg);
            }
            when '%' {
                $str ~= '%';
            }
            default {
                die "sprintf does not yet imple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3175	3322	
==>bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3050	3192	
==>bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2220	2313	
==>:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2220	2313	
==>:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2220	2313	
==>:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10414	10557	
==>=> undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10414	10557	
==>=> undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10414	10557	
==>=> undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6725	6814	
==>elf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6725	6814	
==>elf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6725	6814	
==>elf != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11098	11192	
==>t, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11156	11250	
==>t, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1371	1482	
==>) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1371	1482	
==>) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1371	1482	
==>) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7069	7193	
==>}

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7069	7193	
==>}

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7069	7193	
==>}

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2388	2500	
==>$metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2388	2500	
==>$metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2388	2500	
==>$metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2559	2713	
==>_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2764	2918	
==>_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3836	3990	
==>_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4953	5065	
==>:protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4953	5065	
==>:protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4953	5065	
==>:protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11782	11880	
==>les can be polymorphic to one another. 

Because instances of class all conform to the Role interfa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11782	11880	
==>les can be polymorphic to one another. 

Because instances of class all conform to the Role interfa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11782	11880	
==>les can be polymorphic to one another. 

Because instances of class all conform to the Role interfa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12462	12579	
==>\$runperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= " \xB <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	676	765	
==>mmar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	676	765	
==>mmar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1764	1903	
==>{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1764	1903	
==>{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1764	1903	
==>{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	59	160	
==>ier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	55	156	
==>ier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	55	156	
==>ier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	538	652	
==>d('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	538	652	
==>d('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	538	652	
==>d('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	138	257	
==>) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	138	257	
==>) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	138	257	
==>) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	168	284	
==>gs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	168	284	
==>gs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	168	284	
==>gs.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1120	1219	
==>mmar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1120	1219	
==>mmar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGramma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5793	5894	
==>\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5793	5894	
==>\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3254	3353	
==>ess { %options } => $class;
}

sub params  { (shift)->{params}  }
sub returns { (shift)->{returns} } <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	453	607	
==>.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	453	607	
==>.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37467	37555	
==>alias named C<intersect>.

=item C<intersection (Relation::Example *@others) returns Rela <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2936	3040	
==>) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2936	3040	
==>) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $c <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13319	13421	
==>th will not be available in the index (eval $loc failed: $@)" if $@;
  $total_links += $links;
  $total <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23430	23548	
==>n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23430	23548	
==>n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23430	23548	
==>n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20011	20107	
==>have the user language data in separate
files (usually XML files I think) from the main program b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20011	20107	
==>have the user language data in separate
files (usually XML files I think) from the main program b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5527	5614	
==>ct_equiv->isa("Blondie::Param")) {
				push @params, $self->resolve_type($sub->accepts_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4611	4710	
==>ub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4611	4710	
==>ub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4611	4710	
==>ub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19934	20031	
==>t is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensiona <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24486	24583	
==>t is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensiona <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23038	23135	
==>t is more mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensiona <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13632	13733	
==>lease umount \"$initrd_img\" by entering the following command as root:
      # umount $initrd_img
HEL <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	714	801	
==>on, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pug <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	714	801	
==>on, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pug <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7814	7924	
==>$!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7093	7189	
==>ipher mode role to add some information to the output.

A default implementation of this method i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7093	7189	
==>ipher mode role to add some information to the output.

A default implementation of this method i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36146	36295	
==>ody=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36146	36295	
==>ody=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36146	36295	
==>ody=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tail );
            ( $len_tail, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	216	346	
==>s have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	216	346	
==>s have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	216	346	
==>s have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39934	40032	
==>); either
version 2.1 of the License, or (at your option) any later version.  You
should have recei <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39934	40032	
==>); either
version 2.1 of the License, or (at your option) any later version.  You
should have recei <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20278	20388	
==>worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interf <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24830	24940	
==>worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interf <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23391	23501	
==>worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4891	5004	
==>" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4891	5004	
==>" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4891	5004	
==>" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1401	1519	
==>(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1401	1519	
==>(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1401	1519	
==>(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(id <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1168	1266	
==>members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1168	1266	
==>members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	54	138	
==>perl5/site_perl/5.8.7/Module/Install/Fetch.pm"
package Module::Install::Fetch;
use Mo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1435	1534	
==>ass Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy Lis <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1435	1534	
==>ass Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7249	7352	
==>L::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7249	7352	
==>L::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7249	7352	
==>L::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1260	1393	
==>tine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22278	22397	
==>}
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18699	18818	
==>}
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2909	3025	
==>d $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2909	3025	
==>d $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2909	3025	
==>d $subname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	21	126	
==>finished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	21	126	
==>finished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	21	126	
==>finished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	571	664	
==>'@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	571	664	
==>'@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	571	664	
==>'@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	261	359	
==>copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	261	359	
==>copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20297	20391	
==>rbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $string --> Num)
{ ... } # XX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	354	469	
==>= \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	354	469	
==>= \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5860	5971	
==>TE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5860	5971	
==>TE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5860	5971	
==>TE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1405	1492	
==>e->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1405	1492	
==>e->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1405	1492	
==>e->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	455	592	
==>thod plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for . <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	455	592	
==>thod plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	816	937	
==>ut=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	816	937	
==>ut=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	816	937	
==>ut=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5555	5670	
==>plit_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<bounda <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5555	5670	
==>plit_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<bounda <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2756	2846	
==>ives(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1284	1384	
==>_name};
}

method attr_name_exists of Bool (Relation::AttrName $attr_name) {
    return %!attrs.exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11205	11386	
==>'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefer <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11205	11386	
==>'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefer <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11205	11386	
==>'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-derefer <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2391	2642	
==>element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?) <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2391	2642	
==>element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3195	3304	
==>a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mappi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6740	6874	
==>mental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6519	6648	
==>mental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5106	5205	
==>y ($self, $label, $method) = @_;
            ::opaque_instance_class($self)->add_method($label, $met <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3898	4081	
==>BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        r <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3898	4081	
==>BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9598	9749	
==>files
        for my $script ( @{ $alt->bin || [] } ) {
            1 while unlink $conf->bin_dir->file( $script );
            1 while unlink $self->al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6998	7112	
==>XX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6998	7112	
==>XX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6998	7112	
==>XX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7441	7557	
==>$type = $pType;
    my @pams = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	452	556	
==>m  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub has <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	452	556	
==>m  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub has <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4122	4243	
==>($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4122	4243	
==>($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2381	2633	
==>')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2381	2633	
==>')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2381	2633	
==>')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1566	1675	
==>ed ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1566	1675	
==>ed ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1566	1675	
==>ed ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.leng <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7290	7421	
==>e and +wx for a dir
    my $x       = File::stat::stat( $file );
    my $mask    = -d $file ? 0100 : 0200;
    
    if( $x and chmod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2643	2771	
==>elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_la <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2643	2771	
==>elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1357	1461	
==>e(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1357	1461	
==>e(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1357	1461	
==>e(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	857	1000	
==>') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$config{'bin_dir'}          = [ $Config{bin}            => SU <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13790	13907	
==>2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13790	13907	
==>2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2135	2242	
==>::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2135	2242	
==>::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2482	2589	
==>::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13494	13597	
==>e "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13494	13597	
==>e "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13494	13597	
==>e "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2817	2906	
==>name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.h <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2817	2906	
==>name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1882	1994	
==>nline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1882	1994	
==>nline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1882	1994	
==>nline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3940	4043	
==>self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22820	22912	
==>e Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22820	22912	
==>e Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39814	39911	
==>= $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39814	39911	
==>= $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39814	39911	
==>= $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6255	6438	
==>( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9732	9915	
==>( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3504	3612	
==>j->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4539	4644	
==>necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4931	5036	
==>necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5442	5547	
==>necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/bi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5097	5211	
==>KAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $inst_pkg = J <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6526	6623	
==>If the request fails, then the
status code and message are printed on STDERR.  The return value is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6526	6623	
==>If the request fails, then the
status code and message are printed on STDERR.  The return value is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5721	5926	
==>tring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5721	5926	
==>tring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5721	5926	
==>tring =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $str <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8846	8972	
==>r"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8846	8972	
==>r"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31303	31409	
==>f this object.

=item data

The data or children of this object.

=item dir

The direction of this object ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13679	13781	
==>ass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13679	13781	
==>ass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13679	13781	
==>ass.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	37	156	
==>M::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## F <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	37	156	
==>M::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11406	11525	
==>->{rx}->FLAG_i ? "exactf" : "exact";
  }

  sub data {
    my $self = shift;
    join "", @{ $self->{data} };
  }

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2096	2207	
==>new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2096	2207	
==>new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2096	2207	
==>new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2551	2763	
==>',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            if ($class != $EigenClass) {
                my $eigenclass = $EigenClass->new(
                    '$:name' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3654	3810	
==>rray_clear' => sub {
                my $self = shift;
                @{$self->get_value('@:slots')} = (); # just ref = []?
            },

            'arr <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	180	282	
==>PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a : $b
$wahr.tertiary:<?? ! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2947	3089	
==>de closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3131	3273	
==>de closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2252	2394	
==>$o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2252	2394	
==>$o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2252	2394	
==>$o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    } <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18573	18804	
==>k, $3);
                      $found = 1;
                      last;
                    }

                    if (!$found) {
                      # Part of the content is inside a pre.
                      $h->push_content($bac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32108	32209	
==>a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32108	32209	
==>a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4118	4239	
==>dy->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4118	4239	
==>dy->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4118	4239	
==>dy->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3134	3239	
==>y = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3134	3239	
==>y = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3134	3239	
==>y = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6189	6291	
==>ul to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6189	6291	
==>ul to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6189	6291	
==>ul to have this if for nothing other than 
a helper to other functions.  

=cut

## ------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19244	19342	
==>_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19244	19342	
==>_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19244	19342	
==>_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7806	7916	
==>ed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7806	7916	
==>ed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7806	7916	
==>ed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2419	2523	
==>- slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2419	2523	
==>- slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2419	2523	
==>- slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and Conta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1655	1774	
==>s{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1655	1774	
==>s{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6845	6940	
==>se qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::nulla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	281	469	
==>uest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	281	469	
==>uest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        m <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	270	394	
==>ode &fun, Array of Str @args ) {
            $fun.assuming( *self.parse_arguments( @args ) );
        }

        method parse <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4727	4875	
==>us versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4739	4887	
==>us versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	5656	5753	
==>w.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/local/man/man3/Perl6::Ov <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28943	29058	
==>PP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28943	29058	
==>PP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	302	409	
==>PP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2238	2332	
==>Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2238	2332	
==>Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2238	2332	
==>Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4621	4739	
==>elf->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4621	4739	
==>elf->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4621	4739	
==>elf->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3590	3713	
==>>{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3590	3713	
==>>{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3590	3713	
==>>{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieabl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10583	10684	
==>ule RegularExpressionChar {  # see 7.8.5
      <!before <[\\\/]>> <NonTerminator>
    | <BackslashSequ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25945	26038	
==>and values
that are associated with the message, and can be interpolated into the
human-readab <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25945	26038	
==>and values
that are associated with the message, and can be interpolated into the
human-readab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2723	2881	
==>_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2633	2786	
==>_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3703	3804	
==>pl takes --pge as the path of the PGE shipped with Pugs.
  --bash=$bash
    linuxrc needs a bash-compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18484	18609	
==>gic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18484	18609	
==>gic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18484	18609	
==>gic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using t <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	471	628	
==>_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byt <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	471	628	
==>_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13555	13662	
==>thing
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # quantif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2416	2525	
==>or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2416	2525	
==>or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2416	2525	
==>or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3888	3982	
==>uffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Par <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3888	3982	
==>uffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5320	5430	
==>p::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10975	11085	
==>p::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14754	14856	
==>ssion>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpression>
    | <Multiplicati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3633	3746	
==>ng the compiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - you <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3503	3611	
==>ng the compiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - you <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6370	6462	
==>ethods{$label} = $method;
}

(method add_method ((opaque $self:) (symbol $label) (method $met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12101	12204	
==>objects.

  A set of hooks should be defined in CORE which just call back to the
  original comp and exe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	845	936	
==>cument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	845	936	
==>cument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32218	32360	
==>dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32873	33015	
==>dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29426	29567	
==>dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	610	711	
==>sted
  my $split := { (split rx:perl5/($pattern)/, $^str).map:{~$_} };
  return sub {
    while +@toke <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15371	15467	
==>s string identifies what kind of Node this is, and by extension
what kinds of attributes or relat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15371	15467	
==>s string identifies what kind of Node this is, and by extension
what kinds of attributes or relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5247	5345	
==>ets you to
do anything you like with each object, but is (at least nominally)
intended to allow fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5247	5345	
==>ets you to
do anything you like with each object, but is (at least nominally)
intended to allow fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5247	5345	
==>ets you to
do anything you like with each object, but is (at least nominally)
intended to allow fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	159	281	
==>t   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	159	281	
==>t   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	159	281	
==>t   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5570	5688	
==>s);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5570	5688	
==>s);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5570	5688	
==>s);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6150	6273	
==>Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7148	7271	
==>Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1536	1644	
==>erl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1536	1644	
==>erl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1536	1644	
==>erl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36358	36481	
==>>items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36358	36481	
==>>items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36358	36481	
==>>items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7863	7981	
==>var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7863	7981	
==>var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7863	7981	
==>var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5580	5675	
==>role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=ite <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5580	5675	
==>role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7777	7872	
==>role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3001	3123	
==>~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3001	3123	
==>~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3001	3123	
==>~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3051	3222	
==>g) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3051	3222	
==>g) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3051	3222	
==>g) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	640	731	
==>(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	640	731	
==>(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	640	731	
==>(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11663	11778	
==>it()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11663	11778	
==>it()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11663	11778	
==>it()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5209	5333	
==>lectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5209	5333	
==>lectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5209	5333	
==>lectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4728	4839	
==>rl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4728	4839	
==>rl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4728	4839	
==>rl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19552	19657	
==>goto end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7704	7802	
==>}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7704	7802	
==>}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1801	1928	
==>mit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1801	1928	
==>mit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $. <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	199	311	
==>ebug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.d <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	199	311	
==>ebug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.d <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21927	22032	
==>$script (keys %$failedtests) {
        my $namelen = length $failedtests->{$script}->{name};
        $max_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	294	423	
==>atible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	294	423	
==>atible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	294	423	
==>atible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1645	1751	
==>dd_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1645	1751	
==>dd_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1645	1751	
==>dd_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	640	751	
==>e = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	640	751	
==>e = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	640	751	
==>e = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and
    // http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	413	577	
==>'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	413	577	
==>'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	413	577	
==>'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3722	3830	
==>read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3722	3830	
==>read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3722	3830	
==>read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1919	2029	
==>} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(cal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1919	2029	
==>} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(cal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2155	2265	
==>} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(cal <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4486	4634	
==>\n   List      pre     pair    safe   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   L <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	194	309	
==>_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
} <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	194	309	
==>_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8616	8745	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8809	8938	
==>atch ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2473	2573	
==>.100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2473	2573	
==>.100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2473	2573	
==>.100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check sp <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10746	10855	
==>mfrom, mpos
    .local int pos, lastpos
    .local int iscapture
    .local string subname
    $P0 = find_glob <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1835	1932	
==>,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	831	928	
==>,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	457	562	
==>_args);
BEGIN{
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17610	17704	
==>andard.>

=item $h.user_agent

This header field is used in request messages and contains infor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17610	17704	
==>andard.>

=item $h.user_agent

This header field is used in request messages and contains infor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4719	4865	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4719	4865	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4719	4865	
==>| ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2414	2511	
==>ers));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2414	2511	
==>ers));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	83	184	
==>ss' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	83	184	
==>ss' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	83	184	
==>ss' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1270	1401	
==>ash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1853	1948	
==>rious intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1781	1874	
==>rious intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var i <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2780	2878	
==>onforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

T <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2780	2878	
==>onforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

T <==
3	/Users/nnunley/pugs/util/importgraph.pl	1215	1312	
==>le_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
for my $mod (values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9668	9773	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9668	9773	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9668	9773	
==>orted dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatche <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1036	1134	
==>: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1036	1134	
==>: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25672	25770	
==>l tests were successful, the script dies with one of the
above messages.

=item C<FAILED--Further t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	632	751	
==>SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	632	751	
==>SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	632	751	
==>SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	736	842	
==>" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	736	842	
==>" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	736	842	
==>" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	234	351	
==>hically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	234	351	
==>hically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	234	351	
==>hically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, 'AO <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18954	19097	
==>default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $str;
}

multi shift (@array) is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17462	17552	
==>der will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17462	17552	
==>der will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6814	6963	
==>oundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6814	6963	
==>oundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $b <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7017	7105	
==>char("(").
p5_metachar(")").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26617	26715	
==>T_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #defi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13327	13424	
==>ffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13327	13424	
==>ffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservern <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13869	14097	
==>st output arrived\n";
                $tot{bad}++;
                $failedtests{$tfile} = { canon       => '??',
                                         max         => '??',
                                         failed      = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2834	2923	
==>_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.h <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2834	2923	
==>_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34266	34356	
==>mes!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34266	34356	
==>mes!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2899	3044	
==>, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2899	3044	
==>, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8985	9104	
==>tart . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8985	9104	
==>tart . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8985	9104	
==>tart . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	772	889	
==>default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	772	889	
==>default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	772	889	
==>default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16718	16840	
==>type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{npare <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18144	18266	
==>type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{npare <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24763	24885	
==>type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{npare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5844	6040	
==>$body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5844	6040	
==>$body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5844	6040	
==>$body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12369	12489	
==>ed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2749	2865	
==>ed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2749	2865	
==>ed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $d <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2062	2215	
==>.'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2062	2215	
==>.'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6021	6171	
==>st      pre     keys    safe   (rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3098	3429	
==>}
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3098	3429	
==>}
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11115	11235	
==>p1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2416	2588	
==>}

                ### write the data into the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1827	1923	
==>intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1827	1923	
==>intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	399	508	
==>self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	399	508	
==>self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	399	508	
==>self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_stand <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2201	2300	
==>s currently an utter kludge. not even trying with m and s.
# Match objects arent being created for c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4630	4749	
==>. } # define your own m:x()/stuff/

    As with any such syntactic shenanigans, the declaration must be visible
    in t <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	931	1023	
==>utput =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m) <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	931	1023	
==>utput =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m) <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2712	2854	
==>p {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq{("$name", "$value")};
    } sort ke <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16330	16424	
==>ace is defined mainly in terms of a new high-level
programming language named "Rosetta D", whic <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16330	16424	
==>ace is defined mainly in terms of a new high-level
programming language named "Rosetta D", whic <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	397	525	
==>stinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_prefix <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2941	3041	
==>") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") retur <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2941	3041	
==>") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") retur <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12111	12208	
==>ds) returns Bool`

This function currently on checks with ref() since we do not yet have
object su <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12169	12266	
==>ds) returns Bool`

This function currently on checks with ref() since we do not yet have
object su <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14009	14131	
==>ES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test($line, \%test);

Che <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24668	24764	
==>es or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
excep <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24668	24764	
==>es or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	119	252	
==>== 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	119	252	
==>== 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	119	252	
==>== 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1115	1224	
==>= $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1115	1224	
==>= $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1115	1224	
==>= $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3230	3378	
==>ilename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3230	3378	
==>ilename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3230	3378	
==>ilename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	524	621	
==>s nothingmuch's first article that he read from cover
# to cover with no hand holding, and actuall <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16409	16500	
==>Rosetta D", which is computationally complete
(and industrial strength) and has fully integr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16409	16500	
==>Rosetta D", which is computationally complete
(and industrial strength) and has fully integr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2434	2528	
==>s and throwing the return value away.
Encryptions after this point will be using stronger porti <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2434	2528	
==>s and throwing the return value away.
Encryptions after this point will be using stronger porti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5766	5874	
==>e $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5766	5874	
==>e $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11671	11768	
==>= qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
module parses th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	461	557	
==>has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	461	557	
==>has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11810	11913	
==>e another. 

Because instances of class all conform to the Role interface/API they are 
interchangable w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11810	11913	
==>e another. 

Because instances of class all conform to the Role interface/API they are 
interchangable w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11810	11913	
==>e another. 

Because instances of class all conform to the Role interface/API they are 
interchangable w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5806	5934	
==>lement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5806	5934	
==>lement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5806	5934	
==>lement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$se <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	223	350	
==>ME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  ass <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2984	3096	
==>($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successf <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2984	3096	
==>($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successf <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16479	16595	
==>(int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	711	808	
==>bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	711	808	
==>bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3706	3974	
==>n]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3706	3974	
==>n]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Local <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2575	2676	
==>>{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7347	7509	
==>hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7347	7509	
==>hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7347	7509	
==>hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14487	14657	
==>$n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necess <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14487	14657	
==>$n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necess <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14487	14657	
==>$n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necess <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	553	673	
==>\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $sc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3171	3272	
==>has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3171	3272	
==>has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt', <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29100	29198	
==>the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33652	33750	
==>the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7957	8073	
==>ig, $suspect) = @_;
  my $fail;
  while (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13035	13133	
==>y set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, this <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13035	13133	
==>y set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40984	41085	
==>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40984	41085	
==>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40984	41085	
==>{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5775	5933	
==>mt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists $ast->{bar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6126	6248	
==>if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6126	6248	
==>if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2796	2903	
==>rr, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	220	416	
==>_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	220	416	
==>_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	220	416	
==>_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1142	1355	
==>pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            index => {
                store => \$ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	523	654	
==>X: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = ab <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	523	654	
==>X: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = ab <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20477	20593	
==>x} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16898	17014	
==>x} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1660	1758	
==>esponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1660	1758	
==>esponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2418	2528	
==>lename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2418	2528	
==>lename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2418	2528	
==>lename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4032	4130	
==>ass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4032	4130	
==>ass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4032	4130	
==>ass->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => : <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	28	135	
==>the old BEGIN preamble which heads (or
# should head) up every core test program to prepare it for running. <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	692	797	
==>nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	692	797	
==>nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2675	2789	
==>unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2675	2789	
==>unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2675	2789	
==>unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$ins <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	125	236	
==>an 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return a unix time_t
method time_t($self:) return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16033	16135	
==>intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19510	19612	
==>intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3816	3921	
==>You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3816	3921	
==>You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3816	3921	
==>You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2040	2145	
==>pported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2040	2145	
==>pported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2040	2145	
==>pported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26061	26156	
==>re being executed through the harness
or by any other means.

=item C<HARNESS_COLUMNS>

This val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18282	18375	
==>the source module is preprocessed to hide heredocs, since the content
inside heredocs can poss <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18282	18375	
==>the source module is preprocessed to hide heredocs, since the content
inside heredocs can poss <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7598	7696	
==>rt (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7598	7696	
==>rt (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7598	7696	
==>rt (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULT <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3288	3392	
==>ver happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3288	3392	
==>ver happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1254	1353	
==>ail, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38525	38646	
==>{
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38525	38646	
==>{
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38525	38646	
==>{
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1296	1390	
==>atever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it tai <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1296	1390	
==>atever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it tai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2308	2409	
==>p => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'bra <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	719	872	
==>v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	719	872	
==>v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	981	1098	
==>() { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	981	1098	
==>() { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	981	1098	
==>() { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17696	17789	
==>x0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17696	17789	
==>x0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17696	17789	
==>x0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3115	3222	
==>"Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3115	3222	
==>"Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3115	3222	
==>"Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparat <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6758	6950	
==>=> $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6758	6950	
==>=> $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capt <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7067	7190	
==>");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3973	4093	
==>mented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3833	3949	
==>mented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26742	26867	
==>object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3183	3301	
==>rver>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3183	3301	
==>rver>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3247	3371	
==>erclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3247	3371	
==>erclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3247	3371	
==>erclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5166	5334	
==>dex\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Varia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5154	5322	
==>dex\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Varia <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29323	29417	
==>'atom' handle to be executed, you must
explicitly add it to the queue (C<< $parser->{next} >>). <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1652	1763	
==>ic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1652	1763	
==>ic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1732	1843	
==>ic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_ou <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2566	2691	
==>{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2566	2691	
==>{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	768	874	
==>hapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1513	1619	
==>9-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1513	1619	
==>9-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	1	91	
==>ackage Pugs::Grammar::Pod;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategor <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10462	10556	
==>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10462	10556	
==>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23901	24079	
==>od eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23901	24079	
==>od eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23901	24079	
==>od eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5448	5551	
==>ame;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority) if d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5448	5551	
==>ame;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority) if d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5448	5551	
==>ame;
    $new_role->version($version)     if defined $version;
    $new_role->authority($authority) if d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5628	5729	
==>test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5628	5729	
==>test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5628	5729	
==>test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMO <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	566	690	
==>m this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><p <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	566	690	
==>m this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4750	4875	
==>ever
blessing they had before, but unlike B<rebless>, it preseves something
of the original name. So if you had an object bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4750	4875	
==>ever
blessing they had before, but unlike B<rebless>, it preseves something
of the original name. So if you had an object bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4750	4875	
==>ever
blessing they had before, but unlike B<rebless>, it preseves something
of the original name. So if you had an object bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	912	1079	
==>s' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	912	1079	
==>s' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	912	1079	
==>s' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	283	407	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assumin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	283	407	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assumin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	283	407	
==>w PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assumin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10490	10645	
==>ub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10490	10645	
==>ub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10490	10645	
==>ub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1303	1408	
==>port
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1303	1408	
==>port
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1383	1488	
==>port
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub test <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	457	565	
==>duce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	539	643	
==>), to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	539	643	
==>), to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4305	4395	
==>:symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4305	4395	
==>:symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4305	4395	
==>:symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1411	1599	
==>_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1411	1599	
==>_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1411	1599	
==>_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4296	4429	
==>"Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4296	4429	
==>"Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4829	4931	
==>t);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24278	24410	
==>efined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24278	24410	
==>efined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24278	24410	
==>efined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4221	4349	
==>args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4221	4349	
==>args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4221	4349	
==>args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3850	3946	
==>rce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invali <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4034	4130	
==>rce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invali <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3887	4027	
==>$arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15131	15235	
==>o :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15131	15235	
==>o :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7181	7343	
==>l6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7181	7343	
==>l6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7181	7343	
==>l6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10868	10986	
==>lass (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10868	10986	
==>lass (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10868	10986	
==>lass (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6565	6656	
==>ected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6565	6656	
==>ected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6565	6656	
==>ected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3616	3774	
==>t -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3616	3774	
==>t -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3616	3774	
==>t -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4798	4900	
==>rom 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4798	4900	
==>rom 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10931	11023	
==>item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10931	11023	
==>item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6449	6548	
==>are off perl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->re <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5484	5579	
==>\$initrd_img,
  "initrd-size=i"  => \$initrd_size,
  "initrd-mnt=s"   => \$initrd_mnt,
  "cdroot <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26676	26769	
==>bugging information about itself as
it runs the tests.  This is different from C<HARNESS_VERBO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3659	3760	
==>>

Marks that the next test should pass.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3659	3760	
==>>

Marks that the next test should pass.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3739	3840	
==>>

Marks that the next test should pass.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8651	8758	
==>igil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8651	8758	
==>igil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8651	8758	
==>igil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20159	20300	
==>m => "r",
				body => cond(
					if => comb(
						fun => comb(
							fun => ide("=="),
							param => ide("x"),
						),
						param => val <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12856	12950	
==>h the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12856	12950	
==>h the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7492	7597	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7492	7597	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7492	7597	
==>ive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3461	3576	
==>{} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3461	3576	
==>{} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3461	3576	
==>{} unless defined $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11961	12060	
==>lass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11961	12060	
==>lass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11961	12060	
==>lass.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1599	1734	
==>y' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1599	1734	
==>y' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1599	1734	
==>y' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->st <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7685	7793	
==>ng  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23880	23968	
==>(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,[],T1).
replac <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2201	2312	
==>>new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	285	396	
==>n = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	285	396	
==>n = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3064	3212	
==>->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3064	3212	
==>->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3064	3212	
==>->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5663	5795	
==>am} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} e <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1846	1971	
==>{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1846	1971	
==>{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8222	8372	
==>ant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	64	157	
==>to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	64	157	
==>to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14995	15160	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14995	15160	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14995	15160	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15099	15215	
==>j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15099	15215	
==>j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15099	15215	
==>j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2562	2676	
==>while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2562	2676	
==>while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	350	453	
==>nly a an hour or two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValue;
class J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1335	1422	
==>24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1335	1422	
==>24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1335	1422	
==>24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3148	3263	
==>refix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3148	3263	
==>refix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3148	3263	
==>refix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5214	5341	
==>ng index file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->meta->to_struct;
        
        # a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8570	8667	
==>lation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8570	8667	
==>lation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4508	4618	
==>essing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4508	4618	
==>essing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4508	4618	
==>essing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds al <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3461	3681	
==>st' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3461	3681	
==>st' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4040	4135	
==>IL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @fi <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7095	7240	
==>ue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        } <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10226	10322	
==>y set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)> <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10226	10322	
==>y set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5318	5430	
==>hod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5318	5430	
==>hod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5318	5430	
==>hod('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5222	5336	
==>);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5222	5336	
==>);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5222	5336	
==>);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2942	3052	
==>ifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2930	3040	
==>ifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22419	22528	
==>nd_first,
		in => comb(
			fun => ide("length_and_first"),
			param => comb(
				fun => ide("listify"),
				pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1596	1700	
==>$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1596	1700	
==>$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1596	1700	
==>$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2579	2718	
==>ne!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2579	2718	
==>ne!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2579	2718	
==>ne!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call t <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4085	4199	
==>d{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq "u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9554	9648	
==>ames are cases insensitive.

Instances of this class are usually created as member variables of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9554	9648	
==>ames are cases insensitive.

Instances of this class are usually created as member variables of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	785	901	
==>());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	785	901	
==>());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	785	901	
==>());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Con <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17249	17356	
==>ading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20726	20833	
==>ading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20304	20411	
==>ading.intersection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	963	1068	
==>ss JSX::Value::String    is JSX::ValuePrimitive;
class JSX::Value::Object is JSX::Value;
class JSX::Value: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4594	4694	
==>tack[-1];
    goto missing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $strin <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4907	5001	
==>Fun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4907	5001	
==>Fun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2537	2657	
==>r) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2537	2657	
==>r) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2537	2657	
==>r) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3448	3550	
==>nction base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_func 'asin';
tri <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11028	11123	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11086	11181	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $de <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13028	13129	
==>ods.  They return two
values, their numeric value, and a format string for use with sprintf().

  # fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	190	310	
==>e Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	77	193	
==>e Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	77	193	
==>e Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14992	15094	
==>tics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14992	15094	
==>tics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	88	183	
==>unctions called when regexps are compiled and
# applied) to permit alternate regexp engines to b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2927	3047	
==>xport_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2927	3047	
==>xport_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2927	3047	
==>xport_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6161	6283	
==>[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6161	6283	
==>[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8743	8965	
==>q 'todo') {
                if ($detail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                else {
                    $todos{'__'}++
                }   
            } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37846	37943	
==>tion is
the result of first pairwise-matching every tuple of each source relation
with every tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42395	42492	
==>tion is
the result of first pairwise-matching every tuple of each source relation
with every tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42045	42142	
==>tion is
the result of first pairwise-matching every tuple of each source relation
with every tuple <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1178	1285	
==>/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%par <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1178	1285	
==>/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%par <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1102	1197	
==>ircular superclasses?
# I guess that we're not the superclass of any superclass

method set_supe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2438	2561	
==>to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    metho <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2438	2561	
==>to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    metho <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1756	1863	
==>ions may be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	132	256	
==>d);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	132	256	
==>d);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	132	256	
==>d);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	157	265	
==>strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::I <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	121	228	
==>strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	209	316	
==>strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3290	3421	
==>rl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3290	3421	
==>rl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3290	3421	
==>rl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11177	11322	
==>);
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11177	11322	
==>);
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11177	11322	
==>);
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed fo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	921	1042	
==>ds {
    my $self = shift;
    map { @$_ } $self->scopes;
}

sub scopes {
    my $self = shift;
    @{ $self->{scopes} }
} <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	279	399	
==>h my $p6 (<01strings/*.p6>) {
    (my $f = $p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9386	9503	
==>+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  q <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18013	18208	
==>mon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        ta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21490	21685	
==>mon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        ta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21077	21272	
==>mon_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	909	1026	
==>="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	909	1026	
==>="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	909	1026	
==>="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4021	4148	
==>ee.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4021	4148	
==>ee.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30903	30994	
==>elation::Example
which has a superset of the original's attributes; the new Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6114	6265	
==>d {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6114	6265	
==>d {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6114	6265	
==>d {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	810	943	
==>$method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	810	943	
==>$method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	810	943	
==>$method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4294	4394	
==>methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4294	4394	
==>methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4294	4394	
==>methods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4393	4504	
==>)."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4393	4504	
==>)."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4393	4504	
==>)."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5707	5845	
==>ent->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5707	5845	
==>ent->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2369	2474	
==>s;
    "hello, world".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> module is a fron <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1094	1236	
==>$self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1926	2063	
==>$self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2066	2203	
==>$self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8193	8326	
==>le = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8386	8519	
==>le = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        retur <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13393	13489	
==>tal_links += $links;
  $total_files++;
  $outfile->print($template->output);
}

sub infest_syns { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	125	222	
==>lass: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	125	222	
==>lass: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set <==
3	/Users/nnunley/pugs/util/grokprims.pl	849	979	
==>le border="1">';



foreach my $op (sort 
         {
           $a->{name} cmp $b->{name} or
             $a->{assoc} cmp $b->{asso <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2707	2806	
==>at this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2707	2806	
==>at this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	624	728	
==>s(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	624	728	
==>s(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	624	728	
==>s(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2219	2334	
==>MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2219	2334	
==>MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2219	2334	
==>MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1501	1598	
==>TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1501	1598	
==>TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1501	1598	
==>TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3144	3252	
==>ada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3144	3252	
==>ada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6315	6465	
==>$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6315	6465	
==>$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6315	6465	
==>$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3760	3851	
==>/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <tit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3760	3851	
==>/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <tit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3760	3851	
==>/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <tit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3986	4087	
==>t::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3986	4087	
==>t::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34480	34570	
==>Regexp::MyRx::THING> object will look in its own
package first, then in F<Regexp::MyRx::__o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2687	2787	
==>e_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2687	2787	
==>e_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2687	2787	
==>e_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	211	330	
==>$self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	211	330	
==>$self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	211	330	
==>$self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6333	6450	
==>' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6333	6450	
==>' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16523	16656	
==>to autochomp
instead of this step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1293	1401	
==>bmatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1293	1401	
==>bmatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3462	3569	
==>ed $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 ver <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3462	3569	
==>ed $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 ver <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3462	3569	
==>ed $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4102	4204	
==>name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4102	4204	
==>name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4102	4204	
==>name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_subm <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3625	3741	
==>yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3625	3741	
==>yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	696	796	
==>ie "it doesn't look like $node is a piece of a Blondie program.";

   	$node->fmap(sub { $self->reduc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4067	4197	
==>ble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamb <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3018	3134	
==>ble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4776	4889	
==>rg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4776	4889	
==>rg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4776	4889	
==>rg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doub <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17175	17279	
==>pplied to int) is a number
my $fifteen = comb(
	fun => $plus_ten,
	param => val(5),
);

# the pair functi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8551	8644	
==>anguage

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also desc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8551	8644	
==>anguage

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6074	6187	
==>ow would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6074	6187	
==>ow would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6074	6187	
==>ow would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think it might be use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6892	6986	
==>PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6892	6986	
==>PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6892	6986	
==>PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	771	925	
==>ontrolException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	771	925	
==>ontrolException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	771	925	
==>ontrolException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$co <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1493	1607	
==>tory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # tak <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1493	1607	
==>tory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # tak <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19612	19716	
==>(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C|F1],F1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11911	12034	
==>y $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12190	12313	
==>y $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6887	6987	
==>Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() cons <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6651	6748	
==>Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() cons <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5706	5796	
==>display_type($de_facto_type) . " with " . $self->display_type($expected_type);
		warn Data: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7618	7754	
==>ndatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_ind <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7618	7754	
==>ndatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_ind <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7983	8118	
==>oto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4639	4765	
==>st apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4639	4765	
==>st apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30084	30204	
==>hange internal list of test results to a hash.

Fix stats display when there's an overrun.

Fix so perls with spaces in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7106	7236	
==>s. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7106	7236	
==>s. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7106	7236	
==>s. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4119	4284	
==>ime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named capture
    my $label = shift;
    my $node = shift;
    sub {
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2681	2777	
==>PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2681	2777	
==>PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35076	35176	
==>one of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35076	35176	
==>one of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6199	6285	
==>token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+(\w+)\s+{([^}]*)}(?{ &::hl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3252	3351	
==>ss $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3252	3351	
==>ss $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3252	3351	
==>ss $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defe <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1736	1863	
==>y *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4441	4561	
==>atch->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4441	4561	
==>atch->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3029	3138	
==>my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2184	2291	
==>= @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2184	2291	
==>= @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3227	3330	
==>/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3227	3330	
==>/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3227	3330	
==>/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/ <==
3	/Users/nnunley/pugs/util/package-osx.pl	10676	10823	
==>{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	499	602	
==>"capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Vari <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	499	602	
==>"capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	216	340	
==>NTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	216	340	
==>NTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	216	340	
==>NTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17057	17165	
==>alue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17057	17165	
==>alue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17057	17165	
==>alue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5472	5576	
==>rated
# as the AST is left they are unified
# a free variable can be instantiated to point to another typ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3995	4091	
==>parameter stack and binding
it to $x. Then the app is reduced. First its children will be reduced <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4523	4655	
==>/client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4523	4655	
==>/client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9522	9619	
==>_attr (symbol new (%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11700	11795	
==>*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11700	11795	
==>*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	146	238	
==>s for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	146	238	
==>s for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3638	3739	
==>nts[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3638	3739	
==>nts[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3638	3739	
==>nts[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1034	1166	
==>s_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1034	1166	
==>s_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1034	1166	
==>s_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10270	10386	
==>s src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13747	13863	
==>s src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13028	13144	
==>s src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1704	1832	
==>{flags}[-1],
      family => 'anchor',
      type => $type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $sel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11984	12082	
==>$a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $des <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12042	12140	
==>$a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4373	4480	
==>n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4373	4480	
==>n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4373	4480	
==>n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1267	1369	
==>::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1267	1369	
==>::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1267	1369	
==>::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are implemented using multisu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6205	6345	
==>s = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6205	6345	
==>s = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6205	6345	
==>s = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	106	215	
==>-> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	106	215	
==>-> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6377	6479	
==>-> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simple_escape_seq <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2563	2663	
==>l {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2563	2663	
==>l {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4482	4590	
==>refix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4621	4719	
==>e using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stringi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4621	4719	
==>e using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3722	3815	
==>)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3722	3815	
==>)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3722	3815	
==>)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)= <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	759	848	
==>uantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	759	848	
==>uantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2530	2646	
==>=> $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2530	2646	
==>=> $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35899	36004	
==>h' object is a positive looking assertion, and the argument
of 1 means it's a look-ahead.  We send the unr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1691	1830	
==>n;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32033	32131	
==>t just the set member for
each that corresponds to language A, looking for a match to said error
me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32033	32131	
==>t just the set member for
each that corresponds to language A, looking for a match to said error
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4736	4841	
==>my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4736	4841	
==>my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4736	4841	
==>my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1357	1478	
==>y $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1357	1478	
==>y $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # H <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1850	1963	
==>sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1850	1963	
==>sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1930	2043	
==>sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	459	569	
==>ft;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	459	569	
==>ft;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	459	569	
==>ft;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s)) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13590	13685	
==>ated is TRUE then we also unterminated named
entities will also be expanded.  The longest matchi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13590	13685	
==>ated is TRUE then we also unterminated named
entities will also be expanded.  The longest matchi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4248	4373	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4441	4566	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4685	4778	
==>return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data($_[0], '$<variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2648	2762	
==>cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2648	2762	
==>cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2648	2762	
==>cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_%s", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	75	178	
==>t::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	75	178	
==>t::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	75	178	
==>t::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1638	1734	
==>and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1638	1734	
==>and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1638	1734	
==>and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2037	2149	
==>NDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_messag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2037	2149	
==>NDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_messag <==
3	/Users/nnunley/pugs/util/config_h.pl	988	1091	
==>cygwin/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7062	7213	
==>ce( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7062	7213	
==>ce( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7062	7213	
==>ce( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33543	33649	
==><sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is used to come up out of it.  In bet <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2699	2793	
==>able>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2699	2793	
==>able>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6481	6577	
==>olume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6481	6577	
==>olume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6055	6219	
==>},
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6055	6219	
==>},
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6055	6219	
==>},
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4818	4917	
==>mething
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4818	4917	
==>mething
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4818	4917	
==>mething
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3281	3404	
==>ed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3281	3404	
==>ed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3281	3404	
==>ed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12645	12739	
==>g and decoding of strings with HTML
character entities.  The module provides the following func <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12645	12739	
==>g and decoding of strings with HTML
character entities.  The module provides the following func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4711	4829	
==>::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4711	4829	
==>::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5301	5419	
==>::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$se <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1109	1289	
==>.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $modu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	988	1168	
==>.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $modu <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7302	7402	
==>ysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5547	5682	
==>ure',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5371	5501	
==>ure',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9641	9776	
==>mments


  ### '$'

  $self->add_handler('$' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \$ }xgc) {
      my $n = '$$';
      re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20969	21059	
==>names are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20969	21059	
==>names are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	829	917	
==>Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authentic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	829	917	
==>Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authentic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9333	9431	
==>B perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9333	9431	
==>B perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9333	9431	
==>B perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9699	9818	
==>ollect_all_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9699	9818	
==>ollect_all_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9699	9818	
==>ollect_all_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5447	5542	
==>he 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object wou <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5447	5542	
==>he 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object wou <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1522	1650	
==>llback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1489	1617	
==>llback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1870	1972	
==>ot supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1870	1972	
==>ot supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1870	1972	
==>ot supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	168	272	
==>{ ("&infix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3816	3947	
==>ift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3816	3947	
==>ift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3816	3947	
==>ift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2006	2116	
==>paque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2006	2116	
==>paque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2006	2116	
==>paque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	177	267	
==>chmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::package <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	166	254	
==>chmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::package <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	133	221	
==>chmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::package <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	268	366	
==>ift;

	my $c = $self->compile($prog);
	my $type_annotated = $self->annotate($c);
	my $c_code = $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4434	4532	
==>es.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4434	4532	
==>es.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	474	594	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	474	594	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	474	594	
==>COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	27	132	
==>ric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	27	132	
==>ric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	27	132	
==>ric_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22915	23072	
==>apture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23194	23351	
==>apture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1533	1647	
==>ft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3133	3265	
==>>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3133	3265	
==>>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3133	3265	
==>>superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29642	29754	
==>sement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29642	29754	
==>sement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	446	546	
==>sement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12055	12176	
==>r::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12055	12176	
==>r::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12055	12176	
==>r::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	934	1044	
==>grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	934	1044	
==>grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        b <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6381	6504	
==>rm_literal_one:
    $I0 = pos - litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["valu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	540	658	
==>{
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	540	658	
==>{
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14533	14632	
==>IL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14533	14632	
==>IL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14533	14632	
==>IL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7793	7899	
==>t( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7793	7899	
==>t( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7793	7899	
==>t( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23265	23365	
==>R

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<ja <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41189	41289	
==>R

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<ja <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37215	37315	
==>R

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<ja <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	151	300	
==>T =
    qw(
       p6_is_object
       p6_is_perl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	245	346	
==><\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <s <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	245	346	
==><\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	690	800	
==>args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	690	800	
==>args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	690	800	
==>args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7876	8006	
==>sh @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7876	8006	
==>sh @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7876	8006	
==>sh @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsn <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18930	19042	
==>smatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: test $curr answer <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	141	238	
==>');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	141	238	
==>');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7401	7501	
==>like 'literal'.



Higher order operators take a list of match operators, and return a new 

match op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7150	7247	
==>like 'literal'.

Higher order operators take a list of match operators, and return a new 
match op <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1113	1222	
==>Switches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shel <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9258	9363	
==>, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9258	9363	
==>, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2428	2536	
==>@args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = $oper->make_node_with_args(@arg <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1694	1792	
==>, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

Thes <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1694	1792	
==>, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

Thes <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	532	627	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whites <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	532	627	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whites <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16767	16864	
==>his module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16767	16864	
==>his module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16767	16864	
==>his module implements a "List" object.

new() without parameters is an empty list.

=head1 SEE ALS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1749	1857	
==>w() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1749	1857	
==>w() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1749	1857	
==>w() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1323	1429	
==>GNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1323	1429	
==>GNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1323	1429	
==>GNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_chec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13941	14047	
==>will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template avai <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13941	14047	
==>will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template avai <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5412	5507	
==>ODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pSyms, $pS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22810	22907	
==>on.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27362	27459	
==>on.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mappin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	594	689	
==>bj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependency declaration from the META <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5166	5281	
==>p>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2708	2823	
==>p>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2396	2490	
==>ugin.

Fyi,
Yaswi apparently requires swi prolog be built ./configure --enable-shared.
=cut
# e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8519	8684	
==>';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8519	8684	
==>';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8519	8684	
==>';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::S <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8764	8873	
==>jPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_err <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3304	3401	
==>d intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3304	3401	
==>d intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3361	3553	
==>_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3361	3553	
==>_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3361	3553	
==>_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13656	13845	
==>idate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13656	13845	
==>idate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13656	13845	
==>idate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	819	933	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	819	933	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	819	933	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	17	129	
==>e PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	17	129	
==>e PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	17	129	
==>e PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2914	3047	
==>rror_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2914	3047	
==>rror_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4438	4571	
==>rror_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9583	9712	
==>sed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1676	1797	
==>sed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1676	1797	
==>sed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3179	3280	
==>d 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Failed  List of Failed
  ------------ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12381	12475	
==>turns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12439	12533	
==>turns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5238	5390	
==>ired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5238	5390	
==>ired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5238	5390	
==>ired in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $defaul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1247	1415	
==>',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule( 
        name => '{',
        name2 => '}',
        assoc => 'non', <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1229	1359	
==>rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	789	919	
==>rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5404	5515	
==>onfess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5404	5515	
==>onfess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5994	6105	
==>onfess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2018	2144	
==>l { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($lin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32471	32564	
==>has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37021	37114	
==>has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2352	2440	
==>ss' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2352	2440	
==>ss' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2352	2440	
==>ss' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8566	8686	
==>educe_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = pop @t <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1367	1463	
==>me since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-firs <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1367	1463	
==>me since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9784	9953	
==>ow to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should al <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9784	9953	
==>ow to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should al <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9784	9953	
==>ow to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should al <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5755	5914	
==>$off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4255	4414	
==>$off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	422	524	
==>odule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	422	524	
==>odule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16950	17077	
==>_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16950	17077	
==>_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16950	17077	
==>_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33367	33527	
==>l
        symbol->new('is_a'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27944	28037	
==>sage Variable value (a string) associated with
the variable name specified in the positional p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27944	28037	
==>sage Variable value (a string) associated with
the variable name specified in the positional p <==
3	/Users/nnunley/pugs/util/func_refact.pl	2581	2695	
==>tributions
        #print "$cand: totall $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1230	1330	
==>abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1230	1330	
==>abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3505	3661	
==>) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3368	3515	
==>) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2837	2979	
==>ile($base, 'blib6', 'lib');
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16456	16549	
==>enBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_buc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16456	16549	
==>enBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_buc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	25	129	
==>ct;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	25	129	
==>ct;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	25	129	
==>ct;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4021	4146	
==>$matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4021	4146	
==>$matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4021	4146	
==>$matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12283	12441	
==>_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12283	12441	
==>_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12283	12441	
==>_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1737	1843	
==>",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1737	1843	
==>",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1737	1843	
==>",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20625	20720	
==>tes are private, so you must use accessor
methods.  Relation does not declare any subroutines or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25177	25272	
==>tes are private, so you must use accessor
methods.  Relation does not declare any subroutines or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10417	10562	
==>support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10417	10562	
==>support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10417	10562	
==>support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	154	247	
==>ritten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	154	247	
==>ritten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	154	247	
==>ritten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	45	158	
==>0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	45	158	
==>0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	45	158	
==>0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7286	7390	
==>gs::Grammar::Precedence - Engine for Perl 6 Rule operator precedence

=head1 SYNOPSIS

  use Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	835	924	
==>osetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	835	924	
==>osetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator: <==
3	/Users/nnunley/pugs/util/run-smoke.pl	266	364	
==>eck_prereq($_) or $failed++;
}

die <<"EOF" if $failed;

You don't seem to have the required module <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13327	13420	
==>.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
your <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13327	13420	
==>.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
your <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	321	420	
==>ths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 1 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	321	420	
==>ths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	322	420	
==>itive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	322	420	
==>itive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	322	420	
==>itive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %mo <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	337	465	
==>-> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	337	465	
==>-> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12247	12367	
==>sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2692	2791	
==>")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2692	2791	
==>")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7830	8032	
==>n       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11307	11509	
==>n       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10471	10673	
==>n       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1585	1696	
==>::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1585	1696	
==>::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1585	1696	
==>::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2817	2909	
==>p{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2817	2909	
==>p{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2817	2909	
==>p{'*{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1335	1429	
==>run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1335	1429	
==>run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1335	1429	
==>run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4635	4747	
==>{ '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4635	4747	
==>{ '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4635	4747	
==>{ '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	256	410	
==>ine      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{me <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	307	430	
==>ine => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{me <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23551	23662	
==>]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7323	7456	
==>}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7335	7468	
==>}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4698	4799	
==>r()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, fro <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4698	4799	
==>r()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, fro <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26196	26294	
==>ring always at start. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	471	572	
==>tead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2]. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	471	572	
==>tead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2]. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	471	572	
==>tead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1224	1323	
==>ine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1224	1323	
==>ine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1224	1323	
==>ine() implementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2948	3069	
==>ingify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2948	3069	
==>ingify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2948	3069	
==>ingify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34543	34673	
==>offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34543	34673	
==>offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34543	34673	
==>offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	879	999	
==>}
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	879	999	
==>}
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	879	999	
==>}
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $coun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2265	2518	
==>{ 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1033	1214	
==>{ 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1033	1214	
==>{ 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9220	9345	
==>my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13069	13189	
==>my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13069	13189	
==>my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2686	2791	
==>S::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2686	2791	
==>S::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2686	2791	
==>S::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20892	20990	
==>u can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25444	25542	
==>u can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered s <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	377	485	
==>rl6_install
      if $install_version eq '6';

    $self->set_blib($install_version);

    $self->set_makefil <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	834	938	
==>here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is prin <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	834	938	
==>here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14731	14837	
==>meric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14731	14837	
==>meric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14731	14837	
==>meric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1365	1478	
==>n must receive at least:

    y - target value for y
    f - function of one variable

It looks for an x such that <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4889	5021	
==>core}{$cat} }
      ];
    }

    $runcores{$runcore} = [
      map {{
        catname => $_,
        smokes  => $runcores{$runcore}{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3418	3521	
==>ce::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3418	3521	
==>ce::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interfa <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10169	10431	
==>alues is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9544	9663	
==>e',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9544	9663	
==>e',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2247	2371	
==>broutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2247	2371	
==>broutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2793	2908	
==>st ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	463	578	
==>:Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tre <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	463	578	
==>:Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	546	645	
==>lti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	546	645	
==>lti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	546	645	
==>lti sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3313	3432	
==>s: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3313	3432	
==>s: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3313	3432	
==>s: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2110	2218	
==>= $level ? 'r' . ($level - 1) : $self->{operand};
    my $equal = "r$level";
    $equal = "parse" if $level = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3619	3736	
==>roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3619	3736	
==>roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3619	3736	
==>roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => su <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	3010	3102	
==>ondie, by providing implementations of
some math, string and IO operations (including a value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	192	287	
==>xtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	192	287	
==>xtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	192	287	
==>xtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRA <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9008	9107	
==>y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die "trying to unify incompatible typ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3801	3895	
==>g, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" r <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3801	3895	
==>g, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17607	17723	
==>match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7024	7122	
==>d content_language ($self: )          is rw { $self.header("Content-Language") }
method content_len <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7024	7122	
==>d content_language ($self: )          is rw { $self.header("Content-Language") }
method content_len <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7847	8018	
==>nce => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4257	4384	
==>D (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4257	4384	
==>D (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            S <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3508	3639	
==>elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3508	3639	
==>elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14039	14145	
==>sing  => sub { mkdir $cdroot };

step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29074	29182	
==>RIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29074	29182	
==>RIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	425	521	
==>RIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	406	507	
==>ubstr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	406	507	
==>ubstr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18867	18972	
==>turn (exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE::Exp::Alt" ]

.sub "p6ana <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9292	9388	
==>$other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semimi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12769	12865	
==>$other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semimi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16453	16550	
==>omplement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16453	16550	
==>omplement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5389	5485	
==>disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5389	5485	
==>disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23062	23271	
==>re( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23062	23271	
==>re( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23062	23271	
==>re( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2413	2542	
==>xt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1540	1634	
==>fix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also th <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1540	1634	
==>fix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	128	231	
==>nts are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New metho <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	128	231	
==>nts are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New metho <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8049	8144	
==>s} ? sort @{$index->{_files}} : ());
    my $template = HTML::Template->new(filename => 'util/ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4957	5075	
==>>has_method($method_name);
            # otherwise ... add the method in 
            $self->add_method($method_name => <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14020	14114	
==>ters in $string with their entity
representation. A second argument can be given to specify whi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14020	14114	
==>ters in $string with their entity
representation. A second argument can be given to specify whi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3641	3753	
==>my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2644	2753	
==>$tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)| <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2644	2753	
==>$tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5962	6058	
==>uning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(ski <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5962	6058	
==>uning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(ski <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5962	6058	
==>uning_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(ski <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2216	2325	
==>TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2216	2325	
==>TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2216	2325	
==>TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13759	13852	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13759	13852	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13759	13852	
==>L::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13751	13857	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13751	13857	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13751	13857	
==>x : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	841	1028	
==>pr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_bl <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	423	523	
==>r();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_toler <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	423	523	
==>r();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_toler <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4535	4639	
==>:", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4535	4639	
==>:", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4535	4639	
==>:", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code($obj);
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	82	180	
==>--------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	82	180	
==>--------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	385	477	
==>k = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	385	477	
==>k = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	220	383	
==>at(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	220	383	
==>at(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	602	734	
==>"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_;
    return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23876	23971	
==>); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23876	23971	
==>); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23876	23971	
==>); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27444	27540	
==>f you want to
conceptually change an existing Message object, you must create a new
object that i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27444	27540	
==>f you want to
conceptually change an existing Message object, you must create a new
object that i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	496	650	
==>f(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	496	650	
==>f(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	496	650	
==>f(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1410	1512	
==>shift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1410	1512	
==>shift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1410	1512	
==>shift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2165	2264	
==>$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2165	2264	
==>$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2165	2264	
==>$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29012	29108	
==>ed
attributes which wrap zero old attributes (they are effectively just an
extension of the relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33564	33660	
==>ed
attributes which wrap zero old attributes (they are effectively just an
extension of the relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32701	32797	
==>ed
attributes which wrap zero old attributes (they are effectively just an
extension of the relat <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	946	1065	
==>s $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper arou <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	946	1065	
==>s $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper arou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12132	12235	
==>ith the parse tree independently, use the root()
method to get it.  From there, you're on your own.  You <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4683	4780	
==>_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4683	4780	
==>_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5273	5370	
==>_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5496	5609	
==>p { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5496	5609	
==>p { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5496	5609	
==>p { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4070	4175	
==>e_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyof_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36440	36532	
==>h.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36440	36532	
==>h.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message o <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16400	16515	
==>cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15462	15569	
==>cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52908	53015	
==>));    
    $meta->add_attr(symbol->new('$:version'   => 'str'));        
    $meta->add_attr(symbol->new('$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	363	478	
==>y $line ( $self->_read_script($script_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5466	5572	
==>rt <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5466	5572	
==>rt <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3303	3402	
==>ostic output of tests,
running those tests, and then telling this module to compare the received
out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3303	3402	
==>ostic output of tests,
running those tests, and then telling this module to compare the received
out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3383	3482	
==>ostic output of tests,
running those tests, and then telling this module to compare the received
out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	2	92	
==>See also: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	2	92	
==>See also: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	2	92	
==>See also: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4061	4166	
==>$f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4061	4166	
==>$f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4061	4166	
==>$f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1338	1457	
==>lled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1338	1457	
==>lled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1338	1457	
==>lled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(ar <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3069	3187	
==>^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                wh <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3069	3187	
==>^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                wh <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15053	15148	
==>his causes the type variables in the cloned function to be instantiated to the concrete values a <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7396	7520	
==>lit "\000",
                `find $lib6 -print0`;
  };
my $newest_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_sta <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2894	3007	
==>le @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2894	3007	
==>le @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3050	3151	
==>V{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3050	3151	
==>V{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14349	14447	
==>sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => sub { open my $fh, ">", "$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11363	11462	
==>ause they will not get inherited. This provides more predictable 
behavior to class consturction bec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11363	11462	
==>ause they will not get inherited. This provides more predictable 
behavior to class consturction bec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11363	11462	
==>ause they will not get inherited. This provides more predictable 
behavior to class consturction bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18339	18441	
==>ix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18339	18441	
==>ix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18339	18441	
==>ix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14352	14472	
==>table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14352	14472	
==>table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14352	14472	
==>table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3112	3213	
==>r::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    su <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3112	3213	
==>r::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6563	6692	
==>e);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6563	6692	
==>e);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8775	9082	
==>w;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8775	9082	
==>w;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8775	9082	
==>w;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9585	9737	
==>\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5926	6078	
==>\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6775	6927	
==>\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10435	10546	
==>-------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10435	10546	
==>-------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10435	10546	
==>-------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	189	293	
==>urn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	189	293	
==>urn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	189	293	
==>urn") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	510	610	
==>ensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	510	610	
==>ensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	510	610	
==>ensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might thi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2678	2772	
==>:Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2678	2772	
==>:Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The req <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2874	2979	
==>(  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
multi Array::push (@array is rw ; *@values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1641	1741	
==>l out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1641	1741	
==>l out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6549	6647	
==>::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6549	6647	
==>::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6549	6647	
==>::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19337	19494	
==>ass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19337	19494	
==>ass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19337	19494	
==>ass}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fal <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4742	4852	
==>lemented as a runtime primitive.' .
                'No, Blondie will not have church integers any time soon.', <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	924	1019	
==>o provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	924	1019	
==>o provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1172	1267	
==>LIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1172	1267	
==>LIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1172	1267	
==>LIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1988	2080	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1988	2080	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1988	2080	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8038	8154	
==>ice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $oth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8038	8154	
==>ice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $oth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8038	8154	
==>ice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $oth <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2101	2225	
==>days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    e <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2101	2225	
==>days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10214	10322	
==>able array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10214	10322	
==>able array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10214	10322	
==>able array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	699	1032	
==>gs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	699	1032	
==>gs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	699	1032	
==>gs };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9434	9574	
==>';
      return $S->$n;
    }
  });

  $self->add_handler(':::' => sub {
    my ($S) = @_;
  });


  ### '#'

  # I don't think I need to han <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1646	1742	
==>}, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2400	2491	
==>slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::Lis <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2400	2491	
==>slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::Lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4578	4688	
==>ot implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub specia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4578	4688	
==>ot implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub specia <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3925	4034	
==>ys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach my $key (@tuple_keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	184	284	
==>values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	184	284	
==>values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	184	284	
==>values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3013	3109	
==>The IP address of the client, if available.

=back

In addition, the following request headers ar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3013	3109	
==>The IP address of the client, if available.

=back

In addition, the following request headers ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14327	14419	
==>s.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14327	14419	
==>s.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14327	14419	
==>s.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class. <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5810	5927	
==>cope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5506	5603	
==>itly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed ( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5506	5603	
==>itly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5791	5924	
==>oop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5791	5924	
==>oop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::In <==
3	/Users/nnunley/pugs/util/drift.pl	880	984	
==>, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit unless @program;

# Rearr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1362	1453	
==>irst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1362	1453	
==>irst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1362	1453	
==>irst_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) is p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6429	6544	
==>type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6429	6544	
==>type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosett <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14702	14811	
==>r('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14702	14811	
==>r('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14702	14811	
==>r('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2916	3029	
==>me =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2916	3029	
==>me =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2916	3029	
==>me =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1508	1605	
==>ecompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1508	1605	
==>ecompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1508	1605	
==>ecompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3837	3929	
==>---------------------------------------------------
## Package

## See http://article.gmane.o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3837	3929	
==>---------------------------------------------------
## Package

## See http://article.gmane.o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3837	3929	
==>---------------------------------------------------
## Package

## See http://article.gmane.o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5770	5890	
==>se {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5770	5890	
==>se {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6360	6480	
==>se {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9788	9946	
==>ason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1869	2011	
==>ason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, St <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1869	2011	
==>ason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, St <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9431	9534	
==>todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9489	9592	
==>todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	776	885	
==>er);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	776	885	
==>er);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!conten <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1112	1216	
==>of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::instantiated - points to anothe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40593	40688	
==>d warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
detail <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40593	40688	
==>d warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
detail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2550	2642	
==>ssed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2550	2642	
==>ssed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2550	2642	
==>ssed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	807	910	
==>PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	807	910	
==>PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	807	910	
==>PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1000	1118	
==>kipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1000	1118	
==>kipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1000	1118	
==>kipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	189	302	
==>rl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	189	302	
==>rl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	189	302	
==>rl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2401	2513	
==>$body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2401	2513	
==>$body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2401	2513	
==>$body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metac <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1528	1623	
==>nExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1528	1623	
==>nExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27790	27881	
==>rser::*> object of the same name, and finally
from F<Regexp::Parser::__object__>.  Don't wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5698	5872	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5698	5872	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5698	5872	
==>ub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	188	298	
==>ORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	188	298	
==>ORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22090	22200	
==>=> $length,
			param => ide("xs"),
		),
	),
);

my $one_elem_list = fun(
	param => "x",
	body => comb(
		fun => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1716	1858	
==>lf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1716	1858	
==>lf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1716	1858	
==>lf, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13453	13557	
==>e =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13453	13557	
==>e =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29252	29387	
==>m{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29252	29387	
==>m{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29252	29387	
==>m{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Sca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6125	6241	
==>$_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6113	6229	
==>$_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21890	21987	
==>BinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21890	21987	
==>BinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21890	21987	
==>BinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1161	1308	
==>),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order f <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2050	2147	
==>ad1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2050	2147	
==>ad1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1615	1774	
==>> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1615	1774	
==>> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1615	1774	
==>> '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17946	18164	
==>$self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mim <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17946	18164	
==>$self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mim <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17946	18164	
==>$self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mim <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7334	7447	
==>HOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRI <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7334	7447	
==>HOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8084	8180	
==>ANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use the next() <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7155	7257	
==>AME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-1 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7155	7257	
==>AME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17055	17167	
==>once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4385	4476	
==>urn value');
is($Object->superclass, undef, '... $Object got the right method return value') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6287	6378	
==>urn value');
is($Object->superclass, undef, '... $Object got the right method return value') <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4535	4639	
==>ter types with thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap(sub {
			my $node = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1661	1765	
==>/^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1721	1825	
==>/^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'per <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8803	8912	
==>_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval st <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8803	8912	
==>_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	422	545	
==>nless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need it
eval 
  q(
    use FindB <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13378	13470	
==>fer directly to "Locale::KeyedText" in
your code; instead refer to other above-named packages <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13378	13470	
==>fer directly to "Locale::KeyedText" in
your code; instead refer to other above-named packages <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1451	1575	
==>fied using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1451	1575	
==>fied using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1451	1575	
==>fied using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13011	13188	
==>$ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13011	13188	
==>$ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13011	13188	
==>$ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6835	6953	
==>'\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6835	6953	
==>'\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6835	6953	
==>'\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2625	2732	
==>ariable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2625	2732	
==>ariable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7799	7937	
==>ek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11800	11933	
==>ek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11800	11933	
==>ek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        ret <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24224	24328	
==>hey are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confined to regcomp/regex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25803	25897	
==>e any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25803	25897	
==>e any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of A <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	64	167	
==>), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	64	167	
==>), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13974	14092	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13974	14092	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13974	14092	
==>ue::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2417	2519	
==>atches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2417	2519	
==>atches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2497	2599	
==>atches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12357	12517	
==>ed}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($test{max},$test{skipped},
                                                    @{$tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22884	23000	
==>ical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19305	19421	
==>ical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	682	785	
==><rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*toke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	682	785	
==><rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*toke <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4493	4593	
==>um = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $self->right->splat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3737	3854	
==>a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3737	3854	
==>a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3737	3854	
==>a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10653	10786	
==>rred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10653	10786	
==>rred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10653	10786	
==>rred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2825	2942	
==>> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3030	3147	
==>> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2931	3035	
==>$label)
        returns Control::Caller is primitive is builtin is safe {
    my @caller = Pugs::Internal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19711	19910	
==>leop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19990	20189	
==>leop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3034	3162	
==>etails
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$f <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2835	2948	
==>f: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2835	2948	
==>f: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1271	1399	
==>nge Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1271	1399	
==>nge Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1579	1684	
==>ter::num_size 128;');


subset bit  of uint1 where { true };
subset byte of uint8 where { true };

Helpers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8913	9165	
==>y, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8913	9165	
==>y, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8913	9165	
==>y, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38828	38924	
==>can (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43642	43738	
==>can (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43176	43272	
==>can (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8315	8416	
==>hans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8315	8416	
==>hans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8477	8609	
==>r[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8477	8609	
==>r[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8477	8609	
==>r[i].STORE;
        backup_arr[i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6607	6697	
==>ain_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6607	6697	
==>ain_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6607	6697	
==>ain_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	346	462	
==>geChar is Char;
class Grapheme     is Char;
class CodePoint    is Char;
class Byte         is Char, Number;

macro LC <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1497	1595	
==>path( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1497	1595	
==>path( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6538	6628	
==>hority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6538	6628	
==>hority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6538	6628	
==>hority' => ::make_attribute('$:authority'));

$::Module->add_method('version' => ::make_met <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12340	12464	
==>:carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lval <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3264	3346	
==>plement_previous, $self.complement_next, $set.complement_previous, $set.complement_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3264	3346	
==>plement_previous, $self.complement_next, $set.complement_previous, $set.complement_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19513	19642	
==>variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19792	19921	
==>variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::captu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2750	2862	
==>->addToken("close:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3426	3610	
==>atch   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3426	3610	
==>atch   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3426	3610	
==>atch   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1708	1834	
==>e($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1708	1834	
==>e($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1708	1834	
==>e($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9775	9891	
==>e File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9775	9891	
==>e File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9775	9891	
==>e File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1202	1300	
==>PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1202	1300	
==>PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1202	1300	
==>PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14058	14162	
==>fty = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = $o->d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18385	18488	
==>regexp engines.  There being little documentation, we
reverse engineering perl source.

We basically use <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15257	15355	
==>pected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15315	15413	
==>pected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12779	12895	
==>ned $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12779	12895	
==>ned $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12779	12895	
==>ned $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8418	8530	
==>rom_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8418	8530	
==>rom_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8418	8530	
==>rom_me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1725	1860	
==>val && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1725	1860	
==>val && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1725	1860	
==>val && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15685	15803	
==>x) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10541	10659	
==>x) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4075	4180	
==>- an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3931	4034	
==>- an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3487	3604	
==>ifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3487	3604	
==>ifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3487	3604	
==>ifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1385	1546	
==>ct'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$n'),
						App(
							Sym('&control <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8734	8840	
==>ata::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8730	8836	
==>ata::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5905	6007	
==>onflicts ... add method
                $self->add_method($method_name => $role->get_method($method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5905	6007	
==>onflicts ... add method
                $self->add_method($method_name => $role->get_method($method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5905	6007	
==>onflicts ... add method
                $self->add_method($method_name => $role->get_method($method_nam <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1650	1749	
==>to fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1650	1749	
==>to fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5595	5717	
==>lict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5595	5717	
==>lict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5595	5717	
==>lict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	315	428	
==>:Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	315	428	
==>:Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	99	196	
==>IR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::C <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4324	4446	
==>>[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "0000000001\n" ],
      [ 'fi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9809	9906	
==>ng the very first module written for Pugs.

It provides a simple set of common test utility functi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9867	9964	
==>ng the very first module written for Pugs.

It provides a simple set of common test utility functi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3043	3184	
==>,
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	17	106	
==>erl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	17	106	
==>erl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2292	2420	
==>$:expect = 0 )
      {
          fail "Invalid or missing plan" unless defined $:expect;
      }
  
      method header returns S <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	31	139	
==>:Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration co <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	31	139	
==>:Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34355	34450	
==>n> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38905	39000	
==>n> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38384	38479	
==>n> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1605	1718	
==>\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl | <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1605	1718	
==>\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl | <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1605	1718	
==>\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	26	122	
==>ch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use stri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	26	122	
==>ch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use stri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17732	17825	
==>Strap->{callback} = \&strap_callback;
sub strap_callback {
    my($self, $line, $type, $totals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	863	1027	
==>blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	863	1027	
==>blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	863	1027	
==>blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3364	3499	
==>'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3364	3499	
==>'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3364	3499	
==>'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1589	1715	
==>ell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1589	1715	
==>ell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1589	1715	
==>ell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=rea <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4275	4396	
==>no_index->{'directory'} }, 'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2027	2118	
==>tect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2027	2118	
==>tect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8769	8875	
==>:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8769	8875	
==>:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8769	8875	
==>:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3812	3909	
==>em B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3812	3909	
==>em B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3892	3989	
==>em B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8096	8232	
==>sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[T <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8096	8232	
==>sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20229	20324	
==>a language file to the program package.  No
recompilation necessary.  This is something that end <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20229	20324	
==>a language file to the program package.  No
recompilation necessary.  This is something that end <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5644	5743	
==>"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5644	5743	
==>"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5644	5743	
==>"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2534	2638	
==>vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2534	2638	
==>vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2534	2638	
==>vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1208	1316	
==>*SCRIPT;
    open SCRIPT, $script_file
      or die "Can't open '$script_file' for input: $!\n";
    return < <==
3	/Users/nnunley/pugs/util/testgraph.pl	383	489	
==>yamlfh, '<', $yamlfile) or die "Couldn't open $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21859	21948	
==>SING

I will present two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::AndBranch>. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5847	5963	
==>ue->isa('type'))
        || confess "You must set '$name' to a native type";
    my $current = $self;
    while ($cur <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5413	5522	
==>: $x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.nex <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5413	5522	
==>: $x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.nex <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7274	7400	
==>CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7274	7400	
==>CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	699	827	
==>_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1147	1267	
==>_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4265	4365	
==>)(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4265	4365	
==>)(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4265	4365	
==>)(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7208	7316	
==>ume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (sp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7208	7316	
==>ume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (sp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8721	8890	
==>s a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5081	5250	
==>s a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5930	6099	
==>s a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1557	1682	
==>nt         native integer
    str         native string (sequence of integers, no Unicode)
    num         native floating poi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12524	12622	
==>is used to represent ranges of things that can be counted, such as beats per minute, 
wags per seco <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12524	12622	
==>is used to represent ranges of things that can be counted, such as beats per minute, 
wags per seco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3738	3865	
==>subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3738	3865	
==>subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3738	3865	
==>subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17839	17956	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20719	20836	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24507	24624	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2337	2463	
==>or_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2337	2463	
==>or_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2337	2463	
==>or_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return spr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5308	5410	
==>ame is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5308	5410	
==>ame is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5308	5410	
==>ame is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5118	5229	
==>it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5118	5229	
==>it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5118	5229	
==>it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($value, $self);
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16146	16250	
==>label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16146	16250	
==>label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16146	16250	
==>label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6119	6239	
==>my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7117	7237	
==>my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = sp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25982	26092	
==>e ControlLetter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <Iden <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12081	12186	
==>%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12081	12186	
==>%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3348	3505	
==>ss $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3348	3505	
==>ss $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3348	3505	
==>ss $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	564	669	
==>.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	564	669	
==>.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	564	669	
==>.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1398	1540	
==>h);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = p <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1398	1540	
==>h);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13368	13492	
==>, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13368	13492	
==>, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13368	13492	
==>, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1243	1336	
==>own to your project's base namespace.

Class::Rebless walks scalar, array, and hash references <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1243	1336	
==>own to your project's base namespace.

Class::Rebless walks scalar, array, and hash references <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1243	1336	
==>own to your project's base namespace.

Class::Rebless walks scalar, array, and hash references <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2478	2587	
==>xport/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2478	2587	
==>xport/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2478	2587	
==>xport/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	718	847	
==>TCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	718	847	
==>TCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	718	847	
==>TCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3420	3595	
==>~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3420	3595	
==>~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3420	3595	
==>~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($met <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4991	5154	
==>d test.  C<%test> is the results
            #of the test you're summarizing.
            my $details = {
                ok         => $pass,
                actua <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16760	16859	
==>ner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20237	20336	
==>ner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1046	1153	
==>or Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1046	1153	
==>or Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1046	1153	
==>or Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4119	4246	
==>ns HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4119	4246	
==>ns HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4119	4246	
==>ns HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/ja <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7403	7547	
==>+;
            return 
                " Pugs::Runtime::Perl6::Scalar::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n->{se <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2216	2310	
==>portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encry <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2216	2310	
==>portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encry <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	103	197	
==>s($?CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "at <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29805	29904	
==>rts having the new attributes having the same names as old attributes
that were wrapped, and it supp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34357	34456	
==>rts having the new attributes having the same names as old attributes
that were wrapped, and it supp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33521	33620	
==>rts having the new attributes having the same names as old attributes
that were wrapped, and it supp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	418	531	
==>il->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4888	4984	
==>ct (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial positi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4888	4984	
==>ct (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial positi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4742	4870	
==>re
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4742	4870	
==>re
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4742	4870	
==>re
                    $new_class->add_singleton_method($method_name => ::make_private_method(
                        $body->{cl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16323	16419	
==><< $strap->{max} >> , C<< $strap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1854	1957	
==>sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1854	1957	
==>sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1854	1957	
==>sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7240	7413	
==>py});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7240	7413	
==>py});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7240	7413	
==>py});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15464	15567	
==>xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15464	15567	
==>xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15464	15567	
==>xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3119	3230	
==>e");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3119	3230	
==>e");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3119	3230	
==>e");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13018	13162	
==>dentify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13018	13162	
==>dentify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13018	13162	
==>dentify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13921	14074	
==>s}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13921	14074	
==>s}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13921	14074	
==>s}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6892	6990	
==>dd at the beginning, before the 
ciphertext.  This will be prepended to the return value of the fir <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6892	6990	
==>dd at the beginning, before the 
ciphertext.  This will be prepended to the return value of the fir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5154	5271	
==>thod, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	346	456	
==>s and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subin <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	346	456	
==>s and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30155	30248	
==>essage; this user string may also contain variable names that correspond
to Message Variables, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30155	30248	
==>essage; this user string may also contain variable names that correspond
to Message Variables, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2610	2713	
==>ingification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2610	2713	
==>ingification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2610	2713	
==>ingification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real m <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2359	2469	
==>= $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4619	4729	
==>= $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26251	26338	
==>==================================================================

use strict;
use warn <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3874	4003	
==>be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1365	1456	
==>SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1365	1456	
==>SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2708	2826	
==>caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2708	2826	
==>caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2708	2826	
==>caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1896	2144	
==>l5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modif <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1896	2144	
==>l5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modif <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4524	4637	
==>$self,$cls;
    $self;
}
sub rep_type  { $_[0]{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26262	26513	
==>rt, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26262	26513	
==>rt, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26262	26513	
==>rt, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2347	2572	
==>ch => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	963	1071	
==>be.  And perl5 might benefit from its existence.  Normally this
# kind of reverse-engineered implicit abstrac <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3531	3636	
==>th ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/x <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3531	3636	
==>th ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/x <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4320	4433	
==>, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4378	4491	
==>, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, : <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3415	3507	
==>framework. The class itself is actually a factory for
classes which C<does> the Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3415	3507	
==>framework. The class itself is actually a factory for
classes which C<does> the Test::Builder <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5612	5704	
==>framework. The class itself is actually a factory for
classes which C<does> the Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8169	8276	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11646	11753	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10828	10935	
==>e invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11147	11267	
==>d::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11147	11267	
==>d::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11147	11267	
==>d::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4003	4118	
==>return $_[0]{q1}() } 
    ' );
    my $match = $rule->match( "xyzw" );
    is( "$match", "x", 'stringify 1' );
}


_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10060	10159	
==>erically. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10060	10159	
==>erically. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence obj <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11535	11640	
==>6 modules to the initrd",
    ensure => sub { -r "$initrd_mnt/lib6/$_" or return for @modfiles; 1 },
    u <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12793	12888	
==>2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12793	12888	
==>2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15058	15162	
==>sed to read
and to set the value of a header.  The header value is set if you pass
an argument to the met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15058	15162	
==>sed to read
and to set the value of a header.  The header value is set if you pass
an argument to the met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2344	2450	
==>.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2344	2450	
==>.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2344	2450	
==>.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1600	1718	
==>($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1600	1718	
==>($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1600	1718	
==>($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13853	13983	
==>ly eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $tree->[-1]->{data} };
      my $v = pop @{ $tree->[-1]->{vi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2627	2735	
==>lf: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2627	2735	
==>lf: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2683	2831	
==>ys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2683	2831	
==>ys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2683	2831	
==>ys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	451	555	
==>m->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	451	555	
==>m->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compil <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7844	7941	
==>{I is I1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2759	2889	
==>command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2759	2889	
==>command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2759	2889	
==>command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42931	43021	
==>stribution:
L<Relation-(0.1.0)|Relation>.

=head1 INCOMPATIBILITIES

None reported.

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6077	6162	
==>ze($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6077	6162	
==>ze($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6492	6632	
==>=>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6492	6632	
==>=>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6492	6632	
==>=>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38459	38579	
==>= shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38459	38579	
==>= shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38459	38579	
==>= shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1531	1656	
==>currency not supported on your platform\n";
        $Config{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19770	19869	
==>FACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
al <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19770	19869	
==>FACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
al <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3773	4033	
==>E>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3773	4033	
==>E>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7191	7290	
==>@operatorStack, $operator;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_O <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	718	850	
==>t.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dumm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	718	850	
==>t.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dumm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	718	850	
==>t.FETCH()([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dumm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1548	1677	
==>$@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9052	9150	
==>r end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9052	9150	
==>r end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3813	3920	
==>("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3813	3920	
==>("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2146	2242	
==>_versnum: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smok <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6216	6357	
==>=    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6729	6870	
==>=    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HA <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2948	3070	
==>rn $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object rep <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2948	3070	
==>rn $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	500	603	
==>~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	500	603	
==>~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	500	603	
==>~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2274	2462	
==>add_children(
                                Tree.new(:node<Sub>).add_children(
                                    Tree.new(:node<Method>),
                                    Tree.new(:n <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	32	134	
==>n Perl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto sagt: ", hallo('H <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5659	5758	
==>))    --> "(?!",  !, p5_start(R), ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_start(Rx) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1370	1511	
==>_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1370	1511	
==>_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2672	2793	
==>mespace
    Class       Perl 6 standard class namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3415	3545	
==>abel, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3415	3545	
==>abel, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3415	3545	
==>abel, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4225	4347	
==>perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4225	4347	
==>perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4225	4347	
==>perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  pri <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4857	4997	
==>(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4857	4997	
==>(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dir <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	900	1009	
==>om);
  my $position = -1;
  $me->position($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4240	4343	
==>on thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4298	4401	
==>on thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21363	21519	
==>)/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $test->{max} || '??',
             failed => $failed, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10811	10904	
==>bulk of the Rosetta::Model code,
and these could potentially be extended by third party add-on <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10811	10904	
==>bulk of the Rosetta::Model code,
and these could potentially be extended by third party add-on <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10564	10675	
==>person );

    # Define and compile a function that will select a record from the
    # 'person' table, whose 'i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10564	10675	
==>person );

    # Define and compile a function that will select a record from the
    # 'person' table, whose 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1161	1269	
==>t;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1161	1269	
==>t;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1161	1269	
==>t;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10142	10273	
==>if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10142	10273	
==>if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10142	10273	
==>if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2025	2117	
==>b Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2025	2117	
==>b Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2025	2117	
==>b Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5438	5540	
==>) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5438	5540	
==>) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5438	5540	
==>) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2746	2829	
==>google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2746	2829	
==>google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4258	4380	
==>p {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4258	4380	
==>p {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4258	4380	
==>p {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3908	4008	
==>Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3908	4008	
==>Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3908	4008	
==>Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	287	389	
==>\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	287	389	
==>\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	287	389	
==>\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2664	2792	
==>ix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self->{_top}{base};
    my $full_pugs = $self->pugs_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1397	1497	
==>turns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1397	1497	
==>turns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5375	5535	
==>ll')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5375	5535	
==>ll')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5375	5535	
==>ll')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) } <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10394	10528	
==>t open output test file $output_path: $!";
                         
  my $template = HTML::Template->new(filename => catdir $start_dir <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2604	2714	
==>irst in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2604	2714	
==>irst in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1115	1215	
==>f we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm woul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1115	1215	
==>f we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm woul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1115	1215	
==>f we did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm woul <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1312	1438	
==>nfig); 
    add_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchli <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	258	358	
==>pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub roo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	258	358	
==>pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9949	10087	
==>ce";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9949	10087	
==>ce";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9949	10087	
==>ce";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $el <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3450	3552	
==>$universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3450	3552	
==>$universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29276	29371	
==>no 'ato' handle,
basically).  In order for the 'atom' handle to be executed, you must
explicitly <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15779	15934	
==>o_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15779	15934	
==>o_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15779	15934	
==>o_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1442	1565	
==>classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1442	1565	
==>classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1442	1565	
==>classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12052	12145	
==>f, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function cu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12110	12203	
==>f, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1731	1843	
==>.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1731	1843	
==>.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1731	1843	
==>.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	731	846	
==>ure_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	724	839	
==>ure_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4640	4785	
==>y $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4640	4785	
==>y $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4640	4785	
==>y $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6297	6420	
==>e', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6297	6420	
==>e', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	743	848	
==>west possible scalar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10962	11104	
==>=>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10962	11104	
==>=>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10962	11104	
==>=>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2132	2238	
==>ata::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2132	2238	
==>ata::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2479	2585	
==>ata::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9241	9378	
==>om position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9241	9378	
==>om position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9241	9378	
==>om position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1140	1244	
==>() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1140	1244	
==>() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1140	1244	
==>() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re im <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11772	11897	
==>2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11772	11897	
==>2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11772	11897	
==>2JS.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < ar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2713	2892	
==>}

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2713	2892	
==>}

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	295	407	
==>sts => 32;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_coun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20264	20351	
==>p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20264	20351	
==>p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20264	20351	
==>p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	239	347	
==>{
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	239	347	
==>{
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	239	347	
==>{
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9887	9993	
==>al "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	322	425	
==>al "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	322	425	
==>al "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2774	2876	
==>_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2774	2876	
==>_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2774	2876	
==>_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4204	4325	
==>[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4204	4325	
==>[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4204	4325	
==>[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	477	582	
==>class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	477	582	
==>class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	477	582	
==>class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9558	9832	
==>@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if se <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9558	9832	
==>@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1959	2107	
==>ur sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1959	2107	
==>ur sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1959	2107	
==>ur sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3028	3126	
==>R <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3028	3126	
==>R <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3028	3126	
==>R <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6330	6431	
==>B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6330	6431	
==>B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8527	8628	
==>B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3918	4056	
==>erse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5142	5280	
==>erse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6843	6929	
==>-----------------------------------------------------------------
## BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6843	6929	
==>-----------------------------------------------------------------
## BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6843	6929	
==>-----------------------------------------------------------------
## BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4760	4867	
==>)->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4760	4867	
==>)->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4760	4867	
==>)->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10915	11012	
==>= $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10915	11012	
==>= $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10915	11012	
==>= $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35169	35266	
==>=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35169	35266	
==>=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1422	1512	
==>", "nows", "PGE::Exp::Group");
    $optable->addToken("<commit>", "term:", "nows", "PGE::Ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11104	11231	
==>= bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'exact',
      data => [$data],
      vis => [$vis], <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	225	349	
==>sh = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0 <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	225	349	
==>sh = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2756	2905	
==>->new );
        
        ### call the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18292	18382	
==>invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18292	18382	
==>invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9696	9818	
==>rt + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9696	9818	
==>rt + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9696	9818	
==>rt + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8393	8550	
==>ne_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8393	8550	
==>ne_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4056	4160	
==>alue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4056	4160	
==>alue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4056	4160	
==>alue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6116	6223	
==>o to signal
this is to return the string set in advance with the prune method.

This feature is useful, like <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6116	6223	
==>o to signal
this is to return the string set in advance with the prune method.

This feature is useful, like <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6116	6223	
==>o to signal
this is to return the string set in advance with the prune method.

This feature is useful, like <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10566	10719	
==>ned);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10566	10719	
==>ned);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10566	10719	
==>ned);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx]. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16212	16354	
==>10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corner) returns Int is pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7755	7845	
==>@statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1580	1670	
==>@statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	430	549	
==>ef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	430	549	
==>ef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.en <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21558	21670	
==>]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1784	1909	
==>e_var( $n->{array} )
        if exists $n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{h <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	566	662	
==>thod start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	566	662	
==>thod start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	623	729	
==>uggest performance is quite plausible.

# Next steps:

# Create a clean backtracking library (basically a s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18013	18111	
==>lass to implement it; that is, multiple DBMS objects will not
have references to each other at a le <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18013	18111	
==>lass to implement it; that is, multiple DBMS objects will not
have references to each other at a le <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3217	3330	
==>f.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3217	3330	
==>f.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32054	32162	
==>ect (for flag assertions
and C<(?:...)>).

=item omit

Whether this object is omitted from the actual tree (l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14051	14220	
==>per( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        #} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16162	16255	
==>the named parameter $node_type (a
string); the optional named parameter %attributes (a hash re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16162	16255	
==>the named parameter $node_type (a
string); the optional named parameter %attributes (a hash re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3948	4057	
==>erence {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    method <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14986	15077	
==>ines a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14986	15077	
==>ines a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36652	36746	
==>hat a Template corresponding to the Message could be
found using the Translator object's Set an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36652	36746	
==>hat a Template corresponding to the Message could be
found using the Translator object's Set an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6453	6547	
==>ethod $method)) returns nil
    ((($self: get_attr (symbol new (%:methods))) store ($label $met <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6648	6764	
==>nd_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6648	6764	
==>nd_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7465	7567	
==>]\s*|(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3903	4056	
==>ndex] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3903	4056	
==>ndex] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20552	20672	
==>y $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:per <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4562	4715	
==>{
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            pu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4562	4715	
==>{
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            pu <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3635	3758	
==>ness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15039	15159	
==>(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15039	15159	
==>(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15039	15159	
==>(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5003	5133	
==>>fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5003	5133	
==>>fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5003	5133	
==>>fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12601	12710	
==>_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12601	12710	
==>_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12601	12710	
==>_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MU <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18896	18996	
==>reates, but which we obviously don't have).


=head1 struct regexp

  typedef struct regexp {

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1434	1529	
==>odule which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=he <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1434	1529	
==>odule which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=he <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20376	20531	
==>um)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# defined

# undef

# item 

# want

# calle <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	680	784	
==>$/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "qu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	680	784	
==>$/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10020	10200	
==>self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10020	10200	
==>self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10020	10200	
==>self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2222	2317	
==>ns of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted we <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2222	2317	
==>ns of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted we <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22769	22864	
==>GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	54	143	
==>currence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite- <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	54	143	
==>currence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21132	21228	
==>0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21132	21228	
==>0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21132	21228	
==>0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9961	10122	
==>";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9961	10122	
==>";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9961	10122	
==>";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8543	8646	
==>!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8543	8646	
==>!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16854	16943	
==>0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9774	9897	
==>ch 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9774	9897	
==>ch 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9774	9897	
==>ch 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2800	2907	
==>Get]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	90	189	
==>s Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BU <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	90	189	
==>s Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15645	15749	
==>eys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15645	15749	
==>eys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15645	15749	
==>eys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8731	8890	
==>hing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8731	8890	
==>hing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8731	8890	
==>hing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	55	168	
==>p!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	55	168	
==>p!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	55	168	
==>p!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2326	2421	
==>other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2326	2421	
==>other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2669	2779	
==>ile\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2669	2779	
==>ile\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2669	2779	
==>ile\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3319	3427	
==>tributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3319	3427	
==>tributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3319	3427	
==>tributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17462	17597	
==>ber of todo tests which 
                      unexpectedly passed

  skip              number of tests skipped

So a successful test sh <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	666	772	
==>lts ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) return <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	666	772	
==>lts ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10772	10869	
==>unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10772	10869	
==>unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10772	10869	
==>unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2474	2597	
==>ass = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        req <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20918	21012	
==>er (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20918	21012	
==>er (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3246	3367	
==>arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3246	3367	
==>arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3246	3367	
==>arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4030	4133	
==>t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4030	4133	
==>t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4030	4133	
==>t be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1899	1999	
==>ror;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13616	13711	
==>c, and the
names are returned in the recommended "Good Practice" order.

In scalar context retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13616	13711	
==>c, and the
names are returned in the recommended "Good Practice" order.

In scalar context retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1295	1428	
==>positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1295	1428	
==>positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10109	10229	
==>y dwimmy.

    ### XXX: NOTE ###
    # this is intended to eventually replace Prim.hs's open (or be replaced by
    # it, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4806	4926	
==>Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4806	4926	
==>Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4806	4926	
==>Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the resul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	496	619	
==>tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	496	619	
==>tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9290	9411	
==>m{ \G ([a-z]+) }xgc) {
    }

  });

  $self->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18829	19029	
==>her = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18829	19029	
==>her = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18829	19029	
==>her = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	357	454	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	357	454	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	357	454	
==>.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5878	6002	
==>& $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An ob <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5878	6002	
==>& $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An ob <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	489	599	
==>ause]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1347	1457	
==>ause]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_k <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	284	379	
==>open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	284	379	
==>open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6103	6235	
==>=> sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6103	6235	
==>=> sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $pro <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3521	3618	
==>ly and dynamically scoped
overriding.  You currently can't do lexical.  It's not clear how to do
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5573	5696	
==>SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5573	5696	
==>SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5573	5696	
==>SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16868	17020	
==>traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16868	17020	
==>traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16868	17020	
==>traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1231	1325	
==>stamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, ' <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1231	1325	
==>stamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7272	7431	
==>ILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1109	1212	
==>statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1109	1212	
==>statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14182	14321	
==>if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14182	14321	
==>if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14182	14321	
==>if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1173	1301	
==>SAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1173	1301	
==>SAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1173	1301	
==>SAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSA <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	645	758	
==>else {
    if($args{help}) {
      printf STDERR "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	478	584	
==>rint" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that mak <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	478	584	
==>rint" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that mak <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20039	20134	
==>t Hash,
or various combinations of other data types.

While the implementation can be changed gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24591	24686	
==>t Hash,
or various combinations of other data types.

While the implementation can be changed gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23143	23238	
==>t Hash,
or various combinations of other data types.

While the implementation can be changed gr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2628	2742	
==>strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2616	2730	
==>strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2694	2791	
==>pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::Backend::C;

=head1 DESCR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3731	3840	
==>n_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3731	3840	
==>n_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3731	3840	
==>n_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1730	1830	
==>erted = 0;
sub import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_regexp_pair {
  my( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	762	858	
==>ilename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	762	858	
==>ilename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	9	102	
==>e Pugs::Grammar::Ternary;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5870	5970	
==>:Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5870	5970	
==>:Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7394	7494	
==>:Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2852	2956	
==>nit_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2852	2956	
==>nit_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2852	2956	
==>nit_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	480	591	
==>_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	480	591	
==>_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	480	591	
==>_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	914	1020	
==>y_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	914	1020	
==>y_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	914	1020	
==>y_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4619	4742	
==>er->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4461	4579	
==>er->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3375	3476	
==>s a proper module version, or '0.0' if none was available.

=cut

sub _version_to_number {
    my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19128	19222	
==>is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19128	19222	
==>is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1781	1897	
==>d of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1781	1897	
==>d of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4311	4429	
==>nical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4311	4429	
==>nical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4311	4429	
==>nical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29079	29182	
==>returns a new Relation::Example
which is the same as the invocant Relation::Example but that some of its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31927	32030	
==>returns a new Relation::Example
which is the same as the invocant Relation::Example but that some of its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32974	33077	
==>returns a new Relation::Example
which is the same as the invocant Relation::Example but that some of its <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2239	2352	
==>%param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( % <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2239	2352	
==>%param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( % <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2930	3036	
==>r ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,'design')) :
          (catdir('..', 'Perl6- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	259	407	
==>calar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ($self, $v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7517	7630	
==>s.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normaliz <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7517	7630	
==>s.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normaliz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1782	1888	
==>ce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1782	1888	
==>ce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1782	1888	
==>ce

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_requ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1452	1567	
==>1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1452	1567	
==>1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	7	103	
==>bin/perl

package Blondie::Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3148	3260	
==>eturn $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3148	3260	
==>eturn $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3148	3260	
==>eturn $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1304	1423	
==>mfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4023	4124	
==>r, month => $month, day => $day )`

Returns a date object for the given values.  The month and day def <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4023	4124	
==>r, month => $month, day => $day )`

Returns a date object for the given values.  The month and day def <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	167	303	
==>e = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	167	303	
==>e = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8684	8796	
==>pe'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind eq 'Po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3891	4045	
==>s1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3891	4045	
==>s1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3891	4045	
==>s1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15294	15424	
==>== 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15294	15424	
==>== 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15294	15424	
==>== 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3976	4080	
==>IN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3976	4080	
==>IN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3976	4080	
==>IN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8903	9009	
==>n optional available list
    ### and check if the package is available/provided by any installed pkg
    s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10380	10486	
==>n optional available list
    ### and check if the package is available/provided by any installed pkg
    s <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6018	6120	
==>y $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $statements <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19589	19691	
==>nd:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc p <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	480	577	
==>$!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	480	577	
==>$!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2901	3068	
==>-> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::D <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2901	3068	
==>-> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::D <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9229	9320	
==>6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($valu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1062	1210	
==>s Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.por <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1062	1210	
==>s Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.por <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	331	440	
==>if !defined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18276	18388	
==>1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18276	18388	
==>1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18276	18388	
==>1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1360	1463	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1360	1463	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1360	1463	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	558	677	
==>as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	558	677	
==>as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7620	7716	
==>ay ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::values (@array ; MatchTest *@i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6082	6180	
==>ix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6082	6180	
==>ix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6082	6180	
==>ix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($x <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7921	8050	
==>\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Cou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11918	12043	
==>\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Cou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11918	12043	
==>\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1009	1118	
==>que_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1009	1118	
==>que_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1009	1118	
==>que_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	734	834	
==>me, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	734	834	
==>me, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3721	3820	
==>ltiLineCommentChars>? <'*/'>
}
rule MultiLineCommentChars {  # see 7.4
      <MultiLineNotAsteriskCh <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14387	14489	
==>inator_here><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2772	2881	
==>.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2772	2881	
==>.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2772	2881	
==>.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2607	2737	
==>$!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6084	6214	
==>$!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5014	5144	
==>$!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3837	3937	
==>1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3837	3937	
==>1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3837	3937	
==>1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	39	152	
==>Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	39	152	
==>Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	39	152	
==>Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36807	36937	
==>ay = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumpe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36807	36937	
==>ay = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumpe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36807	36937	
==>ay = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4602	4783	
==>e );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$star <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4602	4783	
==>e );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$star <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8516	8621	
==>ruct_equiv => $_[0],
				type => Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::Type <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1509	1622	
==>ount_stack}[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

	my $sent = scalar($app->values <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6824	6934	
==>ue', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6824	6934	
==>ue', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14517	14633	
==>e Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3195	3294	
==>ive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3195	3294	
==>ive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3195	3294	
==>ive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11724	11824	
==>which does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11724	11824	
==>which does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11724	11824	
==>which does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Be <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2626	2777	
==>@_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2540	2686	
==>@_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16295	16396	
==>state;

Resets things like C<< $strap->{max} >> , C<< $strap->{skip_all} >>,
etc. so it's ready to par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	695	802	
==>rams::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        er <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1976	2083	
==>rams::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        er <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	729	836	
==>is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time() - $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16659	16791	
==>c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16659	16791	
==>c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16659	16791	
==>c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1252	1355	
==>e outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1252	1355	
==>e outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1252	1355	
==>e outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3081	3194	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3081	3194	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3081	3194	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3216	3339	
==>sions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unles <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18511	18608	
==>n the future, but for now it officially is not and you should not share
Rosetta objects between mu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18511	18608	
==>n the future, but for now it officially is not and you should not share
Rosetta objects between mu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37499	37597	
==>e order of its arguments is not significant to the result;
the new Relation is the result of combin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42048	42146	
==>e order of its arguments is not significant to the result;
the new Relation is the result of combin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11961	12070	
==>my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11961	12070	
==>my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11961	12070	
==>my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16602	16705	
==>'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15650	15749	
==>'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21904	22170	
==>ft;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) retu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1700	1801	
==>6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1700	1801	
==>6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14272	14360	
==>_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames ":fu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1133	1252	
==>act the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   print "Writin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7265	7363	
==>urns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Bloc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7265	7363	
==>urns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Bloc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10474	10566	
==>potentially
never be performed at all.  They validate everything except
well-formedness, such <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10474	10566	
==>potentially
never be performed at all.  They validate everything except
well-formedness, such <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5135	5265	
==>nd die $?;
    }
    
    return $inst_pkg;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3806	3924	
==>pen_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3806	3924	
==>pen_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1663	1775	
==>'$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1663	1775	
==>'$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1663	1775	
==>'$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4755	4857	
==>num->new($_)  } 0 .. $left->elems->to_native) {
        # warn "calling equal_to on " . $left->fetch($i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1256	1348	
==>s Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1256	1348	
==>s Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	104	210	
==>ned";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	104	210	
==>ned";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	104	210	
==>ned";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? unde <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8651	8763	
==>d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16257	16361	
==>t - line/g;
    $results =~ s/of\s+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11612	11704	
==>up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*enco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11612	11704	
==>up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*enco <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2633	2740	
==>'$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2633	2740	
==>'$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2713	2820	
==>'$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4497	4650	
==>y}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4497	4650	
==>y}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4497	4650	
==>y}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13170	13266	
==>IST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13170	13266	
==>IST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6677	6783	
==>JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6677	6783	
==>JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6677	6783	
==>JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6807	6942	
==>f our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6807	6942	
==>f our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7984	8119	
==>family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3013	3129	
==>s);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the dire <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3013	3129	
==>s);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the dire <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25758	25852	
==>ED--Further testing stopped: %s>

If a single subtest decides that further testing will not mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	197	309	
==>pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	197	309	
==>pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	197	309	
==>pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })') <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2592	2713	
==>k        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our usernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2592	2713	
==>k        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our usernam <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23507	23647	
==>),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide("f"),
					),
					param => comb(
						fun => ide <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8785	8913	
==>ethod values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip paramet <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8785	8913	
==>ethod values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2148	2252	
==>dify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2148	2252	
==>dify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2148	2252	
==>dify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1576	1702	
==>ed',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1576	1702	
==>ed',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP <==
3	/Users/nnunley/pugs/util/package-osx.pl	7185	7282	
==>/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8042	8137	
==>object',
   '... got the right return value from another Object singleton/class method called by <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10611	10706	
==>object',
   '... got the right return value from another Object singleton/class method called by <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17513	17604	
==>>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoIn :w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3651	3777	
==>]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3651	3777	
==>]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PI <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	501	627	
==>]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PI <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4204	4318	
==>{
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7681	7795	
==>{
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	802	911	
==>fy arg list - the functions currently take 8 arguments.

=cut

use strict;
use warnings;
#use Smart::Com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1866	2033	
==>amed_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? <named_capture_body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1329	1426	
==>$self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1329	1426	
==>$self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5789	6013	
==>'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5789	6013	
==>'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5789	6013	
==>'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	294	397	
==>his class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OB <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	294	397	
==>his class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OB <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25526	25626	
==>-1] }

You may find it helpful to copy these to your sub-class.  If you're
curious why the C<regex> v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1576	1701	
==>e => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	20	115	
==>s-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = q <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	20	115	
==>s-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = q <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31487	31724	
==>'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11976	12075	
==>$b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12034	12133	
==>$b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1561	1701	
==>$key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1561	1701	
==>$key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1561	1701	
==>$key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attributes. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10936	11092	
==>methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10936	11092	
==>methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10936	11092	
==>methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1033	1133	
==>ath;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1033	1133	
==>ath;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1033	1133	
==>ath;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2309	2437	
==>$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2309	2437	
==>$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2133	2223	
==>}
RULE
*{'access_hash_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10946	11067	
==>alue[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10946	11067	
==>alue[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10946	11067	
==>alue[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2743	2870	
==>undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @ms <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2743	2870	
==>undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @ms <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2743	2870	
==>undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @ms <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1211	1370	
==>t );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Comparator);

# signature from S29draft.pod <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3029	3131	
==>embers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
met <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3029	3131	
==>embers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3621	3750	
==>fined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3621	3750	
==>fined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3621	3750	
==>fined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9951	10159	
==>ption => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	517	713	
==>ption => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	517	713	
==>ption => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1939	2060	
==>o\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1939	2060	
==>o\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1939	2060	
==>o\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18175	18291	
==>_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18175	18291	
==>_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	130	248	
==>ap { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	130	248	
==>ap { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	130	248	
==>ap { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, bu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1682	1775	
==>ler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1682	1775	
==>ler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14320	14520	
==>xt;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$resu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14320	14520	
==>xt;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$resu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26927	27024	
==>w (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all);
require "m02.pl";
r <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1411	1540	
==>$_[1]} = $_[2] }

    package AST;
    use base 'Unit';

    package Sym;
    use base 'Unit';

    package Param;
    use base 'U <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3496	3602	
==>| 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_name <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3496	3602	
==>| 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4951	5065	
==>il{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4951	5065	
==>il{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4951	5065	
==>il{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9986	10196	
==>red";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11463	11673	
==>red";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1781	1920	
==>$label->to_native . ")";
            return $methods->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7053	7190	
==>acro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7053	7190	
==>acro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7053	7190	
==>acro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23860	23954	
==>$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23860	23954	
==>$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23860	23954	
==>$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7230	7337	
==>ft @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7230	7337	
==>ft @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7230	7337	
==>ft @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	465	573	
==>e basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	476	584	
==>e basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11096	11191	
==>my $iBar = $Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBar->class, $Bar, '.. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3926	4066	
==>$bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4119	4259	
==>$bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2592	2694	
==>_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_contr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16982	17098	
==>!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20459	20575	
==>!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20037	20153	
==>!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22976	23117	
==>symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42579	42720	
==>symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5394	5534	
==>lob("*"));
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

sub build_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6750	6927	
==>fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6750	6927	
==>fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6750	6927	
==>fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33072	33162	
==>d has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37622	37712	
==>d has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36966	37056	
==>d has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	665	796	
==>= 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	665	796	
==>= 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	665	796	
==>= 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3374	3472	
==>'lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3374	3472	
==>'lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3374	3472	
==>'lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1154	1326	
==>ser     
    def parse (source)
        stack = Array.new
        subexp = Array.new
        source.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if toke <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	194	307	
==>ocs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - imp <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	194	307	
==>ocs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	342	449	
==>temAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	342	449	
==>temAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	342	449	
==>temAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).F <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7813	7918	
==>1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _nor <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7813	7918	
==>1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _nor <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28247	28352	
==>g); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	679	767	
==>EigenClass->superclasses([ $::Class ]);

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	679	767	
==>EigenClass->superclasses([ $::Class ]);

## --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	679	767	
==>EigenClass->superclasses([ $::Class ]);

## --------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7306	7418	
==>rn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eva <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3910	4022	
==>rn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4759	4871	
==>rn '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eva <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24333	24484	
==>off'
      if ($v) { &Rf &= ~$v }  # turn the flag off
      else { ... }            # the flag's value is 0
      next;
    }
    # throw an error if t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20090	20187	
==>the main program binary.  Each user
language is in a separate file, and adding a localization to a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20090	20187	
==>the main program binary.  Each user
language is in a separate file, and adding a localization to a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1532	1669	
==>indow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1532	1669	
==>indow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1532	1669	
==>indow.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1470	1599	
==>integer {
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1324	1417	
==>ant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$ENUM, 'Mis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12866	13055	
==>cher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12866	13055	
==>cher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12866	13055	
==>cher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14571	14656	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14571	14656	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14571	14656	
==>>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5047	5199	
==>revious }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5047	5199	
==>revious }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1827	1940	
==>n $self;
  }
}


{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2596	2702	
==>_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class-> <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2596	2702	
==>_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class-> <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	948	1056	
==>: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinit <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	948	1056	
==>: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinit <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10429	10518	
==>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$paramName, paramContext=> <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	349	455	
==>gs{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		u <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	349	455	
==>gs{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		u <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1304	1408	
==>}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1065	1169	
==>as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1065	1169	
==>as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1065	1169	
==>as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5429	5537	
==>ld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5429	5537	
==>ld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5429	5537	
==>ld 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1815	1913	
==>p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1815	1913	
==>p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1815	1913	
==>p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3250	3369	
==>instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3250	3369	
==>instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3250	3369	
==>instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16344	16440	
==>open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Couldn't open pipe to \"$bin -V:pugs_versi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3443	3536	
==>">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 * <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3627	3720	
==>">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 * <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2638	2740	
==>s.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2638	2740	
==>s.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expecte <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19608	19721	
==>lf)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1325	1435	
==>ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1325	1435	
==>ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $dir <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2973	3073	
==>multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@li <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21241	21326	
==>otE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21241	21326	
==>otE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<g <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1992	2090	
==>ng the 
last component of the calling function's package name.  (For example, if 
a function in C<S <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1992	2090	
==>ng the 
last component of the calling function's package name.  (For example, if 
a function in C<S <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	901	1009	
==>the compiled Class (the Type object)
when they are included into the Class.  This has the same effect as
them <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	99	188	
==>2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	99	188	
==>2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	730	889	
==>oken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	730	889	
==>oken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	730	889	
==>oken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self-> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6491	6598	
==>} (values %{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating dire <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18814	18917	
==>m I<anyof_class> Changed

If an I<anyof_class> element is a Unicode property or a Perl class (like
C<\w> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	113	209	
==>ammar::StatementControl;
use Pugs::Grammar::Expression;
use Pugs::Grammar::Pod;

# TODO - redefin <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	132	241	
==>has Bool $isNamed;
has Bool $isLValue;    # not is copy
has Bool $isWritable;  # is rw
has Bool $isLazy;
has S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	323	425	
==>s
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	323	425	
==>s
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5933	6135	
==>= $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    m <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5933	6135	
==>= $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18284	18484	
==>normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 mag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18284	18484	
==>normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 mag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18284	18484	
==>normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 mag <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11009	11113	
==>bst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11009	11113	
==>bst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2802	2937	
==>ol {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2802	2937	
==>ol {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4430	4540	
==>);

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4430	4540	
==>);

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4430	4540	
==>);

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2157	2257	
==>{
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2157	2257	
==>{
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2157	2257	
==>{
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2352	2455	
==>intf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2352	2455	
==>intf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2352	2455	
==>intf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	613	737	
==>n() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	613	737	
==>n() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	613	737	
==>n() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	697	806	
==>ce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	697	806	
==>ce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	697	806	
==>ce bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23077	23281	
==>alar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23077	23281	
==>alar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23077	23281	
==>alar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7604	7701	
==>x:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7604	7701	
==>x:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7604	7701	
==>x:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	840	940	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	840	940	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	840	940	
==>]));
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4085	4203	
==>instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4085	4203	
==>instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4085	4203	
==>instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6845	7013	
==>\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6845	7013	
==>\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6845	7013	
==>\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8494	8706	
==>@arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8494	8706	
==>@arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8494	8706	
==>@arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5440	5587	
==>therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed fo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5904	6051	
==>therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed fo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1765	1888	
==>b { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1765	1888	
==>b { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5811	6008	
==>fined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5811	6008	
==>fined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5811	6008	
==>fined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6435	6532	
==>:Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6435	6532	
==>:Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6435	6532	
==>:Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute(' <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16273	16395	
==>es;
}

class Num {
    multi sub round_gen(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2194	2366	
==>);
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2194	2366	
==>);
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2194	2366	
==>);
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1688	1803	
==>) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1688	1803	
==>) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1688	1803	
==>) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3294	3389	
==>{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3294	3389	
==>{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3294	3389	
==>{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5737	5848	
==>tion?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5725	5836	
==>tion?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variabl <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3939	4042	
==>le, the <Pos1> and <End> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12856	12993	
==>expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	325	430	
==>ge ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	325	430	
==>ge ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1550	1667	
==>cumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Oti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1550	1667	
==>cumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Oti <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1093	1257	
==>ram->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for ke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1233	1397	
==>ram->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for ke <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7759	7856	
==>po->add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4980	5091	
==>lock for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4980	5091	
==>lock for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4980	5091	
==>lock for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16256	16362	
==>_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16256	16362	
==>_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16256	16362	
==>_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8306	8429	
==>L(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20454	20670	
==>Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20454	20670	
==>Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20454	20670	
==>Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1457	1575	
==>her->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1457	1575	
==>her->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Run <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12411	12518	
==>$S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a uni <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9591	9718	
==>$discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9591	9718	
==>$discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	729	845	
==>imitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	729	845	
==>imitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	729	845	
==>imitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4563	4679	
==>s(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4563	4679	
==>s(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4563	4679	
==>s(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1682	1785	
==>n (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1682	1785	
==>n (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1682	1785	
==>n (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("C <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	465	590	
==>oints earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	465	590	
==>oints earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	25	117	
==>:Perl6;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2366	2473	
==>tance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2366	2473	
==>tance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2366	2473	
==>tance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10168	10406	
==>s }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10168	10406	
==>s }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10168	10406	
==>s }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            },
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5044	5146	
==>nnels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5044	5146	
==>nnels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$cha <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5921	6113	
==>ading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9398	9590	
==>ading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8454	8646	
==>ading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6137	6292	
==>arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6137	6292	
==>arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6137	6292	
==>arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19209	19368	
==>e::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19209	19368	
==>e::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19209	19368	
==>e::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13123	13264	
==>f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	210	313	
==>piler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	195	294	
==>piler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3900	3997	
==>d rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4084	4181	
==>d rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24220	24316	
==>l tuples in a Relation::Example are of the same
degree, and the attribute names of each tuple are <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1418	1512	
==>n experimental module which eases the use of functional programming
techniques in Perl 6.

=hea <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1418	1512	
==>n experimental module which eases the use of functional programming
techniques in Perl 6.

=hea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14190	14294	
==>os, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newfrom = find_global "PGE::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	867	979	
==>e all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	867	979	
==>e all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	867	979	
==>e all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2081	2240	
==>ndefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2081	2240	
==>ndefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2081	2240	
==>ndefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.ge <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2340	2435	
==>OR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

= <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2340	2435	
==>OR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1155	1298	
==>ttributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1155	1298	
==>ttributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1155	1298	
==>ttributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	4	109	
==>kage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	4	109	
==>kage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	4	109	
==>kage Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14466	14642	
==>have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17943	18119	
==>have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17359	17535	
==>have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5172	5291	
==>ST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5394	5513	
==>ST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n), <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3411	3519	
==>->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($matchObj, my $target, my $matchObjFrom, my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9797	9928	
==>) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9797	9928	
==>) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9797	9928	
==>) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4295	4391	
==>cc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4295	4391	
==>cc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4295	4391	
==>cc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13863	13990	
==>s => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13863	13990	
==>s => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13863	13990	
==>s => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3235	3436	
==>ar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3235	3436	
==>ar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3235	3436	
==>ar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename') <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1123	1218	
==>ed using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creat <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1123	1218	
==>ed using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8357	8449	
==>===================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8357	8449	
==>===================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8357	8449	
==>===================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	610	738	
==>lare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	610	738	
==>lare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	610	738	
==>lare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2752	2898	
==>value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global func <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2752	2898	
==>value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global func <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2752	2898	
==>value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1437	1543	
==>_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1437	1543	
==>_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1437	1543	
==>_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35969	36073	
==>igned and merged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40519	40622	
==>igned and merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40133	40236	
==>igned and merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1475	1574	
==>},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1475	1574	
==>},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1475	1574	
==>},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11377	11542	
==>l && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11377	11542	
==>l && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11377	11542	
==>l && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19481	19576	
==>les, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19481	19576	
==>les, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8308	8400	
==>led by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&Foo::singlet <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11112	11223	
==>ode =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11262	11373	
==>ode =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4711	4811	
==>ft @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper::Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31017	31192	
==>s > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31017	31192	
==>s > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31017	31192	
==>s > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14586	14781	
==>e an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14586	14781	
==>e an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14586	14781	
==>e an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'ma <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1261	1379	
==>> 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1261	1379	
==>> 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # c <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3536	3633	
==>1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?)/&syn($1,$2,$3)/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1559	1707	
==>espace_before ) {
                # XXX - angle quotes are always tried even if it were expecting a simple '<'
            
                # after w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1775	1908	
==>$ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box(" <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1775	1908	
==>$ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box(" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2325	2423	
==>tches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2325	2423	
==>tches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2405	2503	
==>tches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13862	13978	
==>$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13862	13978	
==>$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6689	6798	
==>}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pExp, $pNode) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8295	8385	
==>ar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @state <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2120	2210	
==>ar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2332	2454	
==>TORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2332	2454	
==>TORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2332	2454	
==>TORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4130	4305	
==>ose $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't del <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4130	4305	
==>ose $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't del <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7763	7859	
==>pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package-url/;
}

sub _normalize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1365	1474	
==>local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1365	1474	
==>local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1365	1474	
==>local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1293	1386	
==>that are queried during dispatch (which includes attribute
lookup as well as method lookup, as <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	378	526	
==>nue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	378	526	
==>nue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backt <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28293	28386	
==>f true, Test::Harness will output the verbose results of running
its tests.  Setting C<$Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14099	14232	
==>less $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14099	14232	
==>less $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14099	14232	
==>less $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	680	779	
==>e, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<% <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	680	779	
==>e, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12925	13114	
==>, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12925	13114	
==>, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12925	13114	
==>, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::V <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13322	13418	
==>nto perlguts, which limits the range of
  perl versions it will work with, and raises maintenance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7666	7826	
==>w( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7666	7826	
==>w( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7666	7826	
==>w( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7283	7397	
==>ing)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7283	7397	
==>ing)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7283	7397	
==>ing)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5969	6077	
==>TE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5969	6077	
==>TE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5969	6077	
==>TE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3347	3460	
==>or my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3347	3460	
==>or my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3347	3460	
==>or my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	175	296	
==>d

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	175	296	
==>d

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	175	296	
==>d

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9591	9710	
==>f ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9591	9710	
==>f ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9591	9710	
==>f ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3331	3442	
==>Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3331	3442	
==>Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3331	3442	
==>Prelude/JS.pm  (usually in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2641	2752	
==>intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2641	2752	
==>intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2383	2489	
==>, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2383	2489	
==>, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2383	2489	
==>, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test th <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6290	6458	
==>^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine per <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5798	5966	
==>^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6832	6954	
==>elf->{how};
    }
  }

  sub neg {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->neg = shift if @ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8580	8698	
==>rence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8580	8698	
==>rence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6844	6927	
==>_metachar("\\").
p5_metachar("\|").
p5_metachar("?").
p5_metachar("*").
p5_metachar( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3060	3196	
==>t up the dirs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12611	12716	
==>nts (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12611	12716	
==>nts (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20841	20933	
==>files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add this <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20841	20933	
==>files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add this <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2529	2637	
==>Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2529	2637	
==>Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $te <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5792	5892	
==>>leave_scope;
		
		my $last_exp = pop @exps;
	
		$self->add_definition($node => "$return_type $symbol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1856	1957	
==>me = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1856	1957	
==>me = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1856	1957	
==>me = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UN <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16235	16338	
==>rs
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should store a ha <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3432	3533	
==>"invalid trig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10991	11077	
==>om Thoughts on Role state:
------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10991	11077	
==>om Thoughts on Role state:
------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10991	11077	
==>om Thoughts on Role state:
------------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9900	10023	
==>_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9894	10017	
==>_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1102	1193	
==>nable $interface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to_level( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	914	1030	
==>w( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	914	1030	
==>w( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2149	2288	
==>=> 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'looser <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	666	801	
==>\$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	659	794	
==>\$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #pri <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	820	929	
==>ld)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This module provides a Perl interface to us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18567	18657	
==>pecifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attribu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18567	18657	
==>pecifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8408	8548	
==>m_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8408	8548	
==>m_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8408	8548	
==>m_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->per <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2976	3082	
==>ut( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2976	3082	
==>ut( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3056	3162	
==>ut( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'T <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	727	826	
==>de::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1531	1627	
==>t> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1531	1627	
==>t> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	931	1071	
==>oNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	931	1071	
==>oNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	931	1071	
==>oNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22811	22900	
==>ace::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22811	22900	
==>ace::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variab <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1908	2021	
==>ircumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1908	2021	
==>ircumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	750	852	
==>rray $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	750	852	
==>rray $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	750	852	
==>rray $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2390	2512	
==>are( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # T <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2390	2512	
==>are( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	18	141	
==>age PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	18	141	
==>age PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	18	141	
==>age PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24958	25064	
==>les as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29510	29616	
==>les as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28422	28528	
==>les as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20458	20553	
==>re are some application where this is not
appropriate.  Prefixing field names with ':' allow you <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20458	20553	
==>re are some application where this is not
appropriate.  Prefixing field names with ':' allow you <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19468	19577	
==>= exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats" <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1669	1766	
==>eturns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1669	1766	
==>eturns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3235	3344	
==>eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3235	3344	
==>eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3235	3344	
==>eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23277	23450	
==>n_CODE {
    my(@args)=@_;
    my $argl = join(",",@args);
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3804	3910	
==>recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3804	3910	
==>recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37713	37814	
==>gned and merged.  The heading of the new relation is the union of
all the headings of the source relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42262	42363	
==>gned and merged.  The heading of the new relation is the union of
all the headings of the source relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41912	42013	
==>gned and merged.  The heading of the new relation is the union of
all the headings of the source relat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	307	425	
==>w {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	307	425	
==>w {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5491	5589	
==>t_str($_[0],'$<op>');
    my $condition = emit(get_data($_[0],'$<condition>'));
    my $then = emit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13580	13678	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13580	13678	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13580	13678	
==>ion_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
su <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2549	2683	
==>ted
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $s <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2549	2683	
==>ted
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8896	9000	
==>n32-flavoured ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2408	2530	
==>Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'lit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2592	2714	
==>Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'lit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3242	3349	
==>? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  push @ISA, qw( Regexp::Parser::__objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1817	1941	
==>ecl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1817	1941	
==>ecl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1817	1941	
==>ecl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	891	1027	
==>of the match
                     object, telling captures where in the deep structure
                     to store what they've capture <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	891	1027	
==>of the match
                     object, telling captures where in the deep structure
                     to store what they've capture <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	699	801	
==>.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15145	15255	
==>ore or better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18622	18732	
==>ore or better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18038	18148	
==>ore or better optimization.

    # Now do the actual combination work.
    # Start with identity-one relation a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1680	1787	
==>b _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1680	1787	
==>b _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1916	2023	
==>b _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11224	11352	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14701	14829	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14009	14137	
==>ing.size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6828	6946	
==>e C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6828	6946	
==>e C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9025	9143	
==>e C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5868	6010	
==>ch my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5868	6010	
==>ch my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5868	6010	
==>ch my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8028	8171	
==>}
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8040	8183	
==>}
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless define <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2967	3088	
==>s

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 }


# A.1 Lexical Grammar

rule Sourc <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1145	1250	
==>nput', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1145	1250	
==>nput', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35300	35394	
==>2 named parameters of new().

=item C<get_set_names()>

This method returns all Set Names eleme <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35300	35394	
==>2 named parameters of new().

=item C<get_set_names()>

This method returns all Set Names eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6138	6243	
==>ine('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6138	6243	
==>ine('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6138	6243	
==>ine('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29824	29991	
==>_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29824	29991	
==>_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29824	29991	
==>_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- it <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2296	2392	
==>function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2296	2392	
==>function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39714	39807	
==>::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relat <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1506	1615	
==>en explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27189	27283	
==>ode $attrs!) returns Relation>

This method is a generic relational operator that returns a new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31741	31835	
==>ode $attrs!) returns Relation>

This method is a generic relational operator that returns a new <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12009	12155	
==>mand);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenially dangerous. Uses the shell.
    # Please remember <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1003	1124	
==>tore what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1003	1124	
==>tore what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1166	1272	
==>lude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1166	1272	
==>lude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1166	1272	
==>lude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8405	8541	
==>LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8405	8541	
==>LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15656	15785	
==>later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15656	15785	
==>later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13141	13239	
==>t2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elem <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13141	13239	
==>t2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elem <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	17	128	
==>»( $a, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	220	323	
==>, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.backtr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	220	323	
==>, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.backtr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5398	5501	
==>but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5398	5501	
==>but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5398	5501	
==>but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5766	5912	
==>ef($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5766	5912	
==>ef($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5766	5912	
==>ef($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2592	2708	
==>tify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'h <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2592	2708	
==>tify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'h <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2939	3055	
==>tify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'h <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2657	2767	
==>nt($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14989	15081	
==>s a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which app <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14989	15081	
==>s a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which app <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	90	223	
==>r.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	90	223	
==>r.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	90	223	
==>r.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15213	15319	
==>value => sub { p6_as_hash(${$_[0]}) },
      perl5_object => sub { \%{$_[0]} },
      perl6_object => sub { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20295	20390	
==>"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20295	20390	
==>"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1062	1187	
==>files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1062	1187	
==>files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1062	1187	
==>files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usag <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2524	2650	
==>shift;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = '000';
sub add_op {
    my ($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2795	2891	
==>le(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2795	2891	
==>le(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1259	1459	
==>p::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1386	1586	
==>p::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	637	734	
==>AME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Prelude::Control;

=head1 DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	210	338	
==>no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	210	338	
==>no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	210	338	
==>no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3945	4042	
==>onfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3945	4042	
==>onfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3945	4042	
==>onfess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5776	5922	
==>? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5776	5922	
==>? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5776	5922	
==>? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2797	2978	
==>returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6274	6455	
==>returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9967	10079	
==>}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2283	2390	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2283	2390	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2283	2390	
==>nction (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unli <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9125	9255	
==>ed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: {   
        my <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2160	2276	
==>ed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8842	8947	
==>re $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ($) {
    my ($use) = @_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5793	5926	
==>h2_1:
    goto found_oper if $operator;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13487	13592	
==>e =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $sou <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13487	13592	
==>e =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $sou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	673	834	
==>H unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompiler->compile($source);
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3024	3122	
==>ponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2916	3012	
==>ponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11404	11560	
==>, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11404	11560	
==>, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9560	9669	
==>=> sub { system "mkfs.ext2", "-m", "0", "-F", $initrd_img };

  step
    descr  => "Mounting \"$initrd_img\"", <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8913	9050	
==>DOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8913	9050	
==>DOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35975	36091	
==>a look-ahead.  We send the unrolled contents of the
array reference as the contents of the look-ahead, and we're done <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5808	5948	
==>F
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5808	5948	
==>F
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5808	5948	
==>F
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19107	19213	
==>e $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: set_attrs ((symbol new ($ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7482	7580	
==>($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7482	7580	
==>($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1049	1172	
==>ge "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1049	1172	
==>ge "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1049	1172	
==>ge "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1757	1881	
==>,
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1757	1881	
==>,
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1757	1881	
==>,
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2718	2848	
==>to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $s <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2718	2848	
==>to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11169	11287	
==>y $close = sub {
        my $c0 = $_[0];
        my $to = $X::pos;
        $m->set(1,substr($X::str,$from,$to-$from),[] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17300	17412	
==>te('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17300	17412	
==>te('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17300	17412	
==>te('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1491	1613	
==>f ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3178	3292	
==>$/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $inter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3395	3509	
==>$/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3478	3577	
==>pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3478	3577	
==>pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3478	3577	
==>pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	844	953	
==>paque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1049	1158	
==>paque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1105	1214	
==>paque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1929	2022	
==>ant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1929	2022	
==>ant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1929	2022	
==>ant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11215	11342	
==>if ( $n->{op1}{op} eq '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22958	23075	
==>at},'
              . '  $Curtest->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2875	3009	
==>oreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2875	3009	
==>oreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2875	3009	
==>oreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29666	29789	
==>"<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29666	29789	
==>"<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	470	577	
==>"<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	243	333	
==>// Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	243	333	
==>// Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	243	333	
==>// Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	58	163	
==>ixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	58	163	
==>ixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	58	163	
==>ixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31782	31879	
==>uent in (and prefers) language A but also understands
language B.  Later on, if for example the fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31782	31879	
==>uent in (and prefers) language A but also understands
language B.  Later on, if for example the fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3737	3832	
==>entation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3737	3832	
==>entation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6798	6911	
==>n "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6798	6911	
==>n "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6798	6911	
==>n "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29552	29677	
==>ppuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29552	29677	
==>ppuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	364	481	
==>ppuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2030	2149	
==>ndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2030	2149	
==>ndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2030	2149	
==>ndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17079	17187	
==>_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17079	17187	
==>_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17079	17187	
==>_attribute('@:subclasses'));
$::Class->add_attribute('%:private_methods'  => ::make_attribute('%:private_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6964	7115	
==>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6964	7115	
==>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6964	7115	
==>unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice do <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9647	9785	
==>@s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9627	9765	
==>@s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return " <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14510	14617	
==>->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = gene <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	853	975	
==>nt {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@ite <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	853	975	
==>nt {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	150	264	
==>e based object system, it was inspired by
a purely functional prototype OO system written in Scheme, which can
be s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1452	1551	
==>d be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1452	1551	
==>d be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1452	1551	
==>d be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'cel <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4998	5100	
==>, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1073	1162	
==>Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    me <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1073	1162	
==>Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10314	10432	
==>ntersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13791	13909	
==>ntersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13072	13190	
==>ntersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1248	1428	
==>indow.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1248	1428	
==>indow.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1248	1428	
==>indow.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12404	12520	
==>ing PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 },
    using  => sub {
      ut <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17463	17555	
==>xt()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17463	17555	
==>xt()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7470	7579	
==>pan0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7470	7579	
==>pan0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1162	1250	
==>ction code.

L<Blondie::Backend::Perl::Builtins> contains the builtin operations and valu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4852	4976	
==>se {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it was considered <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13045	13140	
==>`stringify()`

Return a string representation of the set.

For most recurrence sets, this is '-I <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13045	13140	
==>`stringify()`

Return a string representation of the set.

For most recurrence sets, this is '-I <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1946	2119	
==>@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1946	2119	
==>@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4081	4169	
==>415926535897932384626433832795028841971693993751058209749445923078164062;
     # http://w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6024	6161	
==>har'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6217	6354	
==>har'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	766	900	
==>{ return { op => "prefix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	328	446	
==>ed $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	328	446	
==>ed $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4356	4460	
==>access_hash_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	190	328	
==>e v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clear {
#  my $self = shift;
# #  $self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9334	9449	
==>'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9392	9507	
==>'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24650	24759	
==>lternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10.1
      <null>
    | <Al <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4896	4999	
==>e see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4896	4999	
==>e see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6576	6667	
==>in "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6576	6667	
==>in "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6576	6667	
==>in "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1087	1203	
==>ess keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1087	1203	
==>ess keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1087	1203	
==>ess keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1591	1896	
==>}                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1591	1896	
==>}                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1236	1349	
==>tch table; this is a collection of functions and
methods that are queried during dispatch (which includes attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16057	16207	
==>ode = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16057	16207	
==>ode = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16057	16207	
==>ode = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9951	10092	
==>y_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9951	10092	
==>y_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9951	10092	
==>y_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7130	7231	
==>ew PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7130	7231	
==>ew PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7130	7231	
==>ew PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5912	6010	
==>ive port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5912	6010	
==>ive port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4814	4911	
==>EBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4814	4911	
==>EBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4814	4911	
==>EBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6146	6285	
==>SS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6146	6285	
==>SS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6146	6285	
==>SS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	948	1040	
==>mple::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	948	1040	
==>mple::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7382	7485	
==>($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $ne <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7440	7543	
==>($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	749	851	
==>e program.";

   	$node->fmap(sub { $self->reduce($_[0]) });
}

__PACKAGE__;

__END__

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9257	9392	
==>n);
	} else {
	    push(@names5,'$'.p6_mangle($pname));
	}
	my $aname = $pname;
	$aname = '?'.$aname if $op{'isOptional'};
	$aname = '*' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6009	6138	
==>method BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6009	6138	
==>method BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4345	4518	
==>as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we in <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4345	4518	
==>as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1982	2165	
==>ale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1982	2165	
==>ale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop ( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5315	5417	
==>lare($node);

		my $return_type = $node->type->[-1]->type;
		
		my @children = $child->values;
		my @pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1259	1384	
==>s Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1259	1384	
==>s Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1259	1384	
==>s Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	225	476	
==>op @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5519	5646	
==>match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5519	5646	
==>match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13660	13859	
==>e;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13660	13859	
==>e;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13660	13859	
==>e;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9991	10197	
==>=> sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9991	10197	
==>=> sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9991	10197	
==>=> sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3525	3638	
==>JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3525	3638	
==>JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3525	3638	
==>JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operato <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12314	12429	
==>elation::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the head <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18237	18327	
==>egister callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMS <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18237	18327	
==>egister callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMS <==
3	/Users/nnunley/pugs/util/package-osx.pl	10265	10376	
==>($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) unless (-d $dirs) <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1317	1421	
==>---------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1317	1421	
==>---------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	906	1002	
==>lass Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	906	1002	
==>lass Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40584	40722	
==>yref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40584	40722	
==>yref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40584	40722	
==>yref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	855	980	
==>$thing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2956	3067	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2956	3067	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2956	3067	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	466	662	
==>e( '
            [
                [ \:\: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1004	1102	
==>r($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1004	1102	
==>r($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2225	2331	
==>r'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::eval_yaml($co <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4166	4266	
==>dition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15101	15262	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15380	15541	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alte <==
3	/Users/nnunley/pugs/util/combine_tests.pl	514	611	
==>dded to each member of the more_events[].
#
# more_revisions[] is added with revision number of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6945	7061	
==>c    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6945	7061	
==>c    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6945	7061	
==>c    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10259	10371	
==>esult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10259	10371	
==>esult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9161	9272	
==>rgs ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9161	9272	
==>rgs ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9161	9272	
==>rgs ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3057	3169	
==>("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3057	3169	
==>("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3057	3169	
==>("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8238	8371	
==>t literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8238	8371	
==>t literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8238	8371	
==>t literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup_arr[i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1755	1855	
==>$name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2077	2177	
==>$name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13104	13190	
==>).
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I) --> digit(D0), <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1502	1647	
==>eturn TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1502	1647	
==>eturn TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3759	3870	
==>turn 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'p <==
3	/Users/nnunley/pugs/util/drift.pl	850	958	
==>",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1331	1438	
==>bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defin <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1331	1438	
==>bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	106	202	
==>t $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Ar <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	106	202	
==>t $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2755	2852	
==>kup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2755	2852	
==>kup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2755	2852	
==>kup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6926	7056	
==>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6926	7056	
==>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6926	7056	
==>as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	136	238	
==>ERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	136	238	
==>ERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	136	238	
==>ERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3326	3496	
==>->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3326	3496	
==>->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3326	3496	
==>->new()',
                     '%' => 'Hash->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$si <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	314	434	
==>.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	314	434	
==>.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_par <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4339	4447	
==>sly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4339	4447	
==>sly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4419	4527	
==>sly run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$description>, this w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	740	892	
==>5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum + <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	740	892	
==>5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum + <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10090	10210	
==>f(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_pa <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2023	2157	
==>m available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2001	2135	
==>m available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; r <==
3	/Users/nnunley/pugs/util/package-osx.pl	3202	3290	
==>5.8.6/darwin-thread-multi-2level/auto/Perl6/Pugs/.packlist
        /Library/Perl/5.8.6/v6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2039	2156	
==>:store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 're <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2039	2156	
==>:store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 're <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2039	2156	
==>:store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 're <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3457	3559	
==>}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3457	3559	
==>}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5360	5474	
==>_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5360	5474	
==>_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5360	5474	
==>_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = m <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4141	4277	
==>!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule code_assertion         { \<(!?)\( <code> \) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6863	6975	
==>ssume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6863	6975	
==>ssume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11027	11185	
==>ACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8093	8246	
==>ACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8093	8246	
==>ACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35043	35137	
==><intersection> if the two source headings are
identical.  This method has an alias named C<matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39593	39687	
==><intersection> if the two source headings are
identical.  This method has an alias named C<matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39135	39229	
==><intersection> if the two source headings are
identical.  This method has an alias named C<matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3259	3358	
==>name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3259	3358	
==>name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3259	3358	
==>name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6542	6671	
==>s, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6735	6864	
==>s, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3629	3743	
==>} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3629	3743	
==>} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3629	3743	
==>} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	929	1041	
==>} }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	929	1041	
==>} }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	929	1041	
==>} }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [No <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8172	8318	
==>+($A.property_value{'length'});
            my $k;
            loop(;$k < $length; $k++) {
                my $key = $k; # Eh. Spec would have us u <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7574	7688	
==>0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7574	7688	
==>0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $sp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14139	14268	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14418	14547	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6314	6426	
==>self;
    while ($current) {
        return $current->{env}->{$name}->fetch
            if exists $current->{env} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1002	1110	
==>neric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1002	1110	
==>neric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1002	1110	
==>neric_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPack <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1431	1543	
==>tings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module provides a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1797	1984	
==>'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9493	9593	
==>ssert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9493	9593	
==>ssert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	891	991	
==>tfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	891	991	
==>tfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	891	991	
==>tfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1924	2030	
==>$.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1924	2030	
==>$.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1565	1669	
==>odule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1565	1669	
==>odule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11928	12080	
==>ng );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15405	15557	
==>ng );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14740	14892	
==>ng );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20047	20145	
==>ate
files (usually XML files I think) from the main program binary.  Each user
language is in a sep <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20047	20145	
==>ate
files (usually XML files I think) from the main program binary.  Each user
language is in a sep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2755	2895	
==>d.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2972	3112	
==>d.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6333	6472	
==>ext unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3458	3597	
==>ext unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4307	4446	
==>ext unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2448	2548	
==>};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2448	2548	
==>};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2448	2548	
==>};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5272	5364	
==>INE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5272	5364	
==>INE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5272	5364	
==>INE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3401	3548	
==>matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3293	3437	
==>matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13618	13702	
==>>create('$self' => $e->get('$class:')->send('CREATE' => ($e->get('$canidate'), $e->ge <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2014	2105	
==>tched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2103	2194	
==>tched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10498	10618	
==>"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11127	11247	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11127	11247	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11127	11247	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2661	2796	
==>Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg< <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2661	2796	
==>Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg< <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	637	739	
==>is a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can construct n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4308	4420	
==>on> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4308	4420	
==>on> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6505	6617	
==>on> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5466	5588	
==>->version($version)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5466	5588	
==>->version($version)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5466	5588	
==>->version($version)     if defined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1154	1250	
==>s.keys;
}

method export_attr_type of Relation::LaxPairAttrType
        (Relation::AttrName $attr <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15291	15433	
==>m
      "mkisofs",
      "-R",                                # Generate Rock Ridge directory information
      "-b" => "boot/grub/stage2_eltor <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24045	24139	
==>using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This prog <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24045	24139	
==>using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This prog <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	949	1069	
==>.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	949	1069	
==>.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	949	1069	
==>.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and bo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14175	14295	
==>}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3568	3676	
==>canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our ar <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3568	3676	
==>canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10551	10672	
==>m/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10551	10672	
==>m/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10551	10672	
==>m/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	927	1026	
==>pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	927	1026	
==>pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	927	1026	
==>pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2555	2663	
==>'s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2555	2663	
==>'s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2555	2663	
==>'s a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1499	1592	
==>Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1499	1592	
==>Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1499	1592	
==>Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelud <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4898	5053	
==>f $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4898	5053	
==>f $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14489	14602	
==>e'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <'typeof'> <UnaryExpression>
    | <'++'> <UnaryExpre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14215	14313	
==>It is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it has <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14215	14313	
==>It is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5109	5216	
==>";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5109	5216	
==>";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5109	5216	
==>";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13727	13857	
==>h = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13727	13857	
==>h = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13727	13857	
==>h = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5497	5596	
==>nd {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5497	5596	
==>nd {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5497	5596	
==>nd {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17055	17150	
==>_length

A decimal number indicating the size in bytes of the message content.

=item $h.content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17055	17150	
==>_length

A decimal number indicating the size in bytes of the message content.

=item $h.content <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38312	38407	
==>h ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38312	38407	
==>h ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolati <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25413	25494	
==>),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2390	2496	
==>($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, subs <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2641	2747	
==>($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, subs <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27496	27590	
==>fac 5");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	662	777	
==>), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	662	777	
==>), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	662	777	
==>), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	188	285	
==>sed
as the base for Perl6's CPAN, also known as sixpan.

Please refer the documentation of the oth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33125	33220	
==>odule Set Name.  When we have to translate a
message, the corresponding Template modules will be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33125	33220	
==>odule Set Name.  When we have to translate a
message, the corresponding Template modules will be <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6920	7035	
==>rm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error(mob, pos, "\\1 an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1362	1471	
==>h::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1362	1471	
==>h::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = e <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6966	7083	
==>ng Pugs for its version",
  ensure => sub { defined $pugs_version },
  using  => sub { $pugs_version = get_version($pu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20141	20234	
==>(it isn't what's important;
the interface/behaviour is), this Relation data type is proposed t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24693	24786	
==>(it isn't what's important;
the interface/behaviour is), this Relation data type is proposed t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2621	2728	
==>$CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2621	2728	
==>$CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2621	2728	
==>$CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	881	980	
==>ti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	881	980	
==>ti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	881	980	
==>ti sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	512	631	
==>e).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	512	631	
==>e).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	512	631	
==>e).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8337	8508	
==>xed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8337	8508	
==>xed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8337	8508	
==>xed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15398	15523	
==>XX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15392	15517	
==>XX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3010	3131	
==>en_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3010	3131	
==>en_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $ope <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15594	15710	
==>thunk->val));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4650	4754	
==>r->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4650	4754	
==>r->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4650	4754	
==>r->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit-> <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1169	1269	
==>opt::Argument::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module Getopt::E <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19894	19989	
==>manages its
resources.  It is the standard practice for Mac OS X programs, including
the operati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19894	19989	
==>manages its
resources.  It is the standard practice for Mac OS X programs, including
the operati <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	79	187	
==>w(Module::Install::Base);

$VERSION = '0.61';

use strict;

sub WriteAll {
    my $self = shift;
    my %args <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3615	3711	
==>rray
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures sho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3615	3711	
==>rray
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures sho <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3780	3914	
==>$name =~ s/::/-/g;
        die "Error in name(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key ( <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	363	456	
==>:Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should b <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	363	456	
==>:Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	331	438	
==>q $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	331	438	
==>q $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	331	438	
==>q $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4708	4818	
==>esc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4766	4876	
==>esc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$tod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36839	36933	
==>n> except that the returned Relation::Example contains only tuples that are in
exactly one of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	427	527	
==>ing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	427	527	
==>ing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	427	527	
==>ing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2499	2591	
==>/summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) skipped and (\d+) unexp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	718	822	
==>ss ($self->{down}) {
      Carp::carp("ender() ignored for ", $self->family, "/", $self->type);
      ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1895	1992	
==>ntrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dyn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1822	1918	
==>ntrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dyn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10162	10298	
==>--------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10162	10298	
==>--------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10162	10298	
==>--------------  
    # collects all the roles, and applies them to the
    # invocant, which usually will be a class, but it
    # can be <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2154	2267	
==>tive . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15999	16094	
==>ment itself.

=item $h.last_modified

This header indicates the date and time at which the resou <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15999	16094	
==>ment itself.

=item $h.last_modified

This header indicates the date and time at which the resou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20798	20994	
==>( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21077	21273	
==>( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5088	5195	
==>node);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equiv;
	my $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9616	9734	
==>ation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13093	13211	
==>ation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12365	12483	
==>ation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $othe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7217	7356	
==>$new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7217	7356	
==>$new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	188	301	
==>::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{leve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1070	1173	
==>it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1070	1173	
==>it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1070	1173	
==>it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34825	34929	
==>ms: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34825	34929	
==>ms: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34825	34929	
==>ms: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4656	4785	
==>our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4656	4785	
==>our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4656	4785	
==>our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4982	5102	
==>: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4982	5102	
==>: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4982	5102	
==>: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18154	18258	
==>$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18154	18258	
==>$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18154	18258	
==>$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2637	2740	
==>}
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2637	2740	
==>}
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	375	522	
==>ork



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	364	500	
==>ork

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33862	34063	
==>n' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )->and(
                      bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4525	4693	
==>tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4387	4546	
==>tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1493	1634	
==>} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1493	1634	
==>} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s: <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3583	3716	
==>{
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4185	4280	
==>'%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4185	4280	
==>'%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4185	4280	
==>'%:namespace' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_meth <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22610	22795	
==>$middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOUT =\n"
              . "@" . "<" x ($max_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13455	13732	
==>$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13455	13732	
==>$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13455	13732	
==>$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	765	1018	
==>:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix:</>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2282	2379	
==>$code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2282	2379	
==>$code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10524	10669	
==>b {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10524	10669	
==>b {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10524	10669	
==>b {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# -- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2669	2792	
==>_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2669	2792	
==>_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2749	2872	
==>_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Tes <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2856	2957	
==>closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2856	2957	
==>closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2289	2389	
==>er than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who create <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2337	2438	
==>r(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2337	2438	
==>r(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2337	2438	
==>r(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by ze <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4284	4417	
==>6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4136	4264	
==>6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9463	9562	
==>ead2 Walking the Tree

To walk over the created tree, create an iterator with walker()Z<>:

  my $it <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2856	2983	
==>s>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3103	3230	
==>s>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8213	8315	
==>arams::Check->last_error), return;

    my $pkg = JIB::Package->new( file => $file );

    return $self <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6442	6550	
==>rmalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6442	6550	
==>rmalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	932	1039	
==>tive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	932	1039	
==>tive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	932	1039	
==>tive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5221	5497	
==>),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	466	566	
==>it("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	466	566	
==>it("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1006	1108	
==>o_native . " => class: " . $inv->class->id->to_native;
    # we take the MRO first, however at some ear <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2122	2219	
==>pm  # functional things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2042	2138	
==>pm  # functional things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perha <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2303	2400	
==>lf: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2303	2400	
==>lf: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	692	816	
==>{
    if ( not $grammar)
    {
      $grammar = classname of mod;
    }
    $target = $matchObj->target();
    $from = $match <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7251	7344	
==>f.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @part <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7251	7344	
==>f.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @part <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4505	4602	
==>n the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4505	4602	
==>n the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6702	6799	
==>n the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22033	22126	
==>n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22033	22126	
==>n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22033	22126	
==>n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	11	97	
==>sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	11	97	
==>sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	11	97	
==>sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1353	1466	
==>}

    return $perl5;
}

if (@ARGV and !caller) {
    # We are the main program here
    my ($compile_only, $code) <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	93	189	
==>AME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || ' <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	93	189	
==>AME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	25	137	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	25	137	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	25	137	
==>arnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13245	13401	
==>.
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13239	13395	
==>.
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6210	6302	
==>nted";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Submethod|Macro|Rule|Block|Bare|Par <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	77	178	
==>{...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say PI;
say term: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	825	922	
==>where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	825	922	
==>where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, un <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8647	8746	
==>rns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this ve <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8647	8746	
==>rns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this ve <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	152	248	
==>::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12373	12467	
==>ends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depen <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12431	12525	
==>ends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2255	2355	
==>=> '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2255	2355	
==>=> '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2255	2355	
==>=> '%:methods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2994	3097	
==>tch up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8946	9045	
==>returned to carry the same magic.



overload in p5 is just static %OVERLOAD entry

the only overhea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8651	8747	
==>returned to carry the same magic.

overload in p5 is just static %OVERLOAD entry
the only overhea <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	123	241	
==>PSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # wi <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	123	241	
==>PSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # wi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9625	9733	
==>h, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3156	3263	
==>%s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3156	3263	
==>%s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3156	3263	
==>%s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10383	10540	
==>[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10383	10540	
==>[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10383	10540	
==>[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	449	550	
==>STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	449	550	
==>STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	449	550	
==>STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

ou <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2756	2876	
==>m $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( ab <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14498	14597	
==>e_menulst++ };
default 0
timeout 0
color light-blue/black black/light-gray
hiddenmenu

title    $pug <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1175	1267	
==>riable
#	::instantiated - points to another variable or operator

use Language::AttributeGram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3145	3283	
==>/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3145	3283	
==>/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3145	3283	
==>/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7129	7238	
==>attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7129	7238	
==>attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7129	7238	
==>attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# N <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2045	2156	
==>PTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was in <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2045	2156	
==>PTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was in <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1210	1315	
==>os =~ /\n/;
    my $s = overload::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2149	2256	
==>Class); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2149	2256	
==>Class); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2149	2256	
==>Class); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pV <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14176	14263	
==>:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14176	14263	
==>:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14176	14263	
==>:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute('@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1671	1781	
==>mber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1671	1781	
==>mber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1671	1781	
==>mber(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11659	11760	
==>mented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11659	11760	
==>mented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11659	11760	
==>mented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	809	916	
==>l later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	809	916	
==>l later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	809	916	
==>l later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2270	2372	
==>ELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2270	2372	
==>ELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2270	2372	
==>ELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11598	11699	
==>ill not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

= <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11598	11699	
==>ill not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30720	30816	
==>or rather, the corresponding transformation of each tuple), but
that any duplicates following the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35271	35367	
==>or rather, the corresponding transformation of each tuple), but
that any duplicates following the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34462	34558	
==>or rather, the corresponding transformation of each tuple), but
that any duplicates following the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14583	14779	
==>t be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14583	14779	
==>t be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14583	14779	
==>t be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	406	513	
==>= undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our curren <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	406	513	
==>= undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our curren <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	406	513	
==>= undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our curren <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1912	2028	
==>emote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= ' <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1912	2028	
==>emote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17053	17209	
==>hods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17053	17209	
==>hods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17053	17209	
==>hods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2220	2351	
==>, split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMeth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2220	2351	
==>, split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMeth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2220	2351	
==>, split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMeth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8052	8186	
==>6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exist <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6174	6271	
==>ls>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6174	6271	
==>ls>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6737	6841	
==>sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also instal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6737	6841	
==>sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also instal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6737	6841	
==>sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also instal <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5790	5915	
==>bg "# Scope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	72	171	
==>s Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_f <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	72	171	
==>s Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_f <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6710	6932	
==>m => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $new <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6710	6932	
==>m => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $new <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12341	12459	
==>(except for comp, obviously) look for the flag value,
  and call the original Perl_ funcs if it is not present.

Risks: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30225	30321	
==>nd
to Message Variables, which will be substituted at run-time before the text
is shown to the us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30225	30321	
==>nd
to Message Variables, which will be substituted at run-time before the text
is shown to the us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2428	2551	
==>y == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2428	2551	
==>y == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2428	2551	
==>y == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	331	444	
==>g been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	331	444	
==>g been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	331	444	
==>g been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Mo <==
3	/Users/nnunley/pugs/util/func_refact.pl	716	834	
==>$_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " . join(' ', @{$Conf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39081	39177	
==>ne reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39081	39177	
==>ne reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::K <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4930	5028	
==>tes ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4930	5028	
==>tes ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6194	6292	
==>s unnecessary duplication
	my $self = shift;
	$self->{instance}->splat(@_);
}

sub left {
	my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5697	5799	
==>n "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5697	5799	
==>n "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5697	5799	
==>n "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	418	519	
==>elf->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	418	519	
==>elf->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	418	519	
==>elf->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("- <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9676	9793	
==>odes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|src)$/;
        my <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2196	2355	
==>cies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3561	3708	
==>cies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4749	4857	
==>doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4749	4857	
==>doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4749	4857	
==>doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16667	16766	
==>name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16667	16766	
==>name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16667	16766	
==>name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3287	3382	
==>output and diagnostic output of tests,
running those tests, and then telling this module to comp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3287	3382	
==>output and diagnostic output of tests,
running those tests, and then telling this module to comp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3367	3462	
==>output and diagnostic output of tests,
running those tests, and then telling this module to comp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2746	2846	
==>tion 
can be removed by XORing them together; you might not be able to derive the 
plaintext from the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2746	2846	
==>tion 
can be removed by XORing them together; you might not be able to derive the 
plaintext from the <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	68	159	
==>/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend handler for "redefi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3246	3453	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3246	3453	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	843	960	
==>../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # print "P6 load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4547	4648	
==>urn $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4547	4648	
==>urn $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4547	4648	
==>urn $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	949	1149	
==>constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	950	1150	
==>constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	57	157	
==>:Type::Equivalence;

package type::comparable;

use strict;
use warnings;

use Scalar::Util 'blessed' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1300	1456	
==>$inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ . <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1300	1456	
==>$inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ . <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13399	13495	
==>ers pass the generic variables unchanged
ide: generic($$) = { generic_in($$) }

# if an identifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	370	470	
==>ER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	370	470	
==>ER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	370	470	
==>ER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4206	4344	
==>all' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{bareword} eq 'modul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3667	3802	
==>';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3655	3790	
==>';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13421	13525	
==>ce
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13421	13525	
==>ce
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9346	9474	
==>t =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9346	9474	
==>t =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9346	9474	
==>t =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2792	2892	
==>flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2792	2892	
==>flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2792	2892	
==>flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4929	5047	
==>to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4929	5047	
==>to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4929	5047	
==>to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39922	40054	
==>:Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39922	40054	
==>:Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39922	40054	
==>:Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2290	2390	
==>node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rule: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3441	3540	
==>yedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3441	3540	
==>yedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Ke <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25893	25992	
==>ist α", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator: <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	743	835	
==>}
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variabl <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	743	835	
==>}
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3560	3705	
==>nless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3418	3558	
==>nless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	301	408	
==>ments:

=over 4

=item root

The root directory of the repository

=item pool

Path to the pool directory of <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13058	13149	
==>ntaining all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=he <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13058	13149	
==>ntaining all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5407	5515	
==>($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5407	5515	
==>($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5407	5515	
==>($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10792	10887	
==>mplex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10792	10887	
==>mplex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by t <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1750	1832	
==>@yaml_harness_args;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config->look <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5115	5242	
==>ir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing index file
        my $ind <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2931	3028	
==>pan => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2931	3028	
==>pan => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15966	16079	
==>Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19443	19556	
==>Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10849	10987	
==>my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    loca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10843	10981	
==>my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    loca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1885	1977	
==>l 5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Perl6::MetaM <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4659	4762	
==>$content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4659	4762	
==>$content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16551	16668	
==>ule MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16551	16668	
==>ule MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is l <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26310	26421	
==>']'> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <Nonempt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7229	7362	
==>hould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7229	7362	
==>hould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7229	7362	
==>hould be, but I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14705	14867	
==>XX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        return ' "" . ' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7818	7953	
==>),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7818	7953	
==>),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5455	5564	
==>ts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5455	5564	
==>ts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5455	5564	
==>ts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::', <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36876	37040	
==>abel'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new('@:MRO')             => attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1252	1356	
==>e parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1252	1356	
==>e parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10750	10861	
==>version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10750	10861	
==>version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4094	4219	
==>turn $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} conte <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2553	2669	
==>ue ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2553	2669	
==>ue ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7053	7160	
==>erm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3657	3764	
==>erm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4506	4613	
==>erm1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	881	1014	
==>os -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	881	1014	
==>os -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3356	3471	
==>rn $S->object(exact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	299	405	
==>ric and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is u <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	299	405	
==>ric and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11179	11308	
==>ib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11179	11308	
==>ib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11179	11308	
==>ib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5165	5299	
==>ything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5165	5299	
==>ything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5165	5299	
==>ything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17228	17326	
==>al machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17228	17326	
==>al machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3101	3223	
==>space? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3101	3223	
==>space? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3101	3223	
==>space? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34988	35111	
==>pe => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the merge() method define <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14175	14280	
==>ody->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

su <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1655	1760	
==>ody->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20933	21024	
==>channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20933	21024	
==>channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20318	20470	
==>_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16984	17072	
==>s::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16984	17072	
==>s::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16984	17072	
==>s::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6282	6483	
==>me );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\n" .
                        "\t/* $op->{name} $op->{fixit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3635	3737	
==>ipt>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3635	3737	
==>ipt>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3635	3737	
==>ipt>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6022	6129	
==>ser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6022	6129	
==>ser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6022	6129	
==>ser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14319	14423	
==>nstance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14319	14423	
==>nstance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14319	14423	
==>nstance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	266	380	
==>$output .= "}\n";
    return $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_" . <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1081	1189	
==>path(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1081	1189	
==>path(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	971	1108	
==>eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	971	1108	
==>eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	971	1108	
==>eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2213	2330	
==>j, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2213	2330	
==>j, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2213	2330	
==>j, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1650	1795	
==>ndef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub spli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1659	1772	
==>rrently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1659	1772	
==>rrently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32356	32455	
==>ment.  This method will fail if
C<$other> does not have an identical header to the invocant relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36906	37005	
==>ment.  This method will fail if
C<$other> does not have an identical header to the invocant relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36196	36295	
==>ment.  This method will fail if
C<$other> does not have an identical header to the invocant relation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9132	9254	
==>tation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> leng <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12985	13103	
==>tation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> leng <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12985	13103	
==>tation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> leng <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5148	5288	
==>peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Could <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5349	5483	
==>peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Could <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5349	5483	
==>peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Could <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11637	11765	
==>e;
      $link->{linkhead} = $linkhead;
      $link->{whole}    = $whole;
      $link->{relfile}  = $relative_file;
      if ($re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6148	6244	
==>owever, more complex POD 
documents may not do as well. Error reporting is still pretty minimal a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6148	6244	
==>owever, more complex POD 
documents may not do as well. Error reporting is still pretty minimal a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17426	17519	
==>controls the compilation process, calling each compiler
at the right time with the right data. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17426	17519	
==>controls the compilation process, calling each compiler
at the right time with the right data. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4148	4272	
==>"$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4148	4272	
==>"$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4148	4272	
==>"$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc)) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	857	973	
==>E) ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return list->new(@res <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28084	28180	
==>g_vars()>

This method returns all Message Variable names and values of this object as
a hash ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28084	28180	
==>g_vars()>

This method returns all Message Variable names and values of this object as
a hash ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40702	40820	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40702	40820	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40702	40820	
==>y ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11444	11631	
==>ing it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11444	11631	
==>ing it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11444	11631	
==>ing it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13273	13374	
==>te' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13273	13374	
==>te' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13273	13374	
==>te' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %para <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2998	3103	
==>.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2998	3103	
==>.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5850	5951	
==>expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whites <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	359	481	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	359	481	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	359	481	
==>ons(function () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21365	21468	
==>nore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21365	21468	
==>nore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21365	21468	
==>nore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1392	1525	
==>nd 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.n <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1392	1525	
==>nd 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8133	8307	
==>ush @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8133	8307	
==>ush @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8133	8307	
==>ush @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1102	1305	
==>s;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1102	1305	
==>s;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1102	1305	
==>s;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3097	3219	
==>->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3097	3219	
==>->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3097	3219	
==>->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3636	3746	
==>subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3636	3746	
==>subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3636	3746	
==>subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17914	18098	
==>check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17914	18098	
==>check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17914	18098	
==>check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4052	4162	
==>6ws>? \;
        { 
		eval 'use '.$()->[2]{ident}[0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'term <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7534	7627	
==>base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7534	7627	
==>base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4642	4812	
==>.= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4642	4812	
==>.= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4642	4812	
==>.= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2927	3022	
==>lete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2927	3022	
==>lete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2927	3022	
==>lete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1852	1967	
==>turn value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_ab <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1852	1967	
==>turn value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_ab <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21582	21676	
==>tuples.  All Relation
attributes may be individually addressed only by their names, and all
Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26134	26228	
==>tuples.  All Relation
attributes may be individually addressed only by their names, and all
Rel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6780	6896	
==>pile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rules, jus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6553	6660	
==>pile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rules, jus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2517	2608	
==>100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2517	2608	
==>100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2517	2608	
==>100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1262	1379	
==>) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1262	1379	
==>) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1262	1379	
==>) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8948	9101	
==>t = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8948	9101	
==>t = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4514	4621	
==>ect_rule { \<(!?)\:\:\( <code> \)\> }

rule character  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<exp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	420	585	
==>lf->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$me <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15875	15974	
==>mment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most wid <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20108	20207	
==>mment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most wid <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1776	1893	
==>et rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1776	1893	
==>et rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2939	3035	
==>.

Although running C<v6-pugs> requires the installation of a lot of Perl 5 modules,
it is comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6908	7053	
==>= Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6908	7053	
==>= Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6908	7053	
==>= Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3488	3606	
==>ined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3488	3606	
==>ined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9441	9553	
==>n($res, $cur);
   }
   $res;
 }


=item reverse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10464	10582	
==>k through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10464	10582	
==>k through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10464	10582	
==>k through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6139	6388	
==>il ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the ne <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6603	6852	
==>il ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the ne <==
3	/Users/nnunley/pugs/util/testgraph.pl	1413	1521	
==>el::Visual/;
    sub file_class { "My::File" }
    
    package My::File;
    use base qw/Test::TAP::Model::F <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6392	6490	
==>iphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6392	6490	
==>iphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	6	103	
==>perl -w
use strict;
#use GraphViz;
use Getopt::Long;

GetOptions \our %Conf, qw(--verbose|v no|n l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	136	255	
==>ackage PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	136	255	
==>ackage PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	136	255	
==>ackage PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3796	3891	
==>the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3796	3891	
==>the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3227	3333	
==>}
    
    return $perl_version if defined $perl_version;
    return;
}

=pod

=head2 JIB::Utils->_version_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1719	1811	
==>ler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has B <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1719	1811	
==>ler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1458	1557	
==>ber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1458	1557	
==>ber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1458	1557	
==>ber(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3860	3968	
==>my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18252	18351	
==>ams would have a harder time figuring out the
best way to deal with it.  But for displaying to users <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18252	18351	
==>ams would have a harder time figuring out the
best way to deal with it.  But for displaying to users <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2051	2179	
==>$subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2051	2179	
==>$subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2051	2179	
==>$subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	807	927	
==>fiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	807	927	
==>fiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	807	927	
==>fiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1373	1485	
==>2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1373	1485	
==>2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1373	1485	
==>2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1019	1128	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1019	1128	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1019	1128	
==>essors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	406	512	
==>:Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	406	512	
==>:Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	406	512	
==>:Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	440	546	
==>e Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test::TAP::Model;
use <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6386	6486	
==>most ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6386	6486	
==>most ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7773	7871	
==>($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7773	7871	
==>($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7773	7871	
==>($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13979	14091	
==>n";
    exit 1;
}

# A somewhat safer version of the sometimes wrong $^X.
my $Perl;
sub which_perl {
    unless ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9442	9540	
==>If the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contai <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9442	9540	
==>If the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contai <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18557	18674	
==>T}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif( <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3841	3934	
==>gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http:/ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3841	3934	
==>gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6648	6775	
==>$a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6648	6775	
==>$a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6648	6775	
==>$a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2204	2308	
==>her) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2204	2308	
==>her) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37041	37130	
==>ce>.

=item C<exclusion (Relation::Example *@others) returns Relation::Example>

This mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3906	4011	
==>ity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3906	4011	
==>ity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3906	4011	
==>ity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the parameters to $__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13853	13971	
==>efix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13853	13971	
==>efix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13853	13971	
==>efix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7833	7945	
==>tinuation"

  $capture       - capture then entire match. For example:

  

  # returns a Match object that has t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7568	7677	
==>tinuation"
  $capture       - capture then entire match. For example:
  
  # returns a Match object that has t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9506	9698	
==>t_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return e <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9731	9828	
==>ule was built to facilitate the Pugs test suite. It has the
distinction of being the very first mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9789	9886	
==>ule was built to facilitate the Pugs test suite. It has the
distinction of being the very first mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11792	11949	
==>tch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11792	11949	
==>tch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11792	11949	
==>tch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2488	2636	
==>p>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2488	2636	
==>p>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2488	2636	
==>p>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6874	7015	
==>atch

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5026	5164	
==>perclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_insta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6648	6780	
==>atch
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2511	2623	
==>cause we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2428	2537	
==>cause we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17832	17941	
==>e')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17832	17941	
==>e')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17832	17941	
==>e')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	585	723	
==>self->visual(@_);
  }

  sub data {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20295	20388	
==>=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20295	20388	
==>=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1777	1890	
==>f->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1777	1890	
==>f->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1777	1890	
==>f->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1142	1252	
==>d( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1142	1252	
==>d( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2713	2823	
==>lf = shift;
    my $base = $self->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7174	7300	
==>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7174	7300	
==>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7174	7300	
==>num  ) },
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->pe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5163	5265	
==>mper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1::Api; use utf8; use E <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3286	3381	
==>copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::sh <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2742	2835	
==>copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1075	1216	
==>turing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1075	1216	
==>turing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @ru <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1369	1495	
==>) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13282	13381	
==>class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13282	13381	
==>class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13282	13381	
==>class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3300	3396	
==>ich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3300	3396	
==>ich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3300	3396	
==>ich doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, tr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	300	417	
==>ersion
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	300	417	
==>ersion
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	875	979	
==>n $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	875	979	
==>n $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	875	979	
==>n $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3283	3399	
==>if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3283	3399	
==>if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6643	6743	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6643	6743	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6643	6743	
==>ons(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      va <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2529	2626	
==>ons of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2529	2626	
==>ons of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10462	10555	
==>56_char_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos(horizontal_spac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10957	11074	
==>f;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10957	11074	
==>f;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10957	11074	
==>f;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1225	1325	
==>) };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1225	1325	
==>) };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1225	1325	
==>) };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11763	11886	
==>end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1501	1601	
==>ir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print "# Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2246	2359	
==>code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2246	2359	
==>code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2246	2359	
==>code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2268	2377	
==>d;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2268	2377	
==>d;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2268	2377	
==>d;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (othe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15139	15243	
==>") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15139	15243	
==>") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4832	4935	
==>e =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_make <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1598	1709	
==>args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1598	1709	
==>args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1598	1709	
==>args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3954	4061	
==>infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3954	4061	
==>infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3954	4061	
==>infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2208	2342	
==>n = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2208	2342	
==>n = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2208	2342	
==>n = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15656	15852	
==>::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15935	16131	
==>::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5910	6015	
==>s infix:<~~> doesnt work yet.
multi sub infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	621	826	
==>less [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	621	826	
==>less [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	621	826	
==>less [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Acc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	124	247	
==>tput
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	124	247	
==>tput
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $mes <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4545	4653	
==>with thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			return $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3791	3898	
==>((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::S <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3791	3898	
==>((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3812	3968	
==>y_push' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                push @{$self->get_value('@:slots')}, m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20958	21056	
==>t aims to bring this sort of functionality to Perl packages
or programs.  Your package or program c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20958	21056	
==>t aims to bring this sort of functionality to Perl packages
or programs.  Your package or program c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2830	2946	
==>cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1436	1547	
==>o;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1436	1547	
==>o;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler module <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11910	12101	
==>_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->get <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21863	21973	
==>substr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5676	5785	
==>sm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5676	5785	
==>sm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5676	5785	
==>sm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6403	6508	
==>$xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6403	6508	
==>$xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6403	6508	
==>$xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13865	13959	
==>his routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13865	13959	
==>his routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1457	1554	
==>infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1457	1554	
==>infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1457	1554	
==>infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= Strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19520	19617	
==>n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19520	19617	
==>n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19520	19617	
==>n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5660	5765	
==>@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Containe <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5660	5765	
==>@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Containe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20766	20859	
==>f read readdir readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34840	34945	
==>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34840	34945	
==>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34840	34945	
==>items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1449	1553	
==>y $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = sl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1449	1553	
==>y $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = sl <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	458	593	
==>ZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/var/www/iblech/stuff/pugs-smokes/",
  BASEHTTPDIR => "/iblech/stuff/pugs-smokes/", <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	444	561	
==>'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1972	2089	
==>'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3241	3361	
==>d $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3241	3361	
==>d $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3241	3361	
==>d $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	499	659	
==>g?
        return '' unless +@:output;

        my $output = @:output.join( "\n" );
        @:output   = ();
        return $output;
    }

    method diagnostic <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19388	19474	
==>adline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>() <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19388	19474	
==>adline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2061	2171	
==>nfix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2061	2171	
==>nfix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2061	2171	
==>nfix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19994	20125	
==>LL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19994	20125	
==>LL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19994	20125	
==>LL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2825	2961	
==>ethod flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't inst <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2825	2961	
==>ethod flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't inst <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1494	1608	
==>, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalence <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2558	2656	
==>cts of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2558	2656	
==>cts of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2558	2656	
==>cts of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4034	4151	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4034	4151	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4034	4151	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2653	2752	
==>: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2793	2892	
==>: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5650	5734	
==>+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	607	715	
==>005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	607	715	
==>005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	607	715	
==>005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	497	634	
==>?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	497	634	
==>?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	497	634	
==>?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  el <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30299	30401	
==>nted.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run f <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10523	10621	
==>reetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Information <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10523	10621	
==>reetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Information <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5650	5755	
==>->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5650	5755	
==>->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5650	5755	
==>->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	729	850	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	729	850	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	729	850	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	137	234	
==>N = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	137	234	
==>N = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	137	234	
==>N = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	723	831	
==>)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	723	831	
==>)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	723	831	
==>)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10006	10176	
==>s6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10006	10176	
==>s6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10006	10176	
==>s6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	748	879	
==>osmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	748	879	
==>osmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	748	879	
==>osmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6947	7057	
==>$match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6947	7057	
==>$match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7240	7388	
==>= map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7240	7388	
==>= map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7240	7388	
==>= map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4017	4109	
==>LIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4017	4109	
==>LIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5541	5633	
==>LIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2440	2548	
==>finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2440	2548	
==>finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2440	2548	
==>finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4473	4603	
==>he "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4473	4603	
==>he "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2281	2424	
==>->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2281	2424	
==>->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2281	2424	
==>->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12619	12766	
==>tus();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $stat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2985	3126	
==>tus();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $stat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2985	3126	
==>tus();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10749	10853	
==>e = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33425	33521	
==>he returned Relation contains only tuples that are in
all of the source Relations.  This method h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37975	38071	
==>he returned Relation contains only tuples that are in
all of the source Relations.  This method h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1305	1405	
==>PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1305	1405	
==>PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1305	1405	
==>PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAM <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2718	2901	
==>dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist eq <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6501	6596	
==>rn $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6501	6596	
==>rn $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3582	3702	
==>} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3582	3702	
==>} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3582	3702	
==>} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($r <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3139	3266	
==>Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    d <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3139	3266	
==>Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5873	5977	
==>te->new('@:subclasses')      => list->new(),
            attribute->new('@:superclasses')    => list->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1498	1628	
==>attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1498	1628	
==>attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1498	1628	
==>attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/util/importgraph.pl	904	1006	
==>ed \s+)? ([\w.]+) (\s* \()?/x) {
      $imports{$2} = [defined($1), defined($3)];
    } elsif (/^import <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3469	3555	
==>c/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadow <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3469	3555	
==>c/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadow <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37429	37524	
==>module( $module_name! )>

This method takes the name of a Perl package in its positional paramet <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37429	37524	
==>module( $module_name! )>

This method takes the name of a Perl package in its positional paramet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1999	2088	
==>t of Relation::AttrName () {...}

proto method export_attr_type of Relation::LaxPairAttrTy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1027	1149	
==>or the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1027	1149	
==>or the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1027	1149	
==>or the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3013	3174	
==>t,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3013	3174	
==>t,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3013	3174	
==>t,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5736	5840	
==>. ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5736	5840	
==>. ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5736	5840	
==>. ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inclusion fil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7850	7982	
==>\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7862	7994	
==>\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2632	2756	
==>rchive_data'}     = [ 'data.tgz'      ];
$config{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3671	3853	
==>it.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3671	3853	
==>it.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3671	3853	
==>it.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shif <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9165	9285	
==>+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuild::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3080	3187	
==>s $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3080	3187	
==>s $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3080	3187	
==>s $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3373	3492	
==>[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3373	3492	
==>[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $m <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3230	3339	
==>o put in %*INC. it's not perfect.
    # When module return values are specced, we can make this much
    # les <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12823	12996	
==>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12823	12996	
==>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12823	12996	
==>pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5222	5354	
==>new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5222	5354	
==>new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5222	5354	
==>new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	798	936	
==>while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	798	936	
==>while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	798	936	
==>while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expa <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	792	1173	
==>27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        17161 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	792	1173	
==>27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        17161 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	303	434	
==>rchive ( qx[find root-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5817	5915	
==>t::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5817	5915	
==>t::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5817	5915	
==>t::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cf <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6076	6189	
==>ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	505	605	
==>sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	563	663	
==>sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::n <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1355	1482	
==>curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "| <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1355	1482	
==>curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "| <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8332	8448	
==>M "$parrot_path/parrot" and
      -M $initrd_gz <= -M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2420	2570	
==>eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2420	2570	
==>eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2420	2570	
==>eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5107	5229	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5107	5229	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5107	5229	
==>SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	507	615	
==>lass::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	507	615	
==>lass::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	507	615	
==>lass::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5700	5877	
==>unction (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5700	5877	
==>unction (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5700	5877	
==>unction (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	83	177	
==>ion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::Big <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	83	177	
==>ion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::Big <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	83	177	
==>ion;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::Big <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7539	7679	
==>( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7732	7872	
==>( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	793	886	
==>londie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->compi <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1856	1969	
==>alias   {  \@<name>      \:\=  <construct>  }
rule external_hash_alias    {  \%<name>      \:\=  <construct>  }
ru <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2188	2294	
==>UG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){
		    $valuex = eval("\"$value\"" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	123	228	
==>or;
use base qw(Pugs::Grammar::BaseCategory);

sub add_rule {
    # print "add infix operator\n";
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19371	19546	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19371	19546	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19371	19546	
==>nClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; go <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2231	2329	
==>)(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2231	2329	
==>)(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2231	2329	
==>)(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { return str.length })')(~$sel <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10239	10376	
==>for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='tex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10239	10376	
==>for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='tex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14984	15104	
==>$I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1998	2120	
==>pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1998	2120	
==>pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1998	2120	
==>pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15615	15727	
==>se are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15615	15727	
==>se are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15615	15727	
==>se are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10371	10494	
==>_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10371	10494	
==>_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10371	10494	
==>_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	90	197	
==>sage::Simple        qw[:STD];

use vars qw[@EXPORT];
use base 'Exporter';

@EXPORT  = Package::Constants->li <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34665	34766	
==>L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34665	34766	
==>L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2945	3067	
==>->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2945	3067	
==>->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2945	3067	
==>->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9188	9315	
==>rn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9188	9315	
==>rn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9188	9315	
==>rn $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30419	30531	
==>et $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30419	30531	
==>et $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30419	30531	
==>et $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	910	1012	
==>rop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    F <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	910	1012	
==>rop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2974	3092	
==>or(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2974	3092	
==>or(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2974	3092	
==>or(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10043	10163	
==>kage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10043	10163	
==>kage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10043	10163	
==>kage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12942	13144	
==>lue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12942	13144	
==>lue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12942	13144	
==>lue::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{po <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36238	36324	
==>['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36238	36324	
==>['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29403	29516	
==>lf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29403	29516	
==>lf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29403	29516	
==>lf = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1406	1590	
==>n::Container::Scalar->new;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11316	11414	
==>sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub str <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11316	11414	
==>sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6871	6964	
==>atcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6871	6964	
==>atcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6871	6964	
==>atcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $ru <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	684	846	
==>pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	684	846	
==>pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14104	14299	
==>->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14104	14299	
==>->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14104	14299	
==>->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8632	8833	
==>param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8632	8833	
==>param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8632	8833	
==>param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	341	437	
==>p(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	341	437	
==>p(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	341	437	
==>p(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = args[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5246	5339	
==>nstance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5246	5339	
==>nstance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5246	5339	
==>nstance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's A <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24744	24847	
==>turn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21165	21268	
==>turn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => su <==
3	/Users/nnunley/pugs/util/testgraph.pl	260	351	
==>{cssfile} ||= Test::TAP::HTMLMatrix->css_file();
usage() if $Config{help};

my $yamlfile = s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5078	5202	
==>e_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTP <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5078	5202	
==>e_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTP <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1982	2106	
==>e_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	776	903	
==>> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	776	903	
==>> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	776	903	
==>> JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub { shift; perl_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11720	11829	
==>ct representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11720	11829	
==>ct representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6694	6801	
==>nst->unregister( package => $inst_pkg );

=cut

sub unregister {
    my $self = shift;
    my $conf = $self- <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5428	5582	
==>me} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in our path.   Let's hun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1012	1112	
==>urn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1012	1112	
==>urn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15991	16133	
==>S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Match\x0$:target"
    $S1 = $P1
    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	592	681	
==>t-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Mod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	592	681	
==>t-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Mod <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4018	4112	
==>, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.comple <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4018	4112	
==>, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.comple <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	209	324	
==>st::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	209	324	
==>st::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3672	3770	
==>b new {
	my $class_that_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1031	1146	
==>:CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1031	1146	
==>:CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1031	1146	
==>:CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13111	13279	
==>6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13111	13279	
==>6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13111	13279	
==>6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4214	4327	
==>alues;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4214	4327	
==>alues;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4214	4327	
==>alues;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2793	2901	
==>t::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - H <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2793	2901	
==>t::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - H <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2873	2981	
==>t::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - H <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15182	15315	
==>right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = joi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15931	16030	
==>sage that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15931	16030	
==>sage that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1434	1558	
==>nt(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1434	1558	
==>nt(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1434	1558	
==>nt(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	120	266	
==>)($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	120	266	
==>)($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	120	266	
==>)($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	328	448	
==>r = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	328	448	
==>r = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	328	448	
==>r = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7805	7911	
==>defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21421	21514	
==>ative relational database engines with minimal effort.

This might seem strange to somebody wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21421	21514	
==>ative relational database engines with minimal effort.

This might seem strange to somebody wh <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12868	13012	
==>t/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@libs) {
        copy $_ => " <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5660	5752	
==>serAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5660	5752	
==>serAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6217	6422	
==>method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6217	6422	
==>method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6217	6422	
==>method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1165	1271	
==>h += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_wi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1165	1271	
==>h += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_wi <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	303	390	
==>auto_include { +shift->admin->auto_include(@_) };
sub auto_include_deps { +shift->admin- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17346	17444	
==>ULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17346	17444	
==>ULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17346	17444	
==>ULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10632	10736	
==>cord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10632	10736	
==>cord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17953	18047	
==>ULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17953	18047	
==>ULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17953	18047	
==>ULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2621	2758	
==>ur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2621	2758	
==>ur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2621	2758	
==>ur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	568	665	
==>\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	568	665	
==>\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	568	665	
==>\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25229	25318	
==>e
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosoph <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25229	25318	
==>e
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosoph <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	33	138	
==>rict;
use warnings;
our $VERSION = '0.01';

use File::Copy;

# change these two lines if it turns out we n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38223	38318	
==>ate text string in
its positional parameter $text (a string), and a Message Variables hash ref
i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38223	38318	
==>ate text string in
its positional parameter $text (a string), and a Message Variables hash ref
i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	516	628	
==>$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemente <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4852	4942	
==>:%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4852	4942	
==>:%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7846	8026	
==>$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good en <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8310	8490	
==>$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good en <==
3	/Users/nnunley/pugs/util/run-smoke.pl	135	230	
==>Bin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML Test::TAP::Model Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	597	694	
==>elude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	597	694	
==>elude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	597	694	
==>elude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2172	2280	
==>x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2172	2280	
==>x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2172	2280	
==>x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	159	271	
==>::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dirname(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2163	2269	
==>($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $c <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2163	2269	
==>($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	504	597	
==>oinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	504	597	
==>oinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2879	2972	
==>e outdated) image is available at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso.

Note: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10330	10501	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10330	10501	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10330	10501	
==>aram) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3599	3706	
==>es($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ru <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3599	3706	
==>es($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ru <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13121	13223	
==>p
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$initr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	237	361	
==>plan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton / <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	237	361	
==>plan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton / <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14798	14922	
==>elf;
    }
  }
}


{
  # ( non-capturing
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	991	1120	
==>l_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	991	1120	
==>l_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	991	1120	
==>l_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5255	5383	
==>be (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5255	5383	
==>be (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11537	11658	
==>get, pos, 2
    if $S0 == ": " goto subrule_text
    $S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11356	11466	
==>s)))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('new'),
    # method body <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	70	171	
==>O

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some twe <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	70	171	
==>O

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some twe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6577	6702	
==>ultiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6577	6702	
==>ultiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4260	4374	
==>unless ($pass) {
        # It seems Irix long doubles can have 2147483648 and 2147483648
        # that stringify t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12553	12656	
==>()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12553	12656	
==>()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12553	12656	
==>()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5493	5610	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5493	5610	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5493	5610	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5330	5465	
==>, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5330	5465	
==>, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5330	5465	
==>, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12007	12106	
==>e
this module requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tr <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1472	1561	
==>F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF). <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1472	1561	
==>F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11647	11773	
==>edness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11647	11773	
==>edness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11647	11773	
==>edness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9737	9838	
==>$bool = \${\$hash->{'bool'}};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5102	5200	
==>y $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($fo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5102	5200	
==>y $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($fo <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9290	9401	
==>et, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_ma <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	477	566	
==>-----------------------------------------
## accessors and mutators

method parent ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	477	566	
==>-----------------------------------------
## accessors and mutators

method parent ($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9028	9212	
==>unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9028	9212	
==>unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9028	9212	
==>unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9734	9844	
==>"_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9734	9844	
==>"_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9734	9844	
==>"_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3324	3484	
==>ile associated with this object -- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp di <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1670	1781	
==>h, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1670	1781	
==>h, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	727	831	
==>].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	727	831	
==>].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	727	831	
==>].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our prox <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	473	574	
==>mpiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


ro <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	473	574	
==>mpiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


ro <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	678	775	
==>Bin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.org>.
.
        require "$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4512	4610	
==>ample: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

Thi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4512	4610	
==>ample: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11966	12087	
==>ss;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11966	12087	
==>ss;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11966	12087	
==>ss;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3873	4086	
==>3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {},
                match => <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15058	15157	
==>eric);>

=back

All these routines modify the string passed as the first argument, if
called in a vo <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15058	15157	
==>eric);>

=back

All these routines modify the string passed as the first argument, if
called in a vo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8338	8443	
==>d' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8338	8443	
==>d' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8338	8443	
==>d' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2454	2560	
==>ices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2454	2560	
==>ices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2454	2560	
==>ices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TO <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6306	6487	
==>r->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26	157	
==>edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26	156	
==>edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2678	2848	
==>mething false.

=cut

sub create {
    my $self = shift;
    my $conf = $self->config;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3285	3398	
==>$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3285	3398	
==>$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_na <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1953	2057	
==>um_width'} == 64, 'subset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'su <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8807	8945	
==>urn $ENV{HARNESS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15525	15621	
==>a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and data <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15525	15621	
==>a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4290	4405	
==>n.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4290	4405	
==>n.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4290	4405	
==>n.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8682	8852	
==>ield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8682	8852	
==>ield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2251	2341	
==>mar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_name> \;[ [<rule>|<token>|<rege <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1495	1634	
==>se 'Unit';

    package Param;
    use base 'Unit';

    package App;
    use base 'Node';

    package Val;
    use base 'Unit';

    packa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	101	222	
==>{ ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is expor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	101	222	
==>{ ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3130	3226	
==>base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3130	3226	
==>base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3130	3226	
==>base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|outpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3605	3710	
==>elete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3605	3710	
==>elete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4195	4300	
==>elete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9329	9455	
==>ove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9329	9455	
==>ove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9329	9455	
==>ove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	452	568	
==>0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	452	568	
==>0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	452	568	
==>0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4182	4287	
==>de($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4182	4287	
==>de($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4182	4287	
==>de($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2484	2607	
==>and) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2484	2607	
==>and) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2484	2607	
==>and) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var syst <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13144	13247	
==>the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13144	13247	
==>the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	670	768	
==>captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multid <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	670	768	
==>captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	589	696	
==>okenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	589	696	
==>okenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	589	696	
==>okenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3715	3814	
==>nce($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3715	3814	
==>nce($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2245	2394	
==>}

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2173	2314	
==>}
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4348	4449	
==>paces));

my @statements;
def_rule('statement',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3687	3799	
==>values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7164	7276	
==>values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6121	6233	
==>values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20880	20981	
==>e::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

An <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20880	20981	
==>e::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

An <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3794	3886	
==>xtUtils::Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1970	2103	
==>$class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1970	2103	
==>$class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1970	2103	
==>$class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1505	1611	
==>ightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natura <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1505	1611	
==>ightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natura <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8249	8343	
==>ived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::min(@sel <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3533	3634	
==>1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3533	3634	
==>1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5730	5831	
==>1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2417	2516	
==>@scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2417	2516	
==>@scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2417	2516	
==>@scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	940	1102	
==>);

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	940	1102	
==>);

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	940	1102	
==>);

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15913	16048	
==>e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfil <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6954	7053	
==>e.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6954	7053	
==>e.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13415	13532	
==>od('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13415	13532	
==>od('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13415	13532	
==>od('get_attribute_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6242	6351	
==>=~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($self->{dispatch <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2267	2362	
==>Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2267	2362	
==>Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    h <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5403	5528	
==>bcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base goto term_bx2
    $I0 *= base
    $If0 += $I1
    inc pos
    goto <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3323	3445	
==>ut<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3323	3445	
==>ut<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5832	5937	
==>Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5832	5937	
==>Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6422	6527	
==>Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4897	5019	
==>} else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy( from => $fi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7320	7436	
==>_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7320	7436	
==>_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12702	12821	
==>)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12702	12821	
==>)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2482	2588	
==>"; # some identifiers for types. Let'shope we never need to print more than these ;-)
	
	my %map;
	my @fora <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4042	4123	
==>x-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Sched <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4042	4123	
==>x-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Sched <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3166	3279	
==>s return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3166	3279	
==>s return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3166	3279	
==>s return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # oper <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1506	1605	
==>perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@ <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1506	1605	
==>perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	838	960	
==>);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	838	960	
==>);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	838	960	
==>);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6274	6492	
==>e );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6274	6492	
==>e );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6274	6492	
==>e );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7099	7222	
==>@list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	400	523	
==>@list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3646	3750	
==>/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3646	3750	
==>/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3646	3750	
==>/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test <==
3	/Users/nnunley/pugs/util/importgraph.pl	661	765	
==>rts, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7303	7479	
==>lems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7303	7479	
==>lems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7303	7479	
==>lems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27429	27523	
==>, "∀α. list α → int", ":t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1120	1254	
==>'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1325	1459	
==>'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1386	1520	
==>'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	288	400	
==>g :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	288	400	
==>g :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless de <==
3	/Users/nnunley/pugs/util/package-osx.pl	8465	8564	
==>an/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run.3
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2484	2585	
==>, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2484	2585	
==>, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2484	2585	
==>, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3614	3743	
==>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3865	3990	
==>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3865	3990	
==>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7914	8092	
==>local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7914	8092	
==>local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7914	8092	
==>local $::CALLER::CLASS = $::CLASS;
            # get all the others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PAC <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8751	8852	
==>disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25653	25751	
==>intended to be read by a machine and
mapped to a user-readable message; the key itself is not meant <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25653	25751	
==>intended to be read by a machine and
mapped to a user-readable message; the key itself is not meant <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7507	7674	
==>ext =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7507	7674	
==>ext =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4239	4342	
==>ced to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in the pa <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	86	177	
==>EMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	86	177	
==>EMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6646	6752	
==>ow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6646	6752	
==>ow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6646	6752	
==>ow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1624	1728	
==>nstants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1624	1728	
==>nstants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1302	1405	
==>ssages.


# Test suite:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests_perl5.t - driver from sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1716	1816	
==>lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1716	1816	
==>lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1716	1816	
==>lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!" <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	654	783	
==>d as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19851	19950	
==>ta D however it likes; all Rosetta cares about is that the user
interface and behaviour conform to i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19851	19950	
==>ta D however it likes; all Rosetta cares about is that the user
interface and behaviour conform to i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1698	1813	
==>expression.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code *&expression) returns Scalar
 multi sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10812	10925	
==>`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gma <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10812	10925	
==>`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gma <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1177	1294	
==>$self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1177	1294	
==>$self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2757	2881	
==>KIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You c <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2757	2881	
==>KIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19753	19859	
==>c->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1190	1292	
==>")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1190	1292	
==>")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1190	1292	
==>")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	860	1025	
==>if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	860	1025	
==>if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	860	1025	
==>if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5687	5794	
==>i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5687	5794	
==>i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5687	5794	
==>i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12129	12237	
==>ant current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Ro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12129	12237	
==>ant current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Ro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12129	12237	
==>ant current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Ro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24093	24235	
==>,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", $self->r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1808	1925	
==>le}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1808	1925	
==>le}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5372	5471	
==>oined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(norma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5372	5471	
==>oined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(norma <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2049	2133	
==>s { <subrule>|<capturing_group>|<noncapturing_group>|<quantified_construct> }
rule qu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	48	155	
==>n the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	48	155	
==>n the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23539	23640	
==>wn objects, for efficiency, and they can optionally extend the
Relation library's interface.

See also <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15118	15252	
==>label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15118	15252	
==>label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15118	15252	
==>label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	97	205	
==>n a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	97	205	
==>n a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	97	205	
==>n a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	18	117	
==>cType;

# this is a simple translation of the JuncType type from
# src/Pugs/AST/Internals.hs to an e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19369	19458	
==>er, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19369	19458	
==>er, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3251	3361	
==>/^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3251	3361	
==>/^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3251	3361	
==>/^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{pat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2202	2306	
==>op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$id} if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1851	1955	
==>add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1851	1955	
==>add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1851	1955	
==>add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13827	13942	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14106	14221	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3617	3718	
==>he node
structure. The only dirty part is C<reduce_sym> which must handle recursive calls.

The compil <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2666	2772	
==>nd_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2666	2772	
==>nd_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9595	9713	
==>UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9595	9713	
==>UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9595	9713	
==>UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1512	1629	
==>'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=> <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	786	884	
==>off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if ! <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4231	4322	
==>will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines star <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4231	4322	
==>will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	344	448	
==>lass->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	344	448	
==>lass->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	344	448	
==>lass->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate | <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	265	386	
==>has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query han <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	265	386	
==>has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query han <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2919	3026	
==>sage( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a me <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2919	3026	
==>sage( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7191	7314	
==>nction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7191	7314	
==>nction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7191	7314	
==>nction () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	302	404	
==>he current backend does.


role rArray {}


class Array is List does rArray;

# signature from S29draft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	98	190	
==>Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	98	190	
==>Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	98	190	
==>Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { P <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6253	6355	
==>/
    r->substrs->data[0].substr = SvREFCNT_inc(callback);

    /* Try to scare off the rest of perl */ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1285	1382	
==>AP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1285	1382	
==>AP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3347	3469	
==>e - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3358	3480	
==>e - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current matc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2185	2287	
==>sion}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: ([ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	392	506	
==>&& 
     looks_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4182	4277	
==>+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4182	4277	
==>+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1022	1146	
==>e want long-term.  If Perl6::Rule::Parser was
# working and robust, it would make sense to continue for a while on
# Regexp:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3582	3691	
==>5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\. <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3582	3691	
==>5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2065	2155	
==>lf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2065	2155	
==>lf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2065	2155	
==>lf->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTR <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1069	1176	
==>ub set_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2762	2845	
==>/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6 <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2762	2845	
==>/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1186	1283	
==>:Role). This is
# needed because we lock the keys inside the opaque instance structure (see chaos. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1186	1283	
==>:Role). This is
# needed because we lock the keys inside the opaque instance structure (see chaos. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1186	1283	
==>:Role). This is
# needed because we lock the keys inside the opaque instance structure (see chaos. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4754	4952	
==>sh {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method ge <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4754	4952	
==>sh {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	309	410	
==>JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	309	410	
==>JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	309	410	
==>JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]). <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	337	444	
==>ERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	337	444	
==>ERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	337	444	
==>ERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

mu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2262	2396	
==>t(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    d <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2262	2396	
==>t(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11370	11486	
==>in,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11370	11486	
==>in,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11370	11486	
==>in,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	60	152	
==>5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	60	152	
==>5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8028	8238	
==>ugh version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satis <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8492	8702	
==>ugh version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12492	12635	
==>rray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12492	12635	
==>rray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12492	12635	
==>rray->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	399	533	
==>Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20399	20493	
==>-level preference
/ control-panel displays a list of all the languages your programs do or
migh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20399	20493	
==>-level preference
/ control-panel displays a list of all the languages your programs do or
migh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36257	36345	
==>resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
int <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36257	36345	
==>resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
int <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5204	5302	
==>e:

=over 3

=item get($url)

The get() function will fetch the document identified by the given UR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5204	5302	
==>e:

=over 3

=item get($url)

The get() function will fetch the document identified by the given UR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2598	2724	
==>y $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2598	2724	
==>y $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2598	2724	
==>y $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	190	359	
==>{
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	190	359	
==>{
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	190	359	
==>{
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	18	110	
==>s JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	18	110	
==>s JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	18	110	
==>s JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inli <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7228	7316	
==>----------------------------------------------
## traversal

method traverse ($self: Code <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7228	7316	
==>----------------------------------------------
## traversal

method traverse ($self: Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1113	1213	
==>&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1113	1213	
==>&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1113	1213	
==>&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	861	966	
==>count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	861	966	
==>count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	861	966	
==>count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1587	1814	
==>\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    s <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1587	1814	
==>\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	361	463	
==>::MakeMaker::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35291	35429	
==>->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35291	35429	
==>->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35291	35429	
==>->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4523	4628	
==>stant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4523	4628	
==>stant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4523	4628	
==>stant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5852	5953	
==>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5852	5953	
==>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5852	5953	
==>unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slic <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18804	18932	
==>times resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36617	36712	
==>ed Relation is identical to the
invocant.  Another trivial case is where any any source relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41166	41261	
==>ed Relation is identical to the
invocant.  Another trivial case is where any any source relation <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4227	4319	
==>, $symbol, $body, $type) = @_;
	$self->add_definition($node, "$type $symbol () {\n\t$body;\n} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39014	39114	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39014	39114	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43178	43278	
==>of Perl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11892	12006	
==>ny( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15369	15483	
==>ny( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14704	14818	
==>ny( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	984	1095	
==>e $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	984	1095	
==>e $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	984	1095	
==>e $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35271	35403	
==>il, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35271	35403	
==>il, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35271	35403	
==>il, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3313	3458	
==>intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3313	3458	
==>intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3313	3458	
==>intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is copy) {
        my @rv;

        my $add_dash;
        my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2480	2580	
==>$node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resolve_type($node->t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12031	12129	
==>e parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the pa <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12031	12129	
==>e parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9796	9933	
==>substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-pars <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6137	6274	
==>substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-pars <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6986	7123	
==>substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-pars <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10574	10733	
==>a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = und <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10574	10733	
==>a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9981	10083	
==>spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9981	10083	
==>spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9981	10083	
==>spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14214	14330	
==>bers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14214	14330	
==>bers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3682	3865	
==>$e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get(' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13549	13646	
==>abase queries, may occur much later than expected.

It may enter an infinite loop if the formula c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13549	13646	
==>abase queries, may occur much later than expected.

It may enter an infinite loop if the formula c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7370	7518	
==>entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on / <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	671	819	
==>entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1590	1719	
==>e => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28453	28574	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28732	28853	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	428	535	
==>G) {
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you planned $planned tes <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1331	1441	
==>rs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} | <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	669	778	
==>rs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	608	730	
==>in compile: unknown parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{source}, "\n";
    lo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12338	12446	
==>$_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8079	8180	
==>----------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8079	8180	
==>----------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16389	16499	
==>ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsif (!$tot->{tests}){
        die "FAILED <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9616	9722	
==>56 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9616	9722	
==>56 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13136	13266	
==>self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13136	13266	
==>self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13136	13266	
==>self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10071	10180	
==>thod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.pare <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10071	10180	
==>thod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.pare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9259	9376	
==>lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9259	9376	
==>lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9259	9376	
==>lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	427	527	
==>OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	427	527	
==>OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	427	527	
==>OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Typ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8201	8475	
==>>new(
                        Thunk->new(
                            App->new(
                                Sym->new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&po <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13000	13100	
==>$args{switches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will a <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6032	6148	
==>= traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0 <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	476	592	
==>, qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test::TAP::Model;
use File::Spec;
use Benchmark;
our @ISA = qw(Test <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	382	492	
==>ift->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8941	9080	
==>$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8941	9080	
==>$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8941	9080	
==>$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call met <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	692	786	
==>nce set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	692	786	
==>nce set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12618	12720	
==>Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, tr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12618	12720	
==>Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, tr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	520	618	
==>is is nothingmuch's first article that he read from cover
# to cover with no hand holding, and actu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1710	1838	
==>e($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1710	1838	
==>e($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1710	1838	
==>e($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12291	12405	
==>"use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12291	12405	
==>"use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12291	12405	
==>"use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14290	14379	
==>("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14290	14379	
==>("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14290	14379	
==>("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	409	540	
==>ard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	409	540	
==>ard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1874	1998	
==>KAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix:<|> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3000	3111	
==>run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3000	3111	
==>run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3000	3111	
==>run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1985	2101	
==>al_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1985	2101	
==>al_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $a <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7092	7195	
==>data...
# this is why this code is so big.

# in a language with native multimetods this would be much m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13094	13216	
==>my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13094	13216	
==>my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13094	13216	
==>my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8913	9029	
==>ix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8913	9029	
==>ix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8913	9029	
==>ix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircum <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1836	1954	
==>def here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1836	1954	
==>def here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27847	27946	
==>ash () returns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4244	4367	
==>undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4244	4367	
==>undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4244	4367	
==>undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered.delete(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1448	1590	
==>class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1448	1590	
==>class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1448	1590	
==>class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaq <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1551	1661	
==>$S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3021	3118	
==>losure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_nex <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3021	3118	
==>losure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_nex <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23587	23686	
==>clause 14
      <SourceElement>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12042	12136	
==>sa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12100	12194	
==>sa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6254	6356	
==>ie when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6254	6356	
==>ie when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	415	514	
==>l ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_down (Num $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2588	2750	
==>lf);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2793	2955	
==>lf);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3865	4027	
==>lf);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10321	10482	
==>ine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10321	10482	
==>ine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Roset <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1896	1995	
==>refix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $args{_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11681	11802	
==>);

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must pro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11681	11802	
==>);

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must pro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11681	11802	
==>);

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4250	4349	
==>{""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4250	4349	
==>{""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4250	4349	
==>{""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6136	6384	
==>avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6600	6848	
==>avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3564	3680	
==>->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	676	795	
==>h my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	676	795	
==>h my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	676	795	
==>h my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18375	18473	
==>ter.

I have found that when it comes to getting the most accurate program text
for users, we still <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18375	18473	
==>ter.

I have found that when it comes to getting the most accurate program text
for users, we still <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	948	1042	
==>C<Type> and a
language object called C<Type>.  Perhaps this module should be called
something e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12073	12200	
==>sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12073	12200	
==>sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12073	12200	
==>sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	254	368	
==>he Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	254	368	
==>he Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	254	368	
==>he Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12746	12876	
==>e it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':cano <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12746	12876	
==>e it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':cano <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12746	12876	
==>e it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':cano <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	646	759	
==>ls::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;
    }
}

sub makemaker_args {
    m <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	722	831	
==>b cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	623	732	
==>b cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1167	1269	
==>ess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1167	1269	
==>ess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1167	1269	
==>ess to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2732	2843	
==>nal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2732	2843	
==>nal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2732	2843	
==>nal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15698	15828	
==>on // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15698	15828	
==>on // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	812	940	
==>2 => \$_[3], exp1 => \$_[2],} }\n" .  
        "\t | 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', o <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2027	2142	
==>map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @a <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2027	2142	
==>map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3509	3599	
==>r::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ], <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4006	4112	
==>to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4006	4112	
==>to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4006	4112	
==>to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2913	3033	
==>s = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2913	3033	
==>s = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2913	3033	
==>s = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1534	1642	
==>ttributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1534	1642	
==>ttributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1534	1642	
==>ttributes'));

## methods

$::Role->add_method('add_method' => ::make_method(sub {
    my ($self, $label, $me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2289	2424	
==>CKAGE__->add_rule( 
        name => '!=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9714	9832	
==>urn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9694	9812	
==>urn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1011	1119	
==>to reduce a stub: " . Blondie::Emitter::Pretty->new->string($node);
}

sub reduce_param {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7850	7950	
==>')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

T <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7850	7950	
==>')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5521	5649	
==>t "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5743	5871	
==>t "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	57	175	
==>essage;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.mes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	57	175	
==>essage;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1819	1942	
==>opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1819	1942	
==>opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1819	1942	
==>opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15218	15347	
==>b postfix {
    my $n = $_[0];
    # print "postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2713	2813	
==>->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefix' unless defined $op <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11380	11474	
==>e defined differently in different packages.

This would permit
  ./perl -we 'use Regexp::Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1927	2158	
==>$buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1927	2158	
==>$buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2601	2696	
==>turn $self->_analyze_iterator($name, $it);
}


sub _analyze_iterator {
    my($self, $name, $it) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	316	562	
==>0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1509	1627	
==>my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1497	1615	
==>my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \ <==
3	/Users/nnunley/pugs/util/grokprims.pl	617	731	
==>oc{$assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	806	899	
==>ta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	806	899	
==>ta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5595	5740	
==>ND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6059	6204	
==>ND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2141	2273	
==>(' . $n->{angle_quoted} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29649	29770	
==>"<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29649	29770	
==>"<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	453	562	
==>"<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns St <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4282	4377	
==>fix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4282	4377	
==>fix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4282	4377	
==>fix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs
    );
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1428	1537	
==>f there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1428	1537	
==>f there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1428	1537	
==>f there was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18179	18272	
==>($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18179	18272	
==>($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18179	18272	
==>($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	411	529	
==>_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRU <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4721	4819	
==>ied version
of the result object (usually the entire match string).

=head2 0+

When used as a numb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4721	4819	
==>ied version
of the result object (usually the entire match string).

=head2 0+

When used as a numb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1203	1300	
==>aram1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1197	1289	
==>aram1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9102	9282	
==>::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9102	9282	
==>::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9102	9282	
==>::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25056	25199	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25335	25478	
==>->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicat <==
3	/Users/nnunley/pugs/util/package-osx.pl	6248	6346	
==>verview::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	838	950	
==>}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    print "$desc: $k => $v\n" <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3613	3714	
==>$span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3613	3714	
==>$span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2925	3052	
==>{
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2925	3052	
==>{
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15686	15780	
==>$leader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_files);

Calculate <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18641	18772	
==>ny(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	388	492	
==>e is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::sli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	388	492	
==>e is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::sli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	388	492	
==>e is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::sli <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13910	14038	
==>b { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14189	14317	
==>b { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2385	2482	
==>>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2385	2482	
==>>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2385	2482	
==>>{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4509	4603	
==>tance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4509	4603	
==>tance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6033	6127	
==>tance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1947	2059	
==>_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1629	1737	
==>_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2277	2385	
==>_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2301	2397	
==>(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2301	2397	
==>(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2301	2397	
==>(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9130	9234	
==>he test.

=cut

sub _switches {
    my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17177	17273	
==>r, if any other package or application says that it uses
Locale::KeyedText, that is a terse way o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17177	17273	
==>r, if any other package or application says that it uses
Locale::KeyedText, that is a terse way o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2664	2787	
==>_[5], exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6650	6746	
==>ould never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6650	6746	
==>ould never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5486	5670	
==>m => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5486	5670	
==>m => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5486	5670	
==>m => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4807	4916	
==>SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4807	4916	
==>SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4807	4916	
==>SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1400	1498	
==>he bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8559	8653	
==>:num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8617	8711	
==>:num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15022	15130	
==>ll (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15022	15130	
==>ll (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15022	15130	
==>ll (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1677	1799	
==>b set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq;
    use base 'Node';

    package Prim;
    use base qw/ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	736	833	
==>thod visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stev <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	736	833	
==>thod visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13705	13818	
==>class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13705	13818	
==>class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13705	13818	
==>class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _cl <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2887	3008	
==>,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is ex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2887	3008	
==>,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11599	11708	
==>, 
        '$<variable>'
    ) );
    return "$_[1] ruleop::alternation( \\$code )\n";
}
sub node::named_captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10388	10535	
==>_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10388	10535	
==>_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10388	10535	
==>_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11386	11515	
==>ess defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11386	11515	
==>ess defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11386	11515	
==>ess defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2285	2443	
==>state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1]->bool,
                str   => \$_[0],
                from  => \$_[3]{match <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9543	9632	
==>r_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper su <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9543	9632	
==>r_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3155	3329	
==>::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3166	3340	
==>::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7504	7607	
==>A = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7504	7607	
==>A = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7504	7607	
==>A = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3990	4123	
==>6 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3990	4123	
==>6 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥', <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7745	7842	
==>ong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mort <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35161	35278	
==>length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35161	35278	
==>length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35161	35278	
==>length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	286	393	
==>self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	286	393	
==>self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	286	393	
==>self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1816	1928	
==>ed to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1816	1928	
==>ed to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1816	1928	
==>ed to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Ro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32362	32457	
==>ut in the future they may alternately be something
else, such as XML or tab-delimited plain text <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32362	32457	
==>ut in the future they may alternately be something
else, such as XML or tab-delimited plain text <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	696	788	
==>ad1 NAME

Blondie::Backend::Perl::Silly - a subclass of the perl backend that
conditionally e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16280	16399	
==>$table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16280	16399	
==>$table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16280	16399	
==>$table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17261	17362	
==>'%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17261	17362	
==>'%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17261	17362	
==>'%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2420	2518	
==>opes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2420	2518	
==>opes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2420	2518	
==>opes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11968	12084	
==>=> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11968	12084	
==>=> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11968	12084	
==>=> {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16247	16363	
==>en + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonus <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12577	12671	
==>resent the
current working features.

This module deals with encoding and decoding of strings w <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12577	12671	
==>resent the
current working features.

This module deals with encoding and decoding of strings w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	448	584	
==>{ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	448	584	
==>{ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	448	584	
==>{ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4045	4140	
==>:= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4045	4140	
==>:= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3928	4055	
==>= 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3928	4055	
==>= 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3928	4055	
==>= 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4047	4164	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4047	4164	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4047	4164	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9453	9586	
==>tional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9453	9586	
==>tional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9453	9586	
==>tional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41125	41215	
==>SO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1321	1423	
==>ant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1321	1423	
==>ant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1321	1423	
==>ant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14561	14656	
==>bute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14561	14656	
==>bute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14561	14656	
==>bute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24545	24645	
==>to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29097	29197	
==>to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27973	28073	
==>to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this R <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29970	30063	
==>s (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34522	34615	
==>s (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33686	33779	
==>s (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21258	21449	
==>=> comb(
                        fun => comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	53	160	
==>d;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	53	160	
==>d;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	701	835	
==>: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ast) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13009	13102	
==>eld.

=item $h.remove_content_headers

This will remove all the header fields used to describe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13009	13102	
==>eld.

=item $h.remove_content_headers

This will remove all the header fields used to describe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5248	5373	
==>len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3748	3873	
==>len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6861	6982	
==>add_handler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FLAG_s ? 'seol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	822	927	
==>b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	822	927	
==>b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	822	927	
==>b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1276	1394	
==>hed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1276	1394	
==>hed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1276	1394	
==>hed_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	237	371	
==>un_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	237	371	
==>un_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	237	371	
==>un_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2607	2701	
==>n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2607	2701	
==>n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2607	2701	
==>n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6818	7121	
==>y = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6818	7121	
==>y = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6818	7121	
==>y = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12068	12179	
==>_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/parrot/include/$_") {
          mkdir "$initrd_mn <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4054	4195	
==>mt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4054	4195	
==>mt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	904	1045	
==>mt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1705	1874	
==>n client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # part with meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2662	2769	
==>ompile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2662	2769	
==>ompile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2662	2769	
==>ompile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_con <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1021	1202	
==>ne Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1021	1202	
==>ne Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12400	12556	
==>oes' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12400	12556	
==>oes' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12400	12556	
==>oes' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14214	14492	
==>cent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _gl <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1055	1193	
==>(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1055	1193	
==>(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $fil <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1084	1185	
==>::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1084	1185	
==>::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45269	45365	
==>>send('add_attribute', (symbol->new('$:name')      => attribute->new('$:name'      => 'str')));
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	222	326	
==>uous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	222	326	
==>uous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	222	326	
==>uous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1512	1604	
==>('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1512	1604	
==>('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1512	1604	
==>('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6390	6489	
==>ick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6390	6489	
==>ick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1132	1220	
==>h_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	312	412	
==>'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	312	412	
==>'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $gram <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7374	7475	
==>) ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7374	7475	
==>) ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { re <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5013	5109	
==>ptions]
       $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [options]

Creates a Prelud <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2908	3032	
==>2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2908	3032	
==>2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2908	3032	
==>2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  d <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3916	4042	
==>0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35655	35748	
==>ned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binary <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40205	40298	
==>ned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4827	4925	
==>already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4827	4925	
==>already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4827	4925	
==>already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::e <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2328	2429	
==>_array> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1821	1919	
==>isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1821	1919	
==>isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2444	2549	
==>) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2444	2549	
==>) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2444	2549	
==>) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	434	550	
==>elf->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	434	550	
==>elf->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	434	550	
==>elf->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7177	7279	
==>stant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7177	7279	
==>stant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1270	1372	
==>$_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($work <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1270	1372	
==>$_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($work <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17928	18030	
==>tem rindex 

Needs to be in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	210	309	
==>elf:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(co <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	210	309	
==>elf:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	136	235	
==>rrectness - mirror the spec.
 2 Interoperation - allow blending of p6 and js objects.
   (Even thoug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13827	14018	
==>en $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13827	14018	
==>en $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13827	14018	
==>en $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from arra <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3998	4129	
==>nown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3998	4129	
==>nown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Comp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4638	4740	
==>s'));
    return bit->new(0) if $left->length->not_equal_to($right->length) == bit->new(1);
    foreach <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	765	866	
==>ory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	765	866	
==>ory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10685	10803	
==>relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more eff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14162	14280	
==>relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more eff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13461	13579	
==>relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more eff <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4059	4212	
==>b alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4047	4200	
==>b alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	642	737	
==>_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	642	737	
==>_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	642	737	
==>_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3164	3273	
==>ined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3164	3273	
==>ined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3164	3273	
==>ined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8721	8848	
==>st' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8721	8848	
==>st' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8721	8848	
==>st' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14705	14825	
==>later processing easier
        $sobj->objectify_text;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19692	19791	
==>set of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24244	24343	
==>set of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22378	22478	
==>ects.

=item stack

Initially an array reference, used to store the tree as a new scope is
entered an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13248	13346	
==>_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6723	6821	
==>_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12748	12845	
==>Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopCont <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12748	12845	
==>Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopCont <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12748	12845	
==>Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopCont <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4072	4185	
==>n( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

me <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4072	4185	
==>n( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

me <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7811	7919	
==>Literal> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9342	9478	
==>?  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - te <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9342	9478	
==>?  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - te <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	114	219	
==>ipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	114	219	
==>ipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9653	9749	
==>andles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "suc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9653	9749	
==>andles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "suc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14657	14752	
==>n iterated.

The lvalue form of C<keys> is not longer supported. Use the C<.buckets>
property in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6419	6528	
==>XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6419	6528	
==>XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6419	6528	
==>XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3671	3838	
==>t or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### pla <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4135	4302	
==>t or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### pla <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1592	1702	
==>$$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18669	18766	
==>ndaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statemen <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18669	18766	
==>ndaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5546	5713	
==>^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5546	5713	
==>^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5546	5713	
==>^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2788	2890	
==>le->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2788	2890	
==>le->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2788	2890	
==>le->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4444	4581	
==>ame;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4444	4581	
==>ame;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4444	4581	
==>ame;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1039	1142	
==>xed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1039	1142	
==>xed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1039	1142	
==>xed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16620	16714	
==>Node is instead stored
in its Document's "Root Nodes" attribute.  If the optional named paramet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16620	16714	
==>Node is instead stored
in its Document's "Root Nodes" attribute.  If the optional named paramet <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	795	903	
==>ew->run($prog);

    use Blondie::Emitter::Pretty; # in case the result is an AST
    
    print Blondie::Emi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2640	2739	
==>$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamb <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2640	2739	
==>$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamb <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5396	5498	
==>tructures used by the Rosetta framework, as used by
    # the current process/application.
    my Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5396	5498	
==>tructures used by the Rosetta framework, as used by
    # the current process/application.
    my Roset <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12245	12338	
==>ues>.

If C<$inplace> is specified, the array is sorted in place.

See L<http://www.nntp.perl. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3462	3567	
==>alling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3462	3567	
==>alling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3462	3567	
==>alling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6694	6806	
==>type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6694	6806	
==>type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6694	6806	
==>type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17655	17755	
==>xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17655	17755	
==>xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17655	17755	
==>xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1610	1702	
==>::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports mu <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1610	1702	
==>::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports mu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6085	6298	
==>s')      => hash->new(),
            attribute->new('%:methods')         => hash->new(),                     
        )
    );
    
# link Class back to Class
$::Class->change_class($::Class);

=pod

method add_met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8221	8347	
==>E::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8221	8347	
==>E::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $va <==
3	/Users/nnunley/pugs/util/importgraph.pl	1013	1131	
==>le/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $fh;

  unless (defined $module_name) {
    warn <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	126	239	
==>se lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	128	241	
==>se lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1871	1985	
==>s, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__EN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1871	1985	
==>s, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__EN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1871	1985	
==>s, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3967	4068	
==>red, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3967	4068	
==>red, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3967	4068	
==>red, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $param{s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28041	28139	
==>PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     SV <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	273	408	
==>returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	273	408	
==>returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19292	19405	
==>antarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines {
    my($s)=@_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15462	15702	
==>=> 'str'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->cr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9596	9695	
==>now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and docume <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9654	9753	
==>now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14745	14899	
==>operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14745	14899	
==>operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14745	14899	
==>operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	313	404	
==>r}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	313	404	
==>r}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	313	404	
==>r}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokeniz <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	790	890	
==>rd port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	790	890	
==>rd port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3514	3633	
==>Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3514	3633	
==>Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3514	3633	
==>Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11662	11804	
==>ock} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	938	1043	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	938	1043	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/util/version_h.pl	2101	2201	
==>_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2129	2226	
==>STNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5235	5331	
==>2);
  $r;
}

my @operators;
my $ops = mk_dynamic_alt(\@operators);

def_rule('expr',mk_operator_p <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1239	1332	
==>STNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determi <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	746	867	
==>current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	746	867	
==>current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3597	3709	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3790	3902	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36758	36854	
==>operties; if none
could be matched, this method returns undef.  This method could be
considered t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36758	36854	
==>operties; if none
could be matched, this method returns undef.  This method could be
considered t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10076	10212	
==>UTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10076	10212	
==>UTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10076	10212	
==>UTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20697	20834	
==>\&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alterna <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20976	21113	
==>\&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alterna <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	66	178	
==>echs mal würfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9586	9683	
==>ch.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9586	9683	
==>ch.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4187	4307	
==>pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4187	4307	
==>pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1037	1157	
==>pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12880	12978	
==>ere is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12880	12978	
==>ere is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12880	12978	
==>ere is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4980	5132	
==>'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4980	5132	
==>'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4980	5132	
==>'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7888	8097	
==>,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7888	8097	
==>,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4799	4923	
==>alse' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	791	896	
==>ndefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	791	896	
==>ndefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	791	896	
==>ndefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1154	1318	
==>$#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evaluate($t);
                next <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23690	23813	
==>ne REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28905	29001	
==>ne REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3485	3655	
==>)  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        ta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3349	3509	
==>)  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        ta <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2076	2180	
==>world was young, the mountains green,
>   No stain yet on the Moon was seen,
>   No words were laid on st <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7315	7445	
==>e, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6383	6485	
==>tr :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.cl <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6383	6485	
==>tr :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5651	5740	
==>ar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub recompil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1451	1556	
==>- implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primiti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1451	1556	
==>- implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primiti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1451	1556	
==>- implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	122	231	
==>ncode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	122	231	
==>ncode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	122	231	
==>ncode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9409	9515	
==>roles mutator/accessor

    # -----------------------------------------------      
    # this collects a u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9409	9515	
==>roles mutator/accessor

    # -----------------------------------------------      
    # this collects a u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9409	9515	
==>roles mutator/accessor

    # -----------------------------------------------      
    # this collects a u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	710	818	
==>ar fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	710	818	
==>ar fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	710	818	
==>ar fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	117	221	
==>use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	117	221	
==>use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	117	221	
==>use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	606	714	
==>essed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	606	714	
==>essed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	606	714	
==>essed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	749	854	
==>p://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	749	854	
==>p://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	749	854	
==>p://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1954	2058	
==>[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1954	2058	
==>[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1954	2058	
==>[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1214	1344	
==>our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1214	1344	
==>our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_-> <==
3	/Users/nnunley/pugs/util/package-osx.pl	2140	2238	
==>erl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_perl/PIL /Library/Perl/5.8.6/PIL
        /usr/lo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3865	3966	
==>name = (caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

R <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	45	138	
==>itor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	45	138	
==>itor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	42	142	
==>rict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	40	140	
==>rict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	37	137	
==>rict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18051	18135	
==>erl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18051	18135	
==>erl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18051	18135	
==>erl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result->pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1073	1179	
==>{ warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1073	1179	
==>{ warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1073	1179	
==>{ warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18819	18947	
==>sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18819	18947	
==>sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18819	18947	
==>sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1689	1798	
==>h: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1689	1798	
==>h: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1689	1798	
==>h: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13383	13484	
==>ass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13383	13484	
==>ass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13383	13484	
==>ass;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8452	8565	
==>utput   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	650	751	
==>utput   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	650	751	
==>utput   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3270	3365	
==>=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3270	3365	
==>=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5467	5562	
==>=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class r <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	436	536	
==>OADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	436	536	
==>OADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1487	1587	
==>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16638	16737	
==>cher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16638	16737	
==>cher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16638	16737	
==>cher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5473	5593	
==>name )->stringify();
        
        # append it to the existing content of the index
        push @$index_content, $met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31656	31752	
==>e the new Relation has either all of the tuples of
the original, or has zero tuples, respectively <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36206	36302	
==>e the new Relation has either all of the tuples of
the original, or has zero tuples, respectively <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	64	170	
==>rimitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	64	170	
==>rimitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	64	170	
==>rimitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4921	5041	
==>provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4921	5041	
==>provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4921	5041	
==>provide a name for the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9579	9685	
==>ged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping }, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9579	9685	
==>ged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping }, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	354	451	
==>e, arrange for
it to be the last evaluated expression.

All functions (but not macros) in this fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	55	167	
==>pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	55	167	
==>pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	55	167	
==>pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2561	2705	
==>on violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2561	2705	
==>on violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2561	2705	
==>on violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6235	6336	
==>at'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
no <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6235	6336	
==>at'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5740	5858	
==>e = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5740	5858	
==>e = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15205	15340	
==>-&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15205	15340	
==>-&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15205	15340	
==>-&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3263	3374	
==>bject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3263	3374	
==>bject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3263	3374	
==>bject ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2433	2578	
==>l6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2433	2578	
==>l6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2433	2578	
==>l6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4804	4960	
==>whitespacePosition;
    push @termStack, $operator;
    goto expect_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, ne <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16455	16554	
==>plement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16455	16554	
==>plement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2189	2292	
==>, $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2189	2292	
==>, $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Mat <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2972	3051	
==>680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8167	8371	
==>= $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8167	8371	
==>= $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8167	8371	
==>= $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3159	3252	
==>Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3159	3252	
==>Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16626	16720	
==>s instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@ch <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16626	16720	
==>s instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	838	952	
==>substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	847	961	
==>substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31391	31487	
==>on of this object (for look-ahead/behind assertions).  If
less than 0, it is behind; otherwise, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3522	3644	
==>tToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3522	3644	
==>tToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3522	3644	
==>tToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_disc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	134	240	
==>til 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equal_to     { confess 'You must over <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	847	956	
==>ort {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    r <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	847	956	
==>ort {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4775	4941	
==>tinue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4775	4941	
==>tinue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrac <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2672	2782	
==>(type = " . $self->display_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $cl <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1817	1943	
==>PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($program);
    $program =~ s{(["\\]) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19683	19782	
==>f
a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24235	24334	
==>f
a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24114	24250	
==>a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24114	24250	
==>a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24114	24250	
==>a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11782	11926	
==>>clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11782	11926	
==>>clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11782	11926	
==>>clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	567	664	
==>built!  Type '$Config{make} install' to install.\n";

# make an educated guess of whether we'll ne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17698	17790	
==>ds which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17698	17790	
==>ds which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
w <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4119	4226	
==>ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4177	4284	
==>ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17373	17469	
==>y call it through an object that
inherits from that class.

There are no longer I<star>, I<plus>, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1936	2082	
==>[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1936	2082	
==>[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19089	19183	
==>ontrol::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARSER>)
{
    Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19526	19620	
==>)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19526	19620	
==>)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19526	19620	
==>)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7564	7696	
==>ble

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7311	7436	
==>ble
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $de <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8257	8374	
==>at = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,exec_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	56	164	
==>de-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	56	164	
==>de-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	56	164	
==>de-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9176	9295	
==>};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash key <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13027	13143	
==>};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13027	13143	
==>};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash key <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	832	994	
==>atcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	832	994	
==>atcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5049	5159	
==>h @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5049	5159	
==>h @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5049	5159	
==>h @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	230	335	
==>ined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	230	335	
==>ined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	230	335	
==>ined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called at compile-ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29126	29250	
==>rp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29126	29250	
==>rp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29126	29250	
==>rp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$par <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1927	2034	
==>test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1927	2034	
==>test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2007	2114	
==>test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25768	25862	
==>ents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25768	25862	
==>ents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1978	2082	
==>1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1978	2082	
==>1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1978	2082	
==>1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3320	3416	
==>ests,
running those tests, and then telling this module to compare the received
output to the exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3320	3416	
==>ests,
running those tests, and then telling this module to compare the received
output to the exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3400	3496	
==>ests,
running those tests, and then telling this module to compare the received
output to the exp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	320	570	
==>Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	320	570	
==>Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosett <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14789	14886	
==>ub { $as_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $as_hash_complain->(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	300	409	
==>ng Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	300	409	
==>ng Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	300	409	
==>ng Rationale:
# pneuma is the rational soul, really concreate and practical 
# things like Object, Package and <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17270	17376	
==>other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20747	20853	
==>other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20325	20431	
==>other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!hea <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33042	33139	
==>s stores an ordered list of one or more elements where
each element is a Template module Set Name. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33042	33139	
==>s stores an ordered list of one or more elements where
each element is a Template module Set Name. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	991	1102	
==>->new() unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2776	2894	
==>0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2776	2894	
==>0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2776	2894	
==>0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8130	8246	
==>f/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8130	8246	
==>f/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8130	8246	
==>f/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	78	183	
==>arser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	78	183	
==>arser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	78	183	
==>arser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30832	31012	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30832	31012	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30832	31012	
==>}
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1592	1720	
==>en ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($clas <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1592	1720	
==>en ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12378	12482	
==>{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runperl, $args{args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22188	22467	
==>ram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22188	22467	
==>ram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22188	22467	
==>ram";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2476	2572	
==>,
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2476	2572	
==>,
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2476	2572	
==>,
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3533	3650	
==>y_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lac <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3533	3650	
==>y_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6754	6858	
==>orce_object(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8321	8453	
==>st { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? I <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8321	8453	
==>st { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6380	6483	
==>)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6380	6483	
==>)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6380	6483	
==>)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11015	11114	
==>rn @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11015	11114	
==>rn @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	459	568	
==>nt_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	665	774	
==>nt_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8378	8481	
==>gexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14841	14933	
==>C<$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14841	14933	
==>C<$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Docume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	545	639	
==>heme/oop-in-fp.txt
  
This system is still relatively "functional" in flavor, however, it is
no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	369	468	
==>t(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	369	468	
==>t(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	369	468	
==>t(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key i <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1814	1914	
==>mGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBunzip = sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1934	2033	
==>itiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1934	2033	
==>itiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	456	572	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	456	572	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	456	572	
==>dest = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2987	3099	
==>efs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2987	3099	
==>efs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2987	3099	
==>efs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::Base <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2838	2931	
==>et {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $othe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2838	2931	
==>et {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6016	6105	
==>return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6016	6105	
==>return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6016	6105	
==>return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16295	16389	
==>erl6_objects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_complain->("perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17368	17460	
==>erish modules in a much more sane manner.
Module::Compile controls the compilation process, c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17368	17460	
==>erish modules in a much more sane manner.
Module::Compile controls the compilation process, c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2428	2650	
==>s $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift;
                %{$self->hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2965	3085	
==>eop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2976	3096	
==>eop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::gr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2435	2612	
==>om  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            return $gra <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6537	6632	
==>---- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    retu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6537	6632	
==>---- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2305	2399	
==>"infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2305	2399	
==>"infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2305	2399	
==>"infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17062	17170	
==>($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17062	17170	
==>($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17062	17170	
==>($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10556	10704	
==>Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10556	10704	
==>Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10556	10704	
==>Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1265	1363	
==>string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1265	1363	
==>string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1265	1363	
==>string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5974	6106	
==>($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5974	6106	
==>($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5974	6106	
==>($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2818	2954	
==>Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2818	2954	
==>Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Per <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17556	17655	
==>C::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 ME <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17556	17655	
==>C::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 ME <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7212	7302	
==>Params, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pSub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6021	6119	
==>untime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5828	5924	
==>untime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_c <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6746	6849	
==>tml");
open( my $error, '>', $error_file) or die "Failed to open $error_file: $!";
$template = HTML::Tem <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19772	19867	
==>Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it l <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19772	19867	
==>Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6178	6283	
==>ght be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6178	6283	
==>ght be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6178	6283	
==>ght be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------- <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1589	1688	
==>CT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is alwa <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1589	1688	
==>CT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is alwa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22645	22754	
==>f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_as_bool($f->de <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14680	14782	
==>= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14680	14782	
==>= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1222	1323	
==>factor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1222	1323	
==>factor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 se <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	869	963	
==>ead1 DESCRIPTION

This module provides a Perl interface to use the B<libpcre> library for
regul <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20974	21135	
==>d successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{faile <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25180	25273	
==>ermission to link Rosetta with other free software
components, as defined by the Free Software <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25180	25273	
==>ermission to link Rosetta with other free software
components, as defined by the Free Software <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	271	378	
==>-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	271	378	
==>-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	271	378	
==>-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	943	1076	
==>nstance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	943	1076	
==>nstance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	943	1076	
==>nstance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1020	1129	
==>y - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# T <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1020	1129	
==>y - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# T <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17572	17678	
==>l(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16883	17046	
==>lf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16883	17046	
==>lf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16883	17046	
==>lf;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7906	7992	
==>Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1731	1817	
==>Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3061	3261	
==>ne' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3061	3261	
==>ne' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3061	3261	
==>ne' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3339	3442	
==>mber( version => $version );

Returns a proper module version, or '0.0' if none was available.

=cut

su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8398	8497	
==>is/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8398	8497	
==>is/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %hand <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1911	2011	
==>o) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subs <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1911	2011	
==>o) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16984	17163	
==>->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16984	17163	
==>->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16984	17163	
==>->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20506	20615	
==>rn {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    pri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16821	16919	
==>us an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16821	16919	
==>us an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1846	1946	
==>ease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1846	1946	
==>ease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1846	1946	
==>ease run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9438	9538	
==>if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9438	9538	
==>if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32874	32973	
==>the tree is
helpful.

The walk() method is used to modify the walking stack before the node
is retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37026	37121	
==>es to a C<intersection>.  In any situation where a pair of source
relations have zero attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41575	41670	
==>es to a C<intersection>.  In any situation where a pair of source
relations have zero attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41198	41293	
==>es to a C<intersection>.  In any situation where a pair of source
relations have zero attributes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29046	29216	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29325	29495	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	555	670	
==>values { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $class;
	}

	sub AU <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5612	5696	
==>Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteract <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5612	5696	
==>Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteract <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1052	1155	
==>rror( Params::Check->last_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1963	2053	
==>!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1963	2053	
==>!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	569	690	
==>}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	569	690	
==>}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	569	681	
==>}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	47	146	
==>e warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3231	3326	
==>from the Internet.
  --kernel-local=$kernel_local
    Locally, the kernel is saved as --kernel-l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2080	2187	
==>ingful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2080	2187	
==>ingful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6633	6731	
==>eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27951	28050	
==>lation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32503	32602	
==>lation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31595	31694	
==>lation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6378	6491	
==>rloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6378	6491	
==>rloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6378	6491	
==>rloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2567	2682	
==>throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(syste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2567	2682	
==>throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(syste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2567	2682	
==>throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(syste <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	24	125	
==>left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $righ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	24	125	
==>left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $righ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	24	125	
==>left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1131	1235	
==>put function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1131	1235	
==>put function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1131	1235	
==>put function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3795	3889	
==>efined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3795	3889	
==>efined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3795	3889	
==>efined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2720	2840	
==>ecause of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method header returns Str
      {
          retu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3083	3196	
==>$ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3083	3196	
==>$ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8374	8476	
==>e Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7794	7891	
==>rray.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7794	7891	
==>rray.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2622	2779	
==>h");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2622	2779	
==>h");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	765	867	
==>matchObj;
}

sub lower {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10197	10289	
==>ncerned with the well-formedness of the input, such as that mandatory
constructor arguments a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10197	10289	
==>ncerned with the well-formedness of the input, such as that mandatory
constructor arguments a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2016	2138	
==>'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2016	2138	
==>'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2016	2138	
==>'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(E <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1289	1447	
==>cted PIL2 ':'";
                my $value = parse( <<>>, 'item', <<>>, @_ );
                [ $key, $value ];
            },
        item =>  sub (@_ is rw) { <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5917	6035	
==>ional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &cont <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5917	6035	
==>ional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &cont <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	322	414	
==>to some format.

For example L<Blondie::Emitter::Pretty> emits ASCII text that is supposed to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9441	9541	
==>TI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9441	9541	
==>TI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9441	9541	
==>TI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1463	1578	
==>gexes that use the "Perl5" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentatio <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	242	354	
==>hod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	242	354	
==>hod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	855	973	
==>PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	855	973	
==>PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	855	973	
==>PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.auto <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2814	2920	
==>n osname duration summary runcore>) {
    print "The submitted smoke has an invalid format!";
    exit;
  } <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2120	2218	
==>s (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2120	2218	
==>s (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6394	6540	
==>rn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	455	559	
==>s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	455	559	
==>s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1632	1750	
==>2->match('abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200},
    P5regex_x100 => sub{ 'abc' = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2548	2645	
==>d
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2548	2645	
==>d
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9600	9759	
==>\&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9879	10038	
==>\&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	494	589	
==>automatically generated by util/file_to_hs.pl
    from $in.
-}
EOF
print OUT "$data :: String\n" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	21	118	
==>ls is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbol <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	21	118	
==>ls is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbol <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4932	5029	
==>y $node = shift;

	$self->{defined_nodes}->insert($node);
}

sub node_is_defined {
	my $self = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	203	306	
==>y with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rati <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	203	306	
==>y with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rati <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	203	306	
==>y with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	136	239	
==>b as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	136	239	
==>b as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	136	239	
==>b as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24837	24955	
==>important attributes:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7679	7784	
==>ert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7679	7784	
==>ert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1407	1528	
==>/) {
        print "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This mo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1012	1123	
==>ence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * prop <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1012	1123	
==>ence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * prop <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29613	29709	
==>lued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34165	34261	
==>lued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33329	33425	
==>lued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the same a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6810	6956	
==>Type
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6810	6956	
==>Type
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6810	6956	
==>Type
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1328	1466	
==>s::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2797	2887	
==>intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2797	2887	
==>intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4009	4122	
==>method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::ele <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4009	4122	
==>method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::ele <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	306	415	
==>inc::Module::Install::ISA = 'Module::Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5754	5877	
==>> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5754	5877	
==>> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5754	5877	
==>> @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6522	6726	
==>, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6522	6726	
==>, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.n <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12454	12565	
==>, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3004	3110	
==>, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1303	1397	
==>s nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3487	3615	
==>y @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3487	3615	
==>y @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3487	3615	
==>y @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28394	28508	
==>t to
the code reference in $code.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	285	390	
==>env, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || confess "env must be a closu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6979	7071	
==>ub p6_code_mk_CODE {
    my($name,$kind,$pams,$lval,$body)=@_;
    code_for_code_CODE(name=>$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7912	8061	
==>Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7912	8061	
==>Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7912	8061	
==>Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3727	3844	
==>ore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3727	3844	
==>ore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3727	3844	
==>ore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7516	7621	
==>6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(so <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7516	7621	
==>6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(so <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7516	7621	
==>6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(so <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4243	4354	
==>xp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4243	4354	
==>xp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1093	1204	
==>xp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1695	1836	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1695	1836	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1695	1836	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1539	1663	
==>optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1539	1663	
==>optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1539	1663	
==>optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	607	710	
==>pe},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	607	710	
==>pe},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	607	710	
==>pe},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3619	3764	
==>fine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3619	3764	
==>fine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3619	3764	
==>fine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23376	23478	
==>nk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41300	41402	
==>nk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37326	37428	
==>nk.org>. All rights reserved.
This program is free software; you can redistribute it and/or
modify it u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1309	1411	
==>($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1309	1411	
==>($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1309	1411	
==>($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	420	525	
==>{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pk <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	420	525	
==>{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pk <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3393	3591	
==>st ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || [] };
            }
        
            ### find the alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1118	1219	
==>cat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1118	1219	
==>cat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	442	548	
==>ement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	442	548	
==>ement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	442	548	
==>ement is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19357	19483	
==>d = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15778	15904	
==>d = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5466	5579	
==>@{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift;
		my $expected_type = s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8343	8446	
==>te object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONST <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8343	8446	
==>te object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONST <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5031	5124	
==>urrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5031	5124	
==>urrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7228	7321	
==>urrent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	944	1045	
==>n-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	944	1045	
==>n-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	272	367	
==>yesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes grapes");
}
syste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10425	10590	
==>ode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10425	10590	
==>ode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10425	10590	
==>ode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	828	925	
==>>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	828	925	
==>>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	828	925	
==>>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2479	2574	
==>PTION

An object of this class represents a client's request.  It also contains extra
informatio <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2479	2574	
==>PTION

An object of this class represents a client's request.  It also contains extra
informatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32225	32320	
==>this object (for flag assertions
and C<(?:...)>).

=item raw

The raw representation of this obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	988	1089	
==>ts a number of new attributes from various sources
# and we need to now create these attributes in all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	988	1089	
==>ts a number of new attributes from various sources
# and we need to now create these attributes in all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	988	1089	
==>ts a number of new attributes from various sources
# and we need to now create these attributes in all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1961	2065	
==>t our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1961	2065	
==>t our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1961	2065	
==>t our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Littl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11103	11284	
==>and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11103	11284	
==>and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11103	11284	
==>and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8542	8658	
==>slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8542	8658	
==>slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8542	8658	
==>slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3048	3180	
==>e?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3048	3180	
==>e?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3048	3180	
==>e?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	0	108	
==>use warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	0	108	
==>use warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	0	108	
==>use warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15685	15807	
==>$nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15685	15807	
==>$nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4585	4705	
==>dump;
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::L <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1749	1844	
==>xpression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1749	1844	
==>xpression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8652	8750	
==>%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8652	8750	
==>%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8652	8750	
==>%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $bod <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	263	374	
==>}
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for 1..@value <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25267	25356	
==>oftware Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and dis <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25267	25356	
==>oftware Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and dis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16364	16566	
==>$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemented" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16358	16560	
==>$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemented" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	642	742	
==>intf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	642	742	
==>intf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	642	742	
==>intf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	146	254	
==>iner/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumpe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	146	254	
==>iner/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumpe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	146	254	
==>iner/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16911	17005	
==>dText doesn't actually do a lot
internally; it exists mainly to document a certain localization <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16911	17005	
==>dText doesn't actually do a lot
internally; it exists mainly to document a certain localization <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	747	888	
==>{ not try { $normalizer.subsume( $_ ) } }, @args );
        }
        
        method create_arguments ( @strings )  {
            $.argument_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20593	20708	
==>_dirs}}||0 == 1 ) &&  ! exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	394	509	
==>d



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	376	485	
==>d

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    mat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1330	1436	
==>ference implementation for a while.  By
  sacrificing ease of installation and portability, we may have
  b <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9989	10085	
==>port { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A mo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9989	10085	
==>port { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19567	19660	
==>6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19567	19660	
==>6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19567	19660	
==>6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13245	13383	
==>al_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9431	9569	
==>al_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10267	10405	
==>al_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6113	6223	
==>@array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6503	6613	
==>@array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29744	29839	
==>e as the unaffected invocant's attributes.  This method
supports having the new attributes havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34296	34391	
==>e as the unaffected invocant's attributes.  This method
supports having the new attributes havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33460	33555	
==>e as the unaffected invocant's attributes.  This method
supports having the new attributes havin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15288	15392	
==>MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15288	15392	
==>MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15288	15392	
==>MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	145	259	
==>n $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	145	259	
==>n $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5401	5497	
==>users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5401	5497	
==>users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5483	5578	
==>head, $tail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

END { defined($intmp) and unlink( <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1071	1189	
==>s));
    }

    return;
}

sub can_cc {
    my $self = shift;
    my @chunks = split(/ /, $Config::Config{cc}) or retur <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4666	4757	
==>::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pse <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4666	4757	
==>::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3352	3476	
==>{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3352	3476	
==>{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3352	3476	
==>{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1468	1584	
==>$c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1468	1584	
==>$c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1468	1584	
==>$c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1083	1197	
==>hift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1974	2088	
==>hift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17711	17820	
==>ush @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1714	1812	
==>< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we ca <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1714	1812	
==>< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we ca <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2250	2349	
==>wo);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2250	2349	
==>wo);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	335	441	
==>::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	335	441	
==>::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	335	441	
==>::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4069	4179	
==>s defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4069	4179	
==>s defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4069	4179	
==>s defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10507	10661	
==>param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10507	10661	
==>param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10507	10661	
==>param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4842	4991	
==>1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4842	4991	
==>1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4842	4991	
==>1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2081	2207	
==>nd override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2286	2412	
==>nd override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10642	10794	
==>ther->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10642	10794	
==>ther->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10642	10794	
==>ther->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	799	895	
==>eldom created using the C<Tree> interface.

Normally, they will be constructed as a series of eve <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	799	895	
==>eldom created using the C<Tree> interface.

Normally, they will be constructed as a series of eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3886	4003	
==>dy>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3886	4003	
==>dy>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3886	4003	
==>dy>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4908	5020	
==>pe eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_st <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4908	5020	
==>pe eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_st <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5498	5610	
==>pe eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2922	3024	
==>ecursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2922	3024	
==>ecursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2922	3024	
==>ecursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5798	5915	
==>d {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5798	5915	
==>d {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5798	5915	
==>d {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1306	1419	
==>l $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %para <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1306	1419	
==>l $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14361	14480	
==>s ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14361	14480	
==>s ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14361	14480	
==>s ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops} <==
3	/Users/nnunley/pugs/util/package-osx.pl	1131	1240	
==>story.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/lib <==
3	/Users/nnunley/pugs/util/package-osx.pl	3441	3547	
==>story.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4081	4176	
==>S

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12941	13056	
==>";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12941	13056	
==>";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12941	13056	
==>";
    ::bind_method_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	165	269	
==>.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	165	269	
==>.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8726	8825	
==>late_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$mod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8726	8825	
==>late_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$mod <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6646	6744	
==>C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6646	6744	
==>C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13542	13670	
==>(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13542	13670	
==>(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1827	1922	
==>layout($.left), $.symbol, layout($.right)) }
type::operator::binary: layout($$) = { return paren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2585	2705	
==>:Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2585	2705	
==>:Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2585	2705	
==>:Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	436	543	
==>@_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub itera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	436	543	
==>@_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub itera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	436	543	
==>@_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub itera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8252	8401	
==>tems = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8252	8401	
==>tems = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8252	8401	
==>tems = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2605	2718	
==>rlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeho <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2605	2718	
==>rlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeho <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27378	27473	
==>is(t($fac), "int → int", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4606	4760	
==>ture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4466	4611	
==>ture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant: <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1598	1697	
==>ole Class::Events::Subscriber {
    use Set;
    has Set $.subscriptions handles :note_subscription< <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19575	19687	
==>e match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastparen;          /* last pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13488	13587	
==>es

Returns the list of distinct names for the fields present in the
header.  The field names have c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13488	13587	
==>es

Returns the list of distinct names for the fields present in the
header.  The field names have c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7571	7703	
==>cape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7571	7703	
==>cape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got templat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2262	2367	
==>ge Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20851	20948	
==>h
I recommend above all others for production use.

Most of the other (near term) third party Engi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20851	20948	
==>h
I recommend above all others for production use.

Most of the other (near term) third party Engi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	489	621	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	489	621	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	489	621	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1011	1117	
==>piled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1011	1117	
==>piled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1011	1117	
==>piled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4706	4801	
==>to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4706	4801	
==>to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4706	4801	
==>to New::Namespace::Root. This overrides whatever
blessing they had before, but unlike B<rebless> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4317	4571	
==>"</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4317	4571	
==>"</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2445	2559	
==>@$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2445	2559	
==>@$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2445	2559	
==>@$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1217	1310	
==>eter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
cont <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1217	1310	
==>eter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1664	1855	
==>work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1664	1855	
==>work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1664	1855	
==>work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5286	5394	
==>n if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5286	5394	
==>n if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5286	5394	
==>n if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7078	7179	
==>t, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7136	7237	
==>t, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3136	3294	
==>>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3383	3541	
==>>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20152	20250	
==>field labeled "Internal use only" is one of the most widely used. ;)
It get's is own section, elsew <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2890	3001	
==>_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2890	3001	
==>_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2999	3095	
==>} or die << "END";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9433	9519	
==>ar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3258	3344	
==>ar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34665	34783	
==>ss defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34665	34783	
==>ss defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34665	34783	
==>ss defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3354	3461	
==>'s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6831	6938	
==>'s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5788	5895	
==>'s attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8945	9079	
==>rs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8945	9079	
==>rs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8945	9079	
==>rs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2648	2768	
==>n;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2648	2768	
==>n;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2648	2768	
==>n;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	451	551	
==>head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	451	551	
==>head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1007	1107	
==>head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10876	10989	
==>elf};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3086	3193	
==>echunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of bef <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3086	3193	
==>echunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of bef <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	324	433	
==>, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	324	433	
==>, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1564	1669	
==>y), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1564	1669	
==>y), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1564	1669	
==>y), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5403	5542	
==>_;
    # print "Operator add: @{[ %opt ]} \n";

    delete $opt{rule};
    $operator->add_op( \%opt );
    
    #push @subroutine_names, $op <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30926	31021	
==>Member Name comes next and is what distinguishes each module from others in
its set. For maximum <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30926	31021	
==>Member Name comes next and is what distinguishes each module from others in
its set. For maximum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	801	936	
==>_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27459	27556	
==>onceptually change an existing Message object, you must create a new
object that is a clone of the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27459	27556	
==>onceptually change an existing Message object, you must create a new
object that is a clone of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6005	6128	
==>me = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6005	6128	
==>me = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6005	6128	
==>me = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13417	13520	
==>**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13417	13520	
==>**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13417	13520	
==>**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id u <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7369	7479	
==>tr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    - <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13257	13345	
==>ies( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $all <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13257	13345	
==>ies( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $all <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2019	2132	
==>ure like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mod <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3611	3724	
==>ure like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mod <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12453	12537	
==>x_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6150	6288	
==>ribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6150	6288	
==>ribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6150	6288	
==>ribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1632	1742	
==>ars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1632	1742	
==>ars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1632	1742	
==>ars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2239	2349	
==>smoke{pugs_revision} = $1;
  $html =~ /osname: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ /dura <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3451	3552	
==>e for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compiler.pm



### how about lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3329	3425	
==>e for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compiler.pm

### how about lib/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16518	16636	
==>] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16518	16636	
==>] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16518	16636	
==>] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	971	1077	
==>H()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	971	1077	
==>H()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	971	1077	
==>H()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6297	6471	
==>my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35326	35423	
==>).

=item C<get_set_names()>

This method returns all Set Names elements in this object as an arra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35326	35423	
==>).

=item C<get_set_names()>

This method returns all Set Names elements in this object as an arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6529	6639	
==>{ Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6529	6639	
==>{ Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6529	6639	
==>{ Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1795	1895	
==>ify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1795	1895	
==>ify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1795	1895	
==>ify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13578	13680	
==>ble};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13578	13680	
==>ble};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13578	13680	
==>ble};
});

# "spec" here means "whatever annotation went with this attribute when it's declared"
::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	645	770	
==>)
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	645	770	
==>)
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	645	770	
==>)
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9239	9413	
==>person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statemen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9239	9413	
==>person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3255	3372	
==>?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3255	3372	
==>?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3255	3372	
==>?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline(' <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1191	1297	
==>$script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($scr <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1191	1297	
==>$script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($scr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26095	26194	
==>ess
or by any other means.

=item C<HARNESS_COLUMNS>

This value will be used for the width of the t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	790	912	
==>ILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	790	912	
==>ILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5194	5303	
==>git> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexd <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3826	3948	
==>rror;
    } else {
        die "bug - invalid hint $hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24177	24322	
==>p->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24177	24322	
==>p->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24177	24322	
==>p->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2137	2314	
==>te[1];
            
            
        } while !   $_[3]->{match}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10894	10991	
==>ues) of the last of the header fields is returned.
If no such field exists C<undef> will be return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10894	10991	
==>ues) of the last of the header fields is returned.
If no such field exists C<undef> will be return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1245	1365	
==>nction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1245	1365	
==>nction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1245	1365	
==>nction perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5929	6037	
==>s needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5929	6037	
==>s needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5929	6037	
==>s needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12622	12772	
==>e =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12622	12772	
==>e =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16422	16528	
==>$m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[] <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15482	15582	
==>$m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14659	14834	
==>>new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14659	14834	
==>>new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14659	14834	
==>>new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1830	1947	
==>if ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1830	1947	
==>if ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1830	1947	
==>if ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21288	21384	
==>ith keys which are unique across all Perl packages
(perhaps the key name can start with the packa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21288	21384	
==>ith keys which are unique across all Perl packages
(perhaps the key name can start with the packa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8810	8919	
==>_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8810	8919	
==>_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6729	6842	
==>\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6729	6842	
==>\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6729	6842	
==>\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_in <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3112	3225	
==>ie "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3112	3225	
==>ie "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($se <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	903	996	
==>ose_output = $strap->dump_verbose();
  $strap->dump_verbose_fh($output_filehandle);


=head1 D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4509	4616	
==>lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $comp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4355	4458	
==>lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $comp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16286	16369	
==>m(lookbehind_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	463	550	
==>$::EigenClass = undef;

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	463	550	
==>$::EigenClass = undef;

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	463	550	
==>$::EigenClass = undef;

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2469	2586	
==>, named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2469	2586	
==>, named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2816	2933	
==>, named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	996	1199	
==>']';
                    push $a, parse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ i <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	134	232	
==>.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:pe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13552	13649	
==>se queries, may occur much later than expected.

It may enter an infinite loop if the formula cann <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13552	13649	
==>se queries, may occur much later than expected.

It may enter an infinite loop if the formula cann <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7234	7344	
==>);  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7234	7344	
==>);  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7234	7344	
==>);  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5545	5676	
==>y) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5545	5676	
==>y) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5545	5676	
==>y) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16812	16907	
==>^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16812	16907	
==>^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16812	16907	
==>^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7235	7383	
==>tems = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7235	7383	
==>tems = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7235	7383	
==>tems = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? <==
3	/Users/nnunley/pugs/util/package-osx.pl	127	235	
==>arrot] target_base_dir
        Run after make install'ing pugs and parrot under /usr/local

    exit;
}

my ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16296	16391	
==>f that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16296	16391	
==>f that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4301	4440	
==>:JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4301	4440	
==>:JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4301	4440	
==>:JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15251	15363	
==>ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15530	15642	
==>ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9585	9701	
==>"Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9585	9701	
==>"Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9585	9701	
==>"Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	714	818	
==>');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	714	818	
==>');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	714	818	
==>');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23882	23994	
==>s at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29059	29159	
==>s at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3558	3655	
==>p::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	374	506	
==>? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	374	506	
==>? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FE <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11244	11373	
==>do { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7373	7493	
==>->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7373	7493	
==>->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7373	7493	
==>->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	639	765	
==>05 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        40 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	639	765	
==>05 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        40 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5630	5742	
==>,
  "terminfo=s"     => \$terminfo,
  help             => \&usage,
) or usage();
check_for_evil_chars($initrd_img <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16114	16210	
==>will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ra <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16114	16210	
==>will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ra <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6559	6646	
==>equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1763	1868	
==>evel::STDERR::Indent::indent();

		warn "flattenning $node " . (eval { $node->struct_equiv } || "(not an o <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3114	3217	
==>,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3114	3217	
==>,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10594	10691	
==>ich must be implemented
    # -----------------------------------------------

    method add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10594	10691	
==>ich must be implemented
    # -----------------------------------------------

    method add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10594	10691	
==>ich must be implemented
    # -----------------------------------------------

    method add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1858	1956	
==>ng class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1858	1956	
==>ng class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1858	1956	
==>ng class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	549	696	
==>ft;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Para <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6781	6899	
==>"ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Da <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6781	6899	
==>"ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Da <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3233	3388	
==>rocessing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslas <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1054	1148	
==>ion)";
our $re_varname = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	718	836	
==>ion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	718	836	
==>ion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < export <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	718	836	
==>ion (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < export <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6713	6816	
==>to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE AL <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6713	6816	
==>to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE AL <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	323	424	
==>meClass");
 $class.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11754	11869	
==>n $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      method re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2184	2287	
==>n $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2184	2287	
==>n $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1843	1961	
==>qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1843	1961	
==>qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1843	1961	
==>qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7094	7214	
==>ttrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4624	4739	
==>ttrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8101	8216	
==>ttrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7414	7546	
==>);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7414	7546	
==>);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7414	7546	
==>);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1375	1476	
==>sity = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1375	1476	
==>sity = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<object <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14598	14692	
==>a0,Ra1), re_reverse(Rb0,Rb1), !.
%# XXX - not quite right... need some symetric op pairs.
re_re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11194	11306	
==>raffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11194	11306	
==>raffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2600	2713	
==>canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2600	2713	
==>canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2600	2713	
==>canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.nam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5044	5180	
==>ail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offs <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5044	5180	
==>ail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offs <==
3	/Users/nnunley/pugs/util/munge_haddock.pl	99	223	
==>ing
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  print "\n\n-- #ignore-export <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3576	3673	
==>API, you must first create an object of the appropriate 
class, passing the key, a mode (either "e <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3576	3673	
==>API, you must first create an object of the appropriate 
class, passing the key, a mode (either "e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	995	1125	
==>sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	995	1125	
==>sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	995	1125	
==>sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2866	2973	
==>attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2866	2973	
==>attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2866	2973	
==>attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12404	12545	
==>uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12404	12545	
==>uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12404	12545	
==>uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2080	2230	
==>SAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2080	2230	
==>SAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2080	2230	
==>SAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = se <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3822	3929	
==>y implementation is useful on it's own

    has @.args;
    method new (*@.args) { super }
}

class Class::E <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16399	16499	
==>ueue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16399	16499	
==>ueue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1984	2105	
==>s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5 <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1839	1937	
==>the api got cleaned up a bit. :)
Some features are still missing but will be added in the future... <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1839	1937	
==>the api got cleaned up a bit. :)
Some features are still missing but will be added in the future... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7858	7986	
==>unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7858	7986	
==>unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7858	7986	
==>unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4097	4193	
==>ucts a new cipher object.  The options passed to the 
C<new> constructor generally include some s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4097	4193	
==>ucts a new cipher object.  The options passed to the 
C<new> constructor generally include some s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	446	537	
==>rclasses", "Set", { companion => "subclasses" });
Has($?CLASS, "subclasses", "Set", { compan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2311	2427	
==>HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2311	2427	
==>HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4232	4323	
==>::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2760	2881	
==>("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2760	2881	
==>("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2760	2881	
==>("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16276	16370	
==>ns a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16276	16370	
==>ns a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23800	23912	
==>s

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uriCharacter> <uri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14724	14820	
==>e();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which ma <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14724	14820	
==>e();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3321	3425	
==>IL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3321	3425	
==>IL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3321	3425	
==>IL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4245	4351	
==>closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_compl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4245	4351	
==>closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_compl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21143	21230	
==>) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    chars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19494	19776	
==>}
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19494	19776	
==>}
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19494	19776	
==>}
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7554	7648	
==>d ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6543	6676	
==>t = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6543	6676	
==>t = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6543	6676	
==>t = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2698	2817	
==>my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2698	2817	
==>my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2698	2817	
==>my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3578	3679	
==>.perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3578	3679	
==>.perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3578	3679	
==>.perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they'll over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2837	2973	
==>ter "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2837	2973	
==>ter "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2837	2973	
==>ter "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38748	38877	
==>);
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38748	38877	
==>);
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38748	38877	
==>);
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12865	12973	
==>ion is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traff <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12865	12973	
==>ion is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	924	1034	
==>is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	924	1034	
==>is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17770	17912	
==>f ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17770	17912	
==>f ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17770	17912	
==>f ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7423	7575	
==>s eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7423	7575	
==>s eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7423	7575	
==>s eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	9	120	
==>Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	9	120	
==>Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1806	1906	
==>ot work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1806	1906	
==>ot work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1806	1906	
==>ot work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.is <==
3	/Users/nnunley/pugs/util/version_h.pl	1018	1138	
==>/svk info/ and $? == 0) {
    print "Writing version from `svk info` to $version_h\n";
    if (my ($line) = grep /(?:file <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8435	8536	
==>fy;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8435	8536	
==>fy;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2304	2440	
==>fined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2304	2440	
==>fined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20588	20678	
==>{ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->new() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2229	2328	
==>ss $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2141	2238	
==>ss $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6796	6941	
==>. "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6796	6941	
==>. "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6796	6941	
==>. "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6347	6471	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6347	6471	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6347	6471	
==>d' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10564	10696	
==>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10564	10696	
==>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10564	10696	
==>{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1315	1429	
==>{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5521	5622	
==>m. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5521	5622	
==>m. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5521	5622	
==>m. 

The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9763	9951	
==>assed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              descrip <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	341	517	
==>assed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	341	517	
==>assed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            descrip <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8850	8964	
==>pth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traver <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8850	8964	
==>pth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traver <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15335	15435	
==>ct(anyof_class => word => $neg, \$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6440	6648	
==>[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6440	6648	
==>[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45133	45254	
==>we can create something here

$::Package = $::Class->send('new');
$::Package->send('superclasses' => list->new($::Object)) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7750	7849	
==>ks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7750	7849	
==>ks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7695	7814	
==>ain, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BUCKET ]}\": $ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1595	1692	
==>code (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1595	1692	
==>code (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	290	395	
==>r
use Perl6::Core::Bit;

# comparisons

# implement this and get the rest for free
# NOTE: 
# compare retu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1999	2098	
==>);
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1999	2098	
==>);
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6417	6525	
==>' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6417	6525	
==>' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6417	6525	
==>' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10557	10661	
==>o it makes abstract 
    # methods which must be implemented
    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10557	10661	
==>o it makes abstract 
    # methods which must be implemented
    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10557	10661	
==>o it makes abstract 
    # methods which must be implemented
    # -------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3440	3533	
==>6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3440	3533	
==>6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3440	3533	
==>6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6547	6677	
==>from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3525	3628	
==>on($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3525	3628	
==>on($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1418	1521	
==>my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1418	1521	
==>my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1418	1521	
==>my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13874	14004	
==>, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13868	13998	
==>, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22799	22894	
==>entheses.  It will end up being identical to
C<nparen>, but it is incremented during the initial <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5057	5169	
==>HS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5057	5169	
==>HS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1961	2073	
==>HS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

nod <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13839	13939	
==>.  The callback routine
is called with two parameters; the name of the field and a single
value (a st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13839	13939	
==>.  The callback routine
is called with two parameters; the name of the field and a single
value (a st <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21152	21237	
==>harset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1768	1892	
==>$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1768	1892	
==>$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1768	1892	
==>$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	92	190	
==>=pod

C<Result> is the match state that is passed around.  It essentially
forms a linked list throu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	92	190	
==>=pod

C<Result> is the match state that is passed around.  It essentially
forms a linked list throu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27082	27237	
==>\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27361	27516	
==>\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10851	11000	
==>"IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6535	6650	
==>$str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6535	6650	
==>$str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1182	1278	
==>lf->dir or return;

    return $dir->file( $self->config->_registered_alternatives );
}

=head2 $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	415	505	
==>if $node.defined;   
}

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	415	505	
==>if $node.defined;   
}

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2886	2994	
==>.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2886	2994	
==>.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2886	2994	
==>.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(. <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5536	5640	
==>al *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self->_dump <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	444	536	
==>nnect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=h <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	444	536	
==>nnect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	10	123	
==>L::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	10	123	
==>L::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	10	123	
==>L::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9654	9793	
==>d Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $self->retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9654	9793	
==>d Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $self->retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9654	9793	
==>d Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $self->retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11258	11423	
==>) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11258	11423	
==>) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11258	11423	
==>) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1932	2027	
==>->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl5::X1::Repl:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1038	1163	
==>am->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1038	1163	
==>am->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1247	1372	
==>am->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	211	317	
==>ass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	211	317	
==>ass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	211	317	
==>ass)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13673	13765	
==>"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13673	13765	
==>"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13673	13765	
==>"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	847	962	
==>ject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	847	962	
==>ject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	847	962	
==>ject => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# :: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14708	14829	
==>'~'> <UnaryExpression>
    | <'!'> <UnaryExpression>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpr <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	150	250	
==>newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	150	250	
==>newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2536	2632	
==>lf: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2536	2632	
==>lf: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	886	998	
==>"circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        nam <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1877	1971	
==>urce => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing s <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1877	1971	
==>urce => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8105	8203	
==>as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setting <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8105	8203	
==>as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setting <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21915	22061	
==>:Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21915	22061	
==>:Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21915	22061	
==>:Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2086	2179	
==><docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<Fr <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2086	2179	
==><docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<Fr <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4948	5053	
==>ep /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6305	6396	
==><users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6305	6396	
==><users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8806	8955	
==>cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8806	8955	
==>cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8806	8955	
==>cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	314	424	
==>) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	314	424	
==>) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	314	424	
==>) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1040	1149	
==>w
    # releases once we can make sure it won't clash with custom
    # Module::Install extensions.
    $VERSI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2231	2327	
==>AME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args- <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1337	1432	
==>AME($args);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18241	18374	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18241	18374	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18241	18374	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3599	3696	
==>ubname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3599	3696	
==>ubname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3599	3696	
==>ubname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9810	10000	
==>Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9810	10000	
==>Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9810	10000	
==>Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12428	12608	
==>ype->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12428	12608	
==>ype->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12428	12608	
==>ype->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	315	458	
==>);

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { require <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	799	942	
==>);

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { require <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	218	356	
==>)

=cut

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2217	2346	
==>e>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2217	2346	
==>e>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2217	2346	
==>e>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1313	1412	
==>3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1313	1412	
==>3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1313	1412	
==>3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6574	6679	
==>ng if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6574	6679	
==>ng if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8771	8876	
==>ng if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18023	18119	
==>these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node pl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18023	18119	
==>these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16426	16570	
==>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16426	16570	
==>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16426	16570	
==>map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "Li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8799	8932	
==>n;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	963	1084	
==>n;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	963	1084	
==>n;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21292	21387	
==>$xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21292	21387	
==>$xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21292	21387	
==>$xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($x <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23556	23646	
==>nguage>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23556	23646	
==>nguage>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5656	5793	
==>equired} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5656	5793	
==>equired} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5656	5793	
==>equired} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2645	2772	
==>/ 100) }

our @months = <January February March     April   May      June
               July    August   September October Nove <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5586	5696	
==>var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstraction violation
    my $varlist = join( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	157	256	
==>nd others have no pos field
# FIXOTHERS (smoke): skipped tests have pos point to the test library

u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3740	3840	
==>tion of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descript <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3740	3840	
==>tion of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descript <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3820	3920	
==>tion of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6595	6717	
==>>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6595	6717	
==>>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6595	6717	
==>>str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shif <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10998	11096	
==>nt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $g <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11056	11154	
==>nt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1774	1869	
==>es to Perl 5.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12029	12118	
==>syche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12029	12118	
==>syche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12029	12118	
==>syche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6034	6190	
==>rens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) {
      Renew(r->offsets, 2*len+1, U32);
      r->offsets[0] = len;
    }

    r->offsets[1] = RE <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10510	10626	
==>ed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # . <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10510	10626	
==>ed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # . <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2775	3019	
==>::isa(shift(), 
                                                'JIB::Installation') };
use constant ISA_JIB_REPOSITORY_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repos <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1962	2067	
==>head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of t <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1962	2067	
==>head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of t <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1513	1627	
==>r (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexer = tokens($lexer, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1555	1654	
==>or many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
me <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1555	1654	
==>or many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11601	11703	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11601	11703	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11601	11703	
==>->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	34	148	
==>use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	34	148	
==>use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	34	148	
==>use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8052	8159	
==>, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8052	8159	
==>, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8052	8159	
==>, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6653	6753	
==>superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6653	6753	
==>superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6653	6753	
==>superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaque_i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6451	6560	
==>return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6451	6560	
==>return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7973	8061	
==>ime/parrot/include/$_" <= $newest_p_stamp and
  $newest_p_stamp = -M "$parrot_path/runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	53	147	
==>is questionable.


# verbatim from perl-5.9.2/t/op/regexp.t
our $bang = sprintf "\\%03o", ord " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3606	3691	
==>closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3790	3875	
==>closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :f <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9464	9574	
==>$res;
 }


=item reverse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15811	15913	
==>ation to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information ab <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15869	15971	
==>ation to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information ab <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16967	17115	
==>my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13388	13536	
==>my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25142	25248	
==>ch can involve a lot of backup).  Regmlen is
 * supplied because the test in pregexec() needs it and pregco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3505	3621	
==>";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3505	3621	
==>";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3505	3621	
==>";
        ::bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18134	18234	
==>FC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18134	18234	
==>FC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11645	11840	
==>rc = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7927	8122	
==>rc = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8761	8956	
==>rc = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2097	2215	
==>both respond to ->type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3670	3767	
==>me, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3670	3767	
==>me, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11489	11600	
==>gc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3080	3191	
==>gc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S-> <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5232	5327	
==>rule hexidecimal_escape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23090	23198	
==>NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19511	19619	
==>NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1621	1743	
==>er() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1621	1743	
==>er() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1621	1743	
==>er() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9621	9722	
==>lved'
    # -----------------------------------------------      
    method collect_all_roles () { "< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9621	9722	
==>lved'
    # -----------------------------------------------      
    method collect_all_roles () { "< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9621	9722	
==>lved'
    # -----------------------------------------------      
    method collect_all_roles () { "< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3235	3338	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3235	3338	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3235	3338	
==>add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2677	2909	
==>or);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3943	4102	
==>ls}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5167	5326	
==>ls}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	435	540	
==>tes a full path to a directory.

Returns true on success, false on failure.

=cut

sub _mkdir {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1722	1822	
==>::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fie <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1722	1822	
==>::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12932	13053	
==>fined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12932	13053	
==>fined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12932	13053	
==>fined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4342	4445	
==>g = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4342	4445	
==>g = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4342	4445	
==>g = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9381	9477	
==>skell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9381	9477	
==>skell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9381	9477	
==>skell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36918	37033	
==>-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36918	37033	
==>-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36918	37033	
==>-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric context"
    #    unless defined $po <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12899	12993	
==>, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12957	13051	
==>, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5786	5917	
==>port for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5786	5917	
==>port for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5786	5917	
==>port for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7779	7918	
==>on( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= & <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11256	11395	
==>on( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= & <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10420	10559	
==>on( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10235	10343	
==>ect
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the depth to which it will
lo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4217	4316	
==>es also 
parameters for block size and so on; see the cipher module's documentation for 
details.  T <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4217	4316	
==>es also 
parameters for block size and so on; see the cipher module's documentation for 
details.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3641	3744	
==>if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3641	3744	
==>if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3641	3744	
==>if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1086	1230	
==>current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1086	1230	
==>current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1086	1230	
==>current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11281	11417	
==>re_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11281	11417	
==>re_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11281	11417	
==>re_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3810	3963	
==>w {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3810	3963	
==>w {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3810	3963	
==>w {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13781	13922	
==>:ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13781	13922	
==>:ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13781	13922	
==>:ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3097	3192	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3097	3192	
==>dir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2093	2187	
==>run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2093	2187	
==>run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2093	2187	
==>run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	337	462	
==>JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	337	462	
==>JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	337	462	
==>JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportLis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17811	17976	
==>ice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17811	17976	
==>ice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17811	17976	
==>ice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3897	4002	
==>ule capturing_group        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closur <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	45	141	
==>:Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	45	141	
==>:Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11443	11548	
==>w("bool"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20605	20705	
==>->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17026	17126	
==>->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17009	17124	
==>one was given
    unless( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3224	3331	
==>his should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3224	3331	
==>his should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12968	13070	
==>oin(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12968	13070	
==>oin(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12968	13070	
==>oin(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6857	6967	
==>($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6857	6967	
==>($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6857	6967	
==>($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	39	297	
==>yedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	39	297	
==>yedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Mes <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1032	1166	
==>int $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    while (1) {
        my $line = pro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17094	17211	
==>op to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20571	20688	
==>op to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20149	20266	
==>op to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3429	3532	
==>e class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variabl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3429	3532	
==>e class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11027	11120	
==>ib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11027	11120	
==>ib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11027	11120	
==>ib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5521	5615	
==>tic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5521	5615	
==>tic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7718	7812	
==>tic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	110	233	
==>as Method %.dispatch;

# private accessors, methods, etc
has Method %:dispatch;

# next type(s) for dispatchable lookup (inh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9335	9432	
==>klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $retur <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9335	9432	
==>klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3957	4065	
==>";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3957	4065	
==>";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3957	4065	
==>";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15614	15797	
==>his using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15614	15797	
==>his using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15614	15797	
==>his using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12728	12823	
==>ects without the time part.

Discrete spans take a "units" specifier, which can be either `:int` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12728	12823	
==>ects without the time part.

Discrete spans take a "units" specifier, which can be either `:int` <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10065	10154	
==>etachar("-").
p5_charset_item(char(C)) --> [C], {[C] = "-"}.

charset_identifier(A) --> al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8178	8284	
==>ass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (q <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8178	8284	
==>ass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (q <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8178	8284	
==>ass 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7227	7339	
==>2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7227	7339	
==>2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7227	7339	
==>2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13606	13757	
==>' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13606	13757	
==>' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13606	13757	
==>' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12813	12925	
==>dler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unle <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12813	12925	
==>dler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unle <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22935	23027	
==>age Perl6::Run::OnPerl5::X1::Api::Exception;
@ISA=qw(Error);
package Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18611	18718	
==>URL} of whatever web page
     contains the link that the user followed to the current
     page.  Most brow <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18611	18718	
==>URL} of whatever web page
     contains the link that the user followed to the current
     page.  Most brow <==
3	/Users/nnunley/pugs/util/grokprims.pl	1400	1497	
==>e .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(list| <==
3	/Users/nnunley/pugs/util/combine_tests.pl	321	424	
==>rlier one's
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a more_events[] with <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	894	983	
==>vents fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	894	983	
==>vents fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9068	9184	
==>ift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9068	9184	
==>ift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTE <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5573	5671	
==>t_tests;
    $self->run_children($Config{concurrent}, \@tests);
}

sub run_children {
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	255	377	
==>ath::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	255	377	
==>ath::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	255	377	
==>ath::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1202	1374	
==>b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@by <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1202	1374	
==>b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@by <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1081	1174	
==>orgE<gt>.

The F<libpcre> code bundled with this library by I<Philip Hazel>,
under a BSD-style <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15298	15397	
==>alue from the function
	# since this return value is a type variable that is present inside the func <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14995	15088	
==>em C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14995	15088	
==>em C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this N <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3072	3179	
==>llbacks can have them.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $line = $it->nex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10571	10662	
==>that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attrib <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10571	10662	
==>that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11253	11380	
==>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11253	11380	
==>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11253	11380	
==>{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6699	6876	
==>:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6699	6876	
==>:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6699	6876	
==>:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _(' <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1269	1431	
==>my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless define <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2281	2377	
==>lows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2281	2377	
==>lows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7451	7607	
==>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7451	7607	
==>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7451	7607	
==>push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10120	10290	
==>kip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              number      = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	678	838	
==>kip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	678	838	
==>kip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            number      = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1671	1771	
==>o, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1729	1829	
==>o, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, : <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8673	8763	
==>difier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charset_items <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	936	1047	
==>i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	936	1047	
==>i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	936	1047	
==>i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4981	5095	
==>ini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4981	5095	
==>ini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4981	5095	
==>ini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20534	20636	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20534	20636	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20534	20636	
==>x0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14953	15083	
==>.picosec;
    has Int  $.wday;    # 1 to 7, Sunday == 1
    has Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzna <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9470	9577	
==>ort... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9470	9577	
==>ort... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1541	1635	
==>e_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1541	1635	
==>e_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1541	1635	
==>e_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	387	490	
==>a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	387	490	
==>a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	387	490	
==>a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5790	5932	
==>le = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $mid <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5790	5932	
==>le = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $mid <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5790	5932	
==>le = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $mid <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5559	5670	
==>_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remov <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5559	5670	
==>_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remov <==
3	/Users/nnunley/pugs/util/testgraph.pl	924	1023	
==>e: $0 [OPTIONS] > output_file.html

Generates an HTML summary of a YAML test run. Options:

   --inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5334	5465	
==>ut as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5334	5465	
==>ut as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5334	5465	
==>ut as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4181	4291	
==>se if $self->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21591	21685	
==>All Relation
attributes may be individually addressed only by their names, and all
Relation tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26143	26237	
==>All Relation
attributes may be individually addressed only by their names, and all
Relation tup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15594	15700	
==>oved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15594	15700	
==>oved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15594	15700	
==>oved uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17877	17980	
==>ot Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to be in terms of StrPos, not Int. <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1096	1189	
==>he latter form is slightly more efficient, though this is
marginal in string COW environments) <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1096	1189	
==>he latter form is slightly more efficient, though this is
marginal in string COW environments) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1147	1254	
==>--------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1147	1254	
==>--------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1147	1254	
==>--------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?R <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3671	3794	
==>L_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3671	3794	
==>L_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	521	644	
==>L_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5976	6081	
==>);

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5976	6081	
==>);

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5976	6081	
==>);

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3906	3993	
==>e http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3906	3993	
==>e http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3906	3993	
==>e http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3223	3332	
==>->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3223	3332	
==>->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3223	3332	
==>->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	788	920	
==>ssors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	993	1125	
==>ssors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1049	1181	
==>ssors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	246	360	
==>';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confess "You must stor <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	159	254	
==>Time::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime: <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	159	254	
==>Time::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23394	23503	
==>($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23394	23503	
==>($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23394	23503	
==>($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13606	13696	
==>ns "whatever annotation went with this attribute when it's declared"
::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13606	13696	
==>ns "whatever annotation went with this attribute when it's declared"
::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13606	13696	
==>ns "whatever annotation went with this attribute when it's declared"
::Class.meta.add_metho <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	291	434	
==>persand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	291	434	
==>persand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'" <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12254	12374	
==>e/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2213	2342	
==>Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	607	709	
==>%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	607	709	
==>%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Ru <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	301	404	
==>ds, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    % <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	301	404	
==>ds, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    % <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32721	32815	
==>s block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Class->send('add_method' => ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7749	7876	
==>ole;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7749	7876	
==>ole;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7749	7876	
==>ole;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish fo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	615	867	
==>his file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External pa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	615	867	
==>his file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	337	437	
==>l soul, really concreate and practical 
# things like Object, Package and Module. It was also created <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	337	437	
==>l soul, really concreate and practical 
# things like Object, Package and Module. It was also created <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	337	437	
==>l soul, really concreate and practical 
# things like Object, Package and Module. It was also created <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1014	1116	
==>ETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1014	1116	
==>ETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1014	1116	
==>ETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33201	33318	
==>>send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5933	6028	
==>text

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depend <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5933	6028	
==>text

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depend <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9326	9457	
==>$x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univers <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9326	9457	
==>$x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univers <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4224	4330	
==>o found_term if $operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11007	11112	
==>thod readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11007	11112	
==>thod readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1043	1147	
==>re_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @item <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1043	1147	
==>re_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @item <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7412	7540	
==>build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_perso <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7412	7540	
==>build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_perso <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8378	8477	
==>=head2 Building the Tree

If you don't care to intercept the building of the tree, you can use the
p <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1986	2080	
==>C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1986	2080	
==>C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6612	6699	
==>s);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6612	6699	
==>s);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6612	6699	
==>s);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(function() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2187	2293	
==>@a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2187	2293	
==>@a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2187	2293	
==>@a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5512	5623	
==>ile.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5512	5623	
==>ile.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5512	5623	
==>ile.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4619	4719	
==>etting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4619	4719	
==>etting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4619	4719	
==>etting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14266	14384	
==>ned $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14266	14384	
==>ned $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14266	14384	
==>ned $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	762	862	
==>PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	762	862	
==>PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	762	862	
==>PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	775	906	
==>pl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	775	906	
==>pl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	775	906	
==>pl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	958	1135	
==>ethods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	692	790	
==>Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration synta <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	692	790	
==>Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration synta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	738	935	
==>e_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	751	845	
==>Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	751	845	
==>Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	499	757	
==>ey!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=po <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	499	757	
==>ey!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1476	1573	
==>_[0], '$<value>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	912	1036	
==>cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	912	1036	
==>cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	912	1036	
==>cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	692	819	
==>ode);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runtime( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11593	11717	
==>';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11587	11711	
==>';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5942	6054	
==>$self;
    while ($current) {
        if (exists $current->{env}->{$name}) {
            $current->{env}->{$name} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39891	39984	
==>Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39891	39984	
==>Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1891	2085	
==>]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9072	9166	
==>lass Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9072	9166	
==>lass Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	808	918	
==>e;
*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	808	918	
==>e;
*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6783	6890	
==>ugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3517	3629	
==>) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6994	7106	
==>) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5951	6063	
==>) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2391	2500	
==>, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integrati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2391	2500	
==>, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integrati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2391	2500	
==>, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integrati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	863	976	
==>r

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	863	976	
==>r

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	863	976	
==>r

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3422	3550	
==>method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3422	3550	
==>method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3422	3550	
==>method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7775	7876	
==>s, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7775	7876	
==>s, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7775	7876	
==>s, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40240	40349	
==>6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40240	40349	
==>6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40240	40349	
==>6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$th <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17494	17590	
==>`, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns u <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17494	17590	
==>`, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15295	15389	
==>od for you right there!)

=item Regexp::MinLength

Implements a min_length() method for all obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	0	98	
==>method key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	0	98	
==>method key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	0	98	
==>method key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	502	591	
==>::Compiler::Rule->compile(<<'RULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<varscala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17384	17560	
==>$class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17384	17560	
==>$class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17384	17560	
==>$class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11265	11414	
==>ent block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11265	11414	
==>ent block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	259	356	
==>ENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeichen ke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3934	4070	
==>lf->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5158	5294	
==>lf->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18782	18882	
==>ead1 VERSION

This document describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10329	10428	
==>RS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10329	10428	
==>RS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35058	35154	
==>if the two source headings are
identical.  This method has an alias named C<matching>.

=item C<p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39608	39704	
==>if the two source headings are
identical.  This method has an alias named C<matching>.

=item C<p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39150	39246	
==>if the two source headings are
identical.  This method has an alias named C<matching>.

=item C<p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1650	1908	
==>EGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9122	9208	
==>reItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_it <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9226	9309	
==>reItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3614	3730	
==>erl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3614	3730	
==>erl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3614	3730	
==>erl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1143	1237	
==>er thingies.

It also gives the compiler the default environment to work with (from
L<Blondie:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10271	10400	
==>ivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10271	10400	
==>ivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10271	10400	
==>ivate method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1460	1558	
==>=~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1460	1558	
==>=~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1460	1558	
==>=~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15863	15972	
==>B shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15863	15972	
==>B shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15863	15972	
==>B shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8536	8644	
==>" ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8536	8644	
==>" ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8536	8644	
==>" ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4919	5023	
==>e pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4919	5023	
==>e pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4919	5023	
==>e pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3834	3943	
==>egexp_hook_exec failed - didnt return anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; po <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14890	14988	
==>ment - This stores a reference to the Document that
this Node and all of its relative Nodes live in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14890	14988	
==>ment - This stores a reference to the Document that
this Node and all of its relative Nodes live in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1105	1251	
==>s $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1105	1251	
==>s $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1105	1251	
==>s $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5572	5683	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5572	5683	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5572	5683	
==>= &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&inf <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5996	6112	
==>teral_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5060	5153	
==>}
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5060	5153	
==>}
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19845	19943	
==>};
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19845	19943	
==>};
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19845	19943	
==>};
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3534	3704	
==>)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31850	31943	
==>Relation>

This multi-method is a generic binary relational operator that takes a single
Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36400	36493	
==>Relation>

This multi-method is a generic binary relational operator that takes a single
Relat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2843	2941	
==>Text::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2843	2941	
==>Text::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6862	6993	
==>_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6862	6993	
==>_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6862	6993	
==>_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8283	8421	
==>our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8283	8421	
==>our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8283	8421	
==>our canidate
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8456	8588	
==>current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8456	8588	
==>current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8456	8588	
==>current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' = <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	360	511	
==>T_OK = qw(parser nothing End_of_Input lookfor
#                 alternate concatenate star list_of 
#                 operator T 
#                 erro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	584	678	
==>ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you giv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	584	678	
==>ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you giv <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2086	2187	
==>t->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2086	2187	
==>t->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5120	5218	
==>ack or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs is built, a fa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39237	39357	
==>fic code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character classes are not returned all <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6296	6415	
==>); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    se <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6296	6415	
==>); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	395	499	
==>ct, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psych <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	395	499	
==>ct, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psych <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	395	499	
==>ct, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psych <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	638	742	
==>er stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	638	742	
==>er stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	638	742	
==>er stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4129	4238	
==>e :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4129	4238	
==>e :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4129	4238	
==>e :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsM <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3460	3604	
==>my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$ifh>) {
            $module | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1961	2057	
==>tatic lookup (lex only) or a dynamic lookup. 



This object-serialization format is shared acros <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1887	1981	
==>tatic lookup (lex only) or a dynamic lookup. 

This object-serialization format is shared acros <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2608	2731	
==>rr.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2608	2731	
==>rr.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2608	2731	
==>rr.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1707	1842	
==>e::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1707	1842	
==>e::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1707	1842	
==>e::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1232	1334	
==>plementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1232	1334	
==>plementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .nam <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1232	1334	
==>plementations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	368	480	
==>w(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	368	480	
==>w(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	368	480	
==>w(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	824	929	
==>cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	824	929	
==>cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	824	929	
==>cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * Added s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2349	2459	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2349	2459	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2349	2459	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9832	9951	
==>mes6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9832	9951	
==>mes6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9832	9951	
==>mes6param,$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2650	2756	
==>label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2650	2756	
==>label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2650	2756	
==>label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24688	24853	
==>rm2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24967	25132	
==>rm2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13874	14024	
==>n = '' unless defined $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    el <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8023	8148	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8216	8341	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'v <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	790	893	
==>ist::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
{
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3775	3986	
==>} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3775	3986	
==>} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3775	3986	
==>} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5087	5192	
==>or failed, depending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5087	5192	
==>or failed, depending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6611	6716	
==>or failed, depending on the value of C<$passed>,
recording C<$description> as an optional explanation.

=i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4122	4242	
==>de' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PE <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4122	4242	
==>de' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	972	1092	
==>de' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3198	3300	
==>s|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3198	3300	
==>s|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3198	3300	
==>s|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6101	6208	
==>ss
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6101	6208	
==>ss
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6101	6208	
==>ss
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	354	446	
==>le = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_fil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	354	446	
==>le = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_fil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	714	843	
==>see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	714	843	
==>see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2807	2908	
==>ss name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1065	1174	
==>eturn $self->_pp_from_struct( $struct );
}

sub _pp_from_struct {
    my $self    = shift;
    my $struct  = s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19239	19335	
==>ast autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19239	19335	
==>ast autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1287	1394	
==>rn, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1287	1394	
==>rn, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3924	4041	
==>ntersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3924	4041	
==>ntersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	454	561	
==>ow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	465	572	
==>ow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $cod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16699	16794	
==>ibution.

While it is possible that one could write a self-contained application in
Rosetta D an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16699	16794	
==>ibution.

While it is possible that one could write a self-contained application in
Rosetta D an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8772	8880	
==>s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8772	8880	
==>s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8772	8880	
==>s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8467	8629	
==>ll')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8467	8629	
==>ll')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8467	8629	
==>ll')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6970	7092	
==>ss;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6970	7092	
==>ss;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6970	7092	
==>ss;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3923	4100	
==>>tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3923	4100	
==>>tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3923	4100	
==>>tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4362	4473	
==>1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4362	4473	
==>1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4362	4473	
==>1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2662	2847	
==>is ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                map { "$_" } @{$<rule>},
            )) . "\n" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35809	35904	
==>ther> argument and combines it with the
invocant relation into a new Relation, such that all com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40359	40454	
==>ther> argument and combines it with the
invocant relation into a new Relation, such that all com <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2485	2609	
==>od footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expected $.expect but ran <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2179	2292	
==>mflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave ac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2179	2292	
==>mflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave ac <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15905	16000	
==>mation about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15963	16058	
==>mation about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3184	3318	
==>_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1049	1144	
==>perly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for de <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1049	1144	
==>perly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for de <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1088	1205	
==>Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $debug_warnings;
	my $strx = eval(" <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5253	5349	
==>=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a por <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5253	5349	
==>=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a por <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16068	16163	
==>n file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself work <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16068	16163	
==>n file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself work <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9239	9330	
==>lue)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33635	33775	
==>ft;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33635	33775	
==>ft;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33635	33775	
==>ft;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	303	558	
==>s in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	303	558	
==>s in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: Th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2353	2517	
==>it /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal token: $deps\n";
    }
    
    return $str;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	998	1139	
==>name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	998	1139	
==>name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	998	1139	
==>name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classde <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3756	3856	
==>span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3756	3856	
==>span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	735	839	
==>demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	735	839	
==>demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7141	7241	
==>har(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1), {I is I1 - 1},
  {I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3372	3470	
==>,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3372	3470	
==>,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3372	3470	
==>,3))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9400	9508	
==>akes the roles mutator/accessor

    # -----------------------------------------------      
    # this colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9400	9508	
==>akes the roles mutator/accessor

    # -----------------------------------------------      
    # this colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9400	9508	
==>akes the roles mutator/accessor

    # -----------------------------------------------      
    # this colle <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	606	706	
==>E>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

modu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	606	706	
==>E>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

modu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11605	11799	
==>re} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7887	8081	
==>re} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8721	8915	
==>re} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3366	3466	
==>or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3550	3650	
==>or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1249	1367	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1249	1367	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1249	1367	
==>new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2280	2458	
==>od_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2280	2458	
==>od_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2280	2458	
==>od_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $toke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3270	3385	
==>JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3270	3385	
==>JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3270	3385	
==>JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1941	2054	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1941	2054	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1941	2054	
==>JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	691	839	
==>tToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	691	839	
==>tToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	691	839	
==>tToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1024	1143	
==>cc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1024	1143	
==>cc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1024	1143	
==>cc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1043	1185	
==>$val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1043	1185	
==>$val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1184	1291	
==>$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1184	1291	
==>$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1184	1291	
==>$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38028	38269	
==>$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = sh <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	204	298	
==>ldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Write <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	204	298	
==>ldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Write <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1419	1534	
==>];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1419	1534	
==>];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5407	5508	
==>f }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5407	5508	
==>f }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5407	5508	
==>f }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cm <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3082	3185	
==>$start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3082	3185	
==>$start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20310	20426	
==>, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16731	16847	
==>, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3147	3296	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3147	3296	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3147	3296	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5764	5922	
==>[ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4568	4663	
==>16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4568	4663	
==>16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2264	2388	
==>d, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".." <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2264	2388	
==>d, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".." <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2264	2388	
==>d, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11008	11144	
==>hod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11008	11144	
==>hod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11008	11144	
==>hod_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1958	2070	
==>Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1958	2070	
==>Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1958	2070	
==>Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15979	16089	
==>e::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15979	16089	
==>e::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15979	16089	
==>e::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21578	21674	
==>ven that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI's p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21578	21674	
==>ven that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI's p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1831	1964	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1831	1964	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1831	1964	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4691	4798	
==>For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4691	4798	
==>For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1234	1329	
==>n::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_name_exists of Bool (Re <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	156	254	
==>e elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	156	254	
==>e elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16689	16809	
==>L_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16689	16809	
==>L_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16689	16809	
==>L_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	363	484	
==>epoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub us <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2064	2163	
==>dex
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@oct <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2064	2163	
==>dex
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@oct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1802	1914	
==>eclaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1802	1914	
==>eclaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1802	1914	
==>eclaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1147	1331	
==>ch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5807	5937	
==>start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5807	5937	
==>start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5183	5316	
==>tch, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5183	5316	
==>tch, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4281	4399	
==>following syntactic categories:

         rule rxbackslash:<w> { ... }    # define your own \w and \W
         rule rxa <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19807	19935	
==>") 
                             or die "Can't open output test file $synhtml: $!";
        $outfile->print($sobj->as_HTML(undef, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3165	3261	
==>e) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3165	3261	
==>e) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpath <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	862	985	
==>\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	862	985	
==>\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	30	126	
==>say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von Code-Objekten: f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2753	2854	
==>o = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2753	2854	
==>o = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2753	2854	
==>o = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1994	2173	
==>yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1994	2173	
==>yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1994	2173	
==>yay for recursive closures!
    $code = sub {
        my($proto, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	188	291	
==>$_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	188	291	
==>$_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	188	291	
==>$_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7090	7214	
==>therwise all data we index after must be a toplevel element of
        # the meta file
        push @index_files, file($path. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19127	19221	
==>lly if using the header(),
push_header() or init_header() methods to set the referrer.

=item $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19127	19221	
==>lly if using the header(),
push_header() or init_header() methods to set the referrer.

=item $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2429	2544	
==>if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2429	2544	
==>if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2429	2544	
==>if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	921	1017	
==>PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	921	1017	
==>PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	921	1017	
==>PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(cor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25819	25913	
==>d non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contai <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25819	25913	
==>d non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contai <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1743	1836	
==>{'has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2262	2379	
==>method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	251	362	
==>method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	251	362	
==>method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	913	1016	
==>]),
    bool => \\$bool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime::Matc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21306	21391	
==>otE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21306	21391	
==>otE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7082	7205	
==>ault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7082	7205	
==>ault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7082	7205	
==>ault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11132	11269	
==>) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11132	11269	
==>) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11132	11269	
==>) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	959	1063	
==>y load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	959	1063	
==>y load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	959	1063	
==>y load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6061	6164	
==>is is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6061	6164	
==>is is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    retu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16369	16465	
==>es trailing chars that match C</\n/>. In
either case, it returns the number of chars removed.

No <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3281	3402	
==>s = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3421	3542	
==>s = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $ru <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8878	8993	
==>aces for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob
    .local string target
    . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	364	480	
==>ler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1153	1269	
==>ler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	504	610	
==>r" }

sub provides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	70	172	
==>);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	70	172	
==>);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	70	172	
==>);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	849	952	
==>uldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	849	952	
==>uldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	849	952	
==>uldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15586	15692	
==>_

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15586	15692	
==>_

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15586	15692	
==>_

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2203	2311	
==>ach my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" . $role->i <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12914	13007	
==>t one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12914	13007	
==>t one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1906	2009	
==>intf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1906	2009	
==>intf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1906	2009	
==>intf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8138	8237	
==>an may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8138	8237	
==>an may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	249	344	
==>ting primitives, please do *not* use `return()`, because
that messes up PIR generation.  To retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2146	2283	
==>w(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2146	2283	
==>w(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2146	2283	
==>w(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15574	15705	
==>e::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15574	15705	
==>e::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15574	15705	
==>e::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4157	4257	
==>est.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	706	794	
==>h If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Ag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	706	794	
==>h If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Ag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6089	6182	
==>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6089	6182	
==>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6089	6182	
==>name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16626	16730	
==>rns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Ne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16626	16730	
==>rns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Ne <==
3	/Users/nnunley/pugs/util/func_refact.pl	61	157	
==>g;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1255	1372	
==>fy( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1255	1372	
==>fy( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1255	1372	
==>fy( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4831	4944	
==>tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4831	4944	
==>tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4831	4944	
==>tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time.
    m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4698	4810	
==>n
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4698	4810	
==>n
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6222	6334	
==>n
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	74	186	
==>rategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	74	186	
==>rategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	334	446	
==>le(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled(sub {
       	my $grammar = shift;
	my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38589	38686	
==>lace>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
oc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38589	38686	
==>lace>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
oc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3430	3521	
==>class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3430	3521	
==>class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5627	5718	
==>class itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15765	15867	
==>, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captures_get(I,E0,_)) ; match_captures_get(I <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1024	1117	
==>use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2879	2972	
==>use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10195	10298	
==>class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26101	26243	
==>( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26101	26243	
==>( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26101	26243	
==>( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6933	7054	
==>$y->type);
			} else {
				return undef;
			}
		} elsif (ref($x) and ref($y)) {
			return unless @$x == @$y;
			my @x = @$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	212	322	
==>t {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	212	322	
==>t {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5747	5929	
==>« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $? <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5747	5929	
==>« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1753	1865	
==>{ # roles don't have subclasses
        foreach my $subclass (@{$class->subclasses}) {
           $output .= _dra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2708	2823	
==>nknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2708	2823	
==>nknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2708	2823	
==>nknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Cou <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	581	686	
==>t<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth' <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	581	686	
==>t<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3080	3179	
==>rn "type of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new(
				t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2607	2709	
==>gs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2607	2709	
==>gs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2607	2709	
==>gs = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9288	9406	
==>ODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" }
NODE VNum ($value) {
    return "p6_Num($value)" if !ref($value <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5460	5576	
==>erms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5653	5769	
==>erms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12837	12954	
==>s {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12837	12954	
==>s {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12837	12954	
==>s {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub de <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4872	5029	
==>nue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified numbe <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4872	5029	
==>nue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified numbe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5968	6070	
==>e>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n";
} <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1606	1755	
==>imitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3291	3394	
==>xp::Parser::digit;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3640	3734	
==>is is done by setting C<$match.multidex> to the index where
captures should put themselves.  In <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3640	3734	
==>is is done by setting C<$match.multidex> to the index where
captures should put themselves.  In <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8468	8684	
==>' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8468	8684	
==>' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ] <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1640	1760	
==>ivePrecedence}{equiv};
    }
  }

  my $noWhitespace = 0;
  $noWhitespace = 1 if ((index $options, "nows") >= 0);

  #pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6451	6548	
==>efers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6451	6548	
==>efers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6451	6548	
==>efers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13272	13365	
==>Moreover, these data structures are in exactly the right input format for
Document.new(), by w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13272	13365	
==>Moreover, these data structures are in exactly the right input format for
Document.new(), by w <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1604	1716	
==>ions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = unde <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1604	1716	
==>ions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = unde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21046	21158	
==>parenthesis or after 'atom' matches.  This makes things flow more
cleanly.

=item Flag Handlers

Flag handlers no <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8136	8231	
==>et.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the sp <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8136	8231	
==>et.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10629	10749	
==>s_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10629	10749	
==>s_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10629	10749	
==>s_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::Lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7561	7700	
==>w => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	66	182	
==>ams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumpe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	64	180	
==>ams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5566	5840	
==>);
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5566	5840	
==>);
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path" <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1937	2029	
==>s)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note that po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1376	1476	
==>y.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1376	1476	
==>y.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1376	1476	
==>y.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	580	678	
==>ent_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CO <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	580	678	
==>ent_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CO <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5716	5821	
==>sm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $decl = "";

    m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2034	2128	
==>test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depen <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2092	2186	
==>test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1404	1530	
==>\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $meth <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1404	1530	
==>\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $meth <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1476	1584	
==>y $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $app = s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3238	3352	
==>elf->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unless ( @exts ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4338	4439	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1464	1565	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exac <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5279	5419	
==>,
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5279	5419	
==>,
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928), <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38622	38717	
==>n::Example
in its C<$other> argument, where the heading of <$other> is a subset of the
heading o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3677	3768	
==>::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3677	3768	
==>::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3677	3768	
==>::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5473	5579	
==>y qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5473	5579	
==>y qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5473	5579	
==>y qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16903	17006	
==>ed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16903	17006	
==>ed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16903	17006	
==>ed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritab <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	435	580	
==>b { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	435	580	
==>b { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	380	475	
==>_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::Ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	202	325	
==>y
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

su <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19318	19409	
==>(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures(Ex,Cx),
  % append(C0,[[Str,NPos,[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12332	12448	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12332	12448	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12332	12448	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1201	1308	
==>nt, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1201	1308	
==>nt, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1201	1308	
==>nt, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10753	10844	
==>est_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns S <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10753	10844	
==>est_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6299	6415	
==>shift;
    # XXX - needs optimization for faster backtracking, less stack usage
    return sub {
        my $state <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22687	22776	
==>bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22687	22776	
==>bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>to <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3760	3860	
==>0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3760	3860	
==>0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14123	14259	
==>str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14123	14259	
==>str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14123	14259	
==>str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7508	7594	
==>---------------------------------------------------------------
## END BOOTSTRAPPING RO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7508	7594	
==>---------------------------------------------------------------
## END BOOTSTRAPPING RO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7508	7594	
==>---------------------------------------------------------------
## END BOOTSTRAPPING RO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14189	14353	
==>f ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14189	14353	
==>f ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14189	14353	
==>f ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2708	2815	
==>mponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2708	2815	
==>mponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2708	2815	
==>mponents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1962	2143	
==>i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1962	2143	
==>i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1962	2143	
==>i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10046	10168	
==>UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10046	10168	
==>UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	391	497	
==>tually make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think we have the same pr <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8631	8760	
==>y, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4415	4536	
==>new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4415	4536	
==>new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3381	3498	
==>ft;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3381	3498	
==>ft;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3381	3498	
==>ft;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1638	1783	
==>ncat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do {
            my $st = $nodes->[0]->( $_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	434	549	
==>$tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	434	549	
==>$tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	864	971	
==>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	864	971	
==>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	864	971	
==>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash an <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5244	5337	
==>atus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5244	5337	
==>atus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7441	7534	
==>atus returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3034	3141	
==>turn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3034	3141	
==>turn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3034	3141	
==>turn $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6298	6431	
==>\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in T <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3666	3779	
==>!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just insertin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3666	3779	
==>!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just insertin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1245	1344	
==>Nil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1245	1344	
==>Nil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1245	1344	
==>Nil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3587	3716	
==>') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3587	3716	
==>') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3587	3716	
==>') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1734	1904	
==>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1734	1904	
==>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1734	1904	
==>describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19942	20052	
==>6_file;
    p6_eval($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15884	16001	
==>hift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15884	16001	
==>hift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27388	27475	
==>TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_on(prog) ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36989	37100	
==>ibute', (symbol->new('@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send('ad <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1255	1351	
==>trieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1255	1351	
==>trieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5414	5527	
==>ame($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->au <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5414	5527	
==>ame($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->au <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5414	5527	
==>ame($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->au <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	160	268	
==>@ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    my ($sc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18465	18559	
==>u can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18465	18559	
==>u can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9653	9766	
==>confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9653	9766	
==>confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9653	9766	
==>confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_di <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18807	18906	
==>nt describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8947	9044	
==>handles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALS <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8947	9044	
==>handles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1115	1231	
==>tr, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1115	1231	
==>tr, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1115	1231	
==>tr, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	0	89	
==>sub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	0	89	
==>sub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	0	89	
==>sub circumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13611	13703	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13611	13703	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13611	13703	
==>ow PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $Ev <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	799	896	
==>tter mess.

The project objectives are nominally:
  1- Provide an environment in which p6 rules ca <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15616	15711	
==>arily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Sett <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15674	15769	
==>arily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Sett <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2080	2175	
==>n for his "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/ca <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19939	20045	
==>lti prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 mu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14240	14339	
==>lified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14240	14339	
==>lified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7556	7690	
==>from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7556	7690	
==>from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7556	7690	
==>from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	159	284	
==>ck => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	159	284	
==>ck => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	159	284	
==>ck => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2984	3097	
==>>{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2984	3097	
==>>{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2984	3097	
==>>{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3544	3726	
==>y' => 1,      :$v
    #    'type' => {             Str $v
    #      'bareword' => 'Str',
    #    }
    #    'splat' => 1,           *$v
    #    'attribute' => \@attr   $v is r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6087	6191	
==>ly applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

met <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6087	6191	
==>ly applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4283	4403	
==>}

    | BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp ' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9345	9439	
==>{
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($stri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9345	9439	
==>{
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	270	379	
==>ort BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	270	379	
==>ort BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	270	379	
==>ort BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2615	2719	
==>nline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2615	2719	
==>nline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2615	2719	
==>nline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4207	4323	
==>iven to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4207	4323	
==>iven to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4207	4323	
==>iven to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	350	468	
==>ns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	334	445	
==>ns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13155	13266	
==>. " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13155	13266	
==>. " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13155	13266	
==>. " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MU <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18350	18460	
==>cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(any <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14771	14881	
==>cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(any <==
3	/Users/nnunley/pugs/util/drift.pl	150	247	
==>Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{DERIVEPATH} = " <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	98	223	
==>h is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	98	223	
==>h is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11486	11607	
==>nsafe {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8489	8680	
==>ed
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8953	9144	
==>ed
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5495	5614	
==>e_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5495	5614	
==>e_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5495	5614	
==>e_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2801	2942	
==>[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2801	2942	
==>[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2801	2942	
==>[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5664	5768	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5664	5768	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5664	5768	
==>$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10607	10720	
==>plit(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10607	10720	
==>plit(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10607	10720	
==>plit(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	790	898	
==>id = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	790	898	
==>id = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	790	898	
==>id = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16616	16720	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16616	16720	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16616	16720	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1387	1502	
==>infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1387	1502	
==>infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1387	1502	
==>infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_inf <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1659	1788	
==>defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1659	1788	
==>defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1739	1868	
==>defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err <==
3	/Users/nnunley/pugs/util/version_h.pl	685	790	
==>-e "$base/MANIFEST") {
    # This is a release -- do nothing!
}
elsif (-r $svn_entries) {
    print "Writi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8472	8566	
==>1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8460	8554	
==>1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10637	10737	
==>----------------------------------

    method add_method;
    method get_method;
    method has_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10637	10737	
==>----------------------------------

    method add_method;
    method get_method;
    method has_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10637	10737	
==>----------------------------------

    method add_method;
    method get_method;
    method has_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5240	5392	
==>ed in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5240	5392	
==>ed in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5240	5392	
==>ed in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	92	195	
==>TRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	92	195	
==>TRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	92	195	
==>TRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2281	2375	
==>ssion
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2281	2375	
==>ssion
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Comp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	886	981	
==>ut( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	886	981	
==>ut( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7154	7262	
==>B postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7154	7262	
==>B postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7154	7262	
==>B postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrem <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3246	3508	
==>list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3246	3508	
==>list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9890	9992	
==>parts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@para <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21814	21925	
==>= %*INC{$module};
  if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4715	4810	
==>+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4715	4810	
==>+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7468	7578	
==>}
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7468	7578	
==>}
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7468	7578	
==>}
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4830	4996	
==>>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4830	4996	
==>>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4830	4996	
==>>push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12480	12614	
==>uals => $_  } @_,
    }, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = shift;

    Compiler->n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2515	2639	
==>self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $se <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2515	2639	
==>self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	999	1095	
==>catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	999	1095	
==>catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10537	10649	
==>to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10537	10649	
==>to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	376	480	
==>se) returns Num
    { ... };

multi sub pi is readonly () returns Num
    { 3.14159_26535_89793_23846_264 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24539	24638	
==>spond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29091	29190	
==>spond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27967	28066	
==>spond to the 2 named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5169	5266	
==>ompiling (--link option not given), there has to be only one input file.
In linking mode, multiple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5169	5266	
==>ompiling (--link option not given), there has to be only one input file.
In linking mode, multiple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5169	5266	
==>ompiling (--link option not given), there has to be only one input file.
In linking mode, multiple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3072	3232	
==>->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $level <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2251	2346	
==>@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free softw <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2251	2346	
==>@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free softw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2580	2693	
==>ng @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2580	2693	
==>ng @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2580	2693	
==>ng @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38850	38956	
==>n - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38850	38956	
==>n - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38850	38956	
==>n - return the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	45	139	
==>set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	45	139	
==>set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5034	5204	
==>ber_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5034	5204	
==>ber_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	632	774	
==>[ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	608	743	
==>[ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2239	2366	
==>die $?;
    
        my $meta_dir = $inst->control_dir( $self->package );
        my $data     = $conf->archive_data;
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5416	5515	
==>' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5416	5515	
==>' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5416	5515	
==>' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	913	1052	
==>ine.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	913	1052	
==>ine.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2025	2113	
==>ddToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2811	2914	
==>de($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2811	2914	
==>de($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2097	2185	
==>ddToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14407	14530	
==>y $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14407	14530	
==>y $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14407	14530	
==>y $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6843	6947	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ol <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6843	6947	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ol <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6843	6947	
==>Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $ol <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1124	1268	
==>[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13397	13518	
==>ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13397	13518	
==>ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13397	13518	
==>ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5416	5532	
==>f) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5416	5532	
==>f) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5416	5532	
==>f) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2780	2872	
==>s

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2780	2872	
==>s

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2780	2872	
==>s

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8814	8917	
==>$default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8814	8917	
==>$default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8814	8917	
==>$default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstra <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1959	2068	
==>or its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1959	2068	
==>or its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11448	11553	
==>ol"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exceptio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8990	9119	
==>return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8676	8802	
==>return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10436	10544	
==>m->new(@$_)}('.$code_param_info.')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	646	748	
==>sources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	646	748	
==>sources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	646	748	
==>sources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16829	16970	
==>ssed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is proba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16829	16970	
==>ssed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is proba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16829	16970	
==>ssed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is proba <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	77	322	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Con <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	77	322	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1408	1515	
==>, 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4064	4170	
==>@params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now disca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4064	4170	
==>@params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now disca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4064	4170	
==>@params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now disca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15083	15182	
==>class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $te <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15083	15182	
==>class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10484	10666	
==>defined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10484	10666	
==>defined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10484	10666	
==>defined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9264	9418	
==>f ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9264	9418	
==>f ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            w <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6957	7177	
==>ist.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            y <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6957	7177	
==>ist.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            y <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25666	25788	
==>s => $rx->{flags}[-1],
      family => 'assertion',
      type => 'logical',
      data => $code,
      zerolen => 1,
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	161	257	
==>Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	161	257	
==>Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	161	257	
==>Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25195	25352	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25195	25352	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25195	25352	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    pu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1213	1421	
==>ads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1213	1421	
==>ads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	403	505	
==>tall loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ version of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23354	23533	
==>self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "!";
  }
}


{
  # (?>)
  package Regexp::Parser::suspend;

  sub new {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2524	2629	
==>nd (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_ob <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5748	5833	
==>$self->display_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) unles <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7583	7709	
==>657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7583	7709	
==>657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4252	4346	
==>kip instance, passing on the C<$description> and
C<$reason> parameters and a true value for the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4252	4346	
==>kip instance, passing on the C<$description> and
C<$reason> parameters and a true value for the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6449	6543	
==>kip instance, passing on the C<$description> and
C<$reason> parameters and a true value for the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1146	1255	
==>XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1146	1255	
==>XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1146	1255	
==>XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2904	3104	
==>tf "\\%03o", $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3664	3762	
==>och time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yeste <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3664	3762	
==>och time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yeste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14154	14361	
==>ess defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14154	14361	
==>ess defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14154	14361	
==>ess defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	527	618	
==>oved class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	527	618	
==>oved class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	518	642	
==>fs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package Blondie::N <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	152	249	
==>ess  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	152	249	
==>ess  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17757	17865	
==>tval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ intuit, and do we care?


=cut


=pod

=h <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	600	704	
==>elf: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	600	704	
==>elf: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27384	27517	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27384	27517	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27384	27517	
==>lue::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10048	10201	
==>utine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_bo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10048	10201	
==>utine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_bo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1725	1829	
==>rc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashscreen.txt";
my $lib6         = "../../bl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4225	4332	
==>der singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4225	4332	
==>der singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5749	5856	
==>der singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1073	1183	
==>key) && $key->isa('type'))
        || confess "Key must be a str type";
    return $self->{$key->to_str->to_nat <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	529	632	
==>sity>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	529	632	
==>sity>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2808	2926	
==>shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2808	2926	
==>shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2808	2926	
==>shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude", <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4720	4820	
==>::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4720	4820	
==>::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2150	2249	
==>hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter kludge. not even trying with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2460	2584	
==>GLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2460	2584	
==>GLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2460	2584	
==>GLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13896	14006	
==>e
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expensi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17373	17483	
==>e
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expensi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16753	16863	
==>e
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most expensi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29533	29647	
==>tre inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29533	29647	
==>tre inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	345	451	
==>tre inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	399	636	
==>)
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	400	637	
==>)
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2825	2924	
==>'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2825	2924	
==>'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7777	7876	
==>$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	303	399	
==>ng arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	303	399	
==>ng arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	384	482	
==>ntext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	384	482	
==>ntext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	384	482	
==>ntext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/o <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1865	1999	
==>e::Spec->curdir;
            next if $file eq ".svn";
            next if $file eq "CVS";
            my $currfile = File::Spec->catfil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13956	14052	
==>der field is multi-valued, then the
routine is called once for each value.  The field name passed <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13956	14052	
==>der field is multi-valued, then the
routine is called once for each value.  The field name passed <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	558	685	
==>ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level" <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	558	685	
==>ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8409	8506	
==>u don't care to intercept the building of the tree, you can use the
parse() method to explicitly b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8189	8341	
==>S JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8189	8341	
==>S JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8189	8341	
==>S JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17482	17636	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20959	21113	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20546	20700	
==>g ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4540	4642	
==>elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4540	4642	
==>elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1536	1638	
==>akemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13938	14050	
==>:Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13938	14050	
==>:Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13938	14050	
==>:Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17737	17887	
==>'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17737	17887	
==>'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	341	443	
==>rt;

  assert( EXPR, $name );

=head1 DESCRIPTION

A simple assert routine since we don't have Carp::As <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6494	6602	
==>WithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6494	6602	
==>WithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6494	6602	
==>WithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  ge <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1106	1231	
==>1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say  <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1106	1231	
==>1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say  <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1967	2057	
==>}

{
	package Blondie::TypeSafe::Annotator;
	use base qw/Blondie::Reducer Blondie::Reducer: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22585	22685	
==>ller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22585	22685	
==>ller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22585	22685	
==>ller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1170	1283	
==>ed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1170	1283	
==>ed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1170	1283	
==>ed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	118	230	
==>Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	118	230	
==>Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	118	230	
==>Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0]. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	160	259	
==>'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.error_output' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4039	4133	
==>t2<value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The option <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4039	4133	
==>t2<value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The option <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5543	5715	
==>as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!mem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5543	5715	
==>as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!mem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20798	20888	
==>e a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Instal <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20798	20888	
==>e a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Instal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	773	881	
==>methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	773	881	
==>methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	773	881	
==>methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth | <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11935	12036	
==>ble->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11935	12036	
==>ble->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11935	12036	
==>ble->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $label, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2211	2314	
==>\$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2211	2314	
==>\$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2211	2314	
==>\$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1432	1549	
==>_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1432	1549	
==>_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1432	1549	
==>_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1075	1171	
==>i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1075	1171	
==>i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1075	1171	
==>i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	108	203	
==>d_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	108	203	
==>d_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	108	203	
==>d_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10278	10445	
==>number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              description => $description,
              passe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	826	983	
==>number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	826	983	
==>number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16939	17063	
==>>, but only affects the first character.


=item uc

 multi Str::uc         (  Str $string              --> Str )
 multi Str: <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1358	1460	
==>id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '"> <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1358	1460	
==>id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '"> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1242	1336	
==>pilrun), and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve as a reference <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15629	15722	
==>For example, a native French or Chinese speaker often prefers to
communicate in those language <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15629	15722	
==>For example, a native French or Chinese speaker often prefers to
communicate in those language <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	500	601	
==>1 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	500	601	
==>1 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5194	5294	
==>ow { 1 }

package type::operator::pair;
use base qw/type::operator::binary/;

sub symbol { "×" }


p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19639	19731	
==>mes you specified in the constructor. For example,
C<Net::IRC> automatically tries to use sli <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19639	19731	
==>mes you specified in the constructor. For example,
C<Net::IRC> automatically tries to use sli <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4973	5118	
==>se Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exist <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4715	4852	
==>+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4715	4852	
==>+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3540	3651	
==>ed1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3540	3651	
==>ed1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3540	3651	
==>ed1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37251	37346	
==>t of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41800	41895	
==>t of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41423	41518	
==>t of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3342	3437	
==>s.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $oth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3342	3437	
==>s.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $oth <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11299	11393	
==>should work with most reg-exps, but given that they are still a
somewhat experimental feature i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11357	11451	
==>should work with most reg-exps, but given that they are still a
somewhat experimental feature i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3181	3308	
==>emporary hack - matching options in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # after <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	536	637	
==>ions between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	536	637	
==>ions between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17062	17166	
==>r::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each char <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12965	13060	
==>$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set conta <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12965	13060	
==>$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7306	7417	
==>));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7306	7417	
==>));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7306	7417	
==>));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1817	1919	
==>N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1817	1919	
==>N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1817	1919	
==>N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	554	693	
==>r returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	554	693	
==>r returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13587	13709	
==>rget, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr target <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1389	1491	
==>> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1389	1491	
==>> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1389	1491	
==>> store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14172	14259	
==>L::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14172	14259	
==>L::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14172	14259	
==>L::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	592	722	
==>} unless @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = shift;
    $self->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	550	672	
==>ck->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX ad <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1034	1156	
==>ck->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1812	1917	
==>n.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1812	1917	
==>n.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1812	1917	
==>n.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6719	6824	
==>urning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6719	6824	
==>urning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6719	6824	
==>urning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: functio <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12131	12238	
==>)             --> {true}.

p6_hexidecimal_escape_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	514	612	
==>ilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	514	612	
==>ilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1117	1225	
==>ude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1117	1225	
==>ude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1117	1225	
==>ude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3170	3322	
==>$data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3170	3322	
==>$data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6095	6232	
==>ation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6095	6232	
==>ation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6095	6232	
==>ation of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__exp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22806	22950	
==>concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23085	23229	
==>concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4395	4517	
==>s zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4395	4517	
==>s zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5234	5340	
==>ion` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35660	35795	
==>_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35660	35795	
==>_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35660	35795	
==>_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2422	2542	
==>- 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2422	2542	
==>- 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | < <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7589	7706	
==>ype,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pVarName) {
    return "is macrop5 $pVarNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6842	6963	
==>ar =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6842	6963	
==>ar =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3992	4102	
==>unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3992	4102	
==>unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3992	4102	
==>unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_contr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4816	4921	
==>js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4816	4921	
==>js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4816	4921	
==>js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5148	5343	
==>ll->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5148	5343	
==>ll->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5148	5343	
==>ll->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7076	7170	
==>> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7076	7170	
==>> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7076	7170	
==>> $attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6500	6597	
==>=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6500	6597	
==>=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9916	10011	
==>erator returned is a function reference.  When called in scalar
context, it returns the next nod <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1347	1535	
==>r_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'wr <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1347	1535	
==>r_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28804	28934	
==>em,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28804	28934	
==>em,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28804	28934	
==>em,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5105	5263	
==>stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16788	16888	
==>pan )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16788	16888	
==>pan )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1241	1360	
==>split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1446	1565	
==>split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1507	1626	
==>split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7141	7236	
==>=> '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return jo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7141	7236	
==>=> '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return jo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7141	7236	
==>=> '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14463	14656	
==>ue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14463	14656	
==>ue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14463	14656	
==>ue::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Arra <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	659	821	
==>lass->methods->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1083	1185	
==>last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return B <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1083	1185	
==>last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5375	5517	
==>sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5375	5517	
==>sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5375	5517	
==>sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5188	5309	
==>.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5188	5309	
==>.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5188	5309	
==>.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubNa <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7238	7329	
==>------------------------------------
## traversal

method traverse ($self: Code $func, Str $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7238	7329	
==>------------------------------------
## traversal

method traverse ($self: Code $func, Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6415	6581	
==>alar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6415	6581	
==>alar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6415	6581	
==>alar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2842	2976	
==>b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2842	2976	
==>b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2842	2976	
==>b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17025	17203	
==>}   
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    our $indent ||= 0;
    local $indent = $indent + 1;
    
    our $seen;
    local $seen = $seen || {} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	997	1099	
==>}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	997	1099	
==>}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15510	15622	
==>end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are j <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15510	15622	
==>end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are j <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15510	15622	
==>end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are j <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1847	2018	
==>ift;
                my $idx = shift;
                my $value = shift;
                $self->_hash_vivifyElem($idx)->scalar_store($value);
            },
            has <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9783	9892	
==>elf.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shif <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9783	9892	
==>elf.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9432	9644	
==>rn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9432	9644	
==>rn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9432	9644	
==>rn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30301	30396	
==>erator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not rese <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34853	34948	
==>erator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not rese <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26498	26612	
==>TIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2100	2209	
==>rol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2100	2209	
==>rol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	899	1007	
==>ng and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	899	1007	
==>ng and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	899	1007	
==>ng and sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13085	13202	
==>values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13085	13202	
==>values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13085	13202	
==>values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8011	8148	
==>lone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8011	8148	
==>lone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21702	21788	
==>eck_offset_max substrs->data[2].max_offset

data[0].substr, aka anchored_substr, is use <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2424	2593	
==>353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2424	2593	
==>353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5935	6085	
==>( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    return o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	539	652	
==>but ran $ran.\n";
	} elsif ($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" wh <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8463	8557	
==>erabilities.  B<Perform your own security analysis before using it in any 
sensitive applicatio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8463	8557	
==>erabilities.  B<Perform your own security analysis before using it in any 
sensitive applicatio <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2528	2646	
==>e, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ $self->{'values'}{'fea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11072	11174	
==>ing>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphert <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11072	11174	
==>ing>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20100	20246	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20100	20246	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20100	20246	
==>t will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	941	1049	
==>->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3043	3138	
==>if available.

=back

In addition, the following request headers are set on the HTTP::Headers ob <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3043	3138	
==>if available.

=back

In addition, the following request headers are set on the HTTP::Headers ob <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8428	8543	
==>sh and
      -M $initrd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $wel <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3178	3287	
==>self = shift;
	bless {%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typical <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4890	4995	
==>eft->fetch($i)->type->to_native;
        # warn "with " . $right->fetch($i)->name->to_native . ' => ' . $r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2677	2863	
==>erbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2677	2863	
==>erbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6744	6976	
==>kie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6744	6976	
==>kie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9113	9216	
==>= $_[0]{$k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recurs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1168	1411	
==>f->{levels}[$_]}, $opt;
            }
            else {
                die "invalid precedence: $opt->{precedence}";
            }
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # it <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2036	2131	
==>erl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout t <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2036	2131	
==>erl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	583	684	
==>arted = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	641	742	
==>arted = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4654	4754	
==>ntain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4654	4754	
==>ntain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6851	6951	
==>ntain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8428	8608	
==>my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8428	8608	
==>my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8428	8608	
==>my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4684	4837	
==>move_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stal <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4684	4837	
==>move_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stal <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	310	450	
==>AME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS sup <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	310	450	
==>AME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS sup <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	839	941	
==>/;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\] <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24406	24548	
==>see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Expres <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	237	337	
==>859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Vo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	237	337	
==>859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Vo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9363	9607	
==>pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9363	9607	
==>pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9363	9607	
==>pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	73	183	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	73	183	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	73	183	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3745	3935	
==>_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system( q <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11620	11737	
==>nect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler foun <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11620	11737	
==>nect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler foun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3119	3314	
==>workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3119	3314	
==>workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3119	3314	
==>workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4044	4160	
==>etical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4056	4172	
==>etical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.* <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4386	4539	
==>nfinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner mul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4386	4539	
==>nfinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner mul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4455	4545	
==>ering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4455	4545	
==>ering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23770	23871	
==>s it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28322	28423	
==>s it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10263	10374	
==>($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10263	10374	
==>($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10263	10374	
==>($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24393	24509	
==>} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24393	24509	
==>} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24393	24509	
==>} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7614	7717	
==>/;
   return $a;
}
sub node::variable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14999	15100	
==>- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $obje <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14999	15100	
==>- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $obje <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3595	3702	
==>d to create a specific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3595	3702	
==>d to create a specific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5792	5899	
==>d to create a specific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4270	4393	
==>6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4270	4393	
==>6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4270	4393	
==>6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9620	9715	
==>e($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - get <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9620	9715	
==>e($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - get <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9620	9715	
==>e($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - get <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	862	964	
==>tion 3.1

sub lookfor($wanted, Code $value = { $^v.[1] }, ?$u) is exported(:all) {
  ## XXX - orig: $wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3920	4022	
==>2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3920	4022	
==>2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	128	299	
==>d, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	128	299	
==>d, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	128	299	
==>d, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	28	136	
==>s::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	28	136	
==>s::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	748	845	
==>became uninteresting
# as a perl6 bootstrap path, which was the objective.

# Interest was express <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	386	499	
==>resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	386	499	
==>resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	386	499	
==>resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	355	449	
==>Test::force_todo_test_junction;

# for running the test suite multiple times in the same proces <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	413	507	
==>Test::force_todo_test_junction;

# for running the test suite multiple times in the same proces <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19449	19550	
==>s a table.

The intended interface and use of this class in Perl programs is similar to
the intended u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24001	24102	
==>s a table.

The intended interface and use of this class in Perl programs is similar to
the intended u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22517	22618	
==>s a table.

The intended interface and use of this class in Perl programs is similar to
the intended u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1290	1409	
==>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1290	1409	
==>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1290	1409	
==>{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15228	15370	
==>(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $test- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16132	16235	
==>check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16132	16235	
==>check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1790	1907	
==>{
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	901	1016	
==>{
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3151	3257	
==>}
    }
}
## tweaked from PIL2JS Array.pm r8593.
#multi List::zip (Array *@arrays --> List) {
#  my $maxlen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8874	9033	
==>'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9067	9226	
==>'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2880	2976	
==>erl backend

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Builtins;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3648	3772	
==>ilable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3648	3772	
==>ilable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3648	3772	
==>ilable in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5674	5789	
==>lsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5674	5789	
==>lsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5674	5789	
==>lsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1578	1692	
==>instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1578	1692	
==>instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1578	1692	
==>instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	13	115	
==>rl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	13	115	
==>rl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	13	115	
==>rl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::cre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14105	14200	
==>ue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14105	14200	
==>ue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	720	834	
==>_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	720	834	
==>_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	720	834	
==>_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21333	21435	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21333	21435	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21333	21435	
==>g to tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2169	2313	
==>';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCx <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	280	414	
==>() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48389	48476	
==>le

$::Module = $::Class->send('new');
$::Module->send('superclasses' => list->new($::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4017	4126	
==>arams->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4017	4126	
==>arams->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4017	4126	
==>arams->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lva <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14552	14655	
==>lp point you
  in the right direction.

  The regexp compiler hook generally gets the pattern _after_ va <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2682	2779	
==>e it work automagically for platforms is really bad. I 
hope that as Pugs matures this will change <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2682	2779	
==>e it work automagically for platforms is really bad. I 
hope that as Pugs matures this will change <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	512	621	
==>r($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	512	621	
==>r($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	512	621	
==>r($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10536	10666	
==>se eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10536	10666	
==>se eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3047	3214	
==>f $round_up {
                $x_round = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4234	4337	
==>nt dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4451	4554	
==>nt dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capt <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	779	951	
==>lue);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    metho <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	779	951	
==>lue);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    metho <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7485	7608	
==>a generic recursive function will be reunified with it's still free variable
	$_[0]->instantiate($_[1]);
};
multi unify => ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9542	9650	
==>s->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9542	9650	
==>s->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9542	9650	
==>s->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1293	1397	
==>->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1293	1397	
==>->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1502	1606	
==>->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6540	6807	
==>other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7004	7271	
==>other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12773	12868	
==>ues are all
negative; positive values are left available for extensions.  Please
refer to L<perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1921	2037	
==>mpile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1921	2037	
==>mpile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1921	2037	
==>mpile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7479	7604	
==>odes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7479	7604	
==>odes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7479	7604	
==>odes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5422	5544	
==>:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5422	5544	
==>:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5422	5544	
==>:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16693	16792	
==>UB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16693	16792	
==>UB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16693	16792	
==>UB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4536	4638	
==>_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4536	4638	
==>_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4536	4638	
==>_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2836	2945	
==>=> ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2836	2945	
==>=> ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2836	2945	
==>=> ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5606	5771	
==>which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6070	6235	
==>which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4582	4698	
==>tuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rule ReservedWord {  # see 7.5.1
      <Keyword>
    | <Future <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16980	17092	
==>($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20457	20569	
==>($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20035	20147	
==>($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1324	1427	
==>2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1324	1427	
==>2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1324	1427	
==>2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1312	1423	
==>:EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1312	1423	
==>:EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1312	1423	
==>:EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14291	14510	
==>ace .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $resul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14291	14510	
==>ace .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $resul <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25011	25098	
==>- set_flag_s(E0,-,E1), !.
set_flag(E0,x,E1)  :- set_flag_x(E0,x,E1), !.
set_flag(E0,-x,E <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2603	2769	
==>VERSAL::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1643	1742	
==><ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1643	1742	
==><ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<P <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2276	2389	
==>endency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3633	3742	
==>endency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40258	40358	
==>arning and
error messages for your sub-class.

  package Your::SubClass;
  # use constant NAME => VAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1140	1263	
==>ey
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1140	1263	
==>ey
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1140	1263	
==>ey
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7678	7857	
==>_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7678	7857	
==>_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7678	7857	
==>_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	567	678	
==>shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	337	448	
==>shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	337	448	
==>shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19701	19821	
==>my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } un <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2248	2343	
==>s perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2248	2343	
==>s perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1398	1497	
==>pport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1398	1497	
==>pport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1398	1497	
==>pport for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1074	1194	
==>"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1074	1194	
==>"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1074	1194	
==>"                  unless @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--ya <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22944	23042	
==>r more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27496	27594	
==>r more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attrib <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7363	7452	
==>_alternative(R2).
p5_condition_alternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3145	3250	
==>' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1487	1589	
==>we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9973	10132	
==>names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9973	10132	
==>names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9973	10132	
==>names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1565	1808	
==>if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12609	12734	
==>m;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12609	12734	
==>m;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3867	3971	
==>plice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3867	3971	
==>plice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3867	3971	
==>plice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3251	3363	
==>lf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3251	3363	
==>lf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3251	3363	
==>lf->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24022	24161	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24301	24440	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::con <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3002	3131	
==>vision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2876	3003	
==>cedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'try',
        assoc => 'no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25028	25125	
==>ta to be used or
displayed by your program.  The Message class is pure and deterministic,
such tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25028	25125	
==>ta to be used or
displayed by your program.  The Message class is pure and deterministic,
such tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4213	4331	
==>turn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4213	4331	
==>turn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4213	4331	
==>turn "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10138	10277	
==>t;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10138	10277	
==>t;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10138	10277	
==>t;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemente <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1403	1504	
==>} @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1403	1504	
==>} @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1403	1504	
==>} @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13250	13389	
==>owever, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13250	13389	
==>owever, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13250	13389	
==>owever, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11238	11459	
==>ay->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11238	11459	
==>ay->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11238	11459	
==>ay->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24436	24647	
==>ethod( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24436	24647	
==>ethod( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24436	24647	
==>ethod( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20118	20252	
==>f the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20118	20252	
==>f the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20118	20252	
==>f the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11707	11869	
==>must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11707	11869	
==>must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11707	11869	
==>must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11666	11784	
==>fine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11666	11784	
==>fine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4554	4656	
==>XX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4554	4656	
==>XX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4554	4656	
==>XX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6688	6814	
==>== -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6688	6814	
==>== -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6688	6814	
==>== -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4987	5087	
==>nt(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4987	5087	
==>nt(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4987	5087	
==>nt(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {.. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15469	15561	
==>ts different
users, such as their preferred language of communication, or their
privileges re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15469	15561	
==>ts different
users, such as their preferred language of communication, or their
privileges re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2426	2526	
==>t->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2426	2526	
==>t->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2426	2526	
==>t->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10262	10356	
==>tory
constructor arguments are provided and that they are of the correct
container type (eg, ha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10262	10356	
==>tory
constructor arguments are provided and that they are of the correct
container type (eg, ha <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12882	12978	
==>eral things. 
For example, when iterating through the span range, the unit is added to the curren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12882	12978	
==>eral things. 
For example, when iterating through the span range, the unit is added to the curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5672	5782	
==>SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5672	5782	
==>SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5672	5782	
==>SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	482	590	
==>e to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	482	590	
==>e to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	482	590	
==>e to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{outpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9015	9138	
==>dd_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9015	9138	
==>dd_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9015	9138	
==>dd_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonica <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3772	3880	
==>7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34127	34224	
==>ach Set Name can be any defined and non-empty string.

=back

This is the main Translator construc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34127	34224	
==>ach Set Name can be any defined and non-empty string.

=back

This is the main Translator construc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12857	13018	
==>s->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12857	13018	
==>s->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12857	13018	
==>s->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11924	12093	
==>xt unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $fa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5986	6085	
==>invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5778	5875	
==>invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $matc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22419	22517	
==>he same result when invoked on the
same object with the same arguments; they do not interact with t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26971	27069	
==>he same result when invoked on the
same object with the same arguments; they do not interact with t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25694	25792	
==>he same result when invoked on the
same object with the same arguments; they do not interact with t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22376	22492	
==>6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22376	22492	
==>6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22376	22492	
==>6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2996	3096	
==>s = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2996	3096	
==>s = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2996	3096	
==>s = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	451	551	
==>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	451	551	
==>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	451	551	
==>{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6216	6317	
==>ul, like custom, for when you don't want to mess
with members belonging to 3rd party classes that your <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6216	6317	
==>ul, like custom, for when you don't want to mess
with members belonging to 3rd party classes that your <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6216	6317	
==>ul, like custom, for when you don't want to mess
with members belonging to 3rd party classes that your <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3835	3949	
==>X - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3835	3949	
==>X - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3835	3949	
==>X - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1430	1542	
==>te an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1430	1542	
==>te an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1430	1542	
==>te an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3539	3648	
==>$_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3539	3648	
==>$_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3539	3648	
==>$_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	91	200	
==>ative
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	91	200	
==>ative
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	91	200	
==>ative
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27075	27194	
==>rser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $self->SUPER::init();

    # no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12586	12705	
==>lf = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24317	24424	
==>@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24317	24424	
==>@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24317	24424	
==>@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()-> <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while3.pl	55	165	
==>i = 1;
do { # keine echte Schleife...
	print "$i\n"; $i++;
	# last if $i==3; # ... würde nicht gehen!
} while( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5914	6019	
==>ate_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5914	6019	
==>ate_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	477	594	
==>ALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	477	594	
==>ALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	477	594	
==>ALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16859	16979	
==>erl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16859	16979	
==>erl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16859	16979	
==>erl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1799	1902	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Tuple objec <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22292	22392	
==>es or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most oft <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22292	22392	
==>es or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most oft <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1329	1455	
==>me";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17391	17493	
==>rated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_typ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17391	17493	
==>rated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	30	133	
==>ngeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	30	133	
==>ngeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	30	133	
==>ngeLog
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash elemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4002	4119	
==>f($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4002	4119	
==>f($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5461	5609	
==>d to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, whic <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5925	6073	
==>d to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, whic <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	582	671	
==>es too)
    (blessed($signature) && ($signature->isa('closure::params') || $signature->isa <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1273	1367	
==>s List
 multi sub sort(Criterion $by ; *@values) returns List
 &sort<> := &sort<Criterion>.assu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6812	6946	
==>dd_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6812	6946	
==>dd_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6812	6946	
==>dd_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4090	4213	
==>ift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return $sel <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3731	3837	
==>ol',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Cxt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9675	9767	
==>C<HTTP::Response> classes, internal to the
library.

The following methods are available:

=o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9675	9767	
==>C<HTTP::Response> classes, internal to the
library.

The following methods are available:

=o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6276	6371	
==>ib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6276	6371	
==>ib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6276	6371	
==>ib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	795	896	
==>s defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- us <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	795	896	
==>s defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36247	36362	
==>(C<(?!>, C<< (?<! >>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ende <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13117	13213	
==>rrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13117	13213	
==>rrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7270	7385	
==>return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3874	3989	
==>return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4723	4838	
==>return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return ' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2634	2738	
==>siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <i <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2634	2738	
==>siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16520	16617	
==>is complex regexes with if-then assertions.  I
don't want to think about that.  This module is mor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9599	9723	
==>$description = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $descriptio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	187	303	
==>$description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	187	303	
==>$description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descriptio <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12837	12979	
==>iles {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { requ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5119	5234	
==>n."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8596	8711	
==>n."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1126	1307	
==>//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @cu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1126	1307	
==>//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2669	2776	
==>t here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2669	2776	
==>t here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2669	2776	
==>t here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3521	3632	
==>s to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3521	3632	
==>s to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3601	3712	
==>s to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6626	6730	
==>XX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6626	6730	
==>XX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6626	6730	
==>XX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3927	4039	
==>ef();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18842	18943	
==>.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	554	663	
==>S:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	554	663	
==>S:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	554	663	
==>S:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2403	2521	
==>var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = $oper->make_node <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9858	9966	
==>_normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringif <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9858	9966	
==>_normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringif <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	216	312	
==>implemented.

# Input a string containing a rpn expression.
# Return the evaluated integer result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3402	3594	
==>'$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3402	3594	
==>'$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3402	3594	
==>'$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	459	548	
==>ef;
$::EigenClass = undef;

## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	459	548	
==>ef;
$::EigenClass = undef;

## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	459	548	
==>ef;
$::EigenClass = undef;

## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5237	5365	
==>' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5237	5365	
==>' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12648	12783	
==>ment $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12648	12783	
==>ment $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9925	10040	
==>eturn $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  $self->add_handler('*' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4416	4587	
==>type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4416	4587	
==>type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11129	11228	
==>eir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11129	11228	
==>eir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11129	11228	
==>eir own BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1024	1124	
==>"infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1024	1124	
==>"infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1024	1124	
==>"infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2563	2662	
==>title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2563	2662	
==>title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2910	3009	
==>title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10026	10240	
==>Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10026	10240	
==>Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10026	10240	
==>Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9097	9222	
==>e( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1231	1346	
==>e( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1231	1346	
==>e( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30335	30430	
==>whose attributes
(provided in C<$heading>) may or may not resemble those of the original. 
The a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34887	34981	
==>whose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34069	34163	
==>whose attributes
(provided in C<$heading>) may or may not resemble those of the original.
The a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2384	2493	
==>c AST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1082	1175	
==>est::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(A <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1140	1233	
==>est::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(A <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	559	673	
==>loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is alwa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8630	8725	
==>, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8630	8725	
==>, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17019	17132	
==>.};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17019	17132	
==>.};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17019	17132	
==>.};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18420	18519	
==>x:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18420	18519	
==>x:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18420	18519	
==>x:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8621	8746	
==>de_body);
	if(!defined $class) {
	    $class = $params->[0]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16621	16720	
==>ount of control as
to what the user sees; it never outputs anything by itself to the user, but
rathe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16621	16720	
==>ount of control as
to what the user sees; it never outputs anything by itself to the user, but
rathe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	354	461	
==>d ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	354	461	
==>d ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	354	461	
==>d ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1896	1999	
==>return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1896	1999	
==>return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1896	1999	
==>return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	118	211	
==>ine('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	118	211	
==>ine('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	118	211	
==>ine('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	454	577	
==>tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	454	577	
==>tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	454	577	
==>tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20646	20738	
==>of the default process described above is overridable by
various methods.

=head1 DISTRIBUTIO <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20646	20738	
==>of the default process described above is overridable by
various methods.

=head1 DISTRIBUTIO <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25837	25921	
==>CH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6584	6682	
==>od should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6584	6682	
==>od should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	317	411	
==>*subscriptions* for it, and converting them to *notifications* when they match
# asking the not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16249	16362	
==>-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16249	16362	
==>-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16249	16362	
==>-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11687	11788	
==>ap->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11687	11788	
==>ap->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11687	11788	
==>ap->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15553	15665	
==>urce into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    pack <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15553	15665	
==>urce into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    pack <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1650	1746	
==>w development notes appear after __END__.

package Regexp::StructHook;

our $inserted = 0;
sub im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18691	18841	
==>) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18691	18841	
==>) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18691	18841	
==>) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Val <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1649	1797	
==>=> ISA_JIB_REPOSITORY },
    };

    sub new {
        my $class = shift;
        my %hash  = @_;
        
        ### might get params for underlyin <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14249	14366	
==>ave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1729	1846	
==>ave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6152	6276	
==>lobify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6152	6276	
==>lobify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6152	6276	
==>lobify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10479	10680	
==>>params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10479	10680	
==>>params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10479	10680	
==>>params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i > <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	936	1044	
==>%variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WI <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	936	1044	
==>%variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19223	19380	
==>ther, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19223	19380	
==>ther, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19223	19380	
==>ther, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	485	594	
==>ew_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	485	594	
==>ew_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	485	594	
==>ew_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9935	10067	
==>r = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9935	10067	
==>r = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9935	10067	
==>r = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23333	23436	
==>xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23333	23436	
==>xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23333	23436	
==>xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12220	12327	
==>{

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15697	15804	
==>{

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15050	15157	
==>{

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 or <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3352	3473	
==>ee S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3363	3484	
==>ee S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	484	580	
==>te_nodes($program);

	$self->{seen} = {};

	return $self->reduce($program) unless @nodes;

	$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10041	10197	
==>[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10041	10197	
==>[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10041	10197	
==>[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modificat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1499	1590	
==>----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1499	1590	
==>----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Dat <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6160	6248	
==>:Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	298	420	
==>elf->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	298	420	
==>elf->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	298	420	
==>elf->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2748	2846	
==>%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2748	2846	
==>%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2748	2846	
==>%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3235	3351	
==>y $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creatin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3235	3351	
==>y $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creatin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3235	3351	
==>y $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creatin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4813	4981	
==>t_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8290	8458	
==>t_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7292	7460	
==>t_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relati <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11714	11831	
==>us{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2146	2253	
==>us{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2146	2253	
==>us{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7364	7495	
==>array.elems;
 }


# XXX - todo: define these all in terms of kv, and leave kv a stub {...}.
 multi Array::keys   (@array ; MatchTest <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1062	1176	
==>($block) && $block->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6435	6535	
==>arnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13513	13631	
==>ttribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13513	13631	
==>ttribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13513	13631	
==>ttribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	575	668	
==>uperclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	575	668	
==>uperclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	575	668	
==>uperclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33671	33796	
==>array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33671	33796	
==>array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33671	33796	
==>array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3614	3716	
==>he code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3614	3716	
==>he code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3614	3716	
==>he code to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1643	1825	
==>bel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1643	1825	
==>bel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1643	1825	
==>bel} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itse <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19691	19810	
==>= @_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPARE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16328	16426	
==>es the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16328	16426	
==>es the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	419	527	
==>y $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } : 0 )" <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4693	4788	
==>$0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4693	4788	
==>$0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	148	258	
==>ister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	148	258	
==>ister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	148	258	
==>ister "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5863	5983	
==>sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5863	5983	
==>sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6453	6573	
==>sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETCHSIZE {
  scalar @{$_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	683	796	
==>urns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	683	796	
==>urns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5049	5153	
==>Completion_type.new(); }
   has $.type;
   has $.value;
   has $.target;
   method is_abrupt_completion() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3856	3973	
==>t the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typecheckin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3856	3973	
==>t the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typecheckin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3856	3973	
==>t the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typecheckin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	771	871	
==>*infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	771	871	
==>*infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13992	14112	
==>oot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13992	14112	
==>oot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13992	14112	
==>oot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5816	5925	
==>TAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5816	5925	
==>TAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5816	5925	
==>TAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4822	5020	
==>ed) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Sh <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4822	5020	
==>ed) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Sh <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	797	882	
==>--------------------------------------
# Regexps
# ----------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11454	11580	
==>& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11454	11580	
==>& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11454	11580	
==>& $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1272	1387	
==>rgument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1272	1387	
==>rgument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1272	1387	
==>rgument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Read <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8130	8224	
==>_[0]) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rseq->values)[-1]->type, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2462	2552	
==>f;
}

## ----------------------------------------------------------------------------
## ge <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2462	2552	
==>f;
}

## ----------------------------------------------------------------------------
## ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	454	552	
==>ostcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	454	552	
==>ostcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	454	552	
==>ostcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	250	352	
==>case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns A <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	250	352	
==>case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns A <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26424	26524	
==>Y_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14868	14964	
==>eractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flav <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14868	14964	
==>eractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flav <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14868	14964	
==>eractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8354	8591	
==>y($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8354	8591	
==>y($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8354	8591	
==>y($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20652	20764	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20652	20764	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20652	20764	
==>opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

meta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7906	8022	
==>rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7894	8010	
==>rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4894	4988	
==>ing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5087	5181	
==>ing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26363	26534	
==>', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26363	26534	
==>', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26363	26534	
==>', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10261	10424	
==>('^^' => sub {
    my ($S) = @_;
    return $S->object(bol => bol => '^^');
  });


  ### '&'


  ### '*'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    p <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8309	8439	
==>56),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8309	8439	
==>56),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3522	3631	
==>+$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6999	7108	
==>+$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5956	6065	
==>+$mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relatio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5443	5552	
==>s! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cac <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5443	5552	
==>s! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	502	597	
==>!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	502	597	
==>!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5501	5626	
==>alue::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5501	5626	
==>alue::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5501	5626	
==>alue::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2951	3062	
==>me;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2951	3062	
==>me;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2951	3062	
==>me;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1391	1499	
==>uto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1391	1499	
==>uto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1391	1499	
==>uto-deref List or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10248	10362	
==>cal headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13725	13839	
==>cal headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13006	13120	
==>cal headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the stan <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21167	21259	
==>s joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21167	21259	
==>s joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7481	7590	
==>turn a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" lev <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2198	2302	
==>g $P) {
    return JSX::true if $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]>;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7228	7332	
==>turn a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" lev <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24057	24198	
==>v }  # turn the flag on
      else { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supporte <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19918	20025	
==>bj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
sub inpath_to_outpath {
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2226	2324	
==>s.

These variables can be used to configure the behavior of
Test::Harness.  They are exported on r <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1391	1488	
==>extarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textar <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1391	1488	
==>extarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1972	2067	
==>Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1972	2067	
==>Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1972	2067	
==>Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3209	3341	
==>});
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3209	3341	
==>});
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2145	2278	
==>:node<Thread>),
                        Tree.new(:node<Code>).add_children(
                            Tree.new(:node<Routine>).add_c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1841	1945	
==>eturns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1841	1945	
==>eturns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8118	8225	
==>osure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8118	8225	
==>osure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8118	8225	
==>osure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2562	2669	
==>,
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2562	2669	
==>,
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2562	2669	
==>,
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5178	5290	
==>( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5178	5290	
==>( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AS <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3058	3169	
==>et.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $cla <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3058	3169	
==>et.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $cla <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1672	1801	
==>l>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1672	1801	
==>l>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7036	7157	
==>>= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Resu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23845	23962	
==>push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $h = $S-> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5943	6041	
==>in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5943	6041	
==>in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1435	1537	
==>command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1435	1537	
==>command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1435	1537	
==>command_conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
comma <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3371	3471	
==>ents a single test within the
Test::Builder framework. The class itself is actually a factory for
cla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3371	3471	
==>ents a single test within the
Test::Builder framework. The class itself is actually a factory for
cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5568	5668	
==>ents a single test within the
Test::Builder framework. The class itself is actually a factory for
cla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26410	26523	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26689	26802	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application = <==
3	/Users/nnunley/pugs/util/config_h.pl	150	253	
==>rmine some configuration.

  util/config_h.pl GHC BASEDIR

  GHC     - Location and flags of the ghc exe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7238	7344	
==>h = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    m <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7238	7344	
==>h = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14661	14765	
==>ss .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, mp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6039	6141	
==>e', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
no <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6039	6141	
==>e', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
no <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2938	3040	
==>e', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8258	8372	
==>known node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8270	8384	
==>known node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	255	405	
==>{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	255	405	
==>{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	255	405	
==>{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SEL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8962	9075	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9155	9268	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation => <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	423	521	
==>$class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %pa <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	423	521	
==>$class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11946	12029	
==>oct_chars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars_more(R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2147	2255	
==>sage ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2147	2255	
==>sage ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21977	22066	
==>LTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21977	22066	
==>LTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21977	22066	
==>LTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3313	3445	
==>an{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3313	3445	
==>an{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3313	3445	
==>an{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	355	492	
==>}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	355	492	
==>}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1813	1911	
==>bove.

If anyone would like to help out, let me know, and I'll upload more of
the development envir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4811	4963	
==>$::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6573	6725	
==>$::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28197	28294	
==>he object's data.  This might be an array reference (for a 'branch'
node), another object (for a ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4113	4226	
==>?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4113	4226	
==>?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4113	4226	
==>?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35938	36036	
==>on, and the argument
of 1 means it's a look-ahead.  We send the unrolled contents of the
array refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26398	26617	
==>) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26398	26617	
==>) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26398	26617	
==>) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36499	36603	
==>ations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41048	41152	
==>ations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40662	40766	
==>ations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6904	7032	
==>nd - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6904	7032	
==>nd - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6904	7032	
==>nd - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6205	6325	
==>{
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_param <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6205	6325	
==>{
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_param <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19456	19552	
==>Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2269	2368	
==>$set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $inters <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2269	2368	
==>$set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $inters <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3374	3486	
==>sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3374	3486	
==>sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4898	5010	
==>sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2642	2740	
==>eading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2642	2740	
==>eading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2642	2740	
==>eading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	915	1036	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	915	1036	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	915	1036	
==>) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16993	17104	
==>oin "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ clo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5004	5114	
==>_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_no <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5004	5114	
==>_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14179	14274	
==>:Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \% <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14179	14274	
==>:Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \% <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14179	14274	
==>:Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hashref => \% <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6022	6122	
==>t Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  g <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6022	6122	
==>t Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12029	12144	
==>}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12029	12144	
==>}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12029	12144	
==>}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3751	3857	
==>f ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3751	3857	
==>f ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4341	4447	
==>f ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optio <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1489	1600	
==>d dispatch need not look at the meta
objects; each dispatch table points directly to its "superclass"
dispatch t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1044	1146	
==>y $args = $self->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29108	29202	
==>timing routines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7981	8118	
==>arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7981	8118	
==>arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7981	8118	
==>arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2403	2509	
==>= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2403	2509	
==>= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2403	2509	
==>= 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2131	2225	
==>l2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2131	2225	
==>l2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2131	2225	
==>l2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	822	913	
==>Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	822	913	
==>Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	822	913	
==>Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	25	141	
==>::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	25	141	
==>::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	25	141	
==>::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	713	829	
==>"js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	713	829	
==>"js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	713	829	
==>"js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2115	2211	
==>->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2115	2211	
==>->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2115	2211	
==>->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8517	8612	
==>w_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8517	8612	
==>w_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8517	8612	
==>w_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2000	2098	
==>)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2000	2098	
==>)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2000	2098	
==>)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15588	15696	
==>urn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method comp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15588	15696	
==>urn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method comp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15588	15696	
==>urn ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method comp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9296	9396	
==>er!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12773	12873	
==>er!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14551	14636	
==>n::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14551	14636	
==>n::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14551	14636	
==>n::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1194	1319	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1194	1319	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1194	1319	
==>le')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5018	5123	
==>ub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5018	5123	
==>ub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5018	5123	
==>ub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefine <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1420	1569	
==>5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8729	8829	
==>pth fields appropriately.
# This method is called automatically when 
# a subtree is added to a child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8729	8829	
==>pth fields appropriately.
# This method is called automatically when 
# a subtree is added to a child <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8770	8912	
==>ol => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8770	8912	
==>ol => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31084	31183	
==>h which it was created.

=item flags

The flags for the object.

=back

The following attributes may <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17305	17424	
==>ch ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17305	17424	
==>ch ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17305	17424	
==>ch ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5803	5925	
==>y $noop = $o->noop;
    my $re = $o->raw();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $_[0]; TAILCALL( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2510	2616	
==>o into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2510	2616	
==>o into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __P <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9853	9998	
==>(closure new             
            (($::ENV)
             (closure::signature new 
                ((params  (closure::params new (symbol new ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5973	6089	
==>func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5973	6089	
==>func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5973	6089	
==>func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2096	2203	
==>-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2096	2203	
==>-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2096	2203	
==>-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3279	3375	
==>Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3279	3375	
==>Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3279	3375	
==>Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is prim <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3195	3317	
==>) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3195	3317	
==>) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3195	3317	
==>) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6264	6365	
==>ehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my($se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1145	1282	
==>(?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1099	1229	
==>(?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	25	128	
==>ufruf in Perl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto sagt: ", ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11134	11232	
==>wn BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11134	11232	
==>wn BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11134	11232	
==>wn BUILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1334	1430	
==>eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1334	1430	
==>eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1334	1430	
==>eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8172	8322	
==>ods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8172	8322	
==>ods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8172	8322	
==>ods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1614	1718	
==>e} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1614	1718	
==>e} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1614	1718	
==>e} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not - <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	531	636	
==>lement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	531	636	
==>lement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9216	9379	
==>$length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9216	9379	
==>$length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9216	9379	
==>$length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25218	25358	
==>get('?@superclasses')); 
                          # clear the MRO now
                          $e->get('$self:')->set_attr(symbol->new('@:M <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2822	2925	
==>ry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22718	22833	
==>,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11063	11170	
==>( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11213	11320	
==>( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29251	29378	
==>{ return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29530	29657	
==>{ return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9103	9205	
==>span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is cop <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9103	9205	
==>span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is cop <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5500	5593	
==>mplate->new(filename => 'util/catalog_tmpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24417	24564	
==>lt, "?% okay";
    }
    my $ender = 's' x ($skipped > 1);
    if ($skipped) {
        my $good = $max - $failed - $skipped;
        my $skipmsg = " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3312	3414	
==>print_program => $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3529	3631	
==>print_program => $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4595	4702	
==>ow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5080	5187	
==>ow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2574	2668	
==>nction named for its class (without the prefix) is
exported. This is very convenient for constr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8452	8563	
==>(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8452	8563	
==>(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8452	8563	
==>(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1659	1758	
==>$fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compile") or die "open $compile: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	542	645	
==>-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	542	645	
==>-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	542	645	
==>-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	54	165	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	54	165	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	54	165	
==>xup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6451	6572	
==>c(... func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.sub <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3057	3173	
==>~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    fo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3057	3173	
==>~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2672	2889	
==>*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2683	2900	
==>*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6076	6168	
==>$_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6076	6168	
==>$_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6076	6168	
==>$_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8394	8569	
==>AL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12307	12478	
==>AL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12307	12478	
==>AL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	321	416	
==>ngification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	321	416	
==>ngification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	321	416	
==>ngification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2344	2563	
==>bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1476	1639	
==>bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1476	1639	
==>bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10763	10869	
==>() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10763	10869	
==>() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10763	10869	
==>() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4222	4356	
==>ol,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4415	4549	
==>ol,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4198	4452	
==>less ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4198	4452	
==>less ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17211	17314	
==>This is not a Unicode "titlecase" operation, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8288	8429	
==>cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8288	8429	
==>cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8288	8429	
==>cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3302	3442	
==>$sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3290	3430	
==>$sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TOD <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	333	459	
==>$RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	333	459	
==>$RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17868	18028	
==>$t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21345	21505	
==>$t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20932	21092	
==>$t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	534	638	
==>e_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	534	638	
==>e_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	534	638	
==>e_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11558	11756	
==>{ 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11558	11756	
==>{ 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11558	11756	
==>{ 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7837	7968	
==>+ "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7837	7968	
==>+ "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7837	7968	
==>+ "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	486	587	
==>ing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	486	587	
==>ing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	486	587	
==>ing this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8073	8213	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8266	8406	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	64	155	
==>qw/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

use strict;
use warnings;

use UNIVE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4343	4502	
==>f $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4211	4365	
==>f $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	44	125	
==>r/local/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Insta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1554	1698	
==>P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1554	1698	
==>P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4353	4448	
==>opied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivecd.pl automatically generates a gzipped <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1411	1538	
==>th, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module: <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1411	1538	
==>th, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8020	8215	
==>ote: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4380	4575	
==>ote: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5229	5424	
==>ote: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1624	1741	
==>> 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1624	1741	
==>> 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11034	11148	
==>m->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11034	11148	
==>m->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11034	11148	
==>m->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	999	1088	
==>uePrimitive;
class JSX::Value::Object is JSX::Value;
class JSX::Value::Array is JSX::Value <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3010	3133	
==>hods
### see above for details
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = sh <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1741	1833	
==>V->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1 <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1741	1833	
==>V->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1693	1789	
==>turn ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1693	1789	
==>turn ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clea <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4539	4642	
==>the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Retur <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4539	4642	
==>the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9361	9463	
==>_iFoo_singleton_method(), 
   '$iFoo::test_iFoo_singleton_method',
   '... got the right return value f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1348	1445	
==>rt {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1348	1445	
==>rt {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36822	36915	
==>at is like
C<union> except that the returned Relation::Example contains only tuples that are i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37322	37415	
==>at is like
C<union> except that the returned Relation::Example contains only tuples that are i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3858	3978	
==>P5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3858	3978	
==>P5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3858	3978	
==>P5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1749	1865	
==>* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1749	1865	
==>* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1749	1865	
==>* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3402	3512	
==>ams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3402	3512	
==>ams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3402	3512	
==>ams->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3371	3494	
==>self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3371	3494	
==>self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3371	3494	
==>self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16445	16602	
==>datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20871	21028	
==>datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9026	9173	
==>/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9026	9173	
==>/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13464	13557	
==>digit(D), hexdigits(T), !.
hexdigits([])    --> [].
hexdigit(D) --> [D], { code_type(D, xdigit <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5893	6017	
==>is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5893	6017	
==>is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representi <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	513	635	
==>Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year($yea <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2250	2377	
==>xtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtSl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1241	1344	
==>$block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1241	1344	
==>$block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4367	4491	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4367	4491	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4367	4491	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6044	6224	
==>f, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6044	6224	
==>f, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6044	6224	
==>f, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2578	2691	
==>plate =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $template =~ s/<o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4583	4691	
==>rogram = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4366	4469	
==>rogram = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3732	3883	
==>eter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3732	3883	
==>eter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	291	393	
==>sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24866	24994	
==>t;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Reg <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1212	1302	
==>*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_build_exclude_re() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1896	2024	
==>val($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1896	2024	
==>val($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1896	2024	
==>val($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    prin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6758	6870	
==>ign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7130	7242	
==>ign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7429	7541	
==>ign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7950	8076	
==>s_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7950	8076	
==>s_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7950	8076	
==>s_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	121	214	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	121	214	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	121	214	
==>indBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1793	1934	
==>atch = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1733	1871	
==>atch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1414	1522	
==>ler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1414	1522	
==>ler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*gramma <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16420	16509	
==>pression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <RelationalExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	267	369	
==>a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	267	369	
==>a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	267	369	
==>a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18194	18296	
==>s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18194	18296	
==>s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18194	18296	
==>s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5709	5817	
==>l_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5709	5817	
==>l_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5709	5817	
==>l_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } el <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	471	574	
==>~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [ <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	471	574	
==>~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13665	13768	
==>p><br />
              <a href="<tmpl_var name=link>" title="Full smoke report">View full smoke report</ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40662	40790	
==>ef}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40662	40790	
==>ef}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40662	40790	
==>ef}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20692	20801	
==>ce')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20692	20801	
==>ce')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20692	20801	
==>ce')->{$label} = $value;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7402	7489	
==>pos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7402	7489	
==>pos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7402	7489	
==>pos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is prim <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2868	3097	
==>" $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    ret <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2868	3097	
==>" $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1527	1626	
==>evels}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self->{levels}[$_]} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	811	983	
==>},
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	811	983	
==>},
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	811	983	
==>},
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7682	7791	
==>Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7682	7791	
==>Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7682	7791	
==>Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_i <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	535	657	
==>ker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemake <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	436	558	
==>ker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemake <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	439	558	
==>{ source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7535	7699	
==>mper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7535	7699	
==>mper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10661	10771	
==>end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	469	583	
==>tr {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	469	583	
==>tr {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17335	17443	
==>l_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expected : $expected <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38511	38639	
==>d_method' => (
    # method label
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5486	5640	
==>$n->{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            return "u <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2764	2904	
==>od is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - ad <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2764	2904	
==>od is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8084	8206	
==>onfess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8084	8206	
==>onfess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8084	8206	
==>onfess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2988	3195	
==>w( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2988	3195	
==>w( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2988	3195	
==>w( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8682	8859	
==>lf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8682	8859	
==>lf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8682	8859	
==>lf->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17360	17582	
==>( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17360	17582	
==>( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17360	17582	
==>( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36718	36838	
==>XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36718	36838	
==>XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36718	36838	
==>XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1291	1422	
==>al, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1291	1422	
==>al, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1291	1422	
==>al, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    r <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10525	10642	
==>fined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it wit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10525	10642	
==>fined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it wit <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	134	236	
==>-1) :length(1));

multi sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2686	2788	
==>GS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2686	2788	
==>GS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2686	2788	
==>GS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2164	2293	
==>l:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2164	2293	
==>l:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2164	2293	
==>l:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	248	342	
==>TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	248	342	
==>TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message hea <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1726	1820	
==>ile::Spec->catfile($path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4792	4910	
==>Value',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4792	4910	
==>Value',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1698	1816	
==>Value',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1089	1195	
==>e had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is cle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1089	1195	
==>e had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is cle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1089	1195	
==>e had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is cle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	728	883	
==>=> 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	728	883	
==>=> 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	728	883	
==>=> 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::o <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	78	192	
==>class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($self:) returns Tree {
    # create the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24702	24798	
==>that Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24702	24798	
==>that Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6887	6987	
==>dy was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6887	6987	
==>dy was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kick <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	712	808	
==>print { $fh } <<'END';
</ul>
<p>
Or <a href="#" onclick="openNewWindows(); return false;">open ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6152	6319	
==>bute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6152	6319	
==>bute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6152	6319	
==>bute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1912	2025	
==>od));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1912	2025	
==>od));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1912	2025	
==>od));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4739	4927	
==>)->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4739	4927	
==>)->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4739	4927	
==>)->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1069	1185	
==>sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1069	1185	
==>sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1069	1185	
==>sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	53	157	
==>6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	53	157	
==>6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	53	157	
==>6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9249	9372	
==>erl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9249	9372	
==>erl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9249	9372	
==>erl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1027	1147	
==>_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1427	1547	
==>_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1901	2021	
==>_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10615	10728	
==>ror(mob, pos, "Error in closure quantifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string targe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	155	253	
==>ead1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	155	253	
==>ead1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3198	3360	
==>);
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3198	3360	
==>);
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3198	3360	
==>);
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	187	299	
==>perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	187	299	
==>perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	187	299	
==>perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7849	7986	
==>);

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1074	1176	
==>n; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but perfo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1074	1176	
==>n; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but perfo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1074	1176	
==>n; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work but perfo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35365	35464	
==>es in common; it will only accept inputs that would result in
a cross-product when joined.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39915	40014	
==>es in common; it will only accept inputs that would result in
a cross-product when joined.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39475	39574	
==>es in common; it will only accept inputs that would result in
a cross-product when joined.  This met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3360	3481	
==>Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3371	3492	
==>Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1425	1540	
==>_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1425	1540	
==>_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1425	1540	
==>_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchai <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4487	4600	
==>Param]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,' <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1275	1388	
==>cr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += GolfScore($s) }
   print "You shot a round of $tot strokes. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4487	4600	
==>Param]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,' <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3011	3286	
==>ent>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3011	3286	
==>ent>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	40	138	
==>any maintainers:
# The load order for Module::Install is a bit magic.
# It goes something like this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26350	26520	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26350	26520	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26350	26520	
==>r =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21032	21152	
==>andler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17453	17573	
==>andler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    retu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16435	16582	
==>t($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $builtin = $self->reduce($builtin);
        }
        $val- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1379	1489	
==>t {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $it <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1379	1489	
==>t {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	491	616	
==>$a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	491	616	
==>$a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	491	616	
==>$a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21197	21474	
==>ew();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21197	21474	
==>ew();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21197	21474	
==>ew();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UN <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10199	10310	
==>urn $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S->ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1673	1763	
==>gs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1673	1763	
==>gs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10345	10516	
==>,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10345	10516	
==>,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10345	10516	
==>,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2162	2291	
==>rol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2162	2291	
==>rol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2162	2291	
==>rol:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5071	5202	
==>rl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8. <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5071	5202	
==>rl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6999	7100	
==>> "\0", "\\x[0]") if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11313	11507	
==>);
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11313	11507	
==>);
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11313	11507	
==>);
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7197	7298	
==>ect::singleton_test_on_object',
  '... still got the right return value from first Object singleton/cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8192	8293	
==>ect::singleton_test_on_object',
  '... still got the right return value from first Object singleton/cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10761	10862	
==>ect::singleton_test_on_object',
  '... still got the right return value from first Object singleton/cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	124	212	
==>gInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	124	212	
==>gInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	124	212	
==>gInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2442	2562	
==>returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    w <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2442	2562	
==>returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    w <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5880	5995	
==>> sub { $welcomed++ },
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can stop this program by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3588	3690	
==>d_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3588	3690	
==>d_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3588	3690	
==>d_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $sel <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	516	635	
==>ptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{siteprefi <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	859	970	
==>' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	826	937	
==>' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2561	2678	
==>small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icel <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2561	2678	
==>small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icel <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	22075	22176	
==>= -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $file > $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1004	1119	
==>);
    return "package $ident;\n" .
           "use base 'Pugs::Grammar::Base';\n";
}
sub node::rule_decl {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6009	6113	
==>epresenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6009	6113	
==>epresenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1011	1121	
==>e_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1011	1121	
==>e_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1011	1121	
==>e_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5261	5398	
==>OK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5023	5127	
==>setta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5023	5127	
==>setta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1204	1303	
==>_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1204	1303	
==>_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1204	1303	
==>_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4305	4407	
==>Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4305	4407	
==>Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4305	4407	
==>Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5173	5277	
==>t('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Ro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5173	5277	
==>t('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Ro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5173	5277	
==>t('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	125	225	
==>nformation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	125	225	
==>nformation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	125	225	
==>nformation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1747	1868	
==>p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1747	1868	
==>p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1747	1868	
==>p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3581	3685	
==>e !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3581	3685	
==>e !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3581	3685	
==>e !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10093	10190	
==>t at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially j <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10093	10190	
==>t at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially j <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5252	5428	
==>reate ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$curren <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7014	7190	
==>reate ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$curren <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2131	2262	
==>&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8139	8269	
==>p while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8139	8269	
==>p while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    meth <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	157	255	
==>ead1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34698	34825	
==>= @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34698	34825	
==>= @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34698	34825	
==>= @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3263	3400	
==>ray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3263	3400	
==>ray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3263	3400	
==>ray)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5645	5748	
==>e $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5645	5748	
==>e $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) d <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10079	10174	
==>og->get($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(env => $env, %$_) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	826	924	
==>e_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	826	924	
==>e_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	826	924	
==>e_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1542	1658	
==>Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1542	1658	
==>Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1542	1658	
==>Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1857	1957	
==>", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1857	1957	
==>", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1857	1957	
==>", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14265	14413	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14265	14413	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14265	14413	
==>binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_chan <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5508	5634	
==>pan = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5508	5634	
==>pan = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9492	9584	
==>e ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9492	9584	
==>e ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9492	9584	
==>e ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1400	1507	
==>p=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    [' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10906	11027	
==>] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^'] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11056	11177	
==>] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^'] <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37036	37132	
==>tribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3618	3722	
==>/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3618	3722	
==>/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3618	3722	
==>/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8820	8914	
==>is event handles the entire verbatim string.

=item I<string>

This event processes raw strings <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8820	8914	
==>is event handles the entire verbatim string.

=item I<string>

This event processes raw strings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4956	5084	
==>'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4956	5084	
==>'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4956	5084	
==>'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5439	5604	
==>=> $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5439	5604	
==>=> $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5439	5604	
==>=> $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16852	16949	
==>oding

The Content-Encoding header field is used as a modifier to the
media type.  When present, i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16852	16949	
==>oding

The Content-Encoding header field is used as a modifier to the
media type.  When present, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3186	3285	
==>is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3186	3285	
==>is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3186	3285	
==>is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2252	2347	
==>Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=it <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2341	2436	
==>Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=it <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12294	12425	
==>min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self- <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13848	13943	
==>int "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13848	13943	
==>int "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item en <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11490	11612	
==>e {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3873	3984	
==>rn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3873	3984	
==>rn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3873	3984	
==>rn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $disp <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1452	1583	
==>bmitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	163	265	
==>version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('W <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	163	265	
==>version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('W <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	834	967	
==>{
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	834	967	
==>{
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9336	9458	
==>nd it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/cygdrive|[A-Za-z <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3089	3194	
==>of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new(
				type => Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	867	956	
==>Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	867	956	
==>Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17405	17505	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17405	17505	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17405	17505	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2480	2610	
==>h'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2480	2610	
==>h'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2480	2610	
==>h'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14581	14686	
==>e_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14581	14686	
==>e_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14581	14686	
==>e_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22386	22501	
==>f;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6415	6526	
==>nce_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6415	6526	
==>nce_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6415	6526	
==>nce_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	587	691	
==>q; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	587	691	
==>q; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	587	691	
==>q; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1678	1782	
==>f->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified varia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1678	1782	
==>f->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified varia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1678	1782	
==>f->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified varia <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2494	2617	
==>end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns Li <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2494	2617	
==>end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns Li <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4963	5069	
==>$!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4963	5069	
==>$!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30318	30412	
==>')' (via C<&RxPOS-->) and returns false, to
pretend it didn't actually match.  The real closing <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	287	406	
==>*
        # time - optional, defaults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optiona <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22409	22534	
==>ack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	87	211	
==>plate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BU <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	87	211	
==>plate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BU <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6613	6724	
==>cate the case-preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5486	5613	
==>= base
    $If0 += $I1
    inc pos
    goto term_bx1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4173	4276	
==>.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4173	4276	
==>.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4173	4276	
==>.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21827	21927	
==>gest name string for formatting purposes.
    my $max_namelen = length($failed_str);
    foreach my $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4555	4652	
==><cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  Ma <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4555	4652	
==><cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  Ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14871	14968	
==>with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.siz <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18348	18445	
==>with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.siz <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17764	17861	
==>with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	223	354	
==>_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	223	354	
==>_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	223	354	
==>_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14091	14227	
==>k) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 's <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10264	10400	
==>k) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 's <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11100	11236	
==>k) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 's <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2305	2436	
==>$_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2216	2343	
==>$_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19298	19409	
==>,
		),
	),
);

# if we don't know what symbol it is we can't type it
my $no_such_sym = fun(
	param => "x",
	body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6742	6924	
==>line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6742	6924	
==>line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pm <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3870	4002	
==>n anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2602	2730	
==>ative;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2602	2730	
==>ative;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2602	2730	
==>ative;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	839	955	
==>ent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	839	955	
==>ent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	839	955	
==>ent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3545	3656	
==>d, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3545	3656	
==>d, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3545	3656	
==>d, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27133	27224	
==>ed
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31685	31776	
==>ed
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3381	3477	
==>ODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3381	3477	
==>ODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3381	3477	
==>ODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5462	5564	
==>$xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5462	5564	
==>$xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5462	5564	
==>$xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	663	759	
==>}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	663	759	
==>}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	663	759	
==>}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5861	5987	
==>, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5861	5987	
==>, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7541	7655	
==>2,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internals_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5691	5818	
==>($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5691	5818	
==>($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5691	5818	
==>($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5125	5237	
==>undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5125	5237	
==>undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5125	5237	
==>undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	821	916	
==>ilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	821	916	
==>ilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	901	996	
==>ilder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# popu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	100	241	
==>ness::Straps;
use Test::Harness::Assert;
use Exporter;
use Benchmark;
use Config;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EX <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37553	37643	
==>nd tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37553	37643	
==>nd tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $module <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6900	7046	
==>rt} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6673	6810	
==>rt} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1463	1580	
==>:Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $type);
	}

}

{
	package B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2775	2885	
==>g);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2775	2885	
==>g);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2775	2885	
==>g);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3726	3861	
==>defined $got || defined $isnt;
    }
    else {
        $pass = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	586	692	
==>rl} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	553	659	
==>rl} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9788	9905	
==>et2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9788	9905	
==>et2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33659	33754	
==>where each
element is a Template module Member Name and usually corresponds to a
language like E <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33659	33754	
==>where each
element is a Template module Member Name and usually corresponds to a
language like E <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28883	29002	
==>yApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28883	29002	
==>yApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	250	357	
==>yApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17835	17952	
==>e" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16843	16942	
==>, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16843	16942	
==>, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	715	805	
==>erl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* Ne <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	715	805	
==>erl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* Ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1244	1348	
==>SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1244	1348	
==>SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1244	1348	
==>SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3 <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1029	1256	
==>1 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1029	1256	
==>1 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1165	1312	
==>truct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$struct ) {
        $str .= ' AND ';

        if( ! <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4737	4857	
==>| <BooleanLiteral>
}
rule Keyword {  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1077	1184	
==>anonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless su <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1077	1184	
==>anonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless su <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10573	10691	
==>$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO is primitive is unsafe is builtin {
        die "fancy open m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5774	5873	
==>ty is to return a negative value for
# relative seconds and a positive value for epoch based time va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5774	5873	
==>ty is to return a negative value for
# relative seconds and a positive value for epoch based time va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8718	8898	
==>y $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8718	8898	
==>y $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8718	8898	
==>y $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1423	1522	
==>th (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1423	1522	
==>th (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14630	14728	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14630	14728	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14630	14728	
==>> ::make_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8949	9062	
==>locks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8949	9062	
==>locks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28467	28559	
==>tributes are being combined/wrapped, with
its keys being the new tuple-valued attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33019	33111	
==>tributes are being combined/wrapped, with
its keys being the new tuple-valued attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32147	32239	
==>tributes are being combined/wrapped, with
its keys being the new tuple-valued attribute names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1347	1438	
==>main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1347	1438	
==>main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1347	1438	
==>main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7417	7535	
==>val_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4021	4139	
==>val_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4870	4988	
==>val_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9886	9982	
==>eturn $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9886	9982	
==>eturn $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9886	9982	
==>eturn $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9428	9568	
==>ts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9428	9568	
==>ts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9428	9568	
==>ts); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	709	827	
==>| exists $param->{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use us <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7202	7314	
==>num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4423	4531	
==>sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4423	4531	
==>sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5155	5262	
==>$_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2697	2804	
==>$_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3478	3585	
==>$_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2364	2486	
==>function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2364	2486	
==>function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2364	2486	
==>function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4651	4752	
==>eturn ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4651	4752	
==>eturn ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4651	4752	
==>eturn ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self => '%:nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4768	4888	
==>die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4768	4888	
==>die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4768	4888	
==>die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11331	11487	
==>dy', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11331	11487	
==>dy', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', u <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1140	1237	
==>ig{"exclude"}};
if(!@ARGV) {
    @ARGV = sort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

h <==
3	/Users/nnunley/pugs/util/package-osx.pl	8806	8924	
==>dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "C <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	818	925	
==>educer::DuplicateFinder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	629	724	
==>Helpers:: is for more generally useful stuff, and need not be
  implemented immediately.  Assume <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6651	6830	
==>ush(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elem <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6651	6830	
==>ush(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elem <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13037	13145	
==>sub reduce_val { $_[1]->val }

sub reduce_stub {
    my $self = shift;
    die "trying to reduce a stub at ru <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12401	12521	
==>ck => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handle <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12401	12521	
==>ck => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handle <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13297	13416	
==>prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13291	13410	
==>prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	929	1032	
==>our weight, to be a next step. And the current Regexp::Parser Object
# ast isnt really what we want long <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2767	2866	
==>unning the test
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	195	290	
==>`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "par <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	348	443	
==>`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "par <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	345	456	
==>dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @star <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	345	456	
==>dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @star <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3798	3891	
==>lobal "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpression, $targe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38928	39037	
==>zation - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38928	39037	
==>zation - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38928	39037	
==>zation - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13626	13761	
==>$o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10596	10693	
==>) pairs, which
means that you can update several fields with a single invocation.

The $value argu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10596	10693	
==>) pairs, which
means that you can update several fields with a single invocation.

The $value argu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6197	6301	
==>tringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return u <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6197	6301	
==>tringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return u <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1870	1961	
==>}
type::operator::binary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_lay <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	917	1034	
==>ort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Min <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	917	1034	
==>ort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Min <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	917	1034	
==>ort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in Min <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6741	6851	
==>recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6741	6851	
==>recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19150	19248	
==>racter class, so I'm a little wary of making them
objects in their own right, even if it would crea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6936	7062	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6936	7062	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	165	266	
==>rap).  Or spec code which doesnt actually
# run yet.  The immediate goal is simply to permit a piln ba <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3757	3978	
==>correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3757	3978	
==>correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                f <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12267	12366	
==>c;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12267	12366	
==>c;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16325	16448	
==>Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16325	16448	
==>Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16325	16448	
==>Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3360	3457	
==>turn @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3360	3457	
==>turn @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{ <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	357	472	
==>$a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($still_r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	903	1003	
==>>new(1) : bit->new(0) }
sub less_than_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1364	1452	
==>use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1364	1452	
==>use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1839	1968	
==>ples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1839	1968	
==>ples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1839	1968	
==>ples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $sel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12048	12161	
==>r{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12048	12161	
==>r{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my me <==
3	/Users/nnunley/pugs/util/package-osx.pl	11717	11827	
==>[-1]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system("sudo -S chown -R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	474	597	
==>s}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	474	597	
==>s}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	474	597	
==>s}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2946	3058	
==>->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3086	3198	
==>->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{c <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	895	989	
==>ule provides a Perl interface to use the B<libpcre> library for
regular expressions.

=head1 AU <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3634	3742	
==>ype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> E <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3634	3742	
==>ype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1820	1911	
==>ad1 NAME

Blondie::Backend::C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Built <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2697	2860	
==>$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2697	2860	
==>$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5881	5998	
==>'@:subclasses')      => list->new(),
            attribute->new('@:superclasses')    => list->new(),
            attri <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30241	30337	
==>riables, which will be substituted at run-time before the text
is shown to the user.

Each Templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30241	30337	
==>riables, which will be substituted at run-time before the text
is shown to the user.

Each Templa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9094	9198	
==>rite( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' ) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1228	1326	
==>rite( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1228	1326	
==>rite( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5394	5507	
==>d
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5394	5507	
==>d
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5394	5507	
==>d
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34157	34284	
==>Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34157	34284	
==>Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34157	34284	
==>Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1015	1137	
==>urns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1015	1137	
==>urns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! de <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	603	727	
==>ages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join(' <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	603	727	
==>ages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join(' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	8	98	
==>in/perl

package Blondie::Backend::Perl::Silly;
use base qw/Blondie::Backend::Perl/;

use s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5401	5502	
==>::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5401	5502	
==>::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5991	6092	
==>::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take addi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14636	14871	
==>ading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18113	18348	
==>ading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17529	17764	
==>ading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2549	2659	
==>est.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2549	2659	
==>est.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2549	2659	
==>est.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1561	1698	
==>_term BAREWORD BAREWORD
        { $_[0]->{out}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_[1]} } }
    ;

signa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1234	1345	
==>RY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1234	1345	
==>RY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11650	11779	
==>1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17236	17333	
==>ne that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17236	17333	
==>ne that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2583	2693	
==>et  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2583	2693	
==>et  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2583	2693	
==>et  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13767	13886	
==>FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;
  sub emit {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20212	20306	
==>ecompiled by
some other containing parser. In this case the result of the compilation
is replac <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20212	20306	
==>ecompiled by
some other containing parser. In this case the result of the compilation
is replac <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17320	17434	
==>s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            die "Failed $tot->{bad}/$tot->{tests} test sc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7321	7419	
==>lauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, St <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7321	7419	
==>lauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, St <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3334	3443	
==>use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = b <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	105	214	
==>use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	177	280	
==>native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bit->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	910	1008	
==>js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	910	1008	
==>js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	910	1008	
==>js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22083	22182	
==>hich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26635	26734	
==>hich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25331	25430	
==>hich
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	813	925	
==>d not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3362	3453	
==>n -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3362	3453	
==>n -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19886	19976	
==>from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19886	19976	
==>from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19886	19976	
==>from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21587	21785	
==>ram => val(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ), <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10677	10791	
==>kgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10677	10791	
==>kgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4272	4393	
==>lf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4272	4393	
==>lf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4272	4393	
==>lf = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4444	4579	
==>y if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4444	4579	
==>y if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4444	4579	
==>y if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    return 1 if $role_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	318	471	
==>sub _draw_role_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	229	318	
==>----------------------------------------------------
## This is an extension of the Mini-M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	197	286	
==>----------------------------------------------------
## This is an extension of the Mini-M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10079	10215	
==>_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10079	10215	
==>_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10079	10215	
==>_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	394	494	
==>me
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure func <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	394	494	
==>me
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure func <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8248	8344	
==>nullary', 'type::operator::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y-> <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	104	219	
==>alBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PRO <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	104	219	
==>alBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PRO <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2550	2649	
==>ken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $optable->addToken("prefix::", "<infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15086	15188	
==>ler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9285	9387	
==>ler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5805	5928	
==>$rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range',
      data => [$lhs, $rhs] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8879	8990	
==>curse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	142	247	
==>ontainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	142	247	
==>ontainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	142	247	
==>ontainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2725	2832	
==>" if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2725	2832	
==>" if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2725	2832	
==>" if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	306	420	
==>recompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::ha <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	874	981	
==>osed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	874	981	
==>osed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6130	6244	
==>method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6130	6244	
==>method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( <==
3	/Users/nnunley/pugs/util/package-osx.pl	6928	7032	
==>erl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26257	26353	
==>rranty for it.

While it is by no means required, the copyright holders of Rosetta would
apprecia <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26257	26353	
==>rranty for it.

While it is by no means required, the copyright holders of Rosetta would
apprecia <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4110	4210	
==>mpty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4110	4210	
==>mpty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3650	3795	
==>on types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3650	3795	
==>on types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3650	3795	
==>on types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3717	3839	
==>_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3717	3839	
==>_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3717	3839	
==>_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5531	5713	
==>et of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9008	9190	
==>et of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35316	35427	
==>fail if any of its source Relations
have attributes in common; it will only accept inputs that would result in
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39866	39977	
==>fail if any of its source Relations
have attributes in common; it will only accept inputs that would result in
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39426	39537	
==>fail if any of its source Relations
have attributes in common; it will only accept inputs that would result in
a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16199	16297	
==>$span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Othe <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16199	16297	
==>$span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5891	6032	
==>m { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5891	6032	
==>m { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5891	6032	
==>m { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } els <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27066	27165	
==>ed in that directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8563	8656	
==>ad1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the sa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8563	8656	
==>ad1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5173	5303	
==>$a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5173	5303	
==>$a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5173	5303	
==>$a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8915	9006	
==>the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8915	9006	
==>the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9928	10018	
==>"http://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically gener <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34922	35047	
==>, $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34922	35047	
==>, $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34922	35047	
==>, $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2500	2609	
==>} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1112	1221	
==>} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = ge <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	113	207	
==>Blondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    package Blondie::Backend::Perl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1970	2069	
==>if ($t eq "IV") {
		return $node->struct_equiv;
	} elsif ($t eq "PV") {
		return quote(printable($no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14521	14615	
==>\@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14521	14615	
==>\@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14521	14615	
==>\@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2495	2603	
==>{ var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2495	2603	
==>{ var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2842	2950	
==>{ var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    D <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1070	1205	
==>e = shift;

        my $symbol = $sym_node->val;

        $table{$symbol}; # find the symbol
    }

    # and then

    my $reduced = My <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1334	1444	
==>return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1334	1444	
==>return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::R <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36909	37010	
==>at all.  In any situation where a pair
of source relations have identical headings, for these their jo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41458	41559	
==>at all.  In any situation where a pair
of source relations have identical headings, for these their jo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41081	41182	
==>at all.  In any situation where a pair
of source relations have identical headings, for these their jo <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	469	579	
==>rator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($proto, $thing) = @_;

    my $se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2467	2560	
==>eys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2467	2560	
==>eys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2361	2464	
==>eturn p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2361	2464	
==>eturn p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2361	2464	
==>eturn p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	552	661	
==>Test *@indextests --> Int|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11913	12013	
==>t is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<ne <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11913	12013	
==>t is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12187	12319	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12187	12319	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12187	12319	
==>attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28614	28757	
==>ncat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28893	29036	
==>ncat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9121	9229	
==>me = $op{'paramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\% <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1123	1264	
==>on
XXX needs binary package recognition

=cut

{   my $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	743	841	
==>elf->get_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/E <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	636	726	
==>elf->get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/E <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3777	3886	
==>IL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3777	3886	
==>IL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	627	736	
==>IL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11617	11735	
==>ed $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11617	11735	
==>ed $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11617	11735	
==>ed $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	765	1012	
==>ot exist]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && -r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2150	2250	
==>o) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($tw <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2150	2250	
==>o) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($tw <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4153	4344	
==>)                    and die $?;
            }
            
            ### XXX we should build a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21188	21279	
==>bstrs->data[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchor <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	302	447	
==>oot] )                                  and die $?;
    system( qq[mkdir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alternatives ] .
            qq <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	917	1018	
==>module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	917	1018	
==>module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2717	2828	
==>));
            ( %.subscriptions<$name> ||= Set.new ).insert($subscription);
            $subscriber.note_subsc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11249	11342	
==>f: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11249	11342	
==>f: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3337	3442	
==>fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock );



but where does the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3220	3320	
==>fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock );

but where does the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1420	1514	
==>cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1420	1514	
==>cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1420	1514	
==>cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3448	3640	
==>]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3314	3495	
==>]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	173	272	
==>s ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BEGIN {
    __PACKAGE__->mk_accessor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13514	13633	
==>ocale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translato <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13514	13633	
==>ocale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translato <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7084	7210	
==>mpl = {
        file    => { required => 1, allow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or erro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8655	8768	
==>ft @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8848	8961	
==>ft @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4503	4596	
==>er blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namesp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4503	4596	
==>er blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namesp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4503	4596	
==>er blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Namesp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	337	445	
==>helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	337	445	
==>helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	337	445	
==>helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2310	2427	
==>tovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2310	2427	
==>tovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2310	2427	
==>tovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	250	362	
==>ram ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	250	362	
==>ram ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER:: <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4492	4599	
==>le3',  $file3,  "0000000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3989	4108	
==>h;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4129	4248	
==>h;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : ' <==
3	/Users/nnunley/pugs/util/package-osx.pl	9009	9106	
==>est, %symlinks) = @_;
    make_dir("${dest}/usr/bin") unless (-d "${dest}/usr/bin");
    chdir("${ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	622	718	
==>ned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns V <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	680	776	
==>ned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns V <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26727	26823	
==>CH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5021	5131	
==>FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5021	5131	
==>FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5021	5131	
==>FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5639	5756	
==>ole;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5639	5756	
==>ole;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5639	5756	
==>ole;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17201	17293	
==>ass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17201	17293	
==>ass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17201	17293	
==>ass->add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1770	1883	
==>e = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1770	1883	
==>e = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5145	5324	
==>r_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5145	5324	
==>r_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we f <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	538	658	
==>f->WriteAll(@_);

    $self->pugs_fix_makefile;
}

sub set_makefile_macros {
    my $self = shift;

    package MM;
    * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36519	36649	
==>l );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36519	36649	
==>l );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36519	36649	
==>l );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4799	4934	
==>@_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4799	4934	
==>@_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4799	4934	
==>@_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3238	3340	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3238	3340	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3238	3340	
==>_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1322	1422	
==>2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1322	1422	
==>2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1322	1422	
==>2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	419	523	
==>?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	419	523	
==>?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	419	523	
==>?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2654	2757	
==>are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2654	2757	
==>are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2654	2757	
==>are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37405	37499	
==>>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41954	42048	
==>>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41595	41689	
==>>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and the <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3151	3314	
==>de...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2007	2113	
==>ing)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charse <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2007	2113	
==>ing)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charse <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1338	1430	
==>xxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1338	1430	
==>xxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5601	5722	
==>n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5601	5722	
==>n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5601	5722	
==>n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8976	9090	
==>.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8976	9090	
==>.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8976	9090	
==>.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4476	4583	
==>or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4476	4583	
==>or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4476	4583	
==>or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3661	3768	
==>bug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3661	3768	
==>bug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3661	3768	
==>bug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
su <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4445	4556	
==>> "anonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @AR <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1378	1478	
==>defined $Result2;
    my $proto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~~ JSX::nul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17179	17268	
==>vate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17179	17268	
==>vate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17179	17268	
==>vate_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4878	4994	
==>ined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special cas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4878	4994	
==>ined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special cas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4878	4994	
==>ined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special cas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8413	8504	
==>=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8413	8504	
==>=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8413	8504	
==>=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	315	433	
==>y {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	315	433	
==>y {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2018	2146	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2018	2146	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2018	2146	
==>lf and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10777	10877	
==>ed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10777	10877	
==>ed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10777	10877	
==>ed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3665	3782	
==>$self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3665	3782	
==>$self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3665	3782	
==>$self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1513	1606	
==>C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1513	1606	
==>C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20393	20520	
==>e_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20672	20799	
==>e_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
3	/Users/nnunley/pugs/util/addauthors.pl	407	500	
==>each my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6414	6523	
==>rl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6414	6523	
==>rl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6414	6523	
==>rl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12670	12815	
==>est::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"reall <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3034	3173	
==>est::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"reall <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3034	3173	
==>est::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"reall <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8870	8985	
==>y $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8858	8973	
==>y $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	8	112	
==>in/perl
use strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_D <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14186	14285	
==>.

Any return values of the callback routine are ignored.  The loop can
be broken by raising an exce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14186	14285	
==>.

Any return values of the callback routine are ignored.  The loop can
be broken by raising an exce <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3059	3214	
==>r ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3070	3225	
==>r ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'ter <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16654	16766	
==>ine} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%results> ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1387	1495	
==>n ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.densi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1387	1495	
==>n ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.densi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8881	9012	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8881	9012	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8881	9012	
==>> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10409	10512	
==>Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $uns <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10409	10512	
==>Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $uns <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2859	3001	
==>nue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2859	3001	
==>nue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($ <==
3	/Users/nnunley/pugs/util/importgraph.pl	2173	2258	
==>nk('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9366	9472	
==>racter but not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4010	4125	
==>{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4010	4125	
==>{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4010	4125	
==>{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17158	17285	
==>e
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This modul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17158	17285	
==>e
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This modul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17158	17285	
==>e
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4576	4731	
==>b";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4576	4731	
==>b";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4576	4731	
==>b";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6849	6941	
==>::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6849	6941	
==>::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6849	6941	
==>::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4959	5063	
==>method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4959	5063	
==>method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4959	5063	
==>method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	161	307	
==>Val;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	161	307	
==>Val;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	161	307	
==>Val;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1294	1392	
==>s},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1294	1392	
==>s},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1294	1392	
==>s},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2753	2890	
==>n 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2753	2890	
==>n 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	877	981	
==>l_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	877	981	
==>l_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	877	981	
==>l_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4403	4522	
==>oks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4403	4522	
==>oks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9543	9646	
==>o_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12410	12536	
==>cription = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      method status re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2788	2906	
==>cription = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2788	2906	
==>cription = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method status re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6882	6995	
==>f $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7441	7554	
==>f $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4903	5004	
==>");

# Reading and processing .t files
my $files = {}; # mapping from test-file-name to test-record
$f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15918	16064	
==>eturn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15918	16064	
==>eturn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15918	16064	
==>eturn if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5293	5412	
==>ct, but is (at least nominally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5293	5412	
==>ct, but is (at least nominally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5293	5412	
==>ct, but is (at least nominally)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, fo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3789	3881	
==>rray of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## -------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3789	3881	
==>rray of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## -------------------- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4926	5015	
==>:PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2363	2455	
==>etaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2363	2455	
==>etaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2363	2455	
==>etaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15574	15676	
==>me;  # set current date

=item $h.expires

This header gives the date and time after which the entity s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15574	15676	
==>me;  # set current date

=item $h.expires

This header gives the date and time after which the entity s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36226	36324	
==>tion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array reference of any number of objects

Dir: -1 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4047	4149	
==>ction ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4047	4149	
==>ction ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13189	13295	
==>me = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13189	13295	
==>me = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13189	13295	
==>me = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	289	418	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	289	418	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	289	418	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3515	3618	
==>:Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3515	3618	
==>:Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5712	5815	
==>:Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3812	4000	
==>ast if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3812	4000	
==>ast if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7486	7612	
==>umper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not hap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7498	7624	
==>umper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not hap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12730	12839	
==>{...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12730	12839	
==>{...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12730	12839	
==>{...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14111	14210	
==>"No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14111	14210	
==>"No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14111	14210	
==>"No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6010	6135	
==>$_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	di <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6010	6135	
==>$_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	di <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6010	6135	
==>$_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1744	1844	
==>],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1744	1844	
==>],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1744	1844	
==>],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9115	9294	
==>aram[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9115	9294	
==>aram[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9115	9294	
==>aram[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9262	9386	
==>.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9262	9386	
==>.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    cu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41729	41825	
==>ant to the result;
the new Relation::Example is the result of combining all of the source Relatio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	792	929	
==>$param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	774	906	
==>$param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_sl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	774	906	
==>$param->{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	608	727	
==>@_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	608	727	
==>@_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	608	727	
==>@_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$na <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2590	2697	
==>le?
sub emit_chunk {
    my($self) = @_;
    DumpFile("tests.$$.yml", $self->structure);
}

sub emit {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6	102	
==>/bin/perl

use strict;
use warnings;

use Perl6::MetaModel;

require "lib/TestBuilder.pm";

$::Te <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	808	1034	
==>cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	808	1034	
==>cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23079	23177	
==>aren

The number of OPENs (capturing groups) in the regex.

=item captures

An array reference to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1983	2080	
==>\$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1983	2080	
==>\$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1983	2080	
==>\$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12176	12280	
==>Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12176	12280	
==>Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12176	12280	
==>Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6292	6397	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6292	6397	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6292	6397	
==>ce_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9473	9586	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15720	15827	
==>n unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10576	10683	
==>n unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12477	12592	
==>r @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12477	12592	
==>r @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12477	12592	
==>r @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	421	567	
==>PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	421	567	
==>PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	421	567	
==>PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12565	12689	
==>->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12565	12689	
==>->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12565	12689	
==>->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	495	626	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	495	626	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	495	626	
==>$op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5729	5904	
==>O.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9206	9381	
==>O.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10052	10191	
==>st_pkg->name;

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	720	817	
==>because macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can ge <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	720	817	
==>because macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can ge <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1070	1169	
==>Array is JSX::Value::Object;

class JSX::PropertyAttributes {
    has $.ReadOnly;
    has $.DontEnum <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6834	6929	
==>s a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KW <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6834	6929	
==>s a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KW <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	92	187	
==>haracter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	92	187	
==>haracter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4116	4221	
==>es B<only class methods>. There is no instance
constructor, and when calling these methods you should take <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4116	4221	
==>es B<only class methods>. There is no instance
constructor, and when calling these methods you should take <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4116	4221	
==>es B<only class methods>. There is no instance
constructor, and when calling these methods you should take <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	98	199	
==>ce for all types

# conversion to native
sub to_native;

# conversion to other native types
sub to_num <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3553	3645	
==>::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3553	3645	
==>::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1944	2057	
==>description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expec <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1944	2057	
==>description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2024	2137	
==>description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11349	11536	
==>CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to reb <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11349	11536	
==>CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to reb <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11349	11536	
==>CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to reb <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19394	19493	
==>n/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23946	24045	
==>n/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22462	22561	
==>n/tuple attribute is a column, but it is not the same as a table.

The intended interface and use of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4214	4314	
==>eal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4214	4314	
==>eal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4214	4314	
==>eal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10158	10255	
==>ow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10158	10255	
==>ow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	735	829	
==>incomplete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12859	12983	
==>lf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12859	12983	
==>lf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12859	12983	
==>lf, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1896	2010	
==>:Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1896	2010	
==>:Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1896	2010	
==>:Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1380	1485	
==>ry->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1380	1485	
==>ry->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1380	1485	
==>ry->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1337	1576	
==>-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1464	1703	
==>-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop:: <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	268	365	
==>he object model for a lambda calculus, and a type inferrencer

# the algorithm implemented is Hind <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24156	24249	
==>f that
language.  By contrast, Locale::KeyedText does no compile time binding and
will support <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24156	24249	
==>f that
language.  By contrast, Locale::KeyedText does no compile time binding and
will support <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2703	2812	
==>s

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2703	2812	
==>s

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	350	453	
==>_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	350	453	
==>_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	350	453	
==>_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	344	575	
==>ntrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	344	575	
==>ntrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	344	575	
==>ntrolException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	915	1021	
==>ts; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	116	219	
==>ts; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	116	219	
==>ts; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6971	7073	
==>----------------------------------------

# stub this for the moment ...
$::Class->add_method('collect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6971	7073	
==>----------------------------------------

# stub this for the moment ...
$::Class->add_method('collect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6971	7073	
==>----------------------------------------

# stub this for the moment ...
$::Class->add_method('collect_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5546	5650	
==>ew PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5546	5650	
==>ew PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5546	5650	
==>ew PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15893	16033	
==>$self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15893	16033	
==>$self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15893	16033	
==>$self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3472	3590	
==>m B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  Fo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3472	3590	
==>m B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  Fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3552	3670	
==>m B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> version
of this too.  Fo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3047	3168	
==>t>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signatur <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3047	3168	
==>t>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signatur <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2014	2112	
==>cpan.org/~salva/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his "Perl Style Regular Exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21375	21485	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_hand <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17796	17906	
==>($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28314	28483	
==>ue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28314	28483	
==>ue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28314	28483	
==>ue::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6077	6250	
==>$value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6077	6250	
==>$value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6077	6250	
==>$value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20461	20569	
==>ERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16882	16990	
==>ERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	376	482	
==>$t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	869	970	
==>mmar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast, <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5233	5323	
==>:decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder f <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5233	5323	
==>:decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder f <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4632	4729	
==>_vars {
	my $self = shift;
	map { $_->free_vars} $self->left, $self->right;
}

package type::opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	525	634	
==>orking after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	525	634	
==>orking after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	525	634	
==>orking after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4854	4948	
==>umified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4854	4948	
==>umified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15451	15545	
==>the desired level. However, attempting to stuff something into
the string at a higher level tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14676	14854	
==>ass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14676	14854	
==>ass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14676	14854	
==>ass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2419	2520	
==>substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2419	2520	
==>substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2419	2520	
==>substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21280	21375	
==>ess to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An applicati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21280	21375	
==>ess to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An applicati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13661	13787	
==>-x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13661	13787	
==>-x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13661	13787	
==>-x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5652	5752	
==>ndefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5652	5752	
==>ndefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37001	37132	
==>text"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37001	37132	
==>text"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37001	37132	
==>text"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16873	16991	
==>=> "x",
	body => comb(
		fun => comb(
			fun => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17899	18006	
==>[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14320	14427	
==>[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2963	3068	
==>b compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2963	3068	
==>b compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2963	3068	
==>b compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5565	5679	
==>@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5565	5679	
==>@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5565	5679	
==>@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1933	2028	
==>lf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1933	2028	
==>lf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1933	2028	
==>lf);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3044	3143	
==>urns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3102	3201	
==>urns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5882	5989	
==>:init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5882	5989	
==>:init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5882	5989	
==>:init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { pri <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2515	2616	
==>hy not call "TAILCALL" "GOTO"?  So you can easily search on both.
 Why LET but not TEMP?  LET is non-t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11214	11310	
==>t class is pure and deterministic,
such that all of its class and object methods will each return <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11214	11310	
==>t class is pure and deterministic,
such that all of its class and object methods will each return <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10566	10666	
==>ON

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10566	10666	
==>ON

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20386	20482	
==>or stack-type
nodes has been abstracted to the ender() method of the node.

The init() method has <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	758	884	
==>ram->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	740	863	
==>ram->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writab <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	740	863	
==>ram->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	145	310	
==>::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (?:
                # pod s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9860	10002	
==>lose }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9860	10002	
==>lose }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = <==
3	/Users/nnunley/pugs/util/package-osx.pl	1095	1201	
==>rman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/ma <==
3	/Users/nnunley/pugs/util/package-osx.pl	3405	3511	
==>rman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/ma <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16155	16240	
==>elationalExpressionNoIn> <'instanceof'> <ShiftExpression>
}
rule EqualityExpression :w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13211	13312	
==>\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6686	6787	
==>\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S-> <==
3	/Users/nnunley/pugs/util/version_h.pl	1891	1991	
==>ile ($version_h) without turning
  # "io" warnings off, perl will print "Filehandle STDIN reopened... <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22146	22242	
==>or permissions issue; simply order the files appropriately in the search
list.  The analogy is si <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22146	22242	
==>or permissions issue; simply order the files appropriately in the search
list.  The analogy is si <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18099	18190	
==>E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Mi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3470	3732	
==>one Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3470	3732	
==>one Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosett <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1027	1123	
==>$program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$name'} = \n$progr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17985	18114	
==>&RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14406	14535	
==>&RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14291	14409	
==>numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14291	14409	
==>numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14291	14409	
==>numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8780	8901	
==>_ok ($) {
    my ($require) = @_;
    eval <<REQUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $req <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4241	4354	
==>operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $termE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2376	2520	
==>+@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2376	2520	
==>+@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2376	2520	
==>+@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2726	2845	
==>if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2726	2845	
==>if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2726	2845	
==>if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5764	5859	
==>ndef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5764	5859	
==>ndef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5764	5859	
==>ndef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4	114	
==>d1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4	114	
==>d1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	347	602	
==>s readonly = q{};

###########################################################################
###########################################################################

class Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # External <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4463	4576	
==>ation
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splic <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4463	4576	
==>ation
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1153	1260	
==>ill still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1153	1260	
==>ill still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1153	1260	
==>ill still work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21077	21169	
==>fix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21077	21169	
==>fix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21077	21169	
==>fix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ( <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8214	8336	
==>ee[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0] as_string: $ret";
    dbg "# $tree[0] en <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	4	99	
==>Cipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	4	99	
==>Cipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6084	6213	
==>c => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6084	6213	
==>c => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6084	6213	
==>c => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1572	1815	
==>IR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist] <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3876	3972	
==>2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod:: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3876	3972	
==>2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5783	5915	
==>op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3119	3251	
==>op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3968	4100	
==>op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15904	16043	
==>_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15904	16043	
==>_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15904	16043	
==>_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13735	13832	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13735	13832	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13735	13832	
==>6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1053	1196	
==>identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1053	1196	
==>identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1053	1196	
==>identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3443	3594	
==>ses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3443	3594	
==>ses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3443	3594	
==>ses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        p <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2673	2765	
==>implemented by subclasses... though a default
implementation exists, too.

=over

=item B<sou <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2673	2765	
==>implemented by subclasses... though a default
implementation exists, too.

=over

=item B<sou <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	640	728	
==>hung Lin (xern@cpan.org)
# --------------------------------------------------

use strict <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	911	1035	
==>ble',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        41 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	911	1035	
==>ble',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        41 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1431	1546	
==>vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge";
my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6780	6879	
==>rom + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6780	6879	
==>rom + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6780	6879	
==>rom + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2420	2519	
==>build_dir'}        = [ Path::Class::dir('root-') ];

### package files/extensions
$config{'meta_ext' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4249	4342	
==>22.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4249	4342	
==>22.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7191	7303	
==>m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7179	7291	
==>m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6807	6934	
==>:mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) suppl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6807	6934	
==>:mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) suppl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6807	6934	
==>:mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) suppl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	187	312	
==>e ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	187	312	
==>e ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2929	3061	
==>!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2929	3061	
==>!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2929	3061	
==>!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1831	1935	
==>p();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1831	1935	
==>p();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1831	1935	
==>p();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PI <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9284	9384	
==>he 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9284	9384	
==>he 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `star <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15920	16019	
==>ield labeled "Internal use only" is one of the most widely used. ;)
Zero seems safe.  But more nuanc <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	233	328	
==>sts_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to h <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	291	386	
==>sts_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10346	10492	
==>$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6687	6833	
==>$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7536	7682	
==>$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2072	2168	
==>ew Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2072	2168	
==>ew Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2072	2168	
==>ew Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2952	3082	
==>re ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3430	3560	
==>re ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3628	3740	
==>ation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7105	7217	
==>ation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6062	6174	
==>ation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3751	3872	
==>CH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3751	3872	
==>CH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3751	3872	
==>CH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	139	239	
==>printf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	139	239	
==>printf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	139	239	
==>printf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	910	1022	
==>stcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        na <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2642	2742	
==>$?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2642	2742	
==>$?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5051	5152	
==>$S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1634	1735	
==>$S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13948	14039	
==>_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13948	14039	
==>_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15181	15357	
==>array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15181	15357	
==>array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15181	15357	
==>array = shift; 
                my $keys = $array->keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7776	7913	
==>rn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7776	7913	
==>rn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7776	7913	
==>rn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1114	1214	
==>UGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1114	1214	
==>UGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1114	1214	
==>UGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9130	9236	
==>e to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9130	9236	
==>e to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5159	5261	
==>:"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_base;
    push @{ " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1481	1592	
==>ELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1481	1592	
==>ELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1481	1592	
==>ELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1768	1912	
==>ch pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1756	1900	
==>ch pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" . <==
3	/Users/nnunley/pugs/util/addauthors.pl	1238	1338	
==>ORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  print Dumper $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4262	4430	
==>$matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4262	4430	
==>$matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20915	21180	
==>IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20915	21180	
==>IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20915	21180	
==>IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $sc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4986	5093	
==>thod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4986	5093	
==>thod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.star <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1127	1215	
==>xp::CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	250	387	
==>"",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}->as_js
    );
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	250	387	
==>"",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}->as_js
    );
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	250	387	
==>"",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->()
        : $_[0]->{body}->as_js
    );
}

1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	714	828	
==>ved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	714	828	
==>ved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5922	6198	
==>events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string> <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5922	6198	
==>events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	80	180	
==>equivalence;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 't <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1373	1482	
==>things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1373	1482	
==>things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate lo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	71	166	
==>ing on here.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs internal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17228	17328	
==>butes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17228	17328	
==>butes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17228	17328	
==>butes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => :: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7915	8051	
==>nt Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "The <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7915	8051	
==>nt Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23171	23279	
==>ation
library provides full generic implementations of all other necessary
operators (over said accessors), w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	173	271	
==>se Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	173	271	
==>se Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	173	271	
==>se Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1014	1119	
==>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1014	1119	
==>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1014	1119	
==>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8887	8995	
==>"\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8887	8995	
==>"\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8887	8995	
==>"\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2581	2682	
==>00 }
method century returns Int { die if $.year < 0; int($.year / 100) }

our @months = <January Febru <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1675	1766	
==>TY> for important caveats).

Cipher::Arcfour also includes several attributes which might be <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1675	1766	
==>TY> for important caveats).

Cipher::Arcfour also includes several attributes which might be <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16414	16508	
==>The value returned will be converted to lower case, and potential
parameters will be chopped of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16414	16508	
==>The value returned will be converted to lower case, and potential
parameters will be chopped of <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3047	3218	
==>place
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2372	2492	
==>a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2372	2492	
==>a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eac <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	489	592	
==>f(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retval if def <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5812	5903	
==>Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http: <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5812	5903	
==>Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10061	10198	
==>method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10061	10198	
==>method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10061	10198	
==>method = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28833	28933	
==>ate any other value set members.  This
method supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33385	33485	
==>ate any other value set members.  This
method supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32522	32622	
==>ate any other value set members.  This
method supports having the new attributes having the same name <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1154	1375	
==><Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4293	4398	
==>ck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: f <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4293	4398	
==>ck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2704	2830	
==>less defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2704	2830	
==>less defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2704	2830	
==>less defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14909	15008	
==>add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9109	9208	
==>add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26321	26419	
==>e strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Ya <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2389	2483	
==>ce / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Va <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2389	2483	
==>ce / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	669	779	
==>} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19020	19130	
==>ed) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (no <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19020	19130	
==>ed) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7468	7574	
==>urn $S->force_object(anyof_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	176	288	
==>(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	176	288	
==>(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	176	288	
==>(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14413	14586	
==>_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14413	14586	
==>_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14413	14586	
==>_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4518	4613	
==>($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4518	4613	
==>($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4518	4613	
==>($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is prim <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9652	9802	
==>'remove_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2994	3099	
==>self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2994	3099	
==>self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2331	2435	
==>S::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2331	2435	
==>S::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2331	2435	
==>S::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10576	10707	
==>}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1555	1661	
==>rp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1555	1661	
==>rp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17262	17356	
==>) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17262	17356	
==>) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17262	17356	
==>) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3795	3916	
==>ODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimension <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3795	3916	
==>ODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimension <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3795	3916	
==>ODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimension <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38235	38348	
==>y;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38235	38348	
==>y;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38235	38348	
==>y;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2076	2257	
==>'$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11634	11727	
==>`. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11692	11785	
==>`. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5111	5268	
==>e => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5111	5268	
==>e => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5111	5268	
==>e => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7020	7186	
==>n = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7020	7186	
==>n = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.curr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	182	289	
==>de which doesnt actually
# run yet.  The immediate goal is simply to permit a piln backend to
# pass most of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1299	1414	
==>eady_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1299	1414	
==>eady_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1299	1414	
==>eady_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	124	221	
==>use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	124	221	
==>use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {. <==
3	/Users/nnunley/pugs/util/package-osx.pl	2191	2281	
==>perl/PIL /Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /Library/Per <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1117	1213	
==>ent
data for stubs and other thingies.

It also gives the compiler the default environment to wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16887	16982	
==>lly load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
My <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16887	16982	
==>lly load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
My <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4493	4810	
==>ons
                        )?                                      # End of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6371	6466	
==>ename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6371	6466	
==>ename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	479	616	
==>ree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get read <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	479	616	
==>ree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get read <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3034	3153	
==>t5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	48	145	
==>VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$! <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	48	145	
==>VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13262	13363	
==>has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13262	13363	
==>has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13262	13363	
==>has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5783	5870	
==>keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5783	5870	
==>keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5783	5870	
==>keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	446	595	
==>ind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	446	595	
==>ind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	446	595	
==>ind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7836	7944	
==>=> sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7836	7944	
==>=> sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7836	7944	
==>=> sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6063	6169	
==>ents thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6063	6169	
==>ents thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Roset <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16669	16765	
==>er outputs anything by itself to the user, but
rather returns its results for calling code to out <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16669	16765	
==>er outputs anything by itself to the user, but
rather returns its results for calling code to out <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25495	25591	
==>retty print a -> b x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pair->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14351	14479	
==>r down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14351	14479	
==>r down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14351	14479	
==>r down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4309	4413	
==>bles can have 2147483648 and 2147483648
        # that stringify to the same thing but are acutally numer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5490	5581	
==>iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9088	9179	
==>iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34838	34937	
==>at match any tuples of C<$other> along
their common attributes.  This method will fail if the headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39388	39487	
==>at match any tuples of C<$other> along
their common attributes.  This method will fail if the headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38921	39020	
==>at match any tuples of C<$other> along
their common attributes.  This method will fail if the headin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20007	20114	
==>gs, or a multi-dimensional object Hash,
or various combinations of other data types.

While the implementati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24559	24666	
==>gs, or a multi-dimensional object Hash,
or various combinations of other data types.

While the implementati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23111	23218	
==>gs, or a multi-dimensional object Hash,
or various combinations of other data types.

While the implementati <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3631	3742	
==>on that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7108	7219	
==>on that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6065	6176	
==>on that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17389	17564	
==>s->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17389	17564	
==>s->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17389	17564	
==>s->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found fo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2011	2160	
==>3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            u <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2011	2160	
==>3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            u <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4490	4587	
==>ils above).  It prints
out each individual test which failed along with a summary report and
a how <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2106	2228	
==>e_runtime {
	my $runtime_class = shift;

	foreach my $prog (@progs) {
		my $r = $runtime_class->new;

		my $result;
		
		li <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9859	9963	
==>$nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$code <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9859	9963	
==>$nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2350	2480	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2350	2480	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2350	2480	
==>ee if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12258	12371	
==>cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12258	12371	
==>cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12258	12371	
==>cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1326	1456	
==>oxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1326	1456	
==>oxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1326	1456	
==>oxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2793	2917	
==>f = shift;
                my $size = shift;
                push @{$self->get_value('@:slots')}, mk_containers((undef) x ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3050	3154	
==>mName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3050	3154	
==>mName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3050	3154	
==>mName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2445	2679	
==>nt "Match: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle-quote
                    unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10295	10497	
==>ent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10295	10497	
==>ent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10295	10497	
==>ent class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	65	168	
==>Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	65	168	
==>Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	65	168	
==>Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1394	1561	
==>en(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	819	953	
==>ecial_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	819	953	
==>ecial_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12011	12108	
==>od

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12011	12108	
==>od

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12011	12108	
==>od

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5742	5870	
==>->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(),
            attri <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	440	557	
==>::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Pr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	440	557	
==>::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	881	996	
==>of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	881	996	
==>of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	881	996	
==>of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	360	453	
==>::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	360	453	
==>::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	360	453	
==>::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5772	5894	
==>s,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5772	5894	
==>s,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5772	5894	
==>s,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	792	920	
==>}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	792	920	
==>}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	792	920	
==>}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	227	394	
==>D {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[0]{$_[1]}
    }

    sub fmap {
        my $self = shift;
        my $f <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12964	13079	
==>itrd_img;
      for(@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/l <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23733	23843	
==>eclaration>
}

# A.6 Universal Resource Identifier Character Classes

rule uri {  # see 15.1.3
      <uriCharac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8939	9114	
==>', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12824	12967	
==>', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12824	12967	
==>', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	777	911	
==>ACKAGE__->add_rule( 
        name => '*',
        assoc => 'left',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        asso <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2358	2475	
==>Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must b <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2358	2475	
==>Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	253	343	
==>pied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	253	343	
==>pied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	253	343	
==>pied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.ht <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1113	1225	
==>continue for a while on
# Regexp::Parser.  But it's not worth working to finish.  So, we
# bootstrap to something <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6172	6265	
==>he AG above, and avoids unnecessary duplication
	my $self = shift;
	$self->{instance}->splat(@ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21081	21166	
==>type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :- \+(charset_member(E <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4116	4225	
==>set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4116	4225	
==>set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	348	440	
==>r::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token->compile(q(
  \= <'cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12827	12935	
==>ing to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12827	12935	
==>ing to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12827	12935	
==>ing to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::S <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1923	2047	
==>ay array iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr may be a T2::A <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3579	3693	
==>line\n" ],
      [ 'file3',  $file3,  "3rd line\n2nd line\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1706	1822	
==>ote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1706	1822	
==>ote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1706	1822	
==>ote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$js <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18933	19056	
==>n->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20291	20414	
==>n->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zer <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2126	2240	
==>);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2126	2240	
==>);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2126	2240	
==>);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36393	36491	
==>t "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36393	36491	
==>t "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36393	36491	
==>t "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ite <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2375	2472	
==>ear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C< <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2375	2472	
==>ear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2068	2164	
==>ow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2068	2164	
==>ow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2068	2164	
==>ow(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5651	5749	
==>sname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5651	5749	
==>sname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5651	5749	
==>sname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	456	611	
==>ecify this file as parameter.
Output will go to STDOUT in PNG format.
INFO

# Read the logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ an <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3332	3425	
==>d1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3332	3425	
==>d1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28601	28801	
==>symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->get('$self: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3691	3774	
==>n( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3691	3774	
==>n( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11302	11439	
==>m_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11302	11439	
==>m_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11302	11439	
==>m_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5699	5797	
==>) returns Relation::Example {

    die "Some keys of $mapping! do not match this relation's attribu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21397	21493	
==>tion attribute has a name that is distinct from the other
attributes, though several attributes m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25949	26045	
==>tion attribute has a name that is distinct from the other
attributes, though several attributes m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2663	2801	
==>ic';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2663	2801	
==>ic';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2663	2801	
==>ic';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5002	5134	
==>dalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5002	5134	
==>dalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5002	5134	
==>dalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34468	34571	
==>shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34468	34571	
==>shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34468	34571	
==>shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5045	5177	
==>eld_type'}{$fname};
    $ftype =~ s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSy <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4973	5056	
==>bounds(Min,Max), "}", p6_range_greed(W,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repea <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6881	6978	
==>should
ignore the opening one. However, this means I should defer events until I get to the
end of <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6881	6978	
==>should
ignore the opening one. However, this means I should defer events until I get to the
end of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1548	1656	
==>_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1548	1656	
==>_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1548	1656	
==>_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30124	30219	
==>sage text associated with the
Message; this user string may also contain variable names that cor <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30124	30219	
==>sage text associated with the
Message; this user string may also contain variable names that cor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17304	17398	
==>I<assertion>. You can't call
their new() method directly, you can only call it through an objec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5612	5717	
==>L/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual module <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5419	5520	
==>L/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual module <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9921	10092	
==>_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11398	11569	
==>_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	942	1049	
==>hed (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY => --$ENUM, 'Can\'t do {n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6961	7106	
==>' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6961	7106	
==>' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6961	7106	
==>' =>    sub { _('$:cell')->{tied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16241	16343	
==>from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16241	16343	
==>from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16241	16343	
==>from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16571	16663	
==>nition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16571	16663	
==>nition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7874	7989	
==>match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7862	7977	
==>match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38937	39057	
==>add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38937	39057	
==>add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38937	39057	
==>add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33363	33546	
==>lse {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33363	33546	
==>lse {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33363	33546	
==>lse {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1317	1426	
==>chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1244	1348	
==>chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6395	6495	
==>/^-DPUGS_HAVE_READLINE$/, @_;
    push @pkgs, -package => 'plugins', -package => 'haskell-src' if gre <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17630	17765	
==>stringarg, char* strend,
                  char* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 f <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	337	432	
==>"Set", { companion => "dest" });
Has($?CLASS, "methods", "Set", { companion => "class" });
Has($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15269	15363	
==>t's the object's qr() method for you right there!)

=item Regexp::MinLength

Implements a min_l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	134	385	
==>.);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	134	385	
==>.);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1564	1704	
==>an:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1564	1704	
==>an:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1564	1704	
==>an:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37913	38071	
==>' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37913	38071	
==>' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37913	38071	
==>' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # w <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4876	5015	
==>>can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4735	4874	
==>>can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4681	4805	
==>Writable">, %pad<"paramContext">,   
            %pad<"paramDefault">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36394	36490	
==>airs, then eliminating any result tuples that
duplicate others.  The sequence in which any two so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40943	41039	
==>airs, then eliminating any result tuples that
duplicate others.  The sequence in which any two so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40557	40653	
==>airs, then eliminating any result tuples that
duplicate others.  The sequence in which any two so <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12421	12519	
==>rl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory management, v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	281	375	
==>q "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	281	375	
==>q "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	281	375	
==>q "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13446	13547	
==>grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
da <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13446	13547	
==>grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
da <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5423	5514	
==>$index_file) or die "Failed to open $index_file: $!";
my $template = HTML::Template->new(fil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1873	2000	
==>TP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' progra <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20394	20491	
==>only use Example
for testing, development, and study; you should not use it in production.

For pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20394	20491	
==>only use Example
for testing, development, and study; you should not use it in production.

For pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6842	6969	
==>esolve'), '... we now have the resolve method');

ok($Role->has_method('does'), '... we now have the does() method');
ok($Role-> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8361	8454	
==>n.

=item I<start_element ('line_interpolation')>

This event is begun when any block of chara <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8361	8454	
==>n.

=item I<start_element ('line_interpolation')>

This event is begun when any block of chara <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9705	9818	
==>bug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9705	9818	
==>bug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting fr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17127	17223	
==>lityExpressionNoIn>
}
rule BitwiseXORExpression :words {  # see 11.10
      <BitwiseANDExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9341	9521	
==>->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9341	9521	
==>->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9341	9521	
==>->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	667	795	
==>b PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	667	795	
==>b PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	667	795	
==>b PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	36	143	
==>09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	36	143	
==>09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	36	143	
==>09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cp <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	245	360	
==>ted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	245	360	
==>ted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	756	870	
==>use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	806	947	
==>)
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	806	947	
==>)
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17324	17420	
==>n't call
their new() method directly, you can only call it through an object that
inherits from t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1588	1727	
==>= Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1588	1727	
==>= Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3703	3972	
==>) on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3703	3972	
==>) on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Loc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2214	2327	
==>ns't check the AUTO flag yet for link management
    LINKING: {   
        ### load in the alternatives collection <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3269	3371	
==>e $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3269	3371	
==>e $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3269	3371	
==>e $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1244	1339	
==>cipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1244	1339	
==>cipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22593	22687	
==>plementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27145	27239	
==>plementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25877	25971	
==>plementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10643	10762	
==>}
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10643	10762	
==>}
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10643	10762	
==>}
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should auto <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11731	11867	
==>"$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6045	6175	
==>"$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6045	6175	
==>"$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12186	12421	
==>es, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12186	12421	
==>es, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12186	12421	
==>es, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " le <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4159	4280	
==>b strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ s{^=\w(.*?)^=cut$}{"\n" x ($1 =~ y/\n//)}mesg;
}

sub prec <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	901	1002	
==>oft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        si <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	778	865	
==>oft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	266	358	
==>erl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	266	358	
==>erl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	266	358	
==>erl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1283	1385	
==>h, there's a super in my duper!"
        if $supers.includes($self);

    $self.SUPER::set_superclasses <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	73	169	
==>::Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
form <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	73	169	
==>::Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
form <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13990	14112	
==>key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13990	14112	
==>key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4	96	
==>age Pugs::Compiler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.03';

# Documentation in the __ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	447	558	
==>(*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	447	558	
==>(*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	447	558	
==>(*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (* <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	43	147	
==>le;
use base qw/Class::Accessor/;

use strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8465	8564	
==>e => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6001	6098	
==>e => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11707	11793	
==>un::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11707	11793	
==>un::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11707	11793	
==>un::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	338	436	
==>ngs "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	338	436	
==>ngs "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	338	436	
==>ngs "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwrap }

1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6184	6302	
==>atch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6196	6314	
==>atch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return j <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6608	6721	
==>( my($orig,$target) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) ) {
            error("Fai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10866	11014	
==>:Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::co <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	843	938	
==>esent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	843	938	
==>esent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4785	4890	
==>nHVN]> }
rule explicit_class  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	666	768	
==>e->isa("Blondie::Node")
		or die "it doesn't look like $node is a piece of a Blondie program.";

   	$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	11	121	
==>::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	11	121	
==>::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	11	121	
==>::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6194	6310	
==>ame};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6194	6310	
==>ame};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6194	6310	
==>ame};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1787	1995	
==>(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	726	839	
==>tant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	726	839	
==>tant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3621	3716	
==>s>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3621	3716	
==>s>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7448	7539	
==>.
p5_condition_alternative(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9390	9498	
==>m'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9390	9498	
==>m'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9390	9498	
==>m'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpPa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3999	4103	
==>t".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3999	4103	
==>t".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3609	3707	
==>ow to do
it.  Possible tools include get_sv, eval_pv, and %^H.  The first thing
needed is a scope.t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7604	7742	
==>dd_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12881	12990	
==>ve.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12881	12990	
==>ve.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20497	20601	
==>: $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20497	20601	
==>: $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20497	20601	
==>: $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13849	13943	
==>B prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13849	13943	
==>B prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13849	13943	
==>B prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($x <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4410	4542	
==>}
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4410	4542	
==>}
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5178	5310	
==>«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5178	5310	
==>«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5178	5310	
==>«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39919	40043	
==>er::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39919	40043	
==>er::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39919	40043	
==>er::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7179	7303	
==>alarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7179	7303	
==>alarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7179	7303	
==>alarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1723	1846	
==>@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1723	1846	
==>@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1723	1846	
==>@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18998	19090	
==>me, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18998	19090	
==>me, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1788	1900	
==>=> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1788	1900	
==>=> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1788	1900	
==>=> $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role her <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	532	629	
==>rns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	532	629	
==>rns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) retu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4951	5216	
==>'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8072	8317	
==>s_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1345	1433	
==>eth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(< <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8102	8207	
==>my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6331	6434	
==>lass, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11177	11280	
==>lass, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... ins <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4052	4157	
==>of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a lin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4052	4157	
==>of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a lin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4132	4237	
==>of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2030	2121	
==>l6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2030	2121	
==>l6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2030	2121	
==>l6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9907	10061	
==>etch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9907	10061	
==>etch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9907	10061	
==>etch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12778	12865	
==>::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12778	12865	
==>::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12778	12865	
==>::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Ru <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1198	1343	
==>$/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $dur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39262	39352	
==>xample>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39262	39352	
==>xample>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3772	3934	
==>Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!att <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3772	3934	
==>Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!att <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14767	14896	
==>oop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $e <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	799	897	
==>flatten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupp <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	799	897	
==>flatten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	646	736	
==>2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciphere <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	646	736	
==>2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/deciphere <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2405	2525	
==>t[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2405	2525	
==>t[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	916	1026	
==>->set('$?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnings;

use base ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1354	1462	
==>tr( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1354	1462	
==>tr( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23482	23575	
==>NTERFACE

The interface of Relation::Example is entirely object-oriented; you use it by
creati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10459	10579	
==>DO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10459	10579	
==>DO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10459	10579	
==>DO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16985	17099	
==>sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16985	17099	
==>sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16985	17099	
==>sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7270	7393	
==>[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7270	7393	
==>[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7270	7393	
==>[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14393	14488	
==>ie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14393	14488	
==>ie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14393	14488	
==>ie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6714	6859	
==>mit( $n->{param} ) . ', "\n"';
            }
            return " print '', $s" . ', "\n"';
        }
        if ( $n->{method}{bareword} eq ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2611	2726	
==>}
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2611	2726	
==>}
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1547	1678	
==>epodir/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating their metainfo to one file
    my @met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14095	14190	
==>{ ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14095	14190	
==>{ ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7908	8053	
==>d[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @js;
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7908	8053	
==>d[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @js;
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7908	8053	
==>d[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join "\n", @js;
  }
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16527	16637	
==>}    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16527	16637	
==>}    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16527	16637	
==>}    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1454	1656	
==>_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1454	1656	
==>_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1454	1656	
==>_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10601	10778	
==>rams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10601	10778	
==>rams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10601	10778	
==>rams } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1350	1449	
==>turn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1350	1449	
==>turn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1350	1449	
==>turn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8362	8543	
==>= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8362	8543	
==>= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8362	8543	
==>= 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1468	1580	
==>l5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1468	1580	
==>l5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1468	1580	
==>l5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet suppo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	695	790	
==>must operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bit <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	695	790	
==>must operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bit <==
3	/Users/nnunley/pugs/util/package-osx.pl	6007	6095	
==>n/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::Overview::Function <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6610	6775	
==>} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{param} ) . ', "\n"';
            }
            ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23375	23468	
==>erE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23375	23468	
==>erE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3864	3972	
==>ta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/$control -C $my_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12269	12372	
==>Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12269	12372	
==>Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1129	1255	
==>mper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1129	1255	
==>mper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1129	1255	
==>mper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4154	4296	
==>>{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $result{typ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	755	854	
==>rence
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX defi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	755	854	
==>rence
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1644	1758	
==>e) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1644	1758	
==>e) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1644	1758	
==>e) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1607	1748	
==>s {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1607	1748	
==>s {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1607	1748	
==>s {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return "" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2570	2676	
==>xt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15354	15454	
==>all them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::En <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15354	15454	
==>all them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::En <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	532	645	
==>S  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	532	645	
==>S  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	532	645	
==>S  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posE <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4796	4917	
==>es.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HA <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4655	4776	
==>es.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4095	4193	
==>use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4095	4193	
==>use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4095	4193	
==>use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ----- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3619	3714	
==>e HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3619	3714	
==>e HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5747	5838	
==>.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5747	5838	
==>.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5747	5838	
==>.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	116	210	
==>-------------------------------------
## now for some bootstrapping ....

## See http://article <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	116	210	
==>-------------------------------------
## now for some bootstrapping ....

## See http://article <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	116	210	
==>-------------------------------------
## now for some bootstrapping ....

## See http://article <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31399	31498	
==>redicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35949	36048	
==>redicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35167	35266	
==>redicate> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1624	1727	
==>cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1624	1727	
==>cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1624	1727	
==>cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2128	2246	
==>eed_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2128	2246	
==>eed_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2128	2246	
==>eed_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->match <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4945	5082	
==>e have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NO <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5409	5546	
==>e have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6922	7045	
==>ns true on success, false on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    require Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1725	1846	
==>else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.sto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1725	1846	
==>else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.sto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1725	1846	
==>else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.sto <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5324	5443	
==>tatement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2866	2985	
==>tatement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3715	3834	
==>tatement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1503	1592	
==>S::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1503	1592	
==>S::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1503	1592	
==>S::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1192	1308	
==>der for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1192	1308	
==>der for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1739	1855	
==>der for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	339	438	
==>m *

A method is bound to a compiled class (a L<Type>), which is used for
dispatching private method <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9030	9125	
==>Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9030	9125	
==>Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12280	12463	
==>se {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12280	12463	
==>se {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12280	12463	
==>se {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	169	262	
==>at we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	169	262	
==>at we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3480	3675	
==>SH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Loca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3480	3675	
==>SH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Loca <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7006	7107	
==>ds::Pure;
use Data::Dumper;


# The unification of the various types depends on their data...
# this i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	884	995	
==>o proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	884	995	
==>o proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	884	995	
==>o proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	430	532	
==>in(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	430	532	
==>in(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	430	532	
==>in(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14096	14202	
==>@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14096	14202	
==>@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14096	14202	
==>@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::mak <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	835	989	
==>atch->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	828	982	
==>atch->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8459	8564	
==>se { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2288	2415	
==>ve accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2288	2415	
==>ve accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21303	21402	
==>a[0].min_offset
 #define float_substr     substrs->data[1].substr
 #define float_utf8       substrs- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6307	6413	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6307	6413	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8504	8610	
==>thods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	538	641	
==>a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	538	641	
==>a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	538	641	
==>a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4542	4686	
==>'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        'bool:: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7345	7443	
==>gs));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
mu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7345	7443	
==>gs));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
mu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4940	5051	
==>e( q(
            <Pugs::Grammar::Term.single_quoted>
            { return { single_quoted => $/{'Pugs::Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16395	16491	
==>pe = 'text/html';

The value returned will be converted to lower case, and potential
parameters w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16395	16491	
==>pe = 'text/html';

The value returned will be converted to lower case, and potential
parameters w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	466	573	
==>rt(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1994	2101	
==>rt(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27776	27865	
==>e F<Regexp::Parser::*> object of the same name, and finally
from F<Regexp::Parser::__objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3623	3738	
==>>{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3623	3738	
==>>{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3623	3738	
==>>{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4213	4316	
==>ould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4213	4316	
==>ould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4213	4316	
==>ould take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24396	24495	
==>ods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28948	29047	
==>ods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27815	27914	
==>ods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17293	17387	
==>attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17293	17387	
==>attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17293	17387	
==>attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5710	5810	
==>-o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5710	5810	
==>-o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5710	5810	
==>-o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.htm <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18469	18567	
==>setta should be thread safe and/or saavy
in the future, but for now it officially is not and you sh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18469	18567	
==>setta should be thread safe and/or saavy
in the future, but for now it officially is not and you sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38808	38924	
==>ray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38808	38924	
==>ray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38808	38924	
==>ray->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - opt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30196	30293	
==>ject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34748	34845	
==>ject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33921	34018	
==>ject>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17939	18035	
==>_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17939	18035	
==>_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17939	18035	
==>_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4230	4321	
==>Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4230	4321	
==>Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6427	6518	
==>Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> parameters <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22208	22311	
==>, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26760	26863	
==>, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16541	16633	
==>e program is executing.

Locale::KeyedText gives your application the maximum amount of contr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16541	16633	
==>e program is executing.

Locale::KeyedText gives your application the maximum amount of contr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2125	2223	
==>may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API' <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2125	2223	
==>may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	155	252	
==>me>;
use Term::ANSIColor qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4427	4596	
==>xt eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4427	4596	
==>xt eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4427	4596	
==>xt eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12818	12932	
==>href}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12818	12932	
==>href}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12818	12932	
==>href}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	612	731	
==>$orig);
			return;
		} else {
			if (defined($orig) and not(Scalar::Util::blessed($struct) and $struct->isa("Blondie::Va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5901	6008	
==>name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub speci <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5889	5996	
==>name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub speci <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	8	109	
==>n progress
package Pugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
o <==
3	/Users/nnunley/pugs/util/package-osx.pl	5405	5502	
==>::FAQ::Capture.3
        /usr/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local/man/man3/P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20687	20779	
==>se the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20687	20779	
==>se the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11818	11911	
==>I SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11818	11911	
==>I SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11818	11911	
==>I SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1643	1770	
==>$dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1643	1770	
==>$dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1643	1770	
==>$dispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6464	6568	
==>ue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6464	6568	
==>ue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6464	6568	
==>ue::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10088	10203	
==>!= '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11055	11153	
==>n list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11055	11153	
==>n list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (R <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1050	1148	
==>ows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected w <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1050	1148	
==>ows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10598	10701	
==>must be implemented
    # -----------------------------------------------

    method add_method;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10598	10701	
==>must be implemented
    # -----------------------------------------------

    method add_method;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10598	10701	
==>must be implemented
    # -----------------------------------------------

    method add_method;
    me <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13475	13575	
==>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invocant <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3676	3774	
==>turns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $dat <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3676	3774	
==>turns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26606	26816	
==>tr->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26606	26816	
==>tr->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26606	26816	
==>tr->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	317	419	
==>a::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	317	419	
==>a::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	317	419	
==>a::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %va <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36114	36215	
==>t of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40663	40764	
==>t of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40277	40378	
==>t of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7378	7469	
==>primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7378	7469	
==>primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7378	7469	
==>primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3862	3951	
==>--------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3862	3951	
==>--------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3862	3951	
==>--------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12382	12504	
==>{ ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12382	12504	
==>{ ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12382	12504	
==>{ ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1405	1571	
==>ed to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1405	1571	
==>ed to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2148	2257	
==>($version, $ghc, @args);
    build_exe($version, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $pp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6170	6321	
==>" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6170	6321	
==>" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6170	6321	
==>" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22721	22816	
==>his contains zero or more Relation attribute names that
define the heading of this Relation.  Ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27273	27368	
==>his contains zero or more Relation attribute names that
define the heading of this Relation.  Ea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	747	842	
==>_native ? str->new('1') : str->new('')  }
sub to_num { (shift)->to_native == 0 ? num->new(0) : n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2883	2974	
==>ger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2883	2974	
==>ger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2883	2974	
==>ger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11777	11999	
==>n (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11777	11999	
==>n (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11777	11999	
==>n (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8720	8850	
==>tr $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	888	1006	
==>tr $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	888	1006	
==>tr $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6162	6258	
==>rnals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6162	6258	
==>rnals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6162	6258	
==>rnals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14860	14989	
==>t;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14860	14989	
==>t;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14860	14989	
==>t;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	205	311	
==>lar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2337	2469	
==>e_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2542	2674	
==>e_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3333	3465	
==>e_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2179	2288	
==>rl_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4164	4263	
==>iable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5013	5112	
==>iable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1577	1676	
==>ay everything except status and headers
  # This should all be done better so the response doesn't l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1577	1676	
==>ay everything except status and headers
  # This should all be done better so the response doesn't l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30241	30338	
==>d in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whos <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34793	34890	
==>d in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whos <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4625	4741	
==>+ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24250	24343	
==>ht (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24250	24343	
==>ht (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19117	19239	
==>"),
			param => comb(
				fun => ide("f"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14318	14427	
==>_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14318	14427	
==>_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14318	14427	
==>_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12502	12823	
==>val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=enc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12502	12823	
==>val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=enc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1070	1253	
==>CH('::Skip')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        1,
                '$.reason'      =>      $pa <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	742	865	
==>($cls,$name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $incr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19015	19117	
==>solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19015	19117	
==>solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5250	5359	
==>, '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2792	2901	
==>, '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9847	9935	
==>,undef,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair("a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4871	5064	
==>$fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.pri <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4871	5064	
==>$fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8016	8118	
==>comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[0]");
  }

  $self->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	156	254	
==>tten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	156	254	
==>tten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	156	254	
==>tten in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1993	2146	
==>efined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1993	2146	
==>efined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1993	2146	
==>efined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4196	4348	
==>iners(@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7891	8028	
==>n_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7891	8028	
==>n_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11102	11200	
==>nd make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11102	11200	
==>nd make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11102	11200	
==>nd make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push <==
3	/Users/nnunley/pugs/util/package-osx.pl	10656	10792	
==>map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3957	4073	
==>-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3957	4073	
==>-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12783	12901	
==>l case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12783	12901	
==>l case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12783	12901	
==>l case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1218	1324	
==>_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1218	1324	
==>_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1218	1324	
==>_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2251	2384	
==>ction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2251	2384	
==>ction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2251	2384	
==>ction (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1827	1972	
==>he members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5304	5449	
==>he members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4234	4379	
==>he members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header of this relatio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2139	2246	
==>ct_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnost <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2139	2246	
==>ct_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnost <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2219	2326	
==>ct_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnost <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	280	393	
==>->symbols } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3225	3329	
==>r.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3225	3329	
==>r.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20291	20395	
==>ies
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the en <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14637	14740	
==>`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start => 1.0 ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14637	14740	
==>`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start => 1.0 ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	27	134	
==>t::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $noplan;

$TODO = 0;
$NO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	2004	2103	
==>NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	2004	2103	
==>NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	2004	2103	
==>NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4780	4897	
==>ail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4973	5090	
==>ail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	841	950	
==>greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? bit->new(1) : bit->new(0) }
sub less_than_or_equal_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14554	14639	
==>Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14554	14639	
==>Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14554	14639	
==>Perl5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Pe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3816	3984	
==>Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attrib <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3816	3984	
==>Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37127	37218	
==>('@:superclasses')    => attribute->new('@:superclasses'    => 'list')));
$::Class->send('ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5323	5443	
==>ram{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5323	5443	
==>ram{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5323	5443	
==>ram{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end => $e <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19342	19445	
==>L;
}


# For slow connections, we save lots of bandwidth by printing only once
# per second.
sub _print_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14987	15088	
==>semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14987	15088	
==>semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31065	31259	
==>ft;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31065	31259	
==>ft;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31065	31259	
==>ft;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2200	2284	
==>x:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2200	2284	
==>x:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2200	2284	
==>x:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2827	2964	
==>/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1449	1586	
==>/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	665	785	
==>nostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	665	785	
==>nostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2290	2384	
==>t::Harness.  They are exported on request.

=over 4

=item C<$Test::Harness::Verbose>

The pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12440	12549	
==>); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12440	12549	
==>); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12440	12549	
==>); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17270	17364	
==>utes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17270	17364	
==>utes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17270	17364	
==>utes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Cla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18407	18500	
==>ce corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and/ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18407	18500	
==>ce corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and/ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1403	1487	
==>w.ecma-international.org/publications/standards/Ecma-262.htm
#   http://bclary.com/20 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8386	8490	
==>{
    List::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5016	5115	
==>he object's internal state.  This should be called as the last 
step of enciphering.

=item C<finish <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5016	5115	
==>he object's internal state.  This should be called as the last 
step of enciphering.

=item C<finish <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12884	12994	
==>SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12884	12994	
==>SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12884	12994	
==>SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13448	13545	
==>C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - bac <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13448	13545	
==>C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2390	2509	
==>{ $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2390	2509	
==>{ $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2390	2509	
==>{ $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper le <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11386	11508	
==>msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11386	11508	
==>msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37153	37250	
==>erates to a
C<product>.  In any situation where the heading of one source relation is a
full subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41702	41799	
==>erates to a
C<product>.  In any situation where the heading of one source relation is a
full subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41325	41422	
==>erates to a
C<product>.  In any situation where the heading of one source relation is a
full subse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8542	8646	
==>s = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8542	8646	
==>s = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8542	8646	
==>s = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1051	1183	
==>efix:<++>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        ot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4756	4869	
==>ompiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4592	4702	
==>ompiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2015	2146	
==>&& ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2015	2146	
==>&& ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
su <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5236	5366	
==>"dist/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8769	8885	
==>lan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expec <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	933	1041	
==>lan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expec <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	933	1041	
==>lan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7864	7962	
==>.. metaclass calling instance method fails';

## does Foo get Object's singleton methods ..

is($Fo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8003	8100	
==>any sensitive data still 
in the cipher to be deleted immediately.  This method should be as thoro <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8003	8100	
==>any sensitive data still 
in the cipher to be deleted immediately.  This method should be as thoro <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3098	3220	
==>urn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3098	3220	
==>urn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_e <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	156	255	
==>e inlined Perl 6 source Prelude fallback, or a real
# precompiled AST of Prelude.pm.

our %Config;
o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1410	1575	
==>t->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $args ||= list->new();
    $self->_bind_params($args);
    my $return_value = $self->{bod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22349	22481	
==>dler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18770	18902	
==>dler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13762	13884	
==>calized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available lang <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13762	13884	
==>calized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available lang <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2453	2574	
==>pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new repository on the filesystem. Wipes o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	727	857	
==>ame" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	727	857	
==>ame" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	727	857	
==>ame" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_cod <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3492	3628	
==>q '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13177	13299	
==>t => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13177	13299	
==>t => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5792	5939	
==>is is also a fail
        unshift @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3292	3395	
==>other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3292	3395	
==>other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	466	639	
==>de; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	381	554	
==>de; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	469	642	
==>de; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        re <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	877	1054	
==>ist =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']';
                    push $a, parse( <<>>, 'item', <<>> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1398	1502	
==>r

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1398	1502	
==>r

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	62	180	
==>me::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs::Grammar::Rule::';

sub emit_node {
	die "unknown node type: $_[0]" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12948	13046	
==>the unit is added to the current value to get the next value.
The unit specifier is also used inter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12948	13046	
==>the unit is added to the current value to get the next value.
The unit specifier is also used inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	767	877	
==>def
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	767	877	
==>def
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of cap <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	292	389	
==>Install.pm} set to installed version of inc::Module::Install
#     3. The installed version of inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23856	23946	
==>def,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23856	23946	
==>def,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23856	23946	
==>def,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2059	2193	
==>thread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2059	2193	
==>thread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2059	2193	
==>thread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1688	1844	
==>>fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1688	1844	
==>>fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1688	1844	
==>>fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	275	398	
==>sm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	275	398	
==>sm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	275	398	
==>sm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1049	1174	
==>d_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1049	1174	
==>d_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1049	1174	
==>d_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'P <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	395	505	
==>MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	395	505	
==>MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26136	26251	
==>ne in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match f <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10268	10366	
==>an. A plan is simply the number of tests which are
expected to run. This should be specified at the <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10326	10424	
==>an. A plan is simply the number of tests which are
expected to run. This should be specified at the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6402	6511	
==>:opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6402	6511	
==>:opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6402	6511	
==>:opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1889	2010	
==>sser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1889	2010	
==>sser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1889	2010	
==>sser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12658	12853	
==>=~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12658	12853	
==>=~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2074	2191	
==>?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2928	3032	
==>cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2928	3032	
==>cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2928	3032	
==>cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	56	163	
==>ings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaMode <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	56	163	
==>ings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaMode <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	56	163	
==>ings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaMode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38437	38561	
==>verse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'AR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38437	38561	
==>verse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'AR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38437	38561	
==>verse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4121	4229	
==>y $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4121	4229	
==>y $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4121	4229	
==>y $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22986	23091	
==>defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22986	23091	
==>defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22986	23091	
==>defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2306	2442	
==>$match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2232	2360	
==>$match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22679	22791	
==>xp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto words
    if mname == ":i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4637	4803	
==>urce .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4637	4803	
==>urce .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4637	4803	
==>urce .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_so <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4650	4777	
==>nt( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4650	4777	
==>nt( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1671	1797	
==>? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( defined($file) ) {
        my $name = $se <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3956	4055	
==>fname.tex" or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18750	18844	
==>supply its $document and optional
$parent_node though; you can produce a direct clone like this <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18750	18844	
==>supply its $document and optional
$parent_node though; you can produce a direct clone like this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	579	710	
==>PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	579	710	
==>PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	579	710	
==>PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetO <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3205	3298	
==>InP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use base qw/Class::Accesso <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3262	3344	
==>omplement_previous, $self.complement_next, $set.complement_previous, $set.complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3262	3344	
==>omplement_previous, $self.complement_next, $set.complement_previous, $set.complemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3126	3252	
==>' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3126	3252	
==>' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1016	1122	
==>t into a class
method apply {
    ...
}

# hmm, what do we need to test to check for circular superclasses? <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2495	2640	
==>ultidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $r <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2495	2640	
==>ultidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	169	310	
==>w;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	169	310	
==>w;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26633	26743	
==>Example is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15041	15155	
==>e, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18592	18685	
==>re I<not>
necessarily the names you specified in the constructor. For example,
this module aut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18592	18685	
==>re I<not>
necessarily the names you specified in the constructor. For example,
this module aut <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4524	4640	
==>$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4524	4640	
==>$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_[ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11216	11323	
==>three tests, which it
    passed, this page would report 100 % test passes.)
  </p>

  <table>
    <tmpl_loo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10741	10861	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10741	10861	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10741	10861	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2035	2145	
==>rom_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2035	2145	
==>rom_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2035	2145	
==>rom_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1685	1801	
==>acted2 ],
    } );
};

sub single_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3425	3516	
==>t := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_ty <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3483	3574	
==>t := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_ty <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5951	6134	
==>y => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9428	9611	
==>y => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8484	8667	
==>y => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4904	5058	
==>gth >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4904	5058	
==>gth >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8128	8246	
==>\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind eq 'SubPrim' && $name =~ /END/;#XXX

    $kind = 'Sub' if $kind <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3390	3487	
==>hes a GRUB tarball.
  --grub-local=$grub_local
    Locally, the GRUB tarball is saved as --grub-lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2877	2970	
==>rot implementation is currently at a comparable state as v6.pm.

Although running C<v6-pugs> r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1541	1640	
==>t
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new l <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1541	1640	
==>t
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new l <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2735	2834	
==>nd} = time;
    $self->{_timing}{duration} =
        $self->{_timing}{end} - $self->{_timing}{start} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2095	2194	
==>gname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2095	2194	
==>gname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2095	2194	
==>gname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1132	1235	
==>O - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will b <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1132	1235	
==>O - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will b <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1577	1673	
==>onv = <<'CONVERSION_SUBS';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${re_symbol <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3324	3473	
==>s2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3312	3461	
==>s2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantif <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9781	9878	
==>et_item(class_neg(_)), {!, fail}.
p5_charset_range_x(B) --> p5_charset_item(char(B)).
p5_charset_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13513	13615	
==>($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13513	13615	
==>($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13513	13615	
==>($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7763	7878	
==>\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7763	7878	
==>\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7763	7878	
==>\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5317	5449	
==>&& ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5317	5449	
==>&& ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3992	4089	
==>he parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3992	4089	
==>he parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3992	4089	
==>he parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8167	8282	
==>@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8167	8282	
==>@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8167	8282	
==>@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6600	6790	
==>n "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6600	6790	
==>n "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6600	6790	
==>n "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3735	3840	
==>XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a woul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3735	3840	
==>XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a woul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3735	3840	
==>XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a woul <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1619	1716	
==>com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free s <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1619	1716	
==>com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	626	723	
==>derstood. Everybody cheer!
# (i did not understand (or try very hard to understand) the modula 2 c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	312	414	
==>Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 METHODS

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9930	10027	
==>ode $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9930	10027	
==>ode $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6201	6297	
==>feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6201	6297	
==>feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6201	6297	
==>feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4087	4241	
==>urn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4087	4241	
==>urn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4087	4241	
==>urn $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25298	25396	
==>t's attributes is identical; they do not
interact with the outside environment at all.

A Message o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25298	25396	
==>t's attributes is identical; they do not
interact with the outside environment at all.

A Message o <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2883	2989	
==>erty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2883	2989	
==>erty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18408	18501	
==>being little documentation, we
reverse engineering perl source.

We basically use the perl reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6083	6184	
==>sion of $myobj. All it needs to do to signal
this is to return the string set in advance with the prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6083	6184	
==>sion of $myobj. All it needs to do to signal
this is to return the string set in advance with the prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6083	6184	
==>sion of $myobj. All it needs to do to signal
this is to return the string set in advance with the prun <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13647	13744	
==>ome language feature missing, or core bug that needs to
be sorted out before you can continue.

It <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13705	13802	
==>ome language feature missing, or core bug that needs to
be sorted out before you can continue.

It <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3704	3808	
==>($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3704	3808	
==>($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3704	3808	
==>($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9257	9385	
==>";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9257	9385	
==>";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9257	9385	
==>";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3339	3461	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3532	3654	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3622	3728	
==>=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3622	3728	
==>=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3702	3808	
==>=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7282	7427	
==>ined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7282	7427	
==>ined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7282	7427	
==>ined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13280	13395	
==>if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3744	3850	
==>@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5646	5752	
==>@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22530	22749	
==>TCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22530	22749	
==>TCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22530	22749	
==>TCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @para <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10238	10351	
==>_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10238	10351	
==>_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2159	2312	
==>help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2159	2312	
==>help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2159	2312	
==>help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8941	9052	
==>};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8941	9052	
==>};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8941	9052	
==>};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULT <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8244	8410	
==>this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8708	8874	
==>this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26211	26315	
==>y $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a),
		type::operator::arrow->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11974	12138	
==>to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11974	12138	
==>to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11974	12138	
==>to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9140	9234	
==>($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9140	9234	
==>($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInv <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9140	9234	
==>($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5525	5625	
==>fy_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5525	5625	
==>fy_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5525	5625	
==>fy_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4757	4896	
==>all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4757	4896	
==>all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4757	4896	
==>all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_col <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3938	4056	
==>$named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3938	4056	
==>$named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4528	4646	
==>$named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{posi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2417	2538	
==>elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2417	2538	
==>elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2417	2538	
==>elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1532	1633	
==>$code> as if it were code written in C<$lang>. C<Perl6> is the
    # only required language, but suppo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13184	13319	
==>oncat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13184	13319	
==>oncat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	121	235	
==>gs;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=head1 SYNOPSIS

	use Blondie::Backend: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10800	10917	
==>et.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value att <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10800	10917	
==>et.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value att <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10800	10917	
==>et.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3480	3601	
==>s::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$' . $_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31325	31423	
==>u want modules from multiple
sets in the same disk directory.  In the first example, the Set Name i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31325	31423	
==>u want modules from multiple
sets in the same disk directory.  In the first example, the Set Name i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2284	2386	
==>_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2284	2386	
==>_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handler <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	975	1076	
==>ator
#	::binary - takes 2 params (e.g. ->, x)
#	::nullary - takes 0 params (e.g. int)
# type::variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4251	4391	
==>ding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4251	4391	
==>ding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4251	4391	
==>ding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairnam <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15972	16067	
==>`end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15972	16067	
==>`end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	487	573	
==>Source>,
L<JIB::Repository>, L<JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	252	358	
==>e::comparable';

my $OBJECT_ID = num->new(0);

# create a null object to 
# be used in bootstrapping
our $N <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1892	1986	
==>e test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additio <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1892	1986	
==>e test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7609	7715	
==>s => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7609	7715	
==>s => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7609	7715	
==>s => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	301	425	
==>sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	301	425	
==>sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	301	425	
==>sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overlo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1059	1167	
==>calar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1059	1167	
==>calar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1059	1167	
==>calar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19077	19179	
==>,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19077	19179	
==>,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19077	19179	
==>,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1418	1508	
==>ute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1418	1508	
==>ute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1418	1508	
==>ute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7725	7836	
==>e key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7725	7836	
==>e key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4269	4377	
==>e), "\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1718	1821	
==>char) * 100);
	(void)sprintf(target, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15480	15582	
==>der represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15480	15582	
==>der represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9238	9332	
==>------------------------------------------------------------

This is a rough sketch of that ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9238	9332	
==>------------------------------------------------------------

This is a rough sketch of that ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9238	9332	
==>------------------------------------------------------------

This is a rough sketch of that ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8745	8883	
==>warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8745	8883	
==>warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8745	8883	
==>warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                u <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1419	1550	
==>} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pwd}) {
            goto &$code unless $cwd eq $pwd; # delega <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30315	30409	
==>urns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34867	34961	
==>urns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8586	8692	
==>cond operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # preced <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6120	6223	
==>cond operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # preced <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	626	723	
==>$fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	626	723	
==>$fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	626	723	
==>$fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1754	1863	
==>, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1754	1863	
==>, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1754	1863	
==>, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1410	1509	
==>($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1468	1567	
==>($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10819	10963	
==>tch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7896	8032	
==>tch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7896	8032	
==>tch = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2926	3059	
==>s != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2926	3059	
==>s != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2926	3059	
==>s != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	110	211	
==>= $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    . <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	110	211	
==>= $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    . <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6675	6822	
==>.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6675	6822	
==>.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6276	6411	
==>ys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2023	2137	
==>al>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false";
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2023	2137	
==>al>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false";
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2023	2137	
==>al>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false";
  }
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4880	4994	
==>? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4880	4994	
==>? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4880	4994	
==>? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1084	1215	
==>stance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1084	1215	
==>stance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1084	1215	
==>stance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3188	3333	
==>};
        $s = $s . "    rule $equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10341	10459	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10620	10738	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1038	1163	
==>sif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_sco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1038	1163	
==>sif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_sco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1038	1163	
==>sif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_sco <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	953	1132	
==>methese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	953	1132	
==>methese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5000	5125	
==>->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2467	2605	
==>nk of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6109	6211	
==>n (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6109	6211	
==>n (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} b <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	159	261	
==>s:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	159	261	
==>s:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3622	3767	
==>py,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3622	3767	
==>py,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3622	3767	
==>py,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11253	11378	
==>ubdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11253	11378	
==>ubdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11253	11378	
==>ubdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2205	2376	
==>always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2205	2376	
==>always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	25	139	
==>O8601;

# RULES GURUS APPLY HERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11333	11428	
==>()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11333	11428	
==>()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9778	9899	
==>-----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9778	9899	
==>-----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9778	9899	
==>-----------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an imp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3715	3843	
==>od}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	394	491	
==>$digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	470	567	
==>$digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3045	3172	
==>zy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3045	3172	
==>zy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3045	3172	
==>zy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( de <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15108	15206	
==>if it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are liste <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15108	15206	
==>if it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are liste <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5485	5583	
==>PTION

This module provides an implementation for Perl 6 Rule categories.  

The module is still ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6135	6246	
==>subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6135	6246	
==>subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6135	6246	
==>subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4103	4231	
==>ldren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4103	4231	
==>ldren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4171	4274	
==>n, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the Param obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29621	29750	
==>ift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29621	29750	
==>ift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29621	29750	
==>ift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1304	1431	
==>pe; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1304	1431	
==>pe; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $co <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	218	343	
==>eed at least one package';

for my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8083	8197	
==>ct;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8083	8197	
==>ct;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8083	8197	
==>ct;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7607	7717	
==>{ "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7607	7717	
==>{ "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7607	7717	
==>{ "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4225	4339	
==>n(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4225	4339	
==>n(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4225	4339	
==>n(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22628	22733	
==><Set> class; a Relation::Example is like a Set that exists
over N dimensions rather than one.  The Relatio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12519	12615	
==>rence to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12519	12615	
==>rence to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	34	149	
==>kage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	34	149	
==>kage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	34	149	
==>kage PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	0	143	
==>my $mapStr = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	0	143	
==>my $mapStr = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	0	143	
==>my $mapStr = -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += Str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1716	1837	
==>pty  
        { $_[0]->{out}= { signature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12782	12879	
==>ecurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

R <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12782	12879	
==>ecurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

R <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9096	9274	
==>ifference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12573	12751	
==>ifference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiff <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11809	11987	
==>ifference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidiff <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4653	4828	
==>add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'looser',
        other => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	706	810	
==>ast.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	706	810	
==>ast.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18292	18494	
==>ispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18292	18494	
==>ispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18292	18494	
==>ispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7416	7543	
==>rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyof <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2271	2387	
==>re HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    sa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2271	2387	
==>re HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4184	4282	
==>ro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4184	4282	
==>ro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4184	4282	
==>ro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	631	733	
==>() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	631	733	
==>() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	631	733	
==>() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12100	12209	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12100	12209	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12100	12209	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	28	136	
==>nline;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for the f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2549	2654	
==>rn ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Sta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2549	2654	
==>rn ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1129	1248	
==>air, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1129	1248	
==>air, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1129	1248	
==>air, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14094	14190	
==>etta::Model::Node Class

A Node object is a simple container which stores data to be used or
disp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14094	14190	
==>etta::Model::Node Class

A Node object is a simple container which stores data to be used or
disp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	626	718	
==>ess Scalar::Util::blessed($node);

	$node->isa("Blondie::Node")
		or die "it doesn't look lik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2694	2791	
==>subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2694	2791	
==>subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3041	3138	
==>subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4703	4824	
==>h_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4703	4824	
==>h_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	521	629	
==>y $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub ad <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3232	3336	
==>login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3232	3336	
==>login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2357	2464	
==>, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2357	2464	
==>, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2357	2464	
==>, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9873	10025	
==>);
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1948	2082	
==>);

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1948	2082	
==>);

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9539	9641	
==>of_class => word => $neg, $how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6685	6783	
==>r by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypted <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6685	6783	
==>r by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypted <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14364	14484	
==>$first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14364	14484	
==>$first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	148	287	
==>UBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	148	287	
==>UBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	148	287	
==>UBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8607	8750	
==>listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8607	8750	
==>listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8607	8750	
==>listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	17	119	
==>nals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	17	119	
==>nals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	17	119	
==>nals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3722	3837	
==>lass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3722	3837	
==>lass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3722	3837	
==>lass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4278	4366	
==>rcumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4278	4366	
==>rcumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4278	4366	
==>rcumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2080	2198	
==>> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of scrip <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2080	2198	
==>> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of scrip <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1530	1671	
==>tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Root . '/_b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12821	12934	
==>eudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12821	12934	
==>eudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.conn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6124	6293	
==>,
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6124	6293	
==>,
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6124	6293	
==>,
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ };
            return $r;
        },
        c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7804	7918	
==>f($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_clean <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36483	36579	
==>n()
operator, and the order of its arguments is not significant to the result;
the new Relation:: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15610	15710	
==>pting to store Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a level lower th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	41	129	
==>ugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	41	129	
==>ugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5118	5238	
==>-------------------------------
## now begin creating the metamodel, starting with Class

=pod

class Class {
    has @:M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7727	7813	
==>hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1552	1638	
==>hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1635	1739	
==>er(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1635	1739	
==>er(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1635	1739	
==>er(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12295	12397	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12295	12397	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12295	12397	
==>= $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13795	13939	
==>1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13795	13939	
==>1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13795	13939	
==>1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() whi <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2001	2111	
==>e lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - p <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2001	2111	
==>e lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2064	2171	
==>&func is not really implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or prefer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23556	23671	
==>mmon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23556	23671	
==>mmon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23556	23671	
==>mmon {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2601	2723	
==>t but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan becau <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	366	478	
==>t but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan becau <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	366	478	
==>t but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan becau <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3512	3622	
==>->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self->{tre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33388	33484	
==>r that is like
C<union> except that the returned Relation contains only tuples that are in
all of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37938	38034	
==>r that is like
C<union> except that the returned Relation contains only tuples that are in
all of <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3995	4114	
==>turn @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::L <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3995	4114	
==>turn @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::L <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14253	14357	
==>raph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $neg, \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6193	6397	
==>_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6193	6397	
==>_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6193	6397	
==>_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1261	1357	
==>t's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1261	1357	
==>t's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1261	1357	
==>t's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Uti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16246	16339	
==>".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16246	16339	
==>".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16246	16339	
==>".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5128	5243	
==>ef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5128	5243	
==>ef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5128	5243	
==>ef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15965	16152	
==>],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8], <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11702	11804	
==>push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => unde <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11702	11804	
==>push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => unde <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28852	28973	
==>'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Ent <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28852	28973	
==>'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Ent <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	219	328	
==>'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Ent <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10412	10509	
==>n demand at some time after the input has been set, and could potentially
never be performed at al <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10412	10509	
==>n demand at some time after the input has been set, and could potentially
never be performed at al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15998	16163	
==>ACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15998	16163	
==>ACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15998	16163	
==>ACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	374	469	
==>line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	335	430	
==>line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	335	430	
==>line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18586	18725	
==>the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18586	18725	
==>the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18586	18725	
==>the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13185	13297	
==>'ll brute force launder everything for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    war <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6093	6188	
==>n::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6093	6188	
==>n::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9655	9758	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9655	9758	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9655	9758	
==>ub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1840	1936	
==>lass
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1840	1936	
==>lass
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1840	1936	
==>lass
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3053	3157	
==>ength; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3053	3157	
==>ength; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3053	3157	
==>ength; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22234	22350	
==>f;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18655	18771	
==>f;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1552	1644	
==>=head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Blondie::Nodes> an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7396	7533	
==>g_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7589	7726	
==>g_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8569	8670	
==>global'};
    my $ov = %mods{'ov'} || %mods{'overlap'};
    my $ex = %mods{'ex'} || %mods{'exhaustive' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3417	3621	
==>w( uninitialized );
    return sub {
        my $bool = substr( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                f <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	461	580	
==>ead1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print head <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	461	580	
==>ead1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	12	107	
==>:Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	12	107	
==>:Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	12	107	
==>:Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7194	7285	
==>?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7194	7285	
==>?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7194	7285	
==>?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2739	2858	
==>b new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33387	33482	
==>brary
which it uses, the Template module for the program or first library should
appear first in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33387	33482	
==>brary
which it uses, the Template module for the program or first library should
appear first in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37967	38096	
==>ds:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39987	40104	
==>=> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39987	40104	
==>=> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39987	40104	
==>=> \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	459	567	
==>g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	459	567	
==>g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	459	567	
==>g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1660	1787	
==>$1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1594	1715	
==>$1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12366	12465	
==>nto a single line containing a digest of the original content.
#
# This makes further dividing of Pe <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12366	12465	
==>nto a single line containing a digest of the original content.
#
# This makes further dividing of Pe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	682	779	
==>rom an experimental "let's see if something
like this can work" to "ok, this looks doable".  So ye <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2409	2538	
==>n_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $se <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2409	2538	
==>n_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $se <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1096	1219	
==>ake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3600	3698	
==>t /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object bas <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3600	3698	
==>t /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object bas <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2667	2766	
==>if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2725	2824	
==>if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22525	22624	
==>-- June 29, 2004

=over 4

=item First Release

Documentation not complete, etc.

=back

=head1 CAVE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16599	16716	
==>r($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16599	16716	
==>r($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16599	16716	
==>r($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11639	11759	
==>, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11639	11759	
==>, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11639	11759	
==>, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	414	524	
==>b, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	414	524	
==>b, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2551	2723	
==>>array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1);
                }
            },

            ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21230	21328	
==>t feature is that it provides a
common API for access to those databases, each of which takes a dif <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21230	21328	
==>t feature is that it provides a
common API for access to those databases, each of which takes a dif <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	352	467	
==>mber is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1210	1325	
==>mber is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): r <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3789	3898	
==>ern> | <null> ] [\>\>|\>|\x[bbd]] }
rule argument_list { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rul <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9794	9932	
==>_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9794	9932	
==>_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	89	194	
==>('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	89	194	
==>('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	89	194	
==>('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6381	6483	
==>tails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6381	6483	
==>tails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8578	8680	
==>tails of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	339	444	
==>ng;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	339	444	
==>ng;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	339	444	
==>ng;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6633	6761	
==>sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6633	6761	
==>sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6633	6761	
==>sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6594	6707	
==>1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6594	6707	
==>1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6752	6858	
==>t done so already (looked at $pugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17070	17227	
==>my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17070	17227	
==>my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17070	17227	
==>my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywher <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20325	20448	
==>, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16746	16869	
==>, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->e <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	216	314	
==>ert;
use Test::Harness::Iterator;

# Flags used as return values from our methods.  Just for intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2691	2786	
==>hod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2691	2786	
==>hod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2691	2786	
==>hod sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::I <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9984	10087	
==>:List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of P <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9984	10087	
==>:List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of P <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9857	9956	
==>eports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.pugscode.org/">Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10070	10207	
==>__('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10070	10207	
==>__('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10070	10207	
==>__('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2357	2453	
==>$PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2357	2453	
==>$PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2357	2453	
==>$PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39655	39765	
==>shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39655	39765	
==>shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39655	39765	
==>shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1263	1376	
==>nt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1263	1376	
==>nt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1263	1376	
==>nt - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1262	1402	
==>ACKAGE__->add_rule( 
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PAC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26941	27035	
==>same as C<project> but that the returned Relation has
the complement subset of the original's a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31493	31587	
==>same as C<project> but that the returned Relation has
the complement subset of the original's a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	312	419	
==>onal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	312	419	
==>onal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	312	419	
==>onal soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1304	1415	
==>lf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1304	1415	
==>lf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1304	1415	
==>lf.meta.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3374	3474	
==>))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3374	3474	
==>))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3374	3474	
==>))

# TODO - store(List) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2326	2451	
==>rn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2326	2451	
==>rn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2326	2451	
==>rn p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8068	8177	
==>new ( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleton //= $Class.SUPER::new(
          t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2886	2986	
==>+ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2886	2986	
==>+ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2503	2607	
==>.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2503	2607	
==>.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2503	2607	
==>.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3329	3488	
==>umper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @res <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3793	3952	
==>umper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1732	1870	
==>$idx = shift;
                $self->array_fetchElem($idx)->scalar_fetch;
            },
     
            'array_storeVal' => sub { # $idx <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12216	12313	
==>tive order they had in C<@values>.

If C<$inplace> is specified, the array is sorted in place.

Se <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9220	9313	
==>2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns tr <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9220	9313	
==>2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23802	23955	
==>turn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23802	23955	
==>turn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23802	23955	
==>turn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1476	1590	
==>= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1476	1590	
==>= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1476	1590	
==>= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5209	5305	
==>ocal $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5209	5305	
==>ocal $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5209	5305	
==>ocal $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	977	1095	
==>sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_pa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	262	379	
==>, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	262	379	
==>, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	159	259	
==>::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	159	259	
==>::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	159	259	
==>::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4451	4548	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4451	4548	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4451	4548	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4952	5077	
==>ML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4781	4901	
==>ML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14088	14191	
==>syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file($synpod, $synht <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3920	4022	
==>se currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3920	4022	
==>se currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3920	4022	
==>se currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2439	2580	
==>s($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	836	926	
==>::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is ro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	836	926	
==>::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is ro <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	707	816	
==>t
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	707	816	
==>t
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5675	5774	
==>()

Class method.  Returns a category object.

options:

=item * name => $category_name - the name o <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	343	445	
==>UBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	811	907	
==>= Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	811	907	
==>= Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7216	7339	
==>runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7216	7339	
==>runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7216	7339	
==>runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	934	1038	
==>if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	934	1038	
==>if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	934	1038	
==>if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1140	1261	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1140	1261	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1140	1261	
==>{
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4589	4754	
==>on = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4589	4754	
==>on = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4589	4754	
==>on = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1881	2007	
==>ns" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address;
  my $regexp_compile_hook = sub { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18992	19093	
==>e use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18992	19093	
==>e use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_h <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	575	680	
==>ta :: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3848	3985	
==>t(@mess, "# it should not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10256	10370	
==>ext ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10256	10370	
==>ext ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2066	2164	
==>positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variab <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2066	2164	
==>positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variab <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2413	2511	
==>positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10459	10573	
==>-------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10459	10573	
==>-------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10459	10573	
==>-------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2235	2340	
==>AD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2235	2340	
==>AD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2235	2340	
==>AD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14703	14791	
==>eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3757	3987	
==>ams'  ) {
                my $type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "co <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1940	2073	
==>eturn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1940	2073	
==>eturn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24172	24311	
==>or(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24172	24311	
==>or(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24172	24311	
==>or(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2006	2104	
==>ruct_equiv;
	} elsif ($t eq "PV") {
		return quote(printable($node->struct_equiv));
	} else { die " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	461	556	
==>_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.], <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	461	556	
==>_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	482	605	
==>p,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	482	605	
==>p,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	482	605	
==>p,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1948	2100	
==>_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1948	2100	
==>_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1948	2100	
==>_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n;
    }
    else {
      my $msg = "Unknown modifier :$k will p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7132	7222	
==>tr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7132	7222	
==>tr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7132	7222	
==>tr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15968	16260	
==>hift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15968	16260	
==>hift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15968	16260	
==>hift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        cele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41126	41239	
==>iner::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41126	41239	
==>iner::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41126	41239	
==>iner::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1706	1818	
==>t?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitra <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1706	1818	
==>t?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2781	2876	
==>th Perl 5 interoperability.

Parrot Perl 6 is the best performing implementation by far.
The Par <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	618	741	
==>$msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	618	741	
==>$msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26661	26754	
==>thod takes care of building the
proper inheritance for the node; it uses %Regexp::Parser::load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10746	10974	
==>:List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10746	10974	
==>:List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10746	10974	
==>:List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20387	20491	
==>alue::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20387	20491	
==>alue::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20387	20491	
==>alue::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23642	23767	
==>sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20063	20188	
==>sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1807	1900	
==>ody . ")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::Rule->compile(q(<'regex'> <rule <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7036	7222	
==>rent_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7036	7222	
==>rent_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	308	507	
==>in" => q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $() ,}
            }
    ) );
    __PACKAGE__- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5756	5866	
==>re Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_lin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5756	5866	
==>re Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	909	1008	
==>COPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	909	1008	
==>COPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	909	1008	
==>COPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11081	11192	
==>hesis (maybe capturing paren)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1629	1726	
==>mpty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new sc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1629	1726	
==>mpty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1196	1304	
==>s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1196	1304	
==>s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1196	1304	
==>s always a newline at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16263	16365	
==>iltin = $self->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8247	8338	
==>$?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11724	11815	
==>$?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Rel <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6227	6316	
==>hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi metho <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4382	4498	
==>cks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache3 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4382	4498	
==>cks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache3 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	775	873	
==>fines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests -- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3627	3728	
==>he columns in the summary report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1088	1179	
==>:PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check ( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1088	1179	
==>:PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4286	4409	
==>::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4286	4409	
==>::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4286	4409	
==>::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18849	18948	
==>se,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18849	18948	
==>se,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5892	6048	
==>s) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5892	6048	
==>s) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5892	6048	
==>s) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22777	22875	
==>_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22777	22875	
==>_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22777	22875	
==>_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7001	7140	
==>> sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Arr <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7001	7140	
==>> sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36394	36507	
==>: assertion

Types: suspend (C<< (?> >>)

Data: array reference of any number of objects

Ender: tail

=head2 ifth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12930	13061	
==>o Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12930	13061	
==>o Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12930	13061	
==>o Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Imp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4317	4458	
==>return;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24619	24725	
==>>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21040	21146	
==>>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2471	2575	
==>http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2471	2575	
==>http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15105	15246	
==>self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15105	15246	
==>self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15105	15246	
==>self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2743	2844	
==>y $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2743	2844	
==>y $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2743	2844	
==>y $class = $::Class->new();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17709	17829	
==>er,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ intui <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1737	1836	
==>$f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1737	1836	
==>$f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1523	1631	
==>} => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1523	1631	
==>} => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1523	1631	
==>} => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5430	5553	
==>8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expres <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5430	5553	
==>8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16727	16837	
==>e::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16727	16837	
==>e::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16727	16837	
==>e::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::unta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3161	3266	
==>ued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3161	3266	
==>ued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3161	3266	
==>ued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8318	8419	
==>==========================================================

use FindBin;
use File::Spec;

sub path_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8318	8419	
==>==========================================================

use FindBin;
use File::Spec;

sub path_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8318	8419	
==>==========================================================

use FindBin;
use File::Spec;

sub path_fro <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	646	769	
==>$rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$/ <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	646	769	
==>$rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$/ <==
3	/Users/nnunley/pugs/util/fixauthors.pl	81	177	
==>reeBuilder;

binmode(STDOUT, ":utf8");
binmode(STDIN,  ":utf8");

my @a=<STDIN>;
my @head = @a[0. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10144	10265	
==>rcname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10144	10265	
==>rcname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19401	19486	
==>tr,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4309	4433	
==>'Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/La <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4160	4280	
==>'Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/La <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29754	29849	
==>pre-consumptive.

There is an interesting case of the right parenthesis ')'.  There cannot
be on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	744	851	
==>|| $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	744	851	
==>|| $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	744	851	
==>|| $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1841	1982	
==>?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1841	1982	
==>?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1841	1982	
==>?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1915	2055	
==>ay {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1915	2055	
==>ay {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1915	2055	
==>ay {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6847	6937	
==>JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6847	6937	
==>JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6847	6937	
==>JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16195	16328	
==>dy => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19672	19805	
==>dy => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19205	19338	
==>dy => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4654	4814	
==>round
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - cop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4654	4814	
==>round
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - cop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4654	4814	
==>round
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - cop <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8010	8109	
==>on'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8010	8109	
==>on'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_do <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	308	404	
==>tring',@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp( <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1119	1235	
==>tr is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is ex <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1119	1235	
==>tr is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29267	29367	
==>s this node with the previous one, if they are of the same type. If
it is called I<after> $obj has be <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4634	4742	
==>rn "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4634	4742	
==>rn "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4114	4358	
==>Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Loca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4114	4358	
==>Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Loca <==
3	/Users/nnunley/pugs/util/importgraph.pl	2769	2871	
==>odules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g->add_edge($name, $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2815	2943	
==>y
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2815	2943	
==>y
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2815	2943	
==>y
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3226	3342	
==>ut [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3226	3342	
==>ut [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3226	3342	
==>ut [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - leng <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6318	6418	
==>er 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6318	6418	
==>er 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8515	8615	
==>er 4

=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8505	8614	
==>pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8505	8614	
==>pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8505	8614	
==>pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8114	8220	
==>plate->new(filename => 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) + <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	104	199	
==>ts allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	104	199	
==>ts allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12385	12523	
==>ot ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      met <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2765	2893	
==>ot ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    met <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2765	2893	
==>ot ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    met <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	11	128	
==>pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	11	128	
==>pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	815	925	
==>::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[0]),
    bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2741	2829	
==>cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2741	2829	
==>cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2741	2829	
==>cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4880	4990	
==>File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4880	4990	
==>File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4880	4990	
==>File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12060	12184	
==>sh::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12060	12184	
==>sh::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12060	12184	
==>sh::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2165	2260	
==>fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2165	2260	
==>fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2165	2260	
==>fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4789	4916	
==>D;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4789	4916	
==>D;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4789	4916	
==>D;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5391	5505	
==>d_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5391	5505	
==>d_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5391	5505	
==>d_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	182	331	
==>m_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	182	331	
==>m_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	182	331	
==>m_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub sub <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3287	3517	
==>in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3287	3517	
==>in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11071	11193	
==>_emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10787	10932	
==>next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10787	10932	
==>next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10787	10932	
==>next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUT <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6192	6285	
==>educe the implementation of most block and stream ciphers to a constructor, 
the cryptographic <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6192	6285	
==>educe the implementation of most block and stream ciphers to a constructor, 
the cryptographic <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1769	1863	
==>Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=c <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1769	1863	
==>Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3650	3779	
==>->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3650	3779	
==>->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3650	3779	
==>->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1278	1384	
==>ase wait...\n\n";

    # XXX - instead of --user, use our own package-conf storage position

    foreach my <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2541	2634	
==>entdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2541	2634	
==>entdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	625	735	
==>>VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6064	6150	
==>nels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6064	6150	
==>nels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3534	3686	
==>e only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3534	3686	
==>e only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3534	3686	
==>e only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7560	7673	
==>pe"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7560	7673	
==>pe"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7560	7673	
==>pe"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2856	2955	
==>but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2856	2955	
==>but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9375	9516	
==>rnatives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a sit <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2402	2501	
==>desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2460	2559	
==>desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$tod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	7	97	
==>e Perl6::Core::Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Co <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14412	14519	
==>y $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1892	1999	
==>y $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope { <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2729	2816	
==>ncatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5720	5838	
==>shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5720	5838	
==>shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5720	5838	
==>shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slic <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	332	544	
==>$buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	332	544	
==>$buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12750	12853	
==>o, it maybe probably be
in terms of longest non-infinite.  -law]

=back



=head2 Hash

=over 4

=item d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4939	5045	
==>js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4939	5045	
==>js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4939	5045	
==>js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13427	13528	
==>_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13427	13528	
==>_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13427	13528	
==>_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3306	3420	
==>ss-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3306	3420	
==>ss-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3306	3420	
==>ss-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigencla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2724	2840	
==>%s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11434	11530	
==>ttributes is identical; they do not
interact with the outside environment at all.

A Document obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11434	11530	
==>ttributes is identical; they do not
interact with the outside environment at all.

A Document obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20468	20567	
==>5";

The rationale of this is that randoms strings are usally left alone by
compilers. After all the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20468	20567	
==>5";

The rationale of this is that randoms strings are usally left alone by
compilers. After all the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	0	111	
==>package Data::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	0	111	
==>package Data::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	0	111	
==>package Data::Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1073	1172	
==>ed;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deepl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1131	1230	
==>ed;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deepl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3225	3337	
==>SH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3225	3337	
==>SH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	904	1012	
==>piler::Perl6;
    use Data::Dumper;

    # print "P6 loaded from '$filename'\n";
    open FILE, "<", $filenam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3747	3847	
==>Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3747	3847	
==>Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3747	3847	
==>Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13328	13437	
==>};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13328	13437	
==>};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13328	13437	
==>};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25317	25446	
==>data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25876	26005	
==>data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5463	5588	
==>native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'const'>
    | <'got <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1196	1299	
==>idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1196	1299	
==>idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1196	1299	
==>idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7514	7761	
==>eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### fi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7978	8225	
==>eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### fi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	895	984	
==>value.does(Relation::Heading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrLi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1128	1230	
==>ash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1128	1230	
==>ash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1128	1230	
==>ash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12991	13086	
==>ties are left alone.

If multiple strings are provided as argument they are each decoded
separat <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12991	13086	
==>ties are left alone.

If multiple strings are provided as argument they are each decoded
separat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11964	12058	
==>the F<charnames> pragma installed, but since
this module requires Perl 5.6 or better, I don't e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5753	5847	
==>relude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5753	5847	
==>relude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5753	5847	
==>relude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelud <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29459	29588	
==>YE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29459	29588	
==>YE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	279	396	
==>YE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5569	5678	
==>); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5569	5678	
==>); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5569	5678	
==>); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3085	3227	
==>reedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3096	3238	
==>reedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantif <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18962	19074	
==>.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc exp0, exp1

    reps = p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35641	35733	
==>he aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40191	40283	
==>he aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3906	4082	
==>perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3906	4082	
==>perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1702	1822	
==>"};\n" .
        "";
    # XXX - 'hard' replace $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3262	3362	
==>ethod day_0 returns Int { $.day - 1 }
method mday returns Int { $.day }
method mday_0 returns Int { $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6836	6928	
==>nt identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6836	6928	
==>nt identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6177	6277	
==>name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6177	6277	
==>name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6177	6277	
==>name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4973	5138	
==>ies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5437	5602	
==>ies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	696	795	
==>ental "let's see if something
like this can work" to "ok, this looks doable".  So yes, the code is
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	434	538	
==>term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	434	538	
==>term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	434	538	
==>term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6126	6310	
==>ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6126	6310	
==>ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6126	6310	
==>ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16299	16432	
==>iler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16299	16432	
==>iler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3249	3378	
==>al;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3249	3378	
==>al;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5160	5263	
==>t a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1397	1496	
==>lude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1397	1496	
==>lude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1397	1496	
==>lude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1786	1906	
==>of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5263	5383	
==>of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4193	4313	
==>of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$bo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3850	3958	
==>. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a P <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3850	3958	
==>. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5374	5482	
==>. 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3840	3944	
==>d label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3840	3944	
==>d label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3840	3944	
==>d label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1445	1635	
==>SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1445	1635	
==>SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1445	1635	
==>SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->v <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12681	12781	
==>eld) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12681	12781	
==>eld) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the va <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11127	11227	
==>calculated using the total number of
    tests run -- for example, if a backend only ran three tests, <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2227	2349	
==>ti sub  Perl6::List::reverse (; *@values) returns Lazy|Str {
   given want {
     when List {
       gather {
         1 wh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2461	2559	
==>th p6 ones _without_ changings its name.



of course that has the problem of supplying Perl.pm its <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2368	2464	
==>th p6 ones _without_ changings its name.

of course that has the problem of supplying Perl.pm its <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2795	2894	
==>Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2795	2894	
==>Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4390	4486	
==>popped, then the Seq will finish, the Thunk will
finish, the stacks will be popped once more, and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5787	5922	
==>r::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs::Compiler::Regex->compile( q(
            #~ <Pugs::Grammar::Term. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12826	12926	
==>nite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12826	12926	
==>nite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3986	4093	
==>']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3986	4093	
==>']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3986	4093	
==>']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	940	1081	
==>} elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	940	1081	
==>} elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4062	4163	
==>> Num )
 {
     3.1415926535897932384626433832795028841971693993751058209749445923078164062;
     # ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11779	11880	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11779	11880	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11779	11880	
==>y->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2192	2295	
==>mplement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2192	2295	
==>mplement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equ <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	168	265	
==>rDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, Str ?$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21115	21350	
==>("is_nil?"),
                        param => ide("xs"),
                    ),
                    then => val("n"),
                    else => comb(
                        fun => comb(
                            fun => ide("length' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6179	6299	
==>) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7177	7297	
==>) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29527	29645	
==>mbre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renverseme <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29527	29645	
==>mbre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renverseme <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	339	449	
==>mbre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renverseme <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8778	8875	
==>ext Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<st <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8778	8875	
==>ext Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7111	7212	
==>Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7111	7212	
==>Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7111	7212	
==>Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2475	2629	
==>test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_tes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7802	7904	
==>n object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7802	7904	
==>n object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infin <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6859	6963	
==>l',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6859	6963	
==>l',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16431	16534	
==>ssful$bonusmsg.\n";
    } elsif (!$tot->{tests}){
        die "FAILED--no tests were run for some reason <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	719	836	
==>pl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$Perl6::Run::OnPerl5::X1::BB::pugs, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2991	3083	
==>between perl and Blondie, by providing implementations of
some math, string and IO operations <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3703	3846	
==>], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9181	9310	
==>$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9169	9298	
==>$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1451	1550	
==>",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1451	1550	
==>",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1451	1550	
==>",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23758	23856	
==>lass defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28310	28408	
==>lass defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<ne <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5468	5566	
==>absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# Thi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5468	5566	
==>absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# Thi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7176	7285	
==>QUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENG <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7176	7285	
==>QUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENG <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24405	24489	
==>mat(C1,G)) :- append(C0,CL,C1).
match_captures_set(N,X,amat(C0,G),amat(C1,G)) :- repl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	155	264	
==>E__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	155	264	
==>E__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	155	264	
==>E__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3144	3253	
==>d'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3144	3253	
==>d'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3144	3253	
==>d'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17892	17991	
==>BMS object at a time, and they are
essentially all isolated from each other, even if more than one u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17892	17991	
==>BMS object at a time, and they are
essentially all isolated from each other, even if more than one u <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	26	121	
==>inning of a simple JavaScript-on-p6 runtime.
It seems likely there will be more than one.

Desig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	51	175	
==>ser';


our $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3904	4016	
==>ues %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7484	7581	
==>t may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7484	7581	
==>t may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	433	577	
==>>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bu <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	433	577	
==>>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1139	1260	
==>(1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { pri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11432	11551	
==>ulti method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14909	15028	
==>ulti method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1108	1216	
==>ty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1108	1216	
==>ty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	869	977	
==>at were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	869	977	
==>at were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	869	977	
==>at were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16988	17080	
==>nternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16988	17080	
==>nternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16988	17080	
==>nternals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12975	13065	
==>ion 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12975	13065	
==>ion 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4698	4821	
==>));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4698	4821	
==>));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5288	5411	
==>));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4389	4478	
==>aque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4389	4478	
==>aque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4389	4478	
==>aque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	849	1046	
==>warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	849	1046	
==>warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	849	1046	
==>warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::V <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	429	548	
==>g =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# che <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	548	658	
==>g =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# che <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	517	653	
==>abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $di <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	517	653	
==>abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $di <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12974	13099	
==>ILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;
  sub emit {
    my($o)=@_;
    my $no <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5434	5538	
==>kip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), gi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5434	5538	
==>kip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), gi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6958	7062	
==>kip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by default), gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3271	3373	
==>"use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3271	3373	
==>"use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3271	3373	
==>"use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1022	1119	
==>eciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not ju <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1022	1119	
==>eciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1665	1785	
==>urrent_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1665	1785	
==>urrent_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1665	1785	
==>urrent_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1211	1329	
==>ed};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "position <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1211	1329	
==>ed};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "position <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1420	1538	
==>ed};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "position <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1305	1416	
==>eta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1305	1416	
==>eta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1305	1416	
==>eta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TOD <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14229	14326	
==>"NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14229	14326	
==>"NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11459	11569	
==>.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      deb <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11459	11569	
==>.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      deb <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1183	1287	
==>t, *@args) {
    die 'Please override &dispatch in your subclass of POE::Session.';
  }
}

=head1 NAME

P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	297	552	
==>ackages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26043	26138	
==>ersion.  Each variable name is a machine-readable short
string; the allowed variable names you c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26043	26138	
==>ersion.  Each variable name is a machine-readable short
string; the allowed variable names you c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2555	2647	
==>ecause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2555	2647	
==>ecause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3488	3600	
==>y $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"tex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3488	3600	
==>y $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"tex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3488	3600	
==>y $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15064	15247	
==>d($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15064	15247	
==>d($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15064	15247	
==>d($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2541	2657	
==>new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2541	2657	
==>new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2541	2657	
==>new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $ne <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1362	1469	
==>l => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8194	8302	
==>!', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec say <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8194	8302	
==>!', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec say <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2677	2783	
==>";
	} else {
		die "can't perform runtime cast of ($node)::$from to $to";
	}
}

__PACKAGE__;

__END__

=pod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16562	16665	
==>Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16562	16665	
==>Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16562	16665	
==>Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5082	5208	
==>AGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5082	5208	
==>AGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5082	5208	
==>AGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2620	2721	
==>= $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2620	2721	
==>= $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	923	1025	
==>rl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^(.*?)\s* <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	574	671	
==>b content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is expor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	574	671	
==>b content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17201	17317	
==>we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17201	17317	
==>we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17201	17317	
==>we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->di <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3293	3389	
==>should be doing this anyway, though.)  It 
also means that the nonce or initialization vector sho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3293	3389	
==>should be doing this anyway, though.)  It 
also means that the nonce or initialization vector sho <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5128	5217	
==>tructors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5674	5776	
==>self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5674	5776	
==>self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6264	6366	
==>self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3458	3592	
==>= (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8245	8348	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8245	8348	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3760	3861	
==>ymbol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type => $type,
			struct_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	289	379	
==>ontent_type content_encoding content_length content_language
    title user_agent server fr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	289	379	
==>ontent_type content_encoding content_length content_language
    title user_agent server fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17296	17408	
==>L() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17296	17408	
==>L() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17296	17408	
==>L() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10473	10643	
==>TCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10473	10643	
==>TCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10473	10643	
==>TCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6159	6251	
==>nternals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6159	6251	
==>nternals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6159	6251	
==>nternals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	699	802	
==>D (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	699	802	
==>D (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2332	2427	
==>quiv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struct);
}

sub can_reduce {
	my $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13196	13292	
==>`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method returns <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13196	13292	
==>`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12044	12161	
==>6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12044	12161	
==>6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12044	12161	
==>6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16118	16226	
==>from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16118	16226	
==>from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16118	16226	
==>from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17417	17527	
==>)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17417	17527	
==>)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17417	17527	
==>)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11954	12066	
==>nified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11954	12066	
==>nified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11954	12066	
==>nified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4977	5097	
==>) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4977	5097	
==>) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4977	5097	
==>) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \" <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	528	624	
==>d returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_T <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	528	624	
==>d returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9110	9270	
==>:Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9110	9270	
==>:Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9110	9270	
==>:Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3914	4034	
==>\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3914	4034	
==>\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3914	4034	
==>\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("prelud <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3055	3236	
==>shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3055	3236	
==>shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34139	34237	
==>ant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38689	38787	
==>ant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38150	38248	
==>ant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35372	35474	
==>ommon; it will only accept inputs that would result in
a cross-product when joined.  This method has al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39922	40024	
==>ommon; it will only accept inputs that would result in
a cross-product when joined.  This method has al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39482	39584	
==>ommon; it will only accept inputs that would result in
a cross-product when joined.  This method has al <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2315	2511	
==>ots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10583	10681	
==>he set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy it <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10583	10681	
==>he set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8174	8265	
==>rn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8174	8265	
==>rn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8174	8265	
==>rn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6076	6178	
==>TTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6076	6178	
==>TTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3272	3431	
==>ter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13859	13976	
==>nected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13859	13976	
==>nected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2311	2418	
==>{ 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2311	2418	
==>{ 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6659	6762	
==>\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1936	2087	
==>po_pool)
        ));
        $obj->index((defined $index
                    ? dir($index)
                    : $obj->root->subdir($config->repo_index) <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2834	2922	
==>g.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=h <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2834	2922	
==>g.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2212	2428	
==>unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2212	2428	
==>unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1555	1647	
==>n_value = $self->{body}->($self->{env});
    (blessed($return_value) && ($return_value->isa($ <==
3	/Users/nnunley/pugs/util/func_refact.pl	1878	2023	
==>or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print " <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3793	3888	
==>rser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $bu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3793	3888	
==>rser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $bu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3167	3315	
==>ped from '&func' in
                   # the env, which is then given to the App
    ),

Inherits Unit.

=item Val

Encapsulates a perl value. Usuall <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33650	33744	
==>elements where each
element is a Template module Member Name and usually corresponds to a
langu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33650	33744	
==>elements where each
element is a Template module Member Name and usually corresponds to a
langu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3493	3675	
==>} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3493	3675	
==>} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3493	3675	
==>} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2022	2160	
==>>as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2022	2160	
==>>as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2022	2160	
==>>as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12966	13080	
==>($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12966	13080	
==>($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20530	20633	
==>>
file as abstract as possible.  F<Regexp::Parser> installs its handlers
in F<Regexp/Parser/Handlers.pm> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10084	10173	
==>\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"u <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10819	10908	
==>\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3396	3499	
==>ved
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3396	3499	
==>ved
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3476	3579	
==>ved
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Pla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	76	195	
==>UILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header ret <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	76	195	
==>UILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header ret <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	89	200	
==>port();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one sour <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5883	6008	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6076	6201	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1718	1812	
==>_enumclass);
    $optable->addToken("term:<-[", "term:", "nows", &parse_enumclass);
    $optabl <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	699	804	
==>is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is expor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	699	804	
==>is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is expor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5589	5693	
==>aque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5767	5852	
==>tion

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO P <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5767	5852	
==>tion

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4910	5013	
==>ct(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  $sel <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2199	2293	
==>dule names are typically 
capitalized, most "autotags" will be too.

When activated, the specia <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2199	2293	
==>dule names are typically 
capitalized, most "autotags" will be too.

When activated, the specia <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2120	2239	
==>tests 
    # since they are often the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $tar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1019	1118	
==>ile, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1019	1118	
==>ile, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2173	2293	
==>hority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2173	2293	
==>hority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2173	2293	
==>hority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11744	11892	
==>unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11744	11892	
==>unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11744	11892	
==>unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' => <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5306	5417	
==>ds;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::nu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5364	5475	
==>ds;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	769	889	
==>ortList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	769	889	
==>ortList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	769	889	
==>ortList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21838	21928	
==>t ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21838	21928	
==>t ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21838	21928	
==>t ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3451	3553	
==>:POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3451	3553	
==>:POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5114	5249	
==>make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5114	5249	
==>make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5114	5249	
==>make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1604	1746	
==>),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8160	8260	
==>ays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be f <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8160	8260	
==>ays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2041	2177	
==>and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2041	2177	
==>and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2041	2177	
==>and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	618	703	
==>$jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	618	703	
==>$jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	618	703	
==>$jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1057	1158	
==>ess {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1057	1158	
==>ess {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36996	37111	
==>c context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36996	37111	
==>c context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36996	37111	
==>c context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2084	2198	
==>a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2084	2198	
==>a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2084	2198	
==>a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3353	3446	
==>File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Ls <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3353	3446	
==>File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Ls <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10331	10423	
==>witches( @switches_from_user );

Returns only defined, non-blank, trimmed switches from the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	260	367	
==>r
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * Ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	260	367	
==>r
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * Ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	260	367	
==>r
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * Ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15409	15524	
==>=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15409	15524	
==>=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1910	2006	
==>urn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1910	2006	
==>urn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1910	2006	
==>urn arr.length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5815	5911	
==>ipt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5815	5911	
==>ipt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5815	5911	
==>ipt::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4327	4440	
==>le (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4327	4440	
==>le (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4327	4440	
==>le (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2016	2185	
==>p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2016	2185	
==>p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2016	2185	
==>p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1291	1426	
==>}
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{nu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1973	2060	
==>turn $size;
}

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1973	2060	
==>turn $size;
}

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5886	6000	
==>{
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOpti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5886	6000	
==>{
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOpti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5886	6000	
==>{
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{tpParam}{isOpti <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	380	485	
==>we could actually make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think we have <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21159	21252	
==>nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21159	21252	
==>nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	892	988	
==>(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	892	988	
==>(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	892	988	
==>(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26103	26215	
==>flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5663	5769	
==>ator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5663	5769	
==>ator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2606	2709	
==>= get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1218	1321	
==>= get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1919	2022	
==>= get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8121	8327	
==>ss_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #ta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12111	12257	
==>ss_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12111	12257	
==>ss_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16352	16451	
==>TI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16352	16451	
==>TI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16352	16451	
==>TI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1009	1145	
==>block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1009	1145	
==>block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6749	6848	
==>tails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6749	6848	
==>tails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8946	9045	
==>tails of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1087	1189	
==>$two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1087	1189	
==>$two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3218	3371	
==>XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub $id\n" . emit($block) . "    ;\n";
}
sub node::sub_d <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5647	5758	
==>.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5647	5758	
==>.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.en <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7808	7915	
==>text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7808	7915	
==>text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3660	3764	
==>not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3660	3764	
==>not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3660	3764	
==>not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2319	2415	
==>containing control characters and Unicode.
# Trying to avoid setting $_, or relying on local $_ t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10400	10491	
==>ndef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',define <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11135	11226	
==>ndef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',define <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2083	2206	
==>ss (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} an <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2061	2184	
==>ss (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} an <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28266	28371	
==>do a higher order app with uneq types";

# a helper that returns the stringified type of an AST
sub t {
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1420	1521	
==>alue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1420	1521	
==>alue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1420	1521	
==>alue - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - mov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1649	1785	
==>rn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1649	1785	
==>rn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1649	1785	
==>rn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.of <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2108	2222	
==>}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21585	21679	
==>showing other messages instead which are
more appropriate to the context in which they are usin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21585	21679	
==>showing other messages instead which are
more appropriate to the context in which they are usin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8407	8526	
==>le lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8407	8526	
==>le lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8407	8526	
==>le lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14443	14538	
==>NC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14443	14538	
==>NC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14443	14538	
==>NC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Ru <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2185	2286	
==>subscription($?SELF);
    }
}

class Class::Events::Subscription::Named {
    is Class::Events::Subscr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9017	9115	
==>RLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object alw <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8720	8816	
==>RLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object alw <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	597	753	
==>m( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $ar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	879	1023	
==>m( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	162	295	
==>(
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	88	203	
==>s

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) < <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	88	203	
==>s

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) < <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22253	22356	
==>my @parts = split('::',$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29353	29453	
==>me of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33905	34005	
==>me of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33069	33169	
==>me of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attributes.  The membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	489	582	
==>e lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	489	582	
==>e lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	489	582	
==>e lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5864	5962	
==>ocale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5864	5962	
==>ocale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4299	4393	
==>").

I<Note that the "Rosetta" package serves only as the name-sake
representative for this who <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4299	4393	
==>").

I<Note that the "Rosetta" package serves only as the name-sake
representative for this who <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	718	847	
==>ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        so <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	891	1003	
==>lassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</h <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	891	1003	
==>lassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	238	389	
==>> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	238	389	
==>> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	238	389	
==>> {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6203	6302	
==>ature is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6203	6302	
==>ature is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6203	6302	
==>ature is useful, like custom, for when you don't want to mess
with members belonging to 3rd party cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	617	841	
==>tion_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	617	841	
==>tion_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	617	841	
==>tion_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3598	3733	
==>index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the sa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3598	3733	
==>index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the sa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2418	2533	
==>f->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = shift;
		warn "reducing " . q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	391	507	
==>::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4646	4759	
==>ent;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4646	4759	
==>ent;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4513	4616	
==>-line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4513	4616	
==>-line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2443	2523	
==>s->build_indirect_typed_value($_->type, Blondie::TypeSafe::Type::Std->new("Type") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3947	4056	
==>me, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{require <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3947	4056	
==>me, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{require <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3947	4056	
==>me, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12909	13066	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12909	13066	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12909	13066	
==>isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4319	4412	
==>/>.

The Parrot homepage at L<http://www.parrotcode.org>.

=head1 COPYRIGHT

Copyright 2006 by <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16351	16451	
==>trap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cut

sub _reset_file_state {
    my <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1939	2030	
==>:LaxAttrList () {...}

proto method export_attr_names of List of Relation::AttrName () {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	735	888	
==>{
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	735	888	
==>{
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	735	888	
==>{
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15845	16007	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16124	16286	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1192	1284	
==>ob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4205	4313	
==>s you should take care not
to call them in function form by mistake; that would not do at all.

=over 4

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4205	4313	
==>s you should take care not
to call them in function form by mistake; that would not do at all.

=over 4

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4205	4313	
==>s you should take care not
to call them in function form by mistake; that would not do at all.

=over 4

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9215	9367	
==>am[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9215	9367	
==>am[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9215	9367	
==>am[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10682	10785	
==>".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10682	10785	
==>".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10682	10785	
==>".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11453	11575	
==>num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11453	11575	
==>num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9594	9710	
==>-CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9594	9710	
==>-CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9594	9710	
==>-CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::Eval <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6500	6650	
==>{
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends worki <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6558	6708	
==>{
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends worki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15262	15387	
==>{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15262	15387	
==>{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15262	15387	
==>{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	32	128	
==>use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	29	125	
==>use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4641	4767	
==>um => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 1 ,} } <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	418	513	
==>_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	418	513	
==>_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	779	895	
==>Native());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	779	895	
==>Native());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	779	895	
==>Native());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3565	3766	
==>= $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3565	3766	
==>= $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %even <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27892	28000	
==>elf._merge();
    }
    @:MRO;
}

(method MRO ((opaque $self:)) returns list 
    (($self: get_attr (symbol n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21337	21446	
==>does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21337	21446	
==>does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21337	21446	
==>does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	140	245	
==>-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Da <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	140	245	
==>-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Da <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	140	245	
==>-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	488	584	
==>rep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterator }

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	488	584	
==>rep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterator }

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	488	584	
==>rep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->iterator }

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21901	22094	
==>->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21901	22094	
==>->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21901	22094	
==>->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20273	20420	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20552	20699	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _pr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19173	19281	
==>val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::null <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2519	2634	
==>array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2519	2634	
==>array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2519	2634	
==>array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10138	10245	
==>' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1140	1246	
==>sue since even higher order functions get prims instead of thunks when
    # possible

    my $body = $thun <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13666	13766	
==>sue since even higher order functions get prims instead of thunks when possible

    my $body = $thun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9871	9995	
==>g,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9871	9995	
==>g,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9871	9995	
==>g,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1166	1262	
==>e to the main namespace for your tastes, and
you want to rebless everything down to your project' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1166	1262	
==>e to the main namespace for your tastes, and
you want to rebless everything down to your project' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1166	1262	
==>e to the main namespace for your tastes, and
you want to rebless everything down to your project' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5090	5207	
==>ingle( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5090	5207	
==>ingle( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5090	5207	
==>ingle( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13778	13925	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14057	14204	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _pu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9828	9913	
==>nge_x(B) --> p5_charset_item(char(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15459	15569	
==>elems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15459	15569	
==>elems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15459	15569	
==>elems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : unde <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14042	14139	
==>e one?

Possible next steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.com/R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1189	1285	
==>OTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1189	1285	
==>OTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	528	632	
==>implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	528	632	
==>implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30345	30442	
==>eturns false, to
pretend it didn't actually match.  The real closing parenthesis handler
is:

  $s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	715	822	
==>tstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = ope <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	715	822	
==>tstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = ope <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1120	1217	
==>or machines and not for
humans. It has no syntax, only an abstract syntax tree, and some very simp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11430	11548	
==>METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11430	11548	
==>METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3024	3124	
==>ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3024	3124	
==>ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_ha <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3427	3526	
==>head1 BUGS

Numerous.

=head1 TODO

=over
=item Scoping

You should be able to do both lexically and <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	549	722	
==>$1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18068	18165	
==>ll not
have references to each other at a level visible in the Rosetta Native
Interface, if at all <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18068	18165	
==>ll not
have references to each other at a level visible in the Rosetta Native
Interface, if at all <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34324	34420	
==>rns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38874	38970	
==>rns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38353	38449	
==>rns the complement of
C<semijoin> with the same argument.  This method has aliases named
C<semimi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1595	1702	
==>ift;
    my $realclean = $self->makemaker_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	65	166	
==>r TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs som <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	65	166	
==>r TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs som <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1762	1855	
==>value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithms <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1762	1855	
==>value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithms <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9731	9874	
==>ument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9731	9874	
==>ument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_p <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	48	148	
==>erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindungsoperat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40461	40554	
==>ther
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40461	40554	
==>ther
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13120	13242	
==>abel";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13120	13242	
==>abel";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13120	13242	
==>abel";
    my $table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4901	5008	
==>lic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4901	5008	
==>lic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7098	7205	
==>lic attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The numbe <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24139	24241	
==>y print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16420	16518	
==>arent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16420	16518	
==>arent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new N <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5605	5708	
==><=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5605	5708	
==><=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1047	1192	
==>en eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1047	1192	
==>en eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1047	1192	
==>en eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1051	1174	
==>ir
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1051	1174	
==>ir
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1051	1174	
==>ir
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10943	11049	
==>IB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1833	1925	
==>1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1833	1925	
==>1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	767	858	
==>{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	767	858	
==>{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	747	866	
==>my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	747	866	
==>my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	747	866	
==>my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2464	2576	
==>case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2464	2576	
==>case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2811	2923	
==>case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtit <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	746	845	
==>n ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { can <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	746	845	
==>n ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { can <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7383	7480	
==>uffer input data until they have an entire block, then cipher 
the block and return the new cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7383	7480	
==>uffer input data until they have an entire block, then cipher 
the block and return the new cipher <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34174	34267	
==>umber of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Perl.  We will sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1507	1597	
==>rnals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1507	1597	
==>rnals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1507	1597	
==>rnals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10464	10629	
==>ped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "skipped\n        all skipped: no reason giv <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3638	3732	
==>this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Crypto <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3638	3732	
==>this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Crypto <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2733	2839	
==>);
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2733	2839	
==>);
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	403	507	
==>pile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	435	539	
==>pile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	276	372	
==>E_PREFIX => 4;
use constant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8549	8735	
==>ethod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8549	8735	
==>ethod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8549	8735	
==>ethod eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8085	8202	
==>PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8085	8202	
==>PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8085	8202	
==>PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2099	2278	
==>ass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2099	2278	
==>ass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2099	2278	
==>ass') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	616	700	
==>f($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	616	700	
==>f($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	616	700	
==>f($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22153	22249	
==>issions issue; simply order the files appropriately in the search
list.  The analogy is similar t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22153	22249	
==>issions issue; simply order the files appropriately in the search
list.  The analogy is similar t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28344	28437	
==>ts of running
its tests.  Setting C<$Test::Harness::verbose> will override this,
or you can us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21578	21672	
==>SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21578	21672	
==>SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21578	21672	
==>SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4285	4417	
==>ntents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4285	4417	
==>ntents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4285	4417	
==>ntents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5239	5339	
==>infest_syns($link_info) unless $no_designdocs;

# Generating index.html
my @dirs = sort keys %{$index <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10424	10521	
==>o insert an item which is already inserted.  In fact,
this is commonly used for directed graph tra <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10424	10521	
==>o insert an item which is already inserted.  In fact,
this is commonly used for directed graph tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	4	102	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	4	102	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	4	102	
==>sr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4332	4471	
==>t{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11544	11634	
==>") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain im <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11544	11634	
==>") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1166	1279	
==>($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1166	1279	
==>($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1166	1279	
==>($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&y <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4267	4399	
==>Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   Lis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26379	26476	
==>e you create a modified version of Rosetta
that you are willing to distribute, because that is a p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26379	26476	
==>e you create a modified version of Rosetta
that you are willing to distribute, because that is a p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18187	18322	
==>et = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14608	14743	
==>et = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1702	1829	
==>ance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1702	1829	
==>ance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1702	1829	
==>ance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16958	17067	
==>eue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16958	17067	
==>eue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10795	10908	
==>l int iscapture
    .local string subname
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, m <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1821	1918	
==>burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_che <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1821	1918	
==>burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_che <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20989	21169	
==>n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{'next'}..$test->{max} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31161	31255	
==>, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31161	31255	
==>, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6993	7138	
==>splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6993	7138	
==>splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6993	7138	
==>splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	929	1039	
==>.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	929	1039	
==>.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	929	1039	
==>.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8398	8497	
==>Tree

If you don't care to intercept the building of the tree, you can use the
parse() method to exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4394	4508	
==>$output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4394	4508	
==>$output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4394	4508	
==>$output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3553	3673	
==>e @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3553	3673	
==>e @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1566	1671	
==>result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = shift;
	return $self->literal_value($node) <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	690	836	
==>lsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	378	514	
==>elf: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	378	514	
==>elf: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8629	8767	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8629	8767	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8629	8767	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28999	29120	
==>d, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28999	29120	
==>d, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	354	463	
==>d, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12000	12123	
==>Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12000	12123	
==>Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12000	12123	
==>Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36288	36416	
==>_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36288	36416	
==>_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36288	36416	
==>_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $le <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1830	1984	
==>."'\n";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the metadata
        ### location of .jib is in same dir as <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	733	839	
==>{
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	791	897	
==>{
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4313	4408	
==>code> <'}'> ]* }
rule metasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2701	2848	
==>attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2701	2848	
==>attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2701	2848	
==>attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 G <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3221	3324	
==>\=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @ind <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3221	3324	
==>\=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @ind <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14124	14212	
==>C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(N <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4412	4531	
==>to precompile the Prelude\n"
        unless $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3117	3218	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submeth <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3117	3218	
==>L::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17274	17378	
==>'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17274	17378	
==>'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17274	17378	
==>'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attrib <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4220	4347	
==>_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4220	4347	
==>_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1070	1197	
==>_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3266	3363	
==>$self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3266	3363	
==>$self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3266	3363	
==>$self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4916	5048	
==>o the next one
            next if $self->has_method($method_name);
            # otherwise ... add the method in 
            $self- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5122	5225	
==>ls{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5122	5225	
==>ls{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1410	1517	
==>rol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1410	1517	
==>rol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1410	1517	
==>rol:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	348	447	
==>l5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	348	447	
==>l5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	633	725	
==>UNKN => --$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Seq <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	676	767	
==>an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=cu <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	676	767	
==>an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3870	3991	
==>$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3870	3991	
==>$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3870	3991	
==>$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5640	5729	
==>!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5640	5729	
==>!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11283	11393	
==>lder::Test::Base {}
  class Test::Builder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1741	1845	
==>lder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1741	1845	
==>lder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5332	5427	
==>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5332	5427	
==>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5332	5427	
==>{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->S <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3290	3460	
==>NPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bindir = "$Site/$path/bin";
                last LINKING unless -d $my_bind <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	926	1024	
==>b catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	926	1024	
==>b catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3045	3162	
==>nt
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3045	3162	
==>nt
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3416	3529	
==>ms->equal_to($right->params) == bit->new(1) && 
     $left->returns eq $right->returns) ? 
        bit->new(1) : b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12917	13031	
==>6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12917	13031	
==>6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12917	13031	
==>6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	700	824	
==>opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11763	11859	
==>sting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will h <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11821	11917	
==>sting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	457	563	
==>ss is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	457	563	
==>ss is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	457	563	
==>ss is a subclass of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Cla <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12585	12698	
==>um },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1427	1529	
==>ELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = % <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1427	1529	
==>ELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = % <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8701	8831	
==>kg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pkg) || $self->can_ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1716	1838	
==>ure} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1716	1838	
==>ure} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gramm <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2904	3025	
==>is($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3449	3570	
==>is($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10563	10654	
==>h.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="ht <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2829	3006	
==>) if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2829	3006	
==>) if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_cont <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3601	3727	
==>le ||= $1 if /^(?:package|module|class) \s+ ([^-;]+)/x;
            $program .= $_;
        }

        die "could not guess mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	143	239	
==>ringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	143	239	
==>ringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	143	239	
==>ringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - Mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7690	7796	
==>num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7690	7796	
==>num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7690	7796	
==>num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2288	2388	
==>$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2288	2388	
==>$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2288	2388	
==>$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opa <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2428	2563	
==>s shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4519	4627	
==>@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($pare <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4519	4627	
==>@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($pare <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9096	9206	
==>mmit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12949	13056	
==>mmit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12949	13056	
==>mmit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2097	2230	
==>=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9693	9791	
==>t, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9693	9791	
==>t, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	180	318	
==>stance => {
        attrs => [ '$:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	438	550	
==>match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	438	550	
==>match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); metho <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1318	1648	
==>eturn;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1318	1648	
==>eturn;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1887	1988	
==>esInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1950	2070	
==>nd {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1950	2070	
==>nd {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1950	2070	
==>nd {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1444	1560	
==>tion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1444	1560	
==>tion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1444	1560	
==>tion (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(ne <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	172	289	
==>mp];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my($key,$val) = split ':', $arg;
    die usage() if !$ke <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	187	292	
==>nfinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors sho <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	187	292	
==>nfinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors sho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4269	4369	
==>sing on the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4269	4369	
==>sing on the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6466	6566	
==>sing on the C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4091	4220	
==>s};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4091	4220	
==>s};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4091	4220	
==>s};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTRO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	117	217	
==>5::Ratchet for the final implementation

use strict;
use warnings;
use Data::Dumper;
use PadWalk <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8141	8239	
==>may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8141	8239	
==>may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @spa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4310	4485	
==>[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4179	4348	
==>[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                ma <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9813	9974	
==>V) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::ENV)
             (closure::signature new 
                ((params  (closure:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37256	37422	
==>$pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37256	37422	
==>$pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37256	37422	
==>$pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	722	816	
==>ent, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	722	816	
==>ent, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	722	816	
==>ent, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc(new PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28725	28862	
==>pture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29004	29141	
==>pture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 , <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	857	972	
==>resis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	857	972	
==>resis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17482	17596	
==>(@classes); # dont want current class;
    push(@classes,$ROOT);

    my $code = "";
    $code .= "package $ROOT".( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8943	9036	
==>literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2768	2861	
==>literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13827	13963	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13827	13963	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13827	13963	
==>s => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15577	15714	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15577	15714	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15577	15714	
==>es');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_at <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	376	482	
==>ducer::DuplicateFinder/;

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		my $struct = $no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	138	243	
==>e::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	794	881	
==>NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for Eng <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	794	881	
==>NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for Eng <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2753	2859	
==>= lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2753	2859	
==>= lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2753	2859	
==>= lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Int <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1613	1718	
==>d   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1613	1718	
==>d   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densit <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13020	13120	
==>s> from the invocant.
returns the value(s) that were associated to those keys.

=over

=item Unary Fo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5218	5333	
==>Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5218	5333	
==>Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6742	6857	
==>Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7792	7920	
==>ad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11793	11917	
==>ad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11793	11917	
==>ad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1849	1982	
==>::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?O <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1849	1982	
==>::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?O <==
3	/Users/nnunley/pugs/util/package-osx.pl	742	842	
==>ine.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        /usr/local/lib/libparrot.0.4.4.dyli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14772	14881	
==>m( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14772	14881	
==>m( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14772	14881	
==>m( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use co <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	527	646	
==>er to "make register".
        $prompt_register = 1;
    }
}
print "*** Running: $setup @args\n";

my $rv = system($setu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4722	4832	
==>= .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it breaks other MM-users
    # $makefile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1207	1331	
==>at we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1207	1331	
==>at we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1207	1331	
==>at we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.F <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9061	9171	
==>ed captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9049	9159	
==>ed captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5100	5211	
==>change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # o <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5100	5211	
==>change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	168	271	
==>to other native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2085	2198	
==>= $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1763	1868	
==>= $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return <==
3	/Users/nnunley/pugs/util/package-osx.pl	6254	6351	
==>w::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2149	2252	
==>"Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2149	2252	
==>"Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2149	2252	
==>"Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4622	4730	
==>ngth(1));

 multi Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::push (@array is rw ; *@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7582	7670	
==>ub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_cal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1407	1495	
==>ub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7761	7867	
==>0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7761	7867	
==>0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7761	7867	
==>0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  for <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7462	7561	
==>nshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements t <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7462	7561	
==>nshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2780	2873	
==>->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2780	2873	
==>->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2780	2873	
==>->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3210	3324	
==>})')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3210	3324	
==>})')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3210	3324	
==>})')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8340	8463	
==>', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	880	978	
==>turn &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	880	978	
==>turn &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	9	273	
==>n/pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        di <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	9	273	
==>n/pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16210	16312	
==>ute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16210	16312	
==>ute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16210	16312	
==>ute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_ta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1753	1879	
==>ure_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1946	2072	
==>ure_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4678	4796	
==>{&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  return if &SIZE_ONLY;
  my $self = shift;
  $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6090	6196	
==>lue');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10347	10453	
==>lue');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_ <==
3	/Users/nnunley/pugs/util/config_h.pl	752	849	
==>SION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1101	1209	
==>e' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1101	1209	
==>e' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1101	1209	
==>e' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8590	8707	
==>, $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8586	8703	
==>, $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6736	6833	
==>revious_comp_hook = NULL;

regexp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1862	1968	
==>} )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1862	1968	
==>} )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1862	1968	
==>} )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6496	6606	
==>r(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6496	6606	
==>r(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6496	6606	
==>r(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16571	16681	
==>...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it wil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16571	16681	
==>...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it wil <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2084	2182	
==>rd_zero (Num $x) {
	return(int $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	return 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26602	26813	
==>rn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26602	26813	
==>rn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26602	26813	
==>rn Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	254	501	
==>= 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!red <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	254	501	
==>= 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!red <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	254	501	
==>= 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!red <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4213	4337	
==>4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4213	4337	
==>4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postf <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13179	13285	
==>sh @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eval $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10806	10913	
==>Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10806	10913	
==>Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10806	10913	
==>Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12481	12613	
==>ts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12481	12613	
==>ts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12481	12613	
==>ts $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #pri <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	430	537	
==>egexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	430	537	
==>egexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17237	17336	
==>.. destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17237	17336	
==>.. destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17237	17336	
==>.. destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40990	41091	
==>ref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40990	41091	
==>ref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40990	41091	
==>ref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13389	13502	
==>}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13389	13502	
==>}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13389	13502	
==>}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1117	1237	
==>class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1117	1237	
==>class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1117	1237	
==>class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2050	2163	
==>_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2050	2163	
==>_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2050	2163	
==>_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35945	36043	
==>mmon tuple values are aligned and merged.  The heading
of the new relation is the union of the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40495	40593	
==>mmon tuple values are aligned and merged.  The heading
of the new relation is the union of the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40109	40207	
==>mmon tuple values are aligned and merged.  The heading
of the new relation is the union of the invo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22422	22545	
==>return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22701	22824	
==>return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2119	2221	
==>es \n etc map to, values are 2 char strings such as \n
my %backslash_escape;
foreach my $x (split //, ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3944	4091	
==>PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3944	4091	
==>PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	794	941	
==>PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1772	1864	
==>ND_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
qu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1739	1827	
==>\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1739	1827	
==>\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20983	21241	
==>m );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20983	21241	
==>m );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20983	21241	
==>m );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2854	2946	
==>s, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2854	2946	
==>s, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2854	2946	
==>s, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2269	2380	
==>onfess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2269	2380	
==>onfess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2269	2380	
==>onfess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	633	755	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	633	755	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	633	755	
==>e { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2158	2271	
==>) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2158	2271	
==>) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	44	125	
==>sr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module::Ins <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7181	7306	
==>,
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "tra <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7181	7306	
==>,
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "tra <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18643	18775	
==>(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E G <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14765	14860	
==>BMS framework is a powerful but elegant system, which makes
it easy to create and use relational <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14765	14860	
==>BMS framework is a powerful but elegant system, which makes
it easy to create and use relational <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12098	12217	
==>'EOG');
#\

# at the root we initialize the predefined symbols, and the initial set of generic variables
ROOT: env($$) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2439	2539	
==>ise replace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2346	2444	
==>ise replace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	480	579	
==>est::Harness ONLY!>

=head1 FUNCTIONS

=head2 C<assert()>

  assert( EXPR, $name );

If the expressi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	380	480	
==>line('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	380	480	
==>line('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	380	480	
==>line('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4042	4162	
==>_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9729	9825	
==>he following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9729	9825	
==>he following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HT <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2831	2949	
==>urn "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2831	2949	
==>urn "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21821	21914	
==>!, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    isAscii(C).
clas <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6772	6869	
==>";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_version).
*** Please install a newer <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5697	5819	
==>> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5697	5819	
==>> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5697	5819	
==>> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@array <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	969	1072	
==>mplate   = 'util/config-template.yml';
    $filename           ||= $ENV{PUGS_BUILD_CONFIG} || $config_de <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13352	13446	
==>erminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash mus <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13352	13446	
==>erminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash mus <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8244	8393	
==>< $length; $k++) {
                my $key = $k; # Eh. Spec would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33219	33320	
==>be searched in the order
they appear in this array until a match for that message is found.  Since a
p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33219	33320	
==>be searched in the order
they appear in this array until a match for that message is found.  Since a
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3838	3947	
==>sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3838	3947	
==>sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3838	3947	
==>sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SU <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6085	6211	
==>ize;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10079	10170	
==>=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10079	10170	
==>=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8311	8458	
==>value), "\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in orig <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28137	28235	
==>ng! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32689	32787	
==>ng! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gene <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5328	5448	
==>>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { < <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5830	5940	
==>rt {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our arg <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5830	5940	
==>rt {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1935	2060	
==>($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1935	2060	
==>($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1935	2060	
==>($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($proto, $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	55	161	
==>lementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	55	161	
==>lementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	55	161	
==>lementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now imp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33433	33530	
==>ned Relation contains only tuples that are in
all of the source Relations.  This method has an ali <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37983	38080	
==>ned Relation contains only tuples that are in
all of the source Relations.  This method has an ali <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15196	15289	
==>!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	974	1234	
==>er => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=he <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	974	1234	
==>er => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=he <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	649	747	
==>ef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Silly - a subclass <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16456	16569	
==>return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16456	16569	
==>return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5451	5559	
==>->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5451	5559	
==>->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5451	5559	
==>->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless->custom($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	566	676	
==>ist;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	566	676	
==>ist;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	566	676	
==>ist;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1221	1323	
==>timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1221	1323	
==>timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1221	1323	
==>timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars q <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	986	1087	
==>d $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to continue the previo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	905	1001	
==>codings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functional <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	905	1001	
==>codings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functional <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40407	40510	
==>ou broke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7602	7693	
==>running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7660	7751	
==>running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5810	5926	
==>lf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5810	5926	
==>lf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5810	5926	
==>lf = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33477	33584	
==>n
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38027	38134	
==>n
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37416	37523	
==>n
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1173	1352	
==>$meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SEL <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1173	1352	
==>$meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SEL <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23237	23337	
==>EEN 
 ROPT_UTF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 Execution - Out <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1023	1116	
==>ns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<serve <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1023	1116	
==>ns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<serve <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9448	9578	
==>should probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2501	2631	
==>should probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6225	6335	
==>n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6225	6335	
==>n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1757	1856	
==>lf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1757	1856	
==>lf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1757	1856	
==>lf, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2682	2822	
==>} else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2682	2822	
==>} else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2682	2822	
==>} else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5787	5897	
==>n.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5787	5897	
==>n.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_op <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	169	274	
==>th;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that get declared first "win <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13649	13742	
==>rol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13649	13742	
==>rol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13649	13742	
==>rol('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6658	6804	
==>ng|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phra <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6715	6861	
==>ng|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phra <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	337	449	
==>izer

sub tokenize ( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15368	15533	
==>ub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15368	15533	
==>ub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15368	15533	
==>ub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	362	498	
==>tantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*IN <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	362	498	
==>tantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*IN <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20762	20881	
==>tus is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2048	2150	
==>bj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::M <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5660	5748	
==>$event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5660	5748	
==>$event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1870	1970	
==>VarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1870	1970	
==>VarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1870	1970	
==>VarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1280	1390	
==>pecced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1280	1390	
==>pecced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8187	8285	
==>ub if ( $match == "Sub" );
  ($operator) = newfrom($matchObj, $whitespacePosition, $match);
  #What <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	743	855	
==>urn Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	743	855	
==>urn Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3167	3274	
==>12', $file12,
        "3rd line\n4th line\n5th line\n6th line\n7th line\n".
        "8th line\n9th line\n10t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14212	14348	
==>'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14491	14627	
==>'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20621	20743	
==>, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20621	20743	
==>, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20621	20743	
==>, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9072	9163	
==>head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9072	9163	
==>head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18020	18215	
==>== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21497	21692	
==>== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21084	21279	
==>== $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16695	16821	
==>c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16695	16821	
==>c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16695	16821	
==>c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11003	11137	
==>:RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::constant( '$prefix:<$id>' ),\n" .
                "        \\ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	459	578	
==>=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print he <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	459	578	
==>=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	589	695	
==>ion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	589	695	
==>ion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	589	695	
==>ion
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38172	38311	
==>array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38172	38311	
==>array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38172	38311	
==>array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3091	3442	
==>ects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=en <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3091	3442	
==>ects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=en <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5178	5317	
==>Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pre     L <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15781	15907	
==>+
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20014	20140	
==>+
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4313	4431	
==>har) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	413	532	
==>umber($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	181	272	
==>erl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	499	604	
==>Bin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	499	604	
==>Bin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	499	604	
==>Bin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7532	7671	
==>$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7532	7671	
==>$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7532	7671	
==>$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1381	1512	
==>tion();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self->position() > 0;
}

sub as_integer {
  my ( $self ) =  @_;

}

sub as_ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	526	628	
==>, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submetho <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	526	628	
==>, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submetho <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16566	16655	
==>,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	329	438	
==>le = (caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	835	927	
==>N

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documenta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	835	927	
==>N

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documenta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1363	1465	
==>t supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1363	1465	
==>t supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1363	1465	
==>t supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9310	9448	
==>e('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists(' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9310	9448	
==>e('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists(' <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2319	2424	
==>LARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1164	1287	
==>thod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1164	1287	
==>thod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1164	1287	
==>thod) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8590	8756	
==>count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8590	8756	
==>count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8590	8756	
==>count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19092	19280	
==>s and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19092	19280	
==>s and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19092	19280	
==>s and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVE <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10045	10163	
==>lso, don't quote
    # it if it's already quoted.
    for ( @derived_switches ) {
        $_ = qq["$_"] if ((/\s/ || $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1880	1983	
==>t_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1880	1983	
==>t_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2485	2609	
==>STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2485	2609	
==>STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14259	14360	
==>self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs = hash( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18980	19090	
==>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18980	19090	
==>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6183	6298	
==>essage/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6183	6298	
==>essage/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method conten <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	229	342	
==>instance of POE::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1643	1806	
==>> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1643	1806	
==>> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3453	3622	
==>->create('$current' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18516	18609	
==>xecp hooks (C functions
which get called on regular expression compilation and execution) to
p <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2806	2899	
==>xecp hooks (C functions
which get called on regular expression compilation and execution) to
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	534	650	
==>w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_coun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	534	650	
==>w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_coun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	534	650	
==>w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_coun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14822	14965	
==>shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14822	14965	
==>shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14822	14965	
==>shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	905	1037	
==>.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	905	1037	
==>.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	905	1037	
==>.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1493	1591	
==>n too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1493	1591	
==>n too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1493	1591	
==>n too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3069	3178	
==>rue;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3069	3178	
==>rue;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3069	3178	
==>rue;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2596	2704	
==>[ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2596	2704	
==>[ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2596	2704	
==>[ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3186	3320	
==>ribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3186	3320	
==>ribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3186	3320	
==>ribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{class_attr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2111	2283	
==>651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signature from S29draft.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3557	3702	
==>n unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3415	3555	
==>n unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8027	8168	
==>oo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8027	8168	
==>oo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8027	8168	
==>oo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2045	2164	
==>ule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2056	2175	
==>ule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2603	2699	
==>o specify is probably --initrd-mnt.

Note: I only tested this program on Linux, but it should wor <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3565	3686	
==>mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7042	7163	
==>mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5999	6120	
==>mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( $mapping. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2219	2356	
==>ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $hea <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2219	2356	
==>ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	878	990	
==>ual> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4324	4440	
==>gs{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     | <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13071	13167	
==>rson' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute() <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13071	13167	
==>rson' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1557	1676	
==>f $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1557	1676	
==>f $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1557	1676	
==>f $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14266	14406	
==>{
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21661	21752	
==>vel of DBI's provided independence
is I<Database Driver Independence>, and not I<Database La <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21661	21752	
==>vel of DBI's provided independence
is I<Database Driver Independence>, and not I<Database La <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11572	11662	
==>ction will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11630	11720	
==>ction will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow <==
3	/Users/nnunley/pugs/util/package-osx.pl	1173	1279	
==>dline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/l <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5492	5595	
==>urns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the Fi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5492	5595	
==>urns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6424	6530	
==>tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6424	6530	
==>tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6424	6530	
==>tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\n";

  ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5583	5692	
==>= _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5583	5692	
==>= _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5583	5692	
==>= _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1955	2071	
==>:UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1955	2071	
==>:UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1955	2071	
==>:UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9627	9725	
==>)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting cruft <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9627	9725	
==>)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting cruft <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9627	9725	
==>)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting cruft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	742	856	
==>IL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	742	856	
==>IL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	742	856	
==>IL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11782	11895	
==>$f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11782	11895	
==>$f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11782	11895	
==>$f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_packa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3032	3130	
==>ations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3032	3130	
==>ations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3186	3294	
==>er
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3186	3294	
==>er
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3186	3294	
==>er
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2173	2283	
==>ed_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2173	2283	
==>ed_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2253	2363	
==>ed_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	223	338	
==>ODO - prefix:{'+'}
# TODO - ~ ? 

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::O <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	86	193	
==>ct;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	92	199	
==>ct;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10457	10566	
==>TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10457	10566	
==>TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10457	10566	
==>TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	869	965	
==>e (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use constant RPe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34207	34299	
==>ranslator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34207	34299	
==>ranslator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4932	5055	
==>ule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5125	5248	
==>ule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negate <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	898	1031	
==>acktrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	898	1031	
==>acktrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1579	1718	
==>m<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1579	1718	
==>m<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2333	2443	
==>it :words modifiers.
#
#  Thanks to Bob Clary, who created the HTML-ified ecma-262, without which
#  this gramm <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	203	315	
==>the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset fr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	203	315	
==>the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1165	1267	
==>PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1165	1267	
==>PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1165	1267	
==>PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3135	3267	
==>uperclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3135	3267	
==>uperclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3135	3267	
==>uperclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	284	381	
==>ect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	284	381	
==>ect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	284	381	
==>ect?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is pri <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5474	5645	
==>gth
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@he <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5474	5645	
==>gth
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15070	15250	
==>for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15070	15250	
==>for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15070	15250	
==>for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1394	1506	
==>s) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1599	1711	
==>s) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1660	1772	
==>s) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method i <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	250	371	
==>b Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        ' <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	250	371	
==>b Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        ' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7726	7834	
==>tr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $I <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	593	688	
==>sing the 
Cipher API> for general information.

=head2 Constructor options

With no options, Cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	593	688	
==>sing the 
Cipher API> for general information.

=head2 Constructor options

With no options, Cip <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	730	858	
==>ect from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw[installa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	720	840	
==>ect from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4414	4530	
==>param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4414	4530	
==>param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4414	4530	
==>param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	138	250	
==>able (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require => 1,
);

sub symbols {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1987	2122	
==>h->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ext <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2422	2557	
==>h->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ext <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2859	2994	
==>h->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ext <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10109	10222	
==>_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10109	10222	
==>_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_var <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	215	334	
==>unt, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	215	334	
==>unt, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	637	752	
==>r || 0); 1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	600	701	
==>ct), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	600	701	
==>ct), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	600	701	
==>ct), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1058	1183	
==>. $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Control - <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9709	9808	
==>od _head() returns Array { return }
method _tail() returns Array { return }

# What we implement for <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9709	9808	
==>od _head() returns Array { return }
method _tail() returns Array { return }

# What we implement for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7034	7131	
==>w-level functional operators, and the higher level OO/Overload 

runtime. 



- internal rule oper <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6794	6888	
==>w-level functional operators, and the higher level OO/Overload 
runtime. 

- internal rule oper <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23724	23823	
==>can not be further changed;
this class defaults it to False.

=back

This is the main Relation const <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28276	28375	
==>can not be further changed;
this class defaults it to False.

=back

This is the main Relation const <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	719	816	
==>rn($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookies{$variable}=$value;
}

sub GetCoo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22947	23119	
==>aram, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22947	23119	
==>aram, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22947	23119	
==>aram, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7048	7178	
==>nstance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7048	7178	
==>nstance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7048	7178	
==>nstance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	513	621	
==>ub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	513	621	
==>ub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	513	621	
==>ub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	156	252	
==>so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	156	252	
==>so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	156	252	
==>so even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5253	5350	
==>ackage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5253	5350	
==>ackage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5253	5350	
==>ackage PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8600	8705	
==>in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighte <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3831	3934	
==>inputrc
    The readline library likes to have a /etc/inputrc.
  --terminfo=$terminfo
    To make, for e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6134	6236	
==>in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighte <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21093	21182	
==>MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21093	21182	
==>MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	442	564	
==>ary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13133	13249	
==>num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6608	6724	
==>num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20163	20346	
==>ems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20163	20346	
==>ems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20163	20346	
==>ems - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9023	9155	
==>5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9023	9155	
==>5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9466	9573	
==>:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9466	9573	
==>:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflu <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5071	5175	
==>NV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This local subroutine returns the version of ghc passed to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5526	5635	
==>The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5526	5635	
==>The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5526	5635	
==>The other option is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers pos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	96	204	
==>RSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6431	6528	
==>annot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_sibling <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6431	6528	
==>annot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_sibling <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	116	218	
==>if all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy arra <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	116	218	
==>if all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy arra <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1078	1185	
==>r {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_ind <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33166	33261	
==>e a
message, the corresponding Template modules will be searched in the order
they appear in thi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33166	33261	
==>e a
message, the corresponding Template modules will be searched in the order
they appear in thi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1357	1467	
==>arams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1357	1467	
==>arams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5151	5260	
==>at to do about TVar and pSyms.
package PIL::PIL1CPerl5::NodesInfo;
our %node_named;
our @nodes;
our %nodes_of_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1097	1203	
==>d args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1097	1203	
==>d args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1097	1203	
==>d args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1730	1856	
==>r_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1730	1856	
==>r_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1730	1856	
==>r_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2008	2117	
==>pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2008	2117	
==>pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2008	2117	
==>pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14800	14903	
==>};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14800	14903	
==>};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14800	14903	
==>};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7007	7134	
==>ub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7007	7134	
==>ub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7007	7134	
==>ub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2297	2473	
==>pen => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2297	2473	
==>pen => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7670	7803	
==>SES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7670	7803	
==>SES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	838	925	
==>npath('./util/smokeserv/smokeserv-client.pl'); 

chdir($pugs_sandbox) or die "Could chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9709	9824	
==>_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9709	9824	
==>_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9709	9824	
==>_roles () { "<implemented>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2343	2436	
==>thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2343	2436	
==>thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2343	2436	
==>thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5696	5827	
==>t::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scalar    pre     min     safe   (List)\
\\n   Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20514	20764	
==>ell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20514	20764	
==>ell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20514	20764	
==>ell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $e <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2796	2894	
==>t works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is wha <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2796	2894	
==>t works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is wha <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2296	2388	
==>yntax Tree, and can be executed by a
runtime. An example runtime is L<Blondie::Backend::Perl> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19044	19249	
==>regex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	15	108	
==>rammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	15	108	
==>rammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21738	21858	
==>s: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$module};
  if $seen {
    opRequire( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	93	183	
==>::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	280	370	
==>::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	467	557	
==>::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1886	1987	
==>elf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1886	1987	
==>elf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1886	1987	
==>elf:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	41	154	
==>t = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	41	154	
==>t = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	41	154	
==>t = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4138	4234	
==>ad1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder single <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4138	4234	
==>ad1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder single <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5662	5758	
==>ad1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder single <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	998	1100	
==>ned.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	998	1100	
==>ned.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12948	13063	
==>TI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12948	13063	
==>TI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12948	13063	
==>TI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5120	5241	
==>B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5120	5241	
==>B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7317	7438	
==>B<Str $.diagnostic>

The test's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B< <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12216	12310	
==>Once object support is created, we will add it here, and
maintain backwards compatibility as we <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12274	12368	
==>Once object support is created, we will add it here, and
maintain backwards compatibility as we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13504	13619	
==>_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13504	13619	
==>_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13504	13619	
==>_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8621	8725	
==>ck => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8621	8725	
==>ck => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19592	19696	
==>ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9553	9649	
==>R) --> p5_simple_escape_sequence(R).
p5_charset_item(setrange(A,B)) --> p5_charset_item(char(A)), <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	725	831	
==>(undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax works better
# sub parser (Cod <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5803	5908	
==>ar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5803	5908	
==>ar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7293	7461	
==>_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7293	7461	
==>_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7293	7461	
==>_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2283	2557	
==>g' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5760	6034	
==>g' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4690	4964	
==>g' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12736	12948	
==>..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12736	12948	
==>..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12736	12948	
==>..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	948	1068	
==>\}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	948	1068	
==>\}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	948	1068	
==>\}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2184	2288	
==>g(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2184	2288	
==>g(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2184	2288	
==>g(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34710	34808	
==>ion that has the
same heading as the invocant and whose body contains all of the tuples that
are in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39260	39358	
==>ion that has the
same heading as the invocant and whose body contains all of the tuples that
are in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19119	19294	
==>et fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19119	19294	
==>et fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19119	19294	
==>et fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2203	2293	
==>$b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2203	2293	
==>$b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2203	2293	
==>$b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	542	646	
==>w< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	542	646	
==>w< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	542	646	
==>w< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1131	1254	
==>ined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REM <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1131	1254	
==>ined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9972	10129	
==>hift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9972	10129	
==>hift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9972	10129	
==>hift  @list },
        cend =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39659	39779	
==>dd_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an object:
      $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4314	4393	
==>[\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4314	4393	
==>[\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6632	6762	
==>nd - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6632	6762	
==>nd - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6632	6762	
==>nd - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	216	331	
==>e {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	210	325	
==>e {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	268	383	
==>e {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6158	6258	
==>::Builder::Test::WithReason role
and override some methods to provide additional features.

=item B<T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6158	6258	
==>::Builder::Test::WithReason role
and override some methods to provide additional features.

=item B<T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8355	8455	
==>::Builder::Test::WithReason role
and override some methods to provide additional features.

=item B<T <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6101	6231	
==>match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6101	6231	
==>match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23679	23775	
==>lasses;
}

(method superclasses ((opaque $self) (list ?@superclasses)) returns list 
    ((?@supe <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1578	1670	
==>PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that dir <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1418	1510	
==>PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that dir <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2605	2712	
==>:Val->new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1376	1462	
==>mpiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1376	1462	
==>mpiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	294	426	
==>sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13847	13945	
==>ar_numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar_non_numeric => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7304	7406	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10781	10883	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9918	10020	
==>he invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $othe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20106	20206	
==>lementation can be changed greatly (it isn't what's important;
the interface/behaviour is), this Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24658	24758	
==>lementation can be changed greatly (it isn't what's important;
the interface/behaviour is), this Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23210	23310	
==>lementation can be changed greatly (it isn't what's important;
the interface/behaviour is), this Rela <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2425	2545	
==>o_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->isa('nil') && $param->to_str->to_nat <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8787	8886	
==>s

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8787	8886	
==>s

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4880	5012	
==>ores{$runcore}{$cat} }
      ];
    }

    $runcores{$runcore} = [
      map {{
        catname => $_,
        smokes  => $runcores{$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8192	8278	
==>= %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8192	8278	
==>= %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18203	18302	
==>};
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18203	18302	
==>};
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18203	18302	
==>};
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11378	11496	
==>[ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11378	11496	
==>[ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11378	11496	
==>[ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12774	12867	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12774	12867	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12774	12867	
==>stcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10750	10931	
==>ti  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCriterion  $by = &infix:<c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2612	2706	
==>() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2612	2706	
==>() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $stat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12873	12992	
==>meric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1965	2072	
==>bject->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1965	2072	
==>bject->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1965	2072	
==>bject->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24673	24785	
==>fthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21094	21206	
==>fthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13317	13405	
==>ode_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { number_chars(I, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5240	5335	
==>ription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wit <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5240	5335	
==>ription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6764	6859	
==>ription?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	963	1104	
==>ase},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	963	1104	
==>ase},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	963	1104	
==>ase},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @inpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2558	2670	
==>a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2558	2670	
==>a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2558	2670	
==>a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1513	1653	
==>r => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '|',
        assoc => 'left',
        precedence => 'looser',
        other <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22027	22118	
==>to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22027	22118	
==>to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	309	412	
==>ess(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $cani <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	309	412	
==>ess(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $cani <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	309	412	
==>ess(undef, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $cani <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6420	6529	
==>lass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6420	6529	
==>lass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6420	6529	
==>lass($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	959	1059	
==>p Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	959	1059	
==>p Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	959	1059	
==>p Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1011	1128	
==>ckage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Du <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1011	1128	
==>ckage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Du <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1011	1128	
==>ckage => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3517	3636	
==>->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3517	3636	
==>->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3517	3636	
==>->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	440	551	
==>rn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	440	551	
==>rn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	440	551	
==>rn sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11978	12082	
==>([^:]+) $/x);
	$class->new(@_);
}


# this is the actual inferrence engine
my $i = Language::AttributeGra <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	463	564	
==>lename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	463	564	
==>lename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31686	31789	
==>all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36236	36339	
==>all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35472	35575	
==>all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases
named C<wh <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15202	15309	
==>param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3647	3740	
==>sect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3647	3740	
==>sect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4277	4442	
==>/;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4277	4442	
==>/;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4277	4442	
==>/;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Ty <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	61	189	
==>SA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3026	3137	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3026	3137	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3026	3137	
==>_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4085	4215	
==>: There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($ind <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4085	4215	
==>: There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($ind <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2031	2124	
==>s} $exename.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	248	344	
==>ME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SY <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	248	344	
==>ME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SY <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14239	14331	
==>ass.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14239	14331	
==>ass.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14239	14331	
==>ass.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3828	3952	
==>( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back the priva <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20634	20731	
==>me
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20634	20731	
==>me
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	876	1002	
==>(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	876	1002	
==>(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	876	1002	
==>(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9747	9834	
==>O);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9747	9834	
==>O);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9747	9834	
==>O);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10072	10205	
==>undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10072	10205	
==>undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10072	10205	
==>undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3865	3968	
==>hes[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3865	3968	
==>hes[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $ <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1737	1834	
==>Perl 6. It is only an experiment, it's not
API compatible to the original POE, and is possibly ver <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7929	8024	
==>t_element ('item')>

This event is fired when an '=item' directive is reached, the next event fi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7929	8024	
==>t_element ('item')>

This event is fired when an '=item' directive is reached, the next event fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7444	7556	
==>val emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4048	4160	
==>val emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4897	5009	
==>val emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26062	26160	
==>ee 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1885	1990	
==>_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1885	1990	
==>_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30559	30675	
==>read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35110	35226	
==>read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34292	34408	
==>read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Rela <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25986	26089	
==>names that aren't being renamed.  This method
supports renaming attributes to each others' names.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30538	30641	
==>names that aren't being renamed.  This method
supports renaming attributes to each others' names.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29513	29616	
==>names that aren't being renamed.  This method
supports renaming attributes to each others' names.

=item <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4891	4985	
==>ason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4949	5043	
==>ason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5526	5631	
==>ix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5526	5631	
==>ix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5526	5631	
==>ix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4581	4702	
==>infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4581	4702	
==>infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6039	6132	
==>USAGE">.

=head1 WARNING

This is version B<0.022b>.  The documentation is (still) incomplete. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1559	1659	
==>de_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1766	1866	
==>de_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6268	6379	
==>der::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6268	6379	
==>der::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8465	8576	
==>der::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7717	7816	
==>fault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7717	7816	
==>fault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7717	7816	
==>fault version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) tru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	280	380	
==>nated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{})';
use constant RPe_NO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32507	32600	
==><union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37057	37150	
==><union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1519	1628	
==>lement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1519	1628	
==>lement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.cl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17798	17906	
==>turn $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$s)=@_;
  my $r = compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1969	2065	
==>unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1969	2065	
==>unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1969	2065	
==>unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub add_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2794	2912	
==>$val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2794	2912	
==>$val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2794	2912	
==>$val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5105	5229	
==>me,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5105	5229	
==>me,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	799	907	
==>"ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3598	3701	
==>iff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3598	3701	
==>iff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8919	9010	
==>ct } '... instance calling metaclass singleton method fails';
fails_ok { $iFoo->singleton_te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2395	2569	
==>, 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6162	6261	
==>, 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6162	6261	
==>, 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3211	3309	
==>t modules that use Test::Builder.  It
does this by you setting the expected output and diagnostic o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3211	3309	
==>t modules that use Test::Builder.  It
does this by you setting the expected output and diagnostic o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3291	3389	
==>t modules that use Test::Builder.  It
does this by you setting the expected output and diagnostic o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2622	2724	
==>d autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2622	2724	
==>d autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2622	2724	
==>d autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	908	1027	
==>a($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	908	1027	
==>a($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	908	1027	
==>a($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2859	3000	
==>f the metadir doesn't exist yet, this is a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15548	15642	
==>ristopher J. Date and Hugh
Darwen for a solid foundation for data and database management syste <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15548	15642	
==>ristopher J. Date and Hugh
Darwen for a solid foundation for data and database management syste <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	213	342	
==>ructure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1987	2088	
==>o, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2045	2146	
==>o, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9522	9639	
==>from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9522	9639	
==>from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9522	9639	
==>from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	366	470	
==>\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	366	470	
==>\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	366	470	
==>\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2065	2166	
==>in32$/ );
    $self->{_is_macos} = ( $^O eq 'MacOS' );
}

=head1 Analysis

=head2 $strap->analyze( $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17929	18024	
==>E: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17929	18024	
==>E: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11792	11927	
==>ther other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15269	15404	
==>ther other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14604	14739	
==>ther other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35373	35495	
==>vert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my @kids = @{ $se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8426	8530	
==>entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8426	8530	
==>entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	529	626	
==>dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $inst->contro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	975	1071	
==>/path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::Pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6008	6122	
==>_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6008	6122	
==>_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6008	6122	
==>_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16457	16555	
==>.};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16457	16555	
==>.};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16457	16555	
==>.};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4885	4988	
==>write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4885	4988	
==>write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4885	4988	
==>write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4767	4934	
==>)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.b <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4767	4934	
==>)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4398	4504	
==>efile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1022	1114	
==>t the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1022	1114	
==>t the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $c <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1093	1236	
==>m;
    
    if (!-e $filename) {
        require File::Copy;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $! <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23946	24041	
==>MS.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23946	24041	
==>MS.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5600	5729	
==>o });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5600	5729	
==>o });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5600	5729	
==>o });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4584	4701	
==>enerated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbrevia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4584	4701	
==>enerated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbrevia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4584	4701	
==>enerated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbrevia <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	30	130	
==>ie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19347	19439	
==>ead data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19347	19439	
==>ead data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5249	5349	
==>$obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5249	5349	
==>$obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5249	5349	
==>$obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1065	1191	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1065	1191	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1065	1191	
==>V = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27393	27492	
==>es as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31945	32044	
==>es as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31028	31127	
==>es as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	812	948	
==>tch => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2007	2137	
==>{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2007	2137	
==>{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# a <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2785	2870	
==>r GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submi <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2785	2870	
==>r GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5111	5221	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5111	5221	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5111	5221	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3312	3413	
==>f->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3312	3413	
==>f->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3312	3413	
==>f->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->ty <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27607	27705	
==>the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32159	32257	
==>the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31251	31349	
==>the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	274	408	
==>_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	274	408	
==>_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	274	408	
==>_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	452	549	
==>ent interface
sub to_str { shift }

# conversion to other native types
sub to_bit { (shift)->to_na <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	68	163	
==>ns;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Function <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	68	163	
==>ns;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Function <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27113	27283	
==>y $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'))->push($e->get('$subclass'));                  
            }
        )
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7715	7825	
==>e $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7715	7825	
==>e $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2107	2216	
==>n't know to make a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8055	8194	
==>] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7781	7912	
==>] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop:: <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	484	586	
==>lti Num::round_half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21500	21600	
==>..}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21500	21600	
==>..}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21500	21600	
==>..}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10799	10899	
==>eturn "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	666	759	
==>----------------------
## private methods

my method set_height ($self: Tree $child) returns V <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	666	759	
==>----------------------
## private methods

my method set_height ($self: Tree $child) returns V <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24340	24450	
==>pControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x)=@_;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2102	2247	
==>ble from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2102	2247	
==>ble from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2102	2247	
==>ble from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6650	6769	
==>os, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8532	8632	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8532	8632	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4912	5033	
==>_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4912	5033	
==>_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4912	5033	
==>_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8962	9098	
==>'$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8962	9098	
==>'$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8962	9098	
==>'$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	696	795	
==>n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1446	1561	
==>il  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1446	1561	
==>il  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasy <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7369	7468	
==>CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$siz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7369	7468	
==>CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$siz <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18293	18408	
==>0),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basically e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17082	17181	
==>s the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17082	17181	
==>s the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6929	7036	
==>ES
## ----------------------------------------------------------------------------

# stub this for the mome <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6929	7036	
==>ES
## ----------------------------------------------------------------------------

# stub this for the mome <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6929	7036	
==>ES
## ----------------------------------------------------------------------------

# stub this for the mome <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2320	2420	
==>e
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2320	2420	
==>e
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Per <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8943	9091	
==>"
    .param pmc mob
    .local string target
    .local int min, max, islazy
    .local int pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_g <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	518	643	
==>ine;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	518	643	
==>ine;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35961	36063	
==>s are aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40511	40613	
==>s are aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40125	40227	
==>s are aligned and merged.  The heading
of the new relation is the union of the invocant and <$other> he <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12283	12394	
==>error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4926	5037	
==>error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16572	16681	
==>ype($.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that need to be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	938	1046	
==>ter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also work <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	938	1046	
==>ter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also work <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	524	618	
==>V{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1061	1168	
==>'ll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1061	1168	
==>'ll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1061	1168	
==>'ll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will still work b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28609	28706	
==>names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33161	33258	
==>names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32289	32386	
==>names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	13	107	
==>Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	13	107	
==>Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinit <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5601	5692	
==>gexp::Parser doesn't have to struggle with the {?{...})
sub hlp_ws {  def_whitespace($X::cap <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2822	2945	
==><variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comme <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2822	2945	
==><variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comme <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1559	1676	
==>y}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relativePrecedence}{equiv};
    }
  }

  m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9321	9442	
==>r ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9321	9442	
==>r ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5566	5835	
==>ion {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9043	9312	
==>ion {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2127	2266	
==>archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3482	3644	
==>hift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { default => '0.0', store => \$version },
    };

    check( $tmpl, \%hash ) or erro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33538	33628	
==>d C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38088	38178	
==>d C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2472	2600	
==>y
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2472	2600	
==>y
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2472	2600	
==>y
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4048	4158	
==>her::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.is <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4048	4158	
==>her::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3344	3460	
==>_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3344	3460	
==>_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3344	3460	
==>_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expa <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1106	1240	
==>) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorr <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1106	1240	
==>) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2346	2441	
==>eturn 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_vers <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27166	27301	
==>me is with respect to the current directory at
the moment runtests() was called.  Putting absolute path into 
C<HARNESS_FILELEAK_IN_DIR> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	453	553	
==>$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	453	553	
==>$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @pr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10683	10815	
==>cy open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	304	420	
==>6::MM::C3;

use Carp 'confess';
use Scalar::Util 'blessed';

# create our basic variables/functions for 
# the metamo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24341	24430	
==>est(amat(_C0,G),amat([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	514	629	
==>st = shift;

    my $prim = $self->SUPER::provides($digest);
    ($prim && $prim->can("name") && exists $masked_ops{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9157	9251	
==>gexps", aka "please segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5444	5554	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5444	5554	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5444	5554	
==>shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11655	11775	
==>[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11655	11775	
==>[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11655	11775	
==>[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exist <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3590	3731	
==>gth;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3590	3731	
==>gth;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	147	240	
==>le::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use strict;
use File:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16835	16946	
==>rm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20312	20423	
==>rm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19890	20001	
==>rm of an ordinary natural join,
    # where some source attributes are in common, and each
    # source has attr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10824	10923	
==>ring subname
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16791	16886	
==>D and compile that into its own executable, in practice one would
normally just write some compo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16791	16886	
==>D and compile that into its own executable, in practice one would
normally just write some compo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5735	5865	
==>3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( unin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5735	5865	
==>3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( unin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10038	10183	
==>urn             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10038	10183	
==>urn             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	619	739	
==>=> []);

{
  my $file = shift @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	792	895	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	792	895	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	792	895	
==>) {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35489	35626	
==>ody, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35489	35626	
==>ody, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35489	35626	
==>ody, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $l <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2472	2568	
==>ut mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2472	2568	
==>ut mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2552	2648	
==>ut mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $T <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2250	2350	
==>>struct_equiv;

	my $reduced_struct = $self->SUPER::generic_reduce($node->struct_equiv);
	(ref $node) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	13	110	
==>c::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

P <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	13	110	
==>c::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10923	11033	
==>d, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10923	11033	
==>d, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10923	11033	
==>d, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1710	1824	
==>=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1710	1824	
==>=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1710	1824	
==>=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1050	1143	
==>") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1050	1143	
==>") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1050	1143	
==>") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	738	835	
==>rement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	738	835	
==>rement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	738	835	
==>rement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9025	9142	
==>ircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9025	9142	
==>ircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9025	9142	
==>ircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	576	695	
==>llow => FILE_EXISTS, store => \$file },
        meta    => { store => \$meta, allow => ISA_JIB_META },
    };
    my $ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10218	10319	
==>e_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10218	10319	
==>e_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6224	6353	
==>($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6224	6353	
==>($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6224	6353	
==>($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3599	3743	
==>($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3599	3743	
==>($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3599	3743	
==>($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13753	13856	
==>in( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17230	17333	
==>in( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5859	5952	
==>$repo->index_files(package => $pkg)

Returns a list of all index_files that a given package be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12718	12839	
==>or
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12718	12839	
==>or
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12718	12839	
==>or
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15415	15536	
==>d}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15415	15536	
==>d}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15415	15536	
==>d}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5944	6047	
==>, { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5944	6047	
==>, { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5944	6047	
==>, { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the opportunity to <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26330	26426	
==>$attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30882	30978	
==>$attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20102	20223	
==>s.

Each object now has an insert() method that defines how it gets placed
into the regex tree.  Most objects inherit thei <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	677	782	
==>b getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	677	782	
==>b getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $ur <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3330	3428	
==>rs->data[0].substr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)));
    X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9232	9337	
==>6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9232	9337	
==>6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9232	9337	
==>6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15210	15453	
==>ss') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15210	15453	
==>ss') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15210	15453	
==>ss') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the na <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	953	1054	
==>('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	953	1054	
==>('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1500	1601	
==>('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17743	17900	
==>++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14164	14321	
==>++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2114	2251	
==>dence => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5353	5466	
==>lf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5353	5466	
==>lf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5353	5466	
==>lf->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	791	879	
==>_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	791	879	
==>_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	791	879	
==>_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15724	15874	
==>int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15724	15874	
==>int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15724	15874	
==>int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19502	19590	
==>t>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19502	19590	
==>t>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16112	16210	
==>_p6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj_complain->("ref" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41160	41253	
==>of Template modules into the same files as
program code, rather than requiring separate files. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41160	41253	
==>of Template modules into the same files as
program code, rather than requiring separate files. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4600	4789	
==>er_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4600	4789	
==>er_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13428	13561	
==>lf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13428	13561	
==>lf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13428	13561	
==>lf->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $arra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	353	456	
==>META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_va <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12354	12454	
==>his is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTM <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12354	12454	
==>his is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTM <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11344	11465	
==>.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.current <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11344	11465	
==>.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.current <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	716	829	
==>}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    for(split('&',$data)) {
        my($var <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7606	7755	
==>)\
\\n   List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^..     s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4028	4123	
==>our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
mul <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4028	4123	
==>our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
mul <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5047	5191	
==>s,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier> <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5047	5191	
==>s,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1595	1689	
==>st have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps->new <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14411	14588	
==>L::Element->new("link", rel  => "stylesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9340	9455	
==>. "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9328	9443	
==>. "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1073	1174	
==>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1073	1174	
==>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1073	1174	
==>as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2254	2371	
==>eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2254	2371	
==>eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2254	2371	
==>eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8544	8724	
==>element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8544	8724	
==>element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8544	8724	
==>element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5851	5964	
==>pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5851	5964	
==>pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5851	5964	
==>pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2546	2651	
==>alize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2546	2651	
==>alize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2893	2998	
==>alize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7257	7410	
==>ss sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7257	7410	
==>ss sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7257	7410	
==>ss sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15478	15591	
==>", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16893	17006	
==>", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21649	21762	
==>", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2890	3011	
==>t( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2890	3011	
==>t( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2970	3091	
==>t( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1990	2100	
==>\$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1990	2100	
==>\$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1990	2100	
==>\$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3655	3758	
==>dle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3655	3758	
==>dle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4245	4348	
==>dle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	910	1042	
==>e} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        asso <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	935	1067	
==>e} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        asso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1280	1371	
==>X - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1280	1371	
==>X - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1280	1371	
==>X - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3651	3774	
==>parse" if $level == $#{$self->{levels}};
        $s = $s . "    *$equal = Pugs::Compiler::Rule->compile( '" .
            _q <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2441	2546	
==>).union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tm <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2441	2546	
==>).union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8056	8172	
==>se> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 operator precedence.  

= <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	122	222	
==>g is making the
# "source" property of the object fallback to "content"
method source($self:) {
    $ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	122	222	
==>g is making the
# "source" property of the object fallback to "content"
method source($self:) {
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5370	5466	
==>ut instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5370	5466	
==>ut instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5370	5466	
==>ut instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not availa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1228	1340	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1228	1340	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1228	1340	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $att <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2363	2507	
==>$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2675	2814	
==>$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2675	2814	
==>$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2595	2711	
==>.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	360	466	
==>.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	360	466	
==>.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from Te <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10199	10298	
==>g_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10199	10298	
==>g_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5072	5220	
==>t package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5072	5220	
==>t package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5072	5220	
==>t package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "Y <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2294	2403	
==>f->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $enum, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9417	9514	
==>ze` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculate <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9417	9514	
==>ze` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculate <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4090	4186	
==>pe {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4090	4186	
==>pe {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4090	4186	
==>pe {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6813	6913	
==>nt parse.
multi method Array::perl (@array:) returns Str {
    "["~ join(", ", @array.values.map:{$_. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2095	2192	
==>> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2184	2281	
==>> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18737	18864	
==>AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18737	18864	
==>AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18737	18864	
==>AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13947	14286	
==>s{$tfile} = { canon       => '??',
                                         max         => '??',
                                         failed      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       = <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2175	2270	
==>ed C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

Whe <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2175	2270	
==>ed C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

Whe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12796	12952	
==>eop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13075	13231	
==>eop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10450	10548	
==>til/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    should suffice. See the <a
    href <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1298	1405	
==>is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1298	1405	
==>is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1378	1485	
==>is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
}

sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13288	13400	
==>= $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13288	13400	
==>= $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13288	13400	
==>= $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::V <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2144	2289	
==>le
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_rel((d <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	91	188	
==>sert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertion <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	91	188	
==>sert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertion <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3945	4068	
==>omponents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3945	4068	
==>omponents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3945	4068	
==>omponents) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	104	236	
==>.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	104	236	
==>.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	104	236	
==>.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1371	1470	
==>(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1371	1470	
==>(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1371	1470	
==>(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6770	6877	
==>arse::Yapp->new( input => $g );
    return $p->Output( classname => $self->{grammar} );
}

sub exists_op <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2653	2746	
==>odule is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<l <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2653	2746	
==>odule is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2245	2381	
==>$cat->add_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14823	14941	
==>( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14817	14935	
==>( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2756	2900	
==>e;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2756	2900	
==>e;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2756	2900	
==>e;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27302	27399	
==>e)

This method creates a method of the parser C<FLAG_$flag>, and sets it to
the code reference in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9871	9964	
==>tial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9871	9964	
==>tial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6221	6343	
==>if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6221	6343	
==>if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6221	6343	
==>if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5476	5581	
==>nstantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5476	5581	
==>nstantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5476	5581	
==>nstantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1872	1982	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1872	1982	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1872	1982	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7830	7954	
==>+, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11830	11950	
==>+, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11830	11950	
==>+, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$na <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12566	12672	
==>= find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30725	30825	
==>te module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up mos <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30725	30825	
==>te module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up mos <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4476	4606	
==>"Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($exp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4476	4606	
==>"Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($exp <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15183	15293	
==>t;
}

multi sub localtime(Num $when = time) returns Time::Local
        is primitive is builtin is safe {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1644	1777	
==>_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1644	1777	
==>_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1644	1777	
==>_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	169	278	
==>$FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	169	278	
==>$FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	169	278	
==>$FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7434	7538	
==>fix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7434	7538	
==>fix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7434	7538	
==>fix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2318	2441	
==>glet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule p <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2318	2441	
==>glet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1907	2066	
==>$self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1365	1474	
==>get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1365	1474	
==>get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11971	12100	
==>ll to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11971	12100	
==>ll to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11971	12100	
==>ll to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9725	9855	
==>n " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9725	9855	
==>n " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9725	9855	
==>n " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40602	40733	
==>t {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40602	40733	
==>t {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40602	40733	
==>t {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3097	3209	
==>y $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3097	3209	
==>y $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3097	3209	
==>y $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my % <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1886	1997	
==>t
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1886	1997	
==>t
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1966	2077	
==>t
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4618	4719	
==>ing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4618	4719	
==>ing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4618	4719	
==>ing,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4301	4387	
==>SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4301	4387	
==>SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4301	4387	
==>SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1513	1637	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1513	1637	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1513	1637	
==>current_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2516	2687	
==>CH('::Test')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.reason'      =>  $reaso <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7610	7702	
==>l_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1435	1527	
==>l_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7341	7493	
==>at( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star,\n" .
                main::em <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8782	8925	
==>->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8782	8925	
==>->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	469	589	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	469	589	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	469	589	
==>turn PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3493	3619	
==>!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3493	3619	
==>!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3493	3619	
==>!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3818	3916	
==>ts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3818	3916	
==>ts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3818	3916	
==>ts[$coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10342	10486	
==>'\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6683	6827	
==>'\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7532	7676	
==>'\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4484	4577	
==>e_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4484	4577	
==>e_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4484	4577	
==>e_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1997	2092	
==>=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1997	2092	
==>=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1997	2092	
==>=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3099	3195	
==>amContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3099	3195	
==>amContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3099	3195	
==>amContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	786	901	
==>y (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	786	901	
==>y (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	786	901	
==>y (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeri <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1971	2139	
==>cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  Sor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1608	1721	
==>IL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1608	1721	
==>IL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1608	1721	
==>IL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1172	1276	
==>of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pai <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1172	1276	
==>of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pai <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27751	27848	
==>anch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_on(prog)	((prog)->reganch |= ROPT_COPY_DONE)
 #def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	505	654	
==>_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	505	654	
==>_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	505	654	
==>_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1026	1162	
==>' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity}\n" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9690	9794	
==>ap:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9690	9794	
==>ap:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31170	31319	
==>y $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31170	31319	
==>y $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31170	31319	
==>y $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4528	4662	
==>nt_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4528	4662	
==>nt_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expir <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8869	8967	
==>) { "should not appear" }
NODE TCxtLValue ($type) { "should not appear" }
NODE TCxtItem   ($type) { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	20	126	
==>o not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	20	126	
==>o not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6583	6734	
==>) }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.c <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3563	3667	
==>.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual alg <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3563	3667	
==>.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual alg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3123	3230	
==>\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3123	3230	
==>\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3123	3230	
==>\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2464	2621	
==>\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2464	2621	
==>\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2464	2621	
==>\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13483	13600	
==>ft;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13483	13600	
==>ft;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13483	13600	
==>ft;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13429	13574	
==>t 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13429	13574	
==>t 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13429	13574	
==>t 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	111	243	
==>5 or retry;
        $a = -1000;
        $still_running--;
    }
    say 'Thread 1 finished: $a is >5 and reset to -1000';
}

my $thr2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	68	174	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use bas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	68	174	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	51	155	
==>x support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	51	155	
==>x support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	51	155	
==>x support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	251	351	
==>om here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	251	351	
==>om here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	251	351	
==>om here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi s <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1781	1902	
==>file = readdir DH ) {
            next if $file eq File::Spec->updir || $file eq File::Spec->curdir;
            next if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	758	853	
==>::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	758	853	
==>::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4764	4893	
==>a("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4764	4893	
==>a("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4764	4893	
==>a("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	187	299	
==>die 'Need at least one package';

my @List = LoadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my $tri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10528	10637	
==>0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10686	10795	
==>0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14932	15048	
==>get_attributes)) apply 
            ((= %attrs store (($_ name) ($_ instantite_container)))
             (= $c (WALKC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35500	35588	
==>roduct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40050	40138	
==>roduct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	528	661	
==>);
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	528	661	
==>);
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	528	661	
==>);
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3846	3944	
==>to return any leftover data 
and clear the cipher object.

The methods intended to be used by Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3846	3944	
==>to return any leftover data 
and clear the cipher object.

The methods intended to be used by Ciphe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	689	785	
==>clean backtracking library (basically a set of simple
# macros) to make writing this kind of appl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3852	3961	
==>_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3852	3961	
==>_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3852	3961	
==>_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9038	9146	
==>{
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9038	9146	
==>{
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9038	9146	
==>{
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1882	1999	
==>20s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1882	1999	
==>20s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15270	15368	
==>g $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg,
endp[n] is the offset of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2019	2130	
==>e_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2019	2130	
==>e_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2019	2130	
==>e_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2271	2376	
==>v(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12097	12184	
==>"vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12097	12184	
==>"vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	284	383	
==>CH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	284	383	
==>CH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	284	383	
==>CH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	176	301	
==>e PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	176	301	
==>e PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	176	301	
==>e PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4795	4905	
==>it anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4795	4905	
==>it anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4795	4905	
==>it anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	258	362	
==>d = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_up_asymmetri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20850	20932	
==>YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3443	3561	
==>, "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3443	3561	
==>, "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3443	3561	
==>, "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10060	10209	
==>ta) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10060	10209	
==>ta) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        t <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	233	328	
==>ration {
    $self.new($self.length - $duration.length);
}

#method infix:<->($self: Duration $d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5441	5555	
==>name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) & <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5726	5840	
==>name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	170	265	
==>st will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	170	265	
==>st will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	170	265	
==>st will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38071	38225	
==>warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38071	38225	
==>warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38071	38225	
==>warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7757	7900	
==>hod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8704	8847	
==>hod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9663	9806	
==>hod'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2383	2484	
==>$ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2383	2484	
==>$ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2383	2484	
==>$ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_ht <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7043	7355	
==>/ yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.p <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7043	7355	
==>/ yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1651	1819	
==>ulti sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1651	1819	
==>ulti sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1651	1819	
==>ulti sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5965	6083	
==>f ($expected == 0) {
        # If expected is 0, treat range as absolute
        $pass = ($got <= $range) && ($got >= - <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	213	309	
==>nsert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Cae <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	213	309	
==>nsert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Cae <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9492	9580	
==>1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_super <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9492	9580	
==>1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_super <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6700	6801	
==>[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32895	32994	
==>thod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32895	32994	
==>thod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13744	13884	
==>code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9928	10068	
==>code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10764	10904	
==>code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, captu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2069	2240	
==>t_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2069	2240	
==>t_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns St <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6457	6552	
==>gins', -package => 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4322	4426	
==>('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4322	4426	
==>('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4322	4426	
==>('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	148	290	
==>er::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5077	5186	
==>et_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5299	5408	
==>et_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4180	4296	
==>unction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4180	4296	
==>unction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4180	4296	
==>unction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	630	731	
==>he Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_l <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	630	731	
==>he Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1834	1933	
==>options - match: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $equivalen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1550	1641	
==>x:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1550	1641	
==>x:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1550	1641	
==>x:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4470	4585	
==>$dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4470	4585	
==>$dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2174	2277	
==>::Node::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::List';

    package Blondie::Stub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17840	17951	
==>abel} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17840	17951	
==>abel} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17840	17951	
==>abel} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9240	9363	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9433	9556	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alter <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2250	2345	
==>}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2250	2345	
==>}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1075	1163	
==>table->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addTo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22188	22295	
==>r)) {
        $list_len = length($list_str);
        $max_namelen = $Columns - length($middle_str) - $list_l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20426	20518	
==>might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Retu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20426	20518	
==>might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Retu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5020	5189	
==>method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5020	5189	
==>method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12606	12724	
==>s #).

=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$commen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36514	36605	
==>readable) Message object as its positional
parameter $message and returns an equivalent huma <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36514	36605	
==>readable) Message object as its positional
parameter $message and returns an equivalent huma <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2648	2743	
==>it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fractiona <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2648	2743	
==>it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fractiona <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4483	4580	
==>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4483	4580	
==>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3132	3229	
==>{PERL6LIB} = 'blib6/lib';
    $self->{_build_info} = join '', qx{$executable -V};
}

sub _build_ex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23626	23717	
==>o be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23626	23717	
==>o be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1340	1431	
==>ated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtrack <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1340	1431	
==>ated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtrack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14644	14830	
==>y $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14644	14830	
==>y $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14644	14830	
==>y $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3581	3761	
==>('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3581	3761	
==>('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35266	35379	
==>xactf (C<abc> with C</i> on)

Data: array reference of actual characters

=head2 quant

Family: quant

Types: star <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1697	1797	
==>r $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1697	1797	
==>r $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1697	1797	
==>r $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALL <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18551	18786	
==>i, 1, $1, $2, $backlink, $3);
                      $found = 1;
                      last;
                    }

                    if (!$found) {
                      # Part of the content is inside a pre.
                      $h- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22749	22864	
==>\} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTB <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19170	19285	
==>\} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTB <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2219	2336	
==>@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octec <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2219	2336	
==>@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octec <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12901	13009	
==>val;
}

package Interpreter;
use base qw/Reducer DynamicScopes/;

sub new {
    bless { params => undef, para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3124	3258	
==>tant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3124	3258	
==>tant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3124	3258	
==>tant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	501	631	
==>nt(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	501	631	
==>nt(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	501	631	
==>nt(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4807	4904	
==>reenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5057	5154	
==>reenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http:/ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3649	3743	
==>'asec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2762	2880	
==>> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2762	2880	
==>> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2762	2880	
==>> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10037	10151	
==>n1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10037	10151	
==>n1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4191	4289	
==>_object(anyof_char_comp => "\n", '\N') if $cc;
    return $S->object(exact_comp => "\n", '\N');
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4408	4542	
==>' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4408	4542	
==>' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4408	4542	
==>' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1719	1844	
==>ibute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1719	1844	
==>ibute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1719	1844	
==>ibute($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23511	23660	
==>6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23511	23660	
==>6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23511	23660	
==>6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9885	9988	
==>n remain an implementation detail 
    # for the methods described below.
    # ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9885	9988	
==>n remain an implementation detail 
    # for the methods described below.
    # ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9885	9988	
==>n remain an implementation detail 
    # for the methods described below.
    # ------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	97	197	
==>%$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	97	197	
==>%$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	97	197	
==>%$self == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1854	1990	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1854	1990	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1854	1990	
==>t == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5788	5984	
==>ne
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5788	5984	
==>ne
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5788	5984	
==>ne
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9568	9692	
==>cro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5909	6033	
==>cro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6758	6882	
==>cro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14061	14157	
==>callback routine has case as suggested by HTTP spec, and the headers
will be visited in the recom <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14061	14157	
==>callback routine has case as suggested by HTTP spec, and the headers
will be visited in the recom <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	582	745	
==>= -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	582	745	
==>= -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	582	745	
==>= -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      fo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3689	3797	
==>r 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3689	3797	
==>r 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5886	5994	
==>r 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, a <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7308	7442	
==>},
  using  => sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -print0 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21280	21381	
==>er' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44187	44288	
==>er' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9858	9971	
==>ush(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9858	9971	
==>ush(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9858	9971	
==>ush(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7605	7758	
==>]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7605	7758	
==>]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7605	7758	
==>]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2288	2407	
==>ow what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2288	2407	
==>ow what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2288	2407	
==>ow what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	416	509	
==>, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	416	509	
==>, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	416	509	
==>, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23153	23300	
==>mily => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7730	7843	
==>n;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7730	7843	
==>n;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5058	5178	
==>$ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5058	5178	
==>$ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5058	5178	
==>$ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8938	9030	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8938	9030	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta::M <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	544	654	
==>s::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::ne <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1028	1138	
==>s::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::ne <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5095	5196	
==>e>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	532	654	
==>first";
	}

	sub values {
		my $self = shift;
		croak "annotations are not eatable, flatten first";
	}

	sub type {
		my $s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15164	15258	
==>text.  In scalar and array contexts, the encoded or
decoded string is returned (without changin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15164	15258	
==>text.  In scalar and array contexts, the encoded or
decoded string is returned (without changin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27288	27396	
==>E' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
mus <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27288	27396	
==>E' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
mus <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1847	1939	
==>ie::Node! You cannot execute environments, they
contain ASTs that are compiled by the compile <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18412	18520	
==>als->{max};
    my $detail = $totals->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4334	4436	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1460	1562	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	767	865	
==>--------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	767	865	
==>--------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	767	865	
==>--------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6779	6883	
==>$m->describe,"\n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14361	14457	
==>tself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted M <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14361	14457	
==>tself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted M <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35274	35371	
==>l
to C<join> except that this method will fail if any of its source Relations
have attributes in c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39824	39921	
==>l
to C<join> except that this method will fail if any of its source Relations
have attributes in c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39384	39481	
==>l
to C<join> except that this method will fail if any of its source Relations
have attributes in c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11156	11290	
==>s}[-1],
      family => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1883	1979	
==>including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1811	1905	
==>including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1689	1803	
==>$self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1689	1803	
==>$self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1689	1803	
==>$self->{CC};
    return $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a dec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15592	15712	
==>>raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21763	21883	
==>>raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28055	28153	
==>RITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     SV_CHECK_THINKFI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2324	2427	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2324	2427	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2324	2427	
==>jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pScope} eq "SL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10619	10791	
==>ams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10619	10791	
==>ams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10619	10791	
==>ams";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9848	9954	
==>MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9848	9954	
==>MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9848	9954	
==>MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2910	3007	
==>list.  The order in which they were
present in the query string is preserved.

=item C<$q.param()> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2910	3007	
==>list.  The order in which they were
present in the query string is preserved.

=item C<$q.param()> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15767	15873	
==>< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10623	10729	
==>< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2594	2683	
==>will set this.

=item C<$Test::Harness::switches>

The package variable C<$Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3508	3616	
==>d(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3508	3616	
==>d(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3508	3616	
==>d(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7917	8120	
==>} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1218	1421	
==>} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3148	3287	
==>d stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read man <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6527	6640	
==>/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6527	6640	
==>/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6527	6640	
==>/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METH <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2056	2212	
==>postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7664	7786	
==>e inside a grammar:

    sub new_proto( $match ) {
        return ${$match<category>}.add_op( 
            name => $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8388	8507	
==>:non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_gr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8096	8211	
==>:non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_gr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5657	5767	
==>'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SSt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5657	5767	
==>'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SSt <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3660	3751	
==>.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3660	3751	
==>.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurre <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	282	383	
==>provement. Due to regexp's limits, it is only
# expected to serve as a tool to somewhat speed up
# the <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	959	1055	
==>TIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	959	1055	
==>TIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4820	4991	
==>l 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4820	4991	
==>l 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4820	4991	
==>l 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21022	21124	
==>'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<er <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21022	21124	
==>'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<er <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21022	21124	
==>'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<er <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7736	7872	
==>x:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7736	7872	
==>x:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7736	7872	
==>x:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2747	2836	
==>_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_na <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2747	2836	
==>_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1552	1679	
==>PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1552	1679	
==>PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1552	1679	
==>PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9510	9659	
==>ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9510	9659	
==>ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9510	9659	
==>ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24128	24264	
==>~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24128	24264	
==>~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24128	24264	
==>~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3090	3201	
==>f = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3090	3201	
==>f = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3090	3201	
==>f = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current_class->sup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36394	36503	
==>ation::Example>

This multi-method is the N-ary version of the aforementioned binary union()
operator, and the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	69	180	
==>ss keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	69	180	
==>ss keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	69	180	
==>ss keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using fu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12927	13042	
==>r_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass
    if $S0 == "-" goto err_hyphen
    if $S0 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6719	6816	
==>stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6719	6816	
==>stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7850	7980	
==>[ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that wi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7850	7980	
==>[ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that wi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1503	1596	
==>it }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available options:
  --smokeserv=http <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9377	9506	
==>t_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9377	9506	
==>t_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	134	230	
==>::Builtins;

use UNIVERSAL::require;

sub compiler_class { __PACKAGE__ . "::Compiler" };

sub int <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3983	4095	
==>ray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3983	4095	
==>ray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3983	4095	
==>ray") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5160	5275	
==>eading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8637	8752	
==>eading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3772	3966	
==>ble} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3772	3966	
==>ble} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3772	3966	
==>ble} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   s <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	628	751	
==>);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9110	9219	
==>h = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$bl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9110	9219	
==>h = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	793	914	
==>tr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	793	914	
==>tr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	793	914	
==>tr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic cl <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3942	4046	
==>index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@stri <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3942	4046	
==>index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1954	2080	
==>tant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1954	2080	
==>tant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1954	2080	
==>tant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2978	3144	
==>}
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{lab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2978	3144	
==>}
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{lab <==
3	/Users/nnunley/pugs/util/importgraph.pl	1821	1920	
==>etup_cluster('Pugs.Rule', qr/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.AST\b/);
setup_clu <==
3	/Users/nnunley/pugs/util/addauthors.pl	1045	1167	
==>r/^$initial.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        las <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3408	3523	
==>this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lif <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3408	3523	
==>this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lif <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3465	3569	
==>xist. Try --help. ") unless -d $_;
}
$_ = rel2abs($_) for (@t_dirs,$output_dir,$syn_src_dir); 

# Print s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34392	34482	
==>od has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38942	39032	
==>od has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7434	7548	
==>PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7434	7548	
==>PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7434	7548	
==>PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29051	29150	
==>d at the time.

=item $obj->insert()

Inserts this object into the tree.  It returns a value that sa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22214	22305	
==>pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22214	22305	
==>pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E<g <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1024	1124	
==>ssages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1024	1124	
==>ssages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12774	12867	
==>and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It may not be poss <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5600	5734	
==>revious versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::ge <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5612	5746	
==>revious versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::ge <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5305	5419	
==>$cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1895	2019	
==>$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sor <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1895	2019	
==>$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10588	10687	
==>as reached the end of the tree;
it will then reset itself, and will start from the beginning the nex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16461	16557	
==>ase, and potential
parameters will be chopped off and returned as a separate value if in
an array <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16461	16557	
==>ase, and potential
parameters will be chopped off and returned as a separate value if in
an array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4872	4996	
==>osition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4872	4996	
==>osition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4872	4996	
==>osition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5731	5883	
==>' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5731	5883	
==>' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5731	5883	
==>' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5165	5270	
==>am = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5165	5270	
==>am = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5165	5270	
==>am = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13517	13666	
==>::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9701	9850	
==>::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10537	10686	
==>::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12046	12163	
==>tor
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12046	12163	
==>tor
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6597	6709	
==>SEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local $_ = shift;

  /JSPERL5/i and return "j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1056	1192	
==>ing;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1056	1192	
==>ing;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1056	1192	
==>ing;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9789	9911	
==>1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30550	30648	
==>>).

=back

Objects may override these methods (as objects often do).

=head3 Using F<NEXT::> inste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8913	9041	
==>},
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8913	9041	
==>},
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8913	9041	
==>},
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1974	2144	
==>ne.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1974	2144	
==>ne.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1974	2144	
==>ne.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	251	339	
==>_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	251	339	
==>_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	251	339	
==>_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	499	606	
==>ead1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	499	606	
==>ead1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1055	1162	
==>ead1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

= <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5437	5564	
==>pe';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5437	5564	
==>pe';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	724	844	
==>ecific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "H <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	689	800	
==>ecific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "H <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	925	1019	
==>oth a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this module shoul <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1624	1721	
==>ructure follows the spec.  If for
#  instance, your engine cannot handle left recursive rules, you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7622	7726	
==>ly(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	817	920	
==>ject(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23408	23502	
==>odel>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files ar <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23408	23502	
==>odel>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6882	7014	
==>ments'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6882	7014	
==>ments'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3036	3145	
==>f = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2198	2301	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2198	2301	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2198	2301	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12608	12695	
==>IL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12608	12695	
==>IL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12608	12695	
==>IL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2039	2161	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2039	2161	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2039	2161	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5197	5298	
==>LTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5197	5298	
==>LTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5197	5298	
==>LTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16013	16150	
==>sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16013	16150	
==>sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16013	16150	
==>sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2153	2273	
==>the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8720	8825	
==>>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8720	8825	
==>>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8003	8148	
==>SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8003	8148	
==>SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8003	8148	
==>SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the meth <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4846	4967	
==>}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4846	4967	
==>}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	480	578	
==>pike "coded to the tests", and thus is far from being a
# complete p5 compatible regex engine, that <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	446	548	
==>h" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

ou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	446	548	
==>h" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25693	25787	
==>it's because an lvalued subroutine returning a
normal scalar doesn't work quite right with a re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3755	3900	
==>AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4219	4364	
==>AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3643	3741	
==>t the right x for p2');
is($p2->get_y, 200, '... still got the right y for p2');
is($p1->get_x, 15, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1300	1391	
==>(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1300	1391	
==>(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1300	1391	
==>(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3870	4020	
==>_('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3870	4020	
==>_('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3870	4020	
==>_('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1208	1312	
==>, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1208	1312	
==>, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1208	1312	
==>, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17745	17843	
==>{...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17745	17843	
==>{...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17745	17843	
==>{...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2556	2653	
==>jects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2556	2653	
==>jects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2556	2653	
==>jects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2161	2283	
==>ditor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2161	2283	
==>ditor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2161	2283	
==>ditor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6951	7076	
==>tep == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6951	7076	
==>tep == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6951	7076	
==>tep == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30876	31060	
==>tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30876	31060	
==>tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30876	31060	
==>tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2248	2345	
==>e_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2248	2345	
==>e_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2248	2345	
==>e_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4068	4202	
==>p1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4068	4202	
==>p1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar-> <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1751	1860	
==>d qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore the prefix on extension modules built <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5347	5471	
==>, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe   (r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31203	31293	
==>d be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31203	31293	
==>d be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7	108	
==>alue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7	108	
==>alue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7	108	
==>alue classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4691	4801	
==>elf->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4691	4801	
==>elf->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4691	4801	
==>elf->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	858	982	
==>aque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	858	982	
==>aque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	858	982	
==>aque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9517	9638	
==>m_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9517	9638	
==>m_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9517	9638	
==>m_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3948	4052	
==>perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0.. <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3948	4052	
==>perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0.. <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1899	1993	
==>E::Session $session, Str $event, *@args)>

Calls C<$session>'s C<$event> event handler, passing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4109	4204	
==>---------------------------------------
## NOTE:
## code in this section has special cases withi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4109	4204	
==>---------------------------------------
## NOTE:
## code in this section has special cases withi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4109	4204	
==>---------------------------------------
## NOTE:
## code in this section has special cases withi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24215	24362	
==>[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24215	24362	
==>[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24215	24362	
==>[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1350	1458	
==>to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1350	1458	
==>to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1350	1458	
==>to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3274	3363	
==>print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3491	3580	
==>print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21773	21880	
==>d_substr, is used only in
regcomp.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        s <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1149	1246	
==>on't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other u <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1149	1246	
==>on't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27953	28116	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27953	28116	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    uns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27953	28116	
==>ms ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4086	4182	
==>--------------------------------------------------------------
## NOTE:
## code in this section h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4086	4182	
==>--------------------------------------------------------------
## NOTE:
## code in this section h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4086	4182	
==>--------------------------------------------------------------
## NOTE:
## code in this section h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4426	4561	
==>me;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4426	4561	
==>me;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4426	4561	
==>me;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case though ...
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	820	939	
==>ome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	820	939	
==>ome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	820	939	
==>ome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19379	19470	
==>UB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19379	19470	
==>UB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19379	19470	
==>UB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>= <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11901	12010	
==>ive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($comma <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12304	12413	
==>ive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($comma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2011	2118	
==>_type {
	my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::Typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	271	381	
==>%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	271	381	
==>%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	271	381	
==>%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3873	3976	
==>self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3873	3976	
==>self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3873	3976	
==>self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	822	926	
==>e );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	822	926	
==>e );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	942	1036	
==>the command line
	$dumper = $format{$Pugs::Utils::Interface::format};

	# load the required mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20988	21085	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20988	21085	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20988	21085	
==>$xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	689	841	
==>-> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $a <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	689	841	
==>-> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6846	6980	
==>N'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6846	6980	
==>N'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6846	6980	
==>N'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possibl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10119	10219	
==>span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10119	10219	
==>span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7265	7352	
==>ode_helper($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7223	7344	
==>:literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3827	3948	
==>:literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4676	4797	
==>:literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12835	12949	
==>ethod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12835	12949	
==>ethod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12835	12949	
==>ethod(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1474	1571	
==>ct;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1474	1571	
==>ct;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1474	1571	
==>ct;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOC <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4544	4651	
==>named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4544	4651	
==>named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6068	6175	
==>named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5477	5580	
==>k $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5477	5580	
==>k $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6067	6170	
==>k $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	949	1053	
==>separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	949	1053	
==>separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	949	1053	
==>separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12823	12953	
==>%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12823	12953	
==>%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12823	12953	
==>%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	931	1081	
==>->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	931	1081	
==>->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	931	1081	
==>->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	532	623	
==>class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), p <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	532	623	
==>class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7612	7766	
==>ature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7612	7766	
==>ature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7612	7766	
==>ature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2606	2719	
==>DoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy : <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2606	2719	
==>DoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8139	8244	
==>Perl 6 operator precedence.  

=head1 METHODS

=head2 new ()

Class method.  Returns a category obje <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6550	6818	
==>r
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, ju <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7014	7282	
==>r
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, ju <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17052	17193	
==>";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1305	1432	
==>b as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1305	1432	
==>b as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1305	1432	
==>b as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	672	790	
==>ed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	672	790	
==>ed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	672	790	
==>ed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	63	185	
==>e unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	63	185	
==>e unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	63	185	
==>e unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3396	3505	
==>:tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3396	3505	
==>:tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3396	3505	
==>:tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4216	4315	
==>method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4216	4315	
==>method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4216	4315	
==>method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4002	4111	
==>xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4002	4111	
==>xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4002	4111	
==>xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12983	13107	
==>( $n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2246	2347	
==>- $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Seba <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2246	2347	
==>- $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Seba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3360	3453	
==>);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3360	3453	
==>);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3360	3453	
==>);
});

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1677	1925	
==>*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %e <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1677	1925	
==>*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2315	2416	
==>ass . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30363	30461	
==>ntation of any children of the object.

=item $obj->walk()

"Walks" the object.  This is used to di <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10611	10703	
==>orrectly
depending on their types, that their attributes have reasonable values, and
that att <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10611	10703	
==>orrectly
depending on their types, that their attributes have reasonable values, and
that att <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10822	10945	
==>{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{data}[-1];
    }
  }
}


{
  package Regexp::Parser:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12691	12791	
==>ot case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12691	12791	
==>ot case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4144	4278	
==>== undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4144	4278	
==>== undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4144	4278	
==>== undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1827	1930	
==>s.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instance <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1827	1930	
==>s.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instance <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1827	1930	
==>s.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31177	31326	
==>$li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31177	31326	
==>$li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31177	31326	
==>$li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_leng <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1933	2141	
==>defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1933	2141	
==>defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    } <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7749	7880	
==>push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Arguments: ", @args.elems;
        dbg "# Function:  "; my $fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4544	4638	
==>ase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4544	4638	
==>ase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4544	4638	
==>ase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1235	1335	
==>ammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1223	1323	
==>ammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4941	5038	
==>ight (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistri <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4941	5038	
==>ight (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistri <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	19	124	
==>'?' liefert true oder false
my $var = 0;
say "ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' i <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2663	2758	
==>o transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the str <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2663	2758	
==>o transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9832	9988	
==>T
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6173	6329	
==>T
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7022	7178	
==>T
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9013	9131	
==>sers.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9013	9131	
==>sers.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method us <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3821	3923	
==>join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3821	3923	
==>join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2777	2875	
==>rface::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2777	2875	
==>rface::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7951	8055	
==>rser::prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8286	8382	
==>ms inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8286	8382	
==>ms inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3821	3914	
==>ns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3821	3914	
==>ns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6018	6111	
==>ns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, and setti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6391	6483	
==>$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6391	6483	
==>$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6391	6483	
==>$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1081	1177	
==>tch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1081	1177	
==>tch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1081	1177	
==>tch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16766	16858	
==>Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16766	16858	
==>Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16766	16858	
==>Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($x <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	698	1094	
==>59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	698	1094	
==>59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4767	4920	
==>ted; and sorting
            # helps diffing raw YAML results.
            @tests = sort @tests;
        }
        if ( $Config{dry} ) {
            print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10591	10704	
==>turn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10591	10704	
==>turn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10591	10704	
==>turn 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6526	6652	
==>E => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6526	6652	
==>E => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1153	1290	
==>(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1107	1237	
==>(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5280	5399	
==>$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5280	5399	
==>$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5280	5399	
==>$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars . <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	163	290	
==>t_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	163	290	
==>t_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15380	15491	
==>y $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce_thunk {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16896	17068	
==>ck' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16896	17068	
==>ck' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16896	17068	
==>ck' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7904	8006	
==>rmine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduct <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7904	8006	
==>rmine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduct <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12429	12529	
==>ing Error

Use the errmsg() and errnum() methods to get the error information.

To see if an error is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10311	10425	
==>pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10311	10425	
==>pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10311	10425	
==>pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5838	5932	
==>users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq norma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5838	5932	
==>users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq norma <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9211	9304	
==>ous_comp_hook;
  previous_comp_hook = NULL;
}


END

#---------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5543	5674	
==>ity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5543	5674	
==>ity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5543	5674	
==>ity) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7842	7948	
==>ded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7842	7948	
==>ded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7842	7948	
==>ded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16447	16556	
==>od ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16447	16556	
==>od ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16447	16556	
==>od ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25885	26107	
==>$tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25885	26107	
==>$tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25885	26107	
==>$tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2615	2730	
==>v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2615	2730	
==>v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2615	2730	
==>v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3628	3727	
==>type($node);
	
	$self->add_definition($node, "const $type $symbol = $body;");

	return $symbol;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14801	14920	
==>her ($class: send (dispatcher :descendent)))
     (= $c (WALKCLASS (&dispatcher)))
     (while ($c is_not_nil)
        ( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7548	7654	
==>hod pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $fun <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7548	7654	
==>hod pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $fun <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8788	8886	
==>k}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($old <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8788	8886	
==>k}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($old <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21381	21488	
==>to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21381	21488	
==>to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21381	21488	
==>to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($x <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	324	446	
==>nline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub su <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	324	446	
==>nline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1151	1268	
==>E) {
        $self->do();
    }
}

sub do_until {
    my ($self, $condition) = @_;
    (blessed($condition) && $condit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1653	1840	
==>=> sub { # $idx -> $value
                my $self = shift;
                my $idx = shift;
                $self->array_fetchElem($idx)->scalar_fetch;
            },
     
            'a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17213	17310	
==>on says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17213	17310	
==>on says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
lo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9840	9955	
==>();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_widt <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9840	9955	
==>();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_widt <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2296	2399	
==>es in the type at the end of the pass, and the original object they had
	# this lets us assign letters t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5918	6047	
==>s copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5918	6047	
==>s copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5918	6047	
==>s copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a. <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	142	268	
==>andler for "redefined" warnings
BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w } };

#line 31

sub new {
    my ($cl <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3376	3476	
==>ERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4512	4612	
==>ERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( " <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	231	326	
==>y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	231	326	
==>y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2329	2422	
==>offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_hoo <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5120	5221	
==>ead1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MI <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5120	5221	
==>ead1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1390	1488	
==>ring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1390	1488	
==>ring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1390	1488	
==>ring(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10091	10231	
==>$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10091	10231	
==>$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10091	10231	
==>$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16141	16246	
==>xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16141	16246	
==>xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16141	16246	
==>xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8530	8624	
==>e for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8530	8624	
==>e for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3731	3819	
==>tevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darren <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3731	3819	
==>tevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14124	14331	
==>1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14124	14331	
==>1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14124	14331	
==>1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4	105	
==>v6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    doe <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4	105	
==>v6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    doe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25776	25857	
==>_,x,_,_,_,_,_,_))).

%------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	287	410	
==>-------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $n <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	287	410	
==>-------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $n <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2016	2110	
==>as> }
rule construct_but_not_alias { <subrule>|<capturing_group>|<noncapturing_group>|<quantifi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21151	21257	
==>turn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17572	17678	
==>turn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	758	892	
==>y, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	758	892	
==>y, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	758	892	
==>y, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3289	3390	
==>tate[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3289	3390	
==>tate[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($match <==
3	/Users/nnunley/pugs/util/fixauthors.pl	660	759	
==>me = $tree->look_down(class=>"t1");

  return "" unless $realname;
  return $realname->as_text;

  r <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	702	802	
==>tion.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	702	802	
==>tion.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9581	9690	
==>: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.ma <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9581	9690	
==>: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14543	14637	
==>ss [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside character classe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37274	37369	
==>t degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41823	41918	
==>t degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41446	41541	
==>t degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1995	2142	
==>IL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1995	2142	
==>IL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1995	2142	
==>IL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2776	2875	
==>gs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'lib');
    open MA <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22802	22891	
==>a::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22802	22891	
==>a::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	234	395	
==>thods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	420	526	
==>hift;
    return $self->{type}->new();
}

1;

__END__

=pod

=head1 NAME

attribute - the core attribute ty <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	745	847	
==>messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() h <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	745	847	
==>messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() h <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1629	1727	
==>nstructor($reduced) . $self->layout($reduced->str);
		}
	}

	if (ref $node) {
		use Data::Dumper () <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13135	13249	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13135	13249	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13135	13249	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10319	10509	
==>if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $numbe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	865	1045	
==>if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	865	1045	
==>if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $numbe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6370	6460	
==>malize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<ob <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6370	6460	
==>malize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<ob <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7516	7609	
==>X use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7516	7609	
==>X use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4728	4839	
==>ft;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4728	4839	
==>ft;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4728	4839	
==>ft;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	453	541	
==>ec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	453	541	
==>ec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	453	541	
==>ec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	86	211	
==>1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	86	211	
==>1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	86	211	
==>1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51412	51656	
==>bol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2325	2442	
==>_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2325	2442	
==>_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	267	370	
==>sub Meta { shift }

my @scalar_keys = qw<
    name module_name version abstract author license
    distr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10970	11064	
==>epends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11028	11122	
==>epends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33526	33622	
==>ed and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33526	33622	
==>ed and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5344	5545	
==>>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5344	5545	
==>>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5344	5545	
==>>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7230	7327	
==>r_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$bound <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7230	7327	
==>r_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$bound <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	28	109	
==>Makefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7870	7979	
==>-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7870	7979	
==>-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7870	7979	
==>-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_me <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4730	4943	
==>[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $sc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3994	4167	
==>[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $sc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13410	13562	
==>[find $my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5923	6105	
==>nd => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5923	6105	
==>nd => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5923	6105	
==>nd => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13233	13349	
==>ult' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13233	13349	
==>ult' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	464	567	
==>return value ] pair
### the default_value is the value of initalization, the return value is
### a subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2551	2654	
==>00])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2551	2654	
==>00])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2551	2654	
==>00])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8071	8186	
==>{
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Bas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8071	8186	
==>{
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	677	768	
==>[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	677	768	
==>[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	677	768	
==>[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1135	1244	
==>self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1964	2071	
==>self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2104	2211	
==>self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1342	1448	
==>sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even tho <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1342	1448	
==>sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even tho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6212	6313	
==>n_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6212	6313	
==>n_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6212	6313	
==>n_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1429	1557	
==>e_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1429	1557	
==>e_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1429	1557	
==>e_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::Pri <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	156	251	
==>ateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	156	251	
==>ateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40433	40528	
==>nstant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $parser->err_FOOBAR <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	885	983	
==>&::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &:: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	885	983	
==>&::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9010	9202	
==>q 'export' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $nam <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3494	3611	
==>de = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3494	3611	
==>de = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24778	24902	
==>self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub vi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16733	16854	
==>self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18159	18280	
==>self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3097	3199	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3097	3199	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3097	3199	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13181	13305	
==>)) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and ad <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13181	13305	
==>)) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1335	1438	
==>meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Sim <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1335	1438	
==>meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Sim <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2721	2833	
==>Int multi Num::round_alternate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding . <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	616	713	
==>TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	616	713	
==>TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16226	16336	
==>mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16226	16336	
==>mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the me <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	93	195	
==>all::Base};

$VERSION = '0.61';

use strict 'vars';

my @scalar_keys = qw{
    name module_name abstrac <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	948	1055	
==>urn bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $left->type->to <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2558	2655	
==>($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2558	2655	
==>($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8478	8622	
==>tderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 violation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3238	3344	
==>f $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3226	3332	
==>f $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7870	7991	
==>Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7870	7991	
==>Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7870	7991	
==>Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24549	24695	
==>rom,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24549	24695	
==>rom,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24549	24695	
==>rom,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	481	605	
==>5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	481	605	
==>5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	481	605	
==>5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1801	1938	
==>eturn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2006	2143	
==>eturn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2069	2206	
==>eturn ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4311	4432	
==>newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4311	4432	
==>newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1229	1327	
==>$s = overload::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS N <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14124	14223	
==>e object is a simple container which stores data to be used or
displayed by your program.  It is ana <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14124	14223	
==>e object is a simple container which stores data to be used or
displayed by your program.  It is ana <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3289	3384	
==>return;
}

=pod

=head2 JIB::Utils->_version_to_number( version => $version );

Returns a proper <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9767	9887	
==>to &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quant.
  package Regexp::Parser::minm <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3705	3798	
==>y for reading human written files, and anything we
write shouldn't need to have documentation/ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3705	3798	
==>y for reading human written files, and anything we
write shouldn't need to have documentation/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1415	1535	
==>1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' 'name2' \n" .
        "\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24200	24295	
==>of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All right <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24200	24295	
==>of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All right <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3601	3714	
==>el, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3601	3714	
==>el, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3601	3714	
==>el, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27948	28087	
==>->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27948	28087	
==>->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27948	28087	
==>->elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6061	6173	
==>se use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6061	6173	
==>se use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6061	6173	
==>se use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2159	2279	
==>$editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2159	2279	
==>$editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2159	2279	
==>$editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2729	2855	
==>elude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2946	3072	
==>elude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10024	10124	
==>tring to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argumen <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9292	9449	
==>new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	307	421	
==>P_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	307	421	
==>P_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32988	33113	
==>the walk() method for all the quantifier and
'minmod' nodes:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12915	13031	
==>tpos goto err_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass
    if $S0 == "-" goto err_hyphen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12369	12475	
==>( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this package from the avai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9746	9868	
==>f $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9746	9868	
==>f $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9746	9868	
==>f $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	112	205	
==>-----------------------------------------
## now for some bootstrapping ....

## See http://ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	112	205	
==>-----------------------------------------
## now for some bootstrapping ....

## See http://ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	112	205	
==>-----------------------------------------
## now for some bootstrapping ....

## See http://ar <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	849	958	
==>t {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    ret <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	849	958	
==>t {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8037	8177	
==>@val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8037	8177	
==>@val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8037	8177	
==>@val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14065	14167	
==>s

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14065	14167	
==>s

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14065	14167	
==>s

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1442	1536	
==><TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1422	1513	
==><TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10385	10561	
==>n.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13862	14038	
==>n.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13143	13319	
==>n.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relatio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3811	3983	
==>AGE__->add_rule( 
        name => '=~',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21806	21920	
==>>object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18227	18341	
==>>object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38315	38421	
==>tem => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38315	38421	
==>tem => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38315	38421	
==>tem => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $a <==
3	/Users/nnunley/pugs/util/package-osx.pl	11272	11426	
==>rf \$file 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Successfully re <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1330	1422	
==>l::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Ut <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1330	1422	
==>l::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Ut <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1133	1239	
==>ODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1133	1239	
==>ODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	379	477	
==>r is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting informat <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	379	477	
==>r is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting informat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	270	384	
==>hes $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML_Print
    $Strap
);

=head1 NA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1302	1416	
==>_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20426	20531	
==>e);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1319	1417	
==>nd hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1319	1417	
==>nd hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1319	1417	
==>nd hash references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15652	15796	
==>t        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15652	15796	
==>t        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15652	15796	
==>t        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3878	3995	
==>_parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3878	3995	
==>_parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3878	3995	
==>_parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	776	881	
==>rams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	776	881	
==>rams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	776	881	
==>rams" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2733	2832	
==>th Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2733	2832	
==>th Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2733	2832	
==>th Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16997	17119	
==>->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16997	17119	
==>->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16997	17119	
==>->dispatcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3382	3490	
==>b Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3382	3490	
==>b Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3382	3490	
==>b Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	115	264	
==>=> {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	115	264	
==>=> {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	115	264	
==>=> {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6917	7044	
==>f->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6917	7044	
==>f->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6917	7044	
==>f->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? PIL::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36448	36550	
==>il: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36448	36550	
==>il: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36448	36550	
==>il: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_lis <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27545	27643	
==>ied to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32097	32195	
==>ied to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2358	2459	
==>%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2358	2459	
==>%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2358	2459	
==>%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9357	9530	
==>return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9357	9530	
==>return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	409	497	
==>mpiler->compile($self, Blondie::Prelude->env, $prog);
}

sub compiler_class { "Blondie::C <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4370	4494	
==>method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend => <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4370	4494	
==>method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend => <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6837	6927	
==>e = HTML::Template->new(filename => 'util/catalog_tmpl/error.tmpl');
$template->param(unres <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1615	1738	
==>dx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1615	1738	
==>dx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1615	1738	
==>dx]);
        delete array[idx];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1729	1839	
==><param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1729	1839	
==><param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5070	5151	
==>Scalar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Placeholder <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7471	7561	
==>er++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7471	7561	
==>er++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7471	7561	
==>er++] };
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8651	8765	
==>}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	53	154	
==>take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.re <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	53	154	
==>take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.re <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5068	5209	
==>(Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6268	6364	
==>ery forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (St <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6268	6364	
==>ery forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41072	41176	
==>rl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41072	41176	
==>rl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41072	41176	
==>rl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1349	1450	
==>sh!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1349	1450	
==>sh!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1349	1450	
==>sh!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14820	14912	
==>code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14820	14912	
==>code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14820	14912	
==>code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1238	1345	
==>\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1238	1345	
==>\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1238	1345	
==>\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = functi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11510	11630	
==>untime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11876	11996	
==>untime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2192	2301	
==>ms->length->to_native . ")";      
    # loop through the param keys
    for my $i (0 .. $params->elems->to_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3087	3188	
==>Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3087	3188	
==>Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3087	3188	
==>Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14490	14622	
==>so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14490	14622	
==>so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14490	14622	
==>so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the classes to look t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14991	15189	
==>ode' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14991	15189	
==>ode' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14991	15189	
==>ode' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4133	4271	
==>nterfere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	16	114	
==>ntime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	16	114	
==>ntime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1365	1463	
==>der_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1365	1463	
==>der_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23714	23840	
==>, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS-- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20135	20261	
==>, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS-- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22866	22981	
==>elf:)) returns opaque 
    ($self: class))

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16880	16977	
==>ugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16880	16977	
==>ugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16880	16977	
==>ugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	698	799	
==>ice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	698	799	
==>ice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7896	7997	
==>ndling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7896	7997	
==>ndling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6747	6855	
==>etch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6747	6855	
==>etch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6747	6855	
==>etch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3484	3623	
==>_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3484	3623	
==>_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7075	7181	
==>ll_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7075	7181	
==>ll_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7075	7181	
==>ll_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	82	183	
==>ugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	82	183	
==>ugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	580	675	
==>e Relation::LaxAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) and $^n ne $EM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1927	2058	
==>s;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1927	2058	
==>s;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1927	2058	
==>s;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub auto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7532	7630	
==>m_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7532	7630	
==>m_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7532	7630	
==>m_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5258	5361	
==>SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5258	5361	
==>SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5258	5361	
==>SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	14	117	
==>one one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	14	117	
==>one one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	14	117	
==>one one> -> $type {
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	462	570	
==>o { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	462	570	
==>o { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8799	8920	
==>[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8799	8920	
==>[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8799	8920	
==>[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4030	4138	
==>{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4030	4138	
==>{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4030	4138	
==>{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8294	8440	
==>t->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CL <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8294	8440	
==>t->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CL <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1062	1190	
==>lit.($buf);
      while +@newtoks > 2 
         || +@newtoks && !defined $i {

        @tokens.push( @newtoks.shift );
        @t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12909	13022	
==>{
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PI <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12909	13022	
==>{
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PI <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3173	3270	
==>lternate implementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2947	3103	
==>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2947	3103	
==>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2947	3103	
==>fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1420	1535	
==>2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1420	1535	
==>2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1420	1535	
==>2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2861	2989	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2861	2989	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2861	2989	
==>in "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	703	809	
==>- an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	703	809	
==>- an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - T <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2408	2503	
==>hers I don't remember at the moment but should be mentioned...

package BacktrackDev;
=pod
Desig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5992	6117	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5992	6117	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5992	6117	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19712	19832	
==>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19712	19832	
==>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19712	19832	
==>isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probab <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7082	7197	
==>span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7082	7197	
==>span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3886	3991	
==>{ Blondie::TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = sh <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5651	5754	
==>nd Run.o stale, triggering pugs rebuild
    --output,  -o     file to write output to (stdout by default <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25994	26087	
==>and can be interpolated into the
human-readable version.  Each variable name is a machine-read <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25994	26087	
==>and can be interpolated into the
human-readable version.  Each variable name is a machine-read <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4653	4789	
==>b dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4641	4777	
==>b dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1748	1868	
==>signature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' si <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7224	7352	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7224	7352	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$ <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	53	166	
==>nfig;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
die "Could not create '$tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1429	1531	
==>ier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1429	1531	
==>ier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1429	1531	
==>ier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1018	1171	
==>$block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1018	1171	
==>$block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9689	9788	
==>value; $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13065	13177	
==>ve exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16542	16654	
==>ve exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15904	16016	
==>ve exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3132	3265	
==>efined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3132	3265	
==>efined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3132	3265	
==>efined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	746	861	
==>ve_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	746	861	
==>ve_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	746	861	
==>ve_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2999	3132	
==>e = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2999	3132	
==>e = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2999	3132	
==>e = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	562	675	
==>@_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	562	675	
==>@_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	562	675	
==>@_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    wh <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2032	2149	
==>$args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub externa <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2032	2149	
==>$args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub externa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	532	636	
==>>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6510	6606	
==>n of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6510	6606	
==>n of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6510	6606	
==>n of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5966	6061	
==>m_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_unde <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5966	6061	
==>m_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_unde <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5966	6061	
==>m_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_unde <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	67	192	
==>content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $conte <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	67	192	
==>content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $conte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6077	6205	
==>%{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6077	6205	
==>%{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6077	6205	
==>%{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method($method_name => ::ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2134	2247	
==>rap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2134	2247	
==>rap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2134	2247	
==>rap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7965	8108	
==>= Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7965	8108	
==>= Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7965	8108	
==>= Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8415	8506	
==>ead1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8415	8506	
==>ead1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8415	8506	
==>ead1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3817	3915	
==>test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3817	3915	
==>test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3897	3995	
==>test_fail( Str $description )>

Marks that the next test should fail.  C<$description> is the optio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6368	6500	
==>stack usage
    return sub {
        my $state = $_[1] || $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        ret <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	497	593	
==>RY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   ret <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	497	593	
==>RY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   ret <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7537	7697	
==>e_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$new <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7537	7697	
==>e_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$new <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3472	3576	
==>$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6658	6797	
==>ing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6658	6797	
==>ing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6658	6797	
==>ing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @para <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2311	2450	
==>'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2311	2450	
==>'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11358	11488	
==>} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22764	22864	
==>$v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22764	22864	
==>$v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22764	22864	
==>$v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5708	5827	
==>/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5708	5827	
==>/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5708	5827	
==>/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($si <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1917	2089	
==>ignature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0]->{o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	621	730	
==>d = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	621	730	
==>d = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5719	5844	
==>{ $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5719	5844	
==>{ $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5719	5844	
==>{ $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->match( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5517	5640	
==>bstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot o <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6014	6132	
==>bstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot o <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	158	266	
==>oke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blond <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6681	6783	
==>till be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / an <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6681	6783	
==>till be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33848	34007	
==>create('$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')- <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5155	5252	
==>nfig file, and returns a boolean value
of success or failure

=item data

The C<data> method retur <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5155	5252	
==>nfig file, and returns a boolean value
of success or failure

=item data

The C<data> method retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19013	19123	
==>ot nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top le <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19013	19123	
==>ot nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1094	1204	
==>rcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1094	1204	
==>rcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1094	1204	
==>rcefilter $src.
  # If we did not s/^use Test//gm, things will still work but performance will
  # suffer, as T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5984	6097	
==>d} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    } <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3075	3177	
==>nting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3075	3177	
==>nting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16845	16943	
==>ist.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16845	16943	
==>ist.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16845	16943	
==>ist.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 COPY <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	265	372	
==>?#... not terminated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{})';
use constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6940	7039	
==>d' 

and 'unboxed' versions. 



The rule() constructor provides an interface between the 

low-leve <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6704	6799	
==>d' 
and 'unboxed' versions. 

The rule() constructor provides an interface between the 
low-leve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7881	8013	
==>e::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7881	8013	
==>e::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7881	8013	
==>e::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15734	15846	
==>method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15734	15846	
==>method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15734	15846	
==>method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7599	7704	
==>issing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7599	7704	
==>issing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7599	7704	
==>issing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3142	3254	
==>9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Failed  Lis <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	579	672	
==>de $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $tr <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	579	672	
==>de $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $tr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5094	5191	
==>ering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5094	5191	
==>ering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16782	16901	
==>rcase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $strin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	28	131	
==>l ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	28	131	
==>l ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_t <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1502	1610	
==>nt FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($intmp, $da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1550	1667	
==>h => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1486	1601	
==>h => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6037	6143	
==>>qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->vi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	44	135	
==>scape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	44	135	
==>scape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17040	17141	
==>nternals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17040	17141	
==>nternals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17040	17141	
==>nternals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2795	2916	
==>split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2795	2916	
==>split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2795	2916	
==>split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	998	1102	
==>_as_failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set_str {my($o,$s)=@_;$$o->{'va <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3617	3711	
==>5 version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTHO <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3617	3711	
==>5 version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTHO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5780	5923	
==>.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5780	5923	
==>.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5780	5923	
==>.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2137	2273	
==>ree.new(:node<Thread>),
                        Tree.new(:node<Code>).add_children(
                            Tree.new(:node<Routine>). <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	839	939	
==>);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	839	939	
==>);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12717	12831	
==>found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11244	11340	
==>niversal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements bot <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11244	11340	
==>niversal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements bot <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1158	1260	
==>ures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1158	1260	
==>ures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4632	4751	
==>PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4632	4751	
==>PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4632	4751	
==>PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3780	3888	
==>or my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3780	3888	
==>or my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21989	22088	
==>_pos(print)     ,C) :- !,    isPrint(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1700	1806	
==>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1700	1806	
==>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1700	1806	
==>[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13264	13434	
==>params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13264	13434	
==>params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13264	13434	
==>params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4508	4703	
==>LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::De <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4508	4703	
==>LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::De <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5114	5227	
==>pile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2935	3044	
==>w is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo> <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2935	3044	
==>w is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32390	32484	
==>ternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32390	32484	
==>ternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3369	3508	
==>n;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3369	3508	
==>n;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2790	2915	
==>3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2790	2915	
==>3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2790	2915	
==>3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12047	12233	
==>new()); 
                  }));
                $e->get('$class:')->send('bless' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7678	7816	
==>is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	979	1117	
==>is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depen <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7311	7415	
==>ALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITIO <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7369	7473	
==>ALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITIO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	435	518	
==>inary>, L<JIB::Package::Installed>, L<JIB::Package::Source>,
L<JIB::Repository>, L<J <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1457	1562	
==>pen object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub loa <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1457	1562	
==>pen object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub loa <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1014	1137	
==>turn $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
    }

    return;
}

sub can_cc {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1734	1834	
==>If you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anoth <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1734	1834	
==>If you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anoth <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2454	2581	
==>ontainer, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$con <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2454	2581	
==>ontainer, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$con <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2184	2288	
==>, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1372	1497	
==>discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1372	1497	
==>discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1372	1497	
==>discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10972	11102	
==>::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10972	11102	
==>::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10972	11102	
==>::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $k <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8491	8595	
==>returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few el <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8491	8595	
==>returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few el <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2313	2422	
==>& ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31428	31524	
==>oo::L::" and in the second it is "L::Foo".

A library could be distributed with a Template module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31428	31524	
==>oo::L::" and in the second it is "L::Foo".

A library could be distributed with a Template module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11439	11644	
==>> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11439	11644	
==>> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11439	11644	
==>> 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14677	14799	
==>possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14677	14799	
==>possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14677	14799	
==>possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25950	26043	
==>alues
that are associated with the message, and can be interpolated into the
human-readable ve <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25950	26043	
==>alues
that are associated with the message, and can be interpolated into the
human-readable ve <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4064	4181	
==>e "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # against <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4064	4181	
==>e "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # against <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9374	9478	
==>ut not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeSeque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8391	8502	
==>LASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8391	8502	
==>LASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8391	8502	
==>LASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1333	1453	
==>->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1333	1453	
==>->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3339	3455	
==>') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3339	3455	
==>') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3339	3455	
==>') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are G <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12914	13024	
==>rc intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16391	16501	
==>rc intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15753	15863	
==>rc intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $othe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12687	12831	
==>a::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'att <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12687	12831	
==>a::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'att <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	525	621	
==>.$^n..." }, which might tilt
the balance.

Clutter:: is a package for macros declared and used lo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	74	176	
==>();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	74	176	
==>();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36651	36743	
==>sm:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm goin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9810	9931	
==>:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9810	9931	
==>:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9810	9931	
==>:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2904	3036	
==>ocalhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.rem <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2904	3036	
==>ocalhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.rem <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2217	2322	
==>dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4487	4582	
==>ve indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your
c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4487	4582	
==>ve indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4034	4190	
==>donly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4034	4190	
==>donly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4034	4190	
==>donly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7093	7211	
==>content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CL <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7093	7211	
==>content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	573	678	
==>ll(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	573	678	
==>ll(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	573	678	
==>ll(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	468	580	
==>harCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	468	580	
==>harCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	468	580	
==>harCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22345	22476	
==>or (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::sa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22345	22476	
==>or (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::sa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22345	22476	
==>or (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	694	812	
==>value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	694	812	
==>value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	694	812	
==>value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	151	269	
==>e(@a) {
      my $f = shift(@a);
      my $kludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12593	12692	
==>he recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12593	12692	
==>he recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1115	1210	
==>last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.spans <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1115	1210	
==>last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.spans <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6283	6384	
==>>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6283	6384	
==>>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8480	8581	
==>>

This overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detail <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30583	30679	
==>it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35134	35230	
==>it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34316	34412	
==>it must return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35724	35832	
==>offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35724	35832	
==>offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35724	35832	
==>offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2295	2417	
==>g eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, _ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2295	2417	
==>g eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, _ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5552	5646	
==>my @tests = $self->get_tests;
    $self->run_children($Config{concurrent}, \@tests);
}

sub run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2661	2763	
==>ub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2661	2763	
==>ub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2661	2763	
==>ub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2731	2920	
==>.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2731	2920	
==>.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2731	2920	
==>.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2832	2939	
==>me if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2832	2939	
==>me if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2832	2939	
==>me if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XX <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1495	1602	
==>($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1495	1602	
==>($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4013	4113	
==>age of the total tests which failed.

=item B<List of Failed>

A list of the tests which failed.  Suc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4009	4133	
==>rams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4009	4133	
==>rams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4009	4133	
==>rams to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? jo <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2312	2444	
==>rn ~@ret;
    }

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] eq '"PIL_Environment"' {
        my %pad = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17249	17347	
==>bedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17249	17347	
==>bedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	492	608	
==><ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	492	608	
==><ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30117	30264	
==>elf->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # there was an 'atom' there
    &RxPOS--;             # this does pos(rege <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2913	3009	
==><gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint wo <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2913	3009	
==><gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2930	3038	
==>e('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2930	3038	
==>e('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2930	3038	
==>e('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1133	1249	
==>PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1133	1249	
==>PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1133	1249	
==>PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8913	9059	
==>( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9106	9252	
==>( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13532	13666	
==>noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18570	18660	
==>ifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18570	18660	
==>ifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16793	16909	
==>ist" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16793	16909	
==>ist" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16793	16909	
==>ist" object.

new() without parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3154	3281	
==>ident>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2270	2368	
==>t properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=ite <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2270	2368	
==>t properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5529	5622	
==>he right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9127	9220	
==>he right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method ret <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10623	10711	
==>"\\H", !.
p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p6_char_class(class_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38025	38177	
==>6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38025	38177	
==>6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38025	38177	
==>6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1979	2094	
==>rnal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1979	2094	
==>rnal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1979	2094	
==>rnal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1400	1505	
==>y @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1400	1505	
==>y @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1400	1505	
==>y @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22010	22102	
==>n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22010	22102	
==>n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22010	22102	
==>n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2355	2449	
==>ix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2355	2449	
==>ix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2355	2449	
==>ix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1240	1335	
==>ons (Class::Events::Publisher $publisher, Class::Publisher::Event $event) {
        grep { .matc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8860	8976	
==>Missing closing braces for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob
    .local st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9448	9536	
==>$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loade <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9448	9536	
==>$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loade <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14718	14923	
==>ailure?
                  ok\b
                  (?:\s+(\d+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7120	7422	
==>Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7177	7479	
==>Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2095	2236	
==>_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2095	2236	
==>_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2095	2236	
==>_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $l <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3471	3566	
==>es within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an arra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3471	3566	
==>es within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13952	14071	
==>s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13952	14071	
==>s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13952	14071	
==>s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	40	139	
==>alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	40	139	
==>alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	40	139	
==>alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

packa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4592	4733	
==>ooser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19255	19358	
==>C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - L <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19255	19358	
==>C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - L <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7037	7161	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7230	7354	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greed <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11741	11891	
==>match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12099	12249	
==>match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture <==
3	/Users/nnunley/pugs/t/packages/Test.pm	152	261	
==>Our::Package::pkg();
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_pkg {
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4448	4554	
==>ie "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4448	4554	
==>ie "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4448	4554	
==>ie "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7190	7387	
==>al $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = ruleop::concat( \n" .
                "        ruleop::cons <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2274	2371	
==>($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always retu <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2274	2371	
==>($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1638	1749	
==>ef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1638	1749	
==>ef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1638	1749	
==>ef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	130	240	
==>erl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	130	240	
==>erl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	130	240	
==>erl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Pe <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2404	2504	
==>te]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = $O <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1677	1773	
==>:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1677	1773	
==>:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9606	9771	
==>isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9606	9771	
==>isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9606	9771	
==>isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @li <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1354	1455	
==>n self-referential things

sub alternation {
    # alternation is first match (not longest).  though w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1354	1455	
==>n self-referential things

sub alternation {
    # alternation is first match (not longest).  though w <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1051	1147	
==>fe::Type::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_[0] }

	package Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26224	26324	
==>ders of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright hold <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26224	26324	
==>ders of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright hold <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	117	215	
==>T];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Class::dir( cwd() )- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	902	1026	
==>.FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	902	1026	
==>.FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	902	1026	
==>.FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	726	848	
==>$todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	726	848	
==>$todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	726	848	
==>$todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8466	8637	
==>XX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8930	9101	
==>XX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1402	1498	
==>catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec->catfile($path, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1413	1530	
==>),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1413	1530	
==>),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1413	1530	
==>),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3525	3652	
==>nd recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3525	3652	
==>nd recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3525	3652	
==>nd recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$sl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	847	982	
==>__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8743	8877	
==>\$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9578	9712	
==>\$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14343	14468	
==>f $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14343	14468	
==>f $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14343	14468	
==>f $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16172	16260	
==>estpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDun <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16230	16318	
==>estpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDun <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6592	6692	
==>ITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6592	6692	
==>ITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2219	2311	
==>d)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13681	13777	
==>nable range of values.

You should consider using a Set::Infinite object if you want to exclude
l <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13681	13777	
==>nable range of values.

You should consider using a Set::Infinite object if you want to exclude
l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	818	922	
==>bmethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	818	922	
==>bmethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1659	1762	
==>enter_scope;

    my $reduced = $self->generic_reduce($app);

    my $received = $self->leave_scope;

	d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29504	29649	
==>Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29504	29649	
==>Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29504	29649	
==>Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1056	1175	
==>tructure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1056	1175	
==>tructure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1056	1175	
==>tructure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instan <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3089	3209	
==>lds);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3089	3209	
==>lds);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7182	7301	
==>ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	483	602	
==>ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	374	475	
==>t "smokeserv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smoke <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1321	1437	
==>und => nbound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9665	9779	
==>"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_fina <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10501	10615	
==>"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_fina <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3750	3855	
==>e test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3750	3855	
==>e test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3830	3935	
==>e test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8389	8498	
==>r $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8389	8498	
==>r $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8389	8498	
==>r $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8722	8827	
==>ests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8780	8885	
==>ests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21010	21115	
==>f->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') . $self->nparen;
  }

  sub nparen {
    my $self = shi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7663	7769	
==>return Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38771	38868	
==>>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This document <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38771	38868	
==>>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This document <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36970	37070	
==>ve identical headings, for these their joining
degenerates to a C<intersection>.  In any situation wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41519	41619	
==>ve identical headings, for these their joining
degenerates to a C<intersection>.  In any situation wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41142	41242	
==>ve identical headings, for these their joining
degenerates to a C<intersection>.  In any situation wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3842	3967	
==>$_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3842	3967	
==>$_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3842	3967	
==>$_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $s <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	775	881	
==>+$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $l <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1165	1325	
==>ewtoks.shift );
        @tokens.push( $maketoken.(@newtoks.shift, $label) )
                if +@newtoks;
      }

      $buf = [~] @newtoks;
      undefine $buf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8	131	
==>Pugs;







1;





### There is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8	120	
==>Pugs;



1;


### There is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Compi <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7432	7729	
==>$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<!>' => Thunk->new(
        Seq->new(
            Param->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7838	7935	
==>ion") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7838	7935	
==>ion") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
me <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	580	714	
==>(?:#|$)/;
            $self->module_name($1) if /^\s*package\s+(\w[\w:]*)\s*;\s*$/;
            last;
        }
    }

    return if $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	627	727	
==>pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	627	727	
==>pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4934	5046	
==>SH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4934	5046	
==>SH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4934	5046	
==>SH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	312	512	
==>Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	13	130	
==>PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	13	130	
==>PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	13	130	
==>PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self- <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7918	8029	
==>ist instead of Scalar.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Co <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1145	1245	
==>fferent interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or deci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1145	1245	
==>fferent interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or deci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5126	5239	
==>i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5126	5239	
==>i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5126	5239	
==>i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4370	4471	
==>dl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural inter <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4370	4471	
==>dl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural inter <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	948	1043	
==>($compiled);

    my $same_result = Blondie::Backend::Foo->run($program);

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29089	29193	
==>Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29089	29193	
==>Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29089	29193	
==>Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4145	4251	
==>---
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4145	4251	
==>---
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4145	4251	
==>---
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13649	13836	
==>t->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13649	13836	
==>t->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13649	13836	
==>t->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14621	14815	
==>=== any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18098	18292	
==>=== any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17514	17708	
==>=== any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43340	43607	
==>ol'),                                
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('WALKMETH')
                  ->do(list->new(
                      $e->get(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1238	1359	
==>d such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5712	5815	
==>o warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10033	10146	
==>_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10033	10146	
==>_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10033	10146	
==>_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1676	1799	
==>$.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1676	1799	
==>$.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3049	3150	
==>elete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	558	673	
==>VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	558	673	
==>VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3299	3398	
==>' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12443	12566	
==>} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12443	12566	
==>} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12443	12566	
==>} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12663	12813	
==>ath = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12663	12813	
==>ath = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8566	8707	
==>g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	619	760	
==>ssage =~ s/\n(?!#)/\n# /g;
            print {_('$.output')} $message, "\n";
        },
        'diag' => sub {
            my ($self, $messag <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1518	1624	
==>i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1518	1624	
==>i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1342	1441	
==>h does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1342	1441	
==>h does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {. <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2706	2796	
==>ule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_altern <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8702	8862	
==>);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8702	8862	
==>);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8702	8862	
==>);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19529	19636	
==>};
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19529	19636	
==>};
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19529	19636	
==>};
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11839	12005	
==>$n->{exp1} ) . ' ' . 
        $n->{op1}{op} . ' ' . _emit( $n->{exp2} );
}

sub circumfix {
    my $n = $_[0];
    # print "infix: ", Dumper( $n );
    
    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	977	1079	
==>d not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	977	1079	
==>d not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	75	188	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	75	188	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	75	188	
==>s %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	123	221	
==>ubexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5526	5629	
==>$mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5526	5629	
==>$mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14400	14503	
==>'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <UnaryExpre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12629	12796	
==>(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12629	12796	
==>(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9585	9688	
==>Id("expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* hack? */
	expand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	164	260	
==>oid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	164	260	
==>oid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	164	260	
==>oid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless r <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2352	2477	
==>matically by  --
--                  util/gen_prelude.pl                       --
-------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6709	6823	
==>se(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6709	6823	
==>se(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26213	26385	
==>in( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26213	26385	
==>in( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26213	26385	
==>in( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2203	2322	
==>ns = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $sel <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2203	2322	
==>ns = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $sel <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1892	1991	
==>ken("term:{{", "term:", "nows", &parse_closure);
    $optable->addToken("postfix:*", "<term:", "left <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	5	125	
==>ircumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	5	125	
==>ircumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	5	125	
==>ircumfix:<{}>(*@pairs) is primitive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	296	403	
==>rlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	296	403	
==>rlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	296	403	
==>rlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1065	1188	
==>ch => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub neg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1076	1199	
==>ch => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub neg <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	956	1050	
==>w( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with f <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	956	1050	
==>w( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18835	18949	
==>l6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18835	18949	
==>l6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18835	18949	
==>l6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18974	19081	
==>6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18974	19081	
==>6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18974	19081	
==>6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11096	11262	
==>r $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11096	11262	
==>r $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11096	11262	
==>r $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7619	7781	
==>+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unkno <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	524	644	
==>);
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\ <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	524	644	
==>);
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8445	8555	
==>);
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8445	8555	
==>);
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8445	8555	
==>);
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8347	8460	
==>$output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	557	658	
==>$output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	557	658	
==>$output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9445	9581	
==>/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9445	9581	
==>/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	990	1089	
==>)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	990	1089	
==>)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	990	1089	
==>)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12392	12503	
==>e,
  and call the original Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	19	125	
==>me::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	19	125	
==>me::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35640	35775	
==>d ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35640	35775	
==>d ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35640	35775	
==>d ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16034	16196	
==>rray = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16034	16196	
==>rray = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16034	16196	
==>rray = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14781	14886	
==>f $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14781	14886	
==>f $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14781	14886	
==>f $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constan <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10194	10329	
==>, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autop <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10194	10329	
==>, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autop <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17414	17507	
==>s alike.

For some practical examples of Locale::KeyedText in use, see the /examples
directory <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17414	17507	
==>s alike.

For some practical examples of Locale::KeyedText in use, see the /examples
directory <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	561	662	
==>nds;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	561	662	
==>nds;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	561	662	
==>nds;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. j <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3974	4102	
==>at satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4438	4566	
==>at satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10108	10221	
==>ct(quant => 0, '');
  });

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19890	19985	
==>values; the user name and the password.  In scalar context it will
return I<"uname:password"> as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19890	19985	
==>values; the user name and the password.  In scalar context it will
return I<"uname:password"> as <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10372	10509	
==>}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10372	10509	
==>}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9972	10082	
==>peSequence {  # see 7.8.4
      <'x'> <HexDigit> <HexDigit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	291	430	
==>' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4815	4927	
==>@nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4815	4927	
==>@nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3411	3504	
==>{'$:superclass'} = $Object;

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4105	4198	
==>{'$:superclass'} = $Object;

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5313	5406	
==>{'$:superclass'} = $Object;

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9214	9353	
==>([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_s <==
3	/Users/nnunley/pugs/util/grokprims.pl	536	649	
==>args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4768	4869	
==>e, 1- wrap with push-on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name) if $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2025	2173	
==>le  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2272	2420	
==>le  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	550	654	
==>sed($inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16505	16620	
==>eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16505	16620	
==>eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16505	16620	
==>eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	447	554	
==>s
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	447	554	
==>s
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	447	554	
==>s
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Adde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4477	4611	
==>"$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4477	4611	
==>"$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4477	4611	
==>"$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ": <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5414	5652	
==>e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set (" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7176	7414	
==>e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set (" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15401	15499	
==>ssion> <'>>>'> <AdditiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftEx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	312	412	
==>PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::tru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	312	412	
==>PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::tru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	312	412	
==>PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::tru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3143	3255	
==>e ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3143	3255	
==>e ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3143	3255	
==>e ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35718	35828	
==>ative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35718	35828	
==>ative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35718	35828	
==>ative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5955	6059	
==>/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5955	6059	
==>/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5955	6059	
==>/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26165	26357	
==>ar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26165	26357	
==>ar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26165	26357	
==>ar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  joi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15638	15765	
==>te lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lon <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3982	4077	
==>ty

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3982	4077	
==>ty

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	451	566	
==>nd a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	656	771	
==>nd a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	712	827	
==>nd a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1115	1271	
==>tes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1115	1271	
==>tes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	692	787	
==>tins->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9701	9865	
==>,"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro var <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6042	6206	
==>,"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6891	7055	
==>,"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6724	6840	
==>\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6724	6840	
==>\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6724	6840	
==>\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11652	11766	
==>fined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11652	11766	
==>fined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	173	279	
==>rammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	166	269	
==>rammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37223	37319	
==>tribute', (symbol->new('@:subclasses')      => attribute->new('@:subclasses'      => 'list')));
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8253	8347	
==>eturn "" if !defined $pilc;
    $pilc->expand();
}

#========================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8253	8347	
==>eturn "" if !defined $pilc;
    $pilc->expand();
}

#========================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8253	8347	
==>eturn "" if !defined $pilc;
    $pilc->expand();
}

#========================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8123	8391	
==>\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8123	8391	
==>\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8123	8391	
==>\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	773	882	
==>$len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	773	882	
==>$len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	303	402	
==>.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	303	402	
==>.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	303	402	
==>.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3061	3199	
==>(?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2943	3073	
==>(?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        matc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16354	16452	
==>>can("digest") and my $native = $r->provides($builtin->digest)){
        $val->set($native); # it's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9411	9509	
==>ngleton_method',
   '... got the right return value from $iFoo singleton method');
   
$iFoo->add_s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1650	1742	
==>t byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1650	1742	
==>t byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7500	7608	
==>po->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17115	17207	
==>e message content.

=item $h.content_language

The natural language(s) of the intended audien <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17115	17207	
==>e message content.

=item $h.content_language

The natural language(s) of the intended audien <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5124	5220	
==>, $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5124	5220	
==>, $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5124	5220	
==>, $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6701	6799	
==>fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6701	6799	
==>fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2744	2841	
==>", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2744	2841	
==>", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2744	2841	
==>", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2290	2394	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2290	2394	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2290	2394	
==>"-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2824	2922	
==>make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2824	2922	
==>make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2824	2922	
==>make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8891	9002	
==>%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8891	9002	
==>%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8891	9002	
==>%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12168	12339	
==>emidifference;

###########################################################################

method semijoin (Relation::Example $other!) returns Relation::Example {

    di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4557	4661	
==>de for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Rea <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4557	4661	
==>de for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Rea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8113	8277	
==>*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3082	3195	
==>nd
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostnam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3082	3195	
==>nd
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	273	408	
==>= \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	273	408	
==>= \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	273	408	
==>= \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8362	8465	
==>$self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8362	8465	
==>$self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8362	8465	
==>$self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBL <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6916	7132	
==>icense'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic lice <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6973	7189	
==>icense'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic lice <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9761	9873	
==>nother $iFoo singleton method');   

is($iFoo->test_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1431	1548	
==>ply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1431	1548	
==>ply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1431	1548	
==>ply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8492	8655	
==>$h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12403	12562	
==>$h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12403	12562	
==>$h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3597	3825	
==>m' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print(" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3597	3825	
==>m' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print(" <==
3	/Users/nnunley/pugs/util/build_pugs.pl	152	261	
==>ile::Basename qw(dirname);

our %BuildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	845	951	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	845	951	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	845	951	
==>ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1431	1536	
==>$builddir/$archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to created '$builddir/$archive' fr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	587	684	
==>roduce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	587	684	
==>roduce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 an <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5267	5426	
==>) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10523	10709	
==>s_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10523	10709	
==>s_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7514	7604	
==>head(R))      --> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33800	33935	
==>e::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33800	33935	
==>e::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33800	33935	
==>e::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6332	6446	
==>o_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6332	6446	
==>o_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6332	6446	
==>o_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1326	1439	
==>ts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1326	1439	
==>ts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1326	1439	
==>ts.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5060	5162	
==>rs>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5060	5162	
==>rs>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2885	2981	
==>r       Non-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5294	5438	
==>l::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5294	5438	
==>l::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmp <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1365	1472	
==>turn $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self->position() > 0;
}

sub as_int <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1426	1526	
==>= split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $por <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1426	1526	
==>= split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $por <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	902	1002	
==>ally have a native type
sub to_native { shift }

# conversion to other native types
sub to_num { (shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1329	1458	
==>{
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1329	1458	
==>{
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34241	34363	
==>ation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34241	34363	
==>ation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34241	34363	
==>ation
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14162	14277	
==>ms);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14162	14277	
==>ms);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14162	14277	
==>ms);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_meth <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2735	2828	
==>ation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8738	8830	
==>(::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8738	8830	
==>(::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8674	8793	
==>->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8674	8793	
==>->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8674	8793	
==>->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (ar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2506	2605	
==>ring and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2506	2605	
==>ring and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of th <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1243	1336	
==>rence documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlch <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1243	1336	
==>rence documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4320	4469	
==>&Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4320	4469	
==>&Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4320	4469	
==>&Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        meth <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15053	15149	
==>s_numeric);>

=back

All these routines modify the string passed as the first argument, if
called <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15053	15149	
==>s_numeric);>

=back

All these routines modify the string passed as the first argument, if
called <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5004	5132	
==>gleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5004	5132	
==>gleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5004	5132	
==>gleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	279	385	
==>l2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	279	385	
==>l2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	279	385	
==>l2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5690	5800	
==>es
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5690	5800	
==>es
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call <==
3	/Users/nnunley/pugs/util/package-osx.pl	11915	12005	
==>files > 0);
&copy_files($dest, @files);
&make_symlinks($dest, %symlinks) if (keys %symlinks <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1208	1306	
==>{ split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1208	1306	
==>{ split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1208	1306	
==>{ split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9286	9394	
==>ause it was specialized for subrules

### - needs to be generalized, and the anchor should only

###   work w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8981	9087	
==>ause it was specialized for subrules
### - needs to be generalized, and the anchor should only
###   work w <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1101	1205	
==>@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::override - Override Perl regular ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4959	5101	
==>D_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4959	5101	
==>D_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4959	5101	
==>D_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28751	28873	
==>nchor,
anyof, anyof_char, anyof_class, anyof_range, assertion, branch, close,
clump, digit, exact, flags, group, groupp, mi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4847	4966	
==>ls>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new pa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4847	4966	
==>ls>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new pa <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10626	10721	
==>=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_st <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10626	10721	
==>=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	29	117	
==>die::Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::DynamicScoping/;

use str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2187	2291	
==>ntainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2187	2291	
==>ntainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2187	2291	
==>ntainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6519	6627	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6519	6627	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6519	6627	
==>' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13907	14012	
==>bined, so to try and make the least expensive kinds of combining
    # occur first, and most expensive lat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17384	17489	
==>bined, so to try and make the least expensive kinds of combining
    # occur first, and most expensive lat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16764	16869	
==>bined, so to try and make the least expensive kinds of combining
    # occur first, and most expensive lat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3974	4142	
==>ists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    file        => $p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1425	1534	
==>has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_log <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1425	1534	
==>has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_log <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11310	11409	
==>) method; specifically, in the case
of a sub-class that adds a handler, the qr() method is used to p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1634	1737	
==>>val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->desc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1634	1737	
==>>val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->desc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1634	1737	
==>>val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2865	2984	
==>ed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2865	2984	
==>ed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2865	2984	
==>ed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4085	4204	
==>Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3035	3141	
==>Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21079	21261	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44003	44168	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2218	2382	
==>{
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2202	2333	
==>nt ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2202	2333	
==>nt ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2202	2333	
==>nt ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2947	3058	
==>, $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2947	3058	
==>, $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2947	3058	
==>, $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19385	19525	
==>//, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15806	15946	
==>//, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        ne <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7138	7286	
==>}( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn " <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7138	7286	
==>}( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4169	4279	
==>";
    goto token_match;
    bsr_token_match_1:
    goto found_term if $operator;
    goto null_term if ($key e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3234	3357	
==>truct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my $node = shift;
		
		m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1476	1586	
==>AD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everyth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1476	1586	
==>AD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everyth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39450	39552	
==>warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39450	39552	
==>warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39450	39552	
==>warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10893	11043	
==>$res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	743	861	
==>te $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	905	1023	
==>te $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratche <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2193	2289	
==>ad2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The ide <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2193	2289	
==>ad2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The ide <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	48	144	
==>:Compiler;
use base qw/Blondie::Compiler/;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3855	3958	
==>)."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3855	3958	
==>)."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3855	3958	
==>)."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5093	5200	
==>ump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option not give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5093	5200	
==>ump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option not give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5093	5200	
==>ump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option not give <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1483	1595	
==>Y EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1483	1595	
==>Y EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1483	1595	
==>Y EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1894	1991	
==>";
   }
}

# -----------------------------------------------------

my $file1 = <<'GROK';
1st line <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	399	494	
==>* compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	399	494	
==>* compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1791	1895	
==>1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36800	36890	
==>relational operator that is like
C<union> except that the returned Relation::Example contai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37300	37390	
==>relational operator that is like
C<union> except that the returned Relation::Example contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11582	11695	
==>from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11582	11695	
==>from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11582	11695	
==>from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2233	2332	
==>LOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2233	2332	
==>LOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pack <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2233	2332	
==>LOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pack <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16802	16942	
==>c ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is prim <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9663	9773	
==>y_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_te <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9663	9773	
==>y_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13735	13862	
==>rmal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13735	13862	
==>rmal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13735	13862	
==>rmal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3865	3959	
==>ort of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3865	3959	
==>ort of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23164	23270	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23164	23270	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23164	23270	
==>,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13923	14075	
==>.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13923	14075	
==>.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13923	14075	
==>.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2339	2482	
==>x => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2886	3029	
==>x => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3433	3576	
==>x => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5474	5585	
==>::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        push( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5858	5959	
==>re "matcher" things.

Rules operate on strings (normally) and return Match objects.



### examples wi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5655	5753	
==>re "matcher" things.
Rules operate on strings (normally) and return Match objects.

### examples wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3633	3739	
==>me}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3633	3739	
==>me}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4223	4329	
==>me}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2650	2752	
==>t .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = orange ] <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	230	354	
==>*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $* <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	230	354	
==>*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1253	1351	
==>ernals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1253	1351	
==>ernals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1253	1351	
==>ernals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9458	9586	
==>.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9458	9586	
==>.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9458	9586	
==>.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idx <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1300	1412	
==>@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1267	1379	
==>@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7667	7775	
==>f($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7667	7775	
==>f($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7667	7775	
==>f($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2642	2779	
==>_->add_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	529	629	
==>sformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	529	629	
==>sformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24667	24766	
==>icense, or (at your option) any later version.  You should have received a
copy of the GPL as part o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24667	24766	
==>icense, or (at your option) any later version.  You should have received a
copy of the GPL as part o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24604	24704	
==>object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21025	21125	
==>object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifth <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1231	1330	
==>alue;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1718	1817	
==>ch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1718	1817	
==>ch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1718	1817	
==>ch' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	286	397	
==>t);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	286	397	
==>t);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	286	397	
==>t);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_sl <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1473	1580	
==>ler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $fi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1473	1580	
==>ler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $fi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14790	14887	
==>ay generic when we leave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32356	32521	
==>ength;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32356	32521	
==>ength;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32356	32521	
==>ength;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5909	6068	
==>elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1733	1824	
==>r::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".sp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1733	1824	
==>r::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	901	1022	
==>s $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	910	1031	
==>s $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( subst <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6218	6323	
==>elp   => "Remove \"$grub_local\" if you want mklivecd.pl to refetch GRUB.",
  ensure => sub { -r $grub_loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	700	838	
==>_diag {
    return unless @_;
    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
               map { split /\n/ } @_;
    my $fh = $TODO ? *S <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	616	723	
==>)
    );

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::Basena <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	521	619	
==>)
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Basena <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4762	4876	
==>) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4762	4876	
==>) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	348	446	
==>Util 'blessed';

# create our basic variables/functions for 
# the metamodel that the runtime needs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3744	3871	
==>l  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3937	4064	
==>l  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1680	1780	
==>ion for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	748	843	
==>ngs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	748	843	
==>ngs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	748	843	
==>ngs "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	159	279	
==>s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	159	279	
==>s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	159	279	
==>s now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9691	9865	
==>lems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9691	9865	
==>lems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9691	9865	
==>lems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	983	1095	
==>array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	983	1095	
==>array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	983	1095	
==>array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2035	2161	
==>) {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2035	2161	
==>) {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2035	2161	
==>) {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6504	6661	
==>rm.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.sub_call'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12943	13090	
==>me::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12937	13084	
==>me::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$g <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12939	13058	
==>($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18456	18554	
==>.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18456	18554	
==>.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11136	11254	
==>a( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11136	11254	
==>a( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11136	11254	
==>a( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19980	20131	
==>"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) {
            $bonusmsg .= " and $tot->{sub_skipped} subtes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20094	20189	
==>rization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20094	20189	
==>rization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7939	8097	
==>tch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7939	8097	
==>tch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7939	8097	
==>tch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14350	14446	
==>ail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self->available_fi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37234	37328	
==>the name of a Perl package in its positional parameter
$module_name (a string) and checks wheth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37234	37328	
==>the name of a Perl package in its positional parameter
$module_name (a string) and checks wheth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7537	7682	
==>6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7537	7682	
==>6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7537	7682	
==>6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	71	182	
==><if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	71	182	
==><if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&g <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14255	14372	
==>0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5975	6081	
==>rn $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside captur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5787	5888	
==>rn $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21706	21805	
==>{
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21706	21805	
==>{
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21706	21805	
==>{
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7480	7578	
==>ader("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7480	7578	
==>ader("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3129	3306	
==>ELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "So <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6606	6783	
==>ELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "So <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11581	11713	
==>, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15058	15190	
==>, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14393	14525	
==>, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17480	17569	
==>lized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17480	17569	
==>lized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34042	34140	
==>en translating a message, a match in found in the most preferred language
is used.  Each Set Name c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34042	34140	
==>en translating a message, a match in found in the most preferred language
is used.  Each Set Name c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6604	6736	
==>BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6604	6736	
==>BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6604	6736	
==>BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	298	400	
==>unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	298	400	
==>unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	298	400	
==>unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6684	6807	
==>over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6684	6807	
==>over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8881	9004	
==>over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1806	2211	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comman <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1806	2211	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comman <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9397	9486	
==>xp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef,undef,1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13914	14065	
==>f->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13914	14065	
==>f->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13914	14065	
==>f->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3352	3450	
==>uri
    mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_local
    Locally, t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9749	9846	
==>ion( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9749	9846	
==>ion( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1286	1398	
==>"lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1286	1398	
==>"lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1286	1398	
==>"lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3884	3987	
==>, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3884	3987	
==>, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5408	5511	
==>, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 modu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2701	2867	
==>, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2701	2867	
==>, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10932	11029	
==>, 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo singleton/c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8454	8549	
==>, 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo singleton/c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1631	1748	
==>e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1631	1748	
==>e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1631	1748	
==>e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3093	3214	
==>d, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3093	3214	
==>d, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4617	4738	
==>d, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Te <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1459	1575	
==>Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers { <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1459	1575	
==>Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1502	1596	
==>stent group';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1391	1717	
==>r_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12510	12832	
==>(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12510	12832	
==>(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	389	493	
==>"PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	389	493	
==>"PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	389	493	
==>"PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3917	4025	
==>IS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3917	4025	
==>IS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3917	4025	
==>IS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	30	143	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	30	143	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	30	143	
==>ngs;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5138	5264	
==>» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5138	5264	
==>» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5138	5264	
==>» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25770	25864	
==>ts.

Any versions of Rosetta that you modify and distribute must carry prominent
notices statin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25770	25864	
==>ts.

Any versions of Rosetta that you modify and distribute must carry prominent
notices statin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14299	14387	
==>-
  atom_codes(AName,Name),
  concat_atom(['use charnames ":full";unpack("U*","\\N{',ANam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10348	10464	
==>methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10348	10464	
==>methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10348	10464	
==>methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19643	19772	
==>nus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $b <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1387	1491	
==>$two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.sub <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1387	1491	
==>$two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27258	27372	
==>'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27537	27651	
==>'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4471	4580	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4471	4580	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4471	4580	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4979	5084	
==>still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4979	5084	
==>still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2366	2466	
==>l5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2366	2466	
==>l5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2366	2466	
==>l5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6972	7146	
==>6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6972	7146	
==>6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6972	7146	
==>6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	229	333	
==>lessed';

use base 'type::comparable';

my $OBJECT_ID = num->new(0);

# create a null object to 
# be use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15451	15569	
==>Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15451	15569	
==>Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3246	3349	
==>ecedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}->($self, $level, $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2548	2650	
==>rl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2548	2650	
==>rl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2548	2650	
==>rl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3793	3901	
==>ded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9418	9523	
==>arguments to the perl program ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3657	3762	
==>ded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15500	15647	
==>1
    cname = escape cname
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 + 1
    goto end
  err <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1085	1192	
==>(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1085	1192	
==>(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($di <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4768	4890	
==>et )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4768	4890	
==>et )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9181	9290	
==>v eq $_[0]; # where does this recursion arise?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5576	5676	
==>X - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5576	5676	
==>X - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5576	5676	
==>X - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jss <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22283	22379	
==>es which
have the same method names as you or each other, or having multiple search
directories i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22283	22379	
==>es which
have the same method names as you or each other, or having multiple search
directories i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5166	5262	
==>n compiling (--link option not given), there has to be only one input file.
In linking mode, mult <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5166	5262	
==>n compiling (--link option not given), there has to be only one input file.
In linking mode, mult <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5166	5262	
==>n compiling (--link option not given), there has to be only one input file.
In linking mode, mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6630	6746	
==>ULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6630	6746	
==>ULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6630	6746	
==>ULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2861	3061	
==>a literal...
                    $z = sprintf "\\%03o", $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14394	14489	
==>erarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14394	14489	
==>erarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40648	40747	
==>AR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40648	40747	
==>AR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	467	562	
==>ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$for <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	428	523	
==>ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	428	523	
==>ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$for <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12667	12816	
==>= $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12667	12816	
==>= $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14007	14130	
==>en = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(& <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	103	204	
==>r::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	103	204	
==>r::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8935	9031	
==>sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8935	9031	
==>sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8935	9031	
==>sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfi <==
3	/Users/nnunley/pugs/util/package-osx.pl	1693	1813	
==>5/site_perl/pil2js.pl /Library/Perl/5.8.6/pil2js.pl
        /usr/local/lib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8121	8237	
==>_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8314	8430	
==>_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	524	637	
==>sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	294	407	
==>sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	294	407	
==>sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$v <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3514	3625	
==>DERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3991	4084	
==>return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5893	5986	
==>return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4616	4728	
==>pand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4616	4728	
==>pand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4616	4728	
==>pand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($Eva <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	340	463	
==>ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	340	463	
==>ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19465	19580	
==>(List $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $v { sprintf($fmt,$v) }, @$obj ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	895	1009	
==>pply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	895	1009	
==>pply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	895	1009	
==>pply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5476	5572	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptabl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5476	5572	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptabl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5476	5572	
==>:BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptabl <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5130	5230	
==>=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "gru <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3792	3891	
==>y 
with your data.  Finally, call the finish() method to return any leftover data 
and clear the cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3792	3891	
==>y 
with your data.  Finally, call the finish() method to return any leftover data 
and clear the cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8706	8856	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8706	8856	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8706	8856	
==>b { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	679	815	
==>y (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} unless @_;

        my @rv;
        wh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19742	19838	
==>e current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was ins <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19742	19838	
==>e current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8053	8149	
==>lement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8053	8149	
==>lement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8053	8149	
==>lement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	3	260	
==>usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	3	260	
==>usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4725	4862	
==>e( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->compile( q(
            { return <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6374	6482	
==>ame = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6374	6482	
==>ame = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2784	2884	
==>d (has_method $label)) and (= $method ($current send (get_method $label)))
         (= $current (&dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8522	8615	
==>_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8522	8615	
==>_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8522	8615	
==>_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14764	14861	
==>l,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more...
re_reverse(R,R).

%---- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34821	34917	
==>t Relation and that match any tuples of C<$other> along
their common attributes.  This method wil <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39371	39467	
==>t Relation and that match any tuples of C<$other> along
their common attributes.  This method wil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2935	3047	
==>name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2935	3047	
==>name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2935	3047	
==>name'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1418	1521	
==>n autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1418	1521	
==>n autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1418	1521	
==>n autoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4675	4779	
==>rl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4675	4779	
==>rl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4675	4779	
==>rl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15291	15409	
==>->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14518	14632	
==>C $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14518	14632	
==>C $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2382	2490	
==>ndlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2382	2490	
==>ndlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4225	4325	
==>= GetBase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32238	32336	
==>in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36788	36886	
==>in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36078	36176	
==>in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant an <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9479	9653	
==>' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1290	1440	
==>' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= ' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1468	1592	
==>(Any, Any) returns Int;
 type Criterion    ::= KeyExtractor | Comparator
                       | Pair(KeyExtractor, Comparat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3764	3859	
==>med_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3764	3859	
==>med_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4354	4449	
==>med_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optiona <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5019	5153	
==>t,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5019	5153	
==>t,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless de <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15524	15610	
==>-------------------------------------------------------------

rm(noop,F0,F0,B0,B0,E0,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7140	7254	
==>r_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7140	7254	
==>r_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7140	7254	
==>r_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17772	17867	
==>Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17772	17867	
==>Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	379	492	
==>method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	379	492	
==>method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	379	492	
==>method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    m <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	616	739	
==>(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $promp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8174	8268	
==>t {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8174	8268	
==>t {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5156	5271	
==>xt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5156	5271	
==>xt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5156	5271	
==>xt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3855	3963	
==>:Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3855	3963	
==>:Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3855	3963	
==>:Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_in <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	595	735	
==>_prefix( $_->[1]->{package} ) . '-' .
                        package_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $ind <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8608	8702	
==>take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8608	8702	
==>take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14695	14809	
==>$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8896	9010	
==>$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20252	20341	
==>xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20252	20341	
==>xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20252	20341	
==>xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4332	4433	
==>e value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4332	4433	
==>e value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6529	6630	
==>e value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is tr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	181	294	
==>->import();
}

@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3620	3723	
==>_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3620	3723	
==>_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2457	2583	
==>eturn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2457	2583	
==>eturn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2457	2583	
==>eturn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1725	1825	
==>substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1725	1825	
==>substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1725	1825	
==>substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3571	3682	
==>>fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3571	3682	
==>>fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3571	3682	
==>>fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	354	495	
==>:ast( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $src,
        tail  =>   $tail,
        captur <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12581	12679	
==>ns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12581	12679	
==>ns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9857	10020	
==>ub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9857	10020	
==>ub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9857	10020	
==>ub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2091	2223	
==>int "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2308	2440	
==>int "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39711	39804	
==>ion::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9860	10022	
==>ro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6201	6363	
==>ro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7050	7212	
==>ro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1708	1809	
==>turn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declarati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1708	1809	
==>turn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declarati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1708	1809	
==>turn $self->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declarati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33505	33614	
==>to go deeper and
shallower in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2541	2649	
==>my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2541	2649	
==>my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $u <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20237	20334	
==>is modified
# try to 'collapse' useless directory entries
sub collapse_isolated_dirs {
    my $dir <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2575	2692	
==>n ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2575	2692	
==>n ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2953	3063	
==>n->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} else {
			my $type = $self->guess_perl_ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4951	5074	
==>is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4951	5074	
==>is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4951	5074	
==>is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1703	1830	
==>Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1703	1830	
==>Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1703	1830	
==>Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3410	3560	
==>ntime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3410	3560	
==>ntime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12145	12264	
==>,
      scalar_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => sub { 0+ ${$_[0]} },
      array => sub { 0+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14288	14506	
==>reface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14288	14506	
==>reface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29634	29745	
==>q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29634	29745	
==>q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	438	537	
==>q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	739	853	
==>stes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	739	853	
==>stes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	739	853	
==>stes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The ot <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34402	34498	
==>object is set from the named parameter
@set_names (an array ref), and Member Names is set from th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34402	34498	
==>object is set from the named parameter
@set_names (an array ref), and Member Names is set from th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10538	10627	
==>mDefault=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2567	2719	
==>LETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2567	2719	
==>LETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2567	2719	
==>LETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10784	10898	
==>cessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creata <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10784	10898	
==>cessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creata <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10784	10898	
==>cessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creata <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2884	3011	
==>turn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2884	3011	
==>turn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2884	3011	
==>turn $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1716	1824	
==>ss::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ];
$config{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	918	1024	
==><\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n";
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	929	1035	
==><\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n";
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6070	6248	
==>));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6070	6248	
==>));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6070	6248	
==>));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1163	1333	
==>!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Dat <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2341	2496	
==>is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2341	2496	
==>is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6030	6207	
==>return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $ste <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6030	6207	
==>return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $ste <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6030	6207	
==>return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $ste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1733	1844	
==>','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1733	1844	
==>','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1733	1844	
==>','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8124	8243	
==>atch[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     els <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8112	8231	
==>atch[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     els <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	340	427	
==>.elems;
 }
 &Array::shift<Array> := &Array::splice<Array>.assuming(:offset(0) :length(1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1744	1864	
==>));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1744	1864	
==>));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1744	1864	
==>));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method key <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11871	11983	
==>ad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resol <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	280	387	
==>ad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resol <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	506	599	
==>, 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Config{make} insta <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8673	8775	
==>to play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is call <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8673	8775	
==>to play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is call <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	621	713	
==>e unless Scalar::Util::blessed($node);

	$node->isa("Blondie::Node")
		or die "it doesn't loo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	322	465	
==>access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	322	465	
==>access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	322	465	
==>access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9672	9840	
==>gnature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13505	13620	
==>}
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13505	13620	
==>}
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6234	6327	
==>helper to other functions.  

=cut

## ------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6234	6327	
==>helper to other functions.  

=cut

## ------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6234	6327	
==>helper to other functions.  

=cut

## ------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3403	3506	
==>::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.l <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3403	3506	
==>::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.l <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6072	6202	
==>"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6072	6202	
==>"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2399	2546	
==>rol;

        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   
            my $pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1152	1242	
==>Engine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1152	1242	
==>Engine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6913	7072	
==>d} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6913	7072	
==>d} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6913	7072	
==>d} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4758	4911	
==>$multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4758	4911	
==>$multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3036	3145	
==>cted no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3036	3145	
==>cted no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17410	17615	
==>=> $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # sto <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17410	17615	
==>=> $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # sto <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17410	17615	
==>=> $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	95	192	
==>ot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	95	192	
==>ot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	95	192	
==>ot::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19044	19185	
==>', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19323	19464	
==>', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	342	434	
==>n::OnPerl5::X1::Prelude::initialize();
#    END { p6_apply(p6_var('&*END')); }
}
initialize() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1132	1249	
==>and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1132	1249	
==>and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1132	1249	
==>and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33264	33363	
==>ents sent are the walking stack and the current
depth in the walking stack.  Elements are taken from <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4697	4790	
==>l_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8174	8267	
==>l_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23827	23948	
==>eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, $on) {
    if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3835	3933	
==>mplete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3835	3933	
==>mplete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18180	18296	
==>p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cutatom
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1597	1691	
==>ss Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1597	1691	
==>ss Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5443	5552	
==>d by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5443	5552	
==>d by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Ro <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1144	1253	
==>=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12533	12667	
==>! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8710	8828	
==>_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8710	8828	
==>_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22186	22280	
==>operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22186	22280	
==>operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5471	5619	
==>G_$seq" } = $func;
}


sub del_flag {
  my ($self, @flags) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7322	7431	
==>opy, $key);
    }

    return @index_files;
}

### these plural functions seem more confusion than helpful cur <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1190	1306	
==>n;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        return $self-> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3974	4078	
==>ject;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName ($O: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1129	1233	
==>n;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		return $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1365	1514	
==>} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1365	1514	
==>} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { retur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4550	4648	
==>$@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilT <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10289	10406	
==>" ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='su <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10289	10406	
==>" ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19537	19636	
==>the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24089	24188	
==>the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1365	1460	
==>portList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1365	1460	
==>portList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1365	1460	
==>portList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6572	6687	
==>elf->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6572	6687	
==>elf->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6572	6687	
==>elf->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13598	13702	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13598	13702	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13598	13702	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2463	2587	
==>- $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2463	2587	
==>- $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2463	2587	
==>- $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10095	10227	
==>\n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10095	10227	
==>\n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented";
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	961	1074	
==>ams{'$.number'},
            ) if $params{'$.todo'};

            return $::TestBuilder->FETCH('::Test')->FETCH(': <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2286	2417	
==>([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8922	9020	
==>xpect_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLOA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8627	8723	
==>xpect_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLOA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3966	4152	
==>ping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7443	7629	
==>ping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6409	6595	
==>ping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5204	5358	
==>attern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5204	5358	
==>attern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5204	5358	
==>attern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ig <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2175	2293	
==>$density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2175	2293	
==>$density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22235	22339	
==>aram => ide("x"),
		),
		param => ide("nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify",
	i <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	152	254	
==>artini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18663	18761	
==>ry to access the same external resources.>

Rosetta does not use any dialect of SQL in its native A <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18663	18761	
==>ry to access the same external resources.>

Rosetta does not use any dialect of SQL in its native A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7052	7166	
==>rogram};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow nod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7064	7178	
==>rogram};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4463	4580	
==>if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4451	4568	
==>if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6803	6888	
==>e::TypeSafe::Type::Placeholder");
			if (!$x->isa("Blondie::TypeSafe::Type::Placeholde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3063	3173	
==>current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3063	3173	
==>current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3063	3173	
==>current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        u <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3620	3818	
==>.5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4856	5044	
==>ol => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4705	4888	
==>ol => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2904	3033	
==>v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2904	3033	
==>v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2904	3033	
==>v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3404	3510	
==>rep { $_ eq $self->{prefix} } @INC;

    foreach my $rv ($self->find_extensions($path)) {
        my ($file <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21138	21231	
==>your program would use
associated keys internally.

It is strongly suggested (but not required <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21138	21231	
==>your program would use
associated keys internally.

It is strongly suggested (but not required <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8316	8418	
==>S->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8316	8418	
==>S->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8316	8418	
==>S->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10431	10605	
==>g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6772	6946	
==>g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7621	7795	
==>g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13108	13259	
==>erl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13108	13259	
==>erl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13108	13259	
==>erl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2225	2329	
==>ore a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pat <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2225	2329	
==>ore a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	477	580	
==>] pair
### the default_value is the value of initalization, the return value is
### a subroutine that bu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10088	10224	
==>$f = $o->data->data->emit; # reach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	128	252	
==>w {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	128	252	
==>w {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	128	252	
==>w {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2407	2524	
==>bj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

C <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1339	1454	
==>grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, til <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1339	1454	
==>grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, til <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2329	2428	
==>package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2329	2428	
==>package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2329	2428	
==>package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	98	209	
==>this script highly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	98	209	
==>this script highly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	98	209	
==>this script highly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1661	1778	
==>Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1661	1778	
==>Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1661	1778	
==>Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            's <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3711	3827	
==>Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3711	3827	
==>Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	509	610	
==>::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37845	37974	
==>[$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37845	37974	
==>[$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37845	37974	
==>[$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4462	4559	
==>the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Pe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4462	4559	
==>the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4542	4639	
==>the test description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2597	2716	
==>" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2597	2716	
==>" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2597	2716	
==>" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n" <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3352	3438	
==>\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3352	3438	
==>\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14891	15020	
==>sts ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14891	15020	
==>sts ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14891	15020	
==>sts ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self->{shifts}} if @{$self <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1194	1379	
==>$val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1194	1379	
==>$val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $c <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	796	888	
==>lse;">open each link in a
new window</a>.  (Useful with Firefox 1.5's Preferences/Tabs/Force/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3763	3874	
==>"";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3763	3874	
==>"";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3763	3874	
==>"";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1066	1197	
==>($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1066	1197	
==>($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1275	1406	
==>($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_optional(1)
		unless $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4217	4327	
==>name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4217	4327	
==>name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4217	4327	
==>name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    whil <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6810	6908	
==>return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7182	7280	
==>return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7481	7579	
==>return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1144	1278	
==>er;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.nu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1144	1278	
==>er;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.nu <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	738	863	
==>second),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8601 ) returns Duratio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25631	25738	
==>0.1
      <DecimalEscape>
    | <CharacterEscape>
    | <CharacterClassEscape>
}
rule CharacterEscape {  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7596	7686	
==>Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1421	1511	
==>Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
pu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2806	2915	
==>}
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:808 <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2806	2915	
==>}
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:808 <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3278	3380	
==>= do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5325	5428	
==>n ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5325	5428	
==>n ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5325	5428	
==>n ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I think a LOCATE method wou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8211	8332	
==>eop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8404	8525	
==>eop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2683	2777	
==>d,$remainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extracted = subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12018	12115	
==>$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12018	12115	
==>$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12018	12115	
==>$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@class <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1923	2028	
==>) not found in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26334	26428	
==>setta would
appreciate being informed any time you create a modified version of Rosetta
that yo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26334	26428	
==>setta would
appreciate being informed any time you create a modified version of Rosetta
that yo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	247	410	
==>OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	247	410	
==>OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20639	20734	
==>at file might end up being where
documentation on writing handlers goes.

The documentation on s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14796	14907	
==>thing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14796	14907	
==>thing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14796	14907	
==>thing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2753	2864	
==>}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2753	2864	
==>}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2753	2864	
==>}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	364	467	
==>tion
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to Met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	364	467	
==>tion
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to Met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	364	467	
==>tion
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to Met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38044	38134	
==>le recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_temp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38044	38134	
==>le recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_temp <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	900	1026	
==>$buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modif <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	900	1026	
==>$buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modif <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13989	14093	
==>>
}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <Assig <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12872	12973	
==>fess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12872	12973	
==>fess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12872	12973	
==>fess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_att <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9047	9170	
==>turn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9240	9363	
==>turn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1260	1366	
==>with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
print "[$_]" for ($0, @ARGV);
print "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20076	20211	
==>, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16497	16632	
==>, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6722	6857	
==>ype;
    }
    else {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19639	19750	
==>'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19639	19750	
==>'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19639	19750	
==>'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13096	13211	
==>e span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20] <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13096	13211	
==>e span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7532	7687	
==>tems
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	833	988	
==>tems
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4062	4156	
==>classes([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4062	4156	
==>classes([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4062	4156	
==>classes([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name')) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32112	32210	
==>s all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36662	36760	
==>s all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4048	4147	
==>die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4048	4147	
==>die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4048	4147	
==>die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16678	16778	
==>o to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16678	16778	
==>o to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `interse <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	70	167	
==>h table... accessors should be in here
has Method %.dispatch;

# private accessors, methods, etc
h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	341	595	
==>eadonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	341	595	
==>eadonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of th <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4810	4921	
==>6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15211	15307	
==>d or
decoded string is returned (without changing the input string).

If you prefer not to import <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15211	15307	
==>d or
decoded string is returned (without changing the input string).

If you prefer not to import <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5178	5281	
==>al).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a has <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5178	5281	
==>al).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7375	7478	
==>al).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16038	16283	
==>b { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16038	16283	
==>b { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16038	16283	
==>b { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->ele <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13586	13699	
==>ource's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stand <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17063	17176	
==>ource's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stand <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16425	16538	
==>ource's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the stand <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3949	4082	
==>ck} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_bloc <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5249	5343	
==>pbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5249	5343	
==>pbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4184	4288	
==>This method actually returns a Test::Builder singleton, creating it if
necessary.  The optional named arg <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4184	4288	
==>This method actually returns a Test::Builder singleton, creating it if
necessary.  The optional named arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5708	5812	
==>This method actually returns a Test::Builder singleton, creating it if
necessary.  The optional named arg <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2562	2674	
==>container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2562	2674	
==>container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4572	4726	
==>inst_pkg = $inst->register( package => $self ) 
                or error("Could not register package"), return;
            
            
            my $p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2619	2714	
==>$.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2619	2714	
==>$.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6620	6733	
==>$self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6620	6733	
==>$self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6620	6733	
==>$self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22244	22331	
==>chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22244	22331	
==>chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22244	22331	
==>chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1933	2057	
==>left',
        precedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne', <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2062	2160	
==>our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2062	2160	
==>our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1924	2059	
==>a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1924	2059	
==>a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1924	2059	
==>a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5603	5721	
==>is,
    }, $class;
  }
}


{
  package Regexp::Parser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3647	3755	
==>curate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3647	3755	
==>curate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	211	329	
==>_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	211	329	
==>_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	211	329	
==>_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5927	6043	
==>{ $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5740	5850	
==>{ $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must retur <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	656	757	
==>his program in the same directory containing
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

us <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13293	13387	
==>C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13293	13387	
==>C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15497	15620	
==>ze => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entri <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15497	15620	
==>ze => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entri <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9642	9758	
==>therwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9642	9758	
==>therwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2484	2615	
==>to}",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blondie::Val->new($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1187	1286	
==>[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argum <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1187	1286	
==>[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argum <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6915	7052	
==>= $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10392	10529	
==>= $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9457	9559	
==>me);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9457	9559	
==>me);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9457	9559	
==>me);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	525	655	
==>angle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	525	655	
==>angle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	525	655	
==>angle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4288	4410	
==>pr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4288	4410	
==>pr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1138	1260	
==>pr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17558	17703	
==>( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17558	17703	
==>( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17558	17703	
==>( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30745	30849	
==>ing transformation of each tuple), but
that any duplicates following the transformation have been elimina <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35296	35400	
==>ing transformation of each tuple), but
that any duplicates following the transformation have been elimina <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34487	34591	
==>ing transformation of each tuple), but
that any duplicates following the transformation have been elimina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18372	18573	
==>ger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18372	18573	
==>ger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18372	18573	
==>ger here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1935	2036	
==>);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1935	2036	
==>);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1935	2036	
==>);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14525	14678	
==>@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14525	14678	
==>@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14525	14678	
==>@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18052	18154	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18052	18154	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18052	18154	
==>($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14289	14410	
==>ile($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->push_content(
                HTM <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7893	7991	
==>assume that if this method is being called, the Secret 
Police are breaking down the door and Our H <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7893	7991	
==>assume that if this method is being called, the Secret 
Police are breaking down the door and Our H <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2597	2709	
==>or is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2597	2709	
==>or is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18900	18985	
==>eftHandSideExpression> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule Assignme <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11172	11312	
==>t = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11172	11312	
==>t = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8690	8804	
==>lt = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5521	5643	
==>:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new ope <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5521	5643	
==>:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new ope <==
3	/Users/nnunley/pugs/util/package-osx.pl	5460	5557	
==>::Capture.3pm
        /usr/local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9122	9244	
==>expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }


=item reduce

 multi Array::reduce (@valu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1058	1172	
==>ssed($block) && $block->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $bl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9171	9282	
==>ssion.arity) );
     }
   }
 }


=item reduce

 multi Array::reduce (@values ; Code *&expression --> Scalar )
 m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6538	6636	
==>d1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6538	6636	
==>d1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1454	1566	
==>add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1454	1566	
==>add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1454	1566	
==>add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.off <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	830	930	
==>s now require synchronised versions.
    # This will be used to ensure we don't accidentally load old <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11222	11316	
==>$desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with m <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11280	11374	
==>$desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14642	14760	
==>classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14642	14760	
==>classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14642	14760	
==>classes = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is no <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6840	6963	
==>->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6840	6963	
==>->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3906	4019	
==>turn $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5697	5810	
==>_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_h <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1299	1411	
==>re prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	859	971	
==>re prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27624	27726	
==>, t) ((t) \
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_CO <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3920	4014	
==>te.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( year <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3920	4014	
==>te.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( year <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4297	4432	
==>pfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4297	4432	
==>pfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4297	4432	
==>pfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = o <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17951	18053	
==>e in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $input = CALLER <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3583	3674	
==>------------------------------------------

# Utility to test that "No method found" error i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5485	5576	
==>------------------------------------------

# Utility to test that "No method found" error i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4405	4531	
==>t;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2198	2296	
==>pace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2209	2307	
==>pace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10841	10949	
==>thod has_attribute;
    method get_attribute_list;            
}

------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10841	10949	
==>thod has_attribute;
    method get_attribute_list;            
}

------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10841	10949	
==>thod has_attribute;
    method get_attribute_list;            
}

------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1407	1579	
==>del::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1407	1579	
==>del::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11318	11474	
==>[ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11318	11474	
==>[ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2078	2188	
==>gnore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2078	2188	
==>gnore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2078	2188	
==>gnore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	417	533	
==>],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $nu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1945	2061	
==>],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $nu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5208	5301	
==>k->val->struct_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1531	1667	
==>s",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (int(@commits / 500) + 1) * 500,
) or die $graph->err <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2521	2630	
==>UTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_ME <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1671	1778	
==>UTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_ME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6209	6310	
==>= function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6209	6310	
==>= function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6209	6310	
==>= function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12012	12155	
==>b { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12012	12155	
==>b { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12012	12155	
==>b { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->t <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3977	4078	
==>er} = eval { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9859	9956	
==>de_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9859	9956	
==>de_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17744	17837	
==>oke/execute Rosetta D statements and routines
within the virtual machine, input data to it, an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17744	17837	
==>oke/execute Rosetta D statements and routines
within the virtual machine, input data to it, an <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4599	4708	
==>arameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4599	4708	
==>arameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set: <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	677	782	
==>1-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookie <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	803	936	
==>floor (  Num  $x            --> Int )
 { Pugs::Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pug <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1648	1756	
==>L::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expressio <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1648	1756	
==>L::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expressio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36121	36244	
==>th -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36121	36244	
==>th -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36121	36244	
==>th -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $cl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15744	15882	
==>nch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19977	20115	
==>nch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9134	9239	
==>$extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9134	9239	
==>$extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9134	9239	
==>$extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	965	1073	
==>er extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	965	1073	
==>er extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	965	1073	
==>er extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3545	3644	
==>and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3545	3644	
==>and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3545	3644	
==>and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1237	1334	
==>sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1237	1334	
==>sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1237	1334	
==>sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	904	1028	
==>bstr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	904	1028	
==>bstr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2388	2473	
==>le::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Grammar::Rule::rule>' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1689	1799	
==>e can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1689	1799	
==>e can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1689	1799	
==>e can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37056	37168	
==>s >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37056	37168	
==>s >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37056	37168	
==>s >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5733	5831	
==>x:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5733	5831	
==>x:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5733	5831	
==>x:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &inf <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3180	3301	
==>nlined modules.
    # we make a guess about what to put in %*INC. it's not perfect.
    # When module return values are sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5341	5460	
==>$match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5341	5460	
==>$match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1629	1744	
==>rt && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1629	1744	
==>rt && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2617	2740	
==>ession and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2617	2740	
==>ession and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2617	2740	
==>ession and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2798	2922	
==>->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2798	2922	
==>->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2798	2922	
==>->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5240	5361	
==>tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5240	5361	
==>tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5240	5361	
==>tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	45	147	
==>ntrol;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !!>', '$co <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	338	432	
==>be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	338	432	
==>be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6917	7012	
==>$matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6917	7012	
==>$matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6917	7012	
==>$matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return ru <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5970	6087	
==>f   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5970	6087	
==>f   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26905	27015	
==>Character but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14051	14159	
==>dump out alternatives again
    ### XXX pretty method?
    $self->registered_alternatives([ @{$self->register <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3902	4098	
==>archive_control;
        system( qq[tar -f $my_tmp_dir/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16719	16813	
==>s possible that one could write a self-contained application in
Rosetta D and compile that into <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16719	16813	
==>s possible that one could write a self-contained application in
Rosetta D and compile that into <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	899	1010	
==>, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	899	1010	
==>, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	899	1010	
==>, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probably wi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30771	30873	
==>Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for ev <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30771	30873	
==>Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for ev <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35201	35301	
==>the tuple/Mapping as its sole read-only argument. The new
Relation::Example has all of the same attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1729	1886	
==>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1729	1886	
==>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1729	1886	
==>superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2976	3078	
==>e::equivalence';

sub new {
    my ($class, %options) = @_;
    (exists $options{params} && blessed($op <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3972	4073	
==>cale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3972	4073	
==>cale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3212	3312	
==>as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3212	3312	
==>as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3212	3312	
==>as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13236	13375	
==>r::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13236	13375	
==>r::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13236	13375	
==>r::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28445	28538	
==>mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32997	33090	
==>mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32125	32218	
==>mapping> says which attributes are being combined/wrapped, with
its keys being the new tuple-v <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9363	9486	
==>r @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


=item revers <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3576	3668	
==>urn $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3576	3668	
==>urn $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6386	6481	
==>ents)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
whic <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6386	6481	
==>ents)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
whic <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	770	864	
==>it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  sl <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	770	864	
==>it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  sl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7725	7814	
==>fy it's instantiated value instead of itself
multi unify => ('type::variable::instantiated <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	536	639	
==>a the closure, then things don\'t work right
      // --the order of output can become all screwed up (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	536	639	
==>a the closure, then things don\'t work right
      // --the order of output can become all screwed up (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	536	639	
==>a the closure, then things don\'t work right
      // --the order of output can become all screwed up (s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6710	6819	
==>> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6710	6819	
==>> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6710	6819	
==>> ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	728	829	
==>whatever



Continuations are used for backtracking.



A "ruleop" function gets some arguments and re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10596	10697	
==>whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments and re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	700	797	
==>whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments and re <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7840	7976	
==>ist
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Exclude files
    --anonymous, -a         Do not include ~/.smo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38449	38542	
==>able value is
substituted for any occurance of its corresponding variable name that is
bounded <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38449	38542	
==>able value is
substituted for any occurance of its corresponding variable name that is
bounded <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7204	7339	
==>tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6963	7091	
==>tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15063	15186	
==>to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5727	5826	
==>e interfaces can be
# addressed.  One possibility is to return a negative value for
# relative secon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5727	5826	
==>e interfaces can be
# addressed.  One possibility is to return a negative value for
# relative secon <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15464	15556	
==>:-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	169	277	
==>ategory ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a line start

BEGIN {
    __PACK <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26772	26897	
==>y ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3831	3944	
==>pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7308	7421	
==>pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7328	7429	
==>r_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7328	7429	
==>r_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7328	7429	
==>r_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14345	14480	
==>alar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14345	14480	
==>alar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14345	14480	
==>alar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1384	1551	
==>) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1384	1551	
==>) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	78	185	
==>r { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	78	185	
==>r { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	78	185	
==>r { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	597	725	
==>{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	613	741	
==>{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	589	717	
==>{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1143	1270	
==>ap {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1143	1270	
==>ap {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1143	1270	
==>ap {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmt <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	239	344	
==>omp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but newline("\n")
    if substr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3537	3640	
==>= split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3537	3640	
==>= split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5695	5826	
==>lf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5695	5826	
==>lf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5695	5826	
==>lf->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self->add_method($ <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1900	2021	
==>cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Conf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11379	11475	
==>{.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr}, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11379	11475	
==>{.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr}, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	101	220	
==>ew {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6331	6429	
==>= normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6331	6429	
==>= normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6181	6307	
==>que_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6181	6307	
==>que_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6181	6307	
==>que_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7097	7216	
==>t;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.ca <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14617	14716	
==>1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14617	14716	
==>1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1664	1776	
==>s(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1664	1776	
==>s(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1664	1776	
==>s(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syn <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22020	22119	
==>ple respectively have a special meaning in relational algebra which
is analagous to what the identit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26572	26671	
==>ple respectively have a special meaning in relational algebra which
is analagous to what the identit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25268	25367	
==>ple respectively have a special meaning in relational algebra which
is analagous to what the identit <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	390	513	
==>ybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usag <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	396	514	
==>rns a native boolean though,
# so it should be considered a protected 
# method, which is used to implement the 
# othe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13990	14091	
==>dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        for $c->ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16187	16295	
==>>add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16187	16295	
==>>add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16187	16295	
==>>add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4633	4742	
==>ass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4633	4742	
==>ass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4633	4742	
==>ass'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12047	12224	
==>->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12047	12224	
==>->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12047	12224	
==>->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6350	6457	
==>returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a RO <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6350	6457	
==>returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a RO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3012	3144	
==>..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3012	3144	
==>..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3012	3144	
==>..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @re <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7039	7185	
==>ators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  wa <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5540	5686	
==>ators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10328	10480	
==>, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10328	10480	
==>, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10328	10480	
==>, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13326	13444	
==>se.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( pa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13326	13444	
==>se.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( pa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6230	6361	
==>),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6230	6361	
==>),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10897	10999	
==>zone is UTC.<br />
    Also note that, depending on the backend, the
    <code>ext/</code> tests may or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36487	36597	
==>>{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36487	36597	
==>>{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36487	36597	
==>>{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5994	6183	
==>.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9471	9660	
==>.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        head <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3447	3580	
==>\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3447	3580	
==>\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:per <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	91	182	
==>Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10830	10942	
==>ute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10830	10942	
==>ute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10830	10942	
==>ute;
    method has_attribute;
    method get_attribute_list;            
}

------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1691	1800	
==>t( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1691	1800	
==>t( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1771	1880	
==>t( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9396	9508	
==>ii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9396	9508	
==>ii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8539	8636	
==>y $n = $_[0]->name; "\"$n\"";
}
sub PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1715	1809	
==>urst_size)

The constructor takes as parameters at least C<rate of information> in
items per se <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1715	1809	
==>urst_size)

The constructor takes as parameters at least C<rate of information> in
items per se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52486	52580	
==>@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8429	8571	
==>') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12342	12480	
==>') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12342	12480	
==>') ) {
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16262	16434	
==>unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16262	16434	
==>unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16262	16434	
==>unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5646	5786	
==>not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6110	6250	
==>not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depen <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9511	9630	
==>invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2670	2855	
==>ie $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            an <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4741	4842	
==>rsion of the data given.
The data may be either a string or an array of bytes; the array of bytes will <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4741	4842	
==>rsion of the data given.
The data may be either a string or an array of bytes; the array of bytes will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9815	9924	
==>add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9815	9924	
==>add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9815	9924	
==>add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	195	295	
==>6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	195	295	
==>6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	195	295	
==>6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14807	14924	
==>ld($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $dige <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14807	14924	
==>ld($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $dige <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6838	6951	
==>@_);
    }
    my $meta = get_meta($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	239	338	
==>turn if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	200	299	
==>turn if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	200	299	
==>turn if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19954	20055	
==>ou can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or variou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24506	24607	
==>ou can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or variou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23058	23159	
==>ou can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or variou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2898	3001	
==>t(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2898	3001	
==>t(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2898	3001	
==>t(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8711	8820	
==>} @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8711	8820	
==>} @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defaul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8711	8820	
==>} @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $defaul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6068	6290	
==>ompile( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### l <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2088	2196	
==>path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2088	2196	
==>path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2448	2548	
==>= shift;
	Scalar::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	678	767	
==>ar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filenam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	678	767	
==>ar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filenam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5382	5494	
==>s.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5382	5494	
==>s.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5382	5494	
==>s.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	509	613	
==>meClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a type.  This type can be accessed us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24118	24216	
==>ed or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28670	28768	
==>ed or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18691	18804	
==>d_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15112	15225	
==>d_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30450	30563	
==>d_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5387	5522	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5387	5522	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5387	5522	
==>' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _(' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20357	20464	
==>, Str $string --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localti <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	538	632	
==>s Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	538	632	
==>s Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exam <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17420	17555	
==>{tests} test scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2588	2702	
==>s expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2588	2702	
==>s expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20051	20169	
==>arious combinations of other data types.

While the implementation can be changed greatly (it isn't what's important;
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24603	24721	
==>arious combinations of other data types.

While the implementation can be changed greatly (it isn't what's important;
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23155	23273	
==>arious combinations of other data types.

While the implementation can be changed greatly (it isn't what's important;
t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18398	18514	
==>] = $I0
    .return (self)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isqua <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	665	762	
==>en it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	665	762	
==>en it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1436	1529	
==>for calling an accessor).

Run-time inheritance/method dispatch need not look at the meta
obje <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	787	913	
==>>new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	787	913	
==>>new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	404	525	
==>ction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	404	525	
==>ction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	404	525	
==>ction () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24056	24167	
==>(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20477	20588	
==>(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	265	372	
==>Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
use Pugs::Compiler::RegexPerl5;

use Data::Du <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8708	8819	
==>create("$method", $nil::NIL); 
            $e->create("$current", $e->get("&dispatcher")->do()); 
            bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23279	23397	
==>xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23279	23397	
==>xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23279	23397	
==>xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15681	15775	
==>}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15681	15775	
==>}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15681	15775	
==>}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6085	6202	
==><+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6085	6202	
==><+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6085	6202	
==><+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	233	352	
==>eturn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	233	352	
==>eturn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	233	352	
==>eturn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1253	1349	
==>r project's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Sca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1253	1349	
==>r project's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Sca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1253	1349	
==>r project's base namespace.

Class::Rebless walks scalar, array, and hash references. It uses
Sca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8964	9060	
==>ion (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9762	9858	
==>ion (Relation::Example $other!) returns Relation::Example {

    die "The heading of the relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5330	5433	
==>_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5330	5433	
==>_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5330	5433	
==>_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2185	2307	
==>= @_;
  return $self->{errnum} && $self->{errnum} == $enum;
}


sub errmsg {
  my ($self) = @_;
  return $self->{errmsg};
} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4340	4453	
==>te {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4340	4453	
==>te {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11363	11483	
==>Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1819	1927	
==>Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    sub <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1819	1927	
==>Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1689	1784	
==>ss = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1689	1784	
==>ss = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1689	1784	
==>ss = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2196	2347	
==>nwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2196	2347	
==>nwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2196	2347	
==>nwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5643	5781	
==>$method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'% <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16031	16150	
==>hod clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BU <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16031	16150	
==>hod clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BU <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	649	757	
==>y $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	649	757	
==>y $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	605	717	
==>th { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	605	717	
==>th { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	605	717	
==>th { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30102	30250	
==>=> [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30102	30250	
==>=> [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30102	30250	
==>=> [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8888	9062	
==>ol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ), <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7371	7464	
==>$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_tra <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7371	7464	
==>$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_tra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11035	11180	
==>clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11035	11180	
==>clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enque <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4643	4774	
==>ime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8239	8452	
==>$key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8239	8452	
==>$key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8239	8452	
==>$key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7362	7479	
==>== $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7362	7479	
==>== $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7362	7479	
==>== $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	767	893	
==>->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	767	893	
==>->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	767	893	
==>->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	688	787	
==>80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	688	787	
==>80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	688	787	
==>80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7939	8128	
==>mpl = {
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS
        },
        force => {
            store   => \$force <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21728	21867	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22007	22146	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	302	405	
==>iven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	302	405	
==>iven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	302	405	
==>iven PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9883	9995	
==>ess $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9883	9995	
==>ess $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9883	9995	
==>ess $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7045	7167	
==>gexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regex <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3371	3476	
==>~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        171615141312 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3371	3476	
==>~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        171615141312 <==
3	/Users/nnunley/pugs/util/drift.pl	1791	1900	
==>d Data.ByteString as Buf

.

while (<IN>) {
	if(/<DrIFT>/../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20805	20899	
==>tta DBMS natively, and be I<the> back-end which
I recommend above all others for production use <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20805	20899	
==>tta DBMS natively, and be I<the> back-end which
I recommend above all others for production use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20948	21045	
==>r header() method, the same
field name should not occur multiple times.  The result of doing so,
i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20948	21045	
==>r header() method, the same
field name should not occur multiple times.  The result of doing so,
i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16285	16393	
==>rule"
    .param pmc mob
    .local pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5656	5763	
==>mpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5656	5763	
==>mpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3780	3884	
==>(retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3780	3884	
==>(retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3780	3884	
==>(retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __returncc = new_retur <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6085	6189	
==>only applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6085	6189	
==>only applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18945	19039	
==>s implements a Relation data type that corresponds to the
"relation" of logic and mathematics a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11411	11517	
==>ls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11411	11517	
==>ls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11411	11517	
==>ls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17078	17178	
==>op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17078	17178	
==>op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17078	17178	
==>op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	165	274	
==>= shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use Benchmark <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1187	1289	
==>returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1187	1289	
==>returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2743	2845	
==>y }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2743	2845	
==>y }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4998	5095	
==>"$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensions};

    foreach my $obj (@{$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30494	30598	
==>r each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35045	35149	
==>r each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34227	34331	
==>r each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5112	5335	
==>de = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @mod <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5112	5335	
==>de = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22996	23137	
==>ODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22996	23137	
==>ODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22996	23137	
==>ODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25931	26049	
==>ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26210	26328	
==>ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7198	7294	
==>SubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubTyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8206	8352	
==>g->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8206	8352	
==>g->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8206	8352	
==>g->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16818	16916	
==>ut parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16818	16916	
==>ut parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16818	16916	
==>ut parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5651	5747	
==>finite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5651	5747	
==>finite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11194	11295	
==>ero (tie) result is achieved.

Criterion can take a few different forms:

=over 8

=item Comparator

A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2004	2150	
==>ndef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2004	2150	
==>ndef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1940	2039	
==>$label, @_);
    }
}

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1220	1318	
==>footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1220	1318	
==>footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1767	1865	
==>footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6994	7116	
==>-----------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6994	7116	
==>-----------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6994	7116	
==>-----------------

# stub this for the moment ...
$::Class->add_method('collect_all_roles' => ::make_method(sub { $::Role } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5999	6122	
==>ain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5999	6122	
==>ain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5999	6122	
==>ain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29191	29326	
==>y $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29191	29326	
==>y $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29191	29326	
==>y $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13512	13652	
==>^1\.\.(\d+)(.*)/ ) {
        $self->{max}  = $max;
        assert( $self->{max} >= 0,  'Max # of tests looks right' );

        if( defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3910	4033	
==>not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3910	4033	
==>not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2599	2696	
==>st operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. $#{$_[0]}]) }

sub shif <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2920	3028	
==>s/;

    print $template;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1281	1378	
==>to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keysp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1281	1378	
==>to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keysp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1814	1944	
==>=>         
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1651	1780	
==>=>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	994	1122	
==>=>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19285	19398	
==>r a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23837	23950	
==>r a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22353	22466	
==>r a set of logical tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	659	771	
==>f->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	659	771	
==>f->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	659	771	
==>f->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9328	9446	
==>er->captures();

If you want to access a specific capture group, pass its numerical
value:

  my $capture_2 = $parser-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1190	1279	
==>ble with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the sa <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1190	1279	
==>ble with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the sa <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1841	1948	
==>lf: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yie <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1841	1948	
==>lf: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yie <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2945	3046	
==>t a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2945	3046	
==>t a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref ) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7348	7439	
==>), p5_condition_alternative(R2).
p5_condition_alternative(R)    --> "|", p5_concatenation(R) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15655	15763	
==>" attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15655	15763	
==>" attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15655	15763	
==>" attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1334	1440	
==>ces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1334	1440	
==>ces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1334	1440	
==>ces. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INI <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	706	806	
==>ile).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, whic <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	706	806	
==>ile).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, whic <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4799	4941	
==>\/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4811	4953	
==>\/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1939	2070	
==>r;
	} else {
		return "undef" unless defined $node;
		return "$node" if Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2428	2535	
==>ybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2486	2593	
==>ybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6124	6244	
==>_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6124	6244	
==>_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6124	6244	
==>_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1668	1861	
==>, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1668	1861	
==>, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1668	1861	
==>, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8116	8235	
==>w( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8116	8235	
==>w( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8116	8235	
==>w( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4667	4784	
==>$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4667	4784	
==>$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1	119	
==>package Perl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1	119	
==>package Perl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1	119	
==>package Perl6::MetaModel;

use strict;
use warnings;

use Carp 'confess';

our $VERSION = '2.00';

sub import {
    # l <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1396	1491	
==>exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl6:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2815	2908	
==>eclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Productio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2815	2908	
==>eclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Productio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3208	3332	
==>ses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3208	3332	
==>ses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3208	3332	
==>ses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4154	4273	
==>ting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4154	4273	
==>ting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4154	4273	
==>ting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7869	7972	
==>ach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7869	7972	
==>ach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7869	7972	
==>ach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    n <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	158	272	
==>in:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a : $b
$wahr.tert <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8133	8228	
==>d %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8133	8228	
==>d %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6140	6260	
==>t->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6140	6260	
==>t->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6140	6260	
==>t->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11470	11639	
==>turn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7752	7921	
==>turn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8586	8755	
==>turn unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24677	24804	
==>ily => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->fa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5325	5413	
==>ts_int(Max), !.
p6_range_bounds_RHS(_Min,-)   --> "...", !.
p6_range_bounds_RHS(Min ,Min) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4040	4161	
==>}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4040	4161	
==>}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4040	4161	
==>}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22918	23013	
==>ne of the main distinctions of this approach over similar packages is that
text is always looked <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22918	23013	
==>ne of the main distinctions of this approach over similar packages is that
text is always looked <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20037	20174	
==>group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16458	16595	
==>group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_of <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24708	24803	
==>comp/regexec.

 *
 * Regstart and reganch permit very fast decisions on suitable starting points <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2226	2360	
==>or better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3587	3713	
==>or better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1466	1555	
==>RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2855	2986	
==>b {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2855	2986	
==>b {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2855	2986	
==>b {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1364	1471	
==>ultisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1364	1471	
==>ultisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1364	1471	
==>ultisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement tests fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17839	17931	
==>UB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17839	17931	
==>UB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17839	17931	
==>UB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10174	10318	
==>\"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6515	6659	
==>\"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7364	7508	
==>\"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4191	4332	
==>ut}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp   %prec P003
        { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3174	3279	
==>ersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3174	3279	
==>ersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12844	12973	
==>mented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12844	12973	
==>mented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12844	12973	
==>mented in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	364	496	
==>+ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	364	496	
==>+ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	364	496	
==>+ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # do <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8576	8759	
==>ISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exis <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8576	8759	
==>ISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3973	4075	
==>statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3973	4075	
==>statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3973	4075	
==>statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2668	2806	
==>, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2668	2806	
==>, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2668	2806	
==>, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6181	6322	
==>not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6181	6322	
==>not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6181	6322	
==>not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11721	11923	
==>c->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11721	11923	
==>c->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11721	11923	
==>c->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                conti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	42	162	
==>ict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3239	3328	
==>cipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3239	3328	
==>cipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4134	4258	
==>sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4134	4258	
==>sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4134	4258	
==>sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13446	13581	
==>::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13446	13581	
==>::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13446	13581	
==>::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17214	17376	
==>_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # De <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17214	17376	
==>_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # De <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	216	332	
==>w 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	216	332	
==>w 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	216	332	
==>w 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLeve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11682	11785	
==>rn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11682	11785	
==>rn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11682	11785	
==>rn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	913	1057	
==>airs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	913	1057	
==>airs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_u <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	664	775	
==>ndextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1983	2086	
==>() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acces <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1983	2086	
==>() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acces <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1983	2086	
==>() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is acces <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8345	8451	
==>_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8345	8451	
==>_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8345	8451	
==>_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	894	990	
==>r objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	894	990	
==>r objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	894	990	
==>r objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10696	10803	
==>_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10696	10803	
==>_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10696	10803	
==>_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	749	868	
==>10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	771	881	
==>10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7376	7507	
==>? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7376	7507	
==>? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7376	7507	
==>? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	573	678	
==>* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18031	18127	
==>ional logic, using a simple 'equals', and then the
application can "do the right thing".  No pars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18031	18127	
==>ional logic, using a simple 'equals', and then the
application can "do the right thing".  No pars <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	34	131	
==>vel: 4 -*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

package Test::Harness::Straps;

use s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6990	7086	
==>ad(n)' directive is reached. This does not include 
the text of the header, that will be processe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6990	7086	
==>ad(n)' directive is reached. This does not include 
the text of the header, that will be processe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3664	3767	
==>destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3664	3767	
==>destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3664	3767	
==>destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1386	1487	
==>) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1386	1487	
==>) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1386	1487	
==>) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	739	865	
==>d{$_} ] } 
            keys %indexed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using highest ve <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3510	3604	
==>"Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3510	3604	
==>"Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10094	10210	
==>ERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10094	10210	
==>ERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10094	10210	
==>ERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3380	3476	
==>his needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3380	3476	
==>his needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3380	3476	
==>his needs to be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_me <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	34	137	
==>Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	34	137	
==>Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11577	11668	
==>------------------------------------

With this Role meta-model , any Class instances, thems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11577	11668	
==>------------------------------------

With this Role meta-model , any Class instances, thems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11577	11668	
==>------------------------------------

With this Role meta-model , any Class instances, thems <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19095	19212	
==>eps = new .Hash
    $P0 = new .Iterator, reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26535	26631	
==>his is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26535	26631	
==>his is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8766	9015	
==>ction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8766	9015	
==>ction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8766	9015	
==>ction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1047	1152	
==>erl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1047	1152	
==>erl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1047	1152	
==>erl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	146	270	
==>ub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	146	270	
==>ub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	146	270	
==>ub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2574	2696	
==>s->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2574	2696	
==>s->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2574	2696	
==>s->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16531	16675	
==>> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20008	20152	
==>> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19568	19712	
==>> set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pair <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9313	9453	
==>Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->ne <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	481	580	
==>ult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	481	580	
==>ult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5573	5706	
==>k, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5573	5706	
==>k, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5573	5706	
==>k, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4680	4780	
==>31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quart <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4680	4780	
==>31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quart <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3527	3625	
==>C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
from bootstrapping. 

If that is t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3355	3472	
==>s $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3355	3472	
==>s $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5929	6029	
==>pe, $expected_type);

		warn "types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1830	1937	
==>)" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1830	1937	
==>)" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1830	1937	
==>)" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5981	6101	
==>r::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5981	6101	
==>r::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5981	6101	
==>r::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would this look in Perl 6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1178	1302	
==>return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1178	1302	
==>return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13857	13953	
==>pass their env to eval their children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2561	2679	
==>$self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2561	2679	
==>$self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2561	2679	
==>$self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4670	4763	
==>ted features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4920	5013	
==>ted features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38803	38899	
==>e will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38803	38899	
==>e will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11228	11388	
==>e_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11228	11388	
==>e_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11228	11388	
==>e_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1973	2086	
==>tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1973	2086	
==>tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1973	2086	
==>tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? " <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18173	18352	
==>0)' is the same as ':t 10'
my $app_id = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => val(10),
	),
);

# this expr is like the following haskell:
# let <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5605	5708	
==>nt>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5605	5708	
==>nt>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37143	37248	
==>ning degenerates to a
C<product>.  In any situation where the heading of one source relation is a
full sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41692	41797	
==>ning degenerates to a
C<product>.  In any situation where the heading of one source relation is a
full sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41315	41420	
==>ning degenerates to a
C<product>.  In any situation where the heading of one source relation is a
full sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4879	5000	
==>, 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4879	5000	
==>, 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4879	5000	
==>, 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11256	11378	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14733	14855	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14041	14163	
==>ond source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3057	3221	
==>submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3057	3221	
==>submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2821	2925	
==>elf = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			return B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1762	1862	
==>and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1762	1862	
==>and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1762	1862	
==>and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1218	1315	
==>plitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1218	1315	
==>plitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1218	1315	
==>plitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13569	13722	
==>my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13569	13722	
==>my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13569	13722	
==>my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3973	4070	
==>ng etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3973	4070	
==>ng etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3973	4070	
==>ng etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	552	661	
==>s that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	552	661	
==>s that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21268	21368	
==>my sub find() {
    my $file = join(%?CONFIG<file_sep>,split("::",$module)) ~ ".pm";
    for @*INC -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4028	4123	
==>Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4028	4123	
==>Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4028	4123	
==>Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4376	4522	
==>$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4376	4522	
==>$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4376	4522	
==>$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7162	7274	
==>inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7162	7274	
==>inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7162	7274	
==>inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1941	2054	
==>alone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1941	2054	
==>alone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1941	2054	
==>alone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL! <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12016	12136	
==>($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12016	12136	
==>($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	926	1036	
==>printf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3157	3331	
==>constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3168	3342	
==>constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8803	8897	
==>'type::operator::nary', 'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7324	7501	
==>,
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7324	7501	
==>,
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7324	7501	
==>,
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1404	1620	
==>turn 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    l <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1759	1869	
==>IL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4913	5089	
==>ixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1408	1506	
==>t {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.key <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1408	1506	
==>t {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	776	894	
==>2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	776	894	
==>2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	776	894	
==>2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BE <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22257	22377	
==>l 6

=head1 VERSION

This document describes Relation version 0.1.0.

It also describes the same-number versions of Relat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9161	9265	
==>in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.del <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9161	9265	
==>in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.del <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6572	6674	
==>d

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which see <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6572	6674	
==>d

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which see <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1836	1941	
==>elf.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1836	1941	
==>elf.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1836	1941	
==>elf.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10174	10299	
==>urn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10174	10299	
==>urn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10174	10299	
==>urn $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17297	17389	
==>ibute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17297	17389	
==>ibute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17297	17389	
==>ibute('%:methods'          => ::make_attribute('%:methods'));
$::Class->add_attribute('%:clas <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16766	16921	
==>ta. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't to <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21864	22019	
==>ta. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't to <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7807	7939	
==>join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METH <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7807	7939	
==>join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METH <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	370	464	
==>opied from S29draft.pod 8651.
&join := &join.assuming:delimiter(' ');


# copied from S29draft. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	735	832	
==>odes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	735	832	
==>odes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29464	29618	
==>> q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29464	29618	
==>> q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	284	422	
==>> q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MY <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12894	13000	
==>e from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12894	13000	
==>e from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12894	13000	
==>e from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2172	2271	
==>st.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2172	2271	
==>st.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2172	2271	
==>st.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12569	12670	
==>x
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12569	12670	
==>x
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12569	12670	
==>x
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3622	3851	
==>h, 1 ),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Op <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13657	13753	
==>expanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13657	13753	
==>expanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7893	7994	
==>eedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7893	7994	
==>eedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7893	7994	
==>eedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_ch <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1133	1275	
==>sig  => $signature,
        body => $body,
        env  => $local_env
    } => $class;
}

# we dont really have a native form
sub to_native { s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5812	5905	
==>Rule constructors return Rule objects, which are "matcher" things.

Rules operate on strings ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5609	5701	
==>Rule constructors return Rule objects, which are "matcher" things.
Rules operate on strings ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7949	8085	
==>SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7949	8085	
==>SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7949	8085	
==>SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19208	19316	
==>lly wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19208	19316	
==>lly wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19208	19316	
==>lly wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4820	4972	
==>n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4820	4972	
==>n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1757	1887	
==>ithout whitespace means '<str>'
                #print "checking angle quote ... [$whitespace_before]\n";
                $m = Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5762	5898	
==>gil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5762	5898	
==>gil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5762	5898	
==>gil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15442	15619	
==>->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15442	15619	
==>->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15442	15619	
==>->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4568	4676	
==>Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4568	4676	
==>Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4568	4676	
==>Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_at <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9638	9777	
==>x}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skippe <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5902	6007	
==>nds?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $cont <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5960	6065	
==>nds?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $cont <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	791	888	
==>ESCRIPTION

This module provides information about the remote user that is using your CGI. 
It als <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	791	888	
==>ESCRIPTION

This module provides information about the remote user that is using your CGI. 
It als <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26746	26840	
==>print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Types::overload;
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3100	3263	
==>se push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36404	36504	
==>fset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36404	36504	
==>fset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36404	36504	
==>fset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @hea <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3677	3803	
==>s';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3677	3803	
==>s';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	527	653	
==>s';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2464	2621	
==>to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            return $grammar->no_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	276	371	
==>type() returns a string that represents the 
node type, which are checked against each other for <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	276	371	
==>type() returns a string that represents the 
node type, which are checked against each other for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2787	2890	
==>rray.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2787	2890	
==>rray.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2787	2890	
==>rray.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8978	9085	
==>vided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10455	10562	
==>vided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14421	14538	
==>TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::grou <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3397	3496	
==>hashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3397	3496	
==>hashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
ke <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4325	4579	
==>");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verb <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4325	4579	
==>");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verb <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1464	1584	
==>x must be a num type";
    # replace the value with a nil type
    $self->[$index->to_native] = nil->new();
    return ni <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1265	1431	
==>+|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1265	1431	
==>+|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37065	37162	
==>: minmod (C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23021	23132	
==>($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23021	23132	
==>($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23021	23132	
==>($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6895	7041	
==>.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6895	7041	
==>.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6895	7041	
==>.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2638	2755	
==>) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2638	2755	
==>) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2638	2755	
==>) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10673	10823	
==>ram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10673	10823	
==>ram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10673	10823	
==>ram );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17283	17389	
==></> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17283	17389	
==></> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17283	17389	
==></> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2441	2604	
==>) = @_;
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.numbe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4441	4550	
==>eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4453	4562	
==>eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2198	2334	
==>en rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_be <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2198	2334	
==>en rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_be <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20975	21090	
==>hing
    my($name)=@_;
    my $mn = p6_mangle($name);
    my $pkg = (caller)[0];
    #my $ret = eval "package $pkg;" <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4166	4298	
==>my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4166	4298	
==>my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22076	22188	
==>58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Car <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10157	10255	
==>iteral {  # see 7.8.5
      <'/'> <RegularExpressionBody> <'/'> <RegularExpressionFlags>
}
rule Reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6983	7089	
==>$a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6983	7089	
==>$a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6983	7089	
==>$a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6255	6429	
==>y, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6255	6429	
==>y, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6255	6429	
==>y, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14882	14986	
==>space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9082	9186	
==>space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	583	677	
==>} else {
		$self->{seen}->insert($node);
		$self->SUPER::generic_reduce($node);
	}
}

__PACKAGE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	97	219	
==>RY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is ex <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	97	219	
==>RY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is ex <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2971	3092	
==>le (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclose;
    unlink $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31360	31452	
==>anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35910	36002	
==>anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35128	35220	
==>anonymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3301	3414	
==>xt, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3301	3414	
==>xt, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	100	198	
==>se Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use Carp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	127	273	
==>r);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	127	273	
==>r);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	127	273	
==>r);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2142	2245	
==>_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2142	2245	
==>_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2142	2245	
==>_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21830	21988	
==>rsal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21830	21988	
==>rsal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21830	21988	
==>rsal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22474	22600	
==>) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7723	7806	
==>est::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_isa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7781	7864	
==>est::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1793	1886	
==>term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1793	1886	
==>term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1793	1886	
==>term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13638	13737	
==>UB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13638	13737	
==>UB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13638	13737	
==>UB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1951	2054	
==>(@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1951	2054	
==>(@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1951	2054	
==>(@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37323	37475	
==>else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37323	37475	
==>else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37323	37475	
==>else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5861	6013	
==>t "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not imple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5873	6025	
==>t "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13348	13458	
==>$sep = ':';
	} else {
	    $sep = $Config{path_sep};
	}

	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19636	19729	
==>$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19636	19729	
==>$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19636	19729	
==>$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7850	7980	
==>me ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7850	7980	
==>me ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7850	7980	
==>me ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padna <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6930	7031	
==>avaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17771	17868	
==>ments and routines
within the virtual machine, input data to it, and output data from it.

You can <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17771	17868	
==>ments and routines
within the virtual machine, input data to it, and output data from it.

You can <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15921	16054	
==>r the h1
            my $target  = $link->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3629	3718	
==>ode-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3813	3902	
==>ode-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3090	3217	
==>emAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3090	3217	
==>emAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3090	3217	
==>emAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6058	6175	
==>self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5566	5683	
==>self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	147	250	
==>ork soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	147	250	
==>ork soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2469	2566	
==>a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2469	2566	
==>a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2469	2566	
==>a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4697	4817	
==>mitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4697	4817	
==>mitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4697	4817	
==>mitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [. <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	290	408	
==>is version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

metho <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	290	408	
==>is version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

metho <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2882	2991	
==>quest( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo te <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2882	2991	
==>quest( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo te <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4305	4407	
==>e from archive: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11638	11735	
==>ig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2190	2283	
==>name || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1296	1388	
==>name || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3762	3878	
==>>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3762	3878	
==>>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11080	11203	
==>g (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($ver <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11080	11203	
==>g (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	910	1011	
==>$x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	910	1011	
==>$x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	910	1011	
==>$x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2189	2298	
==>udepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2189	2298	
==>udepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2189	2298	
==>udepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1015	1147	
==>< node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1015	1147	
==>< node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1015	1147	
==>< node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7111	7292	
==>h->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6873	7044	
==>h->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	868	993	
==>ype and ref $type eq 'ARRAY' and @$type == 1){
			$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Typ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5100	5223	
==>r($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5100	5223	
==>r($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	379	489	
==>ength( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	379	489	
==>ength( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2874	2992	
==>e) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2874	2992	
==>e) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2874	2992	
==>e) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $at <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	384	495	
==>onthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 6 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	384	495	
==>onthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 6 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14616	14713	
==>ok generally gets the pattern _after_ variable
  interpolation has occured.  But not in the case o <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1010	1130	
==>nf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1010	1130	
==>nf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2134	2261	
==>get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2134	2261	
==>get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2134	2261	
==>get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2073	2183	
==>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2073	2183	
==>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2073	2183	
==>new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5984	6088	
==>method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5984	6088	
==>method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5984	6088	
==>method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO') <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2583	2695	
==>rimitive is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    has Str $.packag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11830	11939	
==>blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11824	11933	
==>blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14358	14479	
==>_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14358	14479	
==>_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Lo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	960	1057	
==>y $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get_data($_[0], '$<b>'));
	return $a.'.'.$b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3304	3403	
==>doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3304	3403	
==>doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3304	3403	
==>doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], [true, true], $c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5667	5772	
==>r 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Has <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5667	5772	
==>r 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7864	7969	
==>r 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Has <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17402	17524	
==>ur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $st <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17402	17524	
==>ur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12711	12887	
==>i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12711	12887	
==>i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12711	12887	
==>i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11362	11515	
==>= shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12160	12313	
==>= shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	592	690	
==>_);
}

sub lib_links {
	warn "lib_links has been changed to cc_lib_links due to confusion between P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4297	4408	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4297	4408	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4297	4408	
==>patcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4244	4361	
==>s];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4244	4361	
==>s];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4244	4361	
==>s];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } elsif $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2378	2480	
==>_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2378	2480	
==>_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2378	2480	
==>_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__expo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	929	1036	
==>mizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	929	1036	
==>mizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	383	479	
==>_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7160	7258	
==>::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7160	7258	
==>::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7160	7258	
==>::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4969	5088	
==>it's last child.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits L <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4069	4186	
==>e\n" ],
      [ 'file3',  $file3,  "2nd line\n" ],
      [ 'file4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4240	4342	
==>t {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4240	4342	
==>t {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7181	7277	
==>method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7181	7277	
==>method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7181	7277	
==>method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->versio <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	304	457	
==>fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	304	457	
==>fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1604	1720	
==>dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_files_list );
}

=hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1273	1370	
==>ubrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1273	1370	
==>ubrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8689	8863	
==>ar;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8689	8863	
==>ar;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8689	8863	
==>ar;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fet <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2143	2384	
==>hen rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $ve <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2143	2384	
==>hen rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $ve <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	217	307	
==>COMMENTED  !!WARNING!!
# -----------------------------------------------

my %Cookies;

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5790	5891	
==>:JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5790	5891	
==>:JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5790	5891	
==>:JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9011	9107	
==>}
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9011	9107	
==>}
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9011	9107	
==>}
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@self.ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36250	36392	
==>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # prin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36250	36392	
==>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # prin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36250	36392	
==>from_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # prin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34246	34338	
==>item C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34246	34338	
==>item C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::K <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9214	9298	
==>s = $self->_cleaned_switches( $Test::Harness::Switches, $ENV{HARNESS_PERL_SWITCHES} ) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2138	2312	
==>rint("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n") <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2138	2312	
==>rint("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n") <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1988	2102	
==>ine these
        # if at all.

        # the default Event/Subscriber pair really means that all notifications are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10816	10928	
==>:Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10816	10928	
==>:Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10816	10928	
==>:Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10073	10201	
==>}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10073	10201	
==>}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10073	10201	
==>}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1130	1252	
==>\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1130	1252	
==>\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1130	1252	
==>\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1745	1839	
==>ently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alph <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1580	1670	
==>n &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1580	1670	
==>n &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2791	2895	
==>est::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2791	2895	
==>est::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2871	2975	
==>est::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12978	13131	
==>rom slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12978	13131	
==>rom slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12978	13131	
==>rom slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	579	705	
==>t
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	579	705	
==>t
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	579	705	
==>t
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	644	774	
==>.pl            
sub _recurse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5074	5199	
==>ores{$runcore} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_,
      categories => $runcores{$_} <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1704	1823	
==>Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7360	7457	
==>, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7360	7457	
==>, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7360	7457	
==>, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1473	1577	
==>wo) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1473	1577	
==>wo) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	104	200	
==>r::Rule::Perl5::Ratchet for the final implementation

use strict;
use warnings;
use Data::Dum <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2601	2717	
==>id}{'op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15966	16059	
==>ss
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunle <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16024	16117	
==>ss
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunle <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2381	2482	
==>uct_equiv => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "type_convert_${from}_$ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6659	6758	
==>ed.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 E <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6659	6758	
==>ed.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 E <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12670	12769	
==>ic commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12670	12769	
==>ic commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14205	14296	
==>attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14205	14296	
==>attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14205	14296	
==>attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	273	380	
==>um« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19393	19487	
==>s::__object__>.

=item Bug Fixes

Character classes weren't closing properly in the tree.  Fixe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3424	3574	
==>submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3424	3574	
==>submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9750	10009	
==>w($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16615	16735	
==>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16615	16735	
==>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	554	807	
==>y};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	554	807	
==>y};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17734	17831	
==>p>,
which is a hash reference holding character values (eg. 65 for 'A') and
the number of times th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4041	4197	
==>, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes reset <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1133	1278	
==>x:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1133	1278	
==>x:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	327	436	
==>aving been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	327	436	
==>aving been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	327	436	
==>aving been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = unde <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15272	15373	
==>sc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  mul <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15330	15431	
==>sc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1558	1670	
==>x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1558	1670	
==>x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1558	1670	
==>x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	227	345	
==>3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	227	345	
==>3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	227	345	
==>3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1058	1173	
==>rl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1890	2001	
==>rl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2030	2141	
==>rl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1242	1340	
==>refix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1242	1340	
==>refix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1242	1340	
==>refix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3510	3647	
==>ranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3510	3647	
==>ranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3510	3647	
==>ranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4673	4812	
==>+>' => Thunk(
            Stub(
                'Addition must be implemented as a runtime primitive.' .
                'No, Blondie will n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7332	7463	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7344	7475	
==>t_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4196	4292	
==>IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4196	4292	
==>IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4196	4292	
==>IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockretu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11508	11634	
==>r
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any';
    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23107	23204	
==>s like "gettext" it looks like you
are supposed to pass in english text and they translate it, whi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23107	23204	
==>s like "gettext" it looks like you
are supposed to pass in english text and they translate it, whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1026	1132	
==>nfix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1026	1132	
==>nfix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1026	1132	
==>nfix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2023	2230	
==>ng);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5500	5707	
==>ng);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4430	4637	
==>ng);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3266	3395	
==>stcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3266	3395	
==>stcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3266	3395	
==>stcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(Lis <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6878	7018	
==>w!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\
\\n   List      pre     Str::sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12124	12257	
==>... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully quali <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12118	12251	
==>... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully quali <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1099	1214	
==>r $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is co <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1099	1214	
==>r $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	770	878	
==>turn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub nod <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	871	971	
==>shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21490	21584	
==>em strange to somebody who has not tried to port between
databases before, especially given tha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21490	21584	
==>em strange to somebody who has not tried to port between
databases before, especially given tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1283	1382	
==>imitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1283	1382	
==>imitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1283	1382	
==>imitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $bod <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2177	2318	
==>{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or di <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2076	2173	
==>{ %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2076	2173	
==>{ %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	24	118	
==>Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	24	118	
==>Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	24	118	
==>Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9938	10050	
==>ods described below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9938	10050	
==>ods described below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9938	10050	
==>ods described below.
    # -----------------------------------------------
    # has %:methods;
    # has %:attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4755	4849	
==>r::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementatio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4895	4989	
==>r::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3806	3906	
==>tp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3806	3906	
==>tp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3806	3906	
==>tp://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3830	3946	
==>$nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3830	3946	
==>$nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3830	3946	
==>$nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	155	260	
==>Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	220	325	
==>Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=h <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26674	26770	
==>d(3)");
is(t($plus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11332	11532	
==>rsection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation::Example $other!) retu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	483	585	
==>t = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	483	585	
==>t = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1011	1113	
==>rently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1011	1113	
==>rently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1011	1113	
==>rently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9890	10005	
==>/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9890	10005	
==>/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9890	10005	
==>/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8305	8443	
==>ew(
        $::ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new("&dis <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5446	5541	
==>ot be able to examine the response code or response headers
(like 'Content-Type') when you are a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5446	5541	
==>ot be able to examine the response code or response headers
(like 'Content-Type') when you are a <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	419	558	
==>j;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.se <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	419	558	
==>j;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2803	2903	
==>.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2803	2903	
==>.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2803	2903	
==>.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1	95	
==>use v6;

use Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!sea <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1	95	
==>use v6;

use Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!sea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23131	23325	
==>tant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23410	23604	
==>tant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3054	3170	
==>"\n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5054	5152	
==>a file or directory to the target, recursively

Returns true on success, false on failure.

=cut

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17550	17640	
==>compiled modules without shipping Module::Compile and
the compiler modules themselves.

=it <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17550	17640	
==>compiled modules without shipping Module::Compile and
the compiler modules themselves.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1308	1427	
==>itespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1308	1427	
==>itespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1308	1427	
==>itespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	336	590	
==>by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	336	590	
==>by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages u <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2328	2446	
==>{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inblock = 1;
		print '\begin{blo <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2218	2309	
==>://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2218	2309	
==>://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3577	3672	
==>callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $resto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3577	3672	
==>callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $resto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3577	3672	
==>callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $resto <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11877	11974	
==>tle while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11935	12032	
==>tle while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1385	1475	
==>er::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::NullPlan is roug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8224	8341	
==>l op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7948	8061	
==>l op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1637	1738	
==>te $self->{$key->to_str->to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)->to_nativ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35002	35147	
==>if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35002	35147	
==>if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35002	35147	
==>if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset - <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	343	451	
==>fined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	343	451	
==>fined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	502	645	
==>ts, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	502	645	
==>ts, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2755	2875	
==>. r8593.
# But Prim.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, both return and argument types differ. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5919	6028	
==>et::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5919	6028	
==>et::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	622	751	
==>f.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUI <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	622	751	
==>f.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7151	7279	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7151	7279	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7151	7279	
==>d is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (* <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	115	219	
==>Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	115	219	
==>Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Com <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3096	3195	
==>ve the '$self->{prefix}' directory and run $0 again to load it.
END

    my $obj = $admin->load($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	667	775	
==>ch() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	667	775	
==>ch() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	667	775	
==>ch() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	399	507	
==>ance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	604	712	
==>ance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	660	768	
==>ance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18494	18604	
==>urns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18690	18800	
==>urns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18904	19014	
==>urns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1935	2032	
==>full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1935	2032	
==>full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1935	2032	
==>full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11452	11580	
==>1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	202	323	
==>ur Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_ho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	202	323	
==>ur Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_ho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3428	3580	
==>ader('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3428	3580	
==>ader('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13110	13227	
==>_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13110	13227	
==>_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13110	13227	
==>_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6886	6983	
==>e";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same a <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6886	6983	
==>e";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5421	5529	
==>store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5421	5529	
==>store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5421	5529	
==>store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11423	11520	
==>able 
behavior to class consturction because it isolates the Role specifc
code to the class that c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11423	11520	
==>able 
behavior to class consturction because it isolates the Role specifc
code to the class that c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11423	11520	
==>able 
behavior to class consturction because it isolates the Role specifc
code to the class that c <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1303	1410	
==>lf->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1230	1331	
==>lf->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6007	6116	
==>() { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6007	6116	
==>() { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6007	6116	
==>() { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2588	2693	
==>}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2588	2693	
==>}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2588	2693	
==>}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10024	10141	
==>ethod cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10024	10141	
==>ethod cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3542	3645	
==>l5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/.. <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3542	3645	
==>l5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7493	7650	
==>( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7493	7650	
==>( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7493	7650	
==>( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6829	6955	
==>"FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6829	6955	
==>"FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6829	6955	
==>"FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $ <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	401	526	
==>psilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export {
    my Num $g <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2094	2211	
==>aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2094	2211	
==>aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12675	12778	
==>ield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12675	12778	
==>ield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12675	12778	
==>ield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	525	642	
==>qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	525	642	
==>qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	525	642	
==>qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	65	166	
==>:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	65	166	
==>:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	65	166	
==>:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11818	11965	
==>->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11818	11965	
==>->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11818	11965	
==>->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2579	2730	
==>ub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2480	2625	
==>ub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	388	538	
==>y @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.push($tok);
            next;
        }
        m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9506	9615	
==>son operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to tes <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9506	9615	
==>son operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3950	4050	
==>is is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3950	4050	
==>is is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5474	5574	
==>is is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5438	5545	
==>rotocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5438	5545	
==>rotocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7635	7742	
==>rotocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14511	14602	
==>rayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tie <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14511	14602	
==>rayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tie <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14511	14602	
==>rayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:cell'}{tie <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4264	4415	
==>5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5113	5264	
==>5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19738	19839	
==>gs weren't being turned off.  Fixed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16805	16917	
==>{
    # This form takes the form of an ordinary natural join,
    # where some source attributes are in common, a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20282	20394	
==>{
    # This form takes the form of an ordinary natural join,
    # where some source attributes are in common, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	988	1107	
==>be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	988	1107	
==>be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	988	1107	
==>be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16728	16826	
==>List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16728	16826	
==>List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16728	16826	
==>List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14720	14834	
==>arnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14720	14834	
==>arnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14720	14834	
==>arnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3665	3802	
==>en_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3665	3802	
==>en_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14976	15078	
==>}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{PE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2564	2690	
==>ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2564	2690	
==>ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2564	2690	
==>ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1766	1877	
==>idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1766	1877	
==>idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1766	1877	
==>idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12972	13096	
==>old_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12972	13096	
==>old_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15206	15307	
==>/>, and C<< />/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() method for you ri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3708	3821	
==>quire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3708	3821	
==>quire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3708	3821	
==>quire Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------- <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	608	721	
==>n::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour), :minute($mi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18959	19054	
==>shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18959	19054	
==>shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1341	1448	
==>() {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1341	1448	
==>() {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1341	1448	
==>() {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	500	602	
==>i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	500	602	
==>i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	500	602	
==>i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13006	13105	
==>ropertyNameAndValueList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <Propert <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30590	30687	
==>t Message; each file can be
shared by multiple Messages but the whole module must represent a sing <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30590	30687	
==>t Message; each file can be
shared by multiple Messages but the whole module must represent a sing <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4119	4237	
==>~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4119	4237	
==>~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27842	27934	
==>t × int) × (str × int))", ":t (length_and_first ['foo'], length_and_first [1])");
is(t($ma <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9127	9225	
==>od user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9127	9225	
==>od user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{n <==
3	/Users/nnunley/pugs/util/func_refact.pl	20	118	
==>se strict;

use Storable;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	143	268	
==>unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer ret <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	143	268	
==>unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer ret <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1459	1563	
==>s for an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how accurate the an <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	59	162	
==>Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod B <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	59	162	
==>Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6029	6141	
==>fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6029	6141	
==>fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6029	6141	
==>fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3654	3788	
==>named."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7131	7265	
==>named."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6088	6222	
==>named."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $! <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2056	2152	
==>n == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODI <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	83	179	
==>trict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
use <==
3	/Users/nnunley/pugs/util/fixauthors.pl	630	724	
==>m_content($html);
  my $realname = $tree->look_down(class=>"t1");

  return "" unless $realname <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18389	18501	
==>}
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3912	4010	
==>d may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3912	4010	
==>d may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	508	637	
==>fined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	508	637	
==>fined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	508	637	
==>fined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(f <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	781	964	
==>ion for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub has <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	781	964	
==>ion for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub has <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13291	13416	
==>{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7497	7604	
==>ch operator.



A ruleop() function gets as argument a list:



### we don't need a "high" level interface ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7243	7346	
==>ch operator.

A ruleop() function gets as argument a list:

### we don't need a "high" level interface ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1258	1378	
==>azy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1258	1378	
==>azy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1258	1378	
==>azy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1387	1482	
==>ss($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look lik <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19875	19967	
==>at the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19875	19967	
==>at the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4120	4238	
==>unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4120	4238	
==>unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4120	4238	
==>unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11574	11696	
==>s) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11574	11696	
==>s) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11574	11696	
==>s) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11600	11754	
==>|| $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11600	11754	
==>|| $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11600	11754	
==>|| $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                retur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5921	6025	
==>p_type;
        my $type = $n->{'type'};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_type = "${pkg_roo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5799	5901	
==>scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5799	5901	
==>scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3927	4041	
==>lurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3927	4041	
==>lurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4517	4631	
==>lurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	400	501	
==>e are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite shou <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	400	501	
==>e are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite shou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	96	198	
==>$grammar1 = 'Pugs::Grammar::Rule::';

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7635	7733	
==>he actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7376	7471	
==>he actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5459	5587	
==>"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5459	5587	
==>"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935), <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7275	7391	
==>"Regexp compilation bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22706	22797	
==>ead2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22706	22797	
==>ead2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8443	8562	
==>reate sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8443	8562	
==>reate sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8443	8562	
==>reate sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	60	177	
==>w {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	60	177	
==>w {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	60	177	
==>w {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8627	8756	
==>er' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, $how);
  });

  # print POSIX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1757	1852	
==>ge

=head2 $alt = $pkg->alternative

Returns the JIB::Alternative object, if this package is a r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	663	840	
==>s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone toke <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	663	840	
==>s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone toke <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18330	18503	
==>( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18609	18782	
==>( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5859	5956	
==>ntext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5859	5956	
==>ntext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5859	5956	
==>ntext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => ' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5458	5555	
==>hild (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5458	5555	
==>hild (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $ch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31348	31441	
==>l-returning anonymous function in the argument C<$predicate> returns
True when given the tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35898	35991	
==>l-returning anonymous function in the argument C<$predicate> returns
True when given the tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35116	35209	
==>l-returning anonymous function in the argument C<$predicate> returns
True when given the tuple <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2018	2133	
==>ns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2018	2133	
==>ns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4339	4461	
==>undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4339	4461	
==>undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shi <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3823	3966	
==>xpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsi <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1761	1855	
==>RIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riede <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1761	1855	
==>RIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riede <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	943	1065	
==>gram###\n";
        no strict 'refs';
        my $code = eval($program);
        print "Error in statement:\n", $program if <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	30	124	
==>v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Co <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	30	124	
==>v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30398	30498	
==>ble those of the original. 
The anonymous function in the argument C<$transformer> is invoked for eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34950	35049	
==>ble those of the original.
The anonymous function in the argument C<$transformer> is invoked for eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34132	34231	
==>ble those of the original.
The anonymous function in the argument C<$transformer> is invoked for eac <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14837	14936	
==>./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INV <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14837	14936	
==>./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7522	7683	
==>{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7522	7683	
==>{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8930	9030	
==>1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2816	2943	
==>as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2816	2943	
==>as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2816	2943	
==>as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1445	1705	
==>y (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2983	3125	
==>};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2983	3125	
==>};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2983	3125	
==>};        
        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	105	223	
==>pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	105	223	
==>pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7657	7761	
==>nboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7657	7761	
==>nboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7657	7761	
==>nboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unbox <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8999	9120	
==>d pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10476	10597	
==>d pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	360	463	
==>b linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_nativ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	94	215	
==>ATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	94	215	
==>ATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9373	9473	
==>quire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9373	9473	
==>quire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9373	9473	
==>quire_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9480	9642	
==>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9480	9642	
==>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9480	9642	
==>name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1888	2059	
==>class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2093	2264	
==>class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2156	2327	
==>class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12804	12937	
==>,

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12804	12937	
==>,

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12804	12937	
==>,

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4894	4991	
==>There is *no* attention
# paid to the associativity of the original operator and auto-metaed versi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4894	4991	
==>There is *no* attention
# paid to the associativity of the original operator and auto-metaed versi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4894	4991	
==>There is *no* attention
# paid to the associativity of the original operator and auto-metaed versi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2171	2333	
==>d not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34251	34342	
==>C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::Keyed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34251	34342	
==>C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::Keyed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18716	18813	
==>EAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<pack <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18716	18813	
==>EAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<pack <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1866	2007	
==>-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_A <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1866	2007	
==>-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6226	6379	
==>Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6226	6379	
==>Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6226	6379	
==>Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13210	13318	
==>ection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13210	13318	
==>ection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13210	13318	
==>ection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopCo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7162	7312	
==>prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7162	7312	
==>prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	32	131	
==>t.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3233	3365	
==>$description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     } <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3233	3365	
==>$description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4757	4889	
==>$description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13609	13708	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13609	13708	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13609	13708	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12173	12271	
==>) since we do not yet have
object support. Once object support is created, we will add it here, and <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12231	12329	
==>) since we do not yet have
object support. Once object support is created, we will add it here, and <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27587	27726	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27866	28005	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7655	7765	
==>params[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12985	13094	
==>method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgumen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12985	13094	
==>method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgumen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12985	13094	
==>method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgumen <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3980	4071	
==>> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Sym <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3980	4071	
==>> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Sym <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7900	8067	
==>ic_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11377	11544	
==>ic_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	344	467	
==>y_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(D <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7193	7286	
==>ired after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7193	7286	
==>ired after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4706	4821	
==>ole_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4706	4821	
==>ole_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4706	4821	
==>ole_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11504	11617	
==>ode::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<varia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11870	11983	
==>ode::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<varia <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	58	163	
==>'

# this one doesn't translate so trivially.

type Noop;

# hmm, there's a lot.  And we probably don't ne <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13183	13313	
==>0
    if $I0 == -1 goto addchar
    $S0 = substr "\n\r\t\f\a\e\0", $I0, 1
  addchar:
    inc pos
    if isrange goto addrange
    c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10136	10230	
==>tor arguments are passed to the C<header> method which is
described below.

=item $h->header( $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10136	10230	
==>tor arguments are passed to the C<header> method which is
described below.

=item $h->header( $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15289	15396	
==>iftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpression> <'>>'> <AdditiveExpression>
    | <ShiftE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4564	4656	
==>ct. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24414	24557	
==>.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Expressions

ru <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1449	1552	
==>ugh it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

rege <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1449	1552	
==>ugh it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

rege <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33988	34085	
==>ples that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38538	38635	
==>ples that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9631	9754	
==>max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9631	9754	
==>max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9631	9754	
==>max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	364	621	
==>1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8254	8359	
==>ize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Change <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8254	8359	
==>ize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Change <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3283	3396	
==>s => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3283	3396	
==>s => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3283	3396	
==>s => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2309	2417	
==>ontainer;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pSco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2309	2417	
==>ontainer;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pSco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2309	2417	
==>ontainer;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } elsif($self->{pSco <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4299	4409	
==>e::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4299	4409	
==>e::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4299	4409	
==>e::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1184	1295	
==>tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $! <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1184	1295	
==>tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2776	2905	
==>$def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2776	2905	
==>$def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2776	2905	
==>$def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->n <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2483	2584	
==>rns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthD <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2483	2584	
==>rns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7782	7890	
==>:Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7782	7890	
==>:Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7782	7890	
==>:Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2163	2267	
==>nfix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2163	2267	
==>nfix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2163	2267	
==>nfix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5766	5907	
==>};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5766	5907	
==>};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5766	5907	
==>};        
        if ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6380	6509	
==>{
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6380	6509	
==>{
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2677	2783	
==>y $cwd = JIB::Utils->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5354	5460	
==>iq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5354	5460	
==>iq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5354	5460	
==>iq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	123	227	
==>05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	123	227	
==>05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	123	227	
==>05
# * removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8398	8610	
==>et_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8398	8610	
==>et_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8398	8610	
==>et_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1657	1766	
==>ull_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1657	1766	
==>ull_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1657	1766	
==>ull_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3985	4103	
==>lues{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5161	5275	
==>pr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5161	5275	
==>pr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	376	492	
==>quire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	376	492	
==>quire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	376	492	
==>quire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9251	9366	
==>th);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($cont <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9251	9366	
==>th);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4233	4329	
==>t(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4233	4329	
==>t(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4233	4329	
==>t(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4417	4529	
==>sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4417	4529	
==>sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4417	4529	
==>sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    pri <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	446	887	
==>55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            6 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	446	887	
==>55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            6 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	388	502	
==>ate_container {
    my $self = shift;
    return $self->{type}->new();
}

1;

__END__

=pod

=head1 NAME

attribute <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8405	8511	
==>p, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18921	19012	
==>document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persistenc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18921	19012	
==>document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persistenc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	622	757	
==>t",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2720	2829	
==>:PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2720	2829	
==>:PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14729	14851	
==>ize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14729	14851	
==>ize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14729	14851	
==>ize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	93	215	
==>o implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	93	215	
==>o implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	614	731	
==>>{out}= {fixity => 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'nam <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4278	4374	
==>he C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4278	4374	
==>he C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6475	6571	
==>he C<$description> and
C<$reason> parameters and a true value for the passed parameter.

=item C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16137	16236	
==>tribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16137	16236	
==>tribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16137	16236	
==>tribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4754	4851	
==>..\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4754	4851	
==>..\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4754	4851	
==>..\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4436	4656	
==>rl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4436	4656	
==>rl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4436	4656	
==>rl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21538	21654	
==>ed:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19864	19960	
==>it likes; all Rosetta cares about is that the user
interface and behaviour conform to its preconc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19864	19960	
==>it likes; all Rosetta cares about is that the user
interface and behaviour conform to its preconc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5477	5583	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5477	5583	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5477	5583	
==>$pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13369	13489	
==>ding, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16846	16966	
==>ding, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16208	16328	
==>ding, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $othe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3059	3155	
==>back

In addition, the following request headers are set on the HTTP::Headers object,
if they are <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3059	3155	
==>back

In addition, the following request headers are set on the HTTP::Headers object,
if they are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3235	3369	
==>alue]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3235	3369	
==>alue]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3235	3369	
==>alue]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4025	4147	
==>ON || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->pre <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2976	3085	
==>ON || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->pre <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7616	7718	
==>$bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $exit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7357	7513	
==>] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7357	7513	
==>] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1996	2113	
==>t;
    my $who  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	27	127	
==>llable;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
us <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34161	34258	
==>d non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( : <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34161	34258	
==>d non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3101	3219	
==>ired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3101	3219	
==>ired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3101	3219	
==>ired, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1914	2016	
==>returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1914	2016	
==>returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2869	3001	
==>ing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2869	3001	
==>ing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2869	3001	
==>ing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2785	2901	
==>led with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2785	2901	
==>led with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2785	2901	
==>led with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37082	37185	
==>y $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37082	37185	
==>y $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37082	37185	
==>y $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29485	29593	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29485	29593	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29485	29593	
==>IVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4941	5036	
==>orted.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4941	5036	
==>orted.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3172	3278	
==>>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3172	3278	
==>>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3519	3625	
==>>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	553	672	
==>th, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	520	639	
==>th, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	228	328	
==>ift;
my $duration = shift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1417	1537	
==>aque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1417	1537	
==>aque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1417	1537	
==>aque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5416	5540	
==>: $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5416	5540	
==>: $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5416	5540	
==>: $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7250	7364	
==>< iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to deter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7250	7364	
==>< iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to deter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7250	7364	
==>< iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to deter <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5084	5208	
==>IL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5084	5208	
==>IL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1988	2112	
==>IL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1503	1599	
==>n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_d <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1503	1599	
==>n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	559	649	
==>> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	440	639	
==>uleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	441	640	
==>uleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::cons <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11830	11925	
==>d to happen,
but wishes to compare them with something other than C<E<lt>=E<gt>> or
C<cmp>.

=ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3863	4005	
==>$prec = "P000";
    my %seen;
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	574	670	
==>esting_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	632	728	
==>esting_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1073	1177	
==>'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1073	1177	
==>'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1073	1177	
==>'Scalar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11137	11244	
==>b pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11137	11244	
==>b pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2500	2645	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2500	2645	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2500	2645	
==>v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet define <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7364	7488	
==>Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8716	8840	
==>Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19384	19508	
==>Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10386	10483	
==>Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10386	10483	
==>Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1867	1979	
==>y $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1867	1979	
==>y $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1867	1979	
==>y $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1456	1569	
==>mitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1456	1569	
==>mitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1456	1569	
==>mitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3740	3853	
==>$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3740	3853	
==>$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3740	3853	
==>$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1046	1205	
==>ult = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Er <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1186	1345	
==>ult = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Er <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3658	3756	
==>_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10986	11119	
==>defined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10986	11119	
==>defined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10986	11119	
==>defined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    } <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	165	264	
==>ugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optim <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4731	4830	
==>pe

=head1 METHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	859	1008	
==>_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->ente <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	859	1008	
==>_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->ente <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	859	1008	
==>_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->ente <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	104	219	
==>ix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	104	219	
==>ix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	104	219	
==>ix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4031	4157	
==>l memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4031	4157	
==>l memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4031	4157	
==>l memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = unde <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1010	1125	
==>bers.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1010	1125	
==>bers.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8548	8656	
==>ph => $neg, $how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	464	571	
==>PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	464	571	
==>PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	464	571	
==>PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pSt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10370	10473	
==>s list { 
    %:methods.keys;
}

(method get_method_list ((opaque $self:)) returns list
    ((($self: ge <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12787	12882	
==>specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for seve <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12787	12882	
==>specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for seve <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2377	2497	
==>\)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2624	2744	
==>\)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24758	24850	
==>ct from the other tuples.  All Relation::Example
attributes may be individually addressed onl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11844	11982	
==>Reason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status return <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2266	2390	
==>Reason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2266	2390	
==>Reason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status return <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3842	3954	
==>{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how 's. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35764	35855	
==>its C<$other> argument, where <$other> has the same heading as
the invocant Relation::Exampl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37796	37887	
==>its C<$other> argument, where <$other> has the same heading as the
invocant Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12480	12595	
==>pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12480	12595	
==>pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12480	12595	
==>pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{po <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6975	7085	
==>es} }, @{$chunk->{test_files}};
        unlink $file or die "unlink: $!";
    }
    warn "all chunks completed. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4431	4521	
==>e equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equiva <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4431	4521	
==>e equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equiva <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2876	2971	
==>e query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2876	2971	
==>e query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1841	1932	
==>able.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Session $session, Str $event, * <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5750	5855	
==>de_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Sco <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5750	5855	
==>de_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Sco <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2649	2754	
==>de_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Sco <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16085	16236	
==>. 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16079	16230	
==>. 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25541	25632	
==>::operator::arrow->new(
		type::operator::pair->new(
			type::variable::free->new,
			type:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5449	5598	
==>we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5913	6062	
==>we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6733	6825	
==>_dir,"error.html");
open( my $error, '>', $error_file) or die "Failed to open $error_file: $! <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6387	6512	
==>_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simple_escape_sequence(R).
p5_elemental(negSet(X)) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	482	579	
==>s.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	482	579	
==>s.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	645	767	
==>uth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!! <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	645	767	
==>uth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!! <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13130	13228	
==>not stick.

  The implementation is at best an XS-based module (currently Inline::C),
  and is thus <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11399	11512	
==>e = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11399	11512	
==>e = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11399	11512	
==>e = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9745	9859	
==>) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13222	13336	
==>) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12494	12608	
==>) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    if ($!bod <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14455	14555	
==>.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14513	14613	
==>.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1736	1905	
==>on.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1736	1905	
==>on.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1736	1905	
==>on.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2843	2969	
==>$Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2843	2969	
==>$Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4367	4493	
==>$Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13346	13529	
==>ist->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13346	13529	
==>ist->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13346	13529	
==>ist->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20595	20728	
==>'??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	541	631	
==>y::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous( <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	541	631	
==>y::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous( <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	451	549	
==>ee'> }
rule flag_exhaustive  { <':exhaustive'> | <':ex'> }
rule flag_overlap     { <':overlap'> | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	585	697	
==>cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	585	697	
==>cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	585	697	
==>cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12116	12226	
==>es); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12116	12226	
==>es); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12116	12226	
==>es); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13760	13873	
==>runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes do <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8973	9080	
==>e/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10450	10557	
==>e/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2655	2776	
==>stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2655	2776	
==>stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2655	2776	
==>stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1972	2111	
==>\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10418	10543	
==>immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10697	10822	
==>immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14515	14612	
==>to build the string, the result
will use case as suggested by HTTP spec, and it will follow
recomm <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14515	14612	
==>to build the string, the result
will use case as suggested by HTTP spec, and it will follow
recomm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6926	7047	
==>oop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6926	7047	
==>oop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6926	7047	
==>oop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	623	730	
==>_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	623	730	
==>_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	623	730	
==>_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2236	2376	
==>n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2236	2376	
==>n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2236	2376	
==>n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9631	9808	
==>st') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9631	9808	
==>st') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9631	9808	
==>st') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12701	12861	
==>:status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed"} = $.passed;
          return $statu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3065	3217	
==>:status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3065	3217	
==>:status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $statu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2927	3023	
==>in which they were
present in the query string is preserved.

=item C<$q.param()>

This exists as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2927	3023	
==>in which they were
present in the query string is preserved.

=item C<$q.param()>

This exists as <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4597	4693	
==>$initrd_size
    --initrd-size specifies the size of the (uncompressed) initrd (in KiB).
  --init <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7129	7269	
==>%$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7129	7269	
==>%$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	141	254	
==>ssed';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2467	2568	
==>ass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2467	2568	
==>ass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2467	2568	
==>ass($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLE <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	545	648	
==>n $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<densi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	545	648	
==>n $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<densi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5463	5572	
==>ake a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5463	5572	
==>ake a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5463	5572	
==>ake a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3261	3509	
==>ule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shel <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3261	3509	
==>ule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7474	7592	
==>->force_object(anyof_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha POSIX class
  $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2602	2700	
==>y $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2602	2700	
==>y $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2602	2700	
==>y $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}) <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	579	693	
==>ile (abs($f($guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive lo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18156	18251	
==>ny) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suita <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18156	18251	
==>ny) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suita <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8420	8514	
==>DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8420	8514	
==>DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8420	8514	
==>DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4602	4701	
==>turned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4602	4701	
==>turned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	788	883	
==>excludes some builtin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use Blondie::Ba <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6968	7118	
==>see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9752	9847	
==>ou can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9752	9847	
==>ou can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8638	8746	
==>l singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '... $iFoo i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	97	194	
==>s ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	97	194	
==>s ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7722	7832	
==>rent_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordere <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7722	7832	
==>rent_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordere <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8207	8300	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2032	2125	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10055	10188	
==>\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar catego <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10891	11024	
==>\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar catego <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19931	20025	
==>le_imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatever) {
    die "Can't load perl5 m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1123	1238	
==>eted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1123	1238	
==>eted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1123	1238	
==>eted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1471	1577	
==>XX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1471	1577	
==>XX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1471	1577	
==>XX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10791	11012	
==>um_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10791	11012	
==>um_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10791	11012	
==>um_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->pa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2167	2287	
==>ode ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~joi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2167	2287	
==>ode ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~joi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11530	11647	
==>ef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lvalue => sub { p6_as_bool(${$_[0]}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6464	6563	
==>f initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6464	6563	
==>f initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6464	6563	
==>f initialization of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1436	1544	
==>was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1436	1544	
==>was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1436	1544	
==>was no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollT <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6648	6760	
==>her );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10125	10237	
==>her );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	932	1038	
==>ackage $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17939	18033	
==>hermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.lo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17939	18033	
==>hermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3723	3821	
==>und{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3723	3821	
==>und{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4313	4411	
==>und{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10669	10772	
==>= array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10669	10772	
==>= array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10669	10772	
==>= array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19691	19786	
==>be much easier for a non-programmer to edit.
But the current Perl-based solution will also be ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19691	19786	
==>be much easier for a non-programmer to edit.
But the current Perl-based solution will also be ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24248	24348	
==>ple are of the same
degree, and the attribute names of each tuple are all the same as those of
all th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3168	3261	
==>ne.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3168	3261	
==>ne.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13005	13209	
==>es->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13005	13209	
==>es->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13005	13209	
==>es->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3689	3786	
==>d2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3689	3786	
==>d2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Eve <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8065	8160	
==>hat we have F<ghc_pkg> installed.  This caches its result,
any further calls to ghc_pkg This met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19152	19278	
==>match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19431	19557	
==>match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8122	8241	
==>$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8110	8229	
==>$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	7	105	
==>bin/perl

use strict;
use warnings;

use Perl6::MetaModel;

1;

__END__

module Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8414	8554	
==>s
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8414	8554	
==>s
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8414	8554	
==>s
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5496	5613	
==>roles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5496	5613	
==>roles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5496	5613	
==>roles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7471	7596	
==>f: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has_method ((opaque $self:) (symbol $label)) returns <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3467	3584	
==>::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code ge <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3684	3801	
==>::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4523	4633	
==>xpand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4523	4633	
==>xpand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4523	4633	
==>xpand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17994	18091	
==>s the
same Engine class to implement it; that is, multiple DBMS objects will not
have references t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17994	18091	
==>s the
same Engine class to implement it; that is, multiple DBMS objects will not
have references t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1329	1434	
==>vel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1329	1434	
==>vel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1329	1434	
==>vel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1828	1980	
==>RE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => ' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	5	130	
==>6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	5	130	
==>6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3760	3889	
==>ethod($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3760	3889	
==>ethod($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3760	3889	
==>ethod($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

cla <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6721	6842	
==>ript's wait status
    max         Number of individual tests
    failed      Number which failed
    percent     Percenta <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4484	4585	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @i <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4484	4585	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	567	689	
==>$self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	567	689	
==>$self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	567	689	
==>$self->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2395	2498	
==>ers));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2395	2498	
==>ers));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5	112	
==>arnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5	112	
==>arnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5	112	
==>arnings;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13697	13867	
==>"    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9881	10051	
==>"    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10717	10887	
==>"    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1357	1478	
==>there are more types ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	391	490	
==>or running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTI <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	449	548	
==>or running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTI <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9697	9789	
==>lement less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9697	9789	
==>lement less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3907	4009	
==>=> "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3907	4009	
==>=> "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29858	29954	
==>n the argument C<$attrs>.  The new Relation::Example has all
of the tuples of the original (or ra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17309	17401	
==>er("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17309	17401	
==>er("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4866	4954	
==>www.haskell.org/ghc/docs/5.04/html/building/winbuild.html
   http://www.reed.edu/~carlisl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	978	1131	
==>) {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	978	1131	
==>) {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Mo <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1387	1514	
==>his will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash" <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	783	885	
==>ss @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	783	885	
==>ss @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () retu <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8928	9063	
==>t OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEG <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2171	2266	
==>thod subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2171	2266	
==>thod subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.in <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	404	502	
==>TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote user <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	404	502	
==>TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote user <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14844	14964	
==>pression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular express <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19012	19132	
==>pression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular express <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3048	3217	
==>ring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3048	3217	
==>ring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3048	3217	
==>ring) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4502	4607	
==>tion.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4502	4607	
==>tion.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4502	4607	
==>tion.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to Java <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1525	1703	
==>~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1525	1703	
==>~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    c <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10119	10212	
==>dry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2359	2454	
==>"String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2359	2454	
==>"String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2359	2454	
==>"String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3496	3635	
==>utomatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3496	3635	
==>utomatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3496	3635	
==>utomatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	135	280	
==>l's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	135	280	
==>l's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	135	280	
==>l's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19265	19368	
==>nd ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines befor <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19265	19368	
==>nd ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines befor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7686	7894	
==>);
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7686	7894	
==>);
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7686	7894	
==>);
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->sl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2293	2417	
==>oth

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2210	2326	
==>oth
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2587	2669	
==>=============================================================

:- style_check(-disc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7268	7376	
==>y loaded template module; on a function call
        # death, assume module is damaged and say so; an undefin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7268	7376	
==>y loaded template module; on a function call
        # death, assume module is damaged and say so; an undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	490	591	
==>UATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	490	591	
==>UATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	490	591	
==>UATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3470	3591	
==>('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3470	3591	
==>('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3470	3591	
==>('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2406	2552	
==>ngleton
        return $cache{$dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj-> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	197	309	
==>vides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The off <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	197	309	
==>vides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The off <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16	131	
==>alue::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16	131	
==>alue::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16	131	
==>alue::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * re <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4986	5080	
==>er fields in the requests
sent and responses received, then you should use the full object-orie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4986	5080	
==>er fields in the requests
sent and responses received, then you should use the full object-orie <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1222	1306	
==>hod get_subscriptions (Class::Events::Publisher $publisher, Class::Publisher::Event $ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	372	476	
==>e()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date: <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	372	476	
==>e()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8544	8639	
==>e => Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6757	6912	
==>ry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7221	7376	
==>ry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	115	250	
==>my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last } <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	115	250	
==>my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	157	245	
==>rammar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
us <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1202	1301	
==>ternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end up <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1202	1301	
==>ternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end up <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	629	740	
==>l
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	629	740	
==>l
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9525	9622	
==>-inf' => '-100**100**100',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$value <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8592	8717	
==>hods will
invoke parse() if the tree has not been made yet.

=head2 Setting and Parsing Together

You can also use parse() ins <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	294	395	
==>aintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocation <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	294	395	
==>aintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocation <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14334	14469	
==>";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14334	14469	
==>";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2714	2819	
==>lsif ( $syncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10394	10523	
==>x eq 'statement_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #pr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11862	11961	
==>Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11862	11961	
==>Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5482	5577	
==>tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5482	5577	
==>tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir) <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	592	729	
==>cript ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	592	729	
==>cript ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	508	623	
==>>version(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	789	891	
==>names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algori <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	789	891	
==>names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algori <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	789	891	
==>names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algori <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1822	2229	
==>e Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Externa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1822	2229	
==>e Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Externa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5321	5454	
==>le(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void reg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5758	5862	
==>"$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5746	5850	
==>"$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) ) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16879	16968	
==>B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2, <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1765	1872	
==>5?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1765	1872	
==>5?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10747	10895	
==>ntal!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7828	7970	
==>ntal!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7828	7970	
==>ntal!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = <==
3	/Users/nnunley/pugs/util/package-osx.pl	7886	8010	
==>usr/local/man/man3/Perl6::Spec::Operator.3pm
        /usr/local/man/man3/Perl6::Spec::Overload.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30613	30709	
==>n be
shared by multiple Messages but the whole module must represent a single
language.

The name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30613	30709	
==>n be
shared by multiple Messages but the whole module must represent a single
language.

The name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5184	5316	
==>]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5184	5316	
==>]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5184	5316	
==>]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We shou <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5205	5338	
==>O - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5205	5338	
==>O - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5009	5112	
==>od BUILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	305	449	
==>ethod parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } el <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	305	449	
==>ethod parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } el <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	635	727	
==>es(Package) or (.does(Str) and $^n ne $EMPTY_STR)
};

subtype Relation::LaxPairAttrType of Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2802	2901	
==>rrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2802	2901	
==>rrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2802	2901	
==>rrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	1	121	
==>ackage PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	1	121	
==>ackage PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	1	121	
==>ackage PIL::PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3326	3426	
==>s represents a date /without a time/.

Because it is just a date, it does not handle time zones or le <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3326	3426	
==>s represents a date /without a time/.

Because it is just a date, it does not handle time zones or le <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1082	1177	
==>d

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdir> changes directory to a dir.

Retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4732	4841	
==>ription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4732	4841	
==>ription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6929	7038	
==>ription = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3321	3436	
==>-------------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5797	5891	
==>mmar::Match



Rule constructors return Rule objects, which are "matcher" things.

Rules operat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5596	5687	
==>mmar::Match

Rule constructors return Rule objects, which are "matcher" things.
Rules operat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2278	2380	
==>pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2278	2380	
==>pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2278	2380	
==>pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	227	330	
==>gs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	227	330	
==>gs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	227	330	
==>gs[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	751	917	
==>Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	751	917	
==>Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	751	917	
==>Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1904	1997	
==>to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneie <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1904	1997	
==>to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1157	1274	
==>s); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1157	1274	
==>s); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1157	1274	
==>s); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21791	22022	
==>'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41795	42026	
==>'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44698	44929	
==>'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9277	9390	
==>pParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9277	9390	
==>pParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9277	9390	
==>pParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7867	7962	
==>arrot_path/runtime/parrot/include -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16872	16966	
==>rite some components of their application in Rosetta D (as
either named modules or anonymous ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16872	16966	
==>rite some components of their application in Rosetta D (as
either named modules or anonymous ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1910	2035	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1910	2035	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1910	2035	
==>ically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7453	7565	
==>n { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7453	7565	
==>n { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7453	7565	
==>n { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9329	9446	
==>adonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $cur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9329	9446	
==>adonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $cur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29020	29111	
==>,
L<Test> and L<Test::Simple> for writing test scripts, L<Benchmark> for
the underlying timi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	193	289	
==>hod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	193	289	
==>hod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	193	289	
==>hod (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5249	5366	
==>( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5068	5177	
==>( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /l <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3960	4081	
==>59/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3960	4081	
==>59/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	172	273	
==>pecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::TypeSafe::Flatten->ne <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10179	10338	
==>0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10179	10338	
==>0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8031	8126	
==>}

=head2 assert_ghc_pkg

Assert that we have F<ghc_pkg> installed.  This caches its result,
any <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29562	29661	
==>ail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34114	34213	
==>ail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33278	33377	
==>ail if any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2540	2659	
==>ucceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2540	2659	
==>ucceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10932	11028	
==>egex you passed it, but it will not operate
differently.

The string representation is built by c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13490	13603	
==>@_;
    my $rx = $self->{rx};

    # quantifiers must follow something
    $rx->error($rx->RPe_EQUANT)
      if @$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4618	4724	
==>= shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml') <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4477	4583	
==>= shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml') <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17822	17924	
==>ession> <'&&'> <BitwiseORExpression>
}
rule LogicalANDExpressionNoIn :words {  # see 11.11
      <Bitwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2995	3088	
==>normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2995	3088	
==>normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2995	3088	
==>normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5563	5668	
==>',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5563	5668	
==>',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5563	5668	
==>',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	769	880	
==>} @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	769	880	
==>} @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @IS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	769	880	
==>} @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11030	11210	
==>AD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11030	11210	
==>AD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11030	11210	
==>AD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4863	4974	
==>\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4863	4974	
==>\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4573	4679	
==>eport and
a how long it all took.

It returns true if everything was ok.  Otherwise it will C<die()> with
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6400	6504	
==>d to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6400	6504	
==>d to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6400	6504	
==>d to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6212	6323	
==>t');

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	507	610	
==>th $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	507	610	
==>th $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2375	2486	
==>Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2375	2486	
==>Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2375	2486	
==>Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	186	318	
==>t {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7945	8061	
==>ent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CON <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7945	8061	
==>ent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CON <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15842	15977	
==>[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15842	15977	
==>[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15842	15977	
==>[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4382	4484	
==>r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7058	7180	
==>hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	131	234	
==>t;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

sub new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4321	4460	
==>.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4321	4460	
==>.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4321	4460	
==>.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1222	1379	
==>(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1222	1379	
==>(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1222	1379	
==>(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	517	609	
==>:

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is still relatively "functional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19384	19487	
==>fix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19384	19487	
==>fix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19384	19487	
==>fix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39683	39774	
==>DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redist <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39683	39774	
==>DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redist <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6854	6958	
==>ure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6854	6958	
==>ure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate modul <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2924	3022	
==>_end {
  my $e = shift(@let_stack) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpvars) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36587	36682	
==>list, in which case the returned Relation is identical to the
invocant.  Another trivial case is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41136	41231	
==>list, in which case the returned Relation is identical to the
invocant.  Another trivial case is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1454	1609	
==>rk :(
#     
#     ### clean out the builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or erro <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3910	4007	
==>closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.compl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3910	4007	
==>closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2032	2142	
==>odule, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2032	2142	
==>odule, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10566	10671	
==>"";
    $code .= "sub ${package_name}::${name}::${method_name} {";

    my $rep = $info->rep_type;
    if( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1549	1788	
==>);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    whe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1549	1788	
==>);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    whe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1324	1460	
==>ge Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $_[2] }

    package AST;
    use base 'U <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	156	257	
==>Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra " <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	156	257	
==>Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15680	15786	
==>on( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19157	19263	
==>on( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14689	14785	
==>C<keys> is not longer supported. Use the C<.buckets>
property instead.

=back


=head2 Str

Gener <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	8	108	
==>- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	8	108	
==>- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	8	108	
==>- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1	111	
==>ackage Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1	111	
==>ackage Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1	111	
==>ackage Prelude::JS;

use warnings;
use strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15472	15625	
==>hifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15472	15625	
==>hifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15472	15625	
==>hifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1303	1406	
==>if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1303	1406	
==>if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1303	1406	
==>if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2600	2711	
==>is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2600	2711	
==>is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12434	12562	
==>shref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12434	12562	
==>shref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12434	12562	
==>shref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13768	13895	
==>my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13768	13895	
==>my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13768	13895	
==>my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shif <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1310	1409	
==>headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and ca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1310	1409	
==>headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and ca <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14516	14600	
==>-------------------------

re_reverse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6727	6832	
==>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6727	6832	
==>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6727	6832	
==>params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16208	16301	
==>rn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16208	16301	
==>rn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16208	16301	
==>rn -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2989	3097	
==>s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2989	3097	
==>s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2989	3097	
==>s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4252	4398	
==>t"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4252	4398	
==>t"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	778	917	
==>,
        },
    };
    
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17101	17201	
==>ally. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17101	17201	
==>ally. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6646	6779	
==>cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_te <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6703	6836	
==>cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_te <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1132	1232	
==>rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $match = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16499	16603	
==>B Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16499	16603	
==>B Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16499	16603	
==>B Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1182	1316	
==>d) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1182	1316	
==>d) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim = <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1055	1163	
==>tive seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	830	941	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	830	941	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	830	941	
==>~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12605	12698	
==>eatures.

This module deals with encoding and decoding of strings with HTML
character entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12605	12698	
==>eatures.

This module deals with encoding and decoding of strings with HTML
character entities <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4915	5085	
==>tart => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4915	5085	
==>tart => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    ret <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16732	16851	
==>runcate($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7419	7516	
==>entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7419	7516	
==>entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8111	8233	
==>add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8111	8233	
==>add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8111	8233	
==>add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4771	4867	
==>ay, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Arra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	300	394	
==>ay, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Arra <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26507	26598	
==>assAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRanges>
}
rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9427	9525	
==>xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9427	9525	
==>xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9427	9525	
==>xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	841	941	
==>stant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	841	941	
==>stant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	841	941	
==>stant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15020	15122	
==>return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15020	15122	
==>return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15020	15122	
==>return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11047	11144	
==>am.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM sp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11047	11144	
==>am.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM sp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1156	1282	
==>ent;\n";
}
sub node::require_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "require $ident;\n";
}
sub nod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8405	8505	
==>n( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8405	8505	
==>n( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	385	502	
==>:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2] <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1396	1526	
==>y $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daugh <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1396	1526	
==>y $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daugh <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5983	6091	
==>Value::Number $v)    { $v }
multi sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5210	5342	
==>g => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8687	8819	
==>g => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7707	7839	
==>g => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1680	1806	
==>ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4460	4555	
==>=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4710	4805	
==>=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14821	14930	
==>ternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14821	14930	
==>ternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14821	14930	
==>ternals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5782	5921	
==>();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5782	5921	
==>();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	500	602	
==>nse while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24465	24579	
==>er('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20886	21000	
==>er('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2391	2490	
==>nk($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2391	2490	
==>nk($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2391	2490	
==>nk($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5900	6102	
==>tart,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5900	6102	
==>tart,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5900	6102	
==>tart,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        en <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3538	3645	
==>HODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances which
perfor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3538	3645	
==>HODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances which
perfor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5735	5842	
==>HODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instances which
perfor <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13636	13753	
==>pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr target, pos, 2
    if $S0 != "]>" goto err_bracket <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	305	408	
==>import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	305	408	
==>import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17442	17576	
==>HTML::Element->new('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3527	3623	
==>cing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3527	3623	
==>cing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29026	29125	
==>>

This method is a generic relational operator that returns a new Relation::Example
which is the sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31874	31973	
==>>

This method is a generic relational operator that returns a new Relation::Example
which is the sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32921	33020	
==>>

This method is a generic relational operator that returns a new Relation::Example
which is the sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26141	26266	
==>= ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26141	26266	
==>= ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26141	26266	
==>= ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @ <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	859	984	
==>egister'.
.
    }
    else {
        print << ".";
*** Installed successfully!
.
    }
}
else {
    print << ".";
*** Installa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8888	8995	
==>t a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$ol <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8888	8995	
==>t a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$ol <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13150	13275	
==>span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Da <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13150	13275	
==>span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Da <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6534	6650	
==>shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5515	5618	
==>B uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5515	5618	
==>B uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5515	5618	
==>B uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	393	529	
==>utput'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_output'} || \*STDERR);           
        }
    },
    met <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2073	2184	
==>code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  subme <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2073	2184	
==>code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  subme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8042	8308	
==>mp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8042	8308	
==>mp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8042	8308	
==>mp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4864	4966	
==>Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4864	4966	
==>Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7061	7163	
==>Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4307	4399	
==>ssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4307	4399	
==>ssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4307	4399	
==>ssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().',' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1852	1945	
==>:Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1852	1945	
==>:Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1852	1945	
==>:Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

metho <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12553	12763	
==>int "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => sc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6776	6881	
==>>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6776	6881	
==>>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3382	3696	
==>p(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ), <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8467	8560	
==>ilities.  B<Perform your own security analysis before using it in any 
sensitive application.> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8467	8560	
==>ilities.  B<Perform your own security analysis before using it in any 
sensitive application.> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5316	5439	
==>ssAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5316	5439	
==>ssAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5316	5439	
==>ssAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this shou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9757	9877	
==>--------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9757	9877	
==>--------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9757	9877	
==>--------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Rol <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23897	23992	
==>(Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28449	28544	
==>(Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1468	1557	
==>X1::Compile;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1268	1490	
==>$_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1268	1490	
==>$_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1268	1490	
==>$_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9856	10005	
==>ey = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9856	10005	
==>ey = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9856	10005	
==>ey = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8948	9146	
==>_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5308	5506	
==>_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6157	6355	
==>_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are mul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	549	687	
==>pmc_is_uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    require Pugs::Compiler::Perl6;

    my $p6 = P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31651	31750	
==>itself.  When the program is run, it would
determine either from a user config file or a user interf <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31651	31750	
==>itself.  When the program is run, it would
determine either from a user config file or a user interf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4676	4809	
==>ld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4676	4809	
==>ld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4676	4809	
==>ld be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6008	6111	
==>urce =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6008	6111	
==>urce =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6008	6111	
==>urce =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12428	12539	
==>s (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12428	12539	
==>s (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12428	12539	
==>s (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovi <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	248	396	
==>sync {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -100 or retry }
        $still_runn <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15741	15833	
==>TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15799	15891	
==>TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$d <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11845	11944	
==>, so you will have to wait
a little while. Until then, you can just write your own functions like th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11903	12002	
==>, so you will have to wait
a little while. Until then, you can just write your own functions like th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24238	24330	
==>ol('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31283	31492	
==>ue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31283	31492	
==>ue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31283	31492	
==>ue::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2631	2762	
==>=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new() <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2631	2762	
==>=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new() <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2475	2583	
==>m->new($i));
        unless ($arg->isa('nil') && $param->to_str->to_native =~ /^\?/) {
            (blessed($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3241	3334	
==>e.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_differen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3241	3334	
==>e.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_differen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12510	12648	
==>b { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12510	12648	
==>b { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12510	12648	
==>b { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2440	2543	
==>n.

Note: This program should be run as unpreviliged user, it will ask you to enter
      commands requi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2665	2763	
==>rn data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2665	2763	
==>rn data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4119	4224	
==>: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4119	4224	
==>: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4119	4224	
==>: There doesn't exist a return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	189	302	
==>b new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	189	302	
==>b new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	189	302	
==>b new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	806	909	
==>Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	645	747	
==>Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	645	747	
==>Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2426	2521	
==>un_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2426	2521	
==>un_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2426	2521	
==>un_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1369	1479	
==>it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1369	1479	
==>it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1369	1479	
==>it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} would ha <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6685	6788	
==>,
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'i <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6685	6788	
==>,
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	985	1097	
==>essed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1212	1324	
==>essed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1439	1551	
==>essed($right) && $right->isa('type'))
        || confess "The right hand side must be a core type";    
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10439	10569	
==>$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10433	10563	
==>$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14813	14916	
==>("non_numeric") },
      scalar_numeric     => sub { $as_hash_complain->("scalar_numeric") },
      scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1970	2080	
==>ASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1970	2080	
==>ASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $autho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1970	2080	
==>ASH|CODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $autho <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	336	437	
==>.S. This documentation is not in POD format in order to avoid
# problems when there are fundamental b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16991	17086	
==>st of the
application in their other language(s) of choice.  Assuming the main
application is wr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16991	17086	
==>st of the
application in their other language(s) of choice.  Assuming the main
application is wr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35361	35455	
==>method returns all Set Names elements in this object as an array ref.

=item C<get_member_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35361	35455	
==>method returns all Set Names elements in this object as an array ref.

=item C<get_member_names <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17922	18009	
==>twiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <BitwiseORExpressionNoIn> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5643	5756	
==>th' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5643	5756	
==>th' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25273	25367	
==>ts %s\n\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has failing subtests sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9580	9703	
==>@args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5921	6044	
==>@args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6770	6893	
==>@args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	372	499	
==>ll we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	372	499	
==>ll we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1884	1996	
==>lse {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1884	1996	
==>lse {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1884	1996	
==>lse {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1612	1714	
==>ude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1612	1714	
==>ude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1612	1714	
==>ude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1820	1938	
==>b " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1820	1938	
==>b " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1820	1938	
==>b " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  su <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2240	2434	
==>$indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2240	2434	
==>$indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21628	21717	
==>8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_offset_max s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16324	16447	
==>s);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute whe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16324	16447	
==>s);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute whe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16324	16447	
==>s);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	923	1048	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	923	1048	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	923	1048	
==>y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19126	19237	
==>l (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod section <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19126	19237	
==>l (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod section <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9243	9330	
==>dd_singleton_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_iFoo_singleto <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1611	1706	
==>her>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1611	1706	
==>her>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10125	10246	
==>p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10125	10246	
==>p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10125	10246	
==>p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7379	7485	
==>p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7379	7485	
==>p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7379	7485	
==>p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decre <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18729	18822	
==>ile simultaneously
trying to avoid triggering core behavior which we are not prepared to
suppo <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3019	3112	
==>ile simultaneously
trying to avoid triggering core behavior which we are not prepared to
suppo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1322	1413	
==>my $extracted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . $rem <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19173	19267	
==>program's users' own data; only
someone already involved in making the program would be editing <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19173	19267	
==>program's users' own data; only
someone already involved in making the program would be editing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	275	385	
==>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	275	385	
==>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	275	385	
==>{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2291	2407	
==>f->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2291	2407	
==>f->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2291	2407	
==>f->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->u <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7991	8100	
==>/$_" <= $newest_p_stamp and
  $newest_p_stamp = -M "$parrot_path/runtime/parrot/include/$_"
  for @pfiles;

my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20174	20264	
==>gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20174	20264	
==>gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7037	7193	
==>";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7037	7193	
==>";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7037	7193	
==>";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing
            my @items <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16967	17084	
==>her.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20444	20561	
==>her.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20022	20139	
==>her.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8204	8402	
==>hod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8204	8402	
==>hod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8204	8402	
==>hod( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15447	15547	
==>f attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<% <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15447	15547	
==>f attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<% <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12266	12401	
==>nitrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    descr  => "Co <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	13	118	
==>Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $. <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	13	118	
==>Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2093	2202	
==>our
test files.  So if you begin a test with:

    #!perl -T

the test will be run with taint mode on.

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22520	22613	
==>n value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pend <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22520	22613	
==>n value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pend <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	642	739	
==>ion_list code from lib.pm because I am hoping that perl6
# and the new module functionality will n <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	642	739	
==>ion_list code from lib.pm because I am hoping that perl6
# and the new module functionality will n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12868	12990	
==>lessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12868	12990	
==>lessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12868	12990	
==>lessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4306	4474	
==>->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4847	5015	
==>->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39367	39482	
==>pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39367	39482	
==>pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39367	39482	
==>pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->ele <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	745	872	
==>pt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedenc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9151	9271	
==>load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9151	9271	
==>load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1405	1513	
==>ef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1405	1513	
==>ef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1405	1513	
==>ef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10663	10767	
==>t.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10663	10767	
==>t.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10663	10767	
==>t.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivif <==
3	/Users/nnunley/pugs/util/func_refact.pl	2178	2301	
==>ew member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	565	663	
==>::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return & <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	565	663	
==>::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return & <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7406	7517	
==>sal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_orde <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7406	7517	
==>sal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_orde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2067	2170	
==>my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") if $cc;
    return $S->force_obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8701	8808	
==>ighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircum <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6232	6335	
==>ighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircum <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	959	1071	
==>',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	959	1071	
==>',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7252	7359	
==>:SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7252	7359	
==>:SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7252	7359	
==>:SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2213	2353	
==>left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '!=',
        assoc => 'left' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2475	2600	
==>ile-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2692	2817	
==>ile-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1260	1389	
==>f') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1260	1389	
==>f') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1260	1389	
==>f') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32841	33016	
==>my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32841	33016	
==>my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32841	33016	
==>my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4985	5097	
==>for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4985	5097	
==>for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4985	5097	
==>for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2077	2212	
==>left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc => ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2847	2950	
==>::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::V <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2847	2950	
==>::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::V <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3998	4093	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3998	4093	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5522	5617	
==>uilder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Tes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	928	1032	
==>j;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	916	1020	
==>j;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2115	2218	
==>ap(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2115	2218	
==>ap(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2115	2218	
==>ap(Code $code, *@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.i <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9222	9360	
==>lor: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unex <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26414	26533	
==><NonemptyClassRanges>
}
rule NonemptyClassRanges {  # see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRang <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	294	432	
==>shift;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3288	3388	
==>rameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3288	3388	
==>rameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) retu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5383	5569	
==>, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push( <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5383	5569	
==>, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12897	12996	
==>--> List )
 multi method Hash::delete (   $key --> Scalar ) is default

Deletes the elements specifi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1069	1170	
==>ding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1069	1170	
==>ding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1625	1726	
==>ding a leading C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13206	13322	
==>10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13206	13322	
==>10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3419	3520	
==>ss;
}

package type::operator::nullary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1572	1724	
==>ight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1572	1724	
==>ight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1572	1724	
==>ight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	254	351	
==>nless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	254	351	
==>nless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	254	351	
==>nless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16703	16850	
==>list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16982	17129	
==>list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ma <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4631	4726	
==>cifies the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16054	16149	
==>me
situations, a shared program component may raise such a condition, and one
application may ha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16054	16149	
==>me
situations, a shared program component may raise such a condition, and one
application may ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	989	1084	
==>is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	989	1084	
==>is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	989	1084	
==>is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2568	2682	
==>a($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2568	2682	
==>a($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2568	2682	
==>a($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	444	542	
==>hod.new(...))

 $role.apply;

=head1 DESCRIPTION

This object represents a Role.

A Role is a compo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5550	5703	
==>ethod_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5550	5703	
==>ethod_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5550	5703	
==>ethod_list) {
            # if we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1857	1971	
==>thod FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1857	1971	
==>thod FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2768	2872	
==>if you aren't running under
      Linux, you may want to change that.

Note: A precompiled (but most of t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12686	12813	
==>rig,
		$.param => type::variable::free->new()
	);
	\%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.bod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6080	6171	
==>lex.t> test 
actually roundtrip parses this document successfully. However, more complex POD <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6080	6171	
==>lex.t> test 
actually roundtrip parses this document successfully. However, more complex POD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34100	34226	
==>ms}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34100	34226	
==>ms}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34100	34226	
==>ms}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3714	3818	
==>L::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3714	3818	
==>L::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3714	3818	
==>L::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18235	18350	
==>ble method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18235	18350	
==>ble method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18235	18350	
==>ble method it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12714	12799	
==>w(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12714	12799	
==>w(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12714	12799	
==>w(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1919	2076	
==>e_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3436	3527	
==>Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNO <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3436	3527	
==>Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3555	3705	
==>= shift;
                exists $self->get_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12628	12743	
==>ther!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13636	13751	
==>ther!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15161	15276	
==>ther!body.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2092	2198	
==>for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2092	2198	
==>for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2092	2198	
==>for us to work around this; by the time the
  # source is compiled to PIL1, global subs will already have l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3226	3381	
==>uant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3473	3628	
==>uant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	517	620	
==>vides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'run' called <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1043	1143	
==>, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1043	1143	
==>, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1043	1143	
==>, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9122	9294	
==>item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9122	9294	
==>item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9122	9294	
==>item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12782	12905	
==>('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12782	12905	
==>('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12782	12905	
==>('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38269	38366	
==>em C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42818	42915	
==>em C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42468	42565	
==>em C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	172	276	
==>nerate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	172	276	
==>nerate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7465	7560	
==>head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Littl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1693	1788	
==>head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Littl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14733	14889	
==>+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14733	14889	
==>+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.L <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14733	14889	
==>+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.L <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1796	1895	
==>r anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@di <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32969	33067	
==>tributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32969	33067	
==>tributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22550	22643	
==>A Relation object has 2 main attributes (implementation details subject to
change) plus 1 extr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27102	27195	
==>A Relation object has 2 main attributes (implementation details subject to
change) plus 1 extr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	913	1050	
==>a ", ref $thing;
    }

    return $self;
}

package Test::Harness::Iterator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() d <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1551	1645	
==>HTML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1551	1645	
==>HTML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18980	19100	
==>ue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18980	19100	
==>ue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18980	19100	
==>ue::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16952	17067	
==>", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = find_global "PGE::R <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19020	19126	
==>n
my $flatten_polymorphic = fun(
	param => "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			par <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2774	2867	
==>tem B<source($new_source)>

Returns the representation of this node in the original text, or a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2774	2867	
==>tem B<source($new_source)>

Returns the representation of this node in the original text, or a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6412	6519	
==>types.pod r8593.
multi method Array::as_num (@array:) returns Num {
    +@array;
}

# speculative?
# behavio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14951	15045	
==>he future.  Module names are merely the author's suggestions.

=over 4

=item Regexp::WordBound <==
3	/Users/nnunley/pugs/util/package-osx.pl	11967	12056	
==>ks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($dest, values %change_files, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	541	637	
==>ubstr($<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5134	5307	
==>e = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5134	5307	
==>e = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5134	5307	
==>e = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7324	7414	
==>her order operators: alternation, concatenation.

- "plain" match operators: like 'literal' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7074	7163	
==>her order operators: alternation, concatenation.
- "plain" match operators: like 'literal' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4005	4093	
==>se see L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs T <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2863	3026	
==>use constant ISA_JIB_REPOSITORY_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2185	2320	
==>key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $ke <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2185	2320	
==>key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $ke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	316	451	
==>eed to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	306	432	
==>eed to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1692	1802	
==>('type'))
        || confess "The right hand side must be a core type";    
    ($right->to_num->to_native != 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6307	6411	
==>_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6307	6411	
==>_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6307	6411	
==>_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_in <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9839	9952	
==>h down into quant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21379	21471	
==>written to it should easily port
to alternative relational database engines with minimal effo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21379	21471	
==>written to it should easily port
to alternative relational database engines with minimal effo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1962	2074	
==>";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1962	2074	
==>";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1962	2074	
==>";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1231	1333	
==>-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1231	1333	
==>-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1231	1333	
==>-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1941	2056	
==>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1941	2056	
==>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1941	2056	
==>_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_pars <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13896	14035	
==>$//;  # remove sigil
            return $n->{op1}{op} . " '$name' => ( $attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #wa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	538	648	
==>uctor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	538	648	
==>uctor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8025	8123	
==>rsection (Relation $other!) returns Relation {

    die "The heading of the relation in $other does <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11502	11600	
==>rsection (Relation $other!) returns Relation {

    die "The heading of the relation in $other does <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14618	14713	
==>Rb0,Rb1), !.
%# XXX - not quite right... need some symetric op pairs.
re_reverse(bos,eos).
re_re <==
3	/Users/nnunley/pugs/util/build_pugs.pl	250	350	
==>Bin; chdir '..'; };
use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1223	1320	
==>nts 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEA <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1223	1320	
==>nts 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17474	17564	
==>initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17474	17564	
==>initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2529	2638	
==>sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2529	2638	
==>sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2529	2638	
==>sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13111	13233	
==>->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$resu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13111	13233	
==>->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$resu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6781	6890	
==>hr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	335	473	
==>> 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	335	473	
==>> 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDA <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	352	600	
==>{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrSc <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1288	1506	
==>t');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate( <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1288	1506	
==>t');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2426	2537	
==>SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2426	2537	
==>SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2426	2537	
==>SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	561	676	
==>Pos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	561	676	
==>Pos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	561	676	
==>Pos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5760	5869	
==>)->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5760	5869	
==>)->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5760	5869	
==>)->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Per <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4002	4164	
==>y?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @fo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4466	4628	
==>y?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @fo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7331	7433	
==>test($x);
	}
    }
}
# signature from S29draft.pod 8655.  In the List section.
multi Array::grep (@valu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12084	12203	
==>ailable( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $ins <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2267	2385	
==>e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->qu <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2267	2385	
==>e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	624	728	
==>=> 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	624	728	
==>=> 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	624	728	
==>=> 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9998	10094	
==>ods for iterating through the set, and for querying 
set properties.

Note that all set functions <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9998	10094	
==>ods for iterating through the set, and for querying 
set properties.

Note that all set functions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9613	9707	
==>uire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9613	9707	
==>uire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9613	9707	
==>uire_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # X <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33021	33132	
==>in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37571	37682	
==>in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36915	37026	
==>in
exactly one of the source Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12621	12749	
==>ndefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12621	12749	
==>ndefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12621	12749	
==>ndefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns delet <==
3	/Users/nnunley/pugs/util/package-osx.pl	1344	1452	
==>w(
        /usr/local/bin/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/loc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6016	6114	
==>ficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6016	6114	
==>ficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5661	5793	
==>tensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9293	9386	
==>l($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

R <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9293	9386	
==>l($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1577	1671	
==>egory;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1577	1671	
==>egory;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4187	4290	
==>pecial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspecti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4187	4290	
==>pecial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspecti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4187	4290	
==>pecial cases within it to deal with 
## meta-circularity issues and other such ugliness 

## introspecti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9559	9675	
==>ef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9559	9675	
==>ef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9559	9675	
==>ef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4546	4675	
==>($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->emit if @a == 1;
    my @fs = map { $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21341	21440	
==>>new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44248	44347	
==>>new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7378	7560	
==>0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7378	7560	
==>0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	384	485	
==>nce reality check")
# spike has succeeded.  The most of the re_tests are passing.  While
# the spike " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21913	22029	
==>"]
    isarray = pad["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2484	2586	
==>angings its name.



of course that has the problem of supplying Perl.pm itself - but I think to

do it <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2391	2490	
==>angings its name.

of course that has the problem of supplying Perl.pm itself - but I think to
do it <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1459	1635	
==>= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            } <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1459	1635	
==>= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            } <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3159	3255	
==>$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3159	3255	
==>$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12684	12839	
==>delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12684	12839	
==>delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12684	12839	
==>delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16044	16147	
==>n( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19521	19624	
==>n( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relatio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6578	6679	
==>S")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5560	5690	
==>en < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4060	4190	
==>en < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	778	884	
==>e);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering the behavior of the strap  UNIMPL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11942	12073	
==>( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11942	12073	
==>( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11942	12073	
==>( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1327	1454	
==>ults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1327	1454	
==>ults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1327	1454	
==>ults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	409	633	
==>' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragra <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	409	633	
==>' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragra <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23643	23758	
==>$min = shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $failed[-1]) { # don't forget the last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1675	1795	
==>he $method here can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1675	1795	
==>he $method here can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1675	1795	
==>he $method here can be undefined, this is to allow
    # for methods which do not have an implementation. These
    # met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10267	10397	
==>idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10267	10397	
==>idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10267	10397	
==>idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31764	31860	
==>current user is fluent in (and prefers) language A but also understands
language B.  Later on, if <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31764	31860	
==>current user is fluent in (and prefers) language A but also understands
language B.  Later on, if <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	40	130	
==>gischen Zeichen" (sigils)
$, %, @ gekennzeichnet.
#=Kontextunabhängigkeit
Da die kontextab <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1735	1844	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1735	1844	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2765	2867	
==>_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Fi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5854	5953	
==>d is the 
one that actually enciphers the data.  They may choose, however, to override 
any method f <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5854	5953	
==>d is the 
one that actually enciphers the data.  They may choose, however, to override 
any method f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7919	8012	
==>list (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	544	682	
==>ive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	544	682	
==>ive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	544	682	
==>ive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1182	1285	
==>}
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1182	1285	
==>}
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1182	1285	
==>}
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3897	4001	
==>a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3897	4001	
==>a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3897	4001	
==>a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed the paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2460	2569	
==>ts) returns method {
    { (&dispatcher.() // return).get_method($label, %opts) || redo }       
}



(closure <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3128	3229	
==>sult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3674	3775	
==>sult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4821	4932	
==>{
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4821	4932	
==>{
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4821	4932	
==>{
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34267	34381	
==>t;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34267	34381	
==>t;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34267	34381	
==>t;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1966	2064	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1966	2064	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1966	2064	
==>module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2899	3002	
==>ected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $exp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2957	3060	
==>ected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $exp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	319	439	
==>{ "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	319	439	
==>{ "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24367	24466	
==>,[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24367	24466	
==>,[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24367	24466	
==>,[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1934	2086	
==>n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1934	2086	
==>n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1934	2086	
==>n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles v <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1565	1700	
==>tform\n";
        $Config{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4901	4997	
==>jects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4901	4997	
==>jects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4743	4849	
==>ingify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4743	4849	
==>ingify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4743	4849	
==>ingify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6023	6177	
==>e 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6023	6177	
==>e 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6023	6177	
==>e 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2377	2487	
==>nfig{'jib_dir'}->subdir('build');
$config{'build_dir'}        = [ Path::Class::dir('root-') ];

### package fil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18803	18899	
==>ot prepared to
support (such as modification of the compiled re op tree the native
compiler creat <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3093	3189	
==>ot prepared to
support (such as modification of the compiled re op tree the native
compiler creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	423	532	
==>SS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	423	532	
==>SS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	423	532	
==>SS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16617	16726	
==>thod join (Relation::Example *@others) returns Relation::Example {

    # First do some optimizing of the orde <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	721	822	
==>elf, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	721	822	
==>elf, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::C <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1234	1407	
==>'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1234	1407	
==>'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	106	206	
==>x:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	339	453	
==>y traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	339	453	
==>y traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	339	453	
==>y traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2689	2833	
==>{
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2689	2833	
==>{
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2689	2833	
==>{
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7446	7559	
==>>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7446	7559	
==>>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$ev <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16389	16483	
==>the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" at <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16389	16483	
==>the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" at <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3360	3461	
==>desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3418	3519	
==>desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1626	1723	
==>start_index, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3141	3290	
==>kg1, $pkg2, ...)
# 
# Adds a list of JIB::Package instances to the repository.
# 
# =cut
# 
# sub add_packages {
#     my $self = shift;
#     my @ret <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7285	7381	
==>al

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7285	7381	
==>al

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3996	4089	
==>:Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3996	4089	
==>:Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5520	5613	
==>:Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13348	13446	
==>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13348	13446	
==>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13348	13446	
==>get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	942	1042	
==>dule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new { <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	942	1042	
==>dule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10972	11109	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10972	11109	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10972	11109	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3510	3626	
==>if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toString');
        if $Resul <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10392	10486	
==>ctions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10392	10486	
==>ctions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7259	7421	
==>f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7259	7421	
==>f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7259	7421	
==>f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7849	7949	
==>nc($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return cor <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7849	7949	
==>nc($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return cor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3707	3824	
==>0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    re <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2664	2755	
==>.compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2664	2755	
==>.compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2970	3101	
==>ame => 'try',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13013	13110	
==>=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13013	13110	
==>=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

= <==
3	/Users/nnunley/pugs/util/package-osx.pl	1239	1356	
==>ib/libreadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks = qw(
        /u <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13300	13395	
==>.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set conta <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13300	13395	
==>.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set conta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7268	7394	
==>[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7256	7382	
==>[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4132	4245	
==>l   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule code_assert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3870	3999	
==>1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3870	3999	
==>1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3870	3999	
==>1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	378	492	
==>Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ter <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5410	5509	
==>$path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5410	5509	
==>$path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2511	2619	
==>$prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2511	2619	
==>$prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2511	2619	
==>$prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2374	2546	
==>nfix( $n )
            if $n->{fixity} eq 'infix';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	591	685	
==>doc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	591	685	
==>doc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4062	4206	
==>d match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4062	4206	
==>d match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	666	765	
==>nment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() creates instances of clas <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4351	4644	
==>nk_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LINKING unless $link_this;

                my @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14958	15101	
==>,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15237	15380	
==>,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1907	2030	
==>r( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2342	2465	
==>r( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2779	2902	
==>r( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10475	10609	
==>val($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10475	10609	
==>val($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10475	10609	
==>val($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	445	549	
==>r;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	445	549	
==>r;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	445	549	
==>r;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, "PIL", { edi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9953	10075	
==>there's any whitespace in it, or if
    # we're VMS, since VMS requires all parms quoted.  Also, don't quote
    # it if it <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27926	28019	
==>od returns the Message Variable value (a string) associated with
the variable name specified i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27926	28019	
==>od returns the Message Variable value (a string) associated with
the variable name specified i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3741	3948	
==>$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3741	3948	
==>$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3741	3948	
==>$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4204	4308	
==>." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4204	4308	
==>." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4204	4308	
==>." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Clas <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1737	1882	
==>'$Metaext\$'] ) {
        chomp $meta;
        
        print "Indexing '" . basename($meta) ."'\n";
        
        my $href = LoadFile( $meta ) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	548	651	
==>d is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    sa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	606	709	
==>d is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    sa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31377	31471	
==>n in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35927	36021	
==>n in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35145	35239	
==>n in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8049	8185	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8049	8185	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8049	8185	
==>method) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9957	10062	
==>0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9957	10062	
==>0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6053	6158	
==>visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1525	1672	
==>$::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1525	1672	
==>$::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1525	1672	
==>$::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	691	813	
==>is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	691	813	
==>is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	691	813	
==>is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is neater, but c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1549	1677	
==>epends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16007	16099	
==><autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16065	16157	
==><autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13032	13128	
==>:protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13032	13128	
==>:protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13032	13128	
==>:protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6238	6333	
==>ULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6238	6333	
==>ULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6238	6333	
==>ULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	815	925	
==>$res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is default {
   my % <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3807	4020	
==>($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3807	4020	
==>($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6003	6111	
==>$_[0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4929	5027	
==>s can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is a <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4929	5027	
==>s can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8818	8923	
==>ms == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normali <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8818	8923	
==>ms == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normali <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4208	4315	
==>ck->last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14868	14965	
==>ses in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14868	14965	
==>ses in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Roset <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13483	13612	
==>e.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13483	13612	
==>e.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3407	3508	
==>ethod intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.eq <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3407	3508	
==>ethod intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1442	1554	
==>LUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1442	1554	
==>LUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1442	1554	
==>LUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4251	4353	
==>d_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4251	4353	
==>d_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4251	4353	
==>d_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:nam <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3043	3139	
==>urn Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3043	3139	
==>urn Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3227	3348	
==>a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3411	3532	
==>a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5577	5682	
==>)
        || confess "You must set '$name' to a native type";
    $self->{env}->{$name} = reference->new($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2183	2355	
==>>push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2183	2355	
==>>push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2183	2355	
==>>push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6250	6349	
==>'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6250	6349	
==>'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', ' <==
3	/Users/nnunley/pugs/util/package-osx.pl	3931	4028	
==>04.3pm
        /usr/local/man/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15056	15212	
==>et_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15056	15212	
==>et_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15056	15212	
==>et_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4188	4284	
==>cted diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Comp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4188	4284	
==>cted diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Comp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4268	4364	
==>cted diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	819	936	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNativ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	819	936	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNativ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	819	936	
==>2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNativ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	136	234	
==>wd = Path::Class::dir(cwd());

use constant SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1617	1731	
==>der (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$co <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1617	1731	
==>der (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3054	3164	
==>them up here so callbacks can have them.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14093	14191	
==>null string many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12520	12652	
==>[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12514	12646	
==>[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3760	3861	
==>Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3760	3861	
==>Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3760	3861	
==>Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $code.isa(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2183	2306	
==>($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2183	2306	
==>($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2183	2306	
==>($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $i <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1776	1877	
==>($iso8601_dur);
#}

##multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2106	2205	
==>y.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex. <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2106	2205	
==>y.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	805	926	
==>rl6::Run::OnPerl5::X1::BB::pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1701	1794	
==>.

Cipher::Arcfour also includes several attributes which might be interesting to 
people inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1701	1794	
==>.

Cipher::Arcfour also includes several attributes which might be interesting to 
people inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5477	5590	
==>t = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5477	5590	
==>t = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5477	5590	
==>t = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3206	3369	
==>ion><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3206	3369	
==>ion><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4360	4473	
==>ub => $_[1], param => $_[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_cal <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1691	1790	
==>$depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1749	1848	
==>$depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27872	27969	
==>(prog)	((prog)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6972	7094	
==>iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6972	7094	
==>iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6972	7094	
==>iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36017	36172	
==>ms;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36017	36172	
==>ms;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36017	36172	
==>ms;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail = <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	681	778	
==></a></li>\n] for sort @users;

print { $fh } <<'END';
</ul>
<p>
Or <a href="#" onclick="openNewWin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21375	21468	
==>ion written to it should easily port
to alternative relational database engines with minimal e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21375	21468	
==>ion written to it should easily port
to alternative relational database engines with minimal e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11035	11157	
==>);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11035	11157	
==>);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_enti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23741	23852	
==>lasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasses apply 
          ($_ send (add_subc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7969	8114	
==>nction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7969	8114	
==>nction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7969	8114	
==>nction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5290	5398	
==>->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5290	5398	
==>->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5290	5398	
==>->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1774	1931	
==>eable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1774	1931	
==>eable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1774	1931	
==>eable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13034	13132	
==>mands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13034	13132	
==>mands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9217	9352	
==>eport_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1341	1470	
==>eport_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1341	1470	
==>eport_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	181	282	
==>n);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	181	282	
==>n);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	181	282	
==>n);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1114	1245	
==>t->new(1)            } # we are always true

# comparitor

sub _compare {
    my ($left, $right) = @_;
    (blessed($right) && $righ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26592	26685	
==>vocant Relation's header, in which case it returns the identity-one
Relation or the invocant R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31144	31237	
==>vocant Relation's header, in which case it returns the identity-one
Relation or the invocant R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1363	1467	
==>hod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1363	1467	
==>hod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1363	1467	
==>hod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2922	3039	
==>thchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2922	3039	
==>thchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7155	7261	
==>{ -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfiles;
step
  descr  => "Searching for m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8893	8997	
==>rsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summar <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12905	12998	
==>n the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12905	12998	
==>n the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4400	4535	
==>tent_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4400	4535	
==>tent_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5631	5734	
==>class => $S->force_object(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2976	3104	
==>scription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2976	3104	
==>scription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2976	3104	
==>scription = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14448	14569	
==>just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circulari <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14448	14569	
==>just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circulari <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14448	14569	
==>just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circulari <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	579	708	
==>= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	579	708	
==>= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1836	1949	
==>N) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # mer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4978	5112	
==>{
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4978	5112	
==>{
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4978	5112	
==>{
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = sh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2935	3053	
==>} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFil <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3399	3517	
==>} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11171	11271	
==>y $real_rx = $parser->qr;

The regex is formed by calling the qr() method of each node in the tree,
w <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6988	7087	
==>NGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6988	7087	
==>NGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=ite <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5703	5838	
==>([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5703	5838	
==>([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	665	829	
==>methods->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them all a <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	173	263	
==>ethod has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	173	263	
==>ethod has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1886	1984	
==>⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1886	1984	
==>⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10081	10252	
==>on',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10081	10252	
==>on',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15708	15799	
==>Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the ca <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15766	15857	
==>Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the ca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37210	37297	
==>>send('add_attribute', (symbol->new('@:subclasses')      => attribute->new('@:subclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	861	965	
==>" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	861	965	
==>" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	861	965	
==>" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1211	1315	
==>D ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1211	1315	
==>D ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2841	2971	
==>e pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2841	2971	
==>e pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2841	2971	
==>e pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3614	3707	
==>keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Plea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3614	3707	
==>keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Plea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17295	17398	
==>nts the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17295	17398	
==>nts the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17295	17398	
==>nts the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1861	1966	
==>or} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1861	1966	
==>or} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1861	1966	
==>or} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) { <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	703	802	
==>ctive;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somef <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	703	802	
==>ctive;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somef <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	634	723	
==>lue::Completion is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::Va <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1419	1517	
==>n\tCreated '$builddir/$archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to created '$bu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1743	1833	
==>:opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext vers <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1743	1833	
==>:opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2171	2266	
==>he lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2171	2266	
==>he lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2171	2266	
==>he lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15809	15961	
==>bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15809	15961	
==>bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15809	15961	
==>bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    r <==
3	/Users/nnunley/pugs/util/package-osx.pl	11624	11737	
==>iles; 
    print REMOVER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$dest$files[-1]";
    print "Mad <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2464	2564	
==>::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $node = shift;

	$self->resol <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3223	3320	
==>'value' ,'unk';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

n <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5667	5790	
==>945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "z <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5667	5790	
==>945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "z <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1141	1258	
==>elf ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutine
    #&$coro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1541	1645	
==>turn $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1541	1645	
==>turn $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13350	13457	
==>, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::ide <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13350	13457	
==>, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::ide <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13350	13457	
==>, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::ide <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14616	14721	
==>PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14616	14721	
==>PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14616	14721	
==>PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	727	866	
==>~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	727	866	
==>~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2922	3018	
==>chet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13427	13571	
==>hat 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13427	13571	
==>hat 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13427	13571	
==>hat 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	224	328	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	224	328	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	224	328	
==>n bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17325	17419	
==>analagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17325	17419	
==>analagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1391	1556	
==>port {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.define <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1391	1556	
==>port {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.define <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1488	1630	
==>ndencies
    open my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $meta . '/' . $Prerm;
    if( -e $prer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2097	2210	
==>s to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lost their le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2097	2210	
==>s to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lost their le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2097	2210	
==>s to work around this; by the time the
  # source is compiled to PIL1, global subs will already have lost their le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7694	7803	
==>e $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7694	7803	
==>e $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7694	7803	
==>e $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	602	721	
==>shed migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	602	721	
==>shed migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	602	721	
==>shed migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'Mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	393	519	
==>l"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	393	519	
==>l"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	393	519	
==>l"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19226	19354	
==>sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19226	19354	
==>sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19226	19354	
==>sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9167	9283	
==>visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1576	1673	
==>{ $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constru <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1576	1673	
==>{ $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constru <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	728	1034	
==>verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	728	1034	
==>verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	51	147	
==>e JIB::Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

use File::chdir;
use File::Basen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	714	858	
==>$head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	714	858	
==>$head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	714	858	
==>$head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9327	9425	
==>turn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9327	9425	
==>turn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18833	18930	
==>anged

If an I<anyof_class> element is a Unicode property or a Perl class (like
C<\w> or C<\S>), t <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	470	568	
==>est.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an imp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	470	568	
==>est.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	892	997	
==>$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	892	997	
==>$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	892	997	
==>$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10374	10482	
==>gin() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10374	10482	
==>gin() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14489	14588	
==>ed,
  at least the library has some documentation, which can help point you
  in the right direction <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4741	4875	
==>bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4741	4875	
==>bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4741	4875	
==>bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17157	17254	
==>bject, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empt <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17157	17254	
==>bject, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2207	2313	
==>dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2207	2313	
==>dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTT <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	842	944	
==>prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	371	470	
==>Compiler::Rule->compile(<<'RULE')->code();

    <immediate_statement_rule>*
        { return $() }
R <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2677	2768	
==>prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9910	10018	
==>< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	396	486	
==>ompiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	396	486	
==>ompiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5915	6048	
==>ute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5915	6048	
==>ute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5915	6048	
==>ute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            fo <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	769	866	
==>side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	769	866	
==>side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4949	5063	
==>t = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4949	5063	
==>t = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	607	706	
==>red and used locally.
Helpers:: is for more generally useful stuff, and need not be
  implemented im <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	676	782	
==>PTY_STR)
};

subtype Relation::LaxPairAttrType of Pair where {
    .key.does(Str) and (
        (.key eq 'S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1620	1716	
==>mpiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1620	1716	
==>mpiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1988	2095	
==>encee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1988	2095	
==>encee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1988	2095	
==>encee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3649	3761	
==>eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3649	3761	
==>eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3649	3761	
==>eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2495	2618	
==>tive } 
        $self->slice(num->new(0), $self->elems)->to_native
    )     
}

# some of the common list operations

sub h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38163	38259	
==>! )>

This method takes a defined (but possibly empty) Template text string in
its positional par <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38163	38259	
==>! )>

This method takes a defined (but possibly empty) Template text string in
its positional par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6785	6932	
==>boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6785	6932	
==>boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2089	2197	
==>rintable($node)),
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10014	10171	
==>n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10850	11007	
==>n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8170	8275	
==>Name){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	722	826	
==>' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], ex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8930	9031	
==>f;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_en <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8988	9089	
==>f;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10396	10515	
==>eason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2417	2524	
==>eason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2417	2524	
==>eason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16714	16827	
==>e Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16714	16827	
==>e Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16714	16827	
==>e Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	523	645	
==>return
        Date::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour), :m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2943	3031	
==>encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2943	3031	
==>encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	773	891	
==>LD' => sub {
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        },
        'DESTROY' => sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40858	40952	
==>ext that you are willing to distribute,
because that is a practical way of suggesting improveme <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40858	40952	
==>ext that you are willing to distribute,
because that is a practical way of suggesting improveme <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5522	5646	
==>ct($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $f <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6019	6138	
==>ct($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	908	1020	
==>r all the classes to look through
    my @classes = ($class);
    
    #warn "inv: " . $inv->id->to_native . " => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	603	712	
==>ed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "asse <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	603	712	
==>ed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "asse <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16222	16354	
==>ep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19699	19831	
==>ep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19232	19364	
==>ep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11963	12068	
==>His is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11963	12068	
==>His is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11963	12068	
==>His is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	309	414	
==>} => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	309	414	
==>} => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	309	414	
==>} => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1886	1982	
==>luding

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1814	1908	
==>luding
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1171	1354	
==>_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1050	1233	
==>_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3858	3966	
==>ilename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delete{$_->{filen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4181	4298	
==>n refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4181	4298	
==>n refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4181	4298	
==>n refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.or <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15107	15268	
==>head '.$tag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $en <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11721	11817	
==>n common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11721	11817	
==>n common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6454	6562	
==>@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6454	6562	
==>@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6454	6562	
==>@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9460	9631	
==>op);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10451	10622	
==>op);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2019	2130	
==>ons }
       );
}

# sigh ... how you get used to infrastructure you've built up in Perl5

=head1 NAME

Meta::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	210	315	
==>self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	210	315	
==>self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	210	315	
==>self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $se <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3215	3446	
==>erbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_ele <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3215	3446	
==>erbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_ele <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3099	3195	
==>erver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simpl <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3099	3195	
==>erver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10301	10420	
==>module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10301	10420	
==>module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@clas <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8322	8423	
==>eturn "p6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	534	783	
==>rn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	534	783	
==>rn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2420	2545	
==>return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'al <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3182	3283	
==>start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3182	3283	
==>start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended m <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19375	19471	
==>(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5611	5723	
==>n, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5611	5723	
==>n, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5611	5723	
==>n, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16460	16580	
==>$S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12881	13001	
==>$S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	803	937	
==>hable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	803	937	
==>hable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	803	937	
==>hable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4954	5058	
==>|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4954	5058	
==>|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4954	5058	
==>|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::enc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1916	2050	
==>nfo = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Availa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4197	4318	
==>mpiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4051	4169	
==>mpiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15888	15997	
==>) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3625	3732	
==>IL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3625	3732	
==>IL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2415	2536	
==>ssion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2415	2536	
==>ssion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2415	2536	
==>ssion
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and sav <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3162	3294	
==>n ", " => @_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    nil->new();
}

sub reverse {
    my $self = shift;
    lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13509	13627	
==>et_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotatio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13509	13627	
==>et_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotatio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13509	13627	
==>et_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8959	9093	
==>', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8959	9093	
==>', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8959	9093	
==>', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	965	1064	
==>r @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	965	1064	
==>r @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	965	1064	
==>r @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16623	16729	
==>B Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16623	16729	
==>B Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16623	16729	
==>B Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	274	491	
==>@s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab ruleop::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16960	17053	
==>ists mainly to document a certain localization methodology
in an easily accessable manner, suc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16960	17053	
==>ists mainly to document a certain localization methodology
in an easily accessable manner, suc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	782	914	
==>terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	782	914	
==>terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13364	13472	
==>arn "applying @params to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub reduce_thunk {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	22	121	
==>0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$ac <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	22	121	
==>0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$ac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9157	9278	
==>emplate_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9157	9278	
==>emplate_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5623	5723	
==>ackage Regexp::Parser::__object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	75	174	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	75	174	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	75	174	
==>quire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2120	2224	
==>: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2120	2224	
==>: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	806	965	
==>ss;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	806	965	
==>ss;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	806	965	
==>ss;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6251	6386	
==>handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6251	6386	
==>handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at l <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2627	2748	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2627	2748	
==>0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15172	15274	
==>nyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28946	29077	
==>PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGI <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28946	29077	
==>PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGI <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	305	428	
==>PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGI <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5761	5885	
==>);
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5761	5885	
==>);
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1176	1271	
==>roots (as in the example above).  Read a Calculus textbook for details.
This implementation is m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15729	15830	
==>rint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15729	15830	
==>rint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9076	9168	
==>head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::MetaMode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15391	15557	
==>my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15391	15557	
==>my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15391	15557	
==>my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2056	2157	
==>, other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2056	2157	
==>, other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6001	6189	
==>tr' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6001	6189	
==>tr' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6001	6189	
==>tr' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18583	18698	
==>eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eva <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7613	7722	
==>) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7613	7722	
==>) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6216	6382	
==>\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6216	6382	
==>\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6216	6382	
==>\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no war <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14142	14272	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14421	14551	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1265	1366	
==>s')    ];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3815	3913	
==>lass. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3815	3913	
==>lass. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19600	19698	
==>e marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> state <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19600	19698	
==>e marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> state <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11876	12034	
==>eturns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2294	2438	
==>eturns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2294	2438	
==>eturns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15652	15790	
==>ned $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15652	15790	
==>ned $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15652	15790	
==>ned $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not foun <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15735	15832	
==>setta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

= <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15735	15832	
==>setta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2919	3016	
==>g recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2919	3016	
==>g recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2919	3016	
==>g recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1816	1928	
==>t JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1816	1928	
==>t JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1816	1928	
==>t JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1420	1542	
==>e_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1420	1542	
==>e_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1420	1542	
==>e_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed($method) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3063	3227	
==>t ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	708	802	
==>litpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::split <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	708	802	
==>litpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::split <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6281	6378	
==>!~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6281	6378	
==>!~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6281	6378	
==>!~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14721	14834	
==>ld_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14721	14834	
==>ld_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	97	198	
==>e::Reducer::DynamicScoping/;

use strict;
use warnings;
no warnings 'recursion';

sub new {
    my $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13408	13505	
==>ir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13408	13505	
==>ir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13408	13505	
==>ir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5024	5162	
==>Ps; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_le <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	941	1050	
==>o) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#mu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	941	1050	
==>o) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18531	18651	
==>IN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin an <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18531	18651	
==>IN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15809	15915	
==>xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15809	15915	
==>xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15809	15915	
==>xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26470	26588	
==>cates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31022	31140	
==>cates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30024	30142	
==>cates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6478	6576	
==>d by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6478	6576	
==>d by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6478	6576	
==>d by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected result <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3177	3283	
==>.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3177	3283	
==>.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	47	143	
==>ation in the __END__
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use File::Bas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6323	6440	
==>::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6335	6452	
==>::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6109	6228	
==>utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6109	6228	
==>utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6109	6228	
==>utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	971	1071	
==>e Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	971	1071	
==>e Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1518	1618	
==>e Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12852	13008	
==>ce" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12852	13008	
==>ce" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12852	13008	
==>ce" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    m <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17031	17183	
==>ink = HTML::Element->new('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1815	1917	
==>- but can't just make it a singleton
### due to stacked installations
{   my $config  = JIB::Config->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1144	1245	
==>cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1144	1245	
==>cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1144	1245	
==>cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	368	474	
==>)
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	368	474	
==>)
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	368	474	
==>)
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2475	2687	
==>erms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2722	2934	
==>erms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	268	400	
==>e from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compili <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2335	2453	
==>__END__

=pod

=head1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22040	22159	
==>)};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22040	22159	
==>)};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22040	22159	
==>)};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	762	885	
==>PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	762	885	
==>PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	762	885	
==>PIL::PPad";
  }

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1167	1290	
==>8-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1167	1290	
==>8-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1167	1290	
==>8-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8557	8651	
==>t::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_ba <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8615	8709	
==>t::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_ba <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5330	5427	
==>type/;

package type::variable::free;
use base qw/type::variable/;

# a free variable is a placeho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	316	419	
==>re YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	316	419	
==>re YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	316	419	
==>re YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3553	3655	
==>object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3553	3655	
==>object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3553	3655	
==>object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4188	4308	
==>]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4188	4308	
==>]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4188	4308	
==>]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2126	2235	
==>*native*) returns num>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3560	3656	
==>t:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3560	3656	
==>t:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	360	473	
==>} } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	360	473	
==>} } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	360	473	
==>} } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15548	15683	
==>:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15542	15677	
==>:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15150	15247	
==>language
we're going into, or what environmental parameter to pay attention to
to select our langu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5188	5295	
==>find(\&handle_t_file, $_); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3153	3248	
==>erl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3153	3248	
==>erl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22164	22377	
==>arn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22164	22377	
==>arn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22164	22377	
==>arn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3125	3250	
==>atus{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3125	3250	
==>atus{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1794	1889	
==>re parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1794	1889	
==>re parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1794	1889	
==>re parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected (@{[sc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1142	1261	
==>) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval " <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1142	1261	
==>) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval " <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1987	2104	
==>val($code) };
            when 'perl5'   { Pugs::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1149	1270	
==>>env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1149	1270	
==>>env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1149	1270	
==>>env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1503	1602	
==>Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1561	1660	
==>Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9515	9640	
==>g( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.rep <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1614	1729	
==>g( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.rep <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1614	1729	
==>g( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.rep <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5683	5833	
==>ne(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5683	5833	
==>ne(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15951	16057	
==>erl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15951	16057	
==>erl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15951	16057	
==>erl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6319	6425	
==>1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6319	6425	
==>1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6319	6425	
==>1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6200	6333	
==>> Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33791	33885	
==>e items corresponds to
an individual user's (or user role's) preferences such that each says wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33791	33885	
==>e items corresponds to
an individual user's (or user role's) preferences such that each says wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21251	21375	
==>...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21251	21375	
==>...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21251	21375	
==>...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5842	5943	
==>er.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5842	5943	
==>er.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5842	5943	
==>er.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4200	4302	
==>vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4200	4302	
==>vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4200	4302	
==>vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8759	8893	
==>{
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8759	8893	
==>{
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10903	11004	
==>ethod_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10903	11004	
==>ethod_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10903	11004	
==>ethod_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13175	13296	
==>yload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peop <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13175	13296	
==>yload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peop <==
3	/Users/nnunley/pugs/util/package-osx.pl	10072	10184	
==>}
    }
}


# @files are all files that will be removed. The last one passed in is the
# remover that will be ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6224	6320	
==>it_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6224	6320	
==>it_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6224	6320	
==>it_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3382	3474	
==>that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3382	3474	
==>that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37574	37694	
==>Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37574	37694	
==>Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37574	37694	
==>Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    un <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22254	22344	
==>s.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> ".. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22254	22344	
==>s.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> ".. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2321	2468	
==>{
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2321	2468	
==>{
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	721	861	
==>};
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	721	861	
==>};
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4120	4241	
==>LD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4120	4241	
==>LD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroi <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4097	4205	
==>cription $.subscription;
    has Class::Events::Event $.event;

    method dispatch {
        dispatch($?SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11082	11212	
==>bdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11082	11212	
==>bdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11082	11212	
==>bdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	352	459	
==>concreate and practical 
# things like Object, Package and Module. It was also created
# by God (which means <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	352	459	
==>concreate and practical 
# things like Object, Package and Module. It was also created
# by God (which means <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	352	459	
==>concreate and practical 
# things like Object, Package and Module. It was also created
# by God (which means <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10554	10720	
==>gs[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-tim <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6895	7061	
==>gs[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-tim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7744	7910	
==>gs[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-tim <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8128	8229	
==>le, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  I <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8128	8229	
==>le, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  I <==
3	/Users/nnunley/pugs/util/package-osx.pl	6845	6941	
==>r/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/man3/Perl6::Perl5::Differen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1951	2098	
==>stance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1951	2098	
==>stance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1951	2098	
==>stance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2458	2560	
==>isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2458	2560	
==>isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2458	2560	
==>isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4096	4195	
==>e->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4096	4195	
==>e->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4096	4195	
==>e->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1619	1735	
==>te every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        return " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	19	123	
==>er::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	19	123	
==>er::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4287	4394	
==>$self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4287	4394	
==>$self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4287	4394	
==>$self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	976	1148	
==>.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + cha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	976	1148	
==>.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + cha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	976	1148	
==>.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3222	3335	
==>e++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3222	3335	
==>e++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3222	3335	
==>e++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10686	10786	
==>ext
time it is called.

=head2 Viewing the Regex

You can get the regex back from the parser with the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19993	20088	
==>system itself, to have the user language data in separate
files (usually XML files I think) from <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19993	20088	
==>system itself, to have the user language data in separate
files (usually XML files I think) from <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2609	2719	
==>n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2609	2719	
==>n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2689	2799	
==>n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8540	8668	
==>goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1596	1724	
==>> substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1531	1655	
==>> substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1010	1120	
==>", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub {
    my ( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	826	927	
==>arp::croak($msg);
    }

}

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>

=head1 SEE AL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9252	9366	
==>my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9252	9366	
==>my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9252	9366	
==>my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5578	5686	
==>(@vars,$var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstraction violation
    my $varli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	102	200	
==>)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	102	200	
==>)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10825	10934	
==>er) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10825	10934	
==>er) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10825	10934	
==>er) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2130	2275	
==>,
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    preceden <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15062	15159	
==>ub which will be able to handle structures of arbitrary depth and of
an arbitrary type. The functi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15120	15217	
==>ub which will be able to handle structures of arbitrary depth and of
an arbitrary type. The functi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3630	3741	
==>ument
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3630	3741	
==>ument
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4623	4724	
==>x> { ... } # define your own m:x()/stuff/

    As with any such syntactic shenanigans, the declaration <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1758	1926	
==>ed" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1758	1926	
==>ed" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1758	1926	
==>ed" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	253	370	
==>e as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every instance should h <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1157	1306	
==>ad1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2 <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1157	1306	
==>ad1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2 <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	81	167	
==>.7/Module/Install/Makefile/Name.pm"
package Module::Install::Makefile::Name;
use Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1211	1316	
==>e:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1211	1316	
==>e:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1211	1316	
==>e:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28451	28551	
==>g> says which attributes are being combined/wrapped, with
its keys being the new tuple-valued attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33003	33103	
==>g> says which attributes are being combined/wrapped, with
its keys being the new tuple-valued attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32131	32231	
==>g> says which attributes are being combined/wrapped, with
its keys being the new tuple-valued attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12494	12645	
==>ay->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12494	12645	
==>ay->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12494	12645	
==>ay->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37949	38044	
==>ing and
whose body contains all of the tuples that are in the invocant Relation::Example but
tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4816	4912	
==>[...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* atten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4816	4912	
==>[...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* atten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4816	4912	
==>[...] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* atten <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1919	2040	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1919	2040	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1919	2040	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12764	12909	
==>Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12764	12909	
==>Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5807	5913	
==>Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5807	5913	
==>Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5807	5913	
==>Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17842	17960	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20722	20840	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24510	24628	
==>, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2333	2441	
==>-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2333	2441	
==>-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2333	2441	
==>-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - fi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	842	967	
==>dule should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir}) };

    if($@) {
        chomp($@) <==
3	/Users/nnunley/pugs/util/func_refact.pl	2654	2776	
==>]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> scor <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16873	16978	
==>itwiseANDExpression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <E <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4878	5011	
==>f ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5342	5475	
==>f ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                f <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2429	2540	
==>xp struct, which gets attached to the op tree.  The struct is used
both to return a compiled regexp, and to prov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12878	12983	
==>s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12878	12983	
==>s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12878	12983	
==>s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21334	21428	
==>UB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21334	21428	
==>UB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21334	21428	
==>UB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	674	796	
==>ng matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	674	796	
==>ng matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32427	32541	
==>cope (like a CLOSE).

=item vis

The visual representation of this object.

=item zerolen

Whether this object does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5463	5637	
==>rpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5463	5637	
==>rpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5463	5637	
==>rpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5423	5532	
==>iner_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5423	5532	
==>iner_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6013	6122	
==>iner_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2248	2349	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2248	2349	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2248	2349	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1018	1144	
==>n.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1018	1144	
==>n.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1018	1144	
==>n.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1190	1292	
==>eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1190	1292	
==>eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1190	1292	
==>eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1792	1902	
==>2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..9 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1792	1902	
==>2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..9 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1792	1902	
==>2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..9 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19838	19988	
==>>tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19838	19988	
==>>tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19838	19988	
==>>tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5349	5490	
==>nboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5349	5490	
==>nboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5349	5490	
==>nboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the val <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6575	6675	
==>::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = subs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7084	7181	
==>lize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(norm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7084	7181	
==>lize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(norm <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1704	1821	
==>IN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $EOUT;
    print $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5011	5109	
==>ars the object's internal state.  This should be called as the last 
step of enciphering.

=item C< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5011	5109	
==>ars the object's internal state.  This should be called as the last 
step of enciphering.

=item C< <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	134	259	
==>{
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41048	41142	
==>ger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that su <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41048	41142	
==>ger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2423	2557	
==>.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2423	2557	
==>.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2423	2557	
==>.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2454	2598	
==>{
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2454	2598	
==>{
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2454	2598	
==>{
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	154	271	
==>ar cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	154	271	
==>ar cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	154	271	
==>ar cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	96	217	
==>';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no stric <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	96	217	
==>';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no stric <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	96	217	
==>';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no stric <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5981	6086	
==>w_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capture_clo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5793	5893	
==>w_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capture_clo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35200	35296	
==>uccession.  We
also inherit visual()Z and walk()Z<>.

However, we need to define our own qr() met <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1288	1396	
==>erl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1346	1454	
==>erl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1	111	
==>sub plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1	111	
==>sub plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1	111	
==>sub plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	879	1003	
==>lf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	879	1003	
==>lf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	879	1003	
==>lf->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4887	5024	
==>ethod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4887	5024	
==>ethod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self! <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4416	4530	
==>re's my doubt. In Preluded code, do I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm g <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4389	4491	
==>en = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10170	10263	
==>header> method which is
described below.

=item $h->header( $field )

=item $h->header( $field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10170	10263	
==>header> method which is
described below.

=item $h->header( $field )

=item $h->header( $field <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5454	5562	
==>++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5454	5562	
==>++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5454	5562	
==>++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1933	2033	
==>id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1933	2033	
==>id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1933	2033	
==>id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6483	6583	
==>gs:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6495	6595	
==>gs:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31936	32032	
==>related to this object (like for OPEN and back
references).

=item off

The flags specifically tu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9322	9557	
==>r @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift( <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9322	9557	
==>r @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3055	3144	
==>ives(W, Z) --> "|", p6_conjunction(X), p6_alternatives(union(W,X), Z), !.
p6_alternatives( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18726	18825	
==>lass above would render as C<[\w:]>.

=back

=head2 0.021 -- July 3, 2004

=over 4

=item I<anyof_cl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20742	20833	
==>o L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I<t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20742	20833	
==>o L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I<t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5609	5708	
==>kips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5609	5708	
==>kips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7133	7232	
==>kips all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4162	4260	
==>annels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4162	4260	
==>annels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~no <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9853	10061	
==>*>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->dige <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18711	18808	
==>gs to show human users.  This association would normally be
stored in a Perl file that defines and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18711	18808	
==>gs to show human users.  This association would normally be
stored in a Perl file that defines and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15897	16036	
==>f->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15897	16036	
==>f->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15897	16036	
==>f->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_method(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9974	10075	
==>~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9974	10075	
==>~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9974	10075	
==>~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2114	2252	
==>nored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2114	2252	
==>nored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2114	2252	
==>nored.";
      $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2699	2819	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2699	2819	
==>): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8826	8985	
==>tem;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8826	8985	
==>tem;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8826	8985	
==>tem;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	386	512	
==>src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1175	1301	
==>src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3304	3425	
==>on)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3304	3425	
==>on)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4828	4949	
==>on)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10088	10194	
==>isconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10088	10194	
==>isconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1314	1439	
==>alse;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1314	1439	
==>alse;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1314	1439	
==>alse;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1353	1456	
==>er.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1353	1456	
==>er.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1353	1456	
==>er.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{prelud <==
3	/Users/nnunley/pugs/util/func_refact.pl	2315	2432	
==>\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$can <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1213	1312	
==>ns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1213	1312	
==>ns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14087	14191	
==>t' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, \$how <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15515	15615	
==>start or end value of the span.

These methods may raise a warning if the new value would put the spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15515	15615	
==>start or end value of the span.

These methods may raise a warning if the new value would put the spa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	626	738	
==>e, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	626	738	
==>e, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18151	18247	
==>e nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18151	18247	
==>e nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12771	12865	
==>e, and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It may not be po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14210	14299	
==>bute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14210	14299	
==>bute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14210	14299	
==>bute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23102	23229	
==>x => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	902	1003	
==>) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	913	1014	
==>) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19016	19136	
==>Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19016	19136	
==>Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19016	19136	
==>Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8601	8825	
==>d;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9065	9289	
==>d;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3800	3908	
==>turn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3800	3908	
==>turn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3800	3908	
==>turn;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2733	2875	
==>archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'POSTINST.pl'   ] <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6815	6915	
==>that if I get to the end of the line and find no closing match, I should
ignore the opening one. Howe <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6815	6915	
==>that if I get to the end of the line and find no closing match, I should
ignore the opening one. Howe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12723	12872	
==>e( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12723	12872	
==>e( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12723	12872	
==>e( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21361	21458	
==>schmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21361	21458	
==>schmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	197	311	
==>:Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	197	311	
==>:Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	197	311	
==>:Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1454	1541	
==>te('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1454	1541	
==>te('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1454	1541	
==>te('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1547	1641	
==>Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1547	1641	
==>Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurp <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1176	1270	
==>GV = sort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1698	1847	
==>@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1698	1847	
==>@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1698	1847	
==>@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1201	1307	
==>aram("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smok <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10070	10164	
==>fined to facilitate the
testing of those features. For more information see the FUTURE PLANS
se <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10128	10222	
==>fined to facilitate the
testing of those features. For more information see the FUTURE PLANS
se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1355	1482	
==>nes" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1355	1482	
==>nes" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1564	1691	
==>nes" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	343	444	
==>T_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_N <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	343	444	
==>T_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_N <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	276	367	
==>sing was simply to
permit refactoring with confidence.

It uses Language::Prolog::Yaswi, whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	398	509	
==>c)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	398	509	
==>c)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	398	509	
==>c)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5987	6072	
==>n "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5987	6072	
==>n "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5987	6072	
==>n "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12113	12222	
==>asses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12113	12222	
==>asses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12113	12222	
==>asses); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8076	8187	
==>t"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8076	8187	
==>t"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8076	8187	
==>t"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4058	4158	
==>r $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4058	4158	
==>r $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4058	4158	
==>r $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FE <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9575	9691	
==>1" ) if $taint;

    # When taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command l <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1204	1310	
==>Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1204	1310	
==>Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4392	4481	
==>e_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4392	4481	
==>e_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4392	4481	
==>e_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	135	284	
==>y() instead");
    $self->family(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1720	1817	
==>lue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1720	1817	
==>lue.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16571	16691	
==>(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16571	16691	
==>(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16571	16691	
==>(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( or <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5959	6058	
==>SES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5959	6058	
==>SES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8156	8255	
==>SES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2241	2357	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2241	2357	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2241	2357	
==>ame) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22378	22484	
==>s $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22657	22763	
==>s $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	521	615	
==>lanced delimited/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	751	868	
==>tive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	751	868	
==>tive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	751	868	
==>tive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9760	9883	
==>FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9760	9883	
==>FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9760	9883	
==>FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8065	8167	
==>:as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8065	8167	
==>:as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8065	8167	
==>:as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4575	4683	
==>l6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4575	4683	
==>l6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4575	4683	
==>l6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10767	10885	
==>"CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10767	10885	
==>"CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10767	10885	
==>"CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	497	621	
==>f ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	497	621	
==>f ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	497	621	
==>f ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    loca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19208	19329	
==>) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15629	15750	
==>) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	713	821	
==>+ 0);
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_nati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1075	1186	
==>turn $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14634	14732	
==>od_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14634	14732	
==>od_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14634	14732	
==>od_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6530	6652	
==>/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::Tru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6530	6652	
==>/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::Tru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6530	6652	
==>/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::Tru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4790	4893	
==>g, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4790	4893	
==>g, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4790	4893	
==>g, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5363	5468	
==>y'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5363	5468	
==>y'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5363	5468	
==>y'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	224	330	
==>ym('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34209	34301	
==>upper bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3602	3739	
==>s[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3602	3739	
==>s[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3602	3739	
==>s[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5629	5751	
==>on of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5629	5751	
==>on of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5629	5751	
==>on of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2177	2419	
==>\@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3765	4007	
==>\@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3341	3440	
==>tential willingness to do a
core patch if one proves necessary to go the last mile.

=head1 BUGS

Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22930	23052	
==>def);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22930	23052	
==>def);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22930	23052	
==>def);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4963	5079	
==>c;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16920	17012	
==>ttribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16920	17012	
==>ttribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8183	8289	
==>ation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11660	11766	
==>ation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10842	10948	
==>ation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5121	5251	
==>ined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5121	5251	
==>ined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5121	5251	
==>ined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	406	511	
==>ass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	406	511	
==>ass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	406	511	
==>ass $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1901	2023	
==>__PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_compile($code);
        d <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1174	1288	
==>esis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circum <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1174	1288	
==>esis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circum <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3417	3535	
==>y $class = B::class($obj);

		return $class unless $class eq "PVMG";

		my $flags = $obj->flagspv;

		return "IV" if $f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6598	6695	
==>turns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6598	6695	
==>turns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2955	3072	
==>ure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_pre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20103	20202	
==>ram binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20103	20202	
==>ram binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
progr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5255	5369	
==>\$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5255	5369	
==>\$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5255	5369	
==>\$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3906	4002	
==>i-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3906	4002	
==>i-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3906	4002	
==>i-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	299	408	
==>RHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	299	408	
==>RHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	299	408	
==>RHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15852	16014	
==>{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16131	16293	
==>{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3821	3922	
==>ar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule PostAsteriskCommentChars { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2088	2381	
==>, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use const <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	338	453	
==>rn $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	338	453	
==>rn $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8314	8411	
==>lanned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8372	8469	
==>lanned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	2	111	
==>Assignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	2	111	
==>Assignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	2	111	
==>Assignment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5668	5769	
==>.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5668	5769	
==>.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5668	5769	
==>.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5916	6043	
==>($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5916	6043	
==>($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5916	6043	
==>($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3971	4068	
==>uldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3971	4068	
==>uldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3971	4068	
==>uldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6986	7107	
==>dary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boun <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6986	7107	
==>dary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5279	5434	
==>assed"}        = 1;
            $status->{"really_passed"} = _('$.passed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30444	30539	
==>usive alternative for the rest
of the set. There is a separate template module for each distinct <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30444	30539	
==>usive alternative for the rest
of the set. There is a separate template module for each distinct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8526	8653	
==>aram = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8526	8653	
==>aram = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8526	8653	
==>aram = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $clas <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13915	14061	
==>ruct( struct => 
                    { bin => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out al <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	707	823	
==>ft @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	707	823	
==>ft @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	793	893	
==>xed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	793	893	
==>xed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	793	893	
==>xed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	323	495	
==>ss,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {}, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	323	495	
==>ss,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {}, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	323	495	
==>ss,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {}, <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2840	2959	
==>nd down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        whe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1796	1914	
==>t;
	my $val = shift;
	my $type = shift || $val->type;

	Blondie::TypeSafe::Annotation->new(
		type => $type,
		struct_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	440	535	
==>t_runcode(i,0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NU <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17292	17396	
==>ps the most flexible place to allocate large data
which Perl_re_dup will copy for us.

    New(0, ret->of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17154	17254	
==>. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEF <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17154	17254	
==>. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEF <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3933	4102	
==>e}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3812	3975	
==>e}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $ca <==
3	/Users/nnunley/pugs/util/package-osx.pl	173	282	
==>install'ing pugs and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/? <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	591	681	
==>moved redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	591	681	
==>moved redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	29	147	
==>le;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	29	147	
==>le;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2358	2487	
==>gs => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2905	3034	
==>gs => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3452	3581	
==>gs => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	661	791	
==>\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concaten <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	661	791	
==>\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concaten <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5443	5546	
==>of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5443	5546	
==>of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4726	4830	
==>must be visible
    in the lexical scope to have any effect. It's possible the
    internal/external dist <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5101	5199	
==>coding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A strin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5101	5199	
==>coding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A strin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26925	27025	
==>vided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26925	27025	
==>vided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Ke <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	48	139	
==>Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

packag <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2757	2950	
==>tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$da <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13381	13519	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13660	13798	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7411	7519	
==>, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7411	7519	
==>, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7411	7519	
==>, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16123	16222	
==>ive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16123	16222	
==>ive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16123	16222	
==>ive
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2800	2896	
==>xternal packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2800	2896	
==>xternal packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	300	393	
==>s should be displayed as UTC (Time::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1100	1285	
==>on);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, @rv;
        @rv;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19070	19163	
==>ame> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
tr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19070	19163	
==>ame> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6384	6482	
==>IL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6384	6482	
==>IL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6384	6482	
==>IL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7535	7659	
==>", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _nor <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7535	7659	
==>", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _nor <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2490	2589	
==>at Newton's method is ever really good at that).

=head2 The Defaults

Note that Perl 6 allows us to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35151	35276	
==>ody=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35151	35276	
==>ody=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35151	35276	
==>ody=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3081	3212	
==>> 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3081	3212	
==>> 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12030	12134	
==>@path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12030	12134	
==>@path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12030	12134	
==>@path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3552	3657	
==>$self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::look <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3552	3657	
==>$self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::look <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3552	3657	
==>$self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::look <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6704	6792	
==>e(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.del <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6704	6792	
==>e(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7069	7173	
==>lect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done aga <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7069	7173	
==>lect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done aga <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7069	7173	
==>lect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done aga <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1804	1897	
==>able::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This libr <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1804	1897	
==>able::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This libr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7311	7420	
==>opying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7311	7420	
==>opying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7311	7420	
==>opying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce -> $a, $b {; my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6242	6415	
==>ute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6242	6415	
==>ute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6242	6415	
==>ute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6564	6689	
==>ource =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6564	6689	
==>ource =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6564	6689	
==>ource =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7983	8082	
==>t of spans.

The problem this class solves is when you need do perform "set" operations on 
Span obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7983	8082	
==>t of spans.

The problem this class solves is when you need do perform "set" operations on 
Span obj <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11907	12004	
==>t>> or
C<cmp>.

=back

Any Criterion may recieve either or both of the traits C<is descending>
and <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2430	2554	
==>) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2430	2554	
==>) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1454	1555	
==>__PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # ht <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	161	288	
==>art_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        star <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	161	288	
==>art_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        star <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1488	1577	
==>([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	480	593	
==>can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	480	593	
==>can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10282	10373	
==>fault = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocant, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8827	8941	
==>my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "ble <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6738	6837	
==>ALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the h <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6796	6895	
==>ALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1338	1497	
==>.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1338	1497	
==>.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1338	1497	
==>.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1168	1288	
==>0,
    captures => [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan (populates maxpar)
  # becau <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	851	960	
==>case the result is an AST
    
    print Blondie::Emitter::Pretty->new->string($result); # works for all nodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16460	16577	
==>ount++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16460	16577	
==>ount++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16460	16577	
==>ount++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6402	6512	
==>my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # De <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6402	6512	
==>my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # De <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8587	8806	
==>= $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12064	12283	
==>= $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11273	11492	
==>= $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	710	813	
==>eation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	710	813	
==>eation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	710	813	
==>eation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl. <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2898	2988	
==>sbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2898	2988	
==>sbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6667	6784	
==>f $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6667	6784	
==>f $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6667	6784	
==>f $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	934	1061	
==>rl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	934	1061	
==>rl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	934	1061	
==>rl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1240	1352	
==>e nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1240	1352	
==>e nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1240	1352	
==>e nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3216	3326	
==>KT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3216	3326	
==>KT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	457	565	
==>y) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	457	565	
==>y) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2888	2992	
==>e to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $builddir = Path:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5529	5638	
==>$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5529	5638	
==>$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5529	5638	
==>$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	83	206	
==>ts;
use JIB::Dependency;

use YAML                    qw[LoadFile];
use Params::Check           qw[check];
use Log::Message: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	748	841	
==>ds Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	748	841	
==>ds Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	398	535	
==>undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s/\W//g;

    die "Usage: use re::override-flavor" un <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6514	6634	
==>lf;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $resul <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6514	6634	
==>lf;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1208	1329	
==>PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1208	1329	
==>PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1208	1329	
==>PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14982	15081	
==>$v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14982	15081	
==>$v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14982	15081	
==>$v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15803	15926	
==>ined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15797	15920	
==>ined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	683	796	
==>sh    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	683	796	
==>sh    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	683	796	
==>sh    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	876	999	
==>ion       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	876	999	
==>ion       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8048	8151	
==>t has no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7777	7877	
==>t has no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7046	7138	
==>code_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5270	5421	
==>ram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5270	5421	
==>ram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5270	5421	
==>ram{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1520	1626	
==>' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1520	1626	
==>' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1520	1626	
==>' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9665	9776	
==>or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9665	9776	
==>or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3852	3949	
==>!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base = File::Spec->catdir(split(/[\\\/ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	834	962	
==>, 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversion <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16463	16588	
==>ive p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code he <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16463	16588	
==>ive p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code he <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5922	6019	
==>thod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRouti <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5922	6019	
==>thod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRouti <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2821	2918	
==>thod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRouti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16481	16604	
==>$1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12902	13025	
==>$1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2517	2634	
==>$self = shift;
	my $node = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	my $self = shift;
	my $ty <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4876	5020	
==>}
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4876	5020	
==>}
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	265	408	
==>y::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	858	958	
==>tainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	858	958	
==>tainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	858	958	
==>tainer

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate ' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	646	741	
==>= bless {}, $class;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTab <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27967	28058	
==>string) associated with
the variable name specified in the positional parameter $var_name (a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27967	28058	
==>string) associated with
the variable name specified in the positional parameter $var_name (a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14039	14159	
==>xample: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10212	10332	
==>xample: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11048	11168	
==>xample: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $categ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	522	626	
==>ecial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	522	626	
==>ecial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31363	31459	
==>nymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as its so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35913	36009	
==>nymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as its so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35131	35227	
==>nymous function in the argument C<$predicate> returns
True when given the tuple/Mapping as its so <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4272	4391	
==>hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4272	4391	
==>hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4272	4391	
==>hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40960	41072	
==>is ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40960	41072	
==>is ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40960	41072	
==>is ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Per <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33030	33128	
==>of Str - This stores an ordered list of one or more elements where
each element is a Template modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33030	33128	
==>of Str - This stores an ordered list of one or more elements where
each element is a Template modul <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	483	581	
==>pechecking.pdf

# please note that this is nothingmuch's first article that he read from cover
# to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2378	2480	
==>("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2378	2480	
==>("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2378	2480	
==>("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3957	4116	
==>ie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3957	4116	
==>ie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3957	4116	
==>ie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $valu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6744	6841	
==>g.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6744	6841	
==>g.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1360	1464	
==>is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1360	1464	
==>is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1360	1464	
==>is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<li <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	199	298	
==>cument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this versio <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	199	298	
==>cument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this versio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25972	26102	
==>self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2922	3020	
==>closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2922	3020	
==>closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5736	5833	
==>ibjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5736	5833	
==>ibjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5736	5833	
==>ibjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4313	4487	
==>ems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	989	1093	
==>closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	989	1093	
==>closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2379	2473	
==>rl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2379	2473	
==>rl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2379	2473	
==>rl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4625	4775	
==>s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4625	4775	
==>s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4625	4775	
==>s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6960	7103	
==>al!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6728	6865	
==>al!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2964	3084	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as fir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2964	3084	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as fir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2964	3084	
==>ck
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as fir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9694	9790	
==>hod collect_all_roles () { "<implemented>" }  

    # ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9694	9790	
==>hod collect_all_roles () { "<implemented>" }  

    # ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9694	9790	
==>hod collect_all_roles () { "<implemented>" }  

    # ------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14795	14904	
==>xp::Anchor")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1457	1545	
==>pture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.ca <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1457	1545	
==>pture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.ca <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21187	21286	
==>iled = @{$test->{failed}};
            (my $txt, $canon) = _canonfailed($test->{max},$test->{skipped <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13719	13812	
==>umber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13719	13812	
==>umber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12789	12879	
==>::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12789	12879	
==>::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12789	12879	
==>::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2446	2557	
==>'-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2446	2557	
==>'-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2446	2557	
==>'-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5997	6112	
==>=> method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5997	6112	
==>=> method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5997	6112	
==>=> method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2085	2233	
==>>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is k <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2085	2233	
==>>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is k <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2085	2233	
==>>get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	56	172	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	56	172	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	56	172	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9767	9947	
==>arn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9767	9947	
==>arn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9767	9947	
==>arn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch sho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2079	2188	
==>$val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2079	2188	
==>$val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4293	4422	
==>ar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4293	4422	
==>ar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4293	4422	
==>ar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3477	3626	
==>if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3477	3626	
==>if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3477	3626	
==>if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2556	2690	
==>nvalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2556	2690	
==>nvalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2556	2690	
==>nvalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false b <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1465	1571	
==>, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1465	1571	
==>, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12843	12964	
==>$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3210	3323	
==>return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4059	4172	
==>return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_dat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3036	3190	
==>);
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3036	3190	
==>);
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub conc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5962	6092	
==>pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5962	6092	
==>pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5962	6092	
==>pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3627	3792	
==>match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3627	3792	
==>match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3627	3792	
==>match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	126	228	
==>"$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	126	228	
==>"$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	126	228	
==>"$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	852	963	
==>the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	852	963	
==>the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	852	963	
==>the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14694	14839	
==>ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14694	14839	
==>ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14694	14839	
==>ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	400	506	
==>e structure generated by concat() still looks like a tree, instead of a 'plain' Match.

- There are no te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12930	13027	
==>nt object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12930	13027	
==>nt object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	692	795	
==>($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	692	795	
==>($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	692	795	
==>($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are curre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7825	8017	
==>_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11302	11494	
==>_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10466	10658	
==>_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi meth <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	916	1042	
==>++ if $Conf{verbose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc = ($f = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1090	1201	
==>> $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubb <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1090	1201	
==>> $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	562	676	
==>age EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	562	676	
==>age EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	562	676	
==>age EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11692	11805	
==>y );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11692	11805	
==>y );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11692	11805	
==>y );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2722	2818	
==>e' and 'value' pairs.  This
method should be called before any other methods, as it initialises t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2722	2818	
==>e' and 'value' pairs.  This
method should be called before any other methods, as it initialises t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3070	3235	
==>0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3070	3235	
==>0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3139	3320	
==>,
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3139	3320	
==>,
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3139	3320	
==>,
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10537	10703	
==>num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10537	10703	
==>num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10537	10703	
==>num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4265	4369	
==>join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4265	4369	
==>join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4265	4369	
==>join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1526	1633	
==>> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1526	1633	
==>> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1526	1633	
==>> "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13988	14116	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13988	14116	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13988	14116	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ] <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5058	5282	
==>_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our toke <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5058	5282	
==>_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our toke <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1046	1166	
==>_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " x ($inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3883	4006	
==>return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3883	4006	
==>return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # P <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2053	2155	
==>ototype]]>;
    return JSX::true if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	309	400	
==>ed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	309	400	
==>ed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	309	400	
==>ed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5022	5181	
==>'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5022	5181	
==>'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5022	5181	
==>'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15438	15538	
==>ns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15496	15596	
==>ns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12702	12800	
==>y flakier (modulo memory issues),
  might suffice, be easier to create, and be more portable.
  htt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2581	2691	
==>e;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2581	2691	
==>e;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2581	2691	
==>e;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11159	11321	
==>> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11159	11321	
==>> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11159	11321	
==>> $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8508	8639	
==>f;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8508	8639	
==>f;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8508	8639	
==>f;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::SE <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1110	1203	
==>hen you use the C<type> keyword.  Or maybe the full package
name (C<Type--Perl6>) disambiguate <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2235	2323	
==>size <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2235	2323	
==>size <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20984	21082	
==>r> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20984	21082	
==>r> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20984	21082	
==>r> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<x <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13395	13519	
==>ijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16872	16996	
==>ijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16234	16358	
==>ijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6836	6938	
==>=> $self->{grammar} );
}

sub exists_op { die "not implemented" };
sub delete_op { die "not impleme <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10318	10412	
==>universe => $universe )`

Creates a recurrence set.

The complementary functions are emulated u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10318	10412	
==>universe => $universe )`

Creates a recurrence set.

The complementary functions are emulated u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6074	6199	
==>b node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3243	3366	
==>b node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4092	4215	
==>b node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    p <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7651	7753	
==>sure => sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	512	611	
==>e = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	512	611	
==>e = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7187	7276	
==>d($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7187	7276	
==>d($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7187	7276	
==>d($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16658	16766	
==>t.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16658	16766	
==>t.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16658	16766	
==>t.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8144	8394	
==>shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12133	12307	
==>shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12133	12307	
==>shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSA <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10922	11035	
==>dle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $lin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10922	11035	
==>dle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $lin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6774	6906	
==>ure
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6774	6906	
==>ure
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11914	12033	
==>pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @pat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11914	12033	
==>pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @pat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11914	12033	
==>pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	664	784	
==>_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	664	784	
==>_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	664	784	
==>_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4489	4582	
==>r($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4489	4582	
==>r($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4489	4582	
==>r($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3207	3316	
==>have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3207	3316	
==>have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3207	3316	
==>have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8895	9028	
==>methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8895	9028	
==>methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8895	9028	
==>methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DEST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3078	3194	
==>ram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} | <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3078	3194	
==>ram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} | <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3078	3194	
==>ram{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8069	8213	
==>rg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8069	8213	
==>rg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8069	8213	
==>rg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str-> <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1252	1390	
==>ent =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2294	2393	
==>l tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=he <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2294	2393	
==>l tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2356	2473	
==>params->fetch(num->new($i));
        my $param_type = $param->type->to_native;
        my $arg        = $args->fetch(n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8111	8206	
==>l parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.ins <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8111	8206	
==>l parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9150	9253	
==>LTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9150	9253	
==>LTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9150	9253	
==>LTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2215	2309	
==>ypically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> wi <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2215	2309	
==>ypically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> wi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30191	30280	
==>ase it returns the identity-one
Relation::Example or the invocant Relation::Example respec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3573	3708	
==>rom = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3573	3708	
==>rom = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3573	3708	
==>rom = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$fr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	542	642	
==>s $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::U <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	542	642	
==>s $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::U <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3675	3780	
==>immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3675	3780	
==>immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3675	3780	
==>immediately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10694	10847	
==>-- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            lo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7035	7188	
==>-- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7884	8037	
==>-- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            lo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	563	705	
==>tart, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unsh <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	563	705	
==>tart, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39575	39665	
==>---------------------------------------------
## now build Object, so we can create somethi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7726	7827	
==>ss [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7726	7827	
==>ss [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7726	7827	
==>ss [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7108	7289	
==>atch->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6870	7041	
==>atch->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	453	578	
==>";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-sty <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	147	244	
==>rewrite of the matching engine, aiming to generate the same data structure as
the 'ratchet' versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2327	2432	
==>e'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2327	2432	
==>e'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2327	2432	
==>e'     => $::Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Ob <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5897	6010	
==>my $rep = ucfirst $n->rep_type;
        my $type = $n->{'type'};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_ty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17175	17270	
==>ter, if any other package or application says that it uses
Locale::KeyedText, that is a terse wa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17175	17270	
==>ter, if any other package or application says that it uses
Locale::KeyedText, that is a terse wa <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12721	12830	
==>) }
    method next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where thi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13132	13229	
==>ed.

If called in void context the arguments are decoded in-place.

This routine is exported by de <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13132	13229	
==>ed.

If called in void context the arguments are decoded in-place.

This routine is exported by de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1401	1512	
==>{ PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1401	1512	
==>{ PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1401	1512	
==>{ PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5922	6027	
==>::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5922	6027	
==>::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5922	6027	
==>::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Shou <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6610	6711	
==>e by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6610	6711	
==>e by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8017	8105	
==>::instantiated', 'type::variable::instantiated') => sub { unify($_[0]{instance}, $_[1]{in <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4020	4141	
==>VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $sel <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2971	3079	
==>VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11598	11717	
==>while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15075	15194	
==>while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14410	14529	
==>while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given rel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7904	8010	
==>ed.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! " <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7962	8068	
==>ed.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3482	3583	
==>s'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3482	3583	
==>s'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3482	3583	
==>s'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14267	14402	
==>t()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17744	17879	
==>t()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17160	17295	
==>t()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3334	3430	
==>$path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (* <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3334	3430	
==>$path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (* <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35968	36062	
==>are in either or both of the
invocant Relation::Example and C<$other>; any duplicated tuples ap <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	829	957	
==>gnature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Var <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	829	957	
==>gnature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Var <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17159	17275	
==>rn goto end
    pad = new .Hash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad[" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	375	495	
==>e given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	375	495	
==>e given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	375	495	
==>e given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6316	6423	
==>=> 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6316	6423	
==>=> 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3388	3532	
==>=> undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3388	3532	
==>=> undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3388	3532	
==>=> undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17141	17227	
==>e_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17141	17227	
==>e_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17141	17227	
==>e_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:attri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13646	13740	
==>in the recommended "Good Practice" order.

In scalar context return the number of distinct fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13646	13740	
==>in the recommended "Good Practice" order.

In scalar context return the number of distinct fiel <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2214	2341	
==>( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) {
        when $_ < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4134	4232	
==>trip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [- <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4134	4232	
==>trip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3730	3837	
==>*@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3730	3837	
==>*@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3730	3837	
==>*@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argum <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6622	6733	
==>quiv;
	join("\n\t", "", map { "$_;" } $seq->values);
}

sub emit {
	my $self = shift;
	my $prog = shift;

	use D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2847	2943	
==>t and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2743	2836	
==>t and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compile <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2897	2987	
==>ule_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2897	2987	
==>ule_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	180	285	
==>Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	180	285	
==>Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5565	5710	
==>shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5565	5710	
==>shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5565	5710	
==>shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8260	8430	
==>{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8260	8430	
==>{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8260	8430	
==>{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	606	709	
==>->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	606	709	
==>->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	606	709	
==>->new();
# do this (and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	483	584	
==>my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	689	790	
==>my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9773	9866	
==>is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10307	10441	
==>stplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2340	2458	
==>stplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2340	2458	
==>stplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8888	8994	
==>s 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mung <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8888	8994	
==>s 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mung <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1774	1898	
==>lready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1774	1898	
==>lready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1774	1898	
==>lready added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	766	876	
==>auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - al <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	766	876	
==>auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - al <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	766	876	
==>auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - al <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7632	7736	
==>ulpat,nulpat,pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2474	2575	
==>er contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2474	2575	
==>er contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3040	3189	
==>~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3040	3189	
==>~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3040	3189	
==>~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($lin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	162	310	
==>ssing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Inf <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	162	310	
==>ssing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12043	12214	
==>ie \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8325	8496	
==>ie \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9159	9330	
==>ie \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1718	1833	
==>$unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1718	1833	
==>$unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1718	1833	
==>$unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CO <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	200	303	
==>Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a : $b
$wahr.tertiary:<?? !!>($a, $b) # keine Ah <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1560	1654	
==>perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1560	1654	
==>perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	321	430	
==>ub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	321	430	
==>ub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	321	430	
==>ub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7024	7181	
==>{

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'nul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6789	6941	
==>{
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'nul <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	795	901	
==>ests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	853	959	
==>ests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2626	2777	
==>NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
        $args->{SIGN} = 1;
    }
    unless ( $self->is_admi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4311	4461	
==>ath ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4311	4461	
==>ath ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17162	17253	
==>UB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17162	17253	
==>UB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17162	17253	
==>UB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	683	782	
==>Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	683	782	
==>Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> ( <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2752	2848	
==>name> ||= Set.new ).insert($subscription);
            $subscriber.note_subscription($subscriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20540	20638	
==>1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20540	20638	
==>1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20540	20638	
==>1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1330	1447	
==>($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1330	1447	
==>($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1330	1447	
==>($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5715	5821	
==>j, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5715	5821	
==>j, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5715	5821	
==>j, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	862	1011	
==>mmar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs::G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5349	5454	
==>ole) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	977	1075	
==>:signature;

use strict;
use warnings;

use base 'closure::signature';

package method::params;

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1907	2012	
==>p(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1907	2012	
==>p(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1907	2012	
==>p(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3153	3300	
==>r;
          &$reduce_helper($var,$ops);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8178	8275	
==>els he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8178	8275	
==>els he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13746	13848	
==>f, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13746	13848	
==>f, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13746	13848	
==>f, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	39	151	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	39	151	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	39	151	
==>trict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	980	1108	
==>t->name->to_native eq $right->name->to_native && 
           $left->type->to_native eq $right->type->to_native;
    return bit->n <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	191	297	
==>se improve me!
#
# TODO:
# 1. Modularize this.
# 2. Get to work concurrently with 'make test'
# 3. 'make sm <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19312	19413	
==>NoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentEx <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1685	1787	
==>elf->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functio <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1685	1787	
==>elf->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3904	4000	
==>Reference Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has $.property_na <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19855	19954	
==>n array context it will return two
values; the user name and the password.  In scalar context it wil <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19855	19954	
==>n array context it will return two
values; the user name and the password.  In scalar context it wil <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11559	11653	
==>he elements in this recurrence that are not in the given recurrence.

- `intersects( $recurrenc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11559	11653	
==>he elements in this recurrence that are not in the given recurrence.

- `intersects( $recurrenc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32100	32196	
==>body contains all of the tuples that are in either or both of the
invocant Relation and C<$other> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36650	36746	
==>body contains all of the tuples that are in either or both of the
invocant Relation and C<$other> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3140	3238	
==>eed to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3140	3238	
==>eed to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the par <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17384	17493	
==>he first param and the second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20570	20666	
==>t become available over time.  One plan which I favor is that
the new (under development) enterpr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20570	20666	
==>t become available over time.  One plan which I favor is that
the new (under development) enterpr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9320	9429	
==>)                --> {true}.
p5_charset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_chars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	299	405	
==>n filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines ar <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	299	405	
==>n filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19309	19436	
==>,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15730	15857	
==>,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1479	1579	
==>s>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_term'} = P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5718	5827	
==>h @bsrStack, "bsr_token_match2_1";
    goto token_match;
    bsr_token_match2_1:
    goto found_oper if $opera <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2424	2524	
==>d 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEA <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2424	2524	
==>d 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35288	35427	
==>ray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35288	35427	
==>ray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35288	35427	
==>ray->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1354	1463	
==>L::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1354	1463	
==>L::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1354	1463	
==>L::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10364	10543	
==>rams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_req <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10364	10543	
==>rams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_req <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10364	10543	
==>rams) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_req <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8541	8691	
==>r( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4901	5051	
==>r( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5750	5900	
==>r( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3144	3256	
==>:config_vars+version';
        ($perl_version) = (`$cmd` =~ /version='(.*)'/);
    }
    
    return $perl_versio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1593	1692	
==>:Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1593	1692	
==>:Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'stat <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1127	1257	
==>ture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.mu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1127	1257	
==>ture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.mu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13674	13797	
==>out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27124	27217	
==>alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31676	31769	
==>alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30732	30825	
==>alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5945	6070	
==>art;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5945	6070	
==>art;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21371	21465	
==>tribute value.

Every Relation attribute has a name that is distinct from the other
attributes, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25923	26017	
==>tribute value.

Every Relation attribute has a name that is distinct from the other
attributes, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4514	4610	
==>.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4514	4610	
==>.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6038	6134	
==>.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	681	831	
==>ugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	681	831	
==>ugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	681	831	
==>ugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16017	16200	
==>h;
        my $suflen = length $suf;
        $maxlen    = $len    if $len    > $maxlen;
        $maxsuflen = $suflen if $suflen > $maxsuflen;
    }
    # + 3 : we want three dots betwe <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2561	2678	
==>e return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2561	2678	
==>e return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5092	5298	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5092	5298	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5092	5298	
==>ds}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


sub _build <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21752	21895	
==>param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1411	1530	
==>ta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1411	1530	
==>ta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17712	17878	
==>ng( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21189	21355	
==>ng( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20776	20942	
==>ng( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10814	10945	
==>ay'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10814	10945	
==>ay'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10814	10945	
==>ay'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2392	2490	
==>x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2392	2490	
==>x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2392	2490	
==>x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	180	295	
==>y $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	180	295	
==>y $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	180	295	
==>y $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22422	22521	
==>same result when invoked on the
same object with the same arguments; they do not interact with the o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26974	27073	
==>same result when invoked on the
same object with the same arguments; they do not interact with the o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25697	25796	
==>same result when invoked on the
same object with the same arguments; they do not interact with the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6080	6174	
==>} $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6080	6174	
==>} $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6080	6174	
==>} $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + % <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9061	9175	
==>SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT st <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1089	1181	
==>complementary functions are emulated using iterations.

- `new( closure_next => sub {...}, cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1089	1181	
==>complementary functions are emulated using iterations.

- `new( closure_next => sub {...}, cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9017	9185	
==>method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9017	9185	
==>method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9017	9185	
==>method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5462	5642	
==>) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5462	5642	
==>) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5462	5642	
==>) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1150	1255	
==>that is too close to the main namespace for your tastes, and
you want to rebless everything down to your p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1150	1255	
==>that is too close to the main namespace for your tastes, and
you want to rebless everything down to your p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1150	1255	
==>that is too close to the main namespace for your tastes, and
you want to rebless everything down to your p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3145	3257	
==>local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3145	3257	
==>local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3145	3257	
==>local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	879	998	
==>y)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	879	998	
==>y)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	879	998	
==>y)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1778	1885	
==>ge_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: ni <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2476	2578	
==>() returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previous <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2476	2578	
==>() returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3294	3488	
==>o Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3294	3488	
==>o Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3294	3488	
==>o Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1199	1309	
==>R "%sfailed%s.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/ib <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17096	17194	
==>merically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scala <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17096	17194	
==>merically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scala <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14641	14752	
==>ct.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14641	14752	
==>ct.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8596	8701	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8596	8701	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8596	8701	
==>>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11575	11707	
==>nt if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11575	11707	
==>nt if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Sp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3318	3426	
==>self = shift;
		my $node = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4131	4228	
==>boolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4131	4228	
==>boolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used a <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	510	630	
==>$?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $scri <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	510	630	
==>$?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $scri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1665	1788	
==>e_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1665	1788	
==>e_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34297	34387	
==>[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntr <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1726	1853	
==>);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALS <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1726	1853	
==>);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18741	18903	
==>nt to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20589	20697	
==>$S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17010	17118	
==>$S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $sel <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17502	17598	
==>reset()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17502	17598	
==>reset()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34772	34861	
==>Relation::Example or the invocant relation,
respectively.

=item C<restrict (Code $predica <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	159	264	
==>re '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

my %indexed = map { $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37526	37618	
==>r
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_fr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37526	37618	
==>r
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_fr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3669	3783	
==>st::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defau <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3669	3783	
==>st::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defau <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5866	5980	
==>st::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3946	4057	
==>ms) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3946	4057	
==>ms) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3946	4057	
==>ms) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6407	6544	
==>ring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6407	6544	
==>ring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6407	6544	
==>ring);
          if (!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1285	1388	
==>= Pugs::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7957	8059	
==>{ 
    return $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7957	8059	
==>{ 
    return $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2187	2279	
==>f
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2187	2279	
==>f
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2187	2279	
==>f
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2239	2359	
==>get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2239	2359	
==>get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2239	2359	
==>get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1182	1284	
==>tine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1182	1284	
==>tine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10848	11017	
==>e( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsa <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10848	11017	
==>e( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsa <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	545	634	
==>sort.join("\n");
}
my $entry_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4871	4986	
==>st($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4871	4986	
==>st($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4871	4986	
==>st($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19378	19492	
==>st block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19378	19492	
==>st block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4474	4557	
==>range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	369	626	
==>:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's pa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	369	626	
==>:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2207	2335	
==>llable->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accesso <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	22	126	
==>le::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Co <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	22	126	
==>le::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7456	7594	
==>x => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      u <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8384	8477	
==>nt ('line_interpolation')>

This event is begun when any block of characters is interpolated f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8384	8477	
==>nt ('line_interpolation')>

This event is begun when any block of characters is interpolated f <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7589	7758	
==>s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7646	7815	
==>s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    w <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1363	1454	
==>ie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3551	3669	
==>am = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array conca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3551	3669	
==>am = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array conca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4141	4259	
==>am = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array conca <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	769	896	
==>own by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} + <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27214	27310	
==>tion>

This method is a generic relational operator that returns a new Relation
which has a super <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31766	31862	
==>tion>

This method is a generic relational operator that returns a new Relation
which has a super <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	999	1113	
==>]);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	999	1113	
==>]);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	999	1113	
==>]);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	632	786	
==>t ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $scr <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	632	786	
==>t ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $scr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14095	14188	
==>,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

u <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14644	14774	
==>);
        if (exists $index->{$syn}) {
        # This makes later processing easier
        $sobj->objectify_text;

        for my <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4954	5050	
==>re control or access to the header fields in the requests
sent and responses received, then you s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4954	5050	
==>re control or access to the header fields in the requests
sent and responses received, then you s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	377	480	
==>Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	377	480	
==>Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	377	480	
==>Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Modu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35663	35755	
==>tem C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40213	40305	
==>tem C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10463	10553	
==>(($self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_method' => ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4940	5033	
==>:Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4940	5033	
==>:Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4940	5033	
==>:Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14234	14339	
==>b { p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]-> <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2643	2734	
==>p.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http://g <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2643	2734	
==>p.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http://g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7656	7831	
==>nt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7656	7831	
==>nt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7656	7831	
==>nt ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10777	10892	
==>oken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10777	10892	
==>oken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10777	10892	
==>oken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2156	2291	
==>t unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2156	2291	
==>t unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2156	2291	
==>t unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4858	4969	
==>lass = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4858	4969	
==>lass = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4858	4969	
==>lass = ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7099	7250	
==>ram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7099	7250	
==>ram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7099	7250	
==>ram{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return I <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5162	5303	
==>self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5162	5303	
==>self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23500	23658	
==>6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23500	23658	
==>6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23500	23658	
==>6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8471	8584	
==>boxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8471	8584	
==>boxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8471	8584	
==>boxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULT <==
3	/Users/nnunley/pugs/util/drift.pl	1579	1703	
==>) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.Instances ()
where
import $module
import Data.Yaml.Syck
impo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8570	8678	
==>$^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8570	8678	
==>$^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1977	2086	
==>$self->{captures}[--$n] if $n;
  return $self->{captures};
}


sub nchar {
  my $self = shift;
  return map ch <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	208	316	
==>r month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonth <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	208	316	
==>r month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7924	8040	
==>JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7924	8040	
==>JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7924	8040	
==>JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8324	8418	
==>: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8324	8418	
==>: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8324	8418	
==>: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7818	7931	
==>> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16192	16287	
==>lass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touch <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20618	20713	
==>lass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16131	16395	
==>>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16131	16395	
==>>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16131	16395	
==>>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4650	4746	
==>t;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4650	4746	
==>t;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4650	4746	
==>t;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10940	11059	
==>l;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10934	11053	
==>l;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4721	4827	
==>6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8591	8699	
==>$curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8591	8699	
==>$curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13836	13971	
==>ode', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13836	13971	
==>ode', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13836	13971	
==>ode', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$cla <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23709	23816	
==>e of False, it can not be further changed;
this class defaults it to False.

=back

This is the main Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28261	28368	
==>e of False, it can not be further changed;
this class defaults it to False.

=back

This is the main Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27074	27181	
==>e of False, it can not be further changed;
this class defaults it to False.

=back

This is the main Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35129	35232	
==>head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35129	35232	
==>head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35129	35232	
==>head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16019	16113	
==>$h.last_modified

This header indicates the date and time at which the resource was last
modifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16019	16113	
==>$h.last_modified

This header indicates the date and time at which the resource was last
modifi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13198	13321	
==>\"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9384	9507	
==>\"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10220	10343	
==>\"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6317	6439	
==>e::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6317	6439	
==>e::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6317	6439	
==>e::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13899	14043	
==>name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13899	14043	
==>name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13899	14043	
==>name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11695	11823	
==>();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2129	2245	
==>();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2129	2245	
==>();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test: <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	462	575	
==>turns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	462	575	
==>turns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $str <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15194	15292	
==>f
\r and such).  C<$ml> may be empty if Test::Harness doesn't think you're
on TTY.

The C<$width> i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3544	3648	
==>die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3544	3648	
==>die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3544	3648	
==>die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$rea <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9838	9937	
==>> do {
		my $a = type::variable::free->new;
		type::operator::arrow->new(
			$a,
			type::operator:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24191	24288	
==>efined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28743	28840	
==>efined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9938	10146	
==>->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9938	10146	
==>->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9938	10146	
==>->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1273	1376	
==>:Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1273	1376	
==>:Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1273	1376	
==>:Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles'      => ::make_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10344	10465	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10344	10465	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10344	10465	
==>b = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::Ev <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4030	4182	
==>ly => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	625	725	
==>racter matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	625	725	
==>racter matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1902	2014	
==>rnatives'}    = [ alternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8437	8542	
==>onable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8437	8542	
==>onable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3669	3813	
==>f->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3669	3813	
==>f->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3669	3813	
==>f->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2689	2798	
==>y, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2689	2798	
==>y, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18331	18426	
==>acters and ranges from being display if they are included in an embedded
class, set the I<anyof> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8859	8964	
==>= $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30368	30465	
==>heading>) may or may not resemble those of the original. 
The anonymous function in the argument C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34920	35016	
==>heading>) may or may not resemble those of the original.
The anonymous function in the argument C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34102	34198	
==>heading>) may or may not resemble those of the original.
The anonymous function in the argument C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8819	8965	
==>s
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	979	1113	
==>s
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	979	1113	
==>s
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11758	11878	
==>();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $ENV{PE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6878	6979	
==>my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6878	6979	
==>my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1456	1576	
==>);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1456	1576	
==>);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1456	1576	
==>);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_main()
}; die $@ if $@;

for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4453	4602	
==>qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4453	4602	
==>qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4453	4602	
==>qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) / <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	204	305	
==>Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3095	3197	
==>gs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3095	3197	
==>gs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3095	3197	
==>gs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15222	15319	
==>ment's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15222	15319	
==>ment's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7016	7103	
==>nd,$pams,$lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, params=>$pams <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1243	1359	
==>function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1243	1359	
==>function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1243	1359	
==>function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25525	25702	
==>] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25804	25981	
==>] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4613	4733	
==>/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	650	745	
==>re_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` ar <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	650	745	
==>re_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` ar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13602	13802	
==>\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9786	9986	
==>\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10622	10822	
==>\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8999	9164	
==>list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8999	9164	
==>list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8999	9164	
==>list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7857	8034	
==>) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7857	8034	
==>) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7857	8034	
==>) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Per <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	785	967	
==>for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashif <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	785	967	
==>for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1677	1816	
==>2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5416	5508	
==>tf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5416	5508	
==>tf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5416	5508	
==>tf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6567	6660	
==>ted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6567	6660	
==>ted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6567	6660	
==>ted results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4785	4943	
==>) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4785	4943	
==>) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4785	4943	
==>) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6013	6113	
==>=~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6013	6113	
==>=~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6013	6113	
==>=~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3782	3898	
==>:Example is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4372	4467	
==>:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4372	4467	
==>:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12451	12621	
==>os);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FA <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2226	2320	
==>functional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2226	2320	
==>functional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2248	2380	
==>s("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2248	2380	
==>s("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2248	2380	
==>s("Junction") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8904	9072	
==>kage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8904	9072	
==>kage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8904	9072	
==>kage 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14753	14858	
==>::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14753	14858	
==>::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14753	14858	
==>::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2834	2967	
==>.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2834	2967	
==>.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2834	2967	
==>.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8296	8482	
==>&&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8296	8482	
==>&&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8296	8482	
==>&&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5570	5691	
==>SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5570	5691	
==>SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5570	5691	
==>SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12330	12536	
==>gs, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12324	12530	
==>gs, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4306	4510	
==>$slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4306	4510	
==>$slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4306	4510	
==>$slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3765	3875	
==>}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3765	3875	
==>}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_mac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3765	3875	
==>}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_mac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	561	673	
==>ven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	561	673	
==>ven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	561	673	
==>ven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2989	3107	
==>ds.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2989	3107	
==>ds.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2989	3107	
==>ds.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6752	6899	
==>mContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6752	6899	
==>mContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6752	6899	
==>mContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24144	24276	
==>thod label
        symbol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9719	9814	
==>ibrary.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9719	9814	
==>ibrary.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3036	3156	
==>est.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3036	3156	
==>est.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4560	4680	
==>est.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12455	12577	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12455	12577	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12455	12577	
==>return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21584	21684	
==>shift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21584	21684	
==>shift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21584	21684	
==>shift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1314	1421	
==>/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1314	1421	
==>/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1314	1421	
==>/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1433	1555	
==>bute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1433	1555	
==>bute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1433	1555	
==>bute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_cl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4419	4590	
==>e!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4419	4590	
==>e!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	731	835	
==>}

sub optimize_flags {
	warn "optimize_flags has been changed to cc_optimize_flags for consistency reaso <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7634	7833	
==>ure_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7634	7833	
==>ure_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	376	482	
==>$CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	376	482	
==>$CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	376	482	
==>$CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	740	877	
==>e created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	740	877	
==>e created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($pro <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1666	1785	
==>::log (  Num  $x             ; Num :$base --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1543	1675	
==>( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1543	1675	
==>( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1543	1675	
==>( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2467	2567	
==>= PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2467	2567	
==>= PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2467	2567	
==>= PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	153	259	
==>::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	153	259	
==>::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41153	41242	
==>exp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6513	6629	
==>1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6513	6629	
==>1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6513	6629	
==>1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6473	6571	
==>isited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6473	6571	
==>isited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6473	6571	
==>isited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may produce unexpected r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	428	523	
==>rint_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	389	484	
==>rint_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	389	484	
==>rint_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" = <==
3	/Users/nnunley/pugs/util/importgraph.pl	436	545	
==>> \@ignore,
) or die "invalid command line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	690	787	
==>tr $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	690	787	
==>tr $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8170	8299	
==>,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8170	8299	
==>,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8170	8299	
==>,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8427	8569	
==>{
            $pre ~= "::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13746	13878	
==>mple.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15271	15403	
==>mple.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7967	8126	
==>a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7967	8126	
==>a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7967	8126	
==>a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	213	344	
==>self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	213	344	
==>self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	213	344	
==>self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip cr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4443	4557	
==>xt possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4443	4557	
==>xt possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6525	6635	
==>OPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8051	8176	
==>api == 13) {
      SV* pat;
      long nparens;
      SV* exec_callback_sub;
/*      fprintf(stderr,"api 13\n");*/
      if(re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10240	10335	
==>ut, such as that mandatory
constructor arguments are provided and that they are of the correct
c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10240	10335	
==>ut, such as that mandatory
constructor arguments are provided and that they are of the correct
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	261	360	
==>ef($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	261	360	
==>ef($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	261	360	
==>ef($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4843	4975	
==>s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4843	4975	
==>s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4843	4975	
==>s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5863	5978	
==>my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{capture} } ];

        return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5677	5790	
==>my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{capture} } ];
        return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17955	18085	
==>ual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14376	14506	
==>ual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7414	7528	
==>nternals::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      s <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1481	1593	
==>turn 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    u <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1481	1593	
==>turn 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8664	8792	
==>\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8664	8792	
==>\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8664	8792	
==>\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16407	16586	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16686	16865	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16098	16206	
==>if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16098	16206	
==>if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16098	16206	
==>if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4523	4639	
==>see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rul <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1779	1880	
==>he value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1779	1880	
==>he value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3687	3788	
==>should pass.  C<$description> is the optional
description of the test.  This is the easiest way to mat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3687	3788	
==>should pass.  C<$description> is the optional
description of the test.  This is the easiest way to mat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3767	3868	
==>should pass.  C<$description> is the optional
description of the test.  This is the easiest way to mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9767	9881	
==>ol'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    retur <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3882	3975	
==>:General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserv <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3882	3975	
==>:General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserv <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	280	380	
==>s.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	280	380	
==>s.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2235	2369	
==>Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2235	2369	
==>Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2235	2369	
==>Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3019	3136	
==>nclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3019	3136	
==>nclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3019	3136	
==>nclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11489	11585	
==>rict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Languag <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36582	36675	
==>turns an equivalent human readable text message
string; this assumes that a Template correspon <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36582	36675	
==>turns an equivalent human readable text message
string; this assumes that a Template correspon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5745	5846	
==>}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5745	5846	
==>}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5745	5846	
==>}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elem <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27581	27673	
==>fun => $one_elem_list, param => val(5) )), "list int", ":t listify(5)");
is(t($length_and_fir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2034	2151	
==>ll_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2034	2151	
==>ll_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2034	2151	
==>ll_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11250	11379	
==>rol';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expande <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	59	158	
==>check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	59	158	
==>check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getp <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15049	15208	
==>32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \di <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19224	19383	
==>32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7424	7555	
==>1;
        return $S->force_object(anyof_char_comp => chr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join(" <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20025	20132	
==>my $inpath  = shift;
    my $outpath = abs2rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, $o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39134	39222	
==>are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Ro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39134	39222	
==>are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Ro <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	114	212	
==>ss::Straps;

use strict;
use vars qw($VERSION);
use Config;
$VERSION = '0.20';

use Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1173	1266	
==>f-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document descri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1173	1266	
==>f-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document descri <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3357	3466	
==>ueOf');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1. <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15327	15425	
==>o your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::deco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15327	15425	
==>o your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::deco <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13975	14082	
==>attrs;
    my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4808	4909	
==>y $body = shift;

	push @{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	605	808	
==>next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	605	808	
==>next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	605	808	
==>next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          retu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6536	6684	
==>s_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6594	6742	
==>s_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2038	2164	
==>cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $c <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	309	426	
==>is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$nega <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	309	426	
==>is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$nega <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	172	273	
==>$self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	172	273	
==>$self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	172	273	
==>$self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24207	24302	
==>ew;
	my $type = type::operator::arrow->new($a, $a);

	is($type->stringify, "∀α. α → α", " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13700	13794	
==>sent continuous measurements, such as times, temperatures, or price ranges.

Create a span of r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13700	13794	
==>sent continuous measurements, such as times, temperatures, or price ranges.

Create a span of r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36761	36890	
==>2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36761	36890	
==>2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36761	36890	
==>2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16933	17047	
==>ource has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimizatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20410	20524	
==>ource has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimizatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19988	20102	
==>ource has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimizatio <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2765	2872	
==>eck( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    my $perl_version;
    ### special <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1430	1530	
==>lit_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1430	1530	
==>lit_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48771	48912	
==>ew('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2469	2563	
==>l {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2469	2563	
==>l {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4023	4155	
==>atcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4023	4155	
==>atcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4023	4155	
==>atcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14745	14833	
==>I SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::chec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14745	14833	
==>I SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::chec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14745	14833	
==>I SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::chec <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10135	10245	
==>root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10135	10245	
==>root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	624	747	
==>= ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	624	747	
==>= ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	624	747	
==>= ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2775	2911	
==>ock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2775	2911	
==>ock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2775	2911	
==>ock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # w <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24171	24311	
==>new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	337	473	
==>n
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	337	473	
==>n
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	62	159	
==>002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	62	159	
==>002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4841	4962	
==>ssue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4841	4962	
==>ssue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4841	4962	
==>ssue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13537	13650	
==>ents (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13537	13650	
==>ents (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6453	6550	
==>ers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6453	6550	
==>ers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6453	6550	
==>ers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied object may <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12005	12124	
==>{
    my ($class, $rx, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15564	15692	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15564	15692	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15564	15692	
==>> '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Cla <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2664	2766	
==>);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	129	230	
==>as Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	129	230	
==>as Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31522	31760	
==>length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31522	31760	
==>length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31522	31760	
==>length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1565	1727	
==>hod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1565	1727	
==>hod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1565	1727	
==>hod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11474	11625	
==>ray' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11474	11625	
==>ray' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11474	11625	
==>ray' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @para <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7527	7775	
==>>{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every packa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7991	8239	
==>>{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2691	2825	
==>b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2691	2825	
==>b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2691	2825	
==>b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8051	8227	
==>mper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( ' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10642	10736	
==>esting Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* Th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10700	10794	
==>esting Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1347	1461	
==>rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This modu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1347	1461	
==>rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This modu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34114	34214	
==>e
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translato <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34114	34214	
==>e
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translato <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	58	152	
==>rl5/site_perl/5.8.7/Module/Install/Scripts.pm"
package Module::Install::Scripts;
use Module::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2806	2961	
==>s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2806	2961	
==>s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2806	2961	
==>s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4918	5038	
==>s "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4918	5038	
==>s "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4918	5038	
==>s "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11805	11924	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11805	11924	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11805	11924	
==>p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1954	2065	
==>quote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1954	2065	
==>quote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1954	2065	
==>quote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	691	810	
==>of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	853	972	
==>of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Ba <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	454	556	
==>}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	88	197	
==>our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(calle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	88	197	
==>our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(calle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	88	197	
==>our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(calle <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6945	7053	
==>oin(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless -e "pugs$Config{_exe}";
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	445	546	
==>rocess
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Vo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	503	604	
==>rocess
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Vo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	205	318	
==>::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	205	318	
==>::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	205	318	
==>::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	562	686	
==>};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	562	686	
==>};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	562	686	
==>};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1578	1731	
==>e}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1578	1731	
==>e}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1578	1731	
==>e}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7938	8048	
==>ach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7938	8048	
==>ach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7938	8048	
==>ach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40573	40667	
==>hout even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40573	40667	
==>hout even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13535	13646	
==>exists ($key --> Bool )

True if invocant has an element whose key matches C<$key>, false
otherwise.

An unary f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35157	35249	
==>duct (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39707	39799	
==>duct (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6210	6338	
==>o' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6210	6338	
==>o' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6210	6338	
==>o' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1103	1200	
==>var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{required <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3260	3355	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3260	3355	
==>th (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17439	17540	
==>s'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17439	17540	
==>s'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17439	17540	
==>s'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17771	17863	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17771	17863	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17771	17863	
==>> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5812	5944	
==>XXX this should be a policy test!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8529	8647	
==>NDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8529	8647	
==>NDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8529	8647	
==>NDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10824	10941	
==>bject;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10824	10941	
==>bject;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10824	10941	
==>bject;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14048	14227	
==>stance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14048	14227	
==>stance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14048	14227	
==>stance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	13	115	
==>Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	13	115	
==>Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	13	115	
==>Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28962	29060	
==>o "predecessor" (that is, a '&&' without a '&')
are pre-consumption: that is, they have not matched <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10157	10243	
==>d($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10892	10978	
==>d($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5257	5402	
==><(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5269	5414	
==><(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4787	4887	
==>ent
   from an MSYS build. If you wish to fix this please refer to:

   http://www.haskell.org/ghc/do <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	761	859	
==>import {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	197	328	
==>s_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	197	328	
==>s_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	197	328	
==>s_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pV <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18354	18792	
==>rs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSIO <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5349	5534	
==>ngth;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail < <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5349	5534	
==>ngth;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail < <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15223	15367	
==>so <= -M "$cdroot/boot/grub/menu.lst" },
  using  => sub {
    system
      "mkisofs",
      "-R",                                # Generate Rock <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9684	9778	
==>t least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9684	9778	
==>t least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27912	28016	
==>e, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32464	32568	
==>e, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31556	31660	
==>e, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will fail if any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2349	2454	
==>ed $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2349	2454	
==>ed $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2349	2454	
==>ed $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1535	1647	
==>Var";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1535	1647	
==>Var";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1535	1647	
==>Var";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1284	1385	
==>ot_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1342	1443	
==>ot_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2729	2828	
==>local $Z::oop{$id}{'ops'} = $ops;
        my $cmp = (!defined($ops->[-1])) ? -1 : $ops->[-1]->op_cmp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	30	115	
==>se 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	161	246	
==>se 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::Ru <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7040	7144	
==>e unification of the various types depends on their data...
# this is why this code is so big.

# in a la <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	649	748	
==>t code from lib.pm because I am hoping that perl6
# and the new module functionality will not need i <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	649	748	
==>t code from lib.pm because I am hoping that perl6
# and the new module functionality will not need i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	223	330	
==>d1 SYNOPSIS

    # moot

=head1 DESCRIPTION

Emitters take a compiled program and serialize them into some f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	307	401	
==>p the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	307	401	
==>p the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	744	843	
==>}
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	744	843	
==>}
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4334	4425	
==>atch (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4584	4675	
==>atch (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6192	6297	
==>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6192	6297	
==>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6192	6297	
==>destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7245	7349	
==>> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7245	7349	
==>> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7245	7349	
==>> ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	129	237	
==>eop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	129	237	
==>eop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	25	121	
==>List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods Li <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	25	121	
==>List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods Li <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12019	12137	
==>ffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12019	12137	
==>ffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7276	7386	
==>n $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler('\z' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6995	7101	
==>ub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6995	7101	
==>ub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6995	7101	
==>ub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2352	2453	
==>b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2352	2453	
==>b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2352	2453	
==>b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Num <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	99	220	
==>d;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7185	7279	
==>which permits the intercommunication 

of data about: backtracking, aborting, capturing.



The <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6940	7031	
==>which permits the intercommunication 
of data about: backtracking, aborting, capturing.

The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32360	32532	
==>h;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32360	32532	
==>h;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32360	32532	
==>h;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $le <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11992	12137	
==>backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{max <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5999	6101	
==>ext( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5999	6101	
==>ext( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5721	5842	
==>t {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5779	5900	
==>t {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1067	1178	
==>erl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ide <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1067	1178	
==>erl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ide <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1067	1178	
==>erl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {ide <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45984	46154	
==>')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50096	50266	
==>')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9513	9609	
==>);};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9513	9609	
==>);};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9513	9609	
==>);};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11803	11923	
==>m {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	212	327	
==>m {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9610	9699	
==>require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9610	9699	
==>require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9610	9699	
==>require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	196	311	
==>f PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	196	311	
==>f PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	196	311	
==>f PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10261	10436	
==>() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10261	10436	
==>() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10261	10436	
==>() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3997	4105	
==>{ undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3997	4105	
==>{ undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3997	4105	
==>{ undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{ <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	2002	2139	
==>3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1813	1927	
==>n "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1813	1927	
==>n "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21208	21302	
==>rd")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Par <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21208	21302	
==>rd")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Par <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	158	290	
==>re;
use Blondie::TypeSafe ();

use Blondie::Backend::C::Builtins;

sub run {
	my $self = shift;
	my $prog = shift;

	my $c = $self->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	67	160	
==>ase 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	67	160	
==>ase 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))-> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15686	15811	
==>ember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $self->{lone_not_line} <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9071	9188	
==>bers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9071	9188	
==>bers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1461	1621	
==>s = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1461	1621	
==>s = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1461	1621	
==>s = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	987	1087	
==>unting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	987	1087	
==>unting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MOR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	987	1087	
==>unting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MOR <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43792	43907	
==>bject->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30703	30802	
==>he name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30703	30802	
==>he name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	919	1074	
==>=> sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	919	1074	
==>=> sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	919	1074	
==>=> sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9135	9327	
==>,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9135	9327	
==>,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9135	9327	
==>,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3183	3315	
==>l6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3183	3315	
==>l6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3183	3315	
==>l6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4514	4612	
==>l issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4514	4612	
==>l issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4514	4612	
==>l issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	490	596	
==>this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	490	596	
==>this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	490	596	
==>this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	231	329	
==>ectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	231	329	
==>ectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	231	329	
==>ectly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	948	1129	
==>et)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	948	1129	
==>et)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	116	208	
==>}

Zum auskommentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\texttt{
=beg <==
3	/Users/nnunley/pugs/util/importgraph.pl	781	894	
==>module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^import \s+ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13575	13671	
==>uch later than expected.

It may enter an infinite loop if the formula cannot be satisfied within <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13575	13671	
==>uch later than expected.

It may enter an infinite loop if the formula cannot be satisfied within <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23027	23146	
==>v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB An <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23027	23146	
==>v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB An <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23027	23146	
==>v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB An <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2207	2321	
==>} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15893	15987	
==>provides a system for writing modules that I<compile> other
Perl modules.

Modules that use the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15893	15987	
==>provides a system for writing modules that I<compile> other
Perl modules.

Modules that use the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5694	5789	
==>t_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5694	5789	
==>t_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5694	5789	
==>t_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3005	3108	
==>sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [optio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3005	3108	
==>sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [optio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3005	3108	
==>sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [optio <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	938	1096	
==>le (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	817	975	
==>le (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^( <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	719	813	
==>file|o=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	684	807	
==>\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	684	807	
==>\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	684	807	
==>\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	266	420	
==>> 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $ <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	312	440	
==>> 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10074	10199	
==>args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5739	5922	
==>rstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5739	5922	
==>rstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5739	5922	
==>rstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17864	17991	
==>__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20744	20871	
==>__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24532	24659	
==>__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flag <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12711	12832	
==>udo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12711	12832	
==>udo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27891	27987	
==>anch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2332	2469	
==>lass->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    return $output;
}

su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1856	1966	
==>ocal $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2073	2183	
==>ocal $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9733	9825	
==>);

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9733	9825	
==>);

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9733	9825	
==>);

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1177	1283	
==>30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1177	1283	
==>30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1177	1283	
==>30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2187	2282	
==>return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2187	2282	
==>return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2440	2673	
==>d $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2749	2973	
==>d $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2749	2973	
==>d $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8262	8401	
==>)
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8455	8594	
==>)
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  ma <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7211	7323	
==>result ?? @result[-1] !! undef;
    @result;
}


 multi Array::unshift (@array is rw ; *@values --> Int ) {
   Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2809	2907	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2809	2907	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2809	2907	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_att <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3488	3588	
==>Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3488	3588	
==>Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5349	5463	
==>et_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2891	3005	
==>et_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3740	3854	
==>et_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9340	9439	
==>->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9340	9439	
==>->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6502	6600	
==>MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6502	6600	
==>MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6502	6600	
==>MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6320	6470	
==>) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3445	3595	
==>) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4294	4444	
==>) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	124	216	
==>Bin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	124	216	
==>Bin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	124	216	
==>Bin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8875	9046	
==>== 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12775	12903	
==>== 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12775	12903	
==>== 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18534	18656	
==>S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18534	18656	
==>S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7373	7462	
==>->new($::Class, symbol->new('add_method'), $_add_method));
}

=pod

method has_method (opa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5962	6057	
==>--although they should be careful to avoid changing the 
actual semantics.

Please note that mos <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5962	6057	
==>--although they should be careful to avoid changing the 
actual semantics.

Please note that mos <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3510	3604	
==>oth lexically and dynamically scoped
overriding.  You currently can't do lexical.  It's not cle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2821	2935	
==>last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2821	2935	
==>last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2821	2935	
==>last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	695	801	
==>ums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	695	801	
==>ums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	695	801	
==>ums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4216	4330	
==>sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4216	4330	
==>sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4216	4330	
==>sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4522	4620	
==>gil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4522	4620	
==>gil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4522	4620	
==>gil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9320	9431	
==>es

### - needs to be generalized, and the anchor should only

###   work when needed (or if there is a switch t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9015	9124	
==>es
### - needs to be generalized, and the anchor should only
###   work when needed (or if there is a switch t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3601	3707	
==>print "P6 design documents   : Won't generate cross-referenced P6 design documents\n";
} else {    
    rea <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	161	296	
==>ngs 'recursion';

sub new {
    my $class = shift;
    bless {
        params => undef,
        param_stack => [],
    }, $class;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6630	6734	
==>arams (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6630	6734	
==>arams (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	28	141	
==>erl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	28	141	
==>erl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	28	141	
==>erl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4745	4848	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4745	4848	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4745	4848	
==>ub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12310	12404	
==>ts stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12310	12404	
==>ts stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15950	16057	
==>MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15950	16057	
==>MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15950	16057	
==>MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5972	6074	
==>:\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5972	6074	
==>:\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5972	6074	
==>:\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8269	8365	
==>strian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8269	8365	
==>strian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3236	3347	
==>complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3236	3347	
==>complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinit <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1869	1972	
==>ip2 } or
    *Compress::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CGI->param(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15337	15456	
==>0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15337	15456	
==>0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15337	15456	
==>0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8423	8530	
==>l6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8423	8530	
==>l6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8423	8530	
==>l6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29375	29483	
==>g-valued attributes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33927	34035	
==>g-valued attributes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33091	33199	
==>g-valued attributes have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4312	4411	
==>nless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4312	4411	
==>nless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4902	5001	
==>nless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param->name. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	378	494	
==>IL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	378	494	
==>IL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	378	494	
==>IL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3678	3778	
==>shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1746	1841	
==>es as parameters at least C<rate of information> in
items per second and C<burst size> in items. <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1746	1841	
==>es as parameters at least C<rate of information> in
items per second and C<burst size> in items. <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	673	773	
==>---------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	673	773	
==>---------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	814	916	
==>ndeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	814	916	
==>ndeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	814	916	
==>ndeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	556	660	
==>bol;
	}

	die "symbol $symbol could not be resolved in the last scope by $self. It may be defined in an u <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	256	357	
==>: argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1114	1215	
==>: argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5629	5740	
==>t',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar In <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5629	5740	
==>t',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar In <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7186	7303	
==>in "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, "]";
    }
  }
}


{
  pa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13504	13600	
==>ass before this test can pass (or before an implementation
could be started).  This is most usefu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13562	13658	
==>ass before this test can pass (or before an implementation
could be started).  This is most usefu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7966	8151	
==>_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4326	4511	
==>_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5175	5360	
==>_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($prefix, $id, $l <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3544	3641	
==>binary to put on the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --parrot-path as the r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3958	4054	
==>er 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::St <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3958	4054	
==>er 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::St <==
3	/Users/nnunley/pugs/util/grokprims.pl	1859	1965	
==>if (/non-associative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6068	6168	
==>ee";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6068	6168	
==>ee";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1446	1594	
==>ar cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1446	1594	
==>ar cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1446	1594	
==>ar cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8374	8512	
==>} 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12288	12422	
==>} 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12288	12422	
==>} 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #return $h->code;
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14600	14768	
==>:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14600	14768	
==>:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14600	14768	
==>:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3194	3361	
==>$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3194	3361	
==>$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3194	3361	
==>$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10339	10457	
==>eption::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = (' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10339	10457	
==>eption::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = (' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10339	10457	
==>eption::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = (' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1487	1584	
==>gins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.o <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1487	1584	
==>gins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11778	11931	
==>nt 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8060	8213	
==>nt 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8894	9047	
==>nt 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	438	544	
==>''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	438	544	
==>''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21850	21949	
==>the field.  There will still be a class() method in F<__object__>,
but it will throw a "use of class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16115	16214	
==>p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16115	16214	
==>p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16115	16214	
==>p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11303	11486	
==>\n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7585	7768	
==>\n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8419	8602	
==>\n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14224	14441	
==>>[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14224	14441	
==>>[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14224	14441	
==>>[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16252	16393	
==>airs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19729	19870	
==>airs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19262	19403	
==>airs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _pr <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7779	7876	
==>$span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7779	7876	
==>$span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) ret <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2683	2774	
==>()not :z[]not :z::not
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	33	135	
==>e strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	33	135	
==>e strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	33	135	
==>e strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	162	266	
==>\.(pl|pm|t)$/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file date <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4968	5086	
==>rn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4968	5086	
==>rn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4968	5086	
==>rn bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4582	4692	
==>ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4582	4692	
==>ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4582	4692	
==>ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2100	2324	
==>sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2100	2324	
==>sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2100	2324	
==>sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15601	15750	
==>numbers of load sectors
      "-boot-info-table",                  # Patch boot image with info table
      "-o" => $iso,                        # Set <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	581	679	
==>two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	581	679	
==>two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $on <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1013	1153	
==>) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        'test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18902	19035	
==>r('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15323	15456	
==>r('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	341	439	
==>+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	962	1076	
==>n this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	962	1076	
==>n this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	962	1076	
==>n this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internal <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	796	910	
==><[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule term { <comment> | < <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11089	11182	
==>nt ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf return <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11089	11182	
==>nt ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	16	131	
==>e strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	16	131	
==>e strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	16	131	
==>e strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	773	878	
==>s::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' )."}" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36703	36802	
==>e relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41252	41351	
==>e relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40875	40974	
==>e relation has zero
tuples, in which case the result does too.  Another trivial case is if any
sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13936	14043	
==>_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13936	14043	
==>_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13936	14043	
==>_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1114	1239	
==>ey),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1114	1239	
==>ey),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1114	1239	
==>ey),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7855	7985	
==>notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7855	7985	
==>notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => ch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13935	14069	
==>e least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17412	17546	
==>e least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16792	16926	
==>e least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	382	495	
==>is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	382	495	
==>is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	382	495	
==>is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1604	1707	
==>p != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1604	1707	
==>p != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6067	6198	
==>/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6067	6198	
==>/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6067	6198	
==>/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4441	4546	
==>bclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4441	4546	
==>bclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4441	4546	
==>bclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3198	3305	
==>peSafe::Type::Std->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4449	4548	
==>not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are times <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4449	4548	
==>not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are times <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16040	16131	
==>setta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16040	16131	
==>setta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1482	1579	
==>etamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1482	1579	
==>etamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1482	1579	
==>etamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21573	21763	
==>$_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21573	21763	
==>$_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21573	21763	
==>$_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4630	4737	
==>t not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is primitive is buil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	427	526	
==>'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent tr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	427	526	
==>'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1190	1294	
==>->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1190	1294	
==>->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1190	1294	
==>->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PA <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	662	816	
==>tuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2166	2260	
==>y code;
each alternate engine may introduce additional security or memory problems.

Tainting i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7807	7913	
==>$arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $position = $temp1- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2270	2364	
==>des($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2270	2364	
==>des($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7209	7330	
==>defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7209	7330	
==>defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11486	11593	
==>);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11486	11593	
==>);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11486	11593	
==>);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	392	504	
==>s Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method member <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	392	504	
==>s Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method member <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2122	2218	
==>rn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2122	2218	
==>rn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2122	2218	
==>rn str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3471	3581	
==>ake_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3471	3581	
==>ake_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3471	3581	
==>ake_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	338	439	
==>licateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_reduce {
		my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10906	11000	
==>t how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the spe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10906	11000	
==>t how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the spe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9755	9850	
==>vailable:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9755	9850	
==>vailable:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	616	714	
==>Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	616	714	
==>Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1457	1561	
==>$mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1457	1561	
==>$mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1457	1561	
==>$mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_im <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10027	10143	
==>y \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\n" <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	952	1047	
==>n the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pug <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	952	1047	
==>n the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pug <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3928	4028	
==>.yaml\n";
}
print "Output directory      : $output_dir\n";
print "\n";

my $quotable = qr/\w+|$RE{del <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5935	6025	
==>onfig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5935	6025	
==>onfig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9017	9149	
==>~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\01 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9017	9149	
==>~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\01 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11464	11584	
==>));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9509	9632	
==>urrent_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9509	9632	
==>urrent_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9509	9632	
==>urrent_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26392	26610	
==>ify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26392	26610	
==>ify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26392	26610	
==>ify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3784	3901	
==>ut($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filteri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3784	3901	
==>ut($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filteri <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24754	24854	
==>. ∀γ. (α → β) → γ", "pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arrow-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5665	5783	
==>return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example mig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5665	5783	
==>return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example mig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5665	5783	
==>return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example mig <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14917	15025	
==>($self, $line, $test) = @_;

    # We pulverize the line down into pieces in three parts.
    if( my($not, $n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1505	1602	
==>path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1505	1602	
==>path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2399	2500	
==>*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2399	2500	
==>*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2399	2500	
==>*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4716	4852	
==>writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4716	4852	
==>writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4716	4852	
==>writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1550	1689	
==>document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1550	1689	
==>document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1550	1689	
==>document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the norm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1316	1432	
==>$x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1316	1432	
==>$x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1316	1432	
==>$x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	42	145	
==>Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	42	145	
==>Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	42	145	
==>Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	865	971	
==>tr_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	865	971	
==>tr_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7042	7156	
==>PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7042	7156	
==>PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7042	7156	
==>PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2598	2695	
==>XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2598	2695	
==>XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2598	2695	
==>XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1116	1245	
==>q 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1116	1245	
==>q 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1116	1245	
==>q 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMetho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4474	4568	
==>erence, the match object returns the I<result>
object; this is normally the entire match string <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4474	4568	
==>erence, the match object returns the I<result>
object; this is normally the entire match string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3985	4077	
==>tBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Skip' => {
    is   => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2611	2724	
==>nd->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2611	2724	
==>nd->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2958	3071	
==>nd->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16126	16285	
==>rule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16120	16279	
==>rule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34127	34226	
==>ily: anyof_range

Types: anyof_range (C<X-Y>)

Data: array reference of lower and upper bounds, both <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2109	2231	
==>};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2109	2231	
==>};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16280	16371	
==>.if) = { generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_in($.el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17207	17316	
==>);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17207	17316	
==>);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17207	17316	
==>);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	758	871	
==>|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|OFF)/;
            $va <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5531	5634	
==>ve_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child { <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5531	5634	
==>ve_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1975	2075	
==>$linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1975	2075	
==>$linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1975	2075	
==>$linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	677	809	
==>s >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	677	809	
==>s >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	677	809	
==>s >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1337	1445	
==>ives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1337	1445	
==>ives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1337	1445	
==>ives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	115	214	
==>L2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	115	214	
==>L2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	115	214	
==>L2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	664	756	
==>e_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	664	756	
==>e_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	664	756	
==>e_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETC <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1545	1640	
==>uring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1545	1640	
==>uring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14531	14679	
==>n not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14525	14673	
==>n not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1160	1257	
==>l6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39292	39437	
==>$array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39292	39437	
==>$array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39292	39437	
==>$array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2212	2326	
==>}
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2212	2326	
==>}
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2212	2326	
==>}
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4995	5099	
==>6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4995	5099	
==>6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4995	5099	
==>6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1842	1950	
==>ine;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1842	1950	
==>ine;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1922	2030	
==>ine;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $descrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3156	3247	
==>sc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAG <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3156	3247	
==>sc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAG <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3503	3594	
==>sc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12025	12120	
==>:Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12025	12120	
==>:Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12025	12120	
==>:Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12840	13055	
==>ternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13119	13334	
==>ternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1735	1877	
==>e//) {
        $code = (length($ARGV[0]) ? $ARGV[0] : $ARGV[1]);
    }
    else {
        local $/;
        $code = <>;
    }

    if ($compile <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8120	8231	
==>r = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8120	8231	
==>r = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24950	25055	
==>\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierPrefix> <'?'>
}
rul <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1609	1714	
==>se};
}

sub inline {
    print STDERR "Generating inlined source Prelude... " if $Config{verbose};

    ge <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6736	6840	
==>s ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arg <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6736	6840	
==>s ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arg <==
3	/Users/nnunley/pugs/util/grokprims.pl	710	800	
==>sh @ops, {name=>$name, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml v <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1792	2198	
==>::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1792	2198	
==>::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8942	9085	
==>for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @coo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8942	9085	
==>for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @coo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7253	7350	
==>ex)

You can send the regex to be parsed as the argument to the constructor.

=item $parser->regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	752	864	
==>uck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	752	864	
==>uck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	752	864	
==>uck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other point i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22265	22371	
==>mod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22265	22371	
==>mod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22265	22371	
==>mod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6335	6464	
==>ntrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6335	6464	
==>ntrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6335	6464	
==>ntrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1790	1902	
==>erl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1930	2042	
==>erl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1811	1905	
==>cted,$remainder) = Text::Balanced::extract_delimited( "'" . $_[0], "'" );
    $extracted = subs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11175	11273	
==>def, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    (((?% <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16124	16218	
==>and one
application may handle it internally, while another one displays it to the
user instead <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16124	16218	
==>and one
application may handle it internally, while another one displays it to the
user instead <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3476	3579	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3476	3579	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3476	3579	
==>2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4752	4854	
==>- dont create one, 1- wrap with push-on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	10	95	
==>ammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6In <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	141	226	
==>ammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18999	19134	
==>D;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use wa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18999	19134	
==>D;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use wa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18999	19134	
==>D;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2644	2750	
==>pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2644	2750	
==>pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2644	2750	
==>pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	555	669	
==>d number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	555	669	
==>d number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	555	669	
==>d number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7491	7604	
==>js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7491	7604	
==>js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7491	7604	
==>js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	535	638	
==>e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	535	638	
==>e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	535	638	
==>e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	44	141	
==>quire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#W <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	44	141	
==>quire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#W <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	795	938	
==>"/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2280	2393	
==>p2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cm <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2280	2393	
==>p2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cm <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5609	5748	
==>ow ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4109	4248	
==>ow ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6070	6176	
==>self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package Regexp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2856	3001	
==>$type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2856	3001	
==>$type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2856	3001	
==>$type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1049	1151	
==>:IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1049	1151	
==>:IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13034	13129	
==>->{todo} >> and if the whole test was skipped
C<< $strap->{skip_all} >> contains the reason.

=c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4525	4621	
==>e temporary image of the initrd, which will be mounted.
  --initrd-size=$initrd_size
    --initrd <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3631	3724	
==>use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3848	3941	
==>use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5004	5106	
==>ority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5004	5106	
==>ority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43062	43164	
==>ority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2088	2226	
==>el) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2088	2226	
==>el) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2088	2226	
==>el) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15037	15144	
==>ll(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15037	15144	
==>ll(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15037	15144	
==>ll(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2411	2503	
==>able>:=(<varscalar>)<?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { return { assi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2487	2571	
==>E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.per <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2487	2571	
==>E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35329	35452	
==>lse {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35329	35452	
==>lse {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35329	35452	
==>lse {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12288	12399	
==>} otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12288	12399	
==>} otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12288	12399	
==>} otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3006	3130	
==>",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3006	3130	
==>",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3006	3130	
==>",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "si <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	346	468	
==>l this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  point <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	346	468	
==>l this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  point <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1583	1671	
==>elf->{env});
    (blessed($return_value) && ($return_value->isa($self->{sig}->returns) || <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15706	15877	
==>ueue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!que <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15706	15877	
==>ueue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!que <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12794	12891	
==>un: generic_in($.body) = { generic_in($$) }

# possibly amend the list of generic variables if the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3706	3825	
==>$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3694	3813	
==>$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantifi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12103	12220	
==>args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18935	19031	
==>hing on the wire.

When setting the referrer, this method removes the fragment from the
given URI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18935	19031	
==>hing on the wire.

When setting the referrer, this method removes the fragment from the
given URI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19903	19999	
==>) creates an
object no matter what pass the parser is making; object() will return
immediately if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3821	3918	
==>gs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3821	3918	
==>gs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3821	3918	
==>gs which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20346	20457	
==>comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16767	16878	
==>comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11257	11368	
==>erver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11257	11368	
==>erver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4008	4108	
==>ict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4008	4108	
==>ict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4008	4108	
==>ict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23479	23592	
==>,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23479	23592	
==>,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23479	23592	
==>,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	328	447	
==>" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	328	447	
==>" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6473	6575	
==>$sn eq 'global') {
	warn "global PPad may not be doing the right thing\n";
	$decl = "no strict; ($varli <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2355	2481	
==>"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2355	2481	
==>"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4640	4763	
==>elf)->{'@:roles'}}) {
        # make a note of the role for does()
        $roles{::opaque_instance_attrs($role)->{'$:name'} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	470	594	
==>f";
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        body => $body,
        env  => $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3132	3223	
==>lement_previous, $set.complement_next, $set.complement_previous ),
        complement_previo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3132	3223	
==>lement_previous, $set.complement_next, $set.complement_previous ),
        complement_previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	200	315	
==>bless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	200	315	
==>bless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	200	315	
==>bless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1487	1592	
==>ng(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1487	1592	
==>ng(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1487	1592	
==>ng(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "St <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15037	15132	
==>(= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8587	8681	
==>de_body = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $class = $params->[0]{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37591	37726	
==>ify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37591	37726	
==>ify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37591	37726	
==>ify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UN <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6637	6739	
==>= Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6637	6739	
==>= Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3103	3210	
==>ss $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3103	3210	
==>ss $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3103	3210	
==>ss $cmp.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21630	21777	
==>ss (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21630	21777	
==>ss (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21630	21777	
==>ss (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	554	669	
==>infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	554	669	
==>infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	554	669	
==>infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5443	5542	
==>MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5443	5542	
==>MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5443	5542	
==>MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4958	5079	
==>l|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4958	5079	
==>l|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4958	5079	
==>l|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html") <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21981	22076	
==>ce of Rosetta is entirely object-oriented; you use it by
creating objects from its member classe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21981	22076	
==>ce of Rosetta is entirely object-oriented; you use it by
creating objects from its member classe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1748	1841	
==>y $compiled = $self->compile(@_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2238	2348	
==>nt => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2238	2348	
==>nt => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2238	2348	
==>nt => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1011	1123	
==>th a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1011	1123	
==>th a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1011	1123	
==>th a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3676	3798	
==>on");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3676	3798	
==>on");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5200	5322	
==>on");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24964	25062	
==>y be addressed by any ordinal value.

Note that it is valid for a Relation::Example to have zero tu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1997	2094	
==>H");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1997	2094	
==>H");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34565	34661	
==>le Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39115	39211	
==>le Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	642	741	
==>LIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_te <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	642	741	
==>LIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_te <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3020	3121	
==>n -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional A <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3020	3121	
==>n -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional A <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5291	5380	
==>ODE PIL_Environment ($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain) <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1029	1123	
==>ss returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<a <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1029	1123	
==>ss returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	386	487	
==>ext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/option <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	386	487	
==>ext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/option <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	386	487	
==>ext
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required/option <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15241	15340	
==>elf->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9439	9538	
==>elf->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	42	164	
==>ings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	42	164	
==>ings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	42	164	
==>ings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	995	1113	
==>6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	995	1113	
==>6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	995	1113	
==>6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6057	6366	
==>'$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alt <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6057	6366	
==>'$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24535	24631	
==>e adding handlers that have to parse flags, but if
you do, remember to follow this model correctl <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	173	266	
==>er hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer}s Lieblingsf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	597	725	
==>ven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	597	725	
==>ven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	597	725	
==>ven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20203	20297	
==>smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20203	20297	
==>smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20203	20297	
==>smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(smart_match($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16723	16821	
==>ULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16723	16821	
==>ULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16723	16821	
==>ULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14229	14446	
==>$method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14229	14446	
==>$method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14229	14446	
==>$method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7236	7360	
==>vironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7236	7360	
==>vironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7236	7360	
==>vironment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2314	2431	
==>*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV< <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2314	2431	
==>*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10153	10258	
==>$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10529	10689	
==>or ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $swi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19255	19353	
==>or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical oth <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19255	19353	
==>or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical oth <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1760	1856	
==>ions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1760	1856	
==>ions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	17	110	
==>piler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.03';

# Documentation in the __END__
use 5.00 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1552	1675	
==>= '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1552	1675	
==>= '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1552	1675	
==>= '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	195	298	
==>@progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple additi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17381	17481	
==>);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17381	17481	
==>);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14065	14233	
==>OTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14065	14233	
==>OTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14065	14233	
==>OTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_class_method) {
            #    $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6154	6245	
==>gs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6154	6245	
==>gs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6154	6245	
==>gs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7679	7887	
==>( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7679	7887	
==>( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7679	7887	
==>( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10694	10838	
==>ub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10694	10838	
==>ub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10694	10838	
==>ub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5861	5958	
==>ext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5861	5958	
==>ext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5861	5958	
==>ext;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32685	32850	
==>l6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32685	32850	
==>l6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32685	32850	
==>l6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2420	2521	
==>thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2420	2521	
==>thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2420	2521	
==>thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3395	3590	
==>fier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3642	3837	
==>fier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ] <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37143	37240	
==>')    => attribute->new('@:superclasses'    => 'list')));
$::Class->send('add_attribute', (symbol- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5494	5593	
==>) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5494	5593	
==>) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5494	5593	
==>) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	427	567	
==>le || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	427	567	
==>le || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4426	4513	
==>) --> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2704	2819	
==>PERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2704	2819	
==>PERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2704	2819	
==>PERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9270	9371	
==>tr $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9270	9371	
==>tr $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2613	2709	
==>air|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2613	2709	
==>air|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2613	2709	
==>air|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13265	13367	
==>_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13265	13367	
==>_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13265	13367	
==>_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	188	294	
==>es(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	188	294	
==>es(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	188	294	
==>es(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2260	2392	
==>) ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2260	2392	
==>) ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2260	2392	
==>) ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	129	233	
==>ipt code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	129	233	
==>ipt code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	129	233	
==>ipt code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	964	1099	
==>re,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	964	1099	
==>re,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	964	1099	
==>re,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $ti <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26086	26183	
==>adable short
string; the allowed variable names you can have depend on the Message Key
it is being <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26086	26183	
==>adable short
string; the allowed variable names you can have depend on the Message Key
it is being <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2076	2200	
==>_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2076	2200	
==>_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2156	2280	
==>_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14463	14565	
==>::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14463	14565	
==>::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14463	14565	
==>::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	308	401	
==>to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	308	401	
==>to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	308	401	
==>to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm ru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38355	38450	
==>=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42904	42999	
==>=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42554	42649	
==>=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11108	11202	
==>e smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11108	11202	
==>e smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11108	11202	
==>e smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	225	332	
==>b import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	186	293	
==>b import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	186	293	
==>b import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3221	3363	
==>)
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3221	3363	
==>)
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3221	3363	
==>)
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4985	5128	
==>pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4985	5128	
==>pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4985	5128	
==>pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11140	11286	
==>ode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11140	11286	
==>ode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11140	11286	
==>ode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2903	3003	
==>l = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2903	3003	
==>l = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2903	3003	
==>l = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	593	691	
==>ew_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	593	691	
==>ew_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	593	691	
==>ew_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14380	14480	
==>::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14380	14480	
==>::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14380	14480	
==>::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Con <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5832	5918	
==>----------------------------------------------------------------
## sibling methods

me <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5832	5918	
==>----------------------------------------------------------------
## sibling methods

me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	244	350	
==>$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	244	350	
==>$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2658	2777	
==>> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2658	2777	
==>> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2658	2777	
==>> 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2352	2464	
==>('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2352	2464	
==>('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete <==
3	/Users/nnunley/pugs/util/drift.pl	1925	2025	
==>ogram) until $program[0] =~ /Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type Buf <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5706	5849	
==>('&ternary:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$right_t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8829	8948	
==>8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8829	8948	
==>8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28815	28912	
==>ness......ok
  All tests successful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0.41 csys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17749	17840	
==>ero additional runtime penalty after compilation, because C<perl> has
already been doing the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17749	17840	
==>ero additional runtime penalty after compilation, because C<perl> has
already been doing the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	461	567	
==>atch,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	461	567	
==>atch,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => T <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16461	16552	
==>ndustrial strength) and has fully integrated database functionality;
this language, which sa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16461	16552	
==>ndustrial strength) and has fully integrated database functionality;
this language, which sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	729	835	
==>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	729	835	
==>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	729	835	
==>{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2400	2678	
==>'for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $ver <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2400	2678	
==>'for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3952	4062	
==>e_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3952	4062	
==>e_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3952	4062	
==>e_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1725	1829	
==>r(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1725	1829	
==>r(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1725	1829	
==>r(a) <= Number(b)" ],
    [ "infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6700	6824	
==>"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6700	6824	
==>"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20240	20348	
==>($file) is builtin is primitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8468	8569	
==>ns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8468	8569	
==>ns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23824	23918	
==>t declare any subroutines or export such.

The usual way that Relation::Example indicates a fai <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13201	13311	
==>-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16678	16788	
==>-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16040	16150	
==>-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's headi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7886	7988	
==>ng blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7886	7988	
==>ng blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do s <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1969	2061	
==>, 'subset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1232	1375	
==>ing;
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				ar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1631	1752	
==>= $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1631	1752	
==>= $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8821	9000	
==>( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12722	12858	
==>( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12722	12858	
==>( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	255	359	
==>r::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	238	338	
==>r::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4963	5070	
==>Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4963	5070	
==>Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4963	5070	
==>Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if define <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20049	20144	
==>expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20049	20144	
==>expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	633	724	
==>witz E<lt>rafl@debian.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Fl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13960	14091	
==>(D) --> [D], { member(D,"01234567") }.

octdigits3_int(I) -->
  octdigit(D0), octdigit(D1), octdigit(D2), {number_chars(I,[42,111,D0 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1258	1364	
==>p_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: cl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1258	1364	
==>p_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4929	5053	
==>\"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4929	5053	
==>\"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4929	5053	
==>\"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	668	863	
==>*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } els <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	668	863	
==>*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } els <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2062	2162	
==>num - the core num type


=head1 METHODS

=over 4

=item B<new (*native*) returns num>

=item B<to_na <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1146	1264	
==>might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22315	22410	
==>>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22315	22410	
==>>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a de <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	153	312	
==>s;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defin <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	153	312	
==>s;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4635	4764	
==>{   
    sub package_re { $Package_re };

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35384	35507	
==>or False regardless of its
argument, in which case the new Relation::Example has either all of the tuples of
the original, o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10324	10433	
==>capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10603	10712	
==>capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1806	1904	
==>d1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1806	1904	
==>d1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1542	1663	
==>.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1542	1663	
==>.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1542	1663	
==>.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9273	9489	
==>my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9273	9489	
==>my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9273	9489	
==>my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( P <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1815	1910	
==>hod capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, w <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1815	1910	
==>hod capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34810	34901	
==>tion,
respectively.

=item C<restrict (Code $predicate!) returns Relation::Example>

This me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30203	30330	
==>bject's documentation for
possible values for its type.

=item my $v = $obj->visual()

The visual representation of this object. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2596	2698	
==>le to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2596	2698	
==>le to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2596	2698	
==>le to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10365	10488	
==>xpressionChars {  # see 7.8.5
      <null>
    | <RegularExpressionChars> <RegularExpressionChar>
}
rule RegularExpressionFi <==
3	/Users/nnunley/pugs/util/claim_drift.pl	245	345	
==>d probably make this arrangement less hacky, but until
# we do, this "claims" DrIFT links.
#
# usage: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6577	6673	
==>$$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	882	987	
==>iable} = url_decode($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Pat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9043	9135	
==>.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9043	9135	
==>.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1353	1458	
==>"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	568	653	
==>ime() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<tex <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	568	653	
==>ime() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12496	12646	
==>er(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12496	12646	
==>er(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12496	12646	
==>er(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7685	7802	
==>TE:
## we want to prevent the default version 
## of this from taking over which would make
## things like: FooRole.is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7685	7802	
==>TE:
## we want to prevent the default version 
## of this from taking over which would make
## things like: FooRole.is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7685	7802	
==>TE:
## we want to prevent the default version 
## of this from taking over which would make
## things like: FooRole.is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13581	13708	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSI <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8296	8394	
==>estruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has no <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8296	8394	
==>estruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has no <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2239	2374	
==>gnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3600	3727	
==>gnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1030	1121	
==>ind of reverse-engineered implicit abstraction kludge would be
# unsustainable, and unsuitab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2089	2198	
==>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2089	2198	
==>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2089	2198	
==>SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	81	201	
==>_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	81	201	
==>_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	81	201	
==>_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26993	27088	
==>s
the complement subset of the original's attributes to what C<project> would
return given the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31545	31640	
==>s
the complement subset of the original's attributes to what C<project> would
return given the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30601	30696	
==>s
the complement subset of the original's attributes to what C<project> would
return given the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5867	5985	
==>{ +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5867	5985	
==>{ +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5867	5985	
==>{ +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9654	9899	
==>l(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::ENV) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3304	3429	
==>atch => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3497	3622	
==>atch => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4621	4721	
==>,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4621	4721	
==>,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4621	4721	
==>,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_na <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9984	10084	
==>de_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # X <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9984	10084	
==>de_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	145	246	
==>lso the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	145	246	
==>lso the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	145	246	
==>lso the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6065	6185	
==>=['',''] unless $match; # defined($t);

        #print "expect NUM \n" if grep { $_ eq 'NUM' } @expect;
        #print "e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12541	12651	
==>@_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12541	12651	
==>@_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18449	18553	
==>);

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18449	18553	
==>);

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5553	5653	
==>ious_exec_hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 * <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24071	24186	
==>ary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty print a -> b where b = int");
}
{
	my $a = typ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2029	2123	
==>o_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2029	2123	
==>o_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1024	1121	
==>de::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1024	1121	
==>de::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1024	1121	
==>de::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1683	1837	
==>}            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1683	1837	
==>}            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1683	1837	
==>}            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8082	8249	
==>s =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8082	8249	
==>s =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	92	188	
==>nfig;
use JIB::Package;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(chec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1718	1831	
==>zy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1718	1831	
==>zy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1718	1831	
==>zy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	953	1063	
==>h a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	953	1063	
==>h a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1033	1143	
==>h a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22598	22695	
==>ntation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27150	27247	
==>ntation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25882	25979	
==>ntation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11415	11521	
==>}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11415	11521	
==>}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11415	11521	
==>}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12200	12350	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12200	12350	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12200	12350	
==>_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be d <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12127	12224	
==>`

This function currently on checks with ref() since we do not yet have
object support. Once obje <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12185	12282	
==>`

This function currently on checks with ref() since we do not yet have
object support. Once obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30893	30990	
==>d.  This module is standard with Perl 5.8.

=head2 Object Attributes

All objects share the follow <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3843	3941	
==>and reduce the
Thunk.

Inside the Thunk the Seq will reduce its children one by one. First Param wi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	792	884	
==>N

This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	792	884	
==>N

This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	477	627	
==>b new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $dir;
    my $tmpl = {
        dir     => { required => 1, allow => sub { -d shift( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	734	855	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	734	855	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	734	855	
==>,
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2784	2919	
==>ode);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2784	2919	
==>ode);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2784	2919	
==>ode);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "W <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1257	1355	
==>*@values) returns List
 multi sub sort(Criterion $by ; *@values) returns List
 &sort<> := &sort<Cri <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11702	11797	
==>ncode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11702	11797	
==>ncode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entitie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15757	15899	
==>t;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15757	15899	
==>t;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15757	15899	
==>t;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2290	2416	
==>preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of express <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2290	2416	
==>preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of express <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2290	2416	
==>preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of express <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5004	5113	
==>ch::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5226	5335	
==>ch::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	139	241	
==>gic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub reg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28912	29012	
==>s having the same names as old
attributes that become wrapped, and it supports having new tuple-value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33464	33564	
==>s having the same names as old
attributes that become wrapped, and it supports having new tuple-value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32601	32701	
==>s having the same names as old
attributes that become wrapped, and it supports having new tuple-value <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3158	3284	
==>+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3158	3284	
==>+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5935	6054	
==>tr = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timesta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10770	10883	
==>wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:read <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10770	10883	
==>wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:read <==
3	/Users/nnunley/pugs/util/fixauthors.pl	130	240	
==>DIN,  ":utf8");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] c <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	877	990	
==>here { rx/^Foo/ };

It is probably bad to have both a MetaClass called C<Type> and a
language object called C<Type <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4658	4759	
==>the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter( <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4658	4759	
==>the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter( <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1635	1767	
==>$e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't wri <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16958	17049	
==>exists mainly to document a certain localization methodology
in an easily accessable manner, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16958	17049	
==>exists mainly to document a certain localization methodology
in an easily accessable manner, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3677	3856	
==>" .
                    "for '$path'" unless $avail{ $depends->{package} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2982	3089	
==>y $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2982	3089	
==>y $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10342	10503	
==>[ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10342	10503	
==>[ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10342	10503	
==>[ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12682	12789	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12682	12789	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12682	12789	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4978	5085	
==>sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4978	5085	
==>sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4978	5085	
==>sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2931	3035	
==>h no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2931	3035	
==>h no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1350	1453	
==>ve - $right->to_num->to_native());
}

sub multiply {
    my ($left, $right) = @_;
    (blessed($right) & <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29828	29927	
==>ibutes having the same names as old attributes
that were wrapped, and it supports having old tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34380	34479	
==>ibutes having the same names as old attributes
that were wrapped, and it supports having old tuple-v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33544	33643	
==>ibutes having the same names as old attributes
that were wrapped, and it supports having old tuple-v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15733	15886	
==>ash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15733	15886	
==>ash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15733	15886	
==>ash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28828	28951	
==>is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28828	28951	
==>is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	199	310	
==>is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4765	4883	
==>}         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES
}
    else <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24423	24529	
==>on branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20844	20950	
==>on branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3163	3412	
==>ace::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::In <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3163	3412	
==>ace::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::In <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5106	5223	
==>$index->dir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing index f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8255	8426	
==>se {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8255	8426	
==>se {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8255	8426	
==>se {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4556	4655	
==>().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4556	4655	
==>().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4556	4655	
==>().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand().";\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	221	329	
==>e = 'grammar1::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_ter <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37488	37586	
==>tor, and the order of its arguments is not significant to the result;
the new Relation is the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42037	42135	
==>tor, and the order of its arguments is not significant to the result;
the new Relation is the resul <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14862	14958	
==>databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14862	14958	
==>databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1168	1335	
==>::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1168	1335	
==>::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1168	1335	
==>::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17545	17666	
==>alue::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17545	17666	
==>alue::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17545	17666	
==>alue::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20627	20743	
==>^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20627	20743	
==>^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20627	20743	
==>^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	457	617	
==>$?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	457	617	
==>$?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3422	3571	
==>pace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	543	640	
==>($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	543	640	
==>($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	543	640	
==>($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5203	5297	
==>nstance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5203	5297	
==>nstance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5203	5297	
==>nstance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5027	5133	
==>r => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5027	5133	
==>r => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5027	5133	
==>r => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor rou <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12002	12219	
==>}, $overrun
                }
            }

            if ($wstatus) {
                $failedtests{$tfile} = _dubious_return(\%test, \%tot, 
                                                       $estatus, $wstatus) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14688	14778	
==>lways C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14688	14778	
==>lways C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11783	11875	
==>::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11783	11875	
==>::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11783	11875	
==>::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2965	3063	
==>cket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2965	3063	
==>cket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4335	4422	
==>>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	836	987	
==>lief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # dir to stor <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6804	6929	
==>y of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6804	6929	
==>y of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5507	5689	
==>wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8984	9166	
==>wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4640	4746	
==>ll also show numbers for some uneeded cases, but will
        # definately be helpful for things such as == <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6315	6410	
==>th/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6315	6410	
==>th/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	984	1086	
==>t_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	984	1086	
==>t_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2463	2556	
==>rs.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.dele <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2463	2556	
==>rs.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.dele <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30152	30260	
==>neric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34704	34812	
==>neric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33877	33985	
==>neric relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6032	6123	
==><EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6032	6123	
==><EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6032	6123	
==><EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7472	7582	
==>llect_all_roles));

## ----------------------------------------------------------------------------
## END BOOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7472	7582	
==>llect_all_roles));

## ----------------------------------------------------------------------------
## END BOOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7472	7582	
==>llect_all_roles));

## ----------------------------------------------------------------------------
## END BOOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1773	1886	
==>tation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1773	1886	
==>tation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1773	1886	
==>tation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5672	5769	
==>($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    el <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5672	5769	
==>($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    el <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6262	6359	
==>($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    el <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1939	2096	
==>status dir like dpkg
    my $postrm = $meta . '/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             an <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3098	3241	
==>}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3098	3241	
==>}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	553	677	
==>eate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	553	677	
==>eate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	553	677	
==>eate_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	824	928	
==>bject.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	824	928	
==>bject.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	824	928	
==>bject.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26849	26947	
==>er than mutable, this property and/or
same-named accessor method can be used to see if a Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23493	23589	
==>er than mutable, this property and/or
same-named accessor method can be used to see if a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28045	28141	
==>er than mutable, this property and/or
same-named accessor method can be used to see if a Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4079	4191	
==>$param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4079	4191	
==>$param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4079	4191	
==>$param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub D <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2460	2561	
==>f File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object su <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2460	2561	
==>f File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object su <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8463	8558	
==>@union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8463	8558	
==>@union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool { <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7199	7518	
==>L'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7256	7575	
==>L'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11721	11815	
==>needlessly backslashed 'N'.  My
module parses them and handles them properly.  The nchar() meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3224	3408	
==>$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3224	3408	
==>$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3224	3408	
==>$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new()',
                     ':' => "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1115	1231	
==>BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1115	1231	
==>BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1115	1231	
==>BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $js <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15449	15576	
==>eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \'' . $n->{op1}{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3613	3710	
==>tandard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3613	3710	
==>tandard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	92	196	
==>ND__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	60	164	
==>ND__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	92	196	
==>ND__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5448	5597	
==>n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5670	5819	
==>n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_var <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1619	1730	
==>'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods->exists($label) == $bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4294	4405	
==>b no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{values}{no_index}{$type} }, @_ if $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9465	9558	
==>ir attributes are private, so you must use accessor methods.
Rosetta::Model does not declare a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9465	9558	
==>ir attributes are private, so you must use accessor methods.
Rosetta::Model does not declare a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32298	32392	
==>n ending node, its ender() method should
return an array reference of arguments to object() tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	223	324	
==>IL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	223	324	
==>IL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	223	324	
==>IL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1707	1822	
==>code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1707	1822	
==>code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1707	1822	
==>code($_) ) { $_ } else { () } } )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5546	5663	
==>$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # impleme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5546	5663	
==>$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # impleme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5546	5663	
==>$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # impleme <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5597	5705	
==>e::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5597	5705	
==>e::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6276	6428	
==>l,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6276	6428	
==>l,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6276	6428	
==>l,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44771	45041	
==>ub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## -------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6553	6655	
==>ccordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6553	6655	
==>ccordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30828	30953	
==>tion have been eliminated. 
Trivial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35379	35503	
==>tion have been eliminated.
Trivial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34570	34694	
==>tion have been eliminated.
Trivial cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is i <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12131	12225	
==>e the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1  <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12131	12225	
==>e the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1  <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5398	5487	
==>ad);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGolfScore($head, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3443	3574	
==>RAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3443	3574	
==>RAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1421	1514	
==>st a shorthand for calling an accessor).

Run-time inheritance/method dispatch need not look a <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1002	1164	
==>ize        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	865	995	
==>ize      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        d <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4887	4990	
==>0) :length(1));

 multi Array::shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1874	1999	
==>s $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1874	1999	
==>s $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1874	1999	
==>s $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23075	23278	
==>scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23075	23278	
==>scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23075	23278	
==>scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13865	13968	
==>rn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13865	13968	
==>rn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13865	13968	
==>rn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15077	15179	
==>set the value of a header.  The header value is set if you pass
an argument to the method.  The old hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15077	15179	
==>set the value of a header.  The header value is set if you pass
an argument to the method.  The old hea <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	488	586	
==>/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executable not found, fetching <==
3	/Users/nnunley/pugs/util/grokprims.pl	1556	1673	
==>e \$$a0";
  } elsif (/left-associative/ and $arity==2) {
    $example = "(\$$a0 $name \$$a1) $name \$$a1";
  } elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1811	1981	
==>nf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1811	1981	
==>nf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.sta <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3994	4122	
==>};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key:\n";
        foreac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15971	16098	
==>b {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10827	10954	
==>b {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alte <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20608	20710	
==>AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1442	1660	
==>in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3978	4074	
==>s Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.st <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3978	4074	
==>s Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16764	16907	
==>$::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16764	16907	
==>$::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16764	16907	
==>$::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1170	1273	
==>$child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_widt <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1170	1273	
==>$child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_widt <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8614	8717	
==>backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8614	8717	
==>backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29877	30023	
==>$sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29877	30023	
==>$sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29877	30023	
==>$sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2366	2478	
==>&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_on <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2366	2478	
==>&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_on <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2713	2825	
==>&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_on <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	283	386	
==>elf: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4419	4517	
==>d

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Si <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4419	4517	
==>d

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12005	12110	
==>?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12005	12110	
==>?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1	99	
==>ackage Perl6::Rule::Parser;

use base 'Regexp::Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4150	4258	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4150	4258	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4150	4258	
==>LValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	184	287	
==>tr and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	184	287	
==>tr and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	184	287	
==>tr and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	856	976	
==>> $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @$_ } $self->scopes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13168	13286	
==>.get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13168	13286	
==>.get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3309	3411	
==>nction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].conca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3309	3411	
==>nction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].conca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3309	3411	
==>nction (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].conca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11575	11684	
==>") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a unicode property <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1811	1908	
==>er' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Ar <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1811	1908	
==>er' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4182	4286	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4182	4286	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4182	4286	
==>tive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14573	14684	
==>So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $li <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14573	14684	
==>So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $li <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9811	9919	
==>nt\" by entering the following
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16416	16556	
==>n $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16416	16556	
==>n $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16416	16556	
==>n $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2397	2509	
==>param_type = $param->type->to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg-> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9532	9643	
==>.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9532	9643	
==>.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2863	2986	
==>@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2863	2986	
==>@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2863	2986	
==>@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4732	4936	
==>);
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4732	4936	
==>);
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie he <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3608	3744	
==>re->isa('closure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref));
            $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7217	7328	
==>- needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7217	7328	
==>- needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7217	7328	
==>- needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1683	1796	
==>sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1683	1796	
==>sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1683	1796	
==>sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27244	27339	
==>");
is(t($app_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23283	23377	
==>l =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23283	23377	
==>l =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6496	6610	
==>tive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6496	6610	
==>tive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6496	6610	
==>tive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29052	29233	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29331	29512	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6361	6479	
==>]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->new(
        yylex => $lex, <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8186	8312	
==>or my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16279	16373	
==>sm for
applications and packages that empowers single binaries to support N
locales or user typ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16279	16373	
==>sm for
applications and packages that empowers single binaries to support N
locales or user typ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3070	3181	
==>e a global or a dynamic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped from '&func <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1754	1847	
==>d1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebasti <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1754	1847	
==>d1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebasti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3032	3150	
==>v};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3032	3150	
==>v};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3032	3150	
==>v};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1750	1850	
==>str($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1750	1850	
==>str($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1750	1850	
==>str($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25514	25609	
==>rns Relation>

This method is a generic relational operator that returns a new Relation
which is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30066	30161	
==>rns Relation>

This method is a generic relational operator that returns a new Relation
which is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	929	1032	
==>tegory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	929	1032	
==>tegory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3425	3536	
==>$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_lo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3425	3536	
==>$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_lo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2721	2839	
==>ay.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, bo <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	361	467	
==>=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[- <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	361	467	
==>=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4620	4727	
==>lue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4620	4727	
==>lue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4170	4285	
==>ent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4170	4285	
==>ent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.ne <==
3	/Users/nnunley/pugs/util/package-osx.pl	3513	3633	
==>/man3/history.3
        /usr/local/man/man3/Inline::Pugs.3pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1346	1445	
==>return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1346	1445	
==>return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1895	2041	
==>$op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1676	1814	
==>$op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1676	1814	
==>$op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5004	5146	
==>RT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param}{cpan_bareword} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1178	1275	
==>t the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface

T <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1178	1275	
==>t the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface

T <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7231	7380	
==>', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mode <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7231	7380	
==>', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mode <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31727	31819	
==>ion::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Exampl <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7166	7304	
==>ad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6947	7063	
==>}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6947	7063	
==>}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	895	999	
==>ilename) = @_;
    my $config_default    = 'config.yml';
    my $config_template   = 'util/config-templat <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2918	3018	
==>thod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2918	3018	
==>thod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2192	2315	
==>ILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2192	2315	
==>ILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	883	978	
==>n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();\n";
    print <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12096	12192	
==>do, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not ye <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12154	12250	
==>do, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not ye <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14869	14984	
==>($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type of the parameter <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3947	4057	
==>class     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $se <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2904	3008	
==>class = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $se <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4984	5136	
==>ne the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop( <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4984	5136	
==>ne the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2480	2594	
==>~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20052	20318	
==>er;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20052	20318	
==>er;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20052	20318	
==>er;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::V <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1013	1136	
==>failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	pr <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	427	526	
==>_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_meth <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	427	526	
==>_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9456	9570	
==>gs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9456	9570	
==>gs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9456	9570	
==>gs.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	692	805	
==>bjects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	692	805	
==>bjects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	692	805	
==>bjects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4039	4152	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4039	4152	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4039	4152	
==>LKMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10180	10333	
==>=>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2229	2362	
==>=>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2229	2362	
==>=>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7324	7421	
==>hers and returns any pending data.  Block 
ciphers should buffer input data until they have an ent <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7324	7421	
==>hers and returns any pending data.  Block 
ciphers should buffer input data until they have an ent <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18909	19011	
==>ike
C<\w> or C<\S>), the object's C<data> field points to the underlying
object type (I<prop>, I<alnum> <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3702	3803	
==>i method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi m <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1802	1903	
==>i method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi m <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	834	928	
==>52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nma <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1216	1309	
==>sub pi () returns Num is builtin is primitive {
    3.1415926535897932384626433832795028841971 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	719	805	
==>52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1081	1241	
==>$<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1481	1641	
==>$<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1955	2115	
==>$<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backsla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14449	14594	
==>se warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14449	14594	
==>se warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14449	14594	
==>se warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4193	4317	
==>a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4193	4317	
==>a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4193	4317	
==>a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	148	329	
==>All {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sig <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	213	375	
==>All {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sig <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8449	8565	
==>rd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1476	1581	
==>var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1476	1581	
==>var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1476	1581	
==>var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11718	11843	
==>);
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11718	11843	
==>);
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32241	32340	
==>the result.  With any 2 relations, the result is the same regardless of
which is the invocant and wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36791	36890	
==>the result.  With any 2 relations, the result is the same regardless of
which is the invocant and wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36081	36180	
==>the result.  With any 2 relations, the result is the same regardless of
which is the invocant and wh <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4826	4960	
==>0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4826	4960	
==>0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16799	16927	
==>the following
information:

  passing           true if the whole test is considered a pass 
                    (or skipped), fa <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3413	3515	
==>ifference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symme <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3413	3515	
==>ifference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7194	7322	
==>[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, "]";
    }
  }
}


{
  package Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5699	5803	
==>Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5699	5803	
==>Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11837	11975	
==>$X::cap;
      my $m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat)) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23142	23240	
==>end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the serve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23142	23240	
==>end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the serve <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3802	3908	
==>E')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	194	298	
==>returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBU <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	194	298	
==>returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBU <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5599	5707	
==>:Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5599	5707	
==>:Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26961	27061	
==>ssing it, you'll probably want
to call it in your own module.

  package Regexp::AndBranch;
  use bas <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16963	17057	
==>s mainly to document a certain localization methodology
in an easily accessable manner, such th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16963	17057	
==>s mainly to document a certain localization methodology
in an easily accessable manner, such th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6133	6249	
==>if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6121	6237	
==>if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6043	6215	
==>ed;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6043	6215	
==>ed;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6043	6215	
==>ed;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9686	9783	
==>, defined with closures. 

A recurrence set is defined by a "successor" function and a "predecesso <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9686	9783	
==>, defined with closures. 

A recurrence set is defined by a "successor" function and a "predecesso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	126	218	
==>e base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
us <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	126	218	
==>e base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
us <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	126	218	
==>e base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1088	1177	
==>IL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1088	1177	
==>IL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1088	1177	
==>IL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(% <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2194	2376	
==>l';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8494	8637	
==>ped by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

sho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8210	8349	
==>ped by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7974	8116	
==>".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7974	8116	
==>".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7974	8116	
==>".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24028	24131	
==>ly from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28580	28683	
==>ly from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27411	27514	
==>ly from the optional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1306	1407	
==>",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1306	1407	
==>",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1306	1407	
==>",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6656	6791	
==>nting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6656	6791	
==>nting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6656	6791	
==>nting hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4173	4282	
==>if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4173	4282	
==>if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4173	4282	
==>if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19334	19427	
==>ist of a challenge that indicates the
authentication scheme and parameters applicable to the r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19334	19427	
==>ist of a challenge that indicates the
authentication scheme and parameters applicable to the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1762	1896	
==>::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1762	1896	
==>::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1762	1896	
==>::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->en <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3125	3249	
==>d a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Cha <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3125	3249	
==>d a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Cha <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3030	3131	
==><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method curr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3030	3131	
==><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method curr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9097	9195	
==>nt

You can access the number capture groups with the nparen() method:

  my $captgroups = $parser- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7270	7391	
==>p5re...\n");
      handler = sv;
    }
  }  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf(std <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2766	2849	
==>l.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.com <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2766	2849	
==>l.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.com <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	621	733	
==>gs => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = lengt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	621	733	
==>gs => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4100	4191	
==>s::Rebless defines B<only class methods>. There is no instance
constructor, and when calling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4100	4191	
==>s::Rebless defines B<only class methods>. There is no instance
constructor, and when calling <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4100	4191	
==>s::Rebless defines B<only class methods>. There is no instance
constructor, and when calling <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1425	1549	
==>return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs ( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1425	1549	
==>return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33090	33189	
==>tation.  For now, read the source (!).

=head2 bol

Family: anchor

Types: bol (C<^>), sbol (C<^> wi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1388	1493	
==>de;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1388	1493	
==>de;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3263	3387	
==>$values{requires} =
          [ [ perl => $perl_version ], @{ $values{requires} || [] }, ];
    }

    warn "No license speci <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7888	7988	
==>::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7619	7715	
==>::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	468	610	
==>?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: (\d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	444	561	
==>}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1170	1284	
==>}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1611	1752	
==>lass in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1611	1752	
==>lass in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]? <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15348	15442	
==>o it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpor <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15348	15442	
==>o it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8411	8503	
==>_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4285	4375	
==>lockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4285	4375	
==>lockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4285	4375	
==>lockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2048	2150	
==>" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2048	2150	
==>" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2048	2150	
==>" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String(b)" <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4543	4644	
==>pan;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4543	4644	
==>pan;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	640	740	
==>f a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	640	740	
==>f a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	640	740	
==>f a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4365	4488	
==>spatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4365	4488	
==>spatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4365	4488	
==>spatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38253	38356	
==>re after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38253	38356	
==>re after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38253	38356	
==>re after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->el <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6961	7063	
==>lf;
}


package types;

use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of the var <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16186	16279	
==>e_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16186	16279	
==>e_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1064	1172	
==>empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1064	1172	
==>empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7847	7953	
==>d, but if you use regex() then it will return false.

  if (! $parser->regex($rx)) {
    my $errmsg = $pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19037	19148	
==>nding '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19037	19148	
==>nding '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code blo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2473	2597	
==>);
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (revers <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34088	34185	
==>the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=bac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34088	34185	
==>the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7548	7655	
==>@vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7548	7655	
==>@vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7548	7655	
==>@vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8830	8961	
==>erm;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8826	8957	
==>erm;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	936	1039	
==>$dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $incre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2459	2566	
==>$MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2459	2566	
==>$MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2459	2566	
==>$MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31378	31548	
==>else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31378	31548	
==>else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31378	31548	
==>else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11935	12083	
==>my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11935	12083	
==>my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11935	12083	
==>my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10975	11122	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10975	11122	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10975	11122	
==>hod) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36044	36140	
==>cant and <$other> headings. 
The body of the new relation is the result of first pairwise-matchin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40594	40689	
==>cant and <$other> headings.
The body of the new relation is the result of first pairwise-matchin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40208	40303	
==>cant and <$other> headings.
The body of the new relation is the result of first pairwise-matchin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4393	4502	
==>t =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4393	4502	
==>t =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4759	4868	
==>nition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self->{defs} }, $body;

	$self->m <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	266	377	
==>determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Fin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8501	8596	
==>::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8501	8596	
==>::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18785	19015	
==>,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18785	19015	
==>,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18785	19015	
==>,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $othe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5133	5250	
==>LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5133	5250	
==>LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2037	2154	
==>LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11287	11411	
==>red_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6831	6940	
==>_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6831	6940	
==>_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4725	4817	
==>ax) --> ",", digits_int(Max).
p5_range_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1270	1369	
==>?)<?p6ws>?\)<?p6ws>?
        { return { meth_call_term => $() } }
RULE
*{'meth_call_statement'} = Pu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14385	14483	
==>targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14385	14483	
==>targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7011	7134	
==>y $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7011	7134	
==>y $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7011	7134	
==>y $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $count = $param{cel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14342	14435	
==>ueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14342	14435	
==>ueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10361	10471	
==>}
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10361	10471	
==>}
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9859	9958	
==>ingleton_method',
 '... still got the right return value from $iFoo singleton method');

## make sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	592	704	
==>ter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	592	704	
==>ter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	233	339	
==>opy"
sub func( $arg is copy ) { $arg = 123; }
#="is ref": eine Referenz wird erwartet
sub func( $arg is ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	994	1109	
==>}
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	994	1109	
==>}
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	994	1109	
==>}
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17316	17416	
==>me kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17316	17416	
==>me kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11507	11618	
==>cified"
	    unless defined $args{args} or defined $args{switches}
		or defined $args{stdin};
    }
    if (defi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	792	894	
==>erver::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclass <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	792	894	
==>erver::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1589	1721	
==>05-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1589	1721	
==>05-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1589	1721	
==>05-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "el <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3166	3308	
==>d, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $expected ) {
        # undef only matches undef
        $pass = !defin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4483	4614	
==>=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4483	4614	
==>=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	168	281	
==>FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	168	281	
==>FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	168	281	
==>FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $id <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8385	8544	
==>[ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8385	8544	
==>[ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_ <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	267	407	
==>i < links.length; i++) {
        var href = links[i].href;
        if (href.match(/\/~/)) window.open(href);
    }
}
</script>
<body>
<h1>~</ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1136	1235	
==>UR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1136	1235	
==>UR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1136	1235	
==>UR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	135	236	
==>de later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	135	236	
==>de later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	135	236	
==>de later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, & <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2585	2708	
==>d( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) & <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2585	2708	
==>d( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	949	1048	
==>tomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	949	1048	
==>tomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	949	1048	
==>tomatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around and <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4203	4515	
==>sion    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8929	9027	
==>the match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD entry <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8634	8730	
==>the match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD entry <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4215	4321	
==>g,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Saf <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6363	6459	
==>l' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtIte <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6363	6459	
==>l' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtIte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14537	14653	
==>is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14537	14653	
==>is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14537	14653	
==>is needed to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2169	2291	
==>return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2169	2291	
==>return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2169	2291	
==>return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$key} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5333	5441	
==>f ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5333	5441	
==>f ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5333	5441	
==>f ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	272	380	
==>s: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	272	380	
==>s: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	272	380	
==>s: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tiea <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2456	2570	
==>{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2456	2570	
==>{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27533	27630	
==>AG_u>.  This doesn't mean you can use them on C<qr//>, but rather
that you can write C<(?u:...)> o <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	605	722	
==>g.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsC <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	605	722	
==>g.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	473	581	
==>w => FILE_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1336	1440	
==>t} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1476	1580	
==>t} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	228	343	
==>{
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Po <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	228	343	
==>{
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Po <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40654	40751	
==>rp() or Carp::croak().  The argument list is used to fill in
the format string for sprintf().

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2484	2580	
==>, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2484	2580	
==>, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2484	2580	
==>, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", " <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10401	10500	
==>ift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10401	10500	
==>ift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	54	173	
==>::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	59	178	
==>::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	59	178	
==>::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	364	474	
==>L2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	364	474	
==>L2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	364	474	
==>L2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.refer <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8950	9053	
==>the package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10427	10530	
==>the package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3667	3806	
==>ame =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3667	3806	
==>ame =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3667	3806	
==>ame =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8476	8647	
==>be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best matc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8940	9111	
==>be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best matc <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2104	2223	
==>ndices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@ret;
}
# si <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8361	8475	
==>dy;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unexpected.\n";
	return "";
    }
    if($ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5629	5720	
==>full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Dependin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5629	5720	
==>full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Dependin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	321	422	
==>* str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	321	422	
==>* str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	321	422	
==>* str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13525	13674	
==>ore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13525	13674	
==>ore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13525	13674	
==>ore are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9674	9778	
==>, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9674	9778	
==>, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9674	9778	
==>, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4950	5081	
==>|| 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4950	5081	
==>|| 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4950	5081	
==>|| 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACK <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6027	6157	
==>char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6015	6145	
==>char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2439	2543	
==>delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num->new(0), $self-> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21624	21720	
==>), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4701	4795	
==>iny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name coll <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4701	4795	
==>iny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name coll <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	726	830	
==>less defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $durati <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	726	830	
==>less defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $durati <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1764	1868	
==>ed(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($self, $args <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23358	23450	
==>yan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redist <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41282	41374	
==>yan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redist <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37308	37400	
==>yan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redist <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4270	4408	
==>ay: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pr <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	161	256	
==>me::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::R <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	161	256	
==>me::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6551	6679	
==>t_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6744	6872	
==>t_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2293	2411	
==>>new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2293	2411	
==>>new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2293	2411	
==>>new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6562	6665	
==>d_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6562	6665	
==>d_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6562	6665	
==>d_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	415	536	
==>varscalar {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\$(?:(?:\:\:)?[_[:a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6474	6570	
==>tting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6474	6570	
==>tting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	105	204	
==>es ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	105	204	
==>es ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	105	204	
==>es ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2051	2143	
==>self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2051	2143	
==>self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2051	2143	
==>self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1804	1929	
==>y ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        retur <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	768	876	
==>tstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	768	876	
==>tstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4848	4958	
==>.."
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1197	1301	
==>1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1197	1301	
==>1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	543	669	
==>losure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	543	669	
==>losure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	543	669	
==>losure, then things don\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23723	23811	
==>Rosetta::Engine::Example> is bundled with Rosetta and
implements a reference implementati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23723	23811	
==>Rosetta::Engine::Example> is bundled with Rosetta and
implements a reference implementati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4137	4303	
==>t';
        return;
    }
};

sub named {
    # return a named capture
    my $label = shift;
    my $node = shift;
    sub {
        my $match;
        $no <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18731	18827	
==>new(); you need to supply its $document and optional
$parent_node though; you can produce a direc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18731	18827	
==>new(); you need to supply its $document and optional
$parent_node though; you can produce a direc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12142	12255	
==>sted when comparing two elements, sort should
return them in the same relative order they had in C<@values>.

If C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1581	1683	
==>nostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1581	1683	
==>nostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2800	2949	
==>trs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2800	2949	
==>trs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2800	2949	
==>trs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1814	1925	
==>t->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1814	1925	
==>t->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1814	1925	
==>t->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7059	7175	
==>re* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7059	7175	
==>re* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7059	7175	
==>re* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_ma <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10140	10274	
==>WALKCLASS", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symb <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	253	354	
==>cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	253	354	
==>cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	110	213	
==>@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	110	213	
==>@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	110	213	
==>@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	935	1095	
==>ive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	935	1095	
==>ive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	935	1095	
==>ive());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    c <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	433	545	
==>vents, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call it.
  my met <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25370	25466	
==>a system following the terms of the GPL for Rosetta and the licenses
of the other components conc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25370	25466	
==>a system following the terms of the GPL for Rosetta and the licenses
of the other components conc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8012	8131	
==>n $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8012	8131	
==>n $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8012	8131	
==>n $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39211	39333	
==>ift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39211	39333	
==>ift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39211	39333	
==>ift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1119	1248	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1119	1248	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1119	1248	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29412	29522	
==>s { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29412	29522	
==>s { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29412	29522	
==>s { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5391	5495	
==>est with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the ski <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5391	5495	
==>est with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the ski <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6915	7019	
==>est with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the ski <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	881	989	
==>A = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	881	989	
==>A = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	881	989	
==>A = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6508	6610	
==>head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6508	6610	
==>head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6508	6610	
==>head1 CAVEATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4849	4954	
==>or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4849	4954	
==>or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4849	4954	
==>or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = <==
3	/Users/nnunley/pugs/util/grokprims.pl	2148	2242	
==>xample</tt></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	836	953	
==>ld_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	836	953	
==>ld_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	939	1040	
==>on($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6650	6752	
==>@_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6650	6752	
==>@_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6650	6752	
==>@_;
        ::opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2799	2890	
==>:Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2799	2890	
==>:Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2799	2890	
==>:Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2223	2340	
==>rn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'lo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2223	2340	
==>rn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'lo <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	179	286	
==>hange "die" to "fail" when "fail" is implemented.

# Input a string containing a rpn expression.
# Return th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15434	15594	
==>TRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15434	15594	
==>TRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15434	15594	
==>TRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	609	711	
==>amed, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	609	711	
==>amed, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2599	2700	
==>erty_value{$P};
    delete $O.property_attribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4238	4334	
==>arity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4238	4334	
==>arity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4238	4334	
==>arity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4636	4743	
==>turns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4636	4743	
==>turns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4636	4743	
==>turns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return ble <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	105	223	
==>ounter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.templ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	105	223	
==>ounter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.templ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1389	1499	
==>mpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	936	1085	
==>$::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1.. <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1239	1332	
==>-----------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
be <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1079	1172	
==>-----------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
be <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1361	1485	
==>st for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( ' <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1361	1485	
==>st for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1499	1598	
==>Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4057	4164	
==>ss to
    # interface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "< <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2359	2460	
==>hod register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicatin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2359	2460	
==>hod register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicatin <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	376	512	
==>$self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	376	512	
==>$self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1336	1457	
==>$_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8053	8200	
==>od) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8053	8200	
==>od) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8053	8200	
==>od) eq 'CODE')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_ME <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2245	2381	
==>:Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2233	2369	
==>:Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13954	14051	
==>es (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9766	9887	
==>n;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9766	9887	
==>n;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9766	9887	
==>n;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4005	4179	
==>path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too m <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4005	4179	
==>path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3039	3198	
==>:Regex->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some reas <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3273	3508	
==>rbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($l <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3273	3508	
==>rbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	396	499	
==>i sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	396	499	
==>i sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28528	28636	
==>new tuple-valued attribute names and each of its values
the set of old attribute names that are being wrapped <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33080	33188	
==>new tuple-valued attribute names and each of its values
the set of old attribute names that are being wrapped <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32208	32316	
==>new tuple-valued attribute names and each of its values
the set of old attribute names that are being wrapped <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	396	499	
==>ncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	396	499	
==>ncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	396	499	
==>ncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14580	14683	
==>`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14580	14683	
==>`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14580	14683	
==>`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2664	2765	
==>p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2664	2765	
==>p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2664	2765	
==>p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug wor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	313	408	
==>(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	313	408	
==>(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7816	7913	
==>y \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7804	7901	
==>y \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11415	11555	
==>s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11415	11555	
==>s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11415	11555	
==>s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7019	7160	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7019	7160	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7019	7160	
==>erl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq ' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	479	581	
==>1 DESCRIPTION

This object represents a Role.

A Role is a composable unit of behaviour; which includes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14979	15074	
==>es live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a refer <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14979	15074	
==>es live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2560	2656	
==>kage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2560	2656	
==>kage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2560	2656	
==>kage 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1337	1445	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIntern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1337	1445	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIntern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1337	1445	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aIntern <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18843	18943	
==>is:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18843	18943	
==>is:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7618	7714	
==>erator', 'type::variable::free') => sub { $_[1]->instantiate($_[0]) };

# an instantiated variabl <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1670	1823	
==>E;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $fil <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1670	1823	
==>E;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $fil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22991	23108	
==>ge Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10931	11045	
==>$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10931	11045	
==>$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10931	11045	
==>$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6787	6906	
==>'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6787	6906	
==>'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3686	3805	
==>'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10398	10513	
==>\&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10677	10792	
==>\&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3868	3972	
==>ckage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3868	3972	
==>ckage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3868	3972	
==>ckage PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4572	4683	
==>=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's al <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4572	4683	
==>=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6096	6207	
==>=item B<plan( Str $explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4931	5060	
==>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4931	5060	
==>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4931	5060	
==>lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	774	887	
==>ng.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { sa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	794	900	
==>ng.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { sa <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8112	8207	
==>ture from S29draft.pod 8651.  In the List section.
multi Array::reverse (   @values --> Lazy|Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1764	1865	
==>return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1764	1865	
==>return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1764	1865	
==>return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11935	12100	
==>); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8217	8382	
==>); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9051	9216	
==>); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4098	4348	
==>) and 
                            ### XXX this should be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $un <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3210	3305	
==>rs.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3210	3305	
==>rs.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3035	3131	
==>ure, which can be called repeatedly to encipher data.
The encipherer closure can be called with a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3035	3131	
==>ure, which can be called repeatedly to encipher data.
The encipherer closure can be called with a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1254	1365	
==>XPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1254	1365	
==>XPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1254	1365	
==>XPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pV <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1642	1754	
==>$x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1642	1754	
==>$x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1642	1754	
==>$x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	942	1129	
==>],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab concat(\n" . 
               ( join '', @s ) . 
               "$tab ), <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15382	15480	
==>s_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15440	15538	
==>s_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6362	6484	
==>\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6362	6484	
==>\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1857	1951	
==>::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1857	1951	
==>::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1857	1951	
==>::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

method JS:: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1379	1478	
==>ode ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1379	1478	
==>ode ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::P <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27117	27212	
==>t3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usable gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37440	37536	
==>true or false value determining whether this is a positive
assertion.  Here's the new class for t <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1345	1440	
==>tivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in me <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1345	1440	
==>tivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in me <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1843	2025	
==>9draft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	400	515	
==>_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	400	515	
==>_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29890	29989	
==>ed, and it supports having old tuple-valued attributes which
have zero attributes (they just vanish) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34442	34541	
==>ed, and it supports having old tuple-valued attributes which
have zero attributes (they just vanish) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33606	33705	
==>ed, and it supports having old tuple-valued attributes which
have zero attributes (they just vanish) <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	424	550	
==>= shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2172	2293	
==>hing $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2232	2353	
==>hing $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1 <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	572	695	
==>values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub reduce (Co <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2526	2627	
==>i", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map " <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2526	2627	
==>i", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6722	6843	
==>ift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20276	20371	
==>lt of the compilation
is replaced by a single line containing the hexadecimal digest of the
resu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20276	20371	
==>lt of the compilation
is replaced by a single line containing the hexadecimal digest of the
resu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7882	7986	
==>int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty & <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7882	7986	
==>int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3441	3587	
==>S/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3441	3587	
==>S/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3441	3587	
==>S/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6682	6791	
==>rn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6682	6791	
==>rn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6682	6791	
==>rn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7104	7240	
==>n "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7104	7240	
==>n "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7104	7240	
==>n "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6878	6974	
==>ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6878	6974	
==>ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3242	3422	
==>CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3242	3422	
==>CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	950	1071	
==>lass Getopt::Argument::Style {
        has $value;

        method ^string_to_arguments ( $string ) {
            return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5247	5424	
==>($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$cu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7009	7186	
==>($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$cu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14151	14306	
==>my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@Grammar::Perl6::$catego <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10324	10459	
==>my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11160	11292	
==>my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2489	2587	
==>_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2489	2587	
==>_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2489	2587	
==>_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2590	2726	
==>2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2590	2726	
==>2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2590	2726	
==>2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8476	8572	
==>ondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeSafe::Type: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	7	124	
==>mmon/p6compiler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

# ***************
# This version of l <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9060	9162	
==>t) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5828	5929	
==>s_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5828	5929	
==>s_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10207	10312	
==>e is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	501	604	
==>apture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variab <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	501	604	
==>apture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variab <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1412	1510	
==>ie::ADTs - Reused abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blon <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6806	6899	
==>$file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6806	6899	
==>$file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	96	195	
==>_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	96	195	
==>_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	96	195	
==>_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2246	2360	
==>is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2246	2360	
==>is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2246	2360	
==>is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15364	15498	
==>tar(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::option <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15643	15777	
==>tar(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::option <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	828	945	
==>:Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir}) };

    if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9156	9333	
==>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9156	9333	
==>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9156	9333	
==>new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21897	22008	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18318	18429	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>) <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5653	5754	
==>ren {
    my ($self, $child_count, $all_tests) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	11	114	
==>:Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	11	114	
==>:Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	11	114	
==>:Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1984	2153	
==>shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1984	2153	
==>shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1984	2153	
==>shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	600	702	
==>my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	600	702	
==>my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	600	702	
==>my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38203	38386	
==>> 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  -> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4978	5067	
==>lValue::Completion {
   submethod BUILD { $.type = JSX::InternalValue::Completion_type.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13379	13507	
==>ift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13379	13507	
==>ift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13379	13507	
==>ift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5731	5850	
==>ny(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5731	5850	
==>ny(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5731	5850	
==>ny(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33325	33536	
==>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33325	33536	
==>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33325	33536	
==>= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # w <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	356	491	
==>= @ARGV and is_root()) {
        # if there's no prefix, we want an install.
        $args[0] = 'install';
    }
    else {
        # If <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2644	2764	
==>ect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2644	2764	
==>ect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4022	4155	
==>uck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4022	4155	
==>uck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4022	4155	
==>uck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = un <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	204	314	
==>$.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curl <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	204	314	
==>$.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curl <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1825	1933	
==>here { true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset num of num32  where { true }');
Helpers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12212	12328	
==>m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4855	4971	
==>m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6323	6462	
==>ork any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6323	6462	
==>ork any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6323	6462	
==>ork any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5146	5260	
==>ch->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5146	5260	
==>ch->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2120	2220	
==>rser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3657	3785	
==>= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3491	3588	
==>nal 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3491	3588	
==>nal 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9784	9917	
==>n;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9784	9917	
==>n;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23944	24053	
==>${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20365	20474	
==>${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->obje <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1955	2062	
==>[$start_index->to_native .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    return n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3128	3221	
==>$__v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17831	17923	
==>header field contains information about the software being
used by the originating server pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17831	17923	
==>header field contains information about the software being
used by the originating server pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2867	3061	
==>ny' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'on <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2867	3061	
==>ny' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'on <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2867	3061	
==>ny' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15682	15816	
==>(shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15682	15816	
==>(shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15682	15816	
==>(shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21465	21625	
==>d $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21465	21625	
==>d $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21465	21625	
==>d $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $su <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14903	14993	
==>default.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeric <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14903	14993	
==>default.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeric <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23919	24038	
==>my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6905	7004	
==>inning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6905	7004	
==>inning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2538	2686	
==>r(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2538	2686	
==>r(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2538	2686	
==>r(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	378	479	
==>run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	378	479	
==>run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	378	479	
==>run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1051	1143	
==>pocrypha in the F<docs/> directory are a series of documents, written
in question/answer form <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1051	1143	
==>pocrypha in the F<docs/> directory are a series of documents, written
in question/answer form <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1911	2014	
==>.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1911	2014	
==>.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35925	36021	
==>oking assertion, and the argument
of 1 means it's a look-ahead.  We send the unrolled contents of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	250	375	
==>t "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # emp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	338	463	
==>t "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # emp <==
3	/Users/nnunley/pugs/util/claim_drift.pl	398	497	
==>nfig{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, qw(-- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5132	5267	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5132	5267	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5132	5267	
==>d' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	119	216	
==>----------------------------------
## now for some bootstrapping ....

## See http://article.gmane <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	119	216	
==>----------------------------------
## now for some bootstrapping ....

## See http://article.gmane <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	119	216	
==>----------------------------------
## now for some bootstrapping ....

## See http://article.gmane <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1125	1224	
==>ef calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (rememb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1125	1224	
==>ef calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (rememb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1125	1224	
==>ef calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (rememb <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8430	8589	
==>t.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cst <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8430	8589	
==>t.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cst <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4119	4224	
==>j->position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	208	312	
==>Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inlin <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	208	312	
==>Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18558	18704	
==>esents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18558	18704	
==>esents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18558	18704	
==>esents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5004	5133	
==>)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5004	5133	
==>)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5004	5133	
==>)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4376	4497	
==>rn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4376	4497	
==>rn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4376	4497	
==>rn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	997	1110	
==>{ (shift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5611	5705	
==>ou should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5611	5705	
==>ou should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1384	1488	
==>PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1384	1488	
==>PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1384	1488	
==>PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1161	1263	
==>/ .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1161	1263	
==>/ .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1161	1263	
==>/ .container_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5592	5735	
==>e'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5592	5735	
==>e'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5592	5735	
==>e'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9259	9356	
==>eturn;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9259	9356	
==>eturn;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4445	4605	
==>found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" un <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4909	5069	
==>found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" un <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16126	16232	
==>s),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8294	8425	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8294	8425	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8294	8425	
==>e
        foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1584	1704	
==>le-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1584	1704	
==>le-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1584	1704	
==>le-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7261	7426	
==>ed";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7261	7426	
==>ed";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7261	7426	
==>ed";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	842	948	
==>y $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	842	948	
==>y $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	842	948	
==>y $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2475	2579	
==>is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2475	2579	
==>is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2475	2579	
==>is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3368	3535	
==>ACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26853	26949	
==>t>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31405	31501	
==>t>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6952	7084	
==>ice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6952	7084	
==>ice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6952	7084	
==>ice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice ) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27868	27966	
==>ever, you may want to have it run by a different executable, such as
a threading perl, or a differe <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	539	647	
==>) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) !!
		-(int(abs($x) + 0.5))
} <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1371	1472	
==>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'i <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1371	1472	
==>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2951	3066	
==>ng(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2951	3066	
==>ng(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2951	3066	
==>ng(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	837	944	
==>alent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	837	944	
==>alent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	837	944	
==>alent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8029	8141	
==>nt {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5431	5537	
==>nt {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23578	23679	
==>g values.  

Here is example code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4909	5043	
==>es = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4909	5043	
==>es = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4909	5043	
==>es = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15749	15857	
==>) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15749	15857	
==>) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15749	15857	
==>) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MUL <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	463	574	
==>y $self = shift;
    my $node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if (my $r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	14	108	
==>ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	14	108	
==>ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	109	224	
==>subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	109	224	
==>subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	109	224	
==>subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14469	14658	
==>v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14469	14658	
==>v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14469	14658	
==>v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array- <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4511	4615	
==>PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	218	320	
==>ed, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.bac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	218	320	
==>ed, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.bac <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	49	158	
==>tion cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $juli <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	49	158	
==>tion cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $juli <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7368	7468	
==>the parser's memory and sets $regex as the regex to be parsed.

=back

These two approaches do an ini <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1609	1701	
==>eric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1609	1701	
==>eric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1609	1701	
==>eric_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::gene <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2129	2241	
==>o', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very pri <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2129	2241	
==>o', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8052	8158	
==>sh recompute if this perl's internals can cache the hash key.
    $key = "" . $key;
    if (exists $orig->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11797	11892	
==>es.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode str <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11797	11892	
==>es.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode str <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29415	29513	
==>apped into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33967	34065	
==>apped into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33131	33229	
==>apped into other
attributes.  The members of the argument C<$attrs> are the names of the
invocant's <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15428	15519	
==>($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric($ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15428	15519	
==>($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6880	7002	
==>> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6880	7002	
==>> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6880	7002	
==>> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1267	1369	
==>s( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1267	1369	
==>s( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11786	11912	
==>s Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2208	2326	
==>s Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return " <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2208	2326	
==>s Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return " <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5554	5820	
==>er>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5554	5820	
==>er>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27159	27276	
==>lf->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2337	2432	
==>= ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2337	2432	
==>= ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10545	10674	
==>e') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10545	10674	
==>e') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14552	14645	
==>_hash_complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3895	4017	
==>filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect agai <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3895	4017	
==>filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect agai <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6087	6180	
==>est::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6087	6180	
==>est::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8284	8377	
==>est::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3141	3269	
==>param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3141	3269	
==>param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3141	3269	
==>param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3289	3405	
==>idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3289	3405	
==>idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3289	3405	
==>idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28542	28780	
==>.
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28542	28780	
==>.
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28542	28780	
==>.
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1464	1587	
==>ad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1464	1587	
==>ad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1464	1587	
==>ad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1344	1479	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1344	1479	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1344	1479	
==>origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}) <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15885	15984	
==>self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2278	2377	
==>self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32054	32150	
==>OR HANDLING">.

=back

=head2 Walking an Object

Most objects inherit their ender() and walk() me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1751	1858	
==>atchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1751	1858	
==>atchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1751	1858	
==>atchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9745	9846	
==>med',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9745	9846	
==>med',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9745	9846	
==>med',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1360	1454	
==>ld_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1360	1454	
==>ld_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1360	1454	
==>ld_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24240	24375	
==>h_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24240	24375	
==>h_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24240	24375	
==>h_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12041	12141	
==>@classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12041	12141	
==>@classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12041	12141	
==>@classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7392	7487	
==>y $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7392	7487	
==>y $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7392	7487	
==>y $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	275	379	
==>ain::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	275	379	
==>ain::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	275	379	
==>ain::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2202	2348	
==>nfix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7595	7692	
==>ould be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7595	7692	
==>ould be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2533	2631	
==>w Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2533	2631	
==>w Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2533	2631	
==>w Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2038	2143	
==>ame>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::su <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1668	1763	
==>$p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1668	1763	
==>$p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	258	375	
==>z[3](1,2,3){$xyz}<blurfl>.attr()

and maybe

    \(...)
    ^T

=head1 See also

=cut

# TODO - implement t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11708	11823	
==>'\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4351	4466	
==>'\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1764	1910	
==>f;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1764	1910	
==>f;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2000	2146	
==>f;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15704	15803	
==>seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15704	15803	
==>seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	484	613	
==>ule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	484	613	
==>ule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3550	3645	
==>ld_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3550	3645	
==>ld_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

meth <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	316	411	
==>an::Code.compare is incomplete
    * Constructors should emit error messages if there are unknow <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	316	411	
==>an::Code.compare is incomplete
    * Constructors should emit error messages if there are unknow <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1156	1285	
==>an' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Pl <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1605	1703	
==>Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp: <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1605	1703	
==>Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3812	3932	
==>ve_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix this prope <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8750	8843	
==>class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%ext <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8750	8843	
==>class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%ext <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14906	15002	
==>d an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan curr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14964	15060	
==>d an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan curr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4095	4211	
==>f ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(unde <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4153	4269	
==>f ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(unde <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5958	6071	
==>~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5030	5148	
==>he package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5030	5148	
==>he package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5030	5148	
==>he package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3552	3725	
==>hile &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3552	3725	
==>hile &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	765	859	
==>uffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurre <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4358	4457	
==>>values;

		my $thunk_type = $thunk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$thunk_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14615	14711	
==>lf->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2096	2192	
==>lf->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6675	6775	
==>_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6675	6775	
==>_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6675	6775	
==>_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHac <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20459	20567	
==>g;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($fa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8260	8358	
==>pan2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is mor <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8260	8358	
==>pan2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is mor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1856	2008	
==>e]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m ) {
                    #print "M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22433	22554	
==>to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (into_scope) {
    push STACK, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28522	28618	
==>oup's ender
is a C<close> node, any other assertion's ender is a C<tail> node, and a
character cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3240	3360	
==>[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3240	3360	
==>[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3240	3360	
==>[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6034	6152	
==>($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6034	6152	
==>($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6034	6152	
==>($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7995	8094	
==>ether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7995	8094	
==>ether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_e <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	85	204	
==>55 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- mu <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	85	204	
==>55 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- mu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11100	11223	
==>$code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_num <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11266	11375	
==>needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_nu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11266	11375	
==>needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_nu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8336	8577	
==>ate->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->par <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5604	5784	
==>ate->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2906	3029	
==>], %{$_[3]} } }
    | SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dum <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12683	12829	
==>URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12683	12829	
==>URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22642	22743	
==>em * Bugs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this current ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	130	235	
==>mper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	130	235	
==>mper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6904	7040	
==>int
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6904	7040	
==>int
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1808	1937	
==>t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1808	1937	
==>t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1808	1937	
==>t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, id <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1337	1452	
==>d($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->to <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3358	3464	
==>r) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A colle <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3358	3464	
==>r) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A colle <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	636	754	
==>ned
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	636	754	
==>ned
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	636	754	
==>ned
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2068	2174	
==>sitional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2068	2174	
==>sitional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2415	2521	
==>sitional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15030	15136	
==>a) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15030	15136	
==>a) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15030	15136	
==>a) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	318	449	
==>try ( @List ) {

        ### find the entry to install
        next unless $entry->{package} eq $package;

        ### and install i <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	557	648	
==>r $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

mul <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	557	648	
==>r $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

mul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3639	3769	
==>0);
  });

  # gpos (last global match end)
  $self->add_handler('\G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10402	10512	
==>::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::variable:: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4633	4723	
==>unds(Min,Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	290	390	
==>in_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	290	390	
==>in_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	290	390	
==>in_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	463	567	
==>o MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	463	567	
==>o MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	463	567	
==>o MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	461	594	
==>) {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	461	594	
==>) {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	461	594	
==>) {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(functio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6394	6522	
==>me: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6382	6510	
==>me: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return const <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3054	3145	
==>eturns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3054	3145	
==>eturns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5857	5942	
==>rse(Rx,R)}, ")".
p5_elemental(condition(Rk,R1,R2)) --> "(?", p5_condition_body(Rk,R1,R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13990	14098	
==>ntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10163	10271	
==>ntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10999	11107	
==>ntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...} <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4483	4647	
==>}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals->{skip}++;
            $pass = 1;
        }

        $totals->{ok}++ if $pass;

        if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3020	3121	
==>ML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3020	3121	
==>ML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	764	864	
==>e::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	764	864	
==>e::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	764	864	
==>e::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	531	652	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	531	652	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	531	652	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4272	4378	
==>"release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } gl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22708	22794	
==>C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22708	22794	
==>C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5931	6030	
==>=~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5931	6030	
==>=~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5931	6030	
==>=~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2131	2238	
==>tpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2131	2238	
==>tpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2131	2238	
==>tpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9863	9979	
==>[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9863	9979	
==>[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9863	9979	
==>[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8472	8602	
==>if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_cat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5897	6006	
==>Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5897	6006	
==>Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7017	7132	
==>tcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7017	7132	
==>tcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7017	7132	
==>tcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval "method JS::Root::$attr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21478	21623	
==>ROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44385	44530	
==>ROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$s <==
3	/Users/nnunley/pugs/util/func_refact.pl	1589	1724	
==>$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $t ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11195	11349	
==>()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11195	11349	
==>()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11195	11349	
==>()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2879	2978	
==>strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2879	2978	
==>strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2879	2978	
==>strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_descr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7556	7675	
==>] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7556	7675	
==>] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32085	32182	
==>(?:...)>).

=item omit

Whether this object is omitted from the actual tree (like a CLOSE).

=item <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	758	918	
==>t($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	758	918	
==>t($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14648	14744	
==>Pe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] range "%s-%s"

=item RPe_IRANGE (- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15900	16008	
==>rn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10756	10864	
==>rn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1414	1512	
==>get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "use P <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	945	1072	
==>use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, $verbose => 1)}" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3665	3772	
==>ostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hos <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3665	3772	
==>ostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11612	11803	
==>n 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11612	11803	
==>n 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11612	11803	
==>n 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4739	4845	
==>ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1358	1462	
==>is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1358	1462	
==>is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1358	1462	
==>is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2603	2709	
==>air stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2603	2709	
==>air stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2603	2709	
==>air stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10258	10359	
==>= "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10258	10359	
==>= "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10258	10359	
==>= "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (* <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1474	1590	
==>$code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1485	1601	
==>$code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	208	321	
==>to Literal.
#     Since we dont have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Several "Source <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36763	36863	
==>o.  Another trivial case is if any
source relation is the identity-one relation (zero attributes, one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41312	41412	
==>o.  Another trivial case is if any
source relation is the identity-one relation (zero attributes, one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40935	41035	
==>o.  Another trivial case is if any
source relation is the identity-one relation (zero attributes, one <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5423	5537	
==>ed and stored in YAML format in a (conjecturally)
well-defined location for latter runs of pugs to pick up and load <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25313	25407	
==>losophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GP <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25313	25407	
==>losophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9995	10134	
==>am = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9995	10134	
==>am = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10173	10269	
==>>id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right method return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4542	4688	
==>e;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4542	4688	
==>e;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	203	323	
==>ll::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1516	1639	
==>TELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1516	1639	
==>TELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1516	1639	
==>TELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	913	1013	
==>nd, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	971	1071	
==>nd, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31099	31199	
==>created.

=item flags

The flags for the object.

=back

The following attributes may also be set:

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6727	6839	
==>ion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6727	6839	
==>ion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6727	6839	
==>ion () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6725	6830	
==>rt_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6725	6830	
==>rt_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27991	28088	
==>9'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
print $r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4812	4930	
==>not have church integers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Applies it's children o <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	633	739	
==>__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	633	739	
==>__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1191	1293	
==>or your tastes, and
you want to rebless everything down to your project's base namespace.

Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1191	1293	
==>or your tastes, and
you want to rebless everything down to your project's base namespace.

Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1191	1293	
==>or your tastes, and
you want to rebless everything down to your project's base namespace.

Class::Reble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	491	621	
==>pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	491	621	
==>pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	491	621	
==>pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	552	665	
==>r => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	552	665	
==>r => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	552	665	
==>r => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if ref($obj) =~ /^Mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5703	5818	
==>gs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5703	5818	
==>gs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5703	5818	
==>gs) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10290	10387	
==>re provided and that they are of the correct
container type (eg, hash vs array).  The deferred val <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10290	10387	
==>re provided and that they are of the correct
container type (eg, hash vs array).  The deferred val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2636	2759	
==>xtToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2636	2759	
==>xtToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2636	2759	
==>xtToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20559	20657	
==>en you
open a program, it will search for language files specific to the program
in the order you c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20559	20657	
==>en you
open a program, it will search for language files specific to the program
in the order you c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1052	1144	
==>6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_call_term'} <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	11	115	
==>e Welt
class Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { " <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8819	8915	
==>:nary', 'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9293	9389	
==>f=$initrd_img", "bs=1K", "count=$initrd_size" },
    help   => "We're now creating a zeroed image <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	524	632	
==>fer to it via the closure, then things don\'t work right
      // --the order of output can become all screwe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	524	632	
==>fer to it via the closure, then things don\'t work right
      // --the order of output can become all screwe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	524	632	
==>fer to it via the closure, then things don\'t work right
      // --the order of output can become all screwe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3444	3624	
==>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).add_children(
                    Tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	484	599	
==>::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	484	599	
==>::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	484	599	
==>::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36356	36470	
==>y->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36356	36470	
==>y->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36356	36470	
==>y->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1408	1503	
==>for container

allocation, as well as the compile-time-bound values for them.

It includes the p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1348	1441	
==>for container
allocation, as well as the compile-time-bound values for them.
It includes the p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1932	2019	
==>l => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8186	8292	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11663	11769	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10845	10951	
==>on."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4580	4710	
==>"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4580	4710	
==>"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4580	4710	
==>"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1382	1478	
==>al_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1382	1478	
==>al_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1382	1478	
==>al_debug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1418	1520	
==>Prototype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18484	18578	
==>est results by having a human being write out
that text themselves.

What Locale::KeyedText doe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18484	18578	
==>est results by having a human being write out
that text themselves.

What Locale::KeyedText doe <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15459	15601	
==>t image name
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-load-size" => 4,              # Set n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	348	487	
==>match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> mat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12524	12639	
==>iteral>
    | <'('> <Expression> <')'>
}
rule ArrayLiteral :words {  # see 11.1.4
      <'['> <Elision>? <']'>
    | <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	961	1073	
==>map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	961	1073	
==>map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8314	8412	
==>ft;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = Blondie::TypeSafe::Typ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7555	7697	
==>if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7567	7709	
==>if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3505	3615	
==>h > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3505	3615	
==>h > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3505	3615	
==>h > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2207	2305	
==>cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2207	2305	
==>cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2207	2305	
==>cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2389	2492	
==>ef, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2389	2492	
==>ef, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2389	2492	
==>ef, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	786	912	
==>l $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	786	912	
==>l $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1839	1961	
==>is builtin is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3198	3325	
==>Source:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3338	3465	
==>Source:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && de <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6385	6505	
==>bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree stringify>;
        %modi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9254	9378	
==>ete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9254	9378	
==>ete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1169	1273	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1169	1273	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1169	1273	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5755	5880	
==>);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5755	5880	
==>);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6345	6470	
==>);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2766	2886	
==>{
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2766	2886	
==>{
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2766	2886	
==>{
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8336	8435	
==>alue::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8336	8435	
==>alue::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8336	8435	
==>alue::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array}." -- ".$self->{slice} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17875	18014	
==>ode_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17875	18014	
==>ode_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node obj <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1086	1185	
==>run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1086	1185	
==>run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1633	1732	
==>run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing the T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	580	693	
==>ink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	580	693	
==>ink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	580	693	
==>ink of Roles like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35175	35271	
==>C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elemen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35175	35271	
==>C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elemen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8264	8360	
==>IB::Package->new( file => $file );

    return $self->add_package(package => $pkg, force => $forc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	943	1087	
==>!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	943	1087	
==>!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7882	8042	
==>return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7882	8042	
==>return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13407	13531	
==>-1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6319	6574	
==>->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6319	6574	
==>->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6319	6574	
==>->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4478	4583	
==>{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %* <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4478	4583	
==>{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %* <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	913	1014	
==>) && $right->isa('symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17493	17637	
==>>unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17493	17637	
==>>unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17493	17637	
==>>unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2558	2693	
==>5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      el <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2775	2910	
==>5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5103	5207	
==>,   # XXX - the return block could be generated automatically ?
  );

Pseudo-code for usage inside a gram <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18268	18389	
==>f &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14689	14810	
==>f &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5388	5500	
==>rn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1774	1870	
==>JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompili <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1774	1870	
==>JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompili <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1774	1870	
==>JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompili <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1699	1806	
==>Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1699	1806	
==>Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1699	1806	
==>Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1732	1890	
==>lGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1732	1890	
==>lGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1732	1890	
==>lGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2187	2286	
==>d_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2187	2286	
==>d_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2187	2286	
==>d_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7002	7103	
==>ix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7002	7103	
==>ix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7002	7103	
==>ix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17254	17389	
==>n use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17254	17389	
==>n use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17254	17389	
==>n use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	616	741	
==>node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<Laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11216	11341	
==>',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11216	11341	
==>',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11216	11341	
==>',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         Fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5186	5282	
==>calar> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15295	15389	
==>dates/times always convert their value to system
time (seconds since Jan 1, 1970) and they also <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15295	15389	
==>dates/times always convert their value to system
time (seconds since Jan 1, 1970) and they also <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4397	4525	
==>n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4397	4525	
==>n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4397	4525	
==>n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Arra <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10760	10908	
==>c(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "...\n";
            $y;
        } qw(* ** <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3947	4039	
==>setta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta versio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3947	4039	
==>setta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2464	2613	
==>>{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2669	2818	
==>>{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $curre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17069	17179	
==>data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attrib <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17069	17179	
==>data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attrib <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8552	8661	
==>and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3088	3214	
==>k
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3088	3214	
==>k
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3088	3214	
==>k
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $par <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	873	990	
==>k;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	873	990	
==>k;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	720	824	
==>omething to run the program
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13068	13160	
==>throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13068	13160	
==>throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13068	13160	
==>throw PIL::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1738	1907	
==>ribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1738	1907	
==>ribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1738	1907	
==>ribe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_exc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12908	13022	
==>X;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12908	13022	
==>X;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12908	13022	
==>X;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $Eval <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6300	6479	
==>ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_versi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2136	2243	
==>code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2136	2243	
==>code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        m <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6939	7044	
==>d defer events until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TO <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6939	7044	
==>d defer events until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1737	1868	
==>{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1737	1868	
==>{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1737	1868	
==>{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16944	17044	
==>>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16944	17044	
==>>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2805	2913	
==>rname\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2805	2913	
==>rname\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	330	438	
==>f     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	330	438	
==>f     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	330	438	
==>f     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1970	2106	
==>% 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5986	6115	
==>ubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5986	6115	
==>ubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5986	6115	
==>ubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::Cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9831	9999	
==>ookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    mult <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9831	9999	
==>ookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    mult <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36075	36177	
==>d, and we're done.  Now
we just need to return the regex representation of our children:

    return jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3655	3772	
==>ndefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3655	3772	
==>ndefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3655	3772	
==>ndefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = fu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16561	16744	
==>r $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20038	20221	
==>r $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19598	19781	
==>r $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	364	462	
==>IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	364	462	
==>IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5155	5309	
==>!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        syst <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4195	4291	
==>t", in which case the
object returned represents the last day for the specified month.

- `today( <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4195	4291	
==>t", in which case the
object returned represents the last day for the specified month.

- `today( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2683	2797	
==>"\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2683	2797	
==>"\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2683	2797	
==>"\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4008	4104	
==>function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4008	4104	
==>function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4008	4104	
==>function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die " <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14465	14565	
==>xpression>
    | <'delete'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <'typeof'> <Unar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2159	2257	
==>my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = . <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2159	2257	
==>my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = . <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2369	2488	
==>o       Perl compile-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable executab <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31639	31738	
==>her set for itself.  When the program is run, it would
determine either from a user config file or a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31639	31738	
==>her set for itself.  When the program is run, it would
determine either from a user config file or a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16525	16635	
==>{
        # some tests will trigger VMS messages that won't be expected
        $results =~ s/\n?%[A-Z]+-[SIWEF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11384	11504	
==>. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11384	11504	
==>. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11384	11504	
==>. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4091	4195	
==>alue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4091	4195	
==>alue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4091	4195	
==>alue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1257	1515	
==>er ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1257	1515	
==>er ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22887	23024	
==>y $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8349	8584	
==>ingify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8349	8584	
==>ingify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8349	8584	
==>ingify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16963	17050	
==>('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16963	17050	
==>('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16963	17050	
==>('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2656	2765	
==>= &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2644	2753	
==>= &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2086	2185	
==>ub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self->_stage <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20306	20397	
==>) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::ident <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20306	20397	
==>) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::ident <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20306	20397	
==>) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::ident <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5518	5609	
==>oistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5518	5609	
==>oistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7715	7806	
==>oistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Builder <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1306	1446	
==>) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeS <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	35	141	
==>G_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	35	141	
==>G_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2337	2444	
==>? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2337	2444	
==>? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21417	21506	
==>substr
 #define float_min_offset substrs->data[1].min_offset
 #define float_max_offset sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2737	2848	
==>n_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2737	2848	
==>n_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2737	2848	
==>n_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	127	227	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	127	227	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	127	227	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })')($self);
}

method v <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8230	8356	
==>){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	631	735	
==>bjects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	631	735	
==>bjects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12521	12624	
==>OP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   red <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12521	12624	
==>OP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   red <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12521	12624	
==>OP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   red <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3190	3312	
==>&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3190	3312	
==>&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3190	3312	
==>&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> W <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3120	3277	
==>al 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3260	3417	
==>al 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        % <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5399	5500	
==>me-p6=s"   => \$welcome_p6,
  "initrd-gz=s"    => \$initrd_gz,
  "initrd-img=s"   => \$initrd_img,
  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3078	3210	
==>@_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3078	3210	
==>@_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3078	3210	
==>@_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5293	5401	
==>s_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5293	5401	
==>s_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5293	5401	
==>s_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1867	1967	
==>p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1867	1967	
==>p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1867	1967	
==>p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35137	35241	
==>ft offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35137	35241	
==>ft offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35137	35241	
==>ft offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $le <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5764	5899	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20217	20307	
==>ion_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header inst <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20217	20307	
==>ion_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header inst <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16507	16640	
==>sts were run for some reason.\n";
    } elsif (!$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        di <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8336	8443	
==>his should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.elem <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8336	8443	
==>his should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19697	19813	
==>ue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19697	19813	
==>ue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19697	19813	
==>ue) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16977	17090	
==>0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16977	17090	
==>0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16977	17090	
==>0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	448	539	
==>o_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	448	539	
==>o_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21894	22072	
==>AR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21894	22072	
==>AR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21894	22072	
==>AR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $s <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4582	4790	
==>{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4582	4790	
==>{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack i <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13198	13376	
==>der_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5187	5294	
==>sk if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19874	19971	
==>will return two
values; the user name and the password.  In scalar context it will
return I<"uname <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19874	19971	
==>will return two
values; the user name and the password.  In scalar context it will
return I<"uname <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21037	21157	
==>r('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17458	17578	
==>r('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1168	1269	
==>options - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Match" if ! defined $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20135	20229	
==>_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20135	20229	
==>_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20135	20229	
==>_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
M <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2996	3121	
==>meter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2996	3121	
==>meter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3744	3868	
==>";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3744	3868	
==>";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3744	3868	
==>";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3487	3588	
==>.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submet <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3487	3588	
==>.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submet <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5544	5656	
==>dir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tm <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5544	5656	
==>dir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2618	2717	
==>efined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2618	2717	
==>efined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2618	2717	
==>efined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{prel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5070	5194	
==>lder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	287	405	
==>ls } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4334	4449	
==>lder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19659	19756	
==>n $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19659	19756	
==>n $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19659	19756	
==>n $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1985	2152	
==>== -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1985	2152	
==>== -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5625	5749	
==>ibute new (%:methods))         (hash)))    

=cut

# create the basic Class
$::Class = opaque->new(
        reference->new($o <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1135	1234	
==>_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1135	1234	
==>_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6508	6615	
==>die::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shif <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15025	15119	
==>s qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15025	15119	
==>s qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5695	5873	
==>rs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9172	9350	
==>rs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	590	750	
==>equired => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( er <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3289	3431	
==>$func}->[1];
        return $sub 
            ? $sub->( $obj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB::Config->new <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6549	6651	
==>rs accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6549	6651	
==>rs accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6059	6182	
==>( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6047	6170	
==>( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	913	1025	
==>re, then you need to get back
    # a nil value, not just undef
    return nil->new() unless defined $val;
    re <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1429	1538	
==>=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESC <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1429	1538	
==>=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12839	12934	
==>sions.  Please
refer to L<perldiag> for the explanations of the messages.

These are all constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	811	902	
==>i sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	811	902	
==>i sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	811	902	
==>i sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11151	11273	
==>r' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11151	11273	
==>r' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstk <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11151	11273	
==>r' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstk <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	406	500	
==>pported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	406	500	
==>pported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	406	500	
==>pported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	404	505	
==>ompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	404	505	
==>ompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	404	505	
==>ompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 Use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3536	3630	
==>un pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3536	3630	
==>un pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3536	3630	
==>un pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	749	863	
==>or WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	749	863	
==>or WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	749	863	
==>or WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4578	4718	
==>{&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc an <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4219	4319	
==>::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4219	4319	
==>::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5743	5843	
==>::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4791	4906	
==>defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4791	4906	
==>defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4791	4906	
==>defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4442	4542	
==>ge->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4442	4542	
==>ge->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4442	4542	
==>ge->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4426	4564	
==>s_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4426	4564	
==>s_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4426	4564	
==>s_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24616	24754	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24895	25033	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12147	12255	
==>'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3255	3348	
==>:PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(St <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3255	3348	
==>:PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4911	5001	
==>blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4911	5001	
==>blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4911	5001	
==>blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3847	3964	
==>::Package::Installed')}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5839	5935	
==>/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Contex <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5839	5935	
==>/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Contex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6434	6534	
==>elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  bu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6434	6534	
==>elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  bu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6434	6534	
==>elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2370	2518	
==>id, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $outpu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	444	558	
==>e::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() fr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	444	558	
==>e::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() fr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	547	679	
==>found matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _recurse_resolve <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3690	3794	
==>_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3907	4011	
==>_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6498	6609	
==>kParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6498	6609	
==>kParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6498	6609	
==>kParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2263	2377	
==>) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2263	2377	
==>) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2263	2377	
==>) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8035	8171	
==>al $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8035	8171	
==>al $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8035	8171	
==>al $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1488	1594	
==>6
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1488	1594	
==>6
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1488	1594	
==>6
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3624	3730	
==>$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3624	3730	
==>$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4214	4320	
==>$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$par <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	185	292	
==>.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   an <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	185	292	
==>.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   an <==
3	/Users/nnunley/pugs/util/drift.pl	1546	1652	
==>IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.Instances <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6930	7083	
==>>{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6930	7083	
==>>{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6930	7083	
==>>{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13472	13573	
==>rrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13472	13573	
==>rrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1239	1377	
==>_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2658	2768	
==>shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2658	2768	
==>shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9874	10015	
==>lt
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2906	3047	
==>lt
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3242	3361	
==>nstant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constant ISA <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4142	4237	
==>METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4142	4237	
==>METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5666	5761	
==>METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4196	4319	
==>Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4196	4319	
==>Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4196	4319	
==>Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5953	6053	
==>ass Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSI <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5953	6053	
==>ass Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSI <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2823	2915	
==>rs = split(/,/,join(',',@t_dirs||()));


# Find design doc directory, check
unless($no_design <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5061	5174	
==>rn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5061	5174	
==>rn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5061	5174	
==>rn @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9654	9808	
==>est::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	236	384	
==>est::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	236	384	
==>est::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3578	3711	
==>$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3578	3711	
==>$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3578	3711	
==>$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confes <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2052	2161	
==>- preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2052	2161	
==>- preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14039	14147	
==>es wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18979	19071	
==>that corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate rang <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22629	22721	
==>that corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate rang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3949	4067	
==>push @{_('@:results')} => $test;
            _('$.output')->write( $test->report() );
        }
    }
};

require "lib/ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8988	9092	
==>n1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8988	9092	
==>n1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3074	3190	
==>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3074	3190	
==>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3074	3190	
==>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	11	134	
==>s;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	11	134	
==>s;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	11	134	
==>s;
use strict;

# Real subroutines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Per <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3406	3519	
==>Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List)\
multi List <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	425	531	
==>$class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	457	563	
==>$class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17000	17116	
==>$code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_pe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17000	17116	
==>$code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_pe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2141	2236	
==>);

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18266	18363	
==>'||'> <LogicalANDExpressionNoIn>
}
rule ConditionalExpression :words {  # see 11.12
      <Logical <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3654	3747	
==>setting C<$match.multidex> to the index where
captures should put themselves.  In the former e <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3654	3747	
==>setting C<$match.multidex> to the index where
captures should put themselves.  In the former e <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2304	2464	
==>%$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "I <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6304	6402	
==>_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6304	6402	
==>_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	804	929	
==>,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	804	929	
==>,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	804	929	
==>,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::Eval <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20290	20399	
==>clusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24842	24951	
==>clusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23403	23512	
==>clusion in the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9860	9974	
==>x:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9860	9974	
==>x:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9860	9974	
==>x:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	72	176	
==>:Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	72	176	
==>:Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	72	176	
==>:Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3360	3451	
==>ath_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3360	3451	
==>ath_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3360	3451	
==>ath_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2202	2323	
==>$proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2202	2323	
==>$proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2202	2323	
==>$proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	470	564	
==>,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$forma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	431	525	
==>,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$forma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	431	525	
==>,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$forma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	930	1046	
==>t;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	930	1046	
==>t;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	930	1046	
==>t;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	686	828	
==>";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	686	828	
==>";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	686	828	
==>";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4942	5070	
==>ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4942	5070	
==>ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4942	5070	
==>ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7824	7927	
==>t will
still be returned, but if you use regex() then it will return false.

  if (! $parser->regex($rx) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4332	4411	
==>($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4332	4411	
==>($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2364	2477	
==>rog = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1278	1388	
==>>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 1 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1278	1388	
==>>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32304	32401	
==>dless of
which is the invocant and which is the argument.  This method will fail if
C<$other> does <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36854	36951	
==>dless of
which is the invocant and which is the argument.  This method will fail if
C<$other> does <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36144	36241	
==>dless of
which is the invocant and which is the argument.  This method will fail if
C<$other> does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	55	157	
==>etaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	55	157	
==>etaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	55	157	
==>etaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1500	1623	
==>K
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1500	1623	
==>K
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1500	1623	
==>K
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	54	150	
==>rnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	54	150	
==>rnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	54	150	
==>rnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1303	1408	
==>line('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1303	1408	
==>line('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1303	1408	
==>line('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$spl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2322	2414	
==>::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2322	2414	
==>::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1561	1674	
==>erse;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1561	1674	
==>erse;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1481	1570	
==>n... };'
}
Clutter::num_size 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5315	5424	
==>{
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5315	5424	
==>{
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8928	9045	
==>{
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a se <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3169	3274	
==>out large body

  # strip away status and headers
  # This should all be done better so the response doesn <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3169	3274	
==>out large body

  # strip away status and headers
  # This should all be done better so the response doesn <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7322	7446	
==>t($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4931	5034	
==>ributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.def <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4931	5034	
==>ributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.def <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	773	887	
==>.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3] <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	773	887	
==>.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3] <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7564	7668	
==>multi Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	461	567	
==>che);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	461	567	
==>che);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	461	567	
==>che);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known. <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2263	2402	
==>->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sy <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2621	2760	
==>->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	942	1079	
==>e => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2730	2831	
==>.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_pa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2730	2831	
==>.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3448	3574	
==>es are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3448	3574	
==>es are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3448	3574	
==>es are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	47	164	
==>sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	47	164	
==>sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	47	164	
==>sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	980	1099	
==>IX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	980	1099	
==>IX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	980	1099	
==>IX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5285	5405	
==>e 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5285	5405	
==>e 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$n <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3657	3765	
==>g} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub fin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9372	9494	
==>when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "U <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9372	9494	
==>when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "U <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20254	20361	
==>istNoIn :words {  # see 12.2
      <VariableDeclarationNoIn>
    | <VariableDeclarationListNoIn> <','> <Vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	67	183	
==>module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	67	183	
==>module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	67	183	
==>module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportL <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22173	22274	
==>> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      < <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	390	483	
==>on = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $fi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	390	483	
==>on = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	875	988	
==>$!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	875	988	
==>$!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	875	988	
==>$!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't kn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14698	14799	
==>m to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14698	14799	
==>m to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14698	14799	
==>m to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3581	3701	
==>$i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3581	3701	
==>$i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3581	3701	
==>$i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2749	2850	
==>x_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2749	2850	
==>x_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2749	2850	
==>x_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, retval]
    ).FETCH())
      $jsname = backup_containe <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19326	19517	
==>regex;
                  ($h->content_list)[0]->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19382	19477	
==>nt to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19382	19477	
==>nt to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3194	3302	
==>hough, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3194	3302	
==>hough, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3194	3302	
==>hough, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22098	22203	
==>(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22098	22203	
==>(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22098	22203	
==>(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5990	6129	
==>.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5990	6129	
==>.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5990	6129	
==>.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3102	3192	
==>rms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3102	3192	
==>rms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3449	3539	
==>rms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	832	961	
==>sors( qw[repositories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9612	9718	
==>st_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9612	9718	
==>st_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3943	4066	
==>as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3943	4066	
==>as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3943	4066	
==>as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1524	1629	
==>ce'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1524	1629	
==>ce'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1524	1629	
==>ce'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually means s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1010	1166	
==>ed;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1010	1166	
==>ed;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5822	5921	
==>).

=item * operand => $rule_name - the name of the rule that will parse operands.

=head2 add_op () <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11228	11340	
==>o we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11228	11340	
==>o we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	80	181	
==>installed


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mod <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	62	289	
==>xt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	62	289	
==>xt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	638	729	
==>=> --$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequenc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1529	1636	
==>kage Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    pack <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1397	1483	
==>ss Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1397	1483	
==>ss Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	702	812	
==>tes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	702	812	
==>tes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	702	812	
==>tes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2622	2775	
==>oke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5544	5638	
==>Load a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5544	5638	
==>Load a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4657	4770	
==>on why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4657	4770	
==>on why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4657	4770	
==>on why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	499	606	
==>tion';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	499	606	
==>tion';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	499	606	
==>tion';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2319	2452	
==>ut)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2319	2452	
==>ut)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2319	2452	
==>ut)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4482	4586	
==>rom_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4482	4586	
==>rom_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4482	4586	
==>rom_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4487	4602	
==>ldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4487	4602	
==>ldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4487	4602	
==>ldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  loca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23757	23851	
==>at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alterna <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23757	23851	
==>at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alterna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4405	4501	
==>d_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4405	4501	
==>d_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4405	4501	
==>d_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13337	13464	
==>};
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13337	13464	
==>};
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13337	13464	
==>};
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6056	6154	
==>l6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6056	6154	
==>l6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6056	6154	
==>l6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slic <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31371	31468	
==>disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31371	31468	
==>disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2135	2286	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2135	2286	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2135	2286	
==>mples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4770	4877	
==>he ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4770	4877	
==>he ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $mod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3368	3479	
==>"
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6845	6956	
==>"
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5802	5913	
==>"
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2441	2559	
==>> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2441	2559	
==>> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2788	2906	
==>> 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24682	24778	
==>bute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29234	29330	
==>bute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12412	12507	
==>riginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12412	12507	
==>riginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blo <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4428	4524	
==>y comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4428	4524	
==>y comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1654	1755	
==>PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1654	1755	
==>PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1654	1755	
==>PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16084	16297	
==>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16084	16297	
==>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16084	16297	
==>new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed }, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	823	926	
==>der.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	823	926	
==>der.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	903	1006	
==>der.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17229	17320	
==>m_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17229	17320	
==>m_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17229	17320	
==>m_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15389	15504	
==>se ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15389	15504	
==>se ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15389	15504	
==>se ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8356	8528	
==>id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @arg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4716	4888	
==>id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5565	5737	
==>id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4478	4630	
==>>{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4478	4630	
==>>{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4478	4630	
==>>{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	167	284	
==>uch
# unchanged from the original p5 Santa golf game of 2001.
# Also for future historical amusement, I've inserted un <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11970	12064	
==>al($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11970	12064	
==>al($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3530	3635	
==>$self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3530	3635	
==>$self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3530	3635	
==>$self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5346	5477	
==>atter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5346	5477	
==>atter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5346	5477	
==>atter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js, <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1839	1953	
==>ather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(inde <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1839	1953	
==>ather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(inde <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	999	1122	
==>my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	999	1122	
==>my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1693	1808	
==>RIPTION

This is an port of Perl 5's POE to Perl 6. It is only an experiment, it's not
API compatible to the origina <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12399	12514	
==>numclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .lo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7141	7247	
==>h(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7141	7247	
==>h(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16837	16940	
==>d the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16837	16940	
==>d the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16837	16940	
==>d the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5851	5972	
==>rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5851	5972	
==>rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5851	5972	
==>rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25494	25589	
==>dentifies the type of message that the object
represents (or gives the name of a condition being <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25494	25589	
==>dentifies the type of message that the object
represents (or gives the name of a condition being <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	204	451	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	204	451	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::e <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2809	2920	
==>ort to the public smokeserver:

        $^X $smoke_upload_script $html_location

    Or add
        smoke_upload <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2220	2327	
==>_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2220	2327	
==>_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38985	39122	
==>lue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38985	39122	
==>lue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38985	39122	
==>lue::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	397	516	
==>e were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	397	516	
==>e were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	397	516	
==>e were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16753	16869	
==>ate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (option <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16753	16869	
==>ate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (option <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1850	1949	
==>output_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce the data for th <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4383	4474	
==>@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4383	4474	
==>@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4735	4874	
==>rint $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4735	4874	
==>rint $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4735	4874	
==>rint $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	686	825	
==>gth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	686	825	
==>gth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	686	825	
==>gth; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4552	4656	
==>{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4552	4656	
==>{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4552	4656	
==>{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8514	8649	
==>ray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8514	8649	
==>ray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8514	8649	
==>ray};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12709	12793	
==>ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12709	12793	
==>ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12709	12793	
==>ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4882	4980	
==>ontains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=ite <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4882	4980	
==>ontains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7079	7177	
==>ontains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	717	857	
==>ue') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	717	857	
==>ue') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	717	857	
==>ue') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5969	6087	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5969	6087	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5969	6087	
==>package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	713	810	
==>sed by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	713	810	
==>sed by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7352	7455	
==>density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7352	7455	
==>density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8792	8926	
==>testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $expla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	956	1078	
==>testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $expla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	956	1078	
==>testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $expla <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3797	3888	
==>HOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3797	3888	
==>HOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7662	7746	
==>Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7720	7804	
==>Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	132	253	
==>e::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	132	253	
==>e::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	132	253	
==>e::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5302	5406	
==>lass($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5302	5406	
==>lass($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5302	5406	
==>lass($::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2297	2401	
==>foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2297	2401	
==>foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2297	2401	
==>foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14534	14637	
==>s'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14534	14637	
==>s'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14534	14637	
==>s'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18491	18601	
==>returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18687	18797	
==>returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18901	19011	
==>returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4216	4326	
==>PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4216	4326	
==>PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4216	4326	
==>PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      prin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10616	10736	
==>n $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14093	14213	
==>n $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13392	13512	
==>n $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3697	3791	
==>m>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & S <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3697	3791	
==>m>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3381	3498	
==>($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3381	3498	
==>($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3381	3498	
==>($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7349	7445	
==>unk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val->str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12251	12373	
==>"" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12251	12373	
==>"" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12251	12373	
==>"" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2270	2408	
==>se = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2270	2408	
==>se = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2270	2408	
==>se = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12056	12164	
==>file
	    my $stdin = qq{$^X -e 'print qq(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	876	1004	
==>ute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque da <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	876	1004	
==>ute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque da <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	876	1004	
==>ute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15016	15192	
==>y $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15016	15192	
==>y $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15016	15192	
==>y $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17868	17995	
==>ject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20748	20875	
==>ject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24536	24663	
==>ject__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	380	486	
==>help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3375	3468	
==>)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3375	3468	
==>)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1786	1879	
==>union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1786	1879	
==>union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8223	8339	
==>]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8211	8327	
==>]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18064	18262	
==>2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21541	21739	
==>2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21128	21326	
==>2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pair <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2182	2283	
==>version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	184	315	
==>]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	184	315	
==>]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	184	315	
==>]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2058	2185	
==>rn undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2058	2185	
==>rn undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP:: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1275	1376	
==>{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5791	5894	
==>------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5791	5894	
==>------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3552	3689	
==>rsion => { default => '0.0', store => \$version },
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4012	4110	
==>of spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- unive <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4012	4110	
==>of spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- unive <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13623	13713	
==>tation went with this attribute when it's declared"
::Class.meta.add_method('find_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13623	13713	
==>tation went with this attribute when it's declared"
::Class.meta.add_method('find_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13623	13713	
==>tation went with this attribute when it's declared"
::Class.meta.add_method('find_attribute <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4566	4750	
==>s.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6269	6394	
==>"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6269	6394	
==>"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13523	13736	
==>ms = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13523	13736	
==>ms = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13523	13736	
==>ms = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_para <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16549	16669	
==>tf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausibl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20975	21095	
==>tf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausibl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10209	10317	
==>creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10209	10317	
==>creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10209	10317	
==>creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky m <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1016	1183	
==>ss} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1016	1183	
==>ss} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1243	1342	
==>ype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    d <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1243	1342	
==>ype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    d <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23095	23186	
==>gth(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14249	14364	
==>ndef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14249	14364	
==>ndef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14249	14364	
==>ndef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1486	1613	
==>g;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $fl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1486	1613	
==>g;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3532	3642	
==>rn $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    r <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4990	5092	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encodin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4990	5092	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encodin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15694	15788	
==>hild_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of al <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15694	15788	
==>hild_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of al <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22201	22292	
==>ntifier unexpected" warning raised by a zero-width
assertion followed by C<?>, which doesn't <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	660	765	
==>t_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	660	765	
==>t_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12999	13146	
==>n 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3952	4047	
==>g::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 C <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3952	4047	
==>g::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12236	12363	
==>this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12236	12363	
==>this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12236	12363	
==>this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1047	1145	
==>() doesn't work so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARR <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7660	7755	
==>care of much of this.)

A default implementation of this method is provided which returns nothin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7660	7755	
==>care of much of this.)

A default implementation of this method is provided which returns nothin <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8207	8308	
==>:num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8265	8366	
==>:num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_te <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1265	1363	
==>\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4724	4823	
==>:Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves somethin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4724	4823	
==>:Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves somethin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4724	4823	
==>:Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseves somethin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5867	5973	
==>::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5867	5973	
==>::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5867	5973	
==>::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3684	3773	
==>BLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3684	3773	
==>BLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3684	3773	
==>BLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2251	2354	
==>ion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2251	2354	
==>ion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2251	2354	
==>ion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - para <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	134	241	
==>:Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * La <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	134	241	
==>:Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * La <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14232	14359	
==>ment_control';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\n";
    
            #print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8248	8362	
==>f ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8248	8362	
==>f ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8529	8688	
==>};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes the reason for the TODO    
        my %todos;
        foreach my $detail (@{$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34659	34756	
==>g of the invocant Relation, and returns a new Relation that has the
same heading as the invocant a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39209	39306	
==>g of the invocant Relation, and returns a new Relation that has the
same heading as the invocant a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5871	5987	
==>ized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5871	5987	
==>ized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.c <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1163	1270	
==>ub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21797	21931	
==>{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22076	22210	
==>{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::con <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4427	4522	
==>_to_index(package => $pkg)

Adds a package to all necessary index files.

=cut

sub add_package_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5668	5824	
==>cedence::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21149	21244	
==>This means that people who install your
module distribtution do not need to have the compilers i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21149	21244	
==>This means that people who install your
module distribtution do not need to have the compilers i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3405	3529	
==>efined $opt->{precedence} ) {
        push @{$self->{levels}}, [ $opt ];
        return;
    }
    die "there is no prece <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	950	1105	
==>$key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key} = $val;
            next <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	108	201	
==>doc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	108	201	
==>doc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13076	13197	
==>L::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13076	13197	
==>L::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13076	13197	
==>L::Run::ApiX::Exception::Return(-text =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7504	7624	
==>= $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7504	7624	
==>= $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7504	7624	
==>= $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15010	15185	
==>=> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15010	15185	
==>=> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15010	15185	
==>=> 'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->ha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13260	13348	
==>( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13260	13348	
==>( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1108	1212	
==>ubmethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module lo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1108	1212	
==>ubmethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module lo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	866	966	
==>ift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	866	966	
==>ift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11731	11833	
==>oes Role too. So this means that all classes
and roles can be polymorphic to one another. 

Because ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11731	11833	
==>oes Role too. So this means that all classes
and roles can be polymorphic to one another. 

Because ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11731	11833	
==>oes Role too. So this means that all classes
and roles can be polymorphic to one another. 

Because ins <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13965	14056	
==>ash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13965	14056	
==>ash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2975	3087	
==>ing checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        loc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2696	2808	
==>->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2975	3087	
==>ing checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14603	14733	
==>i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14603	14733	
==>i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14603	14733	
==>i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1985	2154	
==>'      => $self->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            ) <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1879	1973	
==>l functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (eq <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1879	1973	
==>l functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17889	18072	
==>ss defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17889	18072	
==>ss defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17889	18072	
==>ss defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method->($sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7313	7426	
==>nt relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10790	10903	
==>nt relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9927	10040	
==>nt relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2454	2609	
==>mporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2454	2609	
==>mporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is <==
3	/Users/nnunley/pugs/util/grokprims.pl	1794	1904	
==>ive/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = "\$$a0 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5095	5222	
==>];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_,
      categories => $runcores{$_},
    }} sort keys %run <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4125	4237	
==>_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4125	4237	
==>_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17753	17901	
==>'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_typ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17753	17901	
==>'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_typ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4589	4736	
==>l_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # default <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17137	17248	
==>first_line > length $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7348	7446	
==>ding data.  Block 
ciphers should buffer input data until they have an entire block, then cipher 
t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7348	7446	
==>ding data.  Block 
ciphers should buffer input data until they have an entire block, then cipher 
t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	477	595	
==>sts $params{'$.todo'};
            $params{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3334	3426	
==>$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4470	4562	
==>$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9898	10033	
==>module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $ins <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2930	3059	
==>module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-', <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	411	508	
==>hod difference($self: Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14088	14188	
==>ms ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14088	14188	
==>ms ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14088	14188	
==>ms ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5881	5989	
==>"\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5881	5989	
==>"\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5881	5989	
==>"\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15542	15664	
==>ow);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8964	9053	
==>statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2789	2878	
==>statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37349	37495	
==>>splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37349	37495	
==>>splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37349	37495	
==>>splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16056	16226	
==>'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16335	16505	
==>'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   , <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	41	146	
==>Pugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/graph.png   --or
#        svn log > /tmp <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11513	11621	
==>return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11513	11621	
==>return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32706	32808	
==>te when I<outside>
the class, and it's a good idea to do so I<inside> the class as well.

=head1 OBJECT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7936	8051	
==>od SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7936	8051	
==>od SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7936	8051	
==>od SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5460	5592	
==>foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5460	5592	
==>foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5460	5592	
==>foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @pa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11211	11308	
==>t ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END




__END__

=pod
Objective:

  Permit swapping <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28627	28723	
==>odules, but it expects you
to make modules having a specific simple API that will serve their rol <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28627	28723	
==>odules, but it expects you
to make modules having a specific simple API that will serve their rol <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15037	15139	
==>methods can both be used to read
and to set the value of a header.  The header value is set if you pass <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15037	15139	
==>methods can both be used to read
and to set the value of a header.  The header value is set if you pass <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1035	1136	
==>:signature';

package method::params;

use strict;
use warnings;

use base 'closure::params';

1;

__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4520	4615	
==>sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4520	4615	
==>sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4520	4615	
==>sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26496	26690	
==>, map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26496	26690	
==>, map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26496	26690	
==>, map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16779	16926	
==>ined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16779	16926	
==>ined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16779	16926	
==>ined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4721	4837	
==>f = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4721	4837	
==>f = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4721	4837	
==>f = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5478	5571	
==>ails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9076	9169	
==>ails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4066	4177	
==>utput $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@arg <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4066	4177	
==>utput $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5590	5701	
==>utput $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12881	13008	
==>e = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6356	6483	
==>e = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13283	13395	
==>ject => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	43	150	
==>is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	43	150	
==>is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	43	150	
==>is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5931	6055	
==>[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5931	6055	
==>[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5931	6055	
==>[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	831	945	
==>ion($res, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is default {
   my %result;
   for %hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5007	5140	
==>e are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5007	5140	
==>e are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5007	5140	
==>e are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	445	564	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	650	769	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	706	825	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3035	3170	
==>$r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3035	3170	
==>$r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5518	5668	
==>value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5518	5668	
==>value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5518	5668	
==>value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9751	9862	
==>--------------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9751	9862	
==>--------------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9751	9862	
==>--------------------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13628	13814	
==>" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9812	9998	
==>" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10648	10834	
==>" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$matc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1305	1469	
==>4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1305	1469	
==>4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            t <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4400	4512	
==>mpiled Pugs to precompile the Prelude\n"
        unless $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PU <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6200	6301	
==>ct>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6200	6301	
==>ct>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8855	8970	
==>ray: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8855	8970	
==>ray: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1724	1832	
==>ram;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   invocant = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4536	4658	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8013	8135	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7006	7128	
==>body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13746	13848	
==>eys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16104	16199	
==>.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loadi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16104	16199	
==>.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loadi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13661	13776	
==>( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17138	17253	
==>( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16500	16615	
==>( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi m <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11408	11506	
==>tr>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11408	11506	
==>tr>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8464	8562	
==>(sub {
			Blondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeS <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2434	2548	
==>ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10349	10449	
==>ttle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the test <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10349	10449	
==>ttle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	990	1095	
==>urses through its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	990	1095	
==>urses through its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	990	1095	
==>urses through its
hierarchy, reblessing objects that it finds along the way into new
namespaces. This is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2817	2926	
==>->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2817	2926	
==>->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2817	2926	
==>->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4459	4564	
==>pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4459	4564	
==>pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4459	4564	
==>pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6119	6279	
==>e, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6119	6279	
==>e, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6119	6279	
==>e, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4527	4622	
==>he same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Se <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4527	4622	
==>he same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6051	6146	
==>he same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	20	114	
==>ty(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	20	114	
==>ty(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	20	114	
==>ty(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(new PI <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3343	3440	
==>$out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3401	3498	
==>$out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29311	29407	
==>der for the 'atom' handle to be executed, you must
explicitly add it to the queue (C<< $parser->{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3378	3479	
==>tring.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3378	3479	
==>tring.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	616	713	
==>azy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	616	713	
==>azy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	616	713	
==>azy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12784	12914	
==>$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are goin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12784	12914	
==>$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are goin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12784	12914	
==>$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are goin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	697	841	
==>valuated in lvalue context as a list
                my $self = shift;
                my $repl = shift;
                @{$self->get_value('@:sl <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	606	700	
==>irected acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	606	700	
==>irected acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	922	1017	
==>ciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	922	1017	
==>ciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, an <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15535	15618	
==>--------------------------------------------------

rm(noop,F0,F0,B0,B0,E0,E0).

rm( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13643	13741	
==>efix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13643	13741	
==>efix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13643	13741	
==>efix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15664	15822	
==>table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15664	15822	
==>table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15664	15822	
==>table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11869	12006	
==>Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => st <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11869	12006	
==>Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2233	2340	
==>ir|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2233	2340	
==>ir|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2233	2340	
==>ir|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	795	896	
==>::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	795	896	
==>::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	795	896	
==>::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to ge <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1723	1812	
==>s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol})->(\[.+?])/\$$1 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3879	3965	
==>-----------------------------------------------------------
## removing children

metho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3879	3965	
==>-----------------------------------------------------------
## removing children

metho <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	376	467	
==>to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), st <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	376	467	
==>to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10412	10552	
==>gs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6753	6893	
==>gs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7602	7742	
==>gs[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	881	993	
==>!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	881	993	
==>!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	881	993	
==>!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14402	14495	
==>es ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14402	14495	
==>es ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14402	14495	
==>es ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_ <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	8	103	
==>OE-0.0.1;

# Global POE::Kernel object.
our $POE::Kernel = ::POE::Kernel.new;

class POE::Kernel <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4615	4696	
==>ecoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4615	4696	
==>ecoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1951	2089	
==>$p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    print Dumper $ou <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3100	3229	
==>/gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r(' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3100	3229	
==>/gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	61	186	
==>$msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	61	186	
==>$msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	61	186	
==>$msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1941	2121	
==>.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                n <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1941	2121	
==>.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                n <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	410	506	
==>tuple_keys = qw<
    build_requires requires recommends bundles
>;

foreach my $key (@scalar_keys <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	298	412	
==>equires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7847	7944	
==>------ higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7580	7674	
==>------ higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ru <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3034	3142	
==>ction><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Synt <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3034	3142	
==>ction><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Synt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5698	5802	
==>ocal) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	546	645	
==>turn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	546	645	
==>turn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	546	645	
==>turn $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2352	2499	
==>[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2352	2499	
==>[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6431	6532	
==>elf->{instance}->free_vars;
}

package node;
# all AST nodes inherit from this

sub new {
	my $class = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4707	4840	
==>PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4707	4840	
==>PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1613	1746	
==>PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1037	1153	
==>ame,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1037	1153	
==>ame,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1037	1153	
==>ame,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defi <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	843	937	
==>Normally, they will be constructed as a series of events fired in by
something that C<.does(Per <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	843	937	
==>Normally, they will be constructed as a series of events fired in by
something that C<.does(Per <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4566	4680	
==>" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2774	2880	
==>ersion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2774	2880	
==>ersion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4307	4439	
==>te errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_outpu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4307	4439	
==>te errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_outpu <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12313	12405	
==>tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td class="num tests <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5562	5678	
==>son> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5562	5678	
==>son> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7086	7202	
==>son> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9603	9730	
==>($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9603	9730	
==>($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9603	9730	
==>($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6220	6342	
==>ode_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6220	6342	
==>ode_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rose <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1194	1401	
==>$dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    r <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1194	1401	
==>$dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5638	5764	
==>s for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5638	5764	
==>s for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5638	5764	
==>s for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1134	1307	
==>for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.org <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1134	1307	
==>for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.org <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18611	18732	
==>@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($code);
    } else {
	eval($code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3592	3695	
==>.
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3592	3695	
==>.
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3592	3695	
==>.
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1672	1771	
==>elf) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1672	1771	
==>elf) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1672	1771	
==>elf) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9527	9647	
==>pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9527	9647	
==>pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9527	9647	
==>pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32959	33055	
==>cept that the returned Relation contains only tuples that are in
exactly one of the source Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37509	37605	
==>cept that the returned Relation contains only tuples that are in
exactly one of the source Relati <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17378	17462	
==>BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressionNoIn>
}
rule BitwiseORExpression <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2256	2372	
==>rammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2256	2372	
==>rammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4362	4505	
==>',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4362	4505	
==>',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1782	1891	
==>ms for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, \% <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	37	120	
==>pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7054	7195	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7054	7195	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7054	7195	
==>SELF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2374	2490	
==>rammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2374	2490	
==>rammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4167	4263	
==>tructor, and when calling these methods you should take care not
to call them in function form by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4167	4263	
==>tructor, and when calling these methods you should take care not
to call them in function form by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4167	4263	
==>tructor, and when calling these methods you should take care not
to call them in function form by <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	899	1017	
==>Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4377	4495	
==>Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6898	7013	
==>abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = $Result3 % $n2_32;
    return $Resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8712	8849	
==>o\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8712	8849	
==>o\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8712	8849	
==>o\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14449	14670	
==>( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14449	14670	
==>( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14449	14670	
==>( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3432	3584	
==>( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3432	3584	
==>( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5505	5623	
==>ING unless -d $my_bindir;

        ### load in the alternatives collection
        my @alts = @{ $self->registered_alte <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2694	2802	
==>kend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2694	2802	
==>kend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4218	4326	
==>kend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6320	6442	
==>List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6320	6442	
==>List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6320	6442	
==>List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11961	12069	
==>r $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# this is the actual inferrence engine
my $i = Language: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22059	22156	
==>in code, it
returns the first one it finds.  This also works for the multiple language
or permissi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22059	22156	
==>in code, it
returns the first one it finds.  This also works for the multiple language
or permissi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10139	10260	
==>.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10139	10260	
==>.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11188	11292	
==>ser->qr;

The regex is formed by calling the qr() method of each node in the tree,
which may be different <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5909	6029	
==>s.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5909	6029	
==>s.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5909	6029	
==>s.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4780	4888	
==>_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4780	4888	
==>_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4780	4888	
==>_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5076	5171	
==>erenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5076	5171	
==>erenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5076	5171	
==>erenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object in t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2271	2388	
==>lf) = @_;
  return $self->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub error {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9345	9445	
==>eturn $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9345	9445	
==>eturn $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4165	4380	
==>test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6119	6289	
==>=> 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6119	6289	
==>=> 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4135	4234	
==>if not given.

The value for day can also be the string "last", in which case the
object returned re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4135	4234	
==>if not given.

The value for day can also be the string "last", in which case the
object returned re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2819	2922	
==>ule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3066	3169	
==>ule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6268	6409	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6268	6409	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6268	6409	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12603	12692	
==>sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12603	12692	
==>sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12603	12692	
==>sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	631	738	
==>my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	631	738	
==>my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	631	738	
==>my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	744	881	
==>Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	726	860	
==>Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_wri <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	726	860	
==>Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{named_only},
               is_wri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16225	16375	
==>{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19702	19852	
==>{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19235	19385	
==>{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    ) <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2355	2480	
==>ically by  --
--                  util/gen_prelude.pl                       --
----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11704	11800	
==>lowing syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11762	11858	
==>lowing syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19695	19789	
==>::IRC> automatically tries to use slight variations of the nickname in the
login phase (for exa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19695	19789	
==>::IRC> automatically tries to use slight variations of the nickname in the
login phase (for exa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	41	132	
==>::C;
use base qw/Blondie::Runtime Blondie::Reducer::DynamicScoping/;

use strict;
use warnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13898	14019	
==>};
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13898	14019	
==>};
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13898	14019	
==>};
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	798	902	
==>e::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	886	990	
==>e::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0] <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1430	1570	
==>turns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterion    ::= KeyExtractor | Comparator
                       | Pair( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9829	9950	
==>:new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9829	9950	
==>:new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2420	2540	
==>>tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->au <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7220	7322	
==>ng.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7220	7322	
==>ng.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ci <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24661	24762	
==>utable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29213	29314	
==>utable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28098	28198	
==>utable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3079	3185	
==>sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3079	3185	
==>sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4603	4709	
==>sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descriptio <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5682	5890	
==>}
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event . <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5682	5890	
==>}
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event . <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	85	181	
==>=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1,2,3).prefix:<[+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4530	4658	
==>ew;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4530	4658	
==>ew;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4530	4658	
==>ew;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2092	2190	
==>2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistrib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2092	2190	
==>2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistrib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2092	2190	
==>2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistrib <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4628	4741	
==>', $TEMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pi <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4111	4213	
==>th and day default
to 1 if not given.

The value for day can also be the string "last", in which case t <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4111	4213	
==>th and day default
to 1 if not given.

The value for day can also be the string "last", in which case t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7693	7824	
==>MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7693	7824	
==>MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7693	7824	
==>MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7308	7422	
==>ndefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7308	7422	
==>ndefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7308	7422	
==>ndefined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27063	27158	
==>> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31615	31710	
==>> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30671	30766	
==>> would
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=it <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1474	1584	
==>HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away every <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1474	1584	
==>HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away every <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3305	3387	
==>ion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol>|<lookahead>|<lookbehind> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	45	149	
==>List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	45	149	
==>List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	45	149	
==>List - implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2200	2353	
==>>pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2200	2353	
==>>pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2200	2353	
==>>pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9786	9899	
==>ted;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane stat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9786	9899	
==>ted;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane stat <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	118	230	
==>.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert methods
multi method delete ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8501	8617	
==>tion user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8501	8617	
==>tion user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	836	959	
==>}
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_default    = 'config.yml';
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6502	6613	
==>age Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objects ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6284	6391	
==>age Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objects ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8045	8161	
==>uth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8045	8161	
==>uth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5402	5510	
==>rrent value itself, which means 
you it is essentially read-only, however, all the return values of the
closu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	975	1108	
==>^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebyt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	975	1108	
==>^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebyt <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20745	20831	
==>boundary,[],[],[C|Bx],[C|Bx],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10679	10807	
==>ee.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2> <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10679	10807	
==>ee.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24211	24317	
==>ft;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2347	2446	
==>mber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2347	2446	
==>mber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2347	2446	
==>mber(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10859	11020	
==>>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10859	11020	
==>>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10859	11020	
==>>{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2150	2259	
==>t into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2150	2259	
==>t into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2150	2259	
==>t into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	66	171	
==>.}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	66	171	
==>.}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	66	171	
==>.}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here <==
3	/Users/nnunley/pugs/util/addauthors.pl	444	547	
==>$comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  f <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3884	3979	
==>r $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event:: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3884	3979	
==>r $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1700	1819	
==>$fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1700	1819	
==>$fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1700	1819	
==>$fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5163	5279	
==>g;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5163	5279	
==>g;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5163	5279	
==>g;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	484	597	
==>n)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	484	597	
==>n)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	484	597	
==>n)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4735	4891	
==>een{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { return(\$_[ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5603	5718	
==>c platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    cho <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5603	5718	
==>c platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    cho <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1421	1540	
==>ilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1421	1540	
==>ilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capit <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1420	1558	
==>1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	552	650	
==>);
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_desc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	552	650	
==>);
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_desc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25317	25411	
==>y of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29869	29963	
==>y of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3743	3848	
==>N;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13634	13820	
==>s}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13634	13820	
==>s}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13634	13820	
==>s}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6786	6889	
==>=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6786	6889	
==>=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8983	9086	
==>=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12646	12782	
==>s (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12646	12782	
==>s (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12646	12782	
==>s (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                $class->STOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5743	5854	
==>mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5743	5854	
==>mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5743	5854	
==>mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2011	2135	
==>, map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2011	2135	
==>, map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2011	2135	
==>, map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19981	20095	
==>_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> N <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5800	5901	
==>f Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a v <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5800	5901	
==>f Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a v <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16265	16385	
==>d $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X: <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	457	567	
==>, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfu <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	457	567	
==>, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21216	21323	
==>{...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21216	21323	
==>{...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21216	21323	
==>{...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see o <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1403	1497	
==>`BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure ( <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1403	1497	
==>`BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1989	2085	
==>Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft= <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1989	2085	
==>Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft= <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	672	760	
==>---------------------------------------------

use strict;
use IO::All;
use Regexp::Commo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2319	2424	
==>0");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2319	2424	
==>0");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3180	3328	
==>( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3180	3328	
==>( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3180	3328	
==>( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3994	4174	
==>ethods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3994	4174	
==>ethods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3994	4174	
==>ethods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5136	5261	
==>n =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5136	5261	
==>n =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5136	5261	
==>n =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1017	1108	
==>e_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1017	1108	
==>e_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1017	1108	
==>e_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	747	987	
==>>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15220	15336	
==>use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15499	15615	
==>use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1180	1323	
==>vocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1180	1323	
==>vocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1180	1323	
==>vocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	701	791	
==>lf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	701	791	
==>lf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	701	791	
==>lf->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ jo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12843	12936	
==>e $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
character <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12843	12936	
==>e $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
character <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3914	4052	
==>if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3914	4052	
==>if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3914	4052	
==>if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8691	8817	
==>+ 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	865	977	
==>+ 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	865	977	
==>+ 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10222	10334	
==>os => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S->object(bol => bol => '^^') <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5055	5154	
==>d be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5055	5154	
==>d be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fin <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1339	1443	
==>hree ADTs.

=over 4

=item Unit

A unit is an encapsulation of a single value and a type.

C<Val> is a ty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31289	31388	
==>r]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory.  I <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31289	31388	
==>r]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory.  I <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1639	1749	
==>make_node_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $args[-1]->to;
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11219	11315	
==>t. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator versi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11219	11315	
==>t. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator versi <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	326	441	
==>ll;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_of_Input lookfor
#                 alternate concaten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8247	8353	
==>::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8247	8353	
==>::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8247	8353	
==>::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_me <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3067	3165	
==>y, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (with <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3067	3165	
==>y, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (with <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24626	24727	
==>return $x->defined if p6_is_perl6_object($x);
    return 1;
}

sub p6_declare_package {
    my($pkg,$k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1688	1783	
==>piles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1688	1783	
==>piles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2642	2728	
==>tement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2642	2728	
==>tement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_pe <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2238	2350	
==>s }
        multi method as (--> Named) { $.name => self }
    }

    class Getopt::Argument::Style::Clustered is <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6363	6467	
==>urn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6363	6467	
==>urn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34584	34683	
==>C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39134	39233	
==>C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38640	38739	
==>C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20862	21136	
==>) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20862	21136	
==>) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20862	21136	
==>) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	409	512	
==>\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array]* of Str

sub parse (@sta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3175	3269	
==>t of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3175	3269	
==>t of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1911	2022	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1911	2022	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1911	2022	
==>ash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5352	5471	
==>);
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5352	5471	
==>);
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1737	1841	
==>ompiler::Regex> compiles Perl 6 Regexes to Perl 5.

=item * L<Pugs::Compiler::RegexPerl5> wraps Perl 5 Re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5598	5698	
==>p_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BA <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5598	5698	
==>p_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7122	7222	
==>p_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=item B<BA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1711	1822	
==>s;

    return;

};



# ----- the following were included only for performance reasons,

# because they are too <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1643	1749	
==>s;
    return;
};

# ----- the following were included only for performance reasons,
# because they are too <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5263	5450	
==>e ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5263	5450	
==>e ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5263	5450	
==>e ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1088	1193	
==>X evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emittin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1088	1193	
==>X evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emittin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1088	1193	
==>X evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emittin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32518	32621	
==>Whether this object does is zero-width (like an anchor).

=back

If there is a method with the name of o <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3058	3155	
==>AMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3058	3155	
==>AMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2102	2232	
==>.9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2102	2232	
==>.9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2102	2232	
==>.9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12029	12159	
==>};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12029	12159	
==>};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12029	12159	
==>};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3293	3395	
==>rgs;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3293	3395	
==>rgs;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3293	3395	
==>rgs;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1423	1556	
==>=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1423	1556	
==>=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1423	1556	
==>=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ( <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3068	3192	
==>unless defined $ENV{PUGS_SMOKE_UPLOAD};
    system("$^X $ENV{PUGS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	718	826	
==>return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub nod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	806	914	
==>return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub nod <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7030	7151	
==>e "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6706	6794	
==>normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delet <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6706	6794	
==>normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11417	11527	
==>thod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11417	11527	
==>thod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11417	11527	
==>thod_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2262	2355	
==>er = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2262	2355	
==>er = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2262	2355	
==>er = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2990	3090	
==>r!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6467	6567	
==>r!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	672	769	
==>_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? str->new('1') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11242	11365	
==>> sany => '.');
  });


  ### '|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28424	28546	
==>de.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $self->SUPER::init();

    $self->add_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4614	4719	
==>e(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20266	20358	
==>_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20266	20358	
==>_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20266	20358	
==>_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	875	973	
==>l     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basen <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	2	97	
==>lass Perl::Param;

# from src/Pugs/AST/Internals.hs (see line starting "data Param")

has Bool $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	754	842	
==>l   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10109	10267	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10109	10267	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10109	10267	
==>previous call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9260	9385	
==>e height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9260	9385	
==>e height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19420	19521	
==>is safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12498	12603	
==>lass.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12498	12603	
==>lass.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12498	12603	
==>lass.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1533	1647	
==>wrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1533	1647	
==>wrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1533	1647	
==>wrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19928	20061	
==>ped}) {
        $bonusmsg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	373	496	
==>ace = "" if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13954	14076	
==>bin => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out alternatives agai <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9246	9362	
==>max = 1
    islazy = 0
    $S0 = substr target, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	191	291	
==>verted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	191	291	
==>verted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	191	291	
==>verted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15402	15507	
==>h my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15402	15507	
==>h my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15402	15507	
==>h my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $method_table_nam <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6741	6855	
==>ocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6741	6855	
==>ocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3640	3754	
==>ocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	991	1116	
==>, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	991	1116	
==>, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	991	1116	
==>, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	110	217	
==>p (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	110	217	
==>p (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	110	217	
==>p (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	116	230	
==>n Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	106	214	
==>n Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Comp <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24029	24133	
==>s set. */



 regcomp.h:
 * The "internal use only" fields in regexp.h are present to pass info from
 * c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	563	659	
==>elf:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub ge <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	563	659	
==>elf:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub ge <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26861	26953	
==>essage Variables" attribute if the corresponding argument is
provided (it defaults to empty i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26861	26953	
==>essage Variables" attribute if the corresponding argument is
provided (it defaults to empty i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2266	2397	
==>sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2813	2944	
==>sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3360	3491	
==>sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	700	818	
==>nstance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	700	818	
==>nstance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	700	818	
==>nstance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	964	1094	
==>c = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	964	1094	
==>c = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	964	1094	
==>c = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object(' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15737	15834	
==>tta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=ba <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15737	15834	
==>tta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=ba <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1950	2059	
==>rns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1950	2059	
==>rns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	9	111	
==>Perl6::MM::Attribute;

use Perl6::Core::Symbol;

package attribute;

use strict;
use warnings;

use Car <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	306	430	
==>($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	306	430	
==>($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	306	430	
==>($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREAT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	274	365	
==>eName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Com <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	274	365	
==>eName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11963	12075	
==>$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11963	12075	
==>$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11963	12075	
==>$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8175	8307	
==>r"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8175	8307	
==>r"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8064	8156	
==>dex->{_files}} : ());
    my $template = HTML::Template->new(filename => 'util/catalog_tmpl/d <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5297	5447	
==>ck => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &cont <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5297	5447	
==>ck => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &cont <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7125	7221	
==>rrot binary",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @mod <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47649	47847	
==>d::params->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35509	35700	
==>d::params->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6714	6899	
==>d::params->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7507	7655	
==>def, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'tabl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7507	7655	
==>def, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'tabl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15521	15636	
==>> xdigit => $neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) ( <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	54	156	
==>del;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a Tangram schema structure
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	549	651	
==>S(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resource <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	549	651	
==>S(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resource <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	549	651	
==>S(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resource <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25863	25965	
==>-----

listify(X,L) :- atom(X), atom_codes(X,L), !.
listify(X,L) :- string_to_list(X,L), !.
listify(L,L <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2102	2195	
==>===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2102	2195	
==>===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2853	2962	
==>el)))
         (= $current (&dispatcher do))))
     ($method))

=cut

$::ENV->create('WALKMETH' => closure->ne <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6973	7075	
==>n value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is u <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6973	7075	
==>n value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	170	268	
==>f $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	170	268	
==>f $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	170	268	
==>f $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2722	2839	
==>runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2722	2839	
==>runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2722	2839	
==>runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", " <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6596	6733	
==>ay[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so.. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5100	5237	
==>ay[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so.. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5107	5209	
==>[\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
package PIL::PIL1CPerl5::Nod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	438	543	
==>{
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	438	543	
==>{
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1375	1536	
==>Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$n'),
						App(
							Sym <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1424	1559	
==>ot understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5070	5190	
==>ust package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5070	5190	
==>ust package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5070	5190	
==>ust package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	440	538	
==>$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	440	538	
==>$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	440	538	
==>$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3216	3343	
==>al !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3216	3343	
==>al !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29608	29723	
==>my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29608	29723	
==>my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29608	29723	
==>my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::L <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10090	10212	
==>test{skipped};
                push(@msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{bo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	28	139	
==>Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_eleme <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	28	139	
==>Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10978	11113	
==>s_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10978	11113	
==>s_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10978	11113	
==>s_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        conf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13478	13608	
==>s file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13478	13608	
==>s file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Loc <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7921	8041	
==>eral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <Hex <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6706	6892	
==>et.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        m <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6706	6892	
==>et.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4611	4718	
==>(@{::opaque_instance_attrs($self)->{'@:roles'}}) {
        # make a note of the role for does()
        $rol <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18037	18166	
==>$spec eq "%" { ...; next; }
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to sprintf" if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	949	1076	
==>tion Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Requi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	949	1076	
==>tion Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14813	14932	
==>xt);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14813	14932	
==>xt);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14429	14560	
==>om_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14429	14560	
==>om_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14429	14560	
==>om_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12437	12554	
==>ray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12437	12554	
==>ray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12437	12554	
==>ray is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11520	11641	
==>ay break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11520	11641	
==>ay break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11520	11641	
==>ay break grep(), uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2350	2481	
==>];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2350	2481	
==>];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2350	2481	
==>];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1216	1334	
==>y ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1216	1334	
==>y ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2028	2119	
==>erl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2028	2119	
==>erl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2028	2119	
==>erl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2145	2285	
==>ey).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2145	2285	
==>ey).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2145	2285	
==>ey).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2228	2327	
==>ey) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2228	2327	
==>ey) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2228	2327	
==>ey) ? hash.get_value(key).uid : undefined;

      // %hash{$key} := $foo should autovivify %hash{$ke <==
3	/Users/nnunley/pugs/util/testgraph.pl	150	258	
==>est::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Confi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5845	5944	
==>re) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5845	5944	
==>re) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7079	7216	
==>key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7079	7216	
==>key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7079	7216	
==>key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1235	1328	
==>Unmatched [';
use constant RPe_EQUANT => --$ENUM, 'Quantifier follows nothing';
use constant R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18327	18525	
==>xt_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18327	18525	
==>xt_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18327	18525	
==>xt_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2125	2209	
==>run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2125	2209	
==>run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2125	2209	
==>run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15073	15219	
==>* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works f <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19248	19394	
==>* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24028	24122	
==>, you can assume that it has succeeded.

=head2 The Relation::Example Class

A Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8620	8826	
==>::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8620	8826	
==>::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8620	8826	
==>::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1510	1616	
==>onal $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the n <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1510	1616	
==>onal $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the n <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	64	162	
==>rse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a posit <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	64	162	
==>rse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a posit <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4120	4208	
==>693993751058209749445923078164062;
     # http://www.research.att.com/~njas/sequences/A00 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6434	6539	
==>{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6434	6539	
==>{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6434	6539	
==>{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4515	4620	
==>a;
}

=head2 package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22056	22153	
==>rtain code, it
returns the first one it finds.  This also works for the multiple language
or permi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22056	22153	
==>rtain code, it
returns the first one it finds.  This also works for the multiple language
or permi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8625	8774	
==>> q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$current", $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6556	6674	
==>eady loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6556	6674	
==>eady loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by t <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	221	333	
==>t_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	185	297	
==>t_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1975	2078	
==><'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	700	811	
==>SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name} . '>" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8653	8750	
==>l still be returning something?

maybe just overload bool to false ;)

(I mean, seriously, because <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8365	8460	
==>l still be returning something?
maybe just overload bool to false ;)
(I mean, seriously, because <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2583	2696	
==>'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2583	2696	
==>'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2583	2696	
==>'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline(' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7053	7175	
==>et.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7053	7175	
==>et.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12088	12207	
==>ble( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pk <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19920	20010	
==>face and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self- <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19920	20010	
==>face and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6040	6179	
==>] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6040	6179	
==>] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6040	6179	
==>] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11410	11542	
==>_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11404	11536	
==>_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \ <==
3	/Users/nnunley/pugs/util/package-osx.pl	6617	6705	
==>l/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Perl6::Overview::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2054	2154	
==>isub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2054	2154	
==>isub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2054	2154	
==>isub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4311	4447	
==>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4311	4447	
==>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4311	4447	
==>type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3367	3463	
==>ant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3367	3463	
==>ant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3367	3463	
==>ant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2443	2540	
==>pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=hea <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2443	2540	
==>pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	425	513	
==>ers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	425	513	
==>ers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	425	513	
==>ers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2652	2757	
==>->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2652	2757	
==>->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2652	2757	
==>->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2161	2350	
==>nshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2161	2350	
==>nshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47132	47277	
==>ew('%:namespace')));
                  }))
                  ->or(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2544	2643	
==>emember that ciphering steps may not return all (or any) of the data you 
passed in, and that the fi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2544	2643	
==>emember that ciphering steps may not return all (or any) of the data you 
passed in, and that the fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	284	382	
==>the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	284	382	
==>the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	284	382	
==>the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16316	16525	
==>( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16316	16525	
==>( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16316	16525	
==>( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1049	1165	
==>y
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

met <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1049	1165	
==>y
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5080	5187	
==>my $orig_base = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__object__::'};

    pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	738	863	
==>ode },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	749	874	
==>ode },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1647	1760	
==>>{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            $relative_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1896	2089	
==>ot only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibilit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1896	2089	
==>ot only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibilit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1896	2089	
==>ot only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibilit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2082	2174	
==>Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2082	2174	
==>Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2082	2174	
==>Copyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1447	1548	
==>eturn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1447	1548	
==>eturn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1447	1548	
==>eturn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2605	2744	
==>ve;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2605	2744	
==>ve;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2605	2744	
==>ve;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # und <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	348	462	
==>ole Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	348	462	
==>ole Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUIL <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	129	226	
==>THERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke): skipped tests have po <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14613	14724	
==>"); undef };
my %as_hash_handlers =
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numeric     = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2140	2242	
==>e, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.supe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2140	2242	
==>e, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.supe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1483	1671	
==>er {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently resul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1483	1671	
==>er {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently resul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	909	1049	
==>{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9204	9314	
==>ind the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_l <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9204	9314	
==>ind the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	182	274	
==>s::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
use Carp;

use Data::Dumper;
$D <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2260	2461	
==>eturn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5737	5938	
==>eturn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4667	4868	
==>eturn {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15109	15233	
==>with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18586	18710	
==>with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18002	18126	
==>with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11560	11699	
==>t.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11560	11699	
==>t.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2805	2919	
==>fined $opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1634	1767	
==>abel, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1634	1767	
==>abel, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1634	1767	
==>abel, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	912	1020	
==>L2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	912	1020	
==>L2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	912	1020	
==>L2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15539	15640	
==>e span.

These methods may raise a warning if the new value would put the span 
in an invalid state, s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15539	15640	
==>e span.

These methods may raise a warning if the new value would put the span 
in an invalid state, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9005	9113	
==>::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascend <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9005	9113	
==>::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascend <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9005	9113	
==>::Class->add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5435	5541	
==>number of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @li <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5435	5541	
==>number of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17235	17331	
==>_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17235	17331	
==>_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17235	17331	
==>_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17199	17318	
==>o 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17199	17318	
==>o 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1272	1412	
==>add_rule( 
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21023	21121	
==>n
unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25575	25673	
==>n
unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attri <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8628	8723	
==>has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8628	8723	
==>has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9387	9477	
==>END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4907	5019	
==>x . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4907	5019	
==>x . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4907	5019	
==>x . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14275	14388	
==>object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_array {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14807	14906	
==>OR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refacto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14807	14906	
==>OR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refacto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14807	14906	
==>OR

Original code and tests by Stevan Little E<lt>stevan@iinteractive.comE<gt>

The code was refacto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1172	1279	
==>500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1172	1279	
==>500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1172	1279	
==>500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed str <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2855	2960	
==>$ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9864	9958	
==>rl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mul <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9864	9958	
==>rl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mul <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8046	8333	
==>ew(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                Sym->new('&infix:<*>' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2666	2767	
==>erence( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2666	2767	
==>erence( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5190	5312	
==>a::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5190	5312	
==>a::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5780	5902	
==>a::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	90	191	
==>sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	90	191	
==>sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	90	191	
==>sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	928	1036	
==>> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	928	1036	
==>> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	928	1036	
==>> 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18693	18950	
==>ound) {
                      # Part of the content is inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	890	1011	
==>exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4365	4466	
==>smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{$category->($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1319	1421	
==>($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1319	1421	
==>($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1319	1421	
==>($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5777	5872	
==>e_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5777	5872	
==>e_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2676	2771	
==>e_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
nod <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4353	4457	
==>bject.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4353	4457	
==>bject.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5877	5981	
==>bject.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	210	315	
==>term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	511	610	
==>ent_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	717	816	
==>ent_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4307	4434	
==>vocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWritable""paramContext""paramDefault""par <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20967	21056	
==>cknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20967	21056	
==>cknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3141	3246	
==>bpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3141	3246	
==>bpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3141	3246	
==>bpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8890	9013	
==>all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8890	9013	
==>all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8890	9013	
==>all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1424	1540	
==>es:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1424	1540	
==>es:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1424	1540	
==>es:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1552	1696	
==>.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1552	1696	
==>.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1552	1696	
==>.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in the 
        # attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6688	6809	
==>$xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6688	6809	
==>$xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6688	6809	
==>$xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11177	11312	
==>=> 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    j <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2037	2143	
==>e symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1719	1821	
==>e symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2971	3114	
==>om not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2971	3114	
==>om not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2971	3114	
==>om not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13724	13858	
==>at' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13724	13858	
==>at' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13724	13858	
==>at' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3927	4053	
==>ently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3927	4053	
==>ently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3927	4053	
==>ently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4438	4578	
==>cher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4438	4578	
==>cher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4438	4578	
==>cher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	594	693	
==>tart_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	594	693	
==>tart_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	528	632	
==>@_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	528	632	
==>@_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	528	632	
==>@_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7549	7687	
==>d - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7549	7687	
==>d - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7549	7687	
==>d - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5627	5744	
==>>name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5627	5744	
==>>name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5627	5744	
==>>name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6872	6995	
==>an1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6872	6995	
==>an1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	256	355	
==>EGIN {
    $operator = Pugs::Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operator' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9575	9668	
==>_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9575	9668	
==>_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3116	3208	
==>self.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3116	3208	
==>self.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3463	3555	
==>self.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3082	3210	
==>ntext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3082	3210	
==>ntext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3082	3210	
==>ntext.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3319	3441	
==>{ %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unle <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3319	3441	
==>{ %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17729	17841	
==>} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8134	8254	
==>singleton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	351	461	
==>singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	351	461	
==>singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30505	30608	
==>inal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35056	35159	
==>inal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34238	34341	
==>inal tuple/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4314	4444	
==>);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4314	4444	
==>);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4314	4444	
==>);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1148	1332	
==>);
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1148	1332	
==>);
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1148	1332	
==>);
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7234	7376	
==>r :$k is not yet supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1) eq "x"
               && inter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	108	214	
==>ler::Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8023	8119	
==>ant to see if an error is a particular error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4888	5017	
==>n "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4888	5017	
==>n "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4888	5017	
==>n "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2495	2599	
==>it/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2495	2599	
==>it/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2495	2599	
==>it/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	464	602	
==>fix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	464	602	
==>fix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	464	602	
==>fix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9432	9564	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9420	9552	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$ <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1325	1428	
==>gs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5192	5292	
==>item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5192	5292	
==>item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6716	6816	
==>item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16451	16556	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16451	16556	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16451	16556	
==>rong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	806	920	
==>ays => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<st <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	806	920	
==>ays => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<st <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2647	2752	
==>to &{$obj->can($method)};
}

sub load {
    my ($self, $method) = @_;

    my $extensions = $self->{extens <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9207	9313	
==>MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9207	9313	
==>MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9207	9313	
==>MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3675	3810	
==>AGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACK <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	38	142	
==>s Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	38	142	
==>s Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	861	958	
==>ILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9874	9968	
==>urrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9874	9968	
==>urrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2861	2974	
==>hitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2861	2974	
==>hitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2861	2974	
==>hitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $class);
    }
    war <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2123	2224	
==>parse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2123	2224	
==>parse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7781	7909	
==>~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7781	7909	
==>~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	317	450	
==>{
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	317	450	
==>{
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	317	450	
==>{
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7367	7462	
==>free', any(qw/type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12782	12876	
==>its" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used fo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12782	12876	
==>its" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used fo <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4545	4654	
==>ackage version $version\n";
    return $dump;
}

sub read {
    my $self = shift;
    $self->include_deps( 'YA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1174	1282	
==>t_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1174	1282	
==>t_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	511	620	
==>pile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    return Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	152	248	
==>ecify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method do <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	152	248	
==>ecify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13751	13856	
==>abel, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13751	13856	
==>abel, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13751	13856	
==>abel, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $D <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	258	393	
==>Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? " <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24946	25039	
==>tor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24946	25039	
==>tor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7738	7848	
==>();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7738	7848	
==>();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7738	7848	
==>();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = g <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1673	1813	
==>e,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_IN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1673	1813	
==>e,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_IN <==
3	/Users/nnunley/pugs/util/grokprims.pl	1644	1750	
==>$a1) $name \$$a1";
  } elsif (/left-associative/ and $arity==2) {
    $example = "HUH: left-associative wit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5883	5982	
==>essage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5883	5982	
==>essage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message! <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4070	4162	
==>ildren will be reduced -
Sym('&infix:<+>') will resolve '&infix:<+>' into the thunk that does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7567	7715	
==>ne => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7567	7715	
==>ne => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7567	7715	
==>ne => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3756	3880	
==>";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3756	3880	
==>";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3756	3880	
==>";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	286	434	
==>e::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 METHODS

=head2 JIB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> crea <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6023	6163	
==>idual tests skipped
    todo            Number of individual todo tests

    files           Number of test files ran
    good            Num <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	108	199	
==>method BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	108	199	
==>method BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2010	2180	
==>isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2010	2180	
==>isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2010	2180	
==>isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	931	1063	
==>xt if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	931	1063	
==>xt if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	931	1063	
==>xt if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4019	4131	
==>headToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4019	4131	
==>headToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4019	4131	
==>headToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUnt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8784	8911	
==>ss \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8772	8899	
==>ss \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	107	210	
==>.. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	107	210	
==>.. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17284	17412	
==>->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            die "Failed $tot->{bad} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5637	5771	
==>SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5637	5771	
==>SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5637	5771	
==>SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	746	859	
==>nstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	746	859	
==>nstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	746	859	
==>nstructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9787	9929	
==>}
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9787	9929	
==>}
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9787	9929	
==>}
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9766	9891	
==>-----------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9766	9891	
==>-----------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9766	9891	
==>-----------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4023	4149	
==>val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4023	4149	
==>val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4023	4149	
==>val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7637	7744	
==>/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7637	7744	
==>/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14014	14113	
==>Pe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many time <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15052	15208	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15052	15208	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15052	15208	
==>f->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	535	714	
==>,
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	535	714	
==>,
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	535	714	
==>,
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## cre <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	711	816	
==>val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13357	13452	
==>e `:depends("string")` parameter to most of the functions is a way
to provide a comment that ref <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13415	13510	
==>e `:depends("string")` parameter to most of the functions is a way
to provide a comment that ref <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12481	12657	
==>val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translato <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12481	12657	
==>val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translato <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3568	3665	
==>ently can't do lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv, and <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25954	26056	
==>h other,
or duplicate attribute names that aren't being renamed.  This method
supports renaming attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30506	30608	
==>h other,
or duplicate attribute names that aren't being renamed.  This method
supports renaming attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29481	29583	
==>h other,
or duplicate attribute names that aren't being renamed.  This method
supports renaming attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3565	3691	
==>_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3565	3691	
==>_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4305	4422	
==>= $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7782	7899	
==>= $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6766	6883	
==>= $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2225	2331	
==>N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2225	2331	
==>N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2225	2331	
==>N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40369	40470	
==>ING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too lar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15549	15644	
==>attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and v <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15549	15644	
==>attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3427	3547	
==>path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3427	3547	
==>path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$wha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3427	3547	
==>path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$wha <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	50	163	
==>t;
use warnings;

{
	package Blondie::Unit;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17944	18038	
==>re, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login() <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17944	18038	
==>re, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5527	5633	
==>F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5527	5633	
==>F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5527	5633	
==>F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2744	2878	
==>warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2744	2878	
==>warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2744	2878	
==>warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1620	1746	
==>G{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1587	1713	
==>G{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	408	531	
==>, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_dur_re <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22931	23045	
==>[mname]
    pad[mname] = value
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15384	15480	
==>ties ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $enc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15384	15480	
==>ties ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $enc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	518	633	
==>"-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19880	19978	
==>.

After all the code has been parsed into blocks and the blocks have been
marked for various compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19880	19978	
==>.

After all the code has been parsed into blocks and the blocks have been
marked for various compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16182	16293	
==>_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16182	16293	
==>_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16182	16293	
==>_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5355	5458	
==>ibutes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5355	5458	
==>ibutes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7552	7655	
==>ibutes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4400	4511	
==>ams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4400	4511	
==>ams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4400	4511	
==>ams";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21414	21510	
==>his is that, for example, your package could come with a set of user
messages, but another packag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21414	21510	
==>his is that, for example, your package could come with a set of user
messages, but another packag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	761	854	
==>RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => --$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13949	14048	
==>f a header field is multi-valued, then the
routine is called once for each value.  The field name pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13949	14048	
==>f a header field is multi-valued, then the
routine is called once for each value.  The field name pa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13429	13549	
==>);
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13429	13549	
==>);
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # ev <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13886	14018	
==>my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::Dumper $o;

    my $f_test = $o->data->[0]->emit;
    my $f_then = $o->dat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1036	1131	
==>IL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1036	1131	
==>IL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22662	22759	
==>r

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27214	27311	
==>r

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2415	2521	
==>ject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2415	2521	
==>ject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2415	2521	
==>ject'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1044	1174	
==>::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1044	1174	
==>::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1044	1174	
==>::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24665	24867	
==>e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->ap <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24917	25013	
==>(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25358	25454	
==>(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9851	9972	
==>constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10130	10251	
==>constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\) <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3623	3709	
==>RGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARGV = s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	481	609	
==>podir    $Metaext

            package_prefix  package_authority   package_name  package_version
            list_dependencies  d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19570	19687	
==>old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15991	16108	
==>old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	604	707	
==>m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$// <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23313	23402	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23313	23402	
==>hese Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Roset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7026	7133	
==>h->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7026	7133	
==>h->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7026	7133	
==>h->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	778	896	
==>2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	778	896	
==>2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	778	896	
==>2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28844	28941	
==>er value set members.  This
method supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33396	33493	
==>er value set members.  This
method supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32533	32630	
==>er value set members.  This
method supports having the new attributes having the same names as old <==
3	/Users/nnunley/pugs/misc/S29_round.pl	841	963	
==>ound_half_down_symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given abs($x) - floor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38689	38782	
==>rances of any given variable name will be replaced, non-recursively,
and any "<foo>" not match <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38689	38782	
==>rances of any given variable name will be replaced, non-recursively,
and any "<foo>" not match <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9127	9239	
==>set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets suppor <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9127	9239	
==>set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets suppor <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11208	11317	
==>lt is achieved.

Criterion can take a few different forms:

=over 8

=item Comparator

A closure with arity of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7589	7702	
==>s = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $con <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18529	18642	
==>$pkg)=@_;
    "package ${ROOT}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) { <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7589	7702	
==>s = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $con <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	63	170	
==> {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.inters <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	63	170	
==> {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.inters <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	214	316	
==>tests have pos point to the test library

use warnings;
use strict;

use Cwd;
use File::Find;
use File: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2371	2471	
==>IL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2371	2471	
==>IL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2371	2471	
==>IL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10119	10376	
==>mparator);

 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18457	18582	
==>tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTI <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18457	18582	
==>tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	282	380	
==>eLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	282	380	
==>eLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	282	380	
==>eLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2359	2765	
==>etta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2359	2765	
==>etta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Ro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2462	2688	
==>Y' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2462	2688	
==>Y' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1369	1474	
==>@ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1369	1474	
==>@ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1369	1474	
==>@ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	225	343	
==>,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $class = shi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2820	2932	
==>if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2820	2932	
==>if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.de <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8568	8761	
==>rsion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Il <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9032	9225	
==>rsion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Il <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2079	2199	
==>LD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:per <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	84	196	
==>LD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:per <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	84	196	
==>LD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16028	16125	
==>body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19505	19602	
==>body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1632	1723	
==>ie::Nodes> and some
more objects.

They provide stringification, fmapping and value encapsul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2460	2595	
==>rn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2460	2595	
==>rn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2460	2595	
==>rn join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	30	148	
==>Pugs/Internals.hs, `data Exp'

# this one doesn't translate so trivially.

type Noop;

# hmm, there's a lot.  And we pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1174	1283	
==>ls => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	277	385	
==>ls => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4206	4322	
==>uired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4206	4322	
==>uired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4206	4322	
==>uired ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7362	7476	
==>d = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not nee <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7362	7476	
==>d = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not nee <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	456	551	
==>onfig::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2652	2763	
==>is is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imple <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2652	2763	
==>is is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imple <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2999	3110	
==>is is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6465	6578	
==>it_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6465	6578	
==>it_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	311	407	
==>>cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been changed to cc_inc_paths due to confus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1876	1995	
==>"custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1876	1995	
==>"custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1876	1995	
==>"custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # ya <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2664	2792	
==>( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2664	2792	
==>( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2664	2792	
==>( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5763	5859	
==><get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5763	5859	
==><get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7287	7383	
==><get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	738	841	
==>nstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	738	841	
==>nstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	738	841	
==>nstant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	139	280	
==>_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	139	280	
==>_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8926	9054	
==>e, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 1 <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1269	1387	
==>ss file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = c <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1269	1387	
==>ss file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	342	443	
==>esents only a an hour or two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23575	23669	
==>:Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23575	23669	
==>:Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4845	4991	
==>arens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->start <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	37	146	
==>trict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	37	146	
==>trict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6983	7114	
==>);
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6983	7114	
==>);
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6983	7114	
==>);
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15208	15320	
==>($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15208	15320	
==>($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15208	15320	
==>($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6748	6848	
==>LER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Esc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6806	6906	
==>LER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Esc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11326	11464	
==>a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11326	11464	
==>a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11326	11464	
==>a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1415	1535	
==>method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1620	1740	
==>method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1681	1801	
==>method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4169	4298	
==>3 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWOR <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3579	3699	
==>start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3579	3699	
==>start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18212	18305	
==>SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18212	18305	
==>SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18212	18305	
==>SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	576	680	
==>pan::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	576	680	
==>pan::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3219	3331	
==>e_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3219	3331	
==>e_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3219	3331	
==>e_class($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35311	35408	
==>will fail if any of its source Relations
have attributes in common; it will only accept inputs tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39861	39958	
==>will fail if any of its source Relations
have attributes in common; it will only accept inputs tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39421	39518	
==>will fail if any of its source Relations
have attributes in common; it will only accept inputs tha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1360	1528	
==>onfess "OR takes a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	671	769	
==>sed with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support encip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	671	769	
==>sed with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support encip <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1049	1185	
==>die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	960	1098	
==>self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx -> $conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11447	11563	
==>rn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11447	11563	
==>rn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11447	11563	
==>rn $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7346	7483	
==>t STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3406	3541	
==>x;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3406	3541	
==>x;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1944	2078	
==>ens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1944	2078	
==>ens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow> <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1039	1155	
==>signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21811	22028	
==>);
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21811	22028	
==>);
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21811	22028	
==>);
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1108	1235	
==>f(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1108	1235	
==>f(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1108	1235	
==>f(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10095	10219	
==>$x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match failed

or to a hashref containing:

    bool  - an " <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2194	2297	
==>lement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2194	2297	
==>lement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1030	1125	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1030	1125	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1030	1125	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2895	3025	
==>ens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24429	24529	
==>sh () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28981	29081	
==>sh () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, wh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4926	5049	
==>d_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5119	5242	
==>d_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1138	1233	
==>ions.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectio <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1138	1233	
==>ions.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	571	678	
==>value { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	571	678	
==>value { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	571	678	
==>value { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1188	1289	
==>d()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1188	1289	
==>d()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1188	1289	
==>d()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2572	2668	
==>glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2572	2668	
==>glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1784	1883	
==>t($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1784	1883	
==>t($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23268	23374	
==>eek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23268	23374	
==>eek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23268	23374	
==>eek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	48	170	
==>e warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	48	170	
==>e warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5738	5861	
==>e.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x < <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5738	5861	
==>e.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x < <==
3	/Users/nnunley/pugs/util/drift.pl	239	341	
==>PATH} = "$Bin/../src";

my ($in) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	802	907	
==>'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	802	907	
==>'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	802	907	
==>'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4304	4420	
==>l6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4304	4420	
==>l6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4304	4420	
==>l6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17438	17623	
==>}
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17438	17623	
==>}
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17438	17623	
==>}
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the d <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	70	160	
==>already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	70	160	
==>already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39191	39320	
==>{
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39191	39320	
==>{
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39191	39320	
==>{
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8149	8272	
==>rap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8149	8272	
==>rap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8149	8272	
==>rap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7483	7592	
==>tput-file=FILE, -o  Store results in FILE [default: $Config{"output-file"}]
    --dry, -n               Show w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2983	3095	
==>lass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2983	3095	
==>lass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2983	3095	
==>lass  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28928	29055	
==>],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28928	29055	
==>],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	291	406	
==>],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	689	778	
==>->superclasses([ $::Class ]);

## -------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	689	778	
==>->superclasses([ $::Class ]);

## -------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	689	778	
==>->superclasses([ $::Class ]);

## -------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2609	2726	
==>sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2609	2726	
==>sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2609	2726	
==>sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1943	2061	
==>$code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1943	2061	
==>$code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5253	5380	
==>sign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# key <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	34	135	
==>le modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Default <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	34	135	
==>le modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Default <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6566	6694	
==>rn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6566	6694	
==>rn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6566	6694	
==>rn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7932	8112	
==>->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7932	8112	
==>->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7932	8112	
==>->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back to the bound Array using the slice as a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8850	9031	
==>le ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_cap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5210	5391	
==>le ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6059	6240	
==>le ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5796	5906	
==>led {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5796	5906	
==>led {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5796	5906	
==>led {
    my($mn)=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1728	1862	
==>key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1728	1862	
==>key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1728	1862	
==>key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == unde <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1816	1942	
==>b { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1816	1942	
==>b { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14865	14946	
==>---------------------------------------------------------------

re_rewrite(R0,R1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9105	9272	
==>unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9105	9272	
==>unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9105	9272	
==>unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5386	5505	
==>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5386	5505	
==>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5386	5505	
==>new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined $vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11072	11227	
==>red');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11072	11227	
==>red');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11072	11227	
==>red');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	699	843	
==>ithout a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	699	843	
==>ithout a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	699	843	
==>ithout a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attr <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6110	6241	
==>);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq/${ghc_dir}${slash}bin$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5879	6005	
==>::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5879	6005	
==>::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4094	4200	
==>);
  $position = $matchObj->position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $po <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	238	338	
==>' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inver <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1766	1866	
==>' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inver <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15212	15307	
==>their Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15212	15307	
==>their Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5231	5324	
==>} }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18765	18877	
==>if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18765	18877	
==>if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18765	18877	
==>if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1169	1290	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    sa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1169	1290	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    sa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1169	1290	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8	101	
==>file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8	101	
==>file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8	101	
==>file is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primi <==
3	/Users/nnunley/pugs/util/addauthors.pl	818	962	
==>ach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2674	2809	
==>]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2674	2809	
==>]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2096	2213	
==>*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	101	210	
==>*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	101	210	
==>*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21898	22002	
==>de ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21898	22002	
==>de ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21898	22002	
==>de ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6212	6348	
==>d;
        } else {
            $self->{_child_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	145	244	
==>p either the inlined Perl 6 source Prelude fallback, or a real
# precompiled AST of Prelude.pm.

our <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2029	2120	
==>ie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1259	1395	
==>\n";
}

sub comp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != keys %$ccset) {
        $oldn = key <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4747	4851	
==>ate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4747	4851	
==>ate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12337	12479	
==>. \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8613	8755	
==>. \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9448	9590	
==>. \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{captu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2879	2996	
==>l i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tild <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2879	2996	
==>l i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tild <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11979	12075	
==>ile.html");
      $output .= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2139	2243	
==>= String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2139	2243	
==>= String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2139	2243	
==>= String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1132	1222	
==>s you write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1132	1222	
==>s you write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API. <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	579	733	
==>ossible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	579	733	
==>ossible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24755	24853	
==>,E0).
set_flag(E0,i,E1)  :- set_flag_i(E0,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i(E0,-,E1), !.
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16291	16403	
==>6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16291	16403	
==>6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16291	16403	
==>6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2698	2801	
==>er(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2698	2801	
==>er(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2698	2801	
==>er(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17882	18039	
==>ew();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17882	18039	
==>ew();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17882	18039	
==>ew();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2980	3100	
==>fy 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2980	3100	
==>fy 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2980	3100	
==>fy 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unles <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	445	553	
==>210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	445	553	
==>210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	236	333	
==>ntainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	236	333	
==>ntainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	236	333	
==>ntainer::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11612	11706	
==>t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11612	11706	
==>t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11612	11706	
==>t see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1271	1369	
==>diate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=bac <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1271	1369	
==>diate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=bac <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20295	20398	
==>nted chumminess with compiler. */

regcomp.h: This is essentially a linear encoding of a nondeterministi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	531	628	
==>turns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	531	628	
==>turns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1547	1682	
==>s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1342	1475	
==>s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10072	10179	
==>::Parser::* object
  }

In list context, it returns the next node and its depth:

  while (my ($node, $depth <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5744	5978	
==>y $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        y <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5744	5978	
==>y $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        y <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5033	5184	
==>succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5033	5184	
==>succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( def <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2410	2502	
==>apturing_group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <closure> | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11394	11495	
==>d. This provides more predictable 
behavior to class consturction because it isolates the Role specifc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11394	11495	
==>d. This provides more predictable 
behavior to class consturction because it isolates the Role specifc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11394	11495	
==>d. This provides more predictable 
behavior to class consturction because it isolates the Role specifc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4400	4609	
==>)->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher) ret <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	910	1025	
==>= ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	910	1025	
==>= ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17308	17407	
==>g benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17308	17407	
==>g benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	165	261	
==>YPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	165	261	
==>YPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20063	20159	
==>ld be used to create stand-alone objects.

Each object now has an insert() method that defines ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3549	3737	
==>>new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3549	3737	
==>>new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3549	3737	
==>>new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	335	442	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	335	442	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	335	442	
==>, map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3085	3186	
==>ngle span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3085	3186	
==>ngle span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2685	2780	
==>k)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2685	2780	
==>k)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2685	2780	
==>k)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::T <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4849	4964	
==>e, $expected);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			stru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1767	1867	
==>urn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1767	1867	
==>urn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1767	1867	
==>urn method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3044	3207	
==>@ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $l <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3044	3207	
==>@ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19923	20037	
==>no matter what pass the parser is making; object() will return
immediately if it's just the first pass.  This means <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4685	4854	
==>s => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4685	4854	
==>s => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4685	4854	
==>s => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	53	176	
==>e strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shif <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6336	6452	
==>with a more general domain, alternately stripping
                    # leading name components and leading dots.  Wh <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6336	6452	
==>with a more general domain, alternately stripping
                    # leading name components and leading dots.  Wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10275	10419	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10275	10419	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => und <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10275	10419	
==>],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1347	1448	
==>ute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1347	1448	
==>ute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1347	1448	
==>ute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12804	12978	
==>ent |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_dat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12804	12978	
==>ent |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_dat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7884	7995	
==>r_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each test prints at least on <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26577	26678	
==>nential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #de <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3061	3160	
==>rt {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "& <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3119	3218	
==>rt {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "& <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3744	3863	
==>onse_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3744	3863	
==>onse_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            } <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2023	2122	
==>ompression {
  eval { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $comp <==
3	/Users/nnunley/pugs/util/package-osx.pl	538	664	
==>/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/loca <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1071	1168	
==>he module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SE <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1071	1168	
==>he module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SE <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14704	14826	
==>m = $X::cap->[$idx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11766	11878	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12045	12157	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8081	8208	
==>{ -d $_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), gr <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8490	8592	
==>an ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8490	8592	
==>an ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	48	165	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	48	165	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Ja <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	48	165	
==>($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use Ja <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2413	2519	
==>{
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2413	2519	
==>{
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15504	15599	
==>sion>
    | <RelationalExpression> <'<'> <ShiftExpression>
    | <RelationalExpression> <'>'> <S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3449	3606	
==>ackage {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package => {
            required    => 1,
            stor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3378	3509	
==>f $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3366	3497	
==>f $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    retu <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5052	5158	
==>reate a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = < <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5052	5158	
==>reate a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2249	2348	
==>ity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2249	2348	
==>ity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3329	3451	
==>, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3329	3451	
==>, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $u <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12273	12386	
==>lf = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2746	2881	
==>_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2746	2881	
==>_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2746	2881	
==>_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        P <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7699	7796	
==>}
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7699	7796	
==>}
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5468	5560	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5468	5560	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13186	13276	
==>(D0), digits(D), { number_chars(I, [D0|D]) }.
digits([D|T]) --> digit(D), digits(T), !.
dig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4664	4802	
==>s(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4664	4802	
==>s(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4664	4802	
==>s(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31173	31270	
==>b-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::No <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37787	37882	
==>s positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37787	37882	
==>s positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2494	2614	
==>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2494	2614	
==>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2494	2614	
==>STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1836	1974	
==>ttr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1836	1974	
==>ttr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1836	1974	
==>ttr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek int <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1991	2091	
==>Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1991	2091	
==>Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	126	220	
==>ternary:<?? !!>', '$cond', '$true', '$false'), # non short circuiting

    '&control_structure: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2898	3025	
==>_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2898	3025	
==>_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1222	1322	
==>\. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { meth_call_ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	624	732	
==>->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	624	732	
==>->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	624	732	
==>->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16498	16609	
==>%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16498	16609	
==>%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16498	16609	
==>%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	52	171	
==>{ die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	52	171	
==>{ die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	52	171	
==>{ die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4100	4289	
==>l::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4100	4289	
==>l::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::D <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3	108	
==>usr/bin/perl

use warnings;
use strict;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2860	2968	
==>_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2860	2968	
==>_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2860	2968	
==>_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5119	5267	
==>->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5119	5267	
==>->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5119	5267	
==>->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	170	292	
==>package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	170	292	
==>package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	170	292	
==>package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19953	20044	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19953	20044	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19953	20044	
==>0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16485	16608	
==>s ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16485	16608	
==>s ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16485	16608	
==>s ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4251	4347	
==>in_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4251	4347	
==>in_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4251	4347	
==>in_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2602	2736	
==>$verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2602	2736	
==>$verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2602	2736	
==>$verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5670	5845	
==>es_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5670	5845	
==>es_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5670	5845	
==>es_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15044	15177	
==>1}{op} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	443	563	
==>%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->chec <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	463	571	
==>%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->chec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	555	720	
==>hods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	555	720	
==>hods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	555	720	
==>hods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5703	5810	
==>ate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5703	5810	
==>ate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5703	5810	
==>ate any missing packages 
nessecary, possibly storing a value in the last location.

  # create ::Foo and :: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	952	1078	
==>ss defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	963	1089	
==>ss defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	216	306	
==>t[0] und @obst[1]\n";
print "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}\n";
print "{$we <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32326	32441	
==>invocant and which is the argument.  This method will fail if
C<$other> does not have an identical header to the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36876	36991	
==>invocant and which is the argument.  This method will fail if
C<$other> does not have an identical header to the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36166	36281	
==>invocant and which is the argument.  This method will fail if
C<$other> does not have an identical header to the inv <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	499	603	
==>ile 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	499	603	
==>ile 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2806	2931	
==>s> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2806	2931	
==>s> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2806	2931	
==>s> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2004	2127	
==>in "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2004	2127	
==>in "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2004	2127	
==>in "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1905	1996	
==>printf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBoo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1905	1996	
==>printf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBoo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1905	1996	
==>printf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBoo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18034	18179	
==>ren => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18805	18903	
==>e SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is very <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18805	18903	
==>e SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is very <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4694	4794	
==>s a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4694	4794	
==>s a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6891	6991	
==>s a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test description <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4416	4522	
==>s, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4416	4522	
==>s, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	145	250	
==>ile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14365	14571	
==>} );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14365	14571	
==>} );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14365	14571	
==>} );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	528	621	
==>::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	528	621	
==>::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	528	621	
==>::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10628	10763	
==>fix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1433	1544	
==>[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1433	1544	
==>[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1433	1544	
==>[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5985	6095	
==>r access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5985	6095	
==>r access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5985	6095	
==>r access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	288	411	
==>i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	288	411	
==>i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	288	411	
==>i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4922	5019	
==>id to the associativity of the original operator and auto-metaed versions
# of user-defined ops ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4922	5019	
==>id to the associativity of the original operator and auto-metaed versions
# of user-defined ops ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4922	5019	
==>id to the associativity of the original operator and auto-metaed versions
# of user-defined ops ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3129	3231	
==>ions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3129	3231	
==>ions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3129	3231	
==>ions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	506	618	
==>" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	506	618	
==>" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	506	618	
==>" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2825	2927	
==>,
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2825	2927	
==>,
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2825	2927	
==>,
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27675	27814	
==>eop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27954	28093	
==>eop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1930	2035	
==>finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1930	2035	
==>finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1930	2035	
==>finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2618	2786	
==>cumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2618	2786	
==>cumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1391	1490	
==>f_down: symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5996	6092	
==>ef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5996	6092	
==>ef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5996	6092	
==>ef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15271	15504	
==>class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15271	15504	
==>class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15271	15504	
==>class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2179	2305	
==>$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2179	2305	
==>$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2179	2305	
==>$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1055	1177	
==>FIG} || $config_default;
    my $stream;
    
    if (!-e $filename) {
        require File::Copy;
        File::Copy::copy <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4747	4882	
==>mber seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Generates the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9792	9886	
==>n if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 main <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9792	9886	
==>n if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 main <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31328	31423	
==>or which the the
Bool-returning anonymous function in the argument C<$predicate> returns
True wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35878	35973	
==>or which the the
Bool-returning anonymous function in the argument C<$predicate> returns
True wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35096	35191	
==>or which the the
Bool-returning anonymous function in the argument C<$predicate> returns
True wh <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	205	323	
==>sech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$base)
            returns Num { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	177	277	
==>erl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	177	277	
==>erl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7528	7653	
==>ed $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7528	7653	
==>ed $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7528	7653	
==>ed $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4457	4557	
==>c_representation {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig};
}

sub is_dup <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9352	9447	
==>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9352	9447	
==>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17708	17805	
==>an
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17708	17805	
==>an
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2335	2421	
==>erator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2335	2421	
==>erator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2335	2421	
==>erator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15181	15350	
==>f->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15181	15350	
==>f->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15181	15350	
==>f->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2828	2952	
==>= (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2828	2952	
==>= (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2828	2952	
==>= (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	279	392	
==>od sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	279	392	
==>od sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	279	392	
==>od sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2172	2271	
==>ssage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2172	2271	
==>ssage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "" <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7110	7203	
==>Checking for Parrot binary",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3091	3202	
==>wstat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% ok <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3325	3435	
==>);
}

## list iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2881	2976	
==>move_subscription (Class::Events::Subscription::Named $subscription) {
            %.subscriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1829	1935	
==>.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetch);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1829	1935	
==>.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetch);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1829	1935	
==>.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')($fetch);
} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6211	6354	
==>] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4713	4856	
==>] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35412	35521	
==>till in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };

Here, @kids <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	829	955	
==>< exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	829	955	
==>< exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	829	955	
==>< exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	705	827	
==>able';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	910	1032	
==>able';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	966	1088	
==>able';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque struc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1034	1140	
==>ized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1034	1140	
==>ized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1034	1140	
==>ized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4091	4182	
==>ackage->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4091	4182	
==>ackage->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4091	4182	
==>ackage->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	410	506	
==>{
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	410	506	
==>{
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19993	20087	
==>r(C),     [Ci|F1],F1,B0,[C|B0],E0,E0) :- flag_i(E0), case_insensitive_char_eq(C,Ci), !.
rm(clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	976	1103	
==>f($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authori <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	976	1103	
==>f($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authori <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	976	1103	
==>f($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authori <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2336	2464	
==>",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12916	13033	
==>> $links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   => $tres->{todo},
	skipped   = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4679	4857	
==>ng scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to insta <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	191	290	
==>containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	247	346	
==>containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10283	10528	
==>place
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array ) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9834	9935	
==>f.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9834	9935	
==>f.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9518	9628	
==>ilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9518	9628	
==>ilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9518	9628	
==>ilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4932	5078	
==>ess ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4944	5090	
==>ess ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $ca <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2174	2269	
==>e => $to,
		struct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1030	1169	
==>{
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnode <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1030	1169	
==>{
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnode <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1030	1169	
==>{
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnode <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4200	4339	
==>i;
    }
    if ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = map { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4424	4559	
==>t_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4424	4559	
==>t_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4423	4546	
==>n $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5766	5880	
==>.. hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5754	5868	
==>.. hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1190	1304	
==>nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6472	6584	
==>nations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It may <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6472	6584	
==>nations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It may <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5455	5558	
==>- test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5455	5558	
==>- test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7652	7755	
==>- test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3895	4002	
==>set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3895	4002	
==>set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1352	1463	
==>urns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An obje <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1352	1463	
==>urns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An obje <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2119	2231	
==>$cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {ops=>[undef],var=>[],op_ahead=>undef};
    my($step <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21065	21166	
==>t of these fields will be present in the header
after the call.  All values ought to be kept.

Passing <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21065	21166	
==>t of these fields will be present in the header
after the call.  All values ought to be kept.

Passing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3299	3404	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3299	3404	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3299	3404	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6763	6877	
==>index_files;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all g <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	577	670	
==>Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $ <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	577	670	
==>Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9660	9810	
==>uilder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	242	386	
==>uilder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	242	386	
==>uilder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2200	2329	
==>dex
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2200	2329	
==>dex
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1018	1115	
==>und_alternate (Num $x) {
# XXX I don't understand what round-alternate means.
# But in my understa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17103	17204	
==>0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17103	17204	
==>0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17103	17204	
==>0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1032	1171	
==>e}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1032	1171	
==>e}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closur <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	241	355	
==>e';

for my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	31	127	
==>ition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	31	127	
==>ition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	31	127	
==>ition and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10279	10382	
==>yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )` <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10279	10382	
==>yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )` <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2802	2896	
==>->{env}->set($param->to_str->to_native, $arg);
    }
}

package closure::signature;

use strict <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2660	2821	
==>:constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2671	2832	
==>:constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8676	8829	
==>, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8676	8829	
==>, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8676	8829	
==>, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return thi <==
3	/Users/nnunley/pugs/util/grokprims.pl	2260	2356	
==>/tt></td>";
  print "<td>(</td>";
  print "<td><table border='1' width='100%'><tr>";
  foreach my <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7345	7439	
==>irective is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7345	7439	
==>irective is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1053	1162	
==>eld",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1053	1162	
==>eld",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1053	1162	
==>eld",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5209	5318	
==>t;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5209	5318	
==>t;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5209	5318	
==>t;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2719	2824	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2719	2824	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2719	2824	
==>in "; ", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3087	3191	
==>est failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module all <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3087	3191	
==>est failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3167	3271	
==>est failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3547	3636	
==>$param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3547	3636	
==>$param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4137	4226	
==>$param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_name}) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	80	168	
==>Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	80	168	
==>Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27928	28033	
==>ethod MRO ((opaque $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2027	2115	
==>Token("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?" <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2099	2187	
==>Token("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4001	4132	
==>t

sub _get_file_contents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1201	1291	
==>head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1201	1291	
==>head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	831	928	
==>te( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	831	928	
==>te( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	911	1008	
==>te( output => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7803	7896	
==>a(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7803	7896	
==>a(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7803	7896	
==>a(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1556	1671	
==>ould be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1556	1671	
==>ould be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1556	1671	
==>ould be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3905	4004	
==>are, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3905	4004	
==>are, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use C <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	777	872	
==>ub is_admin {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8419	8558	
==>0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.fil <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8419	8558	
==>0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4990	5104	
==>'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4990	5104	
==>'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5580	5694	
==>'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2105	2247	
==>>id . " [ dir = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $ou <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2291	2388	
==>d equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method strin <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2291	2388	
==>d equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method strin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19195	19321	
==>turn { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19474	19600	
==>turn { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2578	2688	
==>role->roles}) {
        $output .= _draw_role($subrole);
        #$output .= "node_" . $subrole->id . " -- node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11462	11622	
==>>name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11462	11622	
==>>name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11462	11622	
==>>name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4166	4268	
==>lf->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4166	4268	
==>lf->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4166	4268	
==>lf->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22990	23102	
==>ned $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22990	23102	
==>ned $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22990	23102	
==>ned $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1170	1360	
==>SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1170	1360	
==>SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1170	1360	
==>SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4823	5012	
==>ivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4823	5012	
==>ivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4823	5012	
==>ivate_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4116	4261	
==>ue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4116	4261	
==>ue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4116	4261	
==>ue ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1435	1547	
==>k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1435	1547	
==>k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1435	1547	
==>k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24356	24605	
==>d( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24356	24605	
==>d( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24356	24605	
==>d( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1054	1181	
==>)  
$_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($gramm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3490	3685	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3490	3685	
==>_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	491	586	
==>4

=item B<new (*native*) returns nil>

=item B<to_native () returns *native*>

=item B<to_bit ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14752	14870	
==>ETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14752	14870	
==>ETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14752	14870	
==>ETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13068	13204	
==><?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9752	9849	
==>( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infini <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9752	9849	
==>( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infini <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4750	4849	
==>rry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4750	4849	
==>rry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4750	4849	
==>rry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40597	40693	
==>rranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

W <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40597	40693	
==>rranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7887	8006	
==>yping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7887	8006	
==>yping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7887	8006	
==>yping for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2551	2778	
==>\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2798	3025	
==>\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38890	38981	
==>vocant Relation::Example and that match any tuples of C<$other> along
their common attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36390	36488	
==>rint "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36390	36488	
==>rint "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36390	36488	
==>rint "off: $offset len: $length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2177	2274	
==>s a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different pro <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2177	2274	
==>s a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different pro <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18836	18918	
==>Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1216	1325	
==>>{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatcha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	955	1059	
==>>{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatcha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1160	1264	
==>>{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatcha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5603	5698	
==>Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=bac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5603	5698	
==>Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=bac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7800	7895	
==>Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=bac <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6504	6605	
==>t == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shif <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	280	376	
==>() returns a string that represents the 
node type, which are checked against each other for agre <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	280	376	
==>() returns a string that represents the 
node type, which are checked against each other for agre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22473	22578	
==>::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22473	22578	
==>::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22473	22578	
==>::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5310	5429	
==>epending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5310	5429	
==>epending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6834	6953	
==>epending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	369	502	
==>Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	369	502	
==>Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	369	502	
==>Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	505	625	
==>5-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	505	625	
==>5-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	505	625	
==>5-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	593	718	
==>rue, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	593	718	
==>rue, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	593	718	
==>rue, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    regis <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3080	3205	
==>>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3080	3205	
==>>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	404	518	
==>ject = bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3592	3712	
==>>($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{ti <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2997	3103	
==>section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'th <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2997	3103	
==>section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18473	18571	
==>alue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18473	18571	
==>alue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18473	18571	
==>alue' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4238	4342	
==>l them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4238	4342	
==>l them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4238	4342	
==>l them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1762	1865	
==>E('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1762	1865	
==>E('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1762	1865	
==>E('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3018	3134	
==>:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3018	3134	
==>:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3018	3134	
==>:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign", <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5506	5602	
==><$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5506	5602	
==><$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7030	7126	
==><$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33045	33256	
==>List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33045	33256	
==>List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33045	33256	
==>List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->en <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1019	1181	
==>sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $sym_node->val;

        $table{$symbol}; # find the symbol
    }

    # and th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	794	903	
==>ail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	794	903	
==>ail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	462	594	
==>'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	462	594	
==>'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18158	18347	
==>rintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $str ~= Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6813	6934	
==>ode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($valu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6813	6934	
==>ode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($valu <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3229	3345	
==>KEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2565	2665	
==>Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to t <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2565	2665	
==>Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	340	479	
==>});
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	340	479	
==>});
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	340	479	
==>});
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4009	4109	
==>";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4009	4109	
==>";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4009	4109	
==>";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22316	22457	
==>d('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            metho <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42105	42246	
==>d('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	26	114	
==>IN {require "Filtered-Comments.pm";import Filtered::Comments 'regex matching subs you wan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6563	6670	
==>al $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6563	6670	
==>al $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6563	6670	
==>al $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6125	6288	
==>m, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6125	6288	
==>m, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6125	6288	
==>m, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6328	6423	
==>ght be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6328	6423	
==>ght be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6328	6423	
==>ght be
holding. Using the noio example above, the "return" can be changed to
"return '__PRUNE__' <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9257	9376	
==>color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #5 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20029	20122	
==>(8,$octstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::str <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6961	7114	
==>name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6961	7114	
==>name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SE <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3959	4060	
==>oin "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	250	364	
==>params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	250	364	
==>params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	250	364	
==>params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6o <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5206	5314	
==>e fully
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is safe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4718	4821	
==>{ required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5370	5473	
==>{ required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	127	232	
==>se;
use File::Basename;
use Pugs::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dirname(__FILE__) || '.') . " <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3424	3521	
==>$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4560	4656	
==>$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	807	936	
==>ted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	807	936	
==>ted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	807	936	
==>ted";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $disp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	361	489	
==>od output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.j <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	361	489	
==>od output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2001	2097	
==>d }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2001	2097	
==>d }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2001	2097	
==>d }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} ty <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	880	983	
==>eturn @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.j <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	880	983	
==>eturn @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.j <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1715	1813	
==>lib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_harness_args,'--concurrent', Pugs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22509	22675	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42298	42463	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10179	10292	
==>,",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12499	12634	
==>xed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12499	12634	
==>xed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12499	12634	
==>xed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => su <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1921	2032	
==>erns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_re <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1921	2032	
==>erns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9603	9786	
==>cription = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              rea <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	191	362	
==>cription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            rea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	191	362	
==>cription = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2274	2456	
==>($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2274	2456	
==>($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2274	2456	
==>($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3359	3493	
==>lf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3359	3493	
==>lf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3359	3493	
==>lf->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4949	5058	
==>tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4949	5058	
==>tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21527	21632	
==>y branches" error wasn't being raised
until the second pass.  Figured out how to improve the grammar to ge <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3845	3943	
==>Pad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3845	3943	
==>Pad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	695	793	
==>Pad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	176	272	
==>method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	176	272	
==>method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	176	272	
==>method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17247	17338	
==>* p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17247	17338	
==>* p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17247	17338	
==>* p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10984	11087	
==>le StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNumericLiteral> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3843	3939	
==>est>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3843	3939	
==>est>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostna <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11937	12057	
==>concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12216	12336	
==>concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       , <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8960	9076	
==>lay.html?id=16375 fixes this,
        # but we can't rely upon everyone having it.  As such, we have
        # a very <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12029	12147	
==>= shift;
    
    my $name = shift;
    my $val = shift;

    push @{ $self->{scopes}[-1] }, Pad->new(name => $name, va <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13807	13911	
==>\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item enco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13807	13911	
==>\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item enco <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1097	1223	
==>s $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1097	1223	
==>s $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5409	5589	
==>},
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5409	5589	
==>},
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5409	5589	
==>},
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3604	3717	
==>elf->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3604	3717	
==>elf->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3604	3717	
==>elf->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24683	24782	
==>our option) any later version.  You should have received a
copy of the GPL as part of the Rosetta di <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24683	24782	
==>our option) any later version.  You should have received a
copy of the GPL as part of the Rosetta di <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	395	491	
==>ness::YAML;
use strict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12185	12293	
==>_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12185	12293	
==>_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12185	12293	
==>_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26533	26631	
==>0
 #define ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8641	8736	
==>)`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8641	8736	
==>)`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	671	764	
==>st provide, including stuff for what cannot have a reference
implementation but is builtin any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2980	3087	
==>$obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2980	3087	
==>$obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2980	3087	
==>$obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8654	8848	
==>d;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8654	8848	
==>d;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5618	5726	
==>by the lexer
        #q(<) => Pugs::Compiler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1313	1467	
==>e}) {
            return $method->($self, @_);
        }
        else {
            if (exists $_table->{prototype}) {
                $_table = $_table->{ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	412	528	
==>p above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6625	6739	
==>oreach my $pkg (keys %used) {
	next if $created{$pkg};
	$code .= "package $pkg;\n";
    }
    #print $code;
    $co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4435	4525	
==>cribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4435	4525	
==>cribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4639	4742	
==>ons] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4639	4742	
==>ons] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4639	4742	
==>ons] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11319	11437	
==>arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11319	11437	
==>arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11319	11437	
==>arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1158	1276	
==>r} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1158	1276	
==>r} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1158	1276	
==>r} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7238	7352	
==>H/) {
        for (values %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27461	27562	
==>OTTY>

When set to a true value, forces it to behave as though STDOUT were
not a console.  You may nee <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4488	4595	
==>ck

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4488	4595	
==>ck

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4568	4675	
==>ck

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3705	3822	
==>mber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3705	3822	
==>mber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5902	6019	
==>mber>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4204	4314	
==>self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4204	4314	
==>self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4204	4314	
==>self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12115	12242	
==>::Test::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2517	2630	
==>::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2517	2630	
==>::Test::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14011	14188	
==>ate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14011	14188	
==>ate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14011	14188	
==>ate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	569	689	
==>,
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	569	689	
==>,
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	569	689	
==>,
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1280	1407	
==>= new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1280	1407	
==>= new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1280	1407	
==>= new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4189	4279	
==>------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4212	4302	
==>-
## BOOTSTRAPPING Class/Object COMPLETE
## ----------------------------------------------- <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	824	931	
==>-----------
# Regexps
# --------------------------------------------------



our $re_sigil = '[\$\@\%]';
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10550	10715	
==>= 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10550	10715	
==>= 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10550	10715	
==>= 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i > <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	357	475	
==>r::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### chang <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	336	449	
==>r::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### chang <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4714	4875	
==>~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4714	4875	
==>~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4714	4875	
==>~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22407	22537	
==>xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22407	22537	
==>xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22407	22537	
==>xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$x <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15585	15694	
==>x if !p6_is_perl6_object($x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_per <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10557	10655	
==>d `reset()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10557	10655	
==>d `reset()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12294	12469	
==>method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12294	12469	
==>method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12294	12469	
==>method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3308	3426	
==>t};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3308	3426	
==>t};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3308	3426	
==>t};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6868	6976	
==>hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV* sv;
    sv = eval_pv("$regexp_compile_h <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1476	1581	
==>urns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub shi <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	271	375	
==>}
	#if($_ =~ $signature) { $fn = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5006	5113	
==>();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5006	5113	
==>();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1629	1724	
==>ir public equivalents live in Installation.pm
$config{'_meta_dir'}        = [ Path::Class::dir(' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7724	7841	
==>$path);
    my $index_file =  catfile($output_path,"index.html");
    eval { mkpath( $output_path ) };
    die "Failed <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1120	1214	
==>st the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1120	1214	
==>st the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30757	30894	
==>cher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator (opaque $self: list @values) returns block <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14504	14609	
==>S

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( af <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14504	14609	
==>S

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( af <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1124	1227	
==>(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1124	1227	
==>(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1124	1227	
==>(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	985	1107	
==>1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	985	1107	
==>1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	985	1107	
==>1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10117	10261	
==>")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10117	10261	
==>")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10117	10261	
==>")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5105	5227	
==>::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5105	5227	
==>::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5105	5227	
==>::SELF->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5052	5150	
==>tem B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5052	5150	
==>tem B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7249	7347	
==>tem B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17296	17419	
==>w) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13717	13840	
==>w) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1011	1123	
==>hift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [];
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	167	278	
==>Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	167	278	
==>Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	167	278	
==>Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signatu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12698	12791	
==>xception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12698	12791	
==>xception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12698	12791	
==>xception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20909	21142	
==>STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20909	21142	
==>STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20909	21142	
==>STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $ele <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8817	9016	
==>my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5177	5376	
==>my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6026	6225	
==>my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19689	19785	
==>so by including these headers.

=item $h.authorization_basic

This method is used to get or set a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19689	19785	
==>so by including these headers.

=item $h.authorization_basic

This method is used to get or set a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	587	738	
==>Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$| = 1;
my $start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	956	1056	
==>ns[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fals <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	956	1056	
==>ns[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12196	12324	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12196	12324	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12196	12324	
==>[ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1383	1518	
==>1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1383	1518	
==>1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7820	7959	
==>xp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7820	7959	
==>xp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7820	7959	
==>xp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	250	371	
==><+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4762	4869	
==>("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
} <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4762	4869	
==>("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10774	10890	
==>elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= A <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10774	10890	
==>elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= A <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1434	1542	
==>y ( $self, $file ) = @_;

    $self->version_from($file);
    $self->perl_version_from($file);

    # The rem <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17919	18045	
==>ve a character map of C<< { 65 => 1, 66
=> 2, 67 => 2, 68 => 1, 69 => 1} >>.  This will reflect ranges and embedded
classes (su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	36	126	
==>y $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	36	126	
==>y $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5838	6011	
==>fted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5838	6011	
==>fted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5838	6011	
==>fted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11412	11551	
==>phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Proces <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11412	11551	
==>phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Proces <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4596	4754	
==>$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4596	4754	
==>$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4596	4754	
==>$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2452	2570	
==>_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2452	2570	
==>_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2452	2570	
==>_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9075	9188	
==>n't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9075	9188	
==>n't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9075	9188	
==>n't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calcu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37293	37389	
==>ule_name (a string) and checks whether or not it has already been
loaded, returning true if so an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37293	37389	
==>ule_name (a string) and checks whether or not it has already been
loaded, returning true if so an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2680	2809	
==>lass_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2680	2809	
==>lass_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2680	2809	
==>lass_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14393	14495	
==>turn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14393	14495	
==>turn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14393	14495	
==>turn keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5026	5159	
==>ve;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fetch($i)) != bit->new(1);
    } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13572	13667	
==>nds exactly to the named parameters of
Document.new(); you can produce a direct clone like this: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13572	13667	
==>nds exactly to the named parameters of
Document.new(); you can produce a direct clone like this: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4691	4785	
==>ch object returns the stringified version
of the result object (usually the entire match string <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4691	4785	
==>ch object returns the stringified version
of the result object (usually the entire match string <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7829	7927	
==>annels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7829	7927	
==>annels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick> <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	528	647	
==>y ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# c <==
3	/Users/nnunley/pugs/util/func_refact.pl	2560	2674	
==>, $cand)];  # new contributions
        #print "$cand: totall $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # pr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16385	16576	
==>ame => $e->get('$_')->instantiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4721	4845	
==>rn sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4573	4694	
==>rn sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11131	11268	
==>=
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => sub { $_[0] ? 1 : undef },
      scal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2720	2819	
==>ions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd like <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2620	2716	
==>ions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd like <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3184	3390	
==>control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                }
        
                ### set up the files
                for my $me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2068	2176	
==>s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2056	2164	
==>s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11795	11914	
==>other digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11795	11914	
==>other digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2109	2203	
==>lied regular expression may lead to execution of arbitrary code;
each alternate engine may intr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	885	988	
==>) - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	885	988	
==>) - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	885	988	
==>) - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	620	719	
==>(Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	620	719	
==>(Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	620	719	
==>(Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5594	5717	
==>(rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw! <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4030	4138	
==>left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = shift;
	my <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1565	1666	
==>est} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9973	10066	
==>copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str i <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9973	10066	
==>copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10541	10633	
==>{...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrenc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10541	10633	
==>{...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2369	2475	
==>ix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2369	2475	
==>ix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2369	2475	
==>ix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1459	1554	
==>ack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1459	1554	
==>ack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1459	1554	
==>ack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5775	5891	
==>n "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3111	3227	
==>n "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3960	4076	
==>n "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30703	30801	
==>of the
original (or rather, the corresponding transformation of each tuple), but
that any duplicate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35254	35352	
==>of the
original (or rather, the corresponding transformation of each tuple), but
that any duplicate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34445	34543	
==>of the
original (or rather, the corresponding transformation of each tuple), but
that any duplicate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10165	10302	
==>ire "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_mo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10165	10302	
==>ire "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27485	27667	
==>= Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27485	27667	
==>= Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27485	27667	
==>= Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1021	1118	
==>ODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1021	1118	
==>ODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1021	1118	
==>ODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2645	2759	
==>less \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2645	2759	
==>less \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2645	2759	
==>less \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24007	24141	
==>t,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24007	24141	
==>t,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24007	24141	
==>t,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4087	4192	
==>ect ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4670	4775	
==>ect ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3705	3803	
==>urncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3705	3803	
==>urncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3705	3803	
==>urncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2624	2748	
==>ulti.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2624	2748	
==>ulti.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2624	2748	
==>ulti.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_ma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1006	1124	
==>Val($self)} ||= $self->compute_digest;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_CACHE{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35987	36080	
==>nations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set>< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35987	36080	
==>nations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set>< <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11909	12032	
==>os += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I0
    mob["a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16207	16294	
==>thingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@gr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16265	16352	
==>thingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@gr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1736	1848	
==>, @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1736	1848	
==>, @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	560	664	
==>sents a Class.  It is what is created when you
declare a new class.

A class is a role with the enhanceme <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1831	1962	
==>ray};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19804	19902	
==>CKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code h <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19804	19902	
==>CKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1429	1542	
==>e $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1429	1542	
==>e $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1429	1542	
==>e $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7285	7377	
==>Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7285	7377	
==>Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7285	7377	
==>Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6764	6955	
==>pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6764	6955	
==>pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40362	40474	
==>f}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40362	40474	
==>f}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40362	40474	
==>f}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13433	13552	
==>( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16910	17029	
==>( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16272	16391	
==>( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a proper <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	632	758	
==>) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	632	758	
==>) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6660	6795	
==>on) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6660	6795	
==>on) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6660	6795	
==>on) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6185	6317	
==>per( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11649	11746	
==>pts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # ge <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11649	11746	
==>pts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # ge <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1949	2122	
==>oot_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1949	2122	
==>oot_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2737	2829	
==>e_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3187	3329	
==>line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3187	3329	
==>line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3187	3329	
==>line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $code = do { lo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5207	5337	
==>new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $self->simplify_type( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22586	22681	
==>he user strings; Locale::KeyedText would also handle
this.

A program generates a Message that c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22586	22681	
==>he user strings; Locale::KeyedText would also handle
this.

A program generates a Message that c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3042	3191	
==>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3042	3191	
==>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3042	3191	
==>{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	635	928	
==>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	635	928	
==>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	635	928	
==>type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9477	9598	
==>ay = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9477	9598	
==>ay = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9477	9598	
==>ay = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i+ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1016	1173	
==>if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1016	1173	
==>if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } e <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10903	11013	
==>w(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35947	36086	
==>, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35947	36086	
==>, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35947	36086	
==>, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7330	7501	
==>ub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7330	7501	
==>ub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7330	7501	
==>ub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1346	1447	
==>match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\]) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1346	1447	
==>match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2150	2250	
==>METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2150	2250	
==>METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2150	2250	
==>METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1492	1617	
==>t(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1492	1617	
==>t(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1492	1617	
==>t(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9871	9977	
==>des the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Me <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11348	11454	
==>des the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1450	1552	
==>ratchet => 1 } );
#print $rpcr2->perl5;
print "Benchmark:\n";
Benchmark::cmpthese(500, {
    PCR_x1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	771	871	
==>group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	771	871	
==>group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	771	871	
==>group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35691	35784	
==>) returns Relation>

This multi-method is a generic binary relational operator that takes
anot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40241	40334	
==>) returns Relation>

This multi-method is a generic binary relational operator that takes
anot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1584	1776	
==>ew());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19534	19629	
==>n update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19534	19629	
==>n update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl ex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21418	21526	
==>eps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray
    pad["cutnum"] = cutnum
    goto e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28268	28365	
==>urns a new Relation
which is the same as the invocant Relation but that some of its attributes
hav <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32820	32917	
==>urns a new Relation
which is the same as the invocant Relation but that some of its attributes
hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5253	5394	
==>alue::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5253	5394	
==>alue::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5253	5394	
==>alue::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	853	1093	
==>($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_docum <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	853	1093	
==>($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_docum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28685	28821	
==>ar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28964	29100	
==>ar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1240	1347	
==>y %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14259	14491	
==>methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14259	14491	
==>methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14259	14491	
==>methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5936	6059	
==>eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5936	6059	
==>eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5936	6059	
==>eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6391	6537	
==>ule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedenc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9429	9536	
==>ted;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9429	9536	
==>ted;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1412	1540	
==>ift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1412	1540	
==>ift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1412	1540	
==>ift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the op <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6946	7111	
==>t      pre     Str::split   safe   (Str)\
\\n   List      pre     Str::split   safe   (Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::V <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2769	2877	
==>@PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2769	2877	
==>@PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7407	7509	
==><".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1281	1394	
==>o our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1281	1394	
==>o our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1281	1394	
==>o our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1006	1119	
==>sciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciitilde{}";
	    return;
	} elsif ($chr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26696	26792	
==>lassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36707	36803	
==>on

Here's a final example.  I'm going to rewrite F<Regexp::AndBranch> to
handle both '&' and '!' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17257	17353	
==>$xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17257	17353	
==>$xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17257	17353	
==>$xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14880	15018	
==>y $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14880	15018	
==>y $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14880	15018	
==>y $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	249	346	
==>die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	249	346	
==>die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	249	346	
==>die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3553	3680	
==>ody->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3553	3680	
==>ody->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3553	3680	
==>ody->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1695	1808	
==>be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1695	1808	
==>be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1695	1808	
==>be undefined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5194	5298	
==>";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5194	5298	
==>";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5194	5298	
==>";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3685	3777	
==>od reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3685	3777	
==>od reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3685	3777	
==>od reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2964	3104	
==>s primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2964	3104	
==>s primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2964	3104	
==>s primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14700	14827	
==>r at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14700	14827	
==>r at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14700	14827	
==>r at some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @super <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2410	2520	
==>grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2410	2520	
==>grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2410	2520	
==>grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100] <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2417	2542	
==>ternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX this should probably be done in one go, so we d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4624	4724	
==>ackages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Key <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4624	4724	
==>ackages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6720	6848	
==>perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6720	6848	
==>perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6720	6848	
==>perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramD <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16165	16277	
==>$v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16289	16382	
==>e if provided (it defaults to empty if the parameter's
corresponding argument is not provided) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16289	16382	
==>e if provided (it defaults to empty if the parameter's
corresponding argument is not provided) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	201	328	
==>]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	165	291	
==>]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	253	379	
==>]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7236	7360	
==>ing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7224	7348	
==>ing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27521	27622	
==>e Data::Dumper; print Dumper($s);
	my $ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8884	9027	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8884	9027	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8884	9027	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14077	14180	
==>LTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14077	14180	
==>LTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14077	14180	
==>LTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4098	4201	
==>ates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3954	4055	
==>ates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15205	15296	
==>1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewrite(X, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9292	9406	
==>ss "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9292	9406	
==>ss "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9292	9406	
==>ss "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	44	161	
==>VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	44	161	
==>VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	44	161	
==>VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PV <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11928	12023	
==>syn_path = catfile($output_dir, "Synopsis", "$linkfile.html");
      $output .= "<a href='". abs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6306	6401	
==>-------------------------------------------
## Module

$::Module = $::Class->new();

$::Module-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6306	6401	
==>-------------------------------------------
## Module

$::Module = $::Class->new();

$::Module-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6306	6401	
==>-------------------------------------------
## Module

$::Module = $::Class->new();

$::Module-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	928	1025	
==>ESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	928	1025	
==>ESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	928	1025	
==>ESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, rebless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	203	305	
==>:Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	203	305	
==>:Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	203	305	
==>:Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1429	1547	
==>=> 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1429	1547	
==>=> 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11783	11885	
==>onentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	334	423	
==>rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	334	423	
==>rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	334	423	
==>rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	184	310	
==>ar cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	184	310	
==>ar cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	184	310	
==>ar cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2691	2810	
==>uml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2691	2810	
==>uml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	693	780	
==>perclasses([ $::Class ]);

## ---------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	693	780	
==>perclasses([ $::Class ]);

## ---------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	693	780	
==>perclasses([ $::Class ]);

## ---------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5436	5560	
==>tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5436	5560	
==>tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .c <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7091	7211	
==>= shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5570	5679	
==>her dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5570	5679	
==>her dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1376	1476	
==>pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &:: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1376	1476	
==>pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &:: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1711	1805	
==>/Setup$Config{_exe}", 'build');
        system("../../Setup$Config{_exe}", 'install', '--user') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10930	11062	
==>ivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10930	11062	
==>ivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10930	11062	
==>ivate_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class.meta. <==
3	/Users/nnunley/pugs/util/importgraph.pl	1150	1250	
==>module in $File::Find::name\n";
    return;
  }

  $modules{$module_name} = [\%imports, $exports];
}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13576	13773	
==>se {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13576	13773	
==>se {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13576	13773	
==>se {
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        }, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17002	17118	
==>ode { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_perm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17002	17118	
==>ode { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_perm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24536	24648	
==>? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !defined $x;
    return $x->defined if p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9966	10073	
==>or::nary->new(list => $a),
				type::operator::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1681	1829	
==>oint
    ref         native pointer 
    bool        native boolean
    Bit         Perl single bit (allows traits, aliasing, etc.)
    Int         P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1395	1481	
==>lass Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Conte <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1395	1481	
==>lass Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Conte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12342	12468	
==>(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12342	12468	
==>(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12342	12468	
==>(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1507	1629	
==>./:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1507	1629	
==>./:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	84	177	
==>l;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1194	1319	
==>$) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	933	1053	
==>$) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1138	1258	
==>$) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3431	3594	
==>put')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9274	9380	
==>t ^

### because it was specialized for subrules

### - needs to be generalized, and the anchor should only <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8970	9074	
==>t ^
### because it was specialized for subrules
### - needs to be generalized, and the anchor should only <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32223	32327	
==>pear only once in
the result.  With any 2 relations, the result is the same regardless of
which is the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36773	36877	
==>pear only once in
the result.  With any 2 relations, the result is the same regardless of
which is the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36063	36167	
==>pear only once in
the result.  With any 2 relations, the result is the same regardless of
which is the in <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2877	3021	
==>l, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load the config        
        require Config;
        $perl_versi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9634	9731	
==>s Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Arra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9634	9731	
==>s Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1874	1972	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1874	1972	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1874	1972	
==>Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by ze <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	195	330	
==>);
  $self->add_flag('x' => sub { 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2124	2325	
==>', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2124	2325	
==>', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	303	408	
==>>new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11901	12055	
==>p, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11901	12055	
==>p, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11901	12055	
==>p, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7637	7797	
==>end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7637	7797	
==>end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7637	7797	
==>end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21862	21953	
==>ee the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21862	21953	
==>ee the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26377	26465	
==>olog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language::Prolog::Yaswi::Lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	513	631	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	513	631	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	513	631	
==>($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	428	518	
==>_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	428	518	
==>_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	428	518	
==>_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1304	1424	
==>ds')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1304	1424	
==>ds')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1304	1424	
==>ds')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	625	799	
==>ine
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	786	886	
==>ext($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.f <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	786	886	
==>ext($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2335	2462	
==>ack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2335	2462	
==>ack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2335	2462	
==>ack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10079	10303	
==>||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25506	25602	
==>e type of message that the object
represents (or gives the name of a condition being reported, if <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25506	25602	
==>e type of message that the object
represents (or gives the name of a condition being reported, if <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18501	18585	
==>(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	571	676	
==>iler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	571	676	
==>iler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6196	6294	
==>TION_FLAG;

    /*XXX should SvREFCNT_dec current value */
    r->substrs->data[0].substr = SvREFCN <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	879	979	
==>tive
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective i <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	879	979	
==>tive
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective i <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2030	2154	
==>features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3622	3742	
==>features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11277	11397	
==>y-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14754	14874	
==>y-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14062	14182	
==>y-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    retu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17607	17773	
==>yn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we fi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4939	5064	
==>710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Del <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4939	5064	
==>710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Del <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18722	18828	
==>s pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18722	18828	
==>s pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5876	5989	
==>@arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5876	5989	
==>@arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5876	5989	
==>@arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1696	1793	
==>uild_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1696	1793	
==>uild_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1696	1793	
==>uild_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $ne <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12835	12957	
==>_str called on undef"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1455	1555	
==>rl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1513	1613	
==>rl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	438	529	
==>_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	438	529	
==>_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	438	529	
==>_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	912	1042	
==>->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	912	1042	
==>->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	912	1042	
==>->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '"" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29145	29257	
==>nf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29145	29257	
==>nf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29145	29257	
==>nf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{item <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	929	1045	
==>eys->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4144	4241	
==>ven.

The value for day can also be the string "last", in which case the
object returned represent <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4144	4241	
==>ven.

The value for day can also be the string "last", in which case the
object returned represent <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6163	6345	
==>ode ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yie <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6163	6345	
==>ode ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6933	7040	
==>:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6933	7040	
==>:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6933	7040	
==>:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14238	14325	
==>ner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14238	14325	
==>ner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14238	14325	
==>ner::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	77	182	
==>e::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Ut <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24075	24170	
==>s preferred
language into the program code itself, so it then becomes a version of that
language <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24075	24170	
==>s preferred
language into the program code itself, so it then becomes a version of that
language <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1180	1287	
==>rewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1147	1254	
==>rewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10029	10122	
==>) }
}

package PIL::PIL1CPerl5::Util::FilterNodeDefs;
our($package_name,$method_name);
sub imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9605	9738	
==>ey->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9605	9738	
==>ey->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9605	9738	
==>ey->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3984	4119	
==>rray.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3984	4119	
==>rray.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3984	4119	
==>rray.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7634	7748	
==>1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7634	7748	
==>1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7634	7748	
==>1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1099	1211	
==>x_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1099	1211	
==>x_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1099	1211	
==>x_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19108	19285	
==>s are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19108	19285	
==>s are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19108	19285	
==>s are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2870	3007	
==>",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2870	3007	
==>",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2870	3007	
==>",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2780	2911	
==>:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2780	2911	
==>:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2780	2911	
==>:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $se <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1784	1891	
==>{ <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+} <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1784	1891	
==>{ <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7396	7491	
==>ackage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7396	7491	
==>ackage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7396	7491	
==>ackage PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtIte <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5383	5480	
==>2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5383	5480	
==>2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3393	3559	
==>op{$id}{'var'} = $var;
        push(@$var,$tok);
        return &$step;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11440	11576	
==>$.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11440	11576	
==>$.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6453	6576	
==>perclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6453	6576	
==>perclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6453	6576	
==>perclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11292	11487	
==>rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11292	11487	
==>rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	238	344	
==>);

$INSTALLATION_DIR = $config->root->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28750	28857	
==>e text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28750	28857	
==>e text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9529	9650	
==>s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $ <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	691	792	
==>t perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understand <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	691	792	
==>t perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understand <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3881	4007	
==>_object__ );

  sub new {
    my ($class, $rx, $neg, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2215	2305	
==>elf->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERS <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1321	1410	
==>elf->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_VERS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11221	11469	
==>$rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7503	7751	
==>$rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8337	8585	
==>$rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5462	5559	
==>on = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5462	5559	
==>on = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6986	7083	
==>on = 'skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4583	4708	
==>ub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4583	4708	
==>ub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4583	4708	
==>ub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	554	807	
==>g_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	554	807	
==>g_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8245	8381	
==>| %mods<sigspace> {      
            $pre ~= ":s";
            %mods.delete("s"); # avoid haskell handling it.
            %mods.delete( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6570	6684	
==>@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6570	6684	
==>@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6570	6684	
==>@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34844	34943	
==>ch any tuples of C<$other> along
their common attributes.  This method will fail if the heading of < <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39394	39493	
==>ch any tuples of C<$other> along
their common attributes.  This method will fail if the heading of < <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38927	39026	
==>ch any tuples of C<$other> along
their common attributes.  This method will fail if the heading of < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39793	39909	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39793	39909	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39793	39909	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20321	20465	
==>ue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20321	20465	
==>ue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20321	20465	
==>ue::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7965	8084	
==>:false;
    if $A.property_value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4005	4116	
==>ather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take in <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4005	4116	
==>ather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3878	3978	
==>nction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3878	3978	
==>nction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3878	3978	
==>nction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6765	6881	
==>or abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7137	7253	
==>or abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7436	7552	
==>or abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($R <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1853	1959	
==>:Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1853	1959	
==>:Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11669	11769	
==>%{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11669	11769	
==>%{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11669	11769	
==>%{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4293	4392	
==>::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4293	4392	
==>::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4293	4392	
==>::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3691	3811	
==>or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3691	3811	
==>or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3691	3811	
==>or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	655	829	
==>on => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    my $args = check( $tmpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8947	9060	
==>@blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8947	9060	
==>@blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $blo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39523	39631	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39523	39631	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39523	39631	
==>e::List' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4257	4386	
==>ss_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4257	4386	
==>ss_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4257	4386	
==>ss_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13176	13298	
==>refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13176	13298	
==>refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13176	13298	
==>refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6057	6155	
==>kip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6057	6155	
==>kip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6057	6155	
==>kip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10147	10252	
==>-----------------------------  
    # collects all the roles, and applies them to the
    # invocant, whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10147	10252	
==>-----------------------------  
    # collects all the roles, and applies them to the
    # invocant, whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10147	10252	
==>-----------------------------  
    # collects all the roles, and applies them to the
    # invocant, whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	244	348	
==>LHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	244	348	
==>LHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	244	348	
==>LHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5006	5111	
==>a::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5006	5111	
==>a::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5596	5701	
==>a::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7555	7679	
==>n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7555	7679	
==>n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7555	7679	
==>n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3261	3409	
==>);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3261	3409	
==>);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	468	568	
==>me eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	468	568	
==>me eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	468	568	
==>me eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1411	1526	
==>Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubPara <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4535	4648	
==>Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubPara <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4535	4648	
==>Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubPara <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9755	9858	
==>),") ",0+@a,"\n";

0;
__END__
=cut
$foo = sub{
    print STDERR "hi\n";
    return reverse(1,undef,undef <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8200	8293	
==>>assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gram <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2025	2118	
==>>assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3787	3890	
==>EBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3787	3890	
==>EBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3787	3890	
==>EBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4805	4938	
==>y $ok          = _('$.passed') ? 'ok' : 'not ok';
            my $description = "# TODO " . _('$.description');
            return joi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1729	1823	
==>ll_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1729	1823	
==>ll_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13842	13980	
==>$::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13842	13980	
==>$::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13842	13980	
==>$::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1603	1723	
==>_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1603	1723	
==>_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1603	1723	
==>_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1491	1598	
==>]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1491	1598	
==>]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1491	1598	
==>]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26937	27042	
==>, but if you are sub-classing it, you'll probably want
to call it in your own module.

  package Regexp::A <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8347	8448	
==>e $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and up <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8347	8448	
==>e $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and up <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4327	4434	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4327	4434	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4327	4434	
==>) { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6784	6924	
==>e " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $f <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1060	1167	
==>$?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1060	1167	
==>$?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	613	774	
==>int "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	613	774	
==>int "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	613	774	
==>int "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1989	2094	
==>nction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1989	2094	
==>nction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1989	2094	
==>nction (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@se <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7362	7513	
==><'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*= <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9518	9622	
==>an.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9518	9622	
==>an.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2291	2412	
==>$flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2291	2412	
==>$flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7390	7502	
==>is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7390	7502	
==>is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

meth <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10209	10317	
==>urn join( " ", @existing_switches, @derived_switches );
}

=head2 C<_cleaned_switches>

  my @switches = $sel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39073	39172	
==>TIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Loca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39073	39172	
==>TIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Loca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37380	37475	
==>e if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37380	37475	
==>e if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39893	39984	
==>ry relational operator that takes
another Relation::Example as its C<$other> argument and co <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	180	293	
==>leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '' <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	180	293	
==>leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6059	6163	
==>tml");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $template = HTML::Tem <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4206	4295	
==>, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4206	4295	
==>, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6403	6492	
==>, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$description> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	181	296	
==>::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	181	296	
==>::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	181	296	
==>::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3815	3934	
==>-
        # we have to locate "Syck_stub.o" and copy it into
        # dist/build/src/Data/Yaml/.
        my @candidates <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13903	14009	
==>syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, 'a <==
3	/Users/nnunley/pugs/util/importgraph.pl	2557	2666	
==>(defined $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	120	245	
==>sed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	120	245	
==>sed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	120	245	
==>sed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6939	7041	
==>l_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6939	7041	
==>l_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1164	1268	
==>(substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2426	2523	
==>hered; when you're done, call the closure 
with no arguments to finish the ciphering and clear the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2426	2523	
==>hered; when you're done, call the closure 
with no arguments to finish the ciphering and clear the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4045	4130	
==>EGIN BOOTSTRAPPING AREA
## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4045	4130	
==>EGIN BOOTSTRAPPING AREA
## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4045	4130	
==>EGIN BOOTSTRAPPING AREA
## ----------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	490	625	
==>r;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	490	625	
==>r;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	967	1091	
==>> '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11239	11334	
==>c of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11239	11334	
==>c of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	836	945	
==>PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	836	945	
==>PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	836	945	
==>PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15749	15965	
==>:Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15749	15965	
==>:Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15749	15965	
==>:Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	715	825	
==>_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	715	825	
==>_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	715	825	
==>_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11519	11718	
==>,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11519	11718	
==>,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11519	11718	
==>,"") unless $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9628	9748	
==>her is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13105	13225	
==>her is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12377	12497	
==>her is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) == <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5211	5354	
==>_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X::str;
      pos($s) = $X::pos;
      my $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2752	2864	
==>cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2752	2864	
==>cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25687	25787	
==>nd
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The Me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25687	25787	
==>nd
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The Me <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	112	206	
==>turns Duration {
    $self.new($self.length + $duration.length);
}

method subtract($self: Dura <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20842	20937	
==>ix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20842	20937	
==>ix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20842	20937	
==>ix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3055	3166	
==>sa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3055	3166	
==>sa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3055	3166	
==>sa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3477	3595	
==>eters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3477	3595	
==>eters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3477	3595	
==>eters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28627	28801	
==>', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28627	28801	
==>', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28627	28801	
==>', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5270	5405	
==>Util 'blessed';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $clas <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4200	4305	
==>.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4200	4305	
==>.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	88	190	
==>ess keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	88	190	
==>ess keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	88	190	
==>ess keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12611	12705	
==>JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12611	12705	
==>JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12611	12705	
==>JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8210	8412	
==>ndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8210	8412	
==>ndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8210	8412	
==>ndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      r <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10753	10928	
==>1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node()) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10753	10928	
==>1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node()) <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2267	2366	
==>ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$prog- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7127	7216	
==>ce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7127	7216	
==>ce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7127	7216	
==>ce_attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1052	1184	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1052	1184	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1052	1184	
==>}
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14262	14409	
==>rs/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14262	14409	
==>rs/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14262	14409	
==>rs/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9363	9482	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9363	9482	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9363	9482	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = a <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	127	254	
==>UILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_rege <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	127	254	
==>UILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	670	789	
==>l5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	670	789	
==>l5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	670	789	
==>l5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	221	325	
==>e set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	221	325	
==>e set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	58	156	
==>::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	58	156	
==>::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	58	156	
==>::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	803	920	
==>label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	803	920	
==>label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	803	920	
==>label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4598	4704	
==>_('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4598	4704	
==>_('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4598	4704	
==>_('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6608	6837	
==>ND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6608	6837	
==>ND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6608	6837	
==>ND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2328	2429	
==>es  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2328	2429	
==>es  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2408	2509	
==>es  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $des <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5096	5205	
==>is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5096	5205	
==>is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.spa <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11635	11727	
==>r comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Comparator)

A combination of the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5956	6099	
==>n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5956	6099	
==>n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5956	6099	
==>n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1004	1096	
==>7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1004	1096	
==>7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1004	1096	
==>7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doubl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1438	1555	
==>nce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1643	1760	
==>nce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1704	1821	
==>nce_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1905	2030	
==>);

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.ta <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1905	2030	
==>);

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.ta <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3465	3560	
==>e from S29draft.pod r8593.
# body from PIL2JS (r8593) from Prelude/PIL.pm.
# Prim.hs r8593 defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1396	1507	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1396	1507	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1396	1507	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2800	2903	
==>parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2800	2903	
==>parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2800	2903	
==>parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12916	13023	
==>ribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12916	13023	
==>ribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12916	13023	
==>ribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23529	23705	
==>alar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23529	23705	
==>alar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23529	23705	
==>alar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->stor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1702	1820	
==>lequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1702	1820	
==>lequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1702	1820	
==>lequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10007	10155	
==>ion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10007	10155	
==>ion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10007	10155	
==>ion () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1376	1486	
==>rsed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" be <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1376	1486	
==>rsed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4620	4797	
==>$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4620	4797	
==>$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4620	4797	
==>$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	900	1049	
==>ontext.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	900	1049	
==>ontext.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	900	1049	
==>ontext.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13604	13693	
==>eans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13604	13693	
==>eans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13604	13693	
==>eans "whatever annotation went with this attribute when it's declared"
::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9330	9470	
==>{ $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # T <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9330	9470	
==>{ $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	845	944	
==>p "Error in perl 6 parser: '$rule_source' at: '$self->{ast}{tail}'\n" 
        if $self->{ast}{tail <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6292	6391	
==>pan::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6292	6391	
==>pan::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5600	5747	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5600	5747	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5600	5747	
==>ist = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20661	20765	
==>fix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20661	20765	
==>fix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20661	20765	
==>fix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7275	7384	
==>eturn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7275	7384	
==>eturn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7275	7384	
==>eturn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	104	217	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	104	217	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	104	217	
==>e('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pai <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20545	20643	
==>allow you to force a
specific spelling.  For example if you really want a header field name
to show <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20545	20643	
==>allow you to force a
specific spelling.  For example if you really want a header field name
to show <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51510	51665	
==>);
                $e->get('$self:')
                  ->get_attr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and(block->ne <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6095	6222	
==>nsions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        r <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3772	3898	
==>nsions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        r <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	890	1030	
==>*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	890	1030	
==>*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5779	5878	
==>::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= D <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5779	5878	
==>::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3512	3639	
==>>());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3512	3639	
==>>());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3512	3639	
==>>());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2232	2363	
==>me);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2232	2363	
==>me);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2232	2363	
==>me);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6472	6576	
==>ert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13364	13466	
==>nitrd_mnt/dev/console by entering the following command
      as root:
      # mknod $initrd_mnt/dev/co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6265	6364	
==>ert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3448	3586	
==>_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no stri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1806	1944	
==>_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no stri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2586	2724	
==>_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no stri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	516	611	
==>{...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	516	611	
==>{...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9301	9410	
==>ontainer::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9301	9410	
==>ontainer::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9301	9410	
==>ontainer::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3770	3898	
==>> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3770	3898	
==>> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3770	3898	
==>> ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12624	12716	
==>::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12624	12716	
==>::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12624	12716	
==>::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4875	4976	
==>er of tests to run.

Those are the only valid arguments.

You must have a plan set before you can reco <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4875	4976	
==>er of tests to run.

Those are the only valid arguments.

You must have a plan set before you can reco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6399	6500	
==>er of tests to run.

Those are the only valid arguments.

You must have a plan set before you can reco <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1087	1204	
==>et> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

rege <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1087	1204	
==>et> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	289	408	
==>pr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	289	408	
==>pr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	289	408	
==>pr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3989	4102	
==>for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3989	4102	
==>for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3989	4102	
==>for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2733	2832	
==>n $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6210	6309	
==>n $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5140	5239	
==>n $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12192	12423	
==>rray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12192	12423	
==>rray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12192	12423	
==>rray' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11218	11361	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11497	11640	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1304	1403	
==>.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1304	1403	
==>.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1304	1403	
==>.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	70	164	
==>tamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	70	164	
==>tamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	70	164	
==>tamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($cl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2113	2247	
==>S, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### mak <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15661	15754	
==>to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15661	15754	
==>to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10779	10892	
==>" . _where()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $args{progs} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18424	18528	
==>to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18424	18528	
==>to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5774	5881	
==>sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5774	5881	
==>sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5774	5881	
==>sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18923	19057	
==>y ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15344	15478	
==>y ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &R <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9346	9454	
==>help   => "We're now creating a zeroed image we will later mount.";

  step
    descr  => "Creating an ext2 f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10916	11010	
==>if this recurrence is a "universal set".
Otherwise the program will emit warnings during the ex <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10916	11010	
==>if this recurrence is a "universal set".
Otherwise the program will emit warnings during the ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15896	15995	
==>s_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15896	15995	
==>s_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15896	15995	
==>s_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1810	1961	
==>= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1810	1961	
==>= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1810	1961	
==>= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	393	493	
==>n_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	393	493	
==>n_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	393	493	
==>n_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4051	4148	
==>=> $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4051	4148	
==>=> $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	249	354	
==>y $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	249	354	
==>y $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	249	354	
==>y $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	644	799	
==>ed;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	644	799	
==>ed;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6160	6262	
==>{
    state(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35512	35659	
==>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35512	35659	
==>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35512	35659	
==>_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22341	22454	
==>_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max_namelen + length($middle_str) <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3904	3996	
==>e appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
pars <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3904	3996	
==>e appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
pars <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13306	13474	
==>);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c = $_[0];
        FAIL() if &Regexp::Parser: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18799	18927	
==>ice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20157	20285	
==>ice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11876	11989	
==>d) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInte <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12279	12392	
==>d) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35231	35373	
==>hift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35231	35373	
==>hift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35231	35373	
==>hift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4705	4819	
==>arse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4705	4819	
==>arse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3405	3497	
==>rl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly install <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39388	39480	
==>Because range checking (C<[a-z]>) requires knowledge of the characters
on the lower and upper <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3169	3290	
==>ch my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26984	27088	
==>).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_N <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26984	27088	
==>).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_N <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5669	5762	
==>etta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connec <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5669	5762	
==>etta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6386	6489	
==>wline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6386	6489	
==>wline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6386	6489	
==>wline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1784	1895	
==>t_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1784	1895	
==>t_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1864	1975	
==>t_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14453	14616	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14447	14610	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] . <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1491	1589	
==>urce => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $p <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1491	1589	
==>urce => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3149	3243	
==>er::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end().";"/eg;
  s/\bFAI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5159	5284	
==>nstead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5159	5284	
==>nstead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5159	5284	
==>nstead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	449	561	
==>Fun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	449	561	
==>Fun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	449	561	
==>Fun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2548	2650	
==>piX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2548	2650	
==>piX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2548	2650	
==>piX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2847	2942	
==>ame, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2847	2942	
==>ame, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2847	2942	
==>ame, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10524	10642	
==>", @{$info->{'fields'}});

    my $code = "";
    $code .= "sub ${package_name}::${name}::${method_name} {";

    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19045	19140	
==>xt that is
associated with hard-coded program conditions.  In other words, this user
text is *pa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19045	19140	
==>xt that is
associated with hard-coded program conditions.  In other words, this user
text is *pa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28960	29058	
==>ecome wrapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33512	33610	
==>ecome wrapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32649	32747	
==>ecome wrapped, and it supports having new tuple-valued
attributes which wrap zero old attributes (t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6527	6638	
==>ine;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6527	6638	
==>ine;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6527	6638	
==>ine;
var document = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6291	6420	
==>e "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6291	6420	
==>e "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6291	6420	
==>e "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1039	1141	
==>re different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::D <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1039	1141	
==>re different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5516	5664	
==>$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5516	5664	
==>$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5516	5664	
==>$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6911	7024	
==>ld we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6911	7024	
==>ld we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6911	7024	
==>ld we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my $und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4795	4913	
==>ame => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4795	4913	
==>ame => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4795	4913	
==>ame => $self->name)
        : (),
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LV <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3172	3281	
==>= $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3172	3281	
==>= $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3244	3371	
==>.. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3244	3371	
==>.. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3244	3371	
==>.. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: " <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10657	10765	
==>`lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Inclu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10657	10765	
==>`lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Inclu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3503	3643	
==>cally created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3503	3643	
==>cally created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3503	3643	
==>cally created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2706	2809	
==>2X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2706	2809	
==>2X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	883	1003	
==>) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	883	1003	
==>) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	883	1003	
==>) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) && ref($body) =~ 'A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2872	3034	
==>"x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2872	3034	
==>"x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3581	3733	
==>ds!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4045	4197	
==>ds!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2233	2360	
==>$code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $le <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2233	2360	
==>$code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $le <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2233	2360	
==>$code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18373	18465	
==>UB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18373	18465	
==>UB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18373	18465	
==>UB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4818	4967	
==>ell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4818	4967	
==>ell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4818	4967	
==>ell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2301	2476	
==>=> Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2301	2476	
==>=> Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5318	5443	
==>me, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5318	5443	
==>me, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5318	5443	
==>me, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if define <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	812	911	
==>gle elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 versio <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	812	911	
==>gle elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 versio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39667	39757	
==>t (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ary v <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3707	3811	
==>eresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3707	3811	
==>eresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	433	526	
==>r not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recognized';
use <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8211	8341	
==>rg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8211	8341	
==>rg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11830	11924	
==>ed character's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4633	4748	
==>)
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8110	8225	
==>)
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5870	5982	
==>printf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv(pat);
    
    r->nparens = nparens;
    
    Renew <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	701	840	
==>an avoid
        # long if/elsif/else chains
        given $tok {
            when '+' { @stack.push($y + $x) }
            when '-' { @stac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2613	2719	
==>my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2613	2719	
==>my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12623	12732	
==>edo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12623	12732	
==>edo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12623	12732	
==>edo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	471	560	
==>-----------------------------------------------
## accessors and mutators

method parent ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	471	560	
==>-----------------------------------------------
## accessors and mutators

method parent ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	899	994	
==>(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	899	994	
==>(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	899	994	
==>(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12278	12454	
==>else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12278	12454	
==>else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12278	12454	
==>else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19239	19340	
==>$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19239	19340	
==>$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19239	19340	
==>$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5062	5226	
==>ar};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5062	5226	
==>ar};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5652	5816	
==>ar};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{ <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	42	141	
==>kends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::Te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1852	1946	
==>l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1852	1946	
==>l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13965	14065	
==>0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13965	14065	
==>0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13965	14065	
==>0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2799	2924	
==>t /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2799	2924	
==>t /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2799	2924	
==>t /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	776	890	
==>.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	776	890	
==>.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	776	890	
==>.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{CC}, @args);
  }
} <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6945	7042	
==>push @{ $self->{meat}{test_files} }, @{$chunk->{test_files}};
        unlink $file or die "unlink: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	613	705	
==>s next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	613	705	
==>s next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	552	678	
==>alue !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	552	678	
==>alue !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	552	678	
==>alue !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	754	861	
==>ed Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	754	861	
==>ed Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	754	861	
==>ed Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10509	10654	
==>=>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10509	10654	
==>=>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10509	10654	
==>=>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 }, <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	357	463	
==>A;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.n <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	357	463	
==>A;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.n <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1568	1662	
==>catfile($path, "arch");
    $self->makemaker_args->{INST_SCRIPT} =
      File::Spec->catfile($p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1143	1279	
==>nd the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4621	4757	
==>nd the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3533	3669	
==>nd the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6476	6581	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6476	6581	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6476	6581	
==>num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1876	1997	
==>print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2016	2137	
==>print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	577	674	
==>on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	577	674	
==>on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	577	674	
==>on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() met <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1707	1849	
==>>can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::M <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6844	6965	
==>runcore2human {
  local $_ = shift;

  $_ eq "jsperl5"and return "JSPERL5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1600	1697	
==>>can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2751	2877	
==>n "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2751	2877	
==>n "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2751	2877	
==>n "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->ne <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11785	11922	
==>with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15262	15399	
==>with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14597	14734	
==>with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5004	5115	
==>e unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5004	5115	
==>e unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5004	5115	
==>e unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	5	101	
==>v6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	5	101	
==>v6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3036	3135	
==>2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3036	3135	
==>2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3036	3135	
==>2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11411	11522	
==>get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11411	11522	
==>get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11411	11522	
==>get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('ge <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23124	23256	
==>(
    ide => "map",
    is => fun(
	param => "f",
	body => fun(
		param => "xs",
		body => cond(
			if => comb(
				fun => ide("is_ni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6233	6325	
==>.};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6233	6325	
==>.};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6233	6325	
==>.};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6782	6885	
==>n) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6782	6885	
==>n) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6782	6885	
==>n) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $versio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8147	8255	
==>ass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8147	8255	
==>ass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8147	8255	
==>ass definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1368	1471	
==>stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1368	1471	
==>stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

meth <==
3	/Users/nnunley/pugs/util/package-osx.pl	4855	4952	
==>l/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        /usr/lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14282	14376	
==>= unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14282	14376	
==>= unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14282	14376	
==>= unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6409	6502	
==>asses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6409	6502	
==>asses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6409	6502	
==>asses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9177	9311	
==>unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9177	9311	
==>unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9177	9311	
==>unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	659	765	
==>r($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	659	765	
==>r($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	659	765	
==>r($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL: <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	519	632	
==>vents and call it.
  my method step () {
    return unless @:events;

    my $callback = shift @:events;
    retur <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23545	23649	
==>ts>
}
rule SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElements> <SourceE <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	398	500	
==>S

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	398	500	
==>S

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	917	1033	
==>y => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	917	1033	
==>y => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	917	1033	
==>y => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4174	4277	
==>, and when calling these methods you should take care not
to call them in function form by mistake; that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4174	4277	
==>, and when calling these methods you should take care not
to call them in function form by mistake; that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4174	4277	
==>, and when calling these methods you should take care not
to call them in function form by mistake; that <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	886	995	
==>f) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	886	995	
==>f) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	886	995	
==>f) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4243	4364	
==>t/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4243	4364	
==>t/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4243	4364	
==>t/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11474	11581	
==>eturn-block#" . $code;
}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11632	11722	
==>= \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11632	11722	
==>= \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18144	18297	
==>rguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c d u <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	802	917	
==>_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos- <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	802	917	
==>_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14711	14831	
==>e', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14711	14831	
==>e', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14711	14831	
==>e', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16454	16562	
==>g)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16454	16562	
==>g)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16454	16562	
==>g)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	457	622	
==>efined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    returns Num <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4144	4259	
==>tches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4016	4129	
==>tches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0] <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28216	28327	
==>W> will
run all tests with all warnings enabled.

=item C<HARNESS_VERBOSE>

If true, Test::Harness will output t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5726	5905	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5726	5905	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5726	5905	
==>y = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23769	23860	
==>sed multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23769	23860	
==>sed multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6648	6782	
==>table match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6433	6559	
==>table match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	613	728	
==>{
            my $normalizer = $arg but $.normalizer_role;
            return $normalizer but $.coercer_role, collec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20016	20118	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20295	20397	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39477	39569	
==>:KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rig <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39477	39569	
==>:KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rig <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23095	23191	
==>ther packages like "gettext" it looks like you
are supposed to pass in english text and they tran <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23095	23191	
==>ther packages like "gettext" it looks like you
are supposed to pass in english text and they tran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1386	1496	
==>ments
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1386	1496	
==>ments
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1386	1496	
==>ments
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8950	9062	
==>e invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12427	12539	
==>e invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35898	35996	
==>ef

Family: ref

Types: ref1, ref2 .. refN (C<\1>, C<\2>, etc.); reff1, reff2 .. reffN
(C<\1>, C<\2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5143	5337	
==>e->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5143	5337	
==>e->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5143	5337	
==>e->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9907	10072	
==>t_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9907	10072	
==>t_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9907	10072	
==>t_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1268	1381	
==>hile (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cyg <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12981	13086	
==>laration here.  --iblech
class Str does Iter {
    method shift () is primitive { =open(self) }

    metho <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1201	1302	
==>hile (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cyg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3958	4068	
==>));
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3958	4068	
==>));
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3958	4068	
==>));
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34551	34779	
==>_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33964	34169	
==>_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	172	274	
==>y @array = (1,2,3); print "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3489	3603	
==>n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3489	3603	
==>n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3489	3603	
==>n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3428	3553	
==>red.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3428	3553	
==>red.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3428	3553	
==>red.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	782	905	
==>->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	782	905	
==>->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	782	905	
==>->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support g <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	848	966	
==>ories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5035	5136	
==>o loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5035	5136	
==>o loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1426	1549	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1426	1549	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1426	1549	
==>ue !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6880	7003	
==>) + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6880	7003	
==>) + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6880	7003	
==>) + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14913	15038	
==>o_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14913	15038	
==>o_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14913	15038	
==>o_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3922	4026	
==>ray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3922	4026	
==>ray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3922	4026	
==>ray

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7180	7303	
==>self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7180	7303	
==>self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17061	17155	
==>would not be possible if its
functionality was subsumed into a larger package that would otherw <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17061	17155	
==>would not be possible if its
functionality was subsumed into a larger package that would otherw <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1973	2126	
==>superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2178	2331	
==>superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2241	2394	
==>superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %att <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14732	14846	
==>$target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14732	14846	
==>$target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16793	16908	
==>elf->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13214	13329	
==>elf->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26488	26582	
==>pile the test using
C<perlcc> before running it.

B<NOTE> This currently only works when sittin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2197	2294	
==>tion (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2197	2294	
==>tion (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2197	2294	
==>tion (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15909	16023	
==>($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15909	16023	
==>($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15909	16023	
==>($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8959	9075	
==>}";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8959	9075	
==>}";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8959	9075	
==>}";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1576	1726	
==>state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1521	1667	
==>state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31446	31546	
==>If
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether this object creates a deep <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4298	4471	
==>urn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4298	4471	
==>urn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    ret <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14481	14592	
==>a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as C<zip(keys %hash; values %hash)>

In Scalar co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1787	1901	
==>lass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1787	1901	
==>lass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1787	1901	
==>lass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
pac <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8244	8361	
==>ormalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8244	8361	
==>ormalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30843	30955	
==>_iterator (opaque $self: list @values) returns block {
    my $counter = 0;
    return sub {
        return @valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2141	2251	
==>rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2141	2251	
==>rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2141	2251	
==>rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7549	7676	
==>if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7549	7676	
==>if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7549	7676	
==>if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12840	12942	
==>our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12840	12942	
==>our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	742	839	
==>T',
			body => 'stdout',
			fixity => "nullary",
			type => Blondie::TypeSafe::Type::Std->new("GV" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1368	1512	
==>eady_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1368	1512	
==>eady_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1368	1512	
==>eady_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3356	3539	
==>$args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3496	3679	
==>$args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef' <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	597	722	
==>$_[0]->{_top} }

#line 71

sub admin {
    my $self = shift;
    $self->_top->{admin} or Module::Install::Base::FakeAdmin->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12693	12849	
==>>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12693	12849	
==>>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12693	12849	
==>>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2298	2439	
==>hould
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2298	2439	
==>hould
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2298	2439	
==>hould
  # be our() anyway.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5697	5796	
==>inite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5697	5796	
==>inite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5697	5796	
==>inite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1604	1718	
==>tr;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() in <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1604	1718	
==>tr;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() in <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3451	3549	
==>he GRUB tarball is saved as --grub-local.
  --pugs=$pugs
    mklivecd.pl takes --pugs as the binary <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1430	1539	
==>XX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1430	1539	
==>XX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1430	1539	
==>XX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9529	9640	
==>ists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.dele <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9529	9640	
==>ists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.dele <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1434	1541	
==>) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1434	1541	
==>) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1514	1621	
==>) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	95	196	
==>ys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	95	196	
==>ys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	95	196	
==>ys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1903	2027	
==>a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1903	2027	
==>a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23606	23703	
==>urceElement>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8890	8987	
==>eader('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $targe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8890	8987	
==>eader('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $targe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21570	21663	
==>ially given that the Perl DBI purports to provide
"Database Independence".  However, the level <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21570	21663	
==>ially given that the Perl DBI purports to provide
"Database Independence".  However, the level <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9299	9436	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9492	9629	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1032	1123	
==>ition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RUL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9482	9578	
==>y be repeated, and which are printed in a particular order.  The
field names are cases insensitiv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9482	9578	
==>y be repeated, and which are printed in a particular order.  The
field names are cases insensitiv <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3070	3271	
==>r" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3070	3271	
==>r" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6518	6626	
==>INS$/, @_;
    my @libs = "-lHSPugs-$version";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep /^ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2162	2308	
==>) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2162	2308	
==>) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	372	477	
==>pects of it in favor of 
a more practical closure based system, similar to what is described
in here (note <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8828	8962	
==>be;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the package i <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	763	872	
==>= Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this nod <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	763	872	
==>= Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4409	4590	
==>,
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4409	4590	
==>,
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4409	4590	
==>,
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3364	3471	
==>tes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6841	6948	
==>tes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5798	5905	
==>tes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6650	6776	
==>lf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6650	6776	
==>lf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6650	6776	
==>lf, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($v <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4657	4779	
==>le, $href );
    }

    ### remove this package from the available list
    ### XXX temp file, then mv
    DumpFile( $Avail <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15846	15943	
==>rce has (or has not) been modified since the time specified in this field,
then the server will re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15846	15943	
==>rce has (or has not) been modified since the time specified in this field,
then the server will re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	234	356	
==>rl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5018	5123	
==>it " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5018	5123	
==>it " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5224	5324	
==>->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::Pa <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11644	11736	
==>still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey T <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11644	11736	
==>still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	125	240	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	125	240	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	125	240	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12596	12731	
==>tching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12596	12731	
==>tching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12596	12731	
==>tching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1448	1554	
==>my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1448	1554	
==>my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1448	1554	
==>my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7476	7578	
==>nted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the ju <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7534	7636	
==>nted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the ju <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	663	760	
==>p { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base::Fake <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3507	3624	
==>mple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3507	3624	
==>mple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3507	3624	
==>mple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2353	2474	
==>eturns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2353	2474	
==>eturns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2353	2474	
==>eturns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2035	2155	
==>nd_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2035	2155	
==>nd_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2035	2155	
==>nd_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8047	8219	
==>"Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12040	12205	
==>"Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12040	12205	
==>"Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	456	550	
==>EQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.pr <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	456	550	
==>EQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.pr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	506	597	
==>ersion to other types
sub to_str { (shift)->join(str->new('')) }
sub to_num { (shift)->lengt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17891	17998	
==>[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $befo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14312	14419	
==>[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $befo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8198	8350	
==>regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8198	8350	
==>regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8198	8350	
==>regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g_from,g_to+1);
    #      var m = m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8582	8756	
==>ush @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8582	8756	
==>ush @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8582	8756	
==>ush @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1419	1521	
==>ing) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and u <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1419	1521	
==>ing) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4025	4127	
==>nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1044	1169	
==>, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1044	1169	
==>, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1044	1169	
==>, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8607	8795	
==>')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8607	8795	
==>')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8607	8795	
==>')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	479	612	
==>is} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3918	4019	
==>ntended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3918	4019	
==>ntended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	839	941	
==>R_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	839	941	
==>R_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	839	941	
==>R_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1674	1782	
==>, shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax er <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1674	1782	
==>, shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax er <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1674	1782	
==>, shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax er <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1206	1308	
==>dules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_mea <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1206	1308	
==>dules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_mea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10243	10338	
==>yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10243	10338	
==>yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10243	10338	
==>yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	316	438	
==>at,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	316	438	
==>at,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4191	4299	
==>f->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26546	26641	
==>e C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31098	31193	
==>e C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8545	8658	
==>@dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{file}} @files ]); 
    print $fh $te <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8243	8341	
==>is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event close <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8243	8341	
==>is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event close <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6105	6235	
==>h, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6105	6235	
==>h, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($mat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26134	26223	
==>tialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_lis <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	759	920	
==>s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { d <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	759	920	
==>s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18796	18889	
==>!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2722	2828	
==>{
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6199	6305	
==>{
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5129	5235	
==>{
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35307	35448	
==>);
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35307	35448	
==>);
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35307	35448	
==>);
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22005	22106	
==>uples or
one tuple respectively have a special meaning in relational algebra which
is analagous to wha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26557	26658	
==>uples or
one tuple respectively have a special meaning in relational algebra which
is analagous to wha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25253	25354	
==>uples or
one tuple respectively have a special meaning in relational algebra which
is analagous to wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5831	5939	
==>fix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5831	5939	
==>fix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5831	5939	
==>fix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1565	1694	
==>r args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1565	1694	
==>r args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1565	1694	
==>r args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3169	3366	
==>]),
                to    => \($_[5] + $lconst),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub perl5 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2899	2998	
==>eters as a list.  The order in which they were
present in the query string is preserved.

=item C<$q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2899	2998	
==>eters as a list.  The order in which they were
present in the query string is preserved.

=item C<$q <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5081	5177	
==>assed or failed, depending on the value of C<$passed>,
recording C<$description> as an optional e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5081	5177	
==>assed or failed, depending on the value of C<$passed>,
recording C<$description> as an optional e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6605	6701	
==>assed or failed, depending on the value of C<$passed>,
recording C<$description> as an optional e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14243	14347	
==>urn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14243	14347	
==>urn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14243	14347	
==>urn 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8117	8233	
==>urns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8117	8233	
==>urns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8117	8233	
==>urns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3242	3364	
==>f(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3242	3364	
==>f(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3242	3364	
==>f(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1989	2119	
==>sh = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1989	2119	
==>sh = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1989	2119	
==>sh = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1456	1606	
==>$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') {
            $vs = " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3199	3299	
==>end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3199	3299	
==>end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inter <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4014	4153	
==>w< dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidate <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2632	2734	
==>rl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2632	2734	
==>rl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4763	4892	
==>se {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4751	4880	
==>se {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13659	13759	
==>ch (?(condition)... contains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1133	1245	
==>er::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1133	1245	
==>er::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	6	102	
==>rict;
use warnings;
package Inline::Parrot;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
us <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38790	38935	
==>> 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39317	39462	
==>> 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5811	5905	
==>en {    def_token($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17762	17861	
==>infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17762	17861	
==>infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17762	17861	
==>infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10566	10663	
==>ext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10566	10663	
==>ext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6604	6744	
==>fix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6604	6744	
==>fix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6604	6744	
==>fix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4027	4140	
==>param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4027	4140	
==>param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4027	4140	
==>param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	230	318	
==>iler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6789	6905	
==>ot in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6789	6905	
==>ot in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6789	6905	
==>ot in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7819	7937	
==>$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7819	7937	
==>$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7819	7937	
==>$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	489	622	
==>_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	489	622	
==>_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	489	622	
==>_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      fun <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2583	2687	
==>e = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2583	2687	
==>e = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12228	12331	
==>que $class: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6opaque';
    my $self = $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1424	1516	
==>acktracking parsers such
as quantifiers are implemented by passing a C<Result> object that ha <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1424	1516	
==>acktracking parsers such
as quantifiers are implemented by passing a C<Result> object that ha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2284	2389	
==>ct_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2284	2389	
==>ct_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2364	2469	
==>ct_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	910	1033	
==>k,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traff <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	910	1033	
==>k,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traff <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1547	1678	
==>t), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration;
}

# operations with Duration::Gregorian co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3699	3819	
==>_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3699	3819	
==>_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1062	1180	
==>chine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1062	1180	
==>chine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1695	1795	
==>erl6::Rules: it looks like early
# phase development.  There's a "return" halfway down the file to cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7908	8167	
==>{
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7908	8167	
==>{
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7908	8167	
==>{
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	318	446	
==>arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	318	446	
==>arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	318	446	
==>arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	987	1082	
==>a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified respon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	987	1082	
==>a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified respon <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8417	8522	
==>alDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7447	7542	
==>ch is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7447	7542	
==>ch is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	544	642	
==>is packed in an Object with
# the property .FETCH() holding the original value. This is necessary t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	544	642	
==>is packed in an Object with
# the property .FETCH() holding the original value. This is necessary t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	544	642	
==>is packed in an Object with
# the property .FETCH() holding the original value. This is necessary t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2405	2505	
==>deref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2405	2505	
==>deref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2405	2505	
==>deref) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12078	12216	
==>mmar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12072	12210	
==>mmar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1481	1600	
==>s) {
	_diag "# Failed $where\n";
    }

    # Ensure that the message is properly escaped.
    _diag @mess;

    $test++ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13357	13452	
==>, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other ab <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13357	13452	
==>, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other ab <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9141	9377	
==>re multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = key <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5501	5737	
==>re multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6350	6586	
==>re multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = key <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3306	3405	
==>fault {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@inde <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3306	3405	
==>fault {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3311	3426	
==>_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3311	3426	
==>_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3311	3426	
==>_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1212	1308	
==>anced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1212	1308	
==>anced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1239	1335	
==>odules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently t <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1239	1335	
==>odules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1240	1355	
==>sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1240	1355	
==>sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1240	1355	
==>sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4974	5088	
==>roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4974	5088	
==>roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4974	5088	
==>roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16216	16316	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16216	16316	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16216	16316	
==>st' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	172	289	
==>dence/lib",
;

use Pugs::Compiler::Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	521	636	
==>self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	521	636	
==>self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7630	7743	
==>w( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7630	7743	
==>w( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7630	7743	
==>w( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4109	4220	
==>$_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4109	4220	
==>$_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4109	4220	
==>$_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { comp <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	54	194	
==>ERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3967	4073	
==>IL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3967	4073	
==>IL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3967	4073	
==>IL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    } <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3837	3956	
==>{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34619	34728	
==>::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34619	34728	
==>::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34619	34728	
==>::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($arra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5480	5591	
==>return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5305	5413	
==>return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node <==
3	/Users/nnunley/pugs/util/testgraph.pl	606	704	
==>te $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v->has_inline_css($Confi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14851	15001	
==>as Int  $.min;     # 0 to 59
    has Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has Int  $.picosec;
    has Int  $.wday;    # 1 to 7, Sunda <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6118	6240	
==>_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5923	6039	
==>_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3382	3473	
==>dd_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3382	3473	
==>dd_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3382	3473	
==>dd_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5994	6078	
==>E UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5994	6078	
==>E UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5994	6078	
==>E UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6115	6256	
==>ath)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6115	6256	
==>ath)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6837	6998	
==>@args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6837	6998	
==>@args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6837	6998	
==>@args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '* <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9097	9189	
==>m XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 CO <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9097	9189	
==>m XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 CO <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	832	971	
==>pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@ev <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36925	37023	
==>le usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Tr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36925	37023	
==>le usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13368	13510	
==>ss, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13368	13510	
==>ss, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13368	13510	
==>ss, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8998	9110	
==>g === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12475	12587	
==>g === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $oth <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8909	9035	
==>"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#82 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8909	9035	
==>"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#82 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4536	4643	
==>[ $Object ], 
    '... $Object class_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10208	10349	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ide <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6549	6690	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ide <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7398	7539	
==>get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ide <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	15	144	
==>tils::Dump;
use strict;
use warnings;

require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use Pugs::Utils::Inte <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3893	4001	
==>2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3893	4001	
==>2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2789	2913	
==>der;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2789	2913	
==>der;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4313	4437	
==>der;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1009	1103	
==>ierarchy, reblessing objects that it finds along the way into new
namespaces. This is typically <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1009	1103	
==>ierarchy, reblessing objects that it finds along the way into new
namespaces. This is typically <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1009	1103	
==>ierarchy, reblessing objects that it finds along the way into new
namespaces. This is typically <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	414	521	
==>ule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	414	521	
==>ule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	414	521	
==>ule. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	97	208	
==>gs;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base class - not more than just a na <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	558	657	
==>module or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if yo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	558	657	
==>module or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if yo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	113	215	
==>r $NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversion to native
sub to_native { unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3175	3275	
==>IL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3175	3275	
==>IL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3175	3275	
==>IL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7291	7467	
==>tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7291	7467	
==>tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7291	7467	
==>tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8517	8682	
==>f ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8517	8682	
==>f ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8517	8682	
==>f ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40023	40147	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40023	40147	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40023	40147	
==>}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1645	1759	
==>it '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1645	1759	
==>it '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1645	1759	
==>it '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4527	4676	
==>lose $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4527	4676	
==>lose $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4527	4676	
==>lose $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8174	8289	
==>f(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8174	8289	
==>f(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8174	8289	
==>f(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1330	1424	
==>{%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1330	1424	
==>{%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1330	1424	
==>{%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3035	3153	
==>b infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3035	3153	
==>b infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3035	3153	
==>b infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2229	2358	
==>es
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2229	2358	
==>es
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2576	2705	
==>es
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1254	1354	
==>hash from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1199	1296	
==>hash from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	543	685	
==>Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	543	685	
==>Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp = <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8640	8756	
==>$ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1757	1891	
==>{
        error("Package '". $self->package ."' is already installed --skipping");
        return 1;
    }        
    
    ### install <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7867	7964	
==>s.

Cipher authors should assume that if this method is being called, the Secret 
Police are break <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7867	7964	
==>s.

Cipher authors should assume that if this method is being called, the Secret 
Police are break <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1426	1571	
==>t

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1426	1571	
==>t

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1426	1571	
==>t

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2938	3062	
==>e'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2938	3062	
==>e'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2938	3062	
==>e'} || 'anon') . ']');
        if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11153	11257	
==>? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11153	11257	
==>? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11153	11257	
==>? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL not only r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4068	4205	
==>_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $ba <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4068	4205	
==>_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $ba <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4068	4205	
==>_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $ba <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34957	35051	
==>nstructed.  If you want to
conceptually change an existing Translator object, you must create a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34957	35051	
==>nstructed.  If you want to
conceptually change an existing Translator object, you must create a <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	10	100	
==>nc/Module/Install/Can.pm - lib/Module/Install/Can.pm"
package Module::Install::Can;
use Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1402	1488	
==>Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1402	1488	
==>Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1402	1488	
==>Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7302	7415	
==>le($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7302	7415	
==>le($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7302	7415	
==>le($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17737	17851	
==>bject"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17737	17851	
==>bject"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nic <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9556	9655	
==>}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primitive".
macro rxbare_ ($pat <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	139	234	
==>_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have spec <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	139	234	
==>_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have spec <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	159	283	
==>sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALL <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	72	186	
==>ype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	72	186	
==>ype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	703	892	
==>RD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWO <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5174	5301	
==>Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5174	5301	
==>Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	26	226	
==>0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	26	226	
==>0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        r <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4319	4455	
==>ast_index;

    $r = \@v --> $r = @v;
    $r = \%v --> $r = %v;
    
    $r->[0]  --> $r[0];
    $r->{0}  --> $r{0};
    $r->(0)  --> $r( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	604	715	
==>ne@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@debian.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Bo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	229	331	
==>.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	229	331	
==>.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	556	688	
==>}

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	556	688	
==>}

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $di <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1400	1503	
==>my $proto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8814	8963	
==>r::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9649	9798	
==>r::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	216	331	
==>Class::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $dir ) 
        or die "Could not create JIB::S <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12772	12867	
==>tities( $string, ... )

This routine replaces HTML entities found in the $string with the
corres <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12772	12867	
==>tities( $string, ... )

This routine replaces HTML entities found in the $string with the
corres <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4012	4116	
==>( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4012	4116	
==>( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4092	4196	
==>( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1874	2065	
==>new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1874	2065	
==>new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	753	924	
==>tribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1065	1176	
==>move($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1065	1176	
==>move($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4419	4529	
==>urn $self->{values}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5930	6050	
==>->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5930	6050	
==>->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5930	6050	
==>->[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3839	3988	
==>in old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4303	4452	
==>in old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7617	7728	
==>$classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7617	7728	
==>$classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7617	7728	
==>$classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	237	357	
==>0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	325	445	
==>0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	104	205	
==>::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1965	2067	
==>def,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1965	2067	
==>def,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1965	2067	
==>def,undef), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that conta <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1874	2024	
==>( $meta );    
        
        ### add location to the metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other found d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1120	1225	
==>e

and Code -- because it is both a namespace of symbols and has

a main body closure. 



the Package par <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1069	1170	
==>e
and Code -- because it is both a namespace of symbols and has
a main body closure. 

the Package par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27326	27435	
==>a method of the parser C<FLAG_$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_fl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13188	13281	
==>to this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13188	13281	
==>to this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11164	11360	
==>&& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11164	11360	
==>&& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11164	11360	
==>&& ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everythin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2067	2180	
==>L_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2067	2180	
==>L_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2126	2285	
==>_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2126	2285	
==>_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2126	2285	
==>_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3515	3615	
==>ODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3515	3615	
==>ODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3515	3615	
==>ODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_typ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	209	311	
==>ame thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41148	41242	
==>s embedding of Template modules into the same files as
program code, rather than requiring sepa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41148	41242	
==>s embedding of Template modules into the same files as
program code, rather than requiring sepa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	923	1014	
==>key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	923	1014	
==>key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	923	1014	
==>key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12694	12870	
==>tch[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12688	12864	
==>tch[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1] <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11403	11494	
==>pt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12499	12661	
==>':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12499	12661	
==>':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12499	12661	
==>':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6724	6822	
==>f->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6724	6822	
==>f->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6724	6822	
==>f->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1117	1231	
==>"})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1117	1231	
==>"})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1117	1231	
==>"})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1903	2041	
==>:$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5380	5518	
==>:$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4310	4448	
==>:$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6155	6299	
==>PLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6155	6299	
==>PLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6155	6299	
==>PLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            : <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9084	9191	
==>the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"",
    ensure => sub { -r $initrd <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7820	7913	
==>d, only elements whose indices match
C<$index ~~ any(@indextests)> are iterated.

What is retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3306	3435	
==>ta eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3306	3435	
==>ta eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8853	9010	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8853	9010	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8853	9010	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9293	9402	
==>-----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9293	9402	
==>-----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9293	9402	
==>-----

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # make <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1783	1926	
==>lf->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        el <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	501	614	
==>3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<c <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	501	614	
==>3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14069	14190	
==>is_test>

  my $is_test = $strap->_is_test($line, \%test);

Checks if the $line is a test report (ie. 'ok/not ok').  Repor <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32501	32593	
==>item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37051	37143	
==>item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	598	717	
==>der of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	598	717	
==>der of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	598	717	
==>der of output can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5989	6087	
==>SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5989	6087	
==>SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5989	6087	
==>SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	724	827	
==>-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	724	827	
==>-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	724	827	
==>-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep clon <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16041	16162	
==>ssword" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    not <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16041	16162	
==>ssword" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    not <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	310	415	
==>gs"
      unless $install_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	577	684	
==>x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	577	684	
==>x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	577	684	
==>x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14955	15070	
==>know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14955	15070	
==>know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14955	15070	
==>know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	314	409	
==>Span::Code.compare is incomplete
    * Constructors should emit error messages if there are unkn <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	314	409	
==>Span::Code.compare is incomplete
    * Constructors should emit error messages if there are unkn <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7503	7604	
==>EST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-u <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7503	7604	
==>EST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	802	911	
==>nstanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	802	911	
==>nstanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	802	911	
==>nstanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13247	13354	
==>ta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13247	13354	
==>ta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13247	13354	
==>ta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	339	465	
==>dded by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	339	465	
==>dded by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	339	465	
==>dded by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14960	15052	
==>est::More function is_deeply.
The plan currently is to implement this as a mutually recursive <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15018	15110	
==>est::More function is_deeply.
The plan currently is to implement this as a mutually recursive <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	681	781	
==>rds compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	681	781	
==>rds compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9482	9618	
==>t;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9482	9618	
==>t;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($m <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3544	3641	
==>fig,
    getConfig
) where

import qualified Data.Map as Map
import qualified Pugs.Version

config <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1186	1282	
==>CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n or $^n.  having the two of them "n <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2168	2250	
==>sted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/P <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2168	2250	
==>sted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10712	10823	
==>ername * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10712	10823	
==>ername * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26904	26999	
==>nding argument is
provided (it defaults to empty if the argument is not provided).

Some example <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26904	26999	
==>nding argument is
provided (it defaults to empty if the argument is not provided).

Some example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27470	27565	
==>dy>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zero attributes.  I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4885	5019	
==>"# TODO " . _('$.description');
            return join(' ', $ok, _('$.number'), $description);            
        },
        'status' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5864	5989	
==>my $name = $n->{'name'};
        my $rep = ucfirst $n->rep_type;
        my $type = $n->{'type'};
	my $pkg_this = "${pkg_root} <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	786	888	
==>les, eg StringNumericLiteral, are not used in parsing JavaScript,
#     but rather in implementing it ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9437	9652	
==>elf;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9437	9652	
==>elf;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9437	9652	
==>elf;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	242	352	
==>L2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	242	352	
==>L2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	242	352	
==>L2JS needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3468	3587	
==>te each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6945	7064	
==>te each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5902	6021	
==>te each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2077	2182	
==>was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+)/ and $smoke{pugs_v <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6443	6540	
==>_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Typ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6443	6540	
==>_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	962	1045	
==>"PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	962	1045	
==>"PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	962	1045	
==>"PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2291	2371	
==>ostfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2291	2371	
==>ostfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2291	2371	
==>ostfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11423	11541	
==>able(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11423	11541	
==>able(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11423	11541	
==>able(\%params);
    return $method_table->{$label};                
});

::Class.meta.add_method('get_method_list' => m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	816	936	
==>$_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	816	936	
==>$_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	816	936	
==>$_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2447	2536	
==>n $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_clo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2447	2536	
==>n $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_clo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8817	8941	
==>"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8817	8941	
==>"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17187	17295	
==>see 11.10
      <BitwiseANDExpression>
    | <BitwiseXORExpression> <'^'> <BitwiseANDExpression>
}
rule Bitwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3956	4045	
==>paque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3956	4045	
==>paque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3956	4045	
==>paque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	142	250	
==>-----------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	142	250	
==>-----------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	142	250	
==>-----------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.la <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8964	9068	
==>_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1406	1541	
==>nal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1406	1541	
==>nal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1615	1750	
==>nal(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2566	2669	
==>le, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2566	2669	
==>le, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2913	3016	
==>le, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9618	9741	
==>ion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13095	13218	
==>ion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12367	12490	
==>ion in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!headi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3582	3694	
==>"<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3582	3694	
==>"<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3582	3694	
==>"<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3 <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	645	742	
==>ct($duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$self.add($dur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18198	18294	
==>re multiple DBMS
objects want to use the same external resources, such as a repository file
on di <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18198	18294	
==>re multiple DBMS
objects want to use the same external resources, such as a repository file
on di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2903	3111	
==>>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2903	3111	
==>>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2903	3111	
==>>{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2988	3090	
==>ile\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2988	3090	
==>ile\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2988	3090	
==>ile\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6391	6648	
==>$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        & <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6391	6648	
==>$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        & <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24379	24487	
==>ct has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28931	29039	
==>ct has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27798	27906	
==>ct has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of thi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5099	5337	
==>cript $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4311	4513	
==>cript $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22778	22882	
==>p::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6406	6559	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6406	6559	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6406	6559	
==>} ]                      # a list of all the superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5973	6067	
==>less($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5973	6067	
==>less($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5973	6067	
==>less($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doub <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	44	142	
==>ad1 NAME

Method - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are binding <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10471	10568	
==>> operator, you can use
'_' as a replacement for '-' in header names.

The header() method accepts <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10471	10568	
==>> operator, you can use
'_' as a replacement for '-' in header names.

The header() method accepts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7676	7817	
==>gle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->ite <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7676	7817	
==>gle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->ite <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7676	7817	
==>gle(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8768	8898	
==>[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8768	8898	
==>[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8768	8898	
==>[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	224	328	
==>File::Spec->splitdir( $path );
my $fullname = join '.', @path, $name;
my $data = uc("__${name}__");

open <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22006	22099	
==>e and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22006	22099	
==>e and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5137	5263	
==>.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5137	5263	
==>.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1470	1562	
==>bstr $relativePrecedence, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTableKey}{e <==
3	/Users/nnunley/pugs/util/func_refact.pl	2082	2212	
==>ith $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $size - $oldsize; # new member count
}

sub candidates { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20039	20136	
==>ilers. It does so in a most specific to most general order.
So inner blocks get compiled first, th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20039	20136	
==>ilers. It does so in a most specific to most general order.
So inner blocks get compiled first, th <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	334	455	
==>eferences using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * si <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	334	455	
==>eferences using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * si <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9011	9129	
==>y ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expressi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1164	1275	
==>ode } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1175	1286	
==>ode } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unle <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2246	2345	
==>crosecond returns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond returns In <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	801	895	
==>lass Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	801	895	
==>lass Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6474	6570	
==>m_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6474	6570	
==>m_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6474	6570	
==>m_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4333	4453	
==>/^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4333	4453	
==>/^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39104	39197	
==>E ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39104	39197	
==>E ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4221	4395	
==>k?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whet <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4221	4395	
==>k?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2386	2552	
==>> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17259	17368	
==>rsection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20736	20845	
==>rsection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20314	20423	
==>rsection( $other!heading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8588	8765	
==>, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8588	8765	
==>, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8588	8765	
==>, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Jun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	428	537	
==>n.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	428	537	
==>n.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constan <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2246	2344	
==>my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3403	3512	
==>} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3403	3512	
==>} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3403	3512	
==>} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1122	1229	
==>rr;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or die "Couldn't remove \"$pilfn.err\": $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15746	15847	
==>l::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15746	15847	
==>l::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12638	12739	
==>s') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6113	6214	
==>s') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1641	1763	
==>elude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1848	1970	
==>elude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	195	305	
==>Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@token <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	643	845	
==>tack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1498	1647	
==>:node<Num>).add_children(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>). <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23706	23850	
==>he (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:...), copy-and-push
  if ($type eq 'group') {
    push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11250	11339	
==>uilder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail doe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1708	1795	
==>uilder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail doe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1708	1795	
==>uilder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9149	9298	
==>ersed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9149	9298	
==>ersed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9149	9298	
==>ersed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #wa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5805	5915	
==>shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5805	5915	
==>shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) { <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	745	841	
==>re enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only method <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	745	841	
==>re enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only method <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17557	17652	
==>thod emits a warning and returns undef.

- `span()`

Returns the internal object that represents <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17557	17652	
==>thod emits a warning and returns undef.

- `span()`

Returns the internal object that represents <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10822	11007	
==>val $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10822	11007	
==>val $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8516	8642	
==>SSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8516	8642	
==>SSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12294	12393	
==>idate //= 'P6opaque';
    my $self = $class.CREATE(repr => $canidate, %params);
    $self.BUILDALL($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37056	37152	
==>ny situation where a pair of source
relations have zero attributes in common, their joining degen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41605	41701	
==>ny situation where a pair of source
relations have zero attributes in common, their joining degen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41228	41324	
==>ny situation where a pair of source
relations have zero attributes in common, their joining degen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1939	2030	
==>:Builder;

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteracti <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	233	318	
==>-------------------------------------------------------------
## constructors

submeth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	233	318	
==>-------------------------------------------------------------
## constructors

submeth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8815	8926	
==>r :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8815	8926	
==>r :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	988	1102	
==>ance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1193	1307	
==>ance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1254	1368	
==>ance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1428	1522	
==>.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1428	1522	
==>.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1428	1522	
==>.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13676	13770	
==>:Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13676	13770	
==>:Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13676	13770	
==>:Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11174	11288	
==>e<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11174	11288	
==>e<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	476	574	
==>omated testing, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7250	7346	
==>}
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7250	7346	
==>}
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7250	7346	
==>}
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	447	543	
==>S::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method ac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	447	543	
==>S::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method ac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	447	543	
==>S::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method ac <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30740	30831	
==>sponding transformation of each tuple), but
that any duplicates following the transformation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35291	35382	
==>sponding transformation of each tuple), but
that any duplicates following the transformation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34482	34573	
==>sponding transformation of each tuple), but
that any duplicates following the transformation <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	780	884	
==>rnals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $stat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3200	3301	
==>string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3200	3301	
==>string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37464	37560	
==>oned binary join()
operator, and the order of its arguments is not significant to the result;
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42013	42109	
==>oned binary join()
operator, and the order of its arguments is not significant to the result;
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41654	41750	
==>oned binary join()
operator, and the order of its arguments is not significant to the result;
the <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	192	288	
==>E_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	192	288	
==>E_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	597	710	
==>TROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	597	710	
==>TROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	597	710	
==>TROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixe <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	887	1005	
==>( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	887	1005	
==>( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17054	17155	
==>$first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > length <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9562	9706	
==>mit( $n->{name} ) .
            " { my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5327	5427	
==>stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5327	5427	
==>stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28697	28792	
==>I that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28697	28792	
==>I that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5820	5957	
==>t "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $pa <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4370	4489	
==>}; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4370	4489	
==>}; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_ <==
3	/Users/nnunley/pugs/util/addauthors.pl	489	605	
==>c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	150	256	
==>$pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	150	256	
==>$pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4278	4407	
==>t->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4278	4407	
==>t->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4278	4407	
==>t->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19471	19582	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19471	19582	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19471	19582	
==>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11259	11370	
==>ver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11259	11370	
==>ver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3299	3416	
==>);
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3299	3416	
==>);
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3655	3772	
==>);
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my % <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12556	12655	
==>hings that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12556	12655	
==>hings that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It is <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27027	27125	
==>fter each
test whether new files appeared in that directory, and report them as

  LEAKED FILES: sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2186	2295	
==>);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2186	2295	
==>);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2186	2295	
==>);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	792	890	
==>ing more superclasses to a Class, all of the methods that are
included via roles will be able to ac <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10345	10442	
==>ld be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10403	10500	
==>ld be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2940	3076	
==>bel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2940	3076	
==>bel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2940	3076	
==>bel} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14494	14601	
==>text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14494	14601	
==>text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9050	9159	
==>/t$/html/;
  
  my $output_path   = inpath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4191	4286	
==>(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4191	4286	
==>(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16373	16473	
==>loodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_buck <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16373	16473	
==>loodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_buck <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6966	7087	
==>OF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6966	7087	
==>OF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6966	7087	
==>OF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9712	9816	
==>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	# a -> lis <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9322	9414	
==>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	), <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9517	9609	
==>new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	), <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1838	1972	
==>Spec->updir || $file eq File::Spec->curdir;
            next if $file eq ".svn";
            next if $file eq "CVS";
            my $cu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1325	1449	
==>t::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            en <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1325	1449	
==>t::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            en <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5973	6080	
==>->new(),
            attribute->new('%:private_methods') => hash->new(),
            attribute->new('%:attri <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7118	7212	
==>allow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=hea <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7118	7212	
==>allow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=hea <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2956	3188	
==>m>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2956	3188	
==>m>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	74	162	
==>Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs::Grammar <==
3	/Users/nnunley/pugs/util/grokprims.pl	1103	1216	
==>me = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/pr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	585	685	
==>t is created when you
declare a new class.

A class is a role with the enhancement that is it I<typab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7119	7209	
==>singleton/class method');
   
is($Object->singleton_test_on_object(), 
  '&Object::singleto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	456	557	
==>ge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	456	557	
==>ge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	456	557	
==>ge an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1142	1272	
==>rigName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1142	1272	
==>rigName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1142	1272	
==>rigName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	118	248	
==>re it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/TEST will use -MTe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2476	2576	
==>tringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2476	2576	
==>tringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3547	3647	
==>d (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3547	3647	
==>d (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3547	3647	
==>d (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1314	1456	
==>_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1325	1467	
==>_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { ne <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3175	3301	
==>extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25941	26059	
==>pture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26220	26338	
==>pture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1145	1245	
==>n.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method get_subscriptions (C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	271	368	
==>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	271	368	
==>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	271	368	
==>{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13953	14078	
==>er for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13953	14078	
==>er for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	217	322	
==>Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_sour <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31101	31194	
==>de $predicate!) returns Relation>

This method is a generic relational operator that returns a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35651	35744	
==>de $predicate!) returns Relation>

This method is a generic relational operator that returns a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8133	8229	
==>, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8133	8229	
==>, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6514	6674	
==>ttr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6514	6674	
==>ttr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6514	6674	
==>ttr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10900	11029	
==>ext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10900	11029	
==>ext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11466	11566	
==>.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsign <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15456	15557	
==>>{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15456	15557	
==>>{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15456	15557	
==>>{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6677	6779	
==>ods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6677	6779	
==>ods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8874	8976	
==>ods.

=over 4

=item B<report returns Str>

This handles the specific details of TAP output for Skip te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	885	1008	
==>);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	885	1008	
==>);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	885	1008	
==>);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12308	12432	
==>iX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12308	12432	
==>iX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12308	12432	
==>iX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5575	5669	
==>-o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5575	5669	
==>-o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5575	5669	
==>-o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2038	2128	
==>le($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2038	2128	
==>le($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2038	2128	
==>le($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{t <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	53	147	
==>(which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENG <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	53	147	
==>(which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENG <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	107	229	
==>Model::Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23624	23718	
==>oo many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23624	23718	
==>oo many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5348	5535	
==>.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8825	9012	
==>.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7845	8032	
==>.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6986	7094	
==>= $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6986	7094	
==>= $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6986	7094	
==>= $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13176	13279	
==>TI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13176	13279	
==>TI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13176	13279	
==>TI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38934	39101	
==>)->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12694	12832	
==>nts, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12973	13111	
==>nts, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             rul <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	863	976	
==>the multidimensional arrays of the match
                     object, telling captures where in the deep structure <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	863	976	
==>the multidimensional arrays of the match
                     object, telling captures where in the deep structure <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19631	19734	
==>list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::Item::i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3933	4045	
==>././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3933	4045	
==>././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4191	4310	
==>Name' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4191	4310	
==>Name' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1041	1160	
==>Name' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4550	4679	
==>6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4550	4679	
==>6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4550	4679	
==>6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times ( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11107	11217	
==>ed)
      # $8  captures the closing delimiter (provided only one delimiter was specified)
      my $reopts   = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13680	13779	
==>core bug that needs to
be sorted out before you can continue.

It is also possible to use the `force <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13738	13837	
==>core bug that needs to
be sorted out before you can continue.

It is also possible to use the `force <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3268	3516	
==>etta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3268	3516	
==>etta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2336	2446	
==>e: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2553	2663	
==>e: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't o <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3094	3181	
==>trarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fprintf(stderr," flags=%lu\n",fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1601	1721	
==>my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1601	1721	
==>my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1601	1721	
==>my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1088	1246	
==>rrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1088	1246	
==>rrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1088	1246	
==>rrent_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	995	1117	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	995	1117	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	995	1117	
==>stance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1844	1974	
==>>{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1844	1974	
==>>{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1844	1974	
==>>{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inlin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11130	11249	
==>in => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11130	11249	
==>in => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our ni <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	793	895	
==>die::Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49641	49782	
==>ity'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1479	1573	
==>code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Var <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1479	1573	
==>code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Var <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1620	1724	
==>$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1824	1928	
==>$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22950	23046	
==>OPT_ANCH_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MAT <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5469	5590	
==>) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5469	5590	
==>) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16835	16925	
==>::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16835	16925	
==>::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16835	16925	
==>::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6525	6639	
==>!perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6525	6639	
==>!perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6525	6639	
==>!perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3816	4003	
==>ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3816	4003	
==>ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown P <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3657	3756	
==>l_pv, and %^H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both segfault <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4231	4348	
==>y @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4231	4348	
==>y @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4231	4348	
==>y @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1645	1776	
==>ispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1645	1776	
==>ispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1645	1776	
==>ispatcher, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	977	1086	
==>a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4455	4564	
==>a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15441	15562	
==>qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16856	16977	
==>qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21612	21733	
==>qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1095	1190	
==><$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1095	1190	
==><$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5065	5207	
==>eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5065	5207	
==>eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5065	5207	
==>eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7627	7742	
==>LASS_NUMERIC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3419	3518	
==>headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3419	3518	
==>headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1369	1457	
==>${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1369	1457	
==>${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1369	1457	
==>${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11887	12119	
==>sion', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sou <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11887	12119	
==>sion', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20415	20512	
==>abstracted to the ender() method of the node.

The init() method has been moved to another file to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4295	4573	
==>ew($e, sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

su <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7274	7393	
==>"real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uar <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7274	7393	
==>"real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1233	1348	
==>body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1233	1348	
==>body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1233	1348	
==>body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2873	2977	
==>f Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2873	2977	
==>f Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14837	14992	
==>fined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14837	14992	
==>fined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14837	14992	
==>fined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1629	1747	
==>has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1629	1747	
==>has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	351	466	
==>my $line (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8025	8194	
==>.. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNC <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8025	8194	
==>.. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNC <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8025	8194	
==>.. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNC <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5605	5707	
==>ilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It als <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5605	5707	
==>ilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It als <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7802	7904	
==>ilder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It als <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	499	603	
==>tions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	499	603	
==>tions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	499	603	
==>tions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - ke <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7707	7838	
==>ation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11184	11315	
==>ation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7097	7197	
==>etting a Regex

To have the parser work on a specific regex, you can do use any of the
following meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4409	4518	
==>me." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4409	4518	
==>me." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4999	5108	
==>me." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8572	8679	
==>$res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8572	8679	
==>$res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8572	8679	
==>$res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	254	374	
==>die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	254	374	
==>die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	254	374	
==>die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportLis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8352	8462	
==>method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8352	8462	
==>method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8352	8462	
==>method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2569	2685	
==>in_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2569	2685	
==>in_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2569	2685	
==>in_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	959	1072	
==>}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	959	1072	
==>}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	959	1072	
==>}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	610	730	
==>$match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	610	730	
==>$match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.c <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9562	9724	
==>ygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (wh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22401	22516	
==>apture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22680	22795	
==>apture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5091	5195	
==>bj, calls my_editor() on it.
The editor routine is passed the current object in the recursion and
the wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5091	5195	
==>bj, calls my_editor() on it.
The editor routine is passed the current object in the recursion and
the wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5091	5195	
==>bj, calls my_editor() on it.
The editor routine is passed the current object in the recursion and
the wan <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	600	707	
==>(very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4102	4181	
==>73741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4102	4181	
==>73741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4) <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1489	1658	
==>-2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".." <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1489	1658	
==>-2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".." <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3857	3998	
==>r->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
            las <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5098	5215	
==>names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8575	8692	
==>names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6362	6461	
==>oes
# to avoid endless recursion
$Class->add_method('does' => sub {
    return $_[1] eq 'Role' if $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30915	31011	
==>mpty
tuple/Mapping or a tuple that is identical to the original, in which case
this method return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35465	35561	
==>mpty
tuple/Mapping or a tuple that is identical to the original, in which case
this method return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34656	34752	
==>mpty
tuple/Mapping or a tuple that is identical to the original, in which case
this method return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13530	13682	
==>re bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13530	13682	
==>re bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13530	13682	
==>re bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	292	389	
==>ed) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	292	389	
==>ed) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	292	389	
==>ed) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4610	4742	
==>> [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return a positional capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18668	18772	
==>ening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15089	15193	
==>ening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14664	14766	
==>ssion>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryExpression>
}
rule <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26742	26838	
==>ers of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31294	31390	
==>ers of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2121	2232	
==>ode ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2121	2232	
==>ode ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2739	2853	
==>,
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# Thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2739	2853	
==>,
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# Thi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11159	11257	
==>] = "\t"}, !.
p6_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_seque <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2302	2408	
==>n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2519	2625	
==>n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1151	1275	
==>e node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1151	1275	
==>e node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1151	1275	
==>e node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, document.b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34575	34689	
==>set;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34575	34689	
==>set;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34575	34689	
==>set;
    my $length = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2288	2401	
==>ut  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_mat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2288	2401	
==>ut  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_mat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2368	2481	
==>ut  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9811	9950	
==>ey'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9811	9950	
==>ey'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9811	9950	
==>ey'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7951	8094	
==>LF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7951	8094	
==>LF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7951	8094	
==>LF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16942	17077	
==>=> val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and returns it
# x stays free, and thus becomes generic (id <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	156	250	
==>lude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
me <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	156	250	
==>lude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2584	2729	
==>my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2584	2729	
==>my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2584	2729	
==>my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10630	10757	
==>.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10630	10757	
==>.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33213	33326	
==>ol (C<^> with
C</m> on)

=head2 bound

Family: anchor

Types: bound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16137	16254	
==>urn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19614	19731	
==>urn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pair <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3521	3628	
==>_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	732	825	
==>_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	732	825	
==>_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	732	825	
==>_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	162	313	
==>om_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use U <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	162	313	
==>om_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use U <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	162	313	
==>om_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use U <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	529	657	
==>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	529	657	
==>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	529	657	
==>{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15509	15611	
==>ime at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15509	15611	
==>ime at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10871	11066	
==>required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10871	11066	
==>required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10871	11066	
==>required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    re <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	709	816	
==>open IN, "< $file" or die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">] <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12947	13041	
==>$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Retu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12947	13041	
==>$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12483	12607	
==>d')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12483	12607	
==>d')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12483	12607	
==>d')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11511	11609	
==>all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11511	11609	
==>all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3702	3798	
==>rm:
  goto null_term if $position >= $lastPosition;
 
  my $currentTermTable = $self->whitespaceT <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5741	5841	
==>t)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5741	5841	
==>t)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1735	1862	
==>ile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Rea <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1735	1862	
==>ile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Rea <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	142	255	
==>se Exporter;
use Benchmark;
use Config;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3652	3754	
==>));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3652	3754	
==>));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3652	3754	
==>));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2608	2714	
==>"String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2608	2714	
==>"String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2608	2714	
==>"String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29021	29151	
==>uit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub ge <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29021	29151	
==>uit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub ge <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	376	490	
==>uit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9674	9830	
==>f->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9674	9830	
==>f->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9674	9830	
==>f->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1523	1675	
==>n.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1523	1675	
==>n.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spa <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	507	603	
==>join_map ns, { "...$^n..." }, which might tilt
the balance.

Clutter:: is a package for macros de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1526	1646	
==>}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1526	1646	
==>}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1526	1646	
==>}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        arg <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	583	700	
==>arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $.normalizer_role;
            return $normalize <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	240	350	
==>l5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	224	329	
==>l5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	285	386	
==>.
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	285	386	
==>.
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	285	386	
==>.
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1785	1902	
==>turn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1785	1902	
==>turn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1785	1902	
==>turn 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3528	3637	
==>L $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3528	3637	
==>L $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1120	1261	
==>,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1120	1261	
==>,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar- <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2436	2533	
==>i (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2436	2533	
==>i (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2444	2567	
==>sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2444	2567	
==>sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2444	2567	
==>sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4142	4260	
==>pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4142	4260	
==>pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4142	4260	
==>pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	628	734	
==>+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	628	734	
==>+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	628	734	
==>+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	48	148	
==>odules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	48	148	
==>odules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warning <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	48	148	
==>odules PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2467	2596	
==>y->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2467	2596	
==>y->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2467	2596	
==>y->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38294	38395	
==>alue::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38294	38395	
==>alue::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38294	38395	
==>alue::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9663	9863	
==>->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9663	9863	
==>->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9663	9863	
==>->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1692	1849	
==>[ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1692	1849	
==>[ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1692	1849	
==>[ 
                @{$current_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6272	6386	
==>t @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n", <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33156	33250	
==>o translate a
message, the corresponding Template modules will be searched in the order
they ap <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33156	33250	
==>o translate a
message, the corresponding Template modules will be searched in the order
they ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13741	13841	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13741	13841	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13741	13841	
==>($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2729	2832	
==>n (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2729	2832	
==>n (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2729	2832	
==>n (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	103	349	
==>use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	103	349	
==>use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7939	8057	
==>e => [ $child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1954	2062	
==>Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    retur <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1954	2062	
==>Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	381	480	
==>de by hand if getting strange results by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9275	9391	
==>$gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9263	9379	
==>$gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22753	22850	
==>ause I've tried to fix those I've already
found. Those who find bugs should email me.  Messages sh <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9718	9879	
==>);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quant.
  package Regexp::Pars <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10863	10959	
==>niverse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Oth <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10863	10959	
==>niverse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9960	10071	
==>T);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9960	10071	
==>T);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PEx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9960	10071	
==>T);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PEx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7811	8010	
==>end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7811	8010	
==>end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7811	8010	
==>end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start+ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	606	706	
==>) && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7210	7337	
==>ar marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7210	7337	
==>ar marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7210	7337	
==>ar marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	329	425	
==>pile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is direct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	329	425	
==>pile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is direct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	329	425	
==>pile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is direct <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30912	31009	
==>ent one.  The
Member Name comes next and is what distinguishes each module from others in
its set. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30912	31009	
==>ent one.  The
Member Name comes next and is what distinguishes each module from others in
its set. <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2253	2344	
==>mplex64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1203	1330	
==>at(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1203	1330	
==>at(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1203	1330	
==>at(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLeve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1680	1777	
==>cture with three node forms: Var

(variable lookup), App (application) and Lit (literal).



App i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12004	12101	
==>eturn "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1612	1706	
==>cture with three node forms: Var
(variable lookup), App (application) and Lit (literal).

App i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7628	7834	
==>));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7628	7834	
==>));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7628	7834	
==>));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7145	7249	
==>tch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7145	7249	
==>tch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7145	7249	
==>tch:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 a <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5275	5402	
==>r;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*")) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3228	3330	
==>$in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3228	3330	
==>$in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19831	19929	
==>setta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19831	19929	
==>setta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15119	15243	
==>op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub postfix {
    my $n = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18763	18862	
==>ocument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18763	18862	
==>ocument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6383	6559	
==>> [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6383	6559	
==>> [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6383	6559	
==>> [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	505	652	
==>iphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	505	652	
==>iphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1728	1851	
==>|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

##multi method infix:<->( $self: Int|Real $iso8601_dur ) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2770	2889	
==>);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($res <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2828	2947	
==>);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($res <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3697	3799	
==>$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensions {
    my ($self, $pat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7274	7382	
==>XP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7274	7382	
==>XP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6095	6191	
==>hift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14653	14770	
==>C->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14653	14770	
==>C->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14653	14770	
==>C->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10493	10641	
==>:CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10493	10641	
==>:CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10493	10641	
==>:CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impli <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3124	3260	
==>,
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3124	3260	
==>,
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3124	3260	
==>,
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9746	9880	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \& <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5995	6096	
==>.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5995	6096	
==>.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2009	2119	
==>", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2009	2119	
==>", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2009	2119	
==>", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4852	4980	
==>endency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5316	5444	
==>endency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1431	1524	
==>le.  Test::Harness is the module that reads the
output from Test::Simple, Test::More and other <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2157	2277	
==>e
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	823	931	
==>= 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	780	884	
==>= 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3843	3983	
==>)
                my $self = shift;
                my $values = shift;
                push @{$self->get_value('@:slots')}, mk_containers(@$ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2830	2951	
==>$.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2830	2951	
==>$.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14245	14376	
==>my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17722	17853	
==>my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17138	17269	
==>my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1154	1250	
==>N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1154	1250	
==>N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1154	1250	
==>N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«== <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2885	3016	
==>d') ? 'ok ' : 'not ok ';
            $ok    .= _('$.number');
            $ok    .= " - " . _('$.description') if _('$.description') <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10786	10883	
==>, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10786	10883	
==>, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3953	4089	
==>e('@:slots')}, mk_containers(@$values);
            },

            'array_unshift' => sub { # @values -> ()
                my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	292	389	
==>four.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	292	389	
==>four.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3562	3652	
==>al) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3562	3652	
==>al) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3562	3652	
==>al) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	604	693	
==>args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	604	693	
==>args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	604	693	
==>args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	13	124	
==>Span;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * f <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	13	124	
==>Span;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1081	1185	
==>ution {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainde <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4465	4562	
==>l interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4465	4562	
==>l interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  requ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	443	529	
==>))->code;
*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name><?ws>?<block>{
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5303	5403	
==>filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5303	5403	
==>filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5303	5403	
==>filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6843	6986	
==>(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6843	6986	
==>(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6843	6986	
==>(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8308	8474	
==>0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8308	8474	
==>0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8308	8474	
==>0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1080	1201	
==>name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::require_bareword {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16743	16843	
==>ject, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16743	16843	
==>ject, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8301	8413	
==>elf)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8301	8413	
==>elf)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8301	8413	
==>elf)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	217	311	
==>) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	217	311	
==>) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	217	311	
==>) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21066	21172	
==>s {  # see 12.6
      <'do'> <Statement> <'while'> <'('> <Expression> <');'>
    | <'while'> <'('> <Express <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34578	34677	
==>n its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39128	39227	
==>n its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38634	38733	
==>n its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invocant R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14650	14750	
==>s);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14650	14750	
==>s);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14650	14750	
==>s);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10441	10603	
==>arams } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10441	10603	
==>arams } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10441	10603	
==>arams } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10422	10562	
==>rray[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10422	10562	
==>rray[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10422	10562	
==>rray[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2872	3005	
==>et = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2872	3005	
==>et = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19132	19227	
==>_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_code {
    my($code)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1241	1351	
==>lumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1241	1351	
==>lumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1241	1351	
==>lumn_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2530	2659	
==>ose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2530	2659	
==>ose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2530	2659	
==>ose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9914	10027	
==>$INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9914	10027	
==>$INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9914	10027	
==>$INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10414	10544	
==>dd support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10414	10544	
==>dd support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10414	10544	
==>dd support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{ti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10879	11030	
==>curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10879	11030	
==>curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $qu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8602	8723	
==>write( $footer ) if $footer;
  }
  
  method get_test_number
  {
      return +@:results + 1;
  }
  
  method plan ( Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11075	11177	
==>>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11075	11177	
==>>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	6	105	
==>/bin/perl -w
use strict;
use Fatal qw(open close);

open my $fh, '>index.html';
print { $fh } <<'END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8695	8824	
==>perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8695	8824	
==>perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8695	8824	
==>perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4306	4415	
==>lap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4306	4415	
==>lap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4306	4415	
==>lap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1605	1730	
==>" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($clas <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	3	99	
==>ad1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	3	99	
==>ad1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	273	390	
==>rgs.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	273	390	
==>rgs.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	273	390	
==>rgs.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6614	6730	
==>' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6614	6730	
==>' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6614	6730	
==>' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3750	3909	
==>_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3750	3909	
==>_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3750	3909	
==>_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, % <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	612	766	
==>e, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	612	766	
==>e, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	908	996	
==>} }
RULE
*{'condition_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op>:= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5464	5601	
==>ilable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5464	5601	
==>ilable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5464	5601	
==>ilable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9942	10066	
==>--> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comp <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1157	1278	
==>--> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14516	14624	
==>=> $neg, \$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12371	12511	
==>$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12371	12511	
==>$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12371	12511	
==>$label} = $attribute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	974	1088	
==>)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	974	1088	
==>)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27381	27475	
==>rness ignore the exit status of child processes when defined.

=item C<HARNESS_NOTTY>

When set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12640	12817	
==>rn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12640	12817	
==>rn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12640	12817	
==>rn
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3275	3431	
==>es to $PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bindir = "$Site/$path/bin";
                la <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7544	7650	
==>(!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7544	7650	
==>(!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1164	1272	
==>f = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	267	374	
==>f = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6770	6880	
==>ion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6770	6880	
==>ion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6770	6880	
==>ion ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8761	8887	
==>Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8761	8887	
==>Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8761	8887	
==>Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    ch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5015	5123	
==>capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5237	5345	
==>capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5024	5127	
==>ssed, Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5024	5127	
==>ssed, Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6548	6651	
==>ssed, Str $description = '' )>

Records that a test has passed or failed, depending on the value of C<$p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6345	6461	
==>ispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2809	2925	
==>m, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2809	2925	
==>m, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2809	2925	
==>m, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2290	2381	
==>opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2290	2381	
==>opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2290	2381	
==>opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5249	5347	
==>0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5249	5347	
==>0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5249	5347	
==>0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10230	10343	
==>tch;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10224	10337	
==>tch;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1424	1532	
==>e::Std;
	use base qw/Blondie::TypeSafe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19348	19523	
==>rs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19348	19523	
==>rs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19348	19523	
==>rs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { ou <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3297	3418	
==>h line\n" ],
      [ 'file21', $file21, "12th line\n\n\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7168	7285	
==>$_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $inf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	469	586	
==>$_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7123	7211	
==>'$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7123	7211	
==>'$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7123	7211	
==>'$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3649	3812	
==>$$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3649	3812	
==>$$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3649	3812	
==>$$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2357	2546	
==>em' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2357	2546	
==>em' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                wh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	596	757	
==>d => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( error( Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15066	15181	
==>MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15066	15181	
==>MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15066	15181	
==>MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Ar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11006	11104	
==>ata to be used or
displayed by your program.  It is analagous to a simplified version of the
"Docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11006	11104	
==>ata to be used or
displayed by your program.  It is analagous to a simplified version of the
"Docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4362	4462	
==>, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4362	4462	
==>, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4362	4462	
==>, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11690	11816	
==>tatus();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip doe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2124	2238	
==>tatus();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip doe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2124	2238	
==>tatus();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4051	4152	
==>>{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4051	4152	
==>>{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4641	4742	
==>>{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5011	5108	
==>ix}/$self->{path}", $self
    ) unless $self->{extensions};

    foreach my $obj (@{$self->{extens <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9794	9888	
==>elf.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9794	9888	
==>elf.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1142	1288	
==>these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1142	1288	
==>these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1142	1288	
==>these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramCo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3718	3826	
==>S::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3718	3826	
==>S::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3718	3826	
==>S::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	555	721	
==>se($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Lo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	555	721	
==>se($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Lo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6628	6733	
==>epo_index_groups, '');
}

sub _index_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1252	1364	
==>un,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1252	1364	
==>un,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1252	1364	
==>un,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	625	732	
==>if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	625	732	
==>if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	625	732	
==>if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15879	15983	
==>$label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15879	15983	
==>$label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15879	15983	
==>$label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9996	10097	
==>ation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The ar <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9996	10097	
==>ation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The ar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2869	2968	
==>arn) = Perl6::Run::OnPerl5::X1::PilToPerl5::emit($pil_tree);
	    my $failed = !defined $p5;
	    $w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4317	4446	
==>( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whitespacePosition = $position;
    push @bsrStack, "bsr_token_mat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2730	2844	
==>> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrap <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2730	2844	
==>> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrap <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2241	2410	
==>section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
su <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2241	2410	
==>section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	8	101	
==>ge Pugs::Grammar::Prefix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	990	1103	
==>ngleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * prop <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	990	1103	
==>ngleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * prop <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	363	476	
==>ld_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the act <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	363	476	
==>ld_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the act <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	363	476	
==>ld_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the act <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29159	29287	
==>alue::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29159	29287	
==>alue::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29159	29287	
==>alue::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @it <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	581	829	
==>given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	581	829	
==>given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interf <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8350	8500	
==>ng it.
            %mods.delete("sigspace");
        }
        if $pre ne "" {
            $pre ~= "::" if substr($pat,0,1) ne (":"|"#");
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8139	8273	
==>eton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $pla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	356	480	
==>eton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	356	480	
==>eton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	697	806	
==>read "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nnt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	697	806	
==>read "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nnt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	697	806	
==>read "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nnt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3269	3412	
==>uld be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3269	3412	
==>uld be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3269	3412	
==>uld be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	158	259	
==>if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	158	259	
==>if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	158	259	
==>if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("J <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	768	865	
==>> 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7491	7581	
==>t::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1719	1809	
==>t::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4174	4297	
==>!~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        F <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4174	4297	
==>!~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        F <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10455	10547	
==>]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n";

ou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1274	1371	
==>ining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harnes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1274	1371	
==>ining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harnes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1821	1918	
==>ining the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harnes <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5930	6034	
==>cs/notes/piln_object_repr_types.pod r8593.
# while (@array: --> List) { seems a preferable phrasing, it d <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1740	1837	
==>uced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1740	1837	
==>uced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15480	15570	
==>coded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15480	15570	
==>coded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	27	157	
==>h
$s ~~ @a        # $s Element in @a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Ele <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6528	6640	
==>op"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6528	6640	
==>op"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2285	2408	
==>e(q( <'grammar'> <grammar_name> \;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            " <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8254	8352	
==>ce a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbati <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8254	8352	
==>ce a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	23	127	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	23	127	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	23	127	
==>throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub new {
    m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1464	1560	
==>un-time inheritance/method dispatch need not look at the meta
objects; each dispatch table points <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19106	19282	
==>ays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19106	19282	
==>ays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19106	19282	
==>ays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15522	15619	
==>de can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15522	15619	
==>de can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19103	19198	
==>tin is primitive { List::shift(@array) };
multi shift ($array) is builtin is primitive { die "Ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6409	6529	
==>e.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6409	6529	
==>e.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6409	6529	
==>e.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3144	3254	
==>:_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3993	4103	
==>:_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_pri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6646	6744	
==>regcomp.c zero any of the match fields? */
}

/*
 * regexp_compile
 */

static regcomp_t previous_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1473	1573	
==>'is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1473	1573	
==>'is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1473	1573	
==>'is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2659	2757	
==>d('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2659	2757	
==>d('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2659	2757	
==>d('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6883	6997	
==>) - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6883	6997	
==>) - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6883	6997	
==>) - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# X <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	123	225	
==>e &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	123	225	
==>e &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5014	5123	
==>sh @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5014	5123	
==>sh @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5014	5123	
==>sh @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2019	2137	
==>tc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2019	2137	
==>tc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2019	2137	
==>tc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TO <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	185	289	
==>s';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::Code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	185	289	
==>s';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::Code <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4899	5000	
==>.yml");

# Reading and processing .t files
my $files = {}; # mapping from test-file-name to test-recor <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6150	6332	
==>rray: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6150	6332	
==>rray: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5137	5253	
==>eta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35466	35561	
==>od has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40016	40111	
==>od has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39576	39671	
==>od has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14716	14817	
==>hod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14716	14817	
==>hod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14716	14817	
==>hod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2912	3045	
==>g Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; yo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2912	3045	
==>g Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; yo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3259	3392	
==>g Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; yo <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	62	202	
==>ool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	62	202	
==>ool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4383	4479	
==>>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5105	5211	
==>ectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5105	5211	
==>ectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5105	5211	
==>ectly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wrap_package_sub($va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7856	7955	
==>ug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7856	7955	
==>ug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28792	28882	
==>yof_range, assertion, branch, close,
clump, digit, exact, flags, group, groupp, minmod, pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3267	3404	
==>Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3267	3404	
==>Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3267	3404	
==>Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38430	38529	
==>C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND E <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42979	43078	
==>C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND E <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42629	42728	
==>C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6141	6281	
==>= $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6141	6281	
==>= $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6141	6281	
==>= $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4949	5063	
==>dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4949	5063	
==>dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4949	5063	
==>dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)} <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10824	10956	
==>you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the back <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16630	16732	
==>urns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Rec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16630	16732	
==>urns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	557	655	
==>$subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	557	655	
==>$subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	557	655	
==>$subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3259	3378	
==>ke_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3259	3378	
==>ke_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3259	3378	
==>ke_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2308	2448	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2308	2448	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2308	2448	
==>tance structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if :: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29109	29208	
==>ion).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet bee <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33661	33760	
==>ion).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet bee <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8006	8128	
==>onpath(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonpath( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4251	4421	
==>to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4251	4421	
==>to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	555	658	
==>wever, in the case of a Role, it
is not bound to a type until the role is included in the class.

This h <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8434	8553	
==>de;
      SV* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 vio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15815	15911	
==>tional.  If the requested
resource has (or has not) been modified since the time specified in thi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15815	15911	
==>tional.  If the requested
resource has (or has not) been modified since the time specified in thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	223	356	
==>for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	223	356	
==>for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	223	356	
==>for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5359	5478	
==>0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5359	5478	
==>0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5359	5478	
==>0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36677	36783	
==>ase is where any any source relation has zero
tuples, in which case the result does too.  Another trivial c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41226	41332	
==>ase is where any any source relation has zero
tuples, in which case the result does too.  Another trivial c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40849	40955	
==>ase is where any any source relation has zero
tuples, in which case the result does too.  Another trivial c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	617	737	
==>< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 + <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	617	737	
==>< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4547	4653	
==>);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4547	4653	
==>);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4547	4653	
==>);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6448	6569	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6448	6569	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6448	6569	
==>he superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2774	2907	
==>{$<token>},
                map { "$_" } @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runti <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1259	1368	
==>ng delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST p <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1259	1368	
==>ng delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1115	1233	
==>led',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1115	1233	
==>led',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Me <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1029	1136	
==>nge Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf t <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1029	1136	
==>nge Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2298	2395	
==>n the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2298	2395	
==>n the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2298	2395	
==>n the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3664	3758	
==>F;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3664	3758	
==>F;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3664	3758	
==>F;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2977	3095	
==>',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2977	3095	
==>',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex a <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	242	341	
==>use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of d <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	242	341	
==>use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2786	2904	
==>my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2786	2904	
==>my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2786	2904	
==>my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14854	14964	
==>{...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14854	14964	
==>{...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14854	14964	
==>{...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10287	10408	
==>method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10287	10408	
==>method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10287	10408	
==>method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:private_methods' if $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10912	11020	
==>RL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16001	16094	
==>dd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16001	16094	
==>dd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6101	6225	
==>lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DAT <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6101	6225	
==>lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DAT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7185	7275	
==>$attrs!) returns Relation::Example {
    return $?SELF.project( $!heading.difference( $attr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8189	8315	
==>g?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8201	8327	
==>g?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5864	5991	
==>);
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5864	5991	
==>);
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21488	21579	
==>ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Regexp::Parser::lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35296	35412	
==>thod, because we don't want
to have &'s in our I<real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # st <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	386	489	
==>ead1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $bo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	386	489	
==>ead1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $bo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3277	3372	
==>>can_reduce($node);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$kind";
	wa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7019	7122	
==>s is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some in <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7019	7122	
==>s is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25776	25870	
==>t interact with the outside
environment at all.

A Relation::Example object has 2 main attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17191	17284	
==>LTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17191	17284	
==>LTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17191	17284	
==>LTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8259	8364	
==>:

=item * grammar => $category_name - the name of this category 
(a namespace or a Grammar name).

= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7302	7392	
==>le_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1127	1217	
==>le_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	712	810	
==>og::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl l <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	712	810	
==>og::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16945	17080	
==>tributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20422	20557	
==>tributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20000	20135	
==>tributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21428	21524	
==>6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21428	21524	
==>6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21428	21524	
==>6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Ar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11278	11405	
==>-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2273	2375	
==>t::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2184	2284	
==>t::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	83	201	
==>rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	83	201	
==>rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8494	8600	
==>ursively
multi unify => ('type::operator::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4882	5030	
==>a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4882	5030	
==>a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4882	5030	
==>a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3596	3712	
==>>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3847	3960	
==>>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3847	3960	
==>>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2649	2885	
==>nt;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2649	2885	
==>nt;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9299	9433	
==>nlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9299	9433	
==>nlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9299	9433	
==>nlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8756	8890	
==>se {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charse <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8756	8890	
==>se {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charse <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	532	654	
==>" unless $flavor;

    unless ($inserted++) {
        regexp_exechook_insert();
        regexp_hook_on();
    }

    no str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8257	8415	
==>ven want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX do <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8257	8415	
==>ven want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2	100	
==>/usr/bin/perl

use strict;
use warnings;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30135	30229	
==>ssociated with the
Message; this user string may also contain variable names that correspond
to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30135	30229	
==>ssociated with the
Message; this user string may also contain variable names that correspond
to <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4468	4599	
==>ATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */ <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	622	752	
==>{

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2405	2515	
==>ie $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2405	2515	
==>ie $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2405	2515	
==>ie $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2835	2964	
==>}
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5763	5885	
==>}
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5763	5885	
==>}
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4004	4102	
==>"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4004	4102	
==>"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4004	4102	
==>"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14707	14794	
==>SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14707	14794	
==>SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14707	14794	
==>SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1928	2064	
==>_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1928	2064	
==>_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7704	7813	
==>require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	896	1062	
==>icates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	896	1062	
==>icates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	896	1062	
==>icates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2960	3084	
==>= \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2960	3084	
==>= \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2960	3084	
==>= \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12695	12814	
==>st = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34590	34693	
==>ext::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34590	34693	
==>ext::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11851	11974	
==>ine, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11851	11974	
==>ine, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      t <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	828	920	
==>ass::Events::Event $event) {
        (.get_subscriptions($event) ==> .mk_notifications)».dis <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32213	32355	
==>dant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32868	33010	
==>dant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => me <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1852	1947	
==>t snapshot.  There are currently
no support for match flags; regexes constructed with this modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2419	2523	
==>_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2419	2523	
==>_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2419	2523	
==>_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2639	2742	
==>X: extract the useful similarities into a role
  # cannot inherit from TestPlan because of the lack of $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	396	497	
==>X: extract the useful similarities into a role
# cannot inherit from TestPlan because of the lack of $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	396	497	
==>X: extract the useful similarities into a role
# cannot inherit from TestPlan because of the lack of $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3480	3609	
==>e ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3480	3609	
==>e ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3480	3609	
==>e ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9703	9813	
==>t(anyof_class => xdigit => $neg, $how);
  });

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1696	1792	
==>n ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear() <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1696	1792	
==>n ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	110	213	
==>e contains p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	110	213	
==>e contains p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	110	213	
==>e contains p5 runtime primitives which are written in p6.
Most will eventually be implemented in perl6/P <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8241	8351	
==>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  <style ty <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3774	3870	
==>laim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    } <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3832	3928	
==>laim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	979	1080	
==>l ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helpe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	979	1080	
==>l ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helpe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	979	1080	
==>l ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helpe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	900	1033	
==>d;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	900	1033	
==>d;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	900	1033	
==>d;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5055	5166	
==>ro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5055	5166	
==>ro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5055	5166	
==>ro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6047	6189	
==>ts
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or symlinks to minimiz <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8545	8661	
==>ring_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8541	8657	
==>ring_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15749	15856	
==>{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10605	10712	
==>{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6074	6203	
==>?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6074	6203	
==>?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6074	6203	
==>?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17387	17487	
==>er = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17387	17487	
==>er = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16511	16638	
==>m string grammar      :optional
    .param int has_gram        :opt_flag
    .param string name         :optional
    .param int <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1241	1335	
==>ther uses as well.

Log::Selective exports a single function, C<note>, which is called with zer <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1241	1335	
==>ther uses as well.

Log::Selective exports a single function, C<note>, which is called with zer <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14182	14300	
==>od, $synhtml);
        
        # and parse it into a tree
        my $sobj = HTML::TreeBuilder->new_from_file($synhtml <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18224	18318	
==>for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18224	18318	
==>for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is o <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2451	2558	
==>bstr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2451	2558	
==>bstr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2549	2650	
==>h results.  This
module is an experiment, to see if it is possible to use the regexp
struct as a new a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17592	17756	
==>xs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37280	37376	
==>nerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41829	41925	
==>nerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41452	41548	
==>nerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	390	498	
==>there must be a more efficient way to do this,
      // but if I store the node in a variable outside of this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	390	498	
==>there must be a more efficient way to do this,
      // but if I store the node in a variable outside of this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	390	498	
==>there must be a more efficient way to do this,
      // but if I store the node in a variable outside of this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40050	40154	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40050	40154	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40050	40154	
==>is, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->un <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3056	3154	
==>ti sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3056	3154	
==>ti sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12563	12690	
==>)->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12563	12690	
==>)->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12563	12690	
==>)->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8978	9097	
==>list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8978	9097	
==>list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8978	9097	
==>list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	502	680	
==>urn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	417	595	
==>urn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	505	683	
==>urn '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1064	1159	
==>';
use constant RPe_NULNUL => --$ENUM, '%s matches null string many times';
use constant RPe_NES <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2705	2896	
==>leop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2716	2907	
==>leop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29163	29266	
==>but that some of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
r <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	3	106	
==>y $src = "";
while $_ = =<> {$src ~= $_;}

my $m = $src ~~ rx/oo/;
say "(mapcar 'delete-overlay (overlay <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	844	940	
==>ternal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	844	940	
==>ternal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4496	4707	
==>.= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4496	4707	
==>.= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4496	4707	
==>.= $next;
        }
        elsif ($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $me <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	47	156	
==>«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4766	4908	
==>) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4766	4908	
==>) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4766	4908	
==>) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1176	1365	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1176	1365	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1176	1365	
==>val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3116	3224	
==>headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3116	3224	
==>headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # Th <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3447	3583	
==>{
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3447	3583	
==>{
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!ch <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12372	12480	
==>*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	334	497	
==>> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	334	497	
==>> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	334	497	
==>> 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2551	2663	
==>pec;

rule ws          {<?ws_input>*}
rule ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <L <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	769	881	
==>'\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	778	890	
==>'\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	797	892	
==>ol {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descript <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	797	892	
==>ol {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descript <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6824	6926	
==>.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6824	6926	
==>.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4028	4119	
==>}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$pairs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2341	2480	
==>ULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2341	2480	
==>ULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2341	2480	
==>ULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3523	3630	
==>JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3523	3630	
==>JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3523	3630	
==>JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13771	13874	
==>MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13771	13874	
==>MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13771	13874	
==>MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9332	9449	
==>for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_heig <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9332	9449	
==>for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_heig <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6663	6771	
==>Str {
    join(" ",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	240	349	
==>cript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	240	349	
==>cript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	240	349	
==>cript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6659	6755	
==>ix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6659	6755	
==>ix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6659	6755	
==>ix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	450	567	
==>lass->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13762	13867	
==>r );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17239	17344	
==>r );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15959	16111	
==>str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15959	16111	
==>str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15959	16111	
==>str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15765	15889	
==>should be a class variable!
        #Time::Local.new( pairs zip @ids, @tm );

        $res = Time::Local.new(
            yea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16365	16462	
==>t is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16365	16462	
==>t is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new No <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5445	5575	
==>t.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5445	5575	
==>t.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1042	1159	
==>e("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&infix:<+>',
			body => '+',
			type => type("IV -> IV -> IV" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9151	9297	
==>Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9151	9297	
==>Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9151	9297	
==>Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Value::stringify( _('$.key') );
                my $v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2446	2576	
==>=> 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3	125	
==>kage JIB::Utils;

use strict;
use JIB::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8482	8598	
==>er::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.outp <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2477	2651	
==>ent_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2477	2651	
==>ent_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13970	14115	
==>= undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13970	14115	
==>= undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13970	14115	
==>= undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16183	16282	
==>ass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16183	16282	
==>ass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16183	16282	
==>ass->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	196	304	
==>ew {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	196	304	
==>ew {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	196	304	
==>ew {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->functio <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8194	8318	
==>fined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initrd_gz <= -M $pugs and
      -M $i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28791	28884	
==>vocant
Relation attribute names, or duplicate any other value set members.  This
method suppor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33343	33436	
==>vocant
Relation attribute names, or duplicate any other value set members.  This
method suppor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6456	6558	
==>nt->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'N <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6456	6558	
==>nt->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'N <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6456	6558	
==>nt->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7973	8083	
==>o strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7973	8083	
==>o strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7973	8083	
==>o strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5259	5375	
==>};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5259	5375	
==>};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5259	5375	
==>};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	512	651	
==>fh> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t$_\n";
    }
 
    ### show alternatives
    if( my $aref = $alts->{ $stru <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33110	33206	
==>is a Template module Set Name.  When we have to translate a
message, the corresponding Template m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33110	33206	
==>is a Template module Set Name.  When we have to translate a
message, the corresponding Template m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13223	13363	
==>n macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"fina <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9409	9549	
==>n macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"fina <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10245	10385	
==>n macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"fina <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8455	8602	
==>}

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8455	8602	
==>}

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro { <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7520	7628	
==>st )
 multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; Matc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15151	15248	
==>Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an emp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15151	15248	
==>Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an emp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8280	8395	
==>: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ca <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1075	1171	
==>_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1075	1171	
==>_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1866	1973	
==>ad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing bu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	449	550	
==>::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	449	550	
==>::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10232	10333	
==>ta);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10232	10333	
==>ta);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21724	21823	
==>using the same key code with a new user message in
one of their own resource files.  At some appropr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21724	21823	
==>using the same key code with a new user message in
one of their own resource files.  At some appropr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42914	43002	
==>in the current distribution:
L<Relation-(0.1.0)|Relation>.

=head1 INCOMPATIBILITIES

Non <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5768	5868	
==>|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str). <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5768	5868	
==>|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str). <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5195	5330	
==>,
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5195	5330	
==>,
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1583	1685	
==>and_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1583	1685	
==>and_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1583	1685	
==>and_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	994	1128	
==>?',
        name2 => '!!',
        assoc => 'non',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__->recom <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8777	8874	
==>d automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8777	8874	
==>d automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5965	6069	
==>1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5965	6069	
==>1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5965	6069	
==>1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $in <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2189	2308	
==>= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$dep <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	756	848	
==>il::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::U <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	756	848	
==>il::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::U <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	461	602	
==>ss $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	442	578	
==>ss $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12036	12166	
==>ss1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12036	12166	
==>ss1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12036	12166	
==>ss1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	533	646	
==>method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	533	646	
==>method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	533	646	
==>method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1743	1851	
==>lice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1743	1851	
==>lice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1743	1851	
==>lice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12189	12324	
==>lf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12189	12324	
==>lf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12189	12324	
==>lf->params }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6504	6599	
==>rtation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6504	6599	
==>rtation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6504	6599	
==>rtation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5909	6010	
==>ore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5909	6010	
==>ore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8106	8207	
==>ore returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20076	20338	
==>ve), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DES <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4359	4469	
==>revious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4359	4469	
==>revious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.clo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4680	4785	
==>ORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1743	1839	
==>$one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1743	1839	
==>$one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18845	18972	
==>data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20203	20330	
==>data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $if <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5280	5399	
==>=> \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linuxrc,
  "welcom <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12854	12962	
==>fix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12854	12962	
==>fix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12854	12962	
==>fix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1423	1524	
==>::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1423	1524	
==>::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20202	20394	
==>})
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3971	4067	
==>terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has By <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3971	4067	
==>terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has By <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1269	1375	
==>ing is in MRO, we take the superclasses
    # because we know that is there ...
    $supers = $class->get_a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14421	14525	
==>[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14421	14525	
==>[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $chann <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8022	8126	
==>lee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8022	8126	
==>lee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %us <==
3	/Users/nnunley/pugs/t/packages/Test.pm	28	127	
==>sub ns  { "t::packages::Test" }

sub pkg { $?PACKAGE }

sub test_export is export { "party island" } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1889	1996	
==>relude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1889	1996	
==>relude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1889	1996	
==>relude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs(" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28591	28791	
==>>get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->g <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4857	4987	
==>cy
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep al <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5321	5451	
==>cy
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7724	7876	
==>>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7724	7876	
==>>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7724	7876	
==>>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	209	314	
==>ine('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	209	314	
==>ine('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Si <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	209	314	
==>ine('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34650	34758	
==>inally in
F<Regexp::Parser::__object__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Reg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2150	2253	
==>->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2150	2253	
==>->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11446	11558	
==>($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3037	3149	
==>($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4	105	
==>e idea is to comment out things which end up defined in PILn
# (though one may wish to overwrite a lim <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2485	2580	
==>ext nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2485	2580	
==>ext nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33930	34047	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33930	34047	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33930	34047	
==>tems}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4163	4282	
==>so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in htt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4163	4282	
==>so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in htt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4163	4282	
==>so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in htt <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9332	9537	
==>, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{pro <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10809	11014	
==>, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{pro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10152	10307	
==>person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10152	10307	
==>person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1731	1831	
==>at;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1731	1831	
==>at;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1731	1831	
==>at;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4972	5077	
==>rns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    retu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4972	5077	
==>rns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	510	627	
==>L
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "A <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	510	627	
==>L
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "A <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17514	17627	
==>exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1751	1873	
==>s>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1751	1873	
==>s>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	29	121	
==>se Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4423	4538	
==>040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4423	4538	
==>040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16834	16949	
==>r $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5480	5600	
==>ce_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_h <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1407	1522	
==>$.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Express <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1407	1522	
==>$.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Express <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1111	1226	
==>raits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1111	1226	
==>raits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1111	1226	
==>raits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - verify .ref() and .undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2927	3039	
==>ous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2927	3039	
==>ous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2927	3039	
==>ous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1338	1463	
==>cedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        assoc => 'le <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1564	1684	
==>b ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1564	1684	
==>b ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5941	6066	
==>reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5941	6066	
==>reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5941	6066	
==>reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	497	603	
==>_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	497	603	
==>_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	497	603	
==>_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6279	6408	
==>me' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6279	6408	
==>me' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6279	6408	
==>me' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         . <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2758	2875	
==>new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $r <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2758	2875	
==>new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12254	12357	
==>pan = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This cl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12254	12357	
==>pan = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16435	16549	
==>Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16435	16549	
==>Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16435	16549	
==>Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30870	30964	
==>are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35420	35514	
==>are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34611	34705	
==>are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9287	9441	
==>lts{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason},
                    skip_all    => <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2717	2813	
==>y := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2717	2813	
==>y := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3337	3447	
==>f->{stack} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10549	10647	
==>duct (Relation $other!) returns Relation {

    die "The relation in $other has attributes in commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14026	14124	
==>duct (Relation $other!) returns Relation {

    die "The relation in $other has attributes in commo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5637	5750	
==>self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5637	5750	
==>self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5637	5750	
==>self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2759	2903	
==>th; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2759	2903	
==>th; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2759	2903	
==>th; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1745	1859	
==>ce(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_han <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1745	1859	
==>ce(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_han <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1745	1859	
==>ce(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2691	2801	
==>n = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2691	2801	
==>n = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9550	9664	
==>_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9550	9664	
==>_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9550	9664	
==>_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	658	813	
==>die::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { native($_) } (
        {
            arity => 3,
            name => '&ternary:<?? !!>', <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1342	1454	
==>nd $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0, 1 =~ m/[\=\<\>]/ )
    {
      my $tok <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16574	16673	
==>se, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16574	16673	
==>se, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2121	2270	
==>//= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method e <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2121	2270	
==>//= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1556	1645	
==>om.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12400	12517	
==>e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12400	12517	
==>e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12400	12517	
==>e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
M <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2535	2642	
==>test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2535	2642	
==>test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2992	3100	
==>0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2992	3100	
==>0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20910	21002	
==>>,
F<Regexp::Parser::__object__>.

=item Cleaner Grammar Flow

Now the only places 'atom' get <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1342	1461	
==>thority
                /smx;

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2532	2624	
==>xpr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <V <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2532	2624	
==>xpr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	665	788	
==>Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	665	788	
==>Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	665	788	
==>Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7267	7374	
==>= $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  I <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7267	7374	
==>= $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  I <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24302	24383	
==>_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G)).
match_captures <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5926	6047	
==>$name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5926	6047	
==>$name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5926	6047	
==>$name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9227	9336	
==>y $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9227	9336	
==>y $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9227	9336	
==>y $key =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3	104	
==>kage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3	104	
==>kage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3	104	
==>kage Class::Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5290	5386	
==>bject, but is (at least nominally)
intended to allow filtering out objects you don't want to rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5290	5386	
==>bject, but is (at least nominally)
intended to allow filtering out objects you don't want to rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5290	5386	
==>bject, but is (at least nominally)
intended to allow filtering out objects you don't want to rebl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2257	2389	
==>__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2804	2936	
==>__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3351	3483	
==>__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      ne <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	898	995	
==>ng on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	898	995	
==>ng on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2563	2685	
==>fter}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2563	2685	
==>fter}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18435	18545	
==>name = 'The object' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1552	1676	
==>t_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1552	1676	
==>t_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1552	1676	
==>t_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6841	6955	
==>r ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6841	6955	
==>r ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2446	2569	
==>self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2446	2569	
==>self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2446	2569	
==>self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	843	957	
==>etcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	843	957	
==>etcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	843	957	
==>etcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6625	6730	
==>lass;
}

# functions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/node/;

packa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1256	1357	
==>kg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1256	1357	
==>kg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	460	612	
==>'$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	460	612	
==>'$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	460	612	
==>'$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6060	6224	
==>te'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6060	6224	
==>te'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6060	6224	
==>te'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	869	961	
==>::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	869	961	
==>::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13542	13757	
==>SPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13542	13757	
==>SPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13542	13757	
==>SPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	480	603	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	480	603	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	480	603	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19214	19375	
==>v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19214	19375	
==>v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19214	19375	
==>v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slic <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12545	12643	
==>ranges of things that can be counted, such as beats per minute, 
wags per second, or holidays per m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12545	12643	
==>ranges of things that can be counted, such as beats per minute, 
wags per second, or holidays per m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9694	9780	
==>"pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is built <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1996	2147	
==>tdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archiv <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3526	3672	
==>tdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archiv <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35103	35195	
==>is method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39653	39745	
==>is method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3840	3953	
==>ame');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3840	3953	
==>ame');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3840	3953	
==>ame');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2773	2871	
==>rently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2773	2871	
==>rently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2773	2871	
==>rently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5154	5294	
==>y($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5355	5489	
==>y($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5355	5489	
==>y($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1147	1265	
==>r.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1147	1265	
==>r.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1147	1265	
==>r.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircum <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2422	2528	
==>pan.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2422	2528	
==>pan.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5587	5684	
==>_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4954	5077	
==>$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4954	5077	
==>$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4954	5077	
==>$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	411	523	
==>efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	411	523	
==>efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	411	523	
==>efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3177	3291	
==>ad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3177	3291	
==>ad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3177	3291	
==>ad the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21509	21611	
==>mplemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21509	21611	
==>mplemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21509	21611	
==>mplemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->u <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8109	8206	
==>ent is fired once the last '=item' directive, followed by any text on the same line.

=item I<star <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8109	8206	
==>ent is fired once the last '=item' directive, followed by any text on the same line.

=item I<star <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18278	18374	
==>alANDExpressionNoIn>
}
rule ConditionalExpression :words {  # see 11.12
      <LogicalORExpressio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1238	1331	
==>Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1238	1331	
==>Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1238	1331	
==>Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2486	2585	
==>analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator->new($test_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37257	37351	
==>age in its positional parameter
$module_name (a string) and checks whether or not it has alread <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37257	37351	
==>age in its positional parameter
$module_name (a string) and checks whether or not it has alread <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2321	2454	
==>refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2321	2454	
==>refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2321	2454	
==>refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5872	6011	
==>}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5872	6011	
==>}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5872	6011	
==>}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }     
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7207	7305	
==>=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7207	7305	
==>=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7207	7305	
==>=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14705	14833	
==>some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14705	14833	
==>some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14705	14833	
==>some early
        # stages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1181	1286	
==>).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1181	1286	
==>).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gram <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	25	128	
==>e v6;


=kwid

There are a couple of things going on here.

* These are perl6 implementations of /builti <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1054	1151	
==>tion will cause the module to shift across all byte values, not just the ones 
corresponding to le <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1054	1151	
==>tion will cause the module to shift across all byte values, not just the ones 
corresponding to le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11122	11278	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8185	8332	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8185	8332	
==>aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            retur <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27119	27233	
==>TUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #define RE_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15379	15472	
==>no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15379	15472	
==>no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2217	2324	
==>bug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ " <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2217	2324	
==>bug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13657	13782	
==>spatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13657	13782	
==>spatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13657	13782	
==>spatching 
    # for the root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3185	3314	
==>[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3185	3314	
==>[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{matc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35290	35398	
==>t

$::Class->send('add_method' => (
    # method label
        symbol->new('add_attribute'),
    # method bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2858	2955	
==>nternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2858	2955	
==>nternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2858	2955	
==>nternals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:< <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5050	5191	
==>m the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please remember to update t/pugsrun/11-safemode.t if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8874	8988	
==>ame    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8862	8976	
==>ame    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3863	3976	
==>title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3863	3976	
==>title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3863	3976	
==>title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	11	110	
==>perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	11	110	
==>perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	11	110	
==>perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script h <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2264	2376	
==>rator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2264	2376	
==>rator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3027	3133	
==>_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1882	2016	
==>rn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1882	2016	
==>rn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1882	2016	
==>rn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8013	8158	
==>ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8013	8158	
==>ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8013	8158	
==>ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2259	2367	
==>$tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2259	2367	
==>$tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1030	1120	
==>Object is JSX::Value;
class JSX::Value::Array is JSX::Value::Object;

class JSX::PropertyAt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17218	17380	
==>e' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declar <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17218	17380	
==>e' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1408	1561	
==>f $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive $Repodir/$file] ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19279	19375	
==>Base.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19279	19375	
==>Base.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11441	11552	
==>e::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11441	11552	
==>e::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11441	11552	
==>e::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4401	4505	
==>>compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::statements> ]* ) < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	680	775	
==>red, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	680	775	
==>red, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3881	3980	
==>ti List::max(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unl <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8698	8794	
==>ountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=over <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8698	8794	
==>ountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=over <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2301	2404	
==>args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2279	2382	
==>args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3126	3216	
==>!.
p6_alternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	713	872	
==>$protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	713	872	
==>$protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        retu <==
3	/Users/nnunley/pugs/util/importgraph.pl	166	266	
==>ith src present
# arrows point from importer to importee

use strict;
use warnings;
use File::Find;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2795	2935	
==>->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2795	2935	
==>->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2795	2935	
==>->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain g <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7652	7789	
==>.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7652	7789	
==>.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	462	565	
==>type_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_children(
            Tree.new(:no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7135	7242	
==>_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7147	7254	
==>_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9894	9990	
==>ub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9894	9990	
==>ub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_enti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3000	3128	
==>= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3000	3128	
==>= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3000	3128	
==>= $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2979	3121	
==>last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2979	3121	
==>last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	197	329	
==>(Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	197	329	
==>(Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	943	1039	
==>e_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in the code emission process, in o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34096	34194	
==>s not have
an identical header to the invocant relation.  This method has aliases
named C<minus> an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38646	38744	
==>s not have
an identical header to the invocant relation.  This method has aliases
named C<minus> an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38107	38205	
==>s not have
an identical header to the invocant relation.  This method has aliases
named C<minus> an <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11120	11219	
==>defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document clas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11120	11219	
==>defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5206	5349	
==>) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5206	5349	
==>) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2- <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	376	491	
==>y;

# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     ke <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10346	10448	
==>hes_from_user );

Returns only defined, non-blank, trimmed switches from the parms passed.

=cut

sub _ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12253	12348	
==>ll add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12311	12406	
==>ll add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6163	6269	
==>her( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5952	6055	
==>her( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38464	38608	
==>ft;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38464	38608	
==>ft;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38464	38608	
==>ft;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIV <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	794	909	
==>6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	753	863	
==>6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (th <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3006	3246	
==>_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('l <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3006	3246	
==>_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('l <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5183	5313	
==>er_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1077	1212	
==>me it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### X <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4340	4430	
==>Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4590	4680	
==>Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6026	6210	
==>ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6026	6210	
==>ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6026	6210	
==>ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40661	40758	
==>See the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40661	40758	
==>See the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9084	9234	
==>> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9084	9234	
==>> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9084	9234	
==>> sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key = <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2493	2618	
==>ndex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encod <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2493	2618	
==>ndex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9382	9480	
==>or::nullary->new("int"),
		),
	),
	sub => type::operator::arrow->new(
		type::operator::nullary->ne <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7141	7454	
==>:True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bo <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7141	7454	
==>:True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2361	2493	
==>=> $2,
        #capture => $1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1573	1666	
==>ethod lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1573	1666	
==>ethod lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1573	1666	
==>ethod lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2578	2693	
==>g($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2578	2693	
==>g($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8844	9091	
==>->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8844	9091	
==>->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8844	9091	
==>->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37877	37990	
==>= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37877	37990	
==>= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37877	37990	
==>= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4835	4946	
==>ontainer_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4835	4946	
==>ontainer_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5425	5536	
==>ontainer_var} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11839	11975	
==>:WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2261	2383	
==>:WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2261	2383	
==>:WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	680	791	
==>e) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	680	791	
==>e) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	680	791	
==>e) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6819	6921	
==>s sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6819	6921	
==>s sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9016	9118	
==>s sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4362	4508	
==>bdir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installati <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	840	945	
==>n)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtra <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	840	945	
==>n)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6452	6550	
==>rn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6452	6550	
==>rn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6452	6550	
==>rn Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	158	261	
==>}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	158	261	
==>}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	158	261	
==>}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CO <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	706	805	
==>he new module functionality will not need it. Althoug this may be a 
# naive understanding of what t <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	706	805	
==>he new module functionality will not need it. Althoug this may be a 
# naive understanding of what t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	555	694	
==>basename( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38334	38430	
==>l parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38334	38430	
==>l parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5820	5966	
==>g->can('new') };
        unless ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2094	2235	
==>eep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2094	2235	
==>eep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8214	8333	
==>2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8214	8333	
==>2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8214	8333	
==>2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22394	22522	
==>$c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18815	18943	
==>$c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11616	11723	
==>l {  # see 9.3.1
      <'Infinity'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3562	3667	
==>ed with non-zero status indicating something dubious happened.

The columns in the summary report mean:

= <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	617	709	
==>ass Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	617	709	
==>ass Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11202	11301	
==>to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11202	11301	
==>to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11202	11301	
==>to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1321	1423	
==>p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1321	1423	
==>p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1321	1423	
==>p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5486	5591	
==>t(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5486	5591	
==>t(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5486	5591	
==>t(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3855	3970	
==>ame = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3855	3970	
==>ame = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3855	3970	
==>ame = $self->name;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	276	373	
==>5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	276	373	
==>5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	276	373	
==>5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/ <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1736	1847	
==>fig->{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3233	3340	
==>ul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3221	3328	
==>ul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1546	1637	
==>tance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1546	1637	
==>tance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1546	1637	
==>tance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6125	6223	
==>nt(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6125	6223	
==>nt(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6125	6223	
==>nt(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	257	386	
==>eader => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	257	386	
==>eader => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only v <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2140	2264	
==>print "# Could not compile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5031	5180	
==>self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5031	5180	
==>self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5031	5180	
==>self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magica <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6863	6997	
==>g match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6637	6763	
==>g match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1383	1497	
==>,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubTyp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4508	4620	
==>,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubTyp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4508	4620	
==>,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubTyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	835	950	
==>her_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	835	950	
==>her_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	835	950	
==>her_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next if ...; $other_co <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1783	1951	
==>ath) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($curr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1783	1951	
==>ath) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($curr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	383	492	
==>tive value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_str { shift }

# con <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3972	4140	
==>xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9149	9256	
==>t case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9149	9256	
==>t case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    % <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30078	30177	
==>se.

Change internal list of test results to a hash.

Fix stats display when there's an overrun.

Fi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5146	5244	
==>est's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<sta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5146	5244	
==>est's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7343	7441	
==>est's diagnostic message (optional).

=back 

This role contains two methods:

=over 4

=item B<sta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7087	7187	
==>tent-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7087	7187	
==>tent-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19920	20016	
==>x1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19920	20016	
==>x1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19920	20016	
==>x1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4553	4651	
==>and().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand()." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4553	4651	
==>and().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand()." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4553	4651	
==>and().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand()." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5190	5363	
==>was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5190	5363	
==>was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5190	5363	
==>was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14512	14660	
==>warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14506	14654	
==>warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1679	1784	
==>and_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1679	1784	
==>and_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1679	1784	
==>and_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28087	28308	
==>erl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28087	28308	
==>erl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28087	28308	
==>erl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) {
                    if ( Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31506	31624	
==>l of the same attributes as the original.  Trivial cases are
where C<$predicate> simply returns True or False regardles <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36056	36174	
==>l of the same attributes as the original.  Trivial cases are
where C<$predicate> simply returns True or False regardles <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35283	35401	
==>l of the same attributes as the original.  Trivial cases are
where C<$predicate> simply returns True or False regardles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11337	11479	
==>= ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11337	11479	
==>= ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11337	11479	
==>= ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2382	2529	
==>ispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2382	2529	
==>ispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2382	2529	
==>ispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $fi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11416	11527	
==>( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14893	15004	
==>( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3027	3138	
==>at->emit_perl6_grammar({
        item => '<item>',
    } );
}



__END__

use Test::More tests => 33;
use Data:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5490	5594	
==>dd_op( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Gram <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2840	2931	
==>hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $mo <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2840	2931	
==>hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4357	4476	
==>Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4357	4476	
==>Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4357	4476	
==>Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.spl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3515	3617	
==>str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1 <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	428	522	
==>hitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=hea <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	428	522	
==>hitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30682	30851	
==>d dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1405	1565	
==>Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1405	1565	
==>Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2090	2259	
==>Array' {
        dbg "  # -- unknown: <$tree>";
        return; 
    }
    if $tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13915	14081	
==>/^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1097	1212	
==>ock";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11601	11719	
==>eturn "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11595	11713	
==>eturn "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_co <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	227	319	
==>ucer::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondie::Backen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4251	4369	
==>\}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4251	4369	
==>\}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4251	4369	
==>\}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3290	3397	
==>::Fail' => class 'TestBuilder::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FET <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	666	770	
==>ity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - norm <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	666	770	
==>ity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - norm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2137	2248	
==>$class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1326	1420	
==>ake alternative representations of @header_order.  This is used
# for sorting and case matching <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1326	1420	
==>ake alternative representations of @header_order.  This is used
# for sorting and case matching <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1950	2063	
==>our Int multi Num::round_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3247	3351	
==>work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3247	3351	
==>work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13078	13198	
==>headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16555	16675	
==>headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15917	16037	
==>headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	888	1029	
==>s}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	888	1029	
==>s}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	888	1029	
==>s}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::Name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4544	4643	
==>::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4544	4643	
==>::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4544	4643	
==>::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27780	27875	
==>le read-only argument, returns a
value that is optionally a calculation using original attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32332	32427	
==>le read-only argument, returns a
value that is optionally a calculation using original attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31424	31519	
==>le read-only argument, returns a
value that is optionally a calculation using original attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4507	4604	
==>smetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4507	4604	
==>smetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4507	4604	
==>smetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(na <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	581	725	
==>hildren(
                Tree.new(:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13518	13643	
==>TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $no <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	222	323	
==>gs;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigsp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	222	323	
==>gs;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigsp <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25125	25213	
==>type::variable::free->new,
		type::variable::free->new,
	);
	is($type->stringify, "∀α. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15686	15795	
==>runperl_args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustme <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5553	5652	
==>oclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::pr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5611	5710	
==>oclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15037	15146	
==>s
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: mor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18514	18623	
==>s
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: mor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17930	18039	
==>s
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: mor <==
3	/Users/nnunley/pugs/util/package-osx.pl	9487	9612	
==>ir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	732	824	
==>ince
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	732	824	
==>ince
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3158	3353	
==>> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3158	3353	
==>> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3158	3353	
==>> { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19098	19262	
==>able;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19098	19262	
==>able;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19098	19262	
==>able;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18144	18544	
==>r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21621	22021	
==>r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21208	21608	
==>r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14315	14432	
==>::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14315	14432	
==>::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14315	14432	
==>::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9571	9708	
==>/::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9571	9708	
==>/::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9571	9708	
==>/::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34095	34210	
==>>{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34095	34210	
==>>{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34095	34210	
==>>{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2035	2156	
==>had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2035	2156	
==>had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2035	2156	
==>had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($ke <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32744	32838	
==>ator class as a whole is not pure and deterministic because it
invokes user-defined external fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32744	32838	
==>ator class as a whole is not pure and deterministic because it
invokes user-defined external fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3165	3287	
==>y $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3165	3287	
==>y $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3165	3287	
==>y $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1095	1201	
==>f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3 <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1095	1201	
==>f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	247	344	
==>check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 ACCESSORS

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4965	5072	
==>:make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4965	5072	
==>:make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4965	5072	
==>:make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10446	10570	
==>"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10446	10570	
==>"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10446	10570	
==>"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	76	196	
==>r $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	76	196	
==>r $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	76	196	
==>r $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1078	1201	
==>tance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1078	1201	
==>tance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1078	1201	
==>tance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4139	4252	
==>{ $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4139	4252	
==>{ $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4139	4252	
==>{ $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12263	12382	
==>cular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12263	12382	
==>cular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4802	4921	
==>p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4940	5094	
==>_shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4940	5094	
==>_shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1069	1173	
==>e::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	855	959	
==>e::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub nod <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2171	2268	
==>lisher.remove_subscription($?SELF);
    }
}

class Class::Events::Subscription::Named {
    is Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20585	20687	
==>$_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20585	20687	
==>$_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20585	20687	
==>$_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8952	9053	
==>>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8952	9053	
==>>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8952	9053	
==>>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@id <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3956	4067	
==>$file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my $self = shift;
    my %hash = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6340	6437	
==>ze $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.rem <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6340	6437	
==>ze $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.rem <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	600	772	
==>dencies  dependency_satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # meta dir
$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8813	8927	
==>$cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignor <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1732	1840	
==>f:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1732	1840	
==>f:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11507	11603	
==>e class that consumed it.

---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11507	11603	
==>e class that consumed it.

---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11507	11603	
==>e class that consumed it.

---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1315	1472	
==>ation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed De <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1315	1472	
==>ation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed De <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14157	14251	
==>oesn't change. 

If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~~ any( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1529	1646	
==>id && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1529	1646	
==>id && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1529	1646	
==>id && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16145	16245	
==>t, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16145	16245	
==>t, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1046	1145	
==>$ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Switches = "-w";
$Columns  = $ENV <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7702	7852	
==>= -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary li <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7702	7852	
==>= -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary li <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	997	1113	
==>ft; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	501	608	
==>rder to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	501	608	
==>rder to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	501	608	
==>rder to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .unt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3558	3682	
==>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3558	3682	
==>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3558	3682	
==>{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8898	9013	
==>r &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8898	9013	
==>r &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8898	9013	
==>r &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6500	6703	
==>*/\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27138	27229	
==>select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31690	31781	
==>select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This meth <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1930	2034	
==>ctory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=he <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1930	2034	
==>ctory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=he <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	178	287	
==>REPO];

$REPO = JIB::Repository->new( root => $REPOSITORY_ROOT )
                or die "No repository created <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2830	2933	
==>r_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax bel <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2830	2933	
==>r_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax bel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	966	1086	
==>is;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	966	1086	
==>is;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	966	1086	
==>is;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12259	12419	
==>ch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12259	12419	
==>ch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12259	12419	
==>ch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # ge <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	534	660	
==>ueue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opend <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	534	660	
==>ueue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opend <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19818	19934	
==>t"?
}

 
 multi prefix:<:16> ( Str $hexstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(16,$hexstr) } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17929	18025	
==>des
are "machine readable"; any application receiving such a code can identify
it easily in its c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17929	18025	
==>des
are "machine readable"; any application receiving such a code can identify
it easily in its c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38014	38142	
==>6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38014	38142	
==>6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38014	38142	
==>6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1403	1503	
==>infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1403	1503	
==>infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1403	1503	
==>infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15550	15663	
==>end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15550	15663	
==>end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15550	15663	
==>end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16546	16673	
==>_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < 1;
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	553	647	
==>use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	553	647	
==>use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3205	3317	
==>jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3205	3317	
==>jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3205	3317	
==>jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4322	4480	
==>=> 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4322	4480	
==>=> 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4322	4480	
==>=> 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11079	11178	
==>cLiteral> <StrWhiteSpace>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21647	21743	
==>ly by their names, and all
Relation tuples may be individually addressed only by their values; ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26199	26295	
==>ly by their names, and all
Relation tuples may be individually addressed only by their values; ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	970	1083	
==>int $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	970	1083	
==>int $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Com <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2758	2859	
==>ding components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2758	2859	
==>ding components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1129	1228	
==>>{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{required};
	    $invocant = $db_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6054	6156	
==>of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6054	6156	
==>of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6054	6156	
==>of course use context info, but that's not here yet.
  if @things == 1 {
    JS::inline('(function (str <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	764	881	
==>rk - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	764	881	
==>rk - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2080	2193	
==>s could either be done
#using Regexp::Parser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3906	4026	
==>eludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3906	4026	
==>eludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3906	4026	
==>eludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1331	1423	
==>$::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1331	1423	
==>$::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1331	1423	
==>$::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	463	576	
==>ut not ...
#     But <SourceCharacter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2697	2805	
==>rse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2697	2805	
==>rse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $se <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	705	807	
==>dule MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	705	807	
==>dule MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1707	1828	
==>}\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2487	2608	
==>}\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21005	21099	
==>CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), ! <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7749	7870	
==>unc) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7749	7870	
==>unc) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1691	1795	
==>lease invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1426	1551	
==>e_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1426	1551	
==>e_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1426	1551	
==>e_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	621	719	
==>nternals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	621	719	
==>nternals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	621	719	
==>nternals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43503	43643	
==>ft;
                $e->get('WALKMETH')
                  ->do(list->new(
                      $e->get('$self:')->class->send('dispatcher' = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1536	1628	
==>);
 # alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1536	1628	
==>);
 # alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	612	739	
==>$class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	612	739	
==>$class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	612	739	
==>$class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4631	4763	
==>%= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.sta <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4631	4763	
==>%= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.sta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2361	2493	
==>ile::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{$dir} if $cache{$dir};
    
        my $obj     = $class-> <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	800	895	
==>ugs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.free <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	800	895	
==>ugs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.free <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9764	9885	
==>Bin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9764	9885	
==>Bin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9764	9885	
==>Bin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2641	2762	
==>s or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2641	2762	
==>s or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24254	24357	
==>ush @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",100*( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	442	556	
==>idate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	442	556	
==>idate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	442	556	
==>idate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7421	7597	
==>$end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7421	7597	
==>$end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7421	7597	
==>$end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2925	3040	
==>ol::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2925	3040	
==>ol::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	873	977	
==>y the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	873	977	
==>y the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	108	202	
==>s_lit);
    $optable->addToken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2809	2916	
==>).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2809	2916	
==>).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2809	2916	
==>).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11674	11785	
==>(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11674	11785	
==>(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11674	11785	
==>(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7995	8141	
==>+) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7995	8141	
==>+) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7995	8141	
==>+) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19348	19452	
==>0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19348	19452	
==>0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19348	19452	
==>0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4112	4207	
==>// %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4112	4207	
==>// %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13220	13313	
==>ash{$key}> in all it's forms. Below are some
example translations. This list is I<not> exhaust <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32485	32575	
==>::KeyedText::Translator Class

While a Translator object stores some attributes for configu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32485	32575	
==>::KeyedText::Translator Class

While a Translator object stores some attributes for configu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11964	12085	
==>ethod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11964	12085	
==>ethod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11964	12085	
==>ethod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1] <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6482	6622	
==>le\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1995	2118	
==>le,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2006	2129	
==>le,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7187	7285	
==>$jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7187	7285	
==>$jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7187	7285	
==>$jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3415	3545	
==>)",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3415	3545	
==>)",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3415	3545	
==>)",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5251	5343	
==>) --> "...", digits_int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4173	4263	
==>es these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4173	4263	
==>es these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosett <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20112	20213	
==>y.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as si <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20112	20213	
==>y.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7625	7783	
==>rt, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7625	7783	
==>rt, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7625	7783	
==>rt, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2524	2644	
==>);    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2524	2644	
==>);    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2524	2644	
==>);    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	355	453	
==>"* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	316	414	
==>"* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	316	414	
==>"* reading command line options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	454	562	
==>bol nil type  
        list hash reference block 
        closure closure::env closure::signature closure::pa <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	697	791	
==>et where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	697	791	
==>et where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {. <==
3	/Users/nnunley/pugs/util/drift.pl	870	974	
==>2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit unless @program <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15512	15606	
==>e parser.

=item Regexp::QuantAttr

Removes quantifiers as objects, and makes 'min' and 'max' a <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	502	596	
==>BLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	502	596	
==>BLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3479	3584	
==>the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3479	3584	
==>the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3479	3584	
==>the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13714	13844	
==>y->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13714	13844	
==>y->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13714	13844	
==>y->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12659	12748	
==>trict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12659	12748	
==>trict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12659	12748	
==>trict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	98	211	
==>= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for mo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	98	211	
==>= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for mo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4998	5095	
==>he majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4998	5095	
==>he majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43056	43153	
==>he majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	496	612	
==>") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	496	612	
==>") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	496	612	
==>") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5550	5649	
==>:proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5608	5707	
==>:proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31969	32064	
==>>, "Sequence (?xx not recognized").  If
you want to throw your own error, see L</"ERROR HANDLING <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9242	9402	
==>new(
    Seq->new(
        map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	549	649	
==>:Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	549	649	
==>:Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3084	3192	
==>t(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3084	3192	
==>t(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3084	3192	
==>t(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1743	1894	
==>SA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1743	1894	
==>SA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1743	1894	
==>SA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1007	1117	
==>ented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1007	1117	
==>ented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1007	1117	
==>ented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## --------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	535	636	
==>er a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	535	636	
==>er a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	535	636	
==>er a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12542	12643	
==>fied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12542	12643	
==>fied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12542	12643	
==>fied to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1202	1310	
==>tput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1202	1310	
==>tput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1282	1390	
==>tput();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2959	3072	
==>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2959	3072	
==>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2959	3072	
==>elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3020	3127	
==>e test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3020	3127	
==>e test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3100	3207	
==>e test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing tes <==
3	/Users/nnunley/pugs/misc/S29_round.pl	518	628	
==>nd = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16945	17038	
==>odules or anonymous routines) and write the rest of the
application in their other language(s) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16945	17038	
==>odules or anonymous routines) and write the rest of the
application in their other language(s) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2191	2304	
==>:Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2191	2304	
==>:Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2191	2304	
==>:Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8222	8331	
==>, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2018	2120	
==>=> 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2018	2120	
==>=> 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1534	1644	
==>_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1534	1644	
==>_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6615	6713	
==>o) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6615	6713	
==>o) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6615	6713	
==>o) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30814	31007	
==>ngth;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30814	31007	
==>ngth;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30814	31007	
==>ngth;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	39	160	
==>8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 }

# interpolierter Funktions- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3257	3353	
==>ilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3257	3353	
==>ilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5454	5550	
==>ilder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	965	1084	
==>ty => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	965	1084	
==>ty => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, d <==
3	/Users/nnunley/pugs/util/package-osx.pl	7786	7885	
==>local/man/man3/Perl6::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        / <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3332	3425	
==>elf.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3332	3425	
==>elf.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9219	9334	
==>y($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9219	9334	
==>y($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9219	9334	
==>y($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - (" . $self-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	268	381	
==>AME {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { pu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15403	15500	
==>ead use
then it needs to account for a variance of needs between its different
users, such as thei <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15403	15500	
==>ead use
then it needs to account for a variance of needs between its different
users, such as thei <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14633	14825	
==>.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18110	18302	
==>.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17526	17718	
==>.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1792	1913	
==>dd_handler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1863	1960	
==>mber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1863	1960	
==>mber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1863	1960	
==>mber(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19333	19427	
==>m_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19333	19427	
==>m_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19333	19427	
==>m_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	916	1048	
==>e.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	916	1048	
==>e.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	916	1048	
==>e.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8530	8636	
==>IL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8530	8636	
==>IL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8530	8636	
==>IL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	73	203	
==>PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	73	203	
==>PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	73	203	
==>PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13212	13315	
==>( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13212	13315	
==>( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13212	13315	
==>( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18292	18486	
==>per($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18292	18486	
==>per($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18292	18486	
==>per($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	727	834	
==>P5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	727	834	
==>P5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	727	834	
==>P5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { F <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4928	5046	
==>ry and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4928	5046	
==>ry and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	417	603	
==>ction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	417	603	
==>ction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	417	603	
==>ction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1718	1858	
==>r}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1718	1858	
==>r}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1718	1858	
==>r}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3403	3538	
==>ndex;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet-- <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3403	3538	
==>ndex;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet-- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	722	889	
==>e this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d

Into:

 p5-a AND (p5-b >= 3 OR p5 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7383	7500	
==>'    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7395	7512	
==>'    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17120	17239	
==>erl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17120	17239	
==>erl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17120	17239	
==>erl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21231	21341	
==>ubpats = pad["subpats"]
    pad["subpats"] = 0
    pad["isarray"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10582	10674	
==>a::Model Nodes are arranged correctly
depending on their types, that their attributes have re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10582	10674	
==>a::Model Nodes are arranged correctly
depending on their types, that their attributes have re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5263	5369	
==>)>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5263	5369	
==>)>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6787	6893	
==>)>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	300	436	
==>m => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3161	3267	
==>CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3161	3267	
==>CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3161	3267	
==>CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1989	2095	
==>mber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1989	2095	
==>mber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1989	2095	
==>mber(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9403	9534	
==>ELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9403	9534	
==>ELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9403	9534	
==>ELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	674	784	
==>params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	674	784	
==>params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	674	784	
==>params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9405	9518	
==>curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9405	9518	
==>curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	452	557	
==>om {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa "P6RulesInP5::Match" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11218	11448	
==>erl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11218	11448	
==>erl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11218	11448	
==>erl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8950	9043	
==>(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2775	2868	
==>(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2671	2763	
==>any_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	904	1011	
==>lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	904	1011	
==>lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	904	1011	
==>lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2519	2623	
==>ed_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2519	2623	
==>ed_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2866	2970	
==>ed_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	448	606	
==>tr *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	448	606	
==>tr *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10309	10413	
==>dry.org/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3811	3901	
==>tory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramet <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3811	3901	
==>tory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6008	6098	
==>tory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2542	2651	
==>],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - ther <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2542	2651	
==>],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - ther <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2542	2651	
==>],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - ther <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4730	4830	
==>r, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()` <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4730	4830	
==>r, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()` <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	25	143	
==>X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
use File::Spec;

sub path_from_me { File: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7928	8016	
==>n") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authoriz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7928	8016	
==>n") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authoriz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	559	667	
==>$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	559	667	
==>$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	559	667	
==>$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	609	704	
==>ich installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	609	704	
==>ich installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the ch <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1895	1990	
==>n_setup = sub { system($setup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3276	3382	
==>d_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3276	3382	
==>d_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	459	556	
==>t;
	die "generic reductions don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3870	4014	
==>nd';"
    #         or "return ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # make 'use fatal' not try <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6470	6604	
==>s.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6470	6604	
==>s.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1130	1230	
==>ce_file);
my $match  = Grammar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11898	11995	
==>e field are retained.

As for the header() method, the field name ($field) is not case
sensitive a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11898	11995	
==>e field are retained.

As for the header() method, the field name ($field) is not case
sensitive a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1678	1783	
==>t_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1678	1783	
==>t_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1678	1783	
==>t_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $cod <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6755	6873	
==>d($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parame <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6755	6873	
==>d($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parame <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7735	7844	
==>.property_attributes{'length'} =
        JSX::PropertyAttributes.new(:DontEnum :DontDelete);
}
# 15.4.5.1
meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	293	402	
==>tkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	293	402	
==>tkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	293	402	
==>tkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37984	38078	
==>outine's result, which is a Template text
string if the module recognizes $msg_key, and the und <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37984	38078	
==>outine's result, which is a Template text
string if the module recognizes $msg_key, and the und <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3050	3208	
==>, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3050	3208	
==>, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26486	26581	
==>ss ((opaque $self:) (opaque $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4398	4498	
==>lan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4398	4498	
==>lan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5922	6022	
==>lan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12454	12572	
==>UB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12454	12572	
==>UB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12454	12572	
==>UB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	181	307	
==>n( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	181	307	
==>n( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16977	17077	
==>/f(?:o(?:o|rt)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	324	428	
==>ng
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	324	428	
==>ng
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	324	428	
==>ng
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open fil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	156	249	
==>p 'confess';
use Scalar::Util 'looks_like_number', 'blessed';

use base 'type::comparable';

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3896	4003	
==>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3896	4003	
==>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3896	4003	
==>is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6960	7090	
==>l $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6960	7090	
==>l $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6960	7090	
==>l $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1741	1876	
==>_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1741	1876	
==>_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1741	1876	
==>_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1142	1240	
==>= 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $tim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1142	1240	
==>= 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $tim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1142	1240	
==>= 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5149	5259	
==>the current object in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5149	5259	
==>the current object in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5149	5259	
==>the current object in the recursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	89	193	
==>readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebyt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	89	193	
==>readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebyt <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	18	118	
==>ackage Blondie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAGE__;

_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	640	795	
==>efined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	640	795	
==>efined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7146	7245	
==>e
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7146	7245	
==>e
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7146	7245	
==>e
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4262	4411	
==>rl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5111	5260	
==>rl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1957	2063	
==>me;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1957	2063	
==>me;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1957	2063	
==>me;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3266	3383	
==>fg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3266	3383	
==>fg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3266	3383	
==>fg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5384	5494	
==>ebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5384	5494	
==>ebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5384	5494	
==>ebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frob <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4192	4324	
==>n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3076	3190	
==>ame, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username ho <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3076	3190	
==>ame, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username ho <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7713	7878	
==>ontent) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7713	7878	
==>ontent) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        e <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1821	1974	
==>$events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event.
    # Note that I use the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2339	2436	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2339	2436	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2339	2436	
==>se strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_descr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16596	16704	
==>S

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16596	16704	
==>S

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16596	16704	
==>S

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2989	3096	
==>ction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2989	3096	
==>ction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2989	3096	
==>ction (args) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined)) <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1039	1161	
==>nted !! [$wanted];

  return sub($input) {
    return
      unless defined $input;
    my $next = head($input);
    
    fo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1479	1595	
==>',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1479	1595	
==>',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13888	14016	
==>el, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13888	14016	
==>el, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13888	14016	
==>el, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29820	29983	
==>+= $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29820	29983	
==>+= $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29820	29983	
==>+= $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  war <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13429	13621	
==>$e = shift;                      
                      $e->set('$canidate' => str->new('P6opaque'))
                  })); 
                # create and init the object
                $e->cre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12997	13149	
==>([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12997	13149	
==>([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16303	16427	
==>from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16303	16427	
==>from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16303	16427	
==>from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2552	2664	
==>ic Perl block with placeholder parameters
    Package     Perl 5 compatible namespace
    Module      Perl 6 stan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1199	1310	
==>le {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "nega <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1210	1321	
==>le {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "nega <==
3	/Users/nnunley/pugs/util/package-osx.pl	9667	9809	
==>");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $from (@files) {
        my $dirs = $from;
        $dirs =~ s#/[^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6907	7028	
==>.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_B <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6907	7028	
==>.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30045	30165	
==>rom_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30045	30165	
==>rom_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30045	30165	
==>rom_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	192	313	
==>_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	192	313	
==>_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	192	313	
==>_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3703	3808	
==>MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3703	3808	
==>MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3703	3808	
==>MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{prelude <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1929	2038	
==>as Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1929	2038	
==>as Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Pe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7825	7955	
==>pos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5847	5957	
==>thod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5847	5957	
==>thod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11257	11404	
==>ype .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3500	3647	
==>y
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3488	3635	
==>y
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	390	500	
==>ubroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	390	500	
==>ubroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	390	500	
==>ubroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7137	7257	
==>) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7137	7257	
==>) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7137	7257	
==>) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18138	18437	
==>any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21615	21914	
==>any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21202	21501	
==>any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3646	3754	
==>::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3646	3754	
==>::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3646	3754	
==>::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5652	5760	
==>il2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5652	5760	
==>il2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5652	5760	
==>il2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12412	12537	
==>) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12412	12537	
==>) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12412	12537	
==>) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8668	8764	
==>eSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			orig => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18803	18899	
==>ver 4

=item I<anyof_class> Changed

If an I<anyof_class> element is a Unicode property or a Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4648	4739	
==>ift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4648	4739	
==>ift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4648	4739	
==>ift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1851	2077	
==>sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1851	2077	
==>sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1851	2077	
==>sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1831	1948	
==>rn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1831	1948	
==>rn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1831	1948	
==>rn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new( <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2213	2308	
==>ferent types of nodes in a Perldoc DOM tree have different properties,
you should see the subcla <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2213	2308	
==>ferent types of nodes in a Perldoc DOM tree have different properties,
you should see the subcla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3289	3395	
==>rans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3289	3395	
==>rans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3289	3395	
==>rans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7369	7479	
==>> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in character class") if $cc;
    return $S->forc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2659	2756	
==>rporated into the match.  XXX it is not clear
that this is the optimal interface for this combinat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2659	2756	
==>rporated into the match.  XXX it is not clear
that this is the optimal interface for this combinat <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1118	1257	
==>ults.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1118	1257	
==>ults.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13774	13872	
==>s->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13774	13872	
==>s->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13774	13872	
==>s->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1949	2060	
==>oublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1949	2060	
==>oublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1949	2060	
==>oublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4375	4478	
==>Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4224	4324	
==>Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command us <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3895	3989	
==>node); # unlike parametered thunks these thunk have no -> type

	$self->define_named_block($nod <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2578	2730	
==>here on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3250	3352	
==>ter so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3250	3352	
==>ter so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8106	8282	
==>->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8106	8282	
==>->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8106	8282	
==>->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7121	7263	
==>tch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7121	7263	
==>tch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	408	510	
==>eneric_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reductions don't make sense while i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11329	11422	
==>rtant that submethods are used
because they will not get inherited. This provides more predict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11329	11422	
==>rtant that submethods are used
because they will not get inherited. This provides more predict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11329	11422	
==>rtant that submethods are used
because they will not get inherited. This provides more predict <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24772	24870	
==>ions on suitable starting points
 * for a match, cutting down the work a lot.  Regmust permits fast <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1664	1787	
==>fault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1664	1787	
==>fault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1664	1787	
==>fault: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37611	37736	
==>:branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1974	2085	
==>_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_toward <==
3	/Users/nnunley/pugs/util/package-osx.pl	8891	8994	
==>vn("$dest$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlink <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4685	4797	
==>XX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4697	4809	
==>XX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2770	2903	
==>class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2770	2903	
==>class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2770	2903	
==>class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13166	13263	
==>ause something is not implemented yet. So
in order to still allow that to be tested, and those tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13224	13321	
==>ause something is not implemented yet. So
in order to still allow that to be tested, and those tes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1216	1349	
==>e.

=cut

sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXI <==
3	/Users/nnunley/pugs/util/package-osx.pl	1080	1177	
==>ocal/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline <==
3	/Users/nnunley/pugs/util/package-osx.pl	3390	3487	
==>ocal/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3248	3362	
==>ss_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3248	3362	
==>ss_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3248	3362	
==>ss_attributes}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->ST <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7756	7862	
==>(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7744	7850	
==>(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3537	3633	
==>}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3537	3633	
==>}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4127	4223	
==>}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$param_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2336	2430	
==>Str2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2336	2430	
==>Str2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2336	2430	
==>Str2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3128	3232	
==>= $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3128	3232	
==>= $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18882	18969	
==>sionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpressionNoIn> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4086	4265	
==>nt $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4086	4265	
==>nt $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	10	102	
==>odule Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	10	102	
==>odule Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13671	13786	
==>Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15196	15311	
==>Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12663	12766	
==>Both sources have zero tuples; so does result.
        return Relation::Example.new( heading => $!headin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1354	1461	
==>sign'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2516	2647	
==>e eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2516	2647	
==>e eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2516	2647	
==>e eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	120	223	
==>age information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	120	223	
==>age information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	120	223	
==>age information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2064	2251	
==>d($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2064	2251	
==>d($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2064	2251	
==>d($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $method);               
            }
            else {
                $cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4563	4710	
==>{
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4563	4710	
==>{
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4563	4710	
==>{
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	453	562	
==>y @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	453	562	
==>y @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	453	562	
==>y @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7843	7947	
==>{ Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7843	7947	
==>{ Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7843	7947	
==>{ Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1185	1283	
==>pace for your tastes, and
you want to rebless everything down to your project's base namespace.

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1185	1283	
==>pace for your tastes, and
you want to rebless everything down to your project's base namespace.

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1185	1283	
==>pace for your tastes, and
you want to rebless everything down to your project's base namespace.

Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4154	4261	
==>'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4371	4478	
==>'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match') <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5426	5562	
==>!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation::Example $other!) returns Bool {
    return !$?SELF.equal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1924	2037	
==>e.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2141	2254	
==>e.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37737	37866	
==>sa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37737	37866	
==>sa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37737	37866	
==>sa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11446	11592	
==>bind: ", Dumper( $n );
        return " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs::Runtime::Perl6::Scalar::Alias', " .
            "\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23538	23659	
==>lass, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23891	24012	
==>lass, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17277	17377	
==>his module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17277	17377	
==>his module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17277	17377	
==>his module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5903	6023	
==>opy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5903	6023	
==>opy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5903	6023	
==>opy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) { <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6991	7092	
==>error;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_indexs
sub read_designdo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3409	3517	
==>ss defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3409	3517	
==>ss defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3409	3517	
==>ss defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shift_n} = su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2406	2504	
==>$self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2406	2504	
==>$self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2406	2504	
==>$self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9550	9643	
==>parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9550	9643	
==>parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9550	9643	
==>parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB req <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5327	5517	
==>k new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7089	7279	
==>k new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block ne <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2346	2446	
==>ginal object they had
	# this lets us assign letters to them

	my @letters = split //, "αβγδεζ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	864	1058	
==>";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	864	1058	
==>";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	864	1058	
==>";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3315	3472	
==>flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3455	3612	
==>flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2858	2968	
==>$level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2858	2968	
==>$level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2858	2968	
==>$level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Uti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3523	3633	
==>At(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3523	3633	
==>At(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval late <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3523	3633	
==>At(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval late <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4492	4594	
==>(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = sp <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4492	4594	
==>(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = sp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	174	287	
==>efail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has % <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	174	287	
==>efail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has % <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14568	14667	
==>gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init=/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	905	1022	
==>tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $self->{ast}() <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	141	256	
==>_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	141	256	
==>_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.meth <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6009	6200	
==>und one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6473	6664	
==>und one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3770	3872	
==>::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	837	930	
==>de.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	837	930	
==>de.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	837	930	
==>de.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9900	10034	
==>ORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9900	10034	
==>ORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9900	10034	
==>ORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1244	1380	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1244	1380	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1244	1380	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4662	4793	
==>s and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4662	4793	
==>s and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4662	4793	
==>s and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSub <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4905	5085	
==>$! = $e;
            return undef; # this is probably the one place we can return
                          # in the Prelude: we want to exit from the
                          # *c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12821	12934	
==>ale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12821	12934	
==>ale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1749	1853	
==>e );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1749	1853	
==>e );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	290	389	
==>me;
my $data = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname ($data) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4249	4354	
==>pi... somewhere?
  sub flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10224	10324	
==>pher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10224	10324	
==>pher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1735	1844	
==>($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1735	1844	
==>($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1735	1844	
==>($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3610	3726	
==>re Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3610	3726	
==>re Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3610	3726	
==>re Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tiea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	166	272	
==>are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	166	272	
==>are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	166	272	
==>are compiled into __init_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1488	1589	
==>} elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1488	1589	
==>} elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1488	1589	
==>} elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6213	6316	
==>ub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15242	15339	
==>operty; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15242	15339	
==>operty; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	596	693	
==>should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submeth <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	596	693	
==>should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12914	13024	
==>b p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12914	13024	
==>b p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12914	13024	
==>b p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2001	2143	
==>ith &name
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16667	16778	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16667	16778	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16667	16778	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12964	13087	
==>ems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12964	13087	
==>ems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12964	13087	
==>ems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10716	10856	
==>d;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10716	10856	
==>d;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10716	10856	
==>d;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11789	12009	
==>ismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11789	12009	
==>ismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11789	12009	
==>ismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1995	2124	
==>wrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1995	2124	
==>wrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1995	2124	
==>wrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5906	6042	
==>, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5906	6042	
==>, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] x <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5906	6042	
==>, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16732	16841	
==>.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16732	16841	
==>.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16732	16841	
==>.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empt <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10997	11119	
==>> "Note: You might want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3022	3141	
==>ass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3022	3141	
==>ass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3022	3141	
==>ass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35099	35226	
==>ength >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35099	35226	
==>ength >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35099	35226	
==>ength >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6450	6651	
==>step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6450	6651	
==>step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6450	6651	
==>step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4473	4672	
==>name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4473	4672	
==>name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4473	4672	
==>name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31416	31567	
==>++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31416	31567	
==>++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31416	31567	
==>++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	239	356	
==>make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	239	356	
==>make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	239	356	
==>make_method(sub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10940	11049	
==>ERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10940	11049	
==>ERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10940	11049	
==>ERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3936	4130	
==>y.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7413	7607	
==>y.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6379	6573	
==>y.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method proj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9201	9334	
==>en;

=head2 Getting All Captures

You can access all the capture groups with the captures() method:

  my $all_captures = $parser->cap <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	14	116	
==>r::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	14	116	
==>r::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1932	2029	
==>f($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1932	2029	
==>f($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1932	2029	
==>f($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9343	9465	
==>erms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9536	9658	
==>erms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7050	7163	
==>ix:<[.[]]> (*$head is copy, *@rest is copy) {
  while @rest {
    $head = $head[shift @rest];
  }
  $head;
}


# s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23665	23887	
==>();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23665	23887	
==>();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23665	23887	
==>();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	778	913	
==>e {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	778	913	
==>e {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5841	5953	
==>list->new(),
            attribute->new('@:subclasses')      => list->new(),
            attribute->new('@:superc <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1358	1452	
==>ntents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Per <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1358	1452	
==>ntents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Per <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	161	279	
==>e;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc:: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	161	279	
==>e;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3821	3941	
==>Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3821	3941	
==>Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3821	3941	
==>Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3275	3383	
==>lem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3275	3383	
==>lem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3275	3383	
==>lem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14747	14860	
==>ap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14747	14860	
==>ap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14747	14860	
==>ap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9796	9905	
==>(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9796	9905	
==>(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9796	9905	
==>(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5401	5511	
==>HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standalone JavaScript f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5401	5511	
==>HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standalone JavaScript f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5401	5511	
==>HTML tag "<script src=...>". Of course, this feature is not available
when linking to a standalone JavaScript f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2692	2790	
==>relude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2692	2790	
==>relude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2692	2790	
==>relude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2808	3003	
==>::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2819	3014	
==>::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5700	5814	
==>olatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <Reserve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1762	1882	
==>ref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1762	1882	
==>ref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1998	2118	
==>ref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23124	23404	
==>>$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23124	23404	
==>>$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23124	23404	
==>>$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13864	13961	
==>ction_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13864	13961	
==>ction_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13864	13961	
==>ction_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1825	1955	
==>subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3318	3427	
==>fined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3318	3427	
==>fined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $sta <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5772	5908	
==>f.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5772	5908	
==>f.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10800	10923	
==>});


  ### '('

  $self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S->{next} }, qw< c) ato <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2422	2562	
==>less uc($1) eq $1;
    };
}

sub import {
    my $class = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	467	574	
==>num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<Varia <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	467	574	
==>num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<Varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	631	742	
==>b circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	631	742	
==>b circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	631	742	
==>b circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decremen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14382	14475	
==>ribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14382	14475	
==>ribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14382	14475	
==>ribute('%:private_methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12317	12418	
==>ION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (y <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12317	12418	
==>ION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (y <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3412	3509	
==>-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start)));
    XP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3416	3522	
==>"Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3416	3522	
==>"Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3416	3522	
==>"Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5063	5184	
==>>shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5063	5184	
==>>shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5063	5184	
==>>shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $sta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16367	16461	
==>ch@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. A <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16425	16519	
==>ch@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6609	6752	
==>{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6609	6752	
==>{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6609	6752	
==>{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11764	11925	
==>>{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11764	11925	
==>>{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11764	11925	
==>>{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3863	3972	
==>open the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3863	3972	
==>open the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">" <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	167	264	
==>mern oft
Probleme bereitet, wird sie in Perl 6 nur noch vom Datentyp
und nicht mehr vom Kontext ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7715	7831	
==>liases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7715	7831	
==>liases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7715	7831	
==>liases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12717	12843	
==>, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12717	12843	
==>, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	797	911	
==>$cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13388	13538	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13388	13538	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13388	13538	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3063	3174	
==>subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3541	3652	
==>subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13888	13983	
==>C (-11)

Sequence (?%.*s...) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAR <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7972	8109	
==>r target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 = substr target <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1060	1159	
==>f messages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be pri <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1060	1159	
==>f messages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be pri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22334	22425	
==>word")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22334	22425	
==>word")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9250	9377	
==>::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9250	9377	
==>::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9250	9377	
==>::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	258	380	
==>}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	258	380	
==>}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	258	380	
==>}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "rec <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7246	7363	
==>weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "la <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7246	7363	
==>weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16326	16440	
==>xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16326	16440	
==>xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16326	16440	
==>xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2108	2240	
==>p = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2108	2240	
==>p = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2108	2240	
==>p = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&I <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27882	27981	
==>s as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32434	32533	
==>s as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31526	31625	
==>s as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5132	5259	
==>hr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "La <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5132	5259	
==>hr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "La <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7105	7228	
==>ry   { die "not implemented" };
sub code  { die "not implemented" }
sub match { die "not implemented" }
sub perl5 { die " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4786	4876	
==>:$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attribut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4786	4876	
==>:$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6133	6237	
==>is to return the string set in advance with the prune method.

This feature is useful, like custom, for w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6133	6237	
==>is to return the string set in advance with the prune method.

This feature is useful, like custom, for w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6133	6237	
==>is to return the string set in advance with the prune method.

This feature is useful, like custom, for w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4688	4801	
==>named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4688	4801	
==>named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5278	5391	
==>named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4847	4972	
==>[],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4681	4799	
==>[],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3144	3249	
==>ds.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3144	3249	
==>ds.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3144	3249	
==>ds.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lva <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16560	16671	
==>> (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16560	16671	
==>> (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4953	5164	
==>);
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4953	5164	
==>);
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4953	5164	
==>);
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4330	4446	
==>(my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4330	4446	
==>(my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4330	4446	
==>(my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7553	7679	
==>match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted litera <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7553	7679	
==>match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted litera <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1430	1521	
==>yout($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name }

type::operator:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13569	13669	
==>B prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13569	13669	
==>B prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13569	13669	
==>B prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15226	15337	
==>})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15226	15337	
==>})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15226	15337	
==>})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21286	21554	
==>tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21286	21554	
==>tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21286	21554	
==>tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2906	3013	
==>my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Rep <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3370	3477	
==>my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Rep <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31200	31298	
==>over 4

=item branch

Whether this object has branches (like C<|>).

=item family

The general fami <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3919	4032	
==>global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3919	4032	
==>global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3919	4032	
==>global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27664	27761	
==>ach tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32216	32313	
==>ach tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31308	31405	
==>ach tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original tuple <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5815	5934	
==>t";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native type";
    my $cur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5530	5636	
==>t";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native type" <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2632	2733	
==>n't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2467	2573	
==>rn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2467	2573	
==>rn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2467	2573	
==>rn if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6282	6392	
==>exadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18116	18212	
==>visible in the Rosetta Native
Interface, if at all.  To account for situations where multiple DBM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18116	18212	
==>visible in the Rosetta Native
Interface, if at all.  To account for situations where multiple DBM <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3973	4075	
==>et::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3973	4075	
==>et::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1893	1999	
==>role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1893	1999	
==>role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1893	1999	
==>role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10290	10425	
==>es{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10290	10425	
==>es{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1821	1914	
==>erimental, pre-alpha development snapshot.  There are currently
no support for match flags; re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	38	142	
==>@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	38	142	
==>@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    ret <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12446	12531	
==>, p6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14045	14198	
==>se {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14045	14198	
==>se {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14045	14198	
==>se {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($is_cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14045	14183	
==>flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is poi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11369	11504	
==>s;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11369	11504	
==>s;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11369	11504	
==>s;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return un <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1588	1706	
==>t_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1588	1706	
==>t_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Ro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1717	1815	
==>s Relation::Tuple;

    # External packages used by the Relation::Example::Tuple class, that do exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4542	4634	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4542	4634	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4542	4634	
==>IL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3582	3704	
==>>add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3582	3704	
==>>add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3582	3704	
==>>add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3344	3501	
==>ritable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3344	3501	
==>ritable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3344	3501	
==>ritable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1007	1114	
==>med rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1007	1114	
==>med rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5391	5497	
==>ble/;

# a free variable is a placeholder
# when going into an AST these are generated
# as the AST is left <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13924	14051	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13924	14051	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13924	14051	
==>ttribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12400	12575	
==>eturn 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12394	12569	
==>eturn 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	487	604	
==>ment <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	487	604	
==>ment <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1814	1938	
==>ed.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1814	1938	
==>ed.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1814	1938	
==>ed.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_sta <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2747	2835	
==>------------------------------------
## inserting children

method insert_children ($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2747	2835	
==>------------------------------------
## inserting children

method insert_children ($self <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	86	174	
==>nstall/Scripts.pm"
package Module::Install::Scripts;
use Module::Install::Base; @ISA = qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	185	303	
==>nt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	185	303	
==>nt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	185	303	
==>nt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11340	11461	
==>to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}") <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11340	11461	
==>to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}") <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16307	16409	
==>ob
    .local pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = optable."parse" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23891	24018	
==>ext} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(1);       # 1 means <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2192	2311	
==>hile (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2192	2311	
==>hile (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2805	2920	
==>onstant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2805	2920	
==>onstant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2805	2920	
==>onstant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10729	10829	
==>rn @switches;
}

=head2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the c <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1629	1728	
==>meters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span tha <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1629	1728	
==>meters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span tha <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	368	499	
==>$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2183	2279	
==>ss of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2183	2279	
==>ss of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4826	4929	
==>"Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4826	4929	
==>"Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4826	4929	
==>"Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4853	4954	
==>mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4853	4954	
==>mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4853	4954	
==>mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1327	1426	
==>references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1327	1426	
==>references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1327	1426	
==>references. It uses
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3183	3288	
==>reter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3183	3288	
==>reter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3183	3288	
==>reter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12295	12390	
==>ed"><span title="<tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	409	493	
==>te authorization proxy_authorization authorization_basic proxy_authorization_basic
» <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	409	493	
==>te authorization proxy_authorization authorization_basic proxy_authorization_basic
» <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7126	7247	
==>erl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$k} {
                warning "Modifier :$k is not y <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4428	4533	
==>) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4428	4533	
==>) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	50	149	
==>l5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	50	149	
==>l5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16359	16476	
==>&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTP <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12780	12897	
==>&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTP <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2224	2320	
==>t");
    $optable->addToken("postfix:::", "postfix:*", "left", &fail);
    $optable->addToken("in <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2931	3045	
==>:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2931	3045	
==>:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10663	10769	
==>in(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10663	10769	
==>in(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10663	10769	
==>in(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6105	6202	
==>.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6105	6202	
==>.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6105	6202	
==>.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13018	13109	
==>method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13018	13109	
==>method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13018	13109	
==>method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1013	1149	
==>ype'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        sig  => $signatur <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8031	8160	
==>dic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8031	8160	
==>dic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14066	14241	
==>t = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14066	14241	
==>t = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14066	14241	
==>t = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1060	1189	
==>$method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1060	1189	
==>$method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1060	1189	
==>$method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3089	3198	
==>);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3089	3198	
==>);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3089	3198	
==>);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11542	11705	
==>ined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11542	11705	
==>ined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11542	11705	
==>ined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4176	4332	
==>oo many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\. <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4176	4332	
==>oo many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5503	5619	
==>m => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### move. Which means a <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9201	9331	
==>pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it's in windows
            # lan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25669	25763	
==>ell you an alternate, limited license that allows you to link
Rosetta with non-free software co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25669	25763	
==>ell you an alternate, limited license that allows you to link
Rosetta with non-free software co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	789	895	
==>.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	789	895	
==>.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1345	1451	
==>.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output fi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5508	5600	
==>test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5508	5600	
==>test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7705	7797	
==>test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14527	14635	
==>xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14527	14635	
==>xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14527	14635	
==>xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir: <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	799	935	
==>sh($y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4754	4874	
==>depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4812	4932	
==>depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9851	9971	
==>st_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9845	9965	
==>st_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19742	19844	
==>t STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	423	544	
==>ned)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	423	544	
==>ned)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	423	544	
==>ned)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
} <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8108	8214	
==>ld;
step
  descr  => "Checking if we have to rebuild the initrd",
  ensure => sub { defined $rebuild },
  u <==
3	/Users/nnunley/pugs/util/package-osx.pl	5637	5734	
==>man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/local <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18974	19069	
==>erlying
object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> fie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2913	3054	
==>ubname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2913	3054	
==>ubname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2913	3054	
==>ubname;

    # We have an invocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16971	17076	
==>:round_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16632	16736	
==>r { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16632	16736	
==>r { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2369	2505	
==>@_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2369	2505	
==>@_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2369	2505	
==>@_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'H <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	743	838	
==>t) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	743	838	
==>t) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	743	838	
==>t) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37163	37287	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37163	37287	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37163	37287	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3816	3968	
==>ck')) {
            my $ref = reference->new($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $va <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3504	3605	
==>are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3504	3605	
==>are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	333	435	
==>.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	333	435	
==>.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	333	435	
==>.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5603	5702	
==>e algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class method.  Returns a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6372	6462	
==>lize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<obje <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6372	6462	
==>lize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<obje <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	582	681	
==>mply a source code generator.
   Which also addresses the problem that macros are currently
   quite <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	582	681	
==>mply a source code generator.
   Which also addresses the problem that macros are currently
   quite <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1116	1204	
==>_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12427	12549	
==>$symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12427	12549	
==>$symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12427	12549	
==>$symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3450	3569	
==>unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3450	3569	
==>unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3450	3569	
==>unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $lin <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4062	4160	
==>to run after the kernel has started.
  --welcome-p6=$welcome_p6
    --welcome-p6 is a Perl 6 progra <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40992	41083	
==>KNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40992	41083	
==>KNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5300	5516	
==>00;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5300	5516	
==>00;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30314	30411	
==>n of this object.  It includes the visual
representation of any children of the object.

=item $ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14059	14189	
==>mp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14059	14189	
==>mp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14059	14189	
==>mp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp un <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12310	12429	
==>s} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29076	29174	
==>ly just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33628	33726	
==>ly just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4147	4260	
==>e it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4147	4260	
==>e it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4147	4260	
==>e it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19787	19883	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19787	19883	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19787	19883	
==>> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1524	1631	
==>arp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1524	1631	
==>arp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1524	1631	
==>arp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13039	13152	
==>pts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13039	13152	
==>pts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13039	13152	
==>pts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dis <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3972	4113	
==>erent lines,
        # happens often on VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9314	9413	
==>eck $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9314	9413	
==>eck $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1047	1175	
==>d_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1047	1175	
==>d_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1256	1384	
==>d_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_named = 1;
	    $db_param->is_o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29445	29554	
==>The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33997	34106	
==>The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33161	33270	
==>The members of the argument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16104	16283	
==>wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

clas <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1601	1693	
==>lass Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy su <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1601	1693	
==>lass Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy su <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2898	2999	
==>HC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2898	2999	
==>HC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5570	5669	
==>$v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::String $v <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16937	17100	
==>.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($fai <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2016	2117	
==>if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2016	2117	
==>if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12652	12819	
==>,
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12652	12819	
==>,
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12652	12819	
==>,
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5684	5823	
==>unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5684	5823	
==>unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5684	5823	
==>unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.len <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	103	209	
==>ashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert methods
m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	2	103	
==>/usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	2	103	
==>/usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4144	4241	
==>THODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4144	4241	
==>THODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5668	5765	
==>THODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, cr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5004	5135	
==>{
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5197	5328	
==>{
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20899	20991	
==>cket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell telldir truncate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6584	6707	
==>/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6584	6707	
==>/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6584	6707	
==>/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_sourc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1031	1173	
==>($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_li <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1031	1173	
==>($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_li <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1846	1940	
==>the testscripts named
as arguments and checks standard output for the expected strings
in TAP f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6953	7057	
==>ing an Instance

To use this module as is, load it, and create an instance:

  use Regexp::Parser;
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5734	5831	
==>ext, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5734	5831	
==>ext, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6800	6934	
==>(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6800	6934	
==>(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6800	6934	
==>(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11620	11750	
==>us();
          my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2056	2180	
==>us();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2056	2180	
==>us();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	925	1022	
==>Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	925	1022	
==>Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	925	1022	
==>Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5938	6033	
==>sert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workarou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5938	6033	
==>sert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workarou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1181	1286	
==>IL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1181	1286	
==>IL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1181	1286	
==>IL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $P <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11792	11886	
==>owever the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1181	1275	
==>t::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module Getopt::Emitter <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11850	11944	
==>owever the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4120	4254	
==>y $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4120	4254	
==>y $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4120	4254	
==>y $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9335	9506	
==>emented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9335	9506	
==>emented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6957	7065	
==>ws>? 
    \) <p6ws>? \;
        { return { eval_perl5 => $<literal> } }
RULE
*{'_return'} = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2111	2212	
==>Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2111	2212	
==>Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2111	2212	
==>Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5116	5264	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5116	5264	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5116	5264	
==>[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2590	2698	
==>);

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2590	2698	
==>);

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2590	2698	
==>);

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unle <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14862	14978	
==>rams} = \@params;
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13678	13773	
==>e" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&proces <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13678	13773	
==>e" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&proces <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13955	14057	
==>lf->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1435	1537	
==>lf->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2779	2878	
==>res a dynamic scope
for it).

If we have a Thunk inside '&func' in the Env, executing this tree will <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3696	3813	
==>version if $version =~ /^\.?\d/;
    return '0.0';
}

=pod

=head2 JIB::Utils->_whoami

Returns the name of the subrou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1694	1859	
==>b {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1694	1859	
==>b {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1694	1859	
==>b {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{edi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	958	1080	
==>"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	958	1080	
==>"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38451	38542	
==>us> and C<not_matching>.

=item C<semijoin (Relation::Example $other!) returns Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1648	1788	
==>h applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1648	1788	
==>h applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("C <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2329	2423	
==>t::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_arguments( $string ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7635	7754	
==>adOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7635	7754	
==>adOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7635	7754	
==>adOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Alw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23515	23622	
==>ement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23515	23622	
==>ement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23515	23622	
==>ement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2274	2397	
==>__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$desc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2274	2397	
==>__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3740	3843	
==>umper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3740	3843	
==>umper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3740	3843	
==>umper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5844	5944	
==>e_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5844	5944	
==>e_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5844	5944	
==>e_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23503	23620	
==>andle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23503	23620	
==>andle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23503	23620	
==>andle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17582	17764	
==>m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21059	21241	
==>m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20646	20828	
==>m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6641	6770	
==>stfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6641	6770	
==>stfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6641	6770	
==>stfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7306	7479	
==>name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7306	7479	
==>name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7306	7479	
==>name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10024	10208	
==>) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6365	6549	
==>) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7214	7398	
==>) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24062	24167	
==>ttr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3131	3227	
==>infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@ar <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3131	3227	
==>infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@ar <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	77	171	
==>ies ist ein Kommentar :-)
#!}\end{block}

Zum auskommentieren mehrerer Zeilen kann man POD benu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14637	14731	
==>closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14637	14731	
==>closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14637	14731	
==>closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3774	3889	
==>nline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Bec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3774	3889	
==>nline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Bec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3774	3889	
==>nline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3758	3857	
==>oroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3758	3857	
==>oroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3758	3857	
==>oroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	202	327	
==>) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	202	327	
==>) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6883	6991	
==>0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backsl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22950	23124	
==>m, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22950	23124	
==>m, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22950	23124	
==>m, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17196	17289	
==>UB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17196	17289	
==>UB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17196	17289	
==>UB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16278	16443	
==>class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16278	16443	
==>class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16278	16443	
==>class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8326	8534	
==>hod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8326	8534	
==>hod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8326	8534	
==>hod
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call n <==
3	/Users/nnunley/pugs/util/package-osx.pl	9106	9210	
==>{dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	521	622	
==>∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# mul <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	521	622	
==>∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4273	4405	
==>sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4273	4405	
==>sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4273	4405	
==>sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9546	9635	
==>val_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9546	9635	
==>val_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9546	9635	
==>val_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5095	5218	
==>substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5095	5218	
==>substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	865	1010	
==>(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	865	1010	
==>(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	865	1010	
==>(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8387	8490	
==>YNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may no <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8387	8490	
==>YNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12923	13060	
==>'{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6398	6535	
==>'{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6889	6985	
==>", @array.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2JS Operators.pm r8593.
# Prim.hs say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6275	6371	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6275	6371	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6275	6371	
==>\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3679	3874	
==>_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3532	3721	
==>_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4875	4982	
==>e2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \@_=".$code1."\$cn".$code2.";g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5363	5479	
==>s you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5363	5479	
==>s you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5363	5479	
==>s you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6453	6600	
==>e => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tighter',
        #~ other => '*',
    #~ );

    __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3980	4062	
==>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3980	4062	
==>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4420	4573	
==>{
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4420	4573	
==>{
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4420	4573	
==>{
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16775	16888	
==>y Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16775	16888	
==>y Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ni <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4177	4307	
==>ference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4177	4307	
==>ference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4177	4307	
==>ference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31630	31815	
==>ift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31630	31815	
==>ift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31630	31815	
==>ift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3577	3688	
==>ace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAhea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3577	3688	
==>ace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAhea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3577	3688	
==>ace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAhea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3840	3989	
==>ludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3840	3989	
==>ludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3840	3989	
==>ludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2429	2553	
==>ERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2429	2553	
==>ERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2429	2553	
==>ERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31666	31783	
==>e no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16569	16681	
==>), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16569	16681	
==>), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @qu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32558	32662	
==>multi-method is the N-ary version of the aforementioned binary union()
operator, and the order of its arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37108	37212	
==>multi-method is the N-ary version of the aforementioned binary union()
operator, and the order of its arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36416	36520	
==>multi-method is the N-ary version of the aforementioned binary union()
operator, and the order of its arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2922	3115	
==>);
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift;
                my $size = $idx + 1;
                if ($self->array <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7577	7692	
==>@rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7770	7885	
==>@rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1420	1533	
==>ibutes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1420	1533	
==>ibutes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1420	1533	
==>ibutes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	751	863	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	751	863	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	751	863	
==>ODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4450	4585	
==>sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4450	4585	
==>sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4450	4585	
==>sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	152	253	
==>will develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a backtracking, recursive <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15351	15450	
==>econds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=ov <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15351	15450	
==>econds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10857	10960	
==>te;
    method get_attribute_list;            
}

------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10857	10960	
==>te;
    method get_attribute_list;            
}

------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10857	10960	
==>te;
    method get_attribute_list;            
}

------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6782	6910	
==>my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6782	6910	
==>my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10247	10360	
==>if (@$st and @{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) {
      my $br = $st->[-1][-1];
      $br- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	97	202	
==>s Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $messag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	97	202	
==>s Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17592	17791	
==>)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17592	17791	
==>)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17592	17791	
==>)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30280	30372	
==>'s
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34832	34924	
==>'s
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$headi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8055	8181	
==>backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8055	8181	
==>backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8055	8181	
==>backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	424	572	
==>2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	424	572	
==>2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	424	572	
==>2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	961	1063	
==>sh;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	961	1063	
==>sh;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	961	1063	
==>sh;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	20	126	
==>s::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	20	126	
==>s::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	20	126	
==>s::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4707	4812	
==>\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4707	4812	
==>\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4707	4812	
==>\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5348	5480	
==>q(
            <Pugs::Grammar::Term.substitution>
            { return { 
                    substitution => $/{'Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16960	17061	
==>ty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16960	17061	
==>ty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2186	2286	
==>reludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2186	2286	
==>reludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2186	2286	
==>reludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8705	8837	
==>>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8705	8837	
==>>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	634	742	
==>X missing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]),
          $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9269	9369	
==>TI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9269	9369	
==>TI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9269	9369	
==>TI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7585	7674	
==>tcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7585	7674	
==>tcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7585	7674	
==>tcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7657	7775	
==>],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)');

# resolve the class and pull in all the roles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25333	25427	
==>t.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29885	29979	
==>t.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5640	5742	
==>y.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5640	5742	
==>y.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5640	5742	
==>y.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, pos <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7204	7326	
==>n $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_sco <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4978	5089	
==>};
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4978	5089	
==>};
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span. <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1150	1253	
==>includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ig <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1150	1253	
==>includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ig <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23734	23829	
==>any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23734	23829	
==>any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1949	2052	
==>my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1949	2052	
==>my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1949	2052	
==>my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3860	3991	
==>new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3860	3991	
==>new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3860	3991	
==>new_class->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    )) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	441	532	
==>tion authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	441	532	
==>tion authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14313	14432	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14313	14432	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14313	14432	
==>@_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19365	19467	
==>1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19365	19467	
==>1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19365	19467	
==>1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1074	1200	
==>{
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1074	1200	
==>{
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1074	1200	
==>{
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4915	5055	
==>r {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6195	6323	
==>chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "om <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6195	6323	
==>chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "om <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	381	474	
==>w PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	381	474	
==>w PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	381	474	
==>w PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	690	787	
==>or my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var}, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	690	787	
==>or my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var}, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	708	805	
==>or my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var}, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3468	3650	
==>lf = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3314	3456	
==>xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} un <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3314	3456	
==>xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} un <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1724	1833	
==>TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1724	1833	
==>TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method interse <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30121	30226	
==>e regex.

=item my $t = $obj->type()

The specific type of this object.  See the object's documentation fo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12213	12358	
==>status);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$test{failed <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20358	20448	
==>b{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eval_p5_log_code($code);
	$mfun = eval($code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	474	585	
==>s our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	474	585	
==>s our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	474	585	
==>s our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    retur <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5249	5351	
==>die "error: file '$mid' not found.\n";
-f $wc   or die "error: file '$wc' not found.\n";
PrintGolfScore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20077	20173	
==>o most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20077	20173	
==>o most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2195	2299	
==>($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!childre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2195	2299	
==>($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!childre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	396	506	
==>my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	396	506	
==>my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	396	506	
==>my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7736	7896	
==>ry = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7736	7896	
==>ry = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7736	7896	
==>ry = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10575	10694	
==>ext unless defined $switch;
        $switch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	277	394	
==>ck>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	277	394	
==>ck>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8366	8469	
==>==========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8366	8469	
==>==========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8366	8469	
==>==========

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_) }
my <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	768	930	
==>$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Coul <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	768	930	
==>$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Coul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	507	615	
==>le interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14845	14972	
==>->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14845	14972	
==>->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14845	14972	
==>->clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value:: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9325	9436	
==>$initrd_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  step
    descr  => " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	234	338	
==>t.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	234	338	
==>t.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    retur <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8602	8727	
==>,
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "per <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8602	8727	
==>,
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1068	1182	
==>ly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1068	1182	
==>ly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1068	1182	
==>ly, call the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40621	40735	
==>) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40621	40735	
==>) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40621	40735	
==>) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12311	12427	
==>s Relation::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21478	21574	
==>(c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribut <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21478	21574	
==>(c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribut <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16067	16158	
==>0,E1).

rm(lookahead(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,F0,_,B0,_,E0,_).
rm(lookahead_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20807	20896	
==>e distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20807	20896	
==>e distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1067	1179	
==>::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1067	1179	
==>::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1067	1179	
==>::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5027	5142	
==>n the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5027	5142	
==>n the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5027	5142	
==>n the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15156	15289	
==>it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15156	15289	
==>it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15156	15289	
==>it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1582	1704	
==>Y') {
            $vs = "[\n".$o->_indent(join(",\n",map{$_->describe}@$v))."\n]";
        } else {
            $vs = $v->d <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1791	1906	
==>Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1791	1906	
==>Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9259	9418	
==>-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9259	9418	
==>-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9259	9418	
==>-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4290	4401	
==>of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4290	4401	
==>of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4290	4401	
==>of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	483	585	
==>ack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	483	585	
==>ack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	483	585	
==>ack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17836	17926	
==>I SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17836	17926	
==>I SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17836	17926	
==>I SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($x <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2224	2361	
==>infix',
    } );
    $cat->add_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence => 'looser' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8197	8295	
==>tem I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=item <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8197	8295	
==>tem I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=item <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	735	843	
==>ight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <equ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12585	12685	
==>@_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6060	6160	
==>@_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11353	11498	
==>e->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11353	11498	
==>e->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11353	11498	
==>e->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	775	884	
==>create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	775	884	
==>create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	775	884	
==>create a boxed undefined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3809	3946	
==>l5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/x <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3809	3946	
==>l5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/x <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3377	3506	
==>dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	719	821	
==>ase dirs
### XXX touch the 'root' entry and the tests will run somewhere quite different!
$config{'root <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15972	16067	
==>s? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15972	16067	
==>s? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Docu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5654	5807	
==>method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7416	7569	
==>method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1552	1686	
==>:List::map (Code $expression ; *@values) returns Lazy {
   gather {
     while @values {
       take $expression
          .( splice(@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	402	517	
==>ry {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	402	517	
==>ry {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	402	517	
==>ry {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs s <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2491	2624	
==>s(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    un <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1052	1138	
==>:Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1052	1138	
==>:Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15597	15706	
==>patcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15597	15706	
==>patcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15597	15706	
==>patcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition ea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1892	2063	
==>s >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2097	2268	
==>s >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2160	2331	
==>s >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6002	6189	
==>}),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9479	9666	
==>}),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9024	9146	
==>efault;

	my $slurpy = ref($op{'paramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurpy'};

	my $pname = $op{'paramName'};
	pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9256	9357	
==>calar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9256	9357	
==>calar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9256	9357	
==>calar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2285	2404	
==>st::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2285	2404	
==>st::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30844	30937	
==>ethod is a generic relational operator that returns a new Relation::Example
which has a supers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2089	2203	
==>$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2089	2203	
==>$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2089	2203	
==>$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37224	37338	
==>ce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41773	41887	
==>ce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41396	41510	
==>ce relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	527	644	
==>de)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5639	5741	
==>les



=head1 Compiler processes



### separate "processes" from actual module documentation?



=head <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5446	5542	
==>les

=head1 Compiler processes

### separate "processes" from actual module documentation?

=head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	306	431	
==>,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13195	13319	
==>);
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13195	13319	
==>);
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5673	5798	
==>package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'loos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5673	5798	
==>package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'loos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11321	11408	
==>ails_ok { $iBar->another_singleton_test_on_object } '... instance calling metaclass sing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	209	315	
==>ebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	209	315	
==>ebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	209	315	
==>ebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8979	9081	
==>{ my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8979	9081	
==>{ my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8979	9081	
==>{ my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5871	6162	
==>and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defau <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5871	6162	
==>and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2351	2464	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2351	2464	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2351	2464	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6249	6364	
==>.)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it return until t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6048	6158	
==>.)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it return until t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36831	36937	
==>tive look-ahead.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13120	13229	
==>this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13120	13229	
==>this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13120	13229	
==>this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1012	1140	
==>.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1012	1140	
==>.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3921	4013	
==>-----------------
## removing children

method remove_child_at ($self: Int $index) returns Tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3921	4013	
==>-----------------
## removing children

method remove_child_at ($self: Int $index) returns Tr <==
3	/Users/nnunley/pugs/util/importgraph.pl	2148	2233	
==>s\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40054	40178	
==>$key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40054	40178	
==>$key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40054	40178	
==>$key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1182	1303	
==>pply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1182	1303	
==>pply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1182	1303	
==>pply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1304	1411	
==>ions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1304	1411	
==>ions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1304	1411	
==>ions support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unsh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4453	4563	
==>** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4453	4563	
==>** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4453	4563	
==>** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4263	4420	
==>tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4263	4420	
==>tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4263	4420	
==>tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4777	4878	
==>in,Max) --> ",", digits_int(Max), !.
p5_range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4459	4555	
==>d1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as has <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4459	4555	
==>d1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as has <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	999	1111	
==>(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6356	6456	
==>n until the start of the rule, which unsets the flag before returning.

- this can also be used to do <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6150	6249	
==>n until the start of the rule, which unsets the flag before returning.
- this can also be used to do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3633	3804	
==>( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3633	3804	
==>( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3633	3804	
==>( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19185	19281	
==>0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19185	19281	
==>0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19185	19281	
==>0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13436	13533	
==>ted

=item RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (? <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1961	2055	
==>have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called b <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1961	2055	
==>have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called b <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1365	1460	
==>), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - takes <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1365	1460	
==>), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - takes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	497	605	
==>ce, comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n| <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2743	2849	
==>ZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval> <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2743	2849	
==>ZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2136	2307	
==>n the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2136	2307	
==>n the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channel <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12177	12266	
==>pe_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1171	1391	
==>re => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            index => {
                store => \$index
            },
            ind <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7073	7209	
==>>( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7061	7197	
==>>( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5844	5960	
==>ess defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5844	5960	
==>ess defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	790	893	
==>@_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2172	2359	
==>@tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2172	2359	
==>@tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	366	460	
==>::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use HTML::TreeBuilder;
use HTML <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7399	7520	
==>tance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7399	7520	
==>tance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7399	7520	
==>tance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35976	36129	
==>$length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35976	36129	
==>$length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35976	36129	
==>$length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> hea <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	837	997	
==>n $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	837	997	
==>n $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7030	7133	
==>n },
  using  => sub { $pugs_version = get_version($pugs) };

step
  descr  => "Checking for Parrot bina <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	759	851	
==>nfix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	759	851	
==>nfix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	759	851	
==>nfix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14949	15068	
==>$second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a pro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14949	15068	
==>$second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a pro <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1774	1874	
==>e with test files, and do objective 1 above.

If anyone would like to help out, let me know, and I'll <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3008	3104	
==>t2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3008	3104	
==>t2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4961	5047	
==>equence> | <octal_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	20	138	
==>IL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	20	138	
==>IL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	20	138	
==>IL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1604	1708	
==>}
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1604	1708	
==>}
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1604	1708	
==>}
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11833	11972	
==>:Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method sta <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2255	2380	
==>:Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method sta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2255	2380	
==>:Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method sta <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16787	16892	
==>ed using val(10) into int -> int
# x is inferred to be int
my $plus_ten = fun(
	param => "x",
	body => com <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3580	3672	
==>a::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3580	3672	
==>a::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3356	3490	
==>ass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3356	3490	
==>ass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3356	3490	
==>ass->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9930	10047	
==>@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9930	10047	
==>@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9930	10047	
==>@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1912	2036	
==>'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1912	2036	
==>'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1912	2036	
==>'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_fro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14681	14883	
==>ared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18158	18360	
==>ared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17574	17776	
==>ared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9296	9422	
==>[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9284	9410	
==>[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	131	232	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	131	232	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11957	12052	
==>t have the F<charnames> pragma installed, but since
this module requires Perl 5.6 or better, I d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13910	14027	
==>:stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13910	14027	
==>:stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13910	14027	
==>:stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4720	4842	
==>×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaro <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4720	4842	
==>×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaro <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1438	1531	
==>ns/standards/Ecma-262.htm
#   http://bclary.com/2004/11/07/ecma-262
#
#  The SPEC grammar SHOU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5775	5889	
==>=> sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 5, '... $Bar is the fif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17424	17527	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17424	17527	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17424	17527	
==>'%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17706	17836	
==>...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17706	17836	
==>...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17706	17836	
==>...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	709	819	
==>um :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wait <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	709	819	
==>um :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wait <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8737	8874	
==>ms => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8737	8874	
==>ms => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	804	918	
==>the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	804	918	
==>the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2532	2630	
==>test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(sub{su <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3777	3878	
==>, Pugs.Version.version)
    ,("pugs_revision", Pugs.Version.revnum)
    ]

getConfig :: String -> Stri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9804	9897	
==>urn
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9804	9897	
==>urn
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	975	1110	
==>p"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	975	1110	
==>p"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	975	1110	
==>p"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usa <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	244	364	
==>::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a given $callb <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4459	4551	
==>::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4459	4551	
==>::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2903	3022	
==>->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2903	3022	
==>->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2903	3022	
==>->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	686	795	
==>d->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	686	795	
==>d->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	686	795	
==>d->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5664	5761	
==>@b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5664	5761	
==>@b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5664	5761	
==>@b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1894	2025	
==>hen Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1894	2025	
==>hen Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8534	8627	
==>r the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8534	8627	
==>r the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1714	1894	
==>Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1714	1894	
==>Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5669	5786	
==>>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1371	1479	
==>ft->id->to_native <=> $right->id->to_native;
}

## methods

sub id    { (shift)->[0]        }
sub class { (sh <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1409	1510	
==>Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1409	1510	
==>Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9142	9238	
==>p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9142	9238	
==>p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9142	9238	
==>p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18794	19021	
==>0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18794	19021	
==>0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18794	19021	
==>0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38536	38668	
==>od label
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::si <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	124	215	
==>----------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	147	238	
==>-----
## Mini Meta-Model with Self-Bootstrapping Roles
## ---------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17501	17623	
==>'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17501	17623	
==>'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7220	7326	
==>_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7220	7326	
==>_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2153	2263	
==>,
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2153	2263	
==>,
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2153	2263	
==>,
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3800	4047	
==>ON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3800	4047	
==>ON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/util/testgraph.pl	452	550	
==>$!";
binmode $yamlfh, ":utf8" or die "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	884	993	
==>ow belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	884	993	
==>ow belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	884	993	
==>ow belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2705	2810	
==>stant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2705	2810	
==>stant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2705	2810	
==>stant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5045	5226	
==>est you're summarizing.
            my $details = {
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( defined( $detai <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15083	15184	
==>ew( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15083	15184	
==>ew( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an e <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	485	596	
==>= Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	485	596	
==>= Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2266	2364	
==>ation is discarded.

The perl5 regexp engine is entangled with the rest of the perl core.
Some of t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22694	22807	
==>tement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> < <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4102	4198	
==>TP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http:// <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4102	4198	
==>TP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http:// <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6810	6904	
==>ix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6810	6904	
==>ix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6810	6904	
==>ix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	621	805	
==>id}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	621	805	
==>id}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1964	2082	
==>ion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1964	2082	
==>ion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1964	2082	
==>ion (filename) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	302	417	
==>ft @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	302	417	
==>ft @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	302	417	
==>ft @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6081	6203	
==>d previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6081	6203	
==>d previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    re <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3829	3921	
==>g_func 'cosech';
trig_func 'cotanh';
trig_func 'asech';
trig_func 'acosech';
trig_func 'acota <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26160	26288	
==>sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	482	588	
==>{ use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	482	588	
==>{ use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22085	22185	
==>ch
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26637	26737	
==>ch
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25333	25433	
==>ch
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6603	6752	
==>rs!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6603	6752	
==>rs!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2441	2556	
==>ock       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15415	15516	
==>e when the header value is set.

=over 4

=item $h.date

This header represents the date and time at w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15415	15516	
==>e when the header value is set.

=over 4

=item $h.date

This header represents the date and time at w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9799	9901	
==>ess \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9793	9895	
==>ess \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4843	4938	
==>ourth id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', '... $F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	598	717	
==>map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	598	717	
==>map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	598	717	
==>map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7763	7869	
==>r {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7763	7869	
==>r {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7763	7869	
==>r {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	792	905	
==>- %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	792	905	
==>- %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	792	905	
==>- %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2806	2923	
==>from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2806	2923	
==>from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2806	2923	
==>from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1232	1331	
==>b_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1232	1331	
==>b_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1441	1540	
==>b_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	389	519	
==>todate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35695	35787	
==>turns Relation>

This multi-method is a generic binary relational operator that takes
another <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40245	40337	
==>turns Relation>

This multi-method is a generic binary relational operator that takes
another <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	143	262	
==>"abstract", "Bool");

# traits, really
Has($?CLASS, "attributes", "Set", { companion => "class" });
Has($?CLASS, "associ <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	459	570	
==>erl6') for <perl5/*>;
    copy_all("$_/blibjs/", 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully buil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	504	612	
==>the 
    # expected types of those objects (or possibly
    # the default values too)
    (blessed($signature <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4360	4503	
==>ist::end     safe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26695	26791	
==>ject.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26695	26791	
==>ject.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27797	27927	
==>()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "-- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5856	5968	
==>acements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9333	9445	
==>acements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2852	3087	
==>::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2852	3087	
==>::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2852	3087	
==>::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	145	325	
==>ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	146	326	
==>ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::const <==
3	/Users/nnunley/pugs/util/addauthors.pl	849	985	
==>f ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	899	1038	
==>else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	912	1042	
==>else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ m <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	339	463	
==>se_arguments( @args ) );
        }

        method parse_arguments ( Array of Str @args ) {
            collect_arguments( se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3012	3113	
==>ts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3012	3113	
==>ts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4536	4637	
==>ts?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4853	4958	
==>t, and that some of those
    things are subs or methods rather than rules or macros. (The numeric
    rxm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13458	13553	
==>ds.

=item $h.header_field_names

Returns the list of distinct names for the fields present in t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13458	13553	
==>ds.

=item $h.header_field_names

Returns the list of distinct names for the fields present in t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14750	14881	
==>t_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => - <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14750	14881	
==>t_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => - <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13852	13951	
==>nt|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Hash::va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7873	7983	
==>my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7873	7983	
==>my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7873	7983	
==>my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27275	27430	
==>l'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27554	27709	
==>l'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	107	202	
==>lder.pm";

$::TestBuilder->STORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::O <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1779	1876	
==>, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1779	1876	
==>, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1283	1404	
==>tance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1283	1404	
==>tance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1283	1404	
==>tance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13132	13223	
==>hat the "Locale::KeyedText" package serves only as the name-sake
representative for this who <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13132	13223	
==>hat the "Locale::KeyedText" package serves only as the name-sake
representative for this who <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27893	27991	
==>.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32445	32543	
==>.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31537	31635	
==>.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9262	9408	
==>},
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9262	9408	
==>},
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9262	9408	
==>},
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4968	5080	
==>ke_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4968	5080	
==>ke_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4968	5080	
==>ke_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_inst <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11994	12113	
==>iveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenially danger <==
3	/Users/nnunley/pugs/util/config_h.pl	1033	1141	
==>OSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try_compile(<< '.');
imp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29311	29418	
==>re of the same type. If
it is called I<after> $obj has been added to the tree, $obj will be
removed from the <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1725	1874	
==>mmand (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our curre <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1725	1874	
==>mmand (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our curre <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9885	10002	
==>xed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9885	10002	
==>xed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12835	12991	
==>hod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12835	12991	
==>hod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12835	12991	
==>hod = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                | <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1286	1411	
==>$self->{seen}{$node}){
		if ($self->{current_node} eq $node) {
			$self->{current_node} = '';
		} else {
			return $self->{nam <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3063	3155	
==>l::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3063	3155	
==>l::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10814	10923	
==>nction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10814	10923	
==>nction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10814	10923	
==>nction (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3399	3493	
==>mes () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3399	3493	
==>mes () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17141	17263	
==>nboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17141	17263	
==>nboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17141	17263	
==>nboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	606	769	
==>ment until end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] \n";
    r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6601	6703	
==>irectories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6601	6703	
==>irectories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3975	4085	
==>:$base --> Num )
 {
     Pugs::Internals::atan2($y,$x);
 }


 multi Math::Trig::pi ( --> Num )
 {
     3.141592 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7391	7490	
==>exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10868	10967	
==>exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1880	1986	
==>ew('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1880	1986	
==>ew('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1880	1986	
==>ew('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (define <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1124	1264	
==>ush($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1124	1264	
==>ush($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10896	10999	
==>utting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	406	501	
==>, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	406	501	
==>, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	406	501	
==>, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
G <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1383	1482	
==>a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1383	1482	
==>a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1383	1482	
==>a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6046	6430	
==>("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7808	8192	
==>("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3225	3406	
==>son,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill_all with a plan' if defined _('$.testplan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21103	21293	
==>"CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21103	21293	
==>"CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21103	21293	
==>"CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->sto <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22930	23027	
==>in distinctions of this approach over similar packages is that
text is always looked up by a key w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22930	23027	
==>in distinctions of this approach over similar packages is that
text is always looked up by a key w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1690	1792	
==>os;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1690	1792	
==>os;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8353	8444	
==>eg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L]) --> "i", p5_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9659	9760	
==>complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9659	9760	
==>complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15690	15785	
==>der, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_files);

Calculates how <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2963	3073	
==>queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2963	3073	
==>queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14175	14311	
==>$any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14175	14311	
==>$any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14175	14311	
==>$any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2288	2399	
==>key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2288	2399	
==>key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2288	2399	
==>key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24951	25051	
==>ber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29503	29603	
==>ber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28415	28515	
==>ber tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method return <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3904	4008	
==>o(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $ma <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3962	4066	
==>o(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6562	6670	
==>n ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6343	6446	
==>n ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually cont <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	113	271	
==>oize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later... <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	113	271	
==>oize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later... <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7422	7535	
==><"pSubName"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lvalue, @params, $type );
    }
    elsif $tree <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9297	9418	
==>ncrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decry <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9297	9418	
==>ncrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decry <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2711	2825	
==>os);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2711	2825	
==>os);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2711	2825	
==>os);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1365	1469	
==>).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1365	1469	
==>).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1365	1469	
==>).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
metho <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	929	1030	
==>, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	987	1088	
==>, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7737	7848	
==>rgs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7737	7848	
==>rgs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7737	7848	
==>rgs) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9537	9696	
==>, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9537	9696	
==>, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9537	9696	
==>, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1572	1677	
==>ew PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1572	1677	
==>ew PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1572	1677	
==>ew PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4204	4352	
==>df"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4204	4352	
==>df"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1483	1587	
==>required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	50	160	
==>VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	50	160	
==>VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	50	160	
==>VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5656	5813	
==>stantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5656	5813	
==>stantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5656	5813	
==>stantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7661	7777	
==>_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7661	7777	
==>_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7661	7777	
==>_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :glob <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26359	26454	
==>is copied on input and output, any
variable values which are references will be passed by refere <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26359	26454	
==>is copied on input and output, any
variable values which are references will be passed by refere <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8561	8659	
==>Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8561	8659	
==>Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	777	955	
==>slator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	777	955	
==>slator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@u <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3359	3482	
==>files
                for my $meth (qw[registered_alternatives_file available_file]) {
                    system( qw[touch] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1629	1767	
==>nce => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        prec <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5758	5859	
==>Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () { <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5758	5859	
==>Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18725	18822	
==>an users.  This association would normally be
stored in a Perl file that defines and returns an an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18725	18822	
==>an users.  This association would normally be
stored in a Perl file that defines and returns an an <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3428	3513	
==>Z) --> p5_quantified(X), p5_concatenation_more(conc(W,X), Z), !.
p5_concatenation_more <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11385	11479	
==>currence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11385	11479	
==>currence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2997	3110	
==>rgs) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2997	3110	
==>rgs) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2997	3110	
==>rgs) {
    var cc = args.pop();
    PIL2JS.warn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4399	4512	
==>iff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4399	4512	
==>iff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	230	336	
==>CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	230	336	
==>CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	230	336	
==>CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Cl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2713	2818	
==>an be
used to set perl command line options used for running the test
script(s). The default value is C<-w <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7387	7482	
==>('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' direc <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7387	7482	
==>('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' direc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4171	4278	
==>-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4171	4278	
==>-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4171	4278	
==>-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27052	27151	
==>w files appeared in that directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23571	23700	
==>}
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(method sup <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7267	7365	
==>uring.



There are 2 kinds of ruleop operators:



- higher order operators: alternation, concaten <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7021	7115	
==>uring.

There are 2 kinds of ruleop operators:

- higher order operators: alternation, concaten <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2405	2507	
==>}
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2405	2507	
==>}
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26877	26972	
==>" attribute if the corresponding argument is
provided (it defaults to empty if the argument is n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26877	26972	
==>" attribute if the corresponding argument is
provided (it defaults to empty if the argument is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	494	649	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	494	649	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	494	649	
==>e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6125	6215	
==>two classes both perform the Test::Builder::Test::WithReason role
and override some methods <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6125	6215	
==>two classes both perform the Test::Builder::Test::WithReason role
and override some methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8322	8412	
==>two classes both perform the Test::Builder::Test::WithReason role
and override some methods <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21316	21435	
==>Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["reps"] = reps
    p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15949	16046	
==>xample: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15949	16046	
==>xample: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9237	9355	
==>y properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10714	10832	
==>y properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2513	2612	
==>$decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2513	2612	
==>$decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2513	2612	
==>$decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1645	1769	
==>substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1645	1769	
==>substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1645	1769	
==>substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3477	3599	
==>$expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($go <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3477	3599	
==>$expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5001	5123	
==>$expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8486	8596	
==>ss "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8486	8596	
==>ss "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8486	8596	
==>ss "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13871	13972	
==>d with two parameters; the name of the field and a single
value (a string).  If a header field is mult <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13871	13972	
==>d with two parameters; the name of the field and a single
value (a string).  If a header field is mult <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6102	6196	
==>ackage base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cyg <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	932	1055	
==>bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12091	12186	
==>cument object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
ele <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12091	12186	
==>cument object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
ele <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2877	3148	
==>ck) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1769	1883	
==>some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported y <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1769	1883	
==>some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported y <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1769	1883	
==>some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5358	5464	
==>Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5358	5464	
==>Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5358	5464	
==>Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27657	27755	
==>on of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32209	32307	
==>on of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31301	31399	
==>on of
each tuple).  Each value of C<$attrs> is an anonymous function that, when
given each original <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5449	5560	
==>kage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5449	5560	
==>kage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5449	5560	
==>kage PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2311	2415	
==>e};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2289	2393	
==>e};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	584	686	
==>>_meta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	996	1119	
==>use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	996	1119	
==>use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	996	1119	
==>use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10423	10564	
==>rgs[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $arg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6764	6905	
==>rgs[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7613	7754	
==>rgs[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6755	6871	
==>crement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6755	6871	
==>crement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6755	6871	
==>crement );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4094	4198	
==>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4094	4198	
==>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4684	4788	
==>positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1606	1695	
==>generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1606	1695	
==>generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1606	1695	
==>generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	927	1069	
==>{
     Pugs::Internals::ceil($x);
 }
 &Num::ceil ::= &Num::ceiling;


 multi  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internal <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15105	15204	
==>package it uses)
will need to display a message to the user, or generate a message to be
shown to th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15105	15204	
==>package it uses)
will need to display a message to the user, or generate a message to be
shown to th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1652	1774	
==>Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5129	5251	
==>Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4059	4181	
==>Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1502	1611	
==>& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1502	1611	
==>& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1502	1611	
==>& ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20723	20849	
==>tyStatement :words {  # see 12.3
      <';'>
}
rule ExpressionStatement :words {  # see 12.4
      <!before <'function'>><Expre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21283	21372	
==>nt {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$bo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21283	21372	
==>nt {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14563	14667	
==>item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside character classes

=item RPe_EMPTYB (-26)

Emp <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2669	2759	
==>urns Array of Tree { @!children }

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2669	2759	
==>urns Array of Tree { @!children }

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2884	2990	
==>);         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2884	2990	
==>);         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1> <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	164	259	
==>rse($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path );
my $f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4506	4650	
==>int "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4728	4872	
==>int "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1910	2019	
==>d for '$label'";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4245	4368	
==>ild a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4068	4182	
==>ding = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4068	4182	
==>ding = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	167	273	
==>rom prove, too.)

# Please improve me!
#
# TODO:
# 1. Modularize this.
# 2. Get to work concurrently with ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	468	563	
==>unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	468	563	
==>unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4195	4297	
==>ese methods you should take care not
to call them in function form by mistake; that would not do at all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4195	4297	
==>ese methods you should take care not
to call them in function form by mistake; that would not do at all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4195	4297	
==>ese methods you should take care not
to call them in function form by mistake; that would not do at all <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2057	2172	
==>:= (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2057	2172	
==>:= (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20581	20679	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20581	20679	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20581	20679	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2382	2488	
==>ct;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2382	2488	
==>ct;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2382	2488	
==>ct;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc);
	} els <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2999	3102	
==>$sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

= <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2999	3102	
==>$sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9355	9485	
==>il;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9355	9485	
==>il;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9355	9485	
==>il;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	178	274	
==>ldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	178	274	
==>ldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Pe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8334	8441	
==>have
been iterated.

=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2785	2880	
==>e($new_source)>

Returns the representation of this node in the original text, or at
least a val <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2785	2880	
==>e($new_source)>

Returns the representation of this node in the original text, or at
least a val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1531	1638	
==>unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1531	1638	
==>unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1531	1638	
==>unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10846	10970	
==>HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10846	10970	
==>HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10846	10970	
==>HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6974	7121	
==>my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6974	7121	
==>my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6974	7121	
==>my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of c <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	13	118	
==>ark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	13	118	
==>ark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	687	789	
==>the following syntax could auto-define the extra
# types for 1 to 1 correspondance!  :)
#
#  type Perl: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2733	2883	
==>ttrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2733	2883	
==>ttrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2733	2883	
==>ttrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1073	1196	
==>in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1073	1196	
==>in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1073	1196	
==>in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	295	414	
==>$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8017	8122	
==>ass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8017	8122	
==>ass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5854	5975	
==>boxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5854	5975	
==>boxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5854	5975	
==>boxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16199	16299	
==>'get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16199	16299	
==>'get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16199	16299	
==>'get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14686	14796	
==>ick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("M <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14686	14796	
==>ick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31142	31243	
==>re is a very simple complete sub-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> assert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26611	26829	
==>ew( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26611	26829	
==>ew( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26611	26829	
==>ew( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1468	1614	
==>nstance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1468	1614	
==>nstance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1468	1614	
==>nstance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4547	4687	
==>( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8024	8164	
==>( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7017	7157	
==>( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6371	6485	
==>_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6371	6485	
==>_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19430	19528	
==>ndp;

Length is nparens+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14496	14666	
==>ize_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14496	14666	
==>ize_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14496	14666	
==>ize_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2608	2713	
==>proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2608	2713	
==>proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2608	2713	
==>proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1249	1369	
==>::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $pe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12420	12535	
==>pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    . <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17141	17237	
==>t annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22241	22337	
==>t annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25043	25140	
==>od returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29595	29692	
==>od returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28507	28604	
==>od returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4834	4955	
==>shift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got). <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12375	12470	
==>ds) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12433	12528	
==>ds) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	119	232	
==>se lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4382	4508	
==>>= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4382	4508	
==>>= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4382	4508	
==>>= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2303	2413	
==>y $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2303	2413	
==>y $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	10	104	
==>erl6::Core::Symbol;

use Perl6::Core::Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1759	2018	
==>n $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1759	2018	
==>n $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10160	10256	
==>L), { atom_codes(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10307	10477	
==>coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10307	10477	
==>coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10307	10477	
==>coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	428	533	
==>= @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	428	533	
==>= @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	428	533	
==>= @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidat <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10559	10683	
==>subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10559	10683	
==>subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4599	4709	
==>n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2886	2991	
==>s node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2886	2991	
==>s node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2886	2991	
==>s node, possibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3449	3554	
==>v);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3449	3554	
==>v);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1273	1385	
==>$obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if it has a de <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1921	2020	
==>tup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$opts->{SETUP}});

    my $pm <==
3	/Users/nnunley/pugs/util/claim_drift.pl	186	283	
==>the current one if you want to regenerate
# files. We should probably make this arrangement less h <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10841	10937	
==>t += (1,2,3,4);

Note that in this instance, the information about how many members
were actually <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10841	10937	
==>t += (1,2,3,4);

Note that in this instance, the information about how many members
were actually <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21359	21454	
==>s_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1251	1343	
==>our project's base namespace.

Class::Rebless walks scalar, array, and hash references. It us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1251	1343	
==>our project's base namespace.

Class::Rebless walks scalar, array, and hash references. It us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1251	1343	
==>our project's base namespace.

Class::Rebless walks scalar, array, and hash references. It us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2405	2501	
==>:SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2405	2501	
==>:SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2405	2501	
==>:SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10615	10760	
==>ef($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10615	10760	
==>ef($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10615	10760	
==>ef($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3509	3644	
==>her => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precedence => 'equal',
        o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16487	16581	
==>/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16487	16581	
==>/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3567	3670	
==>le, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requir <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3625	3728	
==>le, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requir <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12019	12208	
==>.
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8301	8490	
==>.
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9135	9324	
==>.
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \ <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1336	1504	
==>pp(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	513	612	
==>trict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1236	1335	
==>trict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	768	881	
==>lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	768	881	
==>lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	768	881	
==>lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2537	2627	
==>ptable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $optable->addTo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2898	2996	
==>ibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2898	2996	
==>ibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2898	2996	
==>ibly pruning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17268	17388	
==>t with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_dup will copy for us.

    New(0, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20114	20270	
==>ist'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20393	20549	
==>ist'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5108	5203	
==>ude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	413	515	
==>";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	413	515	
==>";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	413	515	
==>";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4275	4443	
==>??
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4275	4443	
==>??
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12008	12165	
==>r instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12008	12165	
==>r instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12008	12165	
==>r instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13412	13535	
==>sub {
        my $c = $_[0];
        FAIL() if &Regexp::Parser::ifmatch::_is_found_backwards($f);
        TAILCALL(&$c,$noop <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3977	4094	
==>e' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3977	4094	
==>e' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1930	2027	
==>::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1930	2027	
==>::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1930	2027	
==>::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	73	176	
==>se 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	73	176	
==>se 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	73	176	
==>se 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13640	13764	
==>ass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13640	13764	
==>ass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13640	13764	
==>ass-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS- <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1988	2086	
==>pt::Argument::Coercer::Perl {
        multi method as (--> Num) { defined($.string) ?? Num $.string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16682	16772	
==>capability in Perl.

=item Regexp::CharClassOps

Implements character class operations like <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4093	4237	
==>> '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4093	4237	
==>> '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6619	6732	
==>.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6619	6732	
==>.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6619	6732	
==>.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3735	3831	
==>kup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3735	3831	
==>kup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3735	3831	
==>kup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9823	9930	
==>_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work? <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9823	9930	
==>_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	798	903	
==>leCompiler->compile($source);
    #print '*{\''.$rulename.'\'} = '.$rule->perl5().";\n";
    print "*{\'$r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	806	907	
==>METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, ad <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	806	907	
==>METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1362	1463	
==>METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehandle, ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	900	1006	
==>extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	900	1006	
==>extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	900	1006	
==>extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1 <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2300	2427	
==>has $.name;

    role Class::Events::Publisher is extended {
        use Set;
        has %.subscriptions of Set;

        # whe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	841	958	
==>und',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	841	958	
==>und',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1750	1879	
==>s $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1750	1879	
==>s $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1750	1879	
==>s $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "cus <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9484	9615	
==>c');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9484	9615	
==>c');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1775	1905	
==>}
  return $matchObj;
}

sub space {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7343	7440	
==>') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7343	7440	
==>') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7343	7440	
==>') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('collect_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2181	2350	
==>h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2181	2350	
==>h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2181	2350	
==>h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13207	13328	
==>: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9393	9514	
==>: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10229	10350	
==>: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" . <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2940	3050	
==>ueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2940	3050	
==>ueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29177	29274	
==>ad1 TODO

Provide a way of running tests quietly (ie. no printing) for automated
validation of tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15744	15956	
==>erl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15744	15956	
==>erl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15744	15956	
==>erl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	539	672	
==>, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	539	672	
==>, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	539	672	
==>, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7512	7631	
==>gl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7512	7631	
==>gl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7512	7631	
==>gl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4593	4694	
==>ee)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	625	722	
==>thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Hom <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	625	722	
==>thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Hom <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	559	706	
==>rounded, " .
                    "label = \"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	722	855	
==>t is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  gr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	722	855	
==>t is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  gr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17587	17693	
==>e $ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1479	1571	
==>talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 E <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1479	1571	
==>talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12806	12903	
==>_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12806	12903	
==>_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12806	12903	
==>_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Pre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2836	2947	
==>uilder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2836	2947	
==>uilder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4360	4471	
==>uilder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11805	11933	
==>st
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Po <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11805	11933	
==>st
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3494	3603	
==>ad_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3494	3603	
==>ad_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3494	3603	
==>ad_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3088	3190	
==>elf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3088	3190	
==>elf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3088	3190	
==>elf = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9555	9672	
==>y $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9555	9672	
==>y $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9555	9672	
==>y $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2991	3115	
==>losure::signature->new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	231	343	
==>me => Thunk(
		Seq(
			(map { Param($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors {
    foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4800	4897	
==>losure::signature->new(
            params  => closure::params->new(symbol->new('&dispatcher' => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4256	4378	
==>nted as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4256	4378	
==>nted as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4256	4378	
==>nted as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/util/addauthors.pl	1024	1131	
==>(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4995	5119	
==>Value',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4995	5119	
==>Value',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1899	2023	
==>Value',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4079	4184	
==>}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4079	4184	
==>}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4079	4184	
==>}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	0	91	
==>sub PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	0	91	
==>sub PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	0	91	
==>sub PIL2JS::Internals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6993	7155	
==>ed $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6993	7155	
==>ed $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35283	35423	
==>= $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35283	35423	
==>= $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35283	35423	
==>= $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	205	320	
==>Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	205	320	
==>Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	205	320	
==>Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7169	7258	
==>e again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7169	7258	
==>e again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7169	7258	
==>e again
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5631	5729	
==>infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5631	5729	
==>infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5631	5729	
==>infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &i <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	76	186	
==>{
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    retur <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	76	186	
==>{
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13806	13932	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13806	13932	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13806	13932	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2053	2185	
==>ubname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2053	2185	
==>ubname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2053	2185	
==>ubname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1817	1965	
==>$dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1817	1965	
==>$dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1817	1965	
==>$dispatcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Ob <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2168	2268	
==>:Spec->devnull;

my $output ;# = svn("up") or die "Could not update pugs tree: $!";
system($^X, qw(-w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20730	20822	
==>STRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
w <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20730	20822	
==>STRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5592	5694	
==>lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "proces <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5399	5497	
==>lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "proces <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5459	5613	
==>$slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5459	5613	
==>$slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5459	5613	
==>$slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3840	3948	
==>b compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4057	4165	
==>b compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #pri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25386	25483	
==>bove are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1472	1582	
==>args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1472	1582	
==>args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1472	1582	
==>args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6761	6882	
==>t = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6761	6882	
==>t = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6761	6882	
==>t = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3070	3171	
==>. 

=head1 REQUIREMENTS

- The source file header must be valid perl5 I<and> perl6 code.

This is a va <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6116	6207	
==>thods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implem <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6116	6207	
==>thods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4060	4199	
==>= $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4060	4199	
==>= $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4060	4199	
==>= $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic reference!
      @a = map <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30524	30626	
==>:Parser/"Walking the Tree">).

=back

Objects may override these methods (as objects often do).

=head3 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5688	5782	
==>)

Get document headers. Depending on the context, C<head> returns
the following values:

=over <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5688	5782	
==>)

Get document headers. Depending on the context, C<head> returns
the following values:

=over <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1944	2079	
==>,

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	13	113	
==>lass Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	13	113	
==>lass Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10218	10357	
==>> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10218	10357	
==>> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10218	10357	
==>> sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	698	807	
==>nfix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	698	807	
==>nfix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	698	807	
==>nfix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2162	2306	
==>ss $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2162	2306	
==>ss $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2162	2306	
==>ss $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	410	511	
==>s);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	410	511	
==>s);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	410	511	
==>s);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2956	3082	
==>ty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2956	3082	
==>ty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7020	7125	
==>ther mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index after mus <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5728	5829	
==>SIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESC <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5728	5829	
==>SIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9201	9318	
==>/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9201	9318	
==>/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7055	7157	
==>code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body);
}
sub code_for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2730	2827	
==>_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2730	2827	
==>_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2730	2827	
==>_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	64	154	
==>b JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	64	154	
==>b JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	64	154	
==>b JS::Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8651	8769	
==>ify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8651	8769	
==>ify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8651	8769	
==>ify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9713	9825	
==>Writable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class & <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25323	25419	
==>ee-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25323	25419	
==>ee-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosett <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17676	17768	
==>-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D sta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17676	17768	
==>-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27298	27390	
==>s method creates and returns a new Relation::Example object, whose Heading and
Body attribute <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2035	2124	
==>ostfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2107	2196	
==>ostfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5561	5667	
==>$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5561	5667	
==>$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5561	5667	
==>$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7041	7161	
==>_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	322	440	
==>y $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	322	440	
==>y $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11416	11556	
==>e++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11416	11556	
==>e++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3595	3700	
==>t "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8488	8577	
==>atements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2313	2402	
==>atements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5703	5800	
==>T( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5703	5800	
==>T( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7227	7324	
==>T( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4815	4958	
==>_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4815	4958	
==>_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4815	4958	
==>_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12553	12678	
==>ly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6996	7093	
==>0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.densit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6996	7093	
==>0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.densit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	243	335	
==>-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	243	335	
==>-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	243	335	
==>-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	430	552	
==>* iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	430	552	
==>* iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5448	5543	
==>ncore timestamp duration>),
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped une <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11295	11477	
==>->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11295	11477	
==>->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11295	11477	
==>->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10862	11025	
==>,
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10862	11025	
==>,
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10862	11025	
==>,
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AU <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5826	5910	
==>----------------------------------------------------------------------
## sibling met <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5826	5910	
==>----------------------------------------------------------------------
## sibling met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17111	17210	
==>{...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17111	17210	
==>{...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17111	17210	
==>{...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12225	12379	
==>ROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12225	12379	
==>ROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12225	12379	
==>ROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'int' =>  sub { Int->new( '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20919	21022	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20919	21022	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20919	21022	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4423	4540	
==>g = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2031	2142	
==>osure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2042	2153	
==>osure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1023	1142	
==>able
      local $@;   # don't care if there are errors here
      local @ARGV = ();  # "You may not specify any filenam <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17691	17788	
==>ror condition by an
internal code which is guaranteed to be unique for a situation, and this is
ma <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17691	17788	
==>ror condition by an
internal code which is guaranteed to be unique for a situation, and this is
ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1117	1213	
==>XPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1117	1213	
==>XPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1117	1213	
==>XPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS_D <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2858	2983	
==>edirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *% <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2858	2983	
==>edirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *% <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	485	586	
==>ode for driving events, and implements a
# "named event" mechanism, for Class::Publisher like behavior <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3074	3171	
==>encipher data.
The encipherer closure can be called with a string, and should be called at the 
en <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3074	3171	
==>encipher data.
The encipherer closure can be called with a string, and should be called at the 
en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18508	18712	
==>hod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18508	18712	
==>hod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18508	18712	
==>hod @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - wh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2494	2617	
==>}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1922	2042	
==>>{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1922	2042	
==>>{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1211	1318	
==>ub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1211	1318	
==>ub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1211	1318	
==>ub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	836	973	
==>pture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	803	933	
==>pture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16075	16190	
==>}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tree.
  return $v;
}
}
sub def_rule {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9961	10075	
==>\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $fil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9961	10075	
==>\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $fil <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	614	706	
==>tate.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.sta <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	614	706	
==>tate.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.sta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1	91	
==>line 1
package Module::Install::Metadata;

use Module::Install::Base;
@ISA = qw{Module::Ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2344	2433	
==>hod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2344	2433	
==>hod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2344	2433	
==>hod('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2293	2399	
==>lename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2293	2399	
==>lename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2293	2399	
==>lename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	914	1041	
==>ues %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	914	1041	
==>ues %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3292	3397	
==>5_concatenation(Z)    --> p5_quantified(W), p5_concatenation_more(W, Z), !.
p5_concatenation(noop) --> {tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9622	9752	
==>);
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9622	9752	
==>);
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9622	9752	
==>);
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3951	4098	
==>nts) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3951	4098	
==>nts) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3951	4098	
==>nts) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        di <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3431	3541	
==>S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List)\
multi List::min(Code $cmp = &inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2703	2803	
==>>add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->forc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3276	3376	
==>>add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->forc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20144	20237	
==>0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20144	20237	
==>0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20144	20237	
==>0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3172	3308	
==>my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            dele <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2079	2173	
==>ne.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2079	2173	
==>ne.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40782	40913	
==>rrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40782	40913	
==>rrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40782	40913	
==>rrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub elems {
    my ( $this ) = @_;
    scalar @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	592	700	
==>arse"} = Pugs::Compiler::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::Bas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13683	13792	
==>ains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe_SEQINC (-9)

Sequen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5217	5310	
==>dText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICEN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5217	5310	
==>dText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICEN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10114	10236	
==>patch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10114	10236	
==>patch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10114	10236	
==>patch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14390	14484	
==>ULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14390	14484	
==>ULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14390	14484	
==>ULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14118	14243	
==>$i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14118	14243	
==>$i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14118	14243	
==>$i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13744	13871	
==>$i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13744	13871	
==>$i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13744	13871	
==>$i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	213	313	
==>'t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	213	313	
==>'t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	213	313	
==>'t output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5076	5176	
==>o->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7744	7844	
==>o->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19266	19431	
==>.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation::Example $ot <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16256	16408	
==>.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19733	19885	
==>.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15707	15831	
==>nt "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1054	1162	
==>ng; each key of that Mapping is the name
        # of one of this Relation's attributes and the value corresp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4532	4640	
==>ng; each key of that Mapping is the name
        # of one of this Relation's attributes and the value corresp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3389	3507	
==>art}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3389	3507	
==>art}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3389	3507	
==>art}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $param{shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3505	3589	
==>ssed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3505	3589	
==>ssed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3505	3589	
==>ssed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3634	3738	
==>te_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3634	3738	
==>te_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3634	3738	
==>te_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10216	10316	
==>self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($se <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10216	10316	
==>self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3792	3891	
==>the name of the subroutine you're currently in.

=cut

sub _whoami { my $name = (caller 1)[3]; $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	694	802	
==>ompiler::Perl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $pe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5955	6053	
==>anslate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5955	6053	
==>anslate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18670	18791	
==>lass methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18670	18791	
==>lass methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18670	18791	
==>lass methods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	273	372	
==>Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	273	372	
==>Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	273	372	
==>Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7281	7433	
==>:Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7281	7433	
==>:Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7281	7433	
==>:Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13853	13990	
==>f $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13853	13990	
==>f $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13853	13990	
==>f $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4914	5031	
==>'@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4914	5031	
==>'@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5504	5621	
==>'@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	151	246	
==>lobals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	209	304	
==>lobals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12748	12838	
==>ice, be easier to create, and be more portable.
  http://www.perlmonks.org/index.pl?node_id <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1613	1706	
==>zed escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unk <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	403	492	
==>method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_func <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	403	492	
==>method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_func <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2435	2622	
==>) returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5912	6099	
==>) returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

me <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4842	5029	
==>) returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3557	3659	
==>(Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $cal <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3615	3717	
==>(Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5587	5699	
==>ng output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5587	5699	
==>ng output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5587	5699	
==>ng output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9211	9359	
==>$param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9211	9359	
==>$param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9211	9359	
==>$param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4254	4364	
==>on form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4254	4364	
==>on form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4254	4364	
==>on form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, " <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	14	120	
==>e Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_eleme <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	14	120	
==>e Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	84	214	
==>] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	84	214	
==>] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	84	214	
==>] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6391	6501	
==>calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6391	6501	
==>calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6391	6501	
==>calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3729	3858	
==>(\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3717	3846	
==>(\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4714	4844	
==>push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4714	4844	
==>push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5167	5269	
==>bject__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_base;
    push @{ "${class} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23240	23412	
==>ub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	677	784	
==>}

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4549	4648	
==>[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4549	4648	
==>[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4549	4648	
==>[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	737	887	
==>ol  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	707	852	
==>ol  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	540	684	
==>{$segil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        ret <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7322	7455	
==>s > 1 && substr($k,-1,1) eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7571	7679	
==>cate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12521	12618	
==>o_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: send (CREATE ($canidate %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5098	5201	
==>tem if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5098	5201	
==>tem if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5098	5201	
==>tem if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9852	9967	
==>x = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$st and @{ $st->[-1] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3605	3724	
==>her, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3605	3724	
==>her, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3605	3724	
==>her, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24481	24579	
==>s an attribute name and each Mapping value
is the corresponding attribute value.

Every Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21305	21400	
==>s an attribute name and each Mapping value
is the corresponding attribute value.

Every Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25857	25952	
==>s an attribute name and each Mapping value
is the corresponding attribute value.

Every Relation <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4117	4221	
==>>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4117	4221	
==>>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24193	24275	
==>T0,D,T1).

initialE(amat([],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3449	3561	
==>- length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3449	3561	
==>- length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3449	3561	
==>- length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4767	4886	
==>xed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4767	4886	
==>xed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4767	4886	
==>xed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	529	628	
==>NOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentially a reference implem <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3980	4059	
==>rl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3980	4059	
==>rl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9837	9981	
==>=>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
  {
      f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1916	2042	
==>=>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1916	2042	
==>=>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reason = 'skipped' )
{
    f <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1577	1680	
==>Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMont <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1577	1680	
==>Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7616	7784	
==>' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7616	7784	
==>' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7616	7784	
==>' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( def <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3523	3626	
==>}

sub define_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12471	12566	
==>odes
attribute starts out empty, but gains one element for each Node in the Node
hierarchies cre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12471	12566	
==>odes
attribute starts out empty, but gains one element for each Node in the Node
hierarchies cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9001	9157	
==>.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1149	1285	
==>.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1149	1285	
==>.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9481	9607	
==>h;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9469	9595	
==>h;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16598	16698	
==>ther );
}

multi method join (Relation::Example *@others) returns Relation::Example {

    # First do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35301	35445	
==>( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35301	35445	
==>( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35301	35445	
==>( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	266	363	
==>---------------
## This is an extension of the Mini-MetaModel which adds a self-bootstrapping
## i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26421	26517	
==>eferences will be passed by reference, so you
may store references to other objects in them if yo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26421	26517	
==>eferences will be passed by reference, so you
may store references to other objects in them if yo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12862	12958	
==>Text -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12862	12958	
==>Text -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1178	1274	
==>s $.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6763	6886	
==>, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6763	6886	
==>, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6763	6886	
==>, local @PIL::VARS_TO_BACKUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8535	8731	
==>== 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8535	8731	
==>== 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8535	8731	
==>== 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20461	20562	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20461	20562	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20461	20562	
==>.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$x <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2280	2454	
==>ft.pod 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# si <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12121	12214	
==>$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12121	12214	
==>$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9271	9409	
==>rammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10107	10245	
==>rammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1147	1237	
==>er::Dumper($node->struct_equiv);

	if ($self->has_symbol($node)){
		return $self->symbolic_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13581	13679	
==>ter than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reas <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13581	13679	
==>ter than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reas <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	577	726	
==>th($month), :day($day),
                             :hour($hour), :minute($minute), :second($second),
                             :tz($tz) );
}

# c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1582	1704	
==>ion' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install chec <==
3	/Users/nnunley/pugs/util/run-smoke.pl	287	388	
==>iled++;
}

die <<"EOF" if $failed;

You don't seem to have the required modules installed.
Please inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20432	20619	
==>t = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20432	20619	
==>t = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20432	20619	
==>t = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8699	8828	
==>class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8699	8828	
==>class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8699	8828	
==>class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13954	14063	
==>od('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13954	14063	
==>od('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13954	14063	
==>od('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	144	242	
==>iler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	144	242	
==>iler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	142	236	
==>iler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13236	13367	
==>$other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16713	16844	
==>$other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16075	16206	
==>$other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1132	1230	
==>atch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1132	1230	
==>atch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1132	1230	
==>atch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = u <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1383	1488	
==>Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1383	1488	
==>Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	749	898	
==>rn { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => '
                <Pugs::Grammar::Var.ident>
                { r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7565	7660	
==>or' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' direc <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7565	7660	
==>or' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' direc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3408	3531	
==>, '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1766	1889	
==>, '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2546	2669	
==>, '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3542	3646	
==>[PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3542	3646	
==>[PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3542	3646	
==>[PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9718	9818	
==>) returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
met <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9718	9818	
==>) returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16141	16240	
==>r. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	331	436	
==>elf) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	331	436	
==>elf) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	331	436	
==>elf) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2903	3029	
==>er',
        other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1971	2084	
==>nodes->[1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3457	3628	
==>bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we're the 'p <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1548	1680	
==>str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escap <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1548	1680	
==>str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escap <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5607	5704	
==>ests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5607	5704	
==>ests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10438	10567	
==>t => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10438	10567	
==>t => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4020	4111	
==>am E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3261	3378	
==>}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3261	3378	
==>}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3261	3378	
==>}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	550	696	
==>./parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	550	696	
==>./parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1997	2120	
==>=new Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    print Dumper $out;

    undef $p;
    undef( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	432	530	
==>t 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	432	530	
==>t 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	432	530	
==>t 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  regist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	491	600	
==>-------------------

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	415	510	
==>btract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	415	510	
==>btract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3019	3120	
==>put    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3019	3120	
==>put    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3019	3120	
==>put    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3923	4047	
==>ho}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args) = @_;

    # ignore the prefix on extension modules bui <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1057	1150	
==>ote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=bac <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1057	1150	
==>ote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2032	2126	
==>::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2032	2126	
==>::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2032	2126	
==>::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3046	3140	
==>ell -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2937	3030	
==>ell -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1487	1610	
==>IL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1487	1610	
==>IL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1487	1610	
==>IL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4573	4667	
==>) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4573	4667	
==>) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4573	4667	
==>) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11988	12098	
==>od lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11988	12098	
==>od lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2000	2097	
==>r_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2000	2097	
==>r_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10584	10721	
==>CALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23589	23700	
==>...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20010	20121	
==>...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7615	7750	
==>MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7615	7750	
==>MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5792	5888	
==>ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX::Value::Null $v)      { +0 }
mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5239	5343	
==>install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5239	5343	
==>install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5239	5343	
==>install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8514	8616	
==>$rhs = DOWN($pRHS);
    "p6_assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	711	810	
==>ther native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1301	1400	
==>ther native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1356	1457	
==>=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1356	1457	
==>=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1356	1457	
==>=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6095	6298	
==>= $test;
                last;
            }
            
            ### XXX clean up links from $unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1157	1249	
==>ply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is exp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1215	1307	
==>ply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1727	1824	
==>(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1727	1824	
==>(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1727	1824	
==>(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4350	4461	
==>fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4350	4461	
==>fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4350	4461	
==>fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3146	3302	
==>>class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3146	3302	
==>>class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3146	3302	
==>>class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14744	14852	
==>s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14744	14852	
==>s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14744	14852	
==>s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3595	3692	
==>w, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3595	3692	
==>w, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3675	3772	
==>w, this is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9630	9742	
==>is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, so it <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	419	543	
==>is file?
    open my $fh, "$Metactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	274	391	
==>_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	274	391	
==>_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3513	3792	
==>asses__{$t}) {               
                my $message = pop @t;
                @t = ($t . $message);                
            }
            
            # misc keywords
            elsif ($t eq 'returns' ||
                   $t eq 'params'  ) {
                my $type = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1126	1226	
==>hat this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1126	1226	
==>hat this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32193	32291	
==>hen checks
each set's member for language B and displays that; and so on.

I<For the present, Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32193	32291	
==>hen checks
each set's member for language B and displays that; and so on.

I<For the present, Local <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2699	2795	
==>portable and can be
used to set perl command line options used for running the test
script(s). Th <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5293	5403	
==>f $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6711	6810	
==>ams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6711	6810	
==>ams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6711	6810	
==>ams    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->magical_v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7545	7681	
==>a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $sel <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5271	5389	
==>path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linuxrc, <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	332	438	
==>= 'Module::Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	911	1023	
==>=> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	911	1023	
==>=> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	911	1023	
==>=> \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11626	11758	
==>les; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1177	1274	
==>&say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1177	1274	
==>&say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1177	1274	
==>&say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8710	8886	
==>section;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12187	12363	
==>section;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the relat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4838	4949	
==>f->{name} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	ble <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6922	7051	
==>d so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6922	7051	
==>d so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13107	13202	
==>=item Unary Form

Implementations should create a suitable macro, or otherwise support the
unary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4698	4798	
==>pand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4698	4798	
==>pand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4698	4798	
==>pand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6328	6432	
==>ub mangle_sym_name {
	my $self = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7444	7590	
==>e', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_det <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7444	7590	
==>e', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_det <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4434	4541	
==>bsr_token_match_2";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  nul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3595	3701	
==>def;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3595	3701	
==>def;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3595	3701	
==>def;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2761	2972	
==>constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2772	2983	
==>constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::cap <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	350	455	
==>\/~/)) window.open(href);
    }
}
</script>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2362	2482	
==>ift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2362	2482	
==>ift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2362	2482	
==>ift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11894	12034	
==>t
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11888	12028	
==>t
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX <==
3	/Users/nnunley/pugs/util/grokprims.pl	134	239	
==>> 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-associativ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1910	2053	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2103	2246	
==>tch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rul <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14261	14380	
==>y $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2529	2615	
==>>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and availab <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2529	2615	
==>>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and availab <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18885	19007	
==>ext ) {
        print "Test output counter mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1114	1206	
==>N

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filter <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1114	1206	
==>N

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filter <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24786	24883	
==>ibution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24786	24883	
==>ibution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1399	1513	
==>> $config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib     => $config); 
    add_p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30031	30124	
==>e $transformer!) returns Relation>

This method is a short-hand or alternative for the functio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34583	34676	
==>e $transformer!) returns Relation>

This method is a short-hand or alternative for the functio <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15998	16112	
==>split " ")[0];
    }

  return @so;
}

# This is a kludge. But for now, as a simple script, it suffices.
# This scr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14196	14293	
==>urn values of the callback routine are ignored.  The loop can
be broken by raising an exception (C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14196	14293	
==>urn values of the callback routine are ignored.  The loop can
be broken by raising an exception (C <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8592	8697	
==>st::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8650	8755	
==>st::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	152	254	
==>equire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	152	254	
==>equire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	152	254	
==>equire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6384	6490	
==>n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), $name, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1078	1172	
==>iented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1078	1172	
==>iented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2500	2640	
==>], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2500	2640	
==>], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2500	2640	
==>], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1253	1346	
==>ders,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1253	1346	
==>ders,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repre <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27751	27839	
==>nd_first_p), "(int × int)", ":t length_and_first [1]");
is(t($length_and_first_gen), "(( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13335	13467	
==>iteral ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13329	13461	
==>iteral ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8744	8848	
==>y_index($P);
    my $uint = ToUint32($P);
    return if $uint < $A.property_value{'length'};
    $A.prope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6657	6766	
==>bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6657	6766	
==>bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6657	6766	
==>bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2424	2539	
==>r, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2424	2539	
==>r, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2424	2539	
==>r, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9332	9446	
==>$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9332	9446	
==>$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9332	9446	
==>$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doubl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5128	5234	
==>apture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5321	5427	
==>apture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	237	331	
==>acking, recursive-decent engine, generated from the
# regexp ast nodes created by Regexp::Parse <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2928	3019	
==>9s28.vlinux.de/iblech/pugs/livecd.iso.

Note: If you want to modify the kernel used, you may <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12688	12845	
==>te' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12688	12845	
==>te' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12688	12845	
==>te' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4448	4552	
==>$subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4448	4552	
==>$subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4448	4552	
==>$subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc;
      return $m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3538	3636	
==>_p6;
	    my($pil_code,$warn) = Perl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = ! <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	669	834	
==>is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(? <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	669	834	
==>is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10589	10717	
==>te =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10589	10717	
==>te =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10589	10717	
==>te =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	995	1097	
==>()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whol <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	995	1097	
==>()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whol <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	995	1097	
==>()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1754	1862	
==>infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1754	1862	
==>infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1754	1862	
==>infix:>=", "N", "Number(a) >= Number(b)" ],
    [ "infix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5917	6047	
==>==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute
        $p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4680	4809	
==>=> $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7403	7532	
==>=> $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4970	5098	
==>compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4797	4921	
==>compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3116	3221	
==>d(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3116	3221	
==>d(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3116	3221	
==>d(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1396	1489	
==>d against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1396	1489	
==>d against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1396	1489	
==>d against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5895	6086	
==>=> $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5895	6086	
==>=> $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5895	6086	
==>=> $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11120	11228	
==>in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11120	11228	
==>in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3579	3682	
==>ame !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3579	3682	
==>ame !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3579	3682	
==>ame !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1427	1545	
==>plemented" };
sub merge_category   { die "not implemented" };

sub add_op {
    my ($self, $opt) = @_;
    #print "addi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1974	2080	
==>f )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1974	2080	
==>f )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15540	15651	
==>b visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21711	21822	
==>b visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10413	10546	
==>se it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10413	10546	
==>se it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10413	10546	
==>se it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1659	1784	
==>eading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5136	5261	
==>eading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4066	4191	
==>eading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13130	13263	
==>ft @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13130	13263	
==>ft @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13130	13263	
==>ft @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15977	16093	
==>w(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19454	19570	
==>w(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18960	19076	
==>w(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (R <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	417	523	
==>aram );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize durati <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	417	523	
==>aram );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize durati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19691	19796	
==>TI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19691	19796	
==>TI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19691	19796	
==>TI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15960	16080	
==>(-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $results = runpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13489	13597	
==>perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18987	19092	
==>ding,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation::Example <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	929	1022	
==>de::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	929	1022	
==>de::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	929	1022	
==>de::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2829	2940	
==>f($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2829	2940	
==>f($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2829	2940	
==>f($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6006	6118	
==>ntext is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6064	6176	
==>ntext is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	247	338	
==>historical amusement, I've inserted unchanged
# my original first attempts, head.p6, tail.p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	513	638	
==>..) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the original value. This is necessa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	513	638	
==>..) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the original value. This is necessa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	513	638	
==>..) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding the original value. This is necessa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2106	2307	
==>XX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2106	2307	
==>XX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2106	2307	
==>XX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4997	5117	
==>ALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4997	5117	
==>ALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4997	5117	
==>ALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	444	592	
==>s',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Ot <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	444	592	
==>s',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1569	1691	
==>$msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $msg";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1569	1691	
==>$msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $msg";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1569	1691	
==>$msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $count++;
    say "not ok $count - $msg";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15872	15976	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15872	15976	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15872	15976	
==>$self, $label, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1576	1675	
==>named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1576	1675	
==>named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16754	16922	
==>e;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16754	16922	
==>e;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2981	3121	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2981	3121	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2981	3121	
==>$rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7553	7687	
==>efined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7553	7687	
==>efined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7553	7687	
==>efined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16815	16947	
==>OT}::${pkg}::META";
}
sub p6_meta {
    my $m = get_meta($_[0]);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17014	17109	
==>) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17014	17109	
==>) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17014	17109	
==>) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	438	624	
==>ub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	438	624	
==>ub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	438	624	
==>ub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4222	4319	
==>t returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for ` <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4222	4319	
==>t returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for ` <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6132	6222	
==>sers{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Som <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6132	6222	
==>sers{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Som <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2119	2216	
==>$args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $sel <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1229	1322	
==>$args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $sel <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3061	3153	
==>s;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array::splice.assuming(:offset(0) : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8543	8650	
==>s->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8543	8650	
==>s->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8543	8650	
==>s->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	251	367	
==>nshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	251	367	
==>nshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	251	367	
==>nshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6504	6631	
==>export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6504	6631	
==>export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6504	6631	
==>export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(". <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	73	186	
==>r;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $Re <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	73	186	
==>r;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $Re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13985	14089	
==><')'>
}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6292	6414	
==>when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6292	6414	
==>when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
} <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	251	361	
==>e strict;

sub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Fin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22323	22441	
==>GE::Exp::WS" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20695	20795	
==>et it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20695	20795	
==>et it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	566	759	
==>err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instance <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	566	759	
==>err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instance <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	566	759	
==>err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17908	17998	
==>6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17908	17998	
==>6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17908	17998	
==>6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12023	12137	
==>this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12023	12137	
==>this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12023	12137	
==>this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8986	9093	
==>acky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8986	9093	
==>acky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8986	9093	
==>acky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2817	2921	
==>))
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2817	2921	
==>))
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2817	2921	
==>))
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
}) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1541	1675	
==>]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_capture_body {
          [ \( <rule> \) { retur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1807	1899	
==>get_pmc_keyed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub get_hash {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5622	5727	
==>unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5622	5727	
==>unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5622	5727	
==>unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3602	3716	
==>@classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3602	3716	
==>@classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3602	3716	
==>@classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3462	3588	
==>but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3462	3588	
==>but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3462	3588	
==>but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3874	4007	
==>p1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3874	4007	
==>p1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ / <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15218	15323	
==>->{digests} = { map { Digest->compute($_) => $_ } $env->values };
    my $ast = shift;

    $self->reduce( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12959	13070	
==>efined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12959	13070	
==>efined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12959	13070	
==>efined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9285	9404	
==>uleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4124	4218	
==>The options passed to the 
C<new> constructor generally include some sort of key, and sometimes <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4124	4218	
==>The options passed to the 
C<new> constructor generally include some sort of key, and sometimes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16053	16216	
==>nstance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16053	16216	
==>nstance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16053	16216	
==>nstance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an u <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6252	6353	
==>ame from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2213	2311	
==>SCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do no <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2213	2311	
==>SCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do no <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3270	3426	
==>ift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns Li <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3270	3426	
==>ift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns Li <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1066	1176	
==>aker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: join( ' ', @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4321	4518	
==>py : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4321	4518	
==>py : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4321	4518	
==>py : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	162	266	
==>self->add_flag('i' => sub { 0x4 });
  $self->add_flag('x' => sub { 0x8 });

  # (useless) /g, /c, /o flag <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21032	21122	
==>do) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Ora <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21032	21122	
==>do) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Ora <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3153	3283	
==>mitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3153	3283	
==>mitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3153	3283	
==>mitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1174	1283	
==>m_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1174	1283	
==>m_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1174	1283	
==>m_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13130	13228	
==>e => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13130	13228	
==>e => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13130	13228	
==>e => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1449	1557	
==>andard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1449	1557	
==>andard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	525	623	
==>aths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	warn "li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38083	38250	
==>to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38083	38250	
==>to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38083	38250	
==>to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10804	10983	
==>ne->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10804	10983	
==>ne->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10804	10983	
==>ne->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2537	2667	
==>",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2537	2667	
==>",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2537	2667	
==>",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17856	18030	
==>t-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17856	18030	
==>t-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17856	18030	
==>t-method for '$label' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5307	5410	
==>b node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2849	2952	
==>b node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3698	3801	
==>b node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1690	1809	
==>lay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1690	1809	
==>lay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1690	1809	
==>lay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37914	38012	
==>urce relation
with every tuple of each other source relation, then where each member of a
tuple pai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42463	42561	
==>urce relation
with every tuple of each other source relation, then where each member of a
tuple pai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42113	42211	
==>urce relation
with every tuple of each other source relation, then where each member of a
tuple pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40870	40991	
==>elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40870	40991	
==>elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40870	40991	
==>elems {
    my ( $this ) = @_;
    scalar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	408	508	
==>[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	408	508	
==>[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	408	508	
==>[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7614	7754	
==>urrent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.cur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7614	7754	
==>urrent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6835	6956	
==>is) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6835	6956	
==>is) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6835	6956	
==>is) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2958	3056	
==>&Point, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20208	20303	
==>be recompiled by
some other containing parser. In this case the result of the compilation
is rep <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20208	20303	
==>be recompiled by
some other containing parser. In this case the result of the compilation
is rep <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4126	4321	
==>{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:pe <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4126	4321	
==>{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:pe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6163	6272	
==>";
    }
    if($cls eq 'IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Subme <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14993	15086	
==>c);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these rou <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14993	15086	
==>c);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these rou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6094	6182	
==>ilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6094	6182	
==>ilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8291	8379	
==>ilder::Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5531	5638	
==>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5531	5638	
==>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5531	5638	
==>deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	17	120	
==>::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	17	120	
==>::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	17	120	
==>::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5635	5757	
==>erl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5635	5757	
==>erl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5635	5757	
==>erl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1350	1442	
==>$self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7439	7549	
==>ASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7439	7549	
==>ASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7439	7549	
==>ASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1476	1572	
==>x:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) retu <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1476	1572	
==>x:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) retu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2445	2539	
==>:Conj");
    $optable->addToken("infix:|", "<infix:&", "left,nows", "PGE::Exp::Alt");
    $opta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25255	25359	
==>dentity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29807	29911	
==>dentity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28737	28841	
==>dentity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2415	2522	
==>=> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2415	2522	
==>=> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2762	2869	
==>=> '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1697	1807	
==>urn 1;
}


sub root {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{tree};
}


sub npar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11836	11932	
==>nces of class all conform to the Role interface/API they are 
interchangable with one another, cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11836	11932	
==>nces of class all conform to the Role interface/API they are 
interchangable with one another, cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11836	11932	
==>nces of class all conform to the Role interface/API they are 
interchangable with one another, cl <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5270	5417	
==>);
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5371	5461	
==>turns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5429	5519	
==>turns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15653	15818	
==>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15653	15818	
==>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	584	729	
==>hObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12845	12972	
==>$pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not F <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7571	7660	
==>atements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1396	1485	
==>atements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2846	2964	
==>method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2846	2964	
==>method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2846	2964	
==>method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "he <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37138	37236	
==>r joining degenerates to a
C<product>.  In any situation where the heading of one source relation i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41687	41785	
==>r joining degenerates to a
C<product>.  In any situation where the heading of one source relation i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41310	41408	
==>r joining degenerates to a
C<product>.  In any situation where the heading of one source relation i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8895	9002	
==>StringCharacters>? <'\''>
}
rule DoubleStringCharacters {  # see 7.8.4
      <DoubleStringCharacter> <Double <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	765	867	
==>n Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	765	867	
==>n Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	70	187	
==>(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6986	7089	
==>e first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a bloc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6986	7089	
==>e first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9532	9709	
==>rammar1::ident'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2671	2790	
==>ta object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3135	3254	
==>ta object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5091	5217	
==>ith_prefix_and_cleanup($pil_tree,__PACKAGE__.'::');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "u <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3004	3112	
==>><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 't <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3004	3112	
==>><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 't <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4207	4358	
==>{ "not ok " . _('$.number') . " #skip " . _('$.reason') },
        'status' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3567	3659	
==>cribes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3567	3659	
==>cribes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18737	18844	
==>.p6analyze(pad)
    unless_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unless_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2728	2846	
==>le and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2728	2846	
==>le and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2728	2846	
==>le and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	13	124	
==>e::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	13	124	
==>e::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the Jav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	13	124	
==>e::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the Jav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1810	1919	
==>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1810	1919	
==>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1810	1919	
==>[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	14	129	
==>GIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8437	8537	
==>>[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CL <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8437	8537	
==>>[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22103	22208	
==>o_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22103	22208	
==>o_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22103	22208	
==>o_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @x <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36737	36845	
==>ch case the result does too.  Another trivial case is if any
source relation is the identity-one relation (ze <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41286	41394	
==>ch case the result does too.  Another trivial case is if any
source relation is the identity-one relation (ze <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40909	41017	
==>ch case the result does too.  Another trivial case is if any
source relation is the identity-one relation (ze <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11314	11429	
==>his;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11314	11429	
==>his;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11314	11429	
==>his;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5346	5447	
==>calar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> ", map { $self->d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8005	8105	
==>'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $ir <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8005	8105	
==>'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $ir <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1625	1721	
==>'s also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix: <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1625	1721	
==>'s also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	820	961	
==>e {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	820	961	
==>e {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3739	3854	
==>.Version.versnum)
    ,("pugs_version", Pugs.Version.version)
    ,("pugs_revision", Pugs.Version.revnum)
    ]

get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3094	3197	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3094	3197	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3094	3197	
==>::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2928	3025	
==>, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2928	3025	
==>, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, spa <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3	97	
==>e v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Has <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3	97	
==>e v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8988	9077	
==>k { $iFoo->singleton_test_on_object } '... instance calling metaclass singleton method fai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3585	3691	
==>else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ide <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3585	3691	
==>else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ide <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3585	3691	
==>else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_ide <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4971	5179	
==>("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4971	5179	
==>("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	917	1028	
==>nodes => Set::Object->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = shift;

	my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16	129	
==>ses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16	129	
==>ses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16	129	
==>ses 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1527	1674	
==>[3] || ${$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    r <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13670	13769	
==>e longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13670	13769	
==>e longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_ent <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16879	16977	
==>erwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a sc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16879	16977	
==>erwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a sc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5266	5351	
==>gits_int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_range_bo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	101	242	
==>P::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method pars <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	101	242	
==>P::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method pars <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1002	1107	
==>r => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19371	19465	
==>ou might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19371	19465	
==>ou might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1605	1715	
==>y->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1605	1715	
==>y->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1605	1715	
==>y->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	286	406	
==>ator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6617	6721	
==>s::Grammar::Match) contain:



### Match actually contain getters for $() and such

### getters need to k <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6395	6496	
==>s::Grammar::Match) contain:

### Match actually contain getters for $() and such
### getters need to k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1400	1486	
==>::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1400	1486	
==>::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1400	1486	
==>::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_at <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9269	9392	
==>-> Scalar )
 multi  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	823	924	
==>nt "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1029	1130	
==>nt "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7314	7423	
==>pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functions seem more confusion than hel <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2955	3050	
==>riginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - detai <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2955	3050	
==>riginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - detai <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13786	13944	
==>rams')));
                return $e->get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $repr, hash %par <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22877	22974	
==>r.

=head2 Compared to Other Solutions

One of the main distinctions of this approach over similar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22877	22974	
==>r.

=head2 Compared to Other Solutions

One of the main distinctions of this approach over similar <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	453	569	
==>@mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    i <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	453	569	
==>@mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18122	18300	
==>y($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18122	18300	
==>y($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18122	18300	
==>y($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret) <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	963	1065	
==>cript($script_file);
}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker_args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2139	2233	
==>}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.ne <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2139	2233	
==>}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2501	2614	
==>L2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2501	2614	
==>L2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2501	2614	
==>L2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3715	3856	
==>ram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3715	3856	
==>ram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3715	3856	
==>ram{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11320	11423	
==>n,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11320	11423	
==>n,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11320	11423	
==>n,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20691	20774	
==>,[C|Fx],[],[],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,[],[],[C|Bx],[C|Bx],E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4649	4744	
==>al is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4649	4744	
==>al is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5239	5334	
==>al is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13127	13249	
==>ue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13127	13249	
==>ue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13127	13249	
==>ue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34995	35089	
==>ant Relation.  This method
degenerates into an C<intersection> if the two source headings are
i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39545	39639	
==>ant Relation.  This method
degenerates into an C<intersection> if the two source headings are
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	940	1052	
==>less {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	940	1052	
==>less {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	940	1052	
==>less {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3195	3347	
==>});
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when cre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3195	3347	
==>});
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when cre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3195	3347	
==>});
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2908	3002	
==>rp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FG <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2908	3002	
==>rp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FG <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2908	3002	
==>rp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FG <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6802	6959	
==>';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2084	2199	
==>?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2084	2199	
==>?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1753	1862	
==>mpile: $!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2564	2666	
==>*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2564	2666	
==>*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2564	2666	
==>*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_R <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9024	9161	
==>satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = Lo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10501	10638	
==>satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = Lo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4772	4889	
==>in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4772	4889	
==>in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	356	447	
==>nPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1085	1416	
==>ym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16544	16640	
==>ontains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16544	16640	
==>ontains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11581	11675	
==>--------------------------------

With this Role meta-model , any Class instances, themselves d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11581	11675	
==>--------------------------------

With this Role meta-model , any Class instances, themselves d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11581	11675	
==>--------------------------------

With this Role meta-model , any Class instances, themselves d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	642	749	
==>JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	642	749	
==>JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	642	749	
==>JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by I <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4012	4216	
==>urn;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12381	12480	
==>ne containing a digest of the original content.
#
# This makes further dividing of Perl code less tr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12381	12480	
==>ne containing a digest of the original content.
#
# This makes further dividing of Perl code less tr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2828	2926	
==>\
#   ie, both return and argument types differ.
multi infix:«¥» (Array *@arrays --> Lazy) { zip <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1495	1591	
==>face

The Cipher API's procedural interface is good enough for many purposes.  
Although the inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1495	1591	
==>face

The Cipher API's procedural interface is good enough for many purposes.  
Although the inte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	359	456	
==>ository

=item pool

Path to the pool directory of the repository. $root/jibs if not specified.

= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2288	2384	
==>or continuous ciphering.

Both of these functions return a closure.  Call the closure with a bloc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2288	2384	
==>or continuous ciphering.

Both of these functions return a closure.  Call the closure with a bloc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5875	5978	
==>ction $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5875	5978	
==>ction $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rose <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1014	1111	
==>| <term>+? }
rule non_alternation { <conjunction> | <non_conjunction> }

rule conjunction     { <n <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1083	1211	
==>e);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FT <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1050	1178	
==>e);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FT <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	117	212	
==>gs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementations).
# To <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1057	1154	
==>Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1057	1154	
==>Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8402	8525	
==>"JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8402	8525	
==>"JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8402	8525	
==>"JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_fro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17245	17345	
==>e is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17245	17345	
==>e is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-U <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14184	14269	
==>}.

uncode_charname_to_char(Name,C) :- cached_uncode_charname_to_char(Name,C), !.
unco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	477	592	
==>d to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	477	592	
==>d to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	477	592	
==>d to public method, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .ti <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13241	13333	
==>nts of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13241	13333	
==>nts of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	486	589	
==>t code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	486	589	
==>t code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	486	589	
==>t code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FE <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6514	6645	
==>sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6571	6702	
==>sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	84	214	
==>'pil2_json_emit_<language>.p6' instead

  ../../pugs -CPIL2-JSON -e ' say "hello" ' | \
    ../../pugs pil2_json_emit_p6.p6

  #! / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2796	2909	
==>i_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2796	2909	
==>i_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2796	2909	
==>i_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11580	11699	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11580	11699	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11580	11699	
==>_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1067	1158	
==>::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1067	1158	
==>::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1067	1158	
==>::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive i <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	279	391	
==>odule
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2635	2729	
==>er 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2635	2729	
==>er 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and ' <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2212	2316	
==>ts called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2212	2316	
==>ts called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3469	3560	
==>PUSHs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3669	3800	
==>ve
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3669	3800	
==>ve
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3669	3800	
==>ve
        my $str  = substr($string,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29912	30072	
==>= shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':asce <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5227	5363	
==>if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5239	5375	
==>if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9284	9425	
==>sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9284	9425	
==>sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9284	9425	
==>sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	422	530	
==>rce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	422	530	
==>rce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	422	530	
==>rce;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2357	2469	
==>urn 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3138	3250	
==>urn 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1369	1467	
==>if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1369	1467	
==>if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1369	1467	
==>if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6292	6384	
==>/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6292	6384	
==>/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6292	6384	
==>/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20549	20654	
==>d then invoking methods on those objects.  All of
their class/object attributes are private, so you must u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25101	25206	
==>d then invoking methods on those objects.  All of
their class/object attributes are private, so you must u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23671	23776	
==>d then invoking methods on those objects.  All of
their class/object attributes are private, so you must u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11426	11526	
==>e 
behavior to class consturction because it isolates the Role specifc
code to the class that consume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11426	11526	
==>e 
behavior to class consturction because it isolates the Role specifc
code to the class that consume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11426	11526	
==>e 
behavior to class consturction because it isolates the Role specifc
code to the class that consume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19601	19715	
==>xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19601	19715	
==>xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19601	19715	
==>xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	888	1089	
==>onstant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	889	1090	
==>onstant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3418	3553	
==>_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3418	3553	
==>_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3418	3553	
==>_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify <==
3	/Users/nnunley/pugs/util/claim_drift.pl	951	1105	
==>an->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die " <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3001	3108	
==>t;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3001	3108	
==>t;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6619	6751	
==>]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6619	6751	
==>]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6619	6751	
==>]
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	725	877	
==>s' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	725	877	
==>s' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	725	877	
==>s' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	813	927	
==>ef $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	813	927	
==>ef $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	813	927	
==>ef $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5414	5564	
==>r $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in our <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2377	2475	
==>oto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_messag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2377	2475	
==>oto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_messag <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1753	1857	
==>hift->package() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8812	8901	
==>erms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2637	2726	
==>erms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19573	19662	
==>_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19573	19662	
==>_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19573	19662	
==>_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3402	3538	
==>' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3402	3538	
==>' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3402	3538	
==>' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9752	9901	
==>SERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9752	9901	
==>SERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMM <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15591	15683	
==>char hashes,
which contain the mapping from all characters to the corresponding entities
(and <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15591	15683	
==>char hashes,
which contain the mapping from all characters to the corresponding entities
(and <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	854	960	
==>identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is exp <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	854	960	
==>identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is exp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12792	12912	
==>rs =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" },
      numeric     => sub { "". $_[0] },
      no <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14569	14663	
==>sted by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14569	14663	
==>sted by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2197	2305	
==>g(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2197	2305	
==>g(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2197	2305	
==>g(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7473	7663	
==>r::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	769	860	
==>interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "inst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	769	860	
==>interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "inst <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3720	3816	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3720	3816	
==>sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2055	2147	
==>icular, it suffers from
convergence problems for some functions, which all Newton methods do. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13011	13163	
==>-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13011	13163	
==>-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11804	12000	
==>ef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $vers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11804	12000	
==>ef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $vers <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1689	1792	
==>ctory completely, even if it is non-empty.

Returns true on success, false on failure.

=cut

sub _rmdir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10710	10827	
==>rray[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10710	10827	
==>rray[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10710	10827	
==>rray[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1105	1207	
==>t_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::require_bareword {
    my $iden <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	612	733	
==>the match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-l <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	612	733	
==>the match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17522	17618	
==>one class, I<quantifier>.  You pass it the min and max,
and the object's C<type> is determined dy <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4452	4553	
==>thod actually creates and returns a new Test::Builder instance.  It
takes the same optional named argu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4452	4553	
==>thod actually creates and returns a new Test::Builder instance.  It
takes the same optional named argu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5976	6077	
==>thod actually creates and returns a new Test::Builder instance.  It
takes the same optional named argu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1293	1423	
==>ule(
        '.' => q( <before <Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5604	5704	
==>turns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5604	5704	
==>turns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10989	11169	
==>n,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.descri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1475	1639	
==>n,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1475	1639	
==>n,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	483	593	
==>{
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	483	593	
==>{
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	483	593	
==>{
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2559	2779	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2559	2779	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2559	2779	
==>s => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6173	6277	
==>:CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6173	6277	
==>:CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6173	6277	
==>:CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7776	7907	
==>ray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7776	7907	
==>ray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7776	7907	
==>ray->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3968	4156	
==>mk_containers(@$values);
            },

            'array_unshift' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                unshift @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17022	17150	
==>leop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17301	17429	
==>leop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4091	4195	
==>t generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3947	4049	
==>t generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1997	2117	
==>"'$q'";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the co <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17231	17332	
==>rue` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17231	17332	
==>rue` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are In <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2023	2161	
==>e} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3396	3526	
==>e} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34562	34652	
==>MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THING> (if it exists), and fina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14621	14726	
==>TI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14621	14726	
==>TI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14621	14726	
==>TI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	71	169	
==>makes use of attribute grammars and multimethods)

# first part is a type pretty printer and the ty <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19537	19630	
==>)>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessaril <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19537	19630	
==>)>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessaril <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10925	11023	
==>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10925	11023	
==>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10925	11023	
==>[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2006	2107	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2006	2107	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2006	2107	
==>rl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7567	7677	
==>rpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7567	7677	
==>rpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7567	7677	
==>rpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	149	249	
==>al YAML.pm
use PugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULT <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19851	19946	
==>sed.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19851	19946	
==>sed.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34344	34445	
==>f
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38894	38995	
==>f
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38373	38474	
==>f
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_matching>. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3712	3809	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3712	3809	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3712	3809	
==>lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_e <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	668	757	
==>1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	668	757	
==>1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7109	7230	
==>$sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7109	7230	
==>$sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7109	7230	
==>$sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3847	3996	
==>ntry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4311	4460	
==>ntry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep a <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13184	13278	
==>e support the
unary form C<delete %hash{$key}> in all it's forms. Below are some
example transl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	719	822	
==>";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	719	822	
==>";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	719	822	
==>";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2678	2780	
==>$val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCOR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2678	2780	
==>$val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6058	6163	
==>undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6058	6163	
==>undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6058	6163	
==>undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	684	799	
==>y this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	684	799	
==>y this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	684	799	
==>y this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	232	333	
==>t::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	232	333	
==>t::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	232	333	
==>t::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	674	792	
==>no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	674	792	
==>no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	674	792	
==>no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This appr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2309	2445	
==>rms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2556	2692	
==>rms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() , <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2381	2480	
==>lues;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %en <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2381	2480	
==>lues;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %en <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3600	3735	
==>dex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3600	3735	
==>dex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	598	718	
==>nless defined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLASS->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3596	3717	
==>n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3596	3717	
==>n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  clo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3596	3717	
==>n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  clo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	857	986	
==>croak "virtual method str called on @_";
    }

    my %DIGEST_CACHE;

    sub digest {
        my $self = shift;
        $DIGEST_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5849	6005	
==>define },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5849	6005	
==>define },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5849	6005	
==>define },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17550	17653	
==>_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17550	17653	
==>_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17550	17653	
==>_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5033	5130	
==>rent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5033	5130	
==>rent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7230	7327	
==>rent test file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.dia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24430	24544	
==>s_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24430	24544	
==>s_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24430	24544	
==>s_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4208	4358	
==>tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4208	4358	
==>tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4208	4358	
==>tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4916	5029	
==>xup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(? <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16119	16214	
==>be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ration <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16119	16214	
==>be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ration <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	853	990	
==>) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	853	990	
==>) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	853	990	
==>) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalS <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1071	1287	
==>> 1,
                default     => $config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	827	950	
==>/$path] )          and die "$?";
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and die "$?";
        chdir $buildd <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	547	654	
==>&{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub admin {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2766	2961	
==>readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($ve <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2766	2961	
==>readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($ve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13746	13909	
==>emit($_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21750	21851	
==>bjects.  I was getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1066	1186	
==>tect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1066	1186	
==>tect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1066	1186	
==>tect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28853	28956	
==>set members.  This
method supports having the new attributes having the same names as old
attributes tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33405	33508	
==>set members.  This
method supports having the new attributes having the same names as old
attributes tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32542	32645	
==>set members.  This
method supports having the new attributes having the same names as old
attributes tha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7725	7854	
==>d

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7725	7854	
==>d

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2683	2810	
==>tr->to_native . " got($arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self->{env}-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3212	3312	
==>::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $on <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3212	3312	
==>::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $on <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3950	4056	
==>t "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4167	4273	
==>t "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	470	577	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	470	577	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	470	577	
==>NCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6835	6962	
==>urn { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7028	7155	
==>urn { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15367	15469	
==>) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15367	15469	
==>) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15367	15469	
==>) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->va <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5529	5664	
==>3),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5529	5664	
==>3),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => ch <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25322	25412	
==>ee->new,
		type::operator::pair->new(
			type::variable::free->new,
			type::variable::free <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38250	38351	
==>store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38250	38351	
==>store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38250	38351	
==>store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $arra <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1906	2015	
==>(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file p6 pil_code pil_tree p5)],
	$datatype <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	93	190	
==>gs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	93	190	
==>gs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36001	36099	
==>f the new relation is the union of the invocant and <$other> headings. 
The body of the new relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40551	40648	
==>f the new relation is the union of the invocant and <$other> headings.
The body of the new relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40165	40262	
==>f the new relation is the union of the invocant and <$other> headings.
The body of the new relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7412	7513	
==>ew_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\ni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7412	7513	
==>ew_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\ni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7412	7513	
==>ew_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\ni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3089	3202	
==>think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3089	3202	
==>think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3089	3202	
==>think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each elem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4149	4283	
==>e_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{barewor <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5845	5945	
==>OSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5845	5945	
==>OSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	465	573	
==><CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LK <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	465	573	
==><CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LK <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6387	6479	
==>$method;
}

(method add_method ((opaque $self:) (symbol $label) (method $method)) returns nil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14927	15026	
==>rom_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14927	15026	
==>rom_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14927	15026	
==>rom_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12420	12524	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12420	12524	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12420	12524	
==>nfess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16598	16724	
==>ing name         :optional
    .param int has_name        :opt_flag
    .local pmc exp
    .local pmc newfrom
    .local pmc co <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3318	3417	
==>his class represents a date /without a time/.

Because it is just a date, it does not handle time zo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3318	3417	
==>his class represents a date /without a time/.

Because it is just a date, it does not handle time zo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23647	23763	
==>d $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23647	23763	
==>d $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23647	23763	
==>d $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1726	1898	
==>ent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1726	1898	
==>ent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1726	1898	
==>ent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3456	3561	
==>ing! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6933	7038	
==>ing! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5890	5995	
==>ing! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some values o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13210	13313	
==>ta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13210	13313	
==>ta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13210	13313	
==>ta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1941	2099	
==>e'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anythin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2146	2304	
==>e'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anythin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2209	2367	
==>e'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anythin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7441	7570	
==>/   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7441	7570	
==>/   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7441	7570	
==>/   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16945	17068	
==>ub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16945	17068	
==>ub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16945	17068	
==>ub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	98	208	
==>aive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") {
    system("perl n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31542	31637	
==>ific
to it, another library likewise, and a program which uses both libraries
could have yet ano <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31542	31637	
==>ific
to it, another library likewise, and a program which uses both libraries
could have yet ano <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1961	2063	
==>$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1961	2063	
==>$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1961	2063	
==>$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1123	1245	
==>TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1123	1245	
==>TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1123	1245	
==>TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2006	2103	
==>$.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2006	2103	
==>$.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_uni <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17186	17346	
==>, id=>0+$link, 
                         title => $link->{whole},
                         class => 'testlink');
                # $backlink->push_content(abs2re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2031	2131	
==>er_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2031	2131	
==>er_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

D <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7799	7946	
==>le( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7811	7958	
==>le( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to tr <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1478	1591	
==>slurp($fname);
    # remove the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n//;
    my @file = sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1764	1871	
==>} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1764	1871	
==>} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{ma <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2635	2756	
==>alues'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_ind <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22900	22995	
==>Other Solutions

One of the main distinctions of this approach over similar packages is that
tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22900	22995	
==>Other Solutions

One of the main distinctions of this approach over similar packages is that
tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10165	10271	
==>s;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10165	10271	
==>s;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10165	10271	
==>s;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3502	3639	
==>lock>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1860	1997	
==>lock>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2640	2777	
==>lock>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9738	9889	
==>y => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9738	9889	
==>y => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9738	9889	
==>y => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'is <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16049	16144	
==>t
lives in the Document object given in the named parameter $document, and
whose Node Type attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16049	16144	
==>t
lives in the Document object given in the named parameter $document, and
whose Node Type attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2222	2330	
==>amples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2222	2330	
==>amples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parame <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2222	2330	
==>amples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parame <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8687	8799	
==>$fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modfie <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4694	4787	
==>nfig::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid n <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4694	4787	
==>nfig::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17150	17279	
==>ner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20627	20756	
==>ner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20205	20334	
==>ner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1674	1806	
==>@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1674	1806	
==>@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1674	1806	
==>@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@ARGV)) {
    p6_repl();
}
exit(0);


sub p6_repl_simple {
    my $verbose <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2866	2972	
==>f;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2866	2972	
==>f;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2866	2972	
==>f;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primiti <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2453	2559	
==>cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2453	2559	
==>cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	234	325	
==>, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compiler::To <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1359	1474	
==>l6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1359	1474	
==>l6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1359	1474	
==>l6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28349	28442	
==>ts attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32901	32994	
==>ts attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32029	32122	
==>ts attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argument C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7748	7854	
==>fine_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7748	7854	
==>fine_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7748	7854	
==>fine_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {! <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4387	4478	
==>t for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4387	4478	
==>t for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0. <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3212	3334	
==>3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_version ], @{ $values{re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1392	1491	
==>o use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for sh <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1392	1491	
==>o use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1872	1987	
==>ef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1872	1987	
==>ef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1872	1987	
==>ef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11276	11453	
==>?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11276	11453	
==>?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37085	37203	
==>ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37085	37203	
==>ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37085	37203	
==>ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4049	4211	
==>ype, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size> <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4049	4211	
==>ype, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size> <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1337	1422	
==>?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4892	4987	
==>`Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4892	4987	
==>`Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16451	16545	
==>rs removed.

Note: Most users should consider setting their I/O handles to autochomp
instead of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1109	1211	
==>e) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1109	1211	
==>e) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1109	1211	
==>e) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3157	3256	
==>amContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3157	3256	
==>amContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3157	3256	
==>amContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1776	1916	
==>bug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1776	1916	
==>bug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $c <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	625	728	
==>pe $.subReturns;

has Bool $.subLValue;

has Code $.subBody;

does Show;
does Eq;
does Ord;
does Typeabl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9953	10059	
==>ndler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9953	10059	
==>ndler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    r <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3984	4088	
==>d a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc is the first script to run after the kernel has <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3435	3537	
==>ile(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wai <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3435	3537	
==>ile(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11676	11804	
==>:Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2110	2226	
==>:Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2110	2226	
==>:Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21099	21200	
==>in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21099	21200	
==>in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29444	29542	
==>onsumptive.  It happens to be executed when
'atom' matches a '|'.  This means the handler for '|' d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5691	5843	
==>('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5691	5843	
==>('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5691	5843	
==>('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4663	4775	
==>g{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4663	4775	
==>g{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4663	4775	
==>g{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Cou <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	201	301	
==>zily ...
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show_tree ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	779	871	
==>ead1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	779	871	
==>ead1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36593	36719	
==>shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36593	36719	
==>shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36593	36719	
==>shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XX <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10783	10902	
==>t from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:live <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10783	10902	
==>t from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:live <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29397	29547	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29676	29826	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_ret <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4068	4196	
==>0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4068	4196	
==>0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34406	34497	
==>r the F<Regexp::AndBranch::and> object it
creates!

A method call for a F<Regexp::MyRx::THIN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2413	2509	
==>eaders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2413	2509	
==>eaders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11703	11812	
==>E

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11703	11812	
==>E

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9876	9987	
==>ext unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9876	9987	
==>ext unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9876	9987	
==>ext unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6232	6389	
==>turn { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar:: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3869	3973	
==>y if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set:: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3869	3973	
==>y if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set:: <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2811	2913	
==>+ $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
} <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2811	2913	
==>+ $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
} <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	75	169	
==>ON = 0.02;

=head1 NAME

Test::Harness::Iterator - Internal Test::Harness Iterator

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22482	22576	
==>e-key to indicate a
condition, often it will also provide some variable values to be
interpolat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22482	22576	
==>e-key to indicate a
condition, often it will also provide some variable values to be
interpolat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1806	1944	
==>t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1806	1944	
==>t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1806	1944	
==>t use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13213	13415	
==>ame } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13213	13415	
==>ame } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13213	13415	
==>ame } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13819	13929	
==>{ $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13819	13929	
==>{ $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13819	13929	
==>{ $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12435	12536	
==>t is not present.

Risks:

  Trying to properly do (non-leaking) memory management, via reverse
  engi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23262	23361	
==>tribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27814	27913	
==>tribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if n <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10033	10139	
==>s}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10033	10139	
==>s}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/ <==
3	/Users/nnunley/pugs/util/package-osx.pl	645	751	
==>db
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline.5.1.dy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3394	3504	
==>elf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3394	3504	
==>elf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3394	3504	
==>elf->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2801	2920	
==>ariable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <cl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2801	2920	
==>ariable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <cl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3148	3267	
==>ariable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4993	5091	
==>->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4993	5091	
==>->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4993	5091	
==>->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10430	10543	
==>------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10430	10543	
==>------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10430	10543	
==>------------------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6451	6571	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6451	6571	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6451	6571	
==>superclasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5714	5830	
==>method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5714	5830	
==>method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5714	5830	
==>method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @params);
}

sub _post_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5867	5978	
==>ift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5867	5978	
==>ift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5867	5978	
==>ift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  } <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7900	8003	
==>ng

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 Fi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7900	8003	
==>ng

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 Fi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29979	30078	
==>t can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a test for verbos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4410	4521	
==>d_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4410	4521	
==>d_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4410	4521	
==>d_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2172	2288	
==>ed $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2172	2288	
==>ed $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4207	4321	
==>iate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5056	5170	
==>iate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2949	3052	
==>lf->meta->package;
    my $builddir = Path::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9505	9672	
==>v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9505	9672	
==>v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9505	9672	
==>v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1716	1813	
==>_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1716	1813	
==>_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1716	1813	
==>_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8247	8413	
==>s depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8711	8877	
==>s depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21750	21861	
==>il  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest name string for formatting pur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4661	4763	
==>ng here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4661	4763	
==>ng here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4661	4763	
==>ng here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_rol <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8529	8628	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8529	8628	
==>(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6793	6889	
==>\n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token white <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	924	1097	
==>b {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	924	1097	
==>b {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	924	1097	
==>b {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_fai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20749	20846	
==>ACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20749	20846	
==>ACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20749	20846	
==>ACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3847	3936	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3847	3936	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3847	3936	
==>nd MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12140	12227	
==>eturn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12140	12227	
==>eturn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12140	12227	
==>eturn $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_mak <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7900	8014	
==>ndex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7888	8002	
==>ndex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	876	970	
==>SCRIPTION

This module provides a Perl interface to use the B<libpcre> library for
regular expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11902	12058	
==>~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11902	12058	
==>~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11902	12058	
==>~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       || $::CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3693	3808	
==>f defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3693	3808	
==>f defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3693	3808	
==>f defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11435	11551	
==>ance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11435	11551	
==>ance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11435	11551	
==>ance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16075	16174	
==>ese methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16075	16174	
==>ese methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	111	208	
==>s version of lrep only compiles Grammar sections
# The full version is on misc/pX/Common/lrep*
# * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1135	1261	
==>$n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1135	1261	
==>$n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1135	1261	
==>$n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8184	8306	
==>n => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	399	509	
==>n => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	399	509	
==>n => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	464	634	
==>s{'$:expect'}) {
                confess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1..' . _('$:expe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10299	10452	
==>ic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10299	10452	
==>ic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5609	5725	
==>a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5609	5725	
==>a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5609	5725	
==>a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing package <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9021	9133	
==>compiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12878	12986	
==>compiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12878	12986	
==>compiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23650	23743	
==>ort time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23650	23743	
==>ort time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9031	9160	
==>am'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9031	9160	
==>am'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9031	9160	
==>am'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4229	4354	
==>XXX we should build a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	425	533	
==>my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1971	2068	
==>zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1971	2068	
==>zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1971	2068	
==>zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"thro <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8872	8997	
==>loor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8872	8997	
==>loor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15927	16049	
==>I SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15927	16049	
==>I SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15927	16049	
==>I SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11263	11358	
==>e Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11263	11358	
==>e Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11263	11358	
==>e Class BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	79	184	
==>plied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	79	184	
==>plied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	79	184	
==>plied" },
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3277	3392	
==>s_method' => sub ($$) {
            my ($self, $label) = @_;
            exists ::opaque_instance_attrs($self)->{'%: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36791	36882	
==>c binary relational operator that is like
C<union> except that the returned Relation::Exampl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37291	37382	
==>c binary relational operator that is like
C<union> except that the returned Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3017	3133	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3017	3133	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3017	3133	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->n <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1639	1845	
==>,
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'), <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4270	4404	
==>superclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2885	3018	
==>superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3090	3223	
==>superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8068	8221	
==>,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub neg {
    my $self = shift;
    $self->{neg} = sh <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3058	3172	
==>er
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3058	3172	
==>er
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22428	22532	
==>esult when invoked on the
same object with the same arguments; they do not interact with the outside
envi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26980	27084	
==>esult when invoked on the
same object with the same arguments; they do not interact with the outside
envi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25703	25807	
==>esult when invoked on the
same object with the same arguments; they do not interact with the outside
envi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12320	12411	
==>urn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12320	12411	
==>urn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12320	12411	
==>urn $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_me <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	540	663	
==>de =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	575	698	
==>de =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	540	663	
==>de =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20838	20934	
==>back-end which
I recommend above all others for production use.

Most of the other (near term) th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20838	20934	
==>back-end which
I recommend above all others for production use.

Most of the other (near term) th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4020	4128	
==>e topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4020	4128	
==>e topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28193	28285	
==>S_PERL_SWITCHES> to C<-W> will
run all tests with all warnings enabled.

=item C<HARNESS_VERB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	118	230	
==>nstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	118	230	
==>nstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	118	230	
==>nstant(function (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21256	21361	
==>ed($test->{max},$test->{skipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test->{failed} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14828	14923	
==>easy to create and use relational databases in a very reliable,
portable, and efficient way.  Th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14828	14923	
==>easy to create and use relational databases in a very reliable,
portable, and efficient way.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17356	17466	
==>nfix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17356	17466	
==>nfix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17356	17466	
==>nfix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19610	19709	
==>o be passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for an <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19610	19709	
==>o be passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22245	22342	
==>ions for Perl 6

=head1 VERSION

This document describes Relation version 0.1.0.

It also describe <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1289	1427	
==>\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9770	9866	
==>erence( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9770	9866	
==>erence( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1444	1537	
==>rness is the module that reads the
output from Test::Simple, Test::More and other modules base <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18795	18906	
==>,
		),
	),
);

# this function cannot be typed, since it wants a function in x, (a -> b), and a is both an int a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6588	6689	
==>ome basic notes here as I develop this.

- how should I handle blocks of text which seem to still be i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6588	6689	
==>ome basic notes here as I develop this.

- how should I handle blocks of text which seem to still be i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4125	4246	
==>kensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4125	4246	
==>kensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4125	4246	
==>kensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1043	1226	
==>_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1043	1226	
==>_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1043	1226	
==>_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18796	18945	
==>AD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18796	18945	
==>AD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18796	18945	
==>AD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTO <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11557	11664	
==><StrUnsignedDecimalLiteral>
}
rule StrUnsignedDecimalLiteral {  # see 9.3.1
      <'Infinity'>
    | <Decima <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14621	14717	
==>ood Practice" of ordering the header fields.  Long header
values are not folded.

The optional $e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14621	14717	
==>ood Practice" of ordering the header fields.  Long header
values are not folded.

The optional $e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14990	15162	
==>" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15269	15441	
==>" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1775	1884	
==>} keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %native);
}

sub l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20871	20968	
==>ACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20871	20968	
==>ACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20871	20968	
==>ACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2128	2238	
==>JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2128	2238	
==>JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2128	2238	
==>JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	424	538	
==>ep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	424	538	
==>ep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	424	538	
==>ep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2789	2912	
==>ew) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2789	2912	
==>ew) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2789	2912	
==>ew) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precomp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14432	14542	
==>f->available_file, @avail ) };
    $@ and error( "Could not write available file: $@" ), return;
    
    my @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	600	707	
==>->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	806	913	
==>->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5534	5633	
==>e:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5534	5633	
==>e:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5534	5633	
==>e:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3263	3384	
==>ift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3263	3384	
==>ift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3263	3384	
==>ift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6356	6449	
==>whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6356	6449	
==>whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6356	6449	
==>whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5831	5941	
==>rict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

= <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	544	646	
==>er contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Has <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	544	646	
==>er contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Has <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3936	4071	
==>node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3936	4071	
==>node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	786	921	
==>node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8267	8458	
==>ol => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12234	12370	
==>ol => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12234	12370	
==>ol => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compil <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5242	5336	
==>ethod returns a hash reference representing the configuration data

=item write

The C<write> m <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5242	5336	
==>ethod returns a hash reference representing the configuration data

=item write

The C<write> m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1698	1818	
==>\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1698	1818	
==>\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1698	1818	
==>\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16216	16351	
==>ues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19693	19828	
==>ues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19226	19361	
==>ues.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.val <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1906	2016	
==>ut) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinput) = $_->($input))
      return($v, $newinput <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26189	26288	
==>n additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26189	26288	
==>n additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3899	4022	
==>ame};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9198	9301	
==>classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9198	9301	
==>classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17752	17869	
==>t = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17752	17869	
==>t = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10094	10186	
==>(list => type::variable::free->new),
	# list a -> bool
	'is_nil?' => type::operator::arrow->n <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6254	6384	
==>e   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   L <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5128	5228	
==>OPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Bas <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5128	5228	
==>OPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2036	2166	
==>$self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2036	2166	
==>$self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2036	2166	
==>$self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10990	11085	
==>Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10990	11085	
==>Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10990	11085	
==>Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @stack = $::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3309	3439	
==>p qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3309	3439	
==>p qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3665	3795	
==>p qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9945	10107	
==>, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{prov <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11422	11584	
==>, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{prov <==
3	/Users/nnunley/pugs/util/package-osx.pl	985	1091	
==>rot.pc
        /usr/local/share/doc/parrot
        /usr/local/info/readline.info
        /usr/local/info/rl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4102	4207	
==>ubmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4102	4207	
==>ubmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4102	4207	
==>ubmethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	330	471	
==>t "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	330	471	
==>t "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	330	471	
==>t "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2869	2983	
==>gsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2869	2983	
==>gsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2869	2983	
==>gsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5740	5871	
==>$cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5740	5871	
==>$cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5740	5871	
==>$cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10348	10538	
==>' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16687	16835	
==>s );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20164	20312	
==>s );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the for <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	113	226	
==>nings;

use Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl ver <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36697	36792	
==>ould be
found using the Translator object's Set and Member properties; if none
could be matched, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36697	36792	
==>ould be
found using the Translator object's Set and Member properties; if none
could be matched, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	249	358	
==>,\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	249	358	
==>,\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13684	13798	
==>w);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7891	8005	
==>w);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6140	6239	
==>ext'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %results = $strap->ana <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2201	2324	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2201	2324	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2201	2324	
==>ay") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16881	16987	
==>me source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20358	20464	
==>me source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19936	20042	
==>me source attributes are in common, and each
    # source has attributes not in the other.

    if ($!body. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1269	1368	
==>ng_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1269	1368	
==>ng_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1269	1368	
==>ng_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_N <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13290	13391	
==>rns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # rem <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13290	13391	
==>rns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # rem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7229	7336	
==>not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule op <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1272	1365	
==>nuation (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1272	1365	
==>nuation (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	178	278	
==>to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	178	278	
==>to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	178	278	
==>to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use Fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18673	18865	
==>->get('$method')->is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	719	839	
==>in-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	684	795	
==>in-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8460	8567	
==>$.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.foo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	658	753	
==>$.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.foo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	658	753	
==>$.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.foo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21374	21475	
==>es( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21374	21475	
==>es( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21374	21475	
==>es( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	457	561	
==>_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	457	561	
==>_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	457	561	
==>_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	588	707	
==>s_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	588	707	
==>s_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	588	707	
==>s_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes co <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	174	272	
==>supplied regex) or
no Smart::Comments before every fully qualified subroutine.
* takes a rexep as t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1740	1836	
==>s 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1740	1836	
==>s 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	626	781	
==>perclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all em <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	44	150	
==>currence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	44	150	
==>currence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2128	2276	
==>}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	133	265	
==>}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	133	265	
==>}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14281	14449	
==>.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14281	14449	
==>.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14281	14449	
==>.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	471	590	
==>ss exists $params{'$.todo'};
            $params{'$.reason'}      = '' unless exists $params{'$.reason'};
            $p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9375	9473	
==>: if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurre <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9375	9473	
==>: if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurre <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7603	7748	
==>ls_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        el <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	182	278	
==>state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.sta <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	182	278	
==>state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29968	30061	
==>tes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34520	34613	
==>tes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33684	33777	
==>tes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relati <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2275	2425	
==>s Lazy|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @val <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11116	11222	
==>r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11116	11222	
==>r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11837	11958	
==>me eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4480	4601	
==>me eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3714	3820	
==>ich failed.

=item B<Stat>

If the test exited with non-zero, this is its exit status.

=item B<Wstat>

The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2054	2166	
==>utput;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	63	167	
==>utput;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	63	167	
==>utput;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9644	9849	
==>vides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11121	11326	
==>vides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2795	2923	
==>->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2795	2923	
==>->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2795	2923	
==>->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3113	3236	
==>ol::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3113	3236	
==>ol::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3113	3236	
==>ol::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	183	287	
==>gs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	183	287	
==>gs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11971	12069	
==>d return match information.  Match
  information gets inserted in $1 etal.  These will be limited t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4880	4976	
==><to_num () returns num>

=item B<to_str () returns str>

=item B<fetch (num) returns ~type>

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36490	36581	
==>method takes a (machine-readable) Message object as its positional
parameter $message and re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36490	36581	
==>method takes a (machine-readable) Message object as its positional
parameter $message and re <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7108	7233	
==>.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7108	7233	
==>.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5582	5683	
==>st ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5582	5683	
==>st ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5582	5683	
==>st ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9421	9556	
==>n and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into bloc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9421	9556	
==>n and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21913	22007	
==>{...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21913	22007	
==>{...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21913	22007	
==>{...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_fro <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1614	1710	
==>=head1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17668	17767	
==>.};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17668	17767	
==>.};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17668	17767	
==>.};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9594	9708	
==>ame as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2  <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9594	9708	
==>ame as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2  <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1442	1536	
==>_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17284	17402	
==>tem ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3164	3281	
==>ackages don't have a 'file' method, but they /should/
        ### have a meta object at all times
        unless( $sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	41	143	
==>ed;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2881	2986	
==>operty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $on <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2881	2986	
==>operty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $on <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25578	25659	
==>,I,J)),X,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4341	4518	
==>l_structure:<if>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ), <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6346	6447	
==>a special case Does
# to avoid endless recursion
$Class->add_method('does' => sub {
    return $_[1] e <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3844	3940	
==>f the perl api has to be
checked for correctness, and the problems tracked down.

=item Completen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1357	1460	
==>erl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1357	1460	
==>erl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1357	1460	
==>erl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	158	269	
==>lass1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	158	269	
==>lass1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	158	269	
==>lass1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7196	7314	
==>erl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7196	7314	
==>erl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7196	7314	
==>erl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2517	2663	
==>fix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6263	6368	
==>eturn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6251	6356	
==>eturn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	190	300	
==>", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	190	300	
==>", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	190	300	
==>", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::T <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16993	17136	
==>k}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # Now write to f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21713	21843	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21992	22122	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2763	2855	
==>ements the semantics for perl6-style variable binding,
as well as subroutine call argument pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2763	2855	
==>ements the semantics for perl6-style variable binding,
as well as subroutine call argument pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3110	3202	
==>ements the semantics for perl6-style variable binding,
as well as subroutine call argument pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	625	737	
==>:BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	625	737	
==>:BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	625	737	
==>:BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5138	5252	
==>per $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5138	5252	
==>per $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	25	127	
==>Blondie::TypeSafe;

use strict;
use warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub new {
	my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15800	15995	
==>p( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15800	15995	
==>p( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15800	15995	
==>p( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20830	20990	
==>est->{max}) {
        if ($test->{'next'} == $test->{max} + 1 and not @{$test->{failed}}) {
            print "\tafter all the subtests completed successfully\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28253	28378	
==>rl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28532	28657	
==>rl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	335	454	
==>= pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	335	454	
==>= pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	335	454	
==>= pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	989	1118	
==>quest.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	989	1118	
==>quest.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	803	901	
==>n't be executed until @:events[0] =:= the
  # callback we enqueue().
  method post (POE::Session $s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3090	3195	
==>tringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3090	3195	
==>tringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9740	9842	
==>cause otherwise
	# DCL will lowercase -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2860	2982	
==>1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2860	2982	
==>1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2860	2982	
==>1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$fil <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4733	4842	
==>, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    if( Fil <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2625	2716	
==>TP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google Gr <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2625	2716	
==>TP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google Gr <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	67	185	
==>2345'

say 0..@a-1;   # '01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say 0^..^@ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3367	3460	
==>ing.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-orient <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3367	3460	
==>ing.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-orient <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1683	1813	
==>.exists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2175	2271	
==>k 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest on <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2175	2271	
==>k 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest on <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1900	1993	
==>400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1900	1993	
==>400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	89	333	
==>port symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant value <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	89	333	
==>port symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant value <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7254	7452	
==>' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	89	333	
==>port symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant value <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	89	333	
==>port symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant value <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7147	7242	
==>ub code_for_code_CODE {
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34111	34205	
==>dentical header to the invocant relation.  This method has aliases
named C<minus> and C<except> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38661	38755	
==>dentical header to the invocant relation.  This method has aliases
named C<minus> and C<except> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38122	38216	
==>dentical header to the invocant relation.  This method has aliases
named C<minus> and C<except> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1278	1374	
==>tringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1278	1374	
==>tringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1278	1374	
==>tringification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls h <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	541	635	
==>er: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!res <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	541	635	
==>er: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!res <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18206	18303	
==>ple DBMS
objects want to use the same external resources, such as a repository file
on disk, it is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18206	18303	
==>ple DBMS
objects want to use the same external resources, such as a repository file
on disk, it is <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4695	4835	
==>tureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
}
rule Keyword {  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23612	23751	
==>,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23891	24030	
==>,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15326	15554	
==>), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18803	19031	
==>), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18228	18456	
==>), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	858	965	
==>nv}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

pack <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	744	840	
==>it ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	744	840	
==>it ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iint <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8642	8762	
==>numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8642	8762	
==>numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	833	937	
==>=> "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_handler('\e' => su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16799	16898	
==>/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is use <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16799	16898	
==>/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7627	7725	
==>b infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7627	7725	
==>b infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7627	7725	
==>b infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16507	16619	
==>ce')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16507	16619	
==>ce')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16507	16619	
==>ce')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15083	15242	
==>ub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15083	15242	
==>ub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15083	15242	
==>ub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12554	12725	
==>->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Er <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8828	8999	
==>->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Er <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9663	9834	
==>->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Er <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2839	2972	
==><a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2839	2972	
==><a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2839	2972	
==><a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1225	1322	
==>Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1225	1322	
==>Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gramm <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2546	2641	
==>$total_files;
my $syn_indexs;
my @syn;

my $help;
my $no_designdocs;
GetOptions('test_dirs=s@' = <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2881	2987	
==>for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckTail {
   my ($scr) = @_;
   my @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3723	3826	
==>lias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P6Rule", "$optabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7964	8119	
==>,
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-clos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7964	8119	
==>,
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-clos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7964	8119	
==>,
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	463	580	
==>lf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	463	580	
==>lf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	463	580	
==>lf->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2301	2412	
==>r, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - gre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2301	2412	
==>r, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - gre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2301	2412	
==>r, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - gre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6460	6584	
==>(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6460	6584	
==>(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6460	6584	
==>(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	230	346	
==>ype::comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    ( <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	250	350	
==>*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCO <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	250	350	
==>*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2603	2756	
==>->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2603	2756	
==>->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2603	2756	
==>->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3046	3144	
==>endent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The source file header must be valid perl5 I<and <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	95	190	
==>acter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	95	190	
==>acter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1386	1533	
==>assMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1386	1533	
==>assMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1386	1533	
==>assMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$label} = $method;                
        #}
        elsif (blessed <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	242	340	
==>cessfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	242	340	
==>cessfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2134	2264	
==>now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2134	2264	
==>now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2134	2264	
==>now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1328	1425	
==>er_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1328	1425	
==>er_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10788	10889	
==>ethod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10788	10889	
==>ethod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10788	10889	
==>ethod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7879	8020	
==>ry;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7879	8020	
==>ry;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7879	8020	
==>ry;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1194	1308	
==>OST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1194	1308	
==>OST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $sel <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2414	2524	
==>ame} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $template = do { local $/; <DA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5668	5838	
==>h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5668	5838	
==>h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5668	5838	
==>h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10270	10423	
==>]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10270	10423	
==>]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10270	10423	
==>]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              arr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17720	17822	
==>n>
}
rule LogicalANDExpression :words {  # see 11.11
      <BitwiseORExpression>
    | <LogicalANDExpre <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	195	294	
==>ethod source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::do <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	195	294	
==>ethod source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9185	9299	
==>t)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl scr <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	601	688	
==>ev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support th <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	601	688	
==>ev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	681	807	
==>$name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	681	807	
==>$name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	681	807	
==>$name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	326	459	
==>uleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	326	459	
==>uleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11988	12111	
==>r return for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20034	20130	
==>,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20034	20130	
==>,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20034	20130	
==>,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2212	2326	
==>e @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2352	2466	
==>e @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	241	349	
==>SION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}


# check if we can load som <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10845	10943	
==>ement set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10845	10943	
==>ement set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "uni <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12472	12568	
==>omment = $strap->_is_comment($line, \$comment);

Checks if the given line is a comment.  If so, i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13003	13097	
==>ich field.

=item $h.remove_content_headers

This will remove all the header fields used to des <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13003	13097	
==>ich field.

=item $h.remove_content_headers

This will remove all the header fields used to des <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7784	7894	
==>] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2201	2315	
==>name)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2201	2315	
==>name)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2201	2315	
==>name)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (! <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1424	1559	
==>ent->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of c <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1424	1559	
==>ent->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	845	958	
==>ide of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	845	958	
==>ide of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	845	958	
==>ide of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6863	6994	
==>e =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6863	6994	
==>e =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6863	6994	
==>e =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	985	1089	
==>t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	985	1089	
==>t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	985	1089	
==>t know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7373	7521	
==>iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7373	7521	
==>iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7373	7521	
==>iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2329	2523	
==>mplemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2329	2523	
==>mplemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2329	2523	
==>mplemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4325	4438	
==>hile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4325	4438	
==>hile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4325	4438	
==>hile (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ne <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4054	4258	
==>ew( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File::Copy::copy <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3423	3524	
==>LApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3423	3524	
==>LApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11913	12060	
==>') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11913	12060	
==>') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11913	12060	
==>') },  # cell() is used by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3410	3514	
==>{ ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3410	3514	
==>{ ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3410	3514	
==>{ ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2647	2746	
==>hod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2647	2746	
==>hod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2647	2746	
==>hod doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9792	9930	
==>elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	285	416	
==>YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1;

### only called <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	342	434	
==>itpath(%*INC<XML/SAX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open(catfile($d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1937	2036	
==>veExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1937	2036	
==>veExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3260	3400	
==>f.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3260	3400	
==>f.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3260	3400	
==>f.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5256	5359	
==>tr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5256	5359	
==>tr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5256	5359	
==>tr($self => '%:namespace')->{$label} = $value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16332	16440	
==>},
      perl5_object => sub { $as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right?
      per <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31404	31501	
==>mple, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distributed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31404	31501	
==>mple, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distributed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	139	239	
==>niq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	139	239	
==>niq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	139	239	
==>niq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2013	2182	
==>( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2013	2182	
==>( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2013	2182	
==>( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	119	220	
==>g::Escape qw/quote printable/;
use Scalar::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
u <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	103	200	
==>e most common medium.  It stores a finite string and a position
within that string, and it provide <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	103	200	
==>e most common medium.  It stores a finite string and a position
within that string, and it provide <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3002	3102	
==>= $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6479	6579	
==>= $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33094	33324	
==>>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33094	33324	
==>>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33094	33324	
==>>elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length > <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	771	912	
==>TH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	771	912	
==>TH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACC <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2101	2225	
==>y $file4 = <<'GROK';
1st line
2nd line
3rd line
4th line
GROK

my $file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1622	1742	
==>y ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1622	1742	
==>y ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1622	1742	
==>y ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15844	15942	
==>ed.

This library is free software; you can redistribute it and/or
modify it under the same terms a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15844	15942	
==>ed.

This library is free software; you can redistribute it and/or
modify it under the same terms a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2029	2136	
==>ing(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2029	2136	
==>ing(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2029	2136	
==>ing(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8940	9041	
==>}
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8940	9041	
==>}
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8940	9041	
==>}
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => : <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16218	16337	
==>@!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16218	16337	
==>@!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1283	1392	
==>ter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	527	668	
==>$a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	527	668	
==>$a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	527	668	
==>$a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3014	3117	
==>?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3014	3117	
==>?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4538	4641	
==>?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6102	6212	
==>strict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9579	9689	
==>strict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23246	23345	
==>T_UTF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5274	5389	
==>&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5274	5389	
==>&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5274	5389	
==>&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	396	513	
==>=> $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	396	513	
==>=> $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	396	513	
==>=> $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1779	1919	
==>::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cook <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1779	1919	
==>::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cook <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27197	27306	
==>} @$strA);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4553	4666	
==>l = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4553	4666	
==>l = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4553	4666	
==>l = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1562	1683	
==>cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1562	1683	
==>cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1562	1683	
==>cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27682	27781	
==>s a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameter <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27682	27781	
==>s a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameter <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1531	1695	
==>eld} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1531	1695	
==>eld} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11487	11607	
==>his;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11487	11607	
==>his;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11487	11607	
==>his;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13131	13240	
==>n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13131	13240	
==>n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13131	13240	
==>n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6159	6272	
==>t, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc li <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4501	4613	
==>{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already ini <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4501	4613	
==>{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already ini <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5732	5845	
==>] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshift (@array is rw ; *@values --> I <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10034	10142	
==>self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10034	10142	
==>self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16022	16153	
==>r die "Cannot close $tmpfile: $!";

    my $results = runperl(%$runperl_args);
    my $status = $?;

    # Clean up the results into <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3039	3169	
==>@$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3039	3169	
==>@$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6558	6650	
==>e unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6558	6650	
==>e unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6558	6650	
==>e unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmai <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9323	9431	
==>k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2241	2339	
==>in the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2241	2339	
==>in the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10393	10522	
==>lue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10393	10522	
==>lue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10393	10522	
==>lue'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->b <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	164	276	
==>end::C->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&say'),
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&in <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2617	2722	
==>type, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2617	2722	
==>type, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3879	4018	
==>rammar::Term.ident>
                { return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12480	12576	
==>alue argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12480	12576	
==>alue argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $fiel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32200	32300	
==>ny duplicated tuples appear only once in
the result.  With any 2 relations, the result is the same re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36750	36850	
==>ny duplicated tuples appear only once in
the result.  With any 2 relations, the result is the same re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36040	36140	
==>ny duplicated tuples appear only once in
the result.  With any 2 relations, the result is the same re <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2096	2234	
==>or}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc::// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1311	1420	
==>_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class-> <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1311	1420	
==>_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	477	645	
==>ange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $node->name . "(" . $node->id . ")\" ". <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2234	2332	
==>r's keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2234	2332	
==>r's keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2379	2481	
==>::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2379	2481	
==>::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2379	2481	
==>::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	305	410	
==>d($value) && $value->isa('type'))
        || confess "You must provide a value to reference";
    bless \$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	623	714	
==>previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to P <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	623	714	
==>previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to P <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3749	3860	
==>name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a on <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18552	18644	
==>s_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_ty <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18552	18644	
==>s_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1726	1838	
==>ame}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1726	1838	
==>ame}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1726	1838	
==>ame}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # need <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4163	4278	
==>//;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$// <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4163	4278	
==>//;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11406	11530	
==>$this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11406	11530	
==>$this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11406	11530	
==>$this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	959	1064	
==>b def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	959	1064	
==>b def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	959	1064	
==>b def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5358	5479	
==>nv->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5358	5479	
==>nv->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5358	5479	
==>nv->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	680	795	
==>der,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extract <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	680	795	
==>der,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extract <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	158	255	
==>as Module::Install installed, creating author mode ) {
#     1. Makefile.PL calls "use inc::Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2539	2646	
==>ods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2539	2646	
==>ods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2539	2646	
==>ods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth') <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5277	5374	
==>ymbol { "×" }


package type::variable;
use base qw/type/;

package type::variable::free;
use bas <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12572	12668	
==>cess, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12630	12726	
==>cess, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4450	4571	
==>);
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4450	4571	
==>);
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4414	4545	
==>@_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4414	4545	
==>@_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4414	4545	
==>@_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5989	6083	
==>o';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5989	6083	
==>o';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2888	2982	
==>o';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6283	6414	
==>o get";    
    my $current = $self;
    while ($current) {
        return $current->{env}->{$name}->fetch
            if exists $cu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	798	890	
==>export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	798	890	
==>export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	464	574	
==>isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	464	574	
==>isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	464	574	
==>isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12730	12855	
==>$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12730	12855	
==>$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12730	12855	
==>$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in Li <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4514	4609	
==>esult>
object; this is normally the entire match string, but may be arbitrary
objects returned f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4514	4609	
==>esult>
object; this is normally the entire match string, but may be arbitrary
objects returned f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29108	29201	
==>"predecessor" (that is, a '&&' with a
'&') are post-consumption: they have already matched wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4044	4160	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4044	4160	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4044	4160	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	810	954	
==>:VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	810	954	
==>:VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	810	954	
==>:VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7588	7711	
==>s = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7588	7711	
==>s = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7588	7711	
==>s = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3524	3621	
==>op();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3524	3621	
==>op();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3524	3621	
==>op();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46007	46161	
==>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49241	49395	
==>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50119	50273	
==>is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2957	3075	
==>@b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method comple <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2957	3075	
==>@b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9082	9187	
==>:*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9082	9187	
==>:*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9082	9187	
==>:*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10084	10182	
==>not be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10084	10182	
==>not be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essen <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10092	10207	
==>..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto qua <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16500	16643	
==>_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and ma <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20926	21069	
==>_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and ma <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4093	4204	
==>nt MAKEFILE $makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1084	1215	
==>hod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1084	1215	
==>hod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1694	1824	
==>e_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

# Local variables:
# c-inde <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1142	1259	
==>=> $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefil <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1142	1259	
==>=> $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefil <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5958	6074	
==>er of individual tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4566	4670	
==>a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4566	4670	
==>a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4566	4670	
==>a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2198	2317	
==>$_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2198	2317	
==>$_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### matc <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12177	12282	
==>11-safemode.t if you change the fully
    # qualified name of open3.

    multi sub open3 (Str $command) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3219	3323	
==>= 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3219	3323	
==>= 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3219	3323	
==>= 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1043	1156	
==>ES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1043	1156	
==>ES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1043	1156	
==>ES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fi <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3482	3611	
==>:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8912	9013	
==>de

I'd _expect_ the match object returned to carry the same magic.



overload in p5 is just static % <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8618	8716	
==>de
I'd _expect_ the match object returned to carry the same magic.

overload in p5 is just static % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6945	7059	
==>$old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6945	7059	
==>$old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6945	7059	
==>$old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3601	3722	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3852	3970	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3852	3970	
==>ail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $match->{bo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5697	5818	
==>iag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5755	5876	
==>iag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	316	436	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	316	436	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	316	436	
==>' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3765	3891	
==>s{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } el <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3765	3891	
==>s{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14820	14938	
==>if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14814	14932	
==>if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2519	2631	
==>ir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdir/$exename. <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	114	217	
==>rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(< <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	114	217	
==>rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6093	6194	
==>not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6093	6194	
==>not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6093	6194	
==>not here yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().joi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24902	25021	
==>isual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15490	15593	
==>ents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15490	15593	
==>ents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current d <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3691	4077	
==>, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3691	4077	
==>, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10673	10778	
==>{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10673	10778	
==>{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10673	10778	
==>{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5122	5297	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5122	5297	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5122	5297	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2689	2866	
==>detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2689	2866	
==>detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2117	2230	
==>rl filehandle
    Code        Base class for all executable objects
    Routine     Base class for all nameable ex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36694	36794	
==>any source relation has zero
tuples, in which case the result does too.  Another trivial case is if a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41243	41343	
==>any source relation has zero
tuples, in which case the result does too.  Another trivial case is if a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40866	40966	
==>any source relation has zero
tuples, in which case the result does too.  Another trivial case is if a <==
3	/Users/nnunley/pugs/util/package-osx.pl	11180	11318	
==>ing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                print " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13506	13600	
==>h() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named para <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13506	13600	
==>h() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4354	4453	
==>_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4354	4453	
==>_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4354	4453	
==>_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6571	6698	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6571	6698	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6571	6698	
==>if ($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4123	4231	
==>oto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4181	4289	
==>oto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14544	14652	
==>} else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14544	14652	
==>} else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	726	833	
==>->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	726	833	
==>->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	726	833	
==>->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $k <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	125	532	
==>(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	125	532	
==>(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

p <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1903	2018	
==>($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num $x) {
	my Int $t = int($x);
	$x > <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3287	3388	
==>cal $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6233	6330	
==>n Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-like syntax, contain <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6020	6115	
==>n Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-like syntax, contain <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2644	2743	
==>ST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2644	2743	
==>ST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12615	12713	
==>age:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12615	12713	
==>age:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $documen <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5716	5813	
==>des a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<st <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5716	5813	
==>des a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7913	8010	
==>des a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	484	582	
==>um $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	484	582	
==>um $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	484	582	
==>um $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	253	357	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	253	357	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	253	357	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n" <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2656	2767	
==>01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2656	2767	
==>01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3250	3359	
==>$code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3250	3359	
==>$code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3250	3359	
==>$code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10021	10119	
==><HexDigit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1368	1454	
==>Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1368	1454	
==>Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3547	3656	
==>($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3547	3656	
==>($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3547	3656	
==>($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1334	1433	
==>ns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1334	1433	
==>ns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4507	4604	
==>rints
out each individual test which failed along with a summary report and
a how long it all took <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4105	4221	
==>ty == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4105	4221	
==>ty == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4105	4221	
==>ty == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11756	11862	
==>ns that all classes
and roles can be polymorphic to one another. 

Because instances of class all conform t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11756	11862	
==>ns that all classes
and roles can be polymorphic to one another. 

Because instances of class all conform t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11756	11862	
==>ns that all classes
and roles can be polymorphic to one another. 

Because instances of class all conform t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4023	4118	
==>Test::Fail
instance, passing on the C<$description> parameter and setting the passed
parameter t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4023	4118	
==>Test::Fail
instance, passing on the C<$description> parameter and setting the passed
parameter t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6220	6315	
==>Test::Fail
instance, passing on the C<$description> parameter and setting the passed
parameter t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2488	2633	
==>s);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2488	2633	
==>s);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2488	2633	
==>s);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14340	14454	
==>) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14340	14454	
==>) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14340	14454	
==>) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5682	5782	
==>r $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5682	5782	
==>r $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7879	7979	
==>r $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	616	713	
==>ctor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only met <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	616	713	
==>ctor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only met <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	518	611	
==>/balanced delimited/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1622	1728	
==>e methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1622	1728	
==>e methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1622	1728	
==>e methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8105	8236	
==>) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35516	35610	
==>bject as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35516	35610	
==>bject as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10645	10803	
==>r->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10645	10803	
==>r->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10645	10803	
==>r->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2660	2802	
==>bstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2660	2802	
==>bstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2660	2802	
==>bstr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17047	17164	
==>on:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20524	20641	
==>on:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20102	20219	
==>on:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5694	5811	
==>, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5694	5811	
==>, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5694	5811	
==>, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4673	4771	
==>key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data($_[0], '$<v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36916	37013	
==>ome example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=ba <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36916	37013	
==>ome example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4513	4624	
==>')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4513	4624	
==>')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4513	4624	
==>')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12883	13008	
==>_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12883	13008	
==>_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12883	13008	
==>_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2382	2472	
==>lf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2382	2472	
==>lf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2382	2472	
==>lf->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7026	7146	
==>afe   (Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pre     Str: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15594	15696	
==>lank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $Verbose;

    return($leader, $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	371	469	
==>atch_w_EigenClasses.jpg in this 
## same directory for a visual explaination of this. 
## --------- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14657	14752	
==>anned for this module.

- better error handling for cmp_ok

The error handling capabilities need <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14715	14810	
==>anned for this module.

- better error handling for cmp_ok

The error handling capabilities need <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10987	11158	
==>t;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8055	8220	
==>t;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8055	8220	
==>t;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7318	7528	
==>le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7318	7528	
==>le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7318	7528	
==>le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3889	3999	
==>rl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3889	3999	
==>rl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3889	3999	
==>rl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	855	982	
==>$o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	855	982	
==>$o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	855	982	
==>$o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3458	3578	
==>od' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5508	5628	
==>od' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4464	4584	
==>od' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3869	3984	
==>ame;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3869	3984	
==>ame;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3869	3984	
==>ame;

    return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1330	1425	
==>> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1330	1425	
==>> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1330	1425	
==>> \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16757	16897	
==>bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16757	16897	
==>bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16757	16897	
==>bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11003	11097	
==>i-valued field will be returned as separate values in list
context and will be concatenated wit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11003	11097	
==>i-valued field will be returned as separate values in list
context and will be concatenated wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	489	600	
==>ive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	489	600	
==>ive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	489	600	
==>ive()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	455	561	
==>g) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	455	561	
==>g) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	455	561	
==>g) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	113	211	
==>Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitt <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1288	1385	
==>}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1288	1385	
==>}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3814	3935	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4007	4128	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1561	1666	
==>lass_node($class);
        $output .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9667	9806	
==>y( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9667	9806	
==>y( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9667	9806	
==>y( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6156	6308	
==>$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6156	6308	
==>$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe the <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8002	8104	
==>$key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's internals can cache the h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37970	38088	
==>r = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37970	38088	
==>r = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37970	38088	
==>r = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to sca <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7187	7301	
==>/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design document <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	664	776	
==>h = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8692	8803	
==>) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oct $1), "\\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12331	12452	
==>$class.CREATE(repr => $canidate, %params);
    $self.BUILDALL($params);
    return $self;
}

(method bless ((opaque $class <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	18	115	
==>Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a stra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	18	115	
==>Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a stra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11718	11858	
==>spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11718	11858	
==>spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11718	11858	
==>spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$ <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	325	443	
==>p(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5580	5679	
==>lement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.l <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5580	5679	
==>lement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.l <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1538	1638	
==>:$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1596	1696	
==>:$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11353	11453	
==>, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14830	14930	
==>, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14138	14238	
==>, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (R <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3610	3733	
==>installed uses them
            my @alts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $_ ) } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6266	6372	
==>all get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6266	6372	
==>all get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6910	7017	
==>$_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6910	7017	
==>$_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14994	15091	
==>n (Relation::Example $other!) returns Relation::Example {

    # First look for trivial cases that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1200	1317	
==>($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1200	1317	
==>($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1200	1317	
==>($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2668	2814	
==>all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2668	2814	
==>all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2668	2814	
==>all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 ) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	118	233	
==>t";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusammen: (änlich wie any)
$s ~~ (123, funktion, /regex/)
($a, $b, $c) <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13064	13160	
==>rn a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHME <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13064	13160	
==>rn a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHME <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1937	2038	
==>ement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    preced <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1937	2038	
==>ement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    preced <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14453	14547	
==>e_BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_BADPOS (-24)

POSIX class [: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1743	1850	
==>'new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1743	1850	
==>'new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1743	1850	
==>'new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3451	3565	
==>method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3451	3565	
==>method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3451	3565	
==>method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5181	5343	
==>eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5181	5343	
==>eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5181	5343	
==>eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flag <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	901	998	
==>r encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	901	998	
==>r encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functio <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17438	17522	
==>.

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0,B0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1168	1280	
==>sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1168	1280	
==>sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1168	1280	
==>sub as_string {
    my ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1951	2124	
==>t_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1951	2124	
==>t_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
3	/Users/nnunley/pugs/util/package-osx.pl	6573	6670	
==>l6::Overview::Smartmatch.3
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /us <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2480	2583	
==>($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2538	2641	
==>($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $de <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2023	2124	
==>ke Numerical Recipies.)  In particular, it suffers from
convergence problems for some functions, which <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1088	1182	
==>roclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1146	1240	
==>roclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7666	7803	
==>match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7666	7803	
==>match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7666	7803	
==>match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	607	730	
==>n of the match (also holds the
                  string that is being matched against).
    $.match     - State that is scop <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	607	730	
==>n of the match (also holds the
                  string that is being matched against).
    $.match     - State that is scop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10164	10275	
==>e {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub{ $name(\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1892	1994	
==>sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1892	1994	
==>sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1892	1994	
==>sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VB <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	764	861	
==>ss!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	764	861	
==>ss!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3802	3960	
==>./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3802	3960	
==>./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1390	1512	
==>.members;

            # FIXME this is bullshit - i ought to read the details
            #for $class ($self.meta.superclas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	190	298	
==>terface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	396	504	
==>terface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18199	18295	
==>rds for the user, such as
'error opening file', programs would have a harder time figuring out th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18199	18295	
==>rds for the user, such as
'error opening file', programs would have a harder time figuring out th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1060	1160	
==>zy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1060	1160	
==>zy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1060	1160	
==>zy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11742	11895	
==>|| @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enteri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11742	11895	
==>|| @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enteri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11742	11895	
==>|| @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "enteri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	107	216	
==>package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	107	216	
==>package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	107	216	
==>package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7566	7691	
==>$elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7566	7691	
==>$elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7566	7691	
==>$elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1201	1306	
==>not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1201	1306	
==>not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1201	1306	
==>not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4059	4164	
==>= [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4059	4164	
==>= [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4059	4164	
==>= [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4420	4570	
==>if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4420	4570	
==>if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4420	4570	
==>if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curly_count <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7131	7257	
==>will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7131	7257	
==>will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7131	7257	
==>will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	636	765	
==>urrent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	636	765	
==>urrent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	636	765	
==>urrent($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6956	7069	
==>')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6956	7069	
==>')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6956	7069	
==>')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	317	425	
==>ons will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	317	425	
==>ons will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	317	425	
==>ons will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5116	5233	
==>undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5116	5233	
==>undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5116	5233	
==>undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2980	3082	
==>ose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2980	3082	
==>ose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2980	3082	
==>ose \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16296	16417	
==>orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.sh <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16296	16417	
==>orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39534	39628	
==>e first pass.  To accomplish this, use force_object(), which creates
an object regardless of wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29883	29984	
==>esis '('; if there is an extra ')'
a fatal error is thrown.  However, the nature of 'atom' is to match <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6978	7074	
==>nce the '=head(n)' directive is reached. This does not include 
the text of the header, that will <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6978	7074	
==>nce the '=head(n)' directive is reached. This does not include 
the text of the header, that will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5388	5501	
==>t());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5388	5501	
==>t());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5388	5501	
==>t());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4982	5097	
==>e = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4982	5097	
==>e = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4982	5097	
==>e = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1229	1334	
==>sive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1196	1301	
==>sive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2675	2795	
==>= main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2675	2795	
==>= main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2675	2795	
==>= main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	16	107	
==>ee::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
ha <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	16	107	
==>ee::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
ha <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10141	10250	
==>$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	105	211	
==>Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	105	211	
==>Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6060	6196	
==>r_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6060	6196	
==>r_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6060	6196	
==>r_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9290	9436	
==>$item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9290	9436	
==>$item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9290	9436	
==>$item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4704	4879	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4704	4879	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4704	4879	
==>ey = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1952	2089	
==>ul match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		print "not ok \# Match failed.\n";
	    } else {
		print ST <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1860	1953	
==>y $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1860	1953	
==>y $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7708	7817	
==>ush @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7708	7817	
==>ush @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7708	7817	
==>ush @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	609	716	
==>ie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	609	716	
==>ie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	609	716	
==>ie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2031	2283	
==>.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2031	2283	
==>.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2031	2283	
==>.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2446	2588	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2446	2588	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2446	2588	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17872	18008	
==>__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20752	20888	
==>__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24540	24676	
==>__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1894	1995	
==>ly ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1894	1995	
==>ly ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1894	1995	
==>ly ignore the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12620	12714	
==>module deals with encoding and decoding of strings with HTML
character entities.  The module pr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12620	12714	
==>module deals with encoding and decoding of strings with HTML
character entities.  The module pr <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	740	862	
==>Array @x?) returns Hash is
export{
    my %terms;
    for 1 .. $sizeof_crowd {
        my $phrase = finger @x;
       %term <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5177	5280	
==>e make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5177	5280	
==>e make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5087	5208	
==>..};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5087	5208	
==>..};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5087	5208	
==>..};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ( <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2056	2151	
==>(For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
w <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2056	2151	
==>(For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11563	11683	
==>@sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15040	15160	
==>@sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14375	14495	
==>@sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4105	4214	
==>$makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $self->is_extensi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20908	21002	
==>ll, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20908	21002	
==>ll, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30911	31048	
==>er = 0;
    return sub {
        return @values[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # method label
        s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1604	1709	
==>cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1604	1709	
==>cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1604	1709	
==>cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} el <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1354	1511	
==>me eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1354	1511	
==>me eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35659	35756	
==>array reference of any number of objects

Ender: I<close>

=head2 close

Family: close

Types: clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1244	1433	
==>Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1244	1433	
==>Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1244	1433	
==>Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17604	17725	
==>)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1978	2078	
==>= $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1978	2078	
==>= $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query str <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11675	11795	
==>die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11675	11795	
==>die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10342	10447	
==>ie "bug $name" if !$info;
    my $chk = join(", ",map {"\$$_"} @{$info->{'fields'}});
    $vars eq $chk || <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2054	2163	
==>T_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2054	2163	
==>T_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6097	6237	
==>ame_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6097	6237	
==>ame_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        e <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12831	12927	
==>s is specced, but when I migrated &prefix:<=> from
# meaning the same as &readline to $obj.shift( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4630	4748	
==>get, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14072	14168	
==>step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10207	10355	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10207	10355	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10207	10355	
==>tion => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14882	15004	
==>_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18359	18481	
==>_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17775	17897	
==>_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4618	4725	
==>value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4618	4725	
==>value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0], <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	196	297	
==>SA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8699	8794	
==>bjects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8699	8794	
==>bjects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	967	1075	
==>tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	967	1075	
==>tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	967	1075	
==>tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4750	4937	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4750	4937	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4750	4937	
==>= Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15938	16042	
==>$self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10794	10898	
==>$self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	673	768	
==>hanging from an experimental "let's see if something
like this can work" to "ok, this looks doab <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	482	622	
==>output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	482	622	
==>output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	63	182	
==>(or
# should head) up every core test program to prepare it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24799	24920	
==>15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2841	2961	
==>2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2841	2961	
==>2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Ci <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11226	11326	
==>}
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1690	1782	
==>}
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1690	1782	
==>}
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9370	9505	
==>." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9358	9493	
==>." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	506	607	
==>aults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	419	519	
==>ve split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split(" <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	419	519	
==>ve split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split(" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3229	3351	
==>!defined $expected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expected;
    }
    el <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10334	10427	
==>verse )`

Creates a recurrence set.

The complementary functions are emulated using iterations <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10334	10427	
==>verse )`

Creates a recurrence set.

The complementary functions are emulated using iterations <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	807	897	
==>multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	807	897	
==>multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	807	897	
==>multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12878	13001	
==>s {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	193	291	
==>ssert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	193	291	
==>ssert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17459	17553	
==>le::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17459	17553	
==>le::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	54	144	
==>:MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Ou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8384	8541	
==>match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4744	4901	
==>match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5593	5750	
==>match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1972	2134	
==>de?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1972	2134	
==>de?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5859	5977	
==>elcomed },
  using  => sub { $welcomed++ },
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3849	3956	
==>title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3849	3956	
==>title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3849	3956	
==>title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5142	5251	
==>currence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5142	5251	
==>currence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4563	4655	
==>::TestBuilder->FETCH('::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5200	5378	
==>ray: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                ce <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5200	5378	
==>ray: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                ce <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	745	877	
==>d';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=head1 AUTHOR

Michael G <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10194	10292	
==>so fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10194	10292	
==>so fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	748	875	
==>rized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Al <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	748	875	
==>rized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Al <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp2.pl	11	134	
==>- Anwendung von temp
sub beispiel {
	my $i = 1;
	
	say "a: i=$i\n";
	while $i < 100 {
		temp $i;
		
		$i = 1000;
		say "b: i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7650	7745	
==>ad_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7650	7745	
==>ad_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7650	7745	
==>ad_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1940	2046	
==>-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1940	2046	
==>-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1940	2046	
==>-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6330	6466	
==>$name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6318	6454	
==>$name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1511	1638	
==>if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not clean out '$bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11735	11853	
==>0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11735	11853	
==>0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11735	11853	
==>0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n" <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1576	1681	
==>exp) = @_;
   BuildFile($intmp, $data);
   my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cmd' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23712	23807	
==>r, this module won't simply
send all commands immediately to the server, but creates a queue, wh <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23712	23807	
==>r, this module won't simply
send all commands immediately to the server, but creates a queue, wh <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1420	1528	
==>MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2874	2982	
==>MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1420	1528	
==>MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	21	119	
==>strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	21	119	
==>strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	21	119	
==>strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, :: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4149	4247	
==>unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4149	4247	
==>unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4642	4787	
==>method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singlet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4642	4787	
==>method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singlet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4642	4787	
==>method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singlet <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1677	1766	
==>dToken("term:<[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:<-[", " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19353	19457	
==>here each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23905	24009	
==>here each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22421	22525	
==>here each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4629	4746	
==>tent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4629	4746	
==>tent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6024	6120	
==>able::instantiated;
use base qw/type::variable/;

sub is_arrow {
	my $self = shift;
	$self->{inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3933	4039	
==>:Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3933	4039	
==>:Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3933	4039	
==>:Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4318	4439	
==>{
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7795	7916	
==>{
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6779	6900	
==>{
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1257	1386	
==>ndef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1257	1386	
==>ndef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1257	1386	
==>ndef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	515	630	
==>" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	515	630	
==>" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	515	630	
==>" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8436	8553	
==>igit>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1407	1508	
==>g(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1407	1508	
==>g(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6684	6906	
==>$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6684	6906	
==>$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6684	6906	
==>$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11715	11884	
==>a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11715	11884	
==>a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11715	11884	
==>a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25270	25362	
==>argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29822	29914	
==>argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28752	28844	
==>argument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15790	15892	
==>end the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15848	15950	
==>end the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26074	26172	
==>ine ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_NOSC <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4528	4650	
==>$V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3517	3615	
==>utes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3517	3615	
==>utes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Roset <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	940	1040	
==>he whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	903	999	
==>he whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22596	22734	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22875	23013	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_stat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8003	8111	
==>7.8.3
      <DecimalLiteral>
    | <HexIntegerLiteral>
}
rule DecimalLiteral {  # see 7.8.3
      <DecimalInt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	453	555	
==>dule, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	453	555	
==>dule, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )-> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21007	21107	
==>pression> <')'> <Statement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Statement> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2447	2557	
==>ch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2447	2557	
==>ch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2447	2557	
==>ch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5883	6009	
==>ssage::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5883	6009	
==>ssage::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2044	2147	
==>ile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2044	2147	
==>ile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2044	2147	
==>ile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2644	2781	
==>e= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2644	2781	
==>e= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34054	34150	
==>>.  This method will fail if C<$other> does not have
an identical header to the invocant relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38604	38700	
==>>.  This method will fail if C<$other> does not have
an identical header to the invocant relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38065	38161	
==>>.  This method will fail if C<$other> does not have
an identical header to the invocant relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	674	790	
==>"1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	674	790	
==>"1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	674	790	
==>"1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	404	499	
==>args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	404	499	
==>args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	404	499	
==>args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1559	1688	
==>recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is alwa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1354	1481	
==>recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is alwa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1946	2046	
==>.

The F<prove> utility is a thin wrapper around Test::Harness.

=head2 Taint mode

Test::Harness wil <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2812	2930	
==>'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2812	2930	
==>'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14448	14589	
==>lastpos = length target
    inc pos
    $S0 = substr target, pos, 1
    if $S0 == '<' goto name
    $I0 = find_not_cclass .CCLASS_NUMERIC, tar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21882	21974	
==>a::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21882	21974	
==>a::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	395	494	
==>fe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	395	494	
==>fe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	395	494	
==>fe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	403	522	
==>Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	403	522	
==>Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	770	879	
==>} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postcircumfix:<" . $opt{name} . " " . $opt{name2} . ">", <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18159	18270	
==>::Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14704	14800	
==>he optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14704	14800	
==>he optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10905	11024	
==>}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8746	8846	
==>riately.
# This method is called automatically when 
# a subtree is added to a child array
method fix <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8746	8846	
==>riately.
# This method is called automatically when 
# a subtree is added to a child array
method fix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2135	2239	
==>f (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2135	2239	
==>f (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2135	2239	
==>f (the list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays shoul <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9847	9977	
==>xit wait)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus}) {
                my @m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4705	4825	
==>shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4558	4675	
==>shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6166	6304	
==>l $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5674	5812	
==>l $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	544	706	
==>undef;
    } else {
        my $removed = substr $str, -1, 1;
        $str = substr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19360	19459	
==>, so that if you wanted to upgrade or localize what text the user
sees, you only have to update said <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19360	19459	
==>, so that if you wanted to upgrade or localize what text the user
sees, you only have to update said <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1360	1461	
==>ss($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1360	1461	
==>ss($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1360	1461	
==>ss($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1376	1476	
==>qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1376	1476	
==>qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1376	1476	
==>qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35019	35121	
==>od
degenerates into an C<intersection> if the two source headings are
identical.  This method has an al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39569	39671	
==>od
degenerates into an C<intersection> if the two source headings are
identical.  This method has an al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39111	39213	
==>od
degenerates into an C<intersection> if the two source headings are
identical.  This method has an al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9186	9281	
==>f = shift;
    # ...
}));

=pod

--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9186	9281	
==>f = shift;
    # ...
}));

=pod

--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9186	9281	
==>f = shift;
    # ...
}));

=pod

--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1664	1776	
==>e;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1664	1776	
==>e;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1664	1776	
==>e;       
    my $new_class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34444	34556	
==>ice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34444	34556	
==>ice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34444	34556	
==>ice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2489	2621	
==>ubstr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2489	2621	
==>ubstr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2489	2621	
==>ubstr, +$pos);
}
method rindex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3495	3595	
==>r p2');

$p->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the righ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4495	4574	
==>][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4495	4574	
==>][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6696	6844	
==>fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer :: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6696	6844	
==>fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer :: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13713	13831	
==>'))));
                $e->get('$self')->send('BUILDALL' => ($e->get('%params')));
                return $e->get('$sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2401	2511	
==>0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ changings its name.



of cour <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2311	2416	
==>0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ changings its name.

of cour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4143	4248	
==>return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4143	4248	
==>return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4143	4248	
==>return continuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2027	2155	
==>def;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2027	2155	
==>def;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2027	2155	
==>def;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1647	1760	
==>ar proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1647	1760	
==>ar proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1647	1760	
==>ar proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3743	3866	
==>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3743	3866	
==>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3743	3866	
==>slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   stat <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	402	556	
==>onfig;
    return unless (
        $Config::Config{make}                   and
        $Config::Config{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6730	6827	
==>$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n";

__END__
my $m = match($Perl_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1423	1527	
==>referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1423	1527	
==>referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1423	1527	
==>referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1392	1522	
==>d { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1392	1522	
==>d { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1392	1522	
==>d { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1844	1950	
==>arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1844	1950	
==>arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1844	1950	
==>arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1995	2096	
==>Level = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1995	2096	
==>Level = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named = <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6417	6516	
==>} }) ] ); 
    $template->param("apo", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12710	12826	
==>e iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12710	12826	
==>e iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12710	12826	
==>e iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21336	21442	
==>o tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21336	21442	
==>o tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21336	21442	
==>o tell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defi <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2593	2697	
==>PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () retur <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2593	2697	
==>PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2700	2804	
==>x.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2700	2804	
==>x.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2700	2804	
==>x.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1822	1982	
==>_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1822	1982	
==>_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1822	1982	
==>_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.ad <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	705	825	
==>= splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\: <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	705	825	
==>= splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\: <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2541	2639	
==>kage {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11943	12057	
==>d",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      utime undef, unde <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	969	1075	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Sh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	969	1075	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Sh <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1174	1282	
==>t

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1174	1282	
==>t

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $st <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1099	1264	
==>!!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15202	15297	
==>he encoded or
decoded string is returned (without changing the input string).

If you prefer not <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15202	15297	
==>he encoded or
decoded string is returned (without changing the input string).

If you prefer not <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5534	5667	
==>et_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5358	5486	
==>et_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3520	3634	
==>_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1001	1109	
==>robably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1001	1109	
==>robably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1001	1109	
==>robably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4481	4589	
==>e "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4481	4589	
==>e "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4481	4589	
==>e "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $ <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	38	141	
==>etopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4290	4414	
==>ie if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4290	4414	
==>ie if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4290	4414	
==>ie if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4675	4784	
==>bing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4675	4784	
==>bing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6872	6981	
==>bing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contains the test d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15238	15342	
==>6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15238	15342	
==>6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15238	15342	
==>6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1394	1529	
==>_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1394	1529	
==>_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23512	23629	
==>= "PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1527	1647	
==>lti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1527	1647	
==>lti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1527	1647	
==>lti sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31097	31272	
==>p[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31097	31272	
==>p[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31097	31272	
==>p[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7687	7811	
==>"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7687	7811	
==>"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14749	14837	
==>B Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14749	14837	
==>B Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14749	14837	
==>B Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_fo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1823	1945	
==>imit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1823	1945	
==>imit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1491	1618	
==>end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1491	1618	
==>end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	337	434	
==>LL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use H <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8362	8469	
==>since each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8362	8469	
==>since each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a h <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3316	3429	
==>',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3316	3429	
==>',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33312	33410	
==>depth in the walking stack.  Elements are taken from the I<front> of the
walking stack, so we add t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9709	9827	
==> 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with array <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9709	9827	
==> 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with array <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1330	1437	
==>head1 SYNOPSIS

  class MySession is POE::Session {
    method dispatch (Str $event, *@args) {
        given <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19547	19780	
==>lse {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19547	19780	
==>lse {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19547	19780	
==>lse {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->ite <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4088	4213	
==>ture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4281	4406	
==>ture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10000	10120	
==>$args);
    }
    my $code_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36452	36558	
==>@tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36452	36558	
==>@tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36452	36558	
==>@tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	17	117	
==>un::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	17	117	
==>un::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	17	117	
==>un::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	696	786	
==>, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	696	786	
==>, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	696	786	
==>, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8729	8842	
==>xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8729	8842	
==>xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8729	8842	
==>xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	786	881	
==>> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	786	881	
==>> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33959	34070	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33959	34070	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33959	34070	
==>f UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1138	1241	
==>0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1138	1241	
==>0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1138	1241	
==>0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	635	742	
==>ubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	635	742	
==>ubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	635	742	
==>ubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2830	2949	
==>ing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2830	2949	
==>ing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2830	2949	
==>ing,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6208	6391	
==>erl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6208	6391	
==>erl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3052	3221	
==>_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation::Set') };

### pack <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1786	1894	
==>ass;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the internal state <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17079	17186	
==>n't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] spec <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22179	22286	
==>n't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12390	12514	
==>=> _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12390	12514	
==>=> _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12390	12514	
==>=> _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29948	30045	
==>ver, the nature of 'atom' is to match a
character, see if there's a handler installed, and call it <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10995	11086	
==>em B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10995	11086	
==>em B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	394	504	
==>ngth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	394	504	
==>ngth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	394	504	
==>ngth;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	230	335	
==>xport { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $direc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	230	335	
==>xport { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $direc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13590	13692	
==>ure the compiler might allow adding globals
    # right now this is a non issue since even higher order <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2444	2541	
==>d);
    }
    $self;
}

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2444	2541	
==>d);
    }
    $self;
}

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16493	16592	
==>LTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16493	16592	
==>LTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16493	16592	
==>LTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	845	992	
==>g'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	845	992	
==>g'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	845	992	
==>g'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SA <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6493	6599	
==>ou get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6493	6599	
==>ou get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2257	2511	
==>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             & <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2257	2511	
==>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21315	21401	
==>xp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Parser::unlessm::ISA, __PACKAGE_ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2561	2657	
==>hts Reserved.

This program is Free Software, and may be used, distributed and modified under 
th <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2561	2657	
==>hts Reserved.

This program is Free Software, and may be used, distributed and modified under 
th <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20161	20251	
==>tion>
    | <VariableDeclarationList> <','> <VariableDeclaration>
}
rule VariableDeclaratio <==
3	/Users/nnunley/pugs/util/func_refact.pl	2618	2722	
==>all $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cand <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14929	15024	
==>ocument that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14929	15024	
==>ocument that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13392	13486	
==>HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not found <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13392	13486	
==>HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not found <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28133	28227	
==><heading () returns Set of Str>

This method returns this Relation::Example's heading.

=item C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41075	41168	
==>ggested a feature, and provided sample usage and patch
code, that supports embedding of Templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41075	41168	
==>ggested a feature, and provided sample usage and patch
code, that supports embedding of Templa <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5227	5347	
==>@hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5227	5347	
==>@hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6682	6807	
==>'$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6682	6807	
==>'$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6682	6807	
==>'$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2015	2120	
==>le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2015	2120	
==>le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2015	2120	
==>le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2657	2776	
==>'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2657	2776	
==>'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2657	2776	
==>'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3216	3320	
==>mply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3216	3320	
==>mply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3216	3320	
==>mply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Per <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17203	17313	
==>ther, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20680	20790	
==>ther, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20258	20368	
==>ther, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!headi <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1263	1454	
==>%events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('h <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1263	1454	
==>%events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('h <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19591	19698	
==>o_str = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8799	8990	
==>dicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation::Example $oth <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4795	4912	
==>export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4795	4912	
==>export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14773	14871	
==>ronment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14773	14871	
==>ronment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Ro <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1220	1315	
==>= join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPe <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	636	739	
==>= $2;
		if ($sub =~ /$regex/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5599	5702	
==>s/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" fro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5406	5505	
==>s/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2906	3005	
==>ning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2906	3005	
==>ning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2906	3005	
==>ning (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts- <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1728	1869	
==>regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1728	1869	
==>regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4874	5012	
==>}
    else {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = < <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6460	6552	
==>ethod fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11518	11610	
==>ethod fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12692	12858	
==>.
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"exp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8966	9132	
==>.
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"exp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9801	9967	
==>.
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"exp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2777	2893	
==>V{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect t <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2777	2893	
==>V{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11297	11413	
==>(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$linkfile'>$whole</a>";
        $lin <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1392	1491	
==>h }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1392	1491	
==>h }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	450	588	
==>d be a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	881	995	
==>ty subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@ <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	881	995	
==>ty subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	859	974	
==>refix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	859	974	
==>refix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	859	974	
==>refix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1771	1988	
==>ment>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpola <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1771	1988	
==>ment>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpola <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	158	279	
==>le];


@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### copy all the relevant files to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3449	3616	
==>n 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3449	3616	
==>n 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3449	3616	
==>n 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[1]) ? 
                    ! $_[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6261	6359	
==>ess
with members belonging to 3rd party classes that your object might be
holding. Using the noio e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6261	6359	
==>ess
with members belonging to 3rd party classes that your object might be
holding. Using the noio e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6261	6359	
==>ess
with members belonging to 3rd party classes that your object might be
holding. Using the noio e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10711	10839	
==>ethod( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10711	10839	
==>ethod( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10711	10839	
==>ethod( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Hash::Object;

sub stor <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	213	322	
==>an approach to compilation.

=head1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::No <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27218	27322	
==>d(pair(id(10))(id('foo')))");
is(t($app_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6675	6772	
==>variable or by making a 
copy internally, and should return the copy once it has been encrypted or <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6675	6772	
==>variable or by making a 
copy internally, and should return the copy once it has been encrypted or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	345	460	
==>enizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	345	460	
==>enizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	345	460	
==>enizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1383	1507	
==>b {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1959	2083	
==>b {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @name <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1994	2091	
==>arams;
    ($args->length()->less_than_or_equal_to($params->length) == $bit::TRUE)
        || conf <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8646	8765	
==>eperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8646	8765	
==>eperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9746	9856	
==>ound, 
# XXX - weaken self-referential things

=pod

A "rule" function gets as argument a list:

0 - a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4684	4842	
==>ft_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4684	4842	
==>ft_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4684	4842	
==>ft_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( @_ ) }

sub flatten       { 
    my $ret = s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10312	10444	
==>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you c <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10312	10444	
==>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2908	3012	
==>e if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2908	3012	
==>e if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2908	3012	
==>e if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6293	6391	
==>and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6293	6391	
==>and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45057	45149	
==>-----------------------------------------
## now build Package & Module, so we can create som <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5964	6064	
==>ing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5964	6064	
==>ing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5964	6064	
==>ing_editor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13247	13382	
==>ub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13247	13382	
==>ub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13247	13382	
==>ub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6013	6108	
==>om reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6013	6108	
==>om reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6013	6108	
==>om reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it nee <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1106	1204	
==>s;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1106	1204	
==>s;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1106	1204	
==>s;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::unde <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2781	2894	
==>y $Result1 = $O.<[[Get]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9924	10021	
==>il;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9924	10021	
==>il;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18033	18208	
==>od
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18033	18208	
==>od
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18033	18208	
==>od
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16036	16174	
==>lass = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16036	16174	
==>lass = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16036	16174	
==>lass = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leavi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2742	2851	
==>[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2742	2851	
==>[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2742	2851	
==>[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs") <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	284	388	
==>!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
main( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16191	16289	
==>`union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16191	16289	
==>`union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
sp <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11881	11980	
==>r decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11881	11980	
==>r decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2863	2975	
==>Array::pop (  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
multi Array::push (@array is rw ; *@va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15565	15683	
==>e "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15565	15683	
==>e "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	131	236	
==>events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2272	2395	
==>_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2272	2395	
==>_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2272	2395	
==>_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17511	17604	
==>lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17511	17604	
==>lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HT <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6809	6936	
==>new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6809	6936	
==>new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4581	4681	
==>CH('::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29928	30047	
==>items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29928	30047	
==>items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29928	30047	
==>items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4445	4555	
==>elete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4445	4555	
==>elete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2373	2493	
==>y $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2373	2493	
==>y $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2373	2493	
==>y $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will repo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12831	12930	
==>if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12831	12930	
==>if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7288	7428	
==>>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7288	7428	
==>>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1387	1466	
==><array_alias>|<hash_alias>|<external_scalar_alias>|<external_array_alias>|<exter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9553	9682	
==>e = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9553	9682	
==>e = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9553	9682	
==>e = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33730	33875	
==>ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33730	33875	
==>ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33730	33875	
==>ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2367	2469	
==>b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2367	2469	
==>b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2367	2469	
==>b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3831	3955	
==>rgument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	641	739	
==>ss $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	847	945	
==>ss $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1811	1930	
==>= @_;
    _ok($pass, _where(), $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21932	22022	
==>gs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21932	22022	
==>gs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21932	22022	
==>gs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	876	992	
==>sub concat {
    my ($left, $right) = @_;
    (blessed($right))
        || confess "The right hand side must be a cor <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	104	202	
==>or - all it's doing is making the
# "source" property of the object fallback to "content"
method so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	104	202	
==>or - all it's doing is making the
# "source" property of the object fallback to "content"
method so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13881	13979	
==>-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13881	13979	
==>-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13881	13979	
==>-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2645	2778	
==>loor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( Num $x ) {
    my $x_roun <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3473	3567	
==>figuration files
with as little code as possible, reducing load time and memory overhead.

Writ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3473	3567	
==>figuration files
with as little code as possible, reducing load time and memory overhead.

Writ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7171	7313	
==>abel}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7171	7313	
==>abel}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6077	6234	
==>@b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6077	6234	
==>@b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6077	6234	
==>@b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10567	10722	
==>o have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10567	10722	
==>o have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servernam <==
3	/Users/nnunley/pugs/util/func_refact.pl	2745	2857	
==>t {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return list o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11266	11391	
==>ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11266	11391	
==>ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11266	11391	
==>ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        fu <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	174	275	
==>die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	174	275	
==>die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20373	20473	
==>tionNoIn>
}
rule VariableDeclaration :words {  # see 12.2
      <Identifier> <Initialiser>?
}
rule Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1867	1965	
==>(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divisio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1867	1965	
==>(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divisio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1867	1965	
==>(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Divisio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5513	5731	
==>fined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5513	5731	
==>fined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5513	5731	
==>fined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3061	3170	
==>$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16780	16875	
==>in
Rosetta D and compile that into its own executable, in practice one would
normally just write <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16780	16875	
==>in
Rosetta D and compile that into its own executable, in practice one would
normally just write <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36505	36620	
==>d, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36505	36620	
==>d, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36505	36620	
==>d, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8531	8720	
==>ram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8531	8720	
==>ram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8531	8720	
==>ram == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31704	31831	
==>ft @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31704	31831	
==>ft @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31704	31831	
==>ft @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_len <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13723	13850	
==>];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1529	1643	
==>thod, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remot <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1529	1643	
==>thod, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remot <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	985	1112	
==>londie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shift;

        my $symbol = $sym_node- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	621	736	
==>urns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	621	736	
==>urns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2881	3003	
==>{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2881	3003	
==>{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2881	3003	
==>{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7706	7932	
==>$diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7706	7932	
==>$diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7706	7932	
==>$diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40974	41068	
==>o
throw a warning that can only be figured out the second pass.

=item $parser->error(RPe_ERRMS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8368	8468	
==>= shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8368	8468	
==>= shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8368	8468	
==>= shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7970	8089	
==>"minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "inf <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7970	8089	
==>"minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "inf <==
3	/Users/nnunley/pugs/util/version_h.pl	814	924	
==>tries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-rev=.(\d+ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9034	9231	
==>2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9034	9231	
==>2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1456	1566	
==>undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1456	1566	
==>undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1456	1566	
==>undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17454	17575	
==>l::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17454	17575	
==>l::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1767	1864	
==>s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1767	1864	
==>s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1767	1864	
==>s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; prec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3762	3860	
==>" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3762	3860	
==>" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3762	3860	
==>" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	426	571	
==>f $self)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6895	6994	
==>->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6895	6994	
==>->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1708	1841	
==>ing &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1708	1841	
==>ing &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1708	1841	
==>ing &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2964	3112	
==>nstead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2964	3112	
==>nstead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6849	6996	
==>nd";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6849	6996	
==>nd";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6849	6996	
==>nd";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "spli <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5215	5394	
==>the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the to <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5215	5394	
==>the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5313	5475	
==>led package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $self->dir, $pkg->package <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	151	246	
==>wählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, %conf{'y'}, $global, 'default' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	558	652	
==>nlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descri <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	558	652	
==>nlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8006	8273	
==>tart++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8006	8273	
==>tart++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8006	8273	
==>tart++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5173	5302	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5173	5302	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5173	5302	
==>sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2773	2856	
==>.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>. <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2773	2856	
==>.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10441	10566	
==>out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unle <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2458	2571	
==>out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unle <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2458	2571	
==>out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4575	4706	
==>eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4587	4718	
==>eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-co <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	699	814	
==>.. ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3577	3678	
==>Model::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3577	3678	
==>Model::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26892	26986	
==>named accessor method can be used to see if a Relation::Example-doing object
can mutate.  Depen <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25700	25802	
==>e->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = typ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2338	2434	
==>e above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

met <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2338	2434	
==>e above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	595	702	
==>?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or dec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	595	702	
==>?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11123	11231	
==>a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for ma <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11123	11231	
==>a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11273	11408	
==>h(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11273	11408	
==>h(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11273	11408	
==>h(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11149	11325	
==>:FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11149	11325	
==>:FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11149	11325	
==>:FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       : <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16716	16835	
==>OPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16716	16835	
==>OPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	96	193	
==>package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'looks_li <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1376	1479	
==>imitive {
    lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4158	4251	
==>return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4158	4251	
==>return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2412	2532	
==>ush(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2412	2532	
==>ush(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2412	2532	
==>ush(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".k <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2165	2318	
==>$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8251	8360	
==>e

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8251	8360	
==>e

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3184	3306	
==>join('.', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15349	15457	
==>uleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15628	15736	
==>uleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2634	2754	
==>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2634	2754	
==>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2634	2754	
==>nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7592	7725	
==>: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app< <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	438	533	
==>piler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	438	533	
==>piler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementa <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2501	2702	
==>~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2501	2702	
==>~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	328	423	
==>{}) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	381	566	
==>t  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	194	317	
==>es($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	194	317	
==>es($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33115	33210	
==>Template module Set Name.  When we have to translate a
message, the corresponding Template modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33115	33210	
==>Template module Set Name.  When we have to translate a
message, the corresponding Template modul <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7827	7920	
==>:anyof_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14742	14862	
==>},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14742	14862	
==>},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14742	14862	
==>},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11629	11751	
==>ams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11629	11751	
==>ams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11629	11751	
==>ams);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3266	3373	
==>'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expres <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3266	3373	
==>'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expres <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17466	17566	
==>ords {  # see 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpress <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4691	4779	
==>::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4691	4779	
==>::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4691	4779	
==>::stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20450	20558	
==>ror(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16871	16979	
==>ror(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	214	309	
==>ple qw(:STD);

=head1 METHODS

=head2 $repo = JIB::Repository->new(...);

Required arguments:

= <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2531	2638	
==>ool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2531	2638	
==>ool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	121	227	
==>the __END__.

This is a rewrite of the matching engine, aiming to generate the same data structure as
th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17157	17251	
==>LTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17157	17251	
==>LTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17157	17251	
==>LTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8209	8295	
==>ze($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8209	8295	
==>ze($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7787	7884	
==>$span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7787	7884	
==>$span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1686	1779	
==>class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1686	1779	
==>class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1686	1779	
==>class = _build_class($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5832	5945	
==>lit(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5832	5945	
==>lit(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7955	8113	
==>:Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7955	8113	
==>:Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7955	8113	
==>:Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17314	17414	
==>ng.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20791	20891	
==>ng.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20369	20469	
==>ng.difference( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11794	11954	
==>h_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11794	11954	
==>h_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11794	11954	
==>h_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLA <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4104	4210	
==>sed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4104	4210	
==>sed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6301	6407	
==>sed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1943	2079	
==>= 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8825	8950	
==>$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8813	8938	
==>$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0] <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14364	14470	
==>n::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10780	10884	
==>enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10780	10884	
==>enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16045	16144	
==>s a kludge. But for now, as a simple script, it suffices.
# This script doesn't run as root, anyway. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	154	271	
==>alar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Container::Ar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4002	4099	
==>e Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4002	4099	
==>e Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2971	3090	
==>+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14222	14318	
==>iment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14280	14376	
==>iment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1837	1971	
==>patchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1837	1971	
==>patchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1837	1971	
==>patchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8458	8601	
==>_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8458	8601	
==>_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8458	8601	
==>_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4031	4134	
==>my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4031	4134	
==>my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4621	4724	
==>my $pos_arg = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slur <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	73	220	
==>pher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	73	220	
==>pher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	617	716	
==>the role is included in the class.

This has the effect of making C<Role> objects appear to "flatten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3610	3708	
==>b command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3610	3708	
==>b command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3610	3708	
==>b command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	297	413	
==>horitative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	297	413	
==>horitative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	721	849	
==>le::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	721	849	
==>le::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $n <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	776	904	
==>arness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't itera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7528	7630	
==>ain { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7528	7630	
==>ain { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7528	7630	
==>ain { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  packa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	373	486	
==>o warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	579	692	
==>o warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10203	10370	
==>=> undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10203	10370	
==>=> undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10203	10370	
==>=> undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5958	6085	
==>ent_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simpli <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5958	6085	
==>ent_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simpli <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3903	4018	
==>et_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_fi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3118	3219	
==>ins the directories the resulting relative path
    # must ascend out of before it can descend to $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3118	3219	
==>ins the directories the resulting relative path
    # must ascend out of before it can descend to $pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4809	4935	
==>pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4797	4923	
==>pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18818	18915	
==>pl";}
my $eval_log_file;
sub eval_p5_log_code {
    my($code)=@_;
    if($Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9645	9810	
==>$str .= '(';
                $str .= join " OR ", map { _pp_depends( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2486	2600	
==>age;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($newl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2486	2600	
==>age;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($newl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8917	9062	
==>>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9110	9255	
==>>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15710	15816	
==>attrs' => hash->new());
                $e->create('&dispatcher' => $e->get('$class:')->send('dispatcher' = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3070	3195	
==>se {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl_version) = (`$ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3558	3650	
==>nt::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3558	3650	
==>nt::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	646	753	
==>s};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	646	753	
==>s};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	646	753	
==>s};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7036	7162	
==>nt );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7036	7162	
==>nt );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7036	7162	
==>nt );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14298	14429	
==>g Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11146	11252	
==>match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$_[0], '\$( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4297	4397	
==>_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub fi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4297	4397	
==>_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub fi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3865	4007	
==>evels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3865	4007	
==>evels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3486	3582	
==>2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3486	3582	
==>2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3486	3582	
==>2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	340	462	
==>t;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	340	462	
==>t;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5183	5291	
==>vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5183	5291	
==>vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5183	5291	
==>vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa(" <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	845	972	
==>A-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	845	972	
==>A-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7752	7850	
==>l = $repo->add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=cut

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8789	8893	
==>arams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8789	8893	
==>arams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8789	8893	
==>arams}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1134	1248	
==>lassdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1134	1248	
==>lassdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1134	1248	
==>lassdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw e <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4339	4498	
==>rol_structure:<if>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3679	3781	
==>output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_ou <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3679	3781	
==>output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_ou <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	931	1062	
==>15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	808	915	
==>15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	448	559	
==>_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	448	559	
==>_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1763	1876	
==>n implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1763	1876	
==>n implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1763	1876	
==>n implementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14198	14308	
==>el};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14198	14308	
==>el};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14198	14308	
==>el};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17612	17712	
==>_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17612	17712	
==>_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17612	17712	
==>_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36857	36968	
==>es, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41406	41517	
==>es, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41029	41140	
==>es, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of source relations h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14553	14645	
==>ke_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14553	14645	
==>ke_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14553	14645	
==>ke_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1262	1368	
==>-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1262	1368	
==>-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1262	1368	
==>-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12695	12819	
==>nt = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12695	12819	
==>nt = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$p <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12297	12406	
==>$self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

package Run <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	676	788	
==>(test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	676	788	
==>(test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1232	1344	
==>(test results and
descriptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	865	1055	
==>de );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { sa <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	865	1055	
==>de );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { sa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7728	7900	
==>arn "method: ", Dumper( $n );
            return " " . _emit( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( $_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	154	267	
==>slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	154	267	
==>slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	154	267	
==>slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	78	171	
==>nction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	78	171	
==>nction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	78	171	
==>nction (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2596	2741	
==>tr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2596	2741	
==>tr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2596	2741	
==>tr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21643	21741	
==>to the context in which they are using your package.  One
can override simply by using the same key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21643	21741	
==>to the context in which they are using your package.  One
can override simply by using the same key <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8801	8897	
==>uint < $A.property_value{'length'};
    $A.property_value{'length'} = $uint + 1; #XXX dont forget <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3375	3530	
==>a plan' if defined _('$.testplan');
            _('$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6507	6602	
==>y' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6507	6602	
==>y' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2483	2663	
==>l',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2494	2674	
==>l',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4896	4995	
==>mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defined_nodes}->insert($node);
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6251	6360	
==>hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6251	6360	
==>hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6251	6360	
==>hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:su <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2024	2166	
==>ys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                f <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2024	2166	
==>ys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                f <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4221	4328	
==>> \}\> }
rule code_assertion         { \<(!?)\( <code> \)\> }
rule code { [ <-[\{\}]> | \{ <code> <'}'> ]* } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1627	1729	
==>rName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1627	1729	
==>rName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1627	1729	
==>rName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self->{CC};
    return $self->{pVarName} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1028	1140	
==>s = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1028	1140	
==>s = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1028	1140	
==>s = sort { Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3866	3975	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3866	3975	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3866	3975	
==>_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = ::opaque_instance_class <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6234	6341	
==>elf.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( I <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6234	6341	
==>elf.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13923	14039	
==>unperl; # Nice alias.

sub DIE {
    print STDERR "# @_\n";
    exit 1;
}

# A somewhat safer version of the sometime <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13526	13620	
==>lone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unter <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13526	13620	
==>lone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unter <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2180	2277	
==>self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2180	2277	
==>self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4293	4394	
==>all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4293	4394	
==>all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[ <==
3	/Users/nnunley/pugs/util/testgraph.pl	225	312	
==>ecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HTMLMatrix->css_file();
usag <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1156	1263	
==>et_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1156	1263	
==>et_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string de <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4652	4740	
==>igits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", dig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19848	20005	
==>rl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19848	20005	
==>rl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19848	20005	
==>rl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12089	12190	
==>MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12089	12190	
==>MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12089	12190	
==>MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2897	3077	
==>[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2897	3077	
==>[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2897	3077	
==>[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3860	3964	
==>("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3860	3964	
==>("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3860	3964	
==>("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	104	216	
==>06;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	104	216	
==>06;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Run <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	72	183	
==>06;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Run <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15853	15954	
==>rn $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$reason);

C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	927	1024	
==>dd the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	927	1024	
==>dd the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7170	7281	
==>VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7170	7281	
==>VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7170	7281	
==>VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	172	313	
==>ttrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	172	313	
==>ttrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	172	313	
==>ttrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_arra <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4655	4774	
==>ode unless $i++; # skip the thunk

			my $expected = shift @context;

			#warn "## unifying " . $self->display_type($exp <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6595	6695	
==>R, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6595	6695	
==>R, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3142	3237	
==>sc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3200	3295	
==>sc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1810	1916	
==>(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1810	1916	
==>(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1810	1916	
==>(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4598	4727	
==>+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4598	4727	
==>+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38268	38364	
==>!) returns Relation::Example>

This method is a generic relational operator that returns the comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1490	1585	
==>code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1490	1585	
==>code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
us <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5619	5732	
==>= ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17716	17935	
==>$t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21193	21412	
==>$t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20780	20999	
==>$t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6801	6912	
==>rrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6801	6912	
==>rrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6801	6912	
==>rrect format '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1978	2078	
==>"our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1978	2078	
==>"our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1978	2078	
==>"our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3652	3770	
==>renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7129	7247	
==>renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6086	6204	
==>renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    m <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7278	7665	
==>ib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postf <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	863	952	
==>ne::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	863	952	
==>ne::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	742	990	
==>e that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	742	990	
==>e that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1446	1557	
==>1;
    if ($^O =~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not supported on y <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3535	3639	
==>~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3535	3639	
==>~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3472	3636	
==>ions<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notify (String $nam <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1550	1655	
==>=~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtes <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1550	1655	
==>=~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18622	18744	
==>fthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19980	20102	
==>fthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14586	14686	
==>ss.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14586	14686	
==>ss.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14586	14686	
==>ss.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2321	2443	
==>ay.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2321	2443	
==>ay.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2321	2443	
==>ay.
  # This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hac <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3225	3345	
==>@arrays --> List) {
#  my $maxlen = max map { +$_ }, @arrays;
#  map {
#    my $i := $_;
#    map { @arrays[$_][$i] } 0.. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	601	698	
==>riable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<Cap <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	601	698	
==>riable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<Cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	253	392	
==>== 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	253	392	
==>== 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	253	392	
==>== 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return " <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3984	4107	
==>nt "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } keys %main::;
        print "\n---- Conv <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10663	10806	
==>g: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7004	7147	
==>g: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7853	7996	
==>g: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8046	8221	
==>a::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        const <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10424	10521	
==>some time after the input has been set, and could potentially
never be performed at all.  They val <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10424	10521	
==>some time after the input has been set, and could potentially
never be performed at all.  They val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17259	17351	
==>e('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17259	17351	
==>e('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17259	17351	
==>e('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:metho <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9496	9688	
==>hen "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { c <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9496	9688	
==>hen "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3485	3588	
==>anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22814	22909	
==>an all of the available details depending on the
intended viewer.

=head2 Compared to Other Solu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22814	22909	
==>an all of the available details depending on the
intended viewer.

=head2 Compared to Other Solu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11842	11978	
==>thReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2264	2386	
==>thReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2264	2386	
==>thReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status re <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6149	6274	
==>!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5657	5782	
==>!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) <==
3	/Users/nnunley/pugs/util/addauthors.pl	64	169	
==>::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5969	6069	
==>= shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5969	6069	
==>= shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5969	6069	
==>= shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5996	6089	
==>e_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5996	6089	
==>e_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2895	2988	
==>e_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2285	2380	
==>e identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2285	2380	
==>e identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x> <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	39	147	
==>C = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_p <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	39	147	
==>C = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8023	8154	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8023	8154	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8023	8154	
==>ub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2833	2963	
==>ive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2833	2963	
==>ive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2833	2963	
==>ive call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't sa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20527	20624	
==>e variety of third party Engine
modules that become available over time.  One plan which I favor i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20527	20624	
==>e variety of third party Engine
modules that become available over time.  One plan which I favor i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8521	8650	
==>my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8521	8650	
==>my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8521	8650	
==>my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	152	250	
==>it alternate regexp engines to be used without
# requiring changes to user p5 code.  It was explore <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	404	506	
==>{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLU <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2927	3024	
==>re_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2927	3024	
==>re_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11563	11668	
==>exp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  pac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1782	1882	
==>'+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1782	1882	
==>'+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2154	2295	
==>ethod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2154	2295	
==>ethod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2154	2295	
==>ethod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	369	584	
==>m_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	369	584	
==>m_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	369	584	
==>m_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39205	39324	
==>y = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39205	39324	
==>y = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39205	39324	
==>y = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4757	4868	
==>n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4757	4868	
==>n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4757	4868	
==>n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2590	2693	
==>2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2590	2693	
==>2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2590	2693	
==>2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3913	4035	
==>ion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3913	4035	
==>ion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3913	4035	
==>ion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1881	1983	
==>ash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bo <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1881	1983	
==>ash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bo <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	15	116	
==>en, Strings, Objekte, ...)
Perl 5:  my $name="Jens"; print "Mein Name ist $name.";
Perl 6:  my $name=" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14095	14196	
==>) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14095	14196	
==>) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14095	14196	
==>) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7443	7615	
==>\\&grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Du <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14562	14656	
==>s suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14562	14656	
==>s suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header <==
3	/Users/nnunley/pugs/util/testgraph.pl	194	286	
==>tOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7391	7521	
==>ass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7391	7521	
==>ass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7391	7521	
==>ass1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    in <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	754	873	
==>p -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir/$path] )          and die "$?";
        system <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2082	2177	
==>RITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2082	2177	
==>RITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems an <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35956	36057	
==>values are aligned and merged.  The heading
of the new relation is the union of the invocant and <$oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40506	40607	
==>values are aligned and merged.  The heading
of the new relation is the union of the invocant and <$oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40120	40221	
==>values are aligned and merged.  The heading
of the new relation is the union of the invocant and <$oth <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6768	6873	
==>) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6768	6873	
==>) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2699	2808	
==>>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2883	2992	
==>>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|S <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	365	471	
==>"module $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15934	16129	
==>(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15928	16123	
==>(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38673	38767	
==>rld!".  All
occurances of any given variable name will be replaced, non-recursively,
and any "< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38673	38767	
==>rld!".  All
occurances of any given variable name will be replaced, non-recursively,
and any "< <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	353	446	
==>File::Find;
    File::Find::find(sub { push @modules, $File::Find::name =~ /\.pm\z/i }, 'lib') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2803	2907	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2803	2907	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2803	2907	
==>dd_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7542	7643	
==>ethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7542	7643	
==>ethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7542	7643	
==>ethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1040	1132	
==>ne without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1040	1132	
==>ne without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1040	1132	
==>ne without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1551	1689	
==>ove regexp_engine_demo.t   or somesuch.

# Test status:
# Currently at 92% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2941	3057	
==>icer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Chan <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2941	3057	
==>icer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Chan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3584	3699	
==>=> sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_insta <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	551	649	
==>s it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to i <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	551	649	
==>s it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1390	1525	
==>$req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1390	1525	
==>$req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6289	6381	
==>rt$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6289	6381	
==>rt$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6289	6381	
==>rt$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_man <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5944	6065	
==>ation of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5944	6065	
==>ation of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5944	6065	
==>ation of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	838	942	
==>g JavaScript,
#     but rather in implementing it (eg, by ToNumber).
#   * Character sets are sometimes c <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1422	1524	
==>) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1422	1524	
==>) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11188	11286	
==>ds would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11188	11286	
==>ds would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11188	11286	
==>ds would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	199	295	
==>ugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	199	295	
==>ugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	199	295	
==>ugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4147	4282	
==>];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4287	4422	
==>];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q( <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	17	111	
==>cpan:ASAVIGE;

# Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2198	2310	
==>$PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2198	2310	
==>$PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2198	2310	
==>$PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    . <==
3	/Users/nnunley/pugs/util/config_h.pl	556	661	
==>"< $base/lib/Perl6/Pugs.pm" or die $!;
open OUT, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31169	31265	
==>al operator that returns a new Relation
which has a subset of the original's tuples, and it works <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35719	35815	
==>al operator that returns a new Relation
which has a subset of the original's tuples, and it works <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4594	4705	
==>rint "optimized: [",join(",",@rules),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15534	15629	
==>proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database man <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15534	15629	
==>proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database man <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1838	1969	
==>r($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1838	1969	
==>r($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1838	1969	
==>r($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6367	6464	
==>ors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6367	6464	
==>ors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6367	6464	
==>ors are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	979	1079	
==>,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	979	1079	
==>,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	979	1079	
==>,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19198	19324	
==>ad2 The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27351	27464	
==>from,$to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5126	5226	
==>nd.\n";
-f $tail or die "error: file '$tail' not found.\n";
-f $rev  or die "error: file '$rev' not f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18285	18460	
==>int Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18285	18460	
==>int Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18285	18460	
==>int Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14254	14466	
==>lass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14254	14466	
==>lass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14254	14466	
==>lass_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1013	1120	
==>^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1013	1120	
==>^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	729	847	
==>(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	934	1052	
==>(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	990	1108	
==>(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5109	5244	
==>);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5109	5244	
==>);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	987	1093	
==>\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitution {
    m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4131	4232	
==>arn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12933	13032	
==>he span range, the unit is added to the current value to get the next value.
The unit specifier is a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12933	13032	
==>he span range, the unit is added to the current value to get the next value.
The unit specifier is a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9219	9313	
==>head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
cre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9219	9313	
==>head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7340	7510	
==>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7340	7510	
==>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7340	7510	
==>new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1454	1553	
==>ut[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1454	1553	
==>ut[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1454	1553	
==>ut[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1356	1553	
==>0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1356	1553	
==>0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1356	1553	
==>0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1997	2104	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1997	2104	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1997	2104	
==>-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5318	5440	
==>x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.ne <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5318	5440	
==>x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1172	1279	
==>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1172	1279	
==>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1381	1488	
==>is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6498	6596	
==>d exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6498	6596	
==>d exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6498	6596	
==>d exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	46	134	
==>:Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	46	134	
==>:Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	46	134	
==>:Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, impo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2865	2996	
==>my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2865	2996	
==>my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2865	2996	
==>my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21830	21922	
==>B connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21830	21922	
==>B connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21830	21922	
==>B connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	600	747	
==>thods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	600	747	
==>thods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	600	747	
==>thods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6028	6126	
==>undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6028	6126	
==>undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6028	6126	
==>undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB ab <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13639	13803	
==>d_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_er <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13639	13803	
==>d_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_er <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	574	664	
==>:Gregorian is export {
    Duration::Gregorian.new( :year($year), :month($month), :day($day <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	607	702	
==>{
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $ <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	607	702	
==>{
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	688	829	
==>$query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	688	829	
==>$query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1508	1614	
==>rl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Tea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3358	3505	
==>s->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3358	3505	
==>s->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3358	3505	
==>s->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6071	6202	
==>.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6071	6202	
==>.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6071	6202	
==>.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	434	542	
==>dd_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22494	22591	
==>y do not interact with the outside
environment at all.

A Relation object has 2 main attributes (i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27046	27143	
==>y do not interact with the outside
environment at all.

A Relation object has 2 main attributes (i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10152	10363	
==>re( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10152	10363	
==>re( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10152	10363	
==>re( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21757	21857	
==>addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is als <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26309	26409	
==>addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is als <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1534	1650	
==>msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1534	1650	
==>msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1534	1650	
==>msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") {
    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7540	7695	
==>) == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7540	7695	
==>) == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7540	7695	
==>) == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29303	29420	
==>turn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29303	29420	
==>turn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29303	29420	
==>turn bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6129	6228	
==>($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6129	6228	
==>($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6129	6228	
==>($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	724	895	
==>ry Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2349	2443	
==>L::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2349	2443	
==>L::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3432	3523	
==>ass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base rol <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3432	3523	
==>ass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5629	5720	
==>ass itself is actually a factory for
classes which C<does> the Test::Builder::Test::Base rol <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10903	11003	
==>x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10903	11003	
==>x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) r <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2105	2197	
==>macif(%?CONFIG{'num_width'} == 32, 'subset complex of complex32  where { true }');
Helpers::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	124	250	
==>ndefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	124	250	
==>ndefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	124	250	
==>ndefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1364	1487	
==>ype'))
        || confess "Index must be a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9668	9778	
==>( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9668	9778	
==>( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_templat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2327	2435	
==>>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5752	5847	
==>engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule object <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5553	5644	
==>engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule object <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	39	137	
==>/Pugs/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10751	10847	
==>rrently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $con <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10809	10905	
==>rrently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1364	1474	
==>$cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	219	308	
==>date expires if_modified_since if_unmodified_since last_modified
    content_type content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	219	308	
==>date expires if_modified_since if_unmodified_since last_modified
    content_type content_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7123	7252	
==>n array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7123	7252	
==>n array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7123	7252	
==>n array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2424	2532	
==>, $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2424	2532	
==>, $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2504	2612	
==>, $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6084	6225	
==>bute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6084	6225	
==>bute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6084	6225	
==>bute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2395	2490	
==>compile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2395	2490	
==>compile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2395	2490	
==>compile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6" <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12444	12554	
==>g target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string charli <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18631	18725	
==>d2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18631	18725	
==>d2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1076	1219	
==>sif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not hap <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1076	1219	
==>sif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not hap <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15143	15284	
==>d' => (
    # method label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5377	5499	
==>$::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5377	5499	
==>$::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5377	5499	
==>$::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($version)     if defined <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1122	1237	
==>) ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12	101	
==>::Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12	101	
==>::Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6589	6714	
==>\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source;
}

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6589	6714	
==>\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source;
}

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6589	6714	
==>\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_source;
}

1 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10775	10869	
==>cal $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current value of C<@INC> and turns it int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17086	17196	
==>d Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17086	17196	
==>d Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17086	17196	
==>d Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7919	8036	
==>or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1)}eg;
    return $ver;
}

=he <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14093	14205	
==>ion is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $auto <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14093	14205	
==>ion is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $auto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1740	1892	
==>s}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1740	1892	
==>s}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1740	1892	
==>s}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10563	10697	
==>=> sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10563	10697	
==>=> sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10563	10697	
==>=> sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2590	2695	
==>.ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2590	2695	
==>.ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2590	2695	
==>.ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	649	769	
==>ght'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	649	769	
==>ght'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	649	769	
==>ght'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5835	5978	
==>bareword} eq 'warn';
        return " print '', " . _emit( $n->{param} ) . ";\n" .
            " print " . '"\n"'
            if $n->{sub}{ba <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31246	31340	
==>:L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31246	31340	
==>:L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3454	3555	
==>("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3454	3555	
==>("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3454	3555	
==>("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16220	16382	
==>my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16220	16382	
==>my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16220	16382	
==>my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = sh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3284	3385	
==>S

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3284	3385	
==>S

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5481	5582	
==>S

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3339	3445	
==>h this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6816	6922	
==>h this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5773	5879	
==>h this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some value <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1011	1165	
==>ipt = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0;
   while (<FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16038	16128	
==>Rosetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16038	16128	
==>Rosetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3344	3442	
==>_) };
push @statements, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package T <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1563	1657	
==>::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1563	1657	
==>::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2756	2896	
==>ss Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	509	635	
==>ss Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	509	635	
==>ss Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6862	6982	
==>new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6862	6982	
==>new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6862	6982	
==>new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { user <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16522	16651	
==>V *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20948	21077	
==>V *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1883	1998	
==>) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num $x) {
	my Int <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10914	11009	
==>tr $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10972	11067	
==>tr $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12788	12908	
==>) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12788	12908	
==>) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12788	12908	
==>) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $ke <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3032	3172	
==>g closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3216	3356	
==>g closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/< <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3868	3982	
==>);
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3868	3982	
==>);
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5392	5506	
==>);
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20204	20317	
==>ype => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16625	16738	
==>ype => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	206	314	
==>ON = '0.02';
use strict;
use File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1494	1600	
==>Model;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1494	1600	
==>Model;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1494	1600	
==>Model;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1479	1653	
==>values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1479	1653	
==>values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1479	1653	
==>values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1668	1831	
==>ready absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1668	1831	
==>ready absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6612	6708	
==>event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6612	6708	
==>event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired wh <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4758	4853	
==>--------------------------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25217	25399	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25217	25399	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25217	25399	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7661	7767	
==>ed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7661	7767	
==>ed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7661	7767	
==>ed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3275	3372	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3275	3372	
==>, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1643	1739	
==>le::Spec->catfile($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec->cat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14130	14265	
==>ry rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10303	10438	
==>ry rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11139	11274	
==>ry rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $r <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4038	4139	
==>all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4038	4139	
==>all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9879	9980	
==>... still got the right return value from $iFoo singleton method');

## make subclasses

my $Bar = $Cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14092	14190	
==>rces = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17569	17667	
==>rces = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8963	9120	
==>{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7719	7826	
==>ad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7719	7826	
==>ad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7719	7826	
==>ad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpPar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3783	3918	
==>ke_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3783	3918	
==>ke_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3783	3918	
==>ke_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	91	228	
==>storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	91	228	
==>storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3850	3971	
==>functions
	
	my $type = $self->resolve_type($node); # unlike parametered thunks these thunk have no -> type

	$self->defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7368	7460	
==>idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7368	7460	
==>idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7368	7460	
==>idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_po <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	512	606	
==>just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	512	606	
==>just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Ciph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1451	1542	
==>input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1451	1542	
==>input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1451	1542	
==>input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	500	615	
==>FLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12388	12494	
==>^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12388	12494	
==>^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1471	1573	
==>$matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2856	2957	
==>rs.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.string <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2856	2957	
==>rs.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13903	14023	
==>:Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13903	14023	
==>:Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13903	14023	
==>:Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1074	1193	
==>s_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1074	1193	
==>s_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1074	1193	
==>s_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10594	10699	
==>:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>). <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10594	10699	
==>:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>). <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5148	5247	
==>print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1::Ap <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11225	11320	
==>ge the semantic of a header field, but
in practice there are cases like old-style Netscape cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11225	11320	
==>ge the semantic of a header field, but
in practice there are cases like old-style Netscape cooki <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2714	2808	
==>$2/g;
#    s/open (\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condit <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	734	843	
==>n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h) <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1680	1779	
==>/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_comman <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1573	1660	
==>/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_comman <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	103	348	
==>use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	103	348	
==>use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	785	880	
==>..
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	785	880	
==>..
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2915	3009	
==>thod month_abbr returns Str { @months_abbr[./month_0] }

# yes, these functions are not "correc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4716	4822	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4716	4822	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4716	4822	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "In <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1321	1438	
==>= shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1321	1438	
==>= shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return P <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2157	2259	
==>lt;
 }

 multi sub Array::reverse (   @values) returns Lazy|Str {
 multi sub  Perl6::List::reverse (; * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10570	10670	
==>stract 
    # methods which must be implemented
    # ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10570	10670	
==>stract 
    # methods which must be implemented
    # ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10570	10670	
==>stract 
    # methods which must be implemented
    # ----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13258	13360	
==>od('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13258	13360	
==>od('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13258	13360	
==>od('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9671	9854	
==>_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_sing <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9671	9854	
==>_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_sing <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9671	9854	
==>_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_sing <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2940	3050	
==>:Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2940	3050	
==>:Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stm <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7770	7898	
==>pty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7770	7898	
==>pty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => ch <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5279	5362	
==>amic_alt(\@operators);

def_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11460	11571	
==>ble->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11460	11571	
==>ble->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11460	11571	
==>ble->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %par <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20698	20788	
==>ed
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to im <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20698	20788	
==>ed
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	83	173	
==>< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Find <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	83	173	
==>< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Find <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	83	173	
==>< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Find <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8402	8530	
==>f(api == 14) {
      SV* expr_code;
      SV* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fpr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11052	11150	
==>s in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11052	11150	
==>s in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3895	4018	
==>o \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3895	4018	
==>o \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3895	4018	
==>o \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  comm <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	357	463	
==>age}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @m <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	357	463	
==>age}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2181	2278	
==>ethod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2181	2278	
==>ethod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2181	2278	
==>ethod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	223	325	
==>,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	223	325	
==>,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	223	325	
==>,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2272	2394	
==>educed_struct = $self->SUPER::generic_reduce($node->struct_equiv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struc <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3036	3144	
==>ion><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3036	3144	
==>ion><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15098	15196	
==>y the string passed as the first argument, if
called in a void context.  In scalar and array contex <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15098	15196	
==>y the string passed as the first argument, if
called in a void context.  In scalar and array contex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5064	5241	
==>Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5064	5241	
==>Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5064	5241	
==>Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2845	2977	
==>::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2845	2977	
==>::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2845	2977	
==>::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magi <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	188	294	
==>gs);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $pac <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	188	294	
==>gs);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4911	5004	
==>pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4911	5004	
==>pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4911	5004	
==>pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1840	1970	
==>:PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    whe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1840	1970	
==>:PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    whe <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	372	476	
==>mly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	372	476	
==>mly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4687	4776	
==>y $stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosition, "PGE: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14056	14191	
==>tement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $cate <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10229	10364	
==>tement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $cate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11065	11200	
==>tement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $cate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5954	6073	
==>($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5954	6073	
==>($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5954	6073	
==>($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	863	993	
==>cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	863	993	
==>cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19269	19360	
==>) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19269	19360	
==>) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19269	19360	
==>) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1124	1463	
==>ym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1), <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	14	104	
==>:Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeCha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	14	104	
==>:Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeCha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4940	5052	
==>ce_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4940	5052	
==>ce_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4940	5052	
==>ce_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1227	1330	
==>$code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1227	1330	
==>$code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1227	1330	
==>$code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8601	8704	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8601	8704	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8601	8704	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3822	3927	
==>s "test argument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.tes <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2442	2535	
==>odule_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$modu <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2442	2535	
==>odule_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$modu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2978	3097	
==>n.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2978	3097	
==>n.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4731	4819	
==>nt',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_new(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8893	9012	
==>t};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8881	9000	
==>t};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	530	669	
==>t.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	530	669	
==>t.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	530	669	
==>t.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cp <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3211	3407	
==>) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3211	3407	
==>) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3345	3450	
==>ig{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unle <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5466	5580	
==>mit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23397	23489	
==>|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documenta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23397	23489	
==>|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documenta <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	483	620	
==>,
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	483	620	
==>,
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5425	5528	
==>w parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cach <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5425	5528	
==>w parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cach <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4667	4755	
==>('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	31	145	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	31	145	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	31	145	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5421	5532	
==>rpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5421	5532	
==>rpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5421	5532	
==>rpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(a <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3218	3324	
==>ate.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3218	3324	
==>ate.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	969	1071	
==>b bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest->add($c_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	45	136	
==>re::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	42	133	
==>re::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	42	133	
==>re::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8590	8712	
==>e;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto end_2 unl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6078	6172	
==>ll not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6078	6172	
==>ll not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2163	2297	
==>?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2163	2297	
==>?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2163	2297	
==>?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_co <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1031	1142	
==>om "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1031	1142	
==>om "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18398	18499	
==>ary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18398	18499	
==>ary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	365	448	
==>L<JIB::Installation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	537	644	
==>s,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	583	681	
==>robably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
m <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	583	681	
==>robably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6161	6291	
==>},
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6161	6291	
==>},
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6161	6291	
==>},
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5212	5324	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\t", '\T') if $cc;
    return $S->object <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16774	16872	
==>tersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16774	16872	
==>tersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2572	2657	
==>l.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2572	2657	
==>l.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	360	467	
==>sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	360	467	
==>sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	360	467	
==>sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16366	16467	
==>able};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16366	16467	
==>able};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16366	16467	
==>able};
}));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$:: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4012	4127	
==>t', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4012	4127	
==>t', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	862	977	
==>t', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	252	370	
==>ce';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name) 
        || confess "You must provide a name fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	474	585	
==>_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	474	585	
==>_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6752	6859	
==>ss = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19983	20074	
==>adonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traffi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19983	20074	
==>adonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traffi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8893	9040	
==>ft;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8893	9040	
==>ft;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8893	9040	
==>ft;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3211	3319	
==>pan is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3211	3319	
==>pan is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $sp <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17190	17287	
==>scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns tr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17190	17287	
==>scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns tr <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	349	444	
==>on $duration) returns Date {
    $self.add(-$duration);
}

method difference($self: Date $other) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10940	11032	
==>e::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11132	11224	
==>e::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	93	219	
==>turn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	93	219	
==>turn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	93	219	
==>turn "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	0	94	
==>package PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	0	94	
==>package PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	0	94	
==>package PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VER <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18030	18131	
==>ression :words {  # see 11.11
      <LogicalANDExpression>
    | <LogicalORExpression> <'||'> <Logical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8669	8823	
==>NING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8669	8823	
==>NING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8669	8823	
==>NING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	477	637	
==>t'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3417	3509	
==>, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3417	3509	
==>, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10044	10271	
==>/\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6567	6671	
==>ectly.  Otherwise, root through the file to locate the case-preserved
        # version of the package na <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9215	9313	
==>turn a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("op <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9215	9313	
==>turn a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	721	816	
==>on
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	721	816	
==>on
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	721	816	
==>on
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9261	9406	
==>_parameter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9645	9784	
==>_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4276	4387	
==>return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1753	1867	
==>chable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1753	1867	
==>chable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1753	1867	
==>chable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32320	32415	
==>plate modules to come
from Perl modules, but in the future they may alternately be something
els <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32320	32415	
==>plate modules to come
from Perl modules, but in the future they may alternately be something
els <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7533	7684	
==>.FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7533	7684	
==>.FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7533	7684	
==>.FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2942	3042	
==>}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2942	3042	
==>}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2942	3042	
==>}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35496	35630	
==>ody ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35496	35630	
==>ody ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35496	35630	
==>ody ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1676	1800	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1676	1800	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1676	1800	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4326	4437	
==>] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4519	4630	
==>] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10300	10408	
==>turn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13777	13885	
==>turn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13058	13166	
==>turn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	112	238	
==>strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	112	238	
==>strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	112	238	
==>strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2293	2438	
==>{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1229	1323	
==>ach bucket has a memory footprint of constant size because the
algorithm is based on statistics <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1229	1323	
==>ach bucket has a memory footprint of constant size because the
algorithm is based on statistics <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1599	1717	
==>d Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1599	1717	
==>d Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9947	10044	
==>.  The immediate validations
are performed at the moment the user tries to set the input, and inpu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9947	10044	
==>.  The immediate validations
are performed at the moment the user tries to set the input, and inpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5471	5571	
==>: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5471	5571	
==>: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6061	6161	
==>: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($lv, $self->conta <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4810	4937	
==>ack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modif <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4810	4937	
==>ack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modif <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	44	146	
==>one;
use Date::Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11917	12050	
==>1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11917	12050	
==>1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11917	12050	
==>1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12575	12689	
==>as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5577	5683	
==>itter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5385	5486	
==>itter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7006	7188	
==>ody,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7006	7188	
==>ody,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7006	7188	
==>ody,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined( <==
3	/Users/nnunley/pugs/util/importgraph.pl	1371	1478	
==>>[0]->{$ignore};
  }
}

# setup some predefined clusters
sub setup_mod {
  my $type = shift;
  my $name = sh <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10959	11061	
==>elcome.p6 to the initrd",
    help   => "Note: You might want to strip pugs and parrot to save space.", <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9200	9294	
==><-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringCharact <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	307	415	
==>int "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	307	415	
==>int "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12868	12967	
==>ible to get Match objects (only strings) into
  $1,etal, or even into the return value.  In that eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19943	20041	
==>:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19943	20041	
==>:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19943	20041	
==>:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4414	4530	
==>md";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4414	4530	
==>md";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4414	4530	
==>md";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2557	2672	
==>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2557	2672	
==>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2557	2672	
==>{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2914	3047	
==>-> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $te <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2914	3047	
==>-> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2267	2387	
==>\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6937	7094	
==>);
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6937	7094	
==>);
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24285	24392	
==>)";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, $self->{data}[0]->visual, $self->{dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3664	3790	
==>enClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3664	3790	
==>enClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3664	3790	
==>enClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	916	1026	
==>b foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	916	1026	
==>b foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	916	1026	
==>b foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2639	2762	
==><exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2639	2762	
==><exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2639	2762	
==><exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub comm <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10323	10440	
==>on( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13800	13917	
==>on( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13081	13198	
==>on( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching : <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4217	4311	
==>dler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4217	4311	
==>dler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13139	13233	
==>last_error ), return;

    my $my_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14558	14684	
==>ta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14558	14684	
==>ta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14558	14684	
==>ta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MR <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1075	1230	
==>pace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1215	1370	
==>pace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown para <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2558	2671	
==>these ;-)
	
	my %map;
	my @forall;

	# allocate letters for type variables
	# it's ok to destroy the objects since <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6257	6397	
==>t::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6315	6455	
==>t::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9677	9788	
==>}

1;

__END__

# XXX - optimization - pass the string index around, 
# XXX - weaken self-referential thi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9192	9302	
==>f $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuild::Config->lookup($1) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38744	38841	
==>-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 D <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38744	38841	
==>-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 D <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4035	4127	
==>nstance, passing on the C<$description> parameter and setting the passed
parameter to a false <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4035	4127	
==>nstance, passing on the C<$description> parameter and setting the passed
parameter to a false <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6232	6324	
==>nstance, passing on the C<$description> parameter and setting the passed
parameter to a false <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	56	167	
==>l "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	56	167	
==>l "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	56	167	
==>l "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1715	1812	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1715	1812	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1715	1812	
==>version, $authority, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3704	3887	
==>ngs')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3704	3887	
==>ngs')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3704	3887	
==>ngs')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5901	6012	
==>yperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5901	6012	
==>yperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5901	6012	
==>yperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7403	7512	
==>$counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7403	7512	
==>$counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7403	7512	
==>$counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1644	1792	
==>x];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ". <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1644	1792	
==>x];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ". <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1644	1792	
==>x];
        if(idx == array.length - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10298	10451	
==>,
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10298	10451	
==>,
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10298	10451	
==>,
            check_params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9219	9322	
==>e  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9219	9322	
==>e  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9219	9322	
==>e  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) } <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4728	4855	
==>cts( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4728	4855	
==>cts( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinit <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6514	6614	
==>ND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHEC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7224	7344	
==>decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7224	7344	
==>decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7224	7344	
==>decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35578	35668	
==>e> and C<grep>.

=item C<union (Relation::Example $other!) returns Relation::Example>

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2699	2818	
==>en_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2699	2818	
==>en_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2699	2818	
==>en_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1476	1581	
==>r two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1476	1581	
==>r two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1306	1406	
==>e;

		$self->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blond <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	702	830	
==>kg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or return;

    return $dir->subdir( $self->config->_c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16646	16767	
==>eturn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16646	16767	
==>eturn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	103	222	
==>turn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	103	222	
==>turn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	103	222	
==>turn bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1145	1251	
==>o () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2") <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2937	3040	
==>** warning: Prelude.pm should probably be the first --include\n"
            unless $prelude =~ /Prelude <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1145	1244	
==>o () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2") <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	690	812	
==>y $args = check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $cla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2692	2788	
==>a streams are enciphered with the same key, the encryption 
can be removed by XORing them togethe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2692	2788	
==>a streams are enciphered with the same key, the encryption 
can be removed by XORing them togethe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	94	181	
==>-----------------------------------------------------------
## now for some bootstrappin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	94	181	
==>-----------------------------------------------------------
## now for some bootstrappin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	94	181	
==>-----------------------------------------------------------
## now for some bootstrappin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13369	13482	
==>an function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is eva <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13369	13482	
==>an function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is eva <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28593	28683	
==>_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7921	8069	
==>cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7921	8069	
==>cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7921	8069	
==>cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2325	2449	
==>begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2241	2356	
==>begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13388	13493	
==>optional skip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11933	12059	
==>{
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11933	12059	
==>{
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11933	12059	
==>{
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3819	3933	
==>ers $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3819	3933	
==>ers $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3819	3933	
==>ers $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and i <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4797	4892	
==>SCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl library <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4797	4892	
==>SCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl library <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	719	842	
==>al_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	719	842	
==>al_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	719	842	
==>al_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11487	11649	
==>ndef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11487	11649	
==>ndef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11487	11649	
==>ndef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9492	9596	
==>( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9492	9596	
==>( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2472	2597	
==>ringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2472	2597	
==>ringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self } <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2109	2214	
==>- path to bin directory from where script was invoked
    $Script      - basename of script from which per <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2109	2214	
==>- path to bin directory from where script was invoked
    $Script      - basename of script from which per <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5767	5861	
==>:true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX::Val <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	250	350	
==>ift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = com <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5512	5606	
==>'Content-Type') when you are accessing the web using this
function.  If you need that informati <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5512	5606	
==>'Content-Type') when you are accessing the web using this
function.  If you need that informati <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12137	12271	
==>ailable {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4055	4136	
==>cng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimi <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4055	4136	
==>cng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	174	292	
==>odules do diffrent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	474	572	
==>ion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	474	572	
==>ion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11172	11277	
==>that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11172	11277	
==>that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11172	11277	
==>that BUILD methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8777	8898	
==>us;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8777	8898	
==>us;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8777	8898	
==>us;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3290	3394	
==>put and diagnostic output of tests,
running those tests, and then telling this module to compare the rece <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3290	3394	
==>put and diagnostic output of tests,
running those tests, and then telling this module to compare the rece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3370	3474	
==>put and diagnostic output of tests,
running those tests, and then telling this module to compare the rece <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19697	19796	
==>:CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23554	23650	
==>hod can be used to see if a Relation-doing object
can mutate.  Depending on the implementing clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28106	28202	
==>hod can be used to see if a Relation-doing object
can mutate.  Depending on the implementing clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1437	1543	
==>));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1437	1543	
==>));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1437	1543	
==>));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15495	15615	
==>hod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15495	15615	
==>hod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15495	15615	
==>hod_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10916	11022	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10916	11022	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10916	11022	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32855	33024	
==>-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32855	33024	
==>-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32855	33024	
==>-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9071	9217	
==>o call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9071	9217	
==>o call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9071	9217	
==>o call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6987	7109	
==>\"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3591	3713	
==>\"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4440	4562	
==>\"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36716	36838	
==>s a final example.  I'm going to rewrite F<Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative loo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8094	8208	
==>ll handling it.
            %mods.delete("ignorecase");
#           warning "PGE doesn't actually do :ignorecase ye <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32880	32983	
==>ee is
helpful.

The walk() method is used to modify the walking stack before the node
is returned.  Here <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2112	2211	
==>free;

	my $tree = $dag->splat(\@free); # Attribute grammars can't eat DAGs, so we have to recursive <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8889	8982	
==>6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2714	2807	
==>6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3832	3924	
==>--------------------------------------------------------
## Package

## See http://article.gm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3832	3924	
==>--------------------------------------------------------
## Package

## See http://article.gm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3832	3924	
==>--------------------------------------------------------
## Package

## See http://article.gm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	682	772	
==>: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	682	772	
==>: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	682	772	
==>: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3805	3895	
==>);

## ----------------------------------------------------------------------------
## Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3805	3895	
==>);

## ----------------------------------------------------------------------------
## Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3805	3895	
==>);

## ----------------------------------------------------------------------------
## Pack <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1946	2108	
==>ore <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'be <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2193	2355	
==>ore <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'be <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	226	329	
==>lessed($klass) && $klass->isa('opaque'))
        || confess "C3 only accepts classes";
    bless { class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3541	3628	
==>eader_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3541	3628	
==>eader_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18215	18360	
==>('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41480	41625	
==>('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1199	1329	
==>[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementCon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4905	4997	
==>ow be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4905	4997	
==>ow be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4905	4997	
==>ow be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->cus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29964	30083	
==>my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29964	30083	
==>my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29964	30083	
==>my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12932	13028	
==>($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12932	13028	
==>($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12932	13028	
==>($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5712	5831	
==>eason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5712	5831	
==>eason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7236	7355	
==>eason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the number of the I<next> test to record <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25190	25330	
==>ng
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20028	20166	
==>type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16449	16587	
==>type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9515	9632	
==>args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9515	9632	
==>args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9515	9632	
==>args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8270	8364	
==>say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more prac <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8270	8364	
==>say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more prac <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1005	1139	
==>> [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shi <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1005	1139	
==>> [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14124	14213	
==>e_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14124	14213	
==>e_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14124	14213	
==>e_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1198	1340	
==>e have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1198	1340	
==>e have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1732	1838	
==>rn "*" . $<rule_name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2635	2767	
==>ase)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading compo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2635	2767	
==>ase)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading compo <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	299	415	
==>urpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could actually make it a real jun <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30531	30645	
==>d is the same as C<project> but that the returned Relation::Example has
the complement subset of the original's att <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	207	313	
==>06.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embe <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	207	313	
==>06.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1044	1171	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1044	1171	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1044	1171	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2734	2851	
==>ile: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compone <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2734	2851	
==>ile: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compone <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2734	2851	
==>ile: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compone <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2012	2140	
==>ction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2012	2140	
==>ction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2012	2140	
==>ction (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')( <==
3	/Users/nnunley/pugs/util/grokprims.pl	869	1016	
==>foreach my $op (sort 
         {
           $a->{name} cmp $b->{name} or
             $a->{assoc} cmp $b->{assoc} or
               @{$a->{args}} <= <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18397	18493	
==>es are in exactly the right input
format for Node.new(), by which you can create an identical Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18397	18493	
==>es are in exactly the right input
format for Node.new(), by which you can create an identical Nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12149	12302	
==>p_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12149	12302	
==>p_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12149	12302	
==>p_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2481	2606	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2481	2606	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2481	2606	
==>ush @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	77	194	
==>by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	77	194	
==>by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	77	194	
==>by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	579	691	
==>ass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	579	691	
==>ass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	579	691	
==>ass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4046	4183	
==>p ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4046	4183	
==>p ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4046	4183	
==>p ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6412	6541	
==>pace!

    $p = Pugs::Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14247	14347	
==>version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14247	14347	
==>version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3846	3973	
==>l for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3846	3973	
==>l for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3846	3973	
==>l for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4680	4874	
==>{ 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4680	4874	
==>{ 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4680	4874	
==>{ 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5872	5981	
==>}
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5860	5969	
==>}
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1054	1203	
==>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1054	1203	
==>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1054	1203	
==>[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14887	14981	
==>The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14887	14981	
==>The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14887	14981	
==>The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3778	3879	
==>Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3778	3879	
==>Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3778	3879	
==>Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	539	647	
==>s) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	539	647	
==>s) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	539	647	
==>s) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	126	232	
==>);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	126	232	
==>);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	126	232	
==>);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	769	870	
==>------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	769	870	
==>------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	769	870	
==>------------------------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4632	4738	
==>q '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4632	4738	
==>q '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4632	4738	
==>q '{}') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11767	11899	
==>ributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15244	15376	
==>ributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14579	14711	
==>ributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2! <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1295	1392	
==>}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = [ Path::Class::file('inde <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5859	5953	
==>y, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_st <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5917	6011	
==>y, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10989	11116	
==>i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10989	11116	
==>i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10989	11116	
==>i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4394	4496	
==>dl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4394	4496	
==>dl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOP <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5220	5320	
==>r %node_named;
our @nodes;
our %nodes_of_type;
sub init {
    my $list = PIL::PIL1CPerl5::NodesList:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2200	2336	
==>ind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Dat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2200	2336	
==>ind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Dat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2547	2683	
==>ind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36623	36749	
==>y->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient becaus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36623	36749	
==>y->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient becaus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36623	36749	
==>y->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient becaus <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14980	15105	
==>arens;            /* number of parentheses */

The match result:

  I32 sublen;             /* Length of string pointed by sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19654	19751	
==>f with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19654	19751	
==>f with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

T <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1640	1764	
==>ion {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->packag <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4843	4967	
==>ion {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->packag <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13361	13473	
==>en boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13361	13473	
==>en boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep <==
3	/Users/nnunley/pugs/util/build_pugs.pl	718	821	
==>ironment variable.

Current settings:
.
    print PugsBuild::Config->pretty_print;

    exit 0;
}

my $r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24325	24449	
==>egexec.

 * reganch      is the match anchored (at beginning-of-line only)?

Very popular.  Used all over perl.  Discussed el <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	92	183	
==>aders $!headers handles «
    header push_header init_header remove_header remove_content_h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	92	183	
==>aders $!headers handles «
    header push_header init_header remove_header remove_content_h <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2106	2195	
==>ternals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assuming:base(10) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	706	810	
==>..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	706	810	
==>..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
mult <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	706	810	
==>..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5074	5185	
==>native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5074	5185	
==>native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5074	5185	
==>native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19048	19162	
==>hen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20406	20520	
==>hen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	176	275	
==>e, aiming to generate the same data structure as
the 'ratchet' version.

- It currently passes al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1106	1209	
==>e} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1106	1209	
==>e} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1106	1209	
==>e} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a new <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2580	2676	
==>th ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If tw <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2580	2676	
==>th ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If tw <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3329	3428	
==>)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not merely <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3329	3428	
==>)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not merely <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26602	26700	
==>*/
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3337	3443	
==>tch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6814	6920	
==>tch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5771	5877	
==>tch this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some val <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2767	2888	
==>ethod _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2767	2888	
==>ethod _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17649	17742	
==>he effect of first doing an C<lc> on the entire string, then performing a
C<s:g/(\w+)/{ucfirst <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8838	8947	
==>t;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=head1 SYNOPSIS

	use Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18359	18463	
==>handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18359	18463	
==>handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	892	995	
==>{ $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	892	995	
==>{ $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	892	995	
==>{ $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1811	1923	
==>ft(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1811	1923	
==>ft(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1811	1923	
==>ft(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b i <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5515	5613	
==>@_) if $Config{concurrent} == 1;
    my @tests = $self->get_tests;
    $self->run_children($Config{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	299	404	
==>ule::Install::Base};
}


# check if we can load some module
### Upgrade this to not have to load the modul <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5552	5643	
==>osition );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($target, $whitespacePosit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2014	2138	
==>.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  meth <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	29	139	
==>.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

meth <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	29	139	
==>.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

meth <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	306	407	
==>)
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	306	407	
==>)
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	860	979	
==>en ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	869	988	
==>en ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $con <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18439	18551	
==>= $totals->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $curr/$max");

        if( $detai <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8326	8430	
==>ner, this is usually not an issue
# since each time you either add a child
# or create a tree you are doi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8326	8430	
==>ner, this is usually not an issue
# since each time you either add a child
# or create a tree you are doi <==
3	/Users/nnunley/pugs/util/claim_drift.pl	329	425	
==>links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12131	12248	
==>. encode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $link;
      $links++;
    }
    
    if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36737	36834	
==>t's Set and Member properties; if none
could be matched, this method returns undef.  This method c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36737	36834	
==>t's Set and Member properties; if none
could be matched, this method returns undef.  This method c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13256	13356	
==>thod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13256	13356	
==>thod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13256	13356	
==>thod('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attri <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3380	3566	
==>ckage>).add_children(
                    Tree.new(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tr <==
3	/Users/nnunley/pugs/util/package-osx.pl	6281	6369	
==>local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/man/man3/Perl6::Overview: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9130	9345	
==>' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9130	9345	
==>' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9130	9345	
==>' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	230	331	
==>kets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	230	331	
==>kets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	230	331	
==>kets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3069	3316	
==>$packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### dependencies satisfied?
            my $info = LoadFile( 
                File::Spec->catdir( $meta_dir, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	659	761	
==>or :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	659	761	
==>or :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	914	1051	
==>tion (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	914	1051	
==>tion (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	914	1051	
==>tion (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	248	340	
==>lar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	248	340	
==>lar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	248	340	
==>lar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7480	7611	
==>s;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7468	7599	
==>s;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45296	45397	
==>bol->new('$:name')      => attribute->new('$:name'      => 'str')));
$::Package->send('add_attribute', <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18217	18344	
==>ut ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $delimiter          , Int <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19129	19248	
==>data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20487	20606	
==>data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	655	768	
==>eys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	425	538	
==>eys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	425	538	
==>eys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21115	21224	
==>e attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25667	25776	
==>e attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24282	24391	
==>e attribute names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relati <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1716	1849	
==>:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@header <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1716	1849	
==>:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@header <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3898	3991	
==>iled without PMC support.

  Can't locate object method "compile" via package "Pugs::Compiler: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9680	9811	
==>", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6021	6152	
==>", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6870	7001	
==>", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12377	12505	
==>lf->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bless {
        map { $_->equals => $_  } @_,
    }, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3471	3577	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3471	3577	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23823	23921	
==>SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23823	23921	
==>SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23823	23921	
==>SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6286	6453	
==>Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubTyp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6286	6453	
==>Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubTyp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6286	6453	
==>Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubTyp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1529	1729	
==>%msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1529	1729	
==>%msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'ms <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	100	200	
==>multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *inf <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	100	200	
==>multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8651	8751	
==>=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8651	8751	
==>=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8651	8751	
==>=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19056	19166	
==>SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19056	19166	
==>SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19056	19166	
==>SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9489	9702	
==>ub end_of_string {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XX <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2757	2890	
==>an.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2757	2890	
==>an.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4593	4700	
==>int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4593	4700	
==>int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4593	4700	
==>int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3405	3492	
==>ass)->{'$:superclass'} = $Object;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4099	4186	
==>ass)->{'$:superclass'} = $Object;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5307	5394	
==>ass)->{'$:superclass'} = $Object;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36276	36363	
==>'MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by transla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36276	36363	
==>'MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by transla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4934	5069	
==>uments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attemp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4934	5069	
==>uments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attemp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4934	5069	
==>uments to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8113	8255	
==>($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8113	8255	
==>($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8113	8255	
==>($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6:: <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1189	1290	
==>the example above).  Read a Calculus textbook for details.
This implementation is meant to show the po <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11254	11353	
==>bmethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11254	11353	
==>bmethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10078	10292	
==>alar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10078	10292	
==>alar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10078	10292	
==>alar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2692	2794	
==>set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2692	2794	
==>set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1808	1955	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1593	1734	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1593	1734	
==>xperimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1112	1243	
==>lit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1112	1243	
==>lit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1112	1243	
==>lit '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @para <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3277	3386	
==>ggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    deb <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3277	3386	
==>ggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    deb <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28326	28429	
==>=item C<size () returns Int>

This method returns a count of this Relation::Example's member tuples as a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3165	3301	
==>art => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3165	3301	
==>art => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3165	3301	
==>art => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1919	2024	
==>& b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1919	2024	
==>& b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1919	2024	
==>& b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2516	2634	
==>for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2516	2634	
==>for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2516	2634	
==>for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$bare <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2625	2731	
==>pected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2625	2731	
==>pected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2705	2811	
==>pected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3025	3155	
==>Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3025	3155	
==>Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3025	3155	
==>Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $su <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2147	2258	
==>ters
my $syn_src_dir; # The root directory for perl6 Design POD 
my @t_dirs;      # Test root directories (if us <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	430	528	
==>&infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe something like  this?
type Perl::Param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	634	735	
==>= $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	634	735	
==>= $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	634	735	
==>= $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24912	25030	
==>ly match.  The regmust tests are costly enough
 * that pregcomp() supplies a regmust only if the r.e. contains somethin <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2603	2711	
==>lement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2603	2711	
==>lement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	345	460	
==>FLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8651	8753	
==>index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8639	8741	
==>index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7531	7628	
==>);
}

(method has_method ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (sym <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4007	4100	
==>lement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4007	4100	
==>lement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3361	3498	
==>n $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3349	3486	
==>n $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1481	1594	
==>e Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1481	1594	
==>e Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1481	1594	
==>e Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29584	29677	
==>d attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34136	34229	
==>d attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33300	33393	
==>d attributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7625	7751	
==>}
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7625	7751	
==>}
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constan <==
3	/Users/nnunley/pugs/util/package-osx.pl	1946	2046	
==>te_perl/runjs.pl /Library/Perl/5.8.6/runjs.pl
        /usr/local/lib/perl5/site_perl/Class/Rebless.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1718	1825	
==>Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1718	1825	
==>Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1718	1825	
==>Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5429	5546	
==>$name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5429	5546	
==>$name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5429	5546	
==>$name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6239	6410	
==>ribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6239	6410	
==>ribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6239	6410	
==>ribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12881	12974	
==>TI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12881	12974	
==>TI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12881	12974	
==>TI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23799	23896	
==>r$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23799	23896	
==>r$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23799	23896	
==>r$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12739	12868	
==>t);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16884	16978	
==>ically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can ru <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16884	16978	
==>ically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18222	18352	
==><+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18222	18352	
==><+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18222	18352	
==><+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	190	296	
==>(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	190	296	
==>(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	190	296	
==>(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var prox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2669	2768	
==>y $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($conten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2669	2768	
==>y $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($conten <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2669	2768	
==>y $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($conten <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13885	13996	
==>elations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17362	17473	
==>elations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16742	16853	
==>elations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2973	3078	
==>pen \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2973	3078	
==>pen \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2973	3078	
==>pen \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d+)/m and return $1;
  return 0;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16724	16821	
==>ue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16724	16821	
==>ue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16724	16821	
==>ue::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() without p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3129	3267	
==>t ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  su <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3129	3267	
==>t ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1160	1290	
==>y to a dir.

Returns old cwd on success, false on failure.

=cut

sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7170	7293	
==>$xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7170	7293	
==>$xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7170	7293	
==>$xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6542	6649	
==>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6542	6649	
==>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6542	6649	
==>as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2519	2655	
==>Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2519	2655	
==>Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2519	2655	
==>Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2355	2484	
==>thod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2355	2484	
==>thod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2355	2484	
==>thod { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2455	2577	
==>ne_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2455	2577	
==>ne_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2455	2577	
==>ne_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3557	3675	
==>ng
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation::Ex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15758	15857	
==>R to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The P <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15816	15915	
==>R to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The P <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1623	1727	
==>e) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1941	2045	
==>e) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2271	2375	
==>e) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11423	11597	
==>w( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11423	11597	
==>w( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11423	11597	
==>w( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2749	2873	
==>6 object
    Grammar     Perl 6 pattern matching namespace
    List        Perl list
    Lazy        Lazily evaluated Perl li <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13678	13797	
==>=> ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13678	13797	
==>=> ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3197	3318	
==>msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3197	3318	
==>msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3197	3318	
==>msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31600	31751	
==>unter' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->ge <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	263	366	
==>ad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	263	366	
==>ad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	367	486	
==>" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	367	486	
==>" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	367	486	
==>" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11406	11523	
==>r $command, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open is uni <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3328	3428	
==>st, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$cur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3328	3428	
==>st, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	358	487	
==>' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9776	9905	
==>' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	354	462	
==>pile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9286	9385	
==>ing

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} / <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9286	9385	
==>ing

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} / <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37704	37798	
==>ple>

This method is a generic relational operator that takes a single Relation::Example
in its <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38544	38638	
==>ple>

This method is a generic relational operator that takes a single Relation::Example
in its <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	227	320	
==>etup$Config{_exe}");
my @args = grep !/^--[-\w]*prefix=$/, @ARGV;
my $prompt_register;

if ($a <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	603	694	
==>ant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Rena <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	603	694	
==>ant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Rena <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25982	26077	
==>he message, and can be interpolated into the
human-readable version.  Each variable name is a ma <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25982	26077	
==>he message, and can be interpolated into the
human-readable version.  Each variable name is a ma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4867	4956	
==>f->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::node_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29058	29160	
==>Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29058	29160	
==>Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29058	29160	
==>Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Val <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	969	1158	
==>m('$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym(' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10313	10401	
==>($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%option <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10313	10401	
==>($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1874	2016	
==>ad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1874	2016	
==>ad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1874	2016	
==>ad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1790	1895	
==>{ %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { % <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1790	1895	
==>{ %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10837	10945	
==>r::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SW <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10837	10945	
==>r::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SW <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10837	10945	
==>r::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SW <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2723	2833	
==>return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$con <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2723	2833	
==>return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$con <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2004	2124	
==>start, $file );
            next if $Config{exclude_re} && $currfile =~ $Config{exclude_re};

            if ( -d $currfi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1708	1793	
==>Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Par <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1708	1793	
==>Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Par <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17190	17286	
==>a D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17190	17286	
==>a D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	356	449	
==>ub node_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7248	7366	
==>.")
    goto end
.end

.sub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .local string target, v <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6134	6235	
==>t, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6134	6235	
==>t, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3044	3186	
==>dir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $bui <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6416	6509	
==>rinted
to the selected default filehandle for output (normally STDOUT) as
data is received fro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6416	6509	
==>rinted
to the selected default filehandle for output (normally STDOUT) as
data is received fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3440	3564	
==>alue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3440	3564	
==>alue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3440	3564	
==>alue);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2301	2465	
==>ally happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2301	2465	
==>ally happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17576	17701	
==>),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10814	10905	
==>item B<content_length returns Str>

=back

B<The following informational functions are fetch <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10814	10905	
==>item B<content_length returns Str>

=back

B<The following informational functions are fetch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16897	17046	
==>( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17176	17325	
==>( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2	115	
==>quire 'regexp_engine_demo.pl';
use Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4972	5089	
==>$sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4972	5089	
==>$sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4972	5089	
==>$sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3143	3307	
==>m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3143	3307	
==>m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3143	3307	
==>m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m. <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1544	1677	
==>';

    package App;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22656	22785	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22935	23064	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	529	650	
==>, ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	529	650	
==>, ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameter <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21749	21847	
==><no_LineTerminator_here><Identifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18961	19072	
==>$Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18961	19072	
==>$Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18961	19072	
==>$Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8597	8707	
==>e "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    my $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTPar <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1116	1211	
==>suitable for anything but throwaway code.
# However, the perl5 core team expressed some interest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1156	1260	
==>ot have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1156	1260	
==>ot have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1156	1260	
==>ot have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" meth <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5279	5463	
==>$length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#ta <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5279	5463	
==>$length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#ta <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12439	12600	
==>:pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	876	979	
==>pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertio <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	876	979	
==>pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14943	15054	
==>size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18420	18531	
==>size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17836	17947	
==>size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5157	5256	
==>_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5157	5256	
==>_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5157	5256	
==>_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	520	630	
==>0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	520	630	
==>0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	520	630	
==>0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->token <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	931	1036	
==>turn $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($verbose $switches);

$Ve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6387	6490	
==>- never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6171	6273	
==>- never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the bloc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	707	845	
==>back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        my ($root, $pool <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2469	2583	
==>mall c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex acc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2469	2583	
==>mall c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex acc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20867	21101	
==>p::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21146	21380	
==>p::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	390	500	
==>CT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2850	2942	
==>rl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Ut <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2850	2942	
==>rl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Ut <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2515	2640	
==>y @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2515	2640	
==>y @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3206	3361	
==>turn &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($tok) {
        $tok = pop(@$X::cap);
        my $var = [@{$Z: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24846	24943	
==>s this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29398	29495	
==>s this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	443	550	
==>h no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	443	550	
==>h no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	443	550	
==>h no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is pack <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	409	551	
==>} eq $package;

        ### and install it -- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17540	17631	
==>he Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17540	17631	
==>he Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35797	35921	
==>-> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35797	35921	
==>-> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35797	35921	
==>-> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @tail ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4003	4160	
==>e {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3880	4032	
==>e {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6322	6419	
==>try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6322	6419	
==>try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6322	6419	
==>try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1313	1406	
==>argely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the method <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1313	1406	
==>argely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the method <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1560	1674	
==>tart !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1560	1674	
==>tart !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7013	7118	
==>:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1041	1141	
==>oes Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1041	1141	
==>oes Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3237	3362	
==>imitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('valueOf') <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4483	4605	
==>s {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4483	4605	
==>s {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4852	5041	
==>{ bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4701	4885	
==>{ bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	284	432	
==>n',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new'    => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2181	2273	
==>S::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2181	2273	
==>S::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2181	2273	
==>S::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8011	8108	
==>s class solves is when you need do perform "set" operations on 
Span objects, that return lists of <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8011	8108	
==>s class solves is when you need do perform "set" operations on 
Span objects, that return lists of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8307	8431	
==>each my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8307	8431	
==>each my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8307	8431	
==>each my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5943	6051	
==>_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5943	6051	
==>_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5943	6051	
==>_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2270	2424	
==>_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2270	2424	
==>_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2270	2424	
==>_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	593	697	
==>ame'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	593	697	
==>ame'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	593	697	
==>ame'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7904	8088	
==>( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n->{sub <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13607	13702	
==>.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13607	13702	
==>.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represen <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1507	1644	
==>t ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1507	1644	
==>t ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1587	1724	
==>t ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2525	2632	
==>nless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2525	2632	
==>nless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2525	2632	
==>nless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1353	1453	
==>NAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1353	1453	
==>NAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1353	1453	
==>NAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37038	37142	
==>tersection>.  In any situation where a pair of source
relations have zero attributes in common, their joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41587	41691	
==>tersection>.  In any situation where a pair of source
relations have zero attributes in common, their joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41210	41314	
==>tersection>.  In any situation where a pair of source
relations have zero attributes in common, their joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4461	4565	
==>?
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4461	4565	
==>?
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4461	4565	
==>?
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2816	2939	
==>my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\%03o", $c if $z =~ /[[:^print: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3004	3111	
==>connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3004	3111	
==>connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %han <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3319	3432	
==>($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3319	3432	
==>($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5563	5665	
==>hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static vo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23226	23358	
==>P);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19647	19779	
==>P);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if ($ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6830	7078	
==>x:<+>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33249	33344	
==>dditional arguments sent are the walking stack and the current
depth in the walking stack.  Elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8092	8253	
==>arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8092	8253	
==>arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8092	8253	
==>arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3564	3669	
==>y, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3564	3669	
==>y, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3564	3669	
==>y, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7782	7878	
==>onpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7782	7878	
==>onpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18254	18337	
==>,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1827	1936	
==>plemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1827	1936	
==>plemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1827	1936	
==>plemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Inte <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5363	5493	
==>~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5363	5493	
==>~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(S <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13607	13709	
==>might allow adding globals
    # right now this is a non issue since even higher order functions get pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3351	3463	
==>y $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3351	3463	
==>y $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3351	3463	
==>y $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, bu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14904	15022	
==>msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14904	15022	
==>msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	400	503	
==>uncs) {
	for my $func (keys %funcs) {
		next if $func eq $key;
		print "$key -> $func\n" if $Conf{verbos <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1418	1517	
==>en(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1418	1517	
==>en(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable <==
3	/Users/nnunley/pugs/util/testgraph.pl	1516	1641	
==>del::File::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $link = $self- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	94	188	
==>keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	94	188	
==>keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6094	6220	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6094	6220	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6094	6220	
==>\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	61	160	
==>del;

1;

__END__

module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18102	18200	
==>py of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structur <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18102	18200	
==>py of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structur <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7935	8044	
==>( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7935	8044	
==>( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20841	20931	
==>= p6_mangle($name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5554	5655	
==>($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5554	5655	
==>($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5554	5655	
==>($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4121	4224	
==>a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4121	4224	
==>a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6318	6421	
==>a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10189	10337	
==>>from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10189	10337	
==>>from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10189	10337	
==>>from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16967	17062	
==>utines) and write the rest of the
application in their other language(s) of choice.  Assuming th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16967	17062	
==>utines) and write the rest of the
application in their other language(s) of choice.  Assuming th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1883	2003	
==>t ];
}

sub code { 
    warn "not implemented";
}

sub match {
    warn "not implemented";
}

sub perl5 {
    warn "not i <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1073	1171	
==>ied response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1073	1171	
==>ied response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4238	4351	
==>last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4238	4351	
==>last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4828	4941	
==>last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1393	1491	
==>maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_W <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1314	1408	
==>maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_W <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8142	8228	
==>difier_spec_pos(L), !.
p5_modifier_spec_pos([s|L])  --> "s", p5_modifier_spec_pos(L), ! <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19683	19779	
==>> type::operator::nullary->new("str")),
	),
);

# we can apply a polymorphic function to a string <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22286	22378	
==>inE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22286	22378	
==>inE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8	105	
==>PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8	105	
==>PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8	105	
==>PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4688	4787	
==>say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll lik <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4688	4787	
==>say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll lik <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4688	4787	
==>say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll lik <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4762	4925	
==>'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4984	5147	
==>'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
... <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15107	15225	
==>sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2	165	
==>ass Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2	165	
==>ass Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1486	1595	
==>ref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1486	1595	
==>ref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1486	1595	
==>ref.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4832	5006	
==>ect_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8309	8483	
==>ect_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16798	16983	
==>lass_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16798	16983	
==>lass_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16798	16983	
==>lass_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2282	2379	
==>ule. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port does <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2282	2379	
==>ule. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port does <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26100	26192	
==>fy(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4007	4123	
==>L::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4007	4123	
==>L::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4007	4123	
==>L::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5325	5468	
==>Y' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5547	5690	
==>Y' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15531	15623	
==>gexp::QuantAttr

Removes quantifiers as objects, and makes 'min' and 'max' attributes of
othe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16496	16611	
==>$name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15552	15659	
==>$name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	159	281	
==>TORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	159	281	
==>TORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	8	89	
==>"inc/Module/Install/Win32.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1974	2077	
==>"Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1974	2077	
==>"Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1974	2077	
==>"Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{CC};
    if(ref $sub eq "CODE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1718	1883	
==>$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1718	1883	
==>$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1718	1883	
==>$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	629	783	
==>ript ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $ <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	629	783	
==>ript ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	18	118	
==>ackage Blondie::Backend::Prim;
use base qw/Blondie::Map Blondie::Node::Atomic/;

use strict;
use warn <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8518	8620	
==>e
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are al <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8518	8620	
==>e
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are al <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2937	3085	
==>>") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2937	3085	
==>>") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	141	246	
==>g("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	141	246	
==>g("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 N <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11410	11565	
==>);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11410	11565	
==>);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5886	5996	
==>of_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicod <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	512	634	
==>hift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	413	535	
==>hift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10112	10201	
==>)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ', <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10847	10936	
==>)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ', <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4819	4916	
==>f_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4819	4916	
==>f_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3041	3125	
==>exists $options{params} && blessed($options{params}) && $options{params}->isa('closur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11551	11645	
==>butes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11551	11645	
==>butes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26849	26940	
==>× str)", ":t pair(10)('foo')");
is(t($fst), "int", ":t fst( pair(10)('foo') )");
is(t($snd) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12722	12868	
==>') { '+' }
    elsif ($min == 0 and $max == 1) { '?' }
    elsif ($max ne '' and $min == $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub q <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12504	12602	
==>Discrete span

This is used to represent ranges of things that can be counted, such as beats per mi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12504	12602	
==>Discrete span

This is used to represent ranges of things that can be counted, such as beats per mi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3470	3611	
==>$$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5520	5661	
==>$$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4476	4617	
==>$$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        }, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17241	17356	
==>se" operation, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1218	1318	
==>");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1212	1306	
==>");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.met <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1124	1225	
==>$name - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37534	37625	
==>e_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_load <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37534	37625	
==>e_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1826	1938	
==>e) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $linen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1826	1938	
==>e) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $linen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1826	1938	
==>e) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $linen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	859	988	
==>le );

    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }

    unless( $meta or $meta = $self->extract_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35953	36047	
==>urns an array ref having all combinations of this object's
Set Names and Member Names elements, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35953	36047	
==>urns an array ref having all combinations of this object's
Set Names and Member Names elements, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3627	3792	
==>{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3874	4039	
==>{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23758	23907	
==>list 
    ((?@superclasses is_nil) or 
     (?@superclasses apply 
          ($_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11670	11765	
==>ue if this recurrence intersects (has any element in common) with the given recurrence.

- `equa <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1228	1323	
==>xtbook for details.
This implementation is meant to show the power of Perl 6 defaults and
Curryi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11670	11765	
==>ue if this recurrence intersects (has any element in common) with the given recurrence.

- `equa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2202	2302	
==>e the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2202	2302	
==>e the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45110	45204	
==>d Package & Module, so we can create something here

$::Package = $::Class->send('new');
$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4994	5110	
==>opaque_instance_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1345	1443	
==>s
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1345	1443	
==>s
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1345	1443	
==>s
Scalar::Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIA <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3918	4044	
==>s' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3918	4044	
==>s' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	768	894	
==>s' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3201	3432	
==>s<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3201	3432	
==>s<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %ev <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5965	6061	
==>o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages -package stm -package network - <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10535	10735	
==>ped}++;
            } else {
                print "skipped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10239	10352	
==>pan1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10239	10352	
==>pan1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5265	5414	
==>}
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5265	5414	
==>}
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5265	5414	
==>}
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7001	7125	
==>ch';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7001	7125	
==>ch';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6705	6813	
==>clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6705	6813	
==>clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6705	6813	
==>clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increm <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6867	6977	
==>\x0$:pos"
    $P0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto en <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6156	6250	
==>rom_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6156	6250	
==>rom_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	385	474	
==>_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	385	474	
==>_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	385	474	
==>_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8157	8320	
==>urn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8157	8320	
==>urn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8157	8320	
==>urn bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10401	10528	
==>ds' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10401	10528	
==>ds' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10401	10528	
==>ds' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4562	4664	
==>span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4562	4664	
==>span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19717	19848	
==>Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19717	19848	
==>Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19717	19848	
==>Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct . <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2111	2210	
==>t;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	335	434	
==>)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	335	434	
==>)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	335	434	
==>)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4452	4566	
==>mand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4452	4566	
==>mand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4452	4566	
==>mand_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { com <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4477	4584	
==>ption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4477	4584	
==>ption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4557	4664	
==>ption.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6136	6226	
==>articular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most bl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6136	6226	
==>articular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1851	2019	
==>sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1851	2019	
==>sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1851	2019	
==>sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10370	10478	
==>O - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10370	10478	
==>O - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10370	10478	
==>O - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13353	13462	
==>SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13353	13462	
==>SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13353	13462	
==>SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	318	444	
==>ack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	318	444	
==>ack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	318	444	
==>ack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2928	3043	
==>,
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_gr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4763	4865	
==>MS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::En <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4763	4865	
==>MS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::En <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	687	812	
==>irect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbid <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	687	812	
==>irect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbid <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3362	3455	
==>l::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method doe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3362	3455	
==>l::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1269	1393	
==>Args} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1269	1393	
==>Args} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1269	1393	
==>Args} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11468	11635	
==>rn if $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5942	6041	
==>rs{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $ms <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5942	6041	
==>rs{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5200	5331	
==>sed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5200	5331	
==>sed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5200	5331	
==>sed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4080	4296	
==>ge_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6152	6250	
==>ypes.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_dat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6152	6250	
==>ypes.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12743	12934	
==>$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12743	12934	
==>$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12743	12934	
==>$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8282	8410	
==>\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8282	8410	
==>\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8282	8410	
==>\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	221	328	
==>RSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    requir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5217	5319	
==>pile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5036	5134	
==>pile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5771	5905	
==>IL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5771	5905	
==>IL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5771	5905	
==>IL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20803	20894	
==>:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20803	20894	
==>:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20803	20894	
==>:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14288	14398	
==>me() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_aut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14288	14398	
==>me() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_aut <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2920	3047	
==>vent {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can prov <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2920	3047	
==>vent {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can prov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11851	11946	
==>ll conform to the Role interface/API they are 
interchangable with one another, classes and Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11851	11946	
==>ll conform to the Role interface/API they are 
interchangable with one another, classes and Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11851	11946	
==>ll conform to the Role interface/API they are 
interchangable with one another, classes and Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1163	1271	
==>imeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1163	1271	
==>imeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1163	1271	
==>imeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	691	797	
==>", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	691	797	
==>", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	691	797	
==>", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2565	2676	
==>:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2565	2676	
==>:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2565	2676	
==>:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1794	1891	
==>|| p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1794	1891	
==>|| p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1794	1891	
==>|| p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13925	14080	
==>|| @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13925	14080	
==>|| @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13925	14080	
==>|| @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4779	4879	
==>fg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4779	4879	
==>fg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4779	4879	
==>fg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35238	35336	
==>relational operator that is identical
to C<join> except that this method will fail if any of its so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39788	39886	
==>relational operator that is identical
to C<join> except that this method will fail if any of its so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39348	39446	
==>relational operator that is identical
to C<join> except that this method will fail if any of its so <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2119	2291	
==>opic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2119	2291	
==>opic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1629	1742	
==>lass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1629	1742	
==>lass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1629	1742	
==>lass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4566	4698	
==>"=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4706	4838	
==>"=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5285	5401	
==>$name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2827	2943	
==>$name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3676	3792	
==>$name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12951	13126	
==>nt( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13230	13405	
==>nt( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4862	4998	
==>m, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Util <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5804	5910	
==>mplement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5804	5910	
==>mplement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5427	5533	
==>) =~ m/[^\s]/;
  $whitespacePosition = $-[0];
  $currentOperatorTable = $self->operatorTable() if ( $whites <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18823	18929	
==>ment and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18823	18929	
==>ment and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begi <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	101	189	
==>verlays-in (point-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7107	7265	
==>tidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7107	7265	
==>tidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3312	3407	
==>d as --kernel-local.
  --grub-uri=$grub_uri
    mklivecd.pl automatically fetches a GRUB tarball <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5122	5224	
==>chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as pe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5122	5224	
==>chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	56	163	
==>the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	56	163	
==>the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	56	163	
==>the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12198	12297	
==>lf<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.* <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12198	12297	
==>lf<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.* <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3154	3273	
==>is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3154	3273	
==>is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5168	5307	
==>);
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5168	5307	
==>);
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7720	7832	
==>s = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular ord <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7720	7832	
==>s = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular ord <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2960	3071	
==>IRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19144	19271	
==>unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19423	19550	
==>unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25082	25182	
==>uest.

=head1 DIAGNOSTICS

=over 4

=item C<All tests successful.\nFiles=%d,  Tests=%d, %s>

If all t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16778	16898	
==>($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! i <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9125	9233	
==>(not $ghc_exe and $Config{osname} eq 'cygwin') {

            warn "*** ghc-pkg not found in path.  Testing $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5734	5861	
==>s    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5734	5861	
==>s    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5734	5861	
==>s    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18097	18230	
==>". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Du <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18097	18230	
==>". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Du <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18097	18230	
==>". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Du <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22250	22362	
==>len = $Columns - length($middle_str) - $list_len;
        if ($max_namelen < length($failed_str)) {
            $ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1410	1519	
==>me) = @_;
    print STDERR "processing $fname...\n";
    my $file = slurp($fname);
    # remove the descriptio <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5132	5235	
==>atdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synops <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1534	1638	
==>=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1534	1638	
==>=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1534	1638	
==>=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1875	1974	
==>me};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1875	1974	
==>me};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1875	1974	
==>me};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2776	2889	
==>tly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2776	2889	
==>tly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2776	2889	
==>tly disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) = @a - fixed, add test
#      - (@a <==
3	/Users/nnunley/pugs/misc/S29_round.pl	213	333	
==>( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6839	6959	
==><<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< perl5 \> <p6ws> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2074	2188	
==>vious;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2074	2188	
==>vious;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	608	724	
==>put can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	608	724	
==>put can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	608	724	
==>put can become all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getE <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7876	8259	
==>and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::EN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2476	2571	
==>CRIPTION

An object of this class represents a client's request.  It also contains extra
informa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2476	2571	
==>CRIPTION

An object of this class represents a client's request.  It also contains extra
informa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	637	760	
==>2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	637	760	
==>2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	637	760	
==>2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Conf <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	337	471	
==>6mm generate_attribute )
                 },
    };

sub generate_p6mm {
    my $self = shift;

    my $schema = $self->schema;

    fo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	693	800	
==>$.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	693	800	
==>$.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	548	656	
==>SS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	548	656	
==>SS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	548	656	
==>SS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub in <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1921	2017	
==>$Config{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9899	9993	
==>ch
are referred to as "immediate" and "deferred".  The immediate validations
are performed at t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9899	9993	
==>ch
are referred to as "immediate" and "deferred".  The immediate validations
are performed at t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13909	14018	
==>LSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13909	14018	
==>LSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25588	25687	
==>ed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not all tests were suc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4004	4101	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4004	4101	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4004	4101	
==>row function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  di <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	170	271	
==>erations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	170	271	
==>erations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35510	35640	
==>->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35510	35640	
==>->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35510	35640	
==>->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15610	15769	
==>table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15610	15769	
==>table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15610	15769	
==>table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7127	7250	
==>der(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7127	7250	
==>der(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	245	357	
==>t

=head1 DESCRIPTION

Emitters take a compiled program and serialize them into some format.

For example L<Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5581	5683	
==>lude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5581	5683	
==>lude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5581	5683	
==>lude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7165	7353	
==>v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        nex <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7629	7817	
==>v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23596	23805	
==>ed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23596	23805	
==>ed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23596	23805	
==>ed to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29095	29200	
==>RST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReRE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19449	19544	
==>update said separate resource files, and not change
your main program.

I<Note that an update is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19449	19544	
==>update said separate resource files, and not change
your main program.

I<Note that an update is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4867	4963	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5211	5307	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	265	372	
==>t_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	226	333	
==>t_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	226	333	
==>t_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	183	288	
==>nings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	185	290	
==>nings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1691	1792	
==>/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashscre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1823	1925	
==>, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1823	1925	
==>, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1823	1925	
==>, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5171	5287	
==>x) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5171	5287	
==>x) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5171	5287	
==>x) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9955	10066	
==>$@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9955	10066	
==>$@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9955	10066	
==>$@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14463	14592	
==>a( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14463	14592	
==>a( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14463	14592	
==>a( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2702	2817	
==>und => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	310	417	
==>ns 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	296	397	
==>ns 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10088	10203	
==>_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10088	10203	
==>_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10088	10203	
==>_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6917	7028	
==>_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1273	1382	
==>_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	375	481	
==>_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { die "not implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7344	7443	
==>ME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7344	7443	
==>ME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7344	7443	
==>ME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7261	7433	
==>>(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7261	7433	
==>>(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7261	7433	
==>>(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	500	608	
==>$@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	500	608	
==>$@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	500	608	
==>$@;
  Class::Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	833	943	
==>child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the ro <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	833	943	
==>child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the ro <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25665	25758	
==>::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4420	4546	
==>t_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4408	4534	
==>t_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1604	1719	
==>user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6426	6556	
==>| $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interfac <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17260	17362	
==>)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVM <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17260	17362	
==>)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVM <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8055	8221	
==>{
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3904	4008	
==>t {
    my $data = emit(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1553	1652	
==>$S->error(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_cha <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11483	11583	
==>5 way"

=item KeyExtractor

A closure with arity of 1, which returns the "key" by which to sort. If
t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5160	5249	
==>unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5160	5249	
==>unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4987	5109	
==>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4987	5109	
==>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4987	5109	
==>multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	252	358	
==>/normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	252	358	
==>/normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	158	273	
==>taModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	158	273	
==>taModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	158	273	
==>taModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::Met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1911	2070	
==>. ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1911	2070	
==>. ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1911	2070	
==>. ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1797	1941	
==>age ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4683	4791	
==>me_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4683	4791	
==>me_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9801	9924	
==>else { 
              # skipped tests do not carry the a line number, so leave them out for now
          if($test->{todo}|| <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18210	18332	
==>$name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _wher <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1511	1629	
==>ngle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	918	1018	
==>in, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	918	1018	
==>in, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12441	12539	
==>se the errmsg() and errnum() methods to get the error information.

To see if an error is a particu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3486	3611	
==>t) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10289	10377	
==>D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11498	11681	
==>here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11498	11681	
==>here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11498	11681	
==>here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23236	23340	
==>values.  When a scope is entered, the top
value is copied and pushed onto the stack.  When a scope is lef <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3216	3312	
==>ules that use Test::Builder.  It
does this by you setting the expected output and diagnostic outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3216	3312	
==>ules that use Test::Builder.  It
does this by you setting the expected output and diagnostic outp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3296	3392	
==>ules that use Test::Builder.  It
does this by you setting the expected output and diagnostic outp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3262	3405	
==>elf, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4533	4642	
==>te {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.comp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4533	4642	
==>te {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1	130	
==>!/usr/bin/perl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1	130	
==>!/usr/bin/perl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1	130	
==>!/usr/bin/perl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1582	1732	
==>= $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1527	1673	
==>= $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation str <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1100	1216	
==>turn;
	} elsif ($chr =~ /\</) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17831	17931	
==>hat character appeared in the character class.  The
character class C<[A-CB-E]> would have a characte <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1813	1910	
==>' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Arra <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1813	1910	
==>' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Arra <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19995	20120	
==>s
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($inpath, $start_dir); 
    $outpath    = rel2abs( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3391	3515	
==>t unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3391	3515	
==>t unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5887	5985	
==>ecords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5887	5985	
==>ecords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7411	7509	
==>ecords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1268	1362	
==>nstant size because the
algorithm is based on statistics. This was my main motivation to
implem <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1268	1362	
==>nstant size because the
algorithm is based on statistics. This was my main motivation to
implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1686	1794	
==>nt Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1686	1794	
==>nt Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1686	1794	
==>nt Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10708	10840	
==>os;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10702	10834	
==>os;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4199	4299	
==>p();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4199	4299	
==>p();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4199	4299	
==>p();
    cc(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9333	9474	
==>f->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1871	1974	
==>ODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1871	1974	
==>ODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6967	7067	
==>t " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7025	7125	
==>t " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	831	974	
==>} else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	831	974	
==>} else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	831	974	
==>} else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_control:<w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4214	4341	
==>h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
no <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4214	4341	
==>h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
no <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1064	1191	
==>h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6387	6492	
==>JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6387	6492	
==>JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6387	6492	
==>JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	40	135	
==>...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	40	135	
==>...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	40	135	
==>...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use war <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1400	1559	
==>ytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_ele <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1400	1559	
==>ytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	872	975	
==>nt) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	872	975	
==>nt) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	872	975	
==>nt) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8198	8307	
==>ck = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8198	8307	
==>ck = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}" <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7354	7448	
==>signature from S29draft.pod 8655.  In the List section.
multi Array::grep (@values ;  MatchTest <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37000	37112	
==>se their joining
degenerates to a C<intersection>.  In any situation where a pair of source
relations have zero a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41549	41661	
==>se their joining
degenerates to a C<intersection>.  In any situation where a pair of source
relations have zero a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41172	41284	
==>se their joining
degenerates to a C<intersection>.  In any situation where a pair of source
relations have zero a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1877	1988	
==>nf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1877	1988	
==>nf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1877	1988	
==>nf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14300	14462	
==>lete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14300	14462	
==>lete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14300	14462	
==>lete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1140	1278	
==>( )>',
    );
    __PACKAGE__->add_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighte <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11281	11371	
==>tem B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11281	11371	
==>tem B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1150	1285	
==>op_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1385	1473	
==>('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1385	1473	
==>('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1385	1473	
==>('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods'));
$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6452	6561	
==>UB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6452	6561	
==>UB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6452	6561	
==>UB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MU <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9324	9444	
==>values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($r <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	720	838	
==>values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($r <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14153	14247	
==>oot/grub/stage2_eltorito" },
  using  => sub { system "tar", "-xvjf", $grub_local, "-C", $cdroo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	778	949	
==>c => 'left',
            precedence => 'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3045	3210	
==>->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some reason
        \ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5632	5732	
==>nit();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8395	8534	
==>qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) {
    # Force a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6069	6204	
==>) && ($got >= - $range);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    u <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6354	6455	
==>sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6354	6455	
==>sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14292	14395	
==>lass: str $repr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispatcher = $class.disp <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3359	3452	
==>Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcr <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3359	3452	
==>Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7924	8137	
==>aram} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n->{sub}{bareword} ) .
            '(' .
            j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1669	1763	
==>just a structure with three node forms: Var

(variable lookup), App (application) and Lit (lite <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1601	1694	
==>just a structure with three node forms: Var
(variable lookup), App (application) and Lit (lite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15147	15254	
==>b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15147	15254	
==>b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15147	15254	
==>b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9340	9442	
==>}
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4711	4805	
==>creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4711	4805	
==>creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19253	19358	
==>m_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19253	19358	
==>m_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19253	19358	
==>m_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16725	16937	
==>_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16725	16937	
==>_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16725	16937	
==>_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = <==
3	/Users/nnunley/pugs/util/importgraph.pl	1660	1766	
==>xp/;
    $modules{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { set <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	281	380	
==>tructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	281	380	
==>tructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37953	38059	
==>other source relation, then where each member of a
tuple pair has attribute names in common, eliminating pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42502	42608	
==>other source relation, then where each member of a
tuple pair has attribute names in common, eliminating pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42152	42258	
==>other source relation, then where each member of a
tuple pair has attribute names in common, eliminating pa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6511	6673	
==>:Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.cl <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6511	6673	
==>:Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	675	780	
==>ub _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my $inv = $args-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6294	6424	
==>argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6294	6424	
==>argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6294	6424	
==>argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5682	5806	
==>"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5682	5806	
==>"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1521	1634	
==>ODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1521	1634	
==>ODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1521	1634	
==>ODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# T <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8864	8988	
==>eturns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8864	8988	
==>eturns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13405	13532	
==>ms ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13405	13532	
==>ms ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13405	13532	
==>ms ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @li <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5718	5819	
==>ead1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5718	5819	
==>ead1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

= <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	689	807	
==>( "Could not create JIB::Installation object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2541	2635	
==>epresents the query string portion of a requested URI.
It provides the following methods:

=ove <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2541	2635	
==>epresents the query string portion of a requested URI.
It provides the following methods:

=ove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4521	4631	
==>cro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4521	4631	
==>cro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4521	4631	
==>cro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	815	947	
==>D++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	815	947	
==>D++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	815	947	
==>D++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4812	4938	
==>n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4812	4938	
==>n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4812	4938	
==>n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	459	560	
==>BLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong ( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	459	560	
==>BLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong ( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	90	180	
==>entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my % <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	90	180	
==>entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4314	4439	
==>Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4314	4439	
==>Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4314	4439	
==>Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10022	10225	
==>' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10022	10225	
==>' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10022	10225	
==>' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $bod <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3634	3737	
==>which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3634	3737	
==>which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5831	5934	
==>which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5129	5227	
==>r routine is passed the current object in the recursion and
the wanted namespace ("MyName" in the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5129	5227	
==>r routine is passed the current object in the recursion and
the wanted namespace ("MyName" in the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5129	5227	
==>r routine is passed the current object in the recursion and
the wanted namespace ("MyName" in the c <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2541	2647	
==>my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2541	2647	
==>my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11423	11604	
==>= \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7705	7886	
==>= \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8539	8720	
==>= \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{captu <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11078	11223	
==>ub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == - <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29013	29125	
==>TER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyAp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29013	29125	
==>TER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyAp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	368	468	
==>TER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyAp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2952	3082	
==>}, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3499	3629	
==>}, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ty <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40770	40866	
==>the returned Relation::Example is identical to the
invocant.  Another trivial case is where any a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2083	2289	
==>$body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5560	5766	
==>$body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4490	4696	
==>$body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11909	12028	
==>ndler;
    $handler->($x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handlers =
    ( undef => sub { Carp:: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	215	320	
==>ad1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding s <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	215	320	
==>ad1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27856	27950	
==>ttribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27856	27950	
==>ttribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37525	37646	
==>my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitia <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37525	37646	
==>my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitia <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37525	37646	
==>my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitia <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15521	15676	
==>type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separate lines on VMS.
        # We catch thi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1531	1622	
==>*)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	515	697	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	515	697	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	515	697	
==>lass and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15362	15479	
==>int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15362	15479	
==>int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15362	15479	
==>int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	432	539	
==>, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	432	539	
==>, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8938	9049	
==>$use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	40	143	
==>qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YA <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	40	143	
==>qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2487	2609	
==>rgs: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2487	2609	
==>rgs: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2487	2609	
==>rgs: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16844	16936	
==>ls::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16844	16936	
==>ls::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16844	16936	
==>ls::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7807	7935	
==>ction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7807	7935	
==>ction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7807	7935	
==>ction ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1158	1306	
==>ub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1158	1306	
==>ub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1158	1306	
==>ub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	6	108	
==>L2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	6	108	
==>L2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	6	108	
==>L2JS::Internals::new_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16009	16158	
==>ant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::opti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16288	16437	
==>ant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::opti <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21067	21210	
==>set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2655	2759	
==>xpand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2655	2759	
==>xpand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2655	2759	
==>xpand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'$ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29050	29140	
==>for writing test scripts, L<Benchmark> for
the underlying timing routines, and L<Devel::Cov <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14944	15032	
==>th C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DE <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14944	15032	
==>th C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1130	1249	
==>);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1130	1249	
==>);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1130	1249	
==>);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5012	5116	
==>d::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5012	5116	
==>d::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5602	5706	
==>d::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8972	9074	
==>'ldd' to read the list of shared libraries (*.so) pugs
      requires. This is necessary so we can copy <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3283	3381	
==>mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3283	3381	
==>mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10447	10566	
==>| (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10447	10566	
==>| (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7077	7192	
==>st {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messag <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23884	23975	
==>nguage specific details like
encodings or plurality.

My understanding of alternate solution <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23884	23975	
==>nguage specific details like
encodings or plurality.

My understanding of alternate solution <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	818	920	
==>::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2653	2744	
==>::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2221	2328	
==>,  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2221	2328	
==>,  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2221	2328	
==>,  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7572	7679	
==>(\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7572	7679	
==>(\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<u <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19416	19502	
==>), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3742	3866	
==>2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3742	3866	
==>2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3742	3866	
==>2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  p <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3686	3813	
==>self->set_build_info;
    $self->get_smoker;
    $self->get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1582	1704	
==>$class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1787	1909	
==>$class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2868	2974	
==>m;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2868	2974	
==>m;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2868	2974	
==>m;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9205	9313	
==>rk...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9205	9313	
==>rk...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3369	3475	
==>$_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3369	3475	
==>$_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3369	3475	
==>$_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra para <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8568	8785	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    me <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8568	8785	
==>w(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7409	7545	
==>"});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7409	7545	
==>"});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7409	7545	
==>"});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2490	2600	
==>s_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2490	2600	
==>s_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2490	2600	
==>s_name) = @_;
    return undef unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3292	3402	
==>s (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3292	3402	
==>s (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3292	3402	
==>s (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand (Str $string is cop <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3766	3859	
==>al subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6 <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3766	3859	
==>al subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13480	13580	
==>(anyof_class => alpha => $neg, \$how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8009	8106	
==>ulti method intersection (Relation $other!) returns Relation {

    die "The heading of the relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11486	11583	
==>ulti method intersection (Relation $other!) returns Relation {

    die "The heading of the relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4349	4479	
==>?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4349	4479	
==>?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4349	4479	
==>?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4238	4371	
==>,

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4091	4220	
==>,
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11657	11757	
==>r::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3592	3687	
==>rst create an object of the appropriate 
class, passing the key, a mode (either "enciphering" or <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3592	3687	
==>rst create an object of the appropriate 
class, passing the key, a mode (either "enciphering" or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2972	3072	
==>blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2972	3072	
==>blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2972	3072	
==>blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3983	4075	
==>>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

Thi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3983	4075	
==>>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

Thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7798	7924	
==>tch;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7991	8117	
==>tch;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	893	1005	
==>$nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address;
  $^H{regcompp} = sub {
    $r_addr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3360	3466	
==>fglock; # everything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3241	3344	
==>fglock; # everything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3946	4094	
==>rg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3946	4094	
==>rg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4536	4684	
==>rg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14686	14784	
==>Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14686	14784	
==>Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14686	14784	
==>Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1666	1770	
==>)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1666	1770	
==>)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1666	1770	
==>)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1188	1310	
==>ositional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1188	1310	
==>ositional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1188	1310	
==>ositional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	266	371	
==>rpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	266	371	
==>rpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	266	371	
==>rpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2169	2289	
==>e ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2169	2289	
==>e ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4644	4759	
==>e fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4644	4759	
==>e fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4644	4759	
==>e fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	535	639	
==>ags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->impor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	535	639	
==>ags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->impor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	535	639	
==>ags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->impor <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8554	8705	
==>-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	880	1010	
==>er) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	880	1010	
==>er) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19685	19779	
==>};
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19685	19779	
==>};
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19685	19779	
==>};
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8420	8523	
==>r to the category.

options:

=item * name => $operator_name - the name of this operator, such as '+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5960	6059	
==>r to the category.

options:

=item * name => $operator_name - the name of this operator, such as '+ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2601	2707	
==>mplement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2601	2707	
==>mplement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x i <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3562	3656	
==>ygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1189	1281	
==>l Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1189	1281	
==>l Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2790	2895	
==>.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2790	2895	
==>.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2790	2895	
==>.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10164	10274	
==>r my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10164	10274	
==>r my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10164	10274	
==>r my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	846	945	
==>code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	846	945	
==>code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	846	945	
==>code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6266	6453	
==>'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6266	6453	
==>'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6266	6453	
==>'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1611	1703	
==>es of all the L<Blondie::Nodes> and some
more objects.

They provide stringification, fmappin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	904	1041	
==>h->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	904	1041	
==>h->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	888	993	
==>s bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_close <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	888	993	
==>s bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_close <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2359	2445	
==>mpiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)<?p6ws>?\=<?p6w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3254	3349	
==>:Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3254	3349	
==>:Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5451	5546	
==>:Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29477	29573	
==>ttrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34029	34125	
==>ttrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33193	33289	
==>ttrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8562	8681	
==>ABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8562	8681	
==>ABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8562	8681	
==>ABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	670	784	
==>ription ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	670	784	
==>ription ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
s <==
3	/Users/nnunley/pugs/util/drift.pl	1539	1646	
==>hile (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.Ins <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1356	1458	
==>{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ ' <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1356	1458	
==>{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ ' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19693	19795	
==>erator::nullary->new("str")),
	),
);

# we can apply a polymorphic function to a string by giving it as <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1602	1744	
==>>{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _mangle_var( $n->{scalar} )
        if exists $n- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3080	3193	
==>lt5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3626	3739	
==>lt5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            r <==
3	/Users/nnunley/pugs/util/importgraph.pl	1770	1869	
==>mod(2, @_) }
sub setup_rank { setup_mod(3, @_) }

setup_cluster('Pugs.Rule', qr/^Pugs\.Rule\b/);
set <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	675	795	
==>PER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	691	811	
==>PER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	667	787	
==>PER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1742	1873	
==>e (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1742	1873	
==>e (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1742	1873	
==>e (" . ($instance || 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "B <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1744	1837	
==>sts.pl --p6design_dir=../p6/docs/design
     perl util/catalog_tests.pl --test_dirs=t/builtins <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9159	9283	
==>blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9306	9415	
==>zed for subrules

### - needs to be generalized, and the anchor should only

###   work when needed (or if the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9001	9108	
==>zed for subrules
### - needs to be generalized, and the anchor should only
###   work when needed (or if the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1386	1498	
==>::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1386	1498	
==>::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1386	1498	
==>::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	507	692	
==>eak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	507	692	
==>eak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	507	692	
==>eak;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10893	11060	
==>$ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10893	11060	
==>$ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10893	11060	
==>$ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret-> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14290	14393	
==>span, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1.0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14290	14393	
==>span, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1.0 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4915	5012	
==>de = $code0."\n sub{my \$cn = \$_[0]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2581	2696	
==>eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2581	2696	
==>eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2581	2696	
==>eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.lastInd <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	782	874	
==>{ ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	782	874	
==>{ ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	782	874	
==>{ ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4806	4962	
==>s = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4806	4962	
==>s = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10083	10176	
==>tent_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10083	10176	
==>tent_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3641	3785	
==>curse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3641	3785	
==>curse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3641	3785	
==>curse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1369	1470	
==>VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1369	1470	
==>VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1369	1470	
==>VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7649	7839	
==>etch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7649	7839	
==>etch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7649	7839	
==>etch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3878	4089	
==>= 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symm <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2715	2820	
==>iler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
} <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2715	2820	
==>iler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1532	1665	
==>}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6237	6338	
==>'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6237	6338	
==>'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5860	5971	
==>ents!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9337	9448	
==>ents!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1875	1969	
==>FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$ENUM, 'Invalid [] ra <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3363	3476	
==>universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_unive <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3363	3476	
==>universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_unive <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15908	16022	
==>bject(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10764	10878	
==>bject(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	296	397	
==>odules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	296	397	
==>odules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	296	397	
==>odules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10100	10229	
==>ef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10100	10229	
==>ef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15921	16048	
==>];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15921	16048	
==>];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15921	16048	
==>];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1738	1864	
==>(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1738	1864	
==>(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1738	1864	
==>(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	18	132	
==>self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	18	132	
==>self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	18	132	
==>self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1421	1516	
==>. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.p <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1421	1516	
==>. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	480	579	
==>an?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	480	579	
==>an?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28807	28903	
==>attribute names, or duplicate any other value set members.  This
method supports having the new a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33359	33455	
==>attribute names, or duplicate any other value set members.  This
method supports having the new a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32496	32592	
==>attribute names, or duplicate any other value set members.  This
method supports having the new a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22381	22506	
==>match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22660	22785	
==>match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	25	123	
==>e config for us
BEGIN { require 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16916	17049	
==>sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16916	17049	
==>sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16916	17049	
==>sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

P <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6877	7058	
==>f' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6934	7115	
==>f' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2739	2843	
==>PSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2739	2843	
==>PSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4263	4367	
==>PSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2398	2498	
==>xpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2398	2498	
==>xpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { u <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28003	28102	
==>: RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_ST <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15666	15765	
==>ttempting to use a string at a level lower than what it supports is not
allowed.

If a function take <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17707	17803	
==>ew bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17707	17803	
==>ew bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1554	1741	
==>ILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1554	1741	
==>ILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1554	1741	
==>ILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22455	22698	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22455	22698	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22455	22698	
==>l6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3718	3864	
==>rl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3718	3864	
==>rl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3718	3864	
==>rl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   st <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3535	3635	
==>tput_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design documents   : Won' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	46	140	
==>:Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	46	140	
==>:Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24316	24498	
==>rn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24316	24498	
==>rn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24316	24498	
==>rn Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10476	10662	
==>ize, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10476	10662	
==>ize, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10476	10662	
==>ize, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5674	5779	
==>st.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5674	5779	
==>st.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5674	5779	
==>st.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14640	14741	
==>le(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14640	14741	
==>le(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14640	14741	
==>le(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10877	10972	
==>empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the pr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10877	10972	
==>empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11837	12062	
==>'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11837	12062	
==>'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1567	1675	
==>w();
    return nil->new();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($star <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3840	4009	
==>able #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime V <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3840	4009	
==>able #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	0	102	
==>package PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	0	102	
==>package PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	0	102	
==>package PIL;
# This module provides ->as_js methods for the objects returned by PIL::Parser.

use warni <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5411	5531	
==>ata if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6049	6163	
==>$S->object(alnum => 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7264	7383	
==>472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7264	7383	
==>472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	362	473	
==>omplexity is the same.

TODO

- The structure generated by concat() still looks like a tree, instead of a 'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2161	2245	
==>umfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2161	2245	
==>umfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2161	2245	
==>umfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary: <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	456	611	
==>.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq ' <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	456	611	
==>.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq ' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6589	6688	
==>$Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) * floor(abs($Result1));
    return $R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17099	17196	
==>module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timestam <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17099	17196	
==>module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timestam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9827	9958	
==>=>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9827	9958	
==>=>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9827	9958	
==>=>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1994	2085	
==>JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1994	2085	
==>JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1994	2085	
==>JS::pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9019	9119	
==>()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9019	9119	
==>()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7141	7240	
==>nsion_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flags .= " -I../../src -i../.. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15224	15345	
==>e) returns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($wh <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3789	3889	
==>:PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3789	3889	
==>:PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27584	27680	
==>s all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32136	32232	
==>s all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31228	31324	
==>s all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11360	11477	
==>FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11360	11477	
==>FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11360	11477	
==>FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38453	38571	
==>array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38453	38571	
==>array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38453	38571	
==>array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4323	4419	
==>is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4323	4419	
==>is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4323	4419	
==>is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) } <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	336	441	
==>e of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are avai <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	336	441	
==>e of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are avai <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11793	11898	
==>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule Dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	535	640	
==>, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	535	640	
==>, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	535	640	
==>, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' => ::mak <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10221	10319	
==>er_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10279	10377	
==>er_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2711	2823	
==>nents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2711	2823	
==>nents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2711	2823	
==>nents, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9105	9207	
==>*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9105	9207	
==>*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9105	9207	
==>*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\&\$\@\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6315	6438	
==>ng ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6315	6438	
==>ng ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6315	6438	
==>ng ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24018	24149	
==>};

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24018	24149	
==>};

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24018	24149	
==>};

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2614	2729	
==>>arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=he <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2614	2729	
==>>arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=he <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2961	3076	
==>>arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3140	3241	
==>mp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3140	3241	
==>mp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3140	3241	
==>mp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	555	679	
==>b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	555	679	
==>b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	555	679	
==>b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1348	1483	
==>$self, @_);
        }
        else {
            if (exists $_table->{prototype}) {
                $_table = $_table->{prototype}->('me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18964	19097	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15385	15518	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3123	3251	
==>int "}\n\\end{block}\n" if $inblock;
#    print "}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname... <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2485	2586	
==>> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2485	2586	
==>> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19121	19224	
==>^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19121	19224	
==>^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19121	19224	
==>^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33445	33543	
==>r first library should
appear first in the array.  Each Set Name can be any defined and non-empty
s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33445	33543	
==>r first library should
appear first in the array.  Each Set Name can be any defined and non-empty
s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5699	5798	
==>od start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5699	5798	
==>od start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1412	1530	
==>lt->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1412	1530	
==>lt->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1412	1530	
==>lt->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $hea <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1109	1239	
==>$Data $path] )
            and die $?;
        system( qq[tar -f $Control -C $path/$Pms -cz .] )   and die $?;
        system( qq[t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1689	1786	
==>t {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1689	1786	
==>t {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1541	1649	
==>_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1541	1649	
==>_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1541	1649	
==>_s() p6_main()
}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1559	1676	
==>args->{dir}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some/dir' );

Re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1964	2069	
==>t $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.mem <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1964	2069	
==>t $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.mem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3013	3119	
==>, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3013	3119	
==>, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3013	3119	
==>, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4144	4246	
==>s a Perl 6 program runnable by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    T <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2430	2527	
==>cture, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

= <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2430	2527	
==>cture, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

= <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12765	12858	
==>infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empt <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12765	12858	
==>infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13192	13297	
==>= ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13192	13297	
==>= ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13192	13297	
==>= ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2508	2606	
==>sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2508	2606	
==>sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2508	2606	
==>sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$labe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3578	3737	
==>ct;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'list', 'type::equivalence';

sub new {
    my ($class, @values) = @_;
    (blessed <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3871	3982	
==>r;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_comman <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3871	3982	
==>r;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_comman <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17598	17718	
==>alize ( Str $string = CALLER::<$_> --> Str )

Has the effect of first doing an C<lc> on the entire string, then performin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10171	10282	
==>\$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10165	10276	
==>\$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10159	10289	
==>...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10159	10289	
==>...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10159	10289	
==>...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10651	10763	
==>se(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3194	3295	
==>art, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3194	3295	
==>art, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3575	3695	
==>s => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3575	3695	
==>s => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3575	3695	
==>s => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	738	828	
==>/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	738	828	
==>/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4767	4864	
==>ct.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4767	4864	
==>ct.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27406	27594	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27406	27594	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27406	27594	
==>ems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	359	510	
==>ive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	359	510	
==>ive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	359	510	
==>ive ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1334	1449	
==>ssed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18564	18656	
==>lar expression compilation and execution) to
parasitize the regexp struct - attempting to mak <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2854	2946	
==>lar expression compilation and execution) to
parasitize the regexp struct - attempting to mak <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3841	3953	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4034	4146	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	162	266	
==>grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1438	1537	
==>n_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1438	1537	
==>n_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1438	1537	
==>n_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5712	5842	
==>nless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5712	5842	
==>nless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5712	5842	
==>nless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15813	15913	
==>s, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15813	15913	
==>s, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6191	6298	
==>e));
			$de_facto_type->set($expected_type);
			return $node;
		} else {
			warn "casting";
			return $self- <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2700	2785	
==>ist via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> or <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2700	2785	
==>ist via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6914	7021	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6914	7021	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6914	7021	
==>paque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_pr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	287	394	
==>odeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	287	394	
==>odeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13705	13826	
==>arget, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5405	5510	
==>as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5405	5510	
==>as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	259	354	
==>Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	259	354	
==>Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	259	354	
==>Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2996	3099	
==>rl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2996	3099	
==>rl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2996	3099	
==>rl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2862	2974	
==>data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2862	2974	
==>data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipher <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	934	1045	
==>ool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime::Match::Ratchet';
};
);
    #pr <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12464	12587	
==>ortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         t <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3014	3125	
==>ortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2626	2739	
==>TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2626	2739	
==>TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2626	2739	
==>TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1051	1179	
==>2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1008	1132	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    re <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7717	7816	
==>t_dir, $path);
    my $index_file =  catfile($output_path,"index.html");
    eval { mkpath( $output_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26249	26447	
==>fy($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26249	26447	
==>fy($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26249	26447	
==>fy($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6552	6650	
==>)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6552	6650	
==>)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6552	6650	
==>)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12924	13042	
==>n_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12924	13042	
==>n_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12924	13042	
==>n_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	820	970	
==>x}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10861	10955	
==>e that in this instance, the information about how many members
were actually new is discarded. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10861	10955	
==>e that in this instance, the information about how many members
were actually new is discarded. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12532	12645	
==>_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12532	12645	
==>_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12532	12645	
==>_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4046	4153	
==>' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4263	4370	
==>' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37858	37951	
==>e by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_key( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37858	37951	
==>e by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_key( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4544	4639	
==>ameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4544	4639	
==>ameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4544	4639	
==>ameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	254	359	
==>here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	254	359	
==>here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	254	359	
==>here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16210	16360	
==>kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16210	16360	
==>kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16210	16360	
==>kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2054	2260	
==>$heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5531	5737	
==>$heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4461	4667	
==>$heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4384	4536	
==>_b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4384	4536	
==>_b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4384	4536	
==>_b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13709	13829	
==>s_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13709	13829	
==>s_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13709	13829	
==>s_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3467	3571	
==>p();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3467	3571	
==>p();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3467	3571	
==>p();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b] <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4326	4442	
==>PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4326	4442	
==>PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1176	1292	
==>PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11098	11232	
==>Space>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <T <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5909	5995	
==>.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copy <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5909	5995	
==>.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4699	4790	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4699	4790	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4699	4790	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array} <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	380	528	
==>e($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	380	528	
==>e($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	325	437	
==>$self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	539	658	
==>port {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	539	658	
==>port {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	415	545	
==>,
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
        name => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	350	438	
==>le->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	350	438	
==>le->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5332	5450	
==>ll_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5332	5450	
==>ll_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5332	5450	
==>ll_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10026	10144	
==>ethods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10026	10144	
==>ethods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10026	10144	
==>ethods;
    # has %:attributes;
    # -----------------------------------------------    
      
    # ---------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14068	14170	
==>data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = $o->data->[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1450	1543	
==>compile-time-bound values for them.

It includes the parameters as well as anything declared w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pu